Index: LMDZ5/branches/IPSLCM5A2.1_ISO/000-README
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/000-README	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/000-README	(revision 3330)
@@ -0,0 +1,20 @@
+
+Logiciel LMDZ
+-------------
+
+La documentation relative à LMDZ est accessible sur :
+http://lmdz.lmd.jussieu.fr/documentation
+
+Les quides d'installation et utilisation de LMDZ sont accessibles sur :
+http://lmdz.lmd.jussieu.fr/documentation/guides
+
+==========================================================================
+
+LMDZ software
+-------------
+
+Documentation about the LMDZ software is available on the web at this address:
+http://lmdz.lmd.jussieu.fr/documentation
+
+Practical installation and user guides are available here:
+http://lmdz.lmd.jussieu.fr/documentation/guides
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def	(revision 3330)
@@ -0,0 +1,1 @@
+link config.def_LMDZ5_AGCM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def_IPSLCM5B_AGCM
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def_IPSLCM5B_AGCM	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def_IPSLCM5B_AGCM	(revision 3330)
@@ -0,0 +1,133 @@
+##############################################################################
+# PARAMETRES ET CLES DE CONFIGURATION LMDZ
+##############################################################################
+# D: Valeur par default
+#
+# Controle des sorties
+#*********************
+#ok_regdyn : y/n calcul/non des regymes dynamiques sur regions pre-definies
+ok_regdyn=y
+phys_out_filekeys=       y       n       n       n       n
+phys_out_filenames=      histmth histday histhf  histins histLES
+phys_out_filelevels=     5      2       2       4       4
+phys_out_filetypes=      ave(X)  ave(X)  ave(X) inst(X) inst(X)
+phys_out_filetimesteps=  _ecrit-mth_   1day    6hr     3hr     6hr
+### parametres pour hist*NMC.nc
+#lev_histdayNMC: nombre de niveaux sur la verticale dans le fichier
+#                histdayNMC: 8 ou 17
+lev_histdayNMC=8
+### - ok_histNMC = y/n, y/n, y/n pour avoir les sorties NMC mensuelles, journalieres et haute frequence
+ok_histNMC = y, n, n
+#
+#Couplage avec autres modules
+#******************************
+#option de couplage pour ocean (D:force)
+##type_ocean=couple
+##version_ocean=nemo
+#avec ou sans orchidee (D:n)
+##VEGET=y
+#type_run=AMIP, ENSP, clim (D:AMIP)
+type_run=CLIM
+##  Soil Model  ou non               
+soil_model=y
+##  Cycle diurne  ou non                 
+cycle_diurne=y
+
+#Code de transfert radiatif
+#**************************
+# ajout de ce flag pour activer/desactiver le rayonnement (MPL)
+# 0 : pas de rayonnement. 1: on active le rayonnement (D=1)
+iflag_radia=1
+## Nombre appels des routines de rayonnements ( par jour)                 
+nbapp_rad=24
+
+# Parametres "orbitaux/ ere geologique"
+#######################################
+#Parametres orbitaux
+#excentricite
+R_ecc=0.016715
+#equinoxe
+R_peri=102.7
+#inclinaison
+R_incl=23.441
+#constante solaire
+solaire=1365.6537
+##  Facteur additif pour l albedo
+pmagic=0.00
+#
+# Taux gaz a effet de serre
+#######################################
+#concentration des gaz (co2 ch4   n2o  cfc11 cfc12)
+#                  (D: 348. 1650. 306.  280.  484.)
+co2_ppm=0.28472500E+03
+#RCO2=co2_ppm * 1.0e-06  * 44.011/28.97= 5.286789092164308E-04
+CH4_ppb=0.79097924E+03
+#RCH4=1.65E-06* 16.043/28.97= 9.137366240938903E-07
+N2O_ppb=0.27542506E+03
+#RN2O=306.E-09* 44.013/28.97= 4.648939592682085E-07
+CFC11_ppt=0.
+#RCFC11=280.E-12* 137.3686/28.97= 1.327690990680013E-09
+CFC12_ppt=0.
+#RCFC12=484.E-12* 120.9140/28.97= 2.020102726958923E-09
+#
+# Parametres effets directs/indirects des "aerosols"
+#######################################
+### ok cloud droplet number concentration
+# n par defaut (sans aerosols), y avec aerosols
+ok_cdnc=y
+### ok_ade=y/n   flag Aerosol direct effect
+ok_ade=y
+### ok_aie=y/n   flag Aerosol indirect effect
+ok_aie=y
+### aer_type =   Aerosol variation type : actuel / preind / scenario / annuel
+aer_type=preind
+###  If aerosol offline : type of coupled aerosol =0 (pas d aerosol) =1 (sulphate only default) =2 => bc  only =3 => pom only =4 => seasalt only =5 => dust only =6 => all aerosol
+flag_aerosol=6 
+### bl95_b0 =    Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+bl95_b0=1.7
+### bl95_b1 =    Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+bl95_b1=0.2
+#
+# Parametre de lecture de l'ozone
+#######################################
+# Allowed values are 0, 1 and 2
+# 0: do not read an ozone climatology
+# 1: read a single ozone climatology that will be used day and night
+# 2: read two ozone climatologies, the average day and night climatology and the daylight climatology
+read_climoz=2
+#
+# Parametres simulateur COSP (CFMIP Observational Simulator Package)
+#######################################
+### ok_cosp=y/n flag simulateur COSP
+ok_cosp=n
+### freq_COSP = frequence d'appel de COSP en secondes
+freq_COSP=10800.
+### ok_mensuelCOSP=y/n sortir fichier mensuel COSP histmthCOSP.nc, =n pas de fichier histmthCOSP.nc
+ok_mensuelCOSP=y
+### ok_journeCOSP=y/n sortir fichier journalier histdayCOSP.nc, =n pas de fichier histdayCOSP.nc
+ok_journeCOSP=y
+### ok_hfCOSP=y/n, ecrire sorties  haute frequence histhfCOSP.nc, =n pas de fichier histhfCOSP.nc
+ok_hfCOSP=n
+#
+# Parametres simulateur ISCCP
+#######################################
+### ok_isccp=y/n flag simulateur ISCCP
+ok_isccp=n
+### freqin_isccp = frequence input en secondes du simulateur ISCCP
+freq_ISCCP=10800.
+### top_height = flag choix calcul nuages par le simulateur en utilisant 
+# -              les donnees IR et/ou VIS et l algorithme ISCCP-D1
+# - top_height = 1 -> algo IR-VIS
+# - top_height = 2 -> identique a 1, mais "ptop(ibox)=pfull(ilev)"
+# - top_height = 3 -> algo IR
+top_height = 1
+### overlap =    Hypothese de Recouvrement (HR) utilisee pour le simulateur ISCCP
+# - overlap=1    Max overlap
+# - overlap=2    Random overlap
+# - overlap=3    Max/Random overlap
+overlap = 3
+#
+
+# Specifique aquaplanete
+########################
+#qsol0=100.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def_LMDZ5_AGCM
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def_LMDZ5_AGCM	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/config.def_LMDZ5_AGCM	(revision 3330)
@@ -0,0 +1,125 @@
+##############################################################################
+# PARAMETRES ET CLES DE CONFIGURATION LMDZ
+##############################################################################
+# D: Valeur par default
+#
+# Controle des sorties
+#*********************
+OK_journe=y
+OK_mensuel=y
+ok_hf=y
+OK_instan=n
+ok_LES=n
+# A transformer en la ligne ci-dessous quand ce sera compatible avec libIGCM
+phys_out_filekeys=       y       y       y       n       n
+phys_out_filenames=      histmth histday histhf  histins histLES
+phys_out_filelevels=     10      4       4       4       4
+phys_out_filetypes=      ave(X)  ave(X)  ave(X) inst(X) inst(X)
+phys_out_filetimesteps=  10day   1day    6hr     6hr     6hr
+
+#
+#Couplage avec autres modules
+#******************************
+#option de couplage pour ocean (D:force)
+type_ocean=force
+version_ocean=nemo
+#avec ou sans orchidee (D:n)
+VEGET=y
+#type_run=AMIP, ENSP, clim (D:AMIP)
+type_run=CLIM
+##  Soil Model  ou non               
+soil_model=y
+
+#Code de transfert radiatif
+#**************************
+# ajout de ce flag pour activer/desactiver le rayonnement (MPL)
+# 0 : pas de rayonnement. 1: on active le rayonnement (D=1)
+iflag_radia=1
+## Nombre appels des routines de rayonnements ( par jour)                 
+nbapp_rad=24
+
+# Parametres "orbitaux/ ere geologique"
+#######################################
+#Parametres orbitaux
+#excentricite
+R_ecc=0.016715
+#equinoxe
+R_peri=102.7
+#inclinaison
+R_incl=23.441
+#constante solaire
+solaire=1366.0896
+##  Facteur additif pour l albedo
+pmagic=0.008
+#
+# Taux gaz a effet de serre
+#######################################
+#concentration des gaz (co2 ch4   n2o  cfc11 cfc12)
+#                  (D: 348. 1650. 306.  280.  484.)
+co2_ppm=0.36886500E+03
+#RCO2=co2_ppm * 1.0e-06  * 44.011/28.97= 5.286789092164308E-04
+CH4_ppb=0.17510225E+04
+#RCH4=1.65E-06* 16.043/28.97= 9.137366240938903E-07
+N2O_ppb=0.31585000E+03
+#RN2O=306.E-09* 44.013/28.97= 4.648939592682085E-07
+CFC11_ppt=5.18015181E+01
+#RCFC11=280.E-12* 137.3686/28.97= 1.327690990680013E-09
+CFC12_ppt=0.99862742E+03
+#RCFC12=484.E-12* 120.9140/28.97= 2.020102726958923E-09
+#
+# Parametres effets directs/indirects des "aerosols"
+#######################################
+### ok cloud droplet number concentration
+# n par defaut (sans aerosols), y avec aerosols 
+ok_cdnc=y 
+### ok_ade=y/n   flag Aerosol direct effect
+ok_ade=y
+### ok_aie=y/n   flag Aerosol indirect effect
+ok_aie=y
+### aer_type =   Aerosol variation type : actuel / preind / scenario / annuel
+aer_type=actuel
+###  If aerosol offline : type of coupled aerosol =0 (pas d aerosol) =1 (sulphate only default) =2 => bc  only =3 => pom only =4 => seasalt only =5 => dust only =6 => all aerosol 
+flag_aerosol=6 
+# Use stratospheric aerosols (0, 1, 2 - default 0)
+flag_aerosol_strat=0
+### bl95_b0 =    Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+bl95_b0=1.7
+### bl95_b1 =    Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+bl95_b1=0.2
+#
+# Parametre de lecture de l'ozone
+#######################################
+# Allowed values are 0, 1 and 2
+# 0: do not read an ozone climatology
+# 1: read a single ozone climatology that will be used day and night
+# 2: read two ozone climatologies, the average day and night climatology and the daylight climatology
+read_climoz=2
+#
+# Parametres simulateur COSP (CFMIP Observational Simulator Package)
+#######################################
+### ok_cosp=y/n flag simulateur COSP
+ok_cosp=n
+### freq_COSP = frequence d'appel de COSP en secondes
+freq_COSP=10800.
+### ok_mensuelCOSP=y/n sortir fichier mensuel COSP histmthCOSP.nc, =n pas de fichier histmthCOSP.nc
+ok_mensuelCOSP=y
+### ok_journeCOSP=y/n sortir fichier journalier histdayCOSP.nc, =n pas de fichier histdayCOSP.nc
+ok_journeCOSP=y
+### ok_hfCOSP=y/n, ecrire sorties  haute frequence histhfCOSP.nc, =n pas de fichier histhfCOSP.nc
+ok_hfCOSP=n
+#
+# Parametres simulateur ISCCP
+#######################################
+### top_height = flag choix calcul nuages par le simulateur en utilisant 
+# -              les donnees IR et/ou VIS et l algorithme ISCCP-D1
+# - top_height = 1 -> algo IR-VIS
+# - top_height = 2 -> identique a 1, mais "ptop(ibox)=pfull(ilev)"
+# - top_height = 3 -> algo IR
+top_height = 1
+### overlap =    Hypothese de Recouvrement (HR) utilisee pour le simulateur ISCCP
+# - overlap=1    Max overlap
+# - overlap=2    Random overlap
+# - overlap=3    Max/Random overlap
+overlap = 3
+#
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/context_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/context_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/context_lmdz.xml	(revision 3330)
@@ -0,0 +1,64 @@
+<!-- Context LMDZ -->
+<context id="LMDZ">
+<!--  <calendar type="D360" start_date="1980-01-01 00:00:00" /> -->
+  
+  <!-- Define available variables -->
+  <field_definition src="./field_def_lmdz.xml"/> 
+  
+  <!-- Define output files
+       Each file contains the list of variables and their output levels -->
+  
+  <file_definition src="./file_def_histday_lmdz.xml"/>
+  <file_definition src="./file_def_histhf_lmdz.xml"/>
+  <file_definition src="./file_def_histins_lmdz.xml"/>
+  <file_definition src="./file_def_histLES_lmdz.xml"/>
+  <file_definition src="./file_def_histmth_lmdz.xml"/> 
+  <file_definition src="./file_def_histstn_lmdz.xml"/>
+  <file_definition src="./file_def_histmthNMC_lmdz.xml"/>
+  <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 -->
+  <domain_definition>
+    <domain id="dom_glo" data_dim="2" />
+  </domain_definition>
+  
+  <!-- Need to define a grid? Do it here -->
+<!--  <grid_definition>
+    <grid_group id="vertical" axis_ref="presnivs" />
+  </grid_> -->
+  
+  <!-- Define groups of vertical axes -->
+  <axis_definition>
+    <axis id="presnivs" standard_name="Vertical levels" unit="Pa">
+    </axis>
+    <axis id="Ahyb" standard_name="Ahyb comp of Hyb Cord" unit="Pa">
+    </axis> 
+    <axis id="Bhyb" standard_name="Bhyb comp of Hyb Cord" unit="">
+    </axis>
+    <axis id="Alt" standard_name="Height approx for scale heigh of 8km at levels" unit="km">
+    </axis>
+    <axis id="plev" standard_name="model_level_number" unit="Pa">
+    </axis>
+
+<!-- Cosp axis definitions-->
+    <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 id="temp" standard_name="temperature" unit="K"> 
+    </axis> 
+    <axis id="cth16" name="cth" standard_name="altitude" unit="m"> 
+    </axis> 
+
+  </axis_definition>
+</context>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/context_lmdz_XIOS1.0.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/context_lmdz_XIOS1.0.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/context_lmdz_XIOS1.0.xml	(revision 3330)
@@ -0,0 +1,63 @@
+<!-- Context LMDZ -->
+<context id="LMDZ" calendar_type="D360" start_date="1980-01-01 00:00:00">
+  
+  <!-- Define available variables -->
+  <field_definition src="./field_def_lmdz.xml"/> 
+  
+  <!-- Define output files
+       Each file contains the list of variables and their output levels -->
+  
+  <file_definition src="./file_def_histday_lmdz.xml"/>
+  <file_definition src="./file_def_histhf_lmdz.xml"/>
+  <file_definition src="./file_def_histins_lmdz.xml"/>
+  <file_definition src="./file_def_histLES_lmdz.xml"/>
+  <file_definition src="./file_def_histmth_lmdz.xml"/> 
+  <file_definition src="./file_def_histstn_lmdz.xml"/>
+  <file_definition src="./file_def_histmthNMC_lmdz.xml"/>
+  <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 -->
+  <domain_definition>
+    <domain id="dom_glo" data_dim="2" />
+  </domain_definition>
+  
+  <!-- Need to define a grid? Do it here -->
+  <grid_definition>
+    <grid_group id="vertical" axis_ref="presnivs" />
+  </grid_definition>
+  
+  <!-- Define groups of vertical axes -->
+  <axis_definition>
+    <axis id="presnivs" standard_name="Vertical levels" unit="Pa">
+    </axis>
+    <axis id="Ahyb" standard_name="Ahyb comp of Hyb Cord" unit="Pa">
+    </axis> 
+    <axis id="Bhyb" standard_name="Bhyb comp of Hyb Cord" unit="">
+    </axis>
+    <axis id="Alt" standard_name="Height approx for scale heigh of 8km at levels" unit="km">
+    </axis>
+    <axis id="plev" standard_name="model_level_number" unit="Pa">
+    </axis>
+
+<!-- Cosp axis definitions--> 
+<!--    <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 id="temp" standard_name="temperature" unit="K"> -->
+<!--    </axis> -->
+<!--    <axis id="cth16" name="cth" standard_name="altitude" unit="m"> -->
+<!--    </axis> -->
+
+  </axis_definition>
+</context>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/conv_param.data_NPv3.1
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/conv_param.data_NPv3.1	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/conv_param.data_NPv3.1	(revision 3330)
@@ -0,0 +1,8 @@
+-40      dpbase (original: -40)
+150      pbcrit (original: 150)
+500      ptcrit (original: 500)
+0.01     sigdz (original: 0.01)
+0.15     spfac (original: 0.15)
+8000.    tau (original: 1800)
+1 flag_wb
+6. wbmax
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/conv_param.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/conv_param.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/conv_param.def	(revision 3330)
@@ -0,0 +1,34 @@
+### Convection
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=0
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=0
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.0003
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-55.0
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/cosp_input_nl.txt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/cosp_input_nl.txt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/cosp_input_nl.txt	(revision 3330)
@@ -0,0 +1,99 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+
+! Namelist that sets up the main COSP options
+&COSP_INPUT
+  NPOINTS_IT=10000,! Max number of gridpoints to be processed in one iteration
+  NCOLUMNS=20,  ! Number of subcolumns
+  USE_VGRID=.true., ! 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.
+                     !  USE_VGRID needs also be .true.)
+  !----------------------------------------------------------------------------------
+  !--------------- Inputs related to radar simulations
+  !----------------------------------------------------------------------------------
+  RADAR_FREQ=94.0, ! CloudSat radar frequency (GHz)
+  SURFACE_RADAR=0, ! surface=1, spaceborne=0
+  use_mie_tables=0,! use a precomputed lookup table? yes=1,no=0
+  use_gas_abs=1,   ! include gaseous absorption? yes=1,no=0
+  do_ray=0,        ! calculate/output Rayleigh refl=1, not=0
+  melt_lay=0,      ! melting layer model off=0, on=1
+  k2=-1,           ! |K|^2, -1=use frequency dependent default
+  use_reff=.true., ! True if you want effective radius to be used by radar simulator (always used by lidar)
+  use_precipitation_fluxes=.true.,  ! True if precipitation fluxes are input to the algorithm 
+  !----------------------------------------------------------------------------------
+  !---------------- Inputs related to lidar simulations
+  !----------------------------------------------------------------------------------
+  Nprmts_max_hydro=12, ! Max number of parameters for hydrometeor size distributions
+  Naero=1,             ! Number of aerosol species (Not used)
+  Nprmts_max_aero=1,   ! Max number of parameters for aerosol size distributions (Not used)
+  lidar_ice_type=0,    ! Ice particle shape in lidar calculations (0=ice-spheres ; 1=ice-non-spherical)
+  OVERLAP=3,   !  overlap type: 1=max, 2=rand, 3=max/rand
+  !----------------------------------------------------------------------------------
+  !---------------- Inputs related to ISCCP simulator
+  !----------------------------------------------------------------------------------
+  ISCCP_TOPHEIGHT=1,  !  1 = adjust top height using both a computed
+                       !  infrared brightness temperature and the visible
+                       !  optical depth to adjust cloud top pressure. Note
+                       !  that this calculation is most appropriate to compare
+                       !  to ISCCP data during sunlit hours.
+                      !  2 = do not adjust top height, that is cloud top
+                       !  pressure is the actual cloud top pressure
+                       !  in the model
+                      !  3 = adjust top height using only the computed
+                       !  infrared brightness temperature. Note that this
+                       !  calculation is most appropriate to compare to ISCCP
+                       !  IR only algortihm (i.e. you can compare to nighttime
+                       !  ISCCP data with this option)
+  ISCCP_TOPHEIGHT_DIRECTION=2,   ! direction for finding atmosphere pressure level
+                                 ! with interpolated temperature equal to the radiance
+                                 ! determined cloud-top temperature
+                                 ! 1 = find the *lowest* altitude (highest pressure) level
+                                 ! with interpolated temperature equal to the radiance
+                                 ! determined cloud-top temperature
+                                 ! 2 = find the *highest* altitude (lowest pressure) level
+                                 ! with interpolated temperature equal to the radiance 
+                                 ! determined cloud-top temperature
+                                 ! ONLY APPLICABLE IF top_height EQUALS 1 or 3
+                                 ! 1 = default setting, and matches all versions of 
+                                 ! ISCCP simulator with versions numbers 3.5.1 and lower
+                                 ! 2 = experimental setting  
+  !----------------------------------------------------------------------------------
+  !-------------- RTTOV inputs
+  !----------------------------------------------------------------------------------
+  Platform=1,    ! satellite platform
+  Satellite=15,  ! satellite
+  Instrument=0,  ! instrument
+  Nchannels=8,   ! Number of channels to be computed
+  Channels=1,3,5,6,8,10,11,13,        ! Channel numbers (please be sure that you supply Nchannels)
+  Surfem=0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,  ! Surface emissivity (please be sure that you supply Nchannels)
+  ZenAng=50.0, ! Satellite Zenith Angle
+  CO2=5.241e-04, ! Mixing ratios of trace gases
+  CH4=9.139e-07,
+  N2O=4.665e-07,
+  CO=2.098e-07
+/
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/cosp_output_nl.txt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/cosp_output_nl.txt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/cosp_output_nl.txt	(revision 3330)
@@ -0,0 +1,110 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+! Namelist that sets up output-related variables. It controls 
+! the instrument simulators to run and the list of variables 
+! to be written to file
+&COSP_OUTPUT
+  ! Simulator flags
+  Lradar_sim=.false.,
+  Llidar_sim=.true.,
+  Lisccp_sim=.true.,
+  Lmisr_sim=.false.,
+  Lmodis_sim=.false.,
+  Lrttov_sim=.false.,
+  ! Output variables
+  !- Variables unique in 1D (curtain) mode
+  Ltoffset=.false.,
+  !- CloudSat
+  Lcfaddbze94=.false.,
+  Ldbze94=.true.,
+  !- CALIPSO
+  Latb532=.false.,
+  LcfadLidarsr532=.false.,
+  Lclcalipso=.true.,
+  Lclhcalipso=.true.,
+  Lcllcalipso=.true.,
+  Lclmcalipso=.true.,
+  Lcltcalipso=.true.,
+  LparasolRefl=.true.,
+  ! CALIPSO phase diagnostics
+  Lclcalipsoliq=.true.,
+  Lclcalipsoice=.true.,
+  Lclcalipsoun=.true.,
+  Lclcalipsotmp=.true.,
+  Lclcalipsotmpliq=.true.,
+  Lclcalipsotmpice=.true.,
+  Lclcalipsotmpun=.true.,
+  Lclhcalipsoliq=.true.,
+  Lcllcalipsoliq=.true.,
+  Lclmcalipsoliq=.true.,
+  Lcltcalipsoliq=.true.,
+  Lclhcalipsoice=.true.,
+  Lcllcalipsoice=.true.,
+  Lclmcalipsoice=.true.,
+  Lcltcalipsoice=.true.,
+  Lclhcalipsoun=.true.,
+  Lcllcalipsoun=.true.,
+  Lclmcalipsoun=.true.,
+  Lcltcalipsoun=.true.,
+  !- ISCCP
+  Lalbisccp=.true.,
+  Lboxptopisccp=.false.,
+  Lboxtauisccp=.false.,
+  Lpctisccp=.true.,
+  Lclisccp=.true.,
+  Ltauisccp=.true.,
+  Lcltisccp=.true.,
+  Lmeantbisccp=.true.,
+  Lmeantbclrisccp=.true.,
+  !- MISR
+  LclMISR=.false.,
+  !- Use lidar and radar
+  Lclcalipso2=.false.,
+  Lcltlidarradar=.false.,
+  !- These are provided for debugging or special purposes
+  Lfracout=.false.,
+  LlidarBetaMol532=.true.,  
+  !- MODIS
+  Lcltmodis=.false.,
+  Lclwmodis=.false.,
+  Lclimodis=.false.,
+  Lclhmodis=.false.,
+  Lclmmodis=.false.,
+  Lcllmodis=.false.,
+  Ltautmodis=.false.,
+  Ltauwmodis=.false.,
+  Ltauimodis=.false.,
+  Ltautlogmodis=.false.,
+  Ltauwlogmodis=.false.,
+  Ltauilogmodis=.false.,
+  Lreffclwmodis=.false.,
+  Lreffclimodis=.false.,
+  Lpctmodis=.false.,
+  Llwpmodis=.false.,
+  Liwpmodis=.false.,
+  Lclmodis=.false.,
+  !- RTTOV
+  Ltbrttov=.false.,
+/
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/ep_param.data_NPv3.1
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/ep_param.data_NPv3.1	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/ep_param.data_NPv3.1	(revision 3330)
@@ -0,0 +1,3 @@
+1 flag_epKEorig 
+0.0003 elcrit (original: 0.0011)
+-55         tlcrit (original: -55)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/field_def_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/field_def_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/field_def_lmdz.xml	(revision 3330)
@@ -0,0 +1,870 @@
+<field_definition level="1" prec="4" operation="average" freq_op="1ts" enabled=".true." default_value="9.96921e+36">
+    
+<!--    <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">
+        <field id="phis"    long_name="Surface geop.height"     unit="m2/s2" />
+        <field id="aire"    long_name="Grid area"               unit="-"    />
+        <field id="contfracATM"     long_name="% sfce ter+lic"  unit="-"    />
+        <field id="contfracOR"      long_name="% sfce terre OR" unit="-" />
+        <field id="aireTER"         long_name="Grid area CONT"  unit="-" />
+        <field id="flat"    long_name="Latent heat flux"        unit="W/m2" />
+        <field id="slp"     long_name="Sea Level Pressure"      unit="Pa" />
+        <field id="ptstar"  long_name="Air Surface Temperature" unit="K" />
+        <field id="pt0"     long_name="Standard Air Surface Temperature"      unit="K" />
+        <field id="tsol"    long_name="Surface Temperature"     unit="K" />
+        <field id="t2m"        long_name="Temperature 2m" unit="K" />
+        <field id="t2m_min"    long_name="Temp 2m min"    unit="K"  operation="minimum" />
+        <field id="t2m_max"    long_name="Temp 2m max"    unit="K"  operation="maximum" />
+        <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" />
+        <field id="t2m_sic"    long_name="Temp 2m sic"    unit="K" />
+        <field id="gusts"    long_name="surface gustiness"    unit="m2/s2" />
+        <field id="wind10m"    long_name="10-m wind speed"      unit="m/s" />
+        <field id="wind10max"  long_name="10m wind speed max"   unit="m/s" />
+        <field id="sicf"    long_name="Sea-ice fraction"        unit="-" />
+        <field id="q2m"     long_name="Specific humidity 2m"    unit="kg/kg" />
+        <field id="ustar"   long_name="Friction velocity"       unit="m/s" />
+        <field id="u10m"    long_name="Vent zonal 10m"          unit="m/s" />
+        <field id="v10m"    long_name="Vent meridien 10m"       unit="m/s" />
+        <field id="psol"    long_name="Surface Pressure"        unit="Pa" />
+        <field id="qsurf"   long_name="Surface Air humidity"    unit="kg/kg" />
+        <field id="ustar_ter"    long_name="Friction velocity ter"    unit="m/s" />
+        <field id="ustar_lic"    long_name="Friction velocity lic"    unit="m/s" />
+        <field id="ustar_oce"    long_name="Friction velocity oce"    unit="m/s" />
+        <field id="ustar_sic"    long_name="Friction velocity sic"    unit="m/s" />
+        <field id="wstar_ter"    long_name="Friction velocity ter"    unit="m/s" />
+        <field id="wstar_lic"    long_name="Friction velocity lic"    unit="m/s" />
+        <field id="wstar_oce"    long_name="Friction velocity oce"    unit="m/s" />
+        <field id="wstar_sic"    long_name="Friction velocity sic"    unit="m/s" />
+        <field id="wstar"       long_name="w* convective velocity "    unit="m/s" />
+        <field id="u10m_ter"    long_name="Vent Zonal 10m ter"    unit="m/s" />
+        <field id="u10m_lic"    long_name="Vent Zonal 10m lic"    unit="m/s" />
+        <field id="u10m_oce"    long_name="Vent Zonal 10m oce"    unit="m/s" />
+        <field id="u10m_sic"    long_name="Vent Zonal 10m sic"    unit="m/s" />
+        <field id="v10m_ter"    long_name="Vent meredien 10m ter"    unit="m/s" />
+        <field id="v10m_lic"    long_name="Vent meredien 10m lic"    unit="m/s" />
+        <field id="v10m_oce"    long_name="Vent meredien 10m oce"    unit="m/s" />
+        <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)" />
+        <field id="plul"    long_name="Large-scale Precip."     unit="kg/(s*m2)" />
+        <field id="plun"    long_name="Numerical Precip."       unit="kg/(s*m2)" />
+        <field id="pluc"    long_name="Convective Precip."      unit="kg/(s*m2)" />
+        <field id="snow"    long_name="Snow fall"               unit="kg/(s*m2)" />
+        <field id="evap"    long_name="Evaporat"                unit="kg/(s*m2)" />
+        <field id="evap_ter"    long_name="evaporation at surface ter"    unit="kg/(s*m2)" />
+        <field id="evap_lic"    long_name="evaporation at surface lic"    unit="kg/(s*m2)" />
+        <field id="evap_oce"    long_name="evaporation at surface oce"    unit="kg/(s*m2)" />
+        <field id="evap_sic"    long_name="evaporation at surface sic"    unit="kg/(s*m2)" />
+        <field id="msnow"    long_name="Surface snow amount"    unit="kg/m2" />
+        <field id="fsnow"    long_name="Surface snow area fraction"    unit="-" />
+        <field id="tops"    long_name="Solar rad. at TOA"    unit="W/m2" />
+        <field id="tops0"    long_name="CS Solar rad. at TOA"    unit="W/m2" />
+        <field id="topl"    long_name="IR rad. at TOA"    unit="W/m2" />
+        <field id="topl0"    long_name="IR rad. at TOA"    unit="W/m2" />
+        <field id="SWupTOA"    long_name="SWup at TOA"    unit="W/m2" />
+        <field id="SWupTOAclr"    long_name="SWup clear sky at TOA"    unit="W/m2" />
+        <field id="SWdnTOA"    long_name="SWdn at TOA"    unit="W/m2" />
+        <field id="SWdnTOAclr"    long_name="SWdn clear sky at TOA"    unit="W/m2" />
+        <field id="nettop"    long_name="Net dn radiatif flux at TOA"    unit="W/m2" />
+        <field id="SWup200"    long_name="SWup at 200mb"    unit="W/m2" />
+        <field id="SWup200clr"    long_name="SWup clear sky at 200mb"    unit="W/m2" />
+        <field id="SWdn200"    long_name="SWdn at 200mb"    unit="W/m2" />
+        <field id="SWdn200clr"    long_name="SWdn clear sky at 200mb"    unit="W/m2" />
+        <field id="LWup200"    long_name="LWup at 200mb"    unit="W/m2" />
+        <field id="LWup200clr"    long_name="LWup clear sky at 200mb"    unit="W/m2" />
+        <field id="LWdn200"    long_name="LWdn at 200mb"    unit="W/m2" />
+        <field id="LWdn200clr"    long_name="LWdn clear sky at 200mb"    unit="W/m2" />
+        <field id="sols"    long_name="Solar rad. at surf."    unit="W/m2" />
+        <field id="sols0"    long_name="Solar rad. at surf."    unit="W/m2" />
+        <field id="soll"    long_name="IR rad. at surface"    unit="W/m2" />
+        <field id="soll0"    long_name="IR rad. at surface"    unit="W/m2" />
+        <field id="radsol"    long_name="Rayonnement au sol"    unit="W/m2" />
+        <field id="SWupSFC"    long_name="SWup at surface"    unit="W/m2" />
+        <field id="SWupSFCclr"    long_name="SWup clear sky at surface"    unit="W/m2" />
+        <field id="SWdnSFC"    long_name="SWdn at surface"    unit="W/m2" />
+        <field id="SWdnSFCclr"    long_name="SWdn clear sky at surface"    unit="W/m2" />
+        <field id="LWupSFC"    long_name="Upwd. IR rad. at surface"    unit="W/m2" />
+        <field id="LWupSFCclr"    long_name="CS Upwd. IR rad. at surface"    unit="W/m2" />
+        <field id="LWdnSFC"    long_name="Down. IR rad. at surface"    unit="W/m2" />
+        <field id="LWdnSFCclr"    long_name="Down. CS IR rad. at surface"    unit="W/m2" />
+        <field id="bils"    long_name="Surf. total heat flux"    unit="W/m2" />
+        <field id="bils_tke"    long_name="Surf. total heat flux"    unit="W/m2" />
+        <field id="bils_diss"    long_name="Surf. total heat flux"    unit="W/m2" />
+        <field id="bils_ec"    long_name="Surf. total heat flux"    unit="W/m2" />
+        <field id="bils_kinetic"    long_name="Surf. total heat flux"    unit="W/m2" />
+        <field id="bils_enthalp"    long_name="Surf. total heat flux"    unit="W/m2" />
+        <field id="bils_latent"    long_name="Surf. total heat flux"    unit="W/m2" />
+	<field id="bils_ech"    long_name="peu importe"    unit="W/m2" />
+	<field id="du_gwd_rando"    long_name="peu importe"    unit="W/m2" />
+	<field id="dv_gwd_rando"    long_name="peu importe"    unit="W/m2" />
+	<field id="ustr_gwd_hines"    long_name="zonal wind stress Hines gravity waves"    unit="Pa" />
+	<field id="vstr_gwd_hines"    long_name="meridional wind stress Hines gravity waves"    unit="Pa" />
+	<field id="ustr_gwd_front"    long_name="zonal wind stress fronts gravity waves"    unit="Pa" />
+	<field id="vstr_gwd_front"    long_name="meridional wind stress fronts gravity waves"    unit="Pa" />
+	<field id="ustr_gwd_rando"    long_name="zonal wind stress random gravity waves"    unit="Pa" />
+	<field id="vstr_gwd_rando"    long_name="meridinal wind stress random gravity waves"    unit="Pa" />
+        <field id="sens"    long_name="Sensible heat flux"    unit="W/m2" />
+        <field id="fder"    long_name="Heat flux derivation"    unit="W/m2" />
+        <field id="ffonte"    long_name="Thermal flux for snow melting"    unit="W/m2" />
+        <field id="fqcalving"    long_name="Ice Calving"    unit="kg/m2/s" />
+        <field id="fqfonte"    long_name="Land ice melt"    unit="kg/m2/s" />
+        <field id="runofflic"  long_name="Land ice melt to ocean" unit="kg/m2/s" />
+        <field id="taux"    long_name="Zonal wind stress"    unit="Pa" />
+        <field id="tauy"    long_name="Meridional wind stress"    unit="Pa" />
+        <field id="taux_ter"    long_name="Zonal wind stress ter"    unit="Pa" />
+        <field id="taux_lic"    long_name="Zonal wind stress lic"    unit="Pa" />
+        <field id="taux_oce"    long_name="Zonal wind stress oce"    unit="Pa" />
+        <field id="taux_sic"    long_name="Zonal wind stress sic"    unit="Pa" />
+        <field id="tauy_ter"    long_name="Meridional wind stress ter"    unit="Pa" />
+        <field id="tauy_lic"    long_name="Meridional wind stress lic"    unit="Pa" />
+        <field id="tauy_oce"    long_name="Meridional wind stress oce"    unit="Pa" />
+        <field id="tauy_sic"    long_name="Meridional wind stress sic"    unit="Pa" />
+        <field id="pourc_ter"    long_name="% ter"    unit="%" />
+        <field id="pourc_lic"    long_name="% lic"    unit="%" />
+        <field id="pourc_oce"    long_name="% oce"    unit="%" />
+        <field id="pourc_sic"    long_name="% sic"    unit="%" />
+        <field id="fract_ter"    long_name="Fraction ter"    unit="1" />
+        <field id="fract_lic"    long_name="Fraction lic"    unit="1" />
+        <field id="fract_oce"    long_name="Fraction oce"    unit="1" />
+        <field id="fract_sic"    long_name="Fraction sic"    unit="1" />
+        <field id="tsol_ter"    long_name="Temperature ter"    unit="K" />
+        <field id="tsol_lic"    long_name="Temperature lic"    unit="K" />
+        <field id="tsol_oce"    long_name="Temperature oce"    unit="K" />
+        <field id="tsol_sic"    long_name="Temperature sic"    unit="K" />
+        <field id="evappot_ter"    long_name="Temperature ter"    unit="K" />
+        <field id="evappot_lic"    long_name="Temperature lic"    unit="K" />
+        <field id="evappot_oce"    long_name="Temperature oce"    unit="K" />
+        <field id="evappot_sic"    long_name="Temperature sic"    unit="K" />
+        <field id="sens_ter"    long_name="Sensible heat flux ter"    unit="W/m2" />
+        <field id="sens_lic"    long_name="Sensible heat flux lic"    unit="W/m2" />
+        <field id="sens_oce"    long_name="Sensible heat flux oce"    unit="W/m2" />
+        <field id="sens_sic"    long_name="Sensible heat flux sic"    unit="W/m2" />
+        <field id="lat_ter"    long_name="Latent heat flux ter"    unit="W/m2" />
+        <field id="lat_lic"    long_name="Latent heat flux lic"    unit="W/m2" />
+        <field id="lat_oce"    long_name="Latent heat flux oce"    unit="W/m2" />
+        <field id="lat_sic"    long_name="Latent heat flux sic"    unit="W/m2" />
+        <field id="flw_ter"    long_name="LW ter"    unit="W/m2" />
+        <field id="flw_lic"    long_name="LW lic"    unit="W/m2" />
+        <field id="flw_oce"    long_name="LW oce"    unit="W/m2" />
+        <field id="flw_sic"    long_name="LW sic"    unit="W/m2" />
+        <field id="fsw_ter"    long_name="SW ter"    unit="W/m2" />
+        <field id="fsw_lic"    long_name="SW lic"    unit="W/m2" />
+        <field id="fsw_oce"    long_name="SW oce"    unit="W/m2" />
+        <field id="fsw_sic"    long_name="SW sic"    unit="W/m2" />
+        <field id="wbils_ter"    long_name="Bilan sol ter"    unit="W/m2" />
+        <field id="wbils_lic"    long_name="Bilan sol lic"    unit="W/m2" />
+        <field id="wbils_oce"    long_name="Bilan sol oce"    unit="W/m2" />
+        <field id="wbils_sic"    long_name="Bilan sol sic"    unit="W/m2" />
+        <field id="wbilo_ter"    long_name="Bilan eau ter"    unit="kg/(m2*s)" />
+        <field id="wbilo_lic"    long_name="Bilan eau lic"    unit="kg/(m2*s)" />
+        <field id="wbilo_oce"    long_name="Bilan eau oce"    unit="kg/(m2*s)" />
+        <field id="wbilo_sic"    long_name="Bilan eau sic"    unit="kg/(m2*s)" />
+        <field id="cdrm"    long_name="Momentum drag coef."    unit="-" />
+        <field id="cdrh"    long_name="Heat drag coef."    unit="-" />
+        <field id="cldl"    long_name="Low-level cloudiness"    unit="-" />
+        <field id="cldm"    long_name="Mid-level cloudiness"    unit="-" />
+        <field id="cldh"    long_name="High-level cloudiness"    unit="-" />
+        <field id="cldt"    long_name="Total cloudiness"    unit="-" />
+        <field id="cldq"    long_name="Cloud liquid water path"    unit="kg/m2" />
+        <field id="lwp"    long_name="Cloud water path"    unit="kg/m2" />
+        <field id="iwp"    long_name="Cloud ice water path"    unit="kg/m2" />
+        <field id="ue"    long_name="Zonal energy transport"    unit="-" />
+        <field id="ve"    long_name="Merid energy transport"    unit="-" />
+        <field id="uq"    long_name="Zonal humidity transport"    unit="-" />
+        <field id="vq"    long_name="Merid humidity transport"    unit="-" />
+        <field id="cape"    long_name="Conv avlbl pot ener"    unit="J/kg" />
+        <field id="pbase"    long_name="Cld base pressure"    unit="Pa" />
+        <field id="ptop"    long_name="Cld top pressure"    unit="Pa" />
+        <field id="fbase"    long_name="Cld base mass flux"    unit="kg/m2/s" />
+        <field id="plcl"    long_name="Lifting Condensation Level"    unit="hPa" enabled=".false." />
+        <field id="plfc"    long_name="Level of Free Convection"    unit="hPa" />
+        <field id="wbeff"    long_name="Conv. updraft velocity at LFC (inf100)"    unit="m/s" />
+        <field id="prw"    long_name="Precipitable water"    unit="kg/m2" />
+        <field id="prlw"   long_name="Precipitable liquid water"  unit="kg/m2" />
+        <field id="prsw"   long_name="Precipitable solid water"  unit="kg/m2" />
+        <field id="s_pblh"    long_name="Boundary Layer Height"    unit="m" />
+        <field id="s_pblt"    long_name="t at Boundary Layer Height"    unit="K" />
+        <field id="s_lcl"    long_name="Condensation level"    unit="m" />
+        <field id="s_therm"    long_name="Exces du thermique"    unit="K" />
+        <field id="slab_bils_oce"    long_name="Bilan au sol sur ocean slab"    unit="W/m2" />
+        <field id="ale_bl"    long_name="ALE BL"    unit="m2/s2" />
+        <field id="alp_bl"    long_name="ALP BL"    unit="m2/s2" />
+        <field id="ale_wk"    long_name="ALE WK"    unit="m2/s2" />
+        <field id="alp_wk"    long_name="ALP WK"    unit="m2/s2" />
+        <field id="ale"    long_name="ALE"    unit="m2/s2" />
+        <field id="alp"    long_name="ALP"    unit="W/m2" />
+        <field id="cin"    long_name="Convective INhibition"    unit="m2/s2" />
+        <field id="wape"    long_name="-"    unit="-" />
+        <field id="n2"    long_name="Nombre de panaches de type 2"    unit="-" />
+        <field id="s2"    long_name="Surface moyenne des panaches de type 2"    unit="m2" />
+        <field id="proba_notrig"    long_name="Probabilité de non-déclenchement"    unit="-" />
+        <field id="random_notrig"    long_name="Tirage aléatoire de non-déclenchement"    unit="-" />
+        <field id="ale_bl_stat"    long_name="ALE_BL_STAT"    unit="m2/s2" />
+        <field id="ale_bl_trig"    long_name="ALE_BL_STAT + Condition P>Pseuil"    unit="m2/s2" />
+        <field id="alp_bl_det"    long_name="ALP_BL_DET"    unit="W/m2" />
+        <field id="alp_bl_fluct_m"    long_name="ALP_BL_FLUCT_M"    unit="W/m2" />
+        <field id="alp_bl_fluct_tke"    long_name="ALP_BL_FLUCT_TKE"    unit="W/m2" />
+        <field id="alp_bl_conv"    long_name="ALP_BL_CONV"    unit="W/m2" />
+        <field id="alp_bl_stat"    long_name="ALP_BL_STAT"    unit="W/m2" />
+        <field id="u850"    long_name="Zonal wind 850hPa"    unit="m/s" />
+        <field id="u700"    long_name="Zonal wind 700hPa"    unit="m/s" />
+        <field id="u500"    long_name="Zonal wind 500hPa"    unit="m/s" />
+        <field id="u200"    long_name="Zonal wind 200hPa"    unit="m/s" />
+        <field id="u100"    long_name="Zonal wind 100hPa"    unit="m/s" />
+        <field id="u50"     long_name="Zonal wind 50hPa"    unit="m/s" />
+        <field id="u10"     long_name="Zonal wind 10hPa"    unit="m/s" />
+        <field id="v850"    long_name="Meridional wind 850hPa"    unit="m/s" />
+        <field id="v700"    long_name="Meridional wind 700hPa"    unit="m/s" />
+        <field id="v500"    long_name="Meridional wind 500hPa"    unit="m/s" />
+        <field id="v200"    long_name="Meridional wind 200hPa"    unit="m/s" />
+        <field id="v100"    long_name="Meridional wind 100hPa"    unit="m/s" />
+        <field id="v50"     long_name="Meridional wind 50hPa"    unit="m/s" />
+        <field id="v10"    long_name="Meridional wind 10hPa"    unit="m/s" />
+        <field id="w850"    long_name="Vertical wind 850hPa"    unit="Pa/s" />
+        <field id="w700"    long_name="Vertical wind 700hPa"    unit="Pa/s" />
+        <field id="w500"    long_name="Vertical wind 500hPa"    unit="Pa/s" />
+        <field id="w200"    long_name="Vertical wind 200hPa"    unit="Pa/s" />
+        <field id="w100"    long_name="Vertical wind 100hPa"    unit="Pa/s" />
+        <field id="w50"    long_name="Vertical wind 50hPa"    unit="Pa/s" />
+        <field id="w10"    long_name="Vertical wind 10hPa"    unit="Pa/s" />
+        <field id="t850"    long_name="Temperature 850hPa"    unit="K" />
+        <field id="t700"    long_name="Temperature 700hPa"    unit="K" />
+        <field id="t500"    long_name="Temperature 500hPa"    unit="K" />
+        <field id="t200"    long_name="Temperature 200hPa"    unit="K" />
+        <field id="t100"    long_name="Temperature 100hPa"    unit="K" />
+        <field id="t50"    long_name="Temperature 50hPa"    unit="K" />
+        <field id="t10"    long_name="Temperature 10hPa"    unit="K" />
+        <field id="q850"    long_name="Specific humidity 850hPa"    unit="kg/kg" />
+        <field id="q700"    long_name="Specific humidity 700hPa"    unit="kg/kg" />
+        <field id="q500"    long_name="Specific humidity 500hPa"    unit="kg/kg" />
+        <field id="q200"    long_name="Specific humidity 200hPa"    unit="kg/kg" />
+        <field id="q100"    long_name="Specific humidity 100hPa"    unit="kg/kg" />
+        <field id="q50"    long_name="Specific humidity 50hPa"    unit="kg/kg" />
+        <field id="q10"    long_name="Specific humidity 10hPa"    unit="kg/kg" />
+        <field id="z850"    long_name="Geopotential height 850hPa"    unit="m" />
+        <field id="z700"    long_name="Geopotential height 700hPa"    unit="m" />
+        <field id="z500"    long_name="Geopotential height 500hPa"    unit="m" />
+        <field id="z200"    long_name="Geopotential height 200hPa"    unit="m" />
+        <field id="z100"    long_name="Geopotential height 100hPa"    unit="m" />
+        <field id="z50"    long_name="Geopotential height 50hPa"    unit="m" />
+        <field id="z10"    long_name="Geopotential height 10hPa"    unit="m" />
+        <field id="t_oce_sic"    long_name="Temp mixte oce-sic"    unit="K" />
+        <field id="weakinv"    long_name="Weak inversion"    unit="-" />
+        <field id="dthmin"    long_name="dTheta mini"    unit="K/m" />
+        <field id="u10_ter"    long_name="-"    unit="-" />
+        <field id="u10_lic"    long_name="-"    unit="-" />
+        <field id="u10_oce"    long_name="-"    unit="-" />
+        <field id="u10_sic"    long_name="-"    unit="-" />
+        <field id="v10_ter"    long_name="-"    unit="-" />
+        <field id="v10_lic"    long_name="-"    unit="-" />
+        <field id="v10_oce"    long_name="-"    unit="-" />
+        <field id="v10_sic"    long_name="-"    unit="-" />
+        <field id="rh2m"    long_name="Relative humidity at 2m"    unit="%" />
+        <field id="rh2m_min"    long_name="Min Relative humidity at 2m"    unit="%" />
+        <field id="rh2m_max"    long_name="Max Relative humidity at 2m"    unit="%" />
+        <field id="qsat2m"    long_name="Saturant humidity at 2m"    unit="%" />
+        <field id="tpot"    long_name="Surface air potential temperature"    unit="K" />
+        <field id="tpote"    long_name="Surface air equivalent potential temperature"    unit="K" />
+        <field id="SWnetOR"    long_name="Sfce net SW radiation OR"    unit="W/m2" />
+        <field id="SWdownOR"    long_name="Sfce incident SW radiation OR"    unit="W/m2" />
+        <field id="LWdownOR"    long_name="Sfce incident LW radiation OR"    unit="W/m2" />
+        <field id="snowl"    long_name="Solid Large-scale Precip."    unit="kg/(m2*s)" />
+        <field id="cape_max"    long_name="CAPE max."    unit="J/kg" />
+        <field id="solldown"    long_name="Down. IR rad. at surface"    unit="W/m2" />
+        <field id="dtsvdfo"    long_name="Boundary-layer dTs(o)"    unit="K/s" />
+        <field id="dtsvdft"    long_name="Boundary-layer dTs(t)"    unit="K/s" />
+        <field id="dtsvdfg"    long_name="Boundary-layer dTs(g)"    unit="K/s" />
+        <field id="dtsvdfi"    long_name="Boundary-layer dTs(g)"    unit="K/s" />
+        <field id="rugs"    long_name="rugosity"    unit="-" />
+        <field id="z0m"    long_name="roughness length, momentum"    unit="-" />
+        <field id="z0h"    long_name="roughness length, enthalpy"    unit="-" />
+        <field id="topswad"    long_name="ADE at TOA"    unit="W/m2" />
+        <field id="topswad0"    long_name="ADE clear-sky at TOA"    unit="W/m2" />
+        <field id="topswai"    long_name="AIE at TOA"    unit="W/m2" />
+        <field id="solswad"    long_name="ADE at SRF"    unit="W/m2" />
+        <field id="solswad0"    long_name="ADE clear-sky at SRF"    unit="W/m2" />
+        <field id="solswai"    long_name="AIE at SFR"    unit="W/m2" />
+        <field id="toplwad"    long_name="LW-ADE at TOA" unit="W/m2" />
+        <field id="toplwad0"    long_name="LW-ADE clear-sky at TOA"    unit="W/m2" />
+        <field id="sollwad"    long_name="LW-ADE at SRF" unit="W/m2" />
+        <field id="sollwad0"    long_name="LW-ADE clear-sky at SRF"    unit="W/m2" />
+        <field id="OD550_ASBCM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_ASPOMM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_ASSO4M"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_CSSO4M"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_SSSSM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_ASSSM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_CSSSM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_CIDUSTM"    long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <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" enabled="TRUE" />
+        <field id="OD550_SO4"     long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_ASNO3M"     long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_CSNO3M"     long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD550_CINO3M"     long_name="Aerosol Optical depth at 550 nm "    unit="1" />
+        <field id="OD_10um_STRAT" long_name="Stratospheric Aerosol Optical depth at 10 um" unit="-" />
+        <field id="od550aer"    long_name="Total aerosol optical depth at 550nm"    unit="-" />
+        <field id="od865aer"    long_name="Total aerosol optical depth at 870nm"    unit="-" />
+        <field id="absvisaer"    long_name="Absorption aerosol visible optical depth"    unit="-" />
+        <field id="od550lt1aer"    long_name="Fine mode optical depth"    unit="-" />
+        <field id="sconcso4"    long_name="Surface Concentration of Sulfate "    unit="kg/m3" />
+        <field id="sconcno3"    long_name="Surface Concentration of Nitrate "    unit="kg/m3" />
+        <field id="sconcoa"    long_name="Surface Concentration of Organic Aerosol "    unit="kg/m3" />
+        <field id="sconcbc"    long_name="Surface Concentration of Black Carbon "    unit="kg/m3" />
+        <field id="sconcss"    long_name="Surface Concentration of Sea Salt "    unit="kg/m3" />
+        <field id="sconcdust"    long_name="Surface Concentration of Dust "    unit="kg/m3" />
+        <field id="loadso4"    long_name="Column Load of Sulfate "    unit="kg/m2" />
+        <field id="loadoa"    long_name="Column Load of Organic Aerosol "    unit="kg/m2" />
+        <field id="loadbc"    long_name="Column Load of Black Carbon "    unit="kg/m2" />
+        <field id="loadss"    long_name="Column Load of Sea Salt "    unit="kg/m2" />
+        <field id="loaddust"    long_name="Column Load of Dust "    unit="kg/m2" />
+        <field id="swtoaas_nat"    long_name="Natural aerosol radiative forcing all-sky at TOA"    unit="W/m2" />
+        <field id="swsrfas_nat"    long_name="Natural aerosol radiative forcing all-sky at SRF"    unit="W/m2" />
+        <field id="swtoacs_nat"    long_name="Natural aerosol radiative forcing clear-sky at TOA"    unit="W/m2" />
+        <field id="swsrfcs_nat"    long_name="Natural aerosol radiative forcing clear-sky at SRF"    unit="W/m2" />
+        <field id="swtoaas_ant"    long_name="Anthropogenic aerosol radiative forcing all-sky at TOA"    unit="W/m2" />
+        <field id="swsrfas_ant"    long_name="Anthropogenic aerosol radiative forcing all-sky at SRF"    unit="W/m2" />
+        <field id="swtoacs_ant"    long_name="Anthropogenic aerosol radiative forcing clear-sky at TOA"    unit="W/m2" />
+        <field id="swsrfcs_ant"    long_name="Anthropogenic aerosol radiative forcing clear-sky at SRF"    unit="W/m2" />
+        <field id="swtoacf_nat"    long_name="Natural aerosol impact on cloud radiative forcing at TOA"    unit="W/m2" />
+        <field id="swsrfcf_nat"    long_name="Natural aerosol impact on cloud radiative forcing  at SRF"    unit="W/m2" />
+        <field id="swtoacf_ant"    long_name="Anthropogenic aerosol impact on cloud radiative forcing at TOA"    unit="W/m2" />
+        <field id="swsrfcf_ant"    long_name="Anthropogenic aerosol impact on cloud radiative forcing at SRF"    unit="W/m2" />
+        <field id="swtoacf_zero"    long_name="Cloud radiative forcing (allsky-clearsky fluxes) at TOA"    unit="W/m2" />
+        <field id="swsrfcf_zero"    long_name="Cloud radiative forcing (allsky-clearsky fluxes) at SRF"    unit="W/m2" />
+        <field id="cldncl"    long_name="CDNC at top of liquid water cloud"    unit="m-3" />
+        <field id="reffclwtop"    long_name="Droplet effective radius at top of liquid water cloud"    unit="m" />
+        <field id="cldnvi"    long_name="Column Integrated Cloud Droplet Number"    unit="m-2" />
+        <field id="lcc"    long_name="Cloud liquid fraction at top of cloud"    unit="1" />
+        <field id="wvapp"    long_name="-"    unit="-" />
+        <field id="albe_ter"    long_name="Albedo VIS surf. ter"    unit="-" />
+        <field id="albe_lic"    long_name="Albedo VIS surf. lic"    unit="-" />
+        <field id="albe_oce"    long_name="Albedo VIS surf. oce"    unit="-" />
+        <field id="albe_sic"    long_name="Albedo VIS surf. sic"    unit="-" />
+        <field id="ages_ter"    long_name="Snow age ter"    unit="day" />
+        <field id="ages_lic"    long_name="Snow age lic"    unit="day" />
+        <field id="ages_oce"    long_name="Snow age oce"    unit="day" />
+        <field id="ages_sic"    long_name="Snow age sic"    unit="day" />
+        <field id="snow_ter"    long_name="Snow"    unit="kg/m2" />
+        <field id="snow_lic"    long_name="Snow"    unit="kg/m2" />
+        <field id="snow_oce"    long_name="Snow"    unit="kg/m2" />
+        <field id="snow_sic"    long_name="Snow"    unit="kg/m2" />
+        <field id="rugs_ter"    long_name="Surface roughness ter"    unit="m" />
+        <field id="rugs_lic"    long_name="Surface roughness lic"    unit="m" />
+        <field id="rugs_oce"    long_name="Surface roughness oce"    unit="m" />
+        <field id="rugs_sic"    long_name="Surface roughness sic"    unit="m" />
+        <field id="z0m_ter"    long_name="roughness length, momentum ter"    unit="m" />
+        <field id="z0m_lic"    long_name="roughness length, momentum lic"    unit="m" />
+        <field id="z0m_oce"    long_name="roughness length, momentum oce"    unit="m" />
+        <field id="z0m_sic"    long_name="roughness length, momentum sic"    unit="m" />
+        <field id="z0h_ter"    long_name="roughness length, enthalpy ter"    unit="m" />
+        <field id="z0h_lic"    long_name="roughness length, enthalpy lic"    unit="m" />
+        <field id="z0h_oce"    long_name="roughness length, enthalpy oce"    unit="m" />
+        <field id="z0h_sic"    long_name="roughness length, enthalpy sic"    unit="m" />
+        <field id="sens_rain_oce"  long_name="Sensible heat flux associated withliquid prec. over ocean"    unit="W/m2" />
+        <field id="sens_rain_sic"  long_name="Sensible heat flux associated with liquid prec. over seaice"    unit="W/m2" />
+        <field id="sens_snow_oce"  long_name="Sensible heat flux associated with solid prec. over ocean"    unit="W/m2" />
+        <field id="sens_snow_sic"  long_name="Sensible heat flux associated with solid prec. over seaice"    unit="W/m2" />
+        <field id="lat_rain_oce"  long_name="Latent heat flux associated with liquid prec. over ocean"    unit="W/m2" />
+        <field id="lat_rain_sic"  long_name="Latent heat flux associated with liquid prec. over seaice"    unit="W/m2" />
+        <field id="lat_snow_oce"  long_name="Latent heat flux associated with solid prec. over ocean"    unit="W/m2" />
+        <field id="lat_snow_sic"  long_name="Latent heat flux associated with solid prec. over seaice"    unit="W/m2" />
+        <field id="alb1"    long_name="Surface VIS albedo"    unit="-" />
+        <field id="alb2"    long_name="Surface Near IR albedo"    unit="-" />
+        <field id="ftime_con"    long_name="Fraction of time convection Occurs"    unit="-" />
+        <field id="wake_h"    long_name="wake_h"    unit="-" />
+        <field id="wake_s"    long_name="wake_s"    unit="-" />
+        <field id="epmax"    long_name="epmax en fn cape"    unit="su" />
+        <field id="plulth"    long_name="Rainfall therm."    unit="K/s" />
+        <field id="plulst"    long_name="Rainfall strat."    unit="K/s" />
+        <field id="lmaxth"    long_name="Upper level thermals"    unit="-" />
+        <field id="ftime_th"    long_name="Fraction of time Shallow convection occurs"    unit="-" />
+        <field id="f0_th"    long_name="Thermal closure mass flux"    unit="K/s" />
+        <field id="zmax_th"    long_name="Thermal plume height"    unit="K/s" />
+        <field id="rsut4co2"    long_name="TOA Out SW in 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rlut4co2"    long_name="TOA Out LW in 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rsutcs4co2"    long_name="TOA Out CS SW in 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rlutcs4co2"    long_name="TOA Out CS LW in 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="dqphy2d"    long_name="Physics dQ"    unit="(kg/m2)/s" />
+        <field id="dqlphy2d"    long_name="Physics dQL"    unit="(kg/m2)/s" />
+        <field id="dqsphy2d"    long_name="Physics dQS"    unit="(kg/m2)/s" />
+        <field id="dqdyn2d"    long_name="Dynamics dQ"    unit="(kg/m2)/s" />
+        <field id="dqldyn2d"   long_name="Dynamics dQL"    unit="(kg/m2)/s" />
+        <field id="dqsdyn2d"   long_name="Dynamics dQS"    unit="(kg/m2)/s" />
+        <field id="dqcon2d"    long_name="Convection dQ"    unit="(kg/m2)/s" />
+        <field id="dqwak2d"    long_name="Wake dQ"    unit="(kg/m2)/s" />
+        <field id="dqlsc2d"    long_name="Condensation dQ"    unit="(kg/m2)/s" />
+        <field id="dqvdf2d"    long_name="Boundary-layer dQ"    unit="(kg/m2)/s" />
+        <field id="dqeva2d"    long_name="Reevaporation dQ"    unit="(kg/m2)/s" />
+        <field id="dqlscth2d"    long_name="dQ therm."    unit="(kg/m2)/s" />
+        <field id="dqlscst2d"    long_name="dQ strat."    unit="(kg/m2)/s" />
+        <field id="dqthe2d"    long_name="Thermal dQ"    unit="(kg/m2)/s" />
+        <field id="dqajs2d"    long_name="Dry ajdust dQ"    unit="(kg/m2)/s" />
+    </field_group>
+
+    <field_group id="fields_3D" domain_ref="dom_glo" axis_ref="presnivs">
+        <field id="tke"    long_name="TKE"    unit="m2/s2" />
+        <field id="tke_ter"    long_name="Max Turb. Kinetic Energy ter"    unit="m2/s2" />
+        <field id="tke_lic"    long_name="Max Turb. Kinetic Energy lic"    unit="m2/s2" />
+        <field id="tke_oce"    long_name="Max Turb. Kinetic Energy oce"    unit="m2/s2" />
+        <field id="tke_sic"    long_name="Max Turb. Kinetic Energy sic"    unit="m2/s2" />
+        <field id="tke_max_ter"    long_name="Max Turb. Kinetic Energy ter"    unit="m2/s2" />
+        <field id="tke_max_lic"    long_name="Max Turb. Kinetic Energy lic"    unit="m2/s2" />
+        <field id="tke_max_oce"    long_name="Max Turb. Kinetic Energy oce"    unit="m2/s2" />
+        <field id="tke_max_sic"    long_name="Max Turb. Kinetic Energy sic"    unit="m2/s2" />
+        <field id="l_mix_ter"    long_name="PBL mixing length ter"    unit="m" />
+        <field id="l_mix_lic"    long_name="PBL mixing length lic"    unit="m" />
+        <field id="l_mix_oce"    long_name="PBL mixing length oce"    unit="m" />
+        <field id="l_mix_sic"    long_name="PBL mixing length sic"    unit="m" />
+        <field id="l_mixmin_ter"    long_name="min PBL mixing length ter"    unit="m" />
+        <field id="l_mixmin_lic"    long_name="min PBL mixing length lic"    unit="m" />
+        <field id="l_mixmin_oce"    long_name="min PBL mixing length oce"    unit="m" />
+        <field id="l_mixmin_sic"    long_name="min PBL mixing length sic"    unit="m" />
+        <field id="dltpbltke_ter"    long_name="TKE difference (w - x)"    unit="m2/s2" />
+        <field id="dltpbltke_lic"    long_name="TKE difference (w - x)"    unit="m2/s2" />
+        <field id="dltpbltke_oce"    long_name="TKE difference (w - x)"    unit="m2/s2" />
+        <field id="dltpbltke_sic"    long_name="TKE difference (w - x)"    unit="m2/s2" />
+        <field id="cldtau"    long_name="Cloud optical thickness"    unit="1" />
+        <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" 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="concno3"    long_name="Concentration of Nitrate "    unit="kg/m3" /> 
+        <field id="concoa"    long_name="Concentration of Organic Aerosol "    unit="kg/m3" />
+        <field id="concbc"    long_name="Concentration of Black Carbon "    unit="kg/m3" />
+        <field id="concss"    long_name="Concentration of Sea Salt "    unit="kg/m3" />
+        <field id="concdust"    long_name="Concentration of Dust "    unit="kg/m3" />
+        <field id="ec550aer"    long_name="Extinction at 550nm"    unit="m^-1" />
+        <field id="lwcon"    long_name="Cloud liquid water content"    unit="kg/kg" />
+        <field id="iwcon"    long_name="Cloud ice water content"    unit="kg/kg" />
+        <field id="temp"    long_name="Air temperature"    unit="K" />
+        <field id="theta"    long_name="Potential air temperature"    unit="K" />
+        <field id="ovap"    long_name="Specific humidity"    unit="kg/kg" />
+        <field id="ovapinit"    long_name="Specific humidity (begin of timestep)"    unit="kg/kg" />
+        <field id="oliq"    long_name="Liquid water"    unit="kg/kg" />
+        <field id="ocond"    long_name="Condensed water"    unit="kg/kg" />
+        <field id="geop"    long_name="Geopotential height"    unit="m2/s2" />
+        <field id="vitu"    long_name="Zonal wind"    unit="m/s" />
+        <field id="vitv"    long_name="Meridional wind"    unit="m/s" />
+        <field id="vitw"    long_name="Vertical wind"    unit="Pa/s" />
+        <field id="pres"    long_name="Air pressure"    unit="Pa" />
+        <field id="paprs"    long_name="Air pressure Inter-Couches"    unit="Pa" />
+        <field id="mass"    long_name="Masse Couches"    unit="kg/m2" />
+        <field id="zfull"    long_name="Altitude of full pressure levels"    unit="m" />
+        <field id="zhalf"    long_name="Altitude of half pressure levels"    unit="m" />
+        <field id="rneb"    long_name="Cloud fraction"    unit="-" />
+        <field id="rnebcon"    long_name="Convective Cloud Fraction"    unit="-" />
+        <field id="rnebls"    long_name="LS Cloud fraction"    unit="-" />
+        <field id="rhum"    long_name="Relative humidity"    unit="-" />
+        <field id="ozone"    long_name="Ozone mole fraction"    unit="-" />
+        <field id="ozone_daylight"    long_name="Daylight ozone mole fraction"    unit="-" />
+        <field id="upwd"    long_name="saturated updraft"    unit="kg/m2/s" />
+        <field id="ep"    long_name="ep"    unit="su" />
+        <field id="dtphy"    long_name="Physics dT"    unit="K/s" />
+        <field id="dqphy"    long_name="Physics dQ"    unit="(kg/kg)/s" />
+        <field id="dqlphy"   long_name="Physics dQL"    unit="(kg/kg)/s" />
+        <field id="dqsphy"   long_name="Physics dQS"    unit="(kg/kg)/s" />
+        <field id="pr_con_l"    long_name="Convective precipitation lic"    unit="-" />
+        <field id="pr_con_i"    long_name="Convective precipitation ice"    unit="-" />
+        <field id="pr_lsc_l"    long_name="Large scale precipitation lic"    unit="-" />
+        <field id="pr_lsc_i"    long_name="Large scale precipitation ice"    unit="-" />
+        <field id="re"    long_name="Cloud droplet effective radius"    unit="um" />
+        <field id="fl"    long_name="Denominator of Cloud droplet effective radius"    unit="-" />
+        <field id="scdnc"    long_name="Cloud droplet number concentration"    unit="m-3" />
+        <field id="reffclws"    long_name="Stratiform Cloud Droplet Effective Radius (aerosol diags.)"    unit="m" />
+        <field id="reffclwc"    long_name="Convective Cloud Droplet Effective Radius (aerosol diags.)"    unit="m" />
+        <field id="lcc3d"    long_name="Cloud liquid fraction"    unit="1" />
+        <field id="lcc3dcon"    long_name="Convective cloud liquid fraction"    unit="1" />
+        <field id="lcc3dstra"    long_name="Stratiform cloud liquid fraction"    unit="1" />
+        <field id="clwcon"    long_name="Convective Cloud Liquid water content"    unit="kg/kg" />
+        <field id="Ma"    long_name="undilute adiab updraft"    unit="kg/m2/s" />
+        <field id="dnwd"    long_name="saturated downdraft"    unit="kg/m2/s" />
+        <field id="dnwd0"    long_name="unsat. downdraft"    unit="kg/m2/s" />
+        <field id="mc"    long_name="Convective mass flux"    unit="kg/m2/s" />
+        <field id="dtdyn"    long_name="Dynamics dT"    unit="K/s" />
+        <field id="dqdyn"    long_name="Dynamics dQ"    unit="(kg/kg)/s" />
+        <field id="dqldyn"    long_name="Dynamics dQL"    unit="(kg/kg)/s" />
+        <field id="dqsdyn"    long_name="Dynamics dQS"    unit="(kg/kg)/s" />
+        <field id="dudyn"    long_name="Dynamics dU"    unit="m/s2" />
+        <field id="dvdyn"    long_name="Dynamics dV"    unit="m/s2" />
+        <field id="dtcon"    long_name="Convection dT"    unit="K/s" />
+        <field id="ducon"    long_name="Convection du"    unit="m/s2" />
+        <field id="dvcon"    long_name="Convection dv"    unit="m/s2" />
+        <field id="dqcon"    long_name="Convection dQ"    unit="(kg/kg)/s" />
+        <field id="dtwak"    long_name="Wake dT"    unit="K/s" />
+        <field id="dqwak"    long_name="Wake dQ"    unit="(kg/kg)/s" />
+        <field id="wake_deltat"    long_name="wake_deltat"    unit="-" />
+        <field id="wake_deltaq"    long_name="wake_deltaq"    unit="-" />
+        <field id="wake_omg"    long_name="wake_omg"    unit="-" />
+        <field id="wdtrainA"    long_name="precipitation from AA"    unit="-" />
+        <field id="wdtrainM"    long_name="precipitation from mixture"    unit="-" />
+        <field id="Vprecip"    long_name="precipitation vertical profile"    unit="-" />
+        <field id="ftd"    long_name="tend temp due aux descentes precip"    unit="-" />
+        <field id="fqd"    long_name="tend vap eau due aux descentes precip"    unit="-" />
+        <field id="dtlsc"    long_name="Condensation dT"    unit="K/s" />
+        <field id="dtlschr"    long_name="Large-scale condensational heating rate"    unit="K/s" />
+        <field id="dqlsc"    long_name="Condensation dQ"    unit="(kg/kg)/s" />
+        <field id="beta_prec"    long_name="LS Conversion rate to prec"    unit="(kg/kg)/s" />
+        <field id="dtvdf"    long_name="Boundary-layer dT"    unit="K/s" />
+        <field id="dtdis"    long_name="TKE dissipation dT"    unit="K/s" />
+        <field id="dqvdf"    long_name="Boundary-layer dQ"    unit="(kg/kg)/s" />
+        <field id="dteva"    long_name="Reevaporation dT"    unit="K/s" />
+        <field id="dqeva"    long_name="Reevaporation dQ"    unit="(kg/kg)/s" />
+        <field id="dqlscth"    long_name="dQ therm."    unit="(kg/kg)/s" />
+        <field id="dqlscst"    long_name="dQ strat."    unit="(kg/kg)/s" />
+        <field id="dtlscth"    long_name="dQ therm."    unit="K/s" />
+        <field id="dtlscst"    long_name="dQ strat."    unit="K/s" />
+        <field id="ptconvth"    long_name="POINTS CONVECTIFS therm."    unit="-" />
+        <field id="ptconv"    long_name="POINTS CONVECTIFS"    unit="-" />
+        <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" />
+        <field id="w_th"    long_name="Thermal plume vertical velocity"    unit="m/s" />
+        <field id="lambda_th"    long_name="Thermal plume vertical velocity"    unit="m/s" />
+        <field id="q_th"    long_name="Thermal plume total humidity"    unit="kg/kg" />
+        <field id="a_th"    long_name="Thermal plume fraction"    unit="-" />
+        <field id="d_th"    long_name="Thermal plume detrainment"    unit="K/s" />
+        <field id="dqthe"    long_name="Thermal dQ"    unit="(kg/kg)/s" />
+        <field id="dtajs"    long_name="Dry adjust. dT"    unit="K/s" />
+        <field id="dqajs"    long_name="Dry adjust. dQ"    unit="(kg/kg)/s" />
+        <field id="dtswr"    long_name="SW radiation dT"    unit="K/s" />
+        <field id="dtsw0"    long_name="CS SW radiation dT"    unit="K/s" />
+        <field id="dtlwr"    long_name="LW radiation dT"    unit="K/s" />
+        <field id="dtlw0"    long_name="CS LW radiation dT"    unit="K/s" />
+        <field id="dtec"    long_name="Cinetic dissip dT"    unit="K/s" />
+        <field id="duvdf"    long_name="Boundary-layer dU"    unit="m/s2" />
+        <field id="dvvdf"    long_name="Boundary-layer dV"    unit="m/s2" />
+        <field id="duoro"    long_name="Orography dU"    unit="m/s2" />
+        <field id="dvoro"    long_name="Orography dV"    unit="m/s2" />
+        <field id="dulif"    long_name="Orography dU"    unit="m/s2" />
+        <field id="dvlif"    long_name="Orography dV"    unit="m/s2" />
+	<field id="du_gwd_hines" long_name="Hines GWD dU" unit="m/s2" />
+	<field id="dv_gwd_hines" long_name="Hines GWD dV" unit="m/s2" />
+	<field id="du_gwd_front" long_name="Fronts GWD dU" unit="m/s2" />
+	<field id="dv_gwd_front" long_name="Fronts GWD dV" unit="m/s2" />
+	<field id="east_gwstress" long_name="Eastward GW Stress" unit="Pa" />
+	<field id="west_gwstress" long_name="Westward GW Stress" unit="Pa" />
+        <field id="dtoro"    long_name="Orography dT"    unit="K/s" />
+        <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" 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" />
+        <field id="tntr"    long_name="Air temperature tendency due to Radiative heating"    unit="K s-1" />
+        <field id="tntscpbl"    long_name="Air temperature tendency due to St cloud and precipitation and BL mixing"    unit="K s-1" />
+        <field id="tnhus"    long_name="Tendency of specific humidity"    unit="s-1" />
+        <field id="tnhusc"    long_name="Tendency of specific humidity due to convection"    unit="s-1" />
+        <field id="tnhusscpbl"    long_name="Tendency of Specific humidity due to ST cl, precip and BL mixing"    unit="s-1" />
+        <field id="evu"    long_name="Eddy viscosity coefficient for Momentum Variables"    unit="m2 s-1" />
+        <field id="h2o"    long_name="Mass Fraction of Water"    unit="1" />
+        <field id="mcd"    long_name="Downdraft COnvective Mass Flux"    unit="kg/(m2*s)" />
+        <field id="dmc"    long_name="Deep COnvective Mass Flux"    unit="kg/(m2*s)" />
+        <field id="ref_liq"    long_name="Effective radius of convective cloud liquid water particle"    unit="m" />
+        <field id="ref_ice"    long_name="Effective radius of startiform cloud ice particle"    unit="m" />
+        <field id="rsu4co2"    long_name="Upwelling SW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rlu4co2"    long_name="Upwelling LW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rsucs4co2"    long_name="Upwelling CS SW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rlucs4co2"    long_name="Upwelling CS LW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rsd4co2"    long_name="Downwelling SW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rld4co2"    long_name="Downwelling LW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rsdcs4co2"    long_name="Downwelling CS SW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="rldcs4co2"    long_name="Downwelling CS LW 4xCO2 atmosphere"    unit="W/m2" />
+        <field id="stratomask"    long_name="Stratospheric fraction"    unit="-" />
+    </field_group>
+    
+    <field_group  id="fields_NMC" domain_ref="dom_glo" axis_ref="plev">
+<!--  <field id="tnondef" long_name="Undefined value of T" unit="K" /> -->
+      <field id="ta" long_name="Air temperature" unit="K" />
+      <field id="zg" long_name="Geopotential height" unit="m" />
+      <field id="hus" long_name="Specific humidity" unit="1" />
+      <field id="hur" long_name="Relative humidity" unit="%" />
+      <field id="ua" long_name="Eastward wind" unit="m s-1" />
+      <field id="va" long_name="Northward wind" unit="m s-1" />
+      <field id="wap" long_name="Lagrangian tendency of air pressure" unit="Pa s-1" />
+<!--  <field id="psbg" long_name="Pressure sfce below ground" unit="%" /> -->
+      <field id="tro3" long_name="Ozone mole fraction" unit="1e-9" />
+      <field id="tro3_daylight" long_name="Daylight ozone mole fraction" unit="1e-9" />
+      <field id="uv" long_name="uv" unit="m2/s2" />
+      <field id="vxq" long_name="vxq" unit="m/s * (kg/kg)" />
+      <field id="vT" long_name="vT" unit="mK/s" />
+      <field id="wq" long_name="wq" unit="(Pa/s)*(kg/kg)" />
+      <field id="vphi" long_name="vphi" unit="m2/s" />
+      <field id="wT" long_name="wT" unit="K*Pa/s" />
+      <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" freq_op="3h">
+      <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="height" />
+      <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="Ncrefl"  long_name="Nb for PARASOL-like mono-directional reflectance" unit="1" axis_ref="sza" />
+      <field id="c01_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c02_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c03_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c04_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c05_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c06_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c07_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c08_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c09_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c10_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c11_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c12_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c13_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c14_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <field id="c15_cfad_lidarsr532" long_name="Lidar Scattering Ratio CFAD (532 nm)" unit="1" axis_ref="height" />
+      <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 id="cllcalipsoice"    long_name="Lidar Ice-Phase Low-level Cloud Fraction"   unit="%" />
+      <field id="clhcalipsoice"    long_name="Lidar Ice-Phase Hight-level Cloud Fraction"   unit="%" />
+      <field id="clmcalipsoice"    long_name="Lidar Ice-Phase Mid-level Cloud Fraction"   unit="%" />
+      <field id="cltcalipsoice"    long_name="Lidar Ice-Phase Total Cloud Fraction"   unit="%" />
+      <field id="clcalipsoice"  long_name="Lidar Ice-Phase Cloud Fraction (532 nm)" unit="%" axis_ref="height" />
+      <field id="cllcalipsoliq"    long_name="Lidar Liq-Phase Low-level Cloud Fraction"   unit="%" />
+      <field id="clhcalipsoliq"    long_name="Lidar Liq-Phase Hight-level Cloud Fraction"   unit="%" />
+      <field id="clmcalipsoliq"    long_name="Lidar Liq-Phase Mid-level Cloud Fraction"   unit="%" />
+      <field id="cltcalipsoliq"    long_name="Lidar Liq-Phase Total Cloud Fraction"   unit="%" />
+      <field id="clcalipsoliq"  long_name="Lidar Liq-Phase Cloud Fraction (532 nm)" unit="%" axis_ref="height" />
+      <field id="cllcalipsoun"    long_name="Lidar Undefined-Phase Low-level Cloud Fraction"   unit="%" />
+      <field id="clhcalipsoun"    long_name="Lidar Undefined-Phase Hight-level Cloud Fraction"   unit="%" />
+      <field id="clmcalipsoun"    long_name="Lidar Undefined-Phase Mid-level Cloud Fraction"   unit="%" />
+      <field id="cltcalipsoun"    long_name="Lidar Undefined-Phase Total Cloud Fraction"   unit="%" />
+      <field id="clcalipsoun"  long_name="Lidar Undefined-Phase Cloud Fraction (532 nm)" unit="%" axis_ref="height" />
+      <field id="clcalipsotmp"  long_name="Lidar Cloud Fraction (532 nm)" unit="%" axis_ref="temp" />
+      <field id="clcalipsotmpliq"  long_name="Lidar Liq-Phase Cloud Fraction (532 nm)" unit="%" axis_ref="temp" />
+      <field id="clcalipsotmpice"  long_name="Lidar Ice-Phase Cloud Fraction (532 nm)" unit="%" axis_ref="temp" />
+      <field id="clcalipsotmpun"  long_name="Undefined-Phase Total Cloud Fraction"   unit="%" axis_ref="temp" />
+    </field_group>  
+
+    <field_group id="fields_COSP_CLOUDSAT" domain_ref="dom_glo" freq_op="3h">
+      <field id="cltlidarradar" long_name="Lidar and Radar Total Cloud Fraction" unit="%" />
+      <field id="clcalipso2"  long_name="CALIPSO Cloud Fraction Undetected by CloudSat" unit="%" axis_ref="height" />
+      <field id="c01_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c02_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c03_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c04_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c05_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c06_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c07_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c08_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c09_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c10_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c11_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c12_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c13_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c14_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c15_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c16_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c17_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c18_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c19_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c20_dbze94" long_name="CloudSat Radar Reflectivity" unit="1" axis_ref="height_mlev" />
+      <field id="c01_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c02_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c03_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c04_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c05_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c06_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c07_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c08_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c09_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c10_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c11_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c12_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c13_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c14_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+      <field id="c15_cfadDbze94" long_name="CloudSat Radar Reflectivity CFAD" unit="1" axis_ref="height" />
+    </field_group>
+
+    <field_group id="fields_COSP_ISCCP" domain_ref="dom_glo" freq_op="3h">
+      <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_group id="fields_COSP_MISR" domain_ref="dom_glo" freq_op="3h">
+      <field id="c01_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+      <field id="c02_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+      <field id="c03_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+      <field id="c04_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+      <field id="c05_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+      <field id="c06_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+      <field id="c07_clMISR" long_name="Cloud Fraction as Calculated by the MISR Simulator" unit="1" axis_ref="cth16" />
+    </field_group>
+
+    <field_group id="fields_COSP_MODIS" domain_ref="dom_glo" freq_op="3h">
+      <field id="cllmodis" long_name="MODIS Low-level Cloud Fraction" unit="1" />
+      <field id="clmmodis" long_name="MODIS Mid-level Cloud Fraction" unit="1" />
+      <field id="clhmodis" long_name="MODIS Hight-level Cloud Fraction" unit="1" />
+      <field id="cltmodis" long_name="MODIS Total Cloud Fraction" unit="1" />
+      <field id="clwmodis" long_name="MODIS Cloud Fraction water mean" unit="1" />
+      <field id="climodis" long_name="MODIS Cloud Fraction ice mean" unit="1" />
+      <field id="tautmodis" long_name="MODIS Optical_Thickness_Total_Mean" unit="1" />
+      <field id="tauwmodis" long_name="MODIS Optical_Thickness_Water_Mean" unit="1" />
+      <field id="tauimodis" long_name="MODIS Optical_Thickness_Ice_Mean" unit="1" />
+      <field id="tautlogmodis" long_name="MODIS Optical_Thickness_Total_logMean" unit="1" />
+      <field id="tauwlogmodis" long_name="MODIS Optical_Thickness_Water_logMean" unit="1" />
+      <field id="tauilogmodis" long_name="MODIS Optical_Thickness_Ice_logMean" unit="1" />
+      <field id="reffclwmodis"  long_name="Modis Cloud_Particle_Size_Water_Mean" unit="m" />
+      <field id="reffclimodis"  long_name="Modis Cloud_Particle_Size_Ice_Mean" unit="m" />
+      <field id="pctmodis"  long_name="Modis Cloud_Top_Pressure_Total_Mean" unit="Pa" />
+      <field id="lwpmodis" long_name="Modis Liquid_Water_Path_Mean" unit="kg m-2" />
+      <field id="iwpmodis" long_name="Modis Ice_Water_Path_Mean" unit="kg m-2" />
+      <field id="c01_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+      <field id="c02_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+      <field id="c03_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+      <field id="c04_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+      <field id="c05_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+      <field id="c06_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+      <field id="c07_clmodis" long_name="MODIS Cloud Area Fraction" unit="1" axis_ref="pressure2" />
+    </field_group>
+
+    <field_group id="fields_AIRS" domain_ref="dom_glo" operation="instant" freq_op="3h">
+      <field id="alt_tropo" long_name="Tropopause pressure" unit="hPa" />
+      <field id="map_prop_hc" long_name="Proportion of high clouds" unit=" "/>
+      <field id="map_prop_hist" long_name="Proportion of high ice semi-transp clouds" unit=" "/>
+      <field id="map_emis_hc" long_name="Emissivity of high clouds" unit=" "/>
+      <field id="map_iwp_hc" long_name="Ice water path of high clouds" unit="g/m2"/>
+      <field id="map_deltaz_hc" long_name="geom thickness of high clouds" unit="m"/>
+      <field id="map_pcld_hc" long_name="cloud pressure of high clouds" unit="hPa"/>
+      <field id="map_tcld_hc" long_name="cloud temperature of high clouds" unit="K"/>
+      <field id="map_emis_hist" long_name="Emissivity of high ice st clouds" unit=" "/>
+      <field id="map_iwp_hist" long_name="Ice water path of high ice st clouds" unit="g/m2"/>
+      <field id="map_deltaz_hist" long_name="geom thickness of high ice st clouds" unit="m"/>
+      <field id="map_rad_hist" long_name="ice crystals radius in high ice st clouds" unit="m"/>
+      <field id="map_emis_Cb" long_name="Emissivity of high Cb clouds" unit=" "/>
+      <field id="map_pcld_Cb" long_name="cloud pressure of high Cb clouds" unit="hPa"/>
+      <field id="map_tcld_Cb" long_name="cloud temperature of high Cb clouds" unit="K"/>
+      <field id="map_emis_Anv" long_name="Emissivity of high Anv clouds" unit=" "/>
+      <field id="map_pcld_Anv" long_name="cloud pressure of high Anv clouds" unit="hPa"/>
+      <field id="map_tcld_Anv" long_name="cloud temperature of high Anv clouds" unit="K"/>
+      <field id="map_emis_ThCi" long_name="Emissivity of high ThCi clouds" unit=" "/>
+      <field id="map_pcld_ThCi" long_name="cloud pressure of high ThCi clouds" unit="hPa"/>
+      <field id="map_tcld_ThCi" long_name="cloud temperature of high ThCi clouds" unit="K"/>
+      <field id="map_ntot" long_name="total AIRS cloud fraction" unit=" "/>
+      <field id="map_hc" long_name="high clouds AIRS cloud fraction" unit=" "/>
+      <field id="map_hist" long_name="high clouds ice st AIRS cloud fraction" unit=" "/>
+      <field id="map_Cb" long_name="high clouds Cb AIRS cloud fraction" unit=" "/>
+      <field id="map_ThCi" long_name="high clouds ThCi AIRS cloud fraction" unit=" "/>
+      <field id="map_Anv" long_name="high clouds Anv AIRS cloud fraction" unit=" "/>
+    </field_group>
+
+</field_definition>
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histLES_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histLES_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histLES_lmdz.xml	(revision 3330)
@@ -0,0 +1,570 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histLES" name="XhistLES" output_freq="1h" output_level="5" enabled=".FALSE.">
+            
+            <!-- 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>    -->
+        
+            <!-- VARS 2D -->
+            <field_group operation="average" freq_op="1ts">
+                <field field_ref="phis" level="1" />
+                <field field_ref="aire" level="1" operation="once" />
+                <field field_ref="contfracATM" level="10" operation="once" />
+                <field field_ref="contfracOR" level="10" />
+                <field field_ref="aireTER" level="10" />
+                <field field_ref="flat" level="5" />
+                <field field_ref="slp" level="10" />
+                <field field_ref="ptstar" level="10" />
+                <field field_ref="pt0" level="10" />
+                <field field_ref="tsol" level="10" />
+                <field field_ref="t2m" level="10" />
+                <field field_ref="t2m_min" level="10" operation="minimum" />
+                <field field_ref="t2m_max" level="10" operation="maximum" />
+                <field field_ref="t2m_ter" level="10" />
+                <field field_ref="t2m_lic" level="10" />
+                <field field_ref="t2m_oce" level="10" />
+                <field field_ref="t2m_sic" level="10" />
+                <field field_ref="gusts" level="10" />
+                <field field_ref="wind10m" level="10" />
+                <field field_ref="wind10max" level="10" operation="maximum" />
+                <field field_ref="sicf" level="10" />
+                <field field_ref="q2m" level="10" />
+                <field field_ref="ustar" level="10" />
+                <field field_ref="u10m" level="10" />
+                <field field_ref="v10m" level="10" />
+                <field field_ref="psol" level="10" />
+                <field field_ref="qsurf" level="10" />
+                <field field_ref="ustar_ter" level="10" />
+                <field field_ref="ustar_lic" level="10" />
+                <field field_ref="ustar_oce" level="10" />
+                <field field_ref="ustar_sic" level="10" />
+                <field field_ref="wstar_ter" level="10" />
+                <field field_ref="wstar_lic" level="10" />
+                <field field_ref="wstar_oce" level="10" />
+                <field field_ref="wstar_sic" level="10" />
+                <field field_ref="wstar" level="10" />
+                <field field_ref="u10m_ter" level="10" />
+                <field field_ref="u10m_lic" level="10" />
+                <field field_ref="u10m_oce" level="10" />
+                <field field_ref="u10m_sic" level="10" />
+                <field field_ref="v10m_ter" level="10" />
+                <field field_ref="v10m_lic" level="10" />
+                <field field_ref="v10m_oce" level="10" />
+                <field field_ref="v10m_sic" level="10" />
+                <field field_ref="qsol" level="10" />
+                <field field_ref="ndayrain" level="10" operation="instant" />
+                <field field_ref="precip" level="5" />
+                <field field_ref="plul" level="10" />
+                <field field_ref="plun" level="10" />
+                <field field_ref="pluc" level="5" />
+                <field field_ref="snow" level="5" />
+                <field field_ref="evap" level="10" />
+                <field field_ref="evap_ter" level="10" />
+                <field field_ref="evap_lic" level="10" />
+                <field field_ref="evap_oce" level="10" />
+                <field field_ref="evap_sic" level="10" />
+                <field field_ref="msnow" level="10" />
+                <field field_ref="fsnow" level="10" />
+                <field field_ref="tops" level="10" />
+                <field field_ref="tops0" level="10" />
+                <field field_ref="topl" level="10" />
+                <field field_ref="topl0" level="10" />
+                <field field_ref="SWupTOA" level="10" />
+                <field field_ref="SWupTOAclr" level="10" />
+                <field field_ref="SWdnTOA" level="10" />
+                <field field_ref="SWdnTOAclr" level="10" />
+                <field field_ref="nettop" level="10" />
+                <field field_ref="SWup200" level="10" />
+                <field field_ref="SWup200clr" level="10" />
+                <field field_ref="SWdn200" level="10" />
+                <field field_ref="SWdn200clr" level="10" />
+                <field field_ref="LWup200" level="10" />
+                <field field_ref="LWup200clr" level="10" />
+                <field field_ref="LWdn200" level="10" />
+                <field field_ref="LWdn200clr" level="10" />
+                <field field_ref="sols" level="10" />
+                <field field_ref="sols0" level="10" />
+                <field field_ref="soll" level="10" />
+                <field field_ref="soll0" level="10" />
+                <field field_ref="radsol" level="10" />
+                <field field_ref="SWupSFC" level="5" />
+                <field field_ref="SWupSFCclr" level="5" />
+                <field field_ref="SWdnSFC" level="5" />
+                <field field_ref="SWdnSFCclr" level="5" />
+                <field field_ref="LWupSFC" level="5" />
+                <field field_ref="LWupSFCclr" level="5" />
+                <field field_ref="LWdnSFC" level="5" />
+                <field field_ref="LWdnSFCclr" level="5" />
+                <field field_ref="bils" level="10" />
+                <field field_ref="bils_tke" level="10" />
+                <field field_ref="bils_diss" level="10" />
+                <field field_ref="bils_ec" level="10" />
+                <field field_ref="bils_kinetic" level="10" />
+                <field field_ref="bils_enthalp" level="10" />
+                <field field_ref="bils_latent" level="10" />
+                <field field_ref="sens" level="5" />
+                <field field_ref="fder" level="10" />
+                <field field_ref="ffonte" level="10" />
+                <field field_ref="fqcalving" level="10" />
+                <field field_ref="fqfonte" level="10" />
+                <field field_ref="runofflic" level="10" />
+                <field field_ref="taux" level="10" />
+                <field field_ref="tauy" level="10" />
+                <field field_ref="taux_ter" level="10" />
+                <field field_ref="taux_lic" level="10" />
+                <field field_ref="taux_oce" level="10" />
+                <field field_ref="taux_sic" level="10" />
+                <field field_ref="tauy_ter" level="10" />
+                <field field_ref="tauy_lic" level="10" />
+                <field field_ref="tauy_oce" level="10" />
+                <field field_ref="tauy_sic" level="10" />
+                <field field_ref="pourc_ter" level="10" />
+                <field field_ref="pourc_lic" level="10" />
+                <field field_ref="pourc_oce" level="10" />
+                <field field_ref="pourc_sic" level="10" />
+                <field field_ref="fract_ter" level="10" />
+                <field field_ref="fract_lic" level="10" />
+                <field field_ref="fract_oce" level="10" />
+                <field field_ref="fract_sic" level="10" />
+                <field field_ref="tsol_ter" level="10" />
+                <field field_ref="tsol_lic" level="10" />
+                <field field_ref="tsol_oce" level="10" />
+                <field field_ref="tsol_sic" level="10" />
+                <field field_ref="evappot_ter" level="10" />
+                <field field_ref="evappot_lic" level="10" />
+                <field field_ref="evappot_oce" level="10" />
+                <field field_ref="evappot_sic" level="10" />
+                <field field_ref="sens_ter" level="10" />
+                <field field_ref="sens_lic" level="10" />
+                <field field_ref="sens_oce" level="10" />
+                <field field_ref="sens_sic" level="10" />
+                <field field_ref="lat_ter" level="10" />
+                <field field_ref="lat_lic" level="10" />
+                <field field_ref="lat_oce" level="10" />
+                <field field_ref="lat_sic" level="10" />
+                <field field_ref="flw_ter" level="10" />
+                <field field_ref="flw_lic" level="10" />
+                <field field_ref="flw_oce" level="10" />
+                <field field_ref="flw_sic" level="10" />
+                <field field_ref="fsw_ter" level="10" />
+                <field field_ref="fsw_lic" level="10" />
+                <field field_ref="fsw_oce" level="10" />
+                <field field_ref="fsw_sic" level="10" />
+                <field field_ref="wbils_ter" level="10" />
+                <field field_ref="wbils_lic" level="10" />
+                <field field_ref="wbils_oce" level="10" />
+                <field field_ref="wbils_sic" level="10" />
+                <field field_ref="wbilo_ter" level="10" />
+                <field field_ref="wbilo_lic" level="10" />
+                <field field_ref="wbilo_oce" level="10" />
+                <field field_ref="wbilo_sic" level="10" />
+                <field field_ref="cdrm" level="10" />
+                <field field_ref="cdrh" level="10" />
+                <field field_ref="cldl" level="10" />
+                <field field_ref="cldm" level="10" />
+                <field field_ref="cldh" level="10" />
+                <field field_ref="cldt" level="5" />
+                <field field_ref="cldq" level="10" />
+                <field field_ref="lwp" level="10" />
+                <field field_ref="iwp" level="10" />
+                <field field_ref="ue" level="10" />
+                <field field_ref="ve" level="10" />
+                <field field_ref="uq" level="10" />
+                <field field_ref="vq" level="10" />
+                <field field_ref="cape" level="10" />
+                <field field_ref="pbase" level="10" />
+                <field field_ref="ptop" level="10" />
+                <field field_ref="fbase" level="10" />
+                <field field_ref="plcl" level="10" />
+                <field field_ref="plfc" level="10" />
+                <field field_ref="wbeff" level="10" />
+                <field field_ref="prw" level="10" />
+                <field field_ref="prlw" level="10" />
+                <field field_ref="prsw" level="10" />
+                <field field_ref="s_pblh" level="10" />
+                <field field_ref="s_pblt" level="10" />
+                <field field_ref="s_lcl" level="10" />
+                <field field_ref="s_therm" level="10" />
+                <field field_ref="slab_bils_oce" level="10" />
+                <field field_ref="ale_bl" level="10" />
+                <field field_ref="alp_bl" level="10" />
+                <field field_ref="ale_wk" level="10" />
+                <field field_ref="alp_wk" level="10" />
+                <field field_ref="ale" level="10" />
+                <field field_ref="alp" level="10" />
+                <field field_ref="cin" level="10" />
+                <field field_ref="wape" level="10" />
+                <field field_ref="n2" level="10" />
+                <field field_ref="s2" level="10" />
+                <field field_ref="proba_notrig" level="10" />
+                <field field_ref="random_notrig" level="10" />
+                <field field_ref="ale_bl_stat" level="10" />
+                <field field_ref="ale_bl_trig" level="10" />
+                <field field_ref="alp_bl_det" level="10" />
+                <field field_ref="alp_bl_fluct_m" level="10" />
+                <field field_ref="alp_bl_fluct_tke" level="10" />
+                <field field_ref="alp_bl_conv" level="10" />
+                <field field_ref="alp_bl_stat" level="10" />
+
+                <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+                    <field field_ref="u850" level="10" />
+                    <field field_ref="u700" level="10" />
+                    <field field_ref="u500" level="10" />
+                    <field field_ref="u200" level="10" />
+                    <field field_ref="u100" level="10" />
+                    <field field_ref="u50" level="10" />
+                    <field field_ref="u10" level="10" />
+                    <field field_ref="v850" level="10" />
+                    <field field_ref="v700" level="10" />
+                    <field field_ref="v500" level="10" />
+                    <field field_ref="v200" level="10" />
+                    <field field_ref="v100" level="10" />
+                    <field field_ref="v50" level="10" />
+                    <field field_ref="v10" level="10" />
+                    <field field_ref="w850" level="10" />
+                    <field field_ref="w700" level="10" />
+                    <field field_ref="w500" level="10" />
+                    <field field_ref="w200" level="10" />
+                    <field field_ref="w100" level="10" />
+                    <field field_ref="w50" level="10" />
+                    <field field_ref="w10" level="10" />
+                    <field field_ref="t850" level="10" />
+                    <field field_ref="t700" level="10" />
+                    <field field_ref="t500" level="10" />
+                    <field field_ref="t200" level="10" />
+                    <field field_ref="t100" level="10" />
+                    <field field_ref="t50" level="10" />
+                    <field field_ref="t10" level="10" />
+                    <field field_ref="q850" level="10" />
+                    <field field_ref="q700" level="10" />
+                    <field field_ref="q500" level="10" />
+                    <field field_ref="q200" level="10" />
+                    <field field_ref="q100" level="10" />
+                    <field field_ref="q50" level="10" />
+                    <field field_ref="q10" level="10" />
+                    <field field_ref="z850" level="10" />
+                    <field field_ref="z700" level="10" />
+                    <field field_ref="z500" level="10" />
+                    <field field_ref="z200" level="10" />
+                    <field field_ref="z100" level="10" />
+                    <field field_ref="z50" level="10" />
+                    <field field_ref="z10" level="10" />
+                </field_group>
+
+                <field field_ref="t_oce_sic" level="10" />
+                <field field_ref="weakinv" level="10" />
+                <field field_ref="dthmin" level="10" />
+                <field field_ref="u10_ter" level="10" />
+                <field field_ref="u10_lic" level="10" />
+                <field field_ref="u10_oce" level="10" />
+                <field field_ref="u10_sic" level="10" />
+                <field field_ref="v10_ter" level="10" />
+                <field field_ref="v10_lic" level="10" />
+                <field field_ref="v10_oce" level="10" />
+                <field field_ref="v10_sic" level="10" />
+                <field field_ref="rh2m" level="10" />
+                <field field_ref="rh2m_min" level="10" operation="minimum" />
+                <field field_ref="rh2m_max" level="10" operation="maximum" />
+                <field field_ref="qsat2m" level="10" />
+                <field field_ref="tpot" level="10" />
+                <field field_ref="tpote" level="10" />
+                <field field_ref="tke" level="10" />
+                <field field_ref="tke_ter" level="10" />
+                <field field_ref="tke_lic" level="10" />
+                <field field_ref="tke_oce" level="10" />
+                <field field_ref="tke_sic" level="10" />
+                <field field_ref="tke_max_ter" level="10" operation="maximum" />
+                <field field_ref="tke_max_lic" level="10" operation="maximum" />
+                <field field_ref="tke_max_oce" level="10" operation="maximum" />
+                <field field_ref="tke_max_sic" level="10" operation="maximum" />
+                <field field_ref="l_mix_ter" level="10" />
+                <field field_ref="l_mix_lic" level="10" />
+                <field field_ref="l_mix_oce" level="10" />
+                <field field_ref="l_mix_sic" level="10" />
+                <field field_ref="l_mixmin_ter" level="10" />
+                <field field_ref="l_mixmin_lic" level="10" />
+                <field field_ref="l_mixmin_oce" level="10" />
+                <field field_ref="l_mixmin_sic" level="10" />
+                <field field_ref="SWnetOR" level="10" />
+                <field field_ref="SWdownOR" level="10" />
+                <field field_ref="LWdownOR" level="10" />
+                <field field_ref="snowl" level="10" />
+                <field field_ref="cape_max" level="10" operation="maximum" />
+                <field field_ref="solldown" level="10" />
+                <field field_ref="dtsvdfo" level="10" />
+                <field field_ref="dtsvdft" level="10" />
+                <field field_ref="dtsvdfg" level="10" />
+                <field field_ref="dtsvdfi" level="10" />
+                <field field_ref="rugs" level="10" />
+                <field field_ref="z0m" level="10" />
+                <field field_ref="z0h" level="10" />
+                <field field_ref="topswad" level="10" />
+                <field field_ref="topswad0" level="10" />
+                <field field_ref="topswai" level="10" />
+                <field field_ref="solswad" level="10" />
+                <field field_ref="solswad0" level="10" />
+                <field field_ref="solswai" level="10" />
+                <field field_ref="OD550_ASBCM" level="10" />
+                <field field_ref="OD550_ASPOMM" level="10" />
+                <field field_ref="OD550_ASSO4M" level="10" />
+                <field field_ref="OD550_CSSO4M" level="10" />
+                <field field_ref="OD550_SSSSM" level="10" />
+                <field field_ref="OD550_ASSSM" level="10" />
+                <field field_ref="OD550_CSSSM" level="10" />
+                <field field_ref="OD550_CIDUSTM" level="10" />
+                <field field_ref="OD550_AIBCM" level="10" />
+                <field field_ref="OD550_AIPOMM" level="10" />
+                <field field_ref="OD550_STRAT" level="10" />
+                <field field_ref="od550aer" level="10" />
+                <field field_ref="od865aer" level="10" />
+                <field field_ref="absvisaer" level="10" />
+                <field field_ref="od550lt1aer" level="10" />
+                <field field_ref="sconcso4" level="10" />
+                <field field_ref="sconcoa" level="10" />
+                <field field_ref="sconcbc" level="10" />
+                <field field_ref="sconcss" level="10" />
+                <field field_ref="sconcdust" level="10" />
+                <field field_ref="loadso4" level="10" />
+                <field field_ref="loadoa" level="10" />
+                <field field_ref="loadbc" level="10" />
+                <field field_ref="loadss" level="10" />
+                <field field_ref="loaddust" level="10" />
+                <field field_ref="swtoaas_nat" level="10" />
+                <field field_ref="swsrfas_nat" level="10" />
+                <field field_ref="swtoacs_nat" level="10" />
+                <field field_ref="swsrfcs_nat" level="10" />
+                <field field_ref="swtoaas_ant" level="10" />
+                <field field_ref="swsrfas_ant" level="10" />
+                <field field_ref="swtoacs_ant" level="10" />
+                <field field_ref="swsrfcs_ant" level="10" />
+                <field field_ref="swtoacf_nat" level="10" />
+                <field field_ref="swsrfcf_nat" level="10" />
+                <field field_ref="swtoacf_ant" level="10" />
+                <field field_ref="swsrfcf_ant" level="10" />
+                <field field_ref="swtoacf_zero" level="10" />
+                <field field_ref="swsrfcf_zero" level="10" />
+                <field field_ref="cldncl" level="10" />
+                <field field_ref="reffclwtop" level="10" />
+                <field field_ref="cldnvi" level="10" />
+                <field field_ref="lcc" level="10" />
+                <field field_ref="wvapp" level="10" />
+                <field field_ref="ozone_daylight" level="10" />
+                <field field_ref="albe_ter" level="10" />
+                <field field_ref="albe_lic" level="10" />
+                <field field_ref="albe_oce" level="10" />
+                <field field_ref="albe_sic" level="10" />
+                <field field_ref="ages_ter" level="10" />
+                <field field_ref="ages_lic" level="10" />
+                <field field_ref="ages_oce" level="10" />
+                <field field_ref="ages_sic" level="10" />
+                <field field_ref="snow_ter" level="10" />
+                <field field_ref="snow_lic" level="10" />
+                <field field_ref="snow_oce" level="10" />
+                <field field_ref="snow_sic" level="10" />
+                <field field_ref="rugs_ter" level="10" />
+                <field field_ref="rugs_lic" level="10" />
+                <field field_ref="rugs_oce" level="10" />
+                <field field_ref="rugs_sic" level="10" />
+                <field field_ref="z0m_ter" level="10" />
+                <field field_ref="z0m_lic" level="10" />
+                <field field_ref="z0m_oce" level="10" />
+                <field field_ref="z0m_sic" level="10" />
+                <field field_ref="z0h_ter" level="10" />
+                <field field_ref="z0h_lic" level="10" />
+                <field field_ref="z0h_oce" level="10" />
+                <field field_ref="z0h_sic" level="10" />
+                <field field_ref="alb1" level="10" />
+                <field field_ref="alb2" level="10" />
+                <field field_ref="ftime_con" level="10" operation="instant" />
+                <field field_ref="wake_h" level="10" />
+                <field field_ref="wake_s" level="10" />
+                <field field_ref="epmax" level="10" />
+                <field field_ref="plulth" level="10" />
+                <field field_ref="plulst" level="10" />
+                <field field_ref="lmaxth" level="10" />
+                <field field_ref="ftime_th" level="10" />
+                <field field_ref="f0_th" level="10" />
+                <field field_ref="zmax_th" level="10" />
+                <field field_ref="rsut4co2" level="10" />
+                <field field_ref="rlut4co2" level="10" />
+                <field field_ref="rsutcs4co2" level="10" />
+                <field field_ref="rlutcs4co2" level="10" />
+                <field field_ref="dqphy2d" level="10" />
+                <field field_ref="dqlphy2d" level="10" />
+                <field field_ref="dqsphy2d" level="10" />
+                <field field_ref="dqdyn2d" level="10" />
+                <field field_ref="dqldyn2d" level="10" />
+                <field field_ref="dqsdyn2d" level="10" />
+                <field field_ref="dqcon2d" level="10" />
+                <field field_ref="dqwak2d" level="10" />
+                <field field_ref="dqlsc2d" level="10" />
+                <field field_ref="dqvdf2d" level="10" />
+                <field field_ref="dqeva2d" level="10" />
+                <field field_ref="dqlscth2d" level="10" />
+                <field field_ref="dqlscst2d" level="10" />
+                <field field_ref="dqthe2d" level="10" />
+                <field field_ref="dqajs2d" level="10" />
+            </field_group>
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" axis_ref="presnivs">
+                <field field_ref="cldtau" level="10" />
+                <field field_ref="cldemi" level="10" />
+                <field field_ref="tke_max" level="10" operation="maximum" />
+                <field field_ref="kz" level="10" />
+                <field field_ref="kz_max" level="10" operation="maximum" />
+                <field field_ref="concso4" level="10" />
+                <field field_ref="concoa" level="10" />
+                <field field_ref="concbc" level="10" />
+                <field field_ref="concss" level="10" />
+                <field field_ref="concdust" level="10" />
+                <field field_ref="ec550aer" level="10" />
+                <field field_ref="lwcon" level="10" />
+                <field field_ref="iwcon" level="10" />
+                <field field_ref="temp" level="10" />
+                <field field_ref="theta" level="10" />
+                <field field_ref="ovap" level="10" />
+                <field field_ref="ovapinit" level="10" />
+                <field field_ref="oliq" level="10" />
+                <field field_ref="ocond" level="10" />
+                <field field_ref="geop" level="10" />
+                <field field_ref="vitu" level="10" />
+                <field field_ref="vitv" level="10" />
+                <field field_ref="vitw" level="10" />
+                <field field_ref="pres" level="10" />
+                <field field_ref="paprs" level="10" />
+                <field field_ref="mass" level="10" />
+                <field field_ref="zfull" level="10" />
+                <field field_ref="zhalf" level="10" />
+                <field field_ref="rneb" level="10" />
+                <field field_ref="rnebcon" level="10" />
+                <field field_ref="rnebls" level="10" />
+                <field field_ref="rhum" level="10" />
+                <field field_ref="ozone" level="10" />
+                <field field_ref="upwd" level="10" />
+                <field field_ref="ep" level="10" />
+                <field field_ref="dtphy" level="10" />
+                <field field_ref="dqphy" level="10" />
+                <field field_ref="dqlphy" level="10" />
+                <field field_ref="dqsphy" level="10" />
+                <field field_ref="pr_con_l" level="10" />
+                <field field_ref="pr_con_i" level="10" />
+                <field field_ref="pr_lsc_l" level="10" />
+                <field field_ref="pr_lsc_i" level="10" />
+                <field field_ref="re" level="10" />
+                <field field_ref="fl" level="10" />
+                <field field_ref="scdnc" level="10" />
+                <field field_ref="reffclws" level="10" />
+                <field field_ref="reffclwc" level="10" />
+                <field field_ref="lcc3d" level="10" />
+                <field field_ref="lcc3dcon" level="10" />
+                <field field_ref="lcc3dstra" level="10" />
+                <field field_ref="clwcon" level="10" />
+                <field field_ref="Ma" level="10" />
+                <field field_ref="dnwd" level="10" />
+                <field field_ref="dnwd0" level="10" />
+                <field field_ref="mc" level="10" />
+                <field field_ref="dtdyn" level="10" />
+                <field field_ref="dqdyn" level="10" />
+                <field field_ref="dqldyn" level="10" />
+                <field field_ref="dqsdyn" level="10" />
+                <field field_ref="dudyn" level="10" />
+                <field field_ref="dvdyn" level="10" />
+                <field field_ref="dtcon" level="10" />
+                <field field_ref="ducon" level="10" />
+                <field field_ref="dvcon" level="10" />
+                <field field_ref="dqcon" level="10" />
+                <field field_ref="dtwak" level="10" />
+                <field field_ref="dqwak" level="10" />
+                <field field_ref="wake_deltat" level="10" />
+                <field field_ref="wake_deltaq" level="10" />
+                <field field_ref="wake_omg" level="10" />
+                <field field_ref="wdtrainA" level="1" />
+                <field field_ref="wdtrainM" level="1" />
+                <field field_ref="Vprecip" level="10" />
+                <field field_ref="ftd" level="10" />
+                <field field_ref="fqd" level="10" />
+                <field field_ref="dtlsc" level="10" />
+                <field field_ref="dtlschr" level="10" />
+                <field field_ref="dqlsc" level="10" />
+                <field field_ref="beta_prec" level="10" />
+                <field field_ref="dtvdf" level="10" />
+                <field field_ref="dtdis" level="10" />
+                <field field_ref="dqvdf" level="10" />
+                <field field_ref="dteva" level="10" />
+                <field field_ref="dqeva" level="10" />
+                <field field_ref="dqlscth" level="10" />
+                <field field_ref="dqlscst" level="10" />
+                <field field_ref="dtlscth" level="10" />
+                <field field_ref="dtlscst" level="10" />
+                <field field_ref="ptconvth" level="10" />
+                <field field_ref="ptconv" level="10" />
+                <field field_ref="ratqs" level="10" />
+                <field field_ref="dtthe" level="10" />
+                <field field_ref="f_th" level="10" />
+                <field field_ref="e_th" level="10" />
+                <field field_ref="w_th" level="10" />
+                <field field_ref="lambda_th" level="10" />
+                <field field_ref="q_th" level="10" />
+                <field field_ref="a_th" level="10" />
+                <field field_ref="d_th" level="10" />
+                <field field_ref="dqthe" level="10" />
+                <field field_ref="dtajs" level="10" />
+                <field field_ref="dqajs" level="10" />
+                <field field_ref="dtswr" level="10" />
+                <field field_ref="dtsw0" level="10" />
+                <field field_ref="dtlwr" level="10" />
+                <field field_ref="dtlw0" level="10" />
+                <field field_ref="dtec" level="10" />
+                <field field_ref="duvdf" level="10" />
+                <field field_ref="dvvdf" level="10" />
+                <field field_ref="duoro" level="10" />
+                <field field_ref="dvoro" level="10" />
+                <field field_ref="dulif" level="10" />
+                <field field_ref="dvlif" level="10" />
+                <field field_ref="du_gwd_hines" level="10" />
+                <field field_ref="dv_gwd_hines" level="10" />
+                <field field_ref="du_gwd_front" level="10" />
+                <field field_ref="dv_gwd_front" level="10" />
+                <field field_ref="east_gwstress" level="10" />
+                <field field_ref="west_gwstress" level="10" />
+                <field field_ref="dtoro" level="10" />
+                <field field_ref="dtlif" level="10" />
+                <field field_ref="dthin" level="10" />
+                <field field_ref="rsu" level="10" />
+                <field field_ref="rsd" level="10" />
+                <field field_ref="rlu" level="10" />
+                <field field_ref="rld" level="10" />
+                <field field_ref="rsucs" level="10" />
+                <field field_ref="rsdcs" level="10" />
+                <field field_ref="rlucs" level="10" />
+                <field field_ref="rldcs" level="10" />
+                <field field_ref="tnt" level="10" />
+                <field field_ref="tntc" level="10" />
+                <field field_ref="tntr" level="10" />
+                <field field_ref="tntscpbl" level="10" />
+                <field field_ref="tnhus" level="10" />
+                <field field_ref="tnhusc" level="10" />
+                <field field_ref="tnhusscpbl" level="10" />
+                <field field_ref="evu" level="10" />
+                <field field_ref="h2o" level="10" />
+                <field field_ref="mcd" level="10" />
+                <field field_ref="dmc" level="10" />
+                <field field_ref="ref_liq" level="10" />
+                <field field_ref="ref_ice" level="10" />
+                <field field_ref="rsu4co2" level="10" />
+                <field field_ref="rlu4co2" level="10" />
+                <field field_ref="rsucs4co2" level="10" />
+                <field field_ref="rlucs4co2" level="10" />
+                <field field_ref="rsd4co2" level="10" />
+                <field field_ref="rld4co2" level="10" />
+                <field field_ref="rsdcs4co2" level="10" />
+                <field field_ref="rldcs4co2" level="10" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histdayCOSP_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histdayCOSP_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histdayCOSP_lmdz.xml	(revision 3330)
@@ -0,0 +1,171 @@
+<file_definition>
+     <file_group id="defile">
+        <file id="histdayCOSP" name="histdayCOSP" output_freq="1d" output_level="1"  enabled="_AUTO_">
+
+            <!-- VARS Calipso and PARASOL -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <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="cllcalipsoice"         level="1" />
+                <field field_ref="clmcalipsoice"         level="1" />
+                <field field_ref="clhcalipsoice"         level="1" />
+                <field field_ref="cltcalipsoice"         level="1" />
+                <field field_ref="cllcalipsoliq"         level="1" />
+                <field field_ref="clmcalipsoliq"         level="1" />
+                <field field_ref="clhcalipsoliq"         level="1" />
+                <field field_ref="cltcalipsoliq"         level="1" />
+                <field field_ref="cllcalipsoun"         level="1" />
+                <field field_ref="clmcalipsoun"         level="1" />
+                <field field_ref="clhcalipsoun"         level="1" />
+                <field field_ref="cltcalipsoun"         level="1" />
+                <field field_ref="clcalipso"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoice"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoliq"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoun"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsotmp"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpice"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpliq"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpun"  level="1" axis_ref="temp" />
+                <field field_ref="parasol_refl"  level="1" axis_ref="sza" />
+                <field field_ref="parasol_crefl"  level="1" axis_ref="sza" />
+                <field field_ref="Ncrefl"  level="1" axis_ref="sza" />
+       		    <field field_ref="c01_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c02_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c03_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c04_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c05_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c06_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c07_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c08_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c09_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c10_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c11_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c12_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c13_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c14_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c15_cfad_lidarsr532"  level="10" axis_ref="height" />
+                <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_group>
+             <!-- VARS CLOUDSAT et/ou Calipso -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true."> 
+               <field field_ref="cltlidarradar"  level="1"/>
+               <field field_ref="clcalipso2"  level="1" axis_ref="height" />
+               <field field_ref="c01_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c02_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c03_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c04_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c05_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c06_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c07_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c08_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c09_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c10_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c11_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c12_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c13_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c14_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c15_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c01_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c02_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c03_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c04_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c05_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c06_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c07_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c08_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c09_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c10_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c11_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c12_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c13_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c14_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c15_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c16_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c17_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c18_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c19_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c20_dbze94" level="10" axis_ref="height_mlev" />
+              </field_group>
+             <!-- VARS ISCCP -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <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="1" />
+                <field field_ref="tauisccp" level="1" /> 
+                <field field_ref="albisccp" level="1" />
+                <field field_ref="meantbisccp" level="10" />
+                <field field_ref="meantbclrisccp" level="10" />
+             </field_group>
+             <!-- VARS MISR -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <field field_ref="c01_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c02_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c03_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c04_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c05_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c06_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c07_clMISR" level="1" axis_ref="cth16" />
+            </field_group>
+
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <field field_ref="cllmodis" level="1" />
+                <field field_ref="clmmodis" level="1" />
+                <field field_ref="clhmodis" level="1" />
+                <field field_ref="cltmodis" level="1" />
+                <field field_ref="clwmodis" level="1" />
+                <field field_ref="climodis" level="1" />
+                <field field_ref="tautmodis" level="1" />
+                <field field_ref="tauwmodis" level="1" />
+                <field field_ref="tauimodis" level="1" />
+                <field field_ref="tautlogmodis" level="1" />
+                <field field_ref="tauilogmodis" level="1" />
+                <field field_ref="tauwlogmodis" level="1" />
+                <field field_ref="reffclwmodis" level="1" />
+                <field field_ref="reffclimodis" level="1" />
+                <field field_ref="pctmodis"  unit="1" />
+                <field field_ref="lwpmodis" level="1" />
+                <field field_ref="iwpmodis" level="1" />
+                <field field_ref="c01_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c02_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c03_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c04_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c05_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c06_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c07_clmodis" level="1" axis_ref="pressure2" />
+            </field_group>
+
+        </file>
+     </file_group>
+</file_definition>
+   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histdayNMC_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histdayNMC_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histdayNMC_lmdz.xml	(revision 3330)
@@ -0,0 +1,30 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histdayNMC" name="histdayNMC" output_freq="1d" output_level="5" enabled="_AUTO_">
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+<!--            <field field_ref="tnondef" level="5" /> -->
+                <field field_ref="ta" level="1" />
+                <field field_ref="zg" level="5" />
+                <field field_ref="hus" level="5" />
+                <field field_ref="hur" level="5" />
+                <field field_ref="ua" level="5" />
+                <field field_ref="va" level="5" />
+                <field field_ref="wap" level="5" />
+<!--            <field field_ref="psbg" level="5" /> -->
+                <field field_ref="tro3" level="5" />
+                <field field_ref="tro3_daylight" level="5" />
+                <field field_ref="uv" level="6" />
+                <!-- <field field_ref="vq" level="6" /> -->
+                <field field_ref="vT" level="6" />
+                <field field_ref="wq" level="6" />
+                <field field_ref="vphi" level="6" />
+                <field field_ref="wT" level="6" />
+                <field field_ref="u2" level="6" />
+                <field field_ref="v2" level="6" />
+                <field field_ref="T2" level="6" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histday_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histday_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histday_lmdz.xml	(revision 3330)
@@ -0,0 +1,570 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histday" name="histday" output_freq="1d" output_level="2" enabled="_AUTO_">
+            
+            <!-- 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> -->
+        
+            <!-- VARS 2D -->
+            <field_group operation="average" freq_op="1ts">
+                <field field_ref="phis" level="1" />
+                <field field_ref="aire" level="1" operation="once" />
+                <field field_ref="contfracATM" level="1" operation="once" />
+                <field field_ref="contfracOR" level="1" />
+                <field field_ref="aireTER" level="10" />
+                <field field_ref="flat" level="1" />
+                <field field_ref="slp" level="1" />
+                <field field_ref="ptstar" level="1" />
+                <field field_ref="pt0" level="1" />
+                <field field_ref="tsol" level="1" />
+                <field field_ref="t2m" level="1" />
+                <field field_ref="t2m_min" level="1" operation="minimum" />
+                <field field_ref="t2m_max" level="1" operation="maximum" />
+                <field field_ref="t2m_ter" level="6" />
+                <field field_ref="t2m_lic" level="6" />
+                <field field_ref="t2m_oce" level="6" />
+                <field field_ref="t2m_sic" level="6" />
+                <field field_ref="gusts" level="1" />
+                <field field_ref="wind10m" level="1" />
+                <field field_ref="wind10max" level="1" operation="maximum" />
+                <field field_ref="sicf" level="1" />
+                <field field_ref="q2m" level="1" />
+                <field field_ref="ustar" level="1" />
+                <field field_ref="u10m" level="1" />
+                <field field_ref="v10m" level="1" />
+                <field field_ref="psol" level="1" />
+                <field field_ref="qsurf" level="10" />
+                <field field_ref="ustar_ter" level="6" />
+                <field field_ref="ustar_lic" level="6" />
+                <field field_ref="ustar_oce" level="6" />
+                <field field_ref="ustar_sic" level="6" />
+                <field field_ref="wstar_ter" level="6" />
+                <field field_ref="wstar_lic" level="6" />
+                <field field_ref="wstar_oce" level="6" />
+                <field field_ref="wstar_sic" level="6" />
+                <field field_ref="wstar" level="5" />
+                <field field_ref="u10m_ter" level="6" />
+                <field field_ref="u10m_lic" level="6" />
+                <field field_ref="u10m_oce" level="6" />
+                <field field_ref="u10m_sic" level="6" />
+                <field field_ref="v10m_ter" level="6" />
+                <field field_ref="v10m_lic" level="6" />
+                <field field_ref="v10m_oce" level="6" />
+                <field field_ref="v10m_sic" level="6" />
+                <field field_ref="qsol" level="10" />
+                <field field_ref="ndayrain" level="10" operation="instant" />
+                <field field_ref="precip" level="1" />
+                <field field_ref="plul" level="1" />
+                <field field_ref="plun" level="1" />
+                <field field_ref="pluc" level="1" />
+                <field field_ref="snow" level="1" />
+                <field field_ref="evap" level="1" />
+                <field field_ref="evap_ter" level="6" />
+                <field field_ref="evap_lic" level="6" />
+                <field field_ref="evap_oce" level="6" />
+                <field field_ref="evap_sic" level="6" />
+                <field field_ref="msnow" level="10" />
+                <field field_ref="fsnow" level="10" />
+                <field field_ref="tops" level="1" />
+                <field field_ref="tops0" level="5" />
+                <field field_ref="topl" level="1" />
+                <field field_ref="topl0" level="5" />
+                <field field_ref="SWupTOA" level="4" />
+                <field field_ref="SWupTOAclr" level="4" />
+                <field field_ref="SWdnTOA" level="4" />
+                <field field_ref="SWdnTOAclr" level="4" />
+                <field field_ref="nettop" level="4" />
+                <field field_ref="SWup200" level="10" />
+                <field field_ref="SWup200clr" level="1" />
+                <field field_ref="SWdn200" level="10" />
+                <field field_ref="SWdn200clr" level="1" />
+                <field field_ref="LWup200" level="10" />
+                <field field_ref="LWup200clr" level="10" />
+                <field field_ref="LWdn200" level="10" />
+                <field field_ref="LWdn200clr" level="10" />
+                <field field_ref="sols" level="1" />
+                <field field_ref="sols0" level="5" />
+                <field field_ref="soll" level="1" />
+                <field field_ref="soll0" level="5" />
+                <field field_ref="radsol" level="7" />
+                <field field_ref="SWupSFC" level="4" />
+                <field field_ref="SWupSFCclr" level="4" />
+                <field field_ref="SWdnSFC" level="1" />
+                <field field_ref="SWdnSFCclr" level="4" />
+                <field field_ref="LWupSFC" level="4" />
+                <field field_ref="LWupSFCclr" level="4" />
+                <field field_ref="LWdnSFC" level="4" />
+                <field field_ref="LWdnSFCclr" level="4" />
+                <field field_ref="bils" level="2" />
+                <field field_ref="bils_tke" level="2" />
+                <field field_ref="bils_diss" level="2" />
+                <field field_ref="bils_ec" level="2" />
+                <field field_ref="bils_kinetic" level="2" />
+                <field field_ref="bils_enthalp" level="2" />
+                <field field_ref="bils_latent" level="2" />
+                <field field_ref="sens" level="1" />
+                <field field_ref="fder" level="2" />
+                <field field_ref="ffonte" level="10" />
+                <field field_ref="fqcalving" level="10" />
+                <field field_ref="fqfonte" level="10" />
+                <field field_ref="runofflic" level="10" />
+                <field field_ref="taux" level="10" />
+                <field field_ref="tauy" level="10" />
+                <field field_ref="taux_ter" level="6" />
+                <field field_ref="taux_lic" level="6" />
+                <field field_ref="taux_oce" level="6" />
+                <field field_ref="taux_sic" level="6" />
+                <field field_ref="tauy_ter" level="6" />
+                <field field_ref="tauy_lic" level="6" />
+                <field field_ref="tauy_oce" level="6" />
+                <field field_ref="tauy_sic" level="6" />
+                <field field_ref="pourc_ter" level="7" />
+                <field field_ref="pourc_lic" level="7" />
+                <field field_ref="pourc_oce" level="7" />
+                <field field_ref="pourc_sic" level="7" />
+                <field field_ref="fract_ter" level="6" />
+                <field field_ref="fract_lic" level="6" />
+                <field field_ref="fract_oce" level="6" />
+                <field field_ref="fract_sic" level="6" />
+                <field field_ref="tsol_ter" level="6" />
+                <field field_ref="tsol_lic" level="6" />
+                <field field_ref="tsol_oce" level="6" />
+                <field field_ref="tsol_sic" level="6" />
+                <field field_ref="evappot_ter" level="6" />
+                <field field_ref="evappot_lic" level="6" />
+                <field field_ref="evappot_oce" level="6" />
+                <field field_ref="evappot_sic" level="6" />
+                <field field_ref="sens_ter" level="6" />
+                <field field_ref="sens_lic" level="6" />
+                <field field_ref="sens_oce" level="6" />
+                <field field_ref="sens_sic" level="6" />
+                <field field_ref="lat_ter" level="6" />
+                <field field_ref="lat_lic" level="6" />
+                <field field_ref="lat_oce" level="6" />
+                <field field_ref="lat_sic" level="6" />
+                <field field_ref="flw_ter" level="10" />
+                <field field_ref="flw_lic" level="10" />
+                <field field_ref="flw_oce" level="10" />
+                <field field_ref="flw_sic" level="10" />
+                <field field_ref="fsw_ter" level="10" />
+                <field field_ref="fsw_lic" level="10" />
+                <field field_ref="fsw_oce" level="10" />
+                <field field_ref="fsw_sic" level="10" />
+                <field field_ref="wbils_ter" level="10" />
+                <field field_ref="wbils_lic" level="10" />
+                <field field_ref="wbils_oce" level="10" />
+                <field field_ref="wbils_sic" level="10" />
+                <field field_ref="wbilo_ter" level="10" />
+                <field field_ref="wbilo_lic" level="10" />
+                <field field_ref="wbilo_oce" level="10" />
+                <field field_ref="wbilo_sic" level="10" />
+                <field field_ref="cdrm" level="10" />
+                <field field_ref="cdrh" level="10" />
+                <field field_ref="cldl" level="1" />
+                <field field_ref="cldm" level="1" />
+                <field field_ref="cldh" level="1" />
+                <field field_ref="cldt" level="1" />
+                <field field_ref="cldq" level="1" />
+                <field field_ref="lwp" level="5" />
+                <field field_ref="iwp" level="5" />
+                <field field_ref="ue" level="10" />
+                <field field_ref="ve" level="10" />
+                <field field_ref="uq" level="10" />
+                <field field_ref="vq" level="10" />
+                <field field_ref="cape" level="10" />
+                <field field_ref="pbase" level="5" />
+                <field field_ref="ptop" level="5" />
+                <field field_ref="fbase" level="10" />
+                <field field_ref="plcl" level="10" />
+                <field field_ref="plfc" level="10" />
+                <field field_ref="wbeff" level="10" />
+                <field field_ref="prw" level="1" />
+                <field field_ref="prlw" level="1" />
+                <field field_ref="prsw" level="1" />
+                <field field_ref="s_pblh" level="10" />
+                <field field_ref="s_pblt" level="10" />
+                <field field_ref="s_lcl" level="10" />
+                <field field_ref="s_therm" level="10" />
+                <field field_ref="slab_bils_oce" level="1" />
+                <field field_ref="ale_bl" level="1" />
+                <field field_ref="alp_bl" level="1" />
+                <field field_ref="ale_wk" level="1" />
+                <field field_ref="alp_wk" level="1" />
+                <field field_ref="ale" level="1" />
+                <field field_ref="alp" level="1" />
+                <field field_ref="cin" level="1" />
+                <field field_ref="wape" level="1" />
+                <field field_ref="n2" level="1" />
+                <field field_ref="s2" level="1" />
+                <field field_ref="proba_notrig" level="1" />
+                <field field_ref="random_notrig" level="1" />
+                <field field_ref="ale_bl_stat" level="1" />
+                <field field_ref="ale_bl_trig" level="1" />
+                <field field_ref="alp_bl_det" level="1" />
+                <field field_ref="alp_bl_fluct_m" level="1" />
+                <field field_ref="alp_bl_fluct_tke" level="1" />
+                <field field_ref="alp_bl_conv" level="1" />
+                <field field_ref="alp_bl_stat" level="1" />
+
+                <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+                    <field field_ref="u850" level="7" />
+                    <field field_ref="u700" level="7" />
+                    <field field_ref="u500" level="7" />
+                    <field field_ref="u200" level="7" />
+                    <field field_ref="u100" level="7" />
+                    <field field_ref="u50" level="7" />
+                    <field field_ref="u10" level="7" />
+                    <field field_ref="v850" level="7" />
+                    <field field_ref="v700" level="7" />
+                    <field field_ref="v500" level="7" />
+                    <field field_ref="v200" level="7" />
+                    <field field_ref="v100" level="7" />
+                    <field field_ref="v50" level="7" />
+                    <field field_ref="v10" level="7" />
+                    <field field_ref="w850" level="7" />
+                    <field field_ref="w700" level="7" />
+                    <field field_ref="w500" level="7" />
+                    <field field_ref="w200" level="7" />
+                    <field field_ref="w100" level="7" />
+                    <field field_ref="w50" level="7" />
+                    <field field_ref="w10" level="7" />
+                    <field field_ref="t850" level="7" />
+                    <field field_ref="t700" level="7" />
+                    <field field_ref="t500" level="7" />
+                    <field field_ref="t200" level="7" />
+                    <field field_ref="t100" level="7" />
+                    <field field_ref="t50" level="7" />
+                    <field field_ref="t10" level="7" />
+                    <field field_ref="q850" level="7" />
+                    <field field_ref="q700" level="7" />
+                    <field field_ref="q500" level="7" />
+                    <field field_ref="q200" level="7" />
+                    <field field_ref="q100" level="7" />
+                    <field field_ref="q50" level="7" />
+                    <field field_ref="q10" level="7" />
+                    <field field_ref="z850" level="7" />
+                    <field field_ref="z700" level="7" />
+                    <field field_ref="z500" level="7" />
+                    <field field_ref="z200" level="7" />
+                    <field field_ref="z100" level="7" />
+                    <field field_ref="z50" level="7" />
+                    <field field_ref="z10" level="7" />
+                </field_group>
+
+                <field field_ref="t_oce_sic" level="10" />
+                <field field_ref="weakinv" level="1" />
+                <field field_ref="dthmin" level="1" />
+                <field field_ref="u10_ter" level="4" />
+                <field field_ref="u10_lic" level="4" />
+                <field field_ref="u10_oce" level="4" />
+                <field field_ref="u10_sic" level="4" />
+                <field field_ref="v10_ter" level="4" />
+                <field field_ref="v10_lic" level="4" />
+                <field field_ref="v10_oce" level="4" />
+                <field field_ref="v10_sic" level="4" />
+                <field field_ref="rh2m" level="5" />
+                <field field_ref="rh2m_min" level="5" operation="minimum" />
+                <field field_ref="rh2m_max" level="5" operation="maximum" />
+                <field field_ref="qsat2m" level="5" />
+                <field field_ref="tpot" level="5" />
+                <field field_ref="tpote" level="5" />
+                <field field_ref="tke" level="10" />
+                <field field_ref="tke_ter" level="4" />
+                <field field_ref="tke_lic" level="4" />
+                <field field_ref="tke_oce" level="4" />
+                <field field_ref="tke_sic" level="4" />
+                <field field_ref="tke_max_ter" level="4" operation="maximum" />
+                <field field_ref="tke_max_lic" level="4" operation="maximum" />
+                <field field_ref="tke_max_oce" level="4" operation="maximum" />
+                <field field_ref="tke_max_sic" level="4" operation="maximum" />
+                <field field_ref="l_mix_ter" level="10" />
+                <field field_ref="l_mix_lic" level="10" />
+                <field field_ref="l_mix_oce" level="10" />
+                <field field_ref="l_mix_sic" level="10" />
+                <field field_ref="l_mixmin_ter" level="10" />
+                <field field_ref="l_mixmin_lic" level="10" />
+                <field field_ref="l_mixmin_oce" level="10" />
+                <field field_ref="l_mixmin_sic" level="10" />
+                <field field_ref="SWnetOR" level="10" />
+                <field field_ref="SWdownOR" level="10" />
+                <field field_ref="LWdownOR" level="10" />
+                <field field_ref="snowl" level="1" />
+                <field field_ref="cape_max" level="1" operation="maximum" />
+                <field field_ref="solldown" level="1" />
+                <field field_ref="dtsvdfo" level="10" />
+                <field field_ref="dtsvdft" level="10" />
+                <field field_ref="dtsvdfg" level="10" />
+                <field field_ref="dtsvdfi" level="10" />
+                <field field_ref="rugs" level="10" />
+                <field field_ref="z0m" level="10" />
+                <field field_ref="z0h" level="10" />
+                <field field_ref="topswad" level="10" />
+                <field field_ref="topswad0" level="10" />
+                <field field_ref="topswai" level="10" />
+                <field field_ref="solswad" level="10" />
+                <field field_ref="solswad0" level="10" />
+                <field field_ref="solswai" level="10" />
+                <field field_ref="OD550_ASBCM" level="6" />
+                <field field_ref="OD550_ASPOMM" level="6" />
+                <field field_ref="OD550_ASSO4M" level="6" />
+                <field field_ref="OD550_CSSO4M" level="6" />
+                <field field_ref="OD550_SSSSM" level="6" />
+                <field field_ref="OD550_ASSSM" level="6" />
+                <field field_ref="OD550_CSSSM" level="6" />
+                <field field_ref="OD550_CIDUSTM" level="6" />
+                <field field_ref="OD550_AIBCM" level="6" />
+                <field field_ref="OD550_AIPOMM" level="6" />
+                <field field_ref="OD550_STRAT" level="2" />
+                <field field_ref="od550aer" level="6" />
+                <field field_ref="od865aer" level="6" />
+                <field field_ref="absvisaer" level="6" />
+                <field field_ref="od550lt1aer" level="6" />
+                <field field_ref="sconcso4" level="6" />
+                <field field_ref="sconcoa" level="6" />
+                <field field_ref="sconcbc" level="6" />
+                <field field_ref="sconcss" level="6" />
+                <field field_ref="sconcdust" level="6" />
+                <field field_ref="loadso4" level="6" />
+                <field field_ref="loadoa" level="6" />
+                <field field_ref="loadbc" level="6" />
+                <field field_ref="loadss" level="6" />
+                <field field_ref="loaddust" level="6" />
+                <field field_ref="swtoaas_nat" level="6" />
+                <field field_ref="swsrfas_nat" level="6" />
+                <field field_ref="swtoacs_nat" level="6" />
+                <field field_ref="swsrfcs_nat" level="6" />
+                <field field_ref="swtoaas_ant" level="6" />
+                <field field_ref="swsrfas_ant" level="6" />
+                <field field_ref="swtoacs_ant" level="6" />
+                <field field_ref="swsrfcs_ant" level="6" />
+                <field field_ref="swtoacf_nat" level="6" />
+                <field field_ref="swsrfcf_nat" level="6" />
+                <field field_ref="swtoacf_ant" level="6" />
+                <field field_ref="swsrfcf_ant" level="6" />
+                <field field_ref="swtoacf_zero" level="6" />
+                <field field_ref="swsrfcf_zero" level="6" />
+                <field field_ref="cldncl" level="6" />
+                <field field_ref="reffclwtop" level="6" />
+                <field field_ref="cldnvi" level="6" />
+                <field field_ref="lcc" level="6" />
+                <field field_ref="wvapp" level="10" />
+                <field field_ref="ozone_daylight" level="10" />
+                <field field_ref="albe_ter" level="7" />
+                <field field_ref="albe_lic" level="7" />
+                <field field_ref="albe_oce" level="7" />
+                <field field_ref="albe_sic" level="7" />
+                <field field_ref="ages_ter" level="10" />
+                <field field_ref="ages_lic" level="10" />
+                <field field_ref="ages_oce" level="10" />
+                <field field_ref="ages_sic" level="10" />
+                <field field_ref="snow_ter" level="10" />
+                <field field_ref="snow_lic" level="10" />
+                <field field_ref="snow_oce" level="10" />
+                <field field_ref="snow_sic" level="10" />
+                <field field_ref="rugs_ter" level="6" />
+                <field field_ref="rugs_lic" level="6" />
+                <field field_ref="rugs_oce" level="6" />
+                <field field_ref="rugs_sic" level="6" />
+                <field field_ref="z0m_ter" level="6" />
+                <field field_ref="z0m_lic" level="6" />
+                <field field_ref="z0m_oce" level="6" />
+                <field field_ref="z0m_sic" level="6" />
+                <field field_ref="z0h_ter" level="6" />
+                <field field_ref="z0h_lic" level="6" />
+                <field field_ref="z0h_oce" level="6" />
+                <field field_ref="z0h_sic" level="6" />
+                <field field_ref="alb1" level="10" />
+                <field field_ref="alb2" level="10" />
+                <field field_ref="ftime_con" level="10" operation="instant" />
+                <field field_ref="wake_h" level="5" />
+                <field field_ref="wake_s" level="5" />
+                <field field_ref="epmax" level="10" />
+                <field field_ref="plulth" level="10" />
+                <field field_ref="plulst" level="10" />
+                <field field_ref="lmaxth" level="10" />
+                <field field_ref="ftime_th" level="10" />
+                <field field_ref="f0_th" level="10" />
+                <field field_ref="zmax_th" level="4" />
+                <field field_ref="rsut4co2" level="10" />
+                <field field_ref="rlut4co2" level="10" />
+                <field field_ref="rsutcs4co2" level="10" />
+                <field field_ref="rlutcs4co2" level="10" />
+                <field field_ref="dqphy2d" level="10" />
+                <field field_ref="dqlphy2d" level="10" />
+                <field field_ref="dqsphy2d" level="10" />
+                <field field_ref="dqdyn2d" level="10" />
+                <field field_ref="dqldyn2d" level="10" />
+                <field field_ref="dqsdyn2d" level="10" />
+                <field field_ref="dqcon2d" level="10" />
+                <field field_ref="dqwak2d" level="10" />
+                <field field_ref="dqlsc2d" level="10" />
+                <field field_ref="dqvdf2d" level="10" />
+                <field field_ref="dqeva2d" level="10" />
+                <field field_ref="dqlscth2d" level="10" />
+                <field field_ref="dqlscst2d" level="10" />
+                <field field_ref="dqthe2d" level="10" />
+                <field field_ref="dqajs2d" level="10" />
+            </field_group>
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" axis_ref="presnivs">
+                <field field_ref="cldtau" level="5" />
+                <field field_ref="cldemi" level="5" />
+                <field field_ref="tke_max" level="10" operation="maximum" />
+                <field field_ref="kz" level="10" />
+                <field field_ref="kz_max" level="10" operation="maximum" />
+                <field field_ref="concso4" level="6" />
+                <field field_ref="concoa" level="6" />
+                <field field_ref="concbc" level="6" />
+                <field field_ref="concss" level="6" />
+                <field field_ref="concdust" level="6" />
+                <field field_ref="ec550aer" level="6" />
+                <field field_ref="lwcon" level="5" />
+                <field field_ref="iwcon" level="5" />
+                <field field_ref="temp" level="3" />
+                <field field_ref="theta" level="3" />
+                <field field_ref="ovap" level="3" />
+                <field field_ref="ovapinit" level="10" />
+                <field field_ref="oliq" level="3" />
+                <field field_ref="ocond" level="3" />
+                <field field_ref="geop" level="3" />
+                <field field_ref="vitu" level="3" />
+                <field field_ref="vitv" level="3" />
+                <field field_ref="vitw" level="3" />
+                <field field_ref="pres" level="3" />
+                <field field_ref="paprs" level="3" />
+                <field field_ref="mass" level="3" />
+                <field field_ref="zfull" level="3" />
+                <field field_ref="zhalf" level="3" />
+                <field field_ref="rneb" level="5" />
+                <field field_ref="rnebcon" level="5" />
+                <field field_ref="rnebls" level="5" />
+                <field field_ref="rhum" level="5" />
+                <field field_ref="ozone" level="10" />
+                <field field_ref="upwd" level="10" />
+                <field field_ref="ep" level="10" />
+                <field field_ref="dtphy" level="10" />
+                <field field_ref="dqphy" level="10" />
+                <field field_ref="dqlphy" level="10" />
+                <field field_ref="dqsphy" level="10" />
+                <field field_ref="pr_con_l" level="10" />
+                <field field_ref="pr_con_i" level="10" />
+                <field field_ref="pr_lsc_l" level="10" />
+                <field field_ref="pr_lsc_i" level="10" />
+                <field field_ref="re" level="10" />
+                <field field_ref="fl" level="10" />
+                <field field_ref="scdnc" level="6" />
+                <field field_ref="reffclws" level="6" />
+                <field field_ref="reffclwc" level="6" />
+                <field field_ref="lcc3d" level="6" />
+                <field field_ref="lcc3dcon" level="6" />
+                <field field_ref="lcc3dstra" level="6" />
+                <field field_ref="clwcon" level="10" />
+                <field field_ref="Ma" level="10" />
+                <field field_ref="dnwd" level="10" />
+                <field field_ref="dnwd0" level="10" />
+                <field field_ref="mc" level="5" />
+                <field field_ref="dtdyn" level="10" />
+                <field field_ref="dqdyn" level="10" />
+                <field field_ref="dqldyn" level="10" />
+                <field field_ref="dqsdyn" level="10" />
+                <field field_ref="dudyn" level="10" />
+                <field field_ref="dvdyn" level="10" />
+                <field field_ref="dtcon" level="10" />
+                <field field_ref="ducon" level="10" />
+                <field field_ref="dvcon" level="10" />
+                <field field_ref="dqcon" level="10" />
+                <field field_ref="dtwak" level="5" />
+                <field field_ref="dqwak" level="5" />
+                <field field_ref="wake_deltat" level="5" />
+                <field field_ref="wake_deltaq" level="5" />
+                <field field_ref="wake_omg" level="5" />
+                <field field_ref="wdtrainA" level="1" />
+                <field field_ref="wdtrainM" level="1" />
+                <field field_ref="Vprecip" level="10" />
+                <field field_ref="ftd" level="5" />
+                <field field_ref="fqd" level="5" />
+                <field field_ref="dtlsc" level="10" />
+                <field field_ref="dtlschr" level="10" />
+                <field field_ref="dqlsc" level="10" />
+                <field field_ref="beta_prec" level="10" />
+                <field field_ref="dtvdf" level="10" />
+                <field field_ref="dtdis" level="10" />
+                <field field_ref="dqvdf" level="10" />
+                <field field_ref="dteva" level="10" />
+                <field field_ref="dqeva" level="10" />
+                <field field_ref="dqlscth" level="10" />
+                <field field_ref="dqlscst" level="10" />
+                <field field_ref="dtlscth" level="10" />
+                <field field_ref="dtlscst" level="10" />
+                <field field_ref="ptconvth" level="10" />
+                <field field_ref="ptconv" level="10" />
+                <field field_ref="ratqs" level="10" />
+                <field field_ref="dtthe" level="10" />
+                <field field_ref="f_th" level="10" />
+                <field field_ref="e_th" level="10" />
+                <field field_ref="w_th" level="10" />
+                <field field_ref="lambda_th" level="10" />
+                <field field_ref="q_th" level="10" />
+                <field field_ref="a_th" level="10" />
+                <field field_ref="d_th" level="10" />
+                <field field_ref="dqthe" level="10" />
+                <field field_ref="dtajs" level="10" />
+                <field field_ref="dqajs" level="10" />
+                <field field_ref="dtswr" level="10" />
+                <field field_ref="dtsw0" level="10" />
+                <field field_ref="dtlwr" level="10" />
+                <field field_ref="dtlw0" level="10" />
+                <field field_ref="dtec" level="10" />
+                <field field_ref="duvdf" level="10" />
+                <field field_ref="dvvdf" level="10" />
+                <field field_ref="duoro" level="10" />
+                <field field_ref="dvoro" level="10" />
+                <field field_ref="dulif" level="10" />
+                <field field_ref="dvlif" level="10" />
+                <field field_ref="du_gwd_hines" level="10" />
+                <field field_ref="dv_gwd_hines" level="10" />
+                <field field_ref="du_gwd_front" level="10" />
+                <field field_ref="dv_gwd_front" level="10" />
+                <field field_ref="east_gwstress" level="10" />
+                <field field_ref="west_gwstress" level="10" />
+                <field field_ref="dtoro" level="10" />
+                <field field_ref="dtlif" level="10" />
+                <field field_ref="dthin" level="10" />
+                <field field_ref="rsu" level="10" />
+                <field field_ref="rsd" level="10" />
+                <field field_ref="rlu" level="10" />
+                <field field_ref="rld" level="10" />
+                <field field_ref="rsucs" level="10" />
+                <field field_ref="rsdcs" level="10" />
+                <field field_ref="rlucs" level="10" />
+                <field field_ref="rldcs" level="10" />
+                <field field_ref="tnt" level="10" />
+                <field field_ref="tntc" level="10" />
+                <field field_ref="tntr" level="10" />
+                <field field_ref="tntscpbl" level="10" />
+                <field field_ref="tnhus" level="10" />
+                <field field_ref="tnhusc" level="10" />
+                <field field_ref="tnhusscpbl" level="10" />
+                <field field_ref="evu" level="10" />
+                <field field_ref="h2o" level="10" />
+                <field field_ref="mcd" level="10" />
+                <field field_ref="dmc" level="10" />
+                <field field_ref="ref_liq" level="10" />
+                <field field_ref="ref_ice" level="10" />
+                <field field_ref="rsu4co2" level="10" />
+                <field field_ref="rlu4co2" level="10" />
+                <field field_ref="rsucs4co2" level="10" />
+                <field field_ref="rlucs4co2" level="10" />
+                <field field_ref="rsd4co2" level="10" />
+                <field field_ref="rld4co2" level="10" />
+                <field field_ref="rsdcs4co2" level="10" />
+                <field field_ref="rldcs4co2" level="10" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhfCOSP_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhfCOSP_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhfCOSP_lmdz.xml	(revision 3330)
@@ -0,0 +1,171 @@
+<file_definition>
+     <file_group id="defile">
+        <file id="histhfCOSP" name="histhfCOSP" output_freq="3h" output_level="1"  enabled="_AUTO_">
+
+            <!-- VARS Calipso and PARASOL -->
+            <field_group operation="instant" freq_op="3h" detect_missing_value=".true.">
+                <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="cllcalipsoice"         level="1" />
+                <field field_ref="clmcalipsoice"         level="1" />
+                <field field_ref="clhcalipsoice"         level="1" />
+                <field field_ref="cltcalipsoice"         level="1" />
+                <field field_ref="cllcalipsoliq"         level="1" />
+                <field field_ref="clmcalipsoliq"         level="1" />
+                <field field_ref="clhcalipsoliq"         level="1" />
+                <field field_ref="cltcalipsoliq"         level="1" />
+                <field field_ref="cllcalipsoun"         level="1" />
+                <field field_ref="clmcalipsoun"         level="1" />
+                <field field_ref="clhcalipsoun"         level="1" />
+                <field field_ref="cltcalipsoun"         level="1" />
+                <field field_ref="clcalipso"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoice"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoliq"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoun"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsotmp"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpice"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpliq"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpun"  level="1" axis_ref="temp" />
+                <field field_ref="parasol_refl"  level="1" axis_ref="sza" />
+                <field field_ref="parasol_crefl"  level="1" axis_ref="sza" />
+                <field field_ref="Ncrefl"  level="1" axis_ref="sza" />
+       		    <field field_ref="c01_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c02_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c03_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c04_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c05_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c06_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c07_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c08_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c09_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c10_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c11_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c12_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c13_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c14_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c15_cfad_lidarsr532"  level="10" axis_ref="height" />
+                <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_group>
+             <!-- VARS CLOUDSAT et/ou Calipso -->
+            <field_group operation="instant" freq_op="3h" detect_missing_value=".true."> 
+               <field field_ref="cltlidarradar"  level="1"/>
+               <field field_ref="clcalipso2"  level="1" axis_ref="height" />
+               <field field_ref="c01_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c02_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c03_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c04_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c05_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c06_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c07_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c08_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c09_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c10_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c11_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c12_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c13_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c14_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c15_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c01_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c02_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c03_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c04_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c05_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c06_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c07_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c08_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c09_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c10_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c11_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c12_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c13_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c14_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c15_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c16_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c17_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c18_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c19_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c20_dbze94" level="10" axis_ref="height_mlev" />
+              </field_group>
+             <!-- VARS ISCCP -->
+            <field_group operation="instant" freq_op="3h" detect_missing_value=".true.">
+                <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="1" />
+                <field field_ref="tauisccp" level="1" /> 
+                <field field_ref="albisccp" level="1" />
+                <field field_ref="meantbisccp" level="10" />
+                <field field_ref="meantbclrisccp" level="10" />
+             </field_group>
+             <!-- VARS MISR -->
+            <field_group operation="instant" freq_op="3h" detect_missing_value=".true.">
+                <field field_ref="c01_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c02_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c03_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c04_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c05_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c06_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c07_clMISR" level="1" axis_ref="cth16" />
+            </field_group>
+
+            <field_group operation="instant" freq_op="3h" detect_missing_value=".true.">
+                <field field_ref="cllmodis" level="1" />
+                <field field_ref="clmmodis" level="1" />
+                <field field_ref="clhmodis" level="1" />
+                <field field_ref="cltmodis" level="1" />
+                <field field_ref="clwmodis" level="1" />
+                <field field_ref="climodis" level="1" />
+                <field field_ref="tautmodis" level="1" />
+                <field field_ref="tauwmodis" level="1" />
+                <field field_ref="tauimodis" level="1" />
+                <field field_ref="tautlogmodis" level="1" />
+                <field field_ref="tauilogmodis" level="1" />
+                <field field_ref="tauwlogmodis" level="1" />
+                <field field_ref="reffclwmodis" level="1" />
+                <field field_ref="reffclimodis" level="1" />
+                <field field_ref="pctmodis"  unit="1" />
+                <field field_ref="lwpmodis" level="1" />
+                <field field_ref="iwpmodis" level="1" />
+                <field field_ref="c01_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c02_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c03_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c04_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c05_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c06_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c07_clmodis" level="1" axis_ref="pressure2" />
+            </field_group>
+
+        </file>
+     </file_group>
+</file_definition>
+   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhfNMC_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhfNMC_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhfNMC_lmdz.xml	(revision 3330)
@@ -0,0 +1,30 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histhfNMC" name="histhfNMC" output_freq="6h" output_level="5" enabled="_AUTO_">
+
+            <!-- VARS 3D -->
+            <field_group operation="instant" freq_op="1ts" detect_missing_value=".true." >
+<!--            <field field_ref="tnondef" level="5" />  -->
+                <field field_ref="ta" level="1" />
+                <field field_ref="zg" level="5" />
+                <field field_ref="hus" level="5" />
+                <field field_ref="hur" level="5" />
+                <field field_ref="ua" level="5" />
+                <field field_ref="va" level="5" />
+                <field field_ref="wap" level="5" />
+<!--            <field field_ref="psbg" level="5" /> -->
+                <field field_ref="tro3" level="5" />
+                <field field_ref="tro3_daylight" level="5" />
+                <field field_ref="uv" level="6" />
+                <!-- <field field_ref="vq" level="6" /> -->
+                <field field_ref="vT" level="6" />
+                <field field_ref="wq" level="6" />
+                <field field_ref="vphi" level="6" />
+                <field field_ref="wT" level="6" />
+                <field field_ref="u2" level="6" />
+                <field field_ref="v2" level="6" />
+                <field field_ref="T2" level="6" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhf_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhf_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histhf_lmdz.xml	(revision 3330)
@@ -0,0 +1,600 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histhf" name="histhf" output_freq="6h" output_level="5" enabled="_AUTO_">
+            
+            <!-- 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> -->
+        
+            <!-- VARS 2D -->
+            <field_group operation="average" freq_op="1ts">
+                <field field_ref="phis" level="5" />
+                <field field_ref="aire" level="10" operation="once" />
+                <field field_ref="contfracATM" level="10" operation="once" />
+                <field field_ref="contfracOR" level="10" />
+                <field field_ref="aireTER" level="10" />
+                <field field_ref="flat" level="10" />
+                <field field_ref="slp" level="10" />
+                <field field_ref="ptstar" level="10" />
+                <field field_ref="pt0" level="10" />
+                <field field_ref="tsol" level="5" />
+                <field field_ref="t2m" level="5" />
+                <field field_ref="t2m_min" level="10" operation="minimum" />
+                <field field_ref="t2m_max" level="10" operation="maximum" />
+                <field field_ref="t2m_ter" level="10" />
+                <field field_ref="t2m_lic" level="10" />
+                <field field_ref="t2m_oce" level="10" />
+                <field field_ref="t2m_sic" level="10" />
+                <field field_ref="gusts" level="10" />
+                <field field_ref="wind10m" level="10" />
+                <field field_ref="wind10max" level="10" operation="maximum" />
+                <field field_ref="sicf" level="10" />
+                <field field_ref="q2m" level="5" />
+                <field field_ref="ustar" level="5" />
+                <field field_ref="u10m" level="5" />
+                <field field_ref="v10m" level="5" />
+                <field field_ref="psol" level="5" />
+                <field field_ref="qsurf" level="10" />
+                <field field_ref="ustar_ter" level="10" />
+                <field field_ref="ustar_lic" level="10" />
+                <field field_ref="ustar_oce" level="10" />
+                <field field_ref="ustar_sic" level="10" />
+                <field field_ref="wstar_ter" level="10" />
+                <field field_ref="wstar_lic" level="10" />
+                <field field_ref="wstar_oce" level="10" />
+                <field field_ref="wstar_sic" level="10" />
+                <field field_ref="wstar" level="10" />
+                <field field_ref="u10m_ter" level="10" />
+                <field field_ref="u10m_lic" level="10" />
+                <field field_ref="u10m_oce" level="10" />
+                <field field_ref="u10m_sic" level="10" />
+                <field field_ref="v10m_ter" level="10" />
+                <field field_ref="v10m_lic" level="10" />
+                <field field_ref="v10m_oce" level="10" />
+                <field field_ref="v10m_sic" level="10" />
+                <field field_ref="qsol" level="10" />
+                <field field_ref="ndayrain" level="10" operation="instant" />
+                <field field_ref="precip" level="10" />
+                <field field_ref="plul" level="10" />
+                <field field_ref="plun" level="10" />
+                <field field_ref="pluc" level="10" />
+                <field field_ref="snow" level="10" />
+                <field field_ref="evap" level="10" />
+                <field field_ref="evap_ter" level="10" />
+                <field field_ref="evap_lic" level="10" />
+                <field field_ref="evap_oce" level="10" />
+                <field field_ref="evap_sic" level="10" />
+                <field field_ref="msnow" level="10" />
+                <field field_ref="fsnow" level="10" />
+                <field field_ref="tops" level="10" />
+                <field field_ref="tops0" level="10" />
+                <field field_ref="topl" level="5" />
+                <field field_ref="topl0" level="10" />
+                <field field_ref="SWupTOA" level="10" />
+                <field field_ref="SWupTOAclr" level="10" />
+                <field field_ref="SWdnTOA" level="10" />
+                <field field_ref="SWdnTOAclr" level="10" />
+                <field field_ref="nettop" level="10" />
+                <field field_ref="SWup200" level="10" />
+                <field field_ref="SWup200clr" level="10" />
+                <field field_ref="SWdn200" level="10" />
+                <field field_ref="SWdn200clr" level="10" />
+                <field field_ref="LWup200" level="10" />
+                <field field_ref="LWup200clr" level="10" />
+                <field field_ref="LWdn200" level="10" />
+                <field field_ref="LWdn200clr" level="10" />
+                <field field_ref="sols" level="10" />
+                <field field_ref="sols0" level="10" />
+                <field field_ref="soll" level="10" />
+                <field field_ref="soll0" level="10" />
+                <field field_ref="radsol" level="10" />
+                <field field_ref="SWupSFC" level="10" />
+                <field field_ref="SWupSFCclr" level="10" />
+                <field field_ref="SWdnSFC" level="10" />
+                <field field_ref="SWdnSFCclr" level="10" />
+                <field field_ref="LWupSFC" level="10" />
+                <field field_ref="LWupSFCclr" level="10" />
+                <field field_ref="LWdnSFC" level="10" />
+                <field field_ref="LWdnSFCclr" level="10" />
+                <field field_ref="bils" level="5" />
+                <field field_ref="bils_tke" level="5" />
+                <field field_ref="bils_diss" level="5" />
+                <field field_ref="bils_ec" level="5" />
+                <field field_ref="bils_kinetic" level="5" />
+                <field field_ref="bils_enthalp" level="5" />
+                <field field_ref="bils_latent" level="5" />
+                <field field_ref="sens" level="10" />
+                <field field_ref="fder" level="10" />
+                <field field_ref="ffonte" level="10" />
+                <field field_ref="fqcalving" level="10" />
+                <field field_ref="fqfonte" level="10" />
+                <field field_ref="runofflic" level="10" />
+                <field field_ref="taux" level="10" />
+                <field field_ref="tauy" level="10" />
+                <field field_ref="taux_ter" level="10" />
+                <field field_ref="taux_lic" level="10" />
+                <field field_ref="taux_oce" level="10" />
+                <field field_ref="taux_sic" level="10" />
+                <field field_ref="tauy_ter" level="10" />
+                <field field_ref="tauy_lic" level="10" />
+                <field field_ref="tauy_oce" level="10" />
+                <field field_ref="tauy_sic" level="10" />
+                <field field_ref="pourc_ter" level="10" />
+                <field field_ref="pourc_lic" level="10" />
+                <field field_ref="pourc_oce" level="10" />
+                <field field_ref="pourc_sic" level="10" />
+                <field field_ref="fract_ter" level="10" />
+                <field field_ref="fract_lic" level="10" />
+                <field field_ref="fract_oce" level="10" />
+                <field field_ref="fract_sic" level="10" />
+                <field field_ref="tsol_ter" level="10" />
+                <field field_ref="tsol_lic" level="10" />
+                <field field_ref="tsol_oce" level="10" />
+                <field field_ref="tsol_sic" level="10" />
+                <field field_ref="evappot_ter" level="10" />
+                <field field_ref="evappot_lic" level="10" />
+                <field field_ref="evappot_oce" level="10" />
+                <field field_ref="evappot_sic" level="10" />
+                <field field_ref="sens_ter" level="7" />
+                <field field_ref="sens_lic" level="7" />
+                <field field_ref="sens_oce" level="7" />
+                <field field_ref="sens_sic" level="7" />
+                <field field_ref="lat_ter" level="7" />
+                <field field_ref="lat_lic" level="7" />
+                <field field_ref="lat_oce" level="7" />
+                <field field_ref="lat_sic" level="7" />
+                <field field_ref="flw_ter" level="10" />
+                <field field_ref="flw_lic" level="10" />
+                <field field_ref="flw_oce" level="10" />
+                <field field_ref="flw_sic" level="10" />
+                <field field_ref="fsw_ter" level="10" />
+                <field field_ref="fsw_lic" level="10" />
+                <field field_ref="fsw_oce" level="10" />
+                <field field_ref="fsw_sic" level="10" />
+                <field field_ref="wbils_ter" level="10" />
+                <field field_ref="wbils_lic" level="10" />
+                <field field_ref="wbils_oce" level="10" />
+                <field field_ref="wbils_sic" level="10" />
+                <field field_ref="wbilo_ter" level="10" />
+                <field field_ref="wbilo_lic" level="10" />
+                <field field_ref="wbilo_oce" level="10" />
+                <field field_ref="wbilo_sic" level="10" />
+                <field field_ref="cdrm" level="10" />
+                <field field_ref="cdrh" level="7" />
+                <field field_ref="cldl" level="10" />
+                <field field_ref="cldm" level="10" />
+                <field field_ref="cldh" level="10" />
+                <field field_ref="cldt" level="10" />
+                <field field_ref="cldq" level="10" />
+                <field field_ref="lwp" level="10" />
+                <field field_ref="iwp" level="10" />
+                <field field_ref="ue" level="10" />
+                <field field_ref="ve" level="10" />
+                <field field_ref="uq" level="10" />
+                <field field_ref="vq" level="10" />
+                <field field_ref="cape" level="10" />
+                <field field_ref="pbase" level="10" />
+                <field field_ref="ptop" level="10" />
+                <field field_ref="fbase" level="10" />
+                <field field_ref="plcl" level="10" />
+                <field field_ref="plfc" level="10" />
+                <field field_ref="wbeff" level="10" />
+                <field field_ref="prw" level="10" />
+                <field field_ref="prlw" level="10" />
+                <field field_ref="prsw" level="10" />
+                <field field_ref="s_pblh" level="10" />
+                <field field_ref="s_pblt" level="10" />
+                <field field_ref="s_lcl" level="10" />
+                <field field_ref="s_therm" level="10" />
+                <field field_ref="slab_bils_oce" level="10" />
+                <field field_ref="ale_bl" level="10" />
+                <field field_ref="alp_bl" level="10" />
+                <field field_ref="ale_wk" level="10" />
+                <field field_ref="alp_wk" level="10" />
+                <field field_ref="ale" level="10" />
+                <field field_ref="alp" level="10" />
+                <field field_ref="cin" level="10" />
+                <field field_ref="wape" level="10" />
+                <field field_ref="n2" level="6" />
+                <field field_ref="s2" level="6" />
+                <field field_ref="proba_notrig" level="6" />
+                <field field_ref="random_notrig" level="6" />
+                <field field_ref="ale_bl_stat" level="6" />
+                <field field_ref="ale_bl_trig" level="6" />
+                <field field_ref="alp_bl_det" level="10" />
+                <field field_ref="alp_bl_fluct_m" level="10" />
+                <field field_ref="alp_bl_fluct_tke" level="10" />
+                <field field_ref="alp_bl_conv" level="10" />
+                <field field_ref="alp_bl_stat" level="10" />
+
+                <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+                    <field field_ref="u850" level="10" />
+                    <field field_ref="u700" level="10" />
+                    <field field_ref="u500" level="10" />
+                    <field field_ref="u200" level="10" />
+                    <field field_ref="u100" level="10" />
+                    <field field_ref="u50" level="10" />
+                    <field field_ref="u10" level="10" />
+                    <field field_ref="v850" level="10" />
+                    <field field_ref="v700" level="10" />
+                    <field field_ref="v500" level="10" />
+                    <field field_ref="v200" level="10" />
+                    <field field_ref="v100" level="10" />
+                    <field field_ref="v50" level="10" />
+                    <field field_ref="v10" level="10" />
+                    <field field_ref="w850" level="10" />
+                    <field field_ref="w700" level="10" />
+                    <field field_ref="w500" level="10" />
+                    <field field_ref="w200" level="10" />
+                    <field field_ref="w100" level="10" />
+                    <field field_ref="w50" level="10" />
+                    <field field_ref="w10" level="10" />
+                    <field field_ref="t850" level="10" />
+                    <field field_ref="t700" level="10" />
+                    <field field_ref="t500" level="10" />
+                    <field field_ref="t200" level="10" />
+                    <field field_ref="t100" level="10" />
+                    <field field_ref="t50" level="10" />
+                    <field field_ref="t10" level="10" />
+                    <field field_ref="q850" level="10" />
+                    <field field_ref="q700" level="10" />
+                    <field field_ref="q500" level="10" />
+                    <field field_ref="q200" level="10" />
+                    <field field_ref="q100" level="10" />
+                    <field field_ref="q50" level="10" />
+                    <field field_ref="q10" level="10" />
+                    <field field_ref="z850" level="10" />
+                    <field field_ref="z700" level="10" />
+                    <field field_ref="z500" level="10" />
+                    <field field_ref="z200" level="10" />
+                    <field field_ref="z100" level="10" />
+                    <field field_ref="z50" level="10" />
+                    <field field_ref="z10" level="10" />
+                </field_group>
+
+                <field field_ref="t_oce_sic" level="10" />
+                <field field_ref="weakinv" level="10" />
+                <field field_ref="dthmin" level="10" />
+                <field field_ref="u10_ter" level="10" />
+                <field field_ref="u10_lic" level="10" />
+                <field field_ref="u10_oce" level="10" />
+                <field field_ref="u10_sic" level="10" />
+                <field field_ref="v10_ter" level="10" />
+                <field field_ref="v10_lic" level="10" />
+                <field field_ref="v10_oce" level="10" />
+                <field field_ref="v10_sic" level="10" />
+                <field field_ref="rh2m" level="10" />
+                <field field_ref="rh2m_min" level="10" operation="minimum" />
+                <field field_ref="rh2m_max" level="10" operation="maximum" />
+                <field field_ref="qsat2m" level="10" />
+                <field field_ref="tpot" level="10" />
+                <field field_ref="tpote" level="10" />
+                <field field_ref="tke" level="10" />
+                <field field_ref="tke_ter" level="10" />
+                <field field_ref="tke_lic" level="10" />
+                <field field_ref="tke_oce" level="10" />
+                <field field_ref="tke_sic" level="10" />
+                <field field_ref="tke_max_ter" level="10" operation="maximum" />
+                <field field_ref="tke_max_lic" level="10" operation="maximum" />
+                <field field_ref="tke_max_oce" level="10" operation="maximum" />
+                <field field_ref="tke_max_sic" level="10" operation="maximum" />
+                <field field_ref="l_mix_ter" level="10" />
+                <field field_ref="l_mix_lic" level="10" />
+                <field field_ref="l_mix_oce" level="10" />
+                <field field_ref="l_mix_sic" level="10" />
+                <field field_ref="l_mixmin_ter" level="10" />
+                <field field_ref="l_mixmin_lic" level="10" />
+                <field field_ref="l_mixmin_oce" level="10" />
+                <field field_ref="l_mixmin_sic" level="10" />
+                <field field_ref="SWnetOR" level="10" />
+                <field field_ref="SWdownOR" level="10" />
+                <field field_ref="LWdownOR" level="10" />
+                <field field_ref="snowl" level="10" />
+                <field field_ref="cape_max" level="10" operation="maximum" />
+                <field field_ref="solldown" level="10" />
+                <field field_ref="dtsvdfo" level="10" />
+                <field field_ref="dtsvdft" level="10" />
+                <field field_ref="dtsvdfg" level="10" />
+                <field field_ref="dtsvdfi" level="10" />
+                <field field_ref="rugs" level="10" />
+                <field field_ref="z0m" level="10" />
+                <field field_ref="z0h" level="10" />
+                <field field_ref="topswad" level="10" />
+                <field field_ref="topswad0" level="10" />
+                <field field_ref="topswai" level="10" />
+                <field field_ref="solswad" level="10" />
+                <field field_ref="solswad0" level="10" />
+                <field field_ref="solswai" level="10" />
+                <field field_ref="OD550_ASBCM" level="10" />
+                <field field_ref="OD550_ASPOMM" level="10" />
+                <field field_ref="OD550_ASSO4M" level="10" />
+                <field field_ref="OD550_CSSO4M" level="10" />
+                <field field_ref="OD550_SSSSM" level="10" />
+                <field field_ref="OD550_ASSSM" level="10" />
+                <field field_ref="OD550_CSSSM" level="10" />
+                <field field_ref="OD550_CIDUSTM" level="10" />
+                <field field_ref="OD550_AIBCM" level="10" />
+                <field field_ref="OD550_AIPOMM" level="10" />
+                <field field_ref="OD550_STRAT" level="10" />
+                <field field_ref="od550aer" level="10" />
+                <field field_ref="od865aer" level="10" />
+                <field field_ref="absvisaer" level="10" />
+                <field field_ref="od550lt1aer" level="10" />
+                <field field_ref="sconcso4" level="10" />
+                <field field_ref="sconcoa" level="10" />
+                <field field_ref="sconcbc" level="10" />
+                <field field_ref="sconcss" level="10" />
+                <field field_ref="sconcdust" level="10" />
+                <field field_ref="loadso4" level="10" />
+                <field field_ref="loadoa" level="10" />
+                <field field_ref="loadbc" level="10" />
+                <field field_ref="loadss" level="10" />
+                <field field_ref="loaddust" level="10" />
+                <field field_ref="swtoaas_nat" level="10" />
+                <field field_ref="swsrfas_nat" level="10" />
+                <field field_ref="swtoacs_nat" level="10" />
+                <field field_ref="swsrfcs_nat" level="10" />
+                <field field_ref="swtoaas_ant" level="10" />
+                <field field_ref="swsrfas_ant" level="10" />
+                <field field_ref="swtoacs_ant" level="10" />
+                <field field_ref="swsrfcs_ant" level="10" />
+                <field field_ref="swtoacf_nat" level="10" />
+                <field field_ref="swsrfcf_nat" level="10" />
+                <field field_ref="swtoacf_ant" level="10" />
+                <field field_ref="swsrfcf_ant" level="10" />
+                <field field_ref="swtoacf_zero" level="10" />
+                <field field_ref="swsrfcf_zero" level="10" />
+                <field field_ref="cldncl" level="10" />
+                <field field_ref="reffclwtop" level="10" />
+                <field field_ref="cldnvi" level="10" />
+                <field field_ref="lcc" level="10" />
+                <field field_ref="wvapp" level="10" />
+                <field field_ref="ozone_daylight" level="10" />
+                <field field_ref="albe_ter" level="7" />
+                <field field_ref="albe_lic" level="7" />
+                <field field_ref="albe_oce" level="7" />
+                <field field_ref="albe_sic" level="7" />
+                <field field_ref="ages_ter" level="10" />
+                <field field_ref="ages_lic" level="10" />
+                <field field_ref="ages_oce" level="10" />
+                <field field_ref="ages_sic" level="10" />
+                <field field_ref="snow_ter" level="10" />
+                <field field_ref="snow_lic" level="10" />
+                <field field_ref="snow_oce" level="10" />
+                <field field_ref="snow_sic" level="10" />
+                <field field_ref="rugs_ter" level="10" />
+                <field field_ref="rugs_lic" level="10" />
+                <field field_ref="rugs_oce" level="10" />
+                <field field_ref="rugs_sic" level="10" />
+                <field field_ref="z0m_ter" level="10" />
+                <field field_ref="z0m_lic" level="10" />
+                <field field_ref="z0m_oce" level="10" />
+                <field field_ref="z0m_sic" level="10" />
+                <field field_ref="z0h_ter" level="10" />
+                <field field_ref="z0h_lic" level="10" />
+                <field field_ref="z0h_oce" level="10" />
+                <field field_ref="z0h_sic" level="10" />
+                <field field_ref="alb1" level="10" />
+                <field field_ref="alb2" level="10" />
+                <field field_ref="ftime_con" level="10" operation="instant" />
+                <field field_ref="wake_h" level="10" />
+                <field field_ref="wake_s" level="10" />
+                <field field_ref="epmax" level="10" />
+                <field field_ref="plulth" level="10" />
+                <field field_ref="plulst" level="10" />
+                <field field_ref="lmaxth" level="10" />
+                <field field_ref="ftime_th" level="10" />
+                <field field_ref="f0_th" level="10" />
+                <field field_ref="zmax_th" level="5" />
+                <field field_ref="rsut4co2" level="10" />
+                <field field_ref="rlut4co2" level="10" />
+                <field field_ref="rsutcs4co2" level="10" />
+                <field field_ref="rlutcs4co2" level="10" />
+                <field field_ref="dqphy2d" level="10" />
+                <field field_ref="dqlphy2d" level="10" />
+                <field field_ref="dqsphy2d" level="10" />
+                <field field_ref="dqdyn2d" level="10" />
+                <field field_ref="dqldyn2d" level="10" />
+                <field field_ref="dqsdyn2d" level="10" />
+                <field field_ref="dqcon2d" level="10" />
+                <field field_ref="dqwak2d" level="10" />
+                <field field_ref="dqlsc2d" level="10" />
+                <field field_ref="dqvdf2d" level="10" />
+                <field field_ref="dqeva2d" level="10" />
+                <field field_ref="dqlscth2d" level="10" />
+                <field field_ref="dqlscst2d" level="10" />
+                <field field_ref="dqthe2d" level="10" />
+                <field field_ref="dqajs2d" level="10" />
+            </field_group>
+
+            <field_group operation="instant" freq_op="1ts" >
+                 <field field_ref="alt_tropo" level="10" />
+                 <field field_ref="map_prop_hc" level="10" />
+                 <field field_ref="map_prop_hist" level="10" />
+                 <field field_ref="map_emis_hc" level="10" />
+                 <field field_ref="map_iwp_hc" level="10" />
+                 <field field_ref="map_deltaz_hc" level="10" />
+                 <field field_ref="map_pcld_hc" level="10" />
+                 <field field_ref="map_tcld_hc" level="10" />
+                 <field field_ref="map_emis_hist" level="10" />
+                 <field field_ref="map_iwp_hist" level="10" />
+                 <field field_ref="map_deltaz_hist" level="10" />
+                 <field field_ref="map_rad_hist" level="10" />
+                 <field field_ref="map_emis_Cb" level="10" />
+                 <field field_ref="map_pcld_Cb" level="10" />
+                 <field field_ref="map_tcld_Cb" level="10" />
+                 <field field_ref="map_emis_Anv" level="10" />
+                 <field field_ref="map_pcld_Anv" level="10" />
+                 <field field_ref="map_tcld_Anv" level="10" />
+                 <field field_ref="map_emis_ThCi" level="10" />
+                 <field field_ref="map_pcld_ThCi" level="10" />
+                 <field field_ref="map_tcld_ThCi" level="10" />
+                 <field field_ref="map_ntot" level="10" />
+                 <field field_ref="map_hc" level="10" />
+                 <field field_ref="map_hist" level="10" />
+                 <field field_ref="map_Cb" level="10" />
+                 <field field_ref="map_ThCi" level="10" />
+                 <field field_ref="map_Anv" level="10" />
+            </field_group>
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" axis_ref="presnivs">
+                <field field_ref="cldtau" level="10" />
+                <field field_ref="cldemi" level="10" />
+                <field field_ref="tke_max" level="10" operation="maximum" />
+                <field field_ref="kz" level="10" />
+                <field field_ref="kz_max" level="10" operation="maximum" />
+                <field field_ref="concso4" level="10" />
+                <field field_ref="concoa" level="10" />
+                <field field_ref="concbc" level="10" />
+                <field field_ref="concss" level="10" />
+                <field field_ref="concdust" level="10" />
+                <field field_ref="ec550aer" level="10" />
+                <field field_ref="lwcon" level="10" />
+                <field field_ref="iwcon" level="10" />
+                <field field_ref="temp" level="10" />
+                <field field_ref="theta" level="10" />
+                <field field_ref="ovap" level="10" />
+                <field field_ref="ovapinit" level="10" />
+                <field field_ref="oliq" level="10" />
+                <field field_ref="ocond" level="10" />
+                <field field_ref="geop" level="10" />
+                <field field_ref="vitu" level="6" />
+                <field field_ref="vitv" level="6" />
+                <field field_ref="vitw" level="6" />
+                <field field_ref="pres" level="10" />
+                <field field_ref="paprs" level="10" />
+                <field field_ref="mass" level="10" />
+                <field field_ref="zfull" level="10" />
+                <field field_ref="zhalf" level="10" />
+                <field field_ref="rneb" level="10" />
+                <field field_ref="rnebcon" level="10" />
+                <field field_ref="rnebls" level="10" />
+                <field field_ref="rhum" level="10" />
+                <field field_ref="ozone" level="10" />
+                <field field_ref="upwd" level="10" />
+                <field field_ref="ep" level="10" />
+                <field field_ref="dtphy" level="10" />
+                <field field_ref="dqphy" level="10" />
+                <field field_ref="dqlphy" level="10" />
+                <field field_ref="dqsphy" level="10" />
+                <field field_ref="pr_con_l" level="10" />
+                <field field_ref="pr_con_i" level="10" />
+                <field field_ref="pr_lsc_l" level="10" />
+                <field field_ref="pr_lsc_i" level="10" />
+                <field field_ref="re" level="10" />
+                <field field_ref="fl" level="10" />
+                <field field_ref="scdnc" level="10" />
+                <field field_ref="reffclws" level="10" />
+                <field field_ref="reffclwc" level="10" />
+                <field field_ref="lcc3d" level="10" />
+                <field field_ref="lcc3dcon" level="10" />
+                <field field_ref="lcc3dstra" level="10" />
+                <field field_ref="clwcon" level="10" />
+                <field field_ref="Ma" level="10" />
+                <field field_ref="dnwd" level="10" />
+                <field field_ref="dnwd0" level="10" />
+                <field field_ref="mc" level="10" />
+                <field field_ref="dtdyn" level="10" />
+                <field field_ref="dqdyn" level="10" />
+                <field field_ref="dqldyn" level="10" />
+                <field field_ref="dqsdyn" level="10" />
+                <field field_ref="dudyn" level="10" />
+                <field field_ref="dvdyn" level="10" />
+                <field field_ref="dtcon" level="10" />
+                <field field_ref="ducon" level="10" />
+                <field field_ref="dvcon" level="10" />
+                <field field_ref="dqcon" level="10" />
+                <field field_ref="dtwak" level="10" />
+                <field field_ref="dqwak" level="10" />
+                <field field_ref="wake_deltat" level="10" />
+                <field field_ref="wake_deltaq" level="10" />
+                <field field_ref="wake_omg" level="10" />
+                <field field_ref="wdtrainA" level="4" />
+                <field field_ref="wdtrainM" level="4" />
+                <field field_ref="Vprecip" level="10" />
+                <field field_ref="ftd" level="10" />
+                <field field_ref="fqd" level="10" />
+                <field field_ref="dtlsc" level="10" />
+                <field field_ref="dtlschr" level="10" />
+                <field field_ref="dqlsc" level="10" />
+                <field field_ref="beta_prec" level="10" />
+                <field field_ref="dtvdf" level="10" />
+                <field field_ref="dtdis" level="10" />
+                <field field_ref="dqvdf" level="10" />
+                <field field_ref="dteva" level="10" />
+                <field field_ref="dqeva" level="10" />
+                <field field_ref="dqlscth" level="10" />
+                <field field_ref="dqlscst" level="10" />
+                <field field_ref="dtlscth" level="10" />
+                <field field_ref="dtlscst" level="10" />
+                <field field_ref="ptconvth" level="10" />
+                <field field_ref="ptconv" level="10" />
+                <field field_ref="ratqs" level="10" />
+                <field field_ref="dtthe" level="10" />
+                <field field_ref="f_th" level="10" />
+                <field field_ref="e_th" level="10" />
+                <field field_ref="w_th" level="10" />
+                <field field_ref="lambda_th" level="10" />
+                <field field_ref="q_th" level="10" />
+                <field field_ref="a_th" level="10" />
+                <field field_ref="d_th" level="10" />
+                <field field_ref="dqthe" level="10" />
+                <field field_ref="dtajs" level="10" />
+                <field field_ref="dqajs" level="10" />
+                <field field_ref="dtswr" level="10" />
+                <field field_ref="dtsw0" level="10" />
+                <field field_ref="dtlwr" level="10" />
+                <field field_ref="dtlw0" level="10" />
+                <field field_ref="dtec" level="10" />
+                <field field_ref="duvdf" level="10" />
+                <field field_ref="dvvdf" level="10" />
+                <field field_ref="duoro" level="10" />
+                <field field_ref="dvoro" level="10" />
+                <field field_ref="dulif" level="10" />
+                <field field_ref="dvlif" level="10" />
+                <field field_ref="du_gwd_hines" level="10" />
+                <field field_ref="dv_gwd_hines" level="10" />
+                <field field_ref="du_gwd_front" level="10" />
+                <field field_ref="dv_gwd_front" level="10" />
+                <field field_ref="east_gwstress" level="10" />
+                <field field_ref="west_gwstress" level="10" />
+                <field field_ref="dtoro" level="10" />
+                <field field_ref="dtlif" level="10" />
+                <field field_ref="dthin" level="10" />
+                <field field_ref="rsu" level="10" />
+                <field field_ref="rsd" level="10" />
+                <field field_ref="rlu" level="10" />
+                <field field_ref="rld" level="10" />
+                <field field_ref="rsucs" level="10" />
+                <field field_ref="rsdcs" level="10" />
+                <field field_ref="rlucs" level="10" />
+                <field field_ref="rldcs" level="10" />
+                <field field_ref="tnt" level="10" />
+                <field field_ref="tntc" level="10" />
+                <field field_ref="tntr" level="10" />
+                <field field_ref="tntscpbl" level="10" />
+                <field field_ref="tnhus" level="10" />
+                <field field_ref="tnhusc" level="10" />
+                <field field_ref="tnhusscpbl" level="10" />
+                <field field_ref="evu" level="10" />
+                <field field_ref="h2o" level="10" />
+                <field field_ref="mcd" level="10" />
+                <field field_ref="dmc" level="10" />
+                <field field_ref="ref_liq" level="10" />
+                <field field_ref="ref_ice" level="10" />
+                <field field_ref="rsu4co2" level="10" />
+                <field field_ref="rlu4co2" level="10" />
+                <field field_ref="rsucs4co2" level="10" />
+                <field field_ref="rlucs4co2" level="10" />
+                <field field_ref="rsd4co2" level="10" />
+                <field field_ref="rld4co2" level="10" />
+                <field field_ref="rsdcs4co2" level="10" />
+                <field field_ref="rldcs4co2" level="10" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histins_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histins_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histins_lmdz.xml	(revision 3330)
@@ -0,0 +1,570 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histins" name="Xhistins" output_freq="1ts" output_level="4" enabled=".FALSE.">
+            
+            <!-- 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>    -->
+        
+            <!-- VARS 2D -->
+            <field_group operation="instant" freq_op="1ts">
+                <field field_ref="phis" level="10" />
+                <field field_ref="aire" level="10" operation="once" />
+                <field field_ref="contfracATM" level="1" operation="once" />
+                <field field_ref="contfracOR" level="1" />
+                <field field_ref="aireTER" level="1" />
+                <field field_ref="flat" level="10" />
+                <field field_ref="slp" level="1" />
+                <field field_ref="ptstar" level="1" />
+                <field field_ref="pt0" level="1" />
+                <field field_ref="tsol" level="1" />
+                <field field_ref="t2m" level="1" />
+                <field field_ref="t2m_min" level="10" operation="minimum" />
+                <field field_ref="t2m_max" level="10" operation="maximum" />
+                <field field_ref="t2m_ter" level="10" />
+                <field field_ref="t2m_lic" level="10" />
+                <field field_ref="t2m_oce" level="10" />
+                <field field_ref="t2m_sic" level="10" />
+                <field field_ref="gusts" level="1" />
+                <field field_ref="wind10m" level="1" />
+                <field field_ref="wind10max" level="10" operation="maximum" />
+                <field field_ref="sicf" level="10" />
+                <field field_ref="q2m" level="1" />
+                <field field_ref="ustar" level="1" />
+                <field field_ref="u10m" level="1" />
+                <field field_ref="v10m" level="1" />
+                <field field_ref="psol" level="1" />
+                <field field_ref="qsurf" level="10" />
+                <field field_ref="ustar_ter" level="10" />
+                <field field_ref="ustar_lic" level="10" />
+                <field field_ref="ustar_oce" level="10" />
+                <field field_ref="ustar_sic" level="10" />
+                <field field_ref="wstar_ter" level="10" />
+                <field field_ref="wstar_lic" level="10" />
+                <field field_ref="wstar_oce" level="10" />
+                <field field_ref="wstar_sic" level="10" />
+                <field field_ref="wstar" level="10" />
+                <field field_ref="u10m_ter" level="10" />
+                <field field_ref="u10m_lic" level="10" />
+                <field field_ref="u10m_oce" level="10" />
+                <field field_ref="u10m_sic" level="10" />
+                <field field_ref="v10m_ter" level="10" />
+                <field field_ref="v10m_lic" level="10" />
+                <field field_ref="v10m_oce" level="10" />
+                <field field_ref="v10m_sic" level="10" />
+                <field field_ref="qsol" level="10" />
+                <field field_ref="ndayrain" level="10" operation="instant"  />
+                <field field_ref="precip" level="1" />
+                <field field_ref="plul" level="1" />
+                <field field_ref="plun" level="1" />
+                <field field_ref="pluc" level="1" />
+                <field field_ref="snow" level="10" />
+                <field field_ref="evap" level="10" />
+                <field field_ref="evap_ter" level="10" />
+                <field field_ref="evap_lic" level="10" />
+                <field field_ref="evap_oce" level="10" />
+                <field field_ref="evap_sic" level="10" />
+                <field field_ref="msnow" level="10" />
+                <field field_ref="fsnow" level="10" />
+                <field field_ref="tops" level="10" />
+                <field field_ref="tops0" level="10" />
+                <field field_ref="topl" level="10" />
+                <field field_ref="topl0" level="10" />
+                <field field_ref="SWupTOA" level="10" />
+                <field field_ref="SWupTOAclr" level="10" />
+                <field field_ref="SWdnTOA" level="10" />
+                <field field_ref="SWdnTOAclr" level="10" />
+                <field field_ref="nettop" level="10" />
+                <field field_ref="SWup200" level="10" />
+                <field field_ref="SWup200clr" level="10" />
+                <field field_ref="SWdn200" level="10" />
+                <field field_ref="SWdn200clr" level="10" />
+                <field field_ref="LWup200" level="10" />
+                <field field_ref="LWup200clr" level="10" />
+                <field field_ref="LWdn200" level="10" />
+                <field field_ref="LWdn200clr" level="10" />
+                <field field_ref="sols" level="10" />
+                <field field_ref="sols0" level="10" />
+                <field field_ref="soll" level="10" />
+                <field field_ref="soll0" level="10" />
+                <field field_ref="radsol" level="10" />
+                <field field_ref="SWupSFC" level="10" />
+                <field field_ref="SWupSFCclr" level="10" />
+                <field field_ref="SWdnSFC" level="10" />
+                <field field_ref="SWdnSFCclr" level="10" />
+                <field field_ref="LWupSFC" level="10" />
+                <field field_ref="LWupSFCclr" level="10" />
+                <field field_ref="LWdnSFC" level="10" />
+                <field field_ref="LWdnSFCclr" level="10" />
+                <field field_ref="bils" level="10" />
+                <field field_ref="bils_tke" level="10" />
+                <field field_ref="bils_diss" level="10" />
+                <field field_ref="bils_ec" level="10" />
+                <field field_ref="bils_kinetic" level="10" />
+                <field field_ref="bils_enthalp" level="10" />
+                <field field_ref="bils_latent" level="10" />
+                <field field_ref="sens" level="10" />
+                <field field_ref="fder" level="10" />
+                <field field_ref="ffonte" level="10" />
+                <field field_ref="fqcalving" level="10" />
+                <field field_ref="fqfonte" level="10" />
+                <field field_ref="runofflic" level="10" />
+                <field field_ref="taux" level="10" />
+                <field field_ref="tauy" level="10" />
+                <field field_ref="taux_ter" level="10" />
+                <field field_ref="taux_lic" level="10" />
+                <field field_ref="taux_oce" level="10" />
+                <field field_ref="taux_sic" level="10" />
+                <field field_ref="tauy_ter" level="10" />
+                <field field_ref="tauy_lic" level="10" />
+                <field field_ref="tauy_oce" level="10" />
+                <field field_ref="tauy_sic" level="10" />
+                <field field_ref="pourc_ter" level="10" />
+                <field field_ref="pourc_lic" level="10" />
+                <field field_ref="pourc_oce" level="10" />
+                <field field_ref="pourc_sic" level="10" />
+                <field field_ref="fract_ter" level="10" />
+                <field field_ref="fract_lic" level="10" />
+                <field field_ref="fract_oce" level="10" />
+                <field field_ref="fract_sic" level="10" />
+                <field field_ref="tsol_ter" level="10" />
+                <field field_ref="tsol_lic" level="10" />
+                <field field_ref="tsol_oce" level="10" />
+                <field field_ref="tsol_sic" level="10" />
+                <field field_ref="evappot_ter" level="10" />
+                <field field_ref="evappot_lic" level="10" />
+                <field field_ref="evappot_oce" level="10" />
+                <field field_ref="evappot_sic" level="10" />
+                <field field_ref="sens_ter" level="10" />
+                <field field_ref="sens_lic" level="10" />
+                <field field_ref="sens_oce" level="10" />
+                <field field_ref="sens_sic" level="10" />
+                <field field_ref="lat_ter" level="10" />
+                <field field_ref="lat_lic" level="10" />
+                <field field_ref="lat_oce" level="10" />
+                <field field_ref="lat_sic" level="10" />
+                <field field_ref="flw_ter" level="10" />
+                <field field_ref="flw_lic" level="10" />
+                <field field_ref="flw_oce" level="10" />
+                <field field_ref="flw_sic" level="10" />
+                <field field_ref="fsw_ter" level="10" />
+                <field field_ref="fsw_lic" level="10" />
+                <field field_ref="fsw_oce" level="10" />
+                <field field_ref="fsw_sic" level="10" />
+                <field field_ref="wbils_ter" level="10" />
+                <field field_ref="wbils_lic" level="10" />
+                <field field_ref="wbils_oce" level="10" />
+                <field field_ref="wbils_sic" level="10" />
+                <field field_ref="wbilo_ter" level="10" />
+                <field field_ref="wbilo_lic" level="10" />
+                <field field_ref="wbilo_oce" level="10" />
+                <field field_ref="wbilo_sic" level="10" />
+                <field field_ref="cdrm" level="10" />
+                <field field_ref="cdrh" level="10" />
+                <field field_ref="cldl" level="10" />
+                <field field_ref="cldm" level="10" />
+                <field field_ref="cldh" level="10" />
+                <field field_ref="cldt" level="2" />
+                <field field_ref="cldq" level="10" />
+                <field field_ref="lwp" level="10" />
+                <field field_ref="iwp" level="10" />
+                <field field_ref="ue" level="10" />
+                <field field_ref="ve" level="10" />
+                <field field_ref="uq" level="10" />
+                <field field_ref="vq" level="10" />
+                <field field_ref="cape" level="10" />
+                <field field_ref="pbase" level="10" />
+                <field field_ref="ptop" level="10" />
+                <field field_ref="fbase" level="10" />
+                <field field_ref="plcl" level="10" />
+                <field field_ref="plfc" level="10" />
+                <field field_ref="wbeff" level="10" />
+                <field field_ref="prw" level="10" />
+                <field field_ref="prlw" level="10" />
+                <field field_ref="prsw" level="10" />
+                <field field_ref="s_pblh" level="10" />
+                <field field_ref="s_pblt" level="10" />
+                <field field_ref="s_lcl" level="10" />
+                <field field_ref="s_therm" level="10" />
+                <field field_ref="slab_bils_oce" level="10" />
+                <field field_ref="ale_bl" level="1" />
+                <field field_ref="alp_bl" level="1" />
+                <field field_ref="ale_wk" level="1" />
+                <field field_ref="alp_wk" level="1" />
+                <field field_ref="ale" level="1" />
+                <field field_ref="alp" level="1" />
+                <field field_ref="cin" level="1" />
+                <field field_ref="wape" level="1" />
+                <field field_ref="n2" level="1" />
+                <field field_ref="s2" level="1" />
+                <field field_ref="proba_notrig" level="1" />
+                <field field_ref="random_notrig" level="1" />
+                <field field_ref="ale_bl_stat" level="1" />
+                <field field_ref="ale_bl_trig" level="1" />
+                <field field_ref="alp_bl_det" level="1" />
+                <field field_ref="alp_bl_fluct_m" level="1" />
+                <field field_ref="alp_bl_fluct_tke" level="1" />
+                <field field_ref="alp_bl_conv" level="1" />
+                <field field_ref="alp_bl_stat" level="1" />
+
+                <field_group operation="instant" freq_op="1ts" detect_missing_value=".true.">
+                    <field field_ref="u850" level="7" />
+                    <field field_ref="u700" level="7" />
+                    <field field_ref="u500" level="7" />
+                    <field field_ref="u200" level="7" />
+                    <field field_ref="u100" level="7" />
+                    <field field_ref="u50" level="7" />
+                    <field field_ref="u10" level="7" />
+                    <field field_ref="v850" level="7" />
+                    <field field_ref="v700" level="7" />
+                    <field field_ref="v500" level="7" />
+                    <field field_ref="v200" level="7" />
+                    <field field_ref="v100" level="7" />
+                    <field field_ref="v50" level="7" />
+                    <field field_ref="v10" level="7" />
+                    <field field_ref="w850" level="7" />
+                    <field field_ref="w700" level="7" />
+                    <field field_ref="w500" level="7" />
+                    <field field_ref="w200" level="7" />
+                    <field field_ref="w100" level="7" />
+                    <field field_ref="w50" level="7" />
+                    <field field_ref="w10" level="7" />
+                    <field field_ref="t850" level="7" />
+                    <field field_ref="t700" level="7" />
+                    <field field_ref="t500" level="7" />
+                    <field field_ref="t200" level="7" />
+                    <field field_ref="t100" level="7" />
+                    <field field_ref="t50" level="7" />
+                    <field field_ref="t10" level="7" />
+                    <field field_ref="q850" level="7" />
+                    <field field_ref="q700" level="7" />
+                    <field field_ref="q500" level="7" />
+                    <field field_ref="q200" level="7" />
+                    <field field_ref="q100" level="7" />
+                    <field field_ref="q50" level="7" />
+                    <field field_ref="q10" level="7" />
+                    <field field_ref="z850" level="7" />
+                    <field field_ref="z700" level="7" />
+                    <field field_ref="z500" level="7" />
+                    <field field_ref="z200" level="7" />
+                    <field field_ref="z100" level="7" />
+                    <field field_ref="z50" level="7" />
+                    <field field_ref="z10" level="7" />
+                </field_group>
+
+                <field field_ref="t_oce_sic" level="10" />
+                <field field_ref="weakinv" level="10" />
+                <field field_ref="dthmin" level="10" />
+                <field field_ref="u10_ter" level="10" />
+                <field field_ref="u10_lic" level="10" />
+                <field field_ref="u10_oce" level="10" />
+                <field field_ref="u10_sic" level="10" />
+                <field field_ref="v10_ter" level="10" />
+                <field field_ref="v10_lic" level="10" />
+                <field field_ref="v10_oce" level="10" />
+                <field field_ref="v10_sic" level="10" />
+                <field field_ref="rh2m" level="10" />
+                <field field_ref="rh2m_min" level="10" operation="minimum"  />
+                <field field_ref="rh2m_max" level="10" operation="maximum"  />
+                <field field_ref="qsat2m" level="10" />
+                <field field_ref="tpot" level="10" />
+                <field field_ref="tpote" level="10" />
+                <field field_ref="tke" level="10" />
+                <field field_ref="tke_ter" level="10" />
+                <field field_ref="tke_lic" level="10" />
+                <field field_ref="tke_oce" level="10" />
+                <field field_ref="tke_sic" level="10" />
+                <field field_ref="tke_max_ter" level="10" operation="maximum" />
+                <field field_ref="tke_max_lic" level="10" operation="maximum" />
+                <field field_ref="tke_max_oce" level="10" operation="maximum" />
+                <field field_ref="tke_max_sic" level="10" operation="maximum" />
+                <field field_ref="l_mix_ter" level="10" />
+                <field field_ref="l_mix_lic" level="10" />
+                <field field_ref="l_mix_oce" level="10" />
+                <field field_ref="l_mix_sic" level="10" />
+                <field field_ref="l_mixmin_ter" level="10" />
+                <field field_ref="l_mixmin_lic" level="10" />
+                <field field_ref="l_mixmin_oce" level="10" />
+                <field field_ref="l_mixmin_sic" level="10" />
+                <field field_ref="SWnetOR" level="2" />
+                <field field_ref="SWdownOR" level="2" />
+                <field field_ref="LWdownOR" level="2" />
+                <field field_ref="snowl" level="10" />
+                <field field_ref="cape_max" level="10" operation="maximum" />
+                <field field_ref="solldown" level="10" />
+                <field field_ref="dtsvdfo" level="10" />
+                <field field_ref="dtsvdft" level="10" />
+                <field field_ref="dtsvdfg" level="10" />
+                <field field_ref="dtsvdfi" level="10" />
+                <field field_ref="rugs" level="10" />
+                <field field_ref="z0m" level="10" />
+                <field field_ref="z0h" level="10" />
+                <field field_ref="topswad" level="10" />
+                <field field_ref="topswad0" level="10" />
+                <field field_ref="topswai" level="10" />
+                <field field_ref="solswad" level="10" />
+                <field field_ref="solswad0" level="10" />
+                <field field_ref="solswai" level="10" />
+                <field field_ref="OD550_ASBCM" level="10" />
+                <field field_ref="OD550_ASPOMM" level="10" />
+                <field field_ref="OD550_ASSO4M" level="10" />
+                <field field_ref="OD550_CSSO4M" level="10" />
+                <field field_ref="OD550_SSSSM" level="10" />
+                <field field_ref="OD550_ASSSM" level="10" />
+                <field field_ref="OD550_CSSSM" level="10" />
+                <field field_ref="OD550_CIDUSTM" level="10" />
+                <field field_ref="OD550_AIBCM" level="10" />
+                <field field_ref="OD550_AIPOMM" level="10" />
+                <field field_ref="OD550_STRAT" level="10" />
+                <field field_ref="od550aer" level="10" />
+                <field field_ref="od865aer" level="10" />
+                <field field_ref="absvisaer" level="10" />
+                <field field_ref="od550lt1aer" level="10" />
+                <field field_ref="sconcso4" level="10" />
+                <field field_ref="sconcoa" level="10" />
+                <field field_ref="sconcbc" level="10" />
+                <field field_ref="sconcss" level="10" />
+                <field field_ref="sconcdust" level="10" />
+                <field field_ref="loadso4" level="10" />
+                <field field_ref="loadoa" level="10" />
+                <field field_ref="loadbc" level="10" />
+                <field field_ref="loadss" level="10" />
+                <field field_ref="loaddust" level="10" />
+                <field field_ref="swtoaas_nat" level="10" />
+                <field field_ref="swsrfas_nat" level="10" />
+                <field field_ref="swtoacs_nat" level="10" />
+                <field field_ref="swsrfcs_nat" level="10" />
+                <field field_ref="swtoaas_ant" level="10" />
+                <field field_ref="swsrfas_ant" level="10" />
+                <field field_ref="swtoacs_ant" level="10" />
+                <field field_ref="swsrfcs_ant" level="10" />
+                <field field_ref="swtoacf_nat" level="10" />
+                <field field_ref="swsrfcf_nat" level="10" />
+                <field field_ref="swtoacf_ant" level="10" />
+                <field field_ref="swsrfcf_ant" level="10" />
+                <field field_ref="swtoacf_zero" level="10" />
+                <field field_ref="swsrfcf_zero" level="10" />
+                <field field_ref="cldncl" level="10" />
+                <field field_ref="reffclwtop" level="10" />
+                <field field_ref="cldnvi" level="10" />
+                <field field_ref="lcc" level="10" />
+                <field field_ref="wvapp" level="10" />
+                <field field_ref="ozone_daylight" level="10" />
+                <field field_ref="albe_ter" level="10" />
+                <field field_ref="albe_lic" level="10" />
+                <field field_ref="albe_oce" level="10" />
+                <field field_ref="albe_sic" level="10" />
+                <field field_ref="ages_ter" level="10" />
+                <field field_ref="ages_lic" level="10" />
+                <field field_ref="ages_oce" level="10" />
+                <field field_ref="ages_sic" level="10" />
+                <field field_ref="snow_ter" level="10" />
+                <field field_ref="snow_lic" level="10" />
+                <field field_ref="snow_oce" level="10" />
+                <field field_ref="snow_sic" level="10" />
+                <field field_ref="rugs_ter" level="10" />
+                <field field_ref="rugs_lic" level="10" />
+                <field field_ref="rugs_oce" level="10" />
+                <field field_ref="rugs_sic" level="10" />
+                <field field_ref="z0m_ter" level="10" />
+                <field field_ref="z0m_lic" level="10" />
+                <field field_ref="z0m_oce" level="10" />
+                <field field_ref="z0m_sic" level="10" />
+                <field field_ref="z0h_ter" level="10" />
+                <field field_ref="z0h_lic" level="10" />
+                <field field_ref="z0h_oce" level="10" />
+                <field field_ref="z0h_sic" level="10" />
+                <field field_ref="alb1" level="10" />
+                <field field_ref="alb2" level="10" />
+                <field field_ref="ftime_con" level="10" operation="instant" />
+                <field field_ref="wake_h" level="10" />
+                <field field_ref="wake_s" level="10" />
+                <field field_ref="epmax" level="10" />
+                <field field_ref="plulth" level="10" />
+                <field field_ref="plulst" level="10" />
+                <field field_ref="lmaxth" level="10" />
+                <field field_ref="ftime_th" level="10" />
+                <field field_ref="f0_th" level="10" />
+                <field field_ref="zmax_th" level="4" />
+                <field field_ref="rsut4co2" level="10" />
+                <field field_ref="rlut4co2" level="10" />
+                <field field_ref="rsutcs4co2" level="10" />
+                <field field_ref="rlutcs4co2" level="10" />
+                <field field_ref="dqphy2d" level="10" />
+                <field field_ref="dqlphy2d" level="10" />
+                <field field_ref="dqsphy2d" level="10" />
+                <field field_ref="dqdyn2d" level="10" />
+                <field field_ref="dqldyn2d" level="10" />
+                <field field_ref="dqsdyn2d" level="10" />
+                <field field_ref="dqcon2d" level="10" />
+                <field field_ref="dqwak2d" level="10" />
+                <field field_ref="dqlsc2d" level="10" />
+                <field field_ref="dqvdf2d" level="10" />
+                <field field_ref="dqeva2d" level="10" />
+                <field field_ref="dqlscth2d" level="10" />
+                <field field_ref="dqlscst2d" level="10" />
+                <field field_ref="dqthe2d" level="10" />
+                <field field_ref="dqajs2d" level="10" />
+            </field_group>
+
+            <!-- VARS 3D -->
+            <field_group operation="instant" freq_op="1ts" axis_ref="presnivs">
+                <field field_ref="cldtau" level="10" />
+                <field field_ref="cldemi" level="10" />
+                <field field_ref="tke_max" level="10" operation="maximum" />
+                <field field_ref="kz" level="10" />
+                <field field_ref="kz_max" level="10" operation="maximum" />
+                <field field_ref="concso4" level="10" />
+                <field field_ref="concoa" level="10" />
+                <field field_ref="concbc" level="10" />
+                <field field_ref="concss" level="10" />
+                <field field_ref="concdust" level="10" />
+                <field field_ref="ec550aer" level="10" />
+                <field field_ref="lwcon" level="10" />
+                <field field_ref="iwcon" level="10" />
+                <field field_ref="temp" level="4" />
+                <field field_ref="theta" level="4" />
+                <field field_ref="ovap" level="4" />
+                <field field_ref="ovapinit" level="10" />
+                <field field_ref="oliq" level="4" />
+                <field field_ref="ocond" level="4" />
+                <field field_ref="geop" level="10" />
+                <field field_ref="vitu" level="4" />
+                <field field_ref="vitv" level="4" />
+                <field field_ref="vitw" level="10" />
+                <field field_ref="pres" level="10" />
+                <field field_ref="paprs" level="10" />
+                <field field_ref="mass" level="10" />
+                <field field_ref="zfull" level="10" />
+                <field field_ref="zhalf" level="10" />
+                <field field_ref="rneb" level="10" />
+                <field field_ref="rnebcon" level="10" />
+                <field field_ref="rnebls" level="10" />
+                <field field_ref="rhum" level="10" />
+                <field field_ref="ozone" level="10" />
+                <field field_ref="upwd" level="10" />
+                <field field_ref="ep" level="10" />
+                <field field_ref="dtphy" level="10" />
+                <field field_ref="dqphy" level="10" />
+                <field field_ref="dqlphy" level="10" />
+                <field field_ref="dqsphy" level="10" />
+                <field field_ref="pr_con_l" level="10" />
+                <field field_ref="pr_con_i" level="10" />
+                <field field_ref="pr_lsc_l" level="10" />
+                <field field_ref="pr_lsc_i" level="10" />
+                <field field_ref="re" level="10" />
+                <field field_ref="fl" level="10" />
+                <field field_ref="scdnc" level="10" />
+                <field field_ref="reffclws" level="10" />
+                <field field_ref="reffclwc" level="10" />
+                <field field_ref="lcc3d" level="10" />
+                <field field_ref="lcc3dcon" level="10" />
+                <field field_ref="lcc3dstra" level="10" />
+                <field field_ref="clwcon" level="10" />
+                <field field_ref="Ma" level="10" />
+                <field field_ref="dnwd" level="10" />
+                <field field_ref="dnwd0" level="10" />
+                <field field_ref="mc" level="10" />
+                <field field_ref="dtdyn" level="10" />
+                <field field_ref="dqdyn" level="10" />
+                <field field_ref="dqldyn" level="10" />
+                <field field_ref="dqsdyn" level="10" />
+                <field field_ref="dudyn" level="10" />
+                <field field_ref="dvdyn" level="10" />
+                <field field_ref="dtcon" level="10" />
+                <field field_ref="ducon" level="10" />
+                <field field_ref="dvcon" level="10" />
+                <field field_ref="dqcon" level="10" />
+                <field field_ref="dtwak" level="10" />
+                <field field_ref="dqwak" level="10" />
+                <field field_ref="wake_deltat" level="10" />
+                <field field_ref="wake_deltaq" level="10" />
+                <field field_ref="wake_omg" level="10" />
+                <field field_ref="wdtrainA" level="4" />
+                <field field_ref="wdtrainM" level="4" />
+                <field field_ref="Vprecip" level="10" />
+                <field field_ref="ftd" level="10" />
+                <field field_ref="fqd" level="10" />
+                <field field_ref="dtlsc" level="10" />
+                <field field_ref="dtlschr" level="10" />
+                <field field_ref="dqlsc" level="10" />
+                <field field_ref="beta_prec" level="10" />
+                <field field_ref="dtvdf" level="10" />
+                <field field_ref="dtdis" level="10" />
+                <field field_ref="dqvdf" level="10" />
+                <field field_ref="dteva" level="10" />
+                <field field_ref="dqeva" level="10" />
+                <field field_ref="dqlscth" level="10" />
+                <field field_ref="dqlscst" level="10" />
+                <field field_ref="dtlscth" level="10" />
+                <field field_ref="dtlscst" level="10" />
+                <field field_ref="ptconvth" level="10" />
+                <field field_ref="ptconv" level="10" />
+                <field field_ref="ratqs" level="10" />
+                <field field_ref="dtthe" level="10" />
+                <field field_ref="f_th" level="10" />
+                <field field_ref="e_th" level="10" />
+                <field field_ref="w_th" level="10" />
+                <field field_ref="lambda_th" level="10" />
+                <field field_ref="q_th" level="10" />
+                <field field_ref="a_th" level="10" />
+                <field field_ref="d_th" level="10" />
+                <field field_ref="dqthe" level="10" />
+                <field field_ref="dtajs" level="10" />
+                <field field_ref="dqajs" level="10" />
+                <field field_ref="dtswr" level="10" />
+                <field field_ref="dtsw0" level="10" />
+                <field field_ref="dtlwr" level="10" />
+                <field field_ref="dtlw0" level="10" />
+                <field field_ref="dtec" level="10" />
+                <field field_ref="duvdf" level="10" />
+                <field field_ref="dvvdf" level="10" />
+                <field field_ref="duoro" level="10" />
+                <field field_ref="dvoro" level="10" />
+                <field field_ref="dulif" level="10" />
+                <field field_ref="dvlif" level="10" />
+                <field field_ref="du_gwd_hines" level="10" />
+                <field field_ref="dv_gwd_hines" level="10" />
+                <field field_ref="du_gwd_front" level="10" />
+                <field field_ref="dv_gwd_front" level="10" />
+                <field field_ref="east_gwstress" level="10" />
+                <field field_ref="west_gwstress" level="10" />
+                <field field_ref="dtoro" level="10" />
+                <field field_ref="dtlif" level="10" />
+                <field field_ref="dthin" level="10" />
+                <field field_ref="rsu" level="10" />
+                <field field_ref="rsd" level="10" />
+                <field field_ref="rlu" level="10" />
+                <field field_ref="rld" level="10" />
+                <field field_ref="rsucs" level="10" />
+                <field field_ref="rsdcs" level="10" />
+                <field field_ref="rlucs" level="10" />
+                <field field_ref="rldcs" level="10" />
+                <field field_ref="tnt" level="10" />
+                <field field_ref="tntc" level="10" />
+                <field field_ref="tntr" level="10" />
+                <field field_ref="tntscpbl" level="10" />
+                <field field_ref="tnhus" level="10" />
+                <field field_ref="tnhusc" level="10" />
+                <field field_ref="tnhusscpbl" level="10" />
+                <field field_ref="evu" level="10" />
+                <field field_ref="h2o" level="10" />
+                <field field_ref="mcd" level="10" />
+                <field field_ref="dmc" level="10" />
+                <field field_ref="ref_liq" level="10" />
+                <field field_ref="ref_ice" level="10" />
+                <field field_ref="rsu4co2" level="10" />
+                <field field_ref="rlu4co2" level="10" />
+                <field field_ref="rsucs4co2" level="10" />
+                <field field_ref="rlucs4co2" level="10" />
+                <field field_ref="rsd4co2" level="10" />
+                <field field_ref="rld4co2" level="10" />
+                <field field_ref="rsdcs4co2" level="10" />
+                <field field_ref="rldcs4co2" level="10" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmthCOSP_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmthCOSP_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmthCOSP_lmdz.xml	(revision 3330)
@@ -0,0 +1,170 @@
+<file_definition>
+     <file_group id="defile">
+        <file id="histmthCOSP" name="histmthCOSP" output_freq="30d" output_level="1"  enabled="_AUTO_">
+
+            <!-- VARS Calipso and PARASOL -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <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="cllcalipsoice"         level="1" />
+                <field field_ref="clmcalipsoice"         level="1" />
+                <field field_ref="clhcalipsoice"         level="1" />
+                <field field_ref="cltcalipsoice"         level="1" />
+                <field field_ref="cllcalipsoliq"         level="1" />
+                <field field_ref="clmcalipsoliq"         level="1" />
+                <field field_ref="clhcalipsoliq"         level="1" />
+                <field field_ref="cltcalipsoliq"         level="1" />
+                <field field_ref="cllcalipsoun"         level="1" />
+                <field field_ref="clmcalipsoun"         level="1" />
+                <field field_ref="clhcalipsoun"         level="1" />
+                <field field_ref="cltcalipsoun"         level="1" />
+                <field field_ref="clcalipso"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoice"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoliq"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsoun"  level="1" axis_ref="height" />
+                <field field_ref="clcalipsotmp"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpice"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpliq"  level="1" axis_ref="temp" />
+                <field field_ref="clcalipsotmpun"  level="1" axis_ref="temp" />
+                <field field_ref="parasol_refl"  level="1" axis_ref="sza" />
+                <field field_ref="parasol_crefl"  level="1" axis_ref="sza" />
+                <field field_ref="Ncrefl"  level="1" axis_ref="sza" />
+       		    <field field_ref="c01_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c02_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c03_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c04_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c05_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c06_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c07_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c08_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c09_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c10_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c11_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c12_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c13_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c14_cfad_lidarsr532"  level="10" axis_ref="height" />
+		        <field field_ref="c15_cfad_lidarsr532"  level="10" axis_ref="height" />
+                <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_group>
+             <!-- VARS CLOUDSAT et/ou Calipso -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true."> 
+               <field field_ref="cltlidarradar"  level="1"/>
+               <field field_ref="clcalipso2"  level="1" axis_ref="height" />
+               <field field_ref="c01_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c02_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c03_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c04_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c05_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c06_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c07_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c08_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c09_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c10_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c11_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c12_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c13_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c14_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c15_cfadDbze94"  level="10" axis_ref="height" />
+               <field field_ref="c01_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c02_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c03_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c04_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c05_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c06_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c07_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c08_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c09_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c10_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c11_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c12_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c13_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c14_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c15_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c16_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c17_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c18_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c19_dbze94" level="10" axis_ref="height_mlev" />
+               <field field_ref="c20_dbze94" level="10" axis_ref="height_mlev" />
+              </field_group>
+             <!-- VARS ISCCP -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <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="1" />
+                <field field_ref="tauisccp" level="1" /> 
+                <field field_ref="albisccp" level="1" />
+                <field field_ref="meantbisccp" level="10" />
+                <field field_ref="meantbclrisccp" level="10" />
+             </field_group>
+             <!-- VARS MISR -->
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <field field_ref="c01_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c02_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c03_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c04_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c05_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c06_clMISR" level="1" axis_ref="cth16" />
+                <field field_ref="c07_clMISR" level="1" axis_ref="cth16" />
+            </field_group>
+            <field_group operation="average" freq_op="3h" detect_missing_value=".true.">
+                <field field_ref="cllmodis" level="1" />
+                <field field_ref="clmmodis" level="1" />
+                <field field_ref="clhmodis" level="1" />
+                <field field_ref="cltmodis" level="1" />
+                <field field_ref="clwmodis" level="1" />
+                <field field_ref="climodis" level="1" />
+                <field field_ref="tautmodis" level="1" />
+                <field field_ref="tauwmodis" level="1" />
+                <field field_ref="tauimodis" level="1" />
+                <field field_ref="tautlogmodis" level="1" />
+                <field field_ref="tauilogmodis" level="1" />
+                <field field_ref="tauwlogmodis" level="1" />
+                <field field_ref="reffclwmodis" level="1" />
+                <field field_ref="reffclimodis" level="1" />
+                <field field_ref="pctmodis"  unit="1" />
+                <field field_ref="lwpmodis" level="1" />
+                <field field_ref="iwpmodis" level="1" />
+                <field field_ref="c01_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c02_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c03_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c04_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c05_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c06_clmodis" level="1" axis_ref="pressure2" />
+                <field field_ref="c07_clmodis" level="1" axis_ref="pressure2" />
+            </field_group>
+
+        </file>
+     </file_group>
+</file_definition>
+   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmthNMC_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmthNMC_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmthNMC_lmdz.xml	(revision 3330)
@@ -0,0 +1,30 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histmthNMC" name="histmthNMC" output_freq="1mo" output_level="5" enabled="_AUTO_">
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+<!--            <field field_ref="tnondef" level="5" />  -->
+                <field field_ref="ta" level="1" />
+                <field field_ref="zg" level="5" />
+                <field field_ref="hus" level="5" />
+                <field field_ref="hur" level="5" />
+                <field field_ref="ua" level="5" />
+                <field field_ref="va" level="5" />
+                <field field_ref="wap" level="5" />
+<!--            <field field_ref="psbg" level="5" />  -->
+                <field field_ref="tro3" level="5" />
+                <field field_ref="tro3_daylight" level="5" />
+                <field field_ref="uv" level="6" />
+                <!-- <field field_ref="vq" level="6" /> -->
+                <field field_ref="vT" level="6" />
+                <field field_ref="wq" level="6" />
+                <field field_ref="vphi" level="6" />
+                <field field_ref="wT" level="6" />
+                <field field_ref="u2" level="6" />
+                <field field_ref="v2" level="6" />
+                <field field_ref="T2" level="6" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmth_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmth_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histmth_lmdz.xml	(revision 3330)
@@ -0,0 +1,572 @@
+<file_definition>
+        <file_group id="defile">
+        <file id="histmth" name="histmth" output_freq="1mo" output_level="5"  enabled="_AUTO_">
+
+            <!-- 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>  -->
+        
+            <!-- VARS 2D -->
+            <field_group operation="average" freq_op="1ts">
+                <field field_ref="phis"         level="1" />
+                <field field_ref="aire"         level="1"   operation="once"/>
+                <field field_ref="contfracATM"  level="10"  operation="once"/>
+                <field field_ref="contfracOR"   level="10" />
+                <field field_ref="aireTER"      level="10" />
+                <field field_ref="flat"         level="5" />
+                <field field_ref="slp"          level="1" />
+                <field field_ref="ptstar"       level="1" />
+                <field field_ref="pt0"          level="1" />
+                <field field_ref="tsol"         level="1" />
+                <field field_ref="t2m"          level="1" />
+                <field field_ref="t2m_min" level="1" operation="minimum" />
+                <field field_ref="t2m_max" level="1" operation="maximum" />
+                <field field_ref="t2m_ter" level="10" />
+                <field field_ref="t2m_lic" level="10" />
+                <field field_ref="t2m_oce" level="10" />
+                <field field_ref="t2m_sic" level="10" />
+                <field field_ref="gusts" level="1" />
+                <field field_ref="wind10m" level="1" />
+                <field field_ref="wind10max" level="10" operation="maximum" />
+                <field field_ref="sicf"      level="1" />
+                <field field_ref="q2m"       level="1" />
+                <field field_ref="ustar"     level="1" />
+                <field field_ref="u10m"      level="1" />
+                <field field_ref="v10m"      level="1" />
+                <field field_ref="psol"      level="1" />
+                <field field_ref="qsurf"     level="1" />
+                <field field_ref="ustar_ter" level="10" />
+                <field field_ref="ustar_lic" level="10" />
+                <field field_ref="ustar_oce" level="10" />
+                <field field_ref="ustar_sic" level="10" />
+                <field field_ref="wstar_ter" level="10" />
+                <field field_ref="wstar_lic" level="10" />
+                <field field_ref="wstar_oce" level="10" />
+                <field field_ref="wstar_sic" level="10" />
+                <field field_ref="wstar"    level="5" />
+                <field field_ref="u10m_ter" level="10" />
+                <field field_ref="u10m_lic" level="10" />
+                <field field_ref="u10m_oce" level="10" />
+                <field field_ref="u10m_sic" level="10" />
+                <field field_ref="v10m_ter" level="10" />
+                <field field_ref="v10m_lic" level="10" />
+                <field field_ref="v10m_oce" level="10" />
+                <field field_ref="v10m_sic" level="10" />
+                <field field_ref="qsol"     level="1" />
+                <field field_ref="ndayrain" level="1" operation="instant" />
+                <field field_ref="precip"   level="1" />
+                <field field_ref="plul"     level="1" />
+                <field field_ref="plun"     level="1" />
+                <field field_ref="pluc"     level="1" />
+                <field field_ref="snow"     level="1" />
+                <field field_ref="evap"     level="1" />
+                <field field_ref="evap_ter" level="1" />
+                <field field_ref="evap_lic" level="1" />
+                <field field_ref="evap_oce" level="1" />
+                <field field_ref="evap_sic" level="1" />
+                <field field_ref="msnow"    level="1" />
+                <field field_ref="fsnow"    level="1" />
+                <field field_ref="tops"     level="1" />
+                <field field_ref="tops0"    level="1" />
+                <field field_ref="topl"     level="1" />
+                <field field_ref="topl0"    level="1" />
+                <field field_ref="SWupTOA"  level="1" />
+                <field field_ref="SWupTOAclr"   level="1" />
+                <field field_ref="SWdnTOA"      level="1" />
+                <field field_ref="SWdnTOAclr"   level="1" />
+                <field field_ref="nettop"       level="1" />
+                <field field_ref="SWup200"      level="1" />
+                <field field_ref="SWup200clr"   level="10" />
+                <field field_ref="SWdn200"      level="1" />
+                <field field_ref="SWdn200clr"   level="10" />
+                <field field_ref="LWup200"      level="1" />
+                <field field_ref="LWup200clr"   level="1" />
+                <field field_ref="LWdn200"      level="1" />
+                <field field_ref="LWdn200clr"   level="1" />
+                <field field_ref="sols"  level="1" />
+                <field field_ref="sols0" level="1" />
+                <field field_ref="soll" level="1" />
+                <field field_ref="soll0" level="1" />
+                <field field_ref="radsol" level="1" />
+                <field field_ref="SWupSFC" level="1" />
+                <field field_ref="SWupSFCclr" level="1" />
+                <field field_ref="SWdnSFC" level="1" />
+                <field field_ref="SWdnSFCclr" level="1" />
+                <field field_ref="LWupSFC" level="1" />
+                <field field_ref="LWupSFCclr" level="1" />
+                <field field_ref="LWdnSFC" level="1" />
+                <field field_ref="LWdnSFCclr" level="1" />
+                <field field_ref="bils" level="1" />
+                <field field_ref="bils_tke" level="1" />
+                <field field_ref="bils_diss" level="1" />
+                <field field_ref="bils_ec" level="1" />
+                <field field_ref="bils_kinetic" level="1" />
+                <field field_ref="bils_enthalp" level="1" />
+                <field field_ref="bils_latent" level="1" />
+                <field field_ref="sens" level="1" />
+                <field field_ref="fder" level="1" />
+                <field field_ref="ffonte" level="1" />
+                <field field_ref="fqcalving" level="1" />
+                <field field_ref="fqfonte" level="1" />
+                <field field_ref="runofflic" level="1" />
+                <field field_ref="taux" level="1" />
+                <field field_ref="tauy" level="1" />
+                <field field_ref="taux_ter" level="1" />
+                <field field_ref="taux_lic" level="1" />
+                <field field_ref="taux_oce" level="1" />
+                <field field_ref="taux_sic" level="1" />
+                <field field_ref="tauy_ter" level="1" />
+                <field field_ref="tauy_lic" level="1" />
+                <field field_ref="tauy_oce" level="1" />
+                <field field_ref="tauy_sic" level="1" />
+                <field field_ref="pourc_ter" level="1" />
+                <field field_ref="pourc_lic" level="1" />
+                <field field_ref="pourc_oce" level="1" />
+                <field field_ref="pourc_sic" level="1" />
+                <field field_ref="fract_ter" level="1" />
+                <field field_ref="fract_lic" level="1" />
+                <field field_ref="fract_oce" level="1" />
+                <field field_ref="fract_sic" level="1" />
+                <field field_ref="tsol_ter" level="1" />
+                <field field_ref="tsol_lic" level="1" />
+                <field field_ref="tsol_oce" level="1" />
+                <field field_ref="tsol_sic" level="1" />
+                <field field_ref="evappot_ter" level="1" />
+                <field field_ref="evappot_lic" level="4" />
+                <field field_ref="evappot_oce" level="4" />
+                <field field_ref="evappot_sic" level="4" />
+                <field field_ref="sens_ter" level="1" />
+                <field field_ref="sens_lic" level="1" />
+                <field field_ref="sens_oce" level="1" />
+                <field field_ref="sens_sic" level="1" />
+                <field field_ref="lat_ter" level="1" />
+                <field field_ref="lat_lic" level="1" />
+                <field field_ref="lat_oce" level="1" />
+                <field field_ref="lat_sic" level="1" />
+                <field field_ref="flw_ter" level="1" />
+                <field field_ref="flw_lic" level="1" />
+                <field field_ref="flw_oce" level="1" />
+                <field field_ref="flw_sic" level="1" />
+                <field field_ref="fsw_ter" level="1" />
+                <field field_ref="fsw_lic" level="1" />
+                <field field_ref="fsw_oce" level="1" />
+                <field field_ref="fsw_sic" level="1" />
+                <field field_ref="wbils_ter" level="1" />
+                <field field_ref="wbils_lic" level="1" />
+                <field field_ref="wbils_oce" level="1" />
+                <field field_ref="wbils_sic" level="1" />
+                <field field_ref="wbilo_ter" level="1" />
+                <field field_ref="wbilo_lic" level="1" />
+                <field field_ref="wbilo_oce" level="1" />
+                <field field_ref="wbilo_sic" level="1" />
+                <field field_ref="cdrm" level="1" />
+                <field field_ref="cdrh" level="1" />
+                <field field_ref="cldl" level="1" />
+                <field field_ref="cldm" level="1" />
+                <field field_ref="cldh" level="1" />
+                <field field_ref="cldt" level="1" />
+                <field field_ref="cldq" level="1" />
+                <field field_ref="lwp" level="1" />
+                <field field_ref="iwp" level="1" />
+                <field field_ref="ue" level="1" />
+                <field field_ref="ve" level="1" />
+                <field field_ref="uq" level="1" />
+                <field field_ref="vq" level="1" />
+                <field field_ref="cape" level="1" />
+                <field field_ref="pbase" level="1" />
+                <field field_ref="ptop" level="1" />
+                <field field_ref="fbase" level="1" />
+                <field field_ref="plcl" level="1" />
+                <field field_ref="plfc" level="1" />
+                <field field_ref="wbeff" level="1" />
+                <field field_ref="prw" level="1" />
+                <field field_ref="prlw" level="1" />
+                <field field_ref="prsw" level="1" />
+                <field field_ref="s_pblh" level="1" />
+                <field field_ref="s_pblt" level="1" />
+                <field field_ref="s_lcl" level="1" />
+                <field field_ref="s_therm" level="1" />
+                <field field_ref="slab_bils_oce" level="1" />
+                <field field_ref="ale_bl" level="1" />
+                <field field_ref="alp_bl" level="1" />
+                <field field_ref="ale_wk" level="1" />
+                <field field_ref="alp_wk" level="1" />
+                <field field_ref="ale" level="1" />
+                <field field_ref="alp" level="1" />
+                <field field_ref="cin" level="1" />
+                <field field_ref="wape" level="1" />
+                <field field_ref="n2" level="1" />
+                <field field_ref="s2" level="1" />
+                <field field_ref="proba_notrig" level="1" />
+                <field field_ref="random_notrig" level="1" />
+                <field field_ref="ale_bl_stat" level="1" />
+                <field field_ref="ale_bl_trig" level="1" />
+                <field field_ref="alp_bl_det" level="1" />
+                <field field_ref="alp_bl_fluct_m" level="1" />
+                <field field_ref="alp_bl_fluct_tke" level="1" />
+                <field field_ref="alp_bl_conv" level="1" />
+                <field field_ref="alp_bl_stat" level="1" />
+
+                <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+                    <field field_ref="u850" level="1" />
+                    <field field_ref="u700" level="1" />
+                    <field field_ref="u500" level="1" />
+                    <field field_ref="u200" level="1" />
+                    <field field_ref="u100" level="1" />
+                    <field field_ref="u50" level="1" />
+                    <field field_ref="u10" level="1" />
+                    <field field_ref="v850" level="1" />
+                    <field field_ref="v700" level="1" />
+                    <field field_ref="v500" level="1" />
+                    <field field_ref="v200" level="1" />
+                    <field field_ref="v100" level="1" />
+                    <field field_ref="v50" level="1" />
+                    <field field_ref="v10" level="1" />
+                    <field field_ref="w850" level="1" />
+                    <field field_ref="w700" level="1" />
+                    <field field_ref="w500" level="1" />
+                    <field field_ref="w200" level="1" />
+                    <field field_ref="w100" level="1" />
+                    <field field_ref="w50" level="1" />
+                    <field field_ref="w10" level="1" />
+                    <field field_ref="t850" level="1" />
+                    <field field_ref="t700" level="1" />
+                    <field field_ref="t500" level="1" />
+                    <field field_ref="t200" level="1" />
+                    <field field_ref="t100" level="1" />
+                    <field field_ref="t50" level="1" />
+                    <field field_ref="t10" level="1" />
+                    <field field_ref="q850" level="1" />
+                    <field field_ref="q700" level="1" />
+                    <field field_ref="q500" level="1" />
+                    <field field_ref="q200" level="1" />
+                    <field field_ref="q100" level="1" />
+                    <field field_ref="q50" level="1" />
+                    <field field_ref="q10" level="1" />
+                    <field field_ref="z850" level="1" />
+                    <field field_ref="z700" level="1" />
+                    <field field_ref="z500" level="1" />
+                    <field field_ref="z200" level="1" />
+                    <field field_ref="z100" level="1" />
+                    <field field_ref="z50" level="1" />
+                    <field field_ref="z10" level="1" />
+                </field_group>
+
+                <field field_ref="t_oce_sic" level="1" />
+                <field field_ref="weakinv" level="10" />
+                <field field_ref="dthmin" level="10" />
+                <field field_ref="u10_ter" level="10" />
+                <field field_ref="u10_lic" level="10" />
+                <field field_ref="u10_oce" level="10" />
+                <field field_ref="u10_sic" level="10" />
+                <field field_ref="v10_ter" level="10" />
+                <field field_ref="v10_lic" level="10" />
+                <field field_ref="v10_oce" level="10" />
+                <field field_ref="v10_sic" level="10" />
+                <field field_ref="rh2m" level="5" />
+                <field field_ref="rh2m_min" level="10" operation="minimum" />
+                <field field_ref="rh2m_max" level="10" operation="maximum" />
+                <field field_ref="qsat2m" level="10" />
+                <field field_ref="tpot" level="10" />
+                <field field_ref="tpote" level="10" />
+                <field field_ref="tke" level="4" />
+                <field field_ref="tke_ter" level="10" />
+                <field field_ref="tke_lic" level="10" />
+                <field field_ref="tke_oce" level="10" />
+                <field field_ref="tke_sic" level="10" />
+                <field field_ref="tke_max_ter" level="10" operation="maximum" />
+                <field field_ref="tke_max_lic" level="10" operation="maximum" />
+                <field field_ref="tke_max_oce" level="10" operation="maximum" />
+                <field field_ref="tke_max_sic" level="10" operation="maximum" />
+                <field field_ref="l_mix_ter" level="10" />
+                <field field_ref="l_mix_lic" level="10" />
+                <field field_ref="l_mix_oce" level="10" />
+                <field field_ref="l_mix_sic" level="10" />
+                <field field_ref="l_mixmin_ter" level="10" />
+                <field field_ref="l_mixmin_lic" level="10" />
+                <field field_ref="l_mixmin_oce" level="10" />
+                <field field_ref="l_mixmin_sic" level="10" />
+                <field field_ref="SWnetOR" level="10" />
+                <field field_ref="SWdownOR" level="10" />
+                <field field_ref="LWdownOR" level="10" />
+                <field field_ref="snowl" level="10" />
+                <field field_ref="cape_max" level="10" operation="maximum" />
+                <field field_ref="solldown" level="10" />
+                <field field_ref="dtsvdfo" level="10" />
+                <field field_ref="dtsvdft" level="10" />
+                <field field_ref="dtsvdfg" level="10" />
+                <field field_ref="dtsvdfi" level="10" />
+                <field field_ref="rugs" level="10" />
+                <field field_ref="z0m" level="10" />
+                <field field_ref="z0h" level="10" />
+                <field field_ref="topswad" level="2" />
+                <field field_ref="topswad0" level="2" />
+                <field field_ref="topswai" level="2" />
+                <field field_ref="solswad" level="2" />
+                <field field_ref="solswad0" level="2" />
+                <field field_ref="solswai" level="2" />
+                <field field_ref="OD550_ASBCM" level="2" />
+                <field field_ref="OD550_ASPOMM" level="2" />
+                <field field_ref="OD550_ASSO4M" level="2" />
+                <field field_ref="OD550_CSSO4M" level="2" />
+                <field field_ref="OD550_SSSSM" level="2" />
+                <field field_ref="OD550_ASSSM" level="2" />
+                <field field_ref="OD550_CSSSM" level="2" />
+                <field field_ref="OD550_CIDUSTM" level="2" />
+                <field field_ref="OD550_AIBCM" level="2" />
+                <field field_ref="OD550_AIPOMM" level="2" />
+                <field field_ref="OD550_STRAT" level="2" />
+                <field field_ref="od550aer" level="2" />
+                <field field_ref="od865aer" level="2" />
+                <field field_ref="absvisaer" level="2" />
+                <field field_ref="od550lt1aer" level="2" />
+                <field field_ref="sconcso4" level="2" />
+                <field field_ref="sconcoa" level="2" />
+                <field field_ref="sconcbc" level="2" />
+                <field field_ref="sconcss" level="2" />
+                <field field_ref="sconcdust" level="2" />
+                <field field_ref="loadso4" level="2" />
+                <field field_ref="loadoa" level="2" />
+                <field field_ref="loadbc" level="2" />
+                <field field_ref="loadss" level="2" />
+                <field field_ref="loaddust" level="2" />
+                <field field_ref="swtoaas_nat" level="4" />
+                <field field_ref="swsrfas_nat" level="4" />
+                <field field_ref="swtoacs_nat" level="4" />
+                <field field_ref="swsrfcs_nat" level="4" />
+                <field field_ref="swtoaas_ant" level="4" />
+                <field field_ref="swsrfas_ant" level="4" />
+                <field field_ref="swtoacs_ant" level="4" />
+                <field field_ref="swsrfcs_ant" level="4" />
+                <field field_ref="swtoacf_nat" level="4" />
+                <field field_ref="swsrfcf_nat" level="4" />
+                <field field_ref="swtoacf_ant" level="4" />
+                <field field_ref="swsrfcf_ant" level="4" />
+                <field field_ref="swtoacf_zero" level="4" />
+                <field field_ref="swsrfcf_zero" level="4" />
+                <field field_ref="cldncl" level="2" />
+                <field field_ref="reffclwtop" level="2" />
+                <field field_ref="cldnvi" level="2" />
+                <field field_ref="lcc" level="2" />
+                <field field_ref="wvapp" level="2" />
+                <field field_ref="ozone_daylight" level="2" />
+                <field field_ref="albe_ter" level="3" />
+                <field field_ref="albe_lic" level="3" />
+                <field field_ref="albe_oce" level="3" />
+                <field field_ref="albe_sic" level="3" />
+                <field field_ref="ages_ter" level="10" />
+                <field field_ref="ages_lic" level="3" />
+                <field field_ref="ages_oce" level="10" />
+                <field field_ref="ages_sic" level="3" />
+                <field field_ref="snow_ter" level="10" />
+                <field field_ref="snow_lic" level="3" />
+                <field field_ref="snow_oce" level="10" />
+                <field field_ref="snow_sic" level="3" />
+                <field field_ref="rugs_ter" level="3" />
+                <field field_ref="rugs_lic" level="3" />
+                <field field_ref="rugs_oce" level="3" />
+                <field field_ref="rugs_sic" level="3" />
+                <field field_ref="z0m_ter" level="3" />
+                <field field_ref="z0m_lic" level="3" />
+                <field field_ref="z0m_oce" level="3" />
+                <field field_ref="z0m_sic" level="3" />
+                <field field_ref="z0h_ter" level="3" />
+                <field field_ref="z0h_lic" level="3" />
+                <field field_ref="z0h_oce" level="3" />
+                <field field_ref="z0h_sic" level="3" />
+                <field field_ref="alb1" level="3" />
+                <field field_ref="alb2" level="3" />
+                <field field_ref="ftime_con" level="4" operation="instant" />
+                <field field_ref="wake_h" level="4" />
+                <field field_ref="wake_s" level="4" />
+                <field field_ref="epmax" level="2" />
+                <field field_ref="plulth" level="10" />
+                <field field_ref="plulst" level="10" />
+                <field field_ref="lmaxth" level="10" />
+                <field field_ref="ftime_th" level="4" />
+                <field field_ref="f0_th" level="4" />
+                <field field_ref="zmax_th" level="4" />
+                <field field_ref="rsut4co2" level="5" />
+                <field field_ref="rlut4co2" level="5" />
+                <field field_ref="rsutcs4co2" level="5" />
+                <field field_ref="rlutcs4co2" level="5" />
+                <field field_ref="dqphy2d" level="2" />
+                <field field_ref="dqlphy2d" level="2" />
+                <field field_ref="dqsphy2d" level="2" />
+                <field field_ref="dqdyn2d" level="4" />
+                <field field_ref="dqldyn2d" level="4" />
+                <field field_ref="dqsdyn2d" level="4" />
+                <field field_ref="dqcon2d" level="4" />
+                <field field_ref="dqwak2d" level="4" />
+                <field field_ref="dqlsc2d" level="4" />
+                <field field_ref="dqvdf2d" level="4" />
+                <field field_ref="dqeva2d" level="4" />
+                <field field_ref="dqlscth2d" level="10" />
+                <field field_ref="dqlscst2d" level="10" />
+                <field field_ref="dqthe2d" level="4" />
+                <field field_ref="dqajs2d" level="4" />
+            </field_group>
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" axis_ref="presnivs">
+                <field field_ref="cldtau" level="10" />
+                <field field_ref="cldemi" level="10" />
+                <field field_ref="tke_max" level="4" operation="maximum" />
+                <field field_ref="kz" level="4" />
+                <field field_ref="kz_max" level="4" operation="maximum" />
+                <field field_ref="concso4" level="2" />
+                <field field_ref="concoa" level="2" />
+                <field field_ref="concbc" level="2" />
+                <field field_ref="concss" level="2" />
+                <field field_ref="concdust" level="2" />
+                <field field_ref="ec550aer" level="2" />
+                <field field_ref="lwcon" level="2" />
+                <field field_ref="iwcon" level="2" />
+                <field field_ref="temp" level="2" />
+                <field field_ref="theta" level="2" />
+                <field field_ref="ovap" level="2" />
+                <field field_ref="ovapinit" level="2" />
+                <field field_ref="oliq" level="2" />
+                <field field_ref="ocond" level="2" />
+                <field field_ref="geop" level="2" />
+                <field field_ref="vitu" level="2" />
+                <field field_ref="vitv" level="2" />
+                <field field_ref="vitw" level="2" />
+                <field field_ref="pres" level="2" />
+                <field field_ref="paprs" level="2" />
+                <field field_ref="mass" level="2" />
+                <field field_ref="zfull" level="2" />
+                <field field_ref="zhalf" level="2" />
+                <field field_ref="rneb" level="2" />
+                <field field_ref="rnebcon" level="2" />
+                <field field_ref="rnebls" level="2" />
+                <field field_ref="rhum" level="2" />
+                <field field_ref="ozone" level="2" />
+                <field field_ref="upwd" level="2" />
+                <field field_ref="ep" level="2" />
+                <field field_ref="dtphy" level="2" />
+                <field field_ref="dqphy" level="2" />
+                <field field_ref="dqlphy" level="2" />
+                <field field_ref="dqsphy" level="2" />
+                <field field_ref="pr_con_l" level="2" />
+                <field field_ref="pr_con_i" level="2" />
+                <field field_ref="pr_lsc_l" level="2" />
+                <field field_ref="pr_lsc_i" level="2" />
+                <field field_ref="re" level="5" />
+                <field field_ref="fl" level="5" />
+                <field field_ref="scdnc" level="2" />
+                <field field_ref="reffclws" level="2" />
+                <field field_ref="reffclwc" level="2" />
+                <field field_ref="lcc3d" level="2" />
+                <field field_ref="lcc3dcon" level="2" />
+                <field field_ref="lcc3dstra" level="2" />
+                <field field_ref="clwcon" level="4" />
+                <field field_ref="Ma" level="4" />
+                <field field_ref="dnwd" level="4" />
+                <field field_ref="dnwd0" level="4" />
+                <field field_ref="mc" level="4" />
+                <field field_ref="dtdyn" level="4" />
+                <field field_ref="dqdyn" level="4" />
+                <field field_ref="dqldyn" level="4" />
+                <field field_ref="dqsdyn" level="4" />
+                <field field_ref="dudyn" level="4" />
+                <field field_ref="dvdyn" level="4" />
+                <field field_ref="dtcon" level="4" />
+                <field field_ref="ducon" level="4" />
+                <field field_ref="dvcon" level="4" />
+                <field field_ref="dqcon" level="4" />
+                <field field_ref="dtwak" level="4" />
+                <field field_ref="dqwak" level="4" />
+                <field field_ref="wake_deltat" level="4" />
+                <field field_ref="wake_deltaq" level="4" />
+                <field field_ref="wake_omg" level="4" />
+                <field field_ref="wdtrainA" level="4" />
+                <field field_ref="wdtrainM" level="4" />
+                <field field_ref="Vprecip" level="10" />
+                <field field_ref="ftd" level="4" />
+                <field field_ref="fqd" level="4" />
+                <field field_ref="dtlsc" level="4" />
+                <field field_ref="dtlschr" level="4" />
+                <field field_ref="dqlsc" level="4" />
+                <field field_ref="beta_prec" level="4" />
+                <field field_ref="dtvdf" level="4" />
+                <field field_ref="dtdis" level="4" />
+                <field field_ref="dqvdf" level="4" />
+                <field field_ref="dteva" level="4" />
+                <field field_ref="dqeva" level="4" />
+                <field field_ref="dqlscth" level="10" />
+                <field field_ref="dqlscst" level="10" />
+                <field field_ref="dtlscth" level="10" />
+                <field field_ref="dtlscst" level="10" />
+                <field field_ref="ptconvth" level="10" />
+                <field field_ref="ptconv" level="4" />
+                <field field_ref="ratqs" level="4" />
+                <field field_ref="dtthe" level="4" />
+                <field field_ref="f_th" level="4" />
+                <field field_ref="e_th" level="4" />
+                <field field_ref="w_th" level="4" />
+                <field field_ref="lambda_th" level="10" />
+                <field field_ref="q_th" level="4" />
+                <field field_ref="a_th" level="4" />
+                <field field_ref="d_th" level="4" />
+                <field field_ref="dqthe" level="4" />
+                <field field_ref="dtajs" level="4" />
+                <field field_ref="dqajs" level="4" />
+                <field field_ref="dtswr" level="4" />
+                <field field_ref="dtsw0" level="4" />
+                <field field_ref="dtlwr" level="4" />
+                <field field_ref="dtlw0" level="4" />
+                <field field_ref="dtec"  level="4" />
+                <field field_ref="duvdf" level="4" />
+                <field field_ref="dvvdf" level="4" />
+                <field field_ref="duoro" level="4" />
+                <field field_ref="dvoro" level="4" />
+                <field field_ref="dulif" level="4" />
+                <field field_ref="dvlif" level="4" />
+                <field field_ref="du_gwd_hines" level="4" />
+                <field field_ref="dv_gwd_hines" level="4" />
+                <field field_ref="du_gwd_front" level="4" />
+                <field field_ref="dv_gwd_front" level="4" />
+                <field field_ref="east_gwstress" level="4" />
+                <field field_ref="west_gwstress" level="4" />
+                <field field_ref="dtoro" level="4" />
+                <field field_ref="dtlif" level="4" />
+                <field field_ref="dthin" level="4" />
+                <field field_ref="rsu" level="4" />
+                <field field_ref="rsd" level="4" />
+                <field field_ref="rlu" level="4" />
+                <field field_ref="rld" level="4" />
+                <field field_ref="rsucs" level="4" />
+                <field field_ref="rsdcs" level="4" />
+                <field field_ref="rlucs" level="4" />
+                <field field_ref="rldcs" level="4" />
+                <field field_ref="tnt"  level="4" />
+                <field field_ref="tntc" level="4" />
+                <field field_ref="tntr" level="4" />
+                <field field_ref="tntscpbl" level="4" />
+                <field field_ref="tnhus"    level="4" />
+                <field field_ref="tnhusc"   level="4" />
+                <field field_ref="tnhusscpbl" level="4" />
+                <field field_ref="evu" level="4" />
+                <field field_ref="h2o" level="4" />
+                <field field_ref="mcd" level="4" />
+                <field field_ref="dmc" level="4" />
+                <field field_ref="ref_liq" level="4" />
+                <field field_ref="ref_ice" level="4" />
+                <field field_ref="rsu4co2" level="5" />
+                <field field_ref="rlu4co2" level="5" />
+                <field field_ref="rsucs4co2" level="5" />
+                <field field_ref="rlucs4co2" level="5" />
+                <field field_ref="rsd4co2" level="5" />
+                <field field_ref="rld4co2" level="5" />
+                <field field_ref="rsdcs4co2" level="5" />
+                <field field_ref="rldcs4co2" level="5" />
+            </field_group>
+        </file>
+
+        </file_group>
+    </file_definition>
+   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histstn_lmdz.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histstn_lmdz.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/file_def_histstn_lmdz.xml	(revision 3330)
@@ -0,0 +1,570 @@
+<file_definition>
+    <file_group id="defile">
+        <file id="histstn" name="histstn" output_freq="1800s" output_level="5" enabled="_AUTO_">
+
+            <!-- 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>  -->
+        
+            <!-- VARS 2D -->
+            <field_group operation="average" freq_op="1ts">
+                <field field_ref="phis" level="1" />
+                <field field_ref="aire" level="1" operation="once" />
+                <field field_ref="contfracATM" level="10" operation="once" />
+                <field field_ref="contfracOR" level="10" />
+                <field field_ref="aireTER" level="10" />
+                <field field_ref="flat" level="10" />
+                <field field_ref="slp" level="10" />
+                <field field_ref="ptstar" level="10" />
+                <field field_ref="pt0" level="10" />
+                <field field_ref="tsol" level="10" />
+                <field field_ref="t2m" level="10" />
+                <field field_ref="t2m_min" level="10" operation="minimum" />
+                <field field_ref="t2m_max" level="10" operation="maximum" />
+                <field field_ref="t2m_ter" level="10" />
+                <field field_ref="t2m_lic" level="10" />
+                <field field_ref="t2m_oce" level="10" />
+                <field field_ref="t2m_sic" level="10" />
+                <field field_ref="gusts" level="10" />
+                <field field_ref="wind10m" level="10" />
+                <field field_ref="wind10max" level="10" />
+                <field field_ref="sicf" level="10" />
+                <field field_ref="q2m" level="10" />
+                <field field_ref="ustar" level="10" />
+                <field field_ref="u10m" level="10" />
+                <field field_ref="v10m" level="10" />
+                <field field_ref="psol" level="10" />
+                <field field_ref="qsurf" level="10" />
+                <field field_ref="ustar_ter" level="10" />
+                <field field_ref="ustar_lic" level="10" />
+                <field field_ref="ustar_oce" level="10" />
+                <field field_ref="ustar_sic" level="10" />
+                <field field_ref="wstar_ter" level="10" />
+                <field field_ref="wstar_lic" level="10" />
+                <field field_ref="wstar_oce" level="10" />
+                <field field_ref="wstar_sic" level="10" />
+                <field field_ref="wstar" level="10" />
+                <field field_ref="u10m_ter" level="10" />
+                <field field_ref="u10m_lic" level="10" />
+                <field field_ref="u10m_oce" level="10" />
+                <field field_ref="u10m_sic" level="10" />
+                <field field_ref="v10m_ter" level="10" />
+                <field field_ref="v10m_lic" level="10" />
+                <field field_ref="v10m_oce" level="10" />
+                <field field_ref="v10m_sic" level="10" />
+                <field field_ref="qsol" level="10" />
+                <field field_ref="ndayrain" level="10" operation="instant" />
+                <field field_ref="precip" level="10" />
+                <field field_ref="plul" level="10" />
+                <field field_ref="plun" level="10" />
+                <field field_ref="pluc" level="10" />
+                <field field_ref="snow" level="10" />
+                <field field_ref="evap" level="10" />
+                <field field_ref="evap_ter" level="10" />
+                <field field_ref="evap_lic" level="10" />
+                <field field_ref="evap_oce" level="10" />
+                <field field_ref="evap_sic" level="10" />
+                <field field_ref="msnow" level="10" />
+                <field field_ref="fsnow" level="10" />
+                <field field_ref="tops" level="10" />
+                <field field_ref="tops0" level="10" />
+                <field field_ref="topl" level="10" />
+                <field field_ref="topl0" level="10" />
+                <field field_ref="SWupTOA" level="10" />
+                <field field_ref="SWupTOAclr" level="10" />
+                <field field_ref="SWdnTOA" level="10" />
+                <field field_ref="SWdnTOAclr" level="10" />
+                <field field_ref="nettop" level="10" />
+                <field field_ref="SWup200" level="10" />
+                <field field_ref="SWup200clr" level="10" />
+                <field field_ref="SWdn200" level="10" />
+                <field field_ref="SWdn200clr" level="10" />
+                <field field_ref="LWup200" level="10" />
+                <field field_ref="LWup200clr" level="10" />
+                <field field_ref="LWdn200" level="10" />
+                <field field_ref="LWdn200clr" level="10" />
+                <field field_ref="sols" level="10" />
+                <field field_ref="sols0" level="10" />
+                <field field_ref="soll" level="10" />
+                <field field_ref="soll0" level="10" />
+                <field field_ref="radsol" level="10" />
+                <field field_ref="SWupSFC" level="10" />
+                <field field_ref="SWupSFCclr" level="10" />
+                <field field_ref="SWdnSFC" level="10" />
+                <field field_ref="SWdnSFCclr" level="10" />
+                <field field_ref="LWupSFC" level="10" />
+                <field field_ref="LWupSFCclr" level="10" />
+                <field field_ref="LWdnSFC" level="10" />
+                <field field_ref="LWdnSFCclr" level="10" />
+                <field field_ref="bils" level="10" />
+                <field field_ref="bils_tke" level="10" />
+                <field field_ref="bils_diss" level="10" />
+                <field field_ref="bils_ec" level="10" />
+                <field field_ref="bils_kinetic" level="10" />
+                <field field_ref="bils_enthalp" level="10" />
+                <field field_ref="bils_latent" level="10" />
+                <field field_ref="sens" level="10" />
+                <field field_ref="fder" level="10" />
+                <field field_ref="ffonte" level="10" />
+                <field field_ref="fqcalving" level="10" />
+                <field field_ref="fqfonte" level="10" />
+                <field field_ref="runofflic" level="10" />
+                <field field_ref="taux" level="10" />
+                <field field_ref="tauy" level="10" />
+                <field field_ref="taux_ter" level="10" />
+                <field field_ref="taux_lic" level="10" />
+                <field field_ref="taux_oce" level="10" />
+                <field field_ref="taux_sic" level="10" />
+                <field field_ref="tauy_ter" level="10" />
+                <field field_ref="tauy_lic" level="10" />
+                <field field_ref="tauy_oce" level="10" />
+                <field field_ref="tauy_sic" level="10" />
+                <field field_ref="pourc_ter" level="10" />
+                <field field_ref="pourc_lic" level="10" />
+                <field field_ref="pourc_oce" level="10" />
+                <field field_ref="pourc_sic" level="10" />
+                <field field_ref="fract_ter" level="10" />
+                <field field_ref="fract_lic" level="10" />
+                <field field_ref="fract_oce" level="10" />
+                <field field_ref="fract_sic" level="10" />
+                <field field_ref="tsol_ter" level="10" />
+                <field field_ref="tsol_lic" level="10" />
+                <field field_ref="tsol_oce" level="10" />
+                <field field_ref="tsol_sic" level="10" />
+                <field field_ref="evappot_ter" level="10" />
+                <field field_ref="evappot_lic" level="10" />
+                <field field_ref="evappot_oce" level="10" />
+                <field field_ref="evappot_sic" level="10" />
+                <field field_ref="sens_ter" level="10" />
+                <field field_ref="sens_lic" level="10" />
+                <field field_ref="sens_oce" level="10" />
+                <field field_ref="sens_sic" level="10" />
+                <field field_ref="lat_ter" level="10" />
+                <field field_ref="lat_lic" level="10" />
+                <field field_ref="lat_oce" level="10" />
+                <field field_ref="lat_sic" level="10" />
+                <field field_ref="flw_ter" level="10" />
+                <field field_ref="flw_lic" level="10" />
+                <field field_ref="flw_oce" level="10" />
+                <field field_ref="flw_sic" level="10" />
+                <field field_ref="fsw_ter" level="10" />
+                <field field_ref="fsw_lic" level="10" />
+                <field field_ref="fsw_oce" level="10" />
+                <field field_ref="fsw_sic" level="10" />
+                <field field_ref="wbils_ter" level="10" />
+                <field field_ref="wbils_lic" level="10" />
+                <field field_ref="wbils_oce" level="10" />
+                <field field_ref="wbils_sic" level="10" />
+                <field field_ref="wbilo_ter" level="10" />
+                <field field_ref="wbilo_lic" level="10" />
+                <field field_ref="wbilo_oce" level="10" />
+                <field field_ref="wbilo_sic" level="10" />
+                <field field_ref="cdrm" level="10" />
+                <field field_ref="cdrh" level="10" />
+                <field field_ref="cldl" level="10" />
+                <field field_ref="cldm" level="10" />
+                <field field_ref="cldh" level="10" />
+                <field field_ref="cldt" level="10" />
+                <field field_ref="cldq" level="10" />
+                <field field_ref="lwp" level="10" />
+                <field field_ref="iwp" level="10" />
+                <field field_ref="ue" level="10" />
+                <field field_ref="ve" level="10" />
+                <field field_ref="uq" level="10" />
+                <field field_ref="vq" level="10" />
+                <field field_ref="cape" level="10" />
+                <field field_ref="pbase" level="10" />
+                <field field_ref="ptop" level="10" />
+                <field field_ref="fbase" level="10" />
+                <field field_ref="plcl" level="10" />
+                <field field_ref="plfc" level="10" />
+                <field field_ref="wbeff" level="10" />
+                <field field_ref="prw" level="10" />
+                <field field_ref="prlw" level="10" />
+                <field field_ref="prsw" level="10" />
+                <field field_ref="s_pblh" level="10" />
+                <field field_ref="s_pblt" level="10" />
+                <field field_ref="s_lcl" level="10" />
+                <field field_ref="s_therm" level="10" />
+                <field field_ref="slab_bils_oce" level="10" />
+                <field field_ref="ale_bl" level="10" />
+                <field field_ref="alp_bl" level="10" />
+                <field field_ref="ale_wk" level="10" />
+                <field field_ref="alp_wk" level="10" />
+                <field field_ref="ale" level="10" />
+                <field field_ref="alp" level="10" />
+                <field field_ref="cin" level="10" />
+                <field field_ref="wape" level="10" />
+                <field field_ref="n2" level="10" />
+                <field field_ref="s2" level="10" />
+                <field field_ref="proba_notrig" level="10" />
+                <field field_ref="random_notrig" level="10" />
+                <field field_ref="ale_bl_stat" level="10" />
+                <field field_ref="ale_bl_trig" level="10" />
+                <field field_ref="alp_bl_det" level="10" />
+                <field field_ref="alp_bl_fluct_m" level="10" />
+                <field field_ref="alp_bl_fluct_tke" level="10" />
+                <field field_ref="alp_bl_conv" level="10" />
+                <field field_ref="alp_bl_stat" level="10" />
+
+                <field_group operation="average" freq_op="1ts" detect_missing_value=".true.">
+                    <field field_ref="u850" level="10" />
+                    <field field_ref="u700" level="10" />
+                    <field field_ref="u500" level="10" />
+                    <field field_ref="u200" level="10" />
+                    <field field_ref="u100" level="10" />
+                    <field field_ref="u50" level="10" />
+                    <field field_ref="u10" level="10" />
+                    <field field_ref="v850" level="10" />
+                    <field field_ref="v700" level="10" />
+                    <field field_ref="v500" level="10" />
+                    <field field_ref="v200" level="10" />
+                    <field field_ref="v100" level="10" />
+                    <field field_ref="v50" level="10" />
+                    <field field_ref="v10" level="10" />
+                    <field field_ref="w850" level="10" />
+                    <field field_ref="w700" level="10" />
+                    <field field_ref="w500" level="10" />
+                    <field field_ref="w200" level="10" />
+                    <field field_ref="w100" level="10" />
+                    <field field_ref="w50" level="10" />
+                    <field field_ref="w10" level="10" />
+                    <field field_ref="t850" level="10" />
+                    <field field_ref="t700" level="10" />
+                    <field field_ref="t500" level="10" />
+                    <field field_ref="t200" level="10" />
+                    <field field_ref="t100" level="10" />
+                    <field field_ref="t50" level="10" />
+                    <field field_ref="t10" level="10" />
+                    <field field_ref="q850" level="10" />
+                    <field field_ref="q700" level="10" />
+                    <field field_ref="q500" level="10" />
+                    <field field_ref="q200" level="10" />
+                    <field field_ref="q100" level="10" />
+                    <field field_ref="q50" level="10" />
+                    <field field_ref="q10" level="10" />
+                    <field field_ref="z850" level="10" />
+                    <field field_ref="z700" level="10" />
+                    <field field_ref="z500" level="10" />
+                    <field field_ref="z200" level="10" />
+                    <field field_ref="z100" level="10" />
+                    <field field_ref="z50" level="10" />
+                    <field field_ref="z10" level="10" />
+                </field_group>
+
+                <field field_ref="t_oce_sic" level="10" />
+                <field field_ref="weakinv" level="10" />
+                <field field_ref="dthmin" level="10" />
+                <field field_ref="u10_ter" level="10" />
+                <field field_ref="u10_lic" level="10" />
+                <field field_ref="u10_oce" level="10" />
+                <field field_ref="u10_sic" level="10" />
+                <field field_ref="v10_ter" level="10" />
+                <field field_ref="v10_lic" level="10" />
+                <field field_ref="v10_oce" level="10" />
+                <field field_ref="v10_sic" level="10" />
+                <field field_ref="rh2m" level="10" />
+                <field field_ref="rh2m_min" level="10" operation="minimum" />
+                <field field_ref="rh2m_max" level="10" operation="maximum" />
+                <field field_ref="qsat2m" level="10" />
+                <field field_ref="tpot" level="10" />
+                <field field_ref="tpote" level="10" />
+                <field field_ref="tke" level="10" />
+                <field field_ref="tke_ter" level="10" />
+                <field field_ref="tke_lic" level="10" />
+                <field field_ref="tke_oce" level="10" />
+                <field field_ref="tke_sic" level="10" />
+                <field field_ref="tke_max_ter" level="10" operation="maximum" />
+                <field field_ref="tke_max_lic" level="10" operation="maximum" />
+                <field field_ref="tke_max_oce" level="10" operation="maximum" />
+                <field field_ref="tke_max_sic" level="10" operation="maximum" />
+                <field field_ref="l_mix_ter" level="10" />
+                <field field_ref="l_mix_lic" level="10" />
+                <field field_ref="l_mix_oce" level="10" />
+                <field field_ref="l_mix_sic" level="10" />
+                <field field_ref="l_mixmin_ter" level="10" />
+                <field field_ref="l_mixmin_lic" level="10" />
+                <field field_ref="l_mixmin_oce" level="10" />
+                <field field_ref="l_mixmin_sic" level="10" />
+                <field field_ref="SWnetOR" level="10" />
+                <field field_ref="SWdownOR" level="10" />
+                <field field_ref="LWdownOR" level="10" />
+                <field field_ref="snowl" level="10" />
+                <field field_ref="cape_max" level="10" operation="maximum" />
+                <field field_ref="solldown" level="10" />
+                <field field_ref="dtsvdfo" level="10" />
+                <field field_ref="dtsvdft" level="10" />
+                <field field_ref="dtsvdfg" level="10" />
+                <field field_ref="dtsvdfi" level="10" />
+                <field field_ref="rugs" level="10" />
+                <field field_ref="z0m" level="10" />
+                <field field_ref="z0h" level="10" />
+                <field field_ref="topswad" level="10" />
+                <field field_ref="topswad0" level="10" />
+                <field field_ref="topswai" level="10" />
+                <field field_ref="solswad" level="10" />
+                <field field_ref="solswad0" level="10" />
+                <field field_ref="solswai" level="10" />
+                <field field_ref="OD550_ASBCM" level="10" />
+                <field field_ref="OD550_ASPOMM" level="10" />
+                <field field_ref="OD550_ASSO4M" level="10" />
+                <field field_ref="OD550_CSSO4M" level="10" />
+                <field field_ref="OD550_SSSSM" level="10" />
+                <field field_ref="OD550_ASSSM" level="10" />
+                <field field_ref="OD550_CSSSM" level="10" />
+                <field field_ref="OD550_CIDUSTM" level="10" />
+                <field field_ref="OD550_AIBCM" level="10" />
+                <field field_ref="OD550_AIPOMM" level="10" />
+                <field field_ref="OD550_STRAT" level="10" />
+                <field field_ref="od550aer" level="10" />
+                <field field_ref="od865aer" level="10" />
+                <field field_ref="absvisaer" level="10" />
+                <field field_ref="od550lt1aer" level="10" />
+                <field field_ref="sconcso4" level="10" />
+                <field field_ref="sconcoa" level="10" />
+                <field field_ref="sconcbc" level="10" />
+                <field field_ref="sconcss" level="10" />
+                <field field_ref="sconcdust" level="10" />
+                <field field_ref="loadso4" level="10" />
+                <field field_ref="loadoa" level="10" />
+                <field field_ref="loadbc" level="10" />
+                <field field_ref="loadss" level="10" />
+                <field field_ref="loaddust" level="10" />
+                <field field_ref="swtoaas_nat" level="10" />
+                <field field_ref="swsrfas_nat" level="10" />
+                <field field_ref="swtoacs_nat" level="10" />
+                <field field_ref="swsrfcs_nat" level="10" />
+                <field field_ref="swtoaas_ant" level="10" />
+                <field field_ref="swsrfas_ant" level="10" />
+                <field field_ref="swtoacs_ant" level="10" />
+                <field field_ref="swsrfcs_ant" level="10" />
+                <field field_ref="swtoacf_nat" level="10" />
+                <field field_ref="swsrfcf_nat" level="10" />
+                <field field_ref="swtoacf_ant" level="10" />
+                <field field_ref="swsrfcf_ant" level="10" />
+                <field field_ref="swtoacf_zero" level="10" />
+                <field field_ref="swsrfcf_zero" level="10" />
+                <field field_ref="cldncl" level="10" />
+                <field field_ref="reffclwtop" level="10" />
+                <field field_ref="cldnvi" level="10" />
+                <field field_ref="lcc" level="10" />
+                <field field_ref="wvapp" level="10" />
+                <field field_ref="ozone_daylight" level="10" />
+                <field field_ref="albe_ter" level="10" />
+                <field field_ref="albe_lic" level="10" />
+                <field field_ref="albe_oce" level="10" />
+                <field field_ref="albe_sic" level="10" />
+                <field field_ref="ages_ter" level="10" />
+                <field field_ref="ages_lic" level="10" />
+                <field field_ref="ages_oce" level="10" />
+                <field field_ref="ages_sic" level="10" />
+                <field field_ref="snow_ter" level="10" />
+                <field field_ref="snow_lic" level="10" />
+                <field field_ref="snow_oce" level="10" />
+                <field field_ref="snow_sic" level="10" />
+                <field field_ref="rugs_ter" level="10" />
+                <field field_ref="rugs_lic" level="10" />
+                <field field_ref="rugs_oce" level="10" />
+                <field field_ref="rugs_sic" level="10" />
+                <field field_ref="z0m_ter" level="10" />
+                <field field_ref="z0m_lic" level="10" />
+                <field field_ref="z0m_oce" level="10" />
+                <field field_ref="z0m_sic" level="10" />
+                <field field_ref="z0h_ter" level="10" />
+                <field field_ref="z0h_lic" level="10" />
+                <field field_ref="z0h_oce" level="10" />
+                <field field_ref="z0h_sic" level="10" />
+                <field field_ref="alb1" level="10" />
+                <field field_ref="alb2" level="10" />
+                <field field_ref="ftime_con" level="10" operation="instant" />
+                <field field_ref="wake_h" level="10" />
+                <field field_ref="wake_s" level="10" />
+                <field field_ref="epmax" level="10" />
+                <field field_ref="plulth" level="10" />
+                <field field_ref="plulst" level="10" />
+                <field field_ref="lmaxth" level="10" />
+                <field field_ref="ftime_th" level="10" />
+                <field field_ref="f0_th" level="10" />
+                <field field_ref="zmax_th" level="10" />
+                <field field_ref="rsut4co2" level="10" />
+                <field field_ref="rlut4co2" level="10" />
+                <field field_ref="rsutcs4co2" level="10" />
+                <field field_ref="rlutcs4co2" level="10" />
+                <field field_ref="dqphy2d" level="10" />
+                <field field_ref="dqlphy2d" level="10" />
+                <field field_ref="dqsphy2d" level="10" />
+                <field field_ref="dqdyn2d" level="10" />
+                <field field_ref="dqldyn2d" level="10" />
+                <field field_ref="dqsdyn2d" level="10" />
+                <field field_ref="dqcon2d" level="10" />
+                <field field_ref="dqwak2d" level="10" />
+                <field field_ref="dqlsc2d" level="10" />
+                <field field_ref="dqvdf2d" level="10" />
+                <field field_ref="dqeva2d" level="10" />
+                <field field_ref="dqlscth2d" level="10" />
+                <field field_ref="dqlscst2d" level="10" />
+                <field field_ref="dqthe2d" level="10" />
+                <field field_ref="dqajs2d" level="10" />
+            </field_group>
+
+            <!-- VARS 3D -->
+            <field_group operation="average" freq_op="1ts" axis_ref="presnivs">
+                <field field_ref="cldtau" level="10" />
+                <field field_ref="cldemi" level="10" />
+                <field field_ref="tke_max" level="10" operation="maximum" />
+                <field field_ref="kz" level="10" />
+                <field field_ref="kz_max" level="10" operation="maximum" />
+                <field field_ref="concso4" level="10" />
+                <field field_ref="concoa" level="10" />
+                <field field_ref="concbc" level="10" />
+                <field field_ref="concss" level="10" />
+                <field field_ref="concdust" level="10" />
+                <field field_ref="ec550aer" level="10" />
+                <field field_ref="lwcon" level="10" />
+                <field field_ref="iwcon" level="10" />
+                <field field_ref="temp" level="10" />
+                <field field_ref="theta" level="10" />
+                <field field_ref="ovap" level="10" />
+                <field field_ref="ovapinit" level="10" />
+                <field field_ref="oliq" level="10" />
+                <field field_ref="ocond" level="10" />
+                <field field_ref="geop" level="10" />
+                <field field_ref="vitu" level="10" />
+                <field field_ref="vitv" level="10" />
+                <field field_ref="vitw" level="10" />
+                <field field_ref="pres" level="10" />
+                <field field_ref="paprs" level="10" />
+                <field field_ref="mass" level="10" />
+                <field field_ref="zfull" level="10" />
+                <field field_ref="zhalf" level="10" />
+                <field field_ref="rneb" level="10" />
+                <field field_ref="rnebcon" level="10" />
+                <field field_ref="rnebls" level="10" />
+                <field field_ref="rhum" level="10" />
+                <field field_ref="ozone" level="10" />
+                <field field_ref="upwd" level="10" />
+                <field field_ref="ep" level="10" />
+                <field field_ref="dtphy" level="10" />
+                <field field_ref="dqphy" level="10" />
+                <field field_ref="dqlphy" level="10" />
+                <field field_ref="dqsphy" level="10" />
+                <field field_ref="pr_con_l" level="10" />
+                <field field_ref="pr_con_i" level="10" />
+                <field field_ref="pr_lsc_l" level="10" />
+                <field field_ref="pr_lsc_i" level="10" />
+                <field field_ref="re" level="10" />
+                <field field_ref="fl" level="10" />
+                <field field_ref="scdnc" level="10" />
+                <field field_ref="reffclws" level="10" />
+                <field field_ref="reffclwc" level="10" />
+                <field field_ref="lcc3d" level="10" />
+                <field field_ref="lcc3dcon" level="10" />
+                <field field_ref="lcc3dstra" level="10" />
+                <field field_ref="clwcon" level="10" />
+                <field field_ref="Ma" level="10" />
+                <field field_ref="dnwd" level="10" />
+                <field field_ref="dnwd0" level="10" />
+                <field field_ref="mc" level="10" />
+                <field field_ref="dtdyn" level="10" />
+                <field field_ref="dqdyn" level="10" />
+                <field field_ref="dqldyn" level="10" />
+                <field field_ref="dqsdyn" level="10" />
+                <field field_ref="dudyn" level="10" />
+                <field field_ref="dvdyn" level="10" />
+                <field field_ref="dtcon" level="10" />
+                <field field_ref="ducon" level="10" />
+                <field field_ref="dvcon" level="10" />
+                <field field_ref="dqcon" level="10" />
+                <field field_ref="dtwak" level="10" />
+                <field field_ref="dqwak" level="10" />
+                <field field_ref="wake_deltat" level="10" />
+                <field field_ref="wake_deltaq" level="10" />
+                <field field_ref="wake_omg" level="10" />
+                <field field_ref="wdtrainA" level="10" />
+                <field field_ref="wdtrainM" level="10" />
+                <field field_ref="Vprecip" level="10" />
+                <field field_ref="ftd" level="10" />
+                <field field_ref="fqd" level="10" />
+                <field field_ref="dtlsc" level="10" />
+                <field field_ref="dtlschr" level="10" />
+                <field field_ref="dqlsc" level="10" />
+                <field field_ref="beta_prec" level="10" />
+                <field field_ref="dtvdf" level="10" />
+                <field field_ref="dtdis" level="10" />
+                <field field_ref="dqvdf" level="10" />
+                <field field_ref="dteva" level="10" />
+                <field field_ref="dqeva" level="10" />
+                <field field_ref="dqlscth" level="10" />
+                <field field_ref="dqlscst" level="10" />
+                <field field_ref="dtlscth" level="10" />
+                <field field_ref="dtlscst" level="10" />
+                <field field_ref="ptconvth" level="10" />
+                <field field_ref="ptconv" level="10" />
+                <field field_ref="ratqs" level="10" />
+                <field field_ref="dtthe" level="10" />
+                <field field_ref="f_th" level="10" />
+                <field field_ref="e_th" level="10" />
+                <field field_ref="w_th" level="10" />
+                <field field_ref="lambda_th" level="10" />
+                <field field_ref="q_th" level="10" />
+                <field field_ref="a_th" level="10" />
+                <field field_ref="d_th" level="10" />
+                <field field_ref="dqthe" level="10" />
+                <field field_ref="dtajs" level="10" />
+                <field field_ref="dqajs" level="10" />
+                <field field_ref="dtswr" level="10" />
+                <field field_ref="dtsw0" level="10" />
+                <field field_ref="dtlwr" level="10" />
+                <field field_ref="dtlw0" level="10" />
+                <field field_ref="dtec" level="10" />
+                <field field_ref="duvdf" level="10" />
+                <field field_ref="dvvdf" level="10" />
+                <field field_ref="duoro" level="10" />
+                <field field_ref="dvoro" level="10" />
+                <field field_ref="dulif" level="10" />
+                <field field_ref="dvlif" level="10" />
+                <field field_ref="du_gwd_hines" level="10" />
+                <field field_ref="dv_gwd_hines" level="10" />
+                <field field_ref="du_gwd_front" level="10" />
+                <field field_ref="dv_gwd_front" level="10" />
+                <field field_ref="east_gwstress" level="10" />
+                <field field_ref="west_gwstress" level="10" />
+                <field field_ref="dtoro" level="10" />
+                <field field_ref="dtlif" level="10" />
+                <field field_ref="dthin" level="10" />
+                <field field_ref="rsu" level="10" />
+                <field field_ref="rsd" level="10" />
+                <field field_ref="rlu" level="10" />
+                <field field_ref="rld" level="10" />
+                <field field_ref="rsucs" level="10" />
+                <field field_ref="rsdcs" level="10" />
+                <field field_ref="rlucs" level="10" />
+                <field field_ref="rldcs" level="10" />
+                <field field_ref="tnt" level="10" />
+                <field field_ref="tntc" level="10" />
+                <field field_ref="tntr" level="10" />
+                <field field_ref="tntscpbl" level="10" />
+                <field field_ref="tnhus" level="10" />
+                <field field_ref="tnhusc" level="10" />
+                <field field_ref="tnhusscpbl" level="10" />
+                <field field_ref="evu" level="10" />
+                <field field_ref="h2o" level="10" />
+                <field field_ref="mcd" level="10" />
+                <field field_ref="dmc" level="10" />
+                <field field_ref="ref_liq" level="10" />
+                <field field_ref="ref_ice" level="10" />
+                <field field_ref="rsu4co2" level="10" />
+                <field field_ref="rlu4co2" level="10" />
+                <field field_ref="rsucs4co2" level="10" />
+                <field field_ref="rlucs4co2" level="10" />
+                <field field_ref="rsd4co2" level="10" />
+                <field field_ref="rld4co2" level="10" />
+                <field field_ref="rsdcs4co2" level="10" />
+                <field field_ref="rldcs4co2" level="10" />
+            </field_group>
+        </file>
+    </file_group>
+</file_definition>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def	(revision 3330)
@@ -0,0 +1,62 @@
+## $Id: gcm.def 1403 2010-07-01 09:02:53Z fairhead $
+## nombre de pas par jour (multiple de iperiod) ( ici pour  dt = 1 min )      
+day_step=480
+## periode pour le pas Matsuno (en pas)
+iperiod=5
+## periode de la dissipation (en pas)
+## dissip_period=0
+## choix de l'operateur de dissipation (star ou  non star )
+lstardis=y
+## nombre d'iterations de l'operateur de dissipation   gradiv
+nitergdiv=1
+## nombre d'iterations de l'operateur de dissipation  nxgradrot
+nitergrot=2
+## nombre d'iterations de l'operateur de dissipation  divgrad            
+niterh=2
+## temps de dissipation des plus petites long.d ondes pour u,v (gradiv)  
+tetagdiv=5400.
+## temps de dissipation des plus petites long.d ondes pour u,v(nxgradrot)
+tetagrot=5400.
+## temps de dissipation des plus petites long.d ondes pour  h ( divgrad) 
+tetatemp=5400.
+## coefficient pour gamdissip                                            
+coefdis=0.
+## choix du shema d'integration temporelle (Matsuno:y ou Matsuno-leapfrog:n) 
+purmats=n
+## avec ou sans physique
+## 0: pas de physique (e.g. en mode Shallow Water)
+## 1: avec physique (e.g. physique phylmd)
+## 2: avec rappel newtonien dans la dynamique                                         
+iflag_phys=1
+## avec ou sans fichiers de demarrage (start.nc, startphy.nc) ?
+## (sans fichiers de demarrage, initialisation des champs par iniacademic
+##  dans la dynamique)
+read_start=y
+## periode de la physique (en pas dynamiques, n'a de sens que si iflag_phys=1)                                       
+iphysiq=10
+##  Avec ou sans strato
+ok_strato=y 
+#  Couche eponge dans les couches de pression plus faible que 100 fois la pression de la derniere couche
+iflag_top_bound=2
+#  Coefficient pour la couche eponge (valeur derniere couche)
+tau_top_bound=5.e-5
+## longitude en degres du centre du zoom                                 
+clon=0.
+## latitude en degres du centre du zoom                                  
+clat=0.
+## facteur de grossissement du zoom,selon longitude                      
+grossismx=1.0
+## facteur de grossissement du zoom ,selon latitude                      
+grossismy=1.0
+##  Fonction  f(y)  hyperbolique  si = .true.  , sinon  sinusoidale         
+fxyhypb=y
+## extension en longitude  de la zone du zoom  ( fraction de la zone totale)
+dzoomx=0.0
+## extension en latitude de la zone  du zoom  ( fraction de la zone totale)
+dzoomy=0.0
+##raideur du zoom en  X
+taux=3.
+##raideur du zoom en  Y
+tauy=3.
+##  Fonction  f(y) avec y = Sin(latit.) si = .true. , sinon y = latit.         
+ysinus=y
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def_144x142
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def_144x142	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def_144x142	(revision 3330)
@@ -0,0 +1,58 @@
+## $Id: gcm.def 1403 2010-07-01 09:02:53Z fairhead $
+## nombre de pas par jour (multiple de iperiod) ( ici pour  dt = 1 min )      
+day_step=960
+## periode pour le pas Matsuno (en pas)
+iperiod=5
+## choix de l'operateur de dissipation (star ou  non star )
+lstardis=y
+## nombre d'iterations de l'operateur de dissipation   gradiv
+nitergdiv=1
+## nombre d'iterations de l'operateur de dissipation  nxgradrot
+nitergrot=2
+## nombre d'iterations de l'operateur de dissipation  divgrad            
+niterh=2
+## temps de dissipation des plus petites long.d ondes pour u,v (gradiv)  
+tetagdiv=1800.
+## temps de dissipation des plus petites long.d ondes pour u,v(nxgradrot)
+#tetagrot=5400.
+tetagrot=7200.
+## temps de dissipation des plus petites long.d ondes pour  h ( divgrad) 
+tetatemp=5400.
+## coefficient pour gamdissip                                            
+coefdis=0.
+## choix du shema d'integration temporelle (Matsuno:y ou Matsuno-leapfrog:n) 
+purmats=n
+## avec ou sans physique
+## 0: pas de physique (e.g. en mode Shallow Water)
+## 1: avec physique (e.g. physique phylmd)
+## 2: avec rappel newtonien dans la dynamique                                         
+iflag_phys=1
+## avec ou sans fichiers de demarrage (start.nc, startphy.nc) ?
+## (sans fichiers de demarrage, initialisation des champs par iniacademic
+##  dans la dynamique)
+read_start=y
+## periode de la physique (en pas dynamiques, n'a de sens que si iflag_phys=1)                                       
+iphysiq=_AUTO_ : DEFAULT = 5
+#
+#
+### Parametres du zoom
+## longitude en degres du centre du zoom                                 
+clon=0.
+## latitude en degres du centre du zoom                                  
+clat=0.
+## facteur de grossissement du zoom,selon longitude                      
+grossismx=1.0
+## facteur de grossissement du zoom ,selon latitude                      
+grossismy=1.0
+##  Fonction  f(y)  hyperbolique  si = .true.  , sinon  sinusoidale         
+fxyhypb=y
+## extension en longitude  de la zone du zoom  ( fraction de la zone totale)
+dzoomx=0.0
+## extension en latitude de la zone  du zoom  ( fraction de la zone totale)
+dzoomy=0.0
+##raideur du zoom en  X
+taux=3.
+##raideur du zoom en  Y
+tauy=3.
+##  Fonction  f(y) avec y = Sin(latit.) si = .true. , sinon y = latit.         
+ysinus=y
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def_96x95x39_NPv3.1
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def_96x95x39_NPv3.1	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/gcm.def_96x95x39_NPv3.1	(revision 3330)
@@ -0,0 +1,64 @@
+## $Header: /home/ioipsl/CVSROOT/IPSLCM4_v1/EXP00/gcm.def,v 1.3 2004/03/30 13:12:23 adm Exp $
+ok_guide=n
+ok_strato=y
+##  Activation ou non de la parametrisation de Hines pour la strato
+ok_hines=y
+#  Couche eponge dans les couches de pression plus faible que 100 fois la pression de la derniere couche
+iflag_top_bound=2
+#  Coefficient pour la couche eponge (valeur derniere couche)
+tau_top_bound=5.e-5
+## nombre de pas par jour (multiple de iperiod) ( ici pour  dt = 1 min )      
+day_step=480
+## periode pour le pas Matsuno (en pas)
+iperiod=5
+## periode de la dissipation (en pas)
+idissip=5
+## choix de l'operateur de dissipation (star ou  non star )
+lstardis=y
+## nombre d'iterations de l'operateur de dissipation   gradiv
+nitergdiv=1
+## nombre d'iterations de l'operateur de dissipation  nxgradrot
+nitergrot=2
+## nombre d'iterations de l'operateur de dissipation  divgrad            
+niterh=2
+## temps de dissipation des plus petites long.d ondes pour u,v (gradiv)  
+tetagdiv=5400.
+#tetagdiv=2400.
+## temps de dissipation des plus petites long.d ondes pour u,v(nxgradrot)
+#tetagrot=7200.
+tetagrot=5400.
+#tetagrot=2400.
+## temps de dissipation des plus petites long.d ondes pour  h ( divgrad) 
+#tetatemp=7200.
+tetatemp=5400.
+#tetatemp=2400.
+## coefficient pour gamdissip                                            
+coefdis=0.
+## choix du shema d'integration temporelle (Matsuno ou Matsuno-leapfrog) 
+purmats=n
+## avec ou sans physique                                                 
+iflag_phys=1
+## periode de la physique (en pas)                                       
+iphysiq=5
+## longitude en degres du centre du zoom                                 
+clon=0.
+## latitude en degres du centre du zoom                                  
+clat=0.
+## facteur de grossissement du zoom,selon longitude                      
+grossismx=1.0
+## facteur de grossissement du zoom ,selon latitude                      
+grossismy=1.0
+##  Fonction  f(y)  hyperbolique  si = .true.  , sinon  sinusoidale         
+fxyhypb=y
+## extension en longitude  de la zone du zoom  ( fraction de la zone totale)
+dzoomx=0.0
+## extension en latitude de la zone  du zoom  ( fraction de la zone totale)
+dzoomy=0.0
+##raideur du zoom en  X
+taux=3.
+##raideur du zoom en  Y
+tauy=3.
+##  Fonction  f(y) avec y = Sin(latit.) si = .true. , sinon y = latit.         
+ysinus=y
+
+nsplit_phys=2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/guide.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/guide.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/guide.def	(revision 3330)
@@ -0,0 +1,36 @@
+ok_guide=y
+# guidage sur niveaux modèle (y) ou standard
+guide_modele=y
+# inversion de l'ordre des niveaux verticaux
+guide_invertp=y
+ ######################################
+ #### guidage de u #####
+ guide_u=y
+ ######################################
+ #### guidage de v #####
+ guide_v=y
+ ######################################
+ #### guidage de T #####
+ guide_T=y
+ ######################################
+ #### guidage de P #####
+ guide_P=n
+ ######################################
+ #### guidage de Q (hr=y:hum.rel,n:hum.spec) #####
+ guide_Q=n
+ guide_hr=n
+ ######################################
+ ## guidage dans la couche limite
+ guide_BL=n
+ ######################################
+ini_anal=n
+tau_min_u=0.04166667
+tau_max_u=0.125
+tau_min_v=0.04166667
+tau_max_v=0.125
+tau_min_T=0.04166667
+tau_max_T=10.
+tau_min_Q=0.2
+tau_max_Q=10.
+# gamma limité
+gamma4=n
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef.xml	(revision 3330)
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<simulation> 
+	
+	<context  id="xios">
+		<variable_definition>
+       		<variable_group id="buffer">
+            	buffer_size = 85000000
+            	buffer_server_factor_size = 2 
+         	</variable_group>
+
+        	<variable_group id="parameters" >
+        		<variable id="using_server" type="bool">true</variable>
+        		<variable id="info_level" type="int">0</variable>
+        	</variable_group>
+		</variable_definition>
+	</context>
+	
+
+	<context id="LMDZ" src="./context_lmdz.xml"/>
+
+
+</simulation>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef_XIOS1.0.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef_XIOS1.0.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef_XIOS1.0.xml	(revision 3330)
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<simulation> 
+	
+	<context  id="xios">
+		<variable_definition>
+       		<variable_group id="buffer">
+            	buffer_size = 85000000
+            	buffer_server_factor_size = 2 
+         	</variable_group>
+
+        	<variable_group id="parameters" >
+        		<variable id="using_server" type="boolean">true</variable>
+        		<variable id="info_level" type="int">0</variable>
+        	</variable_group>
+		</variable_definition>
+	</context>
+	
+
+	<context id="LMDZ" src="./context_lmdz.xml"/>
+
+
+</simulation>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef_dev.xml
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef_dev.xml	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/iodef_dev.xml	(revision 3330)
@@ -0,0 +1,121 @@
+<?xml version="1.0"?>
+<simulation> 
+    <context id="LMDZ" calendar_type="D360" start_date="1980-01-01 00:00:00">
+        <!-- Definition of model variables -->
+        <field_definition prec="4" 
+                          freq_op="1ts"
+                          enabled=".TRUE.">
+            
+            <!-- 2D variables -->
+            <field_group id="fields_2D" domain_ref="dom_glo">
+                <field id="ps"
+                       long_name="Surface Pressure" 
+                       unit="m/s" />
+            </field_group>
+
+            <!-- 3D variables -->
+            <field_group id="fields_3D"
+                         domain_ref="dom_glo">
+                <field id="temperature"
+                       long_name="Atmospheric temperature"
+                       unit="K" />
+                <field id="temp_newton"
+                       long_name="Relaxation temperature"
+                       unit="K" />
+                <field id="u"
+                       long_name="Eastward Zonal Wind"
+                       unit="m/s" />
+                <field id="v" 
+                       long_name="Northward Meridional Wind" 
+                       unit="m/s" />
+            </field_group>
+        </field_definition>
+
+        <!-- Définition of output files -->
+
+        <file_definition>
+            <!-- <file_group id="defile"> -->
+                <file id="histins"
+                      name="Xhistins"
+                      output_freq="12ts" 
+                      enabled=".TRUE."> <!-- NB: output_freq in physics ts-->
+                    
+                    <!-- VARS 2D -->
+                    <field_group operation="instant"
+                                 freq_op="1ts">
+                        <field field_ref="ps" />
+                    </field_group>
+                    <!-- <field_group field_group_ref="fields_2D"
+                                 operation="instant" /> doesn't work ?!? -->
+
+                    <!-- VARS 3D -->
+                    <field_group operation="instant"
+                                 freq_op="1ts"
+                                 axis_ref="presnivs">
+                        <field field_ref="temperature" />
+                        <field field_ref="temp_newton" operation="once" />
+                        <field field_ref="u" />
+                        <field field_ref="v" />
+                    </field_group>
+                    <!-- <field_group field_group_ref="fields_3D"
+                                 operation="instant" /> doesn't work ?!? -->
+                </file>
+
+                <file id="diurnalave"
+                      name="Xdiurnalave"
+                      output_freq="1d"
+                      enabled=".true.">
+                    <!-- VARS 2D -->
+                    <field_group operation="average"
+                                 freq_op="1ts">
+                        <field field_ref="ps" />
+                    </field_group>
+                    <!-- VARS 3D -->
+                    <field_group operation="average"
+                                 freq_op="1ts"
+                                 axis_ref="presnivs">
+                        <field field_ref="temperature" />
+                        <field field_ref="u" />
+                        <field field_ref="v" />
+                    </field_group>                     
+                </file>
+            <!-- </file_group> -->
+        </file_definition>
+
+
+        <!-- Definition of domains and groups of domains -->
+        <domain_definition>
+            <domain id="dom_glo" data_dim="2" />
+        </domain_definition>
+        
+        <!-- Definition of vertical axes 
+             NB: these must be defined and set in code via
+             wxios_add_vaxis -->
+        <axis_definition>
+            <!--
+            <axis_group id="presnivs" 
+                        standard_name="Pseudo-pressure of model vertical levels" 
+                        unit="Pa">
+            </axis_group>
+            -->
+            <axis id="presnivs" 
+                        standard_name="Pseudo-pressure of model vertical levels" 
+                        unit="Pa">
+            </axis>
+        </axis_definition>
+    </context>
+    
+    <context  id="xios">
+        <variable_definition>
+               <variable_group id="buffer">
+                buffer_size = 85000000
+                buffer_server_factor_size = 2 
+             </variable_group>
+
+            <variable_group id="parameters" >
+                <variable id="using_server" type="boolean">true</variable>
+                <variable id="info_level" type="int">10</variable>
+            </variable_group>
+        </variable_definition>
+    </context>
+</simulation>
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/npCFMIP_param.data_amip
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/npCFMIP_param.data_amip	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/npCFMIP_param.data_amip	(revision 3330)
@@ -0,0 +1,1 @@
+120
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/npCFMIP_param.data_aqua
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/npCFMIP_param.data_aqua	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/npCFMIP_param.data_aqua	(revision 3330)
@@ -0,0 +1,1 @@
+73
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/orchidee.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/orchidee.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/orchidee.def	(revision 3330)
@@ -0,0 +1,63 @@
+#
+#
+# Parameter file for LMDZ4OR_v2 configuration
+# See comments : http://forge.ipsl.jussieu.fr/orchidee/
+#
+STOMATE_OK_CO2=TRUE
+# STOMATE_OK_STOMATE is not set
+# STOMATE_OK_DGVM is not set
+# STOMATE_WATCHOUT is not set
+SECHIBA_restart_in=default
+SECHIBA_rest_out=sechiba_rest.nc
+SECHIBA_reset_time=y
+#
+OUTPUT_FILE=sechiba_out.nc
+WRITE_STEP=2592000
+SECHIBA_HISTLEVEL=5
+#
+SECHIBA_HISTFILE2 = FALSE
+SECHIBA_OUTPUT_FILE2 = sechiba_out_2.nc
+WRITE_STEP2 = 86400.0
+SECHIBA_HISTLEVEL2 = 1
+#
+STOMATE_OUTPUT_FILE=stomate_history.nc
+STOMATE_HIST_DT=10.
+STOMATE_HISTLEVEL=0
+SECHIBA_DAY=0.0
+SECHIBA_ZCANOP=0.5
+DT_SLOW=86400.
+# IMPOSE_VEG is not set
+VEGETATION_FILE=carteveg5km.nc
+# VEGETATION_FILE=pft_new.nc
+DIFFUCO_LEAFCI=233.
+CONDVEG_SNOWA=default
+# IMPOSE_AZE is not set
+SOILALB_FILE=soils_param.nc
+SOILTYPE_FILE=soils_param.nc 
+ENERBIL_TSURF=280.
+HYDROL_SNOW=0.0
+HYDROL_SNOWAGE=0.0
+HYDROL_SNOWICE=0.0
+HYDROL_SNOWICEAGE=0.0
+HYDROL_HDRY=1.0
+HYDROL_HUMR=1.0
+HYDROL_BQSB=default
+HYDROL_GQSB=0.0
+HYDROL_DSG=0.0
+HYDROL_DSP=default
+HYDROL_QSV=0.0
+HYDROL_OK_HDIFF=n
+HYDROL_TAU_HDIFF=1800.
+THERMOSOIL_TPRO=280.
+RIVER_ROUTING=y
+ROUTING_FILE=routing.nc
+LAI_MAP=y
+LAI_FILE=lai2D.nc
+SECHIBA_QSINT=0.02
+ALB_BARE_MODEL = FALSE
+PERCENT_THROUGHFALL_PFT = 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30.
+RVEG_PFT = .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5, .5
+CDRAG_FROM_GCM = .TRUE.
+#LAND_USE=y
+#VEGET_YEAR=0
+#VEGET_UPDATE=1Y
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/output.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/output.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/output.def	(revision 3330)
@@ -0,0 +1,794 @@
+######## Abderrahmane le 20 11 08 ########################
+# Niveaux de sorties et nom pour chaque variable dans les#
+# fichiers histmth histday histhf histins histLES        #
+##########################################################
+# Surface geop.height
+flag_phis         =  1, 1, 10, 1, 1    
+name_phis         =  phis
+# Grid area
+flag_aire         =  1, 1, 10,  1, 1    
+name_aire         =  aire
+# Surfac ter+lic
+flag_contfracATM  =  10, 1,  1, 10, 10    
+name_contfracATM  =  contfracATM
+# Surface terre OR  
+flag_contfracOR   =  10, 1,  1, 10, 10    
+name_contfracOR   =  contfracOR
+# Grid area CONT
+flag_aireTER      =  10, 10, 1, 10, 10    
+name_aireTER      =  aireTER
+# Latent heat flux
+flag_flat         =  10, 1, 10, 10, 1    
+name_flat         =  flat
+# Sea Level Pressure
+flag_slp          =  1, 1, 1, 10, 1    
+name_slp          =  slp
+# Surface Temperature
+flag_tsol         =  1, 1, 1, 1, 1    
+name_tsol         =  tsol
+# Temperature 2m
+flag_t2m          =  1, 1, 1, 1, 1    
+name_t2m          =  t2m
+# Temperature min 2m
+flag_t2m_min      =  1, 1, 10, 10, 10    
+name_t2m_min      =  t2m_min
+# Temperature max 2m
+flag_t2m_max      =  1, 1, 10, 10, 10    
+name_t2m_max      =  t2m_max
+# Temperature ter lic oce sic at 2m
+flag_t2m_ter      =  10, 4, 10, 10, 10    
+name_t2m_ter      =  t2m_ter 
+flag_t2m_lic      =  10, 4, 10, 10, 10    
+name_t2m_lic      =  t2m_lic
+flag_t2m_oce      =  10, 4, 10, 10, 10    
+name_t2m_oce      =  t2m_oce
+flag_t2m_sic      =  10, 4, 10, 10, 10    
+name_t2m_sic      =  t2m_sic 
+# 10-m wind speed
+flag_wind10m      =  1, 1, 1, 10, 10    
+name_wind10m      =  wind10m
+# 10-m wind speed max
+flag_wind10max    =  10, 1, 10, 10, 10    
+name_wind10max    =  wind10max
+# Sea-ice fraction
+flag_sicf         =  1, 1, 10, 10, 10    
+name_sicf         =  sicf
+# Specific humidity 2m
+flag_q2m          =  1, 1, 1, 1, 1    
+name_q2m          =  q2m
+# 10m zonal wind
+flag_u10m         =  1, 1, 1, 1, 1    
+name_u10m         =  u10m
+# 10m meridional wind
+flag_v10m         =  1, 1, 1, 1, 1    
+name_v10m         =  v10m
+# Surface Pressure
+flag_psol         =  1, 1, 1, 1, 1    
+name_psol         =  psol
+# Surface Air humidity
+flag_qsurf        =  1, 10, 10, 10, 10    
+name_qsurf        =  qsurf
+# 10m zonal wind (ter lic oce sic)
+flag_u10m_ter     =  10, 4, 10, 10, 10    
+name_u10m_ter     =  u10m_ter
+flag_u10m_lic     =  10, 4, 10, 10, 10    
+name_u10m_lic     =  u10m_lic
+flag_u10m_oce     =  10, 4, 10, 10, 10    
+name_u10m_oce     =  u10m_oce
+flag_u10m_sic     =  10, 4, 10, 10, 10    
+name_u10m_sic     =  u10m_sic
+# 10m meridien  wind (ter oce ice lic)
+flag_v10m_ter     =  10, 4, 10, 10, 10    
+name_v10m_ter     =  v10m_ter
+flag_v10m_lic     =  10, 4, 10, 10, 10    
+name_v10m_lic     =  v10m_lic
+flag_v10m_oce     =  10, 4, 10, 10, 10    
+name_v10m_oce     =  v10m_oce
+flag_v10m_sic     =  10, 4, 10, 10, 10    
+name_v10m_sic     =  v10m_sic
+# Soil watter content
+flag_qsol         =  1, 10, 10, 1, 1    
+name_qsol         =  qsol
+# Number of dayrain(liq+sol)
+flag_ndayrain     =  1, 10, 10, 10, 10    
+name_ndayrain     =  ndayrain
+# Precip Totale liq+sol
+flag_precip       =  1, 1, 1, 1, 1    
+name_precip       =  precip
+# Large-scale Precip
+flag_plul         =  1, 1, 1, 1, 10    
+name_plul         =  plul 
+# Convective Precip
+flag_pluc         =  1, 1, 1, 1, 10    
+name_pluc         =  pluc
+# Snow fall
+flag_snow         =  1, 1, 10, 1, 10    
+name_snow         =  snow
+# Evaporation
+flag_evap         =  1, 1, 10, 1, 10    
+name_evap         =  evap
+# Solar rad. at TOA
+flag_tops         =  1, 1, 10, 10, 10    
+name_tops         =  tops
+# CS Solar rad. at TOA
+flag_tops0        =  1, 5, 10, 10, 10    
+name_tops0        =  tops0
+# IR rad. at TOA
+flag_topl         =  1, 1, 10, 1, 10    
+name_topl         =  topl
+# CR IR rad. at TOA
+flag_topl0        =  1, 5, 10, 10, 10    
+name_topl0        =  topl0
+# SWup at TOA
+flag_SWupTOA      =  1, 4, 10, 10, 10    
+name_SWupTOA      =  SWupTOA
+# CR SWup at TOA
+flag_SWupTOAclr   =  1, 4, 10, 10, 10    
+name_SWupTOAclr   =  SWupTOAclr
+# SWdn at TOA
+flag_SWdnTOA      =  1, 4, 10, 10, 10    
+name_SWdnTOA      =  SWdnTOA
+# CR SWdn at TOA
+flag_SWdnTOAclr   =  1, 4, 10, 10, 10    
+name_SWdnTOAclr   =  SWdnTOAclr
+# SWup at 200hPa
+flag_SWup200      =  1, 10, 10, 10, 10    
+name_SWup200      =  SWup200
+# CR SWup at 200hPa
+flag_SWup200clr   =  10, 1, 10, 10, 10    
+name_SWup200clr   =  SWup200clr
+# SWdn at 200hPa
+flag_SWdn200      =  1, 10, 10, 10, 10    
+name_SWdn200      =  SWdn200
+# CR SWdn at 200hPa
+flag_SWdn200clr   =  10, 1, 10, 10, 10    
+name_SWdn200clr   =  SWdn200clr
+# LWup at 200mb
+flag_LWup200      =  1, 10, 10, 10, 10    
+name_LWup200      =  LWup200
+# CR LWup at 200mb
+flag_LWup200clr   =  1, 10, 10, 10, 10    
+name_LWup200clr   =  LWup200clr
+# LWdn at 200mb
+flag_LWdn200      =  1, 10, 10, 10, 10    
+name_LWdn200      =  LWdn200
+# CR LWdn at 200mb
+flag_LWdn200clr   =  1, 10, 10, 10, 10    
+name_LWdn200clr   =  LWdn200clr
+# Solar rad. at surf
+flag_sols         =  1, 1, 10, 1, 10    
+name_sols         =  sols
+# CR Solar rad. at surf
+flag_sols0        =  1, 5, 10, 10, 10    
+name_sols0        =  sols0
+# IR rad. at surface
+flag_soll         =  1, 1, 10, 1, 10    
+name_soll         =  soll
+# CR IR rad. at surface
+flag_soll0        =  1, 5, 10, 10, 10    
+name_soll0        =  soll0
+# Rayonnement au sol
+flag_radsol       =  1, 1, 10, 10, 10    
+name_radsol       =  radsol
+# SWup at surface
+flag_SWupSFC      =  1, 4, 10, 10, 10    
+name_SWupSFC      =  SWupSFC
+# CR SWup at surface
+flag_SWupSFCclr   =  1, 4, 10, 10, 10    
+name_SWupSFCclr   =  SWupSFCclr
+# SWdn at surface
+flag_SWdnSFC      =  1, 1, 10, 10, 10    
+name_SWdnSFC      =  SWdnSFC
+# CR at surface
+flag_SWdnSFCclr   =  1, 4, 10, 10, 10    
+name_SWdnSFCclr   =  SWdnSFCclr
+# LWup at surface
+flag_LWupSFC      =  1, 4, 10, 10, 10    
+name_LWupSFC      =  LWupSFC
+# CR LWup at surface
+flag_LWupSFCclr   =  1, 4, 10, 10, 10    
+name_LWupSFCclr   =  LWupSFCclr
+# LWdn  at surface
+flag_LWdnSFC      =  1, 4, 10, 10, 10    
+name_LWdnSFC      =  LWdnSFC
+# CR LWdn  at surface
+flag_LWdnSFCclr   =  1, 4, 10, 10, 10    
+name_LWdnSFCclr   =  LWdnSFCclr
+# Surf. total heat flux
+flag_bils         =  1, 2, 10, 1, 10    
+name_bils         =  bils
+# Sensible heat flux
+flag_sens         =  1, 1, 10, 1, 1    
+name_sens         =  sens
+# Heat flux derivation
+flag_fder         =  1, 2, 10, 1, 10    
+name_fder         =  fder
+# Thermal flux for snow melting
+flag_ffonte       =  1, 10, 10, 10, 10    
+name_ffonte       =  ffonte
+# Ice Calving
+flag_fqcalving    =  1, 10, 10, 10, 10    
+name_fqcalving    =  fqcalving
+# Land ice melt
+flag_fqfonte      =  1, 10, 10, 10, 10    
+name_fqfonte      =  fqfonte
+# Zonal wind stress (ter ice liq oce)
+flag_taux_ter     =  1, 4, 10, 1, 10    
+name_taux_ter     =  taux_ter
+flag_taux_lic     =  1, 4, 10, 1, 10    
+name_taux_lic     =  taux_lic                                          
+flag_taux_oce     =  1, 4, 10, 1, 10    
+name_taux_oce     =  taux_oce
+flag_taux_sic     =  1, 4, 10, 1, 10    
+name_taux_sic     =  taux_sic
+# Meridien wind stress (ter ice liq oce)
+flag_tauy_ter     =  1, 4, 10, 1, 10    
+name_tauy_ter     =  tauy_ter
+flag_tauy_lic     =  1, 4, 10, 1, 10    
+name_tauy_lic     =  tauy_lic
+flag_tauy_oce     =  1, 4, 10, 1, 10    
+name_tauy_oce     =  tauy_oce
+flag_tauy_sic     =  1, 4, 10, 1, 10    
+name_tauy_sic     =  tauy_sic
+# % surface (ter ice liq oce)
+flag_pourc_ter    =  1, 4, 10, 1, 10    
+name_pourc_ter    =  pourc_ter  
+flag_pourc_lic    =  1, 4, 10, 1, 10    
+name_pourc_lic    =  pourc_lic
+flag_pourc_oce    =  1, 4, 10, 1, 10    
+name_pourc_oce    =  pourc_oce
+flag_pourc_sic    =  1, 4, 10, 1, 10    
+name_pourc_sic    =  pourc_sic
+# Fraction (ter ice liq oce)
+flag_fract_ter    =  1, 4, 10, 1, 10    
+name_fract_ter    =  fract_ter
+flag_fract_lic    =  1, 4, 10, 1, 10    
+name_fract_lic    =  fract_lic
+flag_fract_oce     =  1, 4, 10, 1, 10    
+name_fract_oce    =  fract_oce
+flag_fract_sic    =  1, 4, 10, 1, 10    
+name_fract_sic    =  fract_sic
+# Surface temperature (ter ice liq oce)
+flag_tsol_ter     =  1, 4, 10, 1, 10    
+name_tsol_ter     =  tsol_ter
+flag_tsol_lic     =  1, 4, 10, 1, 10    
+name_tsol_lic     =  tsol_lic
+flag_tsol_oce     =  1, 4, 10, 1, 10    
+name_tsol_oce     =  tsol_oce
+flag_tsol_sic     =  1, 4, 10, 1, 10    
+name_tsol_sic     =  tsol_sic
+# Sensible heat flux (ter ice liq oce)
+flag_sens_ter     =  1, 4, 10, 1, 10    
+name_sens_ter     =  sens_ter
+flag_sens_lic     =  1, 4, 10, 1, 10    
+name_sens_lic     =  sens_lic
+flag_sens_oce     =  1, 4, 10, 1, 10    
+name_sens_oce     =  sens_oce
+flag_sens_sic     =  1, 4, 10, 1, 10    
+name_sens_sic     =  sens_sic
+# Latent heat flux (ter ice liq oce)
+flag_lat_ter      =  1, 4, 10, 1, 10    
+name_lat_ter      =  lat_ter 
+flag_lat_lic      =  1, 4, 10, 1, 10    
+name_lat_lic      =  lat_lic
+flag_lat_oce      =  1, 4, 10, 1, 10    
+name_lat_oce      =  lat_oce
+flag_lat_sic      =  1, 4, 10, 1, 10    
+name_lat_sic      =  lat_sic 
+# LW (ter ice liq oce)
+flag_flw_ter      =  1, 10, 10, 10, 10    
+name_flw_ter      =  flw_ter
+flag_flw_lic      =  1, 10, 10, 10, 10    
+name_flw_lic      =  flw_lic
+flag_flw_oce      =  1, 10, 10, 10, 10    
+name_flw_oce      =  flw_oce
+flag_flw_sic      =  1, 10, 10, 10, 10    
+name_flw_sic      =  flw_sic
+# SW (ter ice liq oce)
+flag_fsw_ter      =  1, 10, 10, 10, 10    
+name_fsw_ter      =  fsw_ter
+flag_fsw_lic      =  1, 10, 10, 10, 10    
+name_fsw_lic      =  fsw_lic
+flag_fsw_oce      =  1, 10, 10, 10, 10    
+name_fsw_oce      =  fsw_oce
+flag_fsw_sic      =  1, 10, 10, 10, 10    
+name_fsw_sic      =  fsw_sic
+# Bilan sol (ter ice liq oce)
+flag_wbils_ter    =  1, 10, 10, 10, 10    
+name_wbils_ter    =  wbils_ter
+flag_wbils_lic    =  1, 10, 10, 10, 10    
+name_wbils_lic    =  wbils_lic
+flag_wbils_oce    =  1, 10, 10, 10, 10    
+name_wbils_oce    =  wbils_oce
+flag_wbils_sic   =  1, 10, 10, 10, 10    
+name_wbils_sic    =  wbils_sic 
+# Bilan eau (ter ice liq oce)
+flag_wbilo_ter    =  1, 10, 10, 10, 10    
+name_wbilo_ter    =  wbilo_ter
+flag_wbilo_lic    =  1, 10, 10, 10, 10    
+name_wbilo_lic    =  wbilo_lic
+flag_wbilo_oce    =  1, 10, 10, 10, 10    
+name_wbilo_oce    =  wbilo_oce
+flag_wbilo_sic    =  1, 10, 10, 10, 10    
+name_wbilo_sic    =  wbilo_sic
+# Momentum drag coef
+flag_cdrm         =  1, 10, 10, 1, 10    
+name_cdrm         =  cdrm
+# Heat drag coef
+flag_cdrh         =  1, 10, 10, 1, 10    
+name_cdrh         =  cdrh 
+# Low-level cloudiness
+flag_cldl         =  1, 1, 10, 10, 10    
+name_cldl         =  cldl
+# Mid-level cloudiness
+flag_cldm         =  1, 1, 10, 10, 10    
+name_cldm         =  cldm
+# High-level cloudiness
+flag_cldh         =  1, 1, 10, 10, 10    
+name_cldh         =  cldh
+# Total cloudiness
+flag_cldt         =  1, 1, 2, 10, 10    
+name_cldt         =  cldt
+# Cloud liquid water path
+flag_cldq         =  1, 1, 10, 10, 10    
+name_cldq         =  cldq
+# Cloud water path
+flag_lwp          =  1, 5, 10, 10, 10    
+name_lwp          =  lwp
+# Cloud ice water path
+flag_iwp          =  1, 5, 10, 10, 10    
+name_iwp          =  iwp
+# Zonal energy transport
+flag_ue           =  1, 10, 10, 10, 10    
+name_ue           =  ue
+# Merid energy transport
+flag_ve           =  1, 10, 10, 10, 10    
+name_ve           =  ve
+# Zonal humidity transport
+flag_uq           =  1, 10, 10, 10, 10    
+name_uq           =  uq
+# Merid humidity transport
+flag_vq           =  1, 10, 10, 10, 10    
+name_vq           =  vq
+# Conv avlbl pot ener
+flag_cape         =  1, 10, 10, 10, 10    
+name_cape         =  cape
+# Cld base pressure
+flag_pbase        =  1, 10, 10, 10, 10    
+name_pbase        =  pbase
+# Cld top pressure
+flag_ptop         =  1, 4, 10, 10, 10    
+name_ptop         =  ptop
+# Cld base mass flux
+flag_fbase        =  1, 10, 10, 10, 10    
+name_fbase        =  fbase
+# Precipitable water
+flag_prw          =  1, 1, 10, 10, 10    
+name_prw          =  prw
+# Boundary Layer Height
+flag_s_pblh       =  1, 10, 10, 1, 1    
+name_s_pblh       =  pblh
+# t at Boundary Layer Height
+flag_s_pblt       =  1, 10, 10, 1, 1    
+name_s_pblt       =  pblt
+# Condensation level
+flag_s_lcl        =  1, 10, 10, 1, 10    
+name_s_lcl        =  lcl
+# Conv avlbl pot enerfor ABL
+flag_s_capCL      =  1, 10, 10, 1, 10    
+name_s_capCL      =  capCL
+# Liq Water in BL
+flag_s_oliqCL     =  1, 10, 10, 1, 10    
+name_s_oliqCL     =  oliqCL
+# Instability criteria(ABL)
+flag_s_cteiCL     =  1, 10, 10, 1, 1    
+name_s_cteiCL     =  cteiCL
+# Exces du thermique
+flag_s_therm      =  1, 10, 10, 1, 1    
+name_s_therm      =  therm
+# deep_cape(HBTM2)
+flag_s_trmb1      =  1, 10, 10, 1, 10    
+name_s_trmb1      =  trmb1
+# inhibition (HBTM2)
+flag_s_trmb2      =  1, 10, 10, 1, 10    
+name_s_trmb2      =  trmb2
+# Point Omega (HBTM2)
+flag_s_trmb3      =  1, 10, 10, 1, 10    
+name_s_trmb3      =  trmb3
+# Bilan au sol sur ocean slab
+flag_slab_bils    =  1, 1, 10, 10, 10    
+name_slab_bils    =  slab_bils 
+# ALE BL
+flag_ale_bl       =  1, 1, 1, 1, 10    
+name_ale_bl       =  ale_bl 
+# alp_bl
+flag_alp_bl       =  1, 1, 1, 1, 10    
+name_alp_bl       =  alp_bl
+# ale_wk
+flag_ale_wk       =  1, 1, 1, 1, 10    
+name_ale_wk       =  ale_wk
+# alp_wk
+flag_alp_wk       =  1, 1, 1, 1, 10    
+name_alp_wk       =  alp_wk
+# ale
+flag_ale          =  1, 1, 1, 1, 10    
+name_ale          =  ale
+# alp
+flag_alp          =  1, 1, 1, 1, 10    
+name_alp          =  alp
+# Convective INhibition
+flag_cin          =  1, 1, 1, 1, 10    
+name_cin          =  cin
+# WAPE
+flag_wape         =  1, 1, 1, 1, 10    
+name_wape         =  wape
+# u, v w t q et phi aux niveaux 200, 500, 700 et 850 hPa
+flag_u850         =  1, 1, 3, 10, 10    
+name_u850         =  u850 
+flag_u700         =  1, 1, 3, 10, 10    
+name_u700         =  u700
+flag_u500         =  1, 1, 3, 10, 10    
+name_u500         =  u500
+flag_u200         =  1, 1, 3, 10, 10    
+name_u200         =  u200
+flag_v850         =  1, 1, 3, 10, 10    
+name_v850         =  v850 
+flag_v700         =  1, 1, 3, 10, 10    
+name_v700         =  v700
+flag_v500         =  1, 1, 3, 10, 10    
+name_v500         =  v500
+flag_v200         =  1, 1, 3, 10, 10    
+name_v200         =  v200
+flag_w850         =  1, 1, 3, 10, 10    
+name_w850         =  w850
+flag_w700         =  1, 1, 3, 10, 10    
+name_w700         =  w700
+flag_w500         =  1, 1, 3, 10, 10    
+name_w500         =  w500
+flag_w200         =  1, 1, 3, 10, 10    
+name_w200         =  w200
+flag_t850         =  1, 1, 3, 10, 10    
+name_t850         =  t850
+flag_t700         =  1, 1, 3, 10, 10    
+name_t700         =  t700
+flag_t500         =  1, 1, 3, 10, 10    
+name_t500         =  t500
+flag_t200         =  1, 1, 3, 10, 10    
+name_t200         =  t200
+flag_q850         =  1, 1, 3, 10, 10    
+name_q850         =  q850
+flag_q700         =  1, 1, 3, 10, 10    
+name_q700         =  q700
+flag_q500         =  1, 1, 3, 10, 10    
+name_q500         =  q500
+flag_q200         =  1, 1, 3, 10, 10    
+name_q200         =  q200
+flag_phi850       =  1, 1, 3, 10, 10    
+name_phi850       =  phi850 
+flag_phi700       =  1, 1, 3, 10, 10    
+name_phi700       =  phi700
+flag_phi500       =  1, 1, 3, 10, 10    
+name_phi500       =  phi500
+flag_phi200       =  1, 1, 3, 10, 10    
+name_phi200       =  phi200
+# Temp mixte oce-sic
+flag_t_oce_sic    =  1, 10, 10, 10, 10    
+name_t_oce_sic    =  t_oce_sic
+# Weak inversion
+flag_weakinv      =  10, 1, 10, 10, 10    
+name_weakinv      =  weakinv
+# dTheta mini
+flag_dthmin       =  10, 1, 10, 10, 10    
+name_dthmin       =  dthmin
+# 10m zonal and meriden wind (ter sic lic oce)
+flag_u10_ter      =  10, 4, 10, 10, 10    
+name_u10_ter      =  u10_ter 
+flag_u10_lic      =  10, 4, 10, 10, 10    
+name_u10_lic      =  u10_lic
+flag_u10_oce      =  10, 4, 10, 10, 10    
+name_u10_oce      =  u10_oce
+flag_u10_sic      =  10, 4, 10, 10, 10    
+name_u10_sic      =  u10_sic 
+flag_v10_ter      =  10, 4, 10, 10, 10    
+name_v10_ter      =  v10_ter
+flag_v10_lic      =  10, 4, 10, 10, 10    
+name_v10_lic      =  v10_lic
+flag_v10_oce      =  10, 4, 10, 10, 10    
+name_v10_oce      =  v10_oce
+flag_v10_sic      =  10, 4, 10, 10, 10    
+name_v10_sic      =  v10_sic
+# Cloud optical thickness
+flag_cldtau       =  10, 5, 10, 10, 10    
+name_cldtau       =  cldtau
+# Cloud optical emissivity
+flag_cldemi       =  10, 5, 10, 10, 10    
+name_cldemi       =  cldemi
+# Relative humidity at 2m
+flag_rh2m         =  10, 5, 10, 10, 10    
+name_rh2m         =  rh2m
+# Saturant humidity at 2m
+flag_qsat2m       =  10, 5, 10, 10, 10    
+name_qsat2m       =  qsat2m
+# Surface air potential temperature
+flag_tpot         =  10, 5, 10, 10, 10    
+name_tpot         =  tpot
+# Surface air equivalent potential temperature
+flag_tpote        =  10, 5, 10, 10, 10    
+name_tpote        =  tpote
+# TKE, tke max and tke (ter sic lic oce)
+flag_tke          =  4, 10, 10, 10, 10    
+name_tke          =  tke
+flag_tke_max      =  4, 10, 10, 10, 10    
+name_tke_max      =  tke_max
+flag_tke_ter      =  10, 4, 10, 10, 10    
+name_tke_ter      =  tke_ter 
+flag_tke_lic      =  10, 4, 10, 10, 10    
+name_tke_lic      =  tke_lic
+flag_tke_oce      =  10, 4, 10, 10, 10    
+name_tke_oce      =  tke_oce
+flag_tke_sic      =  10, 4, 10, 10, 10    
+name_tke_sic      =  tke_sic
+flag_tke_max_ter  =  10, 4, 10, 10, 10    
+name_tke_max_ter  =  tke_max_ter
+flag_tke_max_lic  =  10, 4, 10, 10, 10    
+name_tke_max_lic  =  tke_max_lic
+flag_tke_max_oce  =  10, 4, 10, 10, 10    
+name_tke_max_oce  =  tke_max_oce
+flag_tke_max_sic  =  10, 4, 10, 10, 10    
+name_tke_max_sic  =  tke_max_sic
+# Kz melange
+flag_kz           =  4, 10, 10, 10, 10    
+name_kz           =  kz
+# Kz max melange
+flag_kz_max       =  4, 10, 10, 10, 10    
+name_kz_max       =  kz_max
+# Sfce net SW radiation OR
+flag_SWnetOR      =  10, 10, 2, 10, 10    
+name_SWnetOR      =  SWnetOR
+# Sfce incident SW radiation OR
+flag_SWdownOR     =  10, 10, 2, 10, 10    
+name_SWdownOR     =  SWdownOR
+# Sfce incident LW radiation OR
+flag_LWdownOR     =  10, 10, 2, 10, 10    
+name_LWdownOR     =  LWdownOR
+# Solid Large-scale Precip
+flag_snowl        =  10, 1, 10, 10, 10    
+name_snowl        =  snowl
+# cape max
+flag_cape_max     =  10, 1, 10, 10, 10    
+name_cape_max     =  cape_max
+# Down. IR rad. at surface
+flag_solldown     =  10, 1, 10, 1, 10    
+name_solldown     =  solldown
+# Boundary-layer dTs(o)
+flag_dtsvdfo      =  10, 10, 10, 1, 10    
+name_dtsvdfo      =  dtsvdfo
+# Boundary-layer dTs(t)
+flag_dtsvdft      =  10, 10, 10, 1, 10    
+name_dtsvdft      =  dtsvdft
+# Boundary-layer dTs(g)
+flag_dtsvdfg      =  10, 10, 10, 1, 10    
+name_dtsvdfg      =  dtsvdfg
+# Boundary-layer dTs(g)
+flag_dtsvdfi      =  10, 10, 10, 1, 10    
+name_dtsvdfi      =  dtsvdfi
+# rugosity
+flag_rugs         =  10, 10, 10, 1, 1    
+name_rugs         =  rugs
+# Cloud liquid water content
+flag_lwcon        =  2, 5, 10, 10, 1    
+name_lwcon        =  lwcon
+# Cloud ice water content
+flag_iwcon        =  2, 5, 10, 10, 10    
+name_iwcon        =  iwcon
+# Air temperature
+flag_temp         =  2, 3, 4, 1, 1    
+name_temp         =  temp
+# Potential air temperature
+flag_theta        =  2, 3, 4, 1, 1    
+name_theta        =  theta
+# Specific humidity
+flag_ovap         =  2, 3, 4, 1, 1    
+name_ovap         =  ovap
+# ?
+flag_ovapinit     =  2, 3, 4, 1, 1
+name_ovapinit     =  ovapinit
+# ?
+flag_wvapp        =  2, 10, 10, 10, 10    
+name_wvapp        =  wvapp
+# Geopotential height
+flag_geop         =  2, 3, 10, 1, 1    
+name_geop         =  geop
+# Zonal wind
+flag_vitu         =  2, 3, 4, 1, 1    
+name_vitu         =  vitu
+# Meridional wind
+flag_vitv         =  2, 3, 4, 1, 1    
+name_vitv         =  vitv
+# Vertical wind
+flag_vitw         =  2, 3, 10, 10, 1    
+name_vitw         =  vitw
+# Air pressure
+flag_pres         =  2, 3, 10, 1, 1    
+name_pres         =  pres
+# Cloud Fraction
+flag_rneb         =  2, 5, 10, 10, 1    
+name_rneb         =  rneb
+# Convective Cloud Fraction
+flag_rnebcon      =  2, 5, 10, 10, 1    
+name_rnebcon      =  rnebcon
+# Relative humidity
+flag_rhum         =  2, 10, 10, 10, 10    
+name_rhum         =  rhum
+# Ozone concentration
+flag_ozone        =  2, 10, 10, 10, 10    
+name_ozone        =  ozone
+# saturated updraft
+flag_upwd         =  2, 10, 10, 10, 10    
+name_upwd         =  upwd
+# Physics dT
+flag_dtphy        =  2, 10, 10, 10, 1    
+name_dtphy        =  dtphy
+# Physics dq
+flag_dqphy        =  2, 10, 10, 10, 1    
+name_dqphy        =  dqphy
+# Convective precipitation lic and ice
+flag_pr_con_l     =  2, 10, 10, 10, 10    
+name_pr_con_l     =  pr_con_l
+flag_pr_con_i     =  2, 10, 10, 10, 10    
+name_pr_con_i     =  pr_con_i
+# Large scale precipitation lic and ice
+flag_pr_lsc_l     =  2, 10, 10, 10, 10    
+name_pr_lsc_l     =  pr_lsc_l
+flag_pr_lsc_i     =  2, 10, 10, 10, 10    
+name_pr_lsc_i     =  pr_lsc_i
+# Albedo surf, Snow age and rugosity (ter sic lic oce)
+flag_albe_ter     =  3, 4, 10, 1, 10    
+name_albe_ter     =  albe_ter 
+flag_albe_lic     =  3, 4, 10, 1, 10    
+name_albe_lic     =  albe_lic
+flag_albe_oce     =  3, 4, 10, 1, 10    
+name_albe_oce     =  albe_oce
+flag_albe_sic     =  3, 4, 10, 1, 10    
+name_albe_sic     =  albe_sic 
+flag_ages_ter     =  3, 10, 10, 10, 10    
+name_ages_ter     =  ages_ter
+flag_ages_lic     =  3, 10, 10, 10, 10    
+name_ages_lic     =  ages_lic
+flag_ages_oce     =  3, 10, 10, 10, 10    
+name_ages_oce     =  ages_oce
+flag_ages_sic     =  3, 10, 10, 10, 10    
+name_ages_sic     =  ages_sic
+flag_rugs_ter     =  3, 4, 10, 1, 10    
+name_rugs_ter     =  rugs_ter 
+flag_rugs_lic     =  3, 4, 10, 1, 10    
+name_rugs_lic     =  rugs_lic
+flag_rugs_oce     =  3, 4, 10, 1, 10    
+name_rugs_oce     =  rugs_oce
+flag_rugs_sic     =  3, 4, 10, 1, 10    
+name_rugs_sic     =  rugs_sic
+# Surface albedo
+flag_albs         =  3, 10, 10, 1, 10    
+name_albs         =  albs
+# Surface albedo LW
+flag_albslw       =  3, 10, 10, 1, 10    
+name_albslw       =  albslw
+# Convective Cloud Liquid water content
+flag_clwcon       =  4, 10, 10, 10, 10    
+name_clwcon       =  clwcon
+# undilute adiab updraft
+flag_Ma           =  4, 10, 10, 10, 10    
+name_Ma           =  Ma
+# saturated downdraft
+flag_dnwd         =  4, 10, 10, 10, 10    
+name_dnwd         =  dnwd
+# unsat. downdraft
+flag_dnwd0        =  4, 10, 10, 10, 10    
+name_dnwd0        =  dnwd0
+# Dynamics dT dQ dU dV, .....
+flag_dtdyn        =  4, 10, 10, 10, 1
+name_dtdyn        =  dtdyn
+flag_dqdyn        =  4, 10, 10, 10, 1    
+name_dqdyn        =  dqdyn
+flag_dudyn        =  4, 10, 10, 10, 1    
+name_dudyn        =  dudyn
+flag_dvdyn        =  4, 10, 10, 10, 1    
+name_dvdyn        =  dvdyn 
+flag_dtcon        =  4, 5, 10, 10, 10    
+name_dtcon        =  dtcon
+flag_ducon        =  4, 10, 10, 10, 10    
+name_ducon        =  ducon
+flag_dqcon        =  4, 5, 10, 10, 10    
+name_dqcon        =  dqcon
+flag_dtwak        =  4, 5, 10, 10, 10    
+name_dtwak        =  dtwak
+flag_dqwak        =  4, 5, 10, 10, 10    
+name_dqwak        =  dqwak
+flag_wake_h       =  4, 5, 10, 10, 10    
+name_wake_h       =  wake_h
+flag_wake_s       =  4, 5, 10, 10, 10    
+name_wake_s       =  wake_s
+flag_wake_deltat  =  4, 5, 10, 10, 10    
+name_wake_deltat  =  wake_deltat
+flag_wake_deltaq  =  4, 5, 10, 10, 10    
+name_wake_deltaq  =  wake_deltaq
+flag_wake_omg     =  4, 5, 10, 10, 10    
+name_wake_omg     =  wake_omg 
+flag_Vprecip      =  10, 10, 10, 10, 10    
+name_Vprecip      =  Vprecip
+flag_ftd          =  4, 5, 10, 10, 10    
+name_ftd          =  ftd
+flag_fqd          =  4, 5, 10, 10, 10    
+name_fqd          =  fqd
+flag_dtlsc        =  4, 10, 10, 10, 10    
+name_dtlsc        =  dtlsc
+flag_dtlschr      =  4, 10, 10, 10, 10    
+name_dtlschr      =  dtlschr
+flag_dqlsc        =  4, 10, 10, 10, 10    
+name_dqlsc        =  dqlsc
+flag_dtvdf        =  4, 10, 10, 1, 10    
+name_dtvdf        =  dtvdf
+flag_dqvdf        =  4, 10, 10, 1, 10    
+name_dqvdf        =  dqvdf
+flag_dteva        =  4, 10, 10, 10, 10    
+name_dteva        =  dteva
+flag_dqeva        =  4, 10, 10, 10, 10    
+name_dqeva        =  dqeva
+flag_ptconv       =  4, 10, 10, 10, 10    
+name_ptconv       =  ptconv
+flag_ratqs        =  4, 10, 10, 10, 10    
+name_ratqs        =  ratqs
+flag_dtthe        =  4, 10, 10, 10, 10    
+name_dtthe        =  dtthe
+flag_f_th         =  4, 10, 10, 10, 10    
+name_f_th         =  f_th
+flag_e_th         =  4, 10, 10, 10, 10    
+name_e_th         =  e_th
+flag_w_th         =  4, 10, 10, 10, 10    
+name_w_th         =  w_th
+flag_lambda_th    =  4, 10, 10, 10, 10    
+name_lambda_th    =  lambda_th
+flag_q_th         =  4, 10, 10, 10, 10    
+name_q_th         =  q_th
+flag_a_th         =  4, 10, 10, 10, 10    
+name_a_th         =  a_th
+flag_d_th         =  4, 10, 10, 10, 10    
+name_d_th         =  d_th
+flag_f0_th        =  4, 10, 10, 10, 10    
+name_f0_th        =  f0_th
+flag_zmax_th      =  4, 10, 10, 10, 10    
+name_zmax_th      =  zmax_th
+flag_dqthe        =  4, 10, 10, 10, 1    
+name_dqthe        =  dqthe
+flag_dtajs        =  4, 10, 10, 10, 10    
+name_dtajs        =  dtajs
+flag_dqajs        =  4, 10, 10, 10, 10    
+name_dqajs        =  dqajs
+flag_dtswr        =  4, 10, 10, 10, 1    
+name_dtswr        =  dtswr
+flag_dtsw0        =  4, 10, 10, 10, 10    
+name_dtsw0        =  dtsw0 
+flag_dtlwr        =  4, 10, 10, 10, 1    
+name_dtlwr        =  dtlwr
+flag_dtlw0        =  4, 10, 10, 10, 10    
+name_dtlw0        =  dtlw0
+flag_dtec         =  4, 10, 10, 10, 10    
+name_dtec         =  dtec
+flag_duvdf        =  4, 10, 10, 10, 10    
+name_duvdf        =  duvdf
+flag_dvvdf        =  4, 10, 10, 10, 10    
+name_dvvdf        =  dvvdf
+flag_duoro        =  4, 10, 10, 10, 10    
+name_duoro        =  duoro
+flag_dvoro        =  4, 10, 10, 10, 10    
+name_dvoro        =  dvoro
+flag_dulif        =  4, 10, 10, 10, 10    
+name_dulif        =  dulif
+flag_dvlif        =  4, 10, 10, 10, 10    
+name_dvlif        =  dvlif
+###! Attention a refaire correctement
+flag_trac01       =  4, 10, 10, 10, 10    
+name_trac01       =  trac01 
+flag_trac02       =  4, 10, 10, 10, 10    
+name_trac02       =  trac02
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def	(revision 3330)
@@ -0,0 +1,1 @@
+link physiq.def_L39_NPv2.0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_AR40.0
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_AR40.0	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_AR40.0	(revision 3330)
@@ -0,0 +1,110 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_ter=1.
+f_cdrag_oce=0.8
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=4.16e-4
+cld_lc_con=4.16e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=0.5
+ffallv_con=0.5
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=3
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=0
+ratqsbas=0.005
+ratqshaut=0.33
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=30
+#efficacite de precepitation maxim (D:.993)
+epmax=0.999
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=1
+#fermeture convective (D:1, 1:AR4, 2:ALE and ALP)
+iflag_clos=1
+#loi de melange a l entrainement  (D:1, 0: plate, 1=AR4:PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0)
+qqa1=0.
+qqa2=1.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=0
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=0
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=1
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection (0:AR4 et 1:nouvelle physique)
+iflag_coupl=0 
+seuil_inversion=-0.08
+
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=0
+alp_offset=-0.2
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv0.0
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv0.0	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv0.0	(revision 3330)
@@ -0,0 +1,112 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.8
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=2.6e-4
+cld_lc_con=2.6e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.5
+ffallv_con=1.5
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=4
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=2
+ratqsbas=0.005
+ratqshaut=0.005
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.999
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=1
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0= PDF en cloche)
+qqa1=0.
+qqa2=1.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=13
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=8
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=1 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=-0.2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv1.0
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv1.0	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv1.0	(revision 3330)
@@ -0,0 +1,112 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.8
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=4.e-4
+cld_lc_con=4.e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=3600.
+cld_tau_con=3600.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.3
+ffallv_con=1.3
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=1e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=4
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=2
+ratqsbas=0.005
+ratqshaut=0.1
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.999
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=1
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0= PDF en cloche)
+qqa1=0.
+qqa2=1.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=15
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=10
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=8
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=1 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=-0.2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv2.0
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv2.0	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv2.0	(revision 3330)
@@ -0,0 +1,115 @@
+#
+# $Id$
+#
+##############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.8
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=4.e-4
+cld_lc_con=4.e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=3600.
+cld_tau_con=3600.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.8
+ffallv_con=1.8
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=1e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=2
+ratqsbas=0.01
+ratqshaut=0.1
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.995
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=1
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0= PDF en cloche)
+qqa1=0.
+qqa2=1.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=15
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=10
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=8
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=1 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#
+#
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=-0.2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.0
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.0	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.0	(revision 3330)
@@ -0,0 +1,126 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+##  Activation ou non de la parametrisation de Hines pour la strato
+#******************************************************************
+ok_hines=y
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=6.e-4
+cld_lc_con=6.e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.35
+ffallv_con=1.35
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=1e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=2
+ratqsbas=0.002
+ratqshaut=0.25
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+rei_min=20.
+rei_max=61.29
+#
+t_glace_min=258.
+t_glace_max=273.13
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.997
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0)
+qqa1=1.
+qqa2=0.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=15
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=10
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=8
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=0.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.1
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.1	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.1	(revision 3330)
@@ -0,0 +1,139 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=6e-4
+cld_lc_con=6e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.35
+ffallv_con=1.35
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=1e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=2
+ratqsbas=0.002
+ratqshaut=0.25
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+rei_min=20.
+rei_max=61.29
+#
+t_glace_min=258.
+t_glace_max=273.13
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.997
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0)
+qqa1=1.
+qqa2=0.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=15
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=10
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=8
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=0
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=600
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1800
+### fin nrlmd le 10/04/2012
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=0
+### fin nrlmd le 10/04/2012
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.2
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.2	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L39_NPv3.2	(revision 3330)
@@ -0,0 +1,139 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=6e-4
+cld_lc_con=6e-4
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.35
+ffallv_con=1.35
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=1e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=2
+ratqsbas=0.002
+ratqshaut=0.25
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+rei_min=20.
+rei_max=61.29
+#
+t_glace_min=258.
+t_glace_max=273.13
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.997
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0)
+qqa1=1.
+qqa2=0.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=17
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=10
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=0
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=600
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1800
+### fin nrlmd le 10/04/2012
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=0
+### fin nrlmd le 10/04/2012
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L59_NPv4.12
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L59_NPv4.12	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L59_NPv4.12	(revision 3330)
@@ -0,0 +1,146 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.000192
+cld_lc_con=0.000192
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=0.9504
+ffallv_con=0.9504
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=1e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.24
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#
+rei_min=20.
+rei_max=61.29
+#
+#
+# Flags Convection 
+#*****************
+#flag  pour la convection (D:2, 1:LMD, 2:Tiedtke, 3:KE nouvelle physique, 30:KE IPCC)
+iflag_con=3
+#niveau de sorties des diagnos sur la conservation energie
+if_ebil=0
+#efficacite de precepitation maxim (D:.993)
+epmax=0.97
+#ajustement convectif sec au debut de la convection (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#fermeture convective (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#loi de melange a l entrainement  (D:1, 0:AR4=PDF plate, 1=PDF)
+iflag_mix=1
+#poids des PDFs plate et en cloche (D: 1 0)
+qqa1=1.
+qqa2=0.
+# Facteur multiplication des precip convectives dans KE
+cvl_corr=1.0
+#
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+iflag_fisrtilp_qsat=3
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#activation ou non des wakes (D:0, 0:AR4, 1:nouvelle physique) 
+iflag_wake=1
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=2
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+### fin nrlmd le 10/04/2012
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+dsigmin=0.125
+
+t_glace_min=240.
+t_glace_max=273.13
+exposant_glace=1.7
+iflag_t_glace=1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.17h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.17h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.17h	(revision 3330)
@@ -0,0 +1,181 @@
+#
+# $Id$
+#
+###############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+f_ri_cd_min=0.6
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#NSW=2
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.0003
+cld_lc_con=0.0003
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1800.
+cld_tau_con=1800.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=0.66528
+ffallv_con=0.66528
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.312
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.998
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=0
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=288.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=1
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.4
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.4	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.4	(revision 3330)
@@ -0,0 +1,229 @@
+##############################################################################RAMETRES ET CLES DE LA PHYSIQUE LMDZ
+###############################################################################
+## D: Valeur par default
+##
+##Parametres Orographiques et cdrags
+##**********************************
+###   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+f_ri_cd_min=0.6
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+
+ok_strato=y
+ok_hines=n
+sso_gkdrag=0.2
+sso_gfrcri=0.70
+sso_gkwake=0.40
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#NSW=2
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.0001
+cld_lc_con=0.0001
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=900.
+cld_tau_con=900.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.
+ffallv_con=1.
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.312
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.9995
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=1
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=288.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=1
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
+
+### distribution sous-maille sur la verticale 
+iflag_cloudth_vert=1
+
+### Convection
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=0
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=0
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.0003
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-55.0
+
+### Wakes
+#coefficient in Wape->C_star formula: C_star=stark*sqrt(2*Wape), def: 0.33
+stark=0.33
+#lifting efficiency of wakes; Alp=Alpk*Fip, Fip=power provided by wakes, def: 0.25
+alpk=0.25
+#wake density = number of wake centers per m2, def: 8.E-12
+wdens_ref=8.E-12
+#multiplicative factor of the damping by gravity waves, def: 4.
+coefgw=4.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.5
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.5	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_L79_NPv5.5	(revision 3330)
@@ -0,0 +1,236 @@
+##############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+f_ri_cd_min=0.6
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+
+ok_strato=y
+ok_hines=n
+sso_gkdrag=0.2
+sso_gfrcri=0.70
+sso_gkwake=0.40
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=1
+NSW=6
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.00022
+cld_lc_con=0.00022
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1200.
+cld_tau_con=1200.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=0.67
+ffallv_con=0.67
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.312
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.999
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=1
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=278.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=1
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
+
+iflag_cloudth_vert=1
+
+#
+lmixmin=10.
+
+#Bergeron
+iflag_bergeron=1
+
+
+### Convection
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=0
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=0
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.0003
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-55.0
+
+### Wakes
+#coefficient in Wape->C_star formula: C_star=stark*sqrt(2*Wape), def: 0.33
+stark=0.33
+#lifting efficiency of wakes; Alp=Alpk*Fip, Fip=power provided by wakes, def: 0.25
+alpk=0.25
+#wake density = number of wake centers per m2, def: 8.E-12
+wdens_ref=8.E-12
+#multiplicative factor of the damping by gravity waves, def: 4.
+coefgw=4.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.4
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.4	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.4	(revision 3330)
@@ -0,0 +1,229 @@
+#
+# $Id$
+#
+#PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+###############################################################################
+## D: Valeur par default
+##
+##Parametres Orographiques et cdrags
+##**********************************
+###   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+f_ri_cd_min=0.6
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+sso_gkdrag=0.2
+sso_gfrcri=0.70
+sso_gkwake=0.40
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=0
+#NSW=2
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.0001
+cld_lc_con=0.0001
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=900.
+cld_tau_con=900.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=1.
+ffallv_con=1.
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.312
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.9995
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=1
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=288.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=1
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
+
+### distribution sous-maille sur la verticale 
+iflag_cloudth_vert=1
+
+### Convection: le fichier convection.def
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=0
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=0
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.0003
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-55.0
+
+### Wakes
+#coefficient in Wape->C_star formula: C_star=stark*sqrt(2*Wape), def: 0.33
+stark=0.33
+#lifting efficiency of wakes; Alp=Alpk*Fip, Fip=power provided by wakes, def: 0.25
+alpk=0.25
+#wake density = number of wake centers per m2, def: 8.E-12
+wdens_ref=8.E-12
+#multiplicative factor of the damping by gravity waves, def: 4.
+coefgw=4.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.5
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.5	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.5	(revision 3330)
@@ -0,0 +1,239 @@
+#
+# $Id$
+#
+##############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.7
+f_ri_cd_min=0.6
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+
+sso_gkdrag=0.2
+sso_gfrcri=0.70
+sso_gkwake=0.40
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=1
+NSW=6
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.00022
+cld_lc_con=0.00022
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=1200.
+cld_tau_con=1200.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=0.67
+ffallv_con=0.67
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-5
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.312
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.999
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=1
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=278.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=1
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
+
+iflag_cloudth_vert=1
+
+#
+lmixmin=10.
+
+#Bergeron
+iflag_bergeron=1
+
+################################################################################
+### Convection.def file
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=0
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=0
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.0003
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-55.0
+
+### Wakes
+#coefficient in Wape->C_star formula: C_star=stark*sqrt(2*Wape), def: 0.33
+stark=0.33
+#lifting efficiency of wakes; Alp=Alpk*Fip, Fip=power provided by wakes, def: 0.25
+alpk=0.25
+#wake density = number of wake centers per m2, def: 8.E-12
+wdens_ref=8.E-12
+#multiplicative factor of the damping by gravity waves, def: 4.
+coefgw=4.
+##################################################################################
+#### End of convection.def inclusion
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.65
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.65	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.65	(revision 3330)
@@ -0,0 +1,230 @@
+#
+# $Id$
+#
+##############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.6
+f_ri_cd_min=0.1
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+
+ok_strato=y
+ok_hines=n
+sso_gkdrag=0.2
+sso_gfrcri=0.70
+sso_gkwake=0.40
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=1
+NSW=6
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.0004
+cld_lc_con=0.0004
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=900.
+cld_tau_con=900.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=.5
+ffallv_con=.5
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.40
+ratqsp0=50000.
+ratqsdp=20000.
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.999
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=1
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=278.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=2
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
+
+iflag_cloudth_vert=0
+
+#
+lmixmin=10.
+
+#Bergeron
+iflag_bergeron=1
+### Convection
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=1
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=1
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.00025
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-40.
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.67
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.67	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/physiq.def_NPv5.67	(revision 3330)
@@ -0,0 +1,246 @@
+#
+# $Id$
+#
+##############################################################################
+# PARAMETRES ET CLES DE LA PHYSIQUE LMDZ
+##############################################################################
+# D: Valeur par default
+#
+#Parametres Orographiques et cdrags
+#**********************************
+##   Si=.T. ,  lecture du fichier limit avec la bonne annee 
+ok_limitvrai=n
+iflag_albedo=1
+#Cdrags 
+f_cdrag_stable=1.
+f_cdrag_ter=1.
+f_cdrag_oce=0.6
+f_ri_cd_min=0.1
+#cdmmax
+cdmmax=2.5E-3
+#cdhmax
+cdhmax=2.0E-3
+##  Orodr  ou  non   pour l orographie
+ok_orodr=y
+##  Orolf  ou  non   pour l orographie              
+ok_orolf=y
+#Rugoro
+f_rugoro=0.
+#
+### Random gravity waves
+#Activitate the stochastic parameterization of convective GWs (should be equal to ok_strato)
+ok_gwd_rando=y
+# Scale the momentum fluxes due to convective GWs
+gwd_rando_ruwmax=2.5
+#Scale the saturated momentum flux of  convective GWs 
+gwd_rando_sat=0.2
+
+ok_strato=y
+ok_hines=n
+sso_gkdrag=0.2
+sso_gfrcri=0.70
+sso_gkwake=0.40
+#
+# Rayonnement
+#*********************
+# activation du nouveau code de rayonnement RRTM
+# 0 : Ancien code et 1 : RRTM (D=0)
+iflag_rrtm=1
+NSW=6
+#
+# Parametres nuages
+#******************
+#seuils de la precipitation des nuages strateformes (D: 2.6e-4 2.6e-4)
+cld_lc_lsc=0.0002
+cld_lc_con=0.0002
+#constante de temps pour eleminer eau lsc et convective (D: 3600. 3600.)
+cld_tau_lsc=900.
+cld_tau_con=900.
+#facteurs correctifs sur la vitesse de chute des cristaux de glace (D: 1 1)
+ffallv_lsc=.5
+ffallv_con=.5
+#coefficient sur la reevaporation de la pluie (D: 2.e-5 n)
+coef_eva=2e-4
+reevap_ice=y
+#calcul des proprietes des nuages convectifs (D:1 0.375 1.e-4) 
+iflag_cldcon=6
+fact_cldcon=1.
+facttemps=0.
+#calcul eau condensee et fraction nuageuse a partir des PDF (D:0, 0:version avec ratqs sinon nouvelles PDFs)  
+iflag_pdf=1
+#calcul epaisseur optique et emmissivite des nuages (D: y 1 0.01 0.3)
+ok_newmicro=y
+iflag_ratqs=4
+ratqsbas=0.002
+ratqshaut=0.40
+ratqsp0=50000.
+ratqsdp=20000.
+#rayon effectif pour les nuages de glace (D:35)
+rad_froid=35
+#rayons effectifs pour les nuages eau liq (tailles des gouttes d eau nuageuse, D: 13 9)
+rad_chau1=12
+rad_chau2=11
+##  Choix ou non  de  New oliq               
+new_oliq=y
+#Rayons min et max effectifs des particules des nuages
+rei_min=16.
+rei_max=61.29
+#
+# Flags Convection 
+#*****************
+#Convection scheme switch (D:2, 1:LMD, 2:Tiedtke, 3:KE New Physics, 30:KE AR4)
+iflag_con=3
+#output level of energy conservation diagnostics
+if_ebil=0
+#maximum efficiency of cld water->precipitation conversion (D: 0.993)
+epmax=0.999
+#dry convective adjustment at beginning of Emanuel convective scheme (D: n 0)
+ok_adj_ema=n
+iflag_clw=0
+#Convective closure (D:1, 0:AR4, 2:ALE and ALP)
+iflag_clos=2
+#Convective entrainment mixing law (D:1, 0:AR4=flat PDF, 1=PDF)
+iflag_mix=1
+#weights of the bell shaped and flat PDF (used only if iflag_mix=1) (D: 1 0)
+qqa1=1.
+qqa2=0.
+#Parameters of the bell shaped PDF; Fmax=center (D= 0.65), Gammas=width (D=0.05)
+cvl_corr=1.0
+#Multiplicative factor of Emanuel convective scheme precipitation (D: 1.)
+Fmax=0.65
+#
+# Flags Couche limite
+#********************
+#shema de CL des thermiques (D:0, 0:ajustement sec,=>1:versions thermiques) 
+iflag_thermals=18
+#pas de temps du spliting pour les thermiques
+nsplit_thermals=1
+tau_thermals=0.
+iflag_thermals_ed=8
+fact_thermals_ed_dz=0.1
+iflag_thermals_optflux=0
+#shema de la couche de surface (D:1, 1:LMD, 8:Mellor-Yamada) 
+iflag_pbl=11
+#diffusion turbulente
+ksta_ter=1.e-7
+ksta=1.e-10
+#ok_kzmin : calcul Kzmin dans la CL de surface
+ok_kzmin=y
+#couplage ou non avec la convection
+iflag_coupl=5 (0:AR4 et 1:nouvelle physique)
+seuil_inversion=-0.08
+#rendement sur la puissance fournie par les thermiques a la convection
+alp_bl_k=0.5
+#
+## temperature dependency of qsat for iterative procedure
+## temporary flag to switch between the old (CMIP5, D=0) and new versions (=1) versions 
+iflag_fisrtilp_qsat=4 
+## Reactivation du calcul d'un zmax continu pour les thermiques
+## reactivation d'une fermeture humide des thermiques  iflag_thermals_closure=2 (D=1)
+iflag_thermals_closure=1
+#
+# Flags wakes
+#************
+#Wake scheme switch (D:0, 0:AR4, 1:New Physics)
+iflag_wake=1
+#Constant value to be added to Alp (D: 0.)
+alp_offset=0.
+
+### nrlmd le 10/04/2012: Declenchement ###
+#Déclelenchement par couche-limite (0: deterministe, 1: stochastique)
+iflag_trig_bl=1
+#Surface critique au LCL
+s_trig=1.2e7
+#Temps de decorrelation entre scenes de cumulus
+tau_trig_shallow=1200
+#Temps de decorrelation entre scenes de cumulonimbus
+tau_trig_deep=1200
+# Pour la stabilisation
+random_notrig_max=0.99
+ok_adjwk=y
+tmax_fonte_cv=278.15
+
+
+### nrlmd le 10/04/2012: Fermeture ###
+#Fermeture par couche-limite (0: deterministe, 1: statistique, 2: statistique+convergence grande échelle)
+iflag_clos_bl=1
+### fin nrlmd le 10/04/2012
+
+## Modification de la plage de temperature pour la phase mixte liquide/glace des nuages
+## Controle par les t_glace_min/max, exposant_glace, iflag_t_glace (D=0)
+t_glace_min=233.13
+t_glace_max=273.13
+exposant_glace=1.
+iflag_t_glace=2
+iflag_ice_thermo=1
+
+#
+## The source terms of the TKE prognostic equation are diagnosed from tendencies (du, dv, dT) 
+## associated with subrgrid scaleamotions and treated as an additional heat source.
+## Controled by a key, iflag_ener_conserv (D=-1):
+## 0 : no conservation, -1 : old adhoc correction for kinetic E only (used for CMIP5) 
+## 1 : conservation, 101 : conversion from kinetic to heat only, 110 conversion from potential to heat only
+iflag_ener_conserv=1
+
+#Activation of corrections for water conservation (D: n). 
+##The default is n for compatibility with earlier versions.
+##generally it should be y.
+ok_conserv_q=y 
+
+iflag_cloudth_vert=0
+
+#
+lmixmin=10.
+
+#Bergeron
+iflag_bergeron=1
+
+################################################################################
+### Convection.def file
+
+### Convection
+#altitude, in hPa, above LCL at which buoybase is computed, def = original: -40
+dpbase=-40.
+#altitude, in hPa, above LCL below which Ep=0, def = original: 150, used only if flag_epKEorig=1
+pbcrit=150.0
+#altitude, in hPa, above LCL above which Ep=Epmax, def = original: 500, used only if flag_epKEorig=1
+ptcrit=500.0
+#reference fractional area of precipitating downdraughts, def = original: 0.01
+sigdz=0.01
+#unsaturated fraction of precipitating downdraughts, def = original: 0.15
+spfac=0.15
+#relaxation time of cloud base mass flux, def = original: 8000
+tau=8000.
+#flag for wb (= vert velocity at LFC); 0->wb=wbmax, 1->wb=f(plfc) bounded, 2->wb=f(plfc) linear, def = 1
+flag_wb=1
+#parameter used in the computation of wb, def = 6.
+wbmax=6.
+#
+ok_convstop=.False.
+#
+tau_stop=15000.
+#
+ok_intermittent=.False.
+#shedding coefficient (used when iflag_mix_adiab=1)
+coef_peel=0.25
+#
+### Clouds
+#Conversion cld water->precip: Ep=f(pressure) if 0; Ep=f(temperature) if 1, def=1
+flag_epKEorig=1
+#max condensed water concentration in kg/kg, def=0.0003, original: 0.0011, used only if flag_epKEorig=1
+elcrit=0.00025
+#temperature in degre Celsius, at which Ep=Epmax, def=-55., original: -55, used only if flag_epKEorig=1
+tlcrit=-40.
+
+### Wakes
+#coefficient in Wape->C_star formula: C_star=stark*sqrt(2*Wape), def: 0.33
+stark=0.33
+#lifting efficiency of wakes; Alp=Alpk*Fip, Fip=power provided by wakes, def: 0.25
+alpk=0.25
+#wake density = number of wake centers per m2, def: 8.E-12
+wdens_ref=8.E-12
+#multiplicative factor of the damping by gravity waves, def: 4.
+coefgw=4.
+##################################################################################
+#### End of convection.def inclusion
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/pointlocations.txt_amip
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/pointlocations.txt_amip	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/pointlocations.txt_amip	(revision 3330)
@@ -0,0 +1,193 @@
+1,  290.0  ,  -20.0       ,'VOCALS cross section (Rob Wood)'
+2,  287.5  ,  -20.0       ,'       as above'
+3,  285.0  ,  -20.0       ,'       as above '
+4,  282.5  ,  -20.0       ,'       as above '
+5,  280.0  ,  -20.0       ,'       as above '
+6,  277.5  ,  -20.0       ,'VOCALS cross section (Rob Wood)'
+7,  275.0  ,  -20.0       ,'85W 20S WHOI SE Pacific stratus buoy (http://uop.whoi.edu/stratus/) (CPT)'
+8,  270.0  ,  -18.5 ,'SouthEast Tropical Pacific Section (CFMIP)'
+9,  265.0  ,  -17.0  ,'       as above '
+10,  260.0  ,  -15.5  ,'       as above '
+11,  255.0  ,  -14.0  ,'       as above '
+12,  250.0  ,  -12.5  ,'       as above '
+13,  245.0  ,  -11.0  ,'       as above '
+14,  240.0  ,  -9.50  ,'       as above '
+15, 234.9  ,   -8.0       ,'125.1W 8S    central Pacific SE trades TAO buoy (CPT)'
+16, -123.0 ,  38.1        ,'Point Reyes ARM Mobile Facility N38° 5.51' W122° 57.33' (AMF)'
+17, 235    ,  35          ,'GCSS Pacific cross section (GPCI) (Joao Teixeira)'
+18, 231    ,  32          ,'       as above '
+19, 227    ,  29          ,'       as above '
+20, 223    ,  26          ,'       as above '
+21, 219    ,  23          ,'       as above '
+22, 215    ,  20          ,'       as above '
+23, 211    ,  17          ,'       as above '
+24, 207    ,  14          ,'       as above '
+25, 203    ,  11          ,'       as above '
+26,  199    ,   8          ,'       as above '
+27,  195    ,   5          ,'       as above '
+28,  191    ,   2          ,'       as above '
+29,  187    ,  -1          ,'GCSS Pacific cross section (GPCI) (Joao Teixeira)'
+30,  177    ,   -1         ,'GPCI/Tropical West Pacific link point (CFMIP)'
+31,  166.9  ,   -0.5       ,'166.9E 0.5S    Nauru ARM   (CPT)'
+32,  156    ,   -2         ,'156E 2S     COARE  (CPT)'
+33,  147.4  ,   -2.1       ,'147.4E 2.1S     Manus ARM  (CPT)'
+34,  140.5  ,   -4.75      ,'Papua New Guinea (CFMIP)'
+35,  135.5  ,   -8         ,'Arafura Sea (CFMIP)'
+36,  130.9  ,  -12.4       ,'130.9E 12.4S    Darwin ARM   (CPT)'
+37,  -97.5  ,   36.4       ,'97.5W 36.4N    Oklahoma ARM   (CPT)'
+38, -156.6  ,   71.3       ,'156.6W 71.3N    Barrow ARM   (CPT)    '
+39,  -62    ,  -11         ,'62W 11S    Amazonia   (CPT)'
+40,    4.9  ,   52         ,'4.93E,51.97N Cabaaw Mast  Netherlands   (CPT)'
+41,  145    ,  -42         ,'145E 42S     Cape Grim     Tasmania    (CPT)'
+42,  -51    ,   15         ,'51W 15N      WHOI Atlantic tradewind NTAS buoy (http://uop.whoi.edu/ntas/)  (CPT)'
+43, -140    ,   30         ,'140W 30N     OWS N  (CPT)'
+44, -145    ,   50         ,'145W 50N     OWS P  (CPT)'
+45, -125.2  ,   8          ,'125.2W 8N    central Pacific ITCZ TAO buoy  (CPT)'
+46,  120    ,  23.5        ,'120E 23.5N    China Sea                                (CPT)'
+47,  -28    ,  39          ,'Graciosa in the Azores (28W 39N) 2009 AMF deployment (Chris Bretherton)'
+48,    8.4  ,  48.5        ,'AMF Black forest Germany Main Site: N48° 32.403'     E08° 23.812' (AMF)'
+49,  116.8  ,  32.5        ,'AMF Shouxian China Location: 32°33'N 116°46'E       (AMF)'
+50,  129.6  ,  62.3        ,'CEOP 2  Eastern Siberian Tiaga            62.3N 129.6E     (Martin Koehler)'
+51,   91.9  ,  31.4        ,'CEOP 5  Tibet                             31.4N  91.9E     (Martin Koehler)'
+52,  134.5  ,   7.5        ,'CEOP 10 Western Pacific Ocean              7.5N 134.5E     (Martin Koehler)'
+53,   14.1  ,  52.2        ,'CEOP 26 Lindenberg                        52.2N  14.1E     (Martin Koehler)'
+54,   26.6  ,  67.4        ,'CEOP 27 Sodankyla                         67.4N  26.6E     (Martin Koehler)'
+55, -105.1  ,  54.0        ,'CEOP 33 BERMS (CliC)                      54.0N 105.1W     (Martin Koehler)'
+56,  -62.5  ,  82.5        ,'CEOP 34 Alert     Nunavut                    82.5N  62.5W  (Martin Koehler)'
+57,  -53.4  , -28.6        ,'CEOP 48 Cruz Alta (LPB)                   28.6S  53.4W     (Martin Koehler)'
+58,  -24    ,  41          ,'ASTEX (41N     24W) (Adrian Lock)'
+59,  -26    ,  35          ,'ASTEX (35N     26W) (Adrian Lock)'
+60,  -29    ,  29          ,'ASTEX (29N     29W) (Adrian Lock)'
+61,  -35    ,  12          ,'ATEX     = 12N     35W (Adrian Lock)'
+62,  -56.5  ,  15          ,'BOMEX    = 15N     56.5W (Adrian Lock)'
+63,  -61.5  ,  18          ,'RICO     = 18N     61.5W (Adrian Lock)'
+64, -119.5  ,  33          ,'EUROCS/FIREI = 33N     119.5W (Adrian Lock)'
+65, -122    ,  31.5        ,'DYCOMSII = 31.5N     122W   (Adrian Lock)'
+66,  -85    ,  -2.5        ,'East Pacific Point (CFMIP)'
+67,  -95    ,  -2.5        ,'East Pacific Point (CFMIP)'
+68,  -105   ,  -2.5        ,'East Pacific Point (CFMIP)'
+69,  -115   ,  -2.5        ,'East Pacific Point (CFMIP)'
+70,  -125   ,  -2.5        ,'East Pacific Point (CFMIP)'
+71,  -125   ,  18          ,'East Pacific Point (CFMIP)'
+72,  -69    ,   1          ,'North West of Amazonia     (CFMIP)'
+73,   62.0 ,   13.0        ,'MONSOON INFLOW (CFMIP)'
+74,  -14.4  , -7.97        ,'ASCENSION IS./WIDEAWAKE (RATPAC) (CFMIP)'
+75,  150    ,   37         ,'Kurishio region    (CFMIP)'
+76,  -21.9  ,   64.1       ,'64.1285N 21.9407W Reykjavik    (CFMIP)'
+77, -170.2  ,   57.15      ,'ST. PAUL ISLAND (RATPAC)       (CFMIP)'
+78,  -58.9  ,  -62.20      ,'BELLINGSHAUSEN (RATPAC)        (CFMIP)'
+79,   11.95 ,   78.93      ,'BSRN site Svalbard  (CFMIP)'
+80,  144.8  ,   13.6       ,'Guam     (CFMIP)'
+81,   69.3  ,  -49.2       ,'Southern Ocean - Kerguelen Islands    (CFMIP)'
+82,  158.9  ,  -54.6       ,'Southern Ocean - Macquarie Island    (CFMIP)'
+83,    -81  ,   27         ,'Florida (81W 27N)  ( Brian Mapes )'
+84, -167.7  ,    8.7       ,'Kwajalein (167.7W 8.7N)  ( Brian Mapes )'
+85,   90.0  ,   12         ,'JASMINE (90E 12N)  ( Brian Mapes )'
+86,  115    ,   12         ,'SCS (115E 12N)  ( Brian Mapes )'
+87,  -95    ,   10         ,'EPIC (95W 10N)  ( Brian Mapes )'
+88,  -23    ,    8.5       ,'GATE (23W 8.5N)  ( Brian Mapes )'
+89,  -1.44  ,   51.14      ,'Chilbolton, UK  51.1445 North, 1.4370 West, altitude 80 m. (Robin Hogan)'
+90,   2.20  ,   48.71      ,'SIRTA, Palaiseau (Paris), France 48.713 North 2.204 Est (Cloudnet)'
+91,   93.7  ,   -20.1      ,'CFMIP West of Australia'
+92,  254.4  ,   -58.5      ,'CFMIP Southern Ocean'
+93,  -52.75 ,    47.67     ,'CFMIP ST. JOHNS (RATPAC)'
+94, -176.6  ,   -43.95     ,'CFMIP CHATHAM ISLAND (RATPAC)'
+95,   72.4  ,    -7.30     ,'CFMIP DIEGO GARCIA (RATPAC)'
+96,   -9.88 ,   -40.35     ,'GOUGH IS. (RATPAC) (CFMIP) '
+97, 189.1  ,    38.2      ,'CFMIP Central North Pacific'
+98,-149.6  ,   -17.5      ,'CFMIP Tahiti 17.5° S 149.6°W'
+99,   0.0  ,   -56.0      ,'CFMIP South Atlantic'
+100, 273.5  ,   -42.7      ,'CFMIP off coast of Chile'
+101, 153.97 ,    24.30     ,'MARCUS IS. (RATPAC) (CFMIP)'
+102,  167.9,    -29.03     ,'NORFOLK ISLAND (RATPAC) (CFMIP)'
+103, -40.0 ,     50.0      ,'CFMIP North West Atlantic'
+104,  87.95,     65.78     ,'TURUKHANSK (RATPAC)                  RS '
+105,    0.0,      0.0      ,'0.,   0.N   Pirata Buoy ( AMMA Francoise Guichard )'
+106,    2.5,      3.5,     ,'2.5,  3.5N              ( AMMA Francoise Guichard )'
+107,    2.5,      6.5,     ,'2.5,  6.5N              ( AMMA Francoise Guichard )'
+108,    2.0,      9.5,     ,'2. ,  9.5N   Oueme      ( AMMA Francoise Guichard )'
+109,    2.5,     11.5,     ' 2.5,  11.5N             ( AMMA Francoise Guichard )'
+110,    2.2,     13.5      ,'13.5N  2.2E Niamey ARM Mobile Facility (AMF)'
+111,   -1.5,     15.5      ,' -1.5, 15.5N  Gourma    ( AMMA Francoise Guichard )'
+112,    2.5,     18        ,'2.5, 18N                ( AMMA Francoise Guichard )'
+113,    2.5,     20.5      ,'2.5, 20.5N              ( AMMA Francoise Guichard )'
+114,    5.5,     23.0      ,'5.5, 23 N Tamanrasset   ( AMMA Francoise Guichard )'
+115,  -17.0,     15.0      ,' -17. 15N Dakar         ( AMMA Francoise Guichard )'
+116, -165.0,     76.0      ,' 165W, 76N Location of SHEBA IceBreaker May 1998  ( Stephen Klein )'
+117,  128.9,     71.6      ,' Tiksi, Russia 71.6 N, 128.9 - Location of NOAA SEARCH Site ( Stephen Klein )'
+118,  110.0,     88.0      ,' Central Arctic Ocean Point - midway between Svalbard & SHEBA ( Stephen Klein )'
+119,  123.2,    -75.1      ,' Antarctica Plateau Dome C: 75?1 S 123?2 E (Sandrine Bony/Christophe Genthon)'
+120,  -59.4,     13.2      ,' Barbados site -59.4W 13.2N (Sandrine Bony/Louise Nuijens)'
+1000001,0.0,     90.0      ,'Aquaplanet Greenwich meridian point 01'
+1000002,0.0,     87.5      ,'Aquaplanet Greenwich meridian point 02'
+1000003,0.0,     85.0      ,'Aquaplanet Greenwich meridian point 03'
+1000004,0.0,     82.5      ,'Aquaplanet Greenwich meridian point 04'
+1000005,0.0,     80.0      ,'Aquaplanet Greenwich meridian point 05'
+1000006,0.0,     77.5      ,'Aquaplanet Greenwich meridian point 06'
+1000007,0.0,     75.0      ,'Aquaplanet Greenwich meridian point 07'
+1000008,0.0,     72.5      ,'Aquaplanet Greenwich meridian point 08'
+1000009,0.0,     70.0      ,'Aquaplanet Greenwich meridian point 09'
+1000010,0.0,     67.5      ,'Aquaplanet Greenwich meridian point 10'
+1000011,0.0,     65.0      ,'Aquaplanet Greenwich meridian point 11'
+1000012,0.0,     62.5      ,'Aquaplanet Greenwich meridian point 12'
+1000013,0.0,     60.0      ,'Aquaplanet Greenwich meridian point 13'
+1000014,0.0,     57.5      ,'Aquaplanet Greenwich meridian point 14'
+1000015,0.0,     55.0      ,'Aquaplanet Greenwich meridian point 15'
+1000016,0.0,     52.5      ,'Aquaplanet Greenwich meridian point 16'
+1000017,0.0,     50.0      ,'Aquaplanet Greenwich meridian point 17'
+1000018,0.0,     47.5      ,'Aquaplanet Greenwich meridian point 18'
+1000019,0.0,     45.0      ,'Aquaplanet Greenwich meridian point 19'
+1000020,0.0,     42.5      ,'Aquaplanet Greenwich meridian point 20'
+1000021,0.0,     40.0      ,'Aquaplanet Greenwich meridian point 21'
+1000022,0.0,     37.5      ,'Aquaplanet Greenwich meridian point 22'
+1000023,0.0,     35.0      ,'Aquaplanet Greenwich meridian point 23'
+1000024,0.0,     32.5      ,'Aquaplanet Greenwich meridian point 24'
+1000025,0.0,     30.0      ,'Aquaplanet Greenwich meridian point 25'
+1000026,0.0,     27.5      ,'Aquaplanet Greenwich meridian point 26'
+1000027,0.0,     25.0      ,'Aquaplanet Greenwich meridian point 27'
+1000028,0.0,     22.5      ,'Aquaplanet Greenwich meridian point 28'
+1000029,0.0,     20.0      ,'Aquaplanet Greenwich meridian point 29'
+1000030,0.0,     17.5      ,'Aquaplanet Greenwich meridian point 30'
+1000031,0.0,     15.0      ,'Aquaplanet Greenwich meridian point 31'
+1000032,0.0,     12.5      ,'Aquaplanet Greenwich meridian point 32'
+1000033,0.0,     10.0      ,'Aquaplanet Greenwich meridian point 33'
+1000034,0.0,     7.50      ,'Aquaplanet Greenwich meridian point 34'
+1000035,0.0,     5.00      ,'Aquaplanet Greenwich meridian point 35'
+1000036,0.0,     2.50      ,'Aquaplanet Greenwich meridian point 36'
+1000037,0.0,     0.00      ,'Aquaplanet Greenwich meridian point 37'
+1000038,0.0,    -2.50      ,'Aquaplanet Greenwich meridian point 38'
+1000039,0.0,    -5.00      ,'Aquaplanet Greenwich meridian point 39'
+1000040,0.0,    -7.50      ,'Aquaplanet Greenwich meridian point 40'
+1000041,0.0,    -10.0      ,'Aquaplanet Greenwich meridian point 41'
+1000042,0.0,    -12.5      ,'Aquaplanet Greenwich meridian point 42'
+1000043,0.0,    -15.0      ,'Aquaplanet Greenwich meridian point 43'
+1000044,0.0,    -17.5      ,'Aquaplanet Greenwich meridian point 44'
+1000045,0.0,    -20.0      ,'Aquaplanet Greenwich meridian point 45'
+1000046,0.0,    -22.5      ,'Aquaplanet Greenwich meridian point 46'
+1000047,0.0,    -25.0      ,'Aquaplanet Greenwich meridian point 47'
+1000048,0.0,    -27.5      ,'Aquaplanet Greenwich meridian point 48'
+1000049,0.0,    -30.0      ,'Aquaplanet Greenwich meridian point 49'
+1000050,0.0,    -32.5      ,'Aquaplanet Greenwich meridian point 50'
+1000051,0.0,    -35.0      ,'Aquaplanet Greenwich meridian point 51'
+1000052,0.0,    -37.5      ,'Aquaplanet Greenwich meridian point 52'
+1000053,0.0,    -40.0      ,'Aquaplanet Greenwich meridian point 53'
+1000054,0.0,    -42.5      ,'Aquaplanet Greenwich meridian point 54'
+1000055,0.0,    -45.0      ,'Aquaplanet Greenwich meridian point 55'
+1000056,0.0,    -47.5      ,'Aquaplanet Greenwich meridian point 56'
+1000057,0.0,    -50.0      ,'Aquaplanet Greenwich meridian point 57'
+1000058,0.0,    -52.5      ,'Aquaplanet Greenwich meridian point 58'
+1000059,0.0,    -55.0      ,'Aquaplanet Greenwich meridian point 59'
+1000060,0.0,    -57.5      ,'Aquaplanet Greenwich meridian point 60'
+1000061,0.0,    -60.0      ,'Aquaplanet Greenwich meridian point 61'
+1000062,0.0,    -62.5      ,'Aquaplanet Greenwich meridian point 62'
+1000063,0.0,    -65.0      ,'Aquaplanet Greenwich meridian point 63'
+1000064,0.0,    -67.5      ,'Aquaplanet Greenwich meridian point 64'
+1000065,0.0,    -70.0      ,'Aquaplanet Greenwich meridian point 65'
+1000066,0.0,    -72.5      ,'Aquaplanet Greenwich meridian point 66'
+1000067,0.0,    -75.0      ,'Aquaplanet Greenwich meridian point 67'
+1000068,0.0,    -77.5      ,'Aquaplanet Greenwich meridian point 68'
+1000069,0.0,    -80.0      ,'Aquaplanet Greenwich meridian point 69'
+1000070,0.0,    -82.5      ,'Aquaplanet Greenwich meridian point 70'
+1000071,0.0,    -85.0      ,'Aquaplanet Greenwich meridian point 71'
+1000072,0.0,    -87.5      ,'Aquaplanet Greenwich meridian point 72'
+1000073,0.0,    -90.0      ,'Aquaplanet Greenwich meridian point 73'
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/pointlocations.txt_aqua
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/pointlocations.txt_aqua	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/pointlocations.txt_aqua	(revision 3330)
@@ -0,0 +1,73 @@
+1000001,0.0,     90.0      ,'Aquaplanet Greenwich meridian point 01'
+1000002,0.0,     87.5      ,'Aquaplanet Greenwich meridian point 02'
+1000003,0.0,     85.0      ,'Aquaplanet Greenwich meridian point 03'
+1000004,0.0,     82.5      ,'Aquaplanet Greenwich meridian point 04'
+1000005,0.0,     80.0      ,'Aquaplanet Greenwich meridian point 05'
+1000006,0.0,     77.5      ,'Aquaplanet Greenwich meridian point 06'
+1000007,0.0,     75.0      ,'Aquaplanet Greenwich meridian point 07'
+1000008,0.0,     72.5      ,'Aquaplanet Greenwich meridian point 08'
+1000009,0.0,     70.0      ,'Aquaplanet Greenwich meridian point 09'
+1000010,0.0,     67.5      ,'Aquaplanet Greenwich meridian point 10'
+1000011,0.0,     65.0      ,'Aquaplanet Greenwich meridian point 11'
+1000012,0.0,     62.5      ,'Aquaplanet Greenwich meridian point 12'
+1000013,0.0,     60.0      ,'Aquaplanet Greenwich meridian point 13'
+1000014,0.0,     57.5      ,'Aquaplanet Greenwich meridian point 14'
+1000015,0.0,     55.0      ,'Aquaplanet Greenwich meridian point 15'
+1000016,0.0,     52.5      ,'Aquaplanet Greenwich meridian point 16'
+1000017,0.0,     50.0      ,'Aquaplanet Greenwich meridian point 17'
+1000018,0.0,     47.5      ,'Aquaplanet Greenwich meridian point 18'
+1000019,0.0,     45.0      ,'Aquaplanet Greenwich meridian point 19'
+1000020,0.0,     42.5      ,'Aquaplanet Greenwich meridian point 20'
+1000021,0.0,     40.0      ,'Aquaplanet Greenwich meridian point 21'
+1000022,0.0,     37.5      ,'Aquaplanet Greenwich meridian point 22'
+1000023,0.0,     35.0      ,'Aquaplanet Greenwich meridian point 23'
+1000024,0.0,     32.5      ,'Aquaplanet Greenwich meridian point 24'
+1000025,0.0,     30.0      ,'Aquaplanet Greenwich meridian point 25'
+1000026,0.0,     27.5      ,'Aquaplanet Greenwich meridian point 26'
+1000027,0.0,     25.0      ,'Aquaplanet Greenwich meridian point 27'
+1000028,0.0,     22.5      ,'Aquaplanet Greenwich meridian point 28'
+1000029,0.0,     20.0      ,'Aquaplanet Greenwich meridian point 29'
+1000030,0.0,     17.5      ,'Aquaplanet Greenwich meridian point 30'
+1000031,0.0,     15.0      ,'Aquaplanet Greenwich meridian point 31'
+1000032,0.0,     12.5      ,'Aquaplanet Greenwich meridian point 32'
+1000033,0.0,     10.0      ,'Aquaplanet Greenwich meridian point 33'
+1000034,0.0,     7.50      ,'Aquaplanet Greenwich meridian point 34'
+1000035,0.0,     5.00      ,'Aquaplanet Greenwich meridian point 35'
+1000036,0.0,     2.50      ,'Aquaplanet Greenwich meridian point 36'
+1000037,0.0,     0.00      ,'Aquaplanet Greenwich meridian point 37'
+1000038,0.0,    -2.50      ,'Aquaplanet Greenwich meridian point 38'
+1000039,0.0,    -5.00      ,'Aquaplanet Greenwich meridian point 39'
+1000040,0.0,    -7.50      ,'Aquaplanet Greenwich meridian point 40'
+1000041,0.0,    -10.0      ,'Aquaplanet Greenwich meridian point 41'
+1000042,0.0,    -12.5      ,'Aquaplanet Greenwich meridian point 42'
+1000043,0.0,    -15.0      ,'Aquaplanet Greenwich meridian point 43'
+1000044,0.0,    -17.5      ,'Aquaplanet Greenwich meridian point 44'
+1000045,0.0,    -20.0      ,'Aquaplanet Greenwich meridian point 45'
+1000046,0.0,    -22.5      ,'Aquaplanet Greenwich meridian point 46'
+1000047,0.0,    -25.0      ,'Aquaplanet Greenwich meridian point 47'
+1000048,0.0,    -27.5      ,'Aquaplanet Greenwich meridian point 48'
+1000049,0.0,    -30.0      ,'Aquaplanet Greenwich meridian point 49'
+1000050,0.0,    -32.5      ,'Aquaplanet Greenwich meridian point 50'
+1000051,0.0,    -35.0      ,'Aquaplanet Greenwich meridian point 51'
+1000052,0.0,    -37.5      ,'Aquaplanet Greenwich meridian point 52'
+1000053,0.0,    -40.0      ,'Aquaplanet Greenwich meridian point 53'
+1000054,0.0,    -42.5      ,'Aquaplanet Greenwich meridian point 54'
+1000055,0.0,    -45.0      ,'Aquaplanet Greenwich meridian point 55'
+1000056,0.0,    -47.5      ,'Aquaplanet Greenwich meridian point 56'
+1000057,0.0,    -50.0      ,'Aquaplanet Greenwich meridian point 57'
+1000058,0.0,    -52.5      ,'Aquaplanet Greenwich meridian point 58'
+1000059,0.0,    -55.0      ,'Aquaplanet Greenwich meridian point 59'
+1000060,0.0,    -57.5      ,'Aquaplanet Greenwich meridian point 60'
+1000061,0.0,    -60.0      ,'Aquaplanet Greenwich meridian point 61'
+1000062,0.0,    -62.5      ,'Aquaplanet Greenwich meridian point 62'
+1000063,0.0,    -65.0      ,'Aquaplanet Greenwich meridian point 63'
+1000064,0.0,    -67.5      ,'Aquaplanet Greenwich meridian point 64'
+1000065,0.0,    -70.0      ,'Aquaplanet Greenwich meridian point 65'
+1000066,0.0,    -72.5      ,'Aquaplanet Greenwich meridian point 66'
+1000067,0.0,    -75.0      ,'Aquaplanet Greenwich meridian point 67'
+1000068,0.0,    -77.5      ,'Aquaplanet Greenwich meridian point 68'
+1000069,0.0,    -80.0      ,'Aquaplanet Greenwich meridian point 69'
+1000070,0.0,    -82.5      ,'Aquaplanet Greenwich meridian point 70'
+1000071,0.0,    -85.0      ,'Aquaplanet Greenwich meridian point 71'
+1000072,0.0,    -87.5      ,'Aquaplanet Greenwich meridian point 72'
+1000073,0.0,    -90.0      ,'Aquaplanet Greenwich meridian point 73'
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/run.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/run.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/run.def	(revision 3330)
@@ -0,0 +1,36 @@
+# $Id: run.def 1403 2010-07-01 09:02:53Z fairhead $
+#
+## Fichier de configuration general
+## 
+INCLUDEDEF=gcm.def
+INCLUDEDEF=vert.def
+INCLUDEDEF=physiq.def
+INCLUDEDEF=convection.def
+INCLUDEDEF=orchidee.def
+INCLUDEDEF=output.def
+INCLUDEDEF=config.def
+## Type de calendrier utilise
+## valeur possible: earth_360d (defaut), earth_365d, earth_366d
+calend=earth_360d
+## Jour de l'etat initial ( = 350  si 20 Decembre ,par expl. ,comme ici )
+dayref=1
+##  Annee de l'etat  initial (   avec  4  chiffres   )
+anneeref=1980
+## Nombre de jours d'integration
+nday=5
+## Remise a zero de la date initiale
+raz_date=0
+## periode de sortie des variables de controle (en pas)
+iconser=240
+## periode d'ecriture du fichier histoire (en jour)
+iecri=1
+## flag de sortie dynzon
+ok_dynzon=n
+## periode de stockage fichier dynzon (en jour)
+periodav= 30.
+## activation du calcul d equilibrage de charge
+adjust=n
+## activation du filtre fft
+use_filtre_fft=n
+## niveau d'impression de controle
+prt_level=1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/traceur.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/traceur.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/traceur.def	(revision 3330)
@@ -0,0 +1,7 @@
+6
+14 14 H2Ov
+10 10 H2Ol
+10 10 H2Oi
+10 10 Aga
+10 10 RN
+10 10 PB
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/vert_L79.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/vert_L79.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/vert_L79.def	(revision 3330)
@@ -0,0 +1,40 @@
+#
+# $Id$
+#
+#### Verticale discretisation
+## Modified verticale discretisation for stratospheric versions.
+## The new version can be controled by following parameters
+## Al the parameters are given in km assuming a given scalehigh
+vert_sampling=strato_custom
+## scale hight
+vert_scale=7.
+## width of first layer
+vert_dzmin=0.017
+## dz in the low atmosphere
+vert_dzlow=1.
+## height at which resolution recches dzlow
+vert_z0low=8.7
+## dz in the mid atmsophere
+vert_dzmid=2.
+## height at which resolution recches dzmid
+vert_z0mid=70.
+## width of the transition
+vert_h_mid=20.
+## dz in the high atmsophere
+vert_dzhig=11.
+## height at which resolution recches dz
+vert_z0hig=75.
+## width of the transition
+vert_h_hig=20.
+## vert_prof_dissip used to choose the vertical profile
+## of horizontal dissipation (values are 0 and 1)
+vert_prof_dissip = 1
+dissip_zref = 50
+##  Avec ou sans strato
+ok_strato=y
+ok_hines=n
+#  Couche eponge dans les couches de pression plus faible que 100 fois la pression de la derniere couche
+iflag_top_bound=2
+#  Coefficient pour la couche eponge (valeur derniere couche)
+tau_top_bound=5.e-4
+#
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/wake_param.data_NPv3.1
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/wake_param.data_NPv3.1	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/wake_param.data_NPv3.1	(revision 3330)
@@ -0,0 +1,4 @@
+0.33        stark
+0.25        Alpk
+8.e-12      wdens
+4.          coefgw
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/wake_param.def
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/wake_param.def	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/DefLists/wake_param.def	(revision 3330)
@@ -0,0 +1,9 @@
+### Wakes
+#coefficient in Wape->C_star formula: C_star=stark*sqrt(2*Wape), def: 0.33
+stark=0.33
+#lifting efficiency of wakes; Alp=Alpk*Fip, Fip=power provided by wakes, def: 0.25
+alpk=0.25
+#wake density = number of wake centers per m2, def: 8.E-12
+wdens_ref=8.E-12
+#multiplicative factor of the damping by gravity waves, def: 4.
+coefgw=4.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/Licence_CeCILL_V2-en.txt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/Licence_CeCILL_V2-en.txt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/Licence_CeCILL_V2-en.txt	(revision 3330)
@@ -0,0 +1,506 @@
+
+CeCILL FREE SOFTWARE LICENSE AGREEMENT
+
+
+    Notice
+
+This Agreement is a Free Software license agreement that is the result
+of discussions between its authors in order to ensure compliance with
+the two main principles guiding its drafting:
+
+    * firstly, compliance with the principles governing the distribution
+      of Free Software: access to source code, broad rights granted to
+      users,
+    * secondly, the election of a governing law, French law, with which
+      it is conformant, both as regards the law of torts and
+      intellectual property law, and the protection that it offers to
+      both authors and holders of the economic rights over software.
+
+The authors of the CeCILL (for Ce[a] C[nrs] I[nria] L[ogiciel] L[ibre])
+license are:
+
+Commissariat à l'Energie Atomique - CEA, a public scientific, technical
+and industrial research establishment, having its principal place of
+business at 25 rue Leblanc, immeuble Le Ponant D, 75015 Paris, France.
+
+Centre National de la Recherche Scientifique - CNRS, a public scientific
+and technological establishment, having its principal place of business
+at 3 rue Michel-Ange, 75794 Paris cedex 16, France.
+
+Institut National de Recherche en Informatique et en Automatique -
+INRIA, a public scientific and technological establishment, having its
+principal place of business at Domaine de Voluceau, Rocquencourt, BP
+105, 78153 Le Chesnay cedex, France.
+
+
+    Preamble
+
+The purpose of this Free Software license agreement is to grant users
+the right to modify and redistribute the software governed by this
+license within the framework of an open source distribution model.
+
+The exercising of these rights is conditional upon certain obligations
+for users so as to preserve this status for all subsequent redistributions.
+
+In consideration of access to the source code and the rights to copy,
+modify and redistribute granted by the license, users are provided only
+with a limited warranty and the software's author, the holder of the
+economic rights, and the successive licensors only have limited liability.
+
+In this respect, the risks associated with loading, using, modifying
+and/or developing or reproducing the software by the user are brought to
+the user's attention, given its Free Software status, which may make it
+complicated to use, with the result that its use is reserved for
+developers and experienced professionals having in-depth computer
+knowledge. Users are therefore encouraged to load and test the
+suitability of the software as regards their requirements in conditions
+enabling the security of their systems and/or data to be ensured and,
+more generally, to use and operate it in the same conditions of
+security. This Agreement may be freely reproduced and published,
+provided it is not altered, and that no provisions are either added or
+removed herefrom.
+
+This Agreement may apply to any or all software for which the holder of
+the economic rights decides to submit the use thereof to its provisions.
+
+
+    Article 1 - DEFINITIONS
+
+For the purpose of this Agreement, when the following expressions
+commence with a capital letter, they shall have the following meaning:
+
+Agreement: means this license agreement, and its possible subsequent
+versions and annexes.
+
+Software: means the software in its Object Code and/or Source Code form
+and, where applicable, its documentation, "as is" when the Licensee
+accepts the Agreement.
+
+Initial Software: means the Software in its Source Code and possibly its
+Object Code form and, where applicable, its documentation, "as is" when
+it is first distributed under the terms and conditions of the Agreement.
+
+Modified Software: means the Software modified by at least one
+Contribution.
+
+Source Code: means all the Software's instructions and program lines to
+which access is required so as to modify the Software.
+
+Object Code: means the binary files originating from the compilation of
+the Source Code.
+
+Holder: means the holder(s) of the economic rights over the Initial
+Software.
+
+Licensee: means the Software user(s) having accepted the Agreement.
+
+Contributor: means a Licensee having made at least one Contribution.
+
+Licensor: means the Holder, or any other individual or legal entity, who
+distributes the Software under the Agreement.
+
+Contribution: means any or all modifications, corrections, translations,
+adaptations and/or new functions integrated into the Software by any or
+all Contributors, as well as any or all Internal Modules.
+
+Module: means a set of sources files including their documentation that
+enables supplementary functions or services in addition to those offered
+by the Software.
+
+External Module: means any or all Modules, not derived from the
+Software, so that this Module and the Software run in separate address
+spaces, with one calling the other when they are run.
+
+Internal Module: means any or all Module, connected to the Software so
+that they both execute in the same address space.
+
+GNU GPL: means the GNU General Public License version 2 or any
+subsequent version, as published by the Free Software Foundation Inc.
+
+Parties: mean both the Licensee and the Licensor.
+
+These expressions may be used both in singular and plural form.
+
+
+    Article 2 - PURPOSE
+
+The purpose of the Agreement is the grant by the Licensor to the
+Licensee of a non-exclusive, transferable and worldwide license for the
+Software as set forth in Article 5 hereinafter for the whole term of the
+protection granted by the rights over said Software. 
+
+
+    Article 3 - ACCEPTANCE
+
+3.1 The Licensee shall be deemed as having accepted the terms and
+conditions of this Agreement upon the occurrence of the first of the
+following events:
+
+    * (i) loading the Software by any or all means, notably, by
+      downloading from a remote server, or by loading from a physical
+      medium;
+    * (ii) the first time the Licensee exercises any of the rights
+      granted hereunder.
+
+3.2 One copy of the Agreement, containing a notice relating to the
+characteristics of the Software, to the limited warranty, and to the
+fact that its use is restricted to experienced users has been provided
+to the Licensee prior to its acceptance as set forth in Article 3.1
+hereinabove, and the Licensee hereby acknowledges that it has read and
+understood it.
+
+
+    Article 4 - EFFECTIVE DATE AND TERM
+
+
+      4.1 EFFECTIVE DATE
+
+The Agreement shall become effective on the date when it is accepted by
+the Licensee as set forth in Article 3.1.
+
+
+      4.2 TERM
+
+The Agreement shall remain in force for the entire legal term of
+protection of the economic rights over the Software.
+
+
+    Article 5 - SCOPE OF RIGHTS GRANTED
+
+The Licensor hereby grants to the Licensee, who accepts, the following
+rights over the Software for any or all use, and for the term of the
+Agreement, on the basis of the terms and conditions set forth hereinafter.
+
+Besides, if the Licensor owns or comes to own one or more patents
+protecting all or part of the functions of the Software or of its
+components, the Licensor undertakes not to enforce the rights granted by
+these patents against successive Licensees using, exploiting or
+modifying the Software. If these patents are transferred, the Licensor
+undertakes to have the transferees subscribe to the obligations set
+forth in this paragraph.
+
+
+      5.1 RIGHT OF USE
+
+The Licensee is authorized to use the Software, without any limitation
+as to its fields of application, with it being hereinafter specified
+that this comprises:
+
+   1. permanent or temporary reproduction of all or part of the Software
+      by any or all means and in any or all form.
+
+   2. loading, displaying, running, or storing the Software on any or
+      all medium.
+
+   3. entitlement to observe, study or test its operation so as to
+      determine the ideas and principles behind any or all constituent
+      elements of said Software. This shall apply when the Licensee
+      carries out any or all loading, displaying, running, transmission
+      or storage operation as regards the Software, that it is entitled
+      to carry out hereunder.
+
+
+      5.2 ENTITLEMENT TO MAKE CONTRIBUTIONS
+
+The right to make Contributions includes the right to translate, adapt,
+arrange, or make any or all modifications to the Software, and the right
+to reproduce the resulting software.
+
+The Licensee is authorized to make any or all Contributions to the
+Software provided that it includes an explicit notice that it is the
+author of said Contribution and indicates the date of the creation thereof.
+
+
+      5.3 RIGHT OF DISTRIBUTION
+
+In particular, the right of distribution includes the right to publish,
+transmit and communicate the Software to the general public on any or
+all medium, and by any or all means, and the right to market, either in
+consideration of a fee, or free of charge, one or more copies of the
+Software by any means.
+
+The Licensee is further authorized to distribute copies of the modified
+or unmodified Software to third parties according to the terms and
+conditions set forth hereinafter.
+
+
+        5.3.1 DISTRIBUTION OF SOFTWARE WITHOUT MODIFICATION
+
+The Licensee is authorized to distribute true copies of the Software in
+Source Code or Object Code form, provided that said distribution
+complies with all the provisions of the Agreement and is accompanied by:
+
+   1. a copy of the Agreement,
+
+   2. a notice relating to the limitation of both the Licensor's
+      warranty and liability as set forth in Articles 8 and 9,
+
+and that, in the event that only the Object Code of the Software is
+redistributed, the Licensee allows future Licensees unhindered access to
+the full Source Code of the Software by indicating how to access it, it
+being understood that the additional cost of acquiring the Source Code
+shall not exceed the cost of transferring the data.
+
+
+        5.3.2 DISTRIBUTION OF MODIFIED SOFTWARE
+
+When the Licensee makes a Contribution to the Software, the terms and
+conditions for the distribution of the resulting Modified Software
+become subject to all the provisions of this Agreement.
+
+The Licensee is authorized to distribute the Modified Software, in
+source code or object code form, provided that said distribution
+complies with all the provisions of the Agreement and is accompanied by:
+
+   1. a copy of the Agreement,
+
+   2. a notice relating to the limitation of both the Licensor's
+      warranty and liability as set forth in Articles 8 and 9,
+
+and that, in the event that only the object code of the Modified
+Software is redistributed, the Licensee allows future Licensees
+unhindered access to the full source code of the Modified Software by
+indicating how to access it, it being understood that the additional
+cost of acquiring the source code shall not exceed the cost of
+transferring the data.
+
+
+        5.3.3 DISTRIBUTION OF EXTERNAL MODULES
+
+When the Licensee has developed an External Module, the terms and
+conditions of this Agreement do not apply to said External Module, that
+may be distributed under a separate license agreement.
+
+
+        5.3.4 COMPATIBILITY WITH THE GNU GPL
+
+The Licensee can include a code that is subject to the provisions of one
+of the versions of the GNU GPL in the Modified or unmodified Software,
+and distribute that entire code under the terms of the same version of
+the GNU GPL.
+
+The Licensee can include the Modified or unmodified Software in a code
+that is subject to the provisions of one of the versions of the GNU GPL,
+and distribute that entire code under the terms of the same version of
+the GNU GPL.
+
+
+    Article 6 - INTELLECTUAL PROPERTY
+
+
+      6.1 OVER THE INITIAL SOFTWARE
+
+The Holder owns the economic rights over the Initial Software. Any or
+all use of the Initial Software is subject to compliance with the terms
+and conditions under which the Holder has elected to distribute its work
+and no one shall be entitled to modify the terms and conditions for the
+distribution of said Initial Software.
+
+The Holder undertakes that the Initial Software will remain ruled at
+least by this Agreement, for the duration set forth in Article 4.2.
+
+
+      6.2 OVER THE CONTRIBUTIONS
+
+The Licensee who develops a Contribution is the owner of the
+intellectual property rights over this Contribution as defined by
+applicable law.
+
+
+      6.3 OVER THE EXTERNAL MODULES
+
+The Licensee who develops an External Module is the owner of the
+intellectual property rights over this External Module as defined by
+applicable law and is free to choose the type of agreement that shall
+govern its distribution.
+
+
+      6.4 JOINT PROVISIONS
+
+The Licensee expressly undertakes:
+
+   1. not to remove, or modify, in any manner, the intellectual property
+      notices attached to the Software;
+
+   2. to reproduce said notices, in an identical manner, in the copies
+      of the Software modified or not.
+
+The Licensee undertakes not to directly or indirectly infringe the
+intellectual property rights of the Holder and/or Contributors on the
+Software and to take, where applicable, vis-à-vis its staff, any and all
+measures required to ensure respect of said intellectual property rights
+of the Holder and/or Contributors.
+
+
+    Article 7 - RELATED SERVICES
+
+7.1 Under no circumstances shall the Agreement oblige the Licensor to
+provide technical assistance or maintenance services for the Software.
+
+However, the Licensor is entitled to offer this type of services. The
+terms and conditions of such technical assistance, and/or such
+maintenance, shall be set forth in a separate instrument. Only the
+Licensor offering said maintenance and/or technical assistance services
+shall incur liability therefor.
+
+7.2 Similarly, any Licensor is entitled to offer to its licensees, under
+its sole responsibility, a warranty, that shall only be binding upon
+itself, for the redistribution of the Software and/or the Modified
+Software, under terms and conditions that it is free to decide. Said
+warranty, and the financial terms and conditions of its application,
+shall be subject of a separate instrument executed between the Licensor
+and the Licensee.
+
+
+    Article 8 - LIABILITY
+
+8.1 Subject to the provisions of Article 8.2, the Licensee shall be
+entitled to claim compensation for any direct loss it may have suffered
+from the Software as a result of a fault on the part of the relevant
+Licensor, subject to providing evidence thereof.
+
+8.2 The Licensor's liability is limited to the commitments made under
+this Agreement and shall not be incurred as a result of in particular:
+(i) loss due the Licensee's total or partial failure to fulfill its
+obligations, (ii) direct or consequential loss that is suffered by the
+Licensee due to the use or performance of the Software, and (iii) more
+generally, any consequential loss. In particular the Parties expressly
+agree that any or all pecuniary or business loss (i.e. loss of data,
+loss of profits, operating loss, loss of customers or orders,
+opportunity cost, any disturbance to business activities) or any or all
+legal proceedings instituted against the Licensee by a third party,
+shall constitute consequential loss and shall not provide entitlement to
+any or all compensation from the Licensor.
+
+
+    Article 9 - WARRANTY
+
+9.1 The Licensee acknowledges that the scientific and technical
+state-of-the-art when the Software was distributed did not enable all
+possible uses to be tested and verified, nor for the presence of
+possible defects to be detected. In this respect, the Licensee's
+attention has been drawn to the risks associated with loading, using,
+modifying and/or developing and reproducing the Software which are
+reserved for experienced users.
+
+The Licensee shall be responsible for verifying, by any or all means,
+the suitability of the product for its requirements, its good working
+order, and for ensuring that it shall not cause damage to either persons
+or properties.
+
+9.2 The Licensor hereby represents, in good faith, that it is entitled
+to grant all the rights over the Software (including in particular the
+rights set forth in Article 5).
+
+9.3 The Licensee acknowledges that the Software is supplied "as is" by
+the Licensor without any other express or tacit warranty, other than
+that provided for in Article 9.2 and, in particular, without any warranty 
+as to its commercial value, its secured, safe, innovative or relevant
+nature.
+
+Specifically, the Licensor does not warrant that the Software is free
+from any error, that it will operate without interruption, that it will
+be compatible with the Licensee's own equipment and software
+configuration, nor that it will meet the Licensee's requirements.
+
+9.4 The Licensor does not either expressly or tacitly warrant that the
+Software does not infringe any third party intellectual property right
+relating to a patent, software or any other property right. Therefore,
+the Licensor disclaims any and all liability towards the Licensee
+arising out of any or all proceedings for infringement that may be
+instituted in respect of the use, modification and redistribution of the
+Software. Nevertheless, should such proceedings be instituted against
+the Licensee, the Licensor shall provide it with technical and legal
+assistance for its defense. Such technical and legal assistance shall be
+decided on a case-by-case basis between the relevant Licensor and the
+Licensee pursuant to a memorandum of understanding. The Licensor
+disclaims any and all liability as regards the Licensee's use of the
+name of the Software. No warranty is given as regards the existence of
+prior rights over the name of the Software or as regards the existence
+of a trademark.
+
+
+    Article 10 - TERMINATION
+
+10.1 In the event of a breach by the Licensee of its obligations
+hereunder, the Licensor may automatically terminate this Agreement
+thirty (30) days after notice has been sent to the Licensee and has
+remained ineffective.
+
+10.2 A Licensee whose Agreement is terminated shall no longer be
+authorized to use, modify or distribute the Software. However, any
+licenses that it may have granted prior to termination of the Agreement
+shall remain valid subject to their having been granted in compliance
+with the terms and conditions hereof.
+
+
+    Article 11 - MISCELLANEOUS
+
+
+      11.1 EXCUSABLE EVENTS
+
+Neither Party shall be liable for any or all delay, or failure to
+perform the Agreement, that may be attributable to an event of force
+majeure, an act of God or an outside cause, such as defective
+functioning or interruptions of the electricity or telecommunications
+networks, network paralysis following a virus attack, intervention by
+government authorities, natural disasters, water damage, earthquakes,
+fire, explosions, strikes and labor unrest, war, etc.
+
+11.2 Any failure by either Party, on one or more occasions, to invoke
+one or more of the provisions hereof, shall under no circumstances be
+interpreted as being a waiver by the interested Party of its right to
+invoke said provision(s) subsequently.
+
+11.3 The Agreement cancels and replaces any or all previous agreements,
+whether written or oral, between the Parties and having the same
+purpose, and constitutes the entirety of the agreement between said
+Parties concerning said purpose. No supplement or modification to the
+terms and conditions hereof shall be effective as between the Parties
+unless it is made in writing and signed by their duly authorized
+representatives.
+
+11.4 In the event that one or more of the provisions hereof were to
+conflict with a current or future applicable act or legislative text,
+said act or legislative text shall prevail, and the Parties shall make
+the necessary amendments so as to comply with said act or legislative
+text. All other provisions shall remain effective. Similarly, invalidity
+of a provision of the Agreement, for any reason whatsoever, shall not
+cause the Agreement as a whole to be invalid.
+
+
+      11.5 LANGUAGE
+
+The Agreement is drafted in both French and English and both versions
+are deemed authentic.
+
+
+    Article 12 - NEW VERSIONS OF THE AGREEMENT
+
+12.1 Any person is authorized to duplicate and distribute copies of this
+Agreement.
+
+12.2 So as to ensure coherence, the wording of this Agreement is
+protected and may only be modified by the authors of the License, who
+reserve the right to periodically publish updates or new versions of the
+Agreement, each with a separate number. These subsequent versions may
+address new issues encountered by Free Software.
+
+12.3 Any Software distributed under a given version of the Agreement may
+only be subsequently distributed under the same version of the Agreement
+or a subsequent version, subject to the provisions of Article 5.3.4.
+
+
+    Article 13 - GOVERNING LAW AND JURISDICTION
+
+13.1 The Agreement is governed by French law. The Parties agree to
+endeavor to seek an amicable solution to any disagreements or disputes
+that may arise during the performance of the Agreement.
+
+13.2 Failing an amicable solution within two (2) months as from their
+occurrence, and unless emergency proceedings are necessary, the
+disagreements or disputes shall be referred to the Paris Courts having
+jurisdiction, by the more diligent Party.
+
+
+Version 2.0 dated 2006-09-05.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/Licence_CeCILL_V2-fr.txt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/Licence_CeCILL_V2-fr.txt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/Licence_CeCILL_V2-fr.txt	(revision 3330)
@@ -0,0 +1,512 @@
+
+CONTRAT DE LICENCE DE LOGICIEL LIBRE CeCILL
+
+
+    Avertissement
+
+Ce contrat est une licence de logiciel libre issue d'une concertation
+entre ses auteurs afin que le respect de deux grands principes préside à
+sa rédaction:
+
+    * d'une part, le respect des principes de diffusion des logiciels
+      libres: accès au code source, droits étendus conférés aux
+      utilisateurs,
+    * d'autre part, la désignation d'un droit applicable, le droit
+      français, auquel elle est conforme, tant au regard du droit de la
+      responsabilité civile que du droit de la propriété intellectuelle
+      et de la protection qu'il offre aux auteurs et titulaires des
+      droits patrimoniaux sur un logiciel.
+
+Les auteurs de la licence CeCILL (pour Ce[a] C[nrs] I[nria] L[ogiciel]
+L[ibre]) sont:
+
+Commissariat à l'Energie Atomique - CEA, établissement public de
+recherche à caractère scientifique, technique et industriel, dont le
+siège est situé 25 rue Leblanc, immeuble Le Ponant D, 75015 Paris.
+
+Centre National de la Recherche Scientifique - CNRS, établissement
+public à caractère scientifique et technologique, dont le siège est
+situé 3 rue Michel-Ange, 75794 Paris cedex 16.
+
+Institut National de Recherche en Informatique et en Automatique -
+INRIA, établissement public à caractère scientifique et technologique,
+dont le siège est situé Domaine de Voluceau, Rocquencourt, BP 105, 78153
+Le Chesnay cedex.
+
+
+    Préambule
+
+Ce contrat est une licence de logiciel libre dont l'objectif est de
+conférer aux utilisateurs la liberté de modification et de
+redistribution du logiciel régi par cette licence dans le cadre d'un
+modèle de diffusion en logiciel libre.
+
+L'exercice de ces libertés est assorti de certains devoirs à la charge
+des utilisateurs afin de préserver ce statut au cours des
+redistributions ultérieures.
+
+L'accessibilité au code source et les droits de copie, de modification
+et de redistribution qui en découlent ont pour contrepartie de n'offrir
+aux utilisateurs qu'une garantie limitée et de ne faire peser sur
+l'auteur du logiciel, le titulaire des droits patrimoniaux et les
+concédants successifs qu'une responsabilité restreinte.
+
+A cet égard l'attention de l'utilisateur est attirée sur les risques
+associés au chargement, à l'utilisation, à la modification et/ou au
+développement et à la reproduction du logiciel par l'utilisateur étant
+donné sa spécificité de logiciel libre, qui peut le rendre complexe à
+manipuler et qui le réserve donc à des développeurs ou des
+professionnels avertis possédant des connaissances informatiques
+approfondies. Les utilisateurs sont donc invités à charger et tester
+l'adéquation du logiciel à leurs besoins dans des conditions permettant
+d'assurer la sécurité de leurs systèmes et/ou de leurs données et, plus
+généralement, à l'utiliser et l'exploiter dans les mêmes conditions de
+sécurité. Ce contrat peut être reproduit et diffusé librement, sous
+réserve de le conserver en l'état, sans ajout ni suppression de clauses.
+
+Ce contrat est susceptible de s'appliquer à tout logiciel dont le
+titulaire des droits patrimoniaux décide de soumettre l'exploitation aux
+dispositions qu'il contient.
+
+
+    Article 1 - DEFINITIONS
+
+Dans ce contrat, les termes suivants, lorsqu'ils seront écrits avec une
+lettre capitale, auront la signification suivante:
+
+Contrat: désigne le présent contrat de licence, ses éventuelles versions
+postérieures et annexes.
+
+Logiciel: désigne le logiciel sous sa forme de Code Objet et/ou de Code
+Source et le cas échéant sa documentation, dans leur état au moment de
+l'acceptation du Contrat par le Licencié.
+
+Logiciel Initial: désigne le Logiciel sous sa forme de Code Source et
+éventuellement de Code Objet et le cas échéant sa documentation, dans
+leur état au moment de leur première diffusion sous les termes du Contrat.
+
+Logiciel Modifié: désigne le Logiciel modifié par au moins une
+Contribution.
+
+Code Source: désigne l'ensemble des instructions et des lignes de
+programme du Logiciel et auquel l'accès est nécessaire en vue de
+modifier le Logiciel.
+
+Code Objet: désigne les fichiers binaires issus de la compilation du
+Code Source.
+
+Titulaire: désigne le ou les détenteurs des droits patrimoniaux d'auteur
+sur le Logiciel Initial.
+
+Licencié: désigne le ou les utilisateurs du Logiciel ayant accepté le
+Contrat.
+
+Contributeur: désigne le Licencié auteur d'au moins une Contribution.
+
+Concédant: désigne le Titulaire ou toute personne physique ou morale
+distribuant le Logiciel sous le Contrat.
+
+Contribution: désigne l'ensemble des modifications, corrections,
+traductions, adaptations et/ou nouvelles fonctionnalités intégrées dans
+le Logiciel par tout Contributeur, ainsi que tout Module Interne.
+
+Module: désigne un ensemble de fichiers sources y compris leur
+documentation qui permet de réaliser des fonctionnalités ou services
+supplémentaires à ceux fournis par le Logiciel.
+
+Module Externe: désigne tout Module, non dérivé du Logiciel, tel que ce
+Module et le Logiciel s'exécutent dans des espaces d'adressage
+différents, l'un appelant l'autre au moment de leur exécution.
+
+Module Interne: désigne tout Module lié au Logiciel de telle sorte
+qu'ils s'exécutent dans le même espace d'adressage.
+
+GNU GPL: désigne la GNU General Public License dans sa version 2 ou
+toute version ultérieure, telle que publiée par Free Software Foundation
+Inc.
+
+Parties: désigne collectivement le Licencié et le Concédant.
+
+Ces termes s'entendent au singulier comme au pluriel.
+
+
+    Article 2 - OBJET
+
+Le Contrat a pour objet la concession par le Concédant au Licencié d'une
+licence non exclusive, cessible et mondiale du Logiciel telle que
+définie ci-après à l'article 5 pour toute la durée de protection des droits
+portant sur ce Logiciel.
+
+
+    Article 3 - ACCEPTATION
+
+3.1 L'acceptation par le Licencié des termes du Contrat est réputée
+acquise du fait du premier des faits suivants:
+
+    * (i) le chargement du Logiciel par tout moyen notamment par
+      téléchargement à partir d'un serveur distant ou par chargement à
+      partir d'un support physique;
+    * (ii) le premier exercice par le Licencié de l'un quelconque des
+      droits concédés par le Contrat.
+
+3.2 Un exemplaire du Contrat, contenant notamment un avertissement
+relatif aux spécificités du Logiciel, à la restriction de garantie et à
+la limitation à un usage par des utilisateurs expérimentés a été mis à
+disposition du Licencié préalablement à son acceptation telle que
+définie à l'article 3.1 ci dessus et le Licencié reconnaît en avoir pris
+connaissance.
+
+
+    Article 4 - ENTREE EN VIGUEUR ET DUREE
+
+
+      4.1 ENTREE EN VIGUEUR
+
+Le Contrat entre en vigueur à la date de son acceptation par le Licencié
+telle que définie en 3.1.
+
+
+      4.2 DUREE
+
+Le Contrat produira ses effets pendant toute la durée légale de
+protection des droits patrimoniaux portant sur le Logiciel.
+
+
+    Article 5 - ETENDUE DES DROITS CONCEDES
+
+Le Concédant concède au Licencié, qui accepte, les droits suivants sur
+le Logiciel pour toutes destinations et pour la durée du Contrat dans
+les conditions ci-après détaillées.
+
+Par ailleurs, si le Concédant détient ou venait à détenir un ou
+plusieurs brevets d'invention protégeant tout ou partie des
+fonctionnalités du Logiciel ou de ses composants, il s'engage à ne pas
+opposer les éventuels droits conférés par ces brevets aux Licenciés
+successifs qui utiliseraient, exploiteraient ou modifieraient le
+Logiciel. En cas de cession de ces brevets, le Concédant s'engage à
+faire reprendre les obligations du présent alinéa aux cessionnaires.
+
+
+      5.1 DROIT D'UTILISATION
+
+Le Licencié est autorisé à utiliser le Logiciel, sans restriction quant
+aux domaines d'application, étant ci-après précisé que cela comporte:
+
+   1. la reproduction permanente ou provisoire du Logiciel en tout ou
+      partie par tout moyen et sous toute forme.
+
+   2. le chargement, l'affichage, l'exécution, ou le stockage du
+      Logiciel sur tout support.
+
+   3. la possibilité d'en observer, d'en étudier, ou d'en tester le
+      fonctionnement afin de déterminer les idées et principes qui sont
+      à la base de n'importe quel élément de ce Logiciel; et ceci,
+      lorsque le Licencié effectue toute opération de chargement,
+      d'affichage, d'exécution, de transmission ou de stockage du
+      Logiciel qu'il est en droit d'effectuer en vertu du Contrat.
+
+
+      5.2 DROIT D'APPORTER DES CONTRIBUTIONS
+
+Le droit d'apporter des Contributions comporte le droit de traduire,
+d'adapter, d'arranger ou d'apporter toute autre modification au Logiciel
+et le droit de reproduire le logiciel en résultant.
+
+Le Licencié est autorisé à apporter toute Contribution au Logiciel sous
+réserve de mentionner, de façon explicite, son nom en tant qu'auteur de
+cette Contribution et la date de création de celle-ci.
+
+
+      5.3 DROIT DE DISTRIBUTION
+
+Le droit de distribution comporte notamment le droit de diffuser, de
+transmettre et de communiquer le Logiciel au public sur tout support et
+par tout moyen ainsi que le droit de mettre sur le marché à titre
+onéreux ou gratuit, un ou des exemplaires du Logiciel par tout procédé.
+
+Le Licencié est autorisé à distribuer des copies du Logiciel, modifié ou
+non, à des tiers dans les conditions ci-après détaillées.
+
+
+        5.3.1 DISTRIBUTION DU LOGICIEL SANS MODIFICATION
+
+Le Licencié est autorisé à distribuer des copies conformes du Logiciel,
+sous forme de Code Source ou de Code Objet, à condition que cette
+distribution respecte les dispositions du Contrat dans leur totalité et
+soit accompagnée:
+
+   1. d'un exemplaire du Contrat,
+
+   2. d'un avertissement relatif à la restriction de garantie et de
+      responsabilité du Concédant telle que prévue aux articles 8
+      et 9,
+
+et que, dans le cas où seul le Code Objet du Logiciel est redistribué,
+le Licencié permette aux futurs Licenciés d'accéder facilement au Code
+Source complet du Logiciel en indiquant les modalités d'accès, étant
+entendu que le coût additionnel d'acquisition du Code Source ne devra
+pas excéder le simple coût de transfert des données.
+
+
+        5.3.2 DISTRIBUTION DU LOGICIEL MODIFIE
+
+Lorsque le Licencié apporte une Contribution au Logiciel, les conditions
+de distribution du Logiciel Modifié en résultant sont alors soumises à
+l'intégralité des dispositions du Contrat.
+
+Le Licencié est autorisé à distribuer le Logiciel Modifié, sous forme de
+code source ou de code objet, à condition que cette distribution
+respecte les dispositions du Contrat dans leur totalité et soit
+accompagnée:
+
+   1. d'un exemplaire du Contrat,
+
+   2. d'un avertissement relatif à la restriction de garantie et de
+      responsabilité du Concédant telle que prévue aux articles 8
+      et 9,
+
+et que, dans le cas où seul le code objet du Logiciel Modifié est
+redistribué, le Licencié permette aux futurs Licenciés d'accéder
+facilement au code source complet du Logiciel Modifié en indiquant les
+modalités d'accès, étant entendu que le coût additionnel d'acquisition
+du code source ne devra pas excéder le simple coût de transfert des données.
+
+
+        5.3.3 DISTRIBUTION DES MODULES EXTERNES
+
+Lorsque le Licencié a développé un Module Externe les conditions du
+Contrat ne s'appliquent pas à ce Module Externe, qui peut être distribué
+sous un contrat de licence différent.
+
+
+        5.3.4 COMPATIBILITE AVEC LA LICENCE GNU GPL
+
+Le Licencié peut inclure un code soumis aux dispositions d'une des
+versions de la licence GNU GPL dans le Logiciel modifié ou non et
+distribuer l'ensemble sous les conditions de la même version de la
+licence GNU GPL.
+
+Le Licencié peut inclure le Logiciel modifié ou non dans un code soumis
+aux dispositions d'une des versions de la licence GNU GPL et distribuer
+l'ensemble sous les conditions de la même version de la licence GNU GPL.
+
+
+    Article 6 - PROPRIETE INTELLECTUELLE
+
+
+      6.1 SUR LE LOGICIEL INITIAL
+
+Le Titulaire est détenteur des droits patrimoniaux sur le Logiciel
+Initial. Toute utilisation du Logiciel Initial est soumise au respect
+des conditions dans lesquelles le Titulaire a choisi de diffuser son
+oeuvre et nul autre n'a la faculté de modifier les conditions de
+diffusion de ce Logiciel Initial.
+
+Le Titulaire s'engage à ce que le Logiciel Initial reste au moins régi
+par le Contrat et ce, pour la durée visée à l'article 4.2.
+
+
+      6.2 SUR LES CONTRIBUTIONS
+
+Le Licencié qui a développé une Contribution est titulaire sur celle-ci
+des droits de propriété intellectuelle dans les conditions définies par
+la législation applicable.
+
+
+      6.3 SUR LES MODULES EXTERNES
+
+Le Licencié qui a développé un Module Externe est titulaire sur celui-ci
+des droits de propriété intellectuelle dans les conditions définies par
+la législation applicable et reste libre du choix du contrat régissant
+sa diffusion.
+
+
+      6.4 DISPOSITIONS COMMUNES
+
+Le Licencié s'engage expressément:
+
+   1. à ne pas supprimer ou modifier de quelque manière que ce soit les
+      mentions de propriété intellectuelle apposées sur le Logiciel;
+
+   2. à reproduire à l'identique lesdites mentions de propriété
+      intellectuelle sur les copies du Logiciel modifié ou non.
+
+Le Licencié s'engage à ne pas porter atteinte, directement ou
+indirectement, aux droits de propriété intellectuelle du Titulaire et/ou
+des Contributeurs sur le Logiciel et à prendre, le cas échéant, à
+l'égard de son personnel toutes les mesures nécessaires pour assurer le
+respect des dits droits de propriété intellectuelle du Titulaire et/ou
+des Contributeurs.
+
+
+    Article 7 - SERVICES ASSOCIES
+
+7.1 Le Contrat n'oblige en aucun cas le Concédant à la réalisation de
+prestations d'assistance technique ou de maintenance du Logiciel.
+
+Cependant le Concédant reste libre de proposer ce type de services. Les
+termes et conditions d'une telle assistance technique et/ou d'une telle
+maintenance seront alors déterminés dans un acte séparé. Ces actes de
+maintenance et/ou assistance technique n'engageront que la seule
+responsabilité du Concédant qui les propose.
+
+7.2 De même, tout Concédant est libre de proposer, sous sa seule
+responsabilité, à ses licenciés une garantie, qui n'engagera que lui,
+lors de la redistribution du Logiciel et/ou du Logiciel Modifié et ce,
+dans les conditions qu'il souhaite. Cette garantie et les modalités
+financières de son application feront l'objet d'un acte séparé entre le
+Concédant et le Licencié.
+
+
+    Article 8 - RESPONSABILITE
+
+8.1 Sous réserve des dispositions de l'article 8.2, le Licencié a la 
+faculté, sous réserve de prouver la faute du Concédant concerné, de
+solliciter la réparation du préjudice direct qu'il subirait du fait du
+Logiciel et dont il apportera la preuve.
+
+8.2 La responsabilité du Concédant est limitée aux engagements pris en
+application du Contrat et ne saurait être engagée en raison notamment:
+(i) des dommages dus à l'inexécution, totale ou partielle, de ses
+obligations par le Licencié, (ii) des dommages directs ou indirects
+découlant de l'utilisation ou des performances du Logiciel subis par le
+Licencié et (iii) plus généralement d'un quelconque dommage indirect. En
+particulier, les Parties conviennent expressément que tout préjudice
+financier ou commercial (par exemple perte de données, perte de
+bénéfices, perte d'exploitation, perte de clientèle ou de commandes,
+manque à gagner, trouble commercial quelconque) ou toute action dirigée
+contre le Licencié par un tiers, constitue un dommage indirect et
+n'ouvre pas droit à réparation par le Concédant.
+
+
+    Article 9 - GARANTIE
+
+9.1 Le Licencié reconnaît que l'état actuel des connaissances
+scientifiques et techniques au moment de la mise en circulation du
+Logiciel ne permet pas d'en tester et d'en vérifier toutes les
+utilisations ni de détecter l'existence d'éventuels défauts. L'attention
+du Licencié a été attirée sur ce point sur les risques associés au
+chargement, à l'utilisation, la modification et/ou au développement et à
+la reproduction du Logiciel qui sont réservés à des utilisateurs avertis.
+
+Il relève de la responsabilité du Licencié de contrôler, par tous
+moyens, l'adéquation du produit à ses besoins, son bon fonctionnement et
+de s'assurer qu'il ne causera pas de dommages aux personnes et aux biens.
+
+9.2 Le Concédant déclare de bonne foi être en droit de concéder
+l'ensemble des droits attachés au Logiciel (comprenant notamment les
+droits visés à l'article 5).
+
+9.3 Le Licencié reconnaît que le Logiciel est fourni "en l'état" par le
+Concédant sans autre garantie, expresse ou tacite, que celle prévue à
+l'article 9.2 et notamment sans aucune garantie sur sa valeur commerciale, 
+son caractère sécurisé, innovant ou pertinent.
+
+En particulier, le Concédant ne garantit pas que le Logiciel est exempt
+d'erreur, qu'il fonctionnera sans interruption, qu'il sera compatible
+avec l'équipement du Licencié et sa configuration logicielle ni qu'il
+remplira les besoins du Licencié.
+
+9.4 Le Concédant ne garantit pas, de manière expresse ou tacite, que le
+Logiciel ne porte pas atteinte à un quelconque droit de propriété
+intellectuelle d'un tiers portant sur un brevet, un logiciel ou sur tout
+autre droit de propriété. Ainsi, le Concédant exclut toute garantie au
+profit du Licencié contre les actions en contrefaçon qui pourraient être
+diligentées au titre de l'utilisation, de la modification, et de la
+redistribution du Logiciel. Néanmoins, si de telles actions sont
+exercées contre le Licencié, le Concédant lui apportera son aide
+technique et juridique pour sa défense. Cette aide technique et
+juridique est déterminée au cas par cas entre le Concédant concerné et
+le Licencié dans le cadre d'un protocole d'accord. Le Concédant dégage
+toute responsabilité quant à l'utilisation de la dénomination du
+Logiciel par le Licencié. Aucune garantie n'est apportée quant à
+l'existence de droits antérieurs sur le nom du Logiciel et sur
+l'existence d'une marque.
+
+
+    Article 10 - RESILIATION
+
+10.1 En cas de manquement par le Licencié aux obligations mises à sa
+charge par le Contrat, le Concédant pourra résilier de plein droit le
+Contrat trente (30) jours après notification adressée au Licencié et
+restée sans effet.
+
+10.2 Le Licencié dont le Contrat est résilié n'est plus autorisé à
+utiliser, modifier ou distribuer le Logiciel. Cependant, toutes les
+licences qu'il aura concédées antérieurement à la résiliation du Contrat
+resteront valides sous réserve qu'elles aient été effectuées en
+conformité avec le Contrat.
+
+
+    Article 11 - DISPOSITIONS DIVERSES
+
+
+      11.1 CAUSE EXTERIEURE
+
+Aucune des Parties ne sera responsable d'un retard ou d'une défaillance
+d'exécution du Contrat qui serait dû à un cas de force majeure, un cas
+fortuit ou une cause extérieure, telle que, notamment, le mauvais
+fonctionnement ou les interruptions du réseau électrique ou de
+télécommunication, la paralysie du réseau liée à une attaque
+informatique, l'intervention des autorités gouvernementales, les
+catastrophes naturelles, les dégâts des eaux, les tremblements de terre,
+le feu, les explosions, les grèves et les conflits sociaux, l'état de
+guerre...
+
+11.2 Le fait, par l'une ou l'autre des Parties, d'omettre en une ou
+plusieurs occasions de se prévaloir d'une ou plusieurs dispositions du
+Contrat, ne pourra en aucun cas impliquer renonciation par la Partie
+intéressée à s'en prévaloir ultérieurement.
+
+11.3 Le Contrat annule et remplace toute convention antérieure, écrite
+ou orale, entre les Parties sur le même objet et constitue l'accord
+entier entre les Parties sur cet objet. Aucune addition ou modification
+aux termes du Contrat n'aura d'effet à l'égard des Parties à moins
+d'être faite par écrit et signée par leurs représentants dûment habilités.
+
+11.4 Dans l'hypothèse où une ou plusieurs des dispositions du Contrat
+s'avèrerait contraire à une loi ou à un texte applicable, existants ou
+futurs, cette loi ou ce texte prévaudrait, et les Parties feraient les
+amendements nécessaires pour se conformer à cette loi ou à ce texte.
+Toutes les autres dispositions resteront en vigueur. De même, la
+nullité, pour quelque raison que ce soit, d'une des dispositions du
+Contrat ne saurait entraîner la nullité de l'ensemble du Contrat.
+
+
+      11.5 LANGUE
+
+Le Contrat est rédigé en langue française et en langue anglaise, ces
+deux versions faisant également foi.
+
+
+    Article 12 - NOUVELLES VERSIONS DU CONTRAT
+
+12.1 Toute personne est autorisée à copier et distribuer des copies de
+ce Contrat.
+
+12.2 Afin d'en préserver la cohérence, le texte du Contrat est protégé
+et ne peut être modifié que par les auteurs de la licence, lesquels se
+réservent le droit de publier périodiquement des mises à jour ou de
+nouvelles versions du Contrat, qui posséderont chacune un numéro
+distinct. Ces versions ultérieures seront susceptibles de prendre en
+compte de nouvelles problématiques rencontrées par les logiciels libres.
+
+12.3 Tout Logiciel diffusé sous une version donnée du Contrat ne pourra
+faire l'objet d'une diffusion ultérieure que sous la même version du
+Contrat ou une version postérieure, sous réserve des dispositions de
+l'article 5.3.4.
+
+
+    Article 13 - LOI APPLICABLE ET COMPETENCE TERRITORIALE
+
+13.1 Le Contrat est régi par la loi française. Les Parties conviennent
+de tenter de régler à l'amiable les différends ou litiges qui
+viendraient à se produire par suite ou à l'occasion du Contrat.
+
+13.2 A défaut d'accord amiable dans un délai de deux (2) mois à compter
+de leur survenance et sauf situation relevant d'une procédure d'urgence,
+les différends ou litiges seront portés par la Partie la plus diligente
+devant les Tribunaux compétents de Paris.
+
+
+Version 2.0 du 2006-09-05.
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-AMD64_CICLAD.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-AMD64_CICLAD.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-AMD64_CICLAD.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            /usr/lib64/openmpi/1.2.8-pgf/bin/mpif90
+%LINK                /usr/lib64/openmpi/1.2.8-pgf/bin/mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM 
+%BASE_FFLAGS         -i4 -r8
+%PROD_FFLAGS         -O2 -Munroll -Mnoframe -Mautoinline -Mcache_align
+%DEV_FFLAGS          -Mbounds
+%DEBUG_FFLAGS        -g -traceback -Mbounds -Mchkfpstk -Mchkstk -Ktrap=denorm,divz,ovf,unf
+%MPI_FFLAGS
+%OMP_FFLAGS          -mp
+%BASE_LD             -lblas
+%MPI_LD              -L/usr/lib64/openmpi/1.2.8-pgf/lib
+%OMP_LD              -mp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-AMD64_CICLAD.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-AMD64_CICLAD.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-AMD64_CICLAD.path	(revision 3330)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="-L/opt/netcdf/pgf/lib -lnetcdf"
+NETCDF_INCDIR=-I/opt/netcdf/pgf/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/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ES_MOON.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ES_MOON.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ES_MOON.fcm	(revision 3330)
@@ -0,0 +1,17 @@
+%COMPILER            esmpif90
+%LINK                esmpif90
+%AR                  esar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MATHKEISAN
+%BASE_FFLAGS         -P stack -Wf,-pvctl res=whole,-A dbl4,-ptr byte -EP -R5 -float0 -dw -Wf,"-pvctl loopcnt=999999 fullmsg noassume"
+%PROD_FFLAGS         -C vopt
+%DEV_FFLAGS          -C vsafe -gv -Wf,-init stack=nan,-init heap=nan
+%DEBUG_FFLAGS        -C debug -eC -Wf,-init stack=nan,-init heap=nan
+%MPI_FFLAGS
+%OMP_FFLAGS          -P openmp
+%BASE_LD             -lblas -lfft
+%MPI_LD
+%OMP_LD              -P openmp  -Wl,"-ZL 3G"
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ES_MOON.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ES_MOON.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ES_MOON.path	(revision 3330)
@@ -0,0 +1,11 @@
+NETCDF_LIBDIR="-L/S/home010/c0010/ES/lib -lnetcdf"
+NETCDF_INCDIR=-I/S/home010/c0010/ES/include
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../prism/ES/build/lib/psmile.$couple
+OASIS_LIBDIR=$LMDGCM/../../prism/ES/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
+LIBPREFIX=sx
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-IA64_PLATINE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-IA64_PLATINE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-IA64_PLATINE.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            mpif90
+%LINK                mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MKL
+%BASE_FFLAGS         -i4 -r8 -automatic -align all -I${MKLROOT}/include
+%PROD_FFLAGS         -O3
+%DEV_FFLAGS          -p -g -O3 -traceback
+%DEBUG_FFLAGS        -p -g -traceback
+%MPI_FFLAGS
+%OMP_FFLAGS          -openmp
+%BASE_LD             -p -i4 -r8 -automatic $MKL_LIBS
+%MPI_LD
+%OMP_LD              -openmp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-IA64_PLATINE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-IA64_PLATINE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-IA64_PLATINE.path	(revision 3330)
@@ -0,0 +1,11 @@
+NETCDF_LIBDIR="-L/usr/lib -lnetcdff  -lnetcdf"
+NETCDF_INCDIR=-I/usr/include
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../prism/IA64/build/lib/psmile.$couple
+OASIS_LIBDIR=$LMDGCM/../../prism/IA64/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-PW6_VARGAS.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-PW6_VARGAS.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-PW6_VARGAS.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            xlf_r
+%LINK                mpxlf_r
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -I/usr/local/pub/FFTW/3.2/include
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_FFTW
+%BASE_FFLAGS         -qautodbl=dbl4 -qxlf90=autodealloc -qmaxmem=-1 -qzerosize -I/usr/local/pub/FFTW/3.2/include
+%PROD_FFLAGS         -O3
+%DEV_FFLAGS          -O2 -qfullpath -qinitauto=7FBFFFFF -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap
+%DEBUG_FFLAGS        -g -qfullpath -qnooptimize -qinitauto=7FBFFFFF  -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap -qcheck
+%MPI_FFLAGS          -I/usr/lpp/ppe.poe/include/thread64
+%OMP_FFLAGS          -qsmp=omp
+%BASE_LD             -lessl -L/usr/local/pub/FFTW/3.2/lib -lfftw3
+%MPI_LD              
+%OMP_LD              -qsmp=omp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-PW6_VARGAS.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-PW6_VARGAS.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-PW6_VARGAS.path	(revision 3330)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="${NETCDF_LDFLAGS:--L/usr/local/pub/NetCDF/3.6.2/lib -lnetcdf}"
+NETCDF_INCDIR="${NETCDF_FFLAGS:--I/usr/local/pub/NetCDF/3.6.2/include}"
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../prism/AIX6/build/lib/psmile.$couple
+OASIS_LIBDIR=$LMDGCM/../../prism/AIX6/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.fcm	(revision 3330)
@@ -0,0 +1,16 @@
+%COMPILER            sxmpif90
+%LINK                sxmpif90
+%AR                  sxar
+%MAKE                sxgmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MATHKEISAN
+%BASE_FFLAGS         -P stack -Wf,-pvctl res=whole,-A dbl4,-ptr byte -EP -R5 -float0 -dw -Wf,"-pvctl loopcnt=999999 fullmsg noassume"
+%PROD_FFLAGS         -C vopt
+%DEV_FFLAGS          -C vsafe -gv -Wf,-init stack=nan,-init heap=nan
+%DEBUG_FFLAGS        -C debug -eR -Wf,-init stack=nan,-init heap=nan
+%MPI_FFLAGS
+%OMP_FFLAGS          -P openmp
+%BASE_LD             -lblas -lfft
+%MPI_LD
+%OMP_LD              -P openmp  -Wl,"-ZL 3G"
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.opt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.opt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.opt	(revision 3330)
@@ -0,0 +1,12 @@
+%INLINE -pi auto exp=swtt1_lmdar4,swtt_lmdar4,swde_lmdar4,lwttm_lmdar4,lwtt_lmdar4,swr_lmdar4,swclr_lmdar4 noexp=SW_LMDAR4,SWU_LMDAR4,SW1S_LMDAR4,SW2S_LMDAR4,LW_LMDAR4,LWU_LMDAR4,LWBV_LMDAR4,LWC_LMDAR4,LWB_LMDAR4,LWV_LMDAR4,LWVB_LMDAR4,LWVD_LMDAR4,LWVN_LMDAR4 line=2000
+
+bld::tool::fflags::phys::readaerosol         %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -pi auto
+bld::tool::fflags::phys::aeropt_2bands       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR
+bld::tool::fflags::phys::radiation_AR4       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -Wf,-O,extendreorder %INLINE
+bld::tool::fflags::phys::radiation_AR4_param %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt %INLINE
+bld::tool::fflags::phys::fisrtilp            %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::phys::cv30_routines       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -Wf,-O,extendreorder
+bld::tool::fflags::phys::cvltr               %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::phys::clouds_gno          %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::dyn::vlsplt_p             %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::dyn::groupeun_p           %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_BRODIE.path	(revision 3330)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="-L/SXlocal/pub/netCDF/3.6.1-openmp/lib -lnetcdf"
+NETCDF_INCDIR=-I/SXlocal/pub/netCDF/3.6.1-openmp/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/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            sxmpif90
+%LINK                sxmpif90
+%AR                  sxar
+%MAKE                make
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MATHKEISAN
+%BASE_FFLAGS         -P stack -Wf,-pvctl res=whole,-A dbl4,-ptr byte -EP -R5 -float0 -size_t64 -dw -Wf,"-pvctl loopcnt=999999 fullmsg noassume"
+%PROD_FFLAGS         -C vopt
+%DEV_FFLAGS          -C vsafe -gv -Wf,-init stack=nan,-init heap=nan
+%DEBUG_FFLAGS        -C debug -eC -Wf,-init stack=nan,-init heap=nan
+%MPI_FFLAGS
+%OMP_FFLAGS          -P openmp
+%BASE_LD             -size_t64 -lblas -lfft
+%MPI_LD
+%OMP_LD              -P openmp  -Wl,"-ZL 3G"
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.opt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.opt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.opt	(revision 3330)
@@ -0,0 +1,12 @@
+%INLINE -pi auto exp=swtt1_lmdar4,swtt_lmdar4,swde_lmdar4,lwttm_lmdar4,lwtt_lmdar4,swr_lmdar4,swclr_lmdar4 noexp=SW_LMDAR4,SWU_LMDAR4,SW1S_LMDAR4,SW2S_LMDAR4,LW_LMDAR4,LWU_LMDAR4,LWBV_LMDAR4,LWC_LMDAR4,LWB_LMDAR4,LWV_LMDAR4,LWVB_LMDAR4,LWVD_LMDAR4,LWVN_LMDAR4 line=2000
+
+bld::tool::fflags::phys::readaerosol         %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -pi auto
+bld::tool::fflags::phys::aeropt_2bands       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR
+bld::tool::fflags::phys::radiation_AR4       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -Wf,-O,extendreorder %INLINE
+bld::tool::fflags::phys::radiation_AR4_param %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt %INLINE
+bld::tool::fflags::phys::fisrtilp            %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::phys::cv30_routines       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -Wf,-O,extendreorder
+bld::tool::fflags::phys::cvltr               %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::phys::clouds_gno          %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::dyn::vlsplt_p             %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::dyn::groupeun_p           %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX8_MERCURE.path	(revision 3330)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="-L ${NETCDF_SX_LIBDIR:-/usr/local/SX8/soft/netcdf/lib} -lnetcdf"
+NETCDF_INCDIR=-I${NETCDF_SX_INCLUDEDIR:-/usr/local/SX8/soft/netcdf/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/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            sxmpif90
+%LINK                sxmpif90
+%AR                  sxar
+%MAKE                make
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MATHKEISAN
+%BASE_FFLAGS         -P stack -Wf,-pvctl res=whole,-A dbl4,-ptr byte -EP -R2 -float0 -size_t64 -dw -Wf,"-pvctl loopcnt=999999 fullmsg noassume"
+%PROD_FFLAGS         -C vopt -pi expin=%SRC_PATH/%DYN/cray.F exp=ssum,scopy
+%DEV_FFLAGS          -C vsafe -gv -Wf,-init stack=nan,-init heap=nan
+%DEBUG_FFLAGS        -C debug -eC -Wf,-init stack=nan,-init heap=nan
+%MPI_FFLAGS
+%OMP_FFLAGS          -P openmp
+%BASE_LD             -size_t64 -lblas -lfft
+%MPI_LD
+%OMP_LD              -P openmp  -Wl,"-ZL 3G"
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.opt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.opt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.opt	(revision 3330)
@@ -0,0 +1,12 @@
+%INLINE -pi auto exp=swtt1_lmdar4,swtt_lmdar4,swde_lmdar4,lwttm_lmdar4,lwtt_lmdar4,swr_lmdar4,swclr_lmdar4 noexp=SW_LMDAR4,SWU_LMDAR4,SW1S_LMDAR4,SW2S_LMDAR4,LW_LMDAR4,LWU_LMDAR4,LWBV_LMDAR4,LWC_LMDAR4,LWB_LMDAR4,LWV_LMDAR4,LWVB_LMDAR4,LWVD_LMDAR4,LWVN_LMDAR4 line=2000
+
+bld::tool::fflags::phys::readaerosol         %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -pi auto
+bld::tool::fflags::phys::aeropt_2bands       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR
+bld::tool::fflags::phys::radiation_AR4       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -Wf,-O,extendreorder %INLINE
+bld::tool::fflags::phys::radiation_AR4_param %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt %INLINE
+bld::tool::fflags::phys::fisrtilp            %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::phys::cv30_routines       %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -Wf,-O,extendreorder
+bld::tool::fflags::phys::cvltr               %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::phys::clouds_gno          %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::dyn::vlsplt_p             %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
+bld::tool::fflags::dyn::groupeun_p           %BASE_FFLAGS %PARA_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-SX9_MERCURE.path	(revision 3330)
@@ -0,0 +1,10 @@
+NETCDF_LIBDIR="-L${NETCDF_SX_LIBDIR:-/ccc/applications/sx9/netcdf-3.6.1/lib} -lnetcdf"
+NETCDF_INCDIR=-I${NETCDF_SX_INCLUDEDIR:-/ccc/applications/sx9/netcdf-3.6.1/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/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_ADA.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_ADA.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_ADA.fcm	(revision 3330)
@@ -0,0 +1,16 @@
+%COMPILER            mpiifort
+%LINK                mpiifort
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional -I/smplocal/pub/FFTW/3.3.3_dyn/include/
+%FPP_DEF             NC_DOUBLE FFT_FFTW
+%BASE_FFLAGS         -auto -recursive -mcmodel=large -integer-size 32 -real-size 64 -align all 
+%PROD_FFLAGS         -O2 -ip -fp-model strict -axAVX,SSE4.2
+%DEV_FFLAGS          -p -g -O1 -fpe0 -traceback
+%DEBUG_FFLAGS        -p -g -O0 -fpe-all=0 -traceback -ftrapuv -fp-stack-check -check bounds,format,output_conversion,pointers,uninit -debug
+%MPI_FFLAGS
+%OMP_FFLAGS          -openmp
+%BASE_LD             -L/smplocal/pub/FFTW/3.3.3_dyn/lib -lfftw3 -shared-intel  -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lpthread -Wl,-rpath=/smplocal/pub/NetCDF/4.1.3/mpi/lib:/smplocal/pub/HDF5/1.8.9/par/lib:/smplocal/pub/FFTW/3.3.3_dyn/lib
+%MPI_LD              
+%OMP_LD              -openmp
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_ADA.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_ADA.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_ADA.path	(revision 3330)
@@ -0,0 +1,13 @@
+NETCDF_LIBDIR="${NETCDF_LDFLAGS:--L/smplocal/pub/NetCDF/4.1.3/mpi/lib -lnetcdff -lnetcdf -L/smplocal/pub/HDF5/1.8.9/par/lib -Bstatic -lhdf5hl_fortran -lhdf5_hl -lhdf5_fortran -lhdf5 -Bdynamic -lz}"
+NETCDF_INCDIR="${NETCDF_FFLAGS:--I/smplocal/pub/HDF5/1.8.9/par/include -I/smplocal/pub/NetCDF/4.1.3/mpi/include}"
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+XIOS_INCDIR=$LMDGCM/../XIOS/inc
+XIOS_LIBDIR=$LMDGCM/../XIOS/lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../oasis3-mct/BLD/build/lib/psmile.MPI1
+OASIS_LIBDIR=$LMDGCM/../../oasis3-mct/BLD/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/inc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_CURIE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_CURIE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_CURIE.fcm	(revision 3330)
@@ -0,0 +1,16 @@
+%COMPILER            mpif90
+%LINK                mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE FFT_MKL
+#%BASE_FFLAGS        -recursive -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 -fp-model strict
+%PROD_FFLAGS         -O2
+%DEV_FFLAGS          -p -g -O2 -traceback -fp-stack-check
+%DEBUG_FFLAGS        -p -g -traceback -fp-stack-check -ftrapuv
+%MPI_FFLAGS
+%OMP_FFLAGS          -openmp
+%BASE_LD             -i4 -r8 -auto $MKL_LIBS
+%MPI_LD
+%OMP_LD              -openmp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_CURIE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_CURIE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_CURIE.path	(revision 3330)
@@ -0,0 +1,12 @@
+NETCDF_LIBDIR="-L$NETCDF_LIB_DIR -lnetcdff -lnetcdf"
+NETCDF_INCDIR=-I$NETCDF_INC_DIR
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../oasis3-mct/BLD/build/lib/psmile.MPI1
+OASIS_LIBDIR=$LMDGCM/../../oasis3-mct/BLD/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/inc
+XIOS_INCDIR=$LMDGCM/../XIOS/inc
+XIOS_LIBDIR=$LMDGCM/../XIOS/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_OCCIGEN.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_OCCIGEN.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_OCCIGEN.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            mpif90
+%LINK                mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE FFT_MKL
+%BASE_FFLAGS         -i4 -r8 -auto -recursive -mcmodel=medium -align all -fp-model strict -xCORE-AVX2
+%PROD_FFLAGS         -O2 -ip
+%DEV_FFLAGS          -p -g -O1 -fpe0 -traceback
+%DEBUG_FFLAGS        -p -g -O0 -fpe-all=0 -ftz -ftrapuv -fp-stack-check -check bounds,format,output_conversion,pointers,uninit -debug -traceback
+%MPI_FFLAGS
+%OMP_FFLAGS          -openmp -openmp-threadprivate compat
+%BASE_LD             -i4 -r8 -auto -shared-intel -Wl,-rpath=/opt/software/libraries/netcdf/bullxmpi/netcdf-4.3.3-rc2/lib:/opt/software/libraries/netcdf/bullxmpi/netcdf-fortran-4.4.1-4.3.3-rc2/lib:/opt/software/libraries/hdf5/hdf5_with_bullxmpi/1.8.14/lib $MKL_LIBS
+%MPI_LD
+%OMP_LD              -openmp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_OCCIGEN.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_OCCIGEN.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_OCCIGEN.path	(revision 3330)
@@ -0,0 +1,13 @@
+NETCDF_LIBDIR="-L/opt/software/libraries/netcdf/bullxmpi/netcdf-fortran-4.4.1-4.3.3-rc2/lib -lnetcdff -L/opt/software/libraries/netcdf/bullxmpi/netcdf-4.3.3-rc2/lib -lnetcdf -L/opt/software/libraries/hdf5/hdf5_with_bullxmpi/1.8.14/lib -lhdf5_hl -lhdf5 -lz"
+NETCDF_INCDIR="-I/opt/software/libraries/hdf5/hdf5_with_bullxmpi/1.8.14/include -I/opt/software/libraries/netcdf/bullxmpi/netcdf-fortran-4.4.1-4.3.3-rc2/include"
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+XIOS_INCDIR=$LMDGCM/../XIOS/inc
+XIOS_LIBDIR=$LMDGCM/../XIOS/lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../oasis3-mct/BLD/build/lib/psmile.MPI1
+OASIS_LIBDIR=$LMDGCM/../../oasis3-mct/BLD/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/inc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_TITANE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_TITANE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_TITANE.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            mpif90
+%LINK                mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM FFT_MKL
+%BASE_FFLAGS         -i4 -r8 -automatic -align all -I${MKLROOT}/include
+%PROD_FFLAGS         -O3
+%DEV_FFLAGS          -p -g -O3 -traceback -fp-stack-check -ftrapuv
+%DEBUG_FFLAGS        -p -g -traceback
+%MPI_FFLAGS
+%OMP_FFLAGS          -openmp
+%BASE_LD             -p -i4 -r8 -automatic $MKL_LIBS
+%MPI_LD
+%OMP_LD              -openmp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_TITANE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_TITANE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-X64_TITANE.path	(revision 3330)
@@ -0,0 +1,11 @@
+NETCDF_LIBDIR="-L$NETCDF_LIB_DIR -lnetcdff -lnetcdf"
+NETCDF_INCDIR=-I$NETCDF_INC_DIR
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=$LMDGCM/../../prism/X64/build/lib/psmile.$couple
+OASIS_LIBDIR=$LMDGCM/../../prism/X64/lib
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-g95.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-g95.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-g95.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            g95
+%LINK                g95
+%AR                  ar
+%MAKE                make
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             PLOUF
+%BASE_FFLAGS         -c
+%PROD_FFLAGS         -O3
+%DEV_FFLAGS          -O
+%DEBUG_FFLAGS        -fbounds-check -freal=nan -ftrace=full -g -O0 -Wall
+%MPI_FFLAGS
+%OMP_FFLAGS          
+%BASE_LD             
+%MPI_LD
+%OMP_LD              
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-g95.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-g95.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-g95.path	(revision 3330)
@@ -0,0 +1,6 @@
+NETCDF_LIBDIR=...
+NETCDF_INCDIR=...
+IOIPSL_INCDIR=...
+IOIPSL_LIBDIR=...
+ORCH_INCDIR=...
+ORCH_LIBDIR=...
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            gfortran
+%LINK                gfortran
+%AR                  ar
+%MAKE                make
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE 
+%BASE_FFLAGS         -c -fdefault-real-8 -frecursive
+%PROD_FFLAGS         -O3
+%DEV_FFLAGS          -O
+%DEBUG_FFLAGS        -ffpe-trap=invalid,zero,overflow -fbounds-check -g3 -O0 -fstack-protector-all
+%MPI_FFLAGS
+%OMP_FFLAGS          
+%BASE_LD      
+%MPI_LD
+%OMP_LD              
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran.path	(revision 3330)
@@ -0,0 +1,6 @@
+NETCDF_LIBDIR="-L/usr/local/lib -lnetcdf"
+NETCDF_INCDIR=-I/usr/local/include
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran_CICLAD.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran_CICLAD.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran_CICLAD.fcm	(revision 3330)
@@ -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 -frecursive
+%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/IPSLCM5A2.1_ISO/arch/arch-gfortran_CICLAD.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran_CICLAD.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-gfortran_CICLAD.path	(revision 3330)
@@ -0,0 +1,12 @@
+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/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
+XIOS_INCDIR=$LMDGCM/../XIOS/inc
+XIOS_LIBDIR=$LMDGCM/../XIOS/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_CICLAD.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_CICLAD.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_CICLAD.fcm	(revision 3330)
@@ -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 bounds,format,output_conversion,pointers,uninit -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/IPSLCM5A2.1_ISO/arch/arch-ifort_CICLAD.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_CICLAD.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_CICLAD.path	(revision 3330)
@@ -0,0 +1,12 @@
+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/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/lib
+XIOS_INCDIR=$LMDGCM/../XIOS/inc
+XIOS_LIBDIR=$LMDGCM/../XIOS/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_LSCE.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_LSCE.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_LSCE.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            mpif90
+%LINK                mpif90
+%AR                  ar
+%MAKE                gmake
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             NC_DOUBLE 
+%BASE_FFLAGS         -i4 -r8 -auto -align all -fp-model precise
+%PROD_FFLAGS         -O2 
+%DEV_FFLAGS          -p -g -O2 -traceback -fp-stack-check 
+%DEBUG_FFLAGS        -p -g -traceback -fp-stack-check -ftrapuv -check bounds
+%MPI_FFLAGS
+%OMP_FFLAGS          -openmp
+%BASE_LD             -i4 -r8 
+%MPI_LD
+%OMP_LD              -openmp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_LSCE.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_LSCE.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-ifort_LSCE.path	(revision 3330)
@@ -0,0 +1,12 @@
+NETCDF_LIBDIR="-L/usr/local/install/netcdf-4.3.2p/lib -lnetcdff -lnetcdf -L/usr/local/install/hdf5-1.8.9p/lib -lhdf5_hl -lhdf5 -lhdf5 -lz -lcurl"
+NETCDF_INCDIR=-I/usr/local/install/netcdf-4.3.2p/include
+IOIPSL_INCDIR=$LMDGCM/../../lib
+IOIPSL_LIBDIR=$LMDGCM/../../lib
+ORCH_INCDIR=$LMDGCM/../../lib
+ORCH_LIBDIR=$LMDGCM/../../lib
+OASIS_INCDIR=
+OASIS_LIBDIR=
+INCA_LIBDIR=$LMDGCM/../INCA/config/lib
+INCA_INCDIR=$LMDGCM/../INCA/config/inc
+XIOS_INCDIR=$LMDGCM/../XIOS/inc
+XIOS_LIBDIR=$LMDGCM/../XIOS/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-linux-32bit.fcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-linux-32bit.fcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-linux-32bit.fcm	(revision 3330)
@@ -0,0 +1,15 @@
+%COMPILER            pgf95
+%LINK                pgf95
+%AR                  ar
+%MAKE                make
+%FPP_FLAGS           -P -traditional
+%FPP_DEF             
+%BASE_FFLAGS         
+%PROD_FFLAGS         -fast
+%DEV_FFLAGS          -g -O1
+%DEBUG_FFLAGS        -g -O0 -Kieee -Ktrap=fp -Mbounds
+%MPI_FFLAGS
+%OMP_FFLAGS          
+%BASE_LD             
+%MPI_LD
+%OMP_LD              
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-linux-32bit.path
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-linux-32bit.path	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/arch/arch-linux-32bit.path	(revision 3330)
@@ -0,0 +1,6 @@
+NETCDF_LIBDIR="-L/usr/local/netcdf-pgi/lib -lnetcdf"
+NETCDF_INCDIR=-I/usr/local/netcdf-pgi/include
+IOIPSL_INCDIR=...
+IOIPSL_LIBDIR=...
+ORCH_INCDIR=/u/fairhead/modipsl_ioipsl_3/lib
+ORCH_LIBDIR=/u/fairhead/modipsl_ioipsl_3/lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/beta_crf.data
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/beta_crf.data	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/beta_crf.data	(revision 3330)
@@ -0,0 +1,8 @@
+70000. !pfree
+1.     !beta_pbl
+1.     !beta_free
+-180.  !lon1_beta
+180.   !lon2_beta
+90.    !lat1_beta
+-90    !lat2_beta
+.FALSE. !mskocean_beta
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/bld.cfg
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/bld.cfg	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/bld.cfg	(revision 3330)
@@ -0,0 +1,108 @@
+# ----------------------- FCM extract configuration file -----------------------
+cfg::type                           bld
+cfg::version                        1.0
+
+
+# ------------------------------------------------------------------------------
+# Build information
+# ------------------------------------------------------------------------------
+
+#Default value of FPP fortran preprocessor
+%FPP cpp
+
+inc arch.fcm
+inc config.fcm
+
+%CONFIG_NAME       %{ARCH}%SUFF_NAME
+%BASE_CONFIG_PATH  %LIBO/%CONFIG_NAME
+%CONFIG_PATH       %BASE_CONFIG_PATH/.config
+%SRC_PATH          %LIBF
+
+%FFLAGS            %BASE_FFLAGS %COMPIL_FFLAGS %PARA_FFLAGS
+%LD_FLAGS          %BASE_LD %PARA_LD
+
+src::dyn     %SRC_PATH/%DYN
+src::phys    %SRC_PATH/%PHYS
+src::dyn_phys %DYN_PHYS
+src::dyn_phys_sub %DYN_PHYS_SUB
+src::sisvat  %SISVAT
+src::rrtm    %RRTM
+src::grid    %SRC_PATH/grid
+src::filtrez %FILTRE
+src::misc    %SRC_PATH/misc
+src::dyn3d_common   %DYN_COMMON 
+src::phy_common %PHY_COMMON
+src::cosp    %COSP
+src::ext_src %EXT_SRC
+
+bld::lib            lmdz
+
+bld::outfile_ext::exe    %SUFF_NAME
+bld::target              liblmdz.a %EXEC%SUFF_NAME
+bld::exe_dep             
+
+
+dir::root            %CONFIG_PATH
+#dir::lib             %BASE_CONFIG_PATH
+dir::bin             %ROOT_PATH/bin
+
+#search_src           1
+
+bld::tool::fpp       %FPP
+bld::tool::fc        %COMPILER 
+bld::tool::ld        %LINK
+bld::tool::ar        %AR
+bld::tool::make      %MAKE
+bld::tool::fflags    %FFLAGS %INCDIR 
+bld::tool::ldflags   %LD_FLAGS %LIB  
+
+bld::tool::cppflags  %FPP_FLAGS %INCDIR
+bld::tool::fppflags  %FPP_FLAGS %INCDIR
+bld::tool::fppkeys   %CPP_KEY %FPP_DEF
+
+
+# Example of how to set specific compiling options for a specific file
+# -> this can be including in the arch.opt file
+#bld::tool::fflags::phys::readaerosol         %BASE_FFLAGS %PROD_FFLAGS  %INCDIR -C hopt -pi auto
+
+
+inc arch.opt
+
+# Pre-process code before analysing dependencies
+bld::pp              1
+
+
+# Ignore the following dependencies
+bld::excl_dep        inc::netcdf.inc
+bld::excl_dep        use::netcdf
+bld::excl_dep        use::typesizes
+bld::excl_dep        h::netcdf.inc
+bld::excl_dep        h::mpif.h
+bld::excl_dep        inc::mpif.h
+bld::excl_dep        use::ioipsl
+bld::excl_dep        use::intersurf
+bld::excl_dep        use::mod_prism_proto
+bld::excl_dep        use::mod_prism_def_partition_proto
+bld::excl_dep        use::mod_prism_get_proto
+bld::excl_dep        use::mod_prism_put_proto
+bld::excl_dep        use::mod_prism
+bld::excl_dep        use::xios
+bld::excl_dep        use::iaxis
+bld::excl_dep        use::iaxis_attr
+bld::excl_dep        use::icontext_attr
+bld::excl_dep        use::idate
+bld::excl_dep        use::idomain_attr
+bld::excl_dep        use::ifield_attr
+bld::excl_dep        use::ifile_attr
+bld::excl_dep        use::ixml_tree
+
+# Don't generate interface files
+bld::tool::geninterface none
+
+# Allow ".inc" as an extension for CPP include files
+bld::infile_ext::inc  CPP::INCLUDE
+
+# extension for module output
+bld::outfile_ext::mod .mod
+bld::tool::SHELL   /bin/bash
+bld::tool::SHELL   /bin/ksh
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/build_gcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/build_gcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/build_gcm	(revision 3330)
@@ -0,0 +1,50 @@
+#!/bin/bash
+# Usage:
+# ./build_gcm [path]
+# where 'path' is an optional argument to this script specifying
+# the full path to where the 'fcm' command is to be found
+
+if test -f '.lock' 
+  then
+    echo 'ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs'
+    echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
+    echo "Si vous etes sur que vous ne compilez pas le modele par ailleurs,"
+    echo "vous pouvez continuer en repondant oui."
+    echo "Voulez-vous vraiment continuer?"
+    echo ""
+    echo "WARNING: you are probably already compiling the model somewhere else."
+    echo "Wait until the first compilation is finished before launching this one."
+    echo "If you are sure that you are not compiling elsewhere, just answer "
+    echo "yes (or 'oui') to the question below to proceed."
+    echo "Do you wish to continue?"
+    read ouinon
+    if [[ $ouinon == "oui" || $ouinon == "yes" ]] 
+	then
+	echo OK 
+    else
+	exit
+    fi
+else
+    echo "compiling..." > '.lock'
+fi
+
+job=1
+dirname="" #path to where the fcm command will be found
+if (( $# >= 1 )) ; then
+  dirname=$1
+  # check that "dirname" exists and is a directory
+  if [[ ! -d $dirname ]] ; then
+    echo "$0 error : $dirname is not a directory"
+    exit
+  fi
+  # add a trailing "/" to $dirname
+  dirname=${dirname}"/"
+  shift;
+fi
+
+# run "fcm build" command
+${dirname}fcm build $*
+
+# cleanup
+\rm -f '.lock' 
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/create_make_gcm
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/create_make_gcm	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/create_make_gcm	(revision 3330)
@@ -0,0 +1,253 @@
+#!/bin/sh
+#
+# $Id$
+#
+#set -xv
+
+# arguments given to create_make_gcm are the directories to scan
+src_dirs=$*
+
+machine=`hostname`
+os=`uname`
+gcm=`pwd`
+logfile=$gcm/create_make_gcm.log
+rm -f $logfile ; touch -f $logfile
+libf=$gcm/libf
+libo=$gcm/libo
+CRAY=0
+if [ "$machine" = "atlas" -o "$machine" = "etoile" -o "$machine" = "axis" ] ; then
+  CRAY=1
+fi
+XNEC=0
+if [ "$machine" = "rhodes" ] ; then
+  XNEC=1
+fi
+X6NEC=0
+if [ "$machine" = "mercure" ] ; then
+  X6NEC=1
+fi
+X8BRODIE=0
+if [ "$machine" = "brodie" ] ; then
+  X8BRODIE=1
+fi
+VPP=0
+if [ "$machine" = "nymphea0" ] ; then
+  VPP=1
+fi
+#
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo "# Definitions de Macros pour Make"
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo
+echo "# Repertoires :"
+echo
+echo "GCM     = "$gcm
+echo 'LIBF    = $(GCM)/libf'
+if [ "$CRAY" = '0' ] ; then
+   echo 'LIBO    = $(LIBOGCM)/$(MACHINE)'
+else
+   echo 'LIBO    = $(GCM)/libo'
+fi
+echo "LOCAL_DIR=`echo $localdir`"
+echo 'MISC    = $(LIBF)/misc'
+echo "FILTRE   = filtre"
+echo "PHYS  = "
+echo 'LIBPHY = $(LIBO)/libphy$(PHYS).a'
+echo 'LIBPHY_COMMON= $(LIBO)/libphy_common.a'
+echo 'LIBDYN_PHY = $(LIBO)/libdynlmdz_phy$(PHYS).a'
+echo 'DIRMAIN=dyn$(DIM)d$(FLAG_PARA)'
+echo 'RM=rm'
+echo
+echo "OPLINK = "
+echo
+echo '# Les differentes librairies pour l"edition des liens:'
+echo 'L_DYN      = -ldyn$(DIM)d$(FLAG_PARA) -ldyn3d_common'
+echo 'L_FILTRE   = -l$(FILTRE)'
+echo 'L_DYN_PHY = -ldynlmdz_phy$(PHYS) '
+echo 'L_PHY = -lphy$(PHYS) -lphy_common'
+echo 'L_MISC    = -lmisc'
+echo 'L_ADJNT    ='
+echo 'L_COSP     = -lcosp'
+
+echo
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo "# Option de compilation FORTRAN"
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo
+   echo 'COMPILE = $(F77) $(OPTIM) $(INCLUDE) -c'
+   echo 'COMPILE90 = $(F90) $(OPTIM90) $(INCLUDE) -c'
+   echo 'COMPTRU90 = $(F90) $(OPTIMTRU90) $(INCLUDE) -c'
+   echo "LINK    = $LINK"
+   echo "AR      = $AR"
+echo
+echo
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo "# Creation des differents executables"
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo
+echo "# Executables:"
+echo "# ------------"
+echo
+echo "PROG = code"
+echo 'DYN  = dyn$(DIM)d'
+echo
+#echo 'main : chimie $(DYN) misc phys $(OPTION_DEP) '
+echo 'main : $(DYN) misc phys phy_common dyn_phy $(OPTION_DEP) '
+echo '	cd $(LIBO) ; $(RANLIB) lib*.a ; cd $(GCM) ;\'
+echo '	cd $(LOCAL_DIR); \'
+echo '	$(COMPILE90) $(LIBF)/$(DIRMAIN)/$(SOURCE) -o $(PROG).o ; \'
+echo '	$(LINK) $(PROG).o -L$(LIBO) $(L_DYN) $(L_DYN_PHY) $(L_ADJNT) $(L_COSP) $(L_PHY) $(L_DYN) $(L_DYN3D_COMMON) $(L_MISC) $(L_DYN3D_COMMON) $(L_PHY) $(L_DYN_PHY) $(L_DYN) $(L_FILTRE) $(OPLINK) $(OPTION_LINK) -o $(LOCAL_DIR)/$(PROG).e ; $(RM) $(PROG).o '
+echo
+echo 'phys : $(LIBPHY)'
+echo 'phy_common : $(LIBPHY_COMMON)'
+echo 'dyn3d : $(LIBO)/libdyn$(DIM)d$(FLAG_PARA).a $(LIBO)/lib$(FILTRE).a $(LIBO)/libdyn3d_common.a'
+echo 'dyn2d : $(LIBO)/libdyn2d.a'
+echo 'dyn1d :'
+echo
+echo 'dyn_phy: $(LIBDYN_PHYS)'
+echo
+#echo 'chimie : $(LIBO)/libchimie.a'
+echo
+echo 'misc : $(LIBO)/libmisc.a'
+echo
+echo 'adjnt : $(LIBO)/libadjnt.a'
+echo
+echo 'cosp : $(LIBO)/libcosp.a'
+echo
+echo '$(FILTRE)3d : $(LIBO)/lib$(FILTRE).a'
+echo
+echo '$(FILTRE)2d :'
+echo
+echo '$(FILTRE)1d :'
+echo
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo "# Contenu des differentes bibliotheques"
+echo "#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%"
+echo
+echo
+cd $libf >/dev/null 2>&1
+
+for diri in $src_dirs ; do
+
+   if [ -d $diri ] ; then
+   if [ "`ls $diri/*.F`" != "" ] || [ "`ls $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/*.[fF]` ; do
+         # Check if file is a routine or main program
+         # i.e: look for the "program" keword preceeded by leading spaces
+         test=` (  head $fili | grep -i '^ *program' ) `
+         # if it is not a main program, add it to the list
+         if [ "$test" = "" ] ; then listlib=$listlib" "$fili ; fi
+      done
+      for fili in `ls $diri/*.[fF]90` ; do
+         # Check if file is a routine or main program
+         # i.e. look for "program" keyword (with possibly some leading spaces)
+         test=` (  head $fili | grep -i '^ \{0,\}program' ) `
+         # if it is not a main program, add it to the list
+         if [ "$test" = "" ] ; then listlib=$listlib" "$fili ; fi 
+      done
+      echo
+      echo $listlib >> $logfile
+      echo
+      # topdiri contains main dir name (without trailing "/blabla" for subdirs)
+      topdiri=${diri%/*}
+      echo "#=================================================================="
+      echo "# Contenu de la bibliotheque correspondant au Directory "$diri
+      echo "#=================================================================="
+      echo
+      for trufile in $listlib ; do
+         fili=`echo $trufile | awk -F/ ' { print $NF } ' | cut -d. -f1`
+         echo '$(LIBO)/lib'$topdiri".a : " '$(LIBO)/lib'$topdiri".a("$fili".o)"
+         echo
+      done
+      echo '.PRECIOUS	: $(LIBO)/lib'$topdiri'.a'
+      echo
+      echo
+      echo "# Compilation of elements in $diri of library lib"$topdiri".a"
+      echo
+      for trufile in $listlib ; do
+         fili=`echo $trufile | awk -F/ ' { print $NF } ' | cut -d. -f1`
+         F90=0 ; egrep -i '^ *use ' $trufile > /dev/null 2>&1 && F90=1
+                 egrep -i '^ *module ' $trufile > /dev/null 2>&1 && F90=1
+                 egrep -i '#include*.inc ' $trufile > /dev/null 2>&1 && F90=1
+         str1='$(LIBO)/lib'$topdiri'.a('$fili'.o) : $(LIBF)/'$trufile
+         [ "$fili" = "$diri/chem.subs" ] && str1=$str1' $(LIBF)/'$diri/chem.mods.F
+
+##########################################################################
+# TRAITEMENT DES DEPENDANCES
+# Differents cas de dependance correspondant a des include ou des
+# use module.
+# soit dans le repertoire local soit dans un autre.
+# Pour dyn3d, il faudrait remplacer la chaine de caractere par $DYN
+# ou quelque chose du genre.
+##########################################################################
+
+         for stri in ` ( sed -e '/^[cC\!]/d' $trufile | sed -e "/\#include /s/\#include /XXnclude /" -e "/include /s/include /XXnclude /" -e "/INCLUDE /s/INCLUDE /XXnclude /" | sed -n "/XXnclude /s/XXnclude//p" | sed 's/\"//g' | sort | uniq ; sed -e '/^[cC\!]/d' $trufile | egrep -i '^ *use ' | sed -e 's/,/ /' | awk ' { print $2 } ' | sort | uniq ) ` ; do
+            echo $trufile $fili $stri >> $logfile
+            strj=`echo $stri | tr [A-Z] [a-z]`
+            str2=""
+            for dirinc in $src_dirs ; do
+# Recherche dans l'ordre hierarchique inverse car seule la derniere
+# ligne est conservee
+#               if [ $dirinc = phydev ] ; then
+#                   dirstr='$(PHYS)'
+#                   libstr='phy$(PHYS)'
+#               else
+                   dirstr=$dirinc
+                   libstr=$dirinc
+#               fi
+               echo dirinc $dirinc >> $logfile
+               if [ -f $dirinc/$stri ] ; then
+                  str2='$(LIBF)/'$dirstr/$stri
+               elif [ -f $dirinc/$strj ] ; then
+                  str2='$(LIBF)/'$dirstr/$stri
+               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.[fF]90 ]  || [ -f $dirinc/$stri.[fF] ]  ; then 
+                  strlib=`echo $libstr | awk -F/ ' { print $1 } '`
+                  str2='$(LIBO)/lib'$strlib'.a('$stri'.o)'
+               fi
+               echo stri $stri  >> $logfile
+               echo str2 $str2  >> $logfile
+            done
+               echo dernier str2 $str2  >> $logfile
+            if [ "$str2" = "" ] ; then
+               echo Warn: Include $diri $trufile $fili $stri pas trouve >> $logfile
+            elif [ "$str2" = "$str1" ] ; then
+               echo Warn: Include $diri $trufile $fili $stri $str1 trouve 2x >> $logfile
+            else
+               echo $str1 \\
+               str1=$str2
+            fi
+         done # Fin de la boucle sur les dependances et ecriture de la derniere
+         echo $str1
+         # Compile in LIBO directory; and before compiling, remove
+         # object from library
+         echo '	cd $(LIBO); \'
+         echo '	$(AR) d $(LIBO)/lib'$topdiri'.a '$fili'.o ; \'
+	 if [ "$F90" -eq '0' ] ; then
+         ## Fixed Form Fortran 77
+	   echo '	$(COMPILE) $(LIBF)/'$trufile' ; \'
+	 else
+         ## Fortran 90
+           if [ `echo $trufile | cut -d. -f2` = F90 ] ; then
+	      ## Free Form
+              echo '	$(COMPTRU90) $(LIBF)/'$trufile' ; \'
+           else
+	      echo '	$(COMPILE90) $(LIBF)/'$trufile' ; \'
+           fi
+	 fi
+         # Put generated object in library
+         echo '	$(AR) r $(LIBO)/lib'$topdiri'.a '$fili'.o ; $(RM) '$fili'.o ; \'
+	 echo
+      done
+#	 
+      echo
+   cd $libf
+   fi
+   fi
+done
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/abort_gcm.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/abort_gcm.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/abort_gcm.F	(revision 3330)
@@ -0,0 +1,59 @@
+!
+! $Id$
+!
+c
+c
+      SUBROUTINE abort_gcm(modname, message, ierr)
+     
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin_dump
+      USE ioipsl_getincom
+#endif
+
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+      USE wxios
+#endif
+
+#include "iniprint.h"
+ 
+C
+C Stops the simulation cleanly, closing files and printing various
+C comments
+C
+C  Input: modname = name of calling program
+C         message = stuff to print
+C         ierr    = severity of situation ( = 0 normal )
+
+      character(len=*), intent(in):: modname
+      integer, intent(in):: ierr
+      character(len=*), intent(in):: message
+
+      write(lunout,*) 'in abort_gcm'
+
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#endif
+
+#ifdef CPP_IOIPSL
+      call histclo
+      call restclo
+#endif
+      call getin_dump
+c     call histclo(2)
+c     call histclo(3)
+c     call histclo(4)
+c     call histclo(5)
+      write(lunout,*) 'Stopping in ', modname
+      write(lunout,*) 'Reason = ',message
+      if (ierr .eq. 0) then
+        write(lunout,*) 'Everything is cool'
+        stop
+      else
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+        stop 1
+      endif
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/addfi.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/addfi.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/addfi.F	(revision 3330)
@@ -0,0 +1,184 @@
+!
+! $Id$
+!
+      SUBROUTINE addfi(pdt, leapf, forward,
+     S          pucov, pvcov, pteta, pq   , pps ,
+     S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
+
+      USE infotrac, ONLY : nqtot
+      USE control_mod, ONLY : planet_type
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c    Addition of the physical tendencies
+c
+c    Interface :
+c    -----------
+c
+c      Input :
+c      -------
+c      pdt                    time step of integration
+c      leapf                  logical
+c      forward                logical
+c      pucov(ip1jmp1,llm)     first component of the covariant velocity
+c      pvcov(ip1ip1jm,llm)    second component of the covariant velocity
+c      pteta(ip1jmp1,llm)     potential temperature
+c      pts(ip1jmp1,llm)       surface temperature
+c      pdufi(ip1jmp1,llm)     |
+c      pdvfi(ip1jm,llm)       |   respective
+c      pdhfi(ip1jmp1)         |      tendencies
+c      pdtsfi(ip1jmp1)        |
+c
+c      Output :
+c      --------
+c      pucov
+c      pvcov
+c      ph
+c      pts
+c
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c
+c    0.  Declarations :
+c    ------------------
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c    Arguments :
+c    -----------
+c
+      REAL,INTENT(IN) :: pdt ! time step for the integration (s)
+c
+      REAL,INTENT(INOUT) :: pvcov(ip1jm,llm) ! covariant meridional wind
+      REAL,INTENT(INOUT) :: pucov(ip1jmp1,llm) ! covariant zonal wind
+      REAL,INTENT(INOUT) :: pteta(ip1jmp1,llm) ! potential temperature
+      REAL,INTENT(INOUT) :: pq(ip1jmp1,llm,nqtot) ! tracers
+      REAL,INTENT(INOUT) :: pps(ip1jmp1) ! surface pressure (Pa)
+c respective tendencies (.../s) to add
+      REAL,INTENT(IN) :: pdvfi(ip1jm,llm)
+      REAL,INTENT(IN) :: pdufi(ip1jmp1,llm)
+      REAL,INTENT(IN) :: pdqfi(ip1jmp1,llm,nqtot)
+      REAL,INTENT(IN) :: pdhfi(ip1jmp1,llm)
+      REAL,INTENT(IN) :: pdpfi(ip1jmp1)
+c
+      LOGICAL,INTENT(IN) :: leapf,forward ! not used
+c
+c
+c    Local variables :
+c    -----------------
+c
+      REAL xpn(iim),xps(iim),tpn,tps
+      INTEGER j,k,iq,ij
+      REAL,PARAMETER :: qtestw = 1.0e-15
+      REAL,PARAMETER :: qtestt = 1.0e-40
+
+      REAL SSUM
+c
+c-----------------------------------------------------------------------
+
+      DO k = 1,llm
+         DO j = 1,ip1jmp1
+            pteta(j,k)= pteta(j,k) + pdhfi(j,k) * pdt
+         ENDDO
+      ENDDO
+
+      DO  k    = 1, llm
+       DO  ij   = 1, iim
+         xpn(ij) = aire(   ij   ) * pteta(  ij    ,k)
+         xps(ij) = aire(ij+ip1jm) * pteta(ij+ip1jm,k)
+       ENDDO
+       tpn      = SSUM(iim,xpn,1)/ apoln
+       tps      = SSUM(iim,xps,1)/ apols
+
+       DO ij   = 1, iip1
+         pteta(   ij   ,k)  = tpn
+         pteta(ij+ip1jm,k)  = tps
+       ENDDO
+      ENDDO
+c
+
+      DO k = 1,llm
+         DO j = iip2,ip1jm
+            pucov(j,k)= pucov(j,k) + pdufi(j,k) * pdt
+         ENDDO
+      ENDDO
+
+      DO k = 1,llm
+         DO j = 1,ip1jm
+            pvcov(j,k)= pvcov(j,k) + pdvfi(j,k) * pdt
+         ENDDO
+      ENDDO
+
+c
+      DO j = 1,ip1jmp1
+         pps(j) = pps(j) + pdpfi(j) * pdt
+      ENDDO
+ 
+      if (planet_type=="earth") then
+      ! earth case, special treatment for first 2 tracers (water)
+       DO iq = 1, 2
+         DO k = 1,llm
+            DO j = 1,ip1jmp1
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestw )
+            ENDDO
+         ENDDO
+       ENDDO
+
+       DO iq = 3, nqtot
+         DO k = 1,llm
+            DO j = 1,ip1jmp1
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
+            ENDDO
+         ENDDO
+       ENDDO
+      else
+      ! general case, treat all tracers equally)
+       DO iq = 1, nqtot
+         DO k = 1,llm
+            DO j = 1,ip1jmp1
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
+            ENDDO
+         ENDDO
+       ENDDO
+      endif ! of if (planet_type=="earth")
+
+
+      DO  ij   = 1, iim
+        xpn(ij) = aire(   ij   ) * pps(  ij     )
+        xps(ij) = aire(ij+ip1jm) * pps(ij+ip1jm )
+      ENDDO
+      tpn      = SSUM(iim,xpn,1)/apoln
+      tps      = SSUM(iim,xps,1)/apols
+
+      DO ij   = 1, iip1
+        pps (   ij     )  = tpn
+        pps ( ij+ip1jm )  = tps
+      ENDDO
+
+
+      DO iq = 1, nqtot
+        DO  k    = 1, llm
+          DO  ij   = 1, iim
+            xpn(ij) = aire(   ij   ) * pq(  ij    ,k,iq)
+            xps(ij) = aire(ij+ip1jm) * pq(ij+ip1jm,k,iq)
+          ENDDO
+          tpn      = SSUM(iim,xpn,1)/apoln
+          tps      = SSUM(iim,xps,1)/apols
+
+          DO ij   = 1, iip1
+            pq (   ij   ,k,iq)  = tpn
+            pq (ij+ip1jm,k,iq)  = tps
+          ENDDO
+        ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/advect.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/advect.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/advect.F	(revision 3330)
@@ -0,0 +1,166 @@
+!
+! $Header$
+!
+      SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
+
+      USE comconst_mod, ONLY: daysec
+      USE logic_mod, ONLY: conser
+      
+      IMPLICIT NONE
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , Fr. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *************************************************************
+c   .... calcul des termes d'advection vertic.pour u,v,teta,q ...
+c   *************************************************************
+c        ces termes sont ajoutes a du,dv,dteta et dq .
+c  Modif F.Forget 03/94 : on retire q de advect
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+
+c   Arguments:
+c   ----------
+
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
+      REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),w(ip1jmp1,llm)
+      REAL dv(ip1jm,llm),du(ip1jmp1,llm),dteta(ip1jmp1,llm)
+
+c   Local:
+c   ------
+
+      REAL uav(ip1jmp1,llm),vav(ip1jm,llm),wsur2(ip1jmp1)
+      REAL unsaire2(ip1jmp1), ge(ip1jmp1)
+      REAL deuxjour, ww, gt, uu, vv
+
+      INTEGER  ij,l
+
+      REAL      SSUM
+
+c-----------------------------------------------------------------------
+c   2. Calculs preliminaires:
+c   -------------------------
+
+      IF (conser)  THEN
+         deuxjour = 2. * daysec
+
+         DO   1  ij   = 1, ip1jmp1
+         unsaire2(ij) = unsaire(ij) * unsaire(ij)
+   1     CONTINUE
+      END IF
+
+
+c------------------  -yy ----------------------------------------------
+c   .  Calcul de     u
+
+      DO  l=1,llm
+         DO    ij     = iip2, ip1jmp1
+            uav(ij,l) = 0.25 * ( ucov(ij,l) + ucov(ij-iip1,l) )
+         ENDDO
+         DO    ij     = iip2, ip1jm
+            uav(ij,l) = uav(ij,l) + uav(ij+iip1,l)
+         ENDDO
+         DO      ij         = 1, iip1
+            uav(ij      ,l) = 0.
+            uav(ip1jm+ij,l) = 0.
+         ENDDO
+      ENDDO
+
+c------------------  -xx ----------------------------------------------
+c   .  Calcul de     v
+
+      DO  l=1,llm
+         DO    ij   = 2, ip1jm
+          vav(ij,l) = 0.25 * ( vcov(ij,l) + vcov(ij-1,l) )
+         ENDDO
+         DO    ij   = 1,ip1jm,iip1
+          vav(ij,l) = vav(ij+iim,l)
+         ENDDO
+         DO    ij   = 1, ip1jm-1
+          vav(ij,l) = vav(ij,l) + vav(ij+1,l)
+         ENDDO
+         DO    ij       = 1, ip1jm, iip1
+          vav(ij+iim,l) = vav(ij,l)
+         ENDDO
+      ENDDO
+
+c-----------------------------------------------------------------------
+
+c
+      DO 20 l = 1, llmm1
+
+
+c       ......   calcul de  - w/2.    au niveau  l+1   .......
+
+      DO 5   ij   = 1, ip1jmp1
+      wsur2( ij ) = - 0.5 * w( ij,l+1 )
+   5  CONTINUE
+
+
+c     .....................     calcul pour  du     ..................
+
+      DO 6 ij = iip2 ,ip1jm-1
+      ww        = wsur2 (  ij  )     + wsur2( ij+1 ) 
+      uu        = 0.5 * ( ucov(ij,l) + ucov(ij,l+1) )
+      du(ij,l)  = du(ij,l)   - ww * ( uu - uav(ij, l ) )/massebx(ij, l )
+      du(ij,l+1)= du(ij,l+1) + ww * ( uu - uav(ij,l+1) )/massebx(ij,l+1)
+   6  CONTINUE
+
+c     .....  correction pour  du(iip1,j,l)  ........
+c     .....     du(iip1,j,l)= du(1,j,l)   .....
+
+CDIR$ IVDEP
+      DO   7  ij   = iip1 +iip1, ip1jm, iip1
+      du( ij, l  ) = du( ij -iim, l  )
+      du( ij,l+1 ) = du( ij -iim,l+1 )
+   7  CONTINUE
+
+c     .................    calcul pour   dv      .....................
+
+      DO 8 ij = 1, ip1jm
+      ww        = wsur2( ij+iip1 )   + wsur2( ij )
+      vv        = 0.5 * ( vcov(ij,l) + vcov(ij,l+1) )
+      dv(ij,l)  = dv(ij, l ) - ww * (vv - vav(ij, l ) )/masseby(ij, l )
+      dv(ij,l+1)= dv(ij,l+1) + ww * (vv - vav(ij,l+1) )/masseby(ij,l+1)
+   8  CONTINUE
+
+c
+
+c     ............................................................
+c     ...............    calcul pour   dh      ...................
+c     ............................................................
+
+c                       ---z
+c       calcul de  - d( teta  * w )      qu'on ajoute a   dh
+c                   ...............
+
+        DO 15 ij = 1, ip1jmp1
+         ww            = wsur2(ij) * (teta(ij,l) + teta(ij,l+1) )
+         dteta(ij, l ) = dteta(ij, l )  -  ww
+         dteta(ij,l+1) = dteta(ij,l+1)  +  ww
+  15    CONTINUE
+
+      IF( conser)  THEN
+        DO 17 ij = 1,ip1jmp1
+        ge(ij)   = wsur2(ij) * wsur2(ij) * unsaire2(ij)
+  17    CONTINUE
+        gt       = SSUM( ip1jmp1,ge,1 )
+        gtot(l)  = deuxjour * SQRT( gt/ip1jmp1 )
+      END IF
+
+  20  CONTINUE
+ 
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/advtrac.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/advtrac.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/advtrac.F90	(revision 3330)
@@ -0,0 +1,409 @@
+! $Id$
+
+SUBROUTINE advtrac(pbaru,pbarv , p,  masse,q,iapptrac,teta, flxw, pk)
+  !     Auteur :  F. Hourdin
+  !
+  !     Modif. P. Le Van     (20/12/97)
+  !            F. Codron     (10/99)
+  !            D. Le Croller (07/2001)
+  !            M.A Filiberti (04/2002)
+  !
+  USE infotrac, ONLY: nqtot, iadv,nqperes,ok_iso_verif
+  USE control_mod, ONLY: iapp_tracvl, day_step
+  USE comconst_mod, ONLY: dtvr
+
+  IMPLICIT NONE
+  !
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissip.h"
+  include "comgeom2.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+
+  !-------------------------------------------------------------------
+  !     Arguments
+  !-------------------------------------------------------------------
+  INTEGER,INTENT(OUT) :: iapptrac
+  REAL,INTENT(IN) :: pbaru(ip1jmp1,llm)
+  REAL,INTENT(IN) :: pbarv(ip1jm,llm)
+  REAL,INTENT(INOUT) :: q(ip1jmp1,llm,nqtot)
+  REAL,INTENT(IN) :: masse(ip1jmp1,llm)
+  REAL,INTENT(IN) :: p( ip1jmp1,llmp1 )
+  REAL,INTENT(IN) :: teta(ip1jmp1,llm)
+  REAL,INTENT(IN) :: pk(ip1jmp1,llm)
+  REAL,INTENT(OUT) :: flxw(ip1jmp1,llm)
+  !-------------------------------------------------------------------
+  !     Ajout PPM
+  !--------------------------------------------------------
+  REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm)
+  !-------------------------------------------------------------
+  !     Variables locales
+  !-------------------------------------------------------------
+
+  REAL pbaruc(ip1jmp1,llm),pbarvc(ip1jm,llm)
+  REAL massem(ip1jmp1,llm),zdp(ip1jmp1)
+  REAL pbarug(ip1jmp1,llm),pbarvg(ip1jm,llm),wg(ip1jmp1,llm) 
+  REAL (kind=kind(1.d0)) :: t_initial, t_final, tps_cpu
+  INTEGER iadvtr
+  INTEGER ij,l,iq,iiq
+  REAL zdpmin, zdpmax
+  EXTERNAL  minmax
+  SAVE iadvtr, massem, pbaruc, pbarvc
+  DATA iadvtr/0/
+  !----------------------------------------------------------
+  !     Rajouts pour PPM
+  !----------------------------------------------------------
+  INTEGER indice,n
+  REAL dtbon ! Pas de temps adaptatif pour que CFL<1
+  REAL CFLmaxz,aaa,bbb ! CFL maximum
+  REAL psppm(iim,jjp1) ! pression  au sol
+  REAL unatppm(iim,jjp1,llm),vnatppm(iim,jjp1,llm)
+  REAL qppm(iim*jjp1,llm,nqtot)
+  REAL fluxwppm(iim,jjp1,llm)
+  REAL apppm(llmp1), bpppm(llmp1)
+  LOGICAL dum,fill
+  DATA fill/.true./
+  DATA dum/.true./
+
+  integer,save :: countcfl=0
+  real cflx(ip1jmp1,llm)
+  real cfly(ip1jm,llm)
+  real cflz(ip1jmp1,llm)
+  real, save :: cflxmax(llm),cflymax(llm),cflzmax(llm)
+
+  IF(iadvtr.EQ.0) THEN
+     pbaruc(:,:)=0
+     pbarvc(:,:)=0
+  ENDIF
+
+  !   accumulation des flux de masse horizontaux
+  DO l=1,llm
+     DO ij = 1,ip1jmp1
+        pbaruc(ij,l) = pbaruc(ij,l) + pbaru(ij,l)
+     ENDDO
+     DO ij = 1,ip1jm
+        pbarvc(ij,l) = pbarvc(ij,l) + pbarv(ij,l)
+     ENDDO
+  ENDDO
+
+  !   selection de la masse instantannee des mailles avant le transport.
+  IF(iadvtr.EQ.0) THEN
+
+     CALL SCOPY(ip1jmp1*llm,masse,1,massem,1)
+     !cc         CALL filtreg ( massem ,jjp1, llm,-2, 2, .TRUE., 1 )
+     !
+  ENDIF
+
+  iadvtr   = iadvtr+1
+  iapptrac = iadvtr
+
+
+  !   Test pour savoir si on advecte a ce pas de temps
+  IF ( iadvtr.EQ.iapp_tracvl ) THEN
+
+     !c   ..  Modif P.Le Van  ( 20/12/97 )  ....
+     !c
+
+     !   traitement des flux de masse avant advection.
+     !     1. calcul de w
+     !     2. groupement des mailles pres du pole.
+
+     CALL groupe( massem, pbaruc,pbarvc, pbarug,pbarvg,wg )
+
+     ! ... Flux de masse diaganostiques traceurs
+     flxw = wg / REAL(iapp_tracvl)
+
+     !  test sur l'eventuelle creation de valeurs negatives de la masse
+     DO l=1,llm-1
+        DO ij = iip2+1,ip1jm
+           zdp(ij) =    pbarug(ij-1,l)   - pbarug(ij,l) &
+                - pbarvg(ij-iip1,l) + pbarvg(ij,l) &
+                +       wg(ij,l+1)  - wg(ij,l)
+        ENDDO
+        CALL SCOPY( jjm -1 ,zdp(iip1+iip1),iip1,zdp(iip2),iip1 )
+        DO ij = iip2,ip1jm
+           zdp(ij)= zdp(ij)*dtvr/ massem(ij,l) 
+        ENDDO
+
+
+        CALL minmax ( ip1jm-iip1, zdp(iip2), zdpmin,zdpmax )
+
+        IF(MAX(ABS(zdpmin),ABS(zdpmax)).GT.0.5) THEN
+           PRINT*,'WARNING DP/P l=',l,'  MIN:',zdpmin, &
+                '   MAX:', zdpmax
+        ENDIF
+
+     ENDDO
+
+
+     !-------------------------------------------------------------------
+     ! Calcul des criteres CFL en X, Y et Z
+     !-------------------------------------------------------------------
+
+     if (countcfl == 0. ) then
+        cflxmax(:)=0.
+        cflymax(:)=0.
+        cflzmax(:)=0.
+     endif
+
+     countcfl=countcfl+iapp_tracvl
+     cflx(:,:)=0.
+     cfly(:,:)=0.
+     cflz(:,:)=0.
+     do l=1,llm
+        do ij=iip2,ip1jm-1
+           if (pbarug(ij,l)>=0.) then
+              cflx(ij,l)=pbarug(ij,l)*dtvr/masse(ij,l)
+           else
+              cflx(ij,l)=-pbarug(ij,l)*dtvr/masse(ij+1,l)
+           endif
+        enddo
+     enddo
+     do l=1,llm
+        do ij=iip2,ip1jm-1,iip1
+           cflx(ij+iip1,l)=cflx(ij,l)
+        enddo
+     enddo
+
+     do l=1,llm
+        do ij=1,ip1jm
+           if (pbarvg(ij,l)>=0.) then
+              cfly(ij,l)=pbarvg(ij,l)*dtvr/masse(ij,l)
+           else
+              cfly(ij,l)=-pbarvg(ij,l)*dtvr/masse(ij+iip1,l)
+           endif
+        enddo
+     enddo
+
+     do l=2,llm
+        do ij=1,ip1jm
+           if (wg(ij,l)>=0.) then
+              cflz(ij,l)=wg(ij,l)*dtvr/masse(ij,l)
+           else
+              cflz(ij,l)=-wg(ij,l)*dtvr/masse(ij,l-1)
+           endif
+        enddo
+     enddo
+
+     do l=1,llm
+        cflxmax(l)=max(cflxmax(l),maxval(cflx(:,l)))
+        cflymax(l)=max(cflymax(l),maxval(cfly(:,l)))
+        cflzmax(l)=max(cflzmax(l),maxval(cflz(:,l)))
+     enddo
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+     ! Par defaut, on sort le diagnostic des CFL tous les jours.
+     ! Si on veut le sortir a chaque pas d'advection en cas de plantage 
+     !     if (countcfl==iapp_tracvl) then
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+     if (countcfl==day_step) then
+        do l=1,llm
+           write(lunout,*) 'L, CFL[xyz]max:', l, cflxmax(l), cflymax(l), &
+                cflzmax(l)
+        enddo
+        countcfl=0
+     endif
+
+     !-------------------------------------------------------------------
+     !   Advection proprement dite (Modification Le Croller (07/2001)
+     !-------------------------------------------------------------------
+
+     !----------------------------------------------------
+     !        Calcul des moyennes basées sur la masse
+     !----------------------------------------------------
+     call massbar(massem,massebx,masseby)          
+
+     !-----------------------------------------------------------
+     !     Appel des sous programmes d'advection
+     !-----------------------------------------------------------
+
+     if (ok_iso_verif) then
+           write(*,*) 'advtrac 227'
+           call check_isotopes_seq(q,ip1jmp1,'advtrac 162')
+     endif !if (ok_iso_verif) then
+
+     do iq=1,nqperes
+        !        call clock(t_initial)
+        if(iadv(iq) == 0) cycle 
+        !   ----------------------------------------------------------------
+        !   Schema de Van Leer I MUSCL
+        !   ----------------------------------------------------------------
+        if(iadv(iq).eq.10) THEN
+           ! CRisi: on fait passer tout q pour avoir acces aux fils
+           
+           !write(*,*) 'advtrac 239: iq,q(1721,19,:)=',iq,q(1721,19,:)     
+           call vlsplt(q,2.,massem,wg,pbarug,pbarvg,dtvr,iq)
+           
+           !   ----------------------------------------------------------------
+           !   Schema "pseudo amont" + test sur humidite specifique
+           !    pour la vapeur d'eau. F. Codron
+           !   ----------------------------------------------------------------
+        else if(iadv(iq).eq.14) then
+           !
+           !write(*,*) 'advtrac 248: iq,q(1721,19,:)=',iq,q(1721,19,:)
+           CALL vlspltqs( q, 2., massem, wg , &
+                pbarug,pbarvg,dtvr,p,pk,teta,iq)
+           
+           !   ----------------------------------------------------------------
+           !   Schema de Frederic Hourdin
+           !   ----------------------------------------------------------------
+        else if(iadv(iq).eq.12) then
+           !            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           do indice=1,n
+              call advn(q(1,1,iq),massem,wg,pbarug,pbarvg,dtbon,1)
+           end do
+        else if(iadv(iq).eq.13) then
+           !            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           do indice=1,n
+              call advn(q(1,1,iq),massem,wg,pbarug,pbarvg,dtbon,2)
+           end do
+           !   ----------------------------------------------------------------
+           !   Schema de pente SLOPES
+           !   ----------------------------------------------------------------
+        else if (iadv(iq).eq.20) then
+           call pentes_ini (q(1,1,iq),wg,massem,pbarug,pbarvg,0)
+
+           !   ----------------------------------------------------------------
+           !   Schema de Prather
+           !   ----------------------------------------------------------------
+        else if (iadv(iq).eq.30) then
+           !            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           call  prather(q(1,1,iq),wg,massem,pbarug,pbarvg, &
+                n,dtbon)
+
+           !   ----------------------------------------------------------------
+           !   Schemas PPM Lin et Rood
+           !   ----------------------------------------------------------------
+        else if (iadv(iq).eq.11.OR.(iadv(iq).GE.16.AND. &
+             iadv(iq).LE.18)) then
+
+           !        Test sur le flux horizontal
+           !        Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           !        Test sur le flux vertical
+           CFLmaxz=0.
+           do l=2,llm
+              do ij=iip2,ip1jm
+                 aaa=wg(ij,l)*dtvr/massem(ij,l)
+                 CFLmaxz=max(CFLmaxz,aaa)
+                 bbb=-wg(ij,l)*dtvr/massem(ij,l-1)
+                 CFLmaxz=max(CFLmaxz,bbb)
+              enddo
+           enddo
+           if (CFLmaxz.GE.1) then
+              write(*,*) 'WARNING vertical','CFLmaxz=', CFLmaxz
+           endif
+
+           !-----------------------------------------------------------
+           !        Ss-prg interface LMDZ.4->PPM3d
+           !-----------------------------------------------------------
+
+           call interpre(q(1,1,iq),qppm(1,1,iq),wg,fluxwppm,massem, &
+                apppm,bpppm,massebx,masseby,pbarug,pbarvg, &
+                unatppm,vnatppm,psppm)
+
+           do indice=1,n
+              !----------------------------------------------------------------
+              !                         VL (version PPM) horiz. et PPM vert.
+              !----------------------------------------------------------------
+              if (iadv(iq).eq.11) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,2,2,2,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+
+                 !-------------------------------------------------------------
+                 !                           Monotonic PPM
+                 !-------------------------------------------------------------
+              else if (iadv(iq).eq.16) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,3,3,3,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+                 !-------------------------------------------------------------
+
+                 !-------------------------------------------------------------
+                 !                           Semi Monotonic PPM
+                 !-------------------------------------------------------------
+              else if (iadv(iq).eq.17) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,4,4,4,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+                 !-------------------------------------------------------------
+
+                 !-------------------------------------------------------------
+                 !                         Positive Definite PPM
+                 !-------------------------------------------------------------
+              else if (iadv(iq).eq.18) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,5,5,5,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+                 !-------------------------------------------------------------
+              endif
+           enddo
+           !-----------------------------------------------------------------
+           !               Ss-prg interface PPM3d-LMDZ.4
+           !-----------------------------------------------------------------
+           call interpost(q(1,1,iq),qppm(1,1,iq))
+        endif
+        !----------------------------------------------------------------------
+
+        !-----------------------------------------------------------------
+        ! On impose une seule valeur du traceur au pôle Sud j=jjm+1=jjp1
+        ! et Nord j=1
+        !-----------------------------------------------------------------
+
+        !                  call traceurpole(q(1,1,iq),massem)
+
+        ! calcul du temps cpu pour un schema donne
+
+        !                  call clock(t_final)
+        !ym                  tps_cpu=t_final-t_initial
+        !ym                  cpuadv(iq)=cpuadv(iq)+tps_cpu
+
+     end DO
+
+     if (ok_iso_verif) then
+           write(*,*) 'advtrac 402'
+           call check_isotopes_seq(q,ip1jmp1,'advtrac 397')
+     endif !if (ok_iso_verif) then
+
+     !------------------------------------------------------------------
+     !   on reinitialise a zero les flux de masse cumules
+     !---------------------------------------------------
+     iadvtr=0
+
+  ENDIF ! if iadvtr.EQ.iapp_tracvl
+
+END SUBROUTINE advtrac
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/bilan_dyn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/bilan_dyn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/bilan_dyn.F	(revision 3330)
@@ -0,0 +1,586 @@
+!
+! $Id$
+!
+      SUBROUTINE bilan_dyn (ntrac,dt_app,dt_cum,
+     s  ps,masse,pk,flux_u,flux_v,teta,phi,ucov,vcov,trac)
+
+c   AFAIRE
+c   Prevoir en champ nq+1 le diagnostique de l'energie
+c   en faisant Qzon=Cv T + L * ...
+c             vQ..A=Cp T + L * ...
+
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#endif
+      USE comconst_mod, ONLY: pi, cpp
+      USE comvert_mod, ONLY: presnivs
+      USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+      include "iniprint.h"
+
+c====================================================================
+c
+c   Sous-programme consacre à des diagnostics dynamiques de base
+c
+c 
+c   De facon generale, les moyennes des scalaires Q sont ponderees par
+c   la masse.
+c
+c   Les flux de masse sont eux simplement moyennes.
+c
+c====================================================================
+
+c   Arguments :
+c   ===========
+
+      integer ntrac
+      real dt_app,dt_cum
+      real ps(iip1,jjp1)
+      real masse(iip1,jjp1,llm),pk(iip1,jjp1,llm)
+      real flux_u(iip1,jjp1,llm)
+      real flux_v(iip1,jjm,llm)
+      real teta(iip1,jjp1,llm)
+      real phi(iip1,jjp1,llm)
+      real ucov(iip1,jjp1,llm)
+      real vcov(iip1,jjm,llm)
+      real trac(iip1,jjp1,llm,ntrac)
+
+c   Local :
+c   =======
+
+      integer icum,ncum
+      logical first
+      real zz,zqy,zfactv(jjm,llm)
+
+      integer nQ
+      parameter (nQ=7)
+
+
+cym      character*6 nom(nQ)
+cym      character*6 unites(nQ)
+      character*6,save :: nom(nQ)
+      character*6,save :: unites(nQ)
+
+      character*10 file
+      integer ifile
+      parameter (ifile=4)
+
+      integer itemp,igeop,iecin,iang,iu,iovap,iun
+      integer i_sortie
+
+      save first,icum,ncum
+      save itemp,igeop,iecin,iang,iu,iovap,iun
+      save i_sortie
+
+      real time
+      integer itau
+      save time,itau
+      data time,itau/0.,0/
+
+      data first/.true./
+      data itemp,igeop,iecin,iang,iu,iovap,iun/1,2,3,4,5,6,7/
+      data i_sortie/1/
+
+      real ww
+
+c   variables dynamiques intermédiaires
+      REAL vcont(iip1,jjm,llm),ucont(iip1,jjp1,llm)
+      REAL ang(iip1,jjp1,llm),unat(iip1,jjp1,llm)
+      REAL massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)
+      REAL vorpot(iip1,jjm,llm)
+      REAL w(iip1,jjp1,llm),ecin(iip1,jjp1,llm),convm(iip1,jjp1,llm)
+      REAL bern(iip1,jjp1,llm)
+
+c   champ contenant les scalaires advectés.
+      real Q(iip1,jjp1,llm,nQ)
+    
+c   champs cumulés
+      real ps_cum(iip1,jjp1)
+      real masse_cum(iip1,jjp1,llm)
+      real flux_u_cum(iip1,jjp1,llm)
+      real flux_v_cum(iip1,jjm,llm)
+      real Q_cum(iip1,jjp1,llm,nQ)
+      real flux_uQ_cum(iip1,jjp1,llm,nQ)
+      real flux_vQ_cum(iip1,jjm,llm,nQ)
+      real flux_wQ_cum(iip1,jjp1,llm,nQ)
+      real dQ(iip1,jjp1,llm,nQ)
+
+      save ps_cum,masse_cum,flux_u_cum,flux_v_cum
+      save Q_cum,flux_uQ_cum,flux_vQ_cum
+
+c   champs de tansport en moyenne zonale
+      integer ntr,itr
+      parameter (ntr=5)
+
+cym      character*10 znom(ntr,nQ)
+cym      character*20 znoml(ntr,nQ)
+cym      character*10 zunites(ntr,nQ)
+      character*10,save :: znom(ntr,nQ)
+      character*20,save :: znoml(ntr,nQ)
+      character*10,save :: zunites(ntr,nQ)
+
+      integer iave,itot,immc,itrs,istn
+      data iave,itot,immc,itrs,istn/1,2,3,4,5/
+      character*3 ctrs(ntr)
+      data ctrs/'  ','TOT','MMC','TRS','STN'/
+
+      real zvQ(jjm,llm,ntr,nQ),zvQtmp(jjm,llm)
+      real zavQ(jjm,ntr,nQ),psiQ(jjm,llm+1,nQ)
+      real zmasse(jjm,llm),zamasse(jjm)
+
+      real zv(jjm,llm),psi(jjm,llm+1)
+
+      integer i,j,l,iQ
+
+
+c   Initialisation du fichier contenant les moyennes zonales.
+c   ---------------------------------------------------------
+
+      character*10 infile
+
+      integer fileid
+      integer thoriid, zvertiid
+      save fileid
+
+      integer ndex3d(jjm*llm)
+
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      character*3 str
+      character*10 ctrac
+      integer ii,jj
+      integer zan, dayref
+C
+      real rlong(jjm),rlatg(jjm)
+
+
+
+c=====================================================================
+c   Initialisation
+c=====================================================================
+
+      time=time+dt_app
+      itau=itau+1
+cIM
+      ndex3d=0
+
+      if (first) then
+
+
+        icum=0
+c       initialisation des fichiers
+        first=.false.
+c   ncum est la frequence de stokage en pas de temps
+        ncum=dt_cum/dt_app
+        if (abs(ncum*dt_app-dt_cum).gt.1.e-5*dt_app) then
+           WRITE(lunout,*)
+     .            'Pb : le pas de cumule doit etre multiple du pas'
+           WRITE(lunout,*)'dt_app=',dt_app
+           WRITE(lunout,*)'dt_cum=',dt_cum
+           stop
+        endif
+
+        if (i_sortie.eq.1) then
+         file='dynzon'
+         call inigrads(ifile,1
+     s  ,0.,180./pi,0.,0.,jjm,rlatv,-90.,90.,180./pi
+     s  ,llm,presnivs,1.
+     s  ,dt_cum,file,'dyn_zon ')
+        endif
+
+        nom(itemp)='T'
+        nom(igeop)='gz'
+        nom(iecin)='K'
+        nom(iang)='ang'
+        nom(iu)='u'
+        nom(iovap)='ovap'
+        nom(iun)='un'
+
+        unites(itemp)='K'
+        unites(igeop)='m2/s2'
+        unites(iecin)='m2/s2'
+        unites(iang)='ang'
+        unites(iu)='m/s'
+        unites(iovap)='kg/kg'
+        unites(iun)='un'
+
+
+c   Initialisation du fichier contenant les moyennes zonales.
+c   ---------------------------------------------------------
+
+      infile='dynzon'
+
+      zan = annee_ref
+      dayref = day_ref
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      rlong=0.
+      rlatg=rlatv*180./pi
+       
+      call histbeg(infile, 1, rlong, jjm, rlatg,
+     .             1, 1, 1, jjm,
+     .             tau0, zjulian, dt_cum, thoriid, fileid)
+
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'presnivs', 'Niveaux sigma','mb',
+     .              llm, presnivs, zvertiid)
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+      do iQ=1,nQ
+         do itr=1,ntr
+            if(itr.eq.1) then
+               znom(itr,iQ)=nom(iQ)
+               znoml(itr,iQ)=nom(iQ)
+               zunites(itr,iQ)=unites(iQ)
+            else
+               znom(itr,iQ)=ctrs(itr)//'v'//nom(iQ)
+               znoml(itr,iQ)='transport : v * '//nom(iQ)//' '//ctrs(itr)
+               zunites(itr,iQ)='m/s * '//unites(iQ)
+            endif
+         enddo
+      enddo
+
+c   Declarations des champs avec dimension verticale
+c      print*,'1HISTDEF'
+      do iQ=1,nQ
+         do itr=1,ntr
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'var ',itr,iQ
+     .      ,znom(itr,iQ),znoml(itr,iQ),zunites(itr,iQ)
+            call histdef(fileid,znom(itr,iQ),znoml(itr,iQ),
+     .        zunites(itr,iQ),1,jjm,thoriid,llm,1,llm,zvertiid,
+     .        32,'ave(X)',dt_cum,dt_cum)
+         enddo
+c   Declarations pour les fonctions de courant
+c      print*,'2HISTDEF'
+          call histdef(fileid,'psi'//nom(iQ)
+     .      ,'stream fn. '//znoml(itot,iQ),
+     .      zunites(itot,iQ),1,jjm,thoriid,llm,1,llm,zvertiid,
+     .      32,'ave(X)',dt_cum,dt_cum)
+      enddo
+
+
+c   Declarations pour les champs de transport d'air
+c      print*,'3HISTDEF'
+      call histdef(fileid, 'masse', 'masse',
+     .             'kg', 1, jjm, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', dt_cum, dt_cum)
+      call histdef(fileid, 'v', 'v',
+     .             'm/s', 1, jjm, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', dt_cum, dt_cum)
+c   Declarations pour les fonctions de courant
+c      print*,'4HISTDEF'
+          call histdef(fileid,'psi','stream fn. MMC ','mega t/s',
+     .      1,jjm,thoriid,llm,1,llm,zvertiid,
+     .      32,'ave(X)',dt_cum,dt_cum)
+
+
+c   Declaration des champs 1D de transport en latitude
+c      print*,'5HISTDEF'
+      do iQ=1,nQ
+         do itr=2,ntr
+            call histdef(fileid,'a'//znom(itr,iQ),znoml(itr,iQ),
+     .        zunites(itr,iQ),1,jjm,thoriid,1,1,1,-99,
+     .        32,'ave(X)',dt_cum,dt_cum)
+         enddo
+      enddo
+
+
+c      print*,'8HISTDEF'
+               CALL histend(fileid)
+
+
+      endif
+
+
+c=====================================================================
+c   Calcul des champs dynamiques
+c   ----------------------------
+
+c   énergie cinétique
+      ucont(:,:,:)=0
+      CALL covcont(llm,ucov,vcov,ucont,vcont)
+      CALL enercin(vcov,ucov,vcont,ucont,ecin)
+
+c   moment cinétique
+      do l=1,llm
+         ang(:,:,l)=ucov(:,:,l)+constang(:,:)
+         unat(:,:,l)=ucont(:,:,l)*cu(:,:)
+      enddo
+
+      Q(:,:,:,itemp)=teta(:,:,:)*pk(:,:,:)/cpp
+      Q(:,:,:,igeop)=phi(:,:,:)
+      Q(:,:,:,iecin)=ecin(:,:,:)
+      Q(:,:,:,iang)=ang(:,:,:)
+      Q(:,:,:,iu)=unat(:,:,:)
+      Q(:,:,:,iovap)=trac(:,:,:,1)
+      Q(:,:,:,iun)=1.
+
+
+c=====================================================================
+c   Cumul
+c=====================================================================
+c
+      if(icum.EQ.0) then
+         ps_cum=0.
+         masse_cum=0.
+         flux_u_cum=0.
+         flux_v_cum=0.
+         Q_cum=0.
+         flux_vQ_cum=0.
+         flux_uQ_cum=0.
+      endif
+
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'dans bilan_dyn ',icum,'->',icum+1
+      icum=icum+1
+
+c   accumulation des flux de masse horizontaux
+      ps_cum=ps_cum+ps
+      masse_cum=masse_cum+masse
+      flux_u_cum=flux_u_cum+flux_u
+      flux_v_cum=flux_v_cum+flux_v
+      do iQ=1,nQ
+      Q_cum(:,:,:,iQ)=Q_cum(:,:,:,iQ)+Q(:,:,:,iQ)*masse(:,:,:)
+      enddo
+
+c=====================================================================
+c  FLUX ET TENDANCES
+c=====================================================================
+
+c   Flux longitudinal
+c   -----------------
+      do iQ=1,nQ
+         do l=1,llm
+            do j=1,jjp1
+               do i=1,iim
+                  flux_uQ_cum(i,j,l,iQ)=flux_uQ_cum(i,j,l,iQ)
+     s            +flux_u(i,j,l)*0.5*(Q(i,j,l,iQ)+Q(i+1,j,l,iQ))
+               enddo
+               flux_uQ_cum(iip1,j,l,iQ)=flux_uQ_cum(1,j,l,iQ)
+            enddo
+         enddo
+      enddo
+
+c    flux méridien
+c    -------------
+      do iQ=1,nQ
+         do l=1,llm
+            do j=1,jjm
+               do i=1,iip1
+                  flux_vQ_cum(i,j,l,iQ)=flux_vQ_cum(i,j,l,iQ)
+     s            +flux_v(i,j,l)*0.5*(Q(i,j,l,iQ)+Q(i,j+1,l,iQ))
+               enddo
+            enddo
+         enddo
+      enddo
+
+
+c    tendances
+c    ---------
+
+c   convergence horizontale
+      call  convflu(flux_uQ_cum,flux_vQ_cum,llm*nQ,dQ)
+
+c   calcul de la vitesse verticale
+      call convmas(flux_u_cum,flux_v_cum,convm)
+      CALL vitvert(convm,w)
+
+      do iQ=1,nQ
+         do l=1,llm-1
+            do j=1,jjp1
+               do i=1,iip1
+                  ww=-0.5*w(i,j,l+1)*(Q(i,j,l,iQ)+Q(i,j,l+1,iQ))
+                  dQ(i,j,l  ,iQ)=dQ(i,j,l  ,iQ)-ww
+                  dQ(i,j,l+1,iQ)=dQ(i,j,l+1,iQ)+ww
+               enddo
+            enddo
+         enddo
+      enddo
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'Apres les calculs fait a chaque pas'
+c=====================================================================
+c   PAS DE TEMPS D'ECRITURE
+c=====================================================================
+      if (icum.eq.ncum) then
+c=====================================================================
+
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'Pas d ecriture'
+
+c   Normalisation
+      do iQ=1,nQ
+         Q_cum(:,:,:,iQ)=Q_cum(:,:,:,iQ)/masse_cum(:,:,:)
+      enddo
+      zz=1./REAL(ncum)
+      ps_cum=ps_cum*zz
+      masse_cum=masse_cum*zz
+      flux_u_cum=flux_u_cum*zz
+      flux_v_cum=flux_v_cum*zz
+      flux_uQ_cum=flux_uQ_cum*zz
+      flux_vQ_cum=flux_vQ_cum*zz
+      dQ=dQ*zz
+
+
+c   A retravailler eventuellement
+c   division de dQ par la masse pour revenir aux bonnes grandeurs
+      do iQ=1,nQ
+         dQ(:,:,:,iQ)=dQ(:,:,:,iQ)/masse_cum(:,:,:)
+      enddo
+ 
+c=====================================================================
+c   Transport méridien
+c=====================================================================
+
+c   cumul zonal des masses des mailles
+c   ----------------------------------
+      zv=0.
+      zmasse=0.
+      call massbar(masse_cum,massebx,masseby)
+      do l=1,llm
+         do j=1,jjm
+            do i=1,iim
+               zmasse(j,l)=zmasse(j,l)+masseby(i,j,l)
+               zv(j,l)=zv(j,l)+flux_v_cum(i,j,l)
+            enddo
+            zfactv(j,l)=cv(1,j)/zmasse(j,l)
+         enddo
+      enddo
+
+c     print*,'3OK'
+c   --------------------------------------------------------------
+c   calcul de la moyenne zonale du transport :
+c   ------------------------------------------
+c
+c                                     --
+c TOT : la circulation totale       [ vq ]
+c
+c                                      -     -
+c MMC : mean meridional circulation [ v ] [ q ]
+c
+c                                     ----      --       - -
+c TRS : transitoires                [ v'q'] = [ vq ] - [ v q ]
+c
+c                                     - * - *       - -       -     -
+c STT : stationaires                [ v   q   ] = [ v q ] - [ v ] [ q ]
+c
+c                                              - -
+c    on utilise aussi l'intermediaire TMP :  [ v q ]
+c
+c    la variable zfactv transforme un transport meridien cumule
+c    en kg/s * unte-du-champ-transporte en m/s * unite-du-champ-transporte
+c
+c   --------------------------------------------------------------
+
+
+c   ----------------------------------------
+c   Transport dans le plan latitude-altitude
+c   ----------------------------------------
+
+      zvQ=0.
+      psiQ=0.
+      do iQ=1,nQ
+         zvQtmp=0.
+         do l=1,llm
+            do j=1,jjm
+c              print*,'j,l,iQ=',j,l,iQ
+c   Calcul des moyennes zonales du transort total et de zvQtmp
+               do i=1,iim
+                  zvQ(j,l,itot,iQ)=zvQ(j,l,itot,iQ)
+     s                            +flux_vQ_cum(i,j,l,iQ)
+                  zqy=      0.5*(Q_cum(i,j,l,iQ)*masse_cum(i,j,l)+
+     s                           Q_cum(i,j+1,l,iQ)*masse_cum(i,j+1,l))
+                  zvQtmp(j,l)=zvQtmp(j,l)+flux_v_cum(i,j,l)*zqy
+     s             /(0.5*(masse_cum(i,j,l)+masse_cum(i,j+1,l)))
+                  zvQ(j,l,iave,iQ)=zvQ(j,l,iave,iQ)+zqy
+               enddo
+c              print*,'aOK'
+c   Decomposition
+               zvQ(j,l,iave,iQ)=zvQ(j,l,iave,iQ)/zmasse(j,l)
+               zvQ(j,l,itot,iQ)=zvQ(j,l,itot,iQ)*zfactv(j,l)
+               zvQtmp(j,l)=zvQtmp(j,l)*zfactv(j,l)
+               zvQ(j,l,immc,iQ)=zv(j,l)*zvQ(j,l,iave,iQ)*zfactv(j,l)
+               zvQ(j,l,itrs,iQ)=zvQ(j,l,itot,iQ)-zvQtmp(j,l)
+               zvQ(j,l,istn,iQ)=zvQtmp(j,l)-zvQ(j,l,immc,iQ)
+            enddo
+         enddo
+c   fonction de courant meridienne pour la quantite Q
+         do l=llm,1,-1
+            do j=1,jjm
+               psiQ(j,l,iQ)=psiQ(j,l+1,iQ)+zvQ(j,l,itot,iQ)
+            enddo
+         enddo
+      enddo
+
+c   fonction de courant pour la circulation meridienne moyenne
+      psi=0.
+      do l=llm,1,-1
+         do j=1,jjm
+            psi(j,l)=psi(j,l+1)+zv(j,l)
+            zv(j,l)=zv(j,l)*zfactv(j,l)
+         enddo
+      enddo
+
+c     print*,'4OK'
+c   sorties proprement dites
+      if (i_sortie.eq.1) then
+      do iQ=1,nQ
+         do itr=1,ntr
+            call histwrite(fileid,znom(itr,iQ),itau,zvQ(:,:,itr,iQ)
+     s      ,jjm*llm,ndex3d)
+         enddo
+         call histwrite(fileid,'psi'//nom(iQ),itau,psiQ(:,1:llm,iQ)
+     s      ,jjm*llm,ndex3d)
+      enddo
+
+      call histwrite(fileid,'masse',itau,zmasse
+     s   ,jjm*llm,ndex3d)
+      call histwrite(fileid,'v',itau,zv
+     s   ,jjm*llm,ndex3d)
+      psi=psi*1.e-9
+      call histwrite(fileid,'psi',itau,psi(:,1:llm),jjm*llm,ndex3d)
+
+      endif
+
+
+c   -----------------
+c   Moyenne verticale
+c   -----------------
+
+      zamasse=0.
+      do l=1,llm
+         zamasse(:)=zamasse(:)+zmasse(:,l)
+      enddo
+      zavQ=0.
+      do iQ=1,nQ
+         do itr=2,ntr
+            do l=1,llm
+               zavQ(:,itr,iQ)=zavQ(:,itr,iQ)+zvQ(:,l,itr,iQ)*zmasse(:,l)
+            enddo
+            zavQ(:,itr,iQ)=zavQ(:,itr,iQ)/zamasse(:)
+            call histwrite(fileid,'a'//znom(itr,iQ),itau,zavQ(:,itr,iQ)
+     s      ,jjm*llm,ndex3d)
+         enddo
+      enddo
+
+c     on doit pouvoir tracer systematiquement la fonction de courant.
+
+c=====================================================================
+c/////////////////////////////////////////////////////////////////////
+      icum=0                  !///////////////////////////////////////
+      endif ! icum.eq.ncum    !///////////////////////////////////////
+c/////////////////////////////////////////////////////////////////////
+c=====================================================================
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/caladvtrac.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/caladvtrac.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/caladvtrac.F	(revision 3330)
@@ -0,0 +1,118 @@
+!
+! $Id$
+!
+c
+c
+            SUBROUTINE caladvtrac(q,pbaru,pbarv ,
+     *                   p ,masse, dq ,  teta,
+     *                   flxw, pk)
+c
+      USE infotrac, ONLY : nqtot
+      USE control_mod, ONLY : iapp_tracvl,planet_type
+      USE comconst_mod, ONLY: dtvr
+ 
+      IMPLICIT NONE
+c
+c     Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron  
+c
+c     F.Codron (10/99) : ajout humidite specifique pour eau vapeur
+c=======================================================================
+c
+c       Shema de  Van Leer
+c
+c=======================================================================
+
+
+      include "dimensions.h"
+      include "paramet.h"
+
+c   Arguments:
+c   ----------
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm),masse(ip1jmp1,llm)
+      REAL p( ip1jmp1,llmp1),q( ip1jmp1,llm,nqtot)
+      real :: dq(ip1jmp1,llm,nqtot)
+      REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
+      REAL               :: flxw(ip1jmp1,llm)
+
+c  ..................................................................
+c
+c  .. dq n'est utilise et dimensionne que pour l'eau  vapeur et liqu.
+c
+c  ..................................................................
+c
+c   Local:
+c   ------
+
+      EXTERNAL  advtrac,minmaxq, qminimum
+      INTEGER ij,l, iq, iapptrac
+      REAL finmasse(ip1jmp1,llm), dtvrtrac
+
+cc
+c
+! Earth-specific stuff for the first 2 tracers (water)
+      if (planet_type.eq."earth") then
+C initialisation
+! CRisi: il faut gérer tous les traceurs si on veut pouvoir faire des
+! isotopes
+!        dq(:,:,1:2)=q(:,:,1:2)
+        dq(:,:,1:nqtot)=q(:,:,1:nqtot)
+       
+c  test des valeurs minmax
+cc        CALL minmaxq(q(1,1,1),1.e33,-1.e33,'Eau vapeur (a) ')
+cc        CALL minmaxq(q(1,1,2),1.e33,-1.e33,'Eau liquide(a) ')
+      endif ! of if (planet_type.eq."earth")
+c   advection
+
+        CALL advtrac( pbaru,pbarv, 
+     *       p,  masse,q,iapptrac, teta,
+     .       flxw, pk)
+
+c
+
+      IF( iapptrac.EQ.iapp_tracvl ) THEN
+        if (planet_type.eq."earth") then
+! Earth-specific treatment for the first 2 tracers (water)
+c
+cc          CALL minmaxq(q(1,1,1),1.e33,-1.e33,'Eau vapeur     ')
+cc          CALL minmaxq(q(1,1,2),1.e33,-1.e33,'Eau liquide    ')
+
+cc     ....  Calcul  de deltap  qu'on stocke dans finmasse   ...
+c
+          DO l = 1, llm
+           DO ij = 1, ip1jmp1
+             finmasse(ij,l) =  p(ij,l) - p(ij,l+1) 
+           ENDDO
+          ENDDO
+
+          !write(*,*) 'caladvtrac 87'
+          CALL qminimum( q, nqtot, finmasse )
+          !write(*,*) 'caladvtrac 89'
+
+          CALL SCOPY   ( ip1jmp1*llm, masse, 1, finmasse,       1 )
+          CALL filtreg ( finmasse ,  jjp1,  llm, -2, 2, .TRUE., 1 )
+c
+c   *****  Calcul de dq pour l'eau , pour le passer a la physique ******
+c   ********************************************************************
+c
+          dtvrtrac = iapp_tracvl * dtvr
+c
+           DO iq = 1 , nqtot
+            DO l = 1 , llm
+             DO ij = 1,ip1jmp1
+             dq(ij,l,iq) = ( q(ij,l,iq) - dq(ij,l,iq) ) * finmasse(ij,l)
+     *                               /  dtvrtrac
+             ENDDO
+            ENDDO
+           ENDDO
+c
+        endif ! of if (planet_type.eq."earth")
+      ELSE
+        if (planet_type.eq."earth") then
+! Earth-specific treatment for the first 2 tracers (water)
+          dq(:,:,1:nqtot)=0.
+        endif ! of if (planet_type.eq."earth")
+      ENDIF ! of IF( iapptrac.EQ.iapp_tracvl )
+
+      END
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/caldyn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/caldyn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/caldyn.F	(revision 3330)
@@ -0,0 +1,144 @@
+!
+! $Id$
+!
+      SUBROUTINE caldyn
+     $ (itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
+     $  phi,conser,du,dv,dteta,dp,w,pbaru,pbarv,time )
+
+      
+      USE comvert_mod, ONLY: ap, bp
+      
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!  Auteur :  P. Le Van
+!
+!   Objet:
+!   ------
+!
+!   Calcul des tendances dynamiques.
+!
+! Modif 04/93 F.Forget
+!=======================================================================
+
+!-----------------------------------------------------------------------
+!   0. Declarations:
+!   ----------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+
+!   Arguments:
+!   ----------
+
+      LOGICAL,INTENT(IN) :: conser ! triggers printing some diagnostics
+      INTEGER,INTENT(IN) :: itau ! time step index
+      REAL,INTENT(IN) :: vcov(ip1jm,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ip1jmp1,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ip1jmp1,llm) ! potential temperature
+      REAL,INTENT(IN) :: ps(ip1jmp1) ! surface pressure
+      REAL,INTENT(IN) :: phis(ip1jmp1) ! geopotential at the surface
+      REAL,INTENT(IN) :: pk(ip1jmp1,llm) ! Exner at mid-layer
+      REAL,INTENT(IN) :: pkf(ip1jmp1,llm) ! filtered Exner
+      REAL,INTENT(IN) :: phi(ip1jmp1,llm) ! geopotential
+      REAL,INTENT(OUT) :: masse(ip1jmp1,llm) ! air mass
+      REAL,INTENT(OUT) :: dv(ip1jm,llm) ! tendency on vcov
+      REAL,INTENT(OUT) :: du(ip1jmp1,llm) ! tendency on ucov
+      REAL,INTENT(OUT) :: dteta(ip1jmp1,llm) ! tenddency on teta
+      REAL,INTENT(OUT) :: dp(ip1jmp1) ! tendency on ps
+      REAL,INTENT(OUT) :: w(ip1jmp1,llm) ! vertical velocity
+      REAL,INTENT(OUT) :: pbaru(ip1jmp1,llm) ! mass flux in the zonal direction
+      REAL,INTENT(OUT) :: pbarv(ip1jm,llm) ! mass flux in the meridional direction
+      REAL,INTENT(IN) :: time ! current time
+
+!   Local:
+!   ------
+
+      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+      REAL ang(ip1jmp1,llm),p(ip1jmp1,llmp1)
+      REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),psexbarxy(ip1jm)
+      REAL vorpot(ip1jm,llm)
+      REAL ecin(ip1jmp1,llm),convm(ip1jmp1,llm)
+      REAL bern(ip1jmp1,llm)
+      REAL massebxy(ip1jm,llm)
+    
+
+      INTEGER   ij,l
+
+!-----------------------------------------------------------------------
+!   Compute dynamical tendencies:
+!--------------------------------
+
+      ! compute contravariant winds ucont() and vcont
+      CALL covcont  ( llm    , ucov    , vcov , ucont, vcont        )
+      ! compute pressure p()
+      CALL pression ( ip1jmp1, ap      , bp   ,  ps  , p            )
+      ! compute psexbarxy() XY-area weighted-averaged surface pressure (what for?)
+      CALL psextbar (   ps   , psexbarxy                            )
+      ! compute mass in each atmospheric mesh: masse()
+      CALL massdair (    p   , masse                                )
+      ! compute X and Y-averages of mass, massebx() and masseby()
+      CALL massbar  (   masse, massebx , masseby                    )
+      ! compute XY-average of mass, massebxy()
+      call massbarxy(   masse, massebxy                             )
+      ! compute mass fluxes pbaru() and pbarv()
+      CALL flumass  ( massebx, masseby , vcont, ucont ,pbaru, pbarv )
+      ! compute dteta() , horizontal converging flux of theta
+      CALL dteta1   (   teta , pbaru   , pbarv, dteta               )
+      ! compute convm(), horizontal converging flux of mass
+      CALL convmas  (   pbaru, pbarv   , convm                      )
+
+      ! compute pressure variation due to mass convergence
+      DO ij =1, ip1jmp1
+         dp( ij ) = convm( ij,1 ) / airesurg( ij )
+      ENDDO
+
+      ! compute vertical velocity w()
+      CALL vitvert ( convm  , w                                  )
+      ! compute potential vorticity vorpot()
+      CALL tourpot ( vcov   , ucov  , massebxy  , vorpot         )
+      ! compute rotation induced du() and dv()
+      CALL dudv1   ( vorpot , pbaru , pbarv     , du     , dv    )
+      ! compute kinetic energy ecin()
+      CALL enercin ( vcov   , ucov  , vcont     , ucont  , ecin  )
+      ! compute Bernouilli function bern()
+      CALL bernoui ( ip1jmp1, llm   , phi       , ecin   , bern  )
+      ! compute and add du() and dv() contributions from Bernouilli and pressure 
+      CALL dudv2   ( teta   , pkf   , bern      , du     , dv    )
+
+
+      DO l=1,llm
+         DO ij=1,ip1jmp1
+            ang(ij,l) = ucov(ij,l) + constang(ij)
+         ENDDO
+      ENDDO
+
+      ! compute vertical advection contributions to du(), dv() and dteta()
+      CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta ) 
+
+!  WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi 
+!          probablement. Observe sur le code compile avec pgf90 3.0-1 
+
+      DO l = 1, llm
+         DO ij = 1, ip1jm, iip1
+           IF( dv(ij,l).NE.dv(ij+iim,l) )  THEN
+!         PRINT *,'!!!ATTENTION!!! probleme de periodicite sur vcov',  
+!    ,   ' dans caldyn'
+!         PRINT *,' l,  ij = ', l, ij, ij+iim,dv(ij+iim,l),dv(ij,l)
+          dv(ij+iim,l) = dv(ij,l)
+           ENDIF
+         ENDDO
+      ENDDO
+
+!-----------------------------------------------------------------------
+!   Output some control variables:
+!---------------------------------
+
+      IF( conser )  THEN
+        CALL sortvarc
+     & ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )
+      ENDIF
+
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/check_isotopes.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/check_isotopes.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/check_isotopes.F	(revision 3330)
@@ -0,0 +1,201 @@
+        subroutine check_isotopes_seq(q,ip1jmp1,err_msg)
+        USE infotrac
+        implicit none
+
+#include "dimensions.h"
+
+        ! inputs
+        integer ip1jmp1
+        real q(ip1jmp1,llm,nqtot)
+        character*(*) err_msg ! message d''erreur à afficher
+
+        ! locals
+        integer ixt,phase,k,i,iq,iiso,izone,ieau,iqeau
+        real xtractot,xiiso
+        real borne
+        real qmin
+        real errmax ! erreur maximale en absolu.
+        real errmaxrel ! erreur maximale en relatif autorisée
+        real deltaDmax,deltaDmin
+        real ridicule
+        parameter (borne=1e19)
+        parameter (errmax=1e-8)
+        parameter (errmaxrel=1e-3)
+        parameter (qmin=1e-11)
+        parameter (deltaDmax=200.0,deltaDmin=-999.9)
+        parameter (ridicule=1e-12)
+        real deltaD
+
+        if (ok_isotopes) then
+
+        write(*,*) 'check_isotopes 31: err_msg=',err_msg
+        ! verifier que rien n'est NaN
+        do ixt=1,ntraciso
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+            do k=1,llm
+              DO i = 1,ip1jmp1
+                if ((q(i,k,iq).gt.-borne).and.
+     :            (q(i,k,iq).lt.borne)) then
+                else !if ((x(ixt,i,j).gt.-borne).and.
+                  write(*,*) 'erreur detectee par iso_verif_noNaN:'
+                  write(*,*) err_msg
+                  write(*,*) 'q,i,k,iq=',q(i,k,iq),i,k,iq
+                  write(*,*) 'borne=',borne
+                  stop
+                endif  !if ((x(ixt,i,j).gt.-borne).and.
+              enddo !DO i = 1,ip1jmp1
+            enddo !do k=1,llm
+          enddo !do phase=1,nqo
+        enddo !do ixt=1,ntraciso
+
+        !write(*,*) 'check_isotopes 52'
+        ! verifier que l'eau normale est OK
+        if (use_iso(1)) then
+          ixt=indnum_fn_num(1)
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+            do k=1,llm
+            DO i = 1,ip1jmp1  
+              if ((abs(q(i,k,phase)-q(i,k,iq)).gt.errmax).and.
+     :          (abs((q(i,k,phase)-q(i,k,iq))/
+     :           max(max(abs(q(i,k,phase)),abs(q(i,k,iq))),1e-18))
+     :           .gt.errmaxrel)) then
+                  write(*,*) 'erreur detectee par iso_verif_egalite:'
+                  write(*,*) err_msg
+                  write(*,*) 'ixt,phase=',ixt,phase
+                  write(*,*) 'q,iq,i,k=',q(i,k,iq),iq,i,k
+                  write(*,*) 'q(i,k,phase)=',q(i,k,phase)
+                  stop
+              endif !if ((abs(q(i,k,phase)-q(i,k,iq)).gt.errmax).and.
+              ! bidouille pour éviter divergence:
+              q(i,k,iq)= q(i,k,phase) 
+            enddo ! DO i = 1,ip1jmp1
+            enddo !do k=1,llm
+          enddo ! do phase=1,nqo 
+        endif !if (use_iso(1)) then
+        
+        !write(*,*) 'check_isotopes 78'
+        ! verifier que HDO est raisonable
+        if (use_iso(2)) then
+          ixt=indnum_fn_num(2)
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+            do k=1,llm
+            DO i = 1,ip1jmp1
+            if (q(i,k,iq).gt.qmin) then
+             deltaD=(q(i,k,iq)/q(i,k,phase)/tnat(2)-1)*1000
+             if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur detectee par iso_verif_aberrant:'
+                  write(*,*) err_msg
+                  write(*,*) 'ixt,phase=',ixt,phase
+                  write(*,*) 'q,iq,i,k,=',q(i,k,iq),iq,i,k
+                  write(*,*) 'q=',q(i,k,:)
+                  write(*,*) 'deltaD=',deltaD
+                  stop
+             endif !if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+            endif !if (q(i,k,iq).gt.qmin) then
+            enddo !DO i = 1,ip1jmp1
+            enddo !do k=1,llm
+          enddo ! do phase=1,nqo 
+        endif !if (use_iso(2)) then
+
+        !write(*,*) 'check_isotopes 103'
+        ! verifier que O18 est raisonable
+        if (use_iso(3)) then
+          ixt=indnum_fn_num(3)
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+            do k=1,llm
+            DO i = 1,ip1jmp1
+            if (q(i,k,iq).gt.qmin) then
+             deltaD=(q(i,k,iq)/q(i,k,phase)/tnat(3)-1)*1000
+             if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur detectee iso_verif_aberrant O18:'
+                  write(*,*) err_msg
+                  write(*,*) 'ixt,phase=',ixt,phase
+                  write(*,*) 'q,iq,i,k,=',q(i,k,phase),iq,i,k
+                  write(*,*) 'xt=',q(i,k,:)
+                  write(*,*) 'deltaO18=',deltaD
+                  stop
+             endif !if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+            endif !if (q(i,k,iq).gt.qmin) then
+            enddo !DO i = 1,ip1jmp1
+            enddo !do k=1,llm
+          enddo ! do phase=1,nqo 
+        endif !if (use_iso(2)) then
+
+
+        !write(*,*) 'check_isotopes 129'
+        if (ok_isotrac) then
+
+          if (use_iso(2).and.use_iso(1)) then
+            do izone=1,ntraceurs_zone
+             ixt=index_trac(izone,indnum_fn_num(2))
+             ieau=index_trac(izone,indnum_fn_num(1))
+             do phase=1,nqo
+               iq=iqiso(ixt,phase)
+               iqeau=iqiso(ieau,phase)
+               do k=1,llm
+                DO i = 1,ip1jmp1
+                if (q(i,k,iq).gt.qmin) then
+                 deltaD=(q(i,k,iq)/q(i,k,iqeau)/tnat(2)-1)*1000
+                 if ((deltaD.gt.deltaDmax).or.
+     &                   (deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur dans iso_verif_aberrant trac:'
+                  write(*,*) err_msg
+                  write(*,*) 'izone,phase=',izone,phase
+                  write(*,*) 'ixt,ieau=',ixt,ieau
+                  write(*,*) 'q,iq,i,k,=',q(i,k,iq),iq,i,k
+                  write(*,*) 'deltaD=',deltaD
+                  stop
+                 endif !if ((deltaD.gt.deltaDmax).or.
+                endif !if (q(i,k,iq).gt.qmin) then
+                enddo !DO i = 1,ip1jmp1
+                enddo  ! do k=1,llm
+              enddo ! do phase=1,nqo    
+            enddo !do izone=1,ntraceurs_zone
+          endif !if (use_iso(2).and.use_iso(1)) then
+
+          do iiso=1,niso
+           do phase=1,nqo
+              iq=iqiso(iiso,phase)
+              do k=1,llm
+                DO i = 1,ip1jmp1
+                   xtractot=0.0
+                   xiiso=q(i,k,iq)
+                   do izone=1,ntraceurs_zone
+                      iq=iqiso(index_trac(izone,iiso),phase)
+                      xtractot=xtractot+ q(i,k,iq)
+                   enddo !do izone=1,ntraceurs_zone
+                   if ((abs(xtractot-xiiso).gt.errmax).and.
+     :                  (abs(xtractot-xiiso)/
+     :                  max(max(abs(xtractot),abs(xiiso)),1e-18)
+     :                  .gt.errmaxrel)) then
+                  write(*,*) 'erreur detectee par iso_verif_traceurs:'
+                  write(*,*) err_msg
+                  write(*,*) 'iiso,phase=',iiso,phase
+                  write(*,*) 'i,k,=',i,k
+                  write(*,*) 'q(i,k,:)=',q(i,k,:)
+                  stop
+                 endif !if ((abs(q(i,k,phase)-q(i,k,iq)).gt.errmax).and.
+                  
+                 ! bidouille pour éviter divergence:
+                 if (abs(xtractot).gt.ridicule) then
+                   do izone=1,ntraceurs_zone
+                     ixt=index_trac(izone,iiso) 
+                     q(i,k,iq)=q(i,k,iq)/xtractot*xiiso
+                   enddo !do izone=1,ntraceurs_zone                
+                  endif !if ((abs(xtractot).gt.ridicule) then
+                enddo !DO i = 1,ip1jmp1
+              enddo !do k=1,llm
+           enddo !do phase=1,nqo
+          enddo !do iiso=1,niso
+
+        endif !if (ok_isotrac) then
+
+        endif ! if (ok_isotopes)
+        !write(*,*) 'check_isotopes 198'
+        
+        end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/conf_gcm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/conf_gcm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/conf_gcm.F90	(revision 3330)
@@ -0,0 +1,904 @@
+
+! $Id$
+
+SUBROUTINE conf_gcm( tapedef, etatinit )
+
+  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
+  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
+                          iflag_top_bound, mode_top_bound, tau_top_bound, &
+                          ngroup
+  USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, &
+                       ok_guide, ok_limit, ok_strato, purmats, read_start, &
+                       ysinus
+  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
+                       alphax,alphay,taux,tauy
+  USE temps_mod, ONLY: calend
+
+  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 .
+
+  LOGICAL,INTENT(IN) :: etatinit
+  INTEGER,INTENT(IN) :: tapedef
+
+  !   Declarations :
+  !   --------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissnew.h"
+  include "iniprint.h"
+
+  !   local:
+  !   ------
+
+  REAL clonn,clatt,grossismxx,grossismyy
+  REAL dzoomxx,dzoomyy, tauxx,tauyy
+  LOGICAL  fxyhypbb, ysinuss
+
+  !  -------------------------------------------------------------------
+
+  !       .........     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\'ebogage
+  !Config  Def  = 0
+  !Config  Help = Niveau d'impression pour le d\'ebogage
+  !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 )
+
+  ! ngroup
+  ngroup=3
+  CALL getin('ngroup',ngroup)
+
+
+  ! 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)
+
+  !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.2
+     CALL getin('dzoomx',dzoomx)
+     call assert(dzoomx < 1, "conf_gcm: dzoomx must be < 1")
+
+     !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.2
+     CALL getin('dzoomy',dzoomy)
+     call assert(dzoomy < 1, "conf_gcm: dzoomy must be < 1")
+
+     !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 = ok_strato
+     !Config  Desc = activation de la version strato
+     !Config  Def  = .FALSE.
+     !Config  Help = active la version stratosph\'erique 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/IPSLCM5A2.1_ISO/libf/dyn3d/covnat.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/covnat.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/covnat.F	(revision 3330)
@@ -0,0 +1,49 @@
+!
+! $Header$
+!
+      SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  F Hourdin Phu LeVan
+c   -------
+c
+c   Objet:
+c   ------
+c
+c  *********************************************************************
+c    calcul des compos. naturelles a partir des comp.covariantes
+c  ********************************************************************
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
+      REAL unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
+      INTEGER   l,ij
+
+
+      DO l = 1,klevel
+         DO ij = 1, iip1
+            unat (ij,l) =0.
+         END DO
+
+         DO ij = iip2, ip1jm
+            unat( ij,l ) = ucov( ij,l ) / cu(ij)
+         ENDDO
+         DO ij = ip1jm+1, ip1jmp1  
+            unat (ij,l) =0.
+         END DO
+
+         DO ij = 1,ip1jm
+            vnat( ij,l ) = vcov( ij,l ) / cv(ij)
+         ENDDO
+
+      ENDDO
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dissip.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dissip.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dissip.F	(revision 3330)
@@ -0,0 +1,149 @@
+!
+! $Id$
+!
+      SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh )
+c
+      USE comconst_mod, ONLY: dtdiss
+      
+      IMPLICIT NONE
+
+
+c ..  Avec nouveaux operateurs star :  gradiv2 , divgrad2, nxgraro2  ...
+c                                 (  10/01/98  )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   Dissipation horizontale
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "comdissnew.h"
+      include "comdissipn.h"
+
+c   Arguments:
+c   ----------
+
+      REAL,INTENT(IN) :: vcov(ip1jm,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ip1jmp1,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ip1jmp1,llm) ! potential temperature
+      REAL,INTENT(IN) :: p(ip1jmp1,llmp1) ! pressure
+      ! tendencies (.../s) on covariant winds and potential temperature
+      REAL,INTENT(OUT) :: dv(ip1jm,llm)
+      REAL,INTENT(OUT) :: du(ip1jmp1,llm)
+      REAL,INTENT(OUT) :: dh(ip1jmp1,llm)
+
+c   Local:
+c   ------
+
+      REAL gdx(ip1jmp1,llm),gdy(ip1jm,llm)
+      REAL grx(ip1jmp1,llm),gry(ip1jm,llm)
+      REAL te1dt(llm),te2dt(llm),te3dt(llm)
+      REAL deltapres(ip1jmp1,llm)
+
+      INTEGER l,ij
+
+      REAL  SSUM
+
+c-----------------------------------------------------------------------
+c   initialisations:
+c   ----------------
+
+      DO l=1,llm
+         te1dt(l) = tetaudiv(l) * dtdiss
+         te2dt(l) = tetaurot(l) * dtdiss
+         te3dt(l) = tetah(l)    * dtdiss
+      ENDDO
+      du=0.
+      dv=0.
+      dh=0.
+
+c-----------------------------------------------------------------------
+c   Calcul de la dissipation:
+c   -------------------------
+
+c   Calcul de la partie   grad  ( div ) :
+c   -------------------------------------
+
+
+      IF(lstardis) THEN
+         CALL gradiv2( llm,ucov,vcov,nitergdiv,gdx,gdy )
+      ELSE
+         CALL gradiv ( llm,ucov,vcov,nitergdiv,gdx,gdy )
+      ENDIF
+
+      DO l=1,llm
+
+         DO ij = 1, iip1
+            gdx(     ij ,l) = 0.
+            gdx(ij+ip1jm,l) = 0.
+         ENDDO
+
+         DO ij = iip2,ip1jm
+            du(ij,l) = du(ij,l) - te1dt(l) *gdx(ij,l)
+         ENDDO
+         DO ij = 1,ip1jm
+            dv(ij,l) = dv(ij,l) - te1dt(l) *gdy(ij,l)
+         ENDDO
+
+       ENDDO
+
+c   calcul de la partie   n X grad ( rot ):
+c   ---------------------------------------
+
+      IF(lstardis) THEN
+         CALL nxgraro2( llm,ucov, vcov, nitergrot,grx,gry )
+      ELSE
+         CALL nxgrarot( llm,ucov, vcov, nitergrot,grx,gry )
+      ENDIF
+
+
+      DO l=1,llm
+         DO ij = 1, iip1
+            grx(ij,l) = 0.
+         ENDDO
+
+         DO ij = iip2,ip1jm
+            du(ij,l) = du(ij,l) - te2dt(l) * grx(ij,l)
+         ENDDO
+         DO ij =  1, ip1jm
+            dv(ij,l) = dv(ij,l) - te2dt(l) * gry(ij,l)
+         ENDDO
+      ENDDO
+
+c   calcul de la partie   div ( grad ):
+c   -----------------------------------
+
+        
+      IF(lstardis) THEN
+
+       DO l = 1, llm
+          DO ij = 1, ip1jmp1
+            deltapres(ij,l) = AMAX1( 0.,  p(ij,l) - p(ij,l+1) )
+          ENDDO
+       ENDDO
+
+         CALL divgrad2( llm,teta, deltapres  ,niterh, gdx )
+      ELSE
+         CALL divgrad ( llm,teta, niterh, gdx        )
+      ENDIF
+
+      DO l = 1,llm
+         DO ij = 1,ip1jmp1
+            dh( ij,l ) = dh( ij,l ) - te3dt(l) * gdx( ij,l )
+         ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dteta1.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dteta1.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dteta1.F	(revision 3330)
@@ -0,0 +1,67 @@
+!
+! $Header$
+!
+      SUBROUTINE dteta1 ( teta, pbaru, pbarv, dteta)
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c Modif F.Forget 03/94 (on retire q et dq  pour construire dteta1)
+c
+c   ********************************************************************
+c   ... calcul du terme de convergence horizontale du flux d'enthalpie
+c        potentielle   ......
+c   ********************************************************************
+c  .. teta,pbaru et pbarv sont des arguments d'entree  pour le s-pg ....
+c     dteta 	          sont des arguments de sortie pour le s-pg ....
+c
+c=======================================================================
+
+
+      include "dimensions.h"
+      include "paramet.h"
+
+      REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL dteta( ip1jmp1,llm )
+      INTEGER   l,ij
+
+      REAL hbyv( ip1jm,llm ), hbxu( ip1jmp1,llm )
+
+c
+
+      DO 5 l = 1,llm
+
+      DO 1  ij = iip2, ip1jm - 1
+      hbxu(ij,l) = pbaru(ij,l) * 0.5 * ( teta(ij,l) + teta(ij+1,l) )
+   1  CONTINUE
+
+c    .... correction pour  hbxu(iip1,j,l)  .....
+c    ....   hbxu(iip1,j,l)= hbxu(1,j,l) ....
+
+CDIR$ IVDEP
+      DO 2 ij = iip1+ iip1, ip1jm, iip1
+      hbxu( ij, l ) = hbxu( ij - iim, l )
+   2  CONTINUE
+
+
+      DO 3 ij = 1,ip1jm
+      hbyv(ij,l)= pbarv(ij, l)* 0.5 * ( teta(ij, l)+ teta(ij +iip1,l) )
+   3  CONTINUE
+
+   5  CONTINUE
+
+
+        CALL  convflu ( hbxu, hbyv, llm, dteta )
+
+
+c    stockage dans  dh de la convergence horizont. filtree' du  flux
+c                  ....                           ...........
+c           d'enthalpie potentielle .
+
+      CALL filtreg( dteta, jjp1, llm, 2, 2, .true., 1)
+
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dudv1.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dudv1.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dudv1.F	(revision 3330)
@@ -0,0 +1,53 @@
+!
+! $Header$
+!
+      SUBROUTINE dudv1 ( vorpot, pbaru, pbarv, du, dv )
+      IMPLICIT NONE
+c
+c-----------------------------------------------------------------------
+c
+c   Auteur:   P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c   calcul du terme de  rotation
+c   ce terme est ajoute a  d(ucov)/dt et a d(vcov)/dt  ..
+c   vorpot, pbaru et pbarv sont des arguments d'entree  pour le s-pg ..
+c   du  et dv              sont des arguments de sortie pour le s-pg ..
+c
+c-----------------------------------------------------------------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) ,
+     *     pbarv( ip1jm,llm ) ,du( ip1jmp1,llm ) ,dv( ip1jm,llm )
+      INTEGER  l,ij
+c
+c
+      DO 10 l = 1,llm
+c
+      DO 2  ij = iip2, ip1jm - 1
+      du( ij,l ) = 0.125 *(  vorpot(ij-iip1, l) + vorpot( ij, l)  ) *
+     *                    (   pbarv(ij-iip1, l) + pbarv(ij-iim,  l) +
+     *                        pbarv(   ij  , l) + pbarv(ij+ 1 ,  l)   )
+   2  CONTINUE
+c
+      DO 3 ij = 1, ip1jm - 1
+      dv( ij+1,l ) = - 0.125 *(  vorpot(ij, l)  + vorpot(ij+1, l)  ) *
+     *                        (   pbaru(ij, l)  +  pbaru(ij+1   , l) +
+     *                       pbaru(ij+iip1, l)  +  pbaru(ij+iip2, l)  )
+   3  CONTINUE
+c
+c    .... correction  pour  dv( 1,j,l )  .....
+c    ....   dv(1,j,l)= dv(iip1,j,l) ....
+c
+CDIR$ IVDEP
+      DO 4 ij = 1, ip1jm, iip1
+      dv( ij,l ) = dv( ij + iim, l )
+   4  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dudv2.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dudv2.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dudv2.F	(revision 3330)
@@ -0,0 +1,62 @@
+!
+! $Header$
+!
+      SUBROUTINE dudv2 ( teta, pkf, bern, du, dv  )
+
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *****************************************************************
+c   ..... calcul du terme de pression (gradient de p/densite )   et
+c          du terme de ( -gradient de la fonction de Bernouilli ) ...
+c   *****************************************************************
+c          Ces termes sont ajoutes a  d(ucov)/dt et a d(vcov)/dt  ..
+c
+c
+c    teta , pkf, bern  sont des arguments d'entree  pour le s-pg  ....
+c    du et dv          sont des arguments de sortie pour le s-pg  ....
+c
+c=======================================================================
+c
+      include "dimensions.h"
+      include "paramet.h"
+
+      REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),
+     *         du( ip1jmp1,llm ),  dv( ip1jm,llm )
+      INTEGER  l,ij
+c
+c
+      DO 5 l = 1,llm
+c
+      DO 2  ij  = iip2, ip1jm - 1
+       du(ij,l) = du(ij,l) + 0.5* ( teta( ij,l ) + teta( ij+1,l ) ) *
+     * ( pkf( ij,l ) - pkf(ij+1,l) )  + bern(ij,l) - bern(ij+1,l)
+   2  CONTINUE
+c
+c
+c    .....  correction  pour du(iip1,j,l),  j=2,jjm   ......
+c    ...          du(iip1,j,l) = du(1,j,l)                 ...
+c
+CDIR$ IVDEP
+      DO 3 ij = iip1+ iip1, ip1jm, iip1
+      du( ij,l ) = du( ij - iim,l )
+   3  CONTINUE
+c
+c
+      DO 4 ij  = 1,ip1jm
+      dv( ij,l) = dv(ij,l) + 0.5 * ( teta(ij,l) + teta( ij+iip1,l ) ) *
+     *                             ( pkf(ij+iip1,l) - pkf(  ij,l  ) )
+     *                           +   bern( ij+iip1,l ) - bern( ij  ,l )
+   4  CONTINUE
+c
+   5  CONTINUE
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynetat0.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynetat0.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynetat0.f90	(revision 3330)
@@ -0,0 +1,203 @@
+SUBROUTINE dynetat0(fichnom,vcov,ucov,teta,q,masse,ps,phis,time)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , L.Fairhead
+!-------------------------------------------------------------------------------
+! Purpose: Initial state reading.
+!-------------------------------------------------------------------------------
+  USE infotrac
+  USE netcdf,      ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_INQ_VARID, NF90_NoErr, &
+                         NF90_CLOSE, NF90_GET_VAR
+  USE control_mod, ONLY: planet_type
+  USE assert_eq_m, ONLY: assert_eq
+  USE comvert_mod, ONLY: pa,preff
+  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, omeg, rad
+  USE logic_mod, ONLY: fxyhypb, ysinus
+  USE serre_mod, ONLY: clon, clat, grossismx, grossismy
+  USE temps_mod, ONLY: annee_ref, day_ini, day_ref, itau_dyn, start_time
+
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME
+  REAL, INTENT(OUT) ::  vcov(iip1,jjm, llm)        !--- V COVARIANT WIND
+  REAL, INTENT(OUT) ::  ucov(iip1,jjp1,llm)        !--- U COVARIANT WIND
+  REAL, INTENT(OUT) ::  teta(iip1,jjp1,llm)        !--- POTENTIAL TEMP.
+  REAL, INTENT(OUT) ::     q(iip1,jjp1,llm,nqtot)  !--- TRACERS
+  REAL, INTENT(OUT) :: masse(iip1,jjp1,llm)        !--- MASS PER CELL
+  REAL, INTENT(OUT) ::    ps(iip1,jjp1)            !--- GROUND PRESSURE
+  REAL, INTENT(OUT) ::  phis(iip1,jjp1)            !--- GEOPOTENTIAL
+!===============================================================================
+! Local variables:
+  CHARACTER(LEN=256) :: msg, var, modname
+  INTEGER, PARAMETER :: length=100
+  INTEGER :: iq, fID, vID, idecal!, iml, jml, lml, nqt
+  REAL    :: time, tab_cntrl(length)               !--- RUN PARAMS TABLE
+!-------------------------------------------------------------------------------
+  modname="dynetat0"
+
+!--- Initial state file opening
+  var=fichnom
+  CALL err(NF90_OPEN(var,NF90_NOWRITE,fID),"open",var)
+  CALL get_var1("controle",tab_cntrl)
+
+!!! AS: idecal is a hack to be able to read planeto starts...
+!!!     .... while keeping everything OK for LMDZ EARTH
+  IF(planet_type=="generic") THEN
+    WRITE(lunout,*)'NOTE NOTE NOTE : Planeto-like start files'
+    idecal = 4
+    annee_ref  = 2000
+  ELSE
+    WRITE(lunout,*)'NOTE NOTE NOTE : Earth-like start files'
+    idecal = 5
+    annee_ref  = tab_cntrl(5)
+  END IF
+  im         = tab_cntrl(1)
+  jm         = tab_cntrl(2)
+  lllm       = tab_cntrl(3)
+  day_ref    = tab_cntrl(4)
+  rad        = tab_cntrl(idecal+1)
+  omeg       = tab_cntrl(idecal+2)
+  g          = tab_cntrl(idecal+3)
+  cpp        = tab_cntrl(idecal+4)
+  kappa      = tab_cntrl(idecal+5)
+  daysec     = tab_cntrl(idecal+6)
+  dtvr       = tab_cntrl(idecal+7)
+  etot0      = tab_cntrl(idecal+8)
+  ptot0      = tab_cntrl(idecal+9)
+  ztot0      = tab_cntrl(idecal+10)
+  stot0      = tab_cntrl(idecal+11)
+  ang0       = tab_cntrl(idecal+12)
+  pa         = tab_cntrl(idecal+13)
+  preff      = tab_cntrl(idecal+14)
+!
+  clon       = tab_cntrl(idecal+15)
+  clat       = tab_cntrl(idecal+16)
+  grossismx  = tab_cntrl(idecal+17)
+  grossismy  = tab_cntrl(idecal+18)
+!
+  IF ( tab_cntrl(idecal+19)==1. )  THEN
+    fxyhypb  = .TRUE.
+!   dzoomx   = tab_cntrl(25)
+!   dzoomy   = tab_cntrl(26)
+!   taux     = tab_cntrl(28)
+!   tauy     = tab_cntrl(29)
+  ELSE
+    fxyhypb = .FALSE.
+    ysinus  = tab_cntrl(idecal+22)==1.
+  END IF
+
+  day_ini    = tab_cntrl(30)
+  itau_dyn   = tab_cntrl(31)
+  start_time = tab_cntrl(32)
+
+!-------------------------------------------------------------------------------
+  WRITE(lunout,*)TRIM(modname)//': rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa
+  CALL check_dim(im,iim,'im','im')
+  CALL check_dim(jm,jjm,'jm','jm')
+  CALL check_dim(lllm,llm,'lm','lllm')
+  CALL get_var1("rlonu",rlonu)
+  CALL get_var1("rlatu",rlatu)
+  CALL get_var1("rlonv",rlonv)
+  CALL get_var1("rlatv",rlatv)
+  CALL get_var2("cu"   ,cu)
+  CALL get_var2("cv"   ,cv)
+  CALL get_var2("aire" ,aire)
+  var="temps"
+  IF(NF90_INQ_VARID(fID,var,vID)/=NF90_NoErr) THEN
+    WRITE(lunout,*)TRIM(modname)//": missing field <temps>"
+    WRITE(lunout,*)TRIM(modname)//": trying with <Time>"; var="Time"
+    CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  END IF
+  CALL err(NF90_GET_VAR(fID,vID,time),"get",var)
+  CALL get_var2("phisinit",phis)
+  CALL get_var3("ucov",ucov)
+  CALL get_var3("vcov",vcov)
+  CALL get_var3("teta",teta)
+  CALL get_var3("masse",masse)
+  CALL get_var2("ps",ps)
+
+!--- Tracers
+  DO iq=1,nqtot
+    var=tname(iq)
+    IF(NF90_INQ_VARID(fID,var,vID)==NF90_NoErr) THEN
+      CALL err(NF90_GET_VAR(fID,vID,q(:,:,:,iq)),"get",var); CYCLE
+    END IF
+    WRITE(lunout,*)TRIM(modname)//": Tracer <"//TRIM(var)//"> is missing"
+    WRITE(lunout,*)"         It is hence initialized to zero"
+    q(:,:,:,iq)=0.
+   !--- CRisi: for isotops, theoretical initialization using very simplified
+   !           Rayleigh distillation las.
+    IF(ok_isotopes.AND.iso_num(iq)>0) THEN
+      IF(zone_num(iq)==0) q(:,:,:,iq)=q(:,:,:,iqpere(iq))*tnat(iso_num(iq))    &
+     &             *(q(:,:,:,iqpere(iq))/30.e-3)**(alpha_ideal(iso_num(iq))-1)
+      IF(zone_num(iq)==1) q(:,:,:,iq)=q(:,:,:,iqiso(iso_indnum(iq),phase_num(iq)))
+    END IF
+  END DO
+
+  CALL err(NF90_CLOSE(fID),"close",fichnom)
+  day_ini=day_ini+INT(time)
+  time=time-INT(time)
+
+
+  CONTAINS
+
+
+SUBROUTINE check_dim(n1,n2,str1,str2)
+  INTEGER,          INTENT(IN) :: n1, n2
+  CHARACTER(LEN=*), INTENT(IN) :: str1, str2
+  CHARACTER(LEN=256) :: s1, s2
+  IF(n1/=n2) THEN
+    s1='value of '//TRIM(str1)//' ='
+    s2=' read in starting file differs from parametrized '//TRIM(str2)//' ='
+    WRITE(msg,'(10x,a,i4,2x,a,i4)'),s1,n1,s2,n2
+    CALL ABORT_gcm(TRIM(modname),TRIM(msg),1)
+  END IF
+END SUBROUTINE check_dim
+
+
+SUBROUTINE get_var1(var,v)
+  CHARACTER(LEN=*), INTENT(IN)  :: var
+  REAL,             INTENT(OUT) :: v(:)
+  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  CALL err(NF90_GET_VAR(fID,vID,v),"get",var)
+END SUBROUTINE get_var1
+
+
+SUBROUTINE get_var2(var,v)
+  CHARACTER(LEN=*), INTENT(IN)  :: var
+  REAL,             INTENT(OUT) :: v(:,:)
+  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  CALL err(NF90_GET_VAR(fID,vID,v),"get",var)
+END SUBROUTINE get_var2
+
+
+SUBROUTINE get_var3(var,v)
+  CHARACTER(LEN=*), INTENT(IN)  :: var
+  REAL,             INTENT(OUT) :: v(:,:,:)
+  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  CALL err(NF90_GET_VAR(fID,vID,v),"get",var)
+END SUBROUTINE get_var3
+
+
+SUBROUTINE err(ierr,typ,nam)
+  INTEGER,          INTENT(IN) :: ierr   !--- NetCDF ERROR CODE
+  CHARACTER(LEN=*), INTENT(IN) :: typ    !--- TYPE OF OPERATION
+  CHARACTER(LEN=*), INTENT(IN) :: nam    !--- FIELD/FILE NAME
+  IF(ierr==NF90_NoERR) RETURN
+  SELECT CASE(typ)
+    CASE('inq');   msg="Field <"//TRIM(nam)//"> is missing"
+    CASE('get');   msg="Reading failed for <"//TRIM(nam)//">"
+    CASE('open');  msg="File opening failed for <"//TRIM(nam)//">"
+    CASE('close'); msg="File closing failed for <"//TRIM(nam)//">"
+  END SELECT
+  CALL ABORT_gcm(TRIM(modname),TRIM(msg),ierr)
+END SUBROUTINE err
+
+END SUBROUTINE dynetat0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynredem.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynredem.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynredem.F90	(revision 3330)
@@ -0,0 +1,250 @@
+SUBROUTINE dynredem0(fichnom,iday_end,phis)
+!
+!-------------------------------------------------------------------------------
+! Write the NetCDF restart file (initialization).
+!-------------------------------------------------------------------------------
+#ifdef CPP_IOIPSL
+  USE IOIPSL
+#endif
+  USE infotrac
+  USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
+                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER
+  USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil
+  USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, &
+                              nivsig,nivsigs
+  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
+  USE logic_mod, ONLY: fxyhypb, ysinus
+  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
+                              taux,tauy
+  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itaufin, start_time
+  
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME
+  INTEGER,          INTENT(IN) :: iday_end         !--- 
+  REAL,             INTENT(IN) :: phis(iip1, jjp1) !--- GROUND GEOPOTENTIAL
+!===============================================================================
+! Local variables:
+  INTEGER :: iq, l
+  INTEGER, PARAMETER :: length=100
+  REAL    :: tab_cntrl(length)                     !--- RUN PARAMETERS TABLE
+!   For NetCDF:
+  CHARACTER(LEN=30) :: unites
+  INTEGER :: indexID
+  INTEGER :: rlonuID, rlonvID, rlatuID, rlatvID
+  INTEGER :: sID, sigID, nID, vID, timID
+  INTEGER :: yyears0, jjour0, mmois0
+  REAL    :: zan0, zjulian, hours
+!===============================================================================
+  modname='dynredem0'; fil=fichnom
+#ifdef CPP_IOIPSL
+  CALL ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
+  CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
+#else
+! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
+  yyears0=0
+  mmois0=1
+  jjour0=1
+#endif        
+
+  tab_cntrl(:)  = 0.
+  tab_cntrl(1)  = REAL(iim)
+  tab_cntrl(2)  = REAL(jjm)
+  tab_cntrl(3)  = REAL(llm)
+  tab_cntrl(4)  = REAL(day_ref)
+  tab_cntrl(5)  = REAL(annee_ref)
+  tab_cntrl(6)  = rad
+  tab_cntrl(7)  = omeg
+  tab_cntrl(8)  = g
+  tab_cntrl(9)  = cpp
+  tab_cntrl(10) = kappa
+  tab_cntrl(11) = daysec
+  tab_cntrl(12) = dtvr
+  tab_cntrl(13) = etot0
+  tab_cntrl(14) = ptot0
+  tab_cntrl(15) = ztot0
+  tab_cntrl(16) = stot0
+  tab_cntrl(17) = ang0
+  tab_cntrl(18) = pa
+  tab_cntrl(19) = preff
+
+!    .....    parameters for zoom    ......   
+  tab_cntrl(20) = clon
+  tab_cntrl(21) = clat
+  tab_cntrl(22) = grossismx
+  tab_cntrl(23) = grossismy
+!
+  IF ( fxyhypb )   THEN
+    tab_cntrl(24) = 1.
+    tab_cntrl(25) = dzoomx
+    tab_cntrl(26) = dzoomy
+    tab_cntrl(27) = 0.
+    tab_cntrl(28) = taux
+    tab_cntrl(29) = tauy
+  ELSE
+    tab_cntrl(24) = 0.
+    tab_cntrl(25) = dzoomx
+    tab_cntrl(26) = dzoomy
+    tab_cntrl(27) = 0.
+    tab_cntrl(28) = 0.
+    tab_cntrl(29) = 0.
+    IF( ysinus )  tab_cntrl(27) = 1.
+  END IF
+  tab_cntrl(30) = REAL(iday_end)
+  tab_cntrl(31) = REAL(itau_dyn + itaufin)
+! start_time: start_time of simulation (not necessarily 0.)
+  tab_cntrl(32) = start_time
+
+!--- File creation
+  CALL err(NF90_CREATE(fichnom,NF90_CLOBBER,nid))
+
+!--- Some global attributes
+  CALL err(NF90_PUT_ATT(nid,NF90_GLOBAL,"title","Fichier demarrage dynamique"))
+
+!--- Dimensions
+  CALL err(NF90_DEF_DIM(nid,"index", length, indexID))
+  CALL err(NF90_DEF_DIM(nid,"rlonu", iip1,   rlonuID))
+  CALL err(NF90_DEF_DIM(nid,"rlatu", jjp1,   rlatuID))
+  CALL err(NF90_DEF_DIM(nid,"rlonv", iip1,   rlonvID))
+  CALL err(NF90_DEF_DIM(nid,"rlatv", jjm,    rlatvID))
+  CALL err(NF90_DEF_DIM(nid,"sigs",  llm,        sID))
+  CALL err(NF90_DEF_DIM(nid,"sig",   llmp1,    sigID))
+  CALL err(NF90_DEF_DIM(nid,"temps", NF90_UNLIMITED, timID))
+
+!--- Define and save invariant fields
+  CALL put_var1(nid,"controle","Parametres de controle" ,[indexID],tab_cntrl)
+  CALL put_var1(nid,"rlonu"   ,"Longitudes des points U",[rlonuID],rlonu)
+  CALL put_var1(nid,"rlatu"   ,"Latitudes des points U" ,[rlatuID],rlatu)
+  CALL put_var1(nid,"rlonv"   ,"Longitudes des points V",[rlonvID],rlonv)
+  CALL put_var1(nid,"rlatv"   ,"Latitudes des points V" ,[rlatvID],rlatv)
+  CALL put_var1(nid,"nivsigs" ,"Numero naturel des couches s"    ,[sID]  ,nivsigs)
+  CALL put_var1(nid,"nivsig"  ,"Numero naturel des couches sigma",[sigID],nivsig)
+  CALL put_var1(nid,"ap"      ,"Coefficient A pour hybride"      ,[sigID],ap)
+  CALL put_var1(nid,"bp"      ,"Coefficient B pour hybride"      ,[sigID],bp)
+  CALL put_var1(nid,"presnivs",""                                ,[sID]  ,presnivs)
+! covariant <-> contravariant <-> natural conversion coefficients
+  CALL put_var2(nid,"cu","Coefficient de passage pour U",[rlonuID,rlatuID],cu)
+  CALL put_var2(nid,"cv","Coefficient de passage pour V",[rlonvID,rlatvID],cv)
+  CALL put_var2(nid,"aire","Aires de chaque maille"     ,[rlonvID,rlatuID],aire)
+  CALL put_var2(nid,"phisinit","Geopotentiel au sol"    ,[rlonvID,rlatuID],phis)
+
+!--- Define fields saved later
+  WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')"),&
+               yyears0,mmois0,jjour0
+  CALL cre_var(nid,"temps","Temps de simulation",[timID],unites)
+  CALL cre_var(nid,"ucov" ,"Vitesse U"  ,[rlonuID,rlatuID,sID,timID])
+  CALL cre_var(nid,"vcov" ,"Vitesse V"  ,[rlonvID,rlatvID,sID,timID])
+  CALL cre_var(nid,"teta" ,"Temperature",[rlonvID,rlatuID,sID,timID])
+  DO iq=1,nqtot
+    CALL cre_var(nid,tname(iq),ttext(iq),[rlonvID,rlatuID,sID,timID])
+  END DO
+  CALL cre_var(nid,"masse","Masse d air"    ,[rlonvID,rlatuID,sID,timID])
+  CALL cre_var(nid,"ps"   ,"Pression au sol",[rlonvID,rlatuID    ,timID])
+  CALL err(NF90_CLOSE (nid))
+
+  WRITE(lunout,*)TRIM(modname)//': iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
+  WRITE(lunout,*)TRIM(modname)//': rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa
+
+END SUBROUTINE dynredem0
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE dynredem1(fichnom,time,vcov,ucov,teta,q,masse,ps)
+!
+!-------------------------------------------------------------------------------
+! Purpose: Write the NetCDF restart file (append).
+!-------------------------------------------------------------------------------
+  USE infotrac
+  USE control_mod
+  USE netcdf,   ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID,  &
+                      NF90_CLOSE, NF90_WRITE,   NF90_PUT_VAR, NF90_NoErr
+  USE dynredem_mod, ONLY: dynredem_write_u, dynredem_write_v, dynredem_read_u, &
+                          err, modname, fil, msg
+  USE temps_mod, ONLY: itau_dyn, itaufin
+  
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "description.h"
+  include "comgeom.h"
+  include "iniprint.h"
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: fichnom              !-- FILE NAME
+  REAL, INTENT(IN)    ::  time                         !-- TIME
+  REAL, INTENT(IN)    ::  vcov(iip1,jjm, llm)          !-- V COVARIANT WIND
+  REAL, INTENT(IN)    ::  ucov(iip1,jjp1,llm)          !-- U COVARIANT WIND
+  REAL, INTENT(IN)    ::  teta(iip1,jjp1,llm)          !-- POTENTIAL TEMPERATURE
+  REAL, INTENT(INOUT) ::     q(iip1,jjp1,llm,nqtot)    !-- TRACERS
+  REAL, INTENT(IN)    :: masse(iip1,jjp1,llm)          !-- MASS PER CELL
+  REAL, INTENT(IN)    ::    ps(iip1,jjp1)              !-- GROUND PRESSURE
+!===============================================================================
+! Local variables:
+  INTEGER :: l, iq, nid, vID, ierr, nid_trac, vID_trac
+  INTEGER, SAVE :: nb=0
+  INTEGER, PARAMETER :: length=100
+  REAL               :: tab_cntrl(length) ! tableau des parametres du run
+  CHARACTER(LEN=256) :: var, dum
+  LOGICAL            :: lread_inca
+!===============================================================================
+
+  modname='dynredem1'; fil=fichnom
+  CALL err(NF90_OPEN(fil,NF90_WRITE,nid),"open",fil)
+
+!--- Write/extend time coordinate
+  nb = nb + 1
+  var="temps"
+  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(NF90_PUT_VAR(nid,vID,[time]),"put",var)
+  WRITE(lunout,*)TRIM(modname)//": Saving for ", nb, time
+
+!--- Rewrite control table (itaufin undefined in dynredem0)
+  var="controle"
+  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(NF90_GET_VAR(nid,vID,tab_cntrl),"get",var)
+  tab_cntrl(31)=DBLE(itau_dyn + itaufin)
+  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(NF90_PUT_VAR(nid,vID,tab_cntrl),"put",var)
+
+!--- Save fields
+  CALL dynredem_write_u(nid,"ucov" ,ucov ,llm)
+  CALL dynredem_write_v(nid,"vcov" ,vcov ,llm)
+  CALL dynredem_write_u(nid,"teta" ,teta ,llm)
+  CALL dynredem_write_u(nid,"masse",masse,llm)
+  CALL dynredem_write_u(nid,"ps"   ,ps   ,1)
+
+!--- Tracers in file "start_trac.nc" (added by Anne)
+  lread_inca=.FALSE.; fil="start_trac.nc"
+  IF(type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)
+  IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")
+
+!--- Save tracers
+  DO iq=1,nqtot; var=tname(iq); ierr=-1
+    IF(lread_inca) THEN                  !--- Possibly read from "start_trac.nc"
+      fil="start_trac.nc"
+      ierr=NF90_INQ_VARID(nid_trac,var,vID_trac)
+      dum='inq'; IF(ierr==NF90_NoErr) dum='fnd'
+      WRITE(lunout,*)msg(dum,var)
+
+
+      IF(ierr==NF90_NoErr) CALL dynredem_read_u(nid_trac,var,q(:,:,:,iq),llm)
+    END IF
+    fil=fichnom
+    CALL dynredem_write_u(nid,var,q(:,:,:,iq),llm)
+  END DO
+  CALL err(NF90_CLOSE(nid),"close")
+  fil="start_trac.nc"
+  IF(lread_inca) CALL err(NF90_CLOSE(nid_trac),"close")
+
+END SUBROUTINE dynredem1
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynredem_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynredem_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/dynredem_mod.F90	(revision 3330)
@@ -0,0 +1,219 @@
+MODULE dynredem_mod
+
+  USE netcdf
+  PRIVATE
+  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
+  PUBLIC :: cre_var, get_var1, put_var1, put_var2, fil, modname, msg
+  include "dimensions.h"
+  include "paramet.h"
+  CHARACTER(LEN=256), SAVE :: fil, modname
+  INTEGER,            SAVE :: nvarid
+
+
+CONTAINS
+
+
+!===============================================================================
+!
+SUBROUTINE dynredem_write_u(ncid,id,var,ll)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,          INTENT(IN) :: ncid
+  CHARACTER(LEN=*), INTENT(IN) :: id
+  REAL,             INTENT(IN) :: var(iip1,jjp1,ll)
+  INTEGER,          INTENT(IN) :: ll
+!===============================================================================
+! Local variables:
+  INTEGER :: start(4), count(4)
+!===============================================================================
+  start(:)=[1,1,1,1]; count(:)=[iip1,jjp1,ll,1]
+  CALL err(NF90_INQ_VARID(ncid,id,nvarid),"inq",id)
+  CALL err(NF90_PUT_VAR(ncid,nvarid,var,start,count),"put",id)
+  
+END SUBROUTINE dynredem_write_u
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE dynredem_write_v(ncid,id,var,ll)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,          INTENT(IN) :: ncid
+  CHARACTER(LEN=*), INTENT(IN) :: id
+  REAL,             INTENT(IN) :: var(iip1,jjm,ll)
+  INTEGER,          INTENT(IN) :: ll
+!===============================================================================
+! Local variables:
+  INTEGER :: start(4), count(4)
+!===============================================================================
+  start(:)=[1,1,1,1]; count(:)=[iip1,jjm,ll,1]
+  CALL err(NF90_INQ_VARID(ncid,id,nvarid),"inq",id)
+  CALL err(NF90_PUT_VAR(ncid,nvarid,var,start,count),"put",id)
+  
+END SUBROUTINE dynredem_write_v
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE dynredem_read_u(ncid,id,var,ll)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,          INTENT(IN)  :: ncid
+  CHARACTER(LEN=*), INTENT(IN)  :: id
+  REAL,             INTENT(OUT) :: var(iip1,jjp1,ll)
+  INTEGER,          INTENT(IN)  :: ll
+!===============================================================================
+! Local variables:
+  INTEGER :: start(4), count(4)
+!===============================================================================
+  start(:)=[1,1,1,1]; count(:)=[iip1,jjp1,ll,1]
+  CALL err(NF90_INQ_VARID(ncid,id,nvarid),"inq",id)
+  CALL err(NF90_GET_VAR(ncid,nvarid,var,start,count),"get",id)
+  
+END SUBROUTINE dynredem_read_u    
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE cre_var(ncid,var,title,did,units)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ncid
+  CHARACTER(LEN=*),           INTENT(IN) :: var, title
+  INTEGER,                    INTENT(IN) :: did(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
+!===============================================================================
+#ifdef NC_DOUBLE
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_DOUBLE,did,nvarid),"inq",var)
+#else
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_FLOAT ,did,nvarid),"inq",var)
+#endif
+  IF(title/="")      CALL err(NF90_PUT_ATT(ncid,nvarid,"title",title),var)
+  IF(PRESENT(units)) CALL err(NF90_PUT_ATT(ncid,nvarid,"units",units),var)
+
+END SUBROUTINE cre_var
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE put_var1(ncid,var,title,did,v,units)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ncid
+  CHARACTER(LEN=*),           INTENT(IN) :: var, title
+  INTEGER,                    INTENT(IN) :: did(1)
+  REAL,                       INTENT(IN) :: v(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
+!===============================================================================
+  IF(     PRESENT(units)) CALL cre_var(ncid,var,title,did,units)
+  IF(.NOT.PRESENT(units)) CALL cre_var(ncid,var,title,did)
+  CALL err(NF90_ENDDEF(ncid))
+  CALL err(NF90_PUT_VAR(ncid,nvarid,v),"put",var)
+  CALL err(NF90_REDEF(ncid))
+
+END SUBROUTINE put_var1
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE put_var2(ncid,var,title,did,v,units)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ncid
+  CHARACTER(LEN=*),           INTENT(IN) :: var, title
+  INTEGER,                    INTENT(IN) :: did(2)
+  REAL,                       INTENT(IN) :: v(:,:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
+!===============================================================================
+  IF(     PRESENT(units)) CALL cre_var(ncid,var,title,did,units)
+  IF(.NOT.PRESENT(units)) CALL cre_var(ncid,var,title,did)
+  CALL err(NF90_ENDDEF(ncid))
+  CALL err(NF90_PUT_VAR(ncid,nvarid,v),"put",var)
+  CALL err(NF90_REDEF(ncid))
+
+END SUBROUTINE put_var2
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+FUNCTION msg(typ,nam)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=256)                     :: msg    !--- STANDARDIZED MESSAGE
+  CHARACTER(LEN=*),           INTENT(IN) :: typ    !--- TYPE OF OPERATION
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: nam    !--- FIELD NAME
+!===============================================================================
+  SELECT CASE(typ)
+    CASE('open');  msg="Opening failed for <"//TRIM(fil)//">"
+    CASE('close'); msg="Closing failed for <"//TRIM(fil)//">"
+    CASE('get');   msg="Reading failed for <"//TRIM(nam)//">"
+    CASE('put');   msg="Writting failed for <"//TRIM(nam)//">"
+    CASE('inq');   msg="Missing field <"//TRIM(nam)//">"
+    CASE('fnd');   msg="Found field <"//TRIM(nam)//">"
+  END SELECT
+  msg=TRIM(msg)//" in file <"//TRIM(fil)//">"
+
+END FUNCTION msg
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE err(ierr,typ,nam)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ierr   !--- NetCDF ERROR CODE
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: typ    !--- TYPE OF OPERATION
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: nam    !--- FIELD NAME
+!===============================================================================
+  IF(ierr==NF90_NoERR) RETURN
+  IF(.NOT.PRESENT(typ)) THEN
+    CALL ABORT_gcm(modname,NF90_STRERROR(ierr),ierr)
+  ELSE
+    CALL ABORT_gcm(modname,msg(typ,nam),ierr)
+  END IF
+
+END SUBROUTINE err
+!
+!===============================================================================
+
+END MODULE dynredem_mod   
+    
+    
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/fluxstokenc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/fluxstokenc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/fluxstokenc.F	(revision 3330)
@@ -0,0 +1,170 @@
+!
+! $Id$
+!
+      SUBROUTINE fluxstokenc(pbaru,pbarv,masse,teta,phi,phis,
+     . time_step,itau )
+#ifdef CPP_IOIPSL
+! This routine is designed to work with ioipsl
+
+       USE IOIPSL
+c
+c     Auteur :  F. Hourdin
+c
+c
+ccc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
+c
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "tracstoke.h"
+      include "iniprint.h"
+
+      REAL time_step,t_wrt, t_ops
+      REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm)
+      REAL masse(ip1jmp1,llm),teta(ip1jmp1,llm),phi(ip1jmp1,llm)
+      REAL phis(ip1jmp1)
+
+      REAL pbaruc(ip1jmp1,llm),pbarvc(ip1jm,llm)
+      REAL massem(ip1jmp1,llm),tetac(ip1jmp1,llm),phic(ip1jmp1,llm)
+
+      REAL pbarug(ip1jmp1,llm),pbarvg(iip1,jjm,llm),wg(ip1jmp1,llm)
+
+      REAL pbarvst(iip1,jjp1,llm),zistdyn
+        real dtcum
+
+      INTEGER iadvtr,ndex(1) 
+      integer nscal
+      real tst(1),ist(1),istp(1)
+      INTEGER ij,l,irec,i,j,itau
+      INTEGER, SAVE :: fluxid, fluxvid,fluxdid
+ 
+      SAVE iadvtr, massem,pbaruc,pbarvc,irec
+      SAVE phic,tetac
+      logical first
+      save first
+      data first/.true./
+      DATA iadvtr/0/
+
+
+c AC initialisations
+      pbarug(:,:)   = 0.
+      pbarvg(:,:,:) = 0.
+      wg(:,:)       = 0.
+      
+
+      if(first) then
+
+        CALL initfluxsto( 'fluxstoke',
+     .  time_step,istdyn* time_step,istdyn* time_step,
+     .  fluxid,fluxvid,fluxdid) 
+        
+        ndex(1) = 0
+        call histwrite(fluxid, 'phis', 1, phis, iip1*jjp1, ndex)
+        call histwrite(fluxid, 'aire', 1, aire, iip1*jjp1, ndex)
+        
+        ndex(1) = 0
+        nscal = 1
+        tst(1) = time_step
+        call histwrite(fluxdid, 'dtvr', 1, tst, nscal, ndex)
+        ist(1)=istdyn
+        call histwrite(fluxdid, 'istdyn', 1, ist, nscal, ndex)
+        istp(1)= istphy
+        call histwrite(fluxdid, 'istphy', 1, istp, nscal, ndex)
+        
+        first = .false.
+
+      endif
+
+
+      IF(iadvtr.EQ.0) THEN
+         phic(:,:)=0
+         tetac(:,:)=0
+         pbaruc(:,:)=0
+         pbarvc(:,:)=0
+      ENDIF
+
+c   accumulation des flux de masse horizontaux
+      DO l=1,llm
+         DO ij = 1,ip1jmp1
+            pbaruc(ij,l) = pbaruc(ij,l) + pbaru(ij,l)
+            tetac(ij,l) = tetac(ij,l) + teta(ij,l)
+            phic(ij,l) = phic(ij,l) + phi(ij,l)
+         ENDDO
+         DO ij = 1,ip1jm
+            pbarvc(ij,l) = pbarvc(ij,l) + pbarv(ij,l)
+         ENDDO
+      ENDDO
+
+c   selection de la masse instantannee des mailles avant le transport.
+      IF(iadvtr.EQ.0) THEN
+         CALL SCOPY(ip1jmp1*llm,masse,1,massem,1)
+      ENDIF
+
+      iadvtr   = iadvtr+1
+
+
+c   Test pour savoir si on advecte a ce pas de temps
+      IF ( iadvtr.EQ.istdyn ) THEN
+c    normalisation
+      DO l=1,llm
+         DO ij = 1,ip1jmp1
+            pbaruc(ij,l) = pbaruc(ij,l)/REAL(istdyn)
+            tetac(ij,l) = tetac(ij,l)/REAL(istdyn)
+            phic(ij,l) = phic(ij,l)/REAL(istdyn)
+         ENDDO
+         DO ij = 1,ip1jm
+            pbarvc(ij,l) = pbarvc(ij,l)/REAL(istdyn)
+         ENDDO
+      ENDDO
+
+c   traitement des flux de masse avant advection.
+c     1. calcul de w
+c     2. groupement des mailles pres du pole.
+
+        CALL groupe( massem, pbaruc,pbarvc, pbarug,pbarvg,wg )
+
+        do l=1,llm
+           do j=1,jjm
+              do i=1,iip1
+                 pbarvst(i,j,l)=pbarvg(i,j,l)
+              enddo
+           enddo
+           do i=1,iip1
+              pbarvst(i,jjp1,l)=0.
+           enddo
+        enddo
+
+         iadvtr=0
+        write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau
+        
+        call histwrite(fluxid, 'masse', itau, massem,
+     .               iip1*jjp1*llm, ndex)
+        
+        call histwrite(fluxid, 'pbaru', itau, pbarug,
+     .               iip1*jjp1*llm, ndex)
+        
+        call histwrite(fluxvid, 'pbarv', itau, pbarvg,
+     .               iip1*jjm*llm, ndex)
+        
+        call histwrite(fluxid, 'w' ,itau, wg, 
+     .             iip1*jjp1*llm, ndex) 
+        
+        call histwrite(fluxid, 'teta' ,itau, tetac, 
+     .             iip1*jjp1*llm, ndex) 
+        
+        call histwrite(fluxid, 'phi' ,itau, phic, 
+     .             iip1*jjp1*llm, ndex) 
+        
+C
+
+      ENDIF ! if iadvtr.EQ.istdyn
+
+#else
+      write(lunout,*)
+     & 'fluxstokenc: Needs IOIPSL to function'
+#endif
+! of #ifdef CPP_IOIPSL
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/friction.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/friction.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/friction.F	(revision 3330)
@@ -0,0 +1,135 @@
+!
+! $Id$
+!
+c=======================================================================
+      SUBROUTINE friction(ucov,vcov,pdt)
+
+      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 comconst_mod, ONLY: pi
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Friction for the Newtonian case:
+!   --------------------------------
+!    2 possibilities (depending on flag 'friction_type'
+!     friction_type=0 : A friction that is only applied to the lowermost
+!                       atmospheric layer
+!     friction_type=1 : Friction applied on all atmospheric layer (but
+!       (default)       with stronger magnitude near the surface; see
+!                       iniacademic.F)
+!=======================================================================
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+      include "iniprint.h"
+      include "academic.h"
+
+! arguments:
+      REAL,INTENT(out) :: ucov( iip1,jjp1,llm )
+      REAL,INTENT(out) :: vcov( iip1,jjm,llm )
+      REAL,INTENT(in) :: pdt ! time step
+
+! local variables:
+
+      REAL modv(iip1,jjp1),zco,zsi
+      REAL vpn,vps,upoln,upols,vpols,vpoln
+      REAL u2(iip1,jjp1),v2(iip1,jjm)
+      INTEGER  i,j,l
+      REAL,PARAMETER :: cfric=1.e-5
+      LOGICAL,SAVE :: firstcall=.true.
+      INTEGER,SAVE :: friction_type=1
+      CHARACTER(len=20) :: modname="friction"
+      CHARACTER(len=80) :: abort_message
+      
+      IF (firstcall) THEN
+        ! set friction type
+        call getin("friction_type",friction_type)
+        if ((friction_type.lt.0).or.(friction_type.gt.1)) then
+          abort_message="wrong friction type"
+          write(lunout,*)'Friction: wrong friction type',friction_type
+          call abort_gcm(modname,abort_message,42)
+        endif
+        firstcall=.false.
+      ENDIF
+
+      if (friction_type.eq.0) then
+c   calcul des composantes au carre du vent naturel
+      do j=1,jjp1
+         do i=1,iip1
+            u2(i,j)=ucov(i,j,1)*ucov(i,j,1)*unscu2(i,j)
+         enddo
+      enddo
+      do j=1,jjm
+         do i=1,iip1
+            v2(i,j)=vcov(i,j,1)*vcov(i,j,1)*unscv2(i,j)
+         enddo
+      enddo
+
+c   calcul du module de V en dehors des poles
+      do j=2,jjm
+         do i=2,iip1
+            modv(i,j)=sqrt(0.5*(u2(i-1,j)+u2(i,j)+v2(i,j-1)+v2(i,j)))
+         enddo
+         modv(1,j)=modv(iip1,j)
+      enddo
+
+c   les deux composantes du vent au pole sont obtenues comme
+c   premiers modes de fourier de v pres du pole
+      upoln=0.
+      vpoln=0.
+      upols=0.
+      vpols=0.
+      do i=2,iip1
+         zco=cos(rlonv(i))*(rlonu(i)-rlonu(i-1))
+         zsi=sin(rlonv(i))*(rlonu(i)-rlonu(i-1))
+         vpn=vcov(i,1,1)/cv(i,1)
+         vps=vcov(i,jjm,1)/cv(i,jjm)
+         upoln=upoln+zco*vpn
+         vpoln=vpoln+zsi*vpn
+         upols=upols+zco*vps
+         vpols=vpols+zsi*vps
+      enddo
+      vpn=sqrt(upoln*upoln+vpoln*vpoln)/pi
+      vps=sqrt(upols*upols+vpols*vpols)/pi
+      do i=1,iip1
+c        modv(i,1)=vpn
+c        modv(i,jjp1)=vps
+         modv(i,1)=modv(i,2)
+         modv(i,jjp1)=modv(i,jjm)
+      enddo
+
+c   calcul du frottement au sol.
+      do j=2,jjm
+         do i=1,iim
+            ucov(i,j,1)=ucov(i,j,1)
+     s      -cfric*pdt*0.5*(modv(i+1,j)+modv(i,j))*ucov(i,j,1)
+         enddo
+         ucov(iip1,j,1)=ucov(1,j,1)
+      enddo
+      do j=1,jjm
+         do i=1,iip1
+            vcov(i,j,1)=vcov(i,j,1)
+     s      -cfric*pdt*0.5*(modv(i,j+1)+modv(i,j))*vcov(i,j,1)
+         enddo
+         vcov(iip1,j,1)=vcov(1,j,1)
+      enddo
+      endif ! of if (friction_type.eq.0)
+
+      if (friction_type.eq.1) then
+        do l=1,llm
+          ucov(:,:,l)=ucov(:,:,l)*(1.-pdt*kfrict(l))
+          vcov(:,:,l)=vcov(:,:,l)*(1.-pdt*kfrict(l))
+        enddo
+      endif
+      
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/gcm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/gcm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/gcm.F90	(revision 3330)
@@ -0,0 +1,470 @@
+!
+! $Id$
+!
+!
+!
+PROGRAM gcm
+
+#ifdef CPP_IOIPSL
+  USE IOIPSL
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  USE ioipsl_getincom
+#endif
+
+
+#ifdef CPP_XIOS
+  ! ug Pour les sorties XIOS
+  USE wxios
+#endif
+
+  USE filtreg_mod
+  USE infotrac
+  USE control_mod
+  USE mod_const_mpi, ONLY: COMM_LMDZ
+  USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref, &
+                     itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end
+  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
+  USE logic_mod, ONLY: ecripar, iflag_phys, read_start
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+  ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
+  ! dynamique -> physique pour l'initialisation
+#ifdef CPP_PHYS
+  USE iniphysiq_mod, ONLY: iniphysiq
+#endif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  IMPLICIT NONE
+
+  !      ......   Version  du 10/01/98    ..........
+
+  !             avec  coordonnees  verticales hybrides 
+  !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
+
+  !=======================================================================
+  !
+  !   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+  !   -------
+  !
+  !   Objet:
+  !   ------
+  !
+  !   GCM LMD nouvelle grille
+  !
+  !=======================================================================
+  !
+  !  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
+  !      et possibilite d'appeler une fonction f(y)  a derivee tangente
+  !      hyperbolique a la  place de la fonction a derivee sinusoidale.
+  !  ... Possibilite de choisir le schema pour l'advection de
+  !        q  , en modifiant iadv dans traceur.def  (MAF,10/02) .
+  !
+  !      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
+  !      Pour Van-Leer iadv=10
+  !
+  !-----------------------------------------------------------------------
+  !   Declarations:
+  !   -------------
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissnew.h"
+  include "comgeom.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+  include "tracstoke.h"
+
+  REAL zdtvr
+
+  !   variables dynamiques
+  REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
+  REAL teta(ip1jmp1,llm)                 ! temperature potentielle 
+  REAL, ALLOCATABLE, DIMENSION(:,:,:):: q! champs advectes
+  REAL ps(ip1jmp1)                       ! pression  au sol
+!  REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+  REAL masse(ip1jmp1,llm)                ! masse d'air
+  REAL phis(ip1jmp1)                     ! geopotentiel au sol
+!  REAL phi(ip1jmp1,llm)                  ! geopotentiel
+!  REAL w(ip1jmp1,llm)                    ! vitesse verticale
+
+  ! variables dynamiques intermediaire pour le transport
+
+  !   variables pour le fichier histoire
+  REAL dtav      ! intervalle de temps elementaire
+
+  REAL time_0
+
+  LOGICAL lafin
+
+
+  real time_step, t_wrt, t_ops
+
+  !      LOGICAL call_iniphys
+  !      data call_iniphys/.true./
+
+  !+jld variables test conservation energie
+  !      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+  !     Tendance de la temp. potentiel d (theta)/ d t due a la 
+  !     tansformation d'energie cinetique en energie thermique
+  !     cree par la dissipation
+!  REAL dhecdt(ip1jmp1,llm)
+  !      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+  !      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+!  CHARACTER (len=15) :: ztit
+  !-jld 
+
+
+  character (len=80) :: dynhist_file, dynhistave_file
+  character (len=20) :: modname
+  character (len=80) :: abort_message
+  ! locales pour gestion du temps
+  INTEGER :: an, mois, jour
+  REAL :: heure
+  logical use_filtre_fft
+
+  !-----------------------------------------------------------------------
+  !   Initialisations:
+  !   ----------------
+
+  abort_message = 'last timestep reached'
+  modname = 'gcm'
+  descript = 'Run GCM LMDZ'
+  lafin    = .FALSE.
+  dynhist_file = 'dyn_hist.nc'
+  dynhistave_file = 'dyn_hist_ave.nc'
+
+
+
+  !----------------------------------------------------------------------
+  !  lecture des fichiers gcm.def ou run.def
+  !  ---------------------------------------
+  !
+  CALL conf_gcm( 99, .TRUE.)
+
+  if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm", &
+       "iphysiq must be a multiple of iperiod", 1)
+
+  use_filtre_fft=.FALSE.
+  CALL getin('use_filtre_fft',use_filtre_fft)
+  IF (use_filtre_fft) call abort_gcm("gcm", 'FFT filter is not available in ' &
+          // 'the sequential version of the dynamics.', 1)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  ! Initialisation de XIOS
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+#ifdef CPP_XIOS
+  CALL wxios_init("LMDZ")
+#endif
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  ! FH 2008/05/02
+  ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
+  ! dynamique -> physique pour l'initialisation
+!#ifdef CPP_PHYS
+!  CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
+!  !      call InitComgeomphy ! now done in iniphysiq
+!#endif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  !-----------------------------------------------------------------------
+  !   Choix du calendrier
+  !   -------------------
+
+  !      calend = 'earth_365d'
+
+#ifdef CPP_IOIPSL
+  if (calend == 'earth_360d') then
+     call ioconf_calendar('360d')
+     write(lunout,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an'
+  else if (calend == 'earth_365d') then
+     call ioconf_calendar('noleap')
+     write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an'
+  else if (calend == 'gregorian') then
+     call ioconf_calendar('gregorian')
+     write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile'
+  else
+     abort_message = 'Mauvais choix de calendrier'
+     call abort_gcm(modname,abort_message,1)
+  endif
+#endif
+  !-----------------------------------------------------------------------
+  !
+  !
+  !------------------------------------
+  !   Initialisation partie parallele
+  !------------------------------------
+
+  !
+  !
+  !-----------------------------------------------------------------------
+  !   Initialisation des traceurs
+  !   ---------------------------
+  !  Choix du nombre de traceurs et du schema pour l'advection
+  !  dans fichier traceur.def, par default ou via INCA
+  call infotrac_init
+
+  ! Allocation de la tableau q : champs advectes   
+  allocate(q(ip1jmp1,llm,nqtot))
+
+  !-----------------------------------------------------------------------
+  !   Lecture de l'etat initial :
+  !   ---------------------------
+
+  !  lecture du fichier start.nc
+  if (read_start) then
+     ! we still need to run iniacademic to initialize some
+     ! constants & fields, if we run the 'newtonian' or 'SW' cases:
+     if (iflag_phys.ne.1) then
+        CALL iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
+     endif
+
+     !        if (planet_type.eq."earth") then
+     ! Load an Earth-format start file
+     CALL dynetat0("start.nc",vcov,ucov, &
+          teta,q,masse,ps,phis, time_0)
+     !        endif ! of if (planet_type.eq."earth")
+
+     !       write(73,*) 'ucov',ucov
+     !       write(74,*) 'vcov',vcov
+     !       write(75,*) 'teta',teta
+     !       write(76,*) 'ps',ps
+     !       write(77,*) 'q',q
+
+  endif ! of if (read_start)
+
+
+  ! le cas echeant, creation d un etat initial
+  IF (prt_level > 9) WRITE(lunout,*) &
+       'GCM: AVANT iniacademic AVANT AVANT AVANT AVANT'
+  if (.not.read_start) then
+     CALL iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
+  endif
+
+
+  !-----------------------------------------------------------------------
+  !   Lecture des parametres de controle pour la simulation :
+  !   -------------------------------------------------------
+  !  on recalcule eventuellement le pas de temps
+
+  IF(MOD(day_step,iperiod).NE.0) THEN
+     abort_message =  &
+          'Il faut choisir un nb de pas par jour multiple de iperiod'
+     call abort_gcm(modname,abort_message,1)
+  ENDIF
+
+  IF(MOD(day_step,iphysiq).NE.0) THEN
+     abort_message =  &
+          'Il faut choisir un nb de pas par jour multiple de iphysiq'
+     call abort_gcm(modname,abort_message,1)
+  ENDIF
+
+  zdtvr    = daysec/REAL(day_step)
+  IF(dtvr.NE.zdtvr) THEN
+     WRITE(lunout,*) &
+          'WARNING!!! changement de pas de temps',dtvr,'>',zdtvr
+  ENDIF
+
+  !
+  ! on remet le calendrier \`a zero si demande
+  !
+  IF (start_time /= starttime) then
+     WRITE(lunout,*)' GCM: Attention l''heure de depart lue dans le' &
+          ,' fichier restart ne correspond pas a celle lue dans le run.def'
+     IF (raz_date == 1) then
+        WRITE(lunout,*)'Je prends l''heure lue dans run.def'
+        start_time = starttime
+     ELSE
+        call abort_gcm("gcm", "'Je m''arrete'", 1)
+     ENDIF
+  ENDIF
+  IF (raz_date == 1) THEN
+     annee_ref = anneeref
+     day_ref = dayref
+     day_ini = dayref
+     itau_dyn = 0
+     itau_phy = 0
+     time_0 = 0.
+     write(lunout,*) &
+          'GCM: On reinitialise a la date lue dans gcm.def'
+  ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
+     write(lunout,*) &
+          'GCM: Attention les dates initiales lues dans le fichier'
+     write(lunout,*) &
+          ' restart ne correspondent pas a celles lues dans '
+     write(lunout,*)' gcm.def'
+     write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+     write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+     write(lunout,*)' Pas de remise a zero'
+  ENDIF
+
+  !      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+  !        write(lunout,*)
+  !     .  'GCM: Attention les dates initiales lues dans le fichier'
+  !        write(lunout,*)
+  !     .  ' restart ne correspondent pas a celles lues dans '
+  !        write(lunout,*)' gcm.def'
+  !        write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+  !        write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+  !        if (raz_date .ne. 1) then
+  !          write(lunout,*)
+  !     .    'GCM: On garde les dates du fichier restart'
+  !        else
+  !          annee_ref = anneeref
+  !          day_ref = dayref
+  !          day_ini = dayref
+  !          itau_dyn = 0
+  !          itau_phy = 0
+  !          time_0 = 0.
+  !          write(lunout,*)
+  !     .   'GCM: On reinitialise a la date lue dans gcm.def'
+  !        endif
+  !      ELSE
+  !        raz_date = 0
+  !      endif
+
+#ifdef CPP_IOIPSL
+  mois = 1
+  heure = 0.
+  call ymds2ju(annee_ref, mois, day_ref, heure, jD_ref)
+  jH_ref = jD_ref - int(jD_ref)
+  jD_ref = int(jD_ref)
+
+  call ioconf_startdate(INT(jD_ref), jH_ref)
+
+  write(lunout,*)'DEBUG'
+  write(lunout,*)'annee_ref, mois, day_ref, heure, jD_ref'
+  write(lunout,*)annee_ref, mois, day_ref, heure, jD_ref
+  call ju2ymds(jD_ref+jH_ref,an, mois, jour, heure)
+  write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
+  write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
+#else
+  ! Ehouarn: we still need to define JD_ref and JH_ref
+  ! and since we don't know how many days there are in a year
+  ! we set JD_ref to 0 (this should be improved ...)
+  jD_ref=0
+  jH_ref=0
+#endif
+
+
+  if (iflag_phys.eq.1) then
+     ! these initialisations have already been done (via iniacademic)
+     ! if running in SW or Newtonian mode
+     !-----------------------------------------------------------------------
+     !   Initialisation des constantes dynamiques :
+     !   ------------------------------------------
+     dtvr = zdtvr
+     CALL iniconst
+
+     !-----------------------------------------------------------------------
+     !   Initialisation de la geometrie :
+     !   --------------------------------
+     CALL inigeom
+
+     !-----------------------------------------------------------------------
+     !   Initialisation du filtre :
+     !   --------------------------
+     CALL inifilr
+  endif ! of if (iflag_phys.eq.1)
+  !
+  !-----------------------------------------------------------------------
+  !   Initialisation de la dissipation :
+  !   ----------------------------------
+
+  CALL inidissip( lstardis, nitergdiv, nitergrot, niterh   , &
+       tetagdiv, tetagrot , tetatemp, vert_prof_dissip)
+
+  !-----------------------------------------------------------------------
+  !   Initialisation de la physique :
+  !   -------------------------------
+
+  IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
+     ! Physics:
+#ifdef CPP_PHYS
+     CALL iniphysiq(iim,jjm,llm, &
+          (jjm-1)*iim+2,comm_lmdz, &
+          daysec,day_ini,dtphys/nsplit_phys, &
+          rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
+          iflag_phys)
+#endif
+  ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
+
+  !  numero de stockage pour les fichiers de redemarrage:
+
+  !-----------------------------------------------------------------------
+  !   Initialisation des I/O :
+  !   ------------------------
+
+
+  if (nday>=0) then
+     day_end = day_ini + nday
+  else
+     day_end = day_ini - nday/day_step
+  endif
+  WRITE(lunout,300)day_ini,day_end
+300 FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)
+
+#ifdef CPP_IOIPSL
+  call ju2ymds(jD_ref + day_ini - day_ref, an, mois, jour, heure)
+  write (lunout,301)jour, mois, an
+  call ju2ymds(jD_ref + day_end - day_ref, an, mois, jour, heure)
+  write (lunout,302)jour, mois, an
+301 FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4)
+302 FORMAT('1'/,15x,'    au ', i2,'/',i2,'/',i4)
+#endif
+
+  !      if (planet_type.eq."earth") then
+  ! Write an Earth-format restart file
+
+  CALL dynredem0("restart.nc", day_end, phis)
+  !      endif
+
+  ecripar = .TRUE.
+
+#ifdef CPP_IOIPSL
+  time_step = zdtvr
+  if (ok_dyn_ins) then
+     ! initialize output file for instantaneous outputs
+     ! t_ops = iecri * daysec ! do operations every t_ops
+     t_ops =((1.0*iecri)/day_step) * daysec  
+     t_wrt = daysec ! iecri * daysec ! write output every t_wrt
+     CALL inithist(day_ref,annee_ref,time_step, &
+          t_ops,t_wrt)
+  endif
+
+  IF (ok_dyn_ave) THEN 
+     ! initialize output file for averaged outputs
+     t_ops = iperiod * time_step ! do operations every t_ops
+     t_wrt = periodav * daysec   ! write output every t_wrt
+     CALL initdynav(day_ref,annee_ref,time_step, &
+          t_ops,t_wrt)
+  END IF
+  dtav = iperiod*dtvr/daysec
+#endif
+  ! #endif of #ifdef CPP_IOIPSL
+
+  !  Choix des frequences de stokage pour le offline
+  !      istdyn=day_step/4     ! stockage toutes les 6h=1jour/4
+  !      istdyn=day_step/12     ! stockage toutes les 2h=1jour/12
+  istdyn=day_step/4     ! stockage toutes les 6h=1jour/12
+  istphy=istdyn/iphysiq     
+
+
+  !
+  !-----------------------------------------------------------------------
+  !   Integration temporelle du modele :
+  !   ----------------------------------
+
+  !       write(78,*) 'ucov',ucov
+  !       write(78,*) 'vcov',vcov
+  !       write(78,*) 'teta',teta
+  !       write(78,*) 'ps',ps
+  !       write(78,*) 'q',q
+
+
+  CALL leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0)
+
+END PROGRAM gcm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/getparam.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/getparam.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/getparam.F90	(revision 3330)
@@ -0,0 +1,107 @@
+!
+! $Id$
+!
+MODULE getparam
+#ifdef CPP_IOIPSL
+   USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+   USE ioipsl_getincom
+#endif
+
+   INTERFACE getpar
+     MODULE PROCEDURE getparamr,getparami,getparaml
+   END INTERFACE
+   private getparamr,getparami,getparaml
+
+   INTEGER, PARAMETER :: out_eff=99
+
+CONTAINS
+  SUBROUTINE ini_getparam(fichier)
+    !
+    IMPLICIT NONE
+    !
+    CHARACTER*(*) :: fichier
+    open(out_eff,file=fichier,status='unknown',form='formatted') 
+  END SUBROUTINE ini_getparam
+
+  SUBROUTINE fin_getparam
+    !
+    IMPLICIT NONE
+    !
+    close(out_eff)
+
+  END SUBROUTINE fin_getparam
+
+  SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    REAL :: def_val
+    REAL :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    write(out_eff,*) '######################################'
+    write(out_eff,*) '#### ',comment,' #####'
+    write(out_eff,*) TARGET,'=',ret_val
+
+  END SUBROUTINE getparamr
+
+  SUBROUTINE getparami(TARGET,def_val,ret_val,comment)
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    INTEGER :: def_val
+    INTEGER :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    write(out_eff,*) '######################################'
+    write(out_eff,*) '#### ',comment,' #####'
+    write(out_eff,*) comment
+    write(out_eff,*) TARGET,'=',ret_val
+
+  END SUBROUTINE getparami
+
+  SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    LOGICAL :: def_val
+    LOGICAL :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    write(out_eff,*) '######################################'
+    write(out_eff,*) '#### ',comment,' #####'
+    write(out_eff,*) TARGET,'=',ret_val
+
+  END SUBROUTINE getparaml
+
+
+END MODULE getparam
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/groupe.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/groupe.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/groupe.F	(revision 3330)
@@ -0,0 +1,109 @@
+!
+! $Header$
+!
+      subroutine groupe(pext,pbaru,pbarv,pbarum,pbarvm,wm)
+      
+      use comconst_mod, only: ngroup
+      
+      implicit none
+
+c   sous-programme servant a fitlrer les champs de flux de masse aux
+c   poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur
+c   et a mesure qu'on se rapproche du pole.
+c
+c   en entree: pext, pbaru et pbarv
+c
+c   en sortie:  pbarum,pbarvm et wm.
+c
+c   remarque, le wm est recalcule a partir des pbaru pbarv et on n'a donc
+c   pas besoin de w en entree.
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+!     integer ngroup
+!     parameter (ngroup=3)
+
+
+      real pbaru(iip1,jjp1,llm),pbarv(iip1,jjm,llm)
+      real pext(iip1,jjp1,llm)
+
+      real pbarum(iip1,jjp1,llm),pbarvm(iip1,jjm,llm)
+      real wm(iip1,jjp1,llm)
+
+      real zconvm(iip1,jjp1,llm),zconvmm(iip1,jjp1,llm)
+
+      real uu
+
+      integer i,j,l
+
+      logical firstcall,groupe_ok
+      save firstcall,groupe_ok
+
+      data firstcall/.true./
+      data groupe_ok/.true./
+
+      if (iim==1) then
+         groupe_ok=.false.
+      endif
+
+      if (firstcall) then
+         if (groupe_ok) then
+           if(mod(iim,2**ngroup).ne.0) stop'probleme du nombre de point'
+         endif
+         firstcall=.false.
+      endif
+
+
+c   Champs 1D
+
+      call convflu(pbaru,pbarv,llm,zconvm)
+
+      call scopy(ijp1llm,zconvm,1,zconvmm,1)
+      call scopy(ijmllm,pbarv,1,pbarvm,1)
+
+      if (groupe_ok) then
+      call groupeun(jjp1,llm,zconvmm)
+      call groupeun(jjm,llm,pbarvm)
+
+c   Champs 3D
+      do l=1,llm
+         do j=2,jjm
+            uu=pbaru(iim,j,l)
+            do i=1,iim
+               uu=uu+pbarvm(i,j,l)-pbarvm(i,j-1,l)-zconvmm(i,j,l)
+               pbarum(i,j,l)=uu
+c     zconvm(i,j,l ) =  xflu(i-1,j,l)-xflu(i,j,l)+
+c    *                      yflu(i,j,l)-yflu(i,j-1,l)
+            enddo
+            pbarum(iip1,j,l)=pbarum(1,j,l)
+         enddo
+      enddo
+
+      else
+         pbarum(:,:,:)=pbaru(:,:,:)
+         pbarvm(:,:,:)=pbarv(:,:,:)
+      endif
+
+c    integration de la convergence de masse de haut  en bas ......
+      do l=1,llm
+         do j=1,jjp1
+            do i=1,iip1
+               zconvmm(i,j,l)=zconvmm(i,j,l)
+            enddo
+         enddo
+      enddo
+      do  l = llm-1,1,-1
+          do j=1,jjp1
+             do i=1,iip1
+                zconvmm(i,j,l)=zconvmm(i,j,l)+zconvmm(i,j,l+1)
+             enddo
+          enddo
+      enddo
+
+      CALL vitvert(zconvmm,wm)
+
+      return
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/groupeun.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/groupeun.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/groupeun.F	(revision 3330)
@@ -0,0 +1,204 @@
+!
+! $Header$
+!
+      SUBROUTINE groupeun(jjmax,llmax,q)
+      
+      USE comconst_mod, ONLY: ngroup
+      
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+      INTEGER jjmax,llmax
+      REAL q(iip1,jjmax,llmax)
+
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
+
+      REAL airecn,qn
+      REAL airecs,qs
+
+      INTEGER i,j,l,ig,ig2,j1,j2,i0,jd
+
+c--------------------------------------------------------------------c 
+c Strategie d'optimisation                                           c
+c stocker les valeurs systematiquement recalculees                   c
+c et identiques d'un pas de temps sur l'autre. Il s'agit des         c
+c aires des cellules qui sont sommees. S'il n'y a pas de changement  c
+c de grille au cours de la simulation tout devrait bien se passer.   c
+c Autre optimisation : determination des bornes entre lesquelles "j" c
+c varie, au lieu de faire un test à chaque fois...
+c--------------------------------------------------------------------c 
+
+      INTEGER j_start, j_finish
+
+      REAL, SAVE :: airen_tab(iip1,jjp1,0:1)
+      REAL, SAVE :: aires_tab(iip1,jjp1,0:1)
+
+      LOGICAL, SAVE :: first = .TRUE.
+!     INTEGER,SAVE :: i_index(iim,ngroup)
+      INTEGER      :: offset
+!     REAL         :: qsum(iim/ngroup)
+
+      IF (first) THEN
+         CALL INIT_GROUPEUN(airen_tab, aires_tab)
+         first = .FALSE.
+      ENDIF
+
+
+c Champs 3D
+      jd=jjp1-jjmax
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         j1=1+jd
+         j2=2
+         DO ig=1,ngroup
+
+c     Concerne le pole nord
+            j_start  = j1-jd
+            j_finish = j2-jd
+            DO ig2=1,ngroup-ig+1
+              offset=2**(ig2-1)
+              DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+                 DO i0=1,iim,2**ig2
+                   q(i0,j,l)=q(i0,j,l)+q(i0+offset,j,l) 
+                 ENDDO
+              ENDDO
+            ENDDO
+            
+            DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,j,l)=q(i-MOD(i-1,2**(ngroup-ig+1)),j,l)
+               ENDDO
+            ENDDO
+
+            DO j=j_start, j_finish
+!CDIR ON_ADB(airen_tab)
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,j,l)=q(i,j,l)*airen_tab(i,j,jd)
+               ENDDO
+               q(iip1,j,l)=q(1,j,l)
+            ENDDO
+       
+!c     Concerne le pole sud
+            j_start  = j1-jd
+            j_finish = j2-jd
+            DO ig2=1,ngroup-ig+1
+              offset=2**(ig2-1)
+              DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+                 DO i0=1,iim,2**ig2
+                   q(i0,jjp1-j+1-jd,l)= q(i0,jjp1-j+1-jd,l)
+     &                                 +q(i0+offset,jjp1-j+1-jd,l) 
+                 ENDDO
+              ENDDO
+            ENDDO
+
+
+            DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,jjp1-j+1-jd,l)=q(i-MOD(i-1,2**(ngroup-ig+1)),
+     &                                jjp1-j+1-jd,l)
+               ENDDO
+            ENDDO
+
+            DO j=j_start, j_finish
+!CDIR ON_ADB(aires_tab)
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,jjp1-j+1-jd,l)=q(i,jjp1-j+1-jd,l)*  
+     &                              aires_tab(i,jjp1-j+1,jd)
+               ENDDO
+               q(iip1,jjp1-j+1-jd,l)=q(1,jjp1-j+1-jd,l)
+            ENDDO
+
+        
+            j1=j2+1
+            j2=j2+2**ig
+         ENDDO
+      ENDDO
+!$OMP END DO NOWAIT
+
+      RETURN
+      END
+      
+      
+      
+      
+      SUBROUTINE INIT_GROUPEUN(airen_tab, aires_tab)
+      
+      USE comconst_mod, ONLY: ngroup
+      
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
+
+      REAL airen,airecn
+      REAL aires,airecs
+
+      INTEGER i,j,l,ig,j1,j2,i0,jd
+
+      INTEGER j_start, j_finish
+
+      REAL :: airen_tab(iip1,jjp1,0:1)
+      REAL :: aires_tab(iip1,jjp1,0:1)
+
+      DO jd=0, 1
+         j1=1+jd
+         j2=2
+         DO ig=1,ngroup
+            
+!     c     Concerne le pole nord
+            j_start = j1-jd
+            j_finish = j2-jd
+            DO j=j_start, j_finish
+               DO i0=1,iim,2**(ngroup-ig+1)
+                  airen=0.
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     airen = airen+aire(i,j)
+                  ENDDO
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     airen_tab(i,j,jd) = 
+     &                    aire(i,j) / airen
+                  ENDDO
+               ENDDO
+            ENDDO
+            
+!     c     Concerne le pole sud
+            j_start = j1-jd
+            j_finish = j2-jd
+            DO j=j_start, j_finish
+               DO i0=1,iim,2**(ngroup-ig+1)
+                  aires=0.
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     aires=aires+aire(i,jjp1-j+1)
+                  ENDDO
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     aires_tab(i,jjp1-j+1,jd) = 
+     &                    aire(i,jjp1-j+1) / aires
+                  ENDDO
+               ENDDO
+            ENDDO
+            
+            j1=j2+1
+            j2=j2+2**ig
+         ENDDO
+      ENDDO
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/guide_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/guide_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/guide_mod.F90	(revision 3330)
@@ -0,0 +1,1697 @@
+!
+! $Id$
+!
+MODULE guide_mod
+
+!=======================================================================
+!   Auteur:  F.Hourdin
+!            F. Codron 01/09
+!=======================================================================
+
+  USE getparam
+  USE Write_Field
+  use netcdf, only: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close
+  use pres2lev_mod
+
+  IMPLICIT NONE
+
+! ---------------------------------------------
+! Declarations des cles logiques et parametres 
+! ---------------------------------------------
+  INTEGER, PRIVATE, SAVE  :: iguide_read,iguide_int,iguide_sav
+  INTEGER, PRIVATE, SAVE  :: nlevnc
+  LOGICAL, PRIVATE, SAVE  :: guide_u,guide_v,guide_T,guide_Q,guide_P
+  LOGICAL, PRIVATE, SAVE  :: guide_hr,guide_teta  
+  LOGICAL, PRIVATE, SAVE  :: guide_BL,guide_reg,guide_add,gamma4,guide_zon 
+  LOGICAL, PRIVATE, SAVE  :: guide_modele,invert_p,invert_y,ini_anal
+  LOGICAL, PRIVATE, SAVE  :: guide_2D,guide_sav
+  
+  REAL, PRIVATE, SAVE     :: tau_min_u,tau_max_u
+  REAL, PRIVATE, SAVE     :: tau_min_v,tau_max_v
+  REAL, PRIVATE, SAVE     :: tau_min_T,tau_max_T
+  REAL, PRIVATE, SAVE     :: tau_min_Q,tau_max_Q
+  REAL, PRIVATE, SAVE     :: tau_min_P,tau_max_P
+
+  REAL, PRIVATE, SAVE     :: lat_min_g,lat_max_g
+  REAL, PRIVATE, SAVE     :: lon_min_g,lon_max_g
+  REAL, PRIVATE, SAVE     :: tau_lon,tau_lat
+
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_u,alpha_v 
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_T,alpha_Q 
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_P,alpha_pcor
+  
+! ---------------------------------------------
+! Variables de guidage
+! ---------------------------------------------
+! Variables des fichiers de guidage
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: unat1,unat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: vnat1,vnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: tnat1,tnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: qnat1,qnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: psnat1,psnat2
+  REAL, ALLOCATABLE, DIMENSION(:),     PRIVATE, SAVE   :: apnc,bpnc
+! Variables aux dimensions du modele
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: ugui1,ugui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: vgui1,vgui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: tgui1,tgui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: qgui1,qgui2
+  REAL, ALLOCATABLE, DIMENSION(:),   PRIVATE, SAVE   :: psgui1,psgui2
+
+CONTAINS
+!=======================================================================
+
+  SUBROUTINE guide_init
+
+    USE control_mod, ONLY: day_step
+    USE serre_mod, ONLY: grossismx
+
+    IMPLICIT NONE
+  
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "netcdf.inc"
+
+    INTEGER                :: error,ncidpl,rid,rcod
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_init'
+
+! ---------------------------------------------
+! Lecture des parametres:  
+! ---------------------------------------------
+    call ini_getparam("nudging_parameters_out.txt")
+! Variables guidees
+    CALL getpar('guide_u',.true.,guide_u,'guidage de u')
+    CALL getpar('guide_v',.true.,guide_v,'guidage de v')
+    CALL getpar('guide_T',.true.,guide_T,'guidage de T')
+    CALL getpar('guide_P',.true.,guide_P,'guidage de P')
+    CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q')
+    CALL getpar('guide_hr',.true.,guide_hr,'guidage de Q par H.R')
+    CALL getpar('guide_teta',.false.,guide_teta,'guidage de T par Teta')
+
+    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
+    CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u')
+    CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u')
+    CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v')
+    CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v')
+    CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T')
+    CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T')
+    CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q')
+    CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q')
+    CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P')
+    CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P')
+    CALL getpar('gamma4',.false.,gamma4,'Zone sans rappel elargie')
+    CALL getpar('guide_BL',.true.,guide_BL,'guidage dans C.Lim')
+
+! Sauvegarde du for�age
+    CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
+    CALL getpar('iguide_sav',4,iguide_sav,'freq. sauvegarde guidage')
+    ! 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
+    ELSE if (iguide_sav == 0) then
+       iguide_sav = huge(0)
+    ELSE
+       iguide_sav=day_step*iguide_sav
+    ENDIF
+
+! Guidage regional seulement (sinon constant ou suivant le zoom)
+    CALL getpar('guide_reg',.false.,guide_reg,'guidage regional')
+    CALL getpar('lat_min_g',-90.,lat_min_g,'Latitude mini guidage ')
+    CALL getpar('lat_max_g', 90.,lat_max_g,'Latitude maxi guidage ')
+    CALL getpar('lon_min_g',-180.,lon_min_g,'longitude mini guidage ')
+    CALL getpar('lon_max_g', 180.,lon_max_g,'longitude maxi guidage ')
+    CALL getpar('tau_lat', 5.,tau_lat,'raideur lat guide regional ')
+    CALL getpar('tau_lon', 5.,tau_lon,'raideur lon guide regional ')
+
+! Parametres pour lecture des fichiers
+    CALL getpar('iguide_read',4,iguide_read,'freq. lecture guidage')
+    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
+        iguide_int=day_step*iguide_int
+    ENDIF
+    CALL getpar('guide_modele',.false.,guide_modele,'guidage niveaux modele')
+    CALL getpar('ini_anal',.false.,ini_anal,'Etat initial = analyse')
+    CALL getpar('guide_invertp',.true.,invert_p,'niveaux p inverses')
+    CALL getpar('guide_inverty',.true.,invert_y,'inversion N-S')
+    CALL getpar('guide_2D',.false.,guide_2D,'fichier guidage lat-P')
+
+    call fin_getparam
+    
+! ---------------------------------------------
+! Determination du nombre de niveaux verticaux
+! des fichiers guidage
+! ---------------------------------------------
+    ncidpl=-99
+    if (guide_modele) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             CALL abort_gcm(modname, &
+                  'Guide: probleme -> pas de fichier apbp.nc',1)
+          endif
+       endif
+    else
+         if (guide_u) then
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier u.nc',1)
+               endif
+           endif
+         elseif (guide_v) then
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier v.nc',1)
+               endif
+           endif
+         elseif (guide_T) then
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier T.nc',1)
+               endif
+           endif
+         elseif (guide_Q) then
+           if (ncidpl.eq.-99) then
+               rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+               if (rcod.NE.NF_NOERR) THEN
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier hur.nc',1)
+               endif
+           endif
+         endif
+    endif 
+    error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
+    IF (error.NE.NF_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
+    IF (error.NE.NF_NOERR) THEN
+        CALL abort_gcm(modname,'Guide: probleme lecture niveaux pression',1)
+    ENDIF
+    error=NF_INQ_DIMLEN(ncidpl,rid,nlevnc)
+    print *,'Guide: nombre niveaux vert. nlevnc', nlevnc 
+    rcod = nf90_close(ncidpl)
+
+! ---------------------------------------------
+! Allocation des variables
+! ---------------------------------------------
+    abort_message='pb in allocation guide'
+
+    ALLOCATE(apnc(nlevnc), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(bpnc(nlevnc), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    apnc=0.;bpnc=0.
+
+    ALLOCATE(alpha_pcor(llm), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_u(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_v(ip1jm), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_T(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_Q(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_P(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    alpha_u=0.;alpha_v=0;alpha_T=0;alpha_Q=0;alpha_P=0
+    
+    IF (guide_u) THEN
+        ALLOCATE(unat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(ugui1(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(unat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(ugui2(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        unat1=0.;unat2=0.;ugui1=0.;ugui2=0.
+    ENDIF
+
+    IF (guide_T) THEN
+        ALLOCATE(tnat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tgui1(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tnat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tgui2(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        tnat1=0.;tnat2=0.;tgui1=0.;tgui2=0.
+    ENDIF
+     
+    IF (guide_Q) THEN
+        ALLOCATE(qnat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qgui1(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qnat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qgui2(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        qnat1=0.;qnat2=0.;qgui1=0.;qgui2=0.
+    ENDIF
+
+    IF (guide_v) THEN
+        ALLOCATE(vnat1(iip1,jjm,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vgui1(ip1jm,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vnat2(iip1,jjm,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vgui2(ip1jm,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        vnat1=0.;vnat2=0.;vgui1=0.;vgui2=0.
+    ENDIF
+
+    IF (guide_P.OR.guide_modele) THEN
+        ALLOCATE(psnat1(iip1,jjp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(psnat2(iip1,jjp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        psnat1=0.;psnat2=0.;
+    ENDIF
+    IF (guide_P) THEN
+        ALLOCATE(psgui2(ip1jmp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(psgui1(ip1jmp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        psgui1=0.;psgui2=0.
+    ENDIF
+
+! ---------------------------------------------
+!   Lecture du premier etat de guidage.
+! ---------------------------------------------
+    IF (guide_2D) THEN
+        CALL guide_read2D(1)
+    ELSE
+        CALL guide_read(1)
+    ENDIF
+    IF (guide_v) vnat1=vnat2
+    IF (guide_u) unat1=unat2
+    IF (guide_T) tnat1=tnat2
+    IF (guide_Q) qnat1=qnat2
+    IF (guide_P.OR.guide_modele) psnat1=psnat2
+
+  END SUBROUTINE guide_init
+
+!=======================================================================
+  SUBROUTINE guide_main(itau,ucov,vcov,teta,q,masse,ps)
+
+    USE control_mod, ONLY: day_step, iperiod
+    USE comconst_mod, ONLY: dtvr, daysec
+    USE comvert_mod, ONLY: ap, bp, preff, presnivs
+ 
+    IMPLICIT NONE
+  
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+
+    ! Variables entree
+    INTEGER,                       INTENT(IN)    :: itau !pas de temps
+    REAL, DIMENSION (ip1jmp1,llm), INTENT(INOUT) :: ucov,teta,q,masse
+    REAL, DIMENSION (ip1jm,llm),   INTENT(INOUT) :: vcov
+    REAL, DIMENSION (ip1jmp1),     INTENT(INOUT) :: ps
+
+    ! Variables locales
+    LOGICAL, SAVE :: first=.TRUE.
+    LOGICAL       :: f_out ! sortie guidage
+    REAL, DIMENSION (ip1jmp1,llm) :: f_add ! var aux: champ de guidage
+    REAL, DIMENSION (ip1jmp1,llm) :: p ! besoin si guide_P
+    ! Compteurs temps:
+    INTEGER, SAVE :: step_rea,count_no_rea,itau_test ! lecture guidage
+    REAL          :: ditau, dday_step
+    REAL          :: tau,reste ! position entre 2 etats de guidage
+    REAL, SAVE    :: factt ! pas de temps en fraction de jour
+    
+    INTEGER       :: l
+
+!-----------------------------------------------------------------------
+! Initialisations au premier passage
+!-----------------------------------------------------------------------
+    IF (first) THEN
+        first=.FALSE.
+        CALL guide_init 
+        itau_test=1001
+        step_rea=1
+        count_no_rea=0
+! Calcul des constantes de rappel
+        factt=dtvr*iperiod/daysec 
+        call tau2alpha(3,iip1,jjm ,factt,tau_min_v,tau_max_v,alpha_v)
+        call tau2alpha(2,iip1,jjp1,factt,tau_min_u,tau_max_u,alpha_u)
+        call tau2alpha(1,iip1,jjp1,factt,tau_min_T,tau_max_T,alpha_T)
+        call tau2alpha(1,iip1,jjp1,factt,tau_min_P,tau_max_P,alpha_P)
+        call tau2alpha(1,iip1,jjp1,factt,tau_min_Q,tau_max_Q,alpha_Q)
+! correction de rappel dans couche limite
+        if (guide_BL) then
+             alpha_pcor(:)=1.
+        else
+            do l=1,llm
+                alpha_pcor(l)=(1.+tanh((0.85-presnivs(l)/preff)/0.05))/2.
+            enddo
+        endif
+! ini_anal: etat initial egal au guidage        
+        IF (ini_anal) THEN
+            CALL guide_interp(ps,teta)
+            IF (guide_u) ucov=ugui2
+            IF (guide_v) vcov=ugui2
+            IF (guide_T) teta=tgui2
+            IF (guide_Q) q=qgui2
+            IF (guide_P) THEN
+                ps=psgui2
+                CALL pression(ip1jmp1,ap,bp,ps,p)
+                CALL massdair(p,masse)
+            ENDIF
+            RETURN
+        ENDIF
+! Verification structure guidage
+        IF (guide_u) THEN
+            CALL writefield('unat',unat1)
+            CALL writefield('ucov',RESHAPE(ucov,(/iip1,jjp1,llm/)))
+        ENDIF
+        IF (guide_T) THEN
+            CALL writefield('tnat',tnat1)
+            CALL writefield('teta',RESHAPE(teta,(/iip1,jjp1,llm/)))
+        ENDIF
+
+    ENDIF !first
+
+!-----------------------------------------------------------------------
+! Lecture des fichiers de guidage ?
+!-----------------------------------------------------------------------
+    IF (iguide_read.NE.0) THEN
+      ditau=real(itau)
+      dday_step=real(day_step)
+      IF (iguide_read.LT.0) THEN
+          tau=ditau/dday_step/REAL(iguide_read)
+      ELSE
+          tau=REAL(iguide_read)*ditau/dday_step
+      ENDIF
+      reste=tau-AINT(tau)
+      IF (reste.EQ.0.) THEN
+          IF (itau_test.EQ.itau) THEN
+              write(*,*)'deuxieme passage de advreel a itau=',itau
+              stop
+          ELSE
+              IF (guide_v) vnat1=vnat2
+              IF (guide_u) unat1=unat2
+              IF (guide_T) tnat1=tnat2
+              IF (guide_Q) qnat1=qnat2
+              IF (guide_P.OR.guide_modele) psnat1=psnat2
+              step_rea=step_rea+1
+              itau_test=itau
+              print*,'Lecture fichiers guidage, pas ',step_rea, &
+                    'apres ',count_no_rea,' non lectures'
+              IF (guide_2D) THEN
+                  CALL guide_read2D(step_rea)
+              ELSE
+                  CALL guide_read(step_rea)
+              ENDIF
+              count_no_rea=0
+          ENDIF
+      ELSE
+        count_no_rea=count_no_rea+1
+
+      ENDIF
+    ENDIF !iguide_read=0
+
+!-----------------------------------------------------------------------
+! Interpolation et conversion des champs de guidage
+!-----------------------------------------------------------------------
+    IF (MOD(itau,iguide_int).EQ.0) THEN
+        CALL guide_interp(ps,teta)
+    ENDIF
+! Repartition entre 2 etats de guidage
+    IF (iguide_read.NE.0) THEN
+        tau=reste
+    ELSE
+        tau=1.
+    ENDIF
+
+!-----------------------------------------------------------------------
+!   Ajout des champs de guidage 
+!-----------------------------------------------------------------------
+! Sauvegarde du guidage?
+    f_out=((MOD(itau,iguide_sav).EQ.0).AND.guide_sav)  
+    IF (f_out) CALL guide_out("SP",jjp1,1,ps)
+    
+    if (guide_u) then
+        if (guide_add) then
+           f_add=(1.-tau)*ugui1+tau*ugui2
+        else
+           f_add=(1.-tau)*ugui1+tau*ugui2-ucov
+        endif 
+        if (guide_zon) CALL guide_zonave(1,jjp1,llm,f_add)
+        CALL guide_addfield(ip1jmp1,llm,f_add,alpha_u)
+        IF (f_out) CALL guide_out("ua",jjp1,llm,(1.-tau)*ugui1+tau*ugui2)
+        IF (f_out) CALL guide_out("u",jjp1,llm,ucov)
+        IF (f_out) CALL guide_out("ucov",jjp1,llm,f_add/factt)
+        ucov=ucov+f_add
+    endif
+
+    if (guide_T) then
+        if (guide_add) then
+           f_add=(1.-tau)*tgui1+tau*tgui2
+        else
+           f_add=(1.-tau)*tgui1+tau*tgui2-teta
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjp1,llm,f_add)
+        CALL guide_addfield(ip1jmp1,llm,f_add,alpha_T)
+        IF (f_out) CALL guide_out("teta",jjp1,llm,f_add/factt)
+        teta=teta+f_add
+    endif
+
+    if (guide_P) then
+        if (guide_add) then
+           f_add(1:ip1jmp1,1)=(1.-tau)*psgui1+tau*psgui2
+        else
+           f_add(1:ip1jmp1,1)=(1.-tau)*psgui1+tau*psgui2-ps
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjp1,1,f_add(1:ip1jmp1,1))
+        CALL guide_addfield(ip1jmp1,1,f_add(1:ip1jmp1,1),alpha_P)
+        IF (f_out) CALL guide_out("ps",jjp1,1,f_add(1:ip1jmp1,1)/factt)
+        ps=ps+f_add(1:ip1jmp1,1)
+        CALL pression(ip1jmp1,ap,bp,ps,p)
+        CALL massdair(p,masse)
+    endif
+
+    if (guide_Q) then
+        if (guide_add) then
+           f_add=(1.-tau)*qgui1+tau*qgui2
+        else
+           f_add=(1.-tau)*qgui1+tau*qgui2-q
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjp1,llm,f_add)
+        CALL guide_addfield(ip1jmp1,llm,f_add,alpha_Q)
+        IF (f_out) CALL guide_out("q",jjp1,llm,f_add/factt)
+        q=q+f_add
+    endif
+
+    if (guide_v) then
+        if (guide_add) then
+           f_add(1:ip1jm,:)=(1.-tau)*vgui1+tau*vgui2
+        else
+           f_add(1:ip1jm,:)=(1.-tau)*vgui1+tau*vgui2-vcov
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjm,llm,f_add(1:ip1jm,:))
+        CALL guide_addfield(ip1jm,llm,f_add(1:ip1jm,:),alpha_v)
+        IF (f_out) CALL guide_out("v",jjm,llm,vcov)
+        IF (f_out) CALL guide_out("va",jjm,llm,(1.-tau)*vgui1+tau*vgui2)
+        IF (f_out) CALL guide_out("vcov",jjm,llm,f_add(1:ip1jm,:)/factt)
+        vcov=vcov+f_add(1:ip1jm,:)
+    endif
+  END SUBROUTINE guide_main
+
+!=======================================================================
+  SUBROUTINE guide_addfield(hsize,vsize,field,alpha)
+! field1=a*field1+alpha*field2
+
+    IMPLICIT NONE
+
+    ! input variables
+    INTEGER,                      INTENT(IN)    :: hsize
+    INTEGER,                      INTENT(IN)    :: vsize
+    REAL, DIMENSION(hsize),       INTENT(IN)    :: alpha 
+    REAL, DIMENSION(hsize,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    INTEGER :: l
+
+    do l=1,vsize
+        field(:,l)=alpha*field(:,l)*alpha_pcor(l)
+    enddo
+
+  END SUBROUTINE guide_addfield
+
+!=======================================================================
+  SUBROUTINE guide_zonave(typ,hsize,vsize,field)
+
+    USE comconst_mod, ONLY: pi
+    
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
+    
+    ! input/output variables
+    INTEGER,                           INTENT(IN)    :: typ
+    INTEGER,                           INTENT(IN)    :: vsize
+    INTEGER,                           INTENT(IN)    :: hsize
+    REAL, DIMENSION(hsize*iip1,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    LOGICAL, SAVE                :: first=.TRUE.
+    INTEGER, DIMENSION (2), SAVE :: imin, imax ! averaging domain
+    INTEGER                      :: i,j,l,ij
+    REAL, DIMENSION (iip1)       :: lond       ! longitude in Deg.
+    REAL, DIMENSION (hsize,vsize):: fieldm     ! zon-averaged field
+
+    IF (first) THEN
+        first=.FALSE.
+!Compute domain for averaging
+        lond=rlonu*180./pi
+        imin(1)=1;imax(1)=iip1;
+        imin(2)=1;imax(2)=iip1;
+        IF (guide_reg) THEN
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(1)=i
+                IF (lond(i).LE.lon_max_g) imax(1)=i
+            ENDDO
+            lond=rlonv*180./pi
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(2)=i
+                IF (lond(i).LE.lon_max_g) imax(2)=i
+            ENDDO
+        ENDIF
+    ENDIF
+
+    fieldm=0.
+    DO l=1,vsize
+    ! Compute zonal average
+        DO j=1,hsize
+            DO i=imin(typ),imax(typ)
+                ij=(j-1)*iip1+i
+                fieldm(j,l)=fieldm(j,l)+field(ij,l)
+            ENDDO
+        ENDDO 
+        fieldm(:,l)=fieldm(:,l)/REAL(imax(typ)-imin(typ)+1)
+    ! Compute forcing
+        DO j=1,hsize
+            DO i=1,iip1
+                ij=(j-1)*iip1+i
+                field(ij,l)=fieldm(j,l)
+            ENDDO
+        ENDDO
+    ENDDO
+
+  END SUBROUTINE guide_zonave
+
+!=======================================================================
+  SUBROUTINE guide_interp(psi,teta)
+  
+  use exner_hyb_m, only: exner_hyb
+  use exner_milieu_m, only: exner_milieu
+  use comconst_mod, only: kappa, cpp
+  use comvert_mod, only: preff, pressure_exner, bp, ap
+  IMPLICIT NONE
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+
+  REAL, DIMENSION (iip1,jjp1),     INTENT(IN) :: psi ! Psol gcm
+  REAL, DIMENSION (iip1,jjp1,llm), INTENT(IN) :: teta ! Temp. Pot. gcm
+
+  LOGICAL, SAVE                      :: first=.TRUE.
+  ! Variables pour niveaux pression:
+  REAL, DIMENSION (iip1,jjp1,nlevnc) :: plnc1,plnc2 !niveaux pression guidage
+  REAL, DIMENSION (iip1,jjp1,llm)    :: plunc,plsnc !niveaux pression modele
+  REAL, DIMENSION (iip1,jjm,llm)     :: plvnc       !niveaux pression modele
+  REAL, DIMENSION (iip1,jjp1,llmp1)  :: p           ! pression intercouches 
+  REAL, DIMENSION (iip1,jjp1,llm)    :: pls, pext   ! var intermediaire
+  REAL, DIMENSION (iip1,jjp1,llm)    :: pbarx 
+  REAL, DIMENSION (iip1,jjm,llm)     :: pbary 
+  ! Variables pour fonction Exner (P milieu couche)
+  REAL, DIMENSION (iip1,jjp1,llm)    :: pk
+  REAL, DIMENSION (iip1,jjp1)        :: pks    
+  REAL                               :: prefkap,unskap
+  ! Pression de vapeur saturante
+  REAL, DIMENSION (ip1jmp1,llm)      :: qsat
+  !Variables intermediaires interpolation
+  REAL, DIMENSION (iip1,jjp1,llm)    :: zu1,zu2 
+  REAL, DIMENSION (iip1,jjm,llm)     :: zv1,zv2
+  
+  INTEGER                            :: i,j,l,ij
+  
+    print *,'Guide: conversion variables guidage'
+! -----------------------------------------------------------------
+! Calcul des niveaux de pression champs guidage
+! -----------------------------------------------------------------
+if (guide_modele) then
+    do i=1,iip1
+        do j=1,jjp1
+            do l=1,nlevnc
+                plnc2(i,j,l)=apnc(l)+bpnc(l)*psnat2(i,j)
+                plnc1(i,j,l)=apnc(l)+bpnc(l)*psnat1(i,j)
+            enddo
+        enddo
+    enddo
+else
+    do i=1,iip1
+        do j=1,jjp1
+            do l=1,nlevnc
+                plnc2(i,j,l)=apnc(l)
+                plnc1(i,j,l)=apnc(l)
+           enddo
+        enddo
+    enddo
+
+endif
+    if (first) then
+        first=.FALSE.
+        print*,'Guide: verification ordre niveaux verticaux'
+        print*,'LMDZ :'
+        do l=1,llm
+            print*,'PL(',l,')=',(ap(l)+ap(l+1))/2. &
+                  +psi(1,jjp1)*(bp(l)+bp(l+1))/2.
+        enddo
+        print*,'Fichiers guidage'
+        do l=1,nlevnc
+             print*,'PL(',l,')=',plnc2(1,1,l)
+        enddo
+        print *,'inversion de l''ordre: invert_p=',invert_p
+        if (guide_u) then
+            do l=1,nlevnc
+                print*,'U(',l,')=',unat2(1,1,l)
+            enddo
+        endif
+        if (guide_T) then
+            do l=1,nlevnc
+                print*,'T(',l,')=',tnat2(1,1,l)
+            enddo
+        endif
+    endif
+    
+! -----------------------------------------------------------------
+! Calcul niveaux pression modele 
+! -----------------------------------------------------------------
+    CALL pression( ip1jmp1, ap, bp, psi, p )
+    if (pressure_exner) then
+      CALL exner_hyb(ip1jmp1,psi,p,pks,pk)
+    else
+      CALL exner_milieu(ip1jmp1,psi,p,pks,pk)
+    endif
+!    ....  Calcul de pls , pression au milieu des couches ,en Pascals
+    unskap=1./kappa
+    prefkap =  preff  ** kappa
+    DO l = 1, llm
+        DO j=1,jjp1
+            DO i =1, iip1
+                pls(i,j,l) = preff * ( pk(i,j,l)/cpp) ** unskap
+            ENDDO
+        ENDDO
+    ENDDO
+
+!   calcul des pressions pour les grilles u et v
+    do l=1,llm
+        do j=1,jjp1
+            do i=1,iip1
+                pext(i,j,l)=pls(i,j,l)*aire(i,j)
+            enddo
+        enddo
+    enddo
+    call massbar(pext, pbarx, pbary )
+    do l=1,llm
+        do j=1,jjp1
+            do i=1,iip1
+                plunc(i,j,l)=pbarx(i,j,l)/aireu(i,j)
+                plsnc(i,j,l)=pls(i,j,l)
+            enddo
+        enddo
+    enddo
+    do l=1,llm
+        do j=1,jjm
+            do i=1,iip1
+                plvnc(i,j,l)=pbary(i,j,l)/airev(i,j)
+            enddo
+        enddo
+    enddo
+
+! -----------------------------------------------------------------
+! Interpolation champs guidage sur niveaux modele (+inversion N/S)
+! Conversion en variables gcm (ucov, vcov...)
+! -----------------------------------------------------------------
+    if (guide_P) then
+        do j=1,jjp1
+            do i=1,iim
+                ij=(j-1)*iip1+i
+                psgui1(ij)=psnat1(i,j)
+                psgui2(ij)=psnat2(i,j)
+            enddo
+            psgui1(iip1*j)=psnat1(1,j)
+            psgui2(iip1*j)=psnat2(1,j)
+        enddo
+    endif
+
+    IF (guide_u) THEN
+        CALL pres2lev(unat1,zu1,nlevnc,llm,plnc1,plunc,iip1,jjp1,invert_p)
+        CALL pres2lev(unat2,zu2,nlevnc,llm,plnc2,plunc,iip1,jjp1,invert_p)
+        do l=1,llm
+            do j=1,jjp1
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    ugui1(ij,l)=zu1(i,j,l)*cu(i,j)
+                    ugui2(ij,l)=zu2(i,j,l)*cu(i,j)
+                enddo
+                ugui1(j*iip1,l)=ugui1((j-1)*iip1+1,l)    
+                ugui2(j*iip1,l)=ugui2((j-1)*iip1+1,l)    
+            enddo
+            do i=1,iip1
+                ugui1(i,l)=0.
+                ugui1(ip1jm+i,l)=0.
+                ugui2(i,l)=0.
+                ugui2(ip1jm+i,l)=0.
+            enddo
+        enddo
+    ENDIF
+    
+    IF (guide_T) THEN
+        CALL pres2lev(tnat1,zu1,nlevnc,llm,plnc1,plsnc,iip1,jjp1,invert_p)
+        CALL pres2lev(tnat2,zu2,nlevnc,llm,plnc2,plsnc,iip1,jjp1,invert_p)
+        do l=1,llm
+            do j=1,jjp1
+                IF (guide_teta) THEN
+                    do i=1,iim
+                        ij=(j-1)*iip1+i
+                        tgui1(ij,l)=zu1(i,j,l)
+                        tgui2(ij,l)=zu2(i,j,l)
+                    enddo
+                ELSE
+                    do i=1,iim
+                        ij=(j-1)*iip1+i
+                        tgui1(ij,l)=zu1(i,j,l)*cpp/pk(i,j,l)
+                        tgui2(ij,l)=zu2(i,j,l)*cpp/pk(i,j,l)
+                    enddo
+                ENDIF
+                tgui1(j*iip1,l)=tgui1((j-1)*iip1+1,l)    
+                tgui2(j*iip1,l)=tgui2((j-1)*iip1+1,l)    
+            enddo
+            do i=1,iip1
+                tgui1(i,l)=tgui1(1,l)
+                tgui1(ip1jm+i,l)=tgui1(ip1jm+1,l) 
+                tgui2(i,l)=tgui2(1,l)
+                tgui2(ip1jm+i,l)=tgui2(ip1jm+1,l) 
+            enddo
+        enddo
+    ENDIF
+
+    IF (guide_v) THEN
+
+        CALL pres2lev(vnat1,zv1,nlevnc,llm,plnc1(:,:jjm,:),plvnc,iip1,jjm,invert_p)
+        CALL pres2lev(vnat2,zv2,nlevnc,llm,plnc2(:,:jjm,:),plvnc,iip1,jjm,invert_p)
+
+        do l=1,llm
+            do j=1,jjm
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    vgui1(ij,l)=zv1(i,j,l)*cv(i,j)
+                    vgui2(ij,l)=zv2(i,j,l)*cv(i,j)
+                enddo
+                vgui1(j*iip1,l)=vgui1((j-1)*iip1+1,l)    
+                vgui2(j*iip1,l)=vgui2((j-1)*iip1+1,l)    
+            enddo
+        enddo
+    ENDIF
+    
+    IF (guide_Q) THEN
+        ! On suppose qu'on a la bonne variable dans le fichier de guidage:
+        ! Hum.Rel si guide_hr, Hum.Spec. sinon.
+        CALL pres2lev(qnat1,zu1,nlevnc,llm,plnc1,plsnc,iip1,jjp1,invert_p)
+        CALL pres2lev(qnat2,zu2,nlevnc,llm,plnc2,plsnc,iip1,jjp1,invert_p)
+        do l=1,llm
+            do j=1,jjp1
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    qgui1(ij,l)=zu1(i,j,l)
+                    qgui2(ij,l)=zu2(i,j,l)
+                enddo
+                qgui1(j*iip1,l)=qgui1((j-1)*iip1+1,l)    
+                qgui2(j*iip1,l)=qgui2((j-1)*iip1+1,l)    
+            enddo
+            do i=1,iip1
+                qgui1(i,l)=qgui1(1,l)
+                qgui1(ip1jm+i,l)=qgui1(ip1jm+1,l) 
+                qgui2(i,l)=qgui2(1,l)
+                qgui2(ip1jm+i,l)=qgui2(ip1jm+1,l) 
+            enddo
+        enddo
+        IF (guide_hr) THEN
+            CALL q_sat(iip1*jjp1*llm,teta*pk/cpp,plsnc,qsat)
+            qgui1=qgui1*qsat*0.01 !hum. rel. en %
+            qgui2=qgui2*qsat*0.01 
+        ENDIF
+    ENDIF
+
+  END SUBROUTINE guide_interp
+
+!=======================================================================
+  SUBROUTINE tau2alpha(typ,pim,pjm,factt,taumin,taumax,alpha)
+
+! Calcul des constantes de rappel alpha (=1/tau)
+
+    use comconst_mod, only: pi
+    use serre_mod, only: clon, clat, grossismx, grossismy
+    
+    implicit none
+
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom2.h"
+
+! input arguments :
+    INTEGER, INTENT(IN) :: typ    ! u(2),v(3), ou scalaire(1)
+    INTEGER, INTENT(IN) :: pim,pjm ! dimensions en lat, lon
+    REAL, INTENT(IN)    :: factt   ! pas de temps en fraction de jour
+    REAL, INTENT(IN)    :: taumin,taumax
+! output arguments:
+    REAL, DIMENSION(pim,pjm), INTENT(OUT) :: alpha 
+  
+!  local variables:
+    LOGICAL, SAVE               :: first=.TRUE.
+    REAL, SAVE                  :: gamma,dxdy_min,dxdy_max
+    REAL, DIMENSION (iip1,jjp1) :: zdx,zdy
+    REAL, DIMENSION (iip1,jjp1) :: dxdys,dxdyu
+    REAL, DIMENSION (iip1,jjm)  :: dxdyv
+    real dxdy_
+    real zlat,zlon
+    real alphamin,alphamax,xi
+    integer i,j,ilon,ilat
+
+
+    alphamin=factt/taumax
+    alphamax=factt/taumin
+    IF (guide_reg.OR.guide_add) THEN
+        alpha=alphamax
+!-----------------------------------------------------------------------
+! guide_reg: alpha=alpha_min dans region, 0. sinon.
+!-----------------------------------------------------------------------
+        IF (guide_reg) THEN
+            do j=1,pjm
+                do i=1,pim
+                    if (typ.eq.2) then
+                       zlat=rlatu(j)*180./pi
+                       zlon=rlonu(i)*180./pi
+                    elseif (typ.eq.1) then
+                       zlat=rlatu(j)*180./pi
+                       zlon=rlonv(i)*180./pi
+                    elseif (typ.eq.3) then
+                       zlat=rlatv(j)*180./pi
+                       zlon=rlonv(i)*180./pi
+                    endif
+                    alpha(i,j)=alphamax/16.* &
+                              (1.+tanh((zlat-lat_min_g)/tau_lat))* &
+                              (1.+tanh((lat_max_g-zlat)/tau_lat))* &
+                              (1.+tanh((zlon-lon_min_g)/tau_lon))* &
+                              (1.+tanh((lon_max_g-zlon)/tau_lon))
+                enddo
+            enddo
+        ENDIF
+    ELSE
+!-----------------------------------------------------------------------
+! Sinon, alpha varie entre alpha_min et alpha_max suivant le zoom.
+!-----------------------------------------------------------------------
+!Calcul de l'aire des mailles
+        do j=2,jjm
+            do i=2,iip1
+               zdx(i,j)=0.5*(cu(i-1,j)+cu(i,j))/cos(rlatu(j))
+            enddo
+            zdx(1,j)=zdx(iip1,j)
+        enddo
+        do j=2,jjm
+            do i=1,iip1
+               zdy(i,j)=0.5*(cv(i,j-1)+cv(i,j))
+            enddo
+        enddo
+        do i=1,iip1
+            zdx(i,1)=zdx(i,2)
+            zdx(i,jjp1)=zdx(i,jjm)
+            zdy(i,1)=zdy(i,2)
+            zdy(i,jjp1)=zdy(i,jjm)
+        enddo
+        do j=1,jjp1
+            do i=1,iip1
+               dxdys(i,j)=sqrt(zdx(i,j)*zdx(i,j)+zdy(i,j)*zdy(i,j))
+            enddo
+        enddo
+        IF (typ.EQ.2) THEN
+            do j=1,jjp1
+                do i=1,iim
+                   dxdyu(i,j)=0.5*(dxdys(i,j)+dxdys(i+1,j))
+                enddo
+                dxdyu(iip1,j)=dxdyu(1,j)
+            enddo
+        ENDIF
+        IF (typ.EQ.3) THEN
+            do j=1,jjm
+                do i=1,iip1
+                   dxdyv(i,j)=0.5*(dxdys(i,j)+dxdys(i,j+1))
+                enddo
+            enddo
+        ENDIF
+! Premier appel: calcul des aires min et max et de gamma.
+        IF (first) THEN 
+            first=.FALSE.
+            ! coordonnees du centre du zoom
+            CALL coordij(clon,clat,ilon,ilat) 
+            ! aire de la maille au centre du zoom
+            dxdy_min=dxdys(ilon,ilat)
+            ! dxdy maximale de la maille
+            dxdy_max=0.
+            do j=1,jjp1
+                do i=1,iip1
+                     dxdy_max=max(dxdy_max,dxdys(i,j))
+                enddo
+            enddo
+            ! Calcul de gamma
+            if (abs(grossismx-1.).lt.0.1.or.abs(grossismy-1.).lt.0.1) then
+                 print*,'ATTENTION modele peu zoome'
+                 print*,'ATTENTION on prend une constante de guidage cste'
+                 gamma=0.
+            else
+                gamma=(dxdy_max-2.*dxdy_min)/(dxdy_max-dxdy_min)
+                print*,'gamma=',gamma
+                if (gamma.lt.1.e-5) then
+                  print*,'gamma =',gamma,'<1e-5'
+                  stop
+                endif
+                gamma=log(0.5)/log(gamma)
+                if (gamma4) then 
+                  gamma=min(gamma,4.)
+                endif
+                print*,'gamma=',gamma
+            endif
+        ENDIF !first
+
+        do j=1,pjm
+            do i=1,pim
+                if (typ.eq.1) then
+                   dxdy_=dxdys(i,j)
+                   zlat=rlatu(j)*180./pi
+                elseif (typ.eq.2) then
+                   dxdy_=dxdyu(i,j)
+                   zlat=rlatu(j)*180./pi
+                elseif (typ.eq.3) then
+                   dxdy_=dxdyv(i,j)
+                   zlat=rlatv(j)*180./pi
+                endif
+                if (abs(grossismx-1.).lt.0.1.or.abs(grossismy-1.).lt.0.1) then
+                ! pour une grille reguliere, xi=xxx**0=1 -> alpha=alphamin
+                    alpha(i,j)=alphamin
+                else
+                    xi=((dxdy_max-dxdy_)/(dxdy_max-dxdy_min))**gamma
+                    xi=min(xi,1.)
+                    if(lat_min_g.le.zlat .and. zlat.le.lat_max_g) then
+                        alpha(i,j)=xi*alphamin+(1.-xi)*alphamax
+                    else
+                        alpha(i,j)=0.
+                    endif
+                endif
+            enddo
+        enddo
+    ENDIF ! guide_reg
+
+    if (.not. guide_add) alpha = 1. - exp(- alpha)
+
+  END SUBROUTINE tau2alpha
+
+!=======================================================================
+  SUBROUTINE guide_read(timestep)
+
+    IMPLICIT NONE
+
+#include "netcdf.inc"
+#include "dimensions.h"
+#include "paramet.h"
+
+    INTEGER, INTENT(IN)   :: timestep
+
+    LOGICAL, SAVE         :: first=.TRUE.
+! Identification fichiers et variables NetCDF:
+    INTEGER, SAVE         :: ncidu,varidu,ncidv,varidv,ncidQ
+    INTEGER, SAVE         :: varidQ,ncidt,varidt,ncidps,varidps
+    INTEGER               :: ncidpl,varidpl,varidap,varidbp
+! Variables auxiliaires NetCDF:
+    INTEGER, DIMENSION(4) :: start,count
+    INTEGER               :: status,rcode
+
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read'
+! -----------------------------------------------------------------
+! Premier appel: initialisation de la lecture des fichiers
+! -----------------------------------------------------------------
+    if (first) then
+         ncidpl=-99
+         print*,'Guide: ouverture des fichiers guidage '
+! Niveaux de pression si non constants
+         if (guide_modele) then
+             print *,'Lecture du guidage sur niveaux modele'
+             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidpl,varidap',ncidpl,varidap
+         endif
+! Vent zonal
+         if (guide_u) then
+             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidu,varidu',ncidu,varidu
+             if (ncidpl.eq.-99) ncidpl=ncidu
+         endif
+! Vent meridien
+         if (guide_v) then
+             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidv,varidv',ncidv,varidv
+             if (ncidpl.eq.-99) ncidpl=ncidv
+         endif
+! Temperature
+         if (guide_T) then
+             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidT,varidT',ncidt,varidt
+             if (ncidpl.eq.-99) ncidpl=ncidt
+         endif
+! Humidite
+         if (guide_Q) then
+             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidQ,varidQ',ncidQ,varidQ
+             if (ncidpl.eq.-99) ncidpl=ncidQ
+         endif
+! Pression de surface
+         if ((guide_P).OR.(guide_modele)) then
+             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidps,varidps',ncidps,varidps
+         endif
+! Coordonnee verticale
+         if (.not.guide_modele) then
+              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
+              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
+              print*,'ncidpl,varidpl',ncidpl,varidpl
+         endif
+! Coefs ap, bp pour calcul de la pression aux differents niveaux
+         if (guide_modele) then
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+#endif
+         else
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+#endif
+             apnc=apnc*100.! conversion en Pascals
+             bpnc(:)=0.
+         endif
+         first=.FALSE.
+     endif ! (first)
+
+! -----------------------------------------------------------------
+!   lecture des champs u, v, T, Q, ps
+! -----------------------------------------------------------------
+
+!  dimensions pour les champs scalaires et le vent zonal
+     start(1)=1
+     start(2)=1
+     start(3)=1
+     start(4)=timestep
+
+     count(1)=iip1
+     count(2)=jjp1
+     count(3)=nlevnc
+     count(4)=1
+
+!  Vent zonal
+     if (guide_u) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,unat2)
+#else
+         status=NF_GET_VARA_REAL(ncidu,varidu,start,count,unat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
+         ENDIF
+     endif
+
+!  Temperature
+     if (guide_T) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,tnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidt,varidt,start,count,tnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
+         ENDIF
+     endif
+
+!  Humidite
+     if (guide_Q) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidQ,varidQ,start,count,qnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidQ,varidQ,start,count,qnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
+         ENDIF
+         
+     endif
+
+!  Vent meridien
+     if (guide_v) then
+         count(2)=jjm
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,vnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidv,varidv,start,count,vnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
+         ENDIF
+     endif
+
+!  Pression de surface
+     if ((guide_P).OR.(guide_modele))  then
+         start(3)=timestep
+         start(4)=0
+         count(2)=jjp1
+         count(3)=1
+         count(4)=0
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,psnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,1,psnat2)
+         ENDIF
+     endif
+
+  END SUBROUTINE guide_read
+
+!=======================================================================
+  SUBROUTINE guide_read2D(timestep)
+
+    IMPLICIT NONE
+
+#include "netcdf.inc"
+#include "dimensions.h"
+#include "paramet.h"
+
+    INTEGER, INTENT(IN)   :: timestep
+
+    LOGICAL, SAVE         :: first=.TRUE.
+! Identification fichiers et variables NetCDF:
+    INTEGER, SAVE         :: ncidu,varidu,ncidv,varidv,ncidQ
+    INTEGER, SAVE         :: varidQ,ncidt,varidt,ncidps,varidps
+    INTEGER               :: ncidpl,varidpl,varidap,varidbp
+! Variables auxiliaires NetCDF:
+    INTEGER, DIMENSION(4) :: start,count
+    INTEGER               :: status,rcode
+! Variables for 3D extension:
+    REAL, DIMENSION (jjp1,llm) :: zu
+    REAL, DIMENSION (jjm,llm)  :: zv
+    INTEGER               :: i
+
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read2D'
+! -----------------------------------------------------------------
+! Premier appel: initialisation de la lecture des fichiers
+! -----------------------------------------------------------------
+    if (first) then
+         ncidpl=-99
+         print*,'Guide: ouverture des fichiers guidage '
+! Niveaux de pression si non constants
+         if (guide_modele) then
+             print *,'Lecture du guidage sur niveaux modele'
+             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidpl,varidap',ncidpl,varidap
+         endif
+! Vent zonal
+         if (guide_u) then
+             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidu,varidu',ncidu,varidu
+             if (ncidpl.eq.-99) ncidpl=ncidu
+         endif
+! Vent meridien
+         if (guide_v) then
+             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidv,varidv',ncidv,varidv
+             if (ncidpl.eq.-99) ncidpl=ncidv
+         endif
+! Temperature
+         if (guide_T) then
+             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidT,varidT',ncidt,varidt
+             if (ncidpl.eq.-99) ncidpl=ncidt
+         endif
+! Humidite
+         if (guide_Q) then
+             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidQ,varidQ',ncidQ,varidQ
+             if (ncidpl.eq.-99) ncidpl=ncidQ
+         endif
+! Pression de surface
+         if ((guide_P).OR.(guide_modele)) then
+             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidps,varidps',ncidps,varidps
+         endif
+! Coordonnee verticale
+         if (.not.guide_modele) then
+              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
+              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
+              print*,'ncidpl,varidpl',ncidpl,varidpl
+         endif
+! Coefs ap, bp pour calcul de la pression aux differents niveaux
+         if (guide_modele) then
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+#endif
+         else
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+#endif
+             apnc=apnc*100.! conversion en Pascals
+             bpnc(:)=0.
+         endif
+         first=.FALSE.
+     endif ! (first)
+
+! -----------------------------------------------------------------
+!   lecture des champs u, v, T, Q, ps
+! -----------------------------------------------------------------
+
+!  dimensions pour les champs scalaires et le vent zonal
+     start(1)=1
+     start(2)=1
+     start(3)=1
+     start(4)=timestep
+
+     count(1)=1
+     count(2)=jjp1
+     count(3)=nlevnc
+     count(4)=1
+
+!  Vent zonal
+     if (guide_u) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidu,varidu,start,count,zu)
+#endif
+         DO i=1,iip1
+             unat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
+         ENDIF
+
+     endif
+
+!  Temperature
+     if (guide_T) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidt,varidt,start,count,zu)
+#endif
+         DO i=1,iip1
+             tnat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
+         ENDIF
+
+     endif
+
+!  Humidite
+     if (guide_Q) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidQ,varidQ,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidQ,varidQ,start,count,zu)
+#endif
+         DO i=1,iip1
+             qnat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
+         ENDIF
+
+     endif
+
+!  Vent meridien
+     if (guide_v) then
+         count(2)=jjm
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,zv)
+#else
+         status=NF_GET_VARA_REAL(ncidv,varidv,start,count,zv)
+#endif
+         DO i=1,iip1
+             vnat2(i,:,:)=zv(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
+         ENDIF
+
+     endif
+
+!  Pression de surface
+     if ((guide_P).OR.(guide_modele))  then
+         start(3)=timestep
+         start(4)=0
+         count(2)=jjp1
+         count(3)=1
+         count(4)=0
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,zu(:,1))
+#else
+         status=NF_GET_VARA_REAL(ncidps,varidps,start,count,zu(:,1))
+#endif
+         DO i=1,iip1
+             psnat2(i,:)=zu(:,1)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,1,psnat2)
+         ENDIF
+
+     endif
+
+  END SUBROUTINE guide_read2D
+  
+!=======================================================================
+  SUBROUTINE guide_out(varname,hsize,vsize,field)
+
+    USE comconst_mod, ONLY: pi
+    USE comvert_mod, ONLY: presnivs
+    
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "netcdf.inc"
+    INCLUDE "comgeom2.h"
+    
+    ! Variables entree
+    CHARACTER*(*), INTENT(IN)                          :: varname
+    INTEGER,   INTENT (IN)                         :: hsize,vsize
+    REAL, DIMENSION (iip1,hsize,vsize), INTENT(IN) :: field
+
+    ! Variables locales
+    INTEGER, SAVE :: timestep=0
+    ! Identites fichier netcdf
+    INTEGER       :: nid, id_lonu, id_lonv, id_latu, id_latv, id_tim, id_lev
+    INTEGER       :: vid_lonu,vid_lonv,vid_latu,vid_latv,vid_cu,vid_cv,vid_lev
+    INTEGER       :: vid_au,vid_av
+    INTEGER, DIMENSION (3) :: dim3
+    INTEGER, DIMENSION (4) :: dim4,count,start
+    INTEGER                :: ierr, varid,l
+    REAL, DIMENSION (iip1,hsize,vsize) :: field2
+
+    print *,'Guide: output timestep',timestep,'var ',varname
+    IF (timestep.EQ.0) THEN 
+! ----------------------------------------------
+! initialisation fichier de sortie
+! ----------------------------------------------
+! Ouverture du fichier
+        ierr=NF_CREATE("guide_ins.nc",NF_CLOBBER,nid)
+! Definition des dimensions
+        ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 
+        ierr=NF_DEF_DIM(nid,"LONV",iip1,id_lonv) 
+        ierr=NF_DEF_DIM(nid,"LATU",jjp1,id_latu) 
+        ierr=NF_DEF_DIM(nid,"LATV",jjm,id_latv) 
+        ierr=NF_DEF_DIM(nid,"LEVEL",llm,id_lev)
+        ierr=NF_DEF_DIM(nid,"TIME",NF_UNLIMITED,id_tim)
+
+! Creation des variables dimensions
+        ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,id_lonu,vid_lonu)
+        ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,id_lonv,vid_lonv)
+        ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,id_latu,vid_latu)
+        ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,id_latv,vid_latv)
+        ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,id_lev,vid_lev)
+        ierr=NF_DEF_VAR(nid,"cu",NF_FLOAT,2,(/id_lonu,id_latu/),vid_cu)
+        ierr=NF_DEF_VAR(nid,"au",NF_FLOAT,2,(/id_lonu,id_latu/),vid_au)
+        ierr=NF_DEF_VAR(nid,"cv",NF_FLOAT,2,(/id_lonv,id_latv/),vid_cv)
+        ierr=NF_DEF_VAR(nid,"av",NF_FLOAT,2,(/id_lonv,id_latv/),vid_av)
+        
+        ierr=NF_ENDDEF(nid)
+
+! Enregistrement des variables dimensions
+#ifdef NC_DOUBLE
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonu,rlonu*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonv,rlonv*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_latu,rlatu*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_latv,rlatv*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lev,presnivs)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_cu,cu)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_cv,cv)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_au,alpha_u)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_av,alpha_v)
+#else
+        ierr = NF_PUT_VAR_REAL(nid,vid_lonu,rlonu*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_lonv,rlonv*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_latu,rlatu*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_latv,rlatv*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_lev,presnivs)
+        ierr = NF_PUT_VAR_REAL(nid,vid_cu,cu)
+        ierr = NF_PUT_VAR_REAL(nid,vid_cv,cv)
+        ierr = NF_PUT_VAR_REAL(nid,vid_au,alpha_u)
+        ierr = NF_PUT_VAR_REAL(nid,vid_av,alpha_v)
+#endif
+! --------------------------------------------------------------------
+! Cr�ation des variables sauvegard�es
+! --------------------------------------------------------------------
+        ierr = NF_REDEF(nid)
+! Surface pressure (GCM)
+        dim3=(/id_lonv,id_latu,id_tim/)
+        ierr = NF_DEF_VAR(nid,"SP",NF_FLOAT,3,dim3,varid)
+! Surface pressure (guidage)
+        IF (guide_P) THEN
+            dim3=(/id_lonv,id_latu,id_tim/)
+            ierr = NF_DEF_VAR(nid,"ps",NF_FLOAT,3,dim3,varid)
+        ENDIF
+! Zonal wind
+        IF (guide_u) THEN
+            dim4=(/id_lonu,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"u",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"ua",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"ucov",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Merid. wind
+        IF (guide_v) THEN
+            dim4=(/id_lonv,id_latv,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"v",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"va",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"vcov",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Pot. Temperature
+        IF (guide_T) THEN
+            dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"teta",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Specific Humidity
+        IF (guide_Q) THEN
+            dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"q",NF_FLOAT,4,dim4,varid)
+        ENDIF
+        
+        ierr = NF_ENDDEF(nid)
+        ierr = NF_CLOSE(nid)
+    ENDIF ! timestep=0
+
+! --------------------------------------------------------------------
+! Enregistrement du champ
+! --------------------------------------------------------------------
+    ierr=NF_OPEN("guide_ins.nc",NF_WRITE,nid)
+
+    IF (varname=="SP") timestep=timestep+1
+
+    ierr = NF_INQ_VARID(nid,varname,varid)
+    SELECT CASE (varname)
+    CASE ("SP","ps")
+        start=(/1,1,timestep,0/)
+        count=(/iip1,jjp1,1,0/)
+    CASE ("v","va","vcov")
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjm,llm,1/)
+    CASE DEFAULT
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjp1,llm,1/)
+    END SELECT
+
+    SELECT CASE (varname)
+    CASE("u","ua")
+        DO l=1,llm ; field2(:,2:jjm,l)=field(:,2:jjm,l)/cu(:,2:jjm) ; ENDDO
+        field2(:,1,:)=0. ; field2(:,jjp1,:)=0.
+    CASE("v","va")
+        DO l=1,llm ; field2(:,:,l)=field(:,:,l)/cv(:,:) ; ENDDO
+    CASE DEFAULT
+        field2=field
+    END SELECT
+
+
+#ifdef NC_DOUBLE
+    ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,count,field2)
+#else
+    ierr = NF_PUT_VARA_REAL(nid,varid,start,count,field2)
+#endif
+
+    ierr = NF_CLOSE(nid)
+
+  END SUBROUTINE guide_out
+    
+  
+!===========================================================================
+  subroutine correctbid(iim,nl,x)
+    integer iim,nl
+    real x(iim+1,nl)
+    integer i,l
+    real zz
+
+    do l=1,nl
+        do i=2,iim-1
+            if(abs(x(i,l)).gt.1.e10) then
+               zz=0.5*(x(i-1,l)+x(i+1,l))
+              print*,'correction ',i,l,x(i,l),zz
+               x(i,l)=zz
+            endif
+         enddo
+     enddo
+     return
+  end subroutine correctbid
+
+!===========================================================================
+END MODULE guide_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/ini_paramLMDZ_dyn.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/ini_paramLMDZ_dyn.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/ini_paramLMDZ_dyn.h	(revision 3330)
@@ -0,0 +1,214 @@
+c
+      dt_cum = dtvr*day_step
+
+!      zan = annee_ref
+!      dayref = day_ref
+!      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+c
+       pi = 4.0 * ATAN(1.0)
+       degres = 180./pi
+       rlong = rlonu * degres
+       rlatg = rlatu * degres
+c
+      CALL histbeg("paramLMDZ_dyn.nc", 
+     .                 iip1,rlong, jjp1,rlatg,
+     .                 1,1,1,1,
+     .                 tau0, jD_ref+jH_ref , dt_cum,
+     .                 thoriid, nid_ctesGCM)
+c
+         CALL histdef(nid_ctesGCM, "prt_level", 
+     .        "Niveau impression debuggage dynamique",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "dayref", 
+     .        "Jour de l etat initial ( = 350  si 20 Decembre par ex.)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "anneeref", 
+     .        "Annee de l etat initial",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "anneelim", 
+     .        "Annee du fichier limitxxxx.nc  si  ok_limitvrai =y",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "raz_date", 
+     .   "Remise a zero (raz) date init.: 0 pas de raz;1=date gcm.def",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "nday", 
+     .   "Nombre de jours d integration",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "day_step", 
+     .   "nombre de pas par jour pour dt = 1 min",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "iperiod", 
+     .   "periode pour le pas Matsuno (en pas de temps)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "iapp_tracvl", 
+     .   "frequence du groupement des flux (en pas de temps)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "iconser", 
+     .  "periode de sortie des variables de controle (en pas de temps)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "iecri", 
+     .  "periode d ecriture du fichier histoire (en jour)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "periodav", 
+     .  "periode de stockage fichier histmoy (en jour)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "dissip_period", 
+     .  "periode de la dissipation (en pas) ... a completer",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "lstardis", 
+     .  "choix de l operateur de dissipation: 1= star,0=non-star ??",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "nitergdiv", 
+     .  "nombre d iterations de l operateur de dissipation gradiv",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "nitergrot", 
+     .  "nombre d iterations de l operateur de dissipation nxgradrot",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "niterh", 
+     .  "nombre d iterations de l operateur de dissipation divgrad",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "tetagdiv", 
+     ."temps dissipation des + petites long. d ondes pour u,v (gradiv)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "tetagrot", 
+     ."temps diss. des + petites long. d ondes pour u,v (nxgradrot)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "tetatemp", 
+     ."temps diss. des + petites long. d ondes pour h (divgrad)",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "coefdis", 
+     ."coefficient pour gamdissip",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "purmats", 
+     ."Choix schema integration temporel: 1=Matsuno,0=Matsuno-leapfrog",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "ok_guide", 
+     ."Guidage: 1=true ,0=false",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "true_calendar", 
+     ."Choix du calendrier",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "guide_calend", 
+     ."Guidage calendrier gregorien: 1=oui ,0=non",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "iflag_phys", 
+     ."Permet de faire tourner le modele sans physique: 1=avec ,0=sans",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "iphysiq", 
+     ."Periode de la physique en pas de temps de la dynamique",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "clon", 
+     ."longitude en degres du centre du zoom",
+     .                "deg",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "clat", 
+     ."latitude en degres du centre du zoom",
+     .                "deg",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "grossismx", 
+     ."facteur de grossissement du zoom, selon la longitude",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "grossismy", 
+     ."facteur de grossissement du zoom, selon la latitude",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "fxyhypb", 
+     ."Fonction f(y) hyperbolique  si true=1, sinusoidale si false=0",
+     .                "-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "dzoomx", 
+     ."extension en longitude de la zone du zoom (fraction zone totale)"
+     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "dzoomy", 
+     ."extension en latitude de la zone du zoom (fraction zone totale)"
+     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "taux", 
+     ."raideur du zoom en  X"
+     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "tauy", 
+     ."raideur du zoom en  Y"
+     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "ysinus", 
+     ."ysinus=1: Ftion f(y) avec y=Sin(latit.)/ ysinus=0: y = latit"
+     .                ,"-",iip1,jjp1,thoriid, 1,1,1, -99, 32, 
+     .                "once", dt_cum,dt_cum)
+c
+         CALL histdef(nid_ctesGCM, "ip_ebil_dyn", 
+     ."PRINTlevel for energy conservation diag.; 0/1= pas de print,
+     . 2= print","-",iip1,jjp1,thoriid, 1,1,1, -99, 32,
+     .                "once", dt_cum,dt_cum)
+c
+c=================================================================
+c
+         CALL histend(nid_ctesGCM)
+c
+c=================================================================
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/iniacademic.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/iniacademic.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/iniacademic.F90	(revision 3330)
@@ -0,0 +1,308 @@
+!
+! $Id$
+!
+SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
+
+  USE filtreg_mod, ONLY: inifilr
+  USE infotrac
+  USE control_mod, ONLY: day_step,planet_type
+#ifdef CPP_IOIPSL
+  USE IOIPSL, ONLY: getin
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  USE ioipsl_getincom, ONLY: getin
+#endif
+  USE Write_Field
+  use exner_hyb_m, only: exner_hyb
+  use exner_milieu_m, only: exner_milieu
+  USE comconst_mod, ONLY: cpp, kappa, g, daysec, dtvr, pi, im, jm
+  USE logic_mod, ONLY: iflag_phys, read_start
+  USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
+  USE temps_mod, ONLY: annee_ref, day_ini, day_ref
+
+  !   Author:    Frederic Hourdin      original: 15/01/93
+  ! The forcing defined here is from Held and Suarez, 1994, Bulletin
+  ! of the American Meteorological Society, 75, 1825.
+
+  IMPLICIT NONE
+
+  !   Declararations:
+  !   ---------------
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "academic.h"
+  include "ener.h"
+  include "iniprint.h"
+
+  !   Arguments:
+  !   ----------
+
+  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:
+  !   ------
+
+  REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+  REAL pks(ip1jmp1)                      ! exner au  sol
+  REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+  REAL phi(ip1jmp1,llm)                  ! geopotentiel
+  REAL ddsin,zsig,tetapv,w_pv  ! variables auxiliaires
+  real tetastrat ! potential temperature in the stratosphere, in K
+  real tetajl(jjp1,llm)
+  INTEGER i,j,l,lsup,ij
+
+  REAL teta0,ttp,delt_y,delt_z,eps ! Constantes pour profil de T
+  REAL k_f,k_c_a,k_c_s         ! Constantes de rappel
+  LOGICAL ok_geost             ! Initialisation vent geost. ou nul
+  LOGICAL ok_pv                ! Polar Vortex
+  REAL phi_pv,dphi_pv,gam_pv   ! Constantes pour polar vortex 
+
+  real zz,ran1
+  integer idum
+
+  REAL zdtvr
+  
+  character(len=*),parameter :: modname="iniacademic"
+  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
+  ! --------------------------------------
+  !
+  ! initialize planet radius, rotation rate,...
+  call conf_planete
+
+  time_0=0.
+  day_ref=1
+  annee_ref=0
+
+  im         = iim
+  jm         = jjm
+  day_ini    = 1
+  dtvr    = daysec/REAL(day_step)
+  zdtvr=dtvr
+  etot0      = 0.
+  ptot0      = 0.
+  ztot0      = 0.
+  stot0      = 0.
+  ang0       = 0.
+
+  if (llm == 1) then
+     ! specific initializations for the shallow water case
+     kappa=1
+  endif
+
+  CALL iniconst
+  CALL inigeom
+  CALL inifilr
+
+  if (llm == 1) then
+     ! initialize fields for the shallow water case, if required
+     if (.not.read_start) then
+        phis(:)=0.
+        q(:,:,:)=0
+        CALL sw_case_williamson91_6(vcov,ucov,teta,masse,ps)
+     endif
+  endif
+
+  academic_case: if (iflag_phys >= 2) then
+     ! initializations
+
+     ! 1. local parameters
+     ! by convention, winter is in the southern hemisphere
+     ! Geostrophic wind or no wind?
+     ok_geost=.TRUE.
+     CALL getin('ok_geost',ok_geost)
+     ! Constants for Newtonian relaxation and friction
+     k_f=1.                !friction 
+     CALL getin('k_j',k_f)
+     k_f=1./(daysec*k_f)
+     k_c_s=4.  !cooling surface
+     CALL getin('k_c_s',k_c_s)
+     k_c_s=1./(daysec*k_c_s)
+     k_c_a=40. !cooling free atm
+     CALL getin('k_c_a',k_c_a)
+     k_c_a=1./(daysec*k_c_a)
+     ! Constants for Teta equilibrium profile
+     teta0=315.     ! mean Teta (S.H. 315K)
+     CALL getin('teta0',teta0)
+     ttp=200.       ! Tropopause temperature (S.H. 200K)
+     CALL getin('ttp',ttp)
+     eps=0.         ! Deviation to N-S symmetry(~0-20K)
+     CALL getin('eps',eps)
+     delt_y=60.     ! Merid Temp. Gradient (S.H. 60K)
+     CALL getin('delt_y',delt_y)
+     delt_z=10.     ! Vertical Gradient (S.H. 10K)
+     CALL getin('delt_z',delt_z)
+     ! Polar vortex
+     ok_pv=.false.
+     CALL getin('ok_pv',ok_pv)
+     phi_pv=-50.            ! Latitude of edge of vortex
+     CALL getin('phi_pv',phi_pv)
+     phi_pv=phi_pv*pi/180.
+     dphi_pv=5.             ! Width of the edge
+     CALL getin('dphi_pv',dphi_pv)
+     dphi_pv=dphi_pv*pi/180.
+     gam_pv=4.              ! -dT/dz vortex (in K/km)
+     CALL getin('gam_pv',gam_pv)
+
+     ! 2. Initialize fields towards which to relax
+     ! Friction
+     knewt_g=k_c_a
+     DO l=1,llm
+        zsig=presnivs(l)/preff
+        knewt_t(l)=(k_c_s-k_c_a)*MAX(0.,(zsig-0.7)/0.3)
+        kfrict(l)=k_f*MAX(0.,(zsig-0.7)/0.3)
+     ENDDO
+     DO j=1,jjp1
+        clat4((j-1)*iip1+1:j*iip1)=cos(rlatu(j))**4
+     ENDDO
+
+     ! Potential temperature 
+     DO l=1,llm
+        zsig=presnivs(l)/preff
+        tetastrat=ttp*zsig**(-kappa)
+        tetapv=tetastrat
+        IF ((ok_pv).AND.(zsig.LT.0.1)) THEN
+           tetapv=tetastrat*(zsig*10.)**(kappa*cpp*gam_pv/1000./g)
+        ENDIF
+        DO j=1,jjp1
+           ! Troposphere
+           ddsin=sin(rlatu(j))
+           tetajl(j,l)=teta0-delt_y*ddsin*ddsin+eps*ddsin &
+                -delt_z*(1.-ddsin*ddsin)*log(zsig)
+           if (planet_type=="giant") then
+             tetajl(j,l)=teta0+(delt_y*                   &
+                ((sin(rlatu(j)*3.14159*eps+0.0001))**2)   &
+                / ((rlatu(j)*3.14159*eps+0.0001)**2))     &
+                -delt_z*log(zsig)
+           endif
+           ! Profil stratospherique isotherme (+vortex)
+           w_pv=(1.-tanh((rlatu(j)-phi_pv)/dphi_pv))/2.
+           tetastrat=tetastrat*(1.-w_pv)+tetapv*w_pv             
+           tetajl(j,l)=MAX(tetajl(j,l),tetastrat)  
+        ENDDO
+     ENDDO
+
+     !          CALL writefield('theta_eq',tetajl)
+
+     do l=1,llm
+        do j=1,jjp1
+           do i=1,iip1
+              ij=(j-1)*iip1+i
+              tetarappel(ij,l)=tetajl(j,l)
+           enddo
+        enddo
+     enddo
+
+     ! 3. Initialize fields (if necessary)
+     IF (.NOT. read_start) THEN
+        ! surface pressure
+        if (iflag_phys>2) then
+           ! specific value for CMIP5 aqua/terra planets
+           ! "Specify the initial dry mass to be equivalent to
+           !  a global mean surface pressure (101325 minus 245) Pa."
+           ps(:)=101080.  
+        else
+           ! use reference surface pressure
+           ps(:)=preff
+        endif
+        
+        ! ground geopotential
+        phis(:)=0.
+
+        CALL pression ( ip1jmp1, ap, bp, ps, p       )
+        if (pressure_exner) then
+          CALL exner_hyb( ip1jmp1, ps, p, pks, pk)
+        else
+          call exner_milieu(ip1jmp1,ps,p,pks,pk)
+        endif
+        CALL massdair(p,masse)
+
+        ! bulk initialization of temperature
+        teta(:,:)=tetarappel(:,:)
+
+        ! geopotential
+        CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
+
+        ! winds
+        if (ok_geost) then
+           call ugeostr(phi,ucov)
+        else
+           ucov(:,:)=0.
+        endif
+        vcov(:,:)=0.
+
+        ! bulk initialization of tracers
+        if (planet_type=="earth") then
+           ! Earth: first two tracers will be water
+           do i=1,nqtot
+              if (i == 1) q(:,:,i)=1.e-10
+              if (i == 2) q(:,:,i)=1.e-15
+              if (i.gt.2) q(:,:,i)=0.
+
+              ! CRisi: init des isotopes
+              ! distill de Rayleigh très simplifiée
+              if (ok_isotopes) then
+                if ((iso_num(i).gt.0).and.(zone_num(i).eq.0)) then          
+                   q(:,:,i)=q(:,:,iqpere(i))             &
+      &                  *tnat(iso_num(i))               &
+      &                  *(q(:,:,iqpere(i))/30.e-3)      &
+      &                  **(alpha_ideal(iso_num(i))-1)
+                endif                
+                if ((iso_num(i).gt.0).and.(zone_num(i).eq.1)) then
+                  q(:,:,i)=q(:,:,iqiso(iso_indnum(i),phase_num(i)))
+                endif
+              endif !if (ok_isotopes) then
+
+           enddo
+        else
+           q(:,:,:)=0
+        endif ! of if (planet_type=="earth")
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,1,ip1jmp1,'iniacademic_loc')
+        endif !if (ok_iso_verif) then
+
+        ! add random perturbation to temperature
+        idum  = -1
+        zz = ran1(idum)
+        idum  = 0
+        do l=1,llm
+           do ij=iip2,ip1jm
+              teta(ij,l)=teta(ij,l)*(1.+0.005*ran1(idum))
+           enddo
+        enddo
+
+        ! maintain periodicity in longitude
+        do l=1,llm
+           do ij=1,ip1jmp1,iip1
+              teta(ij+iim,l)=teta(ij,l)
+           enddo
+        enddo
+
+     ENDIF ! of IF (.NOT. read_start)
+  endif academic_case
+
+END SUBROUTINE iniacademic
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/iniinterp_horiz.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/iniinterp_horiz.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/iniinterp_horiz.F	(revision 3330)
@@ -0,0 +1,179 @@
+C 
+C $Header$
+C
+      subroutine iniinterp_horiz (imo,jmo,imn,jmn ,kllm,
+     &       rlonuo,rlatvo,rlonun,rlatvn,
+     &       ktotal,iik,jjk,jk,ik,intersec,airen)
+   
+      implicit none
+
+
+
+c ---------------------------------------------------------
+c Prepare l' interpolation des variables d'une grille LMDZ
+c  dans une autre grille LMDZ en conservant la quantite
+c  totale pour les variables intensives (/m2) : ex : Pression au sol
+c
+c   (Pour chaque case autour d'un point scalaire de la nouvelle
+c    grille, on calcule la surface (en m2)en intersection avec chaque
+c    case de l'ancienne grille , pour la future interpolation)
+c
+c on calcule aussi l' aire dans la nouvelle grille 
+c
+c
+c   Auteur:  F.Forget 01/1995
+c   -------
+c
+c ---------------------------------------------------------
+c   Declarations:
+c ==============
+c
+c  ARGUMENTS
+c  """""""""
+c INPUT
+       integer imo, jmo ! dimensions ancienne grille
+       integer imn,jmn  ! dimensions nouvelle grille
+       integer kllm ! taille du tableau des intersections
+       real rlonuo(imo+1)     !  Latitude et
+       real rlatvo(jmo)       !  longitude des
+       real rlonun(imn+1)     !  bord des
+       real rlatvn(jmn)     !  cases "scalaires" (input)
+
+c OUTPUT
+       integer ktotal ! nombre totale d'intersections reperees
+       integer iik(kllm), jjk(kllm),jk(kllm),ik(kllm)
+       real intersec(kllm)  ! surface des intersections (m2)
+       real airen (imn+1,jmn+1) ! aire dans la nouvelle grille
+
+
+       
+ 
+c Autres variables
+c """"""""""""""""
+       integer i,j,ii,jj,k
+       real a(imo+1),b(imo+1),c(jmo+1),d(jmo+1)
+       real an(imn+1),bn(imn+1),cn(jmn+1),dn(jmn+1)
+       real aa, bb,cc,dd
+       real pi
+
+       pi      = 2.*ASIN( 1. )
+
+
+
+c On repere les frontieres des cases :
+c =================================== 
+c
+c Attention, on ruse avec des latitudes = 90 deg au pole.
+
+
+c  ANcienne grile
+c  """"""""""""""
+      a(1) =   - rlonuo(imo+1)
+      b(1) = rlonuo(1)
+      do i=2,imo+1
+         a(i) = rlonuo(i-1)
+         b(i) =  rlonuo(i)
+      end do
+
+      d(1) = pi/2 
+      do j=1,jmo
+         c(j) = rlatvo(j) 
+         d(j+1) = rlatvo(j)
+      end do
+      c(jmo+1) = -pi/2 
+      
+
+c  Nouvelle grille
+c  """""""""""""""
+      an(1) =  - rlonun(imn+1)
+      bn(1) = rlonun(1)
+      do i=2,imn+1
+         an(i) = rlonun(i-1)
+         bn(i) =  rlonun(i)
+      end do
+
+      dn(1) = pi/2 
+      do j=1,jmn
+         cn(j) = rlatvn(j)
+         dn(j+1) = rlatvn(j)
+      end do
+      cn(jmn+1) = -pi/2 
+
+c Calcul de la surface des cases scalaires de la nouvelle grille
+c ==============================================================
+      do ii=1,imn + 1
+        do jj = 1,jmn+1
+               airen(ii,jj) = (bn(ii)-an(ii))*(sin(dn(jj))-sin(cn(jj)))
+        end do
+      end do
+
+c Calcul de la surface des intersections
+c ======================================
+
+c     boucle sur la nouvelle grille
+c     """"""""""""""""""""""""""""
+      ktotal = 0
+      do jj = 1,jmn+1
+       do j=1, jmo+1
+          if((cn(jj).lt.d(j)).and.(dn(jj).gt.c(j)))then
+              do ii=1,imn + 1
+                do i=1, imo +1
+                    if (  ((an(ii).lt.b(i)).and.(bn(ii).gt.a(i)))
+     &        .or. ((an(ii).lt.b(i)-2*pi).and.(bn(ii).gt.a(i)-2*pi)
+     &             .and.(b(i)-2*pi.lt.-pi) )
+     &        .or. ((an(ii).lt.b(i)+2*pi).and.(bn(ii).gt.a(i)+2*pi)
+     &             .and.(a(i)+2*pi.gt.pi) )
+     &                     )then
+                      ktotal = ktotal +1
+                      iik(ktotal) =ii
+                      jjk(ktotal) =jj
+                      ik(ktotal) =i
+                      jk(ktotal) =j
+
+                      dd = min(d(j), dn(jj))
+                      cc = cn(jj)
+                      if (cc.lt. c(j))cc=c(j)
+                      if((an(ii).lt.b(i)-2*pi).and.
+     &                  (bn(ii).gt.a(i)-2*pi)) then 
+                          bb = min(b(i)-2*pi,bn(ii))
+                          aa = an(ii)
+                          if (aa.lt.a(i)-2*pi) aa=a(i)-2*pi
+                      else if((an(ii).lt.b(i)+2*pi).and.
+     &                       (bn(ii).gt.a(i)+2*pi)) then
+                          bb = min(b(i)+2*pi,bn(ii))
+                          aa = an(ii)
+                          if (aa.lt.a(i)+2*pi) aa=a(i)+2*pi
+                      else 
+                          bb = min(b(i),bn(ii))
+                          aa = an(ii)
+                          if (aa.lt.a(i)) aa=a(i)
+                      end if
+                      intersec(ktotal)=(bb-aa)*(sin(dd)-sin(cc))
+                     end if
+                end do
+               end do
+             end if
+         end do
+       end do       
+
+
+
+c     TEST  INFO
+c     DO k=1,ktotal 
+c      ii = iik(k) 
+c      jj = jjk(k)
+c      i = ik(k)
+c      j = jk(k)
+c      if ((ii.eq.10).and.(jj.eq.10).and.(i.eq.10).and.(j.eq.10))then
+c      if (jj.eq.2.and.(ii.eq.1))then
+c          write(*,*) '**************** jj=',jj,'ii=',ii
+c          write(*,*) 'i,j =',i,j
+c          write(*,*) 'an,bn,cn,dn', an(ii), bn(ii), cn(jj),dn(jj)
+c          write(*,*) 'a,b,c,d', a(i), b(i), c(j),d(j)
+c          write(*,*) 'intersec(k)',intersec(k)
+c          write(*,*) 'airen(ii,jj)=',airen(ii,jj)
+c      end if
+c     END DO 
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/integrd.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/integrd.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/integrd.F	(revision 3330)
@@ -0,0 +1,255 @@
+!
+! $Id$
+!
+      SUBROUTINE integrd
+     $  (  nq,vcovm1,ucovm1,tetam1,psm1,massem1,
+     $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis !,finvmaold
+     &  )
+
+      use control_mod, only : planet_type
+      use comconst_mod, only: pi
+      USE logic_mod, ONLY: leapf
+      use comvert_mod, only: ap, bp
+      USE temps_mod, ONLY: dt
+
+      IMPLICIT NONE
+
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   objet:
+c   ------
+c
+c   Incrementation des tendances dynamiques
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      integer,intent(in) :: nq ! number of tracers to handle in this routine
+      real,intent(inout) :: vcov(ip1jm,llm) ! covariant meridional wind
+      real,intent(inout) :: ucov(ip1jmp1,llm) ! covariant zonal wind
+      real,intent(inout) :: teta(ip1jmp1,llm) ! potential temperature
+      real,intent(inout) :: q(ip1jmp1,llm,nq) ! advected tracers
+      real,intent(inout) :: ps(ip1jmp1) ! surface pressure
+      real,intent(inout) :: masse(ip1jmp1,llm) ! atmospheric mass
+      real,intent(in) :: phis(ip1jmp1) ! ground geopotential !!! unused
+      ! values at previous time step
+      real,intent(inout) :: vcovm1(ip1jm,llm)
+      real,intent(inout) :: ucovm1(ip1jmp1,llm)
+      real,intent(inout) :: tetam1(ip1jmp1,llm)
+      real,intent(inout) :: psm1(ip1jmp1)
+      real,intent(inout) :: massem1(ip1jmp1,llm)
+      ! the tendencies to add
+      real,intent(in) :: dv(ip1jm,llm)
+      real,intent(in) :: du(ip1jmp1,llm)
+      real,intent(in) :: dteta(ip1jmp1,llm)
+      real,intent(in) :: dp(ip1jmp1)
+      real,intent(in) :: dq(ip1jmp1,llm,nq) !!! unused
+!      real,intent(out) :: finvmaold(ip1jmp1,llm) !!! unused
+
+c   Local:
+c   ------
+
+      REAL vscr( ip1jm ),uscr( ip1jmp1 ),hscr( ip1jmp1 ),pscr(ip1jmp1)
+      REAL massescr( ip1jmp1,llm )
+!      REAL finvmasse(ip1jmp1,llm)
+      REAL p(ip1jmp1,llmp1)
+      REAL tpn,tps,tppn(iim),tpps(iim)
+      REAL qpn,qps,qppn(iim),qpps(iim)
+      REAL deltap( ip1jmp1,llm )
+
+      INTEGER  l,ij,iq,i,j
+
+      REAL SSUM
+
+c-----------------------------------------------------------------------
+
+      DO  l = 1,llm
+        DO  ij = 1,iip1
+         ucov(    ij    , l) = 0.
+         ucov( ij +ip1jm, l) = 0.
+         uscr(     ij      ) = 0.
+         uscr( ij +ip1jm   ) = 0.
+        ENDDO
+      ENDDO
+
+
+c    ............    integration  de       ps         ..............
+
+      CALL SCOPY(ip1jmp1*llm, masse, 1, massescr, 1)
+
+      DO ij = 1,ip1jmp1
+       pscr (ij)    = ps(ij)
+       ps (ij)      = psm1(ij) + dt * dp(ij)
+      ENDDO
+c
+      DO ij = 1,ip1jmp1
+        IF( ps(ij).LT.0. ) THEN
+         write(lunout,*) "integrd: negative surface pressure ",ps(ij)
+         write(lunout,*) " at node ij =", ij
+         ! since ij=j+(i-1)*jjp1 , we have
+         j=modulo(ij,jjp1)
+         i=1+(ij-j)/jjp1
+         write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
+     &                   " lat = ",rlatu(j)*180./pi, " deg"
+         call abort_gcm("integrd", "", 1)
+        ENDIF
+      ENDDO
+c
+      DO  ij    = 1, iim
+       tppn(ij) = aire(   ij   ) * ps(  ij    )
+       tpps(ij) = aire(ij+ip1jm) * ps(ij+ip1jm)
+      ENDDO
+       tpn      = SSUM(iim,tppn,1)/apoln
+       tps      = SSUM(iim,tpps,1)/apols
+      DO ij   = 1, iip1
+       ps(   ij   )  = tpn
+       ps(ij+ip1jm)  = tps
+      ENDDO
+c
+c  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 ...
+c
+      CALL pression ( ip1jmp1, ap, bp, ps, p )
+      CALL massdair (     p  , masse         )
+
+! Ehouarn : we don't use/need finvmaold and finvmasse,
+!           so might as well not compute them
+!      CALL   SCOPY( ijp1llm  , masse, 1, finvmasse,  1      )
+!      CALL filtreg( finvmasse, jjp1, llm, -2, 2, .TRUE., 1  )
+c
+
+c    ............   integration  de  ucov, vcov,  h     ..............
+
+      DO l = 1,llm
+
+       DO ij = iip2,ip1jm
+        uscr( ij )   =  ucov( ij,l )
+        ucov( ij,l ) = ucovm1( ij,l ) + dt * du( ij,l )
+       ENDDO
+
+       DO ij = 1,ip1jm
+        vscr( ij )   =  vcov( ij,l )
+        vcov( ij,l ) = vcovm1( ij,l ) + dt * dv( ij,l )
+       ENDDO
+
+       DO ij = 1,ip1jmp1
+        hscr( ij )    =  teta(ij,l)
+        teta ( ij,l ) = tetam1(ij,l) *  massem1(ij,l) / masse(ij,l) 
+     &                + dt * dteta(ij,l) / masse(ij,l)
+       ENDDO
+
+c   ....  Calcul de la valeur moyenne, unique  aux poles pour  teta    ......
+c
+c
+       DO  ij   = 1, iim
+        tppn(ij) = aire(   ij   ) * teta(  ij    ,l)
+        tpps(ij) = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+       ENDDO
+        tpn      = SSUM(iim,tppn,1)/apoln
+        tps      = SSUM(iim,tpps,1)/apols
+
+       DO ij   = 1, iip1
+        teta(   ij   ,l)  = tpn
+        teta(ij+ip1jm,l)  = tps
+       ENDDO
+c
+
+       IF(leapf)  THEN
+         CALL SCOPY ( ip1jmp1, uscr(1), 1, ucovm1(1, l), 1 )
+         CALL SCOPY (   ip1jm, vscr(1), 1, vcovm1(1, l), 1 )
+         CALL SCOPY ( ip1jmp1, hscr(1), 1, tetam1(1, l), 1 )
+       END IF
+
+      ENDDO ! of DO l = 1,llm
+
+
+c
+c   .......  integration de   q   ......
+c
+c$$$      IF( iadv(1).NE.3.AND.iadv(2).NE.3 )    THEN
+c$$$c
+c$$$       IF( forward. OR . leapf )  THEN
+c$$$        DO iq = 1,2
+c$$$        DO  l = 1,llm
+c$$$        DO ij = 1,ip1jmp1
+c$$$        q(ij,l,iq) = ( q(ij,l,iq)*finvmaold(ij,l) + dtvr *dq(ij,l,iq) )/
+c$$$     $                            finvmasse(ij,l)
+c$$$        ENDDO
+c$$$        ENDDO
+c$$$        ENDDO
+c$$$       ELSE
+c$$$         DO iq = 1,2
+c$$$         DO  l = 1,llm
+c$$$         DO ij = 1,ip1jmp1
+c$$$         q( ij,l,iq ) = q( ij,l,iq ) * finvmaold(ij,l) / finvmasse(ij,l)
+c$$$         ENDDO
+c$$$         ENDDO
+c$$$         ENDDO
+c$$$
+c$$$       END IF
+c$$$c
+c$$$      ENDIF
+
+      if (planet_type.eq."earth") then
+! Earth-specific treatment of first 2 tracers (water)
+        DO l = 1, llm
+          DO ij = 1, ip1jmp1
+            deltap(ij,l) =  p(ij,l) - p(ij,l+1) 
+          ENDDO
+        ENDDO
+
+        CALL qminimum( q, nq, deltap )
+
+c
+c    .....  Calcul de la valeur moyenne, unique  aux poles pour  q .....
+c
+
+       DO iq = 1, nq
+        DO l = 1, llm
+
+           DO ij = 1, iim
+             qppn(ij) = aire(   ij   ) * q(   ij   ,l,iq)
+             qpps(ij) = aire(ij+ip1jm) * q(ij+ip1jm,l,iq)
+           ENDDO
+             qpn  =  SSUM(iim,qppn,1)/apoln
+             qps  =  SSUM(iim,qpps,1)/apols
+
+           DO ij = 1, iip1
+             q(   ij   ,l,iq)  = qpn
+             q(ij+ip1jm,l,iq)  = qps
+           ENDDO
+
+        ENDDO
+       ENDDO
+
+! Ehouarn: forget about finvmaold
+!      CALL  SCOPY( ijp1llm , finvmasse, 1, finvmaold, 1 )
+
+      endif ! of if (planet_type.eq."earth")
+c
+c
+c     .....   FIN  de l'integration  de   q    .......
+
+c    .................................................................
+
+
+      IF( leapf )  THEN
+         CALL SCOPY (    ip1jmp1 ,  pscr   , 1,   psm1  , 1 )
+         CALL SCOPY ( ip1jmp1*llm, massescr, 1,  massem1, 1 )
+      END IF
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/interp_horiz.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/interp_horiz.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/interp_horiz.F	(revision 3330)
@@ -0,0 +1,154 @@
+c
+c $Id$
+c
+      subroutine interp_horiz (varo,varn,imo,jmo,imn,jmn,lm,
+     &  rlonuo,rlatvo,rlonun,rlatvn)  
+
+c===========================================================
+c  Interpolation Horizontales des variables d'une grille LMDZ
+c (des points SCALAIRES au point SCALAIRES)
+c  dans une autre grille LMDZ en conservant la quantite
+c  totale pour les variables intensives (/m2) : ex : Pression au sol
+c
+c Francois Forget (01/1995)
+c===========================================================
+
+      IMPLICIT NONE 
+
+c   Declarations:
+c ==============
+c
+c  ARGUMENTS
+c  """""""""
+        
+       integer imo, jmo ! dimensions ancienne grille (input)
+       integer imn,jmn  ! dimensions nouvelle grille (input)
+
+       real rlonuo(imo+1)     !  Latitude et
+       real rlatvo(jmo)       !  longitude des
+       real rlonun(imn+1)     !  bord des 
+       real rlatvn(jmn)     !  cases "scalaires" (input)
+
+       integer lm ! dimension verticale (input)
+       real varo (imo+1, jmo+1,lm) ! var dans l'ancienne grille (input)
+       real varn (imn+1,jmn+1,lm) ! var dans la nouvelle grille (output)
+
+c Autres variables
+c """"""""""""""""
+       real airetest(imn+1,jmn+1)
+       integer ii,jj,l
+
+       real airen (imn+1,jmn+1) ! aire dans la nouvelle grille
+c    Info sur les ktotal intersection entre les cases new/old grille
+       integer kllm, k, ktotal
+       parameter (kllm = 400*200*10)
+       integer iik(kllm), jjk(kllm),jk(kllm),ik(kllm)
+       real intersec(kllm)
+       real R
+       real totn, tots
+
+       logical firstcall, firsttest, aire_ok
+       save firsttest
+       data firsttest /.true./
+       data aire_ok /.true./
+
+       
+
+
+
+c initialisation
+c --------------
+c Si c'est le premier appel, on prepare l'interpolation
+c en calculant pour chaque case autour d'un point scalaire de la
+c nouvelle grille, la surface  de intersection avec chaque
+c    case de l'ancienne grille.
+
+
+        call iniinterp_horiz (imo,jmo,imn,jmn ,kllm,
+     &       rlonuo,rlatvo,rlonun,rlatvn,
+     &          ktotal,iik,jjk,jk,ik,intersec,airen)
+
+      do l=1,lm
+       do jj =1 , jmn+1
+        do ii=1, imn+1
+          varn(ii,jj,l) =0.
+        end do
+       end do
+      end do 
+       
+c Interpolation horizontale
+c -------------------------
+c boucle sur toute les ktotal intersections entre les cases
+c de l'ancienne et la  nouvelle grille
+c
+      PRINT *, 'ktotal 1 = ', ktotal
+     
+      do k=1,ktotal
+        do l=1,lm
+         varn(iik(k),jjk(k),l) = varn(iik(k),jjk(k),l) 
+     &        + varo(ik(k), jk(k),l)*intersec(k)/airen(iik(k),jjk(k))
+        end do
+      end do
+
+c Une seule valeur au pole pour les variables ! :
+c -----------------------------------------------
+       do l=1, lm
+         totn =0.
+         tots =0.
+           do ii =1, imn+1
+             totn = totn + varn(ii,1,l)
+             tots = tots + varn (ii,jmn+1,l)
+           end do 
+           do ii =1, imn+1
+             varn(ii,1,l) = totn/REAL(imn+1)
+             varn(ii,jmn+1,l) = tots/REAL(imn+1)
+           end do 
+       end do
+           
+
+c---------------------------------------------------------------
+c  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST 
+!!       if (.not.(firsttest)) goto 99
+!!       firsttest = .false.
+!! !     write (*,*) 'INTERP. HORIZ. : TEST SUR LES AIRES:'
+!!       do jj =1 , jmn+1
+!!         do ii=1, imn+1
+!!           airetest(ii,jj) =0.
+!!         end do
+!!       end do 
+!!       PRINT *, 'ktotal = ', ktotal
+!!       PRINT *, 'jmn+1 =', jmn+1, 'imn+1', imn+1
+!! 
+!!       do k=1,ktotal
+!!          airetest(iik(k),jjk(k))= airetest(iik(k),jjk(k)) +intersec(k) 
+!!       end DO
+!! 
+!! 
+!!       PRINT *, 'fin boucle'
+!!       do jj =1 , jmn+1
+!!        do ii=1, imn+1
+!!          r = airen(ii,jj)/airetest(ii,jj)
+!!          if ((r.gt.1.001).or.(r.lt.0.999)) then
+!! !             write (*,*) '********** PROBLEME D'' AIRES !!!',
+!! !     &                   ' DANS L''INTERPOLATION HORIZONTALE'
+!! !             write(*,*)'ii,jj,airen,airetest',
+!! !     &          ii,jj,airen(ii,jj),airetest(ii,jj)
+!!              aire_ok = .false.
+!!          end if
+!!        end do
+!!       end do
+!! !      if (aire_ok) write(*,*) 'INTERP. HORIZ. : AIRES OK'
+!!  99   continue
+
+c FIN TEST  FIN TEST  FIN TEST  FIN TEST  FIN TEST  FIN TEST  FIN TEST
+c---------------------------------------------------------------
+
+
+
+
+
+
+
+
+        return
+        end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/leapfrog.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/leapfrog.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/leapfrog.F	(revision 3330)
@@ -0,0 +1,881 @@
+!
+! $Id$
+!
+c
+c
+      SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0)
+
+
+cIM : pour sortir les param. du modele dans un fis. netcdf 110106
+#ifdef CPP_IOIPSL
+      use IOIPSL
+#endif
+      USE infotrac, ONLY: nqtot,ok_iso_verif
+      USE guide_mod, ONLY : guide_main
+      USE write_field, ONLY: writefield
+      USE control_mod, ONLY: nday, day_step, planet_type, offline,
+     &                       iconser, iphysiq, iperiod, dissip_period,
+     &                       iecri, ip_ebil_dyn, ok_dynzon, ok_dyn_ins,
+     &                       periodav, ok_dyn_ave, output_grads_dyn
+      use exner_hyb_m, only: exner_hyb
+      use exner_milieu_m, only: exner_milieu
+      USE comvert_mod, ONLY: ap,bp,pressure_exner,presnivs
+      USE comconst_mod, ONLY: cpp, dtphys, dtvr, pi, ihf
+      USE logic_mod, ONLY: iflag_phys,ok_guide,forward,leapf,apphys,
+     &                     statcl,conser,apdiss,purmats,ok_strato
+      USE temps_mod, ONLY: jD_ref,jH_ref,itaufin,day_ini,day_ref,
+     &                        start_time,dt
+
+      IMPLICIT NONE
+
+c      ......   Version  du 10/01/98    ..........
+
+c             avec  coordonnees  verticales hybrides 
+c   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   GCM LMD nouvelle grille
+c
+c=======================================================================
+c
+c  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
+c      et possibilite d'appeler une fonction f(y)  a derivee tangente
+c      hyperbolique a la  place de la fonction a derivee sinusoidale.
+
+c  ... Possibilite de choisir le shema pour l'advection de
+c        q  , en modifiant iadv dans traceur.def  (10/02) .
+c
+c      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
+c      Pour Van-Leer iadv=10 
+c
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissnew.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+      include "academic.h"
+
+      REAL,INTENT(IN) :: time_0 ! not used
+
+c   dynamical variables:
+      REAL,INTENT(INOUT) :: ucov(ip1jmp1,llm)    ! zonal covariant wind
+      REAL,INTENT(INOUT) :: vcov(ip1jm,llm)      ! meridional covariant wind
+      REAL,INTENT(INOUT) :: teta(ip1jmp1,llm)    ! potential temperature
+      REAL,INTENT(INOUT) :: ps(ip1jmp1)          ! surface pressure (Pa)
+      REAL,INTENT(INOUT) :: masse(ip1jmp1,llm)   ! air mass
+      REAL,INTENT(INOUT) :: phis(ip1jmp1)        ! geopotentiat at the surface
+      REAL,INTENT(INOUT) :: q(ip1jmp1,llm,nqtot) ! advected tracers
+
+      REAL p (ip1jmp1,llmp1  )               ! interlayer pressure
+      REAL pks(ip1jmp1)                      ! exner at the surface
+      REAL pk(ip1jmp1,llm)                   ! exner at mid-layer
+      REAL pkf(ip1jmp1,llm)                  ! filtered exner at mid-layer
+      REAL phi(ip1jmp1,llm)                  ! geopotential
+      REAL w(ip1jmp1,llm)                    ! vertical velocity
+
+      real zqmin,zqmax
+
+c variables dynamiques intermediaire pour le transport
+      REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) !flux de masse
+
+c   variables dynamiques au pas -1
+      REAL vcovm1(ip1jm,llm),ucovm1(ip1jmp1,llm)
+      REAL tetam1(ip1jmp1,llm),psm1(ip1jmp1)
+      REAL massem1(ip1jmp1,llm)
+
+c   tendances dynamiques
+      REAL dv(ip1jm,llm),du(ip1jmp1,llm)
+      REAL dteta(ip1jmp1,llm),dq(ip1jmp1,llm,nqtot),dp(ip1jmp1)
+
+c   tendances de la dissipation
+      REAL dvdis(ip1jm,llm),dudis(ip1jmp1,llm)
+      REAL dtetadis(ip1jmp1,llm)
+
+c   tendances physiques
+      REAL dvfi(ip1jm,llm),dufi(ip1jmp1,llm)
+      REAL dtetafi(ip1jmp1,llm),dqfi(ip1jmp1,llm,nqtot),dpfi(ip1jmp1)
+
+c   variables pour le fichier histoire
+      REAL dtav      ! intervalle de temps elementaire
+
+      REAL tppn(iim),tpps(iim),tpn,tps
+c
+      INTEGER itau,itaufinp1,iav
+!      INTEGER  iday ! jour julien
+      REAL       time 
+
+      REAL  SSUM
+!     REAL finvmaold(ip1jmp1,llm)
+
+cym      LOGICAL  lafin
+      LOGICAL :: lafin=.false.
+      INTEGER ij,iq,l
+      INTEGER ik
+
+      real time_step, t_wrt, t_ops
+
+!      REAL rdayvrai,rdaym_ini
+! jD_cur: jour julien courant
+! jH_cur: heure julienne courante
+      REAL :: jD_cur, jH_cur
+      INTEGER :: an, mois, jour
+      REAL :: secondes
+
+      LOGICAL first,callinigrads
+cIM : pour sortir les param. du modele dans un fis. netcdf 110106
+      save first
+      data first/.true./
+      real dt_cum
+      character*10 infile
+      integer zan, tau0, thoriid
+      integer nid_ctesGCM
+      save nid_ctesGCM
+      real degres
+      real rlong(iip1), rlatg(jjp1)
+      real zx_tmp_2d(iip1,jjp1)
+      integer ndex2d(iip1*jjp1)
+      logical ok_sync
+      parameter (ok_sync = .true.) 
+      logical physic
+
+      data callinigrads/.true./
+      character*10 string10
+
+      REAL :: flxw(ip1jmp1,llm)  ! flux de masse verticale
+
+c+jld variables test conservation energie
+      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+C     Tendance de la temp. potentiel d (theta)/ d t due a la 
+C     tansformation d'energie cinetique en energie thermique
+C     cree par la dissipation
+      REAL dtetaecdt(ip1jmp1,llm)
+      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+      REAL vnat(ip1jm,llm),unat(ip1jmp1,llm)
+      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+      CHARACTER*15 ztit
+!IM   INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
+!IM   SAVE      ip_ebil_dyn
+!IM   DATA      ip_ebil_dyn/0/
+c-jld 
+
+      character*80 dynhist_file, dynhistave_file
+      character(len=*),parameter :: modname="leapfrog"
+      character*80 abort_message
+
+      logical dissip_conservative
+      save dissip_conservative
+      data dissip_conservative/.true./
+
+      LOGICAL prem
+      save prem
+      DATA prem/.true./
+      INTEGER testita
+      PARAMETER (testita = 9)
+
+      logical , parameter :: flag_verif = .false.
+      
+
+      integer itau_w   ! pas de temps ecriture = itap + itau_phy
+
+
+      if (nday>=0) then
+         itaufin   = nday*day_step
+      else
+         itaufin   = -nday
+      endif
+      itaufinp1 = itaufin +1
+      itau = 0
+      physic=.true.
+      if (iflag_phys==0.or.iflag_phys==2) physic=.false.
+
+c      iday = day_ini+itau/day_step
+c      time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+c         IF(time.GT.1.) THEN
+c          time = time-1.
+c          iday = iday+1
+c         ENDIF
+
+
+c-----------------------------------------------------------------------
+c   On initialise la pression et la fonction d'Exner :
+c   --------------------------------------------------
+
+      dq(:,:,:)=0.
+      CALL pression ( ip1jmp1, ap, bp, ps, p       )
+      if (pressure_exner) then
+        CALL exner_hyb( ip1jmp1, ps, p, pks, pk, pkf )
+      else
+        CALL exner_milieu( ip1jmp1, ps, p, pks, pk, pkf )
+      endif
+
+c-----------------------------------------------------------------------
+c   Debut de l'integration temporelle:
+c   ----------------------------------
+
+   1  CONTINUE ! Matsuno Forward step begins here
+
+c   date: (NB: date remains unchanged for Backward step)
+c   -----
+
+      jD_cur = jD_ref + day_ini - day_ref +                             &
+     &          (itau+1)/day_step
+      jH_cur = jH_ref + start_time +                                    &
+     &          mod(itau+1,day_step)/float(day_step) 
+      jD_cur = jD_cur + int(jH_cur)
+      jH_cur = jH_cur - int(jH_cur)
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 321')
+        endif !if (ok_iso_verif) then
+
+#ifdef CPP_IOIPSL
+      if (ok_guide) then
+        call guide_main(itau,ucov,vcov,teta,q,masse,ps)
+      endif
+#endif
+
+
+c
+c     IF( MOD( itau, 10* day_step ).EQ.0 )  THEN
+c       CALL  test_period ( ucov,vcov,teta,q,p,phis )
+c       PRINT *,' ----   Test_period apres continue   OK ! -----', itau
+c     ENDIF 
+c
+
+! Save fields obtained at previous time step as '...m1'
+      CALL SCOPY( ijmllm ,vcov , 1, vcovm1 , 1 )
+      CALL SCOPY( ijp1llm,ucov , 1, ucovm1 , 1 )
+      CALL SCOPY( ijp1llm,teta , 1, tetam1 , 1 )
+      CALL SCOPY( ijp1llm,masse, 1, massem1, 1 )
+      CALL SCOPY( ip1jmp1, ps  , 1,   psm1 , 1 )
+
+      forward = .TRUE.
+      leapf   = .FALSE.
+      dt      =  dtvr
+
+c   ...    P.Le Van .26/04/94  ....
+! Ehouarn: finvmaold is actually not used
+!      CALL SCOPY   ( ijp1llm,   masse, 1, finvmaold,     1 )
+!      CALL filtreg ( finvmaold ,jjp1, llm, -2,2, .TRUE., 1 )
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 400')
+        endif !if (ok_iso_verif) then
+
+   2  CONTINUE ! Matsuno backward or leapfrog step begins here
+
+c-----------------------------------------------------------------------
+
+c   date: (NB: only leapfrog step requires recomputing date)
+c   -----
+
+      IF (leapf) THEN
+        jD_cur = jD_ref + day_ini - day_ref +
+     &            (itau+1)/day_step
+        jH_cur = jH_ref + start_time +
+     &            mod(itau+1,day_step)/float(day_step) 
+        jD_cur = jD_cur + int(jH_cur)
+        jH_cur = jH_cur - int(jH_cur)
+      ENDIF
+
+
+c   gestion des appels de la physique et des dissipations:
+c   ------------------------------------------------------
+c
+c   ...    P.Le Van  ( 6/02/95 )  ....
+
+      apphys = .FALSE.
+      statcl = .FALSE.
+      conser = .FALSE.
+      apdiss = .FALSE.
+
+      IF( purmats ) THEN
+      ! Purely Matsuno time stepping
+         IF( MOD(itau,iconser) .EQ.0.AND.  forward    ) conser = .TRUE.
+         IF( MOD(itau,dissip_period ).EQ.0.AND..NOT.forward ) 
+     s        apdiss = .TRUE.
+         IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward 
+     s          .and. physic                        ) apphys = .TRUE.
+      ELSE
+      ! Leapfrog/Matsuno time stepping 
+         IF( MOD(itau   ,iconser) .EQ. 0              ) conser = .TRUE.
+         IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward )
+     s        apdiss = .TRUE.
+         IF( MOD(itau+1,iphysiq).EQ.0.AND.physic       ) apphys=.TRUE.
+      END IF
+
+! Ehouarn: for Shallow Water case (ie: 1 vertical layer),
+!          supress dissipation step
+      if (llm.eq.1) then
+        apdiss=.false.
+      endif
+
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 589')
+        endif !if (ok_iso_verif) then
+
+c-----------------------------------------------------------------------
+c   calcul des tendances dynamiques:
+c   --------------------------------
+
+      ! compute geopotential phi()
+      CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
+      time = jD_cur + jH_cur
+      CALL caldyn 
+     $  ( itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
+     $    phi,conser,du,dv,dteta,dp,w, pbaru,pbarv, time )
+
+
+c-----------------------------------------------------------------------
+c   calcul des tendances advection des traceurs (dont l'humidite)
+c   -------------------------------------------------------------
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,
+     &           'leapfrog 686: avant caladvtrac')
+        endif !if (ok_iso_verif) then
+
+      IF( forward. OR . leapf )  THEN
+! Ehouarn: NB: fields sent to advtrac are those at the beginning of the time step
+         CALL caladvtrac(q,pbaru,pbarv,
+     *        p, masse, dq,  teta,
+     .        flxw, pk)
+          !write(*,*) 'caladvtrac 346'
+
+         
+         IF (offline) THEN
+Cmaf stokage du flux de masse pour traceurs OFF-LINE
+
+#ifdef CPP_IOIPSL
+           CALL fluxstokenc(pbaru,pbarv,masse,teta,phi,phis,
+     .   dtvr, itau)
+#endif
+
+
+         ENDIF ! of IF (offline)
+c
+      ENDIF ! of IF( forward. OR . leapf )
+
+
+c-----------------------------------------------------------------------
+c   integrations dynamique et traceurs:
+c   ----------------------------------
+
+        if (ok_iso_verif) then
+           write(*,*) 'leapfrog 720' 
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 756')
+        endif !if (ok_iso_verif) then
+        
+       CALL integrd ( nqtot,vcovm1,ucovm1,tetam1,psm1,massem1 ,
+     $         dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis )
+!     $              finvmaold                                    )
+
+       if (ok_iso_verif) then
+          write(*,*) 'leapfrog 724'
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 762')
+        endif !if (ok_iso_verif) then
+
+c .P.Le Van (26/04/94  ajout de  finvpold dans l'appel d'integrd)
+c
+c-----------------------------------------------------------------------
+c   calcul des tendances physiques:
+c   -------------------------------
+c    ########   P.Le Van ( Modif le  6/02/95 )   ###########
+c
+       IF( purmats )  THEN
+          IF( itau.EQ.itaufin.AND..NOT.forward ) lafin = .TRUE.
+       ELSE
+          IF( itau+1. EQ. itaufin )              lafin = .TRUE.
+       ENDIF
+c
+c
+       IF( apphys )  THEN
+c
+c     .......   Ajout   P.Le Van ( 17/04/96 )   ...........
+c
+
+         CALL pression (  ip1jmp1, ap, bp, ps,  p      )
+         if (pressure_exner) then
+           CALL exner_hyb(  ip1jmp1, ps, p,pks, pk, pkf )
+         else
+           CALL exner_milieu( ip1jmp1, ps, p, pks, pk, pkf )
+         endif
+
+! Appel a geopot ajoute le 2014/05/08 pour garantir la convergence numerique
+! avec dyn3dmem
+         CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
+!           rdaym_ini  = itau * dtvr / daysec
+!           rdayvrai   = rdaym_ini  + day_ini
+!           jD_cur = jD_ref + day_ini - day_ref
+!     $        + int (itau * dtvr / daysec) 
+!           jH_cur = jH_ref +                                            &
+!     &              (itau * dtvr / daysec - int(itau * dtvr / daysec)) 
+           jD_cur = jD_ref + day_ini - day_ref +                        &
+     &          (itau+1)/day_step
+
+           IF (planet_type .eq."generic") THEN
+              ! AS: we make jD_cur to be pday
+              jD_cur = int(day_ini + itau/day_step)
+           ENDIF
+
+           jH_cur = jH_ref + start_time +                               &
+     &              mod(itau+1,day_step)/float(day_step) 
+           jD_cur = jD_cur + int(jH_cur)
+           jH_cur = jH_cur - int(jH_cur)
+!         write(lunout,*)'itau, jD_cur = ', itau, jD_cur, jH_cur
+!         call ju2ymds(jD_cur+jH_cur, an, mois, jour, secondes)
+!         write(lunout,*)'current date = ',an, mois, jour, secondes 
+
+c rajout debug
+c       lafin = .true.
+
+
+c   Inbterface avec les routines de phylmd (phymars ... )
+c   -----------------------------------------------------
+
+c+jld
+
+c  Diagnostique de conservation de l'énergie : initialisation
+         IF (ip_ebil_dyn.ge.1 ) THEN 
+          ztit='bil dyn'
+! Ehouarn: be careful, diagedyn is Earth-specific!
+           IF (planet_type.eq."earth") THEN
+            CALL diagedyn(ztit,2,1,1,dtphys
+     &    , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+           ENDIF
+         ENDIF ! of IF (ip_ebil_dyn.ge.1 )
+c-jld
+#ifdef CPP_IOIPSL
+cIM decommenter les 6 lignes suivantes pour sortir quelques parametres dynamiques de LMDZ 
+cIM uncomment next 6 lines to get some parameters for LMDZ dynamics
+c        IF (first) THEN
+c         first=.false.
+c#include "ini_paramLMDZ_dyn.h"
+c        ENDIF
+c
+c#include "write_paramLMDZ_dyn.h"
+c
+#endif
+! #endif of #ifdef CPP_IOIPSL
+#ifdef CPP_PHYS
+         CALL calfis( lafin , jD_cur, jH_cur,
+     $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
+     $               du,dv,dteta,dq,
+     $               flxw,dufi,dvfi,dtetafi,dqfi,dpfi  )
+#endif
+c      ajout des tendances physiques:
+c      ------------------------------
+          CALL addfi( dtphys, leapf, forward   ,
+     $                  ucov, vcov, teta , q   ,ps ,
+     $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
+          ! since addfi updates ps(), also update p(), masse() and pk()
+          CALL pression (ip1jmp1,ap,bp,ps,p)
+          CALL massdair(p,masse)
+          if (pressure_exner) then
+            CALL exner_hyb(ip1jmp1,ps,p,pks,pk,pkf)
+          else
+            CALL exner_milieu(ip1jmp1,ps,p,pks,pk,pkf)
+          endif
+
+         IF (ok_strato) THEN
+           CALL top_bound( vcov,ucov,teta,masse,dtphys)
+         ENDIF
+       
+c
+c  Diagnostique de conservation de l'énergie : difference
+         IF (ip_ebil_dyn.ge.1 ) THEN 
+          ztit='bil phys'
+          IF (planet_type.eq."earth") THEN
+           CALL diagedyn(ztit,2,1,1,dtphys
+     &     , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+          ENDIF
+         ENDIF ! of IF (ip_ebil_dyn.ge.1 )
+
+       ENDIF ! of IF( apphys )
+
+      IF(iflag_phys.EQ.2) THEN ! "Newtonian" case
+!   Academic case : Simple friction and Newtonan relaxation 
+!   -------------------------------------------------------
+        DO l=1,llm   
+          DO ij=1,ip1jmp1
+           teta(ij,l)=teta(ij,l)-dtvr*
+     &      (teta(ij,l)-tetarappel(ij,l))*(knewt_g+knewt_t(l)*clat4(ij))
+          ENDDO
+        ENDDO ! of DO l=1,llm 
+        
+        if (planet_type.eq."giant") then
+          ! add an intrinsic heat flux at the base of the atmosphere
+          teta(:,1)=teta(:,1)+dtvr*aire(:)*ihf/cpp/masse(:,1)
+        endif
+
+        call friction(ucov,vcov,dtvr)
+        
+        ! Sponge layer (if any)
+        IF (ok_strato) THEN
+!          dufi(:,:)=0.
+!          dvfi(:,:)=0.
+!          dtetafi(:,:)=0.
+!          dqfi(:,:,:)=0.
+!          dpfi(:)=0.
+!          CALL top_bound(vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
+           CALL top_bound( vcov,ucov,teta,masse,dtvr)
+!          CALL addfi( dtvr, leapf, forward   ,
+!     $                  ucov, vcov, teta , q   ,ps ,
+!     $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
+        ENDIF ! of IF (ok_strato) 
+      ENDIF ! of IF (iflag_phys.EQ.2)
+
+
+c-jld
+
+        CALL pression ( ip1jmp1, ap, bp, ps, p                  )
+        if (pressure_exner) then
+          CALL exner_hyb( ip1jmp1, ps, p, pks, pk, pkf )
+        else
+          CALL exner_milieu( ip1jmp1, ps, p, pks, pk, pkf )
+        endif
+        CALL massdair(p,masse)
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 1196')
+        endif !if (ok_iso_verif) then
+
+c-----------------------------------------------------------------------
+c   dissipation horizontale et verticale  des petites echelles:
+c   ----------------------------------------------------------
+
+      IF(apdiss) THEN
+
+
+c   calcul de l'energie cinetique avant dissipation
+        call covcont(llm,ucov,vcov,ucont,vcont)
+        call enercin(vcov,ucov,vcont,ucont,ecin0)
+
+c   dissipation
+        CALL dissip(vcov,ucov,teta,p,dvdis,dudis,dtetadis)
+        ucov=ucov+dudis
+        vcov=vcov+dvdis
+c       teta=teta+dtetadis
+
+
+c------------------------------------------------------------------------
+        if (dissip_conservative) then
+C       On rajoute la tendance due a la transform. Ec -> E therm. cree
+C       lors de la dissipation
+            call covcont(llm,ucov,vcov,ucont,vcont)
+            call enercin(vcov,ucov,vcont,ucont,ecin)
+            dtetaecdt= (ecin0-ecin)/ pk
+c           teta=teta+dtetaecdt
+            dtetadis=dtetadis+dtetaecdt
+        endif
+        teta=teta+dtetadis
+c------------------------------------------------------------------------
+
+
+c    .......        P. Le Van (  ajout  le 17/04/96  )   ...........
+c   ...      Calcul de la valeur moyenne, unique de h aux poles  .....
+c
+
+        DO l  =  1, llm
+          DO ij =  1,iim
+           tppn(ij)  = aire(  ij    ) * teta(  ij    ,l)
+           tpps(ij)  = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+          ENDDO
+           tpn  = SSUM(iim,tppn,1)/apoln
+           tps  = SSUM(iim,tpps,1)/apols
+
+          DO ij = 1, iip1
+           teta(  ij    ,l) = tpn
+           teta(ij+ip1jm,l) = tps
+          ENDDO
+        ENDDO
+
+        if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
+           DO ij =  1,iim
+             tppn(ij)  = aire(  ij    ) * ps (  ij    )
+             tpps(ij)  = aire(ij+ip1jm) * ps (ij+ip1jm)
+           ENDDO
+             tpn  = SSUM(iim,tppn,1)/apoln
+             tps  = SSUM(iim,tpps,1)/apols
+
+           DO ij = 1, iip1
+             ps(  ij    ) = tpn
+             ps(ij+ip1jm) = tps
+           ENDDO
+        endif ! of if (1 == 0)
+
+      END IF ! of IF(apdiss)
+
+c ajout debug
+c              IF( lafin ) then  
+c                abort_message = 'Simulation finished'
+c                call abort_gcm(modname,abort_message,0)
+c              ENDIF
+        
+c   ********************************************************************
+c   ********************************************************************
+c   .... fin de l'integration dynamique  et physique pour le pas itau ..
+c   ********************************************************************
+c   ********************************************************************
+
+c   preparation du pas d'integration suivant  ......
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 1509')
+        endif !if (ok_iso_verif) then
+
+      IF ( .NOT.purmats ) THEN
+c       ........................................................
+c       ..............  schema matsuno + leapfrog  ..............
+c       ........................................................
+
+            IF(forward. OR. leapf) THEN
+              itau= itau + 1
+c              iday= day_ini+itau/day_step
+c              time= REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+c                IF(time.GT.1.) THEN
+c                  time = time-1.
+c                  iday = iday+1
+c                ENDIF
+            ENDIF
+
+
+            IF( itau. EQ. itaufinp1 ) then  
+              if (flag_verif) then
+                write(79,*) 'ucov',ucov
+                write(80,*) 'vcov',vcov
+                write(81,*) 'teta',teta
+                write(82,*) 'ps',ps
+                write(83,*) 'q',q
+                WRITE(85,*) 'q1 = ',q(:,:,1)
+                WRITE(86,*) 'q3 = ',q(:,:,3)
+              endif
+
+              abort_message = 'Simulation finished'
+
+              call abort_gcm(modname,abort_message,0)
+            ENDIF
+c-----------------------------------------------------------------------
+c   ecriture du fichier histoire moyenne:
+c   -------------------------------------
+
+            IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
+               IF(itau.EQ.itaufin) THEN
+                  iav=1
+               ELSE
+                  iav=0
+               ENDIF
+               
+!              ! Ehouarn: re-compute geopotential for outputs
+               CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
+
+               IF (ok_dynzon) THEN
+#ifdef CPP_IOIPSL
+                 CALL bilan_dyn(2,dtvr*iperiod,dtvr*day_step*periodav,
+     &                 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
+#endif
+               END IF
+               IF (ok_dyn_ave) THEN
+#ifdef CPP_IOIPSL
+                 CALL writedynav(itau,vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+#endif
+               ENDIF
+
+            ENDIF ! of IF((MOD(itau,iperiod).EQ.0).OR.(itau.EQ.itaufin))
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 1584')
+        endif !if (ok_iso_verif) then
+
+c-----------------------------------------------------------------------
+c   ecriture de la bande histoire:
+c   ------------------------------
+
+            IF( MOD(itau,iecri).EQ.0) THEN
+             ! Ehouarn: output only during LF or Backward Matsuno
+             if (leapf.or.(.not.leapf.and.(.not.forward))) then
+              CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
+              unat=0.
+              do l=1,llm
+                unat(iip2:ip1jm,l)=ucov(iip2:ip1jm,l)/cu(iip2:ip1jm)
+                vnat(:,l)=vcov(:,l)/cv(:)
+              enddo
+#ifdef CPP_IOIPSL
+              if (ok_dyn_ins) then
+!               write(lunout,*) "leapfrog: call writehist, itau=",itau
+               CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
+!               call WriteField('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+!               call WriteField('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+!              call WriteField('teta',reshape(teta,(/iip1,jmp1,llm/)))
+!               call WriteField('ps',reshape(ps,(/iip1,jmp1/)))
+!               call WriteField('masse',reshape(masse,(/iip1,jmp1,llm/)))
+              endif ! of if (ok_dyn_ins)
+#endif
+! For some Grads outputs of fields
+              if (output_grads_dyn) then
+#include "write_grads_dyn.h"
+              endif
+             endif ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
+            ENDIF ! of IF(MOD(itau,iecri).EQ.0)
+
+            IF(itau.EQ.itaufin) THEN
+
+
+!              if (planet_type.eq."earth") then
+! Write an Earth-format restart file
+                CALL dynredem1("restart.nc",start_time,
+     &                         vcov,ucov,teta,q,masse,ps)
+!              endif ! of if (planet_type.eq."earth")
+
+              CLOSE(99)
+              !!! Ehouarn: Why not stop here and now?
+            ENDIF ! of IF (itau.EQ.itaufin)
+
+c-----------------------------------------------------------------------
+c   gestion de l'integration temporelle:
+c   ------------------------------------
+
+            IF( MOD(itau,iperiod).EQ.0 )    THEN
+                    GO TO 1
+            ELSE IF ( MOD(itau-1,iperiod). EQ. 0 ) THEN
+
+                   IF( forward )  THEN
+c      fin du pas forward et debut du pas backward
+
+                      forward = .FALSE.
+                        leapf = .FALSE.
+                           GO TO 2
+
+                   ELSE
+c      fin du pas backward et debut du premier pas leapfrog
+
+                        leapf =  .TRUE.
+                        dt  =  2.*dtvr
+                        GO TO 2 
+                   END IF ! of IF (forward)
+            ELSE
+
+c      ......   pas leapfrog  .....
+
+                 leapf = .TRUE.
+                 dt  = 2.*dtvr
+                 GO TO 2
+            END IF ! of IF (MOD(itau,iperiod).EQ.0)
+                   !    ELSEIF (MOD(itau-1,iperiod).EQ.0)
+
+      ELSE ! of IF (.not.purmats)
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 1664')
+        endif !if (ok_iso_verif) then
+
+c       ........................................................
+c       ..............       schema  matsuno        ...............
+c       ........................................................
+            IF( forward )  THEN
+
+             itau =  itau + 1
+c             iday = day_ini+itau/day_step
+c             time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+c
+c                  IF(time.GT.1.) THEN
+c                   time = time-1.
+c                   iday = iday+1
+c                  ENDIF
+
+               forward =  .FALSE.
+               IF( itau. EQ. itaufinp1 ) then  
+                 abort_message = 'Simulation finished'
+                 call abort_gcm(modname,abort_message,0)
+               ENDIF
+               GO TO 2
+
+            ELSE ! of IF(forward) i.e. backward step
+ 
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'leapfrog 1698')
+        endif !if (ok_iso_verif) then  
+
+              IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
+               IF(itau.EQ.itaufin) THEN
+                  iav=1
+               ELSE
+                  iav=0
+               ENDIF
+
+!              ! Ehouarn: re-compute geopotential for outputs
+               CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
+
+               IF (ok_dynzon) THEN 
+#ifdef CPP_IOIPSL
+                 CALL bilan_dyn(2,dtvr*iperiod,dtvr*day_step*periodav,
+     &                 ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
+#endif
+               ENDIF
+               IF (ok_dyn_ave) THEN
+#ifdef CPP_IOIPSL
+                 CALL writedynav(itau,vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+#endif
+               ENDIF
+
+              ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
+
+              IF(MOD(itau,iecri         ).EQ.0) THEN
+c              IF(MOD(itau,iecri*day_step).EQ.0) THEN
+                CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
+                unat=0.
+                do l=1,llm
+                  unat(iip2:ip1jm,l)=ucov(iip2:ip1jm,l)/cu(iip2:ip1jm)
+                  vnat(:,l)=vcov(:,l)/cv(:)
+                enddo
+#ifdef CPP_IOIPSL
+              if (ok_dyn_ins) then
+!                write(lunout,*) "leapfrog: call writehist (b)",
+!     &                        itau,iecri
+                CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
+              endif ! of if (ok_dyn_ins)
+#endif
+! For some Grads outputs
+                if (output_grads_dyn) then
+#include "write_grads_dyn.h"
+                endif
+
+              ENDIF ! of IF(MOD(itau,iecri         ).EQ.0) 
+
+              IF(itau.EQ.itaufin) THEN
+!                if (planet_type.eq."earth") then
+                  CALL dynredem1("restart.nc",start_time,
+     &                           vcov,ucov,teta,q,masse,ps)
+!                endif ! of if (planet_type.eq."earth")
+              ENDIF ! of IF(itau.EQ.itaufin)
+
+              forward = .TRUE.
+              GO TO  1
+
+            ENDIF ! of IF (forward)
+
+      END IF ! of IF(.not.purmats)
+
+      STOP
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/logic_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/logic_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/logic_mod.F90	(revision 3330)
@@ -0,0 +1,35 @@
+!
+! $Id$
+!
+MODULE logic_mod
+
+IMPLICIT NONE
+
+  LOGICAL purmats ! true if time stepping is purely Matsuno scheme
+                  ! false implies Matsuno-Leapfrog time stepping scheme
+  LOGICAL forward ! true if during forward phase of Matsuno step
+  LOGICAL leapf ! true if during a leapfrog time stepping step
+  LOGICAL apphys ! true if during a time step when physics will be called
+  LOGICAL statcl
+  LOGICAL conser
+  LOGICAL apdiss ! true if during a time step when dissipation will be called
+  LOGICAL apdelq
+  LOGICAL saison
+  LOGICAL ecripar
+  LOGICAL fxyhypb ! true if using hyperbolic function discretization
+                  ! for latitudinal grid 
+  LOGICAL ysinus ! true if using sine function discretiation
+                 ! for latitudinal grid
+  LOGICAL read_start ! true if reading a start.nc file to initialize fields
+  LOGICAL ok_guide ! true if nudging
+  LOGICAL ok_strato
+  LOGICAL ok_gradsfile
+  LOGICAL ok_limit
+  LOGICAL ok_etat0
+  LOGICAL hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
+                 ! (only used if disvert_type==2)
+  INTEGER iflag_phys ! type of physics to call: 0 none, 1: phy*** package,
+                     ! 2: Held & Suarez, 101-200: aquaplanets & terraplanets
+  INTEGER iflag_trac
+
+END MODULE logic_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/mod_const_mpi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/mod_const_mpi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/mod_const_mpi.F90	(revision 3330)
@@ -0,0 +1,16 @@
+MODULE mod_const_mpi
+
+  INTEGER :: COMM_LMDZ
+  INTEGER :: 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/IPSLCM5A2.1_ISO/libf/dyn3d/paramet.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/paramet.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/paramet.h	(revision 3330)
@@ -0,0 +1,29 @@
+!
+! $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)
+!
+!
+!-----------------------------------------------------------------------
+!   INCLUDE 'paramet.h'
+
+      INTEGER  iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1
+      INTEGER  kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm
+      INTEGER  ijmllm,mvar
+      INTEGER jcfil,jcfllm
+
+      PARAMETER( iip1= iim+1,iip2=iim+2,iip3=iim+3                       &
+     &    ,jjp1=jjm+1-1/jjm)
+      PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
+      PARAMETER( kftd  = iim/2 -ndm )
+      PARAMETER( ip1jm  = iip1*jjm,  ip1jmp1= iip1*jjp1 )
+      PARAMETER( ip1jmi1= ip1jm - iip1 )
+      PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm )
+      PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm )
+      PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm )
+
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/qminimum.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/qminimum.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/qminimum.F	(revision 3330)
@@ -0,0 +1,191 @@
+!
+! $Header$
+!
+      SUBROUTINE qminimum( q,nqtot,deltap )
+
+      USE infotrac, ONLY: ok_isotopes,ntraciso,iqiso,ok_iso_verif
+      IMPLICIT none
+c
+c  -- Objet : Traiter les valeurs trop petites (meme negatives)
+c             pour l'eau vapeur et l'eau liquide
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+      INTEGER nqtot
+      REAL q(ip1jmp1,llm,nqtot), deltap(ip1jmp1,llm)
+c
+      INTEGER iq_vap, iq_liq
+      PARAMETER ( iq_vap = 1 ) ! indice pour l'eau vapeur
+      PARAMETER ( iq_liq = 2 ) ! indice pour l'eau liquide
+      REAL seuil_vap, seuil_liq
+      PARAMETER ( seuil_vap = 1.0e-10 ) ! seuil pour l'eau vapeur
+      PARAMETER ( seuil_liq = 1.0e-11 ) ! seuil pour l'eau liquide
+c
+c  NB. ....( Il est souhaitable mais non obligatoire que les valeurs des
+c            parametres seuil_vap, seuil_liq soient pareilles a celles 
+c            qui  sont utilisees dans la routine    ADDFI       )
+c     .................................................................
+c
+      INTEGER i, k, iq
+      REAL zx_defau, zx_abc, zx_pump(ip1jmp1), pompe
+
+      real zx_defau_diag(ip1jmp1,llm,2) 
+      real q_follow(ip1jmp1,llm,2)
+c
+      REAL SSUM
+c
+      INTEGER imprim
+      SAVE imprim
+      DATA imprim /0/
+      !INTEGER ijb,ije
+      !INTEGER Index_pump(ij_end-ij_begin+1)
+      !INTEGER nb_pump
+      INTEGER ixt
+c
+c Quand l'eau liquide est trop petite (ou negative), on prend
+c l'eau vapeur de la meme couche et la convertit en eau liquide
+c (sans changer la temperature !)
+c
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'qminimum 52')   
+        endif !if (ok_iso_verif) then     
+
+      zx_defau_diag(:,:,:)=0.0
+      q_follow(:,:,1:2)=q(:,:,1:2)  
+      DO 1000 k = 1, llm
+        DO 1040 i = 1, ip1jmp1
+          if (seuil_liq - q(i,k,iq_liq) .gt. 0.d0 ) then
+
+              if (ok_isotopes) then
+                 zx_defau_diag(i,k,iq_liq)=AMAX1
+     :               ( seuil_liq - q(i,k,iq_liq), 0.0 )
+              endif !if (ok_isotopes) then
+
+             q(i,k,iq_vap) = q(i,k,iq_vap) + q(i,k,iq_liq) - seuil_liq
+             q(i,k,iq_liq) = seuil_liq
+           endif
+ 1040   CONTINUE
+ 1000 CONTINUE
+c
+c Quand l'eau vapeur est trop faible (ou negative), on complete
+c le defaut en prennant de l'eau vapeur de la couche au-dessous.
+c
+      iq = iq_vap
+c
+      DO k = llm, 2, -1
+ccc      zx_abc = dpres(k) / dpres(k-1)
+        DO i = 1, ip1jmp1
+          if ( seuil_vap - q(i,k,iq) .gt. 0.d0 ) then
+
+            if (ok_isotopes) then
+              zx_defau_diag(i,k,iq)=AMAX1( seuil_vap - q(i,k,iq), 0.0 )
+            endif !if (ok_isotopes) then
+
+            q(i,k-1,iq) =  q(i,k-1,iq) - ( seuil_vap - q(i,k,iq) ) *
+     &                     deltap(i,k) / deltap(i,k-1)
+            q(i,k,iq)   =  seuil_vap  
+          endif
+        ENDDO
+      ENDDO
+c
+c Quand il s'agit de la premiere couche au-dessus du sol, on
+c doit imprimer un message d'avertissement (saturation possible).
+c
+      DO i = 1, ip1jmp1
+         zx_pump(i) = AMAX1( 0.0, seuil_vap - q(i,1,iq) )
+         q(i,1,iq)  = AMAX1( q(i,1,iq), seuil_vap )
+      ENDDO
+      pompe = SSUM(ip1jmp1,zx_pump,1)
+      IF (imprim.LE.500 .AND. pompe.GT.0.0) THEN
+         WRITE(6,'(1x,"ATT!:on pompe de l eau au sol",e15.7)') pompe
+         DO i = 1, ip1jmp1
+            IF (zx_pump(i).GT.0.0) THEN
+               imprim = imprim + 1
+               PRINT*,'QMINIMUM:  en ',i,zx_pump(i)
+            ENDIF
+         ENDDO
+      ENDIF
+
+      !write(*,*) 'qminimum 128'
+      if (ok_isotopes) then
+      ! CRisi: traiter de même les traceurs d'eau
+      ! Mais il faut les prendre à l'envers pour essayer de conserver la
+      ! masse.
+      ! 1) pompage dans le sol  
+      ! On suppose que ce pompage se fait sans isotopes -> on ne modifie
+      ! rien ici et on croise les doigts pour que ça ne soit pas trop
+      ! génant
+      DO i = 1,ip1jmp1
+        if (zx_pump(i).gt.0.0) then
+          q_follow(i,1,iq_vap)=q_follow(i,1,iq_vap)+zx_pump(i)
+        endif !if (zx_pump(i).gt.0.0) then
+      enddo !DO i = 1,ip1jmp1
+
+      ! 2) transfert de vap vers les couches plus hautes
+      !write(*,*) 'qminimum 139'
+      do k=2,llm
+        DO i = 1,ip1jmp1
+          if (zx_defau_diag(i,k,iq_vap).gt.0.0) then             
+              ! on ajoute la vapeur en k              
+              do ixt=1,ntraciso
+               q(i,k,iqiso(ixt,iq_vap))=q(i,k,iqiso(ixt,iq_vap))
+     :              +zx_defau_diag(i,k,iq_vap)
+     :              *q(i,k-1,iqiso(ixt,iq_vap))/q_follow(i,k-1,iq_vap)
+                
+              ! et on la retranche en k-1
+               q(i,k-1,iqiso(ixt,iq_vap))=q(i,k-1,iqiso(ixt,iq_vap))
+     :              -zx_defau_diag(i,k,iq_vap)
+     :              *deltap(i,k)/deltap(i,k-1)
+     :              *q(i,k-1,iqiso(ixt,iq_vap))/q_follow(i,k-1,iq_vap)
+
+              enddo !do ixt=1,niso
+              q_follow(i,k,iq_vap)=   q_follow(i,k,iq_vap)
+     :               +zx_defau_diag(i,k,iq_vap)
+              q_follow(i,k-1,iq_vap)=   q_follow(i,k-1,iq_vap)
+     :               -zx_defau_diag(i,k,iq_vap)
+     :              *deltap(i,k)/deltap(i,k-1)
+          endif !if (zx_defau_diag(i,k,iq_vap).gt.0.0) then
+        enddo !DO i = 1, ip1jmp1        
+       enddo !do k=2,llm
+
+        if (ok_iso_verif) then     
+           call check_isotopes_seq(q,ip1jmp1,'qminimum 168')
+        endif !if (ok_iso_verif) then
+        
+      
+        ! 3) transfert d'eau de la vapeur au liquide
+        !write(*,*) 'qminimum 164'
+        do k=1,llm
+        DO i = 1,ip1jmp1
+          if (zx_defau_diag(i,k,iq_liq).gt.0.0) then
+
+              ! on ajoute eau liquide en k en k              
+              do ixt=1,ntraciso
+               q(i,k,iqiso(ixt,iq_liq))=q(i,k,iqiso(ixt,iq_liq))
+     :              +zx_defau_diag(i,k,iq_liq)
+     :              *q(i,k,iqiso(ixt,iq_vap))/q_follow(i,k,iq_vap)
+              ! et on la retranche à la vapeur en k
+               q(i,k,iqiso(ixt,iq_vap))=q(i,k,iqiso(ixt,iq_vap))
+     :              -zx_defau_diag(i,k,iq_liq)
+     :              *q(i,k,iqiso(ixt,iq_vap))/q_follow(i,k,iq_vap)   
+              enddo !do ixt=1,niso
+              q_follow(i,k,iq_liq)=   q_follow(i,k,iq_liq)
+     :               +zx_defau_diag(i,k,iq_liq)
+              q_follow(i,k,iq_vap)=   q_follow(i,k,iq_vap)
+     :               -zx_defau_diag(i,k,iq_liq)
+          endif !if (zx_defau_diag(i,k,iq_vap).gt.0.0) then
+        enddo !DO i = 1, ip1jmp1
+       enddo !do k=2,llm  
+
+        if (ok_iso_verif) then
+           call check_isotopes_seq(q,ip1jmp1,'qminimum 197')
+        endif !if (ok_iso_verif) then
+
+      endif !if (ok_isotopes) then
+      !write(*,*) 'qminimum 188'
+      
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/sw_case_williamson91_6.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/sw_case_williamson91_6.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/sw_case_williamson91_6.F	(revision 3330)
@@ -0,0 +1,141 @@
+!
+! $Id $
+!
+      SUBROUTINE sw_case_williamson91_6(vcov,ucov,teta,masse,ps)
+
+c=======================================================================
+c
+c   Author:    Thomas Dubos      original: 26/01/2010
+c   -------
+c
+c   Subject:
+c   ------
+c   Realise le cas-test 6 de Williamson et al. (1991) : onde de Rossby-Haurwitz
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE comconst_mod, ONLY: cpp, omeg, rad
+      USE comvert_mod, ONLY: ap, bp, preff
+      
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+c   variables dynamiques
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
+      REAL teta(ip1jmp1,llm)                 ! temperature potentielle
+      REAL ps(ip1jmp1)                       ! pression  au sol
+      REAL masse(ip1jmp1,llm)                ! masse d'air
+      REAL phis(ip1jmp1)                     ! geopotentiel au sol
+
+c   Local:
+c   ------
+
+      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+      REAL pks(ip1jmp1)                      ! exner au  sol
+      REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+      REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
+      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
+
+      REAL :: sinth,costh,costh2, Ath,Bth,Cth, lon,dps
+      INTEGER i,j,ij
+
+      REAL, PARAMETER    :: rho=1 ! masse volumique de l'air (arbitraire)
+      REAL, PARAMETER    :: K    = 7.848e-6  ! K = \omega
+      REAL, PARAMETER    :: gh0  = 9.80616 * 8e3 
+      INTEGER, PARAMETER :: R0=4, R1=R0+1, R2=R0+2         ! mode 4
+c NB : rad = 6371220 dans W91 (6371229 dans LMDZ)
+c      omeg = 7.292e-5 dans W91 (7.2722e-5 dans LMDZ)
+ 
+      IF(0==0) THEN
+c Williamson et al. (1991) : onde de Rossby-Haurwitz
+         teta = preff/rho/cpp
+c geopotentiel (pression de surface)
+         do j=1,jjp1
+            costh2 = cos(rlatu(j))**2
+            Ath = (R0+1)*(costh2**2) + (2*R0*R0-R0-2)*costh2 - 2*R0*R0
+            Ath = .25*(K**2)*(costh2**(R0-1))*Ath
+            Ath = .5*K*(2*omeg+K)*costh2 + Ath 
+            Bth = (R1*R1+1)-R1*R1*costh2
+            Bth = 2*(omeg+K)*K/(R1*R2) * (costh2**(R0/2))*Bth
+            Cth = R1*costh2 - R2
+            Cth = .25*K*K*(costh2**R0)*Cth
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonv(i)
+               dps = Ath + Bth*cos(R0*lon) + Cth*cos(2*R0*lon)
+               ps(ij) = rho*(gh0 + (rad**2)*dps)
+            enddo
+         enddo
+         write(lunout,*) 'W91 ps', MAXVAL(ps), MINVAL(ps)
+c vitesse zonale ucov
+         do j=1,jjp1
+            costh  = cos(rlatu(j))
+            costh2 = costh**2
+            Ath = rad*K*costh
+            Bth = R0*(1-costh2)-costh2
+            Bth = rad*K*Bth*(costh**(R0-1))
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonu(i)
+               ucov(ij,1) = (Ath + Bth*cos(R0*lon))
+            enddo
+         enddo
+         write(lunout,*) 'W91 u', MAXVAL(ucov(:,1)), MINVAL(ucov(:,1))
+         ucov(:,1)=ucov(:,1)*cu
+c vitesse meridienne vcov
+         do j=1,jjm
+            sinth  = sin(rlatv(j))
+            costh  = cos(rlatv(j))
+            Ath = -rad*K*R0*sinth*(costh**(R0-1))
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonv(i)
+               vcov(ij,1) = Ath*sin(R0*lon)
+            enddo
+         enddo
+         write(lunout,*) 'W91 v', MAXVAL(vcov(:,1)), MINVAL(vcov(:,1))
+         vcov(:,1)=vcov(:,1)*cv
+         
+c         ucov=0
+c         vcov=0
+      ELSE
+c test non-tournant, onde se propageant en latitude
+         do j=1,jjp1
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               ps(ij) = 1e5*(1 + .1*exp(-100*(1+sin(rlatu(j)))**2) )
+            enddo
+         enddo
+         
+c     rho = preff/(cpp*teta)
+         teta = .01*preff/cpp   ! rho = 100 ; phi = ps/rho = 1e3 ; c=30 m/s = 2600 km/j = 23 degres / j
+         ucov=0.
+         vcov=0.
+      END IF      
+      
+      CALL pression ( ip1jmp1, ap, bp, ps, p       )
+      CALL massdair(p,masse)
+
+      END
+c-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/temps_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/temps_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/temps_mod.F90	(revision 3330)
@@ -0,0 +1,24 @@
+!
+! $Id$
+!
+MODULE temps_mod
+
+IMPLICIT NONE  
+
+  INTEGER   itaufin ! total number of dynamical steps for the run
+  INTEGER   itau_dyn
+  INTEGER   itau_phy
+  INTEGER   day_ini ! initial day # of simulation sequence
+  INTEGER   day_end ! final day # ; i.e. day # when this simulation ends
+  INTEGER   annee_ref
+  INTEGER   day_ref
+  REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
+  REAL      jD_ref ! reference julian day date (beginning of experiment)
+  REAL      jH_ref ! reference julian "hour" of reference julian date
+  REAL      start_time
+  CHARACTER (len=10) :: calend ! calendar type
+
+  ! Additionnal Mars stuff:
+  REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
+
+END MODULE temps_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/tetaleveli1j.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/tetaleveli1j.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/tetaleveli1j.F	(revision 3330)
@@ -0,0 +1,139 @@
+c================================================================
+c================================================================
+      SUBROUTINE tetaleveli1j(ilon,ilev,lnew,pgcm,pres,Qgcm,Qpres)
+c================================================================
+c================================================================
+
+! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+!      USE dimphy
+      IMPLICIT none
+
+#include "dimensions.h"
+ccccc#include "dimphy.h"
+
+c================================================================
+c
+c Interpoler des champs 3-D u, v et g du modele a un niveau de
+c pression donnee (pres)
+c
+c INPUT:  ilon ----- nombre de points
+c         ilev ----- nombre de couches
+c         lnew ----- true si on doit reinitialiser les poids
+c         pgcm ----- pressions modeles
+c         pres ----- pression vers laquelle on interpolle
+c         Qgcm ----- champ GCM
+c         Qpres ---- champ interpolle au niveau pres
+c
+c================================================================
+c
+c   arguments :
+c   -----------
+
+      INTEGER ilon, ilev
+      logical lnew
+
+      REAL pgcm(ilon,ilev)
+      REAL Qgcm(ilon,ilev)
+      real pres
+      REAL Qpres(ilon)
+
+c   local :
+c   -------
+
+cIM 211004
+c     INTEGER lt(klon), lb(klon)
+c     REAL ptop, pbot, aist(klon), aisb(klon)
+c
+#include "paramet.h"
+c
+      INTEGER lt(ip1jm), lb(ip1jm)
+      REAL ptop, pbot, aist(ip1jm), aisb(ip1jm)
+cMI 211004
+      save lt,lb,ptop,pbot,aist,aisb
+
+      INTEGER i, k
+c
+c     PRINT*,'tetalevel pres=',pres
+c=====================================================================
+      if (lnew) then
+c   on réinitialise les réindicages et les poids
+c=====================================================================
+
+
+c Chercher les 2 couches les plus proches du niveau a obtenir
+c
+c Eventuellement, faire l'extrapolation a partir des deux couches
+c les plus basses ou les deux couches les plus hautes:
+      DO 130 i = 1, ilon
+cIM      IF ( ABS(pres-pgcm(i,ilev) ) .LT.
+         IF ( ABS(pres-pgcm(i,ilev) ) .GT.
+     .        ABS(pres-pgcm(i,1)) ) THEN
+            lt(i) = ilev     ! 2
+            lb(i) = ilev-1   ! 1
+         ELSE
+            lt(i) = 2
+            lb(i) = 1
+         ENDIF
+cIM   PRINT*,'i, ABS(pres-pgcm),ABS(pres-pgcm)',
+cIM  .i, ABS(pres-pgcm(i,ilev)),ABS(pres-pgcm(i,1))
+  130 CONTINUE
+      DO 150 k = 1, ilev-1
+         DO 140 i = 1, ilon
+            pbot = pgcm(i,k)
+            ptop = pgcm(i,k+1)
+cIM         IF (ptop.LE.pres .AND. pbot.GE.pres) THEN
+            IF (ptop.GE.pres .AND. pbot.LE.pres) THEN
+               lt(i) = k+1
+               lb(i) = k
+            ENDIF
+  140    CONTINUE
+  150 CONTINUE
+c
+c Interpolation lineaire:
+c
+      DO i = 1, ilon
+c interpolation en logarithme de pression:
+c
+c ...   Modif . P. Le Van    ( 20/01/98) ....
+c       Modif Frédéric Hourdin (3/01/02)
+
+        IF(pgcm(i,lb(i)).EQ.0.OR.
+     $     pgcm(i,lt(i)).EQ.0.) THEN
+c
+        PRINT*,'i,lb,lt,2pgcm,pres',i,lb(i),
+     .  lt(i),pgcm(i,lb(i)),pgcm(i,lt(i)),pres
+c
+        ENDIF 
+c
+        aist(i) = LOG( pgcm(i,lb(i))/ pres )
+     .       / LOG( pgcm(i,lb(i))/ pgcm(i,lt(i)) )
+        aisb(i) = LOG( pres / pgcm(i,lt(i)) )
+     .       / LOG( pgcm(i,lb(i))/ pgcm(i,lt(i)))
+      enddo
+
+
+      endif ! lnew
+
+c======================================================================
+c    inteprollation
+c======================================================================
+
+      do i=1,ilon
+         Qpres(i)= Qgcm(i,lb(i))*aisb(i)+Qgcm(i,lt(i))*aist(i)
+cIM      PRINT*,'i,Qgcm,Qpres',i,Qgcm(i,lb(i)),aisb(i),
+cIM  $   Qgcm(i,lt(i)),aist(i),Qpres(i)
+      enddo
+c
+c Je mets les vents a zero quand je rencontre une montagne
+      do i = 1, ilon
+cIM      if (pgcm(i,1).LT.pres) THEN
+         if (pgcm(i,1).GT.pres) THEN
+c           Qpres(i)=1e33
+            Qpres(i)=1e+20
+cIM         PRINT*,'i,pgcm(i,1),pres =',i,pgcm(i,1),pres
+         endif
+      enddo
+
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/tetaleveli1j1.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/tetaleveli1j1.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/tetaleveli1j1.F	(revision 3330)
@@ -0,0 +1,139 @@
+c================================================================
+c================================================================
+      SUBROUTINE tetaleveli1j1(ilon,ilev,lnew,pgcm,pres,Qgcm,Qpres)
+c================================================================
+c================================================================
+
+! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+!      USE dimphy
+      IMPLICIT none
+
+#include "dimensions.h"
+cccc#include "dimphy.h"
+
+c================================================================
+c
+c Interpoler des champs 3-D u, v et g du modele a un niveau de
+c pression donnee (pres)
+c
+c INPUT:  ilon ----- nombre de points
+c         ilev ----- nombre de couches
+c         lnew ----- true si on doit reinitialiser les poids
+c         pgcm ----- pressions modeles
+c         pres ----- pression vers laquelle on interpolle
+c         Qgcm ----- champ GCM
+c         Qpres ---- champ interpolle au niveau pres
+c
+c================================================================
+c
+c   arguments :
+c   -----------
+
+      INTEGER ilon, ilev
+      logical lnew
+
+      REAL pgcm(ilon,ilev)
+      REAL Qgcm(ilon,ilev)
+      real pres
+      REAL Qpres(ilon)
+
+c   local :
+c   -------
+
+cIM 211004
+c     INTEGER lt(klon), lb(klon)
+c     REAL ptop, pbot, aist(klon), aisb(klon)
+c
+#include "paramet.h"
+c
+      INTEGER lt(ip1jmp1), lb(ip1jmp1)
+      REAL ptop, pbot, aist(ip1jmp1), aisb(ip1jmp1)
+cMI 211004
+      save lt,lb,ptop,pbot,aist,aisb
+
+      INTEGER i, k
+c
+c     PRINT*,'tetalevel pres=',pres
+c=====================================================================
+      if (lnew) then
+c   on réinitialise les réindicages et les poids
+c=====================================================================
+
+
+c Chercher les 2 couches les plus proches du niveau a obtenir
+c
+c Eventuellement, faire l'extrapolation a partir des deux couches
+c les plus basses ou les deux couches les plus hautes:
+      DO 130 i = 1, ilon
+cIM      IF ( ABS(pres-pgcm(i,ilev) ) .LT.
+         IF ( ABS(pres-pgcm(i,ilev) ) .GT.
+     .        ABS(pres-pgcm(i,1)) ) THEN
+            lt(i) = ilev     ! 2
+            lb(i) = ilev-1   ! 1
+         ELSE
+            lt(i) = 2
+            lb(i) = 1
+         ENDIF
+cIM   PRINT*,'i, ABS(pres-pgcm),ABS(pres-pgcm)',
+cIM  .i, ABS(pres-pgcm(i,ilev)),ABS(pres-pgcm(i,1))
+  130 CONTINUE
+      DO 150 k = 1, ilev-1
+         DO 140 i = 1, ilon
+            pbot = pgcm(i,k)
+            ptop = pgcm(i,k+1)
+cIM         IF (ptop.LE.pres .AND. pbot.GE.pres) THEN
+            IF (ptop.GE.pres .AND. pbot.LE.pres) THEN
+               lt(i) = k+1
+               lb(i) = k
+            ENDIF
+  140    CONTINUE
+  150 CONTINUE
+c
+c Interpolation lineaire:
+c
+      DO i = 1, ilon
+c interpolation en logarithme de pression:
+c
+c ...   Modif . P. Le Van    ( 20/01/98) ....
+c       Modif Frédéric Hourdin (3/01/02)
+
+        IF(pgcm(i,lb(i)).EQ.0.OR.
+     $     pgcm(i,lt(i)).EQ.0.) THEN
+c
+        PRINT*,'i,lb,lt,2pgcm,pres',i,lb(i),
+     .  lt(i),pgcm(i,lb(i)),pgcm(i,lt(i)),pres
+c
+        ENDIF 
+c
+        aist(i) = LOG( pgcm(i,lb(i))/ pres )
+     .       / LOG( pgcm(i,lb(i))/ pgcm(i,lt(i)) )
+        aisb(i) = LOG( pres / pgcm(i,lt(i)) )
+     .       / LOG( pgcm(i,lb(i))/ pgcm(i,lt(i)))
+      enddo
+
+
+      endif ! lnew
+
+c======================================================================
+c    inteprollation
+c======================================================================
+
+      do i=1,ilon
+         Qpres(i)= Qgcm(i,lb(i))*aisb(i)+Qgcm(i,lt(i))*aist(i)
+cIM      PRINT*,'i,Qgcm,Qpres',i,Qgcm(i,lb(i)),aisb(i),
+cIM  $   Qgcm(i,lt(i)),aist(i),Qpres(i)
+      enddo
+c
+c Je mets les vents a zero quand je rencontre une montagne
+      do i = 1, ilon
+cIM      if (pgcm(i,1).LT.pres) THEN
+         if (pgcm(i,1).GT.pres) THEN
+c           Qpres(i)=1e33
+            Qpres(i)=1e+20
+cIM         PRINT*,'i,pgcm(i,1),pres =',i,pgcm(i,1),pres
+         endif
+      enddo
+
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/top_bound.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/top_bound.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/top_bound.F	(revision 3330)
@@ -0,0 +1,199 @@
+!
+! $Id$
+!
+      SUBROUTINE top_bound(vcov,ucov,teta,masse,dt)
+      
+      USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound,
+     &                        tau_top_bound
+      USE comvert_mod, ONLY: presnivs, preff, scaleheight
+      
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+
+c ..  DISSIPATION LINEAIRE A HAUT NIVEAU, RUN MESO,
+C     F. LOTT DEC. 2006
+c                                 (  10/12/06  )
+
+c=======================================================================
+c
+c   Auteur:  F. LOTT  
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   Dissipation linéaire (ex top_bound de la physique)
+c
+c=======================================================================
+
+! top_bound sponge layer model:
+! Quenching is modeled as: A(t)=Am+A0*exp(-lambda*t)
+! where Am is the zonal average of the field (or zero), and lambda the inverse
+! of the characteristic quenching/relaxation time scale
+! Thus, assuming Am to be time-independent, field at time t+dt is given by:
+! A(t+dt)=A(t)-(A(t)-Am)*(1-exp(-lambda*t))
+! Moreover lambda can be a function of model level (see below), and relaxation
+! can be toward the average zonal field or just zero (see below).
+
+! NB: top_bound sponge is only called from leapfrog if ok_strato=.true.
+
+! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst_mod)
+!    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
+!    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
+!    tau_top_bound : inverse of charactericstic relaxation time scale at
+!                       the topmost layer (Hz)
+
+
+#include "comdissipn.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      real,intent(inout) :: ucov(iip1,jjp1,llm) ! covariant zonal wind
+      real,intent(inout) :: vcov(iip1,jjm,llm) ! covariant meridional wind
+      real,intent(inout) :: teta(iip1,jjp1,llm) ! potential temperature
+      real,intent(in) :: masse(iip1,jjp1,llm) ! mass of atmosphere 
+      real,intent(in) :: dt ! time step (s) of sponge model
+
+c   Local:
+c   ------
+
+      REAL massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm),zm
+      REAL uzon(jjp1,llm),vzon(jjm,llm),tzon(jjp1,llm)
+      
+      integer i
+      REAL,SAVE :: rdamp(llm) ! quenching coefficient
+      real,save :: lambda(llm) ! inverse or quenching time scale (Hz)
+
+      LOGICAL,SAVE :: first=.true.
+
+      INTEGER j,l
+      
+      if (iflag_top_bound.eq.0) return
+
+      if (first) then
+         if (iflag_top_bound.eq.1) then
+! sponge quenching over the topmost 4 atmospheric layers
+             lambda(:)=0.
+             lambda(llm)=tau_top_bound
+             lambda(llm-1)=tau_top_bound/2.
+             lambda(llm-2)=tau_top_bound/4.
+             lambda(llm-3)=tau_top_bound/8.
+         else if (iflag_top_bound.eq.2) then
+! sponge quenching over topmost layers down to pressures which are
+! higher than 100 times the topmost layer pressure
+             lambda(:)=tau_top_bound
+     s       *max(presnivs(llm)/presnivs(:)-0.01,0.)
+         endif
+
+! quenching coefficient rdamp(:)
+!         rdamp(:)=dt*lambda(:) ! Explicit Euler approx.
+         rdamp(:)=1.-exp(-lambda(:)*dt)
+
+         write(lunout,*)'TOP_BOUND mode',mode_top_bound
+         write(lunout,*)'Sponge layer coefficients'
+         write(lunout,*)'p (Pa)  z(km)  tau(s)   1./tau (Hz)'
+         do l=1,llm
+           if (rdamp(l).ne.0.) then
+             write(lunout,'(6(1pe12.4,1x))')
+     &        presnivs(l),log(preff/presnivs(l))*scaleheight,
+     &           1./lambda(l),lambda(l)
+           endif
+         enddo
+         first=.false.
+      endif ! of if (first)
+
+      CALL massbar(masse,massebx,masseby)
+
+      ! compute zonal average of vcov and u
+      if (mode_top_bound.ge.2) then
+       do l=1,llm
+        do j=1,jjm
+          vzon(j,l)=0.
+          zm=0.
+          do i=1,iim
+! NB: we can work using vcov zonal mean rather than v since the
+! cv coefficient (which relates the two) only varies with latitudes 
+            vzon(j,l)=vzon(j,l)+vcov(i,j,l)*masseby(i,j,l)
+            zm=zm+masseby(i,j,l)
+          enddo
+          vzon(j,l)=vzon(j,l)/zm
+        enddo
+       enddo
+
+       do l=1,llm
+        do j=2,jjm ! excluding poles
+          uzon(j,l)=0.
+          zm=0.
+          do i=1,iim
+            uzon(j,l)=uzon(j,l)+massebx(i,j,l)*ucov(i,j,l)/cu(i,j)
+            zm=zm+massebx(i,j,l)
+          enddo
+          uzon(j,l)=uzon(j,l)/zm
+        enddo
+       enddo
+      else ! ucov and vcov will relax towards 0
+        vzon(:,:)=0.
+        uzon(:,:)=0.
+      endif ! of if (mode_top_bound.ge.2)
+
+      ! compute zonal average of potential temperature, if necessary
+      if (mode_top_bound.ge.3) then
+       do l=1,llm
+        do j=2,jjm ! excluding poles
+          zm=0.
+          tzon(j,l)=0.
+          do i=1,iim
+            tzon(j,l)=tzon(j,l)+teta(i,j,l)*masse(i,j,l)
+            zm=zm+masse(i,j,l)
+          enddo
+          tzon(j,l)=tzon(j,l)/zm
+        enddo
+       enddo
+      endif ! of if (mode_top_bound.ge.3)
+
+      if (mode_top_bound.ge.1) then
+       ! Apply sponge quenching on vcov:
+       do l=1,llm
+        do i=1,iip1
+          do j=1,jjm
+            vcov(i,j,l)=vcov(i,j,l)
+     &                  -rdamp(l)*(vcov(i,j,l)-vzon(j,l))
+          enddo
+        enddo
+       enddo
+
+       ! Apply sponge quenching on ucov:
+       do l=1,llm
+        do i=1,iip1
+          do j=2,jjm ! excluding poles
+            ucov(i,j,l)=ucov(i,j,l)
+     &                  -rdamp(l)*(ucov(i,j,l)-cu(i,j)*uzon(j,l))
+          enddo
+        enddo
+       enddo
+      endif ! of if (mode_top_bound.ge.1)
+
+      if (mode_top_bound.ge.3) then
+       ! Apply sponge quenching on teta:
+       do l=1,llm
+        do i=1,iip1
+          do j=2,jjm ! excluding poles
+            teta(i,j,l)=teta(i,j,l)
+     &                  -rdamp(l)*(teta(i,j,l)-tzon(j,l))
+          enddo
+        enddo
+       enddo
+      endif ! of if (mode_top_bound.ge.3)
+    
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/vlsplt.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/vlsplt.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/vlsplt.F	(revision 3330)
@@ -0,0 +1,1113 @@
+c
+c $Id$
+c
+
+      SUBROUTINE vlsplt(q,pente_max,masse,w,pbaru,pbarv,pdt,iq)
+      USE infotrac, ONLY: nqtot,nqdesc,iqfils
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c   pente_max facteur de limitation des pentes: 2 en general
+c                                               0 pour un schema amont
+c   pbaru,pbarv,w flux de masse en u ,v ,w
+c   pdt pas de temps
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+c      REAL masse(iip1,jjp1,llm),pente_max
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL q(ip1jmp1,llm,nqtot)
+c      REAL q(iip1,jjp1,llm)
+      REAL w(ip1jmp1,llm),pdt
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+      INTEGER ijlqmin,iqmin,jqmin,lqmin
+c
+      REAL zm(ip1jmp1,llm,nqtot),newmasse
+      REAL mu(ip1jmp1,llm)
+      REAL mv(ip1jm,llm)
+      REAL mw(ip1jmp1,llm+1)
+      REAL zq(ip1jmp1,llm,nqtot),zz
+      REAL dqx(ip1jmp1,llm),dqy(ip1jmp1,llm),dqz(ip1jmp1,llm)
+      REAL second,temps0,temps1,temps2,temps3
+      REAL ztemps1,ztemps2,ztemps3
+      REAL zzpbar, zzw
+      LOGICAL testcpu
+      SAVE testcpu
+      SAVE temps1,temps2,temps3
+      INTEGER iminn,imaxx
+      INTEGER ifils,iq2 ! CRisi
+
+      REAL qmin,qmax
+      DATA qmin,qmax/0.,1.e33/
+      DATA testcpu/.false./
+      DATA temps1,temps2,temps3/0.,0.,0./
+
+
+        zzpbar = 0.5 * pdt
+        zzw    = pdt
+      DO l=1,llm
+        DO ij = iip2,ip1jm
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+         ENDDO
+         DO ij=1,ip1jm
+            mv(ij,l)=pbarv(ij,l) * zzpbar
+         ENDDO
+         DO ij=1,ip1jmp1
+            mw(ij,l)=w(ij,l) * zzw
+         ENDDO
+      ENDDO
+
+      DO ij=1,ip1jmp1
+         mw(ij,llm+1)=0.
+      ENDDO
+           
+      CALL SCOPY(ijp1llm,q(1,1,iq),1,zq(1,1,iq),1)
+      CALL SCOPY(ijp1llm,masse,1,zm(1,1,iq),1)
+        
+      if (nqdesc(iq).gt.0) then  
+        do ifils=1,nqdesc(iq)
+          iq2=iqfils(ifils,iq)
+          CALL SCOPY(ijp1llm,q(1,1,iq2),1,zq(1,1,iq2),1)
+        enddo  
+      endif !if (nqfils(iq).gt.0) then
+
+cprint*,'Entree vlx1'
+c	call minmaxq(zq,qmin,qmax,'avant vlx     ')
+      call vlx(zq,pente_max,zm,mu,iq)
+cprint*,'Sortie vlx1'
+c	call minmaxq(zq,qmin,qmax,'apres vlx1    ')
+
+c print*,'Entree vly1'
+
+      call vly(zq,pente_max,zm,mv,iq)
+c	call minmaxq(zq,qmin,qmax,'apres vly1     ')
+cprint*,'Sortie vly1'
+      call vlz(zq,pente_max,zm,mw,iq)
+c	call minmaxq(zq,qmin,qmax,'apres vlz     ')
+
+
+      call vly(zq,pente_max,zm,mv,iq)
+c	call minmaxq(zq,qmin,qmax,'apres vly     ')
+
+
+      call vlx(zq,pente_max,zm,mu,iq)
+c	call minmaxq(zq,qmin,qmax,'apres vlx2    ')
+	
+
+      DO l=1,llm
+         DO ij=1,ip1jmp1
+           q(ij,l,iq)=zq(ij,l,iq)
+         ENDDO
+         DO ij=1,ip1jm+1,iip1
+            q(ij+iim,l,iq)=q(ij,l,iq)
+         ENDDO
+      ENDDO
+      ! CRisi: aussi pour les fils
+      if (nqdesc(iq).gt.0) then
+      do ifils=1,nqdesc(iq)
+        iq2=iqfils(ifils,iq)
+        DO l=1,llm
+         DO ij=1,ip1jmp1
+           q(ij,l,iq2)=zq(ij,l,iq2)
+         ENDDO
+         DO ij=1,ip1jm+1,iip1
+            q(ij+iim,l,iq2)=q(ij,l,iq2)
+         ENDDO
+        ENDDO
+      enddo !do ifils=1,nqdesc(iq)    
+      endif ! if (nqdesc(iq).gt.0) then    
+
+      RETURN
+      END
+      RECURSIVE SUBROUTINE vlx(q,pente_max,masse,u_m,iq)
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
+
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm,nqtot),pente_max
+      REAL u_m( ip1jmp1,llm ),pbarv( iip1,jjm,llm)
+      REAL q(ip1jmp1,llm,nqtot)
+      REAL w(ip1jmp1,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ip1jmp1),niju
+      INTEGER n0,iadvplus(ip1jmp1,llm),nl(llm)
+c
+      REAL new_m,zu_m,zdum(ip1jmp1,llm)
+      REAL sigu(ip1jmp1),dxq(ip1jmp1,llm),dxqu(ip1jmp1)
+      REAL zz(ip1jmp1)
+      REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)
+      REAL u_mq(ip1jmp1,llm)
+
+      ! CRisi
+      REAL masseq(ip1jmp1,llm,nqtot),Ratio(ip1jmp1,llm,nqtot)
+      INTEGER ifils,iq2 ! CRisi
+
+      Logical extremum,first,testcpu
+      SAVE first,testcpu
+
+      REAL      SSUM
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+
+      REAL z1,z2,z3
+
+      DATA first,testcpu/.true.,.false./
+
+      IF(first) THEN
+         temps1=0.
+         temps2=0.
+         temps3=0.
+         temps4=0.
+         temps5=0.
+         first=.false.
+      ENDIF
+
+c   calcul de la pente a droite et a gauche de la maille
+
+
+      IF (pente_max.gt.-1.e-5) THEN
+c       IF (pente_max.gt.10) THEN
+
+c   calcul des pentes avec limitation, Van Leer scheme I:
+c   -----------------------------------------------------
+
+c   calcul de la pente aux points u
+         DO l = 1, llm
+            DO ij=iip2,ip1jm-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
+c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
+            ENDDO
+            DO ij=iip1+iip1,ip1jm,iip1
+               dxqu(ij)=dxqu(ij-iim)
+c              sigu(ij)=sigu(ij-iim)
+            ENDDO
+
+            DO ij=iip2,ip1jm
+               adxqu(ij)=abs(dxqu(ij))
+            ENDDO
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+            DO ij=iip2+1,ip1jm
+               dxqmax(ij,l)=pente_max*
+     ,      min(adxqu(ij-1),adxqu(ij))
+c limitation subtile
+c    ,      min(adxqu(ij-1)/sigu(ij-1),adxqu(ij)/(1.-sigu(ij)))
+          
+
+            ENDDO
+
+            DO ij=iip1+iip1,ip1jm,iip1
+               dxqmax(ij-iim,l)=dxqmax(ij,l)
+            ENDDO
+
+            DO ij=iip2+1,ip1jm
+#ifdef CRAY
+               dxq(ij,l)=
+     ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
+#else
+               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+                  dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+#endif
+               dxq(ij,l)=0.5*dxq(ij,l)
+               dxq(ij,l)=
+     ,         sign(min(abs(dxq(ij,l)),dxqmax(ij,l)),dxq(ij,l))
+            ENDDO
+
+         ENDDO ! l=1,llm
+cprint*,'Ok calcul des pentes'
+
+      ELSE ! (pente_max.lt.-1.e-5)
+
+c   Pentes produits:
+c   ----------------
+
+         DO l = 1, llm
+            DO ij=iip2,ip1jm-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+            ENDDO
+            DO ij=iip1+iip1,ip1jm,iip1
+               dxqu(ij)=dxqu(ij-iim)
+            ENDDO
+
+            DO ij=iip2+1,ip1jm
+               zz(ij)=dxqu(ij-1)*dxqu(ij)
+               zz(ij)=zz(ij)+zz(ij)
+               IF(zz(ij).gt.0) THEN
+                  dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+            ENDDO
+
+         ENDDO
+
+      ENDIF ! (pente_max.lt.-1.e-5)
+
+c   bouclage de la pente en iip1:
+c   -----------------------------
+
+      DO l=1,llm
+         DO ij=iip1+iip1,ip1jm,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         ENDDO
+         DO ij=1,ip1jmp1
+            iadvplus(ij,l)=0
+         ENDDO
+
+      ENDDO
+
+c print*,'Bouclage en iip1'
+
+c   calcul des flux a gauche et a droite
+
+#ifdef CRAY
+
+      DO l=1,llm
+       DO ij=iip2,ip1jm-1
+          zdum(ij,l)=cvmgp(1.-u_m(ij,l)/masse(ij,l,iq),
+     ,                     1.+u_m(ij,l)/masse(ij+1,l,iq),
+     ,                     u_m(ij,l))
+          zdum(ij,l)=0.5*zdum(ij,l)
+          u_mq(ij,l)=cvmgp(
+     ,                q(ij,l,iq)+zdum(ij,l)*dxq(ij,l),
+     ,                q(ij+1,l,iq)-zdum(ij,l)*dxq(ij+1,l),
+     ,                u_m(ij,l))
+          u_mq(ij,l)=u_m(ij,l)*u_mq(ij,l)
+       ENDDO
+      ENDDO
+#else
+c   on cumule le flux correspondant a toutes les mailles dont la masse
+c   au travers de la paroi pENDant le pas de temps.
+cprint*,'Cumule ....'
+
+      DO l=1,llm
+       DO ij=iip2,ip1jm-1
+c	print*,'masse(',ij,')=',masse(ij,l,iq)
+          IF (u_m(ij,l).gt.0.) THEN
+             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*(q(ij,l,iq)+0.5*zdum(ij,l)*dxq(ij,l))
+          ELSE
+             zdum(ij,l)=1.+u_m(ij,l)/masse(ij+1,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*(q(ij+1,l,iq)
+     &           -0.5*zdum(ij,l)*dxq(ij+1,l))
+          ENDIF
+       ENDDO
+      ENDDO
+#endif
+c	stop
+
+c	go to 9999
+c   detection des points ou on advecte plus que la masse de la
+c   maille
+      DO l=1,llm
+         DO ij=iip2,ip1jm-1
+            IF(zdum(ij,l).lt.0) THEN
+               iadvplus(ij,l)=1
+               u_mq(ij,l)=0.
+            ENDIF
+         ENDDO
+      ENDDO
+cprint*,'Ok test 1'
+      DO l=1,llm
+       DO ij=iip1+iip1,ip1jm,iip1
+          iadvplus(ij,l)=iadvplus(ij-iim,l)
+       ENDDO
+      ENDDO
+c print*,'Ok test 2'
+
+
+c   traitement special pour le cas ou on advecte en longitude plus que le
+c   contenu de la maille.
+c   cette partie est mal vectorisee.
+
+c  calcul du nombre de maille sur lequel on advecte plus que la maille.
+
+      n0=0
+      DO l=1,llm
+         nl(l)=0
+         DO ij=iip2,ip1jm
+            nl(l)=nl(l)+iadvplus(ij,l)
+         ENDDO
+         n0=n0+nl(l)
+      ENDDO
+
+      IF(n0.gt.0) THEN
+      if (prt_level > 2) PRINT *,
+     $        'Nombre de points pour lesquels on advect plus que le'
+     &       ,'contenu de la maille : ',n0
+
+         DO l=1,llm
+            IF(nl(l).gt.0) THEN
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               DO ij=iip2,ip1jm
+                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                     iju=iju+1
+                     indu(iju)=ij
+                  ENDIF
+               ENDDO
+               niju=iju
+c              PRINT*,'niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               DO iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  IF(zu_m.gt.0.) THEN
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)+q(ijq,l,iq)
+     &                          *masse(ijq,l,iq)
+                        zu_m=zu_m-masse(ijq,l,iq)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*
+     &                  (q(ijq,l,iq)+0.5*(1.-zu_m/masse(ijq,l,iq))
+     &                  *dxq(ijq,l))
+                  ELSE
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l,iq)
+     &                          *masse(ijq,l,iq)
+                        zu_m=zu_m+masse(ijq,l,iq)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l,iq)-
+     &               0.5*(1.+zu_m/masse(ijq,l,iq))*dxq(ijq,l))
+                  ENDIF
+               ENDDO
+            ENDIF
+         ENDDO
+      ENDIF  ! n0.gt.0 
+9999    continue
+
+
+c   bouclage en latitude
+cprint*,'cvant bouclage en latitude'
+      DO l=1,llm
+        DO ij=iip1+iip1,ip1jm,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        ENDDO
+      ENDDO
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlsplt 326: iq,nqfils(iq)=',iq,nqfils(iq) 
+      
+      if (nqdesc(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+         DO l=1,llm
+          DO ij=iip2,ip1jm
+           ! On a besoin de q et masse seulement entre iip2 et ip1jm 
+           masseq(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)
+          enddo   
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vlx(Ratio,pente_max,masseq,u_mq,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi
+
+
+c   calcul des tENDances
+
+      DO l=1,llm
+         DO ij=iip2+1,ip1jm
+            new_m=masse(ij,l,iq)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+
+     &      u_mq(ij-1,l)-u_mq(ij,l))
+     &      /new_m
+            masse(ij,l,iq)=new_m
+         ENDDO
+c   ModIF Fred 22 03 96 correction d'un bug (les scopy ci-dessous)
+         DO ij=iip1+iip1,ip1jm,iip1
+            q(ij-iim,l,iq)=q(ij,l,iq)
+            masse(ij-iim,l,iq)=masse(ij,l,iq)
+         ENDDO
+      ENDDO
+
+      ! retablir les fils en rapport de melange par rapport a l'air:
+      ! On calcule q entre iip2+1,ip1jm -> on fait pareil pour ratio 
+      ! puis on boucle en longitude
+      if (nqdesc(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+         DO l=1,llm
+          DO ij=iip2+1,ip1jm
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+          DO ij=iip1+iip1,ip1jm,iip1
+             q(ij-iim,l,iq2)=q(ij,l,iq2)
+          enddo ! DO ij=ijb+iip1-1,ije,iip1
+         enddo !DO l=1,llm
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+c     CALL SCOPY((jjm-1)*llm,q(iip1+iip1,1),iip1,q(iip2,1),iip1)
+c     CALL SCOPY((jjm-1)*llm,masse(iip1+iip1,1),iip1,masse(iip2,1),iip1)
+
+
+      RETURN
+      END
+      RECURSIVE SUBROUTINE vly(q,pente_max,masse,masse_adv_v,iq)
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm,nqtot),pente_max
+      REAL masse_adv_v( ip1jm,llm)
+      REAL q(ip1jmp1,llm,nqtot), dq( ip1jmp1,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      REAL dyq(ip1jmp1,llm),dyqv(ip1jm),zdvm(ip1jmp1,llm)
+      REAL adyqv(ip1jm),dyqmax(ip1jmp1)
+      REAL qbyv(ip1jm,llm)
+
+      REAL qpns,qpsn,appn,apps,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
+c     REAL newq,oldmasse
+      Logical extremum,first,testcpu
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+      SAVE first,testcpu
+
+      REAL convpn,convps,convmpn,convmps
+      real massepn,masseps,qpn,qps
+      REAL sinlon(iip1),sinlondlon(iip1)
+      REAL coslon(iip1),coslondlon(iip1)
+      SAVE sinlon,coslon,sinlondlon,coslondlon
+      SAVE airej2,airejjm
+
+      REAL masseq(ip1jmp1,llm,nqtot),Ratio(ip1jmp1,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+
+c
+c
+      REAL      SSUM
+
+      DATA first,testcpu/.true.,.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+
+      !write(*,*) 'vly 578: entree, iq=',iq
+
+      IF(first) THEN
+         PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         ENDDO
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         airej2 = SSUM( iim, aire(iip2), 1 )
+         airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      ENDIF
+
+c
+cPRINT*,'CALCUL EN LATITUDE'
+
+      DO l = 1, llm
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+
+      DO i = 1, iim
+      airescb(i) = aire(i+ iip1) * q(i+ iip1,l,iq)
+      airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l,iq)
+      ENDDO
+      qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+
+c   calcul des pentes aux points v
+
+      DO ij=1,ip1jm
+         dyqv(ij)=q(ij,l,iq)-q(ij+iip1,l,iq)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+
+c   calcul des pentes aux points scalaires
+
+      DO ij=iip2,ip1jm
+         dyq(ij,l)=.5*(dyqv(ij-iip1)+dyqv(ij))
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      ENDDO
+
+c   calcul des pentes aux poles
+
+      DO ij=1,iip1
+         dyq(ij,l)=qpns-q(ij+iip1,l,iq)
+         dyq(ip1jm+ij,l)=q(ip1jm+ij-iip1,l,iq)-qpsn
+      ENDDO
+
+c   filtrage de la derivee
+      dyn1=0.
+      dys1=0.
+      dyn2=0.
+      dys2=0.
+      DO ij=1,iim
+         dyn1=dyn1+sinlondlon(ij)*dyq(ij,l)
+         dys1=dys1+sinlondlon(ij)*dyq(ip1jm+ij,l)
+         dyn2=dyn2+coslondlon(ij)*dyq(ij,l)
+         dys2=dys2+coslondlon(ij)*dyq(ip1jm+ij,l)
+      ENDDO
+      DO ij=1,iip1
+         dyq(ij,l)=dyn1*sinlon(ij)+dyn2*coslon(ij)
+         dyq(ip1jm+ij,l)=dys1*sinlon(ij)+dys2*coslon(ij)
+      ENDDO
+
+c   calcul des pentes limites aux poles
+
+      goto 8888
+      fn=1.
+      fs=1.
+      DO ij=1,iim
+         IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+            fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
+         ENDIF
+      IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+         fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
+         ENDIF
+      ENDDO
+      DO ij=1,iip1
+         dyq(ij,l)=fn*dyq(ij,l)
+         dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
+      ENDDO
+8888    continue
+      DO ij=1,iip1
+         dyq(ij,l)=0.
+         dyq(ip1jm+ij,l)=0.
+      ENDDO
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C  En memoire de dIFferents tests sur la 
+C  limitation des pentes aux poles.
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C     PRINT*,dyq(1)
+C     PRINT*,dyqv(iip1+1)
+C     appn=abs(dyq(1)/dyqv(iip1+1))
+C     PRINT*,dyq(ip1jm+1)
+C     PRINT*,dyqv(ip1jm-iip1+1)
+C     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+C     DO ij=2,iim
+C        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+C        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+C     ENDDO
+C     appn=min(pente_max/appn,1.)
+C     apps=min(pente_max/apps,1.)
+C
+C
+C   cas ou on a un extremum au pole
+C
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   appn=0.
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &   apps=0.
+C
+C   limitation des pentes aux poles
+C     DO ij=1,iip1
+C        dyq(ij)=appn*dyq(ij)
+C        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+C     ENDDO
+C
+C   test
+C      DO ij=1,iip1
+C         dyq(iip1+ij)=0.
+C         dyq(ip1jm+ij-iip1)=0.
+C      ENDDO
+C      DO ij=1,ip1jmp1
+C         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+C      ENDDO
+C
+C changement 10 07 96
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   THEN
+C        DO ij=1,iip1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=1,iip1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij))
+C        ENDDO
+C     ENDIF
+C
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &THEN
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+C        ENDDO
+C     ENDIF
+C   fin changement 10 07 96
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+
+c   calcul des pentes limitees
+
+      DO ij=iip2,ip1jm
+         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+            dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
+         ELSE
+            dyq(ij,l)=0.
+         ENDIF
+      ENDDO
+
+      ENDDO
+
+      !write(*,*) 'vly 756'
+      DO l=1,llm
+       DO ij=1,ip1jm
+          IF(masse_adv_v(ij,l).gt.0) THEN
+              qbyv(ij,l)=q(ij+iip1,l,iq)+dyq(ij+iip1,l)*
+     ,                   0.5*(1.-masse_adv_v(ij,l)
+     ,                   /masse(ij+iip1,l,iq))
+          ELSE
+              qbyv(ij,l)=q(ij,l,iq)-dyq(ij,l)*
+     ,                   0.5*(1.+masse_adv_v(ij,l)
+     ,                   /masse(ij,l,iq))
+          ENDIF
+          qbyv(ij,l)=masse_adv_v(ij,l)*qbyv(ij,l)
+       ENDDO
+      ENDDO
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vly 689: iq,nqfils(iq)=',iq,nqfils(iq) 
+   
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+         DO l=1,llm
+         DO ij=1,ip1jmp1
+           ! attention, chaque fils doit avoir son masseq, sinon, le 1er
+           ! fils ecrase le masseq de ses freres.
+           masseq(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)     
+          enddo   
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vly(Ratio,pente_max,masseq,qbyv,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+      DO l=1,llm
+         DO ij=iip2,ip1jm
+            newmasse=masse(ij,l,iq)
+     &      +masse_adv_v(ij,l)-masse_adv_v(ij-iip1,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+qbyv(ij,l)
+     &         -qbyv(ij-iip1,l))/newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+c.-. ancienne version
+c        convpn=SSUM(iim,qbyv(1,l),1)/apoln
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)/apoln
+
+         convpn=SSUM(iim,qbyv(1,l),1)
+         convmpn=ssum(iim,masse_adv_v(1,l),1)
+         massepn=ssum(iim,masse(1,l,iq),1)
+         qpn=0.
+         do ij=1,iim
+            qpn=qpn+masse(ij,l,iq)*q(ij,l,iq)
+         enddo
+         qpn=(qpn+convpn)/(massepn+convmpn)
+         do ij=1,iip1
+            q(ij,l,iq)=qpn
+         enddo
+
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)/apols
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)/apols
+
+         convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+         convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+         masseps=ssum(iim, masse(ip1jm+1,l,iq),1)
+         qps=0.
+         do ij = ip1jm+1,ip1jmp1-1
+            qps=qps+masse(ij,l,iq)*q(ij,l,iq)
+         enddo
+         qps=(qps+convps)/(masseps+convmps)
+         do ij=ip1jm+1,ip1jmp1
+            q(ij,l,iq)=qps
+         enddo
+
+c.-. fin ancienne version
+
+c._. nouvelle version
+c        convpn=SSUM(iim,qbyv(1,l),1)
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)
+c        oldmasse=ssum(iim,masse(1,l),1)
+c        newmasse=oldmasse+convmpn
+c        newq=(q(1,l)*oldmasse+convpn)/newmasse
+c        newmasse=newmasse/apoln
+c        DO ij = 1,iip1
+c           q(ij,l)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+c        oldmasse=ssum(iim,masse(ip1jm-iim,l),1)
+c        newmasse=oldmasse+convmps
+c        newq=(q(ip1jmp1,l)*oldmasse+convps)/newmasse
+c        newmasse=newmasse/apols
+c        DO ij = ip1jm+1,ip1jmp1
+c           q(ij,l)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c._. fin nouvelle version
+      ENDDO
+  
+! retablir les fils en rapport de melange par rapport a l'air:
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+         DO l=1,llm
+          DO ij=1,ip1jmp1
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+      !write(*,*) 'vly 853: sortie'
+
+      RETURN
+      END
+      RECURSIVE SUBROUTINE vlz(q,pente_max,masse,w,iq)
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi 
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c    q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm,nqtot),pente_max
+      REAL q(ip1jmp1,llm,nqtot)
+      REAL w(ip1jmp1,llm+1)
+      INTEGER iq
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+c
+      REAL wq(ip1jmp1,llm+1),newmasse
+
+      REAL dzq(ip1jmp1,llm),dzqw(ip1jmp1,llm),adzqw(ip1jmp1,llm),dzqmax
+      REAL sigw
+
+      REAL masseq(ip1jmp1,llm,nqtot),Ratio(ip1jmp1,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+
+      LOGICAL testcpu
+      SAVE testcpu
+
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+      REAL      SSUM
+
+      DATA testcpu/.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+
+c    On oriente tout dans le sens de la pression c'est a dire dans le
+c    sens de W
+
+      !write(*,*) 'vlz 923: entree'
+
+#ifdef BIDON
+      IF(testcpu) THEN
+         temps0=second(0.)
+      ENDIF
+#endif
+      DO l=2,llm
+         DO ij=1,ip1jmp1
+            dzqw(ij,l)=q(ij,l-1,iq)-q(ij,l,iq)
+            adzqw(ij,l)=abs(dzqw(ij,l))
+         ENDDO
+      ENDDO
+
+      DO l=2,llm-1
+         DO ij=1,ip1jmp1
+#ifdef CRAY
+            dzq(ij,l)=0.5*
+     ,      cvmgp(dzqw(ij,l)+dzqw(ij,l+1),0.,dzqw(ij,l)*dzqw(ij,l+1))
+#else
+            IF(dzqw(ij,l)*dzqw(ij,l+1).gt.0.) THEN
+                dzq(ij,l)=0.5*(dzqw(ij,l)+dzqw(ij,l+1))
+            ELSE
+                dzq(ij,l)=0.
+            ENDIF
+#endif
+            dzqmax=pente_max*min(adzqw(ij,l),adzqw(ij,l+1))
+            dzq(ij,l)=sign(min(abs(dzq(ij,l)),dzqmax),dzq(ij,l))
+         ENDDO
+      ENDDO
+
+      !write(*,*) 'vlz 954'
+      DO ij=1,ip1jmp1
+         dzq(ij,1)=0.
+         dzq(ij,llm)=0.
+      ENDDO
+
+#ifdef BIDON
+      IF(testcpu) THEN
+         temps1=temps1+second(0.)-temps0
+      ENDIF
+#endif
+c ---------------------------------------------------------------
+c   .... calcul des termes d'advection verticale  .......
+c ---------------------------------------------------------------
+
+c calcul de  - d( q   * w )/ d(sigma)    qu'on ajoute a  dq pour calculer dq
+
+       !write(*,*) 'vlz 969'
+       DO l = 1,llm-1
+         do  ij = 1,ip1jmp1
+          IF(w(ij,l+1).gt.0.) THEN
+             sigw=w(ij,l+1)/masse(ij,l+1,iq)
+             wq(ij,l+1)=w(ij,l+1)*(q(ij,l+1,iq)
+     &           +0.5*(1.-sigw)*dzq(ij,l+1))
+          ELSE
+             sigw=w(ij,l+1)/masse(ij,l,iq)
+             wq(ij,l+1)=w(ij,l+1)*(q(ij,l,iq)-0.5*(1.+sigw)*dzq(ij,l))
+          ENDIF
+         ENDDO
+       ENDDO
+
+       DO ij=1,ip1jmp1
+          wq(ij,llm+1)=0.
+          wq(ij,1)=0.
+       ENDDO
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlsplt 942: iq,nqfils(iq)=',iq,nqfils(iq)
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+         DO l=1,llm
+          DO ij=1,ip1jmp1
+           masseq(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)        
+          enddo   
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+        
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)         
+         call vlz(Ratio,pente_max,masseq,wq,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi  
+
+      DO l=1,llm
+         DO ij=1,ip1jmp1
+            newmasse=masse(ij,l,iq)+w(ij,l+1)-w(ij,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+wq(ij,l+1)-wq(ij,l))
+     &         /newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+      ENDDO
+
+! retablir les fils en rapport de melange par rapport a l'air:
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+         DO l=1,llm
+          DO ij=1,ip1jmp1
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+      !write(*,*) 'vlsplt 1032'
+
+      RETURN
+      END
+c      SUBROUTINE minmaxq(zq,qmin,qmax,comment)
+c
+c#include "dimensions.h"
+c#include "paramet.h"
+
+c      CHARACTER*(*) comment
+c      real qmin,qmax
+c      real zq(ip1jmp1,llm)
+
+c      INTEGER jadrs(ip1jmp1), jbad, k, i
+
+
+c      DO k = 1, llm
+c         jbad = 0
+c         DO i = 1, ip1jmp1
+c         IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
+c            jbad = jbad + 1
+c            jadrs(jbad) = i
+c         ENDIF
+c         ENDDO
+c         IF (jbad.GT.0) THEN
+c         PRINT*, comment
+c         DO i = 1, jbad
+cc            PRINT*, "i,k,zq=", jadrs(i),k,zq(jadrs(i),k)
+c         ENDDO
+c         ENDIF
+c      ENDDO
+
+c      return
+c      end
+      subroutine minmaxq(zq,qmin,qmax,comment)
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      character*20 comment
+      real qmin,qmax
+      real zq(ip1jmp1,llm)
+      real zzq(iip1,jjp1,llm)
+
+      integer imin,jmin,lmin,ijlmin
+      integer imax,jmax,lmax,ijlmax
+
+      integer ismin,ismax
+
+#ifdef isminismax
+      call scopy (ip1jmp1*llm,zq,1,zzq,1)
+
+      ijlmin=ismin(ijp1llm,zq,1)
+      lmin=(ijlmin-1)/ip1jmp1+1
+      ijlmin=ijlmin-(lmin-1.)*ip1jmp1
+      jmin=(ijlmin-1)/iip1+1
+      imin=ijlmin-(jmin-1.)*iip1
+      zqmin=zq(ijlmin,lmin)
+
+      ijlmax=ismax(ijp1llm,zq,1)
+      lmax=(ijlmax-1)/ip1jmp1+1
+      ijlmax=ijlmax-(lmax-1.)*ip1jmp1
+      jmax=(ijlmax-1)/iip1+1
+      imax=ijlmax-(jmax-1.)*iip1
+      zqmax=zq(ijlmax,lmax)
+
+       if(zqmin.lt.qmin) 
+c     s     write(*,9999) comment,
+     s     write(*,*) comment,
+     s     imin,jmin,lmin,zqmin,zzq(imin,jmin,lmin)
+       if(zqmax.gt.qmax) 
+c     s     write(*,9999) comment,
+     s     write(*,*) comment,
+     s     imax,jmax,lmax,zqmax,zzq(imax,jmax,lmax)
+
+#endif
+      return
+9999  format(a20,'  q(',i3,',',i2,',',i2,')=',e12.5,e12.5)
+      end
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/vlspltqs.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/vlspltqs.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/vlspltqs.F	(revision 3330)
@@ -0,0 +1,883 @@
+c
+c $Id$
+c
+       SUBROUTINE vlspltqs ( q,pente_max,masse,w,pbaru,pbarv,pdt,
+     ,                                  p,pk,teta,iq             )
+       USE infotrac, ONLY: nqtot,nqdesc,iqfils
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget, F.Codron 
+c
+c    ********************************************************************
+c          Shema  d'advection " pseudo amont " .
+c      + test sur humidite specifique: Q advecte< Qsat aval
+c                   (F. Codron, 10/99)
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c     pente_max facteur de limitation des pentes: 2 en general
+c                                                0 pour un schema amont
+c     pbaru,pbarv,w flux de masse en u ,v ,w
+c     pdt pas de temps
+c
+c     teta temperature potentielle, p pression aux interfaces,
+c     pk exner au milieu des couches necessaire pour calculer Qsat
+c   --------------------------------------------------------------------
+      
+      USE comconst_mod, ONLY: cpp
+      
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL q(ip1jmp1,llm,nqtot)
+      REAL w(ip1jmp1,llm),pdt
+      REAL p(ip1jmp1,llmp1),teta(ip1jmp1,llm),pk(ip1jmp1,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+      INTEGER ifils,iq2 ! CRisi
+c
+      REAL qsat(ip1jmp1,llm)
+      REAL zm(ip1jmp1,llm,nqtot)
+      REAL mu(ip1jmp1,llm)
+      REAL mv(ip1jm,llm)
+      REAL mw(ip1jmp1,llm+1)
+      REAL zq(ip1jmp1,llm,nqtot)
+      REAL temps1,temps2,temps3
+      REAL zzpbar, zzw
+      LOGICAL testcpu
+      SAVE testcpu
+      SAVE temps1,temps2,temps3
+
+      REAL qmin,qmax
+      DATA qmin,qmax/0.,1.e33/
+      DATA testcpu/.false./
+      DATA temps1,temps2,temps3/0.,0.,0./
+
+c--pour rapport de melange saturant--
+
+      REAL rtt,retv,r2es,r3les,r3ies,r4les,r4ies,play
+      REAL ptarg,pdelarg,foeew,zdelta
+      REAL tempe(ip1jmp1)
+
+c    fonction psat(T)
+
+       FOEEW ( PTARG,PDELARG ) = EXP (
+     *          (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)
+     * / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )
+
+        r2es  = 380.11733 
+        r3les = 17.269
+        r3ies = 21.875
+        r4les = 35.86
+        r4ies = 7.66
+        retv = 0.6077667
+        rtt  = 273.16
+
+c-- Calcul de Qsat en chaque point
+c-- approximation: au milieu des couches play(l)=(p(l)+p(l+1))/2
+c   pour eviter une exponentielle.
+        DO l = 1, llm
+         DO ij = 1, ip1jmp1
+          tempe(ij) = teta(ij,l) * pk(ij,l) /cpp
+         ENDDO
+         DO ij = 1, ip1jmp1
+          zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) )
+          play   = 0.5*(p(ij,l)+p(ij,l+1))
+          qsat(ij,l) = MIN(0.5, r2es* FOEEW(tempe(ij),zdelta) / play )
+          qsat(ij,l) = qsat(ij,l) / ( 1. - retv * qsat(ij,l) )
+         ENDDO
+        ENDDO
+
+c      PRINT*,'Debut vlsplt version debug sans vlyqs'
+
+        zzpbar = 0.5 * pdt
+        zzw    = pdt
+      DO l=1,llm
+        DO ij = iip2,ip1jm
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+         ENDDO
+         DO ij=1,ip1jm
+            mv(ij,l)=pbarv(ij,l) * zzpbar
+         ENDDO
+         DO ij=1,ip1jmp1
+            mw(ij,l)=w(ij,l) * zzw
+         ENDDO
+      ENDDO
+
+      DO ij=1,ip1jmp1
+         mw(ij,llm+1)=0.
+      ENDDO
+
+      CALL SCOPY(ijp1llm,q(1,1,iq),1,zq(1,1,iq),1)
+      CALL SCOPY(ijp1llm,masse,1,zm(1,1,iq),1)
+      if (nqdesc(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+        iq2=iqfils(ifils,iq)
+        CALL SCOPY(ijp1llm,q(1,1,iq2),1,zq(1,1,iq2),1)
+       enddo  
+      endif !if (nqfils(iq).gt.0) then
+
+c      call minmaxq(zq,qmin,qmax,'avant vlxqs     ')
+      call vlxqs(zq,pente_max,zm,mu,qsat,iq)
+
+c     call minmaxq(zq,qmin,qmax,'avant vlyqs     ')
+
+      call vlyqs(zq,pente_max,zm,mv,qsat,iq)
+
+c      call minmaxq(zq,qmin,qmax,'avant vlz     ')
+
+      call vlz(zq,pente_max,zm,mw,iq)
+
+c     call minmaxq(zq,qmin,qmax,'avant vlyqs     ')
+c     call minmaxq(zm,qmin,qmax,'M avant vlyqs     ')
+
+      call vlyqs(zq,pente_max,zm,mv,qsat,iq)
+
+c     call minmaxq(zq,qmin,qmax,'avant vlxqs     ')
+c     call minmaxq(zm,qmin,qmax,'M avant vlxqs     ')
+
+      call vlxqs(zq,pente_max,zm,mu,qsat,iq)
+
+c     call minmaxq(zq,qmin,qmax,'apres vlxqs     ')
+c     call minmaxq(zm,qmin,qmax,'M apres vlxqs     ')
+
+
+      DO l=1,llm
+         DO ij=1,ip1jmp1
+           q(ij,l,iq)=zq(ij,l,iq)
+         ENDDO
+         DO ij=1,ip1jm+1,iip1
+            q(ij+iim,l,iq)=q(ij,l,iq)
+         ENDDO
+      ENDDO
+      ! CRisi: aussi pour les fils
+      if (nqdesc(iq).gt.0) then
+      do ifils=1,nqdesc(iq)
+        iq2=iqfils(ifils,iq)
+        DO l=1,llm
+         DO ij=1,ip1jmp1
+           q(ij,l,iq2)=zq(ij,l,iq2)
+         ENDDO
+         DO ij=1,ip1jm+1,iip1
+            q(ij+iim,l,iq2)=q(ij,l,iq2)
+         ENDDO
+        ENDDO
+      enddo !do ifils=1,nqdesc(iq)  
+      endif ! if (nqfils(iq).gt.0) then
+      !write(*,*) 'vlspltqs 183: fin de la routine'
+
+      RETURN
+      END
+      SUBROUTINE vlxqs(q,pente_max,masse,u_m,qsat,iq)
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
+
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm,nqtot),pente_max
+      REAL u_m( ip1jmp1,llm )
+      REAL q(ip1jmp1,llm,nqtot)
+      REAL qsat(ip1jmp1,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ip1jmp1),niju
+      INTEGER n0,iadvplus(ip1jmp1,llm),nl(llm)
+c
+      REAL new_m,zu_m,zdum(ip1jmp1,llm)
+      REAL dxq(ip1jmp1,llm),dxqu(ip1jmp1)
+      REAL zz(ip1jmp1)
+      REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)
+      REAL u_mq(ip1jmp1,llm)
+
+      ! CRisi
+      REAL masseq(ip1jmp1,llm,nqtot),Ratio(ip1jmp1,llm,nqtot)
+      INTEGER ifils,iq2 ! CRisi
+
+      Logical first,testcpu
+      SAVE first,testcpu
+
+      REAL      SSUM
+      REAL temps0,temps1,temps2,temps3,temps4,temps5
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+
+
+      DATA first,testcpu/.true.,.false./
+
+      IF(first) THEN
+         temps1=0.
+         temps2=0.
+         temps3=0.
+         temps4=0.
+         temps5=0.
+         first=.false.
+      ENDIF
+
+c   calcul de la pente a droite et a gauche de la maille
+
+
+      IF (pente_max.gt.-1.e-5) THEN
+c     IF (pente_max.gt.10) THEN
+
+c   calcul des pentes avec limitation, Van Leer scheme I:
+c   -----------------------------------------------------
+
+c   calcul de la pente aux points u
+         DO l = 1, llm
+            DO ij=iip2,ip1jm-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
+c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
+            ENDDO
+            DO ij=iip1+iip1,ip1jm,iip1
+               dxqu(ij)=dxqu(ij-iim)
+c              sigu(ij)=sigu(ij-iim)
+            ENDDO
+
+            DO ij=iip2,ip1jm
+               adxqu(ij)=abs(dxqu(ij))
+            ENDDO
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+            DO ij=iip2+1,ip1jm
+               dxqmax(ij,l)=pente_max*
+     ,      min(adxqu(ij-1),adxqu(ij))
+c limitation subtile
+c    ,      min(adxqu(ij-1)/sigu(ij-1),adxqu(ij)/(1.-sigu(ij)))
+          
+
+            ENDDO
+
+            DO ij=iip1+iip1,ip1jm,iip1
+               dxqmax(ij-iim,l)=dxqmax(ij,l)
+            ENDDO
+
+            DO ij=iip2+1,ip1jm
+#ifdef CRAY
+               dxq(ij,l)=
+     ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
+#else
+               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+                  dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+#endif
+               dxq(ij,l)=0.5*dxq(ij,l)
+               dxq(ij,l)=
+     ,         sign(min(abs(dxq(ij,l)),dxqmax(ij,l)),dxq(ij,l))
+            ENDDO
+
+         ENDDO ! l=1,llm
+
+      ELSE ! (pente_max.lt.-1.e-5)
+
+c   Pentes produits:
+c   ----------------
+
+         DO l = 1, llm
+            DO ij=iip2,ip1jm-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+            ENDDO
+            DO ij=iip1+iip1,ip1jm,iip1
+               dxqu(ij)=dxqu(ij-iim)
+            ENDDO
+
+            DO ij=iip2+1,ip1jm
+               zz(ij)=dxqu(ij-1)*dxqu(ij)
+               zz(ij)=zz(ij)+zz(ij)
+               IF(zz(ij).gt.0) THEN
+                  dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+            ENDDO
+
+         ENDDO
+
+      ENDIF ! (pente_max.lt.-1.e-5)
+
+c   bouclage de la pente en iip1:
+c   -----------------------------
+
+      DO l=1,llm
+         DO ij=iip1+iip1,ip1jm,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         ENDDO
+
+         DO ij=1,ip1jmp1
+            iadvplus(ij,l)=0
+         ENDDO
+
+      ENDDO
+
+
+c   calcul des flux a gauche et a droite
+
+#ifdef CRAY
+c--pas encore modification sur Qsat
+      DO l=1,llm
+       DO ij=iip2,ip1jm-1
+          zdum(ij,l)=cvmgp(1.-u_m(ij,l)/masse(ij,l,iq),
+     ,                     1.+u_m(ij,l)/masse(ij+1,l,iq),
+     ,                     u_m(ij,l))
+          zdum(ij,l)=0.5*zdum(ij,l)
+          u_mq(ij,l)=cvmgp(
+     ,                q(ij,l,iq)+zdum(ij,l)*dxq(ij,l),
+     ,                q(ij+1,l,iq)-zdum(ij,l)*dxq(ij+1,l),
+     ,                u_m(ij,l))
+          u_mq(ij,l)=u_m(ij,l)*u_mq(ij,l)
+       ENDDO
+      ENDDO
+#else
+c   on cumule le flux correspondant a toutes les mailles dont la masse
+c   au travers de la paroi pENDant le pas de temps.
+c   le rapport de melange de l'air advecte est min(q_vanleer, Qsat_downwind)
+      DO l=1,llm
+       DO ij=iip2,ip1jm-1
+          IF (u_m(ij,l).gt.0.) THEN
+             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*
+     $         min(q(ij,l,iq)+0.5*zdum(ij,l)*dxq(ij,l),qsat(ij+1,l))
+          ELSE
+             zdum(ij,l)=1.+u_m(ij,l)/masse(ij+1,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*
+     $         min(q(ij+1,l,iq)-0.5*zdum(ij,l)*dxq(ij+1,l),qsat(ij,l))
+          ENDIF
+       ENDDO
+      ENDDO
+#endif
+
+
+c   detection des points ou on advecte plus que la masse de la
+c   maille
+      DO l=1,llm
+         DO ij=iip2,ip1jm-1
+            IF(zdum(ij,l).lt.0) THEN
+               iadvplus(ij,l)=1
+               u_mq(ij,l)=0.
+            ENDIF
+         ENDDO
+      ENDDO
+      DO l=1,llm
+       DO ij=iip1+iip1,ip1jm,iip1
+          iadvplus(ij,l)=iadvplus(ij-iim,l)
+       ENDDO
+      ENDDO
+
+
+
+c   traitement special pour le cas ou on advecte en longitude plus que le
+c   contenu de la maille.
+c   cette partie est mal vectorisee.
+
+c   pas d'influence de la pression saturante (pour l'instant)
+
+c  calcul du nombre de maille sur lequel on advecte plus que la maille.
+
+      n0=0
+      DO l=1,llm
+         nl(l)=0
+         DO ij=iip2,ip1jm
+            nl(l)=nl(l)+iadvplus(ij,l)
+         ENDDO
+         n0=n0+nl(l)
+      ENDDO
+
+      IF(n0.gt.0) THEN
+ccc      PRINT*,'Nombre de points pour lesquels on advect plus que le'
+ccc     &       ,'contenu de la maille : ',n0
+
+         DO l=1,llm
+            IF(nl(l).gt.0) THEN
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               DO ij=iip2,ip1jm
+                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                     iju=iju+1
+                     indu(iju)=ij
+                  ENDIF
+               ENDDO
+               niju=iju
+c              PRINT*,'niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               DO iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  IF(zu_m.gt.0.) THEN
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)+q(ijq,l,iq)
+     &                          *masse(ijq,l,iq)
+                        zu_m=zu_m-masse(ijq,l,iq)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*
+     &                  (q(ijq,l,iq)+0.5*(1.-zu_m/masse(ijq,l,iq))
+     &                  *dxq(ijq,l))
+                  ELSE
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l,iq)
+     &                          *masse(ijq,l,iq)
+                        zu_m=zu_m+masse(ijq,l,iq)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l,iq)-
+     &               0.5*(1.+zu_m/masse(ijq,l,iq))*dxq(ijq,l))
+                  ENDIF
+               ENDDO
+            ENDIF
+         ENDDO
+      ENDIF  ! n0.gt.0 
+
+
+
+c   bouclage en latitude
+
+      DO l=1,llm
+        DO ij=iip1+iip1,ip1jm,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        ENDDO
+      ENDDO
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlspltqs 326: iq,nqfils(iq)=',iq,nqfils(iq) 
+      
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+         DO l=1,llm
+          DO ij=iip2,ip1jm
+           ! On a besoin de q et masse seulement entre iip2 et ip1jm 
+           masseq(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)
+          enddo   
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vlx(Ratio,pente_max,masseq,u_mq,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi
+
+c   calcul des tendances
+
+      DO l=1,llm
+         DO ij=iip2+1,ip1jm
+            new_m=masse(ij,l,iq)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+
+     &      u_mq(ij-1,l)-u_mq(ij,l))
+     &      /new_m
+            masse(ij,l,iq)=new_m
+         ENDDO
+c   Modif Fred 22 03 96 correction d'un bug (les scopy ci-dessous)
+         DO ij=iip1+iip1,ip1jm,iip1
+            q(ij-iim,l,iq)=q(ij,l,iq)
+            masse(ij-iim,l,iq)=masse(ij,l,iq)
+         ENDDO
+      ENDDO
+
+      ! retablir les fils en rapport de melange par rapport a l'air:
+      ! On calcule q entre iip2+1,ip1jm -> on fait pareil pour ratio 
+      ! puis on boucle en longitude
+      if (nqdesc(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+         DO l=1,llm
+          DO ij=iip2+1,ip1jm
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+          DO ij=iip1+iip1,ip1jm,iip1
+             q(ij-iim,l,iq2)=q(ij,l,iq2)
+          enddo ! DO ij=ijb+iip1-1,ije,iip1
+         enddo !DO l=1,llm
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+c     CALL SCOPY((jjm-1)*llm,q(iip1+iip1,1),iip1,q(iip2,1),iip1)
+c     CALL SCOPY((jjm-1)*llm,masse(iip1+iip1,1),iip1,masse(iip2,1),iip1)
+
+
+      RETURN
+      END
+      SUBROUTINE vlyqs(q,pente_max,masse,masse_adv_v,qsat,iq)
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
+c     qsat 	       est   un argument de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      
+      USE comconst_mod, ONLY: pi
+      
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm,nqtot),pente_max
+      REAL masse_adv_v( ip1jm,llm)
+      REAL q(ip1jmp1,llm,nqtot)
+      REAL qsat(ip1jmp1,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      REAL dyq(ip1jmp1,llm),dyqv(ip1jm)
+      REAL adyqv(ip1jm),dyqmax(ip1jmp1)
+      REAL qbyv(ip1jm,llm)
+
+      REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
+c     REAL newq,oldmasse
+      Logical first,testcpu
+      REAL temps0,temps1,temps2,temps3,temps4,temps5
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+      SAVE first,testcpu
+
+      REAL convpn,convps,convmpn,convmps
+      REAL sinlon(iip1),sinlondlon(iip1)
+      REAL coslon(iip1),coslondlon(iip1)
+      SAVE sinlon,coslon,sinlondlon,coslondlon
+      SAVE airej2,airejjm
+
+      REAL masseq(ip1jmp1,llm,nqtot),Ratio(ip1jmp1,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+c
+c
+      REAL      SSUM
+
+      DATA first,testcpu/.true.,.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+
+      IF(first) THEN
+         PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         ENDDO
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         airej2 = SSUM( iim, aire(iip2), 1 )
+         airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      ENDIF
+
+c
+
+
+      DO l = 1, llm
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+
+      DO i = 1, iim
+      airescb(i) = aire(i+ iip1) * q(i+ iip1,l,iq)
+      airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l,iq)
+      ENDDO
+      qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+
+c   calcul des pentes aux points v
+
+      DO ij=1,ip1jm
+         dyqv(ij)=q(ij,l,iq)-q(ij+iip1,l,iq)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+
+c   calcul des pentes aux points scalaires
+
+      DO ij=iip2,ip1jm
+         dyq(ij,l)=.5*(dyqv(ij-iip1)+dyqv(ij))
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      ENDDO
+
+c   calcul des pentes aux poles
+
+      DO ij=1,iip1
+         dyq(ij,l)=qpns-q(ij+iip1,l,iq)
+         dyq(ip1jm+ij,l)=q(ip1jm+ij-iip1,l,iq)-qpsn
+      ENDDO
+
+c   filtrage de la derivee
+      dyn1=0.
+      dys1=0.
+      dyn2=0.
+      dys2=0.
+      DO ij=1,iim
+         dyn1=dyn1+sinlondlon(ij)*dyq(ij,l)
+         dys1=dys1+sinlondlon(ij)*dyq(ip1jm+ij,l)
+         dyn2=dyn2+coslondlon(ij)*dyq(ij,l)
+         dys2=dys2+coslondlon(ij)*dyq(ip1jm+ij,l)
+      ENDDO
+      DO ij=1,iip1
+         dyq(ij,l)=dyn1*sinlon(ij)+dyn2*coslon(ij)
+         dyq(ip1jm+ij,l)=dys1*sinlon(ij)+dys2*coslon(ij)
+      ENDDO
+
+c   calcul des pentes limites aux poles
+
+      fn=1.
+      fs=1.
+      DO ij=1,iim
+         IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+            fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
+         ENDIF
+      IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+         fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
+         ENDIF
+      ENDDO
+      DO ij=1,iip1
+         dyq(ij,l)=fn*dyq(ij,l)
+         dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
+      ENDDO
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C  En memoire de dIFferents tests sur la 
+C  limitation des pentes aux poles.
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C     PRINT*,dyq(1)
+C     PRINT*,dyqv(iip1+1)
+C     appn=abs(dyq(1)/dyqv(iip1+1))
+C     PRINT*,dyq(ip1jm+1)
+C     PRINT*,dyqv(ip1jm-iip1+1)
+C     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+C     DO ij=2,iim
+C        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+C        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+C     ENDDO
+C     appn=min(pente_max/appn,1.)
+C     apps=min(pente_max/apps,1.)
+C
+C
+C   cas ou on a un extremum au pole
+C
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   appn=0.
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &   apps=0.
+C
+C   limitation des pentes aux poles
+C     DO ij=1,iip1
+C        dyq(ij)=appn*dyq(ij)
+C        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+C     ENDDO
+C
+C   test
+C      DO ij=1,iip1
+C         dyq(iip1+ij)=0.
+C         dyq(ip1jm+ij-iip1)=0.
+C      ENDDO
+C      DO ij=1,ip1jmp1
+C         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+C      ENDDO
+C
+C changement 10 07 96
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   THEN
+C        DO ij=1,iip1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=1,iip1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij))
+C        ENDDO
+C     ENDIF
+C
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &THEN
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+C        ENDDO
+C     ENDIF
+C   fin changement 10 07 96
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+
+c   calcul des pentes limitees
+
+      DO ij=iip2,ip1jm
+         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+            dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
+         ELSE
+            dyq(ij,l)=0.
+         ENDIF
+      ENDDO
+
+      ENDDO
+
+      DO l=1,llm
+       DO ij=1,ip1jm
+         IF( masse_adv_v(ij,l).GT.0. ) THEN
+           qbyv(ij,l)= MIN( qsat(ij+iip1,l), q(ij+iip1,l,iq )  +
+     ,      dyq(ij+iip1,l)*0.5*(1.-masse_adv_v(ij,l)
+     ,      /masse(ij+iip1,l,iq)))
+         ELSE
+              qbyv(ij,l)= MIN( qsat(ij,l), q(ij,l,iq) - dyq(ij,l) *
+     ,                   0.5*(1.+masse_adv_v(ij,l)/masse(ij,l,iq)) )
+         ENDIF
+          qbyv(ij,l) = masse_adv_v(ij,l)*qbyv(ij,l)
+       ENDDO
+      ENDDO
+
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlyqs 689: iq,nqfils(iq)=',iq,nqfils(iq) 
+   
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+         DO l=1,llm
+         DO ij=1,ip1jmp1
+           masseq(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)     
+          enddo   
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         !write(*,*) 'vlyqs 783: appel rec de vly, iq2=',iq2
+         call vly(Ratio,pente_max,masseq,qbyv,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+      DO l=1,llm
+         DO ij=iip2,ip1jm
+            newmasse=masse(ij,l,iq)
+     &      +masse_adv_v(ij,l)-masse_adv_v(ij-iip1,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+qbyv(ij,l)
+     &         -qbyv(ij-iip1,l))/newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+c.-. ancienne version
+         convpn=SSUM(iim,qbyv(1,l),1)/apoln
+         convmpn=ssum(iim,masse_adv_v(1,l),1)/apoln
+         DO ij = 1,iip1
+            newmasse=masse(ij,l,iq)+convmpn*aire(ij)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+convpn*aire(ij))/
+     &               newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+         convps  = -SSUM(iim,qbyv(ip1jm-iim,l),1)/apols
+         convmps = -SSUM(iim,masse_adv_v(ip1jm-iim,l),1)/apols
+         DO ij = ip1jm+1,ip1jmp1
+            newmasse=masse(ij,l,iq)+convmps*aire(ij)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+convps*aire(ij))/
+     &               newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+c.-. fin ancienne version
+
+c._. nouvelle version
+c        convpn=SSUM(iim,qbyv(1,l),1)
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)
+c        oldmasse=ssum(iim,masse(1,l),1)
+c        newmasse=oldmasse+convmpn
+c        newq=(q(1,l)*oldmasse+convpn)/newmasse
+c        newmasse=newmasse/apoln
+c        DO ij = 1,iip1
+c           q(ij,l)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+c        oldmasse=ssum(iim,masse(ip1jm-iim,l),1)
+c        newmasse=oldmasse+convmps
+c        newq=(q(ip1jmp1,l)*oldmasse+convps)/newmasse
+c        newmasse=newmasse/apols
+c        DO ij = ip1jm+1,ip1jmp1
+c           q(ij,l)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c._. fin nouvelle version
+      ENDDO
+
+      !write(*,*) 'vly 866'
+
+! retablir les fils en rapport de melange par rapport a l'air:
+      if (nqdesc(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+         DO l=1,llm
+          DO ij=1,ip1jmp1
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+         enddo
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+      !write(*,*) 'vly 879'
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/wrgrads.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/wrgrads.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/wrgrads.F	(revision 3330)
@@ -0,0 +1,133 @@
+!
+! $Header$
+!
+      subroutine wrgrads(if,nl,field,name,titlevar)
+      implicit none
+
+c   Declarations
+c    if indice du fichier
+c    nl nombre de couches
+c    field   champ
+c    name    petit nom
+c    titlevar   Titre
+
+#include "gradsdef.h"
+
+c   arguments
+      integer if,nl
+      real field(imx*jmx*lmx)
+
+      integer, parameter:: wp = selected_real_kind(p=6, r=36)
+      real(wp) field4(imx*jmx*lmx)
+
+      character*10 name,file
+      character*10 titlevar
+
+c   local
+
+      integer im,jm,lm,i,j,l,iv,iii,iji,iif,ijf
+
+      logical writectl
+
+
+      writectl=.false.
+
+c     print*,if,iid(if),jid(if),ifd(if),jfd(if)
+      iii=iid(if)
+      iji=jid(if)
+      iif=ifd(if)
+      ijf=jfd(if)
+      im=iif-iii+1
+      jm=ijf-iji+1
+      lm=lmd(if)
+
+c     print*,'im,jm,lm,name,firsttime(if)'
+c     print*,im,jm,lm,name,firsttime(if)
+
+      if(firsttime(if)) then
+         if(name.eq.var(1,if)) then
+            firsttime(if)=.false.
+            ivar(if)=1
+         print*,'fin de l initialiation de l ecriture du fichier'
+         print*,file
+           print*,'fichier no: ',if
+           print*,'unit ',unit(if)
+           print*,'nvar  ',nvar(if)
+           print*,'vars ',(var(iv,if),iv=1,nvar(if))
+         else
+            ivar(if)=ivar(if)+1
+            nvar(if)=ivar(if)
+            var(ivar(if),if)=name
+            tvar(ivar(if),if)=trim(titlevar)
+            nld(ivar(if),if)=nl
+c           print*,'initialisation ecriture de ',var(ivar(if),if)
+c           print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
+         endif
+         writectl=.true.
+         itime(if)=1
+      else
+         ivar(if)=mod(ivar(if),nvar(if))+1
+         if (ivar(if).eq.nvar(if)) then
+            writectl=.true.
+            itime(if)=itime(if)+1
+         endif
+
+         if(var(ivar(if),if).ne.name) then
+           print*,'Il faut stoker la meme succession de champs a chaque'
+           print*,'pas de temps'
+           print*,'fichier no: ',if
+           print*,'unit ',unit(if)
+           print*,'nvar  ',nvar(if)
+           print*,'vars ',(var(iv,if),iv=1,nvar(if))
+
+           stop
+         endif
+      endif
+
+c     print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
+c     print*,ivar(if),nvar(if),var(ivar(if),if),writectl
+      field4(1:imd(if)*jmd(if)*nl)=field(1:imd(if)*jmd(if)*nl)
+      do l=1,nl
+         irec(if)=irec(if)+1
+c        print*,'Ecrit rec=',irec(if),iii,iif,iji,ijf,
+c    s (l-1)*imd(if)*jmd(if)+(iji-1)*imd(if)+iii
+c    s ,(l-1)*imd(if)*jmd(if)+(ijf-1)*imd(if)+iif
+         write(unit(if)+1,rec=irec(if))
+     s   ((field4((l-1)*imd(if)*jmd(if)+(j-1)*imd(if)+i)
+     s   ,i=iii,iif),j=iji,ijf)
+      enddo
+      if (writectl) then
+
+      file=fichier(if)
+c   WARNING! on reecrase le fichier .ctl a chaque ecriture
+      open(unit(if),file=trim(file)//'.ctl'
+     &         ,form='formatted',status='unknown')
+      write(unit(if),'(a5,1x,a40)')
+     &       'DSET ','^'//trim(file)//'.dat'
+
+      write(unit(if),'(a12)') 'UNDEF 1.0E30'
+      write(unit(if),'(a5,1x,a40)') 'TITLE ',title(if)
+      call formcoord(unit(if),im,xd(iii,if),1.,.false.,'XDEF')
+      call formcoord(unit(if),jm,yd(iji,if),1.,.true.,'YDEF')
+      call formcoord(unit(if),lm,zd(1,if),1.,.false.,'ZDEF')
+      write(unit(if),'(a4,i10,a30)')
+     &       'TDEF ',itime(if),' LINEAR 02JAN1987 1MO '
+      write(unit(if),'(a4,2x,i5)') 'VARS',nvar(if)
+      do iv=1,nvar(if)
+c        print*,'if,var(iv,if),nld(iv,if),nld(iv,if)-1/nld(iv,if)'
+c        print*,if,var(iv,if),nld(iv,if),nld(iv,if)-1/nld(iv,if)
+         write(unit(if),1000) var(iv,if),nld(iv,if)-1/nld(iv,if)
+     &     ,99,tvar(iv,if)
+      enddo
+      write(unit(if),'(a7)') 'ENDVARS'
+c
+1000  format(a5,3x,i4,i3,1x,a39)
+
+      close(unit(if))
+
+      endif ! writectl
+
+      return
+
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/write_paramLMDZ_dyn.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/write_paramLMDZ_dyn.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d/write_paramLMDZ_dyn.h	(revision 3330)
@@ -0,0 +1,246 @@
+! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+! Attention : il n'y a aucune raison pour ecrire ces constantes
+! comme des champs 2D. A corriger un jour ...
+
+c
+      ndex2d = 0
+      itau_w=itau_dyn+itau
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(prt_level) 
+      CALL histwrite(nid_ctesGCM, "prt_level", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(dayref)
+      CALL histwrite(nid_ctesGCM, "dayref", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(anneeref)
+      CALL histwrite(nid_ctesGCM, "anneeref", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(raz_date)
+      CALL histwrite(nid_ctesGCM, "raz_date", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(nday)
+      CALL histwrite(nid_ctesGCM, "nday", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(day_step)
+      CALL histwrite(nid_ctesGCM, "day_step", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(iperiod)
+      CALL histwrite(nid_ctesGCM, "iperiod", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(iapp_tracvl)
+      CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(iconser)
+      CALL histwrite(nid_ctesGCM, "iconser", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(iecri)
+      CALL histwrite(nid_ctesGCM, "iecri", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=periodav
+      CALL histwrite(nid_ctesGCM, "periodav", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(dissip_period)
+      CALL histwrite(nid_ctesGCM, "dissip_period", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      IF(lstardis) THEN
+       zx_tmp_2d(1:iip1,1:jjp1)=1.
+      ELSE
+       zx_tmp_2d(1:iip1,1:jjp1)=0.
+      ENDIF
+      CALL histwrite(nid_ctesGCM, "lstardis", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(nitergdiv)
+      CALL histwrite(nid_ctesGCM, "nitergdiv", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(nitergrot)
+      CALL histwrite(nid_ctesGCM, "nitergrot", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(niterh) 
+      CALL histwrite(nid_ctesGCM, "niterh", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=tetagdiv
+      CALL histwrite(nid_ctesGCM, "tetagdiv", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=tetagrot
+      CALL histwrite(nid_ctesGCM, "tetagrot", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=tetatemp
+      CALL histwrite(nid_ctesGCM, "tetatemp", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=coefdis
+      CALL histwrite(nid_ctesGCM, "coefdis", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      IF(purmats) THEN
+       zx_tmp_2d(1:iip1,1:jjp1)=1.
+      ELSE
+       zx_tmp_2d(1:iip1,1:jjp1)=0.
+      ENDIF
+      CALL histwrite(nid_ctesGCM, "purmats", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      IF(ok_guide) THEN
+       zx_tmp_2d(1:iip1,1:jjp1)=1.
+      ELSE
+       zx_tmp_2d(1:iip1,1:jjp1)=0.
+      ENDIF
+      CALL histwrite(nid_ctesGCM, "ok_guide", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      if (calend == 'earth_360d') then
+        zx_tmp_2d(1:iip1,1:jjp1)=1.
+      else if (calend == 'earth_365d') then
+        zx_tmp_2d(1:iip1,1:jjp1)=2.
+      else if (calend == 'earth_366d') then
+        zx_tmp_2d(1:iip1,1:jjp1)=3.
+      endif
+
+      CALL histwrite(nid_ctesGCM, "true_calendar", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(iflag_phys)
+      CALL histwrite(nid_ctesGCM, "iflag_phys", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=REAL(iphysiq)
+      CALL histwrite(nid_ctesGCM, "iphysiq", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH 2008/05/02
+! La variable cycle_diurne n'est pas vue par la dynamique
+!     IF(cycle_diurne) THEN
+!      zx_tmp_2d(1:iip1,1:jjp1)=1.
+!     ELSE
+!      zx_tmp_2d(1:iip1,1:jjp1)=0.
+!     ENDIF
+!     CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     IF(soil_model) THEN
+!      zx_tmp_2d(1:iip1,1:jjp1)=1.
+!     ELSE
+!      zx_tmp_2d(1:iip1,1:jjp1)=0.
+!     ENDIF
+!     CALL histwrite(nid_ctesGCM, "soil_model", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     IF(new_oliq) THEN
+!      zx_tmp_2d(1:iip1,1:jjp1)=1.
+!     ELSE
+!      zx_tmp_2d(1:iip1,1:jjp1)=0.
+!     ENDIF
+!     CALL histwrite(nid_ctesGCM, "new_oliq", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     IF(ok_orodr) THEN
+!      zx_tmp_2d(1:iip1,1:jjp1)=1.
+!     ELSE
+!      zx_tmp_2d(1:iip1,1:jjp1)=0.
+!     ENDIF
+!     CALL histwrite(nid_ctesGCM, "ok_orodr", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     IF(ok_orolf) THEN
+!      zx_tmp_2d(1:iip1,1:jjp1)=1.
+!     ELSE
+!      zx_tmp_2d(1:iip1,1:jjp1)=0.
+!     ENDIF
+!     CALL histwrite(nid_ctesGCM, "ok_orolf", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     IF(ok_limitvrai) THEN
+!      zx_tmp_2d(1:iip1,1:jjp1)=1.
+!     ELSE
+!      zx_tmp_2d(1:iip1,1:jjp1)=0.
+!     ENDIF
+!     CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     zx_tmp_2d(1:iip1,1:jjp1)=nbapp_rad
+!     CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!
+!     zx_tmp_2d(1:iip1,1:jjp1)=iflag_con
+!     CALL histwrite(nid_ctesGCM, "iflag_con", itau_w,
+!    .               zx_tmp_2d,iip1*jjp1,ndex2d)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=clon
+      CALL histwrite(nid_ctesGCM, "clon", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=clat
+      CALL histwrite(nid_ctesGCM, "clat", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=grossismx
+      CALL histwrite(nid_ctesGCM, "grossismx", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=grossismy
+      CALL histwrite(nid_ctesGCM, "grossismy", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      IF(fxyhypb) THEN
+       zx_tmp_2d(1:iip1,1:jjp1)=1.
+      ELSE
+       zx_tmp_2d(1:iip1,1:jjp1)=0.
+      ENDIF
+      CALL histwrite(nid_ctesGCM, "fxyhypb", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=dzoomx
+      CALL histwrite(nid_ctesGCM, "dzoomx", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=dzoomy
+      CALL histwrite(nid_ctesGCM, "dzoomy", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=taux
+      CALL histwrite(nid_ctesGCM, "taux", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=tauy
+      CALL histwrite(nid_ctesGCM, "tauy", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      IF(ysinus) THEN
+       zx_tmp_2d(1:iip1,1:jjp1)=1.
+      ELSE
+       zx_tmp_2d(1:iip1,1:jjp1)=0.
+      ENDIF
+      CALL histwrite(nid_ctesGCM, "ysinus", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+      zx_tmp_2d(1:iip1,1:jjp1)=ip_ebil_dyn
+      CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_w,
+     .               zx_tmp_2d,iip1*jjp1,ndex2d)
+c
+c=================================================================
+c
+      if (ok_sync) then
+        call histsync(nid_ctesGCM)
+      endif
+c
+c=================================================================
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/academic.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/academic.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/academic.h	(revision 3330)
@@ -0,0 +1,9 @@
+!
+! $Id$
+!
+      common/academic/tetarappel,knewt_t,kfrict,knewt_g,clat4
+      real :: tetarappel(ip1jmp1,llm)
+      real :: knewt_t(llm)
+      real :: kfrict(llm)
+      real :: knewt_g
+      real :: clat4(ip1jmp1)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/adaptdt.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/adaptdt.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/adaptdt.F	(revision 3330)
@@ -0,0 +1,54 @@
+!
+! $Id$
+!
+      subroutine adaptdt(nadv,dtbon,n,pbaru,
+     c                   masse)
+
+      USE comconst_mod, ONLY: dtvr
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissip.h"
+      include "comgeom2.h"
+      include "ener.h"
+      include "description.h"
+
+c----------------------------------------------------------
+c     Arguments
+c----------------------------------------------------------
+      INTEGER n,nadv
+      REAL dtbon 
+      REAL pbaru(iip1,jjp1,llm)
+      REAL masse(iip1,jjp1,llm)
+c----------------------------------------------------------    
+c     Local
+c----------------------------------------------------------
+      INTEGER i,j,l
+      REAL CFLmax,aaa,bbb
+      
+        CFLmax=0.
+        do l=1,llm
+         do j=2,jjm
+          do i=1,iim
+             aaa=pbaru(i,j,l)*dtvr/masse(i,j,l)
+             CFLmax=max(CFLmax,aaa)
+             bbb=-pbaru(i,j,l)*dtvr/masse(i+1,j,l)
+             CFLmax=max(CFLmax,bbb)
+          enddo
+         enddo
+        enddo              
+        n=int(CFLmax)+1
+c pour reproduire cas VL du code qui appele x,y,z,y,x
+c        if (nadv.eq.30) n=n/2   ! Pour Prather
+        dtbon=dtvr/n
+        
+       return
+       end
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advn.F	(revision 3330)
@@ -0,0 +1,977 @@
+!
+! $Header$
+!
+      SUBROUTINE advn(q,masse,w,pbaru,pbarv,pdt,mode)
+c
+c     Auteur : F. Hourdin
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c   pbaru,pbarv,w flux de masse en u ,v ,w
+c   pdt pas de temps
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "iniprint.h"
+
+c
+c   Arguments:
+c   ----------
+      integer mode
+      real masse(ip1jmp1,llm)
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL q(ip1jmp1,llm)
+      REAL w(ip1jmp1,llm),pdt
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+      integer ijlqmin,iqmin,jqmin,lqmin
+      integer ismin
+c
+      real zm(ip1jmp1,llm),newmasse
+      real mu(ip1jmp1,llm)
+      real mv(ip1jm,llm)
+      real mw(ip1jmp1,llm+1)
+      real zq(ip1jmp1,llm),zz,qpn,qps
+      real zqg(ip1jmp1,llm),zqd(ip1jmp1,llm)
+      real zqs(ip1jmp1,llm),zqn(ip1jmp1,llm)
+      real zqh(ip1jmp1,llm),zqb(ip1jmp1,llm)
+      real temps0,temps1,temps2,temps3
+      real ztemps1,ztemps2,ztemps3,ssum
+      logical testcpu
+      save testcpu
+      save temps1,temps2,temps3
+      real zzpbar,zzw
+
+#ifdef CRAY
+      real second
+#endif
+
+      real qmin,qmax
+      data qmin,qmax/0.,1./
+      data testcpu/.false./
+      data temps1,temps2,temps3/0.,0.,0./
+
+      zzpbar = 0.5 * pdt
+      zzw    = pdt
+
+      DO l=1,llm
+        DO ij = iip2,ip1jm
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+         ENDDO
+         DO ij=1,ip1jm
+            mv(ij,l)=pbarv(ij,l) * zzpbar
+         ENDDO
+         DO ij=1,ip1jmp1
+            mw(ij,l)=w(ij,l) * zzw
+         ENDDO
+      ENDDO
+
+      DO ij=1,ip1jmp1
+         mw(ij,llm+1)=0.
+      ENDDO
+
+      do l=1,llm
+         qpn=0.
+         qps=0.
+         do ij=1,iim
+            qpn=qpn+q(ij,l)*masse(ij,l)
+            qps=qps+q(ip1jm+ij,l)*masse(ip1jm+ij,l)
+         enddo
+         qpn=qpn/ssum(iim,masse(1,l),1)
+         qps=qps/ssum(iim,masse(ip1jm+1,l),1)
+         do ij=1,iip1
+            q(ij,l)=qpn
+            q(ip1jm+ij,l)=qps
+         enddo
+      enddo
+
+      do ij=1,ip1jmp1
+         mw(ij,llm+1)=0.
+      enddo
+      do l=1,llm
+         do ij=1,ip1jmp1
+            zq(ij,l)=q(ij,l)
+            zm(ij,l)=masse(ij,l)
+         enddo
+      enddo
+
+c     call minmaxq(zq,qmin,qmax,'avant vlx     ')
+      call advnqx(zq,zqg,zqd)
+      call advnx(zq,zqg,zqd,zm,mu,mode)
+      call advnqy(zq,zqs,zqn)
+      call advny(zq,zqs,zqn,zm,mv)
+      call advnqz(zq,zqh,zqb)
+      call advnz(zq,zqh,zqb,zm,mw)
+c     call vlz(zq,0.,zm,mw)
+      call advnqy(zq,zqs,zqn)
+      call advny(zq,zqs,zqn,zm,mv)
+      call advnqx(zq,zqg,zqd)
+      call advnx(zq,zqg,zqd,zm,mu,mode)
+c     call minmaxq(zq,qmin,qmax,'apres vlx     ')
+
+#ifdef CRAY
+      if(testcpu) then
+         ztemps1=second(0.)
+         temps1=temps1+ztemps1-ztemps2
+            print*,'VLSPLT X:',temps1,'   Y:',temps2,'   Z:',temps3
+      endif
+#endif
+      do l=1,llm
+         do ij=1,ip1jmp1
+           q(ij,l)=zq(ij,l)
+         enddo
+         do ij=1,ip1jm+1,iip1
+            q(ij+iim,l)=q(ij,l)
+         enddo
+      enddo
+
+      RETURN
+      END
+
+      SUBROUTINE advnqx(q,qg,qd)
+c
+c     Auteurs:   Calcul des valeurs de q aux point u.
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      real q(ip1jmp1,llm),qg(ip1jmp1,llm),qd(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      real dxqu(ip1jmp1),zqu(ip1jmp1)
+      real zqmax(ip1jmp1),zqmin(ip1jmp1)
+      logical extremum(ip1jmp1)
+
+      integer mode
+      save mode
+      data mode/1/
+
+c   calcul des pentes en u:
+c   -----------------------
+      if (mode.eq.0) then
+         do l=1,llm
+            do ij=1,ip1jm
+               qd(ij,l)=q(ij,l)
+               qg(ij,l)=q(ij,l)
+            enddo
+         enddo
+      else
+      do l = 1, llm
+         do ij=iip2,ip1jm-1
+            dxqu(ij)=q(ij+1,l)-q(ij,l)
+            zqu(ij)=0.5*(q(ij+1,l)+q(ij,l))
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            dxqu(ij)=dxqu(ij-iim)
+            zqu(ij)=zqu(ij-iim)
+         enddo
+         do ij=iip2,ip1jm-1
+            zqu(ij)=zqu(ij)-dxqu(ij+1)/12.
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            zqu(ij)=zqu(ij-iim)
+         enddo
+         do ij=iip2+1,ip1jm
+            zqu(ij)=zqu(ij)+dxqu(ij-1)/12.
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            zqu(ij-iim)=zqu(ij)
+         enddo
+
+c   calcul des valeurs max et min acceptees aux interfaces
+
+         do ij=iip2,ip1jm-1
+            zqmax(ij)=max(q(ij+1,l),q(ij,l))
+            zqmin(ij)=min(q(ij+1,l),q(ij,l))
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            zqmax(ij)=zqmax(ij-iim)
+            zqmin(ij)=zqmin(ij-iim)
+         enddo
+         do ij=iip2+1,ip1jm
+            extremum(ij)=dxqu(ij)*dxqu(ij-1).le.0.
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            extremum(ij-iim)=extremum(ij)
+         enddo
+         do ij=iip2,ip1jm
+            zqu(ij)=min(max(zqmin(ij),zqu(ij)),zqmax(ij))
+         enddo
+         do ij=iip2+1,ip1jm
+            if(extremum(ij)) then
+               qg(ij,l)=q(ij,l)
+               qd(ij,l)=q(ij,l)
+            else
+               qd(ij,l)=zqu(ij)
+               qg(ij,l)=zqu(ij-1)
+            endif
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            qd(ij-iim,l)=qd(ij,l)
+            qg(ij-iim,l)=qg(ij,l)
+         enddo
+
+         goto 8888
+
+         do ij=iip2+1,ip1jm
+            if(extremum(ij).and..not.extremum(ij-1))
+     s         qd(ij-1,l)=q(ij,l)
+         enddo
+
+         do ij=iip1+iip1,ip1jm,iip1
+            qd(ij-iim,l)=qd(ij,l)
+         enddo
+         do ij=iip2,ip1jm-1
+            if (extremum(ij).and..not.extremum(ij+1))
+     s         qg(ij+1,l)=q(ij,l)
+         enddo
+
+         do ij=iip1+iip1,ip1jm,iip1
+            qg(ij,l)=qg(ij-iim,l)
+         enddo
+8888     continue
+      enddo
+      endif
+      RETURN
+      END
+      SUBROUTINE advnqy(q,qs,qn)
+c
+c     Auteurs:   Calcul des valeurs de q aux point v.
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      real q(ip1jmp1,llm),qs(ip1jmp1,llm),qn(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      real dyqv(ip1jm),zqv(ip1jm,llm)
+      real zqmax(ip1jm),zqmin(ip1jm)
+      logical extremum(ip1jmp1)
+
+      integer mode
+      save mode
+      data mode/1/
+
+      if (mode.eq.0) then
+         do l=1,llm
+            do ij=1,ip1jmp1
+               qn(ij,l)=q(ij,l)
+               qs(ij,l)=q(ij,l)
+            enddo
+         enddo
+      else
+
+c   calcul des pentes en u:
+c   -----------------------
+      do l = 1, llm
+         do ij=1,ip1jm
+            dyqv(ij)=q(ij,l)-q(ij+iip1,l)
+         enddo
+
+         do ij=iip2,ip1jm-iip1
+            zqv(ij,l)=0.5*(q(ij+iip1,l)+q(ij,l))
+            zqv(ij,l)=zqv(ij,l)+(dyqv(ij+iip1)-dyqv(ij-iip1))/12.
+         enddo
+
+         do ij=iip2,ip1jm
+            extremum(ij)=dyqv(ij)*dyqv(ij-iip1).le.0.
+         enddo
+
+c Pas de pentes aux poles
+         do ij=1,iip1
+            zqv(ij,l)=q(ij,l)
+            zqv(ip1jm-iip1+ij,l)=q(ip1jm+ij,l)
+            extremum(ij)=.true.
+            extremum(ip1jmp1-iip1+ij)=.true.
+         enddo
+
+c   calcul des valeurs max et min acceptees aux interfaces
+         do ij=1,ip1jm
+            zqmax(ij)=max(q(ij+iip1,l),q(ij,l))
+            zqmin(ij)=min(q(ij+iip1,l),q(ij,l))
+         enddo
+
+         do ij=1,ip1jm
+            zqv(ij,l)=min(max(zqmin(ij),zqv(ij,l)),zqmax(ij))
+         enddo
+
+         do ij=iip2,ip1jm
+            if(extremum(ij)) then
+               qs(ij,l)=q(ij,l)
+               qn(ij,l)=q(ij,l)
+c              if (.not.extremum(ij-iip1)) qs(ij-iip1,l)=q(ij,l)
+c              if (.not.extremum(ij+iip1)) qn(ij+iip1,l)=q(ij,l)
+            else
+               qs(ij,l)=zqv(ij,l)
+               qn(ij,l)=zqv(ij-iip1,l)
+            endif
+         enddo
+
+         do ij=1,iip1
+            qs(ij,l)=q(ij,l)
+            qn(ij,l)=q(ij,l)
+            qs(ip1jm+ij,l)=q(ip1jm+ij,l)
+            qn(ip1jm+ij,l)=q(ip1jm+ij,l)
+         enddo
+
+      enddo
+      endif
+      RETURN
+      END
+
+      SUBROUTINE advnqz(q,qh,qb)
+c
+c     Auteurs:   Calcul des valeurs de q aux point v.
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      real q(ip1jmp1,llm),qh(ip1jmp1,llm),qb(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      real dzqw(ip1jmp1,llm+1),zqw(ip1jmp1,llm+1)
+      real zqmax(ip1jmp1,llm),zqmin(ip1jmp1,llm)
+      logical extremum(ip1jmp1,llm)
+
+      integer mode
+      save mode
+
+      data mode/1/
+
+c   calcul des pentes en u:
+c   -----------------------
+
+      if (mode.eq.0) then
+         do l=1,llm
+            do ij=1,ip1jmp1
+               qb(ij,l)=q(ij,l)
+               qh(ij,l)=q(ij,l)
+            enddo
+         enddo
+      else
+      do l = 2, llm
+         do ij=1,ip1jmp1
+            dzqw(ij,l)=q(ij,l-1)-q(ij,l)
+            zqw(ij,l)=0.5*(q(ij,l-1)+q(ij,l))
+         enddo
+      enddo
+      do ij=1,ip1jmp1
+         dzqw(ij,1)=0.
+         dzqw(ij,llm+1)=0.
+      enddo
+      do l=2,llm
+         do ij=1,ip1jmp1
+            zqw(ij,l)=zqw(ij,l)+(dzqw(ij,l+1)-dzqw(ij,l-1))/12.
+         enddo
+      enddo
+      do l=2,llm-1
+         do ij=1,ip1jmp1
+            extremum(ij,l)=dzqw(ij,l)*dzqw(ij,l+1).le.0.
+         enddo
+      enddo
+
+c Pas de pentes en bas et en haut
+         do ij=1,ip1jmp1
+            zqw(ij,2)=q(ij,1)
+            zqw(ij,llm)=q(ij,llm)
+            extremum(ij,1)=.true.
+            extremum(ij,llm)=.true.
+         enddo
+
+c   calcul des valeurs max et min acceptees aux interfaces
+      do l=2,llm
+         do ij=1,ip1jmp1
+            zqmax(ij,l)=max(q(ij,l-1),q(ij,l))
+            zqmin(ij,l)=min(q(ij,l-1),q(ij,l))
+         enddo
+      enddo
+
+      do l=2,llm
+         do ij=1,ip1jmp1
+            zqw(ij,l)=min(max(zqmin(ij,l),zqw(ij,l)),zqmax(ij,l))
+         enddo
+      enddo
+
+      do l=2,llm-1
+         do ij=1,ip1jmp1
+            if(extremum(ij,l)) then
+               qh(ij,l)=q(ij,l)
+               qb(ij,l)=q(ij,l)
+            else
+               qh(ij,l)=zqw(ij,l+1)
+               qb(ij,l)=zqw(ij,l)
+            endif
+         enddo
+      enddo
+c     do l=2,llm-1
+c        do ij=1,ip1jmp1
+c           if(extremum(ij,l)) then
+c              if (.not.extremum(ij,l-1)) qh(ij,l-1)=q(ij,l)
+c              if (.not.extremum(ij,l+1)) qb(ij,l+1)=q(ij,l)
+c           endif
+c        enddo
+c     enddo
+
+      do ij=1,ip1jmp1
+         qb(ij,1)=q(ij,1)
+         qh(ij,1)=q(ij,1)
+         qb(ij,llm)=q(ij,llm)
+         qh(ij,llm)=q(ij,llm)
+      enddo
+
+      endif
+
+      RETURN
+      END
+
+      SUBROUTINE advnx(q,qg,qd,masse,u_m,mode)
+c
+c     Auteur : F. Hourdin
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      integer mode
+      real masse(ip1jmp1,llm)
+      real u_m( ip1jmp1,llm )
+      real q(ip1jmp1,llm),qd(ip1jmp1,llm),qg(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,j,ij,l,indu(ip1jmp1),niju,iju,ijq
+      integer n0,nl(llm)
+c
+      real new_m,zu_m,zdq,zz
+      real zsigg(ip1jmp1,llm),zsigd(ip1jmp1,llm),zsig
+      real u_mq(ip1jmp1,llm)
+
+      real zm,zq,zsigm,zsigp,zqm,zqp,zu
+
+      logical ladvplus(ip1jmp1,llm)
+
+      real prec
+      save prec
+
+#ifdef CRAY
+      data prec/1.e-24/
+#else
+      data prec/1.e-15/
+#endif
+
+      do l=1,llm
+            do ij=iip2,ip1jm
+               zdq=qd(ij,l)-qg(ij,l)
+c              if((qd(ij,l)-q(ij,l))*(q(ij,l)-qg(ij,l)).lt.0.) then
+c                 print*,'probleme au point ij=',ij,'  l=',l
+c                 print*,qd(ij,l),q(ij,l),qg(ij,l)
+c                 qd(ij,l)=q(ij,l)
+c                 qg(ij,l)=q(ij,l)
+c              endif
+               if(abs(zdq).gt.prec) then
+                  zsigd(ij,l)=(q(ij,l)-qg(ij,l))/zdq
+                  zsigg(ij,l)=1.-zsigd(ij,l)
+c                 if(.not.(zsigd(ij,l).ge.0..and.zsigd(ij,l).le.1. .and.
+c    s               zsigg(ij,l).ge.0..or.zsigg(ij,l).le.1.) ) then
+c                    print*,'probleme au point ij=',ij,'  l=',l
+c                    print*,'sigg=',zsigg(ij,l),'  sigd=',zsigd(ij,l)
+c                    print*,'q d,c,g ',qd(ij,l),q(ij,l),qg(ij,l),zdq
+c                    stop
+c                 endif
+               else
+                  zsigd(ij,l)=0.5
+                  zsigg(ij,l)=0.5
+                  qd(ij,l)=q(ij,l)
+                  qg(ij,l)=q(ij,l)
+               endif
+            enddo
+       enddo
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+       do l=1,llm
+       do ij=iip2,ip1jm-1
+          if (u_m(ij,l).ge.0.) then
+             zsigp=zsigd(ij,l)
+             zsigm=zsigg(ij,l)
+             zqp=qd(ij,l)
+             zqm=qg(ij,l)
+             zm=masse(ij,l)
+             zq=q(ij,l)
+          else
+             zsigm=zsigd(ij+1,l)
+             zsigp=zsigg(ij+1,l)
+             zqm=qd(ij+1,l)
+             zqp=qg(ij+1,l)
+             zm=masse(ij+1,l)
+             zq=q(ij+1,l)
+          endif
+          zu=abs(u_m(ij,l))
+          ladvplus(ij,l)=zu.gt.zm
+          zsig=zu/zm
+          if(zsig.eq.0.) zsigp=0.1
+          if (mode.eq.1) then
+             if (zsig.le.zsigp) then
+                 u_mq(ij,l)=u_m(ij,l)*zqp
+             else if (mode.eq.1) then
+                 u_mq(ij,l)=
+     s           sign(zm,u_m(ij,l))*(zsigp*zqp+(zsig-zsigp)*zqm)
+             endif 
+          else
+             if (zsig.le.zsigp) then
+                 u_mq(ij,l)=u_m(ij,l)*(zqp-0.5*zsig/zsigp*(zqp-zq))
+             else
+                zz=0.5*(zsig-zsigp)/zsigm
+                u_mq(ij,l)=sign(zm,u_m(ij,l))*( 0.5*(zq+zqp)*zsigp
+     s          +(zsig-zsigp)*(zq+zz*(zqm-zq)) )
+             endif
+          endif
+c         if(zsig.lt.0.) then
+c            print*,'au point ij=',ij,'  l=',l,'  sig=',zsig
+c            stop
+c         endif
+      enddo
+      enddo
+
+      do l=1,llm
+       do ij=iip1+iip1,ip1jm,iip1
+          u_mq(ij,l)=u_mq(ij-iim,l)
+          ladvplus(ij,l)=ladvplus(ij-iim,l)
+       enddo
+      enddo
+
+c=================================================================
+C   SCHEMA SEMI-LAGRAGIEN EN X DANS LES REGIONS POLAIRES
+c=================================================================
+c   tris des regions a traiter
+      n0=0
+      do l=1,llm
+         nl(l)=0
+         do ij=iip2,ip1jm
+            if(ladvplus(ij,l)) then
+               nl(l)=nl(l)+1
+               u_mq(ij,l)=0.
+            endif
+         enddo
+         n0=n0+nl(l)
+      enddo
+
+      if(n0.gt.1) then
+      IF (prt_level > 9) WRITE(lunout,*)
+     & 'Nombre de points pour lesquels on advect plus que le'
+     &       ,'contenu de la maille : ',n0
+
+         do l=1,llm
+            if(nl(l).gt.0) then
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               do ij=iip2,ip1jm
+                  if(ladvplus(ij,l).and.mod(ij,iip1).ne.0) then
+                     iju=iju+1
+                     indu(iju)=ij
+                  endif
+               enddo
+               niju=iju
+c              print*,'niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               do iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  if(zu_m.gt.0.) then
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l))
+                        u_mq(ij,l)=u_mq(ij,l)+q(ijq,l)*masse(ijq,l)
+                        zu_m=zu_m-masse(ijq,l)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     enddo
+c   MODIFS SPECIFIQUES DU SCHEMA
+c   ajout de la maille non completement advectee
+             zsig=zu_m/masse(ijq,l)
+             if(zsig.le.zsigd(ijq,l)) then
+                u_mq(ij,l)=u_mq(ij,l)+zu_m*(qd(ijq,l)
+     s          -0.5*zsig/zsigd(ijq,l)*(qd(ijq,l)-q(ijq,l)))
+             else
+c               u_mq(ij,l)=u_mq(ij,l)+zu_m*q(ijq,l)
+c         goto 8888
+                zz=0.5*(zsig-zsigd(ijq,l))/zsigg(ijq,l)
+                if(.not.(zz.gt.0..and.zz.le.0.5)) then
+                     WRITE(lunout,*)'probleme2 au point ij=',ij,
+     s               '  l=',l
+                     WRITE(lunout,*)'zz=',zz
+                     stop
+                endif
+                u_mq(ij,l)=u_mq(ij,l)+masse(ijq,l)*(
+     s          0.5*(q(ijq,l)+qd(ijq,l))*zsigd(ijq,l)
+     s        +(zsig-zsigd(ijq,l))*(q(ijq,l)+zz*(qg(ijq,l)-q(ijq,l))) )
+             endif
+                  else
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l)*masse(ijq,l)
+                        zu_m=zu_m+masse(ijq,l)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     enddo
+c   ajout de la maille non completement advectee
+c 2eme MODIF SPECIFIQUE
+             zsig=-zu_m/masse(ij+1,l)
+             if(zsig.le.zsigg(ijq,l)) then
+                u_mq(ij,l)=u_mq(ij,l)+zu_m*(qg(ijq,l)
+     s          -0.5*zsig/zsigg(ijq,l)*(qg(ijq,l)-q(ijq,l)))
+             else
+c               u_mq(ij,l)=u_mq(ij,l)+zu_m*q(ijq,l)
+c           goto 9999
+                zz=0.5*(zsig-zsigg(ijq,l))/zsigd(ijq,l)
+                if(.not.(zz.gt.0..and.zz.le.0.5)) then
+                     WRITE(lunout,*)'probleme22 au point ij=',ij
+     s               ,'  l=',l
+                     WRITE(lunout,*)'zz=',zz
+                     stop
+                endif
+                u_mq(ij,l)=u_mq(ij,l)-masse(ijq,l)*(
+     s          0.5*(q(ijq,l)+qg(ijq,l))*zsigg(ijq,l)
+     s          +(zsig-zsigg(ijq,l))*
+     s           (q(ijq,l)+zz*(qd(ijq,l)-q(ijq,l))) )
+             endif
+c   fin de la modif
+                  endif
+               enddo
+            endif
+         enddo
+      endif  ! n0.gt.0 
+
+c   bouclage en latitude
+      do l=1,llm
+        do ij=iip1+iip1,ip1jm,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        enddo
+      enddo
+
+c=================================================================
+c   CALCUL DE LA CONVERGENCE DES FLUX
+c=================================================================
+
+      do l=1,llm
+         do ij=iip2+1,ip1jm
+            new_m=masse(ij,l)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+
+     &      u_mq(ij-1,l)-u_mq(ij,l))
+     &      /new_m
+            masse(ij,l)=new_m
+         enddo
+c   Modif Fred 22 03 96 correction d'un bug (les scopy ci-dessous)
+         do ij=iip1+iip1,ip1jm,iip1
+            q(ij-iim,l)=q(ij,l)
+            masse(ij-iim,l)=masse(ij,l)
+         enddo
+      enddo
+
+      RETURN
+      END
+      SUBROUTINE advny(q,qs,qn,masse,v_m)
+c
+c     Auteur : F. Hourdin
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      real masse(ip1jmp1,llm)
+      real v_m( ip1jm,llm )
+      real q(ip1jmp1,llm),qn(ip1jmp1,llm),qs(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      real new_m,zdq,zz
+      real zsigs(ip1jmp1),zsign(ip1jmp1),zsig
+      real v_mq(ip1jm,llm)
+      real convpn,convps,convmpn,convmps,massen,masses
+      real zm,zq,zsigm,zsigp,zqm,zqp
+      real ssum
+      real prec
+      save prec
+
+#ifdef CRAY
+      data prec/1.e-24/
+#else
+      data prec/1.e-15/
+#endif
+      do l=1,llm
+            do ij=1,ip1jmp1
+               zdq=qn(ij,l)-qs(ij,l)
+c              if((qn(ij,l)-q(ij,l))*(q(ij,l)-qs(ij,l)).lt.0.) then
+c                 print*,'probleme au point ij=',ij,'  l=',l,'  advnqx'
+c                 print*,qn(ij,l),q(ij,l),qs(ij,l)
+c                 qn(ij,l)=q(ij,l)
+c                 qs(ij,l)=q(ij,l)
+c              endif
+               if(abs(zdq).gt.prec) then
+                  zsign(ij)=(q(ij,l)-qs(ij,l))/zdq
+                  zsigs(ij)=1.-zsign(ij)
+c                 if(.not.(zsign(ij).ge.0..and.zsign(ij).le.1. .and.
+c    s               zsigs(ij).ge.0..or.zsigs(ij).le.1.) ) then
+c                    print*,'probleme au point ij=',ij,'  l=',l
+c                    print*,'sigs=',zsigs(ij),'  sign=',zsign(ij)
+c                    stop
+c                 endif
+               else
+                  zsign(ij)=0.5
+                  zsigs(ij)=0.5
+               endif
+            enddo
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+       do ij=1,ip1jm
+          if (v_m(ij,l).ge.0.) then
+             zsigp=zsign(ij+iip1)
+             zsigm=zsigs(ij+iip1)
+             zqp=qn(ij+iip1,l)
+             zqm=qs(ij+iip1,l)
+             zm=masse(ij+iip1,l)
+             zq=q(ij+iip1,l)
+          else
+             zsigm=zsign(ij)
+             zsigp=zsigs(ij)
+             zqm=qn(ij,l)
+             zqp=qs(ij,l)
+             zm=masse(ij,l)
+             zq=q(ij,l)
+          endif
+          zsig=abs(v_m(ij,l))/zm
+          if(zsig.eq.0.) zsigp=0.1
+          if (zsig.le.zsigp) then
+              v_mq(ij,l)=v_m(ij,l)*(zqp-0.5*zsig/zsigp*(zqp-zq))
+          else
+              zz=0.5*(zsig-zsigp)/zsigm
+              v_mq(ij,l)=sign(zm,v_m(ij,l))*( 0.5*(zq+zqp)*zsigp 
+     s        +(zsig-zsigp)*(zq+zz*(zqm-zq)) )
+          endif
+       enddo
+      enddo
+
+      do l=1,llm
+         do ij=iip2,ip1jm
+            new_m=masse(ij,l)
+     &      +v_m(ij,l)-v_m(ij-iip1,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+v_mq(ij,l)-v_mq(ij-iip1,l))
+     &         /new_m
+            masse(ij,l)=new_m
+         enddo
+c.-. ancienne version
+         convpn=SSUM(iim,v_mq(1,l),1)
+         convmpn=ssum(iim,v_m(1,l),1)
+         massen=ssum(iim,masse(1,l),1)
+         new_m=massen+convmpn
+         q(1,l)=(q(1,l)*massen+convpn)/new_m
+         do ij = 1,iip1
+            q(ij,l)=q(1,l)
+            masse(ij,l)=new_m*aire(ij)/apoln
+         enddo
+
+         convps=-SSUM(iim,v_mq(ip1jm-iim,l),1)
+         convmps=-ssum(iim,v_m(ip1jm-iim,l),1)
+         masses=ssum(iim,masse(ip1jm+1,l),1)
+         new_m=masses+convmps
+         q(ip1jm+1,l)=(q(ip1jm+1,l)*masses+convps)/new_m
+         do ij = ip1jm+1,ip1jmp1
+            q(ij,l)=q(ip1jm+1,l)
+            masse(ij,l)=new_m*aire(ij)/apols
+         enddo
+      enddo
+
+      RETURN
+      END
+      SUBROUTINE advnz(q,qh,qb,masse,w_m)
+c
+c     Auteurs:   F.Hourdin
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c     b designe le bas et h le haut
+c     il y a une correspondance entre le b en z et le d en x
+c    ********************************************************************
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "iniprint.h"
+c
+c
+c   Arguments:
+c   ----------
+      real masse(ip1jmp1,llm)
+      real w_m( ip1jmp1,llm+1)
+      real q(ip1jmp1,llm),qb(ip1jmp1,llm),qh(ip1jmp1,llm)
+
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      real new_m,zdq,zz
+      real zsigh(ip1jmp1,llm),zsigb(ip1jmp1,llm),zsig
+      real w_mq(ip1jmp1,llm+1)
+      real zm,zq,zsigm,zsigp,zqm,zqp
+      real prec
+      save prec
+
+#ifdef CRAY
+      data prec/1.e-24/
+#else
+      data prec/1.e-13/
+#endif
+
+      do l=1,llm
+            do ij=1,ip1jmp1
+               zdq=qb(ij,l)-qh(ij,l)
+c              if((qh(ij,l)-q(ij,l))*(q(ij,l)-qb(ij,l)).lt.0.) then
+c                 print*,'probleme au point ij=',ij,'  l=',l
+c                 print*,qh(ij,l),q(ij,l),qb(ij,l)
+c                 qh(ij,l)=q(ij,l)
+c                 qb(ij,l)=q(ij,l)
+c              endif
+
+               if(abs(zdq).gt.prec) then
+                  zsigb(ij,l)=(q(ij,l)-qh(ij,l))/zdq
+                  zsigh(ij,l)=1.-zsigb(ij,l)
+                  zsigb(ij,l)=min(max(zsigb(ij,l),0.),1.)
+               else
+                  zsigb(ij,l)=0.5
+                  zsigh(ij,l)=0.5
+               endif
+            enddo
+       enddo
+
+c      print*,'ok1'
+c   calcul de la pente maximum dans la maille en valeur absolue
+       do l=2,llm
+       do ij=1,ip1jmp1
+          if (w_m(ij,l).ge.0.) then
+             zsigp=zsigb(ij,l)
+             zsigm=zsigh(ij,l)
+             zqp=qb(ij,l)
+             zqm=qh(ij,l)
+             zm=masse(ij,l)
+             zq=q(ij,l)
+          else
+             zsigm=zsigb(ij,l-1)
+             zsigp=zsigh(ij,l-1)
+             zqm=qb(ij,l-1)
+             zqp=qh(ij,l-1)
+             zm=masse(ij,l-1)
+             zq=q(ij,l-1)
+          endif
+          zsig=abs(w_m(ij,l))/zm
+          if(zsig.eq.0.) zsigp=0.1
+          if (zsig.le.zsigp) then
+              w_mq(ij,l)=w_m(ij,l)*(zqp-0.5*zsig/zsigp*(zqp-zq))
+          else
+              zz=0.5*(zsig-zsigp)/zsigm
+              w_mq(ij,l)=sign(zm,w_m(ij,l))*( 0.5*(zq+zqp)*zsigp
+     s        +(zsig-zsigp)*(zq+zz*(zqm-zq)) )
+          endif
+      enddo
+      enddo
+
+       do ij=1,ip1jmp1
+          w_mq(ij,llm+1)=0.
+          w_mq(ij,1)=0.
+       enddo
+
+      do l=1,llm
+         do ij=1,ip1jmp1
+            new_m=masse(ij,l)+w_m(ij,l+1)-w_m(ij,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+w_mq(ij,l+1)-w_mq(ij,l))
+     &         /new_m
+            masse(ij,l)=new_m
+         enddo
+      enddo
+c     print*,'ok3'
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advx.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advx.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advx.F	(revision 3330)
@@ -0,0 +1,497 @@
+!
+! $Header$
+!
+      SUBROUTINE  advx(limit,dtx,pbaru,sm,s0,
+     $     sx,sy,sz,lati,latf)
+      IMPLICIT NONE
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                C
+C  first-order moments (FOM) advection of tracer in X direction  C
+C                                                                C
+C  Source : Pascal Simon (Meteo,CNRM)                            C
+C  Adaptation : A.Armengaud (LGGE) juin 94                       C
+C                                                                C
+C  limit,dtx,pbaru,pbarv,sm,s0,sx,sy,sz                       C
+C  sont des arguments d'entree pour le s-pg...                   C
+C                                                                C
+C  sm,s0,sx,sy,sz                                                C
+C  sont les arguments de sortie pour le s-pg                     C
+C                                                                C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+C  parametres principaux du modele
+C
+      include "dimensions.h"
+      include "paramet.h"
+
+C  Arguments :
+C  -----------
+C  dtx : frequence fictive d'appel du transport 
+C  pbaru, pbarv : flux de masse en x et y en Pa.m2.s-1
+
+       INTEGER ntra
+       PARAMETER (ntra = 1)
+
+C ATTENTION partout ou on trouve ntra, insertion de boucle
+C           possible dans l'avenir.
+
+      REAL dtx
+      REAL pbaru ( iip1,jjp1,llm )
+
+C  moments: SM  total mass in each grid box
+C           S0  mass of tracer in each grid box
+C           Si  1rst order moment in i direction
+C
+      REAL SM(iip1,jjp1,llm),S0(iip1,jjp1,llm,ntra)
+      REAL sx(iip1,jjp1,llm,ntra)
+     $    ,sy(iip1,jjp1,llm,ntra)
+      REAL sz(iip1,jjp1,llm,ntra)
+
+C  Local :
+C  ------- 
+
+C  mass fluxes across the boundaries (UGRI,VGRI,WGRI)
+C  mass fluxes in kg
+C  declaration :
+
+      REAL UGRI(iip1,jjp1,llm)
+
+C  Rem : VGRI et WGRI ne sont pas utilises dans 
+C  cette subroutine ( advection en x uniquement )
+C
+C  Ti are the moments for the current latitude and level
+C
+      REAL TM(iim)
+      REAL T0(iim,ntra),TX(iim,ntra)
+      REAL TY(iim,ntra),TZ(iim,ntra)
+      REAL TEMPTM                ! just a temporary variable
+C
+C  the moments F are similarly defined and used as temporary
+C  storage for portions of the grid boxes in transit
+C
+      REAL FM(iim)
+      REAL F0(iim,ntra),FX(iim,ntra)
+      REAL FY(iim,ntra),FZ(iim,ntra)
+C
+C  work arrays
+C
+      REAL ALF(iim),ALF1(iim),ALFQ(iim),ALF1Q(iim)
+C
+      REAL SMNEW(iim),UEXT(iim)
+C
+      REAL sqi,sqf
+
+      LOGICAL LIMIT
+      INTEGER NUM(jjp1),LONK,NUMK
+      INTEGER lon,lati,latf,niv
+      INTEGER i,i2,i3,j,jv,l,k,itrac 
+
+      lon = iim 
+      niv = llm 
+
+C *** Test de passage d'arguments ******
+
+
+C  -------------------------------------
+      DO 300 j = 1,jjp1 
+         NUM(j) = 1
+  300 CONTINUE
+      sqi = 0.
+      sqf = 0.
+
+      DO l = 1,llm
+         DO j = 1,jjp1
+            DO i = 1,iim
+cIM 240305            sqi = sqi + S0(i,j,l,9)
+               sqi = sqi + S0(i,j,l,ntra)
+            ENDDO
+         ENDDO
+      ENDDO
+      PRINT*,'-------- DIAG DANS ADVX - ENTREE ---------'
+      PRINT*,'sqi=',sqi
+
+
+C  Interface : adaptation nouveau modele
+C  -------------------------------------
+C
+C  ---------------------------------------------------------
+C  Conversion des flux de masses en kg/s
+C  pbaru est en N/s d'ou :
+C  ugri est en kg/s
+
+      DO 500 l = 1,llm
+         DO 500 j = 1,jjm+1
+            DO 500 i = 1,iip1  
+C            ugri (i,j,llm+1-l) = pbaru (i,j,l) * ( dsig(l) / g )
+             ugri (i,j,llm+1-l) = pbaru (i,j,l)
+  500 CONTINUE
+
+
+C  ---------------------------------------------------------
+C  ---------------------------------------------------------
+C  ---------------------------------------------------------
+  
+C  start here          
+C
+C  boucle principale sur les niveaux et les latitudes
+C
+      DO 1 L=1,NIV
+      DO 1 K=lati,latf
+C
+C  initialisation
+C
+C  program assumes periodic boundaries in X
+C
+      DO 10 I=2,LON
+         SMNEW(I)=SM(I,K,L)+(UGRI(I-1,K,L)-UGRI(I,K,L))*DTX
+ 10   CONTINUE
+      SMNEW(1)=SM(1,K,L)+(UGRI(LON,K,L)-UGRI(1,K,L))*DTX
+C
+C  modifications for extended polar zones
+C
+      NUMK=NUM(K)
+      LONK=LON/NUMK
+C
+      IF(NUMK.GT.1) THEN
+C
+      DO 111 I=1,LON
+         TM(I)=0.
+ 111  CONTINUE
+      DO 112 JV=1,NTRA
+      DO 1120 I=1,LON
+         T0(I,JV)=0.
+         TX(I,JV)=0.
+         TY(I,JV)=0.
+         TZ(I,JV)=0.
+ 1120 CONTINUE
+ 112  CONTINUE
+C
+      DO 11 I2=1,NUMK
+C
+         DO 113 I=1,LONK
+            I3=(I-1)*NUMK+I2
+            TM(I)=TM(I)+SM(I3,K,L)
+            ALF(I)=SM(I3,K,L)/TM(I)
+            ALF1(I)=1.-ALF(I)
+ 113     CONTINUE
+C
+         DO  JV=1,NTRA
+         DO  I=1,LONK
+            I3=(I-1)*NUMK+I2
+            TEMPTM=-ALF(I)*T0(I,JV)+ALF1(I)
+     $          *S0(I3,K,L,JV)
+            T0(I,JV)=T0(I,JV)+S0(I3,K,L,JV)
+            TX(I,JV)=ALF(I)  *sx(I3,K,L,JV)+
+     $       ALF1(I)*TX(I,JV) +3.*TEMPTM
+            TY(I,JV)=TY(I,JV)+sy(I3,K,L,JV)
+            TZ(I,JV)=TZ(I,JV)+sz(I3,K,L,JV)
+         ENDDO 
+         ENDDO
+C
+ 11   CONTINUE
+C
+      ELSE
+C
+      DO 115 I=1,LON
+         TM(I)=SM(I,K,L)
+ 115  CONTINUE
+      DO 116 JV=1,NTRA
+      DO 1160 I=1,LON
+         T0(I,JV)=S0(I,K,L,JV)
+         TX(I,JV)=sx(I,K,L,JV)
+         TY(I,JV)=sy(I,K,L,JV)
+         TZ(I,JV)=sz(I,K,L,JV)
+ 1160 CONTINUE
+ 116  CONTINUE
+C
+      ENDIF
+C
+      DO 117 I=1,LONK
+         UEXT(I)=UGRI(I*NUMK,K,L)
+ 117  CONTINUE
+C
+C  place limits on appropriate moments before transport
+C      (if flux-limiting is to be applied)
+C
+      IF(.NOT.LIMIT) GO TO 13
+C
+      DO 12 JV=1,NTRA
+      DO 120 I=1,LONK
+        TX(I,JV)=SIGN(AMIN1(AMAX1(T0(I,JV),0.),ABS(TX(I,JV))),TX(I,JV))
+ 120  CONTINUE
+ 12   CONTINUE
+C
+ 13   CONTINUE
+C
+C  calculate flux and moments between adjacent boxes
+C  1- create temporary moments/masses for partial boxes in transit
+C  2- reajusts moments remaining in the box
+C
+C  flux from IP to I if U(I).lt.0
+C
+      DO 140 I=1,LONK-1
+         IF(UEXT(I).LT.0.) THEN
+           FM(I)=-UEXT(I)*DTX
+           ALF(I)=FM(I)/TM(I+1)
+           TM(I+1)=TM(I+1)-FM(I)
+         ENDIF
+ 140  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).LT.0.) THEN
+        FM(I)=-UEXT(I)*DTX
+        ALF(I)=FM(I)/TM(1)
+        TM(1)=TM(1)-FM(I)
+      ENDIF
+C
+C  flux from I to IP if U(I).gt.0
+C
+      DO 141 I=1,LONK
+         IF(UEXT(I).GE.0.) THEN
+           FM(I)=UEXT(I)*DTX
+           ALF(I)=FM(I)/TM(I)
+           TM(I)=TM(I)-FM(I)
+         ENDIF
+ 141  CONTINUE
+C
+      DO 142 I=1,LONK
+         ALFQ(I)=ALF(I)*ALF(I)
+         ALF1(I)=1.-ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+ 142  CONTINUE
+C
+      DO 150 JV=1,NTRA
+      DO 1500 I=1,LONK-1
+C
+         IF(UEXT(I).LT.0.) THEN
+C
+           F0(I,JV)=ALF (I)* ( T0(I+1,JV)-ALF1(I)*TX(I+1,JV) )
+           FX(I,JV)=ALFQ(I)*TX(I+1,JV)
+           FY(I,JV)=ALF (I)*TY(I+1,JV)
+           FZ(I,JV)=ALF (I)*TZ(I+1,JV)
+C
+           T0(I+1,JV)=T0(I+1,JV)-F0(I,JV)
+           TX(I+1,JV)=ALF1Q(I)*TX(I+1,JV)
+           TY(I+1,JV)=TY(I+1,JV)-FY(I,JV)
+           TZ(I+1,JV)=TZ(I+1,JV)-FZ(I,JV)
+C
+         ENDIF
+C
+ 1500 CONTINUE
+ 150  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).LT.0.) THEN
+C
+        DO 151 JV=1,NTRA
+C
+           F0 (I,JV)=ALF (I)* ( T0(1,JV)-ALF1(I)*TX(1,JV) )
+           FX (I,JV)=ALFQ(I)*TX(1,JV)
+           FY (I,JV)=ALF (I)*TY(1,JV)
+           FZ (I,JV)=ALF (I)*TZ(1,JV)
+C
+           T0(1,JV)=T0(1,JV)-F0(I,JV)
+           TX(1,JV)=ALF1Q(I)*TX(1,JV)
+           TY(1,JV)=TY(1,JV)-FY(I,JV)
+           TZ(1,JV)=TZ(1,JV)-FZ(I,JV)
+C
+ 151    CONTINUE
+C
+      ENDIF
+C
+      DO 152 JV=1,NTRA
+      DO 1520 I=1,LONK
+C
+         IF(UEXT(I).GE.0.) THEN
+C
+           F0(I,JV)=ALF (I)* ( T0(I,JV)+ALF1(I)*TX(I,JV) )
+           FX(I,JV)=ALFQ(I)*TX(I,JV)
+           FY(I,JV)=ALF (I)*TY(I,JV)
+           FZ(I,JV)=ALF (I)*TZ(I,JV)
+C
+           T0(I,JV)=T0(I,JV)-F0(I,JV)
+           TX(I,JV)=ALF1Q(I)*TX(I,JV)
+           TY(I,JV)=TY(I,JV)-FY(I,JV)
+           TZ(I,JV)=TZ(I,JV)-FZ(I,JV)
+C
+         ENDIF
+C
+ 1520 CONTINUE
+ 152  CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 160 I=1,LONK
+         IF(UEXT(I).LT.0.) THEN
+           TM(I)=TM(I)+FM(I)
+           ALF(I)=FM(I)/TM(I)
+         ENDIF
+ 160  CONTINUE
+C
+      DO 161 I=1,LONK-1
+         IF(UEXT(I).GE.0.) THEN
+           TM(I+1)=TM(I+1)+FM(I)
+           ALF(I)=FM(I)/TM(I+1)
+         ENDIF
+ 161  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).GE.0.) THEN
+        TM(1)=TM(1)+FM(I)
+        ALF(I)=FM(I)/TM(1)
+      ENDIF
+C
+      DO 162 I=1,LONK
+         ALF1(I)=1.-ALF(I)
+ 162  CONTINUE
+C
+      DO 170 JV=1,NTRA
+      DO 1700 I=1,LONK
+C
+         IF(UEXT(I).LT.0.) THEN
+C
+           TEMPTM=-ALF(I)*T0(I,JV)+ALF1(I)*F0(I,JV)
+           T0(I,JV)=T0(I,JV)+F0(I,JV)
+           TX(I,JV)=ALF(I)*FX(I,JV)+ALF1(I)*TX(I,JV)+3.*TEMPTM
+           TY(I,JV)=TY(I,JV)+FY(I,JV)
+           TZ(I,JV)=TZ(I,JV)+FZ(I,JV)
+C
+         ENDIF
+C
+ 1700 CONTINUE
+ 170  CONTINUE
+C
+      DO 171 JV=1,NTRA
+      DO 1710 I=1,LONK-1
+C
+         IF(UEXT(I).GE.0.) THEN
+C
+           TEMPTM=ALF(I)*T0(I+1,JV)-ALF1(I)*F0(I,JV)
+           T0(I+1,JV)=T0(I+1,JV)+F0(I,JV)
+           TX(I+1,JV)=ALF(I)*FX(I,JV)+ALF1(I)*TX(I+1,JV)+3.*TEMPTM
+           TY(I+1,JV)=TY(I+1,JV)+FY(I,JV)
+           TZ(I+1,JV)=TZ(I+1,JV)+FZ(I,JV)
+C
+         ENDIF
+C
+ 1710 CONTINUE
+ 171  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).GE.0.) THEN
+        DO 172 JV=1,NTRA
+           TEMPTM=ALF(I)*T0(1,JV)-ALF1(I)*F0(I,JV)
+           T0(1,JV)=T0(1,JV)+F0(I,JV)
+           TX(1,JV)=ALF(I)*FX(I,JV)+ALF1(I)*TX(1,JV)+3.*TEMPTM
+           TY(1,JV)=TY(1,JV)+FY(I,JV)
+           TZ(1,JV)=TZ(1,JV)+FZ(I,JV)
+ 172    CONTINUE
+      ENDIF
+C
+C  retour aux mailles d'origine (passage des Tij aux Sij)
+C
+      IF(NUMK.GT.1) THEN
+C
+      DO 180 I2=1,NUMK
+C
+         DO 180 I=1,LONK
+C
+            I3=I2+(I-1)*NUMK
+            SM(I3,K,L)=SMNEW(I3)
+            ALF(I)=SMNEW(I3)/TM(I)
+            TM(I)=TM(I)-SMNEW(I3)
+C
+            ALFQ(I)=ALF(I)*ALF(I)
+            ALF1(I)=1.-ALF(I)
+            ALF1Q(I)=ALF1(I)*ALF1(I)
+C
+ 180     CONTINUE
+C
+         DO  JV=1,NTRA
+         DO  I=1,LONK
+C
+            I3=I2+(I-1)*NUMK
+            S0(I3,K,L,JV)=ALF (I)
+     $       * (T0(I,JV)-ALF1(I)*TX(I,JV))
+            sx(I3,K,L,JV)=ALFQ(I)*TX(I,JV)
+            sy(I3,K,L,JV)=ALF (I)*TY(I,JV)
+            sz(I3,K,L,JV)=ALF (I)*TZ(I,JV)
+C
+C   reajusts moments remaining in the box
+C
+            T0(I,JV)=T0(I,JV)-S0(I3,K,L,JV)
+            TX(I,JV)=ALF1Q(I)*TX(I,JV)
+            TY(I,JV)=TY(I,JV)-sy(I3,K,L,JV)
+            TZ(I,JV)=TZ(I,JV)-sz(I3,K,L,JV)
+          ENDDO
+          ENDDO
+C
+C
+      ELSE
+C
+      DO 190 I=1,LON
+         SM(I,K,L)=TM(I)
+ 190  CONTINUE
+      DO 191 JV=1,NTRA
+      DO 1910 I=1,LON
+         S0(I,K,L,JV)=T0(I,JV)
+         sx(I,K,L,JV)=TX(I,JV)
+         sy(I,K,L,JV)=TY(I,JV)
+         sz(I,K,L,JV)=TZ(I,JV)
+ 1910 CONTINUE
+ 191  CONTINUE
+C
+      ENDIF
+C
+ 1    CONTINUE
+C
+C ----------- AA Test en fin de ADVX ------ Controle des S*
+c OK
+c      DO 9998 l = 1, llm
+c      DO 9998 j = 1, jjp1
+c      DO 9998 i = 1, iip1
+c         IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN 
+c            PRINT*, '-------------------'
+c            PRINT*, 'En fin de ADVX'
+c            PRINT*,'SM(',i,j,l,')=',SM(i,j,l)
+c            PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)
+c            print*, 'sx(',i,j,l,')=',sx(i,j,l,ntra)
+c            print*, 'sy(',i,j,l,')=',sy(i,j,l,ntra)
+c            print*, 'sz(',i,j,l,')=',sz(i,j,l,ntra)
+c            WRITE (*,*) 'On arrete !! - pbl en fin de ADVX1'
+cc            STOP
+c         ENDIF
+c 9998 CONTINUE
+c
+C ---------- bouclage cyclique 
+      DO itrac=1,ntra
+      DO l = 1,llm
+        DO j = lati,latf
+           SM(iip1,j,l) = SM(1,j,l)
+           S0(iip1,j,l,itrac) = S0(1,j,l,itrac)
+           sx(iip1,j,l,itrac) = sx(1,j,l,itrac)
+           sy(iip1,j,l,itrac) = sy(1,j,l,itrac)
+           sz(iip1,j,l,itrac) = sz(1,j,l,itrac)
+        END DO
+      END DO
+      ENDDO 
+
+c ----------- qqtite totale de traceur dans tte l'atmosphere
+      DO l = 1, llm
+        DO j = 1, jjp1
+          DO i = 1, iim
+cIM 240405          sqf = sqf + S0(i,j,l,9)
+             sqf = sqf + S0(i,j,l,ntra)
+          END DO  
+        END DO
+      END DO
+c
+      PRINT*,'------ DIAG DANS ADVX - SORTIE -----'
+      PRINT*,'sqf=',sqf
+c-------------
+
+      RETURN
+      END
+C_________________________________________________________________
+C_________________________________________________________________
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advxp.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advxp.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advxp.F	(revision 3330)
@@ -0,0 +1,648 @@
+!
+! $Header$
+!
+       SUBROUTINE ADVXP(LIMIT,DTX,PBARU,SM,S0,SSX,SY,SZ
+     .                ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra)
+       IMPLICIT NONE
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                 C
+C  second-order moments (SOM) advection of tracer in X direction  C
+C                                                                 C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+C  parametres principaux du modele
+C
+      include "dimensions.h"
+      include "paramet.h"
+
+       INTEGER ntra
+c      PARAMETER (ntra = 1)
+C
+C  definition de la grille du modele
+C
+      REAL dtx
+      REAL pbaru ( iip1,jjp1,llm )
+C
+C  moments: SM  total mass in each grid box
+C           S0  mass of tracer in each grid box
+C           Si  1rst order moment in i direction
+C           Sij 2nd  order moment in i and j directions
+C
+      REAL SM(iip1,jjp1,llm)
+     +    ,S0(iip1,jjp1,llm,ntra)
+      REAL SSX(iip1,jjp1,llm,ntra)
+     +    ,SY(iip1,jjp1,llm,ntra)
+     +    ,SZ(iip1,jjp1,llm,ntra)
+      REAL SSXX(iip1,jjp1,llm,ntra)
+     +    ,SSXY(iip1,jjp1,llm,ntra)
+     +    ,SSXZ(iip1,jjp1,llm,ntra)
+     +    ,SYY(iip1,jjp1,llm,ntra)
+     +    ,SYZ(iip1,jjp1,llm,ntra)
+     +    ,SZZ(iip1,jjp1,llm,ntra)
+
+C  Local :
+C  -------
+
+C  mass fluxes across the boundaries (UGRI,VGRI,WGRI)
+C  mass fluxes in kg
+C  declaration :
+
+       REAL UGRI(iip1,jjp1,llm)
+
+C  Rem : VGRI et WGRI ne sont pas utilises dans
+C  cette subroutine ( advection en x uniquement )
+C
+C
+C  Tij are the moments for the current latitude and level
+C
+      REAL TM (iim)
+      REAL T0 (iim,NTRA),TX (iim,NTRA)
+      REAL TY (iim,NTRA),TZ (iim,NTRA)
+      REAL TXX(iim,NTRA),TXY(iim,NTRA)
+      REAL TXZ(iim,NTRA),TYY(iim,NTRA)
+      REAL TYZ(iim,NTRA),TZZ(iim,NTRA)
+C
+C  the moments F are similarly defined and used as temporary
+C  storage for portions of the grid boxes in transit
+C
+      REAL FM (iim)
+      REAL F0 (iim,NTRA),FX (iim,NTRA)
+      REAL FY (iim,NTRA),FZ (iim,NTRA)
+      REAL FXX(iim,NTRA),FXY(iim,NTRA)
+      REAL FXZ(iim,NTRA),FYY(iim,NTRA)
+      REAL FYZ(iim,NTRA),FZZ(iim,NTRA)
+C
+C  work arrays
+C
+      REAL ALF (iim),ALF1(iim),ALFQ(iim),ALF1Q(iim)
+      REAL ALF2(iim),ALF3(iim),ALF4(iim)
+C
+      REAL SMNEW(iim),UEXT(iim)
+      REAL sqi,sqf
+      REAL TEMPTM
+      REAL SLPMAX
+      REAL S1MAX,S1NEW,S2NEW
+
+      LOGICAL LIMIT
+      INTEGER NUM(jjp1),LONK,NUMK
+      INTEGER lon,lati,latf,niv
+      INTEGER i,i2,i3,j,jv,l,k,iter
+
+      lon = iim
+      lati=2
+      latf = jjm
+      niv = llm
+
+C *** Test de passage d'arguments ******
+
+c      DO 399 l = 1, llm
+c       DO 399 j = 1, jjp1
+c        DO 399 i = 1, iip1
+c         IF (S0(i,j,l,ntra) .lt. 0. ) THEN
+c         PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)
+c             print*, 'SSX(',i,j,l,')=',SSX(i,j,l,ntra)
+c         print*, 'SY(',i,j,l,')=',SY(i,j,l,ntra)
+c         print*, 'SZ(',i,j,l,')=',SZ(i,j,l,ntra)
+c         PRINT*, 'AIE !! debut ADVXP - pbl arg. passage dans ADVXP'
+cc            STOP
+c         ENDIF
+c  399 CONTINUE
+
+C *** Test : diagnostique de la qtite totale de traceur
+C            dans l'atmosphere avant l'advection
+c
+      sqi =0.
+      sqf =0.
+c
+      DO l = 1, llm
+      DO j = 1, jjp1
+      DO i = 1, iim
+         sqi = sqi + S0(i,j,l,ntra)
+      END DO
+      END DO
+      END DO
+      PRINT*,'------ DIAG DANS ADVX2 - ENTREE -----'
+      PRINT*,'sqi=',sqi
+c test
+c  -------------------------------------
+        DO 300 j =1,jjp1
+         NUM(j) =1 
+ 300  CONTINUE
+c       DO l=1,llm
+c      NUM(2,l)=6
+c      NUM(3,l)=6
+c      NUM(jjm-1,l)=6  
+c      NUM(jjm,l)=6
+c      ENDDO
+c        DO j=2,6
+c       NUM(j)=12
+c       ENDDO
+c       DO j=jjm-5,jjm-1 
+c       NUM(j)=12
+c       ENDDO
+
+C  Interface : adaptation nouveau modele
+C  -------------------------------------
+C
+C  ---------------------------------------------------------
+C  Conversion des flux de masses en kg/s
+C  pbaru est en N/s d'ou :
+C  ugri est en kg/s
+
+       DO 500 l = 1,llm
+       DO 500 j = 1,jjp1
+       DO 500 i = 1,iip1
+       ugri (i,j,llm+1-l) =pbaru (i,j,l) 
+ 500   CONTINUE
+
+C  ---------------------------------------------------------
+C  start here
+C
+C  boucle principale sur les niveaux et les latitudes
+C     
+      DO 1 L=1,NIV
+      DO 1 K=lati,latf
+
+C
+C  initialisation
+C
+C  program assumes periodic boundaries in X
+C
+      DO 10 I=2,LON
+         SMNEW(I)=SM(I,K,L)+(UGRI(I-1,K,L)-UGRI(I,K,L))*DTX
+ 10   CONTINUE
+      SMNEW(1)=SM(1,K,L)+(UGRI(LON,K,L)-UGRI(1,K,L))*DTX
+C
+C  modifications for extended polar zones
+C
+      NUMK=NUM(K)
+      LONK=LON/NUMK
+C
+      IF(NUMK.GT.1) THEN
+C
+      DO 111 I=1,LON
+         TM(I)=0.
+ 111  CONTINUE
+      DO 112 JV=1,NTRA
+      DO 1120 I=1,LON
+         T0 (I,JV)=0.
+         TX (I,JV)=0.
+         TY (I,JV)=0.
+         TZ (I,JV)=0.
+         TXX(I,JV)=0.
+         TXY(I,JV)=0.
+         TXZ(I,JV)=0.
+         TYY(I,JV)=0.
+         TYZ(I,JV)=0.
+         TZZ(I,JV)=0.
+ 1120 CONTINUE
+ 112  CONTINUE
+C
+      DO 11 I2=1,NUMK
+C
+         DO 113 I=1,LONK
+            I3=(I-1)*NUMK+I2
+            TM(I)=TM(I)+SM(I3,K,L)
+            ALF(I)=SM(I3,K,L)/TM(I)
+            ALF1(I)=1.-ALF(I)
+            ALFQ(I)=ALF(I)*ALF(I)
+            ALF1Q(I)=ALF1(I)*ALF1(I)
+            ALF2(I)=ALF1(I)-ALF(I)
+            ALF3(I)=ALF(I)*ALF1(I)
+ 113     CONTINUE
+C
+         DO 114 JV=1,NTRA
+         DO 1140 I=1,LONK
+            I3=(I-1)*NUMK+I2
+            TEMPTM=-ALF(I)*T0(I,JV)+ALF1(I)*S0(I3,K,L,JV)
+            T0 (I,JV)=T0(I,JV)+S0(I3,K,L,JV)
+            TXX(I,JV)=ALFQ(I)*SSXX(I3,K,L,JV)+ALF1Q(I)*TXX(I,JV)
+     +        +5.*( ALF3(I)*(SSX(I3,K,L,JV)-TX(I,JV))+ALF2(I)*TEMPTM )
+            TX (I,JV)=ALF(I)*SSX(I3,K,L,JV)+ALF1(I)*TX(I,JV)+3.*TEMPTM
+            TXY(I,JV)=ALF (I)*SSXY(I3,K,L,JV)+ALF1(I)*TXY(I,JV)
+     +           +3.*(ALF1(I)*SY (I3,K,L,JV)-ALF (I)*TY (I,JV))
+            TXZ(I,JV)=ALF (I)*SSXZ(I3,K,L,JV)+ALF1(I)*TXZ(I,JV)
+     +           +3.*(ALF1(I)*SZ (I3,K,L,JV)-ALF (I)*TZ (I,JV))
+            TY (I,JV)=TY (I,JV)+SY (I3,K,L,JV)
+            TZ (I,JV)=TZ (I,JV)+SZ (I3,K,L,JV)
+            TYY(I,JV)=TYY(I,JV)+SYY(I3,K,L,JV)
+            TYZ(I,JV)=TYZ(I,JV)+SYZ(I3,K,L,JV)
+            TZZ(I,JV)=TZZ(I,JV)+SZZ(I3,K,L,JV)
+ 1140    CONTINUE
+ 114     CONTINUE
+C
+ 11   CONTINUE
+C
+      ELSE
+C
+      DO 115 I=1,LON
+         TM(I)=SM(I,K,L)
+ 115  CONTINUE
+      DO 116 JV=1,NTRA
+      DO 1160 I=1,LON
+         T0 (I,JV)=S0 (I,K,L,JV)
+         TX (I,JV)=SSX (I,K,L,JV)
+         TY (I,JV)=SY (I,K,L,JV)
+         TZ (I,JV)=SZ (I,K,L,JV)
+         TXX(I,JV)=SSXX(I,K,L,JV)
+         TXY(I,JV)=SSXY(I,K,L,JV)
+         TXZ(I,JV)=SSXZ(I,K,L,JV)
+         TYY(I,JV)=SYY(I,K,L,JV)
+         TYZ(I,JV)=SYZ(I,K,L,JV)
+         TZZ(I,JV)=SZZ(I,K,L,JV)
+ 1160 CONTINUE
+ 116  CONTINUE
+C
+      ENDIF
+C
+      DO 117 I=1,LONK
+         UEXT(I)=UGRI(I*NUMK,K,L)
+ 117  CONTINUE
+C
+C  place limits on appropriate moments before transport
+C      (if flux-limiting is to be applied)
+C
+      IF(.NOT.LIMIT) GO TO 13
+C
+      DO 12 JV=1,NTRA
+      DO 120 I=1,LONK
+        IF(T0(I,JV).GT.0.) THEN
+          SLPMAX=T0(I,JV)
+          S1MAX=1.5*SLPMAX
+          S1NEW=AMIN1(S1MAX,AMAX1(-S1MAX,TX(I,JV)))
+          S2NEW=AMIN1( 2.*SLPMAX-ABS(S1NEW)/3. ,
+     +                 AMAX1(ABS(S1NEW)-SLPMAX,TXX(I,JV)) )
+          TX (I,JV)=S1NEW
+          TXX(I,JV)=S2NEW
+          TXY(I,JV)=AMIN1(SLPMAX,AMAX1(-SLPMAX,TXY(I,JV)))
+          TXZ(I,JV)=AMIN1(SLPMAX,AMAX1(-SLPMAX,TXZ(I,JV)))
+        ELSE
+          TX (I,JV)=0.
+          TXX(I,JV)=0.
+          TXY(I,JV)=0.
+          TXZ(I,JV)=0.
+        ENDIF
+ 120  CONTINUE
+ 12   CONTINUE
+C
+ 13   CONTINUE
+C
+C  calculate flux and moments between adjacent boxes
+C  1- create temporary moments/masses for partial boxes in transit
+C  2- reajusts moments remaining in the box
+C
+C  flux from IP to I if U(I).lt.0
+C
+      DO 140 I=1,LONK-1
+         IF(UEXT(I).LT.0.) THEN
+           FM(I)=-UEXT(I)*DTX
+           ALF(I)=FM(I)/TM(I+1)
+           TM(I+1)=TM(I+1)-FM(I)
+         ENDIF
+ 140  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).LT.0.) THEN
+        FM(I)=-UEXT(I)*DTX
+        ALF(I)=FM(I)/TM(1)
+        TM(1)=TM(1)-FM(I)
+      ENDIF
+C
+C  flux from I to IP if U(I).gt.0
+C
+      DO 141 I=1,LONK
+         IF(UEXT(I).GE.0.) THEN
+           FM(I)=UEXT(I)*DTX
+           ALF(I)=FM(I)/TM(I)
+           TM(I)=TM(I)-FM(I)
+         ENDIF
+ 141  CONTINUE
+C
+      DO 142 I=1,LONK
+         ALFQ(I)=ALF(I)*ALF(I)
+         ALF1(I)=1.-ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+         ALF2(I)=ALF1(I)-ALF(I)
+         ALF3(I)=ALF(I)*ALFQ(I)
+         ALF4(I)=ALF1(I)*ALF1Q(I)
+ 142  CONTINUE
+C
+      DO 150 JV=1,NTRA
+      DO 1500 I=1,LONK-1
+C
+         IF(UEXT(I).LT.0.) THEN
+C
+           F0 (I,JV)=ALF (I)* ( T0(I+1,JV)-ALF1(I)*
+     +             ( TX(I+1,JV)-ALF2(I)*TXX(I+1,JV) ) )
+           FX (I,JV)=ALFQ(I)*(TX(I+1,JV)-3.*ALF1(I)*TXX(I+1,JV))
+           FXX(I,JV)=ALF3(I)*TXX(I+1,JV)
+           FY (I,JV)=ALF (I)*(TY(I+1,JV)-ALF1(I)*TXY(I+1,JV))
+           FZ (I,JV)=ALF (I)*(TZ(I+1,JV)-ALF1(I)*TXZ(I+1,JV))
+           FXY(I,JV)=ALFQ(I)*TXY(I+1,JV)
+           FXZ(I,JV)=ALFQ(I)*TXZ(I+1,JV)
+           FYY(I,JV)=ALF (I)*TYY(I+1,JV)
+           FYZ(I,JV)=ALF (I)*TYZ(I+1,JV)
+           FZZ(I,JV)=ALF (I)*TZZ(I+1,JV)
+C
+           T0 (I+1,JV)=T0(I+1,JV)-F0(I,JV)
+           TX (I+1,JV)=ALF1Q(I)*(TX(I+1,JV)+3.*ALF(I)*TXX(I+1,JV))
+           TXX(I+1,JV)=ALF4(I)*TXX(I+1,JV)
+           TY (I+1,JV)=TY (I+1,JV)-FY (I,JV)
+           TZ (I+1,JV)=TZ (I+1,JV)-FZ (I,JV)
+           TYY(I+1,JV)=TYY(I+1,JV)-FYY(I,JV)
+           TYZ(I+1,JV)=TYZ(I+1,JV)-FYZ(I,JV)
+           TZZ(I+1,JV)=TZZ(I+1,JV)-FZZ(I,JV)
+           TXY(I+1,JV)=ALF1Q(I)*TXY(I+1,JV)
+           TXZ(I+1,JV)=ALF1Q(I)*TXZ(I+1,JV)
+C
+         ENDIF
+C
+ 1500 CONTINUE
+ 150  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).LT.0.) THEN
+C
+        DO 151 JV=1,NTRA
+C
+           F0 (I,JV)=ALF (I)* ( T0(1,JV)-ALF1(I)*
+     +             ( TX(1,JV)-ALF2(I)*TXX(1,JV) ) )
+           FX (I,JV)=ALFQ(I)*(TX(1,JV)-3.*ALF1(I)*TXX(1,JV))
+           FXX(I,JV)=ALF3(I)*TXX(1,JV)
+           FY (I,JV)=ALF (I)*(TY(1,JV)-ALF1(I)*TXY(1,JV))
+           FZ (I,JV)=ALF (I)*(TZ(1,JV)-ALF1(I)*TXZ(1,JV))
+           FXY(I,JV)=ALFQ(I)*TXY(1,JV)
+           FXZ(I,JV)=ALFQ(I)*TXZ(1,JV)
+           FYY(I,JV)=ALF (I)*TYY(1,JV)
+           FYZ(I,JV)=ALF (I)*TYZ(1,JV)
+           FZZ(I,JV)=ALF (I)*TZZ(1,JV)
+C
+           T0 (1,JV)=T0(1,JV)-F0(I,JV)
+           TX (1,JV)=ALF1Q(I)*(TX(1,JV)+3.*ALF(I)*TXX(1,JV))
+           TXX(1,JV)=ALF4(I)*TXX(1,JV)
+           TY (1,JV)=TY (1,JV)-FY (I,JV)
+           TZ (1,JV)=TZ (1,JV)-FZ (I,JV)
+           TYY(1,JV)=TYY(1,JV)-FYY(I,JV)
+           TYZ(1,JV)=TYZ(1,JV)-FYZ(I,JV)
+           TZZ(1,JV)=TZZ(1,JV)-FZZ(I,JV)
+           TXY(1,JV)=ALF1Q(I)*TXY(1,JV)
+           TXZ(1,JV)=ALF1Q(I)*TXZ(1,JV)
+C
+ 151    CONTINUE
+C
+      ENDIF
+C
+      DO 152 JV=1,NTRA
+      DO 1520 I=1,LONK
+C
+         IF(UEXT(I).GE.0.) THEN
+C
+           F0 (I,JV)=ALF (I)* ( T0(I,JV)+ALF1(I)*
+     +             ( TX(I,JV)+ALF2(I)*TXX(I,JV) ) )
+           FX (I,JV)=ALFQ(I)*(TX(I,JV)+3.*ALF1(I)*TXX(I,JV))
+           FXX(I,JV)=ALF3(I)*TXX(I,JV)
+           FY (I,JV)=ALF (I)*(TY(I,JV)+ALF1(I)*TXY(I,JV))
+           FZ (I,JV)=ALF (I)*(TZ(I,JV)+ALF1(I)*TXZ(I,JV))
+           FXY(I,JV)=ALFQ(I)*TXY(I,JV)
+           FXZ(I,JV)=ALFQ(I)*TXZ(I,JV)
+           FYY(I,JV)=ALF (I)*TYY(I,JV)
+           FYZ(I,JV)=ALF (I)*TYZ(I,JV)
+           FZZ(I,JV)=ALF (I)*TZZ(I,JV)
+C
+           T0 (I,JV)=T0(I,JV)-F0(I,JV)
+           TX (I,JV)=ALF1Q(I)*(TX(I,JV)-3.*ALF(I)*TXX(I,JV))
+           TXX(I,JV)=ALF4(I)*TXX(I,JV)
+           TY (I,JV)=TY (I,JV)-FY (I,JV)
+           TZ (I,JV)=TZ (I,JV)-FZ (I,JV)
+           TYY(I,JV)=TYY(I,JV)-FYY(I,JV)
+           TYZ(I,JV)=TYZ(I,JV)-FYZ(I,JV)
+           TZZ(I,JV)=TZZ(I,JV)-FZZ(I,JV)
+           TXY(I,JV)=ALF1Q(I)*TXY(I,JV)
+           TXZ(I,JV)=ALF1Q(I)*TXZ(I,JV)
+C
+         ENDIF
+C
+ 1520 CONTINUE
+ 152  CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 160 I=1,LONK
+         IF(UEXT(I).LT.0.) THEN
+           TM(I)=TM(I)+FM(I)
+           ALF(I)=FM(I)/TM(I)
+         ENDIF
+ 160  CONTINUE
+C
+      DO 161 I=1,LONK-1
+         IF(UEXT(I).GE.0.) THEN
+           TM(I+1)=TM(I+1)+FM(I)
+           ALF(I)=FM(I)/TM(I+1)
+         ENDIF
+ 161  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).GE.0.) THEN
+        TM(1)=TM(1)+FM(I)
+        ALF(I)=FM(I)/TM(1)
+      ENDIF
+C
+      DO 162 I=1,LONK
+         ALF1(I)=1.-ALF(I)
+         ALFQ(I)=ALF(I)*ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+         ALF2(I)=ALF1(I)-ALF(I)
+         ALF3(I)=ALF(I)*ALF1(I)
+ 162  CONTINUE
+C
+      DO 170 JV=1,NTRA
+      DO 1700 I=1,LONK
+C
+         IF(UEXT(I).LT.0.) THEN
+C
+           TEMPTM=-ALF(I)*T0(I,JV)+ALF1(I)*F0(I,JV)
+           T0 (I,JV)=T0(I,JV)+F0(I,JV)
+           TXX(I,JV)=ALFQ(I)*FXX(I,JV)+ALF1Q(I)*TXX(I,JV)
+     +          +5.*( ALF3(I)*(FX(I,JV)-TX(I,JV))+ALF2(I)*TEMPTM )
+           TX (I,JV)=ALF (I)*FX (I,JV)+ALF1(I)*TX (I,JV)+3.*TEMPTM
+           TXY(I,JV)=ALF (I)*FXY(I,JV)+ALF1(I)*TXY(I,JV)
+     +          +3.*(ALF1(I)*FY (I,JV)-ALF (I)*TY (I,JV))
+           TXZ(I,JV)=ALF (I)*FXZ(I,JV)+ALF1(I)*TXZ(I,JV)
+     +          +3.*(ALF1(I)*FZ (I,JV)-ALF (I)*TZ (I,JV))
+           TY (I,JV)=TY (I,JV)+FY (I,JV)
+           TZ (I,JV)=TZ (I,JV)+FZ (I,JV)
+           TYY(I,JV)=TYY(I,JV)+FYY(I,JV)
+           TYZ(I,JV)=TYZ(I,JV)+FYZ(I,JV)
+           TZZ(I,JV)=TZZ(I,JV)+FZZ(I,JV)
+C
+         ENDIF
+C
+ 1700 CONTINUE
+ 170  CONTINUE
+C
+      DO 171 JV=1,NTRA
+      DO 1710 I=1,LONK-1
+C
+         IF(UEXT(I).GE.0.) THEN
+C
+           TEMPTM=ALF(I)*T0(I+1,JV)-ALF1(I)*F0(I,JV)
+           T0 (I+1,JV)=T0(I+1,JV)+F0(I,JV)
+           TXX(I+1,JV)=ALFQ(I)*FXX(I,JV)+ALF1Q(I)*TXX(I+1,JV)
+     +           +5.*( ALF3(I)*(TX(I+1,JV)-FX(I,JV))-ALF2(I)*TEMPTM )
+           TX (I+1,JV)=ALF(I)*FX (I  ,JV)+ALF1(I)*TX (I+1,JV)+3.*TEMPTM
+           TXY(I+1,JV)=ALF(I)*FXY(I  ,JV)+ALF1(I)*TXY(I+1,JV)
+     +            +3.*(ALF(I)*TY (I+1,JV)-ALF1(I)*FY (I  ,JV))
+           TXZ(I+1,JV)=ALF(I)*FXZ(I  ,JV)+ALF1(I)*TXZ(I+1,JV)
+     +            +3.*(ALF(I)*TZ (I+1,JV)-ALF1(I)*FZ (I  ,JV))
+           TY (I+1,JV)=TY (I+1,JV)+FY (I,JV)
+           TZ (I+1,JV)=TZ (I+1,JV)+FZ (I,JV)
+           TYY(I+1,JV)=TYY(I+1,JV)+FYY(I,JV)
+           TYZ(I+1,JV)=TYZ(I+1,JV)+FYZ(I,JV)
+           TZZ(I+1,JV)=TZZ(I+1,JV)+FZZ(I,JV)
+C
+         ENDIF
+C
+ 1710 CONTINUE
+ 171  CONTINUE
+C
+      I=LONK
+      IF(UEXT(I).GE.0.) THEN
+        DO 172 JV=1,NTRA
+           TEMPTM=ALF(I)*T0(1,JV)-ALF1(I)*F0(I,JV)
+           T0 (1,JV)=T0(1,JV)+F0(I,JV)
+           TXX(1,JV)=ALFQ(I)*FXX(I,JV)+ALF1Q(I)*TXX(1,JV)
+     +         +5.*( ALF3(I)*(TX(1,JV)-FX(I,JV))-ALF2(I)*TEMPTM )
+           TX (1,JV)=ALF(I)*FX(I,JV)+ALF1(I)*TX(1,JV)+3.*TEMPTM
+           TXY(1,JV)=ALF(I)*FXY(I,JV)+ALF1(I)*TXY(1,JV)
+     +          +3.*(ALF(I)*TY (1,JV)-ALF1(I)*FY (I,JV))
+           TXZ(1,JV)=ALF(I)*FXZ(I,JV)+ALF1(I)*TXZ(1,JV)
+     +          +3.*(ALF(I)*TZ (1,JV)-ALF1(I)*FZ (I,JV))
+           TY (1,JV)=TY (1,JV)+FY (I,JV)
+           TZ (1,JV)=TZ (1,JV)+FZ (I,JV)
+           TYY(1,JV)=TYY(1,JV)+FYY(I,JV)
+           TYZ(1,JV)=TYZ(1,JV)+FYZ(I,JV)
+           TZZ(1,JV)=TZZ(1,JV)+FZZ(I,JV)
+ 172    CONTINUE
+      ENDIF
+C
+C  retour aux mailles d'origine (passage des Tij aux Sij)
+C
+      IF(NUMK.GT.1) THEN
+C
+      DO 18 I2=1,NUMK
+C
+         DO 180 I=1,LONK
+C
+            I3=I2+(I-1)*NUMK
+            SM(I3,K,L)=SMNEW(I3)
+            ALF(I)=SMNEW(I3)/TM(I)
+            TM(I)=TM(I)-SMNEW(I3)
+C
+            ALFQ(I)=ALF(I)*ALF(I)
+            ALF1(I)=1.-ALF(I)
+            ALF1Q(I)=ALF1(I)*ALF1(I)
+            ALF2(I)=ALF1(I)-ALF(I)
+            ALF3(I)=ALF(I)*ALFQ(I)
+            ALF4(I)=ALF1(I)*ALF1Q(I)
+C
+ 180     CONTINUE
+C
+         DO 181 JV=1,NTRA
+         DO 181 I=1,LONK
+C
+            I3=I2+(I-1)*NUMK
+            S0 (I3,K,L,JV)=ALF (I)* ( T0(I,JV)-ALF1(I)*
+     +              ( TX(I,JV)-ALF2(I)*TXX(I,JV) ) )
+            SSX (I3,K,L,JV)=ALFQ(I)*(TX(I,JV)-3.*ALF1(I)*TXX(I,JV))
+            SSXX(I3,K,L,JV)=ALF3(I)*TXX(I,JV)
+            SY (I3,K,L,JV)=ALF (I)*(TY(I,JV)-ALF1(I)*TXY(I,JV))
+            SZ (I3,K,L,JV)=ALF (I)*(TZ(I,JV)-ALF1(I)*TXZ(I,JV))
+            SSXY(I3,K,L,JV)=ALFQ(I)*TXY(I,JV)
+            SSXZ(I3,K,L,JV)=ALFQ(I)*TXZ(I,JV)
+            SYY(I3,K,L,JV)=ALF (I)*TYY(I,JV)
+            SYZ(I3,K,L,JV)=ALF (I)*TYZ(I,JV)
+            SZZ(I3,K,L,JV)=ALF (I)*TZZ(I,JV)
+C
+C   reajusts moments remaining in the box
+C
+            T0 (I,JV)=T0(I,JV)-S0(I3,K,L,JV)
+            TX (I,JV)=ALF1Q(I)*(TX(I,JV)+3.*ALF(I)*TXX(I,JV))
+            TXX(I,JV)=ALF4 (I)*TXX(I,JV)
+            TY (I,JV)=TY (I,JV)-SY (I3,K,L,JV)
+            TZ (I,JV)=TZ (I,JV)-SZ (I3,K,L,JV)
+            TYY(I,JV)=TYY(I,JV)-SYY(I3,K,L,JV)
+            TYZ(I,JV)=TYZ(I,JV)-SYZ(I3,K,L,JV)
+            TZZ(I,JV)=TZZ(I,JV)-SZZ(I3,K,L,JV)
+            TXY(I,JV)=ALF1Q(I)*TXY(I,JV)
+            TXZ(I,JV)=ALF1Q(I)*TXZ(I,JV)
+C
+ 181     CONTINUE
+C
+ 18   CONTINUE
+C
+      ELSE
+C
+      DO 190 I=1,LON
+         SM(I,K,L)=TM(I)
+ 190  CONTINUE
+      DO 191 JV=1,NTRA
+      DO 1910 I=1,LON
+         S0 (I,K,L,JV)=T0 (I,JV)
+         SSX (I,K,L,JV)=TX (I,JV)
+         SY (I,K,L,JV)=TY (I,JV)
+         SZ (I,K,L,JV)=TZ (I,JV)
+         SSXX(I,K,L,JV)=TXX(I,JV)
+         SSXY(I,K,L,JV)=TXY(I,JV)
+         SSXZ(I,K,L,JV)=TXZ(I,JV)
+         SYY(I,K,L,JV)=TYY(I,JV)
+         SYZ(I,K,L,JV)=TYZ(I,JV)
+         SZZ(I,K,L,JV)=TZZ(I,JV)
+ 1910 CONTINUE
+ 191  CONTINUE
+C
+      ENDIF
+C
+ 1    CONTINUE
+C
+C ----------- AA Test en fin de ADVX ------ Controle des S*
+
+c      DO 9999 l = 1, llm
+c      DO 9999 j = 1, jjp1
+c      DO 9999 i = 1, iip1
+c           IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN
+c           PRINT*, '-------------------'
+c                PRINT*, 'En fin de ADVXP'
+c           PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)
+c                print*, 'SSX(',i,j,l,')=',SSX(i,j,l,ntra)
+c           print*, 'SY(',i,j,l,')=',SY(i,j,l,ntra)
+c               print*, 'SZ(',i,j,l,')=',SZ(i,j,l,ntra)
+c            WRITE (*,*) 'On arrete !! - pbl en fin de ADVXP'
+c            STOP
+c           ENDIF
+c 9999 CONTINUE
+c ---------- bouclage cyclique
+
+      DO l = 1,llm
+      DO j = 1,jjp1
+         SM(iip1,j,l) = SM(1,j,l)
+         S0(iip1,j,l,ntra) = S0(1,j,l,ntra)
+              SSX(iip1,j,l,ntra) = SSX(1,j,l,ntra)
+             SY(iip1,j,l,ntra) = SY(1,j,l,ntra)
+             SZ(iip1,j,l,ntra) = SZ(1,j,l,ntra)
+      END DO
+      END DO
+
+C ----------- qqtite totale de traceur dans tte l'atmosphere
+      DO l = 1, llm
+      DO j = 1, jjp1
+      DO i = 1, iim
+        sqf = sqf + S0(i,j,l,ntra)
+      END DO
+      END DO
+      END DO
+
+      PRINT*,'------ DIAG DANS ADVX2 - SORTIE -----'
+      PRINT*,'sqf=',sqf
+c-------------------------------------------------------------
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advy.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advy.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advy.F	(revision 3330)
@@ -0,0 +1,420 @@
+!
+! $Header$
+!
+      SUBROUTINE advy(limit,dty,pbarv,sm,s0,sx,sy,sz)
+      IMPLICIT NONE
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                C
+C  first-order moments (SOM) advection of tracer in Y direction  C
+C                                                                C
+C  Source : Pascal Simon ( Meteo, CNRM )                         C
+C  Adaptation : A.A. (LGGE)                                      C
+C  Derniere Modif : 15/12/94 LAST
+C                                                                C
+C  sont les arguments d'entree pour le s-pg                      C
+C                                                                C
+C  argument de sortie du s-pg                                    C
+C                                                                C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+C  Rem : Probleme aux poles il faut reecrire ce cas specifique
+C        Attention au sens de l'indexation 
+C
+C  parametres principaux du modele
+C
+C
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+ 
+C  Arguments :
+C  ----------
+C  dty : frequence fictive d'appel du transport
+C  parbu,pbarv : flux de masse en x et y en Pa.m2.s-1
+
+      INTEGER lon,lat,niv
+      INTEGER i,j,jv,k,kp,l
+      INTEGER ntra
+      PARAMETER (ntra = 1)
+
+      REAL dty
+      REAL pbarv ( iip1,jjm, llm )
+
+C  moments: SM  total mass in each grid box
+C           S0  mass of tracer in each grid box
+C           Si  1rst order moment in i direction
+C
+      REAL SM(iip1,jjp1,llm)
+     +    ,S0(iip1,jjp1,llm,ntra)
+      REAL sx(iip1,jjp1,llm,ntra)
+     +    ,sy(iip1,jjp1,llm,ntra)
+     +    ,sz(iip1,jjp1,llm,ntra)
+
+
+C  Local :
+C  ------- 
+
+C  mass fluxes across the boundaries (UGRI,VGRI,WGRI)
+C  mass fluxes in kg
+C  declaration :
+
+      REAL VGRI(iip1,0:jjp1,llm)
+
+C  Rem : UGRI et WGRI ne sont pas utilises dans 
+C  cette subroutine ( advection en y uniquement )
+C  Rem 2 :le dimensionnement de VGRI depend de celui de pbarv
+C
+C  the moments F are similarly defined and used as temporary
+C  storage for portions of the grid boxes in transit
+C
+      REAL F0(iim,0:jjp1,ntra),FM(iim,0:jjp1)
+      REAL FX(iim,jjm,ntra),FY(iim,jjm,ntra)
+      REAL FZ(iim,jjm,ntra)
+      REAL S00(ntra)
+      REAL SM0             ! Just temporal variable
+C
+C  work arrays
+C
+      REAL ALF(iim,0:jjp1),ALF1(iim,0:jjp1)
+      REAL ALFQ(iim,0:jjp1),ALF1Q(iim,0:jjp1)
+      REAL TEMPTM          ! Just temporal variable
+c
+C  Special pour poles 
+c
+      REAL sbms,sfms,sfzs,sbmn,sfmn,sfzn
+      REAL sns0(ntra),snsz(ntra),snsm
+      REAL s1v(llm),slatv(llm)
+      REAL qy1(iim,llm,ntra),qylat(iim,llm,ntra)
+      REAL cx1(llm,ntra), cxLAT(llm,ntra)
+      REAL cy1(llm,ntra), cyLAT(llm,ntra)
+      REAL z1(iim), zcos(iim), zsin(iim)
+      real smpn,smps,s0pn,s0ps
+      REAL SSUM
+      EXTERNAL SSUM
+C
+      REAL sqi,sqf
+      LOGICAL LIMIT
+
+      lon = iim         ! rem : Il est possible qu'un pbl. arrive ici
+      lat = jjp1        ! a cause des dim. differentes entre les
+      niv=llm
+
+C
+C  the moments Fi are used as temporary storage for
+C  portions of the grid boxes in transit at the current level
+C
+C  work arrays
+C
+
+      DO l = 1,llm
+         DO j = 1,jjm
+            DO i = 1,iip1  
+            vgri (i,j,llm+1-l)=-1.*pbarv(i,j,l)  
+            enddo
+         enddo
+         do i=1,iip1
+             vgri(i,0,l) = 0.
+             vgri(i,jjp1,l) = 0.
+         enddo
+      enddo
+
+      DO 1 L=1,NIV
+C
+C  place limits on appropriate moments before transport
+C      (if flux-limiting is to be applied)
+C
+      IF(.NOT.LIMIT) GO TO 11
+C
+      DO 10 JV=1,NTRA
+      DO 10 K=1,LAT
+      DO 100 I=1,LON
+         sy(I,K,L,JV)=SIGN(AMIN1(AMAX1(S0(I,K,L,JV),0.),
+     +                           ABS(sy(I,K,L,JV))),sy(I,K,L,JV))
+ 100  CONTINUE
+ 10   CONTINUE
+C
+ 11   CONTINUE
+C
+C  le flux a travers le pole Nord est traite separement
+C
+      SM0=0.
+      DO 20 JV=1,NTRA
+         S00(JV)=0.
+ 20   CONTINUE
+C
+      DO 21 I=1,LON
+C
+         IF(VGRI(I,0,L).LE.0.) THEN
+           FM(I,0)=-VGRI(I,0,L)*DTY
+           ALF(I,0)=FM(I,0)/SM(I,1,L)
+           SM(I,1,L)=SM(I,1,L)-FM(I,0)
+           SM0=SM0+FM(I,0)
+         ENDIF
+C
+         ALFQ(I,0)=ALF(I,0)*ALF(I,0)
+         ALF1(I,0)=1.-ALF(I,0)
+         ALF1Q(I,0)=ALF1(I,0)*ALF1(I,0)
+C
+ 21   CONTINUE
+C
+      DO 22 JV=1,NTRA
+      DO 220 I=1,LON
+C
+         IF(VGRI(I,0,L).LE.0.) THEN
+C
+           F0(I,0,JV)=ALF(I,0)*
+     +               ( S0(I,1,L,JV)-ALF1(I,0)*sy(I,1,L,JV) )
+C
+           S00(JV)=S00(JV)+F0(I,0,JV)
+           S0(I,1,L,JV)=S0(I,1,L,JV)-F0(I,0,JV)
+           sy(I,1,L,JV)=ALF1Q(I,0)*sy(I,1,L,JV)
+           sx(I,1,L,JV)=ALF1 (I,0)*sx(I,1,L,JV)
+           sz(I,1,L,JV)=ALF1 (I,0)*sz(I,1,L,JV)
+C
+         ENDIF
+C
+ 220  CONTINUE
+ 22   CONTINUE
+C
+      DO 23 I=1,LON
+         IF(VGRI(I,0,L).GT.0.) THEN
+           FM(I,0)=VGRI(I,0,L)*DTY
+           ALF(I,0)=FM(I,0)/SM0
+         ENDIF
+ 23   CONTINUE
+C
+      DO 24 JV=1,NTRA
+      DO 240 I=1,LON
+         IF(VGRI(I,0,L).GT.0.) THEN
+           F0(I,0,JV)=ALF(I,0)*S00(JV)
+         ENDIF
+ 240  CONTINUE
+ 24   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 25 I=1,LON
+C
+         IF(VGRI(I,0,L).GT.0.) THEN
+           SM(I,1,L)=SM(I,1,L)+FM(I,0)
+           ALF(I,0)=FM(I,0)/SM(I,1,L)
+         ENDIF
+C
+         ALF1(I,0)=1.-ALF(I,0)
+C
+ 25   CONTINUE
+C
+      DO 26 JV=1,NTRA
+      DO 260 I=1,LON
+C
+         IF(VGRI(I,0,L).GT.0.) THEN
+C
+         TEMPTM=ALF(I,0)*S0(I,1,L,JV)-ALF1(I,0)*F0(I,0,JV)
+         S0(I,1,L,JV)=S0(I,1,L,JV)+F0(I,0,JV)
+         sy(I,1,L,JV)=ALF1(I,0)*sy(I,1,L,JV)+3.*TEMPTM
+C
+         ENDIF
+C
+ 260  CONTINUE
+ 26   CONTINUE
+C
+C  calculate flux and moments between adjacent boxes
+C  1- create temporary moments/masses for partial boxes in transit
+C  2- reajusts moments remaining in the box
+C
+C  flux from KP to K if V(K).lt.0 and from K to KP if V(K).gt.0
+C
+      DO 30 K=1,LAT-1
+      KP=K+1
+      DO 300 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+           FM(I,K)=-VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM(I,KP,L)
+           SM(I,KP,L)=SM(I,KP,L)-FM(I,K)
+         ELSE
+           FM(I,K)=VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+           SM(I,K,L)=SM(I,K,L)-FM(I,K)
+         ENDIF
+C
+         ALFQ(I,K)=ALF(I,K)*ALF(I,K)
+         ALF1(I,K)=1.-ALF(I,K)
+         ALF1Q(I,K)=ALF1(I,K)*ALF1(I,K)
+C
+ 300  CONTINUE
+ 30   CONTINUE
+C
+      DO 31 JV=1,NTRA
+      DO 31 K=1,LAT-1
+      KP=K+1
+      DO 310 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+C
+           F0(I,K,JV)=ALF (I,K)*
+     +                ( S0(I,KP,L,JV)-ALF1(I,K)*sy(I,KP,L,JV) )
+           FY(I,K,JV)=ALFQ(I,K)*sy(I,KP,L,JV)
+           FX(I,K,JV)=ALF (I,K)*sx(I,KP,L,JV)
+           FZ(I,K,JV)=ALF (I,K)*sz(I,KP,L,JV)
+C
+           S0(I,KP,L,JV)=S0(I,KP,L,JV)-F0(I,K,JV)
+           sy(I,KP,L,JV)=ALF1Q(I,K)*sy(I,KP,L,JV)
+           sx(I,KP,L,JV)=sx(I,KP,L,JV)-FX(I,K,JV)
+           sz(I,KP,L,JV)=sz(I,KP,L,JV)-FZ(I,K,JV)
+C
+         ELSE
+C
+           F0(I,K,JV)=ALF (I,K)*
+     +               ( S0(I,K,L,JV)+ALF1(I,K)*sy(I,K,L,JV) )
+           FY(I,K,JV)=ALFQ(I,K)*sy(I,K,L,JV)
+           FX(I,K,JV)=ALF(I,K)*sx(I,K,L,JV)
+           FZ(I,K,JV)=ALF(I,K)*sz(I,K,L,JV)
+C
+           S0(I,K,L,JV)=S0(I,K,L,JV)-F0(I,K,JV)
+           sy(I,K,L,JV)=ALF1Q(I,K)*sy(I,K,L,JV)
+           sx(I,K,L,JV)=sx(I,K,L,JV)-FX(I,K,JV)
+           sz(I,K,L,JV)=sz(I,K,L,JV)-FZ(I,K,JV)
+C
+         ENDIF
+C
+ 310  CONTINUE
+ 31   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 32 K=1,LAT-1
+      KP=K+1
+      DO 320 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+           SM(I,K,L)=SM(I,K,L)+FM(I,K)
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+         ELSE
+           SM(I,KP,L)=SM(I,KP,L)+FM(I,K)
+           ALF(I,K)=FM(I,K)/SM(I,KP,L)
+         ENDIF
+C
+         ALF1(I,K)=1.-ALF(I,K)
+C
+ 320  CONTINUE
+ 32   CONTINUE
+C
+      DO 33 JV=1,NTRA
+      DO 33 K=1,LAT-1
+      KP=K+1
+      DO 330 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+C
+         TEMPTM=-ALF(I,K)*S0(I,K,L,JV)+ALF1(I,K)*F0(I,K,JV)
+         S0(I,K,L,JV)=S0(I,K,L,JV)+F0(I,K,JV)
+         sy(I,K,L,JV)=ALF(I,K)*FY(I,K,JV)+ALF1(I,K)*sy(I,K,L,JV)
+     +               +3.*TEMPTM
+         sx(I,K,L,JV)=sx(I,K,L,JV)+FX(I,K,JV)
+         sz(I,K,L,JV)=sz(I,K,L,JV)+FZ(I,K,JV)
+C
+         ELSE
+C
+         TEMPTM=ALF(I,K)*S0(I,KP,L,JV)-ALF1(I,K)*F0(I,K,JV)
+         S0(I,KP,L,JV)=S0(I,KP,L,JV)+F0(I,K,JV)
+         sy(I,KP,L,JV)=ALF(I,K)*FY(I,K,JV)+ALF1(I,K)*sy(I,KP,L,JV)
+     +                +3.*TEMPTM
+         sx(I,KP,L,JV)=sx(I,KP,L,JV)+FX(I,K,JV)
+         sz(I,KP,L,JV)=sz(I,KP,L,JV)+FZ(I,K,JV)
+C
+         ENDIF
+C
+ 330  CONTINUE
+ 33   CONTINUE
+C
+C  traitement special pour le pole Sud (idem pole Nord)
+C
+      K=LAT
+C
+      SM0=0.
+      DO 40 JV=1,NTRA
+         S00(JV)=0.
+ 40   CONTINUE
+C
+      DO 41 I=1,LON
+C
+         IF(VGRI(I,K,L).GE.0.) THEN
+           FM(I,K)=VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+           SM(I,K,L)=SM(I,K,L)-FM(I,K)
+           SM0=SM0+FM(I,K)
+         ENDIF
+C
+         ALFQ(I,K)=ALF(I,K)*ALF(I,K)
+         ALF1(I,K)=1.-ALF(I,K)
+         ALF1Q(I,K)=ALF1(I,K)*ALF1(I,K)
+C
+ 41   CONTINUE
+C
+      DO 42 JV=1,NTRA
+      DO 420 I=1,LON
+C
+         IF(VGRI(I,K,L).GE.0.) THEN
+           F0 (I,K,JV)=ALF(I,K)*
+     +                ( S0(I,K,L,JV)+ALF1(I,K)*sy(I,K,L,JV) )
+           S00(JV)=S00(JV)+F0(I,K,JV)
+C
+           S0(I,K,L,JV)=S0 (I,K,L,JV)-F0 (I,K,JV)
+           sy(I,K,L,JV)=ALF1Q(I,K)*sy(I,K,L,JV)
+           sx(I,K,L,JV)=ALF1(I,K)*sx(I,K,L,JV)
+           sz(I,K,L,JV)=ALF1(I,K)*sz(I,K,L,JV)
+         ENDIF
+C
+ 420  CONTINUE
+ 42   CONTINUE
+C
+      DO 43 I=1,LON
+         IF(VGRI(I,K,L).LT.0.) THEN
+           FM(I,K)=-VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM0
+         ENDIF
+ 43   CONTINUE
+C
+      DO 44 JV=1,NTRA
+      DO 440 I=1,LON
+         IF(VGRI(I,K,L).LT.0.) THEN
+           F0(I,K,JV)=ALF(I,K)*S00(JV)
+         ENDIF
+ 440  CONTINUE
+ 44   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 45 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+           SM(I,K,L)=SM(I,K,L)+FM(I,K)
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+         ENDIF
+C
+         ALF1(I,K)=1.-ALF(I,K)
+C
+ 45   CONTINUE
+C
+      DO 46 JV=1,NTRA
+      DO 460 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+C
+         TEMPTM=-ALF(I,K)*S0(I,K,L,JV)+ALF1(I,K)*F0(I,K,JV)
+         S0(I,K,L,JV)=S0(I,K,L,JV)+F0(I,K,JV)
+         sy(I,K,L,JV)=ALF1(I,K)*sy(I,K,L,JV)+3.*TEMPTM
+C
+         ENDIF
+C
+ 460  CONTINUE
+ 46   CONTINUE
+C
+ 1    CONTINUE
+C
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advyp.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advyp.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advyp.F	(revision 3330)
@@ -0,0 +1,651 @@
+!
+! $Header$
+!
+      SUBROUTINE ADVYP(LIMIT,DTY,PBARV,SM,S0,SSX,SY,SZ
+     .                 ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
+      IMPLICIT NONE
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                 C
+C  second-order moments (SOM) advection of tracer in Y direction  C
+C                                                                 C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                C
+C  Source : Pascal Simon ( Meteo, CNRM )                         C
+C  Adaptation : A.A. (LGGE)                                      C
+C  Derniere Modif : 19/10/95 LAST
+C                                                                C
+C  sont les arguments d'entree pour le s-pg                      C
+C                                                                C
+C  argument de sortie du s-pg                                    C
+C                                                                C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+C  Rem : Probleme aux poles il faut reecrire ce cas specifique
+C        Attention au sens de l'indexation 
+C
+C  parametres principaux du modele
+C
+C
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+ 
+C  Arguments :
+C  ----------
+C  dty : frequence fictive d'appel du transport
+C  parbu,pbarv : flux de masse en x et y en Pa.m2.s-1
+
+      INTEGER lon,lat,niv
+      INTEGER i,j,jv,k,kp,l
+      INTEGER ntra
+C      PARAMETER (ntra = 1)
+
+      REAL dty
+      REAL pbarv ( iip1,jjm, llm )
+
+C  moments: SM  total mass in each grid box
+C           S0  mass of tracer in each grid box
+C           Si  1rst order moment in i direction
+C
+      REAL SM(iip1,jjp1,llm)
+     +    ,S0(iip1,jjp1,llm,ntra)
+      REAL SSX(iip1,jjp1,llm,ntra)
+     +    ,SY(iip1,jjp1,llm,ntra)
+     +    ,SZ(iip1,jjp1,llm,ntra)
+     +    ,SSXX(iip1,jjp1,llm,ntra)
+     +    ,SSXY(iip1,jjp1,llm,ntra)
+     +    ,SSXZ(iip1,jjp1,llm,ntra)
+     +    ,SYY(iip1,jjp1,llm,ntra)
+     +    ,SYZ(iip1,jjp1,llm,ntra)
+     +    ,SZZ(iip1,jjp1,llm,ntra)
+C
+C  Local :
+C  ------- 
+
+C  mass fluxes across the boundaries (UGRI,VGRI,WGRI)
+C  mass fluxes in kg
+C  declaration :
+
+      REAL VGRI(iip1,0:jjp1,llm)
+
+C  Rem : UGRI et WGRI ne sont pas utilises dans 
+C  cette subroutine ( advection en y uniquement )
+C  Rem 2 :le dimensionnement de VGRI depend de celui de pbarv
+C
+C  the moments F are similarly defined and used as temporary
+C  storage for portions of the grid boxes in transit
+C
+C  the moments Fij are used as temporary storage for
+C  portions of the grid boxes in transit at the current level
+C
+C  work arrays
+C
+C
+      REAL F0(iim,0:jjp1,ntra),FM(iim,0:jjp1)
+      REAL FX(iim,jjm,ntra),FY(iim,jjm,ntra)
+      REAL FZ(iim,jjm,ntra)
+      REAL FXX(iim,jjm,ntra),FXY(iim,jjm,ntra)
+      REAL FXZ(iim,jjm,ntra),FYY(iim,jjm,ntra)
+      REAL FYZ(iim,jjm,ntra),FZZ(iim,jjm,ntra)
+      REAL S00(ntra)
+      REAL SM0             ! Just temporal variable
+C
+C  work arrays
+C
+      REAL ALF(iim,0:jjp1),ALF1(iim,0:jjp1)
+      REAL ALFQ(iim,0:jjp1),ALF1Q(iim,0:jjp1)
+      REAL ALF2(iim,0:jjp1),ALF3(iim,0:jjp1)
+      REAL ALF4(iim,0:jjp1)
+      REAL TEMPTM          ! Just temporal variable
+      REAL SLPMAX,S1MAX,S1NEW,S2NEW
+c
+C  Special pour poles 
+c
+      REAL sbms,sfms,sfzs,sbmn,sfmn,sfzn
+      REAL sns0(ntra),snsz(ntra),snsm
+      REAL qy1(iim,llm,ntra),qylat(iim,llm,ntra)
+      REAL cx1(llm,ntra), cxLAT(llm,ntra)
+      REAL cy1(llm,ntra), cyLAT(llm,ntra)
+      REAL z1(iim), zcos(iim), zsin(iim)
+      REAL SSUM
+      EXTERNAL SSUM
+C
+      REAL sqi,sqf
+      LOGICAL LIMIT
+
+      lon = iim         ! rem : Il est possible qu'un pbl. arrive ici
+      lat = jjp1        ! a cause des dim. differentes entre les
+      niv = llm         !       tab. S et VGRI 
+                    
+c-----------------------------------------------------------------
+C initialisations
+
+      sbms = 0.
+      sfms = 0.
+      sfzs = 0.
+      sbmn = 0.
+      sfmn = 0.
+      sfzn = 0.
+
+c-----------------------------------------------------------------
+C *** Test : diag de la qtite totale de traceur dans
+C            l'atmosphere avant l'advection en Y
+c 
+      sqi = 0.
+      sqf = 0.
+
+      DO l = 1,llm
+         DO j = 1,jjp1
+           DO i = 1,iim
+              sqi = sqi + S0(i,j,l,ntra)
+           END DO
+         END DO
+      END DO
+      PRINT*,'---------- DIAG DANS ADVY - ENTREE --------'
+      PRINT*,'sqi=',sqi
+
+c-----------------------------------------------------------------
+C  Interface : adaptation nouveau modele
+C  -------------------------------------
+C
+C  Conversion des flux de masses en kg
+C-AA 20/10/94  le signe -1 est necessaire car indexation opposee
+
+      DO 500 l = 1,llm
+         DO 500 j = 1,jjm
+            DO 500 i = 1,iip1  
+            vgri (i,j,llm+1-l)=-1.*pbarv (i,j,l)
+  500 CONTINUE
+
+CAA Initialisation de flux fictifs aux bords sup. des boites pol.
+
+      DO l = 1,llm
+         DO i = 1,iip1  
+             vgri(i,0,l) = 0.
+             vgri(i,jjp1,l) = 0.
+         ENDDO
+      ENDDO
+c
+c----------------- START HERE -----------------------
+C  boucle sur les niveaux
+C
+      DO 1 L=1,NIV
+C
+C  place limits on appropriate moments before transport
+C      (if flux-limiting is to be applied)
+C
+      IF(.NOT.LIMIT) GO TO 11
+C
+      DO 10 JV=1,NTRA
+      DO 10 K=1,LAT
+      DO 100 I=1,LON
+         IF(S0(I,K,L,JV).GT.0.) THEN
+           SLPMAX=AMAX1(S0(I,K,L,JV),0.)
+           S1MAX=1.5*SLPMAX
+           S1NEW=AMIN1(S1MAX,AMAX1(-S1MAX,SY(I,K,L,JV)))
+           S2NEW=AMIN1( 2.*SLPMAX-ABS(S1NEW)/3. ,
+     +                  AMAX1(ABS(S1NEW)-SLPMAX,SYY(I,K,L,JV)) )
+           SY (I,K,L,JV)=S1NEW
+           SYY(I,K,L,JV)=S2NEW
+       SSXY(I,K,L,JV)=AMIN1(SLPMAX,AMAX1(-SLPMAX,SSXY(I,K,L,JV)))
+       SYZ(I,K,L,JV)=AMIN1(SLPMAX,AMAX1(-SLPMAX,SYZ(I,K,L,JV)))
+         ELSE
+           SY (I,K,L,JV)=0.
+           SYY(I,K,L,JV)=0.
+           SSXY(I,K,L,JV)=0.
+           SYZ(I,K,L,JV)=0.
+         ENDIF
+ 100  CONTINUE
+ 10   CONTINUE
+C
+ 11   CONTINUE
+C
+C  le flux a travers le pole Nord est traite separement
+C
+      SM0=0.
+      DO 20 JV=1,NTRA
+         S00(JV)=0.
+ 20   CONTINUE
+C
+      DO 21 I=1,LON
+C
+         IF(VGRI(I,0,L).LE.0.) THEN
+           FM(I,0)=-VGRI(I,0,L)*DTY
+           ALF(I,0)=FM(I,0)/SM(I,1,L)
+           SM(I,1,L)=SM(I,1,L)-FM(I,0)
+           SM0=SM0+FM(I,0)
+         ENDIF
+C
+         ALFQ(I,0)=ALF(I,0)*ALF(I,0)
+         ALF1(I,0)=1.-ALF(I,0)
+         ALF1Q(I,0)=ALF1(I,0)*ALF1(I,0)
+         ALF2(I,0)=ALF1(I,0)-ALF(I,0)
+         ALF3(I,0)=ALF(I,0)*ALFQ(I,0)
+         ALF4(I,0)=ALF1(I,0)*ALF1Q(I,0)
+C
+ 21   CONTINUE
+c     print*,'ADVYP 21'
+C
+      DO 22 JV=1,NTRA
+      DO 220 I=1,LON
+C
+         IF(VGRI(I,0,L).LE.0.) THEN
+C
+           F0(I,0,JV)=ALF(I,0)* ( S0(I,1,L,JV)-ALF1(I,0)*
+     +        ( SY(I,1,L,JV)-ALF2(I,0)*SYY(I,1,L,JV) ) )
+C
+           S00(JV)=S00(JV)+F0(I,0,JV)
+           S0 (I,1,L,JV)=S0(I,1,L,JV)-F0(I,0,JV)
+           SY (I,1,L,JV)=ALF1Q(I,0)*
+     +            (SY(I,1,L,JV)+3.*ALF(I,0)*SYY(I,1,L,JV))
+           SYY(I,1,L,JV)=ALF4 (I,0)*SYY(I,1,L,JV)
+           SSX (I,1,L,JV)=ALF1 (I,0)*
+     +            (SSX(I,1,L,JV)+ALF(I,0)*SSXY(I,1,L,JV) )
+           SZ (I,1,L,JV)=ALF1 (I,0)*
+     +            (SZ(I,1,L,JV)+ALF(I,0)*SSXZ(I,1,L,JV) )
+           SSXX(I,1,L,JV)=ALF1 (I,0)*SSXX(I,1,L,JV)
+           SSXZ(I,1,L,JV)=ALF1 (I,0)*SSXZ(I,1,L,JV)
+           SZZ(I,1,L,JV)=ALF1 (I,0)*SZZ(I,1,L,JV)
+           SSXY(I,1,L,JV)=ALF1Q(I,0)*SSXY(I,1,L,JV)
+           SYZ(I,1,L,JV)=ALF1Q(I,0)*SYZ(I,1,L,JV)
+C
+         ENDIF
+C
+ 220  CONTINUE
+ 22   CONTINUE
+C
+      DO 23 I=1,LON
+         IF(VGRI(I,0,L).GT.0.) THEN
+           FM(I,0)=VGRI(I,0,L)*DTY
+           ALF(I,0)=FM(I,0)/SM0
+         ENDIF
+ 23   CONTINUE
+C
+      DO 24 JV=1,NTRA
+      DO 240 I=1,LON
+         IF(VGRI(I,0,L).GT.0.) THEN
+           F0(I,0,JV)=ALF(I,0)*S00(JV)
+         ENDIF
+ 240  CONTINUE
+ 24   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+c     print*,'av ADVYP 25'
+      DO 25 I=1,LON
+C
+         IF(VGRI(I,0,L).GT.0.) THEN
+           SM(I,1,L)=SM(I,1,L)+FM(I,0)
+           ALF(I,0)=FM(I,0)/SM(I,1,L)
+         ENDIF
+C
+         ALFQ(I,0)=ALF(I,0)*ALF(I,0)
+         ALF1(I,0)=1.-ALF(I,0)
+         ALF1Q(I,0)=ALF1(I,0)*ALF1(I,0)
+         ALF2(I,0)=ALF1(I,0)-ALF(I,0)
+         ALF3(I,0)=ALF1(I,0)*ALF(I,0)
+C
+ 25   CONTINUE
+c     print*,'av ADVYP 25'
+C
+      DO 26 JV=1,NTRA
+      DO 260 I=1,LON
+C
+         IF(VGRI(I,0,L).GT.0.) THEN
+C
+         TEMPTM=ALF(I,0)*S0(I,1,L,JV)-ALF1(I,0)*F0(I,0,JV)
+         S0 (I,1,L,JV)=S0(I,1,L,JV)+F0(I,0,JV)
+         SYY(I,1,L,JV)=ALF1Q(I,0)*SYY(I,1,L,JV)
+     +        +5.*( ALF3 (I,0)*SY (I,1,L,JV)-ALF2(I,0)*TEMPTM )
+         SY (I,1,L,JV)=ALF1 (I,0)*SY (I,1,L,JV)+3.*TEMPTM
+      SSXY(I,1,L,JV)=ALF1 (I,0)*SSXY(I,1,L,JV)+3.*ALF(I,0)*SSX(I,1,L,JV)
+      SYZ(I,1,L,JV)=ALF1 (I,0)*SYZ(I,1,L,JV)+3.*ALF(I,0)*SZ(I,1,L,JV)
+C
+         ENDIF
+C
+ 260  CONTINUE
+ 26   CONTINUE
+C
+C  calculate flux and moments between adjacent boxes
+C  1- create temporary moments/masses for partial boxes in transit
+C  2- reajusts moments remaining in the box
+C
+C  flux from KP to K if V(K).lt.0 and from K to KP if V(K).gt.0
+C
+c     print*,'av ADVYP 30'
+      DO 30 K=1,LAT-1
+      KP=K+1
+      DO 300 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+           FM(I,K)=-VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM(I,KP,L)
+           SM(I,KP,L)=SM(I,KP,L)-FM(I,K)
+         ELSE
+           FM(I,K)=VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+           SM(I,K,L)=SM(I,K,L)-FM(I,K)
+         ENDIF
+C
+         ALFQ(I,K)=ALF(I,K)*ALF(I,K)
+         ALF1(I,K)=1.-ALF(I,K)
+         ALF1Q(I,K)=ALF1(I,K)*ALF1(I,K)
+         ALF2(I,K)=ALF1(I,K)-ALF(I,K)
+         ALF3(I,K)=ALF(I,K)*ALFQ(I,K)
+         ALF4(I,K)=ALF1(I,K)*ALF1Q(I,K)
+C
+ 300  CONTINUE
+ 30   CONTINUE
+c     print*,'ap ADVYP 30'
+C
+      DO 31 JV=1,NTRA
+      DO 31 K=1,LAT-1
+      KP=K+1
+      DO 310 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+C
+           F0 (I,K,JV)=ALF (I,K)* ( S0(I,KP,L,JV)-ALF1(I,K)*
+     +        ( SY(I,KP,L,JV)-ALF2(I,K)*SYY(I,KP,L,JV) ) )
+           FY (I,K,JV)=ALFQ(I,K)*
+     +                 (SY(I,KP,L,JV)-3.*ALF1(I,K)*SYY(I,KP,L,JV))
+           FYY(I,K,JV)=ALF3(I,K)*SYY(I,KP,L,JV)
+           FX (I,K,JV)=ALF (I,K)*
+     +                 (SSX(I,KP,L,JV)-ALF1(I,K)*SSXY(I,KP,L,JV))
+           FZ (I,K,JV)=ALF (I,K)*
+     +                 (SZ(I,KP,L,JV)-ALF1(I,K)*SYZ(I,KP,L,JV))
+           FXY(I,K,JV)=ALFQ(I,K)*SSXY(I,KP,L,JV)
+           FYZ(I,K,JV)=ALFQ(I,K)*SYZ(I,KP,L,JV)
+           FXX(I,K,JV)=ALF (I,K)*SSXX(I,KP,L,JV)
+           FXZ(I,K,JV)=ALF (I,K)*SSXZ(I,KP,L,JV)
+           FZZ(I,K,JV)=ALF (I,K)*SZZ(I,KP,L,JV)
+C
+           S0 (I,KP,L,JV)=S0(I,KP,L,JV)-F0(I,K,JV)
+           SY (I,KP,L,JV)=ALF1Q(I,K)*
+     +                 (SY(I,KP,L,JV)+3.*ALF(I,K)*SYY(I,KP,L,JV))
+           SYY(I,KP,L,JV)=ALF4(I,K)*SYY(I,KP,L,JV)
+           SSX (I,KP,L,JV)=SSX (I,KP,L,JV)-FX (I,K,JV)
+           SZ (I,KP,L,JV)=SZ (I,KP,L,JV)-FZ (I,K,JV)
+           SSXX(I,KP,L,JV)=SSXX(I,KP,L,JV)-FXX(I,K,JV)
+           SSXZ(I,KP,L,JV)=SSXZ(I,KP,L,JV)-FXZ(I,K,JV)
+           SZZ(I,KP,L,JV)=SZZ(I,KP,L,JV)-FZZ(I,K,JV)
+           SSXY(I,KP,L,JV)=ALF1Q(I,K)*SSXY(I,KP,L,JV)
+           SYZ(I,KP,L,JV)=ALF1Q(I,K)*SYZ(I,KP,L,JV)
+C
+         ELSE
+C
+           F0 (I,K,JV)=ALF (I,K)* ( S0(I,K,L,JV)+ALF1(I,K)*
+     +             ( SY(I,K,L,JV)+ALF2(I,K)*SYY(I,K,L,JV) ) )
+           FY (I,K,JV)=ALFQ(I,K)*
+     +                 (SY(I,K,L,JV)+3.*ALF1(I,K)*SYY(I,K,L,JV))
+           FYY(I,K,JV)=ALF3(I,K)*SYY(I,K,L,JV)
+      FX (I,K,JV)=ALF (I,K)*(SSX(I,K,L,JV)+ALF1(I,K)*SSXY(I,K,L,JV))
+      FZ (I,K,JV)=ALF (I,K)*(SZ(I,K,L,JV)+ALF1(I,K)*SYZ(I,K,L,JV))
+           FXY(I,K,JV)=ALFQ(I,K)*SSXY(I,K,L,JV)
+           FYZ(I,K,JV)=ALFQ(I,K)*SYZ(I,K,L,JV)
+           FXX(I,K,JV)=ALF (I,K)*SSXX(I,K,L,JV)
+           FXZ(I,K,JV)=ALF (I,K)*SSXZ(I,K,L,JV)
+           FZZ(I,K,JV)=ALF (I,K)*SZZ(I,K,L,JV)
+C
+           S0 (I,K,L,JV)=S0 (I,K,L,JV)-F0 (I,K,JV)
+           SY (I,K,L,JV)=ALF1Q(I,K)*
+     +                  (SY(I,K,L,JV)-3.*ALF(I,K)*SYY(I,K,L,JV))
+           SYY(I,K,L,JV)=ALF4(I,K)*SYY(I,K,L,JV)
+           SSX (I,K,L,JV)=SSX (I,K,L,JV)-FX (I,K,JV)
+           SZ (I,K,L,JV)=SZ (I,K,L,JV)-FZ (I,K,JV)
+           SSXX(I,K,L,JV)=SSXX(I,K,L,JV)-FXX(I,K,JV)
+           SSXZ(I,K,L,JV)=SSXZ(I,K,L,JV)-FXZ(I,K,JV)
+           SZZ(I,K,L,JV)=SZZ(I,K,L,JV)-FZZ(I,K,JV)
+           SSXY(I,K,L,JV)=ALF1Q(I,K)*SSXY(I,K,L,JV)
+           SYZ(I,K,L,JV)=ALF1Q(I,K)*SYZ(I,K,L,JV)
+C
+         ENDIF
+C
+ 310  CONTINUE
+ 31   CONTINUE
+c     print*,'ap ADVYP 31'
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 32 K=1,LAT-1
+      KP=K+1
+      DO 320 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+           SM(I,K,L)=SM(I,K,L)+FM(I,K)
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+         ELSE
+           SM(I,KP,L)=SM(I,KP,L)+FM(I,K)
+           ALF(I,K)=FM(I,K)/SM(I,KP,L)
+         ENDIF
+C
+         ALFQ(I,K)=ALF(I,K)*ALF(I,K)
+         ALF1(I,K)=1.-ALF(I,K)
+         ALF1Q(I,K)=ALF1(I,K)*ALF1(I,K)
+         ALF2(I,K)=ALF1(I,K)-ALF(I,K)
+         ALF3(I,K)=ALF1(I,K)*ALF(I,K)
+C
+ 320  CONTINUE
+ 32   CONTINUE
+c     print*,'ap ADVYP 32'
+C
+      DO 33 JV=1,NTRA
+      DO 33 K=1,LAT-1
+      KP=K+1
+      DO 330 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+C
+         TEMPTM=-ALF(I,K)*S0(I,K,L,JV)+ALF1(I,K)*F0(I,K,JV)
+         S0 (I,K,L,JV)=S0(I,K,L,JV)+F0(I,K,JV)
+       SYY(I,K,L,JV)=ALFQ(I,K)*FYY(I,K,JV)+ALF1Q(I,K)*SYY(I,K,L,JV)
+     +  +5.*( ALF3(I,K)*(FY(I,K,JV)-SY(I,K,L,JV))+ALF2(I,K)*TEMPTM )
+         SY (I,K,L,JV)=ALF(I,K)*FY(I,K,JV)+ALF1(I,K)*SY(I,K,L,JV)
+     +            +3.*TEMPTM
+       SSXY(I,K,L,JV)=ALF (I,K)*FXY(I,K,JV)+ALF1(I,K)*SSXY(I,K,L,JV)
+     +         +3.*(ALF1(I,K)*FX (I,K,JV)-ALF (I,K)*SSX (I,K,L,JV))
+       SYZ(I,K,L,JV)=ALF (I,K)*FYZ(I,K,JV)+ALF1(I,K)*SYZ(I,K,L,JV)
+     +         +3.*(ALF1(I,K)*FZ (I,K,JV)-ALF (I,K)*SZ (I,K,L,JV))
+         SSX (I,K,L,JV)=SSX (I,K,L,JV)+FX (I,K,JV)
+         SZ (I,K,L,JV)=SZ (I,K,L,JV)+FZ (I,K,JV)
+         SSXX(I,K,L,JV)=SSXX(I,K,L,JV)+FXX(I,K,JV)
+         SSXZ(I,K,L,JV)=SSXZ(I,K,L,JV)+FXZ(I,K,JV)
+         SZZ(I,K,L,JV)=SZZ(I,K,L,JV)+FZZ(I,K,JV)
+C
+         ELSE
+C
+         TEMPTM=ALF(I,K)*S0(I,KP,L,JV)-ALF1(I,K)*F0(I,K,JV)
+         S0 (I,KP,L,JV)=S0(I,KP,L,JV)+F0(I,K,JV)
+       SYY(I,KP,L,JV)=ALFQ(I,K)*FYY(I,K,JV)+ALF1Q(I,K)*SYY(I,KP,L,JV)
+     +  +5.*( ALF3(I,K)*(SY(I,KP,L,JV)-FY(I,K,JV))-ALF2(I,K)*TEMPTM )
+         SY (I,KP,L,JV)=ALF(I,K)*FY(I,K,JV)+ALF1(I,K)*SY(I,KP,L,JV)
+     +                 +3.*TEMPTM
+       SSXY(I,KP,L,JV)=ALF(I,K)*FXY(I,K,JV)+ALF1(I,K)*SSXY(I,KP,L,JV)
+     +             +3.*(ALF(I,K)*SSX(I,KP,L,JV)-ALF1(I,K)*FX(I,K,JV))
+         SYZ(I,KP,L,JV)=ALF(I,K)*FYZ(I,K,JV)+ALF1(I,K)*SYZ(I,KP,L,JV)
+     +             +3.*(ALF(I,K)*SZ(I,KP,L,JV)-ALF1(I,K)*FZ(I,K,JV))
+         SSX (I,KP,L,JV)=SSX (I,KP,L,JV)+FX (I,K,JV)
+         SZ (I,KP,L,JV)=SZ (I,KP,L,JV)+FZ (I,K,JV)
+         SSXX(I,KP,L,JV)=SSXX(I,KP,L,JV)+FXX(I,K,JV)
+         SSXZ(I,KP,L,JV)=SSXZ(I,KP,L,JV)+FXZ(I,K,JV)
+         SZZ(I,KP,L,JV)=SZZ(I,KP,L,JV)+FZZ(I,K,JV)
+C
+         ENDIF
+C
+ 330  CONTINUE
+ 33   CONTINUE
+c     print*,'ap ADVYP 33'
+C
+C  traitement special pour le pole Sud (idem pole Nord)
+C
+      K=LAT
+C
+      SM0=0.
+      DO 40 JV=1,NTRA
+         S00(JV)=0.
+ 40   CONTINUE
+C
+      DO 41 I=1,LON
+C
+         IF(VGRI(I,K,L).GE.0.) THEN
+           FM(I,K)=VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+           SM(I,K,L)=SM(I,K,L)-FM(I,K)
+           SM0=SM0+FM(I,K)
+         ENDIF
+C
+         ALFQ(I,K)=ALF(I,K)*ALF(I,K)
+         ALF1(I,K)=1.-ALF(I,K)
+         ALF1Q(I,K)=ALF1(I,K)*ALF1(I,K)
+         ALF2(I,K)=ALF1(I,K)-ALF(I,K)
+         ALF3(I,K)=ALF(I,K)*ALFQ(I,K)
+         ALF4(I,K)=ALF1(I,K)*ALF1Q(I,K)
+C
+ 41   CONTINUE
+c     print*,'ap ADVYP 41'
+C
+      DO 42 JV=1,NTRA
+      DO 420 I=1,LON
+C
+         IF(VGRI(I,K,L).GE.0.) THEN
+           F0 (I,K,JV)=ALF(I,K)* ( S0(I,K,L,JV)+ALF1(I,K)*
+     +             ( SY(I,K,L,JV)+ALF2(I,K)*SYY(I,K,L,JV) ) )
+           S00(JV)=S00(JV)+F0(I,K,JV)
+C
+           S0 (I,K,L,JV)=S0 (I,K,L,JV)-F0 (I,K,JV)
+           SY (I,K,L,JV)=ALF1Q(I,K)*
+     +                  (SY(I,K,L,JV)-3.*ALF(I,K)*SYY(I,K,L,JV))
+           SYY(I,K,L,JV)=ALF4 (I,K)*SYY(I,K,L,JV)
+      SSX (I,K,L,JV)=ALF1(I,K)*(SSX(I,K,L,JV)-ALF(I,K)*SSXY(I,K,L,JV))
+      SZ (I,K,L,JV)=ALF1(I,K)*(SZ(I,K,L,JV)-ALF(I,K)*SYZ(I,K,L,JV))
+           SSXX(I,K,L,JV)=ALF1 (I,K)*SSXX(I,K,L,JV)
+           SSXZ(I,K,L,JV)=ALF1 (I,K)*SSXZ(I,K,L,JV)
+           SZZ(I,K,L,JV)=ALF1 (I,K)*SZZ(I,K,L,JV)
+           SSXY(I,K,L,JV)=ALF1Q(I,K)*SSXY(I,K,L,JV)
+           SYZ(I,K,L,JV)=ALF1Q(I,K)*SYZ(I,K,L,JV)
+         ENDIF
+C
+ 420  CONTINUE
+ 42   CONTINUE
+c     print*,'ap ADVYP 42'
+C
+      DO 43 I=1,LON
+         IF(VGRI(I,K,L).LT.0.) THEN
+           FM(I,K)=-VGRI(I,K,L)*DTY
+           ALF(I,K)=FM(I,K)/SM0
+         ENDIF
+ 43   CONTINUE
+c     print*,'ap ADVYP 43'
+C
+      DO 44 JV=1,NTRA
+      DO 440 I=1,LON
+         IF(VGRI(I,K,L).LT.0.) THEN
+           F0(I,K,JV)=ALF(I,K)*S00(JV)
+         ENDIF
+ 440  CONTINUE
+ 44   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 45 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+           SM(I,K,L)=SM(I,K,L)+FM(I,K)
+           ALF(I,K)=FM(I,K)/SM(I,K,L)
+         ENDIF
+C
+         ALFQ(I,K)=ALF(I,K)*ALF(I,K)
+         ALF1(I,K)=1.-ALF(I,K)
+         ALF1Q(I,K)=ALF1(I,K)*ALF1(I,K)
+         ALF2(I,K)=ALF1(I,K)-ALF(I,K)
+         ALF3(I,K)=ALF1(I,K)*ALF(I,K)
+C
+ 45   CONTINUE
+c     print*,'ap ADVYP 45'
+C
+      DO 46 JV=1,NTRA
+      DO 460 I=1,LON
+C
+         IF(VGRI(I,K,L).LT.0.) THEN
+C
+         TEMPTM=-ALF(I,K)*S0(I,K,L,JV)+ALF1(I,K)*F0(I,K,JV)
+         S0 (I,K,L,JV)=S0(I,K,L,JV)+F0(I,K,JV)
+         SYY(I,K,L,JV)=ALF1Q(I,K)*SYY(I,K,L,JV)
+     +           +5.*(-ALF3 (I,K)*SY (I,K,L,JV)+ALF2(I,K)*TEMPTM )
+         SY (I,K,L,JV)=ALF1(I,K)*SY (I,K,L,JV)+3.*TEMPTM
+      SSXY(I,K,L,JV)=ALF1(I,K)*SSXY(I,K,L,JV)-3.*ALF(I,K)*SSX(I,K,L,JV)
+      SYZ(I,K,L,JV)=ALF1(I,K)*SYZ(I,K,L,JV)-3.*ALF(I,K)*SZ(I,K,L,JV)
+C
+         ENDIF
+C
+ 460  CONTINUE
+ 46   CONTINUE
+c     print*,'ap ADVYP 46'
+C
+ 1    CONTINUE
+
+c--------------------------------------------------
+C     bouclage cyclique horizontal .
+     
+      DO l = 1,llm
+         DO jv = 1,ntra
+            DO j = 1,jjp1
+               SM(iip1,j,l) = SM(1,j,l)
+               S0(iip1,j,l,jv) = S0(1,j,l,jv)
+               SSX(iip1,j,l,jv) = SSX(1,j,l,jv)   
+               SY(iip1,j,l,jv) = SY(1,j,l,jv)
+               SZ(iip1,j,l,jv) = SZ(1,j,l,jv)
+            END DO
+         END DO
+      END DO
+
+c -------------------------------------------------------------------
+C *** Test  negativite:
+
+c      DO jv = 1,ntra
+c       DO l = 1,llm
+c         DO j = 1,jjp1
+c           DO i = 1,iip1
+c              IF (s0( i,j,l,jv ).lt.0.) THEN
+c                 PRINT*, '------ S0 < 0 en FIN ADVYP ---'
+c                 PRINT*, 'S0(',i,j,l,jv,')=', S0(i,j,l,jv)
+cc                 STOP
+c              ENDIF
+c           ENDDO
+c         ENDDO
+c       ENDDO
+c      ENDDO
+ 
+   
+c -------------------------------------------------------------------
+C *** Test : diag de la qtite totale de traceur dans
+C            l'atmosphere avant l'advection en Y
+ 
+       DO l = 1,llm
+         DO j = 1,jjp1
+           DO i = 1,iim
+              sqf = sqf + S0(i,j,l,ntra)
+           END DO
+         END DO
+       END DO
+      PRINT*,'---------- DIAG DANS ADVY - SORTIE --------'
+      PRINT*,'sqf=',sqf
+c     print*,'ap ADVYP fin'
+
+c-----------------------------------------------------------------
+C
+      RETURN
+      END
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advz.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advz.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advz.F	(revision 3330)
@@ -0,0 +1,320 @@
+!
+! $Header$
+!
+      SUBROUTINE advz(limit,dtz,w,sm,s0,sx,sy,sz)
+      IMPLICIT NONE
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                C
+C  first-order moments (FOM) advection of tracer in Z direction  C
+C                                                                C
+C  Source : Pascal Simon (Meteo,CNRM)                            C
+C  Adaptation : A.Armengaud (LGGE) juin 94                       C
+C                                                                C
+C                                                                C
+C  sont des arguments d'entree pour le s-pg...                   C
+C                                                                C
+C  dq est l'argument de sortie pour le s-pg                      C
+C                                                                C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+C  parametres principaux du modele
+C
+      include "dimensions.h"
+      include "paramet.h"
+
+C    #include "traceur.h"
+
+C  Arguments :
+C  -----------
+C  dtz : frequence fictive d'appel du transport 
+C  w : flux de masse en z en Pa.m2.s-1
+
+      INTEGER ntra
+      PARAMETER (ntra = 1)
+
+      REAL dtz
+      REAL w ( iip1,jjp1,llm )
+    
+C  moments: SM  total mass in each grid box
+C           S0  mass of tracer in each grid box
+C           Si  1rst order moment in i direction
+C
+      REAL SM(iip1,jjp1,llm)
+     +    ,S0(iip1,jjp1,llm,ntra)
+      REAL sx(iip1,jjp1,llm,ntra)
+     +    ,sy(iip1,jjp1,llm,ntra)
+     +    ,sz(iip1,jjp1,llm,ntra)
+
+
+C  Local :
+C  ------- 
+
+C  mass fluxes across the boundaries (UGRI,VGRI,WGRI)
+C  mass fluxes in kg
+C  declaration :
+
+      REAL WGRI(iip1,jjp1,0:llm)
+
+C
+C  the moments F are used as temporary  storage for 
+C  portions of grid boxes in transit at the current latitude
+C
+      REAL FM(iim,llm)
+      REAL F0(iim,llm,ntra),FX(iim,llm,ntra)
+      REAL FY(iim,llm,ntra),FZ(iim,llm,ntra)
+C
+C  work arrays
+C
+      REAL ALF(iim),ALF1(iim),ALFQ(iim),ALF1Q(iim)
+      REAL TEMPTM            ! Just temporal variable
+      REAL sqi,sqf
+C
+      LOGICAL LIMIT
+      INTEGER lon,lat,niv
+      INTEGER i,j,jv,k,l,lp
+
+      lon = iim
+      lat = jjp1
+      niv = llm 
+
+C *** Test de passage d'arguments ******
+ 
+c     DO 399 l = 1, llm
+c     DO 399 j = 1, jjp1
+c     DO 399 i = 1, iip1
+c        IF (S0(i,j,l,ntra) .lt. 0. ) THEN
+c           PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)
+c           print*, 'sx(',i,j,l,')=',sx(i,j,l,ntra)
+c           print*, 'sy(',i,j,l,')=',sy(i,j,l,ntra)
+c           print*, 'sz(',i,j,l,')=',sz(i,j,l,ntra)
+c           PRINT*, 'AIE !! debut ADVZ - pbl arg. passage dans ADVZ'
+c            STOP
+c        ENDIF
+  399 CONTINUE
+
+C-----------------------------------------------------------------
+C *** Test : diag de la qqtite totale de traceur 
+C            dans l'atmosphere avant l'advection en z
+      sqi = 0.
+      sqf = 0.
+
+      DO l = 1,llm
+         DO j = 1,jjp1
+            DO i = 1,iim
+cIM 240305            sqi = sqi + S0(i,j,l,9)
+               sqi = sqi + S0(i,j,l,ntra)
+            ENDDO
+         ENDDO
+      ENDDO
+      PRINT*,'-------- DIAG DANS ADVZ - ENTREE ---------'
+      PRINT*,'sqi=',sqi
+
+C-----------------------------------------------------------------
+C  Interface : adaptation nouveau modele
+C  -------------------------------------
+C
+C  Conversion du flux de masse en kg.s-1
+
+      DO 500 l = 1,llm
+         DO 500 j = 1,jjp1
+            DO 500 i = 1,iip1  
+c            wgri (i,j,llm+1-l) =  w (i,j,l) / g 
+               wgri (i,j,llm+1-l) =  w (i,j,l) 
+c             wgri (i,j,0) = 0.                ! a detruire ult.
+c             wgri (i,j,l) = 0.1               !    w (i,j,l) 
+c             wgri (i,j,llm) = 0.              ! a detruire ult.
+  500 CONTINUE
+         DO  j = 1,jjp1
+            DO i = 1,iip1  
+               wgri(i,j,0)=0.
+            enddo
+         enddo
+
+C-----------------------------------------------------------------
+  
+C  start here          
+C  boucle sur les latitudes
+C
+      DO 1 K=1,LAT
+C
+C  place limits on appropriate moments before transport
+C      (if flux-limiting is to be applied)
+C
+      IF(.NOT.LIMIT) GO TO 101
+C
+      DO 10 JV=1,NTRA
+      DO 10 L=1,NIV
+         DO 100 I=1,LON
+            sz(I,K,L,JV)=SIGN(AMIN1(AMAX1(S0(I,K,L,JV),0.),
+     +                              ABS(sz(I,K,L,JV))),sz(I,K,L,JV))
+ 100     CONTINUE
+ 10   CONTINUE
+C
+ 101  CONTINUE
+C
+C  boucle sur les niveaux intercouches de 1 a NIV-1
+C   (flux nul au sommet L=0 et a la base L=NIV)
+C
+C  calculate flux and moments between adjacent boxes
+C     (flux from LP to L if WGRI(L).lt.0, from L to LP if WGRI(L).gt.0)
+C  1- create temporary moments/masses for partial boxes in transit
+C  2- reajusts moments remaining in the box
+C
+      DO 11 L=1,NIV-1
+      LP=L+1
+C
+      DO 110 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+           FM(I,L)=-WGRI(I,K,L)*DTZ
+           ALF(I)=FM(I,L)/SM(I,K,LP)
+           SM(I,K,LP)=SM(I,K,LP)-FM(I,L)
+         ELSE
+           FM(I,L)=WGRI(I,K,L)*DTZ
+           ALF(I)=FM(I,L)/SM(I,K,L)
+           SM(I,K,L)=SM(I,K,L)-FM(I,L)
+         ENDIF
+C
+         ALFQ (I)=ALF(I)*ALF(I)
+         ALF1 (I)=1.-ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+C
+ 110  CONTINUE
+C
+      DO 111 JV=1,NTRA
+      DO 1110 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+C
+           F0(I,L,JV)=ALF (I)*( S0(I,K,LP,JV)-ALF1(I)*sz(I,K,LP,JV) )
+           FZ(I,L,JV)=ALFQ(I)*sz(I,K,LP,JV)
+           FX(I,L,JV)=ALF (I)*sx(I,K,LP,JV)
+           FY(I,L,JV)=ALF (I)*sy(I,K,LP,JV)
+C
+           S0(I,K,LP,JV)=S0(I,K,LP,JV)-F0(I,L,JV)
+           sz(I,K,LP,JV)=ALF1Q(I)*sz(I,K,LP,JV)
+           sx(I,K,LP,JV)=sx(I,K,LP,JV)-FX(I,L,JV)
+           sy(I,K,LP,JV)=sy(I,K,LP,JV)-FY(I,L,JV)
+C
+         ELSE
+C
+           F0(I,L,JV)=ALF (I)*(S0(I,K,L,JV)+ALF1(I)*sz(I,K,L,JV) )
+           FZ(I,L,JV)=ALFQ(I)*sz(I,K,L,JV)
+           FX(I,L,JV)=ALF (I)*sx(I,K,L,JV)
+           FY(I,L,JV)=ALF (I)*sy(I,K,L,JV)
+C
+           S0(I,K,L,JV)=S0(I,K,L,JV)-F0(I,L,JV)
+           sz(I,K,L,JV)=ALF1Q(I)*sz(I,K,L,JV)
+           sx(I,K,L,JV)=sx(I,K,L,JV)-FX(I,L,JV)
+           sy(I,K,L,JV)=sy(I,K,L,JV)-FY(I,L,JV)
+C
+         ENDIF
+C
+ 1110 CONTINUE
+ 111  CONTINUE
+C
+ 11   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 12 L=1,NIV-1
+      LP=L+1
+C
+      DO 120 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+           SM(I,K,L)=SM(I,K,L)+FM(I,L)
+           ALF(I)=FM(I,L)/SM(I,K,L)
+         ELSE
+           SM(I,K,LP)=SM(I,K,LP)+FM(I,L)
+           ALF(I)=FM(I,L)/SM(I,K,LP)
+         ENDIF
+C
+         ALF1(I)=1.-ALF(I)
+         ALFQ(I)=ALF(I)*ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+C
+ 120  CONTINUE
+C
+      DO 121 JV=1,NTRA
+      DO 1210 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+C
+           TEMPTM=-ALF(I)*S0(I,K,L,JV)+ALF1(I)*F0(I,L,JV)
+           S0(I,K,L,JV)=S0(I,K,L,JV)+F0(I,L,JV)
+           sz(I,K,L,JV)=ALF(I)*FZ(I,L,JV)+ALF1(I)*sz(I,K,L,JV)+3.*TEMPTM
+           sx(I,K,L,JV)=sx(I,K,L,JV)+FX(I,L,JV)
+           sy(I,K,L,JV)=sy(I,K,L,JV)+FY(I,L,JV)
+C
+         ELSE
+C
+           TEMPTM=ALF(I)*S0(I,K,LP,JV)-ALF1(I)*F0(I,L,JV)
+           S0(I,K,LP,JV)=S0(I,K,LP,JV)+F0(I,L,JV)
+           sz(I,K,LP,JV)=ALF(I)*FZ(I,L,JV)+ALF1(I)*sz(I,K,LP,JV)
+     +                  +3.*TEMPTM
+           sx(I,K,LP,JV)=sx(I,K,LP,JV)+FX(I,L,JV)
+           sy(I,K,LP,JV)=sy(I,K,LP,JV)+FY(I,L,JV)
+C
+         ENDIF
+C
+ 1210 CONTINUE
+ 121  CONTINUE
+C
+ 12   CONTINUE
+C
+C  fin de la boucle principale sur les latitudes
+C
+ 1    CONTINUE
+C
+C-------------------------------------------------------------
+C
+C ----------- AA Test en fin de ADVX ------ Controle des S*
+
+c     DO 9999 l = 1, llm
+c     DO 9999 j = 1, jjp1
+c     DO 9999 i = 1, iip1
+c        IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN 
+c           PRINT*, '-------------------'
+c           PRINT*, 'En fin de ADVZ'
+c           PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)
+c           print*, 'sx(',i,j,l,')=',sx(i,j,l,ntra)
+c           print*, 'sy(',i,j,l,')=',sy(i,j,l,ntra)
+c           print*, 'sz(',i,j,l,')=',sz(i,j,l,ntra)
+c           WRITE (*,*) 'On arrete !! - pbl en fin de ADVZ1'
+c            STOP
+c        ENDIF
+ 9999 CONTINUE
+
+C *** ------------------- bouclage cyclique  en X ------------
+      
+c      DO l = 1,llm
+c         DO j = 1,jjp1
+c            SM(iip1,j,l) = SM(1,j,l)
+c            S0(iip1,j,l,ntra) = S0(1,j,l,ntra)
+C            sx(iip1,j,l,ntra) = sx(1,j,l,ntra)
+c            sy(iip1,j,l,ntra) = sy(1,j,l,ntra)
+c            sz(iip1,j,l,ntra) = sz(1,j,l,ntra)
+c         ENDDO
+c      ENDDO
+           
+C-------------------------------------------------------------
+C *** Test : diag de la qqtite totale de traceur 
+C            dans l'atmosphere avant l'advection en z
+      DO l = 1,llm
+         DO j = 1,jjp1
+            DO i = 1,iim
+cIM 240305            sqf = sqf + S0(i,j,l,9)
+               sqf = sqf + S0(i,j,l,ntra)
+            ENDDO
+         ENDDO
+      ENDDO
+      PRINT*,'-------- DIAG DANS ADVZ - SORTIE ---------'
+      PRINT*,'sqf=', sqf
+
+C-------------------------------------------------------------
+      RETURN
+      END
+C_______________________________________________________________
+C_______________________________________________________________
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advzp.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advzp.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/advzp.F	(revision 3330)
@@ -0,0 +1,376 @@
+!
+! $Header$
+!
+      SUBROUTINE ADVZP(LIMIT,DTZ,W,SM,S0,SSX,SY,SZ
+     .                 ,SSXX,SSXY,SSXZ,SYY,SYZ,SZZ,ntra )
+
+      IMPLICIT NONE
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                 C
+C  second-order moments (SOM) advection of tracer in Z direction  C
+C                                                                 C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C                                                                 C
+C  Source : Pascal Simon ( Meteo, CNRM )                          C
+C  Adaptation : A.A. (LGGE)                                       C
+C  Derniere Modif : 19/11/95 LAST                                 C
+C                                                                 C
+C  sont les arguments d'entree pour le s-pg                       C
+C                                                                 C
+C  argument de sortie du s-pg                                     C
+C                                                                 C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+C Rem : Probleme aux poles il faut reecrire ce cas specifique
+C        Attention au sens de l'indexation
+C
+
+C
+C  parametres principaux du modele
+C
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+C
+C  Arguments :
+C  ----------
+C  dty : frequence fictive d'appel du transport
+C  parbu,pbarv : flux de masse en x et y en Pa.m2.s-1
+c
+        INTEGER lon,lat,niv
+        INTEGER i,j,jv,k,kp,l,lp
+        INTEGER ntra
+c        PARAMETER (ntra = 1)
+c
+        REAL dtz
+        REAL w ( iip1,jjp1,llm )
+c
+C  moments: SM  total mass in each grid box
+C           S0  mass of tracer in each grid box
+C           Si  1rst order moment in i direction
+C
+      REAL SM(iip1,jjp1,llm)
+     +    ,S0(iip1,jjp1,llm,ntra)
+      REAL SSX(iip1,jjp1,llm,ntra)
+     +    ,SY(iip1,jjp1,llm,ntra)
+     +    ,SZ(iip1,jjp1,llm,ntra)
+     +    ,SSXX(iip1,jjp1,llm,ntra)
+     +    ,SSXY(iip1,jjp1,llm,ntra)
+     +    ,SSXZ(iip1,jjp1,llm,ntra)
+     +    ,SYY(iip1,jjp1,llm,ntra)
+     +    ,SYZ(iip1,jjp1,llm,ntra)
+     +    ,SZZ(iip1,jjp1,llm,ntra)
+C
+C  Local :
+C  -------
+C
+C  mass fluxes across the boundaries (UGRI,VGRI,WGRI)
+C  mass fluxes in kg
+C  declaration :
+C
+      REAL WGRI(iip1,jjp1,0:llm)
+
+C Rem : UGRI et VGRI ne sont pas utilises dans
+C  cette subroutine ( advection en z uniquement )
+C  Rem 2 :le dimensionnement de VGRI depend de celui de pbarv
+C         attention a celui de WGRI
+C
+C  the moments F are similarly defined and used as temporary
+C  storage for portions of the grid boxes in transit
+C
+C  the moments Fij are used as temporary storage for
+C  portions of the grid boxes in transit at the current level
+C
+C  work arrays
+C
+C
+      REAL F0(iim,llm,ntra),FM(iim,llm)
+      REAL FX(iim,llm,ntra),FY(iim,llm,ntra)
+      REAL FZ(iim,llm,ntra)
+      REAL FXX(iim,llm,ntra),FXY(iim,llm,ntra)
+      REAL FXZ(iim,llm,ntra),FYY(iim,llm,ntra)
+      REAL FYZ(iim,llm,ntra),FZZ(iim,llm,ntra)
+      REAL S00(ntra)
+      REAL SM0             ! Just temporal variable
+C
+C  work arrays
+C
+      REAL ALF(iim),ALF1(iim)
+      REAL ALFQ(iim),ALF1Q(iim)
+      REAL ALF2(iim),ALF3(iim)
+      REAL ALF4(iim)
+      REAL TEMPTM          ! Just temporal variable
+      REAL SLPMAX,S1MAX,S1NEW,S2NEW
+c
+      REAL sqi,sqf
+      LOGICAL LIMIT
+
+      lon = iim         ! rem : Il est possible qu'un pbl. arrive ici
+      lat = jjp1        ! a cause des dim. differentes entre les
+      niv = llm         !       tab. S et VGRI 
+                    
+c-----------------------------------------------------------------
+C *** Test : diag de la qtite totale de traceur dans
+C            l'atmosphere avant l'advection en Y
+c 
+      sqi = 0.
+      sqf = 0.
+c
+      DO l = 1,llm
+         DO j = 1,jjp1
+           DO i = 1,iim
+              sqi = sqi + S0(i,j,l,ntra)
+           END DO
+         END DO
+      END DO
+      PRINT*,'---------- DIAG DANS ADVZP - ENTREE --------'
+      PRINT*,'sqi=',sqi
+
+c-----------------------------------------------------------------
+C  Interface : adaptation nouveau modele
+C  -------------------------------------
+C
+C  Conversion des flux de masses en kg
+
+      DO 500 l = 1,llm
+         DO 500 j = 1,jjp1
+            DO 500 i = 1,iip1  
+            wgri (i,j,llm+1-l) = w (i,j,l)  
+  500 CONTINUE
+      do j=1,jjp1
+         do i=1,iip1
+            wgri(i,j,0)=0.
+         enddo
+      enddo
+c
+cAA rem : Je ne suis pas sur du signe  
+cAA       Je ne suis pas sur pour le 0:llm
+c
+c-----------------------------------------------------------------
+C---------------------- START HERE -------------------------------
+C
+C  boucle sur les latitudes
+C
+      DO 1 K=1,LAT
+C
+C  place limits on appropriate moments before transport
+C      (if flux-limiting is to be applied)
+C
+      IF(.NOT.LIMIT) GO TO 101
+C
+      DO 10 JV=1,NTRA
+      DO 10 L=1,NIV
+         DO 100 I=1,LON
+            IF(S0(I,K,L,JV).GT.0.) THEN
+              SLPMAX=S0(I,K,L,JV)
+              S1MAX =1.5*SLPMAX
+              S1NEW =AMIN1(S1MAX,AMAX1(-S1MAX,SZ(I,K,L,JV)))
+              S2NEW =AMIN1( 2.*SLPMAX-ABS(S1NEW)/3. ,
+     +                     AMAX1(ABS(S1NEW)-SLPMAX,SZZ(I,K,L,JV)) )
+              SZ (I,K,L,JV)=S1NEW
+              SZZ(I,K,L,JV)=S2NEW
+              SSXZ(I,K,L,JV)=AMIN1(SLPMAX,AMAX1(-SLPMAX,SSXZ(I,K,L,JV)))
+              SYZ(I,K,L,JV)=AMIN1(SLPMAX,AMAX1(-SLPMAX,SYZ(I,K,L,JV)))
+            ELSE
+              SZ (I,K,L,JV)=0.
+              SZZ(I,K,L,JV)=0.
+              SSXZ(I,K,L,JV)=0.
+              SYZ(I,K,L,JV)=0.
+            ENDIF
+ 100     CONTINUE
+ 10   CONTINUE
+C
+ 101  CONTINUE
+C
+C  boucle sur les niveaux intercouches de 1 a NIV-1
+C   (flux nul au sommet L=0 et a la base L=NIV)
+C
+C  calculate flux and moments between adjacent boxes
+C     (flux from LP to L if WGRI(L).lt.0, from L to LP if WGRI(L).gt.0)
+C  1- create temporary moments/masses for partial boxes in transit
+C  2- reajusts moments remaining in the box
+C
+      DO 11 L=1,NIV-1
+      LP=L+1
+C
+      DO 110 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+           FM(I,L)=-WGRI(I,K,L)*DTZ
+           ALF(I)=FM(I,L)/SM(I,K,LP)
+           SM(I,K,LP)=SM(I,K,LP)-FM(I,L)
+         ELSE
+           FM(I,L)=WGRI(I,K,L)*DTZ
+           ALF(I)=FM(I,L)/SM(I,K,L)
+           SM(I,K,L)=SM(I,K,L)-FM(I,L)
+         ENDIF
+C
+         ALFQ (I)=ALF(I)*ALF(I)
+         ALF1 (I)=1.-ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+         ALF2 (I)=ALF1(I)-ALF(I)
+         ALF3 (I)=ALF(I)*ALFQ(I)
+         ALF4 (I)=ALF1(I)*ALF1Q(I)
+C
+ 110  CONTINUE
+C
+      DO 111 JV=1,NTRA
+      DO 1110 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+C
+           F0 (I,L,JV)=ALF (I)* ( S0(I,K,LP,JV)-ALF1(I)*
+     +          ( SZ(I,K,LP,JV)-ALF2(I)*SZZ(I,K,LP,JV) ) )
+           FZ (I,L,JV)=ALFQ(I)*(SZ(I,K,LP,JV)-3.*ALF1(I)*SZZ(I,K,LP,JV))
+           FZZ(I,L,JV)=ALF3(I)*SZZ(I,K,LP,JV)
+           FXZ(I,L,JV)=ALFQ(I)*SSXZ(I,K,LP,JV)
+           FYZ(I,L,JV)=ALFQ(I)*SYZ(I,K,LP,JV)
+           FX (I,L,JV)=ALF (I)*(SSX(I,K,LP,JV)-ALF1(I)*SSXZ(I,K,LP,JV))
+           FY (I,L,JV)=ALF (I)*(SY(I,K,LP,JV)-ALF1(I)*SYZ(I,K,LP,JV))
+           FXX(I,L,JV)=ALF (I)*SSXX(I,K,LP,JV)
+           FXY(I,L,JV)=ALF (I)*SSXY(I,K,LP,JV)
+           FYY(I,L,JV)=ALF (I)*SYY(I,K,LP,JV)
+C
+           S0 (I,K,LP,JV)=S0 (I,K,LP,JV)-F0 (I,L,JV)
+           SZ (I,K,LP,JV)=ALF1Q(I)
+     +                   *(SZ(I,K,LP,JV)+3.*ALF(I)*SZZ(I,K,LP,JV))
+           SZZ(I,K,LP,JV)=ALF4 (I)*SZZ(I,K,LP,JV)
+           SSXZ(I,K,LP,JV)=ALF1Q(I)*SSXZ(I,K,LP,JV)
+           SYZ(I,K,LP,JV)=ALF1Q(I)*SYZ(I,K,LP,JV)
+           SSX (I,K,LP,JV)=SSX (I,K,LP,JV)-FX (I,L,JV)
+           SY (I,K,LP,JV)=SY (I,K,LP,JV)-FY (I,L,JV)
+           SSXX(I,K,LP,JV)=SSXX(I,K,LP,JV)-FXX(I,L,JV)
+           SSXY(I,K,LP,JV)=SSXY(I,K,LP,JV)-FXY(I,L,JV)
+           SYY(I,K,LP,JV)=SYY(I,K,LP,JV)-FYY(I,L,JV)
+C
+         ELSE
+C
+           F0 (I,L,JV)=ALF (I)*(S0(I,K,L,JV)
+     +           +ALF1(I) * (SZ(I,K,L,JV)+ALF2(I)*SZZ(I,K,L,JV)) )
+           FZ (I,L,JV)=ALFQ(I)*(SZ(I,K,L,JV)+3.*ALF1(I)*SZZ(I,K,L,JV))
+           FZZ(I,L,JV)=ALF3(I)*SZZ(I,K,L,JV)
+           FXZ(I,L,JV)=ALFQ(I)*SSXZ(I,K,L,JV)
+           FYZ(I,L,JV)=ALFQ(I)*SYZ(I,K,L,JV)
+           FX (I,L,JV)=ALF (I)*(SSX(I,K,L,JV)+ALF1(I)*SSXZ(I,K,L,JV))
+           FY (I,L,JV)=ALF (I)*(SY(I,K,L,JV)+ALF1(I)*SYZ(I,K,L,JV))
+           FXX(I,L,JV)=ALF (I)*SSXX(I,K,L,JV)
+           FXY(I,L,JV)=ALF (I)*SSXY(I,K,L,JV)
+           FYY(I,L,JV)=ALF (I)*SYY(I,K,L,JV)
+C
+           S0 (I,K,L,JV)=S0 (I,K,L,JV)-F0(I,L,JV)
+           SZ (I,K,L,JV)=ALF1Q(I)*(SZ(I,K,L,JV)-3.*ALF(I)*SZZ(I,K,L,JV))
+           SZZ(I,K,L,JV)=ALF4 (I)*SZZ(I,K,L,JV)
+           SSXZ(I,K,L,JV)=ALF1Q(I)*SSXZ(I,K,L,JV)
+           SYZ(I,K,L,JV)=ALF1Q(I)*SYZ(I,K,L,JV)
+           SSX (I,K,L,JV)=SSX (I,K,L,JV)-FX (I,L,JV)
+           SY (I,K,L,JV)=SY (I,K,L,JV)-FY (I,L,JV)
+           SSXX(I,K,L,JV)=SSXX(I,K,L,JV)-FXX(I,L,JV)
+           SSXY(I,K,L,JV)=SSXY(I,K,L,JV)-FXY(I,L,JV)
+           SYY(I,K,L,JV)=SYY(I,K,L,JV)-FYY(I,L,JV)
+C
+         ENDIF
+C
+ 1110 CONTINUE
+ 111  CONTINUE
+C
+ 11   CONTINUE
+C
+C  puts the temporary moments Fi into appropriate neighboring boxes
+C
+      DO 12 L=1,NIV-1
+      LP=L+1
+C
+      DO 120 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+           SM(I,K,L)=SM(I,K,L)+FM(I,L)
+           ALF(I)=FM(I,L)/SM(I,K,L)
+         ELSE
+           SM(I,K,LP)=SM(I,K,LP)+FM(I,L)
+           ALF(I)=FM(I,L)/SM(I,K,LP)
+         ENDIF
+C
+         ALF1(I)=1.-ALF(I)
+         ALFQ(I)=ALF(I)*ALF(I)
+         ALF1Q(I)=ALF1(I)*ALF1(I)
+         ALF2(I)=ALF(I)*ALF1(I)
+         ALF3(I)=ALF1(I)-ALF(I)
+C
+ 120  CONTINUE
+C
+      DO 121 JV=1,NTRA
+      DO 1210 I=1,LON
+C
+         IF(WGRI(I,K,L).LT.0.) THEN
+C
+           TEMPTM=-ALF(I)*S0(I,K,L,JV)+ALF1(I)*F0(I,L,JV)
+           S0 (I,K,L,JV)=S0(I,K,L,JV)+F0(I,L,JV)
+           SZZ(I,K,L,JV)=ALFQ(I)*FZZ(I,L,JV)+ALF1Q(I)*SZZ(I,K,L,JV)
+     +        +5.*( ALF2(I)*(FZ(I,L,JV)-SZ(I,K,L,JV))+ALF3(I)*TEMPTM )
+           SZ (I,K,L,JV)=ALF (I)*FZ (I,L,JV)+ALF1 (I)*SZ (I,K,L,JV)
+     +                  +3.*TEMPTM
+           SSXZ(I,K,L,JV)=ALF (I)*FXZ(I,L,JV)+ALF1 (I)*SSXZ(I,K,L,JV)
+     +              +3.*(ALF1(I)*FX (I,L,JV)-ALF  (I)*SSX (I,K,L,JV))
+           SYZ(I,K,L,JV)=ALF (I)*FYZ(I,L,JV)+ALF1 (I)*SYZ(I,K,L,JV)
+     +              +3.*(ALF1(I)*FY (I,L,JV)-ALF  (I)*SY (I,K,L,JV))
+           SSX (I,K,L,JV)=SSX (I,K,L,JV)+FX (I,L,JV)
+           SY (I,K,L,JV)=SY (I,K,L,JV)+FY (I,L,JV)
+           SSXX(I,K,L,JV)=SSXX(I,K,L,JV)+FXX(I,L,JV)
+           SSXY(I,K,L,JV)=SSXY(I,K,L,JV)+FXY(I,L,JV)
+           SYY(I,K,L,JV)=SYY(I,K,L,JV)+FYY(I,L,JV)
+C
+         ELSE
+C
+           TEMPTM=ALF(I)*S0(I,K,LP,JV)-ALF1(I)*F0(I,L,JV)
+           S0 (I,K,LP,JV)=S0(I,K,LP,JV)+F0(I,L,JV)
+           SZZ(I,K,LP,JV)=ALFQ(I)*FZZ(I,L,JV)+ALF1Q(I)*SZZ(I,K,LP,JV)
+     +        +5.*( ALF2(I)*(SZ(I,K,LP,JV)-FZ(I,L,JV))-ALF3(I)*TEMPTM )
+           SZ (I,K,LP,JV)=ALF (I)*FZ(I,L,JV)+ALF1(I)*SZ(I,K,LP,JV)
+     +                   +3.*TEMPTM
+           SSXZ(I,K,LP,JV)=ALF(I)*FXZ(I,L,JV)+ALF1(I)*SSXZ(I,K,LP,JV)
+     +                   +3.*(ALF(I)*SSX(I,K,LP,JV)-ALF1(I)*FX(I,L,JV))
+           SYZ(I,K,LP,JV)=ALF(I)*FYZ(I,L,JV)+ALF1(I)*SYZ(I,K,LP,JV)
+     +                   +3.*(ALF(I)*SY(I,K,LP,JV)-ALF1(I)*FY(I,L,JV))
+           SSX (I,K,LP,JV)=SSX (I,K,LP,JV)+FX (I,L,JV)
+           SY (I,K,LP,JV)=SY (I,K,LP,JV)+FY (I,L,JV)
+           SSXX(I,K,LP,JV)=SSXX(I,K,LP,JV)+FXX(I,L,JV)
+           SSXY(I,K,LP,JV)=SSXY(I,K,LP,JV)+FXY(I,L,JV)
+           SYY(I,K,LP,JV)=SYY(I,K,LP,JV)+FYY(I,L,JV)
+C
+         ENDIF
+C
+ 1210 CONTINUE
+ 121  CONTINUE
+C
+ 12   CONTINUE
+C
+C  fin de la boucle principale sur les latitudes
+C
+ 1    CONTINUE
+C
+      DO l = 1,llm
+      DO j = 1,jjp1
+          SM(iip1,j,l) = SM(1,j,l)
+          S0(iip1,j,l,ntra) = S0(1,j,l,ntra)
+          SSX(iip1,j,l,ntra) = SSX(1,j,l,ntra)
+          SY(iip1,j,l,ntra) = SY(1,j,l,ntra)
+          SZ(iip1,j,l,ntra) = SZ(1,j,l,ntra)
+      ENDDO
+      ENDDO
+c                                                                                C-------------------------------------------------------------
+C *** Test : diag de la qqtite totale de tarceur
+C            dans l'atmosphere avant l'advection en z
+       DO l = 1,llm
+       DO j = 1,jjp1
+       DO i = 1,iim
+          sqf = sqf + S0(i,j,l,ntra)
+       ENDDO
+       ENDDO
+       ENDDO
+       PRINT*,'-------- DIAG DANS ADVZ - SORTIE ---------'
+       PRINT*,'sqf=', sqf
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/bernoui.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/bernoui.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/bernoui.F	(revision 3330)
@@ -0,0 +1,57 @@
+!
+! $Header$
+!
+      SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern)
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:   P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c     calcul de la fonction de Bernouilli aux niveaux s  .....
+c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......
+c          bern       est un  argument de sortie pour le s-pg  ......
+c
+c    fonction de Bernouilli = bern = filtre de( geopotentiel + 
+c                              energ.cinet.)
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c   Decalrations:
+c   -------------
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c   Arguments:
+c   ----------
+c
+      INTEGER nlay,ngrid
+      REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay)
+c
+c   Local:
+c   ------
+c
+      INTEGER   ijl
+c
+c-----------------------------------------------------------------------
+c   calcul de Bernouilli:
+c   ---------------------
+c
+      DO 4 ijl = 1,ngrid*nlay
+         pbern( ijl ) =  pphi( ijl ) + pecin( ijl )
+   4  CONTINUE
+c
+c-----------------------------------------------------------------------
+c   filtre:
+c   -------
+c
+      CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )
+c
+c-----------------------------------------------------------------------
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/caldyn0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/caldyn0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/caldyn0.F90	(revision 3330)
@@ -0,0 +1,55 @@
+SUBROUTINE caldyn0(itau,ucov,vcov,teta,ps,masse,pk,phis,phi,w,pbaru,pbarv,time)
+!
+!-------------------------------------------------------------------------------
+! Author: P. Le Van ; modif. 04/93: F.Forget.
+!-------------------------------------------------------------------------------
+! Purpose: Compute dynamic tendencies.
+!-------------------------------------------------------------------------------
+  USE control_mod, ONLY: resetvarc 
+  USE comvert_mod, ONLY: ap, bp
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  INTEGER, INTENT(IN)  :: itau                      !--- TIME STEP INDEX
+  REAL,    INTENT(IN)  :: vcov (ip1jm    ,llm)      !--- V COVARIANT WIND
+  REAL,    INTENT(IN)  :: ucov (ip1jmp1  ,llm)      !--- U COVARIANT WIND
+  REAL,    INTENT(IN)  :: teta (ip1jmp1  ,llm)      !--- POTENTIAL TEMPERATURE
+  REAL,    INTENT(IN)  :: ps   (ip1jmp1)            !--- GROUND PRESSURE
+  REAL,    INTENT(OUT) :: masse(ip1jmp1  ,llm)      !--- MASS IN EACH CELL
+  REAL,    INTENT(IN)  :: pk   (iip1,jjp1,llm)      !--- PRESSURE
+  REAL,    INTENT(IN)  :: phis (ip1jmp1)            !--- GROUND GEOPOTENTIAL
+  REAL,    INTENT(IN)  :: phi  (ip1jmp1  ,llm)      !--- 3D GEOPOTENTIAL
+  REAL,    INTENT(OUT) :: w    (ip1jmp1  ,llm)      !--- VERTICAL WIND
+  REAL,    INTENT(OUT) :: pbaru(ip1jmp1  ,llm)      !--- U MASS FLUX
+  REAL,    INTENT(OUT) :: pbarv(ip1jm    ,llm)      !--- V MASS FLUX
+  REAL,    INTENT(IN)  :: time                      !--- TIME
+!===============================================================================
+! Local variables:
+  REAL, DIMENSION(ip1jmp1,llmp1) :: p
+  REAL, DIMENSION(ip1jmp1,llm)   :: ucont, massebx, ang, ecin, convm, bern
+  REAL, DIMENSION(ip1jmp1)       :: dp
+  REAL, DIMENSION(ip1jm  ,llm)   :: vcont, masseby, massebxy, vorpot
+  REAL, DIMENSION(ip1jm)         :: psexbarxy
+  INTEGER                        :: ij, l
+!===============================================================================
+  CALL covcont  ( llm    , ucov    , vcov , ucont, vcont        )
+  CALL pression ( ip1jmp1, ap      , bp   ,  ps  , p            )
+  CALL psextbar (   ps   , psexbarxy                            )
+  CALL massdair (    p   , masse                                )
+  CALL massbar  (   masse, massebx , masseby                    )
+  CALL massbarxy(   masse, massebxy                             )
+  CALL flumass  ( massebx, masseby , vcont, ucont ,pbaru, pbarv )
+  CALL convmas  (   pbaru, pbarv   , convm                      )
+  CALL vitvert  ( convm  , w                                    )
+  CALL tourpot  ( vcov   , ucov    , massebxy  , vorpot         )
+  CALL enercin  ( vcov   , ucov    , vcont     , ucont  , ecin  )
+  CALL bernoui  ( ip1jmp1, llm     , phi       , ecin   , bern  )
+  DO l=1,llm; ang(:,l) = ucov(:,l) + constang(:); END DO
+  resetvarc=.true. ! force a recomputation of initial values in sortvarc
+  dp(:)=convm(:,1)/airesurg(:)
+  CALL sortvarc( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )
+
+END SUBROUTINE caldyn0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/clesph0.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/clesph0.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/clesph0.h	(revision 3330)
@@ -0,0 +1,11 @@
+!
+! $Header$
+!
+c..include clesph0.h
+c
+       COMMON/clesph0/cycle_diurne, soil_model,new_oliq, ok_orodr ,
+     ,                ok_orolf ,ok_limitvrai, nbapp_rad, iflag_con
+c
+       LOGICAL cycle_diurne,soil_model,ok_orodr,ok_orolf,new_oliq
+       LOGICAL ok_limitvrai
+       INTEGER nbapp_rad, iflag_con
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/com_io_dyn_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/com_io_dyn_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/com_io_dyn_mod.F90	(revision 3330)
@@ -0,0 +1,31 @@
+!
+! $Id $
+!
+module com_io_dyn_mod
+
+  implicit none 
+
+! Names of various files for outputs (in the dynamics)
+  ! to store instantaneous values:
+  character(len=18),parameter :: dynhist_file="dyn_hist.nc" ! on scalar grid
+  character(len=18),parameter :: dynhistv_file="dyn_histv.nc" ! on v grid
+  character(len=18),parameter :: dynhistu_file="dyn_histu.nc" ! on u grid
+
+  ! to store averaged values:
+  character(len=18),parameter :: dynhistave_file="dyn_hist_ave.nc"
+  character(len=18),parameter :: dynhistvave_file="dyn_histv_ave.nc"
+  character(len=18),parameter :: dynhistuave_file="dyn_histu_ave.nc"
+  
+! Ids of various files for outputs (in the dynamics)
+
+  ! instantaneous (these are set by inithist.F)
+  integer :: histid
+  integer :: histvid
+  integer :: histuid
+  
+  ! averages (these are set by initdynav.F)
+  integer :: histaveid
+  integer :: histvaveid
+  integer :: histuaveid
+  
+end module com_io_dyn_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comconst_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comconst_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comconst_mod.F90	(revision 3330)
@@ -0,0 +1,37 @@
+!
+! $Id$
+!
+
+MODULE comconst_mod
+
+IMPLICIT NONE  
+
+      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
+      REAL dtvr ! dynamical time step (in s)
+      REAL daysec !length (in s) of a standard day
+      REAL pi    ! something like 3.14159....
+      REAL dtphys ! (s) time step for the physics
+      REAL dtdiss ! (s) time step for the dissipation
+      REAL rad ! (m) radius of the planet
+      REAL r ! Reduced Gas constant r=R/mu
+             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
+      REAL cpp   ! Specific heat Cp (J.kg-1.K-1)
+      REAL kappa ! kappa=R/Cp 
+      REAL cotot
+      REAL unsim ! = 1./iim
+      REAL g ! (m/s2) gravity
+      REAL omeg ! (rad/s) rotation rate of the planet
+      REAL dissip_factz,dissip_deltaz,dissip_zref
+! top_bound sponge:
+      INTEGER iflag_top_bound ! sponge type
+      INTEGER ngroup ! parameter to group points (along longitude) near poles
+      INTEGER mode_top_bound  ! sponge mode
+      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
+      REAL daylen ! length of solar day, in 'standard' day length
+      REAL year_day ! Number of standard days in a year
+      REAL molmass ! (g/mol) molar mass of the atmosphere
+
+      REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
+
+
+END MODULE comconst_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissip.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissip.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissip.h	(revision 3330)
@@ -0,0 +1,15 @@
+!
+! $Header$
+!
+!-----------------------------------------------------------------------
+! INCLUDE comdissip.h
+
+      COMMON/comdissip/                                                 &
+     &    niterdis,coefdis,tetavel,tetatemp,gamdissip
+
+
+      INTEGER niterdis
+
+      REAL tetavel,tetatemp,coefdis,gamdissip
+
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissipn.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissipn.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissipn.h	(revision 3330)
@@ -0,0 +1,20 @@
+!
+! $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)
+!-----------------------------------------------------------------------
+! INCLUDE comdissipn.h
+
+      REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
+!
+      COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
+     &                        cdivu,      crot,         cdivh
+
+!
+!    Les parametres de ce common proviennent des calculs effectues dans 
+!             Inidissip  .
+!
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissnew.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissnew.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comdissnew.h	(revision 3330)
@@ -0,0 +1,30 @@
+!
+! $Id$
+!
+!
+!  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)
+!
+!-----------------------------------------------------------------------
+! INCLUDE 'comdissnew.h'
+
+      COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv,  &
+     &                   tetagrot,tetatemp,coefdis, vert_prof_dissip
+
+      LOGICAL lstardis
+      INTEGER nitergdiv, nitergrot, niterh
+
+      integer vert_prof_dissip ! vertical profile of horizontal dissipation
+!     Allowed values:
+!     0: rational fraction, function of pressure
+!     1: tanh of altitude
+
+      REAL     tetagdiv, tetagrot,  tetatemp, coefdis
+
+!
+! ... Les parametres de ce common comdissnew sont  lues par defrun_new 
+!              sur le fichier  run.def    ....
+!
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comgeom.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comgeom.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comgeom.h	(revision 3330)
@@ -0,0 +1,33 @@
+!
+! $Header$
+!
+!CDK comgeom
+      COMMON/comgeom/                                                   &
+     & cu(ip1jmp1),cv(ip1jm),unscu2(ip1jmp1),unscv2(ip1jm),             &
+     & aire(ip1jmp1),airesurg(ip1jmp1),aireu(ip1jmp1),                  &
+     & airev(ip1jm),unsaire(ip1jmp1),apoln,apols,                       &
+     & unsairez(ip1jm),airuscv2(ip1jm),airvscu2(ip1jm),                 &
+     & aireij1(ip1jmp1),aireij2(ip1jmp1),aireij3(ip1jmp1),              &
+     & aireij4(ip1jmp1),alpha1(ip1jmp1),alpha2(ip1jmp1),                &
+     & alpha3(ip1jmp1),alpha4(ip1jmp1),alpha1p2(ip1jmp1),               &
+     & alpha1p4(ip1jmp1),alpha2p3(ip1jmp1),alpha3p4(ip1jmp1),           &
+     & fext(ip1jm),constang(ip1jmp1),rlatu(jjp1),rlatv(jjm),            &
+     & rlonu(iip1),rlonv(iip1),cuvsurcv(ip1jm),cvsurcuv(ip1jm),         &
+     & cvusurcu(ip1jmp1),cusurcvu(ip1jmp1),cuvscvgam1(ip1jm),           &
+     & cuvscvgam2(ip1jm),cvuscugam1(ip1jmp1),                           &
+     & cvuscugam2(ip1jmp1),cvscuvgam(ip1jm),cuscvugam(ip1jmp1),         &
+     & unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2,                 &
+     & unsair_gam1(ip1jmp1),unsair_gam2(ip1jmp1),unsairz_gam(ip1jm),    &
+     & aivscu2gam(ip1jm),aiuscv2gam(ip1jm),xprimu(iip1),xprimv(iip1)
+
+!
+        REAL                                                            &
+     & cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,unsaire,apoln     ,&
+     & apols,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4,&
+     & alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,&
+     & fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2     ,&
+     & cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1,unsapolnga2&
+     & ,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2,unsairz_gam    ,&
+     & aivscu2gam ,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu,cusurcvu,xprimu&
+     & , xprimv
+!
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comgeom2.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comgeom2.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comgeom2.h	(revision 3330)
@@ -0,0 +1,33 @@
+!
+! $Header$
+!
+!CDK comgeom2
+      COMMON/comgeom/                                                   &
+     & cu(iip1,jjp1),cv(iip1,jjm),unscu2(iip1,jjp1),unscv2(iip1,jjm)  , &
+     & aire(iip1,jjp1),airesurg(iip1,jjp1),aireu(iip1,jjp1)           , &
+     & airev(iip1,jjm),unsaire(iip1,jjp1),apoln,apols                 , &
+     & unsairez(iip1,jjm),airuscv2(iip1,jjm),airvscu2(iip1,jjm)       , &
+     & aireij1(iip1,jjp1),aireij2(iip1,jjp1),aireij3(iip1,jjp1)       , &
+     & aireij4(iip1,jjp1),alpha1(iip1,jjp1),alpha2(iip1,jjp1)         , &
+     & alpha3(iip1,jjp1),alpha4(iip1,jjp1),alpha1p2(iip1,jjp1)        , &
+     & alpha1p4(iip1,jjp1),alpha2p3(iip1,jjp1),alpha3p4(iip1,jjp1)    , &
+     & fext(iip1,jjm),constang(iip1,jjp1), rlatu(jjp1),rlatv(jjm),      &
+     & rlonu(iip1),rlonv(iip1),cuvsurcv(iip1,jjm),cvsurcuv(iip1,jjm)  , &
+     & cvusurcu(iip1,jjp1),cusurcvu(iip1,jjp1)                        , &
+     & cuvscvgam1(iip1,jjm),cuvscvgam2(iip1,jjm),cvuscugam1(iip1,jjp1), &
+     & cvuscugam2(iip1,jjp1),cvscuvgam(iip1,jjm),cuscvugam(iip1,jjp1) , &
+     & unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2                , &
+     & unsair_gam1(iip1,jjp1),unsair_gam2(iip1,jjp1)                  , &
+     & unsairz_gam(iip1,jjm),aivscu2gam(iip1,jjm),aiuscv2gam(iip1,jjm)  &
+     & , xprimu(iip1),xprimv(iip1)
+
+
+      REAL                                                               &
+     & cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,apoln,apols,unsaire &
+     & ,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4     , &
+     & alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 , &
+     & fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2     , &
+     & cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1           , &
+     & unsapolnga2,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2     , &
+     & unsairz_gam,aivscu2gam,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu    , &
+     & cusurcvu,xprimu,xprimv
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comvert_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comvert_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/comvert_mod.F90	(revision 3330)
@@ -0,0 +1,41 @@
+!
+! $Id$
+!
+MODULE comvert_mod
+
+IMPLICIT NONE  
+
+PRIVATE
+INCLUDE "dimensions.h"
+
+PUBLIC :: ap,bp,presnivs,dpres,sig,ds,pa,preff,nivsigs,nivsig, &
+          aps,bps,scaleheight,pseudoalt,disvert_type, pressure_exner
+
+REAL ap(llm+1) ! hybrid pressure contribution at interlayers
+REAL bp (llm+1) ! hybrid sigma contribution at interlayer
+REAL presnivs(llm) ! (reference) pressure at mid-layers
+REAL dpres(llm)
+REAL sig(llm+1)
+REAL ds(llm)
+REAL pa ! reference pressure (Pa) at which hybrid coordinates
+        ! become purely pressure (more or less)
+REAL preff  ! reference surface pressure (Pa)
+REAL nivsigs(llm)
+REAL nivsig(llm+1)
+REAL aps(llm) ! hybrid pressure contribution at mid-layers
+REAL bps(llm) ! hybrid sigma contribution at mid-layers
+REAL scaleheight ! atmospheric (reference) scale height (km)
+REAL pseudoalt(llm) ! pseudo-altitude of model levels (km), based on presnivs(),
+                     ! preff and scaleheight
+
+INTEGER disvert_type ! type of vertical discretization:
+                     ! 1: Earth (default for planet_type==earth),
+                     !     automatic generation
+                     ! 2: Planets (default for planet_type!=earth),
+                     !     using 'z2sig.def' (or 'esasig.def) file
+
+LOGICAL pressure_exner
+!     compute pressure inside layers using Exner function, else use mean
+!     of pressure values at interfaces
+
+END MODULE comvert_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/conf_dat_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/conf_dat_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/conf_dat_m.F90	(revision 3330)
@@ -0,0 +1,235 @@
+MODULE conf_dat_m
+!
+!*******************************************************************************
+
+  PRIVATE
+  PUBLIC :: conf_dat2d, conf_dat3d
+
+
+CONTAINS
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE conf_dat2d(title, xd, yd, xf, yf, champd, interbar)
+!
+!-------------------------------------------------------------------------------
+! Author: P. Le Van
+!-------------------------------------------------------------------------------
+! Purpose: Configure the 2D data field "champd" so that:
+!     - Longitudes are in [ -pi     pi   ]
+!     - Latitudes  are in [  pi/2. -pi/2 ]
+!  * xd / yd are initial lon / lats.
+!  * xf / yf are output  lon / lats, possibly modified to satisfy configuration.
+!  * interbar is TRUE for barycentric interpolation.
+!-------------------------------------------------------------------------------
+  USE assert_eq_m, ONLY: assert_eq
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN)    :: title
+  REAL,             INTENT(IN)    :: xd(:), yd(:)  ! dim (lons) (lats)
+  REAL,             INTENT(INOUT) :: xf(:), yf(:)  ! dim (lons) (lats)
+  REAL,             INTENT(INOUT) :: champd(:,:)   ! dim (lons,lats)
+  LOGICAL,          INTENT(IN)    :: interbar
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="conf_dat2d"
+  INTEGER :: i, j, ip180, ind, lons, lats
+  LOGICAL :: radlon, invlon ,radlat, invlat
+  REAL    :: pi, pis2, depi, rlatmin, rlatmax, oldxd1
+  REAL, ALLOCATABLE :: xtemp(:) , ytemp(:), champf(:,:)
+!-------------------------------------------------------------------------------
+  lons=assert_eq(SIZE(xd),SIZE(xf),SIZE(champd,1),TRIM(modname)//" lons")
+  lats=assert_eq(SIZE(yd),SIZE(yf),SIZE(champd,2),TRIM(modname)//" lats")
+  ALLOCATE(xtemp(lons),ytemp(lats)); xtemp(:)=xd(:); ytemp(:)=yd(:)
+  ALLOCATE(champf(lons,lats))
+  pi = 2. * ASIN(1.) 
+  pis2 = pi/2.
+  depi = 2. * pi
+  radlon=.FALSE.; invlon=.FALSE.
+  IF     (xtemp(1)>=-pi-0.5.AND.xtemp(lons)<=  pi+0.5) THEN
+    radlon = .TRUE.;  invlon = .FALSE.
+  ELSE IF(xtemp(1)>=   -0.5.AND.xtemp(lons)<=depi+0.5) THEN
+    radlon = .TRUE.;  invlon = .TRUE.
+  ELSE IF(xtemp(1)>= -180.5.AND.xtemp(lons)<=   180.5) THEN
+    radlon = .FALSE.; invlon = .FALSE.
+  ELSE IF(xtemp(1)>=   -0.5.AND.xtemp(lons)<=   360.5) THEN
+    radlon = .FALSE.; invlon = .TRUE.
+  ELSE; WRITE(6,*) 'Problems with data longitudes for file '//TRIM(title)
+  END IF
+  invlat = ytemp(1)<ytemp(lats)
+  rlatmin = MIN( ytemp(1), ytemp(lats) )
+  rlatmax = MAX( ytemp(1), ytemp(lats) )
+      
+  IF     (rlatmin>=-pis2-0.5.AND.rlatmax<=pis2+0.5) THEN; radlat = .TRUE.
+  ELSE IF(rlatmin>= -90.-0.5.AND.rlatmax<= 90.+0.5) THEN; radlat = .FALSE.
+  ELSE; WRITE(6,*) 'Problems with data latitudes for file '//TRIM(title)
+  END IF
+
+  IF(.NOT.radlon) xtemp(:)=xtemp(:)*pi/180.
+  IF(.NOT.radlat) ytemp(:)=ytemp(:)*pi/180.
+
+!--- FLIPPED LONGITUDES
+  IF(invlon) THEN
+    champf(:,:)=champd(:,:); xf(:)=xtemp(:)
+
+  !--- Longitudes rotated to get them in [ -pi pi] interval.
+    DO i=1,lons;      IF(xf(i)>pi) EXIT;                   END DO; ip180 = i
+    DO i=1,lons;      IF(xf(i)>pi) xf(i)=xf(i)-depi;       END DO
+    DO i= ip180,lons; ind=i-ip180+1; xtemp(ind)=xf(i);     END DO
+    DO i= ind+1,lons;                xtemp(i  )=xf(i-ind); END DO
+
+  !--- Longitudes rotated in champf
+    DO j=1,lats
+      DO i=ip180,lons; ind=i-ip180+1; champd(ind,j)=champf(i    ,j); END DO
+      DO i=ind+1,lons;                champd(i  ,j)=champf(i-ind,j); END DO
+    END DO
+  END IF
+
+!--- FLIPPED LATITUDES
+  IF(invlat) THEN
+    yf(:)=ytemp(:)
+    champf(:,:)=champd(:,:)
+    ytemp(lats:1:-1)=yf(:)
+    DO j=1,lats; champd(:,lats-j+1)=champf(:,j); END DO
+  END IF
+
+!--- FOR BARYCENTRIC INTERPOLATION
+  IF(interbar) THEN
+    oldxd1 = xtemp(1)
+    xtemp(1:lons-1)=0.5*(xtemp(1:lons-1)+xtemp(2:lons))
+    xtemp(  lons  )=0.5*(xtemp(  lons  )+oldxd1+depi)
+    ytemp(1:lats-1)=0.5*(ytemp(1:lats-1)+ytemp(2:lats))
+  END IF
+  DEALLOCATE(champf)
+  xf(:)=xtemp(:); DEALLOCATE(xtemp)
+  yf(:)=ytemp(:); DEALLOCATE(ytemp)
+
+END SUBROUTINE conf_dat2d
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE conf_dat3d(title, xd, yd, zd, xf, yf, zf, champd, interbar)
+!
+!-------------------------------------------------------------------------------
+! Author: P. Le Van
+!-------------------------------------------------------------------------------
+! Purpose: Configure the 3D data field "champd" so that:
+!     - Longitudes are in [ -pi     pi   ]
+!     - Latitudes  are in [  pi/2. -pi/2 ]
+!     - Vertical levels from ground to model top (in Pascals)
+!  * xd / yd are initial lon / lats.
+!  * xf / yf are output  lon / lats, possibly modified to satisfy configuration.
+!  * zf      are output pressures
+!  * interbar is TRUE for barycentric interpolation.
+!-------------------------------------------------------------------------------
+  USE assert_eq_m, ONLY: assert_eq
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN)    :: title
+  REAL,             INTENT(IN)    :: xd(:), yd(:), zd(:) ! (lons) (lats) (levs)
+  REAL,             INTENT(INOUT) :: xf(:), yf(:), zf(:) ! (lons) (lats) (levs)
+  REAL,             INTENT(INOUT) :: champd(:,:,:)       ! (lons,lats,levs)
+  LOGICAL,          INTENT(IN)    :: interbar
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="conf_dat3d"
+  INTEGER :: i, j, l, ip180, ind, lons, lats, levs
+  LOGICAL :: radlon, invlon ,radlat, invlat, invlev
+  REAL    :: pi, pis2, depi, presmax, rlatmin, rlatmax, oldxd1
+  REAL, ALLOCATABLE :: xtemp(:) , ytemp(:), ztemp(:), champf(:,:,:)
+!-------------------------------------------------------------------------------
+  lons=assert_eq(SIZE(xd),SIZE(xf),SIZE(champd,1),TRIM(modname)//" lons")
+  lats=assert_eq(SIZE(yd),SIZE(yf),SIZE(champd,2),TRIM(modname)//" lats")
+  levs=assert_eq(SIZE(zd),SIZE(zf),SIZE(champd,3),TRIM(modname)//" levs")
+  ALLOCATE(xtemp(lons),ytemp(lats),ztemp(levs),champf(lons,lats,levs))
+  xtemp(:)=xd(:); ytemp(:)=yd(:); ztemp(:)=zd(:)
+  pi = 2. * ASIN(1.) 
+  pis2 = pi/2.
+  depi = 2. * pi
+  radlon=.FALSE.; invlon=.FALSE.
+  IF     (xtemp(1)>=-pi-0.5.AND.xtemp(lons)<=  pi+0.5) THEN
+    radlon = .TRUE.;  invlon = .FALSE.
+  ELSE IF(xtemp(1)>=   -0.5.AND.xtemp(lons)<=depi+0.5) THEN
+    radlon = .TRUE.;  invlon = .TRUE.
+  ELSE IF(xtemp(1)>= -180.5.AND.xtemp(lons)<=   180.5) THEN
+    radlon = .FALSE.; invlon = .FALSE.
+  ELSE IF(xtemp(1)>=   -0.5.AND.xtemp(lons)<=   360.5) THEN
+    radlon = .FALSE.; invlon = .TRUE.
+  ELSE; WRITE(6,*) 'Problems with data longitudes for file '//TRIM(title)
+  END IF
+  invlat = ytemp(1)<ytemp(lats)
+  rlatmin = MIN( ytemp(1), ytemp(lats) )
+  rlatmax = MAX( ytemp(1), ytemp(lats) )
+      
+  IF     (rlatmin>=-pis2-0.5.AND.rlatmax<=pis2+0.5) THEN; radlat = .TRUE.
+  ELSE IF(rlatmin>= -90.-0.5.AND.rlatmax<= 90.+0.5) THEN; radlat = .FALSE.
+  ELSE; WRITE(6,*) 'Problems with data latitudes for file '//TRIM(title)
+  END IF
+
+  IF(.NOT.radlon) xtemp(:)=xtemp(:)*pi/180.
+  IF(.NOT.radlat) ytemp(:)=ytemp(:)*pi/180.
+
+!--- FLIPPED LONGITUDES
+  IF(invlon) THEN
+    champf(:,:,:)=champd(:,:,:); xf(:)=xtemp(:)
+
+  !--- Longitudes rotated to get them in [ -pi pi] interval.
+    DO i=1,lons;      IF(xf(i)>pi) EXIT;                   END DO; ip180 = i
+    DO i=1,lons;      IF(xf(i)>pi) xf(i)=xf(i)-depi;       END DO
+    DO i= ip180,lons; ind=i-ip180+1; xtemp(ind)=xf(i);     END DO
+    DO i= ind+1,lons;                xtemp(i  )=xf(i-ind); END DO
+
+  !--- Longitudes rotated in champf
+    DO l=1,levs
+    DO j=1,lats
+      DO i=ip180,lons; ind=i-ip180+1; champd(ind,j,l)=champf(i    ,j,l); END DO
+      DO i=ind+1,lons;                champd(i  ,j,l)=champf(i-ind,j,l); END DO
+    END DO
+    END DO
+  END IF
+
+!--- FLIPPED LATITUDES
+  IF(invlat) THEN
+    yf(:)=ytemp(:)
+    champf(:,:,:)=champd(:,:,:)
+    ytemp(lats:1:-1)=yf(:)
+    DO l=1,levs
+      DO j=1,lats; champd(:,lats-j+1,l)=champf(:,j,l); END DO
+    END DO
+  END IF
+
+!--- FOR BARYCENTRIC INTERPOLATION
+  IF(interbar) THEN
+    oldxd1 = xtemp(1)
+    xtemp(1:lons-1)=0.5*(xtemp(1:lons-1)+xtemp(2:lons))
+    xtemp(  lons  )=0.5*(xtemp(  lons  )+oldxd1+depi)
+    ytemp(1:lats-1)=0.5*(ytemp(1:lats-1)+ytemp(2:lats))
+  END IF
+
+!--- FLIPPED LEVELS
+  invlev=ztemp(1)<ztemp(levs)
+  IF(MAX(ztemp(1),ztemp(levs))<1200.) ztemp(:)=ztemp(:)*100.
+  IF(invlev) THEN
+    zf(:)=ztemp(:)
+    champf(:,:,:)=champd(:,:,:)
+    ztemp(levs:1:-1)=zf(:)
+    DO l=1,levs; champd(:,:,levs+1-l)=champf(:,:,l); END DO
+  END IF
+
+  DEALLOCATE(champf)
+  xf(:)=xtemp(:); DEALLOCATE(xtemp)
+  yf(:)=ytemp(:); DEALLOCATE(ytemp)
+  zf(:)=ztemp(:); DEALLOCATE(ztemp)
+
+END SUBROUTINE conf_dat3d
+!
+!-------------------------------------------------------------------------------
+
+END MODULE conf_dat_m
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/conf_planete.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/conf_planete.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/conf_planete.F90	(revision 3330)
@@ -0,0 +1,71 @@
+!
+! $Id$
+!
+SUBROUTINE conf_planete
+!
+#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 comconst_mod, ONLY: pi, g, molmass, kappa, cpp, omeg, rad, &
+                        year_day, daylen, daysec, ihf
+USE comvert_mod, ONLY: preff, pa
+IMPLICIT NONE
+!
+!
+!   Declarations :
+!   --------------
+
+!
+!   local:
+!   ------
+
+! ---------------------------------------------
+! Initialisations de constantes de la dynamique
+! ---------------------------------------------
+! Pi
+pi=2.*asin(1.)
+
+!Reference surface pressure (Pa)
+preff=101325.
+CALL getin('preff', preff)
+! Reference pressure at which hybrid coord. become purely pressure
+! pa=50000.
+pa=preff/2.
+CALL getin('pa', pa)
+! Gravity
+g=9.80665
+CALL getin('g',g)
+! Molar mass of the atmosphere
+molmass = 28.9644
+CALL getin('molmass',molmass)
+! kappa=R/Cp et Cp      
+kappa = 2./7.
+CALL getin('kappa',kappa)
+cpp=8.3145/molmass/kappa*1000.
+CALL getin('cpp',cpp)
+! Radius of the planet
+rad = 6371229. 
+CALL getin('radius',rad)
+! Length of a standard day (s)
+daysec=86400.
+CALL getin('daysec',daysec)
+! Rotation rate of the planet:
+! Length of a solar day, in standard days
+daylen = 1.
+CALL getin('daylen',daylen)
+! Number of days (standard) per year:
+year_day = 365.25
+CALL getin('year_day',year_day)
+! Omega
+! omeg=2.*pi/86400.
+omeg=2.*pi/daysec*(1./daylen+1./year_day)
+CALL getin('omeg',omeg)
+
+! Intrinsic heat flux (default: none) (only used if planet_type="giant")
+ihf = 0.
+call getin('ihf',ihf)
+
+END SUBROUTINE conf_planete
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/control_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/control_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/control_mod.F90	(revision 3330)
@@ -0,0 +1,42 @@
+!
+! $Id $
+!
+
+MODULE control_mod
+
+! LF 01/2010
+! Remplacement du fichier et common control
+
+  IMPLICIT NONE
+
+  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/IPSLCM5A2.1_ISO/libf/dyn3d_common/convflu.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/convflu.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/convflu.F	(revision 3330)
@@ -0,0 +1,62 @@
+!
+! $Header$
+!
+      SUBROUTINE convflu( xflu,yflu,nbniv,convfl )
+c
+c  P. Le Van
+c
+c
+c    *******************************************************************
+c  ... calcule la (convergence horiz. * aire locale)du flux ayant pour
+c      composantes xflu et yflu ,variables extensives .  ......
+c    *******************************************************************
+c      xflu , yflu et nbniv sont des arguments d'entree pour le s-pg ..
+c      convfl                est  un argument de sortie pour le s-pg .
+c
+c     njxflu  est le nombre de lignes de latitude de xflu, 
+c     ( = jjm ou jjp1 )
+c     nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      REAL       xflu,yflu,convfl,convpn,convps
+      INTEGER    l,ij,nbniv
+      DIMENSION  xflu( ip1jmp1,nbniv ),yflu( ip1jm,nbniv ) ,
+     *         convfl( ip1jmp1,nbniv )
+c
+      REAL       SSUM
+c
+c
+#include "comgeom.h"
+c
+      DO 5 l = 1,nbniv
+c
+      DO 2  ij = iip2, ip1jm - 1
+      convfl( ij + 1,l ) =  xflu(   ij,l ) - xflu( ij +  1,l )   +
+     *                      yflu(ij +1,l ) - yflu( ij -iim,l )
+   2  CONTINUE
+c
+c
+
+c     ....  correction pour  convfl( 1,j,l)  ......
+c     ....   convfl(1,j,l)= convfl(iip1,j,l) ...
+c
+CDIR$ IVDEP
+      DO 3 ij = iip2,ip1jm,iip1
+      convfl( ij,l ) = convfl( ij + iim,l )
+   3  CONTINUE
+c
+c     ......  calcul aux poles  .......
+c
+      convpn =   SSUM( iim, yflu(     1    ,l ),  1 )
+      convps = - SSUM( iim, yflu( ip1jm-iim,l ),  1 )
+      DO 4 ij = 1,iip1
+      convfl(     ij   ,l ) = convpn * aire(   ij     ) / apoln
+      convfl( ij+ ip1jm,l ) = convps * aire( ij+ ip1jm) / apols
+   4  CONTINUE
+c
+   5  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/convmas.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/convmas.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/convmas.F90	(revision 3330)
@@ -0,0 +1,35 @@
+SUBROUTINE convmas (pbaru, pbarv, convm)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute mass flux convergence at p levels.
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: pbaru(ip1jmp1,llm)
+  REAL, INTENT(IN)  :: pbarv(ip1jm  ,llm)
+  REAL, INTENT(OUT) :: convm(ip1jmp1,llm)
+!===============================================================================
+! Method used:   Computation from top to bottom.
+!   Mass convergence at level llm is equal to zero and is not stored in convm.
+!===============================================================================
+! Local variables:
+  INTEGER :: l
+!===============================================================================
+
+!--- Computation of - (d(pbaru)/dx + d(pbarv)/dy )
+  CALL convflu( pbaru, pbarv, llm, convm )
+
+!--- Filter
+  CALL filtreg( convm, jjp1, llm, 2, 2, .TRUE., 1 )
+
+!--- Mass convergence is integrated from top to bottom
+  DO l=llmm1,1,-1
+    convm(:,l) = convm(:,l) + convm(:,l+1)
+  END DO
+
+END SUBROUTINE convmas
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/coordij.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/coordij.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/coordij.F	(revision 3330)
@@ -0,0 +1,48 @@
+!
+! $Header$
+!
+      SUBROUTINE coordij(lon,lat,ilon,jlat)
+
+c=======================================================================
+c
+c   calcul des coordonnees i et j de la maille scalaire dans
+c   laquelle se trouve le point (lon,lat) en radian
+c
+c=======================================================================
+
+      USE comconst_mod, ONLY: pi
+      
+      IMPLICIT NONE
+      REAL lon,lat
+      INTEGER ilon,jlat
+      INTEGER i,j
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+
+      real zlon,zlat
+
+      zlon=lon*pi/180.
+      zlat=lat*pi/180.
+
+      DO i=1,iim+1
+         IF (rlonu(i).GT.zlon) THEN
+            ilon=i
+            GOTO 10
+         ENDIF
+      ENDDO
+10    CONTINUE
+
+      j=0
+      DO j=1,jjm
+         IF(rlatv(j).LT.zlat) THEN
+            jlat=j
+            GOTO 20
+         ENDIF
+      ENDDO
+20    CONTINUE
+      IF(j.EQ.0) j=jjm+1
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/covcont.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/covcont.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/covcont.F90	(revision 3330)
@@ -0,0 +1,29 @@
+SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont )
+!
+!-------------------------------------------------------------------------------
+! Author: P. Le Van
+!-------------------------------------------------------------------------------
+! Purpose: Compute contravariant components from covariant components.
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  INTEGER, INTENT(IN)  :: klevel                    !--- VERTICAL LEVELS NUMBER
+  REAL,    INTENT(IN)  :: ucov ( ip1jmp1,klevel )   !--- U COVARIANT WIND
+  REAL,    INTENT(IN)  :: vcov ( ip1jm  ,klevel )   !--- V COVARIANT WIND
+  REAL,    INTENT(OUT) :: ucont( ip1jmp1,klevel )   !--- U CONTRAVAR WIND
+  REAL,    INTENT(OUT) :: vcont( ip1jm  ,klevel )   !--- V CONTRAVAR WIND
+!===============================================================================
+!   Local variables:
+  INTEGER :: l
+!===============================================================================
+  DO l=1,klevel
+    ucont(iip2:ip1jm,l)=ucov(iip2:ip1jm,l) * unscu2(iip2:ip1jm)
+    vcont(   1:ip1jm,l)=vcov(   1:ip1jm,l) * unscv2(   1:ip1jm)
+  END DO
+
+END SUBROUTINE covcont
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diagedyn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diagedyn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diagedyn.F	(revision 3330)
@@ -0,0 +1,339 @@
+!
+! $Id$
+!
+
+C======================================================================
+      SUBROUTINE diagedyn(tit,iprt,idiag,idiag2,dtime
+     e  , ucov    , vcov , ps, p ,pk , teta , q, ql)
+C======================================================================
+C
+C Purpose:
+C    Calcul la difference d'enthalpie et de masse d'eau entre 2 appels,
+C    et calcul le flux de chaleur et le flux d'eau necessaire a ces 
+C    changements. Ces valeurs sont moyennees sur la surface de tout
+C    le globe et sont exprime en W/2 et kg/s/m2
+C    Outil pour diagnostiquer la conservation de l'energie
+C    et de la masse dans la dynamique.
+C
+C
+c======================================================================
+C Arguments: 
+C tit-----imput-A15- Comment added in PRINT (CHARACTER*15)
+C iprt----input-I-  PRINT level ( <=1 : no PRINT)
+C idiag---input-I- indice dans lequel sera range les nouveaux
+C                  bilans d' entalpie et de masse
+C idiag2--input-I-les nouveaux bilans d'entalpie et de masse 
+C                 sont compare au bilan de d'enthalpie de masse de
+C                 l'indice numero idiag2 
+C                 Cas parriculier : si idiag2=0, pas de comparaison, on
+c                 sort directement les bilans d'enthalpie et de masse 
+C dtime----input-R- time step (s)
+C uconv, vconv-input-R- vents covariants (m/s)
+C ps-------input-R- Surface pressure (Pa)
+C p--------input-R- pressure at the interfaces
+C pk-------input-R- pk= (p/Pref)**kappa
+c teta-----input-R- potential temperature (K)
+c q--------input-R- vapeur d'eau (kg/kg)
+c ql-------input-R- liquid watter (kg/kg)
+c aire-----input-R- mesh surafce (m2)
+c
+C the following total value are computed by UNIT of earth surface
+C
+C d_h_vcol--output-R- Heat flux (W/m2) define as the Enthalpy 
+c            change (J/m2) during one time step (dtime) for the whole 
+C            atmosphere (air, watter vapour, liquid and solid)
+C d_qt------output-R- total water mass flux (kg/m2/s) defined as the 
+C           total watter (kg/m2) change during one time step (dtime),
+C d_qw------output-R- same, for the watter vapour only (kg/m2/s)
+C d_ql------output-R- same, for the liquid watter only (kg/m2/s)
+C d_ec------output-R- Cinetic Energy Budget (W/m2) for vertical air column
+C
+C
+C J.L. Dufresne, July 2002
+c======================================================================
+ 
+      USE control_mod, ONLY : planet_type
+      
+      IMPLICIT NONE
+C
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "iniprint.h"
+
+!#ifdef CPP_EARTH
+!#include "../phylmd/YOMCST.h"
+!#include "../phylmd/YOETHF.h"
+!#endif
+! Ehouarn: for now set these parameters to what is in Earth physics...
+!          (cf ../phylmd/suphel.h)
+!          this should be generalized...
+      REAL,PARAMETER :: RCPD=
+     &               3.5*(1000.*(6.0221367E+23*1.380658E-23)/28.9644)
+      REAL,PARAMETER :: RCPV=
+     &               4.*(1000.*(6.0221367E+23*1.380658E-23)/18.0153)
+      REAL,PARAMETER :: RCS=RCPV
+      REAL,PARAMETER :: RCW=RCPV
+      REAL,PARAMETER :: RLSTT=2.8345E+6
+      REAL,PARAMETER :: RLVTT=2.5008E+6
+!
+C
+      INTEGER imjmp1
+      PARAMETER( imjmp1=iim*jjp1)
+c     Input variables
+      CHARACTER*15 tit
+      INTEGER iprt,idiag, idiag2
+      REAL dtime
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
+      REAL ps(ip1jmp1)                       ! pression  au sol
+      REAL p (ip1jmp1,llmp1  )  ! pression aux interfac.des couches
+      REAL pk (ip1jmp1,llm  )  ! = (p/Pref)**kappa
+      REAL teta(ip1jmp1,llm)                 ! temperature potentielle 
+      REAL q(ip1jmp1,llm)               ! champs eau vapeur
+      REAL ql(ip1jmp1,llm)               ! champs eau liquide
+
+
+c     Output variables
+      REAL d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec
+C
+C     Local variables
+c
+      REAL h_vcol_tot, h_dair_tot, h_qw_tot, h_ql_tot
+     .  , h_qs_tot, qw_tot, ql_tot, qs_tot , ec_tot
+c h_vcol_tot--  total enthalpy of vertical air column 
+C            (air with watter vapour, liquid and solid) (J/m2)
+c h_dair_tot-- total enthalpy of dry air (J/m2)
+c h_qw_tot----  total enthalpy of watter vapour (J/m2)
+c h_ql_tot----  total enthalpy of liquid watter (J/m2)
+c h_qs_tot----  total enthalpy of solid watter  (J/m2)
+c qw_tot------  total mass of watter vapour (kg/m2)
+c ql_tot------  total mass of liquid watter (kg/m2)
+c qs_tot------  total mass of solid watter (kg/m2)
+c ec_tot------  total cinetic energy (kg/m2)
+C
+      REAL masse(ip1jmp1,llm)                ! masse d'air
+      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+      REAL ecin(ip1jmp1,llm)
+
+      REAL zaire(imjmp1)
+      REAL zps(imjmp1)
+      REAL zairm(imjmp1,llm)
+      REAL zecin(imjmp1,llm)
+      REAL zpaprs(imjmp1,llm)
+      REAL zpk(imjmp1,llm)
+      REAL zt(imjmp1,llm)
+      REAL zh(imjmp1,llm)
+      REAL zqw(imjmp1,llm)
+      REAL zql(imjmp1,llm)
+      REAL zqs(imjmp1,llm)
+
+      REAL  zqw_col(imjmp1)
+      REAL  zql_col(imjmp1)
+      REAL  zqs_col(imjmp1)
+      REAL  zec_col(imjmp1)
+      REAL  zh_dair_col(imjmp1)
+      REAL  zh_qw_col(imjmp1), zh_ql_col(imjmp1), zh_qs_col(imjmp1)
+C
+      REAL      d_h_dair, d_h_qw, d_h_ql, d_h_qs
+C
+      REAL airetot, zcpvap, zcwat, zcice
+C
+      INTEGER i, k, jj, ij , l ,ip1jjm1
+C
+      INTEGER ndiag     ! max number of diagnostic in parallel
+      PARAMETER (ndiag=10)
+      integer pas(ndiag)
+      save pas
+      data pas/ndiag*0/
+C     
+      REAL      h_vcol_pre(ndiag), h_dair_pre(ndiag), h_qw_pre(ndiag)
+     $    , h_ql_pre(ndiag), h_qs_pre(ndiag), qw_pre(ndiag)
+     $    , ql_pre(ndiag), qs_pre(ndiag) , ec_pre(ndiag)
+      SAVE      h_vcol_pre, h_dair_pre, h_qw_pre, h_ql_pre
+     $        , h_qs_pre, qw_pre, ql_pre, qs_pre , ec_pre
+
+
+!#ifdef CPP_EARTH
+      IF (planet_type=="earth") THEN
+      
+c======================================================================
+C     Compute Kinetic enrgy
+      CALL covcont  ( llm    , ucov    , vcov , ucont, vcont        )
+      CALL enercin ( vcov   , ucov  , vcont     , ucont  , ecin  )
+      CALL massdair( p, masse )
+c======================================================================
+C
+C
+      print*,'MAIS POURQUOI DONC DIAGEDYN NE MARCHE PAS ?'
+      return
+C     On ne garde les donnees que dans les colonnes i=1,iim
+      DO jj = 1,jjp1
+        ip1jjm1=iip1*(jj-1)
+        DO ij =  1,iim
+          i=iim*(jj-1)+ij
+          zaire(i)=aire(ij+ip1jjm1)
+          zps(i)=ps(ij+ip1jjm1)
+        ENDDO 
+      ENDDO 
+C 3D arrays
+      DO l  =  1, llm
+        DO jj = 1,jjp1
+          ip1jjm1=iip1*(jj-1)
+          DO ij =  1,iim
+            i=iim*(jj-1)+ij
+            zairm(i,l) = masse(ij+ip1jjm1,l)
+            zecin(i,l) = ecin(ij+ip1jjm1,l)
+            zpaprs(i,l) = p(ij+ip1jjm1,l)
+            zpk(i,l) = pk(ij+ip1jjm1,l)
+            zh(i,l) = teta(ij+ip1jjm1,l)
+            zqw(i,l) = q(ij+ip1jjm1,l)
+            zql(i,l) = ql(ij+ip1jjm1,l)
+            zqs(i,l) = 0.
+          ENDDO 
+        ENDDO 
+      ENDDO 
+C
+C     Reset variables
+      DO i = 1, imjmp1
+        zqw_col(i)=0.
+        zql_col(i)=0.
+        zqs_col(i)=0.
+        zec_col(i) = 0.
+        zh_dair_col(i) = 0.
+        zh_qw_col(i) = 0.
+        zh_ql_col(i) = 0.
+        zh_qs_col(i) = 0.
+      ENDDO
+C
+      zcpvap=RCPV
+      zcwat=RCW
+      zcice=RCS
+C
+C     Compute vertical sum for each atmospheric column
+C     ================================================
+      DO k = 1, llm
+        DO i = 1, imjmp1
+C         Watter mass
+          zqw_col(i) = zqw_col(i) + zqw(i,k)*zairm(i,k)
+          zql_col(i) = zql_col(i) + zql(i,k)*zairm(i,k)
+          zqs_col(i) = zqs_col(i) + zqs(i,k)*zairm(i,k)
+C         Cinetic Energy
+          zec_col(i) =  zec_col(i)
+     $        +zecin(i,k)*zairm(i,k)
+C         Air enthalpy
+          zt(i,k)= zh(i,k) * zpk(i,k) / RCPD
+          zh_dair_col(i) = zh_dair_col(i)
+     $        + RCPD*(1.-zqw(i,k)-zql(i,k)-zqs(i,k))*zairm(i,k)*zt(i,k)
+          zh_qw_col(i) = zh_qw_col(i)
+     $        + zcpvap*zqw(i,k)*zairm(i,k)*zt(i,k) 
+          zh_ql_col(i) = zh_ql_col(i)
+     $        + zcwat*zql(i,k)*zairm(i,k)*zt(i,k) 
+     $        - RLVTT*zql(i,k)*zairm(i,k)
+          zh_qs_col(i) = zh_qs_col(i)
+     $        + zcice*zqs(i,k)*zairm(i,k)*zt(i,k) 
+     $        - RLSTT*zqs(i,k)*zairm(i,k)
+
+        END DO
+      ENDDO
+C
+C     Mean over the planete surface
+C     =============================
+      qw_tot = 0.
+      ql_tot = 0.
+      qs_tot = 0.
+      ec_tot = 0.
+      h_vcol_tot = 0.
+      h_dair_tot = 0.
+      h_qw_tot = 0.
+      h_ql_tot = 0.
+      h_qs_tot = 0.
+      airetot=0.
+C
+      do i=1,imjmp1
+        qw_tot = qw_tot + zqw_col(i)
+        ql_tot = ql_tot + zql_col(i)
+        qs_tot = qs_tot + zqs_col(i)
+        ec_tot = ec_tot + zec_col(i)
+        h_dair_tot = h_dair_tot + zh_dair_col(i)
+        h_qw_tot = h_qw_tot + zh_qw_col(i)
+        h_ql_tot = h_ql_tot + zh_ql_col(i)
+        h_qs_tot = h_qs_tot + zh_qs_col(i)
+        airetot=airetot+zaire(i)
+      END DO
+C
+      qw_tot = qw_tot/airetot
+      ql_tot = ql_tot/airetot
+      qs_tot = qs_tot/airetot
+      ec_tot = ec_tot/airetot
+      h_dair_tot = h_dair_tot/airetot
+      h_qw_tot = h_qw_tot/airetot
+      h_ql_tot = h_ql_tot/airetot
+      h_qs_tot = h_qs_tot/airetot
+C
+      h_vcol_tot = h_dair_tot+h_qw_tot+h_ql_tot+h_qs_tot
+C
+C     Compute the change of the atmospheric state compare to the one 
+C     stored in "idiag2", and convert it in flux. THis computation
+C     is performed IF idiag2 /= 0 and IF it is not the first CALL
+c     for "idiag"
+C     ===================================
+C
+      IF ( (idiag2.gt.0) .and. (pas(idiag2) .ne. 0) ) THEN
+        d_h_vcol  = (h_vcol_tot - h_vcol_pre(idiag2) )/dtime
+        d_h_dair = (h_dair_tot- h_dair_pre(idiag2))/dtime
+        d_h_qw   = (h_qw_tot  - h_qw_pre(idiag2)  )/dtime
+        d_h_ql   = (h_ql_tot  - h_ql_pre(idiag2)  )/dtime 
+        d_h_qs   = (h_qs_tot  - h_qs_pre(idiag2)  )/dtime 
+        d_qw     = (qw_tot    - qw_pre(idiag2)    )/dtime
+        d_ql     = (ql_tot    - ql_pre(idiag2)    )/dtime
+        d_qs     = (qs_tot    - qs_pre(idiag2)    )/dtime
+        d_ec     = (ec_tot    - ec_pre(idiag2)    )/dtime
+        d_qt = d_qw + d_ql + d_qs
+      ELSE 
+        d_h_vcol = 0.
+        d_h_dair = 0.
+        d_h_qw   = 0.
+        d_h_ql   = 0.
+        d_h_qs   = 0. 
+        d_qw     = 0.
+        d_ql     = 0.
+        d_qs     = 0.
+        d_ec     = 0.
+        d_qt     = 0.
+      ENDIF 
+C
+      IF (iprt.ge.2) THEN
+        WRITE(6,9000) tit,pas(idiag),d_qt,d_qw,d_ql,d_qs
+ 9000   format('Dyn3d. Watter Mass Budget (kg/m2/s)',A15
+     $      ,1i6,10(1pE14.6))
+        WRITE(6,9001) tit,pas(idiag), d_h_vcol
+ 9001   format('Dyn3d. Enthalpy Budget (W/m2) ',A15,1i6,10(F8.2))
+        WRITE(6,9002) tit,pas(idiag), d_ec
+ 9002   format('Dyn3d. Cinetic Energy Budget (W/m2) ',A15,1i6,10(F8.2))
+C        WRITE(6,9003) tit,pas(idiag), ec_tot
+ 9003   format('Dyn3d. Cinetic Energy (W/m2) ',A15,1i6,10(E15.6))
+        WRITE(6,9004) tit,pas(idiag), d_h_vcol+d_ec
+ 9004   format('Dyn3d. Total Energy Budget (W/m2) ',A15,1i6,10(F8.2))
+      END IF 
+C
+C     Store the new atmospheric state in "idiag"
+C
+      pas(idiag)=pas(idiag)+1
+      h_vcol_pre(idiag)  = h_vcol_tot
+      h_dair_pre(idiag) = h_dair_tot
+      h_qw_pre(idiag)   = h_qw_tot
+      h_ql_pre(idiag)   = h_ql_tot
+      h_qs_pre(idiag)   = h_qs_tot
+      qw_pre(idiag)     = qw_tot
+      ql_pre(idiag)     = ql_tot
+      qs_pre(idiag)     = qs_tot
+      ec_pre (idiag)    = ec_tot
+C
+!#else
+      ELSE
+        write(lunout,*)'diagedyn: set to function with Earth parameters'
+      ENDIF ! of if (planet_type=="earth")
+!#endif
+! #endif of #ifdef CPP_EARTH 
+      RETURN 
+      END 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/disvert.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/disvert.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/disvert.F90	(revision 3330)
@@ -0,0 +1,455 @@
+! $Id$
+
+SUBROUTINE disvert()
+
+#ifdef CPP_IOIPSL
+  use ioipsl, only: getin
+#else
+  USE ioipsl_getincom, only: getin
+#endif
+  use new_unit_m, only: new_unit
+  use assert_m, only: assert
+  USE comvert_mod, ONLY: ap, bp, nivsigs, nivsig, dpres, presnivs, &
+                         pa, preff, scaleheight
+  USE logic_mod, ONLY: ok_strato
+
+  IMPLICIT NONE
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "iniprint.h"
+
+!-------------------------------------------------------------------------------
+! Purpose: Vertical distribution functions for LMDZ.
+!          Triggered by the levels number llm.
+!-------------------------------------------------------------------------------
+! Read    in "comvert_mod":
+
+! 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_mod":
+! ap(llm+1), bp(llm+1)       !--- Ap, Bp HYBRID COEFFICIENTS AT INTERFACES
+! aps(llm),  bps(llm)        !--- Ap, Bp HYBRID COEFFICIENTS AT MID-LAYERS
+! dpres(llm)                 !--- PRESSURE DIFFERENCE FOR EACH LAYER
+! presnivs(llm)              !--- PRESSURE AT EACH MID-LAYER
+! scaleheight                !--- VERTICAL SCALE HEIGHT            (Earth: 8kms)
+! nivsig(llm+1)              !--- SIGMA INDEX OF EACH LAYER INTERFACE
+! nivsigs(llm)               !--- SIGMA INDEX OF EACH MID-LAYER
+!-------------------------------------------------------------------------------
+! Local variables:
+  REAL sig(llm+1), dsig(llm)
+  REAL sig0(llm+1), zz(llm+1)
+  REAL zk, zkm1, dzk1, dzk2, z, k0, k1
+
+  INTEGER l, unit
+  REAL dsigmin
+  REAL vert_scale,vert_dzmin,vert_dzlow,vert_z0low,vert_dzmid,vert_z0mid,vert_h_mid,vert_dzhig,vert_z0hig,vert_h_hig
+
+  REAL alpha, beta, deltaz
+  REAL x
+  character(len=*),parameter :: modname="disvert"
+
+  character(len=24):: vert_sampling
+  ! (allowed values are "param", "tropo", "strato" and "read")
+
+  !-----------------------------------------------------------------------
+
+  WRITE(lunout,*) TRIM(modname)//" starts"
+
+  ! default scaleheight is 8km for earth
+  scaleheight=8.
+
+  vert_sampling = merge("strato", "tropo ", ok_strato) ! default value
+  call getin('vert_sampling', vert_sampling)
+  WRITE(lunout,*) TRIM(modname)//' vert_sampling = ' // vert_sampling
+  if (llm==39 .and. vert_sampling=="strato") then
+     dsigmin=0.3 ! Vieille option par défaut pour CMIP5
+  else
+     dsigmin=1.
+  endif
+  call getin('dsigmin', dsigmin)
+  WRITE(LUNOUT,*) trim(modname), 'Discretisation verticale DSIGMIN=',dsigmin
+
+
+  select case (vert_sampling)
+  case ("param")
+     ! On lit les options dans sigma.def:
+     OPEN(99, file='sigma.def', status='old', form='formatted')
+     READ(99, *) scaleheight ! hauteur d'echelle 8.
+     READ(99, *) deltaz ! epaiseur de la premiere couche 0.04
+     READ(99, *) beta ! facteur d'acroissement en haut 1.3
+     READ(99, *) k0 ! nombre de couches dans la transition surf
+     READ(99, *) k1 ! nombre de couches dans la transition haute
+     CLOSE(99)
+     alpha=deltaz/(llm*scaleheight)
+     write(lunout, *)trim(modname),':scaleheight, alpha, k0, k1, beta', &
+                               scaleheight, alpha, k0, k1, beta
+
+     alpha=deltaz/tanh(1./k0)*2.
+     zkm1=0.
+     sig(1)=1.
+     do l=1, llm
+        sig(l+1)=(cosh(l/k0))**(-alpha*k0/scaleheight) &
+             *exp(-alpha/scaleheight*tanh((llm-k1)/k0) &
+                  *beta**(l-(llm-k1))/log(beta))
+        zk=-scaleheight*log(sig(l+1))
+
+        dzk1=alpha*tanh(l/k0)
+        dzk2=alpha*tanh((llm-k1)/k0)*beta**(l-(llm-k1))/log(beta)
+        write(lunout, *)l, sig(l+1), zk, zk-zkm1, dzk1, dzk2
+        zkm1=zk
+     enddo
+
+     sig(llm+1)=0.
+
+     bp(: llm) = EXP(1. - 1. / sig(: llm)**2)
+     bp(llmp1) = 0.
+
+     ap = pa * (sig - bp)
+  case("sigma")
+     DO l = 1, llm
+        x = 2*asin(1.) * (l - 0.5) / (llm + 1)
+        dsig(l) = dsigmin + 7.0 * SIN(x)**2
+     ENDDO
+     dsig = dsig / sum(dsig)
+     sig(llm+1) = 0.
+     DO l = llm, 1, -1
+        sig(l) = sig(l+1) + dsig(l)
+     ENDDO
+
+     bp(1)=1.
+     bp(2: llm) = sig(2:llm)
+     bp(llmp1) = 0.
+     ap(:)=0.
+  case("tropo")
+     DO l = 1, llm
+        x = 2*asin(1.) * (l - 0.5) / (llm + 1)
+        dsig(l) = dsigmin + 7.0 * SIN(x)**2
+     ENDDO
+     dsig = dsig / sum(dsig)
+     sig(llm+1) = 0.
+     DO l = llm, 1, -1
+        sig(l) = sig(l+1) + dsig(l)
+     ENDDO
+
+     bp(1)=1.
+     bp(2: llm) = EXP(1. - 1. / sig(2: llm)**2)
+     bp(llmp1) = 0.
+
+     ap(1)=0.
+     ap(2: llm + 1) = pa * (sig(2: llm + 1) - bp(2: llm + 1))
+  case("strato")
+     DO l = 1, llm
+        x = 2*asin(1.) * (l - 0.5) / (llm + 1)
+        dsig(l) =(dsigmin + 7. * SIN(x)**2) &
+             *(0.5*(1.-tanh(1.*(x-asin(1.))/asin(1.))))**2
+     ENDDO
+     dsig = dsig / sum(dsig)
+     sig(llm+1) = 0.
+     DO l = llm, 1, -1
+        sig(l) = sig(l+1) + dsig(l)
+     ENDDO
+
+     bp(1)=1.
+     bp(2: llm) = EXP(1. - 1. / sig(2: llm)**2)
+     bp(llmp1) = 0.
+
+     ap(1)=0.
+     ap(2: llm + 1) = pa * (sig(2: llm + 1) - bp(2: llm + 1))
+  case("strato_correct")
+!==================================================================
+! Fredho 2014/05/18, Saint-Louis du Senegal
+! Cette version de la discretisation strato est corrige au niveau
+! du passage des sig aux ap, bp
+! la version precedente donne un coude dans l'epaisseur des couches
+! vers la tropopause
+!==================================================================
+
+
+     DO l = 1, llm
+        x = 2*asin(1.) * (l - 0.5) / (llm + 1)
+        dsig(l) =(dsigmin + 7. * SIN(x)**2) &
+             *(0.5*(1.-tanh(1.*(x-asin(1.))/asin(1.))))**2
+     ENDDO
+     dsig = dsig / sum(dsig)
+     sig0(llm+1) = 0.
+     DO l = llm, 1, -1
+        sig0(l) = sig0(l+1) + dsig(l)
+     ENDDO
+     sig=racinesig(sig0)
+
+     bp(1)=1.
+     bp(2:llm)=EXP(1.-1./sig(2: llm)**2)
+     bp(llmp1)=0.
+
+     ap(1)=0.
+     ap(2:llm)=pa*(sig(2:llm)-bp(2:llm))
+     ap(llm+1)=0.
+
+  CASE("strato_custom0") 
+!=======================================================
+! Version Transitoire
+    ! custumize strato distribution with specific alpha & beta values and function
+    ! depending on llm (experimental and temporary)!
+    SELECT CASE (llm)
+      CASE(55)
+        alpha=0.45
+        beta=4.0
+      CASE(63)
+        alpha=0.45
+        beta=5.0
+      CASE(71)
+        alpha=3.05
+        beta=65.
+      CASE(79)
+        alpha=3.20
+        ! alpha=2.05 ! FLOTT 79 (PLANTE)
+        beta=70.
+    END SELECT
+    ! Or used values provided by user in def file:
+    CALL getin("strato_alpha",alpha)
+    CALL getin("strato_beta",beta)
+    
+    ! Build geometrical distribution
+    scaleheight=7.
+    zz(1)=0.
+    IF (llm==55.OR.llm==63) THEN
+      DO l=1,llm
+        z=zz(l)/scaleheight
+        zz(l+1)=zz(l)+0.03+z*1.5*(1.-TANH(z-0.5))+alpha*(1.+TANH(z-1.5))     &
+                            +5.0*EXP((l-llm)/beta)
+      ENDDO
+    ELSEIF (llm==71) THEN !.OR.llm==79) THEN      ! FLOTT 79 (PLANTE)
+      DO l=1,llm
+        z=zz(l)
+        zz(l+1)=zz(l)+0.02+0.88*TANH(z/2.5)+alpha*(1.+TANH((z-beta)/15.))
+      ENDDO
+    ELSEIF (llm==79) THEN
+      DO l=1,llm
+        z=zz(l)
+        zz(l+1)=zz(l)+0.02+0.80*TANH(z/3.8)+alpha*(1+TANH((z-beta)/17.))     &
+                            +0.03*TANH(z/.25)
+      ENDDO
+    ENDIF ! of IF (llm==55.OR.llm==63) ...
+    
+
+    ! Build sigma distribution
+    sig0=EXP(-zz(:)/scaleheight)
+    sig0(llm+1)=0.
+!    sig=ridders(sig0)
+    sig=racinesig(sig0)
+    
+    ! Compute ap() and bp()
+    bp(1)=1.
+    bp(2:llm)=EXP(1.-1./sig(2:llm)**2)
+    bp(llm+1)=0.
+    ap=pa*(sig-bp)
+
+  CASE("strato_custom") 
+!===================================================================
+! David Cugnet, François Lott, Lionel Guez, Ehouoarn Millour, Fredho
+! 2014/05
+! custumize strato distribution
+! Al the parameter are given in km assuming a given scalehigh
+    vert_scale=7.     ! scale hight
+    vert_dzmin=0.02   ! width of first layer
+    vert_dzlow=1.     ! dz in the low atmosphere
+    vert_z0low=8.     ! height at which resolution recches dzlow
+    vert_dzmid=3.     ! dz in the mid atmsophere
+    vert_z0mid=70.    ! height at which resolution recches dzmid
+    vert_h_mid=20.    ! width of the transition
+    vert_dzhig=11.    ! dz in the high atmsophere
+    vert_z0hig=80.    ! height at which resolution recches dz
+    vert_h_hig=20.    ! width of the transition
+!===================================================================
+
+    call getin('vert_scale',vert_scale)
+    call getin('vert_dzmin',vert_dzmin)
+    call getin('vert_dzlow',vert_dzlow)
+    call getin('vert_z0low',vert_z0low)
+    CALL getin('vert_dzmid',vert_dzmid)
+    CALL getin('vert_z0mid',vert_z0mid)
+    call getin('vert_h_mid',vert_h_mid)
+    call getin('vert_dzhig',vert_dzhig)
+    call getin('vert_z0hig',vert_z0hig)
+    call getin('vert_h_hig',vert_h_hig)
+
+    scaleheight=vert_scale ! for consistency with further computations
+    ! Build geometrical distribution
+    zz(1)=0.
+    DO l=1,llm
+       z=zz(l)
+       zz(l+1)=zz(l)+vert_dzmin+vert_dzlow*TANH(z/vert_z0low)+                &
+&      (vert_dzmid-vert_dzlow)* &
+&           (TANH((z-vert_z0mid)/vert_h_mid)-TANH((-vert_z0mid)/vert_h_mid)) &
+&     +(vert_dzhig-vert_dzmid-vert_dzlow)*                                  &
+&           (TANH((z-vert_z0hig)/vert_h_hig)-TANH((-vert_z0hig)/vert_h_hig))
+    ENDDO
+
+
+!===================================================================
+! Comment added Fredho 2014/05/18, Saint-Louis, Senegal
+! From approximate z to ap, bp, so that p=ap+bp*p0 and p/p0=exp(-z/H)
+! sig0 is p/p0
+! sig is an intermediate distribution introduce to estimate bp
+! 1.   sig0=exp(-z/H)
+! 2.   inversion of sig0=(1-pa/p0)*sig+(1-pa/p0)*exp(1-1/sig**2)
+! 3.   bp=exp(1-1/sig**2)
+! 4.   ap deduced from  the combination of 2 and 3 so that sig0=ap/p0+bp
+!===================================================================
+
+    sig0=EXP(-zz(:)/vert_scale)
+    sig0(llm+1)=0.
+    sig=racinesig(sig0)
+    bp(1)=1.
+    bp(2:llm)=EXP(1.-1./sig(2:llm)**2)
+    bp(llm+1)=0.
+    ap=pa*(sig-bp)
+
+  case("read")
+     ! Read "ap" and "bp". First line is skipped (title line). "ap"
+     ! should be in Pa. First couple of values should correspond to
+     ! the surface, that is : "bp" should be in descending order.
+     call new_unit(unit)
+     open(unit, file="hybrid.txt", status="old", action="read", &
+          position="rewind")
+     read(unit, fmt=*) ! skip title line
+     do l = 1, llm + 1
+        read(unit, fmt=*) ap(l), bp(l)
+     end do
+     close(unit)
+     call assert(ap(1) == 0., ap(llm + 1) == 0., bp(1) == 1., &
+          bp(llm + 1) == 0., "disvert: bad ap or bp values")
+  case default
+     call abort_gcm("disvert", 'Wrong value for "vert_sampling"', 1)
+  END select
+
+  DO l=1, llm
+     nivsigs(l) = REAL(l)
+  ENDDO
+
+  DO l=1, llmp1
+     nivsig(l)= REAL(l)
+  ENDDO
+
+  write(lunout, *)  trim(modname),': BP '
+  write(lunout, *) bp
+  write(lunout, *)  trim(modname),': AP '
+  write(lunout, *) ap
+
+  write(lunout, *) 'Niveaux de pressions approximatifs aux centres des'
+  write(lunout, *)'couches calcules pour une pression de surface =', preff
+  write(lunout, *) 'et altitudes equivalentes pour une hauteur d echelle de '
+  write(lunout, *) scaleheight,' km'
+  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(lunout, *)'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
+
+  write(lunout, *) trim(modname),': PRESNIVS '
+  write(lunout, *) presnivs
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+FUNCTION ridders(sig) RESULT(sg)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Purpose: Search for s solving (Pa/Preff)*s+(1-Pa/Preff)*EXP(1-1./s**2)=sg
+! Notes:   Uses Ridders' method, quite robust. Initial bracketing: 0<=sg<=1.
+! Reference: Ridders, C. F. J. "A New Algorithm for Computing a Single Root of a
+!       Real Continuous Function" IEEE Trans. Circuits Systems 26, 979-980, 1979
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: sig(:)
+  REAL              :: sg(SIZE(sig))
+!-------------------------------------------------------------------------------
+! Local variables:
+  INTEGER :: it, ns, maxit
+  REAL :: c1, c2, x1, x2, x3, x4, f1, f2, f3, f4, s, xx, distrib
+!-------------------------------------------------------------------------------
+  ns=SIZE(sig); maxit=9999
+  c1=Pa/Preff; c2=1.-c1
+  DO l=1,ns
+    xx=HUGE(1.)
+    x1=0.0; f1=distrib(x1,c1,c2,sig(l))
+    x2=1.0; f2=distrib(x2,c1,c2,sig(l))
+    DO it=1,maxit
+      x3=0.5*(x1+x2); f3=distrib(x3,c1,c2,sig(l))
+      s=SQRT(f3**2-f1*f2);                 IF(s==0.) EXIT
+      x4=x3+(x3-x1)*(SIGN(1.,f1-f2)*f3/s); IF(ABS(10.*LOG(x4-xx))<=1E-5) EXIT
+      xx=x4; f4=distrib(x4,c1,c2,sig(l));  IF(f4==0.) EXIT
+      IF(SIGN(f3,f4)/=f3) THEN;      x1=x3; f1=f3; x2=xx; f2=f4
+      ELSE IF(SIGN(f1,f4)/=f1) THEN; x2=xx; f2=f4
+      ELSE IF(SIGN(f2,f4)/=f2) THEN; x1=xx; f1=f4
+      ELSE; CALL abort_gcm("ridders",'Algorithm failed (which is odd...')
+      END IF
+      IF(ABS(10.*LOG(ABS(x2-x1)))<=1E-5) EXIT       !--- ERROR ON SIG <= 0.01m            
+    END DO
+    IF(it==maxit+1) WRITE(lunout,'(a,i3)')'WARNING in ridder: failed to converg&
+     &e for level ',l
+    sg(l)=xx
+  END DO
+  sg(1)=1.; sg(ns)=0.
+
+END FUNCTION ridders
+
+FUNCTION racinesig(sig) RESULT(sg)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Fredho 2014/05/18
+! Purpose: Search for s solving (Pa/Preff)*sg+(1-Pa/Preff)*EXP(1-1./sg**2)=s
+! Notes:   Uses Newton Raphson search
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: sig(:)
+  REAL              :: sg(SIZE(sig))
+!-------------------------------------------------------------------------------
+! Local variables:
+  INTEGER :: it, ns, maxit
+  REAL :: c1, c2, x1, x2, x3, x4, f1, f2, f3, f4, s, xx, distrib
+!-------------------------------------------------------------------------------
+  ns=SIZE(sig); maxit=100
+  c1=Pa/Preff; c2=1.-c1
+  DO l=2,ns-1
+    sg(l)=sig(l)
+    DO it=1,maxit
+       f1=exp(1-1./sg(l)**2)*(1.-c1)
+       sg(l)=sg(l)-(c1*sg(l)+f1-sig(l))/(c1+2*f1*sg(l)**(-3))
+    ENDDO
+!   print*,'SSSSIG ',sig(l),sg(l),c1*sg(l)+exp(1-1./sg(l)**2)*(1.-c1)
+  ENDDO
+  sg(1)=1.; sg(ns)=0.
+
+END FUNCTION racinesig
+
+
+
+
+END SUBROUTINE disvert
+
+!-------------------------------------------------------------------------------
+
+FUNCTION distrib(x,c1,c2,x0) RESULT(res)
+!
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN) :: x, c1, c2, x0
+  REAL             :: res
+!-------------------------------------------------------------------------------
+  res=c1*x+c2*EXP(1-1/(x**2))-x0
+
+END FUNCTION distrib
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/disvert_noterre.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/disvert_noterre.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/disvert_noterre.F	(revision 3330)
@@ -0,0 +1,331 @@
+! $Id: $
+      SUBROUTINE disvert_noterre
+
+c    Auteur :  F. Forget Y. Wanherdrick, P. Levan
+c    Nouvelle version 100% Mars !!
+c    On l'utilise aussi pour Venus et Titan, legerment modifiee.
+
+#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 comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,
+     &                       nivsig,nivsigs,pa,preff,scaleheight
+      USE comconst_mod, ONLY: kappa
+      USE logic_mod, ONLY: hybrid
+
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "iniprint.h"
+c
+c=======================================================================
+c    Discretisation verticale en coordonnée hybride (ou sigma)
+c
+c=======================================================================
+c
+c   declarations:
+c   -------------
+c
+c
+      INTEGER l,ll
+      REAL snorm
+      REAL alpha,beta,gama,delta,deltaz
+      real quoi,quand
+      REAL zsig(llm),sig(llm+1)
+      INTEGER np,ierr
+      integer :: ierr1,ierr2,ierr3,ierr4
+      REAL x
+
+      REAL SSUM
+      EXTERNAL SSUM
+      real newsig 
+      REAL dz0,dz1,nhaut,sig1,esig,csig,zz
+      real tt,rr,gg, prevz
+      real s(llm),dsig(llm) 
+
+      integer iz 
+      real z, ps,p
+      character(len=*),parameter :: modname="disvert_noterre"
+
+c
+c-----------------------------------------------------------------------
+c
+! Initializations:
+!      pi=2.*ASIN(1.) ! already done in iniconst
+      
+      hybrid=.true. ! default value for hybrid (ie: use hybrid coordinates)
+      CALL getin('hybrid',hybrid)
+      write(lunout,*) trim(modname),': hybrid=',hybrid
+
+! Ouverture possible de fichiers typiquement E.T.
+
+         open(99,file="esasig.def",status='old',form='formatted',
+     s   iostat=ierr2)
+         if(ierr2.ne.0) then
+              close(99)
+              open(99,file="z2sig.def",status='old',form='formatted',
+     s        iostat=ierr4)
+         endif
+
+c-----------------------------------------------------------------------
+c   cas 1 on lit les options dans esasig.def:
+c   ----------------------------------------
+
+      IF(ierr2.eq.0) then
+
+c        Lecture de esasig.def :
+c        Systeme peu souple, mais qui respecte en theorie
+c        La conservation de l'energie (conversion Energie potentielle
+c        <-> energie cinetique, d'apres la note de Frederic Hourdin...
+
+         write(lunout,*)'*****************************'
+         write(lunout,*)'WARNING reading esasig.def'
+         write(lunout,*)'*****************************'
+         READ(99,*) scaleheight
+         READ(99,*) dz0
+         READ(99,*) dz1
+         READ(99,*) nhaut
+         CLOSE(99)
+
+         dz0=dz0/scaleheight
+         dz1=dz1/scaleheight
+
+         sig1=(1.-dz1)/tanh(.5*(llm-1)/nhaut)
+
+         esig=1.
+
+         do l=1,20
+            esig=-log((1./sig1-1.)*exp(-dz0)/esig)/(llm-1.)
+         enddo
+         csig=(1./sig1-1.)/(exp(esig)-1.)
+
+         DO L = 2, llm
+            zz=csig*(exp(esig*(l-1.))-1.)
+            sig(l) =1./(1.+zz)
+     &      * tanh(.5*(llm+1-l)/nhaut)
+         ENDDO
+         sig(1)=1.
+         sig(llm+1)=0.
+         quoi      = 1. + 2.* kappa
+         s( llm )  = 1.
+         s(llm-1) = quoi
+         IF( llm.gt.2 )  THEN
+            DO  ll = 2, llm-1
+               l         = llm+1 - ll
+               quand     = sig(l+1)/ sig(l)
+               s(l-1)    = quoi * (1.-quand) * s(l)  + quand * s(l+1)
+            ENDDO
+         END IF
+c
+         snorm=(1.-.5*sig(2)+kappa*(1.-sig(2)))*s(1)+.5*sig(2)*s(2)
+         DO l = 1, llm
+            s(l)    = s(l)/ snorm
+         ENDDO
+
+c-----------------------------------------------------------------------
+c   cas 2 on lit les options dans z2sig.def:
+c   ----------------------------------------
+
+      ELSE IF(ierr4.eq.0) then
+         write(lunout,*)'****************************'
+         write(lunout,*)'Reading z2sig.def'
+         write(lunout,*)'****************************'
+
+         READ(99,*) scaleheight
+         do l=1,llm
+            read(99,*) zsig(l)
+         end do
+         CLOSE(99)
+
+         sig(1) =1
+         do l=2,llm
+           sig(l) = 0.5 * ( exp(-zsig(l)/scaleheight) + 
+     &                      exp(-zsig(l-1)/scaleheight) )
+         end do
+         sig(llm+1) =0
+
+c-----------------------------------------------------------------------
+      ELSE
+         write(lunout,*) 'didn t you forget something ??? '
+         write(lunout,*) 'We need file  z2sig.def ! (OR esasig.def)'
+         stop
+      ENDIF
+c-----------------------------------------------------------------------
+
+      DO l=1,llm
+        nivsigs(l) = REAL(l)
+      ENDDO
+
+      DO l=1,llmp1
+        nivsig(l)= REAL(l)
+      ENDDO
+
+ 
+c-----------------------------------------------------------------------
+c    ....  Calculs  de ap(l) et de bp(l)  ....
+c    .........................................
+c
+c   .....  pa et preff sont lus  sur les fichiers start par dynetat0 .....
+c-----------------------------------------------------------------------
+c
+
+      if (hybrid) then  ! use hybrid coordinates
+         write(lunout,*) "*********************************"
+         write(lunout,*) "Using hybrid vertical coordinates"
+         write(lunout,*) 
+c        Coordonnees hybrides avec mod
+         DO l = 1, llm
+
+         call sig_hybrid(sig(l),pa,preff,newsig)
+            bp(l) = EXP( 1. - 1./(newsig**2)  )
+            ap(l) = pa * (newsig - bp(l) )
+         enddo
+         bp(llmp1) = 0.
+         ap(llmp1) = 0.
+      else ! use sigma coordinates
+         write(lunout,*) "********************************"
+         write(lunout,*) "Using sigma vertical coordinates"
+         write(lunout,*) 
+c        Pour ne pas passer en coordonnees hybrides
+         DO l = 1, llm
+            ap(l) = 0.
+            bp(l) = sig(l)
+         ENDDO
+         ap(llmp1) = 0.
+      endif
+
+      bp(llmp1) =   0.
+
+      write(lunout,*) trim(modname),': BP '
+      write(lunout,*)  bp
+      write(lunout,*) trim(modname),': AP '
+      write(lunout,*)  ap
+
+c     Calcul au milieu des couches :
+c     WARNING : le choix de placer le milieu des couches au niveau de
+c     pression intermédiaire est arbitraire et pourrait etre modifié.
+c     Le calcul du niveau pour la derniere couche 
+c     (on met la meme distance (en log pression)  entre P(llm)
+c     et P(llm -1) qu'entre P(llm-1) et P(llm-2) ) est
+c     Specifique.  Ce choix est spécifié ici ET dans exner_milieu.F
+
+      DO l = 1, llm-1
+       aps(l) =  0.5 *( ap(l) +ap(l+1)) 
+       bps(l) =  0.5 *( bp(l) +bp(l+1)) 
+      ENDDO
+     
+      if (hybrid) then
+         aps(llm) = aps(llm-1)**2 / aps(llm-2) 
+         bps(llm) = 0.5*(bp(llm) + bp(llm+1))
+      else
+         bps(llm) = bps(llm-1)**2 / bps(llm-2) 
+         aps(llm) = 0.
+      end if
+
+      write(lunout,*) trim(modname),': BPs '
+      write(lunout,*)  bps
+      write(lunout,*) trim(modname),': APs'
+      write(lunout,*)  aps
+
+      DO l = 1, llm
+       presnivs(l) = aps(l)+bps(l)*preff
+       pseudoalt(l) = -scaleheight*log(presnivs(l)/preff)
+      ENDDO
+
+      write(lunout,*)trim(modname),' : PRESNIVS' 
+      write(lunout,*)presnivs 
+      write(lunout,*)'Pseudo altitude of Presnivs : (for a scale ',
+     &                'height of ',scaleheight,' km)' 
+      write(lunout,*)pseudoalt
+
+c     --------------------------------------------------
+c     This can be used to plot the vertical discretization
+c     (> xmgrace -nxy testhybrid.tab )
+c     --------------------------------------------------
+c     open (53,file='testhybrid.tab')
+c     scaleheight=15.5
+c     do iz=0,34
+c       z = -5 + min(iz,34-iz)
+c     approximation of scale height for Venus
+c       scaleheight = 15.5 - z/55.*10.
+c       ps = preff*exp(-z/scaleheight)
+c       zsig(1)= -scaleheight*log((aps(1) + bps(1)*ps)/preff)
+c       do l=2,llm
+c     approximation of scale height for Venus
+c          if (zsig(l-1).le.55.) then
+c             scaleheight = 15.5 - zsig(l-1)/55.*10.
+c          else
+c             scaleheight = 5.5 - (zsig(l-1)-55.)/35.*2.
+c          endif
+c          zsig(l)= zsig(l-1)-scaleheight*
+c    .    log((aps(l) + bps(l)*ps)/(aps(l-1) + bps(l-1)*ps))
+c       end do
+c       write(53,'(I3,50F10.5)') iz, zsig
+c      end do
+c      close(53)
+c     --------------------------------------------------
+
+
+      RETURN
+      END
+
+c ************************************************************
+      subroutine sig_hybrid(sig,pa,preff,newsig)
+c     ----------------------------------------------
+c     Subroutine utilisee pour calculer des valeurs de sigma modifie
+c     pour conserver les coordonnees verticales decrites dans
+c     esasig.def/z2sig.def lors du passage en coordonnees hybrides
+c     F. Forget 2002
+c     Connaissant sig (niveaux "sigma" ou on veut mettre les couches)
+c     L'objectif est de calculer newsig telle que
+c       (1 -pa/preff)*exp(1-1./newsig**2)+(pa/preff)*newsig = sig
+c     Cela ne se résoud pas analytiquement: 
+c     => on résoud par iterration bourrine 
+c     ----------------------------------------------
+c     Information  : where exp(1-1./x**2) become << x
+c           x      exp(1-1./x**2) /x
+c           1           1
+c           0.68       0.5
+c           0.5        1.E-1
+c           0.391      1.E-2
+c           0.333      1.E-3
+c           0.295      1.E-4
+c           0.269      1.E-5
+c           0.248      1.E-6
+c        => on peut utiliser newsig = sig*preff/pa si sig*preff/pa < 0.25
+
+
+      implicit none
+      real x1, x2, sig,pa,preff, newsig, F
+      integer j
+
+      newsig = sig
+      x1=0
+      x2=1
+      if (sig.ge.1) then
+            newsig= sig
+      else if (sig*preff/pa.ge.0.25) then
+        DO J=1,9999  ! nombre d''iteration max
+          F=((1 -pa/preff)*exp(1-1./newsig**2)+(pa/preff)*newsig)/sig
+c         write(0,*) J, ' newsig =', newsig, ' F= ', F
+          if (F.gt.1) then
+              X2 = newsig
+              newsig=(X1+newsig)*0.5
+          else
+              X1 = newsig
+              newsig=(X2+newsig)*0.5
+          end if
+c         Test : on arete lorsque on approxime sig à moins de 0.01 m près 
+c         (en pseudo altitude) :
+          IF(abs(10.*log(F)).LT.1.E-5) goto 999
+        END DO
+       else   !    if (sig*preff/pa.le.0.25) then
+             newsig= sig*preff/pa
+       end if
+ 999   continue
+       Return
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diverg.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diverg.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diverg.F	(revision 3330)
@@ -0,0 +1,85 @@
+!
+! $Header$
+!
+      SUBROUTINE diverg(klevel,x,y,div)
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      INTEGER   l,ij
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+c    ...................................................................
+c
+      REAL      SSUM
+c
+c
+      DO 10 l = 1,klevel
+c
+        DO  ij = iip2, ip1jm - 1
+         div( ij + 1, l )     =  
+     *   cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) +
+     *   cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) 
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = iip2,ip1jm,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        DO  ij  = 1,iim
+         aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
+         aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+        ENDDO
+        sumypn = SSUM ( iim,aiy1,1 ) / apoln
+        sumyps = SSUM ( iim,aiy2,1 ) / apols
+c
+        DO  ij = 1,iip1
+         div(     ij    , l ) = - sumypn
+         div( ij + ip1jm, l ) =   sumyps
+        ENDDO
+  10  CONTINUE
+c
+
+ccc        CALL filtreg( div, jjp1, klevel, 2, 2, .TRUE., 1 )
+      
+c
+        DO l = 1, klevel
+           DO ij = iip2,ip1jm
+            div(ij,l) = div(ij,l) * unsaire(ij) 
+          ENDDO
+        ENDDO
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diverg_gam.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diverg_gam.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/diverg_gam.F	(revision 3330)
@@ -0,0 +1,80 @@
+!
+! $Header$
+!
+      SUBROUTINE diverg_gam(klevel,cuvscvgam,cvuscugam,unsairegam ,
+     *                       unsapolnga,unsapolsga,  x, y,  div )
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1)
+      REAL unsapolnga,unsapolsga
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+      INTEGER   l,ij
+c    ...................................................................
+c
+      REAL      SSUM
+c
+c
+      DO 10 l = 1,klevel
+c
+        DO  ij = iip2, ip1jm - 1
+         div( ij + 1, l )     = (  
+     *  cvuscugam( ij+1 ) * x( ij+1,l ) - cvuscugam( ij ) * x( ij , l) +
+     *  cuvscvgam(ij-iim) * y(ij-iim,l) - cuvscvgam(ij+1) * y(ij+1,l) )* 
+     *         unsairegam( ij+1 )
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = iip2,ip1jm,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        DO  ij  = 1,iim
+         aiy1(ij) =    cuvscvgam(    ij       ) * y(     ij     , l )
+         aiy2(ij) =    cuvscvgam( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+        ENDDO
+        sumypn = SSUM ( iim,aiy1,1 ) * unsapolnga
+        sumyps = SSUM ( iim,aiy2,1 ) * unsapolsga
+c
+        DO  ij = 1,iip1
+         div(     ij    , l ) = - sumypn 
+         div( ij + ip1jm, l ) =   sumyps 
+        ENDDO
+  10  CONTINUE
+c
+
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divergf.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divergf.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divergf.F	(revision 3330)
@@ -0,0 +1,85 @@
+!
+! $Header$
+!
+      SUBROUTINE divergf(klevel,x,y,div)
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      INTEGER   l,ij
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+c    ...................................................................
+c
+      REAL      SSUM
+c
+c
+      DO 10 l = 1,klevel
+c
+        DO  ij = iip2, ip1jm - 1
+         div( ij + 1, l )     =  
+     *   cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) +
+     *   cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) 
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = iip2,ip1jm,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        DO  ij  = 1,iim
+         aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
+         aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+        ENDDO
+        sumypn = SSUM ( iim,aiy1,1 ) / apoln
+        sumyps = SSUM ( iim,aiy2,1 ) / apols
+c
+        DO  ij = 1,iip1
+         div(     ij    , l ) = - sumypn
+         div( ij + ip1jm, l ) =   sumyps
+        ENDDO
+  10  CONTINUE
+c
+
+        CALL filtreg( div, jjp1, klevel, 2, 2, .TRUE., 1 )
+      
+c
+        DO l = 1, klevel
+           DO ij = iip2,ip1jm
+            div(ij,l) = div(ij,l) * unsaire(ij) 
+          ENDDO
+        ENDDO
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divergst.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divergst.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divergst.F	(revision 3330)
@@ -0,0 +1,62 @@
+!
+! $Header$
+!
+      SUBROUTINE divergst(klevel,x,y,div)
+      IMPLICIT NONE
+c
+c     P. Le Van
+c
+c  ******************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. x et y...
+c           x et y  etant des composantes contravariantes   ...
+c  ****************************************************************
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   -------------------------------------------------------------------
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      INTEGER ij,l,i
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+
+      REAL SSUM
+c
+c
+      DO 10 l = 1,klevel
+c
+      DO 1 ij = iip2, ip1jm - 1
+      div( ij + 1, l ) = x(ij+1,l) - x(ij,l)+ y(ij-iim,l)-y(ij+1,l)
+   1  CONTINUE
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+      DO 3 ij = iip2,ip1jm,iip1
+      div( ij,l ) = div( ij + iim,l )
+   3  CONTINUE
+c
+c     ....  calcul  aux poles  .....
+c
+c
+      DO 5 i  = 1,iim
+      aiy1(i)= y(i,l)
+      aiy2(i)= y(i+ip1jmi1,l)
+   5  CONTINUE
+      sumypn = SSUM ( iim,aiy1,1 )
+      sumyps = SSUM ( iim,aiy2,1 )
+      DO 7 i = 1,iip1
+      div(     i    , l ) = - sumypn/iim
+      div( i + ip1jm, l ) =   sumyps/iim
+   7  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divgrad.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divgrad.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divgrad.F	(revision 3330)
@@ -0,0 +1,55 @@
+!
+! $Header$
+!
+      SUBROUTINE divgrad (klevel,h, lh, divgra )
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c  Auteur :   P. Le Van
+c  ----------
+c
+c                              lh
+c      calcul de  (div( grad ))   de h  .....
+c      h  et lh  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+c=======================================================================
+c
+c   declarations:
+c   -------------
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "comdissipn.h"
+c
+      INTEGER klevel
+      REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
+c
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+
+      INTEGER  l,ij,iter,lh
+c
+c
+c
+      CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 )
+c
+      DO 10 iter = 1,lh
+
+      CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1  )
+
+      CALL    grad (klevel,divgra, ghx  , ghy          )
+      CALL  diverg (klevel,  ghx , ghy  , divgra       )
+
+      CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1)
+
+      DO 5 l = 1,klevel
+      DO 4  ij = 1, ip1jmp1
+      divgra( ij,l ) = - cdivh * divgra( ij,l )
+   4  CONTINUE
+   5  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divgrad2.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divgrad2.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/divgrad2.F	(revision 3330)
@@ -0,0 +1,79 @@
+!
+! $Header$
+!
+      SUBROUTINE divgrad2 ( klevel, h, deltapres, lh, divgra )
+c
+c     P. Le Van
+c
+c   ***************************************************************
+c
+c     .....   calcul de  (div( grad ))   de (  pext * h ) .....
+c   ****************************************************************
+c   h ,klevel,lh et pext  sont des arguments  d'entree pour le s-prg
+c         divgra     est  un argument  de sortie pour le s-prg
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "comdissipn.h"
+
+c    .......    variables en arguments   .......
+c
+      INTEGER klevel
+      REAL h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel )
+      REAL divgra( ip1jmp1,klevel)
+c
+c    .......    variables  locales    ..........
+c
+      REAL     signe, nudivgrs, sqrtps( ip1jmp1,llm )
+      INTEGER  l,ij,iter,lh
+c    ...................................................................
+
+c
+      signe    = (-1.)**lh
+      nudivgrs = signe * cdivh
+
+      CALL SCOPY ( ip1jmp1 * klevel, h, 1, divgra, 1 )
+
+c
+      CALL laplacien( klevel, divgra, divgra )
+     
+      DO l = 1, klevel
+       DO ij = 1, ip1jmp1
+        sqrtps( ij,l ) = SQRT( deltapres(ij,l) )
+       ENDDO
+      ENDDO
+c
+      DO l = 1, klevel
+        DO ij = 1, ip1jmp1
+         divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l)
+        ENDDO
+      ENDDO
+   
+c    ........    Iteration de l'operateur  laplacien_gam    ........
+c
+      DO  iter = 1, lh - 2
+       CALL laplacien_gam ( klevel,cuvscvgam2,cvuscugam2,unsair_gam2,
+     *                     unsapolnga2, unsapolsga2,  divgra, divgra )
+      ENDDO
+c
+c    ...............................................................
+ 
+      DO l = 1, klevel
+        DO ij = 1, ip1jmp1
+          divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l)
+        ENDDO
+      ENDDO
+c
+      CALL laplacien ( klevel, divgra, divgra )
+c
+      DO l  = 1,klevel
+      DO ij = 1,ip1jmp1
+      divgra(ij,l) =  nudivgrs * divgra(ij,l) / deltapres(ij,l)
+      ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/dump2d.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/dump2d.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/dump2d.F	(revision 3330)
@@ -0,0 +1,46 @@
+!
+! $Id$
+!
+      SUBROUTINE dump2d(im,jm,z,nom_z)
+      IMPLICIT NONE
+      INTEGER im,jm
+      REAL z(im,jm)
+      CHARACTER (len=*) :: nom_z
+
+      INTEGER i,j,imin,illm,jmin,jllm
+      REAL zmin,zllm
+
+      WRITE(*,*) "dump2d: ",trim(nom_z)
+
+      zmin=z(1,1)
+      zllm=z(1,1)
+      imin=1
+      illm=1
+      jmin=1
+      jllm=1
+
+      DO j=1,jm
+         DO i=1,im
+            IF(z(i,j).GT.zllm) THEN
+               illm=i
+               jllm=j
+               zllm=z(i,j)
+            ENDIF
+            IF(z(i,j).LT.zmin) THEN
+               imin=i
+               jmin=j
+               zmin=z(i,j)
+            ENDIF
+         ENDDO
+      ENDDO
+
+      PRINT*,'MIN: ',zmin
+      PRINT*,'MAX: ',zllm
+
+      IF(zllm.GT.zmin) THEN
+       DO j=1,jm
+        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+       ENDDO
+      ENDIF
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ener.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ener.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ener.h	(revision 3330)
@@ -0,0 +1,18 @@
+!
+! $Id$
+!
+!  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)
+!
+! INCLUDE 'ener.h'
+
+      COMMON/ener/ang0,etot0,ptot0,ztot0,stot0,                         &
+     &            ang,etot,ptot,ztot,stot,rmsdpdt ,                     &
+     &            rmsv,gtot(llmm1)
+
+      REAL ang0,etot0,ptot0,ztot0,stot0,                                &
+     &     ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot
+
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/enercin.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/enercin.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/enercin.F90	(revision 3330)
@@ -0,0 +1,71 @@
+SUBROUTINE enercin ( vcov, ucov, vcont, ucont, ecin )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van.
+!-------------------------------------------------------------------------------
+! Purpose: Compute kinetic energy at sigma levels.
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: vcov    (ip1jm,  llm)
+  REAL, INTENT(IN)  :: ucov    (ip1jmp1,llm)
+  REAL, INTENT(IN)  :: vcont   (ip1jm,  llm)
+  REAL, INTENT(IN)  :: ucont   (ip1jmp1,llm)
+  REAL, INTENT(OUT) :: ecin    (ip1jmp1,llm)
+!===============================================================================
+! Notes:
+!                 . V
+!                i,j-1
+!
+!      alpha4 .       . alpha1
+!
+!
+!        U .      . P     . U
+!       i-1,j    i,j      i,j
+!
+!      alpha3 .       . alpha2
+!
+!
+!                 . V
+!                i,j
+!
+! Kinetic energy at scalar point P(i,j) (excluding poles) is:
+!       Ecin = 0.5 * U(i-1,j)**2 *( alpha3 + alpha4 )  +
+!              0.5 * U(i  ,j)**2 *( alpha1 + alpha2 )  +
+!              0.5 * V(i,j-1)**2 *( alpha1 + alpha4 )  +
+!              0.5 * V(i,  j)**2 *( alpha2 + alpha3 )
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ij, i
+  REAL    :: ecinni(iip1), ecinsi(iip1), ecinpn, ecinps
+!===============================================================================
+  DO l=1,llm
+    DO ij = iip2, ip1jm -1
+      ecin(ij+1,l)=0.5*(ucov(ij    ,l)*ucont(ij    ,l)*alpha3p4(ij +1)          &
+                      + ucov(ij+1  ,l)*ucont(ij+1  ,l)*alpha1p2(ij +1)          &
+                      + vcov(ij-iim,l)*vcont(ij-iim,l)*alpha1p4(ij +1)          &
+                      + vcov(ij+1  ,l)*vcont(ij+1  ,l)*alpha2p3(ij +1) )
+    END DO
+    !--- Correction: ecin(1,j,l)= ecin(iip1,j,l)
+    DO ij=iip2,ip1jm,iip1; ecin(ij,l) = ecin(ij+iim,l); END DO
+
+    !--- North pole
+    DO i=1,iim
+      ecinni(i) = vcov(i,l)*vcont(i,l)*aire(i)
+    END DO
+    ecinpn = 0.5*SUM(ecinni(1:iim))/apoln
+    DO ij=1,iip1; ecin(ij,l)=ecinpn; END DO
+
+    !--- South pole
+    DO i=1,iim
+      ecinsi(i) = vcov(i+ip1jmi1,l)*vcont(i+ip1jmi1,l)*aire(i+ip1jm)
+    END DO
+    ecinps = 0.5*SUM(ecinsi(1:iim))/apols
+    DO ij=1,iip1; ecin(ij+ip1jm,l)=ecinps; END DO
+  END DO
+
+END SUBROUTINE enercin
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/exner_hyb_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/exner_hyb_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/exner_hyb_m.F90	(revision 3330)
@@ -0,0 +1,147 @@
+module exner_hyb_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE  exner_hyb ( ngrid, ps, p, pks, pk, pkf )
+
+    !     Auteurs :  P.Le Van  , Fr. Hourdin  .
+    !    ..........
+    !
+    !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
+    !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
+    !
+    !   ************************************************************************
+    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
+    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
+    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
+    !   ************************************************************************
+    !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
+    !    la pression et la fonction d'Exner  au  sol  .
+    !
+    !                                 -------- z
+    !    A partir des relations  ( 1 ) p*dz(pk) = kappa *pk*dz(p)      et
+    !                            ( 2 ) pk(l) = alpha(l)+ beta(l)*pk(l-1)
+    !    ( voir note de Fr.Hourdin )  ,
+    !
+    !    on determine successivement , du haut vers le bas des couches, les 
+    !    coef. alpha(llm),beta(llm) .,.,alpha(l),beta(l),,,alpha(2),beta(2), 
+    !    puis pk(ij,1). Ensuite ,on calcule,du bas vers le haut des couches,  
+    !     pk(ij,l)  donne  par la relation (2),  pour l = 2 a l = llm .
+    !
+    !
+    !
+    USE comconst_mod, ONLY: jmp1, cpp, kappa, r
+    USE comvert_mod, ONLY: preff
+    
+    IMPLICIT NONE
+    
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom.h"
+
+    INTEGER  ngrid
+    REAL p(ngrid,llmp1),pk(ngrid,llm)
+    real, optional:: pkf(ngrid,llm)
+    REAL ps(ngrid),pks(ngrid), alpha(ngrid,llm),beta(ngrid,llm)
+
+    !    .... variables locales   ...
+
+    INTEGER l, ij
+    REAL unpl2k,dellta
+
+    logical,save :: firstcall=.true.
+    character(len=*),parameter :: modname="exner_hyb"
+
+    ! Sanity check
+    if (firstcall) then
+       ! sanity checks for Shallow Water case (1 vertical layer)
+       if (llm.eq.1) then
+          if (kappa.ne.1) then
+             call abort_gcm(modname, &
+                  "kappa!=1 , but running in Shallow Water mode!!",42)
+          endif
+          if (cpp.ne.r) then
+             call abort_gcm(modname, &
+                  "cpp!=r , but running in Shallow Water mode!!",42)
+          endif
+       endif ! of if (llm.eq.1)
+
+       firstcall=.false.
+    endif ! of if (firstcall)
+
+    ! Specific behaviour for Shallow Water (1 vertical layer) case:
+    if (llm.eq.1) then
+
+       ! Compute pks(:),pk(:),pkf(:)
+
+       DO   ij  = 1, ngrid
+          pks(ij) = (cpp/preff) * ps(ij)
+          pk(ij,1) = .5*pks(ij)
+       ENDDO
+
+       if (present(pkf)) then
+          pkf = pk
+          CALL filtreg ( pkf, jmp1, llm, 2, 1, .TRUE., 1 ) 
+       end if
+
+       ! our work is done, exit routine
+       return
+    endif ! of if (llm.eq.1)
+
+    ! General case:
+
+    unpl2k    = 1.+ 2.* kappa
+
+    !     -------------
+    !     Calcul de pks
+    !     -------------
+
+    DO   ij  = 1, ngrid
+       pks(ij) = cpp * ( ps(ij)/preff ) ** kappa
+    ENDDO
+
+    !    .... Calcul des coeff. alpha et beta  pour la couche l = llm ..
+    !
+    DO     ij      = 1, ngrid
+       alpha(ij,llm) = 0.
+       beta (ij,llm) = 1./ unpl2k
+    ENDDO
+    !
+    !     ... Calcul des coeff. alpha et beta  pour l = llm-1  a l = 2 ...
+    !
+    DO l = llm -1 , 2 , -1
+       !
+       DO ij = 1, ngrid
+          dellta = p(ij,l)* unpl2k + p(ij,l+1)* ( beta(ij,l+1)-unpl2k )
+          alpha(ij,l)  = - p(ij,l+1) / dellta * alpha(ij,l+1)
+          beta (ij,l)  =   p(ij,l  ) / dellta   
+       ENDDO
+    ENDDO
+
+    !  ***********************************************************************
+    !     .....  Calcul de pk pour la couche 1 , pres du sol  ....
+    !
+    DO   ij   = 1, ngrid
+       pk(ij,1) = ( p(ij,1)*pks(ij) - 0.5*alpha(ij,2)*p(ij,2) )  / &
+            (  p(ij,1)* (1.+kappa) + 0.5*( beta(ij,2)-unpl2k )* p(ij,2) )
+    ENDDO
+    !
+    !    ..... Calcul de pk(ij,l) , pour l = 2 a l = llm  ........
+    !
+    DO l = 2, llm
+       DO   ij   = 1, ngrid
+          pk(ij,l) = alpha(ij,l) + beta(ij,l) * pk(ij,l-1)
+       ENDDO
+    ENDDO
+
+    if (present(pkf)) then
+       !    calcul de pkf
+       pkf = pk
+       CALL filtreg ( pkf, jmp1, llm, 2, 1, .TRUE., 1 )
+    end if
+
+  END SUBROUTINE exner_hyb
+
+end module exner_hyb_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/exner_milieu_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/exner_milieu_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/exner_milieu_m.F90	(revision 3330)
@@ -0,0 +1,126 @@
+module exner_milieu_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE  exner_milieu ( ngrid, ps, p, pks, pk, pkf )
+    !
+    !     Auteurs :  F. Forget , Y. Wanherdrick
+    ! P.Le Van  , Fr. Hourdin  .
+    !    ..........
+    !
+    !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
+    !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
+    !
+    !   ************************************************************************
+    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
+    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
+    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
+    !   ************************************************************************
+    !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
+    !    la pression et la fonction d'Exner  au  sol  .
+    !
+    !     WARNING : CECI est une version speciale de exner_hyb originale
+    !               Utilise dans la version martienne pour pouvoir 
+    !               tourner avec des coordonnees verticales complexe
+    !              => Il ne verifie PAS la condition la proportionalite en 
+    !              energie totale/ interne / potentielle (F.Forget 2001)
+    !    ( voir note de Fr.Hourdin )  ,
+    !
+    !
+    USE comconst_mod, ONLY: jmp1, cpp, kappa, r
+    USE comvert_mod, ONLY: preff
+    
+    IMPLICIT NONE
+    
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom.h"
+
+    INTEGER  ngrid
+    REAL p(ngrid,llmp1),pk(ngrid,llm)
+    real, optional:: pkf(ngrid,llm)
+    REAL ps(ngrid),pks(ngrid)
+
+    !    .... variables locales   ...
+
+    INTEGER l, ij
+    REAL dum1
+
+    logical,save :: firstcall=.true.
+    character(len=*),parameter :: modname="exner_milieu"
+
+    ! Sanity check
+    if (firstcall) then
+       ! sanity checks for Shallow Water case (1 vertical layer)
+       if (llm.eq.1) then
+          if (kappa.ne.1) then
+             call abort_gcm(modname, &
+                  "kappa!=1 , but running in Shallow Water mode!!",42)
+          endif
+          if (cpp.ne.r) then
+             call abort_gcm(modname, &
+                  "cpp!=r , but running in Shallow Water mode!!",42)
+          endif
+       endif ! of if (llm.eq.1)
+
+       firstcall=.false.
+    endif ! of if (firstcall)
+
+    ! Specific behaviour for Shallow Water (1 vertical layer) case:
+    if (llm.eq.1) then
+
+       ! Compute pks(:),pk(:),pkf(:)
+
+       DO   ij  = 1, ngrid
+          pks(ij) = (cpp/preff) * ps(ij)
+          pk(ij,1) = .5*pks(ij)
+       ENDDO
+
+       if (present(pkf)) then
+          pkf = pk
+          CALL filtreg ( pkf, jmp1, llm, 2, 1, .TRUE., 1 ) 
+       end if
+
+       ! our work is done, exit routine
+       return
+    endif ! of if (llm.eq.1)
+
+    ! General case:
+
+    !     -------------
+    !     Calcul de pks
+    !     -------------
+
+    DO   ij  = 1, ngrid
+       pks(ij) = cpp * ( ps(ij)/preff ) ** kappa
+    ENDDO
+
+    !    .... Calcul de pk  pour la couche l 
+    !    --------------------------------------------
+    !
+    dum1 = cpp * (2*preff)**(-kappa) 
+    DO l = 1, llm-1
+       DO   ij   = 1, ngrid
+          pk(ij,l) = dum1 * (p(ij,l) + p(ij,l+1))**kappa
+       ENDDO
+    ENDDO
+
+    !    .... Calcul de pk  pour la couche l = llm ..
+    !    (on met la meme distance (en log pression)  entre Pk(llm)
+    !    et Pk(llm -1) qu'entre Pk(llm-1) et Pk(llm-2)
+
+    DO   ij   = 1, ngrid
+       pk(ij,llm) = pk(ij,llm-1)**2 / pk(ij,llm-2)
+    ENDDO
+
+    if (present(pkf)) then
+       !    calcul de pkf
+       pkf = pk
+       CALL filtreg ( pkf, jmp1, llm, 2, 1, .TRUE., 1 )
+    end if
+
+  END SUBROUTINE exner_milieu
+
+end module exner_milieu_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/extrapol.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/extrapol.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/extrapol.F	(revision 3330)
@@ -0,0 +1,200 @@
+!
+! $Id$
+!
+C
+C
+      SUBROUTINE extrapol (pfild, kxlon, kylat, pmask,
+     .                   norsud, ldper, knbor, pwork)
+      IMPLICIT none
+c
+c OASIS routine (Adaptation: Laurent Li, le 14 mars 1997)
+c Fill up missed values by using the neighbor points
+c
+      INTEGER kxlon, kylat ! longitude and latitude dimensions (Input)
+      INTEGER knbor ! minimum neighbor number (Input)
+      LOGICAL norsud ! True if field is from North to South (Input)
+      LOGICAL ldper ! True if take into account the periodicity (Input)
+      REAL pmask ! mask value (Input)
+      REAL pfild(kxlon,kylat) ! field to be extrapolated (Input/Output)
+      REAL pwork(kxlon,kylat) ! working space
+c
+      REAL zwmsk
+      INTEGER incre, idoit, i, j, k, inbor, ideb, ifin, ilon, jlat
+      INTEGER ix(9), jy(9) ! index arrays for the neighbors coordinates
+      REAL zmask(9)
+C
+C  We search over the eight closest neighbors
+C
+C            j+1  7  8  9
+C              j  4  5  6    Current point 5 --> (i,j)
+C            j-1  1  2  3
+C                i-1 i i+1
+c
+c
+      IF (norsud) THEN
+         DO j = 1, kylat
+         DO i = 1, kxlon
+            pwork(i,j) = pfild(i,kylat-j+1)
+         ENDDO
+         ENDDO
+         DO j = 1, kylat
+         DO i = 1, kxlon
+            pfild(i,j) = pwork(i,j)
+         ENDDO
+         ENDDO
+      ENDIF
+c
+      incre = 0
+c
+      DO j = 1, kylat
+      DO i = 1, kxlon
+         pwork(i,j) = pfild(i,j)
+      ENDDO
+      ENDDO
+c
+C* To avoid problems in floating point tests
+      zwmsk = pmask - 1.0
+c
+200   CONTINUE
+      incre = incre + 1
+      DO 99999 j = 1, kylat
+      DO 99999 i = 1, kxlon
+      IF (pfild(i,j).GT. zwmsk) THEN
+         pwork(i,j) = pfild(i,j)
+         inbor = 0
+         ideb = 1
+         ifin = 9
+C
+C* Fill up ix array
+         ix(1) = MAX (1,i-1)
+         ix(2) = i
+         ix(3) = MIN (kxlon,i+1)
+         ix(4) = MAX (1,i-1)
+         ix(5) = i
+         ix(6) = MIN (kxlon,i+1)
+         ix(7) = MAX (1,i-1)
+         ix(8) = i
+         ix(9) = MIN (kxlon,i+1)
+C
+C* Fill up iy array
+         jy(1) = MAX (1,j-1)
+         jy(2) = MAX (1,j-1)
+         jy(3) = MAX (1,j-1)
+         jy(4) = j
+         jy(5) = j
+         jy(6) = j
+         jy(7) = MIN (kylat,j+1)
+         jy(8) = MIN (kylat,j+1)
+         jy(9) = MIN (kylat,j+1)
+C
+C* Correct latitude bounds if southernmost or northernmost points
+         IF (j .EQ. 1) ideb = 4
+         IF (j .EQ. kylat) ifin = 6
+C
+C* Account for periodicity in longitude
+C
+         IF (ldper) THEN 
+            IF (i .EQ. kxlon) THEN
+               ix(3) = 1
+               ix(6) = 1
+               ix(9) = 1
+            ELSE IF (i .EQ. 1) THEN
+               ix(1) = kxlon
+               ix(4) = kxlon
+               ix(7) = kxlon
+            ENDIF
+         ELSE
+            IF (i .EQ. 1) THEN
+               ix(1) = i
+               ix(2) = i + 1
+               ix(3) = i
+               ix(4) = i + 1
+               ix(5) = i
+               ix(6) = i + 1
+            ENDIF 
+            IF (i .EQ. kxlon) THEN
+               ix(1) = i -1
+               ix(2) = i
+               ix(3) = i - 1
+               ix(4) = i
+               ix(5) = i - 1
+               ix(6) = i
+            ENDIF
+C
+            IF (i .EQ. 1 .OR. i .EQ. kxlon) THEN 
+               jy(1) = MAX (1,j-1)
+               jy(2) = MAX (1,j-1)
+               jy(3) = j
+               jy(4) = j
+               jy(5) = MIN (kylat,j+1)
+               jy(6) = MIN (kylat,j+1)
+C
+               ideb = 1
+               ifin = 6
+               IF (j .EQ. 1) ideb = 3
+               IF (j .EQ. kylat) ifin = 4
+            ENDIF
+         ENDIF ! end for ldper test
+C
+C* Find unmasked neighbors
+C
+         DO 230 k = ideb, ifin
+            zmask(k) = 0.
+            ilon = ix(k)
+            jlat = jy(k)
+            IF (pfild(ilon,jlat) .LT. zwmsk) THEN
+               zmask(k) = 1.
+               inbor = inbor + 1
+            ENDIF
+ 230     CONTINUE
+C
+C* Not enough points around point P are unmasked; interpolation on P 
+C  will be done in a future call to extrap.
+C
+         IF (inbor .GE. knbor) THEN
+            pwork(i,j) = 0.
+            DO k = ideb, ifin
+               ilon = ix(k)
+               jlat = jy(k)
+               pwork(i,j) = pwork(i,j)
+     $                      + pfild(ilon,jlat) * zmask(k)/ REAL(inbor)
+            ENDDO
+         ENDIF
+C
+      ENDIF
+99999 CONTINUE
+C
+C*    3. Writing back unmasked field in pfild
+C        ------------------------------------
+C
+C* pfild then contains:
+C     - Values which were not masked
+C     - Interpolated values from the inbor neighbors
+C     - Values which are not yet interpolated
+C
+      idoit = 0
+      DO j = 1, kylat
+      DO i = 1, kxlon
+         IF (pwork(i,j) .GT. zwmsk) idoit = idoit + 1
+         pfild(i,j) = pwork(i,j)
+      ENDDO
+      ENDDO
+c
+      IF (idoit .ne. 0) GOTO 200
+ccc      PRINT*, "Number of extrapolation steps incre =", incre
+c
+      IF (norsud) THEN
+         DO j = 1, kylat
+         DO i = 1, kxlon
+            pwork(i,j) = pfild(i,kylat-j+1)
+         ENDDO
+         ENDDO
+         DO j = 1, kylat
+         DO i = 1, kxlon
+            pfild(i,j) = pwork(i,j)
+         ENDDO
+         ENDDO
+      ENDIF
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/flumass.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/flumass.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/flumass.F90	(revision 3330)
@@ -0,0 +1,76 @@
+SUBROUTINE flumass (massebx,masseby, vcont, ucont, pbaru, pbarv )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute mass flux at s levels.
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: massebx(ip1jmp1,llm)
+  REAL, INTENT(IN)  :: masseby(ip1jm  ,llm)
+  REAL, INTENT(IN)  :: vcont  (ip1jm  ,llm)
+  REAL, INTENT(IN)  :: ucont  (ip1jmp1,llm)
+  REAL, INTENT(OUT) :: pbaru  (ip1jmp1,llm)
+  REAL, INTENT(OUT) :: pbarv  (ip1jm  ,llm)
+!===============================================================================
+! Method used:   A 2 equations system is solved.
+!   * 1st one describes divergence computation at pole point nr. i (i=1 to im):
+!     (0.5*(pbaru(i)-pbaru(i-1))-pbarv(i))/aire(i) = - SUM(pbarv(n))/aire pole
+!   * 2nd one specifies that mean mass flux at pole is equal to 0:
+!     SUM(pbaru(n)*local_area(n))=0
+! This way, we determine additive constant common to pbary elements representing
+!   pbaru(0,j,l) in divergence computation equation for point i=1. (i=1 to im)
+!===============================================================================
+! Local variables:
+  REAL    :: sairen, saireun, ctn, ctn0, apbarun(iip1)
+  REAL    :: saires, saireus, cts, cts0, apbarus(iip1)
+  INTEGER :: l, i
+!===============================================================================
+  DO l=1,llm
+    pbaru(iip2:ip1jm,l)=massebx(iip2:ip1jm,l)*ucont(iip2:ip1jm,l)
+    pbarv(   1:ip1jm,l)=masseby(   1:ip1jm,l)*vcont(   1:ip1jm,l)
+  END DO
+
+  !--- NORTH POLE
+  sairen =SUM(aire (1:iim))
+  saireun=SUM(aireu(1:iim))
+  DO l = 1,llm
+    ctn=SUM(pbarv(1:iim,l))/sairen
+    pbaru(1,l)= pbarv(1,l)-ctn*aire(1)
+    DO i=2,iim
+      pbaru(i,l)=pbaru(i-1,l)+pbarv(i,l)-ctn*aire(i)
+    END DO
+    DO i=1,iim
+      apbarun(i)=aireu(i)*pbaru(i,l)
+    END DO
+    ctn0 = -SUM(apbarun(1:iim))/saireun
+    DO i = 1,iim
+      pbaru(i,l)=2.*(pbaru(i,l)+ctn0)
+    END DO
+    pbaru(iip1,l)=pbaru(1,l)
+  END DO
+
+  !--- SOUTH POLE
+  saires =SUM(aire (ip1jm+1:ip1jmp1-1))
+  saireus=SUM(aireu(ip1jm+1:ip1jmp1-1))
+  DO l = 1,llm
+    cts=SUM(pbarv(ip1jmi1+1:ip1jm-1,l))/saires
+    pbaru(1+ip1jm,l)=-pbarv(1+ip1jmi1,l)+cts*aire(1+ip1jm)
+    DO i=2,iim
+      pbaru(i+ip1jm,l)=pbaru(i-1+ip1jm,l)-pbarv(i+ip1jmi1,l)+cts*aire(i+ip1jm)
+    END DO
+    DO i=1,iim
+      apbarus(i)=aireu(i+ip1jm)*pbaru(i+ip1jm,l)
+    END DO
+    cts0 = -SUM(apbarus(1:iim))/saireus
+    DO i = 1,iim
+      pbaru(i+ip1jm,l)=2.*(pbaru(i+ip1jm,l)+cts0)
+    END DO
+    pbaru(ip1jmp1,l)=pbaru(1+ip1jm,l)
+  END DO
+
+END SUBROUTINE flumass
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxhyp_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxhyp_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxhyp_m.F90	(revision 3330)
@@ -0,0 +1,248 @@
+module fxhyp_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)
+
+    ! From LMDZ4/libf/dyn3d/fxhyp.F, version 1.2, 2005/06/03 09:11:32
+    ! Author: P. Le Van, from formulas by R. Sadourny
+
+    ! Calcule les longitudes et dérivées dans la grille du GCM pour
+    ! une fonction f(x) à dérivée tangente hyperbolique.
+
+    ! Il vaut mieux avoir : grossismx \times dzoom < pi
+
+    ! Le premier point scalaire pour une grille regulière (grossismx =
+    ! 1., taux=0., clon=0.) est à - 180 degrés.
+
+    use arth_m, only: arth
+    use invert_zoom_x_m, only: invert_zoom_x, nmax
+    use nrtype, only: pi, pi_d, twopi, twopi_d, k8
+    use principal_cshift_m, only: principal_cshift
+    use serre_mod, only: clon, grossismx, dzoomx, taux
+
+    include "dimensions.h"
+    ! for iim
+
+    REAL, intent(out):: xprimm025(:), rlonv(:), xprimv(:) ! (iim + 1)
+    real, intent(out):: rlonu(:), xprimu(:), xprimp025(:) ! (iim + 1)
+
+    ! Local:
+    real rlonm025(iim + 1), rlonp025(iim + 1)
+    REAL dzoom, step
+    real d_rlonv(iim)
+    REAL(K8) xtild(0:2 * nmax)
+    REAL(K8) fhyp(nmax:2 * nmax), ffdx, beta, Xprimt(0:2 * nmax)
+    REAL(K8) Xf(0:2 * nmax), xxpr(2 * nmax)
+    REAL(K8) fa, fb
+    INTEGER i, is2
+    REAL(K8) xmoy, fxm
+
+    !----------------------------------------------------------------------
+
+    print *, "Call sequence information: fxhyp"
+
+    test_iim: if (iim==1) then
+       rlonv(1)=0.
+       rlonu(1)=pi
+       rlonv(2)=rlonv(1)+twopi
+       rlonu(2)=rlonu(1)+twopi
+
+       xprimm025(:)=1.
+       xprimv(:)=1.
+       xprimu(:)=1.
+       xprimp025(:)=1.
+    else test_iim
+       test_grossismx: if (grossismx == 1.) then
+          step = twopi / iim
+
+          xprimm025(:iim) = step
+          xprimp025(:iim) = step
+          xprimv(:iim) = step
+          xprimu(:iim) = step
+
+          rlonv(:iim) = arth(- pi + clon / 180. * pi, step, iim)
+          rlonm025(:iim) = rlonv(:iim) - 0.25 * step
+          rlonp025(:iim) = rlonv(:iim) + 0.25 * step
+          rlonu(:iim) = rlonv(:iim) + 0.5 * step
+       else test_grossismx
+          dzoom = dzoomx * twopi_d
+          xtild = arth(- pi_d, pi_d / nmax, 2 * nmax + 1)
+
+          ! Compute fhyp:
+          DO i = nmax, 2 * nmax
+             fa = taux * (dzoom / 2. - xtild(i))
+             fb = xtild(i) * (pi_d - xtild(i))
+
+             IF (200. * fb < - fa) THEN
+                fhyp(i) = - 1.
+             ELSE IF (200. * fb < fa) THEN
+                fhyp(i) = 1.
+             ELSE
+                IF (ABS(fa) < 1e-13 .AND. ABS(fb) < 1e-13) THEN
+                   IF (200. * fb + fa < 1e-10) THEN
+                      fhyp(i) = - 1.
+                   ELSE IF (200. * fb - fa < 1e-10) THEN
+                      fhyp(i) = 1.
+                   END IF
+                ELSE
+                   fhyp(i) = TANH(fa / fb)
+                END IF
+             END IF
+
+             IF (xtild(i) == 0.) fhyp(i) = 1.
+             IF (xtild(i) == pi_d) fhyp(i) = -1.
+          END DO
+
+          ! Calcul de beta 
+
+          ffdx = 0.
+
+          DO i = nmax + 1, 2 * nmax
+             xmoy = 0.5 * (xtild(i-1) + xtild(i))
+             fa = taux * (dzoom / 2. - xmoy)
+             fb = xmoy * (pi_d - xmoy)
+
+             IF (200. * fb < - fa) THEN
+                fxm = - 1.
+             ELSE IF (200. * fb < fa) THEN
+                fxm = 1.
+             ELSE
+                IF (ABS(fa) < 1e-13 .AND. ABS(fb) < 1e-13) THEN
+                   IF (200. * fb + fa < 1e-10) THEN
+                      fxm = - 1.
+                   ELSE IF (200. * fb - fa < 1e-10) THEN
+                      fxm = 1.
+                   END IF
+                ELSE
+                   fxm = TANH(fa / fb)
+                END IF
+             END IF
+
+             IF (xmoy == 0.) fxm = 1.
+             IF (xmoy == pi_d) fxm = -1.
+
+             ffdx = ffdx + fxm * (xtild(i) - xtild(i-1))
+          END DO
+
+          print *, "ffdx = ", ffdx
+          beta = (grossismx * ffdx - pi_d) / (ffdx - pi_d)
+          print *, "beta = ", beta
+
+          IF (2. * beta - grossismx <= 0.) THEN
+             print *, 'Bad choice of grossismx, taux, dzoomx.'
+             print *, 'Decrease dzoomx or grossismx.'
+             STOP 1
+          END IF
+
+          ! calcul de Xprimt 
+          Xprimt(nmax:2 * nmax) = beta + (grossismx - beta) * fhyp
+          xprimt(:nmax - 1) = xprimt(2 * nmax:nmax + 1:- 1)
+
+          ! Calcul de Xf
+
+          DO i = nmax + 1, 2 * nmax
+             xmoy = 0.5 * (xtild(i-1) + xtild(i))
+             fa = taux * (dzoom / 2. - xmoy)
+             fb = xmoy * (pi_d - xmoy)
+
+             IF (200. * fb < - fa) THEN
+                fxm = - 1.
+             ELSE IF (200. * fb < fa) THEN
+                fxm = 1.
+             ELSE
+                fxm = TANH(fa / fb)
+             END IF
+
+             IF (xmoy == 0.) fxm = 1.
+             IF (xmoy == pi_d) fxm = -1.
+             xxpr(i) = beta + (grossismx - beta) * fxm
+          END DO
+
+          xxpr(:nmax) = xxpr(2 * nmax:nmax + 1:- 1)
+
+          Xf(0) = - pi_d
+
+          DO i=1, 2 * nmax - 1
+             Xf(i) = Xf(i-1) + xxpr(i) * (xtild(i) - xtild(i-1))
+          END DO
+
+          Xf(2 * nmax) = pi_d
+
+          call invert_zoom_x(xf, xtild, Xprimt, rlonm025(:iim), &
+               xprimm025(:iim), xuv = - 0.25_k8)
+          call invert_zoom_x(xf, xtild, Xprimt, rlonv(:iim), xprimv(:iim), &
+               xuv = 0._k8)
+          call invert_zoom_x(xf, xtild, Xprimt, rlonu(:iim), xprimu(:iim), &
+               xuv = 0.5_k8)
+          call invert_zoom_x(xf, xtild, Xprimt, rlonp025(:iim), &
+               xprimp025(:iim), xuv = 0.25_k8)
+       end if test_grossismx
+
+       is2 = 0
+
+       IF (MINval(rlonm025(:iim)) < - pi - 0.1 &
+            .or. MAXval(rlonm025(:iim)) > pi + 0.1) THEN
+          IF (clon <= 0.) THEN
+             is2 = 1
+
+             do while (rlonm025(is2) < - pi .and. is2 < iim)
+                is2 = is2 + 1
+             end do
+
+             if (rlonm025(is2) < - pi) then
+                print *, 'Rlonm025 plus petit que - pi !'
+                STOP 1
+             end if
+          ELSE
+             is2 = iim
+
+             do while (rlonm025(is2) > pi .and. is2 > 1)
+                is2 = is2 - 1
+             end do
+
+             if (rlonm025(is2) > pi) then
+                print *, 'Rlonm025 plus grand que pi !'
+                STOP 1
+             end if
+          END IF
+       END IF
+
+       call principal_cshift(is2, rlonm025, xprimm025)
+       call principal_cshift(is2, rlonv, xprimv)
+       call principal_cshift(is2, rlonu, xprimu)
+       call principal_cshift(is2, rlonp025, xprimp025)
+
+       forall (i = 1: iim) d_rlonv(i) = rlonv(i + 1) - rlonv(i)
+       print *, "Minimum longitude step:", MINval(d_rlonv) * 180. / pi, &
+            "degrees"
+       print *, "Maximum longitude step:", MAXval(d_rlonv) * 180. / pi, &
+            "degrees"
+
+       ! Check that rlonm025 <= rlonv <= rlonp025 <= rlonu:
+       DO i = 1, iim + 1
+          IF (rlonp025(i) < rlonv(i)) THEN
+             print *, 'rlonp025(', i, ') = ', rlonp025(i)
+             print *, "< rlonv(", i, ") = ", rlonv(i)
+             STOP 1
+          END IF
+
+          IF (rlonv(i) < rlonm025(i)) THEN 
+             print *, 'rlonv(', i, ') = ', rlonv(i)
+             print *, "< rlonm025(", i, ") = ", rlonm025(i)
+             STOP 1
+          END IF
+
+          IF (rlonp025(i) > rlonu(i)) THEN
+             print *, 'rlonp025(', i, ') = ', rlonp025(i)
+             print *, "> rlonu(", i, ") = ", rlonu(i)
+             STOP 1
+          END IF
+       END DO
+    end if test_iim
+
+  END SUBROUTINE fxhyp
+
+end module fxhyp_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxy.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxy.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxy.F	(revision 3330)
@@ -0,0 +1,70 @@
+!
+! $Id$
+!
+      SUBROUTINE fxy (rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1,
+     ,                    rlatu2,yprimu2,
+     , rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
+
+      USE comconst_mod, ONLY: pi
+      USE serre_mod, ONLY: pxo,pyo,alphax,alphay,transx,transy
+
+      IMPLICIT NONE
+
+c     Auteur  :  P. Le Van
+c
+c     Calcul  des longitudes et des latitudes  pour une fonction f(x,y)
+c           a tangente sinusoidale et eventuellement avec zoom  .
+c
+c
+      include "dimensions.h"
+      include "paramet.h"
+
+       INTEGER i,j
+
+       REAL rlatu(jjp1), yprimu(jjp1),rlatv(jjm), yprimv(jjm),
+     , rlatu1(jjm), yprimu1(jjm), rlatu2(jjm), yprimu2(jjm)
+       REAL rlonu(iip1),xprimu(iip1),rlonv(iip1),xprimv(iip1),
+     , rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
+
+#include "fxy_new.h"
+
+
+c    ......  calcul  des  latitudes  et de y'   .....
+c
+       DO j = 1, jjm + 1 
+          rlatu(j) = fy    ( REAL( j )        )
+         yprimu(j) = fyprim( REAL( j )        )
+       ENDDO
+
+
+       DO j = 1, jjm
+
+         rlatv(j)  = fy    ( REAL( j ) + 0.5  )
+         rlatu1(j) = fy    ( REAL( j ) + 0.25 ) 
+         rlatu2(j) = fy    ( REAL( j ) + 0.75 ) 
+
+        yprimv(j)  = fyprim( REAL( j ) + 0.5  ) 
+        yprimu1(j) = fyprim( REAL( j ) + 0.25 )
+        yprimu2(j) = fyprim( REAL( j ) + 0.75 )
+
+       ENDDO
+
+c
+c     .....  calcul   des  longitudes et de  x'   .....
+c
+       DO i = 1, iim + 1
+           rlonv(i)     = fx    (   REAL( i )          )
+           rlonu(i)     = fx    (   REAL( i ) + 0.5    )
+        rlonm025(i)     = fx    (   REAL( i ) - 0.25  )
+        rlonp025(i)     = fx    (   REAL( i ) + 0.25  )
+
+         xprimv  (i)    = fxprim (  REAL( i )          )
+         xprimu  (i)    = fxprim (  REAL( i ) + 0.5    )
+        xprimm025(i)    = fxprim (  REAL( i ) - 0.25   )
+        xprimp025(i)    = fxprim (  REAL( i ) + 0.25   )
+       ENDDO
+
+c
+       RETURN
+       END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxysinus.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxysinus.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fxysinus.F	(revision 3330)
@@ -0,0 +1,69 @@
+!
+! $Id$
+!
+      SUBROUTINE fxysinus (rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1,
+     ,                    rlatu2,yprimu2,
+     ,  rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
+
+
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+c     Calcul  des longitudes et des latitudes  pour une fonction f(x,y)
+c            avec y = Asin( j )  .
+c
+c     Auteur  :  P. Le Van
+c
+c
+#include "dimensions.h"
+#include "paramet.h"
+
+       INTEGER i,j
+
+       REAL rlatu(jjp1), yprimu(jjp1),rlatv(jjm), yprimv(jjm),
+     , rlatu1(jjm), yprimu1(jjm), rlatu2(jjm), yprimu2(jjm)
+       REAL rlonu(iip1),xprimu(iip1),rlonv(iip1),xprimv(iip1),
+     , rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
+
+#include "fxy_sin.h"
+
+
+c    ......  calcul  des  latitudes  et de y'   .....
+c
+       DO j = 1, jjm + 1 
+          rlatu(j) = fy    ( REAL( j )        )
+         yprimu(j) = fyprim( REAL( j )        )
+       ENDDO
+
+
+       DO j = 1, jjm
+
+         rlatv(j)  = fy    ( REAL( j ) + 0.5  )
+         rlatu1(j) = fy    ( REAL( j ) + 0.25 ) 
+         rlatu2(j) = fy    ( REAL( j ) + 0.75 ) 
+
+        yprimv(j)  = fyprim( REAL( j ) + 0.5  ) 
+        yprimu1(j) = fyprim( REAL( j ) + 0.25 )
+        yprimu2(j) = fyprim( REAL( j ) + 0.75 )
+
+       ENDDO
+
+c
+c     .....  calcul   des  longitudes et de  x'   .....
+c
+       DO i = 1, iim + 1
+           rlonv(i)     = fx    (   REAL( i )          )
+           rlonu(i)     = fx    (   REAL( i ) + 0.5    )
+        rlonm025(i)     = fx    (   REAL( i ) - 0.25  )
+        rlonp025(i)     = fx    (   REAL( i ) + 0.25  )
+
+         xprimv  (i)    = fxprim (  REAL( i )          )
+         xprimu  (i)    = fxprim (  REAL( i ) + 0.5    )
+        xprimm025(i)    = fxprim (  REAL( i ) - 0.25   )
+        xprimp025(i)    = fxprim (  REAL( i ) + 0.25   )
+       ENDDO
+
+c
+       RETURN
+       END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fyhyp_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fyhyp_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/fyhyp_m.F90	(revision 3330)
@@ -0,0 +1,340 @@
+module fyhyp_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE fyhyp(rlatu, yyprimu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)
+
+    ! From LMDZ4/libf/dyn3d/fyhyp.F, version 1.2, 2005/06/03 09:11:32
+
+    ! Author: P. Le Van, from analysis by R. Sadourny 
+
+    ! Calcule les latitudes et dérivées dans la grille du GCM pour une
+    ! fonction f(y) à dérivée tangente hyperbolique.
+
+    ! Il vaut mieux avoir : grossismy * dzoom < pi / 2
+
+    use coefpoly_m, only: coefpoly
+    use nrtype, only: k8
+    use serre_mod, only: clat, grossismy, dzoomy, tauy
+
+    include "dimensions.h"
+    ! for jjm
+
+    REAL, intent(out):: rlatu(jjm + 1), yyprimu(jjm + 1)
+    REAL, intent(out):: rlatv(jjm)
+    real, intent(out):: rlatu2(jjm), yprimu2(jjm), rlatu1(jjm), yprimu1(jjm)
+
+    ! Local: 
+
+    REAL(K8) champmin, champmax
+    INTEGER, PARAMETER:: nmax=30000, nmax2=2*nmax
+    REAL dzoom ! distance totale de la zone du zoom (en radians)
+    REAL(K8) ylat(jjm + 1), yprim(jjm + 1)
+    REAL(K8) yuv
+    REAL(K8), save:: yt(0:nmax2)
+    REAL(K8) fhyp(0:nmax2), beta
+    REAL(K8), save:: ytprim(0:nmax2)
+    REAL(K8) fxm(0:nmax2)
+    REAL(K8), save:: yf(0:nmax2)
+    REAL(K8) yypr(0:nmax2)
+    REAL(K8) yvrai(jjm + 1), yprimm(jjm + 1), ylatt(jjm + 1)
+    REAL(K8) pi, pis2, epsilon, y0, pisjm
+    REAL(K8) yo1, yi, ylon2, ymoy, yprimin
+    REAL(K8) yfi, yf1, ffdy
+    REAL(K8) ypn, deply, y00
+    SAVE y00, deply
+
+    INTEGER i, j, it, ik, iter, jlat
+    INTEGER jpn, jjpn
+    SAVE jpn
+    REAL(K8) a0, a1, a2, a3, yi2, heavyy0, heavyy0m
+    REAL(K8) fa(0:nmax2), fb(0:nmax2)
+    REAL y0min, y0max
+
+    REAL(K8) heavyside
+
+    !-------------------------------------------------------------------
+
+    print *, "Call sequence information: fyhyp"
+
+    pi = 2.*asin(1.)
+    pis2 = pi/2.
+    pisjm = pi/real(jjm)
+    epsilon = 1e-3
+    y0 = clat*pi/180.
+    dzoom = dzoomy*pi
+    print *, 'yzoom(rad), grossismy, tauy, dzoom (rad):'
+    print *, y0, grossismy, tauy, dzoom
+
+    DO i = 0, nmax2
+       yt(i) = -pis2 + real(i)*pi/nmax2
+    END DO
+
+    heavyy0m = heavyside(-y0)
+    heavyy0 = heavyside(y0)
+    y0min = 2.*y0*heavyy0m - pis2
+    y0max = 2.*y0*heavyy0 + pis2
+
+    fa = 999.999
+    fb = 999.999
+
+    DO i = 0, nmax2
+       IF (yt(i)<y0) THEN
+          fa(i) = tauy*(yt(i)-y0 + dzoom/2.)
+          fb(i) = (yt(i)-2.*y0*heavyy0m + pis2)*(y0-yt(i))
+       ELSE IF (yt(i)>y0) THEN
+          fa(i) = tauy*(y0-yt(i) + dzoom/2.)
+          fb(i) = (2.*y0*heavyy0-yt(i) + pis2)*(yt(i)-y0)
+       END IF
+
+       IF (200.*fb(i)<-fa(i)) THEN
+          fhyp(i) = -1.
+       ELSE IF (200.*fb(i)<fa(i)) THEN
+          fhyp(i) = 1.
+       ELSE
+          fhyp(i) = tanh(fa(i)/fb(i))
+       END IF
+
+       IF (yt(i)==y0) fhyp(i) = 1.
+       IF (yt(i)==y0min .OR. yt(i)==y0max) fhyp(i) = -1.
+    END DO
+
+    ! Calcul de beta 
+
+    ffdy = 0.
+
+    DO i = 1, nmax2
+       ymoy = 0.5*(yt(i-1) + yt(i))
+       IF (ymoy<y0) THEN
+          fa(i) = tauy*(ymoy-y0 + dzoom/2.)
+          fb(i) = (ymoy-2.*y0*heavyy0m + pis2)*(y0-ymoy)
+       ELSE IF (ymoy>y0) THEN
+          fa(i) = tauy*(y0-ymoy + dzoom/2.)
+          fb(i) = (2.*y0*heavyy0-ymoy + pis2)*(ymoy-y0)
+       END IF
+
+       IF (200.*fb(i)<-fa(i)) THEN
+          fxm(i) = -1.
+       ELSE IF (200.*fb(i)<fa(i)) THEN
+          fxm(i) = 1.
+       ELSE
+          fxm(i) = tanh(fa(i)/fb(i))
+       END IF
+       IF (ymoy==y0) fxm(i) = 1.
+       IF (ymoy==y0min .OR. yt(i)==y0max) fxm(i) = -1.
+       ffdy = ffdy + fxm(i)*(yt(i)-yt(i-1))
+    END DO
+
+    beta = (grossismy*ffdy-pi)/(ffdy-pi)
+
+    IF (2. * beta - grossismy <= 0.) THEN
+       print *, 'Attention ! La valeur beta calculee dans la routine fyhyp ' &
+            // 'est mauvaise. Modifier les valeurs de grossismy, tauy ou ' &
+            // 'dzoomy et relancer.'
+       STOP 1
+    END IF
+
+    ! calcul de Ytprim 
+
+    DO i = 0, nmax2
+       ytprim(i) = beta + (grossismy-beta)*fhyp(i)
+    END DO
+
+    ! Calcul de Yf 
+
+    yf(0) = -pis2
+    DO i = 1, nmax2
+       yypr(i) = beta + (grossismy-beta)*fxm(i)
+    END DO
+
+    DO i = 1, nmax2
+       yf(i) = yf(i-1) + yypr(i)*(yt(i)-yt(i-1))
+    END DO
+
+    ! yuv = 0. si calcul des latitudes aux pts. U 
+    ! yuv = 0.5 si calcul des latitudes aux pts. V 
+
+    loop_ik: DO ik = 1, 4
+       IF (ik==1) THEN
+          yuv = 0.
+          jlat = jjm + 1
+       ELSE IF (ik==2) THEN
+          yuv = 0.5
+          jlat = jjm
+       ELSE IF (ik==3) THEN
+          yuv = 0.25
+          jlat = jjm
+       ELSE IF (ik==4) THEN
+          yuv = 0.75
+          jlat = jjm
+       END IF
+
+       yo1 = 0.
+       DO j = 1, jlat
+          yo1 = 0.
+          ylon2 = -pis2 + pisjm*(real(j) + yuv-1.)
+          yfi = ylon2
+
+          it = nmax2
+          DO while (it >= 1 .and. yfi < yf(it))
+             it = it - 1
+          END DO
+
+          yi = yt(it)
+          IF (it==nmax2) THEN
+             it = nmax2 - 1
+             yf(it + 1) = pis2
+          END IF
+
+          ! Interpolation entre yi(it) et yi(it + 1) pour avoir Y(yi)
+          ! et Y'(yi) 
+
+          CALL coefpoly(yf(it), yf(it + 1), ytprim(it), ytprim(it + 1), &
+               yt(it), yt(it + 1), a0, a1, a2, a3)
+
+          yf1 = yf(it)
+          yprimin = a1 + 2.*a2*yi + 3.*a3*yi*yi
+
+          iter = 1
+          DO
+             yi = yi - (yf1-yfi)/yprimin
+             IF (abs(yi-yo1)<=epsilon .or. iter == 300) exit
+             yo1 = yi
+             yi2 = yi*yi
+             yf1 = a0 + a1*yi + a2*yi2 + a3*yi2*yi
+             yprimin = a1 + 2.*a2*yi + 3.*a3*yi2
+          END DO
+          if (abs(yi-yo1) > epsilon) then
+             print *, 'Pas de solution.', j, ylon2
+             STOP 1
+          end if
+
+          yprimin = a1 + 2.*a2*yi + 3.*a3*yi*yi
+          yprim(j) = pi/(jjm*yprimin)
+          yvrai(j) = yi
+       END DO
+
+       DO j = 1, jlat - 1
+          IF (yvrai(j + 1)<yvrai(j)) THEN
+             print *, 'Problème avec rlat(', j + 1, ') plus petit que rlat(', &
+                  j, ')'
+             STOP 1
+          END IF
+       END DO
+
+       print *, 'Reorganisation des latitudes pour avoir entre - pi/2 et pi/2'
+
+       IF (ik==1) THEN
+          ypn = pis2
+          DO j = jjm + 1, 1, -1
+             IF (yvrai(j)<=ypn) exit
+          END DO
+
+          jpn = j
+          y00 = yvrai(jpn)
+          deply = pis2 - y00
+       END IF
+
+       DO j = 1, jjm + 1 - jpn
+          ylatt(j) = -pis2 - y00 + yvrai(jpn + j-1)
+          yprimm(j) = yprim(jpn + j-1)
+       END DO
+
+       jjpn = jpn
+       IF (jlat==jjm) jjpn = jpn - 1
+
+       DO j = 1, jjpn
+          ylatt(j + jjm + 1-jpn) = yvrai(j) + deply
+          yprimm(j + jjm + 1-jpn) = yprim(j)
+       END DO
+
+       ! Fin de la reorganisation
+
+       DO j = 1, jlat
+          ylat(j) = ylatt(jlat + 1-j)
+          yprim(j) = yprimm(jlat + 1-j)
+       END DO
+
+       DO j = 1, jlat
+          yvrai(j) = ylat(j)*180./pi
+       END DO
+
+       IF (ik==1) THEN
+          DO j = 1, jjm + 1
+             rlatu(j) = ylat(j)
+             yyprimu(j) = yprim(j)
+          END DO
+       ELSE IF (ik==2) THEN
+          DO j = 1, jjm
+             rlatv(j) = ylat(j)
+          END DO
+       ELSE IF (ik==3) THEN
+          DO j = 1, jjm
+             rlatu2(j) = ylat(j)
+             yprimu2(j) = yprim(j)
+          END DO
+       ELSE IF (ik==4) THEN
+          DO j = 1, jjm
+             rlatu1(j) = ylat(j)
+             yprimu1(j) = yprim(j)
+          END DO
+       END IF
+    END DO loop_ik
+
+    DO j = 1, jjm
+       ylat(j) = rlatu(j) - rlatu(j + 1)
+    END DO
+    champmin = 1e12
+    champmax = -1e12
+    DO j = 1, jjm
+       champmin = min(champmin, ylat(j))
+       champmax = max(champmax, ylat(j))
+    END DO
+    champmin = champmin*180./pi
+    champmax = champmax*180./pi
+
+    DO j = 1, jjm
+       IF (rlatu1(j) <= rlatu2(j)) THEN
+          print *, 'Attention ! rlatu1 < rlatu2 ', rlatu1(j), rlatu2(j), j
+          STOP 13
+       ENDIF
+
+       IF (rlatu2(j) <= rlatu(j+1)) THEN
+          print *, 'Attention ! rlatu2 < rlatup1 ', rlatu2(j), rlatu(j+1), j
+          STOP 14
+       ENDIF
+
+       IF (rlatu(j) <= rlatu1(j)) THEN
+          print *, ' Attention ! rlatu < rlatu1 ', rlatu(j), rlatu1(j), j
+          STOP 15
+       ENDIF
+
+       IF (rlatv(j) <= rlatu2(j)) THEN
+          print *, ' Attention ! rlatv < rlatu2 ', rlatv(j), rlatu2(j), j
+          STOP 16
+       ENDIF
+
+       IF (rlatv(j) >= rlatu1(j)) THEN
+          print *, ' Attention ! rlatv > rlatu1 ', rlatv(j), rlatu1(j), j
+          STOP 17
+       ENDIF
+
+       IF (rlatv(j) >= rlatu(j)) THEN
+          print *, ' Attention ! rlatv > rlatu ', rlatv(j), rlatu(j), j
+          STOP 18
+       ENDIF
+    ENDDO
+
+    print *, 'Latitudes'
+    print 3, champmin, champmax
+
+3   Format(1x, ' Au centre du zoom, la longueur de la maille est', &
+         ' d environ ', f0.2, ' degres ', /, &
+         ' alors que la maille en dehors de la zone du zoom est ', &
+         "d'environ ", f0.2, ' degres ')
+
+  END SUBROUTINE fyhyp
+
+end module fyhyp_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/geopot.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/geopot.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/geopot.F	(revision 3330)
@@ -0,0 +1,63 @@
+!
+! $Header$
+!
+      SUBROUTINE geopot (ngrid, teta, pk, pks, phis, phi )
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c    *******************************************************************
+c    ....   calcul du geopotentiel aux milieux des couches    .....
+c    *******************************************************************
+c
+c     ....   l'integration se fait de bas en haut  ....
+c
+c     .. ngrid,teta,pk,pks,phis sont des argum. d'entree pour le s-pg ..
+c              phi               est un  argum. de sortie pour le s-pg .
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER ngrid
+      REAL teta(ngrid,llm),pks(ngrid),phis(ngrid),pk(ngrid,llm) ,
+     *       phi(ngrid,llm)
+
+
+c   Local:
+c   ------
+
+      INTEGER  l, ij
+
+
+c-----------------------------------------------------------------------
+c     calcul de phi au niveau 1 pres du sol  .....
+
+      DO   1  ij  = 1, ngrid
+      phi( ij,1 ) = phis( ij ) + teta(ij,1) * ( pks(ij) - pk(ij,1) )
+   1  CONTINUE
+
+c     calcul de phi aux niveaux superieurs  .......
+
+      DO  l = 2,llm
+        DO  ij    = 1,ngrid
+        phi(ij,l) = phi(ij,l-1) + 0.5 * ( teta(ij,l)  + teta(ij,l-1) ) 
+     *                              *   (  pk(ij,l-1) -  pk(ij,l)    )
+        ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_ecrit_fi.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_ecrit_fi.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_ecrit_fi.F	(revision 3330)
@@ -0,0 +1,32 @@
+!
+! $Header$
+!
+	SUBROUTINE gr_ecrit_fi(nfield,nlon,iim,jjmp1,ecrit,fi)
+
+	IMPLICIT none
+
+c Transformer une variable de la grille d'ecriture a la grille physique
+	
+	INTEGER nfield,nlon,iim,jjmp1, jjm
+      REAL fi(nlon,nfield), ecrit(iim,jjmp1,nfield)
+c
+      INTEGER i, j, n, ig
+c
+c	print*,'iim jjm ',iim,jjm
+
+c modif par abd 21 02 01
+
+        jjm = jjmp1 - 1
+	do n = 1, nfield
+	    fi(1,n) = ecrit(1,1,n)
+            fi(nlon,n) = ecrit(1,jjm+1,n)
+         DO j = 2, jjm
+            ig = 2+(j-2)*iim
+            DO i = 1, iim
+	     fi(ig-1+i,n) = ecrit(i,j,n)
+            ENDDO
+         ENDDO
+      ENDDO
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_int_dyn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_int_dyn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_int_dyn.F	(revision 3330)
@@ -0,0 +1,49 @@
+!
+! $Header$
+!
+      subroutine gr_int_dyn(champin,champdyn,iim,jp1)
+      implicit none
+c=======================================================================
+c   passage d'un champ interpole a un champ sur grille scalaire
+c=======================================================================
+c-----------------------------------------------------------------------
+c   declarations:
+c   -------------
+
+      INTEGER iim
+      integer ip1, jp1
+      REAL champin(iim, jp1)
+      REAL champdyn(iim+1, jp1)
+
+      INTEGER i, j
+      real polenord, polesud
+
+c-----------------------------------------------------------------------
+c   calcul:
+c   -------
+
+      ip1 = iim + 1
+      polenord = 0.
+      polesud = 0.
+      do i = 1, iim
+        polenord = polenord + champin (i, 1)
+        polesud = polesud + champin (i, jp1)
+      enddo
+      polenord = polenord / iim
+      polesud = polesud / iim
+      do j = 1, jp1
+        do i = 1, iim
+          if (j .eq. 1) then
+            champdyn(i, j) = polenord
+          else if (j .eq. jp1) then
+            champdyn(i, j) = polesud
+          else
+            champdyn(i, j) = champin (i, j)
+          endif
+        enddo
+        champdyn(ip1, j) = champdyn(1, j)
+      enddo
+
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_u_scal.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_u_scal.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_u_scal.F	(revision 3330)
@@ -0,0 +1,60 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_u_scal(nx,x_u,x_scal)
+c%W%    %G%
+c=======================================================================
+c
+c   Author:    Frederic Hourdin      original: 11/11/92
+c   -------
+c
+c   Subject:
+c   ------
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER nx
+      REAL x_u(ip1jmp1,nx),x_scal(ip1jmp1,nx)
+
+c   Local:
+c   ------
+
+      INTEGER l,ij
+
+c-----------------------------------------------------------------------
+
+      DO l=1,nx
+         DO ij=ip1jmp1,2,-1
+            x_scal(ij,l)=
+     s      (aireu(ij)*x_u(ij,l)+aireu(ij-1)*x_u(ij-1,l))
+     s      /(aireu(ij)+aireu(ij-1))
+         ENDDO
+      ENDDO
+
+      CALL SCOPY(nx*jjp1,x_scal(iip1,1),iip1,x_scal(1,1),iip1)
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_v_scal.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_v_scal.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gr_v_scal.F	(revision 3330)
@@ -0,0 +1,64 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_v_scal(nx,x_v,x_scal)
+c%W%    %G%
+c=======================================================================
+c
+c   Author:    Frederic Hourdin      original: 11/11/92
+c   -------
+c
+c   Subject:
+c   ------
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER nx
+      REAL x_v(ip1jm,nx),x_scal(ip1jmp1,nx)
+
+c   Local:
+c   ------
+
+      INTEGER l,ij
+
+c-----------------------------------------------------------------------
+
+      DO l=1,nx
+         DO ij=iip2,ip1jm
+            x_scal(ij,l)=
+     s      (airev(ij-iip1)*x_v(ij-iip1,l)+airev(ij)*x_v(ij,l))
+     s      /(airev(ij-iip1)+airev(ij))
+         ENDDO
+         DO ij=1,iip1
+            x_scal(ij,l)=0.
+         ENDDO
+         DO ij=ip1jm+1,ip1jmp1
+            x_scal(ij,l)=0.
+         ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/grad.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/grad.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/grad.F	(revision 3330)
@@ -0,0 +1,44 @@
+!
+! $Header$
+!
+      SUBROUTINE  grad(klevel, pg,pgx,pgy )
+c
+c      P. Le Van
+c
+c    ******************************************************************
+c     .. calcul des composantes covariantes en x et y du gradient de g
+c
+c    ******************************************************************
+c             pg        est un   argument  d'entree pour le s-prog
+c       pgx  et  pgy    sont des arguments de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      INTEGER klevel
+      REAL  pg( ip1jmp1,klevel )
+      REAL pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel )
+      INTEGER  l,ij
+c
+c
+      DO 6 l = 1,klevel
+c
+      DO 2  ij = 1, ip1jmp1 - 1
+      pgx( ij,l ) = pg( ij +1,l ) - pg( ij,l )
+   2  CONTINUE
+c
+c    .... correction pour  pgx(ip1,j,l)  ....
+c    ...    pgx(iip1,j,l)= pgx(1,j,l)  ....
+CDIR$ IVDEP
+      DO 3  ij = iip1, ip1jmp1, iip1
+      pgx( ij,l ) = pgx( ij -iim,l )
+   3  CONTINUE
+c
+      DO 4 ij = 1,ip1jm
+      pgy( ij,l ) = pg( ij,l ) - pg( ij +iip1,l )
+   4  CONTINUE
+c
+   6  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradiv.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradiv.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradiv.F	(revision 3330)
@@ -0,0 +1,56 @@
+!
+! $Header$
+!
+      SUBROUTINE gradiv(klevel, xcov, ycov, ld, gdx, gdy )
+c
+c    Auteur :   P. Le Van
+c
+c   ***************************************************************
+c
+c                                ld
+c       calcul  de  (grad (div) )   du vect. v ....
+c
+c     xcov et ycov etant les composant.covariantes de v
+c   ****************************************************************
+c    xcov , ycov et ld  sont des arguments  d'entree pour le s-prog
+c     gdx   et  gdy     sont des arguments de sortie pour le s-prog
+c
+c
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissipn.h"
+
+      INTEGER klevel
+c
+      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL gdx( ip1jmp1,klevel ),   gdy( ip1jm,klevel )
+
+      REAL div(ip1jmp1,llm)
+
+      INTEGER l,ij,iter,ld
+c
+c
+c
+      CALL SCOPY( ip1jmp1*klevel,xcov,1,gdx,1 )
+      CALL SCOPY( ip1jm*klevel,  ycov,1,gdy,1 )
+c
+      DO 10 iter = 1,ld
+c
+      CALL  diverg( klevel,  gdx , gdy, div          )
+      CALL filtreg( div, jjp1, klevel, 2,1, .true.,2 )
+      CALL    grad( klevel,  div, gdx, gdy           )
+c
+      DO 5  l = 1, klevel
+      DO 3 ij = 1, ip1jmp1
+      gdx( ij,l ) = - gdx( ij,l ) * cdivu
+   3  CONTINUE
+      DO 4 ij = 1, ip1jm
+      gdy( ij,l ) = - gdy( ij,l ) * cdivu
+   4  CONTINUE
+   5  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradiv2.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradiv2.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradiv2.F	(revision 3330)
@@ -0,0 +1,79 @@
+!
+! $Header$
+!
+      SUBROUTINE gradiv2(klevel, xcov, ycov, ld, gdx, gdy )
+c
+c     P. Le Van
+c
+c   **********************************************************
+c                                ld
+c       calcul  de  (grad (div) )   du vect. v ....
+c
+c     xcov et ycov etant les composant.covariantes de v
+c   **********************************************************
+c     xcont , ycont et ld  sont des arguments  d'entree pour le s-prog
+c      gdx   et  gdy       sont des arguments de sortie pour le s-prog
+c
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "comdissipn.h"
+c
+c     ........    variables en arguments      ........
+
+      INTEGER klevel
+      REAL  xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL   gdx( ip1jmp1,klevel ),  gdy( ip1jm,klevel )
+c
+c     ........       variables locales       .........
+c
+      REAL div(ip1jmp1,llm)
+      REAL signe, nugrads
+      INTEGER l,ij,iter,ld
+      
+c    ........................................................
+c
+c
+      CALL SCOPY( ip1jmp1 * klevel, xcov, 1, gdx, 1 )
+      CALL SCOPY(   ip1jm * klevel, ycov, 1, gdy, 1 )
+c
+c
+      signe   = (-1.)**ld
+      nugrads = signe * cdivu
+c
+
+
+      CALL    divergf( klevel, gdx,   gdy , div )
+
+      IF( ld.GT.1 )   THEN
+
+        CALL laplacien ( klevel, div,  div     )
+
+c    ......  Iteration de l'operateur laplacien_gam   .......
+
+        DO iter = 1, ld -2
+         CALL laplacien_gam ( klevel,cuvscvgam1,cvuscugam1,unsair_gam1,
+     *                       unsapolnga1, unsapolsga1,  div, div       )
+        ENDDO
+
+      ENDIF
+
+
+       CALL filtreg( div   , jjp1, klevel, 2, 1, .TRUE., 1 )
+       CALL  grad  ( klevel,  div,   gdx,  gdy             )
+
+c
+       DO   l = 1, klevel
+         DO  ij = 1, ip1jmp1
+          gdx( ij,l ) = gdx( ij,l ) * nugrads
+         ENDDO
+         DO  ij = 1, ip1jm
+          gdy( ij,l ) = gdy( ij,l ) * nugrads
+         ENDDO
+       ENDDO
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradsdef.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradsdef.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/gradsdef.h	(revision 3330)
@@ -0,0 +1,23 @@
+!
+! $Header$
+!
+      integer nfmx,imx,jmx,lmx,nvarmx
+      parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000)
+
+      real xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)
+
+      integer imd(imx),jmd(jmx),lmd(lmx)
+      integer iid(imx),jid(jmx)
+      integer ifd(imx),jfd(jmx)
+      integer unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx)
+
+      integer nvar(nfmx),ivar(nfmx)
+      logical firsttime(nfmx)
+
+      character*10 var(nvarmx,nfmx),fichier(nfmx)
+      character*40 title(nfmx),tvar(nvarmx,nfmx)
+
+      common/gradsdef/xd,yd,zd,dtime,
+     s   imd,jmd,lmd,iid,jid,ifd,jfd,
+     s   unit,irec,nvar,ivar,itime,nld,firsttime,
+     s   var,fichier,title,tvar
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90	(revision 3330)
@@ -0,0 +1,263 @@
+!
+! $Id: $
+!
+! This subroutine creates the file grilles_gcm.nc containg longitudes and
+! latitudes in degrees for grid u and v. This subroutine is called from
+! ce0l. This subroutine corresponds to the first 
+! part in the program create_fausse_var.
+!
+SUBROUTINE grilles_gcm_netcdf_sub(masque,phis)
+
+  USE comconst_mod, ONLY: cpp, kappa, g, omeg, daysec, rad, pi
+  USE comvert_mod, ONLY: presnivs, preff, pa
+  
+  IMPLICIT NONE
+
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  INCLUDE "comgeom.h"
+  INCLUDE "netcdf.inc"
+
+
+  REAL,DIMENSION(iip1,jjp1),INTENT(IN)  :: masque ! masque terre/mer
+  REAL,DIMENSION(iip1,jjp1),INTENT(IN)  :: phis   ! geopotentiel au sol
+
+  REAL temp(iim+1,jjm+1)
+  ! Attributs netcdf sortie
+  INTEGER ncid_out,rcode_out
+  INTEGER out_lonuid,out_lonvid,out_latuid,out_latvid,out_levid
+  INTEGER out_varid
+  INTEGER out_lonudim,out_lonvdim
+  INTEGER out_latudim,out_latvdim,out_dim(3)
+  INTEGER out_levdim
+
+  INTEGER start(4),COUNT(4)
+
+  INTEGER status,i,j
+  REAL rlatudeg(jjp1),rlatvdeg(jjm),rlevdeg(llm)
+  REAL rlonudeg(iip1),rlonvdeg(iip1)
+
+  REAL dlon1(iip1),dlon2(iip1),dlat1(jjp1),dlat2(jjp1)
+  REAL acoslat,dxkm,dykm,resol(iip1,jjp1)
+  REAL,DIMENSION(iip1,jjp1)  :: phis_loc
+  INTEGER masque_int(iip1,jjp1)
+  INTEGER :: phis_id
+  INTEGER :: area_id
+  INTEGER :: mask_id
+  INTEGER :: presnivs_id
+  
+  rad = 6400000
+  omeg = 7.272205e-05
+  g = 9.8
+  kappa = 0.285716
+  daysec = 86400
+  cpp = 1004.70885
+
+  preff = 101325.
+  pa= 50000.
+
+  CALL conf_gcm( 99, .TRUE. )
+  CALL iniconst
+  CALL inigeom
+
+  DO j=1,jjp1
+     rlatudeg(j)=rlatu(j)*180./pi
+  ENDDO
+  DO j=1,jjm
+     rlatvdeg(j)=rlatv(j)*180./pi
+  ENDDO
+
+  DO i=1,iip1
+     rlonudeg(i)=rlonu(i)*180./pi + 360.
+     rlonvdeg(i)=rlonv(i)*180./pi + 360.
+  ENDDO
+
+
+  !  2 ----- OUVERTURE DE LA SORTIE NETCDF
+  ! ---------------------------------------------------
+  ! CREATION OUTPUT
+  ! ouverture fichier netcdf de sortie out
+  status=NF_CREATE('grilles_gcm.nc',NF_CLOBBER,ncid_out)
+  CALL handle_err(status)
+  status=NF_DEF_DIM(ncid_out,'lonu',iim+1,out_lonudim)
+  CALL handle_err(status)
+  status=NF_DEF_DIM(ncid_out,'lonv',iim+1,out_lonvdim)
+  CALL handle_err(status)
+  status=NF_DEF_DIM(ncid_out,'latu',jjm+1,out_latudim)
+  CALL handle_err(status)
+  status=NF_DEF_DIM(ncid_out,'latv',jjm,out_latvdim)
+  CALL handle_err(status)
+
+
+  !   Longitudes en u
+  status=NF_DEF_VAR(ncid_out,'lonu',NF_FLOAT,1,out_lonudim, out_lonuid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_lonuid,'units', 12,'degrees_east')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_lonuid,'long_name',9,'Longitude en u')
+
+  !   Longitudes en v
+  status=NF_DEF_VAR(ncid_out,'lonv',NF_FLOAT,1,out_lonvdim, out_lonvid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_lonvid,'units', 12,'degrees_east')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_lonvid,'long_name', 9,'Longitude en v')
+
+  !   Latitude en u
+  status=NF_DEF_VAR(ncid_out,'latu',NF_FLOAT,1,out_latudim, out_latuid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_latuid,'units', 13,'degrees_north')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_latuid,'long_name', 8,'Latitude en u')
+
+  !  Latitude en v
+  status=NF_DEF_VAR(ncid_out,'latv',NF_FLOAT,1,out_latvdim, out_latvid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_latvid,'units', 13,'degrees_north')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_latvid,'long_name', 8,'Latitude en v')
+
+  !   ecriture de la grille u
+  out_dim(1)=out_lonudim
+  out_dim(2)=out_latudim
+  status=NF_DEF_VAR(ncid_out,'grille_u',NF_FLOAT,2,out_dim, out_varid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_varid,'units', 6,'Kelvin')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_varid,'long_name', 16,'Grille aux point u')
+
+  !   ecriture de la grille v
+  out_dim(1)=out_lonvdim
+  out_dim(2)=out_latvdim
+  status=NF_DEF_VAR(ncid_out,'grille_v',NF_FLOAT,2,out_dim, out_varid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_varid,'units', 6,'Kelvin')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_varid,'long_name', 16,'Grille aux point v')
+
+  !   ecriture de la grille u
+  out_dim(1)=out_lonvdim
+  out_dim(2)=out_latudim
+  status=NF_DEF_VAR(ncid_out,'grille_s',NF_FLOAT,2,out_dim, out_varid)
+  CALL handle_err(status)
+  status=NF_PUT_ATT_TEXT(ncid_out,out_varid,'units', 6,'Kelvin')
+  status=NF_PUT_ATT_TEXT(ncid_out,out_varid,'long_name',16,'Grille aux point u')
+
+  status=NF_ENDDEF(ncid_out)
+  write(*,*) "COUCOU 6"
+  CALL handle_err(status)
+  ! 5) ----- FERMETURE DES FICHIERS NETCDF------------------
+  ! --------------------------------------------------------
+  ! 3-b- Ecriture de la grille pour la sortie
+  ! rajoute l'ecriture de la grille
+
+#ifdef NC_DOUBLE
+  status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonuid,1,iim+1,rlonudeg)
+  CALL handle_err(status)
+  status=NF_PUT_VARA_DOUBLE(ncid_out,out_lonvid,1,iim+1,rlonvdeg)
+  CALL handle_err(status)
+  status=NF_PUT_VARA_DOUBLE(ncid_out,out_latuid,1,jjm+1,rlatudeg)
+  CALL handle_err(status)
+  status=NF_PUT_VARA_DOUBLE(ncid_out,out_latvid,1,jjm,rlatvdeg)
+  CALL handle_err(status)
+#else
+  status=NF_PUT_VARA_REAL(ncid_out,out_lonuid,1,iim+1,rlonudeg)
+  CALL handle_err(status)
+  status=NF_PUT_VARA_REAL(ncid_out,out_lonvid,1,iim+1,rlonvdeg)
+  CALL handle_err(status)
+  status=NF_PUT_VARA_REAL(ncid_out,out_latuid,1,jjm+1,rlatudeg)
+  CALL handle_err(status)
+  status=NF_PUT_VARA_REAL(ncid_out,out_latvid,1,jjm,rlatvdeg)
+  CALL handle_err(status)
+#endif
+
+  start(1)=1
+  start(2)=1
+  start(3)=1
+  start(4)=1
+
+  COUNT(1)=iim+1
+  COUNT(2)=jjm+1
+  COUNT(3)=1
+  COUNT(4)=1
+
+  DO j=1,jjm+1
+     DO i=1,iim+1
+        temp(i,j)=MOD(i,2)+MOD(j,2)
+     ENDDO
+  ENDDO
+
+#ifdef NC_DOUBLE
+  status=NF_PUT_VARA_DOUBLE(ncid_out,out_varid,start, count,temp)
+  CALL handle_err(status)
+#else
+  status=NF_PUT_VARA_REAL(ncid_out,out_varid,start, count,temp)
+  CALL handle_err(status)
+#endif
+
+  ! On re-ouvre le fichier pour rajouter 4 nouvelles variables necessaire pour INCA
+! lev - phis - aire - mask
+! rlevdeg(:) = presnivs
+  rlevdeg(:) = presnivs(:)
+  phis_loc(:,:) = phis(:,:)/g
+
+! niveaux de pression verticaux
+  status = NF_REDEF (ncid_out)
+  CALL handle_err(status)
+  status=NF_DEF_DIM(ncid_out,'lev',llm,out_levdim)
+  CALL handle_err(status)
+  status=NF_DEF_VAR(ncid_out,'presnivs',NF_FLOAT,1,out_levdim,&
+                    presnivs_id)
+  CALL handle_err(status)
+  
+! fields
+  out_dim(1)=out_lonvdim
+  out_dim(2)=out_latudim
+
+  status = nf_def_var(ncid_out,'phis',NF_FLOAT,2,out_dim,phis_id)
+  CALL handle_err(status)
+  status = nf_def_var(ncid_out,'aire',NF_FLOAT,2,out_dim,area_id)
+  CALL handle_err(status)
+  status = nf_def_var(ncid_out,'mask',NF_INT  ,2,out_dim,mask_id)
+  CALL handle_err(status)
+
+  status=NF_ENDDEF(ncid_out)
+  CALL handle_err(status)
+
+  ! ecriture des variables
+#ifdef NC_DOUBLE
+  status=NF_PUT_VARA_DOUBLE(ncid_out,presnivs_id,1,llm,rlevdeg)
+  CALL handle_err(status)
+#else
+  status=NF_PUT_VARA_REAL(ncid_out,out_levid,1,llm,rlevdeg)
+  CALL handle_err(status)
+#endif
+
+  start(1)=1
+  start(2)=1
+  start(3)=1
+  start(4)=0
+  COUNT(1)=iip1
+  COUNT(2)=jjp1
+  COUNT(3)=1
+  COUNT(4)=0
+
+  status = nf_put_vara_double(ncid_out, phis_id,start,count, phis_loc)
+  CALL handle_err(status)
+  status = nf_put_vara_double(ncid_out, area_id,start,count, aire)
+  CALL handle_err(status)
+  masque_int(:,:) = nINT(masque(:,:))
+  status = nf_put_vara_int(ncid_out, mask_id,start,count,masque_int)
+  CALL handle_err(status)
+  
+  ! fermeture du fichier netcdf
+  CALL ncclos(ncid_out,rcode_out)
+
+END SUBROUTINE grilles_gcm_netcdf_sub
+
+
+
+SUBROUTINE handle_err(status)
+  INCLUDE "netcdf.inc"
+
+  INTEGER status
+  IF (status.NE.nf_noerr) THEN
+     PRINT *,NF_STRERROR(status)
+     CALL abort_gcm('grilles_gcm_netcdf','netcdf error',1)
+  ENDIF
+END SUBROUTINE handle_err
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/heavyside.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/heavyside.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/heavyside.F	(revision 3330)
@@ -0,0 +1,23 @@
+!
+! $Header$
+!
+c
+c
+       FUNCTION heavyside(a)
+
+c      ...   P. Le Van  ....
+c
+       IMPLICIT NONE
+
+       REAL(KIND=8) heavyside , a
+
+       IF ( a.LE.0. )  THEN
+         heavyside = 0.
+       ELSE
+         heavyside = 1.
+       ENDIF
+
+       RETURN
+       END
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/infotrac.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/infotrac.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/infotrac.F90	(revision 3330)
@@ -0,0 +1,883 @@
+! $Id$
+!
+MODULE infotrac
+
+! 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
+!        number of tracers used in the physics
+  INTEGER, SAVE :: nbtr
+
+! CRisi: nb traceurs pères= directement advectés par l'air
+  INTEGER, SAVE :: nqperes
+
+! Name variables
+  CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
+  CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
+
+! iadv  : index of trasport schema for each tracer
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iadv
+
+! niadv : vector keeping the coorspondance between all tracers(nqtot) treated in the 
+!         dynamic part of the code and the tracers (nbtr+2) used in the physics part of the code. 
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: niadv ! equivalent dyn / physique
+
+! CRisi: tableaux de fils
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: nqfils
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: nqdesc ! nombres de fils + nombre de tous les petits fils sur toutes les générations
+  INTEGER, SAVE :: nqdesc_tot
+  INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE    :: iqfils
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iqpere
+
+! conv_flg(it)=0 : convection desactivated for tracer number it 
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: conv_flg
+! pbl_flg(it)=0  : boundary layer diffusion desactivaded for tracer number it 
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: pbl_flg
+
+  CHARACTER(len=4),SAVE :: type_trac
+  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE, SAVE :: solsym
+   
+    ! CRisi: cas particulier des isotopes
+    LOGICAL,SAVE :: ok_isotopes,ok_iso_verif,ok_isotrac,ok_init_iso
+    INTEGER :: niso_possibles   
+    PARAMETER ( niso_possibles=5)
+    real, DIMENSION (niso_possibles),SAVE :: tnat,alpha_ideal
+    LOGICAL, DIMENSION(niso_possibles),SAVE ::  use_iso
+    INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE ::  iqiso ! donne indice iq en fn de (ixt,phase) 
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  iso_num ! donne numéro iso entre 1 et niso_possibles en fn de nqtot
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  iso_indnum ! donne numéro iso entre 1 et niso effectif en fn de nqtot
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  zone_num ! donne numéro de la zone de tracage en fn de nqtot
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  phase_num ! donne numéro de la zone de tracage en fn de nqtot
+    INTEGER, DIMENSION(niso_possibles), SAVE :: indnum_fn_num ! donne indice entre entre 1 et niso en fonction du numéro d isotope entre 1 et niso_possibles
+    INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE ::  index_trac ! numéro ixt en fn izone, indnum entre 1 et niso
+    INTEGER,SAVE :: niso,ntraceurs_zone,ntraciso
+ 
+CONTAINS
+
+  SUBROUTINE infotrac_init
+    USE control_mod, ONLY: planet_type, config_inca
+#ifdef REPROBUS
+    USE CHEM_REP, ONLY : Init_chem_rep_trac
+#endif
+    IMPLICIT NONE
+!=======================================================================
+!
+!   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+!   -------
+!   Modif special traceur F.Forget 05/94
+!   Modif M-A Filiberti 02/02 lecture de traceur.def
+!
+!   Objet:
+!   ------
+!   GCM LMD nouvelle grille
+!
+!=======================================================================
+!   ... modification de l'integration de q ( 26/04/94 ) ....
+!-----------------------------------------------------------------------
+! Declarations
+
+    INCLUDE "dimensions.h"
+    INCLUDE "iniprint.h"
+
+! Local variables
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: hadv  ! index of horizontal trasport schema
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv  ! index of vertical trasport schema
+
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: hadv_inca  ! index of horizontal trasport schema
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv_inca  ! index of vertical trasport schema
+
+    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
+    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_transp ! transporting fluid short name: CRisi
+    CHARACTER(len=3), DIMENSION(30) :: descrq
+    CHARACTER(len=1), DIMENSION(3)  :: txts
+    CHARACTER(len=2), DIMENSION(9)  :: txtp
+    CHARACTER(len=23)               :: str1,str2
+  
+    INTEGER :: nqtrue  ! number of tracers read from tracer.def, without higer order of moment
+    INTEGER :: iq, new_iq, iiq, jq, ierr
+    INTEGER :: ifils,ipere,generation ! CRisi
+    LOGICAL :: continu,nouveau_traceurdef
+    INTEGER :: IOstatus ! gestion de la retrocompatibilite de traceur.def
+    CHARACTER(len=15) :: tchaine    
+
+    character(len=*),parameter :: modname="infotrac_init"
+!-----------------------------------------------------------------------
+! Initialization :
+!
+    txts=(/'x','y','z'/)
+    txtp=(/'x ','y ','z ','xx','xy','xz','yy','yz','zz'/)
+
+    descrq(14)='VLH'
+    descrq(10)='VL1'
+    descrq(11)='VLP'
+    descrq(12)='FH1'
+    descrq(13)='FH2'
+    descrq(16)='PPM'
+    descrq(17)='PPS'
+    descrq(18)='PPP'
+    descrq(20)='SLP'
+    descrq(30)='PRA'
+    
+
+    ! Coherence test between parameter type_trac, config_inca and preprocessing keys
+    IF (type_trac=='inca') THEN
+       WRITE(lunout,*) 'You have choosen to couple with INCA chemestry model : type_trac=', &
+            type_trac,' config_inca=',config_inca
+       IF (config_inca/='aero' .AND. config_inca/='aeNP' .AND. config_inca/='chem') THEN
+          WRITE(lunout,*) 'Incoherence between type_trac and config_inca. Model stops. Modify run.def'
+          CALL abort_gcm('infotrac_init','Incoherence between type_trac and config_inca',1)
+       END IF
+#ifndef INCA
+       WRITE(lunout,*) 'To run this option you must add cpp key INCA and compile with INCA code'
+       CALL abort_gcm('infotrac_init','You must compile with cpp key INCA',1)
+#endif
+    ELSE IF (type_trac=='repr') THEN
+       WRITE(lunout,*) 'You have choosen to couple with REPROBUS chemestry model : type_trac=', type_trac
+#ifndef REPROBUS
+       WRITE(lunout,*) 'To run this option you must add cpp key REPROBUS and compile with REPRPBUS code'
+       CALL abort_gcm('infotrac_init','You must compile with cpp key REPROBUS',1)
+#endif
+    ELSE IF (type_trac == 'lmdz') THEN
+       WRITE(lunout,*) 'Tracers are treated in LMDZ only : type_trac=', type_trac
+    ELSE
+       WRITE(lunout,*) 'type_trac=',type_trac,' not possible. Model stops'
+       CALL abort_gcm('infotrac_init','bad parameter',1)
+    END IF
+
+
+    ! Test if config_inca is other then none for run without INCA
+    IF (type_trac/='inca' .AND. config_inca/='none') THEN
+       WRITE(lunout,*) 'config_inca will now be changed to none as you do not couple with INCA model'
+       config_inca='none'
+    END IF
+
+
+!-----------------------------------------------------------------------
+!
+! 1) Get the true number of tracers + water vapor/liquid
+!    Here true tracers (nqtrue) means declared tracers (only first order)
+!
+!-----------------------------------------------------------------------
+    IF (type_trac == 'lmdz' .OR. type_trac == 'repr') THEN
+       OPEN(90,file='traceur.def',form='formatted',status='old', iostat=ierr)
+       IF(ierr.EQ.0) THEN
+          WRITE(lunout,*) trim(modname),': Open traceur.def : ok'
+          READ(90,*) nqtrue
+          write(lunout,*) 'nqtrue=',nqtrue
+       ELSE 
+          WRITE(lunout,*) trim(modname),': Problem in opening traceur.def'
+          WRITE(lunout,*) trim(modname),': WARNING using defaut values'
+          if (planet_type=='earth') then
+            nqtrue=4 ! Default value for Earth
+          else
+            nqtrue=1 ! Default value for other planets
+          endif
+       END IF
+!jyg<
+!!       if ( planet_type=='earth') then
+!!         ! For Earth, water vapour & liquid tracers are not in the physics
+!!         nbtr=nqtrue-2
+!!       else
+!!         ! Other planets (for now); we have the same number of tracers
+!!         ! in the dynamics than in the physics
+!!         nbtr=nqtrue
+!!       endif
+!>jyg
+    ELSE ! type_trac=inca
+!jyg<
+       ! The traceur.def file is used to define the number "nqo" of water phases 
+       ! present in the simulation. Default : nqo = 2.
+       OPEN(90,file='traceur.def',form='formatted',status='old', iostat=ierr)
+       IF(ierr.EQ.0) THEN
+          WRITE(lunout,*) trim(modname),': Open traceur.def : ok'
+          READ(90,*) nqo
+       ELSE 
+          WRITE(lunout,*) trim(modname),': Using default value for nqo'
+          nqo=2
+       ENDIF
+       IF (nqo /= 2 .AND. nqo /= 3 ) THEN
+          WRITE(lunout,*) trim(modname),': nqo=',nqo, ' is not allowded. Only 2 or 3 water phases allowed'
+          CALL abort_gcm('infotrac_init','Bad number of water phases',1)
+       END IF
+       ! nbtr has been read from INCA by init_const_lmdz() in gcm.F 
+#ifdef INCA
+       CALL Init_chem_inca_trac(nbtr) 
+#endif       
+       nqtrue=nbtr+nqo
+
+       ALLOCATE(hadv_inca(nbtr), vadv_inca(nbtr)) 
+
+    END IF   ! type_trac
+!>jyg
+
+    IF ((planet_type=="earth").and.(nqtrue < 2)) THEN
+       WRITE(lunout,*) trim(modname),': nqtrue=',nqtrue, ' is not allowded. 2 tracers is the minimum'
+       CALL abort_gcm('infotrac_init','Not enough tracers',1)
+    END IF
+    
+!jyg<
+! Transfert number of tracers to Reprobus
+!!    IF (type_trac == 'repr') THEN
+!!#ifdef REPROBUS
+!!       CALL Init_chem_rep_trac(nbtr)
+!!#endif
+!!    END IF
+!>jyg
+       
+!
+! Allocate variables depending on nqtrue
+!
+    ALLOCATE(tnom_0(nqtrue), hadv(nqtrue), vadv(nqtrue),tnom_transp(nqtrue))
+
+!
+!jyg<
+!!    ALLOCATE(conv_flg(nbtr), pbl_flg(nbtr), solsym(nbtr))
+!!    conv_flg(:) = 1 ! convection activated for all tracers
+!!    pbl_flg(:)  = 1 ! boundary layer activated for all tracers
+!>jyg
+
+!-----------------------------------------------------------------------
+! 2)     Choix  des schemas d'advection pour l'eau et les traceurs
+!
+!     iadv = 1    schema  transport type "humidite specifique LMD"
+!     iadv = 2    schema   amont
+!     iadv = 14   schema  Van-leer + humidite specifique 
+!                            Modif F.Codron
+!     iadv = 10   schema  Van-leer (retenu pour l'eau vapeur et liquide)
+!     iadv = 11   schema  Van-Leer pour hadv et version PPM (Monotone) pour vadv
+!     iadv = 12   schema  Frederic Hourdin I
+!     iadv = 13   schema  Frederic Hourdin II
+!     iadv = 16   schema  PPM Monotone(Collela & Woodward 1984)
+!     iadv = 17   schema  PPM Semi Monotone (overshoots autorisés)
+!     iadv = 18   schema  PPM Positif Defini (overshoots undershoots autorisés)
+!     iadv = 20   schema  Slopes
+!     iadv = 30   schema  Prather
+!
+!        Dans le tableau q(ij,l,iq) : iq = 1  pour l'eau vapeur
+!                                     iq = 2  pour l'eau liquide
+!       Et eventuellement             iq = 3,nqtot pour les autres traceurs
+!
+!        iadv(1): choix pour l'eau vap. et  iadv(2) : choix pour l'eau liq.
+!------------------------------------------------------------------------
+!
+!    Get choice of advection schema from file tracer.def or from INCA
+!---------------------------------------------------------------------
+    IF (type_trac == 'lmdz' .OR. type_trac == 'repr') THEN
+       IF(ierr.EQ.0) THEN
+          ! Continue to read tracer.def
+          DO iq=1,nqtrue
+
+             write(*,*) 'infotrac 237: iq=',iq
+             ! CRisi: ajout du nom du fluide transporteur
+             ! mais rester retro compatible
+             READ(90,'(I2,X,I2,X,A)',IOSTAT=IOstatus) hadv(iq),vadv(iq),tchaine
+             write(lunout,*) 'iq,hadv(iq),vadv(iq)=',iq,hadv(iq),vadv(iq)
+             write(lunout,*) 'tchaine=',trim(tchaine)
+             write(*,*) 'infotrac 238: IOstatus=',IOstatus
+             if (IOstatus.ne.0) then
+                CALL abort_gcm('infotrac_init','Pb dans la lecture de traceur.def',1)
+             endif
+             ! Y-a-t-il 1 ou 2 noms de traceurs? -> On regarde s'il y a un
+             ! espace ou pas au milieu de la chaine.
+             continu=.true.
+             nouveau_traceurdef=.false.
+             iiq=1
+             do while (continu)
+                if (tchaine(iiq:iiq).eq.' ') then
+                  nouveau_traceurdef=.true.
+                  continu=.false.
+                else if (iiq.lt.LEN_TRIM(tchaine)) then
+                  iiq=iiq+1
+                else
+                  continu=.false.
+                endif
+             enddo
+             write(*,*) 'iiq,nouveau_traceurdef=',iiq,nouveau_traceurdef
+             if (nouveau_traceurdef) then
+                write(lunout,*) 'C''est la nouvelle version de traceur.def'
+                tnom_0(iq)=tchaine(1:iiq-1)
+                tnom_transp(iq)=tchaine(iiq+1:15)
+             else
+                write(lunout,*) 'C''est l''ancienne version de traceur.def'
+                write(lunout,*) 'On suppose que les traceurs sont tous d''air'
+                tnom_0(iq)=tchaine
+                tnom_transp(iq) = 'air'
+             endif
+             write(lunout,*) 'tnom_0(iq)=<',trim(tnom_0(iq)),'>'
+             write(lunout,*) 'tnom_transp(iq)=<',trim(tnom_transp(iq)),'>'
+
+          END DO !DO iq=1,nqtrue
+          CLOSE(90)  
+
+       ELSE ! Without tracer.def, set default values 
+         if (planet_type=="earth") then
+          ! for Earth, default is to have 4 tracers
+          hadv(1) = 14
+          vadv(1) = 14
+          tnom_0(1) = 'H2Ov'
+          tnom_transp(1) = 'air'
+          hadv(2) = 10
+          vadv(2) = 10
+          tnom_0(2) = 'H2Ol'
+          tnom_transp(2) = 'air'
+          hadv(3) = 10
+          vadv(3) = 10
+          tnom_0(3) = 'RN'
+          tnom_transp(3) = 'air'
+          hadv(4) = 10
+          vadv(4) = 10
+          tnom_0(4) = 'PB'
+          tnom_transp(4) = 'air'
+         else ! default for other planets
+          hadv(1) = 10
+          vadv(1) = 10
+          tnom_0(1) = 'dummy'
+          tnom_transp(1) = 'dummy'
+         endif ! of if (planet_type=="earth")
+       END IF
+       
+       WRITE(lunout,*) trim(modname),': Valeur de traceur.def :'
+       WRITE(lunout,*) trim(modname),': nombre de traceurs ',nqtrue
+       DO iq=1,nqtrue
+          WRITE(lunout,*) hadv(iq),vadv(iq),tnom_0(iq),tnom_transp(iq)
+       END DO
+
+       if ( planet_type=='earth') then
+         !CR: nombre de traceurs de l eau
+         if (tnom_0(3) == 'H2Oi') then
+            nqo=3
+         else
+            nqo=2
+         endif
+         ! For Earth, water vapour & liquid tracers are not in the physics
+         nbtr=nqtrue-nqo
+       else
+         ! Other planets (for now); we have the same number of tracers
+         ! in the dynamics than in the physics
+         nbtr=nqtrue
+       endif
+
+    ENDIF  ! (type_trac == 'lmdz' .OR. type_trac == 'repr')
+!jyg<
+!
+! Transfert number of tracers to Reprobus
+    IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+       CALL Init_chem_rep_trac(nbtr)
+#endif
+    END IF
+!
+! Allocate variables depending on nbtr
+!
+    ALLOCATE(conv_flg(nbtr), pbl_flg(nbtr), solsym(nbtr))
+    conv_flg(:) = 1 ! convection activated for all tracers
+    pbl_flg(:)  = 1 ! boundary layer activated for all tracers
+!
+!!    ELSE  ! type_trac=inca : config_inca='aero' ou 'chem'
+!
+    IF (type_trac == 'inca') THEN   ! config_inca='aero' ou 'chem'
+!>jyg
+! le module de chimie fournit les noms des traceurs
+! et les schemas d'advection associes. excepte pour ceux lus 
+! dans traceur.def 
+       IF (ierr .eq. 0) then 
+          DO iq=1,nqo
+
+             write(*,*) 'infotrac 237: iq=',iq
+             ! CRisi: ajout du nom du fluide transporteur
+             ! mais rester retro compatible
+             READ(90,'(I2,X,I2,X,A)',IOSTAT=IOstatus) hadv(iq),vadv(iq),tchaine
+             write(lunout,*) 'iq,hadv(iq),vadv(iq)=',iq,hadv(iq),vadv(iq)
+             write(lunout,*) 'tchaine=',trim(tchaine)
+             write(*,*) 'infotrac 238: IOstatus=',IOstatus
+             if (IOstatus.ne.0) then
+                CALL abort_gcm('infotrac_init','Pb dans la lecture de traceur.def',1)
+             endif
+             ! Y-a-t-il 1 ou 2 noms de traceurs? -> On regarde s'il y a un
+             ! espace ou pas au milieu de la chaine.
+             continu=.true.
+             nouveau_traceurdef=.false.
+             iiq=1
+             do while (continu)
+                if (tchaine(iiq:iiq).eq.' ') then
+                  nouveau_traceurdef=.true.
+                  continu=.false.
+                else if (iiq.lt.LEN_TRIM(tchaine)) then
+                  iiq=iiq+1
+                else
+                  continu=.false.
+                endif
+             enddo
+             write(*,*) 'iiq,nouveau_traceurdef=',iiq,nouveau_traceurdef
+             if (nouveau_traceurdef) then
+                write(lunout,*) 'C''est la nouvelle version de traceur.def'
+                tnom_0(iq)=tchaine(1:iiq-1)
+                tnom_transp(iq)=tchaine(iiq+1:15)
+             else
+                write(lunout,*) 'C''est l''ancienne version de traceur.def'
+                write(lunout,*) 'On suppose que les traceurs sont tous d''air'
+                tnom_0(iq)=tchaine
+                tnom_transp(iq) = 'air'
+             endif
+             write(lunout,*) 'tnom_0(iq)=<',trim(tnom_0(iq)),'>'
+             write(lunout,*) 'tnom_transp(iq)=<',trim(tnom_transp(iq)),'>'
+
+          END DO !DO iq=1,nqtrue
+          CLOSE(90)  
+       ELSE  !! if traceur.def doesn't exist 
+          tnom_0(1)='H2Ov'
+          tnom_transp(1) = 'air'
+          tnom_0(2)='H2Ol'
+          tnom_transp(2) = 'air'
+          hadv(1) = 10
+          hadv(2) = 10 
+          vadv(1) = 10 
+          vadv(2) = 10 
+       ENDIF
+ 
+#ifdef INCA
+       CALL init_transport( &
+            hadv_inca, &
+            vadv_inca, &
+            conv_flg, &
+            pbl_flg,  &
+            solsym)
+#endif
+
+
+!jyg<
+       DO iq = nqo+1, nqtrue
+          hadv(iq) = hadv_inca(iq-nqo) 
+          vadv(iq) = vadv_inca(iq-nqo) 
+          tnom_0(iq)=solsym(iq-nqo)
+          tnom_transp(iq) = 'air'
+       END DO
+
+    END IF ! (type_trac == 'inca')
+
+!-----------------------------------------------------------------------
+!
+! 3) Verify if advection schema 20 or 30 choosen
+!    Calculate total number of tracers needed: nqtot
+!    Allocate variables depending on total number of tracers
+!-----------------------------------------------------------------------
+    new_iq=0
+    DO iq=1,nqtrue
+       ! Add tracers for certain advection schema
+       IF (hadv(iq)<20 .AND. vadv(iq)<20 ) THEN
+          new_iq=new_iq+1  ! no tracers added
+       ELSE IF (hadv(iq)==20 .AND. vadv(iq)==20 ) THEN
+          new_iq=new_iq+4  ! 3 tracers added
+       ELSE IF (hadv(iq)==30 .AND. vadv(iq)==30 ) THEN
+          new_iq=new_iq+10 ! 9 tracers added
+       ELSE
+          WRITE(lunout,*) trim(modname),': This choice of advection schema is not available',iq,hadv(iq),vadv(iq)
+          CALL abort_gcm('infotrac_init','Bad choice of advection schema - 1',1)
+       END IF
+    END DO
+    
+    IF (new_iq /= nqtrue) THEN
+       ! The choice of advection schema imposes more tracers
+       ! Assigne total number of tracers
+       nqtot = new_iq
+
+       WRITE(lunout,*) trim(modname),': The choice of advection schema for one or more tracers'
+       WRITE(lunout,*) 'makes it necessary to add tracers'
+       WRITE(lunout,*) trim(modname)//': ',nqtrue,' is the number of true tracers'
+       WRITE(lunout,*) trim(modname)//': ',nqtot, ' is the total number of tracers needed'
+
+    ELSE
+       ! The true number of tracers is also the total number
+       nqtot = nqtrue
+    END IF
+
+!
+! Allocate variables with total number of tracers, nqtot
+!
+    ALLOCATE(tname(nqtot), ttext(nqtot))
+    ALLOCATE(iadv(nqtot), niadv(nqtot))
+
+!-----------------------------------------------------------------------
+!
+! 4) Determine iadv, long and short name
+!
+!-----------------------------------------------------------------------
+    new_iq=0
+    DO iq=1,nqtrue
+       new_iq=new_iq+1
+
+       ! Verify choice of advection schema
+       IF (hadv(iq)==vadv(iq)) THEN
+          iadv(new_iq)=hadv(iq)
+       ELSE IF (hadv(iq)==10 .AND. vadv(iq)==16) THEN
+          iadv(new_iq)=11
+       ELSE
+          WRITE(lunout,*)trim(modname),': This choice of advection schema is not available',iq,hadv(iq),vadv(iq)
+
+          CALL abort_gcm('infotrac_init','Bad choice of advection schema - 2',1)
+       END IF
+      
+       str1=tnom_0(iq)
+       tname(new_iq)= tnom_0(iq)
+       IF (iadv(new_iq)==0) THEN
+          ttext(new_iq)=trim(str1)
+       ELSE
+          ttext(new_iq)=trim(tnom_0(iq))//descrq(iadv(new_iq))
+       END IF
+
+       ! schemas tenant compte des moments d'ordre superieur
+       str2=ttext(new_iq)
+       IF (iadv(new_iq)==20) THEN
+          DO jq=1,3
+             new_iq=new_iq+1
+             iadv(new_iq)=-20
+             ttext(new_iq)=trim(str2)//txts(jq)
+             tname(new_iq)=trim(str1)//txts(jq)
+          END DO
+       ELSE IF (iadv(new_iq)==30) THEN
+          DO jq=1,9
+             new_iq=new_iq+1
+             iadv(new_iq)=-30
+             ttext(new_iq)=trim(str2)//txtp(jq)
+             tname(new_iq)=trim(str1)//txtp(jq)
+          END DO
+       END IF
+    END DO
+
+!
+! Find vector keeping the correspodence between true and total tracers
+!
+    niadv(:)=0
+    iiq=0
+    DO iq=1,nqtot
+       IF(iadv(iq).GE.0) THEN
+          ! True tracer
+          iiq=iiq+1
+          niadv(iiq)=iq
+       ENDIF
+    END DO
+
+
+    WRITE(lunout,*) trim(modname),': Information stored in infotrac :'
+    WRITE(lunout,*) trim(modname),': iadv  niadv tname  ttext :'
+    DO iq=1,nqtot
+       WRITE(lunout,*) iadv(iq),niadv(iq),&
+       ' ',trim(tname(iq)),' ',trim(ttext(iq))
+    END DO
+
+!
+! Test for advection schema. 
+! This version of LMDZ only garantees iadv=10 and iadv=14 (14 only for water vapour) .
+!
+    DO iq=1,nqtot
+       IF (iadv(iq)/=10 .AND. iadv(iq)/=14 .AND. iadv(iq)/=0) THEN
+          WRITE(lunout,*)trim(modname),' STOP : The option iadv=',iadv(iq),' is not tested in this version of LMDZ'
+          CALL abort_gcm('infotrac_init','In this version only iadv=10 and iadv=14 is tested!',1)
+       ELSE IF (iadv(iq)==14 .AND. iq/=1) THEN
+          WRITE(lunout,*)trim(modname),'STOP : The option iadv=',iadv(iq),' is not tested in this version of LMDZ'
+          CALL abort_gcm('infotrac_init','In this version iadv=14 is only permitted for water vapour!',1)
+       END IF
+    END DO
+
+
+! CRisi: quels sont les traceurs fils et les traceurs pères.
+! initialiser tous les tableaux d'indices liés aux traceurs familiaux
+! + vérifier que tous les pères sont écrits en premières positions
+    ALLOCATE(nqfils(nqtot),nqdesc(nqtot))    
+    ALLOCATE(iqfils(nqtot,nqtot))   
+    ALLOCATE(iqpere(nqtot))
+    nqperes=0
+    nqfils(:)=0
+    nqdesc(:)=0
+    iqfils(:,:)=0
+    iqpere(:)=0
+    nqdesc_tot=0    
+    DO iq=1,nqtot
+      if (tnom_transp(iq) == 'air') then
+        ! ceci est un traceur père
+        WRITE(lunout,*) 'Le traceur',iq,', appele ',trim(tnom_0(iq)),', est un pere'
+        nqperes=nqperes+1
+        iqpere(iq)=0
+      else !if (tnom_transp(iq) == 'air') then
+        ! ceci est un fils. Qui est son père?
+        WRITE(lunout,*) 'Le traceur',iq,', appele ',trim(tnom_0(iq)),', est un fils'
+        continu=.true.
+        ipere=1
+        do while (continu)           
+          if (tnom_transp(iq) == tnom_0(ipere)) then
+            ! Son père est ipere
+            WRITE(lunout,*) 'Le traceur',iq,'appele ', &
+      &          trim(tnom_0(iq)),' est le fils de ',ipere,'appele ',trim(tnom_0(ipere))
+            nqfils(ipere)=nqfils(ipere)+1  
+            iqfils(nqfils(ipere),ipere)=iq
+            iqpere(iq)=ipere         
+            continu=.false.
+          else !if (tnom_transp(iq) == tnom_0(ipere)) then
+            ipere=ipere+1 
+            if (ipere.gt.nqtot) then
+                WRITE(lunout,*) 'Le traceur',iq,'appele ', &
+      &          trim(tnom_0(iq)),', est orpelin.'
+                CALL abort_gcm('infotrac_init','Un traceur est orphelin',1)
+            endif !if (ipere.gt.nqtot) then
+          endif !if (tnom_transp(iq) == tnom_0(ipere)) then
+        enddo !do while (continu)
+      endif !if (tnom_transp(iq) == 'air') then
+    enddo !DO iq=1,nqtot
+    WRITE(lunout,*) 'infotrac: nqperes=',nqperes    
+    WRITE(lunout,*) 'nqfils=',nqfils
+    WRITE(lunout,*) 'iqpere=',iqpere
+    WRITE(lunout,*) 'iqfils=',iqfils
+
+! Calculer le nombre de descendants à partir de iqfils et de nbfils
+    DO iq=1,nqtot    
+      generation=0
+      continu=.true.
+      ifils=iq
+      do while (continu)
+        ipere=iqpere(ifils)
+        if (ipere.gt.0) then
+         nqdesc(ipere)=nqdesc(ipere)+1   
+         nqdesc_tot=nqdesc_tot+1      
+         iqfils(nqdesc(ipere),ipere)=iq
+         ifils=ipere
+         generation=generation+1
+        else !if (ipere.gt.0) then
+         continu=.false.
+        endif !if (ipere.gt.0) then
+      enddo !do while (continu)    
+      WRITE(lunout,*) 'Le traceur ',iq,', appele ',trim(tnom_0(iq)),' est un traceur de generation: ',generation
+    enddo !DO iq=1,nqtot
+    WRITE(lunout,*) 'infotrac: nqdesc=',nqdesc
+    WRITE(lunout,*) 'iqfils=',iqfils
+    WRITE(lunout,*) 'nqdesc_tot=',nqdesc_tot
+
+! Interdire autres schémas que 10 pour les traceurs fils, et autres schémas
+! que 10 et 14 si des pères ont des fils
+    do iq=1,nqtot
+      if (iqpere(iq).gt.0) then
+        ! ce traceur a un père qui n'est pas l'air
+        ! Seul le schéma 10 est autorisé
+        if (iadv(iq)/=10) then
+           WRITE(lunout,*)trim(modname),' STOP : The option iadv=',iadv(iq),' is not implemented for sons'
+          CALL abort_gcm('infotrac_init','Sons should be advected by scheme 10',1)
+        endif
+        ! Le traceur père ne peut être advecté que par schéma 10 ou 14:
+        IF (iadv(iqpere(iq))/=10 .AND. iadv(iqpere(iq))/=14) THEN
+          WRITE(lunout,*)trim(modname),' STOP : The option iadv=',iadv(iq),' is not implemented for fathers'
+          CALL abort_gcm('infotrac_init','Fathers should be advected by scheme 10 ou 14',1)
+        endif !IF (iadv(iqpere(iq))/=10 .AND. iadv(iqpere(iq))/=14) THEN
+     endif !if (iqpere(iq).gt.0) the
+    enddo !do iq=1,nqtot
+
+
+! detecter quels sont les traceurs isotopiques parmi des traceurs
+    call infotrac_isoinit(tnom_0,nqtrue)
+        
+!-----------------------------------------------------------------------
+! Finalize :
+!
+    DEALLOCATE(tnom_0, hadv, vadv,tnom_transp)
+
+
+  END SUBROUTINE infotrac_init
+
+  SUBROUTINE infotrac_isoinit(tnom_0,nqtrue)
+
+#ifdef CPP_IOIPSL
+  use IOIPSL
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  use ioipsl_getincom
+#endif
+  implicit none
+ 
+    ! inputs
+    INTEGER nqtrue
+    CHARACTER(len=15) tnom_0(nqtrue)
+    
+    ! locals    
+    CHARACTER(len=3), DIMENSION(niso_possibles) :: tnom_iso
+    INTEGER, ALLOCATABLE,DIMENSION(:,:) :: nb_iso,nb_traciso
+    INTEGER, ALLOCATABLE,DIMENSION(:) :: nb_isoind
+    INTEGER :: ntraceurs_zone_prec,iq,phase,ixt,iiso,izone
+    CHARACTER(len=19) :: tnom_trac
+    INCLUDE "iniprint.h"
+
+    tnom_iso=(/'eau','HDO','O18','O17','HTO'/)
+
+    ALLOCATE(nb_iso(niso_possibles,nqo))
+    ALLOCATE(nb_isoind(nqo))
+    ALLOCATE(nb_traciso(niso_possibles,nqo))
+    ALLOCATE(iso_num(nqtot))
+    ALLOCATE(iso_indnum(nqtot))
+    ALLOCATE(zone_num(nqtot))
+    ALLOCATE(phase_num(nqtot))
+     
+    iso_num(:)=0
+    iso_indnum(:)=0
+    zone_num(:)=0
+    phase_num(:)=0
+    indnum_fn_num(:)=0
+    use_iso(:)=.false.  
+    nb_iso(:,:)=0  
+    nb_isoind(:)=0     
+    nb_traciso(:,:)=0
+    niso=0
+    ntraceurs_zone=0  
+    ntraceurs_zone_prec=0
+    ntraciso=0
+
+    do iq=nqo+1,nqtot
+!       write(lunout,*) 'infotrac 569: iq,tnom_0(iq)=',iq,tnom_0(iq)
+       do phase=1,nqo    
+        do ixt= 1,niso_possibles   
+         tnom_trac=trim(tnom_0(phase))//'_'
+         tnom_trac=trim(tnom_trac)//trim(tnom_iso(ixt))
+!         write(*,*) 'phase,ixt,tnom_trac=',phase,ixt,tnom_trac      
+         IF (tnom_0(iq) == tnom_trac) then
+!          write(lunout,*) 'Ce traceur est un isotope'
+          nb_iso(ixt,phase)=nb_iso(ixt,phase)+1   
+          nb_isoind(phase)=nb_isoind(phase)+1   
+          iso_num(iq)=ixt
+          iso_indnum(iq)=nb_isoind(phase)
+          indnum_fn_num(ixt)=iso_indnum(iq)
+          phase_num(iq)=phase
+!          write(lunout,*) 'iso_num(iq)=',iso_num(iq)
+!          write(lunout,*) 'iso_indnum(iq)=',iso_indnum(iq)
+!          write(lunout,*) 'indnum_fn_num(ixt)=',indnum_fn_num(ixt)
+!          write(lunout,*) 'phase_num(iq)=',phase_num(iq)
+          goto 20
+         else if (iqpere(iq).gt.0) then          
+          if (tnom_0(iqpere(iq)) == tnom_trac) then
+!           write(lunout,*) 'Ce traceur est le fils d''un isotope'
+           ! c'est un traceur d'isotope
+           nb_traciso(ixt,phase)=nb_traciso(ixt,phase)+1
+           iso_num(iq)=ixt
+           iso_indnum(iq)=indnum_fn_num(ixt)
+           zone_num(iq)=nb_traciso(ixt,phase)
+           phase_num(iq)=phase
+!           write(lunout,*) 'iso_num(iq)=',iso_num(iq)
+!           write(lunout,*) 'phase_num(iq)=',phase_num(iq)
+!           write(lunout,*) 'zone_num(iq)=',zone_num(iq)
+           goto 20
+          endif !if (tnom_0(iqpere(iq)) == trim(tnom_0(phase))//trim(tnom_iso(ixt))) then
+         endif !IF (tnom_0(iq) == trim(tnom_0(phase))//trim(tnom_iso(ixt))) then
+        enddo !do ixt= niso_possibles
+       enddo !do phase=1,nqo
+  20   continue
+      enddo !do iq=1,nqtot
+
+!      write(lunout,*) 'iso_num=',iso_num
+!      write(lunout,*) 'iso_indnum=',iso_indnum
+!      write(lunout,*) 'zone_num=',zone_num  
+!      write(lunout,*) 'phase_num=',phase_num
+!      write(lunout,*) 'indnum_fn_num=',indnum_fn_num
+
+      do ixt= 1,niso_possibles  
+
+        if (nb_iso(ixt,1).eq.1) then
+          ! on vérifie que toutes les phases ont le même nombre de
+          ! traceurs
+          do phase=2,nqo
+            if (nb_iso(ixt,phase).ne.nb_iso(ixt,1)) then
+!              write(lunout,*) 'ixt,phase,nb_iso=',ixt,phase,nb_iso(ixt,phase)
+              CALL abort_gcm('infotrac_init','Phases must have same number of isotopes',1)
+            endif
+          enddo !do phase=2,nqo
+
+          niso=niso+1
+          use_iso(ixt)=.true.
+          ntraceurs_zone=nb_traciso(ixt,1)
+
+          ! on vérifie que toutes les phases ont le même nombre de
+          ! traceurs
+          do phase=2,nqo
+            if (nb_traciso(ixt,phase).ne.ntraceurs_zone) then
+              write(lunout,*) 'ixt,phase,nb_traciso=',ixt,phase,nb_traciso(ixt,phase)
+              write(lunout,*) 'ntraceurs_zone=',ntraceurs_zone
+              CALL abort_gcm('infotrac_init','Phases must have same number of tracers',1)
+            endif  
+          enddo  !do phase=2,nqo
+          ! on vérifie que tous les isotopes ont le même nombre de
+          ! traceurs
+          if (ntraceurs_zone_prec.gt.0) then               
+            if (ntraceurs_zone.eq.ntraceurs_zone_prec) then
+              ntraceurs_zone_prec=ntraceurs_zone
+            else !if (ntraceurs_zone.eq.ntraceurs_zone_prec) then
+              write(*,*) 'ntraceurs_zone_prec,ntraceurs_zone=',ntraceurs_zone_prec,ntraceurs_zone   
+              CALL abort_gcm('infotrac_init', &
+               &'Isotope tracers are not well defined in traceur.def',1)           
+            endif !if (ntraceurs_zone.eq.ntraceurs_zone_prec) then
+           endif !if (ntraceurs_zone_prec.gt.0) then
+
+        else if (nb_iso(ixt,1).ne.0) then
+           WRITE(lunout,*) 'nqo,ixt=',nqo,ixt
+           WRITE(lunout,*) 'nb_iso(ixt,1)=',nb_iso(ixt,1)    
+           CALL abort_gcm('infotrac_init','Isotopes are not well defined in traceur.def',1)     
+        endif   !if (nb_iso(ixt,1).eq.1) then       
+    enddo ! do ixt= niso_possibles
+
+    ! dimensions isotopique:
+    ntraciso=niso*(ntraceurs_zone+1)
+!    WRITE(lunout,*) 'niso=',niso
+!    WRITE(lunout,*) 'ntraceurs_zone,ntraciso=',ntraceurs_zone,ntraciso    
+ 
+    ! flags isotopiques:
+    if (niso.gt.0) then
+        ok_isotopes=.true.
+    else
+        ok_isotopes=.false.
+    endif 
+!    WRITE(lunout,*) 'ok_isotopes=',ok_isotopes
+ 
+    if (ok_isotopes) then
+        ok_iso_verif=.false.
+        call getin('ok_iso_verif',ok_iso_verif)
+        ok_init_iso=.false.
+        call getin('ok_init_iso',ok_init_iso)
+        tnat=(/1.0,155.76e-6,2005.2e-6,0.004/100.,0.0/)
+        alpha_ideal=(/1.0,1.01,1.006,1.003,1.0/)
+    endif !if (ok_isotopes) then  
+!    WRITE(lunout,*) 'ok_iso_verif=',ok_iso_verif
+!    WRITE(lunout,*) 'ok_init_iso=',ok_init_iso
+
+    if (ntraceurs_zone.gt.0) then
+        ok_isotrac=.true.
+    else
+        ok_isotrac=.false.
+    endif   
+!    WRITE(lunout,*) 'ok_isotrac=',ok_isotrac
+
+    ! remplissage du tableau iqiso(ntraciso,phase)
+    ALLOCATE(iqiso(ntraciso,nqo))   
+    iqiso(:,:)=0     
+    do iq=1,nqtot
+        if (iso_num(iq).gt.0) then
+          ixt=iso_indnum(iq)+zone_num(iq)*niso
+          iqiso(ixt,phase_num(iq))=iq
+        endif
+    enddo
+!    WRITE(lunout,*) 'iqiso=',iqiso
+
+    ! replissage du tableau index_trac(ntraceurs_zone,niso)
+    ALLOCATE(index_trac(ntraceurs_zone,niso))  
+    if (ok_isotrac) then
+        do iiso=1,niso
+          do izone=1,ntraceurs_zone 
+             index_trac(izone,iiso)=iiso+izone*niso
+          enddo
+        enddo
+    else !if (ok_isotrac) then      
+        index_trac(:,:)=0.0
+    endif !if (ok_isotrac) then
+!    write(lunout,*) 'index_trac=',index_trac    
+
+! Finalize :
+    DEALLOCATE(nb_iso)
+
+  END SUBROUTINE infotrac_isoinit
+
+END MODULE infotrac
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/iniconst.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/iniconst.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/iniconst.F90	(revision 3330)
@@ -0,0 +1,84 @@
+!
+! $Id$
+!
+SUBROUTINE iniconst
+
+  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 comconst_mod, ONLY: im, imp1, jm, jmp1, lllm, lllmm1, lllmp1, &
+                          unsim, pi, r, kappa, cpp, dtvr, dtphys
+  USE comvert_mod, ONLY: disvert_type, pressure_exner
+  
+  IMPLICIT NONE
+  !
+  !      P. Le Van
+  !
+  !   Declarations:
+  !   -------------
+  !
+  include "dimensions.h"
+  include "paramet.h"
+  include "iniprint.h"
+
+  character(len=*),parameter :: modname="iniconst"
+  character(len=80) :: abort_message
+  !
+  !
+  !
+  !-----------------------------------------------------------------------
+  !   dimension des boucles:
+  !   ----------------------
+
+  im      = iim
+  jm      = jjm
+  lllm    = llm
+  imp1    = iim 
+  jmp1    = jjm + 1
+  lllmm1  = llm - 1
+  lllmp1  = llm + 1
+
+  !-----------------------------------------------------------------------
+
+  dtphys  = iphysiq * dtvr
+  unsim   = 1./iim
+  pi      = 2.*ASIN( 1. )
+
+  !-----------------------------------------------------------------------
+  !
+
+  r       = cpp * kappa
+
+  write(lunout,*) trim(modname),': R  CP  Kappa ',r,cpp,kappa
+  !
+  !-----------------------------------------------------------------------
+
+  ! vertical discretization: default behavior depends on planet_type flag
+  if (planet_type=="earth") then
+     disvert_type=1
+  else
+     disvert_type=2
+  endif
+  ! but user can also specify using one or the other in run.def:
+  call getin('disvert_type',disvert_type)
+  write(lunout,*) trim(modname),': disvert_type=',disvert_type
+
+  pressure_exner = disvert_type == 1 ! default value
+  call getin('pressure_exner', pressure_exner)
+
+  if (disvert_type==1) then
+     ! standard case for Earth (automatic generation of levels)
+     call disvert()
+  else if (disvert_type==2) then
+     ! standard case for planets (levels generated using z2sig.def file)
+     call disvert_noterre
+  else
+     write(abort_message,*) "Wrong value for disvert_type: ", disvert_type
+     call abort_gcm(modname,abort_message,0)
+  endif
+
+END SUBROUTINE iniconst
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inidissip.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inidissip.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inidissip.F90	(revision 3330)
@@ -0,0 +1,223 @@
+!
+! $Id$
+!
+SUBROUTINE inidissip ( lstardis,nitergdiv,nitergrot,niterh  , &
+     tetagdiv,tetagrot,tetatemp, vert_prof_dissip)
+  !=======================================================================
+  !   initialisation de la dissipation horizontale
+  !=======================================================================
+  !-----------------------------------------------------------------------
+  !   declarations:
+  !   -------------
+
+  USE control_mod, only : dissip_period,iperiod
+  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
+                          dtdiss, dtvr, rad
+  USE comvert_mod, ONLY: preff, presnivs
+
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissipn.h"
+  include "iniprint.h"
+
+  LOGICAL,INTENT(in) :: lstardis
+  INTEGER,INTENT(in) :: nitergdiv,nitergrot,niterh
+  REAL,INTENT(in) :: tetagdiv,tetagrot,tetatemp
+
+  integer, INTENT(in):: vert_prof_dissip
+  ! Vertical profile of horizontal dissipation
+  ! Allowed values:
+  ! 0: rational fraction, function of pressure
+  ! 1: tanh of altitude
+
+! Local variables:
+  REAL fact,zvert(llm),zz
+  REAL zh(ip1jmp1),zu(ip1jmp1), gx(ip1jmp1), divgra(ip1jmp1)
+  real zv(ip1jm), gy(ip1jm), deltap(ip1jmp1,llm)
+  REAL ullm,vllm,umin,vmin,zhmin,zhmax
+  REAL zllm
+
+  INTEGER l,ij,idum,ii
+  REAL tetamin
+  REAL pseudoz
+  character (len=80) :: abort_message
+
+  REAL ran1
+
+
+  !-----------------------------------------------------------------------
+  !
+  !   calcul des valeurs propres des operateurs par methode iterrative:
+  !   -----------------------------------------------------------------
+
+  crot     = -1.
+  cdivu    = -1.
+  cdivh    = -1.
+
+  !   calcul de la valeur propre de divgrad:
+  !   --------------------------------------
+  idum = 0
+  DO l = 1, llm
+     DO ij = 1, ip1jmp1
+        deltap(ij,l) = 1.
+     ENDDO
+  ENDDO
+
+  idum  = -1
+  zh(1) = RAN1(idum)-.5
+  idum  = 0
+  DO ij = 2, ip1jmp1
+     zh(ij) = RAN1(idum) -.5
+  ENDDO
+
+  CALL filtreg (zh,jjp1,1,2,1,.TRUE.,1)
+
+  CALL minmax(iip1*jjp1,zh,zhmin,zhmax )
+
+  IF ( zhmin .GE. zhmax  )     THEN
+     write(lunout,*)'  Inidissip  zh min max  ',zhmin,zhmax
+     abort_message='probleme generateur alleatoire dans inidissip'
+     call abort_gcm('inidissip',abort_message,1)
+  ENDIF
+
+  zllm = ABS( zhmax )
+  DO l = 1,50
+     IF(lstardis) THEN
+        CALL divgrad2(1,zh,deltap,niterh,divgra)
+     ELSE
+        CALL divgrad (1,zh,niterh,divgra)
+     ENDIF
+
+     zllm  = ABS(maxval(divgra))
+     zh = divgra / zllm
+  ENDDO
+
+  IF(lstardis) THEN
+     cdivh = 1./ zllm
+  ELSE
+     cdivh = zllm ** ( -1./niterh )
+  ENDIF
+
+  !   calcul des valeurs propres de gradiv (ii =1) et  nxgrarot(ii=2)
+  !   -----------------------------------------------------------------
+  write(lunout,*)'inidissip: calcul des valeurs propres'
+
+  DO    ii = 1, 2
+     !
+     DO ij = 1, ip1jmp1
+        zu(ij)  = RAN1(idum) -.5
+     ENDDO
+     CALL filtreg (zu,jjp1,1,2,1,.TRUE.,1)
+     DO ij = 1, ip1jm
+        zv(ij) = RAN1(idum) -.5
+     ENDDO
+     CALL filtreg (zv,jjm,1,2,1,.FALSE.,1)
+
+     CALL minmax(iip1*jjp1,zu,umin,ullm )
+     CALL minmax(iip1*jjm, zv,vmin,vllm )
+
+     ullm = ABS ( ullm )
+     vllm = ABS ( vllm )
+
+     DO    l = 1, 50
+        IF(ii.EQ.1) THEN
+           !cccc             CALL covcont( 1,zu,zv,zu,zv )
+           IF(lstardis) THEN
+              CALL gradiv2( 1,zu,zv,nitergdiv,gx,gy )
+           ELSE
+              CALL gradiv ( 1,zu,zv,nitergdiv,gx,gy )
+           ENDIF
+        ELSE
+           IF(lstardis) THEN
+              CALL nxgraro2( 1,zu,zv,nitergrot,gx,gy )
+           ELSE
+              CALL nxgrarot( 1,zu,zv,nitergrot,gx,gy )
+           ENDIF
+        ENDIF
+
+        zllm = max(abs(maxval(gx)), abs(maxval(gy)))
+        zu = gx / zllm
+        zv = gy / zllm
+     end DO
+
+     IF ( ii.EQ.1 ) THEN
+        IF(lstardis) THEN
+           cdivu  = 1./zllm
+        ELSE
+           cdivu  = zllm **( -1./nitergdiv )
+        ENDIF
+     ELSE
+        IF(lstardis) THEN
+           crot   = 1./ zllm
+        ELSE
+           crot   = zllm **( -1./nitergrot )
+        ENDIF
+     ENDIF
+
+  end DO
+
+  !   petit test pour les operateurs non star:
+  !   ----------------------------------------
+
+  !     IF(.NOT.lstardis) THEN
+  fact    = rad*24./REAL(jjm)
+  fact    = fact*fact
+  write(lunout,*)'inidissip: coef u ', fact/cdivu, 1./cdivu
+  write(lunout,*)'inidissip: coef r ', fact/crot , 1./crot
+  write(lunout,*)'inidissip: coef h ', fact/cdivh, 1./cdivh
+  !     ENDIF
+
+  !-----------------------------------------------------------------------
+  !   variation verticale du coefficient de dissipation:
+  !   --------------------------------------------------
+
+  if (vert_prof_dissip == 1) then
+     do l=1,llm
+        pseudoz=8.*log(preff/presnivs(l))
+        zvert(l)=1+ &
+             (tanh((pseudoz-dissip_zref)/dissip_deltaz)+1.)/2. &
+             *(dissip_factz-1.)
+     enddo
+  else
+     DO l=1,llm
+        zvert(l)=1.
+     ENDDO
+     fact=2.
+     DO l = 1, llm
+        zz      = 1. - preff/presnivs(l)
+        zvert(l)= fact -( fact-1.)/( 1.+zz*zz )
+     ENDDO
+  endif
+
+
+  write(lunout,*)'inidissip: Constantes de temps de la diffusion horizontale'
+
+  tetamin =  1.e+6
+
+  DO l=1,llm
+     tetaudiv(l)   = zvert(l)/tetagdiv
+     tetaurot(l)   = zvert(l)/tetagrot
+     tetah(l)      = zvert(l)/tetatemp
+
+     IF( tetamin.GT. (1./tetaudiv(l)) ) tetamin = 1./ tetaudiv(l)
+     IF( tetamin.GT. (1./tetaurot(l)) ) tetamin = 1./ tetaurot(l)
+     IF( tetamin.GT. (1./   tetah(l)) ) tetamin = 1./    tetah(l)
+  ENDDO
+
+  ! If dissip_period=0 calculate value for dissipation period, else keep value read from gcm.def
+  IF (dissip_period == 0) THEN
+     dissip_period = INT( tetamin/( 2.*dtvr*iperiod) ) * iperiod
+     write(lunout,*)'inidissip: tetamin dtvr iperiod dissip_period(intermed) ',tetamin,dtvr,iperiod,dissip_period
+     dissip_period = MAX(iperiod,dissip_period)
+  END IF
+
+  dtdiss  = dissip_period * dtvr
+  write(lunout,*)'inidissip: dissip_period=',dissip_period,' dtdiss=',dtdiss,' dtvr=',dtvr
+
+  DO l = 1,llm
+     write(lunout,*)zvert(l),dtdiss*tetaudiv(l),dtdiss*tetaurot(l), &
+          dtdiss*tetah(l)
+  ENDDO
+
+END SUBROUTINE inidissip
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inigeom.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inigeom.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inigeom.F	(revision 3330)
@@ -0,0 +1,699 @@
+!
+! $Id$
+!
+c
+c
+      SUBROUTINE inigeom
+c
+c     Auteur :  P. Le Van
+c
+c   ............      Version  du 01/04/2001     ........................
+c
+c  Calcul des elongations cuij1,.cuij4 , cvij1,..cvij4  aux memes en-
+c     endroits que les aires aireij1,..aireij4 .
+
+c  Choix entre f(y) a derivee sinusoid. ou a derivee tangente hyperbol.
+c
+c
+      use fxhyp_m, only: fxhyp
+      use fyhyp_m, only: fyhyp
+      USE comconst_mod, ONLY: pi, g, omeg, rad
+      USE logic_mod, ONLY: fxyhypb, ysinus
+      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
+     &		alphax,alphay,taux,tauy,transx,transy,pxo,pyo
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+      include "comdissnew.h"
+
+c-----------------------------------------------------------------------
+c   ....  Variables  locales   ....
+c
+      INTEGER  i,j,itmax,itmay,iter
+      REAL cvu(iip1,jjp1),cuv(iip1,jjm)
+      REAL ai14,ai23,airez,rlatp,rlatm,xprm,xprp,un4rad2,yprp,yprm
+      REAL eps,x1,xo1,f,df,xdm,y1,yo1,ydm
+      REAL coslatm,coslatp,radclatm,radclatp
+      REAL cuij1(iip1,jjp1),cuij2(iip1,jjp1),cuij3(iip1,jjp1),
+     *     cuij4(iip1,jjp1)
+      REAL cvij1(iip1,jjp1),cvij2(iip1,jjp1),cvij3(iip1,jjp1),
+     *     cvij4(iip1,jjp1)
+      REAL rlonvv(iip1),rlatuu(jjp1)
+      REAL rlatu1(jjm),yprimu1(jjm),rlatu2(jjm),yprimu2(jjm) ,
+     *     yprimv(jjm),yprimu(jjp1)
+      REAL gamdi_gdiv, gamdi_grot, gamdi_h
+ 
+      REAL rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),
+     ,  xprimp025(iip1)
+      SAVE rlatu1,yprimu1,rlatu2,yprimu2,yprimv,yprimu
+      SAVE rlonm025,xprimm025,rlonp025,xprimp025
+
+      REAL      SSUM
+c
+c
+c   ------------------------------------------------------------------
+c   -                                                                -
+c   -    calcul des coeff. ( cu, cv , 1./cu**2,  1./cv**2  )         -
+c   -                                                                -
+c   ------------------------------------------------------------------
+c
+c      les coef. ( cu, cv ) permettent de passer des vitesses naturelles
+c      aux vitesses covariantes et contravariantes , ou vice-versa ...
+c
+c
+c     on a :  u (covariant) = cu * u (naturel)   , u(contrav)= u(nat)/cu
+c             v (covariant) = cv * v (naturel)   , v(contrav)= v(nat)/cv
+c
+c       on en tire :  u(covariant) = cu * cu * u(contravariant)
+c                     v(covariant) = cv * cv * v(contravariant)
+c
+c
+c     on a l'application (  x(X) , y(Y) )   avec - im/2 +1 <  X  < im/2
+c                                                          =     =
+c                                           et   - jm/2    <  Y  < jm/2
+c                                                          =     =
+c
+c      ...................................................
+c      ...................................................
+c      .  x  est la longitude du point  en radians       .
+c      .  y  est la  latitude du point  en radians       .
+c      .                                                 .
+c      .  on a :  cu(i,j) = rad * COS(y) * dx/dX         .
+c      .          cv( j ) = rad          * dy/dY         .
+c      .        aire(i,j) =  cu(i,j) * cv(j)             .
+c      .                                                 .
+c      . y, dx/dX, dy/dY calcules aux points concernes   .
+c      .                                                 .
+c      ...................................................
+c      ...................................................
+c
+c
+c
+c                                                           ,
+c    cv , bien que dependant de j uniquement,sera ici indice aussi en i
+c          pour un adressage plus facile en  ij  .
+c
+c
+c
+c  **************  aux points  u  et  v ,           *****************
+c      xprimu et xprimv sont respectivement les valeurs de  dx/dX
+c      yprimu et yprimv    .  .  .  .  .  .  .  .  .  .  .  dy/dY
+c      rlatu  et  rlatv    .  .  .  .  .  .  .  .  .  .  .la latitude
+c      cvu    et   cv      .  .  .  .  .  .  .  .  .  .  .    cv
+c
+c  **************  aux points u, v, scalaires, et z  ****************
+c      cu, cuv, cuscal, cuz sont respectiv. les valeurs de    cu
+c
+c
+c
+c         Exemple de distribution de variables sur la grille dans le
+c             domaine de travail ( X,Y ) .
+c     ................................................................
+c                  DX=DY= 1
+c
+c   
+c        +     represente  un  point scalaire ( p.exp  la pression )
+c        >     represente  la composante zonale du  vent
+c        V     represente  la composante meridienne du vent
+c        o     represente  la  vorticite
+c
+c       ----  , car aux poles , les comp.zonales covariantes sont nulles
+c
+c
+c
+c         i ->
+c
+c         1      2      3      4      5      6      7      8
+c  j
+c  v  1   + ---- + ---- + ---- + ---- + ---- + ---- + ---- + --
+c
+c         V   o  V   o  V   o  V   o  V   o  V   o  V   o  V  o
+c
+c     2   +   >  +   >  +   >  +   >  +   >  +   >  +   >  +  >
+c
+c         V   o  V   o  V   o  V   o  V   o  V   o  V   o  V  o
+c
+c     3   +   >  +   >  +   >  +   >  +   >  +   >  +   >  +  >
+c
+c         V   o  V   o  V   o  V   o  V   o  V   o  V   o  V  o
+c
+c     4   +   >  +   >  +   >  +   >  +   >  +   >  +   >  +  >
+c
+c         V   o  V   o  V   o  V   o  V   o  V   o  V   o  V  o
+c
+c     5   + ---- + ---- + ---- + ---- + ---- + ---- + ---- + --
+c
+c
+c      Ci-dessus,  on voit que le nombre de pts.en longitude est egal
+c                 a   IM = 8
+c      De meme ,   le nombre d'intervalles entre les 2 poles est egal
+c                 a   JM = 4
+c
+c      Les points scalaires ( + ) correspondent donc a des valeurs
+c       entieres  de  i ( 1 a IM )   et  de  j ( 1 a  JM +1 )   .
+c
+c      Les vents    U       ( > ) correspondent a des valeurs  semi-
+c       entieres  de i ( 1+ 0.5 a IM+ 0.5) et entieres de j ( 1 a JM+1)
+c
+c      Les vents    V       ( V ) correspondent a des valeurs entieres
+c       de     i ( 1 a  IM ) et semi-entieres de  j ( 1 +0.5  a JM +0.5)
+c
+c
+c
+      WRITE(6,3) 
+ 3    FORMAT( // 10x,' ....  INIGEOM  date du 01/06/98   ..... ',
+     * //5x,'   Calcul des elongations cu et cv  comme sommes des 4 ' /
+     *  5x,' elong. cuij1, .. 4  , cvij1,.. 4  qui les entourent , aux 
+     * '/ 5x,' memes endroits que les aires aireij1,...j4   . ' / )
+c
+c
+      IF( nitergdiv.NE.2 ) THEN
+        gamdi_gdiv = coefdis/ ( REAL(nitergdiv) -2. )
+      ELSE
+        gamdi_gdiv = 0.
+      ENDIF
+      IF( nitergrot.NE.2 ) THEN
+        gamdi_grot = coefdis/ ( REAL(nitergrot) -2. )
+      ELSE
+        gamdi_grot = 0.
+      ENDIF
+      IF( niterh.NE.2 ) THEN
+        gamdi_h = coefdis/ ( REAL(niterh) -2. )
+      ELSE
+        gamdi_h = 0.
+      ENDIF
+
+      WRITE(6,*) ' gamdi_gd ',gamdi_gdiv,gamdi_grot,gamdi_h,coefdis,
+     *  nitergdiv,nitergrot,niterh
+c
+      pi    = 2.* ASIN(1.)
+c
+      WRITE(6,990) 
+
+c     ----------------------------------------------------------------
+c
+      IF( .NOT.fxyhypb )   THEN
+c
+c
+       IF( ysinus )  THEN
+c
+        WRITE(6,*) ' ***  Inigeom ,  Y = Sinus ( Latitude ) *** '
+c
+c   .... utilisation de f(x,y )  avec  y  =  sinus de la latitude  .....
+
+        CALL  fxysinus (rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1,
+     ,                    rlatu2,yprimu2,
+     ,  rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
+
+       ELSE
+c
+        WRITE(6,*) '*** Inigeom ,  Y = Latitude  , der. sinusoid . ***'
+
+c  .... utilisation  de f(x,y) a tangente sinusoidale , y etant la latit. ...
+c
+ 
+        pxo   = clon *pi /180.
+        pyo   = 2.* clat* pi /180.
+c
+c  ....  determination de  transx ( pour le zoom ) par Newton-Raphson ...
+c
+        itmax = 10
+        eps   = .1e-7
+c
+        xo1 = 0.
+        DO 10 iter = 1, itmax
+        x1  = xo1
+        f   = x1+ alphax *SIN(x1-pxo)
+        df  = 1.+ alphax *COS(x1-pxo)
+        x1  = x1 - f/df
+        xdm = ABS( x1- xo1 )
+        IF( xdm.LE.eps )GO TO 11
+        xo1 = x1
+ 10     CONTINUE
+ 11     CONTINUE
+c
+        transx = xo1
+
+        itmay = 10
+        eps   = .1e-7
+C
+        yo1  = 0.
+        DO 15 iter = 1,itmay
+        y1   = yo1
+        f    = y1 + alphay* SIN(y1-pyo)
+        df   = 1. + alphay* COS(y1-pyo)
+        y1   = y1 -f/df
+        ydm  = ABS(y1-yo1)
+        IF(ydm.LE.eps) GO TO 17
+        yo1  = y1
+ 15     CONTINUE
+c
+ 17     CONTINUE
+        transy = yo1
+
+        CALL fxy ( rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1,
+     ,              rlatu2,yprimu2,
+     ,  rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
+
+       ENDIF
+c
+      ELSE
+c
+c   ....  Utilisation  de fxyhyper , f(x,y) a derivee tangente hyperbol.
+c   .....................................................................
+
+      WRITE(6,*)'*** Inigeom , Y = Latitude  , der.tg. hyperbolique ***'
+ 
+      CALL fyhyp(rlatu, yprimu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)
+      CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)
+  
+      ENDIF
+c
+c  -------------------------------------------------------------------
+
+c
+      rlatu(1)    =     ASIN(1.)
+      rlatu(jjp1) =  - rlatu(1)
+c
+c
+c   ....  calcul  aux  poles  ....
+c
+      yprimu(1)      = 0.
+      yprimu(jjp1)   = 0.
+c
+c
+      un4rad2 = 0.25 * rad * rad
+c
+c   --------------------------------------------------------------------
+c   --------------------------------------------------------------------
+c   -                                                                  -
+c   -  calcul  des aires ( aire,aireu,airev, 1./aire, 1./airez  )      -
+c   -      et de   fext ,  force de coriolis  extensive  .             -
+c   -                                                                  -
+c   --------------------------------------------------------------------
+c   --------------------------------------------------------------------
+c
+c
+c
+c   A 1 point scalaire P (i,j) de la grille, reguliere en (X,Y) , sont
+c   affectees 4 aires entourant P , calculees respectivement aux points
+c            ( i + 1/4, j - 1/4 )    :    aireij1 (i,j)
+c            ( i + 1/4, j + 1/4 )    :    aireij2 (i,j)
+c            ( i - 1/4, j + 1/4 )    :    aireij3 (i,j)
+c            ( i - 1/4, j - 1/4 )    :    aireij4 (i,j)
+c
+c           ,
+c   Les cotes de chacun de ces 4 carres etant egaux a 1/2 suivant (X,Y).
+c   Chaque aire centree en 1 point scalaire P(i,j) est egale a la somme
+c   des 4 aires  aireij1,aireij2,aireij3,aireij4 qui sont affectees au
+c   point (i,j) .
+c   On definit en outre les coefficients  alpha comme etant egaux a
+c    (aireij / aire), c.a.d par exp.  alpha1(i,j)=aireij1(i,j)/aire(i,j)
+c
+c   De meme, toute aire centree en 1 point U est egale a la somme des
+c   4 aires aireij1,aireij2,aireij3,aireij4 entourant le point U .
+c    Idem pour  airev, airez .
+c
+c       On a ,pour chaque maille :    dX = dY = 1
+c
+c
+c                             . V
+c
+c                 aireij4 .        . aireij1
+c
+c                   U .       . P      . U
+c
+c                 aireij3 .        . aireij2
+c
+c                             . V
+c
+c
+c
+c
+c
+c   ....................................................................
+c
+c    Calcul des 4 aires elementaires aireij1,aireij2,aireij3,aireij4
+c   qui entourent chaque aire(i,j) , ainsi que les 4 elongations elemen
+c   taires cuij et les 4 elongat. cvij qui sont calculees aux memes 
+c     endroits  que les aireij   .    
+c
+c   ....................................................................
+c
+c     .......  do 35  :   boucle sur les  jjm + 1  latitudes   .....
+c
+c
+      DO 35 j = 1, jjp1
+c
+      IF ( j. eq. 1 )  THEN
+c
+      yprm           = yprimu1(j)
+      rlatm          = rlatu1(j)
+c
+      coslatm        = COS( rlatm )
+      radclatm       = 0.5* rad * coslatm
+c
+      DO 30 i = 1, iim
+      xprp           = xprimp025( i )
+      xprm           = xprimm025( i )
+      aireij2( i,1 ) = un4rad2 * coslatm  * xprp * yprm
+      aireij3( i,1 ) = un4rad2 * coslatm  * xprm * yprm
+      cuij2  ( i,1 ) = radclatm * xprp
+      cuij3  ( i,1 ) = radclatm * xprm
+      cvij2  ( i,1 ) = 0.5* rad * yprm
+      cvij3  ( i,1 ) = cvij2(i,1)
+  30  CONTINUE
+c
+      DO  i = 1, iim
+      aireij1( i,1 ) = 0.
+      aireij4( i,1 ) = 0.
+      cuij1  ( i,1 ) = 0.
+      cuij4  ( i,1 ) = 0.
+      cvij1  ( i,1 ) = 0.
+      cvij4  ( i,1 ) = 0.
+      ENDDO
+c
+      END IF
+c
+      IF ( j. eq. jjp1 )  THEN
+       yprp               = yprimu2(j-1)
+       rlatp              = rlatu2 (j-1)
+ccc       yprp             = fyprim( REAL(j) - 0.25 )
+ccc       rlatp            = fy    ( REAL(j) - 0.25 )
+c
+      coslatp             = COS( rlatp )
+      radclatp            = 0.5* rad * coslatp
+c
+      DO 31 i = 1,iim
+        xprp              = xprimp025( i )
+        xprm              = xprimm025( i )
+        aireij1( i,jjp1 ) = un4rad2 * coslatp  * xprp * yprp
+        aireij4( i,jjp1 ) = un4rad2 * coslatp  * xprm * yprp
+        cuij1(i,jjp1)     = radclatp * xprp
+        cuij4(i,jjp1)     = radclatp * xprm
+        cvij1(i,jjp1)     = 0.5 * rad* yprp
+        cvij4(i,jjp1)     = cvij1(i,jjp1)
+ 31   CONTINUE
+c
+       DO   i    = 1, iim
+        aireij2( i,jjp1 ) = 0.
+        aireij3( i,jjp1 ) = 0.
+        cvij2  ( i,jjp1 ) = 0.
+        cvij3  ( i,jjp1 ) = 0.
+        cuij2  ( i,jjp1 ) = 0.
+        cuij3  ( i,jjp1 ) = 0.
+       ENDDO
+c
+      END IF
+c
+
+      IF ( j .gt. 1 .AND. j .lt. jjp1 )  THEN
+c
+        rlatp    = rlatu2 ( j-1 )
+        yprp     = yprimu2( j-1 )
+        rlatm    = rlatu1 (  j  )
+        yprm     = yprimu1(  j  )
+cc         rlatp    = fy    ( REAL(j) - 0.25 )
+cc         yprp     = fyprim( REAL(j) - 0.25 )
+cc         rlatm    = fy    ( REAL(j) + 0.25 )
+cc         yprm     = fyprim( REAL(j) + 0.25 )
+
+         coslatm  = COS( rlatm )
+         coslatp  = COS( rlatp )
+         radclatp = 0.5* rad * coslatp
+         radclatm = 0.5* rad * coslatm
+c
+         ai14            = un4rad2 * coslatp * yprp
+         ai23            = un4rad2 * coslatm * yprm
+         DO 32 i = 1,iim
+         xprp            = xprimp025( i )
+         xprm            = xprimm025( i )
+      
+         aireij1 ( i,j ) = ai14 * xprp
+         aireij2 ( i,j ) = ai23 * xprp
+         aireij3 ( i,j ) = ai23 * xprm
+         aireij4 ( i,j ) = ai14 * xprm
+         cuij1   ( i,j ) = radclatp * xprp
+         cuij2   ( i,j ) = radclatm * xprp
+         cuij3   ( i,j ) = radclatm * xprm
+         cuij4   ( i,j ) = radclatp * xprm
+         cvij1   ( i,j ) = 0.5* rad * yprp
+         cvij2   ( i,j ) = 0.5* rad * yprm
+         cvij3   ( i,j ) = cvij2(i,j)
+         cvij4   ( i,j ) = cvij1(i,j)
+  32     CONTINUE
+c
+      END IF
+c
+c    ........       periodicite   ............
+c
+         cvij1   (iip1,j) = cvij1   (1,j)
+         cvij2   (iip1,j) = cvij2   (1,j)
+         cvij3   (iip1,j) = cvij3   (1,j)
+         cvij4   (iip1,j) = cvij4   (1,j)
+         cuij1   (iip1,j) = cuij1   (1,j)
+         cuij2   (iip1,j) = cuij2   (1,j)
+         cuij3   (iip1,j) = cuij3   (1,j)
+         cuij4   (iip1,j) = cuij4   (1,j)
+         aireij1 (iip1,j) = aireij1 (1,j )
+         aireij2 (iip1,j) = aireij2 (1,j )
+         aireij3 (iip1,j) = aireij3 (1,j )
+         aireij4 (iip1,j) = aireij4 (1,j )
+        
+  35  CONTINUE
+c
+c    ..............................................................
+c
+      DO 37 j = 1, jjp1
+      DO 36 i = 1, iim
+      aire    ( i,j )  = aireij1(i,j) + aireij2(i,j) + aireij3(i,j) +
+     *                          aireij4(i,j)
+      alpha1  ( i,j )  = aireij1(i,j) / aire(i,j)
+      alpha2  ( i,j )  = aireij2(i,j) / aire(i,j)
+      alpha3  ( i,j )  = aireij3(i,j) / aire(i,j)
+      alpha4  ( i,j )  = aireij4(i,j) / aire(i,j)
+      alpha1p2( i,j )  = alpha1 (i,j) + alpha2 (i,j)
+      alpha1p4( i,j )  = alpha1 (i,j) + alpha4 (i,j)
+      alpha2p3( i,j )  = alpha2 (i,j) + alpha3 (i,j)
+      alpha3p4( i,j )  = alpha3 (i,j) + alpha4 (i,j)
+  36  CONTINUE
+c
+c
+      aire    (iip1,j) = aire    (1,j)
+      alpha1  (iip1,j) = alpha1  (1,j)
+      alpha2  (iip1,j) = alpha2  (1,j)
+      alpha3  (iip1,j) = alpha3  (1,j)
+      alpha4  (iip1,j) = alpha4  (1,j)
+      alpha1p2(iip1,j) = alpha1p2(1,j)
+      alpha1p4(iip1,j) = alpha1p4(1,j)
+      alpha2p3(iip1,j) = alpha2p3(1,j)
+      alpha3p4(iip1,j) = alpha3p4(1,j)
+  37  CONTINUE
+c
+
+      DO 42 j = 1,jjp1
+      DO 41 i = 1,iim
+      aireu       (i,j)= aireij1(i,j) + aireij2(i,j) + aireij4(i+1,j) +
+     *                                aireij3(i+1,j)
+      unsaire    ( i,j)= 1./ aire(i,j)
+      unsair_gam1( i,j)= unsaire(i,j)** ( - gamdi_gdiv )
+      unsair_gam2( i,j)= unsaire(i,j)** ( - gamdi_h    )
+      airesurg   ( i,j)= aire(i,j)/ g
+  41  CONTINUE
+      aireu     (iip1,j)  = aireu  (1,j)
+      unsaire   (iip1,j)  = unsaire(1,j)
+      unsair_gam1(iip1,j) = unsair_gam1(1,j)
+      unsair_gam2(iip1,j) = unsair_gam2(1,j)
+      airesurg   (iip1,j) = airesurg(1,j)
+  42  CONTINUE
+c
+c
+      DO 48 j = 1,jjm
+c
+        DO i=1,iim
+         airev     (i,j) = aireij2(i,j)+ aireij3(i,j)+ aireij1(i,j+1) +
+     *                           aireij4(i,j+1)
+        ENDDO
+         DO i=1,iim
+          airez         = aireij2(i,j)+aireij1(i,j+1)+aireij3(i+1,j) +
+     *                           aireij4(i+1,j+1)
+          unsairez(i,j) = 1./ airez
+          unsairz_gam(i,j)= unsairez(i,j)** ( - gamdi_grot )
+          fext    (i,j)   = airez * SIN(rlatv(j))* 2.* omeg
+         ENDDO
+        airev     (iip1,j)  = airev(1,j)
+        unsairez  (iip1,j)  = unsairez(1,j)
+        fext      (iip1,j)  = fext(1,j)
+        unsairz_gam(iip1,j) = unsairz_gam(1,j)
+c
+  48  CONTINUE
+c
+c
+c    .....      Calcul  des elongations cu,cv, cvu     .........
+c
+      DO    j   = 1, jjm
+       DO   i  = 1, iim
+       cv(i,j) = 0.5 *( cvij2(i,j)+cvij3(i,j)+cvij1(i,j+1)+cvij4(i,j+1))
+       cvu(i,j)= 0.5 *( cvij1(i,j)+cvij4(i,j)+cvij2(i,j)  +cvij3(i,j) )
+       cuv(i,j)= 0.5 *( cuij2(i,j)+cuij3(i,j)+cuij1(i,j+1)+cuij4(i,j+1))
+       unscv2(i,j) = 1./ ( cv(i,j)*cv(i,j) )
+       ENDDO
+       DO   i  = 1, iim
+       cuvsurcv (i,j)    = airev(i,j)  * unscv2(i,j)
+       cvsurcuv (i,j)    = 1./cuvsurcv(i,j)
+       cuvscvgam1(i,j)   = cuvsurcv (i,j) ** ( - gamdi_gdiv )
+       cuvscvgam2(i,j)   = cuvsurcv (i,j) ** ( - gamdi_h )
+       cvscuvgam(i,j)    = cvsurcuv (i,j) ** ( - gamdi_grot )
+       ENDDO
+       cv       (iip1,j)  = cv       (1,j)
+       cvu      (iip1,j)  = cvu      (1,j)
+       unscv2   (iip1,j)  = unscv2   (1,j)
+       cuv      (iip1,j)  = cuv      (1,j)
+       cuvsurcv (iip1,j)  = cuvsurcv (1,j)
+       cvsurcuv (iip1,j)  = cvsurcuv (1,j)
+       cuvscvgam1(iip1,j) = cuvscvgam1(1,j)
+       cuvscvgam2(iip1,j) = cuvscvgam2(1,j)
+       cvscuvgam(iip1,j)  = cvscuvgam(1,j)
+      ENDDO
+
+      DO  j     = 2, jjm
+        DO   i  = 1, iim
+        cu(i,j) = 0.5*(cuij1(i,j)+cuij4(i+1,j)+cuij2(i,j)+cuij3(i+1,j))
+        unscu2    (i,j)  = 1./ ( cu(i,j) * cu(i,j) )
+        cvusurcu  (i,j)  =  aireu(i,j) * unscu2(i,j)
+        cusurcvu  (i,j)  = 1./ cvusurcu(i,j)
+        cvuscugam1 (i,j) = cvusurcu(i,j) ** ( - gamdi_gdiv ) 
+        cvuscugam2 (i,j) = cvusurcu(i,j) ** ( - gamdi_h    ) 
+        cuscvugam (i,j)  = cusurcvu(i,j) ** ( - gamdi_grot )
+        ENDDO
+        cu       (iip1,j)  = cu(1,j)
+        unscu2   (iip1,j)  = unscu2(1,j)
+        cvusurcu (iip1,j)  = cvusurcu(1,j)
+        cusurcvu (iip1,j)  = cusurcvu(1,j)
+        cvuscugam1(iip1,j) = cvuscugam1(1,j)
+        cvuscugam2(iip1,j) = cvuscugam2(1,j)
+        cuscvugam (iip1,j) = cuscvugam(1,j)
+      ENDDO
+
+c
+c   ....  calcul aux  poles  ....
+c
+      DO    i      =  1, iip1
+        cu    ( i, 1 )  =   0.
+        unscu2( i, 1 )  =   0.
+        cvu   ( i, 1 )  =   0.
+c
+        cu    (i, jjp1) =   0.
+        unscu2(i, jjp1) =   0.
+        cvu   (i, jjp1) =   0.
+      ENDDO
+c
+c    ..............................................................
+c
+      DO j = 1, jjm
+        DO i= 1, iim
+         airvscu2  (i,j) = airev(i,j)/ ( cuv(i,j) * cuv(i,j) )
+         aivscu2gam(i,j) = airvscu2(i,j)** ( - gamdi_grot )
+        ENDDO
+         airvscu2  (iip1,j)  = airvscu2(1,j)
+         aivscu2gam(iip1,j)  = aivscu2gam(1,j)
+      ENDDO
+
+      DO j=2,jjm
+        DO i=1,iim
+         airuscv2   (i,j)    = aireu(i,j)/ ( cvu(i,j) * cvu(i,j) )
+         aiuscv2gam (i,j)    = airuscv2(i,j)** ( - gamdi_grot ) 
+        ENDDO
+         airuscv2  (iip1,j)  = airuscv2  (1,j)
+         aiuscv2gam(iip1,j)  = aiuscv2gam(1,j)
+      ENDDO
+
+c
+c   calcul des aires aux  poles :
+c   -----------------------------
+c
+      apoln       = SSUM(iim,aire(1,1),1)
+      apols       = SSUM(iim,aire(1,jjp1),1)
+      unsapolnga1 = 1./ ( apoln ** ( - gamdi_gdiv ) )
+      unsapolsga1 = 1./ ( apols ** ( - gamdi_gdiv ) )
+      unsapolnga2 = 1./ ( apoln ** ( - gamdi_h    ) )
+      unsapolsga2 = 1./ ( apols ** ( - gamdi_h    ) )
+c
+c-----------------------------------------------------------------------
+c     gtitre='Coriolis version ancienne'
+c     gfichier='fext1'
+c     CALL writestd(fext,iip1*jjm)
+c
+c   changement F. Hourdin calcul conservatif pour fext
+c   constang contient le produit a * cos ( latitude ) * omega
+c
+      DO i=1,iim
+         constang(i,1) = 0.
+      ENDDO
+      DO j=1,jjm-1
+        DO i=1,iim
+         constang(i,j+1) = rad*omeg*cu(i,j+1)*COS(rlatu(j+1))
+        ENDDO
+      ENDDO
+      DO i=1,iim
+         constang(i,jjp1) = 0.
+      ENDDO
+c
+c   periodicite en longitude
+c
+      DO j=1,jjm
+        fext(iip1,j)     = fext(1,j)
+      ENDDO
+      DO j=1,jjp1
+        constang(iip1,j) = constang(1,j)
+      ENDDO
+
+c fin du changement
+
+c
+c-----------------------------------------------------------------------
+c
+       WRITE(6,*) '   ***  Coordonnees de la grille  *** '
+       WRITE(6,995)
+c
+       WRITE(6,*) '   LONGITUDES  aux pts.   V  ( degres )  '
+       WRITE(6,995)
+        DO i=1,iip1
+         rlonvv(i) = rlonv(i)*180./pi
+        ENDDO
+       WRITE(6,400) rlonvv
+c
+       WRITE(6,995)
+       WRITE(6,*) '   LATITUDES   aux pts.   V  ( degres )  '
+       WRITE(6,995)
+        DO i=1,jjm
+         rlatuu(i)=rlatv(i)*180./pi
+        ENDDO
+       WRITE(6,400) (rlatuu(i),i=1,jjm)
+c
+        DO i=1,iip1
+          rlonvv(i)=rlonu(i)*180./pi
+        ENDDO
+       WRITE(6,995)
+       WRITE(6,*) '   LONGITUDES  aux pts.   U  ( degres )  '
+       WRITE(6,995)
+       WRITE(6,400) rlonvv
+       WRITE(6,995)
+
+       WRITE(6,*) '   LATITUDES   aux pts.   U  ( degres )  '
+       WRITE(6,995)
+        DO i=1,jjp1
+         rlatuu(i)=rlatu(i)*180./pi
+        ENDDO
+       WRITE(6,400) (rlatuu(i),i=1,jjp1)
+       WRITE(6,995)
+c
+444    format(f10.3,f6.0)
+400    FORMAT(1x,8f8.2)
+990    FORMAT(//)
+995    FORMAT(/)
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inigrads.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inigrads.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inigrads.F	(revision 3330)
@@ -0,0 +1,93 @@
+!
+! $Header$
+!
+      subroutine inigrads(if,im
+     s  ,x,fx,xmin,xmax,jm,y,ymin,ymax,fy,lm,z,fz
+     s  ,dt,file,titlel)
+
+
+      implicit none
+
+      integer if,im,jm,lm,i,j,l
+      real x(im),y(jm),z(lm),fx,fy,fz,dt
+      real xmin,xmax,ymin,ymax
+
+      character(len=*),intent(in) :: file
+      character(len=*),intent(in) :: titlel
+
+#include "gradsdef.h"
+
+c     data unit/66,32,34,36,38,40,42,44,46,48/
+      integer nf
+      save nf
+      data nf/0/
+
+      unit(1)=66
+      unit(2)=32
+      unit(3)=34
+      unit(4)=36
+      unit(5)=38
+      unit(6)=40
+      unit(7)=42
+      unit(8)=44
+      unit(9)=46
+
+      if (if.le.nf) stop'verifier les appels a inigrads'
+
+      print*,'Entree dans inigrads'
+
+      nf=if
+      title(if)=titlel
+      ivar(if)=0
+
+      fichier(if)=trim(file)
+
+      firsttime(if)=.true.
+      dtime(if)=dt
+
+      iid(if)=1
+      ifd(if)=im
+      imd(if)=im
+      do i=1,im
+         xd(i,if)=x(i)*fx
+         if(xd(i,if).lt.xmin) iid(if)=i+1
+         if(xd(i,if).le.xmax) ifd(if)=i
+      enddo
+      print*,'On stoke du point ',iid(if),'  a ',ifd(if),' en x'
+
+      jid(if)=1
+      jfd(if)=jm
+      jmd(if)=jm
+      do j=1,jm
+         yd(j,if)=y(j)*fy
+         if(yd(j,if).gt.ymax) jid(if)=j+1
+         if(yd(j,if).ge.ymin) jfd(if)=j
+      enddo
+      print*,'On stoke du point ',jid(if),'  a ',jfd(if),' en y'
+
+      print*,'Open de dat'
+      print*,'file=',file
+      print*,'fichier(if)=',fichier(if)
+
+      print*,4*(ifd(if)-iid(if))*(jfd(if)-jid(if))
+      print*,trim(file)//'.dat'
+
+      OPEN (unit(if)+1,FILE=trim(file)//'.dat'
+     s   ,FORM='unformatted',
+     s   ACCESS='direct'
+     s  ,RECL=4*(ifd(if)-iid(if)+1)*(jfd(if)-jid(if)+1))
+
+      print*,'Open de dat ok'
+
+      lmd(if)=lm
+      do l=1,lm
+         zd(l,if)=z(l)*fz
+      enddo
+
+      irec(if)=0
+
+      print*,if,imd(if),jmd(if),lmd(if)
+      print*,'if,imd(if),jmd(if),lmd(if)'
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/initdynav.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/initdynav.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/initdynav.F90	(revision 3330)
@@ -0,0 +1,193 @@
+! $Id$
+
+subroutine initdynav(day0,anne0,tstep,t_ops,t_wrt)
+
+#ifdef CPP_IOIPSL
+  USE IOIPSL
+#endif
+  USE infotrac, ONLY : nqtot, ttext
+  use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid, &
+       dynhistave_file,dynhistvave_file,dynhistuave_file
+  USE comconst_mod, ONLY: pi
+  USE comvert_mod, ONLY: presnivs
+  USE temps_mod, ONLY: itau_dyn
+  
+  implicit none
+
+
+  !   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+  !   au format IOIPSL. Initialisation du fichier histoire moyenne.
+
+  !   Appels succesifs des routines: histbeg
+  !                                  histhori
+  !                                  histver
+  !                                  histdef
+  !                                  histend
+
+  !   Entree:
+
+  !      infile: nom du fichier histoire a creer
+  !      day0,anne0: date de reference
+  !      tstep : frequence d'ecriture
+  !      t_ops: frequence de l'operation pour IOIPSL
+  !      t_wrt: frequence d'ecriture sur le fichier
+
+
+  !   L. Fairhead, LMD, 03/99
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+
+  !   Arguments
+
+  integer day0, anne0
+  real tstep, t_ops, t_wrt
+
+#ifdef CPP_IOIPSL
+  ! This routine needs IOIPSL to work
+  !   Variables locales
+
+  integer tau0
+  real zjulian
+  integer iq
+  real rlong(iip1,jjp1), rlat(iip1,jjp1)
+  integer uhoriid, vhoriid, thoriid, zvertiid
+  integer ii,jj
+  integer zan, dayref
+
+  !--------------------------------------------------------------------
+
+  !  Initialisations
+
+  pi = 4. * atan (1.)
+
+  !  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+
+
+  zan = anne0
+  dayref = day0
+  CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+  tau0 = itau_dyn
+
+  do jj = 1, jjp1
+     do ii = 1, iip1
+        rlong(ii,jj) = rlonv(ii) * 180. / pi
+        rlat(ii,jj)  = rlatu(jj) * 180. / pi
+     enddo
+  enddo
+
+  ! Creation de 3 fichiers pour les differentes grilles horizontales
+  ! Restriction de IOIPSL: seulement 2 coordonnees dans le meme fichier
+  ! Grille Scalaire       
+  call histbeg(dynhistave_file, iip1, rlong(:,1), jjp1, rlat(1,:), &
+       1, iip1, 1, jjp1, &
+       tau0, zjulian, tstep, thoriid,histaveid)
+
+  ! Creation du fichier histoire pour les grilles en V et U (oblige
+  ! pour l'instant, IOIPSL ne permet pas de grilles avec des nombres
+  ! de point differents dans  un meme fichier)
+  ! Grille V
+  do jj = 1, jjm
+     do ii = 1, iip1
+        rlong(ii,jj) = rlonv(ii) * 180. / pi
+        rlat(ii,jj) = rlatv(jj) * 180. / pi
+     enddo
+  enddo
+
+  call histbeg(dynhistvave_file, iip1, rlong(:,1), jjm, rlat(1,:), &
+       1, iip1, 1, jjm, &
+       tau0, zjulian, tstep, vhoriid,histvaveid)
+  ! Grille U
+  do jj = 1, jjp1
+     do ii = 1, iip1
+        rlong(ii,jj) = rlonu(ii) * 180. / pi
+        rlat(ii,jj) = rlatu(jj) * 180. / pi
+     enddo
+  enddo
+
+  call histbeg(dynhistuave_file, iip1, rlong(:,1),jjp1, rlat(1,:), &
+       1, iip1, 1, jjp1, &
+       tau0, zjulian, tstep, uhoriid,histuaveid)
+
+  !  Appel a histvert pour la grille verticale
+
+  call histvert(histaveid,'presnivs','Niveaux Pression approximatifs','mb', &
+       llm, presnivs/100., zvertiid,'down')
+  call histvert(histuaveid,'presnivs','Niveaux Pression approximatifs','mb', &
+       llm, presnivs/100., zvertiid,'down')
+  call histvert(histvaveid,'presnivs','Niveaux Pression approximatifs','mb', &
+       llm, presnivs/100., zvertiid,'down')
+
+  !  Appels a histdef pour la definition des variables a sauvegarder
+
+  !  Vents U
+
+  call histdef(histuaveid, 'u', 'vent u moyen ', &
+       'm/s', iip1, jjp1, uhoriid, llm, 1, llm, zvertiid, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+  !  Vents V
+
+  call histdef(histvaveid, 'v', 'vent v moyen', &
+       'm/s', iip1, jjm, vhoriid, llm, 1, llm, zvertiid, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+
+  !  Temperature
+
+  call histdef(histaveid, 'temp', 'temperature moyenne', 'K', &
+       iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+  !  Temperature potentielle
+
+  call histdef(histaveid, 'theta', 'temperature potentielle', 'K', &
+       iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+  !  Geopotentiel
+
+  call histdef(histaveid, 'phi', 'geopotentiel moyen', '-', &
+       iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+  !  Traceurs
+
+  !        DO iq=1,nqtot
+  !          call histdef(histaveid, ttext(iq), ttext(iq), '-', &
+  !                  iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
+  !                  32, 'ave(X)', t_ops, t_wrt)
+  !        enddo
+
+  !  Masse
+
+  call histdef(histaveid, 'masse', 'masse', 'kg', &
+       iip1, jjp1, thoriid, llm, 1, llm, zvertiid, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+  !  Pression au sol
+
+  call histdef(histaveid, 'ps', 'pression naturelle au sol', 'Pa', &
+       iip1, jjp1, thoriid, 1, 1, 1, -99, &
+       32, 'ave(X)', t_ops, t_wrt)
+
+  !  Geopotentiel au sol
+
+  !      call histdef(histaveid, 'phis', 'geopotentiel au sol', '-', &
+  !                  iip1, jjp1, thoriid, 1, 1, 1, -99, &
+  !                  32, 'ave(X)', t_ops, t_wrt)
+
+  call histend(histaveid)
+  call histend(histuaveid)
+  call histend(histvaveid)
+#else
+  write(lunout,*)"initdynav: Warning this routine should not be", &
+       " used without ioipsl"
+#endif
+  ! of #ifdef CPP_IOIPSL
+
+end subroutine initdynav
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/initfluxsto.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/initfluxsto.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/initfluxsto.F	(revision 3330)
@@ -0,0 +1,232 @@
+!
+! $Id$
+!
+      subroutine initfluxsto
+     .  (infile,tstep,t_ops,t_wrt,
+     .                    fileid,filevid,filedid)
+
+#ifdef CPP_IOIPSL
+       USE IOIPSL
+#endif
+      USE comconst_mod, ONLY: pi
+      USE comvert_mod, ONLY: nivsigs
+      USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+      
+      implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      infile: nom du fichier histoire a creer
+C      day0,anne0: date de reference
+C      tstep: duree du pas de temps en seconde
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C      filevid:ID du fichier netcdf pour la grille v
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C   Arguments
+C
+      character*(*) infile
+      real tstep, t_ops, t_wrt
+      integer fileid, filevid,filedid
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL to work
+C   Variables locales
+C
+      real nivd(1)
+      integer tau0
+      real zjulian
+      character*3 str
+      character*10 ctrac
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1),rl(1,1)
+      integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
+      integer ii,jj
+      integer zan, idayref
+      logical ok_sync
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+      str='q  '
+      ctrac = 'traceur   '
+      ok_sync = .true.
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = annee_ref
+      idayref = day_ref
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
+      tau0 = itau_dyn
+        
+        do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+ 
+      call histbeg(infile, iip1, rlong(:,1), jjp1, rlat(1,:),
+     .             1, iip1, 1, jjp1,
+     .             tau0, zjulian, tstep, uhoriid, fileid)
+C
+C  Creation du fichier histoire pour la grille en V (oblige pour l'instant,
+C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans 
+C  un meme fichier)
+
+
+      do jj = 1, jjm
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      call histbeg('fluxstokev.nc', iip1, rlong(:,1), jjm, rlat(1,:),
+     .             1, iip1, 1, jjm,
+     .             tau0, zjulian, tstep, vhoriid, filevid)
+        
+        rl(1,1) = 1.
+      call histbeg('defstoke.nc', 1, rl, 1, rl,
+     .             1, 1, 1, 1,
+     .             tau0, zjulian, tstep, dhoriid, filedid)
+
+C
+C  Appel a histhori pour rajouter les autres grilles horizontales
+C
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      call histhori(fileid, iip1, rlong, jjp1, rlat, 'scalar',
+     .              'Grille points scalaires', thoriid)
+        
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'sig_s', 'Niveaux sigma',
+     . 'sigma_level',
+     .              llm, nivsigs, zvertiid)
+C Pour le fichier V
+      call histvert(filevid, 'sig_s', 'Niveaux sigma',
+     .  'sigma_level',
+     .              llm, nivsigs, zvertiid)
+c pour le fichier def
+      nivd(1) = 1
+      call histvert(filedid, 'sig_s', 'Niveaux sigma',
+     .  'sigma_level',
+     .              1, nivd, dvertiid)
+
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+        
+        CALL histdef(fileid, "phis", "Surface geop. height", "-",
+     .                iip1,jjp1,thoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+
+         CALL histdef(fileid, "aire", "Grid area", "-",
+     .                iip1,jjp1,thoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+        
+        CALL histdef(filedid, "dtvr", "tps dyn", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+        
+         CALL histdef(filedid, "istdyn", "tps stock", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+         
+         CALL histdef(filedid, "istphy", "tps stock phy", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+
+
+C
+C Masse 
+C
+      call histdef(fileid, 'masse', 'Masse', 'kg',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pbaru 
+C
+      call histdef(fileid, 'pbaru', 'flx de masse zonal', 'kg m/s',
+     .             iip1, jjp1, uhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Pbarv 
+C
+      call histdef(filevid, 'pbarv', 'flx de masse mer', 'kg m/s',
+     .             iip1, jjm, vhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  w 
+C
+      call histdef(fileid, 'w', 'flx de masse vert', 'kg m/s',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Temperature potentielle
+C
+      call histdef(fileid, 'teta', 'temperature potentielle', '-',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+
+C
+C Geopotentiel 
+C
+      call histdef(fileid, 'phi', 'geopotentiel instantane', '-',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(fileid)
+      call histend(filevid)
+      call histend(filedid)
+      if (ok_sync) then
+        call histsync(fileid)
+        call histsync(filevid)
+        call histsync(filedid)
+      endif
+        
+#else
+! tell the user this routine should be run with ioipsl
+      write(lunout,*)"initfluxsto: Warning this routine should not be",
+     &               " used without ioipsl"
+#endif
+! of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inithist.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inithist.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inithist.F	(revision 3330)
@@ -0,0 +1,195 @@
+!
+! $Id$
+!
+      subroutine inithist(day0,anne0,tstep,t_ops,t_wrt)
+
+#ifdef CPP_IOIPSL
+       USE IOIPSL
+#endif
+       USE infotrac, ONLY : nqtot, ttext
+       use com_io_dyn_mod, only : histid,histvid,histuid,               &
+     &                        dynhist_file,dynhistv_file,dynhistu_file
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: presnivs
+       USE temps_mod, ONLY: itau_dyn
+       
+      implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      infile: nom du fichier histoire a creer
+C      day0,anne0: date de reference
+C      tstep: duree du pas de temps en seconde
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C      nq: nombre de traceurs
+C
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C   Arguments
+C
+      integer day0, anne0
+      real tstep, t_ops, t_wrt
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL to work
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1)
+      integer uhoriid, vhoriid, thoriid, zvertiid
+      integer ii,jj
+      integer zan, dayref
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = anne0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+! -------------------------------------------------------------
+! Creation des 3 fichiers pour les grilles horizontales U,V,Scal
+! -------------------------------------------------------------
+!Grille U      
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+       
+      call histbeg(dynhistu_file, iip1, rlong(:,1), jjp1, rlat(1,:),
+     .             1, iip1, 1, jjp1,
+     .             tau0, zjulian, tstep, uhoriid, histuid)
+
+! Grille V
+      do jj = 1, jjm
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      call histbeg(dynhistv_file, iip1, rlong(:,1), jjm, rlat(1,:),
+     .             1, iip1, 1, jjm,
+     .             tau0, zjulian, tstep, vhoriid, histvid)
+
+!Grille Scalaire
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      call histbeg(dynhist_file, iip1, rlong(:,1), jjp1, rlat(1,:),
+     .             1, iip1, 1, jjp1,
+     .             tau0, zjulian, tstep, thoriid, histid)
+! -------------------------------------------------------------
+C  Appel a histvert pour la grille verticale
+! -------------------------------------------------------------
+      call histvert(histid, 'presnivs', 'Niveaux pression','mb',
+     .              llm, presnivs/100., zvertiid,'down')
+      call histvert(histvid, 'presnivs', 'Niveaux pression','mb',
+     .              llm, presnivs/100., zvertiid,'down')
+      call histvert(histuid, 'presnivs', 'Niveaux pression','mb',
+     .              llm, presnivs/100., zvertiid,'down')
+C
+! -------------------------------------------------------------
+C  Appels a histdef pour la definition des variables a sauvegarder
+! -------------------------------------------------------------
+C
+C  Vents U
+C
+      call histdef(histuid, 'u', 'vent u', 'm/s',
+     .             iip1, jjp1, uhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Vents V
+C
+      call histdef(histvid, 'v', 'vent v', 'm/s',
+     .             iip1, jjm, vhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Temperature potentielle
+C
+      call histdef(histid, 'teta', 'temperature potentielle', '-',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Geopotentiel
+C
+      call histdef(histid, 'phi', 'geopotentiel', '-',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Traceurs
+C
+!
+!        DO iq=1,nqtot
+!          call histdef(histid, ttext(iq),  ttext(iq), '-',
+!     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+!     .             32, 'inst(X)', t_ops, t_wrt)
+!        enddo
+!C
+C  Masse
+C
+      call histdef(histid, 'masse', 'masse', 'kg',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(histid, 'ps', 'pression naturelle au sol', 'Pa',
+     .             iip1, jjp1, thoriid, 1, 1, 1, -99,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Geopotentiel au sol
+!C
+!      call histdef(histid, 'phis', 'geopotentiel au sol', '-',
+!     .             iip1, jjp1, thoriid, 1, 1, 1, -99,
+!     .             32, 'inst(X)', t_ops, t_wrt)
+!C
+C  Fin
+C
+      call histend(histid)
+      call histend(histuid)
+      call histend(histvid)
+#else
+! tell the user this routine should be run with ioipsl
+      write(lunout,*)"inithist: Warning this routine should not be",
+     &               " used without ioipsl"
+#endif
+! of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inter_barxy_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inter_barxy_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/inter_barxy_m.F90	(revision 3330)
@@ -0,0 +1,450 @@
+!
+! $Id$
+!
+module inter_barxy_m
+
+  ! Authors: Robert SADOURNY, Phu LE VAN, Lionel GUEZ
+
+  implicit none
+
+  private
+  public inter_barxy
+
+contains
+
+  SUBROUTINE inter_barxy(dlonid, dlatid, champ, rlonimod, rlatimod, champint)
+
+    use assert_eq_m, only: assert_eq
+    use assert_m, only: assert
+
+    include "dimensions.h"
+    ! (for "iim", "jjm")
+
+    include "paramet.h"
+    ! (for other included files)
+
+    include "comgeom2.h"
+    ! (for "aire", "apoln", "apols")
+
+    REAL, intent(in):: dlonid(:)
+    ! (longitude from input file, in rad, from -pi to pi)
+
+    REAL, intent(in):: dlatid(:), champ(:, :), rlonimod(:)
+
+    REAL, intent(in):: rlatimod(:)
+    ! (latitude angle, in degrees or rad, in strictly decreasing order)
+
+    real, intent(out):: champint(:, :)
+    ! Si taille de la seconde dim = jjm + 1, on veut interpoler sur les
+    ! jjm+1 latitudes rlatu du modele (latitudes des scalaires et de U)
+    ! Si taille de la seconde dim = jjm, on veut interpoler sur les
+    ! jjm latitudes rlatv du modele (latitudes de V) 
+
+    ! Variables local to the procedure:
+
+    REAL champy(iim, size(champ, 2))
+    integer j, i, jnterfd, jmods
+
+    REAL yjmod(size(champint, 2))
+    ! (angle, in degrees, in strictly increasing order)
+
+    REAL   yjdat(size(dlatid) + 1) ! angle, in degrees, in increasing order
+    LOGICAL decrois ! "dlatid" is in decreasing order
+
+    !-----------------------------------
+
+    jnterfd = assert_eq(size(champ, 2) - 1, size(dlatid), &
+         "inter_barxy jnterfd")
+    jmods = size(champint, 2)
+    call assert(size(champ, 1) == size(dlonid), "inter_barxy size(champ, 1)")
+    call assert((/size(rlonimod), size(champint, 1)/) == iim, &
+         "inter_barxy iim")
+    call assert(any(jmods == (/jjm, jjm + 1/)), 'inter_barxy jmods')
+    call assert(size(rlatimod) == jjm, "inter_barxy size(rlatimod)")
+
+    ! Check decreasing order for "rlatimod":
+    DO i = 2, jjm
+       IF (rlatimod(i) >= rlatimod(i-1)) stop &
+            '"inter_barxy": "rlatimod" should be strictly decreasing'
+    ENDDO
+
+    yjmod(:jjm) = ord_coordm(rlatimod)
+    IF (jmods == jjm + 1) THEN
+       IF (90. - yjmod(jjm) < 0.01) stop &
+            '"inter_barxy": with jmods = jjm + 1, yjmod(jjm) should be < 90.'
+    ELSE
+       ! jmods = jjm
+       IF (ABS(yjmod(jjm) - 90.) > 0.01) stop &
+            '"inter_barxy": with jmods = jjm, yjmod(jjm) should be 90.'
+    ENDIF
+
+    if (jmods == jjm + 1) yjmod(jjm + 1) = 90.
+
+    DO j = 1, jnterfd + 1
+       champy(:, j) = inter_barx(dlonid, champ(:, j), rlonimod)
+    ENDDO
+
+    CALL ord_coord(dlatid, yjdat, decrois) 
+    IF (decrois) champy(:, :) = champy(:, jnterfd + 1:1:-1)
+    DO i = 1, iim
+       champint(i, :) = inter_bary(yjdat, champy(i, :), yjmod)
+    ENDDO
+    champint(:, :) = champint(:, jmods:1:-1)
+
+    IF (jmods == jjm + 1) THEN
+       ! Valeurs uniques aux poles
+       champint(:, 1) = SUM(aire(:iim,  1) * champint(:, 1)) / apoln
+       champint(:, jjm + 1) = SUM(aire(:iim, jjm + 1) &
+            * champint(:, jjm + 1)) / apols
+    ENDIF
+
+  END SUBROUTINE inter_barxy
+
+  !******************************
+
+  function inter_barx(dlonid, fdat, rlonimod) 
+
+    !        INTERPOLATION BARYCENTRIQUE BASEE SUR LES AIRES
+    !            VERSION UNIDIMENSIONNELLE  ,   EN  LONGITUDE .
+
+    !     idat : indice du champ de donnees, de 1 a idatmax
+    !     imod : indice du champ du modele,  de 1 a  imodmax
+    !     fdat(idat) : champ de donnees (entrees)
+    !     inter_barx(imod) : champ du modele (sorties)
+    !     dlonid(idat): abscisses des interfaces des mailles donnees
+    !     rlonimod(imod): abscisses des interfaces des mailles modele
+    !      ( L'indice 1 correspond a l'interface mailLE 1 / maille 2)
+    !      ( Les abscisses sont exprimees en degres)
+
+    use assert_eq_m, only: assert_eq
+
+    IMPLICIT NONE
+
+    REAL, intent(in):: dlonid(:)
+    real, intent(in):: fdat(:)
+    real, intent(in):: rlonimod(:)
+
+    real inter_barx(size(rlonimod))
+
+    !    ...  Variables locales ... 
+
+    INTEGER idatmax, imodmax
+    REAL xxid(size(dlonid)+1), xxd(size(dlonid)+1), fdd(size(dlonid)+1)
+    REAL  fxd(size(dlonid)+1), xchan(size(dlonid)+1), fdchan(size(dlonid)+1) 
+    REAL  xxim(size(rlonimod))
+
+    REAL x0, xim0, dx, dxm
+    REAL chmin, chmax, pi
+
+    INTEGER imod, idat, i, ichang, id0, id1, nid, idatmax1
+
+    !-----------------------------------------------------
+
+    idatmax = assert_eq(size(dlonid), size(fdat), "inter_barx idatmax")
+    imodmax = size(rlonimod)
+
+    pi = 2. * ASIN(1.)
+
+    !   REDEFINITION DE L'ORIGINE DES ABSCISSES
+    !    A L'INTERFACE OUEST DE LA PREMIERE MAILLE DU MODELE  
+    DO imod = 1, imodmax
+       xxim(imod) = rlonimod(imod)
+    ENDDO
+
+    CALL minmax( imodmax, xxim, chmin, chmax)
+    IF( chmax.LT.6.50 )   THEN
+       DO imod = 1, imodmax
+          xxim(imod) = xxim(imod) * 180./pi
+       ENDDO
+    ENDIF
+
+    xim0 = xxim(imodmax) - 360.
+
+    DO imod = 1, imodmax
+       xxim(imod) = xxim(imod) - xim0
+    ENDDO
+
+    idatmax1 = idatmax +1
+
+    DO idat = 1, idatmax
+       xxd(idat) = dlonid(idat)
+    ENDDO
+
+    CALL minmax( idatmax, xxd, chmin, chmax)
+    IF( chmax.LT.6.50 )  THEN
+       DO idat = 1, idatmax
+          xxd(idat) = xxd(idat) * 180./pi
+       ENDDO
+    ENDIF
+
+    DO idat = 1, idatmax
+       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
+       fdd(idat) = fdat (idat)
+    ENDDO
+
+    i = 2
+    DO while (xxd(i) >= xxd(i-1) .and. i < idatmax)
+       i = i + 1
+    ENDDO
+    IF (xxd(i) < xxd(i-1)) THEN
+       ichang = i
+       !  ***  reorganisation  des longitudes entre 0. et 360. degres ****
+       nid = idatmax - ichang +1
+       DO i = 1, nid
+          xchan (i) = xxd(i+ichang -1 )
+          fdchan(i) = fdd(i+ichang -1 )
+       ENDDO
+       DO i=1, ichang -1
+          xchan (i+ nid) = xxd(i)
+          fdchan(i+nid) = fdd(i) 
+       ENDDO
+       DO i =1, idatmax
+          xxd(i) = xchan(i)
+          fdd(i) = fdchan(i)
+       ENDDO
+    end IF
+
+    !    translation des champs de donnees par rapport
+    !    a la nouvelle origine, avec redondance de la
+    !       maille a cheval sur les bords
+
+    id0 = 0
+    id1 = 0
+
+    DO idat = 1, idatmax
+       IF ( xxd( idatmax1- idat ).LT.360.) exit
+       id1 = id1 + 1
+    ENDDO
+
+    DO idat = 1, idatmax
+       IF (xxd(idat).GT.0.) exit
+       id0 = id0 + 1
+    END DO
+
+    IF( id1 /= 0 ) then
+       DO idat = 1, id1
+          xxid(idat) = xxd(idatmax - id1 + idat) - 360.
+          fxd (idat) = fdd(idatmax - id1 + idat)     
+       END DO
+       DO idat = 1, idatmax - id1
+          xxid(idat + id1) = xxd(idat)
+          fxd (idat + id1) = fdd(idat)
+       END DO
+    end IF
+
+    IF(id0 /= 0) then
+       DO idat = 1, idatmax - id0
+          xxid(idat) = xxd(idat + id0)
+          fxd (idat) = fdd(idat + id0)
+       END DO
+
+       DO idat = 1, id0
+          xxid (idatmax - id0 + idat) =  xxd(idat) + 360.
+          fxd  (idatmax - id0 + idat) =  fdd(idat)   
+       END DO
+    else 
+       DO idat = 1, idatmax
+          xxid(idat)  = xxd(idat)
+          fxd (idat)  = fdd(idat)
+       ENDDO
+    end IF
+    xxid(idatmax1) = xxid(1) + 360.
+    fxd (idatmax1) = fxd(1)
+
+    !   initialisation du champ du modele
+
+    inter_barx(:) = 0.
+
+    ! iteration
+
+    x0   = xim0
+    dxm  = 0.
+    imod = 1
+    idat = 1
+
+    do while (imod <= imodmax)
+       do while (xxim(imod).GT.xxid(idat))
+          dx   = xxid(idat) - x0
+          dxm  = dxm + dx
+          inter_barx(imod) = inter_barx(imod) + dx * fxd(idat)
+          x0   = xxid(idat)
+          idat = idat + 1
+       end do
+       IF (xxim(imod).LT.xxid(idat)) THEN
+          dx   = xxim(imod) - x0
+          dxm  = dxm + dx
+          inter_barx(imod) = (inter_barx(imod) + dx * fxd(idat)) / dxm
+          x0   = xxim(imod)
+          dxm  = 0.
+          imod = imod + 1
+       ELSE
+          dx   = xxim(imod) - x0
+          dxm  = dxm + dx
+          inter_barx(imod) = (inter_barx(imod) + dx * fxd(idat)) / dxm
+          x0   = xxim(imod)
+          dxm  = 0.
+          imod = imod + 1
+          idat = idat + 1
+       END IF
+    end do
+
+  END function inter_barx
+
+  !******************************
+
+  function inter_bary(yjdat, fdat, yjmod)
+
+    ! Interpolation barycentrique basée sur les aires.
+    ! Version unidimensionnelle, en latitude.
+    ! L'indice 1 correspond à l'interface maille 1 -- maille 2.
+
+    use assert_m, only: assert
+
+    IMPLICIT NONE
+
+    REAL, intent(in):: yjdat(:)
+    ! (angles, ordonnées des interfaces des mailles des données, in
+    ! degrees, in increasing order)
+
+    REAL, intent(in):: fdat(:) ! champ de données
+
+    REAL, intent(in):: yjmod(:)
+    ! (ordonnées des interfaces des mailles du modèle)
+    ! (in degrees, in strictly increasing order)
+
+    REAL inter_bary(size(yjmod)) ! champ du modèle
+
+    ! Variables local to the procedure:
+
+    REAL y0, dy, dym 
+    INTEGER jdat ! indice du champ de données
+    integer jmod ! indice du champ du modèle
+
+    !------------------------------------
+
+    call assert(size(yjdat) == size(fdat), "inter_bary")
+
+    ! Initialisation des variables
+    inter_bary(:) = 0.
+    y0    = -90.
+    dym   = 0.
+    jmod  = 1
+    jdat  = 1
+
+    do while (jmod <= size(yjmod))
+       do while (yjmod(jmod) > yjdat(jdat))
+          dy         = yjdat(jdat) - y0
+          dym        = dym + dy
+          inter_bary(jmod) = inter_bary(jmod) + dy * fdat(jdat)
+          y0         = yjdat(jdat)
+          jdat       = jdat + 1
+       end do
+       IF (yjmod(jmod) < yjdat(jdat)) THEN
+          dy         = yjmod(jmod) - y0
+          dym        = dym + dy
+          inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym
+          y0         = yjmod(jmod)
+          dym        = 0.
+          jmod       = jmod + 1
+       ELSE
+          ! {yjmod(jmod) == yjdat(jdat)}
+          dy         = yjmod(jmod) - y0
+          dym        = dym + dy
+          inter_bary(jmod) = (inter_bary(jmod) + dy * fdat(jdat)) / dym
+          y0         = yjmod(jmod)
+          dym        = 0.
+          jmod       = jmod + 1
+          jdat       = jdat + 1
+       END IF
+    end do
+    ! Le test de fin suppose que l'interface 0 est commune aux deux
+    ! grilles "yjdat" et "yjmod".
+
+  END function inter_bary
+
+  !******************************
+
+  SUBROUTINE ord_coord(xi, xo, decrois)
+
+    ! This procedure receives an array of latitudes.
+    ! It converts them to degrees if they are in radians.
+    ! If the input latitudes are in decreasing order, the procedure
+    ! reverses their order.
+    ! Finally, the procedure adds 90° as the last value of the array.
+
+    use assert_eq_m, only: assert_eq
+    use comconst_mod, only: pi
+
+    IMPLICIT NONE
+
+    REAL, intent(in):: xi(:)
+    ! (latitude, in degrees or radians, in increasing or decreasing order)
+    ! ("xi" should contain latitudes from pole to pole.
+    ! "xi" should contain the latitudes of the boundaries of grid
+    ! cells, not the centers of grid cells.
+    ! So the extreme values should not be 90° and -90°.)
+
+    REAL, intent(out):: xo(:) ! angles in degrees
+    LOGICAL, intent(out):: decrois
+
+    ! Variables  local to the procedure:
+    INTEGER nmax, i
+
+    !--------------------
+
+    nmax = assert_eq(size(xi), size(xo) - 1, "ord_coord")
+
+    ! Check monotonicity:
+    decrois = xi(2) < xi(1)
+    DO i = 3, nmax
+       IF (decrois .neqv. xi(i) < xi(i-1)) stop &
+            '"ord_coord":  latitudes are not monotonic'
+    ENDDO
+
+    IF (abs(xi(1)) < pi) then
+       ! "xi" contains latitudes in radians
+       xo(:nmax) = xi(:) * 180. / pi
+    else
+       ! "xi" contains latitudes in degrees
+       xo(:nmax) = xi(:)
+    end IF
+
+    IF (ABS(abs(xo(1)) - 90) < 0.001 .or. ABS(abs(xo(nmax)) - 90) < 0.001) THEN
+       print *, "ord_coord"
+       PRINT *, '"xi" should contain the latitudes of the boundaries of ' &
+            // 'grid cells, not the centers of grid cells.'
+       STOP
+    ENDIF
+
+    IF (decrois) xo(:nmax) = xo(nmax:1:- 1)
+    xo(nmax + 1) = 90.
+
+  END SUBROUTINE ord_coord
+
+  !***********************************
+
+  function ord_coordm(xi)
+
+    ! This procedure converts to degrees, if necessary, and inverts the
+    ! order.
+
+    use comconst_mod, only: pi
+
+    IMPLICIT NONE
+
+    REAL, intent(in):: xi(:) ! angle, in rad or degrees
+    REAL ord_coordm(size(xi)) ! angle, in degrees
+
+    !-----------------------------
+
+    IF (xi(1) < 6.5) THEN
+       ! "xi" is in rad
+       ord_coordm(:) = xi(size(xi):1:-1) * 180. / pi
+    else
+       ! "xi" is in degrees
+       ord_coordm(:) = xi(size(xi):1:-1)
+    ENDIF
+
+  END function ord_coordm
+
+end module inter_barxy_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/interpost.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/interpost.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/interpost.F	(revision 3330)
@@ -0,0 +1,43 @@
+!
+! $Header$
+!
+        subroutine interpost(q,qppm)
+
+       implicit none
+
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+c Arguments   
+      real   q(iip1,jjp1,llm)
+      real   qppm(iim,jjp1,llm)
+c Local
+      integer l,i,j
+  
+c RE-INVERSION DES NIVEAUX
+c le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
+c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
+c On passe donc des niveaux de Lin à ceux du LMDZ
+           
+        do l=1,llm
+          do j=1,jjp1
+             do i=1,iim
+                 q(i,j,l)=qppm(i,j,llm-l+1)
+             enddo
+          enddo
+         enddo
+            
+c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D
+
+         do l=1,llm
+           do j=1,jjp1
+            q(iip1,j,l)=q(1,j,l)
+           enddo
+         enddo
+  
+      
+       return
+
+       end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/interpre.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/interpre.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/interpre.F	(revision 3330)
@@ -0,0 +1,129 @@
+!
+! $Id$
+!
+       subroutine interpre(q,qppm,w,fluxwppm,masse,
+     s            apppm,bpppm,massebx,masseby,pbaru,pbarv,
+     s            unatppm,vnatppm,psppm)
+
+      USE comconst_mod, ONLY: g
+      USE comvert_mod, ONLY: ap, bp
+
+       implicit none
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissip.h"
+      include "comgeom2.h"
+      include "ener.h"
+      include "description.h"
+
+c---------------------------------------------------
+c Arguments     
+      real   apppm(llm+1),bpppm(llm+1)
+      real   q(iip1,jjp1,llm),qppm(iim,jjp1,llm)
+c---------------------------------------------------
+      real   masse(iip1,jjp1,llm) 
+      real   massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)      
+      real   w(iip1,jjp1,llm)
+      real   fluxwppm(iim,jjp1,llm)
+      real   pbaru(iip1,jjp1,llm )
+      real   pbarv(iip1,jjm,llm)
+      real   unatppm(iim,jjp1,llm)
+      real   vnatppm(iim,jjp1,llm)
+      real   psppm(iim,jjp1)
+c---------------------------------------------------
+c Local
+      real   vnat(iip1,jjp1,llm)
+      real   unat(iip1,jjp1,llm)
+      real   fluxw(iip1,jjp1,llm)
+      real   smass(iip1,jjp1)
+c----------------------------------------------------
+      integer l,ij,i,j
+
+c       CALCUL DE LA PRESSION DE SURFACE
+c       Les coefficients ap et bp sont passés en common 
+c       Calcul de la pression au sol en mb optimisée pour 
+c       la vectorialisation
+                   
+         do j=1,jjp1
+             do i=1,iip1
+                smass(i,j)=0.
+             enddo
+         enddo
+
+         do l=1,llm
+             do j=1,jjp1
+                 do i=1,iip1
+                    smass(i,j)=smass(i,j)+masse(i,j,l)
+                 enddo
+             enddo
+         enddo
+      
+         do j=1,jjp1
+             do i=1,iim
+                 psppm(i,j)=smass(i,j)/aire(i,j)*g*0.01
+             end do
+         end do                        
+       
+c RECONSTRUCTION DES CHAMPS CONTRAVARIANTS
+c Le programme ppm3d travaille avec les composantes
+c de vitesse et pas les flux, on doit donc passer de l'un à l'autre
+c Dans le même temps, on fait le changement d'orientation du vent en v
+      do l=1,llm
+          do j=1,jjm
+              do i=1,iip1
+                  vnat(i,j,l)=-pbarv(i,j,l)/masseby(i,j,l)*cv(i,j)
+              enddo
+          enddo
+          do  i=1,iim
+          vnat(i,jjp1,l)=0.
+          enddo
+          do j=1,jjp1
+              do i=1,iip1
+                  unat(i,j,l)=pbaru(i,j,l)/massebx(i,j,l)*cu(i,j)
+              enddo
+          enddo
+      enddo
+              
+c CALCUL DU FLUX MASSIQUE VERTICAL
+c Flux en l=1 (sol) nul
+      fluxw=0.        
+      do l=1,llm
+           do j=1,jjp1
+              do i=1,iip1              
+               fluxw(i,j,l)=w(i,j,l)*g*0.01/aire(i,j)
+C               print*,i,j,l,'fluxw(i,j,l)=',fluxw(i,j,l),
+C     c                      'w(i,j,l)=',w(i,j,l)
+              enddo
+           enddo
+      enddo
+      
+c INVERSION DES NIVEAUX
+c le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
+c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
+c On passe donc des niveaux du LMDZ à ceux de Lin
+     
+      do l=1,llm+1
+          apppm(l)=ap(llm+2-l)
+          bpppm(l)=bp(llm+2-l)         
+      enddo 
+     
+      do l=1,llm
+          do j=1,jjp1
+             do i=1,iim     
+                 unatppm(i,j,l)=unat(i,j,llm-l+1)
+                 vnatppm(i,j,l)=vnat(i,j,llm-l+1)
+                 fluxwppm(i,j,l)=fluxw(i,j,llm-l+1)
+                 qppm(i,j,l)=q(i,j,llm-l+1)
+             enddo
+          enddo                                
+      enddo
+   
+      return
+      end
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/invert_lat.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/invert_lat.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/invert_lat.F90	(revision 3330)
@@ -0,0 +1,21 @@
+
+SUBROUTINE invert_lat(xsize,ysize,vsize,field)
+
+    IMPLICIT NONE
+ 
+! Input variables
+    INTEGER, INTENT(IN) :: xsize,ysize,vsize
+    REAL, DIMENSION (xsize,ysize,vsize), INTENT(INOUT) :: field
+! Local variables
+    REAL, DIMENSION (xsize,ysize,vsize)                :: f_aux
+    INTEGER :: l,j
+ 
+    DO l=1,vsize
+        DO j=1,ysize
+            f_aux(:,j,l)=field(:,ysize+1-j,l)
+	END DO
+    END DO
+    
+    field=f_aux
+
+    END SUBROUTINE invert_lat
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/invert_zoom_x_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/invert_zoom_x_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/invert_zoom_x_m.F90	(revision 3330)
@@ -0,0 +1,88 @@
+module invert_zoom_x_m
+
+  implicit none
+
+  INTEGER, PARAMETER:: nmax = 30000
+
+contains
+
+  subroutine invert_zoom_x(xf, xtild, Xprimt, xlon, xprimm, xuv)
+
+    use coefpoly_m, only: coefpoly
+    use nrtype, only: pi, pi_d, twopi_d, k8
+    use serre_mod, only: clon
+
+    include "dimensions.h"
+    ! for iim
+
+    REAL(K8), intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)
+    real, intent(out):: xlon(:), xprimm(:) ! (iim)
+
+    REAL(K8), intent(in):: xuv
+    ! 0. si calcul aux points scalaires 
+    ! 0.5 si calcul aux points U 
+
+    ! Local:
+    REAL(K8) xo1, Xfi, a0, a1, a2, a3, Xf1, Xprimin
+    integer i, it, iter
+    REAL(K8), parameter:: my_eps = 1e-6_k8
+
+    REAL(K8) xxprim(iim), xvrai(iim) 
+    ! intermediary variables because xlon and xprimm are simple precision
+
+    !------------------------------------------------------------------
+
+    DO i = 1, iim
+       Xfi = - pi_d + (i + xuv - 0.75_k8) * twopi_d / iim
+
+       it = 2 * nmax
+       do while (xfi < xf(it) .and. it >= 1)
+          it = it - 1
+       end do
+
+       ! Calcul de Xf(xvrai(i)) 
+
+       xvrai(i) = xtild(it)
+
+       IF (it == 2 * nmax) THEN
+          it = 2 * nmax -1
+       END IF
+
+       CALL coefpoly(Xf(it), Xf(it + 1), Xprimt(it), Xprimt(it + 1), &
+            xtild(it), xtild(it + 1), a0, a1, a2, a3)
+       Xf1 = Xf(it)
+       Xprimin = a1 + xvrai(i) * (2._k8 * a2 + xvrai(i) * 3._k8 * a3)
+       xo1 = xvrai(i)
+       iter = 1
+
+       do
+          xvrai(i) = xvrai(i) - (Xf1 - Xfi) / Xprimin
+          IF (ABS(xvrai(i) - xo1) <= my_eps .or. iter == 300) exit
+          xo1 = xvrai(i)
+          Xf1 = a0 + xvrai(i) * (a1 + xvrai(i) * (a2 + xvrai(i) * a3))
+          Xprimin = a1 + xvrai(i) * (2._k8 * a2 + xvrai(i) * 3._k8 * a3)
+       end DO
+
+       if (ABS(xvrai(i) - xo1) > my_eps) then
+          ! iter == 300
+          print *, 'Pas de solution.'
+          print *, i, xfi
+          STOP 1
+       end if
+
+       xxprim(i) = twopi_d / (iim * Xprimin)
+    end DO
+
+    DO i = 1, iim -1
+       IF (xvrai(i + 1) < xvrai(i)) THEN
+          print *, 'xvrai(', i + 1, ') < xvrai(', i, ')'
+          STOP 1
+       END IF
+    END DO
+
+    xlon = xvrai + clon / 180. * pi
+    xprimm = xxprim
+
+  end subroutine invert_zoom_x
+
+end module invert_zoom_x_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/iso_verif_dyn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/iso_verif_dyn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/iso_verif_dyn.F	(revision 3330)
@@ -0,0 +1,101 @@
+        function iso_verif_noNaN_nostop(x,err_msg)
+        implicit none
+        ! si x est NaN, on affiche message
+        ! d'erreur et return 1 si erreur
+
+        ! input:
+        real x
+        character*(*) err_msg ! message d''erreur à afficher
+
+        ! output 
+        real borne
+        parameter (borne=1e19)
+        integer iso_verif_noNaN_nostop
+
+        if ((x.gt.-borne).and.(x.lt.borne)) then
+                iso_verif_noNAN_nostop=0
+        else
+            write(*,*) 'erreur detectee par iso_verif_nonNaN:'
+            write(*,*) err_msg
+            write(*,*) 'x=',x
+            iso_verif_noNaN_nostop=1
+        endif      
+
+        return
+        end
+
+        function iso_verif_egalite_nostop
+     :           (a,b,err_msg)
+        implicit none
+        ! compare a et b. Si pas egal, on affiche message
+        ! d'erreur et stoppe
+        ! pour egalite, on verifie erreur absolue et arreur relative
+
+        ! input:
+        real a, b
+        character*(*) err_msg ! message d''erreur à afficher
+
+        ! locals
+        real errmax ! erreur maximale en absolu.
+        real errmaxrel ! erreur maximale en relatif autorisée
+        parameter (errmax=1e-8)
+        parameter (errmaxrel=1e-3)
+
+        ! output
+        integer iso_verif_egalite_nostop
+
+        iso_verif_egalite_nostop=0
+
+        if (abs(a-b).gt.errmax) then
+          if (abs((a-b)/max(max(abs(b),abs(a)),1e-18))
+     :            .gt.errmaxrel) then
+            write(*,*) 'erreur detectee par iso_verif_egalite:'
+            write(*,*) err_msg
+            write(*,*) 'a=',a
+            write(*,*) 'b=',b
+            iso_verif_egalite_nostop=1
+          endif
+        endif     
+        
+        return
+        end        
+
+
+        function iso_verif_aberrant_nostop
+     :           (x,iso,q,err_msg)
+        USE infotrac
+        implicit none
+        
+        ! input:
+        real x,q
+        integer iso ! 2=HDO, 1=O18
+        character*(*) err_msg ! message d''erreur à afficher
+
+        ! locals
+        real qmin,deltaD
+        real deltaDmax,deltaDmin
+        parameter (qmin=1e-11)
+        parameter (deltaDmax=200.0,deltaDmin=-999.9)
+
+        ! output
+        integer iso_verif_aberrant_nostop
+
+        iso_verif_aberrant_nostop=0
+
+        ! verifier que HDO est raisonable
+         if (q.gt.qmin) then
+             deltaD=(x/q/tnat(iso)-1)*1000
+             if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur detectee par iso_verif_aberrant:'
+                  write(*,*) err_msg
+                  write(*,*) 'q=',q
+                  write(*,*) 'deltaD=',deltaD
+                  write(*,*) 'iso=',iso
+                  iso_verif_aberrant_nostop=1
+             endif !if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+          endif !if (q(i,k,iq).gt.qmin) then
+
+       
+        return
+        end        
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien.F	(revision 3330)
@@ -0,0 +1,40 @@
+!
+! $Header$
+!
+      SUBROUTINE laplacien ( klevel, teta, divgra )
+c
+c     P. Le Van
+c
+c   ************************************************************
+c    ....     calcul de  (div( grad ))   de   teta  .....
+c   ************************************************************
+c     klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    .........      variables  en arguments   ..............
+c
+      INTEGER klevel
+      REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
+c
+c    ............     variables  locales      ..............
+c
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+c    .......................................................
+
+
+c
+      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
+
+      CALL filtreg( divgra,  jjp1, klevel,  2, 1, .TRUE., 1 )
+      CALL   grad ( klevel,divgra,   ghx , ghy              )
+      CALL  divergf ( klevel, ghx , ghy  , divgra           )
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_gam.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_gam.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_gam.F	(revision 3330)
@@ -0,0 +1,53 @@
+!
+! $Header$
+!
+      SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam ,
+     *                        unsapolnga, unsapolsga, teta, divgra )
+
+c  P. Le Van
+c
+c   ************************************************************
+c
+c      ....   calcul de  (div( grad ))   de   teta  .....
+c   ************************************************************
+c    klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    ............     variables  en arguments    ..........
+c
+      INTEGER klevel
+      REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
+      REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),
+     *     unsapolnga, unsapolsga
+c
+c    ...........    variables  locales    .................
+c
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+c    ......................................................
+
+c
+c
+c   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )
+c   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..
+c   ...  unsairegam =  1. /  aire ** (- gamdissip )
+c
+
+      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
+c
+      CALL   grad ( klevel, divgra, ghx, ghy )
+c
+      CALL  diverg_gam ( klevel, cuvsga, cvusga,  unsaigam  ,
+     *                 unsapolnga, unsapolsga, ghx , ghy , divgra )
+
+c
+
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_rot.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_rot.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_rot.F	(revision 3330)
@@ -0,0 +1,39 @@
+!
+! $Header$
+!
+      SUBROUTINE laplacien_rot ( klevel, rotin, rotout,ghx,ghy )
+c
+c    P. Le Van
+c
+c   ************************************************************
+c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
+c   ************************************************************
+c
+c     klevel et rotin  sont des arguments  d'entree pour le s-prog
+c      rotout           est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c 
+c   ..........    variables  en  arguments     .............
+c
+      INTEGER klevel
+      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
+c
+c   ..........    variables   locales       ................
+c
+      REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
+c   ........................................................
+c
+c
+      CALL  filtreg ( rotin ,   jjm, klevel,   2, 1, .FALSE., 1 )
+
+      CALL   nxgrad ( klevel, rotin,   ghx ,  ghy               )
+      CALL   rotatf  ( klevel, ghx  ,   ghy , rotout             )
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_rotgam.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_rotgam.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/laplacien_rotgam.F	(revision 3330)
@@ -0,0 +1,44 @@
+!
+! $Header$
+!
+      SUBROUTINE laplacien_rotgam ( klevel, rotin, rotout )
+c
+c     P. Le Van
+c
+c   ************************************************************
+c   ... calcul de  (rotat x nxgrad)_gam  du rotationnel rotin ..
+c   ************************************************************
+c     klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    .............   variables  en  arguments    ...........
+c
+      INTEGER klevel
+      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
+c
+c   ............     variables   locales     ...............
+c
+      INTEGER l, ij
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+c   ........................................................
+c
+c
+
+      CALL   nxgrad_gam ( klevel, rotin,   ghx ,   ghy  )
+      CALL   rotat_nfil ( klevel, ghx  ,   ghy , rotout )
+c
+      DO l = 1, klevel
+        DO ij = 1, ip1jm
+         rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
+        ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limx.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limx.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limx.F	(revision 3330)
@@ -0,0 +1,106 @@
+!
+! $Header$
+!
+      SUBROUTINE limx(s0,sx,sm,pente_max)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      real pente_max
+      REAL s0(ip1jmp1,llm),sm(ip1jmp1,llm)
+      real sx(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ip1jmp1),niju
+      integer n0,iadvplus(ip1jmp1,llm),nl(llm)
+c
+      REAL q(ip1jmp1,llm)
+      real dxq(ip1jmp1,llm)
+
+
+      REAL new_m,zm
+      real dxqu(ip1jmp1)
+      real adxqu(ip1jmp1),dxqmax(ip1jmp1)
+
+      Logical extremum,first
+      save first
+
+      REAL      SSUM,CVMGP,CVMGT
+      integer ismax,ismin
+      EXTERNAL  SSUM, ismin,ismax
+
+      data first/.true./
+
+
+       DO  l = 1,llm
+         DO  ij=1,ip1jmp1
+               q(ij,l) = s0(ij,l) / sm ( ij,l )
+               dxq(ij,l) = sx(ij,l) /sm(ij,l)
+         ENDDO
+       ENDDO
+
+c   calcul de la pente a droite et a gauche de la maille
+
+      do l = 1, llm
+         do ij=iip2,ip1jm-1
+            dxqu(ij)=q(ij+1,l)-q(ij,l)
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            dxqu(ij)=dxqu(ij-iim)
+         enddo
+
+         do ij=iip2,ip1jm
+            adxqu(ij)=abs(dxqu(ij))
+         enddo
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+         do ij=iip2+1,ip1jm
+            dxqmax(ij)=pente_max*min(adxqu(ij-1),adxqu(ij))
+         enddo
+
+         do ij=iip1+iip1,ip1jm,iip1
+            dxqmax(ij-iim)=dxqmax(ij)
+         enddo
+
+c   calcul de la pente avec limitation
+
+         do ij=iip2+1,ip1jm
+            if(     dxqu(ij-1)*dxqu(ij).gt.0.
+     &         .and. dxq(ij,l)*dxqu(ij).gt.0.) then
+              dxq(ij,l)=
+     &         sign(min(abs(dxq(ij,l)),dxqmax(ij)),dxq(ij,l))
+            else
+c   extremum local
+               dxq(ij,l)=0.
+            endif
+         enddo
+         do ij=iip1+iip1,ip1jm,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         enddo
+
+         DO  ij=1,ip1jmp1
+               sx(ij,l) = dxq(ij,l)*sm(ij,l)
+         ENDDO
+
+       ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limy.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limy.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limy.F	(revision 3330)
@@ -0,0 +1,192 @@
+c
+c $Id$
+c
+      SUBROUTINE limy(s0,sy,sm,pente_max)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      real pente_max
+      real s0(ip1jmp1,llm),sy(ip1jmp1,llm),sm(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL q(ip1jmp1,llm)
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      real sigv,dyq(ip1jmp1),dyqv(ip1jm)
+      real adyqv(ip1jm),dyqmax(ip1jmp1)
+      REAL qbyv(ip1jm,llm)
+
+      REAL qpns,qpsn,appn,apps,dyn1,dys1,dyn2,dys2
+      Logical extremum,first
+      save first
+
+      real convpn,convps,convmpn,convmps
+      real sinlon(iip1),sinlondlon(iip1)
+      real coslon(iip1),coslondlon(iip1)
+      save sinlon,coslon,sinlondlon,coslondlon
+c
+c
+      REAL      SSUM
+      integer ismax,ismin
+      EXTERNAL  SSUM, convflu,ismin,ismax
+      EXTERNAL filtreg
+
+      data first/.true./
+
+      if(first) then
+         print*,'SCHEMA AMONT NOUVEAU'
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         enddo
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+      endif
+
+c
+
+      do l = 1, llm
+c
+         DO ij=1,ip1jmp1
+               q(ij,l) = s0(ij,l) / sm ( ij,l )
+               dyq(ij) = sy(ij,l) / sm ( ij,l )
+         ENDDO
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+
+      airej2 = SSUM( iim, aire(iip2), 1 )
+      airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      DO i = 1, iim
+      airescb(i) = aire(i+ iip1) * q(i+ iip1,l)
+      airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l)
+      ENDDO
+      qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+
+c   calcul des pentes aux points v
+
+      do ij=1,ip1jm
+         dyqv(ij)=q(ij,l)-q(ij+iip1,l)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+
+c   calcul des pentes aux points scalaires
+
+      do ij=iip2,ip1jm
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      enddo
+
+c   calcul des pentes aux poles
+
+c   calcul des pentes limites aux poles
+
+c     print*,dyqv(iip1+1)
+c     appn=abs(dyq(1)/dyqv(iip1+1))
+c     print*,dyq(ip1jm+1)
+c     print*,dyqv(ip1jm-iip1+1)
+c     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+c     do ij=2,iim
+c        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+c        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+c     enddo
+c     appn=min(pente_max/appn,1.)
+c     apps=min(pente_max/apps,1.)
+
+
+c   cas ou on a un extremum au pole
+
+c     if(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+c    &   appn=0.
+c     if(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+c    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+c    &   apps=0.
+
+c   limitation des pentes aux poles
+c     do ij=1,iip1
+c        dyq(ij)=appn*dyq(ij)
+c        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+c     enddo
+
+c   test
+c      do ij=1,iip1
+c         dyq(iip1+ij)=0.
+c         dyq(ip1jm+ij-iip1)=0.
+c      enddo
+c      do ij=1,ip1jmp1
+c         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+c      enddo
+
+      if(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+     &   then
+         do ij=1,iip1
+            dyqmax(ij)=0.
+         enddo
+      else
+         do ij=1,iip1
+            dyqmax(ij)=pente_max*abs(dyqv(ij))
+         enddo
+      endif
+
+      if(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+     & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+     &then
+         do ij=ip1jm+1,ip1jmp1
+            dyqmax(ij)=0.
+         enddo
+      else
+         do ij=ip1jm+1,ip1jmp1
+            dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+         enddo
+      endif
+
+c   calcul des pentes limitees
+
+      do ij=1,ip1jmp1
+         if(dyqv(ij)*dyqv(ij-iip1).gt.0.) then
+            dyq(ij)=sign(min(abs(dyq(ij)),dyqmax(ij)),dyq(ij))
+         else
+            dyq(ij)=0.
+         endif
+      enddo
+
+         DO ij=1,ip1jmp1
+               sy(ij,l) = dyq(ij) * sm ( ij,l )
+        ENDDO
+
+      enddo ! fin de la boucle sur les couches verticales
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limz.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limz.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/limz.F	(revision 3330)
@@ -0,0 +1,96 @@
+!
+! $Header$
+!
+      SUBROUTINE limz(s0,sz,sm,pente_max)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      real pente_max
+      REAL s0(ip1jmp1,llm),sm(ip1jmp1,llm)
+      real sz(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ip1jmp1),niju
+      integer n0,iadvplus(ip1jmp1,llm),nl(llm)
+c
+      REAL q(ip1jmp1,llm)
+      real dzq(ip1jmp1,llm)
+
+
+      REAL new_m,zm
+      real dzqw(ip1jmp1)
+      real adzqw(ip1jmp1),dzqmax(ip1jmp1)
+
+      Logical extremum,first
+      save first
+
+      REAL      SSUM,CVMGP,CVMGT
+      integer ismax,ismin
+      EXTERNAL  SSUM, ismin,ismax
+
+      data first/.true./
+
+
+       DO  l = 1,llm
+         DO  ij=1,ip1jmp1
+               q(ij,l) = s0(ij,l) / sm ( ij,l )
+               dzq(ij,l) = sz(ij,l) /sm(ij,l)
+         ENDDO
+       ENDDO
+
+c   calcul de la pente en haut et en bas de la maille
+       do ij=1,ip1jmp1
+       do l = 1, llm-1
+            dzqw(l)=q(ij,l+1)-q(ij,l)
+         enddo
+            dzqw(llm)=0.
+
+         do  l=1,llm
+            adzqw(l)=abs(dzqw(l))
+         enddo
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+         do l=2,llm-1
+            dzqmax(l)=pente_max*min(adzqw(l-1),adzqw(l))
+         enddo
+
+c   calcul de la pente avec limitation
+
+         do l=2,llm-1
+            if(     dzqw(l-1)*dzqw(l).gt.0.
+     &         .and. dzq(ij,l)*dzqw(l).gt.0.) then
+              dzq(ij,l)=
+     &         sign(min(abs(dzq(ij,l)),dzqmax(l)),dzq(ij,l))
+            else
+c   extremum local
+               dzq(ij,l)=0.
+            endif
+         enddo
+
+         DO  l=1,llm
+               sz(ij,l) = dzq(ij,l)*sm(ij,l)
+         ENDDO
+
+       ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massbar.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massbar.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massbar.F90	(revision 3330)
@@ -0,0 +1,66 @@
+SUBROUTINE massbar(masse,massebx,masseby)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute air mass mean along X and Y in each cell.
+! See iniconst for more details.
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: masse  (ip1jmp1,llm)
+  REAL, INTENT(OUT) :: massebx(ip1jmp1,llm)
+  REAL, INTENT(OUT) :: masseby(ip1jm  ,llm)
+!-------------------------------------------------------------------------------
+! Method used. Each scalar point is associated to 4 area coefficients:
+!    * alpha1(i,j) at point ( i+1/4,j-1/4 )
+!    * alpha2(i,j) at point ( i+1/4,j+1/4 )
+!    * alpha3(i,j) at point ( i-1/4,j+1/4 )
+!    * alpha4(i,j) at point ( i-1/4,j-1/4 )
+! where alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)
+!
+!   alpha4 .         . alpha1    . alpha4
+!    (i,j)             (i,j)       (i+1,j)
+!
+!             P .        U .          . P
+!           (i,j)       (i,j)         (i+1,j)
+!
+!   alpha3 .         . alpha2    .alpha3 
+!    (i,j)              (i,j)     (i+1,j)
+!
+!             V .        Z .          . V
+!           (i,j)
+!
+!   alpha4 .         . alpha1    .alpha4
+!   (i,j+1)            (i,j+1)   (i+1,j+1) 
+!
+!             P .        U .          . P
+!          (i,j+1)                    (i+1,j+1)
+!
+!
+!    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
+!                   masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+!     localized at point  ... U (i,j) ...
+!
+!    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
+!                   masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+!     localized at point  ... V (i,j) ...
+!===============================================================================
+! Local variables:
+  INTEGER :: ij, l
+!===============================================================================
+  DO l=1,llm
+    DO ij=1,ip1jmp1-1
+      massebx(ij,l)=masse(ij,l)*alpha1p2(ij)+masse(ij+1   ,l)*alpha3p4(ij+1)
+    END DO
+    DO ij=iip1,ip1jmp1,iip1; massebx(ij,l)=massebx(ij-iim,l); END DO
+    DO ij=1,ip1jm
+      masseby(ij,l)=masse(ij,l)*alpha2p3(ij)+masse(ij+iip1,l)*alpha1p4(ij+iip1)
+    END DO
+  END DO
+
+END SUBROUTINE massbar
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massbarxy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massbarxy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massbarxy.F90	(revision 3330)
@@ -0,0 +1,30 @@
+SUBROUTINE massbarxy(masse,massebxy)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute air mass mean along X and Y in each cell.
+! See iniconst for more details.
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: masse   (ip1jmp1,llm)
+  REAL, INTENT(OUT) :: massebxy(ip1jm  ,llm)
+!===============================================================================
+! Local variables:
+  INTEGER :: ij, l
+!===============================================================================
+  DO l=1,llm
+    DO ij=1,ip1jm-1
+      massebxy(ij,l)=masse(ij     ,l)*alpha2(ij     ) + &
+     +               masse(ij+1   ,l)*alpha3(ij+1   ) + &
+     +               masse(ij+iip1,l)*alpha1(ij+iip1) + &
+     +               masse(ij+iip2,l)*alpha4(ij+iip2)
+    END DO
+    DO ij=iip1,ip1jm,iip1; massebxy(ij,l)=massebxy(ij-iim,l); END DO
+  END DO
+
+END SUBROUTINE massbarxy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massdair.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massdair.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/massdair.F	(revision 3330)
@@ -0,0 +1,108 @@
+!
+! $Header$
+!
+      SUBROUTINE massdair( p, masse )
+c
+c *********************************************************************
+c       ....  Calcule la masse d'air  dans chaque maille   ....
+c *********************************************************************
+c
+c    Auteurs : P. Le Van , Fr. Hourdin  .
+c   ..........
+c
+c  ..    p                      est  un argum. d'entree pour le s-pg ...
+c  ..  masse                    est un  argum.de sortie pour le s-pg ...
+c     
+c  ....  p est defini aux interfaces des llm couches   .....
+c
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c  .....   arguments  ....
+c
+      REAL p(ip1jmp1,llmp1), masse(ip1jmp1,llm)
+
+c   ....  Variables locales  .....
+
+      INTEGER l,ij
+      REAL massemoyn, massemoys
+
+      REAL SSUM
+c
+c
+c   Methode pour calculer massebx et masseby .
+c   ----------------------------------------
+c
+c    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
+c       alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
+c       alpha2(i,j)  calcule  au point ( i+1/4,j+1/4 )
+c       alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
+c       alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
+c
+c    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)        
+c
+c    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
+c
+c
+c
+c   alpha4 .         . alpha1    . alpha4
+c    (i,j)             (i,j)       (i+1,j)
+c
+c             P .        U .          . P
+c           (i,j)       (i,j)         (i+1,j)
+c
+c   alpha3 .         . alpha2    .alpha3 
+c    (i,j)              (i,j)     (i+1,j)
+c
+c             V .        Z .          . V
+c           (i,j)
+c
+c   alpha4 .         . alpha1    .alpha4
+c   (i,j+1)            (i,j+1)   (i+1,j+1) 
+c
+c             P .        U .          . P
+c          (i,j+1)                    (i+1,j+1)
+c
+c
+c
+c                       On  a :
+c
+c    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
+c                   masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+c     localise  au point  ... U (i,j) ...
+c
+c    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
+c                   masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+c     localise  au point  ... V (i,j) ...
+c
+c
+c=======================================================================
+
+      DO   100    l = 1 , llm
+c
+        DO    ij     = 1, ip1jmp1
+         masse(ij,l) = airesurg(ij) * ( p(ij,l) - p(ij,l+1) )
+        ENDDO
+c
+        DO   ij = 1, ip1jmp1,iip1
+         masse(ij+ iim,l) = masse(ij,l)
+        ENDDO
+c
+c       DO    ij     = 1,  iim
+c        masse(   ij   ,l) = masse(   ij   ,l) * aire(  ij    )
+c        masse(ij+ip1jm,l) = masse(ij+ip1jm,l) * aire(ij+ip1jm) 
+c       ENDDO
+c        massemoyn         = SSUM(iim,masse(   1   ,l),1)/ apoln
+c        massemoys         = SSUM(iim,masse(ip1jm+1,l),1)/ apols
+c       DO    ij     = 1, iip1
+c        masse(   ij   ,l )    = massemoyn
+c        masse(ij+ip1jm,l )    = massemoys
+c       ENDDO
+       
+100   CONTINUE
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/misc_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/misc_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/misc_mod.F90	(revision 3330)
@@ -0,0 +1,6 @@
+module misc_mod
+  integer,save :: itaumax
+  logical,save :: adjust
+  integer,save :: ItCount
+  logical,save :: debug
+end module misc_mod 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrad.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrad.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrad.F	(revision 3330)
@@ -0,0 +1,48 @@
+!
+! $Header$
+!
+      SUBROUTINE nxgrad (klevel, rot, x, y )
+c
+c     P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+      INTEGER klevel
+      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
+      INTEGER   l,ij
+c
+c
+      DO 10 l = 1,klevel
+c
+      DO 1  ij = 2, ip1jm
+      y( ij,l ) = (  rot( ij,l ) - rot( ij-1,l )  ) * cvsurcuv( ij )
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+CDIR$ IVDEP
+      DO 2  ij = 1, ip1jm, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      DO 4  ij = iip2,ip1jm
+      x( ij,l ) = (  rot( ij,l ) - rot( ij -iip1,l )  ) * cusurcvu( ij )
+   4  CONTINUE
+      DO 6 ij = 1,iip1
+      x(    ij    ,l ) = 0.
+      x( ij +ip1jm,l ) = 0.
+   6  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrad_gam.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrad_gam.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrad_gam.F	(revision 3330)
@@ -0,0 +1,47 @@
+!
+! $Header$
+!
+      SUBROUTINE nxgrad_gam( klevel, rot, x, y )
+c
+c  P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+      INTEGER klevel
+      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
+      INTEGER   l,ij
+c
+      DO 10 l = 1,klevel
+c
+      DO 1  ij = 2, ip1jm
+      y( ij,l ) = (rot( ij,l ) - rot( ij-1,l )) * cvscuvgam( ij )
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+CDIR$ IVDEP
+      DO 2  ij = 1, ip1jm, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      DO 4  ij = iip2,ip1jm
+      x( ij,l ) = (rot( ij,l ) - rot( ij -iip1,l )) * cuscvugam( ij )
+   4  CONTINUE
+      DO 6 ij = 1,iip1
+      x(    ij    ,l ) = 0.
+      x( ij +ip1jm,l ) = 0.
+   6  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgradst.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgradst.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgradst.F	(revision 3330)
@@ -0,0 +1,47 @@
+!
+! $Header$
+!
+      SUBROUTINE nxgradst (klevel,rot, x, y )
+c
+      IMPLICIT NONE
+c     Auteur :  P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
+      INTEGER l,ij
+c
+      DO 10 l = 1,klevel
+c
+      DO 1  ij = 2, ip1jm
+      y(ij,l)=( rot(ij,l) - rot(ij-1,l))
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+
+      DO 2  ij = 1, ip1jm, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      DO 4  ij = iip2,ip1jm
+      x(ij,l)= rot(ij,l)-rot(ij-iip1,l)
+   4  CONTINUE
+      DO 6 ij = 1,iip1
+      x(    ij    ,l ) = 0.
+      x( ij +ip1jm,l ) = 0.
+   6  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgraro2.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgraro2.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgraro2.F	(revision 3330)
@@ -0,0 +1,68 @@
+!
+! $Header$
+!
+       SUBROUTINE nxgraro2 (klevel,xcov, ycov, lr, grx, gry )
+c
+c      P.Le Van .
+c   ***********************************************************
+c                                 lr
+c      calcul de  ( nxgrad (rot) )   du vect. v  ....
+c
+c       xcov et ycov  etant les compos. covariantes de  v
+c   ***********************************************************
+c     xcov , ycov et lr  sont des arguments  d'entree pour le s-prog
+c      grx   et  gry     sont des arguments de sortie pour le s-prog
+c
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissipn.h"
+c
+c    ......  variables en arguments  .......
+c
+      INTEGER klevel
+      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
+c
+c    ......   variables locales     ........
+c
+      REAL rot(ip1jm,llm) , signe, nugradrs
+      INTEGER l,ij,iter,lr
+c    ........................................................
+c
+c
+c
+      signe    = (-1.)**lr
+      nugradrs = signe * crot
+c
+      CALL SCOPY ( ip1jmp1* klevel, xcov, 1, grx, 1 )
+      CALL SCOPY (  ip1jm * klevel, ycov, 1, gry, 1 )
+c
+      CALL     rotatf     ( klevel, grx, gry, rot )
+c
+      CALL laplacien_rot ( klevel, rot, rot,grx,gry      )
+
+c
+c    .....   Iteration de l'operateur laplacien_rotgam  .....
+c
+      DO  iter = 1, lr -2
+        CALL laplacien_rotgam ( klevel, rot, rot )
+      ENDDO
+c
+c
+      CALL filtreg( rot, jjm, klevel, 2,1, .FALSE.,1)
+      CALL nxgrad ( klevel, rot, grx, gry )
+c
+      DO    l = 1, klevel
+         DO  ij = 1, ip1jm
+          gry( ij,l ) = gry( ij,l ) * nugradrs
+         ENDDO
+         DO  ij = 1, ip1jmp1
+          grx( ij,l ) = grx( ij,l ) * nugradrs
+         ENDDO
+      ENDDO
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrarot.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrarot.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/nxgrarot.F	(revision 3330)
@@ -0,0 +1,54 @@
+!
+! $Header$
+!
+      SUBROUTINE nxgrarot (klevel,xcov, ycov, lr, grx, gry )
+c   ***********************************************************
+c
+c    Auteur :  P.Le Van  
+c
+c                                 lr
+c      calcul de  ( nXgrad (rot) )   du vect. v  ....
+c
+c       xcov et ycov  etant les compos. covariantes de  v
+c   ***********************************************************
+c     xcov , ycov et lr  sont des arguments  d'entree pour le s-prog
+c      grx   et  gry     sont des arguments de sortie pour le s-prog
+c
+c
+      IMPLICIT NONE
+c
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissipn.h"
+c
+      INTEGER klevel
+      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL  grx( ip1jmp1,klevel ),  gry( ip1jm,klevel )
+c
+      REAL rot(ip1jm,llm)
+
+      INTEGER l,ij,iter,lr
+c
+c
+c
+      CALL SCOPY ( ip1jmp1*klevel, xcov, 1, grx, 1 )
+      CALL SCOPY (  ip1jm*klevel, ycov, 1, gry, 1 )
+c
+      DO 10 iter = 1,lr
+      CALL  rotat (klevel,grx, gry, rot )
+      CALL filtreg( rot, jjm, klevel, 2,1, .false.,2)
+      CALL nxgrad (klevel,rot, grx, gry )
+c
+      DO 5  l = 1, klevel
+      DO 2 ij = 1, ip1jm
+      gry( ij,l ) = - gry( ij,l ) * crot
+   2  CONTINUE
+      DO 3 ij = 1, ip1jmp1
+      grx( ij,l ) = - grx( ij,l ) * crot
+   3  CONTINUE
+   5  CONTINUE
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pbar.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pbar.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pbar.F	(revision 3330)
@@ -0,0 +1,124 @@
+!
+! $Header$
+!
+      SUBROUTINE pbar ( pext, pbarx, pbary, pbarxy )
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c **********************************************************************
+c calcul des moyennes en x et en y de (pression au sol*aire variable) ..
+c *********************************************************************
+c
+c          pext               est  un argum. d'entree  pour le s-pg ..
+c     pbarx,pbary et pbarxy  sont des argum. de sortie pour le s-pg ..
+c
+c   Methode:
+c   --------
+c
+c    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
+c       alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
+c       alpha2(i,j)  calcule  au point ( i+1/4,j+1/4 )
+c       alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
+c       alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
+c
+c    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)        
+c
+c    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
+c
+c
+c
+c   alpha4 .         . alpha1    . alpha4
+c    (i,j)             (i,j)       (i+1,j)
+c
+c             P .        U .          . P
+c           (i,j)       (i,j)         (i+1,j)
+c
+c   alpha3 .         . alpha2    .alpha3 
+c    (i,j)              (i,j)     (i+1,j)
+c
+c             V .        Z .          . V
+c           (i,j)
+c
+c   alpha4 .         . alpha1    .alpha4
+c   (i,j+1)            (i,j+1)   (i+1,j+1) 
+c
+c             P .        U .          . P
+c          (i,j+1)                    (i+1,j+1)
+c
+c
+c
+c
+c                       On  a :
+c
+c    pbarx(i,j) = Pext(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))      +
+c                 Pext(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+c     localise  au point  ... U (i,j) ...
+c
+c    pbary(i,j) = Pext(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )     +
+c                 Pext(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+c     localise  au point  ... V (i,j) ...
+c
+c  pbarxy(i,j)= Pext(i,j) *alpha2(i,j) + Pext(i+1,j) *alpha3(i+1,j) +
+c               Pext(i,j+1)*alpha1(i,j+1)+ Pext(i+1,j+1)*alpha4(i+1,j+1)
+c     localise  au point  ... Z (i,j) ...
+c
+c
+c
+c=======================================================================
+
+
+#include "dimensions.h"
+#include "paramet.h"
+
+#include "comgeom.h"
+
+      REAL pext( ip1jmp1 ),  pbarx ( ip1jmp1 )
+      REAL pbary(  ip1jm  ),  pbarxy(  ip1jm  )
+
+      INTEGER   ij
+
+
+
+      DO 1 ij = 1, ip1jmp1 - 1
+      pbarx( ij ) = pext(ij) * alpha1p2(ij) + pext(ij+1)*alpha3p4(ij+1)
+   1  CONTINUE
+
+c    .... correction pour pbarx( iip1,j) .....
+
+c    ...    pbarx(iip1,j)= pbarx(1,j) ...
+CDIR$ IVDEP
+      DO 2 ij = iip1, ip1jmp1, iip1
+      pbarx( ij ) = pbarx( ij - iim )
+   2  CONTINUE
+
+
+      DO 3 ij = 1,ip1jm
+      pbary( ij ) = pext(   ij  )   * alpha2p3(   ij   )     +
+     *              pext( ij+iip1 ) * alpha1p4( ij+iip1 )
+   3  CONTINUE
+
+
+      DO 5 ij = 1, ip1jm - 1
+      pbarxy( ij ) = pext(ij)*alpha2(ij) + pext(ij+1)*alpha3(ij+1) +
+     *   pext(ij+iip1)*alpha1(ij+iip1) + pext(ij+iip2)*alpha4(ij+iip2)
+   5  CONTINUE
+
+
+c    ....  correction pour     pbarxy( iip1,j )  ........
+
+CDIR$ IVDEP
+
+      DO 7 ij = iip1, ip1jm, iip1
+      pbarxy( ij ) = pbarxy( ij - iim )
+   7  CONTINUE
+
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pentes_ini.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pentes_ini.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pentes_ini.F	(revision 3330)
@@ -0,0 +1,479 @@
+!
+! $Header$
+!
+      SUBROUTINE pentes_ini (q,w,masse,pbaru,pbarv,mode)
+      
+      USE comconst_mod, ONLY: pi, dtvr
+      
+      IMPLICIT NONE
+
+c=======================================================================
+c   Adaptation LMDZ:  A.Armengaud (LGGE)
+c   ----------------
+c
+c   ********************************************************************
+c   Transport des traceurs par la methode des pentes
+c   ********************************************************************
+c   Reference possible : Russel. G.L., Lerner J.A.:
+c         A new Finite-Differencing Scheme for Traceur Transport 
+c         Equation , Journal of Applied Meteorology, pp 1483-1498,dec. 81 
+c   ********************************************************************
+c   q,w,masse,pbaru et pbarv 
+c                      sont des arguments d'entree  pour le s-pg ....
+c
+c=======================================================================
+
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+c   Arguments:
+c   ----------
+      integer mode
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL q( iip1,jjp1,llm,0:3)
+      REAL w( ip1jmp1,llm )
+      REAL masse( iip1,jjp1,llm)
+c   Local:
+c   ------
+      LOGICAL limit
+      REAL sm ( iip1,jjp1, llm )
+      REAL s0( iip1,jjp1,llm ),  sx( iip1,jjp1,llm )
+      REAL sy( iip1,jjp1,llm ),  sz( iip1,jjp1,llm )
+      real masn,mass,zz
+      INTEGER i,j,l,iq
+
+c  modif Fred 24 03 96
+
+      real sinlon(iip1),sinlondlon(iip1)
+      real coslon(iip1),coslondlon(iip1)
+      save sinlon,coslon,sinlondlon,coslondlon
+      real dyn1,dyn2,dys1,dys2
+      real qpn,qps,dqzpn,dqzps
+      real smn,sms,s0n,s0s,sxn(iip1),sxs(iip1)
+      real qmin,zq,pente_max
+c
+      REAL      SSUM
+      integer ismax,ismin,lati,latf
+      EXTERNAL  SSUM, ismin,ismax
+      logical first
+      save first
+c   fin modif
+
+c      EXTERNAL masskg
+      EXTERNAL advx
+      EXTERNAL advy
+      EXTERNAL advz
+
+c  modif Fred 24 03 96
+      data first/.true./
+
+      limit = .TRUE.
+      pente_max=2
+c     if (mode.eq.1.or.mode.eq.3) then
+c     if (mode.eq.1) then
+      if (mode.ge.1) then
+        lati=2
+        latf=jjm
+      else
+        lati=1
+        latf=jjp1
+      endif
+
+      qmin=0.4995
+      qmin=0.
+      if(first) then
+         print*,'SCHEMA AMONT NOUVEAU'
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+            print*,coslondlon(i),sinlondlon(i)
+         enddo
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         print*,'sum sinlondlon ',ssum(iim,sinlondlon,1)/sinlondlon(1)
+         print*,'sum coslondlon ',ssum(iim,coslondlon,1)/coslondlon(1)
+        DO l = 1,llm
+        DO j = 1,jjp1
+         DO i = 1,iip1
+         q ( i,j,l,1 )=0.
+         q ( i,j,l,2 )=0.
+         q ( i,j,l,3 )=0.  
+         ENDDO
+         ENDDO
+        ENDDO
+        
+      endif
+c   Fin modif Fred
+
+c *** q contient les qqtes de traceur avant l'advection 
+
+c *** Affectation des tableaux S a partir de Q
+c *** Rem : utilisation de SCOPY ulterieurement
+ 
+       DO l = 1,llm
+        DO j = 1,jjp1
+         DO i = 1,iip1
+             s0( i,j,llm+1-l ) = q ( i,j,l,0 )
+             sx( i,j,llm+1-l ) = q ( i,j,l,1 )
+             sy( i,j,llm+1-l ) = q ( i,j,l,2 )
+             sz( i,j,llm+1-l ) = q ( i,j,l,3 )
+         ENDDO
+        ENDDO
+       ENDDO
+
+c      PRINT*,'----- S0 just before conversion -------'
+c      PRINT*,'S0(16,12,1)=',s0(16,12,1) 
+c      PRINT*,'Q(16,12,1,4)=',q(16,12,1,4)
+
+c *** On calcule la masse d'air en kg
+
+       DO  l = 1,llm
+         DO  j = 1,jjp1
+           DO  i = 1,iip1
+            sm ( i,j,llm+1-l)=masse( i,j,l )
+          ENDDO
+         ENDDO
+       ENDDO
+
+c *** On converti les champs S en atome (resp. kg) 
+c *** Les routines d'advection traitent les champs
+c *** a advecter si ces derniers sont en atome (resp. kg)
+c *** A optimiser !!!
+
+       DO  l = 1,llm
+         DO  j = 1,jjp1
+           DO  i = 1,iip1
+               s0(i,j,l) = s0(i,j,l) * sm ( i,j,l )
+               sx(i,j,l) = sx(i,j,l) * sm ( i,j,l )
+               sy(i,j,l) = sy(i,j,l) * sm ( i,j,l )
+               sz(i,j,l) = sz(i,j,l) * sm ( i,j,l )
+           ENDDO
+         ENDDO
+       ENDDO
+
+c       ss0 = 0.
+c       DO l = 1,llm
+c        DO j = 1,jjp1
+c         DO i = 1,iim
+c            ss0 = ss0 + s0 ( i,j,l )
+c         ENDDO
+c        ENDDO
+c       ENDDO
+c       PRINT*, 'valeur tot s0 avant advection=',ss0
+
+c *** Appel des subroutines d'advection en X, en Y et en Z
+c *** Advection avec "time-splitting"
+      
+c-----------------------------------------------------------
+c      PRINT*,'----- S0 just before ADVX -------'
+c      PRINT*,'S0(16,12,1)=',s0(16,12,1)
+
+c-----------------------------------------------------------
+c      do l=1,llm
+c         do j=1,jjp1
+c          do i=1,iip1
+c             zq=s0(i,j,l)/sm(i,j,l)
+c            if(zq.lt.qmin)
+c    ,       print*,'avant advx1, s0(',i,',',j,',',l,')=',zq
+c          enddo
+c         enddo
+c      enddo
+CCC
+       if(mode.eq.2) then
+          do l=1,llm
+            s0s=0.
+            s0n=0.
+            dyn1=0.
+            dys1=0.
+            dyn2=0.
+            dys2=0.
+            smn=0.
+            sms=0.
+            do i=1,iim
+               smn=smn+sm(i,1,l)
+               sms=sms+sm(i,jjp1,l)
+               s0n=s0n+s0(i,1,l)
+               s0s=s0s+s0(i,jjp1,l)
+               zz=sy(i,1,l)/sm(i,1,l)
+               dyn1=dyn1+sinlondlon(i)*zz
+               dyn2=dyn2+coslondlon(i)*zz
+               zz=sy(i,jjp1,l)/sm(i,jjp1,l)
+               dys1=dys1+sinlondlon(i)*zz
+               dys2=dys2+coslondlon(i)*zz
+            enddo
+            do i=1,iim
+               sy(i,1,l)=dyn1*sinlon(i)+dyn2*coslon(i)
+               sy(i,jjp1,l)=dys1*sinlon(i)+dys2*coslon(i)
+            enddo
+            do i=1,iim
+               s0(i,1,l)=s0n/smn+sy(i,1,l)
+               s0(i,jjp1,l)=s0s/sms-sy(i,jjp1,l)
+            enddo
+
+            s0(iip1,1,l)=s0(1,1,l)
+            s0(iip1,jjp1,l)=s0(1,jjp1,l)
+
+            do i=1,iim
+               sxn(i)=s0(i+1,1,l)-s0(i,1,l)
+               sxs(i)=s0(i+1,jjp1,l)-s0(i,jjp1,l)
+c   on rerentre les masses
+            enddo
+            do i=1,iim
+               sy(i,1,l)=sy(i,1,l)*sm(i,1,l)
+               sy(i,jjp1,l)=sy(i,jjp1,l)*sm(i,jjp1,l)
+               s0(i,1,l)=s0(i,1,l)*sm(i,1,l)
+               s0(i,jjp1,l)=s0(i,jjp1,l)*sm(i,jjp1,l)
+            enddo
+            sxn(iip1)=sxn(1)
+            sxs(iip1)=sxs(1)
+            do i=1,iim
+               sx(i+1,1,l)=0.25*(sxn(i)+sxn(i+1))*sm(i+1,1,l)
+               sx(i+1,jjp1,l)=0.25*(sxs(i)+sxs(i+1))*sm(i+1,jjp1,l)
+            enddo
+            s0(iip1,1,l)=s0(1,1,l)
+            s0(iip1,jjp1,l)=s0(1,jjp1,l)
+            sy(iip1,1,l)=sy(1,1,l)
+            sy(iip1,jjp1,l)=sy(1,jjp1,l)
+            sx(1,1,l)=sx(iip1,1,l)
+            sx(1,jjp1,l)=sx(iip1,jjp1,l)
+          enddo
+      endif
+
+      if (mode.eq.4) then
+         do l=1,llm
+            do i=1,iip1
+               sx(i,1,l)=0.
+               sx(i,jjp1,l)=0.
+               sy(i,1,l)=0.
+               sy(i,jjp1,l)=0.
+            enddo
+         enddo
+      endif
+      call limx(s0,sx,sm,pente_max)
+c     call minmaxq(zq,1.e33,-1.e33,'avant advx     ')
+       call advx( limit,.5*dtvr,pbaru,sm,s0,sx,sy,sz,lati,latf)
+c     call minmaxq(zq,1.e33,-1.e33,'avant advy     ')
+      if (mode.eq.4) then
+         do l=1,llm
+            do i=1,iip1
+               sx(i,1,l)=0.
+               sx(i,jjp1,l)=0.
+               sy(i,1,l)=0.
+               sy(i,jjp1,l)=0.
+            enddo
+         enddo
+      endif
+       call   limy(s0,sy,sm,pente_max)
+       call advy( limit,.5*dtvr,pbarv,sm,s0,sx,sy,sz ) 
+c     call minmaxq(zq,1.e33,-1.e33,'avant advz     ')
+       do j=1,jjp1
+          do i=1,iip1
+             sz(i,j,1)=0.
+             sz(i,j,llm)=0.
+          enddo
+       enddo
+       call limz(s0,sz,sm,pente_max)
+       call advz( limit,dtvr,w,sm,s0,sx,sy,sz )
+      if (mode.eq.4) then
+         do l=1,llm
+            do i=1,iip1
+               sx(i,1,l)=0.
+               sx(i,jjp1,l)=0.
+               sy(i,1,l)=0.
+               sy(i,jjp1,l)=0.
+            enddo
+         enddo
+      endif
+        call limy(s0,sy,sm,pente_max)
+       call advy( limit,.5*dtvr,pbarv,sm,s0,sx,sy,sz ) 
+       do l=1,llm
+          do j=1,jjp1
+             sm(iip1,j,l)=sm(1,j,l)
+             s0(iip1,j,l)=s0(1,j,l)
+             sx(iip1,j,l)=sx(1,j,l)
+             sy(iip1,j,l)=sy(1,j,l)
+             sz(iip1,j,l)=sz(1,j,l)
+          enddo
+       enddo
+
+
+c     call minmaxq(zq,1.e33,-1.e33,'avant advx     ')
+      if (mode.eq.4) then
+         do l=1,llm
+            do i=1,iip1
+               sx(i,1,l)=0.
+               sx(i,jjp1,l)=0.
+               sy(i,1,l)=0.
+               sy(i,jjp1,l)=0.
+            enddo
+         enddo
+      endif
+       call limx(s0,sx,sm,pente_max)
+       call advx( limit,.5*dtvr,pbaru,sm,s0,sx,sy,sz,lati,latf) 
+c     call minmaxq(zq,1.e33,-1.e33,'apres advx     ')
+c      do l=1,llm
+c         do j=1,jjp1
+c          do i=1,iip1
+c             zq=s0(i,j,l)/sm(i,j,l)
+c            if(zq.lt.qmin)
+c    ,       print*,'apres advx2, s0(',i,',',j,',',l,')=',zq
+c          enddo
+c         enddo
+c      enddo
+c ***   On repasse les S dans la variable q directement 14/10/94
+c   On revient a des rapports de melange en divisant par la masse
+
+c En dehors des poles:
+
+       DO  l = 1,llm
+        DO  j = 1,jjp1
+         DO  i = 1,iim
+             q(i,j,llm+1-l,0)=s0(i,j,l)/sm(i,j,l)
+             q(i,j,llm+1-l,1)=sx(i,j,l)/sm(i,j,l)
+             q(i,j,llm+1-l,2)=sy(i,j,l)/sm(i,j,l)
+             q(i,j,llm+1-l,3)=sz(i,j,l)/sm(i,j,l)
+         ENDDO
+        ENDDO
+      ENDDO
+
+c Traitements specifiques au pole
+
+      if(mode.ge.1) then
+      DO l=1,llm
+c   filtrages aux poles
+         masn=ssum(iim,sm(1,1,l),1)
+         mass=ssum(iim,sm(1,jjp1,l),1)
+         qpn=ssum(iim,s0(1,1,l),1)/masn
+         qps=ssum(iim,s0(1,jjp1,l),1)/mass
+         dqzpn=ssum(iim,sz(1,1,l),1)/masn
+         dqzps=ssum(iim,sz(1,jjp1,l),1)/mass
+         do i=1,iip1
+            q( i,1,llm+1-l,3)=dqzpn
+            q( i,jjp1,llm+1-l,3)=dqzps
+            q( i,1,llm+1-l,0)=qpn
+            q( i,jjp1,llm+1-l,0)=qps
+         enddo
+         if(mode.eq.3) then
+            dyn1=0.
+            dys1=0.
+            dyn2=0.
+            dys2=0.
+            do i=1,iim
+               dyn1=dyn1+sinlondlon(i)*sy(i,1,l)/sm(i,1,l)
+               dyn2=dyn2+coslondlon(i)*sy(i,1,l)/sm(i,1,l)
+               dys1=dys1+sinlondlon(i)*sy(i,jjp1,l)/sm(i,jjp1,l)
+               dys2=dys2+coslondlon(i)*sy(i,jjp1,l)/sm(i,jjp1,l)
+            enddo
+            do i=1,iim
+               q(i,1,llm+1-l,2)=
+     s          (sinlon(i)*dyn1+coslon(i)*dyn2)
+               q(i,1,llm+1-l,0)=q(i,1,llm+1-l,0)+q(i,1,llm+1-l,2)
+               q(i,jjp1,llm+1-l,2)=
+     s          (sinlon(i)*dys1+coslon(i)*dys2)
+               q(i,jjp1,llm+1-l,0)=q(i,jjp1,llm+1-l,0)
+     s         -q(i,jjp1,llm+1-l,2)
+            enddo
+         endif
+         if(mode.eq.1) then
+c   on filtre les valeurs au bord de la "grande maille pole"
+            dyn1=0.
+            dys1=0.
+            dyn2=0.
+            dys2=0.
+            do i=1,iim
+               zz=s0(i,2,l)/sm(i,2,l)-q(i,1,llm+1-l,0)
+               dyn1=dyn1+sinlondlon(i)*zz
+               dyn2=dyn2+coslondlon(i)*zz
+               zz=q(i,jjp1,llm+1-l,0)-s0(i,jjm,l)/sm(i,jjm,l)
+               dys1=dys1+sinlondlon(i)*zz
+               dys2=dys2+coslondlon(i)*zz
+            enddo
+            do i=1,iim
+               q(i,1,llm+1-l,2)=
+     s          (sinlon(i)*dyn1+coslon(i)*dyn2)/2.
+               q(i,1,llm+1-l,0)=q(i,1,llm+1-l,0)+q(i,1,llm+1-l,2)
+               q(i,jjp1,llm+1-l,2)=
+     s          (sinlon(i)*dys1+coslon(i)*dys2)/2.
+               q(i,jjp1,llm+1-l,0)=q(i,jjp1,llm+1-l,0)
+     s         -q(i,jjp1,llm+1-l,2)
+            enddo
+            q(iip1,1,llm+1-l,0)=q(1,1,llm+1-l,0)
+            q(iip1,jjp1,llm+1-l,0)=q(1,jjp1,llm+1-l,0)
+
+            do i=1,iim
+               sxn(i)=q(i+1,1,llm+1-l,0)-q(i,1,llm+1-l,0)
+               sxs(i)=q(i+1,jjp1,llm+1-l,0)-q(i,jjp1,llm+1-l,0)
+            enddo
+            sxn(iip1)=sxn(1)
+            sxs(iip1)=sxs(1)
+            do i=1,iim
+               q(i+1,1,llm+1-l,1)=0.25*(sxn(i)+sxn(i+1))
+               q(i+1,jjp1,llm+1-l,1)=0.25*(sxs(i)+sxs(i+1))
+            enddo
+            q(1,1,llm+1-l,1)=q(iip1,1,llm+1-l,1)
+            q(1,jjp1,llm+1-l,1)=q(iip1,jjp1,llm+1-l,1)
+
+         endif
+
+       ENDDO
+       endif
+
+c bouclage en longitude
+      do iq=0,3
+         do l=1,llm
+            do j=1,jjp1
+               q(iip1,j,l,iq)=q(1,j,l,iq)
+            enddo
+         enddo
+      enddo
+
+c       PRINT*, ' SORTIE DE PENTES ---  ca peut glisser ....'
+
+        DO l = 1,llm
+             DO j = 1,jjp1
+              DO i = 1,iip1
+                IF (q(i,j,l,0).lt.0.)  THEN
+c                    PRINT*,'------------ BIP-----------' 
+c                    PRINT*,'Q0(',i,j,l,')=',q(i,j,l,0)
+c                    PRINT*,'QX(',i,j,l,')=',q(i,j,l,1)
+c                    PRINT*,'QY(',i,j,l,')=',q(i,j,l,2)
+c                    PRINT*,'QZ(',i,j,l,')=',q(i,j,l,3)
+c                            PRINT*,' PBL EN SORTIE DE PENTES'
+                     q(i,j,l,0)=0.
+c                    STOP
+                 ENDIF
+          ENDDO
+         ENDDO
+        ENDDO
+
+c       PRINT*, '-------------------------------------------'
+        
+       do l=1,llm
+          do j=1,jjp1
+           do i=1,iip1
+             if(q(i,j,l,0).lt.qmin)
+     ,       print*,'apres pentes, s0(',i,',',j,',',l,')=',q(i,j,l,0)
+           enddo
+          enddo
+       enddo
+      RETURN
+      END
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ppm3d.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ppm3d.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ppm3d.F	(revision 3330)
@@ -0,0 +1,2078 @@
+!
+! $Id$
+!
+
+cFrom lin@explorer.gsfc.nasa.gov Wed Apr 15 17:44:44 1998
+cDate: Wed, 15 Apr 1998 11:37:03 -0400
+cFrom: lin@explorer.gsfc.nasa.gov
+cTo: Frederic.Hourdin@lmd.jussieu.fr
+cSubject: 3D transport module of the GSFC CTM and GEOS GCM
+
+
+cThis code is sent to you by S-J Lin, DAO, NASA-GSFC
+
+cNote: this version is intended for machines like CRAY
+C-90. No multitasking directives implemented.
+
+      
+C ********************************************************************
+C
+C TransPort Core for Goddard Chemistry Transport Model (G-CTM), Goddard
+C Earth Observing System General Circulation Model (GEOS-GCM), and Data
+C Assimilation System (GEOS-DAS).
+C
+C ********************************************************************
+C
+C Purpose: given horizontal winds on  a hybrid sigma-p surfaces,
+C          one call to tpcore updates the 3-D mixing ratio
+C          fields one time step (NDT). [vertical mass flux is computed
+C          internally consistent with the discretized hydrostatic mass
+C          continuity equation of the C-Grid GEOS-GCM (for IGD=1)].
+C
+C Schemes: Multi-dimensional Flux Form Semi-Lagrangian (FFSL) scheme based
+C          on the van Leer or PPM.
+C          (see Lin and Rood 1996).
+C Version 4.5
+C Last modified: Dec. 5, 1996
+C Major changes from version 4.0: a more general vertical hybrid sigma-
+C pressure coordinate.
+C Subroutines modified: xtp, ytp, fzppm, qckxyz
+C Subroutines deleted: vanz
+C
+C Author: Shian-Jiann Lin
+C mail address:
+C                 Shian-Jiann Lin*
+C                 Code 910.3, NASA/GSFC, Greenbelt, MD 20771
+C                 Phone: 301-286-9540
+C                 E-mail: lin@dao.gsfc.nasa.gov
+C
+C *affiliation:
+C                 Joint Center for Earth Systems Technology
+C                 The University of Maryland Baltimore County
+C                 NASA - Goddard Space Flight Center
+C References:
+C
+C 1. Lin, S.-J., and R. B. Rood, 1996: Multidimensional flux form semi-
+C    Lagrangian transport schemes. Mon. Wea. Rev., 124, 2046-2070.
+C
+C 2. Lin, S.-J., W. C. Chao, Y. C. Sud, and G. K. Walker, 1994: A class of
+C    the van Leer-type transport schemes and its applications to the moist-
+C    ure transport in a General Circulation Model. Mon. Wea. Rev., 122,
+C    1575-1593.
+C
+C ****6***0*********0*********0*********0*********0*********0**********72
+C
+      subroutine ppm3d(IGD,Q,PS1,PS2,U,V,W,NDT,IORD,JORD,KORD,NC,IMR,
+     &                  JNP,j1,NLAY,AP,BP,PT,AE,fill,dum,Umax)
+
+      implicit none
+
+c     rajout de déclarations
+c      integer Jmax,kmax,ndt0,nstep,k,j,i,ic,l,js,jn,imh,iad,jad,krd
+c      integer iu,iiu,j2,jmr,js0,jt
+c      real dtdy,dtdy5,rcap,iml,jn0,imjm,pi,dl,dp
+c      real dt,cr1,maxdt,ztc,d5,sum1,sum2,ru
+C
+C ********************************************************************
+C
+C =============
+C INPUT:
+C =============
+C
+C Q(IMR,JNP,NLAY,NC): mixing ratios at current time (t)
+C NC: total # of constituents
+C IMR: first dimension (E-W); # of Grid intervals in E-W is IMR
+C JNP: 2nd dimension (N-S); # of Grid intervals in N-S is JNP-1
+C NLAY: 3rd dimension (# of layers); vertical index increases from 1 at
+C       the model top to NLAY near the surface (see fig. below).
+C       It is assumed that 6 <= NLAY <= JNP (for dynamic memory allocation)
+C
+C PS1(IMR,JNP): surface pressure at current time (t)
+C PS2(IMR,JNP): surface pressure at mid-time-level (t+NDT/2)
+C PS2 is replaced by the predicted PS (at t+NDT) on output.
+C Note: surface pressure can have any unit or can be multiplied by any
+C       const.
+C
+C The pressure at layer edges are defined as follows:
+C
+C        p(i,j,k) = AP(k)*PT  +  BP(k)*PS(i,j)          (1)
+C
+C Where PT is a constant having the same unit as PS.
+C AP and BP are unitless constants given at layer edges
+C defining the vertical coordinate. 
+C BP(1) = 0., BP(NLAY+1) = 1.
+C The pressure at the model top is PTOP = AP(1)*PT
+C
+C For pure sigma system set AP(k) = 1 for all k, PT = PTOP,
+C BP(k) = sige(k) (sigma at edges), PS = Psfc - PTOP.
+C
+C Note: the sigma-P coordinate is a subset of Eq. 1, which in turn
+C is a subset of the following even more general sigma-P-thelta coord.
+C currently under development.
+C  p(i,j,k) = (AP(k)*PT + BP(k)*PS(i,j))/(D(k)-C(k)*TE**(-1/kapa))
+C
+C                  /////////////////////////////////
+C              / \ ------------- PTOP --------------  AP(1), BP(1)
+C               |
+C    delp(1)    |  ........... Q(i,j,1) ............  
+C               |
+C      W(1)    \ / ---------------------------------  AP(2), BP(2)
+C
+C
+C
+C     W(k-1)   / \ ---------------------------------  AP(k), BP(k)
+C               |
+C    delp(K)    |  ........... Q(i,j,k) ............ 
+C               |
+C      W(k)    \ / ---------------------------------  AP(k+1), BP(k+1)
+C
+C
+C
+C              / \ ---------------------------------  AP(NLAY), BP(NLAY)
+C               |
+C  delp(NLAY)   |  ........... Q(i,j,NLAY) .........  
+C               |
+C   W(NLAY)=0  \ / ------------- surface ----------- AP(NLAY+1), BP(NLAY+1)
+C                 //////////////////////////////////
+C
+C U(IMR,JNP,NLAY) & V(IMR,JNP,NLAY):winds (m/s) at mid-time-level (t+NDT/2)
+C U and V may need to be polar filtered in advance in some cases.
+C 
+C IGD:      grid type on which winds are defined.
+C IGD = 0:  A-Grid  [all variables defined at the same point from south
+C                   pole (j=1) to north pole (j=JNP) ]
+C
+C IGD = 1  GEOS-GCM C-Grid
+C                                      [North]
+C
+C                                       V(i,j)
+C                                          |
+C                                          |
+C                                          |
+C                             U(i-1,j)---Q(i,j)---U(i,j) [EAST]
+C                                          |
+C                                          |
+C                                          |
+C                                       V(i,j-1)
+C
+C         U(i,  1) is defined at South Pole.
+C         V(i,  1) is half grid north of the South Pole.
+C         V(i,JMR) is half grid south of the North Pole.
+C
+C         V must be defined at j=1 and j=JMR if IGD=1
+C         V at JNP need not be given.
+C
+C NDT: time step in seconds (need not be constant during the course of
+C      the integration). Suggested value: 30 min. for 4x5, 15 min. for 2x2.5
+C      (Lat-Lon) resolution. Smaller values are recommanded if the model
+C      has a well-resolved stratosphere.
+C
+C J1 defines the size of the polar cap:
+C South polar cap edge is located at -90 + (j1-1.5)*180/(JNP-1) deg.
+C North polar cap edge is located at  90 - (j1-1.5)*180/(JNP-1) deg.
+C There are currently only two choices (j1=2 or 3).
+C IMR must be an even integer if j1 = 2. Recommended value: J1=3.
+C
+C IORD, JORD, and KORD are integers controlling various options in E-W, N-S,
+C and vertical transport, respectively. Recommended values for positive
+C definite scalars: IORD=JORD=3, KORD=5. Use KORD=3 for non-
+C positive definite scalars or when linear correlation between constituents
+C is to be maintained.
+C
+C  _ORD= 
+C        1: 1st order upstream scheme (too diffusive, not a useful option; it
+C           can be used for debugging purposes; this is THE only known "linear"
+C           monotonic advection scheme.).
+C        2: 2nd order van Leer (full monotonicity constraint;
+C           see Lin et al 1994, MWR)
+C        3: monotonic PPM* (slightly improved PPM of Collela & Woodward 1984)
+C        4: semi-monotonic PPM (same as 3, but overshoots are allowed)
+C        5: positive-definite PPM (constraint on the subgrid distribution is
+C           only strong enough to prevent generation of negative values;
+C           both overshoots & undershoots are possible).
+C        6: un-constrained PPM (nearly diffusion free; slightly faster but
+C           positivity not quaranteed. Use this option only when the fields
+C           and winds are very smooth).
+C
+C *PPM: Piece-wise Parabolic Method
+C
+C Note that KORD <=2 options are no longer supported. DO not use option 4 or 5.
+C for non-positive definite scalars (such as Ertel Potential Vorticity).
+C
+C The implicit numerical diffusion decreases as _ORD increases.
+C The last two options (ORDER=5, 6) should only be used when there is
+C significant explicit diffusion (such as a turbulence parameterization). You
+C might get dispersive results otherwise.
+C No filter of any kind is applied to the constituent fields here.
+C
+C AE: Radius of the sphere (meters).
+C     Recommended value for the planet earth: 6.371E6
+C
+C fill(logical):   flag to do filling for negatives (see note below).
+C
+C Umax: Estimate (upper limit) of the maximum U-wind speed (m/s).
+C (220 m/s is a good value for troposphere model; 280 m/s otherwise)
+C
+C =============
+C Output
+C =============
+C
+C Q: mixing ratios at future time (t+NDT) (original values are over-written)
+C W(NLAY): large-scale vertical mass flux as diagnosed from the hydrostatic
+C          relationship. W will have the same unit as PS1 and PS2 (eg, mb).
+C          W must be divided by NDT to get the correct mass-flux unit.
+C          The vertical Courant number C = W/delp_UPWIND, where delp_UPWIND
+C          is the pressure thickness in the "upwind" direction. For example,
+C          C(k) = W(k)/delp(k)   if W(k) > 0;
+C          C(k) = W(k)/delp(k+1) if W(k) < 0.
+C              ( W > 0 is downward, ie, toward surface)
+C PS2: predicted PS at t+NDT (original values are over-written)
+C
+C ********************************************************************
+C NOTES:
+C This forward-in-time upstream-biased transport scheme reduces to
+C the 2nd order center-in-time center-in-space mass continuity eqn.
+C if Q = 1 (constant fields will remain constant). This also ensures
+C that the computed vertical velocity to be identical to GEOS-1 GCM
+C for on-line transport.
+C
+C A larger polar cap is used if j1=3 (recommended for C-Grid winds or when
+C winds are noisy near poles).
+C
+C Flux-Form Semi-Lagrangian transport in the East-West direction is used
+C when and where Courant # is greater than one.
+C
+C The user needs to change the parameter Jmax or Kmax if the resolution
+C is greater than 0.5 deg in N-S or 150 layers in the vertical direction.
+C (this TransPort Core is otherwise resolution independent and can be used
+C as a library routine).
+C
+C PPM is 4th order accurate when grid spacing is uniform (x & y); 3rd
+C order accurate for non-uniform grid (vertical sigma coord.).
+C
+C Time step is limitted only by transport in the meridional direction.
+C (the FFSL scheme is not implemented in the meridional direction).
+C
+C Since only 1-D limiters are applied, negative values could
+C potentially be generated when large time step is used and when the
+C initial fields contain discontinuities.
+C This does not necessarily imply the integration is unstable.
+C These negatives are typically very small. A filling algorithm is
+C activated if the user set "fill" to be true.
+C
+C The van Leer scheme used here is nearly as accurate as the original PPM
+C due to the use of a 4th order accurate reference slope. The PPM imple-
+C mented here is an improvement over the original and is also based on
+C the 4th order reference slope.
+C
+C ****6***0*********0*********0*********0*********0*********0**********72
+C
+C     User modifiable parameters
+C
+      integer,parameter :: Jmax = 361, kmax = 150
+C
+C ****6***0*********0*********0*********0*********0*********0**********72
+C
+C Input-Output arrays
+C
+      
+      real Q(IMR,JNP,NLAY,NC),PS1(IMR,JNP),PS2(IMR,JNP),
+     &     U(IMR,JNP,NLAY),V(IMR,JNP,NLAY),AP(NLAY+1),
+     &     BP(NLAY+1),W(IMR,JNP,NLAY),NDT,val(NLAY),Umax
+      integer IGD,IORD,JORD,KORD,NC,IMR,JNP,j1,NLAY,AE
+      integer IMRD2
+      real    PT       
+      logical  cross, fill, dum
+C
+C Local dynamic arrays
+C
+      real CRX(IMR,JNP),CRY(IMR,JNP),xmass(IMR,JNP),ymass(IMR,JNP),
+     &     fx1(IMR+1),DPI(IMR,JNP,NLAY),delp1(IMR,JNP,NLAY),
+     &     WK1(IMR,JNP,NLAY),PU(IMR,JNP),PV(IMR,JNP),DC2(IMR,JNP),
+     &     delp2(IMR,JNP,NLAY),DQ(IMR,JNP,NLAY,NC),VA(IMR,JNP),
+     &     UA(IMR,JNP),qtmp(-IMR:2*IMR)
+C
+C Local static  arrays
+C
+      real DTDX(Jmax), DTDX5(Jmax), acosp(Jmax),
+     &     cosp(Jmax), cose(Jmax), DAP(kmax),DBK(Kmax)
+      data NDT0, NSTEP /0, 0/
+      data cross /.true./
+      REAL DTDY, DTDY5, RCAP
+      INTEGER JS0, JN0, IML, JMR, IMJM
+      SAVE DTDY, DTDY5, RCAP, JS0, JN0, IML,
+     &     DTDX, DTDX5, ACOSP, COSP, COSE, DAP,DBK
+C
+      INTEGER NDT0, NSTEP, j2, k,j,i,ic,l,JS,JN,IMH
+      INTEGER IU,IIU,JT,iad,jad,krd
+      REAL r23,r3,PI,DL,DP,DT,CR1,MAXDT,ZTC,D5
+      REAL sum1,sum2,ru
+            
+      JMR = JNP -1
+      IMJM  = IMR*JNP
+      j2 = JNP - j1 + 1
+      NSTEP = NSTEP + 1
+C
+C *********** Initialization **********************
+      if(NSTEP.eq.1) then
+c
+      write(6,*) '------------------------------------ '
+      write(6,*) 'NASA/GSFC Transport Core Version 4.5'
+      write(6,*) '------------------------------------ '
+c
+      WRITE(6,*) 'IMR=',IMR,' JNP=',JNP,' NLAY=',NLAY,' j1=',j1
+      WRITE(6,*) 'NC=',NC,IORD,JORD,KORD,NDT
+C
+C controles sur les parametres
+      if(NLAY.LT.6) then
+        write(6,*) 'NLAY must be >= 6'
+        stop
+      endif
+      if (JNP.LT.NLAY) then
+         write(6,*) 'JNP must be >= NLAY'
+        stop
+      endif
+      IMRD2=mod(IMR,2)
+      if (j1.eq.2.and.IMRD2.NE.0) then
+         write(6,*) 'if j1=2 IMR must be an even integer'
+        stop
+      endif
+
+C
+      if(Jmax.lt.JNP .or. Kmax.lt.NLAY) then
+        write(6,*) 'Jmax or Kmax is too small'
+        stop
+      endif
+C
+      DO k=1,NLAY
+      DAP(k) = (AP(k+1) - AP(k))*PT
+      DBK(k) =  BP(k+1) - BP(k)
+      ENDDO     
+C
+      PI = 4. * ATAN(1.)
+      DL = 2.*PI / REAL(IMR)
+      DP =    PI / REAL(JMR)
+C
+      if(IGD.eq.0) then
+C Compute analytic cosine at cell edges
+            call cosa(cosp,cose,JNP,PI,DP)
+      else
+C Define cosine consistent with GEOS-GCM (using dycore2.0 or later)
+            call cosc(cosp,cose,JNP,PI,DP)
+      endif
+C
+      do 15 J=2,JMR
+15    acosp(j) = 1. / cosp(j)
+C
+C Inverse of the Scaled polar cap area.
+C
+      RCAP  = DP / (IMR*(1.-COS((j1-1.5)*DP)))
+      acosp(1)   = RCAP
+      acosp(JNP) = RCAP
+      endif
+C
+      if(NDT0 .ne. NDT) then
+      DT   = NDT
+      NDT0 = NDT
+
+	if(Umax .lt. 180.) then
+         write(6,*) 'Umax may be too small!'
+	endif
+      CR1  = abs(Umax*DT)/(DL*AE)
+      MaxDT = DP*AE / abs(Umax) + 0.5
+      write(6,*)'Largest time step for max(V)=',Umax,' is ',MaxDT
+      if(MaxDT .lt. abs(NDT)) then
+            write(6,*) 'Warning!!! NDT maybe too large!'
+      endif
+C
+      if(CR1.ge.0.95) then
+      JS0 = 0
+      JN0 = 0
+      IML = IMR-2
+      ZTC = 0.
+      else
+      ZTC  = acos(CR1) * (180./PI)
+C
+      JS0 = REAL(JMR)*(90.-ZTC)/180. + 2
+      JS0 = max(JS0, J1+1)
+      IML = min(6*JS0/(J1-1)+2, 4*IMR/5)
+      JN0 = JNP-JS0+1
+      endif
+C     
+C
+      do J=2,JMR
+      DTDX(j)  = DT / ( DL*AE*COSP(J) )
+
+c     print*,'dtdx=',dtdx(j)
+      DTDX5(j) = 0.5*DTDX(j)
+      enddo
+C
+      
+      DTDY  = DT /(AE*DP)
+c      print*,'dtdy=',dtdy
+      DTDY5 = 0.5*DTDY
+C
+c      write(6,*) 'J1=',J1,' J2=', J2
+      endif
+C
+C *********** End Initialization **********************
+C
+C delp = pressure thickness: the psudo-density in a hydrostatic system.
+      do  k=1,NLAY
+         do  j=1,JNP
+            do  i=1,IMR
+               delp1(i,j,k)=DAP(k)+DBK(k)*PS1(i,j)
+               delp2(i,j,k)=DAP(k)+DBK(k)*PS2(i,j)       
+            enddo
+         enddo
+      enddo
+          
+C
+      if(j1.ne.2) then
+      DO 40 IC=1,NC
+      DO 40 L=1,NLAY
+      DO 40 I=1,IMR
+      Q(I,  2,L,IC) = Q(I,  1,L,IC)
+40    Q(I,JMR,L,IC) = Q(I,JNP,L,IC)
+      endif
+C
+C Compute "tracer density"
+      DO 550 IC=1,NC
+      DO 44 k=1,NLAY
+      DO 44 j=1,JNP
+      DO 44 i=1,IMR
+44    DQ(i,j,k,IC) = Q(i,j,k,IC)*delp1(i,j,k)
+550	continue
+C
+      do 1500 k=1,NLAY
+C
+      if(IGD.eq.0) then
+C Convert winds on A-Grid to Courant # on C-Grid.
+      call A2C(U(1,1,k),V(1,1,k),IMR,JMR,j1,j2,CRX,CRY,dtdx5,DTDY5)
+      else
+C Convert winds on C-grid to Courant #
+      do 45 j=j1,j2
+      do 45 i=2,IMR
+45    CRX(i,J) = dtdx(j)*U(i-1,j,k)
+   
+C
+      do 50 j=j1,j2
+50    CRX(1,J) = dtdx(j)*U(IMR,j,k)
+C
+      do 55 i=1,IMR*JMR
+55    CRY(i,2) = DTDY*V(i,1,k)
+      endif
+C     
+C Determine JS and JN
+      JS = j1
+      JN = j2
+C
+      do j=JS0,j1+1,-1
+      do i=1,IMR
+      if(abs(CRX(i,j)).GT.1.) then
+            JS = j
+            go to 2222
+      endif
+      enddo
+      enddo
+C
+2222  continue
+      do j=JN0,j2-1
+      do i=1,IMR
+      if(abs(CRX(i,j)).GT.1.) then
+            JN = j
+            go to 2233
+      endif
+      enddo
+      enddo
+2233  continue
+C
+      if(j1.ne.2) then           ! Enlarged polar cap.
+      do i=1,IMR
+      DPI(i,  2,k) = 0.
+      DPI(i,JMR,k) = 0.
+      enddo
+      endif
+C
+C ******* Compute horizontal mass fluxes ************
+C
+C N-S component
+      do j=j1,j2+1
+      D5 = 0.5 * COSE(j)
+      do i=1,IMR
+      ymass(i,j) = CRY(i,j)*D5*(delp2(i,j,k) + delp2(i,j-1,k))
+      enddo
+      enddo
+C
+      do 95 j=j1,j2
+      DO 95 i=1,IMR
+95    DPI(i,j,k) = (ymass(i,j) - ymass(i,j+1)) * acosp(j)
+C
+C Poles
+      sum1 = ymass(IMR,j1  )
+      sum2 = ymass(IMR,J2+1)
+      do i=1,IMR-1
+      sum1 = sum1 + ymass(i,j1  )
+      sum2 = sum2 + ymass(i,J2+1)
+      enddo
+C
+      sum1 = - sum1 * RCAP
+      sum2 =   sum2 * RCAP
+      do i=1,IMR
+      DPI(i,  1,k) = sum1
+      DPI(i,JNP,k) = sum2
+      enddo
+C
+C E-W component
+C
+      do j=j1,j2
+      do i=2,IMR
+      PU(i,j) = 0.5 * (delp2(i,j,k) + delp2(i-1,j,k))
+      enddo
+      enddo
+C
+      do j=j1,j2
+      PU(1,j) = 0.5 * (delp2(1,j,k) + delp2(IMR,j,k))
+      enddo
+C
+      do 110 j=j1,j2
+      DO 110 i=1,IMR
+110   xmass(i,j) = PU(i,j)*CRX(i,j)
+C
+      DO 120 j=j1,j2
+      DO 120 i=1,IMR-1
+120   DPI(i,j,k) = DPI(i,j,k) + xmass(i,j) - xmass(i+1,j)
+C
+      DO 130 j=j1,j2
+130   DPI(IMR,j,k) = DPI(IMR,j,k) + xmass(IMR,j) - xmass(1,j)
+C
+      DO j=j1,j2
+      do i=1,IMR-1
+      UA(i,j) = 0.5 * (CRX(i,j)+CRX(i+1,j))
+      enddo
+      enddo
+C
+      DO j=j1,j2
+      UA(imr,j) = 0.5 * (CRX(imr,j)+CRX(1,j))
+      enddo
+ccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+c Rajouts pour LMDZ.3.3
+ccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+      do i=1,IMR
+         do j=1,JNP
+             VA(i,j)=0.
+         enddo
+      enddo
+
+      do i=1,imr*(JMR-1)
+      VA(i,2) = 0.5*(CRY(i,2)+CRY(i,3))
+      enddo
+C
+      if(j1.eq.2) then
+	IMH = IMR/2
+      do i=1,IMH
+      VA(i,      1) = 0.5*(CRY(i,2)-CRY(i+IMH,2))
+      VA(i+IMH,  1) = -VA(i,1)
+      VA(i,    JNP) = 0.5*(CRY(i,JNP)-CRY(i+IMH,JMR))
+      VA(i+IMH,JNP) = -VA(i,JNP)
+      enddo
+      VA(IMR,1)=VA(1,1)
+      VA(IMR,JNP)=VA(1,JNP)
+      endif
+C
+C ****6***0*********0*********0*********0*********0*********0**********72
+      do 1000 IC=1,NC
+C
+      do i=1,IMJM
+      wk1(i,1,1) = 0.
+      wk1(i,1,2) = 0.
+      enddo
+C
+C E-W advective cross term
+      do 250 j=J1,J2
+      if(J.GT.JS  .and. J.LT.JN) GO TO 250
+C
+      do i=1,IMR
+      qtmp(i) = q(i,j,k,IC)
+      enddo
+C
+      do i=-IML,0
+      qtmp(i)       = q(IMR+i,j,k,IC)
+      qtmp(IMR+1-i) = q(1-i,j,k,IC)
+      enddo
+C
+      DO 230 i=1,IMR
+      iu = UA(i,j)
+      ru = UA(i,j) - iu
+      iiu = i-iu
+      if(UA(i,j).GE.0.) then
+      wk1(i,j,1) = qtmp(iiu)+ru*(qtmp(iiu-1)-qtmp(iiu))
+      else
+      wk1(i,j,1) = qtmp(iiu)+ru*(qtmp(iiu)-qtmp(iiu+1))
+      endif
+      wk1(i,j,1) = wk1(i,j,1) - qtmp(i)
+230   continue
+250   continue
+C
+      if(JN.ne.0) then
+      do j=JS+1,JN-1
+C
+      do i=1,IMR
+      qtmp(i) = q(i,j,k,IC)
+      enddo
+C
+      qtmp(0)     = q(IMR,J,k,IC)
+      qtmp(IMR+1) = q(  1,J,k,IC)
+C
+      do i=1,imr
+      iu = i - UA(i,j)
+      wk1(i,j,1) = UA(i,j)*(qtmp(iu) - qtmp(iu+1))
+      enddo
+      enddo
+      endif
+C ****6***0*********0*********0*********0*********0*********0**********72
+C Contribution from the N-S advection
+      do i=1,imr*(j2-j1+1)
+      JT = REAL(J1) - VA(i,j1)
+      wk1(i,j1,2) = VA(i,j1) * (q(i,jt,k,IC) - q(i,jt+1,k,IC))
+      enddo
+C
+      do i=1,IMJM
+      wk1(i,1,1) = q(i,1,k,IC) + 0.5*wk1(i,1,1)
+      wk1(i,1,2) = q(i,1,k,IC) + 0.5*wk1(i,1,2)
+      enddo
+C
+	if(cross) then
+C Add cross terms in the vertical direction.
+	if(IORD .GE. 2) then
+		iad = 2
+	else
+		iad = 1
+	endif
+C
+	if(JORD .GE. 2) then
+		jad = 2
+	else
+		jad = 1
+	endif
+      call xadv(IMR,JNP,j1,j2,wk1(1,1,2),UA,JS,JN,IML,DC2,iad)
+      call yadv(IMR,JNP,j1,j2,wk1(1,1,1),VA,PV,W,jad)
+      do j=1,JNP
+      do i=1,IMR
+      q(i,j,k,IC) = q(i,j,k,IC) + DC2(i,j) + PV(i,j)
+      enddo
+      enddo
+      endif
+C
+      call xtp(IMR,JNP,IML,j1,j2,JN,JS,PU,DQ(1,1,k,IC),wk1(1,1,2)
+     &        ,CRX,fx1,xmass,IORD)
+
+      call ytp(IMR,JNP,j1,j2,acosp,RCAP,DQ(1,1,k,IC),wk1(1,1,1),CRY,
+     &  DC2,ymass,WK1(1,1,3),wk1(1,1,4),WK1(1,1,5),WK1(1,1,6),JORD)
+C
+1000  continue
+1500  continue
+C
+C ******* Compute vertical mass flux (same unit as PS) ***********
+C
+C 1st step: compute total column mass CONVERGENCE.
+C
+      do 320 j=1,JNP
+      do 320 i=1,IMR
+320   CRY(i,j) = DPI(i,j,1)
+C
+      do 330 k=2,NLAY
+      do 330 j=1,JNP
+      do 330 i=1,IMR
+      CRY(i,j)  = CRY(i,j) + DPI(i,j,k)
+330   continue
+C
+      do 360 j=1,JNP
+      do 360 i=1,IMR
+C
+C 2nd step: compute PS2 (PS at n+1) using the hydrostatic assumption.
+C Changes (increases) to surface pressure = total column mass convergence
+C
+      PS2(i,j)  = PS1(i,j) + CRY(i,j)
+C
+C 3rd step: compute vertical mass flux from mass conservation principle.
+C
+      W(i,j,1) = DPI(i,j,1) - DBK(1)*CRY(i,j)
+      W(i,j,NLAY) = 0.
+360   continue
+C
+      do 370 k=2,NLAY-1
+      do 370 j=1,JNP
+      do 370 i=1,IMR
+      W(i,j,k) = W(i,j,k-1) + DPI(i,j,k) - DBK(k)*CRY(i,j)
+370   continue
+C
+      DO 380 k=1,NLAY
+      DO 380 j=1,JNP
+      DO 380 i=1,IMR
+      delp2(i,j,k) = DAP(k) + DBK(k)*PS2(i,j)
+380   continue
+C
+	KRD = max(3, KORD)
+      do 4000 IC=1,NC
+C
+C****6***0*********0*********0*********0*********0*********0**********72
+   
+      call FZPPM(IMR,JNP,NLAY,j1,DQ(1,1,1,IC),W,Q(1,1,1,IC),WK1,DPI,
+     &           DC2,CRX,CRY,PU,PV,xmass,ymass,delp1,KRD)
+C
+    
+      if(fill) call qckxyz(DQ(1,1,1,IC),DC2,IMR,JNP,NLAY,j1,j2,
+     &                     cosp,acosp,.false.,IC,NSTEP)
+C
+C Recover tracer mixing ratio from "density" using predicted
+C "air density" (pressure thickness) at time-level n+1
+C
+      DO k=1,NLAY
+      DO j=1,JNP
+      DO i=1,IMR
+            Q(i,j,k,IC) = DQ(i,j,k,IC) / delp2(i,j,k)
+c            print*,'i=',i,'j=',j,'k=',k,'Q(i,j,k,IC)=',Q(i,j,k,IC)
+      enddo
+      enddo
+      enddo
+C     
+      if(j1.ne.2) then
+      DO 400 k=1,NLAY
+      DO 400 I=1,IMR
+c     j=1 c'est le pôle Sud, j=JNP c'est le pôle Nord
+      Q(I,  2,k,IC) = Q(I,  1,k,IC)
+      Q(I,JMR,k,IC) = Q(I,JNP,k,IC)
+400   CONTINUE
+      endif
+4000  continue
+C
+      if(j1.ne.2) then
+      DO 5000 k=1,NLAY
+      DO 5000 i=1,IMR
+      W(i,  2,k) = W(i,  1,k)
+      W(i,JMR,k) = W(i,JNP,k)
+5000  continue
+      endif
+C
+      RETURN
+      END
+C
+C****6***0*********0*********0*********0*********0*********0**********72
+      subroutine FZPPM(IMR,JNP,NLAY,j1,DQ,WZ,P,DC,DQDT,AR,AL,A6,
+     &                 flux,wk1,wk2,wz2,delp,KORD)
+      implicit none
+      integer,parameter :: kmax = 150 
+      real,parameter :: R23 = 2./3., R3 = 1./3.
+      integer IMR,JNP,NLAY,J1,KORD
+      real WZ(IMR,JNP,NLAY),P(IMR,JNP,NLAY),DC(IMR,JNP,NLAY),
+     &     wk1(IMR,*),delp(IMR,JNP,NLAY),DQ(IMR,JNP,NLAY),
+     &     DQDT(IMR,JNP,NLAY)
+C Assuming JNP >= NLAY
+      real AR(IMR,*),AL(IMR,*),A6(IMR,*),flux(IMR,*),wk2(IMR,*),
+     &     wz2(IMR,*)
+      integer JMR,IMJM,NLAYM1,LMT,K,I,J
+      real c0,c1,c2,tmp,qmax,qmin,a,b,fct,a1,a2,cm,cp
+C
+      JMR = JNP - 1
+      IMJM = IMR*JNP
+      NLAYM1 = NLAY - 1
+C
+      LMT = KORD - 3
+C
+C ****6***0*********0*********0*********0*********0*********0**********72
+C Compute DC for PPM
+C ****6***0*********0*********0*********0*********0*********0**********72
+C
+      do 1000 k=1,NLAYM1
+      do 1000 i=1,IMJM
+      DQDT(i,1,k) = P(i,1,k+1) - P(i,1,k)
+1000  continue
+C
+      DO 1220 k=2,NLAYM1
+      DO 1220 I=1,IMJM    
+       c0 =  delp(i,1,k) / (delp(i,1,k-1)+delp(i,1,k)+delp(i,1,k+1))
+       c1 = (delp(i,1,k-1)+0.5*delp(i,1,k))/(delp(i,1,k+1)+delp(i,1,k))    
+       c2 = (delp(i,1,k+1)+0.5*delp(i,1,k))/(delp(i,1,k-1)+delp(i,1,k))
+      tmp = c0*(c1*DQDT(i,1,k) + c2*DQDT(i,1,k-1))
+      Qmax = max(P(i,1,k-1),P(i,1,k),P(i,1,k+1)) - P(i,1,k)
+      Qmin = P(i,1,k) - min(P(i,1,k-1),P(i,1,k),P(i,1,k+1))
+      DC(i,1,k) = sign(min(abs(tmp),Qmax,Qmin), tmp)   
+1220  CONTINUE
+     
+C     
+C ****6***0*********0*********0*********0*********0*********0**********72
+C Loop over latitudes  (to save memory)
+C ****6***0*********0*********0*********0*********0*********0**********72
+C
+      DO 2000 j=1,JNP
+      if((j.eq.2 .or. j.eq.JMR) .and. j1.ne.2) goto 2000
+C
+      DO k=1,NLAY
+      DO i=1,IMR
+      wz2(i,k) =   WZ(i,j,k)
+      wk1(i,k) =    P(i,j,k)
+      wk2(i,k) = delp(i,j,k)
+      flux(i,k) = DC(i,j,k)  !this flux is actually the monotone slope
+      enddo
+      enddo
+C
+C****6***0*********0*********0*********0*********0*********0**********72
+C Compute first guesses at cell interfaces
+C First guesses are required to be continuous.
+C ****6***0*********0*********0*********0*********0*********0**********72
+C
+C three-cell parabolic subgrid distribution at model top
+C two-cell parabolic with zero gradient subgrid distribution 
+C at the surface.
+C
+C First guess top edge value
+      DO 10 i=1,IMR
+C three-cell PPM
+C Compute a,b, and c of q = aP**2 + bP + c using cell averages and delp
+      a = 3.*( DQDT(i,j,2) - DQDT(i,j,1)*(wk2(i,2)+wk2(i,3))/
+     &         (wk2(i,1)+wk2(i,2)) ) /
+     &       ( (wk2(i,2)+wk2(i,3))*(wk2(i,1)+wk2(i,2)+wk2(i,3)) )
+      b = 2.*DQDT(i,j,1)/(wk2(i,1)+wk2(i,2)) - 
+     &    R23*a*(2.*wk2(i,1)+wk2(i,2))
+      AL(i,1) =  wk1(i,1) - wk2(i,1)*(R3*a*wk2(i,1) + 0.5*b)
+      AL(i,2) =  wk2(i,1)*(a*wk2(i,1) + b) + AL(i,1)
+C
+C Check if change sign
+      if(wk1(i,1)*AL(i,1).le.0.) then
+		 AL(i,1) = 0.
+             flux(i,1) = 0.
+	else
+             flux(i,1) =  wk1(i,1) - AL(i,1)
+	endif
+10    continue
+C
+C Bottom
+      DO 15 i=1,IMR
+C 2-cell PPM with zero gradient right at the surface
+C
+      fct = DQDT(i,j,NLAYM1)*wk2(i,NLAY)**2 /
+     & ( (wk2(i,NLAY)+wk2(i,NLAYM1))*(2.*wk2(i,NLAY)+wk2(i,NLAYM1)))
+      AR(i,NLAY) = wk1(i,NLAY) + fct
+      AL(i,NLAY) = wk1(i,NLAY) - (fct+fct)
+      if(wk1(i,NLAY)*AR(i,NLAY).le.0.) AR(i,NLAY) = 0.
+      flux(i,NLAY) = AR(i,NLAY) -  wk1(i,NLAY)
+15    continue
+     
+C
+C****6***0*********0*********0*********0*********0*********0**********72
+C 4th order interpolation in the interior.
+C****6***0*********0*********0*********0*********0*********0**********72
+C
+      DO 14 k=3,NLAYM1
+      DO 12 i=1,IMR
+      c1 =  DQDT(i,j,k-1)*wk2(i,k-1) / (wk2(i,k-1)+wk2(i,k))
+      c2 =  2. / (wk2(i,k-2)+wk2(i,k-1)+wk2(i,k)+wk2(i,k+1))
+      A1   =  (wk2(i,k-2)+wk2(i,k-1)) / (2.*wk2(i,k-1)+wk2(i,k))
+      A2   =  (wk2(i,k  )+wk2(i,k+1)) / (2.*wk2(i,k)+wk2(i,k-1))
+      AL(i,k) = wk1(i,k-1) + c1 + c2 *
+     &        ( wk2(i,k  )*(c1*(A1 - A2)+A2*flux(i,k-1)) -
+     &          wk2(i,k-1)*A1*flux(i,k)  )
+C      print *,'AL1',i,k, AL(i,k)
+12    CONTINUE
+14    continue
+C
+      do 20 i=1,IMR*NLAYM1
+      AR(i,1) = AL(i,2)
+C      print *,'AR1',i,AR(i,1)
+20    continue
+C
+      do 30 i=1,IMR*NLAY
+      A6(i,1) = 3.*(wk1(i,1)+wk1(i,1) - (AL(i,1)+AR(i,1)))
+C      print *,'A61',i,A6(i,1)
+30    continue
+C
+C****6***0*********0*********0*********0*********0*********0**********72
+C Top & Bot always monotonic
+      call lmtppm(flux(1,1),A6(1,1),AR(1,1),AL(1,1),wk1(1,1),IMR,0)
+      call lmtppm(flux(1,NLAY),A6(1,NLAY),AR(1,NLAY),AL(1,NLAY),
+     &            wk1(1,NLAY),IMR,0)
+C
+C Interior depending on KORD
+      if(LMT.LE.2)
+     &  call lmtppm(flux(1,2),A6(1,2),AR(1,2),AL(1,2),wk1(1,2),
+     &              IMR*(NLAY-2),LMT)
+C
+C****6***0*********0*********0*********0*********0*********0**********72
+C
+      DO 140 i=1,IMR*NLAYM1
+      IF(wz2(i,1).GT.0.) then
+        CM = wz2(i,1) / wk2(i,1)
+        flux(i,2) = AR(i,1)+0.5*CM*(AL(i,1)-AR(i,1)+A6(i,1)*(1.-R23*CM))
+      else
+C        print *,'test2-0',i,j,wz2(i,1),wk2(i,2)
+        CP= wz2(i,1) / wk2(i,2)        
+C        print *,'testCP',CP
+        flux(i,2) = AL(i,2)+0.5*CP*(AL(i,2)-AR(i,2)-A6(i,2)*(1.+R23*CP))
+C        print *,'test2',i, AL(i,2),AR(i,2),A6(i,2),R23
+      endif
+140   continue
+C
+      DO 250 i=1,IMR*NLAYM1
+      flux(i,2) = wz2(i,1) * flux(i,2)
+250   continue
+C
+      do 350 i=1,IMR
+      DQ(i,j,   1) = DQ(i,j,   1) - flux(i,   2)
+      DQ(i,j,NLAY) = DQ(i,j,NLAY) + flux(i,NLAY)
+350   continue
+C
+      do 360 k=2,NLAYM1
+      do 360 i=1,IMR
+360   DQ(i,j,k) = DQ(i,j,k) + flux(i,k) - flux(i,k+1)
+2000  continue
+      return
+      end
+C
+      subroutine xtp(IMR,JNP,IML,j1,j2,JN,JS,PU,DQ,Q,UC,
+     &               fx1,xmass,IORD)
+      implicit none
+      integer IMR,JNP,IML,j1,j2,JN,JS,IORD
+      real PU,DQ,Q,UC,fx1,xmass
+      real dc,qtmp
+      integer ISAVE(IMR)
+      dimension UC(IMR,*),DC(-IML:IMR+IML+1),xmass(IMR,JNP)
+     &    ,fx1(IMR+1),DQ(IMR,JNP),qtmp(-IML:IMR+1+IML)
+      dimension PU(IMR,JNP),Q(IMR,JNP)
+      integer jvan,j1vl,j2vl,j,i,iu,itmp,ist,imp
+      real rut
+C
+      IMP = IMR + 1
+C
+C van Leer at high latitudes
+      jvan = max(1,JNP/18)
+      j1vl = j1+jvan
+      j2vl = j2-jvan
+C
+      do 1310 j=j1,j2
+C
+      do i=1,IMR
+      qtmp(i) = q(i,j)
+      enddo
+C
+      if(j.ge.JN .or. j.le.JS) goto 2222
+C ************* Eulerian **********
+C
+      qtmp(0)     = q(IMR,J)
+      qtmp(-1)    = q(IMR-1,J)
+      qtmp(IMP)   = q(1,J)
+      qtmp(IMP+1) = q(2,J)
+C
+      IF(IORD.eq.1 .or. j.eq.j1. or. j.eq.j2) THEN
+      DO 1406 i=1,IMR
+      iu = REAL(i) - uc(i,j)
+1406  fx1(i) = qtmp(iu)
+      ELSE
+      call xmist(IMR,IML,Qtmp,DC)
+      DC(0) = DC(IMR)
+C
+      if(IORD.eq.2 .or. j.le.j1vl .or. j.ge.j2vl) then
+      DO 1408 i=1,IMR
+      iu = REAL(i) - uc(i,j)
+1408  fx1(i) = qtmp(iu) + DC(iu)*(sign(1.,uc(i,j))-uc(i,j))
+      else
+      call fxppm(IMR,IML,UC(1,j),Qtmp,DC,fx1,IORD)
+      endif
+C
+      ENDIF
+C
+      DO 1506 i=1,IMR
+1506  fx1(i) = fx1(i)*xmass(i,j)
+C
+      goto 1309
+C
+C ***** Conservative (flux-form) Semi-Lagrangian transport *****
+C
+2222  continue
+C
+      do i=-IML,0
+      qtmp(i)     = q(IMR+i,j)
+      qtmp(IMP-i) = q(1-i,j)
+      enddo
+C
+      IF(IORD.eq.1 .or. j.eq.j1. or. j.eq.j2) THEN
+      DO 1306 i=1,IMR
+      itmp = INT(uc(i,j))
+      ISAVE(i) = i - itmp
+      iu = i - uc(i,j)
+1306  fx1(i) = (uc(i,j) - itmp)*qtmp(iu)
+      ELSE
+      call xmist(IMR,IML,Qtmp,DC)
+C
+      do i=-IML,0
+      DC(i)     = DC(IMR+i)
+      DC(IMP-i) = DC(1-i)
+      enddo
+C
+      DO 1307 i=1,IMR
+      itmp = INT(uc(i,j))
+      rut  = uc(i,j) - itmp
+      ISAVE(i) = i - itmp
+      iu = i - uc(i,j)
+1307  fx1(i) = rut*(qtmp(iu) + DC(iu)*(sign(1.,rut) - rut))
+      ENDIF
+C
+      do 1308 i=1,IMR
+      IF(uc(i,j).GT.1.) then
+CDIR$ NOVECTOR
+        do ist = ISAVE(i),i-1
+        fx1(i) = fx1(i) + qtmp(ist)
+        enddo
+      elseIF(uc(i,j).LT.-1.) then
+        do ist = i,ISAVE(i)-1
+        fx1(i) = fx1(i) - qtmp(ist)
+        enddo
+CDIR$ VECTOR
+      endif
+1308  continue
+      do i=1,IMR
+      fx1(i) = PU(i,j)*fx1(i)
+      enddo
+C
+C ***************************************
+C
+1309  fx1(IMP) = fx1(1)
+      DO 1215 i=1,IMR
+1215  DQ(i,j) =  DQ(i,j) + fx1(i)-fx1(i+1)
+C
+C ***************************************
+C
+1310  continue
+      return
+      end
+C
+      subroutine fxppm(IMR,IML,UT,P,DC,flux,IORD)
+      implicit none
+      integer IMR,IML,IORD
+      real UT,P,DC,flux
+      real,parameter ::  R3 = 1./3., R23 = 2./3. 
+      DIMENSION UT(*),flux(*),P(-IML:IMR+IML+1),DC(-IML:IMR+IML+1)
+      REAL :: AR(0:IMR),AL(0:IMR),A6(0:IMR)
+      integer LMT,IMP,JLVL,i
+c      logical first
+c      data first /.true./
+c      SAVE LMT
+c      if(first) then
+C
+C correction calcul de LMT a chaque passage pour pouvoir choisir
+c plusieurs schemas PPM pour differents traceurs
+c      IF (IORD.LE.0) then
+c            if(IMR.GE.144) then
+c                  LMT = 0
+c            elseif(IMR.GE.72) then
+c                  LMT = 1
+c            else
+c                  LMT = 2
+c            endif
+c      else
+c            LMT = IORD - 3
+c      endif
+C
+      LMT = IORD - 3
+c      write(6,*) 'PPM option in E-W direction = ', LMT
+c      first = .false.
+C      endif
+C
+      DO 10 i=1,IMR
+10    AL(i) = 0.5*(p(i-1)+p(i)) + (DC(i-1) - DC(i))*R3
+C
+      do 20 i=1,IMR-1
+20    AR(i) = AL(i+1)
+      AR(IMR) = AL(1)
+C
+      do 30 i=1,IMR
+30    A6(i) = 3.*(p(i)+p(i)  - (AL(i)+AR(i)))
+C
+      if(LMT.LE.2) call lmtppm(DC(1),A6(1),AR(1),AL(1),P(1),IMR,LMT)
+C
+      AL(0) = AL(IMR)
+      AR(0) = AR(IMR)
+      A6(0) = A6(IMR)
+C
+      DO i=1,IMR
+      IF(UT(i).GT.0.) then
+      flux(i) = AR(i-1) + 0.5*UT(i)*(AL(i-1) - AR(i-1) +
+     &                 A6(i-1)*(1.-R23*UT(i)) )
+      else
+      flux(i) = AL(i) - 0.5*UT(i)*(AR(i) - AL(i) +
+     &                        A6(i)*(1.+R23*UT(i)))
+      endif
+      enddo
+      return
+      end
+C
+      subroutine xmist(IMR,IML,P,DC)
+      implicit none
+      integer IMR,IML
+      real,parameter :: R24 = 1./24.
+      real :: P(-IML:IMR+1+IML),DC(-IML:IMR+1+IML)
+      integer :: i
+      real :: tmp,pmax,pmin
+C
+      do 10  i=1,IMR
+      tmp = R24*(8.*(p(i+1) - p(i-1)) + p(i-2) - p(i+2))
+      Pmax = max(P(i-1), p(i), p(i+1)) - p(i)
+      Pmin = p(i) - min(P(i-1), p(i), p(i+1))
+10    DC(i) = sign(min(abs(tmp),Pmax,Pmin), tmp)
+      return
+      end
+C
+      subroutine ytp(IMR,JNP,j1,j2,acosp,RCAP,DQ,P,VC,DC2
+     &              ,ymass,fx,A6,AR,AL,JORD)
+      implicit none
+      integer :: IMR,JNP,j1,j2,JORD
+      real :: acosp,RCAP,DQ,P,VC,DC2,ymass,fx,A6,AR,AL
+      dimension P(IMR,JNP),VC(IMR,JNP),ymass(IMR,JNP)
+     &       ,DC2(IMR,JNP),DQ(IMR,JNP),acosp(JNP)
+C Work array
+      DIMENSION fx(IMR,JNP),AR(IMR,JNP),AL(IMR,JNP),A6(IMR,JNP)
+      integer :: JMR,len,i,jt,j
+      real :: sum1,sum2
+C
+      JMR = JNP - 1
+      len = IMR*(J2-J1+2)
+C
+      if(JORD.eq.1) then
+      DO 1000 i=1,len
+      JT = REAL(J1) - VC(i,J1)
+1000  fx(i,j1) = p(i,JT)
+      else
+   
+      call ymist(IMR,JNP,j1,P,DC2,4)
+C
+      if(JORD.LE.0 .or. JORD.GE.3) then
+   
+      call fyppm(VC,P,DC2,fx,IMR,JNP,j1,j2,A6,AR,AL,JORD)
+    
+      else
+      DO 1200 i=1,len
+      JT = REAL(J1) - VC(i,J1)
+1200  fx(i,j1) = p(i,JT) + (sign(1.,VC(i,j1))-VC(i,j1))*DC2(i,JT)
+      endif
+      endif
+C
+      DO 1300 i=1,len
+1300  fx(i,j1) = fx(i,j1)*ymass(i,j1)
+C
+      DO 1400 j=j1,j2
+      DO 1400 i=1,IMR
+1400  DQ(i,j) = DQ(i,j) + (fx(i,j) - fx(i,j+1)) * acosp(j)
+C
+C Poles
+      sum1 = fx(IMR,j1  )
+      sum2 = fx(IMR,J2+1)
+      do i=1,IMR-1
+      sum1 = sum1 + fx(i,j1  )
+      sum2 = sum2 + fx(i,J2+1)
+      enddo
+C
+      sum1 = DQ(1,  1) - sum1 * RCAP
+      sum2 = DQ(1,JNP) + sum2 * RCAP
+      do i=1,IMR
+      DQ(i,  1) = sum1
+      DQ(i,JNP) = sum2
+      enddo
+C
+      if(j1.ne.2) then
+      do i=1,IMR
+      DQ(i,  2) = sum1
+      DQ(i,JMR) = sum2
+      enddo
+      endif
+C
+      return
+      end
+C
+      subroutine  ymist(IMR,JNP,j1,P,DC,ID)
+      implicit none
+      integer :: IMR,JNP,j1,ID
+      real,parameter :: R24 = 1./24.
+      real :: P(IMR,JNP),DC(IMR,JNP)
+      integer :: iimh,jmr,ijm3,imh,i
+      real :: pmax,pmin,tmp
+C
+      IMH = IMR / 2
+      JMR = JNP - 1
+      IJM3 = IMR*(JMR-3)
+C
+      IF(ID.EQ.2) THEN
+      do 10 i=1,IMR*(JMR-1)
+      tmp = 0.25*(p(i,3) - p(i,1))
+      Pmax = max(p(i,1),p(i,2),p(i,3)) - p(i,2)
+      Pmin = p(i,2) - min(p(i,1),p(i,2),p(i,3))
+      DC(i,2) = sign(min(abs(tmp),Pmin,Pmax),tmp)
+10    CONTINUE
+      ELSE
+      do 12 i=1,IMH
+C J=2
+      tmp = (8.*(p(i,3) - p(i,1)) + p(i+IMH,2) - p(i,4))*R24
+      Pmax = max(p(i,1),p(i,2),p(i,3)) - p(i,2)
+      Pmin = p(i,2) - min(p(i,1),p(i,2),p(i,3))
+      DC(i,2) = sign(min(abs(tmp),Pmin,Pmax),tmp)
+C J=JMR
+      tmp=(8.*(p(i,JNP)-p(i,JMR-1))+p(i,JMR-2)-p(i+IMH,JMR))*R24
+      Pmax = max(p(i,JMR-1),p(i,JMR),p(i,JNP)) - p(i,JMR)
+      Pmin = p(i,JMR) - min(p(i,JMR-1),p(i,JMR),p(i,JNP))
+      DC(i,JMR) = sign(min(abs(tmp),Pmin,Pmax),tmp)
+12    CONTINUE
+      do 14 i=IMH+1,IMR
+C J=2
+      tmp = (8.*(p(i,3) - p(i,1)) + p(i-IMH,2) - p(i,4))*R24
+      Pmax = max(p(i,1),p(i,2),p(i,3)) - p(i,2)
+      Pmin = p(i,2) - min(p(i,1),p(i,2),p(i,3))
+      DC(i,2) = sign(min(abs(tmp),Pmin,Pmax),tmp)
+C J=JMR
+      tmp=(8.*(p(i,JNP)-p(i,JMR-1))+p(i,JMR-2)-p(i-IMH,JMR))*R24
+      Pmax = max(p(i,JMR-1),p(i,JMR),p(i,JNP)) - p(i,JMR)
+      Pmin = p(i,JMR) - min(p(i,JMR-1),p(i,JMR),p(i,JNP))
+      DC(i,JMR) = sign(min(abs(tmp),Pmin,Pmax),tmp)
+14    CONTINUE
+C
+      do 15 i=1,IJM3
+      tmp = (8.*(p(i,4) - p(i,2)) + p(i,1) - p(i,5))*R24
+      Pmax = max(p(i,2),p(i,3),p(i,4)) - p(i,3)
+      Pmin = p(i,3) - min(p(i,2),p(i,3),p(i,4))
+      DC(i,3) = sign(min(abs(tmp),Pmin,Pmax),tmp)
+15    CONTINUE
+      ENDIF
+C
+      if(j1.ne.2) then
+      do i=1,IMR
+      DC(i,1) = 0.
+      DC(i,JNP) = 0.
+      enddo
+      else
+C Determine slopes in polar caps for scalars!
+C
+      do 13 i=1,IMH
+C South
+      tmp = 0.25*(p(i,2) - p(i+imh,2))
+      Pmax = max(p(i,2),p(i,1), p(i+imh,2)) - p(i,1)
+      Pmin = p(i,1) - min(p(i,2),p(i,1), p(i+imh,2))
+      DC(i,1)=sign(min(abs(tmp),Pmax,Pmin),tmp)
+C North.
+      tmp = 0.25*(p(i+imh,JMR) - p(i,JMR))
+      Pmax = max(p(i+imh,JMR),p(i,jnp), p(i,JMR)) - p(i,JNP)
+      Pmin = p(i,JNP) - min(p(i+imh,JMR),p(i,jnp), p(i,JMR))
+      DC(i,JNP) = sign(min(abs(tmp),Pmax,pmin),tmp)
+13    continue
+C
+      do 25 i=imh+1,IMR
+      DC(i,  1) =  - DC(i-imh,  1)
+      DC(i,JNP) =  - DC(i-imh,JNP)
+25    continue
+      endif
+      return
+      end
+C
+      subroutine fyppm(VC,P,DC,flux,IMR,JNP,j1,j2,A6,AR,AL,JORD)
+      implicit none
+      integer IMR,JNP,j1,j2,JORD
+      real,parameter :: R3 = 1./3., R23 = 2./3.
+      real VC(IMR,*),flux(IMR,*),P(IMR,*),DC(IMR,*)
+C Local work arrays.
+      real AR(IMR,JNP),AL(IMR,JNP),A6(IMR,JNP)
+      integer LMT,i
+      integer IMH,JMR,j11,IMJM1,len
+c      logical first
+C      data first /.true./
+C      SAVE LMT
+C
+      IMH = IMR / 2
+      JMR = JNP - 1
+      j11 = j1-1
+      IMJM1 = IMR*(J2-J1+2)
+      len   = IMR*(J2-J1+3)
+C      if(first) then
+C      IF(JORD.LE.0) then
+C            if(JMR.GE.90) then
+C                  LMT = 0
+C            elseif(JMR.GE.45) then
+C                  LMT = 1
+C            else
+C                  LMT = 2
+C            endif
+C      else
+C            LMT = JORD - 3
+C      endif
+C
+C      first = .false.
+C      endif
+C     
+c modifs pour pouvoir choisir plusieurs schemas PPM
+      LMT = JORD - 3      
+C
+      DO 10 i=1,IMR*JMR        
+      AL(i,2) = 0.5*(p(i,1)+p(i,2)) + (DC(i,1) - DC(i,2))*R3
+      AR(i,1) = AL(i,2)
+10    CONTINUE
+C
+CPoles:
+C
+      DO i=1,IMH
+      AL(i,1) = AL(i+IMH,2)
+      AL(i+IMH,1) = AL(i,2)
+C
+      AR(i,JNP) = AR(i+IMH,JMR)
+      AR(i+IMH,JNP) = AR(i,JMR)
+      ENDDO
+
+ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+c   Rajout pour LMDZ.3.3
+cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+      AR(IMR,1)=AL(1,1)
+      AR(IMR,JNP)=AL(1,JNP)
+ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+      
+           
+      do 30 i=1,len
+30    A6(i,j11) = 3.*(p(i,j11)+p(i,j11)  - (AL(i,j11)+AR(i,j11)))
+C
+      if(LMT.le.2) call lmtppm(DC(1,j11),A6(1,j11),AR(1,j11)
+     &                       ,AL(1,j11),P(1,j11),len,LMT)
+C
+     
+      DO 140 i=1,IMJM1
+      IF(VC(i,j1).GT.0.) then
+      flux(i,j1) = AR(i,j11) + 0.5*VC(i,j1)*(AL(i,j11) - AR(i,j11) +
+     &                         A6(i,j11)*(1.-R23*VC(i,j1)) )
+      else
+      flux(i,j1) = AL(i,j1) - 0.5*VC(i,j1)*(AR(i,j1) - AL(i,j1) +
+     &                        A6(i,j1)*(1.+R23*VC(i,j1)))
+      endif
+140   continue
+      return
+      end
+C
+	subroutine yadv(IMR,JNP,j1,j2,p,VA,ady,wk,IAD)
+        implicit none
+        integer IMR,JNP,j1,j2,IAD
+	REAL p(IMR,JNP),ady(IMR,JNP),VA(IMR,JNP)
+        REAL WK(IMR,-1:JNP+2)
+        INTEGER JMR,IMH,i,j,jp
+        REAL rv,a1,b1,sum1,sum2
+C
+	JMR = JNP-1
+	IMH = IMR/2
+	do j=1,JNP
+	do i=1,IMR
+	wk(i,j) = p(i,j)
+	enddo
+	enddo
+C Poles:
+	do i=1,IMH
+	wk(i,   -1) = p(i+IMH,3)
+	wk(i+IMH,-1) = p(i,3)
+	wk(i,    0) = p(i+IMH,2)
+	wk(i+IMH,0) = p(i,2)
+	wk(i,JNP+1) = p(i+IMH,JMR)
+	wk(i+IMH,JNP+1) = p(i,JMR)
+	wk(i,JNP+2) = p(i+IMH,JNP-2)
+	wk(i+IMH,JNP+2) = p(i,JNP-2)
+	enddo
+c        write(*,*) 'toto 1' 
+C --------------------------------
+      IF(IAD.eq.2) then
+      do j=j1-1,j2+1
+      do i=1,IMR
+c      write(*,*) 'avt NINT','i=',i,'j=',j
+      JP = NINT(VA(i,j))      
+      rv = JP - VA(i,j)
+c      write(*,*) 'VA=',VA(i,j), 'JP1=',JP,'rv=',rv
+      JP = j - JP
+c      write(*,*) 'JP2=',JP
+      a1 = 0.5*(wk(i,jp+1)+wk(i,jp-1)) - wk(i,jp)
+      b1 = 0.5*(wk(i,jp+1)-wk(i,jp-1))
+c      write(*,*) 'a1=',a1,'b1=',b1
+      ady(i,j) = wk(i,jp) + rv*(a1*rv + b1) - wk(i,j)
+      enddo
+      enddo
+c      write(*,*) 'toto 2'
+C
+      ELSEIF(IAD.eq.1) then
+	do j=j1-1,j2+1
+      do i=1,imr
+      JP = REAL(j)-VA(i,j)
+      ady(i,j) = VA(i,j)*(wk(i,jp)-wk(i,jp+1))
+      enddo
+      enddo
+      ENDIF
+C
+	if(j1.ne.2) then
+	sum1 = 0.
+	sum2 = 0.
+      do i=1,imr
+      sum1 = sum1 + ady(i,2)
+      sum2 = sum2 + ady(i,JMR)
+      enddo
+	sum1 = sum1 / IMR
+	sum2 = sum2 / IMR
+C
+      do i=1,imr
+      ady(i,  2) =  sum1
+      ady(i,JMR) =  sum2
+      ady(i,  1) =  sum1
+      ady(i,JNP) =  sum2
+      enddo
+	else
+C Poles:
+	sum1 = 0.
+	sum2 = 0.
+      do i=1,imr
+      sum1 = sum1 + ady(i,1)
+      sum2 = sum2 + ady(i,JNP)
+      enddo
+	sum1 = sum1 / IMR
+	sum2 = sum2 / IMR
+C
+      do i=1,imr
+      ady(i,  1) =  sum1
+      ady(i,JNP) =  sum2
+      enddo
+	endif
+C
+	return
+	end
+C
+	subroutine xadv(IMR,JNP,j1,j2,p,UA,JS,JN,IML,adx,IAD)
+        implicit none
+        INTEGER IMR,JNP,j1,j2,JS,JN,IML,IAD
+	REAL p(IMR,JNP),adx(IMR,JNP),qtmp(-IMR:IMR+IMR),UA(IMR,JNP)
+        INTEGER JMR,j,i,ip,iu,iiu
+        REAL ru,a1,b1
+C
+	JMR = JNP-1
+      do 1309 j=j1,j2
+      if(J.GT.JS  .and. J.LT.JN) GO TO 1309
+C
+      do i=1,IMR
+      qtmp(i) = p(i,j)
+      enddo
+C
+      do i=-IML,0
+      qtmp(i)       = p(IMR+i,j)
+      qtmp(IMR+1-i) = p(1-i,j)
+      enddo
+C
+      IF(IAD.eq.2) THEN
+      DO i=1,IMR
+      IP = NINT(UA(i,j))
+      ru = IP - UA(i,j)
+      IP = i - IP
+      a1 = 0.5*(qtmp(ip+1)+qtmp(ip-1)) - qtmp(ip)
+      b1 = 0.5*(qtmp(ip+1)-qtmp(ip-1))
+      adx(i,j) = qtmp(ip) + ru*(a1*ru + b1)
+      enddo
+      ELSEIF(IAD.eq.1) then
+      DO i=1,IMR
+      iu = UA(i,j)
+      ru = UA(i,j) - iu
+      iiu = i-iu
+      if(UA(i,j).GE.0.) then
+      adx(i,j) = qtmp(iiu)+ru*(qtmp(iiu-1)-qtmp(iiu))
+      else
+      adx(i,j) = qtmp(iiu)+ru*(qtmp(iiu)-qtmp(iiu+1))
+      endif
+      enddo
+      ENDIF
+C
+      do i=1,IMR
+      adx(i,j) = adx(i,j) - p(i,j)
+      enddo
+1309  continue
+C
+C Eulerian upwind
+C
+      do j=JS+1,JN-1
+C
+      do i=1,IMR
+      qtmp(i) = p(i,j)
+      enddo
+C
+      qtmp(0)     = p(IMR,J)
+      qtmp(IMR+1) = p(1,J)
+C
+      IF(IAD.eq.2) THEN
+      qtmp(-1)     = p(IMR-1,J)
+      qtmp(IMR+2) = p(2,J)
+      do i=1,imr
+      IP = NINT(UA(i,j))
+      ru = IP - UA(i,j)
+      IP = i - IP
+      a1 = 0.5*(qtmp(ip+1)+qtmp(ip-1)) - qtmp(ip)
+      b1 = 0.5*(qtmp(ip+1)-qtmp(ip-1))
+      adx(i,j) = qtmp(ip)- p(i,j) + ru*(a1*ru + b1)
+      enddo
+      ELSEIF(IAD.eq.1) then
+C 1st order
+      DO i=1,IMR
+      IP = i - UA(i,j)
+      adx(i,j) = UA(i,j)*(qtmp(ip)-qtmp(ip+1))
+      enddo
+      ENDIF
+      enddo
+C
+	if(j1.ne.2) then
+      do i=1,IMR
+      adx(i,  2) = 0.
+      adx(i,JMR) = 0.
+      enddo
+	endif
+C set cross term due to x-adv at the poles to zero.
+      do i=1,IMR
+      adx(i,  1) = 0.
+      adx(i,JNP) = 0.
+      enddo
+	return
+	end
+C
+      subroutine lmtppm(DC,A6,AR,AL,P,IM,LMT)
+      implicit none
+C
+C A6 =  CURVATURE OF THE TEST PARABOLA
+C AR =  RIGHT EDGE VALUE OF THE TEST PARABOLA
+C AL =  LEFT  EDGE VALUE OF THE TEST PARABOLA
+C DC =  0.5 * MISMATCH
+C P  =  CELL-AVERAGED VALUE
+C IM =  VECTOR LENGTH
+C
+C OPTIONS:
+C
+C LMT = 0: FULL MONOTONICITY
+C LMT = 1: SEMI-MONOTONIC CONSTRAINT (NO UNDERSHOOTS)
+C LMT = 2: POSITIVE-DEFINITE CONSTRAINT
+C
+      real,parameter :: R12 = 1./12. 
+      real :: A6(IM),AR(IM),AL(IM),P(IM),DC(IM)
+      integer :: IM,LMT
+      INTEGER i
+      REAL da1,da2,a6da,fmin
+C
+      if(LMT.eq.0) then
+C Full constraint
+      do 100 i=1,IM
+      if(DC(i).eq.0.) then
+            AR(i) = p(i)
+            AL(i) = p(i)
+            A6(i) = 0.
+      else
+      da1  = AR(i) - AL(i)
+      da2  = da1**2
+      A6DA = A6(i)*da1
+      if(A6DA .lt. -da2) then
+            A6(i) = 3.*(AL(i)-p(i))
+            AR(i) = AL(i) - A6(i)
+      elseif(A6DA .gt. da2) then
+            A6(i) = 3.*(AR(i)-p(i))
+            AL(i) = AR(i) - A6(i)
+      endif
+      endif
+100   continue
+      elseif(LMT.eq.1) then
+C Semi-monotonic constraint
+      do 150 i=1,IM
+      if(abs(AR(i)-AL(i)) .GE. -A6(i)) go to 150
+      if(p(i).lt.AR(i) .and. p(i).lt.AL(i)) then
+            AR(i) = p(i)
+            AL(i) = p(i)
+            A6(i) = 0.
+      elseif(AR(i) .gt. AL(i)) then
+            A6(i) = 3.*(AL(i)-p(i))
+            AR(i) = AL(i) - A6(i)
+      else
+            A6(i) = 3.*(AR(i)-p(i))
+            AL(i) = AR(i) - A6(i)
+      endif
+150   continue
+      elseif(LMT.eq.2) then
+      do 250 i=1,IM
+      if(abs(AR(i)-AL(i)) .GE. -A6(i)) go to 250
+      fmin = p(i) + 0.25*(AR(i)-AL(i))**2/A6(i) + A6(i)*R12
+      if(fmin.ge.0.) go to 250
+      if(p(i).lt.AR(i) .and. p(i).lt.AL(i)) then
+            AR(i) = p(i)
+            AL(i) = p(i)
+            A6(i) = 0.
+      elseif(AR(i) .gt. AL(i)) then
+            A6(i) = 3.*(AL(i)-p(i))
+            AR(i) = AL(i) - A6(i)
+      else
+            A6(i) = 3.*(AR(i)-p(i))
+            AL(i) = AR(i) - A6(i)
+      endif
+250   continue
+      endif
+      return
+      end
+C
+      subroutine A2C(U,V,IMR,JMR,j1,j2,CRX,CRY,dtdx5,DTDY5)
+      implicit none
+      integer IMR,JMR,j1,j2
+      real :: U(IMR,*),V(IMR,*),CRX(IMR,*),CRY(IMR,*),DTDX5(*),DTDY5
+      integer i,j
+C
+      do 35 j=j1,j2
+      do 35 i=2,IMR
+35    CRX(i,J) = dtdx5(j)*(U(i,j)+U(i-1,j))
+C
+      do 45 j=j1,j2
+45    CRX(1,J) = dtdx5(j)*(U(1,j)+U(IMR,j))
+C
+      do 55 i=1,IMR*JMR
+55    CRY(i,2) = DTDY5*(V(i,2)+V(i,1))
+      return
+      end
+C
+      subroutine cosa(cosp,cose,JNP,PI,DP)
+      implicit none
+      integer JNP
+      real :: cosp(*),cose(*),PI,DP
+      integer JMR,j,jeq
+      real ph5
+      JMR = JNP-1
+      do 55 j=2,JNP
+        ph5  =  -0.5*PI + (REAL(J-1)-0.5)*DP
+55      cose(j) = cos(ph5)
+C
+      JEQ = (JNP+1) / 2
+      if(JMR .eq. 2*(JMR/2) ) then
+      do j=JNP, JEQ+1, -1
+       cose(j) =  cose(JNP+2-j)
+      enddo
+      else
+C cell edge at equator.
+       cose(JEQ+1) =  1.
+      do j=JNP, JEQ+2, -1
+       cose(j) =  cose(JNP+2-j)
+       enddo
+      endif
+C
+      do 66 j=2,JMR
+66    cosp(j) = 0.5*(cose(j)+cose(j+1))
+      cosp(1) = 0.
+      cosp(JNP) = 0.
+      return
+      end
+C
+      subroutine cosc(cosp,cose,JNP,PI,DP)
+      implicit none
+      integer JNP
+      real :: cosp(*),cose(*),PI,DP
+      real phi
+      integer j
+C
+      phi = -0.5*PI
+      do 55 j=2,JNP-1
+      phi  =  phi + DP
+55    cosp(j) = cos(phi)
+        cosp(  1) = 0.
+        cosp(JNP) = 0.
+C
+      do 66 j=2,JNP
+        cose(j) = 0.5*(cosp(j)+cosp(j-1))
+66    CONTINUE
+C
+      do 77 j=2,JNP-1
+       cosp(j) = 0.5*(cose(j)+cose(j+1))
+77    CONTINUE
+      return
+      end
+C
+      SUBROUTINE qckxyz (Q,qtmp,IMR,JNP,NLAY,j1,j2,cosp,acosp,
+     &                   cross,IC,NSTEP)
+C
+      real,parameter :: tiny = 1.E-60 
+      INTEGER :: IMR,JNP,NLAY,j1,j2,IC,NSTEP
+      REAL :: Q(IMR,JNP,NLAY),qtmp(IMR,JNP),cosp(*),acosp(*)
+      logical cross
+      INTEGER :: NLAYM1,len,ip,L,icr,ipy,ipx,i
+      real :: qup,qly,dup,sum
+C
+      NLAYM1 = NLAY-1
+      len = IMR*(j2-j1+1)
+      ip = 0
+C
+C Top layer
+      L = 1
+	icr = 1
+      call filns(q(1,1,L),IMR,JNP,j1,j2,cosp,acosp,ipy,tiny)
+      if(ipy.eq.0) goto 50
+      call filew(q(1,1,L),qtmp,IMR,JNP,j1,j2,ipx,tiny)
+      if(ipx.eq.0) goto 50
+C
+      if(cross) then
+      call filcr(q(1,1,L),IMR,JNP,j1,j2,cosp,acosp,icr,tiny)
+      endif
+      if(icr.eq.0) goto 50
+C
+C Vertical filling...
+      do i=1,len
+      IF( Q(i,j1,1).LT.0.) THEN
+      ip = ip + 1
+          Q(i,j1,2) = Q(i,j1,2) + Q(i,j1,1)
+          Q(i,j1,1) = 0.
+      endif
+      enddo
+C
+50    continue
+      DO 225 L = 2,NLAYM1
+      icr = 1
+C
+      call filns(q(1,1,L),IMR,JNP,j1,j2,cosp,acosp,ipy,tiny)
+      if(ipy.eq.0) goto 225
+      call filew(q(1,1,L),qtmp,IMR,JNP,j1,j2,ipx,tiny)
+      if(ipx.eq.0) go to 225
+      if(cross) then
+      call filcr(q(1,1,L),IMR,JNP,j1,j2,cosp,acosp,icr,tiny)
+      endif
+      if(icr.eq.0) goto 225
+C
+      do i=1,len
+      IF( Q(I,j1,L).LT.0.) THEN
+C
+      ip = ip + 1
+C From above
+          qup =  Q(I,j1,L-1)
+          qly = -Q(I,j1,L)
+          dup  = min(qly,qup)
+          Q(I,j1,L-1) = qup - dup
+          Q(I,j1,L  ) = dup-qly
+C Below
+          Q(I,j1,L+1) = Q(I,j1,L+1) + Q(I,j1,L)
+          Q(I,j1,L)   = 0.
+      ENDIF
+      ENDDO
+225   CONTINUE
+C
+C BOTTOM LAYER
+      sum = 0.
+      L = NLAY
+C
+      call filns(q(1,1,L),IMR,JNP,j1,j2,cosp,acosp,ipy,tiny)
+      if(ipy.eq.0) goto 911
+      call filew(q(1,1,L),qtmp,IMR,JNP,j1,j2,ipx,tiny)
+      if(ipx.eq.0) goto 911
+C
+      call filcr(q(1,1,L),IMR,JNP,j1,j2,cosp,acosp,icr,tiny)
+      if(icr.eq.0) goto 911
+C
+      DO  I=1,len
+      IF( Q(I,j1,L).LT.0.) THEN
+      ip = ip + 1
+c
+C From above
+C
+          qup = Q(I,j1,NLAYM1)
+          qly = -Q(I,j1,L)
+          dup = min(qly,qup)
+          Q(I,j1,NLAYM1) = qup - dup
+C From "below" the surface.
+          sum = sum + qly-dup
+          Q(I,j1,L) = 0.
+       ENDIF
+      ENDDO
+C
+911   continue
+C
+      if(ip.gt.IMR) then
+      write(6,*) 'IC=',IC,' STEP=',NSTEP,
+     &           ' Vertical filling pts=',ip
+      endif
+C
+      if(sum.gt.1.e-25) then
+      write(6,*) IC,NSTEP,' Mass source from the ground=',sum
+      endif
+      RETURN
+      END
+C
+      subroutine filcr(q,IMR,JNP,j1,j2,cosp,acosp,icr,tiny)
+      implicit none
+      integer :: IMR,JNP,j1,j2,icr
+      real :: q(IMR,*),cosp(*),acosp(*),tiny
+      integer :: i,j
+      real :: dq,dn,d0,d1,ds,d2
+      icr = 0
+      do 65 j=j1+1,j2-1
+      DO 50 i=1,IMR-1
+      IF(q(i,j).LT.0.) THEN
+      icr =  1
+      dq  = - q(i,j)*cosp(j)
+C N-E
+      dn = q(i+1,j+1)*cosp(j+1)
+      d0 = max(0.,dn)
+      d1 = min(dq,d0)
+      q(i+1,j+1) = (dn - d1)*acosp(j+1)
+      dq = dq - d1
+C S-E
+      ds = q(i+1,j-1)*cosp(j-1)
+      d0 = max(0.,ds)
+      d2 = min(dq,d0)
+      q(i+1,j-1) = (ds - d2)*acosp(j-1)
+      q(i,j) = (d2 - dq)*acosp(j) + tiny
+      endif
+50    continue
+      if(icr.eq.0 .and. q(IMR,j).ge.0.) goto 65
+      DO 55 i=2,IMR
+      IF(q(i,j).LT.0.) THEN
+      icr =  1
+      dq  = - q(i,j)*cosp(j)
+C N-W
+      dn = q(i-1,j+1)*cosp(j+1)
+      d0 = max(0.,dn)
+      d1 = min(dq,d0)
+      q(i-1,j+1) = (dn - d1)*acosp(j+1)
+      dq = dq - d1
+C S-W
+      ds = q(i-1,j-1)*cosp(j-1)
+      d0 = max(0.,ds)
+      d2 = min(dq,d0)
+      q(i-1,j-1) = (ds - d2)*acosp(j-1)
+      q(i,j) = (d2 - dq)*acosp(j) + tiny
+      endif
+55    continue
+C *****************************************
+C i=1
+      i=1
+      IF(q(i,j).LT.0.) THEN
+      icr =  1
+      dq  = - q(i,j)*cosp(j)
+C N-W
+      dn = q(IMR,j+1)*cosp(j+1)
+      d0 = max(0.,dn)
+      d1 = min(dq,d0)
+      q(IMR,j+1) = (dn - d1)*acosp(j+1)
+      dq = dq - d1
+C S-W
+      ds = q(IMR,j-1)*cosp(j-1)
+      d0 = max(0.,ds)
+      d2 = min(dq,d0)
+      q(IMR,j-1) = (ds - d2)*acosp(j-1)
+      q(i,j) = (d2 - dq)*acosp(j) + tiny
+      endif
+C *****************************************
+C i=IMR
+      i=IMR
+      IF(q(i,j).LT.0.) THEN
+      icr =  1
+      dq  = - q(i,j)*cosp(j)
+C N-E
+      dn = q(1,j+1)*cosp(j+1)
+      d0 = max(0.,dn)
+      d1 = min(dq,d0)
+      q(1,j+1) = (dn - d1)*acosp(j+1)
+      dq = dq - d1
+C S-E
+      ds = q(1,j-1)*cosp(j-1)
+      d0 = max(0.,ds)
+      d2 = min(dq,d0)
+      q(1,j-1) = (ds - d2)*acosp(j-1)
+      q(i,j) = (d2 - dq)*acosp(j) + tiny
+      endif
+C *****************************************
+65    continue
+C
+      do i=1,IMR
+      if(q(i,j1).lt.0. .or. q(i,j2).lt.0.) then
+      icr = 1
+      goto 80
+      endif
+      enddo
+C
+80    continue
+C
+      if(q(1,1).lt.0. .or. q(1,jnp).lt.0.) then
+      icr = 1
+      endif
+C
+      return
+      end
+C
+      subroutine filns(q,IMR,JNP,j1,j2,cosp,acosp,ipy,tiny)
+      implicit none
+      integer :: IMR,JNP,j1,j2,ipy
+      real :: q(IMR,*),cosp(*),acosp(*),tiny
+      real :: DP,CAP1,dq,dn,d0,d1,ds,d2
+      INTEGER :: i,j
+c      logical first
+c      data first /.true./
+c      save cap1
+C
+c      if(first) then
+      DP = 4.*ATAN(1.)/REAL(JNP-1)
+      CAP1 = IMR*(1.-COS((j1-1.5)*DP))/DP
+c      first = .false.
+c      endif
+C
+      ipy = 0
+      do 55 j=j1+1,j2-1
+      DO 55 i=1,IMR
+      IF(q(i,j).LT.0.) THEN
+      ipy =  1
+      dq  = - q(i,j)*cosp(j)
+C North
+      dn = q(i,j+1)*cosp(j+1)
+      d0 = max(0.,dn)
+      d1 = min(dq,d0)
+      q(i,j+1) = (dn - d1)*acosp(j+1)
+      dq = dq - d1
+C South
+      ds = q(i,j-1)*cosp(j-1)
+      d0 = max(0.,ds)
+      d2 = min(dq,d0)
+      q(i,j-1) = (ds - d2)*acosp(j-1)
+      q(i,j) = (d2 - dq)*acosp(j) + tiny
+      endif
+55    continue
+C
+      do i=1,imr
+      IF(q(i,j1).LT.0.) THEN
+      ipy =  1
+      dq  = - q(i,j1)*cosp(j1)
+C North
+      dn = q(i,j1+1)*cosp(j1+1)
+      d0 = max(0.,dn)
+      d1 = min(dq,d0)
+      q(i,j1+1) = (dn - d1)*acosp(j1+1)
+      q(i,j1) = (d1 - dq)*acosp(j1) + tiny
+      endif
+      enddo
+C
+      j = j2
+      do i=1,imr
+      IF(q(i,j).LT.0.) THEN
+      ipy =  1
+      dq  = - q(i,j)*cosp(j)
+C South
+      ds = q(i,j-1)*cosp(j-1)
+      d0 = max(0.,ds)
+      d2 = min(dq,d0)
+      q(i,j-1) = (ds - d2)*acosp(j-1)
+      q(i,j) = (d2 - dq)*acosp(j) + tiny
+      endif
+      enddo
+C
+C Check Poles.
+      if(q(1,1).lt.0.) then
+      dq = q(1,1)*cap1/REAL(IMR)*acosp(j1)
+      do i=1,imr
+      q(i,1) = 0.
+      q(i,j1) = q(i,j1) + dq
+      if(q(i,j1).lt.0.) ipy = 1
+      enddo
+      endif
+C
+      if(q(1,JNP).lt.0.) then
+      dq = q(1,JNP)*cap1/REAL(IMR)*acosp(j2)
+      do i=1,imr
+      q(i,JNP) = 0.
+      q(i,j2) = q(i,j2) + dq
+      if(q(i,j2).lt.0.) ipy = 1
+      enddo
+      endif
+C
+      return
+      end
+C
+      subroutine filew(q,qtmp,IMR,JNP,j1,j2,ipx,tiny)
+      implicit none
+      integer :: IMR,JNP,j1,j2,ipx
+      real :: q(IMR,*),qtmp(JNP,IMR),tiny
+      integer :: i,j
+      real :: d0,d1,d2
+C
+      ipx = 0
+C Copy & swap direction for vectorization.
+      do 25 i=1,imr
+      do 25 j=j1,j2
+25    qtmp(j,i) = q(i,j)
+C
+      do 55 i=2,imr-1
+      do 55 j=j1,j2
+      if(qtmp(j,i).lt.0.) then
+      ipx =  1
+c west
+      d0 = max(0.,qtmp(j,i-1))
+      d1 = min(-qtmp(j,i),d0)
+      qtmp(j,i-1) = qtmp(j,i-1) - d1
+      qtmp(j,i) = qtmp(j,i) + d1
+c east
+      d0 = max(0.,qtmp(j,i+1))
+      d2 = min(-qtmp(j,i),d0)
+      qtmp(j,i+1) = qtmp(j,i+1) - d2
+      qtmp(j,i) = qtmp(j,i) + d2 + tiny
+      endif
+55    continue
+c
+      i=1
+      do 65 j=j1,j2
+      if(qtmp(j,i).lt.0.) then
+      ipx =  1
+c west
+      d0 = max(0.,qtmp(j,imr))
+      d1 = min(-qtmp(j,i),d0)
+      qtmp(j,imr) = qtmp(j,imr) - d1
+      qtmp(j,i) = qtmp(j,i) + d1
+c east
+      d0 = max(0.,qtmp(j,i+1))
+      d2 = min(-qtmp(j,i),d0)
+      qtmp(j,i+1) = qtmp(j,i+1) - d2
+c
+      qtmp(j,i) = qtmp(j,i) + d2 + tiny
+      endif
+65    continue
+      i=IMR
+      do 75 j=j1,j2
+      if(qtmp(j,i).lt.0.) then
+      ipx =  1
+c west
+      d0 = max(0.,qtmp(j,i-1))
+      d1 = min(-qtmp(j,i),d0)
+      qtmp(j,i-1) = qtmp(j,i-1) - d1
+      qtmp(j,i) = qtmp(j,i) + d1
+c east
+      d0 = max(0.,qtmp(j,1))
+      d2 = min(-qtmp(j,i),d0)
+      qtmp(j,1) = qtmp(j,1) - d2
+c
+      qtmp(j,i) = qtmp(j,i) + d2 + tiny
+      endif
+75    continue
+C
+      if(ipx.ne.0) then
+      do 85 j=j1,j2
+      do 85 i=1,imr
+85    q(i,j) = qtmp(j,i)
+      else
+C
+C Poles.
+      if(q(1,1).lt.0. or. q(1,JNP).lt.0.) ipx = 1
+      endif
+      return
+      end
+C
+      subroutine zflip(q,im,km,nc)
+      implicit none
+C This routine flip the array q (in the vertical).
+      integer :: im,km,nc
+      real q(im,km,nc)
+C local dynamic array
+      real qtmp(im,km)
+      integer IC,k,i
+C
+      do 4000 IC = 1, nc
+C
+      do 1000 k=1,km
+      do 1000 i=1,im
+      qtmp(i,k) = q(i,km+1-k,IC)
+1000  continue
+C
+      do 2000 i=1,im*km
+2000  q(i,1,IC) = qtmp(i,1)
+4000  continue
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/prather.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/prather.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/prather.F	(revision 3330)
@@ -0,0 +1,362 @@
+!
+! $Header$
+!
+      SUBROUTINE prather (q,w,masse,pbaru,pbarv,nt,dt)
+      
+      USE comconst_mod, ONLY: pi
+      
+      IMPLICIT NONE
+
+c=======================================================================
+c   Adaptation LMDZ:  A.Armengaud (LGGE)
+c   ----------------
+c
+c   ************************************************
+c   Transport des traceurs par la methode de prather
+c   Ref : 
+c
+c   ************************************************
+c   q,w,pext,pbaru et pbarv : arguments d'entree  pour le s-pg
+c
+c=======================================================================
+
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+c   Arguments:
+c   ----------
+      INTEGER iq,nt
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL masse(iip1,jjp1,llm)
+      REAL q( iip1,jjp1,llm,0:9)
+      REAL w( ip1jmp1,llm )
+      integer ordre,ilim
+
+c   Local:
+c   ------
+      LOGICAL limit
+      real zq(iip1,jjp1,llm)
+      REAL sm ( iip1,jjp1, llm )
+      REAL s0( iip1,jjp1,llm ),  sx( iip1,jjp1,llm )
+      REAL sy( iip1,jjp1,llm ),  sz( iip1,jjp1,llm )
+      REAL sxx( iip1,jjp1,llm)
+      REAL sxy( iip1,jjp1,llm)
+      REAL sxz( iip1,jjp1,llm)
+      REAL syy( iip1,jjp1,llm )
+      REAL syz( iip1,jjp1,llm )
+      REAL szz( iip1,jjp1,llm ),zz
+      INTEGER i,j,l,indice
+      real sxn(iip1),sxs(iip1)
+
+      real sinlon(iip1),sinlondlon(iip1)
+      real coslon(iip1),coslondlon(iip1)
+      real qmin,qmax
+      save qmin,qmax
+      save sinlon,coslon,sinlondlon,coslondlon
+      real dyn1,dyn2,dys1,dys2,qpn,qps,dqzpn,dqzps
+      real masn,mass
+c
+      REAL      SSUM
+      integer ismax,ismin
+      EXTERNAL  SSUM, ismin,ismax
+      logical first
+      save first
+      EXTERNAL advxp,advyp,advzp 
+
+
+      data first/.true./
+      data qmin,qmax/-1.e33,1.e33/
+
+
+c==========================================================================
+c==========================================================================
+c     MODIFICATION POUR PAS DE TEMPS ADAPTATIF, dtvr remplace par dt
+c==========================================================================
+c==========================================================================
+      REAL dt
+c==========================================================================
+      limit = .TRUE.
+ 
+      if(first) then
+         print*,'SCHEMA PRATHER'
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         enddo
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+
+        DO l = 1,llm
+        DO j = 1,jjp1
+        DO i = 1,iip1
+        q( i,j,l,1 )=0.
+        q( i,j,l,2)=0.
+        q( i,j,l,3)=0.
+        q( i,j,l,4)=0.
+        q( i,j,l,5)=0.
+        q( i,j,l,6)=0.
+        q( i,j,l,7)=0.
+        q( i,j,l,8)=0.
+        q( i,j,l,9)=0.
+        ENDDO
+        ENDDO
+        ENDDO
+      endif
+c   Fin modif Fred
+
+c *** On calcule la masse d'air en kg
+
+       DO l = 1,llm
+        DO j = 1,jjp1
+         DO i = 1,iip1
+         sm( i,j,llm+1-l ) =masse(i,j,l)
+         ENDDO
+        ENDDO
+       ENDDO
+
+c *** q contient les qqtes de traceur avant l'advection 
+
+c *** Affectation des tableaux S a partir de Q
+ 
+       DO l = 1,llm
+        DO j = 1,jjp1
+         DO i = 1,iip1
+       s0( i,j,l) = q ( i,j,llm+1-l,0 )*sm(i,j,l)
+       sx( i,j,l) = q( i,j,llm+1-l,1 )*sm(i,j,l)
+       sy( i,j,l) = q( i,j,llm+1-l,2)*sm(i,j,l)
+       sz( i,j,l) = q( i,j,llm+1-l,3)*sm(i,j,l)
+       sxx( i,j,l) = q( i,j,llm+1-l,4)*sm(i,j,l)
+       sxy( i,j,l) = q( i,j,llm+1-l,5)*sm(i,j,l)
+       sxz( i,j,l) = q( i,j,llm+1-l,6)*sm(i,j,l)
+       syy( i,j,l) = q( i,j,llm+1-l,7)*sm(i,j,l)
+       syz( i,j,l) = q( i,j,llm+1-l,8)*sm(i,j,l)
+       szz( i,j,l) = q( i,j,llm+1-l,9)*sm(i,j,l)
+         ENDDO
+        ENDDO
+       ENDDO
+c *** Appel des subroutines d'advection en X, en Y et en Z
+c *** Advection avec "time-splitting"
+      
+c-----------------------------------------------------------
+       do indice =1,nt
+       call advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
+     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
+        end do
+        do l=1,llm
+        do i=1,iip1
+        sy(i,1,l)=0.
+        sy(i,jjp1,l)=0.
+        enddo
+        enddo
+c---------------------------------------------------------
+       call advyp( limit,.5*dt*nt,pbarv,sm,s0,sx,sy,sz
+     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
+c---------------------------------------------------------
+
+c---------------------------------------------------------
+       do j=1,jjp1
+          do i=1,iip1
+             sz(i,j,1)=0.
+             sz(i,j,llm)=0.
+             sxz(i,j,1)=0.
+             sxz(i,j,llm)=0.
+             syz(i,j,1)=0.
+             syz(i,j,llm)=0.
+             szz(i,j,1)=0.
+             szz(i,j,llm)=0.
+          enddo
+       enddo
+       call advzp( limit,dt*nt,w,sm,s0,sx,sy,sz 
+     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
+        do l=1,llm
+        do i=1,iip1
+        sy(i,1,l)=0.
+        sy(i,jjp1,l)=0.
+        enddo
+        enddo
+
+c---------------------------------------------------------
+
+c---------------------------------------------------------
+       call advyp( limit,.5*dt*nt,pbarv,sm,s0,sx,sy,sz
+     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
+c---------------------------------------------------------
+       DO l = 1,llm
+        DO j = 1,jjp1
+             s0( iip1,j,l)=s0( 1,j,l )
+             sx( iip1,j,l)=sx( 1,j,l )
+             sy( iip1,j,l)=sy( 1,j,l )
+             sz( iip1,j,l)=sz( 1,j,l )
+             sxx( iip1,j,l)=sxx( 1,j,l )
+             sxy( iip1,j,l)=sxy( 1,j,l) 
+             sxz( iip1,j,l)=sxz( 1,j,l )
+             syy( iip1,j,l)=syy( 1,j,l )
+             syz( iip1,j,l)=syz( 1,j,l)
+             szz( iip1,j,l)=szz( 1,j,l )
+        ENDDO
+       ENDDO
+       do indice=1,nt
+       call advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
+     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
+        end do
+c---------------------------------------------------------
+c---------------------------------------------------------
+c ***   On repasse les S dans la variable qpr
+c ***   On repasse les S dans la variable q directement 14/10/94
+
+       DO  l = 1,llm
+        DO  j = 1,jjp1
+         DO  i = 1,iip1
+      q( i,j,llm+1-l,0 )=s0( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,1 ) = sx( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,2 ) = sy( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,3 ) = sz( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,4 ) = sxx( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,5 ) = sxy( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,6 ) = sxz( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,7 ) = syy( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,8 ) = syz( i,j,l )/sm(i,j,l)
+      q( i,j,llm+1-l,9 ) = szz( i,j,l )/sm(i,j,l)
+      ENDDO
+      ENDDO
+      ENDDO
+
+c---------------------------------------------------------
+c      go to  777
+c   filtrages aux poles
+
+c Traitements specifiques au pole
+
+c   filtrages aux poles
+         DO l=1,llm
+c   filtrages aux poles
+         masn=ssum(iim,sm(1,1,l),1)
+         mass=ssum(iim,sm(1,jjp1,l),1)
+         qpn=ssum(iim,s0(1,1,l),1)/masn
+         qps=ssum(iim,s0(1,jjp1,l),1)/mass
+         dqzpn=ssum(iim,sz(1,1,l),1)/masn
+         dqzps=ssum(iim,sz(1,jjp1,l),1)/mass
+         do i=1,iip1
+          q( i,1,llm+1-l,3)=dqzpn
+          q( i,jjp1,llm+1-l,3)=dqzps
+          q( i,1,llm+1-l,0)=qpn
+          q( i,jjp1,llm+1-l,0)=qps
+         enddo
+c       enddo
+c         print*,'qpn',qpn,'qps',qps
+c          print*,'dqzpn',dqzpn,'dqzps',dqzps
+c       enddo
+           dyn1=0.
+           dys1=0.
+           dyn2=0.
+           dys2=0.
+        do i=1,iim
+        zz=s0(i,2,l)/sm(i,2,l)-q(i,1,llm+1-l,0)
+        dyn1=dyn1+sinlondlon(i)*zz
+        dyn2=dyn2+coslondlon(i)*zz
+        zz=q(i,jjp1,llm+1-l,0)-s0(i,jjm,l)/sm(i,jjm,l)
+        dys1=dys1+sinlondlon(i)*zz
+        dys2=dys2+coslondlon(i)*zz
+        enddo
+         do i=1,iim
+         q(i,1,llm+1-l,2)=
+     $   (sinlon(i)*dyn1+coslon(i)*dyn2)/2.
+         q(i,1,llm+1-l,0)=q(i,1,llm+1-l,0)
+     $          +q(i,1,llm+1-l,2)
+         q(i,jjp1,llm+1-l,2)=
+     $   (sinlon(i)*dys1+coslon(i)*dys2)/2.
+         q(i,jjp1,llm+1-l,0)=q(i,jjp1,llm+1-l,0)
+     $      -q(i,jjp1,llm+1-l,2)
+         enddo
+      q(iip1,1,llm+1-l,0)=q(1,1,llm+1-l,0)
+      q(iip1,jjp1,llm+1-l,0)=q(1,jjp1,llm+1-l,0)
+      do i=1,iim
+      sxn(i)=q(i+1,1,llm+1-l,0)-q(i,1,llm+1-l,0)
+      sxs(i)=q(i+1,jjp1,llm+1-l,0)-q(i,jjp1,llm+1-l,0)
+      enddo
+      sxn(iip1)=sxn(1)
+      sxs(iip1)=sxs(1)
+      do i=1,iim
+      q(i+1,1,llm+1-l,1)=0.25*(sxn(i)+sxn(i+1))
+      q(i+1,jjp1,llm+1-l,1)=0.25*(sxs(i)+sxs(i+1))
+      END DO
+      q(1,1,llm+1-l,1)=q(iip1,1,llm+1-l,1)
+      q(1,jjp1,llm+1-l,1)=
+     $   q(iip1,jjp1,llm+1-l,1)
+        enddo
+         do l=1,llm
+           do i=1,iim
+            q( i,1,llm+1-l,4)=0.
+            q( i,jjp1,llm+1-l,4)=0.
+            q( i,1,llm+1-l,5)=0.
+            q( i,jjp1,llm+1-l,5)=0.
+            q( i,1,llm+1-l,6)=0.
+            q( i,jjp1,llm+1-l,6)=0.
+            q( i,1,llm+1-l,7)=0.
+            q( i,jjp1,llm+1-l,7)=0.
+            q( i,1,llm+1-l,8)=0.
+            q( i,jjp1,llm+1-l,8)=0.
+            q( i,1,llm+1-l,9)=0.
+            q( i,jjp1,llm+1-l,9)=0.
+          enddo
+         ENDDO
+
+777      continue
+c
+c   bouclage en longitude
+      do l=1,llm
+      do j=1,jjp1
+      q(iip1,j,l,0)=q(1,j,l,0)
+      q(iip1,j,llm+1-l,0)=q(1,j,llm+1-l,0)
+      q(iip1,j,llm+1-l,1)=q(1,j,llm+1-l,1)
+      q(iip1,j,llm+1-l,2)=q(1,j,llm+1-l,2)
+      q(iip1,j,llm+1-l,3)=q(1,j,llm+1-l,3)
+      q(iip1,j,llm+1-l,4)=q(1,j,llm+1-l,4)
+      q(iip1,j,llm+1-l,5)=q(1,j,llm+1-l,5)
+      q(iip1,j,llm+1-l,6)=q(1,j,llm+1-l,6)
+      q(iip1,j,llm+1-l,7)=q(1,j,llm+1-l,7)
+      q(iip1,j,llm+1-l,8)=q(1,j,llm+1-l,8)
+      q(iip1,j,llm+1-l,9)=q(1,j,llm+1-l,9)
+      enddo
+      enddo
+        DO l = 1,llm
+    	 DO j = 2,jjm
+           DO i = 1,iip1
+         IF (q(i,j,l,0).lt.0.)  THEN
+         PRINT*,'------------ BIP-----------' 
+         PRINT*,'S0(',i,j,l,')=',q(i,j,l,0),
+     $          q(i,j-1,l,0)
+         PRINT*,'SX(',i,j,l,')=',q(i,j,l,1)
+         PRINT*,'SY(',i,j,l,')=',q(i,j,l,2),
+     $   q(i,j-1,l,2)   
+         PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3)
+c    		     PRINT*,' PBL EN SORTIE D'' ADVZP'
+                     q(i,j,l,0)=0.
+c                  STOP
+               ENDIF
+           ENDDO
+         ENDDO
+         do j=1,jjp1,jjm
+         do i=1,iip1
+               IF (q(i,j,l,0).lt.0.)  THEN
+               PRINT*,'------------ BIP 2-----------'
+         PRINT*,'S0(',i,j,l,')=',q(i,j,l,0)
+         PRINT*,'SX(',i,j,l,')=',q(i,j,l,1)
+         PRINT*,'SY(',i,j,l,')=',q(i,j,l,2)
+         PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3)
+
+                     q(i,j,l,0)=0.
+c                  STOP
+               ENDIF
+         enddo
+         enddo
+        ENDDO
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pression.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pression.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/pression.F90	(revision 3330)
@@ -0,0 +1,27 @@
+SUBROUTINE pression( ngrid, ap, bp, ps, p )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr.Hourdin 
+!-------------------------------------------------------------------------------
+! Purpose: Compute pressure p(l) at different levels from l = 1 (ground level)
+!          to l = llm +1. Those levels correspond to the llm layers interfaces,
+!          with p(ij,llm+1) = 0. and  p(ij,1) = ps(ij)  .   
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+!===============================================================================
+! Arguments:
+  INTEGER, INTENT(IN)  :: ngrid                 !--- NUMBER OF GRID POINTS
+  REAL,    INTENT(IN)  :: ap(llmp1), bp(llmp1)  !--- HYBRID COEFFICIENTS
+  REAL,    INTENT(IN)  :: ps(ngrid)             !--- SURFACE PRESSURE
+  REAL,    INTENT(OUT) :: p(ngrid,llmp1)        !--- 3D PRESSURE FIELD 
+!===============================================================================
+! Local variables:
+  INTEGER :: l
+!===============================================================================
+  DO l=1,llmp1;  p(:,l) = ap(l) + bp(l) * ps(:);  END DO
+
+END SUBROUTINE pression
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/principal_cshift_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/principal_cshift_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/principal_cshift_m.F90	(revision 3330)
@@ -0,0 +1,43 @@
+module principal_cshift_m
+
+  implicit none
+
+contains
+
+  subroutine principal_cshift(is2, xlon, xprimm)
+
+    ! Add or subtract 2 pi so that xlon is near [-pi, pi], then cshift
+    ! so that xlon is in ascending order. Make the same cshift on
+    ! xprimm.
+
+    use nrtype, only: twopi
+    use serre_mod, only: clon
+
+    include "dimensions.h"
+    ! for iim
+
+    integer, intent(in):: is2
+    real, intent(inout):: xlon(:), xprimm(:) ! (iim + 1)
+
+    !-----------------------------------------------------
+
+    if (is2 /= 0) then
+       IF (clon <= 0.) THEN
+          IF (is2 /= 1) THEN
+             xlon(:is2 - 1) = xlon(:is2 - 1) + twopi
+             xlon(:iim) = cshift(xlon(:iim), shift = is2 - 1)
+             xprimm(:iim) = cshift(xprimm(:iim), shift = is2 - 1)
+          END IF
+       else
+          xlon(is2 + 1:iim) = xlon(is2 + 1:iim) - twopi
+          xlon(:iim) = cshift(xlon(:iim), shift = is2)
+          xprimm(:iim) = cshift(xprimm(:iim), shift = is2)
+       end IF
+    end if
+
+    xlon(iim + 1) = xlon(1) + twopi
+    xprimm(iim + 1) = xprimm(1)
+
+  end subroutine principal_cshift
+
+end module principal_cshift_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/psextbar.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/psextbar.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/psextbar.F	(revision 3330)
@@ -0,0 +1,107 @@
+!
+! $Header$
+!
+      SUBROUTINE psextbar ( ps, psexbarxy )
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c **********************************************************************
+c calcul des moyennes en x et en y de (pression au sol*aire variable) ..
+c **********************************************************************
+c
+c         ps          est un  argum. d'entree  pour le s-pg ..
+c         psexbarxy   est un  argum. de sortie pour le s-pg ..
+c
+c   Methode:
+c   --------
+c
+c    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
+c       alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
+c       alpha2(i,j)  calcule  au point ( i+1/4,j+1/4 )
+c       alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
+c       alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
+c
+c    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)        
+c
+c    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
+c
+c
+c
+c   alpha4 .         . alpha1    . alpha4
+c    (i,j)             (i,j)       (i+1,j)
+c
+c             P .        U .          . P
+c           (i,j)       (i,j)         (i+1,j)
+c
+c   alpha3 .         . alpha2    .alpha3 
+c    (i,j)              (i,j)     (i+1,j)
+c
+c             V .        Z .          . V
+c           (i,j)
+c
+c   alpha4 .         . alpha1    .alpha4
+c   (i,j+1)            (i,j+1)   (i+1,j+1) 
+c
+c             P .        U .          . P
+c          (i,j+1)                    (i+1,j+1)
+c
+c
+c
+c
+c                       On  a :
+c
+c    pbarx(i,j) = Pext(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))      +
+c                 Pext(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+c     localise  au point  ... U (i,j) ...
+c
+c    pbary(i,j) = Pext(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )     +
+c                 Pext(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+c     localise  au point  ... V (i,j) ...
+c
+c  pbarxy(i,j)= Pext(i,j) *alpha2(i,j) + Pext(i+1,j) *alpha3(i+1,j) +
+c               Pext(i,j+1)*alpha1(i,j+1)+ Pext(i+1,j+1)*alpha4(i+1,j+1)
+c     localise  au point  ... Z (i,j) ...
+c
+c
+c
+c=======================================================================
+
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      REAL ps( ip1jmp1 ), psexbarxy ( ip1jm ), pext( ip1jmp1 )
+
+      INTEGER  l, ij
+c
+
+      DO ij = 1, ip1jmp1
+       pext(ij) = ps(ij) * aire(ij)
+      ENDDO
+
+
+      DO     5     ij = 1, ip1jm - 1
+      psexbarxy( ij ) = pext(ij)*alpha2(ij) + pext(ij+1)*alpha3(ij+1) +
+     *   pext(ij+iip1)*alpha1(ij+iip1) + pext(ij+iip2)*alpha4(ij+iip2)
+   5  CONTINUE
+
+
+c    ....  correction pour     psexbarxy( iip1,j )  ........
+
+CDIR$ IVDEP
+
+      DO 7 ij = iip1, ip1jm, iip1
+      psexbarxy( ij ) = psexbarxy( ij - iim )
+   7  CONTINUE
+
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotat.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotat.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotat.F	(revision 3330)
@@ -0,0 +1,58 @@
+!
+! $Header$
+!
+      SUBROUTINE rotat (klevel, x, y, rot )
+c
+c     Auteur : P.Le Van 
+c**************************************************************
+c.  calcule le rotationnel
+c     a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+c
+c
+      DO  10 l = 1,klevel
+c
+        DO   ij = 1, ip1jm - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = iip1, ip1jm, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+
+ccc        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
+      
+        DO l = 1, klevel
+          DO ij = 1, ip1jm
+           rot(ij,l) = rot(ij,l) * unsairez(ij)
+          ENDDO
+        ENDDO
+c
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotat_nfil.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotat_nfil.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotat_nfil.F	(revision 3330)
@@ -0,0 +1,49 @@
+!
+! $Header$
+!
+      SUBROUTINE rotat_nfil (klevel, x, y, rot )
+c
+c    Auteur :   P.Le Van 
+c**************************************************************
+c.          Calcule le rotationnel  non filtre   ,
+c      a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+c
+c
+      DO  10 l = 1,klevel
+c
+        DO   ij = 1, ip1jm - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = iip1, ip1jm, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotatf.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotatf.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotatf.F	(revision 3330)
@@ -0,0 +1,59 @@
+!
+! $Header$
+!
+      SUBROUTINE rotatf (klevel, x, y, rot )
+c
+c     Auteur : P.Le Van 
+c**************************************************************
+c.  calcule le rotationnel
+c     a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c     Only difference with rotat: call to filtreg.
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+c
+c
+      DO  10 l = 1,klevel
+c
+        DO   ij = 1, ip1jm - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = iip1, ip1jm, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+
+        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
+      
+        DO l = 1, klevel
+          DO ij = 1, ip1jm
+           rot(ij,l) = rot(ij,l) * unsairez(ij)
+          ENDDO
+        ENDDO
+c
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotatst.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotatst.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/rotatst.F	(revision 3330)
@@ -0,0 +1,43 @@
+!
+! $Header$
+!
+      SUBROUTINE rotatst (klevel,x, y, rot )
+c
+c  P. Le Van
+c
+c    *****************************************************************
+c     .. calcule le rotationnel a tous les niveaux d'1 vecteur de comp. x et y ..
+c         x  et  y etant des composantes  covariantes  .....
+c    *****************************************************************
+c        x  et y     sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      IMPLICIT NONE
+c
+      INTEGER klevel
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+      INTEGER  l, ij
+c
+c
+      DO 5 l = 1,klevel
+c
+      DO 1 ij = 1, ip1jm - 1
+      rot( ij,l )  =  (  y( ij+1 , l )  -  y( ij,l )   +
+     *                 x(ij +iip1, l )  -  x( ij,l )  )
+   1  CONTINUE
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+      DO 2 ij = iip1, ip1jm, iip1
+      rot( ij,l ) = rot( ij -iim,l )
+   2  CONTINUE
+c
+   5  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/serre_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/serre_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/serre_mod.F90	(revision 3330)
@@ -0,0 +1,11 @@
+!
+! $Id$
+!
+MODULE serre_mod
+
+IMPLICIT NONE  
+
+      REAL clon,clat,transx,transy,alphax,alphay,pxo,pyo,              &
+        grossismx, grossismy, dzoomx, dzoomy,taux,tauy
+
+END MODULE serre_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/sortvarc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/sortvarc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/sortvarc.F	(revision 3330)
@@ -0,0 +1,201 @@
+!
+! $Id$
+!
+      SUBROUTINE sortvarc
+     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
+     $ vcov )
+
+      USE control_mod, ONLY: resetvarc 
+      USE comconst_mod, ONLY: dtvr, daysec, g, rad, omeg
+      USE logic_mod, ONLY: read_start
+      
+      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 "comgeom.h"
+      INCLUDE "ener.h"
+      INCLUDE "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      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:
+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 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
+       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) = rad *
+     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
+      ptot  = SSUM(ip1jmp1,ge,1)-SSUM(jjp1,ge,iip1)
+      etot  = SSUM(     llm, etotl, 1 )
+      ztot  = SSUM(     llm, ztotl, 1 )
+      stot  = SSUM(     llm, stotl, 1 )
+      rmsv  = SSUM(     llm, rmsvl, 1 )
+      ang   = SSUM(     llm,  angl, 1 )
+
+      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
+         ztot0 = ztot
+         stot0 = stot
+         ang0  = ang
+      END IF
+
+      ! 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)
+      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 
+     *   ,'date',f14.4,4x,10("*"))
+4000   FORMAT(10x,'masse',4x,'rmsdpdt',7x,'energie',2x,'enstrophie'
+     * ,2x,'entropie',3x,'rmsv',4x,'mt.ang',/,'GLOB  '
+     .  ,f10.6,e13.6,5f10.3/
+     * )
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/test_period.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/test_period.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/test_period.F	(revision 3330)
@@ -0,0 +1,116 @@
+!
+! $Header$
+!
+      SUBROUTINE test_period ( ucov, vcov, teta, q, p, phis )
+c
+c     Auteur : P. Le Van  
+c    ---------
+c  ....  Cette routine teste la periodicite en longitude des champs   ucov,
+c                           teta, q , p et phis                 .......... 
+c
+      USE infotrac, ONLY : nqtot
+c
+c     IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+c    ......  Arguments   ......
+c
+      REAL ucov(ip1jmp1,llm), vcov(ip1jm,llm), teta(ip1jmp1,llm) ,
+     ,      q(ip1jmp1,llm,nqtot), p(ip1jmp1,llmp1), phis(ip1jmp1)
+c
+c   .....  Variables  locales  .....
+c
+      INTEGER ij,l,nq
+c
+      DO l = 1, llm
+         DO ij = 1, ip1jmp1, iip1
+          IF( ucov(ij,l).NE.ucov(ij+iim,l) )  THEN
+          PRINT *,'STOP dans test_period car ---  UCOV  ---  n est pas',  
+     ,  ' periodique en longitude ! '
+          PRINT *,' l,  ij = ', l, ij, ij+iim
+          STOP
+          ENDIF
+          IF( teta(ij,l).NE.teta(ij+iim,l) )  THEN
+          PRINT *,'STOP dans test_period car ---  TETA  ---  n est pas',  
+     ,   ' periodique en longitude ! '
+          PRINT *,' l,  ij = ', l, ij, ij+iim
+     ,      , teta(ij,l),   teta(ij+iim,l)
+          STOP
+          ENDIF
+         ENDDO
+
+         do ij=1,iim
+          if (teta(ij,l).ne.teta(1,l)
+     s     .or.teta(ip1jm+ij,l).ne.teta(ip1jm+1,l) ) then
+          PRINT *,'STOP dans test_period car ---  TETA  ---  n est pas',  
+     ,  ' constant aux poles ! '
+          print*,'teta(',1 ,',',l,')=',teta(1 ,l)
+          print*,'teta(',ij,',',l,')=',teta(ij,l)
+          print*,'teta(',ip1jm+1 ,',',l,')=',teta(ip1jm+1 ,l)
+          print*,'teta(',ip1jm+ij,',',l,')=',teta(ip1jm+ij,l)
+          stop
+          endif
+         enddo
+      ENDDO
+
+c
+      DO l = 1, llm
+         DO ij = 1, ip1jm, iip1
+          IF( vcov(ij,l).NE.vcov(ij+iim,l) )  THEN
+          PRINT *,'STOP dans test_period car ---  VCOV  ---  n est pas',  
+     ,   ' periodique en longitude !'
+          PRINT *,' l,  ij = ', l, ij, ij+iim,vcov(ij+iim,l),vcov(ij,l)
+          vcov(ij+iim,l)=vcov(ij,l)
+c         STOP
+          ENDIF
+         ENDDO
+      ENDDO
+      
+c
+      DO nq =1, nqtot
+        DO l =1, llm
+          DO ij = 1, ip1jmp1, iip1
+          IF( q(ij,l,nq).NE.q(ij+iim,l,nq) )  THEN
+          PRINT *,'STOP dans test_period car ---  Q  ---  n est pas ',  
+     ,   'periodique en longitude !'
+          PRINT *,' nq , l,  ij = ', nq, l, ij, ij+iim
+          STOP
+          ENDIF
+          ENDDO
+        ENDDO
+      ENDDO
+c
+       DO l = 1, llm
+         DO ij = 1, ip1jmp1, iip1
+          IF( p(ij,l).NE.p(ij+iim,l) )  THEN
+          PRINT *,'STOP dans test_period car ---  P  ---  n est pas',  
+     ,    ' periodique en longitude !'
+          PRINT *,' l ij = ',l, ij, ij+iim
+          STOP
+          ENDIF
+          IF( phis(ij).NE.phis(ij+iim) )  THEN
+          PRINT *,'STOP dans test_period car ---  PHIS  ---  n est pas',  
+     ,   ' periodique en longitude !  l, IJ = ', l, ij,ij+iim
+          PRINT *,' ij = ', ij, ij+iim
+          STOP
+          ENDIF
+         ENDDO
+         do ij=1,iim
+          if (p(ij,l).ne.p(1,l)
+     s     .or.p(ip1jm+ij,l).ne.p(ip1jm+1,l) ) then
+          PRINT *,'STOP dans test_period car ---  P     ---  n est pas',  
+     ,  ' constant aux poles ! '
+          print*,'p(',1 ,',',l,')=',p(1 ,l)
+          print*,'p(',ij,',',l,')=',p(ij,l)
+          print*,'p(',ip1jm+1 ,',',l,')=',p(ip1jm+1 ,l)
+          print*,'p(',ip1jm+ij,',',l,')=',p(ip1jm+ij,l)
+          stop
+          endif
+         enddo
+       ENDDO
+c
+c
+         RETURN
+         END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/tourpot.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/tourpot.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/tourpot.F90	(revision 3330)
@@ -0,0 +1,45 @@
+SUBROUTINE tourpot ( vcov, ucov, massebxy, vorpot )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van.
+!-------------------------------------------------------------------------------
+! Purpose: Compute potential vorticity.
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: vcov    (ip1jm,  llm)
+  REAL, INTENT(IN)  :: ucov    (ip1jmp1,llm)
+  REAL, INTENT(IN)  :: massebxy(ip1jm,  llm)
+  REAL, INTENT(OUT) :: vorpot  (ip1jm,  llm)
+!===============================================================================
+! Method used:
+!   vorpot = ( Filtre( d(vcov)/dx - d(ucov)/dy ) + fext ) /psbarxy
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ij
+  REAL    :: rot(ip1jm,llm)
+!===============================================================================
+
+!--- Wind vorticity ; correction: rot(iip1,j,l) = rot(1,j,l)
+  DO l=1,llm
+    DO ij=1,ip1jm-1
+      rot(ij,l)=vcov(ij+1,l)-vcov(ij,l)+ucov(ij+iip1,l)-ucov(ij,l)
+    END DO
+    DO ij=iip1,ip1jm,iip1; rot(ij,l)=rot(ij-iim,l); END DO
+  END DO
+
+!--- Filter
+  CALL  filtreg(rot,jjm,llm,2,1,.FALSE.,1)
+
+!--- Potential vorticity ; correction: rot(iip1,j,l) = rot(1,j,l)
+  DO l=1,llm
+    DO ij=1,ip1jm-1
+      vorpot(ij,l)=(rot(ij,l)+fext(ij))/massebxy(ij,l)
+    END DO
+    DO ij=iip1,ip1jm,iip1; vorpot(ij,l)=vorpot(ij-iim,l); END DO
+  END DO
+
+END SUBROUTINE tourpot
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/traceurpole.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/traceurpole.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/traceurpole.F	(revision 3330)
@@ -0,0 +1,63 @@
+!
+! $Id$
+!
+          subroutine traceurpole(q,masse)
+
+          implicit none
+      
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissip.h"
+      include "comgeom2.h"
+      include "ener.h"
+      include "description.h"
+
+
+c   Arguments
+       integer iq
+       real masse(iip1,jjp1,llm)
+       real q(iip1,jjp1,llm)
+       
+
+c   Locals
+      integer i,j,l
+      real sommemassen(llm)
+      real sommemqn(llm)
+      real sommemasses(llm)
+      real sommemqs(llm)
+      real qpolen(llm),qpoles(llm)
+
+    
+c On impose une seule valeur au pôle Sud j=jjm+1=jjp1       
+      sommemasses=0
+      sommemqs=0
+          do l=1,llm
+             do i=1,iip1          
+                 sommemasses(l)=sommemasses(l)+masse(i,jjp1,l)
+                 sommemqs(l)=sommemqs(l)+masse(i,jjp1,l)*q(i,jjp1,l)
+             enddo         
+          qpoles(l)=sommemqs(l)/sommemasses(l)
+          enddo
+
+c On impose une seule valeur du traceur au pôle Nord j=1
+      sommemassen=0
+      sommemqn=0  
+         do l=1,llm
+           do i=1,iip1              
+               sommemassen(l)=sommemassen(l)+masse(i,1,l)
+               sommemqn(l)=sommemqn(l)+masse(i,1,l)*q(i,1,l)
+           enddo
+           qpolen(l)=sommemqn(l)/sommemassen(l) 
+         enddo
+    
+c On force le traceur à prendre cette valeur aux pôles
+        do l=1,llm
+            do i=1,iip1
+               q(i,1,l)=qpolen(l)
+               q(i,jjp1,l)=qpoles(l)
+             enddo
+        enddo
+
+      
+      return
+      end           
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/tracstoke.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/tracstoke.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/tracstoke.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      common /tracstoke/istdyn,istphy,unittrac
+      integer istdyn,istphy,unittrac
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ugeostr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ugeostr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/ugeostr.F90	(revision 3330)
@@ -0,0 +1,69 @@
+!
+! $Id$
+!
+subroutine ugeostr(phi,ucov)
+
+  ! Calcul du vent covariant geostrophique a partir du champ de
+  ! geopotentiel.
+  ! We actually compute: (1 - cos^8 \phi) u_g
+  ! to have a wind going smoothly to 0 at the equator.
+  ! We assume that the surface pressure is uniform so that model
+  ! levels are pressure levels.
+
+  use comconst_mod, only: omeg, rad
+  
+  implicit none
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+
+  real ucov(iip1,jjp1,llm),phi(iip1,jjp1,llm)
+  real um(jjm,llm),fact,u(iip1,jjm,llm)
+  integer i,j,l
+
+  real zlat
+
+  um(:,:)=0 ! initialize um()
+
+  DO j=1,jjm
+
+     if (abs(sin(rlatv(j))).lt.1.e-4) then
+        zlat=1.e-4
+     else
+        zlat=rlatv(j)
+     endif
+     fact=cos(zlat)
+     fact=fact*fact
+     fact=fact*fact
+     fact=fact*fact
+     fact=(1.-fact)/ &
+          (2.*omeg*sin(zlat)*(rlatu(j+1)-rlatu(j)))
+     fact=-fact/rad
+     DO l=1,llm
+        DO i=1,iim
+           u(i,j,l)=fact*(phi(i,j+1,l)-phi(i,j,l))
+           um(j,l)=um(j,l)+u(i,j,l)/REAL(iim)
+        ENDDO
+     ENDDO
+  ENDDO
+  call dump2d(jjm,llm,um,'Vent-u geostrophique')
+
+  !   calcul des champ de vent:
+
+  DO l=1,llm
+     DO i=1,iip1
+        ucov(i,1,l)=0.
+        ucov(i,jjp1,l)=0.
+     end DO
+     DO  j=2,jjm
+        DO  i=1,iim
+           ucov(i,j,l) = 0.5*(u(i,j,l)+u(i,j-1,l))*cu(i,j)
+        end DO
+        ucov(iip1,j,l)=ucov(1,j,l)
+     end DO
+  end DO
+
+  print *, 301
+
+end subroutine ugeostr
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/vitvert.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/vitvert.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/vitvert.F90	(revision 3330)
@@ -0,0 +1,27 @@
+SUBROUTINE vitvert (convm, w)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute vertical speed at sigma levels.
+  USE comvert_mod, ONLY: bp
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: convm(ip1jmp1,llm)
+  REAL, INTENT(OUT) :: w    (ip1jmp1,llm)
+!===============================================================================
+! Notes: Vertical speed is oriented from bottom to top.
+!   * At ground - level sigma(1):     w(i,j,1) = 0.
+!   * At top    - level sigma(llm+1): w(i,j,l) = 0. (not stored in w)
+!===============================================================================
+! Local variables:
+  INTEGER :: l
+!===============================================================================
+  DO l=1,llmm1; w(:,l+1)=convm(:,l+1)-bp(l+1)*convm(:,1); END DO
+  w(:,1)=0.
+
+END SUBROUTINE vitvert
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/write_grads_dyn.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/write_grads_dyn.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/write_grads_dyn.h	(revision 3330)
@@ -0,0 +1,31 @@
+!
+! $Header$
+!
+      if (callinigrads) then
+
+         string10='dyn'
+         call inigrads(1,iip1
+     s  ,rlonv,180./pi,-180.,180.,jjp1,rlatu,-90.,90.,180./pi
+     s  ,llm,presnivs,1.
+     s  ,dtvr*iperiod,string10,'dyn_zon ')
+
+        callinigrads=.false.
+
+
+      endif
+
+      string10='ps'
+      CALL wrgrads(1,1,ps,string10,string10)
+
+      string10='u'
+      CALL wrgrads(1,llm,unat,string10,string10)
+      string10='v'
+      CALL wrgrads(1,llm,vnat,string10,string10)
+      string10='teta'
+      CALL wrgrads(1,llm,teta,string10,string10)
+      do iq=1,nqtot
+         string10='q'
+         write(string10(2:2),'(i1)') iq
+         CALL wrgrads(1,llm,q(:,:,iq),string10,string10)
+      enddo
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/writedynav.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/writedynav.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/writedynav.F90	(revision 3330)
@@ -0,0 +1,138 @@
+! $Id$
+
+subroutine writedynav(time, vcov, ucov, teta, ppk, phi, q, masse, ps, phis)
+
+#ifdef CPP_IOIPSL
+  USE ioipsl
+#endif
+  USE infotrac, ONLY : nqtot, ttext
+  use com_io_dyn_mod, only : histaveid, histvaveid, histuaveid
+  USE comconst_mod, ONLY: cpp
+  USE temps_mod, ONLY: itau_dyn
+
+  implicit none
+
+  !   Ecriture du fichier histoire au format IOIPSL
+
+  !   Appels succesifs des routines: histwrite
+
+  !   Entree:
+  !      time: temps de l'ecriture
+  !      vcov: vents v covariants
+  !      ucov: vents u covariants
+  !      teta: temperature potentielle
+  !      phi : geopotentiel instantane
+  !      q   : traceurs
+  !      masse: masse
+  !      ps   :pression au sol
+  !      phis : geopotentiel au sol
+
+  !   L. Fairhead, LMD, 03/99
+
+  !   Declarations
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+
+  !   Arguments
+
+  REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
+  REAL teta(ip1jmp1*llm), phi(ip1jmp1, llm), ppk(ip1jmp1*llm)     
+  REAL ps(ip1jmp1), masse(ip1jmp1, llm)                   
+  REAL phis(ip1jmp1)                  
+  REAL q(ip1jmp1, llm, nqtot)
+  integer time
+
+#ifdef CPP_IOIPSL
+  ! This routine needs IOIPSL to work
+  !   Variables locales
+
+  integer ndex2d(ip1jmp1), ndexu(ip1jmp1*llm), ndexv(ip1jm*llm)
+  INTEGER iq, ii, ll
+  real tm(ip1jmp1*llm)
+  REAL vnat(ip1jm, llm), unat(ip1jmp1, llm) 
+  logical ok_sync
+  integer itau_w
+
+  !-----------------------------------------------------------------
+
+  !  Initialisations
+
+  ndexu = 0
+  ndexv = 0
+  ndex2d = 0
+  ok_sync = .TRUE.
+  tm = 999.999
+  vnat = 999.999
+  unat = 999.999
+  itau_w = itau_dyn + time
+
+  ! Passage aux composantes naturelles du vent
+  call covnat(llm, ucov, vcov, unat, vnat)
+
+  !  Appels a histwrite pour l'ecriture des variables a sauvegarder
+
+  !  Vents U 
+
+  call histwrite(histuaveid, 'u', itau_w, unat,  &
+       iip1*jjp1*llm, ndexu)
+
+  !  Vents V
+
+  call histwrite(histvaveid, 'v', itau_w, vnat,  &
+       iip1*jjm*llm, ndexv)
+
+  !  Temperature potentielle moyennee
+
+  call histwrite(histaveid, 'theta', itau_w, teta,  &
+       iip1*jjp1*llm, ndexu)
+
+  !  Temperature moyennee
+
+  do ii = 1, ijp1llm
+     tm(ii) = teta(ii) * ppk(ii)/cpp
+  enddo
+  call histwrite(histaveid, 'temp', itau_w, tm,  &
+       iip1*jjp1*llm, ndexu)
+
+  !  Geopotentiel
+
+  call histwrite(histaveid, 'phi', itau_w, phi,  &
+       iip1*jjp1*llm, ndexu)
+
+  !  Traceurs
+
+  !  DO iq=1, nqtot
+  !       call histwrite(histaveid, ttext(iq), itau_w, q(:, :, iq), &
+  !                   iip1*jjp1*llm, ndexu)
+  ! enddo
+
+  !  Masse
+
+  call histwrite(histaveid, 'masse', itau_w, masse,  &
+       iip1*jjp1*llm, ndexu)
+
+  !  Pression au sol
+
+  call histwrite(histaveid, 'ps', itau_w, ps, iip1*jjp1, ndex2d)
+
+  ! Geopotentiel au sol
+
+  ! call histwrite(histaveid, 'phis', itau_w, phis, iip1*jjp1, ndex2d)
+
+  if (ok_sync) then
+     call histsync(histaveid)
+     call histsync(histvaveid)
+     call histsync(histuaveid)
+  ENDIF
+
+#else
+  write(lunout, *) "writedynav: Warning this routine should not be", &
+       " used without ioipsl"
+#endif
+  ! of #ifdef CPP_IOIPSL
+
+end subroutine writedynav
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/writehist.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/writehist.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3d_common/writehist.F	(revision 3330)
@@ -0,0 +1,133 @@
+!
+! $Id$
+!
+      subroutine writehist(time,vcov,ucov,teta,phi,q,masse,ps,phis)
+
+#ifdef CPP_IOIPSL
+      USE ioipsl
+#endif
+      USE infotrac, ONLY : nqtot, ttext
+      use com_io_dyn_mod, only : histid,histvid,histuid
+      USE temps_mod, ONLY: itau_dyn
+      
+      implicit none
+
+C
+C   Ecriture du fichier histoire au format IOIPSL
+C
+C   Appels succesifs des routines: histwrite
+C
+C   Entree:
+C      time: temps de l'ecriture
+C      vcov: vents v covariants
+C      ucov: vents u covariants
+C      teta: temperature potentielle
+C      phi : geopotentiel instantane
+C      q   : traceurs
+C      masse: masse
+C      ps   :pression au sol
+C      phis : geopotentiel au sol
+C      
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C
+C   Arguments
+C
+
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
+      REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm)                   
+      REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
+      REAL phis(ip1jmp1)                  
+      REAL q(ip1jmp1,llm,nqtot)
+      integer time
+
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL to work
+C   Variables locales
+C
+      integer iq, ii, ll
+      integer ndexu(ip1jmp1*llm),ndexv(ip1jm*llm),ndex2d(ip1jmp1)
+      logical ok_sync
+      integer itau_w
+      REAL vnat(ip1jm,llm),unat(ip1jmp1,llm)
+
+C
+C  Initialisations
+C
+      ndexu = 0
+      ndexv = 0
+      ndex2d = 0
+      ok_sync =.TRUE.
+      itau_w = itau_dyn + time
+!  Passage aux composantes naturelles du vent
+      call covnat(llm, ucov, vcov, unat, vnat)
+C
+C  Appels a histwrite pour l'ecriture des variables a sauvegarder
+C
+C  Vents U
+C
+      call histwrite(histuid, 'u', itau_w, unat, 
+     .               iip1*jjp1*llm, ndexu)
+C
+C  Vents V
+C
+      call histwrite(histvid, 'v', itau_w, vnat, 
+     .               iip1*jjm*llm, ndexv)
+
+C
+C  Temperature potentielle
+C
+      call histwrite(histid, 'teta', itau_w, teta, 
+     .                iip1*jjp1*llm, ndexu)
+C
+C  Geopotentiel
+C
+      call histwrite(histid, 'phi', itau_w, phi, 
+     .                iip1*jjp1*llm, ndexu)
+C
+C  Traceurs
+C
+!        DO iq=1,nqtot
+!          call histwrite(histid, ttext(iq), itau_w, q(:,:,iq), 
+!     .                   iip1*jjp1*llm, ndexu)
+!        enddo
+!C
+C  Masse
+C
+      call histwrite(histid,'masse',itau_w, masse,iip1*jjp1*llm,ndexu)
+C
+C  Pression au sol
+C
+      call histwrite(histid, 'ps', itau_w, ps, iip1*jjp1, ndex2d)
+C
+C  Geopotentiel au sol
+C
+!      call histwrite(histid, 'phis', itau_w, phis, iip1*jjp1, ndex2d)
+C
+C  Fin
+C
+      if (ok_sync) then
+        call histsync(histid)
+        call histsync(histvid)
+        call histsync(histuid)
+      endif
+#else
+! tell the user this routine should be run with ioipsl
+      write(lunout,*)"writehist: Warning this routine should not be",
+     &               " used without ioipsl"
+#endif
+! of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/abort_gcm.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/abort_gcm.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/abort_gcm.F	(revision 3330)
@@ -0,0 +1,57 @@
+!
+! $Id: abort_gcm.F 1747 2013-04-23 14:06:30Z lguez $
+!
+c
+c
+      SUBROUTINE abort_gcm(modname, message, ierr)
+     
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin_dump
+      USE ioipsl_getincom
+#endif
+      USE parallel_lmdz
+#include "iniprint.h"
+ 
+C
+C Stops the simulation cleanly, closing files and printing various
+C comments
+C
+C  Input: modname = name of calling program
+C         message = stuff to print
+C         ierr    = severity of situation ( = 0 normal )
+
+      character(len=*), intent(in):: modname
+      integer ierr, ierror_mpi
+      character(len=*), intent(in):: message
+
+      write(lunout,*) 'in abort_gcm'
+#ifdef CPP_IOIPSL
+c$OMP MASTER
+      call histclo
+      call restclo
+      if (MPI_rank .eq. 0) then
+         call getin_dump
+      endif
+c$OMP END MASTER
+#endif
+c     call histclo(2)
+c     call histclo(3)
+c     call histclo(4)
+c     call histclo(5)
+      write(lunout,*) 'Stopping in ', modname
+      write(lunout,*) 'Reason = ',message
+      if (ierr .eq. 0) then
+        write(lunout,*) 'Everything is cool'
+      else
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+#ifdef CPP_MPI
+C$OMP CRITICAL (MPI_ABORT_GCM)
+        call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
+C$OMP END CRITICAL (MPI_ABORT_GCM)
+#else
+        stop 1
+#endif          
+      endif
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/addfi_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/addfi_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/addfi_loc.F	(revision 3330)
@@ -0,0 +1,263 @@
+!
+! $Id$
+!
+      SUBROUTINE addfi_loc(pdt, leapf, forward,
+     S          pucov, pvcov, pteta, pq   , pps ,
+     S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot
+      USE control_mod, ONLY : planet_type
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c    Addition of the physical tendencies
+c
+c    Interface :
+c    -----------
+c
+c      Input :
+c      -------
+c      pdt                    time step of integration
+c      leapf                  logical
+c      forward                logical
+c      pucov(ip1jmp1,llm)     first component of the covariant velocity
+c      pvcov(ip1ip1jm,llm)    second component of the covariant velocity
+c      pteta(ip1jmp1,llm)     potential temperature
+c      pts(ip1jmp1,llm)       surface temperature
+c      pdufi(ip1jmp1,llm)     |
+c      pdvfi(ip1jm,llm)       |   respective
+c      pdhfi(ip1jmp1)         |      tendencies
+c      pdtsfi(ip1jmp1)        |
+c
+c      Output :
+c      --------
+c      pucov
+c      pvcov
+c      ph
+c      pts
+c
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c
+c    0.  Declarations :
+c    ------------------
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c    Arguments :
+c    -----------
+c
+      REAL,INTENT(IN) :: pdt ! time step for the integration (s)
+c
+      REAL,INTENT(INOUT) :: pvcov(ijb_v:ije_v,llm) ! covariant meridional wind
+      REAL,INTENT(INOUT) :: pucov(ijb_u:ije_u,llm) ! covariant zonal wind
+      REAL,INTENT(INOUT) :: pteta(ijb_u:ije_u,llm) ! potential temperature
+      REAL,INTENT(INOUT) :: pq(ijb_u:ije_u,llm,nqtot) ! tracers
+      REAL,INTENT(INOUT) :: pps(ijb_u:ije_u) ! surface pressure (Pa)
+c respective tendencies (.../s) to add
+      REAL,INTENT(IN) :: pdvfi(ijb_v:ije_v,llm)
+      REAL,INTENT(IN) :: pdufi(ijb_u:ije_u,llm)
+      REAL,INTENT(IN) :: pdqfi(ijb_u:ije_u,llm,nqtot)
+      REAL,INTENT(IN) :: pdhfi(ijb_u:ije_u,llm)
+      REAL,INTENT(IN) :: pdpfi(ijb_u:ije_u)
+c
+      LOGICAL,INTENT(IN) :: leapf,forward ! not used
+c
+c
+c    Local variables :
+c    -----------------
+c
+      REAL xpn(iim),xps(iim),tpn,tps
+      INTEGER j,k,iq,ij
+      REAL,PARAMETER :: qtestw = 1.0e-15
+      REAL,PARAMETER :: qtestt = 1.0e-40
+
+      REAL SSUM
+      EXTERNAL SSUM
+      
+      INTEGER :: ijb,ije
+c
+c-----------------------------------------------------------------------
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO k = 1,llm
+         DO j = ijb,ije
+            pteta(j,k)= pteta(j,k) + pdhfi(j,k) * pdt
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      if (pole_nord) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO  k    = 1, llm
+         DO  ij   = 1, iim
+           xpn(ij) = aire(   ij   ) * pteta(  ij    ,k)
+         ENDDO
+         tpn      = SSUM(iim,xpn,1)/ apoln
+
+         DO ij   = 1, iip1
+           pteta(   ij   ,k)  = tpn
+         ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+      endif
+
+      if (pole_sud) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO  k    = 1, llm
+         DO  ij   = 1, iim
+           xps(ij) = aire(ij+ip1jm) * pteta(ij+ip1jm,k)
+         ENDDO
+         tps      = SSUM(iim,xps,1)/ apols
+
+         DO ij   = 1, iip1
+           pteta(ij+ip1jm,k)  = tps
+         ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+      endif
+c
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO k = 1,llm
+         DO j = ijb,ije
+            pucov(j,k)= pucov(j,k) + pdufi(j,k) * pdt
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      if (pole_nord) ijb=ij_begin
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO k = 1,llm
+         DO j = ijb,ije
+            pvcov(j,k)= pvcov(j,k) + pdvfi(j,k) * pdt
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+      if (pole_sud)  ije=ij_end
+c$OMP MASTER
+      DO j = ijb,ije
+         pps(j) = pps(j) + pdpfi(j) * pdt
+      ENDDO
+c$OMP END MASTER
+ 
+      if (planet_type=="earth") then
+      ! earth case, special treatment for first 2 tracers (water)
+      DO iq = 1, 2
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO k = 1,llm
+            DO j = ijb,ije
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestw )
+            ENDDO
+         ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+
+      DO iq = 3, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO k = 1,llm
+            DO j = ijb,ije
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
+            ENDDO
+         ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+      else
+      ! general case, treat all tracers equally)
+       DO iq = 1, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO k = 1,llm
+            DO j = ijb,ije
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
+            ENDDO
+         ENDDO
+c$OMP END DO NOWAIT
+       ENDDO
+      endif ! of if (planet_type=="earth")
+
+c$OMP MASTER
+      if (pole_nord) then
+      
+        DO  ij   = 1, iim
+          xpn(ij) = aire(   ij   ) * pps(  ij     )
+        ENDDO
+
+        tpn      = SSUM(iim,xpn,1)/apoln
+
+        DO ij   = 1, iip1
+          pps (   ij     )  = tpn
+        ENDDO
+      
+      endif
+
+      if (pole_sud) then
+      
+        DO  ij   = 1, iim
+          xps(ij) = aire(ij+ip1jm) * pps(ij+ip1jm )
+        ENDDO
+
+        tps      = SSUM(iim,xps,1)/apols
+
+        DO ij   = 1, iip1
+          pps ( ij+ip1jm )  = tps
+        ENDDO
+      
+      endif
+c$OMP END MASTER
+
+      if (pole_nord) then
+        DO iq = 1, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO  k    = 1, llm
+            DO  ij   = 1, iim
+              xpn(ij) = aire(   ij   ) * pq(  ij    ,k,iq)
+            ENDDO
+            tpn      = SSUM(iim,xpn,1)/apoln
+  
+            DO ij   = 1, iip1
+              pq (   ij   ,k,iq)  = tpn
+            ENDDO
+          ENDDO
+c$OMP END DO NOWAIT	  
+        ENDDO
+      endif
+      
+      if (pole_sud) then
+        DO iq = 1, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO  k    = 1, llm
+            DO  ij   = 1, iim
+              xps(ij) = aire(ij+ip1jm) * pq(ij+ip1jm,k,iq)
+            ENDDO
+            tps      = SSUM(iim,xps,1)/apols
+  
+            DO ij   = 1, iip1
+              pq (ij+ip1jm,k,iq)  = tps
+            ENDDO
+          ENDDO
+c$OMP END DO NOWAIT	  
+        ENDDO
+      endif
+      
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advect_new_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advect_new_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advect_new_loc.F	(revision 3330)
@@ -0,0 +1,295 @@
+!
+! $Header$
+!
+      SUBROUTINE advect_new_loc(ucov,vcov,teta,w,massebx,masseby,
+     &                        du,dv,dteta)
+      USE parallel_lmdz
+      USE write_field_loc
+      USE advect_new_mod
+      USE comconst_mod, ONLY: daysec
+      USE logic_mod, ONLY: conser
+      
+      IMPLICIT NONE
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , Fr. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *************************************************************
+c   .... calcul des termes d'advection vertic.pour u,v,teta,q ...
+c   *************************************************************
+c        ces termes sont ajoutes a du,dv,dteta et dq .
+c  Modif F.Forget 03/94 : on retire q de advect
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+
+c   Arguments:
+c   ----------
+
+      REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm)
+      REAL teta(ijb_u:ije_u,llm)
+      REAL massebx(ijb_u:ije_u,llm),masseby(ijb_v:ije_v,llm)
+      REAL w(ijb_u:ije_u,llm)
+      REAL dv(ijb_v:ije_v,llm),du(ijb_u:ije_u,llm)
+      REAL dteta(ijb_u:ije_u,llm)
+c   Local:
+c   ------
+
+      REAL wsur2(ijb_u:ije_u)
+      REAL unsaire2(ijb_u:ije_u), ge(ijb_u:ije_u)
+      REAL deuxjour, ww, gt, uu, vv
+
+      INTEGER  ij,l,ijb,ije
+      EXTERNAL  SSUM
+      REAL      SSUM
+
+
+
+c-----------------------------------------------------------------------
+c   2. Calculs preliminaires:
+c   -------------------------
+      
+      IF (conser.AND.1==0)  THEN
+         deuxjour = 2. * daysec
+
+         DO   1  ij   = 1, ip1jmp1
+         unsaire2(ij) = unsaire(ij) * unsaire(ij)
+   1     CONTINUE
+      END IF
+
+
+c------------------  -yy ----------------------------------------------
+c   .  Calcul de     u
+
+c$OMP MASTER
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+      DO ij=ijb,ije
+        du2(ij,1)=0.
+        du1(ij,llm)=0.
+      ENDDO
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+        dv2(ij,1)=0.
+        dv1(ij,llm)=0.
+      ENDDO
+      
+      ijb=ij_begin
+      ije=ij_end
+
+      DO ij=ijb,ije
+        dteta2(ij,1)=0.
+        dteta1(ij,llm)=0.
+      ENDDO
+c$OMP END MASTER
+c$OMP BARRIER
+ 
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+      DO  l=1,llm
+         
+         ijb=ij_begin
+         ije=ij_end
+         if (pole_nord) ijb=ijb+iip1
+         if (pole_sud)  ije=ije-iip1
+         
+c         DO    ij     = iip2, ip1jmp1
+c            uav(ij,l) = 0.25 * ( ucov(ij,l) + ucov(ij-iip1,l) )
+c         ENDDO
+
+c         DO    ij     = iip2, ip1jm
+c            uav(ij,l) = uav(ij,l) + uav(ij+iip1,l)
+c         ENDDO
+         
+         DO    ij     = ijb, ije
+                  
+           uav(ij,l)=0.25*(ucov(ij,l)+ucov(ij-iip1,l))
+     .               +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
+         ENDDO
+         
+         if (pole_nord) then
+           DO      ij         = 1, iip1
+              uav(ij      ,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_sud) then
+           DO      ij         = 1, iip1
+              uav(ip1jm+ij,l) = 0.
+           ENDDO
+         endif
+         
+      ENDDO
+c$OMP END DO      
+c      call write_field3d_p('uav',reshape(uav,(/iip1,jjp1,llm/)))
+      
+c------------------  -xx ----------------------------------------------
+c   .  Calcul de     v
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO  l=1,llm
+         
+         DO    ij   = ijb+1, ije
+           vav(ij,l) = 0.25 * ( vcov(ij,l) + vcov(ij-1,l) )
+         ENDDO
+         
+         DO    ij   = ijb,ije,iip1
+          vav(ij,l) = vav(ij+iim,l)
+         ENDDO
+         
+         
+         DO    ij   = ijb, ije-1
+          vav(ij,l) = vav(ij,l) + vav(ij+1,l)
+         ENDDO
+         
+         DO    ij       = ijb, ije, iip1
+          vav(ij+iim,l) = vav(ij,l)
+         ENDDO
+         
+      ENDDO
+c$OMP END DO
+c       call write_field3d_p('vav',reshape(vav,(/iip1,jjm,llm/)))
+
+c-----------------------------------------------------------------------
+c$OMP BARRIER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 20 l = 1, llmm1
+
+
+c       ......   calcul de  - w/2.    au niveau  l+1   .......
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if (pole_sud)  ije=ij_end
+      
+      DO 5   ij   = ijb, ije
+      wsur2( ij ) = - 0.5 * w( ij,l+1 )
+   5  CONTINUE
+
+
+c     .....................     calcul pour  du     ..................
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+         
+      DO 6 ij = ijb ,ije-1
+      ww        = wsur2 (  ij  )     + wsur2( ij+1 ) 
+      uu        = 0.5 * ( ucov(ij,l) + ucov(ij,l+1) )
+      du1(ij,l)  =  ww * ( uu - uav(ij, l ) )/massebx(ij, l )
+      du2(ij,l+1)=  ww * ( uu - uav(ij,l+1) )/massebx(ij,l+1)
+   6  CONTINUE
+
+c     .................    calcul pour   dv      .....................
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 8 ij = ijb, ije
+      ww        = wsur2( ij+iip1 )   + wsur2( ij )
+      vv        = 0.5 * ( vcov(ij,l) + vcov(ij,l+1) )
+      dv1(ij,l)  =  ww * (vv - vav(ij, l ) )/masseby(ij, l )
+      dv2(ij,l+1)=  ww * (vv - vav(ij,l+1) )/masseby(ij,l+1)
+   8  CONTINUE
+
+c
+
+c     ............................................................
+c     ...............    calcul pour   dh      ...................
+c     ............................................................
+
+c                       ---z
+c       calcul de  - d( teta  * w )      qu'on ajoute a   dh
+c                   ...............
+        ijb=ij_begin
+        ije=ij_end
+        
+        DO 15 ij = ijb, ije
+         ww            = wsur2(ij) * (teta(ij,l) + teta(ij,l+1) )
+         dteta1(ij, l ) =   ww
+         dteta2(ij,l+1) =   ww
+  15    CONTINUE
+
+c ym ---> conser a voir plus tard
+
+c      IF( conser)  THEN
+c        
+c        DO 17 ij = 1,ip1jmp1
+c        ge(ij)   = wsur2(ij) * wsur2(ij) * unsaire2(ij)
+c  17    CONTINUE
+c        gt       = SSUM( ip1jmp1,ge,1 )
+c        gtot(l)  = deuxjour * SQRT( gt/ip1jmp1 )
+c      END IF
+
+  20  CONTINUE
+c$OMP END DO
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+#ifdef DEBUG_IO    
+       CALL WriteField_u('du_bis',du)     
+#endif
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+        DO ij=ijb,ije-1
+	  du(ij,l)=du(ij,l)+du2(ij,l)-du1(ij,l)
+	ENDDO
+
+        DO   ij   = ijb+iip1-1, ije, iip1
+         du( ij, l  ) = du( ij -iim, l  )
+        ENDDO 
+      ENDDO
+c$OMP END DO NOWAIT
+#ifdef DEBUG_IO    
+      CALL WriteField_u('du1',du1)      
+      CALL WriteField_u('du2',du2)      
+      CALL WriteField_u('du_bis',du)      
+#endif
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+        DO ij=ijb,ije
+	  dv(ij,l)=dv(ij,l)+dv2(ij,l)-dv1(ij,l)
+	ENDDO
+      ENDDO
+c$OMP END DO NOWAIT      
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO l=1,llm
+        DO ij=ijb,ije
+	  dteta(ij,l)=dteta(ij,l)+dteta2(ij,l)-dteta1(ij,l)
+	ENDDO
+      ENDDO
+c$OMP END DO NOWAIT      
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advect_new_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advect_new_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advect_new_mod.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE advect_new_mod
+
+  REAL,POINTER,SAVE :: dv1(:,:)
+  REAL,POINTER,SAVE :: du1(:,:)
+  REAL,POINTER,SAVE :: dteta1(:,:)
+  REAL,POINTER,SAVE :: dv2(:,:)
+  REAL,POINTER,SAVE :: du2(:,:)
+  REAL,POINTER,SAVE :: dteta2(:,:)
+  REAL,POINTER,SAVE :: uav(:,:)
+  REAL,POINTER,SAVE :: vav(:,:)
+
+  
+CONTAINS
+
+  SUBROUTINE advect_new_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  TYPE(distrib),POINTER :: d
+
+
+    d=>distrib_caldyn
+    CALL allocate_v(dv1,llm,d)
+    CALL allocate_u(du1,llm,d)
+    CALL allocate_u(dteta1,llm,d)
+    CALL allocate_v(dv2,llm,d)
+    CALL allocate_u(du2,llm,d)
+    CALL allocate_u(dteta2,llm,d)
+    CALL allocate_u(uav,llm,d)
+    CALL allocate_v(vav,llm,d)
+ 
+    
+  END SUBROUTINE advect_new_allocate
+  
+  SUBROUTINE advect_new_switch_caldyn(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_v(dv1,distrib_caldyn,dist)
+    CALL switch_u(du1,distrib_caldyn,dist)
+    CALL switch_u(dteta1,distrib_caldyn,dist)
+    CALL switch_v(dv2,distrib_caldyn,dist)
+    CALL switch_u(du2,distrib_caldyn,dist)
+    CALL switch_u(dteta2,distrib_caldyn,dist)
+    CALL switch_u(uav,distrib_caldyn,dist)
+    CALL switch_v(vav,distrib_caldyn,dist)
+
+  END SUBROUTINE advect_new_switch_caldyn
+  
+END MODULE advect_new_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advtrac_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advtrac_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advtrac_loc.F	(revision 3330)
@@ -0,0 +1,368 @@
+!
+! $Id$
+!
+c
+c
+#define DEBUG_IO
+#undef DEBUG_IO
+      SUBROUTINE advtrac_loc(pbarug,pbarvg ,wg,
+     *                   p,  massem,q,teta,
+     *                   pk   )
+
+c     Auteur :  F. Hourdin
+c
+c     Modif. P. Le Van     (20/12/97)
+c            F. Codron     (10/99)
+c            D. Le Croller (07/2001)
+c            M.A Filiberti (04/2002)
+c
+      USE parallel_lmdz
+      USE Write_Field_loc
+      USE Write_Field
+      USE Bands
+      USE mod_hallo
+      USE Vampir
+      USE times
+      USE infotrac, ONLY: nqtot, iadv, ok_iso_verif
+      USE control_mod, ONLY: iapp_tracvl, day_step, planet_type
+      USE advtrac_mod, ONLY: finmasse
+      USE comconst_mod, ONLY: dtvr
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissip.h"
+      include "comgeom2.h"
+      include "ener.h"
+      include "description.h"
+
+c-------------------------------------------------------------------
+c     Arguments
+c-------------------------------------------------------------------
+c     Ajout PPM
+c--------------------------------------------------------
+      REAL massebx(ijb_u:ije_u,llm),masseby(ijb_v:ije_v,llm)
+c--------------------------------------------------------
+      INTEGER iapptrac
+      REAL pbarug(ijb_u:ije_u,llm),pbarvg(ijb_v:ije_v,llm)
+      REAL wg(ijb_u:ije_u,llm)
+      REAL q(ijb_u:ije_u,llm,nqtot),massem(ijb_u:ije_u,llm)
+      REAL p( ijb_u:ije_u,llmp1 ),teta(ijb_u:ije_u,llm)
+      REAL pk(ijb_u:ije_u,llm)
+
+c-------------------------------------------------------------
+c     Variables locales
+c-------------------------------------------------------------
+
+      REAL zdp(ijb_u:ije_u)
+      REAL (kind=kind(1.d0)) :: t_initial, t_final, tps_cpu
+      INTEGER,SAVE :: iadvtr=0
+c$OMP THREADPRIVATE(iadvtr)
+      INTEGER ij,l,iq,iiq
+      REAL zdpmin, zdpmax
+c----------------------------------------------------------
+c     Rajouts pour PPM
+c----------------------------------------------------------
+      INTEGER indice,n
+      REAL dtbon ! Pas de temps adaptatif pour que CFL<1
+      REAL CFLmaxz,aaa,bbb ! CFL maximum
+      REAL psppm(iim,jjb_u:jje_u) ! pression  au sol
+      REAL unatppm(iim,jjb_u:jje_u,llm),vnatppm(iim,jjb_u:jje_u,llm)
+      REAL qppm(iim*jjnb_u,llm,nqtot)
+      REAL fluxwppm(iim,jjb_u:jje_u,llm)
+      REAL apppm(llmp1), bpppm(llmp1)
+      LOGICAL dum,fill
+      DATA fill/.true./
+      DATA dum/.true./
+      integer ijb,ije,ijbu,ijbv,ijeu,ijev,j
+      type(Request),SAVE :: testRequest
+!$OMP THREADPRIVATE(testRequest)
+
+c  test sur l''eventuelle creation de valeurs negatives de la masse
+         ijb=ij_begin
+         ije=ij_end
+         if (pole_nord) ijb=ij_begin+iip1
+         if (pole_sud) ije=ij_end-iip1
+         
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+         DO l=1,llm-1
+            DO ij = ijb+1,ije
+              zdp(ij) =    pbarug(ij-1,l)   - pbarug(ij,l)
+     s                  - pbarvg(ij-iip1,l) + pbarvg(ij,l)
+     s                  +       wg(ij,l+1)  - wg(ij,l)
+            ENDDO
+            
+c            CALL SCOPY( jjm -1 ,zdp(iip1+iip1),iip1,zdp(iip2),iip1 )
+c ym  ---> pourquoi jjm-1 et non jjm ? a cause du pole ?
+            
+            do ij=ijb,ije-iip1+1,iip1
+              zdp(ij)=zdp(ij+iip1-1)
+            enddo
+            
+            DO ij = ijb,ije
+               zdp(ij)= zdp(ij)*dtvr/ massem(ij,l) 
+            ENDDO 
+
+
+c            CALL minmax ( ip1jm-iip1, zdp(iip2), zdpmin,zdpmax )
+c  ym ---> eventuellement a revoir
+            CALL minmax ( ije-ijb+1, zdp(ijb), zdpmin,zdpmax )
+            
+            IF(MAX(ABS(zdpmin),ABS(zdpmax)).GT.0.5) THEN
+            PRINT*,'WARNING DP/P l=',l,'  MIN:',zdpmin,
+     s        '   MAX:', zdpmax
+            ENDIF
+
+         ENDDO
+c$OMP END DO NOWAIT
+
+c-------------------------------------------------------------------
+c   Advection proprement dite (Modification Le Croller (07/2001)
+c-------------------------------------------------------------------
+
+c----------------------------------------------------
+c        Calcul des moyennes basées sur la masse
+c----------------------------------------------------
+
+cym      ----> Normalement, inutile pour les schémas classiques
+cym      ----> Revérifier lors de la parallélisation des autres schemas
+   
+cym          call massbar_p(massem,massebx,masseby)          
+
+#ifdef DEBUG_IO    
+          CALL WriteField_u('massem',massem)
+          CALL WriteField_u('wg',wg)
+          CALL WriteField_u('pbarug',pbarug)
+          CALL WriteField_v('pbarvg',pbarvg)
+          CALL WriteField_u('p_tmp',p)
+          CALL WriteField_u('pk_tmp',pk)
+          CALL WriteField_u('teta_tmp',teta)
+          do j=1,nqtot
+            call WriteField_u('q_adv'//trim(int2str(j)),
+     .                q(:,:,j))
+          enddo
+#endif
+
+!          
+!       call Register_Hallo_v(pbarvg,llm,1,1,1,1,TestRequest)
+!
+!       call SendRequest(TestRequest)
+!c$OMP BARRIER
+!       call WaitRequest(TestRequest)
+c$OMP BARRIER
+                 
+          !write(*,*) 'advtrac 157: appel de vlspltgen_loc'
+          call vlspltgen_loc( q,iadv, 2., massem, wg ,
+     *                        pbarug,pbarvg,dtvr,p,
+     *                        pk,teta )
+
+          !write(*,*) 'advtrac 162: apres appel vlspltgen_loc'
+      if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'advtrac 162')
+      endif !if (ok_iso_verif) then
+
+#ifdef DEBUG_IO     
+          do j=1,nqtot
+            call WriteField_u('q_adv'//trim(int2str(j)),
+     .                q(:,:,j))
+          enddo
+#endif
+         
+          GOTO 1234     
+c-----------------------------------------------------------
+c     Appel des sous programmes d'advection
+c-----------------------------------------------------------
+      do iq=1,nqtot
+c        call clock(t_initial)
+        if(iadv(iq) == 0) cycle 
+c   ----------------------------------------------------------------
+c   Schema de Van Leer I MUSCL
+c   ----------------------------------------------------------------
+        if(iadv(iq).eq.10) THEN
+     
+!LF            call vlsplt_p(q(1,1,iq),2.,massem,wg,pbarug,pbarvg,dtvr)
+
+c   ----------------------------------------------------------------
+c   Schema "pseudo amont" + test sur humidite specifique
+C    pour la vapeur d'eau. F. Codron
+c   ----------------------------------------------------------------
+        else if(iadv(iq).eq.14) then
+c
+cym           stop 'advtrac : appel à vlspltqs :schema non parallelise'
+!LF           CALL vlspltqs_p( q(1,1,1), 2., massem, wg ,
+!LF     *                 pbarug,pbarvg,dtvr,p,pk,teta )
+c   ----------------------------------------------------------------
+c   Schema de Frederic Hourdin
+c   ----------------------------------------------------------------
+        else if(iadv(iq).eq.12) then
+          stop 'advtrac : schema non parallelise'
+c            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+           write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=',
+     s             dtvr,'n=',n
+           endif
+           do indice=1,n
+            call advn(q(1,1,iq),massem,wg,pbarug,pbarvg,dtbon,1)
+           end do
+        else if(iadv(iq).eq.13) then
+          stop 'advtrac : schema non parallelise'
+c            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+           write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=',
+     s             dtvr,'n=',n
+           endif
+          do indice=1,n
+            call advn(q(1,1,iq),massem,wg,pbarug,pbarvg,dtbon,2)
+          end do
+c   ----------------------------------------------------------------
+c   Schema de pente SLOPES
+c   ----------------------------------------------------------------
+        else if (iadv(iq).eq.20) then
+          stop 'advtrac : schema non parallelise'
+
+            call pentes_ini (q(1,1,iq),wg,massem,pbarug,pbarvg,0)
+
+c   ----------------------------------------------------------------
+c   Schema de Prather
+c   ----------------------------------------------------------------
+        else if (iadv(iq).eq.30) then
+          stop 'advtrac : schema non parallelise'
+c            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+           write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=',
+     s             dtvr,'n=',n
+           endif
+           call  prather(q(1,1,iq),wg,massem,pbarug,pbarvg,
+     s                     n,dtbon)
+c   ----------------------------------------------------------------
+c   Schemas PPM Lin et Rood
+c   ----------------------------------------------------------------
+       else if (iadv(iq).eq.11.OR.(iadv(iq).GE.16.AND.
+     s                     iadv(iq).LE.18)) then
+
+           stop 'advtrac : schema non parallelise'
+
+c        Test sur le flux horizontal
+c        Pas de temps adaptatif
+         call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+         if (n.GT.1) then
+           write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=',
+     s             dtvr,'n=',n
+         endif
+c        Test sur le flux vertical
+         CFLmaxz=0.
+         do l=2,llm
+           do ij=iip2,ip1jm
+            aaa=wg(ij,l)*dtvr/massem(ij,l)
+            CFLmaxz=max(CFLmaxz,aaa)
+            bbb=-wg(ij,l)*dtvr/massem(ij,l-1)
+            CFLmaxz=max(CFLmaxz,bbb)
+           enddo
+         enddo
+         if (CFLmaxz.GE.1) then
+            write(*,*) 'WARNING vertical','CFLmaxz=', CFLmaxz
+         endif
+
+c-----------------------------------------------------------
+c        Ss-prg interface LMDZ.4->PPM3d
+c-----------------------------------------------------------
+
+          call interpre(q(1,1,iq),qppm(1,1,iq),wg,fluxwppm,massem,
+     s                 apppm,bpppm,massebx,masseby,pbarug,pbarvg,
+     s                 unatppm,vnatppm,psppm)
+
+          do indice=1,n
+c---------------------------------------------------------------------
+c                         VL (version PPM) horiz. et PPM vert.
+c---------------------------------------------------------------------
+                if (iadv(iq).eq.11) then
+c                  Ss-prg PPM3d de Lin
+                  call ppm3d(1,qppm(1,1,iq),
+     s                       psppm,psppm,
+     s                       unatppm,vnatppm,fluxwppm,dtbon,2,2,2,1,
+     s                       iim,jjp1,2,llm,apppm,bpppm,0.01,6400000,
+     s                       fill,dum,220.)
+
+c----------------------------------------------------------------------
+c                           Monotonic PPM
+c----------------------------------------------------------------------
+               else if (iadv(iq).eq.16) then
+c                  Ss-prg PPM3d de Lin
+                  call ppm3d(1,qppm(1,1,iq),
+     s                       psppm,psppm,
+     s                       unatppm,vnatppm,fluxwppm,dtbon,3,3,3,1,
+     s                       iim,jjp1,2,llm,apppm,bpppm,0.01,6400000,
+     s                       fill,dum,220.)
+c---------------------------------------------------------------------
+
+c---------------------------------------------------------------------
+c                           Semi Monotonic PPM
+c---------------------------------------------------------------------
+               else if (iadv(iq).eq.17) then
+c                  Ss-prg PPM3d de Lin
+                  call ppm3d(1,qppm(1,1,iq),
+     s                       psppm,psppm,
+     s                       unatppm,vnatppm,fluxwppm,dtbon,4,4,4,1,
+     s                       iim,jjp1,2,llm,apppm,bpppm,0.01,6400000,
+     s                       fill,dum,220.)
+c---------------------------------------------------------------------
+
+c---------------------------------------------------------------------
+c                         Positive Definite PPM
+c---------------------------------------------------------------------
+                else if (iadv(iq).eq.18) then
+c                  Ss-prg PPM3d de Lin
+                  call ppm3d(1,qppm(1,1,iq),
+     s                       psppm,psppm,
+     s                       unatppm,vnatppm,fluxwppm,dtbon,5,5,5,1,
+     s                       iim,jjp1,2,llm,apppm,bpppm,0.01,6400000,
+     s                       fill,dum,220.)
+c---------------------------------------------------------------------
+                endif
+            enddo
+c-----------------------------------------------------------------
+c               Ss-prg interface PPM3d-LMDZ.4
+c-----------------------------------------------------------------
+                  call interpost(q(1,1,iq),qppm(1,1,iq))
+            endif
+c----------------------------------------------------------------------
+
+c-----------------------------------------------------------------
+c On impose une seule valeur du traceur au pôle Sud j=jjm+1=jjp1
+c et Nord j=1
+c-----------------------------------------------------------------
+
+c                  call traceurpole(q(1,1,iq),massem)
+
+c calcul du temps cpu pour un schema donne
+
+
+       end DO
+
+1234  CONTINUE
+c$OMP BARRIER
+
+      if (planet_type=="earth") then
+
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       DO l = 1, llm
+         DO ij = ijb, ije
+           finmasse(ij,l) =  p(ij,l) - p(ij,l+1) 
+         ENDDO
+       ENDDO
+c$OMP END DO
+
+        ! CRisi: on passe nqtot et non nq
+       CALL qminimum_loc( q, nqtot, finmasse )
+
+      endif ! of if (planet_type=="earth")
+
+       RETURN
+       END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advtrac_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advtrac_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/advtrac_mod.F90	(revision 3330)
@@ -0,0 +1,37 @@
+MODULE advtrac_mod
+
+  REAL,POINTER,SAVE :: finmasse(:,:)
+  
+CONTAINS
+
+  SUBROUTINE advtrac_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE infotrac
+  USE vlspltgen_mod
+  IMPLICIT NONE
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  TYPE(distrib),POINTER :: d
+    
+    d=>distrib_vanleer
+    CALL allocate_u(finmasse,llm,d)
+    CALL vlspltgen_allocate
+  END SUBROUTINE advtrac_allocate
+  
+  SUBROUTINE advtrac_switch_vanleer(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE vlspltgen_mod
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+  
+    CALL switch_u(finmasse,distrib_vanleer,dist)
+
+    CALL vlspltgen_switch_vanleer(dist)
+
+  END SUBROUTINE advtrac_switch_vanleer  
+  
+END MODULE advtrac_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/allocate_field_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/allocate_field_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/allocate_field_mod.F90	(revision 3330)
@@ -0,0 +1,739 @@
+MODULE allocate_field_mod
+
+  INTERFACE allocate_u
+    MODULE PROCEDURE allocate1d_u1d,allocate2d_u1d,allocate3d_u1d
+  END INTERFACE allocate_u
+
+  INTERFACE switch_u
+    MODULE PROCEDURE switch1d_u1d,switch2d_u1d,switch3d_u1d
+  END INTERFACE switch_u
+
+  INTERFACE switch_v
+    MODULE PROCEDURE switch1d_v1d,switch2d_v1d,switch3d_v1d
+  END INTERFACE switch_v
+
+  INTERFACE allocate_v
+    MODULE PROCEDURE allocate1d_v1d,allocate2d_v1d,allocate3d_v1d
+  END INTERFACE allocate_v
+
+  INTERFACE allocate2d_u
+    MODULE PROCEDURE allocate1d_u2d,allocate2d_u2d,allocate3d_u2d
+  END INTERFACE allocate2d_u
+
+  INTERFACE allocate2d_v
+    MODULE PROCEDURE allocate1d_v2d,allocate2d_v2d,allocate3d_v2d
+  END INTERFACE allocate2d_v
+
+  INTERFACE switch2d_u
+    MODULE PROCEDURE switch1d_u2d,switch2d_u2d,switch3d_u2d
+  END INTERFACE switch2d_u
+
+  INTERFACE switch2d_v
+    MODULE PROCEDURE switch1d_v2d,switch2d_v2d,switch3d_v2d
+  END INTERFACE switch2D_v
+
+  REAL :: nan
+
+CONTAINS
+
+  SUBROUTINE Init_nan
+  IMPLICIT NONE
+    REAL*8 :: rnan
+    INTEGER :: inan(2)
+    EQUIVALENCE(rnan,inan)
+    
+    inan(1)=2147483647
+    inan(2)=2147483647
+    
+    nan=rnan
+  
+  END SUBROUTINE Init_nan
+
+  SUBROUTINE allocate1d_u1d(field,d)
+  USE parallel_lmdz
+  IMPLICIT NONE
+  REAL,POINTER :: field(:)
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(d%ijb_u:d%ije_u))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate1d_u1d
+
+
+  SUBROUTINE allocate2d_u1d(field,dim1,d)
+  USE parallel_lmdz
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  INTEGER      :: dim1
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(d%ijb_u:d%ije_u,dim1))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate2d_u1d 
+
+  SUBROUTINE allocate3d_u1d(field,dim1,dim2,d)
+  USE parallel_lmdz
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  INTEGER      :: dim1,dim2
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(d%ijb_u:d%ije_u,dim1,dim2))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate3d_u1d   
+
+
+
+  SUBROUTINE allocate1d_v1d(field,d)
+  USE parallel_lmdz
+  IMPLICIT NONE
+  REAL,POINTER :: field(:)
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(d%ijb_v:d%ije_v))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate1d_v1d
+
+
+  SUBROUTINE allocate2d_v1d(field,dim1,d)
+  USE parallel_lmdz
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  INTEGER      :: dim1
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(d%ijb_v:d%ije_v,dim1))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate2d_v1d 
+
+  SUBROUTINE allocate3d_v1d(field,dim1,dim2,d)
+  USE parallel_lmdz
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  INTEGER      :: dim1,dim2
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(d%ijb_v:d%ije_v,dim1,dim2))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate3d_v1d   
+
+
+
+
+
+
+
+
+
+  SUBROUTINE allocate1d_u2d(field,d)
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(iip1,d%jjb_u:d%jje_u))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate1d_u2d
+
+
+  SUBROUTINE allocate2d_u2d(field,dim1,d)
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  INTEGER      :: dim1
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(iip1,d%jjb_u:d%jje_u,dim1))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate2d_u2d
+
+  SUBROUTINE allocate3d_u2d(field,dim1,dim2,d)
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:,:)
+  INTEGER      :: dim1,dim2
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(iip1,d%jjb_u:d%jje_u,dim1,dim2))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate3d_u2d   
+
+
+
+  SUBROUTINE allocate1d_v2d(field,d)
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(iip1,d%jjb_v:d%jje_v))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate1d_v2d
+
+
+  SUBROUTINE allocate2d_v2d(field,dim1,d)
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  INTEGER      :: dim1
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(iip1,d%jjb_v:d%jje_v,dim1))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate2d_v2d
+
+  SUBROUTINE allocate3d_v2d(field,dim1,dim2,d)
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:,:)
+  INTEGER      :: dim1,dim2
+  TYPE(distrib),INTENT(IN) :: d
+
+!$OMP BARRIER
+!$OMP MASTER    
+    IF (ASSOCIATED(field)) DEALLOCATE(field)
+    ALLOCATE(field(iip1,d%jjb_v:d%jje_v,dim1,dim2))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  END SUBROUTINE allocate3d_v2d   
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+  SUBROUTINE switch1d_u1d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  IMPLICIT NONE
+  REAL,POINTER :: field(:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+  
+  REAL,POINTER,SAVE :: new_field(:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(new_dist%ijb_u:new_dist%ije_u))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField_u(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+   
+    CALL barrier
+  END SUBROUTINE switch1d_u1d  
+  
+  SUBROUTINE switch2d_u1d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(new_dist%ijb_u:new_dist%ije_u,size(field,2)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField_u(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch2d_u1d  
+
+  SUBROUTINE switch3d_u1d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(new_dist%ijb_u:new_dist%ije_u,size(field,2),size(field,3)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField_u(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch3d_u1d  
+
+
+
+
+  SUBROUTINE switch1d_v1d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  IMPLICIT NONE
+  REAL,POINTER :: field(:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(new_dist%ijb_v:new_dist%ije_v))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField_v(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    CALL barrier
+  END SUBROUTINE switch1d_v1d  
+  
+  SUBROUTINE switch2d_v1d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(new_dist%ijb_v:new_dist%ije_v,size(field,2)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField_v(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch2d_v1d  
+
+  SUBROUTINE switch3d_v1d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(new_dist%ijb_v:new_dist%ije_v,size(field,2),size(field,3)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField_v(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch3d_v1d  
+
+
+
+
+
+
+
+
+
+
+
+
+  SUBROUTINE switch1d_u2d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(iip1,new_dist%jjb_u:new_dist%jje_u))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField2d_u(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch1d_u2d  
+  
+  SUBROUTINE switch2d_u2d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(iip1,new_dist%jjb_u:new_dist%jje_u,size(field,3)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField2d_u(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch2d_u2d  
+
+  SUBROUTINE switch3d_u2d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:,:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(iip1,new_dist%jjb_u:new_dist%jje_u,size(field,3),size(field,4)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField2d_u(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch3d_u2d  
+
+
+
+
+  SUBROUTINE switch1d_v2d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(iip1,new_dist%jjb_v:new_dist%jje_v))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField2d_v(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL barrier
+
+  END SUBROUTINE switch1d_v2d  
+  
+  SUBROUTINE switch2d_v2d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(iip1,new_dist%jjb_v:new_dist%jje_v,size(field,3)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField2d_v(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    CALL barrier
+  END SUBROUTINE switch2d_v2d  
+
+  SUBROUTINE switch3d_v2d(field,old_dist,new_dist,up,down)
+  USE parallel_lmdz
+  USE mod_hallo
+  USE dimensions_mod
+  IMPLICIT NONE
+  REAL,POINTER :: field(:,:,:,:)
+  TYPE(distrib),INTENT(IN) :: old_dist
+  TYPE(distrib),INTENT(IN) :: new_dist
+  INTEGER, OPTIONAL,INTENT(IN) :: up
+  INTEGER, OPTIONAL,INTENT(IN) :: down
+
+  REAL,POINTER,SAVE :: new_field(:,:,:,:)
+  TYPE(request) :: req
+  
+  !$OMP BARRIER
+  !$OMP MASTER    
+    ALLOCATE(new_field(iip1,new_dist%jjb_v:new_dist%jje_v,size(field,3),size(field,4)))
+    new_field=nan
+  !$OMP END MASTER
+  !$OMP BARRIER
+    CALL Register_SwapField2d_v(field,new_field,new_dist,req,old_dist=old_dist,up=up,down=down)
+  
+    CALL SendRequest(req)
+
+  !$OMP BARRIER
+    CALL WaitRequest(req)     
+  !$OMP BARRIER
+    
+  !$OMP MASTER
+    DEALLOCATE(field)
+    field=>new_field
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    CALL barrier
+  END SUBROUTINE switch3d_v2d 
+
+END MODULE allocate_field_mod
+  
+  
+  
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bands.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bands.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bands.F90	(revision 3330)
@@ -0,0 +1,489 @@
+!
+! $Id$
+!
+  module Bands
+  USE parallel_lmdz
+    integer, parameter :: bands_caldyn=1
+    integer, parameter :: bands_vanleer=2
+    integer, parameter :: bands_dissip=3
+    
+    INTEGER,dimension(:),allocatable :: jj_Nb_Caldyn
+    INTEGER,dimension(:),allocatable :: jj_Nb_vanleer
+    INTEGER,dimension(:),allocatable :: jj_Nb_vanleer2
+    INTEGER,dimension(:),allocatable :: jj_Nb_dissip
+    INTEGER,dimension(:),allocatable :: jj_Nb_physic
+    INTEGER,dimension(:),allocatable :: jj_Nb_physic_bis
+   
+    TYPE(distrib),SAVE,TARGET :: distrib_Caldyn
+    TYPE(distrib),SAVE,TARGET :: distrib_vanleer
+    TYPE(distrib),SAVE,TARGET :: distrib_vanleer2
+    TYPE(distrib),SAVE,TARGET :: distrib_dissip
+    TYPE(distrib),SAVE,TARGET :: distrib_physic
+    TYPE(distrib),SAVE,TARGET :: distrib_physic_bis
+
+    INTEGER,dimension(:),allocatable :: distrib_phys
+  
+  contains
+  
+  subroutine AllocateBands
+    USE parallel_lmdz
+    implicit none
+    
+    allocate(jj_Nb_Caldyn(0:MPI_Size-1))
+    allocate(jj_Nb_vanleer(0:MPI_Size-1))
+    allocate(jj_Nb_vanleer2(0:MPI_Size-1))
+    allocate(jj_Nb_dissip(0:MPI_Size-1))
+    allocate(jj_Nb_physic(0:MPI_Size-1))
+    allocate(jj_Nb_physic_bis(0:MPI_Size-1))
+    allocate(distrib_phys(0:MPI_Size-1))
+  
+  end subroutine AllocateBands
+  
+  subroutine Read_distrib
+    USE parallel_lmdz
+    implicit none
+
+    include "dimensions.h"
+      integer :: i,j
+      character (len=4) :: siim,sjjm,sllm,sproc
+      character (len=255) :: filename
+      integer :: unit_number=10
+      integer :: ierr
+    
+      call AllocateBands
+      write(siim,'(i3)') iim
+      write(sjjm,'(i3)') jjm
+      write(sllm,'(i3)') llm
+      write(sproc,'(i3)') mpi_size
+      filename='Bands_'//TRIM(ADJUSTL(siim))//'x'//TRIM(ADJUSTL(sjjm))//'x'//TRIM(ADJUSTL(sllm))//'_'  &
+                        //TRIM(ADJUSTL(sproc))//'prc.dat'    
+       
+      OPEN(UNIT=unit_number,FILE=trim(filename),STATUS='old',FORM='formatted',IOSTAT=ierr)
+      
+      if (ierr==0) then
+      
+         do i=0,mpi_size-1
+          read (unit_number,*) j,jj_nb_caldyn(i)
+        enddo
+      
+        do i=0,mpi_size-1
+          read (unit_number,*) j,jj_nb_vanleer(i)
+        enddo
+      
+        do i=0,mpi_size-1
+          read (unit_number,*) j,jj_nb_dissip(i)
+        enddo
+      
+        do i=0,mpi_size-1
+          read (unit_number,*) j,distrib_phys(i)
+        enddo
+	
+	CLOSE(unit_number)  
+  
+      else
+        do i=0,mpi_size-1
+          jj_nb_caldyn(i)=(jjm+1)/mpi_size
+	  if (i<MOD(jjm+1,mpi_size)) jj_nb_caldyn(i)=jj_nb_caldyn(i)+1
+        enddo
+      
+        jj_nb_vanleer(:)=jj_nb_caldyn(:)
+        jj_nb_dissip(:)=jj_nb_caldyn(:)
+        
+	do i=0,mpi_size-1
+	  distrib_phys(i)=(iim*(jjm-1)+2)/mpi_size
+	  IF (i<MOD(iim*(jjm-1)+2,mpi_size)) distrib_phys(i)=distrib_phys(i)+1
+	enddo
+      endif
+      
+!      distrib_phys(:)=jj_nb_caldyn(:)*iim
+!      distrib_phys(0) = distrib_phys(0) - (iim-1)
+!      distrib_phys(mpi_size-1) = distrib_phys(mpi_size-1) - (iim-1)
+      
+   end subroutine Read_distrib
+   
+   
+   SUBROUTINE  Set_Bands 
+     USE parallel_lmdz
+     IMPLICIT NONE
+     INCLUDE 'dimensions.h'    
+     INTEGER :: i, ij
+     INTEGER :: jj_para_begin(0:mpi_size-1)
+     INTEGER :: jj_para_end(0:mpi_size-1)
+        
+      do i=0,mpi_size-1
+         jj_nb_vanleer2(i)=(jjm+1)/mpi_size
+	 if (i<MOD(jjm+1,mpi_size)) jj_nb_vanleer2(i)=jj_nb_vanleer2(i)+1
+      enddo
+          
+      jj_para_begin(0)=1
+      ij=distrib_phys(0)+iim-1
+      jj_para_end(0)=((ij-1)/iim)+1
+      
+      DO i=1,mpi_Size-1
+        ij=ij+1
+        jj_para_begin(i)=((ij-1)/iim)+1
+        ij=ij+distrib_phys(i)-1
+        jj_para_end(i)=((ij-1)/iim)+1
+      ENDDO
+ 
+       do i=0,MPI_Size-1
+        jj_Nb_physic(i)=jj_para_end(i)-jj_para_begin(i)+1
+        if (i/=0) then
+          if (jj_para_begin(i)==jj_para_end(i-1)) then
+            jj_Nb_physic(i-1)=jj_Nb_physic(i-1)-1
+          endif
+        endif
+      enddo
+      
+      do i=0,MPI_Size-1
+        jj_Nb_physic_bis(i)=jj_para_end(i)-jj_para_begin(i)+1
+        if (i/=0) then
+          if (jj_para_begin(i)==jj_para_end(i-1)) then
+            jj_Nb_physic_bis(i)=jj_Nb_physic_bis(i)-1
+          else
+	    jj_Nb_physic_bis(i-1)=jj_Nb_physic_bis(i-1)+1
+	    jj_Nb_physic_bis(i)=jj_Nb_physic_bis(i)-1
+	  endif
+        endif
+      enddo
+
+      CALL create_distrib(jj_Nb_Caldyn,distrib_caldyn)
+      CALL create_distrib(jj_Nb_vanleer,distrib_vanleer)
+      CALL create_distrib(jj_Nb_vanleer2,distrib_vanleer2)
+      CALL create_distrib(jj_Nb_dissip,distrib_dissip)
+      CALL create_distrib(jj_Nb_physic,distrib_physic)
+      CALL create_distrib(jj_Nb_physic_bis,distrib_physic_bis)
+      
+      distrib_physic_bis%jjb_u=distrib_physic%jjb_u
+      distrib_physic_bis%jje_u=distrib_physic%jje_u
+      distrib_physic_bis%jjnb_u=distrib_physic%jjnb_u
+
+      distrib_physic_bis%ijb_u=distrib_physic%ijb_u
+      distrib_physic_bis%ije_u=distrib_physic%ije_u
+      distrib_physic_bis%ijnb_u=distrib_physic%ijnb_u
+
+      distrib_physic_bis%jjb_v=distrib_physic%jjb_v
+      distrib_physic_bis%jje_v=distrib_physic%jje_v
+      distrib_physic_bis%jjnb_v=distrib_physic%jjnb_v
+
+      distrib_physic_bis%ijb_v=distrib_physic%ijb_v
+      distrib_physic_bis%ije_v=distrib_physic%ije_v
+      distrib_physic_bis%ijnb_v=distrib_physic%ijnb_v
+     
+    end subroutine Set_Bands
+
+
+    subroutine AdjustBands_caldyn(new_dist)
+      use times
+      USE parallel_lmdz
+      implicit none
+      TYPE(distrib),INTENT(INOUT) :: new_dist
+
+      real :: minvalue,maxvalue
+      integer :: min_proc,max_proc
+      integer :: i,j
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: index
+      real :: tmpvalue
+      integer :: tmpindex
+      
+      allocate(value(0:mpi_size-1))
+      allocate(index(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_caldyn(i),timer_caldyn,i)
+	index(i)=i
+      enddo
+      
+      do i=0,mpi_size-2
+        do j=i+1,mpi_size-1
+	  if (value(i)>value(j)) then
+	    tmpvalue=value(i)
+	    value(i)=value(j)
+	    value(j)=tmpvalue
+	    
+	    tmpindex=index(i)
+	    index(i)=index(j)
+	    index(j)=tmpindex
+	   endif
+	 enddo
+      enddo
+      
+      maxvalue=value(mpi_size-1)
+      max_proc=index(mpi_size-1)           
+           
+      do i=0,mpi_size-2
+        minvalue=value(i)
+        min_proc=index(i)
+        if (jj_nb_caldyn(max_proc)>2) then
+          if (timer_iteration(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)<=1 ) then
+             jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1
+             jj_nb_caldyn(max_proc)=jj_nb_caldyn(max_proc)-1
+	     exit
+           else
+             if (timer_average(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)                 &
+	        -timer_delta(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc) < maxvalue) then
+               jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1
+               jj_nb_caldyn(max_proc)=jj_nb_caldyn(max_proc)-1
+               exit
+	     endif
+           endif
+         endif
+      enddo
+      
+      deallocate(value)
+      deallocate(index)
+      CALL create_distrib(jj_nb_caldyn,new_dist)
+        
+    end subroutine AdjustBands_caldyn
+    
+    subroutine AdjustBands_vanleer(new_dist)
+      use times
+      USE parallel_lmdz
+      implicit none
+      TYPE(distrib),INTENT(INOUT) :: new_dist
+
+      real :: minvalue,maxvalue
+      integer :: min_proc,max_proc
+      integer :: i,j
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: index
+      real :: tmpvalue
+      integer :: tmpindex
+      
+      allocate(value(0:mpi_size-1))
+      allocate(index(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_vanleer(i),timer_vanleer,i)
+	index(i)=i
+      enddo
+      
+      do i=0,mpi_size-2
+        do j=i+1,mpi_size-1
+	  if (value(i)>value(j)) then
+	    tmpvalue=value(i)
+	    value(i)=value(j)
+	    value(j)=tmpvalue
+	    
+	    tmpindex=index(i)
+	    index(i)=index(j)
+	    index(j)=tmpindex
+	   endif
+	 enddo
+      enddo
+      
+      maxvalue=value(mpi_size-1)
+      max_proc=index(mpi_size-1)           
+           
+      do i=0,mpi_size-2
+        minvalue=value(i)
+        min_proc=index(i)
+
+        if (jj_nb_vanleer(max_proc)>2) then
+          if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc)==0. .or. &
+             timer_average(jj_nb_vanleer(max_proc)-1,timer_vanleer,max_proc)==0.) then
+             jj_nb_vanleer(min_proc)=jj_nb_vanleer(min_proc)+1
+             jj_nb_vanleer(max_proc)=jj_nb_vanleer(max_proc)-1
+	     exit
+           else
+             if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc) < maxvalue) then
+               jj_nb_vanleer(min_proc)=jj_nb_vanleer(min_proc)+1
+               jj_nb_vanleer(max_proc)=jj_nb_vanleer(max_proc)-1
+               exit
+	     endif
+           endif
+         endif
+      enddo
+      
+      deallocate(value)
+      deallocate(index)
+ 
+      CALL create_distrib(jj_nb_vanleer,new_dist)
+         
+    end subroutine AdjustBands_vanleer
+
+    subroutine AdjustBands_dissip(new_dist)
+      use times
+      USE parallel_lmdz
+      implicit none
+      TYPE(distrib),INTENT(INOUT) :: new_dist
+      
+      real :: minvalue,maxvalue
+      integer :: min_proc,max_proc
+      integer :: i,j
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: index
+      real :: tmpvalue
+      integer :: tmpindex
+      
+      allocate(value(0:mpi_size-1))
+      allocate(index(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_dissip(i),timer_dissip,i)
+	index(i)=i
+      enddo
+      
+      do i=0,mpi_size-2
+        do j=i+1,mpi_size-1
+	  if (value(i)>value(j)) then
+	    tmpvalue=value(i)
+	    value(i)=value(j)
+	    value(j)=tmpvalue
+	    
+	    tmpindex=index(i)
+	    index(i)=index(j)
+	    index(j)=tmpindex
+	   endif
+	 enddo
+      enddo
+      
+      maxvalue=value(mpi_size-1)
+      max_proc=index(mpi_size-1)           
+           
+      do i=0,mpi_size-2
+        minvalue=value(i)
+        min_proc=index(i)
+
+        if (jj_nb_dissip(max_proc)>3) then
+          if (timer_iteration(jj_nb_dissip(min_proc)+1,timer_dissip,min_proc)<=1) then
+             jj_nb_dissip(min_proc)=jj_nb_dissip(min_proc)+1
+             jj_nb_dissip(max_proc)=jj_nb_dissip(max_proc)-1
+	     exit
+           else
+             if (timer_average(jj_nb_dissip(min_proc)+1,timer_dissip,min_proc)         &
+	        - timer_delta(jj_nb_dissip(min_proc)+1,timer_dissip,min_proc) < maxvalue) then
+               jj_nb_dissip(min_proc)=jj_nb_dissip(min_proc)+1
+               jj_nb_dissip(max_proc)=jj_nb_dissip(max_proc)-1
+               exit
+	     endif
+           endif
+         endif
+      enddo
+      
+      deallocate(value)
+      deallocate(index)
+  
+      CALL create_distrib(jj_nb_dissip,new_dist)
+         
+    end subroutine AdjustBands_dissip
+
+    subroutine AdjustBands_physic
+      use times
+#ifdef CPP_PHYS
+! Ehouarn: what follows is only related to // physics
+      USE mod_phys_lmdz_para, only : klon_mpi_para_nb
+#endif
+      USE parallel_lmdz
+      implicit none
+
+      integer :: i,Index
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: Inc
+      real :: medium
+      integer :: NbTot,sgn
+      
+      allocate(value(0:mpi_size-1))
+      allocate(Inc(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+      
+      medium=0
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_physic(i),timer_physic,i)
+	medium=medium+value(i)
+      enddo    
+      
+      medium=medium/mpi_size      
+      NbTot=0
+#ifdef CPP_PHYS
+      do i=0,mpi_size-1
+        Inc(i)=nint(klon_mpi_para_nb(i)*(medium-value(i))/value(i))
+        NbTot=NbTot+Inc(i)  
+      enddo
+      
+      if (NbTot>=0) then
+        Sgn=1
+      else
+        Sgn=-1
+	NbTot=-NbTot
+      endif
+      
+      Index=0
+      do i=1,NbTot
+        Inc(Index)=Inc(Index)-Sgn
+	Index=Index+1
+	if (Index>mpi_size-1) Index=0
+      enddo
+      
+      do i=0,mpi_size-1
+        distrib_phys(i)=klon_mpi_para_nb(i)+inc(i)
+      enddo
+#endif  
+         
+    end subroutine AdjustBands_physic
+
+    subroutine WriteBands
+    USE parallel_lmdz
+    implicit none
+    include "dimensions.h"
+
+      integer :: i,j
+      character (len=4) :: siim,sjjm,sllm,sproc
+      character (len=255) :: filename
+      integer :: unit_number=10
+      integer :: ierr
+  
+      write(siim,'(i3)') iim
+      write(sjjm,'(i3)') jjm
+      write(sllm,'(i3)') llm
+      write(sproc,'(i3)') mpi_size
+
+      filename='Bands_'//TRIM(ADJUSTL(siim))//'x'//TRIM(ADJUSTL(sjjm))//'x'//TRIM(ADJUSTL(sllm))//'_'  &
+                        //TRIM(ADJUSTL(sproc))//'prc.dat'    
+      
+      OPEN(UNIT=unit_number,FILE=trim(filename),STATUS='replace',FORM='formatted',IOSTAT=ierr)
+      
+      if (ierr==0) then
+        
+!	write (unit_number,*) '*** Bandes caldyn ***'
+	do i=0,mpi_size-1
+          write (unit_number,*) i,jj_nb_caldyn(i)
+        enddo
+        
+!	write (unit_number,*) '*** Bandes vanleer ***' 
+        do i=0,mpi_size-1
+          write (unit_number,*) i,jj_nb_vanleer(i)
+        enddo
+       
+!        write (unit_number,*) '*** Bandes dissip ***'
+        do i=0,mpi_size-1
+          write (unit_number,*) i,jj_nb_dissip(i)
+        enddo
+        
+	do i=0,mpi_size-1
+          write (unit_number,*) i,distrib_phys(i)
+        enddo
+	
+        CLOSE(unit_number)   
+      else 
+        print *,'probleme lors de l ecriture des bandes'
+      endif
+       
+    end subroutine WriteBands
+  
+  end module Bands
+  
+  
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bernoui_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bernoui_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bernoui_loc.F	(revision 3330)
@@ -0,0 +1,76 @@
+      SUBROUTINE bernoui_loc (ngrid,nlay,pphi,pecin,pbern)
+      USE parallel_lmdz
+      USE mod_filtreg_p
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:   P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c     calcul de la fonction de Bernouilli aux niveaux s  .....
+c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......
+c          bern       est un  argument de sortie pour le s-pg  ......
+c
+c    fonction de Bernouilli = bern = filtre de( geopotentiel + 
+c                              energ.cinet.)
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c   Decalrations:
+c   -------------
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c   Arguments:
+c   ----------
+c
+      INTEGER nlay,ngrid
+      REAL pphi(ijb_u:ije_u,nlay),pecin(ijb_u:ije_u,nlay)
+      REAL pbern(ijb_u:ije_u,nlay)
+c
+c   Local:
+c   ------
+c
+      INTEGER   ij,l,ijb,ije,jjb,jje
+c
+c-----------------------------------------------------------------------
+c   calcul de Bernouilli:
+c   ---------------------
+c
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if (pole_sud) ije=ij_end
+
+      jjb=jj_begin
+      jje=jj_end+1
+      if (pole_sud) jje=jj_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)                
+      DO l=1,llm
+    
+        DO 4 ij = ijb,ije
+          pbern( ij,l ) =  pphi( ij,l ) + pecin( ij,l )
+   4    CONTINUE
+       
+       ENDDO
+c$OMP END DO NOWAIT
+c
+c-----------------------------------------------------------------------
+c   filtre:
+c   -------
+c
+
+        
+        CALL filtreg_p( pbern,jjb_u,jje_u,jjb,jje, jjp1, llm, 
+     &                  2,1, .true., 1 )
+c
+c-----------------------------------------------------------------------
+      
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bilan_dyn_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bilan_dyn_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/bilan_dyn_loc.F	(revision 3330)
@@ -0,0 +1,842 @@
+!
+! $Id: bilan_dyn_p.F 1299 2010-01-20 14:27:21Z fairhead $
+!
+      SUBROUTINE bilan_dyn_loc (ntrac,dt_app,dt_cum,
+     s  ps,masse,pk,flux_u,flux_v,teta,phi,ucov,vcov,trac)
+
+c   AFAIRE
+c   Prevoir en champ nq+1 le diagnostique de l'energie
+c   en faisant Qzon=Cv T + L * ...
+c             vQ..A=Cp T + L * ...
+
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#endif
+      USE parallel_lmdz
+      USE mod_hallo
+      use misc_mod
+      USE write_field_loc
+      USE comconst_mod, ONLY: cpp, pi
+      USE comvert_mod, ONLY: presnivs
+      USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+      
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+      include "iniprint.h"
+
+c====================================================================
+c
+c   Sous-programme consacre à des diagnostics dynamiques de base
+c
+c 
+c   De facon generale, les moyennes des scalaires Q sont ponderees par
+c   la masse.
+c
+c   Les flux de masse sont eux simplement moyennes.
+c
+c====================================================================
+
+c   Arguments :
+c   ===========
+
+      integer ntrac
+      real dt_app,dt_cum
+      real ps(iip1,jjb_u:jje_u)
+      real masse(iip1,jjb_u:jje_u,llm),pk(iip1,jjb_u:jje_u,llm)
+      real flux_u(iip1,jjb_u:jje_u,llm)
+      real flux_v(iip1,jjb_v:jje_v,llm)
+      real teta(iip1,jjb_u:jje_u,llm)
+      real phi(iip1,jjb_u:jje_u,llm)
+      real ucov(iip1,jjb_u:jje_u,llm)
+      real vcov(iip1,jjb_v:jje_v,llm)
+      real trac(iip1,jjb_u:jje_u,llm,ntrac)
+
+c   Local :
+c   =======
+
+      integer,SAVE :: icum,ncum
+!$OMP THREADPRIVATE(icum,ncum)
+      LOGICAL,SAVE :: first=.TRUE.
+!$OMP THREADPRIVATE(first)      
+      
+      real zz,zqy
+      REAl,SAVE,ALLOCATABLE :: zfactv(:,:)
+
+      INTEGER,PARAMETER :: nQ=7
+
+
+cym      character*6 nom(nQ)
+cym      character*6 unites(nQ)
+      character(len=6),save :: nom(nQ)
+      character(len=6),save :: unites(nQ)
+
+      character(len=10) file
+      integer ifile
+      parameter (ifile=4)
+
+      integer,PARAMETER :: itemp=1,igeop=2,iecin=3,iang=4,iu=5
+      INTEGER,PARAMETER :: iovap=6,iun=7
+      integer,PARAMETER :: i_sortie=1
+
+      real,SAVE :: time=0.
+      integer,SAVE :: itau=0.
+!$OMP THREADPRIVATE(time,itau)
+
+      real ww
+
+c   variables dynamiques intermédiaires
+      REAL,SAVE,ALLOCATABLE :: vcont(:,:,:),ucont(:,:,:)
+      REAL,SAVE,ALLOCATABLE :: ang(:,:,:),unat(:,:,:)
+      REAL,SAVE,ALLOCATABLE :: massebx(:,:,:),masseby(:,:,:)
+      REAL,SAVE,ALLOCATABLE :: vorpot(:,:,:)
+      REAL,SAVE,ALLOCATABLE :: w(:,:,:),ecin(:,:,:),convm(:,:,:)
+      REAL,SAVE,ALLOCATABLE :: bern(:,:,:)
+
+c   champ contenant les scalaires advectés.
+      real,SAVE,ALLOCATABLE :: Q(:,:,:,:)
+    
+c   champs cumulés
+      real,SAVE,ALLOCATABLE ::  ps_cum(:,:)
+      real,SAVE,ALLOCATABLE ::  masse_cum(:,:,:)
+      real,SAVE,ALLOCATABLE ::  flux_u_cum(:,:,:)
+      real,SAVE,ALLOCATABLE ::  flux_v_cum(:,:,:)
+      real,SAVE,ALLOCATABLE ::  Q_cum(:,:,:,:)
+      real,SAVE,ALLOCATABLE ::  flux_uQ_cum(:,:,:,:)
+      real,SAVE,ALLOCATABLE ::  flux_vQ_cum(:,:,:,:)
+      real,SAVE,ALLOCATABLE ::  flux_wQ_cum(:,:,:,:)
+      real,SAVE,ALLOCATABLE ::  dQ(:,:,:,:)
+
+ 
+c   champs de tansport en moyenne zonale
+      integer ntr,itr
+      parameter (ntr=5)
+
+cym      character*10 znom(ntr,nQ)
+cym      character*20 znoml(ntr,nQ)
+cym      character*10 zunites(ntr,nQ)
+      character*10,save :: znom(ntr,nQ)
+      character*20,save :: znoml(ntr,nQ)
+      character*10,save :: zunites(ntr,nQ)
+
+      INTEGER,PARAMETER :: iave=1,itot=2,immc=3,itrs=4,istn=5
+
+      character*3 ctrs(ntr)
+      data ctrs/'  ','TOT','MMC','TRS','STN'/
+
+      real,SAVE,ALLOCATABLE ::  zvQ(:,:,:,:),zvQtmp(:,:)
+      real,SAVE,ALLOCATABLE ::  zavQ(:,:,:),psiQ(:,:,:)
+      real,SAVE,ALLOCATABLE ::  zmasse(:,:),zamasse(:)
+
+      real,SAVE,ALLOCATABLE ::  zv(:,:),psi(:,:)
+
+      integer i,j,l,iQ
+
+
+c   Initialisation du fichier contenant les moyennes zonales.
+c   ---------------------------------------------------------
+
+      character*10 infile
+
+      integer fileid
+      integer thoriid, zvertiid
+      save fileid
+
+      INTEGER,SAVE,ALLOCATABLE :: ndex3d(:)
+
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      character*3 str
+      character*10 ctrac
+      integer ii,jj
+      integer zan, dayref
+C
+      real,SAVE,ALLOCATABLE :: rlong(:),rlatg(:)
+      integer :: jjb,jje,jjn,ijb,ije
+      type(Request),SAVE :: Req
+!$OMP THREADPRIVATE(Req)
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(1) :: ddid
+      INTEGER,DIMENSION(1) :: dsg
+      INTEGER,DIMENSION(1) :: dsl
+      INTEGER,DIMENSION(1) :: dpf
+      INTEGER,DIMENSION(1) :: dpl
+      INTEGER,DIMENSION(1) :: dhs
+      INTEGER,DIMENSION(1) :: dhe 
+      
+      INTEGER :: bilan_dyn_domain_id
+
+c=====================================================================
+c   Initialisation
+c=====================================================================
+      if (adjust) return
+      
+      time=time+dt_app
+      itau=itau+1
+
+      if (first) then
+!$OMP BARRIER
+!$OMP MASTER
+      ALLOCATE(zfactv(jjb_v:jje_v,llm))
+      ALLOCATE(vcont(iip1,jjb_v:jje_v,llm))
+      ALLOCATE(ucont(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(ang(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(unat(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(massebx(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(masseby(iip1,jjb_v:jje_v,llm))
+      ALLOCATE(vorpot(iip1,jjb_v:jje_v,llm))
+      ALLOCATE(w(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(ecin(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(convm(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(bern(iip1,jjb_u:jje_u,llm))      
+      ALLOCATE(Q(iip1,jjb_u:jje_u,llm,nQ))      
+      ALLOCATE(ps_cum(iip1,jjb_u:jje_u))
+      ALLOCATE(masse_cum(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(flux_u_cum(iip1,jjb_u:jje_u,llm))
+      ALLOCATE(flux_v_cum(iip1,jjb_v:jje_v,llm))
+      ALLOCATE(Q_cum(iip1,jjb_u:jje_u,llm,nQ))
+      ALLOCATE(flux_uQ_cum(iip1,jjb_u:jje_u,llm,nQ))
+      ALLOCATE(flux_vQ_cum(iip1,jjb_v:jje_v,llm,nQ))
+      ALLOCATE(flux_wQ_cum(iip1,jjb_u:jje_u,llm,nQ))
+      ALLOCATE(dQ(iip1,jjb_u:jje_u,llm,nQ))
+      ALLOCATE(zvQ(jjb_v:jje_v,llm,ntr,nQ))
+      ALLOCATE(zvQtmp(jjb_v:jje_v,llm))
+      ALLOCATE(zavQ(jjb_v:jje_v,ntr,nQ))
+      ALLOCATE(psiQ(jjb_v:jje_v,llm+1,nQ))
+      ALLOCATE(zmasse(jjb_v:jje_v,llm))
+      ALLOCATE(zamasse(jjb_v:jje_v))
+      ALLOCATE(zv(jjb_v:jje_v,llm))
+      ALLOCATE(psi(jjb_v:jje_v,llm+1))
+      ALLOCATE(ndex3d(jjb_v:jje_v*llm))
+      ndex3d=0
+      ALLOCATE(rlong(1))
+      ALLOCATE(rlatg(jjm))
+      
+!$OMP END MASTER
+!$OMP BARRIER
+        icum=0
+c       initialisation des fichiers
+        first=.false.
+c   ncum est la frequence de stokage en pas de temps
+        ncum=dt_cum/dt_app
+        if (abs(ncum*dt_app-dt_cum).gt.1.e-5*dt_app) then
+           WRITE(lunout,*)
+     .            'Pb : le pas de cumule doit etre multiple du pas'
+           WRITE(lunout,*)'dt_app=',dt_app
+           WRITE(lunout,*)'dt_cum=',dt_cum
+           stop
+        endif
+
+!$OMP MASTER
+        nom(itemp)='T'
+        nom(igeop)='gz'
+        nom(iecin)='K'
+        nom(iang)='ang'
+        nom(iu)='u'
+        nom(iovap)='ovap'
+        nom(iun)='un'
+
+        unites(itemp)='K'
+        unites(igeop)='m2/s2'
+        unites(iecin)='m2/s2'
+        unites(iang)='ang'
+        unites(iu)='m/s'
+        unites(iovap)='kg/kg'
+        unites(iun)='un'
+
+
+c   Initialisation du fichier contenant les moyennes zonales.
+c   ---------------------------------------------------------
+
+      infile='dynzon'
+
+      zan = annee_ref
+      dayref = day_ref
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      rlong=0.
+      rlatg=rlatv*180./pi
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      IF (pole_sud) THEN
+        jjn=jj_nb-1
+        jje=jj_end-1
+      ENDIF
+
+      ddid=(/ 2 /)
+      dsg=(/ jjm /)
+      dsl=(/ jjn /)
+      dpf=(/ jjb /)
+      dpl=(/ jje /)
+      dhs=(/ 0 /)
+      dhe=(/ 0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',bilan_dyn_domain_id)
+       
+      call histbeg(trim(infile),
+     .             1, rlong, jjn, rlatg(jjb:jje),
+     .             1, 1, 1, jjn,
+     .             tau0, zjulian, dt_cum, thoriid, fileid,
+     .             bilan_dyn_domain_id)
+
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'presnivs', 'Niveaux sigma','mb',
+     .              llm, presnivs, zvertiid)
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+      do iQ=1,nQ
+         do itr=1,ntr
+            if(itr.eq.1) then
+               znom(itr,iQ)=nom(iQ)
+               znoml(itr,iQ)=nom(iQ)
+               zunites(itr,iQ)=unites(iQ)
+            else
+               znom(itr,iQ)=ctrs(itr)//'v'//nom(iQ)
+               znoml(itr,iQ)='transport : v * '//nom(iQ)//' '//ctrs(itr)
+               zunites(itr,iQ)='m/s * '//unites(iQ)
+            endif
+         enddo
+      enddo
+
+c   Declarations des champs avec dimension verticale
+c      print*,'1HISTDEF'
+      do iQ=1,nQ
+         do itr=1,ntr
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'var ',itr,iQ
+     .      ,znom(itr,iQ),znoml(itr,iQ),zunites(itr,iQ)
+            call histdef(fileid,znom(itr,iQ),znoml(itr,iQ),
+     .        zunites(itr,iQ),1,jjn,thoriid,llm,1,llm,zvertiid,
+     .        32,'ave(X)',dt_cum,dt_cum)
+         enddo
+c   Declarations pour les fonctions de courant
+c      print*,'2HISTDEF'
+          call histdef(fileid,'psi'//nom(iQ)
+     .      ,'stream fn. '//znoml(itot,iQ),
+     .      zunites(itot,iQ),1,jjn,thoriid,llm,1,llm,zvertiid,
+     .      32,'ave(X)',dt_cum,dt_cum)
+      enddo
+
+
+c   Declarations pour les champs de transport d'air
+c      print*,'3HISTDEF'
+      call histdef(fileid, 'masse', 'masse',
+     .             'kg', 1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', dt_cum, dt_cum)
+      call histdef(fileid, 'v', 'v',
+     .             'm/s', 1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', dt_cum, dt_cum)
+c   Declarations pour les fonctions de courant
+c      print*,'4HISTDEF'
+          call histdef(fileid,'psi','stream fn. MMC ','mega t/s',
+     .      1,jjn,thoriid,llm,1,llm,zvertiid,
+     .      32,'ave(X)',dt_cum,dt_cum)
+
+
+c   Declaration des champs 1D de transport en latitude
+c      print*,'5HISTDEF'
+      do iQ=1,nQ
+         do itr=2,ntr
+            call histdef(fileid,'a'//znom(itr,iQ),znoml(itr,iQ),
+     .        zunites(itr,iQ),1,jjn,thoriid,1,1,1,-99,
+     .        32,'ave(X)',dt_cum,dt_cum)
+         enddo
+      enddo
+
+
+c      print*,'8HISTDEF'
+               CALL histend(fileid)
+
+!$OMP END MASTER
+      endif
+
+
+c=====================================================================
+c   Calcul des champs dynamiques
+c   ----------------------------
+
+      jjb=jj_begin
+      jje=jj_end
+    
+c   énergie cinétique
+!      ucont(:,jjb:jje,:)=0
+
+      call Register_Hallo_u(ucov,llm,1,1,1,1,Req)
+      call Register_Hallo_v(vcov,llm,1,1,1,1,Req)
+      call SendRequest(Req)
+c$OMP BARRIER
+      call WaitRequest(Req)
+
+      CALL covcont_loc(llm,ucov,vcov,ucont,vcont)
+      CALL enercin_loc(vcov,ucov,vcont,ucont,ecin)
+
+c   moment cinétique
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,llm
+         ang(:,jjb:jje,l)=ucov(:,jjb:jje,l)+constang(:,jjb:jje)
+         unat(:,jjb:jje,l)=ucont(:,jjb:jje,l)*cu(:,jjb:jje)
+      enddo
+!$OMP END DO NOWAIT
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        Q(:,jjb:jje,l,itemp)=teta(:,jjb:jje,l)*pk(:,jjb:jje,l)/cpp
+        Q(:,jjb:jje,l,igeop)=phi(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iecin)=ecin(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iang)=ang(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iu)=unat(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iovap)=trac(:,jjb:jje,l,1)
+        Q(:,jjb:jje,l,iun)=1.
+      ENDDO
+!$OMP END DO NOWAIT
+
+c=====================================================================
+c   Cumul
+c=====================================================================
+c
+      if(icum.EQ.0) then
+         jjb=jj_begin
+         jje=jj_end
+
+!$OMP MASTER
+         ps_cum(:,jjb:jje)=0.
+!$OMP END MASTER
+
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          masse_cum(:,jjb:jje,l)=0.
+          flux_u_cum(:,jjb:jje,l)=0.
+          Q_cum(:,jjb:jje,l,:)=0.
+          flux_uQ_cum(:,jjb:jje,l,:)=0.
+          if (pole_sud) jje=jj_end-1
+          flux_v_cum(:,jjb:jje,l)=0.
+          flux_vQ_cum(:,jjb:jje,l,:)=0.
+        ENDDO
+!$OMP END DO NOWAIT
+      endif
+
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'dans bilan_dyn ',icum,'->',icum+1
+      icum=icum+1
+
+c   accumulation des flux de masse horizontaux
+      jjb=jj_begin
+      jje=jj_end
+
+!$OMP MASTER
+      ps_cum(:,jjb:jje)=ps_cum(:,jjb:jje)+ps(:,jjb:jje)
+!$OMP END MASTER
+
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        masse_cum(:,jjb:jje,l)=masse_cum(:,jjb:jje,l)+masse(:,jjb:jje,l)
+        flux_u_cum(:,jjb:jje,l)=flux_u_cum(:,jjb:jje,l)
+     .                         +flux_u(:,jjb:jje,l)
+      ENDDO
+!$OMP END DO NOWAIT
+      
+      if (pole_sud) jje=jj_end-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       flux_v_cum(:,jjb:jje,l)=flux_v_cum(:,jjb:jje,l)
+     .                          +flux_v(:,jjb:jje,l)
+      ENDDO
+!$OMP END DO NOWAIT
+      
+      jjb=jj_begin
+      jje=jj_end
+
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          Q_cum(:,jjb:jje,l,iQ)=Q_cum(:,jjb:jje,l,iQ)
+     .                       +Q(:,jjb:jje,l,iQ)*masse(:,jjb:jje,l)
+        ENDDO
+!$OMP END DO NOWAIT
+      enddo
+
+c=====================================================================
+c  FLUX ET TENDANCES
+c=====================================================================
+
+c   Flux longitudinal
+c   -----------------
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            do j=jjb,jje
+               do i=1,iim
+                  flux_uQ_cum(i,j,l,iQ)=flux_uQ_cum(i,j,l,iQ)
+     s            +flux_u(i,j,l)*0.5*(Q(i,j,l,iQ)+Q(i+1,j,l,iQ))
+               enddo
+               flux_uQ_cum(iip1,j,l,iQ)=flux_uQ_cum(1,j,l,iQ)
+            enddo
+         enddo
+!$OMP END DO NOWAIT
+      enddo
+
+c    flux méridien
+c    -------------
+      do iQ=1,nQ
+        call Register_Hallo_u(Q(1,jjb_u,1,iQ),llm,0,1,1,0,Req) 
+      enddo
+      call SendRequest(Req)
+!$OMP BARRIER      
+      call WaitRequest(Req)
+      
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            do j=jjb,jje
+               do i=1,iip1
+                  flux_vQ_cum(i,j,l,iQ)=flux_vQ_cum(i,j,l,iQ)
+     s            +flux_v(i,j,l)*0.5*(Q(i,j,l,iQ)+Q(i,j+1,l,iQ))
+               enddo
+            enddo
+         enddo
+!$OMP ENDDO NOWAIT 
+!$OMP BARRIER
+      enddo
+
+c    tendances
+c    ---------
+
+c   convergence horizontale
+      call Register_Hallo_u(flux_uQ_cum,llm,2,2,2,2,Req)
+      call Register_Hallo_v(flux_vQ_cum,llm,2,2,2,2,Req)
+      call SendRequest(Req)
+!$OMP BARRIER      
+      call WaitRequest(Req)
+
+      call  convflu_loc(flux_uQ_cum,flux_vQ_cum,llm*nQ,dQ)
+
+c   calcul de la vitesse verticale
+      call Register_Hallo_u(flux_u_cum,llm,2,2,2,2,Req)
+      call Register_Hallo_v(flux_v_cum,llm,2,2,2,2,Req)
+      call SendRequest(Req)
+!$OMP BARRIER      
+      call WaitRequest(Req)
+
+      call convmas_loc(flux_u_cum,flux_v_cum,convm)
+      CALL vitvert_loc(convm,w)
+!$OMP BARRIER
+
+
+      jjb=jj_begin
+      jje=jj_end
+
+!      do iQ=1,nQ
+!         do l=1,llm-1
+!            do j=jjb,jje
+!               do i=1,iip1
+!                  ww=-0.5*w(i,j,l+1)*(Q(i,j,l,iQ)+Q(i,j,l+1,iQ))
+!                  dQ(i,j,l  ,iQ)=dQ(i,j,l  ,iQ)-ww
+!                  dQ(i,j,l+1,iQ)=dQ(i,j,l+1,iQ)+ww
+!               enddo
+!            enddo
+!          enddo
+!       enddo
+       
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            IF (l<llm) THEN
+              do j=jjb,jje
+                 do i=1,iip1
+                    ww=-0.5*w(i,j,l+1)*(Q(i,j,l,iQ)+Q(i,j,l+1,iQ))
+                    dQ(i,j,l  ,iQ)=dQ(i,j,l  ,iQ)-ww
+                    dQ(i,j,l+1,iQ)=dQ(i,j,l+1,iQ)+ww
+                 enddo
+              enddo
+            ENDIF
+            IF (l>2) THEN
+              do j=jjb,jje
+                do i=1,iip1
+                  ww=-0.5*w(i,j,l)*(Q(i,j,l-1,iQ)+Q(i,j,l,iQ))
+                  dQ(i,j,l,iQ)=dQ(i,j,l,iQ)+ww
+                enddo
+              enddo
+            ENDIF
+         enddo
+!$OMP ENDDO NOWAIT 
+      enddo
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'Apres les calculs fait a chaque pas'
+c=====================================================================
+c   PAS DE TEMPS D'ECRITURE
+c=====================================================================
+      if (icum.eq.ncum) then
+c=====================================================================
+
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'Pas d ecriture'
+
+      jjb=jj_begin
+      jje=jj_end
+
+c   Normalisation
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+          Q_cum(:,jjb:jje,l,iQ)=Q_cum(:,jjb:jje,l,iQ) 
+     .                                /masse_cum(:,jjb:jje,l)
+        enddo
+!$OMP ENDDO NOWAIT 
+      enddo   
+
+      zz=1./REAL(ncum)
+
+!$OMP MASTER
+        ps_cum(:,jjb:jje)=ps_cum(:,jjb:jje)*zz
+!$OMP END MASTER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        masse_cum(:,jjb:jje,l)=masse_cum(:,jjb:jje,l)*zz
+        flux_u_cum(:,jjb:jje,l)=flux_u_cum(:,jjb:jje,l)*zz
+        flux_uQ_cum(:,jjb:jje,l,:)=flux_uQ_cum(:,jjb:jje,l,:)*zz
+        dQ(:,jjb:jje,l,:)=dQ(:,jjb:jje,l,:)*zz
+      ENDDO
+!$OMP ENDDO NOWAIT 
+         
+      IF (pole_sud) jje=jj_end-1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        flux_v_cum(:,jjb:jje,l)=flux_v_cum(:,jjb:jje,l)*zz
+        flux_vQ_cum(:,jjb:jje,l,:)=flux_vQ_cum(:,jjb:jje,l,:)*zz
+      ENDDO
+!$OMP ENDDO NOWAIT 
+!$OMP BARRIER
+          
+      jjb=jj_begin
+      jje=jj_end
+
+
+c   A retravailler eventuellement
+c   division de dQ par la masse pour revenir aux bonnes grandeurs
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+           dQ(:,jjb:jje,l,iQ)=dQ(:,jjb:jje,l,iQ)/masse_cum(:,jjb:jje,l)
+        ENDDO
+!$OMP ENDDO NOWAIT 
+      enddo
+
+c=====================================================================
+c   Transport méridien
+c=====================================================================
+
+c   cumul zonal des masses des mailles
+c   ----------------------------------
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          zv(jjb:jje,l)=0.
+          zmasse(jjb:jje,l)=0.
+        ENDDO
+!$OMP ENDDO NOWAIT 
+!$OMP BARRIER
+
+      call Register_Hallo_u(masse_cum,llm,1,1,1,1,Req)
+      do iQ=1,nQ
+        call Register_Hallo_u(Q_cum(1,jjb_u,1,iQ),llm,0,1,1,0,Req)
+      enddo
+
+      call SendRequest(Req)
+!$OMP BARRIER
+      call WaitRequest(Req)
+
+      call massbar_loc(masse_cum,massebx,masseby)
+      
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,llm
+         do j=jjb,jje
+            do i=1,iim
+               zmasse(j,l)=zmasse(j,l)+masseby(i,j,l)
+               zv(j,l)=zv(j,l)+flux_v_cum(i,j,l)
+            enddo
+            zfactv(j,l)=cv(1,j)/zmasse(j,l)
+         enddo
+      enddo
+!$OMP ENDDO NOWAIT 
+!$OMP BARRIER
+
+c     print*,'3OK'
+c   --------------------------------------------------------------
+c   calcul de la moyenne zonale du transport :
+c   ------------------------------------------
+c
+c                                     --
+c TOT : la circulation totale       [ vq ]
+c
+c                                      -     -
+c MMC : mean meridional circulation [ v ] [ q ]
+c
+c                                     ----      --       - -
+c TRS : transitoires                [ v'q'] = [ vq ] - [ v q ]
+c
+c                                     - * - *       - -       -     -
+c STT : stationaires                [ v   q   ] = [ v q ] - [ v ] [ q ]
+c
+c                                              - -
+c    on utilise aussi l'intermediaire TMP :  [ v q ]
+c
+c    la variable zfactv transforme un transport meridien cumule
+c    en kg/s * unte-du-champ-transporte en m/s * unite-du-champ-transporte
+c
+c   --------------------------------------------------------------
+
+
+c   ----------------------------------------
+c   Transport dans le plan latitude-altitude
+c   ----------------------------------------
+
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+      zvQ=0.
+      psiQ=0.
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            zvQtmp(:,l)=0.
+            do j=jjb,jje
+c              print*,'j,l,iQ=',j,l,iQ
+c   Calcul des moyennes zonales du transort total et de zvQtmp
+               do i=1,iim
+                  zvQ(j,l,itot,iQ)=zvQ(j,l,itot,iQ)
+     s                            +flux_vQ_cum(i,j,l,iQ)
+                  zqy=      0.5*(Q_cum(i,j,l,iQ)*masse_cum(i,j,l)+
+     s                           Q_cum(i,j+1,l,iQ)*masse_cum(i,j+1,l))
+                  zvQtmp(j,l)=zvQtmp(j,l)+flux_v_cum(i,j,l)*zqy
+     s             /(0.5*(masse_cum(i,j,l)+masse_cum(i,j+1,l)))
+                  zvQ(j,l,iave,iQ)=zvQ(j,l,iave,iQ)+zqy
+               enddo
+c              print*,'aOK'
+c   Decomposition
+               zvQ(j,l,iave,iQ)=zvQ(j,l,iave,iQ)/zmasse(j,l)
+               zvQ(j,l,itot,iQ)=zvQ(j,l,itot,iQ)*zfactv(j,l)
+               zvQtmp(j,l)=zvQtmp(j,l)*zfactv(j,l)
+               zvQ(j,l,immc,iQ)=zv(j,l)*zvQ(j,l,iave,iQ)*zfactv(j,l)
+               zvQ(j,l,itrs,iQ)=zvQ(j,l,itot,iQ)-zvQtmp(j,l)
+               zvQ(j,l,istn,iQ)=zvQtmp(j,l)-zvQ(j,l,immc,iQ)
+            enddo
+         enddo
+!$OMP ENDDO NOWAIT 
+c   fonction de courant meridienne pour la quantite Q
+!$OMP BARRIER
+!$OMP MASTER
+         do l=llm,1,-1
+            do j=jjb,jje
+               psiQ(j,l,iQ)=psiQ(j,l+1,iQ)+zvQ(j,l,itot,iQ)
+            enddo
+         enddo
+!$OMP END MASTER
+!$OMP BARRIER
+      enddo
+
+c   fonction de courant pour la circulation meridienne moyenne
+!$OMP BARRIER
+!$OMP MASTER
+      psi(jjb:jje,:)=0.
+      do l=llm,1,-1
+         do j=jjb,jje
+            psi(j,l)=psi(j,l+1)+zv(j,l)
+            zv(j,l)=zv(j,l)*zfactv(j,l)
+         enddo
+      enddo
+!$OMP END MASTER
+!$OMP BARRIER
+
+c     print*,'4OK'
+c   sorties proprement dites
+!$OMP MASTER      
+      if (i_sortie.eq.1) then
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      if (pole_sud) jje=jj_end-1
+      if (pole_sud) jjn=jj_nb-1
+      do iQ=1,nQ
+         do itr=1,ntr
+            call histwrite(fileid,znom(itr,iQ),itau,
+     s                     zvQ(jjb:jje,:,itr,iQ)
+     s                     ,jjn*llm,ndex3d)
+         enddo
+         call histwrite(fileid,'psi'//nom(iQ),
+     s                  itau,psiQ(jjb:jje,1:llm,iQ)
+     s                  ,jjn*llm,ndex3d)
+      enddo
+
+      call histwrite(fileid,'masse',itau,zmasse(jjb:jje,1:llm)
+     s   ,jjn*llm,ndex3d)
+      call histwrite(fileid,'v',itau,zv(jjb:jje,1:llm)
+     s   ,jjn*llm,ndex3d)
+      psi(jjb:jje,:)=psi(jjb:jje,:)*1.e-9
+      call histwrite(fileid,'psi',itau,psi(jjb:jje,1:llm),
+     s               jjn*llm,ndex3d)
+
+      endif
+
+ 
+c   -----------------
+c   Moyenne verticale
+c   -----------------
+
+      zamasse(jjb:jje)=0.
+      do l=1,llm
+         zamasse(jjb:jje)=zamasse(jjb:jje)+zmasse(jjb:jje,l)
+      enddo
+     
+      zavQ(jjb:jje,:,:)=0.
+      do iQ=1,nQ
+         do itr=2,ntr
+            do l=1,llm
+               zavQ(jjb:jje,itr,iQ)=zavQ(jjb:jje,itr,iQ)
+     s                             +zvQ(jjb:jje,l,itr,iQ)
+     s                             *zmasse(jjb:jje,l)
+            enddo
+            zavQ(jjb:jje,itr,iQ)=zavQ(jjb:jje,itr,iQ)/zamasse(jjb:jje)
+            call histwrite(fileid,'a'//znom(itr,iQ),itau,
+     s                     zavQ(jjb:jje,itr,iQ),jjn*llm,ndex3d)
+         enddo
+      enddo
+!$OMP END MASTER
+c     on doit pouvoir tracer systematiquement la fonction de courant.
+
+c=====================================================================
+c/////////////////////////////////////////////////////////////////////
+      icum=0                  !///////////////////////////////////////
+      endif ! icum.eq.ncum    !///////////////////////////////////////
+c/////////////////////////////////////////////////////////////////////
+c=====================================================================
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caladvtrac_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caladvtrac_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caladvtrac_loc.F	(revision 3330)
@@ -0,0 +1,217 @@
+!
+! $Id: caladvtrac_p.F 1299 2010-01-20 14:27:21Z fairhead $
+!
+c
+c
+            SUBROUTINE caladvtrac_loc(q,pbaru,pbarv ,
+     *                   p ,masse, dq ,  teta,
+     *                   flxw, pk, iapptrac)
+      USE parallel_lmdz 
+      USE infotrac, ONLY : nqtot
+      USE control_mod, ONLY : iapp_tracvl,planet_type
+      USE caladvtrac_mod
+      USE mod_hallo
+      USE bands
+      USE times
+      USE Vampir
+      USE write_field_loc
+c
+      IMPLICIT NONE
+c
+c     Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron  
+c
+c     F.Codron (10/99) : ajout humidite specifique pour eau vapeur
+c=======================================================================
+c
+c       Shema de  Van Leer
+c
+c=======================================================================
+
+
+      include "dimensions.h"
+      include "paramet.h"
+
+c   Arguments:
+c   ----------
+      REAL :: pbaru( ijb_u:ije_u,llm ),pbarv( ijb_v:ije_v,llm)
+      REAL :: masse(ijb_u:ije_u,llm)
+      REAL :: p( ijb_u:ije_u,llmp1)
+      REAL :: q( ijb_u:ije_u,llm,nqtot),dq( ijb_u:ije_u,llm, nqtot )
+      REAL :: teta( ijb_u:ije_u,llm),pk( ijb_u:ije_u,llm)
+      REAL :: flxw(ijb_u:ije_u,llm)
+      INTEGER :: iapptrac
+c   Local:
+c   ------
+!      REAL :: pbarug(ijb_u:ije_u,llm)
+!      REAL :: pbarvg(ijb_v:ije_v,llm)
+!      REAL :: wg(ijb_u:ije_u,llm)
+      
+      REAL :: flxw_adv(distrib_vanleer%ijb_u:distrib_vanleer%ije_u,llm)
+      INTEGER,SAVE :: iadvtr=0
+!$OMP THREADPRIVATE(iadvtr)
+      INTEGER ::  ijb,ije,ijbu,ijbv,ijeu,ijev,j
+      INTEGER :: ij,l
+      TYPE(Request),SAVE :: Request_vanleer
+!$OMP THREADPRIVATE(Request_vanleer)
+
+      !write(*,*) 'caladvtrac 58: entree'     
+      ijbu=ij_begin
+      ijeu=ij_end
+      
+      ijbv=ij_begin-iip1
+      ijev=ij_end
+      if (pole_nord) ijbv=ij_begin
+      if (pole_sud)  ijev=ij_end-iip1
+
+      IF(iadvtr.EQ.0) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+	DO l=1,llm   
+          pbaruc(ijbu:ijeu,l)=0.
+          pbarvc(ijbv:ijev,l)=0.
+        ENDDO
+c$OMP END DO NOWAIT  
+      ENDIF
+
+c   accumulation des flux de masse horizontaux
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij = ijbu,ijeu
+            pbaruc(ij,l) = pbaruc(ij,l) + pbaru(ij,l)
+         ENDDO
+         DO ij = ijbv,ijev
+            pbarvc(ij,l) = pbarvc(ij,l) + pbarv(ij,l)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   selection de la masse instantannee des mailles avant le transport.
+      IF(iadvtr.EQ.0) THEN
+
+          ijb=ij_begin
+          ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+       DO l=1,llm
+          massem(ijb:ije,l)=masse(ijb:ije,l)
+       ENDDO
+c$OMP END DO NOWAIT
+
+      ENDIF
+
+      iadvtr   = iadvtr+1
+
+c$OMP MASTER
+      iapptrac = iadvtr
+c$OMP END MASTER
+
+c   Test pour savoir si on advecte a ce pas de temps
+
+      IF ( iadvtr.EQ.iapp_tracvl ) THEN
+      !write(*,*) 'caladvtrac 133'
+c$OMP MASTER
+        call suspend_timer(timer_caldyn)
+c$OMP END MASTER
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+cc   ..  Modif P.Le Van  ( 20/12/97 )  ....
+cc
+
+c   traitement des flux de masse avant advection.
+c     1. calcul de w
+c     2. groupement des mailles pres du pole.
+
+        CALL groupe_loc( massem, pbaruc,pbarvc, pbarug,pbarvg,wg )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+        flxw(ijb:ije,l)=wg(ijb:ije,l)/REAL(iapp_tracvl)
+      ENDDO
+c$OMP ENDDO NOWAIT
+
+#ifdef DEBUG_IO    
+         CALL WriteField_u('pbarug1',pbarug)
+         CALL WriteField_v('pbarvg1',pbarvg)
+         CALL WriteField_u('wg1',wg)
+#endif
+
+c$OMP BARRIER
+
+
+c$OMP MASTER
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+      call Register_SwapField_u(pbarug,pbarug_adv, distrib_vanleer,
+     &                          Request_vanleer)
+      call Register_SwapField_v(pbarvg,pbarvg_adv, distrib_vanleer,
+     &                          Request_vanleer,up=1)
+      call Register_SwapField_u(massem,massem_adv, distrib_vanleer,
+     &                          Request_vanleer)
+      call Register_SwapField_u(wg,wg_adv,distrib_vanleer,
+     &                          Request_vanleer)
+      call Register_SwapField_u(teta,teta_adv, distrib_vanleer,
+     &                          Request_vanleer,up=1,down=1)
+      call Register_SwapField_u(p,p_adv, distrib_vanleer,
+     &                          Request_vanleer,up=1,down=1)
+      call Register_SwapField_u(pk,pk_adv, distrib_vanleer,
+     &                          Request_vanleer,up=1,down=1)
+      call Register_SwapField_u(q,q_adv, distrib_vanleer,
+     &                          Request_vanleer)
+
+      call SendRequest(Request_vanleer)
+c$OMP BARRIER
+      call WaitRequest(Request_vanleer)
+
+
+c$OMP BARRIER
+c$OMP MASTER      
+      call Set_Distrib(distrib_vanleer)
+      call VTe(VTHallo)
+      call VTb(VTadvection)
+      call start_timer(timer_vanleer)
+c$OMP END MASTER
+c$OMP BARRIER
+!      CALL WriteField_u('pbarug_adv',pbarug_adv)
+!      CALL WriteField_u('',)
+      
+      
+#ifdef DEBUG_IO
+         CALL WriteField_u('pbarug1',pbarug_adv)
+         CALL WriteField_v('pbarvg1',pbarvg_adv)
+         CALL WriteField_u('wg1',wg_adv)
+#endif        
+      !write(*,*) 'caladvtrac 185'  
+      CALL advtrac_loc( pbarug_adv,pbarvg_adv,wg_adv, 
+     *             p_adv,  massem_adv,q_adv, teta_adv,
+     .             pk_adv)     
+      !write(*,*) 'caladvtrac 189'
+
+
+c$OMP MASTER
+	call VTe(VTadvection)
+        call stop_timer(timer_vanleer)
+        call VTb(VThallo)
+c$OMP END MASTER
+
+        call Register_SwapField_u(q_adv,q,distrib_caldyn,
+     *                             Request_vanleer)
+
+        call SendRequest(Request_vanleer)
+c$OMP BARRIER
+        call WaitRequest(Request_vanleer)      
+
+c$OMP BARRIER
+c$OMP MASTER
+        call Set_Distrib(distrib_caldyn)
+	call VTe(VThallo)
+	call resume_timer(timer_caldyn)
+c$OMP END MASTER
+c$OMP BARRIER
+          iadvtr=0
+       ENDIF ! if iadvtr.EQ.iapp_tracvl
+
+      END
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caladvtrac_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caladvtrac_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caladvtrac_mod.F90	(revision 3330)
@@ -0,0 +1,96 @@
+MODULE caladvtrac_mod
+
+  REAL,POINTER,SAVE :: q_adv(:,:,:)
+  REAL,POINTER,SAVE :: massem_adv(:,:)
+  REAL,POINTER,SAVE :: wg_adv(:,:)
+  REAL,POINTER,SAVE :: teta_adv(:,:)
+  REAL,POINTER,SAVE :: p_adv(:,:)
+  REAL,POINTER,SAVE :: pk_adv(:,:)
+  REAL,POINTER,SAVE :: pbarug_adv(:,:)
+  REAL,POINTER,SAVE :: pbarvg_adv(:,:)
+  REAL,POINTER,SAVE :: pbaruc(:,:)
+  REAL,POINTER,SAVE :: pbarvc(:,:)
+  REAL,POINTER,SAVE :: pbarug(:,:)
+  REAL,POINTER,SAVE :: pbarvg(:,:)
+  REAL,POINTER,SAVE :: wg(:,:)
+
+  REAL,POINTER,SAVE :: massem(:,:)
+  
+CONTAINS
+
+  SUBROUTINE caladvtrac_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE infotrac
+  USE advtrac_mod, ONLY : advtrac_allocate
+  USE groupe_mod 
+  IMPLICIT NONE
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  TYPE(distrib),POINTER :: d
+
+    d=>distrib_vanleer
+    CALL allocate_u(q_adv,llm,nqtot,d)
+    CALL allocate_u(massem_adv,llm,d)
+    CALL allocate_u(wg_adv,llm,d)
+    CALL allocate_u(teta_adv,llm,d)
+    CALL allocate_u(p_adv,llmp1,d)
+    CALL allocate_u(pk_adv,llm,d)
+    CALL allocate_u(pbarug_adv,llm,d)
+    CALL allocate_v(pbarvg_adv,llm,d)
+
+    d=>distrib_caldyn
+    CALL allocate_u(massem,llm,d)
+    CALL allocate_u(pbaruc,llm,d)
+    CALL allocate_v(pbarvc,llm,d)
+    CALL allocate_u(pbarug,llm,d)
+    CALL allocate_v(pbarvg,llm,d)
+    CALL allocate_u(wg,llm,d)
+
+    CALL groupe_allocate
+    CALL advtrac_allocate
+    
+  END SUBROUTINE caladvtrac_allocate
+  
+  SUBROUTINE caladvtrac_switch_caldyn(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE groupe_mod
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(massem,distrib_caldyn,dist)
+    CALL switch_u(pbaruc,distrib_caldyn,dist)
+    CALL switch_v(pbarvc,distrib_caldyn,dist,up=1)
+    CALL switch_u(pbarug,distrib_caldyn,dist)
+    CALL switch_v(pbarvg,distrib_caldyn,dist)
+    CALL switch_u(wg,distrib_caldyn,dist)
+    
+    CALL groupe_switch_caldyn(dist)
+
+  END SUBROUTINE caladvtrac_switch_caldyn
+  
+  SUBROUTINE caladvtrac_switch_vanleer(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE advtrac_mod, ONLY : advtrac_switch_vanleer 
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+  
+    CALL switch_u(q_adv,distrib_vanleer,dist)
+    CALL switch_u(massem_adv,distrib_vanleer,dist)
+    CALL switch_u(wg_adv,distrib_vanleer,dist)
+    CALL switch_u(teta_adv,distrib_vanleer,dist)
+    CALL switch_u(p_adv,distrib_vanleer,dist)
+    CALL switch_u(pk_adv,distrib_vanleer,dist)
+    CALL switch_u(pbarug_adv,distrib_vanleer,dist)
+    CALL switch_v(pbarvg_adv,distrib_vanleer,dist)
+
+    CALL advtrac_switch_vanleer(dist)
+    
+  END SUBROUTINE caladvtrac_switch_vanleer  
+  
+END MODULE caladvtrac_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caldyn_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caldyn_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caldyn_loc.F	(revision 3330)
@@ -0,0 +1,185 @@
+!
+! $Id: $
+!
+#undef DEBUG_IO
+!#define DEBUG_IO
+
+      SUBROUTINE caldyn_loc
+     $ (itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
+     $  phi,conser,du,dv,dteta,dp,w,pbaru,pbarv,time )
+      USE parallel_lmdz
+      USE Write_Field_loc
+      USE caldyn_mod, ONLY: vcont, ucont, ang, p, massebx, masseby,
+     &                      vorpot, ecin, bern, massebxy, convm
+      USE comvert_mod, ONLY: ap, bp
+      
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!  Auteur :  P. Le Van
+!
+!   Objet:
+!   ------
+!
+!   Calcul des tendances dynamiques.
+!
+! Modif 04/93 F.Forget
+!=======================================================================
+
+!-----------------------------------------------------------------------
+!   0. Declarations:
+!   ----------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+
+!   Arguments:
+!   ----------
+
+      LOGICAL,INTENT(IN) :: conser ! triggers printing some diagnostics ! not used
+      INTEGER,INTENT(IN) :: itau ! time step index ! not used
+      REAL,INTENT(IN) :: vcov(ijb_v:ije_v,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ijb_u:ije_u,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ijb_u:ije_u,llm) ! potential temperature
+      REAL,INTENT(IN) :: ps(ijb_u:ije_u) ! surface pressure
+      REAL,INTENT(IN) :: phis(ijb_u:ije_u) ! geopotential at the surface
+      REAL,INTENT(IN) :: pk(iip1,jjb_u:jje_u,llm) ! Exner at mid-layer
+      REAL,INTENT(IN) :: pkf(ijb_u:ije_u,llm) ! filtered Exner
+      REAL,INTENT(IN) :: phi(ijb_u:ije_u,llm) ! geopotential
+      REAL,INTENT(OUT) :: masse(ijb_u:ije_u,llm) ! air mass
+      REAL,INTENT(OUT) :: dv(ijb_v:ije_v,llm) ! tendency on vcov
+      REAL,INTENT(OUT) :: du(ijb_u:ije_u,llm) ! tendency on ucov
+      REAL,INTENT(OUT) :: dteta(ijb_u:ije_u,llm) ! tenddency on teta
+      REAL,INTENT(OUT) :: dp(ijb_u:ije_u) ! tendency on ps
+      REAL,INTENT(OUT) :: w(ijb_u:ije_u,llm) ! vertical velocity
+      REAL,INTENT(OUT) :: pbaru(ijb_u:ije_u,llm) ! mass flux in the zonal direction
+      REAL,INTENT(OUT) :: pbarv(ijb_v:ije_v,llm) ! mass flux in the meridional direction
+      REAL,INTENT(IN) :: time ! current time
+
+!   Local:
+!   ------
+
+      INTEGER   ij,l,ijb,ije,ierr
+
+
+!-----------------------------------------------------------------------
+!   Compute dynamical tendencies:
+!--------------------------------
+
+      ! compute contravariant winds ucont() and vcont
+      CALL covcont_loc  ( llm    , ucov    , vcov , ucont, vcont     )
+      ! compute pressure p()
+      CALL pression_loc ( ip1jmp1, ap      , bp   ,  ps  , p         )
+cym      CALL psextbar (   ps   , psexbarxy                          )
+c$OMP BARRIER
+      ! compute mass in each atmospheric mesh: masse()
+      CALL massdair_loc (    p   , masse                             )
+      ! compute X and Y-averages of mass, massebx() and masseby()
+      CALL massbar_loc  (   masse, massebx , masseby                 )
+      ! compute XY-average of mass, massebxy()
+      call massbarxy_loc(   masse, massebxy                          )
+      ! compute mass fluxes pbaru() and pbarv()
+      CALL flumass_loc  ( massebx, masseby,vcont,ucont,pbaru,pbarv   )
+      ! compute dteta() , horizontal converging flux of theta
+      CALL dteta1_loc   (   teta , pbaru   , pbarv, dteta            )
+      ! compute convm(), horizontal converging flux of mass
+      CALL convmas1_loc  (   pbaru, pbarv   , convm                  )
+c$OMP BARRIER      
+      CALL convmas2_loc  (   convm                      )
+c$OMP BARRIER
+#ifdef DEBUG_IO
+      call WriteField_u('ucont',ucont)
+      call WriteField_v('vcont',vcont)
+      call WriteField_u('p',p)
+      call WriteField_u('masse',masse)
+      call WriteField_u('massebx',massebx)
+      call WriteField_v('masseby',masseby)
+      call WriteField_v('massebxy',massebxy)
+      call WriteField_u('pbaru',pbaru)
+      call WriteField_v('pbarv',pbarv)
+      call WriteField_u('dteta',dteta)
+      call WriteField_u('convm',convm)
+#endif      
+
+c$OMP BARRIER
+c$OMP MASTER
+      ijb=ij_begin
+      ije=ij_end
+      ! compute pressure variation due to mass convergence
+      DO ij =ijb, ije
+         dp( ij ) = convm( ij,1 ) / airesurg( ij )
+      ENDDO
+c$OMP END MASTER
+c$OMP BARRIER
+      
+      ! compute vertical velocity w()
+      CALL vitvert_loc ( convm  , w                                )
+      ! compute potential vorticity vorpot()
+      CALL tourpot_loc ( vcov   , ucov  , massebxy  , vorpot       )
+      ! compute rotation induced du() and dv()
+      CALL dudv1_loc   ( vorpot , pbaru , pbarv     , du     , dv  )
+
+#ifdef DEBUG_IO      
+      call WriteField_u('w',w)
+      call WriteField_v('vorpot',vorpot)
+      call WriteField_u('du',du)
+      call WriteField_v('dv',dv)
+#endif      
+      
+      ! compute kinetic energy ecin()
+      CALL enercin_loc ( vcov   , ucov  , vcont   , ucont  , ecin  )
+      ! compute Bernouilli function bern()
+      CALL bernoui_loc ( ip1jmp1, llm   , phi       , ecin   , bern)
+      ! compute and add du() and dv() contributions from Bernouilli and pressure
+      CALL dudv2_loc   ( teta   , pkf   , bern      , du     , dv  )
+
+#ifdef DEBUG_IO
+      call WriteField_u('ecin',ecin)
+      call WriteField_u('bern',bern)
+      call WriteField_u('du',du)
+      call WriteField_v('dv',dv)
+      call WriteField_u('pkf',pkf)
+#endif
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud) ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+         DO ij=ijb,ije
+            ang(ij,l) = ucov(ij,l) + constang(ij)
+        ENDDO
+      ENDDO
+c$OMP END DO
+
+      ! compute vertical advection contributions to du(), dv() and dteta()
+      CALL advect_new_loc(ang,vcov,teta,w,massebx,masseby,du,dv,dteta) 
+
+C  WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi 
+C          probablement. Observe sur le code compile avec pgf90 3.0-1 
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l = 1, llm
+         DO ij = ijb, ije, iip1
+           IF( dv(ij,l).NE.dv(ij+iim,l) )  THEN
+c         PRINT *,'!!!ATTENTION!!! probleme de periodicite sur vcov',  
+c    ,   ' dans caldyn'
+c         PRINT *,' l,  ij = ', l, ij, ij+iim,dv(ij+iim,l),dv(ij,l)
+          dv(ij+iim,l) = dv(ij,l)
+          endif
+         enddo
+      enddo
+c$OMP END DO NOWAIT      
+
+! Ehouarn: NB: output of control variables not implemented...
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caldyn_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caldyn_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/caldyn_mod.F90	(revision 3330)
@@ -0,0 +1,75 @@
+MODULE caldyn_mod
+
+  REAL,POINTER,SAVE :: vcont(:,:)
+  REAL,POINTER,SAVE :: ucont(:,:)
+  REAL,POINTER,SAVE :: ang(:,:)
+  REAL,POINTER,SAVE :: p(:,:)
+  REAL,POINTER,SAVE :: massebx(:,:)
+  REAL,POINTER,SAVE :: masseby(:,:)
+  REAL,POINTER,SAVE :: psexbarxy(:,:)
+  REAL,POINTER,SAVE :: vorpot(:,:)
+  REAL,POINTER,SAVE :: ecin(:,:)
+  REAL,POINTER,SAVE :: bern(:,:)
+  REAL,POINTER,SAVE :: massebxy(:,:)
+  REAL,POINTER,SAVE :: convm(:,:)
+
+
+  
+CONTAINS
+
+  SUBROUTINE caldyn_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  USE advect_new_mod,ONLY : advect_new_allocate
+  IMPLICIT NONE
+  TYPE(distrib),POINTER :: d
+
+
+    d=>distrib_caldyn
+    CALL allocate_v(vcont,llm,d)
+    CALL allocate_u(ucont,llm,d)
+    CALL allocate_u(ang,llm,d)
+    CALL allocate_u(p,llmp1,d)
+    CALL allocate_u(massebx,llm,d)
+    CALL allocate_v(masseby,llm,d)
+    CALL allocate_v(psexbarxy,llm,d)
+    CALL allocate_v(vorpot,llm,d)
+    CALL allocate_u(ecin,llm,d)
+    CALL allocate_u(bern,llm,d)
+    CALL allocate_v(massebxy,llm,d)
+    CALL allocate_u(convm,llm,d)
+    
+    CALL advect_new_allocate
+    
+  END SUBROUTINE caldyn_allocate
+  
+  SUBROUTINE caldyn_switch_caldyn(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE advect_new_mod,ONLY : advect_new_switch_caldyn
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_v(vcont,distrib_caldyn,dist)
+    CALL switch_u(ucont,distrib_caldyn,dist)
+    CALL switch_u(ang,distrib_caldyn,dist)
+    CALL switch_u(p,distrib_caldyn,dist)
+    CALL switch_u(massebx,distrib_caldyn,dist)
+    CALL switch_v(masseby,distrib_caldyn,dist)
+    CALL switch_v(psexbarxy,distrib_caldyn,dist)
+    CALL switch_v(vorpot,distrib_caldyn,dist)
+    CALL switch_u(ecin,distrib_caldyn,dist)
+    CALL switch_u(bern,distrib_caldyn,dist)
+    CALL switch_v(massebxy,distrib_caldyn,dist)
+    CALL switch_u(convm,distrib_caldyn,dist)
+    
+    CALL advect_new_switch_caldyn(dist)
+    
+  END SUBROUTINE caldyn_switch_caldyn
+  
+
+  
+END MODULE caldyn_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/call_calfis_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/call_calfis_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/call_calfis_mod.F90	(revision 3330)
@@ -0,0 +1,414 @@
+!#define DEBUG_IO
+MODULE call_calfis_mod
+
+    REAL,POINTER,SAVE :: ucov(:,:)
+    REAL,POINTER,SAVE :: vcov(:,:) 
+    REAL,POINTER,SAVE :: teta(:,:) 
+    REAL,POINTER,SAVE :: masse(:,:) 
+    REAL,POINTER,SAVE :: ps(:) 
+    REAL,POINTER,SAVE :: phis(:) 
+    REAL,POINTER,SAVE :: q(:,:,:) 
+    REAL,POINTER,SAVE :: flxw(:,:) 
+
+    REAL,POINTER,SAVE :: p(:,:) 
+    REAL,POINTER,SAVE :: pks(:) 
+    REAL,POINTER,SAVE :: pk(:,:) 
+    REAL,POINTER,SAVE :: pkf(:,:) 
+    REAL,POINTER,SAVE :: phi(:,:) 
+    REAL,POINTER,SAVE :: du(:,:) 
+    REAL,POINTER,SAVE :: dv(:,:) 
+    REAL,POINTER,SAVE :: dteta(:,:) 
+    REAL,POINTER,SAVE :: dq(:,:,:) 
+    REAL,POINTER,SAVE :: dufi(:,:) 
+    REAL,POINTER,SAVE :: dvfi(:,:) 
+    REAL,POINTER,SAVE :: dtetafi(:,:) 
+    REAL,POINTER,SAVE :: dqfi(:,:,:) 
+    REAL,POINTER,SAVE :: dpfi(:) 
+   
+    
+    
+    
+    
+CONTAINS
+
+  SUBROUTINE call_calfis_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  USE infotrac
+  IMPLICIT NONE
+    TYPE(distrib),POINTER :: d
+    d=>distrib_physic
+
+    CALL allocate_u(ucov,llm,d)
+    CALL allocate_v(vcov,llm,d)
+    CALL allocate_u(teta,llm,d)
+    CALL allocate_u(masse,llm,d)
+    CALL allocate_u(ps,d)
+    CALL allocate_u(phis,d)
+    CALL allocate_u(q,llm,nqtot,d)
+    CALL allocate_u(flxw,llm,d)
+    CALL allocate_u(p,llmp1,d)
+    CALL allocate_u(pks,d)
+    CALL allocate_u(pk,llm,d)
+    CALL allocate_u(pkf,llm,d)
+    CALL allocate_u(phi,llm,d)
+    CALL allocate_u(du,llm,d)
+    CALL allocate_v(dv,llm,d)
+    CALL allocate_u(dteta,llm,d)
+    CALL allocate_u(dq,llm,nqtot,d)
+    CALL allocate_u(dufi,llm,d)
+    CALL allocate_v(dvfi,llm,d)
+    CALL allocate_u(dtetafi,llm,d)
+    CALL allocate_u(dqfi,llm,nqtot,d)
+    CALL allocate_u(dpfi,d)
+  
+  END SUBROUTINE call_calfis_allocate
+  
+  
+  SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, &
+                         phis_dyn,q_dyn,flxw_dyn)
+  USE dimensions_mod
+  use exner_hyb_loc_m, only: exner_hyb_loc
+  use exner_milieu_loc_m, only: exner_milieu_loc
+  USE parallel_lmdz
+  USE times
+  USE mod_hallo
+  USE Bands
+  USE vampir
+  USE infotrac
+  USE control_mod
+  USE write_field_loc
+  USE write_field
+  USE comconst_mod, ONLY: dtphys
+  USE logic_mod, ONLY: leapf, forward, ok_strato
+  USE comvert_mod, ONLY: ap, bp, pressure_exner
+  USE temps_mod, ONLY: day_ini, day_ref, jd_ref, jh_ref, start_time
+  
+  IMPLICIT NONE
+    INCLUDE "iniprint.h"
+
+    INTEGER,INTENT(IN) :: itau ! (time) iteration step number
+    LOGICAL,INTENT(IN) :: lafin ! .true. if final time step
+    REAL,INTENT(INOUT) :: ucov_dyn(ijb_u:ije_u,llm) ! covariant zonal wind
+    REAL,INTENT(INOUT) :: vcov_dyn(ijb_v:ije_v,llm) ! covariant meridional wind
+    REAL,INTENT(INOUT) :: teta_dyn(ijb_u:ije_u,llm) ! potential temperature
+    REAL,INTENT(INOUT) :: masse_dyn(ijb_u:ije_u,llm) ! air mass
+    REAL,INTENT(INOUT) :: ps_dyn(ijb_u:ije_u) ! surface pressure
+    REAL,INTENT(INOUT) :: phis_dyn(ijb_u:ije_u) ! surface geopotential
+    REAL,INTENT(INOUT) :: q_dyn(ijb_u:ije_u,llm,nqtot) ! advected tracers
+    REAL,INTENT(INOUT) :: flxw_dyn(ijb_u:ije_u,llm) ! vertical mass flux
+
+    REAL :: dufi_tmp(iip1,llm)    
+    REAL :: dvfi_tmp(iip1,llm)  
+    REAL :: dtetafi_tmp(iip1,llm)
+    REAL :: dpfi_tmp(iip1)
+    REAL :: dqfi_tmp(iip1,llm,nqtot)
+
+    REAL :: jD_cur, jH_cur
+    CHARACTER(LEN=15) :: ztit
+    TYPE(Request),SAVE :: Request_physic
+!$OMP THREADPRIVATE(Request_physic )
+    INTEGER :: ijb,ije,l,j
+    
+    
+#ifdef DEBUG_IO    
+    CALL WriteField_u('ucovfi',ucov)
+    CALL WriteField_v('vcovfi',vcov)
+    CALL WriteField_u('tetafi',teta)
+    CALL WriteField_u('pfi',p)
+    CALL WriteField_u('pkfi',pk)
+    DO j=1,nqtot
+      CALL WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+    ENDDO
+#endif
+
+!
+!     .......   Ajout   P.Le Van ( 17/04/96 )   ...........
+!
+
+
+  !$OMP MASTER
+    CALL suspend_timer(timer_caldyn)
+    IF (prt_level >= 10) THEN
+      WRITE(lunout,*) 'leapfrog_p: Entree dans la physique : Iteration No ',itau
+    ENDIF
+  !$OMP END MASTER
+   
+           jD_cur = jD_ref + day_ini - day_ref                           &
+     &        + (itau+1)/day_step
+
+           IF (planet_type .eq."generic") THEN
+              ! AS: we make jD_cur to be pday
+              jD_cur = int(day_ini + itau/day_step)
+           ENDIF
+
+           jH_cur = jH_ref + start_time +                                &
+     &              mod(itau+1,day_step)/float(day_step) 
+    if (jH_cur > 1.0 ) then
+      jD_cur = jD_cur +1.
+      jH_cur = jH_cur -1.
+    endif
+
+!   Inbterface avec les routines de phylmd (phymars ... )
+!   -----------------------------------------------------
+
+!+jld
+
+!  Diagnostique de conservation de l'energie : initialisation
+ 
+!-jld
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL VTb(VThallo)
+  !$OMP END MASTER
+
+#ifdef DEBUG_IO    
+    CALL WriteField_u('ucovfi',ucov)
+    CALL WriteField_v('vcovfi',vcov)
+    CALL WriteField_u('tetafi',teta)
+    CALL WriteField_u('pfi',p)
+    CALL WriteField_u('pkfi',pk)
+#endif
+    
+    CALL SetTag(Request_physic,800)
+    CALL Register_SwapField_u(ucov_dyn,ucov,distrib_physic,Request_physic,up=2,down=2)
+    CALL Register_SwapField_v(vcov_dyn,vcov,distrib_physic,Request_physic,up=2,down=2)
+    CALL Register_SwapField_u(teta_dyn,teta,distrib_physic,Request_physic,up=2,down=2)
+    CALL Register_SwapField_u(masse_dyn,masse,distrib_physic,Request_physic,up=1,down=2)
+    CALL Register_SwapField_u(ps_dyn,ps,distrib_physic,Request_physic,up=2,down=2)
+    CALL Register_SwapField_u(phis_dyn,phis,distrib_physic,Request_physic,up=2,down=2)
+    CALL Register_SwapField_u(q_dyn,q,distrib_physic,Request_physic,up=2,down=2)
+    CALL Register_SwapField_u(flxw_dyn,flxw,distrib_physic,Request_physic,up=2,down=2)
+ 
+    CALL SendRequest(Request_Physic)
+  !$OMP BARRIER
+    CALL WaitRequest(Request_Physic)       
+
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL Set_Distrib(distrib_Physic)
+    CALL VTe(VThallo)
+        
+    CALL VTb(VTphysiq)
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    CALL pression_loc (  ip1jmp1, ap, bp, ps,  p      )
+
+  !$OMP BARRIER
+    CALL exner_hyb_loc(  ip1jmp1, ps, p, pks, pk, pkf )
+  !$OMP BARRIER
+    CALL geopot_loc  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
+
+    CALL Register_Hallo_u(p,llmp1,2,2,2,2,Request_physic)
+    CALL Register_Hallo_u(pk,llm,2,2,2,2,Request_physic)
+    CALL Register_Hallo_u(phi,llm,2,2,2,2,Request_physic)
+        
+    CALL SendRequest(Request_Physic)
+  !$OMP BARRIER
+    CALL WaitRequest(Request_Physic)
+             
+  !$OMP BARRIER
+  
+  
+#ifdef DEBUG_IO    
+    CALL WriteField_u('ucovfi',ucov)
+    CALL WriteField_v('vcovfi',vcov)
+    CALL WriteField_u('tetafi',teta)
+    CALL WriteField_u('pfi',p)
+    CALL WriteField_u('pkfi',pk)
+    DO j=1,nqtot
+      CALL WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+    ENDDO
+#endif
+
+  !$OMP BARRIER
+
+#ifdef CPP_PHYS
+    CALL calfis_loc(lafin ,jD_cur, jH_cur,                       &
+                     ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,   &
+                     du,dv,dteta,dq,                             &
+                     flxw, dufi,dvfi,dtetafi,dqfi,dpfi  )
+#endif
+    ijb=ij_begin
+    ije=ij_end  
+    IF ( .not. pole_nord) THEN
+  
+    !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        dufi_tmp(1:iip1,l)   = dufi(ijb:ijb+iim,l) 
+        dvfi_tmp(1:iip1,l)   = dvfi(ijb:ijb+iim,l)  
+        dtetafi_tmp(1:iip1,l)= dtetafi(ijb:ijb+iim,l)  
+        dqfi_tmp(1:iip1,l,:) = dqfi(ijb:ijb+iim,l,:)  
+      ENDDO
+    !$OMP END DO NOWAIT
+
+    !$OMP MASTER
+      dpfi_tmp(1:iip1)     = dpfi(ijb:ijb+iim)  
+    !$OMP END MASTER
+    
+    ENDIF ! of if ( .not. pole_nord)
+
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL Set_Distrib(distrib_Physic_bis)
+    CALL VTb(VThallo)
+  !$OMP END MASTER
+  !$OMP BARRIER
+ 
+    CALL Register_Hallo_u(dufi,llm,1,0,0,1,Request_physic)
+    CALL Register_Hallo_v(dvfi,llm,1,0,0,1,Request_physic)
+    CALL Register_Hallo_u(dtetafi,llm,1,0,0,1,Request_physic)
+    CALL Register_Hallo_u(dpfi,1,1,0,0,1,Request_physic)
+
+    DO j=1,nqtot
+      CALL Register_Hallo_u(dqfi(:,:,j),llm,1,0,0,1,Request_physic)
+    ENDDO
+        
+    CALL SendRequest(Request_Physic)
+  !$OMP BARRIER
+    CALL WaitRequest(Request_Physic)
+             
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL VTe(VThallo)
+    CALL Set_Distrib(distrib_Physic)
+  !$OMP END MASTER
+  !$OMP BARRIER        
+    ijb=ij_begin
+    IF (.not. pole_nord) THEN
+        
+    !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        dufi(ijb:ijb+iim,l) = dufi(ijb:ijb+iim,l)+dufi_tmp(1:iip1,l)
+        dvfi(ijb:ijb+iim,l) = dvfi(ijb:ijb+iim,l)+dvfi_tmp(1:iip1,l) 
+        dtetafi(ijb:ijb+iim,l) = dtetafi(ijb:ijb+iim,l)+dtetafi_tmp(1:iip1,l)
+        dqfi(ijb:ijb+iim,l,:) = dqfi(ijb:ijb+iim,l,:) + dqfi_tmp(1:iip1,l,:)
+      ENDDO
+    !$OMP END DO NOWAIT
+
+    !$OMP MASTER
+      dpfi(ijb:ijb+iim)   = dpfi(ijb:ijb+iim)+ dpfi_tmp(1:iip1)
+    !$OMP END MASTER
+          
+    endif ! of if (.not. pole_nord)
+        
+        
+#ifdef DEBUG_IO           
+    CALL WriteField_u('dufi',dufi)
+    CALL WriteField_v('dvfi',dvfi) 
+    CALL WriteField_u('dtetafi',dtetafi)
+    CALL WriteField_u('dpfi',dpfi)
+    DO j=1,nqtot
+      CALL WriteField_u('dqfi'//trim(int2str(j)),dqfi(:,:,j))
+    ENDDO
+#endif
+
+  !$OMP BARRIER
+
+!      ajout des tendances physiques:
+!      ------------------------------
+#ifdef DEBUG_IO    
+    CALL WriteField_u('ucovfi',ucov)
+    CALL WriteField_v('vcovfi',vcov)
+    CALL WriteField_u('tetafi',teta)
+    CALL WriteField_u('psfi',ps)
+    DO j=1,nqtot
+      CALL WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+    ENDDO
+#endif
+
+#ifdef DEBUG_IO           
+    CALL WriteField_u('ucovfi',ucov)
+    CALL WriteField_v('vcovfi',vcov)
+    CALL WriteField_u('tetafi',teta)
+    CALL WriteField_u('psfi',ps)
+    DO j=1,nqtot
+      CALL WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+    ENDDO
+#endif
+
+    CALL addfi_loc( dtphys, leapf, forward   ,              &
+                    ucov, vcov, teta , q   ,ps ,            &
+                    dufi, dvfi, dtetafi , dqfi ,dpfi  )
+    ! since addfi updates ps(), also update p(), masse() and pk()
+    CALL pression_loc(ip1jmp1,ap,bp,ps,p)
+!$OMP BARRIER
+    CALL massdair_loc(p,masse)
+!$OMP BARRIER
+    if (pressure_exner) then
+      CALL exner_hyb_loc(ijnb_u,ps,p,pks,pk,pkf)
+    else 
+      CALL exner_milieu_loc(ijnb_u,ps,p,pks,pk,pkf)
+    endif
+!$OMP BARRIER
+
+#ifdef DEBUG_IO    
+    CALL WriteField_u('ucovfi',ucov)
+    CALL WriteField_v('vcovfi',vcov)
+    CALL WriteField_u('tetafi',teta)
+    CALL WriteField_u('psfi',ps)
+    DO j=1,nqtot
+      CALL WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+    ENDDO
+#endif
+
+    IF (ok_strato) THEN
+!      CALL top_bound_loc( vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
+      CALL top_bound_loc(vcov,ucov,teta,masse,dtphys)
+    ENDIF
+
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL VTe(VTphysiq)
+    CALL VTb(VThallo)
+  !$OMP END MASTER
+
+    CALL SetTag(Request_physic,800)
+    CALL Register_SwapField_u(ucov,ucov_dyn,distrib_caldyn,Request_physic)
+    CALL Register_SwapField_v(vcov,vcov_dyn,distrib_caldyn,Request_physic)
+    CALL Register_SwapField_u(teta,teta_dyn,distrib_caldyn,Request_physic)
+    CALL Register_SwapField_u(masse,masse_dyn,distrib_caldyn,Request_physic)
+    CALL Register_SwapField_u(ps,ps_dyn,distrib_caldyn,Request_physic)
+    CALL Register_SwapField_u(q,q_dyn,distrib_caldyn,Request_physic)
+    CALL SendRequest(Request_Physic)
+  !$OMP BARRIER
+    CALL WaitRequest(Request_Physic)     
+
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL VTe(VThallo)
+    CALL set_distrib(distrib_caldyn)
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+!
+!  Diagnostique de conservation de l'energie : difference
+    IF (ip_ebil_dyn.ge.1 ) THEN 
+      ztit='bil phys'
+!      CALL diagedyn(ztit,2,1,1,dtphys,ucov, vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+      write(lunout,*)"call_calfis: diagedyn disabled in dyn3dmem !!"
+    ENDIF 
+
+#ifdef DEBUG_IO    
+    CALL WriteField_u('ucovfi',ucov_dyn)
+    CALL WriteField_v('vcovfi',vcov_dyn)
+    CALL WriteField_u('tetafi',teta_dyn)
+    CALL WriteField_u('psfi',ps_dyn)
+    DO j=1,nqtot
+      CALL WriteField_u('qfi'//trim(int2str(j)),q_dyn(:,:,j))
+    ENDDO
+#endif
+
+
+!-jld
+    !$OMP MASTER
+      CALL resume_timer(timer_caldyn)
+    !$OMP END MASTER
+
+  END SUBROUTINE call_calfis
+  
+END MODULE call_calfis_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/call_dissip_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/call_dissip_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/call_dissip_mod.F90	(revision 3330)
@@ -0,0 +1,323 @@
+MODULE call_dissip_mod
+
+    REAL,POINTER,SAVE :: ucov(:,:)
+    REAL,POINTER,SAVE :: vcov(:,:)
+    REAL,POINTER,SAVE :: teta(:,:)
+    REAL,POINTER,SAVE :: p(:,: )
+    REAL,POINTER,SAVE :: pk(:,:)
+
+    REAL,POINTER,SAVE :: ucont(:,:)
+    REAL,POINTER,SAVE :: vcont(:,:)
+    REAL,POINTER,SAVE :: ecin(:,:)
+    REAL,POINTER,SAVE :: ecin0(:,:)
+    REAL,POINTER,SAVE :: dudis(:,:)
+    REAL,POINTER,SAVE :: dvdis(:,:)
+    REAL,POINTER,SAVE :: dtetadis(:,:)
+    REAL,POINTER,SAVE :: dtetaecdt(:,:)
+
+
+
+CONTAINS
+  
+  SUBROUTINE call_dissip_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  USE dissip_mod, ONLY : dissip_allocate
+  IMPLICIT NONE
+    TYPE(distrib),POINTER :: d
+    d=>distrib_dissip
+
+    CALL allocate_u(ucov,llm,d)
+    CALL allocate_v(vcov,llm,d)
+    CALL allocate_u(teta,llm,d)
+    CALL allocate_u(p,llmp1,d)
+    CALL allocate_u(pk,llm,d)
+    CALL allocate_u(ucont,llm,d)
+    CALL allocate_v(vcont,llm,d)
+    CALL allocate_u(ecin,llm,d)
+    CALL allocate_u(ecin0,llm,d)
+    CALL allocate_u(dudis,llm,d)
+    CALL allocate_v(dvdis,llm,d)
+    CALL allocate_u(dtetadis,llm,d)
+    CALL allocate_u(dtetaecdt,llm,d)
+    
+    
+    CALL dissip_allocate
+    
+  END SUBROUTINE call_dissip_allocate
+  
+  SUBROUTINE call_dissip_switch_dissip(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE dissip_mod, ONLY : dissip_switch_dissip
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(ucov,distrib_dissip,dist)
+    CALL switch_v(vcov,distrib_dissip,dist)
+    CALL switch_u(teta,distrib_dissip,dist)
+    CALL switch_u(p,distrib_dissip,dist)
+    CALL switch_u(pk,distrib_dissip,dist)
+    CALL switch_u(ucont,distrib_dissip,dist)
+    CALL switch_v(vcont,distrib_dissip,dist)
+    CALL switch_u(ecin,distrib_dissip,dist)
+    CALL switch_u(ecin0,distrib_dissip,dist)
+    CALL switch_u(dudis,distrib_dissip,dist)
+    CALL switch_v(dvdis,distrib_dissip,dist)
+    CALL switch_u(dtetadis,distrib_dissip,dist)
+    CALL switch_u(dtetaecdt,distrib_dissip,dist)
+
+    CALL dissip_switch_dissip(dist)
+    
+  END SUBROUTINE call_dissip_switch_dissip  
+  
+
+  
+  SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
+  USE dimensions_mod
+  USE parallel_lmdz
+  USE times
+  USE mod_hallo
+  USE Bands
+  USE vampir
+  USE write_field_loc
+  IMPLICIT NONE
+    INCLUDE 'comgeom.h'
+    REAL,INTENT(INOUT) :: ucov_dyn(ijb_u:ije_u,llm) ! covariant zonal wind
+    REAL,INTENT(INOUT) :: vcov_dyn(ijb_v:ije_v,llm) ! covariant meridional wind
+    REAL,INTENT(INOUT) :: teta_dyn(ijb_u:ije_u,llm) ! covariant meridional wind
+    REAL,INTENT(INOUT) :: p_dyn(ijb_u:ije_u,llmp1 ) ! pressure at interlayer
+    REAL,INTENT(INOUT) :: pk_dyn(ijb_u:ije_u,llm) ! Exner at midlayer
+    REAL,INTENT(INOUT) :: ps_dyn(ijb_u:ije_u) ! surface pressure
+    REAL :: tppn(iim),tpps(iim)
+    REAL :: tpn,tps
+
+    REAL  SSUM
+    LOGICAL,PARAMETER :: dissip_conservative=.TRUE.
+    TYPE(Request),SAVE :: Request_dissip 
+!$OMP THREADPRIVATE(Request_dissip )    
+    INTEGER :: ij,l,ijb,ije 
+  
+    
+  !$OMP MASTER
+    CALL suspend_timer(timer_caldyn)
+        
+!       print*,'Entree dans la dissipation : Iteration No ',true_itau
+!   calcul de l'energie cinetique avant dissipation
+!       print *,'Passage dans la dissipation'
+
+    CALL VTb(VThallo)
+  !$OMP END MASTER
+
+  !$OMP BARRIER
+
+    CALL Register_SwapField_u(ucov_dyn,ucov,distrib_dissip, Request_dissip,up=1,down=1)
+    CALL Register_SwapField_v(vcov_dyn,vcov,distrib_dissip, Request_dissip,up=1,down=1)
+    CALL Register_SwapField_u(teta_dyn,teta,distrib_dissip, Request_dissip)
+    CALL Register_SwapField_u(p_dyn,p,distrib_dissip,Request_dissip)
+    CALL Register_SwapField_u(pk_dyn,pk,distrib_dissip,Request_dissip)
+
+    CALL SendRequest(Request_dissip)       
+  !$OMP BARRIER
+    CALL WaitRequest(Request_dissip)       
+
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL set_distrib(distrib_dissip)
+    CALL VTe(VThallo)
+    CALL VTb(VTdissipation)
+    CALL start_timer(timer_dissip)
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    CALL covcont_loc(llm,ucov,vcov,ucont,vcont)
+    CALL enercin_loc(vcov,ucov,vcont,ucont,ecin0)
+
+!   dissipation
+
+!        CALL FTRACE_REGION_BEGIN("dissip")
+    CALL dissip_loc(vcov,ucov,teta,p,dvdis,dudis,dtetadis)
+
+#ifdef DEBUG_IO    
+    CALL WriteField_u('dudis',dudis)
+    CALL WriteField_v('dvdis',dvdis)
+    CALL WriteField_u('dtetadis',dtetadis)
+#endif
+ 
+!      CALL FTRACE_REGION_END("dissip")
+         
+    ijb=ij_begin
+    ije=ij_end
+  !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+    DO l=1,llm
+      ucov(ijb:ije,l)=ucov(ijb:ije,l)+dudis(ijb:ije,l)
+    ENDDO
+  !$OMP END DO NOWAIT        
+
+    IF (pole_sud) ije=ije-iip1
+   
+  !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+    DO l=1,llm
+      vcov(ijb:ije,l)=vcov(ijb:ije,l)+dvdis(ijb:ije,l)
+    ENDDO
+  !$OMP END DO NOWAIT        
+
+!       teta=teta+dtetadis
+
+
+!------------------------------------------------------------------------
+    IF (dissip_conservative) THEN
+!       On rajoute la tendance due a la transform. Ec -> E therm. cree
+!       lors de la dissipation
+    !$OMP BARRIER
+    !$OMP MASTER
+      CALL suspend_timer(timer_dissip)
+      CALL VTb(VThallo)
+    !$OMP END MASTER
+      CALL Register_Hallo_u(ucov,llm,1,1,1,1,Request_Dissip)
+      CALL Register_Hallo_v(vcov,llm,1,1,1,1,Request_Dissip)
+      CALL SendRequest(Request_Dissip)
+    !$OMP BARRIER
+      CALL WaitRequest(Request_Dissip)
+    !$OMP MASTER
+      CALL VTe(VThallo)
+      CALL resume_timer(timer_dissip)
+    !$OMP END MASTER
+    !$OMP BARRIER            
+      CALL covcont_loc(llm,ucov,vcov,ucont,vcont)
+      CALL enercin_loc(vcov,ucov,vcont,ucont,ecin)
+            
+      ijb=ij_begin
+      ije=ij_end
+    !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+      DO l=1,llm
+        DO ij=ijb,ije
+           dtetaecdt(ij,l)= (ecin0(ij,l)-ecin(ij,l))/ pk(ij,l)
+           dtetadis(ij,l)=dtetadis(ij,l)+dtetaecdt(ij,l)
+        ENDDO
+      ENDDO
+    !$OMP END DO NOWAIT            
+
+    ENDIF
+
+    ijb=ij_begin
+    ije=ij_end
+
+  !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+    DO l=1,llm
+      DO ij=ijb,ije
+         teta(ij,l)=teta(ij,l)+dtetadis(ij,l)
+      ENDDO
+    ENDDO
+  !$OMP END DO NOWAIT         
+
+!------------------------------------------------------------------------
+
+
+!    .......        P. Le Van (  ajout  le 17/04/96  )   ...........
+!   ...      Calcul de la valeur moyenne, unique de h aux poles  .....
+!
+
+    ijb=ij_begin
+    ije=ij_end
+         
+    IF (pole_nord) THEN
+  
+   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l  =  1, llm
+        DO ij =  1,iim
+          tppn(ij)  = aire(  ij    ) * teta(  ij    ,l)
+        ENDDO
+        tpn  = SSUM(iim,tppn,1)/apoln
+
+        DO ij = 1, iip1
+          teta(  ij    ,l) = tpn
+        ENDDO
+      ENDDO
+    !$OMP END DO NOWAIT
+
+         if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
+    !$OMP MASTER               
+      DO ij =  1,iim
+        tppn(ij)  = aire(  ij    ) * ps_dyn (  ij    )
+      ENDDO
+      tpn  = SSUM(iim,tppn,1)/apoln
+  
+      DO ij = 1, iip1
+        ps_dyn(  ij    ) = tpn
+      ENDDO
+    !$OMP END MASTER
+    
+    ENDIF ! of if (1 == 0)
+    endif ! of of (pole_nord)
+        
+    IF (pole_sud) THEN
+
+    !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l  =  1, llm
+        DO ij =  1,iim
+          tpps(ij)  = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+        ENDDO
+        
+        tps  = SSUM(iim,tpps,1)/apols
+
+        DO ij = 1, iip1
+          teta(ij+ip1jm,l) = tps
+        ENDDO
+      ENDDO
+    !$OMP END DO NOWAIT
+
+    if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
+    !$OMP MASTER               
+      DO ij =  1,iim
+        tpps(ij)  = aire(ij+ip1jm) * ps_dyn (ij+ip1jm)
+      ENDDO
+      tps  = SSUM(iim,tpps,1)/apols
+  
+      DO ij = 1, iip1
+        ps_dyn(ij+ip1jm) = tps
+      ENDDO
+    !$OMP END MASTER
+    ENDIF ! of if (1 == 0)
+    endif ! of if (pole_sud)
+
+
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL VTe(VTdissipation)
+    CALL stop_timer(timer_dissip)
+    CALL VTb(VThallo)
+  !$OMP END MASTER
+ 
+    CALL Register_SwapField_u(ucov,ucov_dyn,distrib_caldyn,Request_dissip)
+    CALL Register_SwapField_v(vcov,vcov_dyn,distrib_caldyn,Request_dissip)
+    CALL Register_SwapField_u(teta,teta_dyn,distrib_caldyn,Request_dissip)
+    CALL Register_SwapField_u(p,p_dyn,distrib_caldyn,Request_dissip)
+    CALL Register_SwapField_u(pk,pk_dyn,distrib_caldyn,Request_dissip)
+
+    CALL SendRequest(Request_dissip)       
+
+  !$OMP BARRIER
+    CALL WaitRequest(Request_dissip)       
+  !$OMP BARRIER
+  !$OMP MASTER
+    CALL set_distrib(distrib_caldyn)
+    CALL VTe(VThallo)
+    CALL resume_timer(timer_caldyn)
+!        print *,'fin dissipation'
+  !$OMP END MASTER
+  !$OMP BARRIER
+  
+  
+  END SUBROUTINE call_dissip
+
+END MODULE call_dissip_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/check_isotopes_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/check_isotopes_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/check_isotopes_loc.F	(revision 3330)
@@ -0,0 +1,215 @@
+        subroutine check_isotopes(q,ijb,ije,err_msg)
+        USE infotrac
+        USE parallel_lmdz
+        implicit none
+
+#include "dimensions.h"
+
+        ! inputs
+        integer ijb,ije ! peut être local et différent de ijb_u,ije_u, ex: dans qminimum
+        real q(ijb_u:ije_u,llm,nqtot)
+        character*(*) err_msg ! message d''erreur à afficher
+
+        ! locals
+        integer ixt,phase,k,i,iq,iiso,izone,ieau,iqeau
+        real xtractot,xiiso
+        real borne
+        real qmin
+        real errmax ! erreur maximale en absolu.
+        real errmaxrel ! erreur maximale en relatif autorisée
+        real deltaDmax,deltaDmin
+        real ridicule
+        parameter (borne=1e19)
+        parameter (errmax=1e-8)
+        parameter (errmaxrel=1e-3)
+        parameter (qmin=1e-11)
+        parameter (deltaDmax=200.0,deltaDmin=-999.9)
+        parameter (ridicule=1e-12)
+        real deltaD
+
+        if (ok_isotopes) then
+
+        !write(*,*) 'check_isotopes 31: err_msg=',err_msg
+        ! verifier que rien n'est NaN
+        do ixt=1,ntraciso
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            do k=1,llm
+              DO i = ijb,ije
+                if ((q(i,k,iq).gt.-borne).and.
+     :            (q(i,k,iq).lt.borne)) then
+                else !if ((x(ixt,i,j).gt.-borne).and.
+                  write(*,*) 'erreur detectee par iso_verif_noNaN:'
+                  write(*,*) err_msg
+                  write(*,*) 'q,i,k,iq=',q(i,k,iq),i,k,iq
+                  write(*,*) 'borne=',borne
+                  stop
+                endif  !if ((x(ixt,i,j).gt.-borne).and.
+              enddo !DO i = ijb,ije
+            enddo !do k=1,llm
+c$OMP END DO NOWAIT
+          enddo !do phase=1,nqo
+        enddo !do ixt=1,ntraciso
+
+        !write(*,*) 'check_isotopes 52'
+        ! verifier que l'eau normale est OK
+        if (use_iso(1)) then
+          ixt=indnum_fn_num(1)
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            do k=1,llm
+            DO i = ijb,ije  
+              if ((abs(q(i,k,phase)-q(i,k,iq)).gt.errmax).and.
+     :          (abs((q(i,k,phase)-q(i,k,iq))/
+     :           max(max(abs(q(i,k,phase)),abs(q(i,k,iq))),1e-18))
+     :           .gt.errmaxrel)) then
+                  write(*,*) 'erreur detectee par iso_verif_egalite:'
+                  write(*,*) err_msg
+                  write(*,*) 'ixt,phase,ijb=',ixt,phase,ijb
+                  write(*,*) 'q,iq,i,k=',q(i,k,iq),iq,i,k
+                  write(*,*) 'q(i,k,phase)=',q(i,k,phase)
+                  stop
+              endif !if ((abs(q(i,k,phase)-q(i,k,iq)).gt.errmax).and.
+              ! bidouille pour éviter divergence:
+              q(i,k,iq)= q(i,k,phase) 
+            enddo ! DO i = ijb,ije
+            enddo !do k=1,llm
+c$OMP END DO NOWAIT
+          enddo ! do phase=1,nqo 
+        endif !if (use_iso(1)) then
+        
+        !write(*,*) 'check_isotopes 78'
+        ! verifier que HDO est raisonable
+        if (use_iso(2)) then
+          ixt=indnum_fn_num(2)
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            do k=1,llm
+            DO i = ijb,ije
+            if (q(i,k,iq).gt.qmin) then
+             deltaD=(q(i,k,iq)/q(i,k,phase)/tnat(2)-1)*1000
+             if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur detectee par iso_verif_aberrant:'
+                  write(*,*) err_msg
+                  write(*,*) 'ixt,phase=',ixt,phase
+                  write(*,*) 'q,iq,i,k,=',q(i,k,iq),iq,i,k
+                  write(*,*) 'q=',q(i,k,:)
+                  write(*,*) 'deltaD=',deltaD
+                  stop
+             endif !if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+            endif !if (q(i,k,iq).gt.qmin) then
+            enddo !DO i = ijb,ije
+            enddo !do k=1,llm
+c$OMP END DO NOWAIT
+          enddo ! do phase=1,nqo 
+        endif !if (use_iso(2)) then
+
+        !write(*,*) 'check_isotopes 103'
+        ! verifier que O18 est raisonable
+        if (use_iso(3)) then
+          ixt=indnum_fn_num(3)
+          do phase=1,nqo
+            iq=iqiso(ixt,phase)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            do k=1,llm
+            DO i = ijb,ije
+            if (q(i,k,iq).gt.qmin) then
+             deltaD=(q(i,k,iq)/q(i,k,phase)/tnat(3)-1)*1000
+             if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur detectee iso_verif_aberrant O18:'
+                  write(*,*) err_msg
+                  write(*,*) 'ixt,phase=',ixt,phase
+                  write(*,*) 'q,iq,i,k,=',q(i,k,phase),iq,i,k
+                  write(*,*) 'xt=',q(i,k,:)
+                  write(*,*) 'deltaO18=',deltaD
+                  stop
+             endif !if ((deltaD.gt.deltaDmax).or.(deltaD.lt.deltaDmin)) then
+            endif !if (q(i,k,iq).gt.qmin) then
+            enddo !DO i = ijb,ije
+            enddo !do k=1,llm
+c$OMP END DO NOWAIT
+          enddo ! do phase=1,nqo 
+        endif !if (use_iso(2)) then
+
+
+        !write(*,*) 'check_isotopes 129'
+        if (ok_isotrac) then
+
+          if (use_iso(2).and.use_iso(1)) then
+            do izone=1,ntraceurs_zone
+             ixt=index_trac(izone,indnum_fn_num(2))
+             ieau=index_trac(izone,indnum_fn_num(1))
+             do phase=1,nqo
+               iq=iqiso(ixt,phase)
+               iqeau=iqiso(ieau,phase)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               do k=1,llm
+                DO i = ijb,ije
+                if (q(i,k,iq).gt.qmin) then
+                 deltaD=(q(i,k,iq)/q(i,k,iqeau)/tnat(2)-1)*1000
+                 if ((deltaD.gt.deltaDmax).or.
+     &                   (deltaD.lt.deltaDmin)) then
+                  write(*,*) 'erreur dans iso_verif_aberrant trac:'
+                  write(*,*) err_msg
+                  write(*,*) 'izone,phase=',izone,phase
+                  write(*,*) 'ixt,ieau=',ixt,ieau
+                  write(*,*) 'q,iq,i,k,=',q(i,k,iq),iq,i,k
+                  write(*,*) 'deltaD=',deltaD
+                  stop
+                 endif !if ((deltaD.gt.deltaDmax).or.
+                endif !if (q(i,k,iq).gt.qmin) then
+                enddo !DO i = ijb,ije
+                enddo  ! do k=1,llm
+c$OMP END DO NOWAIT
+              enddo ! do phase=1,nqo    
+            enddo !do izone=1,ntraceurs_zone
+          endif !if (use_iso(2).and.use_iso(1)) then
+
+          do iiso=1,niso
+           do phase=1,nqo
+              iq=iqiso(iiso,phase)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+              do k=1,llm
+                DO i = ijb,ije
+                   xtractot=0.0
+                   xiiso=q(i,k,iq)
+                   do izone=1,ntraceurs_zone
+                      iq=iqiso(index_trac(izone,iiso),phase)
+                      xtractot=xtractot+ q(i,k,iq)
+                   enddo !do izone=1,ntraceurs_zone
+                   if ((abs(xtractot-xiiso).gt.errmax).and.
+     :                  (abs(xtractot-xiiso)/
+     :                  max(max(abs(xtractot),abs(xiiso)),1e-18)
+     :                  .gt.errmaxrel)) then
+                  write(*,*) 'erreur detectee par iso_verif_traceurs:'
+                  write(*,*) err_msg
+                  write(*,*) 'iiso,phase=',iiso,phase
+                  write(*,*) 'i,k,=',i,k
+                  write(*,*) 'q(i,k,:)=',q(i,k,:)
+                  stop
+                 endif !if ((abs(q(i,k,phase)-q(i,k,iq)).gt.errmax).and.
+                  
+                 ! bidouille pour éviter divergence:
+                 if (abs(xtractot).gt.ridicule) then
+                   do izone=1,ntraceurs_zone
+                     ixt=index_trac(izone,iiso) 
+                     q(i,k,iq)=q(i,k,iq)/xtractot*xiiso
+                   enddo !do izone=1,ntraceurs_zone                
+                  endif !if ((abs(xtractot).gt.ridicule) then
+                enddo !DO i = ijb,ije
+              enddo !do k=1,llm
+c$OMP END DO NOWAIT
+           enddo !do phase=1,nqo
+          enddo !do iiso=1,niso
+
+        endif !if (ok_isotrac) then
+
+        endif ! if (ok_isotopes)
+        !write(*,*) 'check_isotopes 198'
+        
+        end
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/conf_gcm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/conf_gcm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/conf_gcm.F90	(revision 3330)
@@ -0,0 +1,981 @@
+
+! $Id$
+
+SUBROUTINE conf_gcm( tapedef, etatinit )
+
+  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
+  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
+                          iflag_top_bound, mode_top_bound, tau_top_bound, &
+                          ngroup
+  USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, &
+                       ok_guide, ok_limit, ok_strato, purmats, read_start, &
+                       ysinus
+  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
+                       alphax,alphay,taux,tauy
+  USE temps_mod, ONLY: calend
+
+  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 .
+
+  LOGICAL,INTENT(IN) :: etatinit
+  INTEGER,INTENT(IN) :: tapedef
+
+  !   Declarations :
+  !   --------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissnew.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 )
+
+  ! ngroup
+  ngroup=3
+  CALL getin('ngroup',ngroup)
+
+  ! mode_top_bound : fields towards which sponge relaxation will be done:
+  ! 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.2
+     CALL getin('dzoomx',dzoomx)
+     call assert(dzoomx < 1, "conf_gcm: dzoomx must be < 1")
+
+     !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.2
+     CALL getin('dzoomy',dzoomy)
+     call assert(dzoomy < 1, "conf_gcm: dzoomy must be < 1")
+
+     !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 to activate FFTs for the filter
+     !Config  Def  = false
+     !Config  Help = enables to use FFts to do the longitudinal polar 
+     !Config         filtering around the 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,*)"A zoom in longitude is not compatible", &
+             " with the FFT filter ", &
+             "---> FFT filter deactivated"
+        use_filtre_fft=.FALSE.
+     ENDIF
+     use_filtre_fft_loc=use_filtre_fft
+
+     !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/IPSLCM5A2.1_ISO/libf/dyn3dmem/convflu_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convflu_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convflu_loc.F	(revision 3330)
@@ -0,0 +1,84 @@
+      SUBROUTINE convflu_loc( xflu,yflu,nbniv,convfl )
+c
+c  P. Le Van
+c
+c
+c    *******************************************************************
+c  ... calcule la (convergence horiz. * aire locale)du flux ayant pour
+c      composantes xflu et yflu ,variables extensives .  ......
+c    *******************************************************************
+c      xflu , yflu et nbniv sont des arguments d'entree pour le s-pg ..
+c      convfl                est  un argument de sortie pour le s-pg .
+c
+c     njxflu  est le nombre de lignes de latitude de xflu, 
+c     ( = jjm ou jjp1 )
+c     nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      REAL       xflu,yflu,convfl,convpn,convps
+      INTEGER    l,ij,nbniv
+      DIMENSION  xflu( ijb_u:ije_u,nbniv ),yflu( ijb_v:ije_v,nbniv ) ,
+     *         convfl( ijb_u:ije_u,nbniv )
+c
+      INTEGER ijb,ije
+      EXTERNAL   SSUM
+      REAL       SSUM
+c
+c
+#include "comgeom.h"
+c
+     
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+      DO 5 l = 1,nbniv
+c
+        ijb=ij_begin
+        ije=ij_end+iip1
+      
+        IF (pole_nord) ijb=ij_begin+iip1
+        IF (pole_sud)  ije=ij_end-iip1
+        
+        DO 2  ij = ijb , ije - 1
+          convfl(ij+1,l) = xflu(ij,l) - xflu(ij+ 1,l)   +
+     *                     yflu(ij +1,l ) - yflu( ij -iim,l )
+   2    CONTINUE
+c
+c
+
+c     ....  correction pour  convfl( 1,j,l)  ......
+c     ....   convfl(1,j,l)= convfl(iip1,j,l) ...
+c
+CDIR$ IVDEP
+        DO 3 ij = ijb,ije,iip1
+          convfl( ij,l ) = convfl( ij + iim,l )
+   3    CONTINUE
+c
+c     ......  calcul aux poles  .......
+c
+        IF (pole_nord) THEN
+      
+          convpn =   SSUM( iim, yflu(     1    ,l ),  1 )
+        
+          DO ij = 1,iip1
+            convfl(ij,l) = convpn * aire(ij) / apoln
+          ENDDO
+        
+        ENDIF
+      
+        IF (pole_sud) THEN
+        
+          convps = - SSUM( iim, yflu( ip1jm-iim,l ),  1 )
+        
+          DO ij = 1,iip1
+            convfl(ij+ip1jm,l) = convps * aire(ij+ ip1jm) / apols
+          ENDDO
+        
+        ENDIF
+      
+   5  CONTINUE
+c$OMP END DO NOWAIT   
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas1_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas1_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas1_loc.F90	(revision 3330)
@@ -0,0 +1,37 @@
+SUBROUTINE convmas1_loc (pbaru, pbarv, convm)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute mass flux convergence at p levels.
+!          Equivalent to convmas_loc if convmas2_loc is called after.
+  USE parallel_lmdz
+  USE mod_filtreg_p
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: pbaru(ijb_u:ije_u,llm)
+  REAL, INTENT(IN)  :: pbarv(ijb_v:ije_v,llm)
+  REAL, TARGET, INTENT(OUT) :: convm(ijb_u:ije_u,llm)
+!===============================================================================
+! Method used:   Computation from top to bottom.
+!   Mass convergence at level llm is equal to zero and is not stored in convm.
+!===============================================================================
+! Local variables:
+  INTEGER :: l, jjb, jje
+!===============================================================================
+
+!--- Computation of - (d(pbaru)/dx + d(pbarv)/dy )
+  CALL convflu_loc( pbaru, pbarv, llm, convm )
+
+!--- Filter
+  jjb=jj_begin
+  jje=jj_end+1
+  IF(pole_sud) jje=jj_end
+  CALL filtreg_p(convm,jjb_u,jje_u,jjb,jje,jjp1,llm,2,2,.TRUE.,1)
+
+END SUBROUTINE convmas1_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas2_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas2_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas2_loc.F90	(revision 3330)
@@ -0,0 +1,35 @@
+SUBROUTINE convmas2_loc (convm)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute mass flux convergence at p levels.
+!          Equivalent to convmas_loc if convmas1_loc is called before.
+  USE parallel_lmdz
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(INOUT) :: convm(ijb_u:ije_u,llm)
+!===============================================================================
+! Method used:   Computation from top to bottom.
+!   Mass convergence at level llm is equal to zero and is not stored in convm.
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ijb, ije
+!===============================================================================
+
+!$OMP MASTER
+!--- Mass convergence is integrated from top to bottom
+  ijb=ij_begin
+  ije=ij_end+iip1
+  IF(pole_sud) ije=ij_end
+  DO l=llmm1,1,-1
+    convm(ijb:ije,l) = convm(ijb:ije,l) + convm(ijb:ije,l+1)
+  END DO
+!$OMP END MASTER
+
+END SUBROUTINE convmas2_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/convmas_loc.F90	(revision 3330)
@@ -0,0 +1,48 @@
+SUBROUTINE convmas_loc (pbaru, pbarv, convm)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute mass flux convergence at p levels.
+  USE parallel_lmdz
+  USE mod_filtreg_p
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: pbaru(ijb_u:ije_u,llm)
+  REAL, INTENT(IN)  :: pbarv(ijb_v:ije_v,llm)
+  REAL, INTENT(OUT) :: convm(ijb_u:ije_u,llm)
+!===============================================================================
+! Method used:   Computation from top to bottom.
+!   Mass convergence at level llm is equal to zero and is not stored in convm.
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ijb, ije, jjb, jje
+!===============================================================================
+
+!--- Computation of - (d(pbaru)/dx + d(pbarv)/dy )
+  CALL convflu_loc( pbaru, pbarv, llm, convm )
+
+!--- Filter
+  jjb=jj_begin
+  jje=jj_end+1
+  IF(pole_sud) jje=jj_end
+  CALL filtreg_p(convm,jjb_u,jje_u,jjb,jje,jjp1,llm,2,2,.TRUE.,1)
+
+!--- Mass convergence is integrated from top to bottom
+!$OMP BARRIER
+!$OMP MASTER
+  ijb=ij_begin
+  ije=ij_end+iip1
+  IF(pole_sud) ije=ij_end
+  DO l=llmm1,1,-1
+    convm(ijb:ije,l) = convm(ijb:ije,l) + convm(ijb:ije,l+1)
+  END DO
+!$OMP END MASTER
+!$OMP BARRIER
+
+END SUBROUTINE convmas_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covcont_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covcont_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covcont_loc.F	(revision 3330)
@@ -0,0 +1,59 @@
+      SUBROUTINE covcont_loc (klevel,ucov, vcov, ucont, vcont )
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c  *********************************************************************
+c    calcul des compos. contravariantes a partir des comp.covariantes
+c  ********************************************************************
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL ucov( ijb_u:ije_u,klevel ),  vcov( ijb_v:ije_v,klevel )
+      REAL ucont( ijb_u:ije_u,klevel ), vcont( ijb_v:ije_v,klevel )
+      INTEGER   l,ij
+      INTEGER ijbu,ijbv,ijeu,ijev
+
+      
+      ijbu=ij_begin-iip1
+      ijbv=ij_begin-iip1
+      ijeu=ij_end+iip1
+      ijev=ij_end+iip1
+      
+      if (pole_nord) then 
+        ijbu=ij_begin+iip1
+        ijbv=ij_begin
+      endif
+      
+      if (pole_sud) then
+        ijeu=ij_end-iip1
+        ijev=ij_end-iip1
+      endif
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO 10 l = 1,klevel
+
+      DO 2  ij = ijb_u,ije_u
+      ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )
+   2  CONTINUE
+
+      DO 4 ij = ijb_v,ije_v
+      vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )
+   4  CONTINUE
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covnat_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covnat_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/covnat_loc.F	(revision 3330)
@@ -0,0 +1,84 @@
+!
+! $Header$
+!
+      SUBROUTINE covnat_loc(klevel,ucov, vcov, unat, vnat )
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  F Hourdin Phu LeVan
+c   -------
+c
+c   Objet:
+c   ------
+c
+c  *********************************************************************
+c    calcul des compos. naturelles a partir des comp.covariantes
+c  ********************************************************************
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL ucov( ijb_u:ije_u,klevel ),  vcov( ijb_v:ije_v,klevel )
+      REAL unat( ijb_u:ije_u,klevel ), vnat( ijb_v:ije_v,klevel )
+      INTEGER   l,ij
+      INTEGER :: ijb,ije
+      
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      if (pole_nord) then
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+        DO l = 1,klevel
+           DO ij = 1, iip1
+              unat (ij,l) =0.
+           END DO
+        ENDDO
+!$OMP ENDDO NOWAIT
+      endif
+
+      if (pole_sud) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+        DO l = 1,klevel
+           DO ij = ip1jm+1, ip1jmp1  
+            unat (ij,l) =0.
+           END DO
+        ENDDO
+!$OMP ENDDO NOWAIT
+      endif
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l = 1,klevel
+         DO ij = ijb, ije
+            unat( ij,l ) = ucov( ij,l ) / cu(ij)
+         ENDDO
+      END DO
+!$OMP ENDDO NOWAIT
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+     
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l = 1,klevel
+         DO ij = ijb,ije
+            vnat( ij,l ) = vcov( ij,l ) / cv(ij)
+         ENDDO
+      ENDDO
+!$OMP ENDDO NOWAIT
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dimensions_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dimensions_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dimensions_mod.F90	(revision 3330)
@@ -0,0 +1,4 @@
+MODULE dimensions_mod
+  INCLUDE 'dimensions.h'
+  INCLUDE 'paramet.h'
+END MODULE dimensions_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dissip_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dissip_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dissip_loc.F	(revision 3330)
@@ -0,0 +1,234 @@
+!
+! $Id: $
+!
+      SUBROUTINE dissip_loc( vcov,ucov,teta,p, dv,du,dh )
+c
+      USE parallel_lmdz
+      USE write_field_loc
+      USE dissip_mod, ONLY: dissip_allocate
+      USE comconst_mod, ONLY: dtdiss
+      IMPLICIT NONE
+
+
+c ..  Avec nouveaux operateurs star :  gradiv2 , divgrad2, nxgraro2  ...
+c                                 (  10/01/98  )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   Dissipation horizontale
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "comdissnew.h"
+      include "comdissipn.h"
+
+c   Arguments:
+c   ----------
+
+      REAL,INTENT(IN) :: vcov(ijb_v:ije_v,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ijb_u:ije_u,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ijb_u:ije_u,llm) ! potential temperature
+      REAL,INTENT(IN) :: p(ijb_u:ije_u,llmp1) ! interlayer pressure
+      ! tendencies (.../s) on covariant winds and potential temperature
+      REAL,INTENT(OUT) :: dv(ijb_v:ije_v,llm)
+      REAL,INTENT(OUT) :: du(ijb_u:ije_u,llm)
+      REAL,INTENT(OUT) :: dh(ijb_u:ije_u,llm)
+
+c   Local:
+c   ------
+
+      REAL gdx(ijb_u:ije_u,llm),gdy(ijb_v:ije_v,llm)
+      REAL grx(ijb_u:ije_u,llm),gry(ijb_v:ije_v,llm)
+      REAL te1dt(llm),te2dt(llm),te3dt(llm)
+      REAL deltapres(ijb_u:ije_u,llm)
+
+      INTEGER l,ij
+
+      REAL  SSUM
+      integer :: ijb,ije
+      
+      LOGICAl,SAVE :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+
+      IF (first) THEN
+        CALL dissip_allocate
+        first=.FALSE.
+      ENDIF
+c-----------------------------------------------------------------------
+c   initialisations:
+c   ----------------
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+         te1dt(l) = tetaudiv(l) * dtdiss
+         te2dt(l) = tetaurot(l) * dtdiss
+         te3dt(l) = tetah(l)    * dtdiss
+      ENDDO
+c$OMP END DO NOWAIT
+c      CALL initial0( ijp1llm, du )
+c      CALL initial0( ijmllm , dv )
+c      CALL initial0( ijp1llm, dh )
+     
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+        du(ijb:ije,l)=0
+        dh(ijb:ije,l)=0
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+        dv(ijb:ije,l)=0
+      ENDDO
+c$OMP END DO NOWAIT
+     
+c-----------------------------------------------------------------------
+c   Calcul de la dissipation:
+c   -------------------------
+
+c   Calcul de la partie   grad  ( div ) :
+c   -------------------------------------
+      
+     
+      
+      IF(lstardis) THEN
+c      IF (.FALSE.) THEN
+         CALL gradiv2_loc( llm,ucov,vcov,nitergdiv,gdx,gdy )
+      ELSE
+!         CALL gradiv_p ( llm,ucov,vcov,nitergdiv,gdx,gdy )
+      ENDIF
+
+#ifdef DEBUG_IO    
+      call WriteField_u('gdx',gdx)
+      call WriteField_v('gdy',gdy)
+#endif
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+         if (pole_nord) then
+           DO ij = 1, iip1
+              gdx(     ij ,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_sud) then
+           DO ij = 1, iip1
+              gdx(ij+ip1jm,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_nord) ijb=ij_begin+iip1
+         DO ij = ijb,ije
+            du(ij,l) = du(ij,l) - te1dt(l) *gdx(ij,l)
+         ENDDO
+
+         if (pole_nord) ijb=ij_begin
+         DO ij = ijb,ije
+            dv(ij,l) = dv(ij,l) - te1dt(l) *gdy(ij,l)
+         ENDDO
+
+       ENDDO
+c$OMP END DO NOWAIT
+c   calcul de la partie   n X grad ( rot ):
+c   ---------------------------------------
+
+      IF(lstardis) THEN
+c      IF (.FALSE.) THEN
+         CALL nxgraro2_loc( llm,ucov, vcov, nitergrot,grx,gry )
+      ELSE
+!         CALL nxgrarot_p( llm,ucov, vcov, nitergrot,grx,gry )
+      ENDIF
+
+#ifdef DEBUG_IO    
+      call WriteField_u('grx',grx)
+      call WriteField_v('gry',gry)
+#endif
+
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+         
+         if (pole_nord) then
+           DO ij = 1, iip1
+              grx(ij,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_nord) ijb=ij_begin+iip1
+         DO ij = ijb,ije
+            du(ij,l) = du(ij,l) - te2dt(l) * grx(ij,l)
+         ENDDO
+         
+         if (pole_nord) ijb=ij_begin
+         DO ij =  ijb, ije
+            dv(ij,l) = dv(ij,l) - te2dt(l) * gry(ij,l)
+         ENDDO
+      
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   calcul de la partie   div ( grad ):
+c   -----------------------------------
+
+        
+      IF(lstardis) THEN
+c      IF (.FALSE.) THEN
+    
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       DO l = 1, llm
+          DO ij = ijb, ije
+            deltapres(ij,l) = AMAX1( 0.,  p(ij,l) - p(ij,l+1) )
+          ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+         CALL divgrad2_loc( llm,teta, deltapres  ,niterh, gdx )
+      ELSE
+!         CALL divgrad_p ( llm,teta, niterh, gdx        )
+      ENDIF
+
+#ifdef DEBUG_IO    
+      call WriteField_u('gdx',gdx)
+#endif
+
+
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1,llm
+         DO ij = ijb,ije
+            dh( ij,l ) = dh( ij,l ) - te3dt(l) * gdx( ij,l )
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dissip_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dissip_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dissip_mod.F90	(revision 3330)
@@ -0,0 +1,40 @@
+MODULE dissip_mod
+
+
+  
+CONTAINS
+
+  SUBROUTINE dissip_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  USE gradiv2_mod, ONLY : gradiv2_allocate
+  USE nxgraro2_mod, ONLY : nxgraro2_allocate
+  USE divgrad2_mod, ONLY : divgrad2_allocate
+  IMPLICIT NONE
+
+    CALL gradiv2_allocate
+    CALL nxgraro2_allocate
+    CALL divgrad2_allocate
+
+    
+  END SUBROUTINE dissip_allocate
+  
+  SUBROUTINE dissip_switch_dissip(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE gradiv2_mod,ONLY : gradiv2_switch_dissip
+  USE nxgraro2_mod,ONLY : nxgraro2_switch_dissip
+  USE divgrad2_mod,ONLY : divgrad2_switch_dissip
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL gradiv2_switch_dissip(dist)
+    CALL nxgraro2_switch_dissip(dist)
+    CALL divgrad2_switch_dissip(dist)
+    
+  END SUBROUTINE dissip_switch_dissip
+  
+END MODULE dissip_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/diverg_gam_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/diverg_gam_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/diverg_gam_loc.F	(revision 3330)
@@ -0,0 +1,98 @@
+      SUBROUTINE diverg_gam_loc(klevel,cuvscvgam,cvuscugam,unsairegam,
+     *                       unsapolnga,unsapolsga,  x, y,  div )
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ijb_u:ije_u,klevel ),y( ijb_v:ije_v,klevel )
+      REAL div( ijb_u:ije_u,klevel )
+      REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1)
+      REAL unsapolnga,unsapolsga
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+      INTEGER   l,ij
+c    ...................................................................
+c
+      EXTERNAL  SSUM
+      REAL      SSUM
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if(pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 10 l = 1,klevel
+c
+        DO  ij = ijb, ije - 1
+         div( ij + 1, l )     = (  
+     *  cvuscugam( ij+1 ) * x( ij+1,l ) - cvuscugam( ij ) * x( ij , l) +
+     *  cuvscvgam(ij-iim) * y(ij-iim,l) - cuvscvgam(ij+1) * y(ij+1,l) )* 
+     *         unsairegam( ij+1 )
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = ijb,ije,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+       if (pole_nord) then
+          DO  ij  = 1,iim
+           aiy1(ij) =    cuvscvgam(    ij       ) * y(     ij     , l )
+          ENDDO
+          sumypn = SSUM ( iim,aiy1,1 ) * unsapolnga
+c  
+          DO  ij = 1,iip1
+           div(     ij    , l ) = - sumypn 
+          ENDDO
+       endif
+        
+        if (pole_sud) then
+          DO  ij  = 1,iim
+           aiy2(ij) =    cuvscvgam( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+          ENDDO
+          sumyps = SSUM ( iim,aiy2,1 ) * unsapolsga
+c  
+          DO  ij = 1,iip1
+           div( ij + ip1jm, l ) =   sumyps 
+          ENDDO
+       endif
+  10  CONTINUE
+c$OMP END DO NOWAIT
+c
+
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/diverg_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/diverg_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/diverg_p.F	(revision 3330)
@@ -0,0 +1,106 @@
+      SUBROUTINE diverg_p(klevel,x,y,div)
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      INTEGER   l,ij
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+      INTEGER ijb,ije
+c    ...................................................................
+c
+      EXTERNAL  SSUM
+      REAL      SSUM
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if(pole_sud)  ije=ij_end-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 10 l = 1,klevel
+c
+        DO  ij = ijb, ije - 1
+         div( ij + 1, l )     =  
+     *   cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) +
+     *   cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) 
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = ijb,ije,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        if (pole_nord) then
+          DO  ij  = 1,iim
+           aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
+          ENDDO
+          sumypn = SSUM ( iim,aiy1,1 ) / apoln
+c
+          DO  ij = 1,iip1
+           div(     ij    , l ) = - sumypn
+          ENDDO
+        endif
+         
+       if (pole_sud) then
+          DO  ij  = 1,iim
+           aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+          ENDDO
+          sumyps = SSUM ( iim,aiy2,1 ) / apols
+c
+          DO  ij = 1,iip1
+           div( ij + ip1jm, l ) =   sumyps
+          ENDDO
+        endif
+
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+c
+
+ccc        CALL filtreg( div, jjp1, klevel, 2, 2, .TRUE., 1 )
+      
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l = 1, klevel
+           DO ij = ijb,ije
+            div(ij,l) = div(ij,l) * unsaire(ij) 
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divergf_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divergf_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divergf_loc.F	(revision 3330)
@@ -0,0 +1,118 @@
+      SUBROUTINE divergf_loc(klevel,x,y,div)
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      USE parallel_lmdz
+      USE mod_filtreg_p
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ijb_u:ije_u,klevel ),y( ijb_v:ije_v,klevel )
+      REAL div( ijb_u:ije_u,klevel )
+      INTEGER   l,ij
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+c    ...................................................................
+c
+      EXTERNAL  SSUM
+      REAL      SSUM
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if(pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO 10 l = 1,klevel
+c
+        DO  ij = ijb, ije - 1
+         div( ij + 1, l )     =  
+     *   cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) +
+     *   cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) 
+        ENDDO
+
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = ijb,ije,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        if (pole_nord) then
+        
+          DO  ij  = 1,iim
+           aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
+          ENDDO
+          sumypn = SSUM ( iim,aiy1,1 ) / apoln
+
+c
+          DO  ij = 1,iip1
+           div(     ij    , l ) = - sumypn
+          ENDDO
+          
+        endif
+        
+        if (pole_sud) then
+        
+          DO  ij  = 1,iim
+           aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+          ENDDO
+          sumyps = SSUM ( iim,aiy2,1 ) / apols
+c
+          DO  ij = 1,iip1
+           div( ij + ip1jm, l ) =   sumyps
+          ENDDO
+          
+        endif
+        
+  10    CONTINUE
+c$OMP END DO NOWAIT
+
+c
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_sud) jje=jj_end-1
+        
+        CALL filtreg_p( div,jjb_u,jje_u,jjb,jje, jjp1,
+     &                   klevel, 2, 2, .TRUE., 1 )
+      
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l = 1, klevel
+           DO ij = ijb,ije
+            div(ij,l) = div(ij,l) * unsaire(ij) 
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divgrad2_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divgrad2_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divgrad2_loc.F	(revision 3330)
@@ -0,0 +1,121 @@
+      SUBROUTINE divgrad2_loc ( klevel, h, deltapres, lh, divgra_out )
+c
+c     P. Le Van
+c
+c   ***************************************************************
+c
+c     .....   calcul de  (div( grad ))   de (  pext * h ) .....
+c   ****************************************************************
+c   h ,klevel,lh et pext  sont des arguments  d'entree pour le s-prg
+c         divgra     est  un argument  de sortie pour le s-prg
+c
+      USE parallel_lmdz
+      USE times
+      USE mod_hallo
+      USE divgrad2_mod
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "comdissipn.h"
+
+c    .......    variables en arguments   .......
+c
+      INTEGER klevel
+      REAL h( ijb_u:ije_u,klevel ), deltapres( ijb_u:ije_u,klevel )
+      REAL divgra_out( ijb_u:ije_u,klevel)
+c    .......    variables  locales    ..........
+c
+      REAL     signe, nudivgrs, sqrtps( ijb_u:ije_u,llm )
+      INTEGER  l,ij,iter,lh
+c    ...................................................................
+      Type(Request),SAVE :: request_dissip
+!$OMP THREADPRIVATE(request_dissip)
+      INTEGER ijb,ije
+
+c
+c
+      signe    = (-1.)**lh
+      nudivgrs = signe * cdivh
+
+c      CALL SCOPY ( ip1jmp1 * klevel, h, 1, divgra, 1 )
+      ijb=ij_begin
+      ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, klevel
+        divgra(ijb:ije,l)=h(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+c
+c$OMP BARRIER
+       call Register_Hallo_u(divgra,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      CALL laplacien_loc( klevel, divgra, divgra )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO l = 1, klevel
+       DO ij = ijb, ije
+        sqrtps( ij,l ) = SQRT( deltapres(ij,l) )
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO l = 1, klevel
+        DO ij = ijb, ije
+         divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+   
+c    ........    Iteration de l'operateur  laplacien_gam    ........
+c
+      DO  iter = 1, lh - 2
+c$OMP BARRIER
+       call Register_Hallo_u(divgra,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+
+       CALL laplacien_gam_loc(klevel,cuvscvgam2,cvuscugam2,unsair_gam2,
+     *                     unsapolnga2, unsapolsga2,  divgra, divgra )
+      ENDDO
+c
+c    ...............................................................
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO l = 1, klevel
+        DO ij = ijb, ije
+          divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c
+c$OMP BARRIER
+       call Register_Hallo_u(divgra,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      CALL laplacien_loc ( klevel, divgra, divgra )
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l  = 1,klevel
+      DO ij = ijb,ije
+      divgra_out(ij,l) =  nudivgrs * divgra(ij,l) / deltapres(ij,l)
+      ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divgrad2_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divgrad2_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/divgrad2_mod.F90	(revision 3330)
@@ -0,0 +1,33 @@
+MODULE divgrad2_mod
+
+  REAL,POINTER,SAVE ::  divgra( :,: )
+  
+CONTAINS
+
+  SUBROUTINE divgrad2_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+    TYPE(distrib),POINTER :: d
+    d=>distrib_dissip
+
+    CALL allocate_u(divgra,llm,d)
+
+    
+  END SUBROUTINE divgrad2_allocate
+  
+  SUBROUTINE divgrad2_switch_dissip(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(divgra,distrib_dissip,dist)
+
+
+  END SUBROUTINE divgrad2_switch_dissip
+  
+END MODULE divgrad2_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dteta1_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dteta1_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dteta1_loc.F	(revision 3330)
@@ -0,0 +1,90 @@
+      SUBROUTINE dteta1_loc ( teta, pbaru, pbarv, dteta)
+      USE parallel_lmdz
+      USE write_field_p
+      USE mod_filtreg_p
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c Modif F.Forget 03/94 (on retire q et dq  pour construire dteta1)
+c
+c   ********************************************************************
+c   ... calcul du terme de convergence horizontale du flux d'enthalpie
+c        potentielle   ......
+c   ********************************************************************
+c  .. teta,pbaru et pbarv sont des arguments d'entree  pour le s-pg ....
+c     dteta 	          sont des arguments de sortie pour le s-pg ....
+c
+c=======================================================================
+
+
+      include "dimensions.h"
+      include "paramet.h"
+
+      REAL teta( ijb_u:ije_u,llm )
+      REAL pbaru( ijb_u:ije_u,llm ),pbarv( ijb_v:ije_v,llm)
+      REAL dteta( ijb_u:ije_u,llm )
+      INTEGER   l,ij
+
+      REAL hbyv( ijb_v:ije_v,llm ), hbxu( ijb_u:ije_u,llm )
+
+c
+      INTEGER ijb,ije,jjb,jje
+
+      
+      jjb=jj_begin
+      jje=jj_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO 5 l = 1,llm
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 1  ij = ijb, ije - 1
+        hbxu(ij,l) = pbaru(ij,l) * 0.5 * ( teta(ij,l)+teta(ij+1,l) )
+   1  CONTINUE
+
+c    .... correction pour  hbxu(iip1,j,l)  .....
+c    ....   hbxu(iip1,j,l)= hbxu(1,j,l) ....
+
+CDIR$ IVDEP
+      DO 2 ij = ijb+iip1-1, ije, iip1
+        hbxu( ij, l ) = hbxu( ij - iim, l )
+   2  CONTINUE
+
+      ijb=ij_begin-iip1
+      if (pole_nord) ijb=ij_begin
+      
+      DO 3 ij = ijb,ije
+        hbyv(ij,l)= pbarv(ij, l)* 0.5 * ( teta(ij, l)+teta(ij+iip1,l) )
+   3  CONTINUE
+
+       if (.not. pole_sud) then
+	  hbxu(ije+1:ije+iip1,l) = 0
+	  hbyv(ije+1:ije+iip1,l) = 0
+	endif
+	
+   5  CONTINUE
+c$OMP END DO NOWAIT
+       
+	
+        CALL  convflu_loc ( hbxu, hbyv, llm, dteta )
+
+
+c    stockage dans  dh de la convergence horizont. filtree' du  flux
+c                  ....                           ...........
+c           d'enthalpie potentielle .
+      
+      
+      CALL filtreg_p( dteta,jjb_u,jje_u,jjb,jje,jjp1, llm, 
+     &                2, 2, .true., 1)
+      
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dudv1_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dudv1_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dudv1_loc.F	(revision 3330)
@@ -0,0 +1,65 @@
+      SUBROUTINE dudv1_loc ( vorpot, pbaru, pbarv, du, dv )
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c-----------------------------------------------------------------------
+c
+c   Auteur:   P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c   calcul du terme de  rotation
+c   ce terme est ajoute a  d(ucov)/dt et a d(vcov)/dt  ..
+c   vorpot, pbaru et pbarv sont des arguments d'entree  pour le s-pg ..
+c   du  et dv              sont des arguments de sortie pour le s-pg ..
+c
+c-----------------------------------------------------------------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL vorpot( ijb_v:ije_v,llm ) ,pbaru( ijb_u:ije_u,llm ) ,
+     *     pbarv( ijb_v:ije_v,llm )
+      REAL du( ijb_u:ije_u,llm ) ,dv( ijb_v:ije_v,llm )
+      INTEGER  l,ij,ijb,ije
+c
+c
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO 10 l = 1,llm
+c
+      ijb=ij_begin
+      ije=ij_end
+      
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 2  ij = ijb, ije-1 
+      du( ij,l ) = 0.125 *(  vorpot(ij-iip1, l) + vorpot( ij, l)  ) *
+     *                    (   pbarv(ij-iip1, l) + pbarv(ij-iim,  l) +
+     *                        pbarv(   ij  , l) + pbarv(ij+ 1 ,  l)   )
+   2  CONTINUE
+   
+ 
+c
+      if (pole_nord) ijb=ij_begin
+      
+      DO 3 ij = ijb, ije-1 
+      dv( ij+1,l ) = - 0.125 *(  vorpot(ij, l)  + vorpot(ij+1, l)  ) *
+     *                        (   pbaru(ij, l)  +  pbaru(ij+1   , l) +
+     *                       pbaru(ij+iip1, l)  +  pbaru(ij+iip2, l)  )
+   3  CONTINUE
+c
+c    .... correction  pour  dv( 1,j,l )  .....
+c    ....   dv(1,j,l)= dv(iip1,j,l) ....
+c
+CDIR$ IVDEP
+      DO 4 ij = ijb, ije, iip1
+      dv( ij,l ) = dv( ij + iim, l )
+   4  CONTINUE
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dudv2_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dudv2_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dudv2_loc.F	(revision 3330)
@@ -0,0 +1,69 @@
+      SUBROUTINE dudv2_loc ( teta, pkf, bern, du, dv  )
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *****************************************************************
+c   ..... calcul du terme de pression (gradient de p/densite )   et
+c          du terme de ( -gradient de la fonction de Bernouilli ) ...
+c   *****************************************************************
+c          Ces termes sont ajoutes a  d(ucov)/dt et a d(vcov)/dt  ..
+c
+c
+c    teta , pkf, bern  sont des arguments d'entree  pour le s-pg  ....
+c    du et dv          sont des arguments de sortie pour le s-pg  ....
+c
+c=======================================================================
+c
+      include "dimensions.h"
+      include "paramet.h"
+
+      REAL teta( ijb_u:ije_u,llm ),pkf( ijb_u:ije_u,llm )
+      REAL bern( ijb_u:ije_u,llm )
+      REAL du( ijb_u:ije_u,llm ),  dv( ijb_v:ije_v,llm )
+      INTEGER  l,ij,ijb,ije
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 5 l = 1,llm
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+      DO 2  ij  = ijb, ije - 1
+       du(ij,l) = du(ij,l) + 0.5* ( teta( ij,l ) + teta( ij+1,l ) ) *
+     * ( pkf( ij,l ) - pkf(ij+1,l) )  + bern(ij,l) - bern(ij+1,l)
+   2  CONTINUE
+c
+c
+c    .....  correction  pour du(iip1,j,l),  j=2,jjm   ......
+c    ...          du(iip1,j,l) = du(1,j,l)                 ...
+c
+CDIR$ IVDEP
+      DO 3 ij = ijb+iip1-1, ije, iip1
+      du( ij,l ) = du( ij - iim,l )
+   3  CONTINUE
+c
+c
+      if (pole_nord) ijb=ijb-iip1
+
+      DO 4 ij  = ijb,ije
+      dv( ij,l) = dv(ij,l) + 0.5 * ( teta(ij,l) + teta( ij+iip1,l ) ) *
+     *                             ( pkf(ij+iip1,l) - pkf(  ij,l  ) )
+     *                           +   bern( ij+iip1,l ) - bern( ij  ,l )
+   4  CONTINUE
+c
+   5  CONTINUE
+c$OMP END DO NOWAIT 
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynetat0_loc.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynetat0_loc.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynetat0_loc.f90	(revision 3330)
@@ -0,0 +1,256 @@
+SUBROUTINE dynetat0_loc(fichnom,vcov,ucov,teta,q,masse,ps,phis,time)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , L.Fairhead
+!-------------------------------------------------------------------------------
+! Purpose: Initial state reading.
+!-------------------------------------------------------------------------------
+  USE parallel_lmdz
+  USE infotrac
+  USE netcdf, ONLY: NF90_OPEN,  NF90_INQUIRE_DIMENSION, NF90_INQ_VARID,        &
+      NF90_NOWRITE, NF90_CLOSE, NF90_INQUIRE_VARIABLE,  NF90_GET_VAR, NF90_NoErr
+  USE control_mod, ONLY: planet_type
+  USE assert_eq_m, ONLY: assert_eq
+  USE comvert_mod, ONLY: pa,preff
+  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa, lllm, &
+                          omeg, rad
+  USE logic_mod, ONLY: fxyhypb, ysinus
+  USE serre_mod, ONLY: clon, clat, grossismx, grossismy
+  USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn, &
+                       start_time,day_ini,hour_ini
+  
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME
+  REAL, INTENT(OUT) ::  vcov(ijb_v:ije_v,llm)      !--- V COVARIANT WIND
+  REAL, INTENT(OUT) ::  ucov(ijb_u:ije_u,llm)      !--- U COVARIANT WIND
+  REAL, INTENT(OUT) ::  teta(ijb_u:ije_u,llm)      !--- POTENTIAL TEMP.
+  REAL, INTENT(OUT) ::     q(ijb_u:ije_u,llm,nqtot)!--- TRACERS
+  REAL, INTENT(OUT) :: masse(ijb_u:ije_u,llm)      !--- MASS PER CELL
+  REAL, INTENT(OUT) ::    ps(ijb_u:ije_u)          !--- GROUND PRESSURE
+  REAL, INTENT(OUT) ::  phis(ijb_u:ije_u)          !--- GEOPOTENTIAL
+!===============================================================================
+! Local variables:
+  CHARACTER(LEN=256) :: msg, var, modname
+  INTEGER, PARAMETER :: length=100
+  INTEGER :: iq, fID, vID, idecal, ierr
+  REAL    :: time, tab_cntrl(length)               !--- RUN PARAMS TABLE
+  REAL,             ALLOCATABLE :: vcov_glo(:,:),masse_glo(:,:),   ps_glo(:)
+  REAL,             ALLOCATABLE :: ucov_glo(:,:),    q_glo(:,:), phis_glo(:)
+  REAL,             ALLOCATABLE :: teta_glo(:,:)
+!-------------------------------------------------------------------------------
+  modname="dynetat0_loc"
+
+!--- Initial state file opening
+  var=fichnom
+  CALL err(NF90_OPEN(var,NF90_NOWRITE,fID),"open",var)
+  CALL get_var1("controle",tab_cntrl)
+
+!!! AS: idecal is a hack to be able to read planeto starts...
+!!!     .... while keeping everything OK for LMDZ EARTH
+  IF(planet_type=="generic") THEN
+    WRITE(lunout,*)'NOTE NOTE NOTE : Planeto-like start files'
+    idecal = 4
+    annee_ref  = 2000
+  ELSE
+    WRITE(lunout,*)'NOTE NOTE NOTE : Earth-like start files'
+    idecal = 5
+    annee_ref  = tab_cntrl(5)
+  END IF
+  im         = tab_cntrl(1)
+  jm         = tab_cntrl(2)
+  lllm       = tab_cntrl(3)
+  day_ref    = tab_cntrl(4)
+  rad        = tab_cntrl(idecal+1)
+  omeg       = tab_cntrl(idecal+2)
+  g          = tab_cntrl(idecal+3)
+  cpp        = tab_cntrl(idecal+4)
+  kappa      = tab_cntrl(idecal+5)
+  daysec     = tab_cntrl(idecal+6)
+  dtvr       = tab_cntrl(idecal+7)
+  etot0      = tab_cntrl(idecal+8)
+  ptot0      = tab_cntrl(idecal+9)
+  ztot0      = tab_cntrl(idecal+10)
+  stot0      = tab_cntrl(idecal+11)
+  ang0       = tab_cntrl(idecal+12)
+  pa         = tab_cntrl(idecal+13)
+  preff      = tab_cntrl(idecal+14)
+!
+  clon       = tab_cntrl(idecal+15)
+  clat       = tab_cntrl(idecal+16)
+  grossismx  = tab_cntrl(idecal+17)
+  grossismy  = tab_cntrl(idecal+18)
+!
+  IF ( tab_cntrl(idecal+19)==1. )  THEN
+    fxyhypb  = .TRUE.
+!   dzoomx   = tab_cntrl(25)
+!   dzoomy   = tab_cntrl(26)
+!   taux     = tab_cntrl(28)
+!   tauy     = tab_cntrl(29)
+  ELSE
+    fxyhypb = .FALSE.
+    ysinus  = tab_cntrl(idecal+22)==1.
+  END IF
+
+  day_ini    = tab_cntrl(30)
+  itau_dyn   = tab_cntrl(31)
+  start_time = tab_cntrl(32)
+
+!-------------------------------------------------------------------------------
+  WRITE(lunout,*)TRIM(modname)//': rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa
+  CALL check_dim(im,iim,'im','im')
+  CALL check_dim(jm,jjm,'jm','jm')
+  CALL check_dim(lllm,llm,'lm','lllm')
+  CALL get_var1("rlonu",rlonu)
+  CALL get_var1("rlatu",rlatu)
+  CALL get_var1("rlonv",rlonv)
+  CALL get_var1("rlatv",rlatv)
+  CALL get_var1("cu"  ,cu)
+  CALL get_var1("cv"  ,cv)
+  CALL get_var1("aire",aire)
+
+  var="temps"
+  IF(NF90_INQ_VARID(fID,var,vID)/=NF90_NoErr) THEN
+    WRITE(lunout,*)TRIM(modname)//": missing field <temps>"
+    WRITE(lunout,*)TRIM(modname)//": trying with <Time>"; var="Time"
+    CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  END IF
+  CALL err(NF90_GET_VAR(fID,vID,time),"get",var)
+
+  ALLOCATE(phis_glo(ip1jmp1))
+  CALL get_var1("phisinit",phis_glo)
+  phis (ijb_u:ije_u)  =phis_glo(ijb_u:ije_u);    DEALLOCATE(phis_glo)
+
+  ALLOCATE(ucov_glo(ip1jmp1,llm))
+  CALL get_var2("ucov",ucov_glo)
+  ucov (ijb_u:ije_u,:)=ucov_glo(ijb_u:ije_u,:);  DEALLOCATE(ucov_glo)
+
+  ALLOCATE(vcov_glo(ip1jm,llm))
+  CALL get_var2("vcov",vcov_glo)
+  vcov (ijb_v:ije_v,:)=vcov_glo(ijb_v:ije_v,:);  DEALLOCATE(vcov_glo)
+
+  ALLOCATE(teta_glo(ip1jmp1,llm))
+  CALL get_var2("teta",teta_glo)
+  teta (ijb_u:ije_u,:)=teta_glo(ijb_u:ije_u,:);  DEALLOCATE(teta_glo)
+
+  ALLOCATE(masse_glo(ip1jmp1,llm))
+  CALL get_var2("masse",masse_glo)
+  masse(ijb_u:ije_u,:)=masse_glo(ijb_u:ije_u,:); DEALLOCATE(masse_glo)
+  
+  ALLOCATE(ps_glo(ip1jmp1))
+  CALL get_var1("ps",ps_glo)
+  ps   (ijb_u:ije_u)  =   ps_glo(ijb_u:ije_u);   DEALLOCATE(ps_glo)
+
+!--- Tracers
+  ALLOCATE(q_glo(ip1jmp1,llm))
+  DO iq=1,nqtot
+    var=tname(iq)
+#ifdef INCA
+    IF (var .eq. "O3" ) THEN 
+       IF(NF90_INQ_VARID(fID,var,vID) == NF90_NoErr) THEN
+          CALL get_var2(var,q_glo); q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:); CYCLE
+       ELSE
+          WRITE(lunout,*) 'Tracer O3 is missing - it is initialized to OX'
+          IF(NF90_INQ_VARID(fID,"OX",vID) == NF90_NoErr) THEN
+             CALL get_var2("OX",q_glo); q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:); CYCLE
+          ENDIF
+       ENDIF
+    ENDIF
+#endif
+    IF(NF90_INQ_VARID(fID,var,vID)==NF90_NoErr) THEN
+      CALL get_var2(var,q_glo); q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:); CYCLE
+    END IF
+    WRITE(lunout,*)TRIM(modname)//": Tracer <"//TRIM(var)//"> is missing"
+    WRITE(lunout,*)"         It is hence initialized to zero"
+    q(ijb_u:ije_u,:,iq)=0.
+   !--- CRisi: for isotops, theoretical initialization using very simplified
+   !           Rayleigh distillation las.
+    IF(ok_isotopes.AND.iso_num(iq)>0) THEN
+      IF(zone_num(iq)==0) q(:,:,iq)=q(:,:,iqpere(iq))*tnat(iso_num(iq))        &
+     &           *(q(:,:,iqpere(iq))/30.e-3)**(alpha_ideal(iso_num(iq))-1)
+      IF(zone_num(iq)==1) q(:,:,iq)=q(:,:,iqiso(iso_indnum(iq),phase_num(iq)))
+    END IF
+  END DO
+  DEALLOCATE(q_glo)
+  CALL err(NF90_CLOSE(fID),"close",fichnom)
+  day_ini=day_ini+INT(time)
+  time=time-INT(time)
+
+
+  CONTAINS
+
+
+SUBROUTINE check_dim(n1,n2,str1,str2)
+  INTEGER,          INTENT(IN) :: n1, n2
+  CHARACTER(LEN=*), INTENT(IN) :: str1, str2
+  CHARACTER(LEN=256) :: s1, s2
+  IF(n1/=n2) THEN
+    s1='value of '//TRIM(str1)//' ='
+    s2=' read in starting file differs from parametrized '//TRIM(str2)//' ='
+    WRITE(msg,'(10x,a,i4,2x,a,i4)'),s1,n1,s2,n2
+    CALL ABORT_gcm(TRIM(modname),TRIM(msg),1)
+  END IF
+END SUBROUTINE check_dim
+
+
+SUBROUTINE get_var1(var,v)
+  CHARACTER(LEN=*), INTENT(IN)  :: var
+  REAL,             INTENT(OUT) :: v(:)
+  REAL,             ALLOCATABLE :: w2(:,:), w3(:,:,:)
+  INTEGER :: nn(3), dids(3), k, nd, ntot
+
+  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  ierr=NF90_INQUIRE_VARIABLE(fID,vID,ndims=nd)
+  IF(nd==1) THEN
+    CALL err(NF90_GET_VAR(fID,vID,v),"get",var); RETURN
+  END IF
+  ierr=NF90_INQUIRE_VARIABLE(fID,vID,dimids=dids)
+  DO k=1,nd; ierr=NF90_INQUIRE_DIMENSION(fID,dids(k),len=nn(k)); END DO
+  ntot=PRODUCT(nn(1:nd))
+  SELECT CASE(nd)
+    CASE(2); ALLOCATE(w2(nn(1),nn(2)))
+      CALL err(NF90_GET_VAR(fID,vID,w2),"get",var)
+      v=RESHAPE(w2,[ntot]); DEALLOCATE(w2)
+    CASE(3); ALLOCATE(w3(nn(1),nn(2),nn(3)))
+      CALL err(NF90_GET_VAR(fID,vID,w3),"get",var)
+      v=RESHAPE(w3,[ntot]); DEALLOCATE(w3)
+  END SELECT
+END SUBROUTINE get_var1
+
+
+SUBROUTINE get_var2(var,v)
+  CHARACTER(LEN=*), INTENT(IN)  :: var
+  REAL,             INTENT(OUT) :: v(:,:)
+  REAL,             ALLOCATABLE :: w4(:,:,:,:)
+  INTEGER :: nn(4), dids(4), k, nd
+  CALL err(NF90_INQ_VARID(fID,var,vID),"inq",var)
+  ierr=NF90_INQUIRE_VARIABLE(fID,vID,dimids=dids,ndims=nd)
+  DO k=1,nd; ierr=NF90_INQUIRE_DIMENSION(fID,dids(k),len=nn(k)); END DO
+  ALLOCATE(w4(nn(1),nn(2),nn(3),nn(4)))
+  CALL err(NF90_GET_VAR(fID,vID,w4),"get",var)
+  v=RESHAPE(w4,[nn(1)*nn(2),nn(3)]); DEALLOCATE(w4)
+END SUBROUTINE get_var2
+
+
+SUBROUTINE err(ierr,typ,nam)
+  INTEGER,          INTENT(IN) :: ierr   !--- NetCDF ERROR CODE
+  CHARACTER(LEN=*), INTENT(IN) :: typ    !--- TYPE OF OPERATION
+  CHARACTER(LEN=*), INTENT(IN) :: nam    !--- FIELD/FILE NAME
+  IF(ierr==NF90_NoERR) RETURN
+  SELECT CASE(typ)
+    CASE('inq');   msg="Field <"//TRIM(nam)//"> is missing"
+    CASE('get');   msg="Reading failed for <"//TRIM(nam)//">"
+    CASE('open');  msg="File opening failed for <"//TRIM(nam)//">"
+    CASE('close'); msg="File closing failed for <"//TRIM(nam)//">"
+  END SELECT
+  CALL ABORT_gcm(TRIM(modname),TRIM(msg),ierr)
+END SUBROUTINE err
+
+END SUBROUTINE dynetat0_loc
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynredem_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynredem_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynredem_loc.F90	(revision 3330)
@@ -0,0 +1,273 @@
+SUBROUTINE dynredem0_loc(fichnom,iday_end,phis)
+!
+!-------------------------------------------------------------------------------
+! Write the NetCDF restart file (initialization).
+!-------------------------------------------------------------------------------
+#ifdef CPP_IOIPSL
+  USE IOIPSL
+#endif
+  USE parallel_lmdz
+  USE mod_hallo
+  USE infotrac
+  USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
+                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER
+  USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil
+  USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, &
+                         nivsig,nivsigs
+  USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
+  USE logic_mod, ONLY: fxyhypb, ysinus
+  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
+                       taux,tauy
+  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itaufin, start_time
+
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME
+  INTEGER,          INTENT(IN) :: iday_end         !--- 
+  REAL,             INTENT(IN) :: phis(ijb_u:ije_u)!--- GROUND GEOPOTENTIAL
+!===============================================================================
+! Local variables:
+  INTEGER :: iq, l
+  INTEGER, PARAMETER :: length=100
+  REAL    :: tab_cntrl(length)                     !--- RUN PARAMETERS TABLE
+  REAL    :: phis_glo(ip1jmp1)
+!   For NetCDF:
+  CHARACTER(LEN=30) :: unites
+  INTEGER :: indexID
+  INTEGER :: rlonuID, rlonvID, rlatuID, rlatvID
+  INTEGER :: sID, sigID, nID, vID, timID
+  INTEGER :: yyears0, jjour0, mmois0
+  REAL    :: zan0, zjulian, hours
+!===============================================================================
+  modname='dynredem0'; fil=fichnom
+  CALL Gather_field_u(phis,phis_glo,1)
+  IF(mpi_rank/=0) RETURN
+
+#ifdef CPP_IOIPSL
+  CALL ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
+  CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
+#else
+! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
+  yyears0=0
+  mmois0=1
+  jjour0=1
+#endif        
+
+  tab_cntrl(:)  = 0.
+  tab_cntrl(1)  = REAL(iim)
+  tab_cntrl(2)  = REAL(jjm)
+  tab_cntrl(3)  = REAL(llm)
+  tab_cntrl(4)  = REAL(day_ref)
+  tab_cntrl(5)  = REAL(annee_ref)
+  tab_cntrl(6)  = rad
+  tab_cntrl(7)  = omeg
+  tab_cntrl(8)  = g
+  tab_cntrl(9)  = cpp
+  tab_cntrl(10) = kappa
+  tab_cntrl(11) = daysec
+  tab_cntrl(12) = dtvr
+  tab_cntrl(13) = etot0
+  tab_cntrl(14) = ptot0
+  tab_cntrl(15) = ztot0
+  tab_cntrl(16) = stot0
+  tab_cntrl(17) = ang0
+  tab_cntrl(18) = pa
+  tab_cntrl(19) = preff
+
+!    .....    parameters for zoom    ......   
+  tab_cntrl(20) = clon
+  tab_cntrl(21) = clat
+  tab_cntrl(22) = grossismx
+  tab_cntrl(23) = grossismy
+!
+  IF ( fxyhypb )   THEN
+    tab_cntrl(24) = 1.
+    tab_cntrl(25) = dzoomx
+    tab_cntrl(26) = dzoomy
+    tab_cntrl(27) = 0.
+    tab_cntrl(28) = taux
+    tab_cntrl(29) = tauy
+  ELSE
+    tab_cntrl(24) = 0.
+    tab_cntrl(25) = dzoomx
+    tab_cntrl(26) = dzoomy
+    tab_cntrl(27) = 0.
+    tab_cntrl(28) = 0.
+    tab_cntrl(29) = 0.
+    IF( ysinus )  tab_cntrl(27) = 1.
+  END IF
+  tab_cntrl(30) = REAL(iday_end)
+  tab_cntrl(31) = REAL(itau_dyn + itaufin)
+! start_time: start_time of simulation (not necessarily 0.)
+  tab_cntrl(32) = start_time
+
+!--- File creation
+  CALL err(NF90_CREATE(fichnom,NF90_CLOBBER,nid))
+
+!--- Some global attributes
+  CALL err(NF90_PUT_ATT(nid,NF90_GLOBAL,"title","Fichier demarrage dynamique"))
+
+!--- Dimensions
+  CALL err(NF90_DEF_DIM(nid,"index", length, indexID))
+  CALL err(NF90_DEF_DIM(nid,"rlonu", iip1,   rlonuID))
+  CALL err(NF90_DEF_DIM(nid,"rlatu", jjp1,   rlatuID))
+  CALL err(NF90_DEF_DIM(nid,"rlonv", iip1,   rlonvID))
+  CALL err(NF90_DEF_DIM(nid,"rlatv", jjm,    rlatvID))
+  CALL err(NF90_DEF_DIM(nid,"sigs",  llm,        sID))
+  CALL err(NF90_DEF_DIM(nid,"sig",   llmp1,    sigID))
+  CALL err(NF90_DEF_DIM(nid,"temps", NF90_UNLIMITED, timID))
+
+!--- Define and save invariant fields
+  CALL put_var(nid,"controle","Parametres de controle" ,[indexID],tab_cntrl)
+  CALL put_var(nid,"rlonu"   ,"Longitudes des points U",[rlonuID],rlonu)
+  CALL put_var(nid,"rlatu"   ,"Latitudes des points U" ,[rlatuID],rlatu)
+  CALL put_var(nid,"rlonv"   ,"Longitudes des points V",[rlonvID],rlonv)
+  CALL put_var(nid,"rlatv"   ,"Latitudes des points V" ,[rlatvID],rlatv)
+  CALL put_var(nid,"nivsigs" ,"Numero naturel des couches s"    ,[sID]  ,nivsigs)
+  CALL put_var(nid,"nivsig"  ,"Numero naturel des couches sigma",[sigID],nivsig)
+  CALL put_var(nid,"ap"      ,"Coefficient A pour hybride"      ,[sigID],ap)
+  CALL put_var(nid,"bp"      ,"Coefficient B pour hybride"      ,[sigID],bp)
+  CALL put_var(nid,"presnivs",""                                ,[sID]  ,presnivs)
+! covariant <-> contravariant <-> natural conversion coefficients
+  CALL put_var(nid,"cu","Coefficient de passage pour U",[rlonuID,rlatuID],cu)
+  CALL put_var(nid,"cv","Coefficient de passage pour V",[rlonvID,rlatvID],cv)
+  CALL put_var(nid,"aire","Aires de chaque maille"     ,[rlonvID,rlatuID],aire)
+  CALL put_var(nid,"phisinit","Geopotentiel au sol"    ,[rlonvID,rlatuID],phis_glo)
+
+!--- Define fields saved later
+  WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')"),&
+               yyears0,mmois0,jjour0
+  CALL cre_var(nid,"temps","Temps de simulation",[timID],unites)
+  CALL cre_var(nid,"ucov" ,"Vitesse U"  ,[rlonuID,rlatuID,sID,timID])
+  CALL cre_var(nid,"vcov" ,"Vitesse V"  ,[rlonvID,rlatvID,sID,timID])
+  CALL cre_var(nid,"teta" ,"Temperature",[rlonvID,rlatuID,sID,timID])
+  DO iq=1,nqtot
+    CALL cre_var(nid,tname(iq),ttext(iq),[rlonvID,rlatuID,sID,timID])
+  END DO
+  CALL cre_var(nid,"masse","Masse d air"    ,[rlonvID,rlatuID,sID,timID])
+  CALL cre_var(nid,"ps"   ,"Pression au sol",[rlonvID,rlatuID    ,timID])
+  CALL err(NF90_CLOSE (nid))
+
+  WRITE(lunout,*)TRIM(modname)//': iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
+  WRITE(lunout,*)TRIM(modname)//': rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa
+
+END SUBROUTINE dynredem0_loc
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE dynredem1_loc(fichnom,time,vcov,ucov,teta,q,masse,ps)
+!
+!-------------------------------------------------------------------------------
+! Purpose: Write the NetCDF restart file (append).
+!-------------------------------------------------------------------------------
+  USE parallel_lmdz
+  USE mod_hallo
+  USE infotrac
+  USE control_mod
+  USE netcdf,   ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID,  &
+                      NF90_CLOSE, NF90_WRITE,   NF90_PUT_VAR, NF90_NoErr
+  USE dynredem_mod, ONLY: dynredem_write_u, dynredem_write_v, dynredem_read_u, &
+                          err, modname, fil, msg
+  USE temps_mod, ONLY: itau_dyn, itaufin
+  
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "description.h"
+  include "comgeom.h"
+  include "iniprint.h"
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: fichnom              !-- FILE NAME
+  REAL, INTENT(IN)    ::  time                         !-- TIME
+  REAL, INTENT(IN)    ::  vcov(ijb_v:ije_v,llm)        !-- V COVARIANT WIND
+  REAL, INTENT(IN)    ::  ucov(ijb_u:ije_u,llm)        !-- U COVARIANT WIND
+  REAL, INTENT(IN)    ::  teta(ijb_u:ije_u,llm)        !-- POTENTIAL TEMPERATURE
+  REAL, INTENT(INOUT) ::     q(ijb_u:ije_u,llm,nqtot)  !-- TRACERS
+  REAL, INTENT(IN)    :: masse(ijb_u:ije_u,llm)        !-- MASS PER CELL
+  REAL, INTENT(IN)    ::    ps(ijb_u:ije_u)            !-- GROUND PRESSURE
+!===============================================================================
+! Local variables:
+  INTEGER :: l, iq, nid, vID, ierr, nid_trac, vID_trac
+  INTEGER, SAVE :: nb=0
+  INTEGER, PARAMETER :: length=100
+  REAL               :: tab_cntrl(length) ! tableau des parametres du run
+  CHARACTER(LEN=256) :: var, dum
+  LOGICAL            :: lread_inca
+!===============================================================================
+
+!$OMP MASTER
+  IF(mpi_rank==0) THEN !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  modname='dynredem1_loc'; fil=fichnom
+  fil=fichnom
+  CALL err(NF90_OPEN(fil,NF90_WRITE,nid),"open",fil)
+
+!--- Write/extend time coordinate
+  nb = nb + 1
+  var="temps"
+  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(NF90_PUT_VAR(nid,vID,[time]),"put",var)
+  WRITE(lunout,*)TRIM(modname)//": Saving for ", nb, time
+
+!--- Rewrite control table (itaufin undefined in dynredem0)
+  var="controle"
+  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(NF90_GET_VAR(nid,vID,tab_cntrl),"get",var)
+  tab_cntrl(31)=DBLE(itau_dyn + itaufin)
+  CALL err(NF90_INQ_VARID(nid,var,vID),"inq",var)
+  CALL err(NF90_PUT_VAR(nid,vID,tab_cntrl),"put",var)
+  END IF               !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!$OMP END MASTER
+
+!--- Save fields
+  CALL dynredem_write_u(nid,"ucov" ,ucov ,llm)
+  CALL dynredem_write_v(nid,"vcov" ,vcov ,llm)
+  CALL dynredem_write_u(nid,"teta" ,teta ,llm)
+  CALL dynredem_write_u(nid,"masse",masse,llm)
+  CALL dynredem_write_u(nid,"ps"   ,ps   ,1)
+
+!--- Tracers in file "start_trac.nc" (added by Anne)
+  lread_inca=.FALSE.
+!$OMP MASTER
+  fil="start_trac.nc"
+  IF(type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)
+  IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open")
+!$OMP END MASTER
+!$OMP BARRIER
+
+!--- Save tracers
+  DO iq=1,nqtot; var=tname(iq); ierr=-1
+    IF(lread_inca) THEN                  !--- Possibly read from "start_trac.nc"
+!$OMP MASTER      
+      fil="start_trac.nc"
+      ierr=NF90_INQ_VARID(nid_trac,var,vID_trac)
+      dum='inq'; IF(ierr==NF90_NoErr) dum='fnd'
+      WRITE(lunout,*)msg(dum,var)
+!$OMP END MASTER
+!$OMP BARRIER
+      IF(ierr==NF90_NoErr) CALL dynredem_read_u(nid_trac,var,q(:,:,iq),llm)
+    END IF
+    fil=fichnom
+    CALL dynredem_write_u(nid,var,q(:,:,iq),llm)
+  END DO
+
+!$OMP MASTER
+  IF(mpi_rank==0) THEN !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  CALL err(NF90_CLOSE(nid),"close")
+  fil="start_trac.nc"
+  IF(lread_inca) CALL err(NF90_CLOSE(nid_trac),"close")
+  END IF               !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!$OMP END MASTER
+
+END SUBROUTINE dynredem1_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynredem_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynredem_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/dynredem_mod.F90	(revision 3330)
@@ -0,0 +1,276 @@
+MODULE dynredem_mod
+
+  USE dimensions_mod
+  USE parallel_lmdz
+  USE mod_hallo
+  USE netcdf
+  PRIVATE
+  PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
+  PUBLIC :: cre_var, get_var1, put_var, fil, modname, msg
+  CHARACTER(LEN=256), SAVE :: fil, modname
+  INTEGER,            SAVE :: nvarid
+
+
+CONTAINS
+
+
+!===============================================================================
+!
+SUBROUTINE dynredem_write_u(ncid,id,var,ll)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,          INTENT(IN) :: ncid
+  CHARACTER(LEN=*), INTENT(IN) :: id
+  REAL,             INTENT(IN) :: var(ijb_u:ije_u,ll)
+  INTEGER,          INTENT(IN) :: ll
+!===============================================================================
+! Local variables:
+  REAL, ALLOCATABLE, SAVE :: var_tmp(:,:), var_glo(:)
+  INTEGER :: start(4), count(4), l, ierr
+!===============================================================================
+  start(:)=[1,1,1,1]; count(:)=[iip1,jjp1,1,1]
+
+!$OMP MASTER
+  IF(mpi_rank==0) CALL err(NF90_INQ_VARID(ncid,id,nvarid),"inq",id)
+!$OMP END MASTER
+
+!$OMP MASTER
+  ALLOCATE(var_tmp(ijb_u:ije_u,ll),var_glo(ip1jmp1))
+!$OMP END MASTER
+!$OMP BARRIER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,ll; var_tmp(:,l)=var(:,l); END DO
+  DO l=1,ll
+    CALL gather_field_u(var_tmp(:,l),var_glo,1)
+    IF(mpi_rank==0) THEN
+    !$OMP MASTER
+      start(3)=l
+      CALL err(NF90_PUT_VAR(ncid,nvarid,var_glo,start,count),"put",id)
+    !$OMP END MASTER
+    END IF
+  END DO
+!$OMP BARRIER
+!$OMP MASTER
+  DEALLOCATE(var_glo,var_tmp)
+!$OMP END MASTER
+!$OMP BARRIER
+  
+END SUBROUTINE dynredem_write_u
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE dynredem_write_v(ncid,id,var,ll)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,          INTENT(IN) :: ncid
+  CHARACTER(LEN=*), INTENT(IN) :: id
+  REAL,             INTENT(IN) :: var(ijb_v:ije_v,ll)
+  INTEGER,          INTENT(IN) :: ll
+!===============================================================================
+! Local variables:
+  REAL, ALLOCATABLE, SAVE :: var_tmp(:,:), var_glo(:)
+  INTEGER :: start(4), count(4), l, ierr
+!===============================================================================
+  start(:)=[1,1,1,1]; count(:)=[iip1,jjm,1,1]
+
+!$OMP MASTER
+  IF(mpi_rank==0) CALL err(NF90_INQ_VARID(ncid,id,nvarid),"inq",id)
+!$OMP END MASTER
+
+!$OMP MASTER
+  ALLOCATE(var_tmp(ijb_v:ije_v,ll),var_glo(ip1jm))
+!$OMP END MASTER
+!$OMP BARRIER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,ll; var_tmp(:,l)=var(:,l); END DO
+  DO l=1,ll
+    CALL gather_field_v(var_tmp(:,l),var_glo,1)
+    IF(mpi_rank==0) THEN
+    !$OMP MASTER
+      start(3)=l
+      CALL err(NF90_PUT_VAR(ncid,nvarid,var_glo,start,count),"put",id)
+    !$OMP END MASTER
+    END IF
+  END DO
+!$OMP BARRIER
+!$OMP MASTER
+  DEALLOCATE(var_glo,var_tmp)
+!$OMP END MASTER
+!$OMP BARRIER
+  
+END SUBROUTINE dynredem_write_v
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE dynredem_read_u(ncid,id,var,ll)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,          INTENT(IN)  :: ncid
+  CHARACTER(LEN=*), INTENT(IN)  :: id
+  REAL,             INTENT(OUT) :: var(ijb_u:ije_u,ll)
+  INTEGER,          INTENT(IN)  :: ll
+!===============================================================================
+! Local variables:
+  REAL, ALLOCATABLE, SAVE :: var_tmp(:,:), var_glo(:)
+  INTEGER :: start(4), count(4), l, ierr
+!===============================================================================
+  start(:)=[1,1,1,1]; count(:)=[iip1,jjp1,1,1]
+
+!$OMP MASTER
+  IF(mpi_rank==0) CALL err(NF90_INQ_VARID(ncid,id,nvarid),'inq',id)
+!$OMP END MASTER
+
+!$OMP MASTER
+  ALLOCATE(var_tmp(ijb_u:ije_u,ll),var_glo(ip1jmp1))
+!$OMP END MASTER
+!$OMP BARRIER
+
+  DO l=1,ll
+    IF(mpi_rank==0) THEN
+    !$OMP MASTER
+      start(3)=l
+      CALL err(NF90_GET_VAR(ncid,nvarid,var_glo,start,count),"get",id)
+    !$OMP END MASTER
+    END IF
+    CALL scatter_field_u(var_glo,var_tmp(:,l),1)
+  END DO
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,ll; var(:,l)=var_tmp(:,l); END DO
+    
+!$OMP BARRIER
+!$OMP MASTER
+  DEALLOCATE(var_glo,var_tmp)
+!$OMP END MASTER
+!$OMP BARRIER
+  
+END SUBROUTINE dynredem_read_u    
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE cre_var(ncid,var,title,did,units)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ncid
+  CHARACTER(LEN=*),           INTENT(IN) :: var, title
+  INTEGER,                    INTENT(IN) :: did(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
+!===============================================================================
+#ifdef NC_DOUBLE
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_DOUBLE,did,nvarid),"inq",var)
+#else
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_FLOAT ,did,nvarid),"inq",var)
+#endif
+  IF(title/="")      CALL err(NF90_PUT_ATT(ncid,nvarid,"title",title),var)
+  IF(PRESENT(units)) CALL err(NF90_PUT_ATT(ncid,nvarid,"units",units),var)
+
+END SUBROUTINE cre_var
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE put_var(ncid,var,title,did,v,units)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ncid
+  CHARACTER(LEN=*),           INTENT(IN) :: var, title
+  INTEGER,                    INTENT(IN) :: did(:)
+  REAL,                       INTENT(IN) :: v(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
+!===============================================================================
+  INTEGER :: nd, k, nn(2)
+  IF(     PRESENT(units)) CALL cre_var(ncid,var,title,did,units)
+  IF(.NOT.PRESENT(units)) CALL cre_var(ncid,var,title,did)
+  CALL err(NF90_ENDDEF(ncid))
+  nd=SIZE(did)
+  DO k=1,nd; CALL err(NF90_INQUIRE_DIMENSION(ncid,did(k),len=nn(k))); END DO
+  IF(nd==1) CALL err(NF90_PUT_VAR(ncid,nvarid,RESHAPE(v,nn(1:1))),var)
+  IF(nd==2) CALL err(NF90_PUT_VAR(ncid,nvarid,RESHAPE(v,nn(1:2))),var)
+  CALL err(NF90_REDEF(ncid))
+END SUBROUTINE put_var
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+FUNCTION msg(typ,nam)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=256)                     :: msg    !--- STANDARDIZED MESSAGE
+  CHARACTER(LEN=*),           INTENT(IN) :: typ    !--- TYPE OF OPERATION
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: nam    !--- FIELD NAME
+!===============================================================================
+  SELECT CASE(typ)
+    CASE('open');  msg="Opening failed for <"//TRIM(fil)//">"
+    CASE('close'); msg="Closing failed for <"//TRIM(fil)//">"
+    CASE('get');   msg="Reading failed for <"//TRIM(nam)//">"
+    CASE('put');   msg="Writting failed for <"//TRIM(nam)//">"
+    CASE('inq');   msg="Missing field <"//TRIM(nam)//">"
+    CASE('fnd');   msg="Found field <"//TRIM(nam)//">"
+  END SELECT
+  msg=TRIM(msg)//" in file <"//TRIM(fil)//">"
+
+END FUNCTION msg
+!
+!===============================================================================
+
+
+!===============================================================================
+!
+SUBROUTINE err(ierr,typ,nam)
+!
+!===============================================================================
+  IMPLICIT NONE
+!===============================================================================
+! Arguments:
+  INTEGER,                    INTENT(IN) :: ierr   !--- NetCDF ERROR CODE
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: typ    !--- TYPE OF OPERATION
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: nam    !--- FIELD NAME
+!===============================================================================
+  IF(ierr==NF90_NoERR) RETURN
+  IF(.NOT.PRESENT(typ)) THEN
+    CALL ABORT_gcm(modname,NF90_STRERROR(ierr),ierr)
+  ELSE
+    CALL ABORT_gcm(modname,msg(typ,nam),ierr)
+  END IF
+
+END SUBROUTINE err
+!
+!===============================================================================
+
+END MODULE dynredem_mod   
+
+    
+    
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/enercin_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/enercin_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/enercin_loc.F90	(revision 3330)
@@ -0,0 +1,84 @@
+SUBROUTINE enercin_loc ( vcov, ucov, vcont, ucont, ecin )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van.
+!-------------------------------------------------------------------------------
+! Purpose: Compute kinetic energy at sigma levels.
+  USE parallel_lmdz
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: vcov    (ijb_v:ije_v,llm)
+  REAL, INTENT(IN)  :: ucov    (ijb_u:ije_u,llm)
+  REAL, INTENT(IN)  :: vcont   (ijb_v:ije_v,llm)
+  REAL, INTENT(IN)  :: ucont   (ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: ecin    (ijb_u:ije_u,llm)
+!===============================================================================
+! Notes:
+!                 . V
+!                i,j-1
+!
+!      alpha4 .       . alpha1
+!
+!
+!        U .      . P     . U
+!       i-1,j    i,j      i,j
+!
+!      alpha3 .       . alpha2
+!
+!
+!                 . V
+!                i,j
+!
+! Kinetic energy at scalar point P(i,j) (excluding poles) is:
+!       Ecin = 0.5 * U(i-1,j)**2 *( alpha3 + alpha4 )  +
+!              0.5 * U(i  ,j)**2 *( alpha1 + alpha2 )  +
+!              0.5 * V(i,j-1)**2 *( alpha1 + alpha4 )  +
+!              0.5 * V(i,  j)**2 *( alpha2 + alpha3 )
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ij, i, ijb, ije
+  REAL    :: ecinni(iim), ecinsi(iim), ecinpn, ecinps
+!===============================================================================
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,llm
+
+    ijb=ij_begin
+    ije=ij_end+iip1
+
+    IF(pole_nord) ijb=ij_begin+iip1
+    IF(pole_sud)  ije=ij_end-iip1
+
+    DO ij = ijb,ije-1
+      ecin(ij+1,l)=0.5*(ucov(ij    ,l)*ucont(ij    ,l)*alpha3p4(ij +1)          &
+                      + ucov(ij+1  ,l)*ucont(ij+1  ,l)*alpha1p2(ij +1)          &
+                      + vcov(ij-iim,l)*vcont(ij-iim,l)*alpha1p4(ij +1)          &
+                      + vcov(ij+1  ,l)*vcont(ij+1  ,l)*alpha2p3(ij +1) )
+    END DO
+
+    !--- Correction: ecin(1,j,l)= ecin(iip1,j,l)
+    DO ij=ijb,ije,iip1; ecin(ij,l) = ecin(ij+iim,l); END DO
+
+    !--- North pole
+    IF(pole_nord) THEN
+      ecinni(:) = vcov(1:iim,l)*vcont(1:iim,l)*aire(1:iim)
+      ecinpn = 0.5*SUM(ecinni)/apoln
+      ecin(1:iip1,l)=ecinpn
+    END IF
+
+    !--- South pole
+    IF(pole_sud) THEN
+      DO i=1,iim
+        ecinsi(i) = vcov(i+ip1jmi1,l)*vcont(i+ip1jmi1,l)*aire(i+ip1jm)
+      END DO
+      ecinps = 0.5*SUM(ecinsi)/apols
+      ecin(1+ip1jm:ip1jmp1,l)=ecinps
+    END IF
+  END DO
+!$OMP END DO NOWAIT
+
+END SUBROUTINE enercin_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/exner_hyb_loc_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/exner_hyb_loc_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/exner_hyb_loc_m.F90	(revision 3330)
@@ -0,0 +1,199 @@
+module exner_hyb_loc_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE  exner_hyb_loc(ngrid, ps, p, pks,pk,pkf)
+
+    !     Auteurs :  P.Le Van  , Fr. Hourdin  .
+    !    ..........
+    !
+    !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
+    !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
+    !
+    !   ************************************************************************
+    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
+    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
+    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
+    !   ************************************************************************
+    !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
+    !    la pression et la fonction d'Exner  au  sol  .
+    !
+    !                                 -------- z
+    !    A partir des relations  ( 1 ) p*dz(pk) = kappa *pk*dz(p)      et
+    !                            ( 2 ) pk(l) = alpha(l)+ beta(l)*pk(l-1)
+    !    ( voir note de Fr.Hourdin )  ,
+    !
+    !    on determine successivement , du haut vers le bas des couches, les 
+    !    coef. alpha(llm),beta(llm) .,.,alpha(l),beta(l),,,alpha(2),beta(2), 
+    !    puis pk(ij,1). Ensuite ,on calcule,du bas vers le haut des couches,  
+    !     pk(ij,l)  donne  par la relation (2),  pour l = 2 a l = llm .
+    !
+    !
+    USE parallel_lmdz
+    USE mod_filtreg_p
+    USE write_field_loc
+    USE comconst_mod, ONLY: cpp, kappa, r, jmp1
+    USE comvert_mod, ONLY: preff
+    
+    IMPLICIT NONE
+    !
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom.h"
+
+    INTEGER  ngrid
+    REAL p(ijb_u:ije_u,llmp1),pk(ijb_u:ije_u,llm)
+    REAL, optional:: pkf(ijb_u:ije_u,llm)
+    REAL ps(ijb_u:ije_u),pks(ijb_u:ije_u)
+    REAL alpha(ijb_u:ije_u,llm),beta(ijb_u:ije_u,llm)
+
+    !    .... variables locales   ...
+
+    INTEGER l, ij
+    REAL unpl2k,dellta
+
+    INTEGER ije,ijb,jje,jjb
+    logical,save :: firstcall=.true.
+    !$OMP THREADPRIVATE(firstcall) 
+    character(len=*),parameter :: modname="exner_hyb_loc"
+    !
+    !$OMP BARRIER           
+
+    ! Sanity check
+    if (firstcall) then
+       ! sanity checks for Shallow Water case (1 vertical layer)
+       if (llm.eq.1) then
+          if (kappa.ne.1) then
+             call abort_gcm(modname, &
+                  "kappa!=1 , but running in Shallow Water mode!!",42)
+          endif
+          if (cpp.ne.r) then
+             call abort_gcm(modname, &
+                  "cpp!=r , but running in Shallow Water mode!!",42)
+          endif
+       endif ! of if (llm.eq.1)
+
+       firstcall=.false.
+    endif ! of if (firstcall)
+
+    !$OMP BARRIER
+
+    ! Specific behaviour for Shallow Water (1 vertical layer) case:
+    if (llm.eq.1) then
+
+       ! Compute pks(:),pk(:),pkf(:)
+       ijb=ij_begin
+       ije=ij_end
+       !$OMP DO SCHEDULE(STATIC)
+       DO ij=ijb, ije
+          pks(ij) = (cpp/preff) * ps(ij)
+          pk(ij,1) = .5*pks(ij)
+          if (present(pkf)) pkf(ij,1)=pk(ij,1)
+       ENDDO
+       !$OMP ENDDO
+
+       !$OMP BARRIER
+       if (present(pkf)) then
+          jjb=jj_begin
+          jje=jj_end
+          CALL filtreg_p ( pkf,jjb_u,jje_u,jjb,jje, jmp1, llm, &
+               2, 1, .TRUE., 1 )
+       end if
+
+       ! our work is done, exit routine
+       return
+    endif ! of if (llm.eq.1)
+
+    ! General case:
+
+    unpl2k    = 1.+ 2.* kappa
+
+    !     -------------
+    !     Calcul de pks
+    !     -------------
+
+    ijb=ij_begin
+    ije=ij_end
+
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij  = ijb, ije
+       pks(ij) = cpp * ( ps(ij)/preff ) ** kappa
+    ENDDO
+    !$OMP ENDDO
+    ! Synchro OPENMP ici
+
+    !$OMP BARRIER
+    !
+    !
+    !    .... Calcul des coeff. alpha et beta  pour la couche l = llm ..
+    !
+    !$OMP DO SCHEDULE(STATIC)
+    DO     ij      = ijb,ije
+       alpha(ij,llm) = 0.
+       beta (ij,llm) = 1./ unpl2k
+    ENDDO
+    !$OMP ENDDO NOWAIT
+    !
+    !     ... Calcul des coeff. alpha et beta  pour l = llm-1  a l = 2 ...
+    !
+    DO l = llm -1 , 2 , -1
+       !
+       !$OMP DO SCHEDULE(STATIC)
+       DO ij = ijb, ije
+          dellta = p(ij,l)* unpl2k + p(ij,l+1)* ( beta(ij,l+1)-unpl2k )
+          alpha(ij,l)  = - p(ij,l+1) / dellta * alpha(ij,l+1)
+          beta (ij,l)  =   p(ij,l  ) / dellta   
+       ENDDO
+       !$OMP ENDDO NOWAIT
+    ENDDO
+
+    !  ***********************************************************************
+    !     .....  Calcul de pk pour la couche 1 , pres du sol  ....
+    !
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij   = ijb, ije
+       pk(ij,1) = ( p(ij,1)*pks(ij) - 0.5*alpha(ij,2)*p(ij,2) )  / &
+            (  p(ij,1)* (1.+kappa) + 0.5*( beta(ij,2)-unpl2k )* p(ij,2) )
+    ENDDO
+    !$OMP ENDDO NOWAIT
+    !
+    !    ..... Calcul de pk(ij,l) , pour l = 2 a l = llm  ........
+    !
+    DO l = 2, llm
+       !$OMP DO SCHEDULE(STATIC)
+       DO   ij   = ijb, ije
+          pk(ij,l) = alpha(ij,l) + beta(ij,l) * pk(ij,l-1)
+       ENDDO
+       !$OMP ENDDO NOWAIT        
+    ENDDO
+
+    if (present(pkf)) then
+       !    calcul de pkf
+
+       DO l = 1, llm
+          !$OMP DO SCHEDULE(STATIC)
+          DO   ij   = ijb, ije
+             pkf(ij,l)=pk(ij,l)
+          ENDDO
+          !$OMP ENDDO NOWAIT             
+       ENDDO
+
+       !$OMP BARRIER
+
+       jjb=jj_begin
+       jje=jj_end
+#ifdef DEBUG_IO    
+       call WriteField_u('pkf',pkf)
+#endif
+       CALL filtreg_p ( pkf,jjb_u,jje_u,jjb,jje, jmp1, llm, &
+            2, 1, .TRUE., 1 )
+#ifdef DEBUG_IO    
+       call WriteField_u('pkf',pkf)
+#endif     
+    end if
+
+  END SUBROUTINE exner_hyb_loc
+
+end module exner_hyb_loc_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/exner_milieu_loc_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/exner_milieu_loc_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/exner_milieu_loc_m.F90	(revision 3330)
@@ -0,0 +1,164 @@
+module exner_milieu_loc_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE  exner_milieu_loc ( ngrid, ps, p, pks, pk, pkf )
+    !
+    !     Auteurs :  F. Forget , Y. Wanherdrick
+    ! P.Le Van  , Fr. Hourdin  .
+    !    ..........
+    !
+    !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
+    !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
+    !
+    !   ************************************************************************
+    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
+    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
+    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
+    !   ************************************************************************
+    !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
+    !    la pression et la fonction d'Exner  au  sol  .
+    !
+    !     WARNING : CECI est une version speciale de exner_hyb originale
+    !               Utilise dans la version martienne pour pouvoir 
+    !               tourner avec des coordonnees verticales complexe
+    !              => Il ne verifie PAS la condition la proportionalite en 
+    !              energie totale/ interne / potentielle (F.Forget 2001)
+    !    ( voir note de Fr.Hourdin )  ,
+    !
+    USE parallel_lmdz
+    USE mod_filtreg_p
+    USE comconst_mod, ONLY: cpp, kappa, r, jmp1
+    USE comvert_mod, ONLY: preff
+    
+    IMPLICIT NONE
+    !
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom.h"
+
+    INTEGER  ngrid
+    REAL p(ijb_u:ije_u,llmp1),pk(ijb_u:ije_u,llm)
+    REAL, optional:: pkf(ijb_u:ije_u,llm)
+    REAL ps(ijb_u:ije_u),pks(ijb_u:ije_u)
+
+    !    .... variables locales   ...
+
+    INTEGER l, ij
+    REAL dum1
+
+    INTEGER ije,ijb,jje,jjb
+    logical,save :: firstcall=.true.
+    !$OMP THREADPRIVATE(firstcall) 
+    character(len=*),parameter :: modname="exner_milieu_loc"
+
+    ! Sanity check
+    if (firstcall) then
+       ! sanity checks for Shallow Water case (1 vertical layer)
+       if (llm.eq.1) then
+          if (kappa.ne.1) then
+             call abort_gcm(modname, &
+                  "kappa!=1 , but running in Shallow Water mode!!",42)
+          endif
+          if (cpp.ne.r) then
+             call abort_gcm(modname, &
+                  "cpp!=r , but running in Shallow Water mode!!",42)
+          endif
+       endif ! of if (llm.eq.1)
+
+       firstcall=.false.
+    endif ! of if (firstcall)
+
+    !$OMP BARRIER
+
+    ! Specific behaviour for Shallow Water (1 vertical layer) case:
+    if (llm.eq.1) then
+
+       ! Compute pks(:),pk(:),pkf(:)
+       ijb=ij_begin
+       ije=ij_end
+       !$OMP DO SCHEDULE(STATIC)
+       DO ij=ijb, ije
+          pks(ij) = (cpp/preff) * ps(ij)
+          pk(ij,1) = .5*pks(ij)
+          if (present(pkf)) pkf(ij,1)=pk(ij,1)
+       ENDDO
+       !$OMP ENDDO
+
+       !$OMP BARRIER
+       if (present(pkf)) then
+          jjb=jj_begin
+          jje=jj_end
+          CALL filtreg_p ( pkf,jjb_u,jje_u,jjb,jje, jmp1, llm, &
+               2, 1, .TRUE., 1 )
+       end if
+
+       ! our work is done, exit routine
+       return
+    endif ! of if (llm.eq.1)
+
+    ! General case:
+
+    !     -------------
+    !     Calcul de pks
+    !     -------------
+
+    ijb=ij_begin
+    ije=ij_end
+
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij  = ijb, ije
+       pks(ij) = cpp * ( ps(ij)/preff ) ** kappa
+    ENDDO
+    !$OMP ENDDO
+    ! Synchro OPENMP ici
+
+    !$OMP BARRIER
+    !
+    !
+    !    .... Calcul de pk  pour la couche l 
+    !    --------------------------------------------
+    !
+    dum1 = cpp * (2*preff)**(-kappa) 
+    DO l = 1, llm-1
+       !$OMP DO SCHEDULE(STATIC)
+       DO   ij   = ijb, ije
+          pk(ij,l) = dum1 * (p(ij,l) + p(ij,l+1))**kappa
+       ENDDO
+       !$OMP ENDDO NOWAIT
+    ENDDO
+
+    !    .... Calcul de pk  pour la couche l = llm ..
+    !    (on met la meme distance (en log pression)  entre Pk(llm)
+    !    et Pk(llm -1) qu'entre Pk(llm-1) et Pk(llm-2)
+
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij   = ijb, ije
+       pk(ij,llm) = pk(ij,llm-1)**2 / pk(ij,llm-2)
+    ENDDO
+    !$OMP ENDDO NOWAIT        
+
+    if (present(pkf)) then
+       !    calcul de pkf
+
+       DO l = 1, llm
+          !$OMP DO SCHEDULE(STATIC)
+          DO   ij   = ijb, ije
+             pkf(ij,l)=pk(ij,l)
+          ENDDO
+          !$OMP ENDDO NOWAIT
+       ENDDO
+
+       !$OMP BARRIER
+
+       jjb=jj_begin
+       jje=jj_end
+       CALL filtreg_p ( pkf,jjb_u,jje_u,jjb,jje, jmp1, llm, &
+            2, 1, .TRUE., 1 )
+    end if
+
+  END SUBROUTINE exner_milieu_loc
+
+end module exner_milieu_loc_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/filtreg_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/filtreg_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/filtreg_p.F	(revision 3330)
@@ -0,0 +1,433 @@
+
+
+      SUBROUTINE filtreg_p ( champ, ibeg, iend, nlat, nbniv, 
+     &     ifiltre, iaire, griscal ,iter)
+      USE parallel_lmdz, only : OMP_CHUNK
+      USE mod_filtre_fft
+      USE timer_filtre
+      
+      USE filtreg_mod
+      
+      IMPLICIT NONE
+      
+c=======================================================================
+c
+c   Auteur: P. Le Van        07/10/97
+c   ------
+c
+c   Objet: filtre matriciel longitudinal ,avec les matrices precalculees
+c                     pour l'operateur  Filtre    .
+c   ------
+c
+c   Arguments:
+c   ----------
+c
+c      
+c      ibeg..iend            lattitude a filtrer
+c      nlat                  nombre de latitudes du champ
+c      nbniv                 nombre de niveaux verticaux a filtrer
+c      champ(iip1,nblat,nbniv)  en entree : champ a filtrer
+c                            en sortie : champ filtre
+c      ifiltre               +1  Transformee directe
+c                            -1  Transformee inverse
+c                            +2  Filtre directe
+c                            -2  Filtre inverse
+c
+c      iaire                 1   si champ intensif
+c                            2   si champ extensif (pondere par les aires)
+c
+c      iter                  1   filtre simple
+c
+c=======================================================================
+c
+c
+c                      Variable Intensive
+c                ifiltre = 1     filtre directe
+c                ifiltre =-1     filtre inverse
+c
+c                      Variable Extensive
+c                ifiltre = 2     filtre directe
+c                ifiltre =-2     filtre inverse
+c
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "coefils.h"
+c
+      INTEGER ibeg,iend,nlat,nbniv,ifiltre,iter
+      INTEGER i,j,l,k
+      INTEGER iim2,immjm
+      INTEGER jdfil1,jdfil2,jffil1,jffil2,jdfil,jffil
+      
+      REAL  champ( iip1,nlat,nbniv)
+      
+      LOGICAL    griscal
+      INTEGER    hemisph, iaire
+      
+      REAL :: champ_fft(iip1,nlat,nbniv)
+      REAL :: champ_in(iip1,nlat,nbniv)
+      
+      LOGICAL,SAVE     :: first=.TRUE.
+c$OMP THREADPRIVATE(first) 
+
+      REAL, DIMENSION(iip1,nlat,nbniv) :: champ_loc
+      INTEGER :: ll_nb, nbniv_loc
+      REAL, SAVE :: sdd12(iim,4)
+c$OMP THREADPRIVATE(sdd12) 
+
+      INTEGER, PARAMETER :: type_sddu=1
+      INTEGER, PARAMETER :: type_sddv=2
+      INTEGER, PARAMETER :: type_unsddu=3
+      INTEGER, PARAMETER :: type_unsddv=4
+
+      INTEGER :: sdd1_type, sdd2_type
+
+      IF (first) THEN
+         sdd12(1:iim,type_sddu) = sddu(1:iim)
+         sdd12(1:iim,type_sddv) = sddv(1:iim)
+         sdd12(1:iim,type_unsddu) = unsddu(1:iim)
+         sdd12(1:iim,type_unsddv) = unsddv(1:iim)
+
+         CALL Init_timer
+         first=.FALSE.
+      ENDIF
+
+c$OMP MASTER      
+      CALL start_timer
+c$OMP END MASTER
+
+c-------------------------------------------------------c
+
+      IF(ifiltre.EQ.1.or.ifiltre.EQ.-1) 
+     &     STOP'Pas de transformee simple dans cette version'
+      
+      IF( iter.EQ. 2 )  THEN
+         PRINT *,' Pas d iteration du filtre dans cette version !'
+     &        , ' Utiliser old_filtreg et repasser !'
+         STOP
+      ENDIF
+
+      IF( ifiltre.EQ. -2 .AND..NOT.griscal )     THEN
+         PRINT *,' Cette routine ne calcule le filtre inverse que '
+     &        , ' sur la grille des scalaires !'
+         STOP
+      ENDIF
+
+      IF( ifiltre.NE.2 .AND.ifiltre.NE. - 2 )  THEN
+         PRINT *,' Probleme dans filtreg car ifiltre NE 2 et NE -2'
+     &        , ' corriger et repasser !'
+         STOP
+      ENDIF
+c
+
+      iim2   = iim * iim
+      immjm  = iim * jjm
+c
+c
+      IF( griscal )   THEN
+         IF( nlat. NE. jjp1 )  THEN
+            PRINT  1111
+            STOP
+         ELSE
+c     
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddv
+               sdd2_type = type_unsddv
+            ELSE
+               sdd1_type = type_unsddv
+               sdd2_type = type_sddv
+            ENDIF
+c
+            jdfil1 = 2
+            jffil1 = jfiltnu
+            jdfil2 = jfiltsu
+            jffil2 = jjm
+         ENDIF
+      ELSE
+         IF( nlat.NE.jjm )  THEN
+            PRINT  2222
+            STOP
+         ELSE
+c
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddu
+               sdd2_type = type_unsddu
+            ELSE
+               sdd1_type = type_unsddu
+               sdd2_type = type_sddu
+            ENDIF
+c     
+            jdfil1 = 1
+            jffil1 = jfiltnv
+            jdfil2 = jfiltsv
+            jffil2 = jjm
+         ENDIF
+      ENDIF
+c      
+      DO hemisph = 1, 2
+c     
+         IF ( hemisph.EQ.1 )  THEN
+cym
+            jdfil = max(jdfil1,ibeg)
+            jffil = min(jffil1,iend)
+         ELSE
+cym
+            jdfil = max(jdfil2,ibeg)
+            jffil = min(jffil2,iend)
+         ENDIF
+
+
+cccccccccccccccccccccccccccccccccccccccccccc
+c Utilisation du filtre classique
+cccccccccccccccccccccccccccccccccccccccccccc
+
+         IF (.NOT. use_filtre_fft) THEN
+      
+c     !---------------------------------!
+c     ! Agregation des niveau verticaux !
+c     ! uniquement necessaire pour une  !
+c     ! execution OpenMP                !
+c     !---------------------------------!
+            ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l = 1, nbniv
+               ll_nb = ll_nb+1
+               DO j = jdfil,jffil
+                  DO i = 1, iim
+                     champ_loc(i,j,ll_nb) = 
+     &                    champ(i,j,l) * sdd12(i,sdd1_type)
+                  ENDDO
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+
+            nbniv_loc = ll_nb
+
+            IF( hemisph.EQ.1 )      THEN
+               
+               IF( ifiltre.EQ.-2 )   THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matrinvn(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0,
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matrinvn(:,:,j),champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE IF ( griscal )     THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matriceun(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0,
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matriceun(:,:,j),champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE 
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matricevn(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matricevn(:,:,j),champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ENDIF
+               
+            ELSE
+               
+               IF( ifiltre.EQ.-2 )   THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matrinvs(1,1,j-jfiltsu+1), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matrinvs(:,:,j-jfiltsu+1),
+     &                            champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE IF ( griscal )     THEN
+                  
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matriceus(1,1,j-jfiltsu+1), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matriceus(:,:,j-jfiltsu+1),
+     &                            champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE 
+                  
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matricevs(1,1,j-jfiltsv+1), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matricevs(:,:,j-jfiltsv+1),
+     &                            champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ENDIF
+               
+            ENDIF
+!     c     
+            IF( ifiltre.EQ.2 )  THEN
+               
+c     !-------------------------------------!
+c     ! Dés-agregation des niveau verticaux !
+c     ! uniquement necessaire pour une      !
+c     ! execution OpenMP                    !
+c     !-------------------------------------!
+               ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               DO l = 1, nbniv
+                  ll_nb = ll_nb + 1
+                  DO j = jdfil,jffil
+                     DO i = 1, iim
+                        champ( i,j,l ) = (champ_loc(i,j,ll_nb) 
+     &                       + champ_fft(i,j-jdfil+1,ll_nb))
+     &                       * sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT
+               
+            ELSE
+               
+               ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               DO l = 1, nbniv_loc
+                  ll_nb = ll_nb + 1
+                  DO j = jdfil,jffil
+                     DO i = 1, iim
+                        champ( i,j,l ) = (champ_loc(i,j,ll_nb) 
+     &                       - champ_fft(i,j-jdfil+1,ll_nb))
+     &                       * sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT
+               
+            ENDIF
+            
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l = 1, nbniv
+               DO j = jdfil,jffil
+                  champ( iip1,j,l ) = champ( 1,j,l )
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+            
+ccccccccccccccccccccccccccccccccccccccccccccc
+c Utilisation du filtre FFT
+ccccccccccccccccccccccccccccccccccccccccccccc
+        
+         ELSE
+       
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l=1,nbniv
+               DO j=jdfil,jffil
+                  DO  i = 1, iim
+                     champ( i,j,l)= champ(i,j,l)*sdd12(i,sdd1_type)
+                     champ_fft( i,j,l) = champ(i,j,l)
+                  ENDDO
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+
+            IF (jdfil<=jffil) THEN
+               IF( ifiltre. EQ. -2 )   THEN
+                  CALL Filtre_inv_fft(champ_fft,nlat,jdfil,jffil,nbniv) 
+               ELSE IF ( griscal )     THEN
+                  CALL Filtre_u_fft(champ_fft,nlat,jdfil,jffil,nbniv)
+               ELSE
+                  CALL Filtre_v_fft(champ_fft,nlat,jdfil,jffil,nbniv)
+               ENDIF
+            ENDIF
+
+
+            IF( ifiltre.EQ. 2 )  THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+               DO l=1,nbniv
+                  DO j=jdfil,jffil
+                     DO  i = 1, iim
+                        champ( i,j,l)=(champ(i,j,l)+champ_fft(i,j,l))
+     &                       *sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT	  
+            ELSE
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)  
+               DO l=1,nbniv
+                  DO j=jdfil,jffil
+                     DO  i = 1, iim
+                        champ(i,j,l)=(champ(i,j,l)-champ_fft(i,j,l))
+     &                       *sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT          
+            ENDIF
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+            DO l=1,nbniv
+               DO j=jdfil,jffil
+!            champ_FFT( iip1,j,l ) = champ_FFT( 1,j,l )
+                  champ( iip1,j,l ) = champ( 1,j,l )
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT          	
+         ENDIF 
+c Fin de la zone de filtrage
+
+	
+      ENDDO
+
+!      DO j=1,nlat
+!     
+!          PRINT *,"check FFT ----> Delta(",j,")=",
+!     &            sum(champ(:,j,:)-champ_fft(:,j,:))/sum(champ(:,j,:)),
+!     &            sum(champ(:,j,:)-champ_in(:,j,:))/sum(champ(:,j,:)) 
+!      ENDDO
+      
+!          PRINT *,"check FFT ----> Delta(",j,")=",
+!     &            sum(champ-champ_fft)/sum(champ)
+!      
+      
+c
+ 1111 FORMAT(//20x,'ERREUR dans le dimensionnement du tableau  CHAMP a 
+     &     filtrer, sur la grille des scalaires'/)
+ 2222 FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fi
+     &     ltrer, sur la grille de V ou de Z'/)
+c$OMP MASTER      
+      CALL stop_timer
+c$OMP END MASTER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/flumass_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/flumass_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/flumass_loc.F90	(revision 3330)
@@ -0,0 +1,91 @@
+SUBROUTINE flumass_loc(massebx,masseby, vcont, ucont, pbaru, pbarv )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute mass flux at s levels.
+  USE parallel_lmdz
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: massebx(ijb_u:ije_u,llm)
+  REAL, INTENT(IN)  :: masseby(ijb_v:ije_v,llm)
+  REAL, INTENT(IN)  :: vcont  (ijb_v:ije_v,llm)
+  REAL, INTENT(IN)  :: ucont  (ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: pbaru  (ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: pbarv  (ijb_v:ije_v,llm)
+!===============================================================================
+! Method used:   A 2 equations system is solved.
+!   * 1st one describes divergence computation at pole point nr. i (i=1 to im):
+!     (0.5*(pbaru(i)-pbaru(i-1))-pbarv(i))/aire(i) = - SUM(pbarv(n))/aire pole
+!   * 2nd one specifies that mean mass flux at pole is equal to 0:
+!     SUM(pbaru(n)*local_area(n))=0
+! This way, we determine additive constant common to pbary elements representing
+!   pbaru(0,j,l) in divergence computation equation for point i=1. (i=1 to im)
+!===============================================================================
+! Local variables:
+  REAL    :: sairen, saireun, ctn, ctn0, apbarun(iim)
+  REAL    :: saires, saireus, cts, cts0, apbarus(iim)
+  INTEGER :: l, i, ij, ijb, ije
+!===============================================================================
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+  DO l=1,llm
+
+    ijb=ij_begin
+    ije=ij_end+iip1
+    IF(pole_nord) ijb=ij_begin+iip1
+    IF(pole_sud)  ije=ij_end-iip1
+    pbaru(ijb:ije,l)=massebx(ijb:ije,l)*ucont(ijb:ije,l)
+
+    ijb=ij_begin-iip1
+    ije=ij_end+iip1
+    IF(pole_nord) ijb=ij_begin
+    IF(pole_sud)  ije=ij_end-iip1
+    pbarv(ijb:ije,l)=masseby(ijb:ije,l)*vcont(ijb:ije,l)
+
+  END DO
+!$OMP END DO NOWAIT
+
+  !--- North pole
+  IF(pole_nord) THEN
+    sairen =SUM(aire (1:iim))
+    saireun=SUM(aireu(1:iim))
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+    DO l=1,llm
+      ctn=SUM(pbarv(1:iim,l))/sairen
+      pbaru(1,l)= pbarv(1,l)-ctn*aire(1)
+      DO i=2,iim
+        pbaru(i,l)=pbaru(i-1,l)+pbarv(i,l)-ctn*aire(i)
+      END DO
+      apbarun(:)=aireu(1:iim)*pbaru(1:iim,l)
+      ctn0 = -SUM(apbarun)/saireun
+      pbaru(1:iim,l)=2.*(pbaru(1:iim,l)+ctn0)
+      pbaru(iip1,l)=pbaru(1,l)
+    END DO
+!$OMP END DO NOWAIT              
+  END IF
+
+  !--- South pole
+  IF(pole_sud) THEN
+    saires =SUM(aire (ip1jm+1:ip1jmp1-1))
+    saireus=SUM(aireu(ip1jm+1:ip1jmp1-1))
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+    DO l=1,llm
+      cts=SUM(pbarv(1+ip1jmi1:ip1jm-1,l))/saires
+      pbaru(1+ip1jm,l)=-pbarv(1+ip1jmi1,l)+cts*aire(1+ip1jm)
+      DO i=2,iim
+        pbaru(i+ip1jm,l)=pbaru(i-1+ip1jm,l)-pbarv(i+ip1jmi1,l)+cts*aire(i+ip1jm)
+      END DO
+      apbarus(:)=aireu(1+ip1jm:ip1jmp1-1)*pbaru(1+ip1jm:ip1jmp1-1,l)
+      cts0 = -SUM(apbarus)/saireus
+      pbaru(1+ip1jm:ip1jmp1-1,l)=2.*(pbaru(1+ip1jm:ip1jmp1-1,l)+cts0)
+      pbaru(ip1jmp1,l)=pbaru(1+ip1jm,l)
+    END DO
+!$OMP END DO NOWAIT         
+  END IF
+
+END SUBROUTINE flumass_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/friction_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/friction_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/friction_loc.F	(revision 3330)
@@ -0,0 +1,203 @@
+!
+! $Id: friction_p.F 1299 2010-01-20 14:27:21Z fairhead $
+!
+c=======================================================================
+      SUBROUTINE friction_loc(ucov,vcov,pdt)
+      USE parallel_lmdz
+      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 comconst_mod, ONLY: pi
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Friction for the Newtonian case:
+!   --------------------------------
+!    2 possibilities (depending on flag 'friction_type'
+!     friction_type=0 : A friction that is only applied to the lowermost
+!                       atmospheric layer
+!     friction_type=1 : Friction applied on all atmospheric layer (but
+!       (default)       with stronger magnitude near the surface; see
+!                       iniacademic.F)
+!=======================================================================
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+      include "iniprint.h"
+      include "academic.h"
+
+! arguments:
+      REAL,INTENT(inout) :: ucov( iip1,jjb_u:jje_u,llm )
+      REAL,INTENT(inout) :: vcov( iip1,jjb_v:jje_v,llm )
+      REAL,INTENT(in) :: pdt ! time step
+
+! local variables:
+
+      REAL modv(iip1,jjb_u:jje_u),zco,zsi
+      REAL vpn,vps,upoln,upols,vpols,vpoln
+      REAL u2(iip1,jjb_u:jje_u),v2(iip1,jjb_v:jje_v)
+      INTEGER  i,j,l
+      REAL,PARAMETER :: cfric=1.e-5
+      LOGICAL,SAVE :: firstcall=.true.
+      INTEGER,SAVE :: friction_type=1
+      CHARACTER(len=20) :: modname="friction_p"
+      CHARACTER(len=80) :: abort_message
+!$OMP THREADPRIVATE(firstcall,friction_type)
+      integer :: jjb,jje
+
+!$OMP SINGLE
+      IF (firstcall) THEN
+        ! set friction type
+        call getin("friction_type",friction_type)
+        if ((friction_type.lt.0).or.(friction_type.gt.1)) then
+          abort_message="wrong friction type"
+          write(lunout,*)'Friction: wrong friction type',friction_type
+          call abort_gcm(modname,abort_message,42)
+        endif
+        firstcall=.false.
+      ENDIF
+!$OMP END SINGLE COPYPRIVATE(friction_type,firstcall)
+
+      if (friction_type.eq.0) then ! friction on first layer only
+!$OMP SINGLE
+c   calcul des composantes au carre du vent naturel
+      jjb=jj_begin
+      jje=jj_end+1
+      if (pole_sud) jje=jj_end
+      
+      do j=jjb,jje
+         do i=1,iip1
+            u2(i,j)=ucov(i,j,1)*ucov(i,j,1)*unscu2(i,j)
+         enddo
+      enddo
+      
+      jjb=jj_begin-1
+      jje=jj_end+1
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud) jje=jj_end-1
+      
+      do j=jjb,jje
+         do i=1,iip1
+            v2(i,j)=vcov(i,j,1)*vcov(i,j,1)*unscv2(i,j)
+         enddo
+      enddo
+
+c   calcul du module de V en dehors des poles
+      jjb=jj_begin
+      jje=jj_end+1
+      if (pole_nord) jjb=jj_begin+1
+      if (pole_sud) jje=jj_end-1
+      
+      do j=jjb,jje
+         do i=2,iip1
+            modv(i,j)=sqrt(0.5*(u2(i-1,j)+u2(i,j)+v2(i,j-1)+v2(i,j)))
+         enddo
+         modv(1,j)=modv(iip1,j)
+      enddo
+
+c   les deux composantes du vent au pole sont obtenues comme
+c   premiers modes de fourier de v pres du pole
+      if (pole_nord) then
+      
+        upoln=0.
+        vpoln=0.
+     
+        do i=2,iip1
+           zco=cos(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           zsi=sin(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           vpn=vcov(i,1,1)/cv(i,1)
+           upoln=upoln+zco*vpn
+           vpoln=vpoln+zsi*vpn
+        enddo
+        vpn=sqrt(upoln*upoln+vpoln*vpoln)/pi
+        do i=1,iip1
+c          modv(i,1)=vpn
+           modv(i,1)=modv(i,2)
+        enddo
+
+      endif
+      
+      if (pole_sud) then
+      
+        upols=0.
+        vpols=0.
+        do i=2,iip1
+           zco=cos(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           zsi=sin(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           vps=vcov(i,jjm,1)/cv(i,jjm)
+           upols=upols+zco*vps
+           vpols=vpols+zsi*vps
+        enddo
+        vps=sqrt(upols*upols+vpols*vpols)/pi
+        do i=1,iip1
+c        modv(i,jjp1)=vps
+         modv(i,jjp1)=modv(i,jjm)
+        enddo
+      
+      endif
+      
+c   calcul du frottement au sol.
+
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_nord) jjb=jj_begin+1
+      if (pole_sud) jje=jj_end-1
+
+      do j=jjb,jje
+         do i=1,iim
+            ucov(i,j,1)=ucov(i,j,1)
+     s      -cfric*pdt*0.5*(modv(i+1,j)+modv(i,j))*ucov(i,j,1)
+         enddo
+         ucov(iip1,j,1)=ucov(1,j,1)
+      enddo
+      
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+      do j=jjb,jje
+         do i=1,iip1
+            vcov(i,j,1)=vcov(i,j,1)
+     s      -cfric*pdt*0.5*(modv(i,j+1)+modv(i,j))*vcov(i,j,1)
+         enddo
+         vcov(iip1,j,1)=vcov(1,j,1)
+      enddo
+!$OMP END SINGLE
+      endif ! of if (friction_type.eq.0)
+
+      if (friction_type.eq.1) then
+       ! for ucov() 
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_nord) jjb=jj_begin+1
+        if (pole_sud) jje=jj_end-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+          ucov(1:iip1,jjb:jje,l)=ucov(1:iip1,jjb:jje,l)*
+     &                                  (1.-pdt*kfrict(l))
+        enddo
+!$OMP END DO NOWAIT
+        
+       ! for vcoc()
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_sud) jje=jj_end-1
+        
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+          vcov(1:iip1,jjb:jje,l)=vcov(1:iip1,jjb:jje,l)*
+     &                                  (1.-pdt*kfrict(l))
+        enddo
+!$OMP END DO
+      endif ! of if (friction_type.eq.1)
+
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gcm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gcm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gcm.F90	(revision 3330)
@@ -0,0 +1,470 @@
+! $Id: $
+
+PROGRAM gcm
+
+#ifdef CPP_IOIPSL
+  USE IOIPSL
+#endif
+
+  USE mod_const_mpi, ONLY: init_const_mpi
+  USE parallel_lmdz
+  USE infotrac
+!#ifdef CPP_PHYS
+!  USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
+!#endif
+  USE mod_hallo
+  USE Bands
+  USE filtreg_mod
+  USE control_mod
+
+#ifdef CPP_PHYS
+  USE iniphysiq_mod, ONLY: iniphysiq
+#endif
+  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
+  USE logic_mod ! all of it, because of copyin clause when calling leapfrog
+  USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref, &
+                       itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end, &
+                       dt,hour_ini,itaufin
+
+  IMPLICIT NONE
+
+  !      ......   Version  du 10/01/98    ..........
+
+  !             avec  coordonnees  verticales hybrides 
+  !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
+
+  !=======================================================================
+  !
+  !   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+  !   -------
+  !
+  !   Objet:
+  !   ------
+  !
+  !   GCM LMD nouvelle grille
+  !
+  !=======================================================================
+  !
+  !  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
+  !      et possibilite d'appeler une fonction f(y)  a derivee tangente
+  !      hyperbolique a la  place de la fonction a derivee sinusoidale.
+  !  ... Possibilite de choisir le schema pour l'advection de
+  !        q  , en modifiant iadv dans traceur.def  (MAF,10/02) .
+  !
+  !      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
+  !      Pour Van-Leer iadv=10
+  !
+  !-----------------------------------------------------------------------
+  !   Declarations:
+  !   -------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissnew.h"
+  include "comgeom.h"
+  include "ener.h"
+  include "description.h"
+  include "iniprint.h"
+  include "tracstoke.h"
+
+
+  REAL zdtvr
+
+  !   variables dynamiques
+  REAL,ALLOCATABLE,SAVE  :: vcov(:,:),ucov(:,:) ! vents covariants
+  REAL,ALLOCATABLE,SAVE  :: teta(:,:)     ! temperature potentielle 
+  REAL, ALLOCATABLE,SAVE :: q(:,:,:)      ! champs advectes
+  REAL,ALLOCATABLE,SAVE  :: ps(:)         ! pression  au sol
+  !      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+  REAL,ALLOCATABLE,SAVE  :: masse(:,:)    ! masse d'air
+  REAL,ALLOCATABLE,SAVE  :: phis(:)       ! geopotentiel au sol
+  !      REAL phi(ip1jmp1,llm)                  ! geopotentiel
+  !      REAL w(ip1jmp1,llm)                    ! vitesse verticale
+
+  ! variables dynamiques intermediaire pour le transport
+
+  !   variables pour le fichier histoire
+  REAL dtav      ! intervalle de temps elementaire
+
+  REAL time_0
+
+  LOGICAL lafin
+
+  real time_step, t_wrt, t_ops
+
+  !+jld variables test conservation energie
+  !      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+  !     Tendance de la temp. potentiel d (theta)/ d t due a la 
+  !     tansformation d'energie cinetique en energie thermique
+  !     cree par la dissipation
+  !      REAL dhecdt(ip1jmp1,llm)
+  !      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+  !      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+  !      CHARACTER (len=15) :: ztit
+  !-jld 
+
+
+  character (len=80) :: dynhist_file, dynhistave_file
+  character (len=20) :: modname
+  character (len=80) :: abort_message
+  ! locales pour gestion du temps
+  INTEGER :: an, mois, jour
+  REAL :: heure
+
+
+  !-----------------------------------------------------------------------
+  !   Initialisations:
+  !   ----------------
+
+  abort_message = 'last timestep reached'
+  modname = 'gcm'
+  descript = 'Run GCM LMDZ'
+  lafin    = .FALSE.
+  dynhist_file = 'dyn_hist'
+  dynhistave_file = 'dyn_hist_ave'
+
+
+
+  !----------------------------------------------------------------------
+  !  lecture des fichiers gcm.def ou run.def
+  !  ---------------------------------------
+  !
+  CALL conf_gcm( 99, .TRUE. )
+  if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm", &
+       "iphysiq must be a multiple of iperiod", 1)
+  !
+  !
+  !------------------------------------
+  !   Initialisation partie parallele
+  !------------------------------------
+  CALL init_const_mpi
+
+  call init_parallel
+  call Read_Distrib
+
+!#ifdef CPP_PHYS
+!  CALL Init_Phys_lmdz(iim,jjp1,llm,mpi_size,distrib_phys)
+  !#endif
+  !      CALL set_bands
+  !#ifdef CPP_PHYS
+!  CALL Init_interface_dyn_phys
+!#endif
+  CALL barrier
+
+  CALL set_bands
+  if (mpi_rank==0) call WriteBands
+  call Set_Distrib(distrib_caldyn)
+
+  !$OMP PARALLEL
+  call Init_Mod_hallo
+  !$OMP END PARALLEL
+
+  !#ifdef CPP_PHYS
+  !c$OMP PARALLEL
+  !      call InitComgeomphy ! now done in iniphysiq
+  !c$OMP END PARALLEL 
+  !#endif
+
+  !-----------------------------------------------------------------------
+  !   Choix du calendrier
+  !   -------------------
+
+  !      calend = 'earth_365d'
+
+#ifdef CPP_IOIPSL
+  if (calend == 'earth_360d') then
+     call ioconf_calendar('360d')
+     write(lunout,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an'
+  else if (calend == 'earth_365d') then
+     call ioconf_calendar('noleap')
+     write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an'
+  else if (calend == 'gregorian') then
+     call ioconf_calendar('gregorian')
+     write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile'
+  else
+     abort_message = 'Mauvais choix de calendrier'
+     call abort_gcm(modname,abort_message,1)
+  endif
+#endif
+
+
+  !-----------------------------------------------------------------------
+  !   Initialisation des traceurs
+  !   ---------------------------
+  !  Choix du nombre de traceurs et du schema pour l'advection
+  !  dans fichier traceur.def, par default ou via INCA
+  call infotrac_init
+
+  ! Allocation de la tableau q : champs advectes   
+  ALLOCATE(ucov(ijb_u:ije_u,llm))
+  ALLOCATE(vcov(ijb_v:ije_v,llm))
+  ALLOCATE(teta(ijb_u:ije_u,llm))
+  ALLOCATE(masse(ijb_u:ije_u,llm))
+  ALLOCATE(ps(ijb_u:ije_u))
+  ALLOCATE(phis(ijb_u:ije_u))
+  ALLOCATE(q(ijb_u:ije_u,llm,nqtot))
+
+  !-----------------------------------------------------------------------
+  !   Lecture de l'etat initial :
+  !   ---------------------------
+
+  !  lecture du fichier start.nc
+  if (read_start) then
+     ! we still need to run iniacademic to initialize some
+     ! constants & fields, if we run the 'newtonian' or 'SW' cases:
+     if (iflag_phys.ne.1) then
+        CALL iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0)
+     endif
+
+     !        if (planet_type.eq."earth") then
+     ! Load an Earth-format start file
+     CALL dynetat0_loc("start.nc",vcov,ucov, &
+          teta,q,masse,ps,phis, time_0)
+     !        endif ! of if (planet_type.eq."earth")
+
+     !       write(73,*) 'ucov',ucov
+     !       write(74,*) 'vcov',vcov
+     !       write(75,*) 'teta',teta
+     !       write(76,*) 'ps',ps
+     !       write(77,*) 'q',q
+
+  endif ! of if (read_start)
+
+  ! le cas echeant, creation d un etat initial
+  IF (prt_level > 9) WRITE(lunout,*) &
+       'GCM: AVANT iniacademic AVANT AVANT AVANT AVANT'
+  if (.not.read_start) then
+     CALL iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0)
+  endif
+
+  !-----------------------------------------------------------------------
+  !   Lecture des parametres de controle pour la simulation :
+  !   -------------------------------------------------------
+  !  on recalcule eventuellement le pas de temps
+
+  IF(MOD(day_step,iperiod).NE.0) THEN
+     abort_message =  &
+          'Il faut choisir un nb de pas par jour multiple de iperiod'
+     call abort_gcm(modname,abort_message,1)
+  ENDIF
+
+  IF(MOD(day_step,iphysiq).NE.0) THEN
+     abort_message =  &
+          'Il faut choisir un nb de pas par jour multiple de iphysiq'
+     call abort_gcm(modname,abort_message,1)
+  ENDIF
+
+  zdtvr    = daysec/REAL(day_step)
+  IF(dtvr.NE.zdtvr) THEN
+     WRITE(lunout,*) &
+          'WARNING!!! changement de pas de temps',dtvr,'>',zdtvr
+  ENDIF
+
+  !
+  ! on remet le calendrier \`a zero si demande
+  !
+  IF (start_time /= starttime) then
+     WRITE(lunout,*)' GCM: Attention l''heure de depart lue dans le' &
+          ,' fichier restart ne correspond pas a celle lue dans le run.def'
+     IF (raz_date == 1) then
+        WRITE(lunout,*)'Je prends l''heure lue dans run.def'
+        start_time = starttime
+     ELSE
+        WRITE(lunout,*)'Je m''arrete'
+        CALL abort
+     ENDIF
+  ENDIF
+  IF (raz_date == 1) THEN
+     annee_ref = anneeref
+     day_ref = dayref
+     day_ini = dayref
+     itau_dyn = 0
+     itau_phy = 0
+     time_0 = 0.
+     write(lunout,*) &
+          'GCM: On reinitialise a la date lue dans gcm.def'
+  ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
+     write(lunout,*) &
+          'GCM: Attention les dates initiales lues dans le fichier'
+     write(lunout,*) &
+          ' restart ne correspondent pas a celles lues dans '
+     write(lunout,*)' gcm.def'
+     write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+     write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+     write(lunout,*)' Pas de remise a zero'
+  ENDIF
+  !      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+  !        write(lunout,*)
+  !     .  'GCM: Attention les dates initiales lues dans le fichier'
+  !        write(lunout,*)
+  !     .  ' restart ne correspondent pas a celles lues dans '
+  !        write(lunout,*)' gcm.def'
+  !        write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+  !        write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+  !        if (raz_date .ne. 1) then
+  !          write(lunout,*)
+  !     .    'GCM: On garde les dates du fichier restart'
+  !        else
+  !          annee_ref = anneeref
+  !          day_ref = dayref
+  !          day_ini = dayref
+  !          itau_dyn = 0
+  !          itau_phy = 0
+  !          time_0 = 0.
+  !          write(lunout,*)
+  !     .   'GCM: On reinitialise a la date lue dans gcm.def'
+  !        endif
+  !      ELSE
+  !        raz_date = 0
+  !      endif
+
+#ifdef CPP_IOIPSL
+  mois = 1
+  heure = 0.
+  call ymds2ju(annee_ref, mois, day_ref, heure, jD_ref)
+  jH_ref = jD_ref - int(jD_ref)
+  jD_ref = int(jD_ref)
+
+  call ioconf_startdate(INT(jD_ref), jH_ref)
+
+  write(lunout,*)'DEBUG'
+  write(lunout,*)'annee_ref, mois, day_ref, heure, jD_ref'
+  write(lunout,*)annee_ref, mois, day_ref, heure, jD_ref
+  call ju2ymds(jD_ref+jH_ref,an, mois, jour, heure)
+  write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
+  write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
+#else
+  ! Ehouarn: we still need to define JD_ref and JH_ref
+  ! and since we don't know how many days there are in a year
+  ! we set JD_ref to 0 (this should be improved ...)
+  jD_ref=0
+  jH_ref=0
+#endif
+
+  if (iflag_phys.eq.1) then
+     ! these initialisations have already been done (via iniacademic)
+     ! if running in SW or Newtonian mode
+     !-----------------------------------------------------------------------
+     !   Initialisation des constantes dynamiques :
+     !   ------------------------------------------
+     dtvr = zdtvr
+     CALL iniconst
+
+     !-----------------------------------------------------------------------
+     !   Initialisation de la geometrie :
+     !   --------------------------------
+     CALL inigeom
+
+     !-----------------------------------------------------------------------
+     !   Initialisation du filtre :
+     !   --------------------------
+     CALL inifilr
+  endif ! of if (iflag_phys.eq.1)
+  !
+  !-----------------------------------------------------------------------
+  !   Initialisation de la dissipation :
+  !   ----------------------------------
+
+  CALL inidissip( lstardis, nitergdiv, nitergrot, niterh   , &
+       tetagdiv, tetagrot , tetatemp, vert_prof_dissip)
+
+  !-----------------------------------------------------------------------
+  !   Initialisation de la physique :
+  !   -------------------------------
+  IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
+     ! Physics:
+#ifdef CPP_PHYS
+     CALL iniphysiq(iim,jjm,llm, &
+          distrib_phys(mpi_rank),comm_lmdz, &
+          daysec,day_ini,dtphys/nsplit_phys, &
+          rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
+          iflag_phys)
+#endif
+  ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
+
+
+  !-----------------------------------------------------------------------
+  !   Initialisation des I/O :
+  !   ------------------------
+
+
+  if (nday>=0) then
+     day_end = day_ini + nday
+  else
+     day_end = day_ini - nday/day_step
+  endif
+
+  WRITE(lunout,300)day_ini,day_end
+300 FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)
+
+#ifdef CPP_IOIPSL
+  call ju2ymds(jD_ref + day_ini - day_ref, an, mois, jour, heure)
+  write (lunout,301)jour, mois, an
+  call ju2ymds(jD_ref + day_end - day_ref, an, mois, jour, heure)
+  write (lunout,302)jour, mois, an
+301 FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4)
+302 FORMAT('1'/,15x,'    au ', i2,'/',i2,'/',i4)
+#endif
+
+  !      if (planet_type.eq."earth") then
+  ! Write an Earth-format restart file
+  CALL dynredem0_loc("restart.nc", day_end, phis)
+  !      endif
+
+  ecripar = .TRUE.
+
+#ifdef CPP_IOIPSL
+  time_step = zdtvr
+     if (ok_dyn_ins) then
+        ! initialize output file for instantaneous outputs
+        ! t_ops = iecri * daysec ! do operations every t_ops
+        t_ops =((1.0*iecri)/day_step) * daysec  
+        t_wrt = daysec ! iecri * daysec ! write output every t_wrt
+        CALL inithist_loc(day_ref,annee_ref,time_step, &
+             t_ops,t_wrt)
+     endif
+
+     IF (ok_dyn_ave) THEN 
+        ! initialize output file for averaged outputs
+        t_ops = iperiod * time_step ! do operations every t_ops
+        t_wrt = periodav * daysec   ! write output every t_wrt
+        CALL initdynav_loc(day_ref,annee_ref,time_step,t_ops,t_wrt)
+     END IF
+  dtav = iperiod*dtvr/daysec
+#endif
+  ! #endif of #ifdef CPP_IOIPSL
+
+  !  Choix des frequences de stokage pour le offline
+  !      istdyn=day_step/4     ! stockage toutes les 6h=1jour/4
+  !      istdyn=day_step/12     ! stockage toutes les 2h=1jour/12
+  istdyn=day_step/4     ! stockage toutes les 6h=1jour/12
+  istphy=istdyn/iphysiq     
+
+
+  !
+  !-----------------------------------------------------------------------
+  !   Integration temporelle du modele :
+  !   ----------------------------------
+
+  !       write(78,*) 'ucov',ucov
+  !       write(78,*) 'vcov',vcov
+  !       write(78,*) 'teta',teta
+  !       write(78,*) 'ps',ps
+  !       write(78,*) 'q',q
+
+  !!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/)
+  !$OMP PARALLEL DEFAULT(SHARED) &
+  !     Copy all threadprivate variables in temps_mod
+  !$OMP COPYIN(dt,jD_ref,jH_ref,start_time,hour_ini,day_ini,day_end) &
+  !$OMP COPYIN(annee_ref,day_ref,itau_dyn,itau_phy,itaufin,calend) &
+  !     Copy all threadprivate variables from logic_mod
+  !$OMP COPYIN(purmats,forward,leapf,apphys,statcl,conser,apdiss,apdelq) &
+  !$OMP COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide) &
+  !$OMP COPYIN(ok_strato,ok_gradsfile,ok_limit,ok_etat0) &
+  !$OMP COPYIN(iflag_phys,iflag_trac)
+  CALL leapfrog_loc(ucov,vcov,teta,ps,masse,phis,q,time_0)
+  !$OMP END PARALLEL
+
+  !      OPEN(unit=5487,file='ok_lmdz',status='replace')
+  !      WRITE(5487,*) 'ok_lmdz'
+  !      CLOSE(5487)
+END PROGRAM gcm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/geopot_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/geopot_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/geopot_loc.F	(revision 3330)
@@ -0,0 +1,65 @@
+      SUBROUTINE geopot_loc ( ngrid, teta, pk, pks, phis, phi )
+      USE parallel_lmdz
+      IMPLICIT NONE
+      
+      
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c    *******************************************************************
+c    ....   calcul du geopotentiel aux milieux des couches    .....
+c    *******************************************************************
+c
+c     ....   l'integration se fait de bas en haut  ....
+c
+c     .. ngrid,teta,pk,pks,phis sont des argum. d'entree pour le s-pg ..
+c              phi               est un  argum. de sortie pour le s-pg .
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+
+c   Arguments:
+c   ----------
+      INTEGER ngrid
+      REAL teta(ijb_u:ije_u,llm),pks(ijb_u:ije_u),phis(ijb_u:ije_u),
+     *     pk(ijb_u:ije_u,llm) , phi(ijb_u:ije_u,llm)
+
+
+c   Local:
+c   ------
+      
+      INTEGER  l, ij,ijb,ije
+
+
+c-----------------------------------------------------------------------
+c     calcul de phi au niveau 1 pres du sol  .....
+      ijb=ij_begin
+      ije=ij_end+iip1
+      
+      IF (pole_sud)  ije=ij_end
+
+      DO  ij  = ijb, ije
+      phi( ij,1 ) = phis( ij ) + teta(ij,1) * ( pks(ij) - pk(ij,1) )
+      ENDDO
+
+c     calcul de phi aux niveaux superieurs  .......
+
+      DO  l = 2,llm
+        DO  ij    = ijb,ije
+        phi(ij,l) = phi(ij,l-1) + 0.5 * ( teta(ij,l)  + teta(ij,l-1) ) 
+     *                              *   (  pk(ij,l-1) -  pk(ij,l)    )
+        ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/getparam.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/getparam.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/getparam.F90	(revision 3330)
@@ -0,0 +1,119 @@
+!
+! $Id: getparam.F90 1279 2009-12-10 09:02:56Z fairhead $
+!
+MODULE getparam
+#ifdef CPP_IOIPSL
+   USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+   USE ioipsl_getincom
+#endif
+
+   INTERFACE getpar
+     MODULE PROCEDURE getparamr,getparami,getparaml
+   END INTERFACE
+   private getparamr,getparami,getparaml
+
+   INTEGER, PARAMETER :: out_eff=99
+
+CONTAINS
+  SUBROUTINE ini_getparam(fichier)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    CHARACTER*(*) :: fichier
+    IF (mpi_rank==0) OPEN(out_eff,file=fichier,status='unknown',form='formatted')
+    
+  END SUBROUTINE ini_getparam
+
+  SUBROUTINE fin_getparam
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+      IF (mpi_rank==0) CLOSE(out_eff)
+
+  END SUBROUTINE fin_getparam
+
+  SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    REAL :: def_val
+    REAL :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    IF (mpi_rank==0) THEN
+      write(out_eff,*) '######################################'
+      write(out_eff,*) '#### ',comment,' #####'
+      write(out_eff,*) TARGET,'=',ret_val
+    ENDIF
+    
+  END SUBROUTINE getparamr
+
+  SUBROUTINE getparami(TARGET,def_val,ret_val,comment)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    INTEGER :: def_val
+    INTEGER :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    IF (mpi_rank==0) THEN
+      write(out_eff,*) '######################################'
+      write(out_eff,*) '#### ',comment,' #####'
+      write(out_eff,*) comment
+      write(out_eff,*) TARGET,'=',ret_val
+    ENDIF
+    
+  END SUBROUTINE getparami
+
+  SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    LOGICAL :: def_val
+    LOGICAL :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    IF (mpi_rank==0) THEN
+      write(out_eff,*) '######################################'
+      write(out_eff,*) '#### ',comment,' #####'
+      write(out_eff,*) TARGET,'=',ret_val
+    ENDIF
+       
+  END SUBROUTINE getparaml
+
+
+END MODULE getparam
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gr_u_scal_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gr_u_scal_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gr_u_scal_loc.F	(revision 3330)
@@ -0,0 +1,75 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_u_scal_loc(nx,x_u,x_scal)
+c%W%    %G%
+c=======================================================================
+c
+c   Author:    Frederic Hourdin      original: 11/11/92
+c   -------
+c
+c   Subject:
+c   ------
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE parallel_lmdz
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER nx
+      REAL x_u(ijb_u:ije_u,nx),x_scal(ijb_u:ije_u,nx)
+
+c   Local:
+c   ------
+
+      INTEGER l,ij
+      INTEGER :: ijb,ije
+
+c-----------------------------------------------------------------------
+      ijb=ij_begin
+      ije=ij_end
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,nx
+         DO ij=ijb+1,ije
+            x_scal(ij,l)=
+     s      (aireu(ij)*x_u(ij,l)+aireu(ij-1)*x_u(ij-1,l))
+     s      /(aireu(ij)+aireu(ij-1))
+         ENDDO
+      ENDDO
+!$OMP ENDDO NOWAIT
+
+      ijb=ij_begin
+      ije=ij_end
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,nx
+         DO ij=ijb,ije-iip1+1,iip1
+	   x_scal(ij,l)=x_scal(ij+iip1-1,l)
+	 ENDDO
+      ENDDO
+!$OMP ENDDO NOWAIT
+      RETURN
+      
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gr_v_scal_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gr_v_scal_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gr_v_scal_loc.F	(revision 3330)
@@ -0,0 +1,85 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_v_scal_loc(nx,x_v,x_scal)
+c%W%    %G%
+c=======================================================================
+c
+c   Author:    Frederic Hourdin      original: 11/11/92
+c   -------
+c
+c   Subject:
+c   ------
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE parallel_lmdz
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER nx
+      REAL x_v(ijb_v:ije_v,nx),x_scal(ijb_v:ije_v,nx)
+
+c   Local:
+c   ------
+
+      INTEGER l,ij
+      INTEGER :: ijb,ije
+c-----------------------------------------------------------------------
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,nx
+         DO ij=ijb,ije
+            x_scal(ij,l)=
+     s      (airev(ij-iip1)*x_v(ij-iip1,l)+airev(ij)*x_v(ij,l))
+     s      /(airev(ij-iip1)+airev(ij))
+         ENDDO
+      ENDDO
+!$OMP ENDDO NOWAIT
+      
+      if (pole_nord) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+        DO l=1,nx
+           DO ij=1,iip1
+              x_scal(ij,l)=0.
+           ENDDO
+        ENDDO
+!$OMP ENDDO NOWAIT
+      endif
+    
+      if (pole_sud) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+        DO l=1,nx
+           DO ij=ip1jm+1,ip1jmp1
+              x_scal(ij,l)=0.
+           ENDDO
+        ENDDO
+!$OMP ENDDO NOWAIT
+      endif
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/grad_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/grad_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/grad_loc.F	(revision 3330)
@@ -0,0 +1,53 @@
+      SUBROUTINE  grad_loc(klevel, pg,pgx,pgy )
+c
+c      P. Le Van
+c
+c    ******************************************************************
+c     .. calcul des composantes covariantes en x et y du gradient de g
+c
+c    ******************************************************************
+c             pg        est un   argument  d'entree pour le s-prog
+c       pgx  et  pgy    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      INTEGER klevel
+      REAL  pg( ijb_u:ije_u,klevel )
+      REAL pgx( ijb_u:ije_u,klevel ) , pgy( ijb_v:ije_v,klevel )
+      INTEGER  l,ij
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 6 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      DO 2  ij = ijb, ije - 1
+        pgx( ij,l ) = pg( ij +1,l ) - pg( ij,l )
+   2  CONTINUE
+c
+c    .... correction pour  pgx(ip1,j,l)  ....
+c    ...    pgx(iip1,j,l)= pgx(1,j,l)  ....
+CDIR$ IVDEP
+      DO 3  ij = ijb+iip1-1, ije, iip1
+        pgx( ij,l ) = pgx( ij -iim,l )
+   3  CONTINUE
+c
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4 ij = ijb,ije
+        pgy( ij,l ) = pg( ij,l ) - pg( ij +iip1,l )
+   4  CONTINUE
+c
+   6  CONTINUE
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/grad_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/grad_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/grad_p.F	(revision 3330)
@@ -0,0 +1,53 @@
+      SUBROUTINE  grad_p(klevel, pg,pgx,pgy )
+c
+c      P. Le Van
+c
+c    ******************************************************************
+c     .. calcul des composantes covariantes en x et y du gradient de g
+c
+c    ******************************************************************
+c             pg        est un   argument  d'entree pour le s-prog
+c       pgx  et  pgy    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      INTEGER klevel
+      REAL  pg( ip1jmp1,klevel )
+      REAL pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel )
+      INTEGER  l,ij
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 6 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      DO 2  ij = ijb, ije - 1
+        pgx( ij,l ) = pg( ij +1,l ) - pg( ij,l )
+   2  CONTINUE
+c
+c    .... correction pour  pgx(ip1,j,l)  ....
+c    ...    pgx(iip1,j,l)= pgx(1,j,l)  ....
+CDIR$ IVDEP
+      DO 3  ij = ijb+iip1-1, ije, iip1
+        pgx( ij,l ) = pgx( ij -iim,l )
+   3  CONTINUE
+c
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4 ij = ijb,ije
+        pgy( ij,l ) = pg( ij,l ) - pg( ij +iip1,l )
+   4  CONTINUE
+c
+   6  CONTINUE
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gradiv2_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gradiv2_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gradiv2_loc.F	(revision 3330)
@@ -0,0 +1,149 @@
+      SUBROUTINE gradiv2_loc(klevel, xcov, ycov, ld, gdx_out, gdy_out )
+c
+c     P. Le Van
+c
+c   **********************************************************
+c                                ld
+c       calcul  de  (grad (div) )   du vect. v ....
+c
+c     xcov et ycov etant les composant.covariantes de v
+c   **********************************************************
+c     xcont , ycont et ld  sont des arguments  d'entree pour le s-prog
+c      gdx   et  gdy       sont des arguments de sortie pour le s-prog
+c
+c
+      USE parallel_lmdz
+      USE times
+      USE Write_field_p
+      USE mod_hallo
+      USE mod_filtreg_p
+      USE gradiv2_mod
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "comdissipn.h"
+c
+c     ........    variables en arguments      ........
+
+      INTEGER klevel
+      REAL  xcov( ijb_u:ije_u,klevel ), ycov( ijb_v:ije_v,klevel )
+      REAL gdx_out( ijb_u:ije_u,klevel ), gdy_out( ijb_v:ije_v,klevel)
+c
+c     ........       variables locales       .........
+c
+      REAL      :: tmp_div2(ijb_u:ije_u,llm)
+      REAL signe, nugrads
+      INTEGER l,ij,iter,ld
+      INTEGER :: ijb,ije,jjb,jje
+      Type(Request),SAVE  :: request_dissip
+!$OMP THREADPRIVATE(request_dissip)      
+c    ........................................................
+c
+c
+c      CALL SCOPY( ip1jmp1 * klevel, xcov, 1, gdx, 1 )
+c      CALL SCOPY(   ip1jm * klevel, ycov, 1, gdy, 1 )
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO   l = 1, klevel
+        gdx(ijb:ije,l)=xcov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT      
+      
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO   l = 1, klevel
+        gdy(ijb:ije,l)=ycov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP BARRIER
+       call Register_Hallo_v(gdy,llm,1,0,0,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+c
+c
+      signe   = (-1.)**ld
+      nugrads = signe * cdivu
+c
+
+
+      CALL    divergf_loc( klevel, gdx,   gdy , div )
+c      call write_field3d_p('div1',reshape(div,(/iip1,jjp1,llm/)))
+
+      IF( ld.GT.1 )   THEN
+c$OMP BARRIER
+       call Register_Hallo_u(div,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+	CALL laplacien_loc( klevel, div,  div     )
+
+c    ......  Iteration de l'operateur laplacien_gam   .......
+c         call write_field3d_p('div2',reshape(div,(/iip1,jjp1,llm/)))
+
+        DO iter = 1, ld -2
+c$OMP BARRIER
+       call Register_Hallo_u(div,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+         CALL laplacien_gam_loc(klevel,cuvscvgam1,cvuscugam1,
+     &                          unsair_gam1,unsapolnga1, unsapolsga1,
+     &                          div, div       )
+        ENDDO
+c        call write_field3d_p('div3',reshape(div,(/iip1,jjp1,llm/)))
+      ENDIF
+
+       jjb=jj_begin
+       jje=jj_end
+       
+       CALL filtreg_p( div   ,jjb_u,jje_u,jjb,jje, jjp1, 
+     &                 klevel, 2, 1, .TRUE., 1 )
+c       call exchange_Hallo(div,ip1jmp1,llm,0,1)
+c$OMP BARRIER
+       call Register_Hallo_u(div,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+
+       CALL  grad_loc( klevel,  div,   gdx,  gdy )
+
+c
+      ijb=ij_begin
+      ije=ij_end
+         
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       DO   l = 1, klevel
+         
+         if (pole_sud) ije=ij_end
+         DO  ij = ijb, ije
+          gdx_out( ij,l ) = gdx( ij,l ) * nugrads
+         ENDDO
+         
+         if (pole_sud) ije=ij_end-iip1
+         DO  ij = ijb, ije
+          gdy_out( ij,l ) = gdy( ij,l ) * nugrads
+         ENDDO
+       
+       ENDDO
+c$OMP END DO NOWAIT
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gradiv2_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gradiv2_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/gradiv2_mod.F90	(revision 3330)
@@ -0,0 +1,39 @@
+MODULE gradiv2_mod
+
+  REAL,POINTER,SAVE ::  gdx( :,: )
+  REAL,POINTER,SAVE ::  gdy( :,: )
+  REAL,POINTER,SAVE ::  div( :,: )
+  
+CONTAINS
+
+  SUBROUTINE gradiv2_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+    TYPE(distrib),POINTER :: d
+    d=>distrib_dissip
+
+    CALL allocate_u(gdx,llm,d)
+    CALL allocate_v(gdy,llm,d)
+    CALL allocate_u(div,llm,d)
+
+    
+  END SUBROUTINE gradiv2_allocate
+  
+  SUBROUTINE gradiv2_switch_dissip(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(gdx,distrib_dissip,dist)
+    CALL switch_v(gdy,distrib_dissip,dist)
+    CALL switch_u(div,distrib_dissip,dist)
+
+
+  END SUBROUTINE gradiv2_switch_dissip
+  
+END MODULE gradiv2_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupe_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupe_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupe_loc.F	(revision 3330)
@@ -0,0 +1,134 @@
+      subroutine groupe_loc(pext,pbaru,pbarv,pbarum,pbarvm,wm)
+      USE parallel_lmdz
+      USE Write_field_loc
+      USE groupe_mod
+      USE comconst_mod, ONLY: ngroup
+      implicit none
+
+c   sous-programme servant a fitlrer les champs de flux de masse aux
+c   poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur
+c   et a mesure qu'on se rapproche du pole.
+c
+c   en entree: pext, pbaru et pbarv
+c
+c   en sortie:  pbarum,pbarvm et wm.
+c
+c   remarque, le wm est recalcule a partir des pbaru pbarv et on n'a donc
+c   pas besoin de w en entree.
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+!     integer ngroup
+!     parameter (ngroup=3)
+
+
+      real pbaru(iip1,jjb_u:jje_u,llm),pbarv(iip1,jjb_v:jje_v,llm)
+      real pext(iip1,jjb_u:jje_u,llm)
+
+      real pbarum(iip1,jjb_u:jje_u,llm),pbarvm(iip1,jjb_v:jje_v,llm)
+      real wm(iip1,jjb_u:jje_u,llm)
+
+
+      real uu
+
+      integer i,j,l
+
+      logical firstcall
+      save firstcall
+c$OMP THREADPRIVATE(firstcall)
+
+      data firstcall/.true./
+      integer ijb,ije,jjb,jje
+      
+      if (firstcall) then
+         if(mod(iim,2**ngroup).ne.0) stop'probleme du nombre ede point'
+         firstcall=.false.
+      endif
+
+c   Champs 1D
+
+      call convflu_loc(pbaru,pbarv,llm,zconvm)
+
+c
+c      call scopy(ijp1llm,zconvm,1,zconvmm,1)
+c      call scopy(ijmllm,pbarv,1,pbarvm,1)
+      
+      jjb=jj_begin
+      jje=jj_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      do l=1,llm
+        zconvmm(:,jjb:jje,l)=zconvm(:,jjb:jje,l)
+      enddo
+c$OMP END DO NOWAIT
+
+      call groupeun_loc(jjp1,llm,jjb_u,jje_u,jjb,jje,zconvmm)
+      
+      jjb=jj_begin-1
+      jje=jj_end
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud)  jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      do l=1,llm
+        pbarvm(:,jjb:jje,l)=pbarv(:,jjb:jje,l)
+      enddo
+c$OMP END DO NOWAIT
+
+#ifdef DEBUG_IO    
+      CALL WriteField_v('pbarvm',reshape(pbarvm,(/ip1jm,llm/)))
+#endif
+      call groupeun_loc(jjm,llm,jjb_v,jje_v,jjb,jje,pbarvm)
+#ifdef DEBUG_IO    
+      CALL WriteField_v('pbarvm',reshape(pbarvm,(/ip1jm,llm/)))
+#endif
+c   Champs 3D
+   
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_nord) jjb=jj_begin+1
+      if (pole_sud)  jje=jj_end-1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      do l=1,llm
+         do j=jjb,jje
+            uu=pbaru(iim,j,l)
+            do i=1,iim
+               uu=uu+pbarvm(i,j,l)-pbarvm(i,j-1,l)-zconvmm(i,j,l)
+               pbarum(i,j,l)=uu
+c     zconvm(i,j,l ) =  xflu(i-1,j,l)-xflu(i,j,l)+
+c    *                      yflu(i,j,l)-yflu(i,j-1,l)
+            enddo
+            pbarum(iip1,j,l)=pbarum(1,j,l)
+         enddo
+      enddo
+c$OMP END DO NOWAIT
+c    integration de la convergence de masse de haut  en bas ......
+   
+      jjb=jj_begin
+      jje=jj_end
+
+c$OMP BARRIER
+c$OMP MASTER      
+      do  l = llm-1,1,-1
+          do j=jjb,jje
+             do i=1,iip1
+                zconvmm(i,j,l)=zconvmm(i,j,l)+zconvmm(i,j,l+1)
+             enddo
+          enddo
+      enddo
+
+      if (.not. pole_sud) then
+        zconvmm(:,jj_end+1,:)=0
+cym	wm(:,jj_end+1,:)=0
+      endif
+      
+c$OMP END MASTER
+c$OMP BARRIER      
+
+      CALL vitvert_loc(zconvmm,wm)
+
+      return
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupe_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupe_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupe_mod.F90	(revision 3330)
@@ -0,0 +1,40 @@
+MODULE groupe_mod
+
+  REAL,POINTER,SAVE :: zconvm(:,:,:)
+  REAL,POINTER,SAVE :: zconvmm(:,:,:)
+  
+CONTAINS
+
+  SUBROUTINE groupe_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE infotrac
+  USE advtrac_mod, ONLY : advtrac_allocate 
+  IMPLICIT NONE
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  TYPE(distrib),POINTER :: d
+
+    d=>distrib_caldyn
+    CALL allocate2d_u(zconvm,llm,d)
+    CALL allocate2d_u(zconvmm,llm,d)
+
+
+  END SUBROUTINE groupe_allocate
+  
+  SUBROUTINE groupe_switch_caldyn(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch2d_u(zconvm,distrib_caldyn,dist)
+    CALL switch2d_u(zconvmm,distrib_caldyn,dist)
+
+  END SUBROUTINE groupe_switch_caldyn
+  
+
+  
+END MODULE groupe_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupeun_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupeun_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/groupeun_loc.F	(revision 3330)
@@ -0,0 +1,201 @@
+      SUBROUTINE groupeun_loc(jjmax,llmax,sb,se,jjb,jje,q)
+      USE parallel_lmdz
+      USE Write_Field_p
+      USE comconst_mod, ONLY: ngroup
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+      INTEGER jjmax,llmax,sb,se,jjb,jje
+      REAL q(iip1,sb:se,llmax)
+
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
+
+      REAL airecn,qn
+      REAL airecs,qs
+
+      INTEGER i,j,l,ig,ig2,j1,j2,i0,jd
+
+c--------------------------------------------------------------------c 
+c Strategie d'optimisation                                           c
+c stocker les valeurs systematiquement recalculees                   c
+c et identiques d'un pas de temps sur l'autre. Il s'agit des         c
+c aires des cellules qui sont sommees. S'il n'y a pas de changement  c
+c de grille au cours de la simulation tout devrait bien se passer.   c
+c Autre optimisation : determination des bornes entre lesquelles "j" c
+c varie, au lieu de faire un test a chaque fois...
+c--------------------------------------------------------------------c 
+
+      INTEGER j_start, j_finish
+
+      REAL, SAVE :: airen_tab(iip1,jjp1,0:1)
+      REAL, SAVE :: aires_tab(iip1,jjp1,0:1)
+!$OMP THREADPRIVATE(airen_tab, aires_tab)
+
+      LOGICAL, SAVE :: first = .TRUE.
+!$OMP THREADPRIVATE(first)
+!     INTEGER,SAVE :: i_index(iim,ngroup)
+      INTEGER      :: offset
+!     REAL         :: qsum(iim/ngroup)
+
+      IF (first) THEN
+         CALL init_groupeun_loc(airen_tab, aires_tab)
+         first = .FALSE.
+      ENDIF
+
+c Champs 3D
+      jd=jjp1-jjmax
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         j1=1+jd
+         j2=2
+         DO ig=1,ngroup
+
+c     Concerne le pole nord
+            j_start  = MAX(jjb, j1-jd)
+            j_finish = MIN(jje, j2-jd)
+            DO ig2=1,ngroup-ig+1
+              offset=2**(ig2-1)
+              DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+                 DO i0=1,iim,2**ig2
+                   q(i0,j,l)=q(i0,j,l)+q(i0+offset,j,l) 
+                 ENDDO
+              ENDDO
+            ENDDO
+            
+            DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,j,l)=q(i-MOD(i-1,2**(ngroup-ig+1)),j,l)
+               ENDDO
+            ENDDO
+
+            DO j=j_start, j_finish
+!CDIR ON_ADB(airen_tab)
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,j,l)=q(i,j,l)*airen_tab(i,j,jd)
+               ENDDO
+               q(iip1,j,l)=q(1,j,l)
+            ENDDO
+       
+!c     Concerne le pole sud
+            j_start  = MAX(1+jjp1-jje-jd, j1-jd)
+            j_finish = MIN(1+jjp1-jjb-jd, j2-jd)
+            DO ig2=1,ngroup-ig+1
+              offset=2**(ig2-1)
+              DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+                 DO i0=1,iim,2**ig2
+                   q(i0,jjp1-j+1-jd,l)= q(i0,jjp1-j+1-jd,l)
+     &                                 +q(i0+offset,jjp1-j+1-jd,l) 
+                 ENDDO
+              ENDDO
+            ENDDO
+
+
+            DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,jjp1-j+1-jd,l)=q(i-MOD(i-1,2**(ngroup-ig+1)),
+     &                                jjp1-j+1-jd,l)
+               ENDDO
+            ENDDO
+
+            DO j=j_start, j_finish
+!CDIR ON_ADB(aires_tab)
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,jjp1-j+1-jd,l)=q(i,jjp1-j+1-jd,l)*  
+     &                              aires_tab(i,jjp1-j+1,jd)
+               ENDDO
+               q(iip1,jjp1-j+1-jd,l)=q(1,jjp1-j+1-jd,l)
+            ENDDO
+
+        
+            j1=j2+1
+            j2=j2+2**ig
+         ENDDO
+      ENDDO
+!$OMP END DO NOWAIT
+
+      RETURN
+      END
+
+
+
+      SUBROUTINE init_groupeun_loc(airen_tab, aires_tab)
+
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: ngroup
+      IMPLICIT NONE
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
+
+      REAL airen,airecn
+      REAL aires,airecs
+
+      INTEGER i,j,l,ig,j1,j2,i0,jd
+
+      INTEGER j_start, j_finish
+
+      REAL :: airen_tab(iip1,jjp1,0:1)
+      REAL :: aires_tab(iip1,jjp1,0:1)
+
+      DO jd=0, 1
+         j1=1+jd
+         j2=2
+         DO ig=1,ngroup
+            
+!     c     Concerne le pole nord
+            j_start = j1-jd
+            j_finish = j2-jd
+            DO j=j_start, j_finish
+               DO i0=1,iim,2**(ngroup-ig+1)
+                  airen=0.
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     airen = airen+aire(i,j)
+                  ENDDO
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     airen_tab(i,j,jd) = 
+     &                    aire(i,j) / airen
+                  ENDDO
+               ENDDO
+            ENDDO
+            
+!     c     Concerne le pole sud
+            j_start = j1-jd
+            j_finish = j2-jd
+            DO j=j_start, j_finish
+               DO i0=1,iim,2**(ngroup-ig+1)
+                  aires=0.
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     aires=aires+aire(i,jjp1-j+1)
+                  ENDDO
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     aires_tab(i,jjp1-j+1,jd) = 
+     &                    aire(i,jjp1-j+1) / aires
+                  ENDDO
+               ENDDO
+            ENDDO
+            
+            j1=j2+1
+            j2=j2+2**ig
+         ENDDO
+      ENDDO
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/guide_loc_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/guide_loc_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/guide_loc_mod.F90	(revision 3330)
@@ -0,0 +1,2407 @@
+!
+! $Id$
+!
+MODULE guide_loc_mod
+
+!=======================================================================
+!   Auteur:  F.Hourdin
+!            F. Codron 01/09
+!=======================================================================
+
+  USE getparam
+  USE Write_Field_loc
+  use netcdf, only: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close
+  USE parallel_lmdz
+  USE pres2lev_mod
+
+  IMPLICIT NONE
+
+! ---------------------------------------------
+! Declarations des cles logiques et parametres 
+! ---------------------------------------------
+  INTEGER, PRIVATE, SAVE  :: iguide_read,iguide_int,iguide_sav
+  INTEGER, PRIVATE, SAVE  :: nlevnc, guide_plevs
+  LOGICAL, PRIVATE, SAVE  :: guide_u,guide_v,guide_T,guide_Q,guide_P
+  LOGICAL, PRIVATE, SAVE  :: guide_hr,guide_teta  
+  LOGICAL, PRIVATE, SAVE  :: guide_BL,guide_reg,guide_add,gamma4,guide_zon 
+  LOGICAL, PRIVATE, SAVE  :: invert_p,invert_y,ini_anal
+  LOGICAL, PRIVATE, SAVE  :: guide_2D,guide_sav,guide_modele
+  
+  REAL, PRIVATE, SAVE     :: tau_min_u,tau_max_u
+  REAL, PRIVATE, SAVE     :: tau_min_v,tau_max_v
+  REAL, PRIVATE, SAVE     :: tau_min_T,tau_max_T
+  REAL, PRIVATE, SAVE     :: tau_min_Q,tau_max_Q
+  REAL, PRIVATE, SAVE     :: tau_min_P,tau_max_P
+
+  REAL, PRIVATE, SAVE     :: lat_min_g,lat_max_g
+  REAL, PRIVATE, SAVE     :: lon_min_g,lon_max_g
+  REAL, PRIVATE, SAVE     :: tau_lon,tau_lat
+
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_u,alpha_v 
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_T,alpha_Q 
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_P,alpha_pcor
+  
+! ---------------------------------------------
+! Variables de guidage
+! ---------------------------------------------
+! Variables des fichiers de guidage
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: unat1,unat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: vnat1,vnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: tnat1,tnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: qnat1,qnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: pnat1,pnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: psnat1,psnat2
+  REAL, ALLOCATABLE, DIMENSION(:),     PRIVATE, SAVE   :: apnc,bpnc
+! Variables aux dimensions du modele
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: ugui1,ugui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: vgui1,vgui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: tgui1,tgui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: qgui1,qgui2
+  REAL, ALLOCATABLE, DIMENSION(:),   PRIVATE, SAVE   :: psgui1,psgui2
+  
+  INTEGER,SAVE,PRIVATE :: ijbu,ijbv,ijeu,ijev,ijnu,ijnv
+  INTEGER,SAVE,PRIVATE :: jjbu,jjbv,jjeu,jjev,jjnu,jjnv
+
+
+CONTAINS
+!=======================================================================
+
+  SUBROUTINE guide_init
+
+    USE control_mod, ONLY: day_step
+    USE serre_mod, ONLY: grossismx
+
+    IMPLICIT NONE
+  
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "netcdf.inc"
+
+    INTEGER                :: error,ncidpl,rid,rcod
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_init'
+
+! ---------------------------------------------
+! Lecture des parametres:  
+! ---------------------------------------------
+    call ini_getparam("nudging_parameters_out.txt")
+! Variables guidees
+    CALL getpar('guide_u',.true.,guide_u,'guidage de u')
+    CALL getpar('guide_v',.true.,guide_v,'guidage de v')
+    CALL getpar('guide_T',.true.,guide_T,'guidage de T')
+    CALL getpar('guide_P',.true.,guide_P,'guidage de P')
+    CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q')
+    CALL getpar('guide_hr',.true.,guide_hr,'guidage de Q par H.R')
+    CALL getpar('guide_teta',.false.,guide_teta,'guidage de T par Teta')
+
+    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
+    CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u')
+    CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u')
+    CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v')
+    CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v')
+    CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T')
+    CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T')
+    CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q')
+    CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q')
+    CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P')
+    CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P')
+    CALL getpar('gamma4',.false.,gamma4,'Zone sans rappel elargie')
+    CALL getpar('guide_BL',.true.,guide_BL,'guidage dans C.Lim')
+    
+! Sauvegarde du for�age
+    CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
+    CALL getpar('iguide_sav',4,iguide_sav,'freq. sauvegarde guidage')
+    ! 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
+    ELSE if (iguide_sav == 0) then
+       iguide_sav = huge(0)
+    ELSE
+       iguide_sav=day_step*iguide_sav
+    ENDIF
+
+! Guidage regional seulement (sinon constant ou suivant le zoom)
+    CALL getpar('guide_reg',.false.,guide_reg,'guidage regional')
+    CALL getpar('lat_min_g',-90.,lat_min_g,'Latitude mini guidage ')
+    CALL getpar('lat_max_g', 90.,lat_max_g,'Latitude maxi guidage ')
+    CALL getpar('lon_min_g',-180.,lon_min_g,'longitude mini guidage ')
+    CALL getpar('lon_max_g', 180.,lon_max_g,'longitude maxi guidage ')
+    CALL getpar('tau_lat', 5.,tau_lat,'raideur lat guide regional ')
+    CALL getpar('tau_lon', 5.,tau_lon,'raideur lon guide regional ')
+
+! Parametres pour lecture des fichiers
+    CALL getpar('iguide_read',4,iguide_read,'freq. lecture guidage')
+    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
+        iguide_int=day_step*iguide_int
+    ENDIF
+    CALL getpar('guide_plevs',0,guide_plevs,'niveaux pression fichiers guidage')
+    ! Pour compatibilite avec ancienne version avec guide_modele
+    CALL getpar('guide_modele',.false.,guide_modele,'niveaux pression ap+bp*psol')
+    IF (guide_modele) THEN
+        guide_plevs=1
+    ENDIF
+    ! Fin raccord
+    CALL getpar('ini_anal',.false.,ini_anal,'Etat initial = analyse')
+    CALL getpar('guide_invertp',.true.,invert_p,'niveaux p inverses')
+    CALL getpar('guide_inverty',.true.,invert_y,'inversion N-S')
+    CALL getpar('guide_2D',.false.,guide_2D,'fichier guidage lat-P')
+
+    call fin_getparam
+    
+! ---------------------------------------------
+! Determination du nombre de niveaux verticaux
+! des fichiers guidage
+! ---------------------------------------------
+    ncidpl=-99
+    if (guide_plevs.EQ.1) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier apbp.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_plevs.EQ.2) then
+       if (ncidpl.EQ.-99) then
+          rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier P.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_u) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier u.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_v) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier v.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_T) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier T.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_Q) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier hur.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    endif 
+    error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
+    IF (error.NE.NF_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
+    IF (error.NE.NF_NOERR) THEN
+        print *,'Guide: probleme lecture niveaux pression'
+        CALL abort_gcm(modname,abort_message,1)
+    ENDIF
+    error=NF_INQ_DIMLEN(ncidpl,rid,nlevnc)
+    print *,'Guide: nombre niveaux vert. nlevnc', nlevnc 
+    rcod = nf90_close(ncidpl)
+
+! ---------------------------------------------
+! Allocation des variables
+! ---------------------------------------------
+    abort_message='pb in allocation guide'
+
+    ALLOCATE(apnc(nlevnc), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(bpnc(nlevnc), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    apnc=0.;bpnc=0.
+
+    ALLOCATE(alpha_pcor(llm), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_u(ijb_u:ije_u), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_v(ijb_v:ije_v), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_T(ijb_u:ije_u), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_Q(ijb_u:ije_u), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_P(ijb_u:ije_u), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    alpha_u=0.;alpha_v=0;alpha_T=0;alpha_Q=0;alpha_P=0
+    
+    IF (guide_u) THEN
+        ALLOCATE(unat1(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(ugui1(ijb_u:ije_u,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(unat2(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(ugui2(ijb_u:ije_u,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        unat1=0.;unat2=0.;ugui1=0.;ugui2=0.
+    ENDIF
+
+    IF (guide_T) THEN
+        ALLOCATE(tnat1(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tgui1(ijb_u:ije_u,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tnat2(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tgui2(ijb_u:ije_u,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        tnat1=0.;tnat2=0.;tgui1=0.;tgui2=0.
+    ENDIF
+     
+    IF (guide_Q) THEN
+        ALLOCATE(qnat1(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qgui1(ijb_u:ije_u,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qnat2(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qgui2(ijb_u:ije_u,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        qnat1=0.;qnat2=0.;qgui1=0.;qgui2=0.
+    ENDIF
+
+    IF (guide_v) THEN
+        ALLOCATE(vnat1(iip1,jjb_v:jje_v,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vgui1(ijb_v:ije_v,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vnat2(iip1,jjb_v:jje_v,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vgui2(ijb_v:ije_v,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        vnat1=0.;vnat2=0.;vgui1=0.;vgui2=0.
+    ENDIF
+
+    IF (guide_plevs.EQ.2) THEN
+        ALLOCATE(pnat1(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(pnat2(iip1,jjb_u:jje_u,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        pnat1=0.;pnat2=0.;
+    ENDIF
+
+    IF (guide_P.OR.guide_plevs.EQ.1) THEN
+        ALLOCATE(psnat1(iip1,jjb_u:jje_u), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(psnat2(iip1,jjb_u:jje_u), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        psnat1=0.;psnat2=0.;
+    ENDIF
+    IF (guide_P) THEN
+        ALLOCATE(psgui2(ijb_u:ije_u), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(psgui1(ijb_u:ije_u), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        psgui1=0.;psgui2=0.
+    ENDIF
+
+! ---------------------------------------------
+!   Lecture du premier etat de guidage.
+! ---------------------------------------------
+    IF (guide_2D) THEN
+        CALL guide_read2D(1)
+    ELSE
+        CALL guide_read(1)
+    ENDIF
+    IF (guide_v) vnat1=vnat2
+    IF (guide_u) unat1=unat2
+    IF (guide_T) tnat1=tnat2
+    IF (guide_Q) qnat1=qnat2
+    IF (guide_plevs.EQ.2) pnat1=pnat2
+    IF (guide_P.OR.guide_plevs.EQ.1) psnat1=psnat2
+
+  END SUBROUTINE guide_init
+
+!=======================================================================
+  SUBROUTINE guide_main(itau,ucov,vcov,teta,q,masse,ps)
+    use exner_hyb_loc_m, only: exner_hyb_loc
+    use exner_milieu_loc_m, only: exner_milieu_loc
+    USE parallel_lmdz
+    USE control_mod
+    USE write_field_loc
+    USE comconst_mod, ONLY: cpp, daysec, dtvr, kappa
+    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
+    
+    IMPLICIT NONE
+  
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+
+    ! Variables entree
+    INTEGER,                           INTENT(IN)    :: itau !pas de temps
+    REAL, DIMENSION (ijb_u:ije_u,llm), INTENT(INOUT) :: ucov,teta,q,masse
+    REAL, DIMENSION (ijb_v:ije_v,llm), INTENT(INOUT) :: vcov
+    REAL, DIMENSION (ijb_u:ije_u),     INTENT(INOUT) :: ps
+
+    ! Variables locales
+    LOGICAL, SAVE :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+    LOGICAL       :: f_out ! sortie guidage
+    REAL, ALLOCATABLE, SAVE, DIMENSION (:,:) :: f_addu ! var aux: champ de guidage
+    REAL, ALLOCATABLE, SAVE, DIMENSION (:,:) :: f_addv ! var aux: champ de guidage
+    ! Variables pour fonction Exner (P milieu couche)
+    REAL, ALLOCATABLE, SAVE, DIMENSION (:,:,:)    :: pk
+    REAL, ALLOCATABLE, SAVE, DIMENSION (:,:)        :: pks    
+    REAL                               :: unskap
+    REAL, ALLOCATABLE, SAVE, DIMENSION (:,:)    :: p ! besoin si guide_P
+    ! Compteurs temps:
+    INTEGER, SAVE :: step_rea,count_no_rea,itau_test ! lecture guidage
+!$OMP THREADPRIVATE(step_rea,count_no_rea,itau_test)
+    REAL          :: ditau, dday_step
+    REAL          :: tau,reste ! position entre 2 etats de guidage
+    REAL, SAVE    :: factt ! pas de temps en fraction de jour
+!$OMP THREADPRIVATE(factt)
+    
+    INTEGER       :: i,j,l
+    INTEGER,EXTERNAL :: OMP_GET_THREAD_NUM
+       
+!$OMP MASTER    
+    ijbu=ij_begin ; ijeu=ij_end ; ijnu=ijeu-ijbu+1  
+    jjbu=jj_begin ; jjeu=jj_end ; jjnu=jjeu-jjbu+1 
+    ijbv=ij_begin ; ijev=ij_end ; ijnv=ijev-ijbv+1   
+    jjbv=jj_begin ; jjev=jj_end ; jjnv=jjev-jjbv+1 
+    IF (pole_sud) THEN
+      ijev=ij_end-iip1
+      jjev=jj_end-1
+      ijnv=ijev-ijbv+1
+      jjnv=jjev-jjbv+1 
+    ENDIF
+!$OMP END MASTER
+!$OMP BARRIER
+      
+!    PRINT *,'---> on rentre dans guide_main'
+!    CALL AllGather_Field(ucov,ip1jmp1,llm)
+!    CALL AllGather_Field(vcov,ip1jm,llm)
+!    CALL AllGather_Field(teta,ip1jmp1,llm)
+!    CALL AllGather_Field(ps,ip1jmp1,1)
+!    CALL AllGather_Field(q,ip1jmp1,llm)
+    
+!-----------------------------------------------------------------------
+! Initialisations au premier passage
+!-----------------------------------------------------------------------
+
+    IF (first) THEN
+        first=.FALSE.
+!$OMP MASTER
+        ALLOCATE(f_addu(ijb_u:ije_u,llm) ) 
+        ALLOCATE(f_addv(ijb_v:ije_v,llm) ) 
+        ALLOCATE(pk(iip1,jjb_u:jje_u,llm)  ) 
+        ALLOCATE(pks(iip1,jjb_u:jje_u)  ) 
+        ALLOCATE(p(ijb_u:ije_u,llmp1) ) 
+        CALL guide_init 
+!$OMP END MASTER
+!$OMP BARRIER
+        itau_test=1001
+        step_rea=1
+        count_no_rea=0
+! Calcul des constantes de rappel
+        factt=dtvr*iperiod/daysec 
+!$OMP MASTER
+        call tau2alpha(3, iip1, jjb_v, jje_v, factt, tau_min_v, tau_max_v, alpha_v)
+        call tau2alpha(2, iip1, jjb_u, jje_u, factt, tau_min_u, tau_max_u, alpha_u)
+        call tau2alpha(1, iip1, jjb_u, jje_u, factt, tau_min_T, tau_max_T, alpha_T)
+        call tau2alpha(1, iip1, jjb_u, jje_u, factt, tau_min_P, tau_max_P, alpha_P)
+        call tau2alpha(1, iip1, jjb_u, jje_u, factt, tau_min_Q, tau_max_Q, alpha_Q)
+! correction de rappel dans couche limite
+        if (guide_BL) then
+             alpha_pcor(:)=1.
+        else
+            do l=1,llm
+                alpha_pcor(l)=(1.+tanh((0.85-presnivs(l)/preff)/0.05))/2.
+            enddo
+        endif
+!$OMP END MASTER
+!$OMP BARRIER
+! ini_anal: etat initial egal au guidage        
+        IF (ini_anal) THEN
+            CALL guide_interp(ps,teta)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+            DO l=1,llm
+              IF (guide_u) ucov(ijbu:ijeu,l)=ugui2(ijbu:ijeu,l)
+              IF (guide_v) vcov(ijbv:ijev,l)=ugui2(ijbv:ijev,l)
+              IF (guide_T) teta(ijbu:ijeu,l)=tgui2(ijbu:ijeu,l)
+              IF (guide_Q) q(ijbu:ijeu,l)=qgui2(ijbu:ijeu,l)
+            ENDDO
+            
+            IF (guide_P) THEN
+!$OMP MASTER
+                ps(ijbu:ijeu)=psgui2(ijbu:ijeu)
+!$OMP END MASTER
+!$OMP BARRIER
+                CALL pression_loc(ijnb_u,ap,bp,ps,p)
+                CALL massdair_loc(p,masse)
+!$OMP BARRIER
+            ENDIF
+            RETURN
+        ENDIF
+
+    ENDIF !first
+
+!-----------------------------------------------------------------------
+! Lecture des fichiers de guidage ?
+!-----------------------------------------------------------------------
+    IF (iguide_read.NE.0) THEN
+      ditau=real(itau)
+      dday_step=real(day_step)
+      IF (iguide_read.LT.0) THEN
+          tau=ditau/dday_step/REAL(iguide_read)
+      ELSE
+          tau=REAL(iguide_read)*ditau/dday_step
+      ENDIF
+      reste=tau-AINT(tau)
+      IF (reste.EQ.0.) THEN
+          IF (itau_test.EQ.itau) THEN
+              write(*,*)'deuxieme passage de advreel a itau=',itau
+              stop
+          ELSE
+!$OMP MASTER
+              IF (guide_v) vnat1(:,jjbv:jjev,:)=vnat2(:,jjbv:jjev,:)
+              IF (guide_u) unat1(:,jjbu:jjeu,:)=unat2(:,jjbu:jjeu,:)
+              IF (guide_T) tnat1(:,jjbu:jjeu,:)=tnat2(:,jjbu:jjeu,:)
+              IF (guide_Q) qnat1(:,jjbu:jjeu,:)=qnat2(:,jjbu:jjeu,:)
+              IF (guide_plevs.EQ.2) pnat1(:,jjbu:jjeu,:)=pnat2(:,jjbu:jjeu,:)
+              IF (guide_P.OR.guide_plevs.EQ.1) psnat1(:,jjbu:jjeu)=psnat2(:,jjbu:jjeu)
+!$OMP END MASTER
+!$OMP BARRIER
+              step_rea=step_rea+1
+              itau_test=itau
+              print*,'Lecture fichiers guidage, pas ',step_rea, &
+                    'apres ',count_no_rea,' non lectures'
+              IF (guide_2D) THEN
+!$OMP MASTER
+                  CALL guide_read2D(step_rea)
+!$OMP END MASTER
+!$OMP BARRIER
+              ELSE
+!$OMP MASTER
+                  CALL guide_read(step_rea)
+!$OMP END MASTER
+!$OMP BARRIER
+              ENDIF
+              count_no_rea=0
+          ENDIF
+      ELSE
+        count_no_rea=count_no_rea+1
+
+      ENDIF
+    ENDIF !iguide_read=0
+
+!-----------------------------------------------------------------------
+! Interpolation et conversion des champs de guidage
+!-----------------------------------------------------------------------
+    IF (MOD(itau,iguide_int).EQ.0) THEN
+        CALL guide_interp(ps,teta)
+    ENDIF
+! Repartition entre 2 etats de guidage
+    IF (iguide_read.NE.0) THEN
+        tau=reste
+    ELSE
+        tau=1.
+    ENDIF
+
+!    CALL WriteField_u('ucov_guide',ucov)
+!    CALL WriteField_v('vcov_guide',vcov)
+!    CALL WriteField_u('teta_guide',teta)
+!    CALL WriteField_u('masse_guide',masse)
+    
+    
+        !-----------------------------------------------------------------------
+!   Ajout des champs de guidage 
+!-----------------------------------------------------------------------
+! Sauvegarde du guidage?
+    f_out=((MOD(itau,iguide_sav).EQ.0).AND.guide_sav)  
+    IF (f_out) THEN
+
+!$OMP BARRIER
+      CALL pression_loc(ijnb_u,ap,bp,ps,p)
+
+!$OMP BARRIER
+      if (pressure_exner) then
+      CALL exner_hyb_loc( ijnb_u, ps, p, pks, pk)
+      else
+        CALL exner_milieu_loc( ijnb_u, ps, p, pks, pk )
+      endif
+
+!$OMP BARRIER
+
+        unskap=1./kappa
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l = 1, llm
+            DO j=jjbu,jjeu
+                DO i =1, iip1
+                    p(i+(j-1)*iip1,l) = preff * ( pk(i,j,l)/cpp) ** unskap
+                ENDDO
+            ENDDO
+        ENDDO
+
+!!$OMP MASTER
+!     DO l=1,llm,5
+!         print*,'avant dump2d l=',l,mpi_rank,OMP_GET_THREAD_NUM()
+!         print*,'avant dump2d l=',l,mpi_rank
+!         CALL dump2d(iip1,jjnb_u,p(:,l),'ppp   ')
+!      ENDDO
+!!$OMP END MASTER
+!!$OMP BARRIER
+
+        CALL guide_out("SP",jjp1,llm,p(ijb_u:ije_u,1:llm),1.)
+    ENDIF
+    
+    if (guide_u) then
+        if (guide_add) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+           f_addu(ijbu:ijeu,l)=(1.-tau)*ugui1(ijbu:ijeu,l)+tau*ugui2(ijbu:ijeu,l)
+          ENDDO
+        else
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+           f_addu(ijbu:ijeu,l)=(1.-tau)*ugui1(ijbu:ijeu,l)+tau*ugui2(ijbu:ijeu,l)-ucov(ijbu:ijeu,l)
+          ENDDO
+        endif 
+    
+!        CALL WriteField_u('f_addu',f_addu)
+
+        if (guide_zon) CALL guide_zonave_u(1,llm,f_addu)
+        CALL guide_addfield_u(llm,f_addu,alpha_u)
+!       IF (f_out) CALL guide_out("ua",jjp1,llm,ugui1(ijb_u:ije_u,:),factt)
+        IF (f_out) CALL guide_out("ua",jjp1,llm,(1.-tau)*ugui1(ijb_u:ije_u,:)+tau*ugui2(ijb_u:ije_u,:),factt)
+        IF (f_out) CALL guide_out("u",jjp1,llm,ucov(ijb_u:ije_u,:),factt)
+        IF (f_out) CALL guide_out("ucov",jjp1,llm,f_addu(ijb_u:ije_u,:),factt)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          ucov(ijbu:ijeu,l)=ucov(ijbu:ijeu,l)+f_addu(ijbu:ijeu,l)
+        ENDDO
+
+    endif
+
+    if (guide_T) then
+        if (guide_add) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+            f_addu(ijbu:ijeu,l)=(1.-tau)*tgui1(ijbu:ijeu,l)+tau*tgui2(ijbu:ijeu,l)
+          ENDDO
+        else
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+           f_addu(ijbu:ijeu,l)=(1.-tau)*tgui1(ijbu:ijeu,l)+tau*tgui2(ijbu:ijeu,l)-teta(ijbu:ijeu,l)
+          ENDDO
+        endif 
+        if (guide_zon) CALL guide_zonave_u(2,llm,f_addu)
+        CALL guide_addfield_u(llm,f_addu,alpha_T)
+        IF (f_out) CALL guide_out("teta",jjp1,llm,f_addu(:,:)/factt,factt)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          teta(ijbu:ijeu,l)=teta(ijbu:ijeu,l)+f_addu(ijbu:ijeu,l)
+        ENDDO
+    endif
+
+    if (guide_P) then
+        if (guide_add) then
+!$OMP MASTER
+            f_addu(ijbu:ijeu,1)=(1.-tau)*psgui1(ijbu:ijeu)+tau*psgui2(ijbu:ijeu)
+!$OMP END MASTER
+!$OMP BARRIER
+        else
+!$OMP MASTER
+            f_addu(ijbu:ijeu,1)=(1.-tau)*psgui1(ijbu:ijeu)+tau*psgui2(ijbu:ijeu)-ps(ijbu:ijeu)
+!$OMP END MASTER
+!$OMP BARRIER
+        endif 
+        if (guide_zon) CALL guide_zonave_u(2,1,f_addu(ijb_u:ije_u,1))
+        CALL guide_addfield_u(1,f_addu(ijb_u:ije_u,1),alpha_P)
+!       IF (f_out) CALL guide_out("ps",jjp1,1,f_addu(ijb_u:ije_u,1)/factt,factt)
+!$OMP MASTER
+        ps(ijbu:ijeu)=ps(ijbu:ijeu)+f_addu(ijbu:ijeu,1)
+!$OMP END MASTER
+!$OMP BARRIER
+        CALL pression_loc(ijnb_u,ap,bp,ps,p)
+        CALL massdair_loc(p,masse)
+!$OMP BARRIER
+    endif
+
+    if (guide_Q) then
+        if (guide_add) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+            f_addu(ijbu:ijeu,l)=(1.-tau)*qgui1(ijbu:ijeu,l)+tau*qgui2(ijbu:ijeu,l)
+          ENDDO
+        else
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+            f_addu(ijbu:ijeu,l)=(1.-tau)*qgui1(ijbu:ijeu,l)+tau*qgui2(ijbu:ijeu,l)-q(ijbu:ijeu,l)
+          ENDDO
+        endif 
+        if (guide_zon) CALL guide_zonave_u(2,llm,f_addu)
+        CALL guide_addfield_u(llm,f_addu,alpha_Q)
+        IF (f_out) CALL guide_out("q",jjp1,llm,f_addu(:,:)/factt,factt)
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          q(ijbu:ijeu,l)=q(ijbu:ijeu,l)+f_addu(ijbu:ijeu,l)
+        ENDDO
+    endif
+
+    if (guide_v) then
+        if (guide_add) then
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+             f_addv(ijbv:ijev,l)=(1.-tau)*vgui1(ijbv:ijev,l)+tau*vgui2(ijbv:ijev,l)
+          ENDDO
+
+        else
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+            f_addv(ijbv:ijev,l)=(1.-tau)*vgui1(ijbv:ijev,l)+tau*vgui2(ijbv:ijev,l)-vcov(ijbv:ijev,l)
+          ENDDO
+
+        endif 
+    
+        if (guide_zon) CALL guide_zonave_v(2,jjm,llm,f_addv(ijb_v:ije_v,:))
+        
+        CALL guide_addfield_v(llm,f_addv(ijb_v:ije_v,:),alpha_v)
+        IF (f_out) CALL guide_out("v",jjm,llm,vcov(ijb_v:ije_v,:),factt)
+        IF (f_out) CALL guide_out("va",jjm,llm,(1.-tau)*vgui1(ijb_v:ije_v,:)+tau*vgui2(ijb_v:ije_v,:),factt)
+        IF (f_out) CALL guide_out("vcov",jjm,llm,f_addv(:,:)/factt,factt)
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          vcov(ijbv:ijev,l)=vcov(ijbv:ijev,l)+f_addv(ijbv:ijev,l)
+        ENDDO
+    endif
+
+  END SUBROUTINE guide_main
+
+
+  SUBROUTINE guide_addfield_u(vsize,field,alpha)
+! field1=a*field1+alpha*field2
+
+    IMPLICIT NONE
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+
+    ! input variables
+    INTEGER,                      INTENT(IN)    :: vsize
+    REAL, DIMENSION(ijb_u:ije_u),       INTENT(IN)    :: alpha 
+    REAL, DIMENSION(ijb_u:ije_u,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    INTEGER :: l
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,vsize
+      field(ijbu:ijeu,l)=alpha(ijbu:ijeu)*field(ijbu:ijeu,l)*alpha_pcor(l)
+    ENDDO
+
+  END SUBROUTINE guide_addfield_u
+
+
+  SUBROUTINE guide_addfield_v(vsize,field,alpha)
+! field1=a*field1+alpha*field2
+
+    IMPLICIT NONE
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+
+    ! input variables
+    INTEGER,                      INTENT(IN)    :: vsize
+    REAL, DIMENSION(ijb_v:ije_v),       INTENT(IN)    :: alpha 
+    REAL, DIMENSION(ijb_v:ije_v,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    INTEGER :: l
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,vsize
+      field(ijbv:ijev,l)=alpha(ijbv:ijev)*field(ijbv:ijev,l)*alpha_pcor(l)
+    ENDDO
+
+  END SUBROUTINE guide_addfield_v
+  
+!=======================================================================
+
+  SUBROUTINE guide_zonave_u(typ,vsize,field)
+
+    USE comconst_mod, ONLY: pi
+    
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
+    
+    ! input/output variables
+    INTEGER,                           INTENT(IN)    :: typ
+    INTEGER,                           INTENT(IN)    :: vsize
+    REAL, DIMENSION(ijb_u:ije_u,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    LOGICAL, SAVE                :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+
+    INTEGER, DIMENSION (2), SAVE :: imin, imax ! averaging domain
+!$OMP THREADPRIVATE(imin,imax)    
+    INTEGER                      :: i,j,l,ij
+    REAL, DIMENSION (iip1)       :: lond       ! longitude in Deg.
+    REAL, DIMENSION (jjb_u:jje_u,vsize):: fieldm     ! zon-averaged field
+
+    IF (first) THEN
+        first=.FALSE.
+!Compute domain for averaging
+        lond=rlonu*180./pi
+        imin(1)=1;imax(1)=iip1;
+        imin(2)=1;imax(2)=iip1;
+        IF (guide_reg) THEN
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(1)=i
+                IF (lond(i).LE.lon_max_g) imax(1)=i
+            ENDDO
+            lond=rlonv*180./pi
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(2)=i
+                IF (lond(i).LE.lon_max_g) imax(2)=i
+            ENDDO
+        ENDIF
+    ENDIF
+
+    
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,vsize
+        fieldm(:,l)=0.
+      ! Compute zonal average
+
+!correction bug ici
+! ---> a verifier
+! ym         DO j=jjbv,jjev
+         DO j=jjbu,jjeu
+              DO i=imin(typ),imax(typ)
+                  ij=(j-1)*iip1+i
+                  fieldm(j,l)=fieldm(j,l)+field(ij,l)
+              ENDDO
+          ENDDO 
+          fieldm(:,l)=fieldm(:,l)/REAL(imax(typ)-imin(typ)+1)
+    ! Compute forcing
+          DO j=jjbu,jjeu
+              DO i=1,iip1
+                  ij=(j-1)*iip1+i
+                  field(ij,l)=fieldm(j,l)
+              ENDDO
+          ENDDO
+      ENDDO
+
+  END SUBROUTINE guide_zonave_u
+
+
+  SUBROUTINE guide_zonave_v(typ,hsize,vsize,field)
+
+    USE comconst_mod, ONLY: pi
+    
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
+    
+    ! input/output variables
+    INTEGER,                           INTENT(IN)    :: typ
+    INTEGER,                           INTENT(IN)    :: vsize
+    INTEGER,                           INTENT(IN)    :: hsize
+    REAL, DIMENSION(ijb_v:ije_v,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    LOGICAL, SAVE                :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+    INTEGER, DIMENSION (2), SAVE :: imin, imax ! averaging domain
+!$OMP THREADPRIVATE(imin, imax)
+    INTEGER                      :: i,j,l,ij
+    REAL, DIMENSION (iip1)       :: lond       ! longitude in Deg.
+    REAL, DIMENSION (jjb_v:jjev,vsize):: fieldm     ! zon-averaged field
+
+    IF (first) THEN
+        first=.FALSE.
+!Compute domain for averaging
+        lond=rlonu*180./pi
+        imin(1)=1;imax(1)=iip1;
+        imin(2)=1;imax(2)=iip1;
+        IF (guide_reg) THEN
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(1)=i
+                IF (lond(i).LE.lon_max_g) imax(1)=i
+            ENDDO
+            lond=rlonv*180./pi
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(2)=i
+                IF (lond(i).LE.lon_max_g) imax(2)=i
+            ENDDO
+        ENDIF
+    ENDIF
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,vsize
+      ! Compute zonal average
+          fieldm(:,l)=0.
+          DO j=jjbv,jjev
+              DO i=imin(typ),imax(typ)
+                  ij=(j-1)*iip1+i
+                  fieldm(j,l)=fieldm(j,l)+field(ij,l)
+              ENDDO
+          ENDDO 
+          fieldm(:,l)=fieldm(:,l)/REAL(imax(typ)-imin(typ)+1)
+    ! Compute forcing
+          DO j=jjbv,jjev
+              DO i=1,iip1
+                  ij=(j-1)*iip1+i
+                  field(ij,l)=fieldm(j,l)
+              ENDDO
+          ENDDO
+      ENDDO
+
+
+  END SUBROUTINE guide_zonave_v
+  
+!=======================================================================
+  SUBROUTINE guide_interp(psi,teta)
+    use exner_hyb_loc_m, only: exner_hyb_loc
+    use exner_milieu_loc_m, only: exner_milieu_loc
+  USE parallel_lmdz
+  USE mod_hallo
+  USE Bands
+  USE comconst_mod, ONLY: cpp, kappa
+  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type
+  IMPLICIT NONE
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+
+  REAL, DIMENSION (iip1,jjb_u:jje_u),     INTENT(IN) :: psi ! Psol gcm
+  REAL, DIMENSION (iip1,jjb_u:jje_u,llm), INTENT(IN) :: teta ! Temp. Pot. gcm
+
+  LOGICAL, SAVE                      :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+  ! Variables pour niveaux pression:
+  REAL, ALLOCATABLE, SAVE, DIMENSION (:,:,:) :: plnc1,plnc2 !niveaux pression guidage
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)    :: plunc,plsnc !niveaux pression modele
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)     :: plvnc       !niveaux pression modele
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)  :: p           ! pression intercouches 
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)    :: pls, pext   ! var intermediaire
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)    :: pbarx 
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)     :: pbary 
+  ! Variables pour fonction Exner (P milieu couche)
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)    :: pk
+  REAL ,ALLOCATABLE, SAVE, DIMENSION (:,:)        :: pks    
+  REAL                               :: unskap
+  ! Pression de vapeur saturante
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:)      :: qsat
+  !Variables intermediaires interpolation
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)    :: zu1,zu2 
+  REAL, ALLOCATABLE, SAVE,DIMENSION (:,:,:)     :: zv1,zv2
+  
+  INTEGER                            :: i,j,l,ij
+  TYPE(Request),SAVE :: Req  
+!$OMP THREADPRIVATE(Req)
+    print *,'Guide: conversion variables guidage'
+! -----------------------------------------------------------------
+! Calcul des niveaux de pression champs guidage (pour T et Q)
+! -----------------------------------------------------------------
+    IF (first) THEN
+!$OMP MASTER
+      ALLOCATE(plnc1(iip1,jjb_u:jje_u,nlevnc) )    
+      ALLOCATE(plnc2(iip1,jjb_u:jje_u,nlevnc) )    
+      ALLOCATE(plunc(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(plsnc(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(plvnc(iip1,jjb_v:jje_v,llm) )    
+      ALLOCATE(p(iip1,jjb_u:jje_u,llmp1) )    
+      ALLOCATE(pls(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(pext(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(pbarx(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(pbary(iip1,jjb_v:jje_v,llm) )    
+      ALLOCATE(pk(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(pks (iip1,jjb_u:jje_u) )    
+      ALLOCATE(qsat(ijb_u:ije_u,llm) )    
+      ALLOCATE(zu1(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(zu2(iip1,jjb_u:jje_u,llm) )    
+      ALLOCATE(zv1(iip1,jjb_v:jje_v,llm) )    
+      ALLOCATE(zv2(iip1,jjb_v:jje_v,llm) )
+!$OMP END MASTER
+!$OMP BARRIER
+    ENDIF        
+
+    
+    
+    
+    IF (guide_plevs.EQ.0) THEN
+!$OMP DO
+        DO l=1,nlevnc
+            DO j=jjbu,jjeu
+                DO i=1,iip1
+                    plnc2(i,j,l)=apnc(l)
+                    plnc1(i,j,l)=apnc(l)
+               ENDDO
+            ENDDO
+        ENDDO
+    ENDIF   
+
+    if (first) then
+        first=.FALSE.
+!$OMP MASTER
+        print*,'Guide: verification ordre niveaux verticaux'
+        print*,'LMDZ :'
+        do l=1,llm
+            print*,'PL(',l,')=',(ap(l)+ap(l+1))/2. &
+                  +psi(1,jjeu)*(bp(l)+bp(l+1))/2.
+        enddo
+        print*,'Fichiers guidage'
+        SELECT CASE (guide_plevs)
+        CASE (0) 
+            do l=1,nlevnc
+                 print*,'PL(',l,')=',plnc2(1,jjbu,l)
+            enddo
+        CASE (1)
+            DO l=1,nlevnc
+                 print*,'PL(',l,')=',apnc(l)+bpnc(l)*psnat2(i,jjbu)
+             ENDDO
+        CASE (2)
+            do l=1,nlevnc
+                 print*,'PL(',l,')=',pnat2(1,jjbu,l)
+            enddo
+        END SELECT
+        print *,'inversion de l''ordre: invert_p=',invert_p
+        if (guide_u) then
+            do l=1,nlevnc
+                print*,'U(',l,')=',unat2(1,jjbu,l)
+            enddo
+        endif
+        if (guide_T) then
+            do l=1,nlevnc
+                print*,'T(',l,')=',tnat2(1,jjbu,l)
+            enddo
+        endif
+!$OMP END MASTER
+    endif
+    
+! -----------------------------------------------------------------
+! Calcul niveaux pression modele 
+! -----------------------------------------------------------------
+
+!    ....  Calcul de pls , pression au milieu des couches ,en Pascals
+    IF (guide_plevs.EQ.1) THEN
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+            DO j=jjbu,jjeu
+                DO i =1, iip1
+                    pls(i,j,l)=(ap(l)+ap(l+1))/2.+psi(i,j)*(bp(l)+bp(l+1))/2.
+                ENDDO
+            ENDDO
+        ENDDO
+    ELSE
+        CALL pression_loc( ijnb_u, ap, bp, psi, p )
+        if (disvert_type==1) then
+          CALL exner_hyb_loc(ijnb_u,psi,p,pks,pk)
+        else ! we assume that we are in the disvert_type==2 case
+          CALL exner_milieu_loc(ijnb_u,psi,p,pks,pk)
+        endif
+        unskap=1./kappa
+!$OMP BARRIER
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+   DO l = 1, llm
+       DO j=jjbu,jjeu
+           DO i =1, iip1
+               pls(i,j,l) = preff * ( pk(i,j,l)/cpp) ** unskap
+           ENDDO
+       ENDDO
+   ENDDO
+    ENDIF
+
+!   calcul des pressions pour les grilles u et v
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    do l=1,llm
+        do j=jjbu,jjeu
+            do i=1,iip1
+                pext(i,j,l)=pls(i,j,l)*aire(i,j)
+            enddo
+        enddo
+    enddo
+
+     CALL Register_Hallo_u(pext,llm,1,2,2,1,Req)
+     CALL SendRequest(Req)
+!$OMP BARRIER
+     CALL WaitRequest(Req)
+!$OMP BARRIER
+
+    call massbar_loc(pext, pbarx, pbary )
+!$OMP BARRIER
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    do l=1,llm
+        do j=jjbu,jjeu
+            do i=1,iip1
+                plunc(i,j,l)=pbarx(i,j,l)/aireu(i,j)
+                plsnc(i,j,l)=pls(i,j,l)
+            enddo
+        enddo
+    enddo
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    do l=1,llm
+        do j=jjbv,jjev
+            do i=1,iip1
+                plvnc(i,j,l)=pbary(i,j,l)/airev(i,j)
+            enddo
+        enddo
+    enddo
+
+! -----------------------------------------------------------------
+! Interpolation verticale champs guidage sur niveaux modele
+! Conversion en variables gcm (ucov, vcov...)
+! -----------------------------------------------------------------
+    if (guide_P) then
+!$OMP MASTER
+        do j=jjbu,jjeu
+            do i=1,iim
+                ij=(j-1)*iip1+i
+                psgui1(ij)=psnat1(i,j)
+                psgui2(ij)=psnat2(i,j)
+            enddo
+            psgui1(iip1*j)=psnat1(1,j)
+            psgui2(iip1*j)=psnat2(1,j)
+        enddo
+!$OMP END MASTER
+!$OMP BARRIER
+    endif
+
+    IF (guide_T) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbu,jjeu
+                    DO i=1,iip1
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*psnat2(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*psnat1(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbu,jjeu
+                    DO i=1,iip1
+                        plnc2(i,j,l)=pnat2(i,j,l)
+                        plnc1(i,j,l)=pnat1(i,j,l)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ENDIF
+
+        ! Interpolation verticale
+!$OMP MASTER
+        CALL pres2lev(tnat1(:,jjbu:jjeu,:),zu1(:,jjbu:jjeu,:),nlevnc,llm,           &
+                    plnc1(:,jjbu:jjeu,:),plsnc(:,jjbu:jjeu,:),iip1,jjnu,invert_p)
+        CALL pres2lev(tnat2(:,jjbu:jjeu,:),zu2(:,jjbu:jjeu,:),nlevnc,llm,           &
+                    plnc2(:,jjbu:jjeu,:),plsnc(:,jjbu:jjeu,:),iip1,jjnu,invert_p)
+!$OMP END MASTER
+!$OMP BARRIER
+        ! Conversion en variables GCM
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+            do j=jjbu,jjeu
+                IF (guide_teta) THEN
+                    do i=1,iim
+                        ij=(j-1)*iip1+i
+                        tgui1(ij,l)=zu1(i,j,l)
+                        tgui2(ij,l)=zu2(i,j,l)
+                    enddo
+                ELSE
+                    do i=1,iim
+                        ij=(j-1)*iip1+i
+                        tgui1(ij,l)=zu1(i,j,l)*cpp/pk(i,j,l)
+                        tgui2(ij,l)=zu2(i,j,l)*cpp/pk(i,j,l)
+                    enddo
+                ENDIF
+                tgui1(j*iip1,l)=tgui1((j-1)*iip1+1,l)    
+                tgui2(j*iip1,l)=tgui2((j-1)*iip1+1,l)    
+            enddo
+            if (pole_nord) then
+              do i=1,iip1
+                tgui1(i,l)=tgui1(1,l)
+                tgui2(i,l)=tgui2(1,l)
+              enddo
+            endif
+            if (pole_sud) then
+              do i=1,iip1
+                tgui1(ip1jm+i,l)=tgui1(ip1jm+1,l) 
+                tgui2(ip1jm+i,l)=tgui2(ip1jm+1,l) 
+              enddo
+           endif
+        enddo
+    ENDIF
+
+    IF (guide_Q) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbu,jjeu
+                    DO i=1,iip1
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*psnat2(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*psnat1(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbu,jjeu
+                    DO i=1,iip1
+                        plnc2(i,j,l)=pnat2(i,j,l)
+                        plnc1(i,j,l)=pnat1(i,j,l)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ENDIF
+
+        ! Interpolation verticale
+!$OMP MASTER
+        CALL pres2lev(qnat1(:,jjbu:jjeu,:),zu1(:,jjbu:jjeu,:),nlevnc,llm,             &
+                      plnc1(:,jjbu:jjeu,:),plsnc(:,jjbu:jjeu,:),iip1,jjnu,invert_p)
+        CALL pres2lev(qnat2(:,jjbu:jjeu,:),zu2(:,jjbu:jjeu,:),nlevnc,llm,             &
+                      plnc2(:,jjbu:jjeu,:),plsnc(:,jjbu:jjeu,:),iip1,jjnu,invert_p)
+!$OMP END MASTER
+!$OMP BARRIER
+
+        ! Conversion en variables GCM
+        ! On suppose qu'on a la bonne variable dans le fichier de guidage:
+        ! Hum.Rel si guide_hr, Hum.Spec. sinon.
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+            do j=jjbu,jjeu
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    qgui1(ij,l)=zu1(i,j,l)
+                    qgui2(ij,l)=zu2(i,j,l)
+                enddo
+                qgui1(j*iip1,l)=qgui1((j-1)*iip1+1,l)    
+                qgui2(j*iip1,l)=qgui2((j-1)*iip1+1,l)    
+            enddo
+            if (pole_nord) then
+              do i=1,iip1
+                qgui1(i,l)=qgui1(1,l)
+                qgui2(i,l)=qgui2(1,l)
+              enddo
+            endif
+            if (pole_nord) then
+              do i=1,iip1
+                qgui1(ip1jm+i,l)=qgui1(ip1jm+1,l) 
+                qgui2(ip1jm+i,l)=qgui2(ip1jm+1,l) 
+              enddo
+            endif
+        enddo
+        IF (guide_hr) THEN
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          do l=1,llm
+            CALL q_sat(iip1*jjnu,teta(:,jjbu:jjeu,l)*pk(:,jjbu:jjeu,l)/cpp,       &
+                       plsnc(:,jjbu:jjeu,l),qsat(ijbu:ijeu,l))
+            qgui1(ijbu:ijeu,l)=qgui1(ijbu:ijeu,l)*qsat(ijbu:ijeu,l)*0.01 !hum. rel. en %
+            qgui2(ijbu:ijeu,l)=qgui2(ijbu:ijeu,l)*qsat(ijbu:ijeu,l)*0.01 
+          enddo
+
+        ENDIF
+    ENDIF
+
+    IF (guide_u) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbu,jjeu
+                    DO i=1,iim
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*(psnat2(i,j)*aire(i,j)*alpha1p2(i,j) &
+                       &           +psnat2(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*(psnat1(i,j)*aire(i,j)*alpha1p2(i,j) &
+                       &           +psnat1(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
+                    ENDDO
+                    plnc2(iip1,j,l)=plnc2(1,j,l)
+                    plnc1(iip1,j,l)=plnc1(1,j,l)
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbu,jjeu
+                    DO i=1,iim
+                        plnc2(i,j,l)=(pnat2(i,j,l)*aire(i,j)*alpha1p2(i,j) &
+                       & +pnat2(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
+                        plnc1(i,j,l)=(pnat1(i,j,l)*aire(i,j)*alpha1p2(i,j) &
+                       & +pnat1(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
+                    ENDDO
+                    plnc2(iip1,j,l)=plnc2(1,j,l)
+                    plnc1(iip1,j,l)=plnc1(1,j,l)
+                ENDDO
+            ENDDO
+        ENDIF
+        
+        ! Interpolation verticale
+!$OMP MASTER
+        CALL pres2lev(unat1(:,jjbu:jjeu,:),zu1(:,jjbu:jjeu,:),nlevnc,llm,            &
+                      plnc1(:,jjbu:jjeu,:),plunc(:,jjbu:jjeu,:),iip1,jjnu,invert_p)
+        CALL pres2lev(unat2(:,jjbu:jjeu,:),zu2(:,jjbu:jjeu,:),nlevnc,llm,            &
+                      plnc2(:,jjbu:jjeu,:),plunc(:,jjbu:jjeu,:),iip1,jjnu,invert_p)
+!$OMP END MASTER
+!$OMP BARRIER
+
+        ! Conversion en variables GCM
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+            do j=jjbu,jjeu
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    ugui1(ij,l)=zu1(i,j,l)*cu(i,j)
+                    ugui2(ij,l)=zu2(i,j,l)*cu(i,j)
+                enddo
+                ugui1(j*iip1,l)=ugui1((j-1)*iip1+1,l)    
+                ugui2(j*iip1,l)=ugui2((j-1)*iip1+1,l)    
+            enddo
+            if (pole_nord) then
+              do i=1,iip1
+                ugui1(i,l)=0.
+                ugui2(i,l)=0.
+              enddo
+            endif
+            if (pole_sud) then
+              do i=1,iip1
+                ugui1(ip1jm+i,l)=0.
+                ugui2(ip1jm+i,l)=0.
+              enddo
+            endif
+        enddo
+    ENDIF
+    
+    IF (guide_v) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+         CALL Register_Hallo_u(psnat1,1,1,2,2,1,Req)
+         CALL Register_Hallo_u(psnat2,1,1,2,2,1,Req)
+         CALL SendRequest(Req)
+!$OMP BARRIER
+         CALL WaitRequest(Req)
+!$OMP BARRIER
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbv,jjev
+                    DO i=1,iip1
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*(psnat2(i,j)*aire(i,j)*alpha2p3(i,j) &
+                       &           +psnat2(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*(psnat1(i,j)*aire(i,j)*alpha2p3(i,j) &
+                       &           +psnat1(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+         CALL Register_Hallo_u(pnat1,llm,1,2,2,1,Req)
+         CALL Register_Hallo_u(pnat2,llm,1,2,2,1,Req)
+         CALL SendRequest(Req)
+!$OMP BARRIER
+         CALL WaitRequest(Req)
+!$OMP BARRIER
+!$OMP DO
+            DO l=1,nlevnc
+                DO j=jjbv,jjev
+                    DO i=1,iip1
+                        plnc2(i,j,l)=(pnat2(i,j,l)*aire(i,j)*alpha2p3(i,j) &
+                       & +pnat2(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
+                        plnc1(i,j,l)=(pnat1(i,j,l)*aire(i,j)*alpha2p3(i,j) &
+                       & +pnat1(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ENDIF
+        ! Interpolation verticale
+
+!$OMP MASTER
+        CALL pres2lev(vnat1(:,jjbv:jjev,:),zv1(:,jjbv:jjev,:),nlevnc,llm,             &
+                      plnc1(:,jjbv:jjev,:),plvnc(:,jjbv:jjev,:),iip1,jjnv,invert_p)
+        CALL pres2lev(vnat2(:,jjbv:jjev,:),zv2(:,jjbv:jjev,:),nlevnc,llm,             &
+                      plnc2(:,jjbv:jjev,:),plvnc(:,jjbv:jjev,:),iip1,jjnv,invert_p)
+!$OMP END MASTER
+!$OMP BARRIER
+        ! Conversion en variables GCM
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+            do j=jjbv,jjev
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    vgui1(ij,l)=zv1(i,j,l)*cv(i,j)
+                    vgui2(ij,l)=zv2(i,j,l)*cv(i,j)
+                enddo
+                vgui1(j*iip1,l)=vgui1((j-1)*iip1+1,l)    
+                vgui2(j*iip1,l)=vgui2((j-1)*iip1+1,l)    
+            enddo
+        enddo
+    ENDIF
+    
+
+  END SUBROUTINE guide_interp
+
+!=======================================================================
+  SUBROUTINE tau2alpha(typ,pim,jjb,jje,factt,taumin,taumax,alpha)
+
+! Calcul des constantes de rappel alpha (=1/tau)
+
+    use comconst_mod, only: pi
+    use serre_mod, only: clat, clon, grossismx, grossismy
+    
+    implicit none
+
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom2.h"
+
+! input arguments :
+    INTEGER, INTENT(IN) :: typ    ! u(2),v(3), ou scalaire(1)
+    INTEGER, INTENT(IN) :: pim ! dimensions en lon
+    INTEGER, INTENT(IN) :: jjb,jje ! dimensions en lat
+    REAL, INTENT(IN)    :: factt   ! pas de temps en fraction de jour
+    REAL, INTENT(IN)    :: taumin,taumax
+! output arguments:
+    REAL, DIMENSION(pim,jjb:jje), INTENT(OUT) :: alpha 
+  
+!  local variables:
+    LOGICAL, SAVE               :: first=.TRUE.
+    REAL, SAVE                  :: gamma,dxdy_min,dxdy_max
+    REAL, DIMENSION (iip1,jjp1) :: zdx,zdy
+    REAL, DIMENSION (iip1,jjp1) :: dxdys,dxdyu
+    REAL, DIMENSION (iip1,jjm)  :: dxdyv
+    real dxdy_
+    real zlat,zlon
+    real alphamin,alphamax,xi
+    integer i,j,ilon,ilat
+
+
+    alphamin=factt/taumax
+    alphamax=factt/taumin
+    IF (guide_reg.OR.guide_add) THEN
+        alpha=alphamax
+!-----------------------------------------------------------------------
+! guide_reg: alpha=alpha_min dans region, 0. sinon.
+!-----------------------------------------------------------------------
+        IF (guide_reg) THEN
+            do j=jjb,jje
+                do i=1,pim
+                    if (typ.eq.2) then
+                       zlat=rlatu(j)*180./pi
+                       zlon=rlonu(i)*180./pi
+                    elseif (typ.eq.1) then
+                       zlat=rlatu(j)*180./pi
+                       zlon=rlonv(i)*180./pi
+                    elseif (typ.eq.3) then
+                       zlat=rlatv(j)*180./pi
+                       zlon=rlonv(i)*180./pi
+                    endif
+                    alpha(i,j)=alphamax/16.* &
+                              (1.+tanh((zlat-lat_min_g)/tau_lat))* &
+                              (1.+tanh((lat_max_g-zlat)/tau_lat))* &
+                              (1.+tanh((zlon-lon_min_g)/tau_lon))* &
+                              (1.+tanh((lon_max_g-zlon)/tau_lon))
+                enddo
+            enddo
+        ENDIF
+    ELSE
+!-----------------------------------------------------------------------
+! Sinon, alpha varie entre alpha_min et alpha_max suivant le zoom.
+!-----------------------------------------------------------------------
+!Calcul de l'aire des mailles
+        do j=2,jjm
+            do i=2,iip1
+               zdx(i,j)=0.5*(cu(i-1,j)+cu(i,j))/cos(rlatu(j))
+            enddo
+            zdx(1,j)=zdx(iip1,j)
+        enddo
+        do j=2,jjm
+            do i=1,iip1
+               zdy(i,j)=0.5*(cv(i,j-1)+cv(i,j))
+            enddo
+        enddo
+        do i=1,iip1
+            zdx(i,1)=zdx(i,2)
+            zdx(i,jjp1)=zdx(i,jjm)
+            zdy(i,1)=zdy(i,2)
+            zdy(i,jjp1)=zdy(i,jjm)
+        enddo
+        do j=1,jjp1
+            do i=1,iip1
+               dxdys(i,j)=sqrt(zdx(i,j)*zdx(i,j)+zdy(i,j)*zdy(i,j))
+            enddo
+        enddo
+        IF (typ.EQ.2) THEN
+            do j=1,jjp1
+                do i=1,iim
+                   dxdyu(i,j)=0.5*(dxdys(i,j)+dxdys(i+1,j))
+                enddo
+                dxdyu(iip1,j)=dxdyu(1,j)
+            enddo
+        ENDIF
+        IF (typ.EQ.3) THEN
+            do j=1,jjm
+                do i=1,iip1
+                   dxdyv(i,j)=0.5*(dxdys(i,j)+dxdys(i,j+1))
+                enddo
+            enddo
+        ENDIF
+! Premier appel: calcul des aires min et max et de gamma.
+        IF (first) THEN 
+            first=.FALSE.
+            ! coordonnees du centre du zoom
+            CALL coordij(clon,clat,ilon,ilat) 
+            ! aire de la maille au centre du zoom
+            dxdy_min=dxdys(ilon,ilat)
+            ! dxdy maximale de la maille
+            dxdy_max=0.
+            do j=1,jjp1
+                do i=1,iip1
+                     dxdy_max=max(dxdy_max,dxdys(i,j))
+                enddo
+            enddo
+            ! Calcul de gamma
+            if (abs(grossismx-1.).lt.0.1.or.abs(grossismy-1.).lt.0.1) then
+                 print*,'ATTENTION modele peu zoome'
+                 print*,'ATTENTION on prend une constante de guidage cste'
+                 gamma=0.
+            else
+                gamma=(dxdy_max-2.*dxdy_min)/(dxdy_max-dxdy_min)
+                print*,'gamma=',gamma
+                if (gamma.lt.1.e-5) then
+                  print*,'gamma =',gamma,'<1e-5'
+                  stop
+                endif
+                gamma=log(0.5)/log(gamma)
+                if (gamma4) then 
+                  gamma=min(gamma,4.)
+                endif
+                print*,'gamma=',gamma
+            endif
+        ENDIF !first
+
+        do j=jjb,jje
+            do i=1,pim
+                if (typ.eq.1) then
+                   dxdy_=dxdys(i,j)
+                   zlat=rlatu(j)*180./pi
+                elseif (typ.eq.2) then
+                   dxdy_=dxdyu(i,j)
+                   zlat=rlatu(j)*180./pi
+                elseif (typ.eq.3) then
+                   dxdy_=dxdyv(i,j)
+                   zlat=rlatv(j)*180./pi
+                endif
+                if (abs(grossismx-1.).lt.0.1.or.abs(grossismy-1.).lt.0.1) then
+                ! pour une grille reguliere, xi=xxx**0=1 -> alpha=alphamin
+                    alpha(i,j)=alphamin
+                else
+                    xi=((dxdy_max-dxdy_)/(dxdy_max-dxdy_min))**gamma
+                    xi=min(xi,1.)
+                    if(lat_min_g.le.zlat .and. zlat.le.lat_max_g) then
+                        alpha(i,j)=xi*alphamin+(1.-xi)*alphamax
+                    else
+                        alpha(i,j)=0.
+                    endif
+                endif
+            enddo
+        enddo
+    ENDIF ! guide_reg
+
+    if (.not. guide_add) alpha = 1. - exp(- alpha)
+
+  END SUBROUTINE tau2alpha
+
+!=======================================================================
+  SUBROUTINE guide_read(timestep)
+
+    IMPLICIT NONE
+
+#include "netcdf.inc"
+#include "dimensions.h"
+#include "paramet.h"
+
+    INTEGER, INTENT(IN)   :: timestep
+
+    LOGICAL, SAVE         :: first=.TRUE.
+! Identification fichiers et variables NetCDF:
+    INTEGER, SAVE         :: ncidu,varidu,ncidv,varidv,ncidp,varidp
+    INTEGER, SAVE         :: ncidQ,varidQ,ncidt,varidt,ncidps,varidps
+    INTEGER               :: ncidpl,varidpl,varidap,varidbp
+! Variables auxiliaires NetCDF:
+    INTEGER, DIMENSION(4) :: start,count
+    INTEGER               :: status,rcode
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read'
+    abort_message='pb in guide_read'
+
+! -----------------------------------------------------------------
+! Premier appel: initialisation de la lecture des fichiers
+! -----------------------------------------------------------------
+    if (first) then
+         ncidpl=-99
+         print*,'Guide: ouverture des fichiers guidage '
+! Ap et Bp si Niveaux de pression hybrides
+         if (guide_plevs.EQ.1) then
+             print *,'Lecture du guidage sur niveaux modele'
+             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidpl,varidap',ncidpl,varidap
+         endif
+! Pression si guidage sur niveaux P variables
+         if (guide_plevs.EQ.2) then
+             rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidp,varidp',ncidp,varidp
+             if (ncidpl.eq.-99) ncidpl=ncidp
+         endif
+! Vent zonal
+         if (guide_u) then
+             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidu,varidu',ncidu,varidu
+             if (ncidpl.eq.-99) ncidpl=ncidu
+         endif
+! Vent meridien
+         if (guide_v) then
+             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidv,varidv',ncidv,varidv
+             if (ncidpl.eq.-99) ncidpl=ncidv
+         endif
+! Temperature
+         if (guide_T) then
+             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidT,varidT',ncidt,varidt
+             if (ncidpl.eq.-99) ncidpl=ncidt
+         endif
+! Humidite
+         if (guide_Q) then
+             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidQ,varidQ',ncidQ,varidQ
+             if (ncidpl.eq.-99) ncidpl=ncidQ
+         endif
+! Pression de surface
+         if ((guide_P).OR.(guide_plevs.EQ.1)) then
+             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN 
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidps,varidps',ncidps,varidps
+         endif
+! Coordonnee verticale
+         if (guide_plevs.EQ.0) then
+              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
+              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
+              print*,'ncidpl,varidpl',ncidpl,varidpl
+         endif
+! Coefs ap, bp pour calcul de la pression aux differents niveaux
+         IF (guide_plevs.EQ.1) THEN
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+#endif
+         ELSEIF (guide_plevs.EQ.0) THEN
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+#endif
+             apnc=apnc*100.! conversion en Pascals
+             bpnc(:)=0.
+         ENDIF
+         first=.FALSE.
+     ENDIF ! (first)
+
+! -----------------------------------------------------------------
+!   lecture des champs u, v, T, Q, ps
+! -----------------------------------------------------------------
+
+!  dimensions pour les champs scalaires et le vent zonal
+     start(1)=1
+     start(2)=jjb_u
+     start(3)=1
+     start(4)=timestep
+
+     count(1)=iip1
+     count(2)=jjnb_u
+     count(3)=nlevnc
+     count(4)=1
+
+     IF (invert_y) start(2)=jjp1-jje_u+1
+! Pression 
+     if (guide_plevs.EQ.2) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidp,varidp,start,count,pnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidp,varidp,start,count,pnat2)
+#endif
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,pnat2)
+         ENDIF
+     endif
+
+!  Vent zonal
+     if (guide_u) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,unat2)
+#else
+         status=NF_GET_VARA_REAL(ncidu,varidu,start,count,unat2)
+#endif
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,unat2)
+         ENDIF
+
+     endif
+
+
+!  Temperature
+     if (guide_T) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,tnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidt,varidt,start,count,tnat2)
+#endif
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,tnat2)
+         ENDIF
+     endif
+
+!  Humidite
+     if (guide_Q) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidQ,varidQ,start,count,qnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidQ,varidQ,start,count,qnat2)
+#endif
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,qnat2)
+         ENDIF
+
+     endif
+
+!  Vent meridien
+     if (guide_v) then
+         start(2)=jjb_v
+         count(2)=jjnb_v
+         IF (invert_y) start(2)=jjm-jje_v+1
+
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,vnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidv,varidv,start,count,vnat2)
+#endif
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_v,nlevnc,vnat2)
+         ENDIF
+     endif
+
+!  Pression de surface
+     if ((guide_P).OR.(guide_plevs.EQ.1))  then
+         start(2)=jjb_u
+         start(3)=timestep
+         start(4)=0
+         count(2)=jjnb_u
+         count(3)=1
+         count(4)=0
+         IF (invert_y) start(2)=jjp1-jje_u+1
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,psnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnat2)
+#endif
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,1,psnat2)
+         ENDIF
+     endif
+
+  END SUBROUTINE guide_read
+
+!=======================================================================
+  SUBROUTINE guide_read2D(timestep)
+
+    IMPLICIT NONE
+
+#include "netcdf.inc"
+#include "dimensions.h"
+#include "paramet.h"
+
+    INTEGER, INTENT(IN)   :: timestep
+
+    LOGICAL, SAVE         :: first=.TRUE.
+! Identification fichiers et variables NetCDF:
+    INTEGER, SAVE         :: ncidu,varidu,ncidv,varidv,ncidp,varidp
+    INTEGER, SAVE         :: ncidQ,varidQ,ncidt,varidt,ncidps,varidps
+    INTEGER               :: ncidpl,varidpl,varidap,varidbp
+! Variables auxiliaires NetCDF:
+    INTEGER, DIMENSION(4) :: start,count
+    INTEGER               :: status,rcode
+! Variables for 3D extension:
+    REAL, DIMENSION (jjb_u:jje_u,llm)  :: zu
+    REAL, DIMENSION (jjb_v:jje_v,llm)  :: zv
+    INTEGER               :: i
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read2D'
+    abort_message='pb in guide_read2D'
+
+! -----------------------------------------------------------------
+! Premier appel: initialisation de la lecture des fichiers
+! -----------------------------------------------------------------
+    if (first) then
+         ncidpl=-99
+         print*,'Guide: ouverture des fichiers guidage '
+! Ap et Bp si niveaux de pression hybrides
+         if (guide_plevs.EQ.1) then
+             print *,'Lecture du guidage sur niveaux mod�le'
+             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidpl,varidap',ncidpl,varidap
+         endif
+! Pression
+         if (guide_plevs.EQ.2) then
+             rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidp,varidp',ncidp,varidp
+             if (ncidpl.eq.-99) ncidpl=ncidp
+         endif
+! Vent zonal
+         if (guide_u) then
+             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidu,varidu',ncidu,varidu
+             if (ncidpl.eq.-99) ncidpl=ncidu
+         endif
+
+! Vent meridien
+         if (guide_v) then
+             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidv,varidv',ncidv,varidv
+             if (ncidpl.eq.-99) ncidpl=ncidv
+         endif
+! Temperature
+         if (guide_T) then
+             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidT,varidT',ncidt,varidt
+             if (ncidpl.eq.-99) ncidpl=ncidt
+         endif
+! Humidite
+         if (guide_Q) then
+             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidQ,varidQ',ncidQ,varidQ
+             if (ncidpl.eq.-99) ncidpl=ncidQ
+         endif
+! Pression de surface
+         if ((guide_P).OR.(guide_plevs.EQ.1)) then
+             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidps,varidps',ncidps,varidps
+         endif
+! Coordonnee verticale
+         if (guide_plevs.EQ.0) then
+              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
+              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
+              print*,'ncidpl,varidpl',ncidpl,varidpl
+         endif
+! Coefs ap, bp pour calcul de la pression aux differents niveaux
+         if (guide_plevs.EQ.1) then
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+#endif
+         elseif (guide_plevs.EQ.0) THEN
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+#endif
+             apnc=apnc*100.! conversion en Pascals
+             bpnc(:)=0.
+         endif
+         first=.FALSE.
+     endif ! (first)
+
+! -----------------------------------------------------------------
+!   lecture des champs u, v, T, Q, ps
+! -----------------------------------------------------------------
+
+!  dimensions pour les champs scalaires et le vent zonal
+     start(1)=1
+     start(2)=jjb_u
+     start(3)=1
+     start(4)=timestep
+
+     count(1)=1
+     count(2)=jjnb_u
+     count(3)=nlevnc
+     count(4)=1
+
+     IF (invert_y) start(2)=jjp1-jje_u+1
+!  Pression
+     if (guide_plevs.EQ.2) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidp,varidp,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidp,varidp,start,count,zu)
+#endif
+         DO i=1,iip1
+             pnat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,pnat2)
+         ENDIF
+     endif
+!  Vent zonal
+     if (guide_u) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidu,varidu,start,count,zu)
+#endif
+         DO i=1,iip1
+             unat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,unat2)
+         ENDIF
+     endif
+
+
+!  Temperature
+     if (guide_T) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidt,varidt,start,count,zu)
+#endif
+         DO i=1,iip1
+             tnat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,tnat2)
+         ENDIF
+     endif
+
+!  Humidite
+     if (guide_Q) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidQ,varidQ,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidQ,varidQ,start,count,zu)
+#endif
+         DO i=1,iip1
+             qnat2(i,:,:)=zu(:,:)
+         ENDDO
+         
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,nlevnc,qnat2)
+         ENDIF
+     endif
+
+!  Vent meridien
+     if (guide_v) then
+         start(2)=jjb_v
+         count(2)=jjnb_v
+         IF (invert_y) start(2)=jjm-jje_v+1
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,zv)
+#else
+         status=NF_GET_VARA_REAL(ncidv,varidv,start,count,zv)
+#endif
+         DO i=1,iip1
+             vnat2(i,:,:)=zv(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+ 
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_v,nlevnc,vnat2)
+         ENDIF
+     endif
+
+!  Pression de surface
+     if ((guide_P).OR.(guide_plevs.EQ.1))  then
+         start(2)=jjb_u
+         start(3)=timestep
+         start(4)=0
+         count(2)=jjnb_u
+         count(3)=1
+         count(4)=0
+         IF (invert_y) start(2)=jjp1-jje_u+1
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,zu(:,1))
+#else
+         status=NF_GET_VARA_REAL(ncidps,varidps,start,count,zu(:,1))
+#endif
+         DO i=1,iip1
+             psnat2(i,:)=zu(:,1)
+         ENDDO
+
+         IF (invert_y) THEN
+!           PRINT*,"Invertion impossible actuellement"
+!           CALL abort_gcm(modname,abort_message,1)
+           CALL invert_lat(iip1,jjnb_u,1,psnat2)
+         ENDIF
+     endif
+
+  END SUBROUTINE guide_read2D
+  
+!=======================================================================
+  SUBROUTINE guide_out(varname,hsize,vsize,field_loc,factt)
+    USE parallel_lmdz
+    USE mod_hallo, ONLY : gather_field_u, gather_field_v
+    USE comconst_mod, ONLY: pi
+    USE comvert_mod, ONLY: presnivs
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "netcdf.inc"
+    INCLUDE "comgeom2.h"
+    
+    ! Variables entree
+    CHARACTER*(*), INTENT(IN)                      :: varname
+    INTEGER,   INTENT (IN)                         :: hsize,vsize
+!   REAL, DIMENSION (iip1,hsize,vsize), INTENT(IN) :: field_loc
+    REAL, DIMENSION (:,:), INTENT(IN) :: field_loc
+    REAL factt
+
+    ! Variables locales
+    INTEGER, SAVE :: timestep=0
+    ! Identites fichier netcdf
+    INTEGER       :: nid, id_lonu, id_lonv, id_latu, id_latv, id_tim, id_lev
+    INTEGER       :: vid_lonu,vid_lonv,vid_latu,vid_latv,vid_cu,vid_cv,vid_lev
+    INTEGER       :: vid_au,vid_av
+    INTEGER, DIMENSION (3) :: dim3
+    INTEGER, DIMENSION (4) :: dim4,count,start
+    INTEGER                :: ierr, varid,l
+    REAL zu(ip1jmp1),zv(ip1jm)
+    REAL, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: field_glo
+    
+!$OMP MASTER
+    ALLOCATE(field_glo(iip1,hsize,vsize))
+!$OMP END MASTER
+!$OMP BARRIER
+
+    print*,'gvide_out apres allocation ',hsize,vsize
+
+    IF (hsize==jjp1) THEN
+        CALL gather_field_u(field_loc,field_glo,vsize)
+    ELSE IF (hsize==jjm) THEN
+       CALL gather_field_v(field_loc,field_glo, vsize)
+    ENDIF
+
+    print*,'guide_out apres gather '
+    CALL Gather_field_u(alpha_u,zu,1)
+    CALL Gather_field_v(alpha_v,zv,1)
+
+    IF (mpi_rank >  0) THEN
+!$OMP MASTER
+       DEALLOCATE(field_glo)
+!$OMP END MASTER
+!$OMP BARRIER
+
+       RETURN
+    ENDIF
+    
+!$OMP MASTER
+    IF (timestep.EQ.0) THEN 
+! ----------------------------------------------
+! initialisation fichier de sortie
+! ----------------------------------------------
+! Ouverture du fichier
+        ierr=NF_CREATE("guide_ins.nc",NF_CLOBBER,nid)
+! Definition des dimensions
+        ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 
+        ierr=NF_DEF_DIM(nid,"LONV",iip1,id_lonv) 
+        ierr=NF_DEF_DIM(nid,"LATU",jjp1,id_latu) 
+        ierr=NF_DEF_DIM(nid,"LATV",jjm,id_latv) 
+        ierr=NF_DEF_DIM(nid,"LEVEL",llm,id_lev)
+        ierr=NF_DEF_DIM(nid,"TIME",NF_UNLIMITED,id_tim)
+
+! Creation des variables dimensions
+        ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,id_lonu,vid_lonu)
+        ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,id_lonv,vid_lonv)
+        ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,id_latu,vid_latu)
+        ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,id_latv,vid_latv)
+        ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,id_lev,vid_lev)
+        ierr=NF_DEF_VAR(nid,"cu",NF_FLOAT,2,(/id_lonu,id_latu/),vid_cu)
+        ierr=NF_DEF_VAR(nid,"cv",NF_FLOAT,2,(/id_lonv,id_latv/),vid_cv)
+        ierr=NF_DEF_VAR(nid,"au",NF_FLOAT,2,(/id_lonu,id_latu/),vid_au)
+        ierr=NF_DEF_VAR(nid,"av",NF_FLOAT,2,(/id_lonv,id_latv/),vid_av)
+
+        ierr=NF_ENDDEF(nid)
+
+! Enregistrement des variables dimensions
+#ifdef NC_DOUBLE
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonu,rlonu*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonv,rlonv*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_latu,rlatu*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_latv,rlatv*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lev,presnivs)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_cu,cu)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_cv,cv)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_au,zu)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_av,zv)
+#else
+        ierr = NF_PUT_VAR_REAL(nid,vid_lonu,rlonu*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_lonv,rlonv*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_latu,rlatu*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_latv,rlatv*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_lev,presnivs)
+        ierr = NF_PUT_VAR_REAL(nid,vid_cu,cu)
+        ierr = NF_PUT_VAR_REAL(nid,vid_cv,cv)
+        ierr = NF_PUT_VAR_REAL(nid,vid_au,alpha_u)
+        ierr = NF_PUT_VAR_REAL(nid,vid_av,alpha_v)
+#endif
+! --------------------------------------------------------------------
+! Cr�ation des variables sauvegard�es
+! --------------------------------------------------------------------
+        ierr = NF_REDEF(nid)
+! Pressure (GCM)
+        dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+        ierr = NF_DEF_VAR(nid,"SP",NF_FLOAT,4,dim4,varid)
+! Surface pressure (guidage)
+        IF (guide_P) THEN
+            dim3=(/id_lonv,id_latu,id_tim/)
+            ierr = NF_DEF_VAR(nid,"ps",NF_FLOAT,3,dim3,varid)
+        ENDIF
+! Zonal wind
+        IF (guide_u) THEN
+            dim4=(/id_lonu,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"u",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"ua",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"ucov",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Merid. wind
+        IF (guide_v) THEN
+            dim4=(/id_lonv,id_latv,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"v",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"va",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"vcov",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Pot. Temperature
+        IF (guide_T) THEN
+            dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"teta",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Specific Humidity
+        IF (guide_Q) THEN
+            dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"q",NF_FLOAT,4,dim4,varid)
+        ENDIF
+        
+        ierr = NF_ENDDEF(nid)
+        ierr = NF_CLOSE(nid)
+    ENDIF ! timestep=0
+
+! --------------------------------------------------------------------
+! Enregistrement du champ
+! --------------------------------------------------------------------
+ 
+    ierr=NF_OPEN("guide_ins.nc",NF_WRITE,nid)
+
+    IF (varname=="SP") timestep=timestep+1
+
+    ierr = NF_INQ_VARID(nid,varname,varid)
+    SELECT CASE (varname)
+    CASE ("SP","ps")
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjp1,llm,1/)
+    CASE ("v","va","vcov")
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjm,llm,1/)
+    CASE DEFAULT
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjp1,llm,1/)
+    END SELECT
+
+!$OMP END MASTER
+!$OMP BARRIER
+
+    SELECT CASE (varname)
+
+    CASE("u","ua")
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm 
+            field_glo(:,2:jjm,l)=field_glo(:,2:jjm,l)/cu(:,2:jjm)
+            field_glo(:,1,l)=0. ; field_glo(:,jjp1,l)=0.
+        ENDDO
+    CASE("v","va")
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+           field_glo(:,:,l)=field_glo(:,:,l)/cv(:,:)
+        ENDDO
+    END SELECT
+
+!    if (varname=="ua") then
+!    call dump2d(iip1,jjp1,field_glo,'ua gui1 1ere couche ')
+!    call dump2d(iip1,jjp1,field_glo(:,:,llm),'ua gui1 llm ')
+!    endif
+
+!$OMP MASTER
+
+#ifdef NC_DOUBLE
+    ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,count,field_glo)
+#else
+    ierr = NF_PUT_VARA_REAL(nid,varid,start,count,field_glo)
+#endif
+
+    ierr = NF_CLOSE(nid)
+
+       DEALLOCATE(field_glo)
+!$OMP END MASTER
+!$OMP BARRIER
+
+    RETURN
+
+  END SUBROUTINE guide_out
+    
+  
+!===========================================================================
+  subroutine correctbid(iim,nl,x)
+    integer iim,nl
+    real x(iim+1,nl)
+    integer i,l
+    real zz
+
+    do l=1,nl
+        do i=2,iim-1
+            if(abs(x(i,l)).gt.1.e10) then
+               zz=0.5*(x(i-1,l)+x(i+1,l))
+              print*,'correction ',i,l,x(i,l),zz
+               x(i,l)=zz
+            endif
+         enddo
+     enddo
+     return
+  end subroutine correctbid
+
+
+!====================================================================
+! Ascii debug output. Could be reactivated
+!====================================================================
+
+subroutine dump2du(var,varname)
+use parallel_lmdz
+use mod_hallo
+implicit none
+include 'dimensions.h'
+include 'paramet.h'
+
+      CHARACTER (len=*) :: varname
+
+
+real, dimension(ijb_u:ije_u) :: var
+
+real, dimension(ip1jmp1) :: var_glob
+
+    RETURN
+
+    call barrier
+    CALL Gather_field_u(var,var_glob,1)
+    call barrier
+
+    if (mpi_rank==0) then
+       call dump2d(iip1,jjp1,var_glob,varname)
+    endif
+
+    call barrier
+
+    return
+    end subroutine dump2du
+
+!====================================================================
+! Ascii debug output. Could be reactivated
+!====================================================================
+subroutine dumpall
+     implicit none
+     include "dimensions.h"
+     include "paramet.h"
+     include "comgeom.h"
+     call barrier
+     call dump2du(alpha_u(ijb_u:ije_u),'  alpha_u couche 1')
+     call dump2du(unat2(:,jjbu:jjeu,nlevnc),'  unat2 couche nlevnc')
+     call dump2du(ugui1(ijb_u:ije_u,1)*sqrt(unscu2(ijb_u:ije_u)),'  ugui1 couche 1')
+     return
+end subroutine dumpall
+
+!===========================================================================
+END MODULE guide_loc_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/iniacademic_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/iniacademic_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/iniacademic_loc.F90	(revision 3330)
@@ -0,0 +1,335 @@
+!
+! $Id: iniacademic.F90 1625 2012-05-09 13:14:48Z lguez $
+!
+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 infotrac, ONLY: nqtot,niso_possibles,ok_isotopes,iqpere,ok_iso_verif,tnat,alpha_ideal, &
+        & iqiso,phase_num,iso_indnum,iso_num,zone_num
+  USE control_mod, ONLY: day_step,planet_type
+  USE parallel_lmdz, ONLY: ijb_u, ije_u, ijb_v, ije_v
+#ifdef CPP_IOIPSL
+  USE IOIPSL, ONLY: getin
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  USE ioipsl_getincom, ONLY: getin
+#endif
+  USE Write_Field
+  USE comconst_mod, ONLY: cpp, kappa, g, daysec, dtvr, pi, im, jm
+  USE logic_mod, ONLY: iflag_phys, read_start
+  USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
+  USE temps_mod, ONLY: annee_ref, day_ini, day_ref
+
+  !   Author:    Frederic Hourdin      original: 15/01/93
+  ! The forcing defined here is from Held and Suarez, 1994, Bulletin
+  ! of the American Meteorological Society, 75, 1825.
+
+  IMPLICIT NONE
+
+  !   Declararations:
+  !   ---------------
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "academic.h"
+  include "ener.h"
+  include "iniprint.h"
+
+  !   Arguments:
+  !   ----------
+
+  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:
+  !   ------
+
+  REAL,ALLOCATABLE :: vcov_glo(:,:),ucov_glo(:,:),teta_glo(:,:)
+  REAL,ALLOCATABLE :: q_glo(:,:),masse_glo(:,:),ps_glo(:)
+  REAL,ALLOCATABLE :: phis_glo(:)
+  REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+  REAL pks(ip1jmp1)                      ! exner au  sol
+  REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+  REAL phi(ip1jmp1,llm)                  ! geopotentiel
+  REAL ddsin,zsig,tetapv,w_pv  ! variables auxiliaires
+  real tetastrat ! potential temperature in the stratosphere, in K
+  real tetajl(jjp1,llm)
+  INTEGER i,j,l,lsup,ij
+
+  REAL teta0,ttp,delt_y,delt_z,eps ! Constantes pour profil de T
+  REAL k_f,k_c_a,k_c_s         ! Constantes de rappel
+  LOGICAL ok_geost             ! Initialisation vent geost. ou nul
+  LOGICAL ok_pv                ! Polar Vortex
+  REAL phi_pv,dphi_pv,gam_pv   ! Constantes pour polar vortex 
+
+  real zz,ran1
+  integer idum
+
+  REAL zdtvr
+  
+  character(len=*),parameter :: modname="iniacademic"
+  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
+  ! --------------------------------------
+  !
+  ! initialize planet radius, rotation rate,...
+  call conf_planete
+
+  time_0=0.
+  day_ref=1
+  annee_ref=0
+
+  im         = iim
+  jm         = jjm
+  day_ini    = 1
+  dtvr    = daysec/REAL(day_step)
+  zdtvr=dtvr
+  etot0      = 0.
+  ptot0      = 0.
+  ztot0      = 0.
+  stot0      = 0.
+  ang0       = 0.      
+
+  if (llm == 1) then
+     ! specific initializations for the shallow water case
+     kappa=1
+  endif
+
+  CALL iniconst
+  CALL inigeom
+  CALL inifilr
+
+  if (llm == 1) then
+     ! initialize fields for the shallow water case, if required
+     if (.not.read_start) then
+        phis(ijb_u:ije_u)=0.
+        q(ijb_u:ije_u,1:llm,1:nqtot)=0
+        CALL sw_case_williamson91_6_loc(vcov,ucov,teta,masse,ps)
+     endif
+  endif
+
+  academic_case: if (iflag_phys >= 2) then
+     ! initializations
+
+     ! 1. local parameters
+     ! by convention, winter is in the southern hemisphere
+     ! Geostrophic wind or no wind?
+     ok_geost=.TRUE.
+     CALL getin('ok_geost',ok_geost)
+     ! Constants for Newtonian relaxation and friction
+     k_f=1.                !friction 
+     CALL getin('k_j',k_f)
+     k_f=1./(daysec*k_f)
+     k_c_s=4.  !cooling surface
+     CALL getin('k_c_s',k_c_s)
+     k_c_s=1./(daysec*k_c_s)
+     k_c_a=40. !cooling free atm
+     CALL getin('k_c_a',k_c_a)
+     k_c_a=1./(daysec*k_c_a)
+     ! Constants for Teta equilibrium profile
+     teta0=315.     ! mean Teta (S.H. 315K)
+     CALL getin('teta0',teta0)
+     ttp=200.       ! Tropopause temperature (S.H. 200K)
+     CALL getin('ttp',ttp)
+     eps=0.         ! Deviation to N-S symmetry(~0-20K)
+     CALL getin('eps',eps)
+     delt_y=60.     ! Merid Temp. Gradient (S.H. 60K)
+     CALL getin('delt_y',delt_y)
+     delt_z=10.     ! Vertical Gradient (S.H. 10K)
+     CALL getin('delt_z',delt_z)
+     ! Polar vortex
+     ok_pv=.false.
+     CALL getin('ok_pv',ok_pv)
+     phi_pv=-50.            ! Latitude of edge of vortex
+     CALL getin('phi_pv',phi_pv)
+     phi_pv=phi_pv*pi/180.
+     dphi_pv=5.             ! Width of the edge
+     CALL getin('dphi_pv',dphi_pv)
+     dphi_pv=dphi_pv*pi/180.
+     gam_pv=4.              ! -dT/dz vortex (in K/km)
+     CALL getin('gam_pv',gam_pv)
+
+     ! 2. Initialize fields towards which to relax
+     ! Friction
+     knewt_g=k_c_a
+     DO l=1,llm
+        zsig=presnivs(l)/preff
+        knewt_t(l)=(k_c_s-k_c_a)*MAX(0.,(zsig-0.7)/0.3)
+        kfrict(l)=k_f*MAX(0.,(zsig-0.7)/0.3)
+     ENDDO
+     DO j=1,jjp1
+        clat4((j-1)*iip1+1:j*iip1)=cos(rlatu(j))**4
+     ENDDO
+
+     ! Potential temperature 
+     DO l=1,llm
+        zsig=presnivs(l)/preff
+        tetastrat=ttp*zsig**(-kappa)
+        tetapv=tetastrat
+        IF ((ok_pv).AND.(zsig.LT.0.1)) THEN
+           tetapv=tetastrat*(zsig*10.)**(kappa*cpp*gam_pv/1000./g)
+        ENDIF
+        DO j=1,jjp1
+           ! Troposphere
+           ddsin=sin(rlatu(j))
+           tetajl(j,l)=teta0-delt_y*ddsin*ddsin+eps*ddsin &
+                -delt_z*(1.-ddsin*ddsin)*log(zsig)
+           if (planet_type=="giant") then
+             tetajl(j,l)=teta0+(delt_y*                   &
+                ((sin(rlatu(j)*3.14159*eps+0.0001))**2)   &
+                / ((rlatu(j)*3.14159*eps+0.0001)**2))     &
+                -delt_z*log(zsig)
+           endif
+           ! Profil stratospherique isotherme (+vortex)
+           w_pv=(1.-tanh((rlatu(j)-phi_pv)/dphi_pv))/2.
+           tetastrat=tetastrat*(1.-w_pv)+tetapv*w_pv             
+           tetajl(j,l)=MAX(tetajl(j,l),tetastrat)  
+        ENDDO
+     ENDDO
+
+     !          CALL writefield('theta_eq',tetajl)
+
+     do l=1,llm
+        do j=1,jjp1
+           do i=1,iip1
+              ij=(j-1)*iip1+i
+              tetarappel(ij,l)=tetajl(j,l)
+           enddo
+        enddo
+     enddo
+
+     ! 3. Initialize fields (if necessary)
+     IF (.NOT. read_start) THEN
+       ! allocate global fields:
+!       allocate(vcov_glo(ip1jm,llm))
+       allocate(ucov_glo(ip1jmp1,llm))
+       allocate(teta_glo(ip1jmp1,llm))
+       allocate(ps_glo(ip1jmp1))
+       allocate(masse_glo(ip1jmp1,llm))
+       allocate(phis_glo(ip1jmp1))
+
+        ! surface pressure
+        if (iflag_phys>2) then
+           ! specific value for CMIP5 aqua/terra planets
+           ! "Specify the initial dry mass to be equivalent to
+           !  a global mean surface pressure (101325 minus 245) Pa."
+           ps_glo(:)=101080.  
+        else
+           ! use reference surface pressure
+           ps_glo(:)=preff
+        endif
+        
+        ! ground geopotential
+        phis_glo(:)=0.
+
+        CALL pression ( ip1jmp1, ap, bp, ps_glo, p       )
+        if (pressure_exner) then
+          CALL exner_hyb( ip1jmp1, ps_glo, p, pks, pk )
+        else
+          call exner_milieu(ip1jmp1,ps_glo,p,pks,pk)
+        endif
+        CALL massdair(p,masse_glo)
+
+        ! bulk initialization of temperature
+        teta_glo(:,:)=tetarappel(:,:)
+
+        ! geopotential
+        CALL geopot(ip1jmp1,teta_glo,pk,pks,phis_glo,phi)
+
+        ! winds
+        if (ok_geost) then
+           call ugeostr(phi,ucov_glo)
+        else
+           ucov_glo(:,:)=0.
+        endif
+        vcov(ijb_v:ije_v,1:llm)=0.
+
+        ! bulk initialization of tracers
+        if (planet_type=="earth") then
+           ! Earth: first two tracers will be water
+
+           do i=1,nqtot
+              if (i == 1) q(ijb_u:ije_u,:,i)=1.e-10
+              if (i == 2) q(ijb_u:ije_u,:,i)=1.e-15
+              if (i.gt.2) q(ijb_u:ije_u,:,i)=0.
+
+              ! CRisi: init des isotopes
+              ! distill de Rayleigh très simplifiée
+              if (ok_isotopes) then
+                if ((iso_num(i).gt.0).and.(zone_num(i).eq.0)) then          
+                   q(ijb_u:ije_u,:,i)=q(ijb_u:ije_u,:,iqpere(i))       &
+      &                  *tnat(iso_num(i))                             &
+      &                  *(q(ijb_u:ije_u,:,iqpere(i))/30.e-3)                              &
+     &                   **(alpha_ideal(iso_num(i))-1)
+                endif                
+                if ((iso_num(i).gt.0).and.(zone_num(i).eq.1)) then
+                  q(ijb_u:ije_u,:,i)=q(ijb_u:ije_u,:,iqiso(iso_indnum(i),phase_num(i)))
+                endif
+              endif !if (ok_isotopes) then
+
+           enddo
+        else
+           q(ijb_u:ije_u,:,:)=0
+        endif ! of if (planet_type=="earth")
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'iniacademic_loc')
+        endif !if (ok_iso_verif) then
+
+        ! add random perturbation to temperature
+        idum  = -1
+        zz = ran1(idum)
+        idum  = 0
+        do l=1,llm
+           do ij=iip2,ip1jm
+              teta_glo(ij,l)=teta_glo(ij,l)*(1.+0.005*ran1(idum))
+           enddo
+        enddo
+
+        ! maintain periodicity in longitude
+        do l=1,llm
+           do ij=1,ip1jmp1,iip1
+              teta_glo(ij+iim,l)=teta_glo(ij,l)
+           enddo
+        enddo
+
+        ! copy data from global array to local array:
+        teta(ijb_u:ije_u,:)=teta_glo(ijb_u:ije_u,:)
+        ucov(ijb_u:ije_u,:)=ucov_glo(ijb_u:ije_u,:)
+!        vcov(ijb_v:ije_v,:)=vcov_glo(ijb_v:ije_v,:)
+        masse(ijb_u:ije_u,:)=masse_glo(ijb_u:ije_u,:)
+        ps(ijb_u:ije_u)=ps_glo(ijb_u:ije_u)
+        phis(ijb_u:ije_u)=phis_glo(ijb_u:ije_u)
+
+        deallocate(teta_glo)
+        deallocate(ucov_glo)
+!        deallocate(vcov_glo)
+        deallocate(masse_glo)
+        deallocate(ps_glo)
+        deallocate(phis_glo)
+     ENDIF ! of IF (.NOT. read_start)
+  endif academic_case
+
+END SUBROUTINE iniacademic_loc
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/initdynav_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/initdynav_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/initdynav_loc.F	(revision 3330)
@@ -0,0 +1,287 @@
+!
+! $Id: initdynav_p.F 1279 2009-12-10 09:02:56Z fairhead $
+!
+      subroutine initdynav_loc(day0,anne0,tstep,t_ops,t_wrt)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+       USE IOIPSL
+#endif
+       USE parallel_lmdz
+       use Write_field
+       use misc_mod
+       USE infotrac
+       use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid,       &
+     &        dynhistave_file,dynhistvave_file,dynhistuave_file
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: presnivs
+       USE temps_mod, ONLY: itau_dyn
+       
+       implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL. Initialisation du fichier histoire moyenne.
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      day0,anne0: date de reference
+C      tstep : frequence d'ecriture
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C   Arguments
+C
+      integer*4 day0, anne0
+      real tstep, t_ops, t_wrt
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1)
+      integer uhoriid, vhoriid, thoriid
+      integer zvertiid,zvertiidv,zvertiidu
+      integer ii,jj
+      integer zan, dayref
+      integer :: jjb,jje,jjn
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(2) :: ddid
+      INTEGER,DIMENSION(2) :: dsg
+      INTEGER,DIMENSION(2) :: dsl
+      INTEGER,DIMENSION(2) :: dpf
+      INTEGER,DIMENSION(2) :: dpl
+      INTEGER,DIMENSION(2) :: dhs
+      INTEGER,DIMENSION(2) :: dhe 
+      
+      INTEGER :: dynhistave_domain_id
+      INTEGER :: dynhistvave_domain_id
+      INTEGER :: dynhistuave_domain_id
+      
+      if (adjust) return
+
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = anne0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj)  = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+
+! Creation de 3 fichiers pour les differentes grilles horizontales
+! Restriction de IOIPSL: seulement 2 coordonnees dans le meme fichier
+! Grille Scalaire       
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynhistave_domain_id)
+             
+      call histbeg(dynhistave_file,iip1, rlong(:,1), jjn,
+     .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
+     .             zjulian, tstep, thoriid,
+     .             histaveid,dynhistave_domain_id)
+
+
+C  Creation du fichier histoire pour les grilles en V et U (oblige pour l'instant,
+C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans
+C  un meme fichier)
+! Grille V
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      IF (pole_sud) jjn=jjn-1
+      IF (pole_sud) jje=jje-1
+      
+      do jj = jjb, jje
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjm /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynhistvave_domain_id)
+
+      call histbeg(dynhistvave_file,iip1, rlong(:,1), jjn,
+     .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
+     .             zjulian, tstep, vhoriid,
+     .             histvaveid,dynhistvave_domain_id)
+     
+! Grille U
+
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynhistuave_domain_id)
+             
+      call histbeg(dynhistuave_file,iip1, rlong(:,1), jjn,
+     .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
+     .             zjulian, tstep, uhoriid,
+     .             histuaveid,dynhistuave_domain_id)
+     
+     
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(histaveid,'presnivs','Niveaux Pression
+     &     approximatifs','mb',llm, presnivs/100., zvertiid,'down')
+      call histvert(histuaveid,'presnivs','Niveaux Pression
+     &     approximatifs','mb',llm, presnivs/100., zvertiidv,'down')
+      call histvert(histvaveid,'presnivs','Niveaux Pression
+     &     approximatifs','mb',llm, presnivs/100., zvertiidu,'down')
+
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+C
+C  Vents U
+C
+      jjn=jj_nb
+      call histdef(histuaveid, 'u', 'vent u moyen ',
+     .             'm/s', iip1, jjn, uhoriid, llm, 1, llm, zvertiidu,
+     .             32, 'ave(X)', t_ops, t_wrt)
+
+C
+C  Vents V
+C
+      if (pole_sud) jjn=jj_nb-1
+      call histdef(histvaveid, 'v', 'vent v moyen',
+     .             'm/s', iip1, jjn, vhoriid, llm, 1, llm, zvertiidv,
+     .             32, 'ave(X)', t_ops, t_wrt)
+
+C
+C  Temperature
+C
+      jjn=jj_nb
+      call histdef(histaveid, 'temp', 'temperature moyenne', 'K',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Temperature potentielle
+C
+      call histdef(histaveid, 'theta', 'temperature potentielle', 'K',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+
+
+C
+C  Geopotentiel
+C
+      call histdef(histaveid, 'phi', 'geopotentiel moyen', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Traceurs
+C
+!        DO iq=1,nqtot
+!          call histdef(histaveid, ttext(iq), ttext(iq), '-',
+!     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+!     .             32, 'ave(X)', t_ops, t_wrt)
+!        enddo
+C
+C  Masse
+C
+      call histdef(histaveid, 'masse', 'masse moyenne', 'kg',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(histaveid, 'ps', 'pression naturelle au sol', 'Pa',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Geopotentiel au sol
+C
+!      call histdef(histaveid, 'phis', 'geopotentiel au sol', '-',
+!     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+!     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(histaveid)
+      call histend(histuaveid)
+      call histend(histvaveid)
+#else
+      write(lunout,*)'initdynav_loc: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/initfluxsto_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/initfluxsto_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/initfluxsto_p.F	(revision 3330)
@@ -0,0 +1,295 @@
+!
+! $Id$
+!
+      subroutine initfluxsto_p
+     .  (infile,tstep,t_ops,t_wrt,
+     .                    fileid,filevid,filedid)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+       USE IOIPSL
+#endif
+       USE parallel_lmdz
+       use Write_field
+       use misc_mod
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: nivsigs
+       USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+       
+      implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      infile: nom du fichier histoire a creer
+C      day0,anne0: date de reference
+C      tstep: duree du pas de temps en seconde
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C      filevid:ID du fichier netcdf pour la grille v
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C   Arguments
+C
+      character*(*) infile
+      real tstep, t_ops, t_wrt
+      integer fileid, filevid,filedid
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      real nivd(1)
+      integer tau0
+      real zjulian
+      character*3 str
+      character*10 ctrac
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1),rl(1,1)
+      integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
+      integer ii,jj
+      integer zan, idayref
+      logical ok_sync
+      integer :: jjb,jje,jjn
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(2) :: ddid
+      INTEGER,DIMENSION(2) :: dsg
+      INTEGER,DIMENSION(2) :: dsl
+      INTEGER,DIMENSION(2) :: dpf
+      INTEGER,DIMENSION(2) :: dpl
+      INTEGER,DIMENSION(2) :: dhs
+      INTEGER,DIMENSION(2) :: dhe 
+      
+      INTEGER :: dynu_domain_id
+      INTEGER :: dynv_domain_id
+
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+      str='q  '
+      ctrac = 'traceur   '
+      ok_sync = .true.
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = annee_ref
+      idayref = day_ref
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
+      tau0 = itau_dyn
+        
+        do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynu_domain_id)
+       
+      call histbeg(trim(infile),iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+     .             1, iip1, 1, jjn, tau0, zjulian, tstep, uhoriid,
+     .             fileid,dynu_domain_id)
+C
+C  Creation du fichier histoire pour la grille en V (oblige pour l'instant,
+C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans 
+C  un meme fichier)
+
+
+      do jj = 1, jjm
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      if (pole_sud) jje=jj_end-1
+      if (pole_sud) jjn=jj_nb-1
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjm /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynv_domain_id)
+     
+      call histbeg('fluxstokev',iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+     .             1, iip1, 1, jjn,tau0, zjulian, tstep, vhoriid,
+     .             filevid,dynv_domain_id)
+        
+      rl(1,1) = 1.
+      
+      if (mpi_rank==0) then
+          
+        call histbeg('defstoke.nc', 1, rl, 1, rl,
+     .               1, 1, 1, 1,
+     .               tau0, zjulian, tstep, dhoriid, filedid)
+     
+      endif
+C
+C  Appel a histhori pour rajouter les autres grilles horizontales
+C
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
+     .             'scalar','Grille points scalaires', thoriid)
+        
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'sig_s', 'Niveaux sigma',
+     . 'sigma_level',
+     .              llm, nivsigs, zvertiid)
+C Pour le fichier V
+      call histvert(filevid, 'sig_s', 'Niveaux sigma',
+     .  'sigma_level',
+     .              llm, nivsigs, zvertiid)
+c pour le fichier def
+      if (mpi_rank==0) then
+         nivd(1) = 1
+         call histvert(filedid, 'sig_s', 'Niveaux sigma',
+     .        'sigma_level',
+     .        1, nivd, dvertiid)
+      endif
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+        
+        CALL histdef(fileid, "phis", "Surface geop. height", "-",
+     .                iip1,jjn,thoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+
+         CALL histdef(fileid, "aire", "Grid area", "-",
+     .                iip1,jjn,thoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+        
+        if (mpi_rank==0) then
+        
+        CALL histdef(filedid, "dtvr", "tps dyn", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+        
+         CALL histdef(filedid, "istdyn", "tps stock", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+         
+         CALL histdef(filedid, "istphy", "tps stock phy", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+
+        endif
+C
+C Masse 
+C
+      call histdef(fileid, 'masse', 'Masse', 'kg',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pbaru 
+C
+      call histdef(fileid, 'pbaru', 'flx de masse zonal', 'kg m/s',
+     .             iip1, jjn, uhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Pbarv 
+C
+      if (pole_sud) jjn=jj_nb-1
+      
+      call histdef(filevid, 'pbarv', 'flx de masse mer', 'kg m/s',
+     .             iip1, jjn, vhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  w 
+C
+      if (pole_sud) jjn=jj_nb
+      call histdef(fileid, 'w', 'flx de masse vert', 'kg m/s',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Temperature potentielle
+C
+      call histdef(fileid, 'teta', 'temperature potentielle', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+
+C
+C Geopotentiel 
+C
+      call histdef(fileid, 'phi', 'geopotentiel instantane', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(fileid)
+      call histend(filevid)
+      if (mpi_rank==0) call histend(filedid)
+      if (ok_sync) then
+        call histsync(fileid)
+        call histsync(filevid)
+        if (mpi_rank==0) call histsync(filedid)
+      endif
+        
+#else
+      write(lunout,*)'initfluxsto_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/inithist_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/inithist_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/inithist_loc.F	(revision 3330)
@@ -0,0 +1,288 @@
+!
+! $Id: initdynav_p.F 1279 2009-12-10 09:02:56Z fairhead $
+!
+      subroutine inithist_loc(day0,anne0,tstep,t_ops,t_wrt)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+       USE IOIPSL
+#endif
+       USE parallel_lmdz
+       use Write_field
+       use misc_mod
+       USE infotrac
+       use com_io_dyn_mod, only : histid,histvid,histuid,               &
+     &                        dynhist_file,dynhistv_file,dynhistu_file
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: presnivs
+       USE temps_mod, ONLY: itau_dyn
+       
+       implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      day0,anne0: date de reference
+C      tstep: duree du pas de temps en seconde
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C      nq: nombre de traceurs
+C
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C   Arguments
+C
+      integer day0, anne0
+      real tstep, t_ops, t_wrt
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1)
+      integer uhoriid, vhoriid, thoriid
+      integer zvertiid,zvertiidv,zvertiidu
+      integer ii,jj
+      integer zan, dayref
+      integer :: jjb,jje,jjn
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(2) :: ddid
+      INTEGER,DIMENSION(2) :: dsg
+      INTEGER,DIMENSION(2) :: dsl
+      INTEGER,DIMENSION(2) :: dpf
+      INTEGER,DIMENSION(2) :: dpl
+      INTEGER,DIMENSION(2) :: dhs
+      INTEGER,DIMENSION(2) :: dhe 
+      
+      INTEGER :: dynhist_domain_id
+      INTEGER :: dynhistv_domain_id
+      INTEGER :: dynhistu_domain_id
+      
+      if (adjust) return
+
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = anne0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj)  = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+
+! Creation de 3 fichiers pour les differentes grilles horizontales
+! Restriction de IOIPSL: seulement 2 coordonnees dans le meme fichier
+! Grille Scalaire       
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynhist_domain_id)
+             
+      call histbeg(dynhist_file,iip1, rlong(:,1), jjn,
+     .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
+     .             zjulian, tstep, thoriid,
+     .             histid,dynhist_domain_id)
+
+
+C  Creation du fichier histoire pour les grilles en V et U (oblige pour l'instant,
+C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans
+C  un meme fichier)
+! Grille V
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      IF (pole_sud) jjn=jjn-1
+      IF (pole_sud) jje=jje-1
+      
+      do jj = jjb, jje
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjm /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynhistv_domain_id)
+
+      call histbeg(dynhistv_file,iip1, rlong(:,1), jjn,
+     .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
+     .             zjulian, tstep, vhoriid,
+     .             histvid,dynhistv_domain_id)
+     
+! Grille U
+
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynhistu_domain_id)
+             
+      call histbeg(dynhistu_file,iip1, rlong(:,1), jjn,
+     .             rlat(1,jjb:jje), 1, iip1, 1, jjn,tau0,
+     .             zjulian, tstep, uhoriid,
+     .             histuid,dynhistu_domain_id)
+     
+     
+! -------------------------------------------------------------
+C  Appel a histvert pour la grille verticale
+! -------------------------------------------------------------
+      call histvert(histid, 'presnivs', 'Niveaux pression','mb',
+     .              llm, presnivs/100., zvertiid,'down')
+      call histvert(histvid, 'presnivs', 'Niveaux pression','mb',
+     .              llm, presnivs/100., zvertiidv,'down')
+      call histvert(histuid, 'presnivs', 'Niveaux pression','mb',
+     .              llm, presnivs/100., zvertiidu,'down')
+
+C
+! -------------------------------------------------------------
+C  Appels a histdef pour la definition des variables a sauvegarder
+! -------------------------------------------------------------
+C
+C  Vents U
+C
+      jjn=jj_nb
+      call histdef(histuid, 'u', 'vent u',
+     .             'm/s', iip1, jjn, uhoriid, llm, 1, llm, zvertiidu,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Vents V
+C
+      if (pole_sud) jjn=jj_nb-1
+      call histdef(histvid, 'v', 'vent v',
+     .             'm/s', iip1, jjn, vhoriid, llm, 1, llm, zvertiidv,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Temperature
+C
+      jjn=jj_nb
+      call histdef(histid, 'temp', 'temperature', 'K',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Temperature potentielle
+C
+      call histdef(histid, 'theta', 'temperature potentielle', 'K',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+
+C
+C  Geopotentiel
+C
+      call histdef(histid, 'phi', 'geopotentiel', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Traceurs
+C
+!        DO iq=1,nqtot
+!          call histdef(histid, ttext(iq), ttext(iq), '-',
+!     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+!     .             32, 'inst(X)', t_ops, t_wrt)
+!        enddo
+C
+C  Masse
+C
+      call histdef(histid, 'masse', 'masse', 'kg',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(histid, 'ps', 'pression naturelle au sol', 'Pa',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Geopotentiel au sol
+C
+!      call histdef(histid, 'phis', 'geopotentiel au sol', '-',
+!     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+!     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(histid)
+      call histend(histuid)
+      call histend(histvid)
+#else
+      write(lunout,*)'inithist_loc: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/integrd_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/integrd_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/integrd_loc.F	(revision 3330)
@@ -0,0 +1,458 @@
+!
+! $Id: integrd_p.F 1299 2010-01-20 14:27:21Z fairhead $
+!
+      SUBROUTINE integrd_loc
+     $  (  nq,vcovm1,ucovm1,tetam1,psm1,massem1,
+     $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis) !,finvmaold)
+      USE parallel_lmdz
+      USE control_mod
+      USE mod_filtreg_p
+      USE write_field_loc
+      USE write_field
+      USE integrd_mod
+      USE infotrac, ONLY: ok_iso_verif ! ajout CRisi
+      USE comconst_mod, ONLY: pi
+      USE logic_mod, ONLY: leapf
+      USE comvert_mod, ONLY: ap, bp
+      USE temps_mod, ONLY: dt
+      
+      IMPLICIT NONE
+
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   objet:
+c   ------
+c
+c   Incrementation des tendances dynamiques
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER,intent(in) :: nq ! number of tracers to handle in this routine
+
+      REAL,INTENT(INOUT) :: vcov(ijb_v:ije_v,llm) ! covariant meridional wind
+      REAL,INTENT(INOUT) :: ucov(ijb_u:ije_u,llm) ! covariant zonal wind
+      REAL,INTENT(INOUT) :: teta(ijb_u:ije_u,llm) ! potential temperature
+      REAL,INTENT(INOUT) :: q(ijb_u:ije_u,llm,nq) ! advected tracers
+      REAL,INTENT(INOUT) :: ps0(ijb_u:ije_u) ! surface pressure
+      REAL,INTENT(INOUT) :: masse(ijb_u:ije_u,llm) ! atmospheric mass
+      REAL,INTENT(INOUT) :: phis(ijb_u:ije_u) ! ground geopotential !!! unused
+      ! values at previous time step
+      REAL,INTENT(INOUT) :: vcovm1(ijb_v:ije_v,llm)
+      REAL,INTENT(INOUT) :: ucovm1(ijb_u:ije_u,llm)
+      REAL,INTENT(INOUT) :: tetam1(ijb_u:ije_u,llm)
+      REAL,INTENT(INOUT) :: psm1(ijb_u:ije_u)
+      REAL,INTENT(INOUT) :: massem1(ijb_u:ije_u,llm)
+      ! the tendencies to add
+      REAL,INTENT(INOUT) :: dv(ijb_v:ije_v,llm)
+      REAL,INTENT(INOUT) :: du(ijb_u:ije_u,llm)
+      REAL,INTENT(INOUT) :: dteta(ijb_u:ije_u,llm)
+      REAL,INTENT(INOUT) :: dp(ijb_u:ije_u)
+      REAL,INTENT(INOUT) :: dq(ijb_u:ije_u,llm,nq) !!! unused
+!      REAL,INTENT(INOUT) ::finvmaold(ijb_u:ije_u,llm) !!! unused
+
+c   Local:
+c   ------
+
+      REAL vscr( ijb_v:ije_v ),uscr( ijb_u:ije_u )
+      REAL hscr( ijb_u:ije_u ),pscr(ijb_u:ije_u)
+      REAL massescr( ijb_u:ije_u,llm )
+!      REAL finvmasse(ijb_u:ije_u,llm)
+      REAL tpn,tps,tppn(iim),tpps(iim)
+      REAL qpn,qps,qppn(iim),qpps(iim)
+
+      INTEGER  l,ij,iq,i,j
+
+      REAL SSUM
+      EXTERNAL SSUM
+      INTEGER ijb,ije,jjb,jje
+      LOGICAL :: checksum
+      LOGICAL,SAVE :: checksum_all=.TRUE.
+      INTEGER :: stop_it
+      INTEGER :: ierr
+
+      !write(*,*) 'integrd 88: entree, nq=',nq
+c-----------------------------------------------------------------------
+
+c$OMP BARRIER     
+      if (pole_nord) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO  l = 1,llm
+          DO  ij = 1,iip1
+           ucov(    ij    , l) = 0.
+           uscr(     ij      ) = 0.
+           ENDDO
+        ENDDO
+c$OMP END DO NOWAIT        
+      ENDIF
+
+      if (pole_sud) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO  l = 1,llm
+          DO  ij = 1,iip1
+           ucov( ij +ip1jm, l) = 0.
+           uscr( ij +ip1jm   ) = 0.
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT      
+      ENDIF
+
+c    ............    integration  de       ps         ..............
+
+c      CALL SCOPY(ip1jmp1*llm, masse, 1, massescr, 1)
+
+      ijb=ij_begin
+      ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO  l = 1,llm
+        massescr(ijb:ije,l)=masse(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT 
+
+c$OMP DO SCHEDULE(STATIC)
+      DO 2 ij = ijb,ije
+       pscr (ij)    = ps0(ij)
+       ps (ij)      = psm1(ij) + dt * dp(ij)     
+
+   2  CONTINUE
+
+c$OMP END DO  
+c$OMP BARRIER
+c --> ici synchro OPENMP pour ps
+       
+      checksum=.TRUE.
+      stop_it=0
+
+c$OMP MASTER
+!c$OMP DO SCHEDULE(STATIC)
+      DO ij = ijb,ije
+         IF( ps(ij).LT.0. ) THEN
+           IF (checksum) stop_it=ij
+           checksum=.FALSE.
+         ENDIF
+       ENDDO
+!c$OMP END DO NOWAIT 
+       
+!      CALL MPI_ALLREDUCE(checksum,checksum_all,1,
+!     &                   MPI_LOGICAL,MPI_LOR,COMM_LMDZ,ierr)
+      IF( .NOT. checksum ) THEN
+         write(lunout,*) "integrd: ps = ", ps(stop_it)
+         write(lunout,*) " at node ij =", stop_it
+         ! since ij=j+(i-1)*jjp1 , we have
+          j=modulo(stop_it,jjp1)
+          i=1+(stop_it-j)/jjp1
+          write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
+     &                    " lat = ",rlatu(j)*180./pi, " deg"
+         call abort_gcm("integrd_loc", "negative surface pressure", 1)
+      ENDIF
+
+c$OMP END MASTER
+c$OMP BARRIER
+        !write(*,*) 'integrd 170'
+      IF (.NOT. Checksum_all) THEN
+        call WriteField_v('int_vcov',vcov)
+        call WriteField_u('int_ucov',ucov)
+        call WriteField_u('int_teta',teta)
+        call WriteField_u('int_ps0',ps0)
+        call WriteField_u('int_masse',masse)
+        call WriteField_u('int_phis',phis)
+        call WriteField_v('int_vcovm1',vcovm1)
+        call WriteField_u('int_ucovm1',ucovm1)
+        call WriteField_u('int_tetam1',tetam1)
+        call WriteField_u('int_psm1',psm1)
+        call WriteField_u('int_massem1',massem1)
+
+        call WriteField_v('int_dv',dv)
+        call WriteField_u('int_du',du)
+        call WriteField_u('int_dteta',dteta)
+        call WriteField_u('int_dp',dp)
+!        call WriteField_u('int_finvmaold',finvmaold)
+        do j=1,nq
+          call WriteField_u('int_q'//trim(int2str(j)),
+     .                q(:,:,j))
+          call WriteField_u('int_dq'//trim(int2str(j)),
+     .                dq(:,:,j))
+        enddo
+        call abort_gcm("integrd_loc", "", 1)
+      ENDIF
+    
+       
+c
+        !write(*,*) 'integrd 200'
+C$OMP MASTER
+      if (pole_nord) THEN
+      
+        DO  ij    = 1, iim
+         tppn(ij) = aire(   ij   ) * ps(  ij    )
+        ENDDO
+         tpn      = SSUM(iim,tppn,1)/apoln
+        DO ij   = 1, iip1
+         ps(   ij   )  = tpn
+        ENDDO
+      
+      ENDIF
+      
+      if (pole_sud) THEN
+      
+        DO  ij    = 1, iim
+         tpps(ij) = aire(ij+ip1jm) * ps(ij+ip1jm)
+        ENDDO
+         tps      = SSUM(iim,tpps,1)/apols
+        DO ij   = 1, iip1
+         ps(ij+ip1jm)  = tps
+        ENDDO
+      
+      ENDIF
+c$OMP END MASTER
+c$OMP BARRIER
+      !write(*,*) 'integrd 217'  
+c
+c  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 ...
+c
+
+      CALL pression_loc ( ip1jmp1, ap, bp, ps, p )
+
+c$OMP BARRIER
+      CALL massdair_loc (     p  , masse         )
+
+! Ehouarn : we don't use/need finvmaold and finvmasse,
+!           so might as well not compute them
+!c      CALL   SCOPY( ijp1llm  , masse, 1, finvmasse,  1      )
+!      ijb=ij_begin
+!      ije=ij_end
+!      
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+!      DO  l = 1,llm
+!        finvmasse(ijb:ije,l)=masse(ijb:ije,l)
+!      ENDDO
+!c$OMP END DO NOWAIT
+
+!      jjb=jj_begin
+!      jje=jj_end
+!      CALL filtreg_p( finvmasse,jjb_u,jje_u,jjb,jje, jjp1, llm,
+!     &                -2, 2, .TRUE., 1  )
+c
+
+c    ............   integration  de  ucov, vcov,  h     ..............
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO 10 l = 1,llm
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4 ij = ijb,ije
+      uscr( ij )   =  ucov( ij,l )
+      ucov( ij,l ) = ucovm1( ij,l ) + dt * du( ij,l )
+   4  CONTINUE
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 5 ij = ijb,ije
+      vscr( ij )   =  vcov( ij,l )
+      vcov( ij,l ) = vcovm1( ij,l ) + dt * dv( ij,l )
+   5  CONTINUE
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      DO 6 ij = ijb,ije
+      hscr( ij )    =  teta(ij,l)
+      teta ( ij,l ) = tetam1(ij,l) *  massem1(ij,l) / masse(ij,l) 
+     $                + dt * dteta(ij,l) / masse(ij,l)
+   6  CONTINUE
+
+c   ....  Calcul de la valeur moyenne, unique  aux poles pour  teta    ......
+c
+c
+        !write(*,*) 'integrd 291'
+      IF (pole_nord) THEN
+       
+        DO  ij   = 1, iim
+          tppn(ij) = aire(   ij   ) * teta(  ij    ,l)
+        ENDDO
+          tpn      = SSUM(iim,tppn,1)/apoln
+
+        DO ij   = 1, iip1
+          teta(   ij   ,l)  = tpn
+        ENDDO
+      
+      ENDIF
+      
+      IF (pole_sud) THEN
+       
+        DO  ij   = 1, iim
+          tpps(ij) = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+        ENDDO
+          tps      = SSUM(iim,tpps,1)/apols
+
+        DO ij   = 1, iip1
+          teta(ij+ip1jm,l)  = tps
+        ENDDO
+      
+      ENDIF
+c
+
+      IF(leapf)  THEN
+c         CALL SCOPY ( ip1jmp1, uscr(1), 1, ucovm1(1, l), 1 )
+c         CALL SCOPY (   ip1jm, vscr(1), 1, vcovm1(1, l), 1 )
+c         CALL SCOPY ( ip1jmp1, hscr(1), 1, tetam1(1, l), 1 )
+        ijb=ij_begin
+        ije=ij_end
+        ucovm1(ijb:ije,l)=uscr(ijb:ije)
+        tetam1(ijb:ije,l)=hscr(ijb:ije)
+        if (pole_sud) ije=ij_end-iip1
+        vcovm1(ijb:ije,l)=vscr(ijb:ije)
+      
+      END IF
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+
+c
+c   .......  integration de   q   ......
+c
+      ijb=ij_begin
+      ije=ij_end
+
+         if (planet_type.eq."earth") then
+! Earth-specific treatment of first 2 tracers (water)
+c$OMP BARRIER
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+          DO l = 1, llm
+           DO ij = ijb, ije
+            deltap(ij,l) =  p(ij,l) - p(ij,l+1) 
+           ENDDO
+          ENDDO
+          
+c$OMP END DO NOWAIT
+c$OMP BARRIER
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb,ije,'integrd 342')
+        endif !if (ok_iso_verif) then
+
+        !write(*,*) 'integrd 341'
+        CALL qminimum_loc( q, nq, deltap )
+        !write(*,*) 'integrd 343'
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb,ije,'integrd 346')
+        endif !if (ok_iso_verif) then
+c
+c    .....  Calcul de la valeur moyenne, unique  aux poles pour  q .....
+c
+c$OMP BARRIER
+      IF (pole_nord) THEN 
+      
+        DO iq = 1, nq
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l = 1, llm
+  
+             DO ij = 1, iim
+               qppn(ij) = aire(   ij   ) * q(   ij   ,l,iq)
+             ENDDO
+               qpn  =  SSUM(iim,qppn,1)/apoln
+      
+             DO ij = 1, iip1
+               q(   ij   ,l,iq)  = qpn
+             ENDDO    
+  
+          ENDDO
+c$OMP END DO NOWAIT
+
+        ENDDO
+      
+      ENDIF
+
+      IF (pole_sud) THEN 
+      
+        DO iq = 1, nq
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l = 1, llm
+  
+             DO ij = 1, iim
+               qpps(ij) = aire(ij+ip1jm) * q(ij+ip1jm,l,iq)
+             ENDDO
+               qps  =  SSUM(iim,qpps,1)/apols 
+  
+             DO ij = 1, iip1
+               q(ij+ip1jm,l,iq)  = qps
+             ENDDO    
+  
+          ENDDO
+c$OMP END DO NOWAIT
+
+        ENDDO
+      
+      ENDIF
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb,ije,'integrd 409')
+        endif !if (ok_iso_verif) then
+      
+! Ehouarn: forget about finvmaold
+!c         CALL  SCOPY( ijp1llm , finvmasse, 1, finvmaold, 1 )
+
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+!      DO l = 1, llm      
+!        finvmaold(ijb:ije,l)=finvmasse(ijb:ije,l)        
+!      ENDDO
+!c$OMP END DO NOWAIT
+
+      endif ! of if (planet_type.eq."earth")
+
+c
+c
+c     .....   FIN  de l'integration  de   q    .......
+
+15    continue
+          !write(*,*) 'integrd 410'
+
+c$OMP DO SCHEDULE(STATIC)
+      DO ij=ijb,ije  
+        ps0(ij)=ps(ij)
+      ENDDO
+c$OMP END DO NOWAIT 
+
+c    .................................................................
+
+
+      IF( leapf )  THEN
+c       CALL SCOPY (    ip1jmp1 ,  pscr   , 1,   psm1  , 1 )
+c       CALL SCOPY ( ip1jmp1*llm, massescr, 1,  massem1, 1 )
+c$OMP DO SCHEDULE(STATIC)
+      DO ij=ijb,ije  
+        psm1(ij)=pscr(ij)
+      ENDDO
+c$OMP END DO NOWAIT 
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l = 1, llm
+            massem1(ijb:ije,l)=massescr(ijb:ije,l)
+          ENDDO
+c$OMP END DO NOWAIT          
+      END IF
+c$OMP BARRIER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/integrd_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/integrd_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/integrd_mod.F90	(revision 3330)
@@ -0,0 +1,46 @@
+MODULE integrd_mod
+
+  REAL,POINTER,SAVE :: p(:,:)
+  REAL,POINTER,SAVE :: deltap(:,:)
+  REAL,POINTER,SAVE :: ps(:)
+
+
+  
+CONTAINS
+
+  SUBROUTINE integrd_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  USE advect_new_mod,ONLY : advect_new_allocate
+  IMPLICIT NONE
+  TYPE(distrib),POINTER :: d
+
+
+    d=>distrib_caldyn
+    CALL allocate_u(p,llmp1,d)
+    CALL allocate_u(deltap,llm,d)
+    CALL allocate_u(ps,d)
+
+    
+  END SUBROUTINE integrd_allocate
+  
+  SUBROUTINE integrd_switch_caldyn(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(p,distrib_caldyn,dist)
+    CALL switch_u(deltap,distrib_caldyn,dist)
+    CALL switch_u(ps,distrib_caldyn,dist)
+
+    
+    
+  END SUBROUTINE integrd_switch_caldyn
+  
+
+  
+END MODULE integrd_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_gam_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_gam_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_gam_loc.F	(revision 3330)
@@ -0,0 +1,65 @@
+      SUBROUTINE laplacien_gam_loc ( klevel, cuvsga, cvusga, unsaigam,
+     *                        unsapolnga, unsapolsga, teta, divgra )
+
+c  P. Le Van
+c
+c   ************************************************************
+c
+c      ....   calcul de  (div( grad ))   de   teta  .....
+c   ************************************************************
+c    klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    ............     variables  en arguments    ..........
+c
+      INTEGER klevel
+      REAL teta( ijb_u:ije_u,klevel ), divgra( ijb_u:ije_u,klevel )
+      REAL cuvsga(ip1jm) , cvusga( ip1jmp1 )
+      REAL unsaigam(ip1jmp1)
+      REAL unsapolnga, unsapolsga
+c
+c    ...........    variables  locales    .................
+c
+      REAL ghy(ijb_v:ije_v,llm), ghx(ijb_u:ije_u,llm)
+c    ......................................................
+
+      INTEGER :: ijb,ije
+      INTEGER :: l      
+c
+c
+c   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )
+c   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..
+c   ...  unsairegam =  1. /  aire ** (- gamdissip )
+c
+
+c      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud ) ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,klevel      
+        divgra(ijb:ije,l)=teta(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+      CALL   grad_loc ( klevel, divgra, ghx, ghy )
+c
+      CALL  diverg_gam_loc ( klevel, cuvsga, cvusga,  unsaigam  ,
+     *                 unsapolnga, unsapolsga, ghx , ghy , divgra )
+
+c
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_loc.F	(revision 3330)
@@ -0,0 +1,58 @@
+      SUBROUTINE laplacien_loc ( klevel, teta, divgra )
+c
+c     P. Le Van
+c
+c   ************************************************************
+c    ....     calcul de  (div( grad ))   de   teta  .....
+c   ************************************************************
+c     klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      USE mod_filtreg_p
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    .........      variables  en arguments   ..............
+c
+      INTEGER klevel
+      REAL teta( ijb_u:ije_u,klevel ), divgra( ijb_u:ije_u,klevel )
+      INTEGER :: l
+c
+c    ............     variables  locales      ..............
+c
+      REAL ghy(ijb_v:ije_v,llm), ghx(ijb_u:ije_u,llm)
+c    .......................................................
+
+      
+      INTEGER :: ijb,ije,jjb,jje
+c
+c      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
+
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud ) ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,klevel      
+        divgra(ijb:ije,l)=teta(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      jjb=jj_begin-1
+      jje=jj_end+1
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud ) jje=jj_end
+      
+      CALL filtreg_p( divgra,jjb_u,jje_u,jjb,jje,jjp1, 
+     &                klevel,  2, 1, .TRUE., 1 )
+      CALL   grad_loc ( klevel,divgra,   ghx , ghy              )
+      CALL  divergf_loc ( klevel, ghx , ghy  , divgra           )
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_rot_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_rot_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_rot_loc.F	(revision 3330)
@@ -0,0 +1,47 @@
+      SUBROUTINE laplacien_rot_loc ( klevel, rotin, rotout,ghx,ghy )
+c
+c    P. Le Van
+c
+c   ************************************************************
+c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
+c   ************************************************************
+c
+c     klevel et rotin  sont des arguments  d'entree pour le s-prog
+c      rotout           est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      USE mod_filtreg_p
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c 
+c   ..........    variables  en  arguments     .............
+c
+      INTEGER klevel
+      REAL rotin(ijb_v:ije_v,klevel ), rotout( ijb_v:ije_v,klevel )
+c
+c   ..........    variables   locales       ................
+c
+      REAL ghy(ijb_v:ije_v,klevel), ghx(ijb_u:ije_u,klevel)
+c   ........................................................
+c
+c
+      INTEGER :: ijb,ije,jjb,jje
+      
+      jjb=jj_begin-1
+      jje=jj_end+1
+      
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud) jje=jj_end-1
+      
+      CALL  filtreg_p ( rotin ,jjb_v,jje_v,jjb,jje,jjm,
+     &                  klevel,2, 1, .FALSE., 1)
+
+      CALL   nxgrad_loc ( klevel, rotin,   ghx ,  ghy            )
+      CALL   rotatf_loc  ( klevel, ghx  ,   ghy , rotout         )
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_rotgam_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_rotgam_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/laplacien_rotgam_loc.F	(revision 3330)
@@ -0,0 +1,48 @@
+      SUBROUTINE laplacien_rotgam_loc ( klevel, rotin, rotout )
+c
+c     P. Le Van
+c
+c   ************************************************************
+c   ... calcul de  (rotat x nxgrad)_gam  du rotationnel rotin ..
+c   ************************************************************
+c     klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    .............   variables  en  arguments    ...........
+c
+      INTEGER klevel
+      REAL rotin( ijb_v:ije_v,klevel ), rotout( ijb_v:ije_v,klevel )
+c
+c   ............     variables   locales     ...............
+c
+      INTEGER l, ij
+      REAL ghy(ijb_v:ije_v,llm), ghx(ijb_u:ije_u,llm)
+c   ........................................................
+c
+      INTEGER :: ijb,ije
+      
+c
+
+      CALL   nxgrad_gam_loc ( klevel, rotin,   ghx ,   ghy  )
+      CALL   rotat_nfil_loc ( klevel, ghx  ,   ghy , rotout )
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1, klevel
+        DO ij = ijb, ije
+         rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/leapfrog_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/leapfrog_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/leapfrog_loc.F	(revision 3330)
@@ -0,0 +1,1832 @@
+! 
+! $Id$
+!
+c
+c
+#define DEBUG_IO
+#undef DEBUG_IO
+
+
+      SUBROUTINE leapfrog_loc(ucov0,vcov0,teta0,ps0,
+     &                        masse0,phis0,q0,time_0)
+
+       USE misc_mod
+       USE parallel_lmdz
+       USE times
+       USE mod_hallo
+       USE Bands
+       USE Write_Field
+       USE Write_Field_p
+       USE vampir
+       USE timer_filtre, ONLY : print_filtre_timer
+       USE infotrac
+       USE guide_loc_mod, ONLY : guide_main
+       USE getparam
+       USE control_mod
+       USE mod_filtreg_p
+       USE write_field_loc
+       USE allocate_field_mod
+       USE call_dissip_mod, ONLY : call_dissip
+       USE call_calfis_mod, ONLY : call_calfis
+       USE leapfrog_mod
+       use exner_hyb_loc_m, only: exner_hyb_loc
+       use exner_milieu_loc_m, only: exner_milieu_loc
+       USE comconst_mod, ONLY: cpp, dtvr, ihf
+       USE comvert_mod, ONLY: ap, bp, pressure_exner
+       USE logic_mod, ONLY: iflag_phys,ok_guide,forward,leapf,apphys,
+     &                      statcl,conser,apdiss,purmats,ok_strato
+       USE temps_mod, ONLY: itaufin,jD_ref,jH_ref,day_ini,
+     &                        day_ref,start_time,dt
+       
+      IMPLICIT NONE
+
+c      ......   Version  du 10/01/98    ..........
+
+c             avec  coordonnees  verticales hybrides 
+c   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   GCM LMD nouvelle grille
+c
+c=======================================================================
+c
+c  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
+c      et possibilite d'appeler une fonction f(y)  a derivee tangente
+c      hyperbolique a la  place de la fonction a derivee sinusoidale.
+
+c  ... Possibilite de choisir le shema pour l'advection de
+c        q  , en modifiant iadv dans traceur.def  (10/02) .
+c
+c      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
+c      Pour Van-Leer iadv=10 
+c
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comdissnew.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+      include "academic.h"
+      
+      REAL,INTENT(IN) :: time_0 ! not used
+
+c   dynamical variables:
+      REAL,INTENT(IN) :: ucov0(ijb_u:ije_u,llm)    ! zonal covariant wind
+      REAL,INTENT(IN) :: vcov0(ijb_v:ije_v,llm)    ! meridional covariant wind
+      REAL,INTENT(IN) :: teta0(ijb_u:ije_u,llm)    ! potential temperature
+      REAL,INTENT(IN) :: q0(ijb_u:ije_u,llm,nqtot) ! advected tracers
+      REAL,INTENT(IN) :: ps0(ijb_u:ije_u)          ! surface pressure (Pa)
+      REAL,INTENT(IN) :: masse0(ijb_u:ije_u,llm)   ! air mass
+      REAL,INTENT(IN) :: phis0(ijb_u:ije_u)        ! geopotentiat at the surface
+
+      real zqmin,zqmax
+
+!      REAL,SAVE,ALLOCATABLE :: p (:,:  )               ! pression aux interfac.des couches
+!      REAL,SAVE,ALLOCATABLE :: pks(:)                      ! exner au  sol
+!      REAL,SAVE,ALLOCATABLE :: pk(:,:)                   ! exner au milieu des couches
+!      REAL,SAVE,ALLOCATABLE :: pkf(:,:)                  ! exner filt.au milieu des couches
+!      REAL,SAVE,ALLOCATABLE :: phi(:,:)                  ! geopotentiel
+!      REAL,SAVE,ALLOCATABLE :: w(:,:)                    ! vitesse verticale
+
+c variables dynamiques intermediaire pour le transport
+!      REAL,SAVE,ALLOCATABLE :: pbaru(:,:),pbarv(:,:) !flux de masse
+
+c   variables dynamiques au pas -1
+!      REAL,SAVE,ALLOCATABLE :: vcovm1(:,:),ucovm1(:,:)
+!      REAL,SAVE,ALLOCATABLE :: tetam1(:,:),psm1(:)
+!      REAL,SAVE,ALLOCATABLE :: massem1(:,:)
+
+c   tendances dynamiques
+!      REAL,SAVE,ALLOCATABLE :: dv(:,:),du(:,:)
+!      REAL,SAVE,ALLOCATABLE :: dteta(:,:),dp(:)
+!      REAL,DIMENSION(:,:,:), ALLOCATABLE, SAVE :: dq
+
+c   tendances de la dissipation
+!      REAL,SAVE,ALLOCATABLE :: dvdis(:,:),dudis(:,:)
+!      REAL,SAVE,ALLOCATABLE :: dtetadis(:,:)
+
+c   tendances physiques
+      REAL,SAVE,ALLOCATABLE :: dvfi(:,:),dufi(:,:)
+      REAL,SAVE,ALLOCATABLE :: dtetafi(:,:)
+      REAL,SAVE,ALLOCATABLE :: dpfi(:)
+      REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: dqfi
+
+c   variables pour le fichier histoire
+      REAL dtav      ! intervalle de temps elementaire
+
+      REAL tppn(iim),tpps(iim),tpn,tps
+c
+      INTEGER itau,itaufinp1,iav
+!      INTEGER  iday ! jour julien
+      REAL       time 
+
+      REAL  SSUM 
+!      REAL,SAVE,ALLOCATABLE :: finvmaold(:,:)
+
+cym      LOGICAL  lafin
+      LOGICAL :: lafin
+      INTEGER ij,iq,l
+      INTEGER ik
+
+      real time_step, t_wrt, t_ops
+
+! jD_cur: jour julien courant
+! jH_cur: heure julienne courante
+      REAL :: jD_cur, jH_cur
+      INTEGER :: an, mois, jour
+      REAL :: secondes
+
+      logical :: physic
+      LOGICAL first,callinigrads
+
+      data callinigrads/.true./
+      character*10 string10
+
+!      REAL,SAVE,ALLOCATABLE :: flxw(:,:) ! flux de masse verticale
+
+c+jld variables test conservation energie
+!      REAL,SAVE,ALLOCATABLE :: ecin(:,:),ecin0(:,:)
+C     Tendance de la temp. potentiel d (theta)/ d t due a la 
+C     tansformation d'energie cinetique en energie thermique
+C     cree par la dissipation
+!      REAL,SAVE,ALLOCATABLE :: dtetaecdt(:,:)
+!      REAL,SAVE,ALLOCATABLE :: vcont(:,:),ucont(:,:)
+!      REAL,SAVE,ALLOCATABLE :: vnat(:,:),unat(:,:)
+      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+      CHARACTER*15 ztit
+!!      INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
+!      SAVE      ip_ebil_dyn
+!      DATA      ip_ebil_dyn/0/
+c-jld 
+
+      character*80 dynhist_file, dynhistave_file
+      character(len=*),parameter :: modname="leapfrog_loc"
+      character*80 abort_message
+
+
+      logical,PARAMETER :: dissip_conservative=.TRUE.
+ 
+      INTEGER testita
+      PARAMETER (testita = 9)
+
+      logical , parameter :: flag_verif = .false.
+      
+c declaration liees au parallelisme
+      INTEGER :: ierr
+      LOGICAL :: FirstCaldyn
+      LOGICAL :: FirstPhysic
+      INTEGER :: ijb,ije,j,i
+      type(Request) :: TestRequest
+      type(Request) :: Request_Dissip
+      type(Request) :: Request_physic
+
+      INTEGER :: true_itau
+      INTEGER :: iapptrac
+      INTEGER :: AdjustCount
+!      INTEGER :: var_time
+      LOGICAL :: ok_start_timer=.FALSE.
+      LOGICAL, SAVE :: firstcall=.TRUE.
+      TYPE(distrib),SAVE :: new_dist
+
+      if (ok_iso_verif) then
+         call check_isotopes(q0,ijb_u,ije_u,'leapfrog204: debut')
+      endif !if (ok_iso_verif) then
+      
+c$OMP MASTER
+      ItCount=0
+c$OMP END MASTER      
+      true_itau=0
+      FirstCaldyn=.TRUE.
+      FirstPhysic=.TRUE.
+      iapptrac=0
+      AdjustCount = 0
+      lafin=.false.
+      
+      if (nday>=0) then
+         itaufin   = nday*day_step
+      else
+         itaufin   = -nday
+      endif
+
+      itaufinp1 = itaufin +1
+
+      if (ok_iso_verif) then
+        call check_isotopes(q0,ijb_u,ije_u,'leapfrog 226')
+      endif !if (ok_iso_verif) then
+
+      itau = 0
+      physic=.true.
+      if (iflag_phys==0.or.iflag_phys==2) physic=.false.
+      CALL init_nan
+      CALL leapfrog_allocate
+      ucov=ucov0
+      vcov=vcov0
+      teta=teta0
+      ps=ps0
+      masse=masse0
+      phis=phis0
+      q=q0
+
+      if (ok_iso_verif) then
+        call check_isotopes(q,ijb_u,ije_u,'leapfrog 239')
+      endif !if (ok_iso_verif) then
+      
+!      iday = day_ini+itau/day_step
+!      time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+!         IF(time.GT.1.) THEN
+!          time = time-1.
+!          iday = iday+1
+!         ENDIF
+
+c Allocate variables depending on dynamic variable nqtot
+!$OMP MASTER
+      if (firstcall) then
+!      
+!      ALLOCATE(p(ijb_u:ije_u,llmp1))
+!      ALLOCATE(pks(ijb_u:ije_u))
+!      ALLOCATE(pk(ijb_u:ije_u,llm))
+!      ALLOCATE(pkf(ijb_u:ije_u,llm))
+!      ALLOCATE(phi(ijb_u:ije_u,llm))
+!      ALLOCATE(w(ijb_u:ije_u,llm))
+!      ALLOCATE(pbaru(ip1jmp1,llm),pbarv(ip1jm,llm))
+!      ALLOCATE(vcovm1(ijb_v:ije_v,llm),ucovm1(ijb_u:ije_u,llm))
+!      ALLOCATE(tetam1(ijb_u:ije_u,llm),psm1(ijb_u:ije_u))
+!      ALLOCATE(massem1(ijb_u:ije_u,llm))
+!      ALLOCATE(dv(ijb_v:ije_v,llm),du(ijb_u:ije_u,llm))
+!      ALLOCATE(dteta(ijb_u:ije_u,llm),dp(ijb_u:ije_u))      
+!      ALLOCATE(dvdis(ijb_v:ije_v,llm),dudis(ijb_u:ije_u,llm))
+!      ALLOCATE(dtetadis(ijb_u:ije_u,llm))
+      ALLOCATE(dvfi(ijb_v:ije_v,llm),dufi(ijb_u:ije_u,llm))
+      ALLOCATE(dtetafi(ijb_u:ije_u,llm))
+      ALLOCATE(dpfi(ijb_u:ije_u))
+!      ALLOCATE(dq(ijb_u:ije_u,llm,nqtot))
+      ALLOCATE(dqfi(ijb_u:ije_u,llm,nqtot))
+!      ALLOCATE(dqfi_tmp(iip1,llm,nqtot))
+!      ALLOCATE(finvmaold(ijb_u:ije_u,llm))
+!      ALLOCATE(flxw(ijb_u:ije_u,llm))
+!      ALLOCATE(ecin(ijb_u:ije_u,llm),ecin0(ijb_u:ije_u,llm))
+!      ALLOCATE(dtetaecdt(ijb_u:ije_u,llm))
+!      ALLOCATE(vcont(ijb_v:ije_v,llm),ucont(ijb_u:ije_u,llm))
+!      ALLOCATE(vnat(ijb_v:ije_v,llm),unat(ijb_u:ije_u,llm))
+      endif
+!$OMP END MASTER      
+!$OMP BARRIER
+
+!                CALL dynredem1_loc("restart.nc",0.0,
+!     &                           vcov,ucov,teta,q,masse,ps)
+
+
+c-----------------------------------------------------------------------
+c   On initialise la pression et la fonction d'Exner :
+c   --------------------------------------------------
+
+c$OMP MASTER
+      dq(:,:,:)=0.
+      CALL pression ( ijnb_u, ap, bp, ps, p       )
+c$OMP END MASTER
+      if (pressure_exner) then
+      CALL exner_hyb_loc( ijnb_u, ps, p, pks, pk, pkf)
+      else 
+        CALL exner_milieu_loc( ijnb_u, ps, p, pks, pk, pkf )
+      endif
+c-----------------------------------------------------------------------
+c   Debut de l'integration temporelle:
+c   ----------------------------------
+c et du parallelisme !!
+
+   1  CONTINUE ! Matsuno Forward step begins here
+
+c   date: (NB: date remains unchanged for Backward step)
+c   -----
+
+      jD_cur = jD_ref + day_ini - day_ref +                             &
+     &          (itau+1)/day_step
+      jH_cur = jH_ref + start_time +                                    &
+     &         mod(itau+1,day_step)/float(day_step) 
+      if (jH_cur > 1.0 ) then
+        jD_cur = jD_cur +1.
+        jH_cur = jH_cur -1.
+      endif
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 321')
+        endif !if (ok_iso_verif) then
+
+#ifdef CPP_IOIPSL
+      if (ok_guide) then
+        call guide_main(itau,ucov,vcov,teta,q,masse,ps)
+!$OMP BARRIER
+      endif
+#endif
+
+
+c
+c     IF( MOD( itau, 10* day_step ).EQ.0 )  THEN
+c       CALL  test_period ( ucov,vcov,teta,q,p,phis )
+c       PRINT *,' ----   Test_period apres continue   OK ! -----', itau
+c     ENDIF 
+c
+cym      CALL SCOPY( ijmllm ,vcov , 1, vcovm1 , 1 )
+cym      CALL SCOPY( ijp1llm,ucov , 1, ucovm1 , 1 )
+cym      CALL SCOPY( ijp1llm,teta , 1, tetam1 , 1 )
+cym      CALL SCOPY( ijp1llm,masse, 1, massem1, 1 )
+cym      CALL SCOPY( ip1jmp1, ps  , 1,   psm1 , 1 )
+
+       if (FirstCaldyn) then
+c$OMP MASTER
+         ucovm1=ucov
+         vcovm1=vcov
+         tetam1= teta
+         massem1= masse
+         psm1= ps
+         
+! Ehouarn: finvmaold is actually not used       
+!         finvmaold = masse
+c$OMP END MASTER
+c$OMP BARRIER
+!         CALL filtreg_p ( finvmaold ,jjb_u,jje_u,jjb_u,jje_u,jjp1, llm,
+!     &                    -2,2, .TRUE., 1 )
+       else
+! Save fields obtained at previous time step as '...m1'
+         ijb=ij_begin
+         ije=ij_end
+
+c$OMP MASTER           
+         psm1     (ijb:ije) = ps    (ijb:ije)
+c$OMP END MASTER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)         
+         DO l=1,llm      
+           ije=ij_end
+           ucovm1   (ijb:ije,l) = ucov  (ijb:ije,l)
+           tetam1   (ijb:ije,l) = teta  (ijb:ije,l)
+           massem1  (ijb:ije,l) = masse (ijb:ije,l)
+!           finvmaold(ijb:ije,l)=masse(ijb:ije,l)
+                 
+           if (pole_sud) ije=ij_end-iip1
+           vcovm1(ijb:ije,l) = vcov  (ijb:ije,l)
+       
+
+         ENDDO
+c$OMP ENDDO  
+
+
+! Ehouarn: finvmaold not used
+!          CALL filtreg_p(finvmaold ,jjb_u,jje_u,jj_begin,jj_end,jjp1, 
+!     .                    llm, -2,2, .TRUE., 1 )
+
+       endif ! of if (FirstCaldyn)
+       
+      forward = .TRUE.
+      leapf   = .FALSE.
+      dt      =  dtvr
+
+c   ...    P.Le Van .26/04/94  ....
+
+cym      CALL SCOPY   ( ijp1llm,   masse, 1, finvmaold,     1 )
+cym      CALL filtreg ( finvmaold ,jjp1, llm, -2,2, .TRUE., 1 )
+
+cym  ne sert a rien
+cym      call minmax(ijp1llm,q(:,:,3),zqmin,zqmax)
+
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 400')
+        endif !if (ok_iso_verif) then
+
+   2  CONTINUE ! Matsuno backward or leapfrog step begins here
+
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 402')
+        endif !if (ok_iso_verif) then
+
+c$OMP MASTER
+      ItCount=ItCount+1
+      if (MOD(ItCount,1)==1) then
+        debug=.true.
+      else
+        debug=.false.
+      endif
+c$OMP END MASTER
+c-----------------------------------------------------------------------
+
+c   date: (NB: only leapfrog step requires recomputing date)
+c   -----
+
+      IF (leapf) THEN
+        jD_cur = jD_ref + day_ini - day_ref +
+     &          (itau+1)/day_step
+        jH_cur = jH_ref + start_time +
+     &         mod(itau+1,day_step)/float(day_step) 
+        if (jH_cur > 1.0 ) then
+          jD_cur = jD_cur +1.
+          jH_cur = jH_cur -1.
+        endif
+      ENDIF
+
+c   gestion des appels de la physique et des dissipations:
+c   ------------------------------------------------------
+c
+c   ...    P.Le Van  ( 6/02/95 )  ....
+
+      apphys = .FALSE.
+      statcl = .FALSE.
+      conser = .FALSE.
+      apdiss = .FALSE.
+
+      IF( purmats ) THEN
+      ! Purely Matsuno time stepping
+         IF( MOD(itau,iconser) .EQ.0.AND.  forward    ) conser = .TRUE.
+         IF( MOD(itau,dissip_period ).EQ.0.AND..NOT.forward ) 
+     s        apdiss = .TRUE.
+         IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward 
+     s          .and. physic                        ) apphys = .TRUE.
+      ELSE
+      ! Leapfrog/Matsuno time stepping 
+         IF( MOD(itau   ,iconser) .EQ. 0              ) conser = .TRUE.
+         IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward )
+     s        apdiss = .TRUE.
+         IF( MOD(itau+1,iphysiq).EQ.0.AND.physic) apphys=.TRUE.
+      END IF
+
+! Ehouarn: for Shallow Water case (ie: 1 vertical layer),
+!          supress dissipation step
+      if (llm.eq.1) then
+        apdiss=.false.
+      endif
+
+cym    ---> Pour le moment      
+cym      apphys = .FALSE.
+      statcl = .FALSE.
+!     conser = .FALSE. ! ie: no output of control variables to stdout in //
+      
+      if (firstCaldyn) then
+c$OMP MASTER
+          call Set_Distrib(distrib_caldyn)
+c$OMP END MASTER
+c$OMP BARRIER
+          firstCaldyn=.FALSE.
+cym          call InitTime
+c$OMP MASTER
+          call Init_timer
+c$OMP END MASTER
+      endif
+
+c$OMP MASTER      
+      IF (ok_start_timer) THEN
+        CALL InitTime
+        ok_start_timer=.FALSE.
+      ENDIF      
+c$OMP END MASTER      
+
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 471')
+        endif !if (ok_iso_verif) then
+
+!ym  PAS D'AJUSTEMENT POUR LE MOMENT     
+      if (Adjust) then
+        AdjustCount=AdjustCount+1
+!        if (iapptrac==iapp_tracvl .and. (forward. OR . leapf)
+!     &         .and. itau/iphysiq>2 .and. Adjustcount>30) then
+        if (Adjustcount>1) then
+           AdjustCount=0
+c$OMP MASTER 
+           call allgather_timer_average
+
+        if (prt_level > 9) then
+        
+        print *,'*********************************'
+        print *,'******    TIMER CALDYN     ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_caldyn(i),timer_caldyn,i),
+     &            '+-',timer_delta(jj_nb_caldyn(i),timer_caldyn,i)
+        enddo
+      
+        print *,'*********************************'
+        print *,'******    TIMER VANLEER    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_vanleer(i),timer_vanleer,i),
+     &            '+-',timer_delta(jj_nb_vanleer(i),timer_vanleer,i)
+        enddo
+      
+        print *,'*********************************'
+        print *,'******    TIMER DISSIP    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_dissip(i),timer_dissip,i),
+     &             '+-',timer_delta(jj_nb_dissip(i),timer_dissip,i)
+        enddo
+        
+!        if (mpi_rank==0) call WriteBands
+        
+       endif
+       
+         call AdjustBands_caldyn(new_dist)
+!$OMP END MASTER
+!$OMP BARRIER
+         CALL leapfrog_switch_caldyn(new_dist)
+!$OMP BARRIER
+
+
+!$OMP MASTER
+         distrib_caldyn=new_dist
+         CALL set_distrib(distrib_caldyn)
+!$OMP END MASTER
+!$OMP BARRIER
+!         call Register_SwapFieldHallo(ucov,ucov,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(ucovm1,ucovm1,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(vcov,vcov,ip1jm,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(vcovm1,vcovm1,ip1jm,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(teta,teta,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(tetam1,tetam1,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(masse,masse,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(massem1,massem1,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(ps,ps,ip1jmp1,1,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(psm1,psm1,ip1jmp1,1,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(pkf,pkf,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(pk,pk,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(pks,pks,ip1jmp1,1,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(phis,phis,ip1jmp1,1,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(phi,phi,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(finvmaold,finvmaold,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+! 
+!        do j=1,nqtot
+!         call Register_SwapFieldHallo(q(:,:,j),q(:,:,j),ip1jmp1,llm,
+!     &                                jj_nb_caldyn,0,0,TestRequest)
+!        enddo
+!
+!         call Set_Distrib(distrib_caldyn)
+!         call SendRequest(TestRequest)
+!         call WaitRequest(TestRequest)
+         
+!$OMP MASTER
+        call AdjustBands_dissip(new_dist)
+!$OMP END MASTER
+!$OMP BARRIER
+        CALL leapfrog_switch_dissip(new_dist)
+!$OMP BARRIER
+!$OMP MASTER
+        distrib_dissip=new_dist
+!$OMP END MASTER
+!$OMP BARRIER
+!        call AdjustBands_physic
+
+c$OMP MASTER  
+        if (mpi_rank==0) call WriteBands
+c$OMP END MASTER  
+
+
+      endif
+      endif       
+     
+      
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 589')
+        endif !if (ok_iso_verif) then
+      
+c-----------------------------------------------------------------------
+c   calcul des tendances dynamiques:
+c   --------------------------------
+c$OMP BARRIER
+c$OMP MASTER
+       call VTb(VThallo)
+c$OMP END MASTER
+
+       call Register_Hallo_u(ucov,llm,1,1,1,1,TestRequest)
+       call Register_Hallo_v(vcov,llm,1,1,1,1,TestRequest)
+       call Register_Hallo_u(teta,llm,1,1,1,1,TestRequest)
+       call Register_Hallo_u(ps,1,1,2,2,1,TestRequest)
+       call Register_Hallo_u(pkf,llm,1,1,1,1,TestRequest)
+       call Register_Hallo_u(pk,llm,1,1,1,1,TestRequest)
+       call Register_Hallo_u(pks,1,1,1,1,1,TestRequest)
+       call Register_Hallo_u(p,llmp1,1,1,1,1,TestRequest)
+       
+c       do j=1,nqtot
+c         call Register_Hallo(q(1,1,j),ip1jmp1,llm,1,1,1,1,
+c     *                       TestRequest)
+c        enddo
+
+       call SendRequest(TestRequest)
+c$OMP BARRIER
+       call WaitRequest(TestRequest)
+
+c$OMP MASTER
+       call VTe(VThallo)
+c$OMP END MASTER
+c$OMP BARRIER
+      
+      if (debug) then        
+        call WriteField_u('ucov',ucov)
+        call WriteField_v('vcov',vcov)
+        call WriteField_u('teta',teta)
+        call WriteField_u('ps',ps)
+        call WriteField_u('masse',masse)
+        call WriteField_u('pk',pk)
+        call WriteField_u('pks',pks)
+        call WriteField_u('pkf',pkf)
+        call WriteField_u('phis',phis)
+        do j=1,nqtot
+          call WriteField_u('q'//trim(int2str(j)),
+     .                q(:,:,j))
+        enddo
+      endif
+
+      
+      True_itau=True_itau+1
+
+c$OMP MASTER
+      IF (prt_level>9) THEN
+        WRITE(lunout,*)"leapfrog_p: Iteration No",True_itau
+      ENDIF
+
+
+      call start_timer(timer_caldyn)
+
+      ! compute geopotential phi()
+      CALL geopot_loc  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+        
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 651')
+        endif !if (ok_iso_verif) then
+      
+      call VTb(VTcaldyn)
+c$OMP END MASTER
+!      var_time=time+iday-day_ini
+
+c$OMP BARRIER
+!      CALL FTRACE_REGION_BEGIN("caldyn")
+      time = jD_cur + jH_cur 
+
+      CALL caldyn_loc 
+     $  ( itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
+     $    phi,conser,du,dv,dteta,dp,w, pbaru,pbarv, time )
+
+!      CALL FTRACE_REGION_END("caldyn")
+
+c$OMP MASTER
+      if (mpi_rank==0.AND.conser) THEN
+         WRITE(lunout,*) 'leapfrog_loc, Time step: ',itau,' Day:',time
+      ENDIF
+      call VTe(VTcaldyn)
+c$OMP END MASTER      
+
+#ifdef DEBUG_IO    
+      call WriteField_u('du',du)
+      call WriteField_v('dv',dv)
+      call WriteField_u('dteta',dteta)
+      call WriteField_u('dp',dp)
+      call WriteField_u('w',w)
+      call WriteField_u('pbaru',pbaru)
+      call WriteField_v('pbarv',pbarv)
+      call WriteField_u('p',p)
+      call WriteField_u('masse',masse)
+      call WriteField_u('pk',pk)
+#endif
+c-----------------------------------------------------------------------
+c   calcul des tendances advection des traceurs (dont l'humidite)
+c   -------------------------------------------------------------
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,
+     &           'leapfrog 686: avant caladvtrac')
+        endif !if (ok_iso_verif) then
+      
+      IF( forward. OR . leapf )  THEN
+! Ehouarn: NB: fields sent to advtrac are those at the beginning of the time step
+        !write(*,*) 'leapfrog 679: avant CALL caladvtrac_loc'
+         CALL caladvtrac_loc(q,pbaru,pbarv,
+     *        p, masse, dq,  teta,
+     .        flxw,pk, iapptrac)
+
+         !write(*,*) 'leapfrog 719'
+         if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,
+     &           'leapfrog 698: apres caladvtrac')
+         endif !if (ok_iso_verif) then
+
+!      do j=1,nqtot
+!        call WriteField_u('qadv'//trim(int2str(j)),q(:,:,j))
+!      enddo
+
+! Ehouarn: Storage of mass flux for off-line tracers... not implemented...
+
+      ENDIF ! of IF( forward. OR . leapf )
+
+
+c-----------------------------------------------------------------------
+c   integrations dynamique et traceurs:
+c   ----------------------------------
+
+c$OMP MASTER 
+       call VTb(VTintegre)
+c$OMP END MASTER
+#ifdef DEBUG_IO    
+      if (true_itau>20) then
+      call WriteField_u('ucovm1',ucovm1)
+      call WriteField_v('vcovm1',vcovm1)
+      call WriteField_u('tetam1',tetam1)
+      call WriteField_u('psm1',psm1)
+      call WriteField_u('ucov_int',ucov)
+      call WriteField_v('vcov_int',vcov)
+      call WriteField_u('teta_int',teta)
+      call WriteField_u('ps_int',ps)
+      endif
+#endif
+c$OMP BARRIER
+!       CALL FTRACE_REGION_BEGIN("integrd")
+
+       !write(*,*) 'leapfrog 720' 
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 756')
+        endif !if (ok_iso_verif) then
+
+       ! CRisi: pourquoi aller jusqu'à 2 et non pas jusqu'à nqtot?? 
+       CALL integrd_loc ( nqtot,vcovm1,ucovm1,tetam1,psm1,massem1 ,
+     $         dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis)
+!     $              finvmaold                                    )
+
+       !write(*,*) 'leapfrog 724'       
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 762')
+        endif !if (ok_iso_verif) then 
+ 
+!       CALL FTRACE_REGION_END("integrd")
+c$OMP BARRIER
+#ifdef DEBUG_IO    
+      call WriteField_u('ucovm1',ucovm1)
+      call WriteField_v('vcovm1',vcovm1)
+      call WriteField_u('tetam1',tetam1)
+      call WriteField_u('psm1',psm1)
+      call WriteField_u('ucov_int',ucov)
+      call WriteField_v('vcov_int',vcov)
+      call WriteField_u('teta_int',teta)
+      call WriteField_u('ps_int',ps)
+#endif    
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 775')
+        endif !if (ok_iso_verif) then
+
+c      do j=1,nqtot
+c        call WriteField_p('q'//trim(int2str(j)),
+c     .                reshape(q(:,:,j),(/iip1,jmp1,llm/)))
+c        call WriteField_p('dq'//trim(int2str(j)),
+c     .                reshape(dq(:,:,j),(/iip1,jmp1,llm/)))
+c      enddo
+
+
+c$OMP MASTER 
+       call VTe(VTintegre)
+c$OMP END MASTER
+c .P.Le Van (26/04/94  ajout de  finvpold dans l'appel d'integrd)
+c
+c-----------------------------------------------------------------------
+c   calcul des tendances physiques:
+c   -------------------------------
+c    ########   P.Le Van ( Modif le  6/02/95 )   ###########
+c
+       IF( purmats )  THEN
+          IF( itau.EQ.itaufin.AND..NOT.forward ) lafin = .TRUE.
+       ELSE
+          IF( itau+1. EQ. itaufin )              lafin = .TRUE.
+       ENDIF
+
+cc$OMP END PARALLEL
+
+c
+c
+       IF( apphys )  THEN
+       
+         CALL call_calfis(itau,lafin,ucov,vcov,teta,masse,ps,  
+     &                     phis,q,flxw)
+! #ifdef DEBUG_IO    
+!         call WriteField_u('ucovfi',ucov)
+!         call WriteField_v('vcovfi',vcov)
+!         call WriteField_u('tetafi',teta)
+!         call WriteField_u('pfi',p)
+!         call WriteField_u('pkfi',pk)
+!         do j=1,nqtot
+!           call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+!         enddo
+! #endif
+! c
+! c     .......   Ajout   P.Le Van ( 17/04/96 )   ...........
+! c
+! cc$OMP PARALLEL DEFAULT(SHARED)
+! cc$OMP+         PRIVATE(rdaym_ini,rdayvrai,ijb,ije)
+
+! c$OMP MASTER
+!          call suspend_timer(timer_caldyn)
+
+!          write(lunout,*)
+!      &   'leapfrog_p: Entree dans la physique : Iteration No ',true_itau
+! c$OMP END MASTER
+
+!          CALL pression_loc (  ip1jmp1, ap, bp, ps,  p      )
+
+! c$OMP BARRIER
+!          CALL exner_hyb_loc(  ip1jmp1, ps, p,pks, pk, pkf )
+! c$OMP BARRIER
+!            jD_cur = jD_ref + day_ini - day_ref
+!      $        + int (itau * dtvr / daysec) 
+!            jH_cur = jH_ref +                                            &
+!      &              (itau * dtvr / daysec - int(itau * dtvr / daysec)) 
+! !         call ju2ymds(jD_cur+jH_cur, an, mois, jour, secondes)
+
+! c rajout debug
+! c       lafin = .true.
+
+
+! c   Inbterface avec les routines de phylmd (phymars ... )
+! c   -----------------------------------------------------
+
+! c+jld
+
+! c  Diagnostique de conservation de l'energie : initialisation
+!  
+! c-jld
+! c$OMP BARRIER
+! c$OMP MASTER
+!         call VTb(VThallo)
+! c$OMP END MASTER
+
+! #ifdef DEBUG_IO    
+!         call WriteField_u('ucovfi',ucov)
+!         call WriteField_v('vcovfi',vcov)
+!         call WriteField_u('tetafi',teta)
+!         call WriteField_u('pfi',p)
+!         call WriteField_u('pkfi',pk)
+! #endif
+!         call SetTag(Request_physic,800)
+!         
+!         call Register_SwapField_u(ucov,ucov,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_v(vcov,vcov,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+
+!         call Register_SwapField_u(teta,teta,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_u(masse,masse,distrib_physic,
+!      *                            Request_physic,up=1,down=2)
+
+!         call Register_SwapField_u(p,p,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_u(pk,pk,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_u(phis,phis,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_u(phi,phi,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_u(w,w,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call Register_SwapField_u(q,q,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+
+!         call Register_SwapField_u(flxw,flxw,distrib_physic,
+!      *                            Request_physic,up=2,down=2)
+!         
+!         call SendRequest(Request_Physic)
+! c$OMP BARRIER
+!         call WaitRequest(Request_Physic)       
+
+! c$OMP BARRIER
+! c$OMP MASTER
+!         call Set_Distrib(distrib_Physic)
+!         call VTe(VThallo)
+!         
+!         call VTb(VTphysiq)
+! c$OMP END MASTER
+! c$OMP BARRIER
+
+! #ifdef DEBUG_IO    
+!       call WriteField_u('ucovfi',ucov)
+!       call WriteField_v('vcovfi',vcov)
+!       call WriteField_u('tetafi',teta)
+!       call WriteField_u('pfi',p)
+!       call WriteField_u('pkfi',pk)
+!       do j=1,nqtot
+!         call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+!       enddo
+! #endif
+!        STOP
+! c$OMP BARRIER
+! !        CALL FTRACE_REGION_BEGIN("calfis")
+!         CALL calfis_loc(lafin ,jD_cur, jH_cur,
+!      $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
+!      $               du,dv,dteta,dq,
+!      $               flxw,
+!      $               dufi,dvfi,dtetafi,dqfi,dpfi  )
+! !        CALL FTRACE_REGION_END("calfis")
+! !        ijb=ij_begin
+! !        ije=ij_end  
+! !        if ( .not. pole_nord) then
+! !c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+! !          DO l=1,llm
+! !          dufi_tmp(1:iip1,l)   = dufi(ijb:ijb+iim,l) 
+! !          dvfi_tmp(1:iip1,l)   = dvfi(ijb:ijb+iim,l)  
+! !          dtetafi_tmp(1:iip1,l)= dtetafi(ijb:ijb+iim,l)  
+! !          dqfi_tmp(1:iip1,l,:) = dqfi(ijb:ijb+iim,l,:)  
+! !          ENDDO
+! !c$OMP END DO NOWAIT
+! !
+! !c$OMP MASTER
+! !          dpfi_tmp(1:iip1)     = dpfi(ijb:ijb+iim)  
+! !c$OMP END MASTER
+! !        endif ! of if ( .not. pole_nord)
+
+! !c$OMP BARRIER
+! !c$OMP MASTER
+! !        call Set_Distrib(distrib_physic_bis)
+
+! !        call VTb(VThallo)
+! !c$OMP END MASTER
+! !c$OMP BARRIER
+! ! 
+! !        call Register_Hallo_u(dufi,llm,
+! !     *                      1,0,0,1,Request_physic)
+! !        
+! !        call Register_Hallo_v(dvfi,llm,
+! !     *                      1,0,0,1,Request_physic)
+! !        
+! !        call Register_Hallo_u(dtetafi,llm,
+! !     *                      1,0,0,1,Request_physic)
+! !
+! !        call Register_Hallo_u(dpfi,1,
+! !     *                      1,0,0,1,Request_physic)
+! !
+! !        do j=1,nqtot
+! !          call Register_Hallo_u(dqfi(ijb_u,1,j),llm,
+! !     *                        1,0,0,1,Request_physic)
+! !        enddo
+! !        
+! !        call SendRequest(Request_Physic)
+! !c$OMP BARRIER
+! !        call WaitRequest(Request_Physic)
+! !             
+! !c$OMP BARRIER
+! !c$OMP MASTER
+! !        call VTe(VThallo)
+! ! 
+! !        call set_Distrib(distrib_Physic)
+! !c$OMP END MASTER
+! !c$OMP BARRIER        
+! !                ijb=ij_begin
+! !        if (.not. pole_nord) then
+! !        
+! !c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+! !          DO l=1,llm
+! !            dufi(ijb:ijb+iim,l) = dufi(ijb:ijb+iim,l)+dufi_tmp(1:iip1,l)
+! !            dvfi(ijb:ijb+iim,l) = dvfi(ijb:ijb+iim,l)+dvfi_tmp(1:iip1,l) 
+! !            dtetafi(ijb:ijb+iim,l) = dtetafi(ijb:ijb+iim,l)
+! !     &                              +dtetafi_tmp(1:iip1,l)
+! !            dqfi(ijb:ijb+iim,l,:) = dqfi(ijb:ijb+iim,l,:)
+! !     &                              + dqfi_tmp(1:iip1,l,:)
+! !          ENDDO
+! !c$OMP END DO NOWAIT
+! !
+! !c$OMP MASTER
+! !          dpfi(ijb:ijb+iim)   = dpfi(ijb:ijb+iim)+ dpfi_tmp(1:iip1)
+! !c$OMP END MASTER
+! !          
+! !        endif ! of if (.not. pole_nord)
+
+! #ifdef DEBUG_IO           
+!         call WriteField_u('dufi',dufi)
+!         call WriteField_v('dvfi',dvfi) 
+!         call WriteField_u('dtetafi',dtetafi)
+!         call WriteField_u('dpfi',dpfi)
+!         do j=1,nqtot
+!           call WriteField_u('dqfi'//trim(int2str(j)),dqfi(:,:,j))
+!        enddo
+! #endif
+
+! c$OMP BARRIER
+
+! c      ajout des tendances physiques:
+! c      ------------------------------
+! #ifdef DEBUG_IO    
+!         call WriteField_u('ucovfi',ucov)
+!         call WriteField_v('vcovfi',vcov)
+!         call WriteField_u('tetafi',teta)
+!         call WriteField_u('psfi',ps)
+!         do j=1,nqtot
+!           call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+!        enddo
+! #endif
+
+!          IF (ok_strato) THEN
+!            CALL top_bound_loc( vcov,ucov,teta,masse,dufi,dvfi,dtetafi)
+!          ENDIF
+
+! #ifdef DEBUG_IO           
+!         call WriteField_u('ucovfi',ucov)
+!         call WriteField_v('vcovfi',vcov)
+!         call WriteField_u('tetafi',teta)
+!         call WriteField_u('psfi',ps)
+!         do j=1,nqtot
+!           call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+!        enddo
+! #endif
+
+!           CALL addfi_loc( dtphys, leapf, forward   ,
+!      $                  ucov, vcov, teta , q   ,ps ,
+!      $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
+
+! #ifdef DEBUG_IO    
+!         call WriteField_u('ucovfi',ucov)
+!         call WriteField_v('vcovfi',vcov)
+!         call WriteField_u('tetafi',teta)
+!         call WriteField_u('psfi',ps)
+!         do j=1,nqtot
+!           call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+!        enddo
+! #endif
+
+! c$OMP BARRIER
+! c$OMP MASTER
+!         call VTe(VTphysiq)
+
+!         call VTb(VThallo)
+! c$OMP END MASTER
+
+!         call SetTag(Request_physic,800)
+!         call Register_SwapField_u(ucov,ucov,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_v(vcov,vcov,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_u(teta,teta,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_u(masse,masse,
+!      *                               distrib_caldyn,Request_physic)
+
+!         call Register_SwapField_u(p,p,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_u(pk,pk,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_u(phis,phis,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_u(phi,phi,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call Register_SwapField_u(w,w,
+!      *                               distrib_caldyn,Request_physic)
+
+!         call Register_SwapField_u(q,q,
+!      *                               distrib_caldyn,Request_physic)
+!         
+!         call SendRequest(Request_Physic)
+! c$OMP BARRIER
+!         call WaitRequest(Request_Physic)     
+
+! c$OMP BARRIER
+! c$OMP MASTER
+!        call VTe(VThallo)
+!        call set_distrib(distrib_caldyn)
+! c$OMP END MASTER
+! c$OMP BARRIER
+! c
+! c  Diagnostique de conservation de l'energie : difference
+!       IF (ip_ebil_dyn.ge.1 ) THEN 
+!           ztit='bil phys'
+!           CALL diagedyn(ztit,2,1,1,dtphys
+!      e  , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+!       ENDIF 
+
+! #ifdef DEBUG_IO    
+!         call WriteField_u('ucovfi',ucov)
+!         call WriteField_v('vcovfi',vcov)
+!         call WriteField_u('tetafi',teta)
+!         call WriteField_u('psfi',ps)
+!         do j=1,nqtot
+!           call WriteField_u('qfi'//trim(int2str(j)),q(:,:,j))
+!        enddo
+! #endif
+
+
+! c-jld
+c$OMP MASTER
+         if (FirstPhysic) then
+           ok_start_timer=.TRUE.
+           FirstPhysic=.false.
+         endif
+c$OMP END MASTER
+       ENDIF ! of IF( apphys )
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1132')
+        endif !if (ok_iso_verif) then
+        !write(*,*) 'leapfrog 1134: iflag_phys=',iflag_phys
+
+      IF(iflag_phys.EQ.2) THEN ! "Newtonian" case
+c$OMP MASTER
+         if (FirstPhysic) then
+           ok_start_timer=.TRUE.
+           FirstPhysic=.false.
+         endif
+c$OMP END MASTER
+
+
+c   Calcul academique de la physique = Rappel Newtonien + fritcion 
+c   --------------------------------------------------------------
+cym       teta(:,:)=teta(:,:)
+cym     s  -iphysiq*dtvr*(teta(:,:)-tetarappel(:,:))/taurappel
+       ijb=ij_begin
+       ije=ij_end
+!LF       teta(ijb:ije,:)=teta(ijb:ije,:)
+!LF     s  -iphysiq*dtvr*(teta(ijb:ije,:)-tetarappel(ijb:ije,:))/taurappel
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+       do l=1,llm
+       teta(ijb:ije,l)=teta(ijb:ije,l) -dtvr*
+     &        (teta(ijb:ije,l)-tetarappel(ijb:ije,l))*
+     &                 (knewt_g+knewt_t(l)*clat4(ijb:ije))        
+       enddo
+!$OMP END DO
+
+!$OMP MASTER
+       if (planet_type.eq."giant") then
+         ! add an intrinsic heat flux at the base of the atmosphere
+         teta(ijb:ije,1) = teta(ijb:ije,1)
+     &        + dtvr * aire(ijb:ije) * ihf / cpp / masse(ijb:ije,1)
+       endif
+!$OMP END MASTER
+!$OMP BARRIER
+
+
+       call Register_Hallo_u(ucov,llm,0,1,1,0,Request_Physic)
+       call Register_Hallo_v(vcov,llm,1,1,1,1,Request_Physic)
+       call SendRequest(Request_Physic)
+c$OMP BARRIER
+       call WaitRequest(Request_Physic)     
+c$OMP BARRIER
+       call friction_loc(ucov,vcov,dtvr)
+!$OMP BARRIER
+
+        ! Sponge layer (if any)
+        IF (ok_strato) THEN
+          CALL top_bound_loc(vcov,ucov,teta,masse,dtvr)
+!$OMP BARRIER
+        ENDIF ! of IF (ok_strato) 
+      ENDIF ! of IF(iflag_phys.EQ.2)
+
+
+        CALL pression_loc ( ip1jmp1, ap, bp, ps, p                  )
+c$OMP BARRIER
+        if (pressure_exner) then
+        CALL exner_hyb_loc( ijnb_u, ps, p, pks, pk, pkf )
+        else 
+          CALL exner_milieu_loc( ijnb_u, ps, p, pks, pk, pkf )
+        endif
+c$OMP BARRIER
+        CALL massdair_loc(p,masse)
+c$OMP BARRIER
+
+cc$OMP END PARALLEL
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1196')
+        endif !if (ok_iso_verif) then
+
+c-----------------------------------------------------------------------
+c   dissipation horizontale et verticale  des petites echelles:
+c   ----------------------------------------------------------
+      !write(*,*) 'leapfrog 1163: apdiss=',apdiss
+      IF(apdiss) THEN
+      
+        CALL call_dissip(ucov,vcov,teta,p,pk,ps)
+!cc$OMP  PARALLEL DEFAULT(SHARED) 
+!cc$OMP+          PRIVATE(ijb,ije,tppn,tpn,tpps,tps)
+!c$OMP MASTER
+!        call suspend_timer(timer_caldyn)
+!        
+!c       print*,'Entree dans la dissipation : Iteration No ',true_itau
+!c   calcul de l'energie cinetique avant dissipation
+!c       print *,'Passage dans la dissipation'
+
+!        call VTb(VThallo)
+!c$OMP END MASTER
+
+!c$OMP BARRIER
+
+!        call Register_SwapField_u(ucov,ucov,distrib_dissip,
+!     *                            Request_dissip,up=1,down=1)
+
+!        call Register_SwapField_v(vcov,vcov,distrib_dissip,
+!     *                            Request_dissip,up=1,down=1)
+
+!        call Register_SwapField_u(teta,teta,distrib_dissip,
+!     *                            Request_dissip)
+
+!        call Register_SwapField_u(p,p,distrib_dissip,
+!     *                            Request_dissip)
+
+!        call Register_SwapField_u(pk,pk,distrib_dissip,
+!     *                            Request_dissip)
+
+!        call SendRequest(Request_dissip)       
+!c$OMP BARRIER
+!        call WaitRequest(Request_dissip)       
+
+!c$OMP BARRIER
+!c$OMP MASTER
+!        call set_distrib(distrib_dissip)
+!        call VTe(VThallo)
+!        call VTb(VTdissipation)
+!        call start_timer(timer_dissip)
+!c$OMP END MASTER
+!c$OMP BARRIER
+
+!        call covcont_loc(llm,ucov,vcov,ucont,vcont)
+!        call enercin_loc(vcov,ucov,vcont,ucont,ecin0)
+
+!c   dissipation
+
+!!        CALL FTRACE_REGION_BEGIN("dissip")
+!        CALL dissip_loc(vcov,ucov,teta,p,dvdis,dudis,dtetadis)
+
+!#ifdef DEBUG_IO    
+!        call WriteField_u('dudis',dudis)
+!        call WriteField_v('dvdis',dvdis)
+!        call WriteField_u('dtetadis',dtetadis)
+!#endif
+! 
+!!      CALL FTRACE_REGION_END("dissip")
+!         
+!        ijb=ij_begin
+!        ije=ij_end
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+!        DO l=1,llm
+!          ucov(ijb:ije,l)=ucov(ijb:ije,l)+dudis(ijb:ije,l)
+!        ENDDO
+!c$OMP END DO NOWAIT        
+!        if (pole_sud) ije=ije-iip1
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+!        DO l=1,llm
+!          vcov(ijb:ije,l)=vcov(ijb:ije,l)+dvdis(ijb:ije,l)
+!        ENDDO
+!c$OMP END DO NOWAIT        
+
+!c       teta=teta+dtetadis
+
+
+!c------------------------------------------------------------------------
+!        if (dissip_conservative) then
+!C       On rajoute la tendance due a la transform. Ec -> E therm. cree
+!C       lors de la dissipation
+!c$OMP BARRIER
+!c$OMP MASTER
+!            call suspend_timer(timer_dissip)
+!            call VTb(VThallo)
+!c$OMP END MASTER
+!            call Register_Hallo_u(ucov,llm,1,1,1,1,Request_Dissip)
+!            call Register_Hallo_v(vcov,llm,1,1,1,1,Request_Dissip)
+!            call SendRequest(Request_Dissip)
+!c$OMP BARRIER
+!            call WaitRequest(Request_Dissip)
+!c$OMP MASTER
+!            call VTe(VThallo)
+!            call resume_timer(timer_dissip)
+!c$OMP END MASTER
+!c$OMP BARRIER            
+!            call covcont_loc(llm,ucov,vcov,ucont,vcont)
+!            call enercin_loc(vcov,ucov,vcont,ucont,ecin)
+!            
+!            ijb=ij_begin
+!            ije=ij_end
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+!            do l=1,llm
+!              do ij=ijb,ije
+!                dtetaecdt(ij,l)= (ecin0(ij,l)-ecin(ij,l))/ pk(ij,l)
+!                dtetadis(ij,l)=dtetadis(ij,l)+dtetaecdt(ij,l)
+!              enddo
+!            enddo
+!c$OMP END DO NOWAIT            
+!       endif
+
+!       ijb=ij_begin
+!       ije=ij_end
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+!         do l=1,llm
+!           do ij=ijb,ije
+!              teta(ij,l)=teta(ij,l)+dtetadis(ij,l)
+!           enddo
+!         enddo
+!c$OMP END DO NOWAIT         
+!c------------------------------------------------------------------------
+
+
+!c    .......        P. Le Van (  ajout  le 17/04/96  )   ...........
+!c   ...      Calcul de la valeur moyenne, unique de h aux poles  .....
+!c
+
+!        ijb=ij_begin
+!        ije=ij_end
+!         
+!        if (pole_nord) then
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+!          DO l  =  1, llm
+!            DO ij =  1,iim
+!             tppn(ij)  = aire(  ij    ) * teta(  ij    ,l)
+!            ENDDO
+!             tpn  = SSUM(iim,tppn,1)/apoln
+
+!            DO ij = 1, iip1
+!             teta(  ij    ,l) = tpn
+!            ENDDO
+!          ENDDO
+!c$OMP END DO NOWAIT
+
+!c$OMP MASTER               
+!          DO ij =  1,iim
+!            tppn(ij)  = aire(  ij    ) * ps (  ij    )
+!          ENDDO
+!            tpn  = SSUM(iim,tppn,1)/apoln
+!  
+!          DO ij = 1, iip1
+!            ps(  ij    ) = tpn
+!          ENDDO
+!c$OMP END MASTER
+!        endif
+!        
+!        if (pole_sud) then
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+!          DO l  =  1, llm
+!            DO ij =  1,iim
+!             tpps(ij)  = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+!            ENDDO
+!             tps  = SSUM(iim,tpps,1)/apols
+
+!            DO ij = 1, iip1
+!             teta(ij+ip1jm,l) = tps
+!            ENDDO
+!          ENDDO
+!c$OMP END DO NOWAIT
+
+!c$OMP MASTER               
+!          DO ij =  1,iim
+!            tpps(ij)  = aire(ij+ip1jm) * ps (ij+ip1jm)
+!          ENDDO
+!            tps  = SSUM(iim,tpps,1)/apols
+!  
+!          DO ij = 1, iip1
+!            ps(ij+ip1jm) = tps
+!          ENDDO
+!c$OMP END MASTER
+!        endif
+
+
+!c$OMP BARRIER
+!c$OMP MASTER
+!        call VTe(VTdissipation)
+
+!        call stop_timer(timer_dissip)
+!        
+!        call VTb(VThallo)
+!c$OMP END MASTER
+!        call Register_SwapField_u(ucov,ucov,distrib_caldyn,
+!     *                            Request_dissip)
+
+!        call Register_SwapField_v(vcov,vcov,distrib_caldyn,
+!     *                            Request_dissip)
+
+!        call Register_SwapField_u(teta,teta,distrib_caldyn,
+!     *                            Request_dissip)
+
+!        call Register_SwapField_u(p,p,distrib_caldyn,
+!     *                            Request_dissip)
+
+!        call Register_SwapField_u(pk,pk,distrib_caldyn,
+!     *                            Request_dissip)
+
+!        call SendRequest(Request_dissip)       
+!c$OMP BARRIER
+!        call WaitRequest(Request_dissip)       
+
+!c$OMP BARRIER
+!c$OMP MASTER
+!        call set_distrib(distrib_caldyn)
+!        call VTe(VThallo)
+!        call resume_timer(timer_caldyn)
+!c        print *,'fin dissipation'
+!c$OMP END MASTER
+!c$OMP BARRIER
+       END IF ! of IF(apdiss)
+
+cc$OMP END PARALLEL
+
+c ajout debug
+c              IF( lafin ) then  
+c                abort_message = 'Simulation finished'
+c                call abort_gcm(modname,abort_message,0)
+c              ENDIF
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1430')
+        endif !if (ok_iso_verif) then     
+ 
+c   ********************************************************************
+c   ********************************************************************
+c   .... fin de l'integration dynamique  et physique pour le pas itau ..
+c   ********************************************************************
+c   ********************************************************************
+
+c   preparation du pas d'integration suivant  ......
+cym      call WriteField('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+cym      call WriteField('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+c$OMP MASTER      
+      call stop_timer(timer_caldyn)
+c$OMP END MASTER
+      IF (itau==itaumax) then
+c$OMP MASTER
+         call allgather_timer_average
+         call barrier
+         if (mpi_rank==0) then
+            
+            print *,'*********************************'
+            print *,'******    TIMER CALDYN     ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_caldyn(i),timer_caldyn,i)
+            enddo
+            
+            print *,'*********************************'
+            print *,'******    TIMER VANLEER    ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_vanleer(i),timer_vanleer,i)
+            enddo
+            
+            print *,'*********************************'
+            print *,'******    TIMER DISSIP    ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_dissip(i),timer_dissip,i)
+            enddo
+            
+            print *,'*********************************'
+            print *,'******    TIMER PHYSIC    ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_physic(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_physic(i),timer_physic,i)
+            enddo
+            
+         endif  
+         CALL barrier
+         print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
+      print *,'Taille du Buffer MPI utilise (REAL*8)',MaxBufferSize_Used
+       print *, 'Temps total ecoule sur la parallelisation :',DiffTime()
+      print *, 'Temps CPU ecoule sur la parallelisation :',DiffCpuTime()
+         CALL print_filtre_timer
+c$OMP END MASTER
+         CALL dynredem1_loc("restart.nc",0.0,
+     .        vcov,ucov,teta,q,masse,ps)
+c$OMP MASTER
+         call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+         call finalize_inca
+#endif
+
+c$OMP MASTER
+         call finalize_parallel
+c$OMP END MASTER
+c$OMP BARRIER
+         RETURN
+      ENDIF
+      
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1509')
+        endif !if (ok_iso_verif) then
+
+      IF ( .NOT.purmats ) THEN
+c       ........................................................
+c       ..............  schema matsuno + leapfrog  ..............
+c       ........................................................
+
+            IF(forward. OR. leapf) THEN
+              itau= itau + 1
+!              iday= day_ini+itau/day_step
+!              time= REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+!                IF(time.GT.1.) THEN
+!                  time = time-1.
+!                  iday = iday+1
+!                ENDIF
+            ENDIF
+
+
+            IF( itau. EQ. itaufinp1 ) then
+
+              if (flag_verif) then
+                write(79,*) 'ucov',ucov
+                write(80,*) 'vcov',vcov
+                write(81,*) 'teta',teta
+                write(82,*) 'ps',ps
+                write(83,*) 'q',q
+                WRITE(85,*) 'q1 = ',q(:,:,1)
+                WRITE(86,*) 'q3 = ',q(:,:,3)
+              endif
+  
+
+c$OMP MASTER
+              call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+              call finalize_inca
+#endif
+
+c$OMP MASTER
+              call finalize_parallel
+c$OMP END MASTER
+              abort_message = 'Simulation finished'
+              call abort_gcm(modname,abort_message,0)
+              RETURN
+            ENDIF
+c-----------------------------------------------------------------------
+c   ecriture du fichier histoire moyenne:
+c   -------------------------------------
+
+            IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
+c$OMP BARRIER
+               IF(itau.EQ.itaufin) THEN
+                  iav=1
+               ELSE
+                  iav=0
+               ENDIF
+
+              ! Ehouarn: re-compute geopotential for outputs
+c$OMP BARRIER
+c$OMP MASTER
+              CALL geopot_loc(ip1jmp1,teta,pk,pks,phis,phi)
+c$OMP END MASTER
+c$OMP BARRIER
+
+#ifdef CPP_IOIPSL
+             IF (ok_dynzon) THEN 
+
+              CALL bilan_dyn_loc(2,dtvr*iperiod,dtvr*day_step*periodav, 
+     ,             ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 
+
+              ENDIF !ok_dynzon
+
+              IF (ok_dyn_ave) THEN
+                 CALL writedynav_loc(itau,vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+              ENDIF
+#endif
+            ENDIF
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1584')
+        endif !if (ok_iso_verif) then
+
+c-----------------------------------------------------------------------
+c   ecriture de la bande histoire:
+c   ------------------------------
+
+            IF( MOD(itau,iecri).EQ.0) THEN
+             ! Ehouarn: output only during LF or Backward Matsuno
+             if (leapf.or.(.not.leapf.and.(.not.forward))) then
+
+c$OMP BARRIER
+c$OMP MASTER
+              CALL geopot_loc(ip1jmp1,teta,pk,pks,phis,phi)
+c$OMP END MASTER
+c$OMP BARRIER
+       
+#ifdef CPP_IOIPSL
+             if (ok_dyn_ins) then
+                 CALL writehist_loc(itau,vcov,ucov,teta,pk,phi,q,
+     &                              masse,ps,phis)
+             endif
+#endif
+            endif ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
+           ENDIF ! of IF(MOD(itau,iecri).EQ.0)
+
+            IF(itau.EQ.itaufin) THEN
+
+c$OMP BARRIER
+
+!              if (planet_type.eq."earth") then
+! Write an Earth-format restart file
+                CALL dynredem1_loc("restart.nc",0.0,
+     &                           vcov,ucov,teta,q,masse,ps)
+!              endif ! of if (planet_type.eq."earth")
+
+!              CLOSE(99)
+            ENDIF ! of IF (itau.EQ.itaufin)
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1624')
+        endif !if (ok_iso_verif) then
+
+c-----------------------------------------------------------------------
+c   gestion de l'integration temporelle:
+c   ------------------------------------
+
+            IF( MOD(itau,iperiod).EQ.0 )    THEN
+                    GO TO 1
+            ELSE IF ( MOD(itau-1,iperiod). EQ. 0 ) THEN
+
+                   IF( forward )  THEN
+c      fin du pas forward et debut du pas backward
+
+                      forward = .FALSE.
+                        leapf = .FALSE.
+                           GO TO 2
+
+                   ELSE
+c      fin du pas backward et debut du premier pas leapfrog
+
+                        leapf =  .TRUE.
+                        dt  =  2.*dtvr
+                        GO TO 2
+                   END IF
+            ELSE
+
+c      ......   pas leapfrog  .....
+
+                 leapf = .TRUE.
+                 dt  = 2.*dtvr
+                 GO TO 2
+            END IF ! of IF (MOD(itau,iperiod).EQ.0)
+                   !    ELSEIF (MOD(itau-1,iperiod).EQ.0)
+
+
+      ELSE ! of IF (.not.purmats)
+
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1664')
+        endif !if (ok_iso_verif) then
+
+c       ........................................................
+c       ..............       schema  matsuno        ...............
+c       ........................................................
+            IF( forward )  THEN
+
+             itau =  itau + 1
+!             iday = day_ini+itau/day_step
+!             time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+!
+!                  IF(time.GT.1.) THEN
+!                   time = time-1.
+!                   iday = iday+1
+!                  ENDIF
+
+               forward =  .FALSE.
+               IF( itau. EQ. itaufinp1 ) then  
+c$OMP MASTER
+                 call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+                 call finalize_inca
+#endif
+
+c$OMP MASTER
+                 call finalize_parallel
+c$OMP END MASTER
+                 abort_message = 'Simulation finished'
+                 call abort_gcm(modname,abort_message,0)
+                 RETURN
+               ENDIF
+               GO TO 2
+
+            ELSE ! of IF(forward) i.e. backward step
+
+              
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1698')
+        endif !if (ok_iso_verif) then  
+
+              IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
+               IF(itau.EQ.itaufin) THEN
+                  iav=1
+               ELSE
+                  iav=0
+               ENDIF
+
+#ifdef CPP_IOIPSL
+              ! Ehouarn: re-compute geopotential for outputs
+c$OMP BARRIER
+c$OMP MASTER
+              CALL geopot_loc(ip1jmp1,teta,pk,pks,phis,phi)
+c$OMP END MASTER
+c$OMP BARRIER
+               
+               IF (ok_dynzon) THEN
+               CALL bilan_dyn_loc(2,dtvr*iperiod,dtvr*day_step*periodav,
+     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
+               ENDIF
+              
+               IF (ok_dyn_ave) THEN
+                 CALL writedynav_loc(itau,vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+               ENDIF
+#endif
+              ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
+
+
+               IF(MOD(itau,iecri         ).EQ.0) THEN
+
+c$OMP BARRIER
+c$OMP MASTER
+              CALL geopot_loc(ip1jmp1,teta,pk,pks,phis,phi)
+c$OMP END MASTER
+c$OMP BARRIER
+
+
+#ifdef CPP_IOIPSL
+              if (ok_dyn_ins) then
+                 CALL writehist_loc(itau,vcov,ucov,teta,pk,phi,q,
+     &                              masse,ps,phis)
+              endif ! of if (ok_dyn_ins)
+#endif
+              ENDIF ! of IF(MOD(itau,iecri).EQ.0)
+              
+
+              IF(itau.EQ.itaufin) THEN
+!                if (planet_type.eq."earth") then
+                   CALL dynredem1_loc("restart.nc",0.0,
+     .                               vcov,ucov,teta,q,masse,ps)
+!               endif ! of if (planet_type.eq."earth")
+              ENDIF ! of IF(itau.EQ.itaufin)
+
+              forward = .TRUE.
+              GO TO  1
+
+            ENDIF ! of IF (forward)
+
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb_u,ije_u,'leapfrog 1750')
+        endif !if (ok_iso_verif) then
+
+      END IF ! of IF(.not.purmats)
+c$OMP MASTER
+      call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+      call finalize_inca
+#endif
+
+c$OMP MASTER
+      call finalize_parallel
+c$OMP END MASTER
+      abort_message = 'Simulation finished'
+      call abort_gcm(modname,abort_message,0)
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/leapfrog_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/leapfrog_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/leapfrog_mod.F90	(revision 3330)
@@ -0,0 +1,157 @@
+MODULE leapfrog_mod
+
+  REAL,POINTER,SAVE :: ucov(:,:) ! zonal covariant wind
+  REAL,POINTER,SAVE :: vcov(:,:) ! meridional covariant wind
+  REAL,POINTER,SAVE :: teta(:,:) ! potential temperature
+  REAL,POINTER,SAVE :: ps(:) ! surface pressure
+  REAL,POINTER,SAVE :: masse(:,:) ! air mass
+  REAL,POINTER,SAVE :: phis(:) ! geopotential at the surface
+  REAL,POINTER,SAVE :: q(:,:,:) ! advected tracers
+  REAL,POINTER,SAVE :: p(:,:) ! interlayer pressure
+  REAL,POINTER,SAVE :: pks(:) ! Exner at the surface
+  REAL,POINTER,SAVE :: pk(:,:) ! Exner at mid-layer
+  REAL,POINTER,SAVE :: pkf(:,:) ! filtered Exner
+  REAL,POINTER,SAVE :: phi(:,:) ! geopotential
+  REAL,POINTER,SAVE :: w(:,:) ! vertical velocity
+  REAL,POINTER,SAVE :: pbaru(:,:)
+  REAL,POINTER,SAVE :: pbarv(:,:)
+  REAL,POINTER,SAVE :: vcovm1(:,:)
+  REAL,POINTER,SAVE :: ucovm1(:,:)
+  REAL,POINTER,SAVE :: tetam1(:,:)
+  REAL,POINTER,SAVE :: psm1(:)
+  REAL,POINTER,SAVE :: massem1(:,:)
+  REAL,POINTER,SAVE :: dv(:,:)
+  REAL,POINTER,SAVE :: du(:,:)
+  REAL,POINTER,SAVE :: dteta(:,:)
+  REAL,POINTER,SAVE :: dp(:)
+  REAL,POINTER,SAVE :: dq(:,:,:)
+  REAL,POINTER,SAVE :: finvmaold(:,:)
+  REAL,POINTER,SAVE :: flxw(:,:)
+  REAL,POINTER,SAVE :: unat(:,:)
+  REAL,POINTER,SAVE :: vnat(:,:)
+ 
+
+  
+CONTAINS
+
+  SUBROUTINE leapfrog_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  USE infotrac
+  USE caldyn_mod,ONLY : caldyn_allocate
+  USE integrd_mod,ONLY : integrd_allocate
+  USE caladvtrac_mod,ONLY : caladvtrac_allocate
+  USE call_calfis_mod,ONLY : call_calfis_allocate
+  USE call_dissip_mod, ONLY : call_dissip_allocate
+  IMPLICIT NONE
+  TYPE(distrib),POINTER :: d
+
+
+    d=>distrib_caldyn
+    CALL allocate_u(ucov,llm,d)
+    CALL allocate_v(vcov,llm,d)
+    CALL allocate_u(teta,llm,d)
+    CALL allocate_u(ps,d)
+    CALL allocate_u(masse,llm,d)
+    CALL allocate_u(phis,d)
+    CALL allocate_u(q,llm,nqtot,d)
+    CALL allocate_u(p,llmp1,d)
+    CALL allocate_u(pks,d)
+    CALL allocate_u(pk,llm,d)
+    CALL allocate_u(pkf,llm,d)
+    CALL allocate_u(phi,llm,d)
+    CALL allocate_u(w,llm,d)
+    CALL allocate_u(pbaru,llm,d)
+    CALL allocate_v(pbarv,llm,d)
+    CALL allocate_v(vcovm1,llm,d)
+    CALL allocate_u(ucovm1,llm,d)
+    CALL allocate_u(tetam1,llm,d)
+    CALL allocate_u(psm1,d)
+    CALL allocate_u(massem1,llm,d)
+    CALL allocate_v(dv,llm,d)
+    CALL allocate_u(du,llm,d)
+    CALL allocate_u(dteta,llm,d)
+    CALL allocate_u(dp,d)
+    CALL allocate_u(dq,llm,nqtot,d)
+    CALL allocate_u(finvmaold,llm,d)
+    CALL allocate_u(flxw,llm,d)
+    CALL allocate_u(unat,llm,d)
+    CALL allocate_v(vnat,llm,d)
+    
+    CALL caldyn_allocate
+    CALL integrd_allocate
+    CALL caladvtrac_allocate
+    CALL call_calfis_allocate
+    CALL call_dissip_allocate
+        
+  END SUBROUTINE leapfrog_allocate
+  
+  SUBROUTINE leapfrog_switch_caldyn(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE caldyn_mod,ONLY : caldyn_switch_caldyn
+  USE integrd_mod,ONLY : integrd_switch_caldyn
+  USE caladvtrac_mod,ONLY : caladvtrac_switch_caldyn
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(ucov,distrib_caldyn,dist)
+    CALL switch_v(vcov,distrib_caldyn,dist)
+    CALL switch_u(teta,distrib_caldyn,dist)
+    CALL switch_u(ps,distrib_caldyn,dist)
+    CALL switch_u(masse,distrib_caldyn,dist)
+    CALL switch_u(phis,distrib_caldyn,dist,up=halo_max,down=halo_max)
+    CALL switch_u(q,distrib_caldyn,dist)
+    CALL switch_u(p,distrib_caldyn,dist)
+    CALL switch_u(pks,distrib_caldyn,dist)
+    CALL switch_u(pk,distrib_caldyn,dist)
+    CALL switch_u(pkf,distrib_caldyn,dist)
+    CALL switch_u(phi,distrib_caldyn,dist)
+    CALL switch_u(w,distrib_caldyn,dist)
+    CALL switch_u(pbaru,distrib_caldyn,dist)
+    CALL switch_v(pbarv,distrib_caldyn,dist)
+    CALL switch_v(vcovm1,distrib_caldyn,dist)
+    CALL switch_u(ucovm1,distrib_caldyn,dist)
+    CALL switch_u(tetam1,distrib_caldyn,dist)
+    CALL switch_u(psm1,distrib_caldyn,dist)
+    CALL switch_u(massem1,distrib_caldyn,dist)
+    CALL switch_v(dv,distrib_caldyn,dist)
+    CALL switch_u(du,distrib_caldyn,dist)
+    CALL switch_u(dteta,distrib_caldyn,dist)
+    CALL switch_u(dp,distrib_caldyn,dist)
+    CALL switch_u(dq,distrib_caldyn,dist)
+    CALL switch_u(finvmaold,distrib_caldyn,dist)
+    CALL switch_u(flxw,distrib_caldyn,dist)
+    CALL switch_u(unat,distrib_caldyn,dist)
+    CALL switch_v(vnat,distrib_caldyn,dist)
+
+    
+    CALL caldyn_switch_caldyn(dist)
+    CALL integrd_switch_caldyn(dist)
+    CALL caladvtrac_switch_caldyn(dist)
+    
+  END SUBROUTINE leapfrog_switch_caldyn
+  
+  SUBROUTINE leapfrog_switch_dissip(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE call_dissip_mod,ONLY : call_dissip_switch_dissip
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL call_dissip_switch_dissip(dist)
+    
+  END SUBROUTINE leapfrog_switch_dissip
+  
+END MODULE leapfrog_mod  
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/logic_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/logic_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/logic_mod.F90	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Id: $
+!
+MODULE logic_mod
+
+IMPLICIT NONE
+
+  LOGICAL purmats ! true if time stepping is purely Matsuno scheme
+                  ! false implies Matsuno-Leapfrog time stepping scheme
+  LOGICAL forward ! true if during forward phase of Matsuno step
+  LOGICAL leapf ! true if during a leapfrog time stepping step
+  LOGICAL apphys ! true if during a time step when physics will be called
+  LOGICAL statcl
+  LOGICAL conser
+  LOGICAL apdiss ! true if during a time step when dissipation will be called
+  LOGICAL apdelq
+  LOGICAL saison
+  LOGICAL ecripar
+  LOGICAL fxyhypb ! true if using hyperbolic function discretization
+                  ! for latitudinal grid 
+  LOGICAL ysinus ! true if using sine function discretiation
+                 ! for latitudinal grid
+  LOGICAL read_start ! true if reading a start.nc file to initialize fields
+  LOGICAL ok_guide ! true if nudging
+  LOGICAL ok_strato
+  LOGICAL ok_gradsfile
+  LOGICAL ok_limit
+  LOGICAL ok_etat0
+  LOGICAL hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
+                 ! (only used if disvert_type==2)
+  INTEGER iflag_phys ! type of physics to call: 0 none, 1: phy*** package,
+                     ! 2: Held & Suarez, 101-200: aquaplanets & terraplanets
+  INTEGER iflag_trac
+
+!$OMP THREADPRIVATE(purmats,forward,leapf,apphys,statcl,conser, &
+!$OMP     apdiss,apdelq,saison,ecripar,fxyhypb,ysinus, &
+!$OMP     read_start,ok_guide,ok_strato,ok_gradsfile, &
+!$OMP     ok_limit,ok_etat0,hybrid)
+!$OMP THREADPRIVATE(iflag_phys,iflag_trac)
+
+!WARNING: when adding a threadprivate variable in this module
+!        do not forget to add it to the copyin clause when opening an OpenMP
+!        parallel section. e.g. in gcm before call leapfrog_loc 
+
+END MODULE logic_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massbar_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massbar_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massbar_loc.F90	(revision 3330)
@@ -0,0 +1,76 @@
+SUBROUTINE massbar_loc(masse,massebx,masseby)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute air mass mean along X and Y in each cell.
+! See iniconst for more details.
+  USE parallel_lmdz
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: masse  (ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: massebx(ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: masseby(ijb_v:ije_v,llm)
+!-------------------------------------------------------------------------------
+! Method used. Each scalar point is associated to 4 area coefficients:
+!    * alpha1(i,j) at point ( i+1/4,j-1/4 )
+!    * alpha2(i,j) at point ( i+1/4,j+1/4 )
+!    * alpha3(i,j) at point ( i-1/4,j+1/4 )
+!    * alpha4(i,j) at point ( i-1/4,j-1/4 )
+! where alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)
+!
+!   alpha4 .         . alpha1    . alpha4
+!    (i,j)             (i,j)       (i+1,j)
+!
+!             P .        U .          . P
+!           (i,j)       (i,j)         (i+1,j)
+!
+!   alpha3 .         . alpha2    .alpha3 
+!    (i,j)              (i,j)     (i+1,j)
+!
+!             V .        Z .          . V
+!           (i,j)
+!
+!   alpha4 .         . alpha1    .alpha4
+!   (i,j+1)            (i,j+1)   (i+1,j+1) 
+!
+!             P .        U .          . P
+!          (i,j+1)                    (i+1,j+1)
+!
+!
+!    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
+!                   masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+!     localized at point  ... U (i,j) ...
+!
+!    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
+!                   masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+!     localized at point  ... V (i,j) ...
+!===============================================================================
+! Local variables:
+  INTEGER :: ij, l, ijb, ije
+!===============================================================================
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)  
+  DO l=1,llm
+    ijb=ij_begin
+    ije=ij_end+iip1
+    IF(pole_sud) ije=ije-iip1
+    DO ij=ijb,ije-1
+      massebx(ij,l)=masse(ij,l)*alpha1p2(ij)+masse(ij+1   ,l)*alpha3p4(ij+1)
+    END DO
+    DO ij=ijb+iim,ije+iim,iip1; massebx(ij,l)=massebx(ij-iim,l); END DO
+    ijb=ij_begin-iip1
+    ije=ij_end+iip1
+    IF(pole_nord) ijb=ij_begin
+    IF(pole_sud) ije=ij_end-iip1
+    DO ij=ijb,ije
+      masseby(ij,l)=masse(ij,l)*alpha2p3(ij)+masse(ij+iip1,l)*alpha1p4(ij+iip1)
+    END DO
+  END DO
+!$OMP END DO NOWAIT
+
+END SUBROUTINE massbar_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massbarxy_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massbarxy_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massbarxy_loc.F90	(revision 3330)
@@ -0,0 +1,38 @@
+SUBROUTINE massbarxy_loc(masse,massebxy)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute air mass mean along X and Y in each cell.
+! See iniconst for more details.
+  USE parallel_lmdz
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: masse   (ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: massebxy(ijb_v:ije_v,llm)
+!===============================================================================
+! Local variables:
+  INTEGER :: ij, l, ijb, ije
+!===============================================================================
+  ijb=ij_begin-iip1
+  ije=ij_end
+  IF(pole_nord) ijb=ijb+iip1
+  IF(pole_sud)  ije=ije-iip1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+  DO l=1,llm
+    DO ij=ijb,ije-1
+      massebxy(ij,l)=masse(ij     ,l)*alpha2(ij     ) + &
+     +               masse(ij+1   ,l)*alpha3(ij+1   ) + &
+     +               masse(ij+iip1,l)*alpha1(ij+iip1) + &
+     +               masse(ij+iip2,l)*alpha4(ij+iip2)
+    END DO
+    DO ij=ijb+iip1-1,ije+iip1-1,iip1; massebxy(ij,l)=massebxy(ij-iim,l); END DO
+  END DO
+!$OMP END DO NOWAIT
+
+END SUBROUTINE massbarxy_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massdair_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massdair_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/massdair_loc.F	(revision 3330)
@@ -0,0 +1,119 @@
+      SUBROUTINE massdair_loc( p, masse )
+      USE parallel_lmdz
+c
+c *********************************************************************
+c       ....  Calcule la masse d'air  dans chaque maille   ....
+c *********************************************************************
+c
+c    Auteurs : P. Le Van , Fr. Hourdin  .
+c   ..........
+c
+c  ..    p                      est  un argum. d'entree pour le s-pg ...
+c  ..  masse                    est un  argum.de sortie pour le s-pg ...
+c     
+c  ....  p est defini aux interfaces des llm couches   .....
+c
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c  .....   arguments  ....
+c
+      REAL p(ijb_u:ije_u,llmp1), masse(ijb_u:ije_u,llm)
+
+c   ....  Variables locales  .....
+
+      INTEGER l,ij
+      INTEGER ijb,ije
+      REAL massemoyn, massemoys
+
+      REAL SSUM
+      EXTERNAL SSUM
+c
+c
+c   Methode pour calculer massebx et masseby .
+c   ----------------------------------------
+c
+c    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
+c       alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
+c       alpha2(i,j)  calcule  au point ( i+1/4,j+1/4 )
+c       alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
+c       alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
+c
+c    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)        
+c
+c    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
+c
+c
+c
+c   alpha4 .         . alpha1    . alpha4
+c    (i,j)             (i,j)       (i+1,j)
+c
+c             P .        U .          . P
+c           (i,j)       (i,j)         (i+1,j)
+c
+c   alpha3 .         . alpha2    .alpha3 
+c    (i,j)              (i,j)     (i+1,j)
+c
+c             V .        Z .          . V
+c           (i,j)
+c
+c   alpha4 .         . alpha1    .alpha4
+c   (i,j+1)            (i,j+1)   (i+1,j+1) 
+c
+c             P .        U .          . P
+c          (i,j+1)                    (i+1,j+1)
+c
+c
+c
+c                       On  a :
+c
+c    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
+c                   masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+c     localise  au point  ... U (i,j) ...
+c
+c    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
+c                   masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+c     localise  au point  ... V (i,j) ...
+c
+c
+c=======================================================================
+
+      
+
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+2*iip1
+      
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO   100    l = 1 , llm
+c
+        DO    ij     = ijb, ije
+         masse(ij,l) = airesurg(ij) * ( p(ij,l) - p(ij,l+1) )
+        ENDDO
+c
+        DO   ij = ijb, ije,iip1
+         masse(ij+ iim,l) = masse(ij,l)
+        ENDDO
+c
+c       DO    ij     = 1,  iim
+c        masse(   ij   ,l) = masse(   ij   ,l) * aire(  ij    )
+c        masse(ij+ip1jm,l) = masse(ij+ip1jm,l) * aire(ij+ip1jm) 
+c       ENDDO
+c        massemoyn         = SSUM(iim,masse(   1   ,l),1)/ apoln
+c        massemoys         = SSUM(iim,masse(ip1jm+1,l),1)/ apols
+c       DO    ij     = 1, iip1
+c        masse(   ij   ,l )    = massemoyn
+c        masse(ij+ip1jm,l )    = massemoys
+c       ENDDO
+       
+100   CONTINUE
+c$OMP END DO NOWAIT
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_const_mpi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_const_mpi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_const_mpi.F90	(revision 3330)
@@ -0,0 +1,103 @@
+! 
+! $Id: mod_const_para.F90 1279 2009-12-10 09:02:56Z fairhead $
+!
+MODULE mod_const_mpi
+  IMPLICIT NONE
+  INTEGER,SAVE :: COMM_LMDZ
+  INTEGER,SAVE :: MPI_REAL_LMDZ
+ 
+
+CONTAINS 
+
+  SUBROUTINE Init_const_mpi
+#ifdef CPP_IOIPSL
+    USE IOIPSL, ONLY: getin
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+    USE ioipsl_getincom, only: getin
+#endif
+! Use of Oasis-MCT coupler 
+#ifdef CPP_OMCT
+    USE mod_prism
+#endif
+#ifdef CPP_XIOS
+    USE wxios, only: wxios_init
+#endif
+    IMPLICIT NONE
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+
+    INTEGER             :: ierr
+    INTEGER             :: comp_id
+    INTEGER             :: thread_required
+    INTEGER             :: thread_provided
+    CHARACTER(len = 6)  :: type_ocean
+
+!$OMP MASTER
+    type_ocean = 'force '
+    CALL getin('type_ocean', type_ocean)
+!$OMP END MASTER
+!$OMP BARRIER
+
+    IF (type_ocean=='couple') THEN
+#ifdef CPP_COUPLE
+!$OMP MASTER
+#ifdef CPP_XIOS
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
+#else
+       CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
+       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
+#endif
+!$OMP END MASTER
+#endif
+#ifdef CPP_MPI
+      MPI_REAL_LMDZ=MPI_REAL8
+#endif
+    ELSE
+      CALL init_mpi
+    ENDIF
+
+  END SUBROUTINE Init_const_mpi
+  
+  SUBROUTINE Init_mpi
+#ifdef CPP_XIOS
+    USE wxios, only: wxios_init
+#endif
+  IMPLICIT NONE
+#ifdef CPP_MPI
+     INCLUDE 'mpif.h'
+#endif
+    INTEGER             :: ierr
+    INTEGER             :: thread_required
+    INTEGER             :: thread_provided
+
+#ifdef CPP_MPI
+!$OMP MASTER
+      thread_required=MPI_THREAD_SERIALIZED
+
+      CALL MPI_INIT_THREAD(thread_required,thread_provided,ierr)
+      IF (thread_provided < thread_required) THEN
+        PRINT *,'Warning : The multithreaded level of MPI librairy do not provide the requiered level',  &
+                ' in mod_const_mpi::Init_const_mpi'
+      ENDIF
+      COMM_LMDZ=MPI_COMM_WORLD
+      MPI_REAL_LMDZ=MPI_REAL8
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Initialisation de XIOS
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+#ifdef CPP_XIOS
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
+#endif
+!$OMP END MASTER
+#else
+#ifdef CPP_XIOS
+!$OMP MASTER
+      CALL wxios_init("LMDZ")
+!$OMP END MASTER
+#endif
+#endif
+
+   END SUBROUTINE Init_mpi
+    
+END MODULE mod_const_mpi
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_filtreg_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_filtreg_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_filtreg_p.F	(revision 3330)
@@ -0,0 +1,443 @@
+      MODULE mod_filtreg_p
+      
+      CONTAINS
+      
+      SUBROUTINE filtreg_p ( champ,jjb,jje, ibeg, iend, nlat, nbniv, 
+     &     ifiltre, iaire, griscal ,iter)
+      USE parallel_lmdz, only : OMP_CHUNK
+      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
+      
+c=======================================================================
+c
+c   Auteur: P. Le Van        07/10/97
+c   ------
+c
+c   Objet: filtre matriciel longitudinal ,avec les matrices precalculees
+c                     pour l'operateur  Filtre    .
+c   ------
+c
+c   Arguments:
+c   ----------
+c
+c      
+c      ibeg..iend            lattitude a filtrer
+c      nlat                  nombre de latitudes du champ
+c      nbniv                 nombre de niveaux verticaux a filtrer
+c      champ(iip1,nblat,nbniv)  en entree : champ a filtrer
+c                            en sortie : champ filtre
+c      ifiltre               +1  Transformee directe
+c                            -1  Transformee inverse
+c                            +2  Filtre directe
+c                            -2  Filtre inverse
+c
+c      iaire                 1   si champ intensif
+c                            2   si champ extensif (pondere par les aires)
+c
+c      iter                  1   filtre simple
+c
+c=======================================================================
+c
+c
+c                      Variable Intensive
+c                ifiltre = 1     filtre directe
+c                ifiltre =-1     filtre inverse
+c
+c                      Variable Extensive
+c                ifiltre = 2     filtre directe
+c                ifiltre =-2     filtre inverse
+c
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "coefils.h"
+c
+      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
+      INTEGER    hemisph
+      REAL :: champ_fft(iip1,jjb:jje,nbniv)
+!      REAL :: champ_in(iip1,jjb:jje,nbniv)
+      
+      LOGICAL,SAVE     :: first=.TRUE.
+c$OMP THREADPRIVATE(first) 
+
+      REAL, DIMENSION(iip1,jjb:jje,nbniv) :: champ_loc
+      INTEGER :: ll_nb, nbniv_loc
+      REAL, SAVE :: sdd12(iim,4)
+c$OMP THREADPRIVATE(sdd12) 
+
+      INTEGER, PARAMETER :: type_sddu=1
+      INTEGER, PARAMETER :: type_sddv=2
+      INTEGER, PARAMETER :: type_unsddu=3
+      INTEGER, PARAMETER :: type_unsddv=4
+
+      INTEGER :: sdd1_type, sdd2_type
+
+      IF (first) THEN
+         sdd12(1:iim,type_sddu) = sddu(1:iim)
+         sdd12(1:iim,type_sddv) = sddv(1:iim)
+         sdd12(1:iim,type_unsddu) = unsddu(1:iim)
+         sdd12(1:iim,type_unsddv) = unsddv(1:iim)
+
+         CALL Init_timer
+         first=.FALSE.
+      ENDIF
+
+c$OMP MASTER      
+      CALL start_timer
+c$OMP END MASTER
+
+c-------------------------------------------------------c
+
+      IF(ifiltre.EQ.1.or.ifiltre.EQ.-1) 
+     &     STOP'Pas de transformee simple dans cette version'
+      
+      IF( iter.EQ. 2 )  THEN
+         PRINT *,' Pas d iteration du filtre dans cette version !'
+     &        , ' Utiliser old_filtreg et repasser !'
+         STOP
+      ENDIF
+
+      IF( ifiltre.EQ. -2 .AND..NOT.griscal )     THEN
+         PRINT *,' Cette routine ne calcule le filtre inverse que '
+     &        , ' sur la grille des scalaires !'
+         STOP
+      ENDIF
+
+      IF( ifiltre.NE.2 .AND.ifiltre.NE. - 2 )  THEN
+         PRINT *,' Probleme dans filtreg car ifiltre NE 2 et NE -2'
+     &        , ' corriger et repasser !'
+         STOP
+      ENDIF
+c
+
+      iim2   = iim * iim
+      immjm  = iim * jjm
+c
+c
+      IF( griscal )   THEN
+         IF( nlat. NE. jjp1 )  THEN
+            PRINT  1111
+            STOP
+         ELSE
+c     
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddv
+               sdd2_type = type_unsddv
+            ELSE
+               sdd1_type = type_unsddv
+               sdd2_type = type_sddv
+            ENDIF
+c
+            jdfil1 = 2
+            jffil1 = jfiltnu
+            jdfil2 = jfiltsu
+            jffil2 = jjm
+         ENDIF
+      ELSE
+         IF( nlat.NE.jjm )  THEN
+            PRINT  2222
+            STOP
+         ELSE
+c
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddu
+               sdd2_type = type_unsddu
+            ELSE
+               sdd1_type = type_unsddu
+               sdd2_type = type_sddu
+            ENDIF
+c     
+            jdfil1 = 1
+            jffil1 = jfiltnv
+            jdfil2 = jfiltsv
+            jffil2 = jjm
+         ENDIF
+      ENDIF
+c      
+      DO hemisph = 1, 2
+c     
+         IF ( hemisph.EQ.1 )  THEN
+cym
+            jdfil = max(jdfil1,ibeg)
+            jffil = min(jffil1,iend)
+         ELSE
+cym
+            jdfil = max(jdfil2,ibeg)
+            jffil = min(jffil2,iend)
+         ENDIF
+
+
+cccccccccccccccccccccccccccccccccccccccccccc
+c Utilisation du filtre classique
+cccccccccccccccccccccccccccccccccccccccccccc
+
+         IF (.NOT. use_filtre_fft) THEN
+      
+c     !---------------------------------!
+c     ! Agregation des niveau verticaux !
+c     ! uniquement necessaire pour une  !
+c     ! execution OpenMP                !
+c     !---------------------------------!
+            ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l = 1, nbniv
+               ll_nb = ll_nb+1
+               DO j = jdfil,jffil
+                  DO i = 1, iim
+                     champ_loc(i,j,ll_nb) = 
+     &                    champ(i,j,l) * sdd12(i,sdd1_type)
+                  ENDDO
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+
+            nbniv_loc = ll_nb
+
+            IF( hemisph.EQ.1 )      THEN
+               
+               IF( ifiltre.EQ.-2 )   THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL SGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matrinvn(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*(jje-jjb+1), 0.0,
+     &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
+#else
+                     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
+                  
+               ELSE IF ( griscal )     THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL SGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matriceun(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*(jje-jjb+1), 0.0,
+     &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
+#else
+                     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
+                  
+               ELSE 
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL SGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matricevn(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*(jje-jjb+1), 0.0, 
+     &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
+#else
+                     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
+                  
+               ENDIF
+               
+            ELSE
+               
+               IF( ifiltre.EQ.-2 )   THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL SGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matrinvs(1,1,j-jfiltsu+1), iim, 
+     &                    champ_loc(1,j,1), iip1*(jje-jjb+1), 0.0, 
+     &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
+#else
+                     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
+                  
+               ELSE IF ( griscal )     THEN
+                  
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL SGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matriceus(1,1,j-jfiltsu+1), iim, 
+     &                    champ_loc(1,j,1), iip1*(jje-jjb+1), 0.0, 
+     &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
+#else
+                     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
+                  
+               ELSE 
+                  
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL SGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matricevs(1,1,j-jfiltsv+1), iim, 
+     &                    champ_loc(1,j,1), iip1*(jje-jjb+1), 0.0, 
+     &                    champ_fft(1,j,1), iip1*(jje-jjb+1))
+#else
+                     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
+                  
+               ENDIF
+               
+            ENDIF
+!     c     
+            IF( ifiltre.EQ.2 )  THEN
+               
+c     !-------------------------------------!
+c     ! DÃ©s-agregation des niveau verticaux !
+c     ! uniquement necessaire pour une      !
+c     ! execution OpenMP                    !
+c     !-------------------------------------!
+               ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               DO l = 1, nbniv
+                  ll_nb = ll_nb + 1
+                  DO j = jdfil,jffil
+                     DO i = 1, iim
+                        champ( i,j,l ) = (champ_loc(i,j,ll_nb) 
+     &                       + champ_fft(i,j,ll_nb))
+     &                       * sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT
+               
+            ELSE
+               
+               ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               DO l = 1, nbniv
+                  ll_nb = ll_nb + 1
+                  DO j = jdfil,jffil
+                     DO i = 1, iim
+                        champ( i,j,l ) = (champ_loc(i,j,ll_nb) 
+     &                       - champ_fft(i,j,ll_nb))
+     &                       * sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT
+               
+            ENDIF
+            
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l = 1, nbniv
+               DO j = jdfil,jffil
+                  ! add redundant longitude
+                  champ( iip1,j,l ) = champ( 1,j,l )
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+            
+ccccccccccccccccccccccccccccccccccccccccccccc
+c Utilisation du filtre FFT
+ccccccccccccccccccccccccccccccccccccccccccccc
+        
+         ELSE
+       
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l=1,nbniv
+               DO j=jdfil,jffil
+                  DO  i = 1, iim
+                     champ( i,j,l)= champ(i,j,l)*sdd12(i,sdd1_type)
+                     champ_fft( i,j,l) = champ(i,j,l)
+                  ENDDO
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+
+            IF (jdfil<=jffil) THEN
+               IF( ifiltre. EQ. -2 )   THEN
+                CALL Filtre_inv_fft(champ_fft,jjb,jje,jdfil,jffil,nbniv) 
+               ELSE IF ( griscal )     THEN
+                  CALL Filtre_u_fft(champ_fft,jjb,jje,jdfil,jffil,nbniv)
+               ELSE
+                  CALL Filtre_v_fft(champ_fft,jjb,jje,jdfil,jffil,nbniv)
+               ENDIF
+            ENDIF
+
+
+            IF( ifiltre.EQ. 2 )  THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+               DO l=1,nbniv
+                  DO j=jdfil,jffil
+                     DO  i = 1, iim
+                        champ( i,j,l)=(champ(i,j,l)+champ_fft(i,j,l))
+     &                       *sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT	  
+            ELSE
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)  
+               DO l=1,nbniv
+                  DO j=jdfil,jffil
+                     DO  i = 1, iim
+                        champ(i,j,l)=(champ(i,j,l)-champ_fft(i,j,l))
+     &                       *sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT          
+            ENDIF
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+            DO l=1,nbniv
+               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
+            ENDDO
+c$OMP END DO NOWAIT          	
+         ENDIF 
+c Fin de la zone de filtrage
+
+	
+      ENDDO
+
+!      DO j=1,nlat
+!     
+!          PRINT *,"check FFT ----> Delta(",j,")=",
+!     &            sum(champ(:,j,:)-champ_fft(:,j,:))/sum(champ(:,j,:)),
+!     &            sum(champ(:,j,:)-champ_in(:,j,:))/sum(champ(:,j,:)) 
+!      ENDDO
+      
+!          PRINT *,"check FFT ----> Delta(",j,")=",
+!     &            sum(champ-champ_fft)/sum(champ)
+!      
+      
+c
+ 1111 FORMAT(//20x,'ERREUR dans le dimensionnement du tableau  CHAMP a 
+     &     filtrer, sur la grille des scalaires'/)
+ 2222 FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fi
+     &     ltrer, sur la grille de V ou de Z'/)
+c$OMP MASTER      
+      CALL stop_timer
+c$OMP END MASTER
+      RETURN
+      END SUBROUTINE filtreg_p
+      END MODULE mod_filtreg_p
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_hallo.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_hallo.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/mod_hallo.F90	(revision 3330)
@@ -0,0 +1,1910 @@
+module mod_Hallo
+USE parallel_lmdz
+implicit none
+  logical,save :: use_mpi_alloc
+  integer, parameter :: MaxProc=512
+  integer, parameter :: DefaultMaxBufferSize=1024*1024*100
+  integer, SAVE :: MaxBufferSize=0
+  integer, parameter :: ListSize=1000
+  
+  integer,save       :: MaxBufferSize_Used
+!$OMP THREADPRIVATE( MaxBufferSize_Used)
+
+   real,save,pointer,dimension(:) :: Buffer
+!$OMP THREADPRIVATE(Buffer)
+
+   integer,save,dimension(Listsize) :: Buffer_Pos
+   integer,save :: Index_Pos
+!$OMP THREADPRIVATE(Buffer_Pos,Index_pos)
+   
+  type Hallo
+    real, dimension(:,:),pointer :: Field
+    integer :: offset
+    integer :: size
+    integer :: NbLevel
+    integer :: Stride
+  end type Hallo
+  
+  type request_SR
+    integer :: NbRequest=0
+    integer :: NbRequestMax=0
+    integer :: BufferSize
+    integer :: Pos
+    integer :: Index 
+    type(Hallo), POINTER :: Hallo(:)
+    integer :: MSG_Request
+  end type request_SR
+
+  type request
+    type(request_SR),dimension(0:MaxProc-1) :: RequestSend
+    type(request_SR),dimension(0:MaxProc-1) :: RequestRecv
+    integer :: tag=1
+  end type request
+  
+   TYPE(distrib),SAVE :: distrib_gather
+
+
+  INTERFACE Register_SwapField_u
+    MODULE PROCEDURE Register_SwapField1d_u,Register_SwapField2d_u1d,Register_SwapField3d_u, &
+                     Register_SwapField1d_u_bis,Register_SwapField2d_u1d_bis,Register_SwapField3d_u_bis
+  END INTERFACE Register_SwapField_u
+
+  INTERFACE Register_SwapField_v
+    MODULE PROCEDURE Register_SwapField1d_v,Register_SwapField2d_v1d,Register_SwapField3d_v,&
+                     Register_SwapField1d_v_bis,Register_SwapField2d_v1d_bis,Register_SwapField3d_v_bis
+  END INTERFACE Register_SwapField_v
+
+  INTERFACE Register_SwapField2d_u
+    MODULE PROCEDURE Register_SwapField1d_u2d,Register_SwapField2d_u2d,Register_SwapField3d_u2d, &
+                     Register_SwapField1d_u2d_bis,Register_SwapField2d_u2d_bis,Register_SwapField3d_u2d_bis
+  END INTERFACE Register_SwapField2d_u
+
+  INTERFACE Register_SwapField2d_v
+    MODULE PROCEDURE Register_SwapField1d_v2d,Register_SwapField2d_v2d,Register_SwapField3d_v2d, &
+                     Register_SwapField1d_v2d_bis,Register_SwapField2d_v2d_bis,Register_SwapField3d_v2d_bis
+  END INTERFACE Register_SwapField2d_v
+
+  contains
+
+  subroutine Init_mod_hallo
+  USE dimensions_mod
+  USE IOIPSL
+    implicit none
+    integer :: jj_nb_gather(0:mpi_size-1)
+    
+    Index_Pos=1
+    Buffer_Pos(Index_Pos)=1
+    MaxBufferSize_Used=0
+!$OMP MASTER     
+    MaxBufferSize=DefaultMaxBufferSize
+    CALL getin("mpi_buffer_size",MaxBufferSize)
+!$OMP END MASTER
+!$OMP BARRIER
+    
+    IF (use_mpi_alloc .AND. using_mpi) THEN
+      CALL create_global_mpi_buffer
+    ELSE 
+      CALL create_standard_mpi_buffer
+    ENDIF
+     
+!$OMP MASTER     
+     jj_nb_gather(:)=0
+     jj_nb_gather(0)=jjp1
+     
+     CALL create_distrib(jj_nb_gather,distrib_gather) 
+!$OMP END MASTER
+!$OMP BARRIER
+
+  end subroutine init_mod_hallo
+
+  SUBROUTINE create_standard_mpi_buffer
+  IMPLICIT NONE
+    
+    ALLOCATE(Buffer(MaxBufferSize))
+    
+  END SUBROUTINE create_standard_mpi_buffer
+  
+  SUBROUTINE create_global_mpi_buffer
+  IMPLICIT NONE
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif  
+    POINTER (Pbuffer,MPI_Buffer(MaxBufferSize))
+    REAL :: MPI_Buffer
+#ifdef CPP_MPI
+    INTEGER(KIND=MPI_ADDRESS_KIND) :: BS 
+#else
+    INTEGER(KIND=8) :: BS
+#endif
+    INTEGER :: i,ierr
+
+!  Allocation du buffer MPI
+      Bs=8*MaxBufferSize
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+      CALL MPI_ALLOC_MEM(BS,MPI_INFO_NULL,Pbuffer,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      DO i=1,MaxBufferSize
+	MPI_Buffer(i)=i
+      ENDDO
+     
+      CALL  Associate_buffer(MPI_Buffer)
+      
+  CONTAINS
+     
+     SUBROUTINE Associate_buffer(MPI_Buffer)
+     IMPLICIT NONE
+       REAL,DIMENSION(:),target :: MPI_Buffer  
+
+         Buffer=>MPI_Buffer
+ 
+      END SUBROUTINE  Associate_buffer
+                                      
+  END SUBROUTINE create_global_mpi_buffer
+ 
+      
+  subroutine allocate_buffer(Size,Index,Pos)
+  implicit none
+    integer :: Size
+    integer :: Index
+    integer :: Pos
+
+    if (Buffer_pos(Index_pos)+Size>MaxBufferSize_Used) MaxBufferSize_Used=Buffer_pos(Index_pos)+Size  
+    if (Buffer_pos(Index_pos)+Size>MaxBufferSize) then
+      print *,'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
+      stop
+    endif
+    
+    if (Index_pos>=ListSize) then
+      print *,'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
+      stop
+    endif
+     
+    Pos=Buffer_Pos(Index_Pos)
+    Buffer_Pos(Index_pos+1)=Buffer_Pos(Index_Pos)+Size
+    Index_Pos=Index_Pos+1
+    Index=Index_Pos
+    
+  end subroutine allocate_buffer
+     
+  subroutine deallocate_buffer(Index)
+  implicit none
+    integer :: Index
+    
+    Buffer_Pos(Index)=-1
+    
+    do while (Buffer_Pos(Index_Pos)==-1 .and. Index_Pos>1)
+      Index_Pos=Index_Pos-1
+    end do
+
+  end subroutine deallocate_buffer  
+  
+  subroutine SetTag(a_request,tag)
+  implicit none
+    type(request):: a_request
+    integer :: tag
+    
+    a_request%tag=tag
+  end subroutine SetTag
+  
+  
+  subroutine New_Hallo(Field,Stride,NbLevel,offset,size,Ptr_request)
+    integer :: Stride
+    integer :: NbLevel
+    integer :: size
+    integer :: offset
+    real, dimension(Stride,NbLevel),target :: Field
+    type(request_SR),pointer :: Ptr_request
+    type(Hallo),POINTER :: NewHallos(:),HalloSwitch(:), NewHallo
+    
+    Ptr_Request%NbRequest=Ptr_Request%NbRequest+1
+    IF(Ptr_Request%NbRequestMax==0) THEN
+       Ptr_Request%NbRequestMax=10
+       ALLOCATE(Ptr_Request%Hallo(Ptr_Request%NbRequestMax))
+    ELSE IF ( Ptr_Request%NbRequest > Ptr_Request%NbRequestMax) THEN
+      Ptr_Request%NbRequestMax=INT(Ptr_Request%NbRequestMax*1.2)
+      ALLOCATE(NewHallos(Ptr_Request%NbRequestMax))
+      NewHallos(1:Ptr_Request%NbRequest-1)=Ptr_Request%hallo(1:Ptr_Request%NbRequest-1)
+      HalloSwitch=>Ptr_Request%hallo
+      Ptr_Request%hallo=>NewHallos
+      DEALLOCATE(HalloSwitch)
+    ENDIF
+    
+    NewHallo=>Ptr_Request%hallo(Ptr_Request%NbRequest)
+          
+    NewHallo%Field=>Field
+    NewHallo%Stride=Stride
+    NewHallo%NbLevel=NbLevel
+    NewHallo%size=size
+    NewHallo%offset=offset
+    
+  end subroutine New_Hallo
+  
+  subroutine Register_SendField(Field,ij,ll,offset,size,target,a_request)
+  USE dimensions_mod
+  implicit none
+
+    
+      INTEGER :: ij,ll,offset,size,target
+      REAL, dimension(ij,ll) :: Field
+      type(request),target :: a_request
+      type(request_SR),pointer :: Ptr_request
+
+      Ptr_Request=>a_request%RequestSend(target)
+
+      call New_Hallo(Field,ij,ll,offset,size,Ptr_request)
+      
+   end subroutine Register_SendField      
+      
+  subroutine Register_RecvField(Field,ij,ll,offset,size,target,a_request)
+  USE dimensions_mod
+  implicit none
+
+   
+      INTEGER :: ij,ll,offset,size,target
+      REAL, dimension(ij,ll) :: Field
+      type(request),target :: a_request
+      type(request_SR),pointer :: Ptr_request
+
+      Ptr_Request=>a_request%RequestRecv(target)
+            
+      call New_Hallo(Field,ij,ll,offset,size,Ptr_request)
+
+      
+   end subroutine Register_RecvField      
+  
+  subroutine Register_SwapField(FieldS,FieldR,ij,ll,jj_Nb_New,a_request)
+  USE dimensions_mod
+      implicit none
+
+    
+    INTEGER :: ij,ll
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    type(request) :: a_request
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    integer ::i,jje,jjb
+    
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+    
+    do i=0,MPI_Size-1
+      if (i /= MPI_Rank) then
+        jjb=max(jj_begin_new(i),jj_begin)
+        jje=min(jj_end_new(i),jj_end)
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_SendField(FieldS,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+        jjb=max(jj_begin_new(MPI_Rank),jj_begin_Para(i))
+        jje=min(jj_end_new(MPI_Rank),jj_end_Para(i))
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_RecvField(FieldR,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+      endif
+    enddo
+    
+  end subroutine Register_SwapField    
+  
+
+  
+  subroutine Register_SwapFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down,a_request)
+  USE dimensions_mod
+  
+      implicit none
+    
+    INTEGER :: ij,ll,Up,Down
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    type(request) :: a_request
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    integer ::i,jje,jjb
+    
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+    
+    do i=0,MPI_Size-1
+      jj_begin_New(i)=max(1,jj_begin_New(i)-Up)
+      jj_end_New(i)=min(jjp1,jj_end_new(i)+Down)
+    enddo
+   
+    do i=0,MPI_Size-1
+      if (i /= MPI_Rank) then
+        jjb=max(jj_begin_new(i),jj_begin)
+        jje=min(jj_end_new(i),jj_end)
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_SendField(FieldS,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+        jjb=max(jj_begin_new(MPI_Rank),jj_begin_Para(i))
+        jje=min(jj_end_new(MPI_Rank),jj_end_Para(i))
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_RecvField(FieldR,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+      endif
+    enddo
+    
+  end subroutine Register_SwapFieldHallo
+
+
+
+  SUBROUTINE Register_SwapField1d_u(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%ijb_u:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,1,current_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_u 
+
+  SUBROUTINE Register_SwapField1d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN)          :: old_dist
+    REAL, DIMENSION(old_dist%ijb_u:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,1,old_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_u_bis 
+
+
+  SUBROUTINE Register_SwapField2d_u1d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+    IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%ijb_u:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_u1d
+
+  SUBROUTINE Register_SwapField2d_u1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+    IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%ijb_u:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_u1d_bis
+   
+
+  SUBROUTINE Register_SwapField3d_u(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%ijb_u:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)*size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_u 
+
+  SUBROUTINE Register_SwapField3d_u_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%ijb_u:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)*size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_u_bis 
+  
+
+
+ SUBROUTINE Register_SwapField1d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+
+      IMPLICIT NONE
+
+    TYPE(distrib),INTENT(IN)          :: new_dist !LF
+    REAL, DIMENSION(current_dist%jjb_u:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_u:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,1,current_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_u2d 
+
+ SUBROUTINE Register_SwapField1d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+
+      IMPLICIT NONE
+
+    TYPE(distrib),INTENT(IN)          :: new_dist !LF
+    TYPE(distrib),INTENT(IN)          :: old_dist
+    REAL, DIMENSION(old_dist%jjb_u:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_u:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,1,old_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_u2d_bis 
+
+
+  SUBROUTINE Register_SwapField2d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%jjb_u:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_u:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_u2d
+
+  SUBROUTINE Register_SwapField2d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%jjb_u:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_u:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_u2d_bis
+   
+
+  SUBROUTINE Register_SwapField3d_u2d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%jjb_u:,:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_u:,:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)*size(FieldS,4)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_u2d 
+
+  SUBROUTINE Register_SwapField3d_u2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%jjb_u:,:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_u:,:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)*size(FieldS,4)
+    
+    CALL  Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_u2d_bis 
+
+
+
+
+
+
+
+  SUBROUTINE Register_SwapField1d_v(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%ijb_v:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,1,current_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_v 
+
+  SUBROUTINE Register_SwapField1d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%ijb_v:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,1,old_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_v_bis 
+
+
+  SUBROUTINE Register_SwapField2d_v1d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+   
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%ijb_v:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_v1d
+  
+  SUBROUTINE Register_SwapField2d_v1d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+   
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN)          :: old_dist
+    REAL, DIMENSION(old_dist%ijb_v:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_v1d_bis
+  
+   
+
+  SUBROUTINE Register_SwapField3d_v(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%ijb_v:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)*size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_v 
+
+  SUBROUTINE Register_SwapField3d_v_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%ijb_v:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,2)*size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_v_bis 
+
+
+
+
+  SUBROUTINE Register_SwapField1d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist !LF
+    REAL, DIMENSION(current_dist%jjb_v:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_v:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,1,current_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_v2d
+
+  SUBROUTINE Register_SwapField1d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist !LF
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%jjb_v:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_v:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,1,old_dist,new_dist,halo_up,halo_down,a_request)
+        
+  END SUBROUTINE  Register_SwapField1d_v2d_bis
+
+
+  SUBROUTINE Register_SwapField2d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%jjb_v:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_v:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_v2d
+   
+  SUBROUTINE Register_SwapField2d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%jjb_v:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_v:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField2d_v2d_bis
+   
+
+  SUBROUTINE Register_SwapField3d_v2d(FieldS,FieldR,new_dist,a_request,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    REAL, DIMENSION(current_dist%jjb_v:,:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_v:,:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)*size(FieldS,4)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,current_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_v2d 
+  
+  SUBROUTINE Register_SwapField3d_v2d_bis(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+    
+    TYPE(distrib),INTENT(IN)          :: new_dist
+    TYPE(distrib),INTENT(IN) :: old_dist
+    REAL, DIMENSION(old_dist%jjb_v:,:,:,:),INTENT(IN)     :: FieldS
+    REAL, DIMENSION(new_dist%jjb_v:,:,:,:),INTENT(OUT)    :: FieldR
+    INTEGER,OPTIONAL,INTENT(IN)       :: up
+    INTEGER,OPTIONAL,INTENT(IN)       :: down      
+    TYPE(request),INTENT(INOUT)         :: a_request
+
+    INTEGER                           :: halo_up
+    INTEGER                           :: halo_down
+    INTEGER                           :: ll
+        
+    
+    halo_up=0
+    halo_down=0
+    IF (PRESENT(up))   halo_up=up
+    IF (PRESENT(down)) halo_down=down
+    
+    ll=size(FieldS,3)*size(FieldS,4)
+    
+    CALL  Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,halo_up,halo_down,a_request)
+    
+  END SUBROUTINE  Register_SwapField3d_v2d_bis 
+  
+  
+
+  SUBROUTINE Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
+  USE parallel_lmdz
+  USE dimensions_mod
+      IMPLICIT NONE
+   
+    INTEGER :: ll,Up,Down
+    TYPE(distrib)  :: old_dist
+    TYPE(distrib)  :: new_dist
+    REAL, DIMENSION(old_dist%ijb_u:old_dist%ije_u,ll) :: FieldS
+    REAL, DIMENSION(new_dist%ijb_u:new_dist%ije_u,ll) :: FieldR
+    TYPE(request) :: a_request
+    INTEGER,DIMENSION(0:MPI_Size-1) :: jj_Nb_New   
+    INTEGER,DIMENSION(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    INTEGER ::i,l,jje,jjb,ijb,ije
+    
+    DO i=0,MPI_Size-1
+      jj_begin_New(i)=max(1,new_dist%jj_begin_para(i)-Up)
+      jj_end_New(i)=min(jjp1,new_dist%jj_end_para(i)+Down)
+    ENDDO
+   
+    DO i=0,MPI_Size-1
+      IF (i /= MPI_Rank) THEN
+        jjb=max(jj_begin_new(i),old_dist%jj_begin)
+        jje=min(jj_end_new(i),old_dist%jj_end)
+        
+        IF (jje >= jjb) THEN
+          CALL Register_SendField(FieldS,old_dist%ijnb_u,ll,jjb-old_dist%jjb_u+1,jje-jjb+1,i,a_request) 
+        ENDIF
+        
+        jjb=max(jj_begin_new(MPI_Rank),old_dist%jj_begin_Para(i))
+        jje=min(jj_end_new(MPI_Rank),old_dist%jj_end_Para(i))
+        
+        IF (jje >= jjb) THEN
+          CALL Register_RecvField(FieldR,new_dist%ijnb_u,ll,jjb-new_dist%jjb_u+1,jje-jjb+1,i,a_request) 
+        ENDIF
+      ELSE
+        jjb=max(jj_begin_new(i),old_dist%jj_begin)
+        jje=min(jj_end_new(i),old_dist%jj_end)
+        ijb=(jjb-1)*iip1+1
+        ije=jje*iip1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)           
+        DO l=1,ll
+          FieldR(ijb:ije,l)=FieldS(ijb:ije,l)              
+        ENDDO
+!$OMP END DO NOWAIT
+      ENDIF
+    ENDDO
+    
+  END SUBROUTINE Register_SwapField_gen_u
+
+
+
+  SUBROUTINE Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
+  USE parallel_lmdz
+  USE dimensions_mod
+    IMPLICIT NONE
+    
+    INTEGER :: ll,Up,Down
+    TYPE(distrib)  :: old_dist
+    TYPE(distrib)  :: new_dist
+    REAL, DIMENSION(old_dist%ijb_v:old_dist%ije_v,ll) :: FieldS
+    REAL, DIMENSION(new_dist%ijb_v:new_dist%ije_v,ll) :: FieldR
+    TYPE(request) :: a_request
+    INTEGER,DIMENSION(0:MPI_Size-1) :: jj_Nb_New   
+    INTEGER,DIMENSION(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    INTEGER ::i,l,jje,jjb,ijb,ije
+    
+    DO i=0,MPI_Size-1
+      jj_begin_New(i)=max(1,new_dist%jj_begin_para(i)-Up)
+      jj_end_New(i)=min(jjp1,new_dist%jj_end_para(i)+Down)
+    ENDDO
+   
+    DO i=0,MPI_Size-1
+      IF (i /= MPI_Rank) THEN
+        jjb=max(jj_begin_new(i),old_dist%jj_begin)
+        jje=min(jj_end_new(i),old_dist%jj_end)
+
+        IF (jje==jjp1) jje=jjm        
+
+        IF (jje >= jjb) THEN
+          CALL Register_SendField(FieldS,old_dist%ijnb_v,ll,jjb-old_dist%jjb_v+1,jje-jjb+1,i,a_request) 
+        ENDIF
+        
+        jjb=max(jj_begin_new(MPI_Rank),old_dist%jj_begin_Para(i))
+        jje=min(jj_end_new(MPI_Rank),old_dist%jj_end_Para(i))
+
+        IF (jje==jjp1) jje=jjm
+        
+        IF (jje >= jjb) THEN
+          CALL Register_RecvField(FieldR,new_dist%ijnb_v,ll,jjb-new_dist%jjb_v+1,jje-jjb+1,i,a_request) 
+        ENDIF
+      ELSE
+        jjb=max(jj_begin_new(i),old_dist%jj_begin)
+        jje=min(jj_end_new(i),old_dist%jj_end)
+        IF (jje==jjp1) jje=jjm
+        ijb=(jjb-1)*iip1+1
+        ije=jje*iip1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)           
+        DO l=1,ll
+          FieldR(ijb:ije,l)=FieldS(ijb:ije,l)
+        ENDDO              
+!$OMP END DO NOWAIT
+      ENDIF
+    ENDDO
+    
+  END SUBROUTINE Register_SwapField_gen_v
+
+
+ 
+
+  
+  subroutine Register_Hallo(Field,ij,ll,RUp,Rdown,SUp,SDown,a_request)
+  USE dimensions_mod
+      implicit none
+
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: Sup,Sdown,rup,rdown
+      type(request) :: a_request
+      type(Hallo),pointer :: PtrHallo
+      LOGICAL :: SendUp,SendDown
+      LOGICAL :: RecvUp,RecvDown
+   
+ 
+      SendUp=.TRUE.
+      SendDown=.TRUE.
+      RecvUp=.TRUE.
+      RecvDown=.TRUE.
+        
+      IF (pole_nord) THEN
+        SendUp=.FALSE.
+        RecvUp=.FALSE.
+      ENDIF
+  
+      IF (pole_sud) THEN
+        SendDown=.FALSE.
+        RecvDown=.FALSE.
+      ENDIF
+      
+      if (Sup.eq.0) then
+        SendUp=.FALSE.
+       endif
+      
+      if (Sdown.eq.0) then
+        SendDown=.FALSE.
+      endif
+
+      if (Rup.eq.0) then
+        RecvUp=.FALSE.
+      endif
+      
+      if (Rdown.eq.0) then
+        RecvDown=.FALSE.
+      endif
+      
+      IF (SendUp) THEN
+        call Register_SendField(Field,ij,ll,jj_begin,SUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (SendDown) THEN
+        call Register_SendField(Field,ij,ll,jj_end-SDown+1,SDown,MPI_Rank+1,a_request)
+      ENDIF
+    
+  
+      IF (RecvUp) THEN
+        call Register_RecvField(Field,ij,ll,jj_begin-Rup,RUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (RecvDown) THEN
+        call Register_RecvField(Field,ij,ll,jj_end+1,RDown,MPI_Rank+1,a_request)
+      ENDIF
+  
+    end subroutine Register_Hallo
+
+
+  subroutine Register_Hallo_u(Field,ll,RUp,Rdown,SUp,SDown,a_request)
+  USE dimensions_mod
+      implicit none
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ll
+      REAL, dimension(ijb_u:ije_u,ll) :: Field
+      INTEGER :: Sup,Sdown,rup,rdown
+      type(request) :: a_request
+      type(Hallo),pointer :: PtrHallo
+      LOGICAL :: SendUp,SendDown
+      LOGICAL :: RecvUp,RecvDown
+   
+ 
+      SendUp=.TRUE.
+      SendDown=.TRUE.
+      RecvUp=.TRUE.
+      RecvDown=.TRUE.
+        
+      IF (pole_nord) THEN
+        SendUp=.FALSE.
+        RecvUp=.FALSE.
+      ENDIF
+  
+      IF (pole_sud) THEN
+        SendDown=.FALSE.
+        RecvDown=.FALSE.
+      ENDIF
+      
+      if (Sup.eq.0) then
+        SendUp=.FALSE.
+       endif
+      
+      if (Sdown.eq.0) then
+        SendDown=.FALSE.
+      endif
+
+      if (Rup.eq.0) then
+        RecvUp=.FALSE.
+      endif
+      
+      if (Rdown.eq.0) then
+        RecvDown=.FALSE.
+      endif
+      
+      IF (SendUp) THEN
+        call Register_SendField(Field,ijnb_u,ll,jj_begin-jjb_u+1,SUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (SendDown) THEN
+        call Register_SendField(Field,ijnb_u,ll,jj_end-SDown+1-jjb_u+1,SDown,MPI_Rank+1,a_request)
+      ENDIF
+    
+  
+      IF (RecvUp) THEN
+        call Register_RecvField(Field,ijnb_u,ll,jj_begin-Rup-jjb_u+1,RUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (RecvDown) THEN
+        call Register_RecvField(Field,ijnb_u,ll,jj_end+1-jjb_u+1,RDown,MPI_Rank+1,a_request)
+      ENDIF
+  
+    end subroutine Register_Hallo_u
+
+  subroutine Register_Hallo_v(Field,ll,RUp,Rdown,SUp,SDown,a_request)
+  USE dimensions_mod
+      implicit none
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ll
+      REAL, dimension(ijb_v:ije_v,ll) :: Field
+      INTEGER :: Sup,Sdown,rup,rdown
+      type(request) :: a_request
+      type(Hallo),pointer :: PtrHallo
+      LOGICAL :: SendUp,SendDown
+      LOGICAL :: RecvUp,RecvDown
+   
+ 
+      SendUp=.TRUE.
+      SendDown=.TRUE.
+      RecvUp=.TRUE.
+      RecvDown=.TRUE.
+        
+      IF (pole_nord) THEN
+        SendUp=.FALSE.
+        RecvUp=.FALSE.
+      ENDIF
+  
+      IF (pole_sud) THEN
+        SendDown=.FALSE.
+        RecvDown=.FALSE.
+      ENDIF
+      
+      if (Sup.eq.0) then
+        SendUp=.FALSE.
+       endif
+      
+      if (Sdown.eq.0) then
+        SendDown=.FALSE.
+      endif
+
+      if (Rup.eq.0) then
+        RecvUp=.FALSE.
+      endif
+      
+      if (Rdown.eq.0) then
+        RecvDown=.FALSE.
+      endif
+      
+      IF (SendUp) THEN
+        call Register_SendField(Field,ijnb_v,ll,jj_begin-jjb_v+1,SUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (SendDown) THEN
+        call Register_SendField(Field,ijnb_v,ll,jj_end-SDown+1-jjb_v+1,SDown,MPI_Rank+1,a_request)
+      ENDIF
+    
+  
+      IF (RecvUp) THEN
+        call Register_RecvField(Field,ijnb_v,ll,jj_begin-Rup-jjb_v+1,RUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (RecvDown) THEN
+        call Register_RecvField(Field,ijnb_v,ll,jj_end+1-jjb_v+1,RDown,MPI_Rank+1,a_request)
+      ENDIF
+  
+    end subroutine Register_Hallo_v
+    
+    subroutine SendRequest(a_Request)
+    USE dimensions_mod
+      implicit none
+
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif
+
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer :: SizeBuffer
+      integer :: i,rank,l,ij,Pos,ierr
+      integer :: offset
+      real,dimension(:,:),pointer :: Field
+      integer :: Nb
+       
+      do rank=0,MPI_SIZE-1
+      
+        Req=>a_Request%RequestSend(rank)
+        
+        SizeBuffer=0
+        do i=1,Req%NbRequest
+          PtrHallo=>Req%Hallo(i)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+          DO l=1,PtrHallo%NbLevel
+            SizeBuffer=SizeBuffer+PtrHallo%size*iip1
+          ENDDO
+!$OMP ENDDO NOWAIT          
+        enddo
+      
+         Req%BufferSize=SizeBuffer
+         if (Req%NbRequest>0) then
+       
+          call allocate_buffer(SizeBuffer,Req%Index,Req%pos)
+
+          Pos=Req%Pos
+          do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+            offset=(PtrHallo%offset-1)*iip1+1
+            Nb=iip1*PtrHallo%size-1
+            Field=>PtrHallo%Field
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)           
+            do l=1,PtrHallo%NbLevel
+!cdir NODEP
+              do ij=0,Nb
+	        Buffer(Pos+ij)=Field(Offset+ij,l)
+	      enddo
+              
+              Pos=Pos+Nb+1
+            enddo
+!$OMP END DO NOWAIT            
+          enddo
+    
+         if (SizeBuffer>0) then
+!$OMP CRITICAL (MPI)
+         
+#ifdef CPP_MPI
+         call MPI_ISEND(Buffer(req%Pos),SizeBuffer,MPI_REAL_LMDZ,rank,a_request%tag+1000*omp_rank,     &
+                         COMM_LMDZ,Req%MSG_Request,ierr)
+#endif
+         IF (.NOT.using_mpi) THEN
+           PRINT *,'Erreur, echange MPI en mode sequentiel !!!'
+           STOP
+         ENDIF
+!         PRINT *,"-------------------------------------------------------------------"
+!         PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->"
+!         PRINT *,"Requete envoye au proc :",rank,"tag :",a_request%tag+1000*omp_rank
+!         PRINT *,"Taille du message :",SizeBuffer,"requete no :",Req%MSG_Request
+!         PRINT *,"-------------------------------------------------------------------"
+!$OMP END CRITICAL (MPI)
+        endif
+       endif
+    enddo
+   
+           
+      do rank=0,MPI_SIZE-1
+         
+          Req=>a_Request%RequestRecv(rank)
+          SizeBuffer=0
+          
+	  do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+            DO l=1,PtrHallo%NbLevel
+              SizeBuffer=SizeBuffer+PtrHallo%size*iip1
+            ENDDO
+!$OMP ENDDO NOWAIT          
+          enddo
+          
+          Req%BufferSize=SizeBuffer
+          
+          if (Req%NbRequest>0) then
+          call allocate_buffer(SizeBuffer,Req%Index,Req%Pos)
+   
+          if (SizeBuffer>0) then
+
+!$OMP CRITICAL (MPI)
+
+#ifdef CPP_MPI
+             call MPI_IRECV(Buffer(Req%Pos),SizeBuffer,MPI_REAL_LMDZ,rank,a_request%tag+1000*omp_rank,     &
+                           COMM_LMDZ,Req%MSG_Request,ierr)
+#endif             
+             IF (.NOT.using_mpi) THEN
+               PRINT *,'Erreur, echange MPI en mode sequentiel !!!'
+               STOP
+             ENDIF
+
+!         PRINT *,"-------------------------------------------------------------------"
+!         PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->"
+!         PRINT *,"Requete en attente du proc :",rank,"tag :",a_request%tag+1000*omp_rank
+!         PRINT *,"Taille du message :",SizeBuffer,"requete no :",Req%MSG_Request
+!         PRINT *,"-------------------------------------------------------------------"
+
+!$OMP END CRITICAL (MPI)
+          endif
+        endif
+      
+      enddo
+                        
+   end subroutine SendRequest 
+   
+   subroutine WaitRequest(a_Request)
+   USE dimensions_mod
+   implicit none
+   
+#ifdef CPP_MPI
+      include 'mpif.h'   
+#endif
+      
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer, dimension(2*mpi_size) :: TabRequest
+#ifdef CPP_MPI
+      integer, dimension(MPI_STATUS_SIZE,2*mpi_size) :: TabStatus
+#else
+      integer, dimension(1,2*mpi_size) :: TabStatus
+#endif
+      integer :: NbRequest
+      integer :: i,rank,pos,ij,l,ierr
+      integer :: offset
+      integer :: Nb
+      
+      
+      NbRequest=0
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0 .AND. Req%BufferSize > 0) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0 .AND. Req%BufferSize > 0 ) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+     
+      if (NbRequest>0) then
+!$OMP CRITICAL (MPI)
+!        PRINT *,"-------------------------------------------------------------------"
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"en attente"
+!        PRINT *,"No des requetes :",TabRequest(1:NbRequest)
+#ifdef CPP_MPI
+        call MPI_WAITALL(NbRequest,TabRequest,TabStatus,ierr)
+#endif
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"complete"
+!        PRINT *,"-------------------------------------------------------------------"
+!$OMP END CRITICAL (MPI)
+      endif
+      do rank=0,MPI_Size-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          Pos=Req%Pos
+          do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+            offset=(PtrHallo%offset-1)*iip1+1
+	    Nb=iip1*PtrHallo%size-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+	    do l=1,PtrHallo%NbLevel
+!cdir NODEP
+              do ij=0,Nb
+	        PtrHallo%Field(offset+ij,l)=Buffer(Pos+ij)
+	      enddo
+
+              Pos=Pos+Nb+1
+	    enddo
+!$OMP ENDDO NOWAIT	    
+          enddo
+        endif
+      enddo
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+              
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+     
+      a_request%tag=1
+    end subroutine WaitRequest
+     
+   subroutine WaitSendRequest(a_Request)
+   USE dimensions_mod
+   implicit none
+   
+#ifdef CPP_MPI
+      include 'mpif.h'   
+#endif      
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer, dimension(mpi_size) :: TabRequest
+#ifdef CPP_MPI
+      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
+#else
+      integer, dimension(1,mpi_size) :: TabStatus
+#endif
+      integer :: NbRequest
+      integer :: i,rank,pos,ij,l,ierr
+      integer :: offset
+      
+      
+      NbRequest=0
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+      
+
+      if (NbRequest>0 .AND. Req%BufferSize > 0 ) THEN 
+!$OMP CRITICAL (MPI)     
+!        PRINT *,"-------------------------------------------------------------------"
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"en attente"
+!        PRINT *,"No des requetes :",TabRequest(1:NbRequest)
+#ifdef CPP_MPI
+        call MPI_WAITALL(NbRequest,TabRequest,TabStatus,ierr)
+#endif
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"complete"
+!        PRINT *,"-------------------------------------------------------------------"
+
+!$OMP END CRITICAL (MPI)
+      endif      
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+              
+      a_request%tag=1
+    end subroutine WaitSendRequest
+    
+   subroutine WaitRecvRequest(a_Request)
+   USE dimensions_mod
+   implicit none
+   
+#ifdef CPP_MPI
+      include 'mpif.h'   
+#endif
+      
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer, dimension(mpi_size) :: TabRequest
+#ifdef CPP_MPI
+      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
+#else
+      integer, dimension(1,mpi_size) :: TabStatus
+#endif
+      integer :: NbRequest
+      integer :: i,rank,pos,ij,l,ierr
+      integer :: offset,Nb
+      
+      
+      NbRequest=0
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0 .AND. Req%BufferSize > 0 ) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+     
+      
+      if (NbRequest>0) then
+!$OMP CRITICAL (MPI)     
+!        PRINT *,"-------------------------------------------------------------------"
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"en attente"
+!        PRINT *,"No des requetes :",TabRequest(1:NbRequest)
+#ifdef CPP_MPI
+        call MPI_WAITALL(NbRequest,TabRequest,TabStatus,ierr)
+#endif
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"complete"
+!        PRINT *,"-------------------------------------------------------------------"
+!$OMP END CRITICAL (MPI)     
+      endif
+      
+      do rank=0,MPI_Size-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          Pos=Req%Pos
+          do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+            offset=(PtrHallo%offset-1)*iip1+1
+	    Nb=iip1*PtrHallo%size-1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+	    do l=1,PtrHallo%NbLevel
+!cdir NODEP
+              do ij=0,Nb
+	        PtrHallo%Field(offset+ij,l)=Buffer(Pos+ij)
+	      enddo
+                 Pos=Pos+Nb+1
+            enddo
+!$OMP END DO NOWAIT
+          enddo
+        endif
+      enddo
+      
+           
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+     
+      a_request%tag=1
+    end subroutine WaitRecvRequest
+    
+    
+    
+    subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New)
+    USE dimensions_mod
+  
+      implicit none
+    
+    INTEGER :: ij,ll,l
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    integer ::i,jje,jjb,ijb,ije
+    
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+    
+    jjb=max(jj_begin,jj_begin_new(MPI_Rank))
+    jje=min(jj_end,jj_end_new(MPI_Rank))
+    if (ij==ip1jm) jje=min(jje,jjm)
+
+    if (jje >= jjb) then
+      ijb=(jjb-1)*iip1+1
+      ije=jje*iip1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,ll
+        FieldR(ijb:ije,l)=FieldS(ijb:ije,l)
+      enddo
+!$OMP ENDDO NOWAIT
+    endif
+
+
+  end subroutine CopyField    
+
+  subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down)
+  USE dimensions_mod
+  
+      implicit none
+    
+    INTEGER :: ij,ll,Up,Down
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+
+    integer ::i,jje,jjb,ijb,ije,l
+
+     
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+
+        
+    jjb=max(jj_begin,jj_begin_new(MPI_Rank)-Up)
+    jje=min(jj_end,jj_end_new(MPI_Rank)+Down)
+    if (ij==ip1jm) jje=min(jje,jjm)
+    
+    
+    if (jje >= jjb) then
+      ijb=(jjb-1)*iip1+1
+      ije=jje*iip1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,ll
+        FieldR(ijb:ije,l)=FieldS(ijb:ije,l)
+      enddo
+!$OMP ENDDO NOWAIT
+
+    endif
+   end subroutine CopyFieldHallo        
+
+   subroutine Gather_field_u(field_loc,field_glo,ll)
+   USE dimensions_mod
+   implicit none
+     integer :: ll
+     real :: field_loc(ijb_u:ije_u,ll)
+     real :: field_glo(ip1jmp1,ll)
+     type(request) :: request_gather
+     integer       :: l
+
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+     DO l=1,ll
+       field_glo(ij_begin:ij_end,l)=field_loc(ij_begin:ij_end,l)
+     ENDDO
+     
+     call register_SwapField(field_glo,field_glo,ip1jmp1,ll,distrib_gather%jj_nb_para,request_gather)
+     call SendRequest(request_gather)
+!$OMP BARRIER
+     call WaitRequest(request_gather)       
+!$OMP BARRIER
+
+    end subroutine Gather_field_u
+        
+   subroutine Gather_field_v(field_loc,field_glo,ll)
+   USE dimensions_mod
+   implicit none
+     integer :: ll
+     real :: field_loc(ijb_v:ije_v,ll)
+     real :: field_glo(ip1jm,ll)
+     type(request) :: request_gather
+     integer :: ijb,ije
+     integer       :: l
+     
+   
+     ijb=ij_begin
+     ije=ij_end
+     if (pole_sud) ije=ij_end-iip1
+        
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+     DO l=1,ll
+       field_glo(ijb:ije,l)=field_loc(ijb:ije,l)
+     ENDDO
+     
+     call register_SwapField(field_glo,field_glo,ip1jm,ll,distrib_gather%jj_nb_para,request_gather)
+     call SendRequest(request_gather)
+!$OMP BARRIER
+     call WaitRequest(request_gather)       
+!$OMP BARRIER
+
+    end subroutine Gather_field_v
+     
+   subroutine Scatter_field_u(field_glo,field_loc,ll)
+   USE dimensions_mod
+   implicit none
+     integer :: ll
+     real :: field_glo(ip1jmp1,ll)
+     real :: field_loc(ijb_u:ije_u,ll)
+     type(request) :: request_gather
+     TYPE(distrib) :: distrib_swap
+     integer       :: l
+     
+!$OMP BARRIER
+!$OMP MASTER     
+     call get_current_distrib(distrib_swap)
+     call set_Distrib(distrib_gather)
+!$OMP END MASTER
+!$OMP BARRIER
+ 
+     call register_SwapField(field_glo,field_glo,ip1jmp1,ll,distrib_swap%jj_nb_para,request_gather)
+     call SendRequest(request_gather)
+!$OMP BARRIER
+     call WaitRequest(request_gather)       
+!$OMP BARRIER
+!$OMP MASTER     
+     call set_Distrib(distrib_swap)
+!$OMP END MASTER
+!$OMP BARRIER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+       DO l=1,ll
+         field_loc(ij_begin:ij_end,l)=field_glo(ij_begin:ij_end,l)
+       ENDDO
+
+    end subroutine Scatter_field_u
+
+   subroutine Scatter_field_v(field_glo,field_loc,ll)
+   USE dimensions_mod
+   implicit none
+     integer :: ll
+     real :: field_glo(ip1jmp1,ll)
+     real :: field_loc(ijb_v:ije_v,ll)
+     type(request) :: request_gather
+     TYPE(distrib) :: distrib_swap
+     integer       :: ijb,ije,l
+     
+
+!$OMP BARRIER
+!$OMP MASTER     
+     call get_current_distrib(distrib_swap)
+     call set_Distrib(distrib_gather)
+!$OMP END MASTER
+!$OMP BARRIER
+     call register_SwapField(field_glo,field_glo,ip1jm,ll,distrib_swap%jj_nb_para,request_gather)
+     call SendRequest(request_gather)
+!$OMP BARRIER
+     call WaitRequest(request_gather)       
+!$OMP BARRIER
+!$OMP MASTER
+     call set_Distrib(distrib_swap)
+!$OMP END MASTER
+!$OMP BARRIER
+     ijb=ij_begin
+     ije=ij_end
+     if (pole_sud) ije=ij_end-iip1
+     
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+       DO l=1,ll
+         field_loc(ijb:ije,l)=field_glo(ijb:ije,l)
+       ENDDO
+
+    end subroutine Scatter_field_v
+              
+end module mod_Hallo 
+   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgrad_gam_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgrad_gam_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgrad_gam_loc.F	(revision 3330)
@@ -0,0 +1,69 @@
+      SUBROUTINE nxgrad_gam_loc( klevel, rot, x, y )
+c
+c  P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+      INTEGER klevel
+      REAL rot( ijb_v:ije_v,klevel )
+      REAL x( ijb_u:ije_u,klevel ),y(ijb_v:ije_v,klevel )
+      INTEGER   l,ij
+      integer ismin,ismax
+      external ismin,ismax
+      INTEGER :: ijb,ije
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 10 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+      
+      DO 1  ij = ijb+1, ije
+      y( ij,l ) = (rot( ij,l ) - rot( ij-1,l )) * cvscuvgam( ij )
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+CDIR$ IVDEP
+      DO 2  ij = ijb, ije, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if(pole_nord) ijb=ij_begin+iip1
+      if(pole_sud) ije=ij_end-iip1
+      
+      DO 4  ij = ijb,ije
+      x( ij,l ) = (rot( ij,l ) - rot( ij -iip1,l )) * cuscvugam( ij )
+   4  CONTINUE
+    
+      if (pole_nord) then
+        DO  ij = 1,iip1
+         x(    ij    ,l ) = 0.
+        ENDDO
+      endif
+
+      if (pole_sud) then
+        DO  ij = 1,iip1
+         x( ij +ip1jm,l ) = 0.
+        ENDDO
+      endif
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgrad_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgrad_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgrad_loc.F	(revision 3330)
@@ -0,0 +1,68 @@
+      SUBROUTINE nxgrad_loc (klevel, rot, x, y )
+c
+c     P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+      INTEGER klevel
+      REAL rot( ijb_v:ije_v,klevel ),x( ijb_u:ije_u,klevel )
+      REAL y(ijb_v:ije_v,klevel )
+      INTEGER   l,ij
+      INTEGER :: ijb,ije
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 10 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+       
+      DO 1  ij = ijb+1, ije
+      y( ij,l ) = (  rot( ij,l ) - rot( ij-1,l )  ) * cvsurcuv( ij )
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+CDIR$ IVDEP
+      DO 2  ij = ijb, ije, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      ijb=ij_begin
+      ije=ij_end+iip1
+      
+      if (pole_nord)  ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4  ij = ijb,ije
+      x( ij,l ) = (  rot( ij,l ) - rot( ij -iip1,l )  ) * cusurcvu( ij )
+   4  CONTINUE
+   
+      if (pole_nord) then 
+        DO ij = 1,iip1
+          x(    ij    ,l ) = 0.
+        ENDDO
+      endif
+      
+      if (pole_sud) then 
+        DO ij = 1,iip1
+          x( ij +ip1jm,l ) = 0.
+        ENDDO
+      endif
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgraro2_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgraro2_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgraro2_loc.F	(revision 3330)
@@ -0,0 +1,143 @@
+       SUBROUTINE nxgraro2_loc(klevel,xcov,ycov,lr,grx_out,gry_out)
+c
+c      P.Le Van .
+c   ***********************************************************
+c                                 lr
+c      calcul de  ( nxgrad (rot) )   du vect. v  ....
+c
+c       xcov et ycov  etant les compos. covariantes de  v
+c   ***********************************************************
+c     xcov , ycov et lr  sont des arguments  d'entree pour le s-prog
+c      grx   et  gry     sont des arguments de sortie pour le s-prog
+c
+c
+      USE write_Field_p
+      USE parallel_lmdz
+      USE times
+      USE mod_hallo
+      USE mod_filtreg_p
+      USE nxgraro2_mod
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissipn.h"
+c
+c    ......  variables en arguments  .......
+c
+      INTEGER klevel
+      REAL xcov( ijb_u:ije_u,klevel ), ycov( ijb_v:ije_v,klevel )
+      REAL  grx_out( ijb_u:ije_u,klevel ),gry_out(ijb_v:ije_v,klevel)
+c
+c    ......   variables locales     ........
+c
+      REAL  signe, nugradrs
+      INTEGER l,ij,iter,lr
+      Type(Request),SAVE :: Request_dissip
+!$OMP THREADPRIVATE(Request_dissip)
+c    ........................................................
+c
+      INTEGER :: ijb,ije,jjb,jje
+      
+c
+c
+      signe    = (-1.)**lr
+      nugradrs = signe * crot
+c
+c      CALL SCOPY ( ip1jmp1* klevel, xcov, 1, grx, 1 )
+c      CALL SCOPY (  ip1jm * klevel, ycov, 1, gry, 1 )
+ 
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO    l = 1, klevel
+        grx(ijb:ije,l)=xcov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP BARRIER
+       call Register_Hallo_u(grx,llm,0,1,1,0,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO    l = 1, klevel
+        gry(ijb:ije,l)=ycov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+ 
+c
+      CALL     rotatf_loc ( klevel, grx, gry, rot )
+c      call write_field3d_p('rot1',reshape(rot,(/iip1,jjm,llm/)))
+
+c$OMP BARRIER
+       call Register_Hallo_v(rot,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+      
+      CALL laplacien_rot_loc ( klevel, rot, rot,grx,gry      )
+c       call write_field3d_p('rot2',reshape(rot,(/iip1,jjm,llm/)))
+c
+c    .....   Iteration de l'operateur laplacien_rotgam  .....
+c
+      DO  iter = 1, lr -2
+c$OMP BARRIER
+       call Register_Hallo_v(rot,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+	CALL laplacien_rotgam_loc( klevel, rot, rot )
+      ENDDO
+      
+c       call write_field3d_p('rot3',reshape(rot,(/iip1,jjm,llm/)))
+      
+c
+c
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+       
+      CALL filtreg_p( rot, jjb_v,jje_v, jjb,jje,jjm,
+     &                klevel, 2,1, .FALSE.,1)
+c$OMP BARRIER
+       call Register_Hallo_v(rot,llm,1,0,0,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      CALL nxgrad_loc ( klevel, rot, grx, gry )
+
+c
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO    l = 1, klevel
+        
+         if(pole_sud) ije=ij_end-iip1
+         DO  ij = ijb, ije
+          gry_out( ij,l ) = gry( ij,l ) * nugradrs
+         ENDDO
+        
+         if(pole_sud) ije=ij_end
+         DO  ij = ijb, ije
+          grx_out( ij,l ) = grx( ij,l ) * nugradrs
+         ENDDO
+     
+      ENDDO
+c$OMP END DO NOWAIT
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgraro2_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgraro2_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/nxgraro2_mod.F90	(revision 3330)
@@ -0,0 +1,39 @@
+MODULE nxgraro2_mod
+
+  REAL,POINTER,SAVE ::  grx( :,: )
+  REAL,POINTER,SAVE ::  gry( :,: )
+  REAL,POINTER,SAVE ::  rot( :,: )
+  
+CONTAINS
+
+  SUBROUTINE nxgraro2_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE dimensions_mod
+  IMPLICIT NONE
+    TYPE(distrib),POINTER :: d
+    d=>distrib_dissip
+
+    CALL allocate_u(grx,llm,d)
+    CALL allocate_v(gry,llm,d)
+    CALL allocate_v(rot,llm,d)
+
+    
+  END SUBROUTINE nxgraro2_allocate
+  
+  SUBROUTINE nxgraro2_switch_dissip(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+
+    CALL switch_u(grx,distrib_dissip,dist)
+    CALL switch_v(gry,distrib_dissip,dist)
+    CALL switch_v(rot,distrib_dissip,dist)
+
+
+  END SUBROUTINE nxgraro2_switch_dissip
+  
+END MODULE nxgraro2_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/omp_chunk.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/omp_chunk.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/omp_chunk.h	(revision 3330)
@@ -0,0 +1,1 @@
+#define OMP_CHUNK 5
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/parallel_lmdz.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/parallel_lmdz.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/parallel_lmdz.F90	(revision 3330)
@@ -0,0 +1,793 @@
+! 
+! $Id$
+!
+  MODULE parallel_lmdz
+  USE mod_const_mpi
+#ifdef CPP_IOIPSL
+      use IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+      use ioipsl_getincom
+#endif    
+    INTEGER,PARAMETER :: halo_max=3
+    
+    LOGICAL,SAVE :: using_mpi
+    LOGICAL,SAVE :: using_omp
+    
+    integer, save :: mpi_size
+    integer, save :: mpi_rank
+    integer, save :: jj_begin
+    integer, save :: jj_end
+    integer, save :: jj_nb
+    integer, save :: ij_begin
+    integer, save :: ij_end
+    logical, save :: pole_nord
+    logical, save :: pole_sud
+
+    integer,save  :: jjb_u
+    integer,save  :: jje_u
+    integer,save  :: jjnb_u
+    integer,save  :: jjb_v
+    integer,save  :: jje_v
+    integer,save  :: jjnb_v    
+
+    integer,save  :: ijb_u
+    integer,save  :: ije_u
+    integer,save  :: ijnb_u    
+    
+    integer,save  :: ijb_v
+    integer,save  :: ije_v
+    integer,save  :: ijnb_v    
+     
+    
+    integer, allocatable, save, dimension(:) :: jj_begin_para
+    integer, allocatable, save, dimension(:) :: jj_end_para
+    integer, allocatable, save, dimension(:) :: jj_nb_para
+    integer, save :: OMP_CHUNK
+    integer, save :: omp_rank
+    integer, save :: omp_size  
+!$OMP THREADPRIVATE(omp_rank)
+
+    TYPE distrib
+      integer :: jj_begin
+      integer :: jj_end
+      integer :: jj_nb
+      integer :: ij_begin
+      integer :: ij_end
+
+      integer  :: jjb_u
+      integer  :: jje_u
+      integer  :: jjnb_u
+      integer  :: jjb_v
+      integer  :: jje_v
+      integer  :: jjnb_v    
+ 
+      integer  :: ijb_u
+      integer  :: ije_u
+      integer  :: ijnb_u    
+    
+      integer  :: ijb_v
+      integer  :: ije_v
+      integer  :: ijnb_v    
+     
+    
+      integer, pointer :: jj_begin_para(:) => NULL()
+      integer, pointer :: jj_end_para(:) => NULL()
+      integer, pointer :: jj_nb_para(:) => NULL()
+    END TYPE distrib  
+    
+    INTERFACE ASSIGNMENT (=)
+      MODULE PROCEDURE copy_distrib
+    END INTERFACE
+    TYPE(distrib),SAVE :: current_dist
+    
+ contains
+ 
+    subroutine init_parallel
+    USE vampir
+    implicit none
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif
+#include "dimensions.h"
+#include "paramet.h"
+#include "iniprint.h"
+
+      integer :: ierr
+      integer :: i,j
+      integer :: type_size
+      integer, dimension(3) :: blocklen,type
+      integer :: comp_id
+      character(len=4)  :: num
+      character(len=20) :: filename
+ 
+#ifdef CPP_OMP    
+      INTEGER :: OMP_GET_NUM_THREADS
+      EXTERNAL OMP_GET_NUM_THREADS
+      INTEGER :: OMP_GET_THREAD_NUM
+      EXTERNAL OMP_GET_THREAD_NUM
+#endif  
+
+#ifdef CPP_MPI
+       using_mpi=.TRUE.
+#else
+       using_mpi=.FALSE.
+#endif
+      
+
+#ifdef CPP_OMP
+       using_OMP=.TRUE.
+#else
+       using_OMP=.FALSE.
+#endif
+      
+      call InitVampir
+      
+      IF (using_mpi) THEN
+#ifdef CPP_MPI
+        call MPI_COMM_SIZE(COMM_LMDZ,mpi_size,ierr)
+        call MPI_COMM_RANK(COMM_LMDZ,mpi_rank,ierr)
+#endif
+      ELSE
+        mpi_size=1
+        mpi_rank=0
+      ENDIF
+
+
+! Open text output file with mpi_rank in suffix of file name 
+      IF (lunout /= 5 .and. lunout /= 6) THEN
+         WRITE(num,'(I4.4)') mpi_rank
+         filename='lmdz.out_'//num
+         IF (mpi_rank .NE. 0) THEN
+            OPEN(UNIT=lunout,FILE=TRIM(filename),ACTION='write', &
+               STATUS='unknown',FORM='formatted',IOSTAT=ierr) 
+         ENDIF
+      ENDIF
+
+      
+      allocate(jj_begin_para(0:mpi_size-1))
+      allocate(jj_end_para(0:mpi_size-1))
+      allocate(jj_nb_para(0:mpi_size-1))
+      
+      do i=0,mpi_size-1
+        jj_nb_para(i)=(jjm+1)/mpi_size
+        if ( i < MOD((jjm+1),mpi_size) ) jj_nb_para(i)=jj_nb_para(i)+1
+        
+        if (jj_nb_para(i) <= 1 ) then
+          
+         write(lunout,*)"Arret : le nombre de bande de lattitude par process est trop faible (<2)."
+         write(lunout,*)" ---> diminuez le nombre de CPU ou augmentez la taille en lattitude"
+          
+#ifdef CPP_MPI
+          IF (using_mpi) call MPI_ABORT(COMM_LMDZ,-1, ierr)
+#endif          
+        endif
+        
+      enddo
+      
+!      jj_nb_para(0)=11
+!      jj_nb_para(1)=25
+!      jj_nb_para(2)=25
+!      jj_nb_para(3)=12      
+
+      j=1
+      
+      do i=0,mpi_size-1 
+        
+        jj_begin_para(i)=j
+        jj_end_para(i)=j+jj_Nb_para(i)-1
+        j=j+jj_Nb_para(i)
+      
+      enddo
+      
+      jj_begin = jj_begin_para(mpi_rank)
+      jj_end   = jj_end_para(mpi_rank)
+      jj_nb    = jj_nb_para(mpi_rank)
+      
+      ij_begin=(jj_begin-1)*iip1+1
+      ij_end=jj_end*iip1
+      
+      if (mpi_rank.eq.0) then
+        pole_nord=.TRUE.
+      else 
+        pole_nord=.FALSE.
+      endif
+      
+      if (mpi_rank.eq.mpi_size-1) then
+        pole_sud=.TRUE.
+      else 
+        pole_sud=.FALSE.
+      endif
+        
+      write(lunout,*)"init_parallel: jj_begin",jj_begin
+      write(lunout,*)"init_parallel: jj_end",jj_end
+      write(lunout,*)"init_parallel: ij_begin",ij_begin
+      write(lunout,*)"init_parallel: ij_end",ij_end
+      jjb_u=MAX(jj_begin-halo_max,1)
+      jje_u=MIN(jj_end+halo_max,jjp1)
+      jjnb_u=jje_u-jjb_u+1
+
+      jjb_v=MAX(jj_begin-halo_max,1)
+      jje_v=MIN(jj_end+halo_max,jjm)
+      jjnb_v=jje_v-jjb_v+1
+
+      ijb_u=MAX(ij_begin-halo_max*iip1,1)
+      ije_u=MIN(ij_end+halo_max*iip1,ip1jmp1)
+      ijnb_u=ije_u-ijb_u+1
+
+      ijb_v=MAX(ij_begin-halo_max*iip1,1)
+      ije_v=MIN(ij_end+halo_max*iip1,ip1jm)
+      ijnb_v=ije_v-ijb_v+1
+      
+!$OMP PARALLEL
+
+#ifdef CPP_OMP
+!$OMP MASTER
+        omp_size=OMP_GET_NUM_THREADS()
+!$OMP END MASTER
+!$OMP BARRIER
+        omp_rank=OMP_GET_THREAD_NUM()  
+
+!Config  Key  = omp_chunk
+!Config  Desc = taille des blocs openmp
+!Config  Def  = 1
+!Config  Help = defini la taille des packets d'it�ration openmp
+!Config         distribue a chaque tache lors de l'entree dans une
+!Config         boucle parallelisee
+
+!$OMP MASTER
+      omp_chunk=(llm+1)/omp_size
+      IF (MOD(llm+1,omp_size)/=0) omp_chunk=omp_chunk+1
+      CALL getin('omp_chunk',omp_chunk)
+!$OMP END MASTER
+!$OMP BARRIER        
+#else    
+        omp_size=1
+        omp_rank=0
+#endif
+!$OMP END PARALLEL         
+      CALL create_distrib(jj_nb_para,current_dist)
+      
+    end subroutine init_parallel
+
+    SUBROUTINE create_distrib(jj_nb_new,d)
+    IMPLICIT NONE
+      INCLUDE "dimensions.h"
+      INCLUDE "paramet.h"
+      
+      INTEGER,INTENT(IN) :: jj_Nb_New(0:MPI_Size-1)
+      TYPE(distrib),INTENT(INOUT) :: d
+      INTEGER :: i  
+  
+      IF (.NOT. ASSOCIATED(d%jj_nb_para)) ALLOCATE(d%jj_nb_para(0:MPI_Size-1))
+      IF (.NOT. ASSOCIATED(d%jj_begin_para)) ALLOCATE(d%jj_begin_para(0:MPI_Size-1))
+      IF (.NOT. ASSOCIATED(d%jj_end_para)) ALLOCATE(d%jj_end_para(0:MPI_Size-1))
+      
+      d%jj_Nb_Para=jj_Nb_New
+      
+      d%jj_begin_para(0)=1
+      d%jj_end_para(0)=d%jj_Nb_Para(0)
+      
+      do i=1,mpi_size-1 
+        
+        d%jj_begin_para(i)=d%jj_end_para(i-1)+1
+        d%jj_end_para(i)=d%jj_begin_para(i)+d%jj_Nb_para(i)-1
+      
+      enddo
+      
+      d%jj_begin = d%jj_begin_para(mpi_rank)
+      d%jj_end   = d%jj_end_para(mpi_rank)
+      d%jj_nb    = d%jj_nb_para(mpi_rank)
+      
+      d%ij_begin=(d%jj_begin-1)*iip1+1
+      d%ij_end=d%jj_end*iip1
+
+      d%jjb_u=MAX(d%jj_begin-halo_max,1)
+      d%jje_u=MIN(d%jj_end+halo_max,jjp1)
+      d%jjnb_u=d%jje_u-d%jjb_u+1
+
+      d%jjb_v=MAX(d%jj_begin-halo_max,1)
+      d%jje_v=MIN(d%jj_end+halo_max,jjm)
+      d%jjnb_v=d%jje_v-d%jjb_v+1
+
+      d%ijb_u=MAX(d%ij_begin-halo_max*iip1,1)
+      d%ije_u=MIN(d%ij_end+halo_max*iip1,ip1jmp1)
+      d%ijnb_u=d%ije_u-d%ijb_u+1
+
+      d%ijb_v=MAX(d%ij_begin-halo_max*iip1,1)
+      d%ije_v=MIN(d%ij_end+halo_max*iip1,ip1jm)
+      d%ijnb_v=d%ije_v-d%ijb_v+1      
+
+    END SUBROUTINE create_distrib
+
+      
+    SUBROUTINE Set_Distrib(d)
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    TYPE(distrib),INTENT(IN) :: d
+
+      jj_begin = d%jj_begin
+      jj_end = d%jj_end
+      jj_nb = d%jj_nb
+      ij_begin = d%ij_begin
+      ij_end = d%ij_end
+
+      jjb_u = d%jjb_u
+      jje_u = d%jje_u
+      jjnb_u = d%jjnb_u
+      jjb_v = d%jjb_v
+      jje_v = d%jje_v
+      jjnb_v = d%jjnb_v
+ 
+      ijb_u = d%ijb_u
+      ije_u = d%ije_u
+      ijnb_u = d%ijnb_u
+    
+      ijb_v = d%ijb_v
+      ije_v = d%ije_v
+      ijnb_v = d%ijnb_v
+     
+    
+      jj_begin_para(:) = d%jj_begin_para(:)
+      jj_end_para(:) = d%jj_end_para(:)
+      jj_nb_para(:) = d%jj_nb_para(:)
+      current_dist=d 
+
+    END SUBROUTINE Set_Distrib
+
+    SUBROUTINE copy_distrib(dist,new_dist)
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    TYPE(distrib),INTENT(INOUT) :: dist
+    TYPE(distrib),INTENT(IN) :: new_dist
+
+     dist%jj_begin = new_dist%jj_begin
+     dist%jj_end = new_dist%jj_end
+     dist%jj_nb = new_dist%jj_nb
+     dist%ij_begin = new_dist%ij_begin
+     dist%ij_end = new_dist%ij_end
+
+     dist%jjb_u = new_dist%jjb_u
+     dist%jje_u = new_dist%jje_u
+     dist%jjnb_u = new_dist%jjnb_u
+     dist%jjb_v = new_dist%jjb_v
+     dist%jje_v = new_dist%jje_v
+     dist%jjnb_v = new_dist%jjnb_v
+   
+     dist%ijb_u = new_dist%ijb_u
+     dist%ije_u = new_dist%ije_u
+     dist%ijnb_u = new_dist%ijnb_u
+     
+     dist%ijb_v = new_dist%ijb_v
+     dist%ije_v = new_dist%ije_v
+     dist%ijnb_v = new_dist%ijnb_v
+         
+     
+     dist%jj_begin_para(:) = new_dist%jj_begin_para(:)
+     dist%jj_end_para(:) = new_dist%jj_end_para(:)
+     dist%jj_nb_para(:) = new_dist%jj_nb_para(:)
+ 
+    END SUBROUTINE copy_distrib
+    
+    
+    SUBROUTINE get_current_distrib(d)
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    TYPE(distrib),INTENT(OUT) :: d
+
+     d=current_dist
+
+    END SUBROUTINE get_current_distrib
+    
+    subroutine Finalize_parallel
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+	USE wxios
+#endif
+#ifdef CPP_COUPLE
+! Use of Oasis-MCT coupler 
+#if defined CPP_OMCT
+    use mod_prism
+#else
+    use mod_prism_proto
+#endif
+! Ehouarn: surface_data module is in 'phylmd' ...
+      use surface_data, only : type_ocean
+      implicit none
+#else
+      implicit none
+! without the surface_data module, we declare (and set) a dummy 'type_ocean'
+      character(len=6),parameter :: type_ocean="dummy"
+#endif
+! #endif of #ifdef CPP_EARTH
+
+      include "dimensions.h"
+      include "paramet.h"
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif      
+
+      integer :: ierr
+      integer :: i
+
+      if (allocated(jj_begin_para)) deallocate(jj_begin_para)
+      if (allocated(jj_end_para))   deallocate(jj_end_para)
+      if (allocated(jj_nb_para))    deallocate(jj_nb_para)
+
+      if (type_ocean == 'couple') then
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#else
+#ifdef CPP_COUPLE
+         call prism_terminate_proto(ierr)
+         IF (ierr .ne. PRISM_Ok) THEN
+            call abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
+         endif
+#endif 
+#endif
+      else
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#endif
+#ifdef CPP_MPI
+         IF (using_mpi) call MPI_FINALIZE(ierr)
+#endif
+      end if
+      
+    end subroutine Finalize_parallel
+        
+    subroutine Pack_Data(Field,ij,ll,row,Buffer)
+    implicit none
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      integer, intent(in) :: ij,ll,row
+      real,dimension(ij,ll),intent(in) ::Field
+      real,dimension(ll*iip1*row), intent(out) :: Buffer 
+            
+      integer :: Pos
+      integer :: i,l
+      
+      Pos=0
+      do l=1,ll
+        do i=1,row*iip1
+          Pos=Pos+1
+          Buffer(Pos)=Field(i,l)
+        enddo
+      enddo
+      
+    end subroutine Pack_data 
+     
+    subroutine Unpack_Data(Field,ij,ll,row,Buffer)
+    implicit none
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      integer, intent(in) :: ij,ll,row
+      real,dimension(ij,ll),intent(out) ::Field
+      real,dimension(ll*iip1*row), intent(in) :: Buffer 
+            
+      integer :: Pos
+      integer :: i,l
+      
+      Pos=0
+      
+      do l=1,ll
+        do i=1,row*iip1
+          Pos=Pos+1
+          Field(i,l)=Buffer(Pos)
+        enddo
+      enddo
+      
+    end subroutine UnPack_data
+
+    
+    SUBROUTINE barrier
+    IMPLICIT NONE
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER :: ierr
+    
+!$OMP CRITICAL (MPI)      
+#ifdef CPP_MPI
+      IF (using_mpi) CALL MPI_Barrier(COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+    
+    END SUBROUTINE barrier
+       
+      
+    subroutine exchange_hallo(Field,ij,ll,up,down)
+    USE Vampir
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: up,down
+      
+      INTEGER :: ierr
+      LOGICAL :: SendUp,SendDown
+      LOGICAL :: RecvUp,RecvDown
+      INTEGER, DIMENSION(4) :: Request
+#ifdef CPP_MPI
+      INTEGER, DIMENSION(MPI_STATUS_SIZE,4) :: Status
+#else
+      INTEGER, DIMENSION(1,4) :: Status
+#endif
+      INTEGER :: NbRequest
+      REAL, dimension(:),allocatable :: Buffer_Send_up,Buffer_Send_down
+      REAL, dimension(:),allocatable :: Buffer_Recv_up,Buffer_Recv_down
+      INTEGER :: Buffer_size      
+
+      IF (using_mpi) THEN
+
+        CALL barrier
+      
+        call VTb(VThallo)
+      
+        SendUp=.TRUE.
+        SendDown=.TRUE.
+        RecvUp=.TRUE.
+        RecvDown=.TRUE.
+          
+        IF (pole_nord) THEN
+          SendUp=.FALSE.
+          RecvUp=.FALSE.
+        ENDIF
+    
+        IF (pole_sud) THEN
+          SendDown=.FALSE.
+          RecvDown=.FALSE.
+        ENDIF
+        
+        if (up.eq.0) then
+          SendDown=.FALSE.
+          RecvUp=.FALSE.
+        endif
+      
+        if (down.eq.0) then
+          SendUp=.FALSE.
+          RecvDown=.FALSE.
+        endif
+      
+        NbRequest=0
+  
+        IF (SendUp) THEN
+          NbRequest=NbRequest+1
+          buffer_size=down*iip1*ll
+          allocate(Buffer_Send_up(Buffer_size))
+          call PACK_Data(Field(ij_begin,1),ij,ll,down,Buffer_Send_up)
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_ISEND(Buffer_send_up,Buffer_Size,MPI_REAL8,MPI_Rank-1,1,     &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+        ENDIF
+  
+        IF (SendDown) THEN
+          NbRequest=NbRequest+1
+           
+          buffer_size=up*iip1*ll
+          allocate(Buffer_Send_down(Buffer_size))
+          call PACK_Data(Field(ij_end+1-up*iip1,1),ij,ll,up,Buffer_send_down)
+        
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_ISEND(Buffer_send_down,Buffer_Size,MPI_REAL8,MPI_Rank+1,1,     &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+        ENDIF
+    
+  
+        IF (RecvUp) THEN
+          NbRequest=NbRequest+1
+          buffer_size=up*iip1*ll
+          allocate(Buffer_recv_up(Buffer_size))
+              
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_IRECV(Buffer_recv_up,Buffer_size,MPI_REAL8,MPI_Rank-1,1,  &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+     
+       
+        ENDIF
+  
+        IF (RecvDown) THEN
+          NbRequest=NbRequest+1
+          buffer_size=down*iip1*ll
+          allocate(Buffer_recv_down(Buffer_size))
+        
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_IRECV(Buffer_recv_down,Buffer_size,MPI_REAL8,MPI_Rank+1,1,     &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+        
+        ENDIF
+  
+#ifdef CPP_MPI
+        if (NbRequest > 0) call MPI_WAITALL(NbRequest,Request,Status,ierr)
+#endif
+        IF (RecvUp)  call Unpack_Data(Field(ij_begin-up*iip1,1),ij,ll,up,Buffer_Recv_up)
+        IF (RecvDown) call Unpack_Data(Field(ij_end+1,1),ij,ll,down,Buffer_Recv_down)  
+
+        call VTe(VThallo)
+        call barrier
+      
+      ENDIF  ! using_mpi
+      
+      RETURN
+      
+    end subroutine exchange_Hallo
+    
+
+    subroutine Gather_Field(Field,ij,ll,rank)
+    implicit none
+#include "dimensions.h"
+#include "paramet.h" 
+#include "iniprint.h"
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll,rank
+      REAL, dimension(ij,ll) :: Field
+      REAL, dimension(:),allocatable :: Buffer_send   
+      REAL, dimension(:),allocatable :: Buffer_Recv
+      INTEGER, dimension(0:MPI_Size-1) :: Recv_count, displ
+      INTEGER :: ierr
+      INTEGER ::i
+      
+      IF (using_mpi) THEN
+
+        if (ij==ip1jmp1) then 
+           allocate(Buffer_send(iip1*ll*(jj_end-jj_begin+1)))
+           call Pack_Data(Field(ij_begin,1),ij,ll,jj_end-jj_begin+1,Buffer_send)
+        else if (ij==ip1jm) then
+           allocate(Buffer_send(iip1*ll*(min(jj_end,jjm)-jj_begin+1)))
+           call Pack_Data(Field(ij_begin,1),ij,ll,min(jj_end,jjm)-jj_begin+1,Buffer_send)
+        else
+           write(lunout,*)ij  
+        stop 'erreur dans Gather_Field'
+        endif
+        
+        if (MPI_Rank==rank) then
+          allocate(Buffer_Recv(ij*ll))
+
+!CDIR NOVECTOR
+          do i=0,MPI_Size-1
+             
+            if (ij==ip1jmp1) then 
+              Recv_count(i)=(jj_end_para(i)-jj_begin_para(i)+1)*ll*iip1
+            else if (ij==ip1jm) then
+              Recv_count(i)=(min(jj_end_para(i),jjm)-jj_begin_para(i)+1)*ll*iip1
+            else
+              stop 'erreur dans Gather_Field'
+            endif
+                   
+            if (i==0) then 
+              displ(i)=0 
+            else
+              displ(i)=displ(i-1)+Recv_count(i-1)
+            endif
+            
+          enddo
+          
+        else
+          ! Ehouarn: When in debug mode, ifort complains (for call MPI_GATHERV
+          !          below) about Buffer_Recv() being not allocated.
+          !          So make a dummy allocation.
+          allocate(Buffer_Recv(1))
+        endif ! of if (MPI_Rank==rank)
+  
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+        call MPI_GATHERV(Buffer_send,(min(ij_end,ij)-ij_begin+1)*ll,MPI_REAL8,   &
+                          Buffer_Recv,Recv_count,displ,MPI_REAL8,rank,COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      
+        if (MPI_Rank==rank) then                  
+      
+          if (ij==ip1jmp1) then 
+            do i=0,MPI_Size-1
+              call Unpack_Data(Field((jj_begin_para(i)-1)*iip1+1,1),ij,ll,                 &
+                               jj_end_para(i)-jj_begin_para(i)+1,Buffer_Recv(displ(i)+1))
+            enddo
+          else if (ij==ip1jm) then
+            do i=0,MPI_Size-1
+               call Unpack_Data(Field((jj_begin_para(i)-1)*iip1+1,1),ij,ll,                       &
+                               min(jj_end_para(i),jjm)-jj_begin_para(i)+1,Buffer_Recv(displ(i)+1))
+            enddo
+          endif
+        endif 
+      ENDIF ! using_mpi
+      
+    end subroutine Gather_Field
+
+
+    subroutine AllGather_Field(Field,ij,ll)
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: ierr
+      
+      IF (using_mpi) THEN
+        call Gather_Field(Field,ij,ll,0)
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+      call MPI_BCAST(Field,ij*ll,MPI_REAL8,0,COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      ENDIF
+      
+    end subroutine AllGather_Field
+    
+   subroutine Broadcast_Field(Field,ij,ll,rank)
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: rank
+      INTEGER :: ierr
+      
+      IF (using_mpi) THEN
+      
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+      call MPI_BCAST(Field,ij*ll,MPI_REAL8,rank,COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      
+      ENDIF
+    end subroutine Broadcast_Field
+        
+   
+!  Subroutine verif_hallo(Field,ij,ll,up,down)
+!    implicit none
+!#include "dimensions.h"
+!#include "paramet.h"    
+!    include 'mpif.h'
+!    
+!      INTEGER :: ij,ll
+!      REAL, dimension(ij,ll) :: Field
+!      INTEGER :: up,down 
+!      
+!      REAL,dimension(ij,ll): NewField
+!      
+!      NewField=0
+!      
+!      ijb=ij_begin
+!      ije=ij_end
+!      if (pole_nord) 
+!      NewField(ij_be       
+
+  end MODULE parallel_lmdz
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/paramet.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/paramet.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/paramet.h	(revision 3330)
@@ -0,0 +1,29 @@
+!
+! $Id$
+!
+!
+!  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)
+!
+!
+!-----------------------------------------------------------------------
+!   INCLUDE 'paramet.h'
+
+      INTEGER  iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1
+      INTEGER  kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm
+      INTEGER  ijmllm,mvar
+      INTEGER jcfil,jcfllm
+
+      PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3                &
+     &    ,jjp1=jjm+1-1/jjm)
+      PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
+      PARAMETER( kftd  = iim/2 -ndm )
+      PARAMETER( ip1jm  = iip1*jjm,  ip1jmp1= iip1*jjp1 )
+      PARAMETER( ip1jmi1= ip1jm - iip1 )
+      PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm )
+      PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm )
+      PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm )
+
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/pression_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/pression_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/pression_loc.F	(revision 3330)
@@ -0,0 +1,42 @@
+      SUBROUTINE pression_loc( ngrid, ap, bp, ps, p )
+      USE parallel_lmdz, ONLY: ij_begin, ij_end, ijb_u, ije_u,
+     &                         pole_nord, pole_sud, omp_chunk
+c
+
+c      Auteurs : P. Le Van , Fr.Hourdin  .
+
+c  ************************************************************************
+c     Calcule la pression p(l) aux differents niveaux l = 1 ( niveau du
+c     sol) a l = llm +1 ,ces niveaux correspondant aux interfaces des (llm) 
+c     couches , avec  p(ij,llm +1) = 0.  et p(ij,1) = ps(ij)  .      
+c  ************************************************************************
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+      INTEGER,INTENT(IN) :: ngrid ! not used
+      INTEGER l,ij
+ 
+      REAL,INTENT(IN) :: ap( llmp1 ), bp( llmp1 ), ps( ijb_u:ije_u )
+      REAL,INTENT(OUT) :: p( ijb_u:ije_u,llmp1 ) 
+      
+      INTEGER ijb,ije
+
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+2*iip1
+      
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO    l    = 1, llmp1
+        DO  ij   = ijb, ije
+         p(ij,l) = ap(l) + bp(l) * ps(ij)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT   
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/qminimum_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/qminimum_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/qminimum_loc.F	(revision 3330)
@@ -0,0 +1,248 @@
+      SUBROUTINE qminimum_loc( q,nqtot,deltap )
+      USE parallel_lmdz
+      USE infotrac, ONLY: ok_isotopes,ntraciso,iqiso,ok_iso_verif
+      IMPLICIT none
+c
+c  -- Objet : Traiter les valeurs trop petites (meme negatives)
+c             pour l'eau vapeur et l'eau liquide
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+      INTEGER nqtot ! CRisi: on remplace nq par nqtot
+      REAL q(ijb_u:ije_u,llm,nqtot), deltap(ijb_u:ije_u,llm)
+c
+      INTEGER iq_vap, iq_liq
+      PARAMETER ( iq_vap = 1 ) ! indice pour l'eau vapeur
+      PARAMETER ( iq_liq = 2 ) ! indice pour l'eau liquide
+      REAL seuil_vap, seuil_liq
+      PARAMETER ( seuil_vap = 1.0e-10 ) ! seuil pour l'eau vapeur
+      PARAMETER ( seuil_liq = 1.0e-11 ) ! seuil pour l'eau liquide
+c
+c  NB. ....( Il est souhaitable mais non obligatoire que les valeurs des
+c            parametres seuil_vap, seuil_liq soient pareilles a celles 
+c            qui  sont utilisees dans la routine    ADDFI       )
+c     .................................................................
+c
+      INTEGER i, k, iq
+      REAL zx_defau, zx_abc, zx_pump(ijb_u:ije_u), pompe
+
+      real zx_defau_diag(ijb_u:ije_u,llm,2) 
+      real q_follow(ijb_u:ije_u,llm,2) 
+c
+      REAL SSUM
+      EXTERNAL SSUM
+c
+      INTEGER imprim
+      SAVE imprim
+      DATA imprim /0/
+c$OMP THREADPRIVATE(imprim)
+      INTEGER ijb,ije
+      INTEGER Index_pump(ij_end-ij_begin+1)
+      INTEGER nb_pump
+      INTEGER ixt
+      INTEGER iso_verif_noNaN_nostop
+c
+c Quand l'eau liquide est trop petite (ou negative), on prend
+c l'eau vapeur de la meme couche et la convertit en eau liquide
+c (sans changer la temperature !)
+c
+
+        !write(*,*) 'qminimum 52: entree'
+        if (ok_iso_verif) then
+           call check_isotopes(q,ij_begin,ij_end,'qminimum 52')   
+        endif !if (ok_iso_verif) then     
+
+      ijb=ij_begin
+      ije=ij_end
+
+      zx_defau_diag(ijb:ije,:,:)=0.0
+      q_follow(ijb:ije,:,1:2)=q(ijb:ije,:,1:2)  
+
+      !write(*,*) 'qminimum 57'
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO 1000 k = 1, llm
+      DO 1040 i = ijb, ije
+            if (seuil_liq - q(i,k,iq_liq) .gt. 0.d0 ) then
+
+              if (ok_isotopes) then
+                 zx_defau_diag(i,k,iq_liq)=AMAX1
+     :               ( seuil_liq - q(i,k,iq_liq), 0.0 )
+              endif !if (ok_isotopes) then
+
+               q(i,k,iq_vap) = q(i,k,iq_vap) + q(i,k,iq_liq) - seuil_liq
+               q(i,k,iq_liq) = seuil_liq
+            endif
+ 1040 CONTINUE
+ 1000 CONTINUE
+c$OMP END DO NOWAIT
+c$OMP BARRIER
+c --->  SYNCHRO OPENMP ICI
+
+
+c
+c Quand l'eau vapeur est trop faible (ou negative), on complete
+c le defaut en prennant de l'eau vapeur de la couche au-dessous.
+c
+      !write(*,*) 'qminimum 81'
+      iq = iq_vap
+c
+      DO k = llm, 2, -1
+ccc      zx_abc = dpres(k) / dpres(k-1)
+c$OMP DO SCHEDULE(STATIC)
+      DO i = ijb, ije
+
+         if ( seuil_vap - q(i,k,iq) .gt. 0.d0 ) then
+
+            if (ok_isotopes) then
+              zx_defau_diag(i,k,iq)=AMAX1( seuil_vap - q(i,k,iq), 0.0 )
+            endif !if (ok_isotopes) then
+
+            q(i,k-1,iq) =  q(i,k-1,iq) - ( seuil_vap - q(i,k,iq) ) *
+     &           deltap(i,k) / deltap(i,k-1)
+            q(i,k,iq)   =  seuil_vap  
+
+         endif
+      ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+c$OMP BARRIER
+
+c
+c Quand il s'agit de la premiere couche au-dessus du sol, on
+c doit imprimer un message d'avertissement (saturation possible).
+c
+      !write(*,*) 'qminimum 106'
+      nb_pump=0
+c$OMP DO SCHEDULE(STATIC)
+      DO i = ijb, ije
+         zx_pump(i) = AMAX1( 0.0, seuil_vap - q(i,1,iq) )
+         q(i,1,iq)  = AMAX1( q(i,1,iq), seuil_vap )
+         IF (zx_pump(i) > 0.0) THEN
+            nb_pump = nb_pump+1
+            Index_pump(nb_pump)=i
+         ENDIF
+      ENDDO
+c$OMP END DO  
+!      pompe = SSUM(ije-ijb+1,zx_pump(ijb),1)
+
+      IF (imprim.LE.100 .AND. nb_pump .GT. 0 ) THEN
+         PRINT *, 'ATT!:on pompe de l eau au sol'
+         DO i = 1, nb_pump
+               imprim = imprim + 1
+               PRINT*,'  en ',index_pump(i),zx_pump(index_pump(i))
+         ENDDO
+      ENDIF
+
+      !write(*,*) 'qminimum 128'
+      if (ok_isotopes) then
+      ! CRisi: traiter de même les traceurs d'eau
+      ! Mais il faut les prendre à l'envers pour essayer de conserver la
+      ! masse.
+      ! 1) pompage dans le sol  
+      ! On suppose que ce pompage se fait sans isotopes -> on ne modifie
+      ! rien ici et on croise les doigts pour que ça ne soit pas trop
+      ! génant
+      DO i = ijb, ije
+        if (zx_pump(i).gt.0.0) then
+          q_follow(i,1,iq_vap)=q_follow(i,1,iq_vap)+zx_pump(i)
+        endif !if (zx_pump(i).gt.0.0) then
+      enddo !DO i = ijb, ije  
+
+      ! 2) transfert de vap vers les couches plus hautes
+      !write(*,*) 'qminimum 139'
+      do k=2,llm
+        DO i = ijb, ije
+          if (zx_defau_diag(i,k,iq_vap).gt.0.0) then             
+              ! on ajoute la vapeur en k              
+              do ixt=1,ntraciso
+               q(i,k,iqiso(ixt,iq_vap))=q(i,k,iqiso(ixt,iq_vap))
+     :              +zx_defau_diag(i,k,iq_vap)
+     :              *q(i,k-1,iqiso(ixt,iq_vap))/q_follow(i,k-1,iq_vap)
+                
+              if (ok_iso_verif) then
+                if (iso_verif_noNaN_nostop(q(i,k,iqiso(ixt,iq_vap)),
+     :                   'qminimum 155').eq.1) then
+                   write(*,*) 'i,k,ixt=',i,k,ixt
+                   write(*,*) 'q_follow(i,k-1,iq_vap)=',
+     :                   q_follow(i,k-1,iq_vap)
+                   write(*,*) 'q(i,k,iqiso(ixt,iq_vap))=',
+     :                   q(i,k,iqiso(ixt,iq_vap))
+                   write(*,*) 'zx_defau_diag(i,k,iq_vap)=',
+     :                   zx_defau_diag(i,k,iq_vap)
+                   write(*,*) 'q(i,k-1,iqiso(ixt,iq_vap))=',
+     :                   q(i,k-1,iqiso(ixt,iq_vap))
+                   stop
+                endif
+              endif
+
+              ! et on la retranche en k-1
+               q(i,k-1,iqiso(ixt,iq_vap))=q(i,k-1,iqiso(ixt,iq_vap))
+     :              -zx_defau_diag(i,k,iq_vap)
+     :              *deltap(i,k)/deltap(i,k-1)
+     :              *q(i,k-1,iqiso(ixt,iq_vap))/q_follow(i,k-1,iq_vap)
+
+               if (ok_iso_verif) then
+                if (iso_verif_noNaN_nostop(q(i,k-1,iqiso(ixt,iq_vap)),
+     :                   'qminimum 175').eq.1) then
+                   write(*,*) 'k,i,ixt=',k,i,ixt
+                   write(*,*) 'q_follow(i,k-1,iq_vap)=',
+     :                   q_follow(i,k-1,iq_vap)
+                   write(*,*) 'q(i,k,iqiso(ixt,iq_vap))=',
+     :                   q(i,k,iqiso(ixt,iq_vap))
+                   write(*,*) 'zx_defau_diag(i,k,iq_vap)=',
+     :                   zx_defau_diag(i,k,iq_vap)
+                   write(*,*) 'q(i,k-1,iqiso(ixt,iq_vap))=',
+     :                   q(i,k-1,iqiso(ixt,iq_vap))
+                   stop
+                endif
+              endif 
+
+              enddo !do ixt=1,niso
+              q_follow(i,k,iq_vap)=   q_follow(i,k,iq_vap)
+     :               +zx_defau_diag(i,k,iq_vap)
+              q_follow(i,k-1,iq_vap)=   q_follow(i,k-1,iq_vap)
+     :               -zx_defau_diag(i,k,iq_vap)
+     :              *deltap(i,k)/deltap(i,k-1)
+          endif !if (zx_defau_diag(i,k,iq_vap).gt.0.0) then
+        enddo !DO i = 1, ip1jmp1        
+       enddo !do k=2,llm
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb,ije,'qminimum 168')
+        endif !if (ok_iso_verif) then
+        
+      
+        ! 3) transfert d'eau de la vapeur au liquide
+        !write(*,*) 'qminimum 164'
+        do k=1,llm
+        DO i = ijb, ije
+          if (zx_defau_diag(i,k,iq_liq).gt.0.0) then
+
+              ! on ajoute eau liquide en k en k              
+              do ixt=1,ntraciso
+               q(i,k,iqiso(ixt,iq_liq))=q(i,k,iqiso(ixt,iq_liq))
+     :              +zx_defau_diag(i,k,iq_liq)
+     :              *q(i,k,iqiso(ixt,iq_vap))/q_follow(i,k,iq_vap)
+              ! et on la retranche à la vapeur en k
+               q(i,k,iqiso(ixt,iq_vap))=q(i,k,iqiso(ixt,iq_vap))
+     :              -zx_defau_diag(i,k,iq_liq)
+     :              *q(i,k,iqiso(ixt,iq_vap))/q_follow(i,k,iq_vap)   
+              enddo !do ixt=1,niso
+              q_follow(i,k,iq_liq)=   q_follow(i,k,iq_liq)
+     :               +zx_defau_diag(i,k,iq_liq)
+              q_follow(i,k,iq_vap)=   q_follow(i,k,iq_vap)
+     :               -zx_defau_diag(i,k,iq_liq)
+          endif !if (zx_defau_diag(i,k,iq_vap).gt.0.0) then
+        enddo !DO i = 1, ip1jmp1
+       enddo !do k=2,llm  
+
+        if (ok_iso_verif) then
+           call check_isotopes(q,ijb,ije,'qminimum 197')
+        endif !if (ok_iso_verif) then
+
+      endif !if (ok_isotopes) then
+      !write(*,*) 'qminimum 188'
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotat_nfil_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotat_nfil_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotat_nfil_loc.F	(revision 3330)
@@ -0,0 +1,52 @@
+      SUBROUTINE rotat_nfil_loc (klevel, x, y, rot )
+c
+c    Auteur :   P.Le Van 
+c**************************************************************
+c.          Calcule le rotationnel  non filtre   ,
+c      a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ijb_v:ije_v,klevel )
+      REAL x( ijb_u:ije_u,klevel ), y( ijb_v:ije_v,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+      INTEGER :: ijb,ije
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO  10 l = 1,klevel
+c
+        DO   ij = ijb, ije - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = ijb+iip1-1, ije, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotat_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotat_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotat_p.F	(revision 3330)
@@ -0,0 +1,63 @@
+      SUBROUTINE rotat_p (klevel, x, y, rot )
+c
+c     Auteur : P.Le Van 
+c**************************************************************
+c.  calcule le rotationnel
+c     a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+      INTEGER :: ijb,ije
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO  10 l = 1,klevel
+c
+        DO   ij = ijb, ije - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = ijb+iip1-1, ije, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+ccc        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l = 1, klevel
+          DO ij = ijb, ije
+           rot(ij,l) = rot(ij,l) * unsairez(ij)
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotatf_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotatf_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/rotatf_loc.F	(revision 3330)
@@ -0,0 +1,69 @@
+      SUBROUTINE rotatf_loc (klevel, x, y, rot )
+c
+c     Auteur : P.Le Van 
+c**************************************************************
+c.  calcule le rotationnel
+c     a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      USE mod_filtreg_p
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ijb_v:ije_v,klevel )
+      REAL x( ijb_u:ije_u,klevel ), y( ijb_v:ije_v,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO  10 l = 1,klevel
+c
+        DO   ij = ijb, ije - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = ijb+iip1-1, ije, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_sud) jje=jj_end-1
+        CALL filtreg_p( rot, jjb_v, jje_v,jjb,jje,jjm,
+     &                  klevel, 2, 2, .FALSE., 1 )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+        DO l = 1, klevel
+          DO ij = ijb, ije
+           rot(ij,l) = rot(ij,l) * unsairez(ij)
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/sw_case_williamson91_6_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/sw_case_williamson91_6_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/sw_case_williamson91_6_loc.F	(revision 3330)
@@ -0,0 +1,189 @@
+!
+! $Id $
+!
+      SUBROUTINE sw_case_williamson91_6_loc(vcov,ucov,teta,masse,ps)
+
+c=======================================================================
+c
+c   Author:    Thomas Dubos      original: 26/01/2010
+c   -------
+c
+c   Subject:
+c   ------
+c   Realise le cas-test 6 de Williamson et al. (1991) : onde de Rossby-Haurwitz
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: cpp, omeg, rad
+      USE comvert_mod, ONLY: ap, bp, preff
+
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+c   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 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
+
+c   Local:
+c   ------
+
+      real,allocatable :: ucov_glo(:,:)
+      real,allocatable :: vcov_glo(:,:)
+      real,allocatable :: teta_glo(:,:)
+      real,allocatable :: masse_glo(:,:)
+      real,allocatable :: ps_glo(:)
+
+!      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+!      REAL pks(ip1jmp1)                      ! exner au  sol
+!      REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+!      REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
+!      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
+
+      real,allocatable :: p(:,:)
+      real,allocatable :: pks(:)
+      real,allocatable :: pk(:,:)
+      real,allocatable :: pkf(:,:)
+      real,allocatable :: alpha(:,:),beta(:,:)
+
+      REAL :: sinth,costh,costh2, Ath,Bth,Cth, lon,dps
+      INTEGER i,j,ij
+
+      REAL, PARAMETER    :: rho=1 ! masse volumique de l'air (arbitraire)
+      REAL, PARAMETER    :: K    = 7.848e-6  ! K = \omega
+      REAL, PARAMETER    :: gh0  = 9.80616 * 8e3 
+      INTEGER, PARAMETER :: R0=4, R1=R0+1, R2=R0+2         ! mode 4
+c NB : rad = 6371220 dans W91 (6371229 dans LMDZ)
+c      omeg = 7.292e-5 dans W91 (7.2722e-5 dans LMDZ)
+
+
+       ! allocate (global) arrays
+       allocate(vcov_glo(ip1jm,llm))
+       allocate(ucov_glo(ip1jmp1,llm))
+       allocate(teta_glo(ip1jmp1,llm))
+       allocate(ps_glo(ip1jmp1))
+       allocate(masse_glo(ip1jmp1,llm))
+
+       allocate(p(ip1jmp1,llmp1))
+       allocate(pks(ip1jmp1))
+       allocate(pk(ip1jmp1,llm))
+       allocate(pkf(ip1jmp1,llm))
+       allocate(alpha(ip1jmp1,llm))
+       allocate(beta(ip1jmp1,llm))
+ 
+      IF(0==0) THEN
+!c Williamson et al. (1991) : onde de Rossby-Haurwitz
+         teta_glo(:,:) = preff/rho/cpp
+!c geopotentiel (pression de surface)
+         do j=1,jjp1
+            costh2 = cos(rlatu(j))**2
+            Ath = (R0+1)*(costh2**2) + (2*R0*R0-R0-2)*costh2 - 2*R0*R0
+            Ath = .25*(K**2)*(costh2**(R0-1))*Ath
+            Ath = .5*K*(2*omeg+K)*costh2 + Ath 
+            Bth = (R1*R1+1)-R1*R1*costh2
+            Bth = 2*(omeg+K)*K/(R1*R2) * (costh2**(R0/2))*Bth
+            Cth = R1*costh2 - R2
+            Cth = .25*K*K*(costh2**R0)*Cth
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonv(i)
+               dps = Ath + Bth*cos(R0*lon) + Cth*cos(2*R0*lon)
+               ps_glo(ij) = rho*(gh0 + (rad**2)*dps)
+            enddo
+         enddo
+!         write(lunout,*) 'W91 ps', MAXVAL(ps), MINVAL(ps)
+c vitesse zonale ucov
+         do j=1,jjp1
+            costh  = cos(rlatu(j))
+            costh2 = costh**2
+            Ath = rad*K*costh
+            Bth = R0*(1-costh2)-costh2
+            Bth = rad*K*Bth*(costh**(R0-1))
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonu(i)
+               ucov_glo(ij,1) = (Ath + Bth*cos(R0*lon))
+            enddo
+         enddo
+!         write(lunout,*) 'W91 u', MAXVAL(ucov(:,1)), MINVAL(ucov(:,1))
+         ucov_glo(:,1)=ucov_glo(:,1)*cu
+c vitesse meridienne vcov
+         do j=1,jjm
+            sinth  = sin(rlatv(j))
+            costh  = cos(rlatv(j))
+            Ath = -rad*K*R0*sinth*(costh**(R0-1))
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonv(i)
+               vcov_glo(ij,1) = Ath*sin(R0*lon)
+            enddo
+         enddo
+         write(lunout,*) 'W91 v', MAXVAL(vcov(:,1)), MINVAL(vcov(:,1))
+         vcov_glo(:,1)=vcov_glo(:,1)*cv
+        
+c         ucov_glo=0
+c         vcov_glo=0
+      ELSE
+c test non-tournant, onde se propageant en latitude
+         do j=1,jjp1
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               ps_glo(ij) = 1e5*(1 + .1*exp(-100*(1+sin(rlatu(j)))**2))
+            enddo
+         enddo
+         
+c     rho = preff/(cpp*teta)
+         teta_glo(:,:) = .01*preff/cpp   ! rho = 100 ; phi = ps/rho = 1e3 ; c=30 m/s = 2600 km/j = 23 degres / j
+         ucov_glo(:,:)=0.
+         vcov_glo(:,:)=0.
+      END IF      
+      
+      CALL pression ( ip1jmp1, ap, bp, ps_glo, p       )
+      CALL massdair(p,masse_glo)
+
+      ! copy data from global array to local array:
+      teta(ijb_u:ije_u,:)=teta_glo(ijb_u:ije_u,:)
+      ucov(ijb_u:ije_u,:)=ucov_glo(ijb_u:ije_u,:)
+      vcov(ijb_v:ije_v,:)=vcov_glo(ijb_v:ije_v,:)
+      masse(ijb_u:ije_u,:)=masse_glo(ijb_u:ije_u,:)
+      ps(ijb_u:ije_u)=ps_glo(ijb_u:ije_u)
+
+      ! cleanup
+      deallocate(teta_glo)
+      deallocate(ucov_glo)
+      deallocate(vcov_glo)
+      deallocate(masse_glo)
+      deallocate(ps_glo)
+      deallocate(p)
+      deallocate(pks)
+      deallocate(pk)
+      deallocate(pkf)
+      deallocate(alpha)
+      deallocate(beta)
+
+      END
+c-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/temps_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/temps_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/temps_mod.F90	(revision 3330)
@@ -0,0 +1,33 @@
+!
+! $Id: temps_mod.F90 -1   $
+!
+MODULE temps_mod
+
+IMPLICIT NONE  
+
+  INTEGER   itaufin ! total number of dynamical steps for the run
+  INTEGER   itau_dyn
+  INTEGER   itau_phy
+  INTEGER   day_ini ! initial day # of simulation sequence
+  INTEGER   day_end ! final day # ; i.e. day # when this simulation ends
+  INTEGER   annee_ref
+  INTEGER   day_ref
+  REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
+  REAL      jD_ref ! reference julian day date (beginning of experiment)
+  REAL      jH_ref ! reference julian "hour" of reference julian date
+  REAL      start_time
+  CHARACTER (len=10) :: calend ! calendar type
+
+  ! Additionnal Mars stuff:
+  REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
+
+!$OMP THREADPRIVATE(dt,jD_ref,jH_ref,start_time,hour_ini,                        &
+!$OMP                day_ini,day_end,annee_ref,day_ref,itau_dyn,itau_phy,itaufin,&
+!$OMP                calend)        
+
+!WARNING: when adding a threadprivate variable in this module
+!        do not forget to add it to the copyin clause when opening an OpenMP
+!        parallel section. e.g. in gcm before call leapfrog_loc and/or
+!        possibly in iniphysiq
+
+END MODULE temps_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/times.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/times.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/times.F90	(revision 3330)
@@ -0,0 +1,248 @@
+module times
+  integer,private,save :: Last_Count=0
+  real, private,save :: Last_cpuCount=0
+  logical, private,save :: AllTimer_IsActive=.false.
+  
+  integer, parameter :: nb_timer = 4
+  integer, parameter :: timer_caldyn  = 1
+  integer, parameter :: timer_vanleer = 2
+  integer, parameter :: timer_dissip = 3
+  integer, parameter :: timer_physic = 4
+  integer, parameter :: stopped = 1
+  integer, parameter :: running = 2
+  integer, parameter :: suspended = 3 
+  
+  integer :: max_size
+  real,    allocatable, dimension(:,:,:) :: timer_table
+  real,    allocatable, dimension(:,:,:) :: timer_table_sqr 
+  integer, allocatable, dimension(:,:,:) :: timer_iteration
+  real,    allocatable, dimension(:,:,:) :: timer_average
+  real,    allocatable, dimension(:,:,:) :: timer_delta
+  real,    allocatable,dimension(:) :: timer_running, last_time
+  integer, allocatable,dimension(:) :: timer_state
+  
+  contains
+  
+  subroutine init_timer
+    USE parallel_lmdz
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"
+    
+    max_size=jjm+1
+    allocate(timer_table(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_table_sqr(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_iteration(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_average(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_delta(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_running(nb_timer))
+    allocate(timer_state(nb_timer))
+    allocate(last_time(nb_timer))
+    
+    timer_table(:,:,:)=0
+    timer_table_sqr(:,:,:)=0
+    timer_iteration(:,:,:)=0
+    timer_average(:,:,:)=0
+    timer_delta(:,:,:)=0
+    timer_state(:)=stopped      
+  end subroutine init_timer
+  
+  subroutine start_timer(no_timer)
+    implicit none
+    integer :: no_timer
+    
+    if (AllTimer_IsActive) then
+    
+      if (timer_state(no_timer)/=stopped) then
+        stop 'start_timer :: timer is already running or suspended'
+      else
+        timer_state(no_timer)=running
+      endif
+      
+      timer_running(no_timer)=0
+      call cpu_time(last_time(no_timer))
+    
+    endif
+    
+  end subroutine start_timer
+  
+  subroutine suspend_timer(no_timer)
+    implicit none
+    integer :: no_timer
+     
+    if (AllTimer_IsActive) then   
+      if (timer_state(no_timer)/=running) then
+        stop 'suspend_timer :: timer is not running'
+      else
+        timer_state(no_timer)=suspended
+      endif
+    
+      timer_running(no_timer)=timer_running(no_timer)-last_time(no_timer)
+      call cpu_time(last_time(no_timer))
+      timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
+    endif
+  end subroutine suspend_timer
+  
+  subroutine resume_timer(no_timer)
+    implicit none
+    integer :: no_timer
+     
+    if (AllTimer_IsActive) then   
+      if (timer_state(no_timer)/=suspended) then
+        stop 'resume_timer :: timer is not suspended'
+      else
+        timer_state(no_timer)=running
+      endif
+      
+      call cpu_time(last_time(no_timer))
+    endif
+    
+  end subroutine resume_timer
+
+  subroutine stop_timer(no_timer)
+    USE parallel_lmdz
+    implicit none
+    integer :: no_timer
+    integer :: N
+    real :: V,V2
+    
+    if (AllTimer_IsActive) then
+       
+      if (timer_state(no_timer)/=running) then
+        stop 'stop_timer :: timer is not running'
+      else
+        timer_state(no_timer)=stopped
+      endif
+    
+      timer_running(no_timer)=timer_running(no_timer)-last_time(no_timer)
+      call cpu_time(last_time(no_timer))
+      timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
+    
+      timer_table(jj_nb,no_timer,mpi_rank)=timer_table(jj_nb,no_timer,mpi_rank)+timer_running(no_timer)
+      timer_table_sqr(jj_nb,no_timer,mpi_rank)=timer_table_sqr(jj_nb,no_timer,mpi_rank)+timer_running(no_timer)**2
+      timer_iteration(jj_nb,no_timer,mpi_rank)=timer_iteration(jj_nb,no_timer,mpi_rank)+1
+      timer_average(jj_nb,no_timer,mpi_rank)=timer_table(jj_nb,no_timer,mpi_rank)/timer_iteration(jj_nb,no_timer,mpi_rank)
+      if (timer_iteration(jj_nb,no_timer,mpi_rank)>=2) then
+        N=timer_iteration(jj_nb,no_timer,mpi_rank)
+	V2=timer_table_sqr(jj_nb,no_timer,mpi_rank)
+	V=timer_table(jj_nb,no_timer,mpi_rank)
+	timer_delta(jj_nb,no_timer,mpi_rank)=sqrt(ABS(V2-V*V/N)/(N-1)) 
+      else
+        timer_delta(jj_nb,no_timer,mpi_rank)=0
+      endif
+    endif
+    
+  end subroutine stop_timer
+   
+  subroutine allgather_timer
+    USE parallel_lmdz
+    implicit none
+#ifdef CPP_MPI    
+    include 'mpif.h'
+#endif
+    integer :: ierr
+    integer :: data_size
+    real, allocatable,dimension(:,:) :: tmp_table
+
+    IF (using_mpi) THEN    
+   
+      if (AllTimer_IsActive) then
+    
+    
+      allocate(tmp_table(max_size,nb_timer))
+    
+      data_size=max_size*nb_timer
+    
+      tmp_table(:,:)=timer_table(:,:,mpi_rank)
+#ifdef CPP_MPI 
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif
+      tmp_table(:,:)=timer_table_sqr(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table_sqr(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif    
+      deallocate(tmp_table)
+    
+      endif
+      
+    ENDIF ! using_mpi
+    
+  end subroutine allgather_timer
+  
+  subroutine allgather_timer_average
+    USE parallel_lmdz
+    implicit none
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif
+    integer :: ierr
+    integer :: data_size
+    real, allocatable,dimension(:,:),target :: tmp_table
+    integer, allocatable,dimension(:,:),target :: tmp_iter
+    integer :: istats
+
+    IF (using_mpi) THEN
+        
+      if (AllTimer_IsActive) then
+    
+      allocate(tmp_table(max_size,nb_timer))
+      allocate(tmp_iter(max_size,nb_timer))
+   
+      data_size=max_size*nb_timer
+
+      tmp_table(:,:)=timer_average(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_average(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif
+      tmp_table(:,:)=timer_delta(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_delta(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif
+      tmp_iter(:,:)=timer_iteration(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_iter(1,1),data_size,MPI_INTEGER,timer_iteration(1,1,0),data_size,MPI_INTEGER,COMM_LMDZ,ierr)
+#endif    
+      deallocate(tmp_table)
+    
+      endif
+      
+    ENDIF  ! using_mp�
+  end subroutine allgather_timer_average
+  
+  subroutine InitTime
+  implicit none
+    integer :: count,count_rate,count_max
+    
+    AllTimer_IsActive=.TRUE.
+    if (AllTimer_IsActive) then
+      call system_clock(count,count_rate,count_max)
+      call cpu_time(Last_cpuCount)
+      Last_Count=count
+    endif
+  end subroutine InitTime
+  
+  function DiffTime()
+  implicit none
+    double precision :: DiffTime
+    integer :: count,count_rate,count_max
+  
+    call system_clock(count,count_rate,count_max)
+    if (Count>=Last_Count) then
+      DiffTime=(1.*(Count-last_Count))/count_rate
+    else
+      DiffTime=(1.*(Count-last_Count+Count_max))/count_rate
+    endif
+    Last_Count=Count 
+  end function DiffTime
+  
+  function DiffCpuTime()
+  implicit none
+    real :: DiffCpuTime
+    real :: Count
+    
+    call cpu_time(Count)
+    DiffCpuTime=Count-Last_cpuCount
+    Last_cpuCount=Count 
+  end function DiffCpuTime
+
+end module times
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/top_bound_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/top_bound_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/top_bound_loc.F	(revision 3330)
@@ -0,0 +1,256 @@
+!
+! $Id: $
+!
+      SUBROUTINE top_bound_loc(vcov,ucov,teta,masse,dt)
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound,
+     &                        tau_top_bound
+      USE comvert_mod, ONLY: presnivs, preff, scaleheight
+
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom2.h"
+
+
+c ..  DISSIPATION LINEAIRE A HAUT NIVEAU, RUN MESO,
+C     F. LOTT DEC. 2006
+c                                 (  10/12/06  )
+
+c=======================================================================
+c
+c   Auteur:  F. LOTT  
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   Dissipation linéaire (ex top_bound de la physique)
+c
+c=======================================================================
+
+! top_bound sponge layer model:
+! Quenching is modeled as: A(t)=Am+A0*exp(-lambda*t)
+! where Am is the zonal average of the field (or zero), and lambda the inverse
+! of the characteristic quenching/relaxation time scale
+! Thus, assuming Am to be time-independent, field at time t+dt is given by:
+! A(t+dt)=A(t)-(A(t)-Am)*(1-exp(-lambda*t))
+! Moreover lambda can be a function of model level (see below), and relaxation
+! can be toward the average zonal field or just zero (see below).
+
+! NB: top_bound sponge is only called from leapfrog if ok_strato=.true.
+
+! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst_mod)
+!    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
+!    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
+!    tau_top_bound : inverse of charactericstic relaxation time scale at
+!                       the topmost layer (Hz)
+
+
+#include "comdissipn.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      real,intent(inout) :: ucov(iip1,jjb_u:jje_u,llm) ! covariant zonal wind
+      real,intent(inout) :: vcov(iip1,jjb_v:jje_v,llm) ! covariant meridional wind
+      real,intent(inout) :: teta(iip1,jjb_u:jje_u,llm) ! potential temperature
+      real,intent(in) :: masse(iip1,jjb_u:jje_u,llm) ! mass of atmosphere 
+      real,intent(in) :: dt ! time step (s) of sponge model
+
+!      REAL dv(iip1,jjb_v:jje_v,llm),du(iip1,jjb_u:jje_u,llm)
+!      REAL dh(iip1,jjb_u:jje_u,llm)
+
+c   Local:
+c   ------
+      REAL massebx(iip1,jjb_u:jje_u,llm),masseby(iip1,jjb_v:jje_v,llm)
+      REAL zm
+      REAL uzon(jjb_u:jje_u,llm),vzon(jjb_v:jje_v,llm)
+      REAL tzon(jjb_u:jje_u,llm)
+      
+      integer i
+      REAL,SAVE :: rdamp(llm)
+      real,save :: lambda(llm) ! inverse or quenching time scale (Hz)
+      LOGICAL,SAVE :: first=.true.
+      INTEGER j,l,jjb,jje
+
+
+      if (iflag_top_bound == 0) return
+
+      if (first) then
+c$OMP BARRIER
+c$OMP MASTER
+         if (iflag_top_bound == 1) then
+! sponge quenching over the topmost 4 atmospheric layers
+             lambda(:)=0.
+             lambda(llm)=tau_top_bound
+             lambda(llm-1)=tau_top_bound/2.
+             lambda(llm-2)=tau_top_bound/4.
+             lambda(llm-3)=tau_top_bound/8.
+         else if (iflag_top_bound == 2) then
+! sponge quenching over topmost layers down to pressures which are
+! higher than 100 times the topmost layer pressure
+             lambda(:)=tau_top_bound
+     s       *max(presnivs(llm)/presnivs(:)-0.01,0.)
+         endif
+
+! quenching coefficient rdamp(:)
+!         rdamp(:)=dt*lambda(:) ! Explicit Euler approx.
+         rdamp(:)=1.-exp(-lambda(:)*dt)
+
+         write(lunout,*)'TOP_BOUND mode',mode_top_bound
+         write(lunout,*)'Sponge layer coefficients'
+         write(lunout,*)'p (Pa)  z(km)  tau(s)   1./tau (Hz)'
+         do l=1,llm
+           if (rdamp(l).ne.0.) then
+             write(lunout,'(6(1pe12.4,1x))')
+     &        presnivs(l),log(preff/presnivs(l))*scaleheight,
+     &           1./lambda(l),lambda(l)
+           endif
+         enddo
+         first=.false.
+c$OMP END MASTER
+c$OMP BARRIER
+      endif ! of if (first)
+
+
+      CALL massbar_loc(masse,massebx,masseby)
+
+      ! compute zonal average of vcov (or set it to zero)
+      if (mode_top_bound.ge.2) then
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_sud) jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          zm=0.
+          vzon(j,l)=0
+          do i=1,iim
+! NB: we can work using vcov zonal mean rather than v since the
+! cv coefficient (which relates the two) only varies with latitudes 
+            vzon(j,l)=vzon(j,l)+vcov(i,j,l)*masseby(i,j,l)
+            zm=zm+masseby(i,j,l)
+          enddo
+          vzon(j,l)=vzon(j,l)/zm
+        enddo
+       enddo
+c$OMP END DO NOWAIT   
+      else
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+         vzon(:,l)=0.
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.2)
+
+      ! compute zonal average of u (or set it to zero)
+      if (mode_top_bound.ge.2) then
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          uzon(j,l)=0.
+          zm=0.
+          do i=1,iim
+            uzon(j,l)=uzon(j,l)+massebx(i,j,l)*ucov(i,j,l)/cu(i,j)
+            zm=zm+massebx(i,j,l)
+          enddo
+          uzon(j,l)=uzon(j,l)/zm
+        enddo
+       enddo
+c$OMP END DO NOWAIT
+      else
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+         uzon(:,l)=0.
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.2)
+
+      ! compute zonal average of potential temperature, if necessary
+      if (mode_top_bound.ge.3) then
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+       do l=1,llm
+        do j=jjb,jje
+          zm=0.
+          tzon(j,l)=0.
+          do i=1,iim
+            tzon(j,l)=tzon(j,l)+teta(i,j,l)*masse(i,j,l)
+            zm=zm+masse(i,j,l)
+          enddo
+          tzon(j,l)=tzon(j,l)/zm
+        enddo
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.3)
+
+      if (mode_top_bound.ge.1) then
+       ! Apply sponge quenching on vcov:
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_sud) jje=jj_end-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          do i=1,iip1
+            vcov(i,j,l)=vcov(i,j,l)
+     &                  -rdamp(l)*(vcov(i,j,l)-vzon(j,l))
+          enddo
+        enddo
+       enddo
+c$OMP END DO NOWAIT
+
+       ! Apply sponge quenching on ucov:
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          do i=1,iip1
+            ucov(i,j,l)=ucov(i,j,l)
+     &                  -rdamp(l)*(ucov(i,j,l)-cu(i,j)*uzon(j,l))
+          enddo
+       enddo
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.1)
+
+      if (mode_top_bound.ge.3) then   
+       ! Apply sponge quenching on teta:
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          do i=1,iip1
+            teta(i,j,l)=teta(i,j,l)
+     &                  -rdamp(l)*(teta(i,j,l)-tzon(j,l))
+          enddo
+       enddo
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bond.ge.3)
+
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/tourpot_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/tourpot_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/tourpot_loc.F90	(revision 3330)
@@ -0,0 +1,64 @@
+SUBROUTINE tourpot_loc ( vcov, ucov, massebxy, vorpot )
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van.
+!-------------------------------------------------------------------------------
+! Purpose: Compute potential vorticity.
+  USE parallel_lmdz
+  USE mod_filtreg_p
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: vcov    (ijb_v:ije_v,llm)
+  REAL, INTENT(IN)  :: ucov    (ijb_u:ije_u,llm)
+  REAL, INTENT(IN)  :: massebxy(ijb_v:ije_v,llm)
+  REAL, INTENT(OUT) :: vorpot  (ijb_v:ije_v,llm)
+!===============================================================================
+! Method used:
+!   vorpot = ( Filtre( d(vcov)/dx - d(ucov)/dy ) + fext ) /psbarxy
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ij, ije, ijb, jje, jjb
+  REAL    :: rot(ijb_v:ije_v,llm)
+!===============================================================================
+
+  ijb=ij_begin-iip1
+  ije=ij_end
+  IF(pole_nord) ijb=ij_begin
+
+!--- Wind vorticity ; correction: rot(iip1,j,l) = rot(1,j,l)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,llm
+    IF(pole_sud) ije=ij_end-iip1-1
+    DO ij=ijb,ije
+      rot(ij,l)=vcov(ij+1,l)-vcov(ij,l)+ucov(ij+iip1,l)-ucov(ij,l)
+    END DO
+    IF(pole_sud) ije=ij_end-iip1
+    DO ij=ijb+iip1-1,ije,iip1; rot(ij,l)=rot(ij-iim,l); END DO
+  END DO
+!$OMP END DO NOWAIT
+
+!--- Filter
+  jjb=jj_begin-1
+  jje=jj_end
+  IF(pole_nord) jjb=jjb+1
+  IF(pole_sud)  jje=jje-1
+  CALL filtreg_p(rot,jjb_v,jje_v,jjb,jje,jjm,llm,2,1,.FALSE.,1)
+
+!--- Potential vorticity ; correction: rot(iip1,j,l) = rot(1,j,l)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,llm
+    IF(pole_sud) ije=ij_end-iip1-1
+    DO ij=ijb,ije
+      vorpot(ij,l)=(rot(ij,l)+fext(ij))/massebxy(ij,l)
+    END DO
+    IF(pole_sud) ije=ij_end-iip1
+    DO ij=ijb+iip1-1,ije,iip1; vorpot(ij,l)=vorpot(ij-iim,l); END DO
+  END DO
+!$OMP END DO NOWAIT
+
+END SUBROUTINE tourpot_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vitvert_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vitvert_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vitvert_loc.F90	(revision 3330)
@@ -0,0 +1,39 @@
+SUBROUTINE vitvert_loc(convm, w)
+!
+!-------------------------------------------------------------------------------
+! Authors: P. Le Van , Fr. Hourdin.
+!-------------------------------------------------------------------------------
+! Purpose: Compute vertical speed at sigma levels.
+  USE parallel_lmdz
+  USE comvert_mod, ONLY: bp
+  
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+!===============================================================================
+! Arguments:
+  REAL, INTENT(IN)  :: convm(ijb_u:ije_u,llm)
+  REAL, INTENT(OUT) :: w    (ijb_u:ije_u,llm)
+!===============================================================================
+! Notes: Vertical speed is oriented from bottom to top.
+!   * At ground - level sigma(1):     w(i,j,1) = 0.
+!   * At top    - level sigma(llm+1): w(i,j,l) = 0. (not stored in w)
+!===============================================================================
+! Local variables:
+  INTEGER :: l, ijb, ije
+!===============================================================================
+  ijb=ij_begin
+  ije=ij_end+iip1
+  IF(pole_sud) ije=ij_end
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+  DO l=1,llmm1
+    w(ijb:ije,l+1)=convm(ijb:ije,l+1)-bp(l+1)*convm(ijb:ije,1)
+  END DO
+!$OMP END DO
+!$OMP MASTER
+  w(ijb:ije,1)=0.
+!$OMP END MASTER
+!$OMP BARRIER
+
+END SUBROUTINE vitvert_loc
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlsplt_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlsplt_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlsplt_loc.F	(revision 3330)
@@ -0,0 +1,1094 @@
+!
+! $Id$
+!
+      RECURSIVE SUBROUTINE vlx_loc(q,pente_max,masse,u_m,ijb_x,ije_x,iq)
+
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ijb_u:ije_u,llm,nqtot),pente_max
+      REAL u_m( ijb_u:ije_u,llm),pbarv( iip1,jjb_v:jje_v,llm)
+      REAL q(ijb_u:ije_u,llm,nqtot) ! CRisi: ajout dimension nqtot
+      REAL w(ijb_u:ije_u,llm) 
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ijnb_u),niju
+      INTEGER n0,iadvplus(ijb_u:ije_u,llm),nl(llm)
+c
+      REAL new_m,zu_m,zdum(ijb_u:ije_u,llm)
+      REAL sigu(ijb_u:ije_u),dxq(ijb_u:ije_u,llm),dxqu(ijb_u:ije_u)
+      REAL zz(ijb_u:ije_u)
+      REAL adxqu(ijb_u:ije_u),dxqmax(ijb_u:ije_u,llm)
+      REAL u_mq(ijb_u:ije_u,llm)
+
+      REAL Ratio(ijb_u:ije_u,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+
+      Logical extremum
+
+      REAL      SSUM
+      EXTERNAL  SSUM
+
+      REAL z1,z2,z3
+
+      INTEGER ijb,ije,ijb_x,ije_x
+      
+      !write(*,*) 'vlsplt 58: entree dans vlx_loc, iq,ijb_x=',
+!     &   iq,ijb_x
+c   calcul de la pente a droite et a gauche de la maille
+
+      ijb=ijb_x
+      ije=ije_x
+        
+      if (pole_nord.and.ijb==1) ijb=ijb+iip1
+      if (pole_sud.and.ije==ip1jmp1)  ije=ije-iip1
+         
+      IF (pente_max.gt.-1.e-5) THEN
+c       IF (pente_max.gt.10) THEN
+
+c   calcul des pentes avec limitation, Van Leer scheme I:
+c   -----------------------------------------------------
+      ! on a besoin de q entre ijb et ije
+c   calcul de la pente aux points u
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)         
+         DO l = 1, llm
+            
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
+c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+c              sigu(ij)=sigu(ij-iim)
+            ENDDO
+
+            DO ij=ijb,ije
+               adxqu(ij)=abs(dxqu(ij))
+            ENDDO
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+            DO ij=ijb+1,ije
+               dxqmax(ij,l)=pente_max*
+     ,      min(adxqu(ij-1),adxqu(ij))
+c limitation subtile
+c    ,      min(adxqu(ij-1)/sigu(ij-1),adxqu(ij)/(1.-sigu(ij)))
+          
+
+            ENDDO
+
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqmax(ij-iim,l)=dxqmax(ij,l)
+            ENDDO
+
+            DO ij=ijb+1,ije
+#ifdef CRAY
+               dxq(ij,l)=
+     ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
+#else
+               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+                  dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+#endif
+               dxq(ij,l)=0.5*dxq(ij,l)
+               dxq(ij,l)=
+     ,         sign(min(abs(dxq(ij,l)),dxqmax(ij,l)),dxq(ij,l))
+            ENDDO
+
+         ENDDO ! l=1,llm
+c$OMP END DO NOWAIT
+c	print*,'Ok calcul des pentes'
+
+      ELSE ! (pente_max.lt.-1.e-5)
+
+c   Pentes produits:
+c   ----------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l = 1, llm
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+            ENDDO
+
+            DO ij=ijb+1,ije
+               zz(ij)=dxqu(ij-1)*dxqu(ij)
+               zz(ij)=zz(ij)+zz(ij)
+               IF(zz(ij).gt.0) THEN
+                  dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+            ENDDO
+
+         ENDDO
+c$OMP END DO NOWAIT
+      ENDIF ! (pente_max.lt.-1.e-5)
+
+      !write(*,*) 'vlx 156: iq,ijb_x=',iq,ijb_x
+
+c   bouclage de la pente en iip1:
+c   -----------------------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+iip1-1,ije,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         ENDDO
+         DO ij=ijb,ije
+            iadvplus(ij,l)=0
+         ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+c	 print*,'Bouclage en iip1'
+
+c   calcul des flux a gauche et a droite
+
+#ifdef CRAY
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+          zdum(ij,l)=cvmgp(1.-u_m(ij,l)/masse(ij,l,iq),
+     ,                     1.+u_m(ij,l)/masse(ij+1,l,iq),
+     ,                     u_m(ij,l,iq))
+          zdum(ij,l)=0.5*zdum(ij,l)
+          u_mq(ij,l)=cvmgp(
+     ,                q(ij,l,iq)+zdum(ij,l)*dxq(ij,l),
+     ,                q(ij+1,l,iq)-zdum(ij,l)*dxq(ij+1,l),
+     ,                u_m(ij,l))
+          u_mq(ij,l)=u_m(ij,l)*u_mq(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#else
+c   on cumule le flux correspondant a toutes les mailles dont la masse
+c   au travers de la paroi pENDant le pas de temps.
+c	print*,'Cumule ....'
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        ! on a besoin de masse entre ijb et ije
+      DO l=1,llm
+       DO ij=ijb,ije-1
+c	print*,'masse(',ij,')=',masse(ij,l,iq)
+          IF (u_m(ij,l).gt.0.) THEN
+             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*(q(ij,l,iq)
+     :           +0.5*zdum(ij,l)*dxq(ij,l))
+          ELSE
+             zdum(ij,l)=1.+u_m(ij,l)/masse(ij+1,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*(q(ij+1,l,iq)
+     :           -0.5*zdum(ij,l)*dxq(ij+1,l))
+          ENDIF
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#endif
+c	stop
+
+c	go to 9999
+c   detection des points ou on advecte plus que la masse de la
+c   maille
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije-1
+            IF(zdum(ij,l).lt.0) THEN
+               iadvplus(ij,l)=1
+               u_mq(ij,l)=0.
+            ENDIF
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c	print*,'Ok test 1'
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb+iip1-1,ije,iip1
+          iadvplus(ij,l)=iadvplus(ij-iim,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c	 print*,'Ok test 2'
+        
+
+c   traitement special pour le cas ou on advecte en longitude plus que le
+c   contenu de la maille.
+c   cette partie est mal vectorisee.
+
+c  calcul du nombre de maille sur lequel on advecte plus que la maille.
+
+      n0=0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         nl(l)=0
+         DO ij=ijb,ije
+            nl(l)=nl(l)+iadvplus(ij,l)
+         ENDDO
+         n0=n0+nl(l)
+      ENDDO
+c$OMP END DO NOWAIT
+cym      IF(n0.gt.1) THEN
+cym      IF(n0.gt.0) THEN
+
+c      PRINT*,'Nombre de points pour lesquels on advect plus que le'
+c     &       ,'contenu de la maille : ',n0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+
+
+         DO l=1,llm
+            IF(nl(l).gt.0) THEN
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               DO ij=ijb,ije
+                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                     iju=iju+1
+                     indu(iju)=ij
+                  ENDIF
+               ENDDO
+               niju=iju
+               !PRINT*,'vlx 278, niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               DO iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  IF(zu_m.gt.0.) THEN
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)
+     &                          +q(ijq,l,iq)*masse(ijq,l,iq)
+                        zu_m=zu_m-masse(ijq,l,iq)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*
+     &               (q(ijq,l,iq)+0.5*
+     &               (1.-zu_m/masse(ijq,l,iq))*dxq(ijq,l))
+                  ELSE
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l,iq)
+     &                           *masse(ijq,l,iq)
+                        zu_m=zu_m+masse(ijq,l,iq)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l,iq)-
+     &               0.5*(1.+zu_m/masse(ijq,l,iq))*dxq(ijq,l))
+                  ENDIF
+               ENDDO
+            ENDIF
+         ENDDO
+c$OMP END DO NOWAIT
+cym      ENDIF  ! n0.gt.0 
+9999    continue
+
+c   bouclage en latitude
+c	print*,'Avant bouclage en latitude'
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        DO ij=ijb+iip1-1,ije,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+
+      !write(*,*) 'vlsplt 326: iq,ijb_x,nqfils(iq)=',iq,ijb_x,nqfils(iq) 
+
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+          DO ij=ijb,ije
+           ! On a besoin de q et masse seulement entre ijb et ije. On ne
+           ! les calcule donc que de ijb à ije
+           masse(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)
+          enddo   
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vlx_loc(Ratio,pente_max,masse,u_mq,ijb_x,ije_x,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi
+
+      !write(*,*) 'vlsplt 360: iq,ijb_x=',iq,ijb_x
+
+c   calcul des tENDances
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+1,ije
+            new_m=masse(ij,l,iq)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+
+     &        u_mq(ij-1,l)-u_mq(ij,l))
+     &        /new_m
+            masse(ij,l,iq)=new_m
+         ENDDO
+c   ModIF Fred 22 03 96 correction d'un bug (les scopy ci-dessous)
+         DO ij=ijb+iip1-1,ije,iip1
+            q(ij-iim,l,iq)=q(ij,l,iq)
+            masse(ij-iim,l,iq)=masse(ij,l,iq)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      !write(*,*) 'vlsplt 380: iq,ijb_x=',iq,ijb_x
+
+! retablir les fils en rapport de melange par rapport a l'air:
+      ! On calcule q entre ijb+1 et ije -> on fait pareil pour ratio 
+      ! puis on boucle en longitude
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb+1,ije
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+          DO ij=ijb+iip1-1,ije,iip1
+             q(ij-iim,l,iq2)=q(ij,l,iq2)
+          enddo ! DO ij=ijb+iip1-1,ije,iip1
+         enddo !DO l=1,llm
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+      !write(*,*) 'vlsplt 399: iq,ijb_x=',iq,ijb_x
+c     CALL SCOPY((jjm-1)*llm,q(iip1+iip1,1),iip1,q(iip2,1),iip1)
+c     CALL SCOPY((jjm-1)*llm,masse(iip1+iip1,1),iip1,masse(iip2,1),iip1)
+
+
+      RETURN
+      END
+
+
+      RECURSIVE SUBROUTINE vly_loc(q,pente_max,masse,masse_adv_v,iq)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ijb_u:ije_u,llm,nqtot),pente_max
+      REAL masse_adv_v( ijb_v:ije_v,llm)
+      REAL q(ijb_u:ije_u,llm,nqtot), dq( ijb_u:ije_u,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      REAL dyq(ijb_u:ije_u,llm),dyqv(ijb_v:ije_v),zdvm(ijb_u:ije_u,llm)
+      REAL adyqv(ijb_v:ije_v),dyqmax(ijb_u:ije_u)
+      REAL qbyv(ijb_v:ije_v,llm)
+
+      REAL qpns,qpsn,appn,apps,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
+c     REAL newq,oldmasse
+      Logical extremum,first,testcpu
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+c$OMP THREADPRIVATE(temps0,temps1,temps2,temps3,temps4,temps5)
+      SAVE first,testcpu
+c$OMP THREADPRIVATE(first,testcpu)
+
+      REAL convpn,convps,convmpn,convmps
+      real massepn,masseps,qpn,qps
+      REAL sinlon(iip1),sinlondlon(iip1)
+      REAL coslon(iip1),coslondlon(iip1)
+      SAVE sinlon,coslon,sinlondlon,coslondlon
+c$OMP THREADPRIVATE(sinlon,coslon,sinlondlon,coslondlon)
+      SAVE airej2,airejjm
+c$OMP THREADPRIVATE(airej2,airejjm)
+
+      REAL Ratio(ijb_u:ije_u,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+c
+c
+      REAL      SSUM
+      EXTERNAL  SSUM
+
+      DATA first,testcpu/.true.,.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+      INTEGER ijb,ije
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+2*iip1  
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+
+      IF(first) THEN
+         PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         ENDDO
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         airej2 = SSUM( iim, aire(iip2), 1 )
+         airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      ENDIF
+
+c
+c	PRINT*,'CALCUL EN LATITUDE'
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1, llm
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+      
+      if (pole_nord) then
+        DO i = 1, iim
+          airescb(i) = aire(i+ iip1) * q(i+ iip1,l,iq)
+        ENDDO
+        qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      endif
+      
+      if (pole_sud) then
+        DO i = 1, iim
+          airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l,iq)
+        ENDDO
+        qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+      endif
+      
+c   calcul des pentes aux points v
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      ! on a besoin de q entre ij_begin-2*iip1 et ij_end+2*iip1
+      ! Si pole sud, entre ij_begin-2*iip1 et ij_end
+      ! Si pole Nord, entre ij_begin et ij_end+2*iip1
+      DO ij=ijb,ije
+         dyqv(ij)=q(ij,l,iq)-q(ij+iip1,l,iq)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+ 
+
+c   calcul des pentes aux points scalaires
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyq(ij,l)=.5*(dyqv(ij-iip1)+dyqv(ij))
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      ENDDO
+
+c   calcul des pentes aux poles
+      IF (pole_nord) THEN
+        DO ij=1,iip1
+           dyq(ij,l)=qpns-q(ij+iip1,l,iq)
+        ENDDO
+        
+        dyn1=0.
+        dyn2=0.
+        DO ij=1,iim
+          dyn1=dyn1+sinlondlon(ij)*dyq(ij,l)
+          dyn2=dyn2+coslondlon(ij)*dyq(ij,l)
+        ENDDO
+        DO ij=1,iip1
+          dyq(ij,l)=dyn1*sinlon(ij)+dyn2*coslon(ij)
+        ENDDO
+        
+        DO ij=1,iip1
+         dyq(ij,l)=0.
+        ENDDO
+c ym tout cela ne sert pas a grand chose
+      ENDIF
+      
+      IF (pole_sud) THEN
+
+        DO ij=1,iip1
+           dyq(ip1jm+ij,l)=q(ip1jm+ij-iip1,l,iq)-qpsn
+        ENDDO
+
+        dys1=0.
+        dys2=0.
+
+        DO ij=1,iim
+          dys1=dys1+sinlondlon(ij)*dyq(ip1jm+ij,l)
+          dys2=dys2+coslondlon(ij)*dyq(ip1jm+ij,l)
+        ENDDO
+
+        DO ij=1,iip1
+          dyq(ip1jm+ij,l)=dys1*sinlon(ij)+dys2*coslon(ij)
+        ENDDO
+        
+        DO ij=1,iip1
+         dyq(ip1jm+ij,l)=0.
+        ENDDO
+c ym tout cela ne sert pas a grand chose
+      ENDIF
+
+c   filtrage de la derivee
+
+c   calcul des pentes limites aux poles
+c ym partie inutile
+c      goto 8888
+c      fn=1.
+c      fs=1.
+c      DO ij=1,iim
+c         IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+c            fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
+c         ENDIF
+c      IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+c         fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
+c         ENDIF
+c      ENDDO
+c      DO ij=1,iip1
+c         dyq(ij,l)=fn*dyq(ij,l)
+c         dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
+c      ENDDO
+c 8888    continue
+
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C  En memoire de dIFferents tests sur la 
+C  limitation des pentes aux poles.
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C     PRINT*,dyq(1)
+C     PRINT*,dyqv(iip1+1)
+C     appn=abs(dyq(1)/dyqv(iip1+1))
+C     PRINT*,dyq(ip1jm+1)
+C     PRINT*,dyqv(ip1jm-iip1+1)
+C     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+C     DO ij=2,iim
+C        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+C        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+C     ENDDO
+C     appn=min(pente_max/appn,1.)
+C     apps=min(pente_max/apps,1.)
+C
+C
+C   cas ou on a un extremum au pole
+C
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   appn=0.
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &   apps=0.
+C
+C   limitation des pentes aux poles
+C     DO ij=1,iip1
+C        dyq(ij)=appn*dyq(ij)
+C        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+C     ENDDO
+C
+C   test
+C      DO ij=1,iip1
+C         dyq(iip1+ij)=0.
+C         dyq(ip1jm+ij-iip1)=0.
+C      ENDDO
+C      DO ij=1,ip1jmp1
+C         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+C      ENDDO
+C
+C changement 10 07 96
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   THEN
+C        DO ij=1,iip1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=1,iip1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij))
+C        ENDDO
+C     ENDIF
+C
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &THEN
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+C        ENDDO
+C     ENDIF
+C   fin changement 10 07 96
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+
+c   calcul des pentes limitees
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+      DO ij=ijb,ije
+         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+            dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
+         ELSE
+            dyq(ij,l)=0.
+         ENDIF
+      ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije
+          IF(masse_adv_v(ij,l).gt.0) THEN
+              qbyv(ij,l)=q(ij+iip1,l,iq)+dyq(ij+iip1,l)*
+     ,                   0.5*(1.-masse_adv_v(ij,l)
+     ,                   /masse(ij+iip1,l,iq))
+          ELSE
+              qbyv(ij,l)=q(ij,l,iq)-dyq(ij,l)*
+     ,                   0.5*(1.+masse_adv_v(ij,l)/masse(ij,l,iq))
+          ENDIF
+          qbyv(ij,l)=masse_adv_v(ij,l)*qbyv(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vly 689: iq,nqfils(iq)=',iq,nqfils(iq) 
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+2*iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+   
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+         DO l=1,llm
+         DO ij=ijb,ije
+           masse(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)     
+          enddo   
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vly_loc(Ratio,pente_max,masse,qbyv,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+         DO ij=ijb,ije
+            newmasse=masse(ij,l,iq)
+     &         +masse_adv_v(ij,l)-masse_adv_v(ij-iip1,l)
+
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+qbyv(ij,l)
+     &         -qbyv(ij-iip1,l))/newmasse
+
+            masse(ij,l,iq)=newmasse
+
+         ENDDO
+
+
+c.-. ancienne version
+c        convpn=SSUM(iim,qbyv(1,l),1)/apoln
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)/apoln
+         if (pole_nord) then
+           convpn=SSUM(iim,qbyv(1,l),1)
+           convmpn=ssum(iim,masse_adv_v(1,l),1)
+           massepn=ssum(iim,masse(1,l,iq),1)
+           qpn=0.
+           do ij=1,iim
+              qpn=qpn+masse(ij,l,iq)*q(ij,l,iq)
+           enddo
+           qpn=(qpn+convpn)/(massepn+convmpn)
+           do ij=1,iip1
+              q(ij,l,iq)=qpn
+           enddo
+         endif
+         
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)/apols
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)/apols
+         
+         if (pole_sud) then
+         
+           convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+           convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+           masseps=ssum(iim, masse(ip1jm+1,l,iq),1)
+           qps=0.
+           do ij = ip1jm+1,ip1jmp1-1
+              qps=qps+masse(ij,l,iq)*q(ij,l,iq)
+           enddo
+           qps=(qps+convps)/(masseps+convmps)
+           do ij=ip1jm+1,ip1jmp1
+              q(ij,l,iq)=qps
+           enddo
+         endif
+c.-. fin ancienne version
+
+c._. nouvelle version
+c        convpn=SSUM(iim,qbyv(1,l),1)
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)
+c        oldmasse=ssum(iim,masse(1,l),1)
+c        newmasse=oldmasse+convmpn
+c        newq=(q(1,l)*oldmasse+convpn)/newmasse
+c        newmasse=newmasse/apoln
+c        DO ij = 1,iip1
+c           q(ij,l)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+c        oldmasse=ssum(iim,masse(ip1jm-iim,l),1)
+c        newmasse=oldmasse+convmps
+c        newq=(q(ip1jmp1,l)*oldmasse+convps)/newmasse
+c        newmasse=newmasse/apols
+c        DO ij = ip1jm+1,ip1jmp1
+c           q(ij,l)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c._. fin nouvelle version
+      ENDDO
+c$OMP END DO NOWAIT
+
+! retablir les fils en rapport de melange par rapport a l'air:
+      ijb=ij_begin
+      ije=ij_end
+!      if (pole_nord) ijb=ij_begin
+!      if (pole_sud)  ije=ij_end
+
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb,ije
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+
+      RETURN
+      END
+      
+      
+      
+      RECURSIVE SUBROUTINE vlz_loc(q,pente_max,masse,w,ijb_x,ije_x,iq)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c    q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE vlz_mod
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi  
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ijb_u:ije_u,llm,nqtot),pente_max
+      REAL q(ijb_u:ije_u,llm,nqtot)
+      REAL w(ijb_u:ije_u,llm+1,nqtot)
+      INTEGER iq
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+c
+      REAL newmasse
+
+      REAL dzqmax
+      REAL sigw
+
+      LOGICAL testcpu
+      SAVE testcpu
+c$OMP THREADPRIVATE(testcpu)
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+c$OMP THREADPRIVATE(temps0,temps1,temps2,temps3,temps4,temps5)
+
+      REAL      SSUM
+      EXTERNAL  SSUM
+
+      DATA testcpu/.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+      INTEGER ijb,ije,ijb_x,ije_x
+      LOGICAL,SAVE :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+
+      !REAL masseq(ijb_u:ije_u,llm,nqtot),Ratio(ijb_u:ije_u,llm,nqtot) ! CRisi
+      ! Ces varibles doivent être déclarées en pointer et en save dans
+      ! vlz_loc si on veut qu'elles soient vues par tous les threads.  
+      INTEGER ifils,iq2 ! CRisi
+
+      IF (first) THEN
+       first=.FALSE.
+      ENDIF              
+c    On oriente tout dans le sens de la pression c'est a dire dans le
+c    sens de W
+
+      !write(*,*) 'vlsplt 926: entree dans vlz_loc, iq=',iq
+#ifdef BIDON
+      IF(testcpu) THEN
+         temps0=second(0.)
+      ENDIF
+#endif
+
+      ijb=ijb_x
+      ije=ije_x
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=2,llm
+         DO ij=ijb,ije
+            dzqw(ij,l)=q(ij,l-1,iq)-q(ij,l,iq)
+            adzqw(ij,l)=abs(dzqw(ij,l))
+         ENDDO
+      ENDDO
+c$OMP END DO
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=2,llm-1
+         DO ij=ijb,ije
+#ifdef CRAY
+            dzq(ij,l)=0.5*
+     ,      cvmgp(dzqw(ij,l)+dzqw(ij,l+1),0.,dzqw(ij,l)*dzqw(ij,l+1))
+#else
+            IF(dzqw(ij,l)*dzqw(ij,l+1).gt.0.) THEN
+                dzq(ij,l)=0.5*(dzqw(ij,l)+dzqw(ij,l+1))
+            ELSE
+                dzq(ij,l)=0.
+            ENDIF
+#endif
+            dzqmax=pente_max*min(adzqw(ij,l),adzqw(ij,l+1))
+            dzq(ij,l)=sign(min(abs(dzq(ij,l)),dzqmax),dzq(ij,l))
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+      DO ij=ijb,ije
+         dzq(ij,1)=0.
+         dzq(ij,llm)=0.
+      ENDDO
+c$OMP END MASTER
+c$OMP BARRIER
+#ifdef BIDON
+      IF(testcpu) THEN
+         temps1=temps1+second(0.)-temps0
+      ENDIF
+#endif
+c ---------------------------------------------------------------
+c   .... calcul des termes d'advection verticale  .......
+c ---------------------------------------------------------------
+
+c calcul de  - d( q   * w )/ d(sigma)    qu'on ajoute a  dq pour calculer dq
+
+       !write(*,*) 'vlz 982,ijb,ije=',ijb,ije
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+       DO l = 1,llm-1
+         do  ij = ijb,ije
+          IF(w(ij,l+1,iq).gt.0.) THEN
+             sigw=w(ij,l+1,iq)/masse(ij,l+1,iq)
+             wq(ij,l+1,iq)=w(ij,l+1,iq)*(q(ij,l+1,iq)
+     :           +0.5*(1.-sigw)*dzq(ij,l+1))
+          ELSE
+             sigw=w(ij,l+1,iq)/masse(ij,l,iq)
+             wq(ij,l+1,iq)=w(ij,l+1,iq)*(q(ij,l,iq)
+     :           -0.5*(1.+sigw)*dzq(ij,l))
+          ENDIF
+         ENDDO
+       ENDDO
+c$OMP END DO NOWAIT    
+       !write(*,*) 'vlz 1001'    
+
+c$OMP MASTER
+       DO ij=ijb,ije
+          wq(ij,llm+1,iq)=0.
+          wq(ij,1,iq)=0.
+       ENDDO
+c$OMP END MASTER
+c$OMP BARRIER
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlsplt 942: iq,nqfils(iq)=',iq,nqfils(iq)
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+          DO ij=ijb,ije
+           masse(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)
+           !wq(ij,l,iq2)=wq(ij,l,iq) ! correction bug le 15mai2015
+           w(ij,l,iq2)=wq(ij,l,iq)
+          enddo   
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+c$OMP BARRIER
+
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vlz_loc(Ratio,pente_max,masse,w,ijb_x,ije_x,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi  
+
+! CRisi: On rajoute ici une barrière car on veut être sur que tous les
+! wq soient synchronisés
+
+c$OMP BARRIER
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije
+            newmasse=masse(ij,l,iq)+w(ij,l+1,iq)-w(ij,l,iq)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)
+     &         +wq(ij,l+1,iq)-wq(ij,l,iq))
+     &         /newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      
+! retablir les fils en rapport de melange par rapport a l'air:
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb,ije
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+      RETURN
+      END
+c      SUBROUTINE minmaxq(zq,qmin,qmax,comment)
+c
+c#include "dimensions.h"
+c#include "paramet.h"
+
+c      CHARACTER*(*) comment
+c      real qmin,qmax
+c      real zq(ip1jmp1,llm)
+
+c      INTEGER jadrs(ip1jmp1), jbad, k, i
+
+
+c      DO k = 1, llm
+c         jbad = 0
+c         DO i = 1, ip1jmp1
+c         IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
+c            jbad = jbad + 1
+c            jadrs(jbad) = i
+c         ENDIF
+c         ENDDO
+c         IF (jbad.GT.0) THEN
+c         PRINT*, comment
+c         DO i = 1, jbad
+cc            PRINT*, "i,k,zq=", jadrs(i),k,zq(jadrs(i),k)
+c         ENDDO
+c         ENDIF
+c      ENDDO
+
+c      return
+c      end
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltgen_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltgen_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltgen_loc.F	(revision 3330)
@@ -0,0 +1,605 @@
+!
+! $Header$
+!
+       SUBROUTINE vlspltgen_loc( q,iadv,pente_max,masse,w,pbaru,pbarv,
+     &                           pdt, p,pk,teta                 )
+     
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget, F.Codron 
+c
+c    ********************************************************************
+c          Shema  d'advection " pseudo amont " .
+c      + test sur humidite specifique: Q advecte< Qsat aval
+c                   (F. Codron, 10/99)
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c     pente_max facteur de limitation des pentes: 2 en general
+c                                                0 pour un schema amont
+c     pbaru,pbarv,w flux de masse en u ,v ,w
+c     pdt pas de temps
+c
+c     teta temperature potentielle, p pression aux interfaces,
+c     pk exner au milieu des couches necessaire pour calculer Qsat
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE mod_hallo
+      USE Write_Field_loc
+      USE VAMPIR
+      ! CRisi: on rajoute variables utiles d'infotrac  
+      USE infotrac, ONLY : nqtot,nqperes,nqdesc,nqfils,iqfils, 
+     &    ok_iso_verif
+      USE vlspltgen_mod
+      USE comconst_mod, ONLY: cpp
+      IMPLICIT NONE
+
+c
+      include "dimensions.h"
+      include "paramet.h"
+
+c
+c   Arguments:
+c   ----------
+      INTEGER iadv(nqtot)
+      REAL masse(ijb_u:ije_u,llm),pente_max
+      REAL pbaru( ijb_u:ije_u,llm ),pbarv( ijb_v:ije_v,llm)
+      REAL q(ijb_u:ije_u,llm,nqtot)
+      REAL w(ijb_u:ije_u,llm),pdt
+      REAL p(ijb_u:ije_u,llmp1),teta(ijb_u:ije_u,llm)
+      REAL pk(ijb_u:ije_u,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      REAL zzpbar, zzw
+
+      REAL qmin,qmax
+      DATA qmin,qmax/0.,1.e33/
+
+c--pour rapport de melange saturant--
+
+      REAL rtt,retv,r2es,r3les,r3ies,r4les,r4ies,play
+      REAL ptarg,pdelarg,foeew,zdelta
+      REAL tempe(ijb_u:ije_u)
+      INTEGER ijb,ije,iq,iq2,ifils
+      LOGICAL, SAVE :: firstcall=.TRUE.
+!$OMP THREADPRIVATE(firstcall)
+      type(request),SAVE :: MyRequest1
+!$OMP THREADPRIVATE(MyRequest1)
+      type(request),SAVE :: MyRequest2
+!$OMP THREADPRIVATE(MyRequest2)
+c    fonction psat(T)
+
+       FOEEW ( PTARG,PDELARG ) = EXP (
+     *          (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)
+     * / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )
+
+        r2es  = 380.11733 
+        r3les = 17.269
+        r3ies = 21.875
+        r4les = 35.86
+        r4ies = 7.66
+        retv = 0.6077667
+        rtt  = 273.16
+
+c Allocate variables depending on dynamic variable nqtot
+
+         IF (firstcall) THEN
+            firstcall=.FALSE.
+         END IF
+c-- Calcul de Qsat en chaque point
+c-- approximation: au milieu des couches play(l)=(p(l)+p(l+1))/2
+c   pour eviter une exponentielle.
+
+      call SetTag(MyRequest1,100)
+      call SetTag(MyRequest2,101)
+
+        
+        ijb=ij_begin-iip1
+        ije=ij_end+iip1
+        if (pole_nord) ijb=ij_begin
+        if (pole_sud) ije=ij_end
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+        DO l = 1, llm
+         DO ij = ijb, ije
+          tempe(ij) = teta(ij,l) * pk(ij,l) /cpp
+         ENDDO
+         DO ij = ijb, ije
+          zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) )
+          play   = 0.5*(p(ij,l)+p(ij,l+1))
+          qsat(ij,l) = MIN(0.5, r2es* FOEEW(tempe(ij),zdelta) / play )
+          qsat(ij,l) = qsat(ij,l) / ( 1. - retv * qsat(ij,l) )
+         ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c      PRINT*,'Debut vlsplt version debug sans vlyqs'
+
+        zzpbar = 0.5 * pdt
+        zzw    = pdt
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+        DO ij = ijb,ije
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije
+            mv(ij,l)=pbarv(ij,l) * zzpbar
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin
+      ije=ij_end
+
+      DO iq=1,nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+         DO ij=ijb,ije
+            mw(ij,l,iq)=w(ij,l) * zzw
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+
+      DO iq=1,nqtot  
+c$OMP MASTER
+      DO ij=ijb,ije
+         mw(ij,llm+1,iq)=0.
+      ENDDO
+c$OMP END MASTER
+      ENDDO
+
+c      CALL SCOPY(ijp1llm,q,1,zq,1)
+c      CALL SCOPY(ijp1llm,masse,1,zm,1)
+
+       ijb=ij_begin
+       ije=ij_end
+
+      DO iq=1,nqtot       
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+        DO l=1,llm
+          zq(ijb:ije,l,iq)=q(ijb:ije,l,iq)
+          zm(ijb:ije,l,iq)=masse(ijb:ije,l)
+        ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+
+#ifdef DEBUG_IO     
+       CALL WriteField_u('mu',mu)
+       CALL WriteField_v('mv',mv)
+       CALL WriteField_u('mw',mw)
+       CALL WriteField_u('qsat',qsat)
+#endif
+
+      ! verif temporaire
+      ijb=ij_begin
+      ije=ij_end  
+      if (ok_iso_verif) then
+        call check_isotopes(zq,ijb,ije,'vlspltgen_loc 191')
+      endif !if (ok_iso_verif) then   
+
+c$OMP BARRIER           
+!      DO iq=1,nqtot
+      DO iq=1,nqperes ! CRisi: on ne boucle que sur les pères= ceux qui sont transportés directement par l'air
+       !write(*,*) 'vlspltgen 192: iq,iadv=',iq,iadv(iq)
+#ifdef DEBUG_IO    
+       CALL WriteField_u('zq',zq(:,:,iq))
+       CALL WriteField_u('zm',zm(:,:,iq)) 
+#endif
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+
+#ifdef _ADV_HALO        
+! CRisi: on ajoute les nombres de fils et tableaux des fils
+! On suppose qu'on ne peut advecter les fils que par le schéma 10.  
+          call vlx_loc(zq,pente_max,zm,mu,
+     &                     ij_begin,ij_begin+2*iip1-1,iq)
+          call vlx_loc(zq,pente_max,zm,mu,
+     &               ij_end-2*iip1+1,ij_end,iq)
+#else
+          call vlx_loc(zq,pente_max,zm,mu,
+     &                     ij_begin,ij_end,iq)
+#endif
+
+c$OMP MASTER
+          call VTb(VTHallo)
+c$OMP END MASTER
+          call Register_Hallo_u(zq(:,:,iq),llm,2,2,2,2,MyRequest1)
+          call Register_Hallo_u(zm(:,:,iq),llm,1,1,1,1,MyRequest1)
+! CRisi
+          do ifils=1,nqdesc(iq)
+            iq2=iqfils(ifils,iq)
+            call Register_Hallo_u(zq(:,:,iq2),llm,2,2,2,2,MyRequest1)
+            call Register_Hallo_u(zm(:,:,iq2),llm,1,1,1,1,MyRequest1)
+          enddo
+
+c$OMP MASTER
+          call VTe(VTHallo)
+c$OMP END MASTER
+        else if (iadv(iq)==14) then
+
+#ifdef _ADV_HALO           
+          call vlxqs_loc(zq,pente_max,zm,mu,
+     &                   qsat,ij_begin,ij_begin+2*iip1-1,iq)
+          call vlxqs_loc(zq,pente_max,zm,mu,
+     &                   qsat,ij_end-2*iip1+1,ij_end,iq)
+#else
+          call vlxqs_loc(zq,pente_max,zm,mu,
+     &                   qsat,ij_begin,ij_end,iq)
+#endif
+
+c$OMP MASTER
+          call VTb(VTHallo)
+c$OMP END MASTER
+
+          call Register_Hallo_u(zq(:,:,iq),llm,2,2,2,2,MyRequest1)
+          call Register_Hallo_u(zm(:,:,iq),llm,1,1,1,1,MyRequest1)
+          do ifils=1,nqdesc(iq)
+            iq2=iqfils(ifils,iq)
+            call Register_Hallo_u(zq(:,:,iq2),llm,2,2,2,2,MyRequest1)
+            call Register_Hallo_u(zm(:,:,iq2),llm,1,1,1,1,MyRequest1)
+          enddo
+
+c$OMP MASTER
+          call VTe(VTHallo)
+c$OMP END MASTER 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo !DO iq=1,nqperes
+      
+      
+c$OMP BARRIER      
+c$OMP MASTER      
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+      call SendRequest(MyRequest1)
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER       
+c$OMP BARRIER
+
+      ! verif temporaire
+      ijb=ij_begin-2*iip1
+      ije=ij_end+2*iip1  
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end  
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 280')
+      endif !if (ok_iso_verif) then
+
+      do iq=1,nqperes
+        !write(*,*) 'vlspltgen 279: iq=',iq
+
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+
+#ifdef _ADV_HALLO
+          call vlx_loc(zq,pente_max,zm,mu,
+     &                 ij_begin+2*iip1,ij_end-2*iip1,iq)
+#endif        
+        else if (iadv(iq)==14) then
+#ifdef _ADV_HALLO
+          call vlxqs_loc(zq,pente_max,zm,mu,
+     &                    qsat,ij_begin+2*iip1,ij_end-2*iip1,iq)
+#endif    
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+c$OMP BARRIER      
+c$OMP MASTER
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+!      call WaitRecvRequest(MyRequest1)
+!      call WaitSendRequest(MyRequest1)
+c$OMP BARRIER
+       call WaitRequest(MyRequest1)
+
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER
+c$OMP BARRIER
+
+      
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 326')
+      endif !if (ok_iso_verif) then        
+      if (ok_iso_verif) then
+           ijb=ij_begin-2*iip1
+           ije=ij_end+2*iip1
+           if (pole_nord) ijb=ij_begin
+           if (pole_sud)  ije=ij_end
+           call check_isotopes(zq,ijb,ije,'vlspltgen_loc 336')
+      endif !if (ok_iso_verif) then  
+
+      do iq=1,nqperes
+       !write(*,*) 'vlspltgen 321: iq=',iq
+#ifdef DEBUG_IO    
+       CALL WriteField_u('zq',zq(:,:,iq))
+       CALL WriteField_u('zm',zm(:,:,iq))
+#endif
+
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+        
+          call vly_loc(zq,pente_max,zm,mv,iq)
+  
+        else if (iadv(iq)==14) then
+      
+          call vlyqs_loc(zq,pente_max,zm,mv,
+     &                   qsat,iq)
+ 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+       
+       enddo
+
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 357')
+      endif !if (ok_iso_verif) then
+
+      do iq=1,nqperes
+      !write(*,*) 'vlspltgen 349: iq=',iq
+#ifdef DEBUG_IO    
+       CALL WriteField_u('zq',zq(:,:,iq))
+       CALL WriteField_u('zm',zm(:,:,iq))
+#endif
+        if(iadv(iq) == 0) then 
+          
+          cycle 
+        
+        else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
+
+c$OMP BARRIER        
+#ifdef _ADV_HALLO
+          call vlz_loc(zq,pente_max,zm,mw,
+     &               ij_begin,ij_begin+2*iip1-1,iq)
+          call vlz_loc(zq,pente_max,zm,mw,
+     &               ij_end-2*iip1+1,ij_end,iq)
+#else
+          call vlz_loc(zq,pente_max,zm,mw,
+     &               ij_begin,ij_end,iq)
+#endif
+c$OMP BARRIER
+
+c$OMP MASTER
+          call VTb(VTHallo)
+c$OMP END MASTER
+
+          call Register_Hallo_u(zq(:,:,iq),llm,2,2,2,2,MyRequest2)
+          call Register_Hallo_u(zm(:,:,iq),llm,1,1,1,1,MyRequest2)
+          ! CRisi
+          do ifils=1,nqdesc(iq)
+            iq2=iqfils(ifils,iq)
+            call Register_Hallo_u(zq(:,:,iq2),llm,2,2,2,2,MyRequest2)
+            call Register_Hallo_u(zm(:,:,iq2),llm,1,1,1,1,MyRequest2)
+          enddo      
+c$OMP MASTER
+          call VTe(VTHallo)
+c$OMP END MASTER        
+c$OMP BARRIER
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+c$OMP BARRIER      
+
+c$OMP MASTER        
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+      call SendRequest(MyRequest2)
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER        
+
+
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 429')
+      endif !if (ok_iso_verif) then 
+
+c$OMP BARRIER
+      do iq=1,nqperes
+      !write(*,*) 'vlspltgen 409: iq=',iq
+
+        if(iadv(iq) == 0) then
+          
+          cycle 
+        
+        else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
+c$OMP BARRIER        
+
+#ifdef _ADV_HALLO
+          call vlz_loc(zq,pente_max,zm,mw,
+     &               ij_begin+2*iip1,ij_end-2*iip1,iq)
+#endif
+
+c$OMP BARRIER        
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+      !write(*,*) 'vlspltgen_loc 476'
+
+c$OMP BARRIER
+      !write(*,*) 'vlspltgen_loc 477'
+c$OMP MASTER
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+!      call WaitRecvRequest(MyRequest2)
+!      call WaitSendRequest(MyRequest2)
+c$OMP BARRIER
+       CALL WaitRequest(MyRequest2)
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER
+c$OMP BARRIER
+
+
+      !write(*,*) 'vlspltgen_loc 494'
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 461')
+      endif !if (ok_iso_verif) then
+
+      do iq=1,nqperes
+      !write(*,*) 'vlspltgen 449: iq=',iq
+#ifdef DEBUG_IO    
+       CALL WriteField_u('zq',zq(:,:,iq))
+       CALL WriteField_u('zm',zm(:,:,iq))
+#endif
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+        
+          call vly_loc(zq,pente_max,zm,mv,iq)
+  
+        else if (iadv(iq)==14) then
+      
+          call vlyqs_loc(zq,pente_max,zm,mv,
+     &                   qsat,iq)
+ 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+       
+       enddo !do iq=1,nqperes
+
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 493')
+      endif !if (ok_iso_verif) then
+
+      do iq=1,nqperes
+      !write(*,*) 'vlspltgen 477: iq=',iq
+#ifdef DEBUG_IO    
+       CALL WriteField_u('zq',zq(:,:,iq))
+       CALL WriteField_u('zm',zm(:,:,iq))
+#endif
+        if(iadv(iq) == 0) then 
+          
+          cycle 
+        
+        else if (iadv(iq)==10) then
+        
+          call vlx_loc(zq,pente_max,zm,mu,
+     &               ij_begin,ij_end,iq)
+  
+        else if (iadv(iq)==14) then
+      
+          call vlxqs_loc(zq,pente_max,zm,mu,
+     &                 qsat, ij_begin,ij_end,iq)
+ 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+       
+       enddo !do iq=1,nqperes
+
+      !write(*,*) 'vlspltgen 550: apres derniere serie de call vlx'
+      if (ok_iso_verif) then
+           call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 521')
+      endif !if (ok_iso_verif) then
+     
+      ijb=ij_begin
+      ije=ij_end
+      !write(*,*) 'vlspltgen_loc 557'
+c$OMP BARRIER      
+
+      !write(*,*) 'vlspltgen_loc 559'  
+      DO iq=1,nqtot
+       !write(*,*) 'vlspltgen_loc 561, iq=',iq  
+#ifdef DEBUG_IO    
+       CALL WriteField_u('zq',zq(:,:,iq))
+       CALL WriteField_u('zm',zm(:,:,iq))
+#endif
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+        DO l=1,llm
+           DO ij=ijb,ije
+c             print *,'zq-->',ij,l,iq,zq(ij,l,iq)
+c             print *,'q-->',ij,l,iq,q(ij,l,iq)
+             q(ij,l,iq)=zq(ij,l,iq)
+           ENDDO
+        ENDDO
+c$OMP END DO NOWAIT    
+      !write(*,*) 'vlspltgen_loc 575'      
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+           DO ij=ijb,ije-iip1+1,iip1
+              q(ij+iim,l,iq)=q(ij,l,iq)
+           ENDDO
+        ENDDO
+c$OMP END DO NOWAIT  
+      !write(*,*) 'vlspltgen_loc 583'  
+      ENDDO !DO iq=1,nqtot
+        
+      if (ok_iso_verif) then
+           call check_isotopes(q,ij_begin,ij_end,'vlspltgen_loc 557')
+      endif !if (ok_iso_verif) then
+
+c$OMP BARRIER
+
+cc$OMP MASTER      
+c      call WaitSendRequest(MyRequest1) 
+c      call WaitSendRequest(MyRequest2)
+cc$OMP END MASTER
+cc$OMP BARRIER
+
+      !write(*,*) 'vlspltgen 597: sortie'  
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltgen_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltgen_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltgen_mod.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE vlspltgen_mod
+
+  REAL,POINTER,SAVE :: qsat(:,:)
+  REAL,POINTER,SAVE :: mu(:,:) ! CRisi: on ajoute une dimension
+  REAL,POINTER,SAVE :: mv(:,:)
+  REAL,POINTER,SAVE :: mw(:,:,:)
+  REAL,POINTER,SAVE :: zm(:,:,:)
+  REAL,POINTER,SAVE :: zq(:,:,:)
+ 
+CONTAINS
+
+  SUBROUTINE vlspltgen_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE infotrac
+  USE vlz_mod,ONLY : vlz_allocate 
+  IMPLICIT NONE
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  TYPE(distrib),POINTER :: d
+    
+    d=>distrib_vanleer
+    CALL allocate_u(qsat,llm,d)
+    CALL allocate_u(mu,llm,d)
+    CALL allocate_v(mv,llm,d)
+    CALL allocate_u(mw,llm+1,nqtot,d)
+    CALL allocate_u(zm,llm,nqtot,d)
+    CALL allocate_u(zq,llm,nqtot,d)
+
+    CALL vlz_allocate
+
+  END SUBROUTINE vlspltgen_allocate
+  
+  SUBROUTINE vlspltgen_switch_vanleer(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE vlz_mod,ONLY : vlz_switch_vanleer 
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+  
+    CALL switch_u(qsat,distrib_vanleer,dist)
+    CALL switch_u(mu,distrib_vanleer,dist)
+    CALL switch_u(mv,distrib_vanleer,dist)
+    CALL switch_u(mw,distrib_vanleer,dist)
+    CALL switch_u(zm,distrib_vanleer,dist)
+    CALL switch_u(zq,distrib_vanleer,dist)
+
+    CALL vlz_switch_vanleer(dist)
+
+  END SUBROUTINE vlspltgen_switch_vanleer  
+  
+END MODULE vlspltgen_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltqs_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltqs_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlspltqs_loc.F	(revision 3330)
@@ -0,0 +1,839 @@
+      SUBROUTINE vlxqs_loc(q,pente_max,masse,u_m,qsat,ijb_x,ije_x,iq)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d''advection " pseudo amont " .
+c    ********************************************************************
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi  
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ijb_u:ije_u,llm,nqtot),pente_max
+      REAL u_m( ijb_u:ije_u,llm )
+      REAL q(ijb_u:ije_u,llm,nqtot)
+      REAL qsat(ijb_u:ije_u,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ijnb_u),niju
+      INTEGER n0,iadvplus(ijb_u:ije_u,llm),nl(llm)
+c
+      REAL new_m,zu_m,zdum(ijb_u:ije_u,llm)
+      REAL dxq(ijb_u:ije_u,llm),dxqu(ijb_u:ije_u)
+      REAL zz(ijb_u:ije_u)
+      REAL adxqu(ijb_u:ije_u),dxqmax(ijb_u:ije_u,llm)
+      REAL u_mq(ijb_u:ije_u,llm)
+      REAL Ratio(ijb_u:ije_u,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+
+
+      REAL      SSUM
+
+
+      INTEGER ijb,ije,ijb_x,ije_x
+      
+      !write(*,*) 'vlspltqs 58: entree vlxqs_loc, iq,ijb_x=',
+!     &   iq,ijb_x
+
+c   calcul de la pente a droite et a gauche de la maille
+
+c      ijb=ij_begin
+c      ije=ij_end
+
+      ijb=ijb_x
+      ije=ije_x
+        
+      if (pole_nord.and.ijb==1) ijb=ijb+iip1
+      if (pole_sud.and.ije==ip1jmp1)  ije=ije-iip1
+      
+      IF (pente_max.gt.-1.e-5) THEN
+c     IF (pente_max.gt.10) THEN
+
+c   calcul des pentes avec limitation, Van Leer scheme I:
+c   -----------------------------------------------------
+
+c   calcul de la pente aux points u
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+         DO l = 1, llm
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
+c              sigu(ij)=u_m(ij,l)/masse(ij,l,iq)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+c              sigu(ij)=sigu(ij-iim)
+            ENDDO
+
+            DO ij=ijb,ije
+               adxqu(ij)=abs(dxqu(ij))
+            ENDDO
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+            DO ij=ijb+1,ije
+               dxqmax(ij,l)=pente_max*
+     ,      min(adxqu(ij-1),adxqu(ij))
+c limitation subtile
+c    ,      min(adxqu(ij-1)/sigu(ij-1),adxqu(ij)/(1.-sigu(ij)))
+          
+
+            ENDDO
+
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqmax(ij-iim,l)=dxqmax(ij,l)
+            ENDDO
+
+            DO ij=ijb+1,ije
+#ifdef CRAY
+               dxq(ij,l)=
+     ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
+#else
+               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+                  dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+#endif
+               dxq(ij,l)=0.5*dxq(ij,l)
+               dxq(ij,l)=
+     ,         sign(min(abs(dxq(ij,l)),dxqmax(ij,l)),dxq(ij,l))
+            ENDDO
+
+         ENDDO ! l=1,llm
+c$OMP END DO NOWAIT
+
+      ELSE ! (pente_max.lt.-1.e-5)
+
+c   Pentes produits:
+c   ----------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+         DO l = 1, llm
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+            ENDDO
+
+            DO ij=ijb+1,ije
+               zz(ij)=dxqu(ij-1)*dxqu(ij)
+               zz(ij)=zz(ij)+zz(ij)
+               IF(zz(ij).gt.0) THEN
+                  dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+            ENDDO
+
+         ENDDO
+c$OMP END DO NOWAIT
+      ENDIF ! (pente_max.lt.-1.e-5)
+
+c   bouclage de la pente en iip1:
+c   -----------------------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+iip1-1,ije,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         ENDDO
+
+         DO ij=ijb,ije
+            iadvplus(ij,l)=0
+         ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      if (pole_nord) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm      
+          iadvplus(1:iip1,l)=0
+        ENDDO
+c$OMP END DO NOWAIT
+      endif
+      
+      if (pole_sud)  THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm 
+          iadvplus(ip1jm+1:ip1jmp1,l)=0
+        ENDDO
+c$OMP END DO NOWAIT
+      endif
+              
+c   calcul des flux a gauche et a droite
+
+#ifdef CRAY
+c--pas encore modification sur Qsat
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+          zdum(ij,l)=cvmgp(1.-u_m(ij,l)/masse(ij,l,iq),
+     ,                     1.+u_m(ij,l)/masse(ij+1,l,iq),
+     ,                     u_m(ij,l))
+          zdum(ij,l)=0.5*zdum(ij,l)
+          u_mq(ij,l)=cvmgp(
+     ,                q(ij,l,iq)+zdum(ij,l)*dxq(ij,l),
+     ,                q(ij+1,l,iq)-zdum(ij,l)*dxq(ij+1,l),
+     ,                u_m(ij,l))
+          u_mq(ij,l)=u_m(ij,l)*u_mq(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+#else
+c   on cumule le flux correspondant a toutes les mailles dont la masse
+c   au travers de la paroi pENDant le pas de temps.
+c   le rapport de melange de l''air advecte est min(q_vanleer, Qsat_downwind)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+          IF (u_m(ij,l).gt.0.) THEN
+             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*
+     $         min(q(ij,l,iq)+0.5*zdum(ij,l)*dxq(ij,l),qsat(ij+1,l))
+          ELSE
+             zdum(ij,l)=1.+u_m(ij,l)/masse(ij+1,l,iq)
+             u_mq(ij,l)=u_m(ij,l)*
+     $         min(q(ij+1,l,iq)-0.5*zdum(ij,l)*dxq(ij+1,l),qsat(ij,l))
+          ENDIF
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#endif
+
+
+c   detection des points ou on advecte plus que la masse de la
+c   maille
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije-1
+            IF(zdum(ij,l).lt.0) THEN
+               iadvplus(ij,l)=1
+               u_mq(ij,l)=0.
+            ENDIF
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb+iip1-1,ije,iip1
+          iadvplus(ij,l)=iadvplus(ij-iim,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+
+
+c   traitement special pour le cas ou on advecte en longitude plus que le
+c   contenu de la maille.
+c   cette partie est mal vectorisee.
+
+c   pas d'influence de la pression saturante (pour l'instant)
+
+c  calcul du nombre de maille sur lequel on advecte plus que la maille.
+
+      n0=0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         nl(l)=0
+         DO ij=ijb,ije
+            nl(l)=nl(l)+iadvplus(ij,l)
+         ENDDO
+         n0=n0+nl(l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+cym ATTENTION ICI en OpenMP reduction pas forcement nécessaire
+cym      IF(n0.gt.1) THEN
+cym        IF(n0.gt.0) THEN
+ccc      PRINT*,'Nombre de points pour lesquels on advect plus que le'
+ccc     &       ,'contenu de la maille : ',n0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+            IF(nl(l).gt.0) THEN
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               DO ij=ijb,ije
+                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                     iju=iju+1
+                     indu(iju)=ij
+                  ENDIF
+               ENDDO
+               niju=iju
+               !PRINT*,'vlxqs 280: niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               DO iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  IF(zu_m.gt.0.) THEN
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)+q(ijq,l,iq)
+     &                     *masse(ijq,l,iq) 
+                        zu_m=zu_m-masse(ijq,l,iq)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l,iq)
+     &                 +0.5*(1.-zu_m/masse(ijq,l,iq))*dxq(ijq,l))
+                  ELSE
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l,iq))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l,iq)
+     &                   *masse(ijq,l,iq)
+                        zu_m=zu_m+masse(ijq,l,iq)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l,iq)-
+     &               0.5*(1.+zu_m/masse(ijq,l,iq))*dxq(ijq,l))
+                  ENDIF
+               ENDDO
+            ENDIF
+         ENDDO
+c$OMP END DO NOWAIT
+cym      ENDIF  ! n0.gt.0 
+
+
+
+c   bouclage en latitude
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        DO ij=ijb+iip1-1,ije,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlspltqs 336: iq,ijb_x,nqfils(iq)=',
+!     &     iq,ijb_x,nqfils(iq)  
+
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb,ije
+           masse(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)      
+          enddo   
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqfils(iq)
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         !write(*,*) 'vlxqs 349: on appelle vlx pour iq2=',iq2
+         call vlx_loc(Ratio,pente_max,masse,u_mq,ijb_x,ije_x,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+! end CRisi
+
+      !write(*,*) 'vlspltqs 360: iq,ijb_x=',iq,ijb_x   
+
+c   calcul des tendances
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+1,ije
+            new_m=masse(ij,l,iq)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+
+     &      u_mq(ij-1,l)-u_mq(ij,l))
+     &      /new_m
+            masse(ij,l,iq)=new_m
+         ENDDO
+c   Modif Fred 22 03 96 correction d''un bug (les scopy ci-dessous)
+         DO ij=ijb+iip1-1,ije,iip1
+            q(ij-iim,l,iq)=q(ij,l,iq)
+            masse(ij-iim,l,iq)=masse(ij,l,iq)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      !write(*,*) 'vlspltqs 380: iq,ijb_x=',iq,ijb_x
+
+! retablir les fils en rapport de melange par rapport a l'air:
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb+1,ije
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+          DO ij=ijb+iip1-1,ije,iip1
+             q(ij-iim,l,iq2)=q(ij,l,iq2)
+          enddo ! DO ij=ijb+iip1-1,ije,iip1
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+      !write(*,*) 'vlspltqs 399: iq,ijb_x=',iq,ijb_x
+
+c     CALL SCOPY((jjm-1)*llm,q(iip1+iip1,1),iip1,q(iip2,1),iip1)
+c     CALL SCOPY((jjm-1)*llm,masse(iip1+iip1,1,iq),iip1,masse(iip2,1,iq),iip1)
+
+
+      RETURN
+      END
+      SUBROUTINE vlyqs_loc(q,pente_max,masse,masse_adv_v,qsat,iq)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
+c     qsat                est   un argument de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot,nqfils,nqdesc,iqfils ! CRisi  
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ijb_u:ije_u,llm,nqtot),pente_max
+      REAL masse_adv_v( ijb_v:ije_v,llm)
+      REAL q(ijb_u:ije_u,llm,nqtot)
+      REAL qsat(ijb_u:ije_u,llm)
+      INTEGER iq ! CRisi
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      REAL dyq(ijb_u:ije_u,llm),dyqv(ijb_v:ije_v)
+      REAL adyqv(ijb_v:ije_v),dyqmax(ijb_u:ije_u)
+      REAL qbyv(ijb_v:ije_v,llm,nqtot)
+
+      REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
+c     REAL newq,oldmasse
+      Logical first
+      SAVE first
+c$OMP THREADPRIVATE(first)
+      REAL convpn,convps,convmpn,convmps
+      REAL sinlon(iip1),sinlondlon(iip1)
+      REAL coslon(iip1),coslondlon(iip1)
+      SAVE sinlon,coslon,sinlondlon,coslondlon
+      SAVE airej2,airejjm
+c$OMP THREADPRIVATE(sinlon,coslon,sinlondlon,coslondlon)
+c$OMP THREADPRIVATE(airej2,airejjm)
+c
+c
+      REAL Ratio(ijb_u:ije_u,llm,nqtot) ! CRisi
+      INTEGER ifils,iq2 ! CRisi
+
+      REAL      SSUM
+
+      DATA first/.true./
+      INTEGER ijb,ije
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+2*iip1  
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+      ij=3525
+      l=3
+      if ((ij.ge.ijb).and.(ij.le.ije)) then
+        !write(*,*) 'vlyqs 480: ij,l,iq,ijb,q(ij,l,:)=',
+!     &             ij,l,iq,ijb,q(ij,l,:)
+      endif  
+
+      IF(first) THEN
+         PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
+         PRINT*,'vlyqs_loc, iq=',iq
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         ENDDO
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         airej2 = SSUM( iim, aire(iip2), 1 )
+         airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      ENDIF
+
+c
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, llm
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+
+      if (pole_nord) then
+        DO i = 1, iim
+          airescb(i) = aire(i+ iip1) * q(i+ iip1,l,iq)
+        ENDDO
+        qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      endif
+      
+      if (pole_sud) then
+        DO i = 1, iim
+          airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l,iq)
+        ENDDO
+        qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+      endif
+
+
+c   calcul des pentes aux points v
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyqv(ij)=q(ij,l,iq)-q(ij+iip1,l,iq)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+
+
+c   calcul des pentes aux points scalaires
+
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyq(ij,l)=.5*(dyqv(ij-iip1)+dyqv(ij))
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      ENDDO
+      
+      IF (pole_nord) THEN
+
+c   calcul des pentes aux poles
+        DO ij=1,iip1
+           dyq(ij,l)=qpns-q(ij+iip1,l,iq)
+        ENDDO
+
+c   filtrage de la derivee        
+        dyn1=0.
+        dyn2=0.
+        DO ij=1,iim
+          dyn1=dyn1+sinlondlon(ij)*dyq(ij,l)
+          dyn2=dyn2+coslondlon(ij)*dyq(ij,l)
+        ENDDO
+        DO ij=1,iip1
+          dyq(ij,l)=dyn1*sinlon(ij)+dyn2*coslon(ij)
+        ENDDO
+
+c   calcul des pentes limites aux poles
+        fn=1.
+        DO ij=1,iim
+          IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+            fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
+          ENDIF
+        ENDDO
+      
+        DO ij=1,iip1
+         dyq(ij,l)=fn*dyq(ij,l)
+        ENDDO
+          
+      ENDIF
+      
+      IF (pole_sud) THEN
+
+        DO ij=1,iip1
+           dyq(ip1jm+ij,l)=q(ip1jm+ij-iip1,l,iq)-qpsn
+        ENDDO
+
+        dys1=0.
+        dys2=0.
+
+        DO ij=1,iim
+          dys1=dys1+sinlondlon(ij)*dyq(ip1jm+ij,l)
+          dys2=dys2+coslondlon(ij)*dyq(ip1jm+ij,l)
+        ENDDO
+
+        DO ij=1,iip1
+          dyq(ip1jm+ij,l)=dys1*sinlon(ij)+dys2*coslon(ij)
+        ENDDO
+        
+c   calcul des pentes limites aux poles        
+        fs=1.
+        DO ij=1,iim
+        IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+         fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
+        ENDIF
+        ENDDO
+    
+        DO ij=1,iip1
+         dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
+        ENDDO
+        
+      ENDIF
+
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C  En memoire de dIFferents tests sur la 
+C  limitation des pentes aux poles.
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C     PRINT*,dyq(1)
+C     PRINT*,dyqv(iip1+1)
+C     appn=abs(dyq(1)/dyqv(iip1+1))
+C     PRINT*,dyq(ip1jm+1)
+C     PRINT*,dyqv(ip1jm-iip1+1)
+C     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+C     DO ij=2,iim
+C        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+C        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+C     ENDDO
+C     appn=min(pente_max/appn,1.)
+C     apps=min(pente_max/apps,1.)
+C
+C
+C   cas ou on a un extremum au pole
+C
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   appn=0.
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &   apps=0.
+C
+C   limitation des pentes aux poles
+C     DO ij=1,iip1
+C        dyq(ij)=appn*dyq(ij)
+C        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+C     ENDDO
+C
+C   test
+C      DO ij=1,iip1
+C         dyq(iip1+ij)=0.
+C         dyq(ip1jm+ij-iip1)=0.
+C      ENDDO
+C      DO ij=1,ip1jmp1
+C         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+C      ENDDO
+C
+C changement 10 07 96
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   THEN
+C        DO ij=1,iip1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=1,iip1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij))
+C        ENDDO
+C     ENDIF
+C
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &THEN
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+C        ENDDO
+C     ENDIF
+C   fin changement 10 07 96
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+
+c   calcul des pentes limitees
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+      DO ij=ijb,ije
+         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+            dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
+         ELSE
+            dyq(ij,l)=0.
+         ENDIF
+      ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije
+         IF( masse_adv_v(ij,l).GT.0. ) THEN
+           qbyv(ij,l,iq)= MIN( qsat(ij+iip1,l), q(ij+iip1,l,iq )  +
+     ,      dyq(ij+iip1,l)*0.5*(1.-masse_adv_v(ij,l)
+     ,      /masse(ij+iip1,l,iq)))
+         ELSE
+              qbyv(ij,l,iq)= MIN( qsat(ij,l), q(ij,l,iq) - dyq(ij,l) *
+     ,                   0.5*(1.+masse_adv_v(ij,l)/masse(ij,l,iq)) )
+         ENDIF
+          qbyv(ij,l,iq) = masse_adv_v(ij,l)*qbyv(ij,l,iq)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+! CRisi: appel récursif de l'advection sur les fils.
+! Il faut faire ça avant d'avoir mis à jour q et masse
+      !write(*,*) 'vlyqs 689: iq,nqfils(iq)=',iq,nqfils(iq)
+      
+      ijb=ij_begin-2*iip1
+      ije=ij_end+2*iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end  
+
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb,ije
+           masse(ij,l,iq2)=masse(ij,l,iq)*q(ij,l,iq)
+           Ratio(ij,l,iq2)=q(ij,l,iq2)/q(ij,l,iq)   
+          enddo   
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+        do ifils=1,nqfils(iq)
+         iq2=iqfils(ifils,iq)
+         call vly_loc(Ratio,pente_max,masse,qbyv,iq2)
+        enddo !do ifils=1,nqfils(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+        
+! end CRisi
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+         DO ij=ijb,ije
+            newmasse=masse(ij,l,iq)
+     &      +masse_adv_v(ij,l)-masse_adv_v(ij-iip1,l)
+            q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+qbyv(ij,l,iq)
+     &         -qbyv(ij-iip1,l,iq))/newmasse
+            masse(ij,l,iq)=newmasse
+         ENDDO
+c.-. ancienne version
+
+         IF (pole_nord) THEN
+
+           convpn=SSUM(iim,qbyv(1,l,iq),1)/apoln
+           convmpn=ssum(iim,masse_adv_v(1,l),1)/apoln
+           DO ij = 1,iip1
+              newmasse=masse(ij,l,iq)+convmpn*aire(ij)
+              q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+convpn*aire(ij))/
+     &                 newmasse
+              masse(ij,l,iq)=newmasse
+           ENDDO
+         
+         ENDIF
+         
+         IF (pole_sud) THEN
+         
+           convps  = -SSUM(iim,qbyv(ip1jm-iim,l,iq),iq,1)/apols
+           convmps = -SSUM(iim,masse_adv_v(ip1jm-iim,l),1)/apols
+           DO ij = ip1jm+1,ip1jmp1
+              newmasse=masse(ij,l,iq)+convmps*aire(ij)
+              q(ij,l,iq)=(q(ij,l,iq)*masse(ij,l,iq)+convps*aire(ij))/
+     &                 newmasse
+              masse(ij,l,iq)=newmasse
+           ENDDO
+         
+         ENDIF
+c.-. fin ancienne version
+
+c._. nouvelle version
+c        convpn=SSUM(iim,qbyv(1,l,iq),1)
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)
+c        oldmasse=ssum(iim,masse(1,l,iq),1)
+c        newmasse=oldmasse+convmpn
+c        newq=(q(1,l,iq)*oldmasse+convpn)/newmasse
+c        newmasse=newmasse/apoln
+c        DO ij = 1,iip1
+c           q(ij,l,iq)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l,iq),1)
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+c        oldmasse=ssum(iim,masse(ip1jm-iim,l,iq),1)
+c        newmasse=oldmasse+convmps
+c        newq=(q(ip1jmp1,l,iq)*oldmasse+convps)/newmasse
+c        newmasse=newmasse/apols
+c        DO ij = ip1jm+1,ip1jmp1
+c           q(ij,l,iq)=newq
+c           masse(ij,l,iq)=newmasse*aire(ij)
+c        ENDDO
+c._. fin nouvelle version
+      ENDDO
+c$OMP END DO NOWAIT
+
+! retablir les fils en rapport de melange par rapport a l'air:
+      ijb=ij_begin
+      ije=ij_end
+!      if (pole_nord) ijb=ij_begin+iip1
+!      if (pole_sud)  ije=ij_end-iip1
+  
+      if (nqfils(iq).gt.0) then  
+       do ifils=1,nqdesc(iq)
+         iq2=iqfils(ifils,iq)  
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+         DO l=1,llm
+          DO ij=ijb,ije
+            q(ij,l,iq2)=q(ij,l,iq)*Ratio(ij,l,iq2)            
+          enddo
+         enddo
+c$OMP END DO NOWAIT
+        enddo !do ifils=1,nqdesc(iq)
+      endif !if (nqfils(iq).gt.0) then
+
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlz_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlz_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/vlz_mod.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE vlz_mod
+
+  REAL,POINTER,SAVE :: wq(:,:,:)
+  REAL,POINTER,SAVE :: dzq(:,:)
+  REAL,POINTER,SAVE :: dzqw(:,:)
+  REAL,POINTER,SAVE :: adzqw(:,:)
+  ! CRisi: pour les traceurs:  
+  !REAL,POINTER,SAVE :: masseq(:,:,:)
+  REAL,POINTER,SAVE :: Ratio(:,:,:)
+  
+CONTAINS
+
+  SUBROUTINE vlz_allocate
+  USE bands
+  USE allocate_field_mod
+  USE parallel_lmdz
+  USE infotrac
+  USE dimensions_mod
+  IMPLICIT NONE
+  TYPE(distrib),POINTER :: d
+    
+    d=>distrib_vanleer
+    CALL allocate_u(wq,llm+1,nqtot,d)
+    CALL allocate_u(dzq,llm,d)
+    CALL allocate_u(dzqw,llm,d)
+    CALL allocate_u(adzqw,llm,d)
+    if (nqdesc_tot.gt.0) then
+    !CALL allocate_u(masseq,llm,nqtot,d)
+    CALL allocate_u(Ratio,llm,nqtot,d)
+    endif !if (nqdesc_tot.gt.0) then
+
+  END SUBROUTINE vlz_allocate
+  
+  SUBROUTINE vlz_switch_vanleer(dist)
+  USE allocate_field_mod
+  USE bands
+  USE parallel_lmdz
+  USE infotrac
+  IMPLICIT NONE
+    TYPE(distrib),INTENT(IN) :: dist
+  
+    CALL switch_u(wq,distrib_vanleer,dist)
+    CALL switch_u(dzq,distrib_vanleer,dist)
+    CALL switch_u(dzqw,distrib_vanleer,dist)
+    CALL switch_u(adzqw,distrib_vanleer,dist)
+    ! CRisi:
+    if (nqdesc_tot.gt.0) then    
+    !CALL switch_u(masseq,distrib_vanleer,dist)
+    CALL switch_u(Ratio,distrib_vanleer,dist)
+    endif !if (nqdesc_tot.gt.0) then     
+
+  END SUBROUTINE vlz_switch_vanleer  
+  
+END MODULE vlz_mod  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/wrgrads.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/wrgrads.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/wrgrads.F	(revision 3330)
@@ -0,0 +1,128 @@
+!
+! $Header$
+!
+      subroutine wrgrads(if,nl,field,name,titlevar)
+      implicit none
+
+c   Declarations
+c    if indice du fichier
+c    nl nombre de couches
+c    field   champ
+c    name    petit nom
+c    titlevar   Titre
+
+#include "gradsdef.h"
+
+c   arguments
+      integer if,nl
+      real field(imx*jmx*lmx)
+      character*10 name,file
+      character*10 titlevar
+
+c   local
+
+      integer im,jm,lm,i,j,l,iv,iii,iji,iif,ijf
+
+      logical writectl
+
+
+      writectl=.false.
+
+      print*,if,iid(if),jid(if),ifd(if),jfd(if)
+      iii=iid(if)
+      iji=jid(if)
+      iif=ifd(if)
+      ijf=jfd(if)
+      im=iif-iii+1
+      jm=ijf-iji+1
+      lm=lmd(if)
+
+      print*,'im,jm,lm,name,firsttime(if)'
+      print*,im,jm,lm,name,firsttime(if)
+
+      if(firsttime(if)) then
+         if(name.eq.var(1,if)) then
+            firsttime(if)=.false.
+            ivar(if)=1
+         print*,'fin de l initialiation de l ecriture du fichier'
+         print*,file
+           print*,'fichier no: ',if
+           print*,'unit ',unit(if)
+           print*,'nvar  ',nvar(if)
+           print*,'vars ',(var(iv,if),iv=1,nvar(if))
+         else
+            ivar(if)=ivar(if)+1
+            nvar(if)=ivar(if)
+            var(ivar(if),if)=name
+            tvar(ivar(if),if)=trim(titlevar)
+            nld(ivar(if),if)=nl
+            print*,'initialisation ecriture de ',var(ivar(if),if)
+            print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
+         endif
+         writectl=.true.
+         itime(if)=1
+      else
+         ivar(if)=mod(ivar(if),nvar(if))+1
+         if (ivar(if).eq.nvar(if)) then
+            writectl=.true.
+            itime(if)=itime(if)+1
+         endif
+
+         if(var(ivar(if),if).ne.name) then
+           print*,'Il faut stoker la meme succession de champs a chaque'
+           print*,'pas de temps'
+           print*,'fichier no: ',if
+           print*,'unit ',unit(if)
+           print*,'nvar  ',nvar(if)
+           print*,'vars ',(var(iv,if),iv=1,nvar(if))
+
+           stop
+         endif
+      endif
+
+      print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
+      print*,ivar(if),nvar(if),var(ivar(if),if),writectl
+      do l=1,nl
+         irec(if)=irec(if)+1
+c        print*,'Ecrit rec=',irec(if),iii,iif,iji,ijf,
+c    s (l-1)*imd(if)*jmd(if)+(iji-1)*imd(if)+iii
+c    s ,(l-1)*imd(if)*jmd(if)+(ijf-1)*imd(if)+iif
+         write(unit(if)+1,rec=irec(if))
+     s   ((field((l-1)*imd(if)*jmd(if)+(j-1)*imd(if)+i)
+     s   ,i=iii,iif),j=iji,ijf)
+      enddo
+      if (writectl) then
+
+      file=fichier(if)
+c   WARNING! on reecrase le fichier .ctl a chaque ecriture
+      open(unit(if),file=trim(file)//'.ctl'
+     &         ,form='formatted',status='unknown')
+      write(unit(if),'(a5,1x,a40)')
+     &       'DSET ','^'//trim(file)//'.dat'
+
+      write(unit(if),'(a12)') 'UNDEF 1.0E30'
+      write(unit(if),'(a5,1x,a40)') 'TITLE ',title(if)
+      call formcoord(unit(if),im,xd(iii,if),1.,.false.,'XDEF')
+      call formcoord(unit(if),jm,yd(iji,if),1.,.true.,'YDEF')
+      call formcoord(unit(if),lm,zd(1,if),1.,.false.,'ZDEF')
+      write(unit(if),'(a4,i10,a30)')
+     &       'TDEF ',itime(if),' LINEAR 02JAN1987 1MO '
+      write(unit(if),'(a4,2x,i5)') 'VARS',nvar(if)
+      do iv=1,nvar(if)
+c        print*,'if,var(iv,if),nld(iv,if),nld(iv,if)-1/nld(iv,if)'
+c        print*,if,var(iv,if),nld(iv,if),nld(iv,if)-1/nld(iv,if)
+         write(unit(if),1000) var(iv,if),nld(iv,if)-1/nld(iv,if)
+     &     ,99,tvar(iv,if)
+      enddo
+      write(unit(if),'(a7)') 'ENDVARS'
+c
+1000  format(a5,3x,i4,i3,1x,a39)
+
+      close(unit(if))
+
+      endif ! writectl
+
+      return
+
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/write_field_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/write_field_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/write_field_loc.F90	(revision 3330)
@@ -0,0 +1,155 @@
+module write_field_loc
+implicit none
+  
+  interface WriteField_u
+    module procedure Write_field1d_u,Write_Field2d_u
+  end interface WriteField_u
+
+  interface WriteField_v
+    module procedure Write_field1d_v,Write_Field2d_v
+  end interface WriteField_v
+  
+  contains
+  
+  subroutine write_field1D_u(name,Field)
+    character(len=*)   :: name
+    real, dimension(:) :: Field
+
+    CALL write_field_u_gen(name,Field,1)
+
+  end subroutine write_field1D_u
+
+  subroutine write_field2D_u(name,Field)
+    implicit none
+      
+    character(len=*)   :: name
+    real, dimension(:,:) :: Field
+    integer :: ll
+    
+    ll=size(field,2)    
+    CALL write_field_u_gen(name,Field,ll)
+    
+    end subroutine write_field2D_u
+
+
+   SUBROUTINE write_field_u_gen(name,Field,ll)
+    USE parallel_lmdz
+    USE write_field
+    USE mod_hallo
+    implicit none
+    include 'dimensions.h'
+    include 'paramet.h'
+      
+    character(len=*)   :: name
+    real, dimension(ijb_u:ije_u,ll) :: Field
+    real, allocatable,SAVE :: New_Field(:,:,:)
+    integer,dimension(0:mpi_size-1) :: jj_nb_master
+    type(Request),SAVE :: Request_write
+!$OMP THREADPRIVATE(Request_write)
+    integer :: ll,i
+    
+    
+    jj_nb_master(:)=0
+    jj_nb_master(0)=jjp1
+!$OMP BARRIER
+!$OMP MASTER
+    allocate(New_Field(iip1,jjp1,ll))
+!$OMP END MASTER
+!$OMP BARRIER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO i=1,ll    
+      New_Field(:,jj_begin:jj_end,i)=reshape(Field(ij_begin:ij_end,i),(/iip1,jj_nb/))
+    ENDDO
+!$OMP BARRIER    
+    call Register_SwapField(new_field,new_field,ip1jmp1,ll,jj_Nb_master,Request_write)
+    call SendRequest(Request_write)
+!$OMP BARRIER
+    call WaitRequest(Request_write)     
+!$OMP BARRIER
+
+!$OMP MASTER
+    if (MPI_Rank==0) call WriteField(name,New_Field)
+    DEALLOCATE(New_Field)
+!$OMP END MASTER        
+!$OMP BARRIER
+    END SUBROUTINE write_field_u_gen
+
+
+  subroutine write_field1D_v(name,Field)
+    character(len=*)   :: name
+    real, dimension(:) :: Field
+
+    CALL write_field_v_gen(name,Field,1)
+
+  end subroutine write_field1D_v
+
+  subroutine write_field2D_v(name,Field)
+    implicit none
+      
+    character(len=*)   :: name
+    real, dimension(:,:) :: Field
+    integer :: ll
+    
+    ll=size(field,2)    
+    CALL write_field_v_gen(name,Field,ll)
+    
+    end subroutine write_field2D_v
+
+
+   SUBROUTINE write_field_v_gen(name,Field,ll)
+    USE parallel_lmdz
+    USE write_field
+    USE mod_hallo
+    implicit none
+    include 'dimensions.h'
+    include 'paramet.h'
+      
+    character(len=*)   :: name
+    real, dimension(ijb_v:ije_v,ll) :: Field
+    real, allocatable,SAVE :: New_Field(:,:,:)
+    integer,dimension(0:mpi_size-1) :: jj_nb_master
+    type(Request),SAVE :: Request_write
+!$OMP THREADPRIVATE(Request_write)    
+    integer :: ll,i,jje,ije,jjn
+    
+    
+    jj_nb_master(:)=0
+    jj_nb_master(0)=jjp1
+
+!$OMP BARRIER
+!$OMP MASTER
+    allocate(New_Field(iip1,jjm,ll))
+!$OMP END MASTER
+!$OMP BARRIER
+
+   IF (pole_sud) THEN
+     jje=jj_end-1
+     ije=ij_end-iip1
+     jjn=jj_nb-1
+   ELSE
+     jje=jj_end
+     ije=ij_end
+     jjn=jj_nb
+   ENDIF
+   
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO i=1,ll    
+      New_Field(:,jj_begin:jje,i)=reshape(Field(ij_begin:ije,i),(/iip1,jjn/))
+    ENDDO
+!$OMP BARRIER    
+    call Register_SwapField(new_field,new_field,ip1jm,ll,jj_Nb_master,Request_write)
+    call SendRequest(Request_write)
+!$OMP BARRIER
+    call WaitRequest(Request_write)     
+!$OMP BARRIER
+
+!$OMP MASTER
+    if (MPI_Rank==0) call WriteField(name,New_Field)
+    DEALLOCATE(New_Field)
+!$OMP END MASTER        
+!$OMP BARRIER
+    END SUBROUTINE write_field_v_gen
+    
+end module write_field_loc
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/write_field_p.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/write_field_p.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/write_field_p.F90	(revision 3330)
@@ -0,0 +1,73 @@
+module write_field_p
+implicit none
+  
+  interface WriteField_p
+    module procedure Write_field3d_p,Write_Field2d_p,Write_Field1d_p
+  end interface WriteField_p
+  
+  contains
+  
+  subroutine write_field1D_p(name,Field)
+    USE parallel_lmdz
+    USE write_field
+    implicit none
+  
+    integer, parameter :: MaxDim=1
+    character(len=*)   :: name
+    real, dimension(:) :: Field
+    real, dimension(:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    
+    
+    Dim=shape(Field)
+    allocate(New_Field(Dim(1)))
+    New_Field(:)=Field(:)
+    call Gather_Field(New_Field,dim(1),1,0)
+    
+    if (MPI_Rank==0) call WriteField(name,New_Field)
+    
+    end subroutine write_field1D_p
+
+  subroutine write_field2D_p(name,Field)
+    USE parallel_lmdz
+    USE write_field
+    implicit none
+  
+    integer, parameter :: MaxDim=2
+    character(len=*)   :: name
+    real, dimension(:,:) :: Field
+    real, dimension(:,:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    
+    Dim=shape(Field)
+    allocate(New_Field(Dim(1),Dim(2)))
+    New_Field(:,:)=Field(:,:)
+    call Gather_Field(New_Field(1,1),dim(1)*dim(2),1,0)
+    
+    if (MPI_Rank==0) call WriteField(name,New_Field)
+    
+     
+  end subroutine write_field2D_p
+  
+  subroutine write_field3D_p(name,Field)
+    USE parallel_lmdz
+    USE write_field
+    implicit none
+  
+    integer, parameter :: MaxDim=3
+    character(len=*)   :: name
+    real, dimension(:,:,:) :: Field
+    real, dimension(:,:,:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    
+    Dim=shape(Field)
+    allocate(New_Field(Dim(1),Dim(2),Dim(3)))
+    New_Field(:,:,:)=Field(:,:,:)
+    call Gather_Field(New_Field(1,1,1),dim(1)*dim(2),dim(3),0)
+    
+   if (MPI_Rank==0) call WriteField(name,New_Field)
+    
+  end subroutine write_field3D_p  
+
+end module write_field_p
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/writedynav_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/writedynav_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/writedynav_loc.F	(revision 3330)
@@ -0,0 +1,226 @@
+!
+! $Id: writedynav_p.F 1279 2009-12-10 09:02:56Z fairhead $
+!
+      subroutine writedynav_loc( time, vcov, ucov,teta,ppk,phi,q,
+     .                           masse,ps,phis)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+      USE ioipsl
+#endif
+      USE parallel_lmdz
+      USE misc_mod
+      USE infotrac, ONLY : nqtot, ttext
+      use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid
+      USE comconst_mod, ONLY: cpp
+      USE temps_mod, ONLY: itau_dyn
+      
+      implicit none
+
+C
+C   Ecriture du fichier histoire au format IOIPSL
+C
+C   Appels succesifs des routines: histwrite
+C
+C   Entree:
+C      histid: ID du fichier histoire
+C      time: temps de l'ecriture
+C      vcov: vents v covariants
+C      ucov: vents u covariants
+C      teta: temperature potentielle
+C      phi : geopotentiel instantane
+C      q   : traceurs
+C      masse: masse
+C      ps   :pression au sol
+C      phis : geopotentiel au sol
+C      
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C
+C   Arguments
+C
+
+      REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm) 
+      REAL teta(ijb_u:ije_u,llm),phi(ijb_u:ije_u,llm)
+      REAL ppk(ijb_u:ije_u,llm)                  
+      REAL ps(ijb_u:ije_u),masse(ijb_u:ije_u,llm)                   
+      REAL phis(ijb_u:ije_u)                  
+      REAL q(ijb_u:ije_u,llm,nqtot)
+      integer time
+
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      INTEGER,SAVE,ALLOCATABLE :: ndex2d(:),ndexu(:),ndexv(:)
+      INTEGER :: iq, ii, ll
+      REAL,SAVE,ALLOCATABLE :: tm(:,:)
+      REAL,SAVE,ALLOCATABLE :: vnat(:,:),unat(:,:) 
+      logical ok_sync
+      integer itau_w
+      integer :: ijb,ije,jjn
+      LOGICAL,SAVE :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+
+C
+C  Initialisations
+C
+      if (adjust) return
+      
+      IF (first) THEN
+!$OMP BARRIER
+!$OMP MASTER
+        ALLOCATE(unat(ijb_u:ije_u,llm))
+        ALLOCATE(vnat(ijb_v:ije_v,llm)) 
+        ALLOCATE(tm(ijb_u:ije_u,llm))
+        ALLOCATE(ndex2d(ijnb_u*llm))
+        ALLOCATE(ndexu(ijnb_u*llm))
+        ALLOCATE(ndexv(ijnb_v*llm))
+        ndex2d = 0
+        ndexu = 0
+        ndexv = 0
+!$OMP END MASTER
+!$OMP BARRIER
+        first=.FALSE.
+      ENDIF
+      
+      ok_sync = .TRUE.
+      itau_w = itau_dyn + time
+
+C Passage aux composantes naturelles du vent
+      call covnat_loc(llm, ucov, vcov, unat, vnat)
+
+C
+C  Appels a histwrite pour l'ecriture des variables a sauvegarder
+C
+C  Vents U
+C
+
+!$OMP BARRIER      
+!$OMP MASTER
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+      
+      call histwrite(histuaveid, 'u', itau_w, unat(ijb:ije,:), 
+     .               iip1*jjn*llm, ndexu)
+!$OMP END MASTER      
+
+C
+C  Vents V
+C
+      ije=ij_end
+      if (pole_sud) jjn=jj_nb-1
+      if (pole_sud) ije=ij_end-iip1
+!$OMP BARRIER
+!$OMP MASTER      
+      call histwrite(histvaveid, 'v', itau_w, vnat(ijb:ije,:), 
+     .               iip1*jjn*llm, ndexv)
+!$OMP END MASTER      
+
+
+C
+C  Temperature potentielle moyennee
+C
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+!$OMP MASTER      
+      call histwrite(histaveid, 'theta', itau_w, teta(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER      
+
+C
+C  Temperature moyennee
+C
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      do ll=1,llm
+        do ii = ijb, ije
+          tm(ii,ll) = teta(ii,ll) * ppk(ii,ll)/cpp
+        enddo
+      enddo
+!$OMP ENDDO
+
+!$OMP MASTER      
+      call histwrite(histaveid, 'temp', itau_w, tm(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER
+
+
+C
+C  Geopotentiel
+C
+!$OMP MASTER      
+      call histwrite(histaveid, 'phi', itau_w, phi(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER
+
+
+C
+C  Traceurs
+C
+!!$OMP MASTER      
+!        DO iq=1,nqtot
+!          call histwrite(histaveid, ttext(iq), itau_w, q(ijb:ije,:,iq), 
+!     .                   iip1*jjn*llm, ndexu)
+!        enddo
+!!$OMP END MASTER
+
+
+C
+C  Masse
+C
+!$OMP MASTER      
+       call histwrite(histaveid, 'masse', itau_w, masse(ijb:ije,:),
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER
+
+
+C
+C  Pression au sol
+C
+!$OMP MASTER      
+
+       call histwrite(histaveid, 'ps', itau_w, ps(ijb:ije), 
+     .                 iip1*jjn, ndex2d)
+!$OMP END MASTER
+
+C
+C  Geopotentiel au sol
+C
+!$OMP MASTER      
+!       call histwrite(histaveid, 'phis', itau_w, phis(ijb:ije),
+!     .                 iip1*jjn, ndex2d)
+!$OMP END MASTER
+
+C
+C  Fin
+C
+!$OMP MASTER      
+      if (ok_sync) then
+          call histsync(histaveid)
+          call histsync(histvaveid)
+          call histsync(histuaveid)
+      ENDIF
+!$OMP END MASTER
+#else
+      write(lunout,*)'writedynav_loc: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/writehist_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/writehist_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dmem/writehist_loc.F	(revision 3330)
@@ -0,0 +1,225 @@
+!
+! $Id: writedynav_p.F 1279 2009-12-10 09:02:56Z fairhead $
+!
+      subroutine writehist_loc( time, vcov, ucov,teta,ppk,phi,q,
+     .                          masse,ps,phis)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+      USE ioipsl
+#endif
+      USE parallel_lmdz
+      USE misc_mod
+      USE infotrac, ONLY : nqtot, ttext
+      use com_io_dyn_mod, only : histid,histvid,histuid
+      USE comconst_mod, ONLY: cpp
+      USE temps_mod, ONLY: itau_dyn
+      
+      implicit none
+
+C
+C   Ecriture du fichier histoire au format IOIPSL
+C
+C   Appels succesifs des routines: histwrite
+C
+C   Entree:
+C      histid: ID du fichier histoire
+C      time: temps de l'ecriture
+C      vcov: vents v covariants
+C      ucov: vents u covariants
+C      teta: temperature potentielle
+C      phi : geopotentiel instantane
+C      q   : traceurs
+C      masse: masse
+C      ps   :pression au sol
+C      phis : geopotentiel au sol
+C      
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "ener.h"
+      include "description.h"
+      include "iniprint.h"
+
+C
+C   Arguments
+C
+
+      REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm) 
+      REAL teta(ijb_u:ije_u,llm),phi(ijb_u:ije_u,llm)
+      REAL ppk(ijb_u:ije_u,llm)                  
+      REAL ps(ijb_u:ije_u),masse(ijb_u:ije_u,llm)                   
+      REAL phis(ijb_u:ije_u)                  
+      REAL q(ijb_u:ije_u,llm,nqtot)
+      integer time
+
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      INTEGER,SAVE,ALLOCATABLE :: ndex2d(:),ndexu(:),ndexv(:)
+      INTEGER :: iq, ii, ll
+      REAL,SAVE,ALLOCATABLE :: tm(:,:)
+      REAL,SAVE,ALLOCATABLE :: vnat(:,:),unat(:,:) 
+      logical ok_sync
+      integer itau_w
+      integer :: ijb,ije,jjn
+      LOGICAL,SAVE :: first=.TRUE.
+!$OMP THREADPRIVATE(first)
+
+C
+C  Initialisations
+C
+      if (adjust) return
+      
+      IF (first) THEN
+!$OMP BARRIER
+!$OMP MASTER
+        ALLOCATE(unat(ijb_u:ije_u,llm))
+        ALLOCATE(vnat(ijb_v:ije_v,llm)) 
+        ALLOCATE(tm(ijb_u:ije_u,llm))
+        ALLOCATE(ndex2d(ijnb_u*llm))
+        ALLOCATE(ndexu(ijnb_u*llm))
+        ALLOCATE(ndexv(ijnb_v*llm))
+        ndex2d = 0
+        ndexu = 0
+        ndexv = 0
+!$OMP END MASTER
+!$OMP BARRIER
+        first=.FALSE.
+      ENDIF
+      
+      ok_sync = .TRUE.
+      itau_w = itau_dyn + time
+
+C Passage aux composantes naturelles du vent
+      call covnat_loc(llm, ucov, vcov, unat, vnat)
+
+C
+C  Appels a histwrite pour l'ecriture des variables a sauvegarder
+C
+C  Vents U
+C
+
+!$OMP BARRIER      
+!$OMP MASTER
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+      
+      call histwrite(histuid, 'u', itau_w, unat(ijb:ije,:), 
+     .               iip1*jjn*llm, ndexu)
+!$OMP END MASTER      
+
+C
+C  Vents V
+C
+      ije=ij_end
+      if (pole_sud) jjn=jj_nb-1
+      if (pole_sud) ije=ij_end-iip1
+!$OMP BARRIER
+!$OMP MASTER      
+      call histwrite(histvid, 'v', itau_w, vnat(ijb:ije,:), 
+     .               iip1*jjn*llm, ndexv)
+!$OMP END MASTER      
+
+
+C
+C  Temperature potentielle
+C
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+!$OMP MASTER      
+      call histwrite(histid, 'theta', itau_w, teta(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER      
+
+C
+C  Temperature
+C
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      do ll=1,llm
+        do ii = ijb, ije
+          tm(ii,ll) = teta(ii,ll) * ppk(ii,ll)/cpp
+        enddo
+      enddo
+!$OMP ENDDO
+
+!$OMP MASTER      
+      call histwrite(histid, 'temp', itau_w, tm(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER
+
+
+C
+C  Geopotentiel
+C
+!$OMP MASTER      
+      call histwrite(histid, 'phi', itau_w, phi(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER
+
+
+C
+C  Traceurs
+C
+!!$OMP MASTER      
+!        DO iq=1,nqtot
+!          call histwrite(histid, ttext(iq), itau_w, q(ijb:ije,:,iq), 
+!     .                   iip1*jjn*llm, ndexu)
+!        enddo
+!!$OMP END MASTER
+
+
+C
+C  Masse
+C
+!$OMP MASTER      
+       call histwrite(histid, 'masse', itau_w, masse(ijb:ije,:),
+     .                iip1*jjn*llm, ndexu)
+!$OMP END MASTER
+
+
+C
+C  Pression au sol
+C
+!$OMP MASTER      
+       call histwrite(histid, 'ps', itau_w, ps(ijb:ije), 
+     .                 iip1*jjn, ndex2d)
+!$OMP END MASTER
+
+C
+C  Geopotentiel au sol
+C
+!$OMP MASTER      
+!       call histwrite(histid, 'phis', itau_w, phis(ijb:ije),
+!     .                 iip1*jjn, ndex2d)
+!$OMP END MASTER
+
+C
+C  Fin
+C
+!$OMP MASTER      
+      if (ok_sync) then
+        call histsync(histid)
+        call histsync(histvid)
+        call histsync(histuid)
+      endif
+!$OMP END MASTER
+#else
+      write(lunout,*)'writehist_loc: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/abort_gcm.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/abort_gcm.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/abort_gcm.F	(revision 3330)
@@ -0,0 +1,64 @@
+!
+! $Id$
+!
+c
+c
+      SUBROUTINE abort_gcm(modname, message, ierr)
+     
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin_dump
+      USE ioipsl_getincom
+#endif
+      USE parallel_lmdz
+
+
+
+
+#include "iniprint.h"
+ 
+C
+C Stops the simulation cleanly, closing files and printing various
+C comments
+C
+C  Input: modname = name of calling program
+C         message = stuff to print
+C         ierr    = severity of situation ( = 0 normal )
+
+      character(len=*), intent(in):: modname
+      integer ierr, ierror_mpi
+      character(len=*), intent(in):: message
+
+      write(lunout,*) 'in abort_gcm'
+#ifdef CPP_IOIPSL
+c$OMP MASTER
+      call histclo
+      call restclo
+      if (MPI_rank .eq. 0) then
+         call getin_dump
+      endif
+c$OMP END MASTER
+#endif
+
+
+
+c     call histclo(2)
+c     call histclo(3)
+c     call histclo(4)
+c     call histclo(5)
+      write(lunout,*) 'Stopping in ', modname
+      write(lunout,*) 'Reason = ',message
+      if (ierr .eq. 0) then
+        write(lunout,*) 'Everything is cool'
+      else
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+#ifdef CPP_MPI
+C$OMP CRITICAL (MPI_ABORT_GCM)
+        call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
+C$OMP END CRITICAL (MPI_ABORT_GCM)
+#else
+        stop 1
+#endif          
+      endif
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/addfi_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/addfi_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/addfi_p.F	(revision 3330)
@@ -0,0 +1,263 @@
+!
+! $Id$
+!
+      SUBROUTINE addfi_p(pdt, leapf, forward,
+     S          pucov, pvcov, pteta, pq   , pps ,
+     S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot
+      USE control_mod, ONLY : planet_type
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c    Addition of the physical tendencies
+c
+c    Interface :
+c    -----------
+c
+c      Input :
+c      -------
+c      pdt                    time step of integration
+c      leapf                  logical
+c      forward                logical
+c      pucov(ip1jmp1,llm)     first component of the covariant velocity
+c      pvcov(ip1ip1jm,llm)    second component of the covariant velocity
+c      pteta(ip1jmp1,llm)     potential temperature
+c      pts(ip1jmp1,llm)       surface temperature
+c      pdufi(ip1jmp1,llm)     |
+c      pdvfi(ip1jm,llm)       |   respective
+c      pdhfi(ip1jmp1)         |      tendencies
+c      pdtsfi(ip1jmp1)        |
+c
+c      Output :
+c      --------
+c      pucov
+c      pvcov
+c      ph
+c      pts
+c
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c
+c    0.  Declarations :
+c    ------------------
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    Arguments :
+c    -----------
+c
+      REAL,INTENT(IN) :: pdt ! time step for the integration (s)
+c
+      REAL,INTENT(INOUT) :: pvcov(ip1jm,llm) ! covariant meridional wind
+      REAL,INTENT(INOUT) :: pucov(ip1jmp1,llm) ! covariant zonal wind
+      REAL,INTENT(INOUT) :: pteta(ip1jmp1,llm) ! potential temperature
+      REAL,INTENT(INOUT) :: pq(ip1jmp1,llm,nqtot) ! tracers
+      REAL,INTENT(INOUT) :: pps(ip1jmp1) ! surface pressure (Pa)
+c respective tendencies (.../s) to add
+      REAL,INTENT(IN) :: pdvfi(ip1jm,llm)
+      REAL,INTENT(IN) :: pdufi(ip1jmp1,llm)
+      REAL,INTENT(IN) :: pdqfi(ip1jmp1,llm,nqtot)
+      REAL,INTENT(IN) :: pdhfi(ip1jmp1,llm)
+      REAL,INTENT(IN) :: pdpfi(ip1jmp1)
+c
+      LOGICAL,INTENT(IN) :: leapf,forward ! not used
+c
+c
+c    Local variables :
+c    -----------------
+c
+      REAL xpn(iim),xps(iim),tpn,tps
+      INTEGER j,k,iq,ij
+      REAL,PARAMETER :: qtestw = 1.0e-15
+      REAL,PARAMETER :: qtestt = 1.0e-40
+
+      REAL SSUM
+      EXTERNAL SSUM
+      
+      INTEGER :: ijb,ije
+c
+c-----------------------------------------------------------------------
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO k = 1,llm
+         DO j = ijb,ije
+            pteta(j,k)= pteta(j,k) + pdhfi(j,k) * pdt
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      if (pole_nord) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO  k    = 1, llm
+         DO  ij   = 1, iim
+           xpn(ij) = aire(   ij   ) * pteta(  ij    ,k)
+         ENDDO
+         tpn      = SSUM(iim,xpn,1)/ apoln
+
+         DO ij   = 1, iip1
+           pteta(   ij   ,k)  = tpn
+         ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+      endif
+
+      if (pole_sud) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO  k    = 1, llm
+         DO  ij   = 1, iim
+           xps(ij) = aire(ij+ip1jm) * pteta(ij+ip1jm,k)
+         ENDDO
+         tps      = SSUM(iim,xps,1)/ apols
+
+         DO ij   = 1, iip1
+           pteta(ij+ip1jm,k)  = tps
+         ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+      endif
+c
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO k = 1,llm
+         DO j = ijb,ije
+            pucov(j,k)= pucov(j,k) + pdufi(j,k) * pdt
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      if (pole_nord) ijb=ij_begin
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO k = 1,llm
+         DO j = ijb,ije
+            pvcov(j,k)= pvcov(j,k) + pdvfi(j,k) * pdt
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+      if (pole_sud)  ije=ij_end
+c$OMP MASTER
+      DO j = ijb,ije
+         pps(j) = pps(j) + pdpfi(j) * pdt
+      ENDDO
+c$OMP END MASTER
+ 
+      if (planet_type=="earth") then
+      ! earth case, special treatment for first 2 tracers (water)
+       DO iq = 1, 2
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO k = 1,llm
+            DO j = ijb,ije
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestw )
+            ENDDO
+         ENDDO
+c$OMP END DO NOWAIT
+       ENDDO
+
+       DO iq = 3, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO k = 1,llm
+            DO j = ijb,ije
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
+            ENDDO
+         ENDDO
+c$OMP END DO NOWAIT
+       ENDDO
+      else
+      ! general case, treat all tracers equally)
+       DO iq = 1, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO k = 1,llm
+            DO j = ijb,ije
+               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
+               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
+            ENDDO
+         ENDDO
+c$OMP END DO NOWAIT
+       ENDDO
+      endif ! of if (planet_type=="earth")
+
+c$OMP MASTER
+      if (pole_nord) then
+      
+        DO  ij   = 1, iim
+          xpn(ij) = aire(   ij   ) * pps(  ij     )
+        ENDDO
+
+        tpn      = SSUM(iim,xpn,1)/apoln
+
+        DO ij   = 1, iip1
+          pps (   ij     )  = tpn
+        ENDDO
+      
+      endif
+
+      if (pole_sud) then
+      
+        DO  ij   = 1, iim
+          xps(ij) = aire(ij+ip1jm) * pps(ij+ip1jm )
+        ENDDO
+
+        tps      = SSUM(iim,xps,1)/apols
+
+        DO ij   = 1, iip1
+          pps ( ij+ip1jm )  = tps
+        ENDDO
+      
+      endif
+c$OMP END MASTER
+
+      if (pole_nord) then
+        DO iq = 1, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO  k    = 1, llm
+            DO  ij   = 1, iim
+              xpn(ij) = aire(   ij   ) * pq(  ij    ,k,iq)
+            ENDDO
+            tpn      = SSUM(iim,xpn,1)/apoln
+  
+            DO ij   = 1, iip1
+              pq (   ij   ,k,iq)  = tpn
+            ENDDO
+          ENDDO
+c$OMP END DO NOWAIT	  
+        ENDDO
+      endif
+      
+      if (pole_sud) then
+        DO iq = 1, nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO  k    = 1, llm
+            DO  ij   = 1, iim
+              xps(ij) = aire(ij+ip1jm) * pq(ij+ip1jm,k,iq)
+            ENDDO
+            tps      = SSUM(iim,xps,1)/apols
+  
+            DO ij   = 1, iip1
+              pq (ij+ip1jm,k,iq)  = tps
+            ENDDO
+          ENDDO
+c$OMP END DO NOWAIT	  
+        ENDDO
+      endif
+      
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advect_new_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advect_new_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advect_new_p.F	(revision 3330)
@@ -0,0 +1,284 @@
+!
+! $Header$
+!
+      SUBROUTINE advect_new_p(ucov,vcov,teta,w,massebx,masseby,
+     &                        du,dv,dteta)
+      USE parallel_lmdz
+      USE write_field_p
+      USE comconst_mod, ONLY: daysec
+      USE logic_mod, ONLY: conser
+      
+      IMPLICIT NONE
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , Fr. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *************************************************************
+c   .... calcul des termes d'advection vertic.pour u,v,teta,q ...
+c   *************************************************************
+c        ces termes sont ajoutes a du,dv,dteta et dq .
+c  Modif F.Forget 03/94 : on retire q de advect
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+
+c   Arguments:
+c   ----------
+
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
+      REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),w(ip1jmp1,llm)
+      REAL dv(ip1jm,llm),du(ip1jmp1,llm),dteta(ip1jmp1,llm)
+      REAL,SAVE :: dv1(ip1jm,llm),du1(ip1jmp1,llm),dteta1(ip1jmp1,llm)
+      REAL,SAVE :: dv2(ip1jm,llm),du2(ip1jmp1,llm),dteta2(ip1jmp1,llm)
+c   Local:
+c   ------
+
+      REAL,SAVE :: uav(ip1jmp1,llm),vav(ip1jm,llm)
+      REAL wsur2(ip1jmp1)
+      REAL unsaire2(ip1jmp1), ge(ip1jmp1)
+      REAL deuxjour, ww, gt, uu, vv
+
+      INTEGER  ij,l,ijb,ije
+
+      EXTERNAL  SSUM
+      REAL      SSUM
+
+c-----------------------------------------------------------------------
+c   2. Calculs preliminaires:
+c   -------------------------
+
+      IF (conser)  THEN
+         deuxjour = 2. * daysec
+
+         DO   1  ij   = 1, ip1jmp1
+         unsaire2(ij) = unsaire(ij) * unsaire(ij)
+   1     CONTINUE
+      END IF
+
+
+c------------------  -yy ----------------------------------------------
+c   .  Calcul de     u
+
+c$OMP MASTER
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+      DO ij=ijb,ije
+        du2(ij,1)=0.
+      ENDDO
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+        dv2(ij,1)=0.
+      ENDDO
+      
+      ijb=ij_begin
+      ije=ij_end
+
+      DO ij=ijb,ije
+        dteta2(ij,1)=0.
+      ENDDO
+c$OMP END MASTER
+
+ 
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+      DO  l=1,llm
+         
+         ijb=ij_begin
+         ije=ij_end
+         if (pole_nord) ijb=ijb+iip1
+         if (pole_sud)  ije=ije-iip1
+         
+c         DO    ij     = iip2, ip1jmp1
+c            uav(ij,l) = 0.25 * ( ucov(ij,l) + ucov(ij-iip1,l) )
+c         ENDDO
+
+c         DO    ij     = iip2, ip1jm
+c            uav(ij,l) = uav(ij,l) + uav(ij+iip1,l)
+c         ENDDO
+         
+         DO    ij     = ijb, ije
+                  
+           uav(ij,l)=0.25*(ucov(ij,l)+ucov(ij-iip1,l))
+     .                     +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
+         ENDDO
+         
+         if (pole_nord) then
+           DO      ij         = 1, iip1
+              uav(ij      ,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_sud) then
+           DO      ij         = 1, iip1
+              uav(ip1jm+ij,l) = 0.
+           ENDDO
+         endif
+         
+      ENDDO
+c$OMP END DO      
+c      call write_field3d_p('uav',reshape(uav,(/iip1,jjp1,llm/)))
+      
+c------------------  -xx ----------------------------------------------
+c   .  Calcul de     v
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO  l=1,llm
+         
+         DO    ij   = ijb+1, ije
+           vav(ij,l) = 0.25 * ( vcov(ij,l) + vcov(ij-1,l) )
+         ENDDO
+         
+         DO    ij   = ijb,ije,iip1
+          vav(ij,l) = vav(ij+iim,l)
+         ENDDO
+         
+         
+         DO    ij   = ijb, ije-1
+          vav(ij,l) = vav(ij,l) + vav(ij+1,l)
+         ENDDO
+         
+         DO    ij       = ijb, ije, iip1
+          vav(ij+iim,l) = vav(ij,l)
+         ENDDO
+         
+      ENDDO
+c$OMP END DO
+c       call write_field3d_p('vav',reshape(vav,(/iip1,jjm,llm/)))
+
+c-----------------------------------------------------------------------
+c$OMP BARRIER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 20 l = 1, llmm1
+
+
+c       ......   calcul de  - w/2.    au niveau  l+1   .......
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if (pole_sud)  ije=ij_end
+      
+      DO 5   ij   = ijb, ije
+      wsur2( ij ) = - 0.5 * w( ij,l+1 )
+   5  CONTINUE
+
+
+c     .....................     calcul pour  du     ..................
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+         
+      DO 6 ij = ijb ,ije-1
+      ww        = wsur2 (  ij  )     + wsur2( ij+1 ) 
+      uu        = 0.5 * ( ucov(ij,l) + ucov(ij,l+1) )
+      du1(ij,l)  =  ww * ( uu - uav(ij, l ) )/massebx(ij, l )
+      du2(ij,l+1)=  ww * ( uu - uav(ij,l+1) )/massebx(ij,l+1)
+   6  CONTINUE
+
+c     .................    calcul pour   dv      .....................
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 8 ij = ijb, ije
+      ww        = wsur2( ij+iip1 )   + wsur2( ij )
+      vv        = 0.5 * ( vcov(ij,l) + vcov(ij,l+1) )
+      dv1(ij,l)  =  ww * (vv - vav(ij, l ) )/masseby(ij, l )
+      dv2(ij,l+1)=  ww * (vv - vav(ij,l+1) )/masseby(ij,l+1)
+   8  CONTINUE
+
+c
+
+c     ............................................................
+c     ...............    calcul pour   dh      ...................
+c     ............................................................
+
+c                       ---z
+c       calcul de  - d( teta  * w )      qu'on ajoute a   dh
+c                   ...............
+        ijb=ij_begin
+        ije=ij_end
+        
+        DO 15 ij = ijb, ije
+         ww            = wsur2(ij) * (teta(ij,l) + teta(ij,l+1) )
+         dteta1(ij, l ) =   ww
+         dteta2(ij,l+1) =   ww
+  15    CONTINUE
+
+c ym ---> conser a voir plus tard
+
+c      IF( conser)  THEN
+c        
+c        DO 17 ij = 1,ip1jmp1
+c        ge(ij)   = wsur2(ij) * wsur2(ij) * unsaire2(ij)
+c  17    CONTINUE
+c        gt       = SSUM( ip1jmp1,ge,1 )
+c        gtot(l)  = deuxjour * SQRT( gt/ip1jmp1 )
+c      END IF
+
+  20  CONTINUE
+c$OMP END DO
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+        DO ij=ijb,ije-1
+          du(ij,l)=du(ij,l)+du2(ij,l)-du1(ij,l)
+        ENDDO
+
+        DO   ij   = ijb+iip1-1, ije, iip1
+         du( ij, l  ) = du( ij -iim, l  )
+        ENDDO 
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+        DO ij=ijb,ije
+          dv(ij,l)=dv(ij,l)+dv2(ij,l)-dv1(ij,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT      
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO l=1,llm
+        DO ij=ijb,ije
+          dteta(ij,l)=dteta(ij,l)+dteta2(ij,l)-dteta1(ij,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT      
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advect_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advect_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advect_p.F	(revision 3330)
@@ -0,0 +1,219 @@
+!
+! $Header$
+!
+      SUBROUTINE advect_p(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
+      USE parallel_lmdz
+      USE write_field_p
+      USE comconst_mod, ONLY: daysec
+      USE logic_mod, ONLY: conser
+      
+      IMPLICIT NONE
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , Fr. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *************************************************************
+c   .... calcul des termes d'advection vertic.pour u,v,teta,q ...
+c   *************************************************************
+c        ces termes sont ajoutes a du,dv,dteta et dq .
+c  Modif F.Forget 03/94 : on retire q de advect
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+
+c   Arguments:
+c   ----------
+
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
+      REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm),w(ip1jmp1,llm)
+      REAL dv(ip1jm,llm),du(ip1jmp1,llm),dteta(ip1jmp1,llm)
+
+c   Local:
+c   ------
+
+      REAL uav(ip1jmp1,llm),vav(ip1jm,llm),wsur2(ip1jmp1)
+      REAL unsaire2(ip1jmp1), ge(ip1jmp1)
+      REAL deuxjour, ww, gt, uu, vv
+
+      INTEGER  ij,l,ijb,ije
+
+      EXTERNAL  SSUM
+      REAL      SSUM
+
+c-----------------------------------------------------------------------
+c   2. Calculs preliminaires:
+c   -------------------------
+
+      IF (conser)  THEN
+         deuxjour = 2. * daysec
+
+         DO   1  ij   = 1, ip1jmp1
+         unsaire2(ij) = unsaire(ij) * unsaire(ij)
+   1     CONTINUE
+      END IF
+
+
+c------------------  -yy ----------------------------------------------
+c   .  Calcul de     u
+
+      DO  l=1,llm
+         
+         ijb=ij_begin
+         ije=ij_end
+         if (pole_nord) ijb=ijb+iip1
+         if (pole_sud)  ije=ije-iip1
+         
+c         DO    ij     = iip2, ip1jmp1
+c            uav(ij,l) = 0.25 * ( ucov(ij,l) + ucov(ij-iip1,l) )
+c         ENDDO
+
+c         DO    ij     = iip2, ip1jm
+c            uav(ij,l) = uav(ij,l) + uav(ij+iip1,l)
+c         ENDDO
+         
+         DO    ij     = ijb, ije
+                  
+           uav(ij,l)=0.25*(ucov(ij,l)+ucov(ij-iip1,l))
+     .                     +0.25*(ucov(ij+iip1,l)+ucov(ij,l))
+         ENDDO
+         
+         if (pole_nord) then
+           DO      ij         = 1, iip1
+              uav(ij      ,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_sud) then
+           DO      ij         = 1, iip1
+              uav(ip1jm+ij,l) = 0.
+           ENDDO
+         endif
+         
+      ENDDO
+      
+c      call write_field3d_p('uav',reshape(uav,(/iip1,jjp1,llm/)))
+      
+c------------------  -xx ----------------------------------------------
+c   .  Calcul de     v
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO  l=1,llm
+         
+         DO    ij   = ijb+1, ije
+           vav(ij,l) = 0.25 * ( vcov(ij,l) + vcov(ij-1,l) )
+         ENDDO
+         
+         DO    ij   = ijb,ije,iip1
+          vav(ij,l) = vav(ij+iim,l)
+         ENDDO
+         
+         
+         DO    ij   = ijb, ije-1
+          vav(ij,l) = vav(ij,l) + vav(ij+1,l)
+         ENDDO
+         
+         DO    ij       = ijb, ije, iip1
+          vav(ij+iim,l) = vav(ij,l)
+         ENDDO
+         
+      ENDDO
+c       call write_field3d_p('vav',reshape(vav,(/iip1,jjm,llm/)))
+c-----------------------------------------------------------------------
+
+
+      
+      DO 20 l = 1, llmm1
+
+
+c       ......   calcul de  - w/2.    au niveau  l+1   .......
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if (pole_sud)  ije=ij_end
+      
+      DO 5   ij   = ijb, ije
+      wsur2( ij ) = - 0.5 * w( ij,l+1 )
+   5  CONTINUE
+
+
+c     .....................     calcul pour  du     ..................
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+         
+      DO 6 ij = ijb ,ije-1
+      ww        = wsur2 (  ij  )     + wsur2( ij+1 ) 
+      uu        = 0.5 * ( ucov(ij,l) + ucov(ij,l+1) )
+      du(ij,l)  = du(ij,l)   - ww * ( uu - uav(ij, l ) )/massebx(ij, l )
+      du(ij,l+1)= du(ij,l+1) + ww * ( uu - uav(ij,l+1) )/massebx(ij,l+1)
+   6  CONTINUE
+
+c     .....  correction pour  du(iip1,j,l)  ........
+c     .....     du(iip1,j,l)= du(1,j,l)   .....
+
+CDIR$ IVDEP
+      DO   7  ij   = ijb+iip1-1, ije, iip1
+      du( ij, l  ) = du( ij -iim, l  )
+      du( ij,l+1 ) = du( ij -iim,l+1 )
+   7  CONTINUE
+
+c     .................    calcul pour   dv      .....................
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 8 ij = ijb, ije
+      ww        = wsur2( ij+iip1 )   + wsur2( ij )
+      vv        = 0.5 * ( vcov(ij,l) + vcov(ij,l+1) )
+      dv(ij,l)  = dv(ij, l ) - ww * (vv - vav(ij, l ) )/masseby(ij, l )
+      dv(ij,l+1)= dv(ij,l+1) + ww * (vv - vav(ij,l+1) )/masseby(ij,l+1)
+   8  CONTINUE
+
+c
+
+c     ............................................................
+c     ...............    calcul pour   dh      ...................
+c     ............................................................
+
+c                       ---z
+c       calcul de  - d( teta  * w )      qu'on ajoute a   dh
+c                   ...............
+        ijb=ij_begin
+        ije=ij_end
+        
+        DO 15 ij = ijb, ije
+         ww            = wsur2(ij) * (teta(ij,l) + teta(ij,l+1) )
+         dteta(ij, l ) = dteta(ij, l )  -  ww
+         dteta(ij,l+1) = dteta(ij,l+1)  +  ww
+  15    CONTINUE
+
+c ym ---> conser a voir plus tard
+
+c      IF( conser)  THEN
+c        
+c        DO 17 ij = 1,ip1jmp1
+c        ge(ij)   = wsur2(ij) * wsur2(ij) * unsaire2(ij)
+c  17    CONTINUE
+c        gt       = SSUM( ip1jmp1,ge,1 )
+c        gtot(l)  = deuxjour * SQRT( gt/ip1jmp1 )
+c      END IF
+
+  20  CONTINUE
+ 
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advtrac_p.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advtrac_p.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/advtrac_p.F90	(revision 3330)
@@ -0,0 +1,497 @@
+! $Id$
+
+SUBROUTINE advtrac_p(pbaru,pbarv , p,  masse,q,iapptrac,teta, flxw, pk)
+
+  !     Auteur :  F. Hourdin
+  !
+  !     Modif. P. Le Van     (20/12/97)
+  !            F. Codron     (10/99)
+  !            D. Le Croller (07/2001)
+  !            M.A Filiberti (04/2002)
+  !
+  USE parallel_lmdz, ONLY: ij_begin,ij_end,OMP_CHUNK,pole_nord,pole_sud,&
+                           setdistrib
+  USE Write_Field_p, ONLY: WriteField_p
+  USE Bands, ONLY: jj_Nb_Caldyn,jj_Nb_vanleer
+  USE mod_hallo
+  USE Vampir
+  USE times
+  USE infotrac, ONLY: nqtot, iadv
+  USE control_mod, ONLY: iapp_tracvl, day_step, planet_type
+  USE comconst_mod, ONLY: dtvr
+  IMPLICIT NONE
+  !
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissip.h"
+  include "comgeom2.h"
+  include "ener.h"
+  include "description.h"
+
+  !-------------------------------------------------------------------
+  !     Arguments
+  !-------------------------------------------------------------------
+  INTEGER,INTENT(OUT) :: iapptrac
+  REAL,INTENT(IN) :: pbaru(ip1jmp1,llm)
+  REAL,INTENT(IN) :: pbarv(ip1jm,llm)
+  REAL,INTENT(INOUT) :: q(ip1jmp1,llm,nqtot)
+  REAL,INTENT(IN) :: masse(ip1jmp1,llm)
+  REAL,INTENT(IN) :: p( ip1jmp1,llmp1 )
+  REAL,INTENT(IN) :: teta(ip1jmp1,llm)
+  REAL,INTENT(IN) :: pk(ip1jmp1,llm)
+  REAL,INTENT(OUT) :: flxw(ip1jmp1,llm)
+  !-------------------------------------------------------------------
+  !     Ajout PPM
+  !--------------------------------------------------------
+  REAL massebx(ip1jmp1,llm),masseby(ip1jm,llm)
+  !-------------------------------------------------------------
+  !     Variables locales
+  !-------------------------------------------------------------
+
+  REAL pbaruc(ip1jmp1,llm),pbarvc(ip1jm,llm)
+  REAL massem(ip1jmp1,llm),zdp(ip1jmp1)
+  REAL,SAVE::pbarug(ip1jmp1,llm),pbarvg(ip1jm,llm),wg(ip1jmp1,llm) 
+  REAL (kind=kind(1.d0)) :: t_initial, t_final, tps_cpu
+  INTEGER iadvtr
+  INTEGER ij,l,iq,iiq
+  REAL zdpmin, zdpmax
+  SAVE iadvtr, massem, pbaruc, pbarvc
+  DATA iadvtr/0/
+  !$OMP THREADPRIVATE(iadvtr)
+  !----------------------------------------------------------
+  !     Rajouts pour PPM
+  !----------------------------------------------------------
+  INTEGER indice,n
+  REAL dtbon ! Pas de temps adaptatif pour que CFL<1
+  REAL CFLmaxz,aaa,bbb ! CFL maximum
+  REAL psppm(iim,jjp1) ! pression  au sol
+  REAL unatppm(iim,jjp1,llm),vnatppm(iim,jjp1,llm)
+  REAL qppm(iim*jjp1,llm,nqtot)
+  REAL fluxwppm(iim,jjp1,llm)
+  REAL apppm(llmp1), bpppm(llmp1)
+  LOGICAL dum,fill
+  DATA fill/.true./
+  DATA dum/.true./
+  REAL,SAVE :: finmasse(ip1jmp1,llm)
+  integer ijb,ije,ijb_u,ijb_v,ije_u,ije_v,j
+  type(Request) :: Request_vanleer
+  REAL,SAVE :: p_tmp( ip1jmp1,llmp1 )
+  REAL,SAVE :: teta_tmp(ip1jmp1,llm)
+  REAL,SAVE :: pk_tmp(ip1jmp1,llm)
+
+  ijb_u=ij_begin
+  ije_u=ij_end
+
+  ijb_v=ij_begin-iip1
+  ije_v=ij_end
+  if (pole_nord) ijb_v=ij_begin
+  if (pole_sud)  ije_v=ij_end-iip1
+
+  IF(iadvtr.EQ.0) THEN
+     !         CALL initial0(ijp1llm,pbaruc)
+     !         CALL initial0(ijmllm,pbarvc)
+     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+     DO l=1,llm   
+        pbaruc(ijb_u:ije_u,l)=0.
+        pbarvc(ijb_v:ije_v,l)=0.
+     ENDDO
+     !$OMP END DO NOWAIT  
+  ENDIF
+
+  !   accumulation des flux de masse horizontaux
+  !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+  DO l=1,llm
+     DO ij = ijb_u,ije_u
+        pbaruc(ij,l) = pbaruc(ij,l) + pbaru(ij,l)
+     ENDDO
+     DO ij = ijb_v,ije_v
+        pbarvc(ij,l) = pbarvc(ij,l) + pbarv(ij,l)
+     ENDDO
+  ENDDO
+  !$OMP END DO NOWAIT
+
+  !   selection de la masse instantannee des mailles avant le transport.
+  IF(iadvtr.EQ.0) THEN
+
+     !         CALL SCOPY(ip1jmp1*llm,masse,1,massem,1)
+     ijb=ij_begin
+     ije=ij_end
+
+     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+     DO l=1,llm
+        massem(ijb:ije,l)=masse(ijb:ije,l)
+     ENDDO
+     !$OMP END DO NOWAIT
+
+     !cc         CALL filtreg ( massem ,jjp1, llm,-2, 2, .TRUE., 1 )
+     !
+  ENDIF ! of IF(iadvtr.EQ.0)
+
+  iadvtr   = iadvtr+1
+
+  !$OMP MASTER
+  iapptrac = iadvtr
+  !$OMP END MASTER
+
+  !   Test pour savoir si on advecte a ce pas de temps
+
+  IF ( iadvtr.EQ.iapp_tracvl ) THEN
+     !$OMP MASTER
+     call suspend_timer(timer_caldyn)
+     !$OMP END MASTER
+
+     ijb=ij_begin
+     ije=ij_end
+
+
+     !c   ..  Modif P.Le Van  ( 20/12/97 )  ....
+     !c
+
+     !   traitement des flux de masse avant advection.
+     !     1. calcul de w
+     !     2. groupement des mailles pres du pole.
+
+     CALL groupe_p( massem, pbaruc,pbarvc, pbarug,pbarvg,wg )
+
+     !$OMP BARRIER
+
+     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+     DO l=1,llmp1
+        p_tmp(ijb:ije,l)=p(ijb:ije,l)
+     ENDDO
+     !$OMP END DO NOWAIT
+
+     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+     DO l=1,llm
+        pk_tmp(ijb:ije,l)=pk(ijb:ije,l)
+        teta_tmp(ijb:ije,l)=teta(ijb:ije,l)
+     ENDDO
+     !$OMP END DO NOWAIT
+
+     !$OMP MASTER
+     call VTb(VTHallo)
+     !$OMP END MASTER
+
+     call Register_SwapFieldHallo(pbarug,pbarug,ip1jmp1,llm, &
+          jj_Nb_vanleer,0,0,Request_vanleer)
+     call Register_SwapFieldHallo(pbarvg,pbarvg,ip1jm,llm, &
+          jj_Nb_vanleer,1,0,Request_vanleer)
+     call Register_SwapFieldHallo(massem,massem,ip1jmp1,llm, &
+          jj_Nb_vanleer,0,0,Request_vanleer)
+     call Register_SwapFieldHallo(wg,wg,ip1jmp1,llm, &
+          jj_Nb_vanleer,0,0,Request_vanleer)
+     call Register_SwapFieldHallo(teta_tmp,teta_tmp,ip1jmp1,llm, &
+          jj_Nb_vanleer,1,1,Request_vanleer)
+     call Register_SwapFieldHallo(p_tmp,p_tmp,ip1jmp1,llmp1, &
+          jj_Nb_vanleer,1,1,Request_vanleer)
+     call Register_SwapFieldHallo(pk_tmp,pk_tmp,ip1jmp1,llm, &
+          jj_Nb_vanleer,1,1,Request_vanleer)
+     do j=1,nqtot
+        call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm, &
+             jj_nb_vanleer,0,0,Request_vanleer)
+     enddo
+
+     call SendRequest(Request_vanleer)
+     !$OMP BARRIER
+     call WaitRequest(Request_vanleer)
+
+
+     !$OMP BARRIER
+     !$OMP MASTER      
+     call SetDistrib(jj_nb_vanleer)
+     call VTe(VTHallo)
+     call VTb(VTadvection)
+     call start_timer(timer_vanleer)
+     !$OMP END MASTER
+     !$OMP BARRIER
+
+     ! ... Flux de masse diaganostiques traceurs
+     ijb=ij_begin
+     ije=ij_end
+     flxw(ijb:ije,1:llm)=wg(ijb:ije,1:llm)/REAL(iapp_tracvl)
+
+     !  test sur l'eventuelle creation de valeurs negatives de la masse
+     ijb=ij_begin
+     ije=ij_end
+     if (pole_nord) ijb=ij_begin+iip1
+     if (pole_sud) ije=ij_end-iip1
+
+     !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+     DO l=1,llm-1
+        DO ij = ijb+1,ije
+           zdp(ij) =    pbarug(ij-1,l)   - pbarug(ij,l) &
+                - pbarvg(ij-iip1,l) + pbarvg(ij,l) &
+                +       wg(ij,l+1)  - wg(ij,l)
+        ENDDO
+
+        !            CALL SCOPY( jjm -1 ,zdp(iip1+iip1),iip1,zdp(iip2),iip1 )
+        ! ym  ---> pourquoi jjm-1 et non jjm ? a cause du pole ?
+
+        do ij=ijb,ije-iip1+1,iip1
+           zdp(ij)=zdp(ij+iip1-1)
+        enddo
+
+        DO ij = ijb,ije
+           zdp(ij)= zdp(ij)*dtvr/ massem(ij,l) 
+        ENDDO
+
+
+        !            CALL minmax ( ip1jm-iip1, zdp(iip2), zdpmin,zdpmax )
+        !  ym ---> eventuellement a revoir
+        CALL minmax ( ije-ijb+1, zdp(ijb), zdpmin,zdpmax )
+
+        IF(MAX(ABS(zdpmin),ABS(zdpmax)).GT.0.5) THEN
+           PRINT*,'WARNING DP/P l=',l,'  MIN:',zdpmin, &
+                '   MAX:', zdpmax
+        ENDIF
+
+     ENDDO
+     !$OMP END DO NOWAIT
+
+     !-------------------------------------------------------------------
+     !   Advection proprement dite (Modification Le Croller (07/2001)
+     !-------------------------------------------------------------------
+
+     !----------------------------------------------------
+     !        Calcul des moyennes basées sur la masse
+     !----------------------------------------------------
+
+     !ym      ----> Normalement, inutile pour les schémas classiques
+     !ym      ----> Revérifier lors de la parallélisation des autres schemas
+
+     !ym          call massbar_p(massem,massebx,masseby)  
+
+     call vlspltgen_p( q,iadv, 2., massem, wg , &
+          pbarug,pbarvg,dtvr,p_tmp,pk_tmp,teta_tmp )
+
+
+     GOTO 1234     
+     !-----------------------------------------------------------
+     !     Appel des sous programmes d'advection
+     !-----------------------------------------------------------
+     do iq=1,nqtot
+        !        call clock(t_initial)
+        if(iadv(iq) == 0) cycle 
+        !   ----------------------------------------------------------------
+        !   Schema de Van Leer I MUSCL
+        !   ----------------------------------------------------------------
+        if(iadv(iq).eq.10) THEN
+
+           call vlsplt_p(q(1,1,iq),2.,massem,wg,pbarug,pbarvg,dtvr)
+
+           !   ----------------------------------------------------------------
+           !   Schema "pseudo amont" + test sur humidite specifique
+           !    pour la vapeur d'eau. F. Codron
+           !   ----------------------------------------------------------------
+        else if(iadv(iq).eq.14) then
+           !
+           !ym        stop 'advtrac : appel à vlspltqs :schema non parallelise'
+           CALL vlspltqs_p( q(1,1,1), 2., massem, wg , &
+                pbarug,pbarvg,dtvr,p_tmp,pk_tmp,teta_tmp )
+           !   ----------------------------------------------------------------
+           !   Schema de Frederic Hourdin
+           !   ----------------------------------------------------------------
+        else if(iadv(iq).eq.12) then
+           stop 'advtrac : schema non parallelise'
+           !            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           do indice=1,n
+              call advn(q(1,1,iq),massem,wg,pbarug,pbarvg,dtbon,1)
+           end do
+        else if(iadv(iq).eq.13) then
+           stop 'advtrac : schema non parallelise'
+           !            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           do indice=1,n
+              call advn(q(1,1,iq),massem,wg,pbarug,pbarvg,dtbon,2)
+           end do
+           !   ----------------------------------------------------------------
+           !   Schema de pente SLOPES
+           !   ----------------------------------------------------------------
+        else if (iadv(iq).eq.20) then
+           stop 'advtrac : schema non parallelise'
+
+           call pentes_ini (q(1,1,iq),wg,massem,pbarug,pbarvg,0)
+
+           !   ----------------------------------------------------------------
+           !   Schema de Prather
+           !   ----------------------------------------------------------------
+        else if (iadv(iq).eq.30) then
+           stop 'advtrac : schema non parallelise'
+           !            Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           call  prather(q(1,1,iq),wg,massem,pbarug,pbarvg, &
+                n,dtbon)
+           !   ----------------------------------------------------------------
+           !   Schemas PPM Lin et Rood
+           !   ----------------------------------------------------------------
+        else if (iadv(iq).eq.11.OR.(iadv(iq).GE.16.AND. &
+             iadv(iq).LE.18)) then
+
+           stop 'advtrac : schema non parallelise'
+
+           !        Test sur le flux horizontal
+           !        Pas de temps adaptatif
+           call adaptdt(iadv(iq),dtbon,n,pbarug,massem)
+           if (n.GT.1) then
+              write(*,*) 'WARNING horizontal dt=',dtbon,'dtvr=', &
+                   dtvr,'n=',n
+           endif
+           !        Test sur le flux vertical
+           CFLmaxz=0.
+           do l=2,llm
+              do ij=iip2,ip1jm
+                 aaa=wg(ij,l)*dtvr/massem(ij,l)
+                 CFLmaxz=max(CFLmaxz,aaa)
+                 bbb=-wg(ij,l)*dtvr/massem(ij,l-1)
+                 CFLmaxz=max(CFLmaxz,bbb)
+              enddo
+           enddo
+           if (CFLmaxz.GE.1) then
+              write(*,*) 'WARNING vertical','CFLmaxz=', CFLmaxz
+           endif
+
+           !-----------------------------------------------------------
+           !        Ss-prg interface LMDZ.4->PPM3d
+           !-----------------------------------------------------------
+
+           call interpre(q(1,1,iq),qppm(1,1,iq),wg,fluxwppm,massem, &
+                apppm,bpppm,massebx,masseby,pbarug,pbarvg, &
+                unatppm,vnatppm,psppm)
+
+           do indice=1,n
+              !----------------------------------------------------------------
+              !                         VL (version PPM) horiz. et PPM vert.
+              !----------------------------------------------------------------
+              if (iadv(iq).eq.11) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,2,2,2,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+
+                 !-------------------------------------------------------------
+                 !                           Monotonic PPM
+                 !-------------------------------------------------------------
+              else if (iadv(iq).eq.16) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,3,3,3,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+                 !-------------------------------------------------------------
+
+                 !-------------------------------------------------------------
+                 !                           Semi Monotonic PPM
+                 !-------------------------------------------------------------
+              else if (iadv(iq).eq.17) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,4,4,4,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+                 !-------------------------------------------------------------
+
+                 !-------------------------------------------------------------
+                 !                         Positive Definite PPM
+                 !-------------------------------------------------------------
+              else if (iadv(iq).eq.18) then
+                 !                  Ss-prg PPM3d de Lin
+                 call ppm3d(1,qppm(1,1,iq), &
+                      psppm,psppm, &
+                      unatppm,vnatppm,fluxwppm,dtbon,5,5,5,1, &
+                      iim,jjp1,2,llm,apppm,bpppm,0.01,6400000, &
+                      fill,dum,220.)
+                 !-------------------------------------------------------------
+              endif
+           enddo
+           !-----------------------------------------------------------------
+           !               Ss-prg interface PPM3d-LMDZ.4
+           !-----------------------------------------------------------------
+           call interpost(q(1,1,iq),qppm(1,1,iq))
+        endif
+        !----------------------------------------------------------------------
+
+        !-----------------------------------------------------------------
+        ! On impose une seule valeur du traceur au pôle Sud j=jjm+1=jjp1
+        ! et Nord j=1
+        !-----------------------------------------------------------------
+
+        !                  call traceurpole(q(1,1,iq),massem)
+
+        ! calcul du temps cpu pour un schema donne
+
+        !                  call clock(t_final)
+        !ym                  tps_cpu=t_final-t_initial
+        !ym                  cpuadv(iq)=cpuadv(iq)+tps_cpu
+
+     end DO
+
+1234 CONTINUE
+     !$OMP BARRIER
+
+     if (planet_type=="earth") then
+
+        ijb=ij_begin
+        ije=ij_end
+
+        !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l = 1, llm
+           DO ij = ijb, ije
+              finmasse(ij,l) =  p(ij,l) - p(ij,l+1) 
+           ENDDO
+        ENDDO
+        !$OMP END DO
+
+        CALL qminimum_p( q, 2, finmasse )
+     endif ! of if (planet_type=="earth")
+
+        !------------------------------------------------------------------
+        !   on reinitialise a zero les flux de masse cumules
+        !---------------------------------------------------
+        !          iadvtr=0
+
+      !$OMP MASTER
+      call VTe(VTadvection)
+      call stop_timer(timer_vanleer)
+      call VTb(VThallo)
+     !$OMP END MASTER
+
+      do j=1,nqtot
+        call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm, &
+             jj_nb_caldyn,0,0,Request_vanleer)
+      enddo
+
+      call Register_SwapFieldHallo(flxw,flxw,ip1jmp1,llm, &
+             jj_nb_caldyn,0,0,Request_vanleer)
+
+      call SendRequest(Request_vanleer)
+      !$OMP BARRIER
+      call WaitRequest(Request_vanleer)      
+
+ !$OMP BARRIER
+ !$OMP MASTER
+      call SetDistrib(jj_nb_caldyn)
+      call VTe(VThallo)
+      call resume_timer(timer_caldyn)
+ !$OMP END MASTER
+ !$OMP BARRIER	
+        iadvtr=0
+  ENDIF ! if iadvtr.EQ.iapp_tracvl
+
+END SUBROUTINE advtrac_p
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bands.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bands.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bands.F90	(revision 3330)
@@ -0,0 +1,444 @@
+!
+! $Id$
+!
+  module Bands
+  
+    integer, parameter :: bands_caldyn=1
+    integer, parameter :: bands_vanleer=2
+    integer, parameter :: bands_dissip=3
+    
+    INTEGER,dimension(:),allocatable :: jj_Nb_Caldyn
+    INTEGER,dimension(:),allocatable :: jj_Nb_vanleer
+    INTEGER,dimension(:),allocatable :: jj_Nb_vanleer2
+    INTEGER,dimension(:),allocatable :: jj_Nb_dissip
+    INTEGER,dimension(:),allocatable :: jj_Nb_physic
+    INTEGER,dimension(:),allocatable :: jj_Nb_physic_bis
+    INTEGER,dimension(:),allocatable :: distrib_phys
+  
+  contains
+  
+  subroutine AllocateBands
+    USE parallel_lmdz
+    implicit none
+    
+    allocate(jj_Nb_Caldyn(0:MPI_Size-1))
+    allocate(jj_Nb_vanleer(0:MPI_Size-1))
+    allocate(jj_Nb_vanleer2(0:MPI_Size-1))
+    allocate(jj_Nb_dissip(0:MPI_Size-1))
+    allocate(jj_Nb_physic(0:MPI_Size-1))
+    allocate(jj_Nb_physic_bis(0:MPI_Size-1))
+    allocate(distrib_phys(0:MPI_Size-1))
+  
+  end subroutine AllocateBands
+  
+  subroutine Read_distrib
+    USE parallel_lmdz
+    implicit none
+
+    include "dimensions.h"
+      integer :: i,j
+      character (len=4) :: siim,sjjm,sllm,sproc
+      character (len=255) :: filename
+      integer :: unit_number=10
+      integer :: ierr
+    
+      call AllocateBands
+      write(siim,'(i3)') iim
+      write(sjjm,'(i3)') jjm
+      write(sllm,'(i3)') llm
+      write(sproc,'(i3)') mpi_size
+      filename='Bands_'//TRIM(ADJUSTL(siim))//'x'//TRIM(ADJUSTL(sjjm))//'x'//TRIM(ADJUSTL(sllm))//'_'  &
+                        //TRIM(ADJUSTL(sproc))//'prc.dat'    
+       
+      OPEN(UNIT=unit_number,FILE=trim(filename),STATUS='old',FORM='formatted',IOSTAT=ierr)
+      
+      if (ierr==0) then
+      
+         do i=0,mpi_size-1
+          read (unit_number,*) j,jj_nb_caldyn(i)
+        enddo
+      
+        do i=0,mpi_size-1
+          read (unit_number,*) j,jj_nb_vanleer(i)
+        enddo
+      
+        do i=0,mpi_size-1
+          read (unit_number,*) j,jj_nb_dissip(i)
+        enddo
+      
+        do i=0,mpi_size-1
+          read (unit_number,*) j,distrib_phys(i)
+        enddo
+	
+	CLOSE(unit_number)  
+  
+      else
+        do i=0,mpi_size-1
+          jj_nb_caldyn(i)=(jjm+1)/mpi_size
+	  if (i<MOD(jjm+1,mpi_size)) jj_nb_caldyn(i)=jj_nb_caldyn(i)+1
+        enddo
+      
+        jj_nb_vanleer(:)=jj_nb_caldyn(:)
+        jj_nb_dissip(:)=jj_nb_caldyn(:)
+        
+	do i=0,mpi_size-1
+	  distrib_phys(i)=(iim*(jjm-1)+2)/mpi_size
+	  IF (i<MOD(iim*(jjm-1)+2,mpi_size)) distrib_phys(i)=distrib_phys(i)+1
+	enddo
+      endif
+  
+   end subroutine Read_distrib
+   
+   
+   SUBROUTINE  Set_Bands 
+     USE parallel_lmdz
+     IMPLICIT NONE
+     INCLUDE 'dimensions.h'    
+     INTEGER :: i, ij
+     INTEGER :: jj_para_begin(0:mpi_size-1)
+     INTEGER :: jj_para_end(0:mpi_size-1)
+       
+      do i=0,mpi_size-1
+         jj_nb_vanleer2(i)=(jjm+1)/mpi_size
+	 if (i<MOD(jjm+1,mpi_size)) jj_nb_vanleer2(i)=jj_nb_vanleer2(i)+1
+      enddo
+          
+      jj_para_begin(0)=1
+      ij=distrib_phys(0)+iim-1
+      jj_para_end(0)=((ij-1)/iim)+1
+      
+      DO i=1,mpi_Size-1
+        ij=ij+1
+        jj_para_begin(i)=((ij-1)/iim)+1
+        ij=ij+distrib_phys(i)-1
+        jj_para_end(i)=((ij-1)/iim)+1
+      ENDDO
+ 
+      do i=0,MPI_Size-1
+        jj_Nb_physic(i)=jj_para_end(i)-jj_para_begin(i)+1
+        if (i/=0) then
+          if (jj_para_begin(i)==jj_para_end(i-1)) then
+            jj_Nb_physic(i-1)=jj_Nb_physic(i-1)-1
+          endif
+        endif
+      enddo
+      
+      do i=0,MPI_Size-1
+        jj_Nb_physic_bis(i)=jj_para_end(i)-jj_para_begin(i)+1
+        if (i/=0) then
+          if (jj_para_begin(i)==jj_para_end(i-1)) then
+            jj_Nb_physic_bis(i)=jj_Nb_physic_bis(i)-1
+          else
+	    jj_Nb_physic_bis(i-1)=jj_Nb_physic_bis(i-1)+1
+	    jj_Nb_physic_bis(i)=jj_Nb_physic_bis(i)-1
+	  endif
+        endif
+      enddo
+      
+    end subroutine Set_Bands
+
+
+    subroutine AdjustBands_caldyn
+      use times
+      USE parallel_lmdz
+      implicit none
+
+      real :: minvalue,maxvalue
+      integer :: min_proc,max_proc
+      integer :: i,j
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: index
+      real :: tmpvalue
+      integer :: tmpindex
+      
+      allocate(value(0:mpi_size-1))
+      allocate(index(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_caldyn(i),timer_caldyn,i)
+	index(i)=i
+      enddo
+      
+      do i=0,mpi_size-2
+        do j=i+1,mpi_size-1
+	  if (value(i)>value(j)) then
+	    tmpvalue=value(i)
+	    value(i)=value(j)
+	    value(j)=tmpvalue
+	    
+	    tmpindex=index(i)
+	    index(i)=index(j)
+	    index(j)=tmpindex
+	   endif
+	 enddo
+      enddo
+      
+      maxvalue=value(mpi_size-1)
+      max_proc=index(mpi_size-1)           
+           
+      do i=0,mpi_size-2
+        minvalue=value(i)
+        min_proc=index(i)
+        if (jj_nb_caldyn(max_proc)>3) then
+          if (timer_iteration(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)<=1 ) then
+             jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1
+             jj_nb_caldyn(max_proc)=jj_nb_caldyn(max_proc)-1
+	     exit
+           else
+             if (timer_average(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc)                 &
+	        -timer_delta(jj_nb_caldyn(min_proc)+1,timer_caldyn,min_proc) < maxvalue) then
+               jj_nb_caldyn(min_proc)=jj_nb_caldyn(min_proc)+1
+               jj_nb_caldyn(max_proc)=jj_nb_caldyn(max_proc)-1
+               exit
+	     endif
+           endif
+         endif
+      enddo
+      
+      deallocate(value)
+      deallocate(index)
+         
+    end subroutine AdjustBands_caldyn
+    
+    subroutine AdjustBands_vanleer
+      use times
+      USE parallel_lmdz
+      implicit none
+
+      real :: minvalue,maxvalue
+      integer :: min_proc,max_proc
+      integer :: i,j
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: index
+      real :: tmpvalue
+      integer :: tmpindex
+      
+      allocate(value(0:mpi_size-1))
+      allocate(index(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_vanleer(i),timer_vanleer,i)
+	index(i)=i
+      enddo
+      
+      do i=0,mpi_size-2
+        do j=i+1,mpi_size-1
+	  if (value(i)>value(j)) then
+	    tmpvalue=value(i)
+	    value(i)=value(j)
+	    value(j)=tmpvalue
+	    
+	    tmpindex=index(i)
+	    index(i)=index(j)
+	    index(j)=tmpindex
+	   endif
+	 enddo
+      enddo
+      
+      maxvalue=value(mpi_size-1)
+      max_proc=index(mpi_size-1)           
+           
+      do i=0,mpi_size-2
+        minvalue=value(i)
+        min_proc=index(i)
+
+        if (jj_nb_vanleer(max_proc)>3) then
+          if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc)==0. .or. &
+             timer_average(jj_nb_vanleer(max_proc)-1,timer_vanleer,max_proc)==0.) then
+             jj_nb_vanleer(min_proc)=jj_nb_vanleer(min_proc)+1
+             jj_nb_vanleer(max_proc)=jj_nb_vanleer(max_proc)-1
+	     exit
+           else
+             if (timer_average(jj_nb_vanleer(min_proc)+1,timer_vanleer,min_proc) < maxvalue) then
+               jj_nb_vanleer(min_proc)=jj_nb_vanleer(min_proc)+1
+               jj_nb_vanleer(max_proc)=jj_nb_vanleer(max_proc)-1
+               exit
+	     endif
+           endif
+         endif
+      enddo
+      
+      deallocate(value)
+      deallocate(index)
+         
+    end subroutine AdjustBands_vanleer
+
+    subroutine AdjustBands_dissip
+      use times
+      USE parallel_lmdz
+      implicit none
+
+      real :: minvalue,maxvalue
+      integer :: min_proc,max_proc
+      integer :: i,j
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: index
+      real :: tmpvalue
+      integer :: tmpindex
+      
+      allocate(value(0:mpi_size-1))
+      allocate(index(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_dissip(i),timer_dissip,i)
+	index(i)=i
+      enddo
+      
+      do i=0,mpi_size-2
+        do j=i+1,mpi_size-1
+	  if (value(i)>value(j)) then
+	    tmpvalue=value(i)
+	    value(i)=value(j)
+	    value(j)=tmpvalue
+	    
+	    tmpindex=index(i)
+	    index(i)=index(j)
+	    index(j)=tmpindex
+	   endif
+	 enddo
+      enddo
+      
+      maxvalue=value(mpi_size-1)
+      max_proc=index(mpi_size-1)           
+           
+      do i=0,mpi_size-2
+        minvalue=value(i)
+        min_proc=index(i)
+
+        if (jj_nb_dissip(max_proc)>3) then
+          if (timer_iteration(jj_nb_dissip(min_proc)+1,timer_dissip,min_proc)<=1) then
+             jj_nb_dissip(min_proc)=jj_nb_dissip(min_proc)+1
+             jj_nb_dissip(max_proc)=jj_nb_dissip(max_proc)-1
+	     exit
+           else
+             if (timer_average(jj_nb_dissip(min_proc)+1,timer_dissip,min_proc)         &
+	        - timer_delta(jj_nb_dissip(min_proc)+1,timer_dissip,min_proc) < maxvalue) then
+               jj_nb_dissip(min_proc)=jj_nb_dissip(min_proc)+1
+               jj_nb_dissip(max_proc)=jj_nb_dissip(max_proc)-1
+               exit
+	     endif
+           endif
+         endif
+      enddo
+      
+      deallocate(value)
+      deallocate(index)
+         
+    end subroutine AdjustBands_dissip
+
+    subroutine AdjustBands_physic
+      use times
+#ifdef CPP_PHYS
+! Ehouarn: what follows is only related to // physics
+      USE mod_phys_lmdz_para, only : klon_mpi_para_nb
+#endif
+      USE parallel_lmdz
+      implicit none
+
+      integer :: i,Index
+      real,allocatable,dimension(:) :: value
+      integer,allocatable,dimension(:) :: Inc
+      real :: medium
+      integer :: NbTot,sgn
+      
+      allocate(value(0:mpi_size-1))
+      allocate(Inc(0:mpi_size-1))
+        
+  
+      call allgather_timer_average
+      
+      medium=0
+      do i=0,mpi_size-1
+        value(i)=timer_average(jj_nb_physic(i),timer_physic,i)
+	medium=medium+value(i)
+      enddo    
+      
+      medium=medium/mpi_size      
+      NbTot=0
+#ifdef CPP_PHYS
+      do i=0,mpi_size-1
+        Inc(i)=nint(klon_mpi_para_nb(i)*(medium-value(i))/value(i))
+        NbTot=NbTot+Inc(i)  
+      enddo
+      
+      if (NbTot>=0) then
+        Sgn=1
+      else
+        Sgn=-1
+	NbTot=-NbTot
+      endif
+      
+      Index=0
+      do i=1,NbTot
+        Inc(Index)=Inc(Index)-Sgn
+	Index=Index+1
+	if (Index>mpi_size-1) Index=0
+      enddo
+      
+      do i=0,mpi_size-1
+        distrib_phys(i)=klon_mpi_para_nb(i)+inc(i)
+      enddo
+#endif     
+    end subroutine AdjustBands_physic
+
+    subroutine WriteBands
+    USE parallel_lmdz
+    implicit none
+    include "dimensions.h"
+
+      integer :: i,j
+      character (len=4) :: siim,sjjm,sllm,sproc
+      character (len=255) :: filename
+      integer :: unit_number=10
+      integer :: ierr
+  
+      write(siim,'(i3)') iim
+      write(sjjm,'(i3)') jjm
+      write(sllm,'(i3)') llm
+      write(sproc,'(i3)') mpi_size
+
+      filename='Bands_'//TRIM(ADJUSTL(siim))//'x'//TRIM(ADJUSTL(sjjm))//'x'//TRIM(ADJUSTL(sllm))//'_'  &
+                        //TRIM(ADJUSTL(sproc))//'prc.dat'    
+      
+      OPEN(UNIT=unit_number,FILE=trim(filename),STATUS='replace',FORM='formatted',IOSTAT=ierr)
+      
+      if (ierr==0) then
+        
+!	write (unit_number,*) '*** Bandes caldyn ***'
+	do i=0,mpi_size-1
+          write (unit_number,*) i,jj_nb_caldyn(i)
+        enddo
+        
+!	write (unit_number,*) '*** Bandes vanleer ***' 
+        do i=0,mpi_size-1
+          write (unit_number,*) i,jj_nb_vanleer(i)
+        enddo
+       
+!        write (unit_number,*) '*** Bandes dissip ***'
+        do i=0,mpi_size-1
+          write (unit_number,*) i,jj_nb_dissip(i)
+        enddo
+        
+	do i=0,mpi_size-1
+          write (unit_number,*) i,distrib_phys(i)
+        enddo
+	
+        CLOSE(unit_number)   
+      else 
+        print *,'probleme lors de l ecriture des bandes'
+      endif
+       
+    end subroutine WriteBands
+  
+  end module Bands
+  
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bernoui_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bernoui_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bernoui_p.F	(revision 3330)
@@ -0,0 +1,73 @@
+      SUBROUTINE bernoui_p (ngrid,nlay,pphi,pecin,pbern)
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:   P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c     calcul de la fonction de Bernouilli aux niveaux s  .....
+c     phi  et  ecin  sont des arguments d'entree pour le s-pg .......
+c          bern       est un  argument de sortie pour le s-pg  ......
+c
+c    fonction de Bernouilli = bern = filtre de( geopotentiel + 
+c                              energ.cinet.)
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c   Decalrations:
+c   -------------
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+c   Arguments:
+c   ----------
+c
+      INTEGER nlay,ngrid
+      REAL pphi(ngrid,nlay),pecin(ngrid,nlay),pbern(ngrid,nlay)
+c
+c   Local:
+c   ------
+c
+      INTEGER   ij,l,ijb,ije,jjb,jje
+c
+c-----------------------------------------------------------------------
+c   calcul de Bernouilli:
+c   ---------------------
+c
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if (pole_sud) ije=ij_end
+
+      jjb=jj_begin
+      jje=jj_end+1
+      if (pole_sud) jje=jj_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)                
+      DO l=1,llm
+    
+        DO 4 ij = ijb,ije
+          pbern( ij,l ) =  pphi( ij,l ) + pecin( ij,l )
+   4    CONTINUE
+       
+       ENDDO
+c$OMP END DO NOWAIT
+c
+c-----------------------------------------------------------------------
+c   filtre:
+c   -------
+c
+
+        
+        CALL filtreg_p( pbern,jjb,jje, jjp1, llm, 2,1, .true., 1 )
+c
+c-----------------------------------------------------------------------
+      
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bilan_dyn_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bilan_dyn_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/bilan_dyn_p.F	(revision 3330)
@@ -0,0 +1,811 @@
+!
+! $Id$
+!
+      SUBROUTINE bilan_dyn_p (ntrac,dt_app,dt_cum,
+     s  ps,masse,pk,flux_u,flux_v,teta,phi,ucov,vcov,trac)
+
+c   AFAIRE
+c   Prevoir en champ nq+1 le diagnostique de l'energie
+c   en faisant Qzon=Cv T + L * ...
+c             vQ..A=Cp T + L * ...
+
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#endif
+      USE parallel_lmdz
+      USE mod_hallo
+      use misc_mod
+      use write_field_p
+      USE comconst_mod, ONLY: cpp, pi
+      USE comvert_mod, ONLY: presnivs
+      USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+      
+      IMPLICIT NONE
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "iniprint.h"
+
+c====================================================================
+c
+c   Sous-programme consacre à des diagnostics dynamiques de base
+c
+c 
+c   De facon generale, les moyennes des scalaires Q sont ponderees par
+c   la masse.
+c
+c   Les flux de masse sont eux simplement moyennes.
+c
+c====================================================================
+
+c   Arguments :
+c   ===========
+
+      integer ntrac
+      real dt_app,dt_cum
+      real ps(iip1,jjp1)
+      real masse(iip1,jjp1,llm),pk(iip1,jjp1,llm)
+      real flux_u(iip1,jjp1,llm)
+      real flux_v(iip1,jjm,llm)
+      real teta(iip1,jjp1,llm)
+      real phi(iip1,jjp1,llm)
+      real ucov(iip1,jjp1,llm)
+      real vcov(iip1,jjm,llm)
+      real trac(iip1,jjp1,llm,ntrac)
+
+c   Local :
+c   =======
+
+      integer,save :: icum,ncum
+!$OMP THREADPRIVATE(icum,ncum)
+      logical,SAVE :: first=.true.
+!$OMP THREADPRIVATE(first) 
+
+      real zz,zqy
+      real,save :: zfactv(jjm,llm)
+
+      integer,parameter :: nQ=7
+
+
+cym      character*6 nom(nQ)
+cym      character*6 unites(nQ)
+      character(len=6),save :: nom(nQ)
+      character(len=6),save :: unites(nQ)
+
+      character(len=10) file
+      integer ifile
+      parameter (ifile=4)
+
+      integer,PARAMETER :: itemp=1,igeop=2,iecin=3,iang=4,iu=5
+      INTEGER,PARAMETER :: iovap=6,iun=7
+      integer,PARAMETER :: i_sortie=1
+
+      real,SAVE :: time=0.
+      integer,SAVE :: itau=0.
+!$OMP THREADPRIVATE(time,itau)
+
+      real ww
+
+c   variables dynamiques intermédiaires
+      REAL,save :: vcont(iip1,jjm,llm),ucont(iip1,jjp1,llm)
+      REAL,save :: ang(iip1,jjp1,llm),unat(iip1,jjp1,llm)
+      REAL,save :: massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)
+      REAL,save :: vorpot(iip1,jjm,llm)
+      REAL,save :: w(iip1,jjp1,llm),ecin(iip1,jjp1,llm)
+      REAL,save ::convm(iip1,jjp1,llm)
+      REAL,save :: bern(iip1,jjp1,llm)
+
+c   champ contenant les scalaires advectés.
+      real,save :: Q(iip1,jjp1,llm,nQ)
+    
+c   champs cumulés
+      real,save :: ps_cum(iip1,jjp1)
+      real,save :: masse_cum(iip1,jjp1,llm)
+      real,save :: flux_u_cum(iip1,jjp1,llm)
+      real,save :: flux_v_cum(iip1,jjm,llm)
+      real,save :: Q_cum(iip1,jjp1,llm,nQ)
+      real,save :: flux_uQ_cum(iip1,jjp1,llm,nQ)
+      real,save :: flux_vQ_cum(iip1,jjm,llm,nQ)
+      real,save :: flux_wQ_cum(iip1,jjp1,llm,nQ)
+      real,save :: dQ(iip1,jjp1,llm,nQ)
+
+
+c   champs de tansport en moyenne zonale
+      integer ntr,itr
+      parameter (ntr=5)
+
+cym      character*10 znom(ntr,nQ)
+cym      character*20 znoml(ntr,nQ)
+cym      character*10 zunites(ntr,nQ)
+      character*10,save :: znom(ntr,nQ)
+      character*20,save :: znoml(ntr,nQ)
+      character*10,save :: zunites(ntr,nQ)
+
+      INTEGER,PARAMETER :: iave=1,itot=2,immc=3,itrs=4,istn=5
+
+      character*3 ctrs(ntr)
+      data ctrs/'  ','TOT','MMC','TRS','STN'/
+
+      real,save :: zvQ(jjm,llm,ntr,nQ),zvQtmp(jjm,llm)
+      real,save :: zavQ(jjm,ntr,nQ),psiQ(jjm,llm+1,nQ)
+      real,save :: zmasse(jjm,llm),zamasse(jjm)
+
+      real,save :: zv(jjm,llm),psi(jjm,llm+1)
+
+      integer i,j,l,iQ
+
+
+c   Initialisation du fichier contenant les moyennes zonales.
+c   ---------------------------------------------------------
+
+      character*10 infile
+
+      integer fileid
+      integer thoriid, zvertiid
+      save fileid
+
+      integer,save :: ndex3d(jjm*llm)
+
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      character*3 str
+      character*10 ctrac
+      integer ii,jj
+      integer zan, dayref
+C
+      real,save :: rlong(jjm),rlatg(jjm)
+      integer :: jjb,jje,jjn,ijb,ije
+      type(Request),SAVE :: Req
+!$OMP THREADPRIVATE(Req)
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(1) :: ddid
+      INTEGER,DIMENSION(1) :: dsg
+      INTEGER,DIMENSION(1) :: dsl
+      INTEGER,DIMENSION(1) :: dpf
+      INTEGER,DIMENSION(1) :: dpl
+      INTEGER,DIMENSION(1) :: dhs
+      INTEGER,DIMENSION(1) :: dhe 
+      
+      INTEGER :: bilan_dyn_domain_id
+
+
+c=====================================================================
+c   Initialisation
+c=====================================================================
+      if (adjust) return
+      
+      time=time+dt_app
+      itau=itau+1
+
+      if (first) then
+
+        ndex3d=0
+
+        icum=0
+c       initialisation des fichiers
+        first=.false.
+c   ncum est la frequence de stokage en pas de temps
+        ncum=dt_cum/dt_app
+        if (abs(ncum*dt_app-dt_cum).gt.1.e-5*dt_app) then
+           WRITE(lunout,*)
+     .            'Pb : le pas de cumule doit etre multiple du pas'
+           WRITE(lunout,*)'dt_app=',dt_app
+           WRITE(lunout,*)'dt_cum=',dt_cum
+           stop
+        else
+          write(lunout,*) "bilan_dyn_p: ncum=",ncum
+        endif
+
+!        if (i_sortie.eq.1) then
+!         file='dynzon'
+!         if (mpi_rank==0) then
+!         call inigrads(ifile,1
+!     s  ,0.,180./pi,0.,0.,jjm,rlatv,-90.,90.,180./pi
+!     s  ,llm,presnivs,1.
+!     s  ,dt_cum,file,'dyn_zon ')
+!         endif
+!        endif
+
+!$OMP MASTER
+        nom(itemp)='T'
+        nom(igeop)='gz'
+        nom(iecin)='K'
+        nom(iang)='ang'
+        nom(iu)='u'
+        nom(iovap)='ovap'
+        nom(iun)='un'
+
+        unites(itemp)='K'
+        unites(igeop)='m2/s2'
+        unites(iecin)='m2/s2'
+        unites(iang)='ang'
+        unites(iu)='m/s'
+        unites(iovap)='kg/kg'
+        unites(iun)='un'
+
+
+c   Initialisation du fichier contenant les moyennes zonales.
+c   ---------------------------------------------------------
+
+      infile='dynzon'
+
+      zan = annee_ref
+      dayref = day_ref
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      rlong=0.
+      rlatg=rlatv*180./pi
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      IF (pole_sud) THEN
+        jjn=jj_nb-1
+        jje=jj_end-1
+      ENDIF
+
+      ddid=(/ 2 /)
+      dsg=(/ jjm /)
+      dsl=(/ jjn /)
+      dpf=(/ jjb /)
+      dpl=(/ jje /)
+      dhs=(/ 0 /)
+      dhe=(/ 0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',bilan_dyn_domain_id)
+       
+      call histbeg(trim(infile),
+     .             1, rlong(jjb:jje), jjn, rlatg(jjb:jje),
+     .             1, 1, 1, jjn,
+     .             tau0, zjulian, dt_cum, thoriid, fileid,
+     .             bilan_dyn_domain_id)
+
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'presnivs', 'Niveaux sigma','mb',
+     .              llm, presnivs, zvertiid)
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+      do iQ=1,nQ
+         do itr=1,ntr
+            if(itr.eq.1) then
+               znom(itr,iQ)=nom(iQ)
+               znoml(itr,iQ)=nom(iQ)
+               zunites(itr,iQ)=unites(iQ)
+            else
+               znom(itr,iQ)=ctrs(itr)//'v'//nom(iQ)
+               znoml(itr,iQ)='transport : v * '//nom(iQ)//' '//ctrs(itr)
+               zunites(itr,iQ)='m/s * '//unites(iQ)
+            endif
+         enddo
+      enddo
+
+c   Declarations des champs avec dimension verticale
+c      print*,'1HISTDEF'
+      do iQ=1,nQ
+         do itr=1,ntr
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'var ',itr,iQ
+     .      ,znom(itr,iQ),znoml(itr,iQ),zunites(itr,iQ)
+            call histdef(fileid,znom(itr,iQ),znoml(itr,iQ),
+     .        zunites(itr,iQ),1,jjn,thoriid,llm,1,llm,zvertiid,
+     .        32,'ave(X)',dt_cum,dt_cum)
+         enddo
+c   Declarations pour les fonctions de courant
+c      print*,'2HISTDEF'
+          call histdef(fileid,'psi'//nom(iQ)
+     .      ,'stream fn. '//znoml(itot,iQ),
+     .      zunites(itot,iQ),1,jjn,thoriid,llm,1,llm,zvertiid,
+     .      32,'ave(X)',dt_cum,dt_cum)
+      enddo
+
+
+c   Declarations pour les champs de transport d'air
+c      print*,'3HISTDEF'
+      call histdef(fileid, 'masse', 'masse',
+     .             'kg', 1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', dt_cum, dt_cum)
+      call histdef(fileid, 'v', 'v',
+     .             'm/s', 1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', dt_cum, dt_cum)
+c   Declarations pour les fonctions de courant
+c      print*,'4HISTDEF'
+          call histdef(fileid,'psi','stream fn. MMC ','mega t/s',
+     .      1,jjn,thoriid,llm,1,llm,zvertiid,
+     .      32,'ave(X)',dt_cum,dt_cum)
+
+
+c   Declaration des champs 1D de transport en latitude
+c      print*,'5HISTDEF'
+      do iQ=1,nQ
+         do itr=2,ntr
+            call histdef(fileid,'a'//znom(itr,iQ),znoml(itr,iQ),
+     .        zunites(itr,iQ),1,jjn,thoriid,1,1,1,-99,
+     .        32,'ave(X)',dt_cum,dt_cum)
+         enddo
+      enddo
+
+
+c      print*,'8HISTDEF'
+               CALL histend(fileid)
+
+!$OMP END MASTER
+!$OMP BARRIER
+      endif
+
+
+c=====================================================================
+c   Calcul des champs dynamiques
+c   ----------------------------
+
+      jjb=jj_begin
+      jje=jj_end
+    
+c   énergie cinétique
+!      ucont(:,jjb:jje,:)=0
+
+      call Register_Hallo(ucov,ip1jmp1,llm,1,1,1,1,Req)
+      call Register_Hallo(vcov,ip1jm,llm,1,1,1,1,Req)
+      call SendRequest(Req)
+c$OMP BARRIER
+      call WaitRequest(Req)
+c$OMP BARRIER
+
+      CALL covcont_p(llm,ucov,vcov,ucont,vcont)
+      CALL enercin_p(vcov,ucov,vcont,ucont,ecin)
+
+c   moment cinétique
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,llm
+         ang(:,jjb:jje,l)=ucov(:,jjb:jje,l)+constang(:,jjb:jje)
+         unat(:,jjb:jje,l)=ucont(:,jjb:jje,l)*cu(:,jjb:jje)
+      enddo
+!$OMP END DO
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        Q(:,jjb:jje,l,itemp)=teta(:,jjb:jje,l)*pk(:,jjb:jje,l)/cpp
+        Q(:,jjb:jje,l,igeop)=phi(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iecin)=ecin(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iang)=ang(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iu)=unat(:,jjb:jje,l)
+        Q(:,jjb:jje,l,iovap)=trac(:,jjb:jje,l,1)
+        Q(:,jjb:jje,l,iun)=1.
+      ENDDO
+!$OMP END DO NOWAIT
+
+c=====================================================================
+c   Cumul
+c=====================================================================
+c
+      if(icum.EQ.0) then
+         jjb=jj_begin
+         jje=jj_end
+
+!$OMP MASTER
+         ps_cum(:,jjb:jje)=0.
+!$OMP END MASTER
+!$OMP BARRIER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          masse_cum(:,jjb:jje,l)=0.
+          flux_u_cum(:,jjb:jje,l)=0.
+          Q_cum(:,jjb:jje,l,:)=0.
+          flux_uQ_cum(:,jjb:jje,l,:)=0.
+          if (pole_sud) jje=jj_end-1
+          flux_v_cum(:,jjb:jje,l)=0.
+          flux_vQ_cum(:,jjb:jje,l,:)=0.
+        ENDDO
+!$OMP END DO NOWAIT
+      endif
+
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'dans bilan_dyn ',icum,'->',icum+1
+      icum=icum+1
+
+c   accumulation des flux de masse horizontaux
+      jjb=jj_begin
+      jje=jj_end
+
+!$OMP MASTER
+      ps_cum(:,jjb:jje)=ps_cum(:,jjb:jje)+ps(:,jjb:jje)
+!$OMP END MASTER
+!$OMP BARRIER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        masse_cum(:,jjb:jje,l)=masse_cum(:,jjb:jje,l)+masse(:,jjb:jje,l)
+        flux_u_cum(:,jjb:jje,l)=flux_u_cum(:,jjb:jje,l)
+     .                         +flux_u(:,jjb:jje,l)
+      ENDDO
+!$OMP END DO NOWAIT
+      
+      if (pole_sud) jje=jj_end-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       flux_v_cum(:,jjb:jje,l)=flux_v_cum(:,jjb:jje,l)
+     .                          +flux_v(:,jjb:jje,l)
+      ENDDO
+!$OMP END DO NOWAIT
+      
+      jjb=jj_begin
+      jje=jj_end
+
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          Q_cum(:,jjb:jje,l,iQ)=Q_cum(:,jjb:jje,l,iQ)
+     .                       +Q(:,jjb:jje,l,iQ)*masse(:,jjb:jje,l)
+        ENDDO
+!$OMP END DO NOWAIT
+      enddo
+
+c=====================================================================
+c  FLUX ET TENDANCES
+c=====================================================================
+
+c   Flux longitudinal
+c   -----------------
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            do j=jjb,jje
+               do i=1,iim
+                  flux_uQ_cum(i,j,l,iQ)=flux_uQ_cum(i,j,l,iQ)
+     s            +flux_u(i,j,l)*0.5*(Q(i,j,l,iQ)+Q(i+1,j,l,iQ))
+               enddo
+               flux_uQ_cum(iip1,j,l,iQ)=flux_uQ_cum(1,j,l,iQ)
+            enddo
+         enddo
+!$OMP END DO NOWAIT
+      enddo
+
+c    flux méridien
+c    -------------
+      do iQ=1,nQ
+        call Register_Hallo(Q(1,1,1,iQ),ip1jmp1,llm,0,1,1,0,Req)
+      enddo
+      call SendRequest(Req)
+!$OMP BARRIER      
+      call WaitRequest(Req)
+!$OMP BARRIER
+
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            do j=jjb,jje
+               do i=1,iip1
+                  flux_vQ_cum(i,j,l,iQ)=flux_vQ_cum(i,j,l,iQ)
+     s            +flux_v(i,j,l)*0.5*(Q(i,j,l,iQ)+Q(i,j+1,l,iQ))
+               enddo
+            enddo
+         enddo
+!$OMP END DO NOWAIT
+      enddo
+
+
+c    tendances
+c    ---------
+
+c   convergence horizontale
+      call Register_Hallo(flux_uQ_cum,ip1jmp1,llm,2,2,2,2,Req)
+      call Register_Hallo(flux_vQ_cum,ip1jm,llm,2,2,2,2,Req)
+      call SendRequest(Req)
+!$OMP BARRIER      
+      call WaitRequest(Req)
+c$OMP BARRIER
+
+      call  convflu_p(flux_uQ_cum,flux_vQ_cum,llm*nQ,dQ)
+
+c   calcul de la vitesse verticale
+      call Register_Hallo(flux_u_cum,ip1jmp1,llm,2,2,2,2,Req)
+      call Register_Hallo(flux_v_cum,ip1jm,llm,2,2,2,2,Req)
+      call SendRequest(Req)
+!$OMP BARRIER      
+      call WaitRequest(Req)
+c$OMP BARRIER
+
+      call convmas_p(flux_u_cum,flux_v_cum,convm)
+      CALL vitvert_p(convm,w)
+!$OMP BARRIER      
+
+      jjb=jj_begin
+      jje=jj_end
+
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            IF (l<llm) THEN
+              do j=jjb,jje
+                 do i=1,iip1
+                    ww=-0.5*w(i,j,l+1)*(Q(i,j,l,iQ)+Q(i,j,l+1,iQ))
+                    dQ(i,j,l  ,iQ)=dQ(i,j,l  ,iQ)-ww
+                    dQ(i,j,l+1,iQ)=dQ(i,j,l+1,iQ)+ww
+                 enddo
+              enddo
+            ENDIF
+            IF (l>2) THEN
+              do j=jjb,jje
+                do i=1,iip1
+                  ww=-0.5*w(i,j,l)*(Q(i,j,l-1,iQ)+Q(i,j,l,iQ))
+                  dQ(i,j,l,iQ)=dQ(i,j,l,iQ)+ww
+                enddo
+              enddo
+            ENDIF
+         enddo
+!$OMP ENDDO NOWAIT 
+      enddo
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'Apres les calculs fait a chaque pas'
+c=====================================================================
+c   PAS DE TEMPS D'ECRITURE
+c=====================================================================
+      if (icum.eq.ncum) then
+c=====================================================================
+
+      IF (prt_level > 5)
+     . WRITE(lunout,*)'Pas d ecriture'
+
+      jjb=jj_begin
+      jje=jj_end
+
+c   Normalisation
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+          Q_cum(:,jjb:jje,l,iQ)=Q_cum(:,jjb:jje,l,iQ) 
+     .                                /masse_cum(:,jjb:jje,l)
+        enddo
+!$OMP ENDDO NOWAIT 
+      enddo
+
+      zz=1./REAL(ncum)
+
+!$OMP MASTER
+      ps_cum(:,jjb:jje)=ps_cum(:,jjb:jje)*zz
+!$OMP END MASTER
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        masse_cum(:,jjb:jje,l)=masse_cum(:,jjb:jje,l)*zz
+        flux_u_cum(:,jjb:jje,l)=flux_u_cum(:,jjb:jje,l)*zz
+        flux_uQ_cum(:,jjb:jje,l,:)=flux_uQ_cum(:,jjb:jje,l,:)*zz
+        dQ(:,jjb:jje,l,:)=dQ(:,jjb:jje,l,:)*zz
+      ENDDO
+!$OMP ENDDO NOWAIT 
+         
+      
+      IF (pole_sud) jje=jj_end-1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        flux_v_cum(:,jjb:jje,l)=flux_v_cum(:,jjb:jje,l)*zz
+        flux_vQ_cum(:,jjb:jje,l,:)=flux_vQ_cum(:,jjb:jje,l,:)*zz
+      ENDDO
+!$OMP ENDDO
+
+      jjb=jj_begin
+      jje=jj_end
+
+
+c   A retravailler eventuellement
+c   division de dQ par la masse pour revenir aux bonnes grandeurs
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+           dQ(:,jjb:jje,l,iQ)=dQ(:,jjb:jje,l,iQ)/masse_cum(:,jjb:jje,l)
+        ENDDO
+!$OMP ENDDO NOWAIT 
+      enddo
+ 
+c=====================================================================
+c   Transport méridien
+c=====================================================================
+
+c   cumul zonal des masses des mailles
+c   ----------------------------------
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+          zv(jjb:jje,l)=0.
+          zmasse(jjb:jje,l)=0.
+        ENDDO
+!$OMP ENDDO NOWAIT 
+
+      call Register_Hallo(masse_cum,ip1jmp1,llm,1,1,1,1,Req)
+      do iQ=1,nQ
+        call Register_Hallo(Q_cum(1,1,1,iQ),ip1jmp1,llm,0,1,1,0,Req)
+      enddo
+
+      call SendRequest(Req)
+!$OMP BARRIER
+      call WaitRequest(Req)
+c$OMP BARRIER
+
+      call massbar_p(masse_cum,massebx,masseby)
+      
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,llm
+         do j=jjb,jje
+            do i=1,iim
+               zmasse(j,l)=zmasse(j,l)+masseby(i,j,l)
+               zv(j,l)=zv(j,l)+flux_v_cum(i,j,l)
+            enddo
+            zfactv(j,l)=cv(1,j)/zmasse(j,l)
+         enddo
+      enddo
+!$OMP ENDDO 
+
+c     print*,'3OK'
+c   --------------------------------------------------------------
+c   calcul de la moyenne zonale du transport :
+c   ------------------------------------------
+c
+c                                     --
+c TOT : la circulation totale       [ vq ]
+c
+c                                      -     -
+c MMC : mean meridional circulation [ v ] [ q ]
+c
+c                                     ----      --       - -
+c TRS : transitoires                [ v'q'] = [ vq ] - [ v q ]
+c
+c                                     - * - *       - -       -     -
+c STT : stationaires                [ v   q   ] = [ v q ] - [ v ] [ q ]
+c
+c                                              - -
+c    on utilise aussi l'intermediaire TMP :  [ v q ]
+c
+c    la variable zfactv transforme un transport meridien cumule
+c    en kg/s * unte-du-champ-transporte en m/s * unite-du-champ-transporte
+c
+c   --------------------------------------------------------------
+
+
+c   ----------------------------------------
+c   Transport dans le plan latitude-altitude
+c   ----------------------------------------
+
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+      zvQ=0.
+      psiQ=0.
+      do iQ=1,nQ
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         do l=1,llm
+            zvQtmp(:,l)=0.
+            do j=jjb,jje
+c              print*,'j,l,iQ=',j,l,iQ
+c   Calcul des moyennes zonales du transort total et de zvQtmp
+               do i=1,iim
+                  zvQ(j,l,itot,iQ)=zvQ(j,l,itot,iQ)
+     s                            +flux_vQ_cum(i,j,l,iQ)
+                  zqy=      0.5*(Q_cum(i,j,l,iQ)*masse_cum(i,j,l)+
+     s                           Q_cum(i,j+1,l,iQ)*masse_cum(i,j+1,l))
+                  zvQtmp(j,l)=zvQtmp(j,l)+flux_v_cum(i,j,l)*zqy
+     s             /(0.5*(masse_cum(i,j,l)+masse_cum(i,j+1,l)))
+                  zvQ(j,l,iave,iQ)=zvQ(j,l,iave,iQ)+zqy
+               enddo
+c              print*,'aOK'
+c   Decomposition
+               zvQ(j,l,iave,iQ)=zvQ(j,l,iave,iQ)/zmasse(j,l)
+               zvQ(j,l,itot,iQ)=zvQ(j,l,itot,iQ)*zfactv(j,l)
+               zvQtmp(j,l)=zvQtmp(j,l)*zfactv(j,l)
+               zvQ(j,l,immc,iQ)=zv(j,l)*zvQ(j,l,iave,iQ)*zfactv(j,l)
+               zvQ(j,l,itrs,iQ)=zvQ(j,l,itot,iQ)-zvQtmp(j,l)
+               zvQ(j,l,istn,iQ)=zvQtmp(j,l)-zvQ(j,l,immc,iQ)
+            enddo
+         enddo
+!$OMP ENDDO NOWAIT 
+c   fonction de courant meridienne pour la quantite Q
+!$OMP BARRIER
+!$OMP MASTER
+         do l=llm,1,-1
+            do j=jjb,jje
+               psiQ(j,l,iQ)=psiQ(j,l+1,iQ)+zvQ(j,l,itot,iQ)
+            enddo
+         enddo
+!$OMP END MASTER
+!$OMP BARRIER
+      enddo ! of do iQ=1,nQ
+
+c   fonction de courant pour la circulation meridienne moyenne
+!$OMP BARRIER
+!$OMP MASTER
+      psi(jjb:jje,:)=0.
+      do l=llm,1,-1
+         do j=jjb,jje
+            psi(j,l)=psi(j,l+1)+zv(j,l)
+            zv(j,l)=zv(j,l)*zfactv(j,l)
+         enddo
+      enddo
+!$OMP END MASTER
+!$OMP BARRIER
+
+c     print*,'4OK'
+c   sorties proprement dites
+!$OMP MASTER      
+      if (i_sortie.eq.1) then
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      if (pole_sud) jje=jj_end-1
+      if (pole_sud) jjn=jj_nb-1
+      
+      do iQ=1,nQ
+         do itr=1,ntr
+            call histwrite(fileid,znom(itr,iQ),itau,
+     s                     zvQ(jjb:jje,:,itr,iQ)
+     s                     ,jjn*llm,ndex3d)
+         enddo
+         call histwrite(fileid,'psi'//nom(iQ),
+     s                  itau,psiQ(jjb:jje,1:llm,iQ)
+     s                  ,jjn*llm,ndex3d)
+      enddo
+      call histwrite(fileid,'masse',itau,zmasse(jjb:jje,1:llm)
+     s   ,jjn*llm,ndex3d)
+      call histwrite(fileid,'v',itau,zv(jjb:jje,1:llm)
+     s   ,jjn*llm,ndex3d)
+      psi(jjb:jje,:)=psi(jjb:jje,:)*1.e-9
+      call histwrite(fileid,'psi',itau,psi(jjb:jje,1:llm),
+     s               jjn*llm,ndex3d)
+
+      endif
+
+
+c   -----------------
+c   Moyenne verticale
+c   -----------------
+
+      zamasse(jjb:jje)=0.
+      do l=1,llm
+         zamasse(jjb:jje)=zamasse(jjb:jje)+zmasse(jjb:jje,l)
+      enddo
+     
+      zavQ(jjb:jje,:,:)=0.
+      do iQ=1,nQ
+         do itr=2,ntr
+            do l=1,llm
+               zavQ(jjb:jje,itr,iQ)=zavQ(jjb:jje,itr,iQ)
+     s                             +zvQ(jjb:jje,l,itr,iQ)
+     s                             *zmasse(jjb:jje,l)
+            enddo
+            zavQ(jjb:jje,itr,iQ)=zavQ(jjb:jje,itr,iQ)/zamasse(jjb:jje)
+            call histwrite(fileid,'a'//znom(itr,iQ),itau,
+     s                     zavQ(jjb:jje,itr,iQ),jjn*llm,ndex3d)
+         enddo
+      enddo
+!$OMP END MASTER
+!$OMP BARRIER
+c     on doit pouvoir tracer systematiquement la fonction de courant.
+
+c=====================================================================
+c/////////////////////////////////////////////////////////////////////
+      icum=0                  !///////////////////////////////////////
+      endif ! icum.eq.ncum    !///////////////////////////////////////
+c/////////////////////////////////////////////////////////////////////
+c=====================================================================
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/caladvtrac_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/caladvtrac_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/caladvtrac_p.F	(revision 3330)
@@ -0,0 +1,138 @@
+!
+! $Id$
+!
+c
+c
+            SUBROUTINE caladvtrac_p(q,pbaru,pbarv ,
+     *                   p ,masse, dq ,  teta,
+     *                   flxw, pk, iapptrac)
+      USE parallel_lmdz
+      USE infotrac, ONLY : nqtot
+      USE control_mod, ONLY : iapp_tracvl,planet_type
+      USE comconst_mod, ONLY: dtvr
+c
+      IMPLICIT NONE
+c
+c     Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron  
+c
+c     F.Codron (10/99) : ajout humidite specifique pour eau vapeur
+c=======================================================================
+c
+c       Shema de  Van Leer
+c
+c=======================================================================
+
+
+#include "dimensions.h"
+#include "paramet.h"
+
+c   Arguments:
+c   ----------
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm),masse(ip1jmp1,llm)
+      REAL p( ip1jmp1,llmp1),q( ip1jmp1,llm,nqtot)
+      real :: dq( ip1jmp1,llm,nqtot)
+      REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
+      REAL               :: flxw(ip1jmp1,llm)
+
+      integer ijb,ije,jjb,jje
+
+c  ..................................................................
+c
+c  .. dq n'est utilise et dimensionne que pour l'eau  vapeur et liqu.
+c
+c  ..................................................................
+c
+c   Local:
+c   ------
+
+      INTEGER ij,l, iq, iapptrac
+      REAL finmasse(ip1jmp1,llm), dtvrtrac
+      
+cc
+c
+C initialisation
+cym      ijb=ij_begin
+cym      ije=ij_end
+
+      
+cym      dq(ijb:ije,1:llm,1:2)=q(ijb:ije,1:llm,1:2)
+
+c  test des valeurs minmax
+cc        CALL minmaxq(q(1,1,1),1.e33,-1.e33,'Eau vapeur (a) ')
+cc        CALL minmaxq(q(1,1,2),1.e33,-1.e33,'Eau liquide(a) ')
+
+c   advection
+c      print *,'appel a advtrac'
+
+      CALL advtrac_p( pbaru,pbarv, 
+     *             p,  masse,q,iapptrac, teta,
+     .             flxw, pk)
+
+         goto 9999
+         IF( iapptrac.EQ.iapp_tracvl ) THEN
+c
+cc          CALL minmaxq(q(1,1,1),1.e33,-1.e33,'Eau vapeur     ')
+cc          CALL minmaxq(q(1,1,2),1.e33,-1.e33,'Eau liquide    ')
+
+cc     ....  Calcul  de deltap  qu'on stocke dans finmasse   ...
+c
+          DO l = 1, llm
+           DO ij = ijb, ije
+             finmasse(ij,l) =  p(ij,l) - p(ij,l+1) 
+           ENDDO
+          ENDDO
+
+	  if (planet_type.eq."earth") then
+! Earth-specific treatment of first 2 tracers (water)
+            CALL qminimum_p( q, 2, finmasse )
+	  endif
+
+
+cym   --> le reste ne set a rien
+          goto 9999
+	  
+c          CALL SCOPY   ( ip1jmp1*llm, masse, 1, finmasse,       1 )
+          finmasse(ijb:ije,:)=masse(ijb:ije,:)         
+          
+          jjb=jj_begin
+          jje=jj_end
+          CALL filtreg_p ( finmasse ,jjb,jje,  jjp1,  llm, 
+     *                     -2, 2, .TRUE., 1 )
+c
+c   *****  Calcul de dq pour l'eau , pour le passer a la physique ******
+c   ********************************************************************
+c
+          dtvrtrac = iapp_tracvl * dtvr
+c
+           DO iq = 1 , 2
+            DO l = 1 , llm
+             DO ij = ijb,ije
+             dq(ij,l,iq) = ( q(ij,l,iq) - dq(ij,l,iq) ) * finmasse(ij,l)
+     *                               /  dtvrtrac
+             ENDDO
+            ENDDO
+           ENDDO
+c
+         ELSE
+cym   --> le reste ne set a rien
+          goto 9999
+	  
+           DO iq = 1 , 2
+           DO l  = 1, llm
+             DO ij = ijb,ije
+              dq(ij,l,iq)  = 0.
+             ENDDO
+           ENDDO
+           ENDDO
+
+         ENDIF
+c
+
+
+c  ... On appelle  qminimum uniquement  pour l'eau vapeur et liquide  ..
+
+ 
+ 9999 RETURN
+      END
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/caldyn_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/caldyn_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/caldyn_p.F	(revision 3330)
@@ -0,0 +1,212 @@
+!
+! $Id$
+!
+#undef DEBUG_IO
+!#define DEBUG_IO
+
+      SUBROUTINE caldyn_p
+     $ (itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
+     $  phi,conser,du,dv,dteta,dp,w,pbaru,pbarv,time )
+      USE parallel_lmdz
+      USE Write_Field_p
+      USE comvert_mod, ONLY: ap, bp
+      
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!  Auteur :  P. Le Van
+!
+!   Objet:
+!   ------
+!
+!   Calcul des tendances dynamiques.
+!
+! Modif 04/93 F.Forget
+!=======================================================================
+
+!-----------------------------------------------------------------------
+!   0. Declarations:
+!   ----------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+!   Arguments:
+!   ----------
+
+      LOGICAL,INTENT(IN) :: conser ! triggers printing some diagnostics
+      INTEGER,INTENT(IN) :: itau ! time step index
+      REAL,INTENT(IN) :: vcov(ip1jm,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ip1jmp1,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ip1jmp1,llm) ! potential temperature
+      REAL,INTENT(IN) :: ps(ip1jmp1) ! surface pressure
+      REAL,INTENT(IN) :: phis(ip1jmp1) ! geopotential at the surface
+      REAL,INTENT(IN) :: pk(ip1jmp1,llm) ! Exner at mid-layer
+      REAL,INTENT(IN) :: pkf(ip1jmp1,llm) ! filtered Exner
+      REAL,INTENT(IN) :: phi(ip1jmp1,llm) ! geopotential
+      REAL,INTENT(OUT) :: masse(ip1jmp1,llm) ! air mass
+      REAL,INTENT(OUT) :: dv(ip1jm,llm) ! tendency on vcov
+      REAL,INTENT(OUT) :: du(ip1jmp1,llm) ! tendency on ucov
+      REAL,INTENT(OUT) :: dteta(ip1jmp1,llm) ! tenddency on teta
+      REAL,INTENT(OUT) :: dp(ip1jmp1) ! tendency on ps
+      REAL,INTENT(OUT) :: w(ip1jmp1,llm) ! vertical velocity
+      REAL,INTENT(OUT) :: pbaru(ip1jmp1,llm) ! mass flux in the zonal direction
+      REAL,INTENT(OUT) :: pbarv(ip1jm,llm) ! mass flux in the meridional direction
+      REAL,INTENT(IN) :: time ! current time
+
+!   Local:
+!   ------
+
+      REAL,SAVE :: vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+      REAL,SAVE :: ang(ip1jmp1,llm)
+      REAL,SAVE :: p(ip1jmp1,llmp1)
+      REAL,SAVE :: massebx(ip1jmp1,llm),masseby(ip1jm,llm)
+      REAL,SAVE :: psexbarxy(ip1jm)
+      REAL,SAVE :: vorpot(ip1jm,llm)
+      REAL,SAVE :: ecin(ip1jmp1,llm)
+      REAL,SAVE :: bern(ip1jmp1,llm)
+      REAL,SAVE :: massebxy(ip1jm,llm)
+      REAL,SAVE :: convm(ip1jmp1,llm)
+      INTEGER   ij,l,ijb,ije,ierr
+
+!-----------------------------------------------------------------------
+!   Compute dynamical tendencies:
+!--------------------------------
+
+      ! compute contravariant winds ucont() and vcont
+      CALL covcont_p  ( llm    , ucov    , vcov , ucont, vcont        )
+      ! compute pressure p()
+      CALL pression_p ( ip1jmp1, ap      , bp   ,  ps  , p            )
+!ym      CALL psextbar (   ps   , psexbarxy                          )
+!$OMP BARRIER
+      ! compute mass in each atmospheric mesh: masse()
+      CALL massdair_p (    p   , masse                                )
+      ! compute X and Y-averages of mass, massebx() and masseby()
+      CALL massbar_p  (   masse, massebx , masseby                    )
+      ! compute XY-average of mass, massebxy()
+      call massbarxy_p(   masse, massebxy                             )
+      ! compute mass fluxes pbaru() and pbarv()
+      CALL flumass_p  ( massebx, masseby , vcont, ucont ,pbaru, pbarv )
+      ! compute dteta() , horizontal converging flux of theta
+      CALL dteta1_p   (   teta , pbaru   , pbarv, dteta               )
+      ! compute convm(), horizontal converging flux of mass
+      CALL convmas1_p  (   pbaru, pbarv   , convm                      )
+!$OMP BARRIER      
+      CALL convmas2_p  (   convm                      )
+!$OMP BARRIER
+#ifdef DEBUG_IO
+!$OMP BARRIER
+!$OMP MASTER
+      call WriteField_p('ucont',reshape(ucont,(/iip1,jmp1,llm/)))
+      call WriteField_p('vcont',reshape(vcont,(/iip1,jjm,llm/)))
+      call WriteField_p('p',reshape(p,(/iip1,jmp1,llmp1/)))
+      call WriteField_p('masse',reshape(masse,(/iip1,jmp1,llm/)))
+      call WriteField_p('massebx',reshape(massebx,(/iip1,jmp1,llm/)))
+      call WriteField_p('masseby',reshape(masseby,(/iip1,jjm,llm/)))
+      call WriteField_p('massebxy',reshape(massebxy,(/iip1,jjm,llm/)))
+      call WriteField_p('pbaru',reshape(pbaru,(/iip1,jmp1,llm/)))
+      call WriteField_p('pbarv',reshape(pbarv,(/iip1,jjm,llm/)))
+      call WriteField_p('dteta',reshape(dteta,(/iip1,jmp1,llm/)))
+      call WriteField_p('convm',reshape(convm,(/iip1,jmp1,llm/)))
+!$OMP END MASTER
+!$OMP BARRIER
+#endif      
+
+!$OMP BARRIER
+!$OMP MASTER
+      ijb=ij_begin
+      ije=ij_end
+      ! compute pressure variation due to mass convergence
+      DO ij =ijb, ije
+         dp( ij ) = convm( ij,1 ) / airesurg( ij )
+      ENDDO
+!$OMP END MASTER
+!$OMP BARRIER
+!$OMP FLUSH
+      
+      ! compute vertical velocity w()
+      CALL vitvert_p ( convm  , w                                  )
+      ! compute potential vorticity vorpot()
+      CALL tourpot_p ( vcov   , ucov  , massebxy  , vorpot         )
+      ! compute rotation induced du() and dv()
+      CALL dudv1_p   ( vorpot , pbaru , pbarv     , du     , dv    )
+
+#ifdef DEBUG_IO      
+!$OMP BARRIER
+!$OMP MASTER
+      call WriteField_p('w',reshape(w,(/iip1,jmp1,llm/)))
+      call WriteField_p('vorpot',reshape(vorpot,(/iip1,jjm,llm/)))
+      call WriteField_p('du',reshape(du,(/iip1,jmp1,llm/)))
+      call WriteField_p('dv',reshape(dv,(/iip1,jjm,llm/)))
+!$OMP END MASTER
+!$OMP BARRIER
+#endif      
+      
+      ! compute kinetic energy ecin()
+      CALL enercin_p ( vcov   , ucov  , vcont     , ucont  , ecin  )
+      ! compute Bernouilli function bern()
+      CALL bernoui_p ( ip1jmp1, llm   , phi       , ecin   , bern  )
+      ! compute and add du() and dv() contributions from Bernouilli and pressure
+      CALL dudv2_p   ( teta   , pkf   , bern      , du     , dv    )
+
+#ifdef DEBUG_IO
+!$OMP BARRIER
+!$OMP MASTER
+      call WriteField_p('ecin',reshape(ecin,(/iip1,jmp1,llm/)))
+      call WriteField_p('bern',reshape(bern,(/iip1,jmp1,llm/)))
+      call WriteField_p('du',reshape(du,(/iip1,jmp1,llm/)))
+      call WriteField_p('dv',reshape(dv,(/iip1,jjm,llm/)))
+      call WriteField_p('pkf',reshape(pkf,(/iip1,jmp1,llm/)))
+!$OMP END MASTER
+!$OMP BARRIER
+#endif
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud) ije=ij_end
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+         DO ij=ijb,ije
+            ang(ij,l) = ucov(ij,l) + constang(ij)
+        ENDDO
+      ENDDO
+!$OMP END DO
+
+      ! compute vertical advection contributions to du(), dv() and dteta()
+      CALL advect_new_p(ang,vcov,teta,w,massebx,masseby,du,dv,dteta) 
+
+!  WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi 
+!          probablement. Observe sur le code compile avec pgf90 3.0-1 
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l = 1, llm
+         DO ij = ijb, ije, iip1
+           IF( dv(ij,l).NE.dv(ij+iim,l) )  THEN
+!         PRINT *,'!!!ATTENTION!!! probleme de periodicite sur vcov',  
+!    ,   ' dans caldyn'
+!         PRINT *,' l,  ij = ', l, ij, ij+iim,dv(ij+iim,l),dv(ij,l)
+          dv(ij+iim,l) = dv(ij,l)
+          endif
+         enddo
+      enddo
+!$OMP END DO NOWAIT      
+!-----------------------------------------------------------------------
+!   Output some control variables:
+!---------------------------------
+
+      IF( conser )  THEN
+! ym ---> exige communication collective ( aussi dans advect)
+        CALL sortvarc
+     & ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )
+
+      ENDIF
+
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/conf_gcm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/conf_gcm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/conf_gcm.F90	(revision 3330)
@@ -0,0 +1,977 @@
+
+! $Id$
+
+SUBROUTINE conf_gcm( tapedef, etatinit )
+
+  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
+  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
+                          iflag_top_bound, mode_top_bound, tau_top_bound, &
+                          ngroup
+  USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, &
+                       ok_guide, ok_limit, ok_strato, purmats, read_start, &
+                       ysinus
+  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
+                       alphax,alphay,taux,tauy
+  USE temps_mod, ONLY: calend
+
+  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 .
+
+  LOGICAL,INTENT(IN) :: etatinit
+  INTEGER,INTENT(IN) :: tapedef
+
+  !   Declarations :
+  !   --------------
+  include "dimensions.h"
+  include "paramet.h"
+  include "comdissnew.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 )
+
+  ! ngroup
+  ngroup=3
+  CALL getin('ngroup',ngroup)
+
+  ! 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/IPSLCM5A2.1_ISO/libf/dyn3dpar/convflu_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convflu_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convflu_p.F	(revision 3330)
@@ -0,0 +1,84 @@
+      SUBROUTINE convflu_p( xflu,yflu,nbniv,convfl )
+c
+c  P. Le Van
+c
+c
+c    *******************************************************************
+c  ... calcule la (convergence horiz. * aire locale)du flux ayant pour
+c      composantes xflu et yflu ,variables extensives .  ......
+c    *******************************************************************
+c      xflu , yflu et nbniv sont des arguments d'entree pour le s-pg ..
+c      convfl                est  un argument de sortie pour le s-pg .
+c
+c     njxflu  est le nombre de lignes de latitude de xflu, 
+c     ( = jjm ou jjp1 )
+c     nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      REAL       xflu,yflu,convfl,convpn,convps
+      INTEGER    l,ij,nbniv
+      DIMENSION  xflu( ip1jmp1,nbniv ),yflu( ip1jm,nbniv ) ,
+     *         convfl( ip1jmp1,nbniv )
+c
+      INTEGER ijb,ije
+      EXTERNAL   SSUM
+      REAL       SSUM
+c
+c
+#include "comgeom.h"
+c
+     
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+      DO 5 l = 1,nbniv
+c
+        ijb=ij_begin
+        ije=ij_end+iip1
+      
+        IF (pole_nord) ijb=ij_begin+iip1
+        IF (pole_sud)  ije=ij_end-iip1
+        
+        DO 2  ij = ijb , ije - 1
+          convfl(ij+1,l) = xflu(ij,l) - xflu(ij+ 1,l)   +
+     *                     yflu(ij +1,l ) - yflu( ij -iim,l )
+   2    CONTINUE
+c
+c
+
+c     ....  correction pour  convfl( 1,j,l)  ......
+c     ....   convfl(1,j,l)= convfl(iip1,j,l) ...
+c
+CDIR$ IVDEP
+        DO 3 ij = ijb,ije,iip1
+          convfl( ij,l ) = convfl( ij + iim,l )
+   3    CONTINUE
+c
+c     ......  calcul aux poles  .......
+c
+        IF (pole_nord) THEN
+      
+          convpn =   SSUM( iim, yflu(     1    ,l ),  1 )
+        
+          DO ij = 1,iip1
+            convfl(ij,l) = convpn * aire(ij) / apoln
+          ENDDO
+        
+        ENDIF
+      
+        IF (pole_sud) THEN
+        
+          convps = - SSUM( iim, yflu( ip1jm-iim,l ),  1 )
+        
+          DO ij = 1,iip1
+            convfl(ij+ip1jm,l) = convps * aire(ij+ ip1jm) / apols
+          ENDDO
+        
+        ENDIF
+      
+   5  CONTINUE
+c$OMP END DO NOWAIT   
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas1_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas1_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas1_p.F	(revision 3330)
@@ -0,0 +1,60 @@
+      SUBROUTINE convmas1_p (pbaru, pbarv, convm )
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , F. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   ********************************************************************
+c   .... calcul de la convergence du flux de masse aux niveaux p ...
+c   ********************************************************************
+c
+c
+c     pbaru  et  pbarv  sont des arguments d'entree pour le s-pg  ....
+c      .....  convm      est  un argument de sortie pour le s-pg  ....
+c
+c    le calcul se fait de haut en bas, 
+c    la convergence de masse au niveau p(llm+1) est egale a 0. et
+c    n'est pas stockee dans le tableau convm .
+c
+c
+c=======================================================================
+c
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL, target :: convm(  ip1jmp1,llm )
+      INTEGER   l,ij
+
+      INTEGER ijb,ije,jjb,jje
+ 
+      
+c-----------------------------------------------------------------------
+c    ....  calcul de - (d(pbaru)/dx + d(pbarv)/dy ) ......
+
+      CALL  convflu_p( pbaru, pbarv, llm, convm )
+
+c-----------------------------------------------------------------------
+c   filtrage:
+c   ---------
+       
+       jjb=jj_begin
+       jje=jj_end+1
+       if (pole_sud) jje=jj_end
+ 
+       CALL filtreg_p( convm, jjb, jje, jjp1, llm, 2, 2, .true., 1 )
+
+c    integration de la convergence de masse de haut  en bas ......
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas2_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas2_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas2_p.F	(revision 3330)
@@ -0,0 +1,54 @@
+      SUBROUTINE convmas2_p ( convm )
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , F. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   ********************************************************************
+c   .... calcul de la convergence du flux de masse aux niveaux p ...
+c   ********************************************************************
+c
+c
+c     pbaru  et  pbarv  sont des arguments d'entree pour le s-pg  ....
+c      .....  convm      est  un argument de sortie pour le s-pg  ....
+c
+c    le calcul se fait de haut en bas, 
+c    la convergence de masse au niveau p(llm+1) est egale a 0. et
+c    n'est pas stockee dans le tableau convm .
+c
+c
+c=======================================================================
+c
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL :: convm(  ip1jmp1,llm )
+      INTEGER   l,ij
+      INTEGER ijb,ije,jjb,jje
+ 
+c$OMP MASTER
+c    integration de la convergence de masse de haut  en bas ......
+       ijb=ij_begin
+       ije=ij_end+iip1
+       if (pole_sud) ije=ij_end
+            
+      DO      l      = llmm1, 1, -1
+        DO    ij     = ijb, ije
+         convm(ij,l) = convm(ij,l) + convm(ij,l+1)
+        ENDDO
+      ENDDO
+c
+c$OMP END MASTER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/convmas_p.F	(revision 3330)
@@ -0,0 +1,69 @@
+      SUBROUTINE convmas_p (pbaru, pbarv, convm )
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , F. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   ********************************************************************
+c   .... calcul de la convergence du flux de masse aux niveaux p ...
+c   ********************************************************************
+c
+c
+c     pbaru  et  pbarv  sont des arguments d'entree pour le s-pg  ....
+c      .....  convm      est  un argument de sortie pour le s-pg  ....
+c
+c    le calcul se fait de haut en bas, 
+c    la convergence de masse au niveau p(llm+1) est egale a 0. et
+c    n'est pas stockee dans le tableau convm .
+c
+c
+c=======================================================================
+c
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
+      REAL, target :: convm(  ip1jmp1,llm )
+      INTEGER   l,ij
+
+      INTEGER ijb,ije,jjb,jje
+ 
+      
+c-----------------------------------------------------------------------
+c    ....  calcul de - (d(pbaru)/dx + d(pbarv)/dy ) ......
+
+      CALL  convflu_p( pbaru, pbarv, llm, convm )
+
+c-----------------------------------------------------------------------
+c   filtrage:
+c   ---------
+       
+       jjb=jj_begin
+       jje=jj_end+1
+       if (pole_sud) jje=jj_end
+ 
+       CALL filtreg_p( convm, jjb, jje, jjp1, llm, 2, 2, .true., 1 )
+
+c    integration de la convergence de masse de haut  en bas ......
+       ijb=ij_begin
+       ije=ij_end+iip1
+       if (pole_sud) ije=ij_end
+            
+      DO      l      = llmm1, 1, -1
+        DO    ij     = ijb, ije
+         convm(ij,l) = convm(ij,l) + convm(ij,l+1)
+        ENDDO
+      ENDDO
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covcont_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covcont_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covcont_p.F	(revision 3330)
@@ -0,0 +1,60 @@
+      SUBROUTINE covcont_p (klevel,ucov, vcov, ucont, vcont )
+      USE parallel_lmdz, ONLY: ij_begin,ij_end,OMP_CHUNK,
+     &                         pole_nord, pole_sud
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c  *********************************************************************
+c    calcul des compos. contravariantes a partir des comp.covariantes
+c  ********************************************************************
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
+      REAL ucont( ip1jmp1,klevel ), vcont( ip1jm,klevel )
+      INTEGER   l,ij
+      INTEGER ijb_u,ijb_v,ije_u,ije_v
+
+      
+      ijb_u=ij_begin-iip1
+      ijb_v=ij_begin-iip1
+      ije_u=ij_end+iip1
+      ije_v=ij_end+iip1
+      
+      if (pole_nord) then 
+        ijb_u=ij_begin+iip1
+        ijb_v=ij_begin
+      endif
+      
+      if (pole_sud) then
+        ije_u=ij_end-iip1
+        ije_v=ij_end-iip1
+      endif
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO 10 l = 1,klevel
+
+      DO 2  ij = ijb_u,ije_u
+      ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )
+   2  CONTINUE
+
+      DO 4 ij = ijb_v,ije_v
+      vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )
+   4  CONTINUE
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covnat.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covnat.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covnat.F	(revision 3330)
@@ -0,0 +1,49 @@
+!
+! $Header$
+!
+      SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  F Hourdin Phu LeVan
+c   -------
+c
+c   Objet:
+c   ------
+c
+c  *********************************************************************
+c    calcul des compos. naturelles a partir des comp.covariantes
+c  ********************************************************************
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
+      REAL unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
+      INTEGER   l,ij
+
+
+      DO l = 1,klevel
+         DO ij = 1, iip1
+            unat (ij,l) =0.
+         END DO
+
+         DO ij = iip2, ip1jm
+            unat( ij,l ) = ucov( ij,l ) / cu(ij)
+         ENDDO
+         DO ij = ip1jm+1, ip1jmp1  
+            unat (ij,l) =0.
+         END DO
+
+         DO ij = 1,ip1jm
+            vnat( ij,l ) = vcov( ij,l ) / cv(ij)
+         ENDDO
+
+      ENDDO
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covnat_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covnat_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/covnat_p.F	(revision 3330)
@@ -0,0 +1,76 @@
+!
+! $Header$
+!
+      SUBROUTINE covnat_p(klevel,ucov, vcov, unat, vnat )
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  F Hourdin Phu LeVan
+c   -------
+c
+c   Objet:
+c   ------
+c
+c  *********************************************************************
+c    calcul des compos. naturelles a partir des comp.covariantes
+c  ********************************************************************
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      INTEGER klevel
+      REAL ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
+      REAL unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
+      INTEGER   l,ij
+      INTEGER :: ijb,ije
+      
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      if (pole_nord) then
+        DO l = 1,klevel
+           DO ij = 1, iip1
+              unat (ij,l) =0.
+           END DO
+        ENDDO
+      endif
+
+      if (pole_sud) then
+        DO l = 1,klevel
+           DO ij = ip1jm+1, ip1jmp1  
+            unat (ij,l) =0.
+           END DO
+        ENDDO
+      endif
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO l = 1,klevel
+         DO ij = ijb, ije
+            unat( ij,l ) = ucov( ij,l ) / cu(ij)
+         ENDDO
+      END DO
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+     
+      DO l = 1,klevel
+         DO ij = ijb,ije
+            vnat( ij,l ) = vcov( ij,l ) / cv(ij)
+         ENDDO
+
+      ENDDO
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dissip_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dissip_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dissip_p.F	(revision 3330)
@@ -0,0 +1,215 @@
+!
+! $Id$
+!
+      SUBROUTINE dissip_p( vcov,ucov,teta,p, dv,du,dh )
+c
+      USE parallel_lmdz
+      USE write_field_p
+      USE comconst_mod, ONLY: dtdiss
+      IMPLICIT NONE
+
+
+c ..  Avec nouveaux operateurs star :  gradiv2 , divgrad2, nxgraro2  ...
+c                                 (  10/01/98  )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   Dissipation horizontale
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "comdissnew.h"
+#include "comdissipn.h"
+
+c   Arguments:
+c   ----------
+
+      REAL,INTENT(IN) :: vcov(ip1jm,llm) ! covariant meridional wind
+      REAL,INTENT(IN) :: ucov(ip1jmp1,llm) ! covariant zonal wind
+      REAL,INTENT(IN) :: teta(ip1jmp1,llm) ! potentail temperature
+      REAL,INTENT(IN) :: p(ip1jmp1,llmp1) ! pressure
+      ! tendencies (.../s) on covariant winds and potential temperature
+      REAL,INTENT(OUT) :: dv(ip1jm,llm)
+      REAL,INTENT(OUT) :: du(ip1jmp1,llm)
+      REAL,INTENT(OUT) :: dh(ip1jmp1,llm)
+
+c   Local:
+c   ------
+
+      REAL gdx(ip1jmp1,llm),gdy(ip1jm,llm)
+      REAL grx(ip1jmp1,llm),gry(ip1jm,llm)
+      REAL te1dt(llm),te2dt(llm),te3dt(llm)
+      REAL deltapres(ip1jmp1,llm)
+
+      INTEGER l,ij
+
+      REAL  SSUM
+      integer :: ijb,ije
+c-----------------------------------------------------------------------
+c   initialisations:
+c   ----------------
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+         te1dt(l) = tetaudiv(l) * dtdiss
+         te2dt(l) = tetaurot(l) * dtdiss
+         te3dt(l) = tetah(l)    * dtdiss
+      ENDDO
+c$OMP END DO NOWAIT
+c      CALL initial0( ijp1llm, du )
+c      CALL initial0( ijmllm , dv )
+c      CALL initial0( ijp1llm, dh )
+     
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+        du(ijb:ije,l)=0
+        dh(ijb:ije,l)=0
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+        dv(ijb:ije,l)=0
+      ENDDO
+c$OMP END DO NOWAIT
+     
+c-----------------------------------------------------------------------
+c   Calcul de la dissipation:
+c   -------------------------
+
+c   Calcul de la partie   grad  ( div ) :
+c   -------------------------------------
+      
+     
+      
+      IF(lstardis) THEN
+c      IF (.FALSE.) THEN
+         CALL gradiv2_p( llm,ucov,vcov,nitergdiv,gdx,gdy )
+      ELSE
+         CALL gradiv_p ( llm,ucov,vcov,nitergdiv,gdx,gdy )
+      ENDIF
+
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO l=1,llm
+         if (pole_nord) then
+           DO ij = 1, iip1
+              gdx(     ij ,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_sud) then
+           DO ij = 1, iip1
+              gdx(ij+ip1jm,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_nord) ijb=ij_begin+iip1
+         DO ij = ijb,ije
+            du(ij,l) = du(ij,l) - te1dt(l) *gdx(ij,l)
+         ENDDO
+
+         if (pole_nord) ijb=ij_begin
+         DO ij = ijb,ije
+            dv(ij,l) = dv(ij,l) - te1dt(l) *gdy(ij,l)
+         ENDDO
+
+       ENDDO
+c$OMP END DO NOWAIT
+c   calcul de la partie   n X grad ( rot ):
+c   ---------------------------------------
+
+      IF(lstardis) THEN
+c      IF (.FALSE.) THEN
+         CALL nxgraro2_p( llm,ucov, vcov, nitergrot,grx,gry )
+      ELSE
+         CALL nxgrarot_p( llm,ucov, vcov, nitergrot,grx,gry )
+      ENDIF
+
+
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+         
+         if (pole_nord) then
+           DO ij = 1, iip1
+              grx(ij,l) = 0.
+           ENDDO
+         endif
+         
+         if (pole_nord) ijb=ij_begin+iip1
+         DO ij = ijb,ije
+            du(ij,l) = du(ij,l) - te2dt(l) * grx(ij,l)
+         ENDDO
+         
+         if (pole_nord) ijb=ij_begin
+         DO ij =  ijb, ije
+            dv(ij,l) = dv(ij,l) - te2dt(l) * gry(ij,l)
+         ENDDO
+      
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   calcul de la partie   div ( grad ):
+c   -----------------------------------
+
+        
+      IF(lstardis) THEN
+c      IF (.FALSE.) THEN
+    
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       DO l = 1, llm
+          DO ij = ijb, ije
+            deltapres(ij,l) = AMAX1( 0.,  p(ij,l) - p(ij,l+1) )
+          ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+         CALL divgrad2_p( llm,teta, deltapres  ,niterh, gdx )
+      ELSE
+         CALL divgrad_p ( llm,teta, niterh, gdx        )
+      ENDIF
+
+c      call write_field3d_p('gdx2',reshape(gdx,(/iip1,jmp1,llm/)))
+c      stop
+
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1,llm
+         DO ij = ijb,ije
+            dh( ij,l ) = dh( ij,l ) - te3dt(l) * gdx( ij,l )
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/diverg_gam_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/diverg_gam_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/diverg_gam_p.F	(revision 3330)
@@ -0,0 +1,97 @@
+      SUBROUTINE diverg_gam_p(klevel,cuvscvgam,cvuscugam,unsairegam ,
+     *                       unsapolnga,unsapolsga,  x, y,  div )
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1)
+      REAL unsapolnga,unsapolsga
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+      INTEGER   l,ij
+c    ...................................................................
+c
+      EXTERNAL  SSUM
+      REAL      SSUM
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if(pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 10 l = 1,klevel
+c
+        DO  ij = ijb, ije - 1
+         div( ij + 1, l )     = (  
+     *  cvuscugam( ij+1 ) * x( ij+1,l ) - cvuscugam( ij ) * x( ij , l) +
+     *  cuvscvgam(ij-iim) * y(ij-iim,l) - cuvscvgam(ij+1) * y(ij+1,l) )* 
+     *         unsairegam( ij+1 )
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = ijb,ije,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+       if (pole_nord) then
+          DO  ij  = 1,iim
+           aiy1(ij) =    cuvscvgam(    ij       ) * y(     ij     , l )
+          ENDDO
+          sumypn = SSUM ( iim,aiy1,1 ) * unsapolnga
+c  
+          DO  ij = 1,iip1
+           div(     ij    , l ) = - sumypn 
+          ENDDO
+       endif
+        
+        if (pole_sud) then
+          DO  ij  = 1,iim
+           aiy2(ij) =    cuvscvgam( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+          ENDDO
+          sumyps = SSUM ( iim,aiy2,1 ) * unsapolsga
+c  
+          DO  ij = 1,iip1
+           div( ij + ip1jm, l ) =   sumyps 
+          ENDDO
+       endif
+  10  CONTINUE
+c$OMP END DO NOWAIT
+c
+
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/diverg_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/diverg_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/diverg_p.F	(revision 3330)
@@ -0,0 +1,106 @@
+      SUBROUTINE diverg_p(klevel,x,y,div)
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      INTEGER   l,ij
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+      INTEGER ijb,ije
+c    ...................................................................
+c
+      EXTERNAL  SSUM
+      REAL      SSUM
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if(pole_sud)  ije=ij_end-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 10 l = 1,klevel
+c
+        DO  ij = ijb, ije - 1
+         div( ij + 1, l )     =  
+     *   cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) +
+     *   cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) 
+        ENDDO
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = ijb,ije,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        if (pole_nord) then
+          DO  ij  = 1,iim
+           aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
+          ENDDO
+          sumypn = SSUM ( iim,aiy1,1 ) / apoln
+c
+          DO  ij = 1,iip1
+           div(     ij    , l ) = - sumypn
+          ENDDO
+        endif
+         
+       if (pole_sud) then
+          DO  ij  = 1,iim
+           aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+          ENDDO
+          sumyps = SSUM ( iim,aiy2,1 ) / apols
+c
+          DO  ij = 1,iip1
+           div( ij + ip1jm, l ) =   sumyps
+          ENDDO
+        endif
+
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+c
+
+ccc        CALL filtreg( div, jjp1, klevel, 2, 2, .TRUE., 1 )
+      
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l = 1, klevel
+           DO ij = ijb,ije
+            div(ij,l) = div(ij,l) * unsaire(ij) 
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divergf_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divergf_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divergf_p.F	(revision 3330)
@@ -0,0 +1,115 @@
+      SUBROUTINE divergf_p(klevel,x,y,div)
+c
+c     P. Le Van
+c
+c  *********************************************************************
+c  ... calcule la divergence a tous les niveaux d'1 vecteur de compos. 
+c     x et y...
+c              x et y  etant des composantes covariantes   ...
+c  *********************************************************************
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c      x  et  y  sont des arguments  d'entree pour le s-prog
+c        div      est  un argument  de sortie pour le s-prog
+c
+c
+c   ---------------------------------------------------------------------
+c
+c    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
+c
+c   ---------------------------------------------------------------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c    ..........          variables en arguments    ...................
+c
+      INTEGER klevel
+      REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
+      INTEGER   l,ij
+c
+c    ...............     variables  locales   .........................
+
+      REAL aiy1( iip1 ) , aiy2( iip1 )
+      REAL sumypn,sumyps
+c    ...................................................................
+c
+      EXTERNAL  SSUM
+      REAL      SSUM
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if(pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO 10 l = 1,klevel
+c
+        DO  ij = ijb, ije - 1
+         div( ij + 1, l )     =  
+     *   cvusurcu( ij+1 ) * x( ij+1,l ) - cvusurcu( ij ) * x( ij , l) +
+     *   cuvsurcv(ij-iim) * y(ij-iim,l) - cuvsurcv(ij+1) * y(ij+1,l) 
+        ENDDO
+
+c
+c     ....  correction pour  div( 1,j,l)  ......
+c     ....   div(1,j,l)= div(iip1,j,l) ....
+c
+CDIR$ IVDEP
+        DO  ij = ijb,ije,iip1
+         div( ij,l ) = div( ij + iim,l )
+        ENDDO
+c
+c     ....  calcul  aux poles  .....
+c
+        if (pole_nord) then
+        
+          DO  ij  = 1,iim
+           aiy1(ij) =    cuvsurcv(    ij       ) * y(     ij     , l )
+          ENDDO
+          sumypn = SSUM ( iim,aiy1,1 ) / apoln
+
+c
+          DO  ij = 1,iip1
+           div(     ij    , l ) = - sumypn
+          ENDDO
+          
+        endif
+        
+        if (pole_sud) then
+        
+          DO  ij  = 1,iim
+           aiy2(ij) =    cuvsurcv( ij+ ip1jmi1 ) * y( ij+ ip1jmi1, l )
+          ENDDO
+          sumyps = SSUM ( iim,aiy2,1 ) / apols
+c
+          DO  ij = 1,iip1
+           div( ij + ip1jm, l ) =   sumyps
+          ENDDO
+          
+        endif
+        
+  10    CONTINUE
+c$OMP END DO NOWAIT
+
+c
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_sud) jje=jj_end-1
+        
+        CALL filtreg_p( div,jjb,jje, jjp1, klevel, 2, 2, .TRUE., 1 )
+      
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l = 1, klevel
+           DO ij = ijb,ije
+            div(ij,l) = div(ij,l) * unsaire(ij) 
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divgrad2_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divgrad2_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divgrad2_p.F	(revision 3330)
@@ -0,0 +1,120 @@
+      SUBROUTINE divgrad2_p ( klevel, h, deltapres, lh, divgra_out )
+c
+c     P. Le Van
+c
+c   ***************************************************************
+c
+c     .....   calcul de  (div( grad ))   de (  pext * h ) .....
+c   ****************************************************************
+c   h ,klevel,lh et pext  sont des arguments  d'entree pour le s-prg
+c         divgra     est  un argument  de sortie pour le s-prg
+c
+      USE parallel_lmdz
+      USE times
+      USE mod_hallo
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "comdissipn.h"
+
+c    .......    variables en arguments   .......
+c
+      INTEGER klevel
+      REAL h( ip1jmp1,klevel ), deltapres( ip1jmp1,klevel )
+      REAL divgra_out( ip1jmp1,klevel)
+      REAL,SAVE :: divgra( ip1jmp1,llm)
+
+c
+c    .......    variables  locales    ..........
+c
+      REAL     signe, nudivgrs, sqrtps( ip1jmp1,llm )
+      INTEGER  l,ij,iter,lh
+c    ...................................................................
+      Type(Request) :: request_dissip
+      INTEGER ijb,ije
+c
+      signe    = (-1.)**lh
+      nudivgrs = signe * cdivh
+
+c      CALL SCOPY ( ip1jmp1 * klevel, h, 1, divgra, 1 )
+      ijb=ij_begin
+      ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, klevel
+        divgra(ijb:ije,l)=h(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+c
+c$OMP BARRIER
+       call Register_Hallo(divgra,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      CALL laplacien_p( klevel, divgra, divgra )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO l = 1, klevel
+       DO ij = ijb, ije
+        sqrtps( ij,l ) = SQRT( deltapres(ij,l) )
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO l = 1, klevel
+        DO ij = ijb, ije
+         divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+   
+c    ........    Iteration de l'operateur  laplacien_gam    ........
+c
+      DO  iter = 1, lh - 2
+c$OMP BARRIER
+       call Register_Hallo(divgra,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+
+       CALL laplacien_gam_p ( klevel,cuvscvgam2,cvuscugam2,unsair_gam2,
+     *                     unsapolnga2, unsapolsga2,  divgra, divgra )
+      ENDDO
+c
+c    ...............................................................
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO l = 1, klevel
+        DO ij = ijb, ije
+          divgra(ij,l) = divgra(ij,l) * sqrtps(ij,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c
+c$OMP BARRIER
+       call Register_Hallo(divgra,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      CALL laplacien_p ( klevel, divgra, divgra )
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l  = 1,klevel
+      DO ij = ijb,ije
+      divgra_out(ij,l) =  nudivgrs * divgra(ij,l) / deltapres(ij,l)
+      ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divgrad_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divgrad_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/divgrad_p.F	(revision 3330)
@@ -0,0 +1,90 @@
+      SUBROUTINE divgrad_p (klevel,h, lh, divgra_out )
+      USE parallel_lmdz
+      USE times
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c  Auteur :   P. Le Van
+c  ----------
+c
+c                              lh
+c      calcul de  (div( grad ))   de h  .....
+c      h  et lh  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+c=======================================================================
+c
+c   declarations:
+c   -------------
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "comdissipn.h"
+c
+      INTEGER klevel
+      REAL h( ip1jmp1,klevel ), divgra_out( ip1jmp1,klevel )
+      REAL,SAVE :: divgra( ip1jmp1,llm )
+
+c
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+
+      INTEGER  l,ij,iter,lh
+c
+      INTEGER ijb,ije,jjb,jje
+c
+c
+c      CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 )
+      
+      ijb=ij_begin
+      ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, klevel      
+      divgra(ijb:ije,l)=h(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+c
+
+c
+      DO 10 iter = 1,lh
+
+      jjb=jj_begin
+      jje=jj_end
+      CALL filtreg_p ( divgra,jjb,jje,jjp1,klevel,2,1,.true.,1  )
+
+c      call exchange_Hallo(divgra,ip1jmp1,llm,0,1)
+c$OMP BARRIER
+c$OMP MASTER      
+      call suspend_timer(timer_dissip)
+      call exchange_Hallo(divgra,ip1jmp1,llm,1,1)
+      call resume_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER       
+      CALL    grad_p (klevel,divgra, ghx  , ghy          )
+
+c$OMP BARRIER
+c$OMP MASTER   
+      call suspend_timer(timer_dissip)
+      call exchange_Hallo(ghy,ip1jm,llm,1,0)
+      call resume_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER            
+
+      CALL  diverg_p (klevel,  ghx , ghy  , divgra       )
+
+      jjb=jj_begin
+      jje=jj_end
+      CALL filtreg_p( divgra,jjb,jje,jjp1,klevel,2,1,.true.,1)
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 5 l = 1,klevel
+      DO 4  ij = ijb, ije
+      divgra_out( ij,l ) = - cdivh * divgra( ij,l )
+   4  CONTINUE
+   5  CONTINUE
+c$OMP END DO NOWAIT
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dteta1_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dteta1_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dteta1_p.F	(revision 3330)
@@ -0,0 +1,87 @@
+      SUBROUTINE dteta1_p ( teta, pbaru, pbarv, dteta)
+      USE parallel_lmdz
+      USE write_field_p
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c Modif F.Forget 03/94 (on retire q et dq  pour construire dteta1)
+c
+c   ********************************************************************
+c   ... calcul du terme de convergence horizontale du flux d'enthalpie
+c        potentielle   ......
+c   ********************************************************************
+c  .. teta,pbaru et pbarv sont des arguments d'entree  pour le s-pg ....
+c     dteta 	          sont des arguments de sortie pour le s-pg ....
+c
+c=======================================================================
+
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL dteta( ip1jmp1,llm )
+      INTEGER   l,ij
+
+      REAL hbyv( ip1jm,llm ), hbxu( ip1jmp1,llm )
+
+c
+      INTEGER ijb,ije,jjb,jje
+
+      
+      jjb=jj_begin
+      jje=jj_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO 5 l = 1,llm
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 1  ij = ijb, ije - 1
+        hbxu(ij,l) = pbaru(ij,l) * 0.5 * ( teta(ij,l)+teta(ij+1,l) )
+   1  CONTINUE
+
+c    .... correction pour  hbxu(iip1,j,l)  .....
+c    ....   hbxu(iip1,j,l)= hbxu(1,j,l) ....
+
+CDIR$ IVDEP
+      DO 2 ij = ijb+iip1-1, ije, iip1
+        hbxu( ij, l ) = hbxu( ij - iim, l )
+   2  CONTINUE
+
+      ijb=ij_begin-iip1
+      if (pole_nord) ijb=ij_begin
+      
+      DO 3 ij = ijb,ije
+        hbyv(ij,l)= pbarv(ij, l)* 0.5 * ( teta(ij, l)+teta(ij+iip1,l) )
+   3  CONTINUE
+
+       if (.not. pole_sud) then
+	  hbxu(ije+1:ije+iip1,l) = 0
+	  hbyv(ije+1:ije+iip1,l) = 0
+	endif
+	
+   5  CONTINUE
+c$OMP END DO NOWAIT
+       
+	
+        CALL  convflu_p ( hbxu, hbyv, llm, dteta )
+
+
+c    stockage dans  dh de la convergence horizont. filtree' du  flux
+c                  ....                           ...........
+c           d'enthalpie potentielle .
+      
+      
+      CALL filtreg_p( dteta,jjb,jje,jjp1, llm, 2, 2, .true., 1)
+      
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dudv1_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dudv1_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dudv1_p.F	(revision 3330)
@@ -0,0 +1,64 @@
+      SUBROUTINE dudv1_p ( vorpot, pbaru, pbarv, du, dv )
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c-----------------------------------------------------------------------
+c
+c   Auteur:   P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c   calcul du terme de  rotation
+c   ce terme est ajoute a  d(ucov)/dt et a d(vcov)/dt  ..
+c   vorpot, pbaru et pbarv sont des arguments d'entree  pour le s-pg ..
+c   du  et dv              sont des arguments de sortie pour le s-pg ..
+c
+c-----------------------------------------------------------------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL vorpot( ip1jm,llm ) ,pbaru( ip1jmp1,llm ) ,
+     *     pbarv( ip1jm,llm ) ,du( ip1jmp1,llm ) ,dv( ip1jm,llm )
+      INTEGER  l,ij,ijb,ije
+c
+c
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO 10 l = 1,llm
+c
+      ijb=ij_begin
+      ije=ij_end
+      
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 2  ij = ijb, ije-1 
+      du( ij,l ) = 0.125 *(  vorpot(ij-iip1, l) + vorpot( ij, l)  ) *
+     *                    (   pbarv(ij-iip1, l) + pbarv(ij-iim,  l) +
+     *                        pbarv(   ij  , l) + pbarv(ij+ 1 ,  l)   )
+   2  CONTINUE
+   
+ 
+c
+      if (pole_nord) ijb=ij_begin
+      
+      DO 3 ij = ijb, ije-1 
+      dv( ij+1,l ) = - 0.125 *(  vorpot(ij, l)  + vorpot(ij+1, l)  ) *
+     *                        (   pbaru(ij, l)  +  pbaru(ij+1   , l) +
+     *                       pbaru(ij+iip1, l)  +  pbaru(ij+iip2, l)  )
+   3  CONTINUE
+c
+c    .... correction  pour  dv( 1,j,l )  .....
+c    ....   dv(1,j,l)= dv(iip1,j,l) ....
+c
+CDIR$ IVDEP
+      DO 4 ij = ijb, ije, iip1
+      dv( ij,l ) = dv( ij + iim, l )
+   4  CONTINUE
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dudv2_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dudv2_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dudv2_p.F	(revision 3330)
@@ -0,0 +1,68 @@
+      SUBROUTINE dudv2_p ( teta, pkf, bern, du, dv  )
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   *****************************************************************
+c   ..... calcul du terme de pression (gradient de p/densite )   et
+c          du terme de ( -gradient de la fonction de Bernouilli ) ...
+c   *****************************************************************
+c          Ces termes sont ajoutes a  d(ucov)/dt et a d(vcov)/dt  ..
+c
+c
+c    teta , pkf, bern  sont des arguments d'entree  pour le s-pg  ....
+c    du et dv          sont des arguments de sortie pour le s-pg  ....
+c
+c=======================================================================
+c
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ),
+     *         du( ip1jmp1,llm ),  dv( ip1jm,llm )
+      INTEGER  l,ij,ijb,ije
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 5 l = 1,llm
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+      DO 2  ij  = ijb, ije - 1
+       du(ij,l) = du(ij,l) + 0.5* ( teta( ij,l ) + teta( ij+1,l ) ) *
+     * ( pkf( ij,l ) - pkf(ij+1,l) )  + bern(ij,l) - bern(ij+1,l)
+   2  CONTINUE
+c
+c
+c    .....  correction  pour du(iip1,j,l),  j=2,jjm   ......
+c    ...          du(iip1,j,l) = du(1,j,l)                 ...
+c
+CDIR$ IVDEP
+      DO 3 ij = ijb+iip1-1, ije, iip1
+      du( ij,l ) = du( ij - iim,l )
+   3  CONTINUE
+c
+c
+      if (pole_nord) ijb=ijb-iip1
+
+      DO 4 ij  = ijb,ije
+      dv( ij,l) = dv(ij,l) + 0.5 * ( teta(ij,l) + teta( ij+iip1,l ) ) *
+     *                             ( pkf(ij+iip1,l) - pkf(  ij,l  ) )
+     *                           +   bern( ij+iip1,l ) - bern( ij  ,l )
+   4  CONTINUE
+c
+   5  CONTINUE
+c$OMP END DO NOWAIT 
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynetat0.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynetat0.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynetat0.F	(revision 3330)
@@ -0,0 +1,348 @@
+!
+! $Id $
+!
+      SUBROUTINE dynetat0(fichnom,vcov,ucov,
+     .                    teta,q,masse,ps,phis,time)
+
+      USE infotrac
+      use netcdf, only: nf90_get_var
+
+      use control_mod, only : planet_type
+      USE comvert_mod, ONLY: pa,preff
+      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, im, jm, kappa,
+     &                        lllm, omeg, rad
+      USE logic_mod, ONLY: fxyhypb, ysinus
+      USE serre_mod, ONLY: clon,clat,grossismx,grossismy
+      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,
+     &                     start_time,day_ini,hour_ini
+
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van / L.Fairhead
+c   -------
+c
+c   objet:
+c   ------
+c
+c   Lecture de l'etat initial
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "ener.h"
+#include "netcdf.inc"
+#include "description.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      CHARACTER*(*) fichnom
+      REAL vcov(iip1, jjm,llm),ucov(iip1, jjp1,llm),teta(iip1, jjp1,llm)
+      REAL q(iip1,jjp1,llm,nqtot),masse(iip1, jjp1,llm)
+      REAL ps(iip1, jjp1),phis(iip1, jjp1)
+
+      REAL time
+
+c   Variables 
+c
+      INTEGER length,iq
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      INTEGER ierr, nid, nvarid
+
+      INTEGER idecal
+
+c-----------------------------------------------------------------------
+
+c  Ouverture NetCDF du fichier etat initial
+
+      ierr = NF_OPEN (fichnom, NF_NOWRITE,nid)
+      IF (ierr.NE.NF_NOERR) THEN
+        write(lunout,*)'dynetat0: Pb d''ouverture du fichier start.nc'
+        write(lunout,*)' ierr = ', ierr
+        CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+c
+      ierr = NF_INQ_VARID (nid, "controle", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <controle> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, tab_cntrl)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echoue pour <controle>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      !!! AS: idecal is a hack to be able to read planeto starts...
+      !!!     .... while keeping everything OK for LMDZ EARTH
+      if (planet_type.eq."generic") then
+          print*,'NOTE NOTE NOTE : Planeto-like start files'
+          idecal = 4
+          annee_ref  = 2000
+      else
+          print*,'NOTE NOTE NOTE : Earth-like start files'
+          idecal = 5
+          annee_ref  = tab_cntrl(5)
+      endif
+
+
+      im         = tab_cntrl(1)
+      jm         = tab_cntrl(2)
+      lllm       = tab_cntrl(3)
+      day_ref    = tab_cntrl(4)
+      rad        = tab_cntrl(idecal+1)
+      omeg       = tab_cntrl(idecal+2)
+      g          = tab_cntrl(idecal+3)
+      cpp        = tab_cntrl(idecal+4)
+      kappa      = tab_cntrl(idecal+5)
+      daysec     = tab_cntrl(idecal+6)
+      dtvr       = tab_cntrl(idecal+7)
+      etot0      = tab_cntrl(idecal+8)
+      ptot0      = tab_cntrl(idecal+9)
+      ztot0      = tab_cntrl(idecal+10)
+      stot0      = tab_cntrl(idecal+11)
+      ang0       = tab_cntrl(idecal+12)
+      pa         = tab_cntrl(idecal+13)
+      preff      = tab_cntrl(idecal+14)
+c
+      clon       = tab_cntrl(idecal+15)
+      clat       = tab_cntrl(idecal+16)
+      grossismx  = tab_cntrl(idecal+17)
+      grossismy  = tab_cntrl(idecal+18)
+c
+      IF ( tab_cntrl(idecal+19).EQ.1. )  THEN
+        fxyhypb  = . TRUE .
+c        dzoomx   = tab_cntrl(25)
+c        dzoomy   = tab_cntrl(26)
+c        taux     = tab_cntrl(28)
+c        tauy     = tab_cntrl(29)
+      ELSE
+        fxyhypb = . FALSE .
+        ysinus  = . FALSE .
+        IF( tab_cntrl(idecal+22).EQ.1. ) ysinus = . TRUE. 
+      ENDIF
+
+      day_ini = tab_cntrl(30)
+      itau_dyn = tab_cntrl(31)
+      start_time = tab_cntrl(32)
+c   .................................................................
+c
+c
+      write(lunout,*)'dynetat0: rad,omeg,g,cpp,kappa',
+     &               rad,omeg,g,cpp,kappa
+
+      IF(   im.ne.iim           )  THEN
+          PRINT 1,im,iim
+          STOP
+      ELSE  IF( jm.ne.jjm       )  THEN
+          PRINT 2,jm,jjm
+          STOP
+      ELSE  IF( lllm.ne.llm     )  THEN
+          PRINT 3,lllm,llm
+          STOP
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "rlonu", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <rlonu> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, rlonu)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <rlonu>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "rlatu", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <rlatu> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, rlatu)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <rlatu>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "rlonv", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <rlonv> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, rlonv)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <rlonv>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "rlatv", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <rlatv> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, rlatv)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour rlatv"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "cu", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <cu> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, cu)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <cu>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "cv", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <cv> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, cv)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <cv>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "aire", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <aire> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, aire)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <aire>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "phisinit", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <phisinit> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, phis)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <phisinit>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "temps", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <temps> est absent"
+         write(lunout,*)"dynetat0: J essaie <Time>"
+         ierr = NF_INQ_VARID (nid, "Time", nvarid)
+         IF (ierr .NE. NF_NOERR) THEN
+            write(lunout,*)"dynetat0: Le champ <Time> est absent"
+            CALL ABORT_gcm("dynetat0", "", 1)
+         ENDIF
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, time)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee <temps>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "ucov", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <ucov> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, ucov)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <ucov>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+ 
+      ierr = NF_INQ_VARID (nid, "vcov", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <vcov> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, vcov)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <vcov>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "teta", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <teta> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, teta)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <teta>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+
+      IF(nqtot.GE.1) THEN
+      DO iq=1,nqtot
+        ierr =  NF_INQ_VARID (nid, tname(iq), nvarid)
+        IF (ierr .NE. NF_NOERR) THEN
+           write(lunout,*)"dynetat0: Le traceur <"//trim(tname(iq))//
+     &                    "> est absent"
+           write(lunout,*)"          Il est donc initialise a zero"
+           q(:,:,:,iq)=0.
+        ELSE
+           ierr = NF90_GET_VAR(nid, nvarid, q(:,:,:,iq))
+          IF (ierr .NE. NF_NOERR) THEN
+            write(lunout,*)"dynetat0: Lecture echouee pour "//tname(iq)
+            CALL ABORT_gcm("dynetat0", "", 1)
+          ENDIF
+        ENDIF
+      ENDDO
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "masse", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <masse> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, masse)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <masse>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_INQ_VARID (nid, "ps", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Le champ <ps> est absent"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+      ierr = nf90_get_var(nid, nvarid, ps)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynetat0: Lecture echouee pour <ps>"
+         CALL ABORT_gcm("dynetat0", "", 1)
+      ENDIF
+
+      ierr = NF_CLOSE(nid)
+
+       day_ini=day_ini+INT(time)
+       time=time-INT(time)
+
+  1   FORMAT(//10x,'la valeur de im =',i4,2x,'lue sur le fichier de dem
+     *arrage est differente de la valeur parametree iim =',i4//)
+   2  FORMAT(//10x,'la valeur de jm =',i4,2x,'lue sur le fichier de dem
+     *arrage est differente de la valeur parametree jjm =',i4//)
+   3  FORMAT(//10x,'la valeur de lmax =',i4,2x,'lue sur le fichier dema
+     *rrage est differente de la valeur parametree llm =',i4//)
+   4  FORMAT(//10x,'la valeur de dtrv =',i4,2x,'lue sur le fichier dema
+     *rrage est differente de la valeur  dtinteg =',i4//)
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynredem.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynredem.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynredem.F	(revision 3330)
@@ -0,0 +1,664 @@
+!
+! $Id$
+!
+c
+      SUBROUTINE dynredem0(fichnom,iday_end,phis)
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#endif
+      USE infotrac
+      use netcdf95, only: NF95_PUT_VAR
+      USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff,
+     &                        nivsig,nivsigs
+      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
+      USE logic_mod, ONLY: fxyhypb, ysinus
+      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
+     &                     taux,tauy
+      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
+     &                        start_time,hour_ini
+ 
+      IMPLICIT NONE
+c=======================================================================
+c Ecriture du fichier de redemarrage sous format NetCDF (initialisation)
+c=======================================================================
+c   Declarations:
+c   -------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "ener.h"
+#include "netcdf.inc"
+#include "description.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+      INTEGER iday_end
+      REAL phis(iip1, jjp1)
+      CHARACTER*(*) fichnom
+
+c   Local:
+c   ------
+      INTEGER iq,l
+      INTEGER length
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      INTEGER ierr
+      character*20 modname
+      character*80 abort_message
+
+c   Variables locales pour NetCDF:
+c
+      INTEGER dims2(2), dims3(3), dims4(4)
+      INTEGER idim_index
+      INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv
+      INTEGER idim_s, idim_sig
+      INTEGER idim_tim
+      INTEGER nid,nvarid
+
+      REAL zan0,zjulian,hours
+      INTEGER yyears0,jjour0, mmois0
+      character*30 unites
+
+
+c-----------------------------------------------------------------------
+      modname='dynredem0'
+
+#ifdef CPP_IOIPSL
+      call ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
+      call ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
+#else
+! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
+      yyears0=0
+      mmois0=1
+      jjour0=1
+#endif        
+
+      DO l=1,length
+       tab_cntrl(l) = 0.
+      ENDDO
+       tab_cntrl(1)  = REAL(iim)
+       tab_cntrl(2)  = REAL(jjm)
+       tab_cntrl(3)  = REAL(llm)
+       tab_cntrl(4)  = REAL(day_ref)
+       tab_cntrl(5)  = REAL(annee_ref)
+       tab_cntrl(6)  = rad
+       tab_cntrl(7)  = omeg
+       tab_cntrl(8)  = g
+       tab_cntrl(9)  = cpp
+       tab_cntrl(10) = kappa
+       tab_cntrl(11) = daysec
+       tab_cntrl(12) = dtvr
+       tab_cntrl(13) = etot0
+       tab_cntrl(14) = ptot0
+       tab_cntrl(15) = ztot0
+       tab_cntrl(16) = stot0
+       tab_cntrl(17) = ang0
+       tab_cntrl(18) = pa
+       tab_cntrl(19) = preff
+c
+c    .....    parametres  pour le zoom      ......   
+
+       tab_cntrl(20)  = clon
+       tab_cntrl(21)  = clat
+       tab_cntrl(22)  = grossismx
+       tab_cntrl(23)  = grossismy
+c
+      IF ( fxyhypb )   THEN
+       tab_cntrl(24) = 1.
+       tab_cntrl(25) = dzoomx
+       tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+       tab_cntrl(28) = taux
+       tab_cntrl(29) = tauy
+      ELSE
+       tab_cntrl(24) = 0.
+       tab_cntrl(25) = dzoomx
+       tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+       tab_cntrl(28) = 0.
+       tab_cntrl(29) = 0.
+       IF( ysinus )  tab_cntrl(27) = 1.
+      ENDIF
+
+       tab_cntrl(30) = REAL(iday_end)
+       tab_cntrl(31) = REAL(itau_dyn + itaufin)
+c start_time: start_time of simulation (not necessarily 0.)
+       tab_cntrl(32) = start_time
+c
+c    .........................................................
+c
+c Creation du fichier:
+c
+      ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)
+      IF (ierr.NE.NF_NOERR) THEN
+         write(lunout,*)"dynredem0: Pb d ouverture du fichier "
+     &                  //trim(fichnom)
+         write(lunout,*)' ierr = ', ierr
+         CALL ABORT_GCM("DYNREDEM0", "", 1)
+      ENDIF
+c
+c Preciser quelques attributs globaux:
+c
+      ierr = NF_PUT_ATT_TEXT (nid, NF_GLOBAL, "title", 27,
+     .                       "Fichier demmarage dynamique")
+c
+c Definir les dimensions du fichiers:
+c
+      ierr = NF_DEF_DIM (nid, "index", length, idim_index)
+      ierr = NF_DEF_DIM (nid, "rlonu", iip1, idim_rlonu)
+      ierr = NF_DEF_DIM (nid, "rlatu", jjp1, idim_rlatu)
+      ierr = NF_DEF_DIM (nid, "rlonv", iip1, idim_rlonv)
+      ierr = NF_DEF_DIM (nid, "rlatv", jjm, idim_rlatv)
+      ierr = NF_DEF_DIM (nid, "sigs", llm, idim_s)
+      ierr = NF_DEF_DIM (nid, "sig", llmp1, idim_sig)
+      ierr = NF_DEF_DIM (nid, "temps", NF_UNLIMITED, idim_tim)
+c
+      ierr = NF_ENDDEF(nid) ! sortir du mode de definition
+c
+c Definir et enregistrer certains champs invariants:
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Parametres de controle")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,tab_cntrl)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
+     .                       "Longitudes des points U")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,rlonu)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Latitudes des points U")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR (nid,nvarid,rlatu)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
+     .                       "Longitudes des points V")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,rlonv)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Latitudes des points V")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,rlatv)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28,
+     .                       "Numero naturel des couches s")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,nivsigs)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32,
+     .                       "Numero naturel des couches sigma")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,nivsig)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
+     .                       "Coefficient A pour hybride")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,ap)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
+     .                       "Coefficient B pour hybride")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,bp)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,presnivs)
+c
+c Coefficients de passage cov. <-> contra. <--> naturel
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonu
+      dims2(2) = idim_rlatu
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
+     .                       "Coefficient de passage pour U")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,cu)
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonv
+      dims2(2) = idim_rlatv
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
+     .                       "Coefficient de passage pour V")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,cv)
+c
+c Aire de chaque maille:
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonv
+      dims2(2) = idim_rlatu
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Aires de chaque maille")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,aire)
+c
+c Geopentiel au sol:
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonv
+      dims2(2) = idim_rlatu
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
+     .                       "Geopotentiel au sol")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,phis)
+c
+c Definir les variables pour pouvoir les enregistrer plus tard:
+c
+      ierr = NF_REDEF (nid) ! entrer dans le mode de definition
+c
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
+     .                       "Temps de simulation")
+      write(unites,200)yyears0,mmois0,jjour0
+200   format('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "units", 30,
+     .                         unites)
+
+c
+      dims4(1) = idim_rlonu
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
+     .                       "Vitesse U")
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatv
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
+     .                       "Vitesse V")
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11,
+     .                       "Temperature")
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+      IF(nqtot.GE.1) THEN
+      DO iq=1,nqtot
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,tname(iq),NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,tname(iq),NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq))
+      ENDDO
+      ENDIF
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,
+     .                       "C est quoi ?")
+c
+      dims3(1) = idim_rlonv
+      dims3(2) = idim_rlatu
+      dims3(3) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15,
+     .                       "Pression au sol")
+c
+      ierr = NF_ENDDEF(nid) ! sortir du mode de definition
+      ierr = NF_CLOSE(nid) ! fermer le fichier
+
+      write(lunout,*)'dynredem0: iim,jjm,llm,iday_end',
+     &               iim,jjm,llm,iday_end
+      write(lunout,*)'dynredem0: rad,omeg,g,cpp,kappa',
+     &        rad,omeg,g,cpp,kappa
+
+      RETURN
+      END
+      SUBROUTINE dynredem1(fichnom,time,
+     .                     vcov,ucov,teta,q,masse,ps)
+      USE infotrac
+      USE control_mod
+      use netcdf, only: NF90_get_VAR
+      use netcdf95, only: NF95_PUT_VAR
+      USE temps_mod, ONLY: itau_dyn, itaufin
+ 
+      IMPLICIT NONE
+c=================================================================
+c  Ecriture du fichier de redemarrage sous format NetCDF
+c=================================================================
+#include "dimensions.h"
+#include "paramet.h"
+#include "description.h"
+#include "netcdf.inc"
+#include "comgeom.h"
+#include "iniprint.h"
+
+
+      INTEGER l
+      REAL vcov(iip1,jjm,llm),ucov(iip1, jjp1,llm) 
+      REAL teta(iip1, jjp1,llm)                   
+      REAL ps(iip1, jjp1),masse(iip1, jjp1,llm)                   
+      REAL q(iip1, jjp1, llm, nqtot)
+      CHARACTER*(*) fichnom
+     
+      REAL time
+      INTEGER nid, nvarid, nid_trac, nvarid_trac
+      REAL trac_tmp(ip1jmp1,llm)      
+      INTEGER ierr, ierr_file 
+      INTEGER iq
+      INTEGER length
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      character*20 modname
+      character*80 abort_message
+c
+      INTEGER nb
+      SAVE nb
+      DATA nb / 0 /
+
+      modname = 'dynredem1'
+      ierr = NF_OPEN(fichnom, NF_WRITE, nid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*)"dynredem1: Pb. d ouverture "//trim(fichnom)
+         call abort_gcm("dynredem1", "", 1)
+      ENDIF
+
+c  Ecriture/extension de la coordonnee temps
+
+      nb = nb + 1
+      ierr = NF_INQ_VARID(nid, "temps", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         write(lunout,*) NF_STRERROR(ierr)
+         abort_message='Variable temps n est pas definie'
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,time,start=(/nb/))
+      write(lunout,*) "dynredem1: Enregistrement pour ", nb, time
+
+c
+c  Re-ecriture du tableau de controle, itaufin n'est plus defini quand
+c  on passe dans dynredem0
+      ierr = NF_INQ_VARID (nid, "controle", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="dynredem1: Le champ <controle> est absent"
+         ierr = 1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      ierr = NF90_GET_VAR(nid, nvarid, tab_cntrl)
+       tab_cntrl(31) = REAL(itau_dyn + itaufin)
+      call NF95_PUT_VAR(nid,nvarid,tab_cntrl)
+
+c  Ecriture des champs
+c
+      ierr = NF_INQ_VARID(nid, "ucov", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="Variable ucov n est pas definie"
+         ierr=1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,ucov)
+
+      ierr = NF_INQ_VARID(nid, "vcov", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="Variable vcov n est pas definie"
+         ierr=1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,vcov)
+
+      ierr = NF_INQ_VARID(nid, "teta", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="Variable teta n est pas definie"
+         ierr=1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,teta)
+
+      IF (type_trac == 'inca') THEN
+! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
+         ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
+         IF (ierr_file .NE.NF_NOERR) THEN
+            write(lunout,*)'dynredem1: Pb d''ouverture du fichier',
+     &                     ' start_trac.nc'
+            write(lunout,*)' ierr = ', ierr_file 
+         ENDIF
+      END IF
+
+      IF(nqtot.GE.1) THEN
+      do iq=1,nqtot 
+
+         IF (type_trac /= 'inca') THEN
+            ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+            IF (ierr .NE. NF_NOERR) THEN
+               abort_message="Variable  tname(iq) n est pas definie"
+               ierr=1
+               CALL abort_gcm(modname,abort_message,ierr)
+            ENDIF
+            call NF95_PUT_VAR(nid,nvarid,q(:,:,:,iq))
+        ELSE ! type_trac = inca
+! lecture de la valeur du traceur dans start_trac.nc
+           IF (ierr_file .ne. 2) THEN
+             ierr = NF_INQ_VARID (nid_trac, tname(iq), nvarid_trac)
+             IF (ierr .NE. NF_NOERR) THEN
+                write(lunout,*) "dynredem1: ",trim(tname(iq)),
+     &                          " est absent de start_trac.nc"
+                ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+                IF (ierr .NE. NF_NOERR) THEN
+                   abort_message="dynredem1: Variable "//
+     &                     trim(tname(iq))//" n est pas definie"
+                   ierr=1
+                   CALL abort_gcm(modname,abort_message,ierr)
+                ENDIF
+                call NF95_PUT_VAR(nid,nvarid,q(:,:,:,iq))
+                
+             ELSE
+                write(lunout,*) "dynredem1: ",trim(tname(iq)),
+     &              " est present dans start_trac.nc"
+               ierr = NF90_GET_VAR(nid_trac, nvarid_trac, trac_tmp)
+                IF (ierr .NE. NF_NOERR) THEN
+                   abort_message="dynredem1: Lecture echouee pour"//
+     &                    trim(tname(iq))
+                   ierr=1
+                   CALL abort_gcm(modname,abort_message,ierr)
+                ENDIF
+                ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+                IF (ierr .NE. NF_NOERR) THEN
+                   abort_message="dynredem1: Variable "//
+     &                trim(tname(iq))//" n est pas definie"
+                   ierr=1
+                   CALL abort_gcm(modname,abort_message,ierr)
+                ENDIF
+                call NF95_PUT_VAR(nid, nvarid, trac_tmp)
+               
+             ENDIF ! IF (ierr .NE. NF_NOERR)
+! fin lecture du traceur
+          ELSE                  ! si il n'y a pas de fichier start_trac.nc
+!             print *, 'il n y a pas de fichier start_trac'
+             ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+             IF (ierr .NE. NF_NOERR) THEN
+                abort_message="dynredem1: Variable "//
+     &                trim(tname(iq))//" n est pas definie"
+                   ierr=1
+                   CALL abort_gcm(modname,abort_message,ierr)
+             ENDIF
+             call NF95_PUT_VAR(nid,nvarid,q(:,:,:,iq))
+          ENDIF ! (ierr_file .ne. 2)
+       END IF   !type_trac
+      
+      ENDDO
+      ENDIF
+c
+      ierr = NF_INQ_VARID(nid, "masse", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="dynredem1: Variable masse n est pas definie"
+         ierr=1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,masse)
+c
+      ierr = NF_INQ_VARID(nid, "ps", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="dynredem1: Variable ps n est pas definie"
+         ierr=1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,ps)
+
+      ierr = NF_CLOSE(nid)
+c
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynredem_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynredem_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/dynredem_p.F	(revision 3330)
@@ -0,0 +1,671 @@
+!
+! $Id$
+!
+c
+      SUBROUTINE dynredem0_p(fichnom,iday_end,phis)
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#endif
+      USE parallel_lmdz
+      USE infotrac
+      use netcdf95, only: NF95_PUT_VAR
+      USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff,
+     &                        nivsig,nivsigs
+      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
+      USE logic_mod, ONLY: fxyhypb, ysinus
+      USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,
+     &                     taux,tauy
+      USE temps_mod, ONLY: annee_ref,day_ref,itau_dyn,itaufin,
+     &                        start_time,hour_ini
+ 
+      IMPLICIT NONE
+c=======================================================================
+c Ecriture du fichier de redemarrage sous format NetCDF (initialisation)
+c=======================================================================
+c   Declarations:
+c   -------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "ener.h"
+#include "netcdf.inc"
+#include "description.h"
+
+c   Arguments:
+c   ----------
+      INTEGER iday_end
+      REAL phis(iip1, jjp1)
+      CHARACTER*(*) fichnom
+
+c   Local:
+c   ------
+      INTEGER iq,l
+      INTEGER length
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      INTEGER ierr
+      character*20 modname
+      character*80 abort_message
+
+c   Variables locales pour NetCDF:
+c
+      INTEGER dims2(2), dims3(3), dims4(4)
+      INTEGER idim_index
+      INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv
+      INTEGER idim_s, idim_sig
+      INTEGER idim_tim
+      INTEGER nid,nvarid
+
+      REAL zan0,zjulian,hours
+      INTEGER yyears0,jjour0, mmois0
+      character*30 unites
+
+
+c-----------------------------------------------------------------------
+      if (mpi_rank==0) then
+      
+      modname='dynredem0_p'
+
+#ifdef CPP_IOIPSL
+      call ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
+      call ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
+#else
+! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used)
+      yyears0=0
+      mmois0=1
+      jjour0=1
+#endif        
+
+      DO l=1,length
+       tab_cntrl(l) = 0.
+      ENDDO
+       tab_cntrl(1)  = REAL(iim)
+       tab_cntrl(2)  = REAL(jjm)
+       tab_cntrl(3)  = REAL(llm)
+       tab_cntrl(4)  = REAL(day_ref)
+       tab_cntrl(5)  = REAL(annee_ref)
+       tab_cntrl(6)  = rad
+       tab_cntrl(7)  = omeg
+       tab_cntrl(8)  = g
+       tab_cntrl(9)  = cpp
+       tab_cntrl(10) = kappa
+       tab_cntrl(11) = daysec
+       tab_cntrl(12) = dtvr
+       tab_cntrl(13) = etot0
+       tab_cntrl(14) = ptot0
+       tab_cntrl(15) = ztot0
+       tab_cntrl(16) = stot0
+       tab_cntrl(17) = ang0
+       tab_cntrl(18) = pa
+       tab_cntrl(19) = preff
+c
+c    .....    parametres  pour le zoom      ......   
+
+       tab_cntrl(20)  = clon
+       tab_cntrl(21)  = clat
+       tab_cntrl(22)  = grossismx
+       tab_cntrl(23)  = grossismy
+c
+      IF ( fxyhypb )   THEN
+       tab_cntrl(24) = 1.
+       tab_cntrl(25) = dzoomx
+       tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+       tab_cntrl(28) = taux
+       tab_cntrl(29) = tauy
+      ELSE
+       tab_cntrl(24) = 0.
+       tab_cntrl(25) = dzoomx
+       tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+       tab_cntrl(28) = 0.
+       tab_cntrl(29) = 0.
+       IF( ysinus )  tab_cntrl(27) = 1.
+      ENDIF
+
+       tab_cntrl(30) = REAL(iday_end)
+       tab_cntrl(31) = REAL(itau_dyn + itaufin)
+c start_time: start_time of simulation (not necessarily 0.)
+       tab_cntrl(32) = start_time
+c
+c    .........................................................
+c
+c Creation du fichier:
+c
+      ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)
+      IF (ierr.NE.NF_NOERR) THEN
+         WRITE(6,*)" Pb d ouverture du fichier "//fichnom
+         WRITE(6,*)' ierr = ', ierr
+         CALL ABORT
+      ENDIF
+c
+c Preciser quelques attributs globaux:
+c
+      ierr = NF_PUT_ATT_TEXT (nid, NF_GLOBAL, "title", 27,
+     .                       "Fichier demmarage dynamique")
+c
+c Definir les dimensions du fichiers:
+c
+      ierr = NF_DEF_DIM (nid, "index", length, idim_index)
+      ierr = NF_DEF_DIM (nid, "rlonu", iip1, idim_rlonu)
+      ierr = NF_DEF_DIM (nid, "rlatu", jjp1, idim_rlatu)
+      ierr = NF_DEF_DIM (nid, "rlonv", iip1, idim_rlonv)
+      ierr = NF_DEF_DIM (nid, "rlatv", jjm, idim_rlatv)
+      ierr = NF_DEF_DIM (nid, "sigs", llm, idim_s)
+      ierr = NF_DEF_DIM (nid, "sig", llmp1, idim_sig)
+      ierr = NF_DEF_DIM (nid, "temps", NF_UNLIMITED, idim_tim)
+c
+      ierr = NF_ENDDEF(nid) ! sortir du mode de definition
+c
+c Definir et enregistrer certains champs invariants:
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"controle",NF_DOUBLE,1,idim_index,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"controle",NF_FLOAT,1,idim_index,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Parametres de controle")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,tab_cntrl)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlonu",NF_DOUBLE,1,idim_rlonu,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlonu",NF_FLOAT,1,idim_rlonu,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
+     .                       "Longitudes des points U")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,rlonu)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlatu",NF_DOUBLE,1,idim_rlatu,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlatu",NF_FLOAT,1,idim_rlatu,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Latitudes des points U")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR (nid,nvarid,rlatu)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlonv",NF_DOUBLE,1,idim_rlonv,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlonv",NF_FLOAT,1,idim_rlonv,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 23,
+     .                       "Longitudes des points V")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,rlonv)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"rlatv",NF_DOUBLE,1,idim_rlatv,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"rlatv",NF_FLOAT,1,idim_rlatv,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Latitudes des points V")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,rlatv)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"nivsigs",NF_DOUBLE,1,idim_s,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"nivsigs",NF_FLOAT,1,idim_s,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 28,
+     .                       "Numero naturel des couches s")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,nivsigs)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"nivsig",NF_DOUBLE,1,idim_sig,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"nivsig",NF_FLOAT,1,idim_sig,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 32,
+     .                       "Numero naturel des couches sigma")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,nivsig)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"ap",NF_DOUBLE,1,idim_sig,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"ap",NF_FLOAT,1,idim_sig,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
+     .                       "Coefficient A pour hybride")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,ap)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"bp",NF_DOUBLE,1,idim_sig,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"bp",NF_FLOAT,1,idim_sig,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 26,
+     .                       "Coefficient B pour hybride")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,bp)
+c
+      ierr = NF_REDEF (nid)
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"presnivs",NF_DOUBLE,1,idim_s,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"presnivs",NF_FLOAT,1,idim_s,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,presnivs)
+c
+c Coefficients de passage cov. <-> contra. <--> naturel
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonu
+      dims2(2) = idim_rlatu
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"cu",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"cu",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
+     .                       "Coefficient de passage pour U")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,cu)
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonv
+      dims2(2) = idim_rlatv
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"cv",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"cv",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 29,
+     .                       "Coefficient de passage pour V")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,cv)
+c
+c Aire de chaque maille:
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonv
+      dims2(2) = idim_rlatu
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"aire",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"aire",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 22,
+     .                       "Aires de chaque maille")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,aire)
+c
+c Geopentiel au sol:
+c
+      ierr = NF_REDEF (nid)
+      dims2(1) = idim_rlonv
+      dims2(2) = idim_rlatu
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"phisinit",NF_DOUBLE,2,dims2,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"phisinit",NF_FLOAT,2,dims2,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
+     .                       "Geopotentiel au sol")
+      ierr = NF_ENDDEF(nid)
+      call NF95_PUT_VAR(nid,nvarid,phis)
+c
+c Definir les variables pour pouvoir les enregistrer plus tard:
+c
+      ierr = NF_REDEF (nid) ! entrer dans le mode de definition
+c
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"temps",NF_DOUBLE,1,idim_tim,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"temps",NF_FLOAT,1,idim_tim,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
+     .                       "Temps de simulation")
+      write(unites,200)yyears0,mmois0,jjour0
+200   format('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "units", 30,
+     .                         unites)
+
+c
+      dims4(1) = idim_rlonu
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"ucov",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"ucov",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
+     .                       "Vitesse U")
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatv
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"vcov",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"vcov",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 9,
+     .                       "Vitesse V")
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"teta",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"teta",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 11,
+     .                       "Temperature")
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+
+      DO iq=1,nqtot
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,tname(iq),NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,tname(iq),NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq))
+      ENDDO
+c
+      dims4(1) = idim_rlonv
+      dims4(2) = idim_rlatu
+      dims4(3) = idim_s
+      dims4(4) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"masse",NF_DOUBLE,4,dims4,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"masse",NF_FLOAT,4,dims4,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,
+     .                       "C est quoi ?")
+c
+      dims3(1) = idim_rlonv
+      dims3(2) = idim_rlatu
+      dims3(3) = idim_tim
+cIM 220306 BEG
+#ifdef NC_DOUBLE
+      ierr = NF_DEF_VAR (nid,"ps",NF_DOUBLE,3,dims3,nvarid)
+#else
+      ierr = NF_DEF_VAR (nid,"ps",NF_FLOAT,3,dims3,nvarid)
+#endif
+cIM 220306 END
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 15,
+     .                       "Pression au sol")
+c
+      ierr = NF_ENDDEF(nid) ! sortir du mode de definition
+      ierr = NF_CLOSE(nid) ! fermer le fichier
+
+      PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
+      PRINT*,'rad,omeg,g,cpp,kappa',
+     ,        rad,omeg,g,cpp,kappa
+
+      endif  ! mpi_rank==0
+      RETURN
+      END
+      SUBROUTINE dynredem1_p(fichnom,time,
+     .                     vcov,ucov,teta,q,masse,ps)
+      USE parallel_lmdz
+      USE infotrac
+      USE control_mod
+      use netcdf, only: NF90_get_VAR
+      use netcdf95, only: NF95_PUT_VAR
+      USE temps_mod, ONLY: itau_dyn, itaufin
+ 
+      IMPLICIT NONE
+c=================================================================
+c  Ecriture du fichier de redemarrage sous format NetCDF
+c=================================================================
+#include "dimensions.h"
+#include "paramet.h"
+#include "description.h"
+#include "netcdf.inc"
+#include "comgeom.h"
+
+
+      INTEGER l
+      REAL vcov(iip1,jjm,llm),ucov(iip1, jjp1,llm) 
+      REAL teta(iip1, jjp1,llm)                   
+      REAL ps(iip1, jjp1),masse(iip1, jjp1,llm)                   
+      REAL q(iip1, jjp1, llm, nqtot)
+      CHARACTER*(*) fichnom
+     
+      REAL time
+      INTEGER nid, nvarid, nid_trac, nvarid_trac
+      REAL trac_tmp(ip1jmp1,llm)      
+      INTEGER ierr, ierr_file 
+      INTEGER iq
+      INTEGER length
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      character*20 modname
+      character*80 abort_message
+c
+      INTEGER nb
+      SAVE nb
+      DATA nb / 0 /
+
+      logical exist_file
+
+      call Gather_Field(ucov,ip1jmp1,llm,0)
+      call Gather_Field(vcov,ip1jm,llm,0)
+      call Gather_Field(teta,ip1jmp1,llm,0)
+      call Gather_Field(masse,ip1jmp1,llm,0)
+      call Gather_Field(ps,ip1jmp1,1,0)
+      
+      do iq=1,nqtot
+        call Gather_Field(q(:,:,:,iq),ip1jmp1,llm,0)
+      enddo
+      
+      
+      if (mpi_rank==0) then
+      
+      modname = 'dynredem1'
+      ierr = NF_OPEN(fichnom, NF_WRITE, nid)
+      IF (ierr .NE. NF_NOERR) THEN
+         PRINT*, "Pb. d ouverture "//fichnom
+         CALL abort
+      ENDIF
+
+c  Ecriture/extension de la coordonnee temps
+
+      nb = nb + 1
+      ierr = NF_INQ_VARID(nid, "temps", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         print *, NF_STRERROR(ierr)
+         abort_message='Variable temps n est pas definie'
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,time,start=(/nb/))
+      PRINT*, "Enregistrement pour ", nb, time
+
+c
+c  Re-ecriture du tableau de controle, itaufin n'est plus defini quand
+c  on passe dans dynredem0
+      ierr = NF_INQ_VARID (nid, "controle", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="dynredem1: Le champ <controle> est absent"
+         ierr = 1
+         CALL abort_gcm(modname,abort_message,ierr)
+      ENDIF
+      ierr = NF90_GET_VAR(nid, nvarid, tab_cntrl)
+       tab_cntrl(31) = REAL(itau_dyn + itaufin)
+      call NF95_PUT_VAR(nid,nvarid,tab_cntrl)
+
+c  Ecriture des champs
+c
+      ierr = NF_INQ_VARID(nid, "ucov", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         PRINT*, "Variable ucov n est pas definie"
+         CALL abort
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,ucov)
+
+      ierr = NF_INQ_VARID(nid, "vcov", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         PRINT*, "Variable vcov n est pas definie"
+         CALL abort
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,vcov)
+
+      ierr = NF_INQ_VARID(nid, "teta", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         PRINT*, "Variable teta n est pas definie"
+         CALL abort
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,teta)
+
+      IF (type_trac == 'inca') THEN
+! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
+         inquire(FILE="start_trac.nc", EXIST=exist_file) 
+         print *, "EXIST", exist_file
+         if (exist_file) then 
+            ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
+            IF (ierr_file .NE.NF_NOERR) THEN
+               write(6,*)' Pb d''ouverture du fichier start_trac.nc'
+               write(6,*)' ierr = ', ierr_file 
+            ENDIF
+         else
+            ierr_file = 2
+         endif
+      END IF
+
+      do iq=1,nqtot 
+
+         IF (type_trac /= 'inca') THEN
+            ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+            IF (ierr .NE. NF_NOERR) THEN
+               PRINT*, "Variable  tname(iq) n est pas definie"
+               CALL abort
+            ENDIF
+            call NF95_PUT_VAR(nid,nvarid,q(:,:,:,iq))
+        ELSE ! type_trac = inca
+! lecture de la valeur du traceur dans start_trac.nc
+           IF (ierr_file .ne. 2) THEN
+             ierr = NF_INQ_VARID (nid_trac, tname(iq), nvarid_trac)
+             IF (ierr .NE. NF_NOERR) THEN
+                PRINT*, tname(iq),"est absent de start_trac.nc"
+                ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+                IF (ierr .NE. NF_NOERR) THEN
+                   PRINT*, "Variable ", tname(iq)," n est pas definie"
+                   CALL abort
+                ENDIF
+                call NF95_PUT_VAR(nid,nvarid,q(:,:,:,iq))
+                
+             ELSE
+                PRINT*, tname(iq), "est present dans start_trac.nc"
+               ierr = NF90_GET_VAR(nid_trac, nvarid_trac, trac_tmp)
+                IF (ierr .NE. NF_NOERR) THEN
+                   PRINT*, "Lecture echouee pour", tname(iq)
+                   CALL abort
+                ENDIF
+                ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+                IF (ierr .NE. NF_NOERR) THEN
+                   PRINT*, "Variable ", tname(iq)," n est pas definie"
+                   CALL abort
+                ENDIF
+                call NF95_PUT_VAR(nid, nvarid, trac_tmp)
+               
+             ENDIF ! IF (ierr .NE. NF_NOERR)
+! fin lecture du traceur
+          ELSE                  ! si il n'y a pas de fichier start_trac.nc
+!             print *, 'il n y a pas de fichier start_trac'
+             ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
+             IF (ierr .NE. NF_NOERR) THEN
+                PRINT*, "Variable  tname(iq) n est pas definie"
+                CALL abort
+             ENDIF
+             call NF95_PUT_VAR(nid,nvarid,q(:,:,:,iq))
+          ENDIF ! (ierr_file .ne. 2)
+       END IF   !type_trac
+      
+      ENDDO
+
+
+
+c
+      ierr = NF_INQ_VARID(nid, "masse", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         PRINT*, "Variable masse n est pas definie"
+         CALL abort
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,masse)
+c
+      ierr = NF_INQ_VARID(nid, "ps", nvarid)
+      IF (ierr .NE. NF_NOERR) THEN
+         PRINT*, "Variable ps n est pas definie"
+         CALL abort
+      ENDIF
+      call NF95_PUT_VAR(nid,nvarid,ps)
+
+      ierr = NF_CLOSE(nid)
+c
+      endif ! mpi_rank==0
+      
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/enercin_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/enercin_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/enercin_p.F	(revision 3330)
@@ -0,0 +1,121 @@
+      SUBROUTINE enercin_p ( vcov, ucov, vcont, ucont, ecin )
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur: P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c *********************************************************************
+c .. calcul de l'energie cinetique aux niveaux s  ......
+c *********************************************************************
+c  vcov, vcont, ucov et ucont sont des arguments d'entree pour le s-pg .
+c  ecin         est  un  argument de sortie pour le s-pg
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      REAL vcov( ip1jm,llm ),vcont( ip1jm,llm ),
+     * ucov( ip1jmp1,llm ),ucont( ip1jmp1,llm ),ecin( ip1jmp1,llm )
+
+      REAL ecinni( iip1 ),ecinsi( iip1 )
+
+      REAL ecinpn, ecinps
+      INTEGER     l,ij,i,ijb,ije
+
+      EXTERNAL    SSUM
+      REAL        SSUM
+
+
+
+c                 . V
+c                i,j-1
+
+c      alpha4 .       . alpha1
+
+
+c        U .      . P     . U
+c       i-1,j    i,j      i,j
+
+c      alpha3 .       . alpha2
+
+
+c                 . V
+c                i,j
+
+c    
+c  L'energie cinetique au point scalaire P(i,j) ,autre que les poles, est :
+c       Ecin = 0.5 * U(i-1,j)**2 *( alpha3 + alpha4 )  +
+c              0.5 * U(i  ,j)**2 *( alpha1 + alpha2 )  +
+c              0.5 * V(i,j-1)**2 *( alpha1 + alpha4 )  +
+c              0.5 * V(i,  j)**2 *( alpha2 + alpha3 )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 5 l = 1,llm
+      
+      ijb=ij_begin
+      ije=ij_end+iip1
+      
+      IF (pole_nord) ijb=ij_begin+iip1
+      IF (pole_sud)  ije=ij_end-iip1
+      
+      DO 1  ij = ijb, ije -1
+      ecin( ij+1, l )  =    0.5  *
+     * (   ucov( ij   ,l ) * ucont( ij   ,l ) * alpha3p4( ij +1 )   +
+     *     ucov( ij+1 ,l ) * ucont( ij+1 ,l ) * alpha1p2( ij +1 )   +
+     *     vcov(ij-iim,l ) * vcont(ij-iim,l ) * alpha1p4( ij +1 )   +
+     *     vcov( ij+ 1,l ) * vcont( ij+ 1,l ) * alpha2p3( ij +1 )   )
+   1  CONTINUE
+
+c    ... correction pour  ecin(1,j,l)  ....
+c    ...   ecin(1,j,l)= ecin(iip1,j,l) ...
+
+CDIR$ IVDEP
+      DO 2 ij = ijb, ije, iip1
+      ecin( ij,l ) = ecin( ij + iim, l )
+   2  CONTINUE
+
+c     calcul aux poles  .......
+
+      IF (pole_nord) THEN
+    
+        DO  i = 1, iim
+         ecinni(i) = vcov(    i  ,  l) * 
+     *               vcont(    i    ,l) * aire(   i   )
+        ENDDO
+
+        ecinpn = 0.5 * SSUM( iim,ecinni,1 ) / apoln
+
+        DO ij = 1,iip1
+          ecin(   ij     , l ) = ecinpn
+        ENDDO
+   
+      ENDIF
+
+      IF (pole_sud) THEN
+    
+        DO  i = 1, iim
+         ecinsi(i) = vcov(i+ip1jmi1,l)* 
+     *               vcont(i+ip1jmi1,l) * aire(i+ip1jm)
+        ENDDO
+
+        ecinps = 0.5 * SSUM( iim,ecinsi,1 ) / apols
+
+        DO ij = 1,iip1
+          ecin( ij+ ip1jm, l ) = ecinps
+        ENDDO
+   
+      ENDIF
+
+      
+   5  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/exner_hyb_p_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/exner_hyb_p_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/exner_hyb_p_m.F90	(revision 3330)
@@ -0,0 +1,185 @@
+module exner_hyb_p_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE  exner_hyb_p ( ngrid, ps, p, pks, pk, pkf )
+
+    !     Auteurs :  P.Le Van  , Fr. Hourdin  .
+    !    ..........
+    !
+    !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
+    !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
+    !
+    !   ************************************************************************
+    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
+    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
+    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
+    !   ************************************************************************
+    !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
+    !    la pression et la fonction d'Exner  au  sol  .
+    !
+    !                                 -------- z
+    !    A partir des relations  ( 1 ) p*dz(pk) = kappa *pk*dz(p)      et
+    !                            ( 2 ) pk(l) = alpha(l)+ beta(l)*pk(l-1)
+    !    ( voir note de Fr.Hourdin )  ,
+    !
+    !    on determine successivement , du haut vers le bas des couches, les 
+    !    coef. alpha(llm),beta(llm) .,.,alpha(l),beta(l),,,alpha(2),beta(2), 
+    !    puis pk(ij,1). Ensuite ,on calcule,du bas vers le haut des couches,  
+    !     pk(ij,l)  donne  par la relation (2),  pour l = 2 a l = llm .
+    !
+    !
+    USE parallel_lmdz
+    USE comconst_mod, ONLY: cpp, kappa, r, jmp1
+    USE comvert_mod, ONLY: preff
+    !
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom.h"
+
+    INTEGER  ngrid
+    REAL p(ngrid,llmp1),pk(ngrid,llm)
+    REAL, optional:: pkf(ngrid,llm)
+    REAL ps(ngrid),pks(ngrid)
+    REAL alpha(ngrid,llm),beta(ngrid,llm)
+
+    !    .... variables locales   ...
+
+    INTEGER l, ij
+    REAL unpl2k,dellta
+
+    INTEGER ije,ijb,jje,jjb
+    logical,save :: firstcall=.true.
+    !$OMP THREADPRIVATE(firstcall) 
+    character(len=*),parameter :: modname="exner_hyb_p"
+
+    ! Sanity check
+    if (firstcall) then
+       ! sanity checks for Shallow Water case (1 vertical layer)
+       if (llm.eq.1) then
+          if (kappa.ne.1) then
+             call abort_gcm(modname, &
+                  "kappa!=1 , but running in Shallow Water mode!!",42)
+          endif
+          if (cpp.ne.r) then
+             call abort_gcm(modname, &
+                  "cpp!=r , but running in Shallow Water mode!!",42)
+          endif
+       endif ! of if (llm.eq.1)
+
+       firstcall=.false.
+    endif ! of if (firstcall)
+
+    !$OMP BARRIER
+
+    ! Specific behaviour for Shallow Water (1 vertical layer) case:
+    if (llm.eq.1) then
+
+       ! Compute pks(:),pk(:),pkf(:)
+       ijb=ij_begin
+       ije=ij_end
+       !$OMP DO SCHEDULE(STATIC)
+       DO ij=ijb, ije
+          pks(ij) = (cpp/preff) * ps(ij)
+          pk(ij,1) = .5*pks(ij)
+          if (present(pkf)) pkf(ij,1)=pk(ij,1)
+       ENDDO
+       !$OMP ENDDO
+
+       !$OMP BARRIER
+       if (present(pkf)) then
+          jjb=jj_begin
+          jje=jj_end
+          CALL filtreg_p ( pkf,jjb,jje, jmp1, llm, 2, 1, .TRUE., 1 )
+       end if
+
+       ! our work is done, exit routine
+       return
+    endif ! of if (llm.eq.1)
+
+    ! General case:
+
+    unpl2k    = 1.+ 2.* kappa
+
+    !     -------------
+    !     Calcul de pks
+    !     -------------
+
+    ijb=ij_begin
+    ije=ij_end
+
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij  = ijb, ije
+       pks(ij) = cpp * ( ps(ij)/preff ) ** kappa
+    ENDDO
+    !$OMP ENDDO
+    ! Synchro OPENMP ici
+
+    !$OMP BARRIER
+    !
+    !
+    !    .... Calcul des coeff. alpha et beta  pour la couche l = llm ..
+    !
+    !$OMP DO SCHEDULE(STATIC)
+    DO     ij      = ijb,ije
+       alpha(ij,llm) = 0.
+       beta (ij,llm) = 1./ unpl2k
+    ENDDO
+    !$OMP ENDDO NOWAIT
+    !
+    !     ... Calcul des coeff. alpha et beta  pour l = llm-1  a l = 2 ...
+    !
+    DO l = llm -1 , 2 , -1
+       !
+       !$OMP DO SCHEDULE(STATIC)
+       DO ij = ijb, ije
+          dellta = p(ij,l)* unpl2k + p(ij,l+1)* ( beta(ij,l+1)-unpl2k )
+          alpha(ij,l)  = - p(ij,l+1) / dellta * alpha(ij,l+1)
+          beta (ij,l)  =   p(ij,l  ) / dellta   
+       ENDDO
+       !$OMP ENDDO NOWAIT
+    ENDDO
+
+    !  ***********************************************************************
+    !     .....  Calcul de pk pour la couche 1 , pres du sol  ....
+    !
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij   = ijb, ije
+       pk(ij,1) = ( p(ij,1)*pks(ij) - 0.5*alpha(ij,2)*p(ij,2) )  / &
+            (  p(ij,1)* (1.+kappa) + 0.5*( beta(ij,2)-unpl2k )* p(ij,2) )
+    ENDDO
+    !$OMP ENDDO NOWAIT
+    !
+    !    ..... Calcul de pk(ij,l) , pour l = 2 a l = llm  ........
+    !
+    DO l = 2, llm
+       !$OMP DO SCHEDULE(STATIC)
+       DO   ij   = ijb, ije
+          pk(ij,l) = alpha(ij,l) + beta(ij,l) * pk(ij,l-1)
+       ENDDO
+       !$OMP ENDDO NOWAIT        
+    ENDDO
+
+    if (present(pkf)) then
+       !    calcul de pkf
+
+       DO l = 1, llm
+          !$OMP DO SCHEDULE(STATIC)
+          DO   ij   = ijb, ije
+             pkf(ij,l)=pk(ij,l)
+          ENDDO
+          !$OMP ENDDO NOWAIT             
+       ENDDO
+
+       !$OMP BARRIER
+
+       jjb=jj_begin
+       jje=jj_end
+       CALL filtreg_p ( pkf,jjb,jje, jmp1, llm, 2, 1, .TRUE., 1 )
+    end if
+
+  END SUBROUTINE exner_hyb_p
+
+end module exner_hyb_p_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/exner_milieu_p_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/exner_milieu_p_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/exner_milieu_p_m.F90	(revision 3330)
@@ -0,0 +1,158 @@
+module exner_milieu_p_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE  exner_milieu_p ( ngrid, ps, p, pks, pk, pkf )
+    !
+    !     Auteurs :  F. Forget , Y. Wanherdrick
+    ! P.Le Van  , Fr. Hourdin  .
+    !    ..........
+    !
+    !    ....  ngrid, ps,p             sont des argum.d'entree  au sous-prog ...
+    !    ....  pks,pk,pkf   sont des argum.de sortie au sous-prog ...
+    !
+    !   ************************************************************************
+    !    Calcule la fonction d'Exner pk = Cp * (p/preff) ** kappa , aux milieux des 
+    !    couches .   Pk(l) sera calcule aux milieux  des couches l ,entre les
+    !    pressions p(l) et p(l+1) ,definis aux interfaces des llm couches .
+    !   ************************************************************************
+    !  .. N.B : Au sommet de l'atmosphere,  p(llm+1) = 0. , et ps et pks sont
+    !    la pression et la fonction d'Exner  au  sol  .
+    !
+    !     WARNING : CECI est une version speciale de exner_hyb originale
+    !               Utilise dans la version martienne pour pouvoir 
+    !               tourner avec des coordonnees verticales complexe
+    !              => Il ne verifie PAS la condition la proportionalite en 
+    !              energie totale/ interne / potentielle (F.Forget 2001)
+    !    ( voir note de Fr.Hourdin )  ,
+    !
+    USE parallel_lmdz
+    USE comconst_mod, ONLY: cpp, kappa, r, jmp1
+    USE comvert_mod, ONLY: preff
+    !
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom.h"
+
+    INTEGER  ngrid
+    REAL p(ngrid,llmp1),pk(ngrid,llm)
+    REAL, optional:: pkf(ngrid,llm)
+    REAL ps(ngrid),pks(ngrid)
+
+    !    .... variables locales   ...
+
+    INTEGER l, ij,ijb,ije,jjb,jje
+    REAL dum1
+
+    logical,save :: firstcall=.true.
+    !$OMP THREADPRIVATE(firstcall) 
+    character(len=*),parameter :: modname="exner_milieu_p"
+
+    ! Sanity check
+    if (firstcall) then
+       ! sanity checks for Shallow Water case (1 vertical layer)
+       if (llm.eq.1) then
+          if (kappa.ne.1) then
+             call abort_gcm(modname, &
+                  "kappa!=1 , but running in Shallow Water mode!!",42)
+          endif
+          if (cpp.ne.r) then
+             call abort_gcm(modname, &
+                  "cpp!=r , but running in Shallow Water mode!!",42)
+          endif
+       endif ! of if (llm.eq.1)
+
+       firstcall=.false.
+    endif ! of if (firstcall)
+
+    !$OMP BARRIER
+
+    ! Specific behaviour for Shallow Water (1 vertical layer) case:
+    if (llm.eq.1) then
+
+       ! Compute pks(:),pk(:),pkf(:)
+       ijb=ij_begin
+       ije=ij_end
+       !$OMP DO SCHEDULE(STATIC)
+       DO ij=ijb, ije
+          pks(ij) = (cpp/preff) * ps(ij)
+          pk(ij,1) = .5*pks(ij)
+          if (present(pkf)) pkf(ij,1)=pk(ij,1)
+       ENDDO
+       !$OMP ENDDO
+
+       !$OMP BARRIER
+       if (present(pkf)) then
+          jjb=jj_begin
+          jje=jj_end
+          CALL filtreg_p ( pkf,jjb,jje, jmp1, llm, 2, 1, .TRUE., 1 )
+       end if
+
+       ! our work is done, exit routine
+       return
+    endif ! of if (llm.eq.1)
+
+    ! General case:
+
+    !     -------------
+    !     Calcul de pks
+    !     -------------
+
+    ijb=ij_begin
+    ije=ij_end
+
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij  = ijb, ije
+       pks(ij) = cpp * ( ps(ij)/preff ) ** kappa
+    ENDDO
+    !$OMP ENDDO
+    ! Synchro OPENMP ici
+
+    !$OMP BARRIER
+    !
+    !
+    !    .... Calcul de pk  pour la couche l 
+    !    --------------------------------------------
+    !
+    dum1 = cpp * (2*preff)**(-kappa) 
+    DO l = 1, llm-1
+       !$OMP DO SCHEDULE(STATIC)
+       DO   ij   = ijb, ije
+          pk(ij,l) = dum1 * (p(ij,l) + p(ij,l+1))**kappa
+       ENDDO
+       !$OMP ENDDO NOWAIT
+    ENDDO
+
+    !    .... Calcul de pk  pour la couche l = llm ..
+    !    (on met la meme distance (en log pression)  entre Pk(llm)
+    !    et Pk(llm -1) qu'entre Pk(llm-1) et Pk(llm-2)
+
+    !$OMP DO SCHEDULE(STATIC)
+    DO   ij   = ijb, ije
+       pk(ij,llm) = pk(ij,llm-1)**2 / pk(ij,llm-2)
+    ENDDO
+    !$OMP ENDDO NOWAIT        
+
+    if (present(pkf)) then
+       !    calcul de pkf
+
+       DO l = 1, llm
+          !$OMP DO SCHEDULE(STATIC)
+          DO   ij   = ijb, ije
+             pkf(ij,l)=pk(ij,l)
+          ENDDO
+          !$OMP ENDDO NOWAIT
+       ENDDO
+
+       !$OMP BARRIER
+
+       jjb=jj_begin
+       jje=jj_end
+       CALL filtreg_p ( pkf,jjb,jje, jmp1, llm, 2, 1, .TRUE., 1 )
+    end if
+
+  END SUBROUTINE exner_milieu_p
+
+end module exner_milieu_p_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/filtreg_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/filtreg_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/filtreg_p.F	(revision 3330)
@@ -0,0 +1,433 @@
+
+
+      SUBROUTINE filtreg_p ( champ, ibeg, iend, nlat, nbniv, 
+     &     ifiltre, iaire, griscal ,iter)
+      USE parallel_lmdz, only : OMP_CHUNK
+      USE mod_filtre_fft
+      USE timer_filtre
+      
+      USE filtreg_mod
+      
+      IMPLICIT NONE
+      
+c=======================================================================
+c
+c   Auteur: P. Le Van        07/10/97
+c   ------
+c
+c   Objet: filtre matriciel longitudinal ,avec les matrices precalculees
+c                     pour l'operateur  Filtre    .
+c   ------
+c
+c   Arguments:
+c   ----------
+c
+c      
+c      ibeg..iend            lattitude a filtrer
+c      nlat                  nombre de latitudes du champ
+c      nbniv                 nombre de niveaux verticaux a filtrer
+c      champ(iip1,nblat,nbniv)  en entree : champ a filtrer
+c                            en sortie : champ filtre
+c      ifiltre               +1  Transformee directe
+c                            -1  Transformee inverse
+c                            +2  Filtre directe
+c                            -2  Filtre inverse
+c
+c      iaire                 1   si champ intensif
+c                            2   si champ extensif (pondere par les aires)
+c
+c      iter                  1   filtre simple
+c
+c=======================================================================
+c
+c
+c                      Variable Intensive
+c                ifiltre = 1     filtre directe
+c                ifiltre =-1     filtre inverse
+c
+c                      Variable Extensive
+c                ifiltre = 2     filtre directe
+c                ifiltre =-2     filtre inverse
+c
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "coefils.h"
+c
+      INTEGER ibeg,iend,nlat,nbniv,ifiltre,iter
+      INTEGER i,j,l,k
+      INTEGER iim2,immjm
+      INTEGER jdfil1,jdfil2,jffil1,jffil2,jdfil,jffil
+      
+      REAL  champ( iip1,nlat,nbniv)
+      
+      LOGICAL    griscal
+      INTEGER    hemisph, iaire
+      
+      REAL :: champ_fft(iip1,nlat,nbniv)
+      REAL :: champ_in(iip1,nlat,nbniv)
+      
+      LOGICAL,SAVE     :: first=.TRUE.
+c$OMP THREADPRIVATE(first) 
+
+      REAL, DIMENSION(iip1,nlat,nbniv) :: champ_loc
+      INTEGER :: ll_nb, nbniv_loc
+      REAL, SAVE :: sdd12(iim,4)
+c$OMP THREADPRIVATE(sdd12) 
+
+      INTEGER, PARAMETER :: type_sddu=1
+      INTEGER, PARAMETER :: type_sddv=2
+      INTEGER, PARAMETER :: type_unsddu=3
+      INTEGER, PARAMETER :: type_unsddv=4
+
+      INTEGER :: sdd1_type, sdd2_type
+
+      IF (first) THEN
+         sdd12(1:iim,type_sddu) = sddu(1:iim)
+         sdd12(1:iim,type_sddv) = sddv(1:iim)
+         sdd12(1:iim,type_unsddu) = unsddu(1:iim)
+         sdd12(1:iim,type_unsddv) = unsddv(1:iim)
+
+         CALL Init_timer
+         first=.FALSE.
+      ENDIF
+
+c$OMP MASTER      
+      CALL start_timer
+c$OMP END MASTER
+
+c-------------------------------------------------------c
+
+      IF(ifiltre.EQ.1.or.ifiltre.EQ.-1) 
+     &     STOP'Pas de transformee simple dans cette version'
+      
+      IF( iter.EQ. 2 )  THEN
+         PRINT *,' Pas d iteration du filtre dans cette version !'
+     &        , ' Utiliser old_filtreg et repasser !'
+         STOP
+      ENDIF
+
+      IF( ifiltre.EQ. -2 .AND..NOT.griscal )     THEN
+         PRINT *,' Cette routine ne calcule le filtre inverse que '
+     &        , ' sur la grille des scalaires !'
+         STOP
+      ENDIF
+
+      IF( ifiltre.NE.2 .AND.ifiltre.NE. - 2 )  THEN
+         PRINT *,' Probleme dans filtreg car ifiltre NE 2 et NE -2'
+     &        , ' corriger et repasser !'
+         STOP
+      ENDIF
+c
+
+      iim2   = iim * iim
+      immjm  = iim * jjm
+c
+c
+      IF( griscal )   THEN
+         IF( nlat. NE. jjp1 )  THEN
+            PRINT  1111
+            STOP
+         ELSE
+c     
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddv
+               sdd2_type = type_unsddv
+            ELSE
+               sdd1_type = type_unsddv
+               sdd2_type = type_sddv
+            ENDIF
+c
+            jdfil1 = 2
+            jffil1 = jfiltnu
+            jdfil2 = jfiltsu
+            jffil2 = jjm
+         ENDIF
+      ELSE
+         IF( nlat.NE.jjm )  THEN
+            PRINT  2222
+            STOP
+         ELSE
+c
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddu
+               sdd2_type = type_unsddu
+            ELSE
+               sdd1_type = type_unsddu
+               sdd2_type = type_sddu
+            ENDIF
+c     
+            jdfil1 = 1
+            jffil1 = jfiltnv
+            jdfil2 = jfiltsv
+            jffil2 = jjm
+         ENDIF
+      ENDIF
+c      
+      DO hemisph = 1, 2
+c     
+         IF ( hemisph.EQ.1 )  THEN
+cym
+            jdfil = max(jdfil1,ibeg)
+            jffil = min(jffil1,iend)
+         ELSE
+cym
+            jdfil = max(jdfil2,ibeg)
+            jffil = min(jffil2,iend)
+         ENDIF
+
+
+cccccccccccccccccccccccccccccccccccccccccccc
+c Utilisation du filtre classique
+cccccccccccccccccccccccccccccccccccccccccccc
+
+         IF (.NOT. use_filtre_fft) THEN
+      
+c     !---------------------------------!
+c     ! Agregation des niveau verticaux !
+c     ! uniquement necessaire pour une  !
+c     ! execution OpenMP                !
+c     !---------------------------------!
+            ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l = 1, nbniv
+               ll_nb = ll_nb+1
+               DO j = jdfil,jffil
+                  DO i = 1, iim
+                     champ_loc(i,j,ll_nb) = 
+     &                    champ(i,j,l) * sdd12(i,sdd1_type)
+                  ENDDO
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+
+            nbniv_loc = ll_nb
+
+            IF( hemisph.EQ.1 )      THEN
+               
+               IF( ifiltre.EQ.-2 )   THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matrinvn(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0,
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matrinvn(:,:,j),champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE IF ( griscal )     THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matriceun(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0,
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matriceun(:,:,j),champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE 
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matricevn(1,1,j), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matricevn(:,:,j),champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ENDIF
+               
+            ELSE
+               
+               IF( ifiltre.EQ.-2 )   THEN
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matrinvs(1,1,j-jfiltsu+1), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matrinvs(:,:,j-jfiltsu+1),
+     &                            champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE IF ( griscal )     THEN
+                  
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matriceus(1,1,j-jfiltsu+1), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matriceus(:,:,j-jfiltsu+1),
+     &                            champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ELSE 
+                  
+                  DO j = jdfil,jffil
+#ifdef BLAS
+                     CALL DGEMM("N", "N", iim, nbniv_loc, iim, 1.0, 
+     &                    matricevs(1,1,j-jfiltsv+1), iim, 
+     &                    champ_loc(1,j,1), iip1*nlat, 0.0, 
+     &                    champ_fft(1,j-jdfil+1,1), iip1*nlat)
+#else
+                     champ_fft(:iim,j-jdfil+1,:)
+     &                    =matmul(matricevs(:,:,j-jfiltsv+1),
+     &                            champ_loc(:iim,j,:))
+#endif
+                  ENDDO
+                  
+               ENDIF
+               
+            ENDIF
+!     c     
+            IF( ifiltre.EQ.2 )  THEN
+               
+c     !-------------------------------------!
+c     ! Dés-agregation des niveau verticaux !
+c     ! uniquement necessaire pour une      !
+c     ! execution OpenMP                    !
+c     !-------------------------------------!
+               ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               DO l = 1, nbniv
+                  ll_nb = ll_nb + 1
+                  DO j = jdfil,jffil
+                     DO i = 1, iim
+                        champ( i,j,l ) = (champ_loc(i,j,ll_nb) 
+     &                       + champ_fft(i,j-jdfil+1,ll_nb))
+     &                       * sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT
+               
+            ELSE
+               
+               ll_nb = 0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+               DO l = 1, nbniv_loc
+                  ll_nb = ll_nb + 1
+                  DO j = jdfil,jffil
+                     DO i = 1, iim
+                        champ( i,j,l ) = (champ_loc(i,j,ll_nb) 
+     &                       - champ_fft(i,j-jdfil+1,ll_nb))
+     &                       * sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT
+               
+            ENDIF
+            
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l = 1, nbniv
+               DO j = jdfil,jffil
+                  champ( iip1,j,l ) = champ( 1,j,l )
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+            
+ccccccccccccccccccccccccccccccccccccccccccccc
+c Utilisation du filtre FFT
+ccccccccccccccccccccccccccccccccccccccccccccc
+        
+         ELSE
+       
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+            DO l=1,nbniv
+               DO j=jdfil,jffil
+                  DO  i = 1, iim
+                     champ( i,j,l)= champ(i,j,l)*sdd12(i,sdd1_type)
+                     champ_fft( i,j,l) = champ(i,j,l)
+                  ENDDO
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT
+
+            IF (jdfil<=jffil) THEN
+               IF( ifiltre. EQ. -2 )   THEN
+                  CALL Filtre_inv_fft(champ_fft,nlat,jdfil,jffil,nbniv) 
+               ELSE IF ( griscal )     THEN
+                  CALL Filtre_u_fft(champ_fft,nlat,jdfil,jffil,nbniv)
+               ELSE
+                  CALL Filtre_v_fft(champ_fft,nlat,jdfil,jffil,nbniv)
+               ENDIF
+            ENDIF
+
+
+            IF( ifiltre.EQ. 2 )  THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+               DO l=1,nbniv
+                  DO j=jdfil,jffil
+                     DO  i = 1, iim
+                        champ( i,j,l)=(champ(i,j,l)+champ_fft(i,j,l))
+     &                       *sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT	  
+            ELSE
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)  
+               DO l=1,nbniv
+                  DO j=jdfil,jffil
+                     DO  i = 1, iim
+                        champ(i,j,l)=(champ(i,j,l)-champ_fft(i,j,l))
+     &                       *sdd12(i,sdd2_type)
+                     ENDDO
+                  ENDDO
+               ENDDO
+c$OMP END DO NOWAIT          
+            ENDIF
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+            DO l=1,nbniv
+               DO j=jdfil,jffil
+!            champ_FFT( iip1,j,l ) = champ_FFT( 1,j,l )
+                  champ( iip1,j,l ) = champ( 1,j,l )
+               ENDDO
+            ENDDO
+c$OMP END DO NOWAIT          	
+         ENDIF 
+c Fin de la zone de filtrage
+
+	
+      ENDDO
+
+!      DO j=1,nlat
+!     
+!          PRINT *,"check FFT ----> Delta(",j,")=",
+!     &            sum(champ(:,j,:)-champ_fft(:,j,:))/sum(champ(:,j,:)),
+!     &            sum(champ(:,j,:)-champ_in(:,j,:))/sum(champ(:,j,:)) 
+!      ENDDO
+      
+!          PRINT *,"check FFT ----> Delta(",j,")=",
+!     &            sum(champ-champ_fft)/sum(champ)
+!      
+      
+c
+ 1111 FORMAT(//20x,'ERREUR dans le dimensionnement du tableau  CHAMP a 
+     &     filtrer, sur la grille des scalaires'/)
+ 2222 FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fi
+     &     ltrer, sur la grille de V ou de Z'/)
+c$OMP MASTER      
+      CALL stop_timer
+c$OMP END MASTER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/flumass_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/flumass_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/flumass_p.F	(revision 3330)
@@ -0,0 +1,152 @@
+      SUBROUTINE flumass_p(massebx,masseby, vcont, ucont, pbaru, pbarv)
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteurs:  P. Le Van, F. Hourdin  .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c *********************************************************************
+c     .... calcul du flux de masse  aux niveaux s ......
+c *********************************************************************
+c   massebx,masseby,vcont et ucont sont des argum. d'entree pour le s-pg .
+c       pbaru  et pbarv            sont des argum.de sortie pour le s-pg .
+c
+c=======================================================================
+
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      REAL massebx( ip1jmp1,llm ),masseby( ip1jm,llm ) ,
+     * vcont( ip1jm,llm ),ucont( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),
+     * pbarv( ip1jm,llm )
+
+      REAL apbarun( iip1 ),apbarus( iip1 )
+
+      REAL sairen,saireun,saires,saireus,ctn,cts,ctn0,cts0
+      INTEGER  l,ij,i
+      INTEGER ijb,ije
+      
+      EXTERNAL   SSUM
+      REAL       SSUM
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO  5 l = 1,llm
+
+        ijb=ij_begin
+        ije=ij_end+iip1
+      
+        if (pole_nord) ijb=ij_begin+iip1
+        if (pole_sud)  ije=ij_end-iip1
+        
+        DO  1 ij = ijb,ije
+          pbaru( ij,l ) = massebx( ij,l ) * ucont( ij,l )
+   1    CONTINUE
+
+        ijb=ij_begin-iip1
+        ije=ij_end+iip1
+      
+        if (pole_nord) ijb=ij_begin
+        if (pole_sud)  ije=ij_end-iip1
+        
+        DO 3 ij = ijb,ije
+          pbarv( ij,l ) = masseby( ij,l ) * vcont( ij,l )
+   3    CONTINUE
+
+   5  CONTINUE
+c$OMP END DO NOWAIT
+c    ................................................................
+c     calcul de la composante du flux de masse en x aux poles .......
+c    ................................................................
+c     par la resolution d'1 systeme de 2 equations .
+
+c     la premiere equat.decrivant le calcul de la divergence en 1 point i
+c     du pole,ce calcul etant itere de i=1 a i=im .
+c                 c.a.d   ,
+c     ( ( 0.5*pbaru(i)-0.5*pbaru(i-1) - pbarv(i))/aire(i)   =
+c                                           - somme de ( pbarv(n) )/aire pole
+
+c     l'autre equat.specifiant que la moyenne du flux de masse au pole est =0.
+c     c.a.d    somme de pbaru(n)*aire locale(n) = 0.
+
+c     on en revient ainsi a determiner la constante additive commune aux pbaru
+c     qui representait pbaru(0,j,l) dans l'equat.du calcul de la diverg.au pt
+c     i=1 .
+c     i variant de 1 a im
+c     n variant de 1 a im
+
+      IF (pole_nord) THEN
+     
+        sairen = SSUM( iim,  aire(   1     ), 1 )
+        saireun= SSUM( iim, aireu(   1     ), 1 )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+        DO l = 1,llm
+ 
+          ctn =  SSUM( iim, pbarv(    1     ,l),  1 )/ sairen
+      
+          pbaru(1,l)=pbarv(1,l) - ctn * aire(1)
+        
+          DO i = 2,iim
+            pbaru(i,l) = pbaru(i- 1,l )    +
+     *                   pbarv(i,l) - ctn * aire(i )
+          ENDDO
+        
+          DO i = 1,iim
+            apbarun(i) = aireu(    i   ) * pbaru(   i    , l)
+          ENDDO
+      
+          ctn0 = -SSUM( iim,apbarun,1 )/saireun
+        
+          DO i = 1,iim
+            pbaru(   i    , l) = 2. * ( pbaru(   i    , l) + ctn0 )
+          ENDDO
+       
+          pbaru(   iip1 ,l ) = pbaru(    1    ,l )
+        
+        ENDDO
+c$OMP END DO NOWAIT              
+
+      ENDIF
+
+      
+      IF (pole_sud) THEN
+  
+        saires = SSUM( iim,  aire( ip1jm+1 ), 1 )
+        saireus= SSUM( iim, aireu( ip1jm+1 ), 1 )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+        DO  l = 1,llm
+ 
+          cts =  SSUM( iim, pbarv(ip1jmi1+ 1,l),  1 )/ saires
+          pbaru(ip1jm+1,l)= - pbarv(ip1jmi1+1,l) + cts * aire(ip1jm+1)
+   
+          DO i = 2,iim
+            pbaru(i+ ip1jm,l) = pbaru(i+ip1jm-1,l)    -
+     *                          pbarv(i+ip1jmi1,l)+cts*aire(i+ip1jm)
+          ENDDO
+        
+          DO i = 1,iim
+            apbarus(i) = aireu(i +ip1jm) * pbaru(i +ip1jm, l)
+          ENDDO
+
+          cts0 = -SSUM( iim,apbarus,1 )/saireus
+
+          DO i = 1,iim
+            pbaru(i+ ip1jm, l) = 2. * ( pbaru(i +ip1jm, l) + cts0 )
+          ENDDO
+
+          pbaru( ip1jmp1,l ) = pbaru( ip1jm +1,l )
+       
+        ENDDO
+c$OMP END DO NOWAIT         
+      ENDIF
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/fluxstokenc_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/fluxstokenc_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/fluxstokenc_p.F	(revision 3330)
@@ -0,0 +1,247 @@
+!
+! $Id$
+!
+      SUBROUTINE fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis,
+     . time_step,itau )
+#ifdef CPP_IOIPSL
+! This routine is designed to work with ioipsl
+
+       USE IOIPSL
+       USE parallel_lmdz
+       USE misc_mod
+       USE mod_hallo
+c
+c     Auteur :  F. Hourdin
+c
+c
+ccc   ..   Modif. P. Le Van  ( 20/12/97 )  ...
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "tracstoke.h"
+#include "iniprint.h"
+
+      REAL time_step,t_wrt, t_ops
+      REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm)
+      REAL masse(ip1jmp1,llm),teta(ip1jmp1,llm),phi(ip1jmp1,llm)
+      REAL phis(ip1jmp1)
+
+      REAL,SAVE :: pbaruc(ip1jmp1,llm),pbarvc(ip1jm,llm)
+      REAL massem(ip1jmp1,llm),tetac(ip1jmp1,llm),phic(ip1jmp1,llm)
+
+      REAL pbarug(ip1jmp1,llm),pbarvg(iip1,jjm,llm),wg(ip1jmp1,llm)
+
+      REAL pbarvst(iip1,jjp1,llm),zistdyn
+	real dtcum
+
+      INTEGER iadvtr,ndex(1) 
+      integer nscal
+      real tst(1),ist(1),istp(1)
+      INTEGER ij,l,irec,i,j,itau
+      INTEGER,SAVE :: fluxid, fluxvid,fluxdid
+ 
+      SAVE iadvtr, massem,irec
+      SAVE phic,tetac
+      logical first
+      save first
+      data first/.true./
+      DATA iadvtr/0/
+      integer :: ijb,ije,jjb,jje,jjn
+      type(Request) :: Req
+
+c AC initialisations
+      pbarug(:,:)   = 0.
+cym      pbarvg(:,:,:) = 0.
+cym      wg(:,:)       = 0.
+
+c$OMP MASTER
+
+      if(first) then
+
+	CALL initfluxsto_p( 'fluxstoke',
+     .  time_step,istdyn* time_step,istdyn* time_step,
+     .  fluxid,fluxvid,fluxdid) 
+	
+        ijb=ij_begin
+        ije=ij_end
+        jjn=jj_nb
+
+	ndex(1) = 0
+        call histwrite(fluxid, 'phis', 1, phis(ijb:ije),
+     .	               iip1*jjn, ndex)
+        call histwrite(fluxid, 'aire', 1, aire(ijb:ije),
+     .                 iip1*jjn, ndex)
+	
+	ndex(1) = 0
+        nscal = 1
+        
+	if (mpi_rank==0) then
+          tst(1) = time_step
+          call histwrite(fluxdid, 'dtvr', 1, tst, nscal, ndex)
+          ist(1)=istdyn
+          call histwrite(fluxdid, 'istdyn', 1, ist, nscal, ndex)
+          istp(1)= istphy
+          call histwrite(fluxdid, 'istphy', 1, istp, nscal, ndex)
+	endif
+	first = .false.
+
+      endif
+
+
+      IF(iadvtr.EQ.0) THEN
+cym         CALL initial0(ijp1llm,phic)
+cym        CALL initial0(ijp1llm,tetac)
+cym         CALL initial0(ijp1llm,pbaruc)
+cym         CALL initial0(ijmllm,pbarvc)
+        ijb=ij_begin
+        ije=ij_end
+        phic(ijb:ije,1:llm)=0
+	tetac(ijb:ije,1:llm)=0
+	pbaruc(ijb:ije,1:llm)=0
+	
+	IF (pole_sud) ije=ij_end-iip1
+	pbarvc(ijb:ije,1:llm)=0
+      ENDIF
+
+c   accumulation des flux de masse horizontaux
+      ijb=ij_begin
+      ije=ij_end
+      
+      DO l=1,llm
+         DO ij = ijb,ije
+            pbaruc(ij,l) = pbaruc(ij,l) + pbaru(ij,l)
+            tetac(ij,l) = tetac(ij,l) + teta(ij,l)
+            phic(ij,l) = phic(ij,l) + phi(ij,l)
+         ENDDO
+       ENDDO
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud) ije=ij_end-iip1
+	
+      DO l=1,llm
+         DO ij = ijb,ije
+            pbarvc(ij,l) = pbarvc(ij,l) + pbarv(ij,l)
+         ENDDO
+      ENDDO
+
+c   selection de la masse instantannee des mailles avant le transport.
+      IF(iadvtr.EQ.0) THEN
+cym         CALL SCOPY(ip1jmp1*llm,masse,1,massem,1)
+        ijb=ij_begin
+        ije=ij_end 
+	massem(ijb:ije,1:llm)=masse(ijb:ije,1:llm)
+      ENDIF
+
+      iadvtr   = iadvtr+1
+
+c$OMP END MASTER
+c$OMP BARRIER
+c   Test pour savoir si on advecte a ce pas de temps
+      IF ( iadvtr.EQ.istdyn ) THEN
+c$OMP MASTER
+c    normalisation
+      ijb=ij_begin
+      ije=ij_end 
+
+      DO l=1,llm
+         DO ij = ijb,ije
+            pbaruc(ij,l) = pbaruc(ij,l)/REAL(istdyn)
+            tetac(ij,l) = tetac(ij,l)/REAL(istdyn)
+            phic(ij,l) = phic(ij,l)/REAL(istdyn)
+         ENDDO
+      ENDDO
+
+      ijb=ij_begin
+      ije=ij_end 
+      if (pole_sud) ije=ij_end-iip1      
+      
+      DO l=1,llm
+          DO ij = ijb,ije
+            pbarvc(ij,l) = pbarvc(ij,l)/REAL(istdyn)
+         ENDDO
+      ENDDO
+
+c   traitement des flux de masse avant advection.
+c     1. calcul de w
+c     2. groupement des mailles pres du pole.
+c$OMP END MASTER
+c$OMP BARRIER 
+        call Register_Hallo(pbaruc,ip1jmp1,llm,1,1,1,1,Req)
+	call Register_Hallo(pbarvc,ip1jm,llm,1,1,1,1,Req)
+        call SendRequest(Req)
+c$OMP BARRIER
+        call WaitRequest(Req)
+c$OMP BARRIER
+c$OMP MASTER
+        CALL groupe_p( massem, pbaruc,pbarvc, pbarug,pbarvg,wg )
+        
+        jjb=jj_begin
+	jje=jj_end
+	if (pole_sud) jje=jj_end-1
+	
+        do l=1,llm
+           do j=jjb,jje
+              do i=1,iip1
+                 pbarvst(i,j,l)=pbarvg(i,j,l)
+              enddo
+           enddo
+	 enddo
+	 
+	 if (pole_sud) then
+           do i=1,iip1
+              pbarvst(i,jjp1,l)=0.
+           enddo
+        endif
+      
+         iadvtr=0
+	write(lunout,*)'ITAU auquel on stoke les fluxmasses',itau
+	
+        ijb=ij_begin
+	ije=ij_end
+	jjn=jj_nb
+	
+	call histwrite(fluxid, 'masse', itau, massem(ijb:ije,:),
+     .               iip1*jjn*llm, ndex)
+	
+	call histwrite(fluxid, 'pbaru', itau, pbarug(ijb:ije,:),
+     .               iip1*jjn*llm, ndex)
+	
+        jjb=jj_begin
+	jje=jj_end
+	jjn=jj_nb
+	if (pole_sud) then
+	  jje=jj_end-1
+	  jjn=jj_nb-1
+	endif
+	
+	call histwrite(fluxvid, 'pbarv', itau, pbarvg(:,jjb:jje,:),
+     .               iip1*jjn*llm, ndex)
+	
+        ijb=ij_begin
+	ije=ij_end
+	jjn=jj_nb
+	
+        call histwrite(fluxid, 'w' ,itau, wg(ijb:ije,:), 
+     .             iip1*jjn*llm, ndex) 
+	
+	call histwrite(fluxid, 'teta' ,itau, tetac(ijb:ije,:), 
+     .             iip1*jjn*llm, ndex) 
+	
+	call histwrite(fluxid, 'phi' ,itau, phic(ijb:ije,:), 
+     .             iip1*jjn*llm, ndex) 
+	
+C
+c$OMP END MASTER
+      ENDIF ! if iadvtr.EQ.istdyn
+
+#else
+      write(lunout,*)
+     & 'fluxstokenc: Needs IOIPSL to function'
+#endif
+! of #ifdef CPP_IOIPSL
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/friction_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/friction_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/friction_p.F	(revision 3330)
@@ -0,0 +1,202 @@
+!
+! $Id$
+!
+c=======================================================================
+      SUBROUTINE friction_p(ucov,vcov,pdt)
+      USE parallel_lmdz
+      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 comconst_mod, ONLY: pi
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Friction for the Newtonian case:
+!   --------------------------------
+!    2 possibilities (depending on flag 'friction_type'
+!     friction_type=0 : A friction that is only applied to the lowermost
+!                       atmospheric layer
+!     friction_type=1 : Friction applied on all atmospheric layer (but
+!       (default)       with stronger magnitude near the surface; see
+!                       iniacademic.F)
+!=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+#include "iniprint.h"
+#include "academic.h"
+
+! arguments:
+      REAL,INTENT(inout) :: ucov( iip1,jjp1,llm )
+      REAL,INTENT(inout) :: vcov( iip1,jjm,llm )
+      REAL,INTENT(in) :: pdt ! time step
+
+! local variables:
+      REAL modv(iip1,jjp1),zco,zsi
+      REAL vpn,vps,upoln,upols,vpols,vpoln
+      REAL u2(iip1,jjp1),v2(iip1,jjm)
+      INTEGER  i,j,l
+      REAL,PARAMETER :: cfric=1.e-5
+      LOGICAL,SAVE :: firstcall=.true.
+      INTEGER,SAVE :: friction_type=1
+      CHARACTER(len=20) :: modname="friction_p"
+      CHARACTER(len=80) :: abort_message
+!$OMP THREADPRIVATE(firstcall,friction_type)
+      integer :: jjb,jje
+
+!$OMP SINGLE
+      IF (firstcall) THEN
+        ! set friction type
+        call getin("friction_type",friction_type)
+        if ((friction_type.lt.0).or.(friction_type.gt.1)) then
+          abort_message="wrong friction type"
+          write(lunout,*)'Friction: wrong friction type',friction_type
+          call abort_gcm(modname,abort_message,42)
+        endif
+        firstcall=.false.
+      ENDIF
+!$OMP END SINGLE COPYPRIVATE(friction_type,firstcall)
+
+      if (friction_type.eq.0) then ! friction on first layer only
+!$OMP SINGLE
+c   calcul des composantes au carre du vent naturel
+      jjb=jj_begin
+      jje=jj_end+1
+      if (pole_sud) jje=jj_end
+      
+      do j=jjb,jje
+         do i=1,iip1
+            u2(i,j)=ucov(i,j,1)*ucov(i,j,1)*unscu2(i,j)
+         enddo
+      enddo
+      
+      jjb=jj_begin-1
+      jje=jj_end+1
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud) jje=jj_end-1
+      
+      do j=jjb,jje
+         do i=1,iip1
+            v2(i,j)=vcov(i,j,1)*vcov(i,j,1)*unscv2(i,j)
+         enddo
+      enddo
+
+c   calcul du module de V en dehors des poles
+      jjb=jj_begin
+      jje=jj_end+1
+      if (pole_nord) jjb=jj_begin+1
+      if (pole_sud) jje=jj_end-1
+      
+      do j=jjb,jje
+         do i=2,iip1
+            modv(i,j)=sqrt(0.5*(u2(i-1,j)+u2(i,j)+v2(i,j-1)+v2(i,j)))
+         enddo
+         modv(1,j)=modv(iip1,j)
+      enddo
+
+c   les deux composantes du vent au pole sont obtenues comme
+c   premiers modes de fourier de v pres du pole
+      if (pole_nord) then
+      
+        upoln=0.
+        vpoln=0.
+     
+        do i=2,iip1
+           zco=cos(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           zsi=sin(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           vpn=vcov(i,1,1)/cv(i,1)
+           upoln=upoln+zco*vpn
+           vpoln=vpoln+zsi*vpn
+        enddo
+        vpn=sqrt(upoln*upoln+vpoln*vpoln)/pi
+        do i=1,iip1
+c          modv(i,1)=vpn
+           modv(i,1)=modv(i,2)
+        enddo
+
+      endif
+      
+      if (pole_sud) then
+      
+        upols=0.
+        vpols=0.
+        do i=2,iip1
+           zco=cos(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           zsi=sin(rlonv(i))*(rlonu(i)-rlonu(i-1))
+           vps=vcov(i,jjm,1)/cv(i,jjm)
+           upols=upols+zco*vps
+           vpols=vpols+zsi*vps
+        enddo
+        vps=sqrt(upols*upols+vpols*vpols)/pi
+        do i=1,iip1
+c        modv(i,jjp1)=vps
+         modv(i,jjp1)=modv(i,jjm)
+        enddo
+      
+      endif
+      
+c   calcul du frottement au sol.
+
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_nord) jjb=jj_begin+1
+      if (pole_sud) jje=jj_end-1
+
+      do j=jjb,jje
+         do i=1,iim
+            ucov(i,j,1)=ucov(i,j,1)
+     s      -cfric*pdt*0.5*(modv(i+1,j)+modv(i,j))*ucov(i,j,1)
+         enddo
+         ucov(iip1,j,1)=ucov(1,j,1)
+      enddo
+      
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      
+      do j=jjb,jje
+         do i=1,iip1
+            vcov(i,j,1)=vcov(i,j,1)
+     s      -cfric*pdt*0.5*(modv(i,j+1)+modv(i,j))*vcov(i,j,1)
+         enddo
+         vcov(iip1,j,1)=vcov(1,j,1)
+      enddo
+!$OMP END SINGLE
+      endif ! of if (friction_type.eq.0)
+
+      if (friction_type.eq.1) then
+       ! for ucov() 
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_nord) jjb=jj_begin+1
+        if (pole_sud) jje=jj_end-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+          ucov(1:iip1,jjb:jje,l)=ucov(1:iip1,jjb:jje,l)*
+     &                                  (1.-pdt*kfrict(l))
+        enddo
+!$OMP END DO NOWAIT
+        
+       ! for vcoc()
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_sud) jje=jj_end-1
+        
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        do l=1,llm
+          vcov(1:iip1,jjb:jje,l)=vcov(1:iip1,jjb:jje,l)*
+     &                                  (1.-pdt*kfrict(l))
+        enddo
+!$OMP END DO
+      endif ! of if (friction_type.eq.1)
+
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/fxhyp.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/fxhyp.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/fxhyp.F	(revision 3330)
@@ -0,0 +1,470 @@
+!
+! $Id$
+!
+c
+c
+       SUBROUTINE fxhyp ( xzoomdeg,grossism,dzooma,tau ,
+     , rlonm025,xprimm025,rlonv,xprimv,rlonu,xprimu,rlonp025,xprimp025,
+     , champmin,champmax                                               )
+
+c      Auteur :  P. Le Van 
+
+       IMPLICIT NONE
+
+c    Calcule les longitudes et derivees dans la grille du GCM pour une
+c     fonction f(x) a tangente  hyperbolique  .
+c
+c     grossism etant le grossissement ( = 2 si 2 fois, = 3 si 3 fois,etc.)
+c     dzoom  etant  la distance totale de la zone du zoom
+c     tau  la raideur de la transition de l'interieur a l'exterieur du zoom
+c
+c    On doit avoir grossism x dzoom <  pi ( radians )   , en longitude.
+c   ********************************************************************
+
+
+       INTEGER nmax, nmax2
+       PARAMETER (  nmax = 30000, nmax2 = 2*nmax )
+c
+       LOGICAL scal180
+       PARAMETER ( scal180 = .TRUE. )
+
+c      scal180 = .TRUE.  si on veut avoir le premier point scalaire pour   
+c      une grille reguliere ( grossism = 1.,tau=0.,clon=0. ) a -180. degres.
+c      sinon scal180 = .FALSE.
+
+#include "dimensions.h"
+#include "paramet.h"
+       
+c     ......  arguments  d'entree   .......
+c
+       REAL xzoomdeg,dzooma,tau,grossism
+
+c    ......   arguments  de  sortie  ......
+
+       REAL rlonm025(iip1),xprimm025(iip1),rlonv(iip1),xprimv(iip1),
+     ,  rlonu(iip1),xprimu(iip1),rlonp025(iip1),xprimp025(iip1)
+
+c     .... variables locales  ....
+c
+       REAL   dzoom
+       REAL(KIND=8) xlon(iip1),xprimm(iip1),xuv
+       REAL(KIND=8) xtild(0:nmax2)
+       REAL(KIND=8) fhyp(0:nmax2),ffdx,beta,Xprimt(0:nmax2)
+       REAL(KIND=8) Xf(0:nmax2),xxpr(0:nmax2)
+       REAL(KIND=8) xvrai(iip1),xxprim(iip1) 
+       REAL(KIND=8) pi,depi,epsilon,xzoom,fa,fb
+       REAL(KIND=8) Xf1, Xfi , a0,a1,a2,a3,xi2
+       INTEGER i,it,ik,iter,ii,idif,ii1,ii2
+       REAL(KIND=8) xi,xo1,xmoy,xlon2,fxm,Xprimin
+       REAL(KIND=8) champmin,champmax,decalx
+       INTEGER is2
+       SAVE is2
+
+       REAL(KIND=8) heavyside
+
+       pi       = 2. * ASIN(1.)
+       depi     = 2. * pi
+       epsilon  = 1.e-3
+       xzoom    = xzoomdeg * pi/180. 
+c
+       if (iim==1) then
+
+          rlonm025(1)=-pi/2.
+          rlonv(1)=0.
+          rlonu(1)=pi
+          rlonp025(1)=pi/2.
+          rlonm025(2)=rlonm025(1)+depi
+          rlonv(2)=rlonv(1)+depi
+          rlonu(2)=rlonu(1)+depi
+          rlonp025(2)=rlonp025(1)+depi
+
+          xprimm025(:)=1.
+          xprimv(:)=1.
+          xprimu(:)=1.
+          xprimp025(:)=1.
+          champmin=depi
+          champmax=depi
+          return
+
+       endif
+
+           decalx   = .75
+       IF( grossism.EQ.1..AND.scal180 )  THEN
+           decalx   = 1.
+       ENDIF
+
+       WRITE(6,*) 'FXHYP scal180,decalx', scal180,decalx
+c
+       IF( dzooma.LT.1.)  THEN
+         dzoom = dzooma * depi
+       ELSEIF( dzooma.LT. 25. ) THEN
+         WRITE(6,*) ' Le param. dzoomx pour fxhyp est trop petit ! L aug
+     ,menter et relancer ! '
+         STOP 1
+       ELSE
+         dzoom = dzooma * pi/180.
+       ENDIF
+
+       WRITE(6,*) ' xzoom( rad.),grossism,tau,dzoom (radians)'
+       WRITE(6,24) xzoom,grossism,tau,dzoom
+
+       DO i = 0, nmax2 
+        xtild(i) = - pi + REAL(i) * depi /nmax2
+       ENDDO
+
+       DO i = nmax, nmax2
+
+       fa  = tau*  ( dzoom/2.  - xtild(i) )
+       fb  = xtild(i) *  ( pi - xtild(i) )
+
+         IF( 200.* fb .LT. - fa )   THEN
+           fhyp ( i) = - 1.
+         ELSEIF( 200. * fb .LT. fa ) THEN
+           fhyp ( i) =   1.
+         ELSE
+            IF( ABS(fa).LT.1.e-13.AND.ABS(fb).LT.1.e-13)  THEN
+                IF(   200.*fb + fa.LT.1.e-10 )  THEN
+                    fhyp ( i ) = - 1.
+                ELSEIF( 200.*fb - fa.LT.1.e-10 )  THEN
+                    fhyp ( i )  =   1.
+                ENDIF
+            ELSE
+                    fhyp ( i )  =  TANH ( fa/fb )
+            ENDIF
+         ENDIF
+        IF ( xtild(i).EQ. 0. )  fhyp(i) =  1.
+        IF ( xtild(i).EQ. pi )  fhyp(i) = -1.
+
+       ENDDO
+
+cc  ....  Calcul  de  beta  ....
+
+       ffdx = 0.
+
+       DO i = nmax +1,nmax2
+
+       xmoy    = 0.5 * ( xtild(i-1) + xtild( i ) )
+       fa  = tau*  ( dzoom/2.  - xmoy )
+       fb  = xmoy *  ( pi - xmoy )
+
+       IF( 200.* fb .LT. - fa )   THEN
+         fxm = - 1.
+       ELSEIF( 200. * fb .LT. fa ) THEN
+         fxm =   1.
+       ELSE
+            IF( ABS(fa).LT.1.e-13.AND.ABS(fb).LT.1.e-13)  THEN
+                IF(   200.*fb + fa.LT.1.e-10 )  THEN
+                    fxm   = - 1.
+                ELSEIF( 200.*fb - fa.LT.1.e-10 )  THEN
+                    fxm   =   1.
+                ENDIF
+            ELSE
+                    fxm   =  TANH ( fa/fb )
+            ENDIF
+       ENDIF
+
+       IF ( xmoy.EQ. 0. )  fxm  =  1.
+       IF ( xmoy.EQ. pi )  fxm  = -1.
+
+       ffdx = ffdx + fxm * ( xtild(i) - xtild(i-1) )
+
+       ENDDO
+
+        beta  = ( grossism * ffdx - pi ) / ( ffdx - pi )
+
+       IF( 2.*beta - grossism.LE. 0.)  THEN
+        WRITE(6,*) ' **  Attention ! La valeur beta calculee dans la rou
+     ,tine fxhyp est mauvaise ! '
+        WRITE(6,*)'Modifier les valeurs de  grossismx ,tau ou dzoomx ',
+     , ' et relancer ! ***  '
+        CALL ABORT_GCM("FXHYP", "", 1)
+       ENDIF
+c
+c   .....  calcul  de  Xprimt   .....
+c
+       
+       DO i = nmax, nmax2
+        Xprimt(i) = beta  + ( grossism - beta ) * fhyp(i)
+       ENDDO
+c   
+       DO i =  nmax+1, nmax2
+        Xprimt( nmax2 - i ) = Xprimt( i )
+       ENDDO
+c
+
+c   .....  Calcul  de  Xf     ........
+
+       Xf(0) = - pi
+
+       DO i =  nmax +1, nmax2
+
+       xmoy    = 0.5 * ( xtild(i-1) + xtild( i ) )
+       fa  = tau*  ( dzoom/2.  - xmoy )
+       fb  = xmoy *  ( pi - xmoy )
+
+       IF( 200.* fb .LT. - fa )   THEN
+         fxm = - 1.
+       ELSEIF( 200. * fb .LT. fa ) THEN
+         fxm =   1.
+       ELSE
+         fxm =  TANH ( fa/fb )
+       ENDIF
+
+       IF ( xmoy.EQ. 0. )  fxm =  1.
+       IF ( xmoy.EQ. pi )  fxm = -1.
+       xxpr(i)    = beta + ( grossism - beta ) * fxm
+
+       ENDDO
+
+       DO i = nmax+1, nmax2
+        xxpr(nmax2-i+1) = xxpr(i)
+       ENDDO
+
+        DO i=1,nmax2
+         Xf(i)   = Xf(i-1) + xxpr(i) * ( xtild(i) - xtild(i-1) )
+        ENDDO
+
+
+c    *****************************************************************
+c
+
+c     .....  xuv = 0.   si  calcul  aux pts   scalaires   ........
+c     .....  xuv = 0.5  si  calcul  aux pts      U        ........
+c
+      WRITE(6,18)
+c
+      DO 5000  ik = 1, 4
+
+       IF( ik.EQ.1 )        THEN
+         xuv =  -0.25
+       ELSE IF ( ik.EQ.2 )  THEN
+         xuv =   0.
+       ELSE IF ( ik.EQ.3 )  THEN
+         xuv =   0.50
+       ELSE IF ( ik.EQ.4 )  THEN
+         xuv =   0.25
+       ENDIF
+
+      xo1   = 0.
+
+      ii1=1
+      ii2=iim
+      IF(ik.EQ.1.and.grossism.EQ.1.) THEN
+        ii1 = 2 
+        ii2 = iim+1
+      ENDIF
+      DO 1500 i = ii1, ii2
+
+      xlon2 = - pi + (REAL(i) + xuv - decalx) * depi / REAL(iim) 
+
+      Xfi    = xlon2
+c
+      DO 250 it =  nmax2,0,-1
+      IF( Xfi.GE.Xf(it))  GO TO 350
+250   CONTINUE
+
+      it = 0
+
+350   CONTINUE
+
+c    ......  Calcul de   Xf(xi)    ...... 
+c
+      xi  = xtild(it)
+
+      IF(it.EQ.nmax2)  THEN
+       it       = nmax2 -1
+       Xf(it+1) = pi
+      ENDIF
+c  .....................................................................
+c
+c   Appel de la routine qui calcule les coefficients a0,a1,a2,a3 d'un
+c   polynome de degre 3  qui passe  par les points (Xf(it),xtild(it) )
+c          et (Xf(it+1),xtild(it+1) )
+
+       CALL coefpoly ( Xf(it),Xf(it+1),Xprimt(it),Xprimt(it+1),
+     ,                xtild(it),xtild(it+1),  a0, a1, a2, a3  )
+
+       Xf1     = Xf(it)
+       Xprimin = a1 + 2.* a2 * xi + 3.*a3 * xi *xi
+
+       DO 500 iter = 1,300
+        xi = xi - ( Xf1 - Xfi )/ Xprimin
+
+        IF( ABS(xi-xo1).LE.epsilon)  GO TO 550
+         xo1      = xi
+         xi2      = xi * xi
+         Xf1      = a0 +  a1 * xi +     a2 * xi2  +     a3 * xi2 * xi
+         Xprimin  =       a1      + 2.* a2 *  xi  + 3.* a3 * xi2
+500   CONTINUE
+        WRITE(6,*) ' Pas de solution ***** ',i,xlon2,iter
+          STOP 6
+550   CONTINUE
+
+       xxprim(i) = depi/ ( REAL(iim) * Xprimin )
+       xvrai(i)  =  xi + xzoom
+
+1500   CONTINUE
+
+
+       IF(ik.EQ.1.and.grossism.EQ.1.)  THEN
+         xvrai(1)    = xvrai(iip1)-depi
+         xxprim(1)   = xxprim(iip1)
+       ENDIF
+
+       DO i = 1 , iim
+        xlon(i)     = xvrai(i)
+        xprimm(i)   = xxprim(i)
+       ENDDO
+       DO i = 1, iim -1
+        IF( xvrai(i+1). LT. xvrai(i) )  THEN
+         WRITE(6,*) ' PBS. avec rlonu(',i+1,') plus petit que rlonu(',i,
+     ,  ')'
+        STOP 7
+        ENDIF
+       ENDDO
+c
+c   ... Reorganisation  des  longitudes  pour les avoir  entre - pi et pi ..
+c   ........................................................................
+
+       champmin =  1.e12
+       champmax = -1.e12
+       DO i = 1, iim
+        champmin = MIN( champmin,xvrai(i) )
+        champmax = MAX( champmax,xvrai(i) )
+       ENDDO
+
+      IF(champmin .GE.-pi-0.10.and.champmax.LE.pi+0.10 )  THEN
+                GO TO 1600
+      ELSE
+       WRITE(6,*) 'Reorganisation des longitudes pour avoir entre - pi',
+     ,  ' et pi '
+c
+        IF( xzoom.LE.0.)  THEN
+          IF( ik.EQ. 1 )  THEN
+          DO i = 1, iim
+           IF( xvrai(i).GE. - pi )  GO TO 80
+          ENDDO
+            WRITE(6,*)  ' PBS. 1 !  Xvrai plus petit que  - pi ! '
+            STOP 8
+ 80       CONTINUE
+          is2 = i
+          ENDIF
+
+          IF( is2.NE. 1 )  THEN
+            DO ii = is2 , iim
+             xlon  (ii-is2+1) = xvrai(ii)
+             xprimm(ii-is2+1) = xxprim(ii)
+            ENDDO
+            DO ii = 1 , is2 -1
+             xlon  (ii+iim-is2+1) = xvrai(ii) + depi
+             xprimm(ii+iim-is2+1) = xxprim(ii) 
+            ENDDO
+          ENDIF
+        ELSE 
+          IF( ik.EQ.1 )  THEN
+           DO i = iim,1,-1
+             IF( xvrai(i).LE. pi ) GO TO 90
+           ENDDO
+             WRITE(6,*) ' PBS.  2 ! Xvrai plus grand  que   pi ! '
+              STOP 9
+ 90        CONTINUE
+            is2 = i
+          ENDIF
+           idif = iim -is2
+           DO ii = 1, is2
+            xlon  (ii+idif) = xvrai(ii)
+            xprimm(ii+idif) = xxprim(ii)
+           ENDDO
+           DO ii = 1, idif
+            xlon (ii)  = xvrai (ii+is2) - depi
+            xprimm(ii) = xxprim(ii+is2) 
+           ENDDO
+         ENDIF
+      ENDIF
+c
+c     .........   Fin  de la reorganisation   ............................
+
+ 1600    CONTINUE
+
+
+         xlon  ( iip1)  = xlon(1) + depi
+         xprimm( iip1 ) = xprimm (1 )
+       
+         DO i = 1, iim+1
+         xvrai(i) = xlon(i)*180./pi
+         ENDDO
+
+         IF( ik.EQ.1 )  THEN
+c          WRITE(6,*)  ' XLON aux pts. V-0.25   apres ( en  deg. ) '
+c          WRITE(6,18) 
+c          WRITE(6,68) xvrai
+c          WRITE(6,*) ' XPRIM k ',ik
+c          WRITE(6,566)  xprimm
+
+           DO i = 1,iim +1
+             rlonm025(i) = xlon( i )
+            xprimm025(i) = xprimm(i)
+           ENDDO
+         ELSE IF( ik.EQ.2 )  THEN
+c          WRITE(6,18) 
+c          WRITE(6,*)  ' XLON aux pts. V   apres ( en  deg. ) '
+c          WRITE(6,68) xvrai
+c          WRITE(6,*) ' XPRIM k ',ik
+c          WRITE(6,566)  xprimm
+
+           DO i = 1,iim + 1
+             rlonv(i) = xlon( i )
+            xprimv(i) = xprimm(i)
+           ENDDO
+
+         ELSE IF( ik.EQ.3)   THEN
+c          WRITE(6,18) 
+c          WRITE(6,*)  ' XLON aux pts. U   apres ( en  deg. ) '
+c          WRITE(6,68) xvrai
+c          WRITE(6,*) ' XPRIM ik ',ik
+c          WRITE(6,566)  xprimm
+
+           DO i = 1,iim + 1
+             rlonu(i) = xlon( i )
+            xprimu(i) = xprimm(i)
+           ENDDO
+
+         ELSE IF( ik.EQ.4 )  THEN
+c          WRITE(6,18) 
+c          WRITE(6,*)  ' XLON aux pts. V+0.25   apres ( en  deg. ) '
+c          WRITE(6,68) xvrai
+c          WRITE(6,*) ' XPRIM ik ',ik
+c          WRITE(6,566)  xprimm
+
+           DO i = 1,iim + 1
+             rlonp025(i) = xlon( i )
+            xprimp025(i) = xprimm(i)
+           ENDDO
+
+         ENDIF
+
+5000    CONTINUE
+c
+       WRITE(6,18)
+c
+c    ...........  fin  de la boucle  do 5000      ............
+
+        DO i = 1, iim
+         xlon(i) = rlonv(i+1) - rlonv(i)
+        ENDDO
+        champmin =  1.e12
+        champmax = -1.e12
+        DO i = 1, iim
+         champmin = MIN( champmin, xlon(i) )
+         champmax = MAX( champmax, xlon(i) )
+        ENDDO
+         champmin = champmin * 180./pi
+         champmax = champmax * 180./pi
+
+18     FORMAT(/)
+24     FORMAT(2x,'Parametres xzoom,gross,tau ,dzoom pour fxhyp ',4f8.3)
+68     FORMAT(1x,7f9.2)
+566    FORMAT(1x,7f9.4)
+
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gcm.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gcm.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gcm.F	(revision 3330)
@@ -0,0 +1,517 @@
+!
+! $Id$
+!
+c
+c
+      PROGRAM gcm
+
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#endif
+
+
+      USE mod_const_mpi, ONLY: init_const_mpi
+      USE parallel_lmdz
+      USE infotrac
+!#ifdef CPP_PHYS
+!      USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
+!#endif
+      USE mod_hallo
+      USE Bands
+      USE getparam
+      USE filtreg_mod
+      USE control_mod
+
+#ifdef INCA
+! Only INCA needs these informations (from the Earth's physics)
+      USE indice_sol_mod
+      USE mod_phys_lmdz_omp_data, ONLY: klon_omp 
+#endif
+
+#ifdef CPP_PHYS
+      USE iniphysiq_mod, ONLY: iniphysiq
+#endif
+      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
+      USE logic_mod ! all of it, because of copyin clause when calling leapfrog
+      USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref,
+     &                itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end,
+     &                dt,hour_ini,itaufin
+
+      IMPLICIT NONE
+
+c      ......   Version  du 10/01/98    ..........
+
+c             avec  coordonnees  verticales hybrides 
+c   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   GCM LMD nouvelle grille
+c
+c=======================================================================
+c
+c  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
+c      et possibilite d'appeler une fonction f(y)  a derivee tangente
+c      hyperbolique a la  place de la fonction a derivee sinusoidale.
+c  ... Possibilite de choisir le schema pour l'advection de
+c        q  , en modifiant iadv dans traceur.def  (MAF,10/02) .
+c
+c      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
+c      Pour Van-Leer iadv=10
+c
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissnew.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+!#include "com_io_dyn.h"
+#include "iniprint.h"
+#include "tracstoke.h"
+
+#ifdef INCA
+! Only INCA needs these informations (from the Earth's physics)
+!#include "indicesol.h"
+#endif
+
+      REAL zdtvr
+
+c   variables dynamiques
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
+      REAL teta(ip1jmp1,llm)                 ! temperature potentielle 
+      REAL, ALLOCATABLE, DIMENSION(:,:,:) :: q ! champs advectes
+      REAL ps(ip1jmp1)                       ! pression  au sol
+c      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+      REAL masse(ip1jmp1,llm)                ! masse d'air
+      REAL phis(ip1jmp1)                     ! geopotentiel au sol
+c      REAL phi(ip1jmp1,llm)                  ! geopotentiel
+c      REAL w(ip1jmp1,llm)                    ! vitesse verticale
+
+c variables dynamiques intermediaire pour le transport
+
+c   variables pour le fichier histoire
+      REAL dtav      ! intervalle de temps elementaire
+
+      REAL time_0
+
+      LOGICAL lafin
+
+      real time_step, t_wrt, t_ops
+
+
+c+jld variables test conservation energie
+c      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+C     Tendance de la temp. potentiel d (theta)/ d t due a la 
+C     tansformation d'energie cinetique en energie thermique
+C     cree par la dissipation
+c      REAL dhecdt(ip1jmp1,llm)
+c      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+c      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+c      CHARACTER (len=15) :: ztit
+c-jld 
+
+
+      character (len=80) :: dynhist_file, dynhistave_file
+      character (len=20) :: modname
+      character (len=80) :: abort_message
+! locales pour gestion du temps
+      INTEGER :: an, mois, jour
+      REAL :: heure
+
+
+c-----------------------------------------------------------------------
+c   Initialisations:
+c   ----------------
+
+      abort_message = 'last timestep reached'
+      modname = 'gcm'
+      descript = 'Run GCM LMDZ'
+      lafin    = .FALSE.
+      dynhist_file = 'dyn_hist'
+      dynhistave_file = 'dyn_hist_ave'
+
+
+
+c----------------------------------------------------------------------
+c  lecture des fichiers gcm.def ou run.def
+c  ---------------------------------------
+c
+      CALL conf_gcm( 99, .TRUE. )
+      if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
+     s "iphysiq must be a multiple of iperiod", 1)
+c
+c
+c------------------------------------
+c   Initialisation partie parallele
+c------------------------------------
+
+      CALL init_const_mpi
+      call init_parallel
+      call ini_getparam("out.def")
+      call Read_Distrib
+
+!#ifdef CPP_PHYS
+!        CALL Init_Phys_lmdz(iim,jjp1,llm,mpi_size,distrib_phys)
+!#endif
+!      CALL set_bands
+!#ifdef CPP_PHYS
+!      CALL Init_interface_dyn_phys
+!#endif
+      CALL barrier
+
+      CALL set_bands
+      if (mpi_rank==0) call WriteBands
+      call SetDistrib(jj_Nb_Caldyn)
+
+c$OMP PARALLEL
+      call Init_Mod_hallo
+c$OMP END PARALLEL
+
+!#ifdef CPP_PHYS
+!c$OMP PARALLEL
+!      call InitComgeomphy ! now done in iniphysiq
+!c$OMP END PARALLEL 
+!#endif
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Initialisation de XIOS
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+c-----------------------------------------------------------------------
+c   Choix du calendrier
+c   -------------------
+
+c      calend = 'earth_365d'
+
+#ifdef CPP_IOIPSL
+      if (calend == 'earth_360d') then
+        call ioconf_calendar('360d')
+        write(lunout,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an'
+      else if (calend == 'earth_365d') then
+        call ioconf_calendar('noleap')
+        write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an'
+      else if (calend == 'earth_366d') then
+        call ioconf_calendar('gregorian')
+        write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile'
+      else
+        abort_message = 'Mauvais choix de calendrier'
+        call abort_gcm(modname,abort_message,1)
+      endif
+#endif
+
+      IF (type_trac == 'inca') THEN
+#ifdef INCA
+         call init_const_lmdz(
+     $        nbtr,anneeref,dayref,
+     $        iphysiq,day_step,nday, 
+     $        nbsrf, is_oce,is_sic,
+     $        is_ter,is_lic, calend)
+
+         call init_inca_para(
+     $        iim,jjm+1,llm,klon_glo,mpi_size,
+     $        distrib_phys,COMM_LMDZ)
+#endif
+      END IF
+
+c-----------------------------------------------------------------------
+c   Initialisation des traceurs
+c   ---------------------------
+c  Choix du nombre de traceurs et du schema pour l'advection
+c  dans fichier traceur.def, par default ou via INCA
+      call infotrac_init
+
+c Allocation de la tableau q : champs advectes   
+      ALLOCATE(q(ip1jmp1,llm,nqtot))
+
+c-----------------------------------------------------------------------
+c   Lecture de l'etat initial :
+c   ---------------------------
+
+c  lecture du fichier start.nc
+      if (read_start) then
+      ! we still need to run iniacademic to initialize some
+      ! constants & fields, if we run the 'newtonian' or 'SW' cases:
+        if (iflag_phys.ne.1) then
+          CALL iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
+        endif
+
+!        if (planet_type.eq."earth") then
+! Load an Earth-format start file
+         CALL dynetat0("start.nc",vcov,ucov,
+     &              teta,q,masse,ps,phis, time_0)
+!        endif ! of if (planet_type.eq."earth")
+
+c       write(73,*) 'ucov',ucov
+c       write(74,*) 'vcov',vcov
+c       write(75,*) 'teta',teta
+c       write(76,*) 'ps',ps
+c       write(77,*) 'q',q
+
+      endif ! of if (read_start)
+
+c le cas echeant, creation d un etat initial
+      IF (prt_level > 9) WRITE(lunout,*)
+     .              'GCM: AVANT iniacademic AVANT AVANT AVANT AVANT'
+      if (.not.read_start) then
+         CALL iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
+      endif
+
+c-----------------------------------------------------------------------
+c   Lecture des parametres de controle pour la simulation :
+c   -------------------------------------------------------
+c  on recalcule eventuellement le pas de temps
+
+      IF(MOD(day_step,iperiod).NE.0) THEN
+        abort_message = 
+     .  'Il faut choisir un nb de pas par jour multiple de iperiod'
+        call abort_gcm(modname,abort_message,1)
+      ENDIF
+
+      IF(MOD(day_step,iphysiq).NE.0) THEN
+        abort_message = 
+     * 'Il faut choisir un nb de pas par jour multiple de iphysiq'
+        call abort_gcm(modname,abort_message,1)
+      ENDIF
+
+      zdtvr    = daysec/REAL(day_step)
+        IF(dtvr.NE.zdtvr) THEN
+         WRITE(lunout,*)
+     .    'WARNING!!! changement de pas de temps',dtvr,'>',zdtvr
+        ENDIF
+
+C
+C on remet le calendrier à zero si demande
+c
+      IF (start_time /= starttime) then
+        WRITE(lunout,*)' GCM: Attention l''heure de depart lue dans le'
+     &,' fichier restart ne correspond pas à celle lue dans le run.def'
+        IF (raz_date == 1) then
+          WRITE(lunout,*)'Je prends l''heure lue dans run.def'
+          start_time = starttime
+        ELSE
+          call abort_gcm("gcm", "'Je m''arrete'", 1)
+        ENDIF
+      ENDIF
+      IF (raz_date == 1) THEN
+        annee_ref = anneeref
+        day_ref = dayref
+        day_ini = dayref
+        itau_dyn = 0
+        itau_phy = 0
+        time_0 = 0.
+        write(lunout,*)
+     .   'GCM: On reinitialise a la date lue dans gcm.def'
+      ELSE IF (annee_ref .ne. anneeref .or. day_ref .ne. dayref) THEN
+        write(lunout,*)
+     .  'GCM: Attention les dates initiales lues dans le fichier'
+        write(lunout,*)
+     .  ' restart ne correspondent pas a celles lues dans '
+        write(lunout,*)' gcm.def'
+        write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+        write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+        write(lunout,*)' Pas de remise a zero'
+      ENDIF
+c      if (annee_ref .ne. anneeref .or. day_ref .ne. dayref) then
+c        write(lunout,*)
+c     .  'GCM: Attention les dates initiales lues dans le fichier'
+c        write(lunout,*)
+c     .  ' restart ne correspondent pas a celles lues dans '
+c        write(lunout,*)' gcm.def'
+c        write(lunout,*)' annee_ref=',annee_ref," anneeref=",anneeref
+c        write(lunout,*)' day_ref=',day_ref," dayref=",dayref
+c        if (raz_date .ne. 1) then
+c          write(lunout,*)
+c     .    'GCM: On garde les dates du fichier restart'
+c        else
+c          annee_ref = anneeref
+c          day_ref = dayref
+c          day_ini = dayref
+c          itau_dyn = 0
+c          itau_phy = 0
+c          time_0 = 0.
+c          write(lunout,*)
+c     .   'GCM: On reinitialise a la date lue dans gcm.def'
+c        endif
+c      ELSE
+c        raz_date = 0
+c      endif
+
+#ifdef CPP_IOIPSL
+      mois = 1
+      heure = 0.
+      call ymds2ju(annee_ref, mois, day_ref, heure, jD_ref)
+      jH_ref = jD_ref - int(jD_ref)
+      jD_ref = int(jD_ref)
+
+      call ioconf_startdate(INT(jD_ref), jH_ref)
+
+      write(lunout,*)'DEBUG'
+      write(lunout,*)'annee_ref, mois, day_ref, heure, jD_ref'
+      write(lunout,*)annee_ref, mois, day_ref, heure, jD_ref
+      call ju2ymds(jD_ref+jH_ref,an, mois, jour, heure)
+      write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure'
+      write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure
+#else
+! Ehouarn: we still need to define JD_ref and JH_ref
+! and since we don't know how many days there are in a year
+! we set JD_ref to 0 (this should be improved ...)
+      jD_ref=0
+      jH_ref=0
+#endif
+
+
+      if (iflag_phys.eq.1) then
+      ! these initialisations have already been done (via iniacademic)
+      ! if running in SW or Newtonian mode
+c-----------------------------------------------------------------------
+c   Initialisation des constantes dynamiques :
+c   ------------------------------------------
+        dtvr = zdtvr
+        CALL iniconst
+
+c-----------------------------------------------------------------------
+c   Initialisation de la geometrie :
+c   --------------------------------
+        CALL inigeom
+
+c-----------------------------------------------------------------------
+c   Initialisation du filtre :
+c   --------------------------
+        CALL inifilr
+      endif ! of if (iflag_phys.eq.1)
+c
+c-----------------------------------------------------------------------
+c   Initialisation de la dissipation :
+c   ----------------------------------
+
+      CALL inidissip( lstardis, nitergdiv, nitergrot, niterh   ,
+     *                tetagdiv, tetagrot , tetatemp, vert_prof_dissip)
+
+c-----------------------------------------------------------------------
+c   Initialisation de la physique :
+c   -------------------------------
+      IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
+! Physics:
+#ifdef CPP_PHYS
+         CALL iniphysiq(iim,jjm,llm,
+     &                distrib_phys(mpi_rank),comm_lmdz,
+     &                daysec,day_ini,dtphys/nsplit_phys,
+     &                rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,
+     &                iflag_phys)
+#endif
+      ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
+
+
+c-----------------------------------------------------------------------
+c   Initialisation des dimensions d'INCA :
+c   --------------------------------------
+      IF (type_trac == 'inca') THEN
+!$OMP PARALLEL
+#ifdef INCA
+         CALL init_inca_dim(klon_omp,llm,iim,jjm,
+     $        rlonu,rlatu,rlonv,rlatv)
+#endif
+!$OMP END PARALLEL
+      END IF
+
+c-----------------------------------------------------------------------
+c   Initialisation des I/O :
+c   ------------------------
+
+
+      if (nday>=0) then
+         day_end = day_ini + nday
+      else
+         day_end = day_ini - nday/day_step
+      endif
+
+      WRITE(lunout,300)day_ini,day_end
+ 300  FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)
+
+#ifdef CPP_IOIPSL
+      call ju2ymds(jD_ref + day_ini - day_ref, an, mois, jour, heure)
+      write (lunout,301)jour, mois, an
+      call ju2ymds(jD_ref + day_end - day_ref, an, mois, jour, heure)
+      write (lunout,302)jour, mois, an
+ 301  FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4)
+ 302  FORMAT('1'/,15x,'    au ', i2,'/',i2,'/',i4)
+#endif
+
+!      if (planet_type.eq."earth") then
+! Write an Earth-format restart file
+        CALL dynredem0_p("restart.nc", day_end, phis)
+!      endif
+
+      ecripar = .TRUE.
+
+#ifdef CPP_IOIPSL
+      time_step = zdtvr
+      IF (mpi_rank==0) then
+        if (ok_dyn_ins) then
+          ! initialize output file for instantaneous outputs
+          ! t_ops = iecri * daysec ! do operations every t_ops
+          t_ops =((1.0*iecri)/day_step) * daysec  
+          t_wrt = daysec ! iecri * daysec ! write output every t_wrt
+          t_wrt = daysec ! iecri * daysec ! write output every t_wrt
+          CALL inithist(day_ref,annee_ref,time_step,
+     &                  t_ops,t_wrt)
+        endif
+
+        IF (ok_dyn_ave) THEN 
+          ! initialize output file for averaged outputs
+          t_ops = iperiod * time_step ! do operations every t_ops
+          t_wrt = periodav * daysec   ! write output every t_wrt
+          CALL initdynav(day_ref,annee_ref,time_step,
+     &                   t_ops,t_wrt)
+!         CALL initdynav_p(dynhistave_file,day_ref,annee_ref,time_step,
+!     .        t_ops, t_wrt, histaveid)
+        END IF
+      ENDIF
+      dtav = iperiod*dtvr/daysec
+#endif
+! #endif of #ifdef CPP_IOIPSL
+
+c  Choix des frequences de stokage pour le offline
+c      istdyn=day_step/4     ! stockage toutes les 6h=1jour/4
+c      istdyn=day_step/12     ! stockage toutes les 2h=1jour/12
+      istdyn=day_step/4     ! stockage toutes les 6h=1jour/12
+      istphy=istdyn/iphysiq     
+
+
+c
+c-----------------------------------------------------------------------
+c   Integration temporelle du modele :
+c   ----------------------------------
+
+c       write(78,*) 'ucov',ucov
+c       write(78,*) 'vcov',vcov
+c       write(78,*) 'teta',teta
+c       write(78,*) 'ps',ps
+c       write(78,*) 'q',q
+
+!c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/)
+c$OMP PARALLEL DEFAULT(SHARED)
+c        Copy all threadprivate variables from temps_mod
+c$OMP1 COPYIN(dt,jD_ref,jH_ref,start_time,hour_ini,day_ini,day_end)
+c$OMP1 COPYIN(annee_ref,day_ref,itau_dyn,itau_phy,itaufin,calend)
+c	Copy all threadprivate variables from logic_mod
+c$OMP1 COPYIN(purmats,forward,leapf,apphys,statcl,conser,apdiss,apdelq)
+c$OMP1 COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide)
+c$OMP1 COPYIN(ok_strato,ok_gradsfile,ok_limit,ok_etat0)
+c$OMP1 COPYIN(iflag_phys,iflag_trac)
+      CALL leapfrog_p(ucov,vcov,teta,ps,masse,phis,q,time_0)
+c$OMP END PARALLEL
+
+
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/geopot_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/geopot_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/geopot_p.F	(revision 3330)
@@ -0,0 +1,65 @@
+      SUBROUTINE geopot_p ( ngrid, teta, pk, pks, phis, phi )
+      USE parallel_lmdz
+      IMPLICIT NONE
+      
+      
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c    *******************************************************************
+c    ....   calcul du geopotentiel aux milieux des couches    .....
+c    *******************************************************************
+c
+c     ....   l'integration se fait de bas en haut  ....
+c
+c     .. ngrid,teta,pk,pks,phis sont des argum. d'entree pour le s-pg ..
+c              phi               est un  argum. de sortie pour le s-pg .
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+c   Arguments:
+c   ----------
+      INTEGER ngrid
+      REAL teta(ngrid,llm),pks(ngrid),phis(ngrid),pk(ngrid,llm) ,
+     *       phi(ngrid,llm)
+
+
+c   Local:
+c   ------
+      
+      INTEGER  l, ij,ijb,ije
+
+
+c-----------------------------------------------------------------------
+c     calcul de phi au niveau 1 pres du sol  .....
+      ijb=ij_begin
+      ije=ij_end+iip1
+      
+      IF (pole_sud)  ije=ij_end
+
+      DO  ij  = ijb, ije
+      phi( ij,1 ) = phis( ij ) + teta(ij,1) * ( pks(ij) - pk(ij,1) )
+      ENDDO
+
+c     calcul de phi aux niveaux superieurs  .......
+
+      DO  l = 2,llm
+        DO  ij    = ijb,ije
+        phi(ij,l) = phi(ij,l-1) + 0.5 * ( teta(ij,l)  + teta(ij,l-1) ) 
+     *                              *   (  pk(ij,l-1) -  pk(ij,l)    )
+        ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/getparam.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/getparam.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/getparam.F90	(revision 3330)
@@ -0,0 +1,119 @@
+!
+! $Id$
+!
+MODULE getparam
+#ifdef CPP_IOIPSL
+   USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+   USE ioipsl_getincom
+#endif
+
+   INTERFACE getpar
+     MODULE PROCEDURE getparamr,getparami,getparaml
+   END INTERFACE
+   private getparamr,getparami,getparaml
+
+   INTEGER, PARAMETER :: out_eff=99
+
+CONTAINS
+  SUBROUTINE ini_getparam(fichier)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    CHARACTER*(*) :: fichier
+    IF (mpi_rank==0) OPEN(out_eff,file=fichier,status='unknown',form='formatted')
+    
+  END SUBROUTINE ini_getparam
+
+  SUBROUTINE fin_getparam
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+      IF (mpi_rank==0) CLOSE(out_eff)
+
+  END SUBROUTINE fin_getparam
+
+  SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    REAL :: def_val
+    REAL :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    IF (mpi_rank==0) THEN
+      write(out_eff,*) '######################################'
+      write(out_eff,*) '#### ',comment,' #####'
+      write(out_eff,*) TARGET,'=',ret_val
+    ENDIF
+    
+  END SUBROUTINE getparamr
+
+  SUBROUTINE getparami(TARGET,def_val,ret_val,comment)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    INTEGER :: def_val
+    INTEGER :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    IF (mpi_rank==0) THEN
+      write(out_eff,*) '######################################'
+      write(out_eff,*) '#### ',comment,' #####'
+      write(out_eff,*) comment
+      write(out_eff,*) TARGET,'=',ret_val
+    ENDIF
+    
+  END SUBROUTINE getparami
+
+  SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)
+  USE parallel_lmdz
+    !
+    IMPLICIT NONE
+    !
+    !   Get a real scalar. We first check if we find it
+    !   in the database and if not we get it from the run.def
+    !
+    !   getinr1d and getinr2d are written on the same pattern
+    !
+    CHARACTER*(*) :: TARGET
+    LOGICAL :: def_val
+    LOGICAL :: ret_val
+    CHARACTER*(*) :: comment
+
+    ret_val=def_val
+    call getin(TARGET,ret_val)
+
+    IF (mpi_rank==0) THEN
+      write(out_eff,*) '######################################'
+      write(out_eff,*) '#### ',comment,' #####'
+      write(out_eff,*) TARGET,'=',ret_val
+    ENDIF
+       
+  END SUBROUTINE getparaml
+
+
+END MODULE getparam
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gr_u_scal_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gr_u_scal_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gr_u_scal_p.F	(revision 3330)
@@ -0,0 +1,72 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_u_scal_p(nx,x_u,x_scal)
+c%W%    %G%
+c=======================================================================
+c
+c   Author:    Frederic Hourdin      original: 11/11/92
+c   -------
+c
+c   Subject:
+c   ------
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE parallel_lmdz
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER nx
+      REAL x_u(ip1jmp1,nx),x_scal(ip1jmp1,nx)
+
+c   Local:
+c   ------
+
+      INTEGER l,ij
+      INTEGER :: ijb,ije
+
+c-----------------------------------------------------------------------
+      ijb=ij_begin
+      ije=ij_end
+      
+      DO l=1,nx
+         DO ij=ijb+1,ije
+            x_scal(ij,l)=
+     s      (aireu(ij)*x_u(ij,l)+aireu(ij-1)*x_u(ij-1,l))
+     s      /(aireu(ij)+aireu(ij-1))
+         ENDDO
+      ENDDO
+
+cym      CALL SCOPY(nx*jjp1,x_scal(iip1,1),iip1,x_scal(1,1),iip1)
+      ijb=ij_begin
+      ije=ij_end
+
+      DO l=1,nx
+         DO ij=ijb,ije-iip1+1,iip1
+	   x_scal(ij,l)=x_scal(ij+iip1-1,l)
+	 ENDDO
+      ENDDO
+      RETURN
+      
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gr_v_scal_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gr_v_scal_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gr_v_scal_p.F	(revision 3330)
@@ -0,0 +1,79 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_v_scal_p(nx,x_v,x_scal)
+c%W%    %G%
+c=======================================================================
+c
+c   Author:    Frederic Hourdin      original: 11/11/92
+c   -------
+c
+c   Subject:
+c   ------
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE parallel_lmdz
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c   Arguments:
+c   ----------
+
+      INTEGER nx
+      REAL x_v(ip1jm,nx),x_scal(ip1jmp1,nx)
+
+c   Local:
+c   ------
+
+      INTEGER l,ij
+      INTEGER :: ijb,ije
+c-----------------------------------------------------------------------
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO l=1,nx
+         DO ij=ijb,ije
+            x_scal(ij,l)=
+     s      (airev(ij-iip1)*x_v(ij-iip1,l)+airev(ij)*x_v(ij,l))
+     s      /(airev(ij-iip1)+airev(ij))
+         ENDDO
+      ENDDO
+      
+      if (pole_nord) then
+        DO l=1,nx
+           DO ij=1,iip1
+              x_scal(ij,l)=0.
+           ENDDO
+        ENDDO
+      endif
+    
+      if (pole_sud) then
+        DO l=1,nx
+           DO ij=ip1jm+1,ip1jmp1
+              x_scal(ij,l)=0.
+           ENDDO
+        ENDDO
+      endif
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/grad_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/grad_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/grad_p.F	(revision 3330)
@@ -0,0 +1,53 @@
+      SUBROUTINE  grad_p(klevel, pg,pgx,pgy )
+c
+c      P. Le Van
+c
+c    ******************************************************************
+c     .. calcul des composantes covariantes en x et y du gradient de g
+c
+c    ******************************************************************
+c             pg        est un   argument  d'entree pour le s-prog
+c       pgx  et  pgy    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+      INTEGER klevel
+      REAL  pg( ip1jmp1,klevel )
+      REAL pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel )
+      INTEGER  l,ij
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 6 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      DO 2  ij = ijb, ije - 1
+        pgx( ij,l ) = pg( ij +1,l ) - pg( ij,l )
+   2  CONTINUE
+c
+c    .... correction pour  pgx(ip1,j,l)  ....
+c    ...    pgx(iip1,j,l)= pgx(1,j,l)  ....
+CDIR$ IVDEP
+      DO 3  ij = ijb+iip1-1, ije, iip1
+        pgx( ij,l ) = pgx( ij -iim,l )
+   3  CONTINUE
+c
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4 ij = ijb,ije
+        pgy( ij,l ) = pg( ij,l ) - pg( ij +iip1,l )
+   4  CONTINUE
+c
+   6  CONTINUE
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gradiv2_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gradiv2_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gradiv2_p.F	(revision 3330)
@@ -0,0 +1,147 @@
+      SUBROUTINE gradiv2_p(klevel, xcov, ycov, ld, gdx_out, gdy_out )
+c
+c     P. Le Van
+c
+c   **********************************************************
+c                                ld
+c       calcul  de  (grad (div) )   du vect. v ....
+c
+c     xcov et ycov etant les composant.covariantes de v
+c   **********************************************************
+c     xcont , ycont et ld  sont des arguments  d'entree pour le s-prog
+c      gdx   et  gdy       sont des arguments de sortie pour le s-prog
+c
+c
+      USE parallel_lmdz
+      USE times
+      USE Write_field_p
+      USE mod_hallo
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "comdissipn.h"
+c
+c     ........    variables en arguments      ........
+
+      INTEGER klevel
+      REAL  xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL,SAVE ::  gdx( ip1jmp1,llm ),  gdy( ip1jm,llm )
+      REAL   gdx_out( ip1jmp1,klevel ), gdy_out( ip1jm,klevel )
+c
+c     ........       variables locales       .........
+c
+      REAL,SAVE :: div(ip1jmp1,llm)
+      REAL      :: tmp_div2(ip1jmp1,llm)
+      REAL signe, nugrads
+      INTEGER l,ij,iter,ld
+      INTEGER :: ijb,ije,jjb,jje
+      Type(Request)  :: request_dissip
+      
+c    ........................................................
+c
+c
+c      CALL SCOPY( ip1jmp1 * klevel, xcov, 1, gdx, 1 )
+c      CALL SCOPY(   ip1jm * klevel, ycov, 1, gdy, 1 )
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO   l = 1, klevel
+        gdx(ijb:ije,l)=xcov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT      
+      
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO   l = 1, klevel
+        gdy(ijb:ije,l)=ycov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP BARRIER
+       call Register_Hallo(gdy,ip1jm,llm,1,0,0,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+c
+c
+      signe   = (-1.)**ld
+      nugrads = signe * cdivu
+c
+
+
+      CALL    divergf_p( klevel, gdx,   gdy , div )
+c      call write_field3d_p('div1',reshape(div,(/iip1,jjp1,llm/)))
+
+      IF( ld.GT.1 )   THEN
+c$OMP BARRIER
+       call Register_Hallo(div,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+	CALL laplacien_p ( klevel, div,  div     )
+
+c    ......  Iteration de l'operateur laplacien_gam   .......
+c         call write_field3d_p('div2',reshape(div,(/iip1,jjp1,llm/)))
+
+        DO iter = 1, ld -2
+c$OMP BARRIER
+       call Register_Hallo(div,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+         CALL laplacien_gam ( klevel,cuvscvgam1,cvuscugam1,unsair_gam1,
+     *                       unsapolnga1, unsapolsga1,  div, div       )
+        ENDDO
+c        call write_field3d_p('div3',reshape(div,(/iip1,jjp1,llm/)))
+      ENDIF
+
+       jjb=jj_begin
+       jje=jj_end
+       
+       CALL filtreg_p( div   ,jjb,jje, jjp1, klevel, 2, 1, .TRUE., 1 )
+c       call exchange_Hallo(div,ip1jmp1,llm,0,1)
+c$OMP BARRIER
+       call Register_Hallo(div,ip1jmp1,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+
+c$OMP BARRIER
+
+
+       CALL  grad_p  ( klevel,  div,   gdx,  gdy             )
+
+c
+      ijb=ij_begin
+      ije=ij_end
+         
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       DO   l = 1, klevel
+         
+         if (pole_sud) ije=ij_end
+         DO  ij = ijb, ije
+          gdx_out( ij,l ) = gdx( ij,l ) * nugrads
+         ENDDO
+         
+         if (pole_sud) ije=ij_end-iip1
+         DO  ij = ijb, ije
+          gdy_out( ij,l ) = gdy( ij,l ) * nugrads
+         ENDDO
+       
+       ENDDO
+c$OMP END DO NOWAIT
+c
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gradiv_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gradiv_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/gradiv_p.F	(revision 3330)
@@ -0,0 +1,108 @@
+      SUBROUTINE gradiv_p(klevel, xcov, ycov, ld, gdx_out, gdy_out )
+c
+c    Auteur :   P. Le Van
+c
+c   ***************************************************************
+c
+c                                ld
+c       calcul  de  (grad (div) )   du vect. v ....
+c
+c     xcov et ycov etant les composant.covariantes de v
+c   ****************************************************************
+c    xcov , ycov et ld  sont des arguments  d'entree pour le s-prog
+c     gdx   et  gdy     sont des arguments de sortie pour le s-prog
+c
+c     
+      USE parallel_lmdz
+      USE times
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissipn.h"
+
+      INTEGER klevel
+c
+      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL,SAVE :: gdx( ip1jmp1,llm ),   gdy( ip1jm,llm )
+
+      REAL gdx_out( ip1jmp1,klevel ),   gdy_out( ip1jm,klevel )
+
+      REAL,SAVE ::  div(ip1jmp1,llm)
+
+      INTEGER l,ij,iter,ld
+c
+      INTEGER ijb,ije,jjb,jje
+c
+c
+c      CALL SCOPY( ip1jmp1*klevel,xcov,1,gdx,1 )
+c      CALL SCOPY( ip1jm*klevel,  ycov,1,gdy,1 )
+      
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1,klevel
+        gdx(ijb:ije,l)=xcov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1,klevel
+        gdy(ijb:ije,l)=ycov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+      DO 10 iter = 1,ld
+
+c$OMP BARRIER
+c$OMP MASTER      
+      call suspend_timer(timer_dissip)
+      call exchange_Hallo(gdy,ip1jm,llm,1,0)
+      call resume_timer(timer_dissip)
+c$OMP END MASTER      
+c$OMP BARRIER
+
+      CALL  diverg_p( klevel,  gdx , gdy, div          )
+      
+      jjb=jj_begin
+      jje=jj_end
+      CALL filtreg_p( div,jjb,jje, jjp1, klevel, 2,1, .true.,2 )
+      
+c      call exchange_Hallo(div,ip1jmp1,llm,0,1)
+
+c$OMP BARRIER
+c$OMP MASTER       
+      call suspend_timer(timer_dissip)
+      call exchange_Hallo(div,ip1jmp1,llm,1,1)
+      call resume_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER
+      
+      CALL    grad_p( klevel,  div, gdx, gdy           )
+c
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 5  l = 1, klevel
+      
+      if(pole_sud) ije=ij_end
+      DO 3 ij = ijb, ije
+        gdx_out( ij,l ) = - gdx( ij,l ) * cdivu
+   3  CONTINUE
+   
+      if(pole_sud) ije=ij_end-iip1
+      DO 4 ij = ijb, ije
+        gdy_out( ij,l ) = - gdy( ij,l ) * cdivu
+   4  CONTINUE
+
+   5  CONTINUE
+c$OMP END DO NOWAIT
+c
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/groupe_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/groupe_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/groupe_p.F	(revision 3330)
@@ -0,0 +1,142 @@
+      subroutine groupe_p(pext,pbaru,pbarv,pbarum,pbarvm,wm)
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: ngroup
+      implicit none
+
+c   sous-programme servant a fitlrer les champs de flux de masse aux
+c   poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur
+c   et a mesure qu'on se rapproche du pole.
+c
+c   en entree: pext, pbaru et pbarv
+c
+c   en sortie:  pbarum,pbarvm et wm.
+c
+c   remarque, le wm est recalcule a partir des pbaru pbarv et on n'a donc
+c   pas besoin de w en entree.
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+
+!     integer ngroup
+!     parameter (ngroup=3)
+
+
+      real pbaru(iip1,jjp1,llm),pbarv(iip1,jjm,llm)
+      real pext(iip1,jjp1,llm)
+
+      real pbarum(iip1,jjp1,llm),pbarvm(iip1,jjm,llm)
+      real wm(iip1,jjp1,llm)
+
+      real,save :: zconvm(iip1,jjp1,llm)
+      real,save :: zconvmm(iip1,jjp1,llm)
+
+      real uu
+
+      integer i,j,l
+
+      logical firstcall,groupe_ok
+      save firstcall,groupe_ok
+c$OMP THREADPRIVATE(firstcall,groupe_ok)
+
+      data firstcall/.true./
+      data groupe_ok/.true./
+
+      integer ijb,ije,jjb,jje
+      
+      if (iim==1) then
+         groupe_ok=.false.
+      endif
+
+      if (firstcall) then
+         if (groupe_ok) then
+           if(mod(iim,2**ngroup).ne.0) stop'probleme du nombre de point'
+         endif
+         firstcall=.false.
+      endif
+
+c   Champs 1D
+
+      call convflu_p(pbaru,pbarv,llm,zconvm)
+
+c
+c      call scopy(ijp1llm,zconvm,1,zconvmm,1)
+c      call scopy(ijmllm,pbarv,1,pbarvm,1)
+      
+      jjb=jj_begin
+      jje=jj_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      do l=1,llm
+        zconvmm(:,jjb:jje,l)=zconvm(:,jjb:jje,l)
+      enddo
+c$OMP END DO NOWAIT
+
+      if (groupe_ok) then
+         call groupeun_p(jjp1,llm,jjb,jje,zconvmm)
+      endif
+      
+      jjb=jj_begin-1
+      jje=jj_end
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud)  jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      do l=1,llm
+        pbarvm(:,jjb:jje,l)=pbarv(:,jjb:jje,l)
+      enddo
+c$OMP END DO NOWAIT
+
+      if (groupe_ok) then
+         call groupeun_p(jjm,llm,jjb,jje,pbarvm)
+      endif
+
+c   Champs 3D
+   
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_nord) jjb=jj_begin+1
+      if (pole_sud)  jje=jj_end-1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      do l=1,llm
+         do j=jjb,jje
+            uu=pbaru(iim,j,l)
+            do i=1,iim
+               uu=uu+pbarvm(i,j,l)-pbarvm(i,j-1,l)-zconvmm(i,j,l)
+               pbarum(i,j,l)=uu
+c     zconvm(i,j,l ) =  xflu(i-1,j,l)-xflu(i,j,l)+
+c    *                      yflu(i,j,l)-yflu(i,j-1,l)
+            enddo
+            pbarum(iip1,j,l)=pbarum(1,j,l)
+         enddo
+      enddo
+c$OMP END DO NOWAIT
+
+c    integration de la convergence de masse de haut  en bas ......
+   
+      jjb=jj_begin
+      jje=jj_end
+
+c$OMP BARRIER
+c$OMP MASTER      
+      do  l = llm-1,1,-1
+          do j=jjb,jje
+             do i=1,iip1
+                zconvmm(i,j,l)=zconvmm(i,j,l)+zconvmm(i,j,l+1)
+             enddo
+          enddo
+      enddo
+
+      if (.not. pole_sud) then
+        zconvmm(:,jj_end+1,:)=0
+cym	wm(:,jj_end+1,:)=0
+      endif
+      
+c$OMP END MASTER
+c$OMP BARRIER      
+
+      CALL vitvert_p(zconvmm(1,1,1),wm(1,1,1))
+
+      return
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/groupeun_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/groupeun_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/groupeun_p.F	(revision 3330)
@@ -0,0 +1,201 @@
+      SUBROUTINE groupeun_p(jjmax,llmax,jjb,jje,q)
+      USE parallel_lmdz
+      USE Write_Field_p
+      USE comconst_mod, ONLY: ngroup
+      IMPLICIT NONE
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+
+      INTEGER jjmax,llmax,jjb,jje
+      REAL q(iip1,jjmax,llmax)
+
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
+
+      REAL airecn,qn
+      REAL airecs,qs
+
+      INTEGER i,j,l,ig,ig2,j1,j2,i0,jd
+
+c--------------------------------------------------------------------c 
+c Strategie d'optimisation                                           c
+c stocker les valeurs systematiquement recalculees                   c
+c et identiques d'un pas de temps sur l'autre. Il s'agit des         c
+c aires des cellules qui sont sommees. S'il n'y a pas de changement  c
+c de grille au cours de la simulation tout devrait bien se passer.   c
+c Autre optimisation : determination des bornes entre lesquelles "j" c
+c varie, au lieu de faire un test à chaque fois...
+c--------------------------------------------------------------------c 
+
+      INTEGER j_start, j_finish
+
+      REAL, SAVE :: airen_tab(iip1,jjp1,0:1)
+      REAL, SAVE :: aires_tab(iip1,jjp1,0:1)
+!$OMP THREADPRIVATE(airen_tab, aires_tab)
+
+      LOGICAL, SAVE :: first = .TRUE.
+!$OMP THREADPRIVATE(first)
+!     INTEGER,SAVE :: i_index(iim,ngroup)
+      INTEGER      :: offset
+!     REAL         :: qsum(iim/ngroup)
+
+      IF (first) THEN
+         CALL INIT_GROUPEUN_P(airen_tab, aires_tab)
+         first = .FALSE.
+      ENDIF
+
+c Champs 3D
+      jd=jjp1-jjmax
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         j1=1+jd
+         j2=2
+         DO ig=1,ngroup
+
+c     Concerne le pole nord
+            j_start  = MAX(jjb, j1-jd)
+            j_finish = MIN(jje, j2-jd)
+            DO ig2=1,ngroup-ig+1
+              offset=2**(ig2-1)
+              DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+                 DO i0=1,iim,2**ig2
+                   q(i0,j,l)=q(i0,j,l)+q(i0+offset,j,l) 
+                 ENDDO
+              ENDDO
+            ENDDO
+            
+            DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,j,l)=q(i-MOD(i-1,2**(ngroup-ig+1)),j,l)
+               ENDDO
+            ENDDO
+
+            DO j=j_start, j_finish
+!CDIR ON_ADB(airen_tab)
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,j,l)=q(i,j,l)*airen_tab(i,j,jd)
+               ENDDO
+               q(iip1,j,l)=q(1,j,l)
+            ENDDO
+       
+!c     Concerne le pole sud
+            j_start  = MAX(1+jjp1-jje-jd, j1-jd)
+            j_finish = MIN(1+jjp1-jjb-jd, j2-jd)
+            DO ig2=1,ngroup-ig+1
+              offset=2**(ig2-1)
+              DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+                 DO i0=1,iim,2**ig2
+                   q(i0,jjp1-j+1-jd,l)= q(i0,jjp1-j+1-jd,l)
+     &                                 +q(i0+offset,jjp1-j+1-jd,l) 
+                 ENDDO
+              ENDDO
+            ENDDO
+
+
+            DO j=j_start, j_finish
+!CDIR NODEP
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,jjp1-j+1-jd,l)=q(i-MOD(i-1,2**(ngroup-ig+1)),
+     &                                jjp1-j+1-jd,l)
+               ENDDO
+            ENDDO
+
+            DO j=j_start, j_finish
+!CDIR ON_ADB(aires_tab)
+!CDIR ON_ADB(q)
+               DO i=1,iim
+                 q(i,jjp1-j+1-jd,l)=q(i,jjp1-j+1-jd,l)*  
+     &                              aires_tab(i,jjp1-j+1,jd)
+               ENDDO
+               q(iip1,jjp1-j+1-jd,l)=q(1,jjp1-j+1-jd,l)
+            ENDDO
+
+        
+            j1=j2+1
+            j2=j2+2**ig
+         ENDDO
+      ENDDO
+!$OMP END DO NOWAIT
+
+      RETURN
+      END
+
+
+
+      SUBROUTINE INIT_GROUPEUN_P(airen_tab, aires_tab)
+
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: ngroup
+      IMPLICIT NONE
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
+
+      REAL airen,airecn
+      REAL aires,airecs
+
+      INTEGER i,j,l,ig,j1,j2,i0,jd
+
+      INTEGER j_start, j_finish
+
+      REAL :: airen_tab(iip1,jjp1,0:1)
+      REAL :: aires_tab(iip1,jjp1,0:1)
+
+      DO jd=0, 1
+         j1=1+jd
+         j2=2
+         DO ig=1,ngroup
+            
+!     c     Concerne le pole nord
+            j_start = j1-jd
+            j_finish = j2-jd
+            DO j=j_start, j_finish
+               DO i0=1,iim,2**(ngroup-ig+1)
+                  airen=0.
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     airen = airen+aire(i,j)
+                  ENDDO
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     airen_tab(i,j,jd) = 
+     &                    aire(i,j) / airen
+                  ENDDO
+               ENDDO
+            ENDDO
+            
+!     c     Concerne le pole sud
+            j_start = j1-jd
+            j_finish = j2-jd
+            DO j=j_start, j_finish
+               DO i0=1,iim,2**(ngroup-ig+1)
+                  aires=0.
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     aires=aires+aire(i,jjp1-j+1)
+                  ENDDO
+                  DO i=i0,i0+2**(ngroup-ig+1)-1
+                     aires_tab(i,jjp1-j+1,jd) = 
+     &                    aire(i,jjp1-j+1) / aires
+                  ENDDO
+               ENDDO
+            ENDDO
+            
+            j1=j2+1
+            j2=j2+2**ig
+         ENDDO
+      ENDDO
+      
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/guide_p_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/guide_p_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/guide_p_mod.F90	(revision 3330)
@@ -0,0 +1,2011 @@
+!
+! $Id$
+!
+MODULE guide_p_mod
+
+!=======================================================================
+!   Auteur:  F.Hourdin
+!            F. Codron 01/09
+!=======================================================================
+
+  USE getparam
+  USE Write_Field_p
+  USE netcdf, ONLY: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close
+  USE pres2lev_mod
+
+  IMPLICIT NONE
+
+! ---------------------------------------------
+! Declarations des cles logiques et parametres 
+! ---------------------------------------------
+  INTEGER, PRIVATE, SAVE  :: iguide_read,iguide_int,iguide_sav
+  INTEGER, PRIVATE, SAVE  :: nlevnc, guide_plevs
+  LOGICAL, PRIVATE, SAVE  :: guide_u,guide_v,guide_T,guide_Q,guide_P
+  LOGICAL, PRIVATE, SAVE  :: guide_hr,guide_teta  
+  LOGICAL, PRIVATE, SAVE  :: guide_BL,guide_reg,guide_add,gamma4,guide_zon 
+  LOGICAL, PRIVATE, SAVE  :: invert_p,invert_y,ini_anal
+  LOGICAL, PRIVATE, SAVE  :: guide_2D,guide_sav,guide_modele
+  
+  REAL, PRIVATE, SAVE     :: tau_min_u,tau_max_u
+  REAL, PRIVATE, SAVE     :: tau_min_v,tau_max_v
+  REAL, PRIVATE, SAVE     :: tau_min_T,tau_max_T
+  REAL, PRIVATE, SAVE     :: tau_min_Q,tau_max_Q
+  REAL, PRIVATE, SAVE     :: tau_min_P,tau_max_P
+
+  REAL, PRIVATE, SAVE     :: lat_min_g,lat_max_g
+  REAL, PRIVATE, SAVE     :: lon_min_g,lon_max_g
+  REAL, PRIVATE, SAVE     :: tau_lon,tau_lat
+
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_u,alpha_v 
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_T,alpha_Q 
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: alpha_P,alpha_pcor
+  
+! ---------------------------------------------
+! Variables de guidage
+! ---------------------------------------------
+! Variables des fichiers de guidage
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: unat1,unat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: vnat1,vnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: tnat1,tnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: qnat1,qnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), PRIVATE, SAVE   :: pnat1,pnat2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: psnat1,psnat2
+  REAL, ALLOCATABLE, DIMENSION(:),     PRIVATE, SAVE   :: apnc,bpnc
+! Variables aux dimensions du modele
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: ugui1,ugui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: vgui1,vgui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: tgui1,tgui2
+  REAL, ALLOCATABLE, DIMENSION(:,:),   PRIVATE, SAVE   :: qgui1,qgui2
+  REAL, ALLOCATABLE, DIMENSION(:),   PRIVATE, SAVE   :: psgui1,psgui2
+  
+  INTEGER,SAVE,PRIVATE :: ijb_u,ijb_v,ije_u,ije_v,ijn_u,ijn_v
+  INTEGER,SAVE,PRIVATE :: jjb_u,jjb_v,jje_u,jje_v,jjn_u,jjn_v
+
+
+CONTAINS
+!=======================================================================
+
+  SUBROUTINE guide_init
+
+    USE control_mod, ONLY: day_step
+    USE serre_mod, ONLY: grossismx
+
+    IMPLICIT NONE
+  
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "netcdf.inc"
+
+    INTEGER                :: error,ncidpl,rid,rcod
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_init'
+
+! ---------------------------------------------
+! Lecture des parametres:  
+! ---------------------------------------------
+! Variables guidees
+    CALL getpar('guide_u',.true.,guide_u,'guidage de u')
+    CALL getpar('guide_v',.true.,guide_v,'guidage de v')
+    CALL getpar('guide_T',.true.,guide_T,'guidage de T')
+    CALL getpar('guide_P',.true.,guide_P,'guidage de P')
+    CALL getpar('guide_Q',.true.,guide_Q,'guidage de Q')
+    CALL getpar('guide_hr',.true.,guide_hr,'guidage de Q par H.R')
+    CALL getpar('guide_teta',.false.,guide_teta,'guidage de T par Teta')
+
+    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
+    CALL getpar('tau_min_u',0.02,tau_min_u,'Cste de rappel min, u')
+    CALL getpar('tau_max_u', 10.,tau_max_u,'Cste de rappel max, u')
+    CALL getpar('tau_min_v',0.02,tau_min_v,'Cste de rappel min, v')
+    CALL getpar('tau_max_v', 10.,tau_max_v,'Cste de rappel max, v')
+    CALL getpar('tau_min_T',0.02,tau_min_T,'Cste de rappel min, T')
+    CALL getpar('tau_max_T', 10.,tau_max_T,'Cste de rappel max, T')
+    CALL getpar('tau_min_Q',0.02,tau_min_Q,'Cste de rappel min, Q')
+    CALL getpar('tau_max_Q', 10.,tau_max_Q,'Cste de rappel max, Q')
+    CALL getpar('tau_min_P',0.02,tau_min_P,'Cste de rappel min, P')
+    CALL getpar('tau_max_P', 10.,tau_max_P,'Cste de rappel max, P')
+    CALL getpar('gamma4',.false.,gamma4,'Zone sans rappel elargie')
+    CALL getpar('guide_BL',.true.,guide_BL,'guidage dans C.Lim')
+    
+! Sauvegarde du for�age
+    CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
+    CALL getpar('iguide_sav',4,iguide_sav,'freq. sauvegarde guidage')
+    ! 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
+    ELSE if (iguide_sav == 0) then
+       iguide_sav = huge(0)
+    ELSE
+       iguide_sav=day_step*iguide_sav
+    ENDIF
+
+! Guidage regional seulement (sinon constant ou suivant le zoom)
+    CALL getpar('guide_reg',.false.,guide_reg,'guidage regional')
+    CALL getpar('lat_min_g',-90.,lat_min_g,'Latitude mini guidage ')
+    CALL getpar('lat_max_g', 90.,lat_max_g,'Latitude maxi guidage ')
+    CALL getpar('lon_min_g',-180.,lon_min_g,'longitude mini guidage ')
+    CALL getpar('lon_max_g', 180.,lon_max_g,'longitude maxi guidage ')
+    CALL getpar('tau_lat', 5.,tau_lat,'raideur lat guide regional ')
+    CALL getpar('tau_lon', 5.,tau_lon,'raideur lon guide regional ')
+
+! Parametres pour lecture des fichiers
+    CALL getpar('iguide_read',4,iguide_read,'freq. lecture guidage')
+    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
+        iguide_int=day_step*iguide_int
+    ENDIF
+    CALL getpar('guide_plevs',0,guide_plevs,'niveaux pression fichiers guidage')
+    ! Pour compatibilite avec ancienne version avec guide_modele
+    CALL getpar('guide_modele',.false.,guide_modele,'niveaux pression ap+bp*psol')
+    IF (guide_modele) THEN
+        guide_plevs=1
+    ENDIF
+    ! Fin raccord
+    CALL getpar('ini_anal',.false.,ini_anal,'Etat initial = analyse')
+    CALL getpar('guide_invertp',.true.,invert_p,'niveaux p inverses')
+    CALL getpar('guide_inverty',.true.,invert_y,'inversion N-S')
+    CALL getpar('guide_2D',.false.,guide_2D,'fichier guidage lat-P')
+
+! ---------------------------------------------
+! Determination du nombre de niveaux verticaux
+! des fichiers guidage
+! ---------------------------------------------
+    ncidpl=-99
+    if (guide_plevs.EQ.1) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier apbp.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_plevs.EQ.2) then
+       if (ncidpl.EQ.-99) then
+          rcod=nf90_open('P.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier P.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_u) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier u.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_v) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier v.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_T) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier T.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    elseif (guide_Q) then
+       if (ncidpl.eq.-99) then
+          rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
+          if (rcod.NE.NF_NOERR) THEN
+             print *,'Guide: probleme -> pas de fichier hur.nc'
+             CALL abort_gcm(modname,abort_message,1)
+          endif
+       endif
+    endif 
+    error=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
+    IF (error.NE.NF_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
+    IF (error.NE.NF_NOERR) THEN
+        print *,'Guide: probleme lecture niveaux pression'
+        CALL abort_gcm(modname,abort_message,1)
+    ENDIF
+    error=NF_INQ_DIMLEN(ncidpl,rid,nlevnc)
+    print *,'Guide: nombre niveaux vert. nlevnc', nlevnc 
+    rcod = nf90_close(ncidpl)
+
+! ---------------------------------------------
+! Allocation des variables
+! ---------------------------------------------
+    abort_message='pb in allocation guide'
+
+    ALLOCATE(apnc(nlevnc), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(bpnc(nlevnc), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    apnc=0.;bpnc=0.
+
+    ALLOCATE(alpha_pcor(llm), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_u(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_v(ip1jm), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_T(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_Q(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    ALLOCATE(alpha_P(ip1jmp1), stat = error)
+    IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+    alpha_u=0.;alpha_v=0;alpha_T=0;alpha_Q=0;alpha_P=0
+    
+    IF (guide_u) THEN
+        ALLOCATE(unat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(ugui1(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(unat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(ugui2(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        unat1=0.;unat2=0.;ugui1=0.;ugui2=0.
+    ENDIF
+
+    IF (guide_T) THEN
+        ALLOCATE(tnat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tgui1(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tnat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(tgui2(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        tnat1=0.;tnat2=0.;tgui1=0.;tgui2=0.
+    ENDIF
+     
+    IF (guide_Q) THEN
+        ALLOCATE(qnat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qgui1(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qnat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(qgui2(ip1jmp1,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        qnat1=0.;qnat2=0.;qgui1=0.;qgui2=0.
+    ENDIF
+
+    IF (guide_v) THEN
+        ALLOCATE(vnat1(iip1,jjm,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vgui1(ip1jm,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vnat2(iip1,jjm,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(vgui2(ip1jm,llm), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        vnat1=0.;vnat2=0.;vgui1=0.;vgui2=0.
+    ENDIF
+
+    IF (guide_plevs.EQ.2) THEN
+        ALLOCATE(pnat1(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(pnat2(iip1,jjp1,nlevnc), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        pnat1=0.;pnat2=0.;
+    ENDIF
+
+    IF (guide_P.OR.guide_plevs.EQ.1) THEN
+        ALLOCATE(psnat1(iip1,jjp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(psnat2(iip1,jjp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        psnat1=0.;psnat2=0.;
+    ENDIF
+    IF (guide_P) THEN
+        ALLOCATE(psgui2(ip1jmp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        ALLOCATE(psgui1(ip1jmp1), stat = error)
+        IF (error /= 0) CALL abort_gcm(modname,abort_message,1)
+        psgui1=0.;psgui2=0.
+    ENDIF
+
+! ---------------------------------------------
+!   Lecture du premier etat de guidage.
+! ---------------------------------------------
+    IF (guide_2D) THEN
+        CALL guide_read2D(1)
+    ELSE
+        CALL guide_read(1)
+    ENDIF
+    IF (guide_v) vnat1=vnat2
+    IF (guide_u) unat1=unat2
+    IF (guide_T) tnat1=tnat2
+    IF (guide_Q) qnat1=qnat2
+    IF (guide_plevs.EQ.2) pnat1=pnat2
+    IF (guide_P.OR.guide_plevs.EQ.1) psnat1=psnat2
+
+  END SUBROUTINE guide_init
+
+!=======================================================================
+  SUBROUTINE guide_main(itau,ucov,vcov,teta,q,masse,ps)
+    use exner_hyb_p_m, only: exner_hyb_p
+    use exner_milieu_p_m, only: exner_milieu_p
+    USE parallel_lmdz
+    USE control_mod
+    USE comconst_mod, ONLY: daysec, dtvr, cpp, kappa
+    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
+    
+    IMPLICIT NONE
+  
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+
+    ! Variables entree
+    INTEGER,                       INTENT(IN)    :: itau !pas de temps
+    REAL, DIMENSION (ip1jmp1,llm), INTENT(INOUT) :: ucov,teta,q,masse
+    REAL, DIMENSION (ip1jm,llm),   INTENT(INOUT) :: vcov
+    REAL, DIMENSION (ip1jmp1),     INTENT(INOUT) :: ps
+
+    ! Variables locales
+    LOGICAL, SAVE :: first=.TRUE.
+    LOGICAL       :: f_out ! sortie guidage
+    REAL, DIMENSION (ip1jmp1,llm) :: f_add ! var aux: champ de guidage
+    ! Variables pour fonction Exner (P milieu couche)
+    REAL, DIMENSION (iip1,jjp1,llm)    :: pk
+    REAL, DIMENSION (iip1,jjp1)        :: pks    
+    REAL                               :: unskap
+    REAL, DIMENSION (ip1jmp1,llmp1)    :: p ! besoin si guide_P
+    ! Compteurs temps:
+    INTEGER, SAVE :: step_rea,count_no_rea,itau_test ! lecture guidage
+    REAL          :: ditau, dday_step
+    REAL          :: tau,reste ! position entre 2 etats de guidage
+    REAL, SAVE    :: factt ! pas de temps en fraction de jour
+    
+    INTEGER       :: i,j,l
+    
+    ijb_u=ij_begin ; ije_u=ij_end ; ijn_u=ije_u-ijb_u+1  
+    jjb_u=jj_begin ; jje_u=jj_end ; jjn_u=jje_u-jjb_u+1 
+    ijb_v=ij_begin ; ije_v=ij_end ; ijn_v=ije_v-ijb_v+1   
+    jjb_v=jj_begin ; jje_v=jj_end ; jjn_v=jje_v-jjb_v+1 
+    IF (pole_sud) THEN
+      ije_v=ij_end-iip1
+      jje_v=jj_end-1
+      ijn_v=ije_v-ijb_v+1
+      jjn_v=jje_v-jjb_v+1 
+    ENDIF
+      
+!    CALL AllGather_Field(ucov,ip1jmp1,llm)
+!    CALL AllGather_Field(vcov,ip1jm,llm)
+!    CALL AllGather_Field(teta,ip1jmp1,llm)
+!    CALL AllGather_Field(ps,ip1jmp1,1)
+!    CALL AllGather_Field(q,ip1jmp1,llm)
+    
+!-----------------------------------------------------------------------
+! Initialisations au premier passage
+!-----------------------------------------------------------------------
+
+    IF (first) THEN
+        first=.FALSE.
+        CALL guide_init 
+        itau_test=1001
+        step_rea=1
+        count_no_rea=0
+! Calcul des constantes de rappel
+        factt=dtvr*iperiod/daysec 
+        call tau2alpha(3,iip1,jjm ,factt,tau_min_v,tau_max_v,alpha_v)
+        call tau2alpha(2,iip1,jjp1,factt,tau_min_u,tau_max_u,alpha_u)
+        call tau2alpha(1,iip1,jjp1,factt,tau_min_T,tau_max_T,alpha_T)
+        call tau2alpha(1,iip1,jjp1,factt,tau_min_P,tau_max_P,alpha_P)
+        call tau2alpha(1,iip1,jjp1,factt,tau_min_Q,tau_max_Q,alpha_Q)
+! correction de rappel dans couche limite
+        if (guide_BL) then
+             alpha_pcor(:)=1.
+        else
+            do l=1,llm
+                alpha_pcor(l)=(1.+tanh((0.85-presnivs(l)/preff)/0.05))/2.
+            enddo
+        endif
+! ini_anal: etat initial egal au guidage        
+        IF (ini_anal) THEN
+            CALL guide_interp(ps,teta)
+            IF (guide_u) ucov(ijb_u:ije_u,:)=ugui2(ijb_u:ije_u,:)
+            IF (guide_v) vcov(ijb_v:ije_v,:)=ugui2(ijb_v:ije_v,:)
+            IF (guide_T) teta(ijb_u:ije_u,:)=tgui2(ijb_u:ije_u,:)
+            IF (guide_Q) q(ijb_u:ije_u,:)=qgui2(ijb_u:ije_u,:)
+            IF (guide_P) THEN
+                ps(ijb_u:ije_u)=psgui2(ijb_u:ije_u)
+                CALL pression_p(ip1jmp1,ap,bp,ps,p)
+                CALL massdair_p(p,masse)
+            ENDIF
+            RETURN
+        ENDIF
+! Verification structure guidage
+        IF (guide_u) THEN
+            CALL writefield_p('unat',unat1)
+            CALL writefield_p('ucov',RESHAPE(ucov,(/iip1,jjp1,llm/)))
+        ENDIF
+        IF (guide_T) THEN
+            CALL writefield_p('tnat',tnat1)
+            CALL writefield_p('teta',RESHAPE(teta,(/iip1,jjp1,llm/)))
+        ENDIF
+
+    ENDIF !first
+
+!-----------------------------------------------------------------------
+! Lecture des fichiers de guidage ?
+!-----------------------------------------------------------------------
+    IF (iguide_read.NE.0) THEN
+      ditau=real(itau)
+      dday_step=real(day_step)
+      IF (iguide_read.LT.0) THEN
+          tau=ditau/dday_step/REAL(iguide_read)
+      ELSE
+          tau=REAL(iguide_read)*ditau/dday_step
+      ENDIF
+      reste=tau-AINT(tau)
+      IF (reste.EQ.0.) THEN
+          IF (itau_test.EQ.itau) THEN
+              write(*,*)'deuxieme passage de advreel a itau=',itau
+              stop
+          ELSE
+              IF (guide_v) vnat1(:,jjb_v:jje_v,:)=vnat2(:,jjb_v:jje_v,:)
+              IF (guide_u) unat1(:,jjb_u:jje_u,:)=unat2(:,jjb_u:jje_u,:)
+              IF (guide_T) tnat1(:,jjb_u:jje_u,:)=tnat2(:,jjb_u:jje_u,:)
+              IF (guide_Q) qnat1(:,jjb_u:jje_u,:)=qnat2(:,jjb_u:jje_u,:)
+              IF (guide_plevs.EQ.2) pnat1(:,jjb_u:jje_u,:)=pnat2(:,jjb_u:jje_u,:)
+              IF (guide_P.OR.guide_plevs.EQ.1) psnat1(:,jjb_u:jje_u)=psnat2(:,jjb_u:jje_u)
+              step_rea=step_rea+1
+              itau_test=itau
+              print*,'Lecture fichiers guidage, pas ',step_rea, &
+                    'apres ',count_no_rea,' non lectures'
+              IF (guide_2D) THEN
+                  CALL guide_read2D(step_rea)
+              ELSE
+                  CALL guide_read(step_rea)
+              ENDIF
+              count_no_rea=0
+          ENDIF
+      ELSE
+        count_no_rea=count_no_rea+1
+
+      ENDIF
+    ENDIF !iguide_read=0
+
+!-----------------------------------------------------------------------
+! Interpolation et conversion des champs de guidage
+!-----------------------------------------------------------------------
+    IF (MOD(itau,iguide_int).EQ.0) THEN
+        CALL guide_interp(ps,teta)
+    ENDIF
+! Repartition entre 2 etats de guidage
+    IF (iguide_read.NE.0) THEN
+        tau=reste
+    ELSE
+        tau=1.
+    ENDIF
+
+!-----------------------------------------------------------------------
+!   Ajout des champs de guidage 
+!-----------------------------------------------------------------------
+! Sauvegarde du guidage?
+    f_out=((MOD(itau,iguide_sav).EQ.0).AND.guide_sav)  
+    IF (f_out) THEN
+!       Calcul niveaux pression milieu de couches 
+        CALL pression_p( ip1jmp1, ap, bp, ps, p )
+        if (pressure_exner) then
+          CALL exner_hyb_p(ip1jmp1,ps,p,pks,pk)
+        else
+          CALL exner_milieu_p(ip1jmp1,ps,p,pks,pk)
+        endif
+        unskap=1./kappa
+        DO l = 1, llm
+           DO j=jjb_u,jje_u
+              DO i =1, iip1
+                 p(i+(j-1)*iip1,l) = preff * ( pk(i,j,l)/cpp) ** unskap
+              ENDDO
+           ENDDO
+        ENDDO
+        CALL guide_out("SP",jjp1,llm,p(1:ip1jmp1,1:llm),1.)
+    ENDIF
+    
+    if (guide_u) then
+        if (guide_add) then
+           f_add(ijb_u:ije_u,:)=(1.-tau)*ugui1(ijb_u:ije_u,:)+tau*ugui2(ijb_u:ije_u,:)
+        else
+           f_add(ijb_u:ije_u,:)=(1.-tau)*ugui1(ijb_u:ije_u,:)+tau*ugui2(ijb_u:ije_u,:)-ucov(ijb_u:ije_u,:)
+        endif 
+
+        if (guide_zon) CALL guide_zonave(1,jjp1,llm,f_add)
+        CALL guide_addfield(ip1jmp1,llm,f_add,alpha_u)
+        IF (f_out) CALL guide_out("u",jjp1,llm,ucov,factt)
+        IF (f_out) CALL guide_out("ua",jjp1,llm,(1.-tau)*ugui1(:,:)+tau*ugui2(:,:),factt)
+        IF (f_out) CALL guide_out("ucov",jjp1,llm,f_add(:,:)/factt,factt)
+        ucov(ijb_u:ije_u,:)=ucov(ijb_u:ije_u,:)+f_add(ijb_u:ije_u,:)
+    endif
+
+    if (guide_T) then
+        if (guide_add) then
+           f_add(ijb_u:ije_u,:)=(1.-tau)*tgui1(ijb_u:ije_u,:)+tau*tgui2(ijb_u:ije_u,:)
+        else
+           f_add(ijb_u:ije_u,:)=(1.-tau)*tgui1(ijb_u:ije_u,:)+tau*tgui2(ijb_u:ije_u,:)-teta(ijb_u:ije_u,:)
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjp1,llm,f_add)
+        CALL guide_addfield(ip1jmp1,llm,f_add,alpha_T)
+        IF (f_out) CALL guide_out("teta",jjp1,llm,f_add(:,:)/factt,factt)
+        teta(ijb_u:ije_u,:)=teta(ijb_u:ije_u,:)+f_add(ijb_u:ije_u,:)
+    endif
+
+    if (guide_P) then
+        if (guide_add) then
+           f_add(ijb_u:ije_u,1)=(1.-tau)*psgui1(ijb_u:ije_u)+tau*psgui2(ijb_u:ije_u)
+        else
+           f_add(ijb_u:ije_u,1)=(1.-tau)*psgui1(ijb_u:ije_u)+tau*psgui2(ijb_u:ije_u)-ps(ijb_u:ije_u)
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjp1,1,f_add(1:ip1jmp1,1))
+        CALL guide_addfield(ip1jmp1,1,f_add(1:ip1jmp1,1),alpha_P)
+        IF (f_out) CALL guide_out("ps",jjp1,1,f_add(1:ip1jmp1,1)/factt,factt)
+        ps(ijb_u:ije_u)=ps(ijb_u:ije_u)+f_add(ijb_u:ije_u,1)
+        CALL pression_p(ip1jmp1,ap,bp,ps,p)
+        CALL massdair_p(p,masse)
+    endif
+
+    if (guide_Q) then
+        if (guide_add) then
+           f_add(ijb_u:ije_u,:)=(1.-tau)*qgui1(ijb_u:ije_u,:)+tau*qgui2(ijb_u:ije_u,:)
+        else
+           f_add(ijb_u:ije_u,:)=(1.-tau)*qgui1(ijb_u:ije_u,:)+tau*qgui2(ijb_u:ije_u,:)-q(ijb_u:ije_u,:)
+        endif 
+        if (guide_zon) CALL guide_zonave(2,jjp1,llm,f_add)
+        CALL guide_addfield(ip1jmp1,llm,f_add,alpha_Q)
+        IF (f_out) CALL guide_out("q",jjp1,llm,f_add(:,:)/factt,factt)
+        q(ijb_u:ije_u,:)=q(ijb_u:ije_u,:)+f_add(ijb_u:ije_u,:)
+    endif
+
+    if (guide_v) then
+        if (guide_add) then
+           f_add(ijb_v:ije_v,:)=(1.-tau)*vgui1(ijb_v:ije_v,:)+tau*vgui2(ijb_v:ije_v,:)
+        else
+           f_add(ijb_v:ije_v,:)=(1.-tau)*vgui1(ijb_v:ije_v,:)+tau*vgui2(ijb_v:ije_v,:)-vcov(ijb_v:ije_v,:)
+        endif 
+        
+        if (guide_zon) CALL guide_zonave(2,jjm,llm,f_add(1:ip1jm,:))
+        CALL guide_addfield(ip1jm,llm,f_add(1:ip1jm,:),alpha_v)
+        IF (f_out) CALL guide_out("v",jjm,llm,vcov(1:ip1jm,:),factt)
+        IF (f_out) CALL guide_out("va",jjm,llm,(1.-tau)*vgui1(:,:)+tau*vgui2(:,:),factt)
+        IF (f_out) CALL guide_out("vcov",jjm,llm,f_add(1:ip1jm,:)/factt,factt)
+        vcov(ijb_v:ije_v,:)=vcov(ijb_v:ije_v,:)+f_add(ijb_v:ije_v,:)
+    endif
+
+  END SUBROUTINE guide_main
+
+!=======================================================================
+  SUBROUTINE guide_addfield(hsize,vsize,field,alpha)
+! field1=a*field1+alpha*field2
+
+    IMPLICIT NONE
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+
+    ! input variables
+    INTEGER,                      INTENT(IN)    :: hsize
+    INTEGER,                      INTENT(IN)    :: vsize
+    REAL, DIMENSION(hsize),       INTENT(IN)    :: alpha 
+    REAL, DIMENSION(hsize,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    INTEGER :: l
+
+    IF (hsize==ip1jm) THEN
+      do l=1,vsize
+        field(ijb_v:ije_v,l)=alpha(ijb_v:ije_v)*field(ijb_v:ije_v,l)*alpha_pcor(l)
+      enddo
+    ELSE
+      do l=1,vsize
+        field(ijb_u:ije_u,l)=alpha(ijb_u:ije_u)*field(ijb_u:ije_u,l)*alpha_pcor(l)
+      enddo
+    ENDIF    
+
+  END SUBROUTINE guide_addfield
+
+!=======================================================================
+  SUBROUTINE guide_zonave(typ,hsize,vsize,field)
+
+    USE comconst_mod, ONLY: pi
+    
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
+    
+    ! input/output variables
+    INTEGER,                           INTENT(IN)    :: typ
+    INTEGER,                           INTENT(IN)    :: vsize
+    INTEGER,                           INTENT(IN)    :: hsize
+    REAL, DIMENSION(hsize*iip1,vsize), INTENT(INOUT) :: field
+
+    ! Local variables
+    LOGICAL, SAVE                :: first=.TRUE.
+    INTEGER, DIMENSION (2), SAVE :: imin, imax ! averaging domain
+    INTEGER                      :: i,j,l,ij
+    REAL, DIMENSION (iip1)       :: lond       ! longitude in Deg.
+    REAL, DIMENSION (hsize,vsize):: fieldm     ! zon-averaged field
+
+    IF (first) THEN
+        first=.FALSE.
+!Compute domain for averaging
+        lond=rlonu*180./pi
+        imin(1)=1;imax(1)=iip1;
+        imin(2)=1;imax(2)=iip1;
+        IF (guide_reg) THEN
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(1)=i
+                IF (lond(i).LE.lon_max_g) imax(1)=i
+            ENDDO
+            lond=rlonv*180./pi
+            DO i=1,iim
+                IF (lond(i).LT.lon_min_g) imin(2)=i
+                IF (lond(i).LE.lon_max_g) imax(2)=i
+            ENDDO
+        ENDIF
+    ENDIF
+
+    fieldm=0.
+    
+    IF (hsize==jjm) THEN
+      DO l=1,vsize
+      ! Compute zonal average
+          DO j=jjb_v,jje_v
+              DO i=imin(typ),imax(typ)
+                  ij=(j-1)*iip1+i
+                  fieldm(j,l)=fieldm(j,l)+field(ij,l)
+              ENDDO
+          ENDDO 
+          fieldm(:,l)=fieldm(:,l)/REAL(imax(typ)-imin(typ)+1)
+    ! Compute forcing
+          DO j=jjb_v,jje_v
+              DO i=1,iip1
+                  ij=(j-1)*iip1+i
+                  field(ij,l)=fieldm(j,l)
+              ENDDO
+          ENDDO
+      ENDDO
+    ELSE
+      DO l=1,vsize
+      ! Compute zonal average
+          DO j=jjb_v,jje_v
+              DO i=imin(typ),imax(typ)
+                  ij=(j-1)*iip1+i
+                  fieldm(j,l)=fieldm(j,l)+field(ij,l)
+              ENDDO
+          ENDDO 
+          fieldm(:,l)=fieldm(:,l)/REAL(imax(typ)-imin(typ)+1)
+    ! Compute forcing
+          DO j=jjb_u,jje_u
+              DO i=1,iip1
+                  ij=(j-1)*iip1+i
+                  field(ij,l)=fieldm(j,l)
+              ENDDO
+          ENDDO
+      ENDDO
+    ENDIF    
+
+  END SUBROUTINE guide_zonave
+
+!=======================================================================
+  SUBROUTINE guide_interp(psi,teta)
+    use exner_hyb_p_m, only: exner_hyb_p
+    use exner_milieu_p_m, only: exner_milieu_p
+  USE parallel_lmdz
+  USE mod_hallo
+  USE Bands
+  USE comconst_mod, ONLY: cpp, kappa
+  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap
+  IMPLICIT NONE
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+
+  REAL, DIMENSION (iip1,jjp1),     INTENT(IN) :: psi ! Psol gcm
+  REAL, DIMENSION (iip1,jjp1,llm), INTENT(IN) :: teta ! Temp. Pot. gcm
+
+  LOGICAL, SAVE                      :: first=.TRUE.
+  ! Variables pour niveaux pression:
+  REAL, DIMENSION (iip1,jjp1,nlevnc) :: plnc1,plnc2 !niveaux pression guidage
+  REAL, DIMENSION (iip1,jjp1,llm)    :: plunc,plsnc !niveaux pression modele
+  REAL, DIMENSION (iip1,jjm,llm)     :: plvnc       !niveaux pression modele
+  REAL, DIMENSION (iip1,jjp1,llmp1)  :: p           ! pression intercouches 
+  REAL, DIMENSION (iip1,jjp1,llm)    :: pls, pext   ! var intermediaire
+  REAL, DIMENSION (iip1,jjp1,llm)    :: pbarx 
+  REAL, DIMENSION (iip1,jjm,llm)     :: pbary 
+  ! Variables pour fonction Exner (P milieu couche)
+  REAL, DIMENSION (iip1,jjp1,llm)    :: pk
+  REAL, DIMENSION (iip1,jjp1)        :: pks    
+  REAL                               :: unskap
+  ! Pression de vapeur saturante
+  REAL, DIMENSION (ip1jmp1,llm)      :: qsat
+  !Variables intermediaires interpolation
+  REAL, DIMENSION (iip1,jjp1,llm)    :: zu1,zu2 
+  REAL, DIMENSION (iip1,jjm,llm)     :: zv1,zv2
+  
+  INTEGER                            :: i,j,l,ij
+  TYPE(Request) :: Req  
+
+    print *,'Guide: conversion variables guidage'
+! -----------------------------------------------------------------
+! Calcul des niveaux de pression champs guidage (pour T et Q)
+! -----------------------------------------------------------------
+    IF (guide_plevs.EQ.0) THEN
+        DO l=1,nlevnc
+            DO j=jjb_u,jje_u
+                DO i=1,iip1
+                    plnc2(i,j,l)=apnc(l)
+                    plnc1(i,j,l)=apnc(l)
+               ENDDO
+            ENDDO
+        ENDDO
+    ENDIF   
+
+    if (first) then
+        first=.FALSE.
+        print*,'Guide: verification ordre niveaux verticaux'
+        print*,'LMDZ :'
+        do l=1,llm
+            print*,'PL(',l,')=',(ap(l)+ap(l+1))/2. &
+                  +psi(1,jje_u)*(bp(l)+bp(l+1))/2.
+        enddo
+        print*,'Fichiers guidage'
+        SELECT CASE (guide_plevs)
+        CASE (0) 
+            do l=1,nlevnc
+                 print*,'PL(',l,')=',plnc2(1,jjb_u,l)
+            enddo
+        CASE (1)
+            DO l=1,nlevnc
+                 print*,'PL(',l,')=',apnc(l)+bpnc(l)*psnat2(i,jjb_u)
+             ENDDO
+        CASE (2)
+            do l=1,nlevnc
+                 print*,'PL(',l,')=',pnat2(1,jjb_u,l)
+            enddo
+        END SELECT
+        print *,'inversion de l''ordre: invert_p=',invert_p
+        if (guide_u) then
+            do l=1,nlevnc
+                print*,'U(',l,')=',unat2(1,jjb_u,l)
+            enddo
+        endif
+        if (guide_T) then
+            do l=1,nlevnc
+                print*,'T(',l,')=',tnat2(1,jjb_u,l)
+            enddo
+        endif
+    endif
+    
+! -----------------------------------------------------------------
+! Calcul niveaux pression modele 
+! -----------------------------------------------------------------
+
+!    ....  Calcul de pls , pression au milieu des couches ,en Pascals
+    IF (guide_plevs.EQ.1) THEN
+        DO l=1,llm
+            DO j=jjb_u,jje_u
+                DO i =1, iip1
+                    pls(i,j,l)=(ap(l)+ap(l+1))/2.+psi(i,j)*(bp(l)+bp(l+1))/2.
+                ENDDO
+            ENDDO
+        ENDDO
+    ELSE
+        CALL pression_p( ip1jmp1, ap, bp, psi, p )
+        if (pressure_exner) then
+          CALL exner_hyb_p(ip1jmp1,psi,p,pks,pk)
+        else
+          CALL exner_milieu_p(ip1jmp1,psi,p,pks,pk)
+        endif
+        unskap=1./kappa
+        DO l = 1, llm
+            DO j=jjb_u,jje_u
+                DO i =1, iip1
+                    pls(i,j,l) = preff * ( pk(i,j,l)/cpp) ** unskap
+                ENDDO
+            ENDDO
+        ENDDO
+    ENDIF
+
+!   calcul des pressions pour les grilles u et v
+    do l=1,llm
+        do j=jjb_u,jje_u
+            do i=1,iip1
+                pext(i,j,l)=pls(i,j,l)*aire(i,j)
+            enddo
+        enddo
+    enddo
+
+     CALL Register_SwapFieldHallo(pext,pext,ip1jmp1,llm,jj_Nb_caldyn,1,2,Req)
+     CALL SendRequest(Req)
+     CALL WaitRequest(Req)
+
+     call massbar_p(pext, pbarx, pbary )
+    do l=1,llm
+        do j=jjb_u,jje_u
+            do i=1,iip1
+                plunc(i,j,l)=pbarx(i,j,l)/aireu(i,j)
+                plsnc(i,j,l)=pls(i,j,l)
+            enddo
+        enddo
+    enddo
+    do l=1,llm
+        do j=jjb_v,jje_v
+            do i=1,iip1
+                plvnc(i,j,l)=pbary(i,j,l)/airev(i,j)
+            enddo
+        enddo
+    enddo
+
+! -----------------------------------------------------------------
+! Interpolation verticale champs guidage sur niveaux modele
+! Conversion en variables gcm (ucov, vcov...)
+! -----------------------------------------------------------------
+    if (guide_P) then
+        do j=jjb_u,jje_u
+            do i=1,iim
+                ij=(j-1)*iip1+i
+                psgui1(ij)=psnat1(i,j)
+                psgui2(ij)=psnat2(i,j)
+            enddo
+            psgui1(iip1*j)=psnat1(1,j)
+            psgui2(iip1*j)=psnat2(1,j)
+        enddo
+    endif
+
+    IF (guide_T) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+            DO l=1,nlevnc
+                DO j=jjb_u,jje_u
+                    DO i=1,iip1
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*psnat2(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*psnat1(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+            DO l=1,nlevnc
+                DO j=jjb_u,jje_u
+                    DO i=1,iip1
+                        plnc2(i,j,l)=pnat2(i,j,l)
+                        plnc1(i,j,l)=pnat1(i,j,l)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ENDIF
+
+        ! Interpolation verticale
+        CALL pres2lev(tnat1(:,jjb_u:jje_u,:),zu1(:,jjb_u:jje_u,:),nlevnc,llm,           &
+                    plnc1(:,jjb_u:jje_u,:),plsnc(:,jjb_u:jje_u,:),iip1,jjn_u,invert_p)
+        CALL pres2lev(tnat2(:,jjb_u:jje_u,:),zu2(:,jjb_u:jje_u,:),nlevnc,llm,           &
+                    plnc2(:,jjb_u:jje_u,:),plsnc(:,jjb_u:jje_u,:),iip1,jjn_u,invert_p)
+
+        ! Conversion en variables GCM
+        do l=1,llm
+            do j=jjb_u,jje_u
+                IF (guide_teta) THEN
+                    do i=1,iim
+                        ij=(j-1)*iip1+i
+                        tgui1(ij,l)=zu1(i,j,l)
+                        tgui2(ij,l)=zu2(i,j,l)
+                    enddo
+                ELSE
+                    do i=1,iim
+                        ij=(j-1)*iip1+i
+                        tgui1(ij,l)=zu1(i,j,l)*cpp/pk(i,j,l)
+                        tgui2(ij,l)=zu2(i,j,l)*cpp/pk(i,j,l)
+                    enddo
+                ENDIF
+                tgui1(j*iip1,l)=tgui1((j-1)*iip1+1,l)    
+                tgui2(j*iip1,l)=tgui2((j-1)*iip1+1,l)    
+            enddo
+            do i=1,iip1
+                tgui1(i,l)=tgui1(1,l)
+                tgui1(ip1jm+i,l)=tgui1(ip1jm+1,l) 
+                tgui2(i,l)=tgui2(1,l)
+                tgui2(ip1jm+i,l)=tgui2(ip1jm+1,l) 
+            enddo
+        enddo
+    ENDIF
+
+    IF (guide_Q) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+            DO l=1,nlevnc
+                DO j=jjb_u,jje_u
+                    DO i=1,iip1
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*psnat2(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*psnat1(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+            DO l=1,nlevnc
+                DO j=jjb_u,jje_u
+                    DO i=1,iip1
+                        plnc2(i,j,l)=pnat2(i,j,l)
+                        plnc1(i,j,l)=pnat1(i,j,l)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ENDIF
+
+        ! Interpolation verticale
+        CALL pres2lev(qnat1(:,jjb_u:jje_u,:),zu1(:,jjb_u:jje_u,:),nlevnc,llm,             &
+                      plnc1(:,jjb_u:jje_u,:),plsnc(:,jjb_u:jje_u,:),iip1,jjn_u,invert_p)
+        CALL pres2lev(qnat2(:,jjb_u:jje_u,:),zu2(:,jjb_u:jje_u,:),nlevnc,llm,             &
+                      plnc2(:,jjb_u:jje_u,:),plsnc(:,jjb_u:jje_u,:),iip1,jjn_u,invert_p)
+
+        ! Conversion en variables GCM
+        ! On suppose qu'on a la bonne variable dans le fichier de guidage:
+        ! Hum.Rel si guide_hr, Hum.Spec. sinon.
+        do l=1,llm
+            do j=jjb_u,jje_u
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    qgui1(ij,l)=zu1(i,j,l)
+                    qgui2(ij,l)=zu2(i,j,l)
+                enddo
+                qgui1(j*iip1,l)=qgui1((j-1)*iip1+1,l)    
+                qgui2(j*iip1,l)=qgui2((j-1)*iip1+1,l)    
+            enddo
+            do i=1,iip1
+                qgui1(i,l)=qgui1(1,l)
+                qgui1(ip1jm+i,l)=qgui1(ip1jm+1,l) 
+                qgui2(i,l)=qgui2(1,l)
+                qgui2(ip1jm+i,l)=qgui2(ip1jm+1,l) 
+            enddo
+        enddo
+        IF (guide_hr) THEN
+            CALL q_sat(iip1*jjn_u*llm,teta(:,jjb_u:jje_u,:)*pk(:,jjb_u:jje_u,:)/cpp,       &
+                       plsnc(:,jjb_u:jje_u,:),qsat(ijb_u:ije_u,:))
+            qgui1(ijb_u:ije_u,:)=qgui1(ijb_u:ije_u,:)*qsat(ijb_u:ije_u,:)*0.01 !hum. rel. en %
+            qgui2(ijb_u:ije_u,:)=qgui2(ijb_u:ije_u,:)*qsat(ijb_u:ije_u,:)*0.01 
+        ENDIF
+    ENDIF
+
+    IF (guide_u) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+            DO l=1,nlevnc
+                DO j=jjb_u,jje_u
+                    DO i=1,iim
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*(psnat2(i,j)*aire(i,j)*alpha1p2(i,j) &
+                       &           +psnat2(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*(psnat1(i,j)*aire(i,j)*alpha1p2(i,j) &
+                       &           +psnat1(i+1,j)*aire(i+1,j)*alpha3p4(i+1,j))/aireu(i,j)
+                    ENDDO
+                    plnc2(iip1,j,l)=plnc2(1,j,l)
+                    plnc1(iip1,j,l)=plnc1(1,j,l)
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+            DO l=1,nlevnc
+                DO j=jjb_u,jje_u
+                    DO i=1,iim
+                        plnc2(i,j,l)=(pnat2(i,j,l)*aire(i,j)*alpha1p2(i,j) &
+                       & +pnat2(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
+                        plnc1(i,j,l)=(pnat1(i,j,l)*aire(i,j)*alpha1p2(i,j) &
+                       & +pnat1(i+1,j,l)*aire(i,j)*alpha3p4(i+1,j))/aireu(i,j)
+                    ENDDO
+                    plnc2(iip1,j,l)=plnc2(1,j,l)
+                    plnc1(iip1,j,l)=plnc1(1,j,l)
+                ENDDO
+            ENDDO
+        ENDIF
+        
+        ! Interpolation verticale
+        CALL pres2lev(unat1(:,jjb_u:jje_u,:),zu1(:,jjb_u:jje_u,:),nlevnc,llm,            &
+                      plnc1(:,jjb_u:jje_u,:),plunc(:,jjb_u:jje_u,:),iip1,jjn_u,invert_p)
+        CALL pres2lev(unat2(:,jjb_u:jje_u,:),zu2(:,jjb_u:jje_u,:),nlevnc,llm,            &
+                      plnc2(:,jjb_u:jje_u,:),plunc(:,jjb_u:jje_u,:),iip1,jjn_u,invert_p)
+
+        ! Conversion en variables GCM
+        do l=1,llm
+            do j=jjb_u,jje_u
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    ugui1(ij,l)=zu1(i,j,l)*cu(i,j)
+                    ugui2(ij,l)=zu2(i,j,l)*cu(i,j)
+                enddo
+                ugui1(j*iip1,l)=ugui1((j-1)*iip1+1,l)    
+                ugui2(j*iip1,l)=ugui2((j-1)*iip1+1,l)    
+            enddo
+            do i=1,iip1
+                ugui1(i,l)=0.
+                ugui1(ip1jm+i,l)=0.
+                ugui2(i,l)=0.
+                ugui2(ip1jm+i,l)=0.
+            enddo
+        enddo
+    ENDIF
+    
+    IF (guide_v) THEN
+        ! Calcul des nouvelles valeurs des niveaux de pression du guidage
+        IF (guide_plevs.EQ.1) THEN
+         CALL Register_SwapFieldHallo(psnat1,psnat1,ip1jmp1,1,jj_Nb_caldyn,1,2,Req)
+         CALL SendRequest(Req)
+         CALL WaitRequest(Req)
+         CALL Register_SwapFieldHallo(psnat2,psnat2,ip1jmp1,1,jj_Nb_caldyn,1,2,Req)
+         CALL SendRequest(Req)
+         CALL WaitRequest(Req)
+            DO l=1,nlevnc
+                DO j=jjb_v,jje_v
+                    DO i=1,iip1
+                        plnc2(i,j,l)=apnc(l)+bpnc(l)*(psnat2(i,j)*aire(i,j)*alpha2p3(i,j) &
+                       &           +psnat2(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
+                        plnc1(i,j,l)=apnc(l)+bpnc(l)*(psnat1(i,j)*aire(i,j)*alpha2p3(i,j) &
+                       &           +psnat1(i,j+1)*aire(i,j+1)*alpha1p4(i,j+1))/airev(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ELSE IF (guide_plevs.EQ.2) THEN
+         CALL Register_SwapFieldHallo(pnat1,pnat1,ip1jmp1,llm,jj_Nb_caldyn,1,2,Req)
+         CALL SendRequest(Req)
+         CALL WaitRequest(Req)
+         CALL Register_SwapFieldHallo(pnat2,pnat2,ip1jmp1,llm,jj_Nb_caldyn,1,2,Req)
+         CALL SendRequest(Req)
+         CALL WaitRequest(Req)
+            DO l=1,nlevnc
+                DO j=jjb_v,jje_v
+                    DO i=1,iip1
+                        plnc2(i,j,l)=(pnat2(i,j,l)*aire(i,j)*alpha2p3(i,j) &
+                       & +pnat2(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
+                        plnc1(i,j,l)=(pnat1(i,j,l)*aire(i,j)*alpha2p3(i,j) &
+                       & +pnat1(i,j+1,l)*aire(i,j)*alpha1p4(i,j+1))/airev(i,j)
+                    ENDDO
+                ENDDO
+            ENDDO
+        ENDIF
+        ! Interpolation verticale
+        CALL pres2lev(vnat1(:,jjb_v:jje_v,:),zv1(:,jjb_v:jje_v,:),nlevnc,llm,             &
+                      plnc1(:,jjb_v:jje_v,:),plvnc(:,jjb_v:jje_v,:),iip1,jjn_v,invert_p)
+        CALL pres2lev(vnat2(:,jjb_v:jje_v,:),zv2(:,jjb_v:jje_v,:),nlevnc,llm,             &
+                      plnc2(:,jjb_v:jje_v,:),plvnc(:,jjb_v:jje_v,:),iip1,jjn_v,invert_p)
+        ! Conversion en variables GCM
+        do l=1,llm
+            do j=jjb_v,jje_v
+                do i=1,iim
+                    ij=(j-1)*iip1+i
+                    vgui1(ij,l)=zv1(i,j,l)*cv(i,j)
+                    vgui2(ij,l)=zv2(i,j,l)*cv(i,j)
+                enddo
+                vgui1(j*iip1,l)=vgui1((j-1)*iip1+1,l)    
+                vgui2(j*iip1,l)=vgui2((j-1)*iip1+1,l)    
+            enddo
+        enddo
+    ENDIF
+    
+
+  END SUBROUTINE guide_interp
+
+!=======================================================================
+  SUBROUTINE tau2alpha(typ,pim,pjm,factt,taumin,taumax,alpha)
+
+! Calcul des constantes de rappel alpha (=1/tau)
+
+    use comconst_mod, only: pi
+    use serre_mod, only: clat, clon, grossismx, grossismy
+    
+    implicit none
+
+    include "dimensions.h"
+    include "paramet.h"
+    include "comgeom2.h"
+
+! input arguments :
+    INTEGER, INTENT(IN) :: typ    ! u(2),v(3), ou scalaire(1)
+    INTEGER, INTENT(IN) :: pim,pjm ! dimensions en lat, lon
+    REAL, INTENT(IN)    :: factt   ! pas de temps en fraction de jour
+    REAL, INTENT(IN)    :: taumin,taumax
+! output arguments:
+    REAL, DIMENSION(pim,pjm), INTENT(OUT) :: alpha 
+  
+!  local variables:
+    LOGICAL, SAVE               :: first=.TRUE.
+    REAL, SAVE                  :: gamma,dxdy_min,dxdy_max
+    REAL, DIMENSION (iip1,jjp1) :: zdx,zdy
+    REAL, DIMENSION (iip1,jjp1) :: dxdys,dxdyu
+    REAL, DIMENSION (iip1,jjm)  :: dxdyv
+    real dxdy_
+    real zlat,zlon
+    real alphamin,alphamax,xi
+    integer i,j,ilon,ilat
+
+
+    alphamin=factt/taumax
+    alphamax=factt/taumin
+    IF (guide_reg.OR.guide_add) THEN
+        alpha=alphamax
+!-----------------------------------------------------------------------
+! guide_reg: alpha=alpha_min dans region, 0. sinon.
+!-----------------------------------------------------------------------
+        IF (guide_reg) THEN
+            do j=1,pjm
+                do i=1,pim
+                    if (typ.eq.2) then
+                       zlat=rlatu(j)*180./pi
+                       zlon=rlonu(i)*180./pi
+                    elseif (typ.eq.1) then
+                       zlat=rlatu(j)*180./pi
+                       zlon=rlonv(i)*180./pi
+                    elseif (typ.eq.3) then
+                       zlat=rlatv(j)*180./pi
+                       zlon=rlonv(i)*180./pi
+                    endif
+                    alpha(i,j)=alphamax/16.* &
+                              (1.+tanh((zlat-lat_min_g)/tau_lat))* &
+                              (1.+tanh((lat_max_g-zlat)/tau_lat))* &
+                              (1.+tanh((zlon-lon_min_g)/tau_lon))* &
+                              (1.+tanh((lon_max_g-zlon)/tau_lon))
+                enddo
+            enddo
+        ENDIF
+    ELSE
+!-----------------------------------------------------------------------
+! Sinon, alpha varie entre alpha_min et alpha_max suivant le zoom.
+!-----------------------------------------------------------------------
+!Calcul de l'aire des mailles
+        do j=2,jjm
+            do i=2,iip1
+               zdx(i,j)=0.5*(cu(i-1,j)+cu(i,j))/cos(rlatu(j))
+            enddo
+            zdx(1,j)=zdx(iip1,j)
+        enddo
+        do j=2,jjm
+            do i=1,iip1
+               zdy(i,j)=0.5*(cv(i,j-1)+cv(i,j))
+            enddo
+        enddo
+        do i=1,iip1
+            zdx(i,1)=zdx(i,2)
+            zdx(i,jjp1)=zdx(i,jjm)
+            zdy(i,1)=zdy(i,2)
+            zdy(i,jjp1)=zdy(i,jjm)
+        enddo
+        do j=1,jjp1
+            do i=1,iip1
+               dxdys(i,j)=sqrt(zdx(i,j)*zdx(i,j)+zdy(i,j)*zdy(i,j))
+            enddo
+        enddo
+        IF (typ.EQ.2) THEN
+            do j=1,jjp1
+                do i=1,iim
+                   dxdyu(i,j)=0.5*(dxdys(i,j)+dxdys(i+1,j))
+                enddo
+                dxdyu(iip1,j)=dxdyu(1,j)
+            enddo
+        ENDIF
+        IF (typ.EQ.3) THEN
+            do j=1,jjm
+                do i=1,iip1
+                   dxdyv(i,j)=0.5*(dxdys(i,j)+dxdys(i,j+1))
+                enddo
+            enddo
+        ENDIF
+! Premier appel: calcul des aires min et max et de gamma.
+        IF (first) THEN 
+            first=.FALSE.
+            ! coordonnees du centre du zoom
+            CALL coordij(clon,clat,ilon,ilat) 
+            ! aire de la maille au centre du zoom
+            dxdy_min=dxdys(ilon,ilat)
+            ! dxdy maximale de la maille
+            dxdy_max=0.
+            do j=1,jjp1
+                do i=1,iip1
+                     dxdy_max=max(dxdy_max,dxdys(i,j))
+                enddo
+            enddo
+            ! Calcul de gamma
+            if (abs(grossismx-1.).lt.0.1.or.abs(grossismy-1.).lt.0.1) then
+                 print*,'ATTENTION modele peu zoome'
+                 print*,'ATTENTION on prend une constante de guidage cste'
+                 gamma=0.
+            else
+                gamma=(dxdy_max-2.*dxdy_min)/(dxdy_max-dxdy_min)
+                print*,'gamma=',gamma
+                if (gamma.lt.1.e-5) then
+                  print*,'gamma =',gamma,'<1e-5'
+                  stop
+                endif
+                gamma=log(0.5)/log(gamma)
+                if (gamma4) then 
+                  gamma=min(gamma,4.)
+                endif
+                print*,'gamma=',gamma
+            endif
+        ENDIF !first
+
+        do j=1,pjm
+            do i=1,pim
+                if (typ.eq.1) then
+                   dxdy_=dxdys(i,j)
+                   zlat=rlatu(j)*180./pi
+                elseif (typ.eq.2) then
+                   dxdy_=dxdyu(i,j)
+                   zlat=rlatu(j)*180./pi
+                elseif (typ.eq.3) then
+                   dxdy_=dxdyv(i,j)
+                   zlat=rlatv(j)*180./pi
+                endif
+                if (abs(grossismx-1.).lt.0.1.or.abs(grossismy-1.).lt.0.1) then
+                ! pour une grille reguliere, xi=xxx**0=1 -> alpha=alphamin
+                    alpha(i,j)=alphamin
+                else
+                    xi=((dxdy_max-dxdy_)/(dxdy_max-dxdy_min))**gamma
+                    xi=min(xi,1.)
+                    if(lat_min_g.le.zlat .and. zlat.le.lat_max_g) then
+                        alpha(i,j)=xi*alphamin+(1.-xi)*alphamax
+                    else
+                        alpha(i,j)=0.
+                    endif
+                endif
+            enddo
+        enddo
+    ENDIF ! guide_reg
+
+    if (.not. guide_add) alpha = 1. - exp(- alpha)
+
+  END SUBROUTINE tau2alpha
+
+!=======================================================================
+  SUBROUTINE guide_read(timestep)
+
+    IMPLICIT NONE
+
+#include "netcdf.inc"
+#include "dimensions.h"
+#include "paramet.h"
+
+    INTEGER, INTENT(IN)   :: timestep
+
+    LOGICAL, SAVE         :: first=.TRUE.
+! Identification fichiers et variables NetCDF:
+    INTEGER, SAVE         :: ncidu,varidu,ncidv,varidv,ncidp,varidp
+    INTEGER, SAVE         :: ncidQ,varidQ,ncidt,varidt,ncidps,varidps
+    INTEGER               :: ncidpl,varidpl,varidap,varidbp
+! Variables auxiliaires NetCDF:
+    INTEGER, DIMENSION(4) :: start,count
+    INTEGER               :: status,rcode
+
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read'
+! -----------------------------------------------------------------
+! Premier appel: initialisation de la lecture des fichiers
+! -----------------------------------------------------------------
+    if (first) then
+         ncidpl=-99
+         print*,'Guide: ouverture des fichiers guidage '
+! Ap et Bp si Niveaux de pression hybrides
+         if (guide_plevs.EQ.1) then
+             print *,'Lecture du guidage sur niveaux modele'
+             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidpl,varidap',ncidpl,varidap
+         endif
+! Pression si guidage sur niveaux P variables
+         if (guide_plevs.EQ.2) then
+             rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidp,varidp',ncidp,varidp
+             if (ncidpl.eq.-99) ncidpl=ncidp
+         endif
+! Vent zonal
+         if (guide_u) then
+             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF 
+             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidu,varidu',ncidu,varidu
+             if (ncidpl.eq.-99) ncidpl=ncidu
+         endif
+! Vent meridien
+         if (guide_v) then
+             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidv,varidv',ncidv,varidv
+             if (ncidpl.eq.-99) ncidpl=ncidv
+         endif
+! Temperature
+         if (guide_T) then
+             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidT,varidT',ncidt,varidt
+             if (ncidpl.eq.-99) ncidpl=ncidt
+         endif
+! Humidite
+         if (guide_Q) then
+             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidQ,varidQ',ncidQ,varidQ
+             if (ncidpl.eq.-99) ncidpl=ncidQ
+         endif
+! Pression de surface
+         if ((guide_P).OR.(guide_plevs.EQ.1)) then
+             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidps,varidps',ncidps,varidps
+         endif
+! Coordonnee verticale
+         if (guide_plevs.EQ.0) then
+              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
+              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
+              print*,'ncidpl,varidpl',ncidpl,varidpl
+         endif
+! Coefs ap, bp pour calcul de la pression aux differents niveaux
+         IF (guide_plevs.EQ.1) THEN
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+#endif
+         ELSEIF (guide_plevs.EQ.0) THEN
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+#endif
+             apnc=apnc*100.! conversion en Pascals
+             bpnc(:)=0.
+         ENDIF
+         first=.FALSE.
+     ENDIF ! (first)
+
+! -----------------------------------------------------------------
+!   lecture des champs u, v, T, Q, ps
+! -----------------------------------------------------------------
+
+!  dimensions pour les champs scalaires et le vent zonal
+     start(1)=1
+     start(2)=1
+     start(3)=1
+     start(4)=timestep
+
+     count(1)=iip1
+     count(2)=jjp1
+     count(3)=nlevnc
+     count(4)=1
+
+! Pression 
+     if (guide_plevs.EQ.2) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidp,varidp,start,count,pnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidp,varidp,start,count,pnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,pnat2)
+         ENDIF
+     endif
+
+!  Vent zonal
+     if (guide_u) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,unat2)
+#else
+         status=NF_GET_VARA_REAL(ncidu,varidu,start,count,unat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
+         ENDIF
+
+     endif
+
+!  Temperature
+     if (guide_T) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,tnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidt,varidt,start,count,tnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
+         ENDIF
+     endif
+
+!  Humidite
+     if (guide_Q) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidQ,varidQ,start,count,qnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidQ,varidQ,start,count,qnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
+         ENDIF
+
+     endif
+
+!  Vent meridien
+     if (guide_v) then
+         count(2)=jjm
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,vnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidv,varidv,start,count,vnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
+         ENDIF
+     endif
+
+!  Pression de surface
+     if ((guide_P).OR.(guide_plevs.EQ.1))  then
+         start(3)=timestep
+         start(4)=0
+         count(2)=jjp1
+         count(3)=1
+         count(4)=0
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,psnat2)
+#else
+         status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnat2)
+#endif
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,1,psnat2)
+         ENDIF
+     endif
+
+  END SUBROUTINE guide_read
+
+!=======================================================================
+  SUBROUTINE guide_read2D(timestep)
+
+    IMPLICIT NONE
+
+#include "netcdf.inc"
+#include "dimensions.h"
+#include "paramet.h"
+
+    INTEGER, INTENT(IN)   :: timestep
+
+    LOGICAL, SAVE         :: first=.TRUE.
+! Identification fichiers et variables NetCDF:
+    INTEGER, SAVE         :: ncidu,varidu,ncidv,varidv,ncidp,varidp
+    INTEGER, SAVE         :: ncidQ,varidQ,ncidt,varidt,ncidps,varidps
+    INTEGER               :: ncidpl,varidpl,varidap,varidbp
+! Variables auxiliaires NetCDF:
+    INTEGER, DIMENSION(4) :: start,count
+    INTEGER               :: status,rcode
+! Variables for 3D extension:
+    REAL, DIMENSION (jjp1,llm) :: zu
+    REAL, DIMENSION (jjm,llm)  :: zv
+    INTEGER               :: i
+
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'guide_read2D'
+! -----------------------------------------------------------------
+! Premier appel: initialisation de la lecture des fichiers
+! -----------------------------------------------------------------
+    if (first) then
+         ncidpl=-99
+         print*,'Guide: ouverture des fichiers guidage '
+! Ap et Bp si niveaux de pression hybrides
+         if (guide_plevs.EQ.1) then
+             print *,'Lecture du guidage sur niveaux mod�le'
+             rcode = nf90_open('apbp.nc', nf90_nowrite, ncidpl)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'AP', varidap)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidpl, 'BP', varidbp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable BP, fichier apbp.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidpl,varidap',ncidpl,varidap
+         endif
+! Pression
+         if (guide_plevs.EQ.2) then
+             rcode = nf90_open('P.nc', nf90_nowrite, ncidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidp, 'PRES', varidp)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable PRES, fichier P.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidp,varidp',ncidp,varidp
+             if (ncidpl.eq.-99) ncidpl=ncidp
+         endif
+! Vent zonal
+         if (guide_u) then
+             rcode = nf90_open('u.nc', nf90_nowrite, ncidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidu, 'UWND', varidu)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable UWND, fichier u.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidu,varidu',ncidu,varidu
+             if (ncidpl.eq.-99) ncidpl=ncidu
+         endif
+! Vent meridien
+         if (guide_v) then
+             rcode = nf90_open('v.nc', nf90_nowrite, ncidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF 
+             rcode = nf90_inq_varid(ncidv, 'VWND', varidv)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable VWND, fichier v.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidv,varidv',ncidv,varidv
+             if (ncidpl.eq.-99) ncidpl=ncidv
+         endif
+! Temperature
+         if (guide_T) then
+             rcode = nf90_open('T.nc', nf90_nowrite, ncidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidt, 'AIR', varidt)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable AIR, fichier T.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidT,varidT',ncidt,varidt
+             if (ncidpl.eq.-99) ncidpl=ncidt
+         endif
+! Humidite
+         if (guide_Q) then
+             rcode = nf90_open('hur.nc', nf90_nowrite, ncidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidQ, 'RH', varidQ)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable RH, fichier hur.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidQ,varidQ',ncidQ,varidQ
+             if (ncidpl.eq.-99) ncidpl=ncidQ
+         endif
+! Pression de surface
+         if ((guide_P).OR.(guide_plevs.EQ.1)) then
+             rcode = nf90_open('ps.nc', nf90_nowrite, ncidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             rcode = nf90_inq_varid(ncidps, 'SP', varidps)
+             IF (rcode.NE.NF_NOERR) THEN
+              print *,'Guide: probleme -> pas de variable SP, fichier ps.nc'
+              CALL abort_gcm(modname,abort_message,1)
+             ENDIF
+             print*,'ncidps,varidps',ncidps,varidps
+         endif
+! Coordonnee verticale
+         if (guide_plevs.EQ.0) then
+              rcode = nf90_inq_varid(ncidpl, 'LEVEL', varidpl)
+              IF (rcode.NE.0) rcode = nf90_inq_varid(ncidpl, 'PRESSURE', varidpl)
+              print*,'ncidpl,varidpl',ncidpl,varidpl
+         endif
+! Coefs ap, bp pour calcul de la pression aux differents niveaux
+         if (guide_plevs.EQ.1) then
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidbp,1,nlevnc,bpnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidap,1,nlevnc,apnc)
+             status=NF_GET_VARA_REAL(ncidpl,varidbp,1,nlevnc,bpnc)
+#endif
+         elseif (guide_plevs.EQ.0) THEN
+#ifdef NC_DOUBLE
+             status=NF_GET_VARA_DOUBLE(ncidpl,varidpl,1,nlevnc,apnc)
+#else
+             status=NF_GET_VARA_REAL(ncidpl,varidpl,1,nlevnc,apnc)
+#endif
+             apnc=apnc*100.! conversion en Pascals
+             bpnc(:)=0.
+         endif
+         first=.FALSE.
+     endif ! (first)
+
+! -----------------------------------------------------------------
+!   lecture des champs u, v, T, Q, ps
+! -----------------------------------------------------------------
+
+!  dimensions pour les champs scalaires et le vent zonal
+     start(1)=1
+     start(2)=1
+     start(3)=1
+     start(4)=timestep
+
+     count(1)=1
+     count(2)=jjp1
+     count(3)=nlevnc
+     count(4)=1
+
+!  Pression
+     if (guide_plevs.EQ.2) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidp,varidp,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidp,varidp,start,count,zu)
+#endif
+         DO i=1,iip1
+             pnat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,pnat2)
+         ENDIF
+     endif
+!  Vent zonal
+     if (guide_u) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidu,varidu,start,count,zu)
+#endif
+         DO i=1,iip1
+             unat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,unat2)
+         ENDIF
+     endif
+
+!  Temperature
+     if (guide_T) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidt,varidt,start,count,zu)
+#endif
+         DO i=1,iip1
+             tnat2(i,:,:)=zu(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,tnat2)
+         ENDIF
+     endif
+
+!  Humidite
+     if (guide_Q) then
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidQ,varidQ,start,count,zu)
+#else
+         status=NF_GET_VARA_REAL(ncidQ,varidQ,start,count,zu)
+#endif
+         DO i=1,iip1
+             qnat2(i,:,:)=zu(:,:)
+         ENDDO
+         
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,nlevnc,qnat2)
+         ENDIF
+     endif
+
+!  Vent meridien
+     if (guide_v) then
+         count(2)=jjm
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,zv)
+#else
+         status=NF_GET_VARA_REAL(ncidv,varidv,start,count,zv)
+#endif
+         DO i=1,iip1
+             vnat2(i,:,:)=zv(:,:)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjm,nlevnc,vnat2)
+         ENDIF
+     endif
+
+!  Pression de surface
+     if ((guide_P).OR.(guide_plevs.EQ.1))  then
+         start(3)=timestep
+         start(4)=0
+         count(2)=jjp1
+         count(3)=1
+         count(4)=0
+#ifdef NC_DOUBLE
+         status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,zu(:,1))
+#else
+         status=NF_GET_VARA_REAL(ncidps,varidps,start,count,zu(:,1))
+#endif
+         DO i=1,iip1
+             psnat2(i,:)=zu(:,1)
+         ENDDO
+
+         IF (invert_y) THEN
+           CALL invert_lat(iip1,jjp1,1,psnat2)
+         ENDIF
+     endif
+
+  END SUBROUTINE guide_read2D
+  
+!=======================================================================
+  SUBROUTINE guide_out(varname,hsize,vsize,field,factt)
+    USE parallel_lmdz
+    USE comconst_mod, ONLY: pi
+    USE comvert_mod, ONLY: presnivs
+    IMPLICIT NONE
+
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "netcdf.inc"
+    INCLUDE "comgeom2.h"
+    
+    ! Variables entree
+    CHARACTER*(*), INTENT(IN)                          :: varname
+    INTEGER,   INTENT (IN)                         :: hsize,vsize
+    REAL, DIMENSION (iip1,hsize,vsize), INTENT(IN) :: field
+    REAL, INTENT (IN)                              :: factt
+
+    ! Variables locales
+    INTEGER, SAVE :: timestep=0
+    ! Identites fichier netcdf
+    INTEGER       :: nid, id_lonu, id_lonv, id_latu, id_latv, id_tim, id_lev
+    INTEGER       :: vid_lonu,vid_lonv,vid_latu,vid_latv,vid_cu,vid_cv,vid_lev
+    INTEGER       :: vid_au,vid_av
+    INTEGER       :: l
+    INTEGER, DIMENSION (3) :: dim3
+    INTEGER, DIMENSION (4) :: dim4,count,start
+    INTEGER                :: ierr, varid
+    REAL, DIMENSION (iip1,hsize,vsize) :: field2
+    
+    CALL gather_field(field,iip1*hsize,vsize,0)
+    
+    IF (mpi_rank /= 0) RETURN
+    
+    print *,'Guide: output timestep',timestep,'var ',varname
+    IF (timestep.EQ.0) THEN 
+! ----------------------------------------------
+! initialisation fichier de sortie
+! ----------------------------------------------
+! Ouverture du fichier
+        ierr=NF_CREATE("guide_ins.nc",NF_CLOBBER,nid)
+! Definition des dimensions
+        ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 
+        print*,'id_lonu 1 ',id_lonu
+        ierr=NF_DEF_DIM(nid,"LONV",iip1,id_lonv) 
+        ierr=NF_DEF_DIM(nid,"LATU",jjp1,id_latu) 
+        ierr=NF_DEF_DIM(nid,"LATV",jjm,id_latv) 
+        ierr=NF_DEF_DIM(nid,"LEVEL",llm,id_lev)
+        ierr=NF_DEF_DIM(nid,"TIME",NF_UNLIMITED,id_tim)
+
+! Creation des variables dimensions
+        ierr=NF_DEF_VAR(nid,"LONU",NF_FLOAT,1,id_lonu,vid_lonu)
+        print*,'id_lonu 2 ',id_lonu
+        ierr=NF_DEF_VAR(nid,"LONV",NF_FLOAT,1,id_lonv,vid_lonv)
+        ierr=NF_DEF_VAR(nid,"LATU",NF_FLOAT,1,id_latu,vid_latu)
+        ierr=NF_DEF_VAR(nid,"LATV",NF_FLOAT,1,id_latv,vid_latv)
+        ierr=NF_DEF_VAR(nid,"LEVEL",NF_FLOAT,1,id_lev,vid_lev)
+        ierr=NF_DEF_VAR(nid,"cu",NF_FLOAT,2,(/id_lonu,id_latu/),vid_cu)
+        ierr=NF_DEF_VAR(nid,"cv",NF_FLOAT,2,(/id_lonv,id_latv/),vid_cv)
+        ierr=NF_DEF_VAR(nid,"au",NF_FLOAT,2,(/id_lonu,id_latu/),vid_au)
+        ierr=NF_DEF_VAR(nid,"av",NF_FLOAT,2,(/id_lonv,id_latv/),vid_av)
+        
+        ierr=NF_ENDDEF(nid)
+
+! Enregistrement des variables dimensions
+#ifdef NC_DOUBLE
+        print*,'id_lonu DOUBLE ',id_lonu,rlonu*180./pi
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonu,rlonu*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lonv,rlonv*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_latu,rlatu*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_latv,rlatv*180./pi)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_lev,presnivs)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_cu,cu)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_cv,cv)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_au,alpha_u)
+        ierr = NF_PUT_VAR_DOUBLE(nid,vid_av,alpha_v)
+#else
+        print*,'id_lonu 3 ',id_lonu,rlonu*180./pi
+        ierr = NF_PUT_VAR_REAL(nid,vid_lonu,rlonu*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_lonv,rlonv*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_latu,rlatu*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_latv,rlatv*180./pi)
+        ierr = NF_PUT_VAR_REAL(nid,vid_lev,presnivs)
+        ierr = NF_PUT_VAR_REAL(nid,vid_cu,cu)
+        ierr = NF_PUT_VAR_REAL(nid,vid_cv,cv)
+        ierr = NF_PUT_VAR_REAL(nid,vid_au,alpha_u)
+        ierr = NF_PUT_VAR_REAL(nid,vid_av,alpha_v)
+#endif
+! --------------------------------------------------------------------
+! Cr�ation des variables sauvegard�es
+! --------------------------------------------------------------------
+        ierr = NF_REDEF(nid)
+! Pressure (GCM)
+        dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+        ierr = NF_DEF_VAR(nid,"SP",NF_FLOAT,4,dim4,varid)
+! Surface pressure (guidage)
+        IF (guide_P) THEN
+            dim3=(/id_lonv,id_latu,id_tim/)
+            ierr = NF_DEF_VAR(nid,"ps",NF_FLOAT,3,dim3,varid)
+        ENDIF
+! Zonal wind
+        IF (guide_u) THEN
+        print*,'id_lonu 4 ',id_lonu,varname
+            dim4=(/id_lonu,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"u",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"ua",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"ucov",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Merid. wind
+        IF (guide_v) THEN
+            dim4=(/id_lonv,id_latv,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"v",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"va",NF_FLOAT,4,dim4,varid)
+            ierr = NF_DEF_VAR(nid,"vcov",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Pot. Temperature
+        IF (guide_T) THEN
+            dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"teta",NF_FLOAT,4,dim4,varid)
+        ENDIF
+! Specific Humidity
+        IF (guide_Q) THEN
+            dim4=(/id_lonv,id_latu,id_lev,id_tim/)
+            ierr = NF_DEF_VAR(nid,"q",NF_FLOAT,4,dim4,varid)
+        ENDIF
+        
+        ierr = NF_ENDDEF(nid)
+        ierr = NF_CLOSE(nid)
+    ENDIF ! timestep=0
+
+! --------------------------------------------------------------------
+! Enregistrement du champ
+! --------------------------------------------------------------------
+ 
+    ierr=NF_OPEN("guide_ins.nc",NF_WRITE,nid)
+
+    IF (varname=="SP") timestep=timestep+1
+
+    IF (varname=="SP") THEN
+      print*,'varname=SP=',varname
+    ELSE
+      print*,'varname diff SP=',varname
+    ENDIF
+
+
+    ierr = NF_INQ_VARID(nid,varname,varid)
+    SELECT CASE (varname)
+    CASE ("SP","ps")
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjp1,llm,1/)
+    CASE ("v","va","vcov")
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjm,llm,1/)
+    CASE DEFAULT
+        start=(/1,1,1,timestep/)
+        count=(/iip1,jjp1,llm,1/)
+    END SELECT
+
+    SELECT CASE (varname)
+    CASE("u","ua")
+        DO l=1,llm ; field2(:,2:jjm,l)=field(:,2:jjm,l)/cu(:,2:jjm) ; ENDDO
+        field2(:,1,:)=0. ; field2(:,jjp1,:)=0.
+    CASE("v","va")
+        DO l=1,llm ; field2(:,:,l)=field(:,:,l)/cv(:,:) ; ENDDO
+    CASE DEFAULT
+        field2=field
+    END SELECT
+
+#ifdef NC_DOUBLE
+    ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,count,field2)
+#else
+    ierr = NF_PUT_VARA_REAL(nid,varid,start,count,field2)
+#endif
+ 
+    ierr = NF_CLOSE(nid)
+
+  END SUBROUTINE guide_out
+    
+  
+!===========================================================================
+  subroutine correctbid(iim,nl,x)
+    integer iim,nl
+    real x(iim+1,nl)
+    integer i,l
+    real zz
+
+    do l=1,nl
+        do i=2,iim-1
+            if(abs(x(i,l)).gt.1.e10) then
+               zz=0.5*(x(i-1,l)+x(i+1,l))
+              print*,'correction ',i,l,x(i,l),zz
+               x(i,l)=zz
+            endif
+         enddo
+     enddo
+     return
+  end subroutine correctbid
+
+!===========================================================================
+END MODULE guide_p_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/iniacademic.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/iniacademic.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/iniacademic.F90	(revision 3330)
@@ -0,0 +1,289 @@
+!
+! $Id$
+!
+SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
+
+  USE filtreg_mod, ONLY: inifilr
+  USE infotrac, ONLY : nqtot
+  USE control_mod, ONLY: day_step,planet_type
+#ifdef CPP_IOIPSL
+  USE IOIPSL, ONLY: getin
+#else
+  ! if not using IOIPSL, we still need to use (a local version of) getin
+  USE ioipsl_getincom, ONLY: getin
+#endif
+  USE Write_Field
+  use exner_hyb_m, only: exner_hyb
+  use exner_milieu_m, only: exner_milieu
+  USE comconst_mod, ONLY: cpp, kappa, g, daysec, dtvr, pi, im, jm
+  USE logic_mod, ONLY: iflag_phys, read_start
+  USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
+  USE temps_mod, ONLY: annee_ref, day_ini, day_ref
+
+  !   Author:    Frederic Hourdin      original: 15/01/93
+  ! The forcing defined here is from Held and Suarez, 1994, Bulletin
+  ! of the American Meteorological Society, 75, 1825.
+
+  IMPLICIT NONE
+
+  !   Declararations:
+  !   ---------------
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "academic.h"
+  include "ener.h"
+  include "iniprint.h"
+
+  !   Arguments:
+  !   ----------
+
+  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:
+  !   ------
+
+  REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+  REAL pks(ip1jmp1)                      ! exner au  sol
+  REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+  REAL phi(ip1jmp1,llm)                  ! geopotentiel
+  REAL ddsin,zsig,tetapv,w_pv  ! variables auxiliaires
+  real tetastrat ! potential temperature in the stratosphere, in K
+  real tetajl(jjp1,llm)
+  INTEGER i,j,l,lsup,ij
+
+  REAL teta0,ttp,delt_y,delt_z,eps ! Constantes pour profil de T
+  REAL k_f,k_c_a,k_c_s         ! Constantes de rappel
+  LOGICAL ok_geost             ! Initialisation vent geost. ou nul
+  LOGICAL ok_pv                ! Polar Vortex
+  REAL phi_pv,dphi_pv,gam_pv   ! Constantes pour polar vortex 
+
+  real zz,ran1
+  integer idum
+
+  REAL zdtvr
+  
+  character(len=*),parameter :: modname="iniacademic"
+  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
+  ! --------------------------------------
+  !
+  ! initialize planet radius, rotation rate,...
+  call conf_planete
+
+  time_0=0.
+  day_ref=1
+  annee_ref=0
+
+  im         = iim
+  jm         = jjm
+  day_ini    = 1
+  dtvr    = daysec/REAL(day_step)
+  zdtvr=dtvr
+  etot0      = 0.
+  ptot0      = 0.
+  ztot0      = 0.
+  stot0      = 0.
+  ang0       = 0.
+
+  if (llm == 1) then
+     ! specific initializations for the shallow water case
+     kappa=1
+  endif
+
+  CALL iniconst
+  CALL inigeom
+  CALL inifilr
+
+  if (llm == 1) then
+     ! initialize fields for the shallow water case, if required
+     if (.not.read_start) then
+        phis(:)=0.
+        q(:,:,:)=0
+        CALL sw_case_williamson91_6(vcov,ucov,teta,masse,ps)
+     endif
+  endif
+
+  academic_case: if (iflag_phys >= 2) then
+     ! initializations
+
+     ! 1. local parameters
+     ! by convention, winter is in the southern hemisphere
+     ! Geostrophic wind or no wind?
+     ok_geost=.TRUE.
+     CALL getin('ok_geost',ok_geost)
+     ! Constants for Newtonian relaxation and friction
+     k_f=1.                !friction 
+     CALL getin('k_j',k_f)
+     k_f=1./(daysec*k_f)
+     k_c_s=4.  !cooling surface
+     CALL getin('k_c_s',k_c_s)
+     k_c_s=1./(daysec*k_c_s)
+     k_c_a=40. !cooling free atm
+     CALL getin('k_c_a',k_c_a)
+     k_c_a=1./(daysec*k_c_a)
+     ! Constants for Teta equilibrium profile
+     teta0=315.     ! mean Teta (S.H. 315K)
+     CALL getin('teta0',teta0)
+     ttp=200.       ! Tropopause temperature (S.H. 200K)
+     CALL getin('ttp',ttp)
+     eps=0.         ! Deviation to N-S symmetry(~0-20K)
+     CALL getin('eps',eps)
+     delt_y=60.     ! Merid Temp. Gradient (S.H. 60K)
+     CALL getin('delt_y',delt_y)
+     delt_z=10.     ! Vertical Gradient (S.H. 10K)
+     CALL getin('delt_z',delt_z)
+     ! Polar vortex
+     ok_pv=.false.
+     CALL getin('ok_pv',ok_pv)
+     phi_pv=-50.            ! Latitude of edge of vortex
+     CALL getin('phi_pv',phi_pv)
+     phi_pv=phi_pv*pi/180.
+     dphi_pv=5.             ! Width of the edge
+     CALL getin('dphi_pv',dphi_pv)
+     dphi_pv=dphi_pv*pi/180.
+     gam_pv=4.              ! -dT/dz vortex (in K/km)
+     CALL getin('gam_pv',gam_pv)
+
+     ! 2. Initialize fields towards which to relax
+     ! Friction
+     knewt_g=k_c_a
+     DO l=1,llm
+        zsig=presnivs(l)/preff
+        knewt_t(l)=(k_c_s-k_c_a)*MAX(0.,(zsig-0.7)/0.3)
+        kfrict(l)=k_f*MAX(0.,(zsig-0.7)/0.3)
+     ENDDO
+     DO j=1,jjp1
+        clat4((j-1)*iip1+1:j*iip1)=cos(rlatu(j))**4
+     ENDDO
+
+     ! Potential temperature 
+     DO l=1,llm
+        zsig=presnivs(l)/preff
+        tetastrat=ttp*zsig**(-kappa)
+        tetapv=tetastrat
+        IF ((ok_pv).AND.(zsig.LT.0.1)) THEN
+           tetapv=tetastrat*(zsig*10.)**(kappa*cpp*gam_pv/1000./g)
+        ENDIF
+        DO j=1,jjp1
+           ! Troposphere
+           ddsin=sin(rlatu(j))
+           tetajl(j,l)=teta0-delt_y*ddsin*ddsin+eps*ddsin &
+                -delt_z*(1.-ddsin*ddsin)*log(zsig)
+           if (planet_type=="giant") then
+             tetajl(j,l)=teta0+(delt_y*                   &
+                ((sin(rlatu(j)*3.14159*eps+0.0001))**2)   &
+                / ((rlatu(j)*3.14159*eps+0.0001)**2))     &
+                -delt_z*log(zsig)
+           endif
+           ! Profil stratospherique isotherme (+vortex)
+           w_pv=(1.-tanh((rlatu(j)-phi_pv)/dphi_pv))/2.
+           tetastrat=tetastrat*(1.-w_pv)+tetapv*w_pv             
+           tetajl(j,l)=MAX(tetajl(j,l),tetastrat)  
+        ENDDO
+     ENDDO
+
+     !          CALL writefield('theta_eq',tetajl)
+
+     do l=1,llm
+        do j=1,jjp1
+           do i=1,iip1
+              ij=(j-1)*iip1+i
+              tetarappel(ij,l)=tetajl(j,l)
+           enddo
+        enddo
+     enddo
+
+     ! 3. Initialize fields (if necessary)
+     IF (.NOT. read_start) THEN
+        ! surface pressure
+        if (iflag_phys>2) then
+           ! specific value for CMIP5 aqua/terra planets
+           ! "Specify the initial dry mass to be equivalent to
+           !  a global mean surface pressure (101325 minus 245) Pa."
+           ps(:)=101080.  
+        else
+           ! use reference surface pressure
+           ps(:)=preff
+        endif
+        
+        ! ground geopotential
+        phis(:)=0.
+
+        CALL pression ( ip1jmp1, ap, bp, ps, p       )
+        if (pressure_exner) then
+          CALL exner_hyb( ip1jmp1, ps, p, pks, pk)
+        else
+          call exner_milieu(ip1jmp1,ps,p,pks,pk)
+        endif
+        CALL massdair(p,masse)
+
+        ! bulk initialization of temperature
+        teta(:,:)=tetarappel(:,:)
+
+        ! geopotential
+        CALL geopot(ip1jmp1,teta,pk,pks,phis,phi)
+
+        ! winds
+        if (ok_geost) then
+           call ugeostr(phi,ucov)
+        else
+           ucov(:,:)=0.
+        endif
+        vcov(:,:)=0.
+
+        ! bulk initialization of tracers
+        if (planet_type=="earth") then
+           ! Earth: first two tracers will be water
+           do i=1,nqtot
+              if (i == 1) q(:,:,i)=1.e-10
+              if (i == 2) q(:,:,i)=1.e-15
+              if (i.gt.2) q(:,:,i)=0.
+           enddo
+        else
+           q(:,:,:)=0
+        endif ! of if (planet_type=="earth")
+
+        ! add random perturbation to temperature
+        idum  = -1
+        zz = ran1(idum)
+        idum  = 0
+        do l=1,llm
+           do ij=iip2,ip1jm
+              teta(ij,l)=teta(ij,l)*(1.+0.005*ran1(idum))
+           enddo
+        enddo
+
+        ! maintain periodicity in longitude
+        do l=1,llm
+           do ij=1,ip1jmp1,iip1
+              teta(ij+iim,l)=teta(ij,l)
+           enddo
+        enddo
+
+     ENDIF ! of IF (.NOT. read_start)
+  endif academic_case
+
+END SUBROUTINE iniacademic
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/initdynav_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/initdynav_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/initdynav_p.F	(revision 3330)
@@ -0,0 +1,202 @@
+!
+! $Id$
+!
+      subroutine initdynav_p(infile,day0,anne0,tstep,t_ops,t_wrt,fileid)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+       USE IOIPSL
+#endif
+       USE parallel_lmdz
+       use Write_field
+       use misc_mod
+       USE infotrac
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: nivsigs
+       USE temps_mod, ONLY: itau_dyn
+
+      implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL. Initialisation du fichier histoire moyenne.
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      infile: nom du fichier histoire a creer
+C      day0,anne0: date de reference
+C      tstep : frequence d'ecriture
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+#include "iniprint.h"
+
+C   Arguments
+C
+      character*(*) infile
+      integer*4 day0, anne0
+      real tstep, t_ops, t_wrt
+      integer fileid
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      integer thoriid, zvertiid
+      integer tau0
+      real zjulian
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1)
+      integer ii,jj
+      integer zan, dayref
+      integer :: jjb,jje,jjn
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(2) :: ddid
+      INTEGER,DIMENSION(2) :: dsg
+      INTEGER,DIMENSION(2) :: dsl
+      INTEGER,DIMENSION(2) :: dpf
+      INTEGER,DIMENSION(2) :: dpl
+      INTEGER,DIMENSION(2) :: dhs
+      INTEGER,DIMENSION(2) :: dhe 
+      
+      INTEGER :: dynave_domain_id
+      
+      if (adjust) return
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = anne0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj)  = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynave_domain_id)
+             
+      call histbeg(trim(infile),iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+     .             1, iip1, 1, jjn,tau0, zjulian, tstep, thoriid,
+     .             fileid,dynave_domain_id)
+
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'sigss', 'Niveaux sigma','Pa',
+     .              llm, nivsigs, zvertiid)
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+C
+C  Vents U
+C
+      write(6,*)'inithistave',tstep
+      call histdef(fileid, 'u', 'vents u scalaires moyennes',
+     .             'm/s', iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+
+C
+C  Vents V
+C
+      call histdef(fileid, 'v', 'vents v scalaires moyennes',
+     .             'm/s', iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+
+C
+C  Temperature
+C
+      call histdef(fileid, 'temp', 'temperature moyennee', 'K',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Temperature potentielle
+C
+      call histdef(fileid, 'theta', 'temperature potentielle', 'K',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+
+
+C
+C  Geopotentiel
+C
+      call histdef(fileid, 'phi', 'geopotentiel moyenne', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Traceurs
+C
+        DO iq=1,nqtot
+          call histdef(fileid, ttext(iq), ttext(iq), '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', t_ops, t_wrt)
+        enddo
+C
+C  Masse
+C
+      call histdef(fileid, 'masse', 'masse', 'kg',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(fileid, 'ps', 'pression naturelle au sol', 'Pa',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(fileid, 'phis', 'geopotentiel au sol', '-',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'ave(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(fileid)
+#else
+      write(lunout,*)'initdynav_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/initfluxsto_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/initfluxsto_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/initfluxsto_p.F	(revision 3330)
@@ -0,0 +1,295 @@
+!
+! $Id$
+!
+      subroutine initfluxsto_p
+     .  (infile,tstep,t_ops,t_wrt,
+     .                    fileid,filevid,filedid)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+       USE IOIPSL
+#endif
+       USE parallel_lmdz
+       use Write_field
+       use misc_mod
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: nivsigs
+       USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
+       
+      implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      infile: nom du fichier histoire a creer
+C      day0,anne0: date de reference
+C      tstep: duree du pas de temps en seconde
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C      filevid:ID du fichier netcdf pour la grille v
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+#include "iniprint.h"
+
+C   Arguments
+C
+      character*(*) infile
+      real tstep, t_ops, t_wrt
+      integer fileid, filevid,filedid
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      real nivd(1)
+      integer tau0
+      real zjulian
+      character*3 str
+      character*10 ctrac
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1),rl(1,1)
+      integer uhoriid, vhoriid, thoriid, zvertiid,dhoriid,dvertiid
+      integer ii,jj
+      integer zan, idayref
+      logical ok_sync
+      integer :: jjb,jje,jjn
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(2) :: ddid
+      INTEGER,DIMENSION(2) :: dsg
+      INTEGER,DIMENSION(2) :: dsl
+      INTEGER,DIMENSION(2) :: dpf
+      INTEGER,DIMENSION(2) :: dpl
+      INTEGER,DIMENSION(2) :: dhs
+      INTEGER,DIMENSION(2) :: dhe 
+      
+      INTEGER :: dynu_domain_id
+      INTEGER :: dynv_domain_id
+
+C
+C  Initialisations
+C
+      pi = 4. * atan (1.)
+      str='q  '
+      ctrac = 'traceur   '
+      ok_sync = .true.
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = annee_ref
+      idayref = day_ref
+      CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
+      tau0 = itau_dyn
+        
+        do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynu_domain_id)
+       
+      call histbeg(trim(infile),iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+     .             1, iip1, 1, jjn, tau0, zjulian, tstep, uhoriid,
+     .             fileid,dynu_domain_id)
+C
+C  Creation du fichier histoire pour la grille en V (oblige pour l'instant,
+C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans 
+C  un meme fichier)
+
+
+      do jj = 1, jjm
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      if (pole_sud) jje=jj_end-1
+      if (pole_sud) jjn=jj_nb-1
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjm /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynv_domain_id)
+     
+      call histbeg('fluxstokev',iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+     .             1, iip1, 1, jjn,tau0, zjulian, tstep, vhoriid,
+     .             filevid,dynv_domain_id)
+        
+      rl(1,1) = 1.        
+      
+      if (mpi_rank==0) then
+          
+        call histbeg('defstoke.nc', 1, rl, 1, rl,
+     .               1, 1, 1, 1,
+     .               tau0, zjulian, tstep, dhoriid, filedid)
+     
+      endif
+C
+C  Appel a histhori pour rajouter les autres grilles horizontales
+C
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
+     .             'scalar','Grille points scalaires', thoriid)
+        
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'sig_s', 'Niveaux sigma',
+     . 'sigma_level',
+     .              llm, nivsigs, zvertiid)
+C Pour le fichier V
+      call histvert(filevid, 'sig_s', 'Niveaux sigma',
+     .  'sigma_level',
+     .              llm, nivsigs, zvertiid)
+c pour le fichier def
+      if (mpi_rank==0) then
+         nivd(1) = 1
+         call histvert(filedid, 'sig_s', 'Niveaux sigma',
+     .        'sigma_level',
+     .        1, nivd, dvertiid)
+      endif
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+        
+        CALL histdef(fileid, "phis", "Surface geop. height", "-",
+     .                iip1,jjn,thoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+
+         CALL histdef(fileid, "aire", "Grid area", "-",
+     .                iip1,jjn,thoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+        
+        if (mpi_rank==0) then
+        
+        CALL histdef(filedid, "dtvr", "tps dyn", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+        
+         CALL histdef(filedid, "istdyn", "tps stock", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+         
+         CALL histdef(filedid, "istphy", "tps stock phy", "s",
+     .                1,1,dhoriid, 1,1,1, -99, 32,
+     .                "once", t_ops, t_wrt)
+
+        endif
+C
+C Masse 
+C
+      call histdef(fileid, 'masse', 'Masse', 'kg',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pbaru 
+C
+      call histdef(fileid, 'pbaru', 'flx de masse zonal', 'kg m/s',
+     .             iip1, jjn, uhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Pbarv 
+C
+      if (pole_sud) jjn=jj_nb-1
+      
+      call histdef(filevid, 'pbarv', 'flx de masse mer', 'kg m/s',
+     .             iip1, jjn, vhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  w 
+C
+      if (pole_sud) jjn=jj_nb
+      call histdef(fileid, 'w', 'flx de masse vert', 'kg m/s',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Temperature potentielle
+C
+      call histdef(fileid, 'teta', 'temperature potentielle', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+
+C
+C Geopotentiel 
+C
+      call histdef(fileid, 'phi', 'geopotentiel instantane', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(fileid)
+      call histend(filevid)
+      if (mpi_rank==0) call histend(filedid)
+      if (ok_sync) then
+        call histsync(fileid)
+        call histsync(filevid)
+        if (mpi_rank==0) call histsync(filedid)
+      endif
+        
+#else
+      write(lunout,*)'initfluxsto_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/inithist_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/inithist_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/inithist_p.F	(revision 3330)
@@ -0,0 +1,255 @@
+!
+! $Id$
+!
+      subroutine inithist_p(infile,day0,anne0,tstep,t_ops,t_wrt,
+     .                      fileid,filevid)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+       USE IOIPSL
+#endif
+       USE parallel_lmdz
+       use Write_field
+       use misc_mod
+       USE infotrac
+       USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: nivsigs
+       USE temps_mod, ONLY: itau_dyn
+
+      implicit none
+
+C
+C   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+C   au format IOIPSL
+C
+C   Appels succesifs des routines: histbeg
+C                                  histhori
+C                                  histver
+C                                  histdef
+C                                  histend
+C
+C   Entree:
+C
+C      infile: nom du fichier histoire a creer
+C      day0,anne0: date de reference
+C      tstep: duree du pas de temps en seconde
+C      t_ops: frequence de l'operation pour IOIPSL
+C      t_wrt: frequence d'ecriture sur le fichier
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C      filevid:ID du fichier netcdf pour la grille v
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+#include "iniprint.h"
+
+C   Arguments
+C
+      character*(*) infile
+      integer*4 day0, anne0
+      real tstep, t_ops, t_wrt
+      integer fileid, filevid
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      integer tau0
+      real zjulian
+      integer iq
+      real rlong(iip1,jjp1), rlat(iip1,jjp1)
+      integer uhoriid, vhoriid, thoriid, zvertiid
+      integer ii,jj
+      integer zan, dayref
+      integer :: jjb,jje,jjn
+
+! definition du domaine d'ecriture pour le rebuild
+
+      INTEGER,DIMENSION(2) :: ddid
+      INTEGER,DIMENSION(2) :: dsg
+      INTEGER,DIMENSION(2) :: dsl
+      INTEGER,DIMENSION(2) :: dpf
+      INTEGER,DIMENSION(2) :: dpl
+      INTEGER,DIMENSION(2) :: dhs
+      INTEGER,DIMENSION(2) :: dhe 
+      
+      INTEGER :: dynu_domain_id
+      INTEGER :: dynv_domain_id
+
+C
+C  Initialisations
+C
+      if (adjust) return
+       
+      pi = 4. * atan (1.)
+C
+C  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+C         
+
+      zan = anne0
+      dayref = day0
+      CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+      tau0 = itau_dyn
+      
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonu(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+      
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjp1 /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynu_domain_id)
+      
+       call histbeg(trim(infile),iip1, rlong(:,1), jjn, 
+     .              rlat(1,jjb:jje), 1, iip1, 1, jjn, tau0,
+     .              zjulian, tstep, uhoriid, fileid,dynu_domain_id)
+C
+C  Creation du fichier histoire pour la grille en V (oblige pour l'instant,
+C  IOIPSL ne permet pas de grilles avec des nombres de point differents dans 
+C  un meme fichier)
+
+      do jj = 1, jjm
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatv(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+      if (pole_sud) jje=jj_end-1
+      if (pole_sud) jjn=jj_nb-1
+
+      ddid=(/ 1,2 /)
+      dsg=(/ iip1,jjm /)
+      dsl=(/ iip1,jjn /)
+      dpf=(/ 1,jjb /)
+      dpl=(/ iip1,jje /)
+      dhs=(/ 0,0 /)
+      dhe=(/ 0,0 /)
+
+      call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, 
+     .                 'box',dynv_domain_id)
+      
+      call histbeg('dyn_histv', iip1, rlong(:,1), jjn, rlat(1,jjb:jje),
+     .             1, iip1, 1, jjn, tau0, zjulian, tstep, vhoriid, 
+     .             filevid,dynv_domain_id)
+C
+C  Appel a histhori pour rajouter les autres grilles horizontales
+C
+      
+      do jj = 1, jjp1
+        do ii = 1, iip1
+          rlong(ii,jj) = rlonv(ii) * 180. / pi
+          rlat(ii,jj) = rlatu(jj) * 180. / pi
+        enddo
+      enddo
+
+      jjb=jj_begin
+      jje=jj_end
+      jjn=jj_nb
+
+      call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
+     .              'scalar','Grille points scalaires', thoriid)
+C
+C  Appel a histvert pour la grille verticale
+C
+      call histvert(fileid, 'sig_s', 'Niveaux sigma','-',
+     .              llm, nivsigs, zvertiid)
+C Pour le fichier V
+      call histvert(filevid, 'sig_s', 'Niveaux sigma','-',
+     .              llm, nivsigs, zvertiid)
+C
+C  Appels a histdef pour la definition des variables a sauvegarder
+C
+C  Vents U
+C
+      jjn=jj_nb
+
+      call histdef(fileid, 'ucov', 'vents u covariants', 'm/s',
+     .             iip1, jjn, uhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Vents V
+C
+      if (pole_sud) jjn=jj_nb-1
+      
+      call histdef(filevid, 'vcov', 'vents v covariants', 'm/s',
+     .             iip1, jjn, vhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+
+C
+C  Temperature potentielle
+C
+      jjn=jj_nb
+      
+      call histdef(fileid, 'teta', 'temperature potentielle', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Geopotentiel
+C
+      call histdef(fileid, 'phi', 'geopotentiel instantane', '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Traceurs
+C
+        DO iq=1,nqtot
+          call histdef(fileid, ttext(iq),  ttext(iq), '-',
+     .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+        enddo
+C
+C  Masse
+C
+      call histdef(fileid, 'masse', 'masse', 'kg',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(fileid, 'ps', 'pression naturelle au sol', 'Pa',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Pression au sol
+C
+      call histdef(fileid, 'phis', 'geopotentiel au sol', '-',
+     .             iip1, jjn, thoriid, 1, 1, 1, -99,
+     .             32, 'inst(X)', t_ops, t_wrt)
+C
+C  Fin
+C
+      call histend(fileid)
+      call histend(filevid)
+#else
+      write(lunout,*)'inithist_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/integrd_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/integrd_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/integrd_p.F	(revision 3330)
@@ -0,0 +1,392 @@
+!
+! $Id$
+!
+      SUBROUTINE integrd_p
+     $  (  nq,vcovm1,ucovm1,tetam1,psm1,massem1,
+     $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis) !,finvmaold)
+      USE parallel_lmdz
+      USE control_mod, only : planet_type
+      USE comconst_mod, ONLY: pi
+      USE logic_mod, ONLY: leapf
+      USE comvert_mod, ONLY: ap, bp
+      USE temps_mod, ONLY: dt
+      
+      IMPLICIT NONE
+
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   objet:
+c   ------
+c
+c   Incrementation des tendances dynamiques
+c
+c=======================================================================
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      integer,intent(in) :: nq ! number of tracers to handle in this routine
+      real,intent(inout) :: vcov(ip1jm,llm) ! covariant meridional wind
+      real,intent(inout) :: ucov(ip1jmp1,llm) ! covariant zonal wind
+      real,intent(inout) :: teta(ip1jmp1,llm) ! potential temperature
+      real,intent(inout) :: q(ip1jmp1,llm,nq) ! advected tracers
+      real,intent(inout) :: ps0(ip1jmp1) ! surface pressure
+      real,intent(inout) :: masse(ip1jmp1,llm) ! atmospheric mass
+      real,intent(in) :: phis(ip1jmp1) ! ground geopotential !!! unused
+      ! values at previous time step
+      real,intent(inout) :: vcovm1(ip1jm,llm)
+      real,intent(inout) :: ucovm1(ip1jmp1,llm)
+      real,intent(inout) :: tetam1(ip1jmp1,llm)
+      real,intent(inout) :: psm1(ip1jmp1)
+      real,intent(inout) :: massem1(ip1jmp1,llm)
+      ! the tendencies to add
+      real,intent(in) :: dv(ip1jm,llm)
+      real,intent(in) :: du(ip1jmp1,llm)
+      real,intent(in) :: dteta(ip1jmp1,llm)
+      real,intent(in) :: dp(ip1jmp1)
+      real,intent(in) :: dq(ip1jmp1,llm,nq) !!! unused
+!      real,intent(out) :: finvmaold(ip1jmp1,llm) !!! unused
+
+c   Local:
+c   ------
+
+      REAL vscr( ip1jm ),uscr( ip1jmp1 ),hscr( ip1jmp1 ),pscr(ip1jmp1)
+      REAL massescr( ip1jmp1,llm )
+!      REAL finvmasse(ip1jmp1,llm)
+      REAL,SAVE :: p(ip1jmp1,llmp1)
+      REAL tpn,tps,tppn(iim),tpps(iim)
+      REAL qpn,qps,qppn(iim),qpps(iim)
+      REAL,SAVE :: deltap( ip1jmp1,llm )
+
+      INTEGER  l,ij,iq,i,j
+
+      REAL SSUM
+      EXTERNAL SSUM
+      INTEGER ijb,ije,jjb,jje
+      REAL,SAVE :: ps(ip1jmp1)
+      LOGICAL :: checksum
+      INTEGER :: stop_it
+c-----------------------------------------------------------------------
+c$OMP BARRIER     
+      if (pole_nord) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO  l = 1,llm
+          DO  ij = 1,iip1
+           ucov(    ij    , l) = 0.
+           uscr(     ij      ) = 0.
+           ENDDO
+        ENDDO
+c$OMP END DO NOWAIT        
+      ENDIF
+
+      if (pole_sud) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO  l = 1,llm
+          DO  ij = 1,iip1
+           ucov( ij +ip1jm, l) = 0.
+           uscr( ij +ip1jm   ) = 0.
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT      
+      ENDIF
+
+c    ............    integration  de       ps         ..............
+
+c      CALL SCOPY(ip1jmp1*llm, masse, 1, massescr, 1)
+
+      ijb=ij_begin
+      ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO  l = 1,llm
+        massescr(ijb:ije,l)=masse(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT 
+
+c$OMP DO SCHEDULE(STATIC)
+      DO 2 ij = ijb,ije
+       pscr (ij)    = ps0(ij)
+       ps (ij)      = psm1(ij) + dt * dp(ij)
+   2  CONTINUE
+c$OMP END DO  
+c$OMP BARRIER
+c --> ici synchro OPENMP pour ps
+       
+      checksum=.TRUE.
+      stop_it=0
+
+c$OMP DO SCHEDULE(STATIC)
+      DO ij = ijb,ije
+         IF( ps(ij).LT.0. ) THEN
+           IF (checksum) stop_it=ij
+           checksum=.FALSE.
+         ENDIF
+       ENDDO
+c$OMP END DO NOWAIT 
+       
+        IF( .NOT. checksum ) THEN
+           write(lunout,*) "integrd: ps = ", ps(stop_it)
+         write(lunout,*) " at node ij =", stop_it
+         ! since ij=j+(i-1)*jjp1 , we have
+         j=modulo(stop_it,jjp1)
+         i=1+(stop_it-j)/jjp1
+         write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
+     &                   " lat = ",rlatu(j)*180./pi, " deg"
+         call abort_gcm("integrd_p", "negative surface pressure", 1)
+        ENDIF
+
+c
+C$OMP MASTER
+      if (pole_nord) THEN
+      
+        DO  ij    = 1, iim
+         tppn(ij) = aire(   ij   ) * ps(  ij    )
+        ENDDO
+         tpn      = SSUM(iim,tppn,1)/apoln
+        DO ij   = 1, iip1
+         ps(   ij   )  = tpn
+        ENDDO
+      
+      ENDIF
+      
+      if (pole_sud) THEN
+      
+        DO  ij    = 1, iim
+         tpps(ij) = aire(ij+ip1jm) * ps(ij+ip1jm)
+        ENDDO
+         tps      = SSUM(iim,tpps,1)/apols
+        DO ij   = 1, iip1
+         ps(ij+ip1jm)  = tps
+        ENDDO
+      
+      ENDIF
+c$OMP END MASTER
+c$OMP BARRIER
+c
+c  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 ...
+c
+
+      CALL pression_p ( ip1jmp1, ap, bp, ps, p )
+c$OMP BARRIER
+      CALL massdair_p (     p  , masse         )
+
+! Ehouarn : we don't use/need finvmaold and finvmasse,
+!           so might as well not compute them
+!c      CALL   SCOPY( ijp1llm  , masse, 1, finvmasse,  1      )
+!      ijb=ij_begin
+!      ije=ij_end
+!      
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+!      DO  l = 1,llm
+!        finvmasse(ijb:ije,l)=masse(ijb:ije,l)
+!      ENDDO
+!c$OMP END DO NOWAIT
+!
+!      jjb=jj_begin
+!      jje=jj_end
+!      CALL filtreg_p( finvmasse,jjb,jje, jjp1, llm, -2, 2, .TRUE., 1  )
+c
+
+c    ............   integration  de  ucov, vcov,  h     ..............
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO 10 l = 1,llm
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4 ij = ijb,ije
+      uscr( ij )   =  ucov( ij,l )
+      ucov( ij,l ) = ucovm1( ij,l ) + dt * du( ij,l )
+   4  CONTINUE
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 5 ij = ijb,ije
+      vscr( ij )   =  vcov( ij,l )
+      vcov( ij,l ) = vcovm1( ij,l ) + dt * dv( ij,l )
+   5  CONTINUE
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      DO 6 ij = ijb,ije
+      hscr( ij )    =  teta(ij,l)
+      teta ( ij,l ) = tetam1(ij,l) *  massem1(ij,l) / masse(ij,l) 
+     $                + dt * dteta(ij,l) / masse(ij,l)
+   6  CONTINUE
+
+c   ....  Calcul de la valeur moyenne, unique  aux poles pour  teta    ......
+c
+c
+      IF (pole_nord) THEN
+       
+        DO  ij   = 1, iim
+          tppn(ij) = aire(   ij   ) * teta(  ij    ,l)
+        ENDDO
+          tpn      = SSUM(iim,tppn,1)/apoln
+
+        DO ij   = 1, iip1
+          teta(   ij   ,l)  = tpn
+        ENDDO
+      
+      ENDIF
+      
+      IF (pole_sud) THEN
+       
+        DO  ij   = 1, iim
+          tpps(ij) = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+        ENDDO
+          tps      = SSUM(iim,tpps,1)/apols
+
+        DO ij   = 1, iip1
+          teta(ij+ip1jm,l)  = tps
+        ENDDO
+      
+      ENDIF
+c
+
+      IF(leapf)  THEN
+c         CALL SCOPY ( ip1jmp1, uscr(1), 1, ucovm1(1, l), 1 )
+c         CALL SCOPY (   ip1jm, vscr(1), 1, vcovm1(1, l), 1 )
+c         CALL SCOPY ( ip1jmp1, hscr(1), 1, tetam1(1, l), 1 )
+        ijb=ij_begin
+        ije=ij_end
+        ucovm1(ijb:ije,l)=uscr(ijb:ije)
+        tetam1(ijb:ije,l)=hscr(ijb:ije)
+        if (pole_sud) ije=ij_end-iip1
+        vcovm1(ijb:ije,l)=vscr(ijb:ije)
+      
+      END IF
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+
+c
+c   .......  integration de   q   ......
+c
+      ijb=ij_begin
+      ije=ij_end
+
+         if (planet_type.eq."earth") then
+! Earth-specific treatment of first 2 tracers (water)
+c$OMP BARRIER
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+          DO l = 1, llm
+           DO ij = ijb, ije
+            deltap(ij,l) =  p(ij,l) - p(ij,l+1) 
+           ENDDO
+          ENDDO
+c$OMP END DO NOWAIT
+c$OMP BARRIER
+
+          CALL qminimum_p( q, nq, deltap )
+c
+c    .....  Calcul de la valeur moyenne, unique  aux poles pour  q .....
+c
+c$OMP BARRIER
+      IF (pole_nord) THEN 
+      
+        DO iq = 1, nq
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l = 1, llm
+  
+             DO ij = 1, iim
+               qppn(ij) = aire(   ij   ) * q(   ij   ,l,iq)
+             ENDDO
+               qpn  =  SSUM(iim,qppn,1)/apoln
+      
+             DO ij = 1, iip1
+               q(   ij   ,l,iq)  = qpn
+             ENDDO    
+  
+          ENDDO
+c$OMP END DO NOWAIT
+
+        ENDDO
+      
+      ENDIF
+
+      IF (pole_sud) THEN 
+      
+        DO iq = 1, nq
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l = 1, llm
+  
+             DO ij = 1, iim
+               qpps(ij) = aire(ij+ip1jm) * q(ij+ip1jm,l,iq)
+             ENDDO
+               qps  =  SSUM(iim,qpps,1)/apols 
+  
+             DO ij = 1, iip1
+               q(ij+ip1jm,l,iq)  = qps
+             ENDDO    
+  
+          ENDDO
+c$OMP END DO NOWAIT
+
+        ENDDO
+      
+      ENDIF
+      
+! Ehouarn: forget about finvmaold
+!c         CALL  SCOPY( ijp1llm , finvmasse, 1, finvmaold, 1 )
+!
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+!      DO l = 1, llm      
+!        finvmaold(ijb:ije,l)=finvmasse(ijb:ije,l)        
+!      ENDDO
+!c$OMP END DO NOWAIT
+
+      endif ! of if (planet_type.eq."earth")
+
+c
+c
+c     .....   FIN  de l'integration  de   q    .......
+
+15    continue
+
+c$OMP DO SCHEDULE(STATIC)
+      DO ij=ijb,ije  
+        ps0(ij)=ps(ij)
+      ENDDO
+c$OMP END DO NOWAIT 
+
+c    .................................................................
+
+
+      IF( leapf )  THEN
+c       CALL SCOPY (    ip1jmp1 ,  pscr   , 1,   psm1  , 1 )
+c       CALL SCOPY ( ip1jmp1*llm, massescr, 1,  massem1, 1 )
+c$OMP DO SCHEDULE(STATIC)
+      DO ij=ijb,ije  
+        psm1(ij)=pscr(ij)
+      ENDDO
+c$OMP END DO NOWAIT 
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l = 1, llm
+            massem1(ijb:ije,l)=massescr(ijb:ije,l)
+          ENDDO
+c$OMP END DO NOWAIT  
+      END IF
+c$OMP BARRIER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_gam_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_gam_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_gam_p.F	(revision 3330)
@@ -0,0 +1,65 @@
+      SUBROUTINE laplacien_gam_p ( klevel, cuvsga, cvusga, unsaigam ,
+     *                        unsapolnga, unsapolsga, teta, divgra )
+
+c  P. Le Van
+c
+c   ************************************************************
+c
+c      ....   calcul de  (div( grad ))   de   teta  .....
+c   ************************************************************
+c    klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    ............     variables  en arguments    ..........
+c
+      INTEGER klevel
+      REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
+      REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),
+     *     unsapolnga, unsapolsga
+c
+c    ...........    variables  locales    .................
+c
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+c    ......................................................
+
+      INTEGER :: ijb,ije
+      INTEGER :: l      
+c
+c
+c   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )
+c   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..
+c   ...  unsairegam =  1. /  aire ** (- gamdissip )
+c
+
+c      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud ) ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,klevel      
+        divgra(ijb:ije,l)=teta(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+      CALL   grad_p ( klevel, divgra, ghx, ghy )
+c
+      CALL  diverg_gam_p ( klevel, cuvsga, cvusga,  unsaigam  ,
+     *                 unsapolnga, unsapolsga, ghx , ghy , divgra )
+
+c
+
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_p.F	(revision 3330)
@@ -0,0 +1,56 @@
+      SUBROUTINE laplacien_p ( klevel, teta, divgra )
+c
+c     P. Le Van
+c
+c   ************************************************************
+c    ....     calcul de  (div( grad ))   de   teta  .....
+c   ************************************************************
+c     klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    .........      variables  en arguments   ..............
+c
+      INTEGER klevel
+      REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
+      INTEGER :: l
+c
+c    ............     variables  locales      ..............
+c
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+c    .......................................................
+
+      
+      INTEGER :: ijb,ije,jjb,jje
+c
+c      CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
+
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud ) ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,klevel      
+        divgra(ijb:ije,l)=teta(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      jjb=jj_begin-1
+      jje=jj_end+1
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud ) jje=jj_end
+      
+      CALL filtreg_p( divgra,jjb,jje,jjp1, klevel,  2, 1, .TRUE., 1 )
+      CALL   grad_p ( klevel,divgra,   ghx , ghy              )
+      CALL  divergf_p ( klevel, ghx , ghy  , divgra           )
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_rot_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_rot_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_rot_p.F	(revision 3330)
@@ -0,0 +1,45 @@
+      SUBROUTINE laplacien_rot_p ( klevel, rotin, rotout,ghx,ghy )
+c
+c    P. Le Van
+c
+c   ************************************************************
+c    ...  calcul de  ( rotat x nxgrad )  du rotationnel rotin  .
+c   ************************************************************
+c
+c     klevel et rotin  sont des arguments  d'entree pour le s-prog
+c      rotout           est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c 
+c   ..........    variables  en  arguments     .............
+c
+      INTEGER klevel
+      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
+c
+c   ..........    variables   locales       ................
+c
+      REAL ghy(ip1jm,klevel), ghx(ip1jmp1,klevel)
+c   ........................................................
+c
+c
+      INTEGER :: ijb,ije,jjb,jje
+      
+      jjb=jj_begin-1
+      jje=jj_end+1
+      
+      if (pole_nord) jjb=jj_begin
+      if (pole_sud) jje=jj_end-1
+      
+      CALL  filtreg_p ( rotin ,jjb,jje,jjm, klevel,2, 1, .FALSE., 1)
+
+      CALL   nxgrad_p ( klevel, rotin,   ghx ,  ghy               )
+      CALL   rotatf_p  ( klevel, ghx  ,   ghy , rotout             )
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_rotgam_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_rotgam_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/laplacien_rotgam_p.F	(revision 3330)
@@ -0,0 +1,48 @@
+      SUBROUTINE laplacien_rotgam_p ( klevel, rotin, rotout )
+c
+c     P. Le Van
+c
+c   ************************************************************
+c   ... calcul de  (rotat x nxgrad)_gam  du rotationnel rotin ..
+c   ************************************************************
+c     klevel et teta  sont des arguments  d'entree pour le s-prog
+c      divgra     est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+c
+c    .............   variables  en  arguments    ...........
+c
+      INTEGER klevel
+      REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel )
+c
+c   ............     variables   locales     ...............
+c
+      INTEGER l, ij
+      REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
+c   ........................................................
+c
+      INTEGER :: ijb,ije
+      
+c
+
+      CALL   nxgrad_gam_p ( klevel, rotin,   ghx ,   ghy  )
+      CALL   rotat_nfil_p ( klevel, ghx  ,   ghy , rotout )
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1, klevel
+        DO ij = ijb, ije
+         rotout(ij,l) = rotout(ij,l) * unsairz_gam(ij)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/leapfrog_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/leapfrog_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/leapfrog_p.F	(revision 3330)
@@ -0,0 +1,1762 @@
+! 
+! $Id$
+!
+c
+c
+
+      SUBROUTINE leapfrog_p(ucov,vcov,teta,ps,masse,phis,q,time_0)
+
+      use exner_hyb_m, only: exner_hyb
+      use exner_milieu_m, only: exner_milieu
+      use exner_hyb_p_m, only: exner_hyb_p
+      use exner_milieu_p_m, only: exner_milieu_p
+       USE misc_mod
+       USE parallel_lmdz
+       USE times
+       USE mod_hallo
+       USE Bands
+       USE Write_Field
+       USE Write_Field_p
+       USE vampir
+       USE timer_filtre, ONLY : print_filtre_timer
+       USE infotrac, ONLY: nqtot
+       USE guide_p_mod, ONLY : guide_main
+       USE getparam
+       USE control_mod, ONLY: nday, day_step, planet_type, offline,
+     &                       iconser, iphysiq, iperiod, dissip_period,
+     &                       iecri, ip_ebil_dyn, ok_dynzon, ok_dyn_ins,
+     &                       periodav, ok_dyn_ave, output_grads_dyn,
+     &                       iapp_tracvl
+       USE comvert_mod, ONLY: ap,bp,pressure_exner,presnivs
+       USE comconst_mod, ONLY: cpp, dtvr, ihf, dtphys, pi, jmp1
+       USE logic_mod, ONLY: iflag_phys,ok_guide,forward,leapf,apphys,
+     &                      statcl,conser,apdiss,purmats,ok_strato
+       USE temps_mod, ONLY: itaufin,jD_ref,jH_ref,day_ini,
+     &                        day_ref,start_time,dt
+
+      IMPLICIT NONE
+
+c      ......   Version  du 10/01/98    ..........
+
+c             avec  coordonnees  verticales hybrides 
+c   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   GCM LMD nouvelle grille
+c
+c=======================================================================
+c
+c  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
+c      et possibilite d'appeler une fonction f(y)  a derivee tangente
+c      hyperbolique a la  place de la fonction a derivee sinusoidale.
+
+c  ... Possibilite de choisir le shema pour l'advection de
+c        q  , en modifiant iadv dans traceur.def  (10/02) .
+c
+c      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
+c      Pour Van-Leer iadv=10 
+c
+c-----------------------------------------------------------------------
+c   Declarations:
+c   -------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissnew.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+!#include "com_io_dyn.h"
+#include "iniprint.h"
+#include "academic.h"
+      
+      REAL,INTENT(IN) :: time_0 ! not used
+
+c   dynamical variables:
+      REAL,INTENT(INOUT) :: ucov(ip1jmp1,llm)    ! zonal covariant wind
+      REAL,INTENT(INOUT) :: vcov(ip1jm,llm)      ! meridional covariant wind
+      REAL,INTENT(INOUT) :: teta(ip1jmp1,llm)    ! potential temperature
+      REAL,INTENT(INOUT) :: ps(ip1jmp1)          ! surface pressure (Pa)
+      REAL,INTENT(INOUT) :: masse(ip1jmp1,llm)   ! air mass
+      REAL,INTENT(INOUT) :: phis(ip1jmp1)        ! geopotentiat at the surface
+      REAL,INTENT(INOUT) :: q(ip1jmp1,llm,nqtot) ! advected tracers
+
+      REAL,SAVE :: p (ip1jmp1,llmp1  )       ! interlayer pressure
+      REAL,SAVE :: pks(ip1jmp1)              ! exner at the surface
+      REAL,SAVE :: pk(ip1jmp1,llm)           ! exner at mid-layer
+      REAL,SAVE :: pkf(ip1jmp1,llm)          ! filtered exner at mid-layer
+      REAL,SAVE :: phi(ip1jmp1,llm)          ! geopotential
+      REAL,SAVE :: w(ip1jmp1,llm)            ! vertical velocity
+
+      real zqmin,zqmax
+
+c variables dynamiques intermediaire pour le transport
+      REAL,SAVE :: pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) !flux de masse
+
+c   variables dynamiques au pas -1
+      REAL,SAVE :: vcovm1(ip1jm,llm),ucovm1(ip1jmp1,llm)
+      REAL,SAVE :: tetam1(ip1jmp1,llm),psm1(ip1jmp1)
+      REAL,SAVE :: massem1(ip1jmp1,llm)
+
+c   tendances dynamiques
+      REAL,SAVE :: dv(ip1jm,llm),du(ip1jmp1,llm)
+      REAL,SAVE :: dteta(ip1jmp1,llm),dp(ip1jmp1)
+      REAL,DIMENSION(:,:,:), ALLOCATABLE, SAVE :: dq
+
+c   tendances de la dissipation
+      REAL,SAVE :: dvdis(ip1jm,llm),dudis(ip1jmp1,llm)
+      REAL,SAVE :: dtetadis(ip1jmp1,llm)
+
+c   tendances physiques
+      REAL,SAVE :: dvfi(ip1jm,llm),dufi(ip1jmp1,llm)
+      REAL,SAVE :: dtetafi(ip1jmp1,llm)
+      REAL,SAVE :: dpfi(ip1jmp1)
+      REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: dqfi
+
+c   variables pour le fichier histoire
+      REAL dtav      ! intervalle de temps elementaire
+
+      REAL tppn(iim),tpps(iim),tpn,tps
+c
+      INTEGER itau,itaufinp1,iav
+!      INTEGER  iday ! jour julien
+      REAL       time 
+
+      REAL  SSUM
+!      REAL,SAVE :: finvmaold(ip1jmp1,llm)
+
+cym      LOGICAL  lafin
+      LOGICAL :: lafin
+      INTEGER ij,iq,l
+      INTEGER ik
+
+      real time_step, t_wrt, t_ops
+
+! jD_cur: jour julien courant
+! jH_cur: heure julienne courante
+      REAL :: jD_cur, jH_cur
+      INTEGER :: an, mois, jour
+      REAL :: secondes
+
+      logical :: physic
+      LOGICAL first,callinigrads
+
+      data callinigrads/.true./
+      character*10 string10
+
+      REAL,SAVE :: flxw(ip1jmp1,llm) ! flux de masse verticale
+
+c+jld variables test conservation energie
+      REAL,SAVE :: ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
+C     Tendance de la temp. potentiel d (theta)/ d t due a la 
+C     tansformation d'energie cinetique en energie thermique
+C     cree par la dissipation
+      REAL,SAVE :: dtetaecdt(ip1jmp1,llm)
+      REAL,SAVE :: vcont(ip1jm,llm),ucont(ip1jmp1,llm)
+      REAL,SAVE :: vnat(ip1jm,llm),unat(ip1jmp1,llm)
+      REAL      d_h_vcol, d_qt, d_qw, d_ql, d_ec
+      CHARACTER*15 ztit
+!      INTEGER   ip_ebil_dyn  ! PRINT level for energy conserv. diag.
+!      SAVE      ip_ebil_dyn
+!      DATA      ip_ebil_dyn/0/
+c-jld 
+
+      character*80 dynhist_file, dynhistave_file
+      character(len=*),parameter :: modname="leapfrog"
+      character*80 abort_message
+
+
+      logical,PARAMETER :: dissip_conservative=.TRUE.
+ 
+      INTEGER testita
+      PARAMETER (testita = 9)
+
+      logical , parameter :: flag_verif = .false.
+      
+c declaration liees au parallelisme
+      INTEGER :: ierr
+      LOGICAL :: FirstCaldyn
+      LOGICAL :: FirstPhysic
+      INTEGER :: ijb,ije,j,i
+      type(Request) :: TestRequest
+      type(Request) :: Request_Dissip
+      type(Request) :: Request_physic
+      REAL,SAVE :: dvfi_tmp(iip1,llm),dufi_tmp(iip1,llm)
+      REAL,SAVE :: dtetafi_tmp(iip1,llm)
+      REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: dqfi_tmp
+      REAL,SAVE :: dpfi_tmp(iip1)
+
+      INTEGER :: true_itau
+      INTEGER :: iapptrac
+      INTEGER :: AdjustCount
+!      INTEGER :: var_time
+      LOGICAL :: ok_start_timer=.FALSE.
+      LOGICAL, SAVE :: firstcall=.TRUE.
+
+c$OMP MASTER
+      ItCount=0
+c$OMP END MASTER      
+      true_itau=0
+      FirstCaldyn=.TRUE.
+      FirstPhysic=.TRUE.
+      iapptrac=0
+      AdjustCount = 0
+      lafin=.false.
+      
+      if (nday>=0) then
+         itaufin   = nday*day_step
+      else
+         itaufin   = -nday
+      endif
+
+      itaufinp1 = itaufin +1
+
+      itau = 0
+      physic=.true.
+      if (iflag_phys==0.or.iflag_phys==2) physic=.false.
+!      iday = day_ini+itau/day_step
+!      time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+!         IF(time.GT.1.) THEN
+!          time = time-1.
+!          iday = iday+1
+!         ENDIF
+
+c Allocate variables depending on dynamic variable nqtot
+c$OMP MASTER
+         IF (firstcall) THEN
+            firstcall=.FALSE.
+            ALLOCATE(dq(ip1jmp1,llm,nqtot))
+            ALLOCATE(dqfi(ip1jmp1,llm,nqtot))
+            ALLOCATE(dqfi_tmp(iip1,llm,nqtot))
+         END IF
+c$OMP END MASTER      
+c$OMP BARRIER
+
+c-----------------------------------------------------------------------
+c   On initialise la pression et la fonction d'Exner :
+c   --------------------------------------------------
+
+c$OMP MASTER
+      dq(:,:,:)=0.
+      CALL pression ( ip1jmp1, ap, bp, ps, p       )
+      if (pressure_exner) then
+        CALL exner_hyb( ip1jmp1, ps, p, pks, pk, pkf )
+      else
+        CALL exner_milieu( ip1jmp1, ps, p, pks, pk, pkf )
+      endif
+c$OMP END MASTER
+c-----------------------------------------------------------------------
+c   Debut de l'integration temporelle:
+c   ----------------------------------
+c et du parallelisme !!
+
+   1  CONTINUE ! Matsuno Forward step begins here
+
+c   date: (NB: date remains unchanged for Backward step)
+c   -----
+
+      jD_cur = jD_ref + day_ini - day_ref +                             &
+     &          (itau+1)/day_step
+      jH_cur = jH_ref + start_time +                                    &
+     &         mod(itau+1,day_step)/float(day_step) 
+      if (jH_cur > 1.0 ) then
+        jD_cur = jD_cur +1.
+        jH_cur = jH_cur -1.
+      endif
+
+
+#ifdef CPP_IOIPSL
+      if (ok_guide) then
+!$OMP MASTER
+        call guide_main(itau,ucov,vcov,teta,q,masse,ps)
+!$OMP END MASTER
+!$OMP BARRIER
+      endif
+#endif
+
+c
+c     IF( MOD( itau, 10* day_step ).EQ.0 )  THEN
+c       CALL  test_period ( ucov,vcov,teta,q,p,phis )
+c       PRINT *,' ----   Test_period apres continue   OK ! -----', itau
+c     ENDIF 
+c
+cym      CALL SCOPY( ijmllm ,vcov , 1, vcovm1 , 1 )
+cym      CALL SCOPY( ijp1llm,ucov , 1, ucovm1 , 1 )
+cym      CALL SCOPY( ijp1llm,teta , 1, tetam1 , 1 )
+cym      CALL SCOPY( ijp1llm,masse, 1, massem1, 1 )
+cym      CALL SCOPY( ip1jmp1, ps  , 1,   psm1 , 1 )
+
+       if (FirstCaldyn) then
+c$OMP MASTER
+         ucovm1=ucov
+         vcovm1=vcov
+         tetam1= teta
+         massem1= masse
+         psm1= ps
+
+! Ehouarn: finvmaold is actually not used       
+!         finvmaold = masse
+!         CALL filtreg ( finvmaold ,jjp1, llm, -2,2, .TRUE., 1 )
+c$OMP END MASTER
+c$OMP BARRIER
+       else
+! Save fields obtained at previous time step as '...m1'
+         ijb=ij_begin
+         ije=ij_end
+
+c$OMP MASTER           
+         psm1     (ijb:ije) = ps    (ijb:ije)
+c$OMP END MASTER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)         
+         DO l=1,llm      
+           ije=ij_end
+           ucovm1   (ijb:ije,l) = ucov  (ijb:ije,l)
+           tetam1   (ijb:ije,l) = teta  (ijb:ije,l)
+           massem1  (ijb:ije,l) = masse (ijb:ije,l)
+!           finvmaold(ijb:ije,l)=masse(ijb:ije,l)
+                 
+           if (pole_sud) ije=ij_end-iip1
+           vcovm1(ijb:ije,l) = vcov  (ijb:ije,l)
+       
+
+         ENDDO
+c$OMP ENDDO  
+
+! Ehouarn: finvmaold not used
+!          CALL filtreg_p ( finvmaold ,jj_begin,jj_end,jjp1, 
+!     .                    llm, -2,2, .TRUE., 1 )
+
+       endif ! of if (FirstCaldyn)
+       
+      forward = .TRUE.
+      leapf   = .FALSE.
+      dt      =  dtvr
+
+c   ...    P.Le Van .26/04/94  ....
+
+cym      CALL SCOPY   ( ijp1llm,   masse, 1, finvmaold,     1 )
+cym      CALL filtreg ( finvmaold ,jjp1, llm, -2,2, .TRUE., 1 )
+
+cym  ne sert a rien
+cym      call minmax(ijp1llm,q(:,:,3),zqmin,zqmax)
+
+   2  CONTINUE ! Matsuno backward or leapfrog step begins here
+
+c$OMP MASTER
+      ItCount=ItCount+1
+      if (MOD(ItCount,1)==1) then
+        debug=.true.
+      else
+        debug=.false.
+      endif
+c$OMP END MASTER
+c-----------------------------------------------------------------------
+
+c   date: (NB: only leapfrog step requires recomputing date)
+c   -----
+
+      IF (leapf) THEN
+        jD_cur = jD_ref + day_ini - day_ref +
+     &            (itau+1)/day_step
+        jH_cur = jH_ref + start_time +
+     &           mod(itau+1,day_step)/float(day_step) 
+        if (jH_cur > 1.0 ) then
+          jD_cur = jD_cur +1.
+          jH_cur = jH_cur -1.
+        endif
+      ENDIF
+
+c   gestion des appels de la physique et des dissipations:
+c   ------------------------------------------------------
+c
+c   ...    P.Le Van  ( 6/02/95 )  ....
+
+      apphys = .FALSE.
+      statcl = .FALSE.
+      conser = .FALSE.
+      apdiss = .FALSE.
+
+      IF( purmats ) THEN
+      ! Purely Matsuno time stepping
+         IF( MOD(itau,iconser) .EQ.0.AND.  forward    ) conser = .TRUE.
+         IF( MOD(itau,dissip_period ).EQ.0.AND..NOT.forward ) 
+     s        apdiss = .TRUE.
+         IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward 
+     s          .and. physic                        ) apphys = .TRUE.
+      ELSE
+      ! Leapfrog/Matsuno time stepping 
+         IF( MOD(itau   ,iconser) .EQ. 0              ) conser = .TRUE.
+         IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward )
+     s        apdiss = .TRUE.
+         IF( MOD(itau+1,iphysiq).EQ.0.AND.physic) apphys=.TRUE.
+      END IF
+
+! Ehouarn: for Shallow Water case (ie: 1 vertical layer),
+!          supress dissipation step
+      if (llm.eq.1) then
+        apdiss=.false.
+      endif
+
+cym    ---> Pour le moment      
+cym      apphys = .FALSE.
+      statcl = .FALSE.
+      conser = .FALSE. ! ie: no output of control variables to stdout in //
+      
+      if (firstCaldyn) then
+c$OMP MASTER
+          call SetDistrib(jj_Nb_Caldyn)
+c$OMP END MASTER
+c$OMP BARRIER
+          firstCaldyn=.FALSE.
+cym          call InitTime
+c$OMP MASTER
+          call Init_timer
+c$OMP END MASTER
+      endif
+
+c$OMP MASTER      
+      IF (ok_start_timer) THEN
+        CALL InitTime
+        ok_start_timer=.FALSE.
+      ENDIF      
+c$OMP END MASTER      
+     
+      if (Adjust) then
+c$OMP MASTER 
+        AdjustCount=AdjustCount+1
+        if (iapptrac==iapp_tracvl .and. (forward. OR . leapf)
+     &         .and. itau/iphysiq>2 .and. Adjustcount>30) then
+           AdjustCount=0
+           call allgather_timer_average
+
+        if (prt_level > 9) then
+        
+        print *,'*********************************'
+        print *,'******    TIMER CALDYN     ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_caldyn(i),timer_caldyn,i),
+     &            '+-',timer_delta(jj_nb_caldyn(i),timer_caldyn,i)
+        enddo
+      
+        print *,'*********************************'
+        print *,'******    TIMER VANLEER    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_vanleer(i),timer_vanleer,i),
+     &            '+-',timer_delta(jj_nb_vanleer(i),timer_vanleer,i)
+        enddo
+      
+        print *,'*********************************'
+        print *,'******    TIMER DISSIP    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_dissip(i),timer_dissip,i),
+     &             '+-',timer_delta(jj_nb_dissip(i),timer_dissip,i)
+        enddo
+        
+        if (mpi_rank==0) call WriteBands
+        
+       endif
+       
+         call AdjustBands_caldyn
+         if (mpi_rank==0) call WriteBands
+         
+         call Register_SwapFieldHallo(ucov,ucov,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(ucovm1,ucovm1,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(vcov,vcov,ip1jm,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(vcovm1,vcovm1,ip1jm,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(teta,teta,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(tetam1,tetam1,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(masse,masse,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(massem1,massem1,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(ps,ps,ip1jmp1,1,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(psm1,psm1,ip1jmp1,1,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(pkf,pkf,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(pk,pk,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(pks,pks,ip1jmp1,1,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(phis,phis,ip1jmp1,1,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+         call Register_SwapFieldHallo(phi,phi,ip1jmp1,llm,
+     &                                jj_Nb_caldyn,0,0,TestRequest)
+!         call Register_SwapFieldHallo(finvmaold,finvmaold,ip1jmp1,llm,
+!     &                                jj_Nb_caldyn,0,0,TestRequest)
+ 
+        do j=1,nqtot
+         call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm,
+     &                                jj_nb_caldyn,0,0,TestRequest)
+        enddo
+
+         call SetDistrib(jj_nb_caldyn)
+         call SendRequest(TestRequest)
+         call WaitRequest(TestRequest)
+         
+        call AdjustBands_dissip
+        call AdjustBands_physic
+
+      endif
+c$OMP END MASTER  
+      endif       
+     
+      
+      
+c-----------------------------------------------------------------------
+c   calcul des tendances dynamiques:
+c   --------------------------------
+c$OMP BARRIER
+c$OMP MASTER
+       call VTb(VThallo)
+c$OMP END MASTER
+
+       call Register_Hallo(ucov,ip1jmp1,llm,1,1,1,1,TestRequest)
+       call Register_Hallo(vcov,ip1jm,llm,1,1,1,1,TestRequest)
+       call Register_Hallo(teta,ip1jmp1,llm,1,1,1,1,TestRequest)
+       call Register_Hallo(ps,ip1jmp1,1,1,2,2,1,TestRequest)
+       call Register_Hallo(pkf,ip1jmp1,llm,1,1,1,1,TestRequest)
+       call Register_Hallo(pk,ip1jmp1,llm,1,1,1,1,TestRequest)
+       call Register_Hallo(pks,ip1jmp1,1,1,1,1,1,TestRequest)
+       call Register_Hallo(p,ip1jmp1,llmp1,1,1,1,1,TestRequest)
+       
+c       do j=1,nqtot
+c         call Register_Hallo(q(1,1,j),ip1jmp1,llm,1,1,1,1,
+c     *                       TestRequest)
+c        enddo
+
+       call SendRequest(TestRequest)
+c$OMP BARRIER
+       call WaitRequest(TestRequest)
+
+c$OMP MASTER
+       call VTe(VThallo)
+c$OMP END MASTER
+c$OMP BARRIER
+      
+      if (debug) then        
+!$OMP BARRIER
+!$OMP MASTER
+        call WriteField_p('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+        call WriteField_p('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+        call WriteField_p('teta',reshape(teta,(/iip1,jmp1,llm/)))
+        call WriteField_p('ps',reshape(ps,(/iip1,jmp1/)))
+        call WriteField_p('masse',reshape(masse,(/iip1,jmp1,llm/)))
+        call WriteField_p('pk',reshape(pk,(/iip1,jmp1,llm/)))
+        call WriteField_p('pks',reshape(pks,(/iip1,jmp1/)))
+        call WriteField_p('pkf',reshape(pkf,(/iip1,jmp1,llm/)))
+        call WriteField_p('phis',reshape(phis,(/iip1,jmp1/)))
+        do j=1,nqtot
+          call WriteField_p('q'//trim(int2str(j)),
+     .                reshape(q(:,:,j),(/iip1,jmp1,llm/)))
+        enddo
+!$OMP END MASTER        
+c$OMP BARRIER
+      endif
+
+      
+      True_itau=True_itau+1
+
+c$OMP MASTER
+      IF (prt_level>9) THEN
+        WRITE(lunout,*)"leapfrog_p: Iteration No",True_itau
+      ENDIF
+
+
+      call start_timer(timer_caldyn)
+
+      ! compute geopotential phi()
+      CALL geopot_p  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
+      
+      call VTb(VTcaldyn)
+c$OMP END MASTER
+!      var_time=time+iday-day_ini
+
+c$OMP BARRIER
+!      CALL FTRACE_REGION_BEGIN("caldyn")
+      time = jD_cur + jH_cur 
+      CALL caldyn_p 
+     $  ( itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
+     $    phi,conser,du,dv,dteta,dp,w, pbaru,pbarv, time )
+
+!      CALL FTRACE_REGION_END("caldyn")
+
+c$OMP MASTER
+      call VTe(VTcaldyn)
+c$OMP END MASTER      
+
+cc$OMP BARRIER
+cc$OMP MASTER
+!      call WriteField_p('du',reshape(du,(/iip1,jmp1,llm/)))
+!      call WriteField_p('dv',reshape(dv,(/iip1,jjm,llm/)))
+!      call WriteField_p('dteta',reshape(dteta,(/iip1,jmp1,llm/)))
+!      call WriteField_p('dp',reshape(dp,(/iip1,jmp1/)))
+!      call WriteField_p('w',reshape(w,(/iip1,jmp1,llm/)))
+!      call WriteField_p('pbaru',reshape(pbaru,(/iip1,jmp1,llm/)))
+!      call WriteField_p('pbarv',reshape(pbarv,(/iip1,jjm,llm/)))
+!      call WriteField_p('p',reshape(p,(/iip1,jmp1,llmp1/)))
+!      call WriteField_p('masse',reshape(masse,(/iip1,jmp1,llm/)))
+!      call WriteField_p('pk',reshape(pk,(/iip1,jmp1,llm/)))
+cc$OMP END MASTER
+
+c-----------------------------------------------------------------------
+c   calcul des tendances advection des traceurs (dont l'humidite)
+c   -------------------------------------------------------------
+
+      IF( forward. OR . leapf )  THEN
+! Ehouarn: NB: fields sent to advtrac are those at the beginning of the time step
+         CALL caladvtrac_p(q,pbaru,pbarv,
+     *        p, masse, dq,  teta,
+     .        flxw,pk, iapptrac)
+
+C        Stokage du flux de masse pour traceurs OFF-LINE
+         IF (offline .AND. .NOT. adjust) THEN
+            CALL fluxstokenc_p(pbaru,pbarv,masse,teta,phi,phis,
+     .           dtvr, itau)
+         ENDIF
+
+      ENDIF ! of IF( forward. OR . leapf )
+
+c-----------------------------------------------------------------------
+c   integrations dynamique et traceurs:
+c   ----------------------------------
+
+c$OMP MASTER 
+       call VTb(VTintegre)
+c$OMP END MASTER
+c      call WriteField_p('ucovm1',reshape(ucovm1,(/iip1,jmp1,llm/)))
+c      call WriteField_p('vcovm1',reshape(vcovm1,(/iip1,jjm,llm/)))
+c      call WriteField_p('tetam1',reshape(tetam1,(/iip1,jmp1,llm/)))
+c      call WriteField_p('psm1',reshape(psm1,(/iip1,jmp1/)))
+c      call WriteField_p('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+c      call WriteField_p('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+c      call WriteField_p('teta',reshape(teta,(/iip1,jmp1,llm/)))
+c      call WriteField_p('ps',reshape(ps,(/iip1,jmp1/)))
+cc$OMP PARALLEL DEFAULT(SHARED)
+c$OMP BARRIER
+!       CALL FTRACE_REGION_BEGIN("integrd")
+
+       CALL integrd_p ( 2,vcovm1,ucovm1,tetam1,psm1,massem1 ,
+     $         dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis )
+!     $              finvmaold                                    )
+
+!       CALL FTRACE_REGION_END("integrd")
+c$OMP BARRIER
+cc$OMP MASTER
+c      call WriteField_p('ucovm1',reshape(ucovm1,(/iip1,jmp1,llm/)))
+c      call WriteField_p('vcovm1',reshape(vcovm1,(/iip1,jjm,llm/)))
+c      call WriteField_p('tetam1',reshape(tetam1,(/iip1,jmp1,llm/)))
+c      call WriteField_p('psm1',reshape(psm1,(/iip1,jmp1/)))
+c      call WriteField_p('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+c      call WriteField_p('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+c      call WriteField_p('teta',reshape(teta,(/iip1,jmp1,llm/)))
+c      call WriteField_p('dteta',reshape(dteta,(/iip1,jmp1,llm/)))
+c
+c      call WriteField_p('ps',reshape(ps,(/iip1,jmp1/)))
+c      do j=1,nqtot
+c        call WriteField_p('q'//trim(int2str(j)),
+c     .                reshape(q(:,:,j),(/iip1,jmp1,llm/)))
+c        call WriteField_p('dq'//trim(int2str(j)),
+c     .                reshape(dq(:,:,j),(/iip1,jmp1,llm/)))
+c      enddo
+cc$OMP END MASTER
+
+
+c$OMP MASTER 
+       call VTe(VTintegre)
+c$OMP END MASTER
+c .P.Le Van (26/04/94  ajout de  finvpold dans l'appel d'integrd)
+c
+c-----------------------------------------------------------------------
+c   calcul des tendances physiques:
+c   -------------------------------
+c    ########   P.Le Van ( Modif le  6/02/95 )   ###########
+c
+       IF( purmats )  THEN
+          IF( itau.EQ.itaufin.AND..NOT.forward ) lafin = .TRUE.
+       ELSE
+          IF( itau+1. EQ. itaufin )              lafin = .TRUE.
+       ENDIF
+
+cc$OMP END PARALLEL
+
+c
+c
+       IF( apphys )  THEN
+c
+c     .......   Ajout   P.Le Van ( 17/04/96 )   ...........
+c
+cc$OMP PARALLEL DEFAULT(SHARED)
+cc$OMP+         PRIVATE(rdaym_ini,rdayvrai,ijb,ije)
+
+c$OMP MASTER
+         call suspend_timer(timer_caldyn)
+
+        if (prt_level >= 10) then
+         write(lunout,*)
+     &   'leapfrog_p: Entree dans la physique : Iteration No ',true_itau
+        endif
+c$OMP END MASTER
+
+         CALL pression_p (  ip1jmp1, ap, bp, ps,  p      )
+
+c$OMP BARRIER
+         if (pressure_exner) then
+           CALL exner_hyb_p(  ip1jmp1, ps, p,pks, pk, pkf )
+         else
+           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_p  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
+
+           jD_cur = jD_ref + day_ini - day_ref
+     $        + (itau+1)/day_step
+
+           IF (planet_type .eq."generic") THEN
+              ! AS: we make jD_cur to be pday
+              jD_cur = int(day_ini + itau/day_step)
+           ENDIF
+
+           jH_cur = jH_ref + start_time +                                &
+     &              mod(itau+1,day_step)/float(day_step) 
+!         call ju2ymds(jD_cur+jH_cur, an, mois, jour, secondes)
+           if (jH_cur > 1.0 ) then
+             jD_cur = jD_cur +1.
+             jH_cur = jH_cur -1.
+           endif
+
+c rajout debug
+c       lafin = .true.
+
+
+c   Inbterface avec les routines de phylmd (phymars ... )
+c   -----------------------------------------------------
+
+c+jld
+
+c  Diagnostique de conservation de l'energie : initialisation
+      IF (ip_ebil_dyn.ge.1 ) THEN 
+          ztit='bil dyn'
+! Ehouarn: be careful, diagedyn is Earth-specific!
+           IF (planet_type.eq."earth") THEN
+            CALL diagedyn(ztit,2,1,1,dtphys
+     &    , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+           ENDIF
+      ENDIF 
+c-jld
+c$OMP BARRIER
+c$OMP MASTER
+        call VTb(VThallo)
+c$OMP END MASTER
+
+        call SetTag(Request_physic,800)
+        
+        call Register_SwapFieldHallo(ucov,ucov,ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(vcov,vcov,ip1jm,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(teta,teta,ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(masse,masse,ip1jmp1,llm,
+     *                               jj_Nb_physic,1,2,Request_physic)
+
+        call Register_SwapFieldHallo(ps,ps,ip1jmp1,1,
+     *                               jj_Nb_physic,2,2,Request_physic)
+
+        call Register_SwapFieldHallo(p,p,ip1jmp1,llmp1,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(pk,pk,ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(phis,phis,ip1jmp1,1,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(phi,phi,ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call Register_SwapFieldHallo(w,w,ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+c        call SetDistrib(jj_nb_vanleer)
+        do j=1,nqtot
+ 
+          call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        enddo
+
+        call Register_SwapFieldHallo(flxw,flxw,ip1jmp1,llm,
+     *                               jj_Nb_physic,2,2,Request_physic)
+        
+        call SendRequest(Request_Physic)
+c$OMP BARRIER
+        call WaitRequest(Request_Physic)       
+
+c$OMP BARRIER
+c$OMP MASTER
+        call SetDistrib(jj_nb_Physic)
+        call VTe(VThallo)
+        
+        call VTb(VTphysiq)
+c$OMP END MASTER
+c$OMP BARRIER
+
+cc$OMP MASTER        
+c      call WriteField_p('ucovfi',reshape(ucov,(/iip1,jmp1,llm/)))
+c      call WriteField_p('vcovfi',reshape(vcov,(/iip1,jjm,llm/)))
+c      call WriteField_p('tetafi',reshape(teta,(/iip1,jmp1,llm/)))
+c      call WriteField_p('pfi',reshape(p,(/iip1,jmp1,llmp1/)))
+c      call WriteField_p('pkfi',reshape(pk,(/iip1,jmp1,llm/)))
+cc$OMP END MASTER
+cc$OMP BARRIER
+!        CALL FTRACE_REGION_BEGIN("calfis")
+#ifdef CPP_PHYS
+        CALL calfis_p(lafin ,jD_cur, jH_cur,
+     $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
+     $               du,dv,dteta,dq,
+     $               flxw, dufi,dvfi,dtetafi,dqfi,dpfi  )
+#endif
+!        CALL FTRACE_REGION_END("calfis")
+        ijb=ij_begin
+        ije=ij_end  
+        if ( .not. pole_nord) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+          dufi_tmp(1:iip1,l)   = dufi(ijb:ijb+iim,l) 
+          dvfi_tmp(1:iip1,l)   = dvfi(ijb:ijb+iim,l)  
+          dtetafi_tmp(1:iip1,l)= dtetafi(ijb:ijb+iim,l)  
+          dqfi_tmp(1:iip1,l,:) = dqfi(ijb:ijb+iim,l,:)  
+          ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+          dpfi_tmp(1:iip1)     = dpfi(ijb:ijb+iim)  
+c$OMP END MASTER
+        endif ! of if ( .not. pole_nord)
+
+c$OMP BARRIER
+c$OMP MASTER
+        call SetDistrib(jj_nb_Physic_bis)
+
+        call VTb(VThallo)
+c$OMP END MASTER
+c$OMP BARRIER
+ 
+        call Register_Hallo(dufi,ip1jmp1,llm,
+     *                      1,0,0,1,Request_physic)
+        
+        call Register_Hallo(dvfi,ip1jm,llm,
+     *                      1,0,0,1,Request_physic)
+        
+        call Register_Hallo(dtetafi,ip1jmp1,llm,
+     *                      1,0,0,1,Request_physic)
+
+        call Register_Hallo(dpfi,ip1jmp1,1,
+     *                      1,0,0,1,Request_physic)
+
+        do j=1,nqtot
+          call Register_Hallo(dqfi(1,1,j),ip1jmp1,llm,
+     *                        1,0,0,1,Request_physic)
+        enddo
+        
+        call SendRequest(Request_Physic)
+c$OMP BARRIER
+        call WaitRequest(Request_Physic)
+             
+c$OMP BARRIER
+c$OMP MASTER
+        call VTe(VThallo)
+ 
+        call SetDistrib(jj_nb_Physic)
+c$OMP END MASTER
+c$OMP BARRIER        
+                ijb=ij_begin
+        if (.not. pole_nord) then
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l=1,llm
+            dufi(ijb:ijb+iim,l) = dufi(ijb:ijb+iim,l)+dufi_tmp(1:iip1,l)
+            dvfi(ijb:ijb+iim,l) = dvfi(ijb:ijb+iim,l)+dvfi_tmp(1:iip1,l) 
+            dtetafi(ijb:ijb+iim,l) = dtetafi(ijb:ijb+iim,l)
+     &                              +dtetafi_tmp(1:iip1,l)
+            dqfi(ijb:ijb+iim,l,:) = dqfi(ijb:ijb+iim,l,:)
+     &                              + dqfi_tmp(1:iip1,l,:)
+          ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+          dpfi(ijb:ijb+iim)   = dpfi(ijb:ijb+iim)+ dpfi_tmp(1:iip1)
+c$OMP END MASTER
+          
+        endif ! of if (.not. pole_nord)
+c$OMP BARRIER
+cc$OMP MASTER        
+c      call WriteField_p('dufi',reshape(dufi,(/iip1,jmp1,llm/)))
+c      call WriteField_p('dvfi',reshape(dvfi,(/iip1,jjm,llm/)))
+c      call WriteField_p('dtetafi',reshape(dtetafi,(/iip1,jmp1,llm/)))
+c      call WriteField_p('dpfi',reshape(dpfi,(/iip1,jmp1/)))
+cc$OMP END MASTER
+c      
+c      do j=1,nqtot
+c        call WriteField_p('dqfi'//trim(int2str(j)),
+c     .                reshape(dqfi(:,:,j),(/iip1,jmp1,llm/)))
+c      enddo
+
+c      ajout des tendances physiques:
+c      ------------------------------
+          CALL addfi_p( dtphys, leapf, forward   ,
+     $                  ucov, vcov, teta , q   ,ps ,
+     $                 dufi, dvfi, dtetafi , dqfi ,dpfi  )
+          ! since addfi updates ps(), also update p(), masse() and pk()
+          CALL pression_p(ip1jmp1,ap,bp,ps,p)
+c$OMP BARRIER
+          CALL massdair_p(p,masse)
+c$OMP BARRIER
+          if (pressure_exner) then
+            CALL exner_hyb_p(ip1jmp1,ps,p,pks,pk,pkf)
+          else
+            CALL exner_milieu_p(ip1jmp1,ps,p,pks,pk,pkf)
+          endif
+c$OMP BARRIER
+         
+         IF (ok_strato) THEN
+           CALL top_bound_p(vcov,ucov,teta,masse,dtphys)
+         ENDIF
+       
+c$OMP BARRIER
+c$OMP MASTER
+        call VTe(VTphysiq)
+
+        call VTb(VThallo)
+c$OMP END MASTER
+
+        call SetTag(Request_physic,800)
+        call Register_SwapField(ucov,ucov,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(vcov,vcov,ip1jm,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(teta,teta,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(masse,masse,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+
+        call Register_SwapField(ps,ps,ip1jmp1,1,
+     *                               jj_Nb_caldyn,Request_physic)
+
+        call Register_SwapField(p,p,ip1jmp1,llmp1,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(pk,pk,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(phis,phis,ip1jmp1,1,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(phi,phi,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        call Register_SwapField(w,w,ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+
+        do j=1,nqtot
+        
+          call Register_SwapField(q(1,1,j),q(1,1,j),ip1jmp1,llm,
+     *                               jj_Nb_caldyn,Request_physic)
+        
+        enddo
+
+        call SendRequest(Request_Physic)
+c$OMP BARRIER
+        call WaitRequest(Request_Physic)     
+
+c$OMP BARRIER
+c$OMP MASTER
+       call VTe(VThallo)
+       call SetDistrib(jj_Nb_caldyn)
+c$OMP END MASTER
+c$OMP BARRIER
+c
+c  Diagnostique de conservation de l'energie : difference
+      IF (ip_ebil_dyn.ge.1 ) THEN 
+          ztit='bil phys'
+          CALL diagedyn(ztit,2,1,1,dtphys
+     e  , ucov    , vcov , ps, p ,pk , teta , q(:,:,1), q(:,:,2))
+      ENDIF 
+
+cc$OMP MASTER      
+c      if (debug) then
+c       call WriteField_p('ucovfi',reshape(ucov,(/iip1,jmp1,llm/)))
+c       call WriteField_p('vcovfi',reshape(vcov,(/iip1,jjm,llm/)))
+c       call WriteField_p('tetafi',reshape(teta,(/iip1,jmp1,llm/)))
+c      endif
+cc$OMP END MASTER
+
+
+c-jld
+c$OMP MASTER
+         call resume_timer(timer_caldyn)
+         if (FirstPhysic) then
+           ok_start_timer=.TRUE.
+           FirstPhysic=.false.
+         endif
+c$OMP END MASTER
+       ENDIF ! of IF( apphys )
+
+      IF(iflag_phys.EQ.2) THEN ! "Newtonian" case
+!   Academic case : Simple friction and Newtonan relaxation 
+!   -------------------------------------------------------
+c$OMP MASTER
+         if (FirstPhysic) then
+           ok_start_timer=.TRUE.
+           FirstPhysic=.false.
+         endif
+c$OMP END MASTER
+
+       ijb=ij_begin
+       ije=ij_end
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+       do l=1,llm
+        teta(ijb:ije,l)=teta(ijb:ije,l)-dtvr*
+     &         (teta(ijb:ije,l)-tetarappel(ijb:ije,l))*
+     &                  (knewt_g+knewt_t(l)*clat4(ijb:ije))
+       enddo ! of do l=1,llm
+!$OMP END DO
+
+!$OMP MASTER
+       if (planet_type.eq."giant") then
+         ! add an intrinsic heat flux at the base of the atmosphere
+         teta(ijb:ije,1) = teta(ijb:ije,1)
+     &        + dtvr * aire(ijb:ije) * ihf / cpp / masse(ijb:ije,1)
+       endif
+!$OMP END MASTER
+!$OMP BARRIER
+
+       call Register_Hallo(ucov,ip1jmp1,llm,0,1,1,0,Request_Physic)
+       call Register_Hallo(vcov,ip1jm,llm,1,1,1,1,Request_Physic)
+       call SendRequest(Request_Physic)
+c$OMP BARRIER
+       call WaitRequest(Request_Physic)     
+c$OMP BARRIER
+       call friction_p(ucov,vcov,dtvr)
+!$OMP BARRIER
+
+        ! Sponge layer (if any)
+        IF (ok_strato) THEN
+          CALL top_bound_p(vcov,ucov,teta,masse,dtvr)
+!$OMP BARRIER
+        ENDIF ! of IF (ok_strato) 
+      ENDIF ! of IF(iflag_phys.EQ.2)
+
+
+        CALL pression_p ( ip1jmp1, ap, bp, ps, p                  )
+c$OMP BARRIER
+        if (pressure_exner) then
+          CALL exner_hyb_p( ip1jmp1, ps, p, pks, pk, pkf )
+        else
+          CALL exner_milieu_p( ip1jmp1, ps, p, pks, pk, pkf )
+        endif
+c$OMP BARRIER
+        CALL massdair_p(p,masse)
+c$OMP BARRIER
+
+cc$OMP END PARALLEL
+
+c-----------------------------------------------------------------------
+c   dissipation horizontale et verticale  des petites echelles:
+c   ----------------------------------------------------------
+
+      IF(apdiss) THEN
+cc$OMP  PARALLEL DEFAULT(SHARED) 
+cc$OMP+          PRIVATE(ijb,ije,tppn,tpn,tpps,tps)
+c$OMP MASTER
+        call suspend_timer(timer_caldyn)
+        
+c       print*,'Entree dans la dissipation : Iteration No ',true_itau
+c   calcul de l'energie cinetique avant dissipation
+c       print *,'Passage dans la dissipation'
+
+        call VTb(VThallo)
+c$OMP END MASTER
+
+c$OMP BARRIER
+
+        call Register_SwapFieldHallo(ucov,ucov,ip1jmp1,llm,
+     *                          jj_Nb_dissip,1,1,Request_dissip)
+
+        call Register_SwapFieldHallo(vcov,vcov,ip1jm,llm,
+     *                          jj_Nb_dissip,1,1,Request_dissip)
+
+        call Register_SwapField(teta,teta,ip1jmp1,llm,
+     *                          jj_Nb_dissip,Request_dissip)
+
+        call Register_SwapField(p,p,ip1jmp1,llmp1,
+     *                          jj_Nb_dissip,Request_dissip)
+
+        call Register_SwapField(pk,pk,ip1jmp1,llm,
+     *                          jj_Nb_dissip,Request_dissip)
+
+        call SendRequest(Request_dissip)       
+c$OMP BARRIER
+        call WaitRequest(Request_dissip)       
+
+c$OMP BARRIER
+c$OMP MASTER
+        call SetDistrib(jj_Nb_dissip)
+        call VTe(VThallo)
+        call VTb(VTdissipation)
+        call start_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER
+
+        call covcont_p(llm,ucov,vcov,ucont,vcont)
+        call enercin_p(vcov,ucov,vcont,ucont,ecin0)
+
+c   dissipation
+
+!        CALL FTRACE_REGION_BEGIN("dissip")
+        CALL dissip_p(vcov,ucov,teta,p,dvdis,dudis,dtetadis)
+!        CALL FTRACE_REGION_END("dissip")
+         
+        ijb=ij_begin
+        ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+        DO l=1,llm
+          ucov(ijb:ije,l)=ucov(ijb:ije,l)+dudis(ijb:ije,l)
+        ENDDO
+c$OMP END DO NOWAIT        
+        if (pole_sud) ije=ije-iip1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)        
+        DO l=1,llm
+          vcov(ijb:ije,l)=vcov(ijb:ije,l)+dvdis(ijb:ije,l)
+        ENDDO
+c$OMP END DO NOWAIT        
+
+c       teta=teta+dtetadis
+
+
+c------------------------------------------------------------------------
+        if (dissip_conservative) then
+C       On rajoute la tendance due a la transform. Ec -> E therm. cree
+C       lors de la dissipation
+c$OMP BARRIER
+c$OMP MASTER
+            call suspend_timer(timer_dissip)
+            call VTb(VThallo)
+c$OMP END MASTER
+            call Register_Hallo(ucov,ip1jmp1,llm,1,1,1,1,Request_Dissip)
+            call Register_Hallo(vcov,ip1jm,llm,1,1,1,1,Request_Dissip)
+            call SendRequest(Request_Dissip)
+c$OMP BARRIER
+            call WaitRequest(Request_Dissip)
+c$OMP MASTER
+            call VTe(VThallo)
+            call resume_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER            
+            call covcont_p(llm,ucov,vcov,ucont,vcont)
+            call enercin_p(vcov,ucov,vcont,ucont,ecin)
+            
+            ijb=ij_begin
+            ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+            do l=1,llm
+              do ij=ijb,ije
+                dtetaecdt(ij,l)= (ecin0(ij,l)-ecin(ij,l))/ pk(ij,l)
+                dtetadis(ij,l)=dtetadis(ij,l)+dtetaecdt(ij,l)
+              enddo
+            enddo
+c$OMP END DO NOWAIT            
+       endif ! of if (dissip_conservative)
+
+       ijb=ij_begin
+       ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+         do l=1,llm
+           do ij=ijb,ije
+              teta(ij,l)=teta(ij,l)+dtetadis(ij,l)
+           enddo
+         enddo
+c$OMP END DO NOWAIT         
+c------------------------------------------------------------------------
+
+
+c    .......        P. Le Van (  ajout  le 17/04/96  )   ...........
+c   ...      Calcul de la valeur moyenne, unique de h aux poles  .....
+c
+
+        ijb=ij_begin
+        ije=ij_end
+         
+        if (pole_nord) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l  =  1, llm
+            DO ij =  1,iim
+             tppn(ij)  = aire(  ij    ) * teta(  ij    ,l)
+            ENDDO
+             tpn  = SSUM(iim,tppn,1)/apoln
+
+            DO ij = 1, iip1
+             teta(  ij    ,l) = tpn
+            ENDDO
+          ENDDO
+c$OMP END DO NOWAIT
+
+         if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
+c$OMP MASTER               
+          DO ij =  1,iim
+            tppn(ij)  = aire(  ij    ) * ps (  ij    )
+          ENDDO
+            tpn  = SSUM(iim,tppn,1)/apoln
+  
+          DO ij = 1, iip1
+            ps(  ij    ) = tpn
+          ENDDO
+c$OMP END MASTER
+         endif ! of if (1 == 0)
+        endif ! of of (pole_nord)
+        
+        if (pole_sud) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+          DO l  =  1, llm
+            DO ij =  1,iim
+             tpps(ij)  = aire(ij+ip1jm) * teta(ij+ip1jm,l)
+            ENDDO
+             tps  = SSUM(iim,tpps,1)/apols
+
+            DO ij = 1, iip1
+             teta(ij+ip1jm,l) = tps
+            ENDDO
+          ENDDO
+c$OMP END DO NOWAIT
+
+         if (1 == 0) then
+!!! Ehouarn: lines here 1) kill 1+1=2 in the dynamics
+!!!                     2) should probably not be here anyway
+!!! but are kept for those who would want to revert to previous behaviour
+c$OMP MASTER               
+          DO ij =  1,iim
+            tpps(ij)  = aire(ij+ip1jm) * ps (ij+ip1jm)
+          ENDDO
+            tps  = SSUM(iim,tpps,1)/apols
+  
+          DO ij = 1, iip1
+            ps(ij+ip1jm) = tps
+          ENDDO
+c$OMP END MASTER
+         endif ! of if (1 == 0)
+        endif ! of if (pole_sud)
+
+
+c$OMP BARRIER
+c$OMP MASTER
+        call VTe(VTdissipation)
+
+        call stop_timer(timer_dissip)
+        
+        call VTb(VThallo)
+c$OMP END MASTER
+        call Register_SwapField(ucov,ucov,ip1jmp1,llm,
+     *                          jj_Nb_caldyn,Request_dissip)
+
+        call Register_SwapField(vcov,vcov,ip1jm,llm,
+     *                          jj_Nb_caldyn,Request_dissip)
+
+        call Register_SwapField(teta,teta,ip1jmp1,llm,
+     *                          jj_Nb_caldyn,Request_dissip)
+
+        call Register_SwapField(p,p,ip1jmp1,llmp1,
+     *                          jj_Nb_caldyn,Request_dissip)
+
+        call Register_SwapField(pk,pk,ip1jmp1,llm,
+     *                          jj_Nb_caldyn,Request_dissip)
+
+        call SendRequest(Request_dissip)       
+c$OMP BARRIER
+        call WaitRequest(Request_dissip)       
+
+c$OMP BARRIER
+c$OMP MASTER
+        call SetDistrib(jj_Nb_caldyn)
+        call VTe(VThallo)
+        call resume_timer(timer_caldyn)
+c        print *,'fin dissipation'
+c$OMP END MASTER
+c$OMP BARRIER
+      END IF ! of IF(apdiss)
+
+cc$OMP END PARALLEL
+
+c ajout debug
+c              IF( lafin ) then  
+c                abort_message = 'Simulation finished'
+c                call abort_gcm(modname,abort_message,0)
+c              ENDIF
+        
+c   ********************************************************************
+c   ********************************************************************
+c   .... fin de l'integration dynamique  et physique pour le pas itau ..
+c   ********************************************************************
+c   ********************************************************************
+
+c   preparation du pas d'integration suivant  ......
+cym      call WriteField('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+cym      call WriteField('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+c$OMP MASTER      
+      call stop_timer(timer_caldyn)
+c$OMP END MASTER
+      IF (itau==itaumax) then
+c$OMP MASTER
+            call allgather_timer_average
+
+      if (mpi_rank==0) then
+        
+        print *,'*********************************'
+        print *,'******    TIMER CALDYN     ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_caldyn(i),timer_caldyn,i)
+        enddo
+      
+        print *,'*********************************'
+        print *,'******    TIMER VANLEER    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_vanleer(i),timer_vanleer,i)
+        enddo
+      
+        print *,'*********************************'
+        print *,'******    TIMER DISSIP    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_dissip(i),timer_dissip,i)
+        enddo
+        
+        print *,'*********************************'
+        print *,'******    TIMER PHYSIC    ******'
+        do i=0,mpi_size-1
+          print *,'proc',i,' :   Nb Bandes  :',jj_nb_physic(i),
+     &            '  : temps moyen :',
+     &             timer_average(jj_nb_physic(i),timer_physic,i)
+        enddo
+        
+      endif  
+      
+      print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
+      print *,'Taille du Buffer MPI utilise (REAL*8)',MaxBufferSize_Used
+      print *, 'Temps total ecoule sur la parallelisation :',DiffTime()
+      print *, 'Temps CPU ecoule sur la parallelisation :',DiffCpuTime()
+      CALL print_filtre_timer
+      call fin_getparam
+        call finalize_parallel
+c$OMP END MASTER
+c$OMP BARRIER
+        RETURN
+      ENDIF ! of IF (itau==itaumax)
+      
+      IF ( .NOT.purmats ) THEN
+c       ........................................................
+c       ..............  schema matsuno + leapfrog  ..............
+c       ........................................................
+
+            IF(forward. OR. leapf) THEN
+              itau= itau + 1
+!              iday= day_ini+itau/day_step
+!              time= REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+!                IF(time.GT.1.) THEN
+!                  time = time-1.
+!                  iday = iday+1
+!                ENDIF
+            ENDIF
+
+
+            IF( itau. EQ. itaufinp1 ) then
+
+              if (flag_verif) then
+                write(79,*) 'ucov',ucov
+                write(80,*) 'vcov',vcov
+                write(81,*) 'teta',teta
+                write(82,*) 'ps',ps
+                write(83,*) 'q',q
+                WRITE(85,*) 'q1 = ',q(:,:,1)
+                WRITE(86,*) 'q3 = ',q(:,:,3)
+              endif
+  
+
+c$OMP MASTER
+              call fin_getparam
+c$OMP END MASTER
+#ifdef INCA
+                 call finalize_inca
+#endif
+c$OMP MASTER
+               call finalize_parallel
+c$OMP END MASTER
+              abort_message = 'Simulation finished'
+              call abort_gcm(modname,abort_message,0)
+              RETURN
+            ENDIF
+c-----------------------------------------------------------------------
+c   ecriture du fichier histoire moyenne:
+c   -------------------------------------
+
+            IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
+c$OMP BARRIER
+               IF(itau.EQ.itaufin) THEN
+                  iav=1
+               ELSE
+                  iav=0
+               ENDIF
+#ifdef CPP_IOIPSL
+             IF (ok_dynzon) THEN 
+              CALL bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav, 
+     ,             ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q) 
+              ENDIF !ok_dynzon
+#endif
+               IF (ok_dyn_ave) THEN
+!$OMP MASTER
+#ifdef CPP_IOIPSL
+! Ehouarn: Gather fields and make master send to output
+                call Gather_Field(vcov,ip1jm,llm,0)
+                call Gather_Field(ucov,ip1jmp1,llm,0)
+                call Gather_Field(teta,ip1jmp1,llm,0)
+                call Gather_Field(pk,ip1jmp1,llm,0)
+                call Gather_Field(phi,ip1jmp1,llm,0)
+                do iq=1,nqtot
+                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
+                enddo
+                call Gather_Field(masse,ip1jmp1,llm,0)
+                call Gather_Field(ps,ip1jmp1,1,0)
+                call Gather_Field(phis,ip1jmp1,1,0)
+                if (mpi_rank==0) then
+                 CALL writedynav(itau,vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+                endif
+#endif
+!$OMP END MASTER
+               ENDIF ! of IF (ok_dyn_ave)
+            ENDIF ! of IF((MOD(itau,iperiod).EQ.0).OR.(itau.EQ.itaufin))
+
+c-----------------------------------------------------------------------
+c   ecriture de la bande histoire:
+c   ------------------------------
+
+            IF( MOD(itau,iecri).EQ.0) THEN
+             ! Ehouarn: output only during LF or Backward Matsuno
+             if (leapf.or.(.not.leapf.and.(.not.forward))) then
+c$OMP BARRIER
+c$OMP MASTER
+              CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
+       
+cym        unat=0.
+        
+              ijb=ij_begin
+              ije=ij_end
+        
+              if (pole_nord) then
+                ijb=ij_begin+iip1
+                unat(1:iip1,:)=0.
+              endif
+        
+              if (pole_sud) then 
+                ije=ij_end-iip1
+                unat(ij_end-iip1+1:ij_end,:)=0.
+              endif
+            
+              do l=1,llm
+                unat(ijb:ije,l)=ucov(ijb:ije,l)/cu(ijb:ije)
+              enddo
+
+              ijb=ij_begin
+              ije=ij_end
+              if (pole_sud) ije=ij_end-iip1
+        
+              do l=1,llm
+                vnat(ijb:ije,l)=vcov(ijb:ije,l)/cv(ijb:ije)
+              enddo
+        
+#ifdef CPP_IOIPSL
+              if (ok_dyn_ins) then
+! Ehouarn: Gather fields and make master write to output
+                call Gather_Field(vcov,ip1jm,llm,0)
+                call Gather_Field(ucov,ip1jmp1,llm,0)
+                call Gather_Field(teta,ip1jmp1,llm,0)
+                call Gather_Field(phi,ip1jmp1,llm,0)
+                do iq=1,nqtot
+                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
+                enddo
+                call Gather_Field(masse,ip1jmp1,llm,0)
+                call Gather_Field(ps,ip1jmp1,1,0)
+                call Gather_Field(phis,ip1jmp1,1,0)
+                if (mpi_rank==0) then
+                 CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
+                endif
+!              CALL writehist_p(histid,histvid, itau,vcov, 
+!     &                         ucov,teta,phi,q,masse,ps,phis)
+! or use writefield_p
+!      call WriteField_p('ucov',reshape(ucov,(/iip1,jmp1,llm/)))
+!      call WriteField_p('vcov',reshape(vcov,(/iip1,jjm,llm/)))
+!      call WriteField_p('teta',reshape(teta,(/iip1,jmp1,llm/)))
+!      call WriteField_p('ps',reshape(ps,(/iip1,jmp1/)))
+              endif ! of if (ok_dyn_ins)
+#endif
+! For some Grads outputs of fields
+              if (output_grads_dyn) then
+! Ehouarn: hope this works the way I think it does:
+                  call Gather_Field(unat,ip1jmp1,llm,0)
+                  call Gather_Field(vnat,ip1jm,llm,0)
+                  call Gather_Field(teta,ip1jmp1,llm,0)
+                  call Gather_Field(ps,ip1jmp1,1,0)
+                  do iq=1,nqtot
+                    call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
+                  enddo
+                  if (mpi_rank==0) then
+#include "write_grads_dyn.h"
+                  endif
+              endif ! of if (output_grads_dyn)
+c$OMP END MASTER
+             endif ! of if (leapf.or.(.not.leapf.and.(.not.forward)))
+            ENDIF ! of IF(MOD(itau,iecri).EQ.0)
+
+            IF(itau.EQ.itaufin) THEN
+
+c$OMP BARRIER
+c$OMP MASTER
+
+!              if (planet_type.eq."earth") then
+! Write an Earth-format restart file
+                CALL dynredem1_p("restart.nc",0.0,
+     &                           vcov,ucov,teta,q,masse,ps)
+!              endif ! of if (planet_type.eq."earth")
+
+!              CLOSE(99)
+c$OMP END MASTER
+            ENDIF ! of IF (itau.EQ.itaufin)
+
+c-----------------------------------------------------------------------
+c   gestion de l'integration temporelle:
+c   ------------------------------------
+
+            IF( MOD(itau,iperiod).EQ.0 )    THEN
+                    GO TO 1
+            ELSE IF ( MOD(itau-1,iperiod). EQ. 0 ) THEN
+
+                   IF( forward )  THEN
+c      fin du pas forward et debut du pas backward
+
+                      forward = .FALSE.
+                        leapf = .FALSE.
+                           GO TO 2
+
+                   ELSE
+c      fin du pas backward et debut du premier pas leapfrog
+
+                        leapf =  .TRUE.
+                        dt  =  2.*dtvr
+                        GO TO 2
+                   END IF
+            ELSE
+
+c      ......   pas leapfrog  .....
+
+                 leapf = .TRUE.
+                 dt  = 2.*dtvr
+                 GO TO 2
+            END IF ! of IF (MOD(itau,iperiod).EQ.0)
+                   !    ELSEIF (MOD(itau-1,iperiod).EQ.0)
+
+
+      ELSE ! of IF (.not.purmats)
+
+c       ........................................................
+c       ..............       schema  matsuno        ...............
+c       ........................................................
+            IF( forward )  THEN
+
+             itau =  itau + 1
+!             iday = day_ini+itau/day_step
+!             time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0
+!
+!                  IF(time.GT.1.) THEN
+!                   time = time-1.
+!                   iday = iday+1
+!                  ENDIF
+
+               forward =  .FALSE.
+               IF( itau. EQ. itaufinp1 ) then  
+c$OMP MASTER
+                 call fin_getparam
+                 call finalize_parallel
+c$OMP END MASTER
+                 abort_message = 'Simulation finished'
+                 call abort_gcm(modname,abort_message,0)
+                 RETURN
+               ENDIF
+               GO TO 2
+
+            ELSE ! of IF(forward) i.e. backward step
+
+              IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin) THEN
+               IF(itau.EQ.itaufin) THEN
+                  iav=1
+               ELSE
+                  iav=0
+               ENDIF
+#ifdef CPP_IOIPSL
+               IF (ok_dynzon) THEN
+               CALL bilan_dyn_p(2,dtvr*iperiod,dtvr*day_step*periodav,
+     ,           ps,masse,pk,pbaru,pbarv,teta,phi,ucov,vcov,q)
+               END IF !ok_dynzon
+#endif
+               IF (ok_dyn_ave) THEN
+!$OMP MASTER
+#ifdef CPP_IOIPSL
+! Ehouarn: Gather fields and make master send to output
+                call Gather_Field(vcov,ip1jm,llm,0)
+                call Gather_Field(ucov,ip1jmp1,llm,0)
+                call Gather_Field(teta,ip1jmp1,llm,0)
+                call Gather_Field(pk,ip1jmp1,llm,0)
+                call Gather_Field(phi,ip1jmp1,llm,0)
+                do iq=1,nqtot
+                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
+                enddo
+                call Gather_Field(masse,ip1jmp1,llm,0)
+                call Gather_Field(ps,ip1jmp1,1,0)
+                call Gather_Field(phis,ip1jmp1,1,0)
+                if (mpi_rank==0) then
+                 CALL writedynav(itau,vcov,
+     &                 ucov,teta,pk,phi,q,masse,ps,phis)
+                endif
+#endif
+!$OMP END MASTER
+               ENDIF ! of IF (ok_dyn_ave)
+
+              ENDIF ! of IF(MOD(itau,iperiod).EQ.0 .OR. itau.EQ.itaufin)
+
+
+               IF(MOD(itau,iecri         ).EQ.0) THEN
+c              IF(MOD(itau,iecri*day_step).EQ.0) THEN
+c$OMP BARRIER
+c$OMP MASTER
+                CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
+
+cym        unat=0.
+                ijb=ij_begin
+                ije=ij_end
+        
+                if (pole_nord) then
+                  ijb=ij_begin+iip1
+                  unat(1:iip1,:)=0.
+                endif
+        
+                if (pole_sud) then 
+                  ije=ij_end-iip1
+                  unat(ij_end-iip1+1:ij_end,:)=0.
+                endif
+            
+                do l=1,llm
+                  unat(ijb:ije,l)=ucov(ijb:ije,l)/cu(ijb:ije)
+                enddo
+
+                ijb=ij_begin
+                ije=ij_end
+                if (pole_sud) ije=ij_end-iip1
+        
+                do l=1,llm
+                  vnat(ijb:ije,l)=vcov(ijb:ije,l)/cv(ijb:ije)
+                enddo
+
+#ifdef CPP_IOIPSL
+              if (ok_dyn_ins) then
+! Ehouarn: Gather fields and make master send to output
+                call Gather_Field(vcov,ip1jm,llm,0)
+                call Gather_Field(ucov,ip1jmp1,llm,0)
+                call Gather_Field(teta,ip1jmp1,llm,0)
+                call Gather_Field(phi,ip1jmp1,llm,0)
+                do iq=1,nqtot
+                  call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
+                enddo
+                call Gather_Field(masse,ip1jmp1,llm,0)
+                call Gather_Field(ps,ip1jmp1,1,0)
+                call Gather_Field(phis,ip1jmp1,1,0)
+                if (mpi_rank==0) then
+                 CALL writehist(itau,vcov,ucov,teta,phi,q,masse,ps,phis)
+                endif
+!                CALL writehist_p(histid, histvid, itau,vcov , 
+!     &                           ucov,teta,phi,q,masse,ps,phis)
+              endif ! of if (ok_dyn_ins)
+#endif
+! For some Grads output (but does it work?)
+                if (output_grads_dyn) then
+                  call Gather_Field(unat,ip1jmp1,llm,0)
+                  call Gather_Field(vnat,ip1jm,llm,0)
+                  call Gather_Field(teta,ip1jmp1,llm,0)
+                  call Gather_Field(ps,ip1jmp1,1,0)
+                  do iq=1,nqtot
+                    call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
+                  enddo
+c      
+                  if (mpi_rank==0) then
+#include "write_grads_dyn.h"
+                  endif
+                endif ! of if (output_grads_dyn)
+
+c$OMP END MASTER
+              ENDIF ! of IF(MOD(itau,iecri).EQ.0)
+
+              IF(itau.EQ.itaufin) THEN
+!                if (planet_type.eq."earth") then
+c$OMP MASTER
+                   CALL dynredem1_p("restart.nc",0.0,
+     .                               vcov,ucov,teta,q,masse,ps)
+c$OMP END MASTER
+!                endif ! of if (planet_type.eq."earth")
+              ENDIF ! of IF(itau.EQ.itaufin)
+
+              forward = .TRUE.
+              GO TO  1
+
+            ENDIF ! of IF (forward)
+
+      END IF ! of IF(.not.purmats)
+c$OMP MASTER
+      call fin_getparam
+      call finalize_parallel
+c$OMP END MASTER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/logic_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/logic_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/logic_mod.F90	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Id$
+!
+MODULE logic_mod
+
+IMPLICIT NONE
+
+  LOGICAL purmats ! true if time stepping is purely Matsuno scheme
+                  ! false implies Matsuno-Leapfrog time stepping scheme
+  LOGICAL forward ! true if during forward phase of Matsuno step
+  LOGICAL leapf ! true if during a leapfrog time stepping step
+  LOGICAL apphys ! true if during a time step when physics will be called
+  LOGICAL statcl
+  LOGICAL conser
+  LOGICAL apdiss ! true if during a time step when dissipation will be called
+  LOGICAL apdelq
+  LOGICAL saison
+  LOGICAL ecripar
+  LOGICAL fxyhypb ! true if using hyperbolic function discretization
+                  ! for latitudinal grid 
+  LOGICAL ysinus ! true if using sine function discretiation
+                 ! for latitudinal grid
+  LOGICAL read_start ! true if reading a start.nc file to initialize fields
+  LOGICAL ok_guide ! true if nudging
+  LOGICAL ok_strato
+  LOGICAL ok_gradsfile
+  LOGICAL ok_limit
+  LOGICAL ok_etat0
+  LOGICAL hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
+                 ! (only used if disvert_type==2)
+  INTEGER iflag_phys ! type of physics to call: 0 none, 1: phy*** package,
+                     ! 2: Held & Suarez, 101-200: aquaplanets & terraplanets
+  INTEGER iflag_trac
+
+!$OMP THREADPRIVATE(purmats,forward,leapf,apphys,statcl,conser, &
+!$OMP     apdiss,apdelq,saison,ecripar,fxyhypb,ysinus, &
+!$OMP     read_start,ok_guide,ok_strato,ok_gradsfile, &
+!$OMP     ok_limit,ok_etat0,hybrid)
+!$OMP THREADPRIVATE(iflag_phys,iflag_trac)
+
+!WARNING: when adding a threadprivate variable in this module
+!        do not forget to add it to the copyin clause when opening an OpenMP
+!        parallel section. e.g. in gcm before call leapfrog_loc 
+
+END MODULE logic_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massbar_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massbar_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massbar_p.F	(revision 3330)
@@ -0,0 +1,116 @@
+      SUBROUTINE massbar_p(  masse, massebx, masseby )
+     
+c
+c **********************************************************************
+c
+c  Calcule les moyennes en x et  y de la masse d'air dans chaque maille.
+c **********************************************************************
+c    Auteurs : P. Le Van , Fr. Hourdin  .
+c   ..........
+c
+c  ..  masse                 est  un argum. d'entree  pour le s-pg ...
+c  ..  massebx,masseby      sont des argum. de sortie pour le s-pg ...
+c     
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+      REAL    masse( ip1jmp1,llm ), massebx( ip1jmp1,llm )  ,
+     *      masseby(   ip1jm,llm )
+      INTEGER ij,l,ijb,ije
+c
+c
+c   Methode pour calculer massebx et masseby .
+c   ----------------------------------------
+c
+c    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
+c       alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
+c       alpha2(i,j)  calcule  au point ( i+1/4,j+1/4 )
+c       alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
+c       alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
+c
+c    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)        
+c
+c    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
+c
+c
+c
+c   alpha4 .         . alpha1    . alpha4
+c    (i,j)             (i,j)       (i+1,j)
+c
+c             P .        U .          . P
+c           (i,j)       (i,j)         (i+1,j)
+c
+c   alpha3 .         . alpha2    .alpha3 
+c    (i,j)              (i,j)     (i+1,j)
+c
+c             V .        Z .          . V
+c           (i,j)
+c
+c   alpha4 .         . alpha1    .alpha4
+c   (i,j+1)            (i,j+1)   (i+1,j+1) 
+c
+c             P .        U .          . P
+c          (i,j+1)                    (i+1,j+1)
+c
+c
+c
+c                       On  a :
+c
+c    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
+c                   masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+c     localise  au point  ... U (i,j) ...
+c
+c    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
+c                   masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+c     localise  au point  ... V (i,j) ...
+c
+c
+c=======================================================================
+      
+      
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)  
+      DO   100    l = 1 , llm
+c
+        ijb=ij_begin
+        ije=ij_end+iip1
+        if (pole_sud) ije=ije-iip1
+        
+        DO  ij = ijb, ije - 1
+         massebx(ij,l) =  masse( ij, l) * alpha1p2( ij  )     + 
+     *                   masse(ij+1, l) * alpha3p4(ij+1 )
+        ENDDO
+
+c    .... correction pour massebx( iip1,j) .....
+c    ...    massebx(iip1,j)= massebx(1,j) ...
+c
+CDIR$ IVDEP
+
+        
+
+        DO  ij = ijb+iim, ije+iim, iip1
+         massebx( ij,l ) = massebx( ij - iim,l )
+        ENDDO
+
+
+      
+        ijb=ij_begin-iip1
+        ije=ij_end+iip1
+        if (pole_nord) ijb=ij_begin
+        if (pole_sud) ije=ij_end-iip1
+
+         DO  ij = ijb,ije
+         masseby( ij,l ) = masse(  ij   , l ) * alpha2p3(   ij    )  +
+     *                     masse(ij+iip1, l ) * alpha1p4( ij+iip1 )
+         ENDDO
+
+100   CONTINUE
+c$OMP END DO NOWAIT
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massbarxy_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massbarxy_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massbarxy_p.F	(revision 3330)
@@ -0,0 +1,54 @@
+      SUBROUTINE massbarxy_p(  masse, massebxy )
+      USE parallel_lmdz
+      implicit none
+c **********************************************************************
+c
+c  Calcule les moyennes en x et  y de la masse d'air dans chaque maille.
+c **********************************************************************
+c    Auteurs : P. Le Van , Fr. Hourdin  .
+c   ..........
+c
+c  ..  masse          est  un  argum. d'entree  pour le s-pg ...
+c  ..  massebxy       est  un  argum. de sortie pour le s-pg ...
+c     
+c
+c     IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+       REAL  masse( ip1jmp1,llm ), massebxy( ip1jm,llm )
+c
+      INTEGER ij,l,ijb,ije
+
+      
+      ijb=ij_begin-iip1
+      ije=ij_end
+      
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO   100    l = 1 , llm
+c
+      DO 5 ij = ijb, ije - 1
+      massebxy( ij,l ) = masse(    ij  ,l ) * alpha2(   ij    )   +
+     +                   masse(   ij+1 ,l ) * alpha3(  ij+1   )   +
+     +                   masse( ij+iip1,l ) * alpha1( ij+iip1 )   +
+     +                   masse( ij+iip2,l ) * alpha4( ij+iip2 )
+   5  CONTINUE
+
+c    ....  correction pour     massebxy( iip1,j )  ........
+
+CDIR$ IVDEP
+
+      DO 7 ij = ijb+iip1-1, ije+iip1-1, iip1
+      massebxy( ij,l ) = massebxy( ij - iim,l )
+   7  CONTINUE
+
+100   CONTINUE
+c$OMP END DO NOWAIT
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massdair_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massdair_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/massdair_p.F	(revision 3330)
@@ -0,0 +1,119 @@
+      SUBROUTINE massdair_p( p, masse )
+      USE parallel_lmdz
+c
+c *********************************************************************
+c       ....  Calcule la masse d'air  dans chaque maille   ....
+c *********************************************************************
+c
+c    Auteurs : P. Le Van , Fr. Hourdin  .
+c   ..........
+c
+c  ..    p                      est  un argum. d'entree pour le s-pg ...
+c  ..  masse                    est un  argum.de sortie pour le s-pg ...
+c     
+c  ....  p est defini aux interfaces des llm couches   .....
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c  .....   arguments  ....
+c
+      REAL p(ip1jmp1,llmp1), masse(ip1jmp1,llm)
+
+c   ....  Variables locales  .....
+
+      INTEGER l,ij
+      INTEGER ijb,ije
+      REAL massemoyn, massemoys
+
+      REAL SSUM
+      EXTERNAL SSUM
+c
+c
+c   Methode pour calculer massebx et masseby .
+c   ----------------------------------------
+c
+c    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
+c       alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
+c       alpha2(i,j)  calcule  au point ( i+1/4,j+1/4 )
+c       alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
+c       alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
+c
+c    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)        
+c
+c    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
+c
+c
+c
+c   alpha4 .         . alpha1    . alpha4
+c    (i,j)             (i,j)       (i+1,j)
+c
+c             P .        U .          . P
+c           (i,j)       (i,j)         (i+1,j)
+c
+c   alpha3 .         . alpha2    .alpha3 
+c    (i,j)              (i,j)     (i+1,j)
+c
+c             V .        Z .          . V
+c           (i,j)
+c
+c   alpha4 .         . alpha1    .alpha4
+c   (i,j+1)            (i,j+1)   (i+1,j+1) 
+c
+c             P .        U .          . P
+c          (i,j+1)                    (i+1,j+1)
+c
+c
+c
+c                       On  a :
+c
+c    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
+c                   masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
+c     localise  au point  ... U (i,j) ...
+c
+c    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
+c                   masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)  
+c     localise  au point  ... V (i,j) ...
+c
+c
+c=======================================================================
+
+      
+
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+2*iip1
+      
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO   100    l = 1 , llm
+c
+        DO    ij     = ijb, ije
+         masse(ij,l) = airesurg(ij) * ( p(ij,l) - p(ij,l+1) )
+        ENDDO
+c
+        DO   ij = ijb, ije,iip1
+         masse(ij+ iim,l) = masse(ij,l)
+        ENDDO
+c
+c       DO    ij     = 1,  iim
+c        masse(   ij   ,l) = masse(   ij   ,l) * aire(  ij    )
+c        masse(ij+ip1jm,l) = masse(ij+ip1jm,l) * aire(ij+ip1jm) 
+c       ENDDO
+c        massemoyn         = SSUM(iim,masse(   1   ,l),1)/ apoln
+c        massemoys         = SSUM(iim,masse(ip1jm+1,l),1)/ apols
+c       DO    ij     = 1, iip1
+c        masse(   ij   ,l )    = massemoyn
+c        masse(ij+ip1jm,l )    = massemoys
+c       ENDDO
+       
+100   CONTINUE
+c$OMP END DO NOWAIT
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/mod_const_mpi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/mod_const_mpi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/mod_const_mpi.F90	(revision 3330)
@@ -0,0 +1,103 @@
+! 
+! $Id$
+!
+MODULE mod_const_mpi
+  IMPLICIT NONE
+  INTEGER,SAVE :: COMM_LMDZ
+  INTEGER,SAVE :: MPI_REAL_LMDZ
+ 
+
+CONTAINS 
+
+  SUBROUTINE Init_const_mpi
+#ifdef CPP_IOIPSL
+    USE IOIPSL, ONLY: getin
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+    USE ioipsl_getincom, only: getin
+#endif
+! Use of Oasis-MCT coupler 
+#ifdef CPP_OMCT
+    USE mod_prism
+#endif
+#ifdef CPP_XIOS
+    USE wxios, only: wxios_init
+#endif
+    IMPLICIT NONE
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+
+    INTEGER             :: ierr
+    INTEGER             :: comp_id
+    INTEGER             :: thread_required
+    INTEGER             :: thread_provided
+    CHARACTER(len = 6)  :: type_ocean
+
+!$OMP MASTER
+    type_ocean = 'force '
+    CALL getin('type_ocean', type_ocean)
+!$OMP END MASTER
+!$OMP BARRIER
+
+    IF (type_ocean=='couple') THEN
+#ifdef CPP_COUPLE
+!$OMP MASTER
+#ifdef CPP_XIOS
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
+#else
+       CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
+       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
+#endif
+!$OMP END MASTER
+#endif
+#ifdef CPP_MPI
+      MPI_REAL_LMDZ=MPI_REAL8
+#endif
+    ELSE
+      CALL init_mpi
+    ENDIF
+
+  END SUBROUTINE Init_const_mpi
+  
+  SUBROUTINE Init_mpi
+#ifdef CPP_XIOS
+    USE wxios, only: wxios_init
+#endif
+  IMPLICIT NONE
+#ifdef CPP_MPI
+     INCLUDE 'mpif.h'
+#endif
+    INTEGER             :: ierr
+    INTEGER             :: thread_required
+    INTEGER             :: thread_provided
+
+#ifdef CPP_MPI
+!$OMP MASTER
+      thread_required=MPI_THREAD_SERIALIZED
+
+      CALL MPI_INIT_THREAD(thread_required,thread_provided,ierr)
+      IF (thread_provided < thread_required) THEN
+        PRINT *,'Warning : The multithreaded level of MPI librairy do not provide the requiered level',  &
+                ' in mod_const_mpi::Init_const_mpi'
+      ENDIF
+      COMM_LMDZ=MPI_COMM_WORLD
+      MPI_REAL_LMDZ=MPI_REAL8
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Initialisation de XIOS
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+#ifdef CPP_XIOS
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
+#endif
+!$OMP END MASTER
+#else
+#ifdef CPP_XIOS
+!$OMP MASTER
+      CALL wxios_init("LMDZ")
+!$OMP END MASTER
+#endif
+#endif
+
+   END SUBROUTINE Init_mpi
+    
+END MODULE mod_const_mpi
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/mod_hallo.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/mod_hallo.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/mod_hallo.F90	(revision 3330)
@@ -0,0 +1,817 @@
+module mod_Hallo
+USE mod_const_mpi, ONLY: COMM_LMDZ,MPI_REAL_LMDZ
+USE parallel_lmdz, ONLY: using_mpi, mpi_size, mpi_rank, omp_chunk, omp_rank, &
+                         pole_nord, pole_sud, jj_begin, jj_end, &
+                         jj_begin_para, jj_end_para
+implicit none
+  logical,save :: use_mpi_alloc
+  integer, parameter :: MaxRequest=200
+  integer, parameter :: MaxProc=80
+  integer, parameter :: MaxBufferSize=1024*1024*16
+  integer, parameter :: ListSize=1000
+  
+  integer,save       :: MaxBufferSize_Used
+!$OMP THREADPRIVATE( MaxBufferSize_Used)
+
+   real,save,pointer,dimension(:) :: Buffer
+!$OMP THREADPRIVATE(Buffer)
+
+   integer,save,dimension(Listsize) :: Buffer_Pos
+   integer,save :: Index_Pos
+!$OMP THREADPRIVATE(Buffer_Pos,Index_pos)
+   
+  type Hallo
+    real, dimension(:,:),pointer :: Field
+    integer :: offset
+    integer :: size
+    integer :: NbLevel
+    integer :: Stride
+  end type Hallo
+  
+  type request_SR
+    integer :: NbRequest=0
+    integer :: Pos
+    integer :: Index 
+    type(Hallo),dimension(MaxRequest) :: Hallo
+    integer :: MSG_Request
+  end type request_SR
+
+  type request
+    type(request_SR),dimension(0:MaxProc-1) :: RequestSend
+    type(request_SR),dimension(0:MaxProc-1) :: RequestRecv
+    integer :: tag=1
+  end type request
+  
+    
+  contains
+
+  subroutine Init_mod_hallo
+    implicit none
+
+    Index_Pos=1
+    Buffer_Pos(Index_Pos)=1
+    MaxBufferSize_Used=0
+
+    IF (use_mpi_alloc .AND. using_mpi) THEN
+      CALL create_global_mpi_buffer
+    ELSE 
+      CALL create_standard_mpi_buffer
+    ENDIF
+     
+  end subroutine init_mod_hallo
+
+  SUBROUTINE create_standard_mpi_buffer
+  IMPLICIT NONE
+    
+    ALLOCATE(Buffer(MaxBufferSize))
+    
+  END SUBROUTINE create_standard_mpi_buffer
+  
+  SUBROUTINE create_global_mpi_buffer
+  IMPLICIT NONE
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif  
+    POINTER (Pbuffer,MPI_Buffer(MaxBufferSize))
+    REAL :: MPI_Buffer
+#ifdef CPP_MPI
+    INTEGER(KIND=MPI_ADDRESS_KIND) :: BS 
+#else
+    INTEGER(KIND=8) :: BS
+#endif
+    INTEGER :: i,ierr
+
+!  Allocation du buffer MPI
+      Bs=8*MaxBufferSize
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+      CALL MPI_ALLOC_MEM(BS,MPI_INFO_NULL,Pbuffer,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      DO i=1,MaxBufferSize
+	MPI_Buffer(i)=i
+      ENDDO
+     
+      CALL  Associate_buffer(MPI_Buffer)
+      
+  CONTAINS
+     
+     SUBROUTINE Associate_buffer(MPI_Buffer)
+     IMPLICIT NONE
+       REAL,DIMENSION(:),target :: MPI_Buffer  
+
+         Buffer=>MPI_Buffer
+ 
+      END SUBROUTINE  Associate_buffer
+                                      
+  END SUBROUTINE create_global_mpi_buffer
+ 
+      
+  subroutine allocate_buffer(Size,Index,Pos)
+  implicit none
+    integer :: Size
+    integer :: Index
+    integer :: Pos
+
+    if (Buffer_pos(Index_pos)+Size>MaxBufferSize_Used) MaxBufferSize_Used=Buffer_pos(Index_pos)+Size  
+    if (Buffer_pos(Index_pos)+Size>MaxBufferSize) then
+      print *,'STOP :: La taille de MaxBufferSize dans mod_hallo.F90 est trop petite !!!!'
+      stop
+    endif
+    
+    if (Index_pos>=ListSize) then
+      print *,'STOP :: La taille de ListSize dans mod_hallo.F90 est trop petite !!!!'
+      stop
+    endif
+     
+    Pos=Buffer_Pos(Index_Pos)
+    Buffer_Pos(Index_pos+1)=Buffer_Pos(Index_Pos)+Size
+    Index_Pos=Index_Pos+1
+    Index=Index_Pos
+    
+  end subroutine allocate_buffer
+     
+  subroutine deallocate_buffer(Index)
+  implicit none
+    integer :: Index
+    
+    Buffer_Pos(Index)=-1
+    
+    do while (Buffer_Pos(Index_Pos)==-1 .and. Index_Pos>1)
+      Index_Pos=Index_Pos-1
+    end do
+
+  end subroutine deallocate_buffer  
+  
+  subroutine SetTag(a_request,tag)
+  implicit none
+    type(request):: a_request
+    integer :: tag
+    
+    a_request%tag=tag
+  end subroutine SetTag
+  
+  
+  subroutine Init_Hallo(Field,Stride,NbLevel,offset,size,NewHallo)
+    integer :: Stride
+    integer :: NbLevel
+    integer :: size
+    integer :: offset
+    real, dimension(Stride,NbLevel),target :: Field
+    type(Hallo) :: NewHallo
+    
+    NewHallo%Field=>Field
+    NewHallo%Stride=Stride
+    NewHallo%NbLevel=NbLevel
+    NewHallo%size=size
+    NewHallo%offset=offset
+    
+    
+  end subroutine Init_Hallo
+  
+  subroutine Register_SendField(Field,ij,ll,offset,size,target,a_request)
+  implicit none
+
+#include "dimensions.h"
+#include "paramet.h"    
+    
+      INTEGER :: ij,ll,offset,size,target
+      REAL, dimension(ij,ll) :: Field
+      type(request),target :: a_request
+      type(request_SR),pointer :: Ptr_request
+
+      Ptr_Request=>a_request%RequestSend(target)
+      Ptr_Request%NbRequest=Ptr_Request%NbRequest+1
+      if (Ptr_Request%NbRequest>=MaxRequest) then
+        print *,'STOP :: La taille de MaxRequest dans mod_hallo.F90 est trop petite !!!!'
+        stop
+      endif      
+      call Init_Hallo(Field,ij,ll,offset,size,Ptr_request%Hallo(Ptr_Request%NbRequest))
+      
+   end subroutine Register_SendField      
+      
+  subroutine Register_RecvField(Field,ij,ll,offset,size,target,a_request)
+  implicit none
+
+#include "dimensions.h"
+#include "paramet.h"    
+    
+      INTEGER :: ij,ll,offset,size,target
+      REAL, dimension(ij,ll) :: Field
+      type(request),target :: a_request
+      type(request_SR),pointer :: Ptr_request
+
+      Ptr_Request=>a_request%RequestRecv(target)
+      Ptr_Request%NbRequest=Ptr_Request%NbRequest+1
+      
+      if (Ptr_Request%NbRequest>=MaxRequest) then
+        print *,'STOP :: La taille de MaxRequest dans mod_hallo.F90 est trop petite !!!!'
+        stop
+      endif   
+            
+      call Init_Hallo(Field,ij,ll,offset,size,Ptr_request%Hallo(Ptr_Request%NbRequest))
+
+      
+   end subroutine Register_RecvField      
+  
+  subroutine Register_SwapField(FieldS,FieldR,ij,ll,jj_Nb_New,a_request)
+  
+      implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+    
+    INTEGER :: ij,ll
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    type(request) :: a_request
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    integer ::i,jje,jjb
+    
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+    
+    do i=0,MPI_Size-1
+      if (i /= MPI_Rank) then
+        jjb=max(jj_begin_new(i),jj_begin)
+        jje=min(jj_end_new(i),jj_end)
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_SendField(FieldS,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+        jjb=max(jj_begin_new(MPI_Rank),jj_begin_Para(i))
+        jje=min(jj_end_new(MPI_Rank),jj_end_Para(i))
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_RecvField(FieldR,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+      endif
+    enddo
+    
+  end subroutine Register_SwapField    
+  
+  
+    subroutine Register_SwapFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down,a_request)
+  
+      implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+    
+    INTEGER :: ij,ll,Up,Down
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    type(request) :: a_request
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    integer ::i,jje,jjb
+    
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+    
+    do i=0,MPI_Size-1
+      jj_begin_New(i)=max(1,jj_begin_New(i)-Up)
+      jj_end_New(i)=min(jjp1,jj_end_new(i)+Down)
+    enddo
+   
+    do i=0,MPI_Size-1
+      if (i /= MPI_Rank) then
+        jjb=max(jj_begin_new(i),jj_begin)
+        jje=min(jj_end_new(i),jj_end)
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_SendField(FieldS,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+        jjb=max(jj_begin_new(MPI_Rank),jj_begin_Para(i))
+        jje=min(jj_end_new(MPI_Rank),jj_end_Para(i))
+        
+        if (ij==ip1jm .and. jje==jjp1) jje=jjm
+        
+        if (jje >= jjb) then
+          call Register_RecvField(FieldR,ij,ll,jjb,jje-jjb+1,i,a_request) 
+        endif
+        
+      endif
+    enddo
+    
+  end subroutine Register_SwapFieldHallo
+  
+  subroutine Register_Hallo(Field,ij,ll,RUp,Rdown,SUp,SDown,a_request)
+  
+      implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: Sup,Sdown,rup,rdown
+      type(request) :: a_request
+      type(Hallo),pointer :: PtrHallo
+      LOGICAL :: SendUp,SendDown
+      LOGICAL :: RecvUp,RecvDown
+   
+ 
+      SendUp=.TRUE.
+      SendDown=.TRUE.
+      RecvUp=.TRUE.
+      RecvDown=.TRUE.
+        
+      IF (pole_nord) THEN
+        SendUp=.FALSE.
+        RecvUp=.FALSE.
+      ENDIF
+  
+      IF (pole_sud) THEN
+        SendDown=.FALSE.
+        RecvDown=.FALSE.
+      ENDIF
+      
+      if (Sup.eq.0) then
+        SendUp=.FALSE.
+       endif
+      
+      if (Sdown.eq.0) then
+        SendDown=.FALSE.
+      endif
+
+      if (Rup.eq.0) then
+        RecvUp=.FALSE.
+      endif
+      
+      if (Rdown.eq.0) then
+        RecvDown=.FALSE.
+      endif
+      
+      IF (SendUp) THEN
+        call Register_SendField(Field,ij,ll,jj_begin,SUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (SendDown) THEN
+        call Register_SendField(Field,ij,ll,jj_end-SDown+1,SDown,MPI_Rank+1,a_request)
+      ENDIF
+    
+  
+      IF (RecvUp) THEN
+        call Register_RecvField(Field,ij,ll,jj_begin-Rup,RUp,MPI_Rank-1,a_request)
+      ENDIF
+  
+      IF (RecvDown) THEN
+        call Register_RecvField(Field,ij,ll,jj_end+1,RDown,MPI_Rank+1,a_request)
+      ENDIF
+  
+    end subroutine Register_Hallo
+    
+    subroutine SendRequest(a_Request)
+      implicit none
+
+#include "dimensions.h"
+#include "paramet.h"
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif
+
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer :: SizeBuffer
+      integer :: i,rank,l,ij,Pos,ierr
+      integer :: offset
+      real,dimension(:,:),pointer :: Field
+      integer :: Nb
+       
+      do rank=0,MPI_SIZE-1
+      
+        Req=>a_Request%RequestSend(rank)
+        
+        SizeBuffer=0
+        do i=1,Req%NbRequest
+          PtrHallo=>Req%Hallo(i)
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+          DO l=1,PtrHallo%NbLevel
+            SizeBuffer=SizeBuffer+PtrHallo%size*iip1
+          ENDDO
+!$OMP ENDDO NOWAIT          
+        enddo
+      
+        if (SizeBuffer>0) then
+       
+          call allocate_buffer(SizeBuffer,Req%Index,Req%pos)
+
+          Pos=Req%Pos
+          do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+            offset=(PtrHallo%offset-1)*iip1+1
+            Nb=iip1*PtrHallo%size-1
+            Field=>PtrHallo%Field
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)           
+            do l=1,PtrHallo%NbLevel
+!cdir NODEP
+              do ij=0,Nb
+	        Buffer(Pos+ij)=Field(Offset+ij,l)
+	      enddo
+              
+              Pos=Pos+Nb+1
+            enddo
+!$OMP END DO NOWAIT            
+          enddo
+    
+!$OMP CRITICAL (MPI)
+         
+#ifdef CPP_MPI
+         call MPI_ISSEND(Buffer(req%Pos),SizeBuffer,MPI_REAL_LMDZ,rank,a_request%tag+1000*omp_rank,     &
+                         COMM_LMDZ,Req%MSG_Request,ierr)
+#endif
+         IF (.NOT.using_mpi) THEN
+           PRINT *,'Erreur, echange MPI en mode sequentiel !!!'
+           STOP
+         ENDIF
+!         PRINT *,"-------------------------------------------------------------------"
+!         PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->"
+!         PRINT *,"Requete envoye au proc :",rank,"tag :",a_request%tag+1000*omp_rank
+!         PRINT *,"Taille du message :",SizeBuffer,"requete no :",Req%MSG_Request
+!         PRINT *,"-------------------------------------------------------------------"
+!$OMP END CRITICAL (MPI)
+        endif
+
+    enddo
+   
+           
+      do rank=0,MPI_SIZE-1
+         
+          Req=>a_Request%RequestRecv(rank)
+          SizeBuffer=0
+          
+	  do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+            DO l=1,PtrHallo%NbLevel
+              SizeBuffer=SizeBuffer+PtrHallo%size*iip1
+            ENDDO
+!$OMP ENDDO NOWAIT          
+          enddo
+        
+          if (SizeBuffer>0) then
+
+             call allocate_buffer(SizeBuffer,Req%Index,Req%Pos)
+!$OMP CRITICAL (MPI)
+
+#ifdef CPP_MPI
+             call MPI_IRECV(Buffer(Req%Pos),SizeBuffer,MPI_REAL_LMDZ,rank,a_request%tag+1000*omp_rank,     &
+                           COMM_LMDZ,Req%MSG_Request,ierr)
+#endif             
+             IF (.NOT.using_mpi) THEN
+               PRINT *,'Erreur, echange MPI en mode sequentiel !!!'
+               STOP
+             ENDIF
+
+!         PRINT *,"-------------------------------------------------------------------"
+!         PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->"
+!         PRINT *,"Requete en attente du proc :",rank,"tag :",a_request%tag+1000*omp_rank
+!         PRINT *,"Taille du message :",SizeBuffer,"requete no :",Req%MSG_Request
+!         PRINT *,"-------------------------------------------------------------------"
+
+!$OMP END CRITICAL (MPI)
+          endif
+      
+      enddo
+                        
+   end subroutine SendRequest 
+   
+   subroutine WaitRequest(a_Request)
+   implicit none
+   
+#include "dimensions.h"
+#include "paramet.h"
+#ifdef CPP_MPI
+      include 'mpif.h'   
+#endif
+      
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer, dimension(2*mpi_size) :: TabRequest
+#ifdef CPP_MPI
+      integer, dimension(MPI_STATUS_SIZE,2*mpi_size) :: TabStatus
+#else
+      integer, dimension(1,2*mpi_size) :: TabStatus
+#endif
+      integer :: NbRequest
+      integer :: i,rank,pos,ij,l,ierr
+      integer :: offset
+      integer :: Nb
+      
+      
+      NbRequest=0
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+     
+      if (NbRequest>0) then
+!$OMP CRITICAL (MPI)
+!        PRINT *,"-------------------------------------------------------------------"
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"en attente"
+!        PRINT *,"No des requetes :",TabRequest(1:NbRequest)
+#ifdef CPP_MPI
+        call MPI_WAITALL(NbRequest,TabRequest,TabStatus,ierr)
+#endif
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"complete"
+!        PRINT *,"-------------------------------------------------------------------"
+!$OMP END CRITICAL (MPI)
+      endif
+      do rank=0,MPI_Size-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          Pos=Req%Pos
+          do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+            offset=(PtrHallo%offset-1)*iip1+1
+	    Nb=iip1*PtrHallo%size-1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+	    do l=1,PtrHallo%NbLevel
+!cdir NODEP
+              do ij=0,Nb
+	        PtrHallo%Field(offset+ij,l)=Buffer(Pos+ij)
+	      enddo
+
+              Pos=Pos+Nb+1
+	    enddo
+!$OMP ENDDO NOWAIT	    
+          enddo
+        endif
+      enddo
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+              
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+     
+      a_request%tag=1
+    end subroutine WaitRequest
+     
+   subroutine WaitSendRequest(a_Request)
+   implicit none
+   
+#include "dimensions.h"
+#include "paramet.h"
+#ifdef CPP_MPI
+      include 'mpif.h'   
+#endif      
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer, dimension(mpi_size) :: TabRequest
+#ifdef CPP_MPI
+      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
+#else
+      integer, dimension(1,mpi_size) :: TabStatus
+#endif
+      integer :: NbRequest
+      integer :: i,rank,pos,ij,l,ierr
+      integer :: offset
+      
+      
+      NbRequest=0
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+      
+
+      if (NbRequest>0) THEN 
+!$OMP CRITICAL (MPI)     
+!        PRINT *,"-------------------------------------------------------------------"
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"en attente"
+!        PRINT *,"No des requetes :",TabRequest(1:NbRequest)
+#ifdef CPP_MPI
+        call MPI_WAITALL(NbRequest,TabRequest,TabStatus,ierr)
+#endif
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"complete"
+!        PRINT *,"-------------------------------------------------------------------"
+
+!$OMP END CRITICAL (MPI)
+      endif      
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestSend(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+              
+      a_request%tag=1
+    end subroutine WaitSendRequest
+    
+   subroutine WaitRecvRequest(a_Request)
+   implicit none
+   
+#include "dimensions.h"
+#include "paramet.h"
+#ifdef CPP_MPI
+      include 'mpif.h'   
+#endif
+      
+      type(request),target :: a_request
+      type(request_SR),pointer :: Req
+      type(Hallo),pointer :: PtrHallo
+      integer, dimension(mpi_size) :: TabRequest
+#ifdef CPP_MPI
+      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
+#else
+      integer, dimension(1,mpi_size) :: TabStatus
+#endif
+      integer :: NbRequest
+      integer :: i,rank,pos,ij,l,ierr
+      integer :: offset,Nb
+      
+      
+      NbRequest=0
+      
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          NbRequest=NbRequest+1
+          TabRequest(NbRequest)=Req%MSG_Request
+        endif
+      enddo
+     
+      
+      if (NbRequest>0) then
+!$OMP CRITICAL (MPI)     
+!        PRINT *,"-------------------------------------------------------------------"
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"en attente"
+!        PRINT *,"No des requetes :",TabRequest(1:NbRequest)
+#ifdef CPP_MPI
+        call MPI_WAITALL(NbRequest,TabRequest,TabStatus,ierr)
+#endif
+!        PRINT *,"Process de rang",mpi_rank,"Task : ",omp_rank,"--->",NbRequest,"complete"
+!        PRINT *,"-------------------------------------------------------------------"
+!$OMP END CRITICAL (MPI)     
+      endif
+      
+      do rank=0,MPI_Size-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          Pos=Req%Pos
+          do i=1,Req%NbRequest
+            PtrHallo=>Req%Hallo(i)
+            offset=(PtrHallo%offset-1)*iip1+1
+	    Nb=iip1*PtrHallo%size-1
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)            
+	    do l=1,PtrHallo%NbLevel
+!cdir NODEP
+              do ij=0,Nb
+	        PtrHallo%Field(offset+ij,l)=Buffer(Pos+ij)
+	      enddo
+                 Pos=Pos+Nb+1
+            enddo
+!$OMP END DO NOWAIT
+          enddo
+        endif
+      enddo
+      
+           
+      do rank=0,MPI_SIZE-1
+        Req=>a_request%RequestRecv(rank)
+        if (Req%NbRequest>0) then
+          call deallocate_buffer(Req%Index)
+          Req%NbRequest=0 
+        endif
+      enddo
+     
+      a_request%tag=1
+    end subroutine WaitRecvRequest
+    
+    
+    
+    subroutine CopyField(FieldS,FieldR,ij,ll,jj_Nb_New)
+  
+      implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+    
+    INTEGER :: ij,ll,l
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+    
+    integer ::i,jje,jjb,ijb,ije
+    
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+    
+    jjb=max(jj_begin,jj_begin_new(MPI_Rank))
+    jje=min(jj_end,jj_end_new(MPI_Rank))
+    if (ij==ip1jm) jje=min(jje,jjm)
+
+    if (jje >= jjb) then
+      ijb=(jjb-1)*iip1+1
+      ije=jje*iip1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,ll
+        FieldR(ijb:ije,l)=FieldS(ijb:ije,l)
+      enddo
+!$OMP ENDDO NOWAIT
+    endif
+
+
+  end subroutine CopyField    
+
+  subroutine CopyFieldHallo(FieldS,FieldR,ij,ll,jj_Nb_New,Up,Down)
+  
+      implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+    
+    INTEGER :: ij,ll,Up,Down
+    REAL, dimension(ij,ll) :: FieldS
+    REAL, dimension(ij,ll) :: FieldR
+    integer,dimension(0:MPI_Size-1) :: jj_Nb_New   
+    integer,dimension(0:MPI_Size-1) :: jj_Begin_New,jj_End_New
+
+    integer ::i,jje,jjb,ijb,ije,l
+
+     
+    jj_begin_New(0)=1
+    jj_End_New(0)=jj_Nb_New(0)
+    do i=1,MPI_Size-1
+      jj_begin_New(i)=jj_end_New(i-1)+1
+      jj_end_New(i)=jj_begin_new(i)+jj_Nb_New(i)-1
+    enddo
+
+        
+    jjb=max(jj_begin,jj_begin_new(MPI_Rank)-Up)
+    jje=min(jj_end,jj_end_new(MPI_Rank)+Down)
+    if (ij==ip1jm) jje=min(jje,jjm)
+    
+    
+    if (jje >= jjb) then
+      ijb=(jjb-1)*iip1+1
+      ije=jje*iip1
+
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      do l=1,ll
+        FieldR(ijb:ije,l)=FieldS(ijb:ije,l)
+      enddo
+!$OMP ENDDO NOWAIT
+
+    endif
+   end subroutine CopyFieldHallo        
+          
+end module mod_Hallo 
+   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrad_gam_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrad_gam_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrad_gam_p.F	(revision 3330)
@@ -0,0 +1,67 @@
+      SUBROUTINE nxgrad_gam_p( klevel, rot, x, y )
+c
+c  P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+      INTEGER klevel
+      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
+      INTEGER   l,ij
+      integer ismin,ismax
+      external ismin,ismax
+      INTEGER :: ijb,ije
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 10 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+      
+      DO 1  ij = ijb+1, ije
+      y( ij,l ) = (rot( ij,l ) - rot( ij-1,l )) * cvscuvgam( ij )
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+CDIR$ IVDEP
+      DO 2  ij = ijb, ije, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      ijb=ij_begin
+      ije=ij_end+iip1
+      if(pole_nord) ijb=ij_begin+iip1
+      if(pole_sud) ije=ij_end-iip1
+      
+      DO 4  ij = ijb,ije
+      x( ij,l ) = (rot( ij,l ) - rot( ij -iip1,l )) * cuscvugam( ij )
+   4  CONTINUE
+    
+      if (pole_nord) then
+        DO  ij = 1,iip1
+         x(    ij    ,l ) = 0.
+        ENDDO
+      endif
+
+      if (pole_sud) then
+        DO  ij = 1,iip1
+         x( ij +ip1jm,l ) = 0.
+        ENDDO
+      endif
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrad_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrad_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrad_p.F	(revision 3330)
@@ -0,0 +1,67 @@
+      SUBROUTINE nxgrad_p (klevel, rot, x, y )
+c
+c     P. Le Van
+c
+c   ********************************************************************
+c      calcul du gradient tourne de pi/2 du rotationnel du vect.v
+c   ********************************************************************
+c       rot          est un argument  d'entree pour le s-prog
+c       x  et y    sont des arguments de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+      INTEGER klevel
+      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )
+      INTEGER   l,ij
+      INTEGER :: ijb,ije
+c
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 10 l = 1,klevel
+c
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_sud)  ije=ij_end-iip1
+       
+      DO 1  ij = ijb+1, ije
+      y( ij,l ) = (  rot( ij,l ) - rot( ij-1,l )  ) * cvsurcuv( ij )
+   1  CONTINUE
+c
+c    ..... correction pour  y ( 1,j,l )  ......
+c
+c    ....    y(1,j,l)= y(iip1,j,l) ....
+CDIR$ IVDEP
+      DO 2  ij = ijb, ije, iip1
+      y( ij,l ) = y( ij +iim,l )
+   2  CONTINUE
+c
+      ijb=ij_begin
+      ije=ij_end+iip1
+      
+      if (pole_nord)  ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO 4  ij = ijb,ije
+      x( ij,l ) = (  rot( ij,l ) - rot( ij -iip1,l )  ) * cusurcvu( ij )
+   4  CONTINUE
+   
+      if (pole_nord) then 
+        DO ij = 1,iip1
+          x(    ij    ,l ) = 0.
+        ENDDO
+      endif
+      
+      if (pole_sud) then 
+        DO ij = 1,iip1
+          x( ij +ip1jm,l ) = 0.
+        ENDDO
+      endif
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgraro2_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgraro2_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgraro2_p.F	(revision 3330)
@@ -0,0 +1,141 @@
+       SUBROUTINE nxgraro2_p (klevel,xcov, ycov, lr, grx_out, gry_out )
+c
+c      P.Le Van .
+c   ***********************************************************
+c                                 lr
+c      calcul de  ( nxgrad (rot) )   du vect. v  ....
+c
+c       xcov et ycov  etant les compos. covariantes de  v
+c   ***********************************************************
+c     xcov , ycov et lr  sont des arguments  d'entree pour le s-prog
+c      grx   et  gry     sont des arguments de sortie pour le s-prog
+c
+c
+      USE write_Field_p
+      USE parallel_lmdz
+      USE times
+      USE mod_hallo
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissipn.h"
+c
+c    ......  variables en arguments  .......
+c
+      INTEGER klevel
+      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL,SAVE ::  grx( ip1jmp1,llm ),  gry( ip1jm,llm )
+      REAL  grx_out( ip1jmp1,klevel ),  gry_out( ip1jm,klevel )
+c
+c    ......   variables locales     ........
+c
+      REAL,SAVE :: rot(ip1jm,llm)
+      REAL  signe, nugradrs
+      INTEGER l,ij,iter,lr
+      Type(Request) :: Request_dissip
+c    ........................................................
+c
+      INTEGER :: ijb,ije,jjb,jje
+      
+c
+c
+      signe    = (-1.)**lr
+      nugradrs = signe * crot
+c
+c      CALL SCOPY ( ip1jmp1* klevel, xcov, 1, grx, 1 )
+c      CALL SCOPY (  ip1jm * klevel, ycov, 1, gry, 1 )
+ 
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO    l = 1, klevel
+        grx(ijb:ije,l)=xcov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP BARRIER
+       call Register_Hallo(grx,ip1jmp1,llm,0,1,1,0,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO    l = 1, klevel
+        gry(ijb:ije,l)=ycov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+ 
+c
+      CALL     rotatf_p     ( klevel, grx, gry, rot )
+c      call write_field3d_p('rot1',reshape(rot,(/iip1,jjm,llm/)))
+
+c$OMP BARRIER
+       call Register_Hallo(rot,ip1jm,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+      
+      CALL laplacien_rot_p ( klevel, rot, rot,grx,gry      )
+c       call write_field3d_p('rot2',reshape(rot,(/iip1,jjm,llm/)))
+c
+c    .....   Iteration de l'operateur laplacien_rotgam  .....
+c
+      DO  iter = 1, lr -2
+c$OMP BARRIER
+       call Register_Hallo(rot,ip1jm,llm,1,1,1,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+	CALL laplacien_rotgam_p ( klevel, rot, rot )
+      ENDDO
+      
+c       call write_field3d_p('rot3',reshape(rot,(/iip1,jjm,llm/)))
+      
+c
+c
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+       
+      CALL filtreg_p( rot, jjb,jje,jjm, klevel, 2,1, .FALSE.,1)
+c$OMP BARRIER
+       call Register_Hallo(rot,ip1jm,llm,1,0,0,1,Request_dissip)
+       call SendRequest(Request_dissip)
+c$OMP BARRIER
+       call WaitRequest(Request_dissip)
+c$OMP BARRIER
+
+      CALL nxgrad_p ( klevel, rot, grx, gry )
+
+c
+      ijb=ij_begin
+      ije=ij_end
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)    
+      DO    l = 1, klevel
+        
+         if(pole_sud) ije=ij_end-iip1
+         DO  ij = ijb, ije
+          gry_out( ij,l ) = gry( ij,l ) * nugradrs
+         ENDDO
+        
+         if(pole_sud) ije=ij_end
+         DO  ij = ijb, ije
+          grx_out( ij,l ) = grx( ij,l ) * nugradrs
+         ENDDO
+     
+      ENDDO
+c$OMP END DO NOWAIT
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrarot_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrarot_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/nxgrarot_p.F	(revision 3330)
@@ -0,0 +1,100 @@
+      SUBROUTINE nxgrarot_p (klevel,xcov, ycov, lr, grx_out, gry_out )
+c   ***********************************************************
+c
+c    Auteur :  P.Le Van  
+c
+c                                 lr
+c      calcul de  ( nXgrad (rot) )   du vect. v  ....
+c
+c       xcov et ycov  etant les compos. covariantes de  v
+c   ***********************************************************
+c     xcov , ycov et lr  sont des arguments  d'entree pour le s-prog
+c      grx   et  gry     sont des arguments de sortie pour le s-prog
+c
+c
+      USE parallel_lmdz
+      USE times
+      USE write_field_p
+      IMPLICIT NONE
+c
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comdissipn.h"
+c
+      INTEGER klevel
+      REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )
+      REAL  grx_out( ip1jmp1,klevel ),  gry_out( ip1jm,klevel )
+      REAL,SAVE ::  grx( ip1jmp1,llm ),  gry( ip1jm,llm )
+
+c
+      REAL,SAVE :: rot(ip1jm,llm)
+
+      INTEGER l,ij,iter,lr
+c
+      INTEGER ijb,ije,jjb,jje
+c
+c
+c      CALL SCOPY ( ip1jmp1*klevel, xcov, 1, grx, 1 )
+c      CALL SCOPY (  ip1jm*klevel, ycov, 1, gry, 1 )
+c
+      ijb=ij_begin
+      ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)  
+      DO l = 1, klevel
+        grx(ijb:ije,l)=xcov(ijb:ije,l)
+      ENDDO 
+c$OMP END DO NOWAIT      
+
+      if(pole_sud) ije=ij_end-iip1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1, klevel
+        gry(ijb:ije,l)=ycov(ijb:ije,l)
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      DO 10 iter = 1,lr
+c$OMP BARRIER
+c$OMP MASTER
+      call suspend_timer(timer_dissip)
+      call exchange_Hallo(grx,ip1jmp1,llm,0,1)
+      call resume_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER
+
+      CALL  rotat_p (klevel,grx, gry, rot )
+c      call write_field3d_p('rot',reshape(rot,(/iip1,jjm,llm/)))
+      
+      jjb=jj_begin
+      jje=jj_end
+      if (pole_sud) jje=jj_end-1
+      CALL filtreg_p( rot,jjb,jje, jjm, klevel, 2,1, .false.,2)
+
+c$OMP BARRIER
+c$OMP MASTER
+      call suspend_timer(timer_dissip)
+      call exchange_Hallo(rot,ip1jm,llm,1,0)
+      call resume_timer(timer_dissip)
+c$OMP END MASTER
+c$OMP BARRIER
+      
+      CALL nxgrad_p (klevel,rot, grx, gry )
+c
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 5  l = 1, klevel
+      if(pole_sud) ije=ij_end-iip1
+      DO 2 ij = ijb, ije
+      gry_out( ij,l ) = - gry( ij,l ) * crot
+   2  CONTINUE
+      if(pole_sud) ije=ij_end
+      DO 3 ij = ijb, ije
+      grx_out( ij,l ) = - grx( ij,l ) * crot
+   3  CONTINUE
+   5  CONTINUE
+c$OMP END DO NOWAIT
+c      call write_field3d_p('grx',reshape(grx,(/iip1,jjp1,llm/)))
+c      call write_field3d_p('gry',reshape(gry,(/iip1,jjm,llm/)))
+c      stop
+  10  CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/omp_chunk.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/omp_chunk.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/omp_chunk.h	(revision 3330)
@@ -0,0 +1,1 @@
+#define OMP_CHUNK 5
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/parallel_lmdz.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/parallel_lmdz.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/parallel_lmdz.F90	(revision 3330)
@@ -0,0 +1,643 @@
+! 
+! $Id: parallel.F90 1810 2013-07-24 08:06:39Z emillour $
+!
+  MODULE parallel_lmdz
+  USE mod_const_mpi
+#ifdef CPP_IOIPSL
+      use IOIPSL, only: getin
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin
+      use ioipsl_getincom, only: getin
+#endif    
+    
+    LOGICAL,SAVE :: using_mpi=.TRUE.
+    LOGICAL,SAVE :: using_omp
+    
+    integer, save :: mpi_size
+    integer, save :: mpi_rank
+    integer, save :: jj_begin
+    integer, save :: jj_end
+    integer, save :: jj_nb
+    integer, save :: ij_begin
+    integer, save :: ij_end
+    logical, save :: pole_nord
+    logical, save :: pole_sud
+    
+    integer, allocatable, save, dimension(:) :: jj_begin_para
+    integer, allocatable, save, dimension(:) :: jj_end_para
+    integer, allocatable, save, dimension(:) :: jj_nb_para
+    integer, save :: OMP_CHUNK
+    integer, save :: omp_rank
+    integer, save :: omp_size  
+!$OMP THREADPRIVATE(omp_rank)
+
+! Ehouarn: add "dummy variables" (which are in dyn3d_mem/parallel_lmdz.F90)
+! so that calfis_loc compiles even if using dyn3dpar
+    integer,save  :: jjb_u
+    integer,save  :: jje_u
+    integer,save  :: jjnb_u
+    integer,save  :: jjb_v
+    integer,save  :: jje_v
+    integer,save  :: jjnb_v    
+
+    integer,save  :: ijb_u
+    integer,save  :: ije_u
+    integer,save  :: ijnb_u    
+    
+    integer,save  :: ijb_v
+    integer,save  :: ije_v
+    integer,save  :: ijnb_v    
+
+ contains
+ 
+    subroutine init_parallel
+    USE vampir
+    implicit none
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif
+#include "dimensions.h"
+#include "paramet.h"
+#include "iniprint.h"
+
+      integer :: ierr
+      integer :: i,j
+      integer :: type_size
+      integer, dimension(3) :: blocklen,type
+      integer :: comp_id
+      character(len=4)  :: num
+      character(len=20) :: filename
+ 
+#ifdef CPP_OMP    
+      INTEGER :: OMP_GET_NUM_THREADS
+      EXTERNAL OMP_GET_NUM_THREADS
+      INTEGER :: OMP_GET_THREAD_NUM
+      EXTERNAL OMP_GET_THREAD_NUM
+#endif  
+
+#ifdef CPP_MPI
+       using_mpi=.TRUE.
+#else
+       using_mpi=.FALSE.
+#endif
+      
+
+#ifdef CPP_OMP
+       using_OMP=.TRUE.
+#else
+       using_OMP=.FALSE.
+#endif
+      
+      call InitVampir
+      
+      IF (using_mpi) THEN
+#ifdef CPP_MPI
+        call MPI_COMM_SIZE(COMM_LMDZ,mpi_size,ierr)
+        call MPI_COMM_RANK(COMM_LMDZ,mpi_rank,ierr)
+#endif
+      ELSE
+        mpi_size=1
+        mpi_rank=0
+      ENDIF
+
+
+! Open text output file with mpi_rank in suffix of file name 
+      IF (lunout /= 5 .and. lunout /= 6) THEN
+         WRITE(num,'(I4.4)') mpi_rank
+         filename='lmdz.out_'//num
+         IF (mpi_rank .NE. 0) THEN
+            OPEN(UNIT=lunout,FILE=TRIM(filename),ACTION='write', &
+               STATUS='unknown',FORM='formatted',IOSTAT=ierr) 
+         ENDIF
+      ENDIF
+
+      
+      allocate(jj_begin_para(0:mpi_size-1))
+      allocate(jj_end_para(0:mpi_size-1))
+      allocate(jj_nb_para(0:mpi_size-1))
+      
+      do i=0,mpi_size-1
+        jj_nb_para(i)=(jjm+1)/mpi_size
+        if ( i < MOD((jjm+1),mpi_size) ) jj_nb_para(i)=jj_nb_para(i)+1
+        
+        if (jj_nb_para(i) <= 2 ) then
+          
+         write(lunout,*)"Arret : le nombre de bande de lattitude par process est trop faible (<2)."
+         write(lunout,*)" ---> diminuez le nombre de CPU ou augmentez la taille en lattitude"
+          
+#ifdef CPP_MPI
+          IF (using_mpi) call MPI_ABORT(COMM_LMDZ,-1, ierr)
+#endif          
+        endif
+        
+      enddo
+      
+!      jj_nb_para(0)=11
+!      jj_nb_para(1)=25
+!      jj_nb_para(2)=25
+!      jj_nb_para(3)=12      
+
+      j=1
+      
+      do i=0,mpi_size-1 
+        
+        jj_begin_para(i)=j
+        jj_end_para(i)=j+jj_Nb_para(i)-1
+        j=j+jj_Nb_para(i)
+      
+      enddo
+      
+      jj_begin = jj_begin_para(mpi_rank)
+      jj_end   = jj_end_para(mpi_rank)
+      jj_nb    = jj_nb_para(mpi_rank)
+      
+      ij_begin=(jj_begin-1)*iip1+1
+      ij_end=jj_end*iip1
+      
+      if (mpi_rank.eq.0) then
+        pole_nord=.TRUE.
+      else 
+        pole_nord=.FALSE.
+      endif
+      
+      if (mpi_rank.eq.mpi_size-1) then
+        pole_sud=.TRUE.
+      else 
+        pole_sud=.FALSE.
+      endif
+        
+      write(lunout,*)"init_parallel: jj_begin",jj_begin
+      write(lunout,*)"init_parallel: jj_end",jj_end
+      write(lunout,*)"init_parallel: ij_begin",ij_begin
+      write(lunout,*)"init_parallel: ij_end",ij_end
+
+!$OMP PARALLEL
+
+#ifdef CPP_OMP
+!$OMP MASTER
+        omp_size=OMP_GET_NUM_THREADS()
+!$OMP END MASTER
+!$OMP BARRIER
+        omp_rank=OMP_GET_THREAD_NUM()    
+
+!Config  Key  = omp_chunk
+!Config  Desc = taille des blocs openmp
+!Config  Def  = 1
+!Config  Help = defini la taille des packets d'it�ration openmp
+!Config         distribue a chaque tache lors de l'entree dans une
+!Config         boucle parallelisee
+
+!$OMP MASTER
+      omp_chunk=(llm+1)/omp_size
+      IF (MOD(llm+1,omp_size)/=0) omp_chunk=omp_chunk+1
+      CALL getin('omp_chunk',omp_chunk)
+!$OMP END MASTER
+!$OMP BARRIER        
+#else    
+        omp_size=1
+        omp_rank=0
+#endif
+!$OMP END PARALLEL         
+    
+    end subroutine init_parallel
+
+    
+    subroutine SetDistrib(jj_Nb_New)
+    implicit none
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      INTEGER,dimension(0:MPI_Size-1) :: jj_Nb_New
+      INTEGER :: i  
+  
+      jj_Nb_Para=jj_Nb_New
+      
+      jj_begin_para(0)=1
+      jj_end_para(0)=jj_Nb_Para(0)
+      
+      do i=1,mpi_size-1 
+        
+        jj_begin_para(i)=jj_end_para(i-1)+1
+        jj_end_para(i)=jj_begin_para(i)+jj_Nb_para(i)-1
+      
+      enddo
+      
+      jj_begin = jj_begin_para(mpi_rank)
+      jj_end   = jj_end_para(mpi_rank)
+      jj_nb    = jj_nb_para(mpi_rank)
+      
+      ij_begin=(jj_begin-1)*iip1+1
+      ij_end=jj_end*iip1
+
+    end subroutine SetDistrib
+
+
+
+    
+    subroutine Finalize_parallel
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+	USE wxios
+#endif
+#ifdef CPP_COUPLE
+! Use of Oasis-MCT coupler 
+#if defined CPP_OMCT
+    use mod_prism
+#else
+    use mod_prism_proto
+#endif
+! Ehouarn: surface_data module is in 'phylmd' ...
+      use surface_data, only : type_ocean
+      implicit none
+#else
+      implicit none
+! without the surface_data module, we declare (and set) a dummy 'type_ocean'
+      character(len=6),parameter :: type_ocean="dummy"
+#endif
+! #endif of #ifdef CPP_EARTH
+
+      include "dimensions.h"
+      include "paramet.h"
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif      
+
+      integer :: ierr
+      integer :: i
+
+      if (allocated(jj_begin_para)) deallocate(jj_begin_para)
+      if (allocated(jj_end_para))   deallocate(jj_end_para)
+      if (allocated(jj_nb_para))    deallocate(jj_nb_para)
+
+      if (type_ocean == 'couple') then
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#else
+#ifdef CPP_COUPLE
+         call prism_terminate_proto(ierr)
+         IF (ierr .ne. PRISM_Ok) THEN
+            call abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
+         endif
+#endif 
+#endif
+      else
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#endif
+#ifdef CPP_MPI
+         IF (using_mpi) call MPI_FINALIZE(ierr)
+#endif
+      end if
+      
+    end subroutine Finalize_parallel
+        
+    subroutine Pack_Data(Field,ij,ll,row,Buffer)
+    implicit none
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      integer, intent(in) :: ij,ll,row
+      real,dimension(ij,ll),intent(in) ::Field
+      real,dimension(ll*iip1*row), intent(out) :: Buffer 
+            
+      integer :: Pos
+      integer :: i,l
+      
+      Pos=0
+      do l=1,ll
+        do i=1,row*iip1
+          Pos=Pos+1
+          Buffer(Pos)=Field(i,l)
+        enddo
+      enddo
+      
+    end subroutine Pack_data 
+     
+    subroutine Unpack_Data(Field,ij,ll,row,Buffer)
+    implicit none
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      integer, intent(in) :: ij,ll,row
+      real,dimension(ij,ll),intent(out) ::Field
+      real,dimension(ll*iip1*row), intent(in) :: Buffer 
+            
+      integer :: Pos
+      integer :: i,l
+      
+      Pos=0
+      
+      do l=1,ll
+        do i=1,row*iip1
+          Pos=Pos+1
+          Field(i,l)=Buffer(Pos)
+        enddo
+      enddo
+      
+    end subroutine UnPack_data
+
+    
+    SUBROUTINE barrier
+    IMPLICIT NONE
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER :: ierr
+    
+!$OMP CRITICAL (MPI)      
+#ifdef CPP_MPI
+      IF (using_mpi) CALL MPI_Barrier(COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+    
+    END SUBROUTINE barrier
+       
+      
+    subroutine exchange_hallo(Field,ij,ll,up,down)
+    USE Vampir
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: up,down
+      
+      INTEGER :: ierr
+      LOGICAL :: SendUp,SendDown
+      LOGICAL :: RecvUp,RecvDown
+      INTEGER, DIMENSION(4) :: Request
+#ifdef CPP_MPI
+      INTEGER, DIMENSION(MPI_STATUS_SIZE,4) :: Status
+#else
+      INTEGER, DIMENSION(1,4) :: Status
+#endif
+      INTEGER :: NbRequest
+      REAL, dimension(:),allocatable :: Buffer_Send_up,Buffer_Send_down
+      REAL, dimension(:),allocatable :: Buffer_Recv_up,Buffer_Recv_down
+      INTEGER :: Buffer_size      
+
+      IF (using_mpi) THEN
+
+        CALL barrier
+      
+        call VTb(VThallo)
+      
+        SendUp=.TRUE.
+        SendDown=.TRUE.
+        RecvUp=.TRUE.
+        RecvDown=.TRUE.
+          
+        IF (pole_nord) THEN
+          SendUp=.FALSE.
+          RecvUp=.FALSE.
+        ENDIF
+    
+        IF (pole_sud) THEN
+          SendDown=.FALSE.
+          RecvDown=.FALSE.
+        ENDIF
+        
+        if (up.eq.0) then
+          SendDown=.FALSE.
+          RecvUp=.FALSE.
+        endif
+      
+        if (down.eq.0) then
+          SendUp=.FALSE.
+          RecvDown=.FALSE.
+        endif
+      
+        NbRequest=0
+  
+        IF (SendUp) THEN
+          NbRequest=NbRequest+1
+          buffer_size=down*iip1*ll
+          allocate(Buffer_Send_up(Buffer_size))
+          call PACK_Data(Field(ij_begin,1),ij,ll,down,Buffer_Send_up)
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_ISSEND(Buffer_send_up,Buffer_Size,MPI_REAL8,MPI_Rank-1,1,     &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+        ENDIF
+  
+        IF (SendDown) THEN
+          NbRequest=NbRequest+1
+           
+          buffer_size=up*iip1*ll
+          allocate(Buffer_Send_down(Buffer_size))
+          call PACK_Data(Field(ij_end+1-up*iip1,1),ij,ll,up,Buffer_send_down)
+        
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_ISSEND(Buffer_send_down,Buffer_Size,MPI_REAL8,MPI_Rank+1,1,     &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+        ENDIF
+    
+  
+        IF (RecvUp) THEN
+          NbRequest=NbRequest+1
+          buffer_size=up*iip1*ll
+          allocate(Buffer_recv_up(Buffer_size))
+              
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_IRECV(Buffer_recv_up,Buffer_size,MPI_REAL8,MPI_Rank-1,1,  &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+     
+       
+        ENDIF
+  
+        IF (RecvDown) THEN
+          NbRequest=NbRequest+1
+          buffer_size=down*iip1*ll
+          allocate(Buffer_recv_down(Buffer_size))
+        
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+          call MPI_IRECV(Buffer_recv_down,Buffer_size,MPI_REAL8,MPI_Rank+1,1,     &
+                          COMM_LMDZ,Request(NbRequest),ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+        
+        ENDIF
+  
+#ifdef CPP_MPI
+        if (NbRequest > 0) call MPI_WAITALL(NbRequest,Request,Status,ierr)
+#endif
+        IF (RecvUp)  call Unpack_Data(Field(ij_begin-up*iip1,1),ij,ll,up,Buffer_Recv_up)
+        IF (RecvDown) call Unpack_Data(Field(ij_end+1,1),ij,ll,down,Buffer_Recv_down)  
+
+        call VTe(VThallo)
+        call barrier
+      
+      ENDIF  ! using_mpi
+      
+      RETURN
+      
+    end subroutine exchange_Hallo
+    
+
+    subroutine Gather_Field(Field,ij,ll,rank)
+    implicit none
+#include "dimensions.h"
+#include "paramet.h" 
+#include "iniprint.h"
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll,rank
+      REAL, dimension(ij,ll) :: Field
+      REAL, dimension(:),allocatable :: Buffer_send   
+      REAL, dimension(:),allocatable :: Buffer_Recv
+      INTEGER, dimension(0:MPI_Size-1) :: Recv_count, displ
+      INTEGER :: ierr
+      INTEGER ::i
+      
+      IF (using_mpi) THEN
+
+        if (ij==ip1jmp1) then 
+           allocate(Buffer_send(iip1*ll*(jj_end-jj_begin+1)))
+           call Pack_Data(Field(ij_begin,1),ij,ll,jj_end-jj_begin+1,Buffer_send)
+        else if (ij==ip1jm) then
+           allocate(Buffer_send(iip1*ll*(min(jj_end,jjm)-jj_begin+1)))
+           call Pack_Data(Field(ij_begin,1),ij,ll,min(jj_end,jjm)-jj_begin+1,Buffer_send)
+        else
+           write(lunout,*)ij  
+        stop 'erreur dans Gather_Field'
+        endif
+        
+        if (MPI_Rank==rank) then
+          allocate(Buffer_Recv(ij*ll))
+
+!CDIR NOVECTOR
+          do i=0,MPI_Size-1
+             
+            if (ij==ip1jmp1) then 
+              Recv_count(i)=(jj_end_para(i)-jj_begin_para(i)+1)*ll*iip1
+            else if (ij==ip1jm) then
+              Recv_count(i)=(min(jj_end_para(i),jjm)-jj_begin_para(i)+1)*ll*iip1
+            else
+              stop 'erreur dans Gather_Field'
+            endif
+                   
+            if (i==0) then 
+              displ(i)=0 
+            else
+              displ(i)=displ(i-1)+Recv_count(i-1)
+            endif
+            
+          enddo
+          
+        else
+          ! Ehouarn: When in debug mode, ifort complains (for call MPI_GATHERV
+          !          below) about Buffer_Recv() being not allocated.
+          !          So make a dummy allocation.
+          allocate(Buffer_Recv(1))
+        endif ! of if (MPI_Rank==rank)
+  
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+        call MPI_GATHERV(Buffer_send,(min(ij_end,ij)-ij_begin+1)*ll,MPI_REAL8,   &
+                          Buffer_Recv,Recv_count,displ,MPI_REAL8,rank,COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      
+        if (MPI_Rank==rank) then                  
+      
+          if (ij==ip1jmp1) then 
+            do i=0,MPI_Size-1
+              call Unpack_Data(Field((jj_begin_para(i)-1)*iip1+1,1),ij,ll,                 &
+                               jj_end_para(i)-jj_begin_para(i)+1,Buffer_Recv(displ(i)+1))
+            enddo
+          else if (ij==ip1jm) then
+            do i=0,MPI_Size-1
+               call Unpack_Data(Field((jj_begin_para(i)-1)*iip1+1,1),ij,ll,                       &
+                               min(jj_end_para(i),jjm)-jj_begin_para(i)+1,Buffer_Recv(displ(i)+1))
+            enddo
+          endif
+        endif 
+      ENDIF ! using_mpi
+      
+    end subroutine Gather_Field
+
+
+    subroutine AllGather_Field(Field,ij,ll)
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: ierr
+      
+      IF (using_mpi) THEN
+        call Gather_Field(Field,ij,ll,0)
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+      call MPI_BCAST(Field,ij*ll,MPI_REAL8,0,COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      ENDIF
+      
+    end subroutine AllGather_Field
+    
+   subroutine Broadcast_Field(Field,ij,ll,rank)
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"    
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif    
+      INTEGER :: ij,ll
+      REAL, dimension(ij,ll) :: Field
+      INTEGER :: rank
+      INTEGER :: ierr
+      
+      IF (using_mpi) THEN
+      
+!$OMP CRITICAL (MPI)
+#ifdef CPP_MPI
+      call MPI_BCAST(Field,ij*ll,MPI_REAL8,rank,COMM_LMDZ,ierr)
+#endif
+!$OMP END CRITICAL (MPI)
+      
+      ENDIF
+    end subroutine Broadcast_Field
+        
+   
+!  Subroutine verif_hallo(Field,ij,ll,up,down)
+!    implicit none
+!#include "dimensions.h"
+!#include "paramet.h"    
+!    include 'mpif.h'
+!    
+!      INTEGER :: ij,ll
+!      REAL, dimension(ij,ll) :: Field
+!      INTEGER :: up,down 
+!      
+!      REAL,dimension(ij,ll): NewField
+!      
+!      NewField=0
+!      
+!      ijb=ij_begin
+!      ije=ij_end
+!      if (pole_nord) 
+!      NewField(ij_be       
+
+  end MODULE parallel_lmdz
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/paramet.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/paramet.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/paramet.h	(revision 3330)
@@ -0,0 +1,29 @@
+!
+! $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)
+!
+!
+!-----------------------------------------------------------------------
+!   INCLUDE 'paramet.h'
+
+      INTEGER  iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1
+      INTEGER  kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm
+      INTEGER  ijmllm,mvar
+      INTEGER jcfil,jcfllm
+
+      PARAMETER( iip1= iim+1,iip2=iim+2,iip3=iim+3                      &
+     &    ,jjp1=jjm+1-1/jjm)
+      PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
+      PARAMETER( kftd  = iim/2 -ndm )
+      PARAMETER( ip1jm  = iip1*jjm,  ip1jmp1= iip1*jjp1 )
+      PARAMETER( ip1jmi1= ip1jm - iip1 )
+      PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm )
+      PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm )
+      PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm )
+
+!-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/pression_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/pression_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/pression_p.F	(revision 3330)
@@ -0,0 +1,40 @@
+      SUBROUTINE pression_p( ngrid, ap, bp, ps, p )
+      USE parallel_lmdz
+c
+
+c      Auteurs : P. Le Van , Fr.Hourdin  .
+
+c  ************************************************************************
+c     Calcule la pression p(l) aux differents niveaux l = 1 ( niveau du
+c     sol) a l = llm +1 ,ces niveaux correspondant aux interfaces des (llm) 
+c     couches , avec  p(ij,llm +1) = 0.  et p(ij,1) = ps(ij)  .      
+c  ************************************************************************
+c
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+      INTEGER ngrid
+      INTEGER l,ij
+ 
+      REAL ap( llmp1 ), bp( llmp1 ), ps( ngrid ), p( ngrid,llmp1 ) 
+      
+      INTEGER ijb,ije
+
+      
+      ijb=ij_begin-iip1
+      ije=ij_end+2*iip1
+      
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+      DO    l    = 1, llmp1
+        DO  ij   = ijb, ije
+         p(ij,l) = ap(l) + bp(l) * ps(ij)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT   
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/qminimum_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/qminimum_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/qminimum_p.F	(revision 3330)
@@ -0,0 +1,106 @@
+      SUBROUTINE qminimum_p( q,nq,deltap )
+      USE parallel_lmdz
+      IMPLICIT none
+c
+c  -- Objet : Traiter les valeurs trop petites (meme negatives)
+c             pour l'eau vapeur et l'eau liquide
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+      INTEGER nq
+      REAL q(ip1jmp1,llm,nq), deltap(ip1jmp1,llm)
+c
+      INTEGER iq_vap, iq_liq
+      PARAMETER ( iq_vap = 1 ) ! indice pour l'eau vapeur
+      PARAMETER ( iq_liq = 2 ) ! indice pour l'eau liquide
+      REAL seuil_vap, seuil_liq
+      PARAMETER ( seuil_vap = 1.0e-10 ) ! seuil pour l'eau vapeur
+      PARAMETER ( seuil_liq = 1.0e-11 ) ! seuil pour l'eau liquide
+c
+c  NB. ....( Il est souhaitable mais non obligatoire que les valeurs des
+c            parametres seuil_vap, seuil_liq soient pareilles a celles 
+c            qui  sont utilisees dans la routine    ADDFI       )
+c     .................................................................
+c
+      INTEGER i, k, iq
+      REAL zx_defau, zx_abc, zx_pump(ip1jmp1), pompe
+c
+      REAL SSUM
+      EXTERNAL SSUM
+c
+      INTEGER imprim
+      SAVE imprim
+      DATA imprim /0/
+c$OMP THREADPRIVATE(imprim)
+      INTEGER ijb,ije
+      INTEGER Index_pump(ip1jmp1)
+      INTEGER nb_pump
+c
+c Quand l'eau liquide est trop petite (ou negative), on prend
+c l'eau vapeur de la meme couche et la convertit en eau liquide
+c (sans changer la temperature !)
+c
+
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO 1000 k = 1, llm
+      DO 1040 i = ijb, ije
+            if (seuil_liq - q(i,k,iq_liq) .gt. 0.d0 ) then
+               q(i,k,iq_vap) = q(i,k,iq_vap) + q(i,k,iq_liq) - seuil_liq
+               q(i,k,iq_liq) = seuil_liq
+            endif
+ 1040 CONTINUE
+ 1000 CONTINUE
+c$OMP END DO NOWAIT
+c$OMP BARRIER
+c --->  SYNCHRO OPENMP ICI
+
+c
+c Quand l'eau vapeur est trop faible (ou negative), on complete
+c le defaut en prennant de l'eau vapeur de la couche au-dessous.
+c
+      iq = iq_vap
+c
+      DO k = llm, 2, -1
+ccc      zx_abc = dpres(k) / dpres(k-1)
+c$OMP DO SCHEDULE(STATIC)
+      DO i = ijb, ije
+         if ( seuil_vap - q(i,k,iq) .gt. 0.d0 ) then
+            q(i,k-1,iq) =  q(i,k-1,iq) - ( seuil_vap - q(i,k,iq) ) *
+     &           deltap(i,k) / deltap(i,k-1)
+            q(i,k,iq)   =  seuil_vap  
+         endif
+      ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+c$OMP BARRIER
+c
+c Quand il s'agit de la premiere couche au-dessus du sol, on
+c doit imprimer un message d'avertissement (saturation possible).
+c
+      nb_pump=0
+c$OMP DO SCHEDULE(STATIC)
+      DO i = ijb, ije
+         zx_pump(i) = AMAX1( 0.0, seuil_vap - q(i,1,iq) )
+         q(i,1,iq)  = AMAX1( q(i,1,iq), seuil_vap )
+         IF (zx_pump(i) > 0.0) THEN
+            nb_pump = nb_pump+1
+            Index_pump(nb_pump)=i
+         ENDIF
+      ENDDO
+c$OMP END DO  
+!      pompe = SSUM(ije-ijb+1,zx_pump(ijb),1)
+
+      IF (imprim.LE.100 .AND. nb_pump .GT. 0 ) THEN
+         PRINT *, 'ATT!:on pompe de l eau au sol'
+         DO i = 1, nb_pump
+               imprim = imprim + 1
+               PRINT*,'  en ',index_pump(i),zx_pump(index_pump(i))
+         ENDDO
+      ENDIF
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotat_nfil_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotat_nfil_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotat_nfil_p.F	(revision 3330)
@@ -0,0 +1,52 @@
+      SUBROUTINE rotat_nfil_p (klevel, x, y, rot )
+c
+c    Auteur :   P.Le Van 
+c**************************************************************
+c.          Calcule le rotationnel  non filtre   ,
+c      a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+      INTEGER :: ijb,ije
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO  10 l = 1,klevel
+c
+        DO   ij = ijb, ije - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = ijb+iip1-1, ije, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotat_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotat_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotat_p.F	(revision 3330)
@@ -0,0 +1,63 @@
+      SUBROUTINE rotat_p (klevel, x, y, rot )
+c
+c     Auteur : P.Le Van 
+c**************************************************************
+c.  calcule le rotationnel
+c     a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+      INTEGER :: ijb,ije
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO  10 l = 1,klevel
+c
+        DO   ij = ijb, ije - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = ijb+iip1-1, ije, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+ccc        CALL filtreg( rot, jjm, klevel, 2, 2, .FALSE., 1 )
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l = 1, klevel
+          DO ij = ijb, ije
+           rot(ij,l) = rot(ij,l) * unsairez(ij)
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotatf_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotatf_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/rotatf_p.F	(revision 3330)
@@ -0,0 +1,67 @@
+      SUBROUTINE rotatf_p (klevel, x, y, rot )
+c
+c     Auteur : P.Le Van 
+c**************************************************************
+c.  calcule le rotationnel
+c     a tous les niveaux d'1 vecteur de comp. x et y ..
+c       x  et  y etant des composantes  covariantes  ...
+c********************************************************************
+c   klevel, x  et y   sont des arguments d'entree pour le s-prog
+c        rot          est  un argument  de sortie pour le s-prog
+c
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c   .....  variables en arguments  ......
+c
+      INTEGER klevel
+      REAL rot( ip1jm,klevel )
+      REAL x( ip1jmp1,klevel ), y( ip1jm,klevel )
+c
+c  ...   variables  locales  ...
+c
+      INTEGER  l, ij
+      INTEGER :: ijb,ije,jjb,jje
+c
+c
+      ijb=ij_begin
+      ije=ij_end
+      if(pole_sud) ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO  10 l = 1,klevel
+c
+        DO   ij = ijb, ije - 1
+         rot( ij,l )  =    y( ij+1 , l )  -  y( ij,l )   +
+     *                   x(ij +iip1, l )  -  x( ij,l )  
+        ENDDO
+c
+c    .... correction pour rot( iip1,j,l)  ....
+c    ....   rot(iip1,j,l)= rot(1,j,l) ...
+CDIR$ IVDEP
+        DO  ij = ijb+iip1-1, ije, iip1
+         rot( ij,l ) = rot( ij -iim,l )
+        ENDDO
+c
+  10  CONTINUE
+c$OMP END DO NOWAIT
+        jjb=jj_begin
+        jje=jj_end
+        if (pole_sud) jje=jj_end-1
+        CALL filtreg_p( rot, jjb,jje,jjm, klevel, 2, 2, .FALSE., 1 )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+        DO l = 1, klevel
+          DO ij = ijb, ije
+           rot(ij,l) = rot(ij,l) * unsairez(ij)
+          ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c
+c
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/sw_case_williamson91_6.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/sw_case_williamson91_6.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/sw_case_williamson91_6.F	(revision 3330)
@@ -0,0 +1,141 @@
+!
+! $Id $
+!
+      SUBROUTINE sw_case_williamson91_6(vcov,ucov,teta,masse,ps)
+
+c=======================================================================
+c
+c   Author:    Thomas Dubos      original: 26/01/2010
+c   -------
+c
+c   Subject:
+c   ------
+c   Realise le cas-test 6 de Williamson et al. (1991) : onde de Rossby-Haurwitz
+c
+c   Method:
+c   --------
+c
+c   Interface:
+c   ----------
+c
+c      Input:
+c      ------
+c
+c      Output:
+c      -------
+c
+c=======================================================================
+      USE comconst_mod, ONLY: cpp, omeg, rad
+      USE comvert_mod, ONLY: ap, bp, preff
+      
+      IMPLICIT NONE
+c-----------------------------------------------------------------------
+c   Declararations:
+c   ---------------
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+c   variables dynamiques
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) ! vents covariants
+      REAL teta(ip1jmp1,llm)                 ! temperature potentielle
+      REAL ps(ip1jmp1)                       ! pression  au sol
+      REAL masse(ip1jmp1,llm)                ! masse d'air
+      REAL phis(ip1jmp1)                     ! geopotentiel au sol
+
+c   Local:
+c   ------
+
+      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
+      REAL pks(ip1jmp1)                      ! exner au  sol
+      REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
+      REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
+      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
+
+      REAL :: sinth,costh,costh2, Ath,Bth,Cth, lon,dps
+      INTEGER i,j,ij
+
+      REAL, PARAMETER    :: rho=1 ! masse volumique de l'air (arbitraire)
+      REAL, PARAMETER    :: K    = 7.848e-6  ! K = \omega
+      REAL, PARAMETER    :: gh0  = 9.80616 * 8e3 
+      INTEGER, PARAMETER :: R0=4, R1=R0+1, R2=R0+2         ! mode 4
+c NB : rad = 6371220 dans W91 (6371229 dans LMDZ)
+c      omeg = 7.292e-5 dans W91 (7.2722e-5 dans LMDZ)
+ 
+      IF(0==0) THEN
+c Williamson et al. (1991) : onde de Rossby-Haurwitz
+         teta = preff/rho/cpp
+c geopotentiel (pression de surface)
+         do j=1,jjp1
+            costh2 = cos(rlatu(j))**2
+            Ath = (R0+1)*(costh2**2) + (2*R0*R0-R0-2)*costh2 - 2*R0*R0
+            Ath = .25*(K**2)*(costh2**(R0-1))*Ath
+            Ath = .5*K*(2*omeg+K)*costh2 + Ath 
+            Bth = (R1*R1+1)-R1*R1*costh2
+            Bth = 2*(omeg+K)*K/(R1*R2) * (costh2**(R0/2))*Bth
+            Cth = R1*costh2 - R2
+            Cth = .25*K*K*(costh2**R0)*Cth
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonv(i)
+               dps = Ath + Bth*cos(R0*lon) + Cth*cos(2*R0*lon)
+               ps(ij) = rho*(gh0 + (rad**2)*dps)
+            enddo
+         enddo
+         write(lunout,*) 'W91 ps', MAXVAL(ps), MINVAL(ps)
+c vitesse zonale ucov
+         do j=1,jjp1
+            costh  = cos(rlatu(j))
+            costh2 = costh**2
+            Ath = rad*K*costh
+            Bth = R0*(1-costh2)-costh2
+            Bth = rad*K*Bth*(costh**(R0-1))
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonu(i)
+               ucov(ij,1) = (Ath + Bth*cos(R0*lon))
+            enddo
+         enddo
+         write(lunout,*) 'W91 u', MAXVAL(ucov(:,1)), MINVAL(ucov(:,1))
+         ucov(:,1)=ucov(:,1)*cu
+c vitesse meridienne vcov
+         do j=1,jjm
+            sinth  = sin(rlatv(j))
+            costh  = cos(rlatv(j))
+            Ath = -rad*K*R0*sinth*(costh**(R0-1))
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               lon = rlonv(i)
+               vcov(ij,1) = Ath*sin(R0*lon)
+            enddo
+         enddo
+         write(lunout,*) 'W91 v', MAXVAL(vcov(:,1)), MINVAL(vcov(:,1))
+         vcov(:,1)=vcov(:,1)*cv
+         
+c         ucov=0
+c         vcov=0
+      ELSE
+c test non-tournant, onde se propageant en latitude
+         do j=1,jjp1
+            do i=1,iip1
+               ij=(j-1)*iip1+i
+               ps(ij) = 1e5*(1 + .1*exp(-100*(1+sin(rlatu(j)))**2) )
+            enddo
+         enddo
+         
+c     rho = preff/(cpp*teta)
+         teta = .01*preff/cpp   ! rho = 100 ; phi = ps/rho = 1e3 ; c=30 m/s = 2600 km/j = 23 degres / j
+         ucov=0.
+         vcov=0.
+      END IF      
+      
+      CALL pression ( ip1jmp1, ap, bp, ps, p       )
+      CALL massdair(p,masse)
+
+      END
+c-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/temps_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/temps_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/temps_mod.F90	(revision 3330)
@@ -0,0 +1,33 @@
+!
+! $Id$
+!
+MODULE temps_mod
+
+IMPLICIT NONE  
+
+  INTEGER   itaufin ! total number of dynamical steps for the run
+  INTEGER   itau_dyn
+  INTEGER   itau_phy
+  INTEGER   day_ini ! initial day # of simulation sequence
+  INTEGER   day_end ! final day # ; i.e. day # when this simulation ends
+  INTEGER   annee_ref
+  INTEGER   day_ref
+  REAL      dt ! (dynamics) time step (changes if doing Matsuno or LF step)
+  REAL      jD_ref ! reference julian day date (beginning of experiment)
+  REAL      jH_ref ! reference julian "hour" of reference julian date
+  REAL      start_time
+  CHARACTER (len=10) :: calend ! calendar type
+
+  ! Additionnal Mars stuff:
+  REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1)
+
+!$OMP THREADPRIVATE(dt,jD_ref,jH_ref,start_time,hour_ini,                        &
+!$OMP                day_ini,day_end,annee_ref,day_ref,itau_dyn,itau_phy,itaufin,&
+!$OMP                calend)        
+
+!WARNING: when adding a threadprivate variable in this module
+!        do not forget to add it to the copyin clause when opening an OpenMP
+!        parallel section. e.g. in gcm before call leapfrog_loc and/or
+!        possibly in iniphysiq
+
+END MODULE temps_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/times.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/times.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/times.F90	(revision 3330)
@@ -0,0 +1,248 @@
+module times
+  integer,private,save :: Last_Count=0
+  real, private,save :: Last_cpuCount=0
+  logical, private,save :: AllTimer_IsActive=.false.
+  
+  integer, parameter :: nb_timer = 4
+  integer, parameter :: timer_caldyn  = 1
+  integer, parameter :: timer_vanleer = 2
+  integer, parameter :: timer_dissip = 3
+  integer, parameter :: timer_physic = 4
+  integer, parameter :: stopped = 1
+  integer, parameter :: running = 2
+  integer, parameter :: suspended = 3 
+  
+  integer :: max_size
+  real,    allocatable, dimension(:,:,:) :: timer_table
+  real,    allocatable, dimension(:,:,:) :: timer_table_sqr 
+  integer, allocatable, dimension(:,:,:) :: timer_iteration
+  real,    allocatable, dimension(:,:,:) :: timer_average
+  real,    allocatable, dimension(:,:,:) :: timer_delta
+  real,    allocatable,dimension(:) :: timer_running, last_time
+  integer, allocatable,dimension(:) :: timer_state
+  
+  contains
+  
+  subroutine init_timer
+    USE parallel_lmdz
+    implicit none
+#include "dimensions.h"
+#include "paramet.h"
+    
+    max_size=jjm+1
+    allocate(timer_table(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_table_sqr(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_iteration(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_average(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_delta(max_size,nb_timer,0:mpi_size-1))
+    allocate(timer_running(nb_timer))
+    allocate(timer_state(nb_timer))
+    allocate(last_time(nb_timer))
+    
+    timer_table(:,:,:)=0
+    timer_table_sqr(:,:,:)=0
+    timer_iteration(:,:,:)=0
+    timer_average(:,:,:)=0
+    timer_delta(:,:,:)=0
+    timer_state(:)=stopped      
+  end subroutine init_timer
+  
+  subroutine start_timer(no_timer)
+    implicit none
+    integer :: no_timer
+    
+    if (AllTimer_IsActive) then
+    
+      if (timer_state(no_timer)/=stopped) then
+        stop 'start_timer :: timer is already running or suspended'
+      else
+        timer_state(no_timer)=running
+      endif
+      
+      timer_running(no_timer)=0
+      call cpu_time(last_time(no_timer))
+    
+    endif
+    
+  end subroutine start_timer
+  
+  subroutine suspend_timer(no_timer)
+    implicit none
+    integer :: no_timer
+     
+    if (AllTimer_IsActive) then   
+      if (timer_state(no_timer)/=running) then
+        stop 'suspend_timer :: timer is not running'
+      else
+        timer_state(no_timer)=suspended
+      endif
+    
+      timer_running(no_timer)=timer_running(no_timer)-last_time(no_timer)
+      call cpu_time(last_time(no_timer))
+      timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
+    endif
+  end subroutine suspend_timer
+  
+  subroutine resume_timer(no_timer)
+    implicit none
+    integer :: no_timer
+     
+    if (AllTimer_IsActive) then   
+      if (timer_state(no_timer)/=suspended) then
+        stop 'resume_timer :: timer is not suspended'
+      else
+        timer_state(no_timer)=running
+      endif
+      
+      call cpu_time(last_time(no_timer))
+    endif
+    
+  end subroutine resume_timer
+
+  subroutine stop_timer(no_timer)
+    USE parallel_lmdz
+    implicit none
+    integer :: no_timer
+    integer :: N
+    real :: V,V2
+    
+    if (AllTimer_IsActive) then
+       
+      if (timer_state(no_timer)/=running) then
+        stop 'stop_timer :: timer is not running'
+      else
+        timer_state(no_timer)=stopped
+      endif
+    
+      timer_running(no_timer)=timer_running(no_timer)-last_time(no_timer)
+      call cpu_time(last_time(no_timer))
+      timer_running(no_timer)=timer_running(no_timer)+last_time(no_timer)
+    
+      timer_table(jj_nb,no_timer,mpi_rank)=timer_table(jj_nb,no_timer,mpi_rank)+timer_running(no_timer)
+      timer_table_sqr(jj_nb,no_timer,mpi_rank)=timer_table_sqr(jj_nb,no_timer,mpi_rank)+timer_running(no_timer)**2
+      timer_iteration(jj_nb,no_timer,mpi_rank)=timer_iteration(jj_nb,no_timer,mpi_rank)+1
+      timer_average(jj_nb,no_timer,mpi_rank)=timer_table(jj_nb,no_timer,mpi_rank)/timer_iteration(jj_nb,no_timer,mpi_rank)
+      if (timer_iteration(jj_nb,no_timer,mpi_rank)>=2) then
+        N=timer_iteration(jj_nb,no_timer,mpi_rank)
+	V2=timer_table_sqr(jj_nb,no_timer,mpi_rank)
+	V=timer_table(jj_nb,no_timer,mpi_rank)
+	timer_delta(jj_nb,no_timer,mpi_rank)=sqrt(ABS(V2-V*V/N)/(N-1)) 
+      else
+        timer_delta(jj_nb,no_timer,mpi_rank)=0
+      endif
+    endif
+    
+  end subroutine stop_timer
+   
+  subroutine allgather_timer
+    USE parallel_lmdz
+    implicit none
+#ifdef CPP_MPI    
+    include 'mpif.h'
+#endif
+    integer :: ierr
+    integer :: data_size
+    real, allocatable,dimension(:,:) :: tmp_table
+
+    IF (using_mpi) THEN    
+   
+      if (AllTimer_IsActive) then
+    
+    
+      allocate(tmp_table(max_size,nb_timer))
+    
+      data_size=max_size*nb_timer
+    
+      tmp_table(:,:)=timer_table(:,:,mpi_rank)
+#ifdef CPP_MPI 
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif
+      tmp_table(:,:)=timer_table_sqr(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table_sqr(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif    
+      deallocate(tmp_table)
+    
+      endif
+      
+    ENDIF ! using_mpi
+    
+  end subroutine allgather_timer
+  
+  subroutine allgather_timer_average
+    USE parallel_lmdz
+    implicit none
+#ifdef CPP_MPI
+    include 'mpif.h'
+#endif
+    integer :: ierr
+    integer :: data_size
+    real, allocatable,dimension(:,:),target :: tmp_table
+    integer, allocatable,dimension(:,:),target :: tmp_iter
+    integer :: istats
+
+    IF (using_mpi) THEN
+        
+      if (AllTimer_IsActive) then
+    
+      allocate(tmp_table(max_size,nb_timer))
+      allocate(tmp_iter(max_size,nb_timer))
+   
+      data_size=max_size*nb_timer
+
+      tmp_table(:,:)=timer_average(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_average(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif
+      tmp_table(:,:)=timer_delta(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_delta(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr)
+#endif
+      tmp_iter(:,:)=timer_iteration(:,:,mpi_rank)
+#ifdef CPP_MPI
+      call mpi_allgather(tmp_iter(1,1),data_size,MPI_INTEGER,timer_iteration(1,1,0),data_size,MPI_INTEGER,COMM_LMDZ,ierr)
+#endif    
+      deallocate(tmp_table)
+    
+      endif
+      
+    ENDIF  ! using_mp�
+  end subroutine allgather_timer_average
+  
+  subroutine InitTime
+  implicit none
+    integer :: count,count_rate,count_max
+    
+    AllTimer_IsActive=.TRUE.
+    if (AllTimer_IsActive) then
+      call system_clock(count,count_rate,count_max)
+      call cpu_time(Last_cpuCount)
+      Last_Count=count
+    endif
+  end subroutine InitTime
+  
+  function DiffTime()
+  implicit none
+    double precision :: DiffTime
+    integer :: count,count_rate,count_max
+  
+    call system_clock(count,count_rate,count_max)
+    if (Count>=Last_Count) then
+      DiffTime=(1.*(Count-last_Count))/count_rate
+    else
+      DiffTime=(1.*(Count-last_Count+Count_max))/count_rate
+    endif
+    Last_Count=Count 
+  end function DiffTime
+  
+  function DiffCpuTime()
+  implicit none
+    real :: DiffCpuTime
+    real :: Count
+    
+    call cpu_time(Count)
+    DiffCpuTime=Count-Last_cpuCount
+    Last_cpuCount=Count 
+  end function DiffCpuTime
+
+end module times
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/top_bound_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/top_bound_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/top_bound_p.F	(revision 3330)
@@ -0,0 +1,251 @@
+!
+! $Id$
+!
+      SUBROUTINE top_bound_p(vcov,ucov,teta,masse,dt)
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound,
+     &                        tau_top_bound
+      USE comvert_mod, ONLY: presnivs, preff, scaleheight
+      
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom2.h"
+
+
+c ..  DISSIPATION LINEAIRE A HAUT NIVEAU, RUN MESO,
+C     F. LOTT DEC. 2006
+c                                 (  10/12/06  )
+
+c=======================================================================
+c
+c   Auteur:  F. LOTT  
+c   -------
+c
+c   Objet:
+c   ------
+c
+c   Dissipation linéaire (ex top_bound de la physique)
+c
+c=======================================================================
+
+! top_bound sponge layer model:
+! Quenching is modeled as: A(t)=Am+A0*exp(-lambda*t)
+! where Am is the zonal average of the field (or zero), and lambda the inverse
+! of the characteristic quenching/relaxation time scale
+! Thus, assuming Am to be time-independent, field at time t+dt is given by:
+! A(t+dt)=A(t)-(A(t)-Am)*(1-exp(-lambda*t))
+! Moreover lambda can be a function of model level (see below), and relaxation
+! can be toward the average zonal field or just zero (see below).
+
+! NB: top_bound sponge is only called from leapfrog if ok_strato=.true.
+
+! sponge parameters: (loaded/set in conf_gcm.F ; stored in comconst_mod)
+!    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
+!    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
+!    tau_top_bound : inverse of charactericstic relaxation time scale at
+!                       the topmost layer (Hz)
+
+
+#include "comdissipn.h"
+#include "iniprint.h"
+
+c   Arguments:
+c   ----------
+
+      real,intent(inout) :: ucov(iip1,jjp1,llm) ! covariant zonal wind
+      real,intent(inout) :: vcov(iip1,jjm,llm) ! covariant meridional wind
+      real,intent(inout) :: teta(iip1,jjp1,llm) ! potential temperature
+      real,intent(in) :: masse(iip1,jjp1,llm) ! mass of atmosphere 
+      real,intent(in) :: dt ! time step (s) of sponge model
+
+c   Local:
+c   ------
+      REAL massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm),zm
+      REAL uzon(jjp1,llm),vzon(jjm,llm),tzon(jjp1,llm)
+      
+      integer i
+      REAL,SAVE :: rdamp(llm) ! quenching coefficient
+      real,save :: lambda(llm) ! inverse or quenching time scale (Hz)
+      LOGICAL,SAVE :: first=.true.
+      INTEGER j,l,jjb,jje
+
+
+      if (iflag_top_bound == 0) return
+
+      if (first) then
+c$OMP BARRIER
+c$OMP MASTER
+         if (iflag_top_bound == 1) then
+! sponge quenching over the topmost 4 atmospheric layers
+             lambda(:)=0.
+             lambda(llm)=tau_top_bound
+             lambda(llm-1)=tau_top_bound/2.
+             lambda(llm-2)=tau_top_bound/4.
+             lambda(llm-3)=tau_top_bound/8.
+         else if (iflag_top_bound == 2) then
+! sponge quenching over topmost layers down to pressures which are
+! higher than 100 times the topmost layer pressure
+             lambda(:)=tau_top_bound
+     s       *max(presnivs(llm)/presnivs(:)-0.01,0.)
+         endif
+
+! quenching coefficient rdamp(:)
+!         rdamp(:)=dt*lambda(:) ! Explicit Euler approx.
+         rdamp(:)=1.-exp(-lambda(:)*dt)
+
+         write(lunout,*)'TOP_BOUND mode',mode_top_bound
+         write(lunout,*)'Sponge layer coefficients'
+         write(lunout,*)'p (Pa)  z(km)  tau(s)   1./tau (Hz)'
+         do l=1,llm
+           if (rdamp(l).ne.0.) then
+             write(lunout,'(6(1pe12.4,1x))')
+     &        presnivs(l),log(preff/presnivs(l))*scaleheight,
+     &           1./lambda(l),lambda(l)
+           endif
+         enddo
+         first=.false.
+c$OMP END MASTER
+c$OMP BARRIER
+      endif ! of if (first)
+
+
+      CALL massbar_p(masse,massebx,masseby)
+
+      ! compute zonal average of vcov (or set it to zero)
+      if (mode_top_bound.ge.2) then
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_sud) jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          zm=0.
+          vzon(j,l)=0
+          do i=1,iim
+! NB: we can work using vcov zonal mean rather than v since the
+! cv coefficient (which relates the two) only varies with latitudes 
+            vzon(j,l)=vzon(j,l)+vcov(i,j,l)*masseby(i,j,l)
+            zm=zm+masseby(i,j,l)
+          enddo
+          vzon(j,l)=vzon(j,l)/zm
+        enddo
+       enddo
+c$OMP END DO NOWAIT   
+      else
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+         vzon(:,l)=0.
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.2)
+
+      ! compute zonal average of u (or set it to zero)
+      if (mode_top_bound.ge.2) then
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          uzon(j,l)=0.
+          zm=0.
+          do i=1,iim
+            uzon(j,l)=uzon(j,l)+massebx(i,j,l)*ucov(i,j,l)/cu(i,j)
+            zm=zm+massebx(i,j,l)
+          enddo
+          uzon(j,l)=uzon(j,l)/zm
+        enddo
+       enddo
+c$OMP END DO NOWAIT
+      else
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+         uzon(:,l)=0.
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.2)
+
+      ! compute zonal average of potential temperature, if necessary
+      if (mode_top_bound.ge.3) then
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
+       do l=1,llm
+        do j=jjb,jje
+          zm=0.
+          tzon(j,l)=0.
+          do i=1,iim
+            tzon(j,l)=tzon(j,l)+teta(i,j,l)*masse(i,j,l)
+            zm=zm+masse(i,j,l)
+          enddo
+          tzon(j,l)=tzon(j,l)/zm
+        enddo
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.3)
+
+      if (mode_top_bound.ge.1) then
+       ! Apply sponge quenching on vcov:
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_sud) jje=jj_end-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          do i=1,iip1
+            vcov(i,j,l)=vcov(i,j,l)
+     &                  -rdamp(l)*(vcov(i,j,l)-vzon(j,l))
+          enddo
+        enddo
+       enddo
+c$OMP END DO NOWAIT
+
+       ! Apply sponge quenching on ucov:
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          do i=1,iip1
+            ucov(i,j,l)=ucov(i,j,l)
+     &                  -rdamp(l)*(ucov(i,j,l)-cu(i,j)*uzon(j,l))
+          enddo
+       enddo
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bound.ge.1)
+
+      if (mode_top_bound.ge.3) then   
+       ! Apply sponge quenching on teta:
+       jjb=jj_begin
+       jje=jj_end
+       IF (pole_nord) jjb=jj_begin+1
+       IF (pole_sud)  jje=jj_end-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+       do l=1,llm
+        do j=jjb,jje
+          do i=1,iip1
+            teta(i,j,l)=teta(i,j,l)
+     &                  -rdamp(l)*(teta(i,j,l)-tzon(j,l))
+          enddo
+       enddo
+       enddo
+c$OMP END DO NOWAIT
+      endif ! of if (mode_top_bond.ge.3)
+
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/tourpot_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/tourpot_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/tourpot_p.F	(revision 3330)
@@ -0,0 +1,92 @@
+      SUBROUTINE tourpot_p ( vcov, ucov, massebxy, vorpot )
+      USE parallel_lmdz
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteur:  P. Le Van
+c   -------
+c
+c   Objet:
+c   ------
+c
+c    *******************************************************************
+c    .........      calcul du tourbillon potentiel             .........
+c    *******************************************************************
+c
+c     vcov,ucov,fext et pbarxyfl sont des argum. d'entree pour le s-pg .
+c             vorpot            est  un argum.de sortie pour le s-pg .
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+
+      REAL  rot( ip1jm,llm )
+      REAL vcov( ip1jm,llm ),ucov( ip1jmp1,llm )
+      REAL massebxy( ip1jm,llm ),vorpot( ip1jm,llm )
+
+      INTEGER l, ij ,ije,ijb,jje,jjb
+
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      
+      if (pole_nord) ijb=ij_begin
+      
+      
+c  ... vorpot = ( Filtre( d(vcov)/dx - d(ucov)/dy ) + fext ) /psbarxy ..
+
+
+
+c    ........  Calcul du rotationnel du vent V  puis filtrage  ........
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO 5 l = 1,llm
+
+      if (pole_sud)  ije=ij_end-iip1-1
+      DO 2 ij = ijb, ije 
+      rot( ij,l ) = vcov(ij+1,l)-vcov(ij,l)+ucov(ij+iip1,l)-ucov(ij,l)
+   2  CONTINUE
+
+c    ....  correction pour  rot( iip1,j,l )  .....
+c    ....     rot(iip1,j,l) = rot(1,j,l)    .....
+
+CDIR$ IVDEP
+
+      if (pole_sud)  ije=ij_end-iip1
+     
+      DO 3 ij = ijb+iip1-1, ije, iip1
+      rot( ij,l ) = rot( ij -iim, l )
+   3  CONTINUE
+
+   5  CONTINUE
+c$OMP END DO NOWAIT
+      jjb=jj_begin-1
+      jje=jj_end
+      
+      if (pole_nord) jjb=jjb+1
+      if (pole_sud)  jje=jje-1
+      CALL  filtreg_p( rot, jjb,jje,jjm, llm, 2, 1, .FALSE., 1 )
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
+      DO 10 l = 1, llm
+      
+      if (pole_sud)  ije=ij_end-iip1-1  
+      
+      DO 6 ij = ijb, ije
+      vorpot( ij,l ) = ( rot(ij,l) + fext(ij) ) / massebxy(ij,l)
+   6  CONTINUE
+
+c    ..... correction pour  vorpot( iip1,j,l)  .....
+c    ....   vorpot(iip1,j,l)= vorpot(1,j,l) ....
+CDIR$ IVDEP
+      if (pole_sud)  ije=ij_end-iip1
+      DO 8 ij = ijb+iip1-1, ije, iip1
+      vorpot( ij,l ) = vorpot( ij -iim,l )
+   8  CONTINUE
+
+  10  CONTINUE
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vitvert_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vitvert_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vitvert_p.F	(revision 3330)
@@ -0,0 +1,57 @@
+      SUBROUTINE vitvert_p ( convm , w )
+c
+      USE parallel_lmdz
+      USE comvert_mod, ONLY: bp
+      
+      IMPLICIT NONE
+
+c=======================================================================
+c
+c   Auteurs:  P. Le Van , F. Hourdin .
+c   -------
+c
+c   Objet:
+c   ------
+c
+c    *******************************************************************
+c  .... calcul de la vitesse verticale aux niveaux sigma  ....
+c    *******************************************************************
+c     convm   est un argument  d'entree pour le s-pg  ......
+c       w     est un argument de sortie pour le s-pg  ......
+c
+c    la vitesse verticale est orientee de  haut en bas .
+c    au sol, au niveau sigma(1),   w(i,j,1) = 0.
+c    au sommet, au niveau sigma(llm+1) , la vit.verticale est aussi
+c    egale a 0. et n'est pas stockee dans le tableau w  .
+c
+c
+c=======================================================================
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      REAL w(ip1jmp1,llm),convm(ip1jmp1,llm)
+      INTEGER   l, ij,ijb,ije
+
+
+      ijb=ij_begin
+      ije=ij_end+iip1
+      
+      if (pole_sud) ije=ij_end
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO 2  l = 1,llmm1
+
+      DO 1 ij = ijb,ije
+      w( ij, l+1 ) = convm( ij, l+1 ) - bp(l+1) * convm( ij, 1 )
+   1  CONTINUE
+
+   2  CONTINUE
+c$OMP END DO
+c$OMP MASTER
+      DO 5 ij  = ijb,ije
+      w(ij,1)  = 0.
+5     CONTINUE
+c$OMP END MASTER
+c$OMP BARRIER
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlsplt_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlsplt_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlsplt_p.F	(revision 3330)
@@ -0,0 +1,1131 @@
+c
+c $Id$
+c
+
+      SUBROUTINE vlsplt_p(q,pente_max,masse,w,pbaru,pbarv,pdt)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c   pente_max facteur de limitation des pentes: 2 en general
+c                                               0 pour un schema amont
+c   pbaru,pbarv,w flux de masse en u ,v ,w
+c   pdt pas de temps
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE mod_hallo
+      USE Vampir
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+c      REAL masse(iip1,jjp1,llm),pente_max
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL q(ip1jmp1,llm)
+c      REAL q(iip1,jjp1,llm)
+      REAL w(ip1jmp1,llm),pdt
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+      INTEGER ijlqmin,iqmin,jqmin,lqmin
+c
+      REAL zm(ip1jmp1,llm),newmasse
+      REAL mu(ip1jmp1,llm)
+      REAL mv(ip1jm,llm)
+      REAL mw(ip1jmp1,llm+1)
+      REAL zq(ip1jmp1,llm),zz
+      REAL dqx(ip1jmp1,llm),dqy(ip1jmp1,llm),dqz(ip1jmp1,llm)
+      REAL second,temps0,temps1,temps2,temps3
+      REAL ztemps1,ztemps2,ztemps3
+      REAL zzpbar, zzw
+      LOGICAL testcpu
+      SAVE testcpu
+      SAVE temps1,temps2,temps3
+      INTEGER iminn,imaxx
+
+      REAL qmin,qmax
+      DATA qmin,qmax/0.,1.e33/
+      DATA testcpu/.false./
+      DATA temps1,temps2,temps3/0.,0.,0./
+      INTEGER ijb,ije
+      type(request) :: MyRequest1
+      type(request) :: MyRequest2
+
+      call SetTag(MyRequest1,100)
+      call SetTag(MyRequest2,101)
+      
+      zzpbar = 0.5 * pdt
+      zzw    = pdt
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+      
+      DO l=1,llm
+        DO ij = ijb,ije
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+        ENDDO
+      ENDDO
+      
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO l=1,llm
+        DO ij=ijb,ije
+           mv(ij,l)=pbarv(ij,l) * zzpbar
+        ENDDO
+      ENDDO
+      
+      ijb=ij_begin
+      ije=ij_end
+      
+      DO l=1,llm
+        DO ij=ijb,ije
+           mw(ij,l)=w(ij,l) * zzw
+        ENDDO
+      ENDDO
+
+      DO ij=ijb,ije
+         mw(ij,llm+1)=0.
+      ENDDO
+      
+c      CALL SCOPY(ijp1llm,q,1,zq,1)
+c      CALL SCOPY(ijp1llm,masse,1,zm,1)
+       
+       ijb=ij_begin
+       ije=ij_end
+       zq(ijb:ije,:)=q(ijb:ije,:)
+       zm(ijb:ije,:)=masse(ijb:ije,:)
+      
+      
+c	print*,'Entree vlx1'
+c	call minmaxq(zq,qmin,qmax,'avant vlx     ')
+      call vlx_p(zq,pente_max,zm,mu,ij_begin,ij_begin+2*iip1-1)
+      call vlx_p(zq,pente_max,zm,mu,ij_end-2*iip1+1,ij_end)
+      call VTb(VTHallo)
+      call Register_Hallo(zq,ip1jmp1,llm,2,2,2,2,MyRequest1)
+      call Register_Hallo(zm,ip1jmp1,llm,1,1,1,1,MyRequest1)
+      call SendRequest(MyRequest1)
+      call VTe(VTHallo)
+      call vlx_p(zq,pente_max,zm,mu,ij_begin+2*iip1,ij_end-2*iip1)
+c      call vlx_p(zq,pente_max,zm,mu,ij_begin,ij_end)
+      call VTb(VTHallo)
+      call WaitRecvRequest(MyRequest1)
+      call VTe(VTHallo)
+
+      
+c	print*,'Sortie vlx1'
+c	call minmaxq(zq,qmin,qmax,'apres vlx1    ')
+
+c	 print*,'Entree vly1'
+c      call exchange_hallo(zq,ip1jmp1,llm,2,2)
+c      call exchange_hallo(zm,ip1jmp1,llm,1,1)
+      
+      call vly_p(zq,pente_max,zm,mv)
+c	call minmaxq(zq,qmin,qmax,'apres vly1     ')
+c	print*,'Sortie vly1'
+      call vlz_p(zq,pente_max,zm,mw,ij_begin,ij_begin+2*iip1-1)
+      call vlz_p(zq,pente_max,zm,mw,ij_end-2*iip1+1,ij_end)
+      call VTb(VTHallo)
+      call Register_Hallo(zq,ip1jmp1,llm,2,2,2,2,MyRequest2)
+      call Register_Hallo(zm,ip1jmp1,llm,1,1,1,1,MyRequest2)
+      call SendRequest(MyRequest2)
+      call VTe(VTHallo)
+      call vlz_p(zq,pente_max,zm,mw,ij_begin+2*iip1,ij_end-2*iip1)
+      call VTb(VTHallo)
+      call WaitRecvRequest(MyRequest2)
+            
+      call VTe(VTHallo)
+      
+c	call minmaxq(zq,qmin,qmax,'apres vlz     ')
+
+
+      
+      
+      call vly_p(zq,pente_max,zm,mv)
+c	call minmaxq(zq,qmin,qmax,'apres vly     ')
+
+
+      call vlx_p(zq,pente_max,zm,mu,ij_begin,ij_end)
+c	call minmaxq(zq,qmin,qmax,'apres vlx2    ')
+
+	
+      ijb=ij_begin
+      ije=ij_end
+       
+      DO l=1,llm
+         DO ij=ijb,ije
+           q(ij,l)=zq(ij,l)
+         ENDDO
+      ENDDO
+      
+      
+      DO l=1,llm
+         DO ij=ijb,ije-iip1+1,iip1
+            q(ij+iim,l)=q(ij,l)
+         ENDDO
+      ENDDO
+
+      call WaitSendRequest(MyRequest1) 
+      call WaitSendRequest(MyRequest2)
+     
+      RETURN
+      END
+      
+      
+      SUBROUTINE vlx_p(q,pente_max,masse,u_m,ijb_x,ije_x)
+
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     nq,iq,q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL u_m( ip1jmp1,llm ),pbarv( iip1,jjm,llm)
+      REAL q(ip1jmp1,llm)
+      REAL w(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ip1jmp1),niju
+      INTEGER n0,iadvplus(ip1jmp1,llm),nl(llm)
+c
+      REAL new_m,zu_m,zdum(ip1jmp1,llm)
+      REAL sigu(ip1jmp1),dxq(ip1jmp1,llm),dxqu(ip1jmp1)
+      REAL zz(ip1jmp1)
+      REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)
+      REAL u_mq(ip1jmp1,llm)
+
+      Logical extremum
+
+      REAL      SSUM
+      EXTERNAL  SSUM
+
+      REAL z1,z2,z3
+
+      INTEGER ijb,ije,ijb_x,ije_x
+      
+c   calcul de la pente a droite et a gauche de la maille
+
+      ijb=ijb_x
+      ije=ije_x
+        
+      if (pole_nord.and.ijb==1) ijb=ijb+iip1
+      if (pole_sud.and.ije==ip1jmp1)  ije=ije-iip1
+         
+      IF (pente_max.gt.-1.e-5) THEN
+c       IF (pente_max.gt.10) THEN
+
+c   calcul des pentes avec limitation, Van Leer scheme I:
+c   -----------------------------------------------------
+
+c   calcul de la pente aux points u
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)         
+         DO l = 1, llm
+            
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l)-q(ij,l)
+c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
+c              sigu(ij)=u_m(ij,l)/masse(ij,l)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+c              sigu(ij)=sigu(ij-iim)
+            ENDDO
+
+            DO ij=ijb,ije
+               adxqu(ij)=abs(dxqu(ij))
+            ENDDO
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+            DO ij=ijb+1,ije
+               dxqmax(ij,l)=pente_max*
+     ,      min(adxqu(ij-1),adxqu(ij))
+c limitation subtile
+c    ,      min(adxqu(ij-1)/sigu(ij-1),adxqu(ij)/(1.-sigu(ij)))
+          
+
+            ENDDO
+
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqmax(ij-iim,l)=dxqmax(ij,l)
+            ENDDO
+
+            DO ij=ijb+1,ije
+#ifdef CRAY
+               dxq(ij,l)=
+     ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
+#else
+               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+                  dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+#endif
+               dxq(ij,l)=0.5*dxq(ij,l)
+               dxq(ij,l)=
+     ,         sign(min(abs(dxq(ij,l)),dxqmax(ij,l)),dxq(ij,l))
+            ENDDO
+
+         ENDDO ! l=1,llm
+c$OMP END DO NOWAIT
+c	print*,'Ok calcul des pentes'
+
+      ELSE ! (pente_max.lt.-1.e-5)
+
+c   Pentes produits:
+c   ----------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l = 1, llm
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l)-q(ij,l)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+            ENDDO
+
+            DO ij=ijb+1,ije
+               zz(ij)=dxqu(ij-1)*dxqu(ij)
+               zz(ij)=zz(ij)+zz(ij)
+               IF(zz(ij).gt.0) THEN
+                  dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+            ENDDO
+
+         ENDDO
+c$OMP END DO NOWAIT
+      ENDIF ! (pente_max.lt.-1.e-5)
+
+c   bouclage de la pente en iip1:
+c   -----------------------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+iip1-1,ije,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         ENDDO
+         DO ij=ijb,ije
+            iadvplus(ij,l)=0
+         ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+c	 print*,'Bouclage en iip1'
+
+c   calcul des flux a gauche et a droite
+
+#ifdef CRAY
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+          zdum(ij,l)=cvmgp(1.-u_m(ij,l)/masse(ij,l),
+     ,                     1.+u_m(ij,l)/masse(ij+1,l),
+     ,                     u_m(ij,l))
+          zdum(ij,l)=0.5*zdum(ij,l)
+          u_mq(ij,l)=cvmgp(
+     ,                q(ij,l)+zdum(ij,l)*dxq(ij,l),
+     ,                q(ij+1,l)-zdum(ij,l)*dxq(ij+1,l),
+     ,                u_m(ij,l))
+          u_mq(ij,l)=u_m(ij,l)*u_mq(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#else
+c   on cumule le flux correspondant a toutes les mailles dont la masse
+c   au travers de la paroi pENDant le pas de temps.
+c	print*,'Cumule ....'
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+c	print*,'masse(',ij,')=',masse(ij,l)
+          IF (u_m(ij,l).gt.0.) THEN
+             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l)
+             u_mq(ij,l)=u_m(ij,l)*(q(ij,l)+0.5*zdum(ij,l)*dxq(ij,l))
+          ELSE
+             zdum(ij,l)=1.+u_m(ij,l)/masse(ij+1,l)
+             u_mq(ij,l)=u_m(ij,l)*(q(ij+1,l)-0.5*zdum(ij,l)*dxq(ij+1,l))
+          ENDIF
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#endif
+c	stop
+
+c	go to 9999
+c   detection des points ou on advecte plus que la masse de la
+c   maille
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije-1
+            IF(zdum(ij,l).lt.0) THEN
+               iadvplus(ij,l)=1
+               u_mq(ij,l)=0.
+            ENDIF
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c	print*,'Ok test 1'
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb+iip1-1,ije,iip1
+          iadvplus(ij,l)=iadvplus(ij-iim,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c	 print*,'Ok test 2'
+
+
+c   traitement special pour le cas ou on advecte en longitude plus que le
+c   contenu de la maille.
+c   cette partie est mal vectorisee.
+
+c  calcul du nombre de maille sur lequel on advecte plus que la maille.
+
+      n0=0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         nl(l)=0
+         DO ij=ijb,ije
+            nl(l)=nl(l)+iadvplus(ij,l)
+         ENDDO
+         n0=n0+nl(l)
+      ENDDO
+c$OMP END DO NOWAIT
+cym      IF(n0.gt.1) THEN
+cym      IF(n0.gt.0) THEN
+
+c      PRINT*,'Nombre de points pour lesquels on advect plus que le'
+c     &       ,'contenu de la maille : ',n0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+            IF(nl(l).gt.0) THEN
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               DO ij=ijb,ije
+                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                     iju=iju+1
+                     indu(iju)=ij
+                  ENDIF
+               ENDDO
+               niju=iju
+c              PRINT*,'niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               DO iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  IF(zu_m.gt.0.) THEN
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l))
+                        u_mq(ij,l)=u_mq(ij,l)+q(ijq,l)*masse(ijq,l)
+                        zu_m=zu_m-masse(ijq,l)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*
+     &               (q(ijq,l)+0.5*(1.-zu_m/masse(ijq,l))*dxq(ijq,l))
+                  ELSE
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l)*masse(ijq,l)
+                        zu_m=zu_m+masse(ijq,l)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l)-
+     &               0.5*(1.+zu_m/masse(ijq,l))*dxq(ijq,l))
+                  ENDIF
+               ENDDO
+            ENDIF
+         ENDDO
+c$OMP END DO NOWAIT
+cym      ENDIF  ! n0.gt.0 
+9999    continue
+
+
+c   bouclage en latitude
+c	print*,'Avant bouclage en latitude'
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        DO ij=ijb+iip1-1,ije,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   calcul des tENDances
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+1,ije
+            new_m=masse(ij,l)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+
+     &      u_mq(ij-1,l)-u_mq(ij,l))
+     &      /new_m
+            masse(ij,l)=new_m
+         ENDDO
+c   ModIF Fred 22 03 96 correction d'un bug (les scopy ci-dessous)
+         DO ij=ijb+iip1-1,ije,iip1
+            q(ij-iim,l)=q(ij,l)
+            masse(ij-iim,l)=masse(ij,l)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c     CALL SCOPY((jjm-1)*llm,q(iip1+iip1,1),iip1,q(iip2,1),iip1)
+c     CALL SCOPY((jjm-1)*llm,masse(iip1+iip1,1),iip1,masse(iip2,1),iip1)
+
+
+      RETURN
+      END
+
+
+      SUBROUTINE vly_p(q,pente_max,masse,masse_adv_v)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL masse_adv_v( ip1jm,llm)
+      REAL q(ip1jmp1,llm), dq( ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      REAL dyq(ip1jmp1,llm),dyqv(ip1jm),zdvm(ip1jmp1,llm)
+      REAL adyqv(ip1jm),dyqmax(ip1jmp1)
+      REAL qbyv(ip1jm,llm)
+
+      REAL qpns,qpsn,appn,apps,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
+c     REAL newq,oldmasse
+      Logical extremum,first,testcpu
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+c$OMP THREADPRIVATE(temps0,temps1,temps2,temps3,temps4,temps5)
+      SAVE first,testcpu
+c$OMP THREADPRIVATE(first,testcpu)
+
+      REAL convpn,convps,convmpn,convmps
+      real massepn,masseps,qpn,qps
+      REAL sinlon(iip1),sinlondlon(iip1)
+      REAL coslon(iip1),coslondlon(iip1)
+      SAVE sinlon,coslon,sinlondlon,coslondlon
+c$OMP THREADPRIVATE(sinlon,coslon,sinlondlon,coslondlon)
+      SAVE airej2,airejjm
+c$OMP THREADPRIVATE(airej2,airejjm)
+c
+c
+      REAL      SSUM
+      EXTERNAL  SSUM
+
+      DATA first,testcpu/.true.,.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+      INTEGER ijb,ije
+
+      IF(first) THEN
+c         PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         ENDDO
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         airej2 = SSUM( iim, aire(iip2), 1 )
+         airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      ENDIF
+
+c
+c	PRINT*,'CALCUL EN LATITUDE'
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l = 1, llm
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+      
+      if (pole_nord) then
+        DO i = 1, iim
+          airescb(i) = aire(i+ iip1) * q(i+ iip1,l)
+        ENDDO
+        qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      endif
+      
+      if (pole_sud) then
+        DO i = 1, iim
+          airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l)
+        ENDDO
+        qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+      endif
+      
+      
+
+c   calcul des pentes aux points v
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyqv(ij)=q(ij,l)-q(ij+iip1,l)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+
+c   calcul des pentes aux points scalaires
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyq(ij,l)=.5*(dyqv(ij-iip1)+dyqv(ij))
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      ENDDO
+
+c   calcul des pentes aux poles
+      IF (pole_nord) THEN
+        DO ij=1,iip1
+           dyq(ij,l)=qpns-q(ij+iip1,l)
+        ENDDO
+        
+        dyn1=0.
+        dyn2=0.
+        DO ij=1,iim
+          dyn1=dyn1+sinlondlon(ij)*dyq(ij,l)
+          dyn2=dyn2+coslondlon(ij)*dyq(ij,l)
+        ENDDO
+        DO ij=1,iip1
+          dyq(ij,l)=dyn1*sinlon(ij)+dyn2*coslon(ij)
+        ENDDO
+        
+        DO ij=1,iip1
+         dyq(ij,l)=0.
+        ENDDO
+c ym tout cela ne sert pas a grand chose
+      ENDIF
+      
+      IF (pole_sud) THEN
+
+        DO ij=1,iip1
+           dyq(ip1jm+ij,l)=q(ip1jm+ij-iip1,l)-qpsn
+        ENDDO
+
+        dys1=0.
+        dys2=0.
+
+        DO ij=1,iim
+          dys1=dys1+sinlondlon(ij)*dyq(ip1jm+ij,l)
+          dys2=dys2+coslondlon(ij)*dyq(ip1jm+ij,l)
+        ENDDO
+
+        DO ij=1,iip1
+          dyq(ip1jm+ij,l)=dys1*sinlon(ij)+dys2*coslon(ij)
+        ENDDO
+        
+        DO ij=1,iip1
+         dyq(ip1jm+ij,l)=0.
+        ENDDO
+c ym tout cela ne sert pas a grand chose
+      ENDIF
+
+c   filtrage de la derivee
+
+c   calcul des pentes limites aux poles
+c ym partie inutile
+c      goto 8888
+c      fn=1.
+c      fs=1.
+c      DO ij=1,iim
+c         IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+c            fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
+c         ENDIF
+c      IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+c         fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
+c         ENDIF
+c      ENDDO
+c      DO ij=1,iip1
+c         dyq(ij,l)=fn*dyq(ij,l)
+c         dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
+c      ENDDO
+c 8888    continue
+
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C  En memoire de dIFferents tests sur la 
+C  limitation des pentes aux poles.
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C     PRINT*,dyq(1)
+C     PRINT*,dyqv(iip1+1)
+C     appn=abs(dyq(1)/dyqv(iip1+1))
+C     PRINT*,dyq(ip1jm+1)
+C     PRINT*,dyqv(ip1jm-iip1+1)
+C     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+C     DO ij=2,iim
+C        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+C        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+C     ENDDO
+C     appn=min(pente_max/appn,1.)
+C     apps=min(pente_max/apps,1.)
+C
+C
+C   cas ou on a un extremum au pole
+C
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   appn=0.
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &   apps=0.
+C
+C   limitation des pentes aux poles
+C     DO ij=1,iip1
+C        dyq(ij)=appn*dyq(ij)
+C        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+C     ENDDO
+C
+C   test
+C      DO ij=1,iip1
+C         dyq(iip1+ij)=0.
+C         dyq(ip1jm+ij-iip1)=0.
+C      ENDDO
+C      DO ij=1,ip1jmp1
+C         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+C      ENDDO
+C
+C changement 10 07 96
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   THEN
+C        DO ij=1,iip1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=1,iip1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij))
+C        ENDDO
+C     ENDIF
+C
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &THEN
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+C        ENDDO
+C     ENDIF
+C   fin changement 10 07 96
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+
+c   calcul des pentes limitees
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+      DO ij=ijb,ije
+         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+            dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
+         ELSE
+            dyq(ij,l)=0.
+         ENDIF
+      ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije
+          IF(masse_adv_v(ij,l).gt.0) THEN
+              qbyv(ij,l)=q(ij+iip1,l)+dyq(ij+iip1,l)*
+     ,                   0.5*(1.-masse_adv_v(ij,l)/masse(ij+iip1,l))
+          ELSE
+              qbyv(ij,l)=q(ij,l)-dyq(ij,l)*
+     ,                   0.5*(1.+masse_adv_v(ij,l)/masse(ij,l))
+          ENDIF
+          qbyv(ij,l)=masse_adv_v(ij,l)*qbyv(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+         DO ij=ijb,ije
+            newmasse=masse(ij,l)
+     &      +masse_adv_v(ij,l)-masse_adv_v(ij-iip1,l)
+     
+            q(ij,l)=(q(ij,l)*masse(ij,l)+qbyv(ij,l)-qbyv(ij-iip1,l))
+     &         /newmasse
+            masse(ij,l)=newmasse
+         ENDDO
+c.-. ancienne version
+c        convpn=SSUM(iim,qbyv(1,l),1)/apoln
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)/apoln
+         if (pole_nord) then
+           convpn=SSUM(iim,qbyv(1,l),1)
+           convmpn=ssum(iim,masse_adv_v(1,l),1)
+           massepn=ssum(iim,masse(1,l),1)
+           qpn=0.
+           do ij=1,iim
+              qpn=qpn+masse(ij,l)*q(ij,l)
+           enddo
+           qpn=(qpn+convpn)/(massepn+convmpn)
+           do ij=1,iip1
+              q(ij,l)=qpn
+           enddo
+         endif
+         
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)/apols
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)/apols
+         
+         if (pole_sud) then
+         
+           convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+           convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+           masseps=ssum(iim, masse(ip1jm+1,l),1)
+           qps=0.
+           do ij = ip1jm+1,ip1jmp1-1
+              qps=qps+masse(ij,l)*q(ij,l)
+           enddo
+           qps=(qps+convps)/(masseps+convmps)
+           do ij=ip1jm+1,ip1jmp1
+              q(ij,l)=qps
+           enddo
+         endif
+c.-. fin ancienne version
+
+c._. nouvelle version
+c        convpn=SSUM(iim,qbyv(1,l),1)
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)
+c        oldmasse=ssum(iim,masse(1,l),1)
+c        newmasse=oldmasse+convmpn
+c        newq=(q(1,l)*oldmasse+convpn)/newmasse
+c        newmasse=newmasse/apoln
+c        DO ij = 1,iip1
+c           q(ij,l)=newq
+c           masse(ij,l)=newmasse*aire(ij)
+c        ENDDO
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+c        oldmasse=ssum(iim,masse(ip1jm-iim,l),1)
+c        newmasse=oldmasse+convmps
+c        newq=(q(ip1jmp1,l)*oldmasse+convps)/newmasse
+c        newmasse=newmasse/apols
+c        DO ij = ip1jm+1,ip1jmp1
+c           q(ij,l)=newq
+c           masse(ij,l)=newmasse*aire(ij)
+c        ENDDO
+c._. fin nouvelle version
+      ENDDO
+c$OMP END DO NOWAIT
+
+      RETURN
+      END
+      
+      
+      
+      SUBROUTINE vlz_p(q,pente_max,masse,w,ijb_x,ije_x)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c    q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c     dq 	       sont des arguments de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL q(ip1jmp1,llm)
+      REAL w(ip1jmp1,llm+1)
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+c
+      REAL,SAVE :: wq(ip1jmp1,llm+1)
+      REAL newmasse
+
+      REAL,SAVE :: dzq(ip1jmp1,llm),dzqw(ip1jmp1,llm),adzqw(ip1jmp1,llm)
+      REAL dzqmax
+      REAL sigw
+
+      LOGICAL testcpu
+      SAVE testcpu
+c$OMP THREADPRIVATE(testcpu)
+      REAL temps0,temps1,temps2,temps3,temps4,temps5,second
+      SAVE temps0,temps1,temps2,temps3,temps4,temps5
+c$OMP THREADPRIVATE(temps0,temps1,temps2,temps3,temps4,temps5)
+
+      REAL      SSUM
+      EXTERNAL  SSUM
+
+      DATA testcpu/.false./
+      DATA temps0,temps1,temps2,temps3,temps4,temps5/0.,0.,0.,0.,0.,0./
+      INTEGER ijb,ije,ijb_x,ije_x
+c    On oriente tout dans le sens de la pression c'est a dire dans le
+c    sens de W
+
+#ifdef BIDON
+      IF(testcpu) THEN
+         temps0=second(0.)
+      ENDIF
+#endif
+
+      ijb=ijb_x
+      ije=ije_x
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=2,llm
+         DO ij=ijb,ije
+            dzqw(ij,l)=q(ij,l-1)-q(ij,l)
+            adzqw(ij,l)=abs(dzqw(ij,l))
+         ENDDO
+      ENDDO
+c$OMP END DO
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=2,llm-1
+         DO ij=ijb,ije
+#ifdef CRAY
+            dzq(ij,l)=0.5*
+     ,      cvmgp(dzqw(ij,l)+dzqw(ij,l+1),0.,dzqw(ij,l)*dzqw(ij,l+1))
+#else
+            IF(dzqw(ij,l)*dzqw(ij,l+1).gt.0.) THEN
+                dzq(ij,l)=0.5*(dzqw(ij,l)+dzqw(ij,l+1))
+            ELSE
+                dzq(ij,l)=0.
+            ENDIF
+#endif
+            dzqmax=pente_max*min(adzqw(ij,l),adzqw(ij,l+1))
+            dzq(ij,l)=sign(min(abs(dzq(ij,l)),dzqmax),dzq(ij,l))
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+      DO ij=ijb,ije
+         dzq(ij,1)=0.
+         dzq(ij,llm)=0.
+      ENDDO
+c$OMP END MASTER
+c$OMP BARRIER
+#ifdef BIDON
+      IF(testcpu) THEN
+         temps1=temps1+second(0.)-temps0
+      ENDIF
+#endif
+c ---------------------------------------------------------------
+c   .... calcul des termes d'advection verticale  .......
+c ---------------------------------------------------------------
+
+c calcul de  - d( q   * w )/ d(sigma)    qu'on ajoute a  dq pour calculer dq
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+       DO l = 1,llm-1
+         do  ij = ijb,ije
+          IF(w(ij,l+1).gt.0.) THEN
+             sigw=w(ij,l+1)/masse(ij,l+1)
+             wq(ij,l+1)=w(ij,l+1)*(q(ij,l+1)+0.5*(1.-sigw)*dzq(ij,l+1))
+          ELSE
+             sigw=w(ij,l+1)/masse(ij,l)
+             wq(ij,l+1)=w(ij,l+1)*(q(ij,l)-0.5*(1.+sigw)*dzq(ij,l))
+          ENDIF
+         ENDDO
+       ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+       DO ij=ijb,ije
+          wq(ij,llm+1)=0.
+          wq(ij,1)=0.
+       ENDDO
+c$OMP END MASTER
+c$OMP BARRIER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije
+            newmasse=masse(ij,l)+w(ij,l+1)-w(ij,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+wq(ij,l+1)-wq(ij,l))
+     &         /newmasse
+            masse(ij,l)=newmasse
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+
+      RETURN
+      END
+c      SUBROUTINE minmaxq(zq,qmin,qmax,comment)
+c
+c#include "dimensions.h"
+c#include "paramet.h"
+
+c      CHARACTER*(*) comment
+c      real qmin,qmax
+c      real zq(ip1jmp1,llm)
+
+c      INTEGER jadrs(ip1jmp1), jbad, k, i
+
+
+c      DO k = 1, llm
+c         jbad = 0
+c         DO i = 1, ip1jmp1
+c         IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
+c            jbad = jbad + 1
+c            jadrs(jbad) = i
+c         ENDIF
+c         ENDDO
+c         IF (jbad.GT.0) THEN
+c         PRINT*, comment
+c         DO i = 1, jbad
+cc            PRINT*, "i,k,zq=", jadrs(i),k,zq(jadrs(i),k)
+c         ENDDO
+c         ENDIF
+c      ENDDO
+
+c      return
+c      end
+
+
+      subroutine minmaxq_p(zq,qmin,qmax,comment)
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      character*20 comment
+      real qmin,qmax
+      real zq(ip1jmp1,llm)
+      real zzq(iip1,jjp1,llm)
+
+      integer imin,jmin,lmin,ijlmin
+      integer imax,jmax,lmax,ijlmax
+
+      integer ismin,ismax
+
+#ifdef isminismax
+      call scopy (ip1jmp1*llm,zq,1,zzq,1)
+
+      ijlmin=ismin(ijp1llm,zq,1)
+      lmin=(ijlmin-1)/ip1jmp1+1
+      ijlmin=ijlmin-(lmin-1.)*ip1jmp1
+      jmin=(ijlmin-1)/iip1+1
+      imin=ijlmin-(jmin-1.)*iip1
+      zqmin=zq(ijlmin,lmin)
+
+      ijlmax=ismax(ijp1llm,zq,1)
+      lmax=(ijlmax-1)/ip1jmp1+1
+      ijlmax=ijlmax-(lmax-1.)*ip1jmp1
+      jmax=(ijlmax-1)/iip1+1
+      imax=ijlmax-(jmax-1.)*iip1
+      zqmax=zq(ijlmax,lmax)
+
+       if(zqmin.lt.qmin) 
+c     s     write(*,9999) comment,
+     s     write(*,*) comment,
+     s     imin,jmin,lmin,zqmin,zzq(imin,jmin,lmin)
+       if(zqmax.gt.qmax) 
+c     s     write(*,9999) comment,
+     s     write(*,*) comment,
+     s     imax,jmax,lmax,zqmax,zzq(imax,jmax,lmax)
+#endif
+      return
+9999  format(a20,'  q(',i3,',',i2,',',i2,')=',e12.5,e12.5)
+      end
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlspltgen_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlspltgen_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlspltgen_p.F	(revision 3330)
@@ -0,0 +1,495 @@
+!
+! $Header$
+!
+       SUBROUTINE vlspltgen_p( q,iadv,pente_max,masse,w,pbaru,pbarv,pdt,
+     ,                                  p,pk,teta                 )
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget, F.Codron 
+c
+c    ********************************************************************
+c          Shema  d'advection " pseudo amont " .
+c      + test sur humidite specifique: Q advecte< Qsat aval
+c                   (F. Codron, 10/99)
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c     pente_max facteur de limitation des pentes: 2 en general
+c                                                0 pour un schema amont
+c     pbaru,pbarv,w flux de masse en u ,v ,w
+c     pdt pas de temps
+c
+c     teta temperature potentielle, p pression aux interfaces,
+c     pk exner au milieu des couches necessaire pour calculer Qsat
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE mod_hallo
+      USE Write_Field_p
+      USE VAMPIR
+      USE infotrac, ONLY : nqtot
+      USE comconst_mod, ONLY: cpp
+      IMPLICIT NONE
+
+c
+#include "dimensions.h"
+#include "paramet.h"
+
+c
+c   Arguments:
+c   ----------
+      INTEGER iadv(nqtot)
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL q(ip1jmp1,llm,nqtot)
+      REAL w(ip1jmp1,llm),pdt
+      REAL p(ip1jmp1,llmp1),teta(ip1jmp1,llm),pk(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l
+c
+      REAL,SAVE :: qsat(ip1jmp1,llm)
+      REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: zm
+      REAL,SAVE :: mu(ip1jmp1,llm)
+      REAL,SAVE :: mv(ip1jm,llm)
+      REAL,SAVE :: mw(ip1jmp1,llm+1)
+      REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: zq
+      REAL zzpbar, zzw
+
+      REAL qmin,qmax
+      DATA qmin,qmax/0.,1.e33/
+
+c--pour rapport de melange saturant--
+
+      REAL rtt,retv,r2es,r3les,r3ies,r4les,r4ies,play
+      REAL ptarg,pdelarg,foeew,zdelta
+      REAL tempe(ip1jmp1)
+      INTEGER ijb,ije,iq
+      LOGICAL, SAVE :: firstcall=.TRUE.
+!$OMP THREADPRIVATE(firstcall)
+      type(request) :: MyRequest1
+      type(request) :: MyRequest2
+
+c    fonction psat(T)
+
+       FOEEW ( PTARG,PDELARG ) = EXP (
+     *          (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)
+     * / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )
+
+        r2es  = 380.11733 
+        r3les = 17.269
+        r3ies = 21.875
+        r4les = 35.86
+        r4ies = 7.66
+        retv = 0.6077667
+        rtt  = 273.16
+
+c Allocate variables depending on dynamic variable nqtot
+
+         IF (firstcall) THEN
+            firstcall=.FALSE.
+!$OMP MASTER
+            ALLOCATE(zm(ip1jmp1,llm,nqtot))
+            ALLOCATE(zq(ip1jmp1,llm,nqtot))
+!$OMP END MASTER
+!$OMP BARRIER
+         END IF
+c-- Calcul de Qsat en chaque point
+c-- approximation: au milieu des couches play(l)=(p(l)+p(l+1))/2
+c   pour eviter une exponentielle.
+
+      call SetTag(MyRequest1,100)
+      call SetTag(MyRequest2,101)
+
+        
+        ijb=ij_begin-iip1
+        ije=ij_end+iip1
+        if (pole_nord) ijb=ij_begin
+        if (pole_sud) ije=ij_end
+        
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+        DO l = 1, llm
+         DO ij = ijb, ije
+          tempe(ij) = teta(ij,l) * pk(ij,l) /cpp
+         ENDDO
+         DO ij = ijb, ije
+          zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) )
+          play   = 0.5*(p(ij,l)+p(ij,l+1))
+          qsat(ij,l) = MIN(0.5, r2es* FOEEW(tempe(ij),zdelta) / play )
+          qsat(ij,l) = qsat(ij,l) / ( 1. - retv * qsat(ij,l) )
+         ENDDO
+        ENDDO
+c$OMP END DO NOWAIT
+c      PRINT*,'Debut vlsplt version debug sans vlyqs'
+
+        zzpbar = 0.5 * pdt
+        zzw    = pdt
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+      DO l=1,llm
+        DO ij = ijb,ije
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije
+            mv(ij,l)=pbarv(ij,l) * zzpbar
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin
+      ije=ij_end
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+         DO ij=ijb,ije
+            mw(ij,l)=w(ij,l) * zzw
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+      DO ij=ijb,ije
+         mw(ij,llm+1)=0.
+      ENDDO
+c$OMP END MASTER
+
+c      CALL SCOPY(ijp1llm,q,1,zq,1)
+c      CALL SCOPY(ijp1llm,masse,1,zm,1)
+
+       ijb=ij_begin
+       ije=ij_end
+
+      DO iq=1,nqtot
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+        DO l=1,llm
+          zq(ijb:ije,l,iq)=q(ijb:ije,l,iq)
+          zm(ijb:ije,l,iq)=masse(ijb:ije,l)
+        ENDDO
+c$OMP END DO NOWAIT
+      ENDDO
+
+
+c$OMP BARRIER           
+      DO iq=1,nqtot
+
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+
+#ifdef _ADV_HALO        
+          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
+     &                     ij_begin,ij_begin+2*iip1-1)
+          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
+     &               ij_end-2*iip1+1,ij_end)
+#else
+          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
+     &                     ij_begin,ij_end)
+#endif
+
+c$OMP MASTER
+          call VTb(VTHallo)
+c$OMP END MASTER
+          call Register_Hallo(zq(1,1,iq),ip1jmp1,llm,2,2,2,2,MyRequest1)
+          call Register_Hallo(zm(1,1,iq),ip1jmp1,llm,1,1,1,1,MyRequest1)
+
+c$OMP MASTER
+          call VTe(VTHallo)
+c$OMP END MASTER
+        else if (iadv(iq)==14) then
+
+#ifdef _ADV_HALO           
+          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
+     &                 ij_begin,ij_begin+2*iip1-1)
+          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
+     &                 ij_end-2*iip1+1,ij_end)
+#else
+
+          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
+     &                 ij_begin,ij_end)
+#endif
+
+c$OMP MASTER
+          call VTb(VTHallo)
+c$OMP END MASTER
+
+          call Register_Hallo(zq(1,1,iq),ip1jmp1,llm,2,2,2,2,MyRequest1)
+          call Register_Hallo(zm(1,1,iq),ip1jmp1,llm,1,1,1,1,MyRequest1)
+
+c$OMP MASTER
+          call VTe(VTHallo)
+c$OMP END MASTER 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+      
+      
+c$OMP BARRIER      
+c$OMP MASTER      
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+      call SendRequest(MyRequest1)
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER       
+c$OMP BARRIER
+      do iq=1,nqtot
+
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+
+#ifdef _ADV_HALLO
+          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
+     &               ij_begin+2*iip1,ij_end-2*iip1)
+#endif        
+        else if (iadv(iq)==14) then
+#ifdef _ADV_HALLO
+          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
+     &                 ij_begin+2*iip1,ij_end-2*iip1)
+#endif    
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+c$OMP BARRIER      
+c$OMP MASTER
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+!      call WaitRecvRequest(MyRequest1)
+!      call WaitSendRequest(MyRequest1)
+c$OMP BARRIER
+       call WaitRequest(MyRequest1)
+
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER
+c$OMP BARRIER
+ 
+      do iq=1,nqtot
+
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+        
+          call vly_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv)
+  
+        else if (iadv(iq)==14) then
+      
+          call vlyqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv,qsat)
+ 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+       
+       enddo
+
+
+      do iq=1,nqtot
+
+        if(iadv(iq) == 0) then 
+          
+          cycle 
+        
+        else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
+
+c$OMP BARRIER        
+#ifdef _ADV_HALLO
+          call vlz_p(zq(1,1,iq),pente_max,zm(1,1,iq),mw,
+     &               ij_begin,ij_begin+2*iip1-1)
+          call vlz_p(zq(1,1,iq),pente_max,zm(1,1,iq),mw,
+     &               ij_end-2*iip1+1,ij_end)
+#else
+          call vlz_p(zq(1,1,iq),pente_max,zm(1,1,iq),mw,
+     &               ij_begin,ij_end)
+#endif
+c$OMP BARRIER
+
+c$OMP MASTER
+          call VTb(VTHallo)
+c$OMP END MASTER
+
+          call Register_Hallo(zq(1,1,iq),ip1jmp1,llm,2,2,2,2,MyRequest2)
+          call Register_Hallo(zm(1,1,iq),ip1jmp1,llm,1,1,1,1,MyRequest2)
+
+c$OMP MASTER
+          call VTe(VTHallo)
+c$OMP END MASTER        
+c$OMP BARRIER
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+c$OMP BARRIER      
+
+c$OMP MASTER        
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+      call SendRequest(MyRequest2)
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER        
+
+c$OMP BARRIER
+      do iq=1,nqtot
+
+        if(iadv(iq) == 0) then
+          
+          cycle 
+        
+        else if (iadv(iq)==10 .or. iadv(iq)==14 ) then
+c$OMP BARRIER        
+
+#ifdef _ADV_HALLO
+          call vlz_p(zq(1,1,iq),pente_max,zm(1,1,iq),mw,
+     &               ij_begin+2*iip1,ij_end-2*iip1)
+#endif
+
+c$OMP BARRIER        
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+      
+      enddo
+
+c$OMP BARRIER
+c$OMP MASTER
+      call VTb(VTHallo)
+c$OMP END MASTER
+
+!      call WaitRecvRequest(MyRequest2)
+!      call WaitSendRequest(MyRequest2)
+c$OMP BARRIER
+       CALL WaitRequest(MyRequest2)
+
+c$OMP MASTER
+      call VTe(VTHallo)
+c$OMP END MASTER
+c$OMP BARRIER
+
+
+      do iq=1,nqtot
+
+        if(iadv(iq) == 0) then
+        
+          cycle 
+        
+        else if (iadv(iq)==10) then
+        
+          call vly_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv)
+  
+        else if (iadv(iq)==14) then
+      
+          call vlyqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mv,qsat)
+ 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+       
+       enddo
+
+      do iq=1,nqtot
+
+        if(iadv(iq) == 0) then 
+          
+          cycle 
+        
+        else if (iadv(iq)==10) then
+        
+          call vlx_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,
+     &               ij_begin,ij_end)
+  
+        else if (iadv(iq)==14) then
+      
+          call vlxqs_p(zq(1,1,iq),pente_max,zm(1,1,iq),mu,qsat,
+     &                 ij_begin,ij_end)
+ 
+        else
+        
+          stop 'vlspltgen_p : schema non parallelise'
+      
+        endif
+       
+       enddo
+
+     
+      ijb=ij_begin
+      ije=ij_end
+c$OMP BARRIER      
+
+
+      DO iq=1,nqtot
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)          
+        DO l=1,llm
+           DO ij=ijb,ije
+c             print *,'zq-->',ij,l,iq,zq(ij,l,iq)
+c             print *,'q-->',ij,l,iq,q(ij,l,iq)
+             q(ij,l,iq)=zq(ij,l,iq)
+           ENDDO
+        ENDDO
+c$OMP END DO NOWAIT          
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm
+           DO ij=ijb,ije-iip1+1,iip1
+              q(ij+iim,l,iq)=q(ij,l,iq)
+           ENDDO
+        ENDDO
+c$OMP END DO NOWAIT  
+
+      ENDDO
+        
+      
+c$OMP BARRIER
+
+cc$OMP MASTER      
+c      call WaitSendRequest(MyRequest1) 
+c      call WaitSendRequest(MyRequest2)
+cc$OMP END MASTER
+cc$OMP BARRIER
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlspltqs_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlspltqs_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/vlspltqs_p.F	(revision 3330)
@@ -0,0 +1,933 @@
+c
+c $Id$
+c
+       SUBROUTINE vlspltqs_p ( q,pente_max,masse,w,pbaru,pbarv,pdt,
+     ,                                  p,pk,teta                 )
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget, F.Codron 
+c
+c    ********************************************************************
+c          Shema  d'advection " pseudo amont " .
+c      + test sur humidite specifique: Q advecte< Qsat aval
+c                   (F. Codron, 10/99)
+c    ********************************************************************
+c     q,pbaru,pbarv,w sont des arguments d'entree  pour le s-pg ....
+c
+c     pente_max facteur de limitation des pentes: 2 en general
+c                                                0 pour un schema amont
+c     pbaru,pbarv,w flux de masse en u ,v ,w
+c     pdt pas de temps
+c
+c     teta temperature potentielle, p pression aux interfaces,
+c     pk exner au milieu des couches necessaire pour calculer Qsat
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE mod_hallo
+      USE VAMPIR
+      USE comconst_mod, ONLY: cpp
+      IMPLICIT NONE
+
+c
+#include "dimensions.h"
+#include "paramet.h"
+
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
+      REAL q(ip1jmp1,llm)
+      REAL w(ip1jmp1,llm),pdt
+      REAL p(ip1jmp1,llmp1),teta(ip1jmp1,llm),pk(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l,j,ii
+c
+      REAL qsat(ip1jmp1,llm)
+      REAL zm(ip1jmp1,llm)
+      REAL mu(ip1jmp1,llm)
+      REAL mv(ip1jm,llm)
+      REAL mw(ip1jmp1,llm+1)
+      REAL zq(ip1jmp1,llm)
+      REAL temps1,temps2,temps3
+      REAL zzpbar, zzw
+      LOGICAL testcpu
+      SAVE testcpu
+      SAVE temps1,temps2,temps3
+
+      REAL qmin,qmax
+      DATA qmin,qmax/0.,1.e33/
+      DATA testcpu/.false./
+      DATA temps1,temps2,temps3/0.,0.,0./
+
+c--pour rapport de melange saturant--
+
+      REAL rtt,retv,r2es,r3les,r3ies,r4les,r4ies,play
+      REAL ptarg,pdelarg,foeew,zdelta
+      REAL tempe(ip1jmp1)
+      INTEGER ijb,ije
+      type(request) :: MyRequest1
+      type(request) :: MyRequest2
+
+c    fonction psat(T)
+
+       FOEEW ( PTARG,PDELARG ) = EXP (
+     *          (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)
+     * / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )
+
+        r2es  = 380.11733 
+        r3les = 17.269
+        r3ies = 21.875
+        r4les = 35.86
+        r4ies = 7.66
+        retv = 0.6077667
+        rtt  = 273.16
+
+c-- Calcul de Qsat en chaque point
+c-- approximation: au milieu des couches play(l)=(p(l)+p(l+1))/2
+c   pour eviter une exponentielle.
+
+      call SetTag(MyRequest1,100)
+      call SetTag(MyRequest2,101)
+        
+	ijb=ij_begin-iip1
+	ije=ij_end+iip1
+	if (pole_nord) ijb=ij_begin
+	if (pole_sud) ije=ij_end
+	
+	
+	DO l = 1, llm
+         DO ij = ijb, ije
+          tempe(ij) = teta(ij,l) * pk(ij,l) /cpp
+         ENDDO
+         DO ij = ijb, ije
+          zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) )
+          play   = 0.5*(p(ij,l)+p(ij,l+1))
+          qsat(ij,l) = MIN(0.5, r2es* FOEEW(tempe(ij),zdelta) / play )
+          qsat(ij,l) = qsat(ij,l) / ( 1. - retv * qsat(ij,l) )
+         ENDDO
+        ENDDO
+
+c      PRINT*,'Debut vlsplt version debug sans vlyqs'
+
+        zzpbar = 0.5 * pdt
+        zzw    = pdt
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ijb+iip1
+      if (pole_sud)  ije=ije-iip1
+
+      
+      DO l=1,llm
+        DO ij = ijb,ije
+            mu(ij,l)=pbaru(ij,l) * zzpbar
+         ENDDO
+      ENDDO
+      
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+      DO l=1,llm
+         DO ij=ijb,ije
+            mv(ij,l)=pbarv(ij,l) * zzpbar
+         ENDDO
+      ENDDO
+
+      ijb=ij_begin
+      ije=ij_end
+      
+      DO l=1,llm
+         DO ij=ijb,ije
+            mw(ij,l)=w(ij,l) * zzw
+         ENDDO
+      ENDDO
+
+      DO ij=ijb,ije
+         mw(ij,llm+1)=0.
+      ENDDO
+
+c      CALL SCOPY(ijp1llm,q,1,zq,1)
+c      CALL SCOPY(ijp1llm,masse,1,zm,1)
+
+       ijb=ij_begin
+       ije=ij_end
+       zq(ijb:ije,1:llm)=q(ijb:ije,1:llm)
+       zm(ijb:ije,1:llm)=masse(ijb:ije,1:llm)
+
+
+      call vlxqs_p(zq,pente_max,zm,mu,qsat,ij_begin,ij_begin+2*iip1-1)
+      call vlxqs_p(zq,pente_max,zm,mu,qsat,ij_end-2*iip1+1,ij_end)
+ 
+      call VTb(VTHallo)
+      call Register_Hallo(zq,ip1jmp1,llm,2,2,2,2,MyRequest1)
+      call Register_Hallo(zm,ip1jmp1,llm,1,1,1,1,MyRequest1)
+      call SendRequest(MyRequest1)
+      call VTe(VTHallo)
+
+      call vlxqs_p(zq,pente_max,zm,mu,qsat,
+     .             ij_begin+2*iip1,ij_end-2*iip1)
+
+      call VTb(VTHallo)
+      call WaitRecvRequest(MyRequest1)
+      call VTe(VTHallo)
+
+      call vlyqs_p(zq,pente_max,zm,mv,qsat)
+
+      call vlz_p(zq,pente_max,zm,mw,ij_begin,ij_begin+2*iip1-1)
+      call vlz_p(zq,pente_max,zm,mw,ij_end-2*iip1+1,ij_end)
+
+      call VTb(VTHallo)
+      call Register_Hallo(zq,ip1jmp1,llm,2,2,2,2,MyRequest2)
+      call Register_Hallo(zm,ip1jmp1,llm,1,1,1,1,MyRequest2)
+      call SendRequest(MyRequest2)
+      call VTe(VTHallo)
+
+      call vlz_p(zq,pente_max,zm,mw,ij_begin+2*iip1,ij_end-2*iip1)
+
+      call VTb(VTHallo)
+      call WaitRecvRequest(MyRequest2)
+      call VTe(VTHallo)
+      
+      call vlyqs_p(zq,pente_max,zm,mv,qsat)
+
+
+      call vlxqs_p(zq,pente_max,zm,mu,qsat,ij_begin,ij_end)
+
+
+      ijb=ij_begin
+      ije=ij_end
+
+      DO l=1,llm
+         DO ij=ijb,ije
+           q(ij,l)=zq(ij,l)
+         ENDDO
+      ENDDO
+      
+      DO l=1,llm
+         DO ij=ijb,ije-iip1+1,iip1
+            q(ij+iim,l)=q(ij,l)
+         ENDDO
+      ENDDO
+
+      call WaitSendRequest(MyRequest1) 
+      call WaitSendRequest(MyRequest2)
+
+      RETURN
+      END
+      SUBROUTINE vlxqs_p(q,pente_max,masse,u_m,qsat,ijb_x,ije_x)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL u_m( ip1jmp1,llm )
+      REAL q(ip1jmp1,llm)
+      REAL qsat(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER ij,l,j,i,iju,ijq,indu(ip1jmp1),niju
+      INTEGER n0,iadvplus(ip1jmp1,llm),nl(llm)
+c
+      REAL new_m,zu_m,zdum(ip1jmp1,llm)
+      REAL dxq(ip1jmp1,llm),dxqu(ip1jmp1)
+      REAL zz(ip1jmp1)
+      REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm)
+      REAL u_mq(ip1jmp1,llm)
+
+      REAL      SSUM
+
+
+      INTEGER ijb,ije,ijb_x,ije_x
+      
+
+c   calcul de la pente a droite et a gauche de la maille
+
+c      ijb=ij_begin
+c      ije=ij_end
+
+      ijb=ijb_x
+      ije=ije_x
+        
+      if (pole_nord.and.ijb==1) ijb=ijb+iip1
+      if (pole_sud.and.ije==ip1jmp1)  ije=ije-iip1
+      
+      IF (pente_max.gt.-1.e-5) THEN
+c     IF (pente_max.gt.10) THEN
+
+c   calcul des pentes avec limitation, Van Leer scheme I:
+c   -----------------------------------------------------
+
+c   calcul de la pente aux points u
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+         DO l = 1, llm
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l)-q(ij,l)
+c              IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'
+c              sigu(ij)=u_m(ij,l)/masse(ij,l)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+c              sigu(ij)=sigu(ij-iim)
+            ENDDO
+
+            DO ij=ijb,ije
+               adxqu(ij)=abs(dxqu(ij))
+            ENDDO
+
+c   calcul de la pente maximum dans la maille en valeur absolue
+
+            DO ij=ijb+1,ije
+               dxqmax(ij,l)=pente_max*
+     ,      min(adxqu(ij-1),adxqu(ij))
+c limitation subtile
+c    ,      min(adxqu(ij-1)/sigu(ij-1),adxqu(ij)/(1.-sigu(ij)))
+          
+
+            ENDDO
+
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqmax(ij-iim,l)=dxqmax(ij,l)
+            ENDDO
+
+            DO ij=ijb+1,ije
+#ifdef CRAY
+               dxq(ij,l)=
+     ,         cvmgp(dxqu(ij-1)+dxqu(ij),0.,dxqu(ij-1)*dxqu(ij))
+#else
+               IF(dxqu(ij-1)*dxqu(ij).gt.0) THEN
+                  dxq(ij,l)=dxqu(ij-1)+dxqu(ij)
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+#endif
+               dxq(ij,l)=0.5*dxq(ij,l)
+               dxq(ij,l)=
+     ,         sign(min(abs(dxq(ij,l)),dxqmax(ij,l)),dxq(ij,l))
+            ENDDO
+
+         ENDDO ! l=1,llm
+c$OMP END DO NOWAIT
+
+      ELSE ! (pente_max.lt.-1.e-5)
+
+c   Pentes produits:
+c   ----------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 
+         DO l = 1, llm
+            DO ij=ijb,ije-1
+               dxqu(ij)=q(ij+1,l)-q(ij,l)
+            ENDDO
+            DO ij=ijb+iip1-1,ije,iip1
+               dxqu(ij)=dxqu(ij-iim)
+            ENDDO
+
+            DO ij=ijb+1,ije
+               zz(ij)=dxqu(ij-1)*dxqu(ij)
+               zz(ij)=zz(ij)+zz(ij)
+               IF(zz(ij).gt.0) THEN
+                  dxq(ij,l)=zz(ij)/(dxqu(ij-1)+dxqu(ij))
+               ELSE
+c   extremum local
+                  dxq(ij,l)=0.
+               ENDIF
+            ENDDO
+
+         ENDDO
+c$OMP END DO NOWAIT
+      ENDIF ! (pente_max.lt.-1.e-5)
+
+c   bouclage de la pente en iip1:
+c   -----------------------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+iip1-1,ije,iip1
+            dxq(ij-iim,l)=dxq(ij,l)
+         ENDDO
+
+         DO ij=ijb,ije
+            iadvplus(ij,l)=0
+         ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+      
+      if (pole_nord) THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm      
+          iadvplus(1:iip1,l)=0
+        ENDDO
+c$OMP END DO NOWAIT
+      endif
+      
+      if (pole_sud)  THEN
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+        DO l=1,llm 
+	  iadvplus(ip1jm+1:ip1jmp1,l)=0
+        ENDDO
+c$OMP END DO NOWAIT
+      endif
+      	
+c   calcul des flux a gauche et a droite
+
+#ifdef CRAY
+c--pas encore modification sur Qsat
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+          zdum(ij,l)=cvmgp(1.-u_m(ij,l)/masse(ij,l),
+     ,                     1.+u_m(ij,l)/masse(ij+1,l),
+     ,                     u_m(ij,l))
+          zdum(ij,l)=0.5*zdum(ij,l)
+          u_mq(ij,l)=cvmgp(
+     ,                q(ij,l)+zdum(ij,l)*dxq(ij,l),
+     ,                q(ij+1,l)-zdum(ij,l)*dxq(ij+1,l),
+     ,                u_m(ij,l))
+          u_mq(ij,l)=u_m(ij,l)*u_mq(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+#else
+c   on cumule le flux correspondant a toutes les mailles dont la masse
+c   au travers de la paroi pENDant le pas de temps.
+c   le rapport de melange de l'air advecte est min(q_vanleer, Qsat_downwind)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije-1
+          IF (u_m(ij,l).gt.0.) THEN
+             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l)
+             u_mq(ij,l)=u_m(ij,l)*
+     $         min(q(ij,l)+0.5*zdum(ij,l)*dxq(ij,l),qsat(ij+1,l))
+          ELSE
+             zdum(ij,l)=1.+u_m(ij,l)/masse(ij+1,l)
+             u_mq(ij,l)=u_m(ij,l)*
+     $         min(q(ij+1,l)-0.5*zdum(ij,l)*dxq(ij+1,l),qsat(ij,l))
+          ENDIF
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#endif
+
+
+c   detection des points ou on advecte plus que la masse de la
+c   maille
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb,ije-1
+            IF(zdum(ij,l).lt.0) THEN
+               iadvplus(ij,l)=1
+               u_mq(ij,l)=0.
+            ENDIF
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb+iip1-1,ije,iip1
+          iadvplus(ij,l)=iadvplus(ij-iim,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+
+
+c   traitement special pour le cas ou on advecte en longitude plus que le
+c   contenu de la maille.
+c   cette partie est mal vectorisee.
+
+c   pas d'influence de la pression saturante (pour l'instant)
+
+c  calcul du nombre de maille sur lequel on advecte plus que la maille.
+
+      n0=0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         nl(l)=0
+         DO ij=ijb,ije
+            nl(l)=nl(l)+iadvplus(ij,l)
+         ENDDO
+         n0=n0+nl(l)
+      ENDDO
+c$OMP END DO NOWAIT
+
+cym ATTENTION ICI en OpenMP reduction pas forcement nécessaire
+cym      IF(n0.gt.1) THEN
+cym        IF(n0.gt.0) THEN
+ccc      PRINT*,'Nombre de points pour lesquels on advect plus que le'
+ccc     &       ,'contenu de la maille : ',n0
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+            IF(nl(l).gt.0) THEN
+               iju=0
+c   indicage des mailles concernees par le traitement special
+               DO ij=ijb,ije
+                  IF(iadvplus(ij,l).eq.1.and.mod(ij,iip1).ne.0) THEN
+                     iju=iju+1
+                     indu(iju)=ij
+                  ENDIF
+               ENDDO
+               niju=iju
+c              PRINT*,'niju,nl',niju,nl(l)
+
+c  traitement des mailles
+               DO iju=1,niju
+                  ij=indu(iju)
+                  j=(ij-1)/iip1+1
+                  zu_m=u_m(ij,l)
+                  u_mq(ij,l)=0.
+                  IF(zu_m.gt.0.) THEN
+                     ijq=ij
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(zu_m.gt.masse(ijq,l))
+                        u_mq(ij,l)=u_mq(ij,l)+q(ijq,l)*masse(ijq,l)
+                        zu_m=zu_m-masse(ijq,l)
+                        i=mod(i-2+iim,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*
+     &               (q(ijq,l)+0.5*(1.-zu_m/masse(ijq,l))*dxq(ijq,l))
+                  ELSE
+                     ijq=ij+1
+                     i=ijq-(j-1)*iip1
+c   accumulation pour les mailles completements advectees
+                     do while(-zu_m.gt.masse(ijq,l))
+                        u_mq(ij,l)=u_mq(ij,l)-q(ijq,l)*masse(ijq,l)
+                        zu_m=zu_m+masse(ijq,l)
+                        i=mod(i,iim)+1
+                        ijq=(j-1)*iip1+i
+                     ENDDO
+c   ajout de la maille non completement advectee
+                     u_mq(ij,l)=u_mq(ij,l)+zu_m*(q(ijq,l)-
+     &               0.5*(1.+zu_m/masse(ijq,l))*dxq(ijq,l))
+                  ENDIF
+               ENDDO
+            ENDIF
+         ENDDO
+c$OMP END DO NOWAIT
+cym      ENDIF  ! n0.gt.0 
+
+
+
+c   bouclage en latitude
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        DO ij=ijb+iip1-1,ije,iip1
+           u_mq(ij,l)=u_mq(ij-iim,l)
+        ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   calcul des tendances
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ij=ijb+1,ije
+            new_m=masse(ij,l)+u_m(ij-1,l)-u_m(ij,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+
+     &      u_mq(ij-1,l)-u_mq(ij,l))
+     &      /new_m
+            masse(ij,l)=new_m
+         ENDDO
+c   Modif Fred 22 03 96 correction d'un bug (les scopy ci-dessous)
+         DO ij=ijb+iip1-1,ije,iip1
+            q(ij-iim,l)=q(ij,l)
+            masse(ij-iim,l)=masse(ij,l)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+c     CALL SCOPY((jjm-1)*llm,q(iip1+iip1,1),iip1,q(iip2,1),iip1)
+c     CALL SCOPY((jjm-1)*llm,masse(iip1+iip1,1),iip1,masse(iip2,1),iip1)
+
+
+      RETURN
+      END
+      SUBROUTINE vlyqs_p(q,pente_max,masse,masse_adv_v,qsat)
+c
+c     Auteurs:   P.Le Van, F.Hourdin, F.Forget 
+c
+c    ********************************************************************
+c     Shema  d'advection " pseudo amont " .
+c    ********************************************************************
+c     q,masse_adv_v,w sont des arguments d'entree  pour le s-pg ....
+c     qsat 	       est   un argument de sortie pour le s-pg ....
+c
+c
+c   --------------------------------------------------------------------
+      USE parallel_lmdz
+      USE comconst_mod, ONLY: pi
+      IMPLICIT NONE
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+c
+c
+c   Arguments:
+c   ----------
+      REAL masse(ip1jmp1,llm),pente_max
+      REAL masse_adv_v( ip1jm,llm)
+      REAL q(ip1jmp1,llm)
+      REAL qsat(ip1jmp1,llm)
+c
+c      Local 
+c   ---------
+c
+      INTEGER i,ij,l
+c
+      REAL airej2,airejjm,airescb(iim),airesch(iim)
+      REAL dyq(ip1jmp1,llm),dyqv(ip1jm)
+      REAL adyqv(ip1jm),dyqmax(ip1jmp1)
+      REAL qbyv(ip1jm,llm)
+
+      REAL qpns,qpsn,dyn1,dys1,dyn2,dys2,newmasse,fn,fs
+c     REAL newq,oldmasse
+      Logical first
+      SAVE first
+c$OMP THREADPRIVATE(first)
+      REAL convpn,convps,convmpn,convmps
+      REAL sinlon(iip1),sinlondlon(iip1)
+      REAL coslon(iip1),coslondlon(iip1)
+      SAVE sinlon,coslon,sinlondlon,coslondlon
+      SAVE airej2,airejjm
+c$OMP THREADPRIVATE(sinlon,coslon,sinlondlon,coslondlon)
+c$OMP THREADPRIVATE(airej2,airejjm)
+c
+c
+      REAL      SSUM
+
+      DATA first/.true./
+      INTEGER ijb,ije
+
+      IF(first) THEN
+         PRINT*,'Shema  Amont nouveau  appele dans  Vanleer   '
+         first=.false.
+         do i=2,iip1
+            coslon(i)=cos(rlonv(i))
+            sinlon(i)=sin(rlonv(i))
+            coslondlon(i)=coslon(i)*(rlonu(i)-rlonu(i-1))/pi
+            sinlondlon(i)=sinlon(i)*(rlonu(i)-rlonu(i-1))/pi
+         ENDDO
+         coslon(1)=coslon(iip1)
+         coslondlon(1)=coslondlon(iip1)
+         sinlon(1)=sinlon(iip1)
+         sinlondlon(1)=sinlondlon(iip1)
+         airej2 = SSUM( iim, aire(iip2), 1 )
+         airejjm= SSUM( iim, aire(ip1jm -iim), 1 ) 
+      ENDIF
+
+c
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, llm
+c
+c   --------------------------------
+c      CALCUL EN LATITUDE
+c   --------------------------------
+
+c   On commence par calculer la valeur du traceur moyenne sur le premier cercle
+c   de latitude autour du pole (qpns pour le pole nord et qpsn pour
+c    le pole nord) qui sera utilisee pour evaluer les pentes au pole.
+
+      if (pole_nord) then
+        DO i = 1, iim
+          airescb(i) = aire(i+ iip1) * q(i+ iip1,l)
+        ENDDO
+        qpns   = SSUM( iim,  airescb ,1 ) / airej2
+      endif
+      
+      if (pole_sud) then
+        DO i = 1, iim
+          airesch(i) = aire(i+ ip1jm- iip1) * q(i+ ip1jm- iip1,l)
+        ENDDO
+        qpsn   = SSUM( iim,  airesch ,1 ) / airejjm
+      endif
+
+
+c   calcul des pentes aux points v
+
+      ijb=ij_begin-2*iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyqv(ij)=q(ij,l)-q(ij+iip1,l)
+         adyqv(ij)=abs(dyqv(ij))
+      ENDDO
+
+
+c   calcul des pentes aux points scalaires
+
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+      
+      DO ij=ijb,ije
+         dyq(ij,l)=.5*(dyqv(ij-iip1)+dyqv(ij))
+         dyqmax(ij)=min(adyqv(ij-iip1),adyqv(ij))
+         dyqmax(ij)=pente_max*dyqmax(ij)
+      ENDDO
+      
+      IF (pole_nord) THEN
+
+c   calcul des pentes aux poles
+        DO ij=1,iip1
+           dyq(ij,l)=qpns-q(ij+iip1,l)
+        ENDDO
+
+c   filtrage de la derivee        
+        dyn1=0.
+        dyn2=0.
+        DO ij=1,iim
+          dyn1=dyn1+sinlondlon(ij)*dyq(ij,l)
+          dyn2=dyn2+coslondlon(ij)*dyq(ij,l)
+        ENDDO
+        DO ij=1,iip1
+          dyq(ij,l)=dyn1*sinlon(ij)+dyn2*coslon(ij)
+        ENDDO
+
+c   calcul des pentes limites aux poles
+        fn=1.
+        DO ij=1,iim
+          IF(pente_max*adyqv(ij).lt.abs(dyq(ij,l))) THEN
+            fn=min(pente_max*adyqv(ij)/abs(dyq(ij,l)),fn)
+          ENDIF
+        ENDDO
+      
+        DO ij=1,iip1
+         dyq(ij,l)=fn*dyq(ij,l)
+        ENDDO
+	  
+      ENDIF
+      
+      IF (pole_sud) THEN
+
+        DO ij=1,iip1
+           dyq(ip1jm+ij,l)=q(ip1jm+ij-iip1,l)-qpsn
+        ENDDO
+
+        dys1=0.
+        dys2=0.
+
+        DO ij=1,iim
+          dys1=dys1+sinlondlon(ij)*dyq(ip1jm+ij,l)
+          dys2=dys2+coslondlon(ij)*dyq(ip1jm+ij,l)
+        ENDDO
+
+        DO ij=1,iip1
+          dyq(ip1jm+ij,l)=dys1*sinlon(ij)+dys2*coslon(ij)
+        ENDDO
+        
+c   calcul des pentes limites aux poles	
+        fs=1.
+        DO ij=1,iim
+        IF(pente_max*adyqv(ij+ip1jm-iip1).lt.abs(dyq(ij+ip1jm,l))) THEN
+         fs=min(pente_max*adyqv(ij+ip1jm-iip1)/abs(dyq(ij+ip1jm,l)),fs)
+        ENDIF
+        ENDDO
+    
+        DO ij=1,iip1
+         dyq(ip1jm+ij,l)=fs*dyq(ip1jm+ij,l)
+        ENDDO
+	
+      ENDIF
+
+
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C  En memoire de dIFferents tests sur la 
+C  limitation des pentes aux poles.
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C     PRINT*,dyq(1)
+C     PRINT*,dyqv(iip1+1)
+C     appn=abs(dyq(1)/dyqv(iip1+1))
+C     PRINT*,dyq(ip1jm+1)
+C     PRINT*,dyqv(ip1jm-iip1+1)
+C     apps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))
+C     DO ij=2,iim
+C        appn=amax1(abs(dyq(ij)/dyqv(ij)),appn)
+C        apps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),apps)
+C     ENDDO
+C     appn=min(pente_max/appn,1.)
+C     apps=min(pente_max/apps,1.)
+C
+C
+C   cas ou on a un extremum au pole
+C
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   appn=0.
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    &   dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &   apps=0.
+C
+C   limitation des pentes aux poles
+C     DO ij=1,iip1
+C        dyq(ij)=appn*dyq(ij)
+C        dyq(ip1jm+ij)=apps*dyq(ip1jm+ij)
+C     ENDDO
+C
+C   test
+C      DO ij=1,iip1
+C         dyq(iip1+ij)=0.
+C         dyq(ip1jm+ij-iip1)=0.
+C      ENDDO
+C      DO ij=1,ip1jmp1
+C         dyq(ij)=dyq(ij)*cos(rlatu((ij-1)/iip1+1))
+C      ENDDO
+C
+C changement 10 07 96
+C     IF(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
+C    &   THEN
+C        DO ij=1,iip1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=1,iip1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij))
+C        ENDDO
+C     ENDIF
+C
+C     IF(dyqv(ismax(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1)*
+C    & dyqv(ismin(iim,dyqv(ip1jm-iip1+1),1)+ip1jm-iip1+1).le.0.)
+C    &THEN
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=0.
+C        ENDDO
+C     ELSE
+C        DO ij=ip1jm+1,ip1jmp1
+C           dyqmax(ij)=pente_max*abs(dyqv(ij-iip1))
+C        ENDDO
+C     ENDIF
+C   fin changement 10 07 96
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+
+c   calcul des pentes limitees
+      ijb=ij_begin-iip1
+      ije=ij_end+iip1
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+      DO ij=ijb,ije
+         IF(dyqv(ij)*dyqv(ij-iip1).gt.0.) THEN
+            dyq(ij,l)=sign(min(abs(dyq(ij,l)),dyqmax(ij)),dyq(ij,l))
+         ELSE
+            dyq(ij,l)=0.
+         ENDIF
+      ENDDO
+
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin-iip1
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+       DO ij=ijb,ije
+         IF( masse_adv_v(ij,l).GT.0. ) THEN
+           qbyv(ij,l)= MIN( qsat(ij+iip1,l), q(ij+iip1,l )  +
+     ,      dyq(ij+iip1,l)*0.5*(1.-masse_adv_v(ij,l)/masse(ij+iip1,l)))
+         ELSE
+              qbyv(ij,l)= MIN( qsat(ij,l), q(ij,l) - dyq(ij,l) *
+     ,                   0.5*(1.+masse_adv_v(ij,l)/masse(ij,l)) )
+         ENDIF
+          qbyv(ij,l) = masse_adv_v(ij,l)*qbyv(ij,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+      ijb=ij_begin
+      ije=ij_end
+      if (pole_nord) ijb=ij_begin+iip1
+      if (pole_sud)  ije=ij_end-iip1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+         DO ij=ijb,ije
+            newmasse=masse(ij,l)
+     &      +masse_adv_v(ij,l)-masse_adv_v(ij-iip1,l)
+            q(ij,l)=(q(ij,l)*masse(ij,l)+qbyv(ij,l)-qbyv(ij-iip1,l))
+     &         /newmasse
+            masse(ij,l)=newmasse
+         ENDDO
+c.-. ancienne version
+
+         IF (pole_nord) THEN
+
+           convpn=SSUM(iim,qbyv(1,l),1)/apoln
+           convmpn=ssum(iim,masse_adv_v(1,l),1)/apoln
+           DO ij = 1,iip1
+              newmasse=masse(ij,l)+convmpn*aire(ij)
+              q(ij,l)=(q(ij,l)*masse(ij,l)+convpn*aire(ij))/
+     &                 newmasse
+              masse(ij,l)=newmasse
+           ENDDO
+	 
+	 ENDIF
+         
+	 IF (pole_sud) THEN
+	 
+	   convps  = -SSUM(iim,qbyv(ip1jm-iim,l),1)/apols
+           convmps = -SSUM(iim,masse_adv_v(ip1jm-iim,l),1)/apols
+           DO ij = ip1jm+1,ip1jmp1
+              newmasse=masse(ij,l)+convmps*aire(ij)
+              q(ij,l)=(q(ij,l)*masse(ij,l)+convps*aire(ij))/
+     &                 newmasse
+              masse(ij,l)=newmasse
+           ENDDO
+	 
+	 ENDIF
+c.-. fin ancienne version
+
+c._. nouvelle version
+c        convpn=SSUM(iim,qbyv(1,l),1)
+c        convmpn=ssum(iim,masse_adv_v(1,l),1)
+c        oldmasse=ssum(iim,masse(1,l),1)
+c        newmasse=oldmasse+convmpn
+c        newq=(q(1,l)*oldmasse+convpn)/newmasse
+c        newmasse=newmasse/apoln
+c        DO ij = 1,iip1
+c           q(ij,l)=newq
+c           masse(ij,l)=newmasse*aire(ij)
+c        ENDDO
+c        convps=-SSUM(iim,qbyv(ip1jm-iim,l),1)
+c        convmps=-ssum(iim,masse_adv_v(ip1jm-iim,l),1)
+c        oldmasse=ssum(iim,masse(ip1jm-iim,l),1)
+c        newmasse=oldmasse+convmps
+c        newq=(q(ip1jmp1,l)*oldmasse+convps)/newmasse
+c        newmasse=newmasse/apols
+c        DO ij = ip1jm+1,ip1jmp1
+c           q(ij,l)=newq
+c           masse(ij,l)=newmasse*aire(ij)
+c        ENDDO
+c._. fin nouvelle version
+      ENDDO
+c$OMP END DO NOWAIT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/wrgrads.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/wrgrads.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/wrgrads.F	(revision 3330)
@@ -0,0 +1,128 @@
+!
+! $Header$
+!
+      subroutine wrgrads(if,nl,field,name,titlevar)
+      implicit none
+
+c   Declarations
+c    if indice du fichier
+c    nl nombre de couches
+c    field   champ
+c    name    petit nom
+c    titlevar   Titre
+
+#include "gradsdef.h"
+
+c   arguments
+      integer if,nl
+      real field(imx*jmx*lmx)
+      character*10 name,file
+      character*10 titlevar
+
+c   local
+
+      integer im,jm,lm,i,j,l,iv,iii,iji,iif,ijf
+
+      logical writectl
+
+
+      writectl=.false.
+
+      print*,if,iid(if),jid(if),ifd(if),jfd(if)
+      iii=iid(if)
+      iji=jid(if)
+      iif=ifd(if)
+      ijf=jfd(if)
+      im=iif-iii+1
+      jm=ijf-iji+1
+      lm=lmd(if)
+
+      print*,'im,jm,lm,name,firsttime(if)'
+      print*,im,jm,lm,name,firsttime(if)
+
+      if(firsttime(if)) then
+         if(name.eq.var(1,if)) then
+            firsttime(if)=.false.
+            ivar(if)=1
+         print*,'fin de l initialiation de l ecriture du fichier'
+         print*,file
+           print*,'fichier no: ',if
+           print*,'unit ',unit(if)
+           print*,'nvar  ',nvar(if)
+           print*,'vars ',(var(iv,if),iv=1,nvar(if))
+         else
+            ivar(if)=ivar(if)+1
+            nvar(if)=ivar(if)
+            var(ivar(if),if)=name
+            tvar(ivar(if),if)=trim(titlevar)
+            nld(ivar(if),if)=nl
+            print*,'initialisation ecriture de ',var(ivar(if),if)
+            print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
+         endif
+         writectl=.true.
+         itime(if)=1
+      else
+         ivar(if)=mod(ivar(if),nvar(if))+1
+         if (ivar(if).eq.nvar(if)) then
+            writectl=.true.
+            itime(if)=itime(if)+1
+         endif
+
+         if(var(ivar(if),if).ne.name) then
+           print*,'Il faut stoker la meme succession de champs a chaque'
+           print*,'pas de temps'
+           print*,'fichier no: ',if
+           print*,'unit ',unit(if)
+           print*,'nvar  ',nvar(if)
+           print*,'vars ',(var(iv,if),iv=1,nvar(if))
+
+           stop
+         endif
+      endif
+
+      print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
+      print*,ivar(if),nvar(if),var(ivar(if),if),writectl
+      do l=1,nl
+         irec(if)=irec(if)+1
+c        print*,'Ecrit rec=',irec(if),iii,iif,iji,ijf,
+c    s (l-1)*imd(if)*jmd(if)+(iji-1)*imd(if)+iii
+c    s ,(l-1)*imd(if)*jmd(if)+(ijf-1)*imd(if)+iif
+         write(unit(if)+1,rec=irec(if))
+     s   ((field((l-1)*imd(if)*jmd(if)+(j-1)*imd(if)+i)
+     s   ,i=iii,iif),j=iji,ijf)
+      enddo
+      if (writectl) then
+
+      file=fichier(if)
+c   WARNING! on reecrase le fichier .ctl a chaque ecriture
+      open(unit(if),file=trim(file)//'.ctl'
+     &         ,form='formatted',status='unknown')
+      write(unit(if),'(a5,1x,a40)')
+     &       'DSET ','^'//trim(file)//'.dat'
+
+      write(unit(if),'(a12)') 'UNDEF 1.0E30'
+      write(unit(if),'(a5,1x,a40)') 'TITLE ',title(if)
+      call formcoord(unit(if),im,xd(iii,if),1.,.false.,'XDEF')
+      call formcoord(unit(if),jm,yd(iji,if),1.,.true.,'YDEF')
+      call formcoord(unit(if),lm,zd(1,if),1.,.false.,'ZDEF')
+      write(unit(if),'(a4,i10,a30)')
+     &       'TDEF ',itime(if),' LINEAR 02JAN1987 1MO '
+      write(unit(if),'(a4,2x,i5)') 'VARS',nvar(if)
+      do iv=1,nvar(if)
+c        print*,'if,var(iv,if),nld(iv,if),nld(iv,if)-1/nld(iv,if)'
+c        print*,if,var(iv,if),nld(iv,if),nld(iv,if)-1/nld(iv,if)
+         write(unit(if),1000) var(iv,if),nld(iv,if)-1/nld(iv,if)
+     &     ,99,tvar(iv,if)
+      enddo
+      write(unit(if),'(a7)') 'ENDVARS'
+c
+1000  format(a5,3x,i4,i3,1x,a39)
+
+      close(unit(if))
+
+      endif ! writectl
+
+      return
+
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/write_field_p.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/write_field_p.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/write_field_p.F90	(revision 3330)
@@ -0,0 +1,73 @@
+module write_field_p
+implicit none
+  
+  interface WriteField_p
+    module procedure Write_field3d_p,Write_Field2d_p,Write_Field1d_p
+  end interface WriteField_p
+  
+  contains
+  
+  subroutine write_field1D_p(name,Field)
+    USE parallel_lmdz
+    USE write_field
+    implicit none
+  
+    integer, parameter :: MaxDim=1
+    character(len=*)   :: name
+    real, dimension(:) :: Field
+    real, dimension(:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    
+    
+    Dim=shape(Field)
+    allocate(New_Field(Dim(1)))
+    New_Field(:)=Field(:)
+    call Gather_Field(New_Field,dim(1),1,0)
+    
+    if (MPI_Rank==0) call WriteField(name,New_Field)
+    
+    end subroutine write_field1D_p
+
+  subroutine write_field2D_p(name,Field)
+    USE parallel_lmdz
+    USE write_field
+    implicit none
+  
+    integer, parameter :: MaxDim=2
+    character(len=*)   :: name
+    real, dimension(:,:) :: Field
+    real, dimension(:,:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    
+    Dim=shape(Field)
+    allocate(New_Field(Dim(1),Dim(2)))
+    New_Field(:,:)=Field(:,:)
+    call Gather_Field(New_Field(1,1),dim(1)*dim(2),1,0)
+    
+    if (MPI_Rank==0) call WriteField(name,New_Field)
+    
+     
+  end subroutine write_field2D_p
+  
+  subroutine write_field3D_p(name,Field)
+    USE parallel_lmdz
+    USE write_field
+    implicit none
+  
+    integer, parameter :: MaxDim=3
+    character(len=*)   :: name
+    real, dimension(:,:,:) :: Field
+    real, dimension(:,:,:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    
+    Dim=shape(Field)
+    allocate(New_Field(Dim(1),Dim(2),Dim(3)))
+    New_Field(:,:,:)=Field(:,:,:)
+    call Gather_Field(New_Field(1,1,1),dim(1)*dim(2),dim(3),0)
+    
+   if (MPI_Rank==0) call WriteField(name,New_Field)
+    
+  end subroutine write_field3D_p  
+
+end module write_field_p
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/writedynav_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/writedynav_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/writedynav_p.F	(revision 3330)
@@ -0,0 +1,167 @@
+!
+! $Id$
+!
+      subroutine writedynav_p( histid, time, vcov, 
+     ,                          ucov,teta,ppk,phi,q,masse,ps,phis)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+      USE ioipsl
+#endif
+      USE parallel_lmdz
+      USE misc_mod
+      USE infotrac
+      USE comconst_mod, ONLY: cpp
+      USE temps_mod, ONLY: itau_dyn
+      
+      implicit none
+
+C
+C   Ecriture du fichier histoire au format IOIPSL
+C
+C   Appels succesifs des routines: histwrite
+C
+C   Entree:
+C      histid: ID du fichier histoire
+C      time: temps de l'ecriture
+C      vcov: vents v covariants
+C      ucov: vents u covariants
+C      teta: temperature potentielle
+C      phi : geopotentiel instantane
+C      q   : traceurs
+C      masse: masse
+C      ps   :pression au sol
+C      phis : geopotentiel au sol
+C      
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+#include "iniprint.h"
+
+C
+C   Arguments
+C
+
+      INTEGER histid
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
+      REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm),ppk(ip1jmp1,llm)                  
+      REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
+      REAL phis(ip1jmp1)                  
+      REAL q(ip1jmp1,llm,nqtot)
+      integer time
+
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      integer ndex2d(iip1*jjp1),ndex3d(iip1*jjp1*llm),iq, ii, ll
+      real us(ip1jmp1,llm), vs(ip1jmp1,llm)
+      real tm(ip1jmp1,llm)
+      REAL vnat(ip1jm,llm),unat(ip1jmp1,llm) 
+      logical ok_sync
+      integer itau_w
+      integer :: ijb,ije,jjn
+C
+C  Initialisations
+C
+      if (adjust) return
+      
+      ndex3d = 0
+      ndex2d = 0
+      ok_sync = .TRUE.
+      us = 999.999
+      vs = 999.999
+      tm = 999.999
+      vnat = 999.999
+      unat = 999.999
+      itau_w = itau_dyn + time
+
+C Passage aux composantes naturelles du vent
+      call covnat_p(llm, ucov, vcov, unat, vnat)
+
+C
+C  Appels a histwrite pour l'ecriture des variables a sauvegarder
+C
+C  Vents U scalaire
+C
+      call gr_u_scal_p(llm, unat, us)
+      
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+      
+      call histwrite(histid, 'u', itau_w, us(ijb:ije,:), 
+     .               iip1*jjn*llm, ndex3d)
+C
+C  Vents V scalaire
+C
+      
+      call gr_v_scal_p(llm, vnat, vs)
+      call histwrite(histid, 'v', itau_w, vs(ijb:ije,:), 
+     .               iip1*jjn*llm, ndex3d)
+C
+C  Temperature potentielle moyennee
+C
+     
+      call histwrite(histid, 'theta', itau_w, teta(ijb:ije,:), 
+     .                iip1*jjn*llm, ndex3d)
+C
+C  Temperature moyennee
+C
+      do ll=1,llm
+        do ii = ijb, ije
+          tm(ii,ll) = teta(ii,ll) * ppk(ii,ll)/cpp
+        enddo
+      enddo
+      
+      call histwrite(histid, 'temp', itau_w, tm(ijb:ije,:), 
+     .                iip1*jjn*llm, ndex3d)
+C
+C  Geopotentiel
+C
+      call histwrite(histid, 'phi', itau_w, phi(ijb:ije,:), 
+     .                iip1*jjn*llm, ndex3d)
+C
+C  Traceurs
+C
+        DO iq=1,nqtot
+          call histwrite(histid, ttext(iq), itau_w, q(ijb:ije,:,iq), 
+     .                   iip1*jjn*llm, ndex3d)
+        enddo
+C
+C  Masse
+C
+       call histwrite(histid, 'masse', itau_w, masse(ijb:ije,1),
+     .                iip1*jjn, ndex2d)
+C
+C  Pression au sol
+C
+       call histwrite(histid, 'ps', itau_w, ps(ijb:ije), 
+     .                 iip1*jjn, ndex2d)
+C
+C  Geopotentiel au sol
+C
+       call histwrite(histid, 'phis', itau_w, phis(ijb:ije),
+     .                 iip1*jjn, ndex2d)
+C
+C  Fin
+C
+      if (ok_sync) call histsync(histid)
+#else
+      write(lunout,*)'writedynav_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/writehist_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/writehist_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dyn3dpar/writehist_p.F	(revision 3330)
@@ -0,0 +1,153 @@
+!
+! $Id$
+!
+      subroutine writehist_p( histid, histvid, time, vcov, 
+     ,                          ucov,teta,phi,q,masse,ps,phis)
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+      USE ioipsl
+#endif
+      USE parallel_lmdz
+      USE misc_mod
+      USE infotrac
+      USE temps_mod, ONLY: itau_dyn
+      
+      implicit none
+
+C
+C   Ecriture du fichier histoire au format IOIPSL
+C
+C   Appels succesifs des routines: histwrite
+C
+C   Entree:
+C      histid: ID du fichier histoire
+C      histvid:ID du fichier histoire pour les vents V (appele a disparaitre)
+C      time: temps de l'ecriture
+C      vcov: vents v covariants
+C      ucov: vents u covariants
+C      teta: temperature potentielle
+C      phi : geopotentiel instantane
+C      q   : traceurs
+C      masse: masse
+C      ps   :pression au sol
+C      phis : geopotentiel au sol
+C      
+C
+C   Sortie:
+C      fileid: ID du fichier netcdf cree
+C
+C   L. Fairhead, LMD, 03/99
+C
+C =====================================================================
+C
+C   Declarations
+#include "dimensions.h"
+#include "paramet.h"
+#include "comgeom.h"
+#include "ener.h"
+#include "description.h"
+#include "iniprint.h"
+
+C
+C   Arguments
+C
+
+      INTEGER histid, histvid
+      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
+      REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm)                   
+      REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
+      REAL phis(ip1jmp1)                  
+      REAL q(ip1jmp1,llm,nqtot)
+      integer time
+
+#ifdef CPP_IOIPSL
+! This routine needs IOIPSL
+C   Variables locales
+C
+      integer iq, ii, ll
+      integer ndexu(ip1jmp1*llm),ndexv(ip1jm*llm),ndex2d(ip1jmp1)
+      logical ok_sync
+      integer itau_w
+      integer :: ijb,ije,jjn
+C
+C  Initialisations
+C
+      if (adjust) return
+     
+    
+      ndexu = 0
+      ndexv = 0
+      ndex2d = 0
+      ok_sync =.TRUE.
+      itau_w = itau_dyn + time
+C
+C  Appels a histwrite pour l'ecriture des variables a sauvegarder
+C
+C  Vents U
+C
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+          
+      call histwrite(histid, 'ucov', itau_w, ucov(ijb:ije,:), 
+     .               iip1*jjn*llm, ndexu)
+
+C
+C  Vents V
+C
+      if (pole_sud) ije=ij_end-iip1
+      if (pole_sud) jjn=jj_nb-1
+      
+      call histwrite(histvid, 'vcov', itau_w, vcov(ijb:ije,:), 
+     .               iip1*jjn*llm, ndexv)
+
+C
+C  Temperature potentielle
+C
+      ijb=ij_begin
+      ije=ij_end
+      jjn=jj_nb
+
+      call histwrite(histid, 'teta', itau_w, teta(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+C
+C  Geopotentiel
+C
+      call histwrite(histid, 'phi', itau_w, phi(ijb:ije,:), 
+     .                iip1*jjn*llm, ndexu)
+C
+C  Traceurs
+C
+        DO iq=1,nqtot
+          call histwrite(histid, ttext(iq), itau_w, q(ijb:ije,:,iq), 
+     .                   iip1*jjn*llm, ndexu)
+        enddo
+C
+C  Masse
+C
+      call histwrite(histid, 'masse', itau_w, masse(ijb:ije,1),
+     .               iip1*jjn, ndex2d)
+C
+C  Pression au sol
+C
+      call histwrite(histid, 'ps', itau_w, ps(ijb:ije),
+     .               iip1*jjn, ndex2d)
+C
+C  Geopotentiel au sol
+C
+      call histwrite(histid, 'phis', itau_w, phis(ijb:ije),
+     .               iip1*jjn, ndex2d)
+C
+C  Fin
+C
+      if (ok_sync) then
+        call histsync(histid)
+        call histsync(histvid)
+      endif
+#else
+      write(lunout,*)'writehist_p: Needs IOIPSL to function'
+#endif
+! #endif of #ifdef CPP_IOIPSL
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis.F	(revision 3330)
@@ -0,0 +1,710 @@
+!
+! $Id$
+!
+C
+C
+      SUBROUTINE calfis(lafin,
+     $                  jD_cur, jH_cur,
+     $                  pucov,
+     $                  pvcov,
+     $                  pteta,
+     $                  pq,
+     $                  pmasse,
+     $                  pps,
+     $                  pp,
+     $                  ppk,
+     $                  pphis,
+     $                  pphi,
+     $                  pducov,
+     $                  pdvcov,
+     $                  pdteta,
+     $                  pdq,
+     $                  flxw,
+     $                  pdufi,
+     $                  pdvfi,
+     $                  pdhfi,
+     $                  pdqfi,
+     $                  pdpsfi)
+c
+c    Auteur :  P. Le Van, F. Hourdin 
+c   .........
+      USE infotrac, ONLY: nqtot, niadv, tname
+      USE control_mod, ONLY: planet_type, nsplit_phys
+#ifdef CPP_PHYS
+      USE callphysiq_mod, ONLY: call_physiq
+#endif 
+      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
+      USE comvert_mod, ONLY: preff, presnivs
+      
+      IMPLICIT NONE
+c=======================================================================
+c
+c   1. rearrangement des tableaux et transformation
+c      variables dynamiques  >  variables physiques
+c   2. calcul des termes physiques
+c   3. retransformation des tendances physiques en tendances dynamiques
+c
+c   remarques:
+c   ----------
+c
+c    - les vents sont donnes dans la physique par leurs composantes 
+c      naturelles.
+c    - la variable thermodynamique de la physique est une variable
+c      intensive :   T 
+c      pour la dynamique on prend    T * ( preff / p(l) ) **kappa
+c    - les deux seules variables dependant de la geometrie necessaires
+c      pour la physique sont la latitude pour le rayonnement et 
+c      l'aire de la maille quand on veut integrer une grandeur 
+c      horizontalement.
+c    - les points de la physique sont les points scalaires de la 
+c      la dynamique; numerotation:
+c          1 pour le pole nord
+c          (jjm-1)*iim pour l'interieur du domaine
+c          ngridmx pour le pole sud
+c      ---> ngridmx=2+(jjm-1)*iim
+c
+c     Input :
+c     -------
+c       pucov           covariant zonal velocity
+c       pvcov           covariant meridional velocity 
+c       pteta           potential temperature
+c       pps             surface pressure
+c       pmasse          masse d'air dans chaque maille
+c       pts             surface temperature  (K)
+c       callrad         clef d'appel au rayonnement
+c
+c    Output :
+c    --------
+c        pdufi          tendency for the natural zonal velocity (ms-1)
+c        pdvfi          tendency for the natural meridional velocity 
+c        pdhfi          tendency for the potential temperature
+c        pdtsfi         tendency for the surface temperature
+c
+c        pdtrad         radiative tendencies  \  both input
+c        pfluxrad       radiative fluxes      /  and output
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c
+c    0.  Declarations :
+c    ------------------
+
+      include "dimensions.h"
+      include "paramet.h"
+
+      INTEGER ngridmx
+      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
+
+      include "comgeom2.h"
+      include "iniprint.h"
+
+c    Arguments :
+c    -----------
+      LOGICAL,INTENT(IN) ::  lafin ! .true. for the very last call to physics
+      REAL,INTENT(IN):: jD_cur, jH_cur
+      REAL,INTENT(IN) :: pvcov(iip1,jjm,llm) ! covariant meridional velocity
+      REAL,INTENT(IN) :: pucov(iip1,jjp1,llm) ! covariant zonal velocity
+      REAL,INTENT(IN) :: pteta(iip1,jjp1,llm) ! potential temperature
+      REAL,INTENT(IN) :: pmasse(iip1,jjp1,llm) ! mass in each cell ! not used
+      REAL,INTENT(IN) :: pq(iip1,jjp1,llm,nqtot) ! tracers
+      REAL,INTENT(IN) :: pphis(iip1,jjp1) ! surface geopotential
+      REAL,INTENT(IN) :: pphi(iip1,jjp1,llm) ! geopotential
+
+      REAL,INTENT(IN) :: pdvcov(iip1,jjm,llm) ! dynamical tendency on vcov
+      REAL,INTENT(IN) :: pducov(iip1,jjp1,llm) ! dynamical tendency on ucov
+      REAL,INTENT(IN) :: pdteta(iip1,jjp1,llm) ! dynamical tendency on teta
+      ! NB: pdteta is used only to compute pcvgt which is in fact not used...
+      REAL,INTENT(IN) :: pdq(iip1,jjp1,llm,nqtot) ! dynamical tendency on tracers
+      ! NB: pdq is only used to compute pcvgq which is in fact not used...
+
+      REAL,INTENT(IN) :: pps(iip1,jjp1) ! surface pressure (Pa)
+      REAL,INTENT(IN) :: pp(iip1,jjp1,llmp1) ! pressure at mesh interfaces (Pa)
+      REAL,INTENT(IN) :: ppk(iip1,jjp1,llm) ! Exner at mid-layer
+      REAL,INTENT(IN) :: flxw(iip1,jjp1,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) (on llm because flxw(:,:,llm+1)=0)
+
+      ! tendencies (in */s) from the physics
+      REAL,INTENT(OUT) :: pdvfi(iip1,jjm,llm) ! tendency on covariant meridional wind
+      REAL,INTENT(OUT) :: pdufi(iip1,jjp1,llm) ! tendency on covariant zonal wind
+      REAL,INTENT(OUT) :: pdhfi(iip1,jjp1,llm) ! tendency on potential temperature (K/s)
+      REAL,INTENT(OUT) :: pdqfi(iip1,jjp1,llm,nqtot) ! tendency on tracers
+      REAL,INTENT(OUT) :: pdpsfi(iip1,jjp1) ! tendency on surface pressure (Pa/s)
+
+
+c    Local variables :
+c    -----------------
+
+      INTEGER i,j,l,ig0,ig,iq,iiq
+      REAL zpsrf(ngridmx)
+      REAL zplev(ngridmx,llm+1),zplay(ngridmx,llm)
+      REAL zphi(ngridmx,llm),zphis(ngridmx)
+c
+      REAL zrot(iip1,jjm,llm) ! AdlC May 2014
+      REAL zufi(ngridmx,llm), zvfi(ngridmx,llm)
+      REAL zrfi(ngridmx,llm) ! relative wind vorticity
+      REAL ztfi(ngridmx,llm),zqfi(ngridmx,llm,nqtot)
+      REAL zpk(ngridmx,llm)
+c
+      REAL pcvgu(ngridmx,llm), pcvgv(ngridmx,llm)
+      REAL pcvgt(ngridmx,llm), pcvgq(ngridmx,llm,2)
+c
+      REAL zdufi(ngridmx,llm),zdvfi(ngridmx,llm)
+      REAL zdtfi(ngridmx,llm),zdqfi(ngridmx,llm,nqtot)
+      REAL zdpsrf(ngridmx)
+c
+      REAL zdufic(ngridmx,llm),zdvfic(ngridmx,llm)
+      REAL zdtfic(ngridmx,llm),zdqfic(ngridmx,llm,nqtot)
+      REAL jH_cur_split,zdt_split
+      LOGICAL debut_split,lafin_split
+      INTEGER isplit
+
+      REAL zsin(iim),zcos(iim),z1(iim)
+      REAL zsinbis(iim),zcosbis(iim),z1bis(iim)
+      REAL unskap, pksurcp
+c
+      REAL flxwfi(ngridmx,llm)  ! Flux de masse verticale sur la grille physiq
+c
+      
+      REAL SSUM
+
+      LOGICAL,SAVE :: firstcal=.true., debut=.true.
+!      REAL rdayvrai
+
+c
+c-----------------------------------------------------------------------
+c
+c    1. Initialisations :
+c    --------------------
+c
+c
+      IF ( firstcal )  THEN
+        debut = .TRUE.
+        IF (ngridmx.NE.2+(jjm-1)*iim) THEN
+         write(lunout,*) 'STOP dans calfis'
+         write(lunout,*)
+     &   'La dimension ngridmx doit etre egale a 2 + (jjm-1)*iim'
+         write(lunout,*) '  ngridmx  jjm   iim   '
+         write(lunout,*) ngridmx,jjm,iim
+         STOP
+        ENDIF
+      ELSE
+        debut = .FALSE.
+      ENDIF ! of IF (firstcal)
+
+c
+c
+c-----------------------------------------------------------------------
+c   40. transformation des variables dynamiques en variables physiques:
+c   ---------------------------------------------------------------
+
+c   41. pressions au sol (en Pascals)
+c   ----------------------------------
+
+       
+      zpsrf(1) = pps(1,1)
+
+      ig0  = 2
+      DO j = 2,jjm
+         CALL SCOPY( iim,pps(1,j),1,zpsrf(ig0), 1 )
+         ig0 = ig0+iim
+      ENDDO
+
+      zpsrf(ngridmx) = pps(1,jjp1)
+
+
+c   42. pression intercouches et fonction d'Exner:
+c
+c   -----------------------------------------------------------------
+c     .... zplev  definis aux (llm +1) interfaces des couches  ....
+c     .... zplay  definis aux (  llm )    milieux des couches  .... 
+c   -----------------------------------------------------------------
+
+c    ...    Exner = cp * ( p(l) / preff ) ** kappa     ....
+c
+       unskap   = 1./ kappa
+c
+      DO l = 1, llm
+        zpk(   1,l ) = ppk(1,1,l)
+        zplev( 1,l ) = pp(1,1,l)
+        ig0 = 2
+          DO j = 2, jjm
+             DO i =1, iim
+              zpk(   ig0,l ) = ppk(i,j,l)
+              zplev( ig0,l ) = pp(i,j,l)
+              ig0 = ig0 +1
+             ENDDO
+          ENDDO
+        zpk(   ngridmx,l ) = ppk(1,jjp1,l)
+        zplev( ngridmx,l ) = pp(1,jjp1,l)
+      ENDDO
+        zplev( 1,llmp1 ) = pp(1,1,llmp1)
+        ig0 = 2
+          DO j = 2, jjm
+             DO i =1, iim
+              zplev( ig0,llmp1 ) = pp(i,j,llmp1)
+              ig0 = ig0 +1
+             ENDDO
+          ENDDO
+        zplev( ngridmx,llmp1 ) = pp(1,jjp1,llmp1)
+c
+c
+
+c   43. temperature naturelle (en K) et pressions milieux couches .
+c   ---------------------------------------------------------------
+
+      DO l=1,llm
+
+         pksurcp     =  ppk(1,1,l) / cpp
+         zplay(1,l)  =  preff * pksurcp ** unskap
+         ztfi(1,l)   =  pteta(1,1,l) *  pksurcp
+         pcvgt(1,l)  =  pdteta(1,1,l) * pksurcp / pmasse(1,1,l)
+         ig0         = 2
+
+         DO j = 2, jjm
+            DO i = 1, iim
+              pksurcp        = ppk(i,j,l) / cpp
+              zplay(ig0,l)   = preff * pksurcp ** unskap
+              ztfi(ig0,l)    = pteta(i,j,l)  * pksurcp
+              pcvgt(ig0,l)   = pdteta(i,j,l) * pksurcp / pmasse(i,j,l)
+              ig0            = ig0 + 1
+            ENDDO
+         ENDDO
+
+         pksurcp       = ppk(1,jjp1,l) / cpp
+         zplay(ig0,l)  = preff * pksurcp ** unskap
+         ztfi (ig0,l)  = pteta(1,jjp1,l)  * pksurcp
+         pcvgt(ig0,l)  = pdteta(1,jjp1,l) * pksurcp/ pmasse(1,jjp1,l)
+
+      ENDDO
+
+c   43.bis traceurs
+c   ---------------
+c
+      DO iq=1,nqtot
+          iiq=niadv(iq) 
+         DO l=1,llm
+            zqfi(1,l,iq) = pq(1,1,l,iiq)
+            ig0          = 2
+            DO j=2,jjm
+               DO i = 1, iim
+                  zqfi(ig0,l,iq)  = pq(i,j,l,iiq)
+                  ig0             = ig0 + 1
+               ENDDO
+            ENDDO
+            zqfi(ig0,l,iq) = pq(1,jjp1,l,iiq)
+         ENDDO
+      ENDDO
+
+c   convergence dynamique pour les traceurs "EAU"
+! Earth-specific treatment of first 2 tracers (water)
+       if (planet_type=="earth") then
+        DO iq=1,2
+         DO l=1,llm
+            pcvgq(1,l,iq)= pdq(1,1,l,iq) / pmasse(1,1,l)
+            ig0          = 2
+            DO j=2,jjm
+               DO i = 1, iim
+                  pcvgq(ig0,l,iq) = pdq(i,j,l,iq) / pmasse(i,j,l)
+                  ig0             = ig0 + 1
+               ENDDO
+            ENDDO
+            pcvgq(ig0,l,iq)= pdq(1,jjp1,l,iq) / pmasse(1,jjp1,l)
+         ENDDO
+        ENDDO
+       endif ! of if (planet_type=="earth")
+
+
+c   Geopotentiel calcule par rapport a la surface locale:
+c   -----------------------------------------------------
+
+      CALL gr_dyn_fi(llm,iip1,jjp1,ngridmx,pphi,zphi)
+      CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,pphis,zphis)
+      DO l=1,llm
+         DO ig=1,ngridmx
+           zphi(ig,l)=zphi(ig,l)-zphis(ig)
+         ENDDO
+      ENDDO
+
+c   ....  Calcul de la vitesse  verticale  ( en Pa*m*s  ou Kg/s )  ....
+c JG : ancien calcule de omega utilise dans physiq.F. Maintenant le flux 
+c    de masse est calclue dans advtrac.F  
+c      DO l=1,llm
+c        pvervel(1,l)=pw(1,1,l) * g /apoln
+c        ig0=2
+c       DO j=2,jjm
+c           DO i = 1, iim
+c              pvervel(ig0,l) = pw(i,j,l) * g * unsaire(i,j)
+c              ig0 = ig0 + 1
+c           ENDDO
+c       ENDDO
+c        pvervel(ig0,l)=pw(1,jjp1,l) * g /apols
+c      ENDDO
+
+c
+c   45. champ u:
+c   ------------
+
+      DO 50 l=1,llm
+
+         DO 25 j=2,jjm
+            ig0 = 1+(j-2)*iim
+            zufi(ig0+1,l)= 0.5 * 
+     $      ( pucov(iim,j,l)/cu(iim,j) + pucov(1,j,l)/cu(1,j) )
+            pcvgu(ig0+1,l)= 0.5 * 
+     $      ( pducov(iim,j,l)/cu(iim,j) + pducov(1,j,l)/cu(1,j) )
+            DO 10 i=2,iim
+               zufi(ig0+i,l)= 0.5 *
+     $         ( pucov(i-1,j,l)/cu(i-1,j) + pucov(i,j,l)/cu(i,j) )
+               pcvgu(ig0+i,l)= 0.5 *
+     $         ( pducov(i-1,j,l)/cu(i-1,j) + pducov(i,j,l)/cu(i,j) )
+10         CONTINUE
+25      CONTINUE
+
+50    CONTINUE
+
+
+C  Alvaro de la Camara (May 2014)
+C  46.1 Calcul de la vorticite et passage sur la grille physique
+C  --------------------------------------------------------------
+      DO l=1,llm
+        do i=1,iim
+          do j=1,jjm
+            zrot(i,j,l) = (pvcov(i+1,j,l) - pvcov(i,j,l)
+     $                   + pucov(i,j+1,l) - pucov(i,j,l)) 
+     $                   / (cu(i,j)+cu(i,j+1)) 
+     $                   / (cv(i+1,j)+cv(i,j)) *4
+          enddo
+        enddo
+      ENDDO
+
+c   46.champ v:
+c   -----------
+
+      DO l=1,llm
+         DO j=2,jjm
+            ig0=1+(j-2)*iim
+            DO i=1,iim
+               zvfi(ig0+i,l)= 0.5 *
+     $         ( pvcov(i,j-1,l)/cv(i,j-1) + pvcov(i,j,l)/cv(i,j) )
+               pcvgv(ig0+i,l)= 0.5 *
+     $         ( pdvcov(i,j-1,l)/cv(i,j-1) + pdvcov(i,j,l)/cv(i,j) )
+            ENDDO
+               zrfi(ig0 + 1,l)= 0.25 *(zrot(iim,j-1,l)+zrot(iim,j,l)
+     &                                +zrot(1,j-1,l)+zrot(1,j,l))
+            DO i=2,iim
+               zrfi(ig0 + i,l)= 0.25 *(zrot(i-1,j-1,l)+zrot(i-1,j,l)
+     $                   +zrot(i,j-1,l)+zrot(i,j,l))   !  AdlC MAY 2014
+            ENDDO
+         ENDDO
+      ENDDO
+
+
+c   47. champs de vents aux pole nord   
+c   ------------------------------
+c        U = 1 / pi  *  integrale [ v * cos(long) * d long ]
+c        V = 1 / pi  *  integrale [ v * sin(long) * d long ]
+
+      DO l=1,llm
+
+         z1(1)   =(rlonu(1)-rlonu(iim)+2.*pi)*pvcov(1,1,l)/cv(1,1)
+         z1bis(1)=(rlonu(1)-rlonu(iim)+2.*pi)*pdvcov(1,1,l)/cv(1,1)
+         DO i=2,iim
+            z1(i)   =(rlonu(i)-rlonu(i-1))*pvcov(i,1,l)/cv(i,1)
+            z1bis(i)=(rlonu(i)-rlonu(i-1))*pdvcov(i,1,l)/cv(i,1)
+         ENDDO
+
+         DO i=1,iim
+            zcos(i)   = COS(rlonv(i))*z1(i)
+            zcosbis(i)= COS(rlonv(i))*z1bis(i)
+            zsin(i)   = SIN(rlonv(i))*z1(i)
+            zsinbis(i)= SIN(rlonv(i))*z1bis(i)
+         ENDDO
+
+         zufi(1,l)  = SSUM(iim,zcos,1)/pi
+         pcvgu(1,l) = SSUM(iim,zcosbis,1)/pi
+         zvfi(1,l)  = SSUM(iim,zsin,1)/pi
+         pcvgv(1,l) = SSUM(iim,zsinbis,1)/pi
+         zrfi(1, l) = 0.
+      ENDDO
+
+
+c   48. champs de vents aux pole sud:
+c   ---------------------------------
+c        U = 1 / pi  *  integrale [ v * cos(long) * d long ]
+c        V = 1 / pi  *  integrale [ v * sin(long) * d long ]
+
+      DO l=1,llm
+
+         z1(1)   =(rlonu(1)-rlonu(iim)+2.*pi)*pvcov(1,jjm,l)/cv(1,jjm)
+         z1bis(1)=(rlonu(1)-rlonu(iim)+2.*pi)*pdvcov(1,jjm,l)/cv(1,jjm)
+         DO i=2,iim
+            z1(i)   =(rlonu(i)-rlonu(i-1))*pvcov(i,jjm,l)/cv(i,jjm)
+            z1bis(i)=(rlonu(i)-rlonu(i-1))*pdvcov(i,jjm,l)/cv(i,jjm)
+         ENDDO
+
+         DO i=1,iim
+            zcos(i)    = COS(rlonv(i))*z1(i)
+            zcosbis(i) = COS(rlonv(i))*z1bis(i)
+            zsin(i)    = SIN(rlonv(i))*z1(i)
+            zsinbis(i) = SIN(rlonv(i))*z1bis(i)
+         ENDDO
+
+         zufi(ngridmx,l)  = SSUM(iim,zcos,1)/pi
+         pcvgu(ngridmx,l) = SSUM(iim,zcosbis,1)/pi
+         zvfi(ngridmx,l)  = SSUM(iim,zsin,1)/pi
+         pcvgv(ngridmx,l) = SSUM(iim,zsinbis,1)/pi
+         zrfi(ngridmx, l) = 0.
+      ENDDO
+c
+c On change de grille, dynamique vers physiq, pour le flux de masse verticale
+      CALL gr_dyn_fi(llm,iip1,jjp1,ngridmx,flxw,flxwfi)
+
+c-----------------------------------------------------------------------
+c   Appel de la physique:
+c   ---------------------
+
+
+
+!      write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
+      zdt_split=dtphys/nsplit_phys
+      zdufic(:,:)=0.
+      zdvfic(:,:)=0.
+      zdtfic(:,:)=0.
+      zdqfic(:,:,:)=0.
+
+#ifdef CPP_PHYS
+
+       do isplit=1,nsplit_phys
+
+         jH_cur_split=jH_cur+(isplit-1) * dtvr / (daysec *nsplit_phys)
+         debut_split=debut.and.isplit==1
+         lafin_split=lafin.and.isplit==nsplit_phys
+
+        CALL call_physiq(ngridmx,llm,nqtot,tname,
+     &                   debut_split,lafin_split,
+     &                   jD_cur,jH_cur_split,zdt_split,
+     &                   zplev,zplay,
+     &                   zpk,zphi,zphis,
+     &                   presnivs,
+     &                   zufi,zvfi,zrfi,ztfi,zqfi,
+     &                   flxwfi,pducov,
+     &                   zdufi,zdvfi,zdtfi,zdqfi,zdpsrf)
+                             
+!      if (planet_type=="earth") then
+!
+!         CALL physiq (ngridmx,
+!     .             llm,
+!     .             debut_split,
+!     .             lafin_split,
+!     .             jD_cur,
+!     .             jH_cur_split,
+!     .             zdt_split,
+!     .             zplev,
+!     .             zplay,
+!     .             zphi,
+!     .             zphis,
+!     .             presnivs,
+!     .             zufi,
+!     .             zvfi, zrfi,
+!     .             ztfi,
+!     .             zqfi,
+!     .             flxwfi,
+!     .             zdufi,
+!     .             zdvfi,
+!     .             zdtfi,
+!     .             zdqfi,
+!     .             zdpsrf,
+!     .             pducov)
+!
+!      else if ( planet_type=="generic" ) then
+!
+!         CALL physiq (ngridmx,     !! ngrid
+!     .             llm,            !! nlayer
+!     .             nqtot,          !! nq
+!     .             tname,          !! tracer names from dynamical core (given in infotrac)
+!     .             debut_split,    !! firstcall 
+!     .             lafin_split,    !! lastcall
+!     .             jD_cur,         !! pday. see leapfrog
+!     .             jH_cur_split,   !! ptime "fraction of day"
+!     .             zdt_split,      !! ptimestep
+!     .             zplev,          !! pplev
+!     .             zplay,          !! pplay
+!     .             zphi,           !! pphi
+!     .             zufi,           !! pu
+!     .             zvfi,           !! pv
+!     .             ztfi,           !! pt
+!     .             zqfi,           !! pq
+!     .             flxwfi,         !! pw !! or 0. anyway this is for diagnostic. not used in physiq.
+!     .             zdufi,          !! pdu
+!     .             zdvfi,          !! pdv
+!     .             zdtfi,          !! pdt
+!     .             zdqfi,          !! pdq
+!     .             zdpsrf,         !! pdpsrf
+!     .             tracerdyn)      !! tracerdyn <-- utilite ???
+!
+!      endif ! of if (planet_type=="earth")
+
+         zufi(:,:)=zufi(:,:)+zdufi(:,:)*zdt_split
+         zvfi(:,:)=zvfi(:,:)+zdvfi(:,:)*zdt_split
+         ztfi(:,:)=ztfi(:,:)+zdtfi(:,:)*zdt_split
+         zqfi(:,:,:)=zqfi(:,:,:)+zdqfi(:,:,:)*zdt_split
+
+         zdufic(:,:)=zdufic(:,:)+zdufi(:,:)
+         zdvfic(:,:)=zdvfic(:,:)+zdvfi(:,:)
+         zdtfic(:,:)=zdtfic(:,:)+zdtfi(:,:)
+         zdqfic(:,:,:)=zdqfic(:,:,:)+zdqfi(:,:,:)
+
+       enddo ! of do isplit=1,nsplit_phys
+
+#endif
+! of #ifdef CPP_PHYS
+
+      zdufi(:,:)=zdufic(:,:)/nsplit_phys
+      zdvfi(:,:)=zdvfic(:,:)/nsplit_phys
+      zdtfi(:,:)=zdtfic(:,:)/nsplit_phys
+      zdqfi(:,:,:)=zdqfic(:,:,:)/nsplit_phys
+
+
+500   CONTINUE
+
+c-----------------------------------------------------------------------
+c   transformation des tendances physiques en tendances dynamiques:
+c   ---------------------------------------------------------------
+
+c  tendance sur la pression :
+c  -----------------------------------
+
+      CALL gr_fi_dyn(1,ngridmx,iip1,jjp1,zdpsrf,pdpsfi)
+c
+c   62. enthalpie potentielle
+c   ---------------------
+
+      DO l=1,llm
+
+         DO i=1,iip1
+          pdhfi(i,1,l)    = cpp *  zdtfi(1,l)      / ppk(i, 1  ,l)
+          pdhfi(i,jjp1,l) = cpp *  zdtfi(ngridmx,l)/ ppk(i,jjp1,l)
+         ENDDO
+
+         DO j=2,jjm
+            ig0=1+(j-2)*iim
+            DO i=1,iim
+               pdhfi(i,j,l) = cpp * zdtfi(ig0+i,l) / ppk(i,j,l)
+            ENDDO
+               pdhfi(iip1,j,l) =  pdhfi(1,j,l)
+         ENDDO
+
+      ENDDO
+
+
+c   62. humidite specifique
+c   ---------------------
+! Ehouarn: removed this useless bit: was overwritten at step 63 anyways
+!      DO iq=1,nqtot
+!         DO l=1,llm
+!            DO i=1,iip1
+!               pdqfi(i,1,l,iq)    = zdqfi(1,l,iq)
+!               pdqfi(i,jjp1,l,iq) = zdqfi(ngridmx,l,iq)
+!            ENDDO
+!            DO j=2,jjm
+!               ig0=1+(j-2)*iim
+!               DO i=1,iim
+!                  pdqfi(i,j,l,iq) = zdqfi(ig0+i,l,iq)
+!               ENDDO
+!               pdqfi(iip1,j,l,iq) = pdqfi(1,j,l,iq)
+!            ENDDO
+!         ENDDO
+!      ENDDO
+
+c   63. traceurs
+c   ------------
+C     initialisation des tendances
+      pdqfi(:,:,:,:)=0.
+C
+      DO iq=1,nqtot
+         iiq=niadv(iq)
+         DO l=1,llm
+            DO i=1,iip1
+               pdqfi(i,1,l,iiq)    = zdqfi(1,l,iq)
+               pdqfi(i,jjp1,l,iiq) = zdqfi(ngridmx,l,iq)
+            ENDDO
+            DO j=2,jjm
+               ig0=1+(j-2)*iim
+               DO i=1,iim
+                  pdqfi(i,j,l,iiq) = zdqfi(ig0+i,l,iq)
+               ENDDO
+               pdqfi(iip1,j,l,iiq) = pdqfi(1,j,l,iq)
+            ENDDO
+         ENDDO
+      ENDDO
+
+c   65. champ u:
+c   ------------
+
+      DO l=1,llm
+
+         DO i=1,iip1
+            pdufi(i,1,l)    = 0.
+            pdufi(i,jjp1,l) = 0.
+         ENDDO
+
+         DO j=2,jjm
+            ig0=1+(j-2)*iim
+            DO i=1,iim-1
+               pdufi(i,j,l)=
+     $         0.5*(zdufi(ig0+i,l)+zdufi(ig0+i+1,l))*cu(i,j)
+            ENDDO
+            pdufi(iim,j,l)=
+     $      0.5*(zdufi(ig0+1,l)+zdufi(ig0+iim,l))*cu(iim,j)
+            pdufi(iip1,j,l)=pdufi(1,j,l)
+         ENDDO
+
+      ENDDO
+
+
+c   67. champ v:
+c   ------------
+
+      DO l=1,llm
+
+         DO j=2,jjm-1
+            ig0=1+(j-2)*iim
+            DO i=1,iim
+               pdvfi(i,j,l)=
+     $         0.5*(zdvfi(ig0+i,l)+zdvfi(ig0+i+iim,l))*cv(i,j)
+            ENDDO
+            pdvfi(iip1,j,l) = pdvfi(1,j,l)
+         ENDDO
+      ENDDO
+
+
+c   68. champ v pres des poles:
+c   ---------------------------
+c      v = U * cos(long) + V * SIN(long)
+
+      DO l=1,llm
+
+         DO i=1,iim
+            pdvfi(i,1,l)=
+     $      zdufi(1,l)*COS(rlonv(i))+zdvfi(1,l)*SIN(rlonv(i))
+            pdvfi(i,jjm,l)=zdufi(ngridmx,l)*COS(rlonv(i))
+     $      +zdvfi(ngridmx,l)*SIN(rlonv(i))
+            pdvfi(i,1,l)=
+     $      0.5*(pdvfi(i,1,l)+zdvfi(i+1,l))*cv(i,1)
+            pdvfi(i,jjm,l)=
+     $      0.5*(pdvfi(i,jjm,l)+zdvfi(ngridmx-iip1+i,l))*cv(i,jjm)
+          ENDDO
+
+         pdvfi(iip1,1,l)  = pdvfi(1,1,l)
+         pdvfi(iip1,jjm,l)= pdvfi(1,jjm,l)
+
+      ENDDO
+
+c-----------------------------------------------------------------------
+
+700   CONTINUE
+ 
+      firstcal = .FALSE.
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis_loc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis_loc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis_loc.F	(revision 3330)
@@ -0,0 +1,1223 @@
+!
+! $Id$
+!
+C
+C
+      SUBROUTINE calfis_loc(lafin,
+     $                  jD_cur, jH_cur,
+     $                  pucov,
+     $                  pvcov,
+     $                  pteta,
+     $                  pq,
+     $                  pmasse,
+     $                  pps,
+     $                  pp,
+     $                  ppk,
+     $                  pphis,
+     $                  pphi,
+     $                  pducov,
+     $                  pdvcov,
+     $                  pdteta,
+     $                  pdq,
+     $                  flxw,
+     $                  pdufi,
+     $                  pdvfi,
+     $                  pdhfi,
+     $                  pdqfi,
+     $                  pdpsfi)
+#ifdef CPP_PHYS
+! If using physics
+c
+c    Auteur :  P. Le Van, F. Hourdin 
+c   .........
+      USE dimphy
+      USE mod_phys_lmdz_mpi_data, mpi_root_xx=>mpi_master
+      USE mod_phys_lmdz_omp_data, ONLY: klon_omp, klon_omp_begin
+      USE mod_const_mpi, ONLY: COMM_LMDZ
+      USE mod_interface_dyn_phys
+      USE IOPHY
+#endif
+#ifdef CPP_PARA
+      USE parallel_lmdz,ONLY:omp_chunk,using_mpi,jjb_u,jje_u,jjb_v,jje_v
+     $                        ,jj_begin_dyn=>jj_begin,jj_end_dyn=>jj_end
+      USE Write_Field
+      Use Write_field_p
+      USE Times
+#endif
+      USE infotrac, ONLY: nqtot, niadv, tname
+      USE control_mod, ONLY: planet_type, nsplit_phys
+#ifdef CPP_PHYS
+      USE callphysiq_mod, ONLY: call_physiq
+#endif 
+      USE comvert_mod, ONLY: preff, presnivs
+      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
+
+#ifdef CPP_PARA
+      IMPLICIT NONE
+c=======================================================================
+c
+c   1. rearrangement des tableaux et transformation
+c      variables dynamiques  >  variables physiques
+c   2. calcul des termes physiques
+c   3. retransformation des tendances physiques en tendances dynamiques
+c
+c   remarques:
+c   ----------
+c
+c    - les vents sont donnes dans la physique par leurs composantes 
+c      naturelles.
+c    - la variable thermodynamique de la physique est une variable
+c      intensive :   T 
+c      pour la dynamique on prend    T * ( preff / p(l) ) **kappa
+c    - les deux seules variables dependant de la geometrie necessaires
+c      pour la physique sont la latitude pour le rayonnement et 
+c      l'aire de la maille quand on veut integrer une grandeur 
+c      horizontalement.
+c    - les points de la physique sont les points scalaires de la 
+c      la dynamique; numerotation:
+c          1 pour le pole nord
+c          (jjm-1)*iim pour l'interieur du domaine
+c          ngridmx pour le pole sud
+c      ---> ngridmx=2+(jjm-1)*iim
+c
+c     Input :
+c     -------
+c       ecritphy        frequence d'ecriture (en jours)de histphy
+c       pucov           covariant zonal velocity
+c       pvcov           covariant meridional velocity 
+c       pteta           potential temperature
+c       pps             surface pressure
+c       pmasse          masse d'air dans chaque maille
+c       pts             surface temperature  (K)
+c       callrad         clef d'appel au rayonnement
+c
+c    Output :
+c    --------
+c        pdufi          tendency for the natural zonal velocity (ms-1)
+c        pdvfi          tendency for the natural meridional velocity 
+c        pdhfi          tendency for the potential temperature
+c        pdtsfi         tendency for the surface temperature
+c
+c        pdtrad         radiative tendencies  \  both input
+c        pfluxrad       radiative fluxes      /  and output
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c
+c    0.  Declarations :
+c    ------------------
+
+      include "dimensions.h"
+      include "paramet.h"
+
+      INTEGER ngridmx
+      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
+
+      include "comgeom2.h"
+      include "iniprint.h"
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif
+c    Arguments :
+c    -----------
+      LOGICAL,INTENT(IN) ::  lafin ! .true. for the very last call to physics
+      REAL,INTENT(IN):: jD_cur, jH_cur
+      REAL,INTENT(IN):: pvcov(iip1,jjb_v:jje_v,llm) ! covariant meridional velocity
+      REAL,INTENT(IN):: pucov(iip1,jjb_u:jje_u,llm) ! covariant zonal velocity
+      REAL,INTENT(IN):: pteta(iip1,jjb_u:jje_u,llm) ! potential temperature
+      REAL,INTENT(IN):: pmasse(iip1,jjb_u:jje_u,llm) ! mass in each cell ! not used
+      REAL,INTENT(IN):: pq(iip1,jjb_u:jje_u,llm,nqtot) ! tracers
+      REAL,INTENT(IN):: pphis(iip1,jjb_u:jje_u) ! surface geopotential
+      REAL,INTENT(IN):: pphi(iip1,jjb_u:jje_u,llm) ! geopotential
+
+      REAL,INTENT(IN) :: pdvcov(iip1,jjb_v:jje_v,llm) ! dynamical tendency on vcov ! not used
+      REAL,INTENT(IN) :: pducov(iip1,jjb_u:jje_u,llm) ! dynamical tendency on ucov
+      REAL,INTENT(IN) :: pdteta(iip1,jjb_u:jje_u,llm) ! dynamical tendency on teta ! not used
+      REAL,INTENT(IN) :: pdq(iip1,jjb_u:jje_u,llm,nqtot) ! dynamical tendency on tracers ! not used
+
+      REAL,INTENT(IN) :: pps(iip1,jjb_u:jje_u) ! surface pressure (Pa)
+      REAL,INTENT(IN) :: pp(iip1,jjb_u:jje_u,llmp1) ! pressure at mesh interfaces (Pa)
+      REAL,INTENT(IN) :: ppk(iip1,jjb_u:jje_u,llm) ! Exner at mid-layer
+      REAL,INTENT(IN) :: flxw(iip1,jjb_u:jje_u,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) (on llm because flxw(:,:,llm+1)=0)
+
+      ! tendencies (in */s) from the physics
+      REAL,INTENT(OUT) :: pdvfi(iip1,jjb_v:jje_v,llm) ! tendency on covariant meridional wind
+      REAL,INTENT(OUT) :: pdufi(iip1,jjb_u:jje_u,llm) ! tendency on covariant zonal wind
+      REAL,INTENT(OUT) :: pdhfi(iip1,jjb_u:jje_u,llm) ! tendency on potential temperature (K/s)
+      REAL,INTENT(OUT) :: pdqfi(iip1,jjb_u:jje_u,llm,nqtot) ! tendency on tracers
+      REAL,INTENT(OUT) :: pdpsfi(iip1,jjb_u:jje_u) ! tendency on surface pressure (Pa/s)
+
+#ifdef CPP_PHYS
+! Ehouarn: for now calfis_p needs some informations from physics to compile
+c    Local variables :
+c    -----------------
+
+      INTEGER i,j,l,ig0,ig,iq,iiq
+      REAL,ALLOCATABLE,SAVE :: zpsrf(:)
+      REAL,ALLOCATABLE,SAVE :: zplev(:,:),zplay(:,:)
+      REAL,ALLOCATABLE,SAVE :: zphi(:,:),zphis(:)
+c
+      REAL zrot(iip1,jjb_v:jje_v,llm) ! AdlC May 2014
+      REAL,ALLOCATABLE,SAVE :: zufi(:,:), zvfi(:,:), zrfi(:,:)
+      REAL,ALLOCATABLE,SAVE :: ztfi(:,:),zqfi(:,:,:)
+      REAL,ALLOCATABLE,SAVE ::  zpk(:,:)
+c
+      REAL,ALLOCATABLE,SAVE :: pcvgu(:,:), pcvgv(:,:)
+      REAL,ALLOCATABLE,SAVE :: pcvgt(:,:), pcvgq(:,:,:)
+c
+      REAL,ALLOCATABLE,SAVE :: zdufi(:,:),zdvfi(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdtfi(:,:),zdqfi(:,:,:)
+      REAL,ALLOCATABLE,SAVE :: zdpsrf(:)
+      REAL,SAVE,ALLOCATABLE ::  flxwfi(:,:)     ! Flux de masse verticale sur la grille physiq
+
+c
+      REAL,ALLOCATABLE,SAVE :: zplev_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zplay_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zpk_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zphi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zphis_omp(:)
+      REAL,ALLOCATABLE,SAVE :: presnivs_omp(:)
+      REAL,ALLOCATABLE,SAVE :: zufi_omp(:,:) 
+      REAL,ALLOCATABLE,SAVE :: zvfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zrfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: ztfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zqfi_omp(:,:,:)
+      REAL,ALLOCATABLE,SAVE :: zdufi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdvfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdtfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdqfi_omp(:,:,:)
+      REAL,ALLOCATABLE,SAVE :: zdpsrf_omp(:)
+      REAL,SAVE,ALLOCATABLE ::  flxwfi_omp(:,:)     ! Flux de masse verticale sur la grille physiq
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Introduction du splitting (FH)
+! Question pour Yann :
+! J'ai été surpris au début que les tableaux zufi_omp, zdufi_omp n'co soitent
+! en SAVE. Je crois comprendre que c'est parce que tu voulais qu'il
+! soit allocatable (plutot par exemple que de passer une dimension
+! dépendant du process en argument des routines) et que, du coup,
+! le SAVE évite d'avoir à refaire l'allocation à chaque appel.
+! Tu confirmes ?
+! J'ai suivi le même principe pour les zdufic_omp
+! Mais c'est surement bien que tu controles.
+! 
+
+      REAL,ALLOCATABLE,SAVE :: zdufic_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdvfic_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdtfic_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdqfic_omp(:,:,:)
+      REAL jH_cur_split,zdt_split
+      LOGICAL debut_split,lafin_split
+      INTEGER isplit
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+c$OMP THREADPRIVATE(zplev_omp,zplay_omp,zpk_omp,zphi_omp,zphis_omp,
+c$OMP+                 presnivs_omp,zufi_omp,zvfi_omp,ztfi_omp,
+c$OMP+                 zrfi_omp,zqfi_omp,zdufi_omp,zdvfi_omp,
+c$OMP+                 zdtfi_omp,zdqfi_omp,zdpsrf_omp,flxwfi_omp,
+c$OMP+                 zdufic_omp,zdvfic_omp,zdtfic_omp,zdqfic_omp)       
+
+      LOGICAL,SAVE :: first_omp=.true.
+c$OMP THREADPRIVATE(first_omp)
+      
+      REAL zsin(iim),zcos(iim),z1(iim)
+      REAL zsinbis(iim),zcosbis(iim),z1bis(iim)
+      REAL unskap, pksurcp
+c
+      REAL SSUM
+
+      LOGICAL,SAVE :: firstcal=.true., debut=.true.
+c$OMP THREADPRIVATE(firstcal,debut)
+      
+      REAL,SAVE,dimension(1:iim,1:llm):: du_send,du_recv,dv_send,dv_recv
+      INTEGER :: ierr
+#ifdef CPP_MPI
+      INTEGER,dimension(MPI_STATUS_SIZE,4) :: Status
+#else
+      INTEGER,dimension(1,4) :: Status
+#endif
+      INTEGER, dimension(4) :: Req
+      REAL,ALLOCATABLE,SAVE:: zdufi2(:,:),zdvfi2(:,:)
+      integer :: k,kstart,kend
+      INTEGER :: offset
+      INTEGER :: jjb,jje
+
+c
+c-----------------------------------------------------------------------
+c
+c    1. Initialisations :
+c    --------------------
+c
+
+      klon=klon_mpi
+      
+c
+      IF ( firstcal )  THEN
+        debut = .TRUE.
+        IF (ngridmx.NE.2+(jjm-1)*iim) THEN
+          write(lunout,*) 'STOP dans calfis' 
+          write(lunout,*)  
+     &   'La dimension ngridmx doit etre egale a 2 + (jjm-1)*iim' 
+          write(lunout,*) '  ngridmx  jjm   iim   ' 
+          write(lunout,*) ngridmx,jjm,iim
+          STOP
+        ENDIF
+c$OMP MASTER
+      ALLOCATE(zpsrf(klon))
+      ALLOCATE(zplev(klon,llm+1),zplay(klon,llm))
+      ALLOCATE(zphi(klon,llm),zphis(klon))
+      ALLOCATE(zufi(klon,llm), zvfi(klon,llm),zrfi(klon,llm))
+      ALLOCATE(ztfi(klon,llm),zqfi(klon,llm,nqtot))
+      ALLOCATE(pcvgu(klon,llm), pcvgv(klon,llm))
+      ALLOCATE(pcvgt(klon,llm), pcvgq(klon,llm,2))
+      ALLOCATE(zdufi(klon,llm),zdvfi(klon,llm))
+      ALLOCATE(zdtfi(klon,llm),zdqfi(klon,llm,nqtot))
+      ALLOCATE(zdpsrf(klon))
+      ALLOCATE(zdufi2(klon+iim,llm),zdvfi2(klon+iim,llm))
+      ALLOCATE(flxwfi(klon,llm))
+      ALLOCATE(zpk(klon,llm))
+c$OMP END MASTER
+c$OMP BARRIER          
+      ELSE
+          debut = .FALSE.
+      ENDIF
+
+c
+c
+c-----------------------------------------------------------------------
+c   40. transformation des variables dynamiques en variables physiques:
+c   ---------------------------------------------------------------
+
+c   41. pressions au sol (en Pascals)
+c   ----------------------------------
+
+c$OMP MASTER
+      call start_timer(timer_physic)
+c$OMP END MASTER
+
+c$OMP MASTER             
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+      do ig0=1,klon
+        i=index_i(ig0)
+        j=index_j(ig0)
+        zpsrf(ig0)=pps(i,j)
+      enddo
+c$OMP END MASTER
+
+
+c   42. pression intercouches :
+c
+c   -----------------------------------------------------------------
+c     .... zplev  definis aux (llm +1) interfaces des couches  ....
+c     .... zplay  definis aux (  llm )    milieux des couches  .... 
+c   -----------------------------------------------------------------
+
+c    ...    Exner = cp * ( p(l) / preff ) ** kappa     ....
+c
+       unskap   = 1./ kappa
+c
+c      print *,omp_rank,'klon--->',klon
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, llmp1
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+        do ig0=1,klon
+          i=index_i(ig0)
+          j=index_j(ig0)
+          zplev( ig0,l ) = pp(i,j,l)
+        enddo
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        do ig0=1,klon
+          i=index_i(ig0)
+          j=index_j(ig0)
+          zpk(ig0,l)=ppk(i,j,l)
+        enddo
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+c
+
+c   43. temperature naturelle (en K) et pressions milieux couches .
+c   ---------------------------------------------------------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+        do ig0=1,klon
+          i=index_i(ig0)
+          j=index_j(ig0)
+          pksurcp        = ppk(i,j,l) / cpp
+          zplay(ig0,l)   = preff * pksurcp ** unskap
+          ztfi(ig0,l)    = pteta(i,j,l)  * pksurcp
+        enddo
+
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   43.bis traceurs
+c   ---------------
+c
+
+      DO iq=1,nqtot
+         iiq=niadv(iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+           do ig0=1,klon
+             i=index_i(ig0)
+             j=index_j(ig0)
+             zqfi(ig0,l,iq)  = pq(i,j,l,iiq)
+           enddo
+         ENDDO
+c$OMP END DO NOWAIT         
+      ENDDO
+
+
+c   Geopotentiel calcule par rapport a la surface locale:
+c   -----------------------------------------------------
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+           do ig0=1,klon
+             i=index_i(ig0)
+             j=index_j(ig0)
+             zphi(ig0,l)  = pphi(i,j,l)
+           enddo
+         ENDDO
+c$OMP END DO NOWAIT         
+
+c      CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,pphi,zphi)
+
+c$OMP MASTER
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+           do ig0=1,klon
+             i=index_i(ig0)
+             j=index_j(ig0)
+             zphis(ig0)  = pphis(i,j)
+           enddo
+c$OMP END MASTER
+
+
+c      CALL gr_dyn_fi_p(1,iip1,jjp1,klon,pphis,zphis)
+
+c$OMP BARRIER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ig=1,klon
+           zphi(ig,l)=zphi(ig,l)-zphis(ig)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      
+
+c
+c   45. champ u:
+c   ------------
+
+      kstart=1
+      kend=klon
+      
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn) kend=klon-1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!CDIR SPARSE
+        do ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          if (i==1) then
+            zufi(ig0,l)= 0.5 *(  pucov(iim,j,l)/cu(iim,j)
+     $                         + pucov(1,j,l)/cu(1,j) )
+          else
+            zufi(ig0,l)= 0.5*(  pucov(i-1,j,l)/cu(i-1,j) 
+     $                       + pucov(i,j,l)/cu(i,j) )
+          endif
+        enddo
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+C  Alvaro de la Camara (May 2014)
+C  46.1 Calcul de la vorticite et passage sur la grille physique
+C  --------------------------------------------------------------
+
+      jjb=jj_begin_dyn-1
+      jje=jj_end_dyn+1
+      if (is_north_pole_dyn) jjb=1
+      if (is_south_pole_dyn) jje=jjm
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+
+      DO l=1,llm
+        do i=1,iim
+          do j=jjb,jje
+            zrot(i,j,l) = (pvcov(i+1,j,l) - pvcov(i,j,l)
+     $                   + pucov(i,j+1,l) - pucov(i,j,l))
+     $                   / (cu(i,j)+cu(i,j+1))
+     $                   / (cv(i+1,j)+cv(i,j)) *4
+          enddo
+        enddo
+      ENDDO
+
+
+c   46.2champ v:
+c   -----------
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+        DO ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          zvfi(ig0,l)= 0.5 *(  pvcov(i,j-1,l)/cv(i,j-1) 
+     $                       + pvcov(i,j,l)/cv(i,j) )
+          if (j==1 .OR. j==jjp1) then !  AdlC MAY 2014
+            zrfi(ig0,l) = 0 !  AdlC MAY 2014
+          else
+            if(i==1)then
+            zrfi(ig0,l)= 0.25 *(zrot(iim,j-1,l)+zrot(iim,j,l)
+     $                   +zrot(1,j-1,l)+zrot(1,j,l))   !  AdlC MAY 2014
+            else
+            zrfi(ig0,l)= 0.25 *(zrot(i-1,j-1,l)+zrot(i-1,j,l)
+     $                   +zrot(i,j-1,l)+zrot(i,j,l))   !  AdlC MAY 2014
+            endif
+          endif
+
+    
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   47. champs de vents aux pole nord   
+c   ------------------------------
+c        U = 1 / pi  *  integrale [ v * cos(long) * d long ]
+c        V = 1 / pi  *  integrale [ v * sin(long) * d long ]
+
+      if (is_north_pole_dyn) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l=1,llm
+
+           z1(1)   =(rlonu(1)-rlonu(iim)+2.*pi)*pvcov(1,1,l)/cv(1,1)
+           DO i=2,iim
+              z1(i)   =(rlonu(i)-rlonu(i-1))*pvcov(i,1,l)/cv(i,1)
+           ENDDO
+  
+           DO i=1,iim
+              zcos(i)   = COS(rlonv(i))*z1(i)
+              zsin(i)   = SIN(rlonv(i))*z1(i)
+           ENDDO
+  
+           zufi(1,l)  = SSUM(iim,zcos,1)/pi
+           zvfi(1,l)  = SSUM(iim,zsin,1)/pi
+           zrfi(1,l)  = 0.
+  
+        ENDDO
+c$OMP END DO NOWAIT      
+      endif
+
+
+c   48. champs de vents aux pole sud:
+c   ---------------------------------
+c        U = 1 / pi  *  integrale [ v * cos(long) * d long ]
+c        V = 1 / pi  *  integrale [ v * sin(long) * d long ]
+
+      if (is_south_pole_dyn) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l=1,llm
+  
+         z1(1)   =(rlonu(1)-rlonu(iim)+2.*pi)*pvcov(1,jjm,l)/cv(1,jjm)
+           DO i=2,iim
+             z1(i)   =(rlonu(i)-rlonu(i-1))*pvcov(i,jjm,l)/cv(i,jjm)
+           ENDDO
+  
+           DO i=1,iim
+              zcos(i)    = COS(rlonv(i))*z1(i)
+              zsin(i)    = SIN(rlonv(i))*z1(i)
+           ENDDO
+  
+           zufi(klon,l)  = SSUM(iim,zcos,1)/pi
+           zvfi(klon,l)  = SSUM(iim,zsin,1)/pi
+           zrfi(klon,l)  = 0.
+        ENDDO
+c$OMP END DO NOWAIT       
+      endif
+
+c On change de grille, dynamique vers physiq, pour le flux de masse verticale
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+           do ig0=1,klon
+             i=index_i(ig0)
+             j=index_j(ig0)
+             flxwfi(ig0,l)  = flxw(i,j,l)
+           enddo
+         ENDDO
+c$OMP END DO NOWAIT
+
+c      CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,flxw,flxwfi)
+
+c-----------------------------------------------------------------------
+c   Appel de la physique:
+c   ---------------------
+
+
+c$OMP BARRIER
+      if (first_omp) then
+        klon=klon_omp
+
+        allocate(zplev_omp(klon,llm+1))
+        allocate(zplay_omp(klon,llm))
+        allocate(zpk_omp(klon,llm))
+        allocate(zphi_omp(klon,llm))
+        allocate(zphis_omp(klon))
+        allocate(presnivs_omp(llm))
+        allocate(zufi_omp(klon,llm))
+        allocate(zvfi_omp(klon,llm))
+        allocate(zrfi_omp(klon,llm))  ! LG Ari 2014
+        allocate(ztfi_omp(klon,llm))
+        allocate(zqfi_omp(klon,llm,nqtot))
+        allocate(zdufi_omp(klon,llm))
+        allocate(zdvfi_omp(klon,llm))
+        allocate(zdtfi_omp(klon,llm))
+        allocate(zdqfi_omp(klon,llm,nqtot))
+        allocate(zdufic_omp(klon,llm))
+        allocate(zdvfic_omp(klon,llm))
+        allocate(zdtfic_omp(klon,llm))
+        allocate(zdqfic_omp(klon,llm,nqtot))
+        allocate(zdpsrf_omp(klon))
+        allocate(flxwfi_omp(klon,llm))
+        first_omp=.false.
+      endif
+       
+           
+      klon=klon_omp
+      offset=klon_omp_begin-1
+      
+      do l=1,llm+1
+        do i=1,klon
+          zplev_omp(i,l)=zplev(offset+i,l)
+        enddo 
+      enddo
+          
+       do l=1,llm
+        do i=1,klon  
+          zplay_omp(i,l)=zplay(offset+i,l)
+        enddo 
+      enddo
+        
+       do l=1,llm
+        do i=1,klon  
+	  zpk_omp(i,l)=zpk(offset+i,l)
+	enddo 
+      enddo
+	
+      do l=1,llm
+        do i=1,klon
+          zphi_omp(i,l)=zphi(offset+i,l)
+        enddo 
+      enddo
+        
+      do i=1,klon
+        zphis_omp(i)=zphis(offset+i)
+      enddo 
+     
+        
+      do l=1,llm
+        presnivs_omp(l)=presnivs(l)
+      enddo 
+        
+      do l=1,llm
+        do i=1,klon
+          zufi_omp(i,l)=zufi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zvfi_omp(i,l)=zvfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zrfi_omp(i,l)=zrfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          ztfi_omp(i,l)=ztfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zqfi_omp(i,l,iq)=zqfi(offset+i,l,iq)
+          enddo
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdufi_omp(i,l)=zdufi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdvfi_omp(i,l)=zdvfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdtfi_omp(i,l)=zdtfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zdqfi_omp(i,l,iq)=zdqfi(offset+i,l,iq)
+          enddo 
+        enddo
+      enddo
+              
+      do i=1,klon
+        zdpsrf_omp(i)=zdpsrf(offset+i)
+      enddo 
+
+      do l=1,llm
+        do i=1,klon
+          flxwfi_omp(i,l)=flxwfi(offset+i,l)
+        enddo 
+      enddo
+      
+c$OMP BARRIER
+      
+
+!$OMP MASTER 
+!      write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys 
+!$OMP END MASTER
+      zdt_split=dtphys/nsplit_phys
+      zdufic_omp(:,:)=0.
+      zdvfic_omp(:,:)=0.
+      zdtfic_omp(:,:)=0.
+      zdqfic_omp(:,:,:)=0.
+
+#ifdef CPP_PHYS
+      do isplit=1,nsplit_phys
+
+         jH_cur_split=jH_cur+(isplit-1) * dtvr / (daysec *nsplit_phys)
+         debut_split=debut.and.isplit==1
+         lafin_split=lafin.and.isplit==nsplit_phys
+
+        CALL call_physiq(klon,llm,nqtot,tname,
+     &                   debut_split,lafin_split,
+     &                   jD_cur,jH_cur_split,zdt_split,
+     &                   zplev_omp,zplay_omp,
+     &                   zpk_omp,zphi_omp,zphis_omp,
+     &                   presnivs_omp,
+     &                   zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,
+     &                   flxwfi_omp,pducov,
+     &                   zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,
+     &                   zdpsrf_omp)
+
+
+         zufi_omp(:,:)=zufi_omp(:,:)+zdufi_omp(:,:)*zdt_split
+         zvfi_omp(:,:)=zvfi_omp(:,:)+zdvfi_omp(:,:)*zdt_split
+         ztfi_omp(:,:)=ztfi_omp(:,:)+zdtfi_omp(:,:)*zdt_split
+         zqfi_omp(:,:,:)=zqfi_omp(:,:,:)+zdqfi_omp(:,:,:)*zdt_split
+
+         zdufic_omp(:,:)=zdufic_omp(:,:)+zdufi_omp(:,:)
+         zdvfic_omp(:,:)=zdvfic_omp(:,:)+zdvfi_omp(:,:)
+         zdtfic_omp(:,:)=zdtfic_omp(:,:)+zdtfi_omp(:,:)
+         zdqfic_omp(:,:,:)=zdqfic_omp(:,:,:)+zdqfi_omp(:,:,:)
+
+      enddo
+
+#endif
+! of #ifdef CPP_PHYS
+
+
+      zdufi_omp(:,:)=zdufic_omp(:,:)/nsplit_phys
+      zdvfi_omp(:,:)=zdvfic_omp(:,:)/nsplit_phys
+      zdtfi_omp(:,:)=zdtfic_omp(:,:)/nsplit_phys
+      zdqfi_omp(:,:,:)=zdqfic_omp(:,:,:)/nsplit_phys
+
+c$OMP BARRIER
+
+      do l=1,llm+1
+        do i=1,klon
+          zplev(offset+i,l)=zplev_omp(i,l)
+        enddo 
+      enddo
+          
+       do l=1,llm
+        do i=1,klon  
+          zplay(offset+i,l)=zplay_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zphi(offset+i,l)=zphi_omp(i,l)
+        enddo 
+      enddo
+        
+
+      do i=1,klon
+        zphis(offset+i)=zphis_omp(i)
+      enddo 
+     
+        
+      do l=1,llm
+        presnivs(l)=presnivs_omp(l)
+      enddo 
+        
+      do l=1,llm
+        do i=1,klon
+          zufi(offset+i,l)=zufi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zvfi(offset+i,l)=zvfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          ztfi(offset+i,l)=ztfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zqfi(offset+i,l,iq)=zqfi_omp(i,l,iq)
+          enddo
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdufi(offset+i,l)=zdufi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdvfi(offset+i,l)=zdvfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdtfi(offset+i,l)=zdtfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zdqfi(offset+i,l,iq)=zdqfi_omp(i,l,iq)
+          enddo 
+        enddo
+      enddo
+              
+      do i=1,klon
+        zdpsrf(offset+i)=zdpsrf_omp(i)
+      enddo 
+      
+
+      klon=klon_mpi
+500   CONTINUE
+c$OMP BARRIER
+
+c$OMP MASTER
+      call stop_timer(timer_physic)
+c$OMP END MASTER
+
+      IF (using_mpi) THEN
+            
+      if (MPI_rank>0) then
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+       DO l=1,llm      
+        du_send(1:iim,l)=zdufi(1:iim,l)
+        dv_send(1:iim,l)=zdvfi(1:iim,l)
+       ENDDO
+c$OMP END DO NOWAIT       
+
+c$OMP BARRIER
+#ifdef CPP_MPI 
+c$OMP MASTER
+!$OMP CRITICAL (MPI)
+        call MPI_ISSEND(du_send,iim*llm,MPI_REAL8,MPI_Rank-1,401,
+     &                   COMM_LMDZ,Req(1),ierr)
+        call MPI_ISSEND(dv_send,iim*llm,MPI_REAL8,MPI_Rank-1,402,
+     &                  COMM_LMDZ,Req(2),ierr)
+!$OMP END CRITICAL (MPI)
+c$OMP END MASTER
+#endif
+c$OMP BARRIER
+     
+      endif
+   
+      if (MPI_rank<MPI_Size-1) then
+c$OMP BARRIER
+#ifdef CPP_MPI 
+c$OMP MASTER      
+!$OMP CRITICAL (MPI)
+        call MPI_IRECV(du_recv,iim*llm,MPI_REAL8,MPI_Rank+1,401,
+     &                 COMM_LMDZ,Req(3),ierr)
+        call MPI_IRECV(dv_recv,iim*llm,MPI_REAL8,MPI_Rank+1,402,
+     &                 COMM_LMDZ,Req(4),ierr)
+!$OMP END CRITICAL (MPI)
+c$OMP END MASTER
+#endif
+      endif
+
+c$OMP BARRIER
+
+
+#ifdef CPP_MPI 
+c$OMP MASTER    
+!$OMP CRITICAL (MPI)
+      if (MPI_rank>0 .and. MPI_rank< MPI_Size-1) then
+        call MPI_WAITALL(4,Req(1),Status,ierr)
+      else if (MPI_rank>0) then
+        call MPI_WAITALL(2,Req(1),Status,ierr)
+      else if (MPI_rank <MPI_Size-1) then
+        call MPI_WAITALL(2,Req(3),Status,ierr)
+      endif
+!$OMP END CRITICAL (MPI)
+c$OMP END MASTER
+#endif
+
+c$OMP BARRIER     
+
+      ENDIF ! using_mpi
+      
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+            
+        zdufi2(1:klon,l)=zdufi(1:klon,l)
+        zdufi2(klon+1:klon+iim,l)=du_recv(1:iim,l)
+            
+        zdvfi2(1:klon,l)=zdvfi(1:klon,l)
+        zdvfi2(klon+1:klon+iim,l)=dv_recv(1:iim,l) 
+
+        pdhfi(:,jj_begin,l)=0
+        pdqfi(:,jj_begin,l,:)=0
+        pdufi(:,jj_begin,l)=0
+        pdvfi(:,jj_begin,l)=0
+                
+        if (.not. is_south_pole_dyn) then
+          pdhfi(:,jj_end:jj_end+1,l)=0
+          pdqfi(:,jj_end:jj_end+1,l,:)=0
+          pdufi(:,jj_end:jj_end+1,l)=0
+          pdvfi(:,jj_end:jj_end+1,l)=0
+        endif
+      
+       ENDDO 
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+        pdpsfi(:,jj_begin)=0    
+       
+       if (.not. is_south_pole_dyn) then
+         pdpsfi(:,jj_end:jj_end+1)=0
+       endif
+c$OMP END MASTER
+c-----------------------------------------------------------------------
+c   transformation des tendances physiques en tendances dynamiques:
+c   ---------------------------------------------------------------
+
+c  tendance sur la pression :
+c  -----------------------------------
+c      CALL gr_fi_dyn_p(1,klon,iip1,jjp1,zdpsrf,pdpsfi)
+
+c$OMP MASTER
+      kstart=1
+      kend=klon
+
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn)  kend=klon-1
+
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+        do ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          pdpsfi(i,j) = zdpsrf(ig0)
+          if (i==1) pdpsfi(iip1,j) =  zdpsrf(ig0)
+         enddo          
+
+        if (is_north_pole_dyn) then
+            DO i=1,iip1
+              pdpsfi(i,1)    = zdpsrf(1)
+            enddo
+        endif
+        
+        if (is_south_pole_dyn) then
+            DO i=1,iip1
+              pdpsfi(i,jjp1) = zdpsrf(klon)
+            ENDDO
+        endif
+c$OMP END MASTER
+cc$OMP BARRIER
+
+c
+c   62. enthalpie potentielle
+c   ---------------------
+      
+      kstart=1
+      kend=klon
+
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn)  kend=klon-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+        do ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          pdhfi(i,j,l) = cpp * zdtfi(ig0,l) / ppk(i,j,l)
+          if (i==1) pdhfi(iip1,j,l) =  cpp * zdtfi(ig0,l) / ppk(i,j,l)
+         enddo          
+
+        if (is_north_pole_dyn) then
+            DO i=1,iip1
+              pdhfi(i,1,l)    = cpp *  zdtfi(1,l)      / ppk(i, 1  ,l)
+            enddo
+        endif
+        
+        if (is_south_pole_dyn) then
+            DO i=1,iip1
+              pdhfi(i,jjp1,l) = cpp *  zdtfi(klon,l)/ ppk(i,jjp1,l)
+            ENDDO
+        endif
+      ENDDO
+c$OMP END DO NOWAIT
+      
+c   62. humidite specifique
+c   ---------------------
+! Ehouarn: removed this useless bit: was overwritten at step 63 anyways
+!      DO iq=1,nqtot
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+!         DO l=1,llm
+!!!cdir NODEP 
+!           do ig0=kstart,kend
+!             i=index_i(ig0)
+!             j=index_j(ig0)
+!             pdqfi(i,j,l,iq) = zdqfi(ig0,l,iq) 
+!             if (i==1) pdqfi(iip1,j,l,iq) = zdqfi(ig0,l,iq) 
+!           enddo
+!           
+!           if (is_north_pole_dyn) then
+!             do i=1,iip1
+!               pdqfi(i,1,l,iq)    = zdqfi(1,l,iq)             
+!             enddo
+!           endif
+!           
+!           if (is_south_pole_dyn) then
+!             do i=1,iip1
+!               pdqfi(i,jjp1,l,iq) = zdqfi(klon,l,iq) 
+!             enddo
+!           endif
+!         ENDDO
+!c$OMP END DO NOWAIT
+!      ENDDO
+
+c   63. traceurs
+c   ------------
+C     initialisation des tendances
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        pdqfi(:,jj_begin:jj_end,l,:)=0.
+      ENDDO
+c$OMP END DO NOWAIT         
+
+C
+!cdir NODEP
+      DO iq=1,nqtot
+         iiq=niadv(iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP           
+             DO ig0=kstart,kend
+              i=index_i(ig0)
+              j=index_j(ig0)
+              pdqfi(i,j,l,iiq) = zdqfi(ig0,l,iq)
+              if (i==1) pdqfi(iip1,j,l,iiq) = zdqfi(ig0,l,iq)
+            ENDDO
+            
+            IF (is_north_pole_dyn) then
+              DO i=1,iip1
+                pdqfi(i,1,l,iiq)    = zdqfi(1,l,iq)
+              ENDDO
+            ENDIF
+            
+            IF (is_south_pole_dyn) then
+              DO i=1,iip1
+                pdqfi(i,jjp1,l,iiq) = zdqfi(klon,l,iq)
+              ENDDO
+            ENDIF
+            
+         ENDDO
+c$OMP END DO NOWAIT         
+      ENDDO
+      
+c   65. champ u:
+c   ------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+         do ig0=kstart,kend
+           i=index_i(ig0)
+           j=index_j(ig0)
+           
+           if (i/=iim) then
+             pdufi(i,j,l)=0.5*(zdufi2(ig0,l)+zdufi2(ig0+1,l))*cu(i,j)
+           endif
+           
+           if (i==1) then
+              pdufi(iim,j,l)=0.5*(  zdufi2(ig0,l)
+     $                            + zdufi2(ig0+iim-1,l))*cu(iim,j)
+             pdufi(iip1,j,l)=0.5*(zdufi2(ig0,l)+zdufi2(ig0+1,l))*cu(i,j)
+           endif
+         
+         enddo
+         
+         if (is_north_pole_dyn) then
+           DO i=1,iip1
+            pdufi(i,1,l)    = 0.
+           ENDDO
+         endif
+         
+         if (is_south_pole_dyn) then
+           DO i=1,iip1
+            pdufi(i,jjp1,l) = 0.
+           ENDDO
+         endif
+         
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   67. champ v:
+c   ------------
+
+      kstart=1
+      kend=klon
+
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn)  kend=klon-1-iim
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+        do ig0=kstart,kend
+           i=index_i(ig0)
+           j=index_j(ig0)
+           pdvfi(i,j,l)=0.5*(zdvfi2(ig0,l)+zdvfi2(ig0+iim,l))*cv(i,j)
+           if (i==1) pdvfi(iip1,j,l) = 0.5*(zdvfi2(ig0,l)+
+     $                                            zdvfi2(ig0+iim,l))
+     $                                          *cv(i,j)
+        enddo
+         
+      ENDDO
+c$OMP END DO NOWAIT
+
+
+c   68. champ v pres des poles:
+c   ---------------------------
+c      v = U * cos(long) + V * SIN(long)
+
+      if (is_north_pole_dyn) then
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l=1,llm
+
+          DO i=1,iim
+            pdvfi(i,1,l)=
+     $      zdufi(1,l)*COS(rlonv(i))+zdvfi(1,l)*SIN(rlonv(i))
+       
+            pdvfi(i,1,l)=
+     $      0.5*(pdvfi(i,1,l)+zdvfi(i+1,l))*cv(i,1)
+          ENDDO
+
+          pdvfi(iip1,1,l)  = pdvfi(1,1,l)
+
+        ENDDO
+c$OMP END DO NOWAIT
+
+      endif    
+      
+      if (is_south_pole_dyn) then
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+         DO l=1,llm
+  
+           DO i=1,iim
+              pdvfi(i,jjm,l)=zdufi(klon,l)*COS(rlonv(i))
+     $        +zdvfi(klon,l)*SIN(rlonv(i))
+
+              pdvfi(i,jjm,l)=
+     $        0.5*(pdvfi(i,jjm,l)+zdvfi(klon-iip1+i,l))*cv(i,jjm)
+           ENDDO
+
+           pdvfi(iip1,jjm,l)= pdvfi(1,jjm,l)
+
+        ENDDO
+c$OMP END DO NOWAIT
+     
+      endif
+c-----------------------------------------------------------------------
+
+700   CONTINUE
+ 
+      firstcal = .FALSE.
+
+#else 
+      write(lunout,*) 
+     & "calfis_p: for now can only work with parallel physics" 
+      stop 
+#endif 
+! of #ifdef CPP_PHYS
+#endif
+! of #ifdef CPP_PARA
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/calfis_p.F	(revision 3330)
@@ -0,0 +1,1154 @@
+!
+! $Id$
+!
+C
+C
+      SUBROUTINE calfis_p(lafin,
+     $                  jD_cur, jH_cur,
+     $                  pucov,
+     $                  pvcov,
+     $                  pteta,
+     $                  pq,
+     $                  pmasse,
+     $                  pps,
+     $                  pp,
+     $                  ppk,
+     $                  pphis,
+     $                  pphi,
+     $                  pducov,
+     $                  pdvcov,
+     $                  pdteta,
+     $                  pdq,
+     $                  flxw,
+     $                  pdufi,
+     $                  pdvfi,
+     $                  pdhfi,
+     $                  pdqfi,
+     $                  pdpsfi)
+#ifdef CPP_PHYS
+! If using physics
+      USE dimphy
+      USE mod_phys_lmdz_mpi_data, mpi_root_xx=>mpi_master
+      USE mod_phys_lmdz_omp_data, ONLY: klon_omp, klon_omp_begin
+      USE mod_const_mpi, ONLY: COMM_LMDZ
+      USE mod_interface_dyn_phys
+      USE IOPHY
+#endif
+#ifdef CPP_PARA
+      USE parallel_lmdz,ONLY:omp_chunk,using_mpi,jjb_u,jje_u,jjb_v,jje_v
+     $                        ,jj_begin_dyn=>jj_begin,jj_end_dyn=>jj_end
+      USE Write_Field
+      Use Write_field_p
+      USE Times
+#endif
+      USE infotrac, ONLY: nqtot, niadv, tname
+      USE control_mod, ONLY: planet_type, nsplit_phys
+#ifdef CPP_PHYS
+      USE callphysiq_mod, ONLY: call_physiq
+#endif 
+      USE comvert_mod, ONLY: preff, presnivs
+      USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
+
+      IMPLICIT NONE
+c=======================================================================
+c
+c   1. rearrangement des tableaux et transformation
+c      variables dynamiques  >  variables physiques
+c   2. calcul des termes physiques
+c   3. retransformation des tendances physiques en tendances dynamiques
+c
+c   remarques:
+c   ----------
+c
+c    - les vents sont donnes dans la physique par leurs composantes 
+c      naturelles.
+c    - la variable thermodynamique de la physique est une variable
+c      intensive :   T 
+c      pour la dynamique on prend    T * ( preff / p(l) ) **kappa
+c    - les deux seules variables dependant de la geometrie necessaires
+c      pour la physique sont la latitude pour le rayonnement et 
+c      l'aire de la maille quand on veut integrer une grandeur 
+c      horizontalement.
+c    - les points de la physique sont les points scalaires de la 
+c      la dynamique; numerotation:
+c          1 pour le pole nord
+c          (jjm-1)*iim pour l'interieur du domaine
+c          ngridmx pour le pole sud
+c      ---> ngridmx=2+(jjm-1)*iim
+c
+c     Input :
+c     -------
+c       ecritphy        frequence d'ecriture (en jours)de histphy
+c       pucov           covariant zonal velocity
+c       pvcov           covariant meridional velocity 
+c       pteta           potential temperature
+c       pps             surface pressure
+c       pmasse          masse d'air dans chaque maille
+c       pts             surface temperature  (K)
+c       callrad         clef d'appel au rayonnement
+c
+c    Output :
+c    --------
+c        pdufi          tendency for the natural zonal velocity (ms-1)
+c        pdvfi          tendency for the natural meridional velocity 
+c        pdhfi          tendency for the potential temperature
+c        pdtsfi         tendency for the surface temperature
+c
+c        pdtrad         radiative tendencies  \  both input
+c        pfluxrad       radiative fluxes      /  and output
+c
+c=======================================================================
+c
+c-----------------------------------------------------------------------
+c
+c    0.  Declarations :
+c    ------------------
+
+#include "dimensions.h"
+#include "paramet.h"
+
+      INTEGER ngridmx
+      PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
+
+#include "comgeom2.h"
+#include "iniprint.h"
+#ifdef CPP_MPI
+      include 'mpif.h'
+#endif
+c    Arguments :
+c    -----------
+      LOGICAL,INTENT(IN) ::  lafin ! .true. for the very last call to physics
+      REAL,INTENT(IN) :: jD_cur, jH_cur
+      REAL,INTENT(IN) :: pvcov(iip1,jjm,llm) ! covariant meridional velocity
+      REAL,INTENT(IN) :: pucov(iip1,jjp1,llm) ! covariant zonal velocity
+      REAL,INTENT(IN) :: pteta(iip1,jjp1,llm) ! potential temperature
+      REAL,INTENT(IN) :: pmasse(iip1,jjp1,llm) ! mass in each cell ! not used
+      REAL,INTENT(IN) :: pq(iip1,jjp1,llm,nqtot) ! tracers
+      REAL,INTENT(IN) :: pphis(iip1,jjp1) ! surface geopotential
+      REAL,INTENT(IN) :: pphi(iip1,jjp1,llm) ! geopotential
+
+      REAL,INTENT(IN) :: pdvcov(iip1,jjm,llm) ! dynamical tendency on vcov ! not used
+      REAL,INTENT(IN) :: pducov(iip1,jjp1,llm) ! dynamical tendency on ucov
+      REAL,INTENT(IN) :: pdteta(iip1,jjp1,llm) ! dynamical tendency on teta
+      ! NB: pdteta is used only to compute pcvgt which is in fact not used...
+      REAL,INTENT(IN) :: pdq(iip1,jjp1,llm,nqtot) ! dynamical tendency on tracers
+      ! NB: pdq is only used to compute pcvgq which is in fact not used...
+
+      REAL,INTENT(IN) :: pps(iip1,jjp1) ! surface pressure (Pa)
+      REAL,INTENT(IN) :: pp(iip1,jjp1,llmp1) ! pressure at mesh interfaces (Pa)
+      REAL,INTENT(IN) :: ppk(iip1,jjp1,llm) ! Exner at mid-layer
+      REAL,INTENT(IN) :: flxw(iip1,jjp1,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) (on llm because flxw(:,:,llm+1)=0)
+
+      ! tendencies (in */s) from the physics
+      REAL,INTENT(OUT) :: pdvfi(iip1,jjm,llm) ! tendency on covariant meridional wind
+      REAL,INTENT(OUT) :: pdufi(iip1,jjp1,llm) ! tendency on covariant zonal wind
+      REAL,INTENT(OUT) :: pdhfi(iip1,jjp1,llm) ! tendency on potential temperature (K/s)
+      REAL,INTENT(OUT) :: pdqfi(iip1,jjp1,llm,nqtot) ! tendency on tracers
+      REAL,INTENT(OUT) :: pdpsfi(iip1,jjp1) ! tendency on surface pressure (Pa/s)
+
+#ifdef CPP_PARA
+#ifdef CPP_PHYS
+! Ehouarn: for now calfis_p needs some informations from physics to compile
+c    Local variables :
+c    -----------------
+
+      INTEGER i,j,l,ig0,ig,iq,iiq
+      REAL,ALLOCATABLE,SAVE :: zpsrf(:)
+      REAL,ALLOCATABLE,SAVE :: zplev(:,:),zplay(:,:)
+      REAL,ALLOCATABLE,SAVE :: zphi(:,:),zphis(:)
+c
+!      REAL zrot(iip1,jjb_v:jje_v,llm) ! AdlC May 2014
+      REAL :: zrot(iip1,jjm,llm)
+      REAL,ALLOCATABLE,SAVE :: zufi(:,:), zvfi(:,:), zrfi(:,:)
+      REAL,ALLOCATABLE,SAVE :: ztfi(:,:),zqfi(:,:,:)
+      REAL,ALLOCATABLE,SAVE ::  zpk(:,:)
+c
+      REAL,ALLOCATABLE,SAVE :: pcvgu(:,:), pcvgv(:,:)
+      REAL,ALLOCATABLE,SAVE :: pcvgt(:,:), pcvgq(:,:,:)
+c
+      REAL,ALLOCATABLE,SAVE :: zdufi(:,:),zdvfi(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdtfi(:,:),zdqfi(:,:,:)
+      REAL,ALLOCATABLE,SAVE :: zdpsrf(:)
+      REAL,SAVE,ALLOCATABLE ::  flxwfi(:,:)     ! Flux de masse verticale sur la grille physiq
+
+c
+      REAL,ALLOCATABLE,SAVE :: zplev_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zplay_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zpk_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zphi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zphis_omp(:)
+      REAL,ALLOCATABLE,SAVE :: presnivs_omp(:)
+      REAL,ALLOCATABLE,SAVE :: zufi_omp(:,:) 
+      REAL,ALLOCATABLE,SAVE :: zvfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zrfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: ztfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zqfi_omp(:,:,:)
+      REAL,ALLOCATABLE,SAVE :: zdufi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdvfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdtfi_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdqfi_omp(:,:,:)
+      REAL,ALLOCATABLE,SAVE :: zdpsrf_omp(:)
+      REAL,SAVE,ALLOCATABLE ::  flxwfi_omp(:,:)     ! Flux de masse verticale sur la grille physiq
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Introduction du splitting (FH)
+! Question pour Yann :
+! J'ai été surpris au début que les tableaux zufi_omp, zdufi_omp n'co soitent
+! en SAVE. Je crois comprendre que c'est parce que tu voulais qu'il
+! soit allocatable (plutot par exemple que de passer une dimension
+! dépendant du process en argument des routines) et que, du coup,
+! le SAVE évite d'avoir à refaire l'allocation à chaque appel.
+! Tu confirmes ?
+! J'ai suivi le même principe pour les zdufic_omp
+! Mais c'est surement bien que tu controles.
+! 
+
+      REAL,ALLOCATABLE,SAVE :: zdufic_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdvfic_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdtfic_omp(:,:)
+      REAL,ALLOCATABLE,SAVE :: zdqfic_omp(:,:,:)
+      REAL jH_cur_split,zdt_split
+      LOGICAL debut_split,lafin_split
+      INTEGER isplit
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+c$OMP THREADPRIVATE(zplev_omp,zplay_omp,zpk_omp,zphi_omp,zphis_omp,
+c$OMP+                 presnivs_omp,zufi_omp,zvfi_omp,ztfi_omp,
+c$OMP+                 zrfi_omp,zqfi_omp,zdufi_omp,zdvfi_omp,
+c$OMP+                 zdtfi_omp,zdqfi_omp,zdpsrf_omp,flxwfi_omp,
+c$OMP+                 zdufic_omp,zdvfic_omp,zdtfic_omp,zdqfic_omp)       
+
+      LOGICAL,SAVE :: first_omp=.true.
+c$OMP THREADPRIVATE(first_omp)
+      
+      REAL zsin(iim),zcos(iim),z1(iim)
+      REAL zsinbis(iim),zcosbis(iim),z1bis(iim)
+      REAL unskap, pksurcp
+c
+      REAL SSUM
+
+      LOGICAL,SAVE :: firstcal=.true., debut=.true.
+c$OMP THREADPRIVATE(firstcal,debut)
+      
+      REAL,SAVE,dimension(1:iim,1:llm):: du_send,du_recv,dv_send,dv_recv
+      INTEGER :: ierr
+#ifdef CPP_MPI
+      INTEGER,dimension(MPI_STATUS_SIZE,4) :: Status
+#else
+      INTEGER,dimension(1,4) :: Status
+#endif
+      INTEGER, dimension(4) :: Req
+      REAL,ALLOCATABLE,SAVE:: zdufi2(:,:),zdvfi2(:,:)
+      integer :: k,kstart,kend
+      INTEGER :: offset  
+      INTEGER :: jjb,jje
+
+c
+c-----------------------------------------------------------------------
+c
+c    1. Initialisations :
+c    --------------------
+c
+
+      klon=klon_mpi
+      
+c
+      IF ( firstcal )  THEN
+        debut = .TRUE.
+        IF (ngridmx.NE.2+(jjm-1)*iim) THEN
+         write(lunout,*) 'STOP dans calfis'
+         write(lunout,*) 
+     &   'La dimension ngridmx doit etre egale a 2 + (jjm-1)*iim'
+         write(lunout,*) '  ngridmx  jjm   iim   '
+         write(lunout,*) ngridmx,jjm,iim
+         STOP
+        ENDIF
+c$OMP MASTER
+      ALLOCATE(zpsrf(klon))
+      ALLOCATE(zplev(klon,llm+1),zplay(klon,llm))
+      ALLOCATE(zphi(klon,llm),zphis(klon))
+      ALLOCATE(zufi(klon,llm), zvfi(klon,llm),zrfi(klon,llm))
+      ALLOCATE(ztfi(klon,llm),zqfi(klon,llm,nqtot))
+      ALLOCATE(pcvgu(klon,llm), pcvgv(klon,llm))
+      ALLOCATE(pcvgt(klon,llm), pcvgq(klon,llm,2))
+      ALLOCATE(zdufi(klon,llm),zdvfi(klon,llm))
+      ALLOCATE(zdtfi(klon,llm),zdqfi(klon,llm,nqtot))
+      ALLOCATE(zdpsrf(klon))
+      ALLOCATE(zdufi2(klon+iim,llm),zdvfi2(klon+iim,llm))
+      ALLOCATE(flxwfi(klon,llm))
+      ALLOCATE(zpk(klon,llm))
+c$OMP END MASTER
+c$OMP BARRIER          
+      ELSE
+          debut = .FALSE.
+      ENDIF
+
+c
+c
+c-----------------------------------------------------------------------
+c   40. transformation des variables dynamiques en variables physiques:
+c   ---------------------------------------------------------------
+
+c   41. pressions au sol (en Pascals)
+c   ----------------------------------
+
+c$OMP MASTER
+      call start_timer(timer_physic)
+c$OMP END MASTER
+
+c$OMP MASTER             
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+      do ig0=1,klon
+        i=index_i(ig0)
+        j=index_j(ig0)
+        zpsrf(ig0)=pps(i,j)
+      enddo
+c$OMP END MASTER
+
+
+c   42. pression intercouches :
+c
+c   -----------------------------------------------------------------
+c     .... zplev  definis aux (llm +1) interfaces des couches  ....
+c     .... zplay  definis aux (  llm )    milieux des couches  .... 
+c   -----------------------------------------------------------------
+
+c    ...    Exner = cp * ( p(l) / preff ) ** kappa     ....
+c
+       unskap   = 1./ kappa
+c
+c      print *,omp_rank,'klon--->',klon
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l = 1, llmp1
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+        do ig0=1,klon
+          i=index_i(ig0)
+          j=index_j(ig0)
+          zplev( ig0,l ) = pp(i,j,l)
+        enddo
+      ENDDO
+c$OMP END DO NOWAIT
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        do ig0=1,klon
+          i=index_i(ig0)
+          j=index_j(ig0)
+          zpk(ig0,l)=ppk(i,j,l)
+        enddo
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+c
+
+c   43. temperature naturelle (en K) et pressions milieux couches .
+c   ---------------------------------------------------------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+        do ig0=1,klon
+          i=index_i(ig0)
+          j=index_j(ig0)
+          pksurcp        = ppk(i,j,l) / cpp
+          zplay(ig0,l)   = preff * pksurcp ** unskap
+          ztfi(ig0,l)    = pteta(i,j,l)  * pksurcp
+        enddo
+
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   43.bis traceurs
+c   ---------------
+c
+
+      DO iq=1,nqtot
+         iiq=niadv(iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+           do ig0=1,klon
+             i=index_i(ig0)
+             j=index_j(ig0)
+             zqfi(ig0,l,iq)  = pq(i,j,l,iiq)
+           enddo
+         ENDDO
+c$OMP END DO NOWAIT         
+      ENDDO
+
+
+c   Geopotentiel calcule par rapport a la surface locale:
+c   -----------------------------------------------------
+
+      CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,pphi,zphi)
+
+      CALL gr_dyn_fi_p(1,iip1,jjp1,klon,pphis,zphis)
+
+c$OMP BARRIER
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+         DO ig=1,klon
+           zphi(ig,l)=zphi(ig,l)-zphis(ig)
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+      
+
+c
+c   45. champ u:
+c   ------------
+
+      kstart=1
+      kend=klon
+      
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn) kend=klon-1
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!CDIR SPARSE
+        do ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          if (i==1) then
+            zufi(ig0,l)= 0.5 *(  pucov(iim,j,l)/cu(iim,j)
+     $                         + pucov(1,j,l)/cu(1,j) )
+          else
+            zufi(ig0,l)= 0.5*(  pucov(i-1,j,l)/cu(i-1,j) 
+     $                       + pucov(i,j,l)/cu(i,j) )
+          endif
+        enddo
+      ENDDO
+c$OMP END DO NOWAIT
+
+c
+C  Alvaro de la Camara (May 2014)
+C  46.1 Calcul de la vorticite et passage sur la grille physique
+C  --------------------------------------------------------------
+
+      jjb=jj_begin_dyn-1
+      jje=jj_end_dyn+1
+      if (is_north_pole_dyn) jjb=1
+      if (is_south_pole_dyn) jje=jjm
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+
+      DO l=1,llm
+        do i=1,iim
+          do j=jjb,jje
+            zrot(i,j,l) = (pvcov(i+1,j,l) - pvcov(i,j,l)
+     $                   + pucov(i,j+1,l) - pucov(i,j,l))
+     $                   / (cu(i,j)+cu(i,j+1))
+     $                   / (cv(i+1,j)+cv(i,j)) *4
+          enddo
+        enddo
+      ENDDO
+
+
+c   46.2champ v:
+c   -----------
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+        DO ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          zvfi(ig0,l)= 0.5 *(  pvcov(i,j-1,l)/cv(i,j-1) 
+     $                       + pvcov(i,j,l)/cv(i,j) )
+    
+          if (j==1 .OR. j==jjp1) then !  AdlC MAY 2014
+            zrfi(ig0,l) = 0 !  AdlC MAY 2014
+          else
+            if(i==1)then
+            zrfi(ig0,l)= 0.25 *(zrot(iim,j-1,l)+zrot(iim,j,l)
+     $                   +zrot(1,j-1,l)+zrot(1,j,l))   !  AdlC MAY 2014
+            else
+            zrfi(ig0,l)= 0.25 *(zrot(i-1,j-1,l)+zrot(i-1,j,l)
+     $                   +zrot(i,j-1,l)+zrot(i,j,l))   !  AdlC MAY 2014
+            endif
+          endif
+
+
+         ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   47. champs de vents aux pole nord   
+c   ------------------------------
+c        U = 1 / pi  *  integrale [ v * cos(long) * d long ]
+c        V = 1 / pi  *  integrale [ v * sin(long) * d long ]
+
+      if (is_north_pole_dyn) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l=1,llm
+
+           z1(1)   =(rlonu(1)-rlonu(iim)+2.*pi)*pvcov(1,1,l)/cv(1,1)
+           DO i=2,iim
+              z1(i)   =(rlonu(i)-rlonu(i-1))*pvcov(i,1,l)/cv(i,1)
+           ENDDO
+  
+           DO i=1,iim
+              zcos(i)   = COS(rlonv(i))*z1(i)
+              zsin(i)   = SIN(rlonv(i))*z1(i)
+           ENDDO
+  
+           zufi(1,l)  = SSUM(iim,zcos,1)/pi
+           zvfi(1,l)  = SSUM(iim,zsin,1)/pi
+           zrfi(1,l)  = 0.
+  
+        ENDDO
+c$OMP END DO NOWAIT      
+      endif
+
+
+c   48. champs de vents aux pole sud:
+c   ---------------------------------
+c        U = 1 / pi  *  integrale [ v * cos(long) * d long ]
+c        V = 1 / pi  *  integrale [ v * sin(long) * d long ]
+
+      if (is_south_pole_dyn) then
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l=1,llm
+  
+         z1(1)   =(rlonu(1)-rlonu(iim)+2.*pi)*pvcov(1,jjm,l)/cv(1,jjm)
+           DO i=2,iim
+             z1(i)   =(rlonu(i)-rlonu(i-1))*pvcov(i,jjm,l)/cv(i,jjm)
+           ENDDO
+  
+           DO i=1,iim
+              zcos(i)    = COS(rlonv(i))*z1(i)
+              zsin(i)    = SIN(rlonv(i))*z1(i)
+           ENDDO
+  
+           zufi(klon,l)  = SSUM(iim,zcos,1)/pi
+           zvfi(klon,l)  = SSUM(iim,zsin,1)/pi
+           zrfi(klon,l)  = 0.
+        ENDDO
+c$OMP END DO NOWAIT       
+      endif
+
+c On change de grille, dynamique vers physiq, pour le flux de masse verticale
+      CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,flxw,flxwfi)
+
+c-----------------------------------------------------------------------
+c   Appel de la physique:
+c   ---------------------
+
+
+c$OMP BARRIER
+      if (first_omp) then
+        klon=klon_omp
+
+        allocate(zplev_omp(klon,llm+1))
+        allocate(zplay_omp(klon,llm))
+        allocate(zpk_omp(klon,llm))
+        allocate(zphi_omp(klon,llm))
+        allocate(zphis_omp(klon))
+        allocate(presnivs_omp(llm))
+        allocate(zufi_omp(klon,llm))
+        allocate(zvfi_omp(klon,llm))
+        allocate(zrfi_omp(klon,llm))  ! LG Ari 2014
+        allocate(ztfi_omp(klon,llm))
+        allocate(zqfi_omp(klon,llm,nqtot))
+        allocate(zdufi_omp(klon,llm))
+        allocate(zdvfi_omp(klon,llm))
+        allocate(zdtfi_omp(klon,llm))
+        allocate(zdqfi_omp(klon,llm,nqtot))
+        allocate(zdufic_omp(klon,llm))
+        allocate(zdvfic_omp(klon,llm))
+        allocate(zdtfic_omp(klon,llm))
+        allocate(zdqfic_omp(klon,llm,nqtot))
+        allocate(zdpsrf_omp(klon))
+        allocate(flxwfi_omp(klon,llm))
+        first_omp=.false.
+      endif
+       
+           
+      klon=klon_omp
+      offset=klon_omp_begin-1
+      
+      do l=1,llm+1
+        do i=1,klon
+          zplev_omp(i,l)=zplev(offset+i,l)
+        enddo 
+      enddo
+          
+       do l=1,llm
+        do i=1,klon  
+          zplay_omp(i,l)=zplay(offset+i,l)
+        enddo 
+      enddo
+        
+       do l=1,llm
+        do i=1,klon  
+	  zpk_omp(i,l)=zpk(offset+i,l)
+	enddo 
+      enddo
+	
+      do l=1,llm
+        do i=1,klon
+          zphi_omp(i,l)=zphi(offset+i,l)
+        enddo 
+      enddo
+        
+      do i=1,klon
+        zphis_omp(i)=zphis(offset+i)
+      enddo 
+     
+        
+      do l=1,llm
+        presnivs_omp(l)=presnivs(l)
+      enddo 
+        
+      do l=1,llm
+        do i=1,klon
+          zufi_omp(i,l)=zufi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zvfi_omp(i,l)=zvfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zrfi_omp(i,l)=zrfi(offset+i,l)
+        enddo 
+      enddo
+        
+        
+      do l=1,llm
+        do i=1,klon
+          ztfi_omp(i,l)=ztfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zqfi_omp(i,l,iq)=zqfi(offset+i,l,iq)
+          enddo
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdufi_omp(i,l)=zdufi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdvfi_omp(i,l)=zdvfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdtfi_omp(i,l)=zdtfi(offset+i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zdqfi_omp(i,l,iq)=zdqfi(offset+i,l,iq)
+          enddo 
+        enddo
+      enddo
+              
+      do i=1,klon
+        zdpsrf_omp(i)=zdpsrf(offset+i)
+      enddo 
+
+      do l=1,llm
+        do i=1,klon
+          flxwfi_omp(i,l)=flxwfi(offset+i,l)
+        enddo 
+      enddo
+      
+c$OMP BARRIER
+      
+!$OMP MASTER
+!      write(lunout,*) 'PHYSIQUE AVEC NSPLIT_PHYS=',nsplit_phys
+!$OMP END MASTER
+      zdt_split=dtphys/nsplit_phys
+      zdufic_omp(:,:)=0.
+      zdvfic_omp(:,:)=0.
+      zdtfic_omp(:,:)=0.
+      zdqfic_omp(:,:,:)=0.
+
+#ifdef CPP_PHYS
+      do isplit=1,nsplit_phys
+
+         jH_cur_split=jH_cur+(isplit-1) * dtvr / (daysec *nsplit_phys)
+         debut_split=debut.and.isplit==1
+         lafin_split=lafin.and.isplit==nsplit_phys
+
+        CALL call_physiq(klon,llm,nqtot,tname,
+     &                   debut_split,lafin_split,
+     &                   jD_cur,jH_cur_split,zdt_split,
+     &                   zplev_omp,zplay_omp,
+     &                   zpk_omp,zphi_omp,zphis_omp,
+     &                   presnivs_omp,
+     &                   zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,
+     &                   flxwfi_omp,pducov,
+     &                   zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,
+     &                   zdpsrf_omp)
+
+
+         zufi_omp(:,:)=zufi_omp(:,:)+zdufi_omp(:,:)*zdt_split
+         zvfi_omp(:,:)=zvfi_omp(:,:)+zdvfi_omp(:,:)*zdt_split
+         ztfi_omp(:,:)=ztfi_omp(:,:)+zdtfi_omp(:,:)*zdt_split
+         zqfi_omp(:,:,:)=zqfi_omp(:,:,:)+zdqfi_omp(:,:,:)*zdt_split
+
+         zdufic_omp(:,:)=zdufic_omp(:,:)+zdufi_omp(:,:)
+         zdvfic_omp(:,:)=zdvfic_omp(:,:)+zdvfi_omp(:,:)
+         zdtfic_omp(:,:)=zdtfic_omp(:,:)+zdtfi_omp(:,:)
+         zdqfic_omp(:,:,:)=zdqfic_omp(:,:,:)+zdqfi_omp(:,:,:)
+
+      enddo
+
+#endif
+! of #ifdef CPP_PHYS
+
+      zdufi_omp(:,:)=zdufic_omp(:,:)/nsplit_phys
+      zdvfi_omp(:,:)=zdvfic_omp(:,:)/nsplit_phys
+      zdtfi_omp(:,:)=zdtfic_omp(:,:)/nsplit_phys
+      zdqfi_omp(:,:,:)=zdqfic_omp(:,:,:)/nsplit_phys
+c$OMP BARRIER
+
+      do l=1,llm+1
+        do i=1,klon
+          zplev(offset+i,l)=zplev_omp(i,l)
+        enddo 
+      enddo
+          
+       do l=1,llm
+        do i=1,klon  
+          zplay(offset+i,l)=zplay_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zphi(offset+i,l)=zphi_omp(i,l)
+        enddo 
+      enddo
+        
+
+      do i=1,klon
+        zphis(offset+i)=zphis_omp(i)
+      enddo 
+     
+        
+      do l=1,llm
+        presnivs(l)=presnivs_omp(l)
+      enddo 
+        
+      do l=1,llm
+        do i=1,klon
+          zufi(offset+i,l)=zufi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zvfi(offset+i,l)=zvfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          ztfi(offset+i,l)=ztfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zqfi(offset+i,l,iq)=zqfi_omp(i,l,iq)
+          enddo
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdufi(offset+i,l)=zdufi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdvfi(offset+i,l)=zdvfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do l=1,llm
+        do i=1,klon
+          zdtfi(offset+i,l)=zdtfi_omp(i,l)
+        enddo 
+      enddo
+        
+      do iq=1,nqtot
+        do l=1,llm
+          do i=1,klon
+            zdqfi(offset+i,l,iq)=zdqfi_omp(i,l,iq)
+          enddo 
+        enddo
+      enddo
+              
+      do i=1,klon
+        zdpsrf(offset+i)=zdpsrf_omp(i)
+      enddo 
+      
+
+      klon=klon_mpi
+500   CONTINUE
+c$OMP BARRIER
+
+c$OMP MASTER
+      call stop_timer(timer_physic)
+c$OMP END MASTER
+
+      IF (using_mpi) THEN
+            
+      if (MPI_rank>0) then
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
+       DO l=1,llm      
+        du_send(1:iim,l)=zdufi(1:iim,l)
+        dv_send(1:iim,l)=zdvfi(1:iim,l)
+       ENDDO
+c$OMP END DO NOWAIT       
+
+c$OMP BARRIER
+#ifdef CPP_MPI 
+c$OMP MASTER
+!$OMP CRITICAL (MPI)
+        call MPI_ISSEND(du_send,iim*llm,MPI_REAL8,MPI_Rank-1,401,
+     &                   COMM_LMDZ,Req(1),ierr)
+        call MPI_ISSEND(dv_send,iim*llm,MPI_REAL8,MPI_Rank-1,402,
+     &                  COMM_LMDZ,Req(2),ierr)
+!$OMP END CRITICAL (MPI)
+c$OMP END MASTER
+#endif
+c$OMP BARRIER
+     
+      endif
+   
+      if (MPI_rank<MPI_Size-1) then
+c$OMP BARRIER
+#ifdef CPP_MPI 
+c$OMP MASTER      
+!$OMP CRITICAL (MPI)
+        call MPI_IRECV(du_recv,iim*llm,MPI_REAL8,MPI_Rank+1,401,
+     &                 COMM_LMDZ,Req(3),ierr)
+        call MPI_IRECV(dv_recv,iim*llm,MPI_REAL8,MPI_Rank+1,402,
+     &                 COMM_LMDZ,Req(4),ierr)
+!$OMP END CRITICAL (MPI)
+c$OMP END MASTER
+#endif
+      endif
+
+c$OMP BARRIER
+
+
+#ifdef CPP_MPI 
+c$OMP MASTER    
+!$OMP CRITICAL (MPI)
+      if (MPI_rank>0 .and. MPI_rank< MPI_Size-1) then
+        call MPI_WAITALL(4,Req(1),Status,ierr)
+      else if (MPI_rank>0) then
+        call MPI_WAITALL(2,Req(1),Status,ierr)
+      else if (MPI_rank <MPI_Size-1) then
+        call MPI_WAITALL(2,Req(3),Status,ierr)
+      endif
+!$OMP END CRITICAL (MPI)
+c$OMP END MASTER
+#endif
+
+c$OMP BARRIER     
+
+      ENDIF ! using_mpi
+      
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+            
+        zdufi2(1:klon,l)=zdufi(1:klon,l)
+        zdufi2(klon+1:klon+iim,l)=du_recv(1:iim,l)
+            
+        zdvfi2(1:klon,l)=zdvfi(1:klon,l)
+        zdvfi2(klon+1:klon+iim,l)=dv_recv(1:iim,l) 
+  
+         pdhfi(:,jj_begin,l)=0
+         pdqfi(:,jj_begin,l,:)=0
+         pdufi(:,jj_begin,l)=0
+         pdvfi(:,jj_begin,l)=0
+         
+         if (.not. is_south_pole_dyn) then
+           pdhfi(:,jj_end,l)=0
+           pdqfi(:,jj_end,l,:)=0
+           pdufi(:,jj_end,l)=0
+           pdvfi(:,jj_end,l)=0
+         endif
+      
+       ENDDO 
+c$OMP END DO NOWAIT
+
+c$OMP MASTER
+       pdpsfi(:,jj_begin)=0    
+       if (.not. is_south_pole_dyn) then
+         pdpsfi(:,jj_end)=0
+       endif
+c$OMP END MASTER
+c-----------------------------------------------------------------------
+c   transformation des tendances physiques en tendances dynamiques:
+c   ---------------------------------------------------------------
+
+c  tendance sur la pression :
+c  -----------------------------------
+      CALL gr_fi_dyn_p(1,klon,iip1,jjp1,zdpsrf,pdpsfi)
+c
+c   62. enthalpie potentielle
+c   ---------------------
+      
+      kstart=1
+      kend=klon
+
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn)  kend=klon-1
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+        do ig0=kstart,kend
+          i=index_i(ig0)
+          j=index_j(ig0)
+          pdhfi(i,j,l) = cpp * zdtfi(ig0,l) / ppk(i,j,l)
+          if (i==1) pdhfi(iip1,j,l) =  cpp * zdtfi(ig0,l) / ppk(i,j,l)
+         enddo          
+
+        if (is_north_pole_dyn) then
+            DO i=1,iip1
+              pdhfi(i,1,l)    = cpp *  zdtfi(1,l)      / ppk(i, 1  ,l)
+            enddo
+        endif
+        
+        if (is_south_pole_dyn) then
+            DO i=1,iip1
+              pdhfi(i,jjp1,l) = cpp *  zdtfi(klon,l)/ ppk(i,jjp1,l)
+            ENDDO
+        endif
+      ENDDO
+c$OMP END DO NOWAIT
+      
+c   62. humidite specifique
+c   ---------------------
+! Ehouarn: removed this useless bit: was overwritten at step 63 anyways
+!      DO iq=1,nqtot
+!c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+!         DO l=1,llm
+!!!cdir NODEP 
+!           do ig0=kstart,kend
+!             i=index_i(ig0)
+!             j=index_j(ig0)
+!             pdqfi(i,j,l,iq) = zdqfi(ig0,l,iq) 
+!             if (i==1) pdqfi(iip1,j,l,iq) = zdqfi(ig0,l,iq) 
+!           enddo
+!           
+!           if (is_north_pole_dyn) then
+!             do i=1,iip1
+!               pdqfi(i,1,l,iq)    = zdqfi(1,l,iq)             
+!             enddo
+!           endif
+!           
+!           if (is_south_pole_dyn) then
+!             do i=1,iip1
+!               pdqfi(i,jjp1,l,iq) = zdqfi(klon,l,iq) 
+!             enddo
+!           endif
+!         ENDDO
+!c$OMP END DO NOWAIT
+!      ENDDO
+
+c   63. traceurs
+c   ------------
+C     initialisation des tendances
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+        pdqfi(:,:,l,:)=0.
+      ENDDO
+c$OMP END DO NOWAIT         
+
+C
+!cdir NODEP
+      DO iq=1,nqtot
+         iiq=niadv(iq)
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+         DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP           
+             DO ig0=kstart,kend
+              i=index_i(ig0)
+              j=index_j(ig0)
+              pdqfi(i,j,l,iiq) = zdqfi(ig0,l,iq)
+              if (i==1) pdqfi(iip1,j,l,iiq) = zdqfi(ig0,l,iq)
+            ENDDO
+            
+            IF (is_north_pole_dyn) then
+              DO i=1,iip1
+                pdqfi(i,1,l,iiq)    = zdqfi(1,l,iq)
+              ENDDO
+            ENDIF
+            
+            IF (is_south_pole_dyn) then
+              DO i=1,iip1
+                pdqfi(i,jjp1,l,iiq) = zdqfi(klon,l,iq)
+              ENDDO
+            ENDIF
+            
+         ENDDO
+c$OMP END DO NOWAIT         
+      ENDDO
+      
+c   65. champ u:
+c   ------------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+         do ig0=kstart,kend
+           i=index_i(ig0)
+           j=index_j(ig0)
+           
+           if (i/=iim) then
+             pdufi(i,j,l)=0.5*(zdufi2(ig0,l)+zdufi2(ig0+1,l))*cu(i,j)
+           endif
+           
+           if (i==1) then
+              pdufi(iim,j,l)=0.5*(  zdufi2(ig0,l)
+     $                            + zdufi2(ig0+iim-1,l))*cu(iim,j)
+             pdufi(iip1,j,l)=0.5*(zdufi2(ig0,l)+zdufi2(ig0+1,l))*cu(i,j)
+           endif
+         
+         enddo
+         
+         if (is_north_pole_dyn) then
+           DO i=1,iip1
+            pdufi(i,1,l)    = 0.
+           ENDDO
+         endif
+         
+         if (is_south_pole_dyn) then
+           DO i=1,iip1
+            pdufi(i,jjp1,l) = 0.
+           ENDDO
+         endif
+         
+      ENDDO
+c$OMP END DO NOWAIT
+
+c   67. champ v:
+c   ------------
+
+      kstart=1
+      kend=klon
+
+      if (is_north_pole_dyn) kstart=2
+      if (is_south_pole_dyn)  kend=klon-1-iim
+      
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+      DO l=1,llm
+!CDIR ON_ADB(index_i)
+!CDIR ON_ADB(index_j) 
+!cdir NODEP
+        do ig0=kstart,kend
+           i=index_i(ig0)
+           j=index_j(ig0)
+           pdvfi(i,j,l)=0.5*(zdvfi2(ig0,l)+zdvfi2(ig0+iim,l))*cv(i,j)
+           if (i==1) pdvfi(iip1,j,l) = 0.5*(zdvfi2(ig0,l)+
+     $                                            zdvfi2(ig0+iim,l))
+     $                                          *cv(i,j)
+        enddo
+         
+      ENDDO
+c$OMP END DO NOWAIT
+
+
+c   68. champ v pres des poles:
+c   ---------------------------
+c      v = U * cos(long) + V * SIN(long)
+
+      if (is_north_pole_dyn) then
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+        DO l=1,llm
+
+          DO i=1,iim
+            pdvfi(i,1,l)=
+     $      zdufi(1,l)*COS(rlonv(i))+zdvfi(1,l)*SIN(rlonv(i))
+       
+            pdvfi(i,1,l)=
+     $      0.5*(pdvfi(i,1,l)+zdvfi(i+1,l))*cv(i,1)
+          ENDDO
+
+          pdvfi(iip1,1,l)  = pdvfi(1,1,l)
+
+        ENDDO
+c$OMP END DO NOWAIT
+
+      endif    
+      
+      if (is_south_pole_dyn) then
+
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)      
+         DO l=1,llm
+  
+           DO i=1,iim
+              pdvfi(i,jjm,l)=zdufi(klon,l)*COS(rlonv(i))
+     $        +zdvfi(klon,l)*SIN(rlonv(i))
+
+              pdvfi(i,jjm,l)=
+     $        0.5*(pdvfi(i,jjm,l)+zdvfi(klon-iip1+i,l))*cv(i,jjm)
+           ENDDO
+
+           pdvfi(iip1,jjm,l)= pdvfi(1,jjm,l)
+
+        ENDDO
+c$OMP END DO NOWAIT
+     
+      endif
+c-----------------------------------------------------------------------
+
+700   CONTINUE
+ 
+      firstcal = .FALSE.
+
+#else 
+      write(lunout,*) 
+     & "calfis_p: for now can only work with parallel physics" 
+      stop 
+#endif 
+! of #ifdef CPP_PHYS
+#endif
+! of #ifdef CPP_PARA
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_dyn_fi.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_dyn_fi.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_dyn_fi.F	(revision 3330)
@@ -0,0 +1,38 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
+      IMPLICIT NONE
+c=======================================================================
+c   passage d'un champ de la grille scalaire a la grille physique
+c=======================================================================
+
+c-----------------------------------------------------------------------
+c   declarations:
+c   -------------
+
+      INTEGER im,jm,ngrid,nfield
+      REAL pdyn(im,jm,nfield)
+      REAL pfi(ngrid,nfield)
+
+      INTEGER j,ifield,ig
+
+c-----------------------------------------------------------------------
+c   calcul:
+c   -------
+
+      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
+c   traitement des poles
+      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
+      CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid)
+
+c   traitement des point normaux
+      DO ifield=1,nfield
+         DO j=2,jm-1
+	    ig=2+(j-2)*(im-1)
+            CALL SCOPY(im-1,pdyn(1,j,ifield),1,pfi(ig,ifield),1)
+         ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_dyn_fi_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_dyn_fi_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_dyn_fi_p.F	(revision 3330)
@@ -0,0 +1,44 @@
+!
+! $Id$
+!
+      SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
+#ifdef CPP_PARA
+! Interface with parallel physics,
+      USE mod_interface_dyn_phys
+      USE dimphy
+      USE parallel_lmdz
+      IMPLICIT NONE
+c=======================================================================
+c   passage d'un champ de la grille scalaire a la grille physique
+c=======================================================================
+
+c-----------------------------------------------------------------------
+c   declarations:
+c   -------------
+
+      INTEGER im,jm,ngrid,nfield
+      REAL pdyn(im,jm,nfield)
+      REAL pfi(ngrid,nfield)
+
+      INTEGER i,j,ig,l
+
+c-----------------------------------------------------------------------
+c   calcul:
+c   -------
+
+c      IF(ngrid.NE.2+(jm-2)*(im-1)) STOP 'probleme de dim'
+c   traitement des poles
+c   traitement des point normaux
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO l=1,nfield    
+       DO ig=1,klon
+         i=index_i(ig)
+         j=index_j(ig)
+         pfi(ig,l)=pdyn(i,j,l)
+       ENDDO
+      ENDDO
+c$OMP END DO NOWAIT
+#endif
+! of #ifdef CPP_PARA
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_fi_dyn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_fi_dyn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_fi_dyn.F	(revision 3330)
@@ -0,0 +1,40 @@
+!
+! $Header$
+!
+      SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
+      IMPLICIT NONE
+c=======================================================================
+c   passage d'un champ de la grille scalaire a la grille physique
+c=======================================================================
+
+c-----------------------------------------------------------------------
+c   declarations:
+c   -------------
+
+      INTEGER im,jm,ngrid,nfield
+      REAL pdyn(im,jm,nfield)
+      REAL pfi(ngrid,nfield)
+
+      INTEGER i,j,ifield,ig
+
+c-----------------------------------------------------------------------
+c   calcul:
+c   -------
+
+      DO ifield=1,nfield
+c   traitement des poles
+         DO i=1,im
+            pdyn(i,1,ifield)=pfi(1,ifield)
+            pdyn(i,jm,ifield)=pfi(ngrid,ifield)
+         ENDDO
+
+c   traitement des point normaux
+         DO j=2,jm-1
+	    ig=2+(j-2)*(im-1)
+            CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1)
+	    pdyn(im,j,ifield)=pdyn(1,j,ifield)
+         ENDDO
+      ENDDO
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_fi_dyn_p.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_fi_dyn_p.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/gr_fi_dyn_p.F	(revision 3330)
@@ -0,0 +1,56 @@
+!
+! $Id$
+!
+      SUBROUTINE gr_fi_dyn_p(nfield,ngrid,im,jm,pfi,pdyn)
+#ifdef CPP_PARA
+! Interface with parallel physics,
+      USE mod_interface_dyn_phys
+      USE dimphy
+      USE parallel_lmdz
+      IMPLICIT NONE
+c=======================================================================
+c   passage d'un champ de la grille scalaire a la grille physique
+c=======================================================================
+
+c-----------------------------------------------------------------------
+c   declarations:
+c   -------------
+
+      INTEGER im,jm,ngrid,nfield
+      REAL pdyn(im,jm,nfield)
+      REAL pfi(ngrid,nfield)
+
+      INTEGER i,j,ifield,ig
+
+c-----------------------------------------------------------------------
+c   calcul:
+c   -------
+c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+      DO ifield=1,nfield
+
+        do ig=1,klon
+          i=index_i(ig)
+          j=index_j(ig)
+          pdyn(i,j,ifield)=pfi(ig,ifield)
+          if (i==1) pdyn(im,j,ifield)=pdyn(i,j,ifield)
+	enddo
+
+c   traitement des poles
+      if (pole_nord) then
+        do i=1,im
+	  pdyn(i,1,ifield)=pdyn(1,1,ifield)
+	enddo
+      endif
+       
+      if (pole_sud) then
+        do i=1,im
+	  pdyn(i,jm,ifield)=pdyn(1,jm,ifield)
+	enddo
+      endif
+      
+      ENDDO
+c$OMP END DO NOWAIT
+#endif
+! of #ifdef CPP_PARA
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/grid_atob_m.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/grid_atob_m.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/grid_atob_m.f90	(revision 3330)
@@ -0,0 +1,261 @@
+!*******************************************************************************
+!
+MODULE grid_atob_m
+!
+!*******************************************************************************
+
+  USE assert_eq_m, ONLY: assert_eq
+
+  PRIVATE
+  PUBLIC :: grille_m, rugosite, sea_ice, rugsoro
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE fine2coarse(x_i, y_i, x_o, y_o, d_o1, d_i, msk, d_o2)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL,              INTENT(IN)  :: x_i(:), y_i(:) !-- INPUT  X&Y COOR. (mi)(ni)
+  REAL,              INTENT(IN)  :: x_o(:), y_o(:) !-- OUTPUT X&Y COOR. (mo)(no)
+  REAL,              INTENT(OUT) :: d_o1(:,:)      !-- OUTPUT FIELD     (mo,no)
+  REAL,    OPTIONAL, INTENT(IN)  :: d_i (:,:)      !-- INPUT FIELD      (mi,ni)
+  LOGICAL, OPTIONAL, INTENT(IN)  :: msk (:,:)      !-- MASK             (mo,no)
+  REAL,    OPTIONAL, INTENT(OUT) :: d_o2(:,:)      !-- OUTPUT FOR d_i^2 (mo,no)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="fine2coarse"
+  INTEGER :: mi, ni, ii, ji, mo, no, io, jo, nr(2), m1,m2, n1,n2, mx,my, nn, i,j
+  LOGICAL :: li, lo, first=.TRUE.
+  REAL    :: inc, cpa, spa, crlo(SIZE(x_i))
+  REAL, SAVE :: pi, hpi
+  INTEGER, DIMENSION(SIZE(x_o),SIZE(y_o)) :: num_tot
+  LOGICAL, DIMENSION(SIZE(x_o),SIZE(y_o)) :: found, mask
+  REAL,    DIMENSION(SIZE(x_i),SIZE(y_i)) :: dist
+  REAL,    DIMENSION(SIZE(x_o))           :: a, b
+  REAL,    DIMENSION(SIZE(y_o))           :: c, d
+  REAL,    PARAMETER :: thresh=1.E-5
+!-------------------------------------------------------------------------------
+  IF(first) THEN; pi=4.0*ATAN(1.0); hpi=pi/2.0; first=.FALSE.; END IF
+  mi=SIZE(x_i); ni=SIZE(y_i); mo=SIZE(x_o); no=SIZE(y_o)
+  m1=m1; m2=mo; mx=mo; IF(PRESENT(msk)) mx=SIZE(msk,1)
+  n1=ni; n2=no; my=no; IF(PRESENT(msk)) my=SIZE(msk,2)
+  li=PRESENT(d_i ); IF(li) THEN; m1=SIZE(d_i ,1); n1=SIZE(d_i ,2); END IF
+  lo=PRESENT(d_o2); IF(lo) THEN; m2=SIZE(d_o2,1); n2=SIZE(d_o2,2); END IF
+  mi=assert_eq(mi,m1,TRIM(modname)//" mi")
+  ni=assert_eq(ni,n1,TRIM(modname)//" ni")
+  mo=assert_eq(mo,m2,mx,SIZE(d_o1,1),TRIM(modname)//" mo")
+  no=assert_eq(no,n2,my,SIZE(d_o1,2),TRIM(modname)//" no")
+  mask(:,:)=.TRUE.; IF(PRESENT(msk)) mask(:,:)=msk(:,:)
+
+!--- COMPUTE CELLS INTERFACES COORDINATES OF OUTPUT GRID
+  b(mo)=x_o(mo)+(x_o(mo)-x_o(mo-1))/2.0; b(1:mo-1)=(x_o(1:mo-1)+x_o(2:mo))/2.0
+  d(no)=y_o(no)+(y_o(no)-y_o(no-1))/2.0; d(1:no-1)=(y_o(1:no-1)+y_o(2:no))/2.0
+  a(1 )=x_o(1 )-(x_o(2 )-x_o(1   ))/2.0; a(2:mo  )=   b(1:mo-1)
+  c(1 )=y_o(1 )-(y_o(2 )-y_o(1   ))/2.0; c(2:no  )=   d(1:no-1)
+
+!--- ACCUMULATE INPUT POINTS ON OUTPUT GRID
+  d_o1(:,:)=0.; num_tot(:,:)=0; inc=1.0
+  IF(lo) d_o2(:,:)=0.
+  DO ji = 1, ni
+    DO ii = 1, mi
+      IF(li) inc=d_i(ii,ji)
+      DO jo = 1, no
+        IF((y_i(ji)-c(jo)<thresh.OR.y_i(ji)-d(jo)>thresh).AND.   &
+           (y_i(ji)-c(jo)>thresh.OR.y_i(ji)-d(jo)<thresh)) CYCLE
+        DO io = 1, mo
+          IF((x_i(ii)-a(io)<thresh.OR.x_i(ii)-b(io)>thresh).AND. &
+             (x_i(ii)-a(io)>thresh.OR.x_i(ii)-b(io)<thresh)) CYCLE
+          num_tot(io,jo)=num_tot(io,jo)+1
+          IF(mask(io,jo)) d_o1(io,jo)=d_o1(io,jo)+inc
+          IF(.NOT.lo) CYCLE
+          IF(mask(io,jo)) d_o2(io,jo)=d_o2(io,jo)+inc*inc
+        END DO
+      END DO
+    END DO
+  END DO
+
+!--- CHECK INPUT POINTS HAVE BEEN FOUND IN EACH OUTPUT CELL
+  found(:,:)=num_tot(:,:)/=0
+  WHERE(found.AND.mask) d_o1(:,:)=d_o1(:,:)/REAL(num_tot(:,:))
+  IF(PRESENT(d_o2)) THEN
+    WHERE(found.AND.mask) d_o2(:,:)=d_o2(:,:)/REAL(num_tot(:,:))
+    RETURN
+  END IF
+  nn=COUNT(found); IF(nn==0) RETURN
+
+!--- MISSING POINTS ; USE DISTANCE ON THE SPHERE TO FIND NEAREST POINT nr(2)
+  DO io = 1, mo
+    DO jo = 1, no
+      IF(found(io,jo)) CYCLE
+!      IF(prt_level>=1) PRINT*, "Problem: point out of domain (i,j)=", io,jo
+      crlo(:)=COS(x_o(io)-x_i(:))     !--- COS of points 1 and 2 angle
+      cpa=COS(y_o(jo)); spa=SIN(y_o(jo))
+      DO j=1,ni; dist(:,j)=ACOS(spa*SIN(y_i(j))+cpa*COS(y_i(j))*crlo(:)); END DO
+      nr=MINLOC(dist(:,:))!; IF(prt_level>=1) PRINT*, "Solution: ", nr
+      inc=1.0; IF(li) inc=d_i(nr(1),nr(2))
+      IF(mask(io,jo)) d_o1(io,jo)=inc
+    END DO
+  END DO
+
+END SUBROUTINE fine2coarse
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE grille_m(xdata, ydata, entree, x, y, sortie)
+!
+!-------------------------------------------------------------------------------
+! Author:  Z.X. Li (april 1st 1994) (see also A. Harzallah and L. Fairhead)
+!-------------------------------------------------------------------------------
+! Purpose: Naive method to regrid on a coarser grid.
+!   Value at a new point is an average of the old points lcoated in a zone
+!   surrounding the considered new point.
+!   No ponderation is used (see grille_p)
+!
+!           (c)
+!        ----d-----
+!        | . . . .|
+!        |        |
+!     (b)a . * . .b(a)
+!        |        |
+!        | . . . .|
+!        ----c-----
+!           (d)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: xdata(:), ydata(:)       !--- INPUT  FIELD X AND Y COORD.
+  REAL, INTENT(IN)  :: entree(SIZE(xdata),SIZE(ydata)) !--- INPUT  FIELD
+  REAL, INTENT(IN)  :: x(:), y(:)               !--- OUTPUT FIELD X AND Y COORD.
+  REAL, INTENT(OUT) :: sortie(SIZE(x),SIZE(y))  !--- OUTPUT FIELD 
+!-------------------------------------------------------------------------------
+  CALL fine2coarse(xdata,ydata,x,y,sortie,entree)
+
+END SUBROUTINE grille_m
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE rugosite(xdata, ydata, entree, x, y, sortie, mask)
+!
+!-------------------------------------------------------------------------------
+! Author:  Z.X. Li (april 1st 1994)
+!-------------------------------------------------------------------------------
+! Purpose: Remap rugosity length ; constant value (0.001) on oceans.
+! Naive method  (see grille_m)
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: xdata(:), ydata(:)      !--- INPUT  FIELD X AND Y COORD.
+  REAL, INTENT(IN)  :: entree(SIZE(xdata),SIZE(ydata)) !--- INPUT  FIELD
+  REAL, INTENT(IN)  :: x(:), y(:)              !--- OUTPUT FIELD X AND Y COORD.
+  REAL, INTENT(OUT) :: sortie(SIZE(x),SIZE(y)) !--- OUTPUT FIELD 
+  REAL, INTENT(IN)  :: mask  (SIZE(x),SIZE(y)) !--- MASK
+!-------------------------------------------------------------------------------
+  CALL fine2coarse(xdata,ydata,x,y,sortie,LOG(entree))
+  WHERE(NINT(mask)==1)
+    sortie(:,:)=EXP(sortie(:,:))
+  ELSE WHERE
+    sortie(:,:)=0.001
+  END WHERE
+
+END SUBROUTINE rugosite
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE sea_ice(xdata, ydata, glace01, x, y, frac_ice)
+!
+!-------------------------------------------------------------------------------
+! Author:  Z.X. Li (april 1st 1994)
+! Purpose: Regrid ice indicator (0 or 1) on a coarser grid to get an ice fract.
+! field (between 0 and 1).
+! Naive method  (see grille_m)
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: xdata(:), ydata(:)      !--- INPUT  FIELD X AND Y COORD.
+  REAL, INTENT(IN)  :: glace01(:,:)            !--- INPUT  FIELD
+  REAL, INTENT(IN)  :: x(:), y(:)              !--- OUTPUT FIELD X AND Y COORD.
+  REAL, INTENT(OUT) :: frac_ice(SIZE(x),SIZE(y)) !--- OUTPUT FIELD 
+!-------------------------------------------------------------------------------
+  CALL fine2coarse(xdata,ydata,x,y,frac_ice,msk=NINT(glace01)==1)
+
+END SUBROUTINE sea_ice
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE rugsoro(xrel, yrel, relief, xmod, ymod, rugs)
+!
+!-------------------------------------------------------------------------------
+! Author:  Z.X. Li (april 1st 1994) ; Modifications: august 23rd 1995.
+! Purpose: Compute rugosity due to orography by using standard dev in a 1x1 cell
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: xrel(:), yrel(:)        !--- INPUT  FIELD X AND Y COORD.
+  REAL, INTENT(IN)  :: relief(:,:)             !--- INPUT  FIELD
+  REAL, INTENT(IN)  :: xmod(:), ymod(:)        !--- OUTPUT FIELD X AND Y COORD.
+  REAL, INTENT(OUT) :: rugs(SIZE(xmod),SIZE(ymod)) !--- OUTPUT FIELD 
+!-------------------------------------------------------------------------------
+! Local variable:
+  INTEGER           :: k, nn
+  INTEGER, PARAMETER:: itmp=360, jtmp=180
+  REAL  :: out(SIZE(xmod),SIZE(xmod)), amin, amax
+  REAL  :: cham1tmp(itmp,jtmp), cham2tmp(itmp,jtmp), xtmp(itmp), ytmp(jtmp)
+!-------------------------------------------------------------------------------
+
+!--- TEST INPUT FILE FITS FOR ONE DEGREE RESOLUTION
+  xtmp(:)=4.0*ATAN(1.0)*[(-1.0+REAL(2*k-1)/REAL(itmp),k=1,itmp)]
+  ytmp(:)=2.0*ATAN(1.0)*[(-1.0+REAL(2*k-1)/REAL(jtmp),k=1,jtmp)]
+  CALL fine2coarse(xrel,yrel,xtmp,ytmp,cham1tmp,relief,d_o2=cham2tmp)
+  cham2tmp(:,:)=cham2tmp(:,:)-cham1tmp(:,:)**2
+  nn=COUNT(cham2tmp<=-7.5)
+  IF(nn/=0) THEN
+    PRINT*,'Problem for rugsoro ; std**2 < -7.5 for several points: ',nn
+    CALL ABORT_GCM("", "", 1)
+  END IF
+  nn=COUNT(cham2tmp<0)
+  IF(nn/=0) PRINT*,'Problem for rugsoro ; std**2 < 0. for several points: ',nn
+  WHERE(cham2tmp<0.0) cham2tmp=0.0
+  cham2tmp(:,:)=SQRT(cham2tmp(:,:))
+  amin=MINVAL(cham2tmp); amax=MAXVAL(cham2tmp)
+  PRINT*, 'Ecart-type 1x1:', amin, amax
+
+!--- COMPUTE RUGOSITY AT REQUIRED SCALE
+  WHERE(cham2tmp<0.001) cham2tmp=0.001
+  CALL fine2coarse(xtmp,ytmp,xmod,ymod,out,REAL(LOG(cham2tmp)))
+  out=EXP(out)
+  amin=MINVAL(out); amax=MAXVAL(out)
+  PRINT*, 'Ecart-type du modele:', amin, amax
+  out=out/amax*20.0
+  amin=MINVAL(out); amax=MAXVAL(out)
+  PRINT*, 'Longueur de rugosite du modele:', amin, amax
+  rugs=REAL(out)
+
+END SUBROUTINE rugsoro
+!
+!-------------------------------------------------------------------------------
+
+END MODULE grid_atob_m
+!
+!*******************************************************************************
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/inigeomphy_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/inigeomphy_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/inigeomphy_mod.F90	(revision 3330)
@@ -0,0 +1,224 @@
+!
+! $Id: $
+!
+MODULE inigeomphy_mod
+
+CONTAINS
+
+SUBROUTINE inigeomphy(iim,jjm,nlayer, &
+                     nbp, communicator, &
+                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv)
+  USE mod_grid_phy_lmdz, ONLY: klon_glo,  & ! number of atmospheric columns (on full grid)
+                               regular_lonlat, &  ! regular longitude-latitude grid type
+                               nbp_lon, nbp_lat, nbp_lev
+  USE mod_phys_lmdz_para, ONLY: klon_omp, & ! number of columns (on local omp grid)
+                                klon_omp_begin, & ! start index of local omp subgrid
+                                klon_omp_end, & ! end index of local omp subgrid
+                                klon_mpi_begin ! start indes of columns (on local mpi grid)
+  USE geometry_mod, ONLY : init_geometry
+  USE physics_distribution_mod, ONLY : init_physics_distribution
+  USE regular_lonlat_mod, ONLY : init_regular_lonlat, &
+                                 east, west, north, south, &
+                                 north_east, north_west, &
+                                 south_west, south_east
+  USE mod_interface_dyn_phys, ONLY :  init_interface_dyn_phys
+  USE nrtype, ONLY: pi
+  IMPLICIT NONE
+
+  ! =======================================================================
+  ! Initialisation of the physical constants and some positional and
+  ! geometrical arrays for the physics
+  ! =======================================================================
+
+  include "iniprint.h"
+
+  INTEGER, INTENT (IN) :: nlayer ! number of atmospheric layers
+  INTEGER, INTENT (IN) :: iim ! number of atmospheric columns along longitudes
+  INTEGER, INTENT (IN) :: jjm ! number of atompsheric columns along latitudes
+  INTEGER, INTENT(IN) :: nbp ! number of physics columns for this MPI process
+  INTEGER, INTENT(IN) :: communicator ! MPI communicator
+  REAL, INTENT (IN) :: rlatu(jjm+1) ! latitudes of the physics grid
+  REAL, INTENT (IN) :: rlatv(jjm) ! latitude boundaries of the physics grid
+  REAL, INTENT (IN) :: rlonv(iim+1) ! longitudes of the physics grid
+  REAL, INTENT (IN) :: rlonu(iim+1) ! longitude boundaries of the physics grid
+  REAL, INTENT (IN) :: aire(iim+1,jjm+1) ! area of the dynamics grid (m2)
+  REAL, INTENT (IN) :: cu((iim+1)*(jjm+1)) ! cu coeff. (u_covariant = cu * u)
+  REAL, INTENT (IN) :: cv((iim+1)*jjm) ! cv coeff. (v_covariant = cv * v)
+
+  INTEGER :: ibegin, iend, offset
+  INTEGER :: i,j,k
+  CHARACTER (LEN=20) :: modname = 'inigeomphy'
+  CHARACTER (LEN=80) :: abort_message
+  REAL :: total_area_phy, total_area_dyn
+
+  ! boundaries, on global grid
+  REAL,ALLOCATABLE :: boundslon_reg(:,:)
+  REAL,ALLOCATABLE :: boundslat_reg(:,:)
+
+  ! global array, on full physics grid:
+  REAL,ALLOCATABLE :: latfi_glo(:)
+  REAL,ALLOCATABLE :: lonfi_glo(:)
+  REAL,ALLOCATABLE :: cufi_glo(:)
+  REAL,ALLOCATABLE :: cvfi_glo(:)
+  REAL,ALLOCATABLE :: airefi_glo(:)
+  REAL,ALLOCATABLE :: boundslonfi_glo(:,:)
+  REAL,ALLOCATABLE :: boundslatfi_glo(:,:)
+
+  ! local arrays, on given MPI/OpenMP domain:
+  REAL,ALLOCATABLE,SAVE :: latfi(:)
+  REAL,ALLOCATABLE,SAVE :: lonfi(:)
+  REAL,ALLOCATABLE,SAVE :: cufi(:)
+  REAL,ALLOCATABLE,SAVE :: cvfi(:)
+  REAL,ALLOCATABLE,SAVE :: airefi(:)
+  REAL,ALLOCATABLE,SAVE :: boundslonfi(:,:)
+  REAL,ALLOCATABLE,SAVE :: boundslatfi(:,:)
+!$OMP THREADPRIVATE (latfi,lonfi,cufi,cvfi,airefi,boundslonfi,boundslatfi)
+
+  ! Initialize Physics distibution and parameters and interface with dynamics
+  IF (iim*jjm>1) THEN ! general 3D case
+    CALL init_physics_distribution(regular_lonlat,4, &
+                                 nbp,iim,jjm+1,nlayer,communicator)
+  ELSE ! For 1D model
+    CALL init_physics_distribution(regular_lonlat,4, &
+                                 1,1,1,nlayer,communicator)
+  ENDIF
+  CALL init_interface_dyn_phys
+  
+  ! init regular global longitude-latitude grid points and boundaries
+  ALLOCATE(boundslon_reg(iim,2))
+  ALLOCATE(boundslat_reg(jjm+1,2))
+  
+  DO i=1,iim
+   boundslon_reg(i,east)=rlonu(i) 
+   boundslon_reg(i,west)=rlonu(i+1) 
+  ENDDO
+
+  boundslat_reg(1,north)= PI/2 
+  boundslat_reg(1,south)= rlatv(1)
+  DO j=2,jjm
+   boundslat_reg(j,north)=rlatv(j-1) 
+   boundslat_reg(j,south)=rlatv(j) 
+  ENDDO
+  boundslat_reg(jjm+1,north)= rlatv(jjm) 
+  boundslat_reg(jjm+1,south)= -PI/2
+
+  ! Write values in module regular_lonlat_mod
+  CALL init_regular_lonlat(iim,jjm+1, rlonv(1:iim), rlatu, &
+                           boundslon_reg, boundslat_reg)
+
+  ! Generate global arrays on full physics grid
+  ALLOCATE(latfi_glo(klon_glo),lonfi_glo(klon_glo))
+  ALLOCATE(cufi_glo(klon_glo),cvfi_glo(klon_glo))
+  ALLOCATE(airefi_glo(klon_glo))
+  ALLOCATE(boundslonfi_glo(klon_glo,4))
+  ALLOCATE(boundslatfi_glo(klon_glo,4))
+
+  IF (klon_glo>1) THEN ! general case
+    ! North pole
+    latfi_glo(1)=rlatu(1)
+    lonfi_glo(1)=0.
+    cufi_glo(1) = cu(1)
+    cvfi_glo(1) = cv(1)
+    boundslonfi_glo(1,north_east)=0
+    boundslatfi_glo(1,north_east)=PI/2
+    boundslonfi_glo(1,north_west)=2*PI
+    boundslatfi_glo(1,north_west)=PI/2
+    boundslonfi_glo(1,south_west)=2*PI
+    boundslatfi_glo(1,south_west)=rlatv(1)
+    boundslonfi_glo(1,south_east)=0
+    boundslatfi_glo(1,south_east)=rlatv(1)
+    DO j=2,jjm
+      DO i=1,iim
+        k=(j-2)*iim+1+i
+        latfi_glo(k)= rlatu(j)
+        lonfi_glo(k)= rlonv(i)
+        cufi_glo(k) = cu((j-1)*(iim+1)+i)
+        cvfi_glo(k) = cv((j-1)*(iim+1)+i)
+        boundslonfi_glo(k,north_east)=rlonu(i)
+        boundslatfi_glo(k,north_east)=rlatv(j-1)
+        boundslonfi_glo(k,north_west)=rlonu(i+1)
+        boundslatfi_glo(k,north_west)=rlatv(j-1)
+        boundslonfi_glo(k,south_west)=rlonu(i+1)
+        boundslatfi_glo(k,south_west)=rlatv(j)
+        boundslonfi_glo(k,south_east)=rlonu(i)
+        boundslatfi_glo(k,south_east)=rlatv(j)
+      ENDDO
+    ENDDO
+    ! South pole
+    latfi_glo(klon_glo)= rlatu(jjm+1)
+    lonfi_glo(klon_glo)= 0.
+    cufi_glo(klon_glo) = cu((iim+1)*jjm+1)
+    cvfi_glo(klon_glo) = cv((iim+1)*jjm-iim)
+    boundslonfi_glo(klon_glo,north_east)= 0
+    boundslatfi_glo(klon_glo,north_east)= rlatv(jjm)
+    boundslonfi_glo(klon_glo,north_west)= 2*PI
+    boundslatfi_glo(klon_glo,north_west)= rlatv(jjm)
+    boundslonfi_glo(klon_glo,south_west)= 2*PI
+    boundslatfi_glo(klon_glo,south_west)= -PI/2
+    boundslonfi_glo(klon_glo,south_east)= 0
+    boundslatfi_glo(klon_glo,south_east)= -Pi/2
+
+    ! build airefi(), mesh area on physics grid
+    CALL gr_dyn_fi(1,iim+1,jjm+1,klon_glo,aire,airefi_glo)
+    ! Poles are single points on physics grid
+    airefi_glo(1)=sum(aire(1:iim,1))
+    airefi_glo(klon_glo)=sum(aire(1:iim,jjm+1))
+
+    ! Sanity check: do total planet area match between physics and dynamics?
+    total_area_dyn=sum(aire(1:iim,1:jjm+1))
+    total_area_phy=sum(airefi_glo(1:klon_glo))
+    IF (total_area_dyn/=total_area_phy) THEN
+      WRITE (lunout, *) 'inigeomphy: planet total surface discrepancy !!!'
+      WRITE (lunout, *) '     in the dynamics total_area_dyn=', total_area_dyn
+      WRITE (lunout, *) '  but in the physics total_area_phy=', total_area_phy
+      IF (abs(total_area_dyn-total_area_phy)>0.00001*total_area_dyn) THEN
+        ! stop here if the relative difference is more than 0.001%
+        abort_message = 'planet total surface discrepancy'
+        CALL abort_gcm(modname, abort_message, 1)
+      ENDIF
+    ENDIF
+  ELSE ! klon_glo==1, running the 1D model
+    ! just copy over input values
+    latfi_glo(1)=rlatu(1)
+    lonfi_glo(1)=rlonv(1)
+    cufi_glo(1)=cu(1)
+    cvfi_glo(1)=cv(1)
+    airefi_glo(1)=aire(1,1)
+    boundslonfi_glo(1,north_east)=rlonu(1)
+    boundslatfi_glo(1,north_east)=PI/2
+    boundslonfi_glo(1,north_west)=rlonu(2)
+    boundslatfi_glo(1,north_west)=PI/2
+    boundslonfi_glo(1,south_west)=rlonu(2)
+    boundslatfi_glo(1,south_west)=rlatv(1)
+    boundslonfi_glo(1,south_east)=rlonu(1)
+    boundslatfi_glo(1,south_east)=rlatv(1)
+  ENDIF ! of IF (klon_glo>1)
+
+!$OMP PARALLEL 
+  ! Now generate local lon/lat/cu/cv/area/bounds arrays
+  ALLOCATE(latfi(klon_omp),lonfi(klon_omp),cufi(klon_omp),cvfi(klon_omp))
+  ALLOCATE(airefi(klon_omp))
+  ALLOCATE(boundslonfi(klon_omp,4))
+  ALLOCATE(boundslatfi(klon_omp,4))
+
+
+  offset = klon_mpi_begin - 1
+  airefi(1:klon_omp) = airefi_glo(offset+klon_omp_begin:offset+klon_omp_end)
+  cufi(1:klon_omp) = cufi_glo(offset+klon_omp_begin:offset+klon_omp_end)
+  cvfi(1:klon_omp) = cvfi_glo(offset+klon_omp_begin:offset+klon_omp_end)
+  lonfi(1:klon_omp) = lonfi_glo(offset+klon_omp_begin:offset+klon_omp_end)
+  latfi(1:klon_omp) = latfi_glo(offset+klon_omp_begin:offset+klon_omp_end)
+  boundslonfi(1:klon_omp,:) = boundslonfi_glo(offset+klon_omp_begin:offset+klon_omp_end,:)
+  boundslatfi(1:klon_omp,:) = boundslatfi_glo(offset+klon_omp_begin:offset+klon_omp_end,:)
+
+  ! copy over local grid longitudes and latitudes
+  CALL init_geometry(klon_omp,lonfi,latfi,boundslonfi,boundslatfi, &
+                     airefi,cufi,cvfi)
+
+!$OMP END PARALLEL
+
+
+END SUBROUTINE inigeomphy
+
+END MODULE inigeomphy_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/mod_interface_dyn_phys.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/mod_interface_dyn_phys.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/mod_interface_dyn_phys.F90	(revision 3330)
@@ -0,0 +1,62 @@
+! 
+! $Id$
+!
+MODULE mod_interface_dyn_phys
+  INTEGER,SAVE,dimension(:),allocatable :: index_i
+  INTEGER,SAVE,dimension(:),allocatable :: index_j
+  
+  
+CONTAINS
+  
+#ifdef CPP_PARA
+! Interface with parallel physics,
+  SUBROUTINE Init_interface_dyn_phys
+    USE mod_phys_lmdz_mpi_data
+    IMPLICIT NONE
+    include 'dimensions.h'    
+    
+    INTEGER :: i,j,k
+    
+    ALLOCATE(index_i(klon_mpi))
+    ALLOCATE(index_j(klon_mpi))
+    
+    k=1
+    IF (is_north_pole_dyn) THEN
+      index_i(k)=1
+      index_j(k)=1
+      k=2
+    ELSE
+      DO i=ii_begin,iim
+        index_i(k)=i
+        index_j(k)=jj_begin
+        k=k+1
+      ENDDO
+    ENDIF
+    
+    DO j=jj_begin+1,jj_end-1
+      DO i=1,iim
+        index_i(k)=i
+        index_j(k)=j
+        k=k+1
+      ENDDO
+    ENDDO
+    
+    IF (is_south_pole_dyn) THEN
+      index_i(k)=1
+      index_j(k)=jj_end
+    ELSE
+      DO i=1,ii_end
+        index_i(k)=i
+        index_j(k)=jj_end
+        k=k+1
+       ENDDO
+    ENDIF
+  
+  END SUBROUTINE Init_interface_dyn_phys 
+#else
+  SUBROUTINE Init_interface_dyn_phys
+  ! dummy routine for seq case
+  END SUBROUTINE Init_interface_dyn_phys 
+#endif
+! of #ifdef CPP_PARA
+END MODULE mod_interface_dyn_phys
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phydev/callphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phydev/callphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phydev/callphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,79 @@
+!
+! $Id: $
+!
+MODULE callphysiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
+SUBROUTINE call_physiq(klon,llm,nqtot,tname,                              &
+                       debut_split,lafin_split,                           &
+                       jD_cur,jH_cur_split,zdt_split,                     &
+                       zplev_omp,zplay_omp,                               &
+                       zphi_omp,zphis_omp,                                &
+                       presnivs_omp,                                      &
+                       zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
+                       flxwfi_omp,pducov,                                 &
+                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
+
+
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+  USE physiq_mod, ONLY: physiq
+  IMPLICIT NONE
+
+  INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns
+  INTEGER,INTENT(IN) :: llm  ! number of atmospheric layers
+  INTEGER,INTENT(IN) :: nqtot ! number of tracers
+  CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names
+  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics
+  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics
+  REAL,INTENT(IN) :: JD_cur ! Julian day
+  REAL,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
+  REAL,INTENT(IN) :: zdt_split ! time step over which the physics are evaluated
+  REAL,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa)
+  REAL,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa)
+  REAL,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer
+  REAL,INTENT(IN) :: zphis_omp(klon) ! surface geopotential
+  REAL,INTENT(IN) :: presnivs_omp(llm) ! approximate pressure of atm. layers
+  REAL,INTENT(IN) :: zufi_omp(klon,llm) ! zonal wind (m/s)
+  REAL,INTENT(IN) :: zvfi_omp(klon,llm) ! meridional wind (m/s)
+  REAL,INTENT(IN) :: zrfi_omp(klon,llm) ! relative wind vorticity, in s-1
+  REAL,INTENT(IN) :: ztfi_omp(klon,llm) ! temperature (K)
+  REAL,INTENT(IN) :: zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air)
+  REAL,INTENT(IN) :: flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) 
+  REAL,INTENT(IN) :: pducov(nbp_lon+1,nbp_lat,llm) ! dynamical tendency on ucov
+  ! tendencies (in */s) from the physics:
+  REAL,INTENT(OUT) :: zdufi_omp(klon,llm) ! tendency on zonal winds
+  REAL,INTENT(OUT) :: zdvfi_omp(klon,llm) ! tendency on meridional winds
+  REAL,INTENT(OUT) :: zdtfi_omp(klon,llm) ! tendency on temperature
+  REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
+  REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
+  
+
+! Call physics package with required inputs/outputs
+  CALL physiq(klon,           &
+              llm,            &
+              debut_split,    &
+              lafin_split,    &
+              zdt_split,      &
+              zplev_omp,      &
+              zplay_omp,      &
+              zphi_omp,       &
+              zphis_omp,      &
+              presnivs_omp,   &
+              zufi_omp,       &
+              zvfi_omp,       &
+              ztfi_omp,       &
+              zqfi_omp,       &
+              flxwfi_omp,     &
+              zdufi_omp,      &
+              zdvfi_omp,      &
+              zdtfi_omp,      &
+              zdqfi_omp,      &
+              zdpsrf_omp)
+
+
+END SUBROUTINE call_physiq
+
+END MODULE callphysiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phydev/iniphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phydev/iniphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phydev/iniphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,87 @@
+!
+! $Id: iniphysiq.F 1403 2010-07-01 09:02:53Z fairhead $
+!
+MODULE iniphysiq_mod
+
+CONTAINS
+
+SUBROUTINE iniphysiq(iim,jjm,nlayer, &
+                     nbp, communicator, &
+                     punjours, pdayref,ptimestep, &
+                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv, &
+                     prad,pg,pr,pcpp,iflag_phys)
+  USE dimphy, ONLY: init_dimphy
+  USE inigeomphy_mod, ONLY: inigeomphy
+  USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
+  USE infotrac, ONLY: nqtot, type_trac
+  USE infotrac_phy, ONLY: init_infotrac_phy
+  USE inifis_mod, ONLY: inifis
+  USE phyaqua_mod, ONLY: iniaqua
+  USE nrtype, ONLY: pi
+  IMPLICIT NONE
+  !
+  !=======================================================================
+  !   Initialisation of the physical constants and some positional and 
+  !   geometrical arrays for the physics
+  !=======================================================================
+ 
+ 
+  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) :: nlayer ! number of atmospheric layers
+  INTEGER, INTENT (IN) :: iim ! number of atmospheric coulumns along longitudes
+  INTEGER, INTENT (IN) :: jjm  ! number of atompsheric columns along latitudes
+  INTEGER, INTENT(IN) :: nbp ! number of physics columns for this MPI process
+  INTEGER, INTENT(IN) :: communicator ! MPI communicator
+  REAL, INTENT (IN) :: rlatu(jjm+1) ! latitudes of the physics grid
+  REAL, INTENT (IN) :: rlatv(jjm) ! latitude boundaries of the physics grid
+  REAL, INTENT (IN) :: rlonv(iim+1) ! longitudes of the physics grid
+  REAL, INTENT (IN) :: rlonu(iim+1) ! longitude boundaries of the physics grid
+  REAL, INTENT (IN) :: aire(iim+1,jjm+1) ! area of the dynamics grid (m2)
+  REAL, INTENT (IN) :: cu((iim+1)*(jjm+1)) ! cu coeff. (u_covariant = cu * u)
+  REAL, INTENT (IN) :: cv((iim+1)*jjm) ! 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
+  INTEGER :: i,j,k
+  CHARACTER (LEN=20) :: modname='iniphysiq'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  ! --> initialize physics distribution, global fields and geometry
+  ! (i.e. things in phy_common or dynphy_lonlat)
+  CALL inigeomphy(iim,jjm,nlayer, &
+               nbp, communicator, &
+               rlatu,rlatv, &
+               rlonu,rlonv, &
+               aire,cu,cv)
+
+  ! --> now initialize things specific to the phydev physics package
+
+!$OMP PARALLEL 
+
+  ! Initialize physical constants in physics:
+  CALL inifis(prad,pg,pr,pcpp)
+  
+  ! Initialize dimphy module
+  CALL Init_dimphy(klon_omp,nlayer)
+
+  ! Initialize tracer names, numbers, etc. for physics
+  CALL init_infotrac_phy(nqtot,type_trac)
+
+  ! Additional initializations for aquaplanets 
+  IF (iflag_phys>=100) THEN
+    CALL iniaqua(klon_omp,iflag_phys)
+  ENDIF
+!$OMP END PARALLEL
+
+END SUBROUTINE iniphysiq
+
+END MODULE iniphysiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/callphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,95 @@
+!
+! $Id: $
+!
+MODULE callphysiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
+SUBROUTINE call_physiq(klon,llm,nqtot,tname,                              &
+                       debut_split,lafin_split,                           &
+                       jD_cur,jH_cur_split,zdt_split,                     &
+                       zplev_omp,zplay_omp,                               &
+                       zpk_omp,zphi_omp,zphis_omp,                        &
+                       presnivs_omp,                                      &
+                       zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
+                       flxwfi_omp,pducov,                                 &
+                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
+
+
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+  USE control_mod, ONLY: planet_type
+  USE physiq_mod, ONLY: physiq
+  IMPLICIT NONE
+
+  INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns
+  INTEGER,INTENT(IN) :: llm  ! number of atmospheric layers
+  INTEGER,INTENT(IN) :: nqtot ! number of tracers
+  CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names
+  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics
+  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics
+  REAL,INTENT(IN) :: JD_cur ! Julian day
+  REAL,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
+  REAL,INTENT(IN) :: zdt_split ! time step over which the physics are evaluated
+  REAL,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa)
+  REAL,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa)
+  REAL,INTENT(IN) :: zpk_omp(klon,llm) ! Exner function
+  REAL,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer
+  REAL,INTENT(IN) :: zphis_omp(klon) ! surface geopotential
+  REAL,INTENT(IN) :: presnivs_omp(llm) ! approximate pressure of atm. layers
+  REAL,INTENT(IN) :: zufi_omp(klon,llm) ! zonal wind (m/s)
+  REAL,INTENT(IN) :: zvfi_omp(klon,llm) ! meridional wind (m/s)
+  REAL,INTENT(IN) :: zrfi_omp(klon,llm) ! relative wind vorticity, in s-1
+  REAL,INTENT(IN) :: ztfi_omp(klon,llm) ! temperature (K)
+  REAL,INTENT(IN) :: zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air)
+  REAL,INTENT(IN) :: flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) 
+  REAL,INTENT(IN) :: pducov(nbp_lon+1,nbp_lat,llm) ! dynamical tendency on ucov
+  ! tendencies (in */s) from the physics:
+  REAL,INTENT(OUT) :: zdufi_omp(klon,llm) ! tendency on zonal winds
+  REAL,INTENT(OUT) :: zdvfi_omp(klon,llm) ! tendency on meridional winds
+  REAL,INTENT(OUT) :: zdtfi_omp(klon,llm) ! tendency on temperature
+  REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
+  REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
+  
+  ! Local variables
+  CHARACTER(len=11) :: modname="call_physiq"
+  LOGICAL,SAVE :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall)
+
+! Sanity check on physics package type
+  IF (firstcall) THEN
+    IF (planet_type.ne."earth") THEN
+      CALL abort_gcm(modname,"wrong planet_type for this physics package",1)
+    ENDIF
+    firstcall=.false.
+  ENDIF
+
+
+! Call physics package with required inputs/outputs
+  CALL physiq(klon,           &
+              llm,            &
+              debut_split,    &
+              lafin_split,    &
+              zdt_split,      &
+              zplev_omp,      &
+              zplay_omp,      &
+              zphi_omp,       &
+              zphis_omp,      &
+              presnivs_omp,   &
+              zufi_omp,       &
+              zvfi_omp,       &
+              zrfi_omp,       &
+              ztfi_omp,       &
+              zqfi_omp,       &
+              flxwfi_omp,     &
+              zdufi_omp,      &
+              zdvfi_omp,      &
+              zdtfi_omp,      &
+              zdqfi_omp,      &
+              zdpsrf_omp)
+
+
+END SUBROUTINE call_physiq
+
+END MODULE callphysiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/ce0l.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/ce0l.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/ce0l.F90	(revision 3330)
@@ -0,0 +1,215 @@
+PROGRAM ce0l
+!
+!-------------------------------------------------------------------------------
+! Purpose: Initial states and boundary conditions files creation:
+!     * start.nc    for dynamics    (using etat0dyn     routine)
+!     * startphy.nc for physics     (using etat0phys    routine)
+!     * limit.nc    for forced runs (using limit_netcdf routine)
+!-------------------------------------------------------------------------------
+! Notes:
+!     * extrap=.T. (default) for data extrapolation, like for the SSTs when file
+!                   does contain ocean points only.
+!     * "masque" can be:
+!       - read from file "o2a.nc"          (for coupled runs).
+!       - created in etat0phys or etat0dyn (for forced  runs).
+!     It is then passed to limit_netcdf to ensure consistancy.
+!-------------------------------------------------------------------------------
+  USE ioipsl, ONLY: ioconf_calendar, getin, flininfo, flinopen, flinget, flinclo
+  USE control_mod,    ONLY: day_step, dayref, nsplit_phys
+  USE etat0dyn,       ONLY: etat0dyn_netcdf
+  USE etat0phys,      ONLY: etat0phys_netcdf
+  USE limit,          ONLY: limit_netcdf
+  USE netcdf,         ONLY: NF90_OPEN, NF90_NOWRITE, NF90_CLOSE, NF90_NOERR
+  USE infotrac,       ONLY: type_trac, infotrac_init
+  USE dimphy,         ONLY: klon
+  USE test_disvert_m, ONLY: test_disvert
+  USE filtreg_mod,    ONLY: inifilr
+  USE iniphysiq_mod,  ONLY: iniphysiq
+  USE mod_const_mpi,  ONLY: comm_lmdz
+#ifdef CPP_PARA
+  USE mod_const_mpi,  ONLY: init_const_mpi
+  USE parallel_lmdz,  ONLY: init_parallel, mpi_rank, omp_rank
+  USE bands,          ONLY: read_distrib, distrib_phys
+  USE mod_hallo,      ONLY: init_mod_hallo
+  USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
+#endif
+  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, kappa, omeg, r, rad, &
+                          pi, jmp1
+  USE logic_mod, ONLY: iflag_phys, ok_etat0, ok_limit
+  USE comvert_mod, ONLY: pa, preff, pressure_exner
+  USE temps_mod, ONLY: calend, day_ini, dt
+
+  IMPLICIT NONE
+
+!-------------------------------------------------------------------------------
+! Local variables:
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+  include "iniprint.h"
+  REAL               :: masque(iip1,jjp1)             !--- CONTINENTAL MASK
+  REAL               :: phis  (iip1,jjp1)             !--- GROUND GEOPOTENTIAL
+  CHARACTER(LEN=256) :: modname, fmt, calnd           !--- CALENDAR TYPE
+  LOGICAL            :: use_filtre_fft
+  LOGICAL, PARAMETER :: extrap=.FALSE.
+
+!--- Local variables for ocean mask reading:
+  INTEGER            :: nid_o2a, iml_omask, jml_omask, j
+  INTEGER            :: fid, iret, llm_tmp, ttm_tmp, itaul(1)
+  REAL, ALLOCATABLE  :: lon_omask(:,:), dlon_omask(:), ocemask(:,:)
+  REAL, ALLOCATABLE  :: lat_omask(:,:), dlat_omask(:), ocetmp (:,:)
+  REAL               :: date, lev(1)
+#ifndef CPP_PARA
+! for iniphysiq in serial mode
+  INTEGER,PARAMETER :: mpi_rank=0
+  INTEGER :: distrib_phys(mpi_rank:mpi_rank)=(jjm-1)*iim+2
+#endif
+!-------------------------------------------------------------------------------
+  modname="ce0l"
+
+!--- Constants
+  pi     = 4. * ATAN(1.)
+  rad    = 6371229.
+  daysec = 86400.
+  omeg   = 2.*pi/daysec
+  g      = 9.8
+  kappa  = 0.2857143
+  cpp    = 1004.70885
+  jmp1   = jjm + 1
+  preff   = 101325.
+  pa      = 50000.
+
+  CALL conf_gcm( 99, .TRUE. )
+  dtvr = daysec/REAL(day_step)
+  WRITE(lunout,*)'dtvr',dtvr
+  CALL iniconst()
+  CALL inigeom()
+
+!--- Calendar choice
+#ifdef CPP_IOIPSL
+  calnd='gregorian'
+  SELECT CASE(calend)
+    CASE('earth_360d');CALL ioconf_calendar('360d');   calnd='with 360 days/year'
+    CASE('earth_365d');CALL ioconf_calendar('noleap'); calnd='with no leap year'
+    CASE('earth_366d');CALL ioconf_calendar('366d');   calnd='with leap years only'
+    CASE('gregorian'); CALL ioconf_calendar('gregorian')
+    CASE('standard');  CALL ioconf_calendar('gregorian')
+    CASE('julian');    CALL ioconf_calendar('julian'); calnd='julian'
+    CASE('proleptic_gregorian'); CALL ioconf_calendar('gregorian')
+  !--- DC Bof...  => IOIPSL a mettre a jour: proleptic_gregorian /= gregorian
+    CASE DEFAULT
+      CALL abort_gcm('ce0l','Bad choice for calendar',1)
+  END SELECT
+  WRITE(lunout,*)'CHOSEN CALENDAR: Earth '//TRIM(calnd)
+#endif
+
+#ifdef CPP_PARA
+!--- Physical grid + parallel initializations
+  CALL init_const_mpi()
+  CALL init_parallel()
+  CALL read_distrib()
+  CALL init_mod_hallo()
+#endif
+  WRITE(lunout,*)'---> klon=',klon
+
+!--- Tracers initializations
+  CALL infotrac_init()
+
+  CALL inifilr()
+  CALL iniphysiq(iim,jjm,llm, &
+                 distrib_phys(mpi_rank),comm_lmdz, &
+                 daysec,day_ini,dtphys/nsplit_phys, &
+                 rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
+  IF(pressure_exner) CALL test_disvert
+
+#ifdef CPP_PARA
+  IF (mpi_rank==0.AND.omp_rank==0) THEN
+#endif
+  use_filtre_fft=.FALSE.
+  CALL getin('use_filtre_fft',use_filtre_fft)
+  IF(use_filtre_fft) THEN
+     WRITE(lunout,*)"FFT filter not available for sequential dynamics."
+     WRITE(lunout,*)"Your setting of variable use_filtre_fft is not used."
+  ENDIF
+
+!--- LAND MASK. TWO CASES:
+!   1) read from ocean model    file "o2a.nc"    (coupled runs)
+!   2) computed from topography file "Relief.nc" (masque(:,:)=-99999.)
+! Coupled simulations (case 1) use the ocean model mask to compute the
+! weights to ensure ocean fractions are the same for atmosphere and ocean.
+!*******************************************************************************
+  IF(NF90_OPEN("o2a.nc", NF90_NOWRITE, nid_o2a)/=NF90_NOERR) THEN
+    WRITE(lunout,*)'BEWARE !! No ocean mask "o2a.nc" file found'
+    WRITE(lunout,*)'Forced run.'
+    masque(:,:)=-99999.
+  ELSE
+    iret=NF90_CLOSE(nid_o2a)
+    WRITE(lunout,*)'BEWARE !! Ocean mask "o2a.nc" file found'
+    WRITE(lunout,*)'Coupled run.'
+    CALL flininfo("o2a.nc", iml_omask, jml_omask, llm_tmp, ttm_tmp, nid_o2a)
+    IF(iml_omask/=iim .OR.jml_omask/=jjp1) THEN
+      WRITE(lunout,*)'Mismatching dimensions for ocean mask'
+      WRITE(lunout,*)'iim  = ',iim ,' iml_omask = ',iml_omask
+      WRITE(lunout,*)'jjp1 = ',jjp1,' jml_omask = ',jml_omask
+      CALL abort_gcm(modname,'',1)
+    END IF
+    ALLOCATE(ocemask(iim,jjp1),lon_omask(iim,jjp1),dlon_omask(iim ))
+    ALLOCATE(ocetmp (iim,jjp1),lat_omask(iim,jjp1),dlat_omask(jjp1))
+    CALL flinopen("o2a.nc", .FALSE.,iml_omask,jml_omask,llm_tmp,               &
+                  lon_omask,lat_omask,lev,ttm_tmp,itaul,date,dt,fid)
+    CALL flinget(fid, "OceMask",    iim,jjp1,llm_tmp,ttm_tmp,1,1,ocetmp)
+    CALL flinclo(fid)
+    dlon_omask(1:iim ) = lon_omask(1:iim,1)
+    dlat_omask(1:jjp1) = lat_omask(1,1:jjp1)
+    ocemask = ocetmp
+    IF(dlat_omask(1)<dlat_omask(jml_omask)) THEN
+      DO j=1,jjp1; ocemask(:,j) = ocetmp(:,jjp1-j+1); END DO
+    END IF
+    DEALLOCATE(ocetmp,lon_omask,lat_omask,dlon_omask,dlat_omask)
+    IF(prt_level>=1) THEN
+      WRITE(fmt,"(i4,'i1)')")iim ; fmt='('//ADJUSTL(fmt)
+      WRITE(lunout,*)'OCEAN MASK :'
+      WRITE(lunout,fmt) NINT(ocemask)
+    END IF
+    masque(1:iim,:)=1.-ocemask(:,:)
+    masque(iip1 ,:)=masque(1,:)
+    DEALLOCATE(ocemask)
+  END IF
+  phis(:,:)=-99999.
+
+  IF(ok_etat0) THEN
+    WRITE(lunout,'(//)')
+    WRITE(lunout,*) '  ************************  '
+    WRITE(lunout,*) '  ***  etat0phy_netcdf ***  '
+    WRITE(lunout,*) '  ************************  '
+    CALL etat0phys_netcdf(masque,phis)
+    WRITE(lunout,'(//)')
+    WRITE(lunout,*) '  ************************  '
+    WRITE(lunout,*) '  ***  etat0dyn_netcdf ***  '
+    WRITE(lunout,*) '  ************************  '
+    CALL etat0dyn_netcdf(masque,phis)
+  END IF
+
+  IF(ok_limit) THEN
+    WRITE(lunout,'(//)')
+    WRITE(lunout,*) '  *********************  '
+    WRITE(lunout,*) '  ***  Limit_netcdf ***  '
+    WRITE(lunout,*) '  *********************  '
+    WRITE(lunout,'(//)')
+    CALL limit_netcdf(masque,phis,extrap)
+  END IF
+
+  WRITE(lunout,'(//)')
+  WRITE(lunout,*) '  ***************************  '
+  WRITE(lunout,*) '  ***  grilles_gcm_netcdf ***  '
+  WRITE(lunout,*) '  ***************************  '
+  WRITE(lunout,'(//)')
+  CALL grilles_gcm_netcdf_sub(masque,phis)
+
+#ifdef CPP_PARA
+  END IF
+#endif
+
+END PROGRAM ce0l
+!
+!-------------------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90	(revision 3330)
@@ -0,0 +1,503 @@
+MODULE etat0dyn
+!
+!*******************************************************************************
+! Purpose: Create dynamical initial state using atmospheric fields from a
+!          database of atmospheric to initialize the model.
+!-------------------------------------------------------------------------------
+! Comments:
+!
+!    *  This module is designed to work for Earth (and with ioipsl)
+!
+!    *  etat0dyn_netcdf routine can access to NetCDF data through the following
+!  routine (to be called after restget):
+!    CALL startget_dyn3d(varname, lon_in,  lat_in, pls, workvar,&
+!                          champ, lon_in2, lat_in2)
+!
+!    *  Variables should have the following names in the NetCDF files:
+!            'U'      : East ward wind              (in "ECDYN.nc")
+!            'V'      : Northward wind              (in "ECDYN.nc")
+!            'TEMP'   : Temperature                 (in "ECDYN.nc")
+!            'R'      : Relative humidity           (in "ECDYN.nc")
+!            'RELIEF' : High resolution orography   (in "Relief.nc") 
+!
+!    * The land mask and corresponding weights can be:
+!      1) already known (in particular if etat0dyn has been called before) ;
+!         in this case, ANY(masque(:,:)/=-99999.) = .TRUE.
+!      2) computed using the ocean mask from the ocean model (to ensure ocean
+!         fractions are the same for atmosphere and ocean) for coupled runs.
+!         File name: "o2a.nc"  ;  variable name: "OceMask"
+!      3) computed from topography file "Relief.nc" for forced runs.
+!
+!   *   There is a big mess with the longitude size. Should it be iml or iml+1 ?
+!  I have chosen to use the iml+1 as an argument to this routine and we declare
+!  internaly smaller fields when needed. This needs to be cleared once and for
+!  all in LMDZ. A convention is required.
+!-------------------------------------------------------------------------------
+  USE ioipsl,         ONLY: flininfo, flinopen, flinget, flinclo, histclo
+  USE assert_eq_m,    ONLY: assert_eq
+  USE comconst_mod, ONLY: pi, cpp, kappa
+  USE comvert_mod, ONLY: ap, bp, preff, pressure_exner
+  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy
+  
+  IMPLICIT NONE
+
+  PRIVATE
+  PUBLIC :: etat0dyn_netcdf
+
+  include "iniprint.h"
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+  include "comdissnew.h"
+  REAL, SAVE :: deg2rad
+  INTEGER,            SAVE      :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn
+  REAL, ALLOCATABLE,  SAVE      :: lon_dyn(:,:), lat_dyn(:,:), levdyn_ini(:)
+  CHARACTER(LEN=120), PARAMETER :: dynfname='ECDYN.nc'
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE etat0dyn_netcdf(masque, phis)
+!
+!-------------------------------------------------------------------------------
+! Purpose: Create dynamical initial states.
+!-------------------------------------------------------------------------------
+! Notes:  1) This routine is designed to work for Earth
+!         2) If masque(:,:)/=-99999., masque and phis are already known.
+!         Otherwise: compute it.
+!-------------------------------------------------------------------------------
+  USE control_mod
+  USE regr_lat_time_coefoz_m, ONLY: regr_lat_time_coefoz
+  USE regr_pr_o3_m,   ONLY: regr_pr_o3
+  USE press_coefoz_m, ONLY: press_coefoz
+  USE exner_hyb_m,    ONLY: exner_hyb
+  USE exner_milieu_m, ONLY: exner_milieu
+  USE infotrac,       ONLY: nqtot, tname
+  USE filtreg_mod
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL,    INTENT(INOUT) :: masque(iip1,jjp1)   !--- Land-ocean mask
+  REAL,    INTENT(INOUT) :: phis  (iip1,jjp1)   !--- Ground geopotential
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname, fmt
+  INTEGER            :: i, j, l, ji, itau, iday
+  REAL               :: xpn, xps, time, phystep
+  REAL, DIMENSION(iip1,jjp1)       :: psol
+  REAL, DIMENSION(iip1,jjp1,llm+1) :: p3d
+  REAL, DIMENSION(iip1,jjp1,llm)   :: uvent, t3d, tpot, qsat, qd
+  REAL, DIMENSION(iip1,jjp1,llm)   :: pk, pls, y, masse
+  REAL, DIMENSION(iip1,jjm ,llm)   :: vvent
+  REAL, DIMENSION(ip1jm    ,llm)   :: pbarv
+  REAL, DIMENSION(ip1jmp1  ,llm)   :: pbaru, phi, w
+  REAL, DIMENSION(ip1jmp1)         :: pks
+  REAL, DIMENSION(iim)             :: xppn, xpps
+  REAL, ALLOCATABLE                :: q3d(:,:,:,:)
+!-------------------------------------------------------------------------------
+  modname='etat0dyn_netcdf'
+
+  deg2rad = pi/180.0
+
+! Compute psol AND tsol, knowing phis.
+!*******************************************************************************
+  CALL start_init_dyn(rlonv, rlatu, rlonu, rlatv, phis, psol)
+
+! Mid-levels pressure computation
+!*******************************************************************************
+  CALL pression(ip1jmp1, ap, bp, psol, p3d)             !--- Update p3d
+  IF(pressure_exner) THEN                               !--- Update pk, pks
+    CALL exner_hyb   (ip1jmp1,psol,p3d,pks,pk)
+  ELSE
+    CALL exner_milieu(ip1jmp1,psol,p3d,pks,pk)
+  END IF
+  pls(:,:,:)=preff*(pk(:,:,:)/cpp)**(1./kappa)          !--- Update pls
+
+! Update uvent, vvent, t3d and tpot
+!*******************************************************************************
+  uvent(:,:,:) = 0.0 ; vvent(:,:,:) = 0.0 ; t3d (:,:,:) = 0.0
+  CALL startget_dyn3d('u'   ,rlonu,rlatu,pls,y ,uvent,rlonv,rlatv)
+  CALL startget_dyn3d('v'   ,rlonv,rlatv,pls(:,:jjm,:),y(:,:jjm,:),vvent,      &
+ &                           rlonu,rlatu(:jjm))
+  CALL startget_dyn3d('t'   ,rlonv,rlatu,pls,y ,t3d ,rlonu,rlatv)
+  tpot(:,:,:)=t3d(:,:,:)
+  CALL startget_dyn3d('tpot',rlonv,rlatu,pls,pk,tpot,rlonu,rlatv)
+
+  WRITE(lunout,*) 'T3D min,max:',MINVAL(t3d(:,:,:)),MAXVAL(t3d(:,:,:))
+  WRITE(lunout,*) 'PLS min,max:',MINVAL(pls(:,:,:)),MAXVAL(pls(:,:,:))
+
+! Humidity at saturation computation
+!*******************************************************************************
+  WRITE(lunout,*) 'avant q_sat'
+  CALL q_sat(llm*jjp1*iip1, t3d, pls, qsat)
+  WRITE(lunout,*) 'apres q_sat'
+  WRITE(lunout,*) 'QSAT min,max:',MINVAL(qsat(:,:,:)),MAXVAL(qsat(:,:,:))
+!  WRITE(lunout,*) 'QSAT :',qsat(10,20,:)
+  qd (:,:,:) = 0.0
+  CALL startget_dyn3d('q',rlonv,rlatu,pls,qsat,qd,rlonu,rlatv)
+  ALLOCATE(q3d(iip1,jjp1,llm,nqtot)); q3d(:,:,:,:)=0.0 ; q3d(:,:,:,1)=qd(:,:,:)
+  CALL flinclo(fid_dyn)
+
+! Parameterization of ozone chemistry:
+!*******************************************************************************
+! Look for ozone tracer:
+  DO i=1,nqtot; IF(ANY(["O3","o3"]==tname(i))) EXIT; END DO
+  IF(i/=nqtot+1) THEN
+    CALL regr_lat_time_coefoz
+    CALL press_coefoz
+    CALL regr_pr_o3(p3d, q3d(:,:,:,i))
+    q3d(:,:,:,i)=q3d(:,:,:,i)*48./ 29.                  !--- Mole->mass fraction         
+  END IF
+  q3d(iip1,:,:,:)=q3d(1,:,:,:)
+
+! Writing
+!*******************************************************************************
+  CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, tetagrot,   &
+       tetatemp, vert_prof_dissip)
+  WRITE(lunout,*)'sortie inidissip'
+  itau=0
+  itau_dyn=0
+  itau_phy=0
+  iday=dayref+itau/day_step
+  time=FLOAT(itau-(iday-dayref)*day_step)/day_step
+  IF(time>1.) THEN
+   time=time-1
+   iday=iday+1
+  END IF
+  day_ref=dayref
+  annee_ref=anneeref
+  CALL geopot( ip1jmp1, tpot, pk, pks, phis, phi )
+  WRITE(lunout,*)'sortie geopot'
+  CALL caldyn0( itau, uvent, vvent, tpot, psol, masse, pk, phis,               &
+                phi,  w, pbaru, pbarv, time+iday-dayref)
+  WRITE(lunout,*)'sortie caldyn0'     
+#ifdef CPP_PARA
+  CALL dynredem0_loc( "start.nc", dayref, phis)
+#else
+  CALL dynredem0( "start.nc", dayref, phis)
+#endif
+  WRITE(lunout,*)'sortie dynredem0'
+#ifdef CPP_PARA
+  CALL dynredem1_loc( "start.nc", 0.0, vvent, uvent, tpot, q3d, masse, psol)
+#else
+  CALL dynredem1( "start.nc", 0.0, vvent, uvent, tpot, q3d, masse, psol)
+#endif
+  WRITE(lunout,*)'sortie dynredem1' 
+  CALL histclo()
+
+END SUBROUTINE etat0dyn_netcdf
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE startget_dyn3d(var, lon_in,  lat_in,  pls,  workvar,&
+                        champ, lon_in2, lat_in2)
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!===============================================================================
+! Purpose: Compute some quantities (u,v,t,q,tpot) using variables U,V,TEMP and R
+!     (3D fields) of file dynfname.
+!-------------------------------------------------------------------------------
+! Note: An input auxilliary field "workvar" has to be specified in two cases:
+!     * for "q":    the saturated humidity.
+!     * for "tpot": the Exner function.
+!===============================================================================
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN)    :: var
+  REAL,             INTENT(IN)    :: lon_in(:)        ! dim (iml)
+  REAL,             INTENT(IN)    :: lat_in(:)        ! dim (jml)
+  REAL,             INTENT(IN)    :: pls    (:, :, :) ! dim (iml, jml, lml)
+  REAL,             INTENT(IN)    :: workvar(:, :, :) ! dim (iml, jml, lml)
+  REAL,             INTENT(INOUT) :: champ  (:, :, :) ! dim (iml, jml, lml)
+  REAL,             INTENT(IN)    :: lon_in2(:)       ! dim (iml)
+  REAL,             INTENT(IN)    :: lat_in2(:)       ! dim (jml2)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=10)  :: vname
+  CHARACTER(LEN=256) :: msg, modname="startget_dyn3d"
+  INTEGER            :: iml, jml, jml2, lml, il
+  REAL               :: xppn, xpps
+!-------------------------------------------------------------------------------
+  iml=assert_eq([SIZE(lon_in),SIZE(pls,1),SIZE(workvar,1),SIZE(champ,1),       &
+     &                                    SIZE(lon_in2)], TRIM(modname)//" iml")
+  jml=assert_eq( SIZE(lat_in),SIZE(pls,2),SIZE(workvar,2),SIZE(champ,2),       &
+     &                                                    TRIM(modname)//" jml")
+  lml=assert_eq(              SIZE(pls,3),SIZE(workvar,3),SIZE(champ,3),       &
+     &                                                    TRIM(modname)//" lml")
+  jml2=SIZE(lat_in2)
+
+!--- CHECK IF THE FIELD IS KNOWN
+   SELECT CASE(var)
+    CASE('u');    vname='U'
+    CASE('v');    vname='V'
+    CASE('t');    vname='TEMP'
+    CASE('q');    vname='R';    msg='humidity as the saturated humidity'
+    CASE('tpot'); msg='potential temperature as the Exner function'
+    CASE DEFAULT; msg='No rule to extract variable '//TRIM(var)
+      CALL abort_gcm(modname,TRIM(msg)//' from any data set',1)
+  END SELECT
+
+!--- CHECK IF SOMETHING IS MISSING
+  IF((var=='tpot'.OR.var=='q').AND.MINVAL(workvar)==MAXVAL(workvar)) THEN
+    msg='Could not compute '//TRIM(msg)//' is missing or constant.'
+    CALL abort_gcm(modname,TRIM(msg),1)
+  END IF
+
+!--- INTERPOLATE 3D FIELD IF NEEDED
+  IF(var/='tpot') CALL start_inter_3d(TRIM(vname),lon_in,lat_in,lon_in2,      &
+                                                  lat_in2,pls,champ)
+
+!--- COMPUTE THE REQUIRED FILED
+  SELECT CASE(var)
+    CASE('u'); DO il=1,lml; champ(:,:,il)=champ(:,:,il)*cu(:,1:jml); END DO
+      champ(iml,:,:)=champ(1,:,:)                   !--- Eastward wind
+
+    CASE('v'); DO il=1,lml; champ(:,:,il)=champ(:,:,il)*cv(:,1:jml); END DO
+      champ(iml,:,:)=champ(1,:,:)                   !--- Northward wind
+
+    CASE('tpot','q')
+      IF(var=='tpot') THEN; champ=champ*cpp/workvar !--- Potential temperature
+      ELSE;                 champ=champ*.01*workvar !--- Relative humidity
+        WHERE(champ<0.) champ=1.0E-10
+      END IF
+      DO il=1,lml
+        xppn = SUM(aire(:,1  )*champ(:,1  ,il))/apoln
+        xpps = SUM(aire(:,jml)*champ(:,jml,il))/apols
+        champ(:,1  ,il) = xppn
+        champ(:,jml,il) = xpps
+      END DO
+  END SELECT
+
+END SUBROUTINE startget_dyn3d
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE start_init_dyn(lon_in,lat_in,lon_in2,lat_in2,zs,psol)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!===============================================================================
+! Purpose:   Compute psol, knowing phis.
+!===============================================================================
+! Arguments:
+  REAL,    INTENT(IN)  :: lon_in (:),  lat_in (:)    ! dim (iml) (jml)
+  REAL,    INTENT(IN)  :: lon_in2(:),  lat_in2(:)    ! dim (iml) (jml2)
+  REAL,    INTENT(IN)  :: zs  (:,:)                  ! dim (iml,jml)
+  REAL,    INTENT(OUT) :: psol(:,:)                  ! dim (iml,jml)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname='start_init_dyn'
+  REAL               :: date, dt
+  INTEGER            :: iml, jml, jml2, itau(1)
+  REAL, ALLOCATABLE  :: lon_rad(:), lon_ini(:), var_ana(:,:)
+  REAL, ALLOCATABLE  :: lat_rad(:), lat_ini(:)
+  REAL, ALLOCATABLE  :: z(:,:), ps(:,:), ts(:,:)
+!-------------------------------------------------------------------------------
+  iml=assert_eq(SIZE(lon_in),SIZE(zs,1),SIZE(psol,1),SIZE(lon_in2),            &
+      &                                              TRIM(modname)//" iml")
+  jml=assert_eq(SIZE(lat_in),SIZE(zs,2),SIZE(psol,2),TRIM(modname)//" jml")
+  jml2=SIZE(lat_in2)
+
+  WRITE(lunout,*) 'Opening the surface analysis'
+  CALL flininfo(dynfname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn)
+  WRITE(lunout,*) 'Values read: ', iml_dyn, jml_dyn, llm_dyn, ttm_dyn
+
+  ALLOCATE(lon_dyn(iml_dyn,jml_dyn), lat_dyn(iml_dyn,jml_dyn))
+  ALLOCATE(levdyn_ini(llm_dyn))
+  CALL flinopen(dynfname, .FALSE., iml_dyn, jml_dyn, llm_dyn,                  &
+                lon_dyn,lat_dyn,levdyn_ini,ttm_dyn,itau,date,dt,fid_dyn)
+
+!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS
+  ALLOCATE(lon_ini(iml_dyn),lat_ini(jml_dyn))
+  lon_ini(:)=lon_dyn(:,1); IF(MAXVAL(lon_dyn)>pi) lon_ini=lon_ini*deg2rad
+  lat_ini(:)=lat_dyn(1,:); IF(MAXVAL(lat_dyn)>pi) lat_ini=lat_ini*deg2rad
+
+  ALLOCATE(var_ana(iml_dyn,jml_dyn),lon_rad(iml_dyn),lat_rad(jml_dyn))
+  CALL get_var_dyn('Z',z)                        !--- SURFACE GEOPOTENTIAL
+  CALL get_var_dyn('SP',ps)                      !--- SURFACE PRESSURE
+  CALL get_var_dyn('ST',ts)                      !--- SURFACE TEMPERATURE
+!  CALL flinclo(fid_dyn)
+  DEALLOCATE(var_ana,lon_rad,lat_rad,lon_ini,lat_ini)
+
+!--- PSOL IS COMPUTED IN PASCALS
+  psol(:iml-1,:) = ps(:iml-1,:)*(1.0+(z(:iml-1,:)-zs(:iml-1,:))/287.0          &
+     &            /ts(:iml-1,:))
+  psol(iml,:)=psol(1,:)
+  DEALLOCATE(z,ps,ts)
+  psol(:,1  )=SUM(aire(1:iml-1,1  )*psol(1:iml-1,1  ))/apoln  !--- NORTH POLE
+  psol(:,jml)=SUM(aire(1:iml-1,jml)*psol(1:iml-1,jml))/apols  !--- SOUTH POLE
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE get_var_dyn(title,field)
+!
+!-------------------------------------------------------------------------------
+  USE conf_dat_m, ONLY: conf_dat2d
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*),  INTENT(IN)    :: title
+  REAL, ALLOCATABLE, INTENT(INOUT) :: field(:,:)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: msg
+  INTEGER :: tllm
+!-------------------------------------------------------------------------------
+  SELECT CASE(title)
+    CASE('Z');     tllm=0;       msg='geopotential'
+    CASE('SP');    tllm=0;       msg='surface pressure'
+    CASE('ST');    tllm=llm_dyn; msg='temperature'
+  END SELECT
+  IF(.NOT.ALLOCATED(field)) THEN
+    ALLOCATE(field(iml,jml))
+    CALL flinget(fid_dyn, title, iml_dyn,jml_dyn, tllm, ttm_dyn, 1, 1, var_ana)
+    CALL conf_dat2d(title, lon_ini, lat_ini, lon_rad, lat_rad, var_ana, .TRUE.)
+    CALL interp_startvar(title, .TRUE., lon_rad,lat_rad, var_ana,              &
+                                        lon_in, lat_in, lon_in2, lat_in2, field)
+  ELSE IF(SIZE(field)/=SIZE(z)) THEN
+    msg='The '//TRIM(msg)//' field we have does not have the right size'
+    CALL abort_gcm(TRIM(modname),msg,1)
+  END IF
+
+END SUBROUTINE get_var_dyn
+!
+!-------------------------------------------------------------------------------
+
+END SUBROUTINE start_init_dyn
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE start_inter_3d(var,lon_in,lat_in,lon_in2,lat_in2,pls_in,var3d)
+!
+!-------------------------------------------------------------------------------
+  USE conf_dat_m, ONLY: conf_dat3d
+  USE pchsp_95_m, ONLY: pchsp_95
+  USE pchfe_95_m, ONLY: pchfe_95
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN) :: var
+  REAL,    INTENT(IN)  :: lon_in(:),  lat_in(:)   ! dim (iml) (jml)
+  REAL,    INTENT(IN)  :: lon_in2(:), lat_in2(:)  ! dim (iml) (jml2)
+  REAL,    INTENT(IN)  :: pls_in(:,:,:)           ! dim (iml,jml,lml)
+  REAL,    INTENT(OUT) :: var3d (:,:,:)           ! dim (iml,jml,lml)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname='start_inter_3d'
+  LOGICAL :: skip
+  REAL    :: chmin, chmax
+  INTEGER :: iml, jml, lml, jml2, ii, ij, il, ierr
+  INTEGER :: n_extrap                             ! Extrapolated points number
+  REAL, ALLOCATABLE :: ax(:), lon_rad(:), lon_ini(:), lev_dyn(:), yder(:)
+  REAL, ALLOCATABLE :: ay(:), lat_rad(:), lat_ini(:), var_tmp3d(:,:,:)
+  REAL, ALLOCATABLE, SAVE :: var_ana3d(:,:,:)
+!-------------------------------------------------------------------------------
+  iml=assert_eq(SIZE(lon_in),SIZE(lon_in2),SIZE(pls_in,1),SIZE(var3d,1),TRIM(modname)//" iml")
+  jml=assert_eq(SIZE(lat_in),              SIZE(pls_in,2),SIZE(var3d,2),TRIM(modname)//" jml")
+  lml=assert_eq(SIZE(pls_in,3),SIZE(var3d,3),TRIM(modname)//" lml"); jml2=SIZE(lat_in2)
+
+  WRITE(lunout, *)'Going into flinget to extract the 3D field.'
+  IF(.NOT.ALLOCATED(var_ana3d)) ALLOCATE(var_ana3d(iml_dyn, jml_dyn, llm_dyn))
+  CALL flinget(fid_dyn,var,iml_dyn,jml_dyn,llm_dyn,ttm_dyn,1,1,var_ana3d)
+
+!--- ANGLES IN DEGREES ARE CONVERTED INTO RADIANS
+  ALLOCATE(lon_ini(iml_dyn), lat_ini(jml_dyn))
+  lon_ini(:)=lon_dyn(:,1); IF(MAXVAL(lon_dyn)>pi) lon_ini=lon_ini*deg2rad
+  lat_ini(:)=lat_dyn(1,:); IF(MAXVAL(lat_dyn)>pi) lat_ini=lat_ini*deg2rad
+
+!--- FIELDS ARE PROCESSED TO BE ON STANDARD ANGULAR DOMAINS
+  ALLOCATE(lon_rad(iml_dyn), lat_rad(jml_dyn), lev_dyn(llm_dyn))
+  CALL conf_dat3d(var, lon_ini, lat_ini, levdyn_ini,                           &
+                       lon_rad, lat_rad, lev_dyn, var_ana3d, .TRUE.)
+  DEALLOCATE(lon_ini, lat_ini)
+
+!--- COMPUTE THE REQUIRED FIELDS USING ROUTINE grid_noro
+  ALLOCATE(var_tmp3d(iml,jml,llm_dyn))
+  DO il = 1,llm_dyn
+    CALL interp_startvar(var,il==1,lon_rad,lat_rad,var_ana3d(:,:,il),          &
+                          lon_in,lat_in,lon_in2,lat_in2,var_tmp3d(:,:,il))
+  END DO
+  DEALLOCATE(lon_rad, lat_rad)
+
+!--- VERTICAL INTERPOLATION FROM TOP OF ATMOSPHERE TO GROUND
+  ALLOCATE(ax(llm_dyn),ay(llm_dyn),yder(llm_dyn))
+  ax = lev_dyn(llm_dyn:1:-1) 
+  skip = .FALSE.
+  n_extrap = 0
+  DO ij=1, jml
+    DO ii=1, iml-1
+      ay = var_tmp3d(ii, ij, llm_dyn:1:-1)
+      yder = pchsp_95(ax, ay, ibeg=2, iend=2, vc_beg=0., vc_end=0.)
+      CALL pchfe_95(ax, ay, yder, skip, pls_in(ii, ij, lml:1:-1),              &
+           var3d(ii, ij, lml:1:-1), ierr)
+      IF(ierr<0) CALL abort_gcm(TRIM(modname),'error in pchfe_95',1)
+      n_extrap = n_extrap + ierr
+    END DO
+  END DO
+  IF(n_extrap/=0) WRITE(lunout,*)TRIM(modname)//" pchfe_95: n_extrap=", n_extrap
+  var3d(iml, :, :) = var3d(1, :, :) 
+
+  DO il=1, lml
+    CALL minmax(iml*jml, var3d(1, 1, il), chmin, chmax)
+    WRITE(lunout, *)' '//TRIM(var)//'  min max l ', il, chmin, chmax
+  END DO
+
+END SUBROUTINE start_inter_3d
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE interp_startvar(nam,ibeg,lon,lat,vari,lon1,lat1,lon2,lat2,varo)
+!
+!-------------------------------------------------------------------------------
+  USE inter_barxy_m, ONLY: inter_barxy
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN)  :: nam
+  LOGICAL,          INTENT(IN)  :: ibeg
+  REAL,             INTENT(IN)  :: lon(:), lat(:)   ! dim (ii) (jj)
+  REAL,             INTENT(IN)  :: vari(:,:)        ! dim (ii,jj)
+  REAL,             INTENT(IN)  :: lon1(:), lat1(:) ! dim (i1) (j1)
+  REAL,             INTENT(IN)  :: lon2(:), lat2(:) ! dim (i1) (j2)
+  REAL,             INTENT(OUT) :: varo(:,:)        ! dim (i1) (j1)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="interp_startvar"
+  INTEGER            :: ii, jj, i1, j1, j2
+  REAL, ALLOCATABLE  :: vtmp(:,:)
+!-------------------------------------------------------------------------------
+  ii=assert_eq(SIZE(lon),            SIZE(vari,1),TRIM(modname)//" ii")
+  jj=assert_eq(SIZE(lat),            SIZE(vari,2),TRIM(modname)//" jj")
+  i1=assert_eq(SIZE(lon1),SIZE(lon2),SIZE(varo,1),TRIM(modname)//" i1")
+  j1=assert_eq(SIZE(lat1),           SIZE(varo,2),TRIM(modname)//" j1")
+  j2=SIZE(lat2)
+  ALLOCATE(vtmp(i1-1,j1))
+  IF(ibeg.AND.prt_level>1) THEN
+    WRITE(lunout,*)"---------------------------------------------------------"
+    WRITE(lunout,*)"$$$ Interpolation barycentrique pour "//TRIM(nam)//" $$$"
+    WRITE(lunout,*)"---------------------------------------------------------"
+  END IF
+  CALL inter_barxy(lon, lat(:jj-1), vari, lon2(:i1-1), lat2, vtmp)
+  CALL gr_int_dyn(vtmp, varo, i1-1, j1)
+
+END SUBROUTINE interp_startvar
+!
+!-------------------------------------------------------------------------------
+
+END MODULE etat0dyn
+!
+!*******************************************************************************
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90	(revision 3330)
@@ -0,0 +1,505 @@
+MODULE etat0phys
+!
+!*******************************************************************************
+! Purpose: Create physical initial state using atmospheric fields from a
+!          database of atmospheric to initialize the model.
+!-------------------------------------------------------------------------------
+! Comments:
+!
+!    *  This module is designed to work for Earth (and with ioipsl)
+!
+!    *  etat0phys_netcdf routine can access to NetCDF data through subroutines:
+!         "start_init_phys" for variables contained in file "ECPHY.nc":
+!            'ST'     : Surface temperature
+!            'CDSW'   : Soil moisture
+!         "start_init_orog" for variables contained in file "Relief.nc":
+!            'RELIEF' : High resolution orography 
+!
+!    * The land mask and corresponding weights can be:
+!      1) computed using the ocean mask from the ocean model (to ensure ocean
+!         fractions are the same for atmosphere and ocean) for coupled runs.
+!         File name: "o2a.nc"  ;  variable name: "OceMask"
+!      2) computed from topography file "Relief.nc" for forced runs.
+!
+!    * Allowed values for read_climoz flag are 0, 1 and 2:
+!      0: do not read an ozone climatology
+!      1: read a single ozone climatology that will be used day and night
+!      2: read two ozone climatologies, the average day and night climatology
+!         and the daylight climatology
+!-------------------------------------------------------------------------------
+!    * There is a big mess with the longitude size. Should it be iml or iml+1 ?
+!  I have chosen to use the iml+1 as an argument to this routine and we declare
+!  internaly smaller fields when needed. This needs to be cleared once and for
+!  all in LMDZ. A convention is required.
+!-------------------------------------------------------------------------------
+
+  USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo
+  USE assert_eq_m,        ONLY: assert_eq
+  USE dimphy,             ONLY: klon
+  USE conf_dat_m,         ONLY: conf_dat2d
+  USE phys_state_var_mod, ONLY: zmea, zstd, zsig, zgam, zthe, zpic, zval, z0m, &
+          solsw, radsol, t_ancien, wake_deltat, wake_s,  rain_fall, qsol, z0h, &
+          sollw, rugoro, q_ancien, wake_deltaq, wake_pe, snow_fall, ratqs,w01, &
+    sig1, ftsol, clwcon, fm_therm, wake_Cstar,  pctsrf,  entr_therm,radpas, f0,&
+    zmax0,fevap, rnebcon,falb_dir, wake_fip,    agesno,  detr_therm, pbl_tke,  &
+    phys_state_var_init
+  USE comconst_mod, ONLY: pi, dtvr
+
+  PRIVATE
+  PUBLIC :: etat0phys_netcdf
+
+  include "iniprint.h"
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+  include "dimsoil.h"
+  include "clesphys.h"
+  REAL, SAVE :: deg2rad
+  REAL, SAVE, ALLOCATABLE :: tsol(:)
+  INTEGER,            SAVE      :: iml_phys, jml_phys, llm_phys, ttm_phys, fid_phys
+  REAL, ALLOCATABLE,  SAVE      :: lon_phys(:,:), lat_phys(:,:), levphys_ini(:)
+  CHARACTER(LEN=256), PARAMETER :: orofname="Relief.nc", orogvar="RELIEF"
+  CHARACTER(LEN=256), PARAMETER :: phyfname="ECPHY.nc",  psrfvar="SP"
+  CHARACTER(LEN=256), PARAMETER :: qsolvar="CDSW",       tsrfvar="ST"
+
+
+CONTAINS
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE etat0phys_netcdf(masque, phis)
+!
+!-------------------------------------------------------------------------------
+! Purpose: Creates initial states
+!-------------------------------------------------------------------------------
+! Notes:  1) This routine is designed to work for Earth
+!         2) If masque(:,:)/=-99999., masque and phis are already known.
+!         Otherwise: compute it.
+!-------------------------------------------------------------------------------
+  USE control_mod
+  USE fonte_neige_mod
+  USE pbl_surface_mod
+  USE regr_lat_time_climoz_m, ONLY: regr_lat_time_climoz
+  USE indice_sol_mod
+  USE conf_phys_m, ONLY: conf_phys
+  USE init_ssrf_m, ONLY: start_init_subsurf
+  !use ioipsl_getincom
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL,    INTENT(INOUT) :: masque(:,:) !--- Land mask           dim(iip1,jjp1)
+  REAL,    INTENT(INOUT) :: phis  (:,:) !--- Ground geopotential dim(iip1,jjp1)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="etat0phys_netcdf", fmt
+  INTEGER            :: i, j, l, ji, iml, jml
+  LOGICAL            :: read_mask
+  REAL               :: phystep, dummy
+  REAL, DIMENSION(SIZE(masque,1),SIZE(masque,2)) :: masque_tmp,phiso
+  REAL, DIMENSION(klon)               :: sn, rugmer, run_off_lic_0, fder
+  REAL, DIMENSION(klon,nbsrf)         :: qsolsrf, snsrf
+  REAL, DIMENSION(klon,nsoilmx,nbsrf) :: tsoil
+
+!--- Arguments for conf_phys
+  LOGICAL :: ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES, callstats
+  REAL    :: solarlong0, seuil_inversion, fact_cldcon, facttemps
+  LOGICAL :: ok_newmicro
+  INTEGER :: iflag_radia, iflag_cldcon, iflag_ratqs
+  REAL    :: ratqsbas, ratqshaut, tau_ratqs
+  LOGICAL :: ok_ade, ok_aie, ok_cdnc, aerosol_couple
+  INTEGER :: flag_aerosol
+  INTEGER :: flag_aerosol_strat
+  LOGICAL :: new_aod
+  REAL    :: bl95_b0, bl95_b1
+  INTEGER :: read_climoz                        !--- Read ozone climatology
+  REAL    :: alp_offset
+  LOGICAL :: filtre_oro=.false.
+
+  deg2rad= pi/180.0
+  iml=assert_eq(SIZE(masque,1),SIZE(phis,1),TRIM(modname)//" iml")
+  jml=assert_eq(SIZE(masque,2),SIZE(phis,2),TRIM(modname)//" jml")
+
+! Physics configuration
+!*******************************************************************************
+  CALL conf_phys(  ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES,     &
+                   callstats,                                           &
+                   solarlong0,seuil_inversion,                          &
+                   fact_cldcon, facttemps,ok_newmicro,iflag_radia,      &
+                   iflag_cldcon,                                        &
+                   iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs,            &
+                   ok_ade, ok_aie, ok_cdnc, aerosol_couple,             &
+                   flag_aerosol, flag_aerosol_strat, new_aod,           &
+                   bl95_b0, bl95_b1,                                    &
+                   read_climoz,                                         &
+                   alp_offset)
+  CALL phys_state_var_init(read_climoz)
+
+!--- Initial atmospheric CO2 conc. from .def file
+  co2_ppm0 = co2_ppm
+
+! Compute ground geopotential, sub-cells quantities and possibly the mask.
+!*******************************************************************************
+  read_mask=ANY(masque/=-99999.); masque_tmp=masque
+  CALL start_init_orog(rlonv, rlatu, phis, masque_tmp)
+
+  CALL getin('filtre_oro',filtre_oro)
+  IF (filtre_oro) CALL filtreoro(size(phis,1),size(phis,2),phis,masque_tmp,rlatu)
+
+  WRITE(fmt,"(i4,'i1)')")iml ; fmt='('//ADJUSTL(fmt)
+  IF(.NOT.read_mask) THEN                       !--- Keep mask form orography
+    masque=masque_tmp
+    IF(prt_level>=1) THEN
+      WRITE(lunout,*)'BUILT MASK :'
+      WRITE(lunout,fmt) NINT(masque)
+    END IF
+    WHERE(   masque(:,:)<EPSFRA) masque(:,:)=0.
+    WHERE(1.-masque(:,:)<EPSFRA) masque(:,:)=1.
+  END IF
+  CALL gr_dyn_fi(1,iml,jml,klon,masque,zmasq) !--- Land mask to physical grid
+
+! Compute tsol and qsol on physical grid, knowing phis on 2D grid.
+!*******************************************************************************
+  CALL start_init_phys(rlonu, rlatv, phis)
+
+! Some initializations.
+!*******************************************************************************
+  sn    (:) = 0.0                               !--- Snow
+  radsol(:) = 0.0                               !--- Net radiation at ground
+  rugmer(:) = 0.001                             !--- Ocean rugosity
+  IF(read_climoz>=1) &                          !--- Ozone climatology
+    CALL regr_lat_time_climoz(read_climoz)
+
+! Sub-surfaces initialization.
+!*******************************************************************************
+  CALL start_init_subsurf(read_mask)
+
+! Write physical initial state
+!*******************************************************************************
+  WRITE(lunout,*)'phystep ',dtvr,iphysiq,nbapp_rad
+  phystep = dtvr * FLOAT(iphysiq)
+  radpas  = NINT (86400./phystep/ FLOAT(nbapp_rad) )
+  WRITE(lunout,*)'phystep =', phystep, radpas
+
+! Init: ftsol, snsrf, qsolsrf, tsoil, rain_fall, snow_fall, solsw, sollw, z0
+!*******************************************************************************
+  DO i=1,nbsrf; ftsol(:,i) = tsol; END DO
+  DO i=1,nbsrf; snsrf(:,i) = sn;   END DO
+  falb_dir(:, :, is_ter) = 0.08
+  falb_dir(:, :, is_lic) = 0.6
+  falb_dir(:, :, is_oce) = 0.5
+  falb_dir(:, :, is_sic) = 0.6
+  fevap(:,:) = 0.
+  DO i=1,nbsrf; qsolsrf(:,i)=150.; END DO
+  DO i=1,nbsrf; DO j=1,nsoilmx; tsoil(:,j,i) = tsol; END DO; END DO
+  rain_fall  = 0.
+  snow_fall  = 0.
+  solsw      = 165.
+  sollw      = -53.
+  t_ancien   = 273.15
+  q_ancien   = 0.
+  agesno     = 0.
+
+  z0m(:,is_oce) = rugmer(:)
+  z0m(:,is_ter) = MAX(1.0e-05,zstd(:)*zsig(:)/2.0)
+  z0m(:,is_lic) = MAX(1.0e-05,zstd(:)*zsig(:)/2.0)
+  z0m(:,is_sic) = 0.001
+  z0h(:,:)=z0m(:,:)
+
+  fder    = 0.0
+  clwcon  = 0.0
+  rnebcon = 0.0
+  ratqs   = 0.0
+  run_off_lic_0 = 0.0 
+  rugoro  = 0.0
+
+! Before phyredem calling, surface modules and values to be saved in startphy.nc
+! are initialized
+!*******************************************************************************
+  dummy            = 1.0
+  pbl_tke(:,:,:)   = 1.e-8 
+  zmax0(:)         = 40.
+  f0(:)            = 1.e-5
+  sig1(:,:)        = 0.
+  w01(:,:)         = 0.
+  wake_deltat(:,:) = 0.
+  wake_deltaq(:,:) = 0.
+  wake_s(:)        = 0.
+  wake_cstar(:)    = 0.
+  wake_fip(:)      = 0.
+  wake_pe          = 0.
+  fm_therm         = 0.
+  entr_therm       = 0.
+  detr_therm       = 0.
+
+  CALL fonte_neige_init(run_off_lic_0)
+  CALL pbl_surface_init( fder, snsrf, qsolsrf, tsoil )
+  CALL phyredem( "startphy.nc" )
+
+!  WRITE(lunout,*)'CCCCCCCCCCCCCCCCCC REACTIVER SORTIE VISU DANS ETAT0'
+!  WRITE(lunout,*)'entree histclo'
+  CALL histclo()
+
+END SUBROUTINE etat0phys_netcdf
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE start_init_orog(lon_in,lat_in,phis,masque)
+!
+!===============================================================================
+! Comment:
+!   This routine launch grid_noro, which computes parameters for SSO scheme as
+!   described in LOTT & MILLER (1997) and LOTT(1999).
+!===============================================================================
+  USE grid_noro_m, ONLY: grid_noro
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL,    INTENT(IN)    :: lon_in(:), lat_in(:)   ! dim (iml) (jml)
+  REAL,    INTENT(INOUT) :: phis(:,:), masque(:,:) ! dim (iml,jml)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname
+  INTEGER            :: fid, llm_tmp,ttm_tmp, iml,jml, iml_rel,jml_rel, itau(1)
+  REAL               :: lev(1), date, dt
+  REAL, ALLOCATABLE  :: lon_rad(:), lon_ini(:), lon_rel(:,:), relief_hi(:,:)
+  REAL, ALLOCATABLE  :: lat_rad(:), lat_ini(:), lat_rel(:,:), tmp_var  (:,:)
+  REAL, ALLOCATABLE  :: zmea0(:,:), zstd0(:,:), zsig0(:,:)
+  REAL, ALLOCATABLE  :: zgam0(:,:), zthe0(:,:), zpic0(:,:), zval0(:,:)
+!-------------------------------------------------------------------------------
+  modname="start_init_orog"
+  iml=assert_eq(SIZE(lon_in),SIZE(phis,1),SIZE(masque,1),TRIM(modname)//" iml")
+  jml=assert_eq(SIZE(lat_in),SIZE(phis,2),SIZE(masque,2),TRIM(modname)//" jml")
+
+!--- HIGH RESOLUTION OROGRAPHY
+  CALL flininfo(orofname, iml_rel, jml_rel, llm_tmp, ttm_tmp, fid)
+
+  ALLOCATE(lat_rel(iml_rel,jml_rel),lon_rel(iml_rel,jml_rel))
+  CALL flinopen(orofname, .FALSE., iml_rel, jml_rel, llm_tmp, lon_rel, lat_rel,&
+                lev, ttm_tmp, itau, date, dt, fid)
+  ALLOCATE(relief_hi(iml_rel,jml_rel))
+  CALL flinget(fid, orogvar, iml_rel, jml_rel, llm_tmp, ttm_tmp, 1,1, relief_hi)
+  CALL flinclo(fid)
+
+!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS
+  ALLOCATE(lon_ini(iml_rel),lat_ini(jml_rel))
+  lon_ini(:)=lon_rel(:,1); IF(MAXVAL(lon_rel)>pi) lon_ini=lon_ini*deg2rad
+  lat_ini(:)=lat_rel(1,:); IF(MAXVAL(lat_rel)>pi) lat_ini=lat_ini*deg2rad
+
+!--- FIELDS ARE PROCESSED TO BE ON STANDARD ANGULAR DOMAINS
+  ALLOCATE(lon_rad(iml_rel),lat_rad(jml_rel))
+  CALL conf_dat2d(orogvar, lon_ini, lat_ini, lon_rad, lat_rad, relief_hi,.FALSE.)
+  DEALLOCATE(lon_ini,lat_ini)
+
+!--- COMPUTING THE REQUIRED FIELDS USING ROUTINE grid_noro
+  WRITE(lunout,*)
+  WRITE(lunout,*)'*** Compute parameters needed for gravity wave drag code ***'
+
+!--- ALLOCATIONS OF SUB-CELL SCALES QUANTITIES
+  ALLOCATE(zmea0(iml,jml),zstd0(iml,jml)) !--- Mean orography and std deviation
+  ALLOCATE(zsig0(iml,jml),zgam0(iml,jml)) !--- Slope and nisotropy
+  ALLOCATE(zthe0(iml,jml))                !--- Highest slope orientation
+  ALLOCATE(zpic0(iml,jml),zval0(iml,jml)) !--- Peaks and valley heights
+
+!--- CALL OROGRAPHY MODULE TO COMPUTE FIELDS
+  CALL grid_noro(lon_rad,lat_rad,relief_hi,lon_in,lat_in,phis,zmea0,zstd0,     &
+                                      zsig0,zgam0,zthe0,zpic0,zval0,masque)
+  phis = phis * 9.81
+  phis(iml,:) = phis(1,:)
+  DEALLOCATE(relief_hi,lon_rad,lat_rad)
+
+!--- PUT QUANTITIES TO PHYSICAL GRID
+  CALL gr_dyn_fi(1,iml,jml,klon,zmea0,zmea); DEALLOCATE(zmea0)
+  CALL gr_dyn_fi(1,iml,jml,klon,zstd0,zstd); DEALLOCATE(zstd0)
+  CALL gr_dyn_fi(1,iml,jml,klon,zsig0,zsig); DEALLOCATE(zsig0)
+  CALL gr_dyn_fi(1,iml,jml,klon,zgam0,zgam); DEALLOCATE(zgam0)
+  CALL gr_dyn_fi(1,iml,jml,klon,zthe0,zthe); DEALLOCATE(zthe0)
+  CALL gr_dyn_fi(1,iml,jml,klon,zpic0,zpic); DEALLOCATE(zpic0)
+  CALL gr_dyn_fi(1,iml,jml,klon,zval0,zval); DEALLOCATE(zval0)
+
+
+END SUBROUTINE start_init_orog
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE start_init_phys(lon_in,lat_in,phis)
+!
+!===============================================================================
+! Purpose:   Compute tsol and qsol, knowing phis.
+!===============================================================================
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL,    INTENT(IN) :: lon_in(:),  lat_in(:)       ! dim (iml) (jml2)
+  REAL,    INTENT(IN) :: phis(:,:)                   ! dim (iml,jml)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname
+  REAL               :: date, dt
+  INTEGER            :: iml, jml, jml2, itau(1)
+  REAL, ALLOCATABLE  :: lon_rad(:), lon_ini(:), var_ana(:,:)
+  REAL, ALLOCATABLE  :: lat_rad(:), lat_ini(:)
+  REAL, ALLOCATABLE  :: ts(:,:), qs(:,:)
+!-------------------------------------------------------------------------------
+  modname="start_init_phys"
+  iml=assert_eq(SIZE(lon_in),SIZE(phis,1),TRIM(modname)//" iml")
+  jml=SIZE(phis,2); jml2=SIZE(lat_in)
+
+  WRITE(lunout,*)'Opening the surface analysis'
+  CALL flininfo(phyfname, iml_phys, jml_phys, llm_phys, ttm_phys, fid_phys)
+  WRITE(lunout,*) 'Values read: ',  iml_phys, jml_phys, llm_phys, ttm_phys
+
+  ALLOCATE(lat_phys(iml_phys,jml_phys),lon_phys(iml_phys,jml_phys))
+  ALLOCATE(levphys_ini(llm_phys))
+  CALL flinopen(phyfname, .FALSE., iml_phys, jml_phys, llm_phys,              &
+                lon_phys,lat_phys,levphys_ini,ttm_phys,itau,date,dt,fid_phys)
+
+!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS
+  ALLOCATE(lon_ini(iml_phys),lat_ini(jml_phys))
+  lon_ini(:)=lon_phys(:,1); IF(MAXVAL(lon_phys)>pi) lon_ini=lon_ini*deg2rad
+  lat_ini(:)=lat_phys(1,:); IF(MAXVAL(lat_phys)>pi) lat_ini=lat_ini*deg2rad
+
+  ALLOCATE(var_ana(iml_phys,jml_phys),lon_rad(iml_phys),lat_rad(jml_phys))
+  CALL get_var_phys(tsrfvar,ts)                   !--- SURFACE TEMPERATURE
+  CALL get_var_phys(qsolvar,qs)                   !--- SOIL MOISTURE
+  CALL flinclo(fid_phys)
+  DEALLOCATE(var_ana,lon_rad,lat_rad,lon_ini,lat_ini)
+
+!--- TSOL AND QSOL ON PHYSICAL GRID
+  ALLOCATE(tsol(klon))
+  CALL gr_dyn_fi(1,iml,jml,klon,ts,tsol)
+  CALL gr_dyn_fi(1,iml,jml,klon,qs,qsol)
+  DEALLOCATE(ts,qs)
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE get_var_phys(title,field)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*),  INTENT(IN)    :: title
+  REAL, ALLOCATABLE, INTENT(INOUT) :: field(:,:)
+!-------------------------------------------------------------------------------
+! Local variables:
+  INTEGER :: tllm
+!-------------------------------------------------------------------------------
+  SELECT CASE(title)
+    CASE(psrfvar);         tllm=0
+    CASE(tsrfvar,qsolvar); tllm=llm_phys
+  END SELECT
+  IF(ALLOCATED(field)) RETURN
+  ALLOCATE(field(iml,jml)); field(:,:)=0.
+  CALL flinget(fid_phys,title,iml_phys,jml_phys,tllm,ttm_phys,1,1,var_ana)
+  CALL conf_dat2d(title, lon_ini, lat_ini, lon_rad, lat_rad, var_ana, .TRUE.)
+  CALL interp_startvar(title, .TRUE., lon_rad, lat_rad, var_ana,               &
+                                      lon_in,  lat_in,  field)
+
+END SUBROUTINE get_var_phys
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE start_init_phys
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE interp_startvar(nam,ibeg,lon,lat,vari,lon2,lat2,varo)
+!
+!-------------------------------------------------------------------------------
+  USE inter_barxy_m, ONLY: inter_barxy
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*), INTENT(IN)  :: nam
+  LOGICAL,          INTENT(IN)  :: ibeg
+  REAL,             INTENT(IN)  :: lon(:), lat(:)   ! dim (ii) (jj)
+  REAL,             INTENT(IN)  :: vari(:,:)        ! dim (ii,jj)
+  REAL,             INTENT(IN)  :: lon2(:), lat2(:) ! dim (i1) (j2)
+  REAL,             INTENT(OUT) :: varo(:,:)        ! dim (i1) (j1)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname
+  INTEGER            :: ii, jj, i1, j1, j2
+  REAL, ALLOCATABLE  :: vtmp(:,:)
+!-------------------------------------------------------------------------------
+  modname="interp_startvar"
+  ii=assert_eq(SIZE(lon), SIZE(vari,1),TRIM(modname)//" ii")
+  jj=assert_eq(SIZE(lat), SIZE(vari,2),TRIM(modname)//" jj")
+  i1=assert_eq(SIZE(lon2),SIZE(varo,1),TRIM(modname)//" i1")
+  j1=SIZE(varo,2); j2=SIZE(lat2)
+  ALLOCATE(vtmp(i1-1,j1))
+  IF(ibeg.AND.prt_level>1) THEN
+    WRITE(lunout,*)"--------------------------------------------------------"
+    WRITE(lunout,*)"$$$ Interpolation barycentrique pour "//TRIM(nam)//" $$$"
+    WRITE(lunout,*)"--------------------------------------------------------"
+  END IF
+  CALL inter_barxy(lon, lat(:jj-1), vari, lon2(:i1-1), lat2, vtmp)
+  CALL gr_int_dyn(vtmp, varo, i1-1, j1)
+
+END SUBROUTINE interp_startvar
+!
+!-------------------------------------------------------------------------------
+!
+!*******************************************************************************
+
+SUBROUTINE filtreoro(imp1,jmp1,phis,masque,rlatu)
+
+IMPLICIT NONE
+
+  INTEGER imp1,jmp1
+  REAL, DIMENSION(imp1,jmp1) :: phis,masque
+  REAL, DIMENSION(jmp1) :: rlatu
+  REAL, DIMENSION(imp1) :: wwf
+  REAL, DIMENSION(imp1,jmp1) :: phiso
+  INTEGER :: ifiltre,ifi,ii,i,j
+  REAL :: coslat0,ssz
+
+  coslat0=0.5
+  phiso=phis
+  do j=2,jmp1-1
+     print*,'avant if ',cos(rlatu(j)),coslat0
+     if (cos(rlatu(j))<coslat0) then
+         ! nb de pts affectes par le filtrage de part et d'autre du pt
+         ifiltre=(coslat0/cos(rlatu(j))-1.)/2.
+         wwf=0.
+         do i=1,ifiltre
+            wwf(i)=1.
+         enddo
+         wwf(ifiltre+1)=(coslat0/cos(rlatu(j))-1.)/2.-ifiltre
+         do i=1,imp1-1
+            if (masque(i,j)>0.9) then
+               ssz=phis(i,j)
+               do ifi=1,ifiltre+1
+                  ii=i+ifi
+                  if (ii>imp1-1) ii=ii-imp1+1
+                  ssz=ssz+wwf(ifi)*phis(ii,j)
+                  ii=i-ifi
+                  if (ii<1) ii=ii+imp1-1
+                  ssz=ssz+wwf(ifi)*phis(ii,j)
+               enddo
+               phis(i,j)=ssz*cos(rlatu(j))/coslat0
+            endif
+         enddo
+         print*,'j=',j,coslat0/cos(rlatu(j)), (1.+2.*sum(wwf))*cos(rlatu(j))/coslat0
+     endif
+  enddo
+  call dump2d(imp1,jmp1,phis,'phis ')
+  call dump2d(imp1,jmp1,masque,'masque ')
+  call dump2d(imp1,jmp1,phis-phiso,'dphis ')
+
+END SUBROUTINE filtreoro
+
+
+END MODULE etat0phys
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,169 @@
+!
+! $Id$
+!
+MODULE iniphysiq_mod
+
+CONTAINS
+
+SUBROUTINE iniphysiq(ii,jj,nlayer, &
+                     nbp, communicator, &
+                     punjours, pdayref,ptimestep, &
+                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv,       &
+                     prad,pg,pr,pcpp,iflag_phys)
+  USE dimphy, ONLY: init_dimphy
+  USE comvert_mod, ONLY: preff, ap, bp, presnivs, scaleheight, pseudoalt
+  USE inigeomphy_mod, ONLY: inigeomphy
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat,nbp_lev,klon_glo ! number of atmospheric columns (on full grid)
+  USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
+  USE vertical_layers_mod, ONLY : init_vertical_layers
+  USE infotrac, ONLY: nqtot,nqo,nbtr,tname,ttext,type_trac,&
+                      niadv,conv_flg,pbl_flg,solsym,&
+                      nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,&
+                      ok_isotopes,ok_iso_verif,ok_isotrac,&
+                      ok_init_iso,niso_possibles,tnat,&
+                      alpha_ideal,use_iso,iqiso,iso_num,&
+                      iso_indnum,zone_num,phase_num,&
+                      indnum_fn_num,index_trac,&
+                      niso,ntraceurs_zone,ntraciso
+#ifdef REPROBUS
+  USE CHEM_REP, ONLY : Init_chem_rep_phys
+#endif
+  USE control_mod, ONLY: dayref,anneeref,day_step,nday,offline, iphysiq, config_inca
+  USE inifis_mod, ONLY: inifis
+  USE time_phylmdz_mod, ONLY: init_time
+  USE temps_mod, ONLY: annee_ref, day_ini, day_ref, start_time, calend
+  USE infotrac_phy, ONLY: init_infotrac_phy
+  USE phystokenc_mod, ONLY: init_phystokenc
+  USE phyaqua_mod, ONLY: iniaqua
+#ifdef INCA
+  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
+#ifdef CPP_PARA
+  USE parallel_lmdz, ONLY : mpi_size, mpi_rank
+  USE bands, ONLY : distrib_phys
+#endif
+  USE mod_phys_lmdz_omp_data, ONLY: klon_omp 
+#endif
+  IMPLICIT NONE
+
+  ! =======================================================================
+  ! Initialisation of the physical constants and some positional and
+  ! geometrical arrays for the physics
+  ! =======================================================================
+
+  include "dimensions.h"
+  include "iniprint.h"
+  include "tracstoke.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) :: nlayer ! number of atmospheric layers
+  INTEGER, INTENT (IN) :: ii ! number of atmospheric columns along longitudes
+  INTEGER, INTENT (IN) :: jj ! number of atompsheric columns along latitudes
+  INTEGER, INTENT(IN) :: nbp ! number of physics columns for this MPI process
+  INTEGER, INTENT(IN) :: communicator ! MPI communicator
+  REAL, INTENT (IN) :: rlatu(jj+1) ! latitudes of the physics grid
+  REAL, INTENT (IN) :: rlatv(jj) ! latitude boundaries of the physics grid
+  REAL, INTENT (IN) :: rlonv(ii+1) ! longitudes of the physics grid
+  REAL, INTENT (IN) :: rlonu(ii+1) ! longitude boundaries of the physics grid
+  REAL, INTENT (IN) :: aire(ii+1,jj+1) ! area of the dynamics grid (m2)
+  REAL, INTENT (IN) :: cu((ii+1)*(jj+1)) ! cu coeff. (u_covariant = cu * u)
+  REAL, INTENT (IN) :: cv((ii+1)*jj) ! 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
+  INTEGER :: i,j,k
+  CHARACTER (LEN=20) :: modname = 'iniphysiq'
+  CHARACTER (LEN=80) :: abort_message
+
+
+#ifndef CPP_PARA
+  INTEGER,PARAMETER :: mpi_rank=0
+  INTEGER, PARAMETER :: mpi_size = 1 
+  INTEGER :: distrib_phys(mpi_rank:mpi_rank)=(jjm-1)*iim+2
+#endif
+
+  ! --> initialize physics distribution, global fields and geometry
+  ! (i.e. things in phy_common or dynphy_lonlat)
+  CALL inigeomphy(ii,jj,nlayer, &
+               nbp, communicator, &
+               rlatu,rlatv, &
+               rlonu,rlonv, &
+               aire,cu,cv)
+
+  ! --> now initialize things specific to the phylmd physics package
+  
+!!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
+!$OMP PARALLEL DEFAULT(SHARED) &
+!	Copy all threadprivate variables in temps_mod
+!$OMP COPYIN(annee_ref, day_ini, day_ref, start_time)
+
+  ! copy over preff , ap(), bp(), etc 
+  CALL init_vertical_layers(nlayer,preff,scaleheight, &
+                            ap,bp,presnivs,pseudoalt)
+
+  ! Initialize physical constants in physics:
+  CALL inifis(punjours,prad,pg,pr,pcpp)
+
+  CALL init_time(annee_ref,day_ref,day_ini,start_time,nday,ptimestep)
+
+  ! Initialize dimphy module (unless in 1D where it has already been done)
+  IF (klon_glo>1) CALL Init_dimphy(klon_omp,nlayer)
+
+  ! Copy over "offline" settings
+  CALL init_phystokenc(offline,istphy)
+
+  ! Initialize tracer names, numbers, etc. for physics
+  CALL init_infotrac_phy(nqtot,nqo,nbtr,tname,ttext,type_trac,&
+                         niadv,conv_flg,pbl_flg,solsym,&
+                         nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,&
+                         ok_isotopes,ok_iso_verif,ok_isotrac,&
+                         ok_init_iso,niso_possibles,tnat,&
+                         alpha_ideal,use_iso,iqiso,iso_num,&
+                         iso_indnum,zone_num,phase_num,&
+                         indnum_fn_num,index_trac,&
+                         niso,ntraceurs_zone,ntraciso)
+
+  ! Initializations for Reprobus
+  IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+    CALL Init_chem_rep_phys(klon_omp,nlayer)
+#endif
+  ENDIF
+!$OMP END PARALLEL
+
+  IF (type_trac == 'inca') THEN
+#ifdef INCA
+     call init_const_lmdz( &
+          anneeref,dayref, iphysiq,day_step,nday,  &
+          nbsrf, is_oce,is_sic, is_ter,is_lic, calend, &
+          config_inca)
+     call init_inca_para( &
+          nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
+          distrib_phys,communicator)
+#endif
+  END IF
+
+!!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
+!$OMP PARALLEL DEFAULT(SHARED)
+  ! Additional initializations for aquaplanets 
+  IF (iflag_phys>=100) THEN
+    CALL iniaqua(klon_omp,iflag_phys)
+  END IF
+
+  IF (type_trac == 'inca') THEN
+#ifdef INCA
+     CALL init_inca_dim(klon_omp,nbp_lev,nbp_lon,nbp_lat - 1, &
+          rlonu,rlatu,rlonv,rlatv)
+#endif
+  END IF
+
+!$OMP END PARALLEL
+
+END SUBROUTINE iniphysiq
+
+END MODULE iniphysiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/init_ssrf_m.F90	(revision 3330)
@@ -0,0 +1,114 @@
+MODULE init_ssrf_m
+!
+!*******************************************************************************
+
+  USE indice_sol_mod, ONLY: is_ter, is_oce, is_oce, is_lic, epsfra
+  USE dimphy,             ONLY: klon, zmasq
+  USE phys_state_var_mod, ONLY: pctsrf
+  USE geometry_mod, ONLY : longitude_deg, latitude_deg
+  USE grid_atob_m,        ONLY: grille_m
+  USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo
+  USE comconst_mod, ONLY: im, pi
+
+  CHARACTER(LEN=256), PARAMETER :: icefname="landiceref.nc", icevar="landice"
+  PRIVATE
+  PUBLIC :: start_init_subsurf
+  include "iniprint.h"
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE start_init_subsurf(known_mask)
+!
+!-------------------------------------------------------------------------------
+! Purpose: Subsurfaces initialization.
+!-------------------------------------------------------------------------------
+! Comment: Called by etat0phys_netcdf ; also called by limit_netcdf in case
+!          no starting states are required (ok_etat0==.FALSE.).
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  LOGICAL, INTENT(IN) :: known_mask
+!-------------------------------------------------------------------------------
+! Local variables:
+  INTEGER           :: iml_lic, jml_lic
+  INTEGER           :: fid, llm_tmp, ttm_tmp, itaul(1), ji, j
+  REAL, ALLOCATABLE :: dlon_lic(:), lon_lic(:,:), fraclic (:,:)
+  REAL, ALLOCATABLE :: dlat_lic(:), lat_lic(:,:), flic_tmp(:,:), vtmp(:,:)
+  REAL              :: date, lev(1), dt, deg2rad
+!-------------------------------------------------------------------------------
+  deg2rad= pi/180.0
+
+!--- Physical grid points coordinates
+  DO j=2,jjm; latitude_deg((j-2)*iim+2:(j-1)*iim+1)=rlatu(j);    END DO
+  DO j=2,jjm; longitude_deg((j-2)*iim+2:(j-1)*iim+1)=rlonv(1:im); END DO
+  latitude_deg(1) = pi/2.; latitude_deg(klon) = - pi/2.
+  latitude_deg(:)=latitude_deg(:)/deg2rad
+  longitude_deg(1) = 0.0;   longitude_deg(klon) = 0.0;
+  longitude_deg(:)=longitude_deg(:)/deg2rad
+
+! Compute ground geopotential, sub-cells quantities and possibly the mask.
+! Sub-surfaces initialization
+!*******************************************************************************
+!--- Read and interpolate on model T-grid soil fraction and soil ice fraction.
+  CALL flininfo(icefname, iml_lic, jml_lic, llm_tmp, ttm_tmp, fid)
+  ALLOCATE(lat_lic(iml_lic,jml_lic),lon_lic(iml_lic,jml_lic))
+  ALLOCATE(fraclic(iml_lic,jml_lic))
+  CALL flinopen(icefname, .FALSE., iml_lic, jml_lic, llm_tmp,  &
+ &               lon_lic, lat_lic, lev, ttm_tmp, itaul, date, dt, fid)
+  CALL flinget(fid, icevar, iml_lic, jml_lic, llm_tmp, ttm_tmp, 1,1, fraclic)
+  CALL flinclo(fid)
+  WRITE(lunout,*)'landice dimensions: iml_lic, jml_lic : ',iml_lic,jml_lic
+
+  ALLOCATE(dlon_lic(iml_lic),dlat_lic(jml_lic))
+  dlon_lic(:)=lon_lic(:,1); IF(MAXVAL(dlon_lic)>pi) dlon_lic=dlon_lic*pi/180.
+  dlat_lic(:)=lat_lic(1,:); IF(MAXVAL(dlat_lic)>pi) dlat_lic=dlat_lic*pi/180.
+  DEALLOCATE(lon_lic,lat_lic); ALLOCATE(flic_tmp(iip1,jjp1))
+  CALL grille_m(dlon_lic,dlat_lic,fraclic,rlonv(1:iim),rlatu,flic_tmp(1:iim,:))
+  flic_tmp(iip1,:)=flic_tmp(1,:)
+
+!--- To the physical grid
+  pctsrf(:,:) = 0.
+  CALL gr_dyn_fi(1, iip1, jjp1, klon, flic_tmp, pctsrf(:,is_lic))
+  DEALLOCATE(flic_tmp)
+
+!--- Adequation with soil/sea mask
+  WHERE(pctsrf(:,is_lic)<EPSFRA) pctsrf(:,is_lic)=0. 
+  WHERE(zmasq(:)<EPSFRA)         pctsrf(:,is_lic)=0.
+  pctsrf(:,is_ter)=zmasq(:)
+  DO ji=1,klon
+    IF(zmasq(ji)>EPSFRA) THEN 
+      IF(pctsrf(ji,is_lic)>=zmasq(ji)) THEN
+        pctsrf(ji,is_lic)=zmasq(ji)
+        pctsrf(ji,is_ter)=0.
+      ELSE
+        pctsrf(ji,is_ter)=zmasq(ji)-pctsrf(ji,is_lic)
+        IF(pctsrf(ji,is_ter)<EPSFRA) THEN
+          pctsrf(ji,is_ter)=0.
+          pctsrf(ji,is_lic)=zmasq(ji)
+        END IF 
+      END IF 
+    END IF 
+  END DO 
+
+!--- Sub-surface ocean and sea ice (sea ice set to zero for start).
+  pctsrf(:,is_oce)=(1.-zmasq(:))
+  WHERE(pctsrf(:,is_oce)<EPSFRA) pctsrf(:,is_oce)=0.
+  IF(known_mask) pctsrf(:,is_oce)=1-zmasq(:)
+
+!--- It is checked that the sub-surfaces sum is equal to 1.
+  ji=COUNT((ABS(SUM(pctsrf(:,:),dim=2))-1.0)>EPSFRA)
+  IF(ji/=0) WRITE(lunout,*) 'Sub-cell distribution problem for ',ji,' points'
+
+END SUBROUTINE start_init_subsurf
+!
+!-------------------------------------------------------------------------------
+
+END MODULE init_ssrf_m
+!
+!*******************************************************************************
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/limit_netcdf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/limit_netcdf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/limit_netcdf.F90	(revision 3330)
@@ -0,0 +1,776 @@
+MODULE limit
+!
+!*******************************************************************************
+! Author : L. Fairhead, 27/01/94
+!-------------------------------------------------------------------------------
+! Purpose: Boundary conditions files building for new model using climatologies.
+!          Both grids have to be regular.
+!-------------------------------------------------------------------------------
+! Note: This routine is designed to work for Earth
+!-------------------------------------------------------------------------------
+! Modification history:
+!  * 23/03/1994: Z. X. Li
+!  *    09/1999: L. Fairhead (netcdf reading in LMDZ.3.3)
+!  *    07/2001: P. Le Van
+!  *    11/2009: L. Guez     (ozone day & night climatos, see etat0_netcdf.F90)
+!  *    12/2009: D. Cugnet   (f77->f90, calendars, files from coupled runs)
+!-------------------------------------------------------------------------------
+
+  USE ioipsl,             ONLY: flininfo, flinopen, flinget, flinclo,          &
+   ioconf_calendar, ioget_calendar, lock_calendar, ioget_mon_len, ioget_year_len
+  USE assert_eq_m,        ONLY: assert_eq
+  USE conf_dat_m,         ONLY: conf_dat2d, conf_dat3d
+  USE dimphy,             ONLY: klon, zmasq
+  USE geometry_mod, ONLY: longitude_deg, latitude_deg
+  USE phys_state_var_mod, ONLY: pctsrf
+  USE control_mod, ONLY: anneeref
+  USE init_ssrf_m,        ONLY: start_init_subsurf
+
+  CHARACTER(LEN=20), PARAMETER :: &
+  fsst(4)=['amipbc_sst_1x1.nc   ','cpl_atm_sst.nc      ','histmth_sst.nc      '&
+          ,'sstk.nc             ']
+  CHARACTER(LEN=20), PARAMETER :: &
+  fsic(4)=['amipbc_sic_1x1.nc   ','cpl_atm_sic.nc      ','histmth_sic.nc      '&
+          ,'ci.nc               ']
+  CHARACTER(LEN=10), PARAMETER :: &
+  vsst(4)=['tosbcs    ','SISUTESW  ','tsol_oce  ','sstk      '], &
+  vsic(4)=['sicbcs    ','SIICECOV  ','pourc_sic ','ci        ']
+  CHARACTER(LEN=10), PARAMETER :: &
+  frugo='Rugos.nc  ', falbe='Albedo.nc ', frelf='Relief.nc ',    &
+   vrug='RUGOS     ',  valb='ALBEDO    ',  vrel='RELIEF    '
+
+CONTAINS
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE limit_netcdf(masque, phis, extrap)
+!
+!-------------------------------------------------------------------------------
+! Author : L. Fairhead, 27/01/94
+!-------------------------------------------------------------------------------
+! Purpose: Boundary conditions files building for new model using climatologies.
+!          Both grids have to be regular.
+!-------------------------------------------------------------------------------
+! Note: This routine is designed to work for Earth
+!-------------------------------------------------------------------------------
+! Modification history:
+!  * 23/03/1994: Z. X. Li
+!  *    09/1999: L. Fairhead (netcdf reading in LMDZ.3.3)
+!  *    07/2001: P. Le Van
+!  *    11/2009: L. Guez     (ozone day & night climatos, see etat0_netcdf.F90)
+!  *    12/2009: D. Cugnet   (f77->f90, calendars, files from coupled runs)
+!  *    04/2016: D. Cugnet   (12/14 recs SST/SIC files: cyclic/interannual runs)
+!-------------------------------------------------------------------------------
+#ifndef CPP_1D
+  USE indice_sol_mod
+  USE netcdf,             ONLY: NF90_OPEN,    NF90_CREATE,  NF90_CLOSE,        &
+                  NF90_DEF_DIM, NF90_DEF_VAR, NF90_PUT_VAR, NF90_PUT_ATT,      &
+                  NF90_NOERR,   NF90_NOWRITE, NF90_DOUBLE,  NF90_GLOBAL,       &
+                  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
+  USE comconst_mod, ONLY: pi
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  include "iniprint.h"
+  include "dimensions.h"
+  include "paramet.h"
+  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: masque ! land mask
+  REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis   ! ground geopotential
+  LOGICAL,                    INTENT(IN)    :: extrap ! SST extrapolation flag
+!-------------------------------------------------------------------------------
+! Local variables:
+  include "comgeom2.h"
+
+!--- INPUT NETCDF FILES NAMES --------------------------------------------------
+  CHARACTER(LEN=20) :: icefile, sstfile, dumstr, fnam
+  CHARACTER(LEN=10) :: varname
+
+!--- OUTPUT VARIABLES FOR NETCDF FILE ------------------------------------------
+  REAL               :: fi_ice(klon), verif(klon)
+  REAL, POINTER      :: phy_rug(:,:)=>NULL(), phy_ice(:,:)=>NULL()
+  REAL, POINTER      :: phy_sst(:,:)=>NULL(), phy_alb(:,:)=>NULL()
+  REAL, ALLOCATABLE  :: phy_bil(:,:), pctsrf_t(:,:,:)
+  INTEGER            :: nbad
+
+!--- VARIABLES FOR OUTPUT FILE WRITING -----------------------------------------
+  INTEGER :: ierr, nid, ndim, ntim, k, dims(2), ix_sic, ix_sst
+  INTEGER :: id_tim,  id_SST,  id_BILS, id_RUG, id_ALB
+  INTEGER :: id_FOCE, id_FSIC, id_FTER, id_FLIC, varid_longitude, varid_latitude
+  INTEGER :: NF90_FORMAT
+  INTEGER :: ndays                   !--- Depending on the output calendar
+
+!--- INITIALIZATIONS -----------------------------------------------------------
+#ifdef NC_DOUBLE
+  NF90_FORMAT=NF90_DOUBLE
+#else
+  NF90_FORMAT=NF90_FLOAT
+#endif
+  CALL inigeom
+
+!--- MASK, GROUND GEOPOT. & SUBSURFACES COMPUTATION (IN CASE ok_etat0==.FALSE.)
+   IF(ALL(masque==-99999.)) THEN
+    CALL start_init_orog0(rlonv,rlatu,phis,masque)
+    CALL gr_dyn_fi(1,iip1,jjp1,klon,masque,zmasq)          !--- To physical grid
+    ALLOCATE(pctsrf(klon,nbsrf))
+    CALL start_init_subsurf(.FALSE.)
+  !--- TO MATCH EXACTLY WHAT WOULD BE DONE IN etat0phys_netcdf
+    WHERE(   masque(:,:)<EPSFRA) masque(:,:)=0.
+    WHERE(1.-masque(:,:)<EPSFRA) masque(:,:)=1.
+  END IF
+
+!--- Beware: anneeref (from gcm.def) is used to determine output time sampling
+  ndays=ioget_year_len(anneeref)
+
+!--- RUGOSITY TREATMENT --------------------------------------------------------
+  CALL msg(1,'Traitement de la rugosite')
+  CALL get_2Dfield(frugo,vrug,'RUG',ndays,phy_rug,mask=masque(1:iim,:))
+
+!--- OCEAN TREATMENT -----------------------------------------------------------
+  CALL msg(1,'Traitement de la glace oceanique')
+
+! Input SIC file selection
+! Open file only to test if available
+  DO ix_sic=1,SIZE(fsic)
+     IF ( NF90_OPEN(TRIM(fsic(ix_sic)),NF90_NOWRITE,nid)==NF90_NOERR ) THEN
+        icefile=fsic(ix_sic); varname=vsic(ix_sic); EXIT
+     END IF
+  END DO
+  IF(ix_sic==SIZE(fsic)+1) THEN
+     WRITE(lunout,*) 'ERROR! No sea-ice input file was found.'
+     WRITE(lunout,*) 'One of following files must be available : '
+     DO k=1,SIZE(fsic); WRITE(lunout,*) TRIM(fsic(k)); END DO
+     CALL abort_physic('limit_netcdf','No sea-ice file was found',1)
+  END IF
+  CALL ncerr(NF90_CLOSE(nid),icefile)
+  CALL msg(-1,'Fichier choisi pour la glace de mer:'//TRIM(icefile))
+
+  CALL get_2Dfield(icefile,varname, 'SIC',ndays,phy_ice)
+
+  ALLOCATE(pctsrf_t(klon,nbsrf,ndays))
+  DO k=1,ndays
+     fi_ice=phy_ice(:,k)
+     WHERE(fi_ice>=1.0  ) fi_ice=1.0
+     WHERE(fi_ice<EPSFRA) fi_ice=0.0
+     pctsrf_t(:,is_ter,k)=pctsrf(:,is_ter)       ! land soil
+     pctsrf_t(:,is_lic,k)=pctsrf(:,is_lic)       ! land ice
+     SELECT CASE(ix_sic)
+        CASE(2)                                   ! SIC=pICE*(1-LIC-TER) (CPL)
+        pctsrf_t(:,is_sic,k)=fi_ice(:)*(1.-pctsrf(:,is_lic)-pctsrf(:,is_ter))
+        CASE(3)                                   ! SIC=pICE            (HIST)
+        pctsrf_t(:,is_sic,k)=fi_ice(:)
+        CASE DEFAULT                              ! SIC=pICE-LIC   (AMIP,ERAI)
+        pctsrf_t(:,is_sic,k)=fi_ice-pctsrf_t(:,is_lic,k)
+     END SELECT
+     WHERE(pctsrf_t(:,is_sic,k)<=0) pctsrf_t(:,is_sic,k)=0.
+     WHERE(1.0-zmasq<EPSFRA)
+        pctsrf_t(:,is_sic,k)=0.0
+        pctsrf_t(:,is_oce,k)=0.0
+     ELSEWHERE
+        WHERE(pctsrf_t(:,is_sic,k)>=1.0-zmasq)
+           pctsrf_t(:,is_sic,k)=1.0-zmasq
+           pctsrf_t(:,is_oce,k)=0.0
+        ELSEWHERE
+           pctsrf_t(:,is_oce,k)=1.0-zmasq-pctsrf_t(:,is_sic,k)
+           WHERE(pctsrf_t(:,is_oce,k)<EPSFRA)
+              pctsrf_t(:,is_oce,k)=0.0
+              pctsrf_t(:,is_sic,k)=1.0-zmasq
+           END WHERE
+        END WHERE
+     END WHERE
+     nbad=COUNT(pctsrf_t(:,is_oce,k)<0.0)
+     IF(nbad>0) WRITE(lunout,*) 'pb sous maille pour nb points = ',nbad
+     nbad=COUNT(ABS(SUM(pctsrf_t(:,:,k),DIM=2)-1.0)>EPSFRA)
+     IF(nbad>0) WRITE(lunout,*) 'pb sous surface pour nb points = ',nbad
+  END DO
+  DEALLOCATE(phy_ice)
+
+!--- SST TREATMENT -------------------------------------------------------------
+  CALL msg(1,'Traitement de la sst')
+
+! Input SST file selection
+! Open file only to test if available
+  DO ix_sst=1,SIZE(fsst)
+     IF ( NF90_OPEN(TRIM(fsst(ix_sst)),NF90_NOWRITE,nid)==NF90_NOERR ) THEN
+       sstfile=fsst(ix_sst); varname=vsst(ix_sst); EXIT
+     END IF
+  END DO
+  IF(ix_sst==SIZE(fsst)+1) THEN
+     WRITE(lunout,*) 'ERROR! No sst input file was found.'
+     WRITE(lunout,*) 'One of following files must be available : '
+     DO k=1,SIZE(fsst); WRITE(lunout,*) TRIM(fsst(k)); END DO
+     CALL abort_physic('limit_netcdf','No sst file was found',1)
+  END IF
+  CALL ncerr(NF90_CLOSE(nid),sstfile)
+  CALL msg(-1,'Fichier choisi pour la temperature de mer: '//TRIM(sstfile))
+
+  CALL get_2Dfield(sstfile,varname,'SST',ndays,phy_sst,flag=extrap)
+
+!--- ALBEDO TREATMENT ----------------------------------------------------------
+  CALL msg(1,'Traitement de l albedo')
+  CALL get_2Dfield(falbe,valb,'ALB',ndays,phy_alb)
+
+!--- REFERENCE GROUND HEAT FLUX TREATMENT --------------------------------------
+  ALLOCATE(phy_bil(klon,ndays)); phy_bil=0.0
+
+!--- OUTPUT FILE WRITING -------------------------------------------------------
+  CALL msg(5,'Ecriture du fichier limit : debut')
+  fnam="limit.nc"
+
+  !--- File creation
+  CALL ncerr(NF90_CREATE(fnam,NF90_CLOBBER,nid),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,NF90_GLOBAL,"title","Fichier conditions aux limites"),fnam)
+
+  !--- Dimensions creation
+  CALL ncerr(NF90_DEF_DIM(nid,"points_physiques",klon,ndim),fnam)
+  CALL ncerr(NF90_DEF_DIM(nid,"time",NF90_UNLIMITED,ntim),fnam)
+
+  dims=[ndim,ntim]
+
+  !--- Variables creation
+  CALL ncerr(NF90_DEF_VAR(nid,"TEMPS",NF90_FORMAT,[ntim],id_tim),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"FOCE", NF90_FORMAT,dims,id_FOCE),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"FSIC", NF90_FORMAT,dims,id_FSIC),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"FTER", NF90_FORMAT,dims,id_FTER),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"FLIC", NF90_FORMAT,dims,id_FLIC),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"SST",  NF90_FORMAT,dims,id_SST),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"BILS", NF90_FORMAT,dims,id_BILS),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"ALB",  NF90_FORMAT,dims,id_ALB),fnam)
+  CALL ncerr(NF90_DEF_VAR(nid,"RUG",  NF90_FORMAT,dims,id_RUG),fnam)
+  call nf95_def_var(nid, "longitude", NF90_FLOAT, ndim, varid_longitude)
+  call nf95_def_var(nid, "latitude",  NF90_FLOAT, ndim, varid_latitude)
+
+  !--- Attributes creation
+  CALL ncerr(NF90_PUT_ATT(nid,id_tim, "title","Jour dans l annee"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_FOCE,"title","Fraction ocean"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_FSIC,"title","Fraction glace de mer"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_FTER,"title","Fraction terre"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_FLIC,"title","Fraction land ice"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_SST ,"title","Temperature superficielle de la mer"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_BILS,"title","Reference flux de chaleur au sol"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_ALB, "title","Albedo a la surface"),fnam)
+  CALL ncerr(NF90_PUT_ATT(nid,id_RUG, "title","Rugosite"),fnam)
+
+  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")
+
+  CALL ncerr(NF90_ENDDEF(nid),fnam)
+
+  !--- Variables saving
+  CALL ncerr(NF90_PUT_VAR(nid,id_tim,[(REAL(k),k=1,ndays)]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_FOCE,pctsrf_t(:,is_oce,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_FSIC,pctsrf_t(:,is_sic,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_FTER,pctsrf_t(:,is_ter,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_FLIC,pctsrf_t(:,is_lic,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_SST ,phy_sst(:,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_BILS,phy_bil(:,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_ALB ,phy_alb(:,:),[1,1],[klon,ndays]),fnam)
+  CALL ncerr(NF90_PUT_VAR(nid,id_RUG ,phy_rug(:,:),[1,1],[klon,ndays]),fnam)
+  call nf95_put_var(nid, varid_longitude, longitude_deg)
+  call nf95_put_var(nid, varid_latitude, latitude_deg)
+
+  CALL ncerr(NF90_CLOSE(nid),fnam)
+
+  CALL msg(6,'Ecriture du fichier limit : fin')
+
+  DEALLOCATE(pctsrf_t,phy_sst,phy_bil,phy_alb,phy_rug)
+
+
+!===============================================================================
+!
+  CONTAINS
+!
+!===============================================================================
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE get_2Dfield(fnam, varname, mode, ndays, champo, flag, mask)
+!
+!-----------------------------------------------------------------------------
+! Comments:
+!   There are two assumptions concerning the NetCDF files, that are satisfied
+!   with files that are conforming NC convention:
+!     1) The last dimension of the variables used is the time record.
+!     2) Dimensional variables have the same names as corresponding dimensions.
+!-----------------------------------------------------------------------------
+  USE netcdf, ONLY: NF90_OPEN, NF90_INQ_VARID, NF90_INQUIRE_VARIABLE, &
+       NF90_CLOSE, NF90_INQ_DIMID, NF90_INQUIRE_DIMENSION, NF90_GET_VAR, &
+       NF90_GET_ATT
+  USE pchsp_95_m, only: pchsp_95
+  USE pchfe_95_m, only: pchfe_95
+  USE arth_m, only: arth
+  USE indice_sol_mod
+
+  IMPLICIT NONE
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom2.h"
+!-----------------------------------------------------------------------------
+! Arguments:
+  CHARACTER(LEN=*),  INTENT(IN)     :: fnam     ! NetCDF file name
+  CHARACTER(LEN=10), INTENT(IN)     :: varname  ! NetCDF variable name
+  CHARACTER(LEN=3),  INTENT(IN)     :: mode     ! RUG, SIC, SST or ALB
+  INTEGER,           INTENT(IN)     :: ndays    ! current year number of days
+  REAL,    POINTER,  DIMENSION(:, :) :: champo  ! output field = f(t)
+  LOGICAL, OPTIONAL, INTENT(IN)     :: flag     ! extrapol. (SST) old ice (SIC)
+  REAL,    OPTIONAL, DIMENSION(iim, jjp1), INTENT(IN) :: mask
+!------------------------------------------------------------------------------
+! Local variables:
+!--- NetCDF
+  INTEGER           :: ncid, varid        ! NetCDF identifiers
+  CHARACTER(LEN=30) :: dnam               ! dimension name
+!--- dimensions
+  INTEGER           :: dids(4)            ! NetCDF dimensions identifiers
+  REAL, ALLOCATABLE :: dlon_ini(:)        ! initial longitudes vector
+  REAL, ALLOCATABLE :: dlat_ini(:)        ! initial latitudes  vector
+  REAL, POINTER     :: dlon(:), dlat(:)   ! reordered lon/lat  vectors
+!--- fields
+  INTEGER :: imdep, jmdep, lmdep          ! dimensions of 'champ'
+  REAL, ALLOCATABLE :: champ(:,:)         ! wanted field on initial grid
+  REAL, ALLOCATABLE :: yder(:), timeyear(:)
+  REAL              :: champint(iim,jjp1) ! interpolated field
+  REAL, ALLOCATABLE :: champtime(:,:,:)
+  REAL, ALLOCATABLE :: champan(:,:,:)
+!--- input files
+  CHARACTER(LEN=20) :: fnam_m, fnam_p     ! previous/next files names
+  CHARACTER(LEN=20) :: cal_in             ! calendar
+  CHARACTER(LEN=20) :: unit_sic           ! attribute unit in sea-ice file
+  INTEGER           :: ndays_in           ! number of days
+!--- misc
+  INTEGER           :: i, j, k, l, ll     ! loop counters
+  REAL, ALLOCATABLE :: work(:,:)          ! used for extrapolation
+  CHARACTER(LEN=128):: title, mess        ! for messages
+  LOGICAL           :: extrp              ! flag for extrapolation
+  REAL              :: chmin, chmax
+  INTEGER ierr, idx
+  integer n_extrap ! number of extrapolated points
+  logical skip
+
+!------------------------------------------------------------------------------
+!---Variables depending on keyword 'mode' -------------------------------------
+  NULLIFY(champo)
+
+  SELECT CASE(mode)
+  CASE('RUG'); title='Rugosite'
+  CASE('SIC'); title='Sea-ice'
+  CASE('SST'); title='SST'
+  CASE('ALB'); title='Albedo'
+  END SELECT
+  extrp=.FALSE.; IF(PRESENT(flag).AND.mode=='SST') extrp=flag
+  idx=INDEX(fnam,'.nc')-1
+
+!--- GETTING SOME DIMENSIONAL VARIABLES FROM FILE -----------------------------
+  CALL msg(5,' Now reading file : '//TRIM(fnam))
+  CALL ncerr(NF90_OPEN(fnam, NF90_NOWRITE, ncid),fnam)
+  CALL ncerr(NF90_INQ_VARID(ncid, trim(varname), varid),fnam)
+  CALL ncerr(NF90_INQUIRE_VARIABLE(ncid, varid, dimids=dids),fnam)
+
+!--- Read unit for sea-ice variable only
+  IF (mode=='SIC') THEN
+    IF(NF90_GET_ATT(ncid, varid, 'units', unit_sic)/=NF90_NOERR) THEN
+      CALL msg(5,'No unit in sea-ice file. Take percentage as default value')
+      unit_sic='X'
+    ELSE
+      CALL msg(5,'Sea-ice cover has unit='//TRIM(unit_sic))
+    END IF
+  END IF
+
+!--- Longitude
+  CALL ncerr(NF90_INQUIRE_DIMENSION(ncid, dids(1), name=dnam, len=imdep),fnam)
+  ALLOCATE(dlon_ini(imdep), dlon(imdep))
+  CALL ncerr(NF90_INQ_VARID(ncid, dnam, varid), fnam)
+  CALL ncerr(NF90_GET_VAR(ncid, varid, dlon_ini), fnam)
+  CALL msg(5,'variable '//TRIM(dnam)//' dimension ', imdep)
+
+!--- Latitude
+  CALL ncerr(NF90_INQUIRE_DIMENSION(ncid, dids(2), name=dnam, len=jmdep),fnam)
+  ALLOCATE(dlat_ini(jmdep), dlat(jmdep))
+  CALL ncerr(NF90_INQ_VARID(ncid, dnam, varid), fnam)
+  CALL ncerr(NF90_GET_VAR(ncid, varid, dlat_ini), fnam)
+  CALL msg(5,'variable '//TRIM(dnam)//' dimension ', jmdep)
+
+!--- Time (variable is not needed - it is rebuilt - but calendar is)
+  CALL ncerr(NF90_INQUIRE_DIMENSION(ncid, dids(3), name=dnam, len=lmdep), fnam)
+  ALLOCATE(timeyear(lmdep+2))
+  CALL ncerr(NF90_INQ_VARID(ncid, dnam, varid), fnam)
+  cal_in=' '
+  IF(NF90_GET_ATT(ncid, varid, 'calendar', cal_in)/=NF90_NOERR) THEN
+    SELECT CASE(mode)
+      CASE('RUG', 'ALB'); cal_in='360d'
+      CASE('SIC', 'SST'); cal_in='gregorian'
+    END SELECT
+  CALL msg(5,'WARNING: missing "calendar" attribute for "time" in '&
+     &//TRIM(fnam)//'. Choosing default value.')
+  END IF
+  CALL msg(5,'var, calendar, dim: '//TRIM(dnam)//' '//TRIM(cal_in), lmdep)
+  
+!--- Determining input file number of days, depending on calendar
+  ndays_in=year_len(anneeref, cal_in)
+
+!--- Rebuilding input time vector (field from input file might be unreliable)
+  IF(lmdep==12) THEN
+    timeyear=mid_month(anneeref, cal_in, ndays_in)
+    CALL msg(0,'Monthly input file(s) for '//TRIM(title)//'.')
+  ELSE IF(lmdep==ndays_in) THEN
+    timeyear=[(REAL(k)-0.5,k=0,ndays_in+1)]
+    CALL msg(0,'Daily input file (no time interpolation).')
+  ELSE
+    WRITE(mess,'(a,i3,a,i3,a)')'Mismatching input file: found',lmdep,        &
+      ' records, 12/',ndays_in,' (monthly/daily needed).'
+    CALL abort_physic('mid_months',TRIM(mess),1)
+  END IF
+
+!--- GETTING THE FIELD AND INTERPOLATING IT ----------------------------------
+  ALLOCATE(champ(imdep, jmdep), champtime(iim, jjp1, lmdep+2))
+  IF(extrp) ALLOCATE(work(imdep, jmdep))
+  CALL msg(5,'')
+  CALL msg(5,'LECTURE ET INTERPOLATION HORIZ. DE ', lmdep, ' CHAMPS.')
+  CALL ncerr(NF90_INQ_VARID(ncid, varname, varid), fnam)
+  DO l=1, lmdep
+    CALL ncerr(NF90_GET_VAR(ncid,varid,champ,[1,1,l],[imdep,jmdep,1]),fnam)
+    CALL conf_dat2d(title, dlon_ini, dlat_ini, dlon, dlat, champ, .TRUE.)
+    IF(extrp) CALL extrapol(champ,imdep,jmdep,999999.,.TRUE.,.TRUE.,2,work)
+    IF(l==1) THEN
+      CALL msg(5,"----------------------------------------------------------")
+      CALL msg(5,"$$$ Interpolation barycentrique pour "//TRIM(title)//" $$$")
+      CALL msg(5,"----------------------------------------------------------")
+    END IF
+    IF(mode=='RUG') champ=LOG(champ)
+    CALL inter_barxy(dlon,dlat(:jmdep-1),champ,rlonu(:iim),rlatv,champint)
+    IF(mode=='RUG') THEN
+      champint=EXP(champint)
+      WHERE(NINT(mask)/=1) champint=0.001
+    END IF
+    champtime(:, :, l+1)=champint
+  END DO
+  CALL ncerr(NF90_CLOSE(ncid), fnam)
+
+!--- FIRST RECORD: LAST ONE OF PREVIOUS YEAR (CURRENT YEAR IF UNAVAILABLE)
+  fnam_m=fnam(1:idx)//'_m.nc'
+  IF(NF90_OPEN(fnam_m,NF90_NOWRITE,ncid)==NF90_NOERR) THEN
+    CALL msg(0,'Reading previous year file ("'//TRIM(fnam_m)//'") last record for '//TRIM(title))
+    CALL ncerr(NF90_INQ_VARID(ncid, varname, varid),fnam_m)
+    CALL ncerr(NF90_INQUIRE_VARIABLE(ncid, varid, dimids=dids),fnam_m)
+    CALL ncerr(NF90_INQUIRE_DIMENSION(ncid, dids(3), len=l), fnam_m)
+    CALL ncerr(NF90_GET_VAR(ncid,varid,champ,[1,1,l],[imdep,jmdep,1]),fnam_m)
+    CALL ncerr(NF90_CLOSE(ncid), fnam_m)
+    CALL conf_dat2d(title, dlon_ini, dlat_ini, dlon, dlat, champ, .TRUE.)
+    IF(extrp) CALL extrapol(champ,imdep,jmdep,999999.,.TRUE.,.TRUE.,2,work)
+    IF(mode=='RUG') champ=LOG(champ)
+    CALL inter_barxy(dlon,dlat(:jmdep-1),champ,rlonu(:iim),rlatv,champint)
+    IF(mode=='RUG') THEN
+      champint=EXP(champint)
+      WHERE(NINT(mask)/=1) champint=0.001
+    END IF
+    champtime(:, :, 1)=champint
+  ELSE
+    CALL msg(0,'Using current year file ("'//TRIM(fnam)//'") last record for '//TRIM(title))
+    champtime(:, :, 1)=champtime(:, :, lmdep+1)
+  END IF
+
+!--- LAST RECORD: FIRST ONE OF NEXT YEAR (CURRENT YEAR IF UNAVAILABLE)
+  fnam_p=fnam(1:idx)//'_p.nc'
+  IF(NF90_OPEN(fnam_p,NF90_NOWRITE,ncid)==NF90_NOERR) THEN
+    CALL msg(0,'Reading previous year file ("'//TRIM(fnam_p)//'") first record for '//TRIM(title))
+    CALL ncerr(NF90_INQ_VARID(ncid, varname, varid),fnam_p)
+    CALL ncerr(NF90_GET_VAR(ncid,varid,champ,[1,1,1],[imdep,jmdep,1]),fnam_p)
+    CALL ncerr(NF90_CLOSE(ncid), fnam_p)
+    CALL conf_dat2d(title, dlon_ini, dlat_ini, dlon, dlat, champ, .TRUE.)
+    IF(extrp) CALL extrapol(champ,imdep,jmdep,999999.,.TRUE.,.TRUE.,2,work)
+    IF(mode=='RUG') champ=LOG(champ)
+    CALL inter_barxy(dlon,dlat(:jmdep-1),champ,rlonu(:iim),rlatv,champint)
+    IF(mode=='RUG') THEN
+      champint=EXP(champint)
+      WHERE(NINT(mask)/=1) champint=0.001
+    END IF
+    champtime(:, :, lmdep+2)=champint
+  ELSE
+    CALL msg(0,'Using current year file ("'//TRIM(fnam)//'") first record for '//TRIM(title))
+    champtime(:, :, lmdep+2)=champtime(:, :, 2)
+  END IF
+  DEALLOCATE(dlon_ini, dlat_ini, dlon, dlat, champ)
+  IF(extrp) DEALLOCATE(work)
+
+!--- TIME INTERPOLATION ------------------------------------------------------
+  IF(prt_level>0) THEN
+     IF(ndays/=ndays_in) THEN
+        WRITE(lunout, *)
+        WRITE(lunout,*)'DIFFERENTES LONGEURS D ANNEES:'
+        WRITE(lunout,*)' Dans le fichier d entree: ',ndays_in
+        WRITE(lunout,*)' Dans le fichier de sortie: ',ndays
+     END IF
+     IF(lmdep==ndays_in) THEN
+        WRITE(lunout, *)
+        WRITE(lunout, *)'PAS D INTERPOLATION TEMPORELLE.'
+        WRITE(lunout, *)' Fichier journalier en entree.'
+     ELSE
+        WRITE(lunout, *)'INTERPOLATION TEMPORELLE.'
+        WRITE(lunout, *)' Vecteur temps en entree: ', timeyear
+        WRITE(lunout, *)' Vecteur temps en sortie de 0 a ', ndays-1
+     END IF
+  END IF
+  ALLOCATE(yder(lmdep+2), champan(iip1, jjp1, ndays))
+  IF(lmdep==ndays_in) THEN
+     champan(1:iim,:,:)=champtime
+  ELSE
+     skip = .false.
+     n_extrap = 0
+     DO j=1, jjp1
+       DO i=1, iim
+         yder = pchsp_95(timeyear, champtime(i, j, :), ibeg=2, iend=2, &
+              vc_beg=0., vc_end=0.)
+         CALL pchfe_95(timeyear, champtime(i, j, :), yder, skip, &
+              arth(0., real(ndays_in) / ndays, ndays), champan(i, j, :), ierr)
+         if (ierr < 0) stop 1
+         n_extrap = n_extrap + ierr
+       END DO
+     END DO
+     IF(n_extrap /= 0) WRITE(lunout,*) "get_2Dfield pchfe_95: n_extrap = ", n_extrap
+  END IF
+  champan(iip1, :, :)=champan(1, :, :)
+  DEALLOCATE(yder, champtime, timeyear)
+
+!--- Checking the result
+  DO j=1, jjp1
+    CALL minmax(iip1, champan(1, j, 10), chmin, chmax)
+    IF (prt_level>5) WRITE(lunout, *)' ',TRIM(title),' au temps 10 ', chmin, chmax, j
+  END DO
+
+!--- SPECIAL FILTER FOR SST: SST>271.38 --------------------------------------
+  IF(mode=='SST') THEN
+    CALL msg(5,'Filtrage de la SST: SST >= 271.38')
+    WHERE(champan<271.38) champan=271.38
+  END IF
+
+!--- SPECIAL FILTER FOR SIC: 0.0<SIC<1.0 -------------------------------------
+  IF(mode=='SIC') THEN
+    CALL msg(5,'Filtrage de la SIC: 0.0 < Sea-ice < 1.0')
+
+    IF (unit_sic=='1') THEN
+       ! Nothing to be done for sea-ice field is already in fraction of 1
+       ! This is the case for sea-ice in file cpl_atm_sic.nc
+       CALL msg(5,'Sea-ice field already in fraction of 1')
+    ELSE
+       ! Convert sea ice from percentage to fraction of 1
+       CALL msg(5,'Transformt sea-ice field from percentage to fraction of 1.')
+       champan(:, :, :)=champan(:, :, :)/100.
+    END IF
+
+    champan(iip1, :, :)=champan(1, :, :)
+    WHERE(champan>1.0) champan=1.0
+    WHERE(champan<0.0) champan=0.0
+ END IF
+
+!--- DYNAMICAL TO PHYSICAL GRID ----------------------------------------------
+  ALLOCATE(champo(klon, ndays))
+  DO k=1, ndays
+    CALL gr_dyn_fi(1, iip1, jjp1, klon, champan(1, 1, k), champo(1, k))
+  END DO
+  DEALLOCATE(champan)
+
+END SUBROUTINE get_2Dfield
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE start_init_orog0(lon_in,lat_in,phis,masque)
+!
+!-------------------------------------------------------------------------------
+  USE grid_noro_m, ONLY: grid_noro0
+  IMPLICIT NONE
+!===============================================================================
+! Purpose:  Compute "phis" just like it would be in start_init_orog.
+!===============================================================================
+! Arguments:
+  REAL,             INTENT(IN)    :: lon_in(:), lat_in(:)   ! dim (iml) (jml)
+  REAL,             INTENT(INOUT) :: phis(:,:), masque(:,:) ! dim (iml,jml)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="start_init_orog0"
+  INTEGER            :: fid, llm_tmp,ttm_tmp, iml,jml, iml_rel,jml_rel, itau(1)
+  REAL               :: lev(1), date, dt, deg2rad
+  REAL, ALLOCATABLE  :: lon_rad(:), lon_ini(:), lon_rel(:,:), relief_hi(:,:)
+  REAL, ALLOCATABLE  :: lat_rad(:), lat_ini(:), lat_rel(:,:)
+!-------------------------------------------------------------------------------
+  iml=assert_eq(SIZE(lon_in),SIZE(phis,1),SIZE(masque,1),TRIM(modname)//" iml")
+  jml=assert_eq(SIZE(lat_in),SIZE(phis,2),SIZE(masque,2),TRIM(modname)//" jml")
+  IF(iml/=iip1) CALL abort_gcm(TRIM(modname),'iml/=iip1',1)
+  IF(jml/=jjp1) CALL abort_gcm(TRIM(modname),'jml/=jjp1',1)
+  pi=2.0*ASIN(1.0); deg2rad=pi/180.0
+  IF(ANY(phis/=-99999.)) RETURN                  !--- phis ALREADY KNOWN
+
+!--- HIGH RESOLUTION OROGRAPHY
+  CALL flininfo(frelf, iml_rel, jml_rel, llm_tmp, ttm_tmp, fid)
+
+  ALLOCATE(lat_rel(iml_rel,jml_rel),lon_rel(iml_rel,jml_rel))
+  CALL flinopen(frelf, .FALSE., iml_rel, jml_rel, llm_tmp, lon_rel, lat_rel,   &
+                lev, ttm_tmp, itau, date, dt, fid)
+  ALLOCATE(relief_hi(iml_rel,jml_rel))
+  CALL flinget(fid, vrel, iml_rel, jml_rel, llm_tmp, ttm_tmp, 1, 1, relief_hi)
+  CALL flinclo(fid)
+
+!--- IF ANGLES ARE IN DEGREES, THEY ARE CONVERTED INTO RADIANS
+  ALLOCATE(lon_ini(iml_rel),lat_ini(jml_rel))
+  lon_ini(:)=lon_rel(:,1); IF(MAXVAL(lon_rel)>pi) lon_ini=lon_ini*deg2rad
+  lat_ini(:)=lat_rel(1,:); IF(MAXVAL(lat_rel)>pi) lat_ini=lat_ini*deg2rad
+
+!--- FIELDS ARE PROCESSED TO BE ON STANDARD ANGULAR DOMAINS
+  ALLOCATE(lon_rad(iml_rel),lat_rad(jml_rel))
+  CALL conf_dat2d(vrel, lon_ini, lat_ini, lon_rad, lat_rad, relief_hi, .FALSE.)
+  DEALLOCATE(lon_ini,lat_ini)
+
+!--- COMPUTING SURFACE GEOPOTENTIAL USING ROUTINE grid_noro0
+  WRITE(lunout,*)
+  WRITE(lunout,*)'*** Compute surface geopotential ***'
+
+!--- CALL OROGRAPHY MODULE (REDUCED VERSION) TO COMPUTE FIELDS
+  CALL grid_noro0(lon_rad, lat_rad, relief_hi, lon_in, lat_in, phis, masque)
+  phis = phis * 9.81
+  phis(iml,:) = phis(1,:)
+  DEALLOCATE(relief_hi,lon_rad,lat_rad)
+
+END SUBROUTINE start_init_orog0
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+FUNCTION year_len(y,cal_in)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  INTEGER                       :: year_len
+  INTEGER,           INTENT(IN) :: y
+  CHARACTER(LEN=*),  INTENT(IN) :: cal_in
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=20)             :: cal_out              ! calendar (for outputs)
+!-------------------------------------------------------------------------------
+!--- Getting the input calendar to reset at the end of the function
+  CALL ioget_calendar(cal_out)
+
+!--- Unlocking calendar and setting it to wanted one
+  CALL lock_calendar(.FALSE.); CALL ioconf_calendar(TRIM(cal_in))
+
+!--- Getting the number of days in this year
+  year_len=ioget_year_len(y)
+
+!--- Back to original calendar
+  CALL lock_calendar(.FALSE.); CALL ioconf_calendar(TRIM(cal_out))
+
+END FUNCTION year_len
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+FUNCTION mid_month(y,cal_in,ndays_out)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  INTEGER,          INTENT(IN) :: y           ! year
+  CHARACTER(LEN=*), INTENT(IN) :: cal_in      ! calendar
+  INTEGER,          INTENT(IN) :: ndays_out   ! days   number
+  REAL,          DIMENSION(14) :: mid_month   ! mid-bins times
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=99)      :: mess              ! error message
+  CHARACTER(LEN=20)      :: cal_out           ! output calendar
+  INTEGER, DIMENSION(14) :: tlen              ! months lengths (days)
+  INTEGER                :: m                 ! months counter
+  INTEGER                :: nd                ! number of days
+!-------------------------------------------------------------------------------
+  !--- Save the input calendar to reset it at the end of the function
+  CALL ioget_calendar(cal_out)
+
+  !--- Unlock calendar and set it to "cal_in"
+  CALL lock_calendar(.FALSE.); CALL ioconf_calendar(TRIM(cal_in))
+
+  !--- Get the length of each month
+  tlen(1 )=ioget_mon_len(y-1,12)
+  DO m=1,12; tlen(m+1)=ioget_mon_len(y,m); END DO
+  tlen(14)=ioget_mon_len(y+1, 1)
+
+  !--- Mid-bins times
+  mid_month(1)=-0.5*REAL(tlen(1))
+  DO m=2,14; mid_month(m)=mid_month(m-1)+0.5*REAL(tlen(m-1)+tlen(m)); END DO
+
+  !--- Back to original calendar
+  CALL lock_calendar(.FALSE.); CALL ioconf_calendar(TRIM(cal_out))
+
+END FUNCTION mid_month
+!
+!-------------------------------------------------------------------------------
+
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE msg(lev,str1,i,str2)
+!
+!-------------------------------------------------------------------------------
+! Arguments:
+  INTEGER,                    INTENT(IN) :: lev
+  CHARACTER(LEN=*),           INTENT(IN) :: str1
+  INTEGER,          OPTIONAL, INTENT(IN) :: i
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: str2
+!-------------------------------------------------------------------------------
+  IF(prt_level>lev) THEN
+    IF(PRESENT(str2)) THEN
+      WRITE(lunout,*) TRIM(str1), i, TRIM(str2)
+    ELSE IF(PRESENT(i)) THEN
+      WRITE(lunout,*) TRIM(str1), i
+    ELSE
+      WRITE(lunout,*) TRIM(str1)
+    END IF
+  END IF
+
+END SUBROUTINE msg
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE ncerr(ncres,fnam)
+!
+!-------------------------------------------------------------------------------
+! Purpose: NetCDF errors handling.
+!-------------------------------------------------------------------------------
+  USE netcdf, ONLY : NF90_NOERR, NF90_STRERROR
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  INTEGER,          INTENT(IN) :: ncres
+  CHARACTER(LEN=*), INTENT(IN) :: fnam
+!-------------------------------------------------------------------------------
+  IF(ncres/=NF90_NOERR) THEN
+    WRITE(lunout,*)'Problem with file '//TRIM(fnam)//' in routine limit_netcdf.'
+    CALL abort_physic('limit_netcdf',NF90_STRERROR(ncres),1)
+  END IF
+
+END SUBROUTINE ncerr
+!
+!-------------------------------------------------------------------------------
+
+#endif
+! of #ifndef CPP_1D
+END SUBROUTINE limit_netcdf
+
+END MODULE limit
+!
+!*******************************************************************************
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/test_disvert_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/test_disvert_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phylmd/test_disvert_m.F90	(revision 3330)
@@ -0,0 +1,66 @@
+module test_disvert_m
+
+  implicit none
+
+contains
+
+  subroutine test_disvert
+
+    ! Author: Lionel GUEZ
+
+    ! This procedure tests the order of pressure values at half-levels
+    ! and full levels. We arbitrarily choose to test ngrid values of
+    ! the surface pressure, which sample possible values on Earth.
+
+    use exner_hyb_m, only: exner_hyb
+    use vertical_layers_mod, only: ap,bp,preff
+    use comconst_mod, only: kappa, cpp
+
+    ! For llm:
+    include "dimensions.h"
+
+    ! Local:
+    integer l, i
+    integer, parameter:: ngrid = 7
+    real p(ngrid, llm + 1) ! pressure at half-level, in Pa
+    real pks(ngrid) ! exner function at the surface, in J K-1 kg-1 
+    real pk(ngrid, llm) ! exner function at full level, in J K-1 kg-1 
+    real ps(ngrid) ! surface pressure, in Pa
+    real p_lay(ngrid, llm) ! pressure at full level, in Pa
+    real delta_ps ! in Pa
+
+    !---------------------
+
+    print *, "Call sequence information: test_disvert"
+
+    delta_ps = 6e4 / (ngrid - 1)
+    ps = (/(5e4 + delta_ps * i, i = 0, ngrid - 1)/)
+    forall (l = 1: llm + 1) p(:, l) = ap(l) + bp(l) * ps
+    call exner_hyb(ngrid, ps, p, pks, pk)
+    p_lay = preff * (pk / cpp)**(1. / kappa)
+
+    ! Are pressure values in the right order?
+    if (any(p(:, :llm) <= p_lay .or. p_lay <= p(:, 2:))) then
+       ! List details and stop:
+       do l = 1, llm
+          do i = 1, ngrid
+             if (p(i, l) <= p_lay(i, l)) then
+                print 1000, "ps = ", ps(i) / 100., "hPa, p(level ",  l, &
+                     ") = ", p(i, l) / 100., " hPa <= p(layer ", l, ") = ", &
+                     p_lay(i, l) / 100., " hPa"
+             end if
+             if (p_lay(i, l) <= p(i, l + 1)) then
+                print 1000, "ps = ", ps(i) / 100., "hPa, p(layer ", l, ") = ", &
+                     p_lay(i, l) / 100., " hPa <= p(level ", l + 1, ") = ", &
+                     p(i, l + 1) / 100., " hPa"
+             end if
+          end do
+       end do
+       call abort_physic("test_disvert", "bad order of pressure values", 1)
+    end if
+
+1000 format (3(a, g10.4, a, i0))
+
+  end subroutine test_disvert
+
+end module test_disvert_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phymar/callphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phymar/callphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phymar/callphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,97 @@
+!
+! $Id: $
+!
+MODULE callphysiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
+SUBROUTINE call_physiq(klon,llm,nqtot,tname,                              &
+                       debut_split,lafin_split,                           &
+                       jD_cur,jH_cur_split,zdt_split,                     &
+                       zplev_omp,zplay_omp,                               &
+                       zphi_omp,zphis_omp,                                &
+                       presnivs_omp,                                      &
+                       zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
+                       flxwfi_omp,pducov,                                 &
+                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
+
+
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+  USE control_mod, ONLY: planet_type
+  USE physiq_mod, ONLY: physiq
+  IMPLICIT NONE
+
+  INTEGER,INTENT(IN) :: klon ! (local) number of atmospheric columns
+  INTEGER,INTENT(IN) :: llm  ! number of atmospheric layers
+  INTEGER,INTENT(IN) :: nqtot ! number of tracers
+  CHARACTER(len=*),INTENT(IN) :: tname(nqtot) ! tracer names
+  LOGICAL,INTENT(IN) :: debut_split ! .true. if very first call to physics
+  LOGICAL,INTENT(IN) :: lafin_split ! .true. if last call to physics
+  REAL,INTENT(IN) :: JD_cur ! Julian day
+  REAL,INTENT(IN) :: JH_cur_split ! Julian hour (fraction of day)
+  REAL,INTENT(IN) :: zdt_split ! time step over which the physics are evaluated
+  REAL,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa)
+  REAL,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa)
+  REAL,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer
+  REAL,INTENT(IN) :: zphis_omp(klon) ! surface geopotential
+  REAL,INTENT(IN) :: presnivs_omp(llm) ! approximate pressure of atm. layers
+  REAL,INTENT(IN) :: zufi_omp(klon,llm) ! zonal wind (m/s)
+  REAL,INTENT(IN) :: zvfi_omp(klon,llm) ! meridional wind (m/s)
+  REAL,INTENT(IN) :: zrfi_omp(klon,llm) ! relative wind vorticity, in s-1
+  REAL,INTENT(IN) :: ztfi_omp(klon,llm) ! temperature (K)
+  REAL,INTENT(IN) :: zqfi_omp(klon,llm,nqtot) ! tracers (*/kg of air)
+  REAL,INTENT(IN) :: flxwfi_omp(klon,llm) ! Vertical mass flux on lower mesh interfaces (kg/s) 
+  REAL,INTENT(IN) :: pducov(nbp_lon+1,nbp_lat,llm) ! dynamical tendency on ucov
+  ! tendencies (in */s) from the physics:
+  REAL,INTENT(OUT) :: zdufi_omp(klon,llm) ! tendency on zonal winds
+  REAL,INTENT(OUT) :: zdvfi_omp(klon,llm) ! tendency on meridional winds
+  REAL,INTENT(OUT) :: zdtfi_omp(klon,llm) ! tendency on temperature
+  REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
+  REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
+  
+  ! Local variables
+  CHARACTER(len=11) :: modname="call_physiq"
+  LOGICAL,SAVE :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall)
+
+! Sanity check on physics package type
+  IF (firstcall) THEN
+    IF (planet_type.ne."earth") THEN
+      CALL abort_gcm(modname,"wrong planet_type for this physics package",1)
+    ENDIF
+    firstcall=.false.
+  ENDIF
+
+
+! Call physics package with required inputs/outputs
+  CALL physiq(klon,           &
+              llm,            &
+              debut_split,    &
+              lafin_split,    &
+              jD_cur,         &
+              jH_cur_split,   &
+              zdt_split,      &
+              zplev_omp,      &
+              zplay_omp,      &
+              zphi_omp,       &
+              zphis_omp,      &
+              presnivs_omp,   &
+              zufi_omp,       &
+              zvfi_omp,       &
+              zrfi_omp,       &
+              ztfi_omp,       &
+              zqfi_omp,       &
+              flxwfi_omp,     &
+              zdufi_omp,      &
+              zdvfi_omp,      &
+              zdtfi_omp,      &
+              zdqfi_omp,      &
+              zdpsrf_omp,     &
+              pducov)
+
+
+END SUBROUTINE call_physiq
+
+END MODULE callphysiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phymar/iniphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phymar/iniphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/dynphy_lonlat/phymar/iniphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,100 @@
+!
+! $Id: iniphysiq.F 1403 2010-07-01 09:02:53Z fairhead $
+!
+MODULE iniphysiq_mod
+
+CONTAINS
+
+SUBROUTINE iniphysiq(ii,jj,nlayer, &
+                     nbp, communicator, &
+                     punjours, pdayref,ptimestep, &
+                     rlatu,rlatv,rlonu,rlonv,aire,cu,cv,         &
+                     prad,pg,pr,pcpp,iflag_phys)
+  USE dimphy, ONLY: init_dimphy
+  USE comvert_mod, ONLY: preff, ap, bp, presnivs, scaleheight, pseudoalt
+  USE inigeomphy_mod, ONLY: inigeomphy
+  USE vertical_layers_mod, ONLY : init_vertical_layers
+  USE infotrac, ONLY: nqtot
+  USE comcstphy, ONLY: rradius, & ! planet radius (m)
+                       rr, & ! recuced gas constant: R/molar mass of atm
+                       rg, & ! gravity
+                       rcpp  ! specific heat of the atmosphere
+  USE infotrac_phy, ONLY: init_infotrac_phy
+  USE nrtype, ONLY: pi
+  IMPLICIT NONE
+  !
+  !=======================================================================
+  !   Initialisation of the physical constants and some positional and 
+  !   geometrical arrays for the physics
+  !=======================================================================
+ 
+ 
+  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) :: nlayer ! number of atmospheric layers
+  INTEGER, INTENT (IN) :: ii ! number of atmospheric coulumns along longitudes
+  INTEGER, INTENT (IN) :: jj  ! number of atompsheric columns along latitudes
+  INTEGER, INTENT(IN) :: nbp ! number of physics columns for this MPI process
+  INTEGER, INTENT(IN) :: communicator ! MPI communicator
+  REAL, INTENT (IN) :: rlatu(jj+1) ! latitudes of the physics grid
+  REAL, INTENT (IN) :: rlatv(jj) ! latitude boundaries of the physics grid
+  REAL, INTENT (IN) :: rlonv(ii+1) ! longitudes of the physics grid
+  REAL, INTENT (IN) :: rlonu(ii+1) ! longitude boundaries of the physics grid
+  REAL, INTENT (IN) :: aire(ii+1,jj+1) ! area of the dynamics grid (m2)
+  REAL, INTENT (IN) :: cu((ii+1)*(jj+1)) ! cu coeff. (u_covariant = cu * u)
+  REAL, INTENT (IN) :: cv((ii+1)*jj) ! 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
+  INTEGER :: i,j,k
+  CHARACTER (LEN=20) :: modname='iniphysiq'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  ! --> initialize physics distribution, global fields and geometry
+  ! (i.e. things in phy_common or dynphy_lonlat)
+  CALL inigeomphy(ii,jj,nlayer, &
+               nbp, communicator, &
+               rlatu,rlatv, &
+               rlonu,rlonv, &
+               aire,cu,cv)
+
+  ! --> now initialize things specific to the phymar physics package
+  
+!$OMP PARALLEL
+
+  ! copy over preff , ap(), bp(), etc 
+  CALL init_vertical_layers(nlayer,preff,scaleheight, &
+                            ap,bp,presnivs,pseudoalt)
+
+  ! Initialize tracer names, numbers, etc. for physics
+  CALL init_infotrac_phy(nqtot)
+
+! 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
+
+END SUBROUTINE iniphysiq
+
+END MODULE iniphysiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/acc.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/acc.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/acc.F	(revision 3330)
@@ -0,0 +1,22 @@
+!
+! $Header$
+!
+        subroutine acc(vec,d,im)
+        implicit none
+        integer :: im
+        real :: vec(im,im),d(im)
+        integer :: i,j
+        real ::sum
+        real,external :: ssum
+        do j=1,im
+          do i=1,im
+            d(i)=vec(i,j)*vec(i,j)
+          enddo
+          sum=ssum(im,d,1)
+          sum=sqrt(sum)
+          do i=1,im
+            vec(i,j)=vec(i,j)/sum
+          enddo
+        enddo
+        return
+        end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/coefils.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/coefils.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/coefils.h	(revision 3330)
@@ -0,0 +1,16 @@
+!
+! $Id $
+!
+      COMMON/coefils/jfiltnu,jfiltsu,jfiltnv,jfiltsv,sddu(iim),sddv(iim)&
+     & ,unsddu(iim),unsddv(iim),coefilu(iim,jjm),coefilv(iim,jjm),      &
+     & modfrstu(jjm),modfrstv(jjm),eignfnu(iim,iim),eignfnv(iim,iim)    &
+     & ,coefilu2(iim,jjm),coefilv2(iim,jjm)
+!c
+      INTEGER jfiltnu ! index of the last lat line filtered in NH (U grid)
+      INTEGER jfiltsu ! index of the first lat line filtered in SH (U grid)
+      INTEGER jfiltnv ! index of the last lat line filtered in NH (V grid)
+      INTEGER jfiltsv ! index of the first lat line filtered in SH (V grid)
+      INTEGER modfrstu ! number of retained (ie: unfiltered) modes on U grid
+      INTEGER modfrstv ! number of retained (ie: unfiltered) modes on V grid
+      REAL    sddu,sddv,unsddu,unsddv,coefilu,coefilv,eignfnu,eignfnv
+      REAL    coefilu2,coefilv2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/eigen.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/eigen.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/eigen.F	(revision 3330)
@@ -0,0 +1,33 @@
+!
+! $Header$
+!
+      SUBROUTINE eigen( e,d)
+      IMPLICIT NONE
+#include "dimensions.h"
+      real :: e( iim,iim ), d( iim )
+      real :: asm( iim )
+      integer :: im,i,j
+      im=iim
+c
+      DO 48 i = 1,im
+	 asm( i ) = d( im-i+1 )
+ 48   CONTINUE
+      DO 49 i = 1,iim
+	 d( i ) = asm( i )
+ 49   CONTINUE
+c
+c     PRINT 70,d
+ 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
+		print *
+c
+      DO 51 i = 1,im
+	 DO 52 j = 1,im
+            asm( j ) = e( i , im-j+1 )
+ 52      CONTINUE
+	 DO 50 j = 1,im
+	    e( i,j ) = asm( j )
+ 50      CONTINUE
+ 51   CONTINUE
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/eigen_sort.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/eigen_sort.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/eigen_sort.F	(revision 3330)
@@ -0,0 +1,32 @@
+!
+! $Header$
+!
+          SUBROUTINE eigen_sort(d,v,n,np)
+          INTEGER n,np
+          REAL d(np),v(np,np)
+          INTEGER i,j,k
+          REAL p
+
+       DO i=1,n-1
+          k=i
+          p=d(i)
+        DO j=i+1,n
+           IF(d(j).ge.p) THEN
+            k=j
+            p=d(j)
+           ENDIF
+        ENDDO
+          
+        IF(k.ne.i) THEN
+          d(k)=d(i)
+          d(i)=p
+         DO j=1,n
+          p=v(j,i)
+          v(j,i)=v(j,k)
+          v(j,k)=p
+         ENDDO
+        ENDIF
+       ENDDO
+
+        RETURN
+        END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/filtreg.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/filtreg.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/filtreg.F	(revision 3330)
@@ -0,0 +1,319 @@
+!
+! $Header$
+!
+      SUBROUTINE filtreg ( champ, nlat, nbniv, ifiltre,iaire,
+     &     griscal ,iter)
+      
+      USE filtreg_mod
+      
+      IMPLICIT NONE
+c=======================================================================
+c
+c   Auteur: P. Le Van        07/10/97
+c   ------
+c
+c   Objet: filtre matriciel longitudinal ,avec les matrices precalculees
+c                     pour l'operateur  Filtre    .
+c   ------
+c
+c   Arguments:
+c   ----------
+c
+c      nblat                 nombre de latitudes a filtrer
+c      nbniv                 nombre de niveaux verticaux a filtrer
+c      champ(iip1,nblat,nbniv)  en entree : champ a filtrer
+c                            en sortie : champ filtre
+c      ifiltre               +1  Transformee directe
+c                            -1  Transformee inverse
+c                            +2  Filtre directe
+c                            -2  Filtre inverse
+c
+c      iaire                 1   si champ intensif
+c                            2   si champ extensif (pondere par les aires)
+c
+c      iter                  1   filtre simple
+c
+c=======================================================================
+c
+c
+c                      Variable Intensive
+c                ifiltre = 1     filtre directe
+c                ifiltre =-1     filtre inverse
+c
+c                      Variable Extensive
+c                ifiltre = 2     filtre directe
+c                ifiltre =-2     filtre inverse
+c
+c
+#include "dimensions.h"
+#include "paramet.h"
+#include "coefils.h"
+
+      INTEGER    nlat,nbniv,ifiltre,iter
+      INTEGER    i,j,l,k
+      INTEGER    iim2,immjm
+      INTEGER    jdfil1,jdfil2,jffil1,jffil2,jdfil,jffil
+
+      REAL       champ( iip1,nlat,nbniv)
+
+      REAL       eignq(iim,nlat,nbniv), sdd1(iim),sdd2(iim)
+      LOGICAL    griscal
+      INTEGER    hemisph, iaire
+
+      LOGICAL,SAVE     :: first=.TRUE.
+
+      REAL, SAVE :: sdd12(iim,4)
+
+      INTEGER, PARAMETER :: type_sddu=1
+      INTEGER, PARAMETER :: type_sddv=2
+      INTEGER, PARAMETER :: type_unsddu=3
+      INTEGER, PARAMETER :: type_unsddv=4
+
+      INTEGER :: sdd1_type, sdd2_type
+
+      IF (first) THEN
+         sdd12(1:iim,type_sddu) = sddu(1:iim)
+         sdd12(1:iim,type_sddv) = sddv(1:iim)
+         sdd12(1:iim,type_unsddu) = unsddu(1:iim)
+         sdd12(1:iim,type_unsddv) = unsddv(1:iim)
+
+         first=.FALSE.
+      ENDIF
+
+      IF(ifiltre.EQ.1.or.ifiltre.EQ.-1) 
+     &     STOP'Pas de transformee simple dans cette version'
+      
+      IF( iter.EQ. 2 )  THEN
+         PRINT *,' Pas d iteration du filtre dans cette version !'
+     &        , ' Utiliser old_filtreg et repasser !'
+         STOP
+      ENDIF
+      
+      IF( ifiltre.EQ. -2 .AND..NOT.griscal )     THEN
+         PRINT *,' Cette routine ne calcule le filtre inverse que '
+     &        , ' sur la grille des scalaires !'
+         STOP
+      ENDIF
+      
+      IF( ifiltre.NE.2 .AND.ifiltre.NE. - 2 )  THEN
+         PRINT *,' Probleme dans filtreg car ifiltre NE 2 et NE -2'
+     &        , ' corriger et repasser !'
+         STOP
+      ENDIF
+      
+      iim2   = iim * iim
+      immjm  = iim * jjm
+
+      IF( griscal )   THEN
+         IF( nlat. NE. jjp1 )  THEN
+            PRINT  1111
+            STOP
+         ELSE
+            
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddv
+               sdd2_type = type_unsddv
+            ELSE
+               sdd1_type = type_unsddv
+               sdd2_type = type_sddv
+            ENDIF
+
+c            IF( iaire.EQ.1 )  THEN
+c               CALL SCOPY(  iim,    sddv, 1,  sdd1, 1 ) 
+c               CALL SCOPY(  iim,  unsddv, 1,  sdd2, 1 )
+c            ELSE
+c               CALL SCOPY(  iim,  unsddv, 1,  sdd1, 1 )
+c               CALL SCOPY(  iim,    sddv, 1,  sdd2, 1 )
+c            END IF
+            
+            jdfil1 = 2
+            jffil1 = jfiltnu
+            jdfil2 = jfiltsu
+            jffil2 = jjm
+         END IF
+      ELSE
+         IF( nlat.NE.jjm )  THEN
+            PRINT  2222
+            STOP
+         ELSE
+            
+            IF( iaire.EQ.1 )  THEN
+               sdd1_type = type_sddu
+               sdd2_type = type_unsddu
+            ELSE
+               sdd1_type = type_unsddu
+               sdd2_type = type_sddu
+            ENDIF
+
+c            IF( iaire.EQ.1 )  THEN
+c               CALL SCOPY(  iim,    sddu, 1,  sdd1, 1 ) 
+c               CALL SCOPY(  iim,  unsddu, 1,  sdd2, 1 )
+c            ELSE
+c               CALL SCOPY(  iim,  unsddu, 1,  sdd1, 1 )
+c               CALL SCOPY(  iim,    sddu, 1,  sdd2, 1 )
+c            END IF
+            
+            jdfil1 = 1
+            jffil1 = jfiltnv
+            jdfil2 = jfiltsv
+            jffil2 = jjm
+         END IF
+      END IF
+      
+      DO hemisph = 1, 2
+         
+         IF ( hemisph.EQ.1 )  THEN
+            jdfil = jdfil1
+            jffil = jffil1
+         ELSE
+            jdfil = jdfil2
+            jffil = jffil2
+         END IF
+         
+         DO l = 1, nbniv
+            DO j = jdfil,jffil
+               DO i = 1, iim
+                  champ(i,j,l) = champ(i,j,l) * sdd12(i,sdd1_type) ! sdd1(i)
+               END DO
+            END DO
+         END DO
+         
+         IF( hemisph. EQ. 1 )      THEN
+            
+            IF( ifiltre. EQ. -2 )   THEN
+               
+               DO j = jdfil,jffil
+#ifdef BLAS
+                  CALL SGEMM("N", "N", iim, nbniv, iim, 1.0, 
+     &                 matrinvn(1,1,j),
+     &                 iim, champ(1,j,1), iip1*nlat, 0.0,
+     &                 eignq(1,j-jdfil+1,1), iim*nlat)
+#else
+                  eignq(:,j-jdfil+1,:)
+     $                 = matmul(matrinvn(:,:,j), champ(:iim,j,:))
+#endif
+               END DO
+               
+            ELSE IF ( griscal )     THEN
+               
+               DO j = jdfil,jffil
+#ifdef BLAS
+                  CALL SGEMM("N", "N", iim, nbniv, iim, 1.0, 
+     &                 matriceun(1,1,j),
+     &                 iim, champ(1,j,1), iip1*nlat, 0.0,
+     &                 eignq(1,j-jdfil+1,1), iim*nlat)
+#else
+                  eignq(:,j-jdfil+1,:)
+     $                 = matmul(matriceun(:,:,j), champ(:iim,j,:))
+#endif
+               END DO
+               
+            ELSE 
+               
+               DO j = jdfil,jffil
+#ifdef BLAS
+                  CALL SGEMM("N", "N", iim, nbniv, iim, 1.0, 
+     &                 matricevn(1,1,j),
+     &                 iim, champ(1,j,1), iip1*nlat, 0.0,
+     &                 eignq(1,j-jdfil+1,1), iim*nlat)
+#else
+                  eignq(:,j-jdfil+1,:)
+     $                 = matmul(matricevn(:,:,j), champ(:iim,j,:))
+#endif
+               END DO
+               
+            ENDIF
+            
+         ELSE
+            
+            IF( ifiltre. EQ. -2 )   THEN
+               
+               DO j = jdfil,jffil
+#ifdef BLAS
+                  CALL SGEMM("N", "N", iim, nbniv, iim, 1.0, 
+     &                 matrinvs(1,1,j-jfiltsu+1),
+     &                 iim, champ(1,j,1), iip1*nlat, 0.0,
+     &                 eignq(1,j-jdfil+1,1), iim*nlat)
+#else
+                  eignq(:,j-jdfil+1,:)
+     $                 = matmul(matrinvs(:,:,j-jfiltsu+1),
+     $                 champ(:iim,j,:))
+#endif
+               END DO
+               
+               
+            ELSE IF ( griscal )     THEN
+               
+               DO j = jdfil,jffil
+#ifdef BLAS
+                  CALL SGEMM("N", "N", iim, nbniv, iim, 1.0, 
+     &                 matriceus(1,1,j-jfiltsu+1),
+     &                 iim, champ(1,j,1), iip1*nlat, 0.0,
+     &                 eignq(1,j-jdfil+1,1), iim*nlat)
+#else
+                  eignq(:,j-jdfil+1,:)
+     $                 = matmul(matriceus(:,:,j-jfiltsu+1),
+     $                 champ(:iim,j,:))
+#endif
+               END DO
+                              
+            ELSE 
+               
+               DO j = jdfil,jffil
+#ifdef BLAS
+                  CALL SGEMM("N", "N", iim, nbniv, iim, 1.0, 
+     &                 matricevs(1,1,j-jfiltsv+1),
+     &                 iim, champ(1,j,1), iip1*nlat, 0.0,
+     &                 eignq(1,j-jdfil+1,1), iim*nlat)
+#else
+                  eignq(:,j-jdfil+1,:)
+     $                 = matmul(matricevs(:,:,j-jfiltsv+1),
+     $                 champ(:iim,j,:))
+#endif
+               END DO
+                              
+            ENDIF
+            
+         ENDIF
+         
+         IF( ifiltre.EQ. 2 )  THEN
+            
+            DO l = 1, nbniv
+               DO j = jdfil,jffil
+                  DO i = 1, iim
+                     champ( i,j,l ) = 
+     &                    (champ(i,j,l) + eignq(i,j-jdfil+1,l))
+     &                    * sdd12(i,sdd2_type) ! sdd2(i)
+                  END DO
+               END DO
+            END DO
+
+         ELSE
+
+            DO l = 1, nbniv
+               DO j = jdfil,jffil
+                  DO i = 1, iim
+                     champ( i,j,l ) = 
+     &                    (champ(i,j,l) - eignq(i,j-jdfil+1,l))
+     &                    * sdd12(i,sdd2_type) ! sdd2(i)
+                  END DO
+               END DO
+            END DO
+
+         ENDIF
+
+         DO l = 1, nbniv
+            DO j = jdfil,jffil
+               champ( iip1,j,l ) = champ( 1,j,l )
+            END DO
+         END DO
+
+     
+      ENDDO
+
+1111  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau  CHAMP a 
+     &     filtrer, sur la grille des scalaires'/)
+2222  FORMAT(//20x,'ERREUR dans le dimensionnement du tableau CHAMP a fi
+     &     ltrer, sur la grille de V ou de Z'/)
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/filtreg_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/filtreg_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/filtreg_mod.F90	(revision 3330)
@@ -0,0 +1,559 @@
+!
+! $Id$
+!
+MODULE filtreg_mod
+
+  REAL, DIMENSION(:,:,:), ALLOCATABLE :: matriceun,matriceus,matricevn
+  REAL, DIMENSION(:,:,:), ALLOCATABLE :: matricevs,matrinvn,matrinvs
+
+CONTAINS
+
+  SUBROUTINE inifilr
+#ifdef CPP_PARA
+  USE mod_filtre_fft, ONLY : use_filtre_fft,Init_filtre_fft
+  USE mod_filtre_fft_loc, ONLY : Init_filtre_fft_loc=>Init_filtre_fft    !
+#endif
+  USE serre_mod, ONLY: alphax
+  USE logic_mod, ONLY: fxyhypb, ysinus
+    !    ... H. Upadhyaya, O.Sharma   ...
+    !
+    IMPLICIT NONE
+    !
+    !     version 3 .....
+
+    !     Correction  le 28/10/97    P. Le Van .
+    !  -------------------------------------------------------------------
+    include "dimensions.h"
+    include "paramet.h"
+    !  -------------------------------------------------------------------
+    include "comgeom.h"
+    include "coefils.h"
+
+    REAL  dlonu(iim),dlatu(jjm)
+    REAL  rlamda( iim ),  eignvl( iim )
+    !
+
+    REAL    lamdamax,pi,cof
+    INTEGER i,j,modemax,imx,k,kf,ii
+    REAL dymin,dxmin,colat0
+    REAL eignft(iim,iim), coff
+
+    LOGICAL, SAVE :: first_call_inifilr = .TRUE.
+
+#ifdef CRAY
+    INTEGER   ISMIN
+    EXTERNAL  ISMIN
+    INTEGER iymin 
+    INTEGER ixmineq
+#endif
+    !
+    ! ------------------------------------------------------------
+    !   This routine computes the eigenfunctions of the laplacien
+    !   on the stretched grid, and the filtering coefficients
+    !      
+    !  We designate:
+    !   eignfn   eigenfunctions of the discrete laplacien
+    !   eigenvl  eigenvalues
+    !   jfiltn   indexof the last scalar line filtered in NH
+    !   jfilts   index of the first line filtered in SH
+    !   modfrst  index of the mode from WHERE modes are filtered
+    !   modemax  maximum number of modes ( im )
+    !   coefil   filtering coefficients ( lamda_max*COS(rlat)/lamda )
+    !   sdd      SQRT( dx )
+    !      
+    !     the modes are filtered from modfrst to modemax
+    !      
+    !-----------------------------------------------------------
+    !
+
+    pi       = 2. * ASIN( 1. )
+
+    DO i = 1,iim
+       dlonu(i) = xprimu( i )
+    ENDDO
+    !
+    CALL inifgn(eignvl)
+    !
+    PRINT *,'inifilr: EIGNVL '
+    PRINT 250,eignvl
+250 FORMAT( 1x,5e14.6)
+    !
+    ! compute eigenvalues and eigenfunctions
+    !
+    !
+    !.................................................................
+    !
+    !  compute the filtering coefficients for scalar lines and 
+    !  meridional wind v-lines
+    !
+    !  we filter all those latitude lines WHERE coefil < 1
+    !  NO FILTERING AT POLES
+    !
+    !  colat0 is to be used  when alpha (stretching coefficient)
+    !  is set equal to zero for the regular grid CASE 
+    !
+    !    .......   Calcul  de  colat0   .........
+    !     .....  colat0 = minimum de ( 0.5, min dy/ min dx )   ...
+    !
+    !
+    DO j = 1,jjm
+       dlatu( j ) = rlatu( j ) - rlatu( j+1 )
+    ENDDO
+    !
+#ifdef CRAY
+    iymin   = ISMIN( jjm, dlatu, 1 )
+    ixmineq = ISMIN( iim, dlonu, 1 )
+    dymin   = dlatu( iymin )
+    dxmin   = dlonu( ixmineq )
+#else
+    dxmin   =  dlonu(1)
+    DO  i  = 2, iim
+       dxmin = MIN( dxmin,dlonu(i) )
+    ENDDO
+    dymin  = dlatu(1)
+    DO j  = 2, jjm
+       dymin = MIN( dymin,dlatu(j) )
+    ENDDO
+#endif
+    !
+    ! For a regular grid, we want the filter to start at latitudes
+    ! corresponding to lengths dx of the same size as dy (in terms
+    ! of angles: dx=2*dy) => at colat0=0.5 (i.e. colatitude=30 degrees
+    !  <=> latitude=60 degrees).
+    ! Same idea for the zoomed grid: start filtering polewards as soon
+    ! as length dx becomes of the same size as dy 
+    !
+    colat0  =  MIN( 0.5, dymin/dxmin )
+    !
+    IF( .NOT.fxyhypb.AND.ysinus )  THEN
+       colat0 = 0.6
+       !         ...... a revoir  pour  ysinus !   .......
+       alphax = 0.
+    ENDIF
+    !
+    PRINT 50, colat0,alphax
+50  FORMAT(/15x,' Inifilr colat0 alphax ',2e16.7)
+    !
+    IF(alphax.EQ.1. )  THEN
+       PRINT *,' Inifilr  alphax doit etre  <  a 1.  Corriger '
+       STOP
+    ENDIF
+    !
+    lamdamax = iim / ( pi * colat0 * ( 1. - alphax ) )
+
+    !                        ... Correction  le 28/10/97  ( P.Le Van ) ..
+    !
+    DO i = 2,iim
+       rlamda( i ) = lamdamax/ SQRT( ABS( eignvl(i) ) )
+    ENDDO
+    !
+
+    DO j = 1,jjm
+       DO i = 1,iim
+          coefilu( i,j )  = 0.0
+          coefilv( i,j )  = 0.0
+          coefilu2( i,j ) = 0.0
+          coefilv2( i,j ) = 0.0
+       ENDDO
+    ENDDO
+
+    !
+    !    ... Determination de jfiltnu,jfiltnv,jfiltsu,jfiltsv ....
+    !    .........................................................
+    !
+    modemax = iim
+
+!!!!    imx = modemax - 4 * (modemax/iim)
+
+    imx  = iim
+    !
+    PRINT *,'inifilr: TRUNCATION AT ',imx
+    !
+! Ehouarn: set up some defaults
+    jfiltnu=2 ! avoid north pole
+    jfiltsu=jjm ! avoid south pole (which is at jjm+1)
+    jfiltnv=1 ! NB: no poles on the V grid
+    jfiltsv=jjm
+
+    DO j = 2, jjm/2+1
+       cof = COS( rlatu(j) )/ colat0
+       IF ( cof .LT. 1. ) THEN
+          IF( rlamda(imx) * COS(rlatu(j) ).LT.1. ) THEN
+            jfiltnu= j
+          ENDIF
+       ENDIF
+
+       cof = COS( rlatu(jjp1-j+1) )/ colat0
+       IF ( cof .LT. 1. ) THEN
+          IF( rlamda(imx) * COS(rlatu(jjp1-j+1) ).LT.1. ) THEN
+               jfiltsu= jjp1-j+1
+          ENDIF
+       ENDIF
+    ENDDO
+    !
+    DO j = 1, jjm/2
+       cof = COS( rlatv(j) )/ colat0
+       IF ( cof .LT. 1. ) THEN
+          IF( rlamda(imx) * COS(rlatv(j) ).LT.1. ) THEN
+            jfiltnv= j
+          ENDIF
+       ENDIF
+
+       cof = COS( rlatv(jjm-j+1) )/ colat0
+       IF ( cof .LT. 1. ) THEN
+          IF( rlamda(imx) * COS(rlatv(jjm-j+1) ).LT.1. ) THEN
+               jfiltsv= jjm-j+1
+          ENDIF
+       ENDIF
+    ENDDO
+    !                                 
+
+    IF( jfiltnu.GT. jjm/2 +1 )  THEN
+       PRINT *,' jfiltnu en dehors des valeurs acceptables ' ,jfiltnu
+       STOP
+    ENDIF
+
+    IF( jfiltsu.GT.  jjm  +1 )  THEN
+       PRINT *,' jfiltsu en dehors des valeurs acceptables ' ,jfiltsu
+       STOP
+    ENDIF
+
+    IF( jfiltnv.GT. jjm/2    )  THEN
+       PRINT *,' jfiltnv en dehors des valeurs acceptables ' ,jfiltnv
+       STOP
+    ENDIF
+
+    IF( jfiltsv.GT.     jjm  )  THEN
+       PRINT *,' jfiltsv en dehors des valeurs acceptables ' ,jfiltsv
+       STOP
+    ENDIF
+
+    PRINT *,'inifilr: jfiltnv jfiltsv jfiltnu jfiltsu ' , &
+         jfiltnv,jfiltsv,jfiltnu,jfiltsu
+
+    IF(first_call_inifilr) THEN
+       ALLOCATE(matriceun(iim,iim,jfiltnu))
+       ALLOCATE(matriceus(iim,iim,jjm-jfiltsu+1))
+       ALLOCATE(matricevn(iim,iim,jfiltnv))
+       ALLOCATE(matricevs(iim,iim,jjm-jfiltsv+1))
+       ALLOCATE( matrinvn(iim,iim,jfiltnu))
+       ALLOCATE( matrinvs(iim,iim,jjm-jfiltsu+1))
+       first_call_inifilr = .FALSE.
+    ENDIF
+
+    !                                 
+    !   ... Determination de coefilu,coefilv,n=modfrstu,modfrstv ....
+    !................................................................
+    !
+    !
+    DO j = 1,jjm
+    !default initialization: all modes are retained (i.e. no filtering)
+       modfrstu( j ) = iim
+       modfrstv( j ) = iim
+    ENDDO
+    !
+    DO j = 2,jfiltnu
+       DO k = 2,modemax
+          cof = rlamda(k) * COS( rlatu(j) )
+          IF ( cof .LT. 1. ) GOTO 82
+       ENDDO
+       GOTO 84
+82     modfrstu( j ) = k
+       !
+       kf = modfrstu( j )
+       DO k = kf , modemax
+          cof = rlamda(k) * COS( rlatu(j) )
+          coefilu(k,j) = cof - 1.
+          coefilu2(k,j) = cof*cof - 1.
+       ENDDO
+84     CONTINUE
+    ENDDO
+    !                                 
+    !
+    DO j = 1,jfiltnv
+       !
+       DO k = 2,modemax
+          cof = rlamda(k) * COS( rlatv(j) )
+          IF ( cof .LT. 1. ) GOTO 87
+       ENDDO
+       GOTO 89
+87     modfrstv( j ) = k
+       !
+       kf = modfrstv( j )
+       DO k = kf , modemax
+          cof = rlamda(k) * COS( rlatv(j) )
+          coefilv(k,j) = cof - 1.
+          coefilv2(k,j) = cof*cof - 1.
+       ENDDO
+89     CONTINUE
+    ENDDO
+    !
+    DO j = jfiltsu,jjm
+       DO k = 2,modemax
+          cof = rlamda(k) * COS( rlatu(j) )
+          IF ( cof .LT. 1. ) GOTO 92
+       ENDDO
+       GOTO 94
+92     modfrstu( j ) = k
+       !
+       kf = modfrstu( j )
+       DO k = kf , modemax
+          cof = rlamda(k) * COS( rlatu(j) )
+          coefilu(k,j) = cof - 1.
+          coefilu2(k,j) = cof*cof - 1.
+       ENDDO
+94     CONTINUE
+    ENDDO
+    !                                 
+    DO j = jfiltsv,jjm
+       DO k = 2,modemax
+          cof = rlamda(k) * COS( rlatv(j) )
+          IF ( cof .LT. 1. ) GOTO 97
+       ENDDO
+       GOTO 99
+97     modfrstv( j ) = k
+       !
+       kf = modfrstv( j )
+       DO k = kf , modemax
+          cof = rlamda(k) * COS( rlatv(j) )
+          coefilv(k,j) = cof - 1.
+          coefilv2(k,j) = cof*cof - 1.
+       ENDDO
+99     CONTINUE
+    ENDDO
+    !
+
+    IF(jfiltnv.GE.jjm/2 .OR. jfiltnu.GE.jjm/2)THEN
+! Ehouarn: and what are these for??? Trying to handle a limit case
+!          where filters extend to and meet at the equator?
+       IF(jfiltnv.EQ.jfiltsv)jfiltsv=1+jfiltnv
+       IF(jfiltnu.EQ.jfiltsu)jfiltsu=1+jfiltnu
+
+       PRINT *,'jfiltnv jfiltsv jfiltnu jfiltsu' , &
+            jfiltnv,jfiltsv,jfiltnu,jfiltsu
+    ENDIF
+
+    PRINT *,'   Modes premiers  v  '
+    PRINT 334,modfrstv
+    PRINT *,'   Modes premiers  u  '
+    PRINT 334,modfrstu
+
+    !  
+    !   ...................................................................
+    !
+    !   ... Calcul de la matrice filtre 'matriceu'  pour les champs situes
+    !                       sur la grille scalaire                 ........
+    !   ...................................................................
+    !
+    DO j = 2, jfiltnu
+
+       DO i=1,iim
+          coff = coefilu(i,j)
+          IF( i.LT.modfrstu(j) ) coff = 0.
+          DO k=1,iim
+             eignft(i,k) = eignfnv(k,i) * coff
+          ENDDO
+       ENDDO ! of DO i=1,iim
+#ifdef CRAY
+       CALL MXM( eignfnv,iim,eignft,iim,matriceun(1,1,j),iim )
+#else
+#ifdef BLAS
+       CALL SGEMM ('N', 'N', iim, iim, iim, 1.0, &
+            eignfnv, iim, eignft, iim, 0.0, matriceun(1,1,j), iim)
+#else
+       DO k = 1, iim
+          DO i = 1, iim
+             matriceun(i,k,j) = 0.0
+             DO ii = 1, iim
+                matriceun(i,k,j) = matriceun(i,k,j) &
+                     + eignfnv(i,ii)*eignft(ii,k)
+             ENDDO
+          ENDDO
+       ENDDO ! of DO k = 1, iim
+#endif
+#endif
+
+    ENDDO ! of DO j = 2, jfiltnu
+
+    DO j = jfiltsu, jjm
+
+       DO i=1,iim
+          coff = coefilu(i,j)
+          IF( i.LT.modfrstu(j) ) coff = 0.
+          DO k=1,iim
+             eignft(i,k) = eignfnv(k,i) * coff
+          ENDDO
+       ENDDO ! of DO i=1,iim
+#ifdef CRAY
+       CALL MXM(eignfnv,iim,eignft,iim,matriceus(1,1,j-jfiltsu+1),iim)
+#else
+#ifdef BLAS
+       CALL SGEMM ('N', 'N', iim, iim, iim, 1.0, &
+            eignfnv, iim, eignft, iim, 0.0, &
+            matriceus(1,1,j-jfiltsu+1), iim)
+#else
+       DO k = 1, iim
+          DO i = 1, iim
+             matriceus(i,k,j-jfiltsu+1) = 0.0
+             DO ii = 1, iim
+                matriceus(i,k,j-jfiltsu+1) = matriceus(i,k,j-jfiltsu+1) &
+                     + eignfnv(i,ii)*eignft(ii,k)
+             ENDDO
+          ENDDO
+       ENDDO ! of DO k = 1, iim
+#endif
+#endif
+
+    ENDDO ! of DO j = jfiltsu, jjm
+
+    !   ...................................................................
+    !
+    !   ... Calcul de la matrice filtre 'matricev'  pour les champs situes
+    !                       sur la grille   de V ou de Z           ........
+    !   ...................................................................
+    !
+    DO j = 1, jfiltnv
+
+       DO i = 1, iim
+          coff = coefilv(i,j)
+          IF( i.LT.modfrstv(j) ) coff = 0.
+          DO k = 1, iim
+             eignft(i,k) = eignfnu(k,i) * coff
+          ENDDO
+       ENDDO
+#ifdef CRAY
+       CALL MXM( eignfnu,iim,eignft,iim,matricevn(1,1,j),iim )
+#else
+#ifdef BLAS
+       CALL SGEMM ('N', 'N', iim, iim, iim, 1.0, &
+            eignfnu, iim, eignft, iim, 0.0, matricevn(1,1,j), iim)
+#else
+       DO k = 1, iim
+          DO i = 1, iim
+             matricevn(i,k,j) = 0.0
+             DO ii = 1, iim
+                matricevn(i,k,j) = matricevn(i,k,j) &
+                     + eignfnu(i,ii)*eignft(ii,k)
+             ENDDO
+          ENDDO
+       ENDDO
+#endif
+#endif
+
+    ENDDO ! of DO j = 1, jfiltnv
+
+    DO j = jfiltsv, jjm
+
+       DO i = 1, iim
+          coff = coefilv(i,j)
+          IF( i.LT.modfrstv(j) ) coff = 0.
+          DO k = 1, iim
+             eignft(i,k) = eignfnu(k,i) * coff
+          ENDDO
+       ENDDO
+#ifdef CRAY
+       CALL MXM(eignfnu,iim,eignft,iim,matricevs(1,1,j-jfiltsv+1),iim)
+#else
+#ifdef BLAS
+       CALL SGEMM ('N', 'N', iim, iim, iim, 1.0, &
+            eignfnu, iim, eignft, iim, 0.0, & 
+            matricevs(1,1,j-jfiltsv+1), iim)
+#else
+       DO k = 1, iim
+          DO i = 1, iim
+             matricevs(i,k,j-jfiltsv+1) = 0.0
+             DO ii = 1, iim
+                matricevs(i,k,j-jfiltsv+1) = matricevs(i,k,j-jfiltsv+1) &
+                     + eignfnu(i,ii)*eignft(ii,k)
+             ENDDO
+          ENDDO
+       ENDDO
+#endif
+#endif
+
+    ENDDO ! of DO j = jfiltsv, jjm
+
+    !   ...................................................................
+    !
+    !   ... Calcul de la matrice filtre 'matrinv'  pour les champs situes
+    !              sur la grille scalaire , pour le filtre inverse ........
+    !   ...................................................................
+    !
+    DO j = 2, jfiltnu
+
+       DO i = 1,iim
+          coff = coefilu(i,j)/ ( 1. + coefilu(i,j) )
+          IF( i.LT.modfrstu(j) ) coff = 0.
+          DO k=1,iim
+             eignft(i,k) = eignfnv(k,i) * coff
+          ENDDO
+       ENDDO
+#ifdef CRAY
+       CALL MXM( eignfnv,iim,eignft,iim,matrinvn(1,1,j),iim )
+#else
+#ifdef BLAS
+       CALL SGEMM ('N', 'N', iim, iim, iim, 1.0, &
+            eignfnv, iim, eignft, iim, 0.0, matrinvn(1,1,j), iim)
+#else
+       DO k = 1, iim
+          DO i = 1, iim
+             matrinvn(i,k,j) = 0.0
+             DO ii = 1, iim
+                matrinvn(i,k,j) = matrinvn(i,k,j) &
+                     + eignfnv(i,ii)*eignft(ii,k)
+             ENDDO
+          ENDDO
+       ENDDO
+#endif
+#endif
+
+    ENDDO ! of DO j = 2, jfiltnu
+
+    DO j = jfiltsu, jjm
+
+       DO i = 1,iim
+          coff = coefilu(i,j) / ( 1. + coefilu(i,j) )
+          IF( i.LT.modfrstu(j) ) coff = 0.
+          DO k=1,iim
+             eignft(i,k) = eignfnv(k,i) * coff
+          ENDDO
+       ENDDO
+#ifdef CRAY
+       CALL MXM(eignfnv,iim,eignft,iim,matrinvs(1,1,j-jfiltsu+1),iim)
+#else
+#ifdef BLAS
+       CALL SGEMM ('N', 'N', iim, iim, iim, 1.0, &
+            eignfnv, iim, eignft, iim, 0.0, matrinvs(1,1,j-jfiltsu+1), iim)
+#else
+       DO k = 1, iim
+          DO i = 1, iim
+             matrinvs(i,k,j-jfiltsu+1) = 0.0
+             DO ii = 1, iim
+                matrinvs(i,k,j-jfiltsu+1) = matrinvs(i,k,j-jfiltsu+1) &
+                     + eignfnv(i,ii)*eignft(ii,k)
+             ENDDO
+          ENDDO
+       ENDDO
+#endif
+#endif
+
+    ENDDO ! of DO j = jfiltsu, jjm
+
+#ifdef CPP_PARA
+    IF (use_filtre_fft) THEN
+       CALL Init_filtre_fft(coefilu,modfrstu,jfiltnu,jfiltsu,  &
+                           coefilv,modfrstv,jfiltnv,jfiltsv)
+       CALL Init_filtre_fft_loc(coefilu,modfrstu,jfiltnu,jfiltsu,  &
+                           coefilv,modfrstv,jfiltnv,jfiltsv)
+    ENDIF
+#endif
+    !   ...................................................................
+
+    !
+334 FORMAT(1x,24i3)
+755 FORMAT(1x,6f10.3,i3)
+
+    RETURN
+  END SUBROUTINE inifilr
+
+END MODULE filtreg_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/inifgn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/inifgn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/inifgn.F	(revision 3330)
@@ -0,0 +1,105 @@
+!
+! $Header: /home/cvsroot/LMDZ4/libf/filtrez/inifgn.F,v 1.1.1.1 2004-05-19 12:53:09 lmdzadmin Exp $
+!
+      SUBROUTINE inifgn(dv)
+c  
+c    ...  H.Upadyaya , O.Sharma  ... 
+c
+      IMPLICIT NONE
+c
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+
+c
+      REAL vec(iim,iim),vec1(iim,iim)
+      REAL dlonu(iim),dlonv(iim)
+      REAL du(iim),dv(iim),d(iim)
+      REAL pi
+      INTEGER i,j,k,imm1,nrot
+C
+      include "coefils.h"
+c
+      EXTERNAL SSUM, acc,eigen,jacobi
+      REAL SSUM
+c
+
+      imm1  = iim -1
+      pi = 2.* ASIN(1.)
+C
+      DO 5 i=1,iim
+       dlonu(i)=  xprimu( i )
+       dlonv(i)=  xprimv( i )
+   5  CONTINUE
+
+      DO 12 i=1,iim
+      sddv(i)   = SQRT(dlonv(i))
+      sddu(i)   = SQRT(dlonu(i))
+      unsddu(i) = 1./sddu(i)
+      unsddv(i) = 1./sddv(i)
+  12  CONTINUE
+C
+      DO 17 j=1,iim
+      DO 17 i=1,iim
+      vec(i,j)     = 0.
+      vec1(i,j)    = 0.
+      eignfnv(i,j) = 0.
+      eignfnu(i,j) = 0.
+  17  CONTINUE
+c
+c
+      eignfnv(1,1)    = -1.
+      eignfnv(iim,1)  =  1.
+      DO 20 i=1,imm1
+      eignfnv(i+1,i+1)= -1.
+      eignfnv(i,i+1)  =  1.
+  20  CONTINUE
+      DO 25 j=1,iim
+      DO 25 i=1,iim
+      eignfnv(i,j) = eignfnv(i,j)/(sddu(i)*sddv(j))
+  25  CONTINUE
+      DO 30 j=1,iim
+      DO 30 i=1,iim
+      eignfnu(i,j) = -eignfnv(j,i)
+  30  CONTINUE
+c
+#ifdef CRAY
+      CALL MXM(eignfnu,iim,eignfnv,iim,vec ,iim)
+      CALL MXM(eignfnv,iim,eignfnu,iim,vec1,iim)
+#else
+      DO j = 1, iim
+      DO i = 1, iim
+        vec (i,j) = 0.0
+        vec1(i,j) = 0.0
+       DO k = 1, iim
+        vec (i,j) = vec(i,j)  + eignfnu(i,k) * eignfnv(k,j)
+        vec1(i,j) = vec1(i,j) + eignfnv(i,k) * eignfnu(k,j)
+       ENDDO
+      ENDDO
+      ENDDO
+#endif
+
+c
+      CALL jacobi(vec,iim,iim,dv,eignfnv,nrot)
+      CALL acc(eignfnv,d,iim)
+      CALL eigen_sort(dv,eignfnv,iim,iim)
+c
+      CALL jacobi(vec1,iim,iim,du,eignfnu,nrot)
+      CALL acc(eignfnu,d,iim)
+      CALL eigen_sort(du,eignfnu,iim,iim)
+
+cc   ancienne version avec appels IMSL
+c
+c     CALL MXM(eignfnu,iim,eignfnv,iim,vec,iim)
+c     CALL MXM(eignfnv,iim,eignfnu,iim,vec1,iim)
+c     CALL EVCSF(iim,vec,iim,dv,eignfnv,iim)
+c     CALL acc(eignfnv,d,iim)
+c     CALL eigen(eignfnv,dv)
+c
+c     CALL EVCSF(iim,vec1,iim,du,eignfnu,iim)
+c     CALL acc(eignfnu,d,iim)
+c     CALL eigen(eignfnu,du)
+
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/jacobi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/jacobi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/jacobi.F90	(revision 3330)
@@ -0,0 +1,106 @@
+!
+! $Id$
+!
+      SUBROUTINE JACOBI(A,N,NP,D,V,NROT)
+      implicit none
+! Arguments:
+      integer,intent(in) :: N
+      integer,intent(in) :: NP
+      integer,intent(out) :: NROT
+      real,intent(inout) :: A(NP,NP)
+      real,intent(out) :: D(NP)
+      real,intent(out) :: V(NP,NP)
+
+! local variables:
+      integer :: IP,IQ,I,J
+      real :: SM,TRESH,G,H,T,THETA,C,S,TAU
+      real :: B(N)
+      real :: Z(N)
+      
+      DO IP=1,N
+        DO IQ=1,N
+          V(IP,IQ)=0.
+        ENDDO
+        V(IP,IP)=1.
+      ENDDO
+      DO IP=1,N
+        B(IP)=A(IP,IP)
+        D(IP)=B(IP)
+        Z(IP)=0.
+      ENDDO
+      NROT=0
+      DO I=1,50 ! 50? I suspect this should be NP
+                !     but convergence is fast enough anyway
+        SM=0.
+        DO IP=1,N-1
+          DO IQ=IP+1,N
+            SM=SM+ABS(A(IP,IQ))
+          ENDDO
+        ENDDO
+        IF(SM.EQ.0.)RETURN
+        IF(I.LT.4)THEN
+          TRESH=0.2*SM/N**2
+        ELSE
+          TRESH=0.
+        ENDIF
+        DO IP=1,N-1
+          DO IQ=IP+1,N
+            G=100.*ABS(A(IP,IQ))
+            IF((I.GT.4).AND.(ABS(D(IP))+G.EQ.ABS(D(IP))) &
+               .AND.(ABS(D(IQ))+G.EQ.ABS(D(IQ))))THEN
+              A(IP,IQ)=0.
+            ELSE IF(ABS(A(IP,IQ)).GT.TRESH)THEN
+              H=D(IQ)-D(IP)
+              IF(ABS(H)+G.EQ.ABS(H))THEN
+                T=A(IP,IQ)/H
+              ELSE
+                THETA=0.5*H/A(IP,IQ)
+                T=1./(ABS(THETA)+SQRT(1.+THETA**2))
+                IF(THETA.LT.0.)T=-T
+              ENDIF
+              C=1./SQRT(1+T**2)
+              S=T*C
+              TAU=S/(1.+C)
+              H=T*A(IP,IQ)
+              Z(IP)=Z(IP)-H
+              Z(IQ)=Z(IQ)+H
+              D(IP)=D(IP)-H
+              D(IQ)=D(IQ)+H
+              A(IP,IQ)=0.
+              DO J=1,IP-1
+                G=A(J,IP)
+                H=A(J,IQ)
+                A(J,IP)=G-S*(H+G*TAU)
+                A(J,IQ)=H+S*(G-H*TAU)
+             ENDDO
+              DO J=IP+1,IQ-1
+                G=A(IP,J)
+                H=A(J,IQ)
+                A(IP,J)=G-S*(H+G*TAU)
+                A(J,IQ)=H+S*(G-H*TAU)
+              ENDDO
+              DO J=IQ+1,N
+                G=A(IP,J)
+                H=A(IQ,J)
+                A(IP,J)=G-S*(H+G*TAU)
+                A(IQ,J)=H+S*(G-H*TAU)
+              ENDDO
+              DO J=1,N
+                G=V(J,IP)
+                H=V(J,IQ)
+                V(J,IP)=G-S*(H+G*TAU)
+                V(J,IQ)=H+S*(G-H*TAU)
+              ENDDO
+              NROT=NROT+1
+            ENDIF
+          ENDDO
+        ENDDO
+        DO IP=1,N
+          B(IP)=B(IP)+Z(IP)
+          D(IP)=B(IP)
+          Z(IP)=0.
+        ENDDO
+      ENDDO ! of DO I=1,50
+      STOP 'Jacobi: 50 iterations should never happen'
+      RETURN
+      END SUBROUTINE JACOBI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mkl_dft_type.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mkl_dft_type.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mkl_dft_type.f90	(revision 3330)
@@ -0,0 +1,227 @@
+!*****************************************************************************
+! Copyright(C) 2002-2011 Intel Corporation. All Rights Reserved.
+!
+! The source code, information  and  material ("Material") contained herein is
+! owned  by Intel Corporation or its suppliers or licensors, and title to such
+! Material remains  with Intel Corporation  or its suppliers or licensors. The
+! Material  contains proprietary information  of  Intel or  its  suppliers and
+! licensors. The  Material is protected by worldwide copyright laws and treaty
+! provisions. No  part  of  the  Material  may  be  used,  copied, reproduced,
+! modified, published, uploaded, posted, transmitted, distributed or disclosed
+! in any way  without Intel's  prior  express written  permission. No  license
+! under  any patent, copyright  or  other intellectual property rights  in the
+! Material  is  granted  to  or  conferred  upon  you,  either  expressly,  by
+! implication, inducement,  estoppel or  otherwise.  Any  license  under  such
+! intellectual  property  rights must  be express  and  approved  by  Intel in
+! writing.
+!
+! *Third Party trademarks are the property of their respective owners.
+!
+! Unless otherwise  agreed  by Intel  in writing, you may not remove  or alter
+! this  notice or  any other notice embedded  in Materials by Intel or Intel's
+! suppliers or licensors in any way.
+!
+!*****************************************************************************
+! Content:
+!    Intel(R) Math Kernel Library (MKL)
+!    Discrete Fourier Transform Interface (DFTI)
+!*****************************************************************************
+
+MODULE MKL_DFT_TYPE
+
+  TYPE, PUBLIC :: DFTI_DESCRIPTOR
+     PRIVATE
+     INTEGER :: dontuse
+     ! Structure of this type is not used in Fortran code
+     ! the pointer to this type is used only
+  END TYPE DFTI_DESCRIPTOR
+
+  !======================================================================
+  ! These real type kind parameters are not for direct use
+  !======================================================================
+
+  INTEGER, PARAMETER :: DFTI_SPKP = SELECTED_REAL_KIND(6,37)
+  INTEGER, PARAMETER :: DFTI_DPKP = SELECTED_REAL_KIND(15,307)
+
+  !======================================================================
+  ! Descriptor configuration parameters [default values in brackets]
+  !======================================================================
+
+  ! Domain for forward transform. No default value
+  INTEGER, PARAMETER :: DFTI_FORWARD_DOMAIN = 0
+
+  ! Dimensionality, or rank. No default value
+  INTEGER, PARAMETER :: DFTI_DIMENSION = 1
+
+  ! Length(s) of transform. No default value
+  INTEGER, PARAMETER :: DFTI_LENGTHS = 2
+
+  ! Floating point precision. No default value
+  INTEGER, PARAMETER :: DFTI_PRECISION = 3
+
+  ! Scale factor for forward transform [1.0]
+  INTEGER, PARAMETER :: DFTI_FORWARD_SCALE = 4
+
+  ! Scale factor for backward transform [1.0]
+  INTEGER, PARAMETER :: DFTI_BACKWARD_SCALE = 5
+
+  ! Exponent sign for forward transform [DFTI_NEGATIVE]
+  ! INTEGER, PARAMETER :: DFTI_FORWARD_SIGN = 6 ! NOT IMPLEMENTED
+
+  ! Number of data sets to be transformed [1]
+  INTEGER, PARAMETER :: DFTI_NUMBER_OF_TRANSFORMS = 7
+
+  ! Storage of finite complex-valued sequences in complex domain
+  ! [DFTI_COMPLEX_COMPLEX]
+  INTEGER, PARAMETER :: DFTI_COMPLEX_STORAGE = 8
+
+  ! Storage of finite real-valued sequences in real domain
+  ! [DFTI_REAL_REAL]
+  INTEGER, PARAMETER :: DFTI_REAL_STORAGE = 9
+
+  ! Storage of finite complex-valued sequences in conjugate-even
+  ! domain [DFTI_COMPLEX_REAL]
+  INTEGER, PARAMETER :: DFTI_CONJUGATE_EVEN_STORAGE = 10
+
+  ! Placement of result [DFTI_INPLACE]
+  INTEGER, PARAMETER :: DFTI_PLACEMENT = 11
+
+  ! Generalized strides for input data layout
+  ! [tigth, col-major for Fortran]
+  INTEGER, PARAMETER :: DFTI_INPUT_STRIDES = 12
+
+  ! Generalized strides for output data layout
+  ! [tigth, col-major for Fortran]
+  INTEGER, PARAMETER :: DFTI_OUTPUT_STRIDES = 13
+
+  ! Distance between first input elements for multiple transforms [0]
+  INTEGER, PARAMETER :: DFTI_INPUT_DISTANCE = 14
+
+  ! Distance between first output elements for multiple transforms [0]
+  INTEGER, PARAMETER :: DFTI_OUTPUT_DISTANCE = 15
+
+  ! Effort spent in initialization [DFTI_MEDIUM]
+  ! INTEGER, PARAMETER :: DFTI_INITIALIZATION_EFFORT = 16 ! NOT IMPLEMENTED
+
+  ! Use of workspace during computation [DFTI_ALLOW]
+  INTEGER, PARAMETER :: DFTI_WORKSPACE = 17
+
+  ! Ordering of the result [DFTI_ORDERED]
+  INTEGER, PARAMETER :: DFTI_ORDERING = 18
+
+  ! Possible transposition of result [DFTI_NONE]
+  INTEGER, PARAMETER :: DFTI_TRANSPOSE = 19
+
+  ! User-settable descriptor name [""]
+  INTEGER, PARAMETER :: DFTI_DESCRIPTOR_NAME = 20
+
+  ! Packing format for DFTI_COMPLEX_REAL storage of finite
+  ! conjugate-even sequences [DFTI_CCS_FORMAT]
+  INTEGER, PARAMETER :: DFTI_PACKED_FORMAT = 21
+
+  ! Commit status of the descriptor. Read-only parameter
+  INTEGER, PARAMETER :: DFTI_COMMIT_STATUS = 22
+
+  ! Version string for this DFTI implementation. Read-only parameter
+  INTEGER, PARAMETER :: DFTI_VERSION = 23
+
+  ! Ordering of the forward transform. Read-only parameter
+  ! INTEGER, PARAMETER :: DFTI_FORWARD_ORDERING = 24 ! NOT IMPLEMENTED
+
+  ! Ordering of the backward transform. Read-only parameter
+  ! INTEGER, PARAMETER :: DFTI_BACKWARD_ORDERING = 25 ! NOT IMPLEMENTED
+
+  ! Number of user threads that share the descriptor [1]
+  INTEGER, PARAMETER :: DFTI_NUMBER_OF_USER_THREADS = 26
+
+  !======================================================================
+  ! Values of the descriptor configuration parameters
+  !======================================================================
+
+  ! DFTI_COMMIT_STATUS
+  INTEGER, PARAMETER :: DFTI_COMMITTED = 30
+  INTEGER, PARAMETER :: DFTI_UNCOMMITTED = 31
+
+  ! DFTI_FORWARD_DOMAIN
+  INTEGER, PARAMETER :: DFTI_COMPLEX = 32
+  INTEGER, PARAMETER :: DFTI_REAL = 33
+  ! INTEGER, PARAMETER :: DFTI_CONJUGATE_EVEN = 34 ! NOT IMPLEMENTED
+
+  ! DFTI_PRECISION
+  INTEGER, PARAMETER :: DFTI_SINGLE = 35
+  INTEGER, PARAMETER :: DFTI_DOUBLE = 36
+
+  ! DFTI_PRECISION for reduced size of statically linked application.
+  ! Recommended use: modify statement 'USE MKL_DFTI' in your program,
+  ! so that it reads as either of:
+  ! USE MKL_DFTI, FORGET=>DFTI_SINGLE, DFTI_SINGLE=>DFTI_SINGLE_R
+  ! USE MKL_DFTI, FORGET=>DFTI_DOUBLE, DFTI_DOUBLE=>DFTI_DOUBLE_R
+  ! where word 'FORGET' can be any name not used in the program.
+  REAL(DFTI_SPKP), PARAMETER :: DFTI_SINGLE_R = 35
+  REAL(DFTI_DPKP), PARAMETER :: DFTI_DOUBLE_R = 36
+
+  ! DFTI_FORWARD_SIGN
+  ! INTEGER, PARAMETER :: DFTI_NEGATIVE = 37 ! NOT IMPLEMENTED
+  ! INTEGER, PARAMETER :: DFTI_POSITIVE = 38 ! NOT IMPLEMENTED
+
+  ! DFTI_COMPLEX_STORAGE and DFTI_CONJUGATE_EVEN_STORAGE
+  INTEGER, PARAMETER :: DFTI_COMPLEX_COMPLEX = 39
+  INTEGER, PARAMETER :: DFTI_COMPLEX_REAL = 40
+
+  ! DFTI_REAL_STORAGE
+  INTEGER, PARAMETER :: DFTI_REAL_COMPLEX = 41
+  INTEGER, PARAMETER :: DFTI_REAL_REAL = 42
+
+  ! DFTI_PLACEMENT
+  INTEGER, PARAMETER :: DFTI_INPLACE = 43 ! Result overwrites input
+  INTEGER, PARAMETER :: DFTI_NOT_INPLACE  = 44 ! Have another place for result
+
+  ! DFTI_INITIALIZATION_EFFORT
+  ! INTEGER, PARAMETER :: DFTI_LOW = 45 ! NOT IMPLEMENTED
+  ! INTEGER, PARAMETER :: DFTI_MEDIUM = 46 ! NOT IMPLEMENTED
+  ! INTEGER, PARAMETER :: DFTI_HIGH = 47 ! NOT IMPLEMENTED
+
+  ! DFTI_ORDERING
+  INTEGER, PARAMETER :: DFTI_ORDERED = 48
+  INTEGER, PARAMETER :: DFTI_BACKWARD_SCRAMBLED = 49
+  ! INTEGER, PARAMETER :: DFTI_FORWARD_SCRAMBLED  = 50 ! NOT IMPLEMENTED
+
+  ! Allow/avoid certain usages
+  INTEGER, PARAMETER :: DFTI_ALLOW = 51 ! Allow transposition or workspace
+  INTEGER, PARAMETER :: DFTI_AVOID = 52 ! Avoid auxiliary storage
+  INTEGER, PARAMETER :: DFTI_NONE = 53
+
+  ! DFTI_PACKED_FORMAT
+  ! (for storing congugate-even finite sequence in real array)
+  INTEGER, PARAMETER :: DFTI_CCS_FORMAT = 54  ! Complex conjugate-symmetric
+  INTEGER, PARAMETER :: DFTI_PACK_FORMAT = 55 ! Pack format for real DFT
+  INTEGER, PARAMETER :: DFTI_PERM_FORMAT = 56 ! Perm format for real DFT
+  INTEGER, PARAMETER :: DFTI_CCE_FORMAT = 57  ! Complex conjugate-even
+
+  !======================================================================
+  ! Error classes
+  !======================================================================
+  INTEGER, PARAMETER :: DFTI_NO_ERROR = 0
+  INTEGER, PARAMETER :: DFTI_MEMORY_ERROR = 1
+  INTEGER, PARAMETER :: DFTI_INVALID_CONFIGURATION = 2
+  INTEGER, PARAMETER :: DFTI_INCONSISTENT_CONFIGURATION = 3
+  INTEGER, PARAMETER :: DFTI_MULTITHREADED_ERROR = 4
+  INTEGER, PARAMETER :: DFTI_BAD_DESCRIPTOR = 5
+  INTEGER, PARAMETER :: DFTI_UNIMPLEMENTED = 6
+  INTEGER, PARAMETER :: DFTI_MKL_INTERNAL_ERROR = 7
+  INTEGER, PARAMETER :: DFTI_NUMBER_OF_THREADS_ERROR = 8
+  INTEGER, PARAMETER :: DFTI_1D_LENGTH_EXCEEDS_INT32 = 9
+
+  ! Maximum length of error string
+  INTEGER, PARAMETER :: DFTI_MAX_MESSAGE_LENGTH = 80
+
+  ! Maximum length of user-settable descriptor name
+  INTEGER, PARAMETER :: DFTI_MAX_NAME_LENGTH = 10
+
+  ! Maximum length of MKL version string
+  INTEGER, PARAMETER :: DFTI_VERSION_LENGTH = 198
+
+  ! (deprecated parameter)
+  INTEGER, PARAMETER :: DFTI_ERROR_CLASS = 60
+
+END MODULE MKL_DFT_TYPE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mkl_dfti.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mkl_dfti.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mkl_dfti.f90	(revision 3330)
@@ -0,0 +1,528 @@
+!*****************************************************************************
+! Copyright(C) 2002-2011 Intel Corporation. All Rights Reserved.
+!
+! The source code, information  and  material ("Material") contained herein is
+! owned  by Intel Corporation or its suppliers or licensors, and title to such
+! Material remains  with Intel Corporation  or its suppliers or licensors. The
+! Material  contains proprietary information  of  Intel or  its  suppliers and
+! licensors. The  Material is protected by worldwide copyright laws and treaty
+! provisions. No  part  of  the  Material  may  be  used,  copied, reproduced,
+! modified, published, uploaded, posted, transmitted, distributed or disclosed
+! in any way  without Intel's  prior  express written  permission. No  license
+! under  any patent, copyright  or  other intellectual property rights  in the
+! Material  is  granted  to  or  conferred  upon  you,  either  expressly,  by
+! implication, inducement,  estoppel or  otherwise.  Any  license  under  such
+! intellectual  property  rights must  be express  and  approved  by  Intel in
+! writing.
+!
+! *Third Party trademarks are the property of their respective owners.
+!
+! Unless otherwise  agreed  by Intel  in writing, you may not remove  or alter
+! this  notice or  any other notice embedded  in Materials by Intel or Intel's
+! suppliers or licensors in any way.
+!
+!*****************************************************************************
+! Content:
+!    Intel(R) Math Kernel Library (MKL)
+!    Discrete Fourier Transform Interface (DFTI)
+!*****************************************************************************
+
+
+MODULE MKL_DFTI
+
+  USE MKL_DFT_TYPE
+
+  INTERFACE DftiCreateDescriptor
+
+     FUNCTION dfti_create_descriptor_1d(desc, precision, domain, dim, length)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_create_descriptor_1d
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_create_descriptor_1d
+       INTEGER dfti_create_descriptor_1d
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       INTEGER, INTENT(IN) :: precision
+       INTEGER, INTENT(IN) :: domain
+       INTEGER, INTENT(IN) :: dim, length
+     END FUNCTION dfti_create_descriptor_1d
+
+     FUNCTION dfti_create_descriptor_highd(desc, precision, domain, dim,length)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_create_descriptor_highd
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_create_descriptor_highd
+       INTEGER dfti_create_descriptor_highd
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       INTEGER, INTENT(IN) :: precision
+       INTEGER, INTENT(IN) :: domain
+       INTEGER, INTENT(IN) :: dim
+       INTEGER, INTENT(IN), DIMENSION(*) :: length
+     END FUNCTION dfti_create_descriptor_highd
+
+     FUNCTION dfti_create_descriptor_s_1d(desc, s, dom, one, dim)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_create_descriptor_s_1d
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_create_descriptor_s_1d
+       INTEGER dfti_create_descriptor_s_1d
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(IN) :: s
+       INTEGER, INTENT(IN) :: dom
+       INTEGER, INTENT(IN) :: one
+       INTEGER, INTENT(IN) :: dim
+     END FUNCTION dfti_create_descriptor_s_1d
+
+     FUNCTION dfti_create_descriptor_s_md(desc, s, dom, many, dims)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_create_descriptor_s_md
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_create_descriptor_s_md
+       INTEGER dfti_create_descriptor_s_md
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(IN) :: s
+       INTEGER, INTENT(IN) :: dom
+       INTEGER, INTENT(IN) :: many
+       INTEGER, INTENT(IN), DIMENSION(*) :: dims
+     END FUNCTION dfti_create_descriptor_s_md
+
+     FUNCTION dfti_create_descriptor_d_1d(desc, d, dom, one, dim)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_create_descriptor_d_1d
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_create_descriptor_d_1d
+       INTEGER dfti_create_descriptor_d_1d
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(IN) :: d
+       INTEGER, INTENT(IN) :: dom
+       INTEGER, INTENT(IN) :: one
+       INTEGER, INTENT(IN) :: dim
+     END FUNCTION dfti_create_descriptor_d_1d
+
+     FUNCTION dfti_create_descriptor_d_md(desc, d, dom, many, dims)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_create_descriptor_d_md
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_create_descriptor_d_md
+       INTEGER dfti_create_descriptor_d_md
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(IN) :: d
+       INTEGER, INTENT(IN) :: dom
+       INTEGER, INTENT(IN) :: many
+       INTEGER, INTENT(IN), DIMENSION(*) :: dims
+     END FUNCTION dfti_create_descriptor_d_md
+
+  END INTERFACE
+
+  INTERFACE DftiCopyDescriptor
+
+     FUNCTION dfti_copy_descriptor_external(desc, new_desc)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_copy_descriptor_external
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_copy_descriptor_external
+       INTEGER dfti_copy_descriptor_external
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       TYPE(DFTI_DESCRIPTOR), POINTER :: new_desc
+     END FUNCTION dfti_copy_descriptor_external
+
+  END INTERFACE
+
+  INTERFACE DftiCommitDescriptor
+
+     FUNCTION dfti_commit_descriptor_external(desc)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_commit_descriptor_external
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_commit_descriptor_external
+       INTEGER dfti_commit_descriptor_external
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_commit_descriptor_external
+
+  END INTERFACE
+
+  INTERFACE DftiSetValue
+
+     FUNCTION dfti_set_value_intval(desc, OptName, IntVal)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_set_value_intval
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_set_value_intval
+       INTEGER dfti_set_value_intval
+       INTEGER, INTENT(IN) :: OptName
+       INTEGER, INTENT(IN) :: IntVal
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_set_value_intval
+
+     FUNCTION dfti_set_value_sglval(desc, OptName, sglval)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_set_value_sglval
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_set_value_sglval
+       INTEGER dfti_set_value_sglval
+       INTEGER, INTENT(IN) :: OptName
+       REAL(DFTI_SPKP), INTENT(IN) :: sglval
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_set_value_sglval
+
+     FUNCTION dfti_set_value_dblval(desc, OptName, DblVal)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_set_value_dblval
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_set_value_dblval
+       INTEGER dfti_set_value_dblval
+       INTEGER, INTENT(IN) :: OptName
+       REAL(DFTI_DPKP), INTENT(IN) :: DblVal
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_set_value_dblval
+
+     FUNCTION dfti_set_value_intvec(desc, OptName, IntVec)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_set_value_intvec
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_set_value_intvec
+       INTEGER dfti_set_value_intvec
+       INTEGER, INTENT(IN) :: OptName
+       INTEGER, INTENT(IN), DIMENSION(*) :: IntVec
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_set_value_intvec
+
+     FUNCTION dfti_set_value_chars(desc, OptName, Chars)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_set_value_chars
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_set_value_chars
+       INTEGER dfti_set_value_chars
+       INTEGER, INTENT(IN) :: OptName
+       CHARACTER(*), INTENT(IN) :: Chars
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_set_value_chars
+
+  END INTERFACE
+
+  INTERFACE DftiGetValue
+
+     FUNCTION dfti_get_value_intval(desc, OptName, IntVal)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_get_value_intval
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_get_value_intval
+       INTEGER dfti_get_value_intval
+       INTEGER, INTENT(IN) :: OptName
+       INTEGER, INTENT(OUT) :: IntVal
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_get_value_intval
+
+     FUNCTION dfti_get_value_sglval(desc, OptName, sglval)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_get_value_sglval
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_get_value_sglval
+       INTEGER dfti_get_value_sglval
+       INTEGER, INTENT(IN) :: OptName
+       REAL(DFTI_SPKP), INTENT(OUT) :: sglval
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_get_value_sglval
+
+     FUNCTION dfti_get_value_dblval(desc, OptName, DblVal)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_get_value_dblval
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_get_value_dblval
+       INTEGER dfti_get_value_dblval
+       INTEGER, INTENT(IN) :: OptName
+       REAL(DFTI_DPKP), INTENT(OUT) :: DblVal
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_get_value_dblval
+
+     FUNCTION dfti_get_value_intvec(desc, OptName, IntVec)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_get_value_intvec
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_get_value_intvec
+       INTEGER dfti_get_value_intvec
+       INTEGER, INTENT(IN) :: OptName
+       INTEGER, INTENT(OUT), DIMENSION(*) :: IntVec
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_get_value_intvec
+
+     FUNCTION dfti_get_value_chars(desc, OptName, Chars)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_get_value_chars
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_get_value_chars
+       INTEGER dfti_get_value_chars
+       INTEGER, INTENT(IN) :: OptName
+       CHARACTER(*), INTENT(OUT) :: Chars
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_get_value_chars
+
+  END INTERFACE
+
+  INTERFACE DftiComputeForward
+
+     FUNCTION dfti_compute_forward_s(desc,sSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_s
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_s
+       INTEGER dfti_compute_forward_s
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(INOUT), DIMENSION(*) :: sSrcDst
+     END FUNCTION dfti_compute_forward_s
+
+     FUNCTION dfti_compute_forward_c(desc,cSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_c
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_c
+       INTEGER dfti_compute_forward_c
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_SPKP), INTENT(INOUT), DIMENSION(*) :: cSrcDst
+     END FUNCTION dfti_compute_forward_c
+
+     FUNCTION dfti_compute_forward_ss(desc,sSrcDstRe,sSrcDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_ss
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_ss
+       INTEGER dfti_compute_forward_ss
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), DIMENSION(*) :: sSrcDstRe
+       REAL(DFTI_SPKP), DIMENSION(*) :: sSrcDstIm
+     END FUNCTION dfti_compute_forward_ss
+
+     FUNCTION dfti_compute_forward_sc(desc,sSrc,cDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_sc
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_sc
+       INTEGER dfti_compute_forward_sc
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: sSrc
+       COMPLEX(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: cDst
+     END FUNCTION dfti_compute_forward_sc
+
+     FUNCTION dfti_compute_forward_cc(desc,cSrc,cDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_cc
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_cc
+       INTEGER dfti_compute_forward_cc
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: cSrc
+       COMPLEX(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: cDst
+     END FUNCTION dfti_compute_forward_cc
+
+     FUNCTION dfti_compute_forward_ssss(desc,sSrcRe,sSrcIm,sDstRe,sDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_ssss
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_ssss
+       INTEGER dfti_compute_forward_ssss
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: sSrcRe
+       REAL(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: sSrcIm
+       REAL(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: sDstRe
+       REAL(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: sDstIm
+     END FUNCTION dfti_compute_forward_ssss
+
+     FUNCTION dfti_compute_forward_d(desc,dSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_d
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_d
+       INTEGER dfti_compute_forward_d
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(INOUT), DIMENSION(*) :: dSrcDst
+     END FUNCTION dfti_compute_forward_d
+
+     FUNCTION dfti_compute_forward_z(desc,zSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_z
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_z
+       INTEGER dfti_compute_forward_z
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_DPKP), INTENT(INOUT), DIMENSION(*) :: zSrcDst
+     END FUNCTION dfti_compute_forward_z
+
+     FUNCTION dfti_compute_forward_dd(desc,dSrcDstRe,dSrcDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_dd
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_dd
+       INTEGER dfti_compute_forward_dd
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), DIMENSION(*) :: dSrcDstRe
+       REAL(DFTI_DPKP), DIMENSION(*) :: dSrcDstIm
+     END FUNCTION dfti_compute_forward_dd
+
+     FUNCTION dfti_compute_forward_dz(desc,dSrc,zDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_dz
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_dz
+       INTEGER dfti_compute_forward_dz
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: dSrc
+       COMPLEX(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: zDst
+     END FUNCTION dfti_compute_forward_dz
+
+     FUNCTION dfti_compute_forward_zz(desc,zSrc,zDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_zz
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_zz
+       INTEGER dfti_compute_forward_zz
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: zSrc
+       COMPLEX(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: zDst
+     END FUNCTION dfti_compute_forward_zz
+
+     FUNCTION dfti_compute_forward_dddd(desc,dSrcRe,dSrcIm,dDstRe,dDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_forward_dddd
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_forward_dddd
+       INTEGER dfti_compute_forward_dddd
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: dSrcRe
+       REAL(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: dSrcIm
+       REAL(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: dDstRe
+       REAL(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: dDstIm
+     END FUNCTION dfti_compute_forward_dddd
+
+  END INTERFACE DftiComputeForward
+
+  INTERFACE DftiComputeBackward
+
+     FUNCTION dfti_compute_backward_s(desc,sSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_s
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_s
+       INTEGER dfti_compute_backward_s
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(INOUT), DIMENSION(*) :: sSrcDst
+     END FUNCTION dfti_compute_backward_s
+
+     FUNCTION dfti_compute_backward_c(desc,cSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_c
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_c
+       INTEGER dfti_compute_backward_c
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_SPKP), INTENT(INOUT), DIMENSION(*) :: cSrcDst
+     END FUNCTION dfti_compute_backward_c
+
+     FUNCTION dfti_compute_backward_ss(desc,sSrcDstRe,sSrcDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_ss
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_ss
+       INTEGER dfti_compute_backward_ss
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), DIMENSION(*) :: sSrcDstRe
+       REAL(DFTI_SPKP), DIMENSION(*) :: sSrcDstIm
+     END FUNCTION dfti_compute_backward_ss
+
+     FUNCTION dfti_compute_backward_cs(desc,cSrc,sDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_cs
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_cs
+       INTEGER dfti_compute_backward_cs
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: cSrc
+       REAL(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: sDst
+     END FUNCTION dfti_compute_backward_cs
+
+     FUNCTION dfti_compute_backward_cc(desc,cSrc,cDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_cc
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_cc
+       INTEGER dfti_compute_backward_cc
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: cSrc
+       COMPLEX(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: cDst
+     END FUNCTION dfti_compute_backward_cc
+
+     FUNCTION dfti_compute_backward_ssss(desc,sSrcRe,sSrcIm,sDstRe,sDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_ssss
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_ssss
+       INTEGER dfti_compute_backward_ssss
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: sSrcRe
+       REAL(DFTI_SPKP), INTENT(IN), DIMENSION(*) :: sSrcIm
+       REAL(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: sDstRe
+       REAL(DFTI_SPKP), INTENT(OUT), DIMENSION(*) :: sDstIm
+     END FUNCTION dfti_compute_backward_ssss
+
+     FUNCTION dfti_compute_backward_d(desc,dSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_d
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_d
+       INTEGER dfti_compute_backward_d
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(INOUT), DIMENSION(*) :: dSrcDst
+     END FUNCTION dfti_compute_backward_d
+
+     FUNCTION dfti_compute_backward_z(desc,zSrcDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_z
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_z
+       INTEGER dfti_compute_backward_z
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_DPKP), INTENT(INOUT), DIMENSION(*) :: zSrcDst
+     END FUNCTION dfti_compute_backward_z
+
+     FUNCTION dfti_compute_backward_dd(desc,dSrcDstRe,dSrcDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_dd
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_dd
+       INTEGER dfti_compute_backward_dd
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), DIMENSION(*) :: dSrcDstRe
+       REAL(DFTI_DPKP), DIMENSION(*) :: dSrcDstIm
+     END FUNCTION dfti_compute_backward_dd
+
+     FUNCTION dfti_compute_backward_zd(desc,zSrc,dDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_zd
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_zd
+       INTEGER dfti_compute_backward_zd
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: zSrc
+       REAL(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: dDst
+     END FUNCTION dfti_compute_backward_zd
+
+     FUNCTION dfti_compute_backward_zz(desc,zSrc,zDst)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_zz
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_zz
+       INTEGER dfti_compute_backward_zz
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       COMPLEX(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: zSrc
+       COMPLEX(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: zDst
+     END FUNCTION dfti_compute_backward_zz
+
+     FUNCTION dfti_compute_backward_dddd(desc,dSrcRe,dSrcIm,dDstRe,dDstIm)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_compute_backward_dddd
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_compute_backward_dddd
+       INTEGER dfti_compute_backward_dddd
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+       REAL(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: dSrcRe
+       REAL(DFTI_DPKP), INTENT(IN), DIMENSION(*) :: dSrcIm
+       REAL(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: dDstRe
+       REAL(DFTI_DPKP), INTENT(OUT), DIMENSION(*) :: dDstIm
+     END FUNCTION dfti_compute_backward_dddd
+
+  END INTERFACE DftiComputeBackward
+
+  INTERFACE DftiFreeDescriptor
+
+     FUNCTION dfti_free_descriptor_external(desc)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_free_descriptor_external
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_free_descriptor_external
+       INTEGER dfti_free_descriptor_external
+       TYPE(DFTI_DESCRIPTOR), POINTER :: desc
+     END FUNCTION dfti_free_descriptor_external
+
+  END INTERFACE
+
+  INTERFACE DftiErrorClass
+
+     FUNCTION dfti_error_class_external(Status, ErrorClass)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_error_class_external
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_error_class_external
+       LOGICAL dfti_error_class_external
+       INTEGER, INTENT(IN) :: Status
+       INTEGER, INTENT(IN) :: ErrorClass
+     END FUNCTION dfti_error_class_external
+
+  END INTERFACE
+
+  INTERFACE DftiErrorMessage
+
+     FUNCTION dfti_error_message_external(Status)
+       USE MKL_DFT_TYPE
+       !DEC$ ATTRIBUTES C :: dfti_error_message_external
+       !DEC$ ATTRIBUTES REFERENCE :: dfti_error_message_external
+       CHARACTER(LEN=DFTI_MAX_MESSAGE_LENGTH) :: dfti_error_message_external
+       INTEGER, INTENT(IN) :: Status
+     END FUNCTION dfti_error_message_external
+
+  END INTERFACE
+
+END MODULE MKL_DFTI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft.F90	(revision 3330)
@@ -0,0 +1,17 @@
+MODULE mod_fft
+
+#ifdef FFT_MATHKEISAN
+  USE mod_fft_mathkeisan
+#else
+#ifdef FFT_FFTW
+  USE mod_fft_fftw
+#else
+#ifdef FFT_MKL
+  USE mod_fft_mkl
+#else
+  USE mod_fft_wrapper
+#endif
+#endif
+#endif
+
+END MODULE mod_fft
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_fftw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_fftw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_fftw.F90	(revision 3330)
@@ -0,0 +1,114 @@
+!
+! $Id$
+!
+
+MODULE mod_fft_fftw
+
+#ifdef FFT_FFTW
+
+  REAL, SAVE                   :: scale_factor
+  INTEGER, SAVE                :: vsize
+  INTEGER, PARAMETER           :: inc=1
+  
+  INTEGER*8, ALLOCATABLE, DIMENSION(:), SAVE :: plan_forward
+  INTEGER*8, ALLOCATABLE, DIMENSION(:), SAVE :: plan_backward
+  
+CONTAINS
+  
+  SUBROUTINE Init_fft(iim,nvectmax)
+  IMPLICIT NONE
+#include <fftw3.f>
+    INTEGER :: iim
+    INTEGER :: nvectmax
+
+    INTEGER :: itmp
+
+    INTEGER               :: rank
+    INTEGER               :: howmany
+    INTEGER               :: istride, idist
+    INTEGER               :: ostride, odist
+    INTEGER, DIMENSION(1) :: n_array, inembed, onembed
+
+    REAL,    DIMENSION(iim+1,nvectmax) :: dbidon
+    COMPLEX, DIMENSION(iim/2+1,nvectmax) :: cbidon
+
+    vsize = iim
+    scale_factor = 1./SQRT(1.*vsize)
+
+    dbidon = 0
+    cbidon = 0
+
+    ALLOCATE(plan_forward(nvectmax))
+    ALLOCATE(plan_backward(nvectmax))
+    
+    WRITE(*,*)"!---------------------!"
+    WRITE(*,*)"!                     !"
+    WRITE(*,*)"! INITIALISATION FFTW !"
+    WRITE(*,*)"!                     !"
+    WRITE(*,*)"!---------------------!"
+    
+! On initialise tous les plans 
+    DO itmp = 1, nvectmax
+       rank       = 1
+       n_array(1) = iim
+       howmany    = itmp
+       inembed(1) = iim + 1 ; onembed(1) = iim/2 + 1
+       istride    = 1       ; ostride    = 1
+       idist      = iim + 1 ; odist      = iim/2 + 1
+
+       CALL dfftw_plan_many_dft_r2c(plan_forward(itmp), rank, n_array, howmany, &
+            & dbidon, inembed, istride, idist, &
+            & cbidon, onembed, ostride, odist, &
+            & FFTW_ESTIMATE)
+
+       rank       = 1
+       n_array(1) = iim
+       howmany    = itmp
+       inembed(1) = iim/2 + 1 ; onembed(1) = iim + 1
+       istride    = 1         ; ostride    = 1
+       idist      = iim/2 + 1 ; odist      = iim + 1
+       CALL dfftw_plan_many_dft_c2r(plan_backward(itmp), rank, n_array, howmany, &
+            & cbidon, inembed, istride, idist, &
+            & dbidon, onembed, ostride, odist, &
+            & FFTW_ESTIMATE)
+
+    ENDDO
+
+    WRITE(*,*)"!-------------------------!"
+    WRITE(*,*)"!                         !"
+    WRITE(*,*)"! FIN INITIALISATION FFTW !"
+    WRITE(*,*)"!                         !"
+    WRITE(*,*)"!-------------------------!"
+
+  END SUBROUTINE Init_fft
+  
+  
+  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
+    IMPLICIT NONE
+#include <fftw3.f>
+    INTEGER,INTENT(IN)     :: nb_vect
+    REAL,INTENT(IN)        :: vect(vsize+inc,nb_vect)
+    COMPLEX,INTENT(OUT) :: TF_vect(vsize/2+1,nb_vect)
+
+    CALL dfftw_execute_dft_r2c(plan_forward(nb_vect),vect,TF_vect)
+
+    TF_vect = scale_factor * TF_vect
+
+  END SUBROUTINE fft_forward
+  
+  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
+    IMPLICIT NONE
+#include <fftw3.f>
+    INTEGER,INTENT(IN)     :: nb_vect
+    REAL,INTENT(OUT)       :: vect(vsize+inc,nb_vect)
+    COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
+
+    CALL dfftw_execute_dft_c2r(plan_backward(nb_vect),TF_vect,vect)
+
+    vect = scale_factor * vect
+
+  END SUBROUTINE fft_backward
+
+#endif
+  
+END MODULE mod_fft_fftw
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_mathkeisan.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_mathkeisan.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_mathkeisan.F90	(revision 3330)
@@ -0,0 +1,67 @@
+MODULE mod_fft_mathkeisan
+#ifdef FFT_MATHKEISAN
+
+  REAL,SAVE,ALLOCATABLE    :: Table_forward(:)
+  REAL,SAVE,ALLOCATABLE    :: Table_backward(:)
+  REAL,SAVE                :: scale_factor
+  INTEGER,SAVE             :: vsize
+  INTEGER,PARAMETER        :: inc=2
+
+CONTAINS
+  
+  SUBROUTINE Init_fft(iim,nb_vect_max)
+  IMPLICIT NONE
+    INTEGER :: iim
+    INTEGER :: nb_vect_max
+    REAL    :: rtmp=1.
+    COMPLEX :: ctmp
+    INTEGER :: itmp=1
+    INTEGER :: isign=0
+    INTEGER :: ierr
+    
+    vsize=iim
+    scale_factor=1./SQRT(1.*vsize)
+    ALLOCATE(Table_forward(2*vsize+64))
+    ALLOCATE(Table_backward(2*vsize+64))
+    
+    CALL DZFFTM(isign,vsize,itmp,scale_factor,rtmp,vsize+inc,ctmp,vsize/2+1,table_forward,rtmp,ierr)
+    
+    CALL ZDFFTM(isign,vsize,itmp,scale_factor,ctmp,vsize/2+1,rtmp,vsize+inc,table_backward,rtmp,ierr)
+
+    
+  END SUBROUTINE Init_fft
+  
+  
+  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN)  :: nb_vect
+    REAL,INTENT(IN)     :: vect(vsize+inc,nb_vect)
+    COMPLEX,INTENT(OUT) :: TF_vect(vsize/2+1,nb_vect)
+    REAL                :: work(4*vsize*nb_vect)
+    INTEGER             :: ierr
+    INTEGER, PARAMETER :: isign=-1
+    
+    work=0
+    CALL DZFFTM(isign,vsize,nb_vect,scale_factor,vect,vsize+inc,TF_vect,vsize/2+1,table_forward,work,ierr)
+  
+  END SUBROUTINE fft_forward
+  
+  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN)  :: nb_vect
+    REAL,INTENT(OUT)    :: vect(vsize+inc,nb_vect)
+    COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
+    REAL                :: work(4*vsize*nb_vect)
+    INTEGER             :: ierr
+    INTEGER, PARAMETER :: isign=1
+    
+    work(:)=0
+    CALL ZDFFTM(isign,vsize,nb_vect,scale_factor,TF_vect,vsize/2+1,vect,vsize+inc,table_backward,work,ierr)
+  
+  END SUBROUTINE fft_backward
+
+#endif
+  
+END MODULE mod_fft_mathkeisan
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_mkl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_mkl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_mkl.F90	(revision 3330)
@@ -0,0 +1,128 @@
+MODULE mod_fft_mkl
+#ifdef FFT_MKL
+
+  USE MKL_DFTI
+  
+  REAL,SAVE                :: scale_factor
+  INTEGER,SAVE             :: vsize
+  INTEGER,PARAMETER        :: inc=1
+ 
+!  TYPE FFT_HANDLE
+!    TYPE(DFTI_DESCRIPTOR), POINTER :: Pt
+!    LOGICAL :: IsAllocated
+!  END TYPE FFT_HANDLE
+  
+!  TYPE(FFT_HANDLE),SAVE,ALLOCATABLE :: Forward_Handle(:)
+!  TYPE(FFT_HANDLE),SAVE,ALLOCATABLE :: Backward_Handle(:)
+!!$OMP THREADPRIVATE(Forward_Handle,Backward_Handle)  
+  
+CONTAINS
+  
+  SUBROUTINE Init_fft(iim,nb_vect_max)
+    IMPLICIT NONE
+    INTEGER :: iim
+    INTEGER :: nb_vect_max
+    REAL    :: rtmp=1.
+    COMPLEX :: ctmp
+    INTEGER :: itmp=1
+    INTEGER :: isign=0
+    INTEGER :: ierr
+    
+    vsize=iim
+    scale_factor=1./SQRT(1.*vsize)
+!    ALLOCATE(Forward_Handle(nb_vect_max))
+!    ALLOCATE(Backward_Handle(nb_vect_max))
+    
+!    Forward_Handle(:)%IsAllocated=.FALSE.
+!    Backward_Handle(:)%IsAllocated=.FALSE.
+    
+!    ALLOCATE(Table_forward(2*vsize+64))
+!    ALLOCATE(Table_backward(2*vsize+64))
+!    
+!    CALL DZFFTM(isign,vsize,itmp,scale_factor,rtmp,vsize+inc,ctmp,vsize/2+1,table_forward,rtmp,ierr)
+!    
+!    CALL ZDFFTM(isign,vsize,itmp,scale_factor,ctmp,vsize/2+1,rtmp,vsize+inc,table_backward,rtmp,ierr)
+
+!    ierr = DftiCreateDescriptor( FFT_Handle, DFTI_DOUBLE, DFTI_REAL, 1, vsize )
+!    ierr = DftiSetValue(FFT_Handle,DFTI_NUMBER_OF_TRANSFORMS,nb_vect)
+!    ierr = DftiSetValue(FFT_Handle,DFTI_FORWARD_SCALE,scale_factor)
+!    ierr = DftiSetValue(FFT_Handle,DFTI_BACKWARD_SCALE,scale_factor)
+!    ierr = DftiSetValue(FFT_Handle,DFTI_PLACEMENT,DFTI_NOT_INPLACE)
+!    ierr = DftiSetValue(Desc_Handle, DFTI_INPUT_DISTANCE, vsize+inc)
+!    ierr = DftiSetValue(Desc_Handle, DFTI_OUTPUT_DISTANCE, vsize)
+!    ierr = DftiCommitDescriptor( FFT_HANDLE )
+
+  END SUBROUTINE Init_fft
+  
+  
+  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN)  :: nb_vect
+    REAL,INTENT(IN)     :: vect((vsize+inc)*nb_vect)
+    COMPLEX,INTENT(OUT) :: TF_vect((vsize/2+1)*nb_vect)
+    REAL                :: work(4*vsize*nb_vect)
+    INTEGER             :: ierr
+    INTEGER, PARAMETER :: isign=-1
+    REAL               :: vect_out((vsize+inc)*nb_vect)
+    TYPE(DFTI_DESCRIPTOR), POINTER :: FFT_Handle
+    
+!    IF ( .NOT. Forward_handle(nb_vect)%IsAllocated) THEN
+      ierr = DftiCreateDescriptor( FFT_Handle, DFTI_DOUBLE, DFTI_REAL, 1, vsize )
+      ierr = DftiSetValue(FFT_Handle,DFTI_NUMBER_OF_TRANSFORMS,nb_vect)
+      ierr = DftiSetValue(FFT_Handle,DFTI_FORWARD_SCALE,scale_factor)
+      ierr = DftiSetValue(FFT_Handle,DFTI_BACKWARD_SCALE,scale_factor)
+      ierr = DftiSetValue(FFT_Handle,DFTI_PLACEMENT,DFTI_NOT_INPLACE)
+      ierr = DftiSetValue(FFT_Handle, DFTI_INPUT_DISTANCE, vsize+inc)
+      ierr = DftiSetValue(FFT_Handle, DFTI_OUTPUT_DISTANCE, (vsize/2+1)*2)
+      ierr = DftiCommitDescriptor( FFT_Handle )
+!      Forward_handle(nb_vect)%IsAllocated=.TRUE.
+!    ENDIF
+    
+    ierr = DftiComputeForward( FFT_Handle, vect, TF_vect )
+
+    ierr = DftiFreeDescriptor( FFT_Handle )
+
+!    ierr = DftiCreateDescriptor( FFT_Handle, DFTI_DOUBLE, DFTI_REAL, 1, vsize )
+!    ierr = DftiSetValue(FFT_Handle,DFTI_NUMBER_OF_TRANSFORMS,nb_vect)
+!    ierr = DftiSetValue(FFT_Handle,DFTI_FORWARD_SCALE,scale_factor)
+!    ierr = DftiSetValue(FFT_Handle,DFTI_BACKWARD_SCALE,scale_factor)
+!    ierr = DftiSetValue(FFT_Handle,DFTI_PLACEMENT,DFTI_NOT_INPLACE)
+!    ierr = DftiSetValue(FFT_HANDLE, DFTI_INPUT_DISTANCE, vsize/2+1)
+!    ierr = DftiSetValue(FFT_HANDLE, DFTI_OUTPUT_DISTANCE, vsize+inc)
+!    ierr = DftiCommitDescriptor( FFT_HANDLE )
+!    ierr = DftiComputeBackward( FFT_HANDLE, TF_vect, vect_out )
+!    ierr = DftiFreeDescriptor( FFT_HANDLE )
+
+!    CALL DZFFTM(isign,vsize,nb_vect,scale_factor,vect,vsize+inc,TF_vect,vsize/2+1,table_forward,work,ierr)
+  
+  END SUBROUTINE fft_forward
+  
+  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN)  :: nb_vect
+    REAL,INTENT(OUT)    :: vect((vsize+inc)*nb_vect)
+    COMPLEX,INTENT(IN ) :: TF_vect((vsize/2+1)*nb_vect)
+    REAL                :: work(4*vsize*nb_vect)
+    INTEGER             :: ierr
+    INTEGER, PARAMETER :: isign=1
+    TYPE(DFTI_DESCRIPTOR),POINTER :: FFT_Handle
+!    CALL ZDFFTM(isign,vsize,nb_vect,scale_factor,TF_vect,vsize/2+1,vect,vsize+inc,table_backward,work,ierr)
+!    IF ( .NOT. Backward_handle(nb_vect)%IsAllocated) THEN
+      ierr = DftiCreateDescriptor( FFT_Handle, DFTI_DOUBLE, DFTI_REAL, 1, vsize )
+      ierr = DftiSetValue(FFT_Handle,DFTI_NUMBER_OF_TRANSFORMS,nb_vect)
+      ierr = DftiSetValue(FFT_Handle,DFTI_FORWARD_SCALE,scale_factor)
+      ierr = DftiSetValue(FFT_Handle,DFTI_BACKWARD_SCALE,scale_factor)
+      ierr = DftiSetValue(FFT_Handle,DFTI_PLACEMENT,DFTI_NOT_INPLACE)
+      ierr = DftiSetValue(FFT_Handle, DFTI_INPUT_DISTANCE,  (vsize/2+1)*2)
+      ierr = DftiSetValue(FFT_Handle, DFTI_OUTPUT_DISTANCE, vsize+inc)
+      ierr = DftiCommitDescriptor( FFT_Handle )
+!      Backward_handle(nb_vect)%IsAllocated=.TRUE.
+!    ENDIF
+    ierr = DftiComputeBackward( FFT_Handle, TF_vect, vect )
+    ierr = DftiFreeDescriptor( FFT_Handle)
+  
+  END SUBROUTINE fft_backward
+
+#endif
+  
+END MODULE mod_fft_mkl
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_wrapper.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_wrapper.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_fft_wrapper.F90	(revision 3330)
@@ -0,0 +1,37 @@
+MODULE mod_fft_wrapper
+
+  INTEGER,SAVE             :: vsize
+  INTEGER,PARAMETER        :: inc=1
+
+CONTAINS
+  
+  SUBROUTINE Init_fft(iim,nb)
+  IMPLICIT NONE
+    INTEGER :: iim
+    INTEGER :: nb
+    
+    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+  END SUBROUTINE Init_fft
+  
+  
+  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN)  :: nb_vect
+    REAL,INTENT(IN)     :: vect(vsize+inc,nb_vect)
+    COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
+    
+    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    
+  END SUBROUTINE fft_forward
+  
+  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN)  :: nb_vect
+    REAL,INTENT(INOUT)    :: vect(vsize+inc,nb_vect)
+    COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
+  
+    STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
+    
+  END SUBROUTINE fft_backward
+  
+END MODULE mod_fft_wrapper
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_filtre_fft.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_filtre_fft.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_filtre_fft.F90	(revision 3330)
@@ -0,0 +1,300 @@
+!
+! $Id$
+!
+
+MODULE mod_filtre_fft
+
+  LOGICAL,SAVE :: use_filtre_fft
+  REAL,SAVE,ALLOCATABLE :: Filtre_u(:,:)
+  REAL,SAVE,ALLOCATABLE :: Filtre_v(:,:)
+  REAL,SAVE,ALLOCATABLE :: Filtre_inv(:,:)
+
+CONTAINS
+  
+  SUBROUTINE Init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
+    USE mod_fft
+    IMPLICIT NONE
+    include 'dimensions.h'
+    REAL,   INTENT(IN) :: coeffu(iim,jjm)
+    INTEGER,INTENT(IN) :: modfrstu(jjm)
+    INTEGER,INTENT(IN) :: jfiltnu
+    INTEGER,INTENT(IN) :: jfiltsu
+    REAL,   INTENT(IN) :: coeffv(iim,jjm)
+    INTEGER,INTENT(IN) :: modfrstv(jjm)
+    INTEGER,INTENT(IN) :: jfiltnv
+    INTEGER,INTENT(IN) :: jfiltsv
+    
+    INTEGER            :: index_vp(iim)
+    INTEGER            :: i,j
+    INTEGER            :: l,ll_nb
+
+    index_vp(1)=1
+    DO i=1,iim/2
+      index_vp(i+1)=i*2
+    ENDDO
+    
+    DO i=1,iim/2-1
+      index_vp(iim/2+i+1)=iim-2*i+1
+    ENDDO
+    
+    ALLOCATE(Filtre_u(iim,jjm))
+    ALLOCATE(Filtre_v(iim,jjm))
+    ALLOCATE(Filtre_inv(iim,jjm))
+  
+    
+    DO j=2,jfiltnu
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_u(i,j)=0
+        ELSE
+          Filtre_u(i,j)=coeffu(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+    
+    DO j=jfiltsu,jjm
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_u(i,j)=0
+        ELSE
+          Filtre_u(i,j)=coeffu(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+ 
+    DO j=1,jfiltnv
+      DO i=1,iim
+        IF (index_vp(i) < modfrstv(j)) THEN
+          Filtre_v(i,j)=0
+        ELSE
+          Filtre_v(i,j)=coeffv(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+   
+    DO j=jfiltsv,jjm
+      DO i=1,iim
+        IF (index_vp(i) < modfrstv(j)) THEN
+          Filtre_v(i,j)=0
+        ELSE
+          Filtre_v(i,j)=coeffv(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+         
+    DO j=2,jfiltnu
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_inv(i,j)=0
+        ELSE
+          Filtre_inv(i,j)=coeffu(index_vp(i),j)/(1.+coeffu(index_vp(i),j))
+        ENDIF
+      ENDDO
+    ENDDO
+
+    DO j=jfiltsu,jjm
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_inv(i,j)=0
+        ELSE
+          Filtre_inv(i,j)=coeffu(index_vp(i),j)/(1.+coeffu(index_vp(i),j))
+        ENDIF
+      ENDDO
+    ENDDO
+    
+#ifdef FFT_FFTW
+
+    WRITE (*,*)"COTH jfiltnu,jfiltsu,jfiltnv,jjm-jfiltsv"
+    WRITE (*,*)jfiltnu,jfiltsu,jfiltnv,jjm-jfiltsv
+    WRITE (*,*)MAX(jfiltnu-2,jjm-jfiltsu,jfiltnv-2,jjm-jfiltsv)+1
+    CALL Init_FFT(iim,(llm+1)*(MAX(jfiltnu-2,jjm-jfiltsu,jfiltnv-2,jjm-jfiltsv)+1))
+#else    
+    CALL Init_FFT(iim,(jjm+1)*(llm+1))
+#endif        
+    
+  END SUBROUTINE Init_filtre_fft
+  
+  SUBROUTINE Filtre_u_fft(vect_inout,nlat,jj_begin,jj_end,nbniv)
+    USE mod_fft
+#ifdef CPP_PARA
+    USE parallel_lmdz,ONLY : OMP_CHUNK
+#endif
+    IMPLICIT NONE
+    include 'dimensions.h'
+    INTEGER,INTENT(IN) :: nlat
+    INTEGER,INTENT(IN) :: jj_begin
+    INTEGER,INTENT(IN) :: jj_end
+    INTEGER,INTENT(IN) :: nbniv
+    REAL,INTENT(INOUT) :: vect_inout(iim+1,nlat,nbniv)
+
+    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
+    COMPLEX         :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
+    INTEGER            :: nb_vect
+    INTEGER :: i,j,l
+    INTEGER :: ll_nb
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect(i,j,ll_nb)=vect_inout(i,j+jj_begin-1,l)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+    nb_vect=(jj_end-jj_begin+1)*ll_nb
+
+    CALL FFT_forward(vect,TF_vect,nb_vect)
+
+    DO l=1,ll_nb
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim/2+1
+          TF_vect(i,j,l)=TF_vect(i,j,l)*Filtre_u(i,jj_begin+j-1)
+        ENDDO
+      ENDDO
+    ENDDO
+  
+    CALL FFT_backward(TF_vect,vect,nb_vect)
+      
+      
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect_inout(i,j+jj_begin-1,l)=vect(i,j,ll_nb)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+  END SUBROUTINE Filtre_u_fft
+  
+
+  SUBROUTINE Filtre_v_fft(vect_inout,nlat,jj_begin,jj_end,nbniv)
+    USE mod_fft
+#ifdef CPP_PARA
+    USE parallel_lmdz,ONLY : OMP_CHUNK
+#endif
+    IMPLICIT NONE
+    INCLUDE 'dimensions.h'
+    INTEGER,INTENT(IN) :: nlat
+    INTEGER,INTENT(IN) :: jj_begin
+    INTEGER,INTENT(IN) :: jj_end
+    INTEGER,INTENT(IN) :: nbniv
+    REAL,INTENT(INOUT) :: vect_inout(iim+1,nlat,nbniv)
+
+    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
+    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
+    INTEGER            :: nb_vect
+    INTEGER :: i,j,l
+    INTEGER :: ll_nb
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect(i,j,ll_nb)=vect_inout(i,j+jj_begin-1,l)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+    
+    nb_vect=(jj_end-jj_begin+1)*ll_nb
+
+    CALL FFT_forward(vect,TF_vect,nb_vect)
+  
+    DO l=1,ll_nb
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim/2+1
+          TF_vect(i,j,l)=TF_vect(i,j,l)*Filtre_v(i,jj_begin+j-1)
+        ENDDO
+      ENDDO
+    ENDDO
+  
+    CALL FFT_backward(TF_vect,vect,nb_vect)
+    
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect_inout(i,j+jj_begin-1,l)=vect(i,j,ll_nb)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+  
+  END SUBROUTINE Filtre_v_fft
+
+
+  SUBROUTINE Filtre_inv_fft(vect_inout,nlat,jj_begin,jj_end,nbniv)
+    USE mod_fft
+#ifdef CPP_PARA
+    USE parallel_lmdz,ONLY : OMP_CHUNK
+#endif
+    IMPLICIT NONE
+    INCLUDE 'dimensions.h'
+    INTEGER,INTENT(IN) :: nlat
+    INTEGER,INTENT(IN) :: jj_begin
+    INTEGER,INTENT(IN) :: jj_end
+    INTEGER,INTENT(IN) :: nbniv
+    REAL,INTENT(INOUT) :: vect_inout(iim+1,nlat,nbniv)
+
+     REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
+    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
+    INTEGER            :: nb_vect
+    INTEGER :: i,j,l
+    INTEGER :: ll_nb
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect(i,j,ll_nb)=vect_inout(i,j+jj_begin-1,l)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+    nb_vect=(jj_end-jj_begin+1)*ll_nb
+
+    CALL FFT_forward(vect,TF_vect,nb_vect)
+  
+    DO l=1,ll_nb
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim/2+1
+          TF_vect(i,j,l)=TF_vect(i,j,l)*Filtre_inv(i,jj_begin+j-1)
+        ENDDO
+      ENDDO
+    ENDDO
+  
+    CALL FFT_backward(TF_vect,vect,nb_vect)
+
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect_inout(i,j+jj_begin-1,l)=vect(i,j,ll_nb)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+  END SUBROUTINE Filtre_inv_fft  
+   
+END MODULE mod_filtre_fft
+ 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_filtre_fft_loc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_filtre_fft_loc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/mod_filtre_fft_loc.F90	(revision 3330)
@@ -0,0 +1,343 @@
+MODULE mod_filtre_fft_loc
+
+  LOGICAL,SAVE :: use_filtre_fft
+  REAL,SAVE,ALLOCATABLE :: Filtre_u(:,:)
+  REAL,SAVE,ALLOCATABLE :: Filtre_v(:,:)
+  REAL,SAVE,ALLOCATABLE :: Filtre_inv(:,:)
+
+CONTAINS
+  
+  SUBROUTINE Init_filtre_fft(coeffu,modfrstu,jfiltnu,jfiltsu,coeffv,modfrstv,jfiltnv,jfiltsv)
+    USE mod_fft
+    IMPLICIT NONE
+    include 'dimensions.h'
+    REAL,   INTENT(IN) :: coeffu(iim,jjm)
+    INTEGER,INTENT(IN) :: modfrstu(jjm)
+    INTEGER,INTENT(IN) :: jfiltnu
+    INTEGER,INTENT(IN) :: jfiltsu
+    REAL,   INTENT(IN) :: coeffv(iim,jjm)
+    INTEGER,INTENT(IN) :: modfrstv(jjm)
+    INTEGER,INTENT(IN) :: jfiltnv
+    INTEGER,INTENT(IN) :: jfiltsv
+    
+    INTEGER            :: index_vp(iim)
+    INTEGER            :: i,j
+    
+    index_vp(1)=1
+    DO i=1,iim/2
+      index_vp(i+1)=i*2
+    ENDDO
+    
+    DO i=1,iim/2-1
+      index_vp(iim/2+i+1)=iim-2*i+1
+    ENDDO
+    
+    ALLOCATE(Filtre_u(iim,jjm))
+    ALLOCATE(Filtre_v(iim,jjm))
+    ALLOCATE(Filtre_inv(iim,jjm))
+  
+    
+    DO j=2,jfiltnu
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_u(i,j)=0
+        ELSE
+          Filtre_u(i,j)=coeffu(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+    
+    DO j=jfiltsu,jjm
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_u(i,j)=0
+        ELSE
+          Filtre_u(i,j)=coeffu(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+ 
+    DO j=1,jfiltnv
+      DO i=1,iim
+        IF (index_vp(i) < modfrstv(j)) THEN
+          Filtre_v(i,j)=0
+        ELSE
+          Filtre_v(i,j)=coeffv(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+   
+    DO j=jfiltsv,jjm
+      DO i=1,iim
+        IF (index_vp(i) < modfrstv(j)) THEN
+          Filtre_v(i,j)=0
+        ELSE
+          Filtre_v(i,j)=coeffv(index_vp(i),j)
+        ENDIF
+      ENDDO
+    ENDDO
+         
+    DO j=2,jfiltnu
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_inv(i,j)=0
+        ELSE
+          Filtre_inv(i,j)=coeffu(index_vp(i),j)/(1.+coeffu(index_vp(i),j))
+        ENDIF
+      ENDDO
+    ENDDO
+
+    DO j=jfiltsu,jjm
+      DO i=1,iim
+        IF (index_vp(i) < modfrstu(j)) THEN
+          Filtre_inv(i,j)=0
+        ELSE
+          Filtre_inv(i,j)=coeffu(index_vp(i),j)/(1.+coeffu(index_vp(i),j))
+        ENDIF
+      ENDDO
+    ENDDO
+    
+    
+!    CALL Init_FFT(iim,(jjm+1)*(llm+1))
+        
+    
+  END SUBROUTINE Init_filtre_fft
+  
+  SUBROUTINE Filtre_u_fft(vect_inout,jjb,jje,jj_begin,jj_end,nbniv)
+    USE mod_fft
+#ifdef CPP_PARA
+    USE parallel_lmdz,ONLY : OMP_CHUNK
+#endif
+    IMPLICIT NONE
+    include 'dimensions.h'
+    INTEGER,INTENT(IN) :: jjb
+    INTEGER,INTENT(IN) :: jje
+    INTEGER,INTENT(IN) :: jj_begin
+    INTEGER,INTENT(IN) :: jj_end
+    INTEGER,INTENT(IN) :: nbniv
+    REAL,INTENT(INOUT) :: vect_inout(iim+1,jjb:jje,nbniv)
+
+    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
+    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
+    INTEGER            :: nb_vect
+    INTEGER :: i,j,l
+    INTEGER :: ll_nb
+!    REAL               :: vect_tmp(iim+inc,jj_end-jj_begin+1,nbniv)
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect(i,j,ll_nb)=vect_inout(i,j+jj_begin-1,l)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+    nb_vect=(jj_end-jj_begin+1)*ll_nb
+
+!    vect_tmp=vect
+
+    CALL FFT_forward(vect,TF_vect,nb_vect)
+
+!    CALL FFT_forward(vect,TF_vect_test,nb_vect)
+!      PRINT *,"XXXXXXXXXXXXX Filtre_u_FFT xxxxxxxxxxxx"
+!      DO j=1,jj_end-jj_begin+1
+!      DO i=1,iim/2+1
+!         PRINT *,"====",i,j,"----->",TF_vect_test(i,j,1)
+!       ENDDO
+!      ENDDO
+
+    DO l=1,ll_nb
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim/2+1
+          TF_vect(i,j,l)=TF_vect(i,j,l)*Filtre_u(i,jj_begin+j-1)
+        ENDDO
+      ENDDO
+    ENDDO
+       
+    CALL FFT_backward(TF_vect,vect,nb_vect)
+!    CALL FFT_backward(TF_vect_test,vect_test,nb_vect)
+          
+!      PRINT *,"XXXXXXXXXXXXX Filtre_u_FFT xxxxxxxxxxxx"
+!      DO j=1,jj_end-jj_begin+1
+!         DO i=1,iim
+!           PRINT *,"====",i,j,"----->",vect_test(i,j,1)
+!         ENDDO
+!      ENDDO
+
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect_inout(i,j+jj_begin-1,l)=vect(i,j,ll_nb)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+  END SUBROUTINE Filtre_u_fft
+  
+
+  SUBROUTINE Filtre_v_fft(vect_inout,jjb,jje,jj_begin,jj_end,nbniv)
+    USE mod_fft
+#ifdef CPP_PARA
+    USE parallel_lmdz,ONLY : OMP_CHUNK
+#endif
+    IMPLICIT NONE
+    INCLUDE 'dimensions.h'
+    INTEGER,INTENT(IN) :: jjb
+    INTEGER,INTENT(IN) :: jje
+    INTEGER,INTENT(IN) :: jj_begin
+    INTEGER,INTENT(IN) :: jj_end
+    INTEGER,INTENT(IN) :: nbniv
+    REAL,INTENT(INOUT) :: vect_inout(iim+1,jjb:jje,nbniv)
+
+    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
+    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
+    INTEGER            :: nb_vect
+    INTEGER :: i,j,l
+    INTEGER :: ll_nb
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect(i,j,ll_nb)=vect_inout(i,j+jj_begin-1,l)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+    
+    nb_vect=(jj_end-jj_begin+1)*ll_nb
+
+    CALL FFT_forward(vect,TF_vect,nb_vect)
+  
+    DO l=1,ll_nb
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim/2+1
+          TF_vect(i,j,l)=TF_vect(i,j,l)*Filtre_v(i,jj_begin+j-1)
+        ENDDO
+      ENDDO
+    ENDDO
+  
+    CALL FFT_backward(TF_vect,vect,nb_vect)
+    
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect_inout(i,j+jj_begin-1,l)=vect(i,j,ll_nb)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+  
+  END SUBROUTINE Filtre_v_fft
+
+
+  SUBROUTINE Filtre_inv_fft(vect_inout,jjb,jje,jj_begin,jj_end,nbniv)
+    USE mod_fft
+#ifdef CPP_PARA
+    USE parallel_lmdz,ONLY : OMP_CHUNK
+#endif
+    IMPLICIT NONE
+    INCLUDE 'dimensions.h'
+    INTEGER,INTENT(IN) :: jjb
+    INTEGER,INTENT(IN) :: jje
+    INTEGER,INTENT(IN) :: jj_begin
+    INTEGER,INTENT(IN) :: jj_end
+    INTEGER,INTENT(IN) :: nbniv
+    REAL,INTENT(INOUT) :: vect_inout(iim+1,jjb:jje,nbniv)
+
+    REAL               :: vect(iim+inc,jj_end-jj_begin+1,nbniv)
+    COMPLEX            :: TF_vect(iim/2+1,jj_end-jj_begin+1,nbniv)
+    INTEGER            :: nb_vect
+    INTEGER :: i,j,l
+    INTEGER :: ll_nb
+    
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect(i,j,ll_nb)=vect_inout(i,j+jj_begin-1,l)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+    nb_vect=(jj_end-jj_begin+1)*ll_nb
+
+    CALL FFT_forward(vect,TF_vect,nb_vect)
+  
+    DO l=1,ll_nb
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim/2+1
+          TF_vect(i,j,l)=TF_vect(i,j,l)*Filtre_inv(i,jj_begin+j-1)
+        ENDDO
+      ENDDO
+    ENDDO
+  
+    CALL FFT_backward(TF_vect,vect,nb_vect)
+
+    ll_nb=0
+!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
+    DO l=1,nbniv
+      ll_nb=ll_nb+1
+      DO j=1,jj_end-jj_begin+1
+        DO i=1,iim+1
+          vect_inout(i,j+jj_begin-1,l)=vect(i,j,ll_nb)
+        ENDDO
+      ENDDO
+    ENDDO
+!$OMP END DO NOWAIT
+
+  END SUBROUTINE Filtre_inv_fft  
+  
+  
+!  SUBROUTINE get_ll_index(nbniv,ll_index,ll_nb)
+!  IMPLICIT NONE
+!    INTEGER,INTENT(IN)  :: nbniv
+!    INTEGER,INTENT(OUT) :: ll_index(nbniv)
+!    INTEGER,INTENT(OUT) :: ll_nb
+!
+!    INTEGER :: l,ll_begin, ll_end
+!   INTEGER :: omp_rank,omp_size
+!   INTEGER :: OMP_GET_NUM_THREADS
+!   INTEGER :: omp_chunk
+!   EXTERNAL OMP_GET_NUM_THREADS
+!   INTEGER :: OMP_GET_THREAD_NUM
+!   EXTERNAL OMP_GET_THREAD_NUM
+!
+!   
+!   omp_size=OMP_GET_NUM_THREADS()
+!   omp_rank=OMP_GET_THREAD_NUM()    
+!   omp_chunk=nbniv/omp_size+min(1,MOD(nbniv,omp_size))
+!   
+!   ll_begin=omp_rank*OMP_CHUNK+1
+!   ll_nb=0
+!   DO WHILE (ll_begin<=nbniv)
+!     ll_end=min(ll_begin+OMP_CHUNK-1,nbniv)
+!     DO l=ll_begin,ll_end
+!       ll_nb=ll_nb+1
+!       ll_index(ll_nb)=l
+!     ENDDO
+!     ll_begin=ll_begin+omp_size*OMP_CHUNK
+!   ENDDO
+!  
+!  END SUBROUTINE get_ll_index
+   
+END MODULE mod_filtre_fft_loc
+ 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h	(revision 3330)
@@ -0,0 +1,4 @@
+!
+! $Header$
+!
+        INTEGER nfilun, nfilus, nfilvn, nfilvs
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h_192x142x29
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h_192x142x29	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h_192x142x29	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Header$
+!
+        INTEGER nfilun, nfilus, nfilvn, nfilvs
+c
+c 48 32 19 non-zoom:
+c       PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
+c        PARAMETER (nfilun=6, nfilus=5, nfilvn=5, nfilvs=5)
+c        PARAMETER (nfilun=15, nfilus=8, nfilvn=14, nfilvs=8)
+c        PARAMETER (nfilun=24, nfilus=23, nfilvn=24, nfilvs=24)
+cmaf -debug  PARAMETER (nfilun=2, nfilus=1, nfilvn=2, nfilvs=2)
+c
+c
+c 96 49 11 non-zoom:
+ccc      PARAMETER (nfilun=9, nfilus=8, nfilvn=8, nfilvs=8)
+c
+c
+c 144 73 11 non-zoom:
+ccc      PARAMETER (nfilun=13, nfilus=12, nfilvn=12, nfilvs=12)
+c
+c 192 143 19 non-zoom:
+c             PARAMETER (nfilun=13, nfilus=12, nfilvn=13, nfilvs=13)
+c      PARAMETER (nfilun=15, nfilus=14, nfilvn=14, nfilvs=14) !!NO fxyhyper
+c      PARAMETER (nfilun=18, nfilus=17, nfilvn=17, nfilvs=17) !!NO fxyhyper
+c       PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
+
+c 96 72 19 non-zoom:
+c     PARAMETER (nfilun=12, nfilus=11, nfilvn=12, nfilvs=12)
+c 192 142 29 non-zoom:
+      PARAMETER (nfilun=24, nfilus=23, nfilvn=24, nfilvs=24)
+c
+c        PARAMETER ( nfilun=20, nfilus=20, nfilvn=20, nfilvs=20 )
+c        PARAMETER ( nfilun=8, nfilus=7, nfilvn=7, nfilvs=7 )
+c
+c
+c      Ici , on a exagere  les nombres de lignes de latitudes a filtrer .
+c
+c      La premiere fois que  le Gcm  rentrera  dans le Filtre ,
+c
+c      il indiquera  les bonnes valeurs  de  nfilun , nflius, nfilvn  et 
+c
+c      nfilvs  a  mettre .  Il suffira alors de changer ces valeurs dans
+c
+c      Parameter  ci-dessus  et de relancer  le  run .  
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h_96x71x19
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h_96x71x19	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/parafilt.h_96x71x19	(revision 3330)
@@ -0,0 +1,46 @@
+!
+! $Header$
+!
+        INTEGER nfilun, nfilus, nfilvn, nfilvs
+c
+c 48 32 19 non-zoom:
+c       PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
+c        PARAMETER (nfilun=6, nfilus=5, nfilvn=5, nfilvs=5)
+c        PARAMETER (nfilun=15, nfilus=8, nfilvn=14, nfilvs=8)
+c        PARAMETER (nfilun=24, nfilus=23, nfilvn=24, nfilvs=24)
+cmaf -debug  PARAMETER (nfilun=2, nfilus=1, nfilvn=2, nfilvs=2)
+c
+c
+c 96 49 11 non-zoom:
+ccc      PARAMETER (nfilun=9, nfilus=8, nfilvn=8, nfilvs=8)
+c
+c
+c 144 73 11 non-zoom:
+ccc      PARAMETER (nfilun=13, nfilus=12, nfilvn=12, nfilvs=12)
+c
+c 192 143 19 non-zoom:
+c             PARAMETER (nfilun=13, nfilus=12, nfilvn=13, nfilvs=13)
+c      PARAMETER (nfilun=15, nfilus=14, nfilvn=14, nfilvs=14) !!NO fxyhyper
+c      PARAMETER (nfilun=18, nfilus=17, nfilvn=17, nfilvs=17) !!NO fxyhyper
+c       PARAMETER (nfilun=30,nfilus=30,nfilvn=30,nfilvs=30)
+
+cIM 96 72 19 non-zoom:
+c 96 71 19 non-zoom:
+      PARAMETER (nfilun=12, nfilus=11, nfilvn=12, nfilvs=12)
+c 192 142 29 non-zoom:
+c     PARAMETER (nfilun=24, nfilus=23, nfilvn=24, nfilvs=24)
+c
+c        PARAMETER ( nfilun=20, nfilus=20, nfilvn=20, nfilvs=20 )
+c        PARAMETER ( nfilun=8, nfilus=7, nfilvn=7, nfilvs=7 )
+c
+c
+c      Ici , on a exagere  les nombres de lignes de latitudes a filtrer .
+c
+c      La premiere fois que  le Gcm  rentrera  dans le Filtre ,
+c
+c      il indiquera  les bonnes valeurs  de  nfilun , nflius, nfilvn  et 
+c
+c      nfilvs  a  mettre .  Il suffira alors de changer ces valeurs dans
+c
+c      Parameter  ci-dessus  et de relancer  le  run .  
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/timer_filtre.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/timer_filtre.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/filtrez/timer_filtre.F90	(revision 3330)
@@ -0,0 +1,33 @@
+MODULE timer_filtre
+IMPLICIT NONE
+  PRIVATE
+  REAL :: time
+  REAL :: Last_time
+  PUBLIC :: Init_timer, start_timer, stop_timer, Print_filtre_timer
+CONTAINS
+
+ SUBROUTINE Init_timer
+   time=0
+   Last_time=0
+ END SUBROUTINE Init_timer
+ 
+ SUBROUTINE Start_timer
+  
+   CALL cpu_time(last_time)
+
+ END SUBROUTINE start_timer
+ 
+ 
+ SUBROUTINE stop_timer
+   REAL :: T 
+   
+   CALL cpu_time(t)
+   Time=Time+t-last_time
+ 
+  END SUBROUTINE stop_timer
+  
+  SUBROUTINE Print_filtre_timer
+  PRINT *,"Temps CPU passe dans le filtre :",Time
+  END SUBROUTINE  Print_filtre_timer
+
+END MODULE timer_filtre
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/dimension/makdim
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/dimension/makdim	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/dimension/makdim	(revision 3330)
@@ -0,0 +1,76 @@
+#!/bin/bash
+#set -xv
+
+# sanity check: do we have the required argument ?
+if (( $# < 1 )) || (( $# > 3 ))
+then
+    echo "Wrong number of parameters in $0 !!!"
+    echo " Usage:"
+    echo "  $0 [im] [jm] lm"
+    echo " where im, jm and lm are the dimensions"
+    exit 1
+fi
+
+if (($1 % 8 != 0)) && (( $# == 3 ))
+then
+    echo "The number of longitudes must be a multiple of 8."
+    echo "See the files dyn3d/groupe.F and dyn3dmem/groupe_loc.F."
+    exit 1
+fi
+
+# build "fichnom", the relevant 'dimensions.im.jm.lm' file name
+for i in $*
+do
+    list=$list.$i
+done
+fichdim=dimensions${list}
+
+if [ ! -f $fichdim ]
+then
+#    echo "$fichdim does not exist"
+
+    # assign values of im, jm and lm
+    if [ $# -ge 3 ]
+    then
+        im=$1
+        jm=$2
+        lm=$3
+        ndm=1
+    elif [ $# -ge 2 ]
+    then
+        im=1
+        jm=$1
+        lm=$2
+        ndm=1
+    elif [ $# -ge 1 ]
+    then
+        im=1
+        jm=1
+        lm=$1
+        ndm=1
+    fi
+
+# since the file doesn't exist, we create it
+    cat << EOF > $fichdim
+!-----------------------------------------------------------------------
+!   INCLUDE 'dimensions.h'
+!
+!   dimensions.h contient les dimensions du modele
+!   ndm est tel que iim=2**ndm
+!-----------------------------------------------------------------------
+
+      INTEGER iim,jjm,llm,ndm
+
+      PARAMETER (iim= $im,jjm=$jm,llm=$lm,ndm=$ndm)
+
+!-----------------------------------------------------------------------
+EOF
+
+fi
+
+# remove 'old' dimensions.h file (if any) and replace it with new one
+if [ -f ../dimensions.h ] ; then
+    \rm ../dimensions.h
+fi
+tar cf - $fichdim | ( cd .. ; tar xf - ; mv $fichdim dimensions.h )
+# line above is a trick to preserve time of creation of dimensions.h files
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_new.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_new.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_new.h	(revision 3330)
@@ -0,0 +1,27 @@
+!
+! $Header$
+!
+c--------------------------------------------------------------
+         REAL ripx
+         REAL fx,fxprim,fy,fyprim,ri,rj,bigy
+c
+c....stretching in x...
+c
+        ripx(  ri )= (ri-1.0) *2.*pi/REAL(iim) 
+        fx  (  ri )= ripx(ri) + transx  +
+     *         alphax * SIN( ripx(ri)+transx-pxo ) - pi
+        fxprim(ri) = 2.*pi/REAL(iim)  *
+     *        ( 1.+ alphax * COS( ripx(ri)+transx-pxo ) )
+
+c....stretching in y...
+c
+        bigy(rj)   = 2.* (REAL(jjp1)-rj ) *pi/jjm
+        fy(rj)     =  ( bigy(rj) + transy  +
+     *        alphay * SIN( bigy(rj)+transy-pyo ) ) /2.  - pi/2.
+        fyprim(rj) = ( pi/jjm ) * ( 1.+
+     *           alphay * COS( bigy(rj)+transy-pyo ) )
+
+c       fy(rj)= pyo-pisjjm*(rj-transy)+coefalpha*SIN(depisjm*(rj-
+c     *  transy ))
+c       fyprim(rj)= pisjjm-pisjjm*coefy2* COS(depisjm*(rj-transy)) 
+c--------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_reg.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_reg.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_reg.h	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Header$
+!
+c-----------------------------------------------------------------------
+c INCLUDE 'fxyprim.h'
+c
+c    ................................................................
+c    ................  Fonctions in line  ...........................
+c    ................................................................
+c
+      REAL  fy, fx, fxprim, fyprim
+      REAL  ri, rj
+c
+c
+      fy    ( rj ) =    pi/REAL(jjm) * ( 0.5 * REAL(jjm) +  1. - rj  )
+      fyprim( rj ) =    pi/REAL(jjm)
+
+c     fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm)))
+c     fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))
+
+      fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5*  REAL(iim) - 1. )
+c     fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) )
+      fxprim( ri ) = 2.*pi/REAL(iim)
+c
+c
+c    La valeur de pi est passee par le common/const/ou /const2/ .
+c    Sinon, il faut la calculer avant d'appeler ces fonctions .
+c
+c   ----------------------------------------------------------------
+c     Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
+c   -----------------------------------------------------------------
+c
+c    .....  ici, on a l'application particuliere suivante   ........
+c
+c                **************************************
+c                **     x = 2. * pi/iim *  X         **
+c                **     y =      pi/jjm *  Y         **
+c                **************************************
+c
+c   ..................................................................
+c   ..................................................................
+c
+c
+c
+c-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_sin.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_sin.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxy_sin.h	(revision 3330)
@@ -0,0 +1,42 @@
+!
+! $Header$
+!
+c-----------------------------------------------------------------------
+c INCLUDE 'fxyprim.h'
+c
+c    ................................................................
+c    ................  Fonctions in line  ...........................
+c    ................................................................
+c
+      REAL  fy, fx, fxprim, fyprim
+      REAL  ri, rj
+c
+c
+      fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm)))
+      fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))
+
+      fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5*  REAL(iim) - 1. )
+c     fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) )
+      fxprim( ri ) = 2.*pi/REAL(iim)
+c
+c
+c    La valeur de pi est passee par le common/const/ou /const2/ .
+c    Sinon, il faut la calculer avant d'appeler ces fonctions .
+c
+c   ----------------------------------------------------------------
+c     Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
+c   -----------------------------------------------------------------
+c
+c    .....  ici, on a l'application particuliere suivante   ........
+c
+c                **************************************
+c                **     x = 2. * pi/iim *  X         **
+c                **     y =      pi/jjm *  Y         **
+c                **************************************
+c
+c   ..................................................................
+c   ..................................................................
+c
+c
+c
+c-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxyprim.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxyprim.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/grid/fxyprim.h	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Header$
+!
+c-----------------------------------------------------------------------
+c INCLUDE 'fxyprim.h'
+c
+c    ................................................................
+c    ................  Fonctions in line  ...........................
+c    ................................................................
+c
+      REAL  fy, fx, fxprim, fyprim
+      REAL  ri, rj
+c
+c
+      fy    ( rj ) =    pi/REAL(jjm) * ( 0.5 * REAL(jjm) +  1. - rj  )
+      fyprim( rj ) =    pi/REAL(jjm)
+
+c     fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm)))
+c     fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))
+
+      fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5*  REAL(iim) - 1. )
+c     fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) )
+      fxprim( ri ) = 2.*pi/REAL(iim)
+c
+c
+c    La valeur de pi est passee par le common/const/ou /const2/ .
+c    Sinon, il faut la calculer avant d'appeler ces fonctions .
+c
+c   ----------------------------------------------------------------
+c     Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
+c   -----------------------------------------------------------------
+c
+c    .....  ici, on a l'application particuliere suivante   ........
+c
+c                **************************************
+c                **     x = 2. * pi/iim *  X         **
+c                **     y =      pi/jjm *  Y         **
+c                **************************************
+c
+c   ..................................................................
+c   ..................................................................
+c
+c
+c
+c-----------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/arth_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/arth_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/arth_m.F90	(revision 3330)
@@ -0,0 +1,88 @@
+MODULE arth_m
+
+  IMPLICIT NONE
+
+  INTEGER, PARAMETER, private:: NPAR_ARTH=16, NPAR2_ARTH=8
+
+  INTERFACE arth
+     ! Returns an arithmetic progression, given a first term "first", an
+     ! increment and a number of terms "n" (including "first").
+
+     MODULE PROCEDURE arth_r, arth_i
+     ! The difference between the procedures is the kind and type of
+     ! arguments first and increment and of function result.
+  END INTERFACE
+
+  private arth_r, arth_i
+
+CONTAINS
+
+  pure FUNCTION arth_r(first,increment,n)
+
+    REAL, INTENT(IN) :: first,increment
+    INTEGER, INTENT(IN) :: n
+    REAL arth_r(n)
+
+    ! Local:
+    INTEGER :: k,k2
+    REAL :: temp
+
+    !---------------------------------------
+
+    if (n > 0) arth_r(1)=first
+    if (n <= NPAR_ARTH) then
+       do k=2,n
+          arth_r(k)=arth_r(k-1)+increment
+       end do
+    else
+       do k=2,NPAR2_ARTH
+          arth_r(k)=arth_r(k-1)+increment
+       end do
+       temp=increment*NPAR2_ARTH
+       k=NPAR2_ARTH
+       do
+          if (k >= n) exit
+          k2=k+k
+          arth_r(k+1:min(k2,n)) = temp + arth_r(1:min(k,n-k))
+          temp=temp+temp
+          k=k2
+       end do
+    end if
+
+  END FUNCTION arth_r
+
+  !*************************************
+
+  pure FUNCTION arth_i(first,increment,n)
+
+    INTEGER, INTENT(IN) :: first,increment,n
+    INTEGER arth_i(n)
+
+    ! Local:
+    INTEGER :: k,k2,temp
+
+    !---------------------------------------
+
+    if (n > 0) arth_i(1)=first
+    if (n <= NPAR_ARTH) then
+       do k=2,n
+          arth_i(k)=arth_i(k-1)+increment
+       end do
+    else
+       do k=2,NPAR2_ARTH
+          arth_i(k)=arth_i(k-1)+increment
+       end do
+       temp=increment*NPAR2_ARTH
+       k=NPAR2_ARTH
+       do
+          if (k >= n) exit
+          k2=k+k
+          arth_i(k+1:min(k2,n))=temp+arth_i(1:min(k,n-k))
+          temp=temp+temp
+          k=k2
+       end do
+    end if
+
+  END FUNCTION arth_i
+
+END MODULE arth_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/assert_eq_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/assert_eq_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/assert_eq_m.F90	(revision 3330)
@@ -0,0 +1,70 @@
+! $Id$
+MODULE assert_eq_m
+
+  implicit none
+
+  INTERFACE assert_eq
+     MODULE PROCEDURE assert_eq2,assert_eq3,assert_eq4,assert_eqn
+  END INTERFACE
+
+  private assert_eq2,assert_eq3,assert_eq4,assert_eqn
+
+CONTAINS
+
+  FUNCTION assert_eq2(n1,n2,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    INTEGER, INTENT(IN) :: n1,n2
+    INTEGER  assert_eq2
+    if (n1 == n2) then
+       assert_eq2=n1
+    else
+       write (*,*) 'nrerror: an assert_eq failed with this tag: ', &
+            string
+       print *, 'program terminated by assert_eq2'
+       stop 1
+    end if
+  END FUNCTION assert_eq2
+  !BL
+  FUNCTION assert_eq3(n1,n2,n3,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    INTEGER, INTENT(IN) :: n1,n2,n3
+    INTEGER  assert_eq3
+    if (n1 == n2 .and. n2 == n3) then
+       assert_eq3=n1
+    else
+       write (*,*) 'nrerror: an assert_eq failed with this tag: ', &
+            string
+       print *, 'program terminated by assert_eq3'
+       stop 1
+    end if
+  END FUNCTION assert_eq3
+  !BL
+  FUNCTION assert_eq4(n1,n2,n3,n4,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    INTEGER, INTENT(IN) :: n1,n2,n3,n4
+    INTEGER  assert_eq4
+    if (n1 == n2 .and. n2 == n3 .and. n3 == n4) then
+       assert_eq4=n1
+    else
+       write (*,*) 'nrerror: an assert_eq failed with this tag: ', &
+            string,n1,n2,n3,n4
+       print *, 'program terminated by assert_eq4'
+       stop 1
+    end if
+  END FUNCTION assert_eq4
+  !BL
+  FUNCTION assert_eqn(nn,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    INTEGER, DIMENSION(:), INTENT(IN) :: nn
+    INTEGER  assert_eqn
+    if (all(nn(2:) == nn(1))) then
+       assert_eqn=nn(1)
+    else
+       write (*,*) 'nrerror: an assert_eq failed with this tag: ', &
+            string
+       print *, 'program terminated by assert_eqn'
+       stop 1
+    end if
+  END FUNCTION assert_eqn
+
+END MODULE assert_eq_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/assert_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/assert_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/assert_m.F90	(revision 3330)
@@ -0,0 +1,69 @@
+! $Id$
+MODULE assert_m
+
+  implicit none
+
+  INTERFACE assert
+     MODULE PROCEDURE assert1,assert2,assert3,assert4,assert_v
+  END INTERFACE
+
+  private assert1,assert2,assert3,assert4,assert_v
+
+CONTAINS
+
+  SUBROUTINE assert1(n1,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1
+    if (.not. n1) then
+       write (*,*) 'nrerror: an assertion failed with this tag:', &
+            string
+       print *, 'program terminated by assert1'
+       stop 1
+    end if
+  END SUBROUTINE assert1
+  !BL
+  SUBROUTINE assert2(n1,n2,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1,n2
+    if (.not. (n1 .and. n2)) then
+       write (*,*) 'nrerror: an assertion failed with this tag:', &
+            string
+       print *, 'program terminated by assert2'
+       stop 1
+    end if
+  END SUBROUTINE assert2
+  !BL
+  SUBROUTINE assert3(n1,n2,n3,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1,n2,n3
+    if (.not. (n1 .and. n2 .and. n3)) then
+       write (*,*) 'nrerror: an assertion failed with this tag:', &
+            string
+       print *, 'program terminated by assert3'
+       stop 1
+    end if
+  END SUBROUTINE assert3
+  !BL
+  SUBROUTINE assert4(n1,n2,n3,n4,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1,n2,n3,n4
+    if (.not. (n1 .and. n2 .and. n3 .and. n4)) then
+       write (*,*) 'nrerror: an assertion failed with this tag:', &
+            string
+       print *, 'program terminated by assert4'
+       stop 1
+    end if
+  END SUBROUTINE assert4
+  !BL
+  SUBROUTINE assert_v(n,string)
+    CHARACTER(LEN=*), INTENT(IN) :: string
+    LOGICAL, DIMENSION(:), INTENT(IN) :: n
+    if (.not. all(n)) then
+       write (*,*) 'nrerror: an assertion failed with this tag:', &
+            string
+       print *, 'program terminated by assert_v'
+       stop 1
+    end if
+  END SUBROUTINE assert_v
+
+END MODULE assert_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/cbrt.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/cbrt.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/cbrt.F	(revision 3330)
@@ -0,0 +1,11 @@
+      FUNCTION cbrt(x)
+      ! Return the cubic root for positive or negative x
+      IMPLICIT NONE
+
+      REAL x,cbrt
+
+      cbrt=sign(1.,x)*(abs(x)**(1./3.))
+
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/chfev.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/chfev.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/chfev.F	(revision 3330)
@@ -0,0 +1,155 @@
+*DECK CHFEV
+      SUBROUTINE CHFEV (X1, X2, F1, F2, D1, D2, NE, XE, FE, NEXT, IERR)
+C***BEGIN PROLOGUE  CHFEV
+C***PURPOSE  Evaluate a cubic polynomial given in Hermite form at an
+C            array of points.  While designed for use by PCHFE, it may
+C            be useful directly as an evaluator for a piecewise cubic
+C            Hermite function in applications, such as graphing, where
+C            the interval is known in advance.
+C***LIBRARY   SLATEC (PCHIP)
+C***CATEGORY  E3
+C***TYPE      SINGLE PRECISION (CHFEV-S, DCHFEV-D)
+C***KEYWORDS  CUBIC HERMITE EVALUATION, CUBIC POLYNOMIAL EVALUATION,
+C             PCHIP
+C***AUTHOR  Fritsch, F. N., (LLNL)
+C             Lawrence Livermore National Laboratory
+C             P.O. Box 808  (L-316)
+C             Livermore, CA  94550
+C             FTS 532-4275, (510) 422-4275
+C***DESCRIPTION
+C
+C          CHFEV:  Cubic Hermite Function EValuator
+C
+C     Evaluates the cubic polynomial determined by function values
+C     F1,F2 and derivatives D1,D2 on interval (X1,X2) at the points
+C     XE(J), J=1(1)NE.
+C
+C ----------------------------------------------------------------------
+C
+C  Calling sequence:
+C
+C        INTEGER  NE, NEXT(2), IERR
+C        REAL  X1, X2, F1, F2, D1, D2, XE(NE), FE(NE)
+C
+C        CALL  CHFEV (X1,X2, F1,F2, D1,D2, NE, XE, FE, NEXT, IERR)
+C
+C   Parameters:
+C
+C     X1,X2 -- (input) endpoints of interval of definition of cubic.
+C           (Error return if  X1.EQ.X2 .)
+C
+C     F1,F2 -- (input) values of function at X1 and X2, respectively.
+C
+C     D1,D2 -- (input) values of derivative at X1 and X2, respectively.
+C
+C     NE -- (input) number of evaluation points.  (Error return if
+C           NE.LT.1 .)
+C
+C     XE -- (input) real array of points at which the function is to be
+C           evaluated.  If any of the XE are outside the interval
+C           [X1,X2], a warning error is returned in NEXT.
+C
+C     FE -- (output) real array of values of the cubic function defined
+C           by  X1,X2, F1,F2, D1,D2  at the points  XE.
+C
+C     NEXT -- (output) integer array indicating number of extrapolation
+C           points:
+C            NEXT(1) = number of evaluation points to left of interval.
+C            NEXT(2) = number of evaluation points to right of interval.
+C
+C     IERR -- (output) error flag.
+C           Normal return:
+C              IERR = 0  (no errors).
+C           "Recoverable" errors:
+C              IERR = -1  if NE.LT.1 .
+C              IERR = -2  if X1.EQ.X2 .
+C                (The FE-array has not been changed in either case.)
+C
+C***REFERENCES  (NONE)
+C***ROUTINES CALLED  XERMSG
+C***REVISION HISTORY  (YYMMDD)
+C   811019  DATE WRITTEN
+C   820803  Minor cosmetic changes for release 1.
+C   890411  Added SAVE statements (Vers. 3.2).
+C   890531  Changed all specific intrinsics to generic.  (WRB)
+C   890703  Corrected category record.  (WRB)
+C   890703  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900315  CALLs to XERROR changed to CALLs to XERMSG.  (THJ)
+C***END PROLOGUE  CHFEV
+C  Programming notes:
+C
+C     To produce a double precision version, simply:
+C        a. Change CHFEV to DCHFEV wherever it occurs,
+C        b. Change the real declaration to double precision, and
+C        c. Change the constant ZERO to double precision.
+C
+C  DECLARE ARGUMENTS.
+C
+      INTEGER  NE, NEXT(2), IERR
+      REAL  X1, X2, F1, F2, D1, D2, XE(*), FE(*)
+C
+C  DECLARE LOCAL VARIABLES.
+C
+      INTEGER  I
+      REAL  C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA, ZERO
+      SAVE ZERO
+      DATA  ZERO /0./
+C
+C  VALIDITY-CHECK ARGUMENTS.
+C
+C***FIRST EXECUTABLE STATEMENT  CHFEV
+      IF (NE .LT. 1)  GO TO 5001
+      H = X2 - X1
+      IF (H .EQ. ZERO)  GO TO 5002
+C
+C  INITIALIZE.
+C
+      IERR = 0
+      NEXT(1) = 0
+      NEXT(2) = 0
+      XMI = MIN(ZERO, H)
+      XMA = MAX(ZERO, H)
+C
+C  COMPUTE CUBIC COEFFICIENTS (EXPANDED ABOUT X1).
+C
+      DELTA = (F2 - F1)/H
+      DEL1 = (D1 - DELTA)/H
+      DEL2 = (D2 - DELTA)/H
+C                                           (DELTA IS NO LONGER NEEDED.)
+      C2 = -(DEL1+DEL1 + DEL2)
+      C3 = (DEL1 + DEL2)/H
+C                               (H, DEL1 AND DEL2 ARE NO LONGER NEEDED.)
+C
+C  EVALUATION LOOP.
+C
+      DO 500  I = 1, NE
+         X = XE(I) - X1
+         FE(I) = F1 + X*(D1 + X*(C2 + X*C3))
+C          COUNT EXTRAPOLATION POINTS.
+         IF ( X.LT.XMI )  NEXT(1) = NEXT(1) + 1
+         IF ( X.GT.XMA )  NEXT(2) = NEXT(2) + 1
+C        (NOTE REDUNDANCY--IF EITHER CONDITION IS TRUE, OTHER IS FALSE.)
+  500 CONTINUE
+C
+C  NORMAL RETURN.
+C
+      RETURN
+C
+C  ERROR RETURNS.
+C
+ 5001 CONTINUE
+C     NE.LT.1 RETURN.
+      IERR = -1
+      CALL XERMSG ('SLATEC', 'CHFEV',
+     +   'NUMBER OF EVALUATION POINTS LESS THAN ONE', IERR, 1)
+      RETURN
+C
+ 5002 CONTINUE
+C     X1.EQ.X2 RETURN.
+      IERR = -2
+      CALL XERMSG ('SLATEC', 'CHFEV', 'INTERVAL ENDPOINTS EQUAL', IERR,
+     +   1)
+      RETURN
+C------------- LAST LINE OF CHFEV FOLLOWS ------------------------------
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/coefpoly_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/coefpoly_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/coefpoly_m.F90	(revision 3330)
@@ -0,0 +1,52 @@
+module coefpoly_m
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE coefpoly(xf1, xf2, xprim1, xprim2, xtild1, xtild2, a0, a1, a2, a3)
+
+    ! From LMDZ4/libf/dyn3d/coefpoly.F, version 1.1.1.1 2004/05/19 12:53:05
+
+    ! Author: P. Le Van
+
+    ! Calcul des coefficients a0, a1, a2, a3 du polynôme de degré 3 qui
+    ! satisfait aux 4 équations suivantes :
+
+    ! a0 + a1 * xtild1 + a2 * xtild1**2 + a3 * xtild1**3 = Xf1
+    ! a0 + a1 * xtild2 + a2 * xtild2**2 + a3 * xtild2**3 = Xf2
+    ! a1 + 2. * a2 * xtild1 + 3. * a3 * xtild1**2 = Xprim1
+    ! a1 + 2. * a2 * xtild2 + 3. * a3 * xtild2**2 = Xprim2
+
+    ! (passe par les points (Xf(it), xtild(it)) et (Xf(it + 1),
+    ! xtild(it + 1))
+
+    ! On en revient à resoudre un système de 4 équations à 4 inconnues
+    ! a0, a1, a2, a3.
+
+    use nrtype, only: k8
+
+    REAL(K8), intent(in):: xf1, xf2, xprim1, xprim2, xtild1, xtild2
+    REAL(K8), intent(out):: a0, a1, a2, a3
+
+    ! Local:
+    REAL(K8) xtil1car, xtil2car, derr, x1x2car
+
+    !------------------------------------------------------------
+
+    xtil1car = xtild1 * xtild1
+    xtil2car = xtild2 * xtild2
+
+    derr = 2. * (xf2-xf1)/(xtild1-xtild2)
+
+    x1x2car = (xtild1-xtild2) * (xtild1-xtild2)
+
+    a3 = (derr+xprim1+xprim2)/x1x2car
+    a2 = (xprim1-xprim2+3. * a3 * (xtil2car-xtil1car))/(2. * (xtild1-xtild2))
+
+    a1 = xprim1 - 3. * a3 * xtil1car - 2. * a2 * xtild1
+    a0 = xf1 - a3 * xtild1 * xtil1car - a2 * xtil1car - a1 * xtild1
+
+  END SUBROUTINE coefpoly
+
+end module coefpoly_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/cray.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/cray.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/cray.F	(revision 3330)
@@ -0,0 +1,42 @@
+!
+! $Header$
+!
+#ifdef CRAY
+      SUBROUTINE riencray
+      END
+#else
+      subroutine scopy(n,sx,incx,sy,incy)
+c
+      IMPLICIT NONE
+c
+      integer n,incx,incy,ix,iy,i
+      real sx((n-1)*incx+1),sy((n-1)*incy+1)
+c
+      iy=1
+      ix=1
+      do 10 i=1,n
+         sy(iy)=sx(ix)
+         ix=ix+incx
+         iy=iy+incy
+10    continue
+c
+      return
+      end
+
+      function ssum(n,sx,incx)
+c
+      IMPLICIT NONE
+c
+      integer n,incx,i,ix
+      real ssum,sx((n-1)*incx+1)
+c
+      ssum=0.
+      ix=1
+      do 10 i=1,n
+         ssum=ssum+sx(ix)
+         ix=ix+incx
+10    continue
+c
+      return
+      end
+#endif
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/description.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/description.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/description.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      character (len=120) :: descript
+      common /titre/descript
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/fdump.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/fdump.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/fdump.F	(revision 3330)
@@ -0,0 +1,31 @@
+*DECK FDUMP
+      SUBROUTINE FDUMP
+C***BEGIN PROLOGUE  FDUMP
+C***PURPOSE  Symbolic dump (should be locally written).
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3
+C***TYPE      ALL (FDUMP-A)
+C***KEYWORDS  ERROR, XERMSG
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C        ***Note*** Machine Dependent Routine
+C        FDUMP is intended to be replaced by a locally written
+C        version which produces a symbolic dump.  Failing this,
+C        it should be replaced by a version which prints the
+C        subprogram nesting list.  Note that this dump must be
+C        printed on each of up to five files, as indicated by the
+C        XGETUA routine.  See XSETUA and XGETUA for details.
+C
+C     Written by Ron Jones, with SLATEC Common Math Library Subcommittee
+C
+C***REFERENCES  (NONE)
+C***ROUTINES CALLED  (NONE)
+C***REVISION HISTORY  (YYMMDD)
+C   790801  DATE WRITTEN
+C   861211  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C***END PROLOGUE  FDUMP
+C***FIRST EXECUTABLE STATEMENT  FDUMP
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/formcoord.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/formcoord.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/formcoord.F	(revision 3330)
@@ -0,0 +1,54 @@
+!
+! $Header$
+!
+      subroutine formcoord(unit,n,x,a,rev,text)
+      implicit none
+      integer n,unit,ndec
+      logical rev
+      real x(n),a
+      character*4 text
+
+      integer i,id,i1,i2,in
+      real dx,dxmin
+
+      if(rev) then
+         id=-1
+         i1=n
+         i2=n-1
+         in=1
+         write(unit,3000) text(1:1)
+      else
+         id=1
+         i1=1
+         i2=2
+         in=n
+      endif
+
+      if (n.lt.2) then
+         ndec=1
+         write(unit,1000) text,n,x(1)*a
+      else
+         dxmin=abs(x(2)-x(1))
+         do i=2,n-1
+            dx=abs(x(i+1)-x(i))
+            if (dx.lt.dxmin) dxmin=dx
+         enddo
+
+         ndec=-log10(dxmin)+2
+         if(mod(n,6).eq.1) then
+            write(unit,1000) text,n,x(i1)*a
+            write(unit,2000) (x(i)*a,i=i2,in,id)
+         else
+            write(unit,1000) text,n
+            write(unit,2000) (x(i)*a,i=i1,in,id)
+         endif
+      endif
+
+1000  format(a4,2x,i4,' LEVELS',43x,f12.2)
+2000  format(6f12.2)
+c1000  format(a4,2x,i4,' LEVELS',43x,f12.<ndec>)
+c2000  format(6f12.<ndec>)
+3000  format('FORMAT ',a1,'REV')
+      return
+
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/handle_err_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/handle_err_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/handle_err_m.F90	(revision 3330)
@@ -0,0 +1,46 @@
+! $Id$
+module handle_err_m
+
+  implicit none
+
+contains
+
+  subroutine handle_err(message, ncerr, ncid, varid)
+
+    use netcdf, only: nf90_strerror, nf90_noerr, nf90_close
+
+    character(len=*), intent(in):: message
+    ! (should include name of calling procedure)
+
+    integer, intent(in):: ncerr
+
+    integer, intent(in), optional :: ncid
+    ! (Provide this argument if you want "handle_err" to try to close
+    ! the file.)
+
+    integer, intent(in), optional :: varid
+
+    ! Variable local to the procedure:
+    integer ncerr_close
+
+    !-------------------
+
+    if (ncerr /= nf90_noerr) then
+       print *, message, ":"
+       if (present(varid)) print *, "varid = ", varid
+       print *, trim(nf90_strerror(ncerr))
+       if (present(ncid)) then
+          ! Try to close, to leave the file in a consistent state:
+          ncerr_close = nf90_close(ncid)
+          ! (do not call "nf95_close", we do not want to recurse)
+          if (ncerr_close /= nf90_noerr) then
+             print *, "nf90_close:"
+             print *, trim(nf90_strerror(ncerr_close))
+          end if
+       end if
+       call abort_gcm("NetCDF95 handle_err", "", 1)
+    end if
+
+  end subroutine handle_err
+
+end module handle_err_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/i1mach.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/i1mach.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/i1mach.F	(revision 3330)
@@ -0,0 +1,128 @@
+*DECK I1MACH
+      INTEGER FUNCTION I1MACH (I)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  I1MACH
+C***PURPOSE  Return integer machine dependent constants.
+C***LIBRARY   SLATEC
+C***CATEGORY  R1
+C***TYPE      INTEGER (I1MACH-I)
+C***KEYWORDS  MACHINE CONSTANTS
+C***AUTHOR  Fox, P. A., (Bell Labs)
+C           Hall, A. D., (Bell Labs)
+C           Schryer, N. L., (Bell Labs)
+C***DESCRIPTION
+C
+C   I1MACH can be used to obtain machine-dependent parameters for the
+C   local machine environment.  It is a function subprogram with one
+C   (input) argument and can be referenced as follows:
+C
+C        K = I1MACH(I)
+C
+C   where I=1,...,16.  The (output) value of K above is determined by
+C   the (input) value of I.  The results for various values of I are
+C   discussed below.
+C
+C   I/O unit numbers:
+C     I1MACH( 1) = the standard input unit.
+C     I1MACH( 2) = the standard output unit.
+C     I1MACH( 3) = the standard punch unit.
+C     I1MACH( 4) = the standard error message unit.
+C
+C   Words:
+C     I1MACH( 5) = the number of bits per integer storage unit.
+C     I1MACH( 6) = the number of characters per integer storage unit.
+C
+C   Integers:
+C     assume integers are represented in the S-digit, base-A form
+C
+C                sign ( X(S-1)*A**(S-1) + ... + X(1)*A + X(0) )
+C
+C                where 0 .LE. X(I) .LT. A for I=0,...,S-1.
+C     I1MACH( 7) = A, the base.
+C     I1MACH( 8) = S, the number of base-A digits.
+C     I1MACH( 9) = A**S - 1, the largest magnitude.
+C
+C   Floating-Point Numbers:
+C     Assume floating-point numbers are represented in the T-digit,
+C     base-B form
+C                sign (B**E)*( (X(1)/B) + ... + (X(T)/B**T) )
+C
+C                where 0 .LE. X(I) .LT. B for I=1,...,T,
+C                0 .LT. X(1), and EMIN .LE. E .LE. EMAX.
+C     I1MACH(10) = B, the base.
+C
+C   Single-Precision:
+C     I1MACH(11) = T, the number of base-B digits.
+C     I1MACH(12) = EMIN, the smallest exponent E.
+C     I1MACH(13) = EMAX, the largest exponent E.
+C
+C   Double-Precision:
+C     I1MACH(14) = T, the number of base-B digits.
+C     I1MACH(15) = EMIN, the smallest exponent E.
+C     I1MACH(16) = EMAX, the largest exponent E.
+C
+C   To alter this function for a particular environment, the desired
+C   set of DATA statements should be activated by removing the C from
+C   column 1.  Also, the values of I1MACH(1) - I1MACH(4) should be
+C   checked for consistency with the local operating system.
+C
+C***REFERENCES  P. A. Fox, A. D. Hall and N. L. Schryer, Framework for
+C                 a portable library, ACM Transactions on Mathematical
+C                 Software 4, 2 (June 1978), pp. 177-188.
+C***ROUTINES CALLED  (NONE)
+C***REVISION HISTORY  (YYMMDD)
+C   750101  DATE WRITTEN
+C   891012  Added VAX G-floating constants.  (WRB)
+C   891012  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900618  Added DEC RISC constants.  (WRB)
+C   900723  Added IBM RS 6000 constants.  (WRB)
+C   901009  Correct I1MACH(7) for IBM Mainframes. Should be 2 not 16.
+C           (RWC)
+C   910710  Added HP 730 constants.  (SMR)
+C   911114  Added Convex IEEE constants.  (WRB)
+C   920121  Added SUN -r8 compiler option constants.  (WRB)
+C   920229  Added Touchstone Delta i860 constants.  (WRB)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C   920625  Added Convex -p8 and -pd8 compiler option constants.
+C           (BKS, WRB)
+C   930201  Added DEC Alpha and SGI constants.  (RWC and WRB)
+C   930618  Corrected I1MACH(5) for Convex -p8 and -pd8 compiler
+C           options.  (DWL, RWC and WRB).
+C   100623  Use Fortran 95 intrinsic functions (Lionel GUEZ)
+C***END PROLOGUE  I1MACH
+C
+      INTEGER IMACH(16),OUTPUT
+      SAVE IMACH
+      EQUIVALENCE (IMACH(4),OUTPUT)
+      INTEGER I
+C***FIRST EXECUTABLE STATEMENT  I1MACH
+      IMACH( 1) =         5
+      IMACH( 2) =         6
+      IMACH( 3) =         6
+      IMACH( 4) =         6
+      IMACH( 5) =        bit_size(0)
+      IMACH( 6) =         IMACH( 5) / 8
+      IMACH( 7) =         radix(0)
+      IMACH( 8) =        digits(0)
+      IMACH( 9) =     huge(0)
+      IMACH(10) =         radix(0.)
+      IMACH(11) =        digits(0.)
+      IMACH(12) =      minexponent(0.)
+      IMACH(13) =       maxexponent(0.)
+      IMACH(14) =        digits(0d0)
+      IMACH(15) =      minexponent(0d0)
+      IMACH(16) =       maxexponent(0d0)
+      IF (I .LT. 1  .OR.  I .GT. 16) GO TO 10
+C
+      I1MACH = IMACH(I)
+      RETURN
+C
+   10 CONTINUE
+      WRITE (UNIT = OUTPUT, FMT = 9000)
+ 9000 FORMAT ('1ERROR    1 IN I1MACH - I OUT OF BOUNDS')
+C
+C     CALL FDUMP
+C
+      STOP
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/iniprint.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/iniprint.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/iniprint.h	(revision 3330)
@@ -0,0 +1,11 @@
+!
+! $Header$
+!
+!
+! gestion des impressions de sorties et de débogage
+! lunout:    unité du fichier dans lequel se font les sorties 
+!                           (par defaut 6, la sortie standard)
+! prt_level: niveau d'impression souhaité (0 = minimum)
+!
+      INTEGER lunout, prt_level
+      COMMON /comprint/ lunout, prt_level
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/interpolation.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/interpolation.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/interpolation.F90	(revision 3330)
@@ -0,0 +1,138 @@
+! $Id$
+module interpolation
+
+  ! From Press et al., 1996, version 2.10a
+  ! B3 Interpolation and Extrapolation
+
+  IMPLICIT NONE 
+
+contains
+
+  pure FUNCTION locate(xx,x)
+
+    REAL, DIMENSION(:), INTENT(IN) :: xx
+    REAL, INTENT(IN) :: x
+    INTEGER  locate
+
+    ! Given an array xx(1:N), and given a value x, returns a value j,
+    ! between 0 and N, such that x is between xx(j) and xx(j + 1). xx
+    ! must be monotonic, either increasing or decreasing. j = 0 or j =
+    ! N is returned to indicate that x is out of range. This
+    ! procedure should not be called with a zero-sized array argument.
+    ! See notes.
+
+    INTEGER  n,jl,jm,ju
+    LOGICAL  ascnd
+
+    !----------------------------
+
+    n=size(xx)
+    ascnd = (xx(n) >= xx(1))
+    ! (True if ascending order of table, false otherwise.)
+    ! Initialize lower and upper limits:
+    jl=0
+    ju=n+1
+    do while (ju-jl > 1)
+       jm=(ju+jl)/2 ! Compute a midpoint,
+       if (ascnd .eqv. (x >= xx(jm))) then
+          jl=jm ! and replace either the lower limit
+       else
+          ju=jm ! or the upper limit, as appropriate.
+       end if
+    end do
+    ! {ju == jl + 1}
+
+    ! {(ascnd .and. xx(jl) <= x < xx(jl+1)) 
+    !  .neqv. 
+    !  (.not. ascnd .and. xx(jl+1) <= x < xx(jl))}
+
+    ! Then set the output, being careful with the endpoints:
+    if (x == xx(1)) then
+       locate=1
+    else if (x == xx(n)) then
+       locate=n-1
+    else
+       locate=jl
+    end if
+
+  END FUNCTION locate
+
+  !***************************
+
+  pure SUBROUTINE hunt(xx,x,jlo)
+
+    ! Given an array xx(1:N ), and given a value x, returns a value
+    ! jlo such that x is between xx(jlo) and xx(jlo+1). xx must be
+    ! monotonic, either increasing or decreasing. jlo = 0 or jlo = N is
+    ! returned to indicate that x is out of range. jlo on input is taken as
+    ! the initial guess for jlo on output.
+    ! Modified so that it uses the information "jlo = 0" on input.
+
+    INTEGER, INTENT(INOUT) :: jlo
+    REAL, INTENT(IN) :: x
+    REAL, DIMENSION(:), INTENT(IN) :: xx
+    INTEGER  n,inc,jhi,jm
+    LOGICAL  ascnd, hunt_up
+
+    !-----------------------------------------------------
+
+    n=size(xx)
+    ascnd = (xx(n) >= xx(1))
+    ! (True if ascending order of table, false otherwise.)
+    if (jlo < 0 .or. jlo > n) then
+       ! Input guess not useful. Go immediately to bisection.
+       jlo=0
+       jhi=n+1
+    else
+       inc=1 ! Set the hunting increment.
+       if (jlo == 0) then
+          hunt_up = .true.
+       else
+          hunt_up = x >= xx(jlo) .eqv. ascnd
+       end if
+       if (hunt_up) then ! Hunt up:
+          do
+             jhi=jlo+inc
+             if (jhi > n) then ! Done hunting, since off end of table.
+                jhi=n+1
+                exit
+             else
+                if (x < xx(jhi) .eqv. ascnd) exit
+                jlo=jhi ! Not done hunting,
+                inc=inc+inc ! so double the increment
+             end if
+          end do ! and try again.
+       else ! Hunt down:
+          jhi=jlo
+          do
+             jlo=jhi-inc
+             if (jlo < 1) then ! Done hunting, since off end of table.
+                jlo=0
+                exit
+             else
+                if (x >= xx(jlo) .eqv. ascnd) exit
+                jhi=jlo ! Not done hunting,
+                inc=inc+inc ! so double the increment
+             end if
+          end do ! and try again.
+       end if
+    end if ! Done hunting, value bracketed.
+
+    do ! Hunt is done, so begin the final bisection phase:
+       if (jhi-jlo <= 1) then
+          if (x == xx(n)) jlo=n-1
+          if (x == xx(1)) jlo=1
+          exit
+       else
+          jm=(jhi+jlo)/2
+          if (x >= xx(jm) .eqv. ascnd) then
+             jlo=jm
+          else
+             jhi=jm
+          end if
+       end if
+    end do
+
+  END SUBROUTINE hunt
+
+end module interpolation
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_errioipsl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_errioipsl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_errioipsl.F90	(revision 3330)
@@ -0,0 +1,219 @@
+!
+! $Id$
+!
+! Module/Routines extracted from IOIPSL v2_1_8
+!
+MODULE ioipsl_errioipsl
+!-
+!$Id: errioipsl.f90 386 2008-09-04 08:38:48Z bellier $
+!-
+! This software is governed by the CeCILL license
+! See IOIPSL/IOIPSL_License_CeCILL.txt
+!---------------------------------------------------------------------
+IMPLICIT NONE
+!-
+PRIVATE
+!-
+PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg
+!-
+  INTEGER :: n_l=6, ilv_cur=0, ilv_max=0
+  LOGICAL :: ioipsl_debug=.FALSE., lact_mode=.TRUE.
+!-
+!===
+CONTAINS
+!===
+SUBROUTINE ipslnlf (new_number,old_number)
+!!--------------------------------------------------------------------
+!! The "ipslnlf" routine allows to know and modify
+!! the current logical number for the messages.
+!!
+!! SUBROUTINE ipslnlf (new_number,old_number)
+!!
+!! Optional INPUT argument
+!!
+!! (I) new_number : new logical number of the file
+!!
+!! Optional OUTPUT argument
+!!
+!! (I) old_number : current logical number of the file
+!!--------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,OPTIONAL,INTENT(IN)  :: new_number
+  INTEGER,OPTIONAL,INTENT(OUT) :: old_number
+!---------------------------------------------------------------------
+  IF (PRESENT(old_number)) THEN
+    old_number = n_l
+  ENDIF
+  IF (PRESENT(new_number)) THEN
+    n_l = new_number
+  ENDIF
+!---------------------
+END SUBROUTINE ipslnlf
+!===
+SUBROUTINE ipslerr (plev,pcname,pstr1,pstr2,pstr3)
+!---------------------------------------------------------------------
+!! The "ipslerr" routine
+!! allows to handle the messages to the user.
+!!
+!! INPUT
+!!
+!! plev   : Category of message to be reported to the user
+!!          1 = Note to the user
+!!          2 = Warning to the user
+!!          3 = Fatal error
+!! pcname : Name of subroutine which has called ipslerr
+!! pstr1   
+!! pstr2  : Strings containing the explanations to the user
+!! pstr3
+!---------------------------------------------------------------------
+   IMPLICIT NONE
+!-
+   INTEGER :: plev
+   CHARACTER(LEN=*) :: pcname,pstr1,pstr2,pstr3
+!-
+   CHARACTER(LEN=30),DIMENSION(3) :: pemsg = &
+  &  (/ "NOTE TO THE USER FROM ROUTINE ", &
+  &     "WARNING FROM ROUTINE          ", &
+  &     "FATAL ERROR FROM ROUTINE      " /)
+!---------------------------------------------------------------------
+   IF ( (plev >= 1).AND.(plev <= 3) ) THEN
+     ilv_cur = plev
+     ilv_max = MAX(ilv_max,plev)
+     WRITE(n_l,'(/,A," ",A)') TRIM(pemsg(plev)),TRIM(pcname)
+     WRITE(n_l,'(3(" --> ",A,/))') TRIM(pstr1),TRIM(pstr2),TRIM(pstr3)
+   ENDIF
+   IF ( (plev == 3).AND.lact_mode) THEN
+     STOP 'Fatal error from IOIPSL. See stdout for more details'
+   ENDIF
+!---------------------
+END SUBROUTINE ipslerr
+!===
+SUBROUTINE ipslerr_act (new_mode,old_mode)
+!!--------------------------------------------------------------------
+!! The "ipslerr_act" routine allows to know and modify
+!! the current "action mode" for the error messages,
+!! and reinitialize the error level values.
+!!
+!! SUBROUTINE ipslerr_act (new_mode,old_mode)
+!!
+!! Optional INPUT argument
+!!
+!! (I) new_mode : new error action mode
+!!                .TRUE.  -> STOP     in case of fatal error
+!!                .FALSE. -> CONTINUE in case of fatal error
+!!
+!! Optional OUTPUT argument
+!!
+!! (I) old_mode : current error action mode
+!!--------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  LOGICAL,OPTIONAL,INTENT(IN)  :: new_mode
+  LOGICAL,OPTIONAL,INTENT(OUT) :: old_mode
+!---------------------------------------------------------------------
+  IF (PRESENT(old_mode)) THEN
+    old_mode = lact_mode
+  ENDIF
+  IF (PRESENT(new_mode)) THEN
+    lact_mode = new_mode
+  ENDIF
+  ilv_cur = 0
+  ilv_max = 0
+!-------------------------
+END SUBROUTINE ipslerr_act
+!===
+SUBROUTINE ipslerr_inq (current_level,maximum_level)
+!!--------------------------------------------------------------------
+!! The "ipslerr_inq" routine allows to know
+!! the current level of the error messages
+!! and the maximum level encountered since the
+!! last call to "ipslerr_act".
+!!
+!! SUBROUTINE ipslerr_inq (current_level,maximum_level)
+!!
+!! Optional OUTPUT argument
+!!
+!! (I) current_level : current error level
+!! (I) maximum_level : maximum error level
+!!--------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,OPTIONAL,INTENT(OUT) :: current_level,maximum_level
+!---------------------------------------------------------------------
+  IF (PRESENT(current_level)) THEN
+    current_level = ilv_cur
+  ENDIF
+  IF (PRESENT(maximum_level)) THEN
+    maximum_level = ilv_max
+  ENDIF
+!-------------------------
+END SUBROUTINE ipslerr_inq
+!===
+SUBROUTINE histerr (plev,pcname,pstr1,pstr2,pstr3)
+!---------------------------------------------------------------------
+!- INPUT
+!- plev   : Category of message to be reported to the user
+!-          1 = Note to the user
+!-          2 = Warning to the user
+!-          3 = Fatal error
+!- pcname : Name of subroutine which has called histerr
+!- pstr1   
+!- pstr2  : String containing the explanations to the user
+!- pstr3
+!---------------------------------------------------------------------
+   IMPLICIT NONE
+!-
+   INTEGER :: plev
+   CHARACTER(LEN=*) :: pcname,pstr1,pstr2,pstr3
+!-
+   CHARACTER(LEN=30),DIMENSION(3) :: pemsg = &
+  &  (/ "NOTE TO THE USER FROM ROUTINE ", &
+  &     "WARNING FROM ROUTINE          ", &
+  &     "FATAL ERROR FROM ROUTINE      " /)
+!---------------------------------------------------------------------
+   IF ( (plev >= 1).AND.(plev <= 3) ) THEN
+     WRITE(*,'("     ")')
+     WRITE(*,'(A," ",A)') TRIM(pemsg(plev)),TRIM(pcname)
+     WRITE(*,'(" --> ",A)') pstr1
+     WRITE(*,'(" --> ",A)') pstr2
+     WRITE(*,'(" --> ",A)') pstr3
+   ENDIF
+   IF (plev == 3) THEN
+     STOP 'Fatal error from IOIPSL. See stdout for more details'
+   ENDIF
+!---------------------
+END SUBROUTINE histerr
+!===
+SUBROUTINE ipsldbg (new_status,old_status)
+!!--------------------------------------------------------------------
+!! The "ipsldbg" routine
+!! allows to activate or deactivate the debug,
+!! and to know the current status of the debug.
+!!
+!! SUBROUTINE ipsldbg (new_status,old_status)
+!!
+!! Optional INPUT argument
+!!
+!! (L) new_status : new status of the debug
+!!
+!! Optional OUTPUT argument
+!!
+!! (L) old_status : current status of the debug
+!!--------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  LOGICAL,OPTIONAL,INTENT(IN)  :: new_status
+  LOGICAL,OPTIONAL,INTENT(OUT) :: old_status
+!---------------------------------------------------------------------
+  IF (PRESENT(old_status)) THEN
+    old_status = ioipsl_debug
+  ENDIF
+  IF (PRESENT(new_status)) THEN
+    ioipsl_debug = new_status
+  ENDIF
+!---------------------
+END SUBROUTINE ipsldbg
+!===
+!-------------------
+END MODULE ioipsl_errioipsl
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_getincom.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_getincom.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_getincom.F90	(revision 3330)
@@ -0,0 +1,1980 @@
+!
+! $Id$
+!
+! Module/Routines extracted from IOIPSL v2_1_8
+!
+MODULE ioipsl_getincom
+!-
+!$Id: getincom.f90 536 2009-01-30 11:46:27Z bellier $
+!-
+! This software is governed by the CeCILL license
+! See IOIPSL/IOIPSL_License_CeCILL.txt
+!---------------------------------------------------------------------
+USE ioipsl_errioipsl, ONLY : ipslerr
+USE ioipsl_stringop, &
+ &   ONLY : nocomma,cmpblank,strlowercase
+!-
+IMPLICIT NONE
+!-
+PRIVATE
+PUBLIC :: getin, getin_dump
+!-
+INTERFACE getin
+!!--------------------------------------------------------------------
+!! The "getin" routines get a variable.
+!! We first check if we find it in the database
+!! and if not we get it from the run.def file.
+!!
+!! SUBROUTINE getin (target,ret_val)
+!!
+!! INPUT
+!!
+!! (C) target : Name of the variable
+!!
+!! OUTPUT
+!!
+!! (I/R/C/L) ret_val : scalar, vector or matrix that will contain
+!!                     that will contain the (standard)
+!!                     integer/real/character/logical values
+!!--------------------------------------------------------------------
+  MODULE PROCEDURE getinrs, getinr1d, getinr2d, &
+ &                 getinis, getini1d, getini2d, &
+ &                 getincs, getinc1d, getinc2d, &
+ &                 getinls, getinl1d, getinl2d
+END INTERFACE
+!-
+!!--------------------------------------------------------------------
+!! The "getin_dump" routine will dump the content of the database
+!! into a file which has the same format as the run.def file.
+!! The idea is that the user can see which parameters were used
+!! and re-use the file for another run.
+!!
+!!  SUBROUTINE getin_dump (fileprefix)
+!!
+!! OPTIONAL INPUT argument
+!!
+!! (C) fileprefix : allows the user to change the name of the file
+!!                  in which the data will be archived
+!!--------------------------------------------------------------------
+!-
+  INTEGER,PARAMETER :: max_files=100
+  CHARACTER(LEN=100),DIMENSION(max_files),SAVE :: filelist
+  INTEGER,SAVE      :: nbfiles
+!-
+  INTEGER,PARAMETER :: i_txtslab=1000,l_n=30
+  INTEGER,SAVE :: nb_lines,i_txtsize=0
+  CHARACTER(LEN=100),SAVE,ALLOCATABLE,DIMENSION(:) :: fichier
+  CHARACTER(LEN=l_n),SAVE,ALLOCATABLE,DIMENSION(:) :: targetlist
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: fromfile,compline
+!-
+  INTEGER,PARAMETER :: n_d_fmt=5,max_msgs=15
+  CHARACTER(LEN=6),SAVE :: c_i_fmt = '(I5.5)'
+!-
+! The data base of parameters
+!-
+  INTEGER,PARAMETER :: memslabs=200
+  INTEGER,PARAMETER :: compress_lim=20
+!-
+  INTEGER,SAVE :: nb_keys=0
+  INTEGER,SAVE :: keymemsize=0
+!-
+! keystr definition
+! name of a key
+!-
+! keystatus definition
+! keystatus = 1 : Value comes from run.def
+! keystatus = 2 : Default value is used
+! keystatus = 3 : Some vector elements were taken from default
+!-
+! keytype definition
+! keytype = 1 : Integer
+! keytype = 2 : Real
+! keytype = 3 : Character
+! keytype = 4 : Logical
+!-
+  INTEGER,PARAMETER :: k_i=1, k_r=2, k_c=3, k_l=4
+!-
+! Allow compression for keys (only for integer and real)
+! keycompress < 0 : not compressed
+! keycompress > 0 : number of repeat of the value
+!-
+TYPE :: t_key
+  CHARACTER(LEN=l_n) :: keystr
+  INTEGER :: keystatus, keytype, keycompress, &
+ &           keyfromfile, keymemstart, keymemlen
+END TYPE t_key
+!-
+  TYPE(t_key),SAVE,ALLOCATABLE,DIMENSION(:) :: key_tab
+!-
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: i_mem
+  INTEGER,SAVE :: i_memsize=0, i_mempos=0
+  REAL,SAVE,ALLOCATABLE,DIMENSION(:) :: r_mem
+  INTEGER,SAVE :: r_memsize=0, r_mempos=0
+  CHARACTER(LEN=100),SAVE,ALLOCATABLE,DIMENSION(:) :: c_mem
+  INTEGER,SAVE :: c_memsize=0, c_mempos=0
+  LOGICAL,SAVE,ALLOCATABLE,DIMENSION(:) :: l_mem
+  INTEGER,SAVE :: l_memsize=0, l_mempos=0
+!-
+CONTAINS
+!-
+!=== INTEGER INTERFACE
+!-
+SUBROUTINE getinis (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  INTEGER :: ret_val
+!-
+  INTEGER,DIMENSION(1) :: tmp_ret_val
+  INTEGER :: pos,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  tmp_ret_val(1) = ret_val
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,i_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,1,i_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,1,target,i_val=tmp_ret_val)
+  ENDIF
+  ret_val = tmp_ret_val(1)
+!---------------------
+END SUBROUTINE getinis
+!===
+SUBROUTINE getini1d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  INTEGER,DIMENSION(:) :: ret_val
+!-
+  INTEGER,DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+  tmp_ret_val(1:size_of_in) = ret_val(1:size_of_in)
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,i_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,i_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,i_val=tmp_ret_val)
+  ENDIF
+  ret_val(1:size_of_in) = tmp_ret_val(1:size_of_in)
+!----------------------
+END SUBROUTINE getini1d
+!===
+SUBROUTINE getini2d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  INTEGER,DIMENSION(:,:) :: ret_val
+!-
+  INTEGER,DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,size_1,size_2,status=0,fileorig
+  INTEGER :: jl,jj,ji
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  size_1 = SIZE(ret_val,1)
+  size_2 = SIZE(ret_val,2)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      tmp_ret_val(jl) = ret_val(ji,jj)
+    ENDDO
+  ENDDO
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,i_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,i_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,i_val=tmp_ret_val)
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      ret_val(ji,jj) = tmp_ret_val(jl)
+    ENDDO
+  ENDDO
+!----------------------
+END SUBROUTINE getini2d
+!-
+!=== REAL INTERFACE
+!-
+SUBROUTINE getinrs (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  REAL :: ret_val
+!-
+  REAL,DIMENSION(1) :: tmp_ret_val
+  INTEGER :: pos,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  tmp_ret_val(1) = ret_val
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,r_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,1,r_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,1,target,r_val=tmp_ret_val)
+  ENDIF
+  ret_val = tmp_ret_val(1)
+!---------------------
+END SUBROUTINE getinrs
+!===
+SUBROUTINE getinr1d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  REAL,DIMENSION(:) :: ret_val
+!-
+  REAL,DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+  tmp_ret_val(1:size_of_in) = ret_val(1:size_of_in)
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,r_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,r_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,r_val=tmp_ret_val)
+  ENDIF
+  ret_val(1:size_of_in) = tmp_ret_val(1:size_of_in)
+!----------------------
+END SUBROUTINE getinr1d
+!===
+SUBROUTINE getinr2d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  REAL,DIMENSION(:,:) :: ret_val
+!-
+  REAL,DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,size_1,size_2,status=0,fileorig
+  INTEGER :: jl,jj,ji
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  size_1 = SIZE(ret_val,1)
+  size_2 = SIZE(ret_val,2)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      tmp_ret_val(jl) = ret_val(ji,jj)
+    ENDDO
+  ENDDO
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,r_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,r_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,r_val=tmp_ret_val)
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      ret_val(ji,jj) = tmp_ret_val(jl)
+    ENDDO
+  ENDDO
+!----------------------
+END SUBROUTINE getinr2d
+!-
+!=== CHARACTER INTERFACE
+!-
+SUBROUTINE getincs (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  CHARACTER(LEN=*) :: ret_val
+!-
+  CHARACTER(LEN=100),DIMENSION(1) :: tmp_ret_val
+  INTEGER :: pos,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  tmp_ret_val(1) = ret_val
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,c_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,1,c_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,1,target,c_val=tmp_ret_val)
+  ENDIF
+  ret_val = tmp_ret_val(1)
+!---------------------
+END SUBROUTINE getincs
+!===
+SUBROUTINE getinc1d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  CHARACTER(LEN=*),DIMENSION(:) :: ret_val
+!-
+  CHARACTER(LEN=100),DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+  tmp_ret_val(1:size_of_in) = ret_val(1:size_of_in)
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,c_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,c_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,c_val=tmp_ret_val)
+  ENDIF
+  ret_val(1:size_of_in) = tmp_ret_val(1:size_of_in)
+!----------------------
+END SUBROUTINE getinc1d
+!===
+SUBROUTINE getinc2d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  CHARACTER(LEN=*),DIMENSION(:,:) :: ret_val
+!-
+  CHARACTER(LEN=100),DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,size_1,size_2,status=0,fileorig
+  INTEGER :: jl,jj,ji
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  size_1 = SIZE(ret_val,1)
+  size_2 = SIZE(ret_val,2)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      tmp_ret_val(jl) = ret_val(ji,jj)
+    ENDDO
+  ENDDO
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,c_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,c_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,c_val=tmp_ret_val)
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      ret_val(ji,jj) = tmp_ret_val(jl)
+    ENDDO
+  ENDDO
+!----------------------
+END SUBROUTINE getinc2d
+!-
+!=== LOGICAL INTERFACE
+!-
+SUBROUTINE getinls (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  LOGICAL :: ret_val
+!-
+  LOGICAL,DIMENSION(1) :: tmp_ret_val
+  INTEGER :: pos,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  tmp_ret_val(1) = ret_val
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,l_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,1,l_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,1,target,l_val=tmp_ret_val)
+  ENDIF
+  ret_val = tmp_ret_val(1)
+!---------------------
+END SUBROUTINE getinls
+!===
+SUBROUTINE getinl1d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  LOGICAL,DIMENSION(:) :: ret_val
+!-
+  LOGICAL,DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,status=0,fileorig
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+  tmp_ret_val(1:size_of_in) = ret_val(1:size_of_in)
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,l_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,l_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,l_val=tmp_ret_val)
+  ENDIF
+  ret_val(1:size_of_in) = tmp_ret_val(1:size_of_in)
+!----------------------
+END SUBROUTINE getinl1d
+!===
+SUBROUTINE getinl2d (target,ret_val)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  LOGICAL,DIMENSION(:,:) :: ret_val
+!-
+  LOGICAL,DIMENSION(:),ALLOCATABLE,SAVE :: tmp_ret_val
+  INTEGER,SAVE :: tmp_ret_size = 0
+  INTEGER :: pos,size_of_in,size_1,size_2,status=0,fileorig
+  INTEGER :: jl,jj,ji
+!---------------------------------------------------------------------
+!-
+! Do we have this target in our database ?
+!-
+  CALL get_findkey (1,target,pos)
+!-
+  size_of_in = SIZE(ret_val)
+  size_1 = SIZE(ret_val,1)
+  size_2 = SIZE(ret_val,2)
+  IF (.NOT.ALLOCATED(tmp_ret_val)) THEN
+    ALLOCATE (tmp_ret_val(size_of_in))
+  ELSE IF (size_of_in > tmp_ret_size) THEN
+    DEALLOCATE (tmp_ret_val)
+    ALLOCATE (tmp_ret_val(size_of_in))
+    tmp_ret_size = size_of_in
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      tmp_ret_val(jl) = ret_val(ji,jj)
+    ENDDO
+  ENDDO
+!-
+  IF (pos < 0) THEN
+!-- Get the information out of the file
+    CALL get_fil (target,status,fileorig,l_val=tmp_ret_val)
+!-- Put the data into the database
+    CALL get_wdb &
+ &   (target,status,fileorig,size_of_in,l_val=tmp_ret_val)
+  ELSE
+!-- Get the value out of the database
+    CALL get_rdb (pos,size_of_in,target,l_val=tmp_ret_val)
+  ENDIF
+!-
+  jl=0
+  DO jj=1,size_2
+    DO ji=1,size_1
+      jl=jl+1
+      ret_val(ji,jj) = tmp_ret_val(jl)
+    ENDDO
+  ENDDO
+!----------------------
+END SUBROUTINE getinl2d
+!-
+!=== Generic file/database INTERFACE
+!-
+SUBROUTINE get_fil (target,status,fileorig,i_val,r_val,c_val,l_val)
+!---------------------------------------------------------------------
+!- Subroutine that will extract from the file the values
+!- attributed to the keyword target
+!-
+!- (C) target    : target for which we will look in the file
+!- (I) status    : tells us from where we obtained the data
+!- (I) fileorig  : index of the file from which the key comes
+!- (I) i_val(:)  : INTEGER(nb_to_ret)   values
+!- (R) r_val(:)  : REAL(nb_to_ret)      values
+!- (L) l_val(:)  : LOGICAL(nb_to_ret)   values
+!- (C) c_val(:)  : CHARACTER(nb_to_ret) values
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  INTEGER,INTENT(OUT) :: status,fileorig
+  INTEGER,DIMENSION(:),OPTIONAL          :: i_val
+  REAL,DIMENSION(:),OPTIONAL             :: r_val
+  LOGICAL,DIMENSION(:),OPTIONAL          :: l_val
+  CHARACTER(LEN=*),DIMENSION(:),OPTIONAL :: c_val
+!-
+  INTEGER :: k_typ,nb_to_ret,it,pos,len_str,status_cnt,io_err
+  CHARACTER(LEN=n_d_fmt)  :: cnt
+  CHARACTER(LEN=80) :: str_READ,str_READ_lower
+  CHARACTER(LEN=9)  :: c_vtyp
+  LOGICAL,DIMENSION(:),ALLOCATABLE :: found
+  LOGICAL :: def_beha,compressed
+  CHARACTER(LEN=10) :: c_fmt
+  INTEGER :: i_cmpval
+  REAL    :: r_cmpval
+  INTEGER :: ipos_tr,ipos_fl
+!---------------------------------------------------------------------
+!-
+! Get the type of the argument
+  CALL get_qtyp (k_typ,c_vtyp,i_val,r_val,c_val,l_val)
+  SELECT CASE (k_typ)
+  CASE(k_i)
+    nb_to_ret = SIZE(i_val)
+  CASE(k_r)
+    nb_to_ret = SIZE(r_val)
+  CASE(k_c)
+    nb_to_ret = SIZE(c_val)
+  CASE(k_l)
+    nb_to_ret = SIZE(l_val)
+  CASE DEFAULT
+    CALL ipslerr (3,'get_fil', &
+ &   'Internal error','Unknown type of data',' ')
+  END SELECT
+!-
+! Read the file(s)
+  CALL getin_read
+!-
+! Allocate and initialize the memory we need
+  ALLOCATE(found(nb_to_ret))
+  found(:) = .FALSE.
+!-
+! See what we find in the files read
+  DO it=1,nb_to_ret
+!---
+!-- First try the target as it is
+    CALL get_findkey (2,target,pos)
+!---
+!-- Another try
+!---
+    IF (pos < 0) THEN
+      WRITE(UNIT=cnt,FMT=c_i_fmt) it
+      CALL get_findkey (2,TRIM(target)//'__'//cnt,pos)
+    ENDIF
+!---
+!-- We dont know from which file the target could come.
+!-- Thus by default we attribute it to the first file :
+    fileorig = 1
+!---
+    IF (pos > 0) THEN
+!-----
+      found(it) = .TRUE.
+      fileorig = fromfile(pos)
+!-----
+!---- DECODE
+!-----
+      str_READ = ADJUSTL(fichier(pos))
+      str_READ_lower = str_READ
+      CALL strlowercase (str_READ_lower)
+!-----
+      IF (    (TRIM(str_READ_lower) == 'def')     &
+ &        .OR.(TRIM(str_READ_lower) == 'default') ) THEN
+        def_beha = .TRUE.
+      ELSE
+        def_beha = .FALSE.
+        len_str = LEN_TRIM(str_READ)
+        io_err = 0
+        SELECT CASE (k_typ)
+        CASE(k_i)
+          WRITE (UNIT=c_fmt,FMT='("(I",I3.3,")")') len_str
+          READ (UNIT=str_READ(1:len_str), &
+ &              FMT=c_fmt,IOSTAT=io_err) i_val(it)
+        CASE(k_r)
+          READ (UNIT=str_READ(1:len_str), &
+ &              FMT=*,IOSTAT=io_err) r_val(it)
+        CASE(k_c)
+          c_val(it) = str_READ(1:len_str)
+        CASE(k_l)
+          ipos_tr = -1
+          ipos_fl = -1
+          ipos_tr = MAX(INDEX(str_READ_lower,'tru'), &
+ &                      INDEX(str_READ_lower,'y'))
+          ipos_fl = MAX(INDEX(str_READ_lower,'fal'), &
+ &                      INDEX(str_READ_lower,'n'))
+          IF (ipos_tr > 0) THEN
+            l_val(it) = .TRUE.
+          ELSE IF (ipos_fl > 0) THEN
+            l_val(it) = .FALSE.
+          ELSE
+            io_err = 100
+          ENDIF
+        END SELECT
+        IF (io_err /= 0) THEN
+          CALL ipslerr (3,'get_fil', &
+ &         'Target '//TRIM(target), &
+ &         'is not of '//TRIM(c_vtyp)//' type',' ')
+        ENDIF
+      ENDIF
+!-----
+      IF ( (k_typ == k_i).OR.(k_typ == k_r) ) THEN
+!-------
+!------ Is this the value of a compressed field ?
+        compressed = (compline(pos) > 0)
+        IF (compressed) THEN
+          IF (compline(pos) /= nb_to_ret) THEN
+            CALL ipslerr (2,'get_fil', &
+ &           'For key '//TRIM(target)//' we have a compressed field', &
+ &           'which does not have the right size.', &
+ &           'We will try to fix that.')
+          ENDIF
+          IF      (k_typ == k_i) THEN
+            i_cmpval = i_val(it)
+          ELSE IF (k_typ == k_r) THEN
+            r_cmpval = r_val(it)
+          ENDIF
+        ENDIF
+      ENDIF
+    ELSE
+      found(it) = .FALSE.
+      def_beha = .FALSE.
+      compressed = .FALSE.
+    ENDIF
+  ENDDO
+!-
+  IF ( (k_typ == k_i).OR.(k_typ == k_r) ) THEN
+!---
+!-- If this is a compressed field then we will uncompress it
+    IF (compressed) THEN
+      DO it=1,nb_to_ret
+        IF (.NOT.found(it)) THEN
+          IF      (k_typ == k_i) THEN
+            i_val(it) = i_cmpval
+          ELSE IF (k_typ == k_r) THEN
+          ENDIF
+          found(it) = .TRUE.
+        ENDIF
+      ENDDO
+    ENDIF
+  ENDIF
+!-
+! Now we set the status for what we found
+  IF (def_beha) THEN
+    status = 2
+    WRITE(*,*) 'USING DEFAULT BEHAVIOUR FOR ',TRIM(target)
+  ELSE
+    status_cnt = 0
+    DO it=1,nb_to_ret
+      IF (.NOT.found(it)) THEN
+        status_cnt = status_cnt+1
+        IF      (status_cnt <= max_msgs) THEN
+          WRITE (UNIT=*,FMT='(" USING DEFAULTS : ",A)', &
+ &               ADVANCE='NO') TRIM(target)
+          IF (nb_to_ret > 1) THEN
+            WRITE (UNIT=*,FMT='("__")',ADVANCE='NO')
+            WRITE (UNIT=*,FMT=c_i_fmt,ADVANCE='NO') it
+          ENDIF
+          SELECT CASE (k_typ)
+          CASE(k_i)
+            WRITE (UNIT=*,FMT=*) "=",i_val(it)
+          CASE(k_r)
+            WRITE (UNIT=*,FMT=*) "=",r_val(it)
+          CASE(k_c)
+            WRITE (UNIT=*,FMT=*) "=",c_val(it)
+          CASE(k_l)
+            WRITE (UNIT=*,FMT=*) "=",l_val(it)
+          END SELECT
+        ELSE IF (status_cnt == max_msgs+1) THEN
+          WRITE (UNIT=*,FMT='(" USING DEFAULTS ... ",A)')
+        ENDIF
+      ENDIF
+    ENDDO
+!---
+    IF (status_cnt == 0) THEN
+      status = 1
+    ELSE IF (status_cnt == nb_to_ret) THEN
+      status = 2
+    ELSE
+      status = 3
+    ENDIF
+  ENDIF
+! Deallocate the memory
+  DEALLOCATE(found)
+!---------------------
+END SUBROUTINE get_fil
+!===
+SUBROUTINE get_rdb (pos,size_of_in,target,i_val,r_val,c_val,l_val)
+!---------------------------------------------------------------------
+!- Read the required variable in the database
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER :: pos,size_of_in
+  CHARACTER(LEN=*) :: target
+  INTEGER,DIMENSION(:),OPTIONAL          :: i_val
+  REAL,DIMENSION(:),OPTIONAL             :: r_val
+  LOGICAL,DIMENSION(:),OPTIONAL          :: l_val
+  CHARACTER(LEN=*),DIMENSION(:),OPTIONAL :: c_val
+!-
+  INTEGER :: k_typ,k_beg,k_end
+  CHARACTER(LEN=9) :: c_vtyp
+!---------------------------------------------------------------------
+!-
+! Get the type of the argument
+  CALL get_qtyp (k_typ,c_vtyp,i_val,r_val,c_val,l_val)
+  IF (     (k_typ /= k_i).AND.(k_typ /= k_r) &
+ &    .AND.(k_typ /= k_c).AND.(k_typ /= k_l) )THEN
+    CALL ipslerr (3,'get_rdb', &
+ &   'Internal error','Unknown type of data',' ')
+  ENDIF
+!-
+  IF (key_tab(pos)%keytype /= k_typ) THEN
+    CALL ipslerr (3,'get_rdb', &
+ &   'Wrong data type for keyword '//TRIM(target), &
+ &   '(NOT '//TRIM(c_vtyp)//')',' ')
+  ENDIF
+!-
+  IF (key_tab(pos)%keycompress > 0) THEN
+    IF (    (key_tab(pos)%keycompress /= size_of_in) &
+ &      .OR.(key_tab(pos)%keymemlen /= 1) ) THEN
+      CALL ipslerr (3,'get_rdb', &
+ &     'Wrong compression length','for keyword '//TRIM(target),' ')
+    ELSE
+      SELECT CASE (k_typ)
+      CASE(k_i)
+        i_val(1:size_of_in) = i_mem(key_tab(pos)%keymemstart)
+      CASE(k_r)
+        r_val(1:size_of_in) = r_mem(key_tab(pos)%keymemstart)
+      END SELECT
+    ENDIF
+  ELSE
+    IF (key_tab(pos)%keymemlen /= size_of_in) THEN
+      CALL ipslerr (3,'get_rdb', &
+ &     'Wrong array length','for keyword '//TRIM(target),' ')
+    ELSE
+      k_beg = key_tab(pos)%keymemstart
+      k_end = k_beg+key_tab(pos)%keymemlen-1
+      SELECT CASE (k_typ)
+      CASE(k_i)
+        i_val(1:size_of_in) = i_mem(k_beg:k_end)
+      CASE(k_r)
+        r_val(1:size_of_in) = r_mem(k_beg:k_end)
+      CASE(k_c)
+        c_val(1:size_of_in) = c_mem(k_beg:k_end)
+      CASE(k_l)
+        l_val(1:size_of_in) = l_mem(k_beg:k_end)
+      END SELECT
+    ENDIF
+  ENDIF
+!---------------------
+END SUBROUTINE get_rdb
+!===
+SUBROUTINE get_wdb &
+ &  (target,status,fileorig,size_of_in, &
+ &   i_val,r_val,c_val,l_val)
+!---------------------------------------------------------------------
+!- Write data into the data base
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: target
+  INTEGER :: status,fileorig,size_of_in
+  INTEGER,DIMENSION(:),OPTIONAL          :: i_val
+  REAL,DIMENSION(:),OPTIONAL             :: r_val
+  LOGICAL,DIMENSION(:),OPTIONAL          :: l_val
+  CHARACTER(LEN=*),DIMENSION(:),OPTIONAL :: c_val
+!-
+  INTEGER :: k_typ
+  CHARACTER(LEN=9) :: c_vtyp
+  INTEGER :: k_mempos,k_memsize,k_beg,k_end
+  LOGICAL :: l_cmp
+!---------------------------------------------------------------------
+!-
+! Get the type of the argument
+  CALL get_qtyp (k_typ,c_vtyp,i_val,r_val,c_val,l_val)
+  IF (     (k_typ /= k_i).AND.(k_typ /= k_r) &
+ &    .AND.(k_typ /= k_c).AND.(k_typ /= k_l) )THEN
+    CALL ipslerr (3,'get_wdb', &
+ &   'Internal error','Unknown type of data',' ')
+  ENDIF
+!-
+! First check if we have sufficiant space for the new key
+  IF (nb_keys+1 > keymemsize) THEN
+    CALL getin_allockeys ()
+  ENDIF
+!-
+  SELECT CASE (k_typ)
+  CASE(k_i)
+    k_mempos = i_mempos; k_memsize = i_memsize;
+    l_cmp = (MINVAL(i_val) == MAXVAL(i_val)) &
+ &         .AND.(size_of_in > compress_lim)
+  CASE(k_r)
+    k_mempos = r_mempos; k_memsize = r_memsize;
+    l_cmp = (MINVAL(r_val) == MAXVAL(r_val)) &
+ &         .AND.(size_of_in > compress_lim)
+  CASE(k_c)
+    k_mempos = c_mempos; k_memsize = c_memsize;
+    l_cmp = .FALSE.
+  CASE(k_l)
+    k_mempos = l_mempos; k_memsize = l_memsize;
+    l_cmp = .FALSE.
+  END SELECT
+!-
+! Fill out the items of the data base
+  nb_keys = nb_keys+1
+  key_tab(nb_keys)%keystr = target(1:MIN(LEN_TRIM(target),l_n))
+  key_tab(nb_keys)%keystatus = status
+  key_tab(nb_keys)%keytype = k_typ
+  key_tab(nb_keys)%keyfromfile = fileorig
+  key_tab(nb_keys)%keymemstart = k_mempos+1
+  IF (l_cmp) THEN
+    key_tab(nb_keys)%keycompress = size_of_in
+    key_tab(nb_keys)%keymemlen = 1
+  ELSE
+    key_tab(nb_keys)%keycompress = -1
+    key_tab(nb_keys)%keymemlen = size_of_in
+  ENDIF
+!-
+! Before writing the actual size lets see if we have the space
+  IF (key_tab(nb_keys)%keymemstart+key_tab(nb_keys)%keymemlen &
+ &    > k_memsize) THEN
+    CALL getin_allocmem (k_typ,key_tab(nb_keys)%keymemlen)
+  ENDIF
+!-
+  k_beg = key_tab(nb_keys)%keymemstart
+  k_end = k_beg+key_tab(nb_keys)%keymemlen-1
+  SELECT CASE (k_typ)
+  CASE(k_i)
+    i_mem(k_beg:k_end) = i_val(1:key_tab(nb_keys)%keymemlen)
+    i_mempos = k_end
+  CASE(k_r)
+    r_mem(k_beg:k_end) = r_val(1:key_tab(nb_keys)%keymemlen)
+    r_mempos = k_end
+  CASE(k_c)
+    c_mem(k_beg:k_end) = c_val(1:key_tab(nb_keys)%keymemlen)
+    c_mempos = k_end
+  CASE(k_l)
+    l_mem(k_beg:k_end) = l_val(1:key_tab(nb_keys)%keymemlen)
+    l_mempos = k_end
+  END SELECT
+!---------------------
+END SUBROUTINE get_wdb
+!-
+!===
+!-
+SUBROUTINE getin_read
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,SAVE :: allread=0
+  INTEGER,SAVE :: current
+!---------------------------------------------------------------------
+  IF (allread == 0) THEN
+!-- Allocate a first set of memory.
+    CALL getin_alloctxt ()
+    CALL getin_allockeys ()
+    CALL getin_allocmem (k_i,0)
+    CALL getin_allocmem (k_r,0)
+    CALL getin_allocmem (k_c,0)
+    CALL getin_allocmem (k_l,0)
+!-- Start with reading the files
+    nbfiles = 1
+    filelist(1) = 'run.def'
+    current = 1
+!--
+    DO WHILE (current <= nbfiles)
+      CALL getin_readdef (current)
+      current = current+1
+    ENDDO
+    allread = 1
+    CALL getin_checkcohe ()
+  ENDIF
+!------------------------
+END SUBROUTINE getin_read
+!-
+!===
+!-
+  SUBROUTINE getin_readdef(current)
+!---------------------------------------------------------------------
+!- This subroutine will read the files and only keep the
+!- the relevant information. The information is kept as it
+!- found in the file. The data will be analysed later.
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER :: current
+!-
+  CHARACTER(LEN=100) :: READ_str,NEW_str,last_key,key_str
+  CHARACTER(LEN=n_d_fmt) :: cnt
+  CHARACTER(LEN=10) :: c_fmt
+  INTEGER :: nb_lastkey
+!-
+  INTEGER :: eof,ptn,len_str,i,it,iund,io_err
+  LOGICAL :: check = .FALSE.
+!---------------------------------------------------------------------
+  eof = 0
+  ptn = 1
+  nb_lastkey = 0
+!-
+  IF (check) THEN
+    WRITE(*,*) 'getin_readdef : Open file ',TRIM(filelist(current))
+  ENDIF
+!-
+  OPEN (UNIT=22,FILE=filelist(current),STATUS="OLD",IOSTAT=io_err)
+  IF (io_err /= 0) THEN
+    CALL ipslerr (2,'getin_readdef', &
+ &  'Could not open file '//TRIM(filelist(current)),' ',' ')
+    RETURN
+  ENDIF
+!-
+  DO WHILE (eof /= 1)
+!---
+    CALL getin_skipafew (22,READ_str,eof,nb_lastkey)
+    len_str = LEN_TRIM(READ_str)
+    ptn = INDEX(READ_str,'=')
+!---
+    IF (ptn > 0) THEN
+!---- Get the target
+      key_str = TRIM(ADJUSTL(READ_str(1:ptn-1)))
+!---- Make sure that a vector keyword has the right length
+      iund = INDEX(key_str,'__')
+      IF (iund > 0) THEN
+        WRITE (UNIT=c_fmt,FMT='("(I",I3.3,")")') &
+ &        LEN_TRIM(key_str)-iund-1
+        READ(UNIT=key_str(iund+2:LEN_TRIM(key_str)), &
+ &           FMT=c_fmt,IOSTAT=io_err) it
+        IF ( (io_err == 0).AND.(it > 0) ) THEN
+          WRITE(UNIT=cnt,FMT=c_i_fmt) it
+          key_str = key_str(1:iund+1)//cnt
+        ELSE
+          CALL ipslerr (3,'getin_readdef', &
+ &         'A very strange key has just been found :', &
+ &         TRIM(key_str),' ')
+        ENDIF
+      ENDIF
+!---- Prepare the content
+      NEW_str = TRIM(ADJUSTL(READ_str(ptn+1:len_str)))
+      CALL nocomma (NEW_str)
+      CALL cmpblank (NEW_str)
+      NEW_str  = TRIM(ADJUSTL(NEW_str))
+      IF (check) THEN
+        WRITE(*,*) &
+ &        '--> getin_readdef : ',TRIM(key_str),' :: ',TRIM(NEW_str)
+      ENDIF
+!---- Decypher the content of NEW_str
+!-
+!---- This has to be a new key word, thus :
+      nb_lastkey = 0
+!----
+      CALL getin_decrypt (current,key_str,NEW_str,last_key,nb_lastkey)
+!----
+    ELSE IF (len_str > 0) THEN
+!---- Prepare the key if we have an old one to which
+!---- we will add the line just read
+      IF (nb_lastkey > 0) THEN
+        iund =  INDEX(last_key,'__')
+        IF (iund > 0) THEN
+!-------- We only continue a keyword, thus it is easy
+          key_str = last_key(1:iund-1)
+        ELSE
+          IF (nb_lastkey /= 1) THEN
+            CALL ipslerr (3,'getin_readdef', &
+ &           'We can not have a scalar keyword', &
+ &           'and a vector content',' ')
+          ENDIF
+!-------- The last keyword needs to be transformed into a vector.
+          WRITE(UNIT=cnt,FMT=c_i_fmt) 1
+          targetlist(nb_lines) = &
+ &         last_key(1:MIN(LEN_TRIM(last_key),l_n-n_d_fmt-2))//'__'//cnt
+          key_str = last_key(1:LEN_TRIM(last_key))
+        ENDIF
+      ENDIF
+!---- Prepare the content
+      NEW_str = TRIM(ADJUSTL(READ_str(1:len_str)))
+      CALL getin_decrypt (current,key_str,NEW_str,last_key,nb_lastkey)
+    ELSE
+!---- If we have an empty line then the keyword finishes
+      nb_lastkey = 0
+      IF (check) THEN
+        WRITE(*,*) 'getin_readdef : Have found an emtpy line '
+      ENDIF
+    ENDIF
+  ENDDO
+!-
+  CLOSE(UNIT=22)
+!-
+  IF (check) THEN
+    OPEN (UNIT=22,file='run.def.test')
+    DO i=1,nb_lines
+      WRITE(UNIT=22,FMT=*) targetlist(i)," : ",fichier(i)
+    ENDDO
+    CLOSE(UNIT=22)
+  ENDIF
+!---------------------------
+END SUBROUTINE getin_readdef
+!-
+!===
+!-
+SUBROUTINE getin_decrypt(current,key_str,NEW_str,last_key,nb_lastkey)
+!---------------------------------------------------------------------
+!- This subroutine is going to decypher the line.
+!- It essentialy checks how many items are included and
+!- it they can be attached to a key.
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+! ARGUMENTS
+!-
+  INTEGER :: current,nb_lastkey
+  CHARACTER(LEN=*) :: key_str,NEW_str,last_key
+!-
+! LOCAL
+!-
+  INTEGER :: len_str,blk,nbve,starpos
+  CHARACTER(LEN=100) :: tmp_str,new_key,mult
+  CHARACTER(LEN=n_d_fmt) :: cnt
+  CHARACTER(LEN=10) :: c_fmt
+!---------------------------------------------------------------------
+  len_str = LEN_TRIM(NEW_str)
+  blk = INDEX(NEW_str(1:len_str),' ')
+  tmp_str = NEW_str(1:len_str)
+!-
+! If the key is a new file then we take it up. Else
+! we save the line and go on.
+!-
+  IF (INDEX(key_str,'INCLUDEDEF') > 0) THEN
+    DO WHILE (blk > 0)
+      IF (nbfiles+1 > max_files) THEN
+        CALL ipslerr (3,'getin_decrypt', &
+ &       'Too many files to include',' ',' ')
+      ENDIF
+!-----
+      nbfiles = nbfiles+1
+      filelist(nbfiles) = tmp_str(1:blk)
+!-----
+      tmp_str = TRIM(ADJUSTL(tmp_str(blk+1:LEN_TRIM(tmp_str))))
+      blk = INDEX(tmp_str(1:LEN_TRIM(tmp_str)),' ')
+    ENDDO
+!---
+    IF (nbfiles+1 > max_files) THEN
+      CALL ipslerr (3,'getin_decrypt', &
+ &     'Too many files to include',' ',' ')
+    ENDIF
+!---
+    nbfiles =  nbfiles+1
+    filelist(nbfiles) = TRIM(ADJUSTL(tmp_str))
+!---
+    last_key = 'INCLUDEDEF'
+    nb_lastkey = 1
+  ELSE
+!-
+!-- We are working on a new line of input
+!-
+    IF (nb_lines+1 > i_txtsize) THEN
+      CALL getin_alloctxt ()
+    ENDIF
+    nb_lines = nb_lines+1
+!-
+!-- First we solve the issue of conpressed information. Once
+!-- this is done all line can be handled in the same way.
+!-
+    starpos = INDEX(NEW_str(1:len_str),'*')
+    IF ( (starpos > 0).AND.(tmp_str(1:1) /= '"') &
+ &                    .AND.(tmp_str(1:1) /= "'") ) THEN
+!-----
+      IF (INDEX(key_str(1:LEN_TRIM(key_str)),'__') > 0) THEN
+        CALL ipslerr (3,'getin_decrypt', &
+ &       'We can not have a compressed field of values', &
+ &       'in a vector notation (TARGET__n).', &
+ &       'The key at fault : '//TRIM(key_str))
+      ENDIF
+!-
+!---- Read the multiplied
+!-
+      mult = TRIM(ADJUSTL(NEW_str(1:starpos-1)))
+!---- Construct the new string and its parameters
+      NEW_str = TRIM(ADJUSTL(NEW_str(starpos+1:len_str)))
+      len_str = LEN_TRIM(NEW_str)
+      blk = INDEX(NEW_str(1:len_str),' ')
+      IF (blk > 1) THEN
+        CALL ipslerr (2,'getin_decrypt', &
+ &       'This is a strange behavior','you could report',' ')
+      ENDIF
+      WRITE (UNIT=c_fmt,FMT='("(I",I5.5,")")') LEN_TRIM(mult)
+      READ(UNIT=mult,FMT=c_fmt) compline(nb_lines)
+!---
+    ELSE
+      compline(nb_lines) = -1
+    ENDIF
+!-
+!-- If there is no space wthin the line then the target is a scalar
+!-- or the element of a properly written vector.
+!-- (ie of the type TARGET__00001)
+!-
+    IF (    (blk <= 1) &
+ &      .OR.(tmp_str(1:1) == '"') &
+ &      .OR.(tmp_str(1:1) == "'") ) THEN
+!-
+      IF (nb_lastkey == 0) THEN
+!------ Save info of current keyword as a scalar
+!------ if it is not a continuation
+        targetlist(nb_lines) = key_str(1:MIN(LEN_TRIM(key_str),l_n))
+        last_key = key_str(1:MIN(LEN_TRIM(key_str),l_n))
+        nb_lastkey = 1
+      ELSE
+!------ We are continuing a vector so the keyword needs
+!------ to get the underscores
+        WRITE(UNIT=cnt,FMT=c_i_fmt) nb_lastkey+1
+        targetlist(nb_lines) = &
+ &        key_str(1:MIN(LEN_TRIM(key_str),l_n-n_d_fmt-2))//'__'//cnt
+        last_key = &
+ &        key_str(1:MIN(LEN_TRIM(key_str),l_n-n_d_fmt-2))//'__'//cnt
+        nb_lastkey = nb_lastkey+1
+      ENDIF
+!-----
+      fichier(nb_lines) = NEW_str(1:len_str)
+      fromfile(nb_lines) = current
+    ELSE
+!-
+!---- If there are blanks whithin the line then we are dealing
+!---- with a vector and we need to split it in many entries
+!---- with the TARGET__n notation.
+!----
+!---- Test if the targer is not already a vector target !
+!-
+      IF (INDEX(TRIM(key_str),'__') > 0) THEN
+        CALL ipslerr (3,'getin_decrypt', &
+ &       'We have found a mixed vector notation (TARGET__n).', &
+ &       'The key at fault : '//TRIM(key_str),' ')
+      ENDIF
+!-
+      nbve = nb_lastkey
+      nbve = nbve+1
+      WRITE(UNIT=cnt,FMT=c_i_fmt) nbve
+!-
+      DO WHILE (blk > 0)
+!-
+!------ Save the content of target__nbve
+!-
+        fichier(nb_lines) = tmp_str(1:blk)
+        new_key = &
+ &       key_str(1:MIN(LEN_TRIM(key_str),l_n-n_d_fmt-2))//'__'//cnt
+        targetlist(nb_lines) = new_key(1:MIN(LEN_TRIM(new_key),l_n))
+        fromfile(nb_lines) = current
+!-
+        tmp_str = TRIM(ADJUSTL(tmp_str(blk+1:LEN_TRIM(tmp_str))))
+        blk = INDEX(TRIM(tmp_str),' ')
+!-
+        IF (nb_lines+1 > i_txtsize) THEN
+          CALL getin_alloctxt ()
+        ENDIF
+        nb_lines = nb_lines+1
+        nbve = nbve+1
+        WRITE(UNIT=cnt,FMT=c_i_fmt) nbve
+!-
+      ENDDO
+!-
+!---- Save the content of the last target
+!-
+      fichier(nb_lines) = tmp_str(1:LEN_TRIM(tmp_str))
+      new_key = &
+ &      key_str(1:MIN(LEN_TRIM(key_str),l_n-n_d_fmt-2))//'__'//cnt
+      targetlist(nb_lines) = new_key(1:MIN(LEN_TRIM(new_key),l_n))
+      fromfile(nb_lines) = current
+!-
+      last_key = &
+ &      key_str(1:MIN(LEN_TRIM(key_str),l_n-n_d_fmt-2))//'__'//cnt
+      nb_lastkey = nbve
+!-
+    ENDIF
+!-
+  ENDIF
+!---------------------------
+END SUBROUTINE getin_decrypt
+!-
+!===
+!-
+SUBROUTINE getin_checkcohe ()
+!---------------------------------------------------------------------
+!- This subroutine checks for redundancies.
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER :: line,n_k,k
+!---------------------------------------------------------------------
+  DO line=1,nb_lines-1
+!-
+    n_k = 0
+    DO k=line+1,nb_lines
+      IF (TRIM(targetlist(line)) == TRIM(targetlist(k))) THEN
+        n_k = k
+        EXIT
+      ENDIF
+    ENDDO
+!---
+!-- IF we have found it we have a problem to solve.
+!---
+    IF (n_k > 0) THEN
+      WRITE(*,*) 'COUNT : ',n_k
+      WRITE(*,*) &
+ &  'getin_checkcohe : Found a problem on key ',TRIM(targetlist(line))
+      WRITE(*,*) &
+ &  'getin_checkcohe : The following values were encoutered :'
+      WRITE(*,*) &
+ &  '                ',TRIM(targetlist(line)),' == ',fichier(line)
+      WRITE(*,*) &
+ &  '                ',TRIM(targetlist(k)),' == ',fichier(k)
+      WRITE(*,*) &
+ &  'getin_checkcohe : We will keep only the last value'
+      targetlist(line) = ' '
+    ENDIF
+  ENDDO
+!-----------------------------
+END SUBROUTINE getin_checkcohe
+!-
+!===
+!-
+SUBROUTINE getin_skipafew (unit,out_string,eof,nb_lastkey)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER :: unit,eof,nb_lastkey
+  CHARACTER(LEN=100) :: dummy
+  CHARACTER(LEN=100) :: out_string
+  CHARACTER(LEN=1) :: first
+!---------------------------------------------------------------------
+  first="#"
+  eof = 0
+  out_string = "    "
+!-
+  DO WHILE (first == "#")
+    READ (UNIT=unit,FMT='(A)',ERR=9998,END=7778) dummy
+    dummy = TRIM(ADJUSTL(dummy))
+    first=dummy(1:1)
+    IF (first == "#") THEN
+      nb_lastkey = 0
+    ENDIF
+  ENDDO
+  out_string=dummy
+!-
+  RETURN
+!-
+9998 CONTINUE
+  CALL ipslerr (3,'getin_skipafew','Error while reading file',' ',' ')
+!-
+7778 CONTINUE
+  eof = 1
+!----------------------------
+END SUBROUTINE getin_skipafew
+!-
+!===
+!-
+SUBROUTINE getin_allockeys ()
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  TYPE(t_key),ALLOCATABLE,DIMENSION(:) :: tmp_key_tab
+  CHARACTER(LEN=100),ALLOCATABLE :: tmp_str(:)
+!-
+  INTEGER :: ier
+  CHARACTER(LEN=20) :: c_tmp
+!---------------------------------------------------------------------
+  IF (keymemsize == 0) THEN
+!---
+!-- Nothing exists in memory arrays and it is easy to do.
+!---
+    WRITE (UNIT=c_tmp,FMT=*) memslabs
+    ALLOCATE(key_tab(memslabs),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_allockeys', &
+ &     'Can not allocate key_tab', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+    ENDIF
+    nb_keys = 0
+    keymemsize = memslabs
+    key_tab(:)%keycompress = -1
+!---
+  ELSE
+!---
+!-- There is something already in the memory,
+!-- we need to transfer and reallocate.
+!---
+    WRITE (UNIT=c_tmp,FMT=*) keymemsize
+    ALLOCATE(tmp_key_tab(keymemsize),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_allockeys', &
+ &     'Can not allocate tmp_key_tab', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+    ENDIF
+    WRITE (UNIT=c_tmp,FMT=*) keymemsize+memslabs
+    tmp_key_tab(1:keymemsize) = key_tab(1:keymemsize)
+    DEALLOCATE(key_tab)
+    ALLOCATE(key_tab(keymemsize+memslabs),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_allockeys', &
+ &     'Can not allocate key_tab', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+    ENDIF
+    key_tab(:)%keycompress = -1
+    key_tab(1:keymemsize) = tmp_key_tab(1:keymemsize)
+    DEALLOCATE(tmp_key_tab)
+    keymemsize = keymemsize+memslabs
+  ENDIF
+!-----------------------------
+END SUBROUTINE getin_allockeys
+!-
+!===
+!-
+SUBROUTINE getin_allocmem (type,len_wanted)
+!---------------------------------------------------------------------
+!- Allocate the memory of the data base for all 4 types of memory
+!- INTEGER / REAL / CHARACTER / LOGICAL
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER :: type,len_wanted
+!-
+  INTEGER,ALLOCATABLE :: tmp_int(:)
+  REAL,ALLOCATABLE :: tmp_real(:)
+  CHARACTER(LEN=100),ALLOCATABLE :: tmp_char(:)
+  LOGICAL,ALLOCATABLE :: tmp_logic(:)
+  INTEGER :: ier
+  CHARACTER(LEN=20) :: c_tmp
+!---------------------------------------------------------------------
+  SELECT CASE (type)
+  CASE(k_i)
+    IF (i_memsize == 0) THEN
+      ALLOCATE(i_mem(memslabs),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) memslabs
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate db-memory', &
+ &       'i_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      i_memsize=memslabs
+    ELSE
+      ALLOCATE(tmp_int(i_memsize),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) i_memsize
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate tmp_int', &
+ &       'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      tmp_int(1:i_memsize) = i_mem(1:i_memsize)
+      DEALLOCATE(i_mem)
+      ALLOCATE(i_mem(i_memsize+MAX(memslabs,len_wanted)),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) i_memsize+MAX(memslabs,len_wanted)
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to re-allocate db-memory', &
+ &       'i_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      i_mem(1:i_memsize) = tmp_int(1:i_memsize)
+      i_memsize = i_memsize+MAX(memslabs,len_wanted)
+      DEALLOCATE(tmp_int)
+    ENDIF
+  CASE(k_r)
+    IF (r_memsize == 0) THEN
+      ALLOCATE(r_mem(memslabs),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) memslabs
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate db-memory', &
+ &       'r_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      r_memsize =  memslabs
+    ELSE
+      ALLOCATE(tmp_real(r_memsize),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) r_memsize
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate tmp_real', &
+ &       'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      tmp_real(1:r_memsize) = r_mem(1:r_memsize)
+      DEALLOCATE(r_mem)
+      ALLOCATE(r_mem(r_memsize+MAX(memslabs,len_wanted)),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) r_memsize+MAX(memslabs,len_wanted)
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to re-allocate db-memory', &
+ &       'r_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      r_mem(1:r_memsize) = tmp_real(1:r_memsize)
+      r_memsize = r_memsize+MAX(memslabs,len_wanted)
+      DEALLOCATE(tmp_real)
+    ENDIF
+  CASE(k_c)
+    IF (c_memsize == 0) THEN
+      ALLOCATE(c_mem(memslabs),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) memslabs
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate db-memory', &
+ &       'c_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      c_memsize = memslabs
+    ELSE
+      ALLOCATE(tmp_char(c_memsize),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) c_memsize
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate tmp_char', &
+ &       'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      tmp_char(1:c_memsize) = c_mem(1:c_memsize)
+      DEALLOCATE(c_mem)
+      ALLOCATE(c_mem(c_memsize+MAX(memslabs,len_wanted)),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) c_memsize+MAX(memslabs,len_wanted)
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to re-allocate db-memory', &
+ &       'c_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      c_mem(1:c_memsize) = tmp_char(1:c_memsize)
+      c_memsize = c_memsize+MAX(memslabs,len_wanted)
+      DEALLOCATE(tmp_char)
+    ENDIF
+  CASE(k_l)
+    IF (l_memsize == 0) THEN
+      ALLOCATE(l_mem(memslabs),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) memslabs
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate db-memory', &
+ &       'l_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      l_memsize = memslabs
+    ELSE
+      ALLOCATE(tmp_logic(l_memsize),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) l_memsize
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to allocate tmp_logic', &
+ &       'to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      tmp_logic(1:l_memsize) = l_mem(1:l_memsize)
+      DEALLOCATE(l_mem)
+      ALLOCATE(l_mem(l_memsize+MAX(memslabs,len_wanted)),stat=ier)
+      IF (ier /= 0) THEN
+        WRITE (UNIT=c_tmp,FMT=*) l_memsize+MAX(memslabs,len_wanted)
+        CALL ipslerr (3,'getin_allocmem', &
+ &       'Unable to re-allocate db-memory', &
+ &       'l_mem to size '//TRIM(ADJUSTL(c_tmp)),' ')
+      ENDIF
+      l_mem(1:l_memsize) = tmp_logic(1:l_memsize)
+      l_memsize = l_memsize+MAX(memslabs,len_wanted)
+      DEALLOCATE(tmp_logic)
+    ENDIF
+  CASE DEFAULT
+    CALL ipslerr (3,'getin_allocmem','Unknown type of data',' ',' ')
+  END SELECT
+!----------------------------
+END SUBROUTINE getin_allocmem
+!-
+!===
+!-
+SUBROUTINE getin_alloctxt ()
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=100),ALLOCATABLE :: tmp_fic(:)
+  CHARACTER(LEN=l_n),ALLOCATABLE :: tmp_tgl(:)
+  INTEGER,ALLOCATABLE :: tmp_int(:)
+!-
+  INTEGER :: ier
+  CHARACTER(LEN=20) :: c_tmp1,c_tmp2
+!---------------------------------------------------------------------
+  IF (i_txtsize == 0) THEN
+!---
+!-- Nothing exists in memory arrays and it is easy to do.
+!---
+    WRITE (UNIT=c_tmp1,FMT=*) i_txtslab
+    ALLOCATE(fichier(i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate fichier', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+!---
+    ALLOCATE(targetlist(i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate targetlist', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+!---
+    ALLOCATE(fromfile(i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate fromfile', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+!---
+    ALLOCATE(compline(i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate compline', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+!---
+    nb_lines = 0
+    i_txtsize = i_txtslab
+  ELSE
+!---
+!-- There is something already in the memory,
+!-- we need to transfer and reallocate.
+!---
+    WRITE (UNIT=c_tmp1,FMT=*) i_txtsize
+    WRITE (UNIT=c_tmp2,FMT=*) i_txtsize+i_txtslab
+    ALLOCATE(tmp_fic(i_txtsize),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate tmp_fic', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+    tmp_fic(1:i_txtsize) = fichier(1:i_txtsize)
+    DEALLOCATE(fichier)
+    ALLOCATE(fichier(i_txtsize+i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate fichier', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp2)),' ')
+    ENDIF
+    fichier(1:i_txtsize) = tmp_fic(1:i_txtsize)
+    DEALLOCATE(tmp_fic)
+!---
+    ALLOCATE(tmp_tgl(i_txtsize),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate tmp_tgl', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+    tmp_tgl(1:i_txtsize) = targetlist(1:i_txtsize)
+    DEALLOCATE(targetlist)
+    ALLOCATE(targetlist(i_txtsize+i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate targetlist', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp2)),' ')
+    ENDIF
+    targetlist(1:i_txtsize) = tmp_tgl(1:i_txtsize)
+    DEALLOCATE(tmp_tgl)
+!---
+    ALLOCATE(tmp_int(i_txtsize),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate tmp_int', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp1)),' ')
+    ENDIF
+    tmp_int(1:i_txtsize) = fromfile(1:i_txtsize)
+    DEALLOCATE(fromfile)
+    ALLOCATE(fromfile(i_txtsize+i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate fromfile', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp2)),' ')
+    ENDIF
+    fromfile(1:i_txtsize) = tmp_int(1:i_txtsize)
+!---
+    tmp_int(1:i_txtsize) = compline(1:i_txtsize)
+    DEALLOCATE(compline)
+    ALLOCATE(compline(i_txtsize+i_txtslab),stat=ier)
+    IF (ier /= 0) THEN
+      CALL ipslerr (3,'getin_alloctxt', &
+ &     'Can not allocate compline', &
+ &     'to size '//TRIM(ADJUSTL(c_tmp2)),' ')
+    ENDIF
+    compline(1:i_txtsize) = tmp_int(1:i_txtsize)
+    DEALLOCATE(tmp_int)
+!---
+    i_txtsize = i_txtsize+i_txtslab
+  ENDIF
+!----------------------------
+END SUBROUTINE getin_alloctxt
+!-
+!===
+!-
+SUBROUTINE getin_dump (fileprefix)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(*),OPTIONAL :: fileprefix
+!-
+  CHARACTER(LEN=80) :: usedfileprefix
+  INTEGER :: ikey,if,iff,iv
+  CHARACTER(LEN=20) :: c_tmp
+  CHARACTER(LEN=100) :: tmp_str,used_filename
+  LOGICAL :: check = .FALSE.
+!---------------------------------------------------------------------
+  IF (PRESENT(fileprefix)) THEN
+    usedfileprefix = fileprefix(1:MIN(LEN_TRIM(fileprefix),80))
+  ELSE
+    usedfileprefix = "used"
+  ENDIF
+!-
+  DO if=1,nbfiles
+!---
+    used_filename = TRIM(usedfileprefix)//'_'//TRIM(filelist(if))
+    IF (check) THEN
+      WRITE(*,*) &
+ &      'GETIN_DUMP : opens file : ',TRIM(used_filename),' if = ',if
+      WRITE(*,*) 'GETIN_DUMP : NUMBER OF KEYS : ',nb_keys
+    ENDIF
+    OPEN (UNIT=22,FILE=used_filename)
+!---
+!-- If this is the first file we need to add the list
+!-- of file which belong to it
+    IF ( (if == 1).AND.(nbfiles > 1) ) THEN
+      WRITE(22,*) '# '
+      WRITE(22,*) '# This file is linked to the following files :'
+      WRITE(22,*) '# '
+      DO iff=2,nbfiles
+        WRITE(22,*) 'INCLUDEDEF = ',TRIM(filelist(iff))
+      ENDDO
+      WRITE(22,*) '# '
+    ENDIF
+!---
+    DO ikey=1,nb_keys
+!-----
+!---- Is this key from this file ?
+      IF (key_tab(ikey)%keyfromfile == if) THEN
+!-------
+!------ Write some comments
+        WRITE(22,*) '#'
+        SELECT CASE (key_tab(ikey)%keystatus)
+        CASE(1)
+          WRITE(22,*) '# Values of ', &
+ &          TRIM(key_tab(ikey)%keystr),' comes from the run.def.'
+        CASE(2)
+          WRITE(22,*) '# Values of ', &
+ &          TRIM(key_tab(ikey)%keystr),' are all defaults.'
+        CASE(3)
+          WRITE(22,*) '# Values of ', &
+ &          TRIM(key_tab(ikey)%keystr), &
+ &          ' are a mix of run.def and defaults.'
+        CASE DEFAULT
+          WRITE(22,*) '# Dont know from where the value of ', &
+ &          TRIM(key_tab(ikey)%keystr),' comes.'
+        END SELECT
+        WRITE(22,*) '#'
+!-------
+!------ Write the values
+        SELECT CASE (key_tab(ikey)%keytype)
+        CASE(k_i)
+          IF (key_tab(ikey)%keymemlen == 1) THEN
+            IF (key_tab(ikey)%keycompress < 0) THEN
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr), &
+ &              ' = ',i_mem(key_tab(ikey)%keymemstart)
+            ELSE
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr), &
+ &              ' = ',key_tab(ikey)%keycompress, &
+ &              ' * ',i_mem(key_tab(ikey)%keymemstart)
+            ENDIF
+          ELSE
+            DO iv=0,key_tab(ikey)%keymemlen-1
+              WRITE(UNIT=c_tmp,FMT=c_i_fmt) iv+1
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr), &
+ &              '__',TRIM(ADJUSTL(c_tmp)), &
+ &              ' = ',i_mem(key_tab(ikey)%keymemstart+iv)
+            ENDDO
+          ENDIF
+        CASE(k_r)
+          IF (key_tab(ikey)%keymemlen == 1) THEN
+            IF (key_tab(ikey)%keycompress < 0) THEN
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr), &
+ &              ' = ',r_mem(key_tab(ikey)%keymemstart)
+            ELSE
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr), &
+ &              ' = ',key_tab(ikey)%keycompress, &
+                   & ' * ',r_mem(key_tab(ikey)%keymemstart)
+            ENDIF
+          ELSE
+            DO iv=0,key_tab(ikey)%keymemlen-1
+              WRITE(UNIT=c_tmp,FMT=c_i_fmt) iv+1
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr),'__',TRIM(ADJUSTL(c_tmp)), &
+ &              ' = ',r_mem(key_tab(ikey)%keymemstart+iv)
+            ENDDO
+          ENDIF
+        CASE(k_c)
+          IF (key_tab(ikey)%keymemlen == 1) THEN
+            tmp_str = c_mem(key_tab(ikey)%keymemstart)
+            WRITE(22,*) TRIM(key_tab(ikey)%keystr), &
+ &              ' = ',TRIM(tmp_str)
+          ELSE
+            DO iv=0,key_tab(ikey)%keymemlen-1
+              WRITE(UNIT=c_tmp,FMT=c_i_fmt) iv+1
+              tmp_str = c_mem(key_tab(ikey)%keymemstart+iv)
+              WRITE(22,*) &
+ &              TRIM(key_tab(ikey)%keystr), &
+ &              '__',TRIM(ADJUSTL(c_tmp)), &
+ &              ' = ',TRIM(tmp_str)
+            ENDDO
+          ENDIF
+        CASE(k_l)
+          IF (key_tab(ikey)%keymemlen == 1) THEN
+            IF (l_mem(key_tab(ikey)%keymemstart)) THEN
+              WRITE(22,*) TRIM(key_tab(ikey)%keystr),' = TRUE '
+            ELSE
+              WRITE(22,*) TRIM(key_tab(ikey)%keystr),' = FALSE '
+            ENDIF
+          ELSE
+            DO iv=0,key_tab(ikey)%keymemlen-1
+              WRITE(UNIT=c_tmp,FMT=c_i_fmt) iv+1
+              IF (l_mem(key_tab(ikey)%keymemstart+iv)) THEN
+                WRITE(22,*) TRIM(key_tab(ikey)%keystr),'__', &
+ &                          TRIM(ADJUSTL(c_tmp)),' = TRUE '
+              ELSE
+                WRITE(22,*) TRIM(key_tab(ikey)%keystr),'__', &
+ &                          TRIM(ADJUSTL(c_tmp)),' = FALSE '
+              ENDIF
+            ENDDO
+          ENDIF
+        CASE DEFAULT
+          CALL ipslerr (3,'getin_dump', &
+ &         'Unknown type for variable '//TRIM(key_tab(ikey)%keystr), &
+ &         ' ',' ')
+        END SELECT
+      ENDIF
+    ENDDO
+!-
+    CLOSE(UNIT=22)
+!-
+  ENDDO
+!------------------------
+END SUBROUTINE getin_dump
+!===
+SUBROUTINE get_qtyp (k_typ,c_vtyp,i_v,r_v,c_v,l_v)
+!---------------------------------------------------------------------
+!- Returns the type of the argument (mutually exclusive)
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,INTENT(OUT) :: k_typ
+  CHARACTER(LEN=*),INTENT(OUT) :: c_vtyp
+  INTEGER,DIMENSION(:),OPTIONAL          :: i_v
+  REAL,DIMENSION(:),OPTIONAL             :: r_v
+  LOGICAL,DIMENSION(:),OPTIONAL          :: l_v
+  CHARACTER(LEN=*),DIMENSION(:),OPTIONAL :: c_v
+!---------------------------------------------------------------------
+  k_typ = 0
+  IF (COUNT((/PRESENT(i_v),PRESENT(r_v),PRESENT(c_v),PRESENT(l_v)/)) &
+ &    /= 1) THEN
+    CALL ipslerr (3,'get_qtyp', &
+ &   'Invalid number of optional arguments','(/= 1)',' ')
+  ENDIF
+!-
+  IF     (PRESENT(i_v)) THEN
+    k_typ = k_i
+    c_vtyp = 'INTEGER'
+  ELSEIF (PRESENT(r_v)) THEN
+    k_typ = k_r
+    c_vtyp = 'REAL'
+  ELSEIF (PRESENT(c_v)) THEN
+    k_typ = k_c
+    c_vtyp = 'CHARACTER'
+  ELSEIF (PRESENT(l_v)) THEN
+    k_typ = k_l
+    c_vtyp = 'LOGICAL'
+  ENDIF
+!----------------------
+END SUBROUTINE get_qtyp
+!===
+SUBROUTINE get_findkey (i_tab,c_key,pos)
+!---------------------------------------------------------------------
+!- This subroutine looks for a key in a table
+!---------------------------------------------------------------------
+!- INPUT
+!-   i_tab  : 1 -> search in key_tab(1:nb_keys)%keystr
+!-            2 -> search in targetlist(1:nb_lines)
+!-   c_key  : Name of the key we are looking for
+!- OUTPUT
+!-   pos    : -1 if key not found, else value in the table
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,INTENT(in) :: i_tab
+  CHARACTER(LEN=*),INTENT(in) :: c_key
+  INTEGER,INTENT(out) :: pos
+!-
+  INTEGER :: ikey_max,ikey
+  CHARACTER(LEN=l_n) :: c_q_key
+!---------------------------------------------------------------------
+  pos = -1
+  IF     (i_tab == 1) THEN
+    ikey_max = nb_keys
+  ELSEIF (i_tab == 2) THEN
+    ikey_max = nb_lines
+  ELSE
+    ikey_max = 0
+  ENDIF
+  IF ( ikey_max > 0 ) THEN
+    DO ikey=1,ikey_max
+      IF (i_tab == 1) THEN
+        c_q_key = key_tab(ikey)%keystr
+      ELSE
+        c_q_key = targetlist(ikey)
+      ENDIF
+      IF (TRIM(c_q_key) == TRIM(c_key)) THEN
+        pos = ikey
+        EXIT
+      ENDIF
+    ENDDO
+  ENDIF
+!-------------------------
+END SUBROUTINE get_findkey
+!===
+!------------------
+END MODULE ioipsl_getincom
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_stringop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_stringop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ioipsl_stringop.F90	(revision 3330)
@@ -0,0 +1,243 @@
+!
+! $Id$
+!
+! Module/Routines extracted from IOIPSL v2_1_8
+!
+MODULE ioipsl_stringop
+!-
+!$Id: stringop.f90 386 2008-09-04 08:38:48Z bellier $
+!-
+! This software is governed by the CeCILL license
+! See IOIPSL/IOIPSL_License_CeCILL.txt
+!---------------------------------------------------------------------
+!-
+  INTEGER,DIMENSION(30) :: &
+ & prime=(/1,2,3,5,7,11,13,17,19,23,29,31,37,41,43, &
+ & 47,53,59,61,67,71,73,79,83,89,97,101,103,107,109/)
+!-
+!---------------------------------------------------------------------
+CONTAINS
+!=
+SUBROUTINE cmpblank (str)
+!---------------------------------------------------------------------
+!- Compact blanks
+!---------------------------------------------------------------------
+  CHARACTER(LEN=*),INTENT(inout) :: str
+!-
+  INTEGER :: lcc,ipb
+!---------------------------------------------------------------------
+  lcc = LEN_TRIM(str)
+  ipb = 1
+  DO
+    IF (ipb >= lcc)   EXIT
+    IF (str(ipb:ipb+1) == '  ') THEN
+      str(ipb+1:) = str(ipb+2:lcc)
+      lcc = lcc-1
+    ELSE
+      ipb = ipb+1
+    ENDIF
+  ENDDO
+!----------------------
+END SUBROUTINE cmpblank
+!===
+INTEGER FUNCTION cntpos (c_c,l_c,c_r,l_r)
+!---------------------------------------------------------------------
+!- Finds number of occurences of c_r in c_c
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*),INTENT(in) :: c_c
+  INTEGER,INTENT(IN) :: l_c
+  CHARACTER(LEN=*),INTENT(in) :: c_r
+  INTEGER,INTENT(IN) :: l_r
+!-
+  INTEGER :: ipos,indx
+!---------------------------------------------------------------------
+  cntpos = 0
+  ipos   = 1
+  DO
+    indx = INDEX(c_c(ipos:l_c),c_r(1:l_r))
+    IF (indx > 0) THEN
+      cntpos = cntpos+1
+      ipos   = ipos+indx+l_r-1
+    ELSE
+      EXIT
+    ENDIF
+  ENDDO
+!------------------
+END FUNCTION cntpos
+!===
+INTEGER FUNCTION findpos (c_c,l_c,c_r,l_r)
+!---------------------------------------------------------------------
+!- Finds position of c_r in c_c
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*),INTENT(in) :: c_c
+  INTEGER,INTENT(IN) :: l_c
+  CHARACTER(LEN=*),INTENT(in) :: c_r
+  INTEGER,INTENT(IN) :: l_r
+!---------------------------------------------------------------------
+  findpos = INDEX(c_c(1:l_c),c_r(1:l_r))
+  IF (findpos == 0)  findpos=-1
+!-------------------
+END FUNCTION findpos
+!===
+SUBROUTINE find_str (str_tab,str,pos)
+!---------------------------------------------------------------------
+!- This subroutine looks for a string in a table
+!---------------------------------------------------------------------
+!- INPUT
+!-   str_tab  : Table  of strings
+!-   str      : Target we are looking for
+!- OUTPUT
+!-   pos      : -1 if str not found, else value in the table
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*),DIMENSION(:),INTENT(in) :: str_tab
+  CHARACTER(LEN=*),INTENT(in) :: str
+  INTEGER,INTENT(out) :: pos
+!-
+  INTEGER :: nb_str,i
+!---------------------------------------------------------------------
+  pos = -1
+  nb_str=SIZE(str_tab)
+  IF ( nb_str > 0 ) THEN
+    DO i=1,nb_str
+      IF ( TRIM(str_tab(i)) == TRIM(str) ) THEN
+        pos = i
+        EXIT
+      ENDIF
+    ENDDO
+  ENDIF
+!----------------------
+END SUBROUTINE find_str
+!===
+SUBROUTINE nocomma (str)
+!---------------------------------------------------------------------
+!- Replace commas with blanks
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: str
+!-
+  INTEGER :: i
+!---------------------------------------------------------------------
+  DO i=1,LEN_TRIM(str)
+    IF (str(i:i) == ',')   str(i:i) = ' '
+  ENDDO
+!---------------------
+END SUBROUTINE nocomma
+!===
+SUBROUTINE strlowercase (str)
+!---------------------------------------------------------------------
+!- Converts a string into lowercase
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: str
+!-
+  INTEGER :: i,ic
+!---------------------------------------------------------------------
+  DO i=1,LEN_TRIM(str)
+    ic = IACHAR(str(i:i))
+    IF ( (ic >= 65).AND.(ic <= 90) )  str(i:i) = ACHAR(ic+32)
+  ENDDO
+!--------------------------
+END SUBROUTINE strlowercase
+!===
+SUBROUTINE struppercase (str)
+!---------------------------------------------------------------------
+!- Converts a string into uppercase
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: str
+!-
+  INTEGER :: i,ic
+!---------------------------------------------------------------------
+  DO i=1,LEN_TRIM(str)
+    ic = IACHAR(str(i:i))
+    IF ( (ic >= 97).AND.(ic <= 122) )  str(i:i) = ACHAR(ic-32)
+  ENDDO
+!--------------------------
+END SUBROUTINE struppercase
+!===
+SUBROUTINE gensig (str,sig)
+!---------------------------------------------------------------------
+!- Generate a signature from the first 30 characters of the string
+!- This signature is not unique and thus when one looks for the
+!- one needs to also verify the string.
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  CHARACTER(LEN=*) :: str
+  INTEGER          :: sig
+!-
+  INTEGER :: i
+!---------------------------------------------------------------------
+  sig = 0
+  DO i=1,MIN(LEN_TRIM(str),30)
+    sig = sig + prime(i)*IACHAR(str(i:i))
+  ENDDO
+!--------------------
+END SUBROUTINE gensig
+!===
+SUBROUTINE find_sig (nb_sig,str_tab,str,sig_tab,sig,pos)
+!---------------------------------------------------------------------
+!- Find the string signature in a list of signatures
+!---------------------------------------------------------------------
+!- INPUT
+!-   nb_sig      : length of table of signatures
+!-   str_tab     : Table of strings
+!-   str         : Target string we are looking for
+!-   sig_tab     : Table of signatures
+!-   sig         : Target signature we are looking for
+!- OUTPUT
+!-   pos         : -1 if str not found, else value in the table
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER :: nb_sig
+  CHARACTER(LEN=*),DIMENSION(nb_sig) :: str_tab
+  CHARACTER(LEN=*) :: str
+  INTEGER,DIMENSION(nb_sig) :: sig_tab
+  INTEGER :: sig
+!-
+  INTEGER :: pos
+  INTEGER,DIMENSION(nb_sig) :: loczeros
+!-
+  INTEGER :: il,len
+  INTEGER,DIMENSION(1) :: minpos
+!---------------------------------------------------------------------
+  pos = -1
+  il = LEN_TRIM(str)
+!-
+  IF ( nb_sig > 0 ) THEN
+    loczeros = ABS(sig_tab(1:nb_sig)-sig)
+    IF ( COUNT(loczeros < 1) == 1 ) THEN
+      minpos = MINLOC(loczeros)
+      len = LEN_TRIM(str_tab(minpos(1)))
+      IF (     (INDEX(str_tab(minpos(1)),str(1:il)) > 0) &
+          .AND.(len == il) ) THEN
+        pos = minpos(1)
+      ENDIF
+    ELSE IF ( COUNT(loczeros < 1) > 1 ) THEN
+      DO WHILE (COUNT(loczeros < 1) >= 1 .AND. pos < 0 )
+        minpos = MINLOC(loczeros)
+        len = LEN_TRIM(str_tab(minpos(1)))
+        IF (     (INDEX(str_tab(minpos(1)),str(1:il)) > 0) &
+            .AND.(len == il) ) THEN
+          pos = minpos(1)
+        ELSE
+          loczeros(minpos(1)) = 99999
+        ENDIF
+      ENDDO
+    ENDIF
+  ENDIF
+!-----------------------
+ END SUBROUTINE find_sig
+!===
+!------------------
+END MODULE ioipsl_stringop
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ismax.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ismax.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ismax.F	(revision 3330)
@@ -0,0 +1,24 @@
+!
+! $Header$
+!
+      function ismax(n,sx,incx)
+c
+      IMPLICIT NONE
+c
+      INTEGER n,i,incx,ismax,ix
+      real sx((n-1)*incx+1),sxmax
+c
+      ix=1
+      ismax=1
+      sxmax=sx(1)
+      do 10 i=1,n-1
+       ix=ix+incx
+       if(sx(ix).gt.sxmax) then
+         sxmax=sx(ix)
+         ismax=i+1
+       endif
+10    continue
+c
+      return
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ismin.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ismin.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ismin.F	(revision 3330)
@@ -0,0 +1,24 @@
+!
+! $Header$
+!
+      FUNCTION ismin(n,sx,incx)
+c
+      IMPLICIT NONE
+c
+      integer n,i,incx,ismin,ix
+      real sx((n-1)*incx+1),sxmin
+c
+      ix=1
+      ismin=1
+      sxmin=sx(1)
+      DO i=1,n-1
+         ix=ix+incx
+         if(sx(ix).lt.sxmin) then
+             sxmin=sx(ix)
+             ismin=i+1
+         endif
+      ENDDO
+c
+      return
+      end
+C
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/j4save.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/j4save.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/j4save.F	(revision 3330)
@@ -0,0 +1,67 @@
+*DECK J4SAVE
+      FUNCTION J4SAVE (IWHICH, IVALUE, ISET)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  J4SAVE
+C***SUBSIDIARY
+C***PURPOSE  Save or recall global variables needed by error
+C            handling routines.
+C***LIBRARY   SLATEC (XERROR)
+C***TYPE      INTEGER (J4SAVE-I)
+C***KEYWORDS  ERROR MESSAGES, ERROR NUMBER, RECALL, SAVE, XERROR
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C     Abstract
+C        J4SAVE saves and recalls several global variables needed
+C        by the library error handling routines.
+C
+C     Description of Parameters
+C      --Input--
+C        IWHICH - Index of item desired.
+C                = 1 Refers to current error number.
+C                = 2 Refers to current error control flag.
+C                = 3 Refers to current unit number to which error
+C                    messages are to be sent.  (0 means use standard.)
+C                = 4 Refers to the maximum number of times any
+C                     message is to be printed (as set by XERMAX).
+C                = 5 Refers to the total number of units to which
+C                     each error message is to be written.
+C                = 6 Refers to the 2nd unit for error messages
+C                = 7 Refers to the 3rd unit for error messages
+C                = 8 Refers to the 4th unit for error messages
+C                = 9 Refers to the 5th unit for error messages
+C        IVALUE - The value to be set for the IWHICH-th parameter,
+C                 if ISET is .TRUE. .
+C        ISET   - If ISET=.TRUE., the IWHICH-th parameter will BE
+C                 given the value, IVALUE.  If ISET=.FALSE., the
+C                 IWHICH-th parameter will be unchanged, and IVALUE
+C                 is a dummy parameter.
+C      --Output--
+C        The (old) value of the IWHICH-th parameter will be returned
+C        in the function value, J4SAVE.
+C
+C***SEE ALSO  XERMSG
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  (NONE)
+C***REVISION HISTORY  (YYMMDD)
+C   790801  DATE WRITTEN
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900205  Minor modifications to prologue.  (WRB)
+C   900402  Added TYPE section.  (WRB)
+C   910411  Added KEYWORDS section.  (WRB)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  J4SAVE
+      LOGICAL ISET
+      INTEGER IPARAM(9)
+      SAVE IPARAM
+      DATA IPARAM(1),IPARAM(2),IPARAM(3),IPARAM(4)/0,2,0,10/
+      DATA IPARAM(5)/1/
+      DATA IPARAM(6),IPARAM(7),IPARAM(8),IPARAM(9)/0,0,0,0/
+      INTEGER J4SAVE,IWHICH,IVALUE
+C***FIRST EXECUTABLE STATEMENT  J4SAVE
+      J4SAVE = IPARAM(IWHICH)
+      IF (ISET) IPARAM(IWHICH) = IVALUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/juldate.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/juldate.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/juldate.F	(revision 3330)
@@ -0,0 +1,39 @@
+!
+! $Id$
+!
+	subroutine juldate(ian,imoi,ijou,oh,om,os,tjd,tjdsec)
+c	Sous-routine de changement de date:
+c	gregorien>>>date julienne
+c	En entree:an,mois,jour,heure,min.,sec.
+c	En sortie:tjd
+        IMPLICIT NONE
+        INTEGER,INTENT(IN) :: ian,imoi,ijou,oh,om,os
+        REAL,INTENT(OUT) :: tjd,tjdsec
+        
+        REAL frac,year,rmon,cf,a,b
+        INTEGER ojou
+        
+	frac=((os/60.+om)/60.+oh)/24.
+	ojou=dble(ijou)+frac
+	    year=dble(ian)
+	    rmon=dble(imoi)
+	if (imoi .le. 2) then
+	    year=year-1.
+	    rmon=rmon+12.
+	endif
+	cf=year+(rmon/100.)+(ojou/10000.)
+	if (cf .ge. 1582.1015) then
+	    a=int(year/100)
+	    b=2-a+int(a/4)
+	else
+	    b=0
+	endif
+	tjd=int(365.25*year)+int(30.6001*(rmon+1))+int(ojou)
+     +   +1720994.5+b
+        tjdsec=(ojou-int(ojou))+(tjd-int(tjd))
+        tjd=int(tjd)+int(tjdsec)
+	tjdsec=tjdsec-int(tjdsec)
+	return
+	end
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/minmax.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/minmax.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/minmax.F	(revision 3330)
@@ -0,0 +1,23 @@
+!
+! $Header$
+!
+       SUBROUTINE minmax(imax, xi, zmin, zmax )
+c
+c      P. Le Van
+
+       INTEGER imax
+       REAL    xi(imax)
+       REAL    zmin,zmax
+       INTEGER i
+
+       zmin = xi(1)
+       zmax = xi(1)
+
+       DO i = 2, imax
+         zmin = MIN( zmin,xi(i) )
+         zmax = MAX( zmax,xi(i) )
+       ENDDO
+
+       RETURN
+       END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/minmax2.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/minmax2.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/minmax2.F	(revision 3330)
@@ -0,0 +1,20 @@
+!
+! $Header$
+!
+       SUBROUTINE minmax2(imax, jmax, lmax, xi, zmin, zmax )
+c
+       INTEGER lmax,jmax,imax
+       REAL xi(imax*jmax*lmax) 
+       REAL zmin,zmax
+       INTEGER i
+    
+       zmin = xi(1)
+       zmax = xi(1)
+
+       DO i = 2, imax*jmax*lmax
+         zmin = MIN( zmin,xi(i) )
+         zmax = MAX( zmax,xi(i) )
+       ENDDO
+
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/netcdf95.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/netcdf95.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/netcdf95.F90	(revision 3330)
@@ -0,0 +1,17 @@
+! $Id$
+module netcdf95
+
+  ! Author: Lionel GUEZ
+  ! See:
+  ! http://www.lmd.jussieu.fr/~lglmd/NetCDF95
+
+  use nf95_def_var_m
+  use nf95_put_var_m
+  use nf95_get_var_m
+  use nf95_gw_var_m
+  use nf95_put_att_m
+  use nf95_get_att_m
+  use simple
+  use handle_err_m
+
+end module netcdf95
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/new_unit_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/new_unit_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/new_unit_m.F90	(revision 3330)
@@ -0,0 +1,25 @@
+module new_unit_m
+
+  implicit none
+
+contains
+
+  subroutine new_unit(unit)
+
+    integer, intent(out):: unit
+
+    ! Variables local to the procedure:
+    logical opened, exist
+
+    !------------------------------------------------------
+
+    unit = 0
+    do
+       inquire(unit=unit, opened=opened, exist=exist)
+       if (exist .and. .not. opened) exit
+       unit = unit + 1
+    end do
+
+  end subroutine new_unit
+
+end module new_unit_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_def_var_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_def_var_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_def_var_m.F90	(revision 3330)
@@ -0,0 +1,102 @@
+! $Id$
+module nf95_def_var_m
+
+  ! The generic procedure name "nf90_def_var" applies to
+  ! "nf90_def_var_Scalar" but we cannot apply the generic procedure name
+  ! "nf95_def_var" to "nf95_def_var_scalar" because of the additional
+  ! optional argument.
+  ! "nf95_def_var_scalar" cannot be distinguished from "nf95_def_var_oneDim".
+
+  implicit none
+
+  interface nf95_def_var
+    module procedure nf95_def_var_oneDim, nf95_def_var_ManyDims
+  end interface
+
+  private
+  public nf95_def_var, nf95_def_var_scalar
+
+contains
+
+  subroutine nf95_def_var_scalar(ncid, name, xtype, varid, ncerr)
+
+    use netcdf, only: nf90_def_var
+    use handle_err_m, only: handle_err
+
+    integer,               intent( in) :: ncid
+    character (len = *),   intent( in) :: name
+    integer,               intent( in) :: xtype
+    integer,               intent(out) :: varid
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_def_var(ncid, name, xtype, varid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_def_var_scalar " // name, ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_def_var_scalar
+
+  !***********************
+
+  subroutine nf95_def_var_oneDim(ncid, name, xtype, dimids, varid, ncerr)
+
+    use netcdf, only: nf90_def_var
+    use handle_err_m, only: handle_err
+
+    integer,               intent( in) :: ncid
+    character (len = *),   intent( in) :: name
+    integer,               intent( in) :: xtype
+    integer,               intent( in) :: dimids
+    integer,               intent(out) :: varid
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_def_var(ncid, name, xtype, dimids, varid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_def_var_oneDim " // name, ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_def_var_oneDim
+
+  !***********************
+
+  subroutine nf95_def_var_ManyDims(ncid, name, xtype, dimids, varid, ncerr)
+
+    use netcdf, only: nf90_def_var
+    use handle_err_m, only: handle_err
+
+    integer,               intent( in) :: ncid
+    character (len = *),   intent( in) :: name
+    integer,               intent( in) :: xtype
+    integer, dimension(:), intent( in) :: dimids
+    integer,               intent(out) :: varid
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_def_var(ncid, name, xtype, dimids, varid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_def_var_ManyDims " // name, ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_def_var_ManyDims
+
+end module nf95_def_var_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_get_att_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_get_att_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_get_att_m.F90	(revision 3330)
@@ -0,0 +1,105 @@
+! $Id$
+module nf95_get_att_m
+
+  use handle_err_m, only: handle_err
+  use netcdf, only: nf90_get_att, nf90_noerr
+  use simple, only: nf95_inquire_attribute
+
+  implicit none
+
+  interface nf95_get_att
+     module procedure nf95_get_att_text, nf95_get_att_one_FourByteInt
+
+     ! The difference between the specific procedures is the type of
+     ! argument "values".
+  end interface
+
+  private
+  public nf95_get_att
+
+contains
+
+  subroutine nf95_get_att_text(ncid, varid, name, values, ncerr)
+
+    integer,                          intent( in) :: ncid, varid
+    character(len = *),               intent( in) :: name
+    character(len = *),               intent(out) :: values
+    integer, intent(out), optional:: ncerr
+
+    ! Variables local to the procedure:
+    integer ncerr_not_opt
+    integer att_len
+
+    !-------------------
+
+    ! Check that the length of "values" is large enough:
+    call nf95_inquire_attribute(ncid, varid, name, nclen=att_len, &
+         ncerr=ncerr_not_opt)
+    if (ncerr_not_opt == nf90_noerr) then
+       if (len(values) < att_len) then
+          print *, "nf95_get_att_text"
+          print *, "varid = ", varid
+          print *, "attribute name: ", name
+          print *, 'length of "values" is not large enough'
+          print *, "len(values) = ", len(values)
+          print *, "number of characters in attribute: ", att_len
+          stop 1
+       end if
+    end if
+
+    values = "" ! useless in NetCDF version 3.6.2 or better
+    ncerr_not_opt = nf90_get_att(ncid, varid, name, values)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_att_text " // trim(name), ncerr_not_opt, &
+            ncid, varid)
+    end if
+
+    if (att_len >= 1 .and. ncerr_not_opt == nf90_noerr) then
+       ! Remove null terminator, if any:
+       if (iachar(values(att_len:att_len)) == 0) values(att_len:att_len) = " "
+    end if
+
+  end subroutine nf95_get_att_text
+
+  !***********************
+
+  subroutine nf95_get_att_one_FourByteInt(ncid, varid, name, values, ncerr)
+
+    integer,                                    intent( in) :: ncid, varid
+    character(len = *),                         intent( in) :: name
+    integer ,               intent(out) :: values
+    integer, intent(out), optional:: ncerr
+
+    ! Variables local to the procedure:
+    integer ncerr_not_opt
+    integer att_len
+
+    !-------------------
+
+    ! Check that the attribute contains a single value:
+    call nf95_inquire_attribute(ncid, varid, name, nclen=att_len, &
+         ncerr=ncerr_not_opt)
+    if (ncerr_not_opt == nf90_noerr) then
+       if (att_len /= 1) then
+          print *, "nf95_get_att_one_FourByteInt"
+          print *, "varid = ", varid
+          print *, "attribute name: ", name
+          print *, 'the attribute does not contain a single value'
+          print *, "number of values in attribute: ", att_len
+          stop 1
+       end if
+    end if
+
+    ncerr_not_opt = nf90_get_att(ncid, varid, name, values)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_att_one_FourByteInt " // trim(name), &
+            ncerr_not_opt, ncid, varid)
+    end if
+
+  end subroutine nf95_get_att_one_FourByteInt
+
+end module nf95_get_att_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_get_var_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_get_var_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_get_var_m.F90	(revision 3330)
@@ -0,0 +1,391 @@
+module nf95_get_var_m
+
+  use netcdf, only: nf90_get_var
+  use handle_err_m, only: handle_err
+
+  implicit none
+
+  interface nf95_get_var
+     module procedure nf95_get_var_FourByteReal, nf95_get_var_FourByteInt, &
+          nf95_get_var_1D_FourByteReal, nf95_get_var_1D_FourByteInt, &
+          nf95_get_var_2D_FourByteReal, &
+          nf95_get_var_3D_FourByteInt, &
+          nf95_get_var_3D_FourByteReal, &
+          nf95_get_var_4D_FourByteReal, &
+          nf95_get_var_5D_FourByteReal
+  end interface
+
+  private
+  public nf95_get_var
+
+contains
+
+  subroutine nf95_get_var_FourByteReal(ncid, varid, values, start, ncerr)
+
+    integer, intent(in) :: ncid, varid
+    real, intent(out) :: values
+    integer, dimension(:), optional, intent(in) :: start
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_FourByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_FourByteInt(ncid, varid, values, start, ncerr)
+
+    integer, intent(in) :: ncid, varid
+    integer, intent(out) :: values
+    integer, dimension(:), optional, intent(in) :: start
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_FourByteInt", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_FourByteInt
+
+  !***********************
+
+  subroutine nf95_get_var_1D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer,                         intent(in) :: ncid, varid
+    real, intent(out) :: values(:)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_1D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_1D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_1D_FourByteInt(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer,                         intent(in) :: ncid, varid
+    integer, intent(out) :: values(:)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_1D_FourByteInt", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_1D_FourByteInt
+
+  !***********************
+
+  subroutine nf95_get_var_1D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: eightByteReal
+
+    integer,                         intent(in) :: ncid, varid
+    real (kind = EightByteReal),     intent(out) :: values(:)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_1D_eightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_1D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_2D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer,                         intent(in) :: ncid, varid
+    real , intent(out) :: values(:, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_2D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_2D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_2D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: EightByteReal
+
+    integer,                         intent(in) :: ncid, varid
+    real (kind = EightByteReal), intent(out) :: values(:, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_2D_EightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_2D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_3D_FourByteInt(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer, intent(in):: ncid, varid
+    integer, intent(out):: values(:, :, :)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_3D_FourByteInt", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_3D_FourByteInt
+
+  !***********************
+
+  subroutine nf95_get_var_3D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer,                         intent(in) :: ncid, varid
+    real , intent(out) :: values(:, :, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_3D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_3D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_3D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: eightByteReal
+
+    integer,                         intent(in) :: ncid, varid
+    real (kind = EightByteReal),     intent(out) :: values(:, :, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_3D_eightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_3D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_4D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer,                         intent(in) :: ncid, varid
+    real , intent(out) :: values(:, :, :, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_4D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_4D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_4D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: EightByteReal
+
+    integer, intent(in):: ncid, varid
+    real(kind = EightByteReal), intent(out):: values(:, :, :, :)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_4D_EightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_4D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_5D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    integer, intent(in):: ncid, varid
+    real, intent(out):: values(:, :, :, :, :)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_5D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_5D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_get_var_5D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: EightByteReal
+
+    integer, intent(in):: ncid, varid
+    real(kind = EightByteReal), intent(out):: values(:, :, :, :, :)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_get_var_5D_EightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_get_var_5D_EightByteReal
+
+end module nf95_get_var_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_gw_var_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_gw_var_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_gw_var_m.F90	(revision 3330)
@@ -0,0 +1,336 @@
+! $Id$
+module nf95_gw_var_m
+
+  use nf95_get_var_m, only: NF95_GET_VAR
+  use simple, only: nf95_inquire_variable, nf95_inquire_dimension
+
+  implicit none
+
+  interface nf95_gw_var
+     ! "nf95_gw_var" stands for "NetCDF 1995 get whole variable".
+     ! These procedures read a whole NetCDF variable (coordinate or
+     ! primary) into an array.
+     ! The difference between the procedures is the rank and type of
+     ! argument "values".
+     ! The procedures do not check the type of the NetCDF variable.
+
+     ! Not including double precision procedures in the generic
+     ! interface because we use a compilation option that changes default
+     ! real precision.
+     module procedure nf95_gw_var_real_1d, nf95_gw_var_real_2d, &
+          nf95_gw_var_real_3d, nf95_gw_var_real_4d, nf95_gw_var_real_5d, &
+          nf95_gw_var_int_1d, nf95_gw_var_int_3d
+  end interface
+
+  private
+  public nf95_gw_var
+
+contains
+
+  subroutine nf95_gw_var_real_1d(ncid, varid, values)
+
+    ! Real type, the array has rank 1.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    real, pointer:: values(:)
+
+    ! Variables local to the procedure:
+    integer nclen
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 1) then
+       print *, "nf95_gw_var_real_1d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 1"
+       stop 1
+    end if
+
+    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen)
+    deallocate(dimids) ! pointer
+
+    allocate(values(nclen))
+    if (nclen /= 0) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_real_1d
+
+  !************************************
+
+  subroutine nf95_gw_var_real_2d(ncid, varid, values)
+
+    ! Real type, the array has rank 2.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    real, pointer:: values(:, :)
+
+    ! Variables local to the procedure:
+    integer nclen1, nclen2
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 2) then
+       print *, "nf95_gw_var_real_2d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 2"
+       stop 1
+    end if
+
+    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen1)
+    call nf95_inquire_dimension(ncid, dimids(2), nclen=nclen2)
+    deallocate(dimids) ! pointer
+
+    allocate(values(nclen1, nclen2))
+    if (nclen1 /= 0 .and. nclen2 /= 0) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_real_2d
+
+  !************************************
+
+  subroutine nf95_gw_var_real_3d(ncid, varid, values)
+
+    ! Real type, the array has rank 3.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    real, pointer:: values(:, :, :)
+
+    ! Variables local to the procedure:
+    integer nclen1, nclen2, nclen3
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 3) then
+       print *, "nf95_gw_var_real_3d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 3"
+       stop 1
+    end if
+
+    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen1)
+    call nf95_inquire_dimension(ncid, dimids(2), nclen=nclen2)
+    call nf95_inquire_dimension(ncid, dimids(3), nclen=nclen3)
+    deallocate(dimids) ! pointer
+
+    allocate(values(nclen1, nclen2, nclen3))
+    if (nclen1 * nclen2 * nclen3 /= 0) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_real_3d
+
+  !************************************
+
+  subroutine nf95_gw_var_real_4d(ncid, varid, values)
+
+    ! Real type, the array has rank 4.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    real, pointer:: values(:, :, :, :)
+
+    ! Variables local to the procedure:
+    integer len_dim(4), i
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 4) then
+       print *, "nf95_gw_var_real_4d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 4"
+       stop 1
+    end if
+
+    do i = 1, 4
+       call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
+    end do
+    deallocate(dimids) ! pointer
+
+    allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4)))
+    if (all(len_dim /= 0)) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_real_4d
+
+  !************************************
+
+  subroutine nf95_gw_var_real_5d(ncid, varid, values)
+
+    ! Real type, the array has rank 5.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    real, pointer:: values(:, :, :, :, :)
+
+    ! Variables local to the procedure:
+    integer len_dim(5), i
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 5) then
+       print *, "nf95_gw_var_real_5d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 5"
+       stop 1
+    end if
+
+    do i = 1, 5
+       call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
+    end do
+    deallocate(dimids) ! pointer
+
+    allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4), len_dim(5)))
+    if (all(len_dim /= 0)) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_real_5d
+
+  !************************************
+
+!!$  subroutine nf95_gw_var_dble_1d(ncid, varid, values)
+!!$
+!!$    ! Double precision, the array has rank 1.
+!!$
+!!$    integer, intent(in):: ncid
+!!$    integer, intent(in):: varid
+!!$    double precision, pointer:: values(:)
+!!$
+!!$    ! Variables local to the procedure:
+!!$    integer nclen
+!!$    integer, pointer:: dimids(:)
+!!$
+!!$    !---------------------
+!!$
+!!$    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+!!$
+!!$    if (size(dimids) /= 1) then
+!!$       print *, "nf95_gw_var_dble_1d:"
+!!$       print *, "varid = ", varid
+!!$       print *, "rank of NetCDF variable is ", size(dimids), ", not 1"
+!!$        stop 1
+!!$    end if
+!!$
+!!$    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen)
+!!$    deallocate(dimids) ! pointer
+!!$
+!!$    allocate(values(nclen))
+!!$    if (nclen /= 0) call NF95_GET_VAR(ncid, varid, values)
+!!$
+!!$  end subroutine nf95_gw_var_dble_1d
+!!$
+!!$  !************************************
+!!$
+!!$  subroutine nf95_gw_var_dble_3d(ncid, varid, values)
+!!$
+!!$    ! Double precision, the array has rank 3.
+!!$
+!!$    integer, intent(in):: ncid
+!!$    integer, intent(in):: varid
+!!$    double precision, pointer:: values(:, :, :)
+!!$
+!!$    ! Variables local to the procedure:
+!!$    integer nclen1, nclen2, nclen3
+!!$    integer, pointer:: dimids(:)
+!!$
+!!$    !---------------------
+!!$
+!!$    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+!!$
+!!$    if (size(dimids) /= 3) then
+!!$       print *, "nf95_gw_var_dble_3d:"
+!!$       print *, "varid = ", varid
+!!$       print *, "rank of NetCDF variable is ", size(dimids), ", not 3"
+!!$       stop 1
+!!$    end if
+!!$
+!!$    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen1)
+!!$    call nf95_inquire_dimension(ncid, dimids(2), nclen=nclen2)
+!!$    call nf95_inquire_dimension(ncid, dimids(3), nclen=nclen3)
+!!$    deallocate(dimids) ! pointer
+!!$
+!!$    allocate(values(nclen1, nclen2, nclen3))
+!!$    if (nclen1 * nclen2 * nclen3 /= 0) call NF95_GET_VAR(ncid, varid, values)
+!!$
+!!$  end subroutine nf95_gw_var_dble_3d
+!!$
+  !************************************
+
+  subroutine nf95_gw_var_int_1d(ncid, varid, values)
+
+    ! Integer type, the array has rank 1.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    integer, pointer:: values(:)
+
+    ! Variables local to the procedure:
+    integer nclen
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 1) then
+       print *, "nf95_gw_var_int_1d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 1"
+       stop 1
+    end if
+
+    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen)
+    deallocate(dimids) ! pointer
+
+    allocate(values(nclen))
+    if (nclen /= 0) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_int_1d
+
+  !************************************
+
+  subroutine nf95_gw_var_int_3d(ncid, varid, values)
+
+    ! Integer type, the array has rank 3.
+
+    integer, intent(in):: ncid
+    integer, intent(in):: varid
+    integer, pointer:: values(:, :, :)
+
+    ! Variables local to the procedure:
+    integer nclen1, nclen2, nclen3
+    integer, pointer:: dimids(:)
+
+    !---------------------
+
+    call nf95_inquire_variable(ncid, varid, dimids=dimids)
+
+    if (size(dimids) /= 3) then
+       print *, "nf95_gw_var_int_3d:"
+       print *, "varid = ", varid
+       print *, "rank of NetCDF variable is ", size(dimids), ", not 3"
+       stop 1
+    end if
+
+    call nf95_inquire_dimension(ncid, dimids(1), nclen=nclen1)
+    call nf95_inquire_dimension(ncid, dimids(2), nclen=nclen2)
+    call nf95_inquire_dimension(ncid, dimids(3), nclen=nclen3)
+    deallocate(dimids) ! pointer
+
+    allocate(values(nclen1, nclen2, nclen3))
+    if (nclen1 * nclen2 * nclen3 /= 0) call NF95_GET_VAR(ncid, varid, values)
+
+  end subroutine nf95_gw_var_int_3d
+
+end module nf95_gw_var_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_put_att_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_put_att_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_put_att_m.F90	(revision 3330)
@@ -0,0 +1,67 @@
+! $Id$
+module nf95_put_att_m
+
+  implicit none
+
+  interface nf95_put_att
+     module procedure nf95_put_att_text, nf95_put_att_one_FourByteInt
+  end interface
+
+  private
+  public nf95_put_att
+
+contains
+
+  subroutine nf95_put_att_text(ncid, varid, name, values, ncerr)
+
+    use netcdf, only: nf90_put_att
+    use handle_err_m, only: handle_err
+
+    integer, intent(in) :: ncid, varid
+    character(len = *), intent(in) :: name
+    character(len = *), intent(in) :: values
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_att(ncid, varid, name, values)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_att_text", ncerr_not_opt, ncid, varid)
+    end if
+
+  end subroutine nf95_put_att_text
+
+  !************************************
+
+  subroutine nf95_put_att_one_FourByteInt(ncid, varid, name, values, ncerr)
+
+    use netcdf, only: nf90_put_att
+    use handle_err_m, only: handle_err
+    use typesizes, only: FourByteInt
+
+    integer, intent(in) :: ncid, varid
+    character(len = *), intent(in) :: name
+    integer(kind = FourByteInt), intent(in) :: values
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_att(ncid, varid, name, values)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_att_one_FourByteInt", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_att_one_FourByteInt
+
+end module nf95_put_att_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_put_var_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_put_var_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nf95_put_var_m.F90	(revision 3330)
@@ -0,0 +1,335 @@
+! $Id$
+module nf95_put_var_m
+
+  implicit none
+
+  interface nf95_put_var
+     module procedure nf95_put_var_FourByteReal, nf95_put_var_FourByteInt, &
+          nf95_put_var_1D_FourByteReal, nf95_put_var_1D_FourByteInt, &
+          nf95_put_var_2D_FourByteReal, nf95_put_var_3D_FourByteReal, &
+          nf95_put_var_4D_FourByteReal
+  end interface
+
+  private
+  public nf95_put_var
+
+contains
+
+  subroutine nf95_put_var_FourByteReal(ncid, varid, values, start, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer, intent(in) :: ncid, varid
+    real, intent(in) :: values
+    integer, dimension(:), optional, intent(in) :: start
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_FourByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_FourByteInt(ncid, varid, values, start, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer, intent(in) :: ncid, varid
+    integer, intent(in) :: values
+    integer, dimension(:), optional, intent(in) :: start
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_FourByteInt", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_FourByteInt
+
+  !***********************
+
+  subroutine nf95_put_var_1D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real, intent(in) :: values(:)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_1D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_1D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_1D_FourByteInt(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    integer, intent(in) :: values(:)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_1D_FourByteInt", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_1D_FourByteInt
+
+  !***********************
+
+  subroutine nf95_put_var_1D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: eightByteReal
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real (kind = EightByteReal),     intent(in) :: values(:)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_1D_eightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_1D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_2D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real, intent(in) :: values(:, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_2D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_2D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_2D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: EightByteReal
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real (kind = EightByteReal), intent(in) :: values(:, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_2D_EightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_2D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_3D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real, intent(in) :: values(:, :, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_3D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_3D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_3D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: eightByteReal
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real (kind = EightByteReal),     intent(in) :: values(:, :, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_3D_eightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_3D_EightByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_4D_FourByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer,                         intent(in) :: ncid, varid
+    real, intent(in) :: values(:, :, :, :)
+    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_4D_FourByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_4D_FourByteReal
+
+  !***********************
+
+  subroutine nf95_put_var_4D_EightByteReal(ncid, varid, values, start, &
+       count_nc, stride, map, ncerr)
+
+    use typesizes, only: EightByteReal
+    use netcdf, only: nf90_put_var
+    use handle_err_m, only: handle_err
+
+    integer, intent(in):: ncid, varid
+    real(kind = EightByteReal), intent(in):: values(:, :, :, :)
+    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
+         stride, map)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_put_var_4D_EightByteReal", ncerr_not_opt, ncid, &
+            varid)
+    end if
+
+  end subroutine nf95_put_var_4D_EightByteReal
+
+end module nf95_put_var_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nrtype.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nrtype.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/nrtype.F90	(revision 3330)
@@ -0,0 +1,22 @@
+MODULE nrtype
+
+  implicit none
+
+  integer, parameter:: k8 = selected_real_kind(13)
+
+  ! Frequently used mathematical constants (with precision to spare):
+
+  REAL, PARAMETER :: PI=3.141592653589793238462643383279502884197
+  REAL, PARAMETER :: PIO2=1.57079632679489661923132169163975144209858
+  REAL, PARAMETER :: TWOPI=6.283185307179586476925286766559005768394
+  REAL, PARAMETER :: SQRT2=1.41421356237309504880168872420969807856967
+  REAL, PARAMETER :: EULER=0.5772156649015328606065120900824024310422
+
+  REAL(K8), PARAMETER:: &
+       PI_D = 3.141592653589793238462643383279502884197_k8
+  REAL(K8), PARAMETER:: &
+       PIO2_D=1.57079632679489661923132169163975144209858_k8
+  REAL(K8), PARAMETER:: &
+       TWOPI_D=6.283185307179586476925286766559005768394_k8
+
+END MODULE nrtype
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchdf.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchdf.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchdf.F	(revision 3330)
@@ -0,0 +1,106 @@
+*DECK PCHDF
+      REAL FUNCTION PCHDF (K, X, S, IERR)
+C***BEGIN PROLOGUE  PCHDF
+C***SUBSIDIARY
+C***PURPOSE  Computes divided differences for PCHCE and PCHSP
+C***LIBRARY   SLATEC (PCHIP)
+C***TYPE      SINGLE PRECISION (PCHDF-S, DPCHDF-D)
+C***AUTHOR  Fritsch, F. N., (LLNL)
+C***DESCRIPTION
+C
+C          PCHDF:   PCHIP Finite Difference Formula
+C
+C     Uses a divided difference formulation to compute a K-point approx-
+C     imation to the derivative at X(K) based on the data in X and S.
+C
+C     Called by  PCHCE  and  PCHSP  to compute 3- and 4-point boundary
+C     derivative approximations.
+C
+C ----------------------------------------------------------------------
+C
+C     On input:
+C        K      is the order of the desired derivative approximation.
+C               K must be at least 3 (error return if not).
+C        X      contains the K values of the independent variable.
+C               X need not be ordered, but the values **MUST** be
+C               distinct.  (Not checked here.)
+C        S      contains the associated slope values:
+C                  S(I) = (F(I+1)-F(I))/(X(I+1)-X(I)), I=1(1)K-1.
+C               (Note that S need only be of length K-1.)
+C
+C     On return:
+C        S      will be destroyed.
+C        IERR   will be set to -1 if K.LT.2 .
+C        PCHDF  will be set to the desired derivative approximation if
+C               IERR=0 or to zero if IERR=-1.
+C
+C ----------------------------------------------------------------------
+C
+C***SEE ALSO  PCHCE, PCHSP
+C***REFERENCES  Carl de Boor, A Practical Guide to Splines, Springer-
+C                 Verlag, New York, 1978, pp. 10-16.
+C***ROUTINES CALLED  XERMSG
+C***REVISION HISTORY  (YYMMDD)
+C   820503  DATE WRITTEN
+C   820805  Converted to SLATEC library version.
+C   870813  Minor cosmetic changes.
+C   890411  Added SAVE statements (Vers. 3.2).
+C   890411  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900315  CALLs to XERROR changed to CALLs to XERMSG.  (THJ)
+C   900328  Added TYPE section.  (WRB)
+C   910408  Updated AUTHOR and DATE WRITTEN sections in prologue.  (WRB)
+C   920429  Revised format and order of references.  (WRB,FNF)
+C   930503  Improved purpose.  (FNF)
+C***END PROLOGUE  PCHDF
+C
+C**End
+C
+C  DECLARE ARGUMENTS.
+C
+      INTEGER  K, IERR
+      REAL  X(K), S(K)
+C
+C  DECLARE LOCAL VARIABLES.
+C
+      INTEGER  I, J
+      REAL  VALUE, ZERO
+      SAVE ZERO
+      DATA  ZERO /0./
+C
+C  CHECK FOR LEGAL VALUE OF K.
+C
+C***FIRST EXECUTABLE STATEMENT  PCHDF
+      IF (K .LT. 3)  GO TO 5001
+C
+C  COMPUTE COEFFICIENTS OF INTERPOLATING POLYNOMIAL.
+C
+      DO 10  J = 2, K-1
+         DO 9  I = 1, K-J
+            S(I) = (S(I+1)-S(I))/(X(I+J)-X(I))
+    9    CONTINUE
+   10 CONTINUE
+C
+C  EVALUATE DERIVATIVE AT X(K).
+C
+      VALUE = S(1)
+      DO 20  I = 2, K-1
+         VALUE = S(I) + VALUE*(X(K)-X(I))
+   20 CONTINUE
+C
+C  NORMAL RETURN.
+C
+      IERR = 0
+      PCHDF = VALUE
+      RETURN
+C
+C  ERROR RETURN.
+C
+ 5001 CONTINUE
+C     K.LT.3 RETURN.
+      IERR = -1
+      CALL XERMSG ('SLATEC', 'PCHDF', 'K LESS THAN THREE', IERR, 1)
+      PCHDF = ZERO
+      RETURN
+C------------- LAST LINE OF PCHDF FOLLOWS ------------------------------
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchfe.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchfe.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchfe.F	(revision 3330)
@@ -0,0 +1,308 @@
+*DECK PCHFE
+      SUBROUTINE PCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
+C***BEGIN PROLOGUE  PCHFE
+C***PURPOSE  Evaluate a piecewise cubic Hermite function at an array of
+C            points.  May be used by itself for Hermite interpolation,
+C            or as an evaluator for PCHIM or PCHIC.
+C***LIBRARY   SLATEC (PCHIP)
+C***CATEGORY  E3
+C***TYPE      SINGLE PRECISION (PCHFE-S, DPCHFE-D)
+C***KEYWORDS  CUBIC HERMITE EVALUATION, HERMITE INTERPOLATION, PCHIP,
+C             PIECEWISE CUBIC EVALUATION
+C***AUTHOR  Fritsch, F. N., (LLNL)
+C             Lawrence Livermore National Laboratory
+C             P.O. Box 808  (L-316)
+C             Livermore, CA  94550
+C             FTS 532-4275, (510) 422-4275
+C***DESCRIPTION
+C
+C          PCHFE:  Piecewise Cubic Hermite Function Evaluator
+C
+C     Evaluates the cubic Hermite function defined by  N, X, F, D  at
+C     the points  XE(J), J=1(1)NE.
+C
+C     To provide compatibility with PCHIM and PCHIC, includes an
+C     increment between successive values of the F- and D-arrays.
+C
+C ----------------------------------------------------------------------
+C
+C  Calling sequence:
+C
+C        PARAMETER  (INCFD = ...)
+C        INTEGER  N, NE, IERR
+C        REAL  X(N), F(INCFD,N), D(INCFD,N), XE(NE), FE(NE)
+C        LOGICAL  SKIP
+C
+C        CALL  PCHFE (N, X, F, D, INCFD, SKIP, NE, XE, FE, IERR)
+C
+C   Parameters:
+C
+C     N -- (input) number of data points.  (Error return if N.LT.2 .)
+C
+C     X -- (input) real array of independent variable values.  The
+C           elements of X must be strictly increasing:
+C                X(I-1) .LT. X(I),  I = 2(1)N.
+C           (Error return if not.)
+C
+C     F -- (input) real array of function values.  F(1+(I-1)*INCFD) is
+C           the value corresponding to X(I).
+C
+C     D -- (input) real array of derivative values.  D(1+(I-1)*INCFD) is
+C           the value corresponding to X(I).
+C
+C     INCFD -- (input) increment between successive values in F and D.
+C           (Error return if  INCFD.LT.1 .)
+C
+C     SKIP -- (input/output) logical variable which should be set to
+C           .TRUE. if the user wishes to skip checks for validity of
+C           preceding parameters, or to .FALSE. otherwise.
+C           This will save time in case these checks have already
+C           been performed (say, in PCHIM or PCHIC).
+C           SKIP will be set to .TRUE. on normal return.
+C
+C     NE -- (input) number of evaluation points.  (Error return if
+C           NE.LT.1 .)
+C
+C     XE -- (input) real array of points at which the function is to be
+C           evaluated.
+C
+C          NOTES:
+C           1. The evaluation will be most efficient if the elements
+C              of XE are increasing relative to X;
+C              that is,   XE(J) .GE. X(I)
+C              implies    XE(K) .GE. X(I),  all K.GE.J .
+C           2. If any of the XE are outside the interval [X(1),X(N)],
+C              values are extrapolated from the nearest extreme cubic,
+C              and a warning error is returned.
+C
+C     FE -- (output) real array of values of the cubic Hermite function
+C           defined by  N, X, F, D  at the points  XE.
+C
+C     IERR -- (output) error flag.
+C           Normal return:
+C              IERR = 0  (no errors).
+C           Warning error:
+C              IERR.GT.0  means that extrapolation was performed at
+C                 IERR points.
+C           "Recoverable" errors:
+C              IERR = -1  if N.LT.2 .
+C              IERR = -2  if INCFD.LT.1 .
+C              IERR = -3  if the X-array is not strictly increasing.
+C              IERR = -4  if NE.LT.1 .
+C             (The FE-array has not been changed in any of these cases.)
+C               NOTE:  The above errors are checked in the order listed,
+C                   and following arguments have **NOT** been validated.
+C
+C***REFERENCES  (NONE)
+C***ROUTINES CALLED  CHFEV, XERMSG
+C***REVISION HISTORY  (YYMMDD)
+C   811020  DATE WRITTEN
+C   820803  Minor cosmetic changes for release 1.
+C   870707  Minor cosmetic changes to prologue.
+C   890531  Changed all specific intrinsics to generic.  (WRB)
+C   890831  Modified array declarations.  (WRB)
+C   890831  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900315  CALLs to XERROR changed to CALLs to XERMSG.  (THJ)
+C***END PROLOGUE  PCHFE
+C  Programming notes:
+C
+C     1. To produce a double precision version, simply:
+C        a. Change PCHFE to DPCHFE, and CHFEV to DCHFEV, wherever they
+C           occur,
+C        b. Change the real declaration to double precision,
+C
+C     2. Most of the coding between the call to CHFEV and the end of
+C        the IR-loop could be eliminated if it were permissible to
+C        assume that XE is ordered relative to X.
+C
+C     3. CHFEV does not assume that X1 is less than X2.  thus, it would
+C        be possible to write a version of PCHFE that assumes a strict-
+C        ly decreasing X-array by simply running the IR-loop backwards
+C        (and reversing the order of appropriate tests).
+C
+C     4. The present code has a minor bug, which I have decided is not
+C        worth the effort that would be required to fix it.
+C        If XE contains points in [X(N-1),X(N)], followed by points .LT.
+C        X(N-1), followed by points .GT.X(N), the extrapolation points
+C        will be counted (at least) twice in the total returned in IERR.
+C
+C  DECLARE ARGUMENTS.
+C
+      INTEGER  N, INCFD, NE, IERR
+      REAL  X(*), F(INCFD,*), D(INCFD,*), XE(*), FE(*)
+      LOGICAL  SKIP
+C
+C  DECLARE LOCAL VARIABLES.
+C
+      INTEGER  I, IERC, IR, J, JFIRST, NEXT(2), NJ
+C
+C  VALIDITY-CHECK ARGUMENTS.
+C
+C***FIRST EXECUTABLE STATEMENT  PCHFE
+      IF (SKIP)  GO TO 5
+C
+      IF ( N.LT.2 )  GO TO 5001
+      IF ( INCFD.LT.1 )  GO TO 5002
+      DO 1  I = 2, N
+         IF ( X(I).LE.X(I-1) )  GO TO 5003
+    1 CONTINUE
+C
+C  FUNCTION DEFINITION IS OK, GO ON.
+C
+    5 CONTINUE
+      IF ( NE.LT.1 )  GO TO 5004
+      IERR = 0
+      SKIP = .TRUE.
+C
+C  LOOP OVER INTERVALS.        (   INTERVAL INDEX IS  IL = IR-1  . )
+C                              ( INTERVAL IS X(IL).LE.X.LT.X(IR) . )
+      JFIRST = 1
+      IR = 2
+   10 CONTINUE
+C
+C     SKIP OUT OF LOOP IF HAVE PROCESSED ALL EVALUATION POINTS.
+C
+         IF (JFIRST .GT. NE)  GO TO 5000
+C
+C     LOCATE ALL POINTS IN INTERVAL.
+C
+         DO 20  J = JFIRST, NE
+            IF (XE(J) .GE. X(IR))  GO TO 30
+   20    CONTINUE
+         J = NE + 1
+         GO TO 40
+C
+C     HAVE LOCATED FIRST POINT BEYOND INTERVAL.
+C
+   30    CONTINUE
+         IF (IR .EQ. N)  J = NE + 1
+C
+   40    CONTINUE
+         NJ = J - JFIRST
+C
+C     SKIP EVALUATION IF NO POINTS IN INTERVAL.
+C
+         IF (NJ .EQ. 0)  GO TO 50
+C
+C     EVALUATE CUBIC AT XE(I),  I = JFIRST (1) J-1 .
+C
+C       ----------------------------------------------------------------
+        CALL CHFEV (X(IR-1),X(IR), F(1,IR-1),F(1,IR), D(1,IR-1),D(1,IR),
+     *              NJ, XE(JFIRST), FE(JFIRST), NEXT, IERC)
+C       ----------------------------------------------------------------
+         IF (IERC .LT. 0)  GO TO 5005
+C
+         IF (NEXT(2) .EQ. 0)  GO TO 42
+C        IF (NEXT(2) .GT. 0)  THEN
+C           IN THE CURRENT SET OF XE-POINTS, THERE ARE NEXT(2) TO THE
+C           RIGHT OF X(IR).
+C
+            IF (IR .LT. N)  GO TO 41
+C           IF (IR .EQ. N)  THEN
+C              THESE ARE ACTUALLY EXTRAPOLATION POINTS.
+               IERR = IERR + NEXT(2)
+               GO TO 42
+   41       CONTINUE
+C           ELSE
+C              WE SHOULD NEVER HAVE GOTTEN HERE.
+               GO TO 5005
+C           ENDIF
+C        ENDIF
+   42    CONTINUE
+C
+         IF (NEXT(1) .EQ. 0)  GO TO 49
+C        IF (NEXT(1) .GT. 0)  THEN
+C           IN THE CURRENT SET OF XE-POINTS, THERE ARE NEXT(1) TO THE
+C           LEFT OF X(IR-1).
+C
+            IF (IR .GT. 2)  GO TO 43
+C           IF (IR .EQ. 2)  THEN
+C              THESE ARE ACTUALLY EXTRAPOLATION POINTS.
+               IERR = IERR + NEXT(1)
+               GO TO 49
+   43       CONTINUE
+C           ELSE
+C              XE IS NOT ORDERED RELATIVE TO X, SO MUST ADJUST
+C              EVALUATION INTERVAL.
+C
+C              FIRST, LOCATE FIRST POINT TO LEFT OF X(IR-1).
+               DO 44  I = JFIRST, J-1
+                  IF (XE(I) .LT. X(IR-1))  GO TO 45
+   44          CONTINUE
+C              NOTE-- CANNOT DROP THROUGH HERE UNLESS THERE IS AN ERROR
+C                     IN CHFEV.
+               GO TO 5005
+C
+   45          CONTINUE
+C              RESET J.  (THIS WILL BE THE NEW JFIRST.)
+               J = I
+C
+C              NOW FIND OUT HOW FAR TO BACK UP IN THE X-ARRAY.
+               DO 46  I = 1, IR-1
+                  IF (XE(J) .LT. X(I)) GO TO 47
+   46          CONTINUE
+C              NB-- CAN NEVER DROP THROUGH HERE, SINCE XE(J).LT.X(IR-1).
+C
+   47          CONTINUE
+C              AT THIS POINT, EITHER  XE(J) .LT. X(1)
+C                 OR      X(I-1) .LE. XE(J) .LT. X(I) .
+C              RESET IR, RECOGNIZING THAT IT WILL BE INCREMENTED BEFORE
+C              CYCLING.
+               IR = MAX(1, I-1)
+C           ENDIF
+C        ENDIF
+   49    CONTINUE
+C
+         JFIRST = J
+C
+C     END OF IR-LOOP.
+C
+   50 CONTINUE
+      IR = IR + 1
+      IF (IR .LE. N)  GO TO 10
+C
+C  NORMAL RETURN.
+C
+ 5000 CONTINUE
+      RETURN
+C
+C  ERROR RETURNS.
+C
+ 5001 CONTINUE
+C     N.LT.2 RETURN.
+      IERR = -1
+      CALL XERMSG ('SLATEC', 'PCHFE',
+     +   'NUMBER OF DATA POINTS LESS THAN TWO', IERR, 1)
+      RETURN
+C
+ 5002 CONTINUE
+C     INCFD.LT.1 RETURN.
+      IERR = -2
+      CALL XERMSG ('SLATEC', 'PCHFE', 'INCREMENT LESS THAN ONE', IERR,
+     +   1)
+      RETURN
+C
+ 5003 CONTINUE
+C     X-ARRAY NOT STRICTLY INCREASING.
+      IERR = -3
+      CALL XERMSG ('SLATEC', 'PCHFE', 'X-ARRAY NOT STRICTLY INCREASING'
+     +   , IERR, 1)
+      RETURN
+C
+ 5004 CONTINUE
+C     NE.LT.1 RETURN.
+      IERR = -4
+      CALL XERMSG ('SLATEC', 'PCHFE',
+     +   'NUMBER OF EVALUATION POINTS LESS THAN ONE', IERR, 1)
+      RETURN
+C
+ 5005 CONTINUE
+C     ERROR RETURN FROM CHFEV.
+C   *** THIS CASE SHOULD NEVER OCCUR ***
+      IERR = -5
+      CALL XERMSG ('SLATEC', 'PCHFE',
+     +   'ERROR RETURN FROM CHFEV -- FATAL', IERR, 2)
+      RETURN
+C------------- LAST LINE OF PCHFE FOLLOWS ------------------------------
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchfe_95_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchfe_95_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchfe_95_m.F90	(revision 3330)
@@ -0,0 +1,76 @@
+module PCHFE_95_m
+
+  implicit none
+
+contains
+
+  SUBROUTINE PCHFE_95(X, F, D, SKIP, XE, FE, IERR)
+
+    ! PURPOSE  Evaluate a piecewise cubic Hermite function at an array of
+    !            points.  May be used by itself for Hermite interpolation,
+    !            or as an evaluator for PCHIM or PCHIC.
+    ! CATEGORY  E3
+    ! KEYWORDS  CUBIC HERMITE EVALUATION, HERMITE INTERPOLATION, PCHIP,
+    !             PIECEWISE CUBIC EVALUATION
+
+    !          PCHFE:  Piecewise Cubic Hermite Function Evaluator
+    ! Evaluates the cubic Hermite function defined by  X, F, D  at
+    ! the points  XE.
+
+    use assert_eq_m, only: assert_eq
+
+    REAL, intent(in):: X(:) ! real array of independent variable values
+    ! The elements of X must be strictly increasing.
+
+    REAL, intent(in):: F(:) ! real array of function values
+    ! F(I) is the value corresponding to X(I).
+
+    REAL, intent(in):: D(:) ! real array of derivative values
+    ! D(I) is the value corresponding to X(I).
+
+    LOGICAL, intent(inout):: SKIP 
+    ! request to skip checks for validity of "x"
+    ! If "skip" is false then "pchfe" will check that size(x) >= 2 and
+    ! "x" is in strictly ascending order.
+    ! Setting "skip" to true will save time in case these checks have
+    ! already been performed (say, in "PCHIM" or "PCHIC").
+    ! "SKIP" will be set to TRUE on normal return.
+
+    real, intent(in):: XE(:) ! points at which the function is to be evaluated
+    ! NOTES:
+    ! 1. The evaluation will be most efficient if the elements of XE
+    ! are increasing relative to X.
+    ! That is,   XE(J) .GE. X(I)
+    ! implies    XE(K) .GE. X(I),  all K.GE.J
+    ! 2. If any of the XE are outside the interval [X(1),X(N)], values
+    ! are extrapolated from the nearest extreme cubic, and a warning
+    ! error is returned.
+
+    real, intent(out):: FE(:) ! values of the cubic Hermite function
+    ! defined by X, F, D at the points XE
+
+    integer, intent(out):: IERR ! error flag
+    ! Normal return:
+    ! IERR = 0  no error
+    ! Warning error:
+    ! IERR > 0  means that extrapolation was performed at IERR points
+    ! "Recoverable" errors:
+    !              IERR = -1  if N < 2
+    !              IERR = -3  if the X-array is not strictly increasing
+    !              IERR = -4  if NE < 1
+    ! NOTE: The above errors are checked in the order listed, and
+    ! following arguments have **NOT** been validated.
+
+    ! Variables local to the procedure:
+
+    INTEGER  N, NE
+
+    !---------------------------------------
+
+    n = assert_eq(size(x), size(f), size(d), "PCHFE_95 n")
+    ne = assert_eq(size(xe), size(fe), "PCHFE_95 ne")
+    call PCHFE(N, X, F, D, 1, SKIP, NE, XE, FE, IERR)
+
+  end SUBROUTINE PCHFE_95
+
+end module PCHFE_95_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchsp.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchsp.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchsp.F	(revision 3330)
@@ -0,0 +1,388 @@
+*DECK PCHSP
+      SUBROUTINE PCHSP (IC, VC, N, X, F, D, INCFD, WK, NWK, IERR)
+C***BEGIN PROLOGUE  PCHSP
+C***PURPOSE  Set derivatives needed to determine the Hermite represen-
+C            tation of the cubic spline interpolant to given data, with
+C            specified boundary conditions.
+C***LIBRARY   SLATEC (PCHIP)
+C***CATEGORY  E1A
+C***TYPE      SINGLE PRECISION (PCHSP-S, DPCHSP-D)
+C***KEYWORDS  CUBIC HERMITE INTERPOLATION, PCHIP,
+C             PIECEWISE CUBIC INTERPOLATION, SPLINE INTERPOLATION
+C***AUTHOR  Fritsch, F. N., (LLNL)
+C             Lawrence Livermore National Laboratory
+C             P.O. Box 808  (L-316)
+C             Livermore, CA  94550
+C             FTS 532-4275, (510) 422-4275
+C***DESCRIPTION
+C
+C          PCHSP:   Piecewise Cubic Hermite Spline
+C
+C     Computes the Hermite representation of the cubic spline inter-
+C     polant to the data given in X and F satisfying the boundary
+C     conditions specified by IC and VC.
+C
+C     To facilitate two-dimensional applications, includes an increment
+C     between successive values of the F- and D-arrays.
+C
+C     The resulting piecewise cubic Hermite function may be evaluated
+C     by PCHFE or PCHFD.
+C
+C     NOTE:  This is a modified version of C. de Boor's cubic spline
+C            routine CUBSPL.
+C
+C ----------------------------------------------------------------------
+C
+C  Calling sequence:
+C
+C        PARAMETER  (INCFD = ...)
+C        INTEGER  IC(2), N, NWK, IERR
+C        REAL  VC(2), X(N), F(INCFD,N), D(INCFD,N), WK(NWK)
+C
+C        CALL  PCHSP (IC, VC, N, X, F, D, INCFD, WK, NWK, IERR)
+C
+C   Parameters:
+C
+C     IC -- (input) integer array of length 2 specifying desired
+C           boundary conditions:
+C           IC(1) = IBEG, desired condition at beginning of data.
+C           IC(2) = IEND, desired condition at end of data.
+C
+C           IBEG = 0  to set D(1) so that the third derivative is con-
+C              tinuous at X(2).  This is the "not a knot" condition
+C              provided by de Boor's cubic spline routine CUBSPL.
+C              < This is the default boundary condition. >
+C           IBEG = 1  if first derivative at X(1) is given in VC(1).
+C           IBEG = 2  if second derivative at X(1) is given in VC(1).
+C           IBEG = 3  to use the 3-point difference formula for D(1).
+C                     (Reverts to the default b.c. if N.LT.3 .)
+C           IBEG = 4  to use the 4-point difference formula for D(1).
+C                     (Reverts to the default b.c. if N.LT.4 .)
+C          NOTES:
+C           1. An error return is taken if IBEG is out of range.
+C           2. For the "natural" boundary condition, use IBEG=2 and
+C              VC(1)=0.
+C
+C           IEND may take on the same values as IBEG, but applied to
+C           derivative at X(N).  In case IEND = 1 or 2, the value is
+C           given in VC(2).
+C
+C          NOTES:
+C           1. An error return is taken if IEND is out of range.
+C           2. For the "natural" boundary condition, use IEND=2 and
+C              VC(2)=0.
+C
+C     VC -- (input) real array of length 2 specifying desired boundary
+C           values, as indicated above.
+C           VC(1) need be set only if IC(1) = 1 or 2 .
+C           VC(2) need be set only if IC(2) = 1 or 2 .
+C
+C     N -- (input) number of data points.  (Error return if N.LT.2 .)
+C
+C     X -- (input) real array of independent variable values.  The
+C           elements of X must be strictly increasing:
+C                X(I-1) .LT. X(I),  I = 2(1)N.
+C           (Error return if not.)
+C
+C     F -- (input) real array of dependent variable values to be inter-
+C           polated.  F(1+(I-1)*INCFD) is value corresponding to X(I).
+C
+C     D -- (output) real array of derivative values at the data points.
+C           These values will determine the cubic spline interpolant
+C           with the requested boundary conditions.
+C           The value corresponding to X(I) is stored in
+C                D(1+(I-1)*INCFD),  I=1(1)N.
+C           No other entries in D are changed.
+C
+C     INCFD -- (input) increment between successive values in F and D.
+C           This argument is provided primarily for 2-D applications.
+C           (Error return if  INCFD.LT.1 .)
+C
+C     WK -- (scratch) real array of working storage.
+C
+C     NWK -- (input) length of work array.
+C           (Error return if NWK.LT.2*N .)
+C
+C     IERR -- (output) error flag.
+C           Normal return:
+C              IERR = 0  (no errors).
+C           "Recoverable" errors:
+C              IERR = -1  if N.LT.2 .
+C              IERR = -2  if INCFD.LT.1 .
+C              IERR = -3  if the X-array is not strictly increasing.
+C              IERR = -4  if IBEG.LT.0 or IBEG.GT.4 .
+C              IERR = -5  if IEND.LT.0 of IEND.GT.4 .
+C              IERR = -6  if both of the above are true.
+C              IERR = -7  if NWK is too small.
+C               NOTE:  The above errors are checked in the order listed,
+C                   and following arguments have **NOT** been validated.
+C             (The D-array has not been changed in any of these cases.)
+C              IERR = -8  in case of trouble solving the linear system
+C                         for the interior derivative values.
+C             (The D-array may have been changed in this case.)
+C             (             Do **NOT** use it!                )
+C
+C***REFERENCES  Carl de Boor, A Practical Guide to Splines, Springer-
+C                 Verlag, New York, 1978, pp. 53-59.
+C***ROUTINES CALLED  PCHDF, XERMSG
+C***REVISION HISTORY  (YYMMDD)
+C   820503  DATE WRITTEN
+C   820804  Converted to SLATEC library version.
+C   870707  Minor cosmetic changes to prologue.
+C   890411  Added SAVE statements (Vers. 3.2).
+C   890703  Corrected category record.  (WRB)
+C   890831  Modified array declarations.  (WRB)
+C   890831  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900315  CALLs to XERROR changed to CALLs to XERMSG.  (THJ)
+C   920429  Revised format and order of references.  (WRB,FNF)
+C***END PROLOGUE  PCHSP
+C  Programming notes:
+C
+C     To produce a double precision version, simply:
+C        a. Change PCHSP to DPCHSP wherever it occurs,
+C        b. Change the real declarations to double precision, and
+C        c. Change the constants ZERO, HALF, ... to double precision.
+C
+C  DECLARE ARGUMENTS.
+C
+      INTEGER  IC(2), N, INCFD, NWK, IERR
+      REAL  VC(2), X(*), F(INCFD,*), D(INCFD,*), WK(2,*)
+C
+C  DECLARE LOCAL VARIABLES.
+C
+      INTEGER  IBEG, IEND, INDEX, J, NM1
+      REAL  G, HALF, ONE, STEMP(3), THREE, TWO, XTEMP(4), ZERO
+      SAVE ZERO, HALF, ONE, TWO, THREE
+      REAL  PCHDF
+C
+      DATA  ZERO /0./,  HALF /0.5/,  ONE /1./,  TWO /2./,  THREE /3./
+C
+C  VALIDITY-CHECK ARGUMENTS.
+C
+C***FIRST EXECUTABLE STATEMENT  PCHSP
+      IF ( N.LT.2 )  GO TO 5001
+      IF ( INCFD.LT.1 )  GO TO 5002
+      DO 1  J = 2, N
+         IF ( X(J).LE.X(J-1) )  GO TO 5003
+    1 CONTINUE
+C
+      IBEG = IC(1)
+      IEND = IC(2)
+      IERR = 0
+      IF ( (IBEG.LT.0).OR.(IBEG.GT.4) )  IERR = IERR - 1
+      IF ( (IEND.LT.0).OR.(IEND.GT.4) )  IERR = IERR - 2
+      IF ( IERR.LT.0 )  GO TO 5004
+C
+C  FUNCTION DEFINITION IS OK -- GO ON.
+C
+      IF ( NWK .LT. 2*N )  GO TO 5007
+C
+C  COMPUTE FIRST DIFFERENCES OF X SEQUENCE AND STORE IN WK(1,.). ALSO,
+C  COMPUTE FIRST DIVIDED DIFFERENCE OF DATA AND STORE IN WK(2,.).
+      DO 5  J=2,N
+         WK(1,J) = X(J) - X(J-1)
+         WK(2,J) = (F(1,J) - F(1,J-1))/WK(1,J)
+    5 CONTINUE
+C
+C  SET TO DEFAULT BOUNDARY CONDITIONS IF N IS TOO SMALL.
+C
+      IF ( IBEG.GT.N )  IBEG = 0
+      IF ( IEND.GT.N )  IEND = 0
+C
+C  SET UP FOR BOUNDARY CONDITIONS.
+C
+      IF ( (IBEG.EQ.1).OR.(IBEG.EQ.2) )  THEN
+         D(1,1) = VC(1)
+      ELSE IF (IBEG .GT. 2)  THEN
+C        PICK UP FIRST IBEG POINTS, IN REVERSE ORDER.
+         DO 10  J = 1, IBEG
+            INDEX = IBEG-J+1
+C           INDEX RUNS FROM IBEG DOWN TO 1.
+            XTEMP(J) = X(INDEX)
+            IF (J .LT. IBEG)  STEMP(J) = WK(2,INDEX)
+   10    CONTINUE
+C                 --------------------------------
+         D(1,1) = PCHDF (IBEG, XTEMP, STEMP, IERR)
+C                 --------------------------------
+         IF (IERR .NE. 0)  GO TO 5009
+         IBEG = 1
+      ENDIF
+C
+      IF ( (IEND.EQ.1).OR.(IEND.EQ.2) )  THEN
+         D(1,N) = VC(2)
+      ELSE IF (IEND .GT. 2)  THEN
+C        PICK UP LAST IEND POINTS.
+         DO 15  J = 1, IEND
+            INDEX = N-IEND+J
+C           INDEX RUNS FROM N+1-IEND UP TO N.
+            XTEMP(J) = X(INDEX)
+            IF (J .LT. IEND)  STEMP(J) = WK(2,INDEX+1)
+   15    CONTINUE
+C                 --------------------------------
+         D(1,N) = PCHDF (IEND, XTEMP, STEMP, IERR)
+C                 --------------------------------
+         IF (IERR .NE. 0)  GO TO 5009
+         IEND = 1
+      ENDIF
+C
+C --------------------( BEGIN CODING FROM CUBSPL )--------------------
+C
+C  **** A TRIDIAGONAL LINEAR SYSTEM FOR THE UNKNOWN SLOPES S(J) OF
+C  F  AT X(J), J=1,...,N, IS GENERATED AND THEN SOLVED BY GAUSS ELIM-
+C  INATION, WITH S(J) ENDING UP IN D(1,J), ALL J.
+C     WK(1,.) AND WK(2,.) ARE USED FOR TEMPORARY STORAGE.
+C
+C  CONSTRUCT FIRST EQUATION FROM FIRST BOUNDARY CONDITION, OF THE FORM
+C             WK(2,1)*S(1) + WK(1,1)*S(2) = D(1,1)
+C
+      IF (IBEG .EQ. 0)  THEN
+         IF (N .EQ. 2)  THEN
+C           NO CONDITION AT LEFT END AND N = 2.
+            WK(2,1) = ONE
+            WK(1,1) = ONE
+            D(1,1) = TWO*WK(2,2)
+         ELSE
+C           NOT-A-KNOT CONDITION AT LEFT END AND N .GT. 2.
+            WK(2,1) = WK(1,3)
+            WK(1,1) = WK(1,2) + WK(1,3)
+            D(1,1) =((WK(1,2) + TWO*WK(1,1))*WK(2,2)*WK(1,3)
+     *                        + WK(1,2)**2*WK(2,3)) / WK(1,1)
+         ENDIF
+      ELSE IF (IBEG .EQ. 1)  THEN
+C        SLOPE PRESCRIBED AT LEFT END.
+         WK(2,1) = ONE
+         WK(1,1) = ZERO
+      ELSE
+C        SECOND DERIVATIVE PRESCRIBED AT LEFT END.
+         WK(2,1) = TWO
+         WK(1,1) = ONE
+         D(1,1) = THREE*WK(2,2) - HALF*WK(1,2)*D(1,1)
+      ENDIF
+C
+C  IF THERE ARE INTERIOR KNOTS, GENERATE THE CORRESPONDING EQUATIONS AND
+C  CARRY OUT THE FORWARD PASS OF GAUSS ELIMINATION, AFTER WHICH THE J-TH
+C  EQUATION READS    WK(2,J)*S(J) + WK(1,J)*S(J+1) = D(1,J).
+C
+      NM1 = N-1
+      IF (NM1 .GT. 1)  THEN
+         DO 20 J=2,NM1
+            IF (WK(2,J-1) .EQ. ZERO)  GO TO 5008
+            G = -WK(1,J+1)/WK(2,J-1)
+            D(1,J) = G*D(1,J-1)
+     *                  + THREE*(WK(1,J)*WK(2,J+1) + WK(1,J+1)*WK(2,J))
+            WK(2,J) = G*WK(1,J-1) + TWO*(WK(1,J) + WK(1,J+1))
+   20    CONTINUE
+      ENDIF
+C
+C  CONSTRUCT LAST EQUATION FROM SECOND BOUNDARY CONDITION, OF THE FORM
+C           (-G*WK(2,N-1))*S(N-1) + WK(2,N)*S(N) = D(1,N)
+C
+C     IF SLOPE IS PRESCRIBED AT RIGHT END, ONE CAN GO DIRECTLY TO BACK-
+C     SUBSTITUTION, SINCE ARRAYS HAPPEN TO BE SET UP JUST RIGHT FOR IT
+C     AT THIS POINT.
+      IF (IEND .EQ. 1)  GO TO 30
+C
+      IF (IEND .EQ. 0)  THEN
+         IF (N.EQ.2 .AND. IBEG.EQ.0)  THEN
+C           NOT-A-KNOT AT RIGHT ENDPOINT AND AT LEFT ENDPOINT AND N = 2.
+            D(1,2) = WK(2,2)
+            GO TO 30
+         ELSE IF ((N.EQ.2) .OR. (N.EQ.3 .AND. IBEG.EQ.0))  THEN
+C           EITHER (N=3 AND NOT-A-KNOT ALSO AT LEFT) OR (N=2 AND *NOT*
+C           NOT-A-KNOT AT LEFT END POINT).
+            D(1,N) = TWO*WK(2,N)
+            WK(2,N) = ONE
+            IF (WK(2,N-1) .EQ. ZERO)  GO TO 5008
+            G = -ONE/WK(2,N-1)
+         ELSE
+C           NOT-A-KNOT AND N .GE. 3, AND EITHER N.GT.3 OR  ALSO NOT-A-
+C           KNOT AT LEFT END POINT.
+            G = WK(1,N-1) + WK(1,N)
+C           DO NOT NEED TO CHECK FOLLOWING DENOMINATORS (X-DIFFERENCES).
+            D(1,N) = ((WK(1,N)+TWO*G)*WK(2,N)*WK(1,N-1)
+     *                  + WK(1,N)**2*(F(1,N-1)-F(1,N-2))/WK(1,N-1))/G
+            IF (WK(2,N-1) .EQ. ZERO)  GO TO 5008
+            G = -G/WK(2,N-1)
+            WK(2,N) = WK(1,N-1)
+         ENDIF
+      ELSE
+C        SECOND DERIVATIVE PRESCRIBED AT RIGHT ENDPOINT.
+         D(1,N) = THREE*WK(2,N) + HALF*WK(1,N)*D(1,N)
+         WK(2,N) = TWO
+         IF (WK(2,N-1) .EQ. ZERO)  GO TO 5008
+         G = -ONE/WK(2,N-1)
+      ENDIF
+C
+C  COMPLETE FORWARD PASS OF GAUSS ELIMINATION.
+C
+      WK(2,N) = G*WK(1,N-1) + WK(2,N)
+      IF (WK(2,N) .EQ. ZERO)   GO TO 5008
+      D(1,N) = (G*D(1,N-1) + D(1,N))/WK(2,N)
+C
+C  CARRY OUT BACK SUBSTITUTION
+C
+   30 CONTINUE
+      DO 40 J=NM1,1,-1
+         IF (WK(2,J) .EQ. ZERO)  GO TO 5008
+         D(1,J) = (D(1,J) - WK(1,J)*D(1,J+1))/WK(2,J)
+   40 CONTINUE
+C --------------------(  END  CODING FROM CUBSPL )--------------------
+C
+C  NORMAL RETURN.
+C
+      RETURN
+C
+C  ERROR RETURNS.
+C
+ 5001 CONTINUE
+C     N.LT.2 RETURN.
+      IERR = -1
+      CALL XERMSG ('SLATEC', 'PCHSP',
+     +   'NUMBER OF DATA POINTS LESS THAN TWO', IERR, 1)
+      RETURN
+C
+ 5002 CONTINUE
+C     INCFD.LT.1 RETURN.
+      IERR = -2
+      CALL XERMSG ('SLATEC', 'PCHSP', 'INCREMENT LESS THAN ONE', IERR,
+     +   1)
+      RETURN
+C
+ 5003 CONTINUE
+C     X-ARRAY NOT STRICTLY INCREASING.
+      IERR = -3
+      CALL XERMSG ('SLATEC', 'PCHSP', 'X-ARRAY NOT STRICTLY INCREASING'
+     +   , IERR, 1)
+      RETURN
+C
+ 5004 CONTINUE
+C     IC OUT OF RANGE RETURN.
+      IERR = IERR - 3
+      CALL XERMSG ('SLATEC', 'PCHSP', 'IC OUT OF RANGE', IERR, 1)
+      RETURN
+C
+ 5007 CONTINUE
+C     NWK TOO SMALL RETURN.
+      IERR = -7
+      CALL XERMSG ('SLATEC', 'PCHSP', 'WORK ARRAY TOO SMALL', IERR, 1)
+      RETURN
+C
+ 5008 CONTINUE
+C     SINGULAR SYSTEM.
+C   *** THEORETICALLY, THIS CAN ONLY OCCUR IF SUCCESSIVE X-VALUES   ***
+C   *** ARE EQUAL, WHICH SHOULD ALREADY HAVE BEEN CAUGHT (IERR=-3). ***
+      IERR = -8
+      CALL XERMSG ('SLATEC', 'PCHSP', 'SINGULAR LINEAR SYSTEM', IERR,
+     +   1)
+      RETURN
+C
+ 5009 CONTINUE
+C     ERROR RETURN FROM PCHDF.
+C   *** THIS CASE SHOULD NEVER OCCUR ***
+      IERR = -9
+      CALL XERMSG ('SLATEC', 'PCHSP', 'ERROR RETURN FROM PCHDF', IERR,
+     +   1)
+      RETURN
+C------------- LAST LINE OF PCHSP FOLLOWS ------------------------------
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchsp_95_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchsp_95_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pchsp_95_m.F90	(revision 3330)
@@ -0,0 +1,116 @@
+module pchsp_95_m
+
+  implicit none
+
+contains
+
+  function pchsp_95(x, f, ibeg, iend, vc_beg, vc_end)
+
+    ! PURPOSE: Set derivatives needed to determine the Hermite
+    ! representation of the cubic spline interpolant to given data,
+    ! with specified boundary conditions.
+
+    ! Part of the "pchip" package.
+
+    ! CATEGORY: E1A
+
+    ! KEYWORDS: cubic hermite interpolation, piecewise cubic
+    ! interpolation, spline interpolation
+
+    ! DESCRIPTION: "pchsp" stands for "Piecewise Cubic Hermite Spline"
+    ! Computes the Hermite representation of the cubic spline
+    ! interpolant to the data given in X and F satisfying the boundary
+    ! conditions specified by Ibeg, iend, vc_beg and VC_end.
+
+    ! The resulting piecewise cubic Hermite function may be evaluated
+    ! by "pchfe" or "pchfd".
+
+    ! NOTE: This is a modified version of C. de Boor's cubic spline
+    ! routine "cubspl".
+
+    ! REFERENCE: Carl de Boor, A Practical Guide to Splines, Springer,
+    ! 2001, pages 43-47
+
+    use assert_eq_m, only: assert_eq
+
+    real, intent(in):: x(:)
+    ! independent variable values
+    ! The elements of X must be strictly increasing:
+    !                X(I-1) < X(I),  I = 2...N.
+    !           (Error return if not.)
+    ! (error if size(x) < 2)
+
+    real, intent(in):: f(:)
+    !     dependent variable values to be interpolated
+    !  F(I) is value corresponding to X(I).
+
+    INTEGER, intent(in):: ibeg
+    !     desired boundary condition at beginning of data
+
+    !        IBEG = 0  to set pchsp_95(1) so that the third derivative is con-
+    !              tinuous at X(2).  This is the "not a knot" condition
+    !              provided by de Boor's cubic spline routine CUBSPL.
+    !              This is the default boundary condition.
+    !        IBEG = 1  if first derivative at X(1) is given in VC_BEG.
+    !        IBEG = 2  if second derivative at X(1) is given in VC_BEG.
+    !        IBEG = 3  to use the 3-point difference formula for pchsp_95(1).
+    !              (Reverts to the default boundary condition if size(x) < 3 .)
+    !        IBEG = 4  to use the 4-point difference formula for pchsp_95(1).
+    !              (Reverts to the default boundary condition if size(x) < 4 .)
+
+    !          NOTES:
+    !           1. An error return is taken if IBEG is out of range.
+    !           2. For the "natural" boundary condition, use IBEG=2 and
+    !              VC_BEG=0.
+
+    INTEGER, intent(in):: iend
+    !           IC(2) = IEND, desired condition at end of data.
+    !  IEND may take on the same values as IBEG, but applied to
+    !  derivative at X(N). In case IEND = 1 or 2, The value is given in VC_END.
+
+    !          NOTES:
+    !           1. An error return is taken if IEND is out of range.
+    !           2. For the "natural" boundary condition, use IEND=2 and
+    !              VC_END=0.
+
+    REAL, intent(in), optional:: vc_beg
+    ! desired boundary value, as indicated above.
+    !           VC_BEG need be set only if IBEG = 1 or 2 .
+
+    REAL, intent(in), optional:: vc_end
+    ! desired boundary value, as indicated above.
+    !           VC_END need be set only if Iend = 1 or 2 .
+
+    real pchsp_95(size(x))
+    ! derivative values at the data points
+    !           These values will determine the cubic spline interpolant
+    !           with the requested boundary conditions.
+    !           The value corresponding to X(I) is stored in
+    !                PCHSP_95(I),  I=1...N.
+
+    ! LOCAL VARIABLES:
+    real wk(2, size(x)) ! real array of working storage
+    INTEGER n ! number of data points
+    integer ierr, ic(2)
+    real vc(2)
+
+    !-------------------------------------------------------------------
+
+    n = assert_eq(size(x), size(f), "pchsp_95 n")
+    if ((ibeg == 1 .or. ibeg == 2) .and. .not. present(vc_beg)) then
+       print *, "vc_beg required for IBEG = 1 or 2"
+       stop 1
+    end if
+    if ((iend == 1 .or. iend == 2) .and. .not. present(vc_end)) then
+       print *, "vc_end required for IEND = 1 or 2"
+       stop 1
+    end if
+    ic = (/ibeg, iend/)
+    if (present(vc_beg)) vc(1) = vc_beg
+    if (present(vc_end)) vc(2) = vc_end
+    call PCHSP(IC, VC, N, X, F, pchsp_95, 1, WK, size(WK), IERR)
+    if (ierr /= 0) stop 1
+
+  END function pchsp_95
+
+end module pchsp_95_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pres2lev_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pres2lev_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/pres2lev_mod.F90	(revision 3330)
@@ -0,0 +1,79 @@
+! $Id: pres2lev.F 1179 2009-06-11 14:18:47Z jghattas $
+!
+MODULE pres2lev_mod
+
+CONTAINS 
+
+!******************************************************
+SUBROUTINE pres2lev(varo,varn,lmo,lmn,po,pn,ni,nj,ok_invertp)
+!
+! interpolation lineaire pour passer
+! a une nouvelle discretisation verticale pour
+! les variables de GCM
+! Francois Forget (01/1995)
+! MOdif remy roca 12/97 pour passer de pres2sig
+! Modif F.Codron 07/08 po en 3D
+!**********************************************************
+
+  IMPLICIT NONE
+
+!   Declarations:
+! ==============
+!
+!  ARGUMENTS
+!  """""""""
+  LOGICAL, INTENT(IN) :: ok_invertp
+  INTEGER, INTENT(IN) :: lmo ! dimensions ancienne couches
+  INTEGER, INTENT(IN) :: lmn ! dimensions nouvelle couches
+  
+  INTEGER, INTENT(IN) :: ni,nj ! nombre de point horizontal
+  REAL, INTENT(IN) :: po(ni*nj,lmo) ! niveau de pression ancienne grille
+  REAL, INTENT(IN) :: pn(ni*nj,lmn) ! niveau de pression nouvelle grille
+
+  REAL, INTENT(IN)  :: varo(ni*nj,lmo) ! var dans l'ancienne grille
+  REAL, INTENT(OUT) :: varn(ni*nj,lmn) ! var dans la nouvelle grille
+
+  REAL :: zvaro(ni*nj,lmo),zpo(ni*nj,lmo)
+
+! Autres variables
+! """"""""""""""""
+  INTEGER ::  ln ,lo, k
+  REAL    :: coef
+
+
+! Inversion de l'ordre des niveaux verticaux
+  IF (ok_invertp) THEN
+    DO lo=1,lmo
+      DO k=1,ni*nj
+        zpo(k,lo)=po(k,lmo+1-lo)
+        zvaro(k,lo)=varo(k,lmo+1-lo)
+      ENDDO
+    ENDDO
+  ELSE
+    DO lo=1,lmo
+      DO k=1,ni*nj
+        zpo(k,lo)=po(k,lo)
+        zvaro(k,lo)=varo(k,lo)
+      ENDDO
+    ENDDO
+  ENDIF 
+
+  DO ln=1,lmn
+    DO lo=1,lmo-1
+      DO k=1,ni*nj
+        IF (pn(k,ln) >= zpo(k,1) ) THEN
+          varn(k,ln) = zvaro(k,1)
+        ELSE IF (pn(k,ln) <= zpo(k,lmo)) THEN
+          varn(k,ln) = zvaro(k,lmo)
+        ELSE IF ( pn(k,ln) <= zpo(k,lo) .AND. pn(k,ln) > zpo(k,lo+1) ) THEN
+          coef = (pn(k,ln)-zpo(k,lo)) / (zpo(k,lo+1)-zpo(k,lo))
+          varn(k,ln) = zvaro(k,lo) + coef*(zvaro(k,lo+1)-zvaro(k,lo))
+        ENDIF
+         
+      ENDDO  
+    ENDDO
+  ENDDO                
+
+END SUBROUTINE pres2lev    
+
+END MODULE pres2lev_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/q_sat.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/q_sat.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/q_sat.F	(revision 3330)
@@ -0,0 +1,72 @@
+!
+! $Header$
+!
+!
+!
+
+      subroutine q_sat(np,temp,pres,qsat)
+!
+      IMPLICIT none
+!======================================================================
+! Autheur(s): Z.X. Li (LMD/CNRS)
+!  reecriture vectorisee par F. Hourdin.
+! Objet: calculer la vapeur d'eau saturante (formule Centre Euro.)
+!======================================================================
+! Arguments:
+! kelvin---input-R: temperature en Kelvin
+! millibar--input-R: pression en mb
+!
+! q_sat----output-R: vapeur d'eau saturante en kg/kg
+!======================================================================
+!
+      integer np
+      REAL temp(np),pres(np),qsat(np)
+!
+      REAL r2es
+      PARAMETER (r2es=611.14 *18.0153/28.9644)
+!
+      REAL r3les, r3ies, r3es
+      PARAMETER (R3LES=17.269)
+      PARAMETER (R3IES=21.875)
+!
+      REAL r4les, r4ies, r4es
+      PARAMETER (R4LES=35.86)
+      PARAMETER (R4IES=7.66)
+!
+      REAL rtt
+      PARAMETER (rtt=273.16)
+!
+      REAL retv
+      PARAMETER (retv=28.9644/18.0153 - 1.0)
+
+      real zqsat
+      integer ip
+!
+!     ------------------------------------------------------------------
+!
+!
+
+      do ip=1,np
+
+!      write(*,*)'kelvin,millibar=',kelvin,millibar
+!       write(*,*)'temp,pres=',temp(ip),pres(ip)
+!
+         IF (temp(ip) .LE. rtt) THEN
+            r3es = r3ies
+            r4es = r4ies
+         ELSE
+            r3es = r3les
+            r4es = r4les
+         ENDIF
+!
+         zqsat=r2es/pres(ip)*EXP(r3es*(temp(ip)-rtt)/(temp(ip)-r4es))
+         zqsat=MIN(0.5,ZQSAT)
+         zqsat=zqsat/(1.-retv *zqsat)
+!
+         qsat(ip)= zqsat
+!      write(*,*)'qsat=',qsat(ip)
+
+      enddo
+!
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ran1.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ran1.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/ran1.F	(revision 3330)
@@ -0,0 +1,38 @@
+!
+! $Id$
+!
+      FUNCTION RAN1(IDUM)
+      IMPLICIT NONE
+      REAL RAN1
+      REAL,SAVE :: R(97)
+      REAL,PARAMETER :: RM1=3.8580247E-6,RM2=7.4373773E-6
+      INTEGER,SAVE :: IFF=0
+      integer,save :: ix1,ix2,ix3
+      INTEGER,PARAMETER :: M1=259200,IA1=7141,IC1=54773
+      INTEGER,PARAMETER :: M2=134456,IA2=8121,IC2=28411
+      INTEGER,PARAMETER :: M3=243000,IA3=4561,IC3=51349
+      INTEGER :: IDUM,J
+
+      IF (IDUM.LT.0.OR.IFF.EQ.0) THEN
+        IFF=1
+        IX1=MOD(IC1-IDUM,M1)
+        IX1=MOD(IA1*IX1+IC1,M1)
+        IX2=MOD(IX1,M2)
+        IX1=MOD(IA1*IX1+IC1,M1)
+        IX3=MOD(IX1,M3)
+        DO 11 J=1,97
+          IX1=MOD(IA1*IX1+IC1,M1)
+          IX2=MOD(IA2*IX2+IC2,M2)
+          R(J)=(REAL(IX1)+REAL(IX2)*RM2)*RM1
+11      CONTINUE
+        IDUM=1
+      ENDIF
+      IX1=MOD(IA1*IX1+IC1,M1)
+      IX2=MOD(IA2*IX2+IC2,M2)
+      IX3=MOD(IA3*IX3+IC3,M3)
+      J=1+(97*IX3)/M3
+      IF(J.GT.97.OR.J.LT.1) stop 1
+      RAN1=R(J)
+      R(J)=(REAL(IX1)+REAL(IX2)*RM2)*RM1
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr1_conserv_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr1_conserv_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr1_conserv_m.F90	(revision 3330)
@@ -0,0 +1,358 @@
+module regr1_conserv_m
+
+  ! Author: Lionel GUEZ
+
+  use assert_eq_m, only: assert_eq
+  use assert_m, only: assert
+  use interpolation, only: locate
+
+  implicit none
+
+  interface regr1_conserv
+
+     ! This generic procedure regrids a piecewise linear function (not
+     ! necessarily continuous) by averaging it. This is a conservative
+     ! regridding. The regridding operation is done on the first
+     ! dimension of the input array. Input are positions of cell
+     ! edges. The target grid should be included in the source grid:
+     ! no extrapolation is allowed.
+
+     ! The only difference between the procedures is the rank of the
+     ! first argument.
+
+     ! real, intent(in), rank >= 1:: vs ! (ns, ...)
+     ! averages of cells of the source grid
+     ! vs(is, ...) for [xs(is), xs(is + 1)]
+
+     ! real, intent(in):: xs(:) ! (ns + 1)
+     ! edges of cells of the source grid, in strictly ascending order
+
+     ! real, intent(in):: xt(:) ! (nt + 1)
+     ! edges of cells of the target grid, in strictly ascending order
+
+     ! real, intent(in), optional, rank >= 1:: slope ! (ns, ...)
+     ! same rank as vs
+     ! slopes inside cells of the source grid
+     ! slope(is, ...) for [xs(is), xs(is + 1)]
+     ! If not present, slopes are taken equal to 0. The regridding is
+     ! then first order.
+
+     ! real, intent(out), rank >= 1:: vt(nt, ...) 
+     ! has the same rank as vs and slope
+     ! averages of cells of the target grid
+     ! vt(it, ...) for  [xt(it), xt(it + 1)]
+
+     ! ns and nt must be >= 1.
+
+     ! See notes for explanations on the algorithm and justification
+     ! of algorithmic choices.
+
+     module procedure regr11_conserv, regr12_conserv, regr13_conserv, &
+          regr14_conserv
+  end interface regr1_conserv
+
+  private
+  public regr1_conserv
+
+contains
+
+  subroutine regr11_conserv(vs, xs, xt, vt, slope)
+
+    ! vs and slope have rank 1.
+
+    real, intent(in):: vs(:)
+    real, intent(in):: xs(:)
+    real, intent(in):: xt(:)
+    real, intent(out):: vt(:)
+    real, intent(in), optional:: slope(:)
+
+    ! Local:
+    integer is, it, ns, nt
+    logical slope_present
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs), size(xs) - 1, "regr11_conserv ns")
+    nt = assert_eq(size(xt) - 1, size(vt), "regr11_conserv nt")
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr11_conserv xs bad order")
+    call assert(xt(1) < xt(2), "regr11_conserv xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr11_conserv extrapolation")
+    slope_present = present(slope)
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       if (xt(it + 1) <= xs(is + 1)) then
+          vt(it) = mean_lin(xt(it), xt(it + 1))
+       else
+          vt(it) = mean_lin(xt(it), xs(is + 1)) * (xs(is + 1) - xt(it))
+          is = is + 1
+          do while (xs(is + 1) < xt(it + 1))
+             ! 1 <= is <= ns - 1
+             vt(it) = vt(it) + (xs(is + 1) - xs(is)) * vs(is)
+             is = is + 1
+          end do
+          ! 1 <= is <= ns
+          vt(it) = (vt(it) + mean_lin(xs(is), xt(it + 1)) * (xt(it + 1) &
+               - xs(is))) / (xt(it + 1) - xt(it))
+       end if
+
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  contains
+
+    real function mean_lin(a, b)
+
+      ! mean in [a, b] of the linear function in [xs(is), xs(is + 1)]
+
+      real, intent(in):: a, b
+
+      !---------------------------------------------
+
+      if (slope_present) then
+         mean_lin = slope(is) / 2. * (a + b - xs(is) - xs(is + 1)) + vs(is)
+      else
+         mean_lin = vs(is)
+      end if
+
+    end function mean_lin
+
+  end subroutine regr11_conserv
+
+  !********************************************
+
+  subroutine regr12_conserv(vs, xs, xt, vt, slope)
+
+    ! vs and slope have rank 2.
+
+    real, intent(in):: vs(:, :)
+    real, intent(in):: xs(:)
+    real, intent(in):: xt(:)
+    real, intent(out):: vt(:, :)
+    real, intent(in), optional:: slope(:, :)
+
+    ! Local:
+    integer is, it, ns, nt, n2
+    logical slope_present
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs) - 1, "regr12_conserv ns")
+    nt = assert_eq(size(xt) - 1, size(vt, 1), "regr12_conserv nt")
+    n2 = assert_eq(size(vs, 2), size(vt, 2), "regr12_conserv n2")
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr12_conserv xs bad order")
+    call assert(xt(1) < xt(2), "regr12_conserv xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr12_conserv extrapolation")
+    slope_present = present(slope)
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       if (xt(it + 1) <= xs(is + 1)) then
+          vt(it, :) = mean_lin(xt(it), xt(it + 1))
+       else
+          vt(it, :) = mean_lin(xt(it), xs(is + 1)) * (xs(is + 1) - xt(it))
+          is = is + 1
+          do while (xs(is + 1) < xt(it + 1))
+             ! 1 <= is <= ns - 1
+             vt(it, :) = vt(it, :) + (xs(is + 1) - xs(is)) * vs(is, :)
+             is = is + 1
+          end do
+          ! 1 <= is <= ns
+          vt(it, :) = (vt(it, :) + mean_lin(xs(is), xt(it + 1)) * (xt(it + 1) &
+               - xs(is))) / (xt(it + 1) - xt(it))
+       end if
+
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  contains
+
+    function mean_lin(a, b)
+
+      ! mean in [a, b] of the linear function in [xs(is), xs(is + 1)]
+
+      real, intent(in):: a, b
+      real mean_lin(n2)
+
+      !---------------------------------------------
+
+      if (slope_present) then
+         mean_lin = slope(is, :) / 2. * (a + b - xs(is) - xs(is + 1)) &
+              + vs(is, :)
+      else
+         mean_lin = vs(is, :)
+      end if
+
+    end function mean_lin
+
+  end subroutine regr12_conserv
+
+  !********************************************
+
+  subroutine regr13_conserv(vs, xs, xt, vt, slope)
+
+    ! vs and slope have rank 3.
+
+    real, intent(in):: vs(:, :, :)
+    real, intent(in):: xs(:)
+    real, intent(in):: xt(:)
+    real, intent(out):: vt(:, :, :)
+    real, intent(in), optional:: slope(:, :, :)
+
+    ! Local:
+    integer is, it, ns, nt, n2, n3
+    logical slope_present
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs) - 1, "regr13_conserv ns")
+    nt = assert_eq(size(xt) - 1, size(vt, 1), "regr13_conserv nt")
+    n2 = assert_eq(size(vs, 2), size(vt, 2), "regr13_conserv n2")
+    n3 = assert_eq(size(vs, 3), size(vt, 3), "regr13_conserv n3")
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr13_conserv xs bad order")
+    call assert(xt(1) < xt(2), "regr13_conserv xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr13_conserv extrapolation")
+    slope_present = present(slope)
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       if (xt(it + 1) <= xs(is + 1)) then
+          vt(it, :, :) = mean_lin(xt(it), xt(it + 1))
+       else
+          vt(it, :, :) = mean_lin(xt(it), xs(is + 1)) * (xs(is + 1) - xt(it))
+          is = is + 1
+          do while (xs(is + 1) < xt(it + 1))
+             ! 1 <= is <= ns - 1
+             vt(it, :, :) = vt(it, :, :) + (xs(is + 1) - xs(is)) * vs(is, :, :)
+             is = is + 1
+          end do
+          ! 1 <= is <= ns
+          vt(it, :, :) = (vt(it, :, :) + mean_lin(xs(is), xt(it + 1)) &
+               * (xt(it + 1) - xs(is))) / (xt(it + 1) - xt(it))
+       end if
+
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  contains
+
+    function mean_lin(a, b)
+
+      ! mean in [a, b] of the linear function in [xs(is), xs(is + 1)]
+
+      real, intent(in):: a, b
+      real mean_lin(n2, n3)
+
+      !---------------------------------------------
+
+      if (slope_present) then
+         mean_lin = slope(is, :, :) / 2. * (a + b - xs(is) - xs(is + 1)) &
+              + vs(is, :, :)
+      else
+         mean_lin = vs(is, :, :)
+      end if
+
+    end function mean_lin
+
+  end subroutine regr13_conserv
+
+  !********************************************
+
+  subroutine regr14_conserv(vs, xs, xt, vt, slope)
+
+    ! vs and slope have rank 4.
+
+    real, intent(in):: vs(:, :, :, :)
+    real, intent(in):: xs(:)
+    real, intent(in):: xt(:)
+    real, intent(out):: vt(:, :, :, :)
+    real, intent(in), optional:: slope(:, :, :, :)
+
+    ! Local:
+    integer is, it, ns, nt, n2, n3, n4
+    logical slope_present
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs) - 1, "regr14_conserv ns")
+    nt = assert_eq(size(xt) - 1, size(vt, 1), "regr14_conserv nt")
+    n2 = assert_eq(size(vs, 2), size(vt, 2), "regr14_conserv n2")
+    n3 = assert_eq(size(vs, 3), size(vt, 3), "regr14_conserv n3")
+    n4 = assert_eq(size(vs, 4), size(vt, 4), "regr14_conserv n4")
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr14_conserv xs bad order")
+    call assert(xt(1) < xt(2), "regr14_conserv xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr14_conserv extrapolation")
+    slope_present = present(slope)
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       if (xt(it + 1) <= xs(is + 1)) then
+          vt(it, :, :, :) = mean_lin(xt(it), xt(it + 1))
+       else
+          vt(it, :, :, :) = mean_lin(xt(it), xs(is + 1)) * (xs(is + 1) - xt(it))
+          is = is + 1
+          do while (xs(is + 1) < xt(it + 1))
+             ! 1 <= is <= ns - 1
+             vt(it, :, :, :) = vt(it, :, :, :) + (xs(is + 1) - xs(is)) &
+                  * vs(is, :, :, :)
+             is = is + 1
+          end do
+          ! 1 <= is <= ns
+          vt(it, :, :, :) = (vt(it, :, :, :) + mean_lin(xs(is), xt(it + 1)) &
+               * (xt(it + 1) - xs(is))) / (xt(it + 1) - xt(it))
+       end if
+
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  contains
+
+    function mean_lin(a, b)
+
+      ! mean in [a, b] of the linear function in [xs(is), xs(is + 1)]
+
+      real, intent(in):: a, b
+      real mean_lin(n2, n3, n4)
+
+      !---------------------------------------------
+
+      if (slope_present) then
+         mean_lin = slope(is, :, :, :) / 2. * (a + b - xs(is) - xs(is + 1)) &
+              + vs(is, :, :, :)
+      else
+         mean_lin = vs(is, :, :, :)
+      end if
+
+    end function mean_lin
+
+  end subroutine regr14_conserv
+
+end module regr1_conserv_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr1_lint_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr1_lint_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr1_lint_m.F90	(revision 3330)
@@ -0,0 +1,98 @@
+! $Id$
+module regr1_lint_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+  interface regr1_lint
+     ! Each procedure regrids by linear interpolation.
+     ! The regridding operation is done on the first dimension of the
+     ! input array.
+     ! The difference betwwen the procedures is the rank of the first argument.
+     module procedure regr11_lint, regr12_lint
+  end interface
+
+  private
+  public regr1_lint
+
+contains
+
+  function regr11_lint(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 1.
+
+    use assert_eq_m, only: assert_eq
+    use interpolation, only: hunt !!, polint
+
+    real, intent(in):: vs(:)
+    ! (values of the function at source points "xs")
+
+    real, intent(in):: xs(:)
+    ! (abscissas of points in source grid, in strictly monotonic order)
+
+    real, intent(in):: xt(:)
+    ! (abscissas of points in target grid)
+
+    real vt(size(xt)) ! values of the function on the target grid
+
+    ! Variables local to the procedure:
+    integer is, it, ns
+    integer is_b ! "is" bound between 1 and "ns - 1"
+
+    !--------------------------------------
+
+    ns = assert_eq(size(vs), size(xs), "regr11_lint ns")
+
+    is = -1 ! go immediately to bisection on first call to "hunt"
+
+    do it = 1, size(xt)
+       call hunt(xs, xt(it), is)
+       is_b = min(max(is, 1), ns - 1)
+!!       call polint(xs(is_b:is_b+1), vs(is_b:is_b+1), xt(it), vt(it))
+       vt(it) = ((xs(is_b+1) - xt(it)) * vs(is_b) &
+            + (xt(it) - xs(is_b)) * vs(is_b+1)) / (xs(is_b+1) - xs(is_b))
+    end do
+
+  end function regr11_lint
+
+  !*********************************************************
+
+  function regr12_lint(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 2.
+
+    use assert_eq_m, only: assert_eq
+    use interpolation, only: hunt
+
+    real, intent(in):: vs(:, :)
+    ! (values of the function at source points "xs")
+
+    real, intent(in):: xs(:)
+    ! (abscissas of points in source grid, in strictly monotonic order)
+
+    real, intent(in):: xt(:)
+    ! (abscissas of points in target grid)
+
+    real vt(size(xt), size(vs, 2)) ! values of the function on the target grid
+
+    ! Variables local to the procedure:
+    integer is, it, ns
+    integer is_b ! "is" bound between 1 and "ns - 1"
+
+    !--------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs), "regr12_lint ns")
+
+    is = -1 ! go immediately to bisection on first call to "hunt"
+
+    do it = 1, size(xt)
+       call hunt(xs, xt(it), is)
+       is_b = min(max(is, 1), ns - 1)
+       vt(it, :) = ((xs(is_b+1) - xt(it)) * vs(is_b, :) &
+            + (xt(it) - xs(is_b)) * vs(is_b+1, :)) / (xs(is_b+1) - xs(is_b))
+    end do
+
+  end function regr12_lint
+
+end module regr1_lint_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr3_lint_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr3_lint_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/regr3_lint_m.F90	(revision 3330)
@@ -0,0 +1,100 @@
+! $Id$
+module regr3_lint_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+  interface regr3_lint
+     ! Each procedure regrids by linear interpolation.
+     ! The regridding operation is done on the third dimension of the
+     ! input array.
+     ! The difference betwwen the procedures is the rank of the first argument.
+     module procedure regr33_lint, regr34_lint
+  end interface
+
+  private
+  public regr3_lint
+
+contains
+
+  function regr33_lint(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 3.
+
+    use assert_eq_m, only: assert_eq
+    use interpolation, only: hunt
+
+    real, intent(in):: vs(:, :, :)
+    ! (values of the function at source points "xs")
+
+    real, intent(in):: xs(:)
+    ! (abscissas of points in source grid, in strictly monotonic order)
+
+    real, intent(in):: xt(:)
+    ! (abscissas of points in target grid)
+
+    real vt(size(vs, 1), size(vs, 2), size(xt))
+    ! (values of the function on the target grid)
+
+    ! Variables local to the procedure:
+    integer is, it, ns
+    integer is_b ! "is" bound between 1 and "ns - 1"
+
+    !--------------------------------------
+
+    ns = assert_eq(size(vs, 3), size(xs), "regr33_lint ns")
+
+    is = -1 ! go immediately to bisection on first call to "hunt"
+
+    do it = 1, size(xt)
+       call hunt(xs, xt(it), is)
+       is_b = min(max(is, 1), ns - 1)
+       vt(:, :, it) = ((xs(is_b+1) - xt(it)) * vs(:, :, is_b) &
+            + (xt(it) - xs(is_b)) * vs(:, :, is_b+1)) / (xs(is_b+1) - xs(is_b))
+    end do
+
+  end function regr33_lint
+
+  !*********************************************************
+
+  function regr34_lint(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 4.
+
+    use assert_eq_m, only: assert_eq
+    use interpolation, only: hunt
+
+    real, intent(in):: vs(:, :, :, :)
+    ! (values of the function at source points "xs")
+
+    real, intent(in):: xs(:)
+    ! (abscissas of points in source grid, in strictly monotonic order)
+
+    real, intent(in):: xt(:)
+    ! (abscissas of points in target grid)
+
+    real vt(size(vs, 1), size(vs, 2), size(xt), size(vs, 4))
+    ! (values of the function on the target grid)
+
+    ! Variables local to the procedure:
+    integer is, it, ns
+    integer is_b ! "is" bound between 1 and "ns - 1"
+
+    !--------------------------------------
+
+    ns = assert_eq(size(vs, 3), size(xs), "regr34_lint ns")
+
+    is = -1 ! go immediately to bisection on first call to "hunt"
+
+    do it = 1, size(xt)
+       call hunt(xs, xt(it), is)
+       is_b = min(max(is, 1), ns - 1)
+       vt(:, :, it, :) = ((xs(is_b+1) - xt(it)) * vs(:, :, is_b, :) &
+            + (xt(it) - xs(is_b)) * vs(:, :, is_b+1, :)) &
+            / (xs(is_b+1) - xs(is_b))
+    end do
+
+  end function regr34_lint
+
+end module regr3_lint_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/simple.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/simple.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/simple.F90	(revision 3330)
@@ -0,0 +1,361 @@
+! $Id$
+module simple
+
+  use handle_err_m, only: handle_err
+  
+  implicit none
+
+  private handle_err
+
+contains
+
+  subroutine nf95_open(path, mode, ncid, chunksize, ncerr)
+
+    use netcdf, only: nf90_open
+
+    character(len=*), intent(in):: path
+    integer, intent(in):: mode
+    integer, intent(out):: ncid
+    integer, intent(inout), optional:: chunksize
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_open(path, mode, ncid, chunksize)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_open " // path, ncerr_not_opt)
+    end if
+
+  end subroutine nf95_open
+
+  !************************
+
+  subroutine nf95_inq_dimid(ncid, name, dimid, ncerr)
+
+    use netcdf, only: nf90_inq_dimid
+
+    integer,             intent(in) :: ncid
+    character (len = *), intent(in) :: name
+    integer,             intent(out) :: dimid
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_inq_dimid(ncid, name, dimid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_inq_dimid " // name, ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_inq_dimid
+
+  !************************
+
+  subroutine nf95_inquire_dimension(ncid, dimid, name, nclen, ncerr)
+
+    use netcdf, only: nf90_inquire_dimension
+
+    integer,                       intent( in) :: ncid, dimid
+    character (len = *), optional, intent(out) :: name
+    integer,             optional, intent(out) :: nclen
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_inquire_dimension(ncid, dimid, name, nclen)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_inquire_dimension", ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_inquire_dimension
+
+  !************************
+
+  subroutine nf95_inq_varid(ncid, name, varid, ncerr)
+
+    use netcdf, only: nf90_inq_varid
+
+    integer,             intent(in) :: ncid
+    character(len=*), intent(in):: name
+    integer,             intent(out) :: varid
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_inq_varid(ncid, name, varid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_inq_varid, name = " // name, ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_inq_varid
+
+  !************************
+
+  subroutine nf95_inquire_variable(ncid, varid, name, xtype, ndims, dimids, &
+       nAtts, ncerr)
+
+    ! In "nf90_inquire_variable", "dimids" is an assumed-size array.
+    ! This is not optimal.
+    ! We are in the classical case of an array the size of which is
+    ! unknown in the calling procedure, before the call.
+    ! Here we use a better solution: a pointer argument array.
+    ! This procedure associates and defines "dimids" if it is present.
+
+    use netcdf, only: nf90_inquire_variable, nf90_max_var_dims
+
+    integer, intent(in):: ncid, varid
+    character(len = *), optional, intent(out):: name
+    integer, optional, intent(out) :: xtype, ndims
+    integer, dimension(:), optional, pointer :: dimids
+    integer, optional, intent(out) :: nAtts
+    integer, intent(out), optional :: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+    integer dimids_local(nf90_max_var_dims)
+    integer ndims_not_opt
+
+    !-------------------
+
+    if (present(dimids)) then
+       ncerr_not_opt = nf90_inquire_variable(ncid, varid, name, xtype, &
+            ndims_not_opt, dimids_local, nAtts)
+       allocate(dimids(ndims_not_opt)) ! also works if ndims_not_opt == 0
+       dimids = dimids_local(:ndims_not_opt)
+       if (present(ndims)) ndims = ndims_not_opt
+    else
+       ncerr_not_opt = nf90_inquire_variable(ncid, varid, name, xtype, ndims, &
+            nAtts=nAtts)
+    end if
+
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_inquire_variable", ncerr_not_opt, ncid, varid)
+    end if
+
+  end subroutine nf95_inquire_variable
+
+  !************************
+
+  subroutine nf95_create(path, cmode, ncid, initialsize, chunksize, ncerr)
+    
+    use netcdf, only: nf90_create
+
+    character (len = *), intent(in   ) :: path
+    integer,             intent(in   ) :: cmode
+    integer,             intent(  out) :: ncid
+    integer, optional,   intent(in   ) :: initialsize
+    integer, optional,   intent(inout) :: chunksize
+    integer, intent(out), optional :: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_create(path, cmode, ncid, initialsize, chunksize)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_create " // path, ncerr_not_opt)
+    end if
+
+  end subroutine nf95_create
+
+  !************************
+
+  subroutine nf95_def_dim(ncid, name, nclen, dimid, ncerr)
+
+    use netcdf, only: nf90_def_dim
+
+    integer,             intent( in) :: ncid
+    character (len = *), intent( in) :: name
+    integer,             intent( in) :: nclen
+    integer,             intent(out) :: dimid
+    integer, intent(out), optional :: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_def_dim(ncid, name, nclen, dimid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_def_dim " // name, ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_def_dim
+
+  !***********************
+
+  subroutine nf95_redef(ncid, ncerr)
+
+    use netcdf, only: nf90_redef
+
+    integer, intent( in) :: ncid
+    integer, intent(out), optional :: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_redef(ncid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_redef", ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_redef
+  
+  !***********************
+
+  subroutine nf95_enddef(ncid, h_minfree, v_align, v_minfree, r_align, ncerr)
+
+    use netcdf, only: nf90_enddef
+
+    integer,           intent( in) :: ncid
+    integer, optional, intent( in) :: h_minfree, v_align, v_minfree, r_align
+    integer, intent(out), optional :: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_enddef", ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_enddef
+
+  !***********************
+
+  subroutine nf95_close(ncid, ncerr)
+
+    use netcdf, only: nf90_close
+
+    integer, intent( in) :: ncid
+    integer, intent(out), optional :: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_close(ncid)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_close", ncerr_not_opt)
+    end if
+
+  end subroutine nf95_close
+
+  !***********************
+
+  subroutine nf95_copy_att(ncid_in, varid_in, name, ncid_out, varid_out, ncerr)
+
+    use netcdf, only: nf90_copy_att
+
+    integer, intent( in):: ncid_in,  varid_in
+    character(len=*), intent( in):: name
+    integer, intent( in):: ncid_out, varid_out
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_copy_att(ncid_in, varid_in, name, ncid_out, varid_out)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_copy_att " // name, ncerr_not_opt, ncid_out)
+    end if
+
+  end subroutine nf95_copy_att
+
+  !***********************
+
+  subroutine nf95_inquire_attribute(ncid, varid, name, xtype, nclen, attnum, &
+       ncerr)
+
+    use netcdf, only: nf90_inquire_attribute
+
+    integer,             intent( in)           :: ncid, varid
+    character (len = *), intent( in)           :: name
+    integer,             intent(out), optional :: xtype, nclen, attnum
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_inquire_attribute(ncid, varid, name, xtype, nclen, &
+         attnum)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_inquire_attribute " // name, ncerr_not_opt, &
+            ncid, varid)
+    end if
+
+  end subroutine nf95_inquire_attribute
+
+  !***********************
+
+  subroutine nf95_inquire(ncid, nDimensions, nVariables, nAttributes, &
+       unlimitedDimId, formatNum, ncerr)
+
+    use netcdf, only: nf90_inquire
+
+    integer,           intent( in) :: ncid
+    integer, optional, intent(out) :: nDimensions, nVariables, nAttributes
+    integer, optional, intent(out) :: unlimitedDimId, formatNum
+    integer, intent(out), optional:: ncerr
+
+    ! Variable local to the procedure:
+    integer ncerr_not_opt
+
+    !-------------------
+
+    ncerr_not_opt = nf90_inquire(ncid, nDimensions, nVariables, nAttributes, &
+         unlimitedDimId, formatNum)
+    if (present(ncerr)) then
+       ncerr = ncerr_not_opt
+    else
+       call handle_err("nf95_inquire", ncerr_not_opt, ncid)
+    end if
+
+  end subroutine nf95_inquire
+
+end module simple
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/slopes_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/slopes_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/slopes_m.F90	(revision 3330)
@@ -0,0 +1,226 @@
+module slopes_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+  interface slopes
+     ! This generic function computes second order slopes with Van
+     ! Leer slope-limiting, given cell averages. Reference: Dukowicz,
+     ! 1987, SIAM Journal on Scientific and Statistical Computing, 8,
+     ! 305.
+
+     ! The only difference between the specific functions is the rank
+     ! of the first argument and the equal rank of the result.
+
+     ! real, intent(in), rank >= 1:: f ! (n, ...) cell averages, n must be >= 1
+     ! real, intent(in):: x(:) ! (n + 1) cell edges
+     ! real slopes, same shape as f ! (n, ...)
+
+     module procedure slopes1, slopes2, slopes3, slopes4
+  end interface
+
+  private
+  public slopes
+
+contains
+
+  pure function slopes1(f, x)
+
+    real, intent(in):: f(:)
+    real, intent(in):: x(:)
+    real slopes1(size(f))
+
+    ! Local:
+    integer n, i
+    real xc(size(f)) ! (n) cell centers
+    real h
+
+    !------------------------------------------------------
+
+    n = size(f)
+    forall (i = 1:n) xc(i) = (x(i) + x(i + 1)) / 2.
+    slopes1(1) = 0.
+    slopes1(n) = 0.
+
+    do i = 2, n - 1
+       if (f(i) >= max(f(i - 1), f(i + 1)) .or. f(i) &
+            <= min(f(i - 1), f(i + 1))) then
+          ! Local extremum
+          slopes1(i) = 0.
+       else
+          ! (f(i - 1), f(i), f(i + 1)) strictly monotonous
+
+          ! Second order slope:
+          slopes1(i) = (f(i + 1) - f(i - 1)) / (xc(i + 1) - xc(i - 1))
+
+          ! Slope limitation:
+          h = abs(x(i + 1) - xc(i))
+          slopes1(i) = sign(min(abs(slopes1(i)), abs(f(i + 1) - f(i)) / h, &
+               abs(f(i) - f(i - 1)) / h), slopes1(i))
+       end if
+    end do
+
+  end function slopes1
+
+  !*************************************************************
+
+  pure function slopes2(f, x)
+
+    real, intent(in):: f(:, :)
+    real, intent(in):: x(:)
+    real slopes2(size(f, 1), size(f, 2))
+
+    ! Local:
+    integer n, i, j
+    real xc(size(f, 1)) ! (n) cell centers
+    real h(2:size(f, 1) - 1), delta_xc(2:size(f, 1) - 1) ! (2:n - 1)
+
+    !------------------------------------------------------
+
+    n = size(f, 1)
+    forall (i = 1:n) xc(i) = (x(i) + x(i + 1)) / 2.
+
+    forall (i = 2:n - 1) 
+       h(i) = abs(x(i + 1) - xc(i))
+       delta_xc(i) = xc(i + 1) - xc(i - 1)
+    end forall
+
+    do j = 1, size(f, 2)
+       slopes2(1, j) = 0.
+
+       do i = 2, n - 1
+          if (f(i, j) >= max(f(i - 1, j), f(i + 1, j)) .or. &
+               f(i, j) <= min(f(i - 1, j), f(i + 1, j))) then
+             ! Local extremum
+             slopes2(i, j) = 0.
+          else
+             ! (f(i - 1, j), f(i, j), f(i + 1, j))
+             ! strictly monotonous
+
+             ! Second order slope:
+             slopes2(i, j) = (f(i + 1, j) - f(i - 1, j)) / delta_xc(i)
+
+             ! Slope limitation:
+             slopes2(i, j) = sign(min(abs(slopes2(i, j)), &
+                  abs(f(i + 1, j) - f(i, j)) / h(i), &
+                  abs(f(i, j) - f(i - 1, j)) / h(i)), slopes2(i, j))
+          end if
+       end do
+
+       slopes2(n, j) = 0.
+    end do
+
+  end function slopes2
+
+  !*************************************************************
+
+  pure function slopes3(f, x)
+
+    real, intent(in):: f(:, :, :)
+    real, intent(in):: x(:)
+    real slopes3(size(f, 1), size(f, 2), size(f, 3))
+
+    ! Local:
+    integer n, i, j, k
+    real xc(size(f, 1)) ! (n) cell centers
+    real h(2:size(f, 1) - 1), delta_xc(2:size(f, 1) - 1) ! (2:n - 1)
+
+    !------------------------------------------------------
+
+    n = size(f, 1)
+    forall (i = 1:n) xc(i) = (x(i) + x(i + 1)) / 2.
+
+    forall (i = 2:n - 1) 
+       h(i) = abs(x(i + 1) - xc(i))
+       delta_xc(i) = xc(i + 1) - xc(i - 1)
+    end forall
+
+    do k = 1, size(f, 3)
+       do j = 1, size(f, 2)
+          slopes3(1, j, k) = 0.
+
+          do i = 2, n - 1
+             if (f(i, j, k) >= max(f(i - 1, j, k), f(i + 1, j, k)) .or. &
+                  f(i, j, k) <= min(f(i - 1, j, k), f(i + 1, j, k))) then
+                ! Local extremum
+                slopes3(i, j, k) = 0.
+             else
+                ! (f(i - 1, j, k), f(i, j, k), f(i + 1, j, k))
+                ! strictly monotonous
+
+                ! Second order slope:
+                slopes3(i, j, k) = (f(i + 1, j, k) - f(i - 1, j, k)) &
+                     / delta_xc(i)
+
+                ! Slope limitation:
+                slopes3(i, j, k) = sign(min(abs(slopes3(i, j, k)), &
+                     abs(f(i + 1, j, k) - f(i, j, k)) / h(i), &
+                     abs(f(i, j, k) - f(i - 1, j, k)) / h(i)), slopes3(i, j, k))
+             end if
+          end do
+
+          slopes3(n, j, k) = 0.
+       end do
+    end do
+
+  end function slopes3
+
+  !*************************************************************
+
+  pure function slopes4(f, x)
+
+    real, intent(in):: f(:, :, :, :)
+    real, intent(in):: x(:)
+    real slopes4(size(f, 1), size(f, 2), size(f, 3), size(f, 4))
+
+    ! Local:
+    integer n, i, j, k, l
+    real xc(size(f, 1)) ! (n) cell centers
+    real h(2:size(f, 1) - 1), delta_xc(2:size(f, 1) - 1) ! (2:n - 1)
+
+    !------------------------------------------------------
+
+    n = size(f, 1)
+    forall (i = 1:n) xc(i) = (x(i) + x(i + 1)) / 2.
+
+    forall (i = 2:n - 1) 
+       h(i) = abs(x(i + 1) - xc(i))
+       delta_xc(i) = xc(i + 1) - xc(i - 1)
+    end forall
+
+    do l = 1, size(f, 4)
+       do k = 1, size(f, 3)
+          do j = 1, size(f, 2)
+             slopes4(1, j, k, l) = 0.
+
+             do i = 2, n - 1
+                if (f(i, j, k, l) >= max(f(i - 1, j, k, l), f(i + 1, j, k, l)) &
+                     .or. f(i, j, k, l) &
+                     <= min(f(i - 1, j, k, l), f(i + 1, j, k, l))) then
+                   ! Local extremum
+                   slopes4(i, j, k, l) = 0.
+                else
+                   ! (f(i - 1, j, k, l), f(i, j, k, l), f(i + 1, j, k, l))
+                   ! strictly monotonous
+
+                   ! Second order slope:
+                   slopes4(i, j, k, l) = (f(i + 1, j, k, l) &
+                        - f(i - 1, j, k, l)) / delta_xc(i)
+
+                   ! Slope limitation:
+                   slopes4(i, j, k, l) = sign(min(abs(slopes4(i, j, k, l)), &
+                        abs(f(i + 1, j, k, l) - f(i, j, k, l)) / h(i), &
+                        abs(f(i, j, k, l) - f(i - 1, j, k, l)) / h(i)), &
+                        slopes4(i, j, k, l))
+                end if
+             end do
+
+             slopes4(n, j, k, l) = 0.
+          end do
+       end do
+    end do
+
+  end function slopes4
+
+end module slopes_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/sort.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/sort.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/sort.F	(revision 3330)
@@ -0,0 +1,37 @@
+!
+! $Header$
+!
+C
+C
+      SUBROUTINE sort(n,d)
+c
+c     P.Le Van
+c      
+c...  cette routine met le tableau d  dans l'ordre croissant  ....
+cc   ( pour avoir l'ordre decroissant,il suffit de remplacer l'instruc
+c      tion  situee + bas  IF(d(j).LE.p)  THEN     par
+c                           IF(d(j).GE.p)  THEN
+c
+
+      INTEGER n
+      REAL d(n) , p
+      INTEGER i,j,k
+
+      DO i=1,n-1
+        k=i
+        p=d(i)
+        DO j=i+1,n
+         IF(d(j).LE.p) THEN
+           k=j
+           p=d(j)
+         ENDIF
+        ENDDO
+
+       IF(k.ne.i) THEN
+         d(k)=d(i)
+         d(i)=p
+       ENDIF
+      ENDDO
+
+       RETURN
+       END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/vampir.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/vampir.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/vampir.F90	(revision 3330)
@@ -0,0 +1,86 @@
+module Vampir
+
+  INTEGER,parameter :: VTcaldyn=1
+  INTEGER,parameter :: VTintegre=2
+  INTEGER,parameter :: VTadvection=3
+  INTEGER,parameter :: VTdissipation=4
+  INTEGER,parameter :: VThallo=5
+  INTEGER,parameter :: VTphysiq=6
+  INTEGER,parameter :: VTinca=7
+  
+  INTEGER,parameter :: nb_inst=7
+  INTEGER :: MPE_begin(nb_inst)
+  INTEGER :: MPE_end(nb_inst)
+  
+contains
+
+  subroutine InitVampir
+    implicit none
+
+#ifdef USE_VT
+    include 'VT.inc'
+    integer :: ierr
+    
+    call VTSYMDEF(VTcaldyn,"caldyn","caldyn",ierr)
+    call VTSYMDEF(VTintegre,"integre","integre",ierr)
+    call VTSYMDEF(VTadvection,"advection","advection",ierr)
+    call VTSYMDEF(VTdissipation,"dissipation","dissipation",ierr)
+    call VTSYMDEF(VThallo,"hallo","hallo",ierr)
+    call VTSYMDEF(VTphysiq,"physiq","physiq",ierr)
+    call VTSYMDEF(VTinca,"inca","inca",ierr)
+#endif
+
+#ifdef USE_MPE
+    include 'mpe_logf.h' 
+    integer :: ierr,i
+    
+    DO i=1,nb_inst
+      ierr = MPE_Log_get_state_eventIDs( MPE_begin(i), MPE_end(i) )
+    ENDDO
+    
+    ierr = MPE_Describe_state( MPE_begin(VTcaldyn), MPE_end(VTcaldyn),"caldyn", "yellow" )
+    ierr = MPE_Describe_state( MPE_begin(VTintegre), MPE_end(VTintegre),"integre", "blue" )
+    ierr = MPE_Describe_state( MPE_begin(VTadvection), MPE_end(VTadvection),"advection", "green" )
+    ierr = MPE_Describe_state( MPE_begin(VTdissipation), MPE_end(VTdissipation),"dissipation", "ivory" )
+    ierr = MPE_Describe_state( MPE_begin(VThallo), MPE_end(VThallo),"hallo", "orange" )
+    ierr = MPE_Describe_state( MPE_begin(VTphysiq), MPE_end(VTphysiq),"physiq", "purple" )
+    ierr = MPE_Describe_state( MPE_begin(VTinca), MPE_end(VTinca),"inca", "LightBlue" )
+#endif     
+  end subroutine InitVampir
+
+  subroutine VTb(number)
+    implicit none
+    INTEGER :: number
+#ifdef USE_VT    
+    include 'VT.inc'
+    integer :: ierr
+    
+    call VTBEGIN(number,ierr)
+#endif 
+#ifdef USE_MPE
+    include 'mpe_logf.h' 
+    integer :: ierr,i
+    ierr = MPE_Log_event( MPE_begin(number), 0, '' )
+#endif
+
+  end subroutine VTb
+
+  subroutine VTe(number)
+    implicit none
+    INTEGER :: Number
+#ifdef USE_VT    
+    include 'VT.inc'
+    integer :: ierr
+   
+    call VTEND(number,ierr)
+#endif    
+
+#ifdef USE_MPE
+    include 'mpe_logf.h' 
+    integer :: ierr,i
+    ierr = MPE_Log_event( MPE_end(number), 0, '' )
+#endif
+
+  end subroutine VTe
+  
+end module Vampir
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/write_field.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/write_field.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/write_field.F90	(revision 3330)
@@ -0,0 +1,326 @@
+!
+! $Id$
+!
+module write_field
+implicit none
+
+  integer, parameter :: MaxWriteField = 100
+  integer, dimension(MaxWriteField),save :: FieldId
+  integer, dimension(MaxWriteField),save :: FieldVarId
+  integer, dimension(MaxWriteField),save :: FieldIndex
+  character(len=255), dimension(MaxWriteField) ::  FieldName 
+   
+  integer,save :: NbField = 0
+  
+  interface WriteField
+    module procedure WriteField3d,WriteField2d,WriteField1d
+  end interface WriteField
+  contains
+  
+    function GetFieldIndex(name)
+    implicit none
+      integer          :: GetFieldindex
+      character(len=*) :: name
+    
+      character(len=255) :: TrueName
+      integer            :: i
+       
+      
+      TrueName=TRIM(ADJUSTL(name))
+    
+      GetFieldIndex=-1
+      do i=1,NbField
+        if (TrueName==FieldName(i)) then
+          GetFieldIndex=i
+          exit
+        endif
+      enddo
+    end function GetFieldIndex
+ 
+    subroutine WriteField3d(name,Field)
+    implicit none
+      character(len=*) :: name
+      real, dimension(:,:,:) :: Field 
+      integer, dimension(3) :: Dim
+      
+      Dim=shape(Field)
+      call WriteField_gen(name,Field,Dim(1),Dim(2),Dim(3))  
+  
+    end subroutine WriteField3d
+    
+    subroutine WriteField2d(name,Field)
+    implicit none
+      character(len=*) :: name
+      real, dimension(:,:) :: Field 
+      integer, dimension(2) :: Dim
+      
+      Dim=shape(Field)
+      call WriteField_gen(name,Field,Dim(1),Dim(2),1)  
+  
+    end subroutine WriteField2d
+    
+    subroutine WriteField1d(name,Field)
+    implicit none
+      character(len=*) :: name
+      real, dimension(:) :: Field 
+      integer, dimension(1) :: Dim
+      
+      Dim=shape(Field)
+      call WriteField_gen(name,Field,Dim(1),1,1)  
+  
+    end subroutine WriteField1d
+        
+    subroutine WriteField_gen(name,Field,dimx,dimy,dimz)
+    implicit none
+    include 'netcdf.inc'
+      character(len=*) :: name
+      integer :: dimx,dimy,dimz
+      real,dimension(dimx,dimy,dimz) :: Field
+      integer,dimension(dimx*dimy*dimz) :: ndex
+      integer :: status
+      integer :: index
+      integer :: start(4)
+      integer :: count(4)
+      
+           
+      Index=GetFieldIndex(name)
+      if (Index==-1) then
+        call CreateNewField(name,dimx,dimy,dimz)
+	Index=GetFieldIndex(name)
+      else
+        FieldIndex(Index)=FieldIndex(Index)+1.
+      endif
+      
+      start(1)=1
+      start(2)=1
+      start(3)=1
+      start(4)=FieldIndex(Index)
+
+      count(1)=dimx
+      count(2)=dimy
+      count(3)=dimz
+      count(4)=1
+
+      status = NF_PUT_VARA_DOUBLE(FieldId(Index),FieldVarId(Index),start,count,Field)
+      status = NF_SYNC(FieldId(Index))
+      
+    end subroutine WriteField_gen
+       
+    subroutine CreateNewField(name,dimx,dimy,dimz)
+    implicit none
+    include 'netcdf.inc'  
+      character(len=*) :: name
+      integer :: dimx,dimy,dimz
+      integer :: TabDim(4)
+      integer :: status
+      
+      
+      NbField=NbField+1
+      FieldName(NbField)=TRIM(ADJUSTL(name))
+      FieldIndex(NbField)=1
+      
+      
+      status = NF_CREATE(TRIM(ADJUSTL(name))//'.nc', NF_CLOBBER, FieldId(NbField))
+      status = NF_DEF_DIM(FieldId(NbField),'X',dimx,TabDim(1))
+      status = NF_DEF_DIM(FieldId(NbField),'Y',dimy,TabDim(2))
+      status = NF_DEF_DIM(FieldId(NbField),'Z',dimz,TabDim(3))
+      status = NF_DEF_DIM(FieldId(NbField),'iter',NF_UNLIMITED,TabDim(4))
+      status = NF_DEF_VAR(FieldId(NbField),FieldName(NbField),NF_DOUBLE,4,TabDim,FieldVarId(NbField))
+      status = NF_ENDDEF(FieldId(NbField))
+
+    end subroutine CreateNewField
+    
+    
+    
+  subroutine write_field1D(name,Field)
+    implicit none
+  
+    integer, parameter :: MaxDim=1
+    character(len=*)   :: name
+    real, dimension(:) :: Field
+    real, dimension(:),allocatable :: New_Field
+    character(len=20) :: str
+    integer, dimension(MaxDim) :: Dim
+    integer :: i,nb
+    integer, parameter :: id=10
+    integer, parameter :: NbCol=4
+    integer :: ColumnSize 
+    integer :: pos
+    character(len=255) :: form
+    character(len=255) :: MaxLen
+    
+    
+    open(unit=id,file=name//'.field',form='formatted',status='replace')
+    write (id,'("----- Field '//name//'",//)')
+    Dim=shape(Field)
+    MaxLen=int2str(len(trim(int2str(Dim(1)))))
+    ColumnSize=20+6+3+len(trim(int2str(Dim(1))))
+    Nb=0
+    Pos=2
+    do i=1,Dim(1)
+      nb=nb+1
+      
+      if (MOD(nb,NbCol)==0) then
+        form='(t'//trim(int2str(pos))// ',i'//trim(MaxLen) //'," ---> ",g22.16,/)'
+        Pos=2
+      else
+        form='(t'//trim(int2str(pos))// ',i'//trim(MaxLen) //'," ---> ",g22.16," | ",)'
+        Pos=Pos+ColumnSize
+      endif
+      write (id,form,advance='no') i,Field(i)
+    enddo
+     
+    close(id)
+
+  end subroutine write_field1D
+
+  subroutine write_field2D(name,Field)
+    implicit none
+  
+    integer, parameter :: MaxDim=2
+    character(len=*)   :: name
+    real, dimension(:,:) :: Field
+    real, dimension(:,:),allocatable :: New_Field
+    character(len=20) :: str
+    integer, dimension(MaxDim) :: Dim
+    integer :: i,j,nb
+    integer, parameter :: id=10
+    integer, parameter :: NbCol=4
+    integer :: ColumnSize 
+    integer :: pos,offset
+    character(len=255) :: form
+    character(len=255) :: spacing
+    
+    open(unit=id,file=name//'.field',form='formatted',status='replace')
+    write (id,'("----- Field '//name//'",//)')
+    
+    Dim=shape(Field)
+    offset=len(trim(int2str(Dim(1))))+len(trim(int2str(Dim(2))))+3
+    ColumnSize=20+6+3+offset
+
+    spacing='(t2,"'//repeat('-',ColumnSize*NbCol)//'")'
+    
+    do i=1,Dim(2)
+      nb=0
+      Pos=2
+      do j=1,Dim(1)
+        nb=nb+1
+      
+        if (MOD(nb,NbCol)==0) then
+          form='(t'//trim(int2str(pos))//            &
+               ',"('//trim(int2str(j))//','          &
+                    //trim(int2str(i))//')",t'       & 
+                    //trim(int2str(pos+offset))     &    
+                    //'," ---> ",g22.16,/)'
+          Pos=2
+        else
+          form='(t'//trim(int2str(pos))//            &
+               ',"('//trim(int2str(j))//','          &
+                    //trim(int2str(i))//')",t'       & 
+                    //trim(int2str(pos+offset))     &    
+                    //'," ---> ",g22.16," | ")'
+          Pos=Pos+ColumnSize
+        endif
+        write (id,form,advance='no') Field(j,i)
+      enddo
+      if (MOD(nb,NbCol)==0) then
+        write (id,spacing)
+      else
+        write (id,'("")')
+        write (id,spacing)
+      endif
+    enddo
+     
+  end subroutine write_field2D
+  
+  subroutine write_field3D(name,Field)
+    implicit none
+  
+    integer, parameter :: MaxDim=3
+    character(len=*)   :: name
+    real, dimension(:,:,:) :: Field
+    real, dimension(:,:,:),allocatable :: New_Field
+    integer, dimension(MaxDim) :: Dim
+    integer :: i,j,k,nb
+    integer, parameter :: id=10
+    integer, parameter :: NbCol=4
+    integer :: ColumnSize 
+    integer :: pos,offset
+    character(len=255) :: form
+    character(len=255) :: spacing
+
+    open(unit=id,file=name//'.field',form='formatted',status='replace')
+    write (id,'("----- Field '//name//'"//)')
+    
+    Dim=shape(Field)
+    offset=len(trim(int2str(Dim(1))))+len(trim(int2str(Dim(2))))+len(trim(int2str(Dim(3))))+4
+    ColumnSize=22+6+3+offset
+
+!    open(unit=id,file=name,form=formatted
+   
+    spacing='(t2,"'//repeat('-',ColumnSize*NbCol)//'")'
+    
+    do i=1,Dim(3)
+    
+      do j=1,Dim(2)
+        nb=0
+        Pos=2
+        
+        do k=1,Dim(1)
+        nb=nb+1
+      
+          if (MOD(nb,NbCol)==0) then
+            form='(t'//trim(int2str(pos))//            &
+                 ',"('//trim(int2str(k))//','          &
+                      //trim(int2str(j))//','          &
+                      //trim(int2str(i))//')",t'       & 
+                      //trim(int2str(pos+offset))      &    
+                      //'," ---> ",g22.16,/)'
+           Pos=2
+          else
+            form='(t'//trim(int2str(pos))//            &
+                 ',"('//trim(int2str(k))//','          &
+                      //trim(int2str(j))//','          &
+                      //trim(int2str(i))//')",t'       & 
+                      //trim(int2str(pos+offset))      &    
+                      //'," ---> ",g22.16," | ")'
+! dépent de l'implémention, sur compaq, c'est necessaire
+!            Pos=Pos+ColumnSize
+          endif
+          write (id,form,advance='no') Field(k,j,i)
+        enddo
+        if (MOD(nb,NbCol)==0) then
+          write (id,spacing)
+        else
+          write (id,'("")')
+          write (id,spacing)
+        endif
+      enddo
+      write (id,spacing)
+    enddo
+    
+    close(id)
+  
+  end subroutine write_field3D  
+  
+  function int2str(int)
+    implicit none
+    integer, parameter :: MaxLen=10
+    integer,intent(in) :: int
+    character(len=MaxLen) :: int2str
+    logical :: flag
+    integer :: i
+    flag=.true.
+    
+    i=int
+    
+    int2str=''
+    do while (flag)
+      int2str=CHAR(MOD(i,10)+48)//int2str
+      i=i/10
+      if (i==0) flag=.false.
+    enddo
+  end function int2str
+
+end module write_field
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/wxios.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/wxios.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/wxios.F90	(revision 3330)
@@ -0,0 +1,670 @@
+! $Id$
+#ifdef CPP_XIOS
+MODULE wxios
+    USE xios
+    USE iaxis
+    USE iaxis_attr
+    USE icontext_attr
+    USE idate
+    USE idomain_attr
+    USE ifield_attr
+    USE ifile_attr
+    USE ixml_tree
+
+    !Variables disponibles pendant toute l'execution du programme:
+    
+    INTEGER, SAVE :: g_comm
+    CHARACTER(len=100), SAVE :: g_ctx_name
+    TYPE(xios_context), SAVE :: g_ctx
+!$OMP THREADPRIVATE(g_comm,g_cts_name,g_ctx)
+    LOGICAL, SAVE :: g_flag_xml = .FALSE.
+    CHARACTER(len=100) :: g_field_name = "nofield"
+!$OMP THREADPRIVATE(g_flag_xml,g_field_name)
+    REAL :: missing_val_omp
+    REAL :: missing_val
+!$OMP THREADPRIVATE(missing_val)
+
+    CONTAINS
+    
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !   36day => 36d etc     !!!!!!!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    
+    SUBROUTINE reformadate(odate, ndate)
+        CHARACTER(len=*), INTENT(IN) :: odate
+#ifdef XIOS1
+        CHARACTER(len=100), INTENT(OUT) :: ndate
+#else
+        TYPE(xios_duration) :: ndate
+#endif
+        
+        INTEGER :: i = 0
+         !!!!!!!!!!!!!!!!!!
+         ! Pour XIOS:
+         !  year : y
+         !  month : mo
+         !  day : d
+         !  hour : h
+         !  minute : mi
+         !  second : s
+         !!!!!!!!!!!!!!!!!!
+
+        i = INDEX(odate, "day")
+        IF (i > 0) THEN
+#ifdef XIOS1
+            ndate = odate(1:i-1)//"d"
+#else
+            read(odate(1:i-1),*) ndate%day
+#endif
+        END IF
+
+        i = INDEX(odate, "hr")
+        IF (i > 0) THEN
+#ifdef XIOS1
+            ndate = odate(1:i-1)//"h"
+#else
+            read(odate(1:i-1),*) ndate%hour
+#endif
+        END IF
+
+        i = INDEX(odate, "mth")
+        IF (i > 0) THEN
+#ifdef XIOS1
+            ndate = odate(1:i-1)//"mo"
+#else
+            read(odate(1:i-1),*) ndate%month
+#endif
+        END IF
+        
+        !IF (prt_level >= 10) WRITE(lunout,*) "Xios. ", odate, " => ", ndate
+    END SUBROUTINE reformadate
+    
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !   ave(X) => average etc     !!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    
+    CHARACTER(len=7) FUNCTION reformaop(op)
+        CHARACTER(len=*), INTENT(IN) :: op
+        
+        INTEGER :: i = 0
+        reformaop = "average"
+        
+        IF (op.EQ."inst(X)") THEN
+            reformaop = "instant"
+        END IF
+        
+        IF (op.EQ."once") THEN
+            reformaop = "once"
+        END IF
+        
+        IF (op.EQ."t_max(X)") THEN
+            reformaop = "maximum"
+        END IF
+        
+        IF (op.EQ."t_min(X)") THEN
+            reformaop = "minimum"
+        END IF
+        
+        !IF (prt_level >= 10) WRITE(lunout,*) "Xios. ", op, " => ", reformaop
+    END FUNCTION reformaop
+
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Routine d'initialisation      !!!!!!!!!!!!!
+    !     A lancer juste après mpi_init !!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+    SUBROUTINE wxios_init(xios_ctx_name, locom, outcom, type_ocean)
+        USE print_control_mod, ONLY : prt_level, lunout
+        IMPLICIT NONE
+
+      CHARACTER(len=*), INTENT(IN) :: xios_ctx_name
+      INTEGER, INTENT(IN), OPTIONAL :: locom
+      INTEGER, INTENT(OUT), OPTIONAL :: outcom
+      CHARACTER(len=6), INTENT(IN), OPTIONAL :: type_ocean
+
+    
+        TYPE(xios_context) :: xios_ctx
+        INTEGER :: xios_comm
+
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_init: Initialization"
+
+
+
+        IF (PRESENT(locom)) THEN
+          CALL xios_initialize(xios_ctx_name, local_comm = locom, return_comm = xios_comm )
+          IF (prt_level >= 10) WRITE(lunout,*) "wxios_init: ctx=",xios_ctx_name," local_comm=",locom,", return_comm=",xios_comm
+        ELSE
+          CALL xios_initialize(xios_ctx_name, return_comm = xios_comm )
+          IF (prt_level >= 10) WRITE(lunout,*) "wxios_init: ctx=",xios_ctx_name," return_comm=",xios_comm
+        END IF
+        
+        IF (PRESENT(outcom)) THEN
+          outcom = xios_comm
+          IF (prt_level >= 10) WRITE(lunout,*) "wxios_init: ctx=",xios_ctx_name," outcom=",outcom
+        END IF
+        
+        !Enregistrement des variables globales:
+        g_comm = xios_comm
+        g_ctx_name = xios_ctx_name
+        
+        ! Si couple alors init fait dans cpl_init
+        IF (.not. PRESENT(type_ocean)) THEN
+            CALL wxios_context_init()
+        ENDIF
+
+    END SUBROUTINE wxios_init
+
+    SUBROUTINE wxios_context_init()
+        USE print_control_mod, ONLY : prt_level, lunout
+!        USE mod_phys_lmdz_mpi_data, ONLY : COMM_LMDZ_PHY
+        IMPLICIT NONE
+
+        TYPE(xios_context) :: xios_ctx
+
+!$OMP MASTER
+        !Initialisation du contexte:
+        CALL xios_context_initialize(g_ctx_name, g_comm)
+        CALL xios_get_handle(g_ctx_name, xios_ctx)    !Récupération
+        CALL xios_set_current_context(xios_ctx)            !Activation
+        g_ctx = xios_ctx
+
+        IF (prt_level >= 10) THEN
+          WRITE(lunout,*) "wxios_context_init: Current context is ",trim(g_ctx_name)
+          WRITE(lunout,*) "     now call xios_solve_inheritance()"
+        ENDIF
+        !Une première analyse des héritages:
+        CALL xios_solve_inheritance()
+!$OMP END MASTER
+    END SUBROUTINE wxios_context_init
+
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Routine de paramétrisation !!!!!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+    SUBROUTINE wxios_set_cal(pasdetemps, calendrier, annee, mois, jour, heure, ini_an, ini_mois, ini_jour, ini_heure)
+        USE print_control_mod, ONLY : prt_level, lunout
+        IMPLICIT NONE
+
+     !Paramètres:
+     CHARACTER(len=*), INTENT(IN) :: calendrier
+     INTEGER, INTENT(IN) :: annee, mois, jour, ini_an, ini_mois, ini_jour
+     REAL, INTENT(IN) :: pasdetemps, heure, ini_heure
+     
+     !Variables:
+     CHARACTER(len=80) :: abort_message
+     CHARACTER(len=19) :: date
+     INTEGER :: njour = 1
+     
+     !Variables pour xios:
+#ifdef XIOS1
+     TYPE(xios_time) :: mdtime
+#else
+     TYPE(xios_duration) :: mdtime
+#endif
+     !REAL(kind = 8) :: year=0, month=0, day=0, hour=0, minute=0, second=0
+     
+#ifdef XIOS1
+        mdtime = xios_time(0, 0, 0, 0, 0, pasdetemps)
+#else
+        mdtime%second=pasdetemps
+#endif
+
+        !Réglage du calendrier:
+#ifdef XIOS1
+        SELECT CASE (calendrier)
+            CASE('earth_360d')
+                CALL xios_set_context_attr_hdl(g_ctx, calendar_type= "D360")
+                IF (prt_level >= 10) WRITE(lunout,*) 'wxios_set_cal: Calendrier terrestre a 360 jours/an'
+            CASE('earth_365d')
+                CALL xios_set_context_attr_hdl(g_ctx, calendar_type= "NoLeap")
+                IF (prt_level >= 10) WRITE(lunout,*) 'wxios_set_cal: Calendrier terrestre a 365 jours/an'
+            CASE('gregorian')
+                CALL xios_set_context_attr_hdl(g_ctx, calendar_type= "Gregorian")
+                IF (prt_level >= 10) WRITE(lunout,*) 'wxios_set_cal: Calendrier gregorien'
+            CASE DEFAULT
+                abort_message = 'wxios_set_cal: Mauvais choix de calendrier'
+                CALL abort_gcm('Gcm:Xios',abort_message,1)
+        END SELECT
+#else
+        SELECT CASE (calendrier)
+            CASE('earth_360d')
+                CALL xios_define_calendar("D360")
+                IF (prt_level >= 10) WRITE(lunout,*) 'wxios_set_cal: Calendrier terrestre a 360 jours/an'
+            CASE('earth_365d')
+                CALL xios_define_calendar("NoLeap")
+                IF (prt_level >= 10) WRITE(lunout,*) 'wxios_set_cal: Calendrier terrestre a 365 jours/an'
+            CASE('gregorian')
+                CALL xios_define_calendar("Gregorian")
+                IF (prt_level >= 10) WRITE(lunout,*) 'wxios_set_cal: Calendrier gregorien'
+            CASE DEFAULT
+                abort_message = 'wxios_set_cal: Mauvais choix de calendrier'
+                CALL abort_gcm('Gcm:Xios',abort_message,1)
+        END SELECT
+#endif
+        
+        !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
+#ifdef XIOS1
+        CALL xios_set_context_attr_hdl(g_ctx, time_origin = date)
+#else
+        CALL xios_set_time_origin(xios_date(annee,mois,jour,int(heure),0,0))
+#endif
+
+        !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
+        
+#ifdef XIOS1
+        CALL xios_set_context_attr_hdl(g_ctx, start_date = date)
+#else
+        CALL xios_set_start_date(xios_date(ini_an,ini_mois,ini_jour,int(ini_heure),0,0))
+#endif
+        
+        !Et enfin,le pas de temps:
+        CALL xios_set_timestep(mdtime)
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: ts=",mdtime
+    END SUBROUTINE wxios_set_cal
+
+    SUBROUTINE wxios_set_timestep(ts)
+        REAL, INTENT(IN) :: ts
+#ifdef XIOS1
+        TYPE(xios_time) :: mdtime     
+
+        mdtime = xios_time(0, 0, 0, 0, 0, ts)
+#else
+        TYPE(xios_duration) :: mdtime     
+
+        mdtime%timestep = ts
+#endif
+
+        CALL xios_set_timestep(mdtime)
+    END SUBROUTINE wxios_set_timestep
+
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Pour initialiser un domaine !!!!!!!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    SUBROUTINE wxios_domain_param(dom_id, is_sequential, ni, nj, ni_glo, nj_glo,        &
+                                    ibegin, iend, ii_begin, ii_end, jbegin, jend,       &
+                                    data_ni, data_ibegin, data_iend,                    &
+                                    io_lat, io_lon,is_south_pole,mpi_rank)
+         
+
+        USE print_control_mod, ONLY : prt_level, lunout
+        IMPLICIT NONE
+
+        CHARACTER(len=*),INTENT(IN) :: dom_id ! domain identifier
+        LOGICAL,INTENT(IN) :: is_sequential ! flag
+        INTEGER,INTENT(IN) :: ni ! local MPI domain number of longitudes
+        INTEGER,INTENT(IN) :: nj ! local MPI domain number of latitudes
+        INTEGER,INTENT(IN) :: ni_glo ! global grid number of longitudes
+        INTEGER,INTENT(IN) :: nj_glo ! global grid number of latitudes
+        INTEGER,INTENT(IN) :: ibegin ! start index, on global grid, of local MPI domain 
+        INTEGER,INTENT(IN) :: iend ! end index, on global grid, of local MPI domain
+        INTEGER,INTENT(IN) :: ii_begin ! i index at which local data starts (first row)
+        INTEGER,INTENT(IN) :: ii_end ! i index at which local data ends (last row)
+        INTEGER,INTENT(IN) :: jbegin ! start index, on global grid, of local MPI domain 
+        INTEGER,INTENT(IN) :: jend ! end index, on global grid, of local MPI domain
+        INTEGER,INTENT(IN) :: data_ni
+        INTEGER,INTENT(IN) :: data_ibegin
+        INTEGER,INTENT(IN) :: data_iend
+        REAL,INTENT(IN) :: io_lat(:) ! latitudes (of global grid)
+        REAL,INTENT(IN) :: io_lon(:) ! longitudes (of global grid)
+        logical,intent(in) :: is_south_pole ! does this process include the south pole?
+        integer,intent(in) :: mpi_rank ! rank of process
+        
+        TYPE(xios_domain) :: dom
+        LOGICAL :: boool
+        
+        !Masque pour les problèmes de recouvrement MPI:
+        LOGICAL :: mask(ni,nj)
+        
+        !On récupère le handle:
+        CALL xios_get_domain_handle(dom_id, dom)
+        
+        IF (prt_level >= 10) THEN
+          WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," ni:",ni," ni_glo:", ni_glo, " nj:", nj, " nj_glo:", nj_glo
+          WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," ibegin:",ibegin," iend:", iend, " jbegin:", jbegin, " jend:", jend
+          WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," ii_begin:",ii_begin," ii_end:", ii_end
+          WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," Size io_lon:", SIZE(io_lon(ibegin:iend)), " io_lat:", SIZE(io_lat(jbegin:jend))
+        ENDIF
+        
+        !On parametrise le domaine:
+#ifdef XIOS1
+        CALL xios_set_domain_attr_hdl(dom, ni_glo=ni_glo, ibegin=ibegin, ni=ni)
+        CALL xios_set_domain_attr_hdl(dom, nj_glo=nj_glo, jbegin=jbegin, nj=nj, data_dim=2)
+        CALL xios_set_domain_attr_hdl(dom, lonvalue=io_lon(ibegin:iend), latvalue=io_lat(jbegin:jend))
+#else
+        CALL xios_set_domain_attr_hdl(dom, ni_glo=ni_glo, ibegin=ibegin-1, ni=ni, type="rectilinear")
+        CALL xios_set_domain_attr_hdl(dom, nj_glo=nj_glo, jbegin=jbegin-1, nj=nj, data_dim=2)
+        CALL xios_set_domain_attr_hdl(dom, lonvalue_1d=io_lon(ibegin:iend), latvalue_1d=io_lat(jbegin:jend))
+#endif
+        IF (.NOT.is_sequential) THEN
+            mask(:,:)=.TRUE.
+            if (ii_begin>1) mask(1:ii_begin-1,1) = .FALSE.
+            if (ii_end<ni) mask(ii_end+1:ni,nj) = .FALSE.
+            ! special case for south pole
+            if ((ii_end.eq.1).and.(is_south_pole)) mask(1:ni,nj)=.true.
+            IF (prt_level >= 10) THEN
+              WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," mask(:,1)=",mask(:,1)
+              WRITE(lunout,*) "wxios_domain_param: mpirank=",mpi_rank," mask(:,nj)=",mask(:,nj)
+            ENDIF
+#ifdef XIOS1
+            CALL xios_set_domain_attr_hdl(dom, mask=mask)
+#else
+            CALL xios_set_domain_attr_hdl(dom, mask_2d=mask)
+#endif
+        END IF
+
+         CALL xios_is_defined_domain_attr_hdl(dom,ni_glo=boool)
+        !Vérification:
+        IF (xios_is_valid_domain(dom_id)) THEN
+            IF (prt_level >= 10) WRITE(lunout,*) "wxios_domain_param: Domain initialized: ", trim(dom_id), boool
+        ELSE
+            IF (prt_level >= 10) WRITE(lunout,*) "wxios_domain_param: Invalid domain: ", trim(dom_id)
+        END IF
+    END SUBROUTINE wxios_domain_param
+    
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Pour déclarer un axe vertical !!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    SUBROUTINE wxios_add_vaxis(axis_id, axis_size, axis_value)
+        USE print_control_mod, ONLY : prt_level, lunout
+        IMPLICIT NONE
+
+        CHARACTER (len=*), INTENT(IN) :: axis_id
+        INTEGER, INTENT(IN) :: axis_size
+        REAL, DIMENSION(axis_size), INTENT(IN) :: axis_value
+        
+!        TYPE(xios_axisgroup) :: axgroup
+!        TYPE(xios_axis) :: ax
+!        CHARACTER(len=50) :: axis_id 
+        
+!        IF (len_trim(axisgroup_id).gt.len(axis_id)) THEN
+!          WRITE(lunout,*) "wxios_add_vaxis: error, size of axis_id too small!!"
+!          WRITE(lunout,*) "     increase it to at least ",len_trim(axisgroup_id)
+!          CALL abort_gcm("wxios_add_vaxis","len(axis_id) too small",1)
+!        ENDIF
+!        axis_id=trim(axisgroup_id)
+        
+        !On récupère le groupe d'axes qui va bien:
+        !CALL xios_get_axisgroup_handle(axisgroup_id, axgroup)
+        
+        !On ajoute l'axe correspondant à ce fichier:
+        !CALL xios_add_axis(axgroup, ax, TRIM(ADJUSTL(axis_id)))
+        
+        !Et on le parametrise:
+        !CALL xios_set_axis_attr_hdl(ax, size=axis_size, value=axis_value)
+        
+        ! Ehouarn: New way to declare axis, without axis_group:
+#ifdef XIOS1
+        CALL xios_set_axis_attr(trim(axis_id),size=axis_size,value=axis_value)
+#else
+        CALL xios_set_axis_attr(trim(axis_id),n_glo=axis_size,value=axis_value)
+#endif        
+        !Vérification:
+        IF (xios_is_valid_axis(TRIM(ADJUSTL(axis_id)))) THEN
+            IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_vaxis: Axis created: ", TRIM(ADJUSTL(axis_id))
+        ELSE
+            WRITE(lunout,*) "wxios_add_vaxis: Invalid axis: ", TRIM(ADJUSTL(axis_id))
+        END IF
+
+    END SUBROUTINE wxios_add_vaxis
+    
+    
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Pour déclarer un fichier  !!!!!!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    SUBROUTINE wxios_add_file(fname, ffreq, flvl)
+        USE print_control_mod, ONLY : prt_level, lunout
+        IMPLICIT NONE
+
+        CHARACTER(len=*), INTENT(IN) :: fname
+        CHARACTER(len=*), INTENT(IN) :: ffreq
+        INTEGER, INTENT(IN) :: flvl
+        
+        TYPE(xios_file) :: x_file
+        TYPE(xios_filegroup) :: x_fg
+#ifdef XIOS1
+        CHARACTER(len=100) :: nffreq
+#else
+        TYPE(xios_duration) :: nffreq
+#endif
+        
+        !On regarde si le fichier n'est pas défini par XML:
+        IF (.NOT.xios_is_valid_file(fname)) THEN
+            !On créé le noeud:
+            CALL xios_get_filegroup_handle("defile", x_fg)
+            CALL xios_add_file(x_fg, x_file, fname)
+        
+            !On reformate la fréquence:
+            CALL reformadate(ffreq, nffreq)
+        
+            !On configure:
+#ifdef XIOS1
+            CALL xios_set_file_attr_hdl(x_file, name="X"//fname,&
+                output_freq=TRIM(ADJUSTL(nffreq)), output_level=flvl, enabled=.TRUE.)
+#else
+            CALL xios_set_file_attr_hdl(x_file, name="X"//fname,&
+                output_freq=nffreq, output_level=flvl, enabled=.TRUE.)
+#endif
+       
+            IF (xios_is_valid_file("X"//fname)) THEN
+                IF (prt_level >= 10) THEN
+                  WRITE(lunout,*) "wxios_add_file: New file: ", "X"//fname
+#ifdef XIOS1
+                  WRITE(lunout,*) "wxios_add_file: output_freq=",TRIM(ADJUSTL(nffreq)),"; output_lvl=",flvl
+#else
+                  WRITE(lunout,*) "wxios_add_file: output_freq=",nffreq,"; output_lvl=",flvl
+#endif
+                ENDIF
+            ELSE
+                WRITE(lunout,*) "wxios_add_file: Error, invalid file: ", "X"//trim(fname)
+#ifdef XIOS1
+                WRITE(lunout,*) "wxios_add_file: output_freq=",TRIM(ADJUSTL(nffreq)),"; output_lvl=",flvl
+#else
+                WRITE(lunout,*) "wxios_add_file: output_freq=",nffreq,"; output_lvl=",flvl
+#endif
+            END IF
+        ELSE
+            IF (prt_level >= 10) THEN
+              WRITE(lunout,*) "wxios_add_file: File ",trim(fname), " défined using XML."
+            ENDIF
+            ! Ehouarn: add an enable=.true. on top of xml definitions... why???
+            CALL xios_set_file_attr(fname, enabled=.TRUE.)
+        END IF
+    END SUBROUTINE wxios_add_file
+    
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Pour créer un champ      !!!!!!!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    SUBROUTINE wxios_add_field(fieldname, fieldgroup, fieldlongname, fieldunit)
+        USE netcdf, only: nf90_fill_real
+
+        IMPLICIT NONE
+        INCLUDE 'iniprint.h'
+        
+        CHARACTER(len=*), INTENT(IN) :: fieldname
+        TYPE(xios_fieldgroup), INTENT(IN) :: fieldgroup
+        CHARACTER(len=*), INTENT(IN) :: fieldlongname
+        CHARACTER(len=*), INTENT(IN) :: fieldunit
+        
+        TYPE(xios_field) :: field
+        CHARACTER(len=10) :: newunit
+        REAL(KIND=8) :: def
+        
+        !La valeur par défaut des champs non définis:
+        def = nf90_fill_real
+        
+        IF (fieldunit .EQ. " ") THEN
+            newunit = "-"
+        ELSE
+            newunit = fieldunit
+        ENDIF
+        
+        !On ajoute le champ:
+        CALL xios_add_field(fieldgroup, field, fieldname)
+        !IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_field: ",fieldname,fieldgroup, fieldlongname, fieldunit
+        
+        !On rentre ses paramètres:
+        CALL xios_set_field_attr_hdl(field, standard_name=fieldlongname, unit=newunit, default_value=def)
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_field: Field ",trim(fieldname), "cree:"
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_field: long_name=",trim(fieldlongname),"; unit=",trim(newunit),";  default_value=",nf90_fill_real
+
+    END SUBROUTINE wxios_add_field
+    
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Pour déclarer un champ      !!!!!!!!!!!!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    SUBROUTINE wxios_add_field_to_file(fieldname, fdim, fid, fname, fieldlongname, fieldunit, field_level, op, nam_axvert)
+        USE print_control_mod, ONLY : prt_level, lunout
+        IMPLICIT NONE
+
+        CHARACTER(len=*), INTENT(IN) :: fieldname
+        INTEGER, INTENT(IN)          :: fdim, fid
+        CHARACTER(len=*), INTENT(IN) :: fname
+        CHARACTER(len=*), INTENT(IN) :: fieldlongname
+        CHARACTER(len=*), INTENT(IN) :: fieldunit
+        INTEGER, INTENT(IN)          :: field_level
+        CHARACTER(len=*), INTENT(IN) :: op
+        
+        CHARACTER(len=20) :: axis_id ! Ehouarn: dangerous...
+        CHARACTER(len=20), INTENT(IN), OPTIONAL :: nam_axvert
+        CHARACTER(len=100) :: operation
+        TYPE(xios_file) :: f
+        TYPE(xios_field) :: field
+        TYPE(xios_fieldgroup) :: fieldgroup
+#ifndef XIOS1
+        TYPE(xios_duration) :: freq_op
+#endif
+        LOGICAL :: bool=.FALSE.
+        INTEGER :: lvl =0
+        
+        
+        ! Ajout Abd pour NMC:
+        IF (fid.LE.6) THEN
+          axis_id="presnivs"
+        ELSE
+          axis_id="plev"
+        ENDIF
+ 
+        IF (PRESENT(nam_axvert)) THEN
+           axis_id=nam_axvert
+           print*,'nam_axvert=',axis_id
+        ENDIF
+        
+        !on prépare le nom de l'opération:
+        operation = reformaop(op)
+        
+        
+        !On selectionne le bon groupe de champs:
+        IF (fdim.EQ.2) THEN
+          CALL xios_get_fieldgroup_handle("fields_2D", fieldgroup)
+        ELSE
+          CALL xios_get_fieldgroup_handle("fields_3D", fieldgroup)
+        ENDIF
+        
+        !On regarde si le champ à déjà été créé ou non:
+        IF (xios_is_valid_field(fieldname) .AND. .NOT. g_field_name == fieldname) THEN
+            !Si ce champ existe via XML (ie, dès le premier passage, ie g_field_name != fieldname) alors rien d'autre à faire
+            IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_field_to_file: Field ", trim(fieldname), "exists via XML"
+            g_flag_xml = .TRUE.
+            g_field_name = fieldname
+
+        ELSE IF (.NOT. g_field_name == fieldname) THEN
+            !Si premier pssage et champ indéfini, alors on le créé
+
+            IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_field_to_file: Field ", trim(fieldname), "does not exist"
+            
+            !On le créé:
+            CALL wxios_add_field(fieldname,  fieldgroup, fieldlongname, fieldunit)
+            IF (xios_is_valid_field(fieldname)) THEN
+                IF (prt_level >= 10) WRITE(lunout,*) "wxios_add_field_to_file: Field ", trim(fieldname), "created"
+            ENDIF
+
+            g_flag_xml = .FALSE.
+            g_field_name = fieldname
+
+        END IF
+
+        IF (.NOT. g_flag_xml) THEN
+            !Champ existe déjà, mais pas XML, alors on l'ajoute
+            !On ajoute le champ:
+            CALL xios_get_file_handle(fname, f)
+            CALL xios_add_fieldtofile(f, field)
+            
+            
+            !L'operation, sa frequence:
+#ifdef XIOS1
+            CALL xios_set_field_attr_hdl(field, field_ref=fieldname, operation=TRIM(ADJUSTL(operation)), freq_op="1ts", prec=4)
+#else
+            freq_op%timestep=1
+            CALL xios_set_field_attr_hdl(field, field_ref=fieldname, operation=TRIM(ADJUSTL(operation)), freq_op=freq_op, prec=4)
+#endif
+
+            
+            !On rentre ses paramètres:
+            CALL xios_set_field_attr_hdl(field, level=field_level, enabled=.TRUE.)
+            
+            IF (fdim.EQ.2) THEN
+                !Si c'est un champ 2D:
+                IF (prt_level >= 10) THEN
+                  WRITE(lunout,*) "wxios_add_field_to_file: 2D Field ", trim(fieldname), " in ", "X"//trim(fname) ," configured with:"
+                  WRITE(lunout,*) "wxios_add_field_to_file: op=", TRIM(ADJUSTL(operation))
+                  WRITE(lunout,*) "wxios_add_field_to_file: freq_op=1ts","; lvl=",field_level
+                ENDIF
+            ELSE
+                !Si 3D :
+                !On ajoute l'axe vertical qui va bien:
+                CALL xios_set_field_attr_hdl(field, axis_ref=TRIM(ADJUSTL(axis_id)))
+                
+                IF (prt_level >= 10) THEN
+                  WRITE(lunout,*) "wxios_add_field_to_file: 3D Field",trim(fieldname), " in ", "X"//trim(fname), "configured with:"
+                  WRITE(lunout,*) "wxios_add_field_to_file: freq_op=1ts","; lvl=",field_level
+                  WRITE(lunout,*) "wxios_add_field_to_file: axis=",TRIM(ADJUSTL(axis_id))
+                ENDIF
+            END IF
+        
+        ELSE
+            !Sinon on se contente de l'activer:
+            CALL xios_set_field_attr(fieldname, enabled=.TRUE.)
+            !NB: This will override an enable=.false. set by a user in the xml file;
+            !   then the only way to not output the field is by changing its
+            !   output level
+        ENDIF       
+        
+    END SUBROUTINE wxios_add_field_to_file
+    
+!    SUBROUTINE wxios_update_calendar(ito)
+!        INTEGER, INTENT(IN) :: ito
+!        CALL xios_update_calendar(ito)
+!    END SUBROUTINE wxios_update_calendar
+!    
+!    SUBROUTINE wxios_write_2D(fieldname, fdata)
+!        CHARACTER(len=*), INTENT(IN) :: fieldname
+!        REAL, DIMENSION(:,:), INTENT(IN) :: fdata
+!
+!        CALL xios_send_field(fieldname, fdata)
+!    END SUBROUTINE wxios_write_2D
+    
+!    SUBROUTINE wxios_write_3D(fieldname, fdata)
+!        CHARACTER(len=*), INTENT(IN) :: fieldname
+!        REAL, DIMENSION(:,:,:), INTENT(IN) :: fdata
+!        
+!        CALL xios_send_field(fieldname, fdata)
+!    END SUBROUTINE wxios_write_3D
+    
+    SUBROUTINE wxios_closedef()
+        CALL xios_close_context_definition()
+!        CALL xios_update_calendar(0)
+    END SUBROUTINE wxios_closedef
+    
+    SUBROUTINE wxios_close()
+        CALL xios_context_finalize()
+         CALL xios_finalize()
+     END SUBROUTINE wxios_close
+END MODULE wxios
+#endif
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xercnt.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xercnt.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xercnt.F	(revision 3330)
@@ -0,0 +1,62 @@
+*DECK XERCNT
+      SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  XERCNT
+C***SUBSIDIARY
+C***PURPOSE  Allow user control over handling of errors.
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3C
+C***TYPE      ALL (XERCNT-A)
+C***KEYWORDS  ERROR, XERROR
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C     Abstract
+C        Allows user control over handling of individual errors.
+C        Just after each message is recorded, but before it is
+C        processed any further (i.e., before it is printed or
+C        a decision to abort is made), a call is made to XERCNT.
+C        If the user has provided his own version of XERCNT, he
+C        can then override the value of KONTROL used in processing
+C        this message by redefining its value.
+C        KONTRL may be set to any value from -2 to 2.
+C        The meanings for KONTRL are the same as in XSETF, except
+C        that the value of KONTRL changes only for this message.
+C        If KONTRL is set to a value outside the range from -2 to 2,
+C        it will be moved back into that range.
+C
+C     Description of Parameters
+C
+C      --Input--
+C        LIBRAR - the library that the routine is in.
+C        SUBROU - the subroutine that XERMSG is being called from
+C        MESSG  - the first 20 characters of the error message.
+C        NERR   - same as in the call to XERMSG.
+C        LEVEL  - same as in the call to XERMSG.
+C        KONTRL - the current value of the control flag as set
+C                 by a call to XSETF.
+C
+C      --Output--
+C        KONTRL - the new value of KONTRL.  If KONTRL is not
+C                 defined, it will remain at its original value.
+C                 This changed value of control affects only
+C                 the current occurrence of the current message.
+C
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  (NONE)
+C***REVISION HISTORY  (YYMMDD)
+C   790801  DATE WRITTEN
+C   861211  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900206  Routine changed from user-callable to subsidiary.  (WRB)
+C   900510  Changed calling sequence to include LIBRARY and SUBROUTINE
+C           names, changed routine name from XERCTL to XERCNT.  (RWC)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  XERCNT
+      CHARACTER*(*) LIBRAR, SUBROU, MESSG
+      INTEGER NERR, LEVEL, KONTRL
+C***FIRST EXECUTABLE STATEMENT  XERCNT
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xerhlt.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xerhlt.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xerhlt.F	(revision 3330)
@@ -0,0 +1,39 @@
+*DECK XERHLT
+      SUBROUTINE XERHLT (MESSG)
+C***BEGIN PROLOGUE  XERHLT
+C***SUBSIDIARY
+C***PURPOSE  Abort program execution and print error message.
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3C
+C***TYPE      ALL (XERHLT-A)
+C***KEYWORDS  ABORT PROGRAM EXECUTION, ERROR, XERROR
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C     Abstract
+C        ***Note*** machine dependent routine
+C        XERHLT aborts the execution of the program.
+C        The error message causing the abort is given in the calling
+C        sequence, in case one needs it for printing on a dayfile,
+C        for example.
+C
+C     Description of Parameters
+C        MESSG is as in XERMSG.
+C
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  (NONE)
+C***REVISION HISTORY  (YYMMDD)
+C   790801  DATE WRITTEN
+C   861211  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900206  Routine changed from user-callable to subsidiary.  (WRB)
+C   900510  Changed calling sequence to delete length of character
+C           and changed routine name from XERABT to XERHLT.  (RWC)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  XERHLT
+      CHARACTER*(*) MESSG
+C***FIRST EXECUTABLE STATEMENT  XERHLT
+      STOP
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xermsg.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xermsg.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xermsg.F	(revision 3330)
@@ -0,0 +1,368 @@
+*DECK XERMSG
+      SUBROUTINE XERMSG (LIBRAR, SUBROU, MESSG, NERR, LEVEL)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  XERMSG
+C***PURPOSE  Process error messages for SLATEC and other libraries.
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3C
+C***TYPE      ALL (XERMSG-A)
+C***KEYWORDS  ERROR MESSAGE, XERROR
+C***AUTHOR  Fong, Kirby, (NMFECC at LLNL)
+C***DESCRIPTION
+C
+C   XERMSG processes a diagnostic message in a manner determined by the
+C   value of LEVEL and the current value of the library error control
+C   flag, KONTRL.  See subroutine XSETF for details.
+C
+C    LIBRAR   A character constant (or character variable) with the name
+C             of the library.  This will be 'SLATEC' for the SLATEC
+C             Common Math Library.  The error handling package is
+C             general enough to be used by many libraries
+C             simultaneously, so it is desirable for the routine that
+C             detects and reports an error to identify the library name
+C             as well as the routine name.
+C
+C    SUBROU   A character constant (or character variable) with the name
+C             of the routine that detected the error.  Usually it is the
+C             name of the routine that is calling XERMSG.  There are
+C             some instances where a user callable library routine calls
+C             lower level subsidiary routines where the error is
+C             detected.  In such cases it may be more informative to
+C             supply the name of the routine the user called rather than
+C             the name of the subsidiary routine that detected the
+C             error.
+C
+C    MESSG    A character constant (or character variable) with the text
+C             of the error or warning message.  In the example below,
+C             the message is a character constant that contains a
+C             generic message.
+C
+C                   CALL XERMSG ('SLATEC', 'MMPY',
+C                  *'THE ORDER OF THE MATRIX EXCEEDS THE ROW DIMENSION',
+C                  *3, 1)
+C
+C             It is possible (and is sometimes desirable) to generate a
+C             specific message--e.g., one that contains actual numeric
+C             values.  Specific numeric values can be converted into
+C             character strings using formatted WRITE statements into
+C             character variables.  This is called standard Fortran
+C             internal file I/O and is exemplified in the first three
+C             lines of the following example.  You can also catenate
+C             substrings of characters to construct the error message.
+C             Here is an example showing the use of both writing to
+C             an internal file and catenating character strings.
+C
+C                   CHARACTER*5 CHARN, CHARL
+C                   WRITE (CHARN,10) N
+C                   WRITE (CHARL,10) LDA
+C                10 FORMAT(I5)
+C                   CALL XERMSG ('SLATEC', 'MMPY', 'THE ORDER'//CHARN//
+C                  *   ' OF THE MATRIX EXCEEDS ITS ROW DIMENSION OF'//
+C                  *   CHARL, 3, 1)
+C
+C             There are two subtleties worth mentioning.  One is that
+C             the // for character catenation is used to construct the
+C             error message so that no single character constant is
+C             continued to the next line.  This avoids confusion as to
+C             whether there are trailing blanks at the end of the line.
+C             The second is that by catenating the parts of the message
+C             as an actual argument rather than encoding the entire
+C             message into one large character variable, we avoid
+C             having to know how long the message will be in order to
+C             declare an adequate length for that large character
+C             variable.  XERMSG calls XERPRN to print the message using
+C             multiple lines if necessary.  If the message is very long,
+C             XERPRN will break it into pieces of 72 characters (as
+C             requested by XERMSG) for printing on multiple lines.
+C             Also, XERMSG asks XERPRN to prefix each line with ' *  '
+C             so that the total line length could be 76 characters.
+C             Note also that XERPRN scans the error message backwards
+C             to ignore trailing blanks.  Another feature is that
+C             the substring '$$' is treated as a new line sentinel
+C             by XERPRN.  If you want to construct a multiline
+C             message without having to count out multiples of 72
+C             characters, just use '$$' as a separator.  '$$'
+C             obviously must occur within 72 characters of the
+C             start of each line to have its intended effect since
+C             XERPRN is asked to wrap around at 72 characters in
+C             addition to looking for '$$'.
+C
+C    NERR     An integer value that is chosen by the library routine's
+C             author.  It must be in the range -99 to 999 (three
+C             printable digits).  Each distinct error should have its
+C             own error number.  These error numbers should be described
+C             in the machine readable documentation for the routine.
+C             The error numbers need be unique only within each routine,
+C             so it is reasonable for each routine to start enumerating
+C             errors from 1 and proceeding to the next integer.
+C
+C    LEVEL    An integer value in the range 0 to 2 that indicates the
+C             level (severity) of the error.  Their meanings are
+C
+C            -1  A warning message.  This is used if it is not clear
+C                that there really is an error, but the user's attention
+C                may be needed.  An attempt is made to only print this
+C                message once.
+C
+C             0  A warning message.  This is used if it is not clear
+C                that there really is an error, but the user's attention
+C                may be needed.
+C
+C             1  A recoverable error.  This is used even if the error is
+C                so serious that the routine cannot return any useful
+C                answer.  If the user has told the error package to
+C                return after recoverable errors, then XERMSG will
+C                return to the Library routine which can then return to
+C                the user's routine.  The user may also permit the error
+C                package to terminate the program upon encountering a
+C                recoverable error.
+C
+C             2  A fatal error.  XERMSG will not return to its caller
+C                after it receives a fatal error.  This level should
+C                hardly ever be used; it is much better to allow the
+C                user a chance to recover.  An example of one of the few
+C                cases in which it is permissible to declare a level 2
+C                error is a reverse communication Library routine that
+C                is likely to be called repeatedly until it integrates
+C                across some interval.  If there is a serious error in
+C                the input such that another step cannot be taken and
+C                the Library routine is called again without the input
+C                error having been corrected by the caller, the Library
+C                routine will probably be called forever with improper
+C                input.  In this case, it is reasonable to declare the
+C                error to be fatal.
+C
+C    Each of the arguments to XERMSG is input; none will be modified by
+C    XERMSG.  A routine may make multiple calls to XERMSG with warning
+C    level messages; however, after a call to XERMSG with a recoverable
+C    error, the routine should return to the user.  Do not try to call
+C    XERMSG with a second recoverable error after the first recoverable
+C    error because the error package saves the error number.  The user
+C    can retrieve this error number by calling another entry point in
+C    the error handling package and then clear the error number when
+C    recovering from the error.  Calling XERMSG in succession causes the
+C    old error number to be overwritten by the latest error number.
+C    This is considered harmless for error numbers associated with
+C    warning messages but must not be done for error numbers of serious
+C    errors.  After a call to XERMSG with a recoverable error, the user
+C    must be given a chance to call NUMXER or XERCLR to retrieve or
+C    clear the error number.
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  FDUMP, J4SAVE, XERCNT, XERHLT, XERPRN, XERSVE
+C***REVISION HISTORY  (YYMMDD)
+C   880101  DATE WRITTEN
+C   880621  REVISED AS DIRECTED AT SLATEC CML MEETING OF FEBRUARY 1988.
+C           THERE ARE TWO BASIC CHANGES.
+C           1.  A NEW ROUTINE, XERPRN, IS USED INSTEAD OF XERPRT TO
+C               PRINT MESSAGES.  THIS ROUTINE WILL BREAK LONG MESSAGES
+C               INTO PIECES FOR PRINTING ON MULTIPLE LINES.  '$$' IS
+C               ACCEPTED AS A NEW LINE SENTINEL.  A PREFIX CAN BE
+C               ADDED TO EACH LINE TO BE PRINTED.  XERMSG USES EITHER
+C               ' ***' OR ' *  ' AND LONG MESSAGES ARE BROKEN EVERY
+C               72 CHARACTERS (AT MOST) SO THAT THE MAXIMUM LINE
+C               LENGTH OUTPUT CAN NOW BE AS GREAT AS 76.
+C           2.  THE TEXT OF ALL MESSAGES IS NOW IN UPPER CASE SINCE THE
+C               FORTRAN STANDARD DOCUMENT DOES NOT ADMIT THE EXISTENCE
+C               OF LOWER CASE.
+C   880708  REVISED AFTER THE SLATEC CML MEETING OF JUNE 29 AND 30.
+C           THE PRINCIPAL CHANGES ARE
+C           1.  CLARIFY COMMENTS IN THE PROLOGUES
+C           2.  RENAME XRPRNT TO XERPRN
+C           3.  REWORK HANDLING OF '$$' IN XERPRN TO HANDLE BLANK LINES
+C               SIMILAR TO THE WAY FORMAT STATEMENTS HANDLE THE /
+C               CHARACTER FOR NEW RECORDS.
+C   890706  REVISED WITH THE HELP OF FRED FRITSCH AND REG CLEMENS TO
+C           CLEAN UP THE CODING.
+C   890721  REVISED TO USE NEW FEATURE IN XERPRN TO COUNT CHARACTERS IN
+C           PREFIX.
+C   891013  REVISED TO CORRECT COMMENTS.
+C   891214  Prologue converted to Version 4.0 format.  (WRB)
+C   900510  Changed test on NERR to be -9999999 < NERR < 99999999, but
+C           NERR .ne. 0, and on LEVEL to be -2 < LEVEL < 3.  Added
+C           LEVEL=-1 logic, changed calls to XERSAV to XERSVE, and
+C           XERCTL to XERCNT.  (RWC)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  XERMSG
+      CHARACTER*(*) LIBRAR, SUBROU, MESSG
+      CHARACTER*8 XLIBR, XSUBR
+      CHARACTER*72  TEMP
+      CHARACTER*20  LFIRST
+      INTEGER NERR, LEVEL, LKNTRL
+      INTEGER J4SAVE, MAXMES, KDUMMY, I, KOUNT, LERR, LLEVEL
+      INTEGER MKNTRL, LTEMP
+C***FIRST EXECUTABLE STATEMENT  XERMSG
+      LKNTRL = J4SAVE (2, 0, .FALSE.)
+      MAXMES = J4SAVE (4, 0, .FALSE.)
+C
+C       LKNTRL IS A LOCAL COPY OF THE CONTROL FLAG KONTRL.
+C       MAXMES IS THE MAXIMUM NUMBER OF TIMES ANY PARTICULAR MESSAGE
+C          SHOULD BE PRINTED.
+C
+C       WE PRINT A FATAL ERROR MESSAGE AND TERMINATE FOR AN ERROR IN
+C          CALLING XERMSG.  THE ERROR NUMBER SHOULD BE POSITIVE,
+C          AND THE LEVEL SHOULD BE BETWEEN 0 AND 2.
+C
+      IF (NERR.LT.-9999999 .OR. NERR.GT.99999999 .OR. NERR.EQ.0 .OR.
+     *   LEVEL.LT.-1 .OR. LEVEL.GT.2) THEN
+         CALL XERPRN (' ***', -1, 'FATAL ERROR IN...$$ ' //
+     *      'XERMSG -- INVALID ERROR NUMBER OR LEVEL$$ '//
+     *      'JOB ABORT DUE TO FATAL ERROR.', 72)
+         CALL XERSVE (' ', ' ', ' ', 0, 0, 0, KDUMMY)
+         CALL XERHLT (' ***XERMSG -- INVALID INPUT')
+         RETURN
+      ENDIF
+C
+C       RECORD THE MESSAGE.
+C
+      I = J4SAVE (1, NERR, .TRUE.)
+      CALL XERSVE (LIBRAR, SUBROU, MESSG, 1, NERR, LEVEL, KOUNT)
+C
+C       HANDLE PRINT-ONCE WARNING MESSAGES.
+C
+      IF (LEVEL.EQ.-1 .AND. KOUNT.GT.1) RETURN
+C
+C       ALLOW TEMPORARY USER OVERRIDE OF THE CONTROL FLAG.
+C
+      XLIBR  = LIBRAR
+      XSUBR  = SUBROU
+      LFIRST = MESSG
+      LERR   = NERR
+      LLEVEL = LEVEL
+      CALL XERCNT (XLIBR, XSUBR, LFIRST, LERR, LLEVEL, LKNTRL)
+C
+      LKNTRL = MAX(-2, MIN(2,LKNTRL))
+      MKNTRL = ABS(LKNTRL)
+C
+C       SKIP PRINTING IF THE CONTROL FLAG VALUE AS RESET IN XERCNT IS
+C       ZERO AND THE ERROR IS NOT FATAL.
+C
+      IF (LEVEL.LT.2 .AND. LKNTRL.EQ.0) GO TO 30
+      IF (LEVEL.EQ.0 .AND. KOUNT.GT.MAXMES) GO TO 30
+      IF (LEVEL.EQ.1 .AND. KOUNT.GT.MAXMES .AND. MKNTRL.EQ.1) GO TO 30
+      IF (LEVEL.EQ.2 .AND. KOUNT.GT.MAX(1,MAXMES)) GO TO 30
+C
+C       ANNOUNCE THE NAMES OF THE LIBRARY AND SUBROUTINE BY BUILDING A
+C       MESSAGE IN CHARACTER VARIABLE TEMP (NOT EXCEEDING 66 CHARACTERS)
+C       AND SENDING IT OUT VIA XERPRN.  PRINT ONLY IF CONTROL FLAG
+C       IS NOT ZERO.
+C
+      IF (LKNTRL .NE. 0) THEN
+         TEMP(1:21) = 'MESSAGE FROM ROUTINE '
+         I = MIN(LEN(SUBROU), 16)
+         TEMP(22:21+I) = SUBROU(1:I)
+         TEMP(22+I:33+I) = ' IN LIBRARY '
+         LTEMP = 33 + I
+         I = MIN(LEN(LIBRAR), 16)
+         TEMP(LTEMP+1:LTEMP+I) = LIBRAR (1:I)
+         TEMP(LTEMP+I+1:LTEMP+I+1) = '.'
+         LTEMP = LTEMP + I + 1
+         CALL XERPRN (' ***', -1, TEMP(1:LTEMP), 72)
+      ENDIF
+C
+C       IF LKNTRL IS POSITIVE, PRINT AN INTRODUCTORY LINE BEFORE
+C       PRINTING THE MESSAGE.  THE INTRODUCTORY LINE TELLS THE CHOICE
+C       FROM EACH OF THE FOLLOWING THREE OPTIONS.
+C       1.  LEVEL OF THE MESSAGE
+C              'INFORMATIVE MESSAGE'
+C              'POTENTIALLY RECOVERABLE ERROR'
+C              'FATAL ERROR'
+C       2.  WHETHER CONTROL FLAG WILL ALLOW PROGRAM TO CONTINUE
+C              'PROG CONTINUES'
+C              'PROG ABORTED'
+C       3.  WHETHER OR NOT A TRACEBACK WAS REQUESTED.  (THE TRACEBACK
+C           MAY NOT BE IMPLEMENTED AT SOME SITES, SO THIS ONLY TELLS
+C           WHAT WAS REQUESTED, NOT WHAT WAS DELIVERED.)
+C              'TRACEBACK REQUESTED'
+C              'TRACEBACK NOT REQUESTED'
+C       NOTICE THAT THE LINE INCLUDING FOUR PREFIX CHARACTERS WILL NOT
+C       EXCEED 74 CHARACTERS.
+C       WE SKIP THE NEXT BLOCK IF THE INTRODUCTORY LINE IS NOT NEEDED.
+C
+      IF (LKNTRL .GT. 0) THEN
+C
+C       THE FIRST PART OF THE MESSAGE TELLS ABOUT THE LEVEL.
+C
+         IF (LEVEL .LE. 0) THEN
+            TEMP(1:20) = 'INFORMATIVE MESSAGE,'
+            LTEMP = 20
+         ELSEIF (LEVEL .EQ. 1) THEN
+            TEMP(1:30) = 'POTENTIALLY RECOVERABLE ERROR,'
+            LTEMP = 30
+         ELSE
+            TEMP(1:12) = 'FATAL ERROR,'
+            LTEMP = 12
+         ENDIF
+C
+C       THEN WHETHER THE PROGRAM WILL CONTINUE.
+C
+         IF ((MKNTRL.EQ.2 .AND. LEVEL.GE.1) .OR.
+     *       (MKNTRL.EQ.1 .AND. LEVEL.EQ.2)) THEN
+            TEMP(LTEMP+1:LTEMP+14) = ' PROG ABORTED,'
+            LTEMP = LTEMP + 14
+         ELSE
+            TEMP(LTEMP+1:LTEMP+16) = ' PROG CONTINUES,'
+            LTEMP = LTEMP + 16
+         ENDIF
+C
+C       FINALLY TELL WHETHER THERE SHOULD BE A TRACEBACK.
+C
+         IF (LKNTRL .GT. 0) THEN
+            TEMP(LTEMP+1:LTEMP+20) = ' TRACEBACK REQUESTED'
+            LTEMP = LTEMP + 20
+         ELSE
+            TEMP(LTEMP+1:LTEMP+24) = ' TRACEBACK NOT REQUESTED'
+            LTEMP = LTEMP + 24
+         ENDIF
+         CALL XERPRN (' ***', -1, TEMP(1:LTEMP), 72)
+      ENDIF
+C
+C       NOW SEND OUT THE MESSAGE.
+C
+      CALL XERPRN (' *  ', -1, MESSG, 72)
+C
+C       IF LKNTRL IS POSITIVE, WRITE THE ERROR NUMBER AND REQUEST A
+C          TRACEBACK.
+C
+      IF (LKNTRL .GT. 0) THEN
+         WRITE (TEMP, '(''ERROR NUMBER = '', I8)') NERR
+         DO 10 I=16,22
+            IF (TEMP(I:I) .NE. ' ') GO TO 20
+   10    CONTINUE
+C
+   20    CALL XERPRN (' *  ', -1, TEMP(1:15) // TEMP(I:23), 72)
+         CALL FDUMP
+      ENDIF
+C
+C       IF LKNTRL IS NOT ZERO, PRINT A BLANK LINE AND AN END OF MESSAGE.
+C
+      IF (LKNTRL .NE. 0) THEN
+         CALL XERPRN (' *  ', -1, ' ', 72)
+         CALL XERPRN (' ***', -1, 'END OF MESSAGE', 72)
+         CALL XERPRN ('    ',  0, ' ', 72)
+      ENDIF
+C
+C       IF THE ERROR IS NOT FATAL OR THE ERROR IS RECOVERABLE AND THE
+C       CONTROL FLAG IS SET FOR RECOVERY, THEN RETURN.
+C
+   30 IF (LEVEL.LE.0 .OR. (LEVEL.EQ.1 .AND. MKNTRL.LE.1)) RETURN
+C
+C       THE PROGRAM WILL BE STOPPED DUE TO AN UNRECOVERED ERROR OR A
+C       FATAL ERROR.  PRINT THE REASON FOR THE ABORT AND THE ERROR
+C       SUMMARY IF THE CONTROL FLAG AND THE MAXIMUM ERROR COUNT PERMIT.
+C
+      IF (LKNTRL.GT.0 .AND. KOUNT.LT.MAX(1,MAXMES)) THEN
+         IF (LEVEL .EQ. 1) THEN
+            CALL XERPRN
+     *         (' ***', -1, 'JOB ABORT DUE TO UNRECOVERED ERROR.', 72)
+         ELSE
+            CALL XERPRN(' ***', -1, 'JOB ABORT DUE TO FATAL ERROR.', 72)
+         ENDIF
+         CALL XERSVE (' ', ' ', ' ', -1, 0, 0, KDUMMY)
+         CALL XERHLT (' ')
+      ELSE
+         CALL XERHLT (MESSG)
+      ENDIF
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xerprn.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xerprn.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xerprn.F	(revision 3330)
@@ -0,0 +1,231 @@
+*DECK XERPRN
+      SUBROUTINE XERPRN (PREFIX, NPREF, MESSG, NWRAP)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  XERPRN
+C***SUBSIDIARY
+C***PURPOSE  Print error messages processed by XERMSG.
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3C
+C***TYPE      ALL (XERPRN-A)
+C***KEYWORDS  ERROR MESSAGES, PRINTING, XERROR
+C***AUTHOR  Fong, Kirby, (NMFECC at LLNL)
+C***DESCRIPTION
+C
+C This routine sends one or more lines to each of the (up to five)
+C logical units to which error messages are to be sent.  This routine
+C is called several times by XERMSG, sometimes with a single line to
+C print and sometimes with a (potentially very long) message that may
+C wrap around into multiple lines.
+C
+C PREFIX  Input argument of type CHARACTER.  This argument contains
+C         characters to be put at the beginning of each line before
+C         the body of the message.  No more than 16 characters of
+C         PREFIX will be used.
+C
+C NPREF   Input argument of type INTEGER.  This argument is the number
+C         of characters to use from PREFIX.  If it is negative, the
+C         intrinsic function LEN is used to determine its length.  If
+C         it is zero, PREFIX is not used.  If it exceeds 16 or if
+C         LEN(PREFIX) exceeds 16, only the first 16 characters will be
+C         used.  If NPREF is positive and the length of PREFIX is less
+C         than NPREF, a copy of PREFIX extended with blanks to length
+C         NPREF will be used.
+C
+C MESSG   Input argument of type CHARACTER.  This is the text of a
+C         message to be printed.  If it is a long message, it will be
+C         broken into pieces for printing on multiple lines.  Each line
+C         will start with the appropriate prefix and be followed by a
+C         piece of the message.  NWRAP is the number of characters per
+C         piece; that is, after each NWRAP characters, we break and
+C         start a new line.  In addition the characters '$$' embedded
+C         in MESSG are a sentinel for a new line.  The counting of
+C         characters up to NWRAP starts over for each new line.  The
+C         value of NWRAP typically used by XERMSG is 72 since many
+C         older error messages in the SLATEC Library are laid out to
+C         rely on wrap-around every 72 characters.
+C
+C NWRAP   Input argument of type INTEGER.  This gives the maximum size
+C         piece into which to break MESSG for printing on multiple
+C         lines.  An embedded '$$' ends a line, and the count restarts
+C         at the following character.  If a line break does not occur
+C         on a blank (it would split a word) that word is moved to the
+C         next line.  Values of NWRAP less than 16 will be treated as
+C         16.  Values of NWRAP greater than 132 will be treated as 132.
+C         The actual line length will be NPREF + NWRAP after NPREF has
+C         been adjusted to fall between 0 and 16 and NWRAP has been
+C         adjusted to fall between 16 and 132.
+C
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  I1MACH, XGETUA
+C***REVISION HISTORY  (YYMMDD)
+C   880621  DATE WRITTEN
+C   880708  REVISED AFTER THE SLATEC CML SUBCOMMITTEE MEETING OF
+C           JUNE 29 AND 30 TO CHANGE THE NAME TO XERPRN AND TO REWORK
+C           THE HANDLING OF THE NEW LINE SENTINEL TO BEHAVE LIKE THE
+C           SLASH CHARACTER IN FORMAT STATEMENTS.
+C   890706  REVISED WITH THE HELP OF FRED FRITSCH AND REG CLEMENS TO
+C           STREAMLINE THE CODING AND FIX A BUG THAT CAUSED EXTRA BLANK
+C           LINES TO BE PRINTED.
+C   890721  REVISED TO ADD A NEW FEATURE.  A NEGATIVE VALUE OF NPREF
+C           CAUSES LEN(PREFIX) TO BE USED AS THE LENGTH.
+C   891013  REVISED TO CORRECT ERROR IN CALCULATING PREFIX LENGTH.
+C   891214  Prologue converted to Version 4.0 format.  (WRB)
+C   900510  Added code to break messages between words.  (RWC)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  XERPRN
+      CHARACTER*(*) PREFIX, MESSG
+      INTEGER NPREF, NWRAP
+      CHARACTER*148 CBUFF
+      INTEGER IU(5), NUNIT
+      CHARACTER*2 NEWLIN
+      PARAMETER (NEWLIN = '$$')
+      INTEGER N, I1MACH, I, LPREF, LWRAP, LENMSG, NEXTC
+      INTEGER LPIECE, IDELTA
+C***FIRST EXECUTABLE STATEMENT  XERPRN
+      CALL XGETUA(IU,NUNIT)
+C
+C       A ZERO VALUE FOR A LOGICAL UNIT NUMBER MEANS TO USE THE STANDARD
+C       ERROR MESSAGE UNIT INSTEAD.  I1MACH(4) RETRIEVES THE STANDARD
+C       ERROR MESSAGE UNIT.
+C
+      N = I1MACH(4)
+      DO 10 I=1,NUNIT
+         IF (IU(I) .EQ. 0) IU(I) = N
+   10 CONTINUE
+C
+C       LPREF IS THE LENGTH OF THE PREFIX.  THE PREFIX IS PLACED AT THE
+C       BEGINNING OF CBUFF, THE CHARACTER BUFFER, AND KEPT THERE DURING
+C       THE REST OF THIS ROUTINE.
+C
+      IF ( NPREF .LT. 0 ) THEN
+         LPREF = LEN(PREFIX)
+      ELSE
+         LPREF = NPREF
+      ENDIF
+      LPREF = MIN(16, LPREF)
+      IF (LPREF .NE. 0) CBUFF(1:LPREF) = PREFIX
+C
+C       LWRAP IS THE MAXIMUM NUMBER OF CHARACTERS WE WANT TO TAKE AT ONE
+C       TIME FROM MESSG TO PRINT ON ONE LINE.
+C
+      LWRAP = MAX(16, MIN(132, NWRAP))
+C
+C       SET LENMSG TO THE LENGTH OF MESSG, IGNORE ANY TRAILING BLANKS.
+C
+      LENMSG = LEN(MESSG)
+      N = LENMSG
+      DO 20 I=1,N
+         IF (MESSG(LENMSG:LENMSG) .NE. ' ') GO TO 30
+         LENMSG = LENMSG - 1
+   20 CONTINUE
+   30 CONTINUE
+C
+C       IF THE MESSAGE IS ALL BLANKS, THEN PRINT ONE BLANK LINE.
+C
+      IF (LENMSG .EQ. 0) THEN
+         CBUFF(LPREF+1:LPREF+1) = ' '
+         DO 40 I=1,NUNIT
+            WRITE(IU(I), '(A)') CBUFF(1:LPREF+1)
+   40    CONTINUE
+         RETURN
+      ENDIF
+C
+C       SET NEXTC TO THE POSITION IN MESSG WHERE THE NEXT SUBSTRING
+C       STARTS.  FROM THIS POSITION WE SCAN FOR THE NEW LINE SENTINEL.
+C       WHEN NEXTC EXCEEDS LENMSG, THERE IS NO MORE TO PRINT.
+C       WE LOOP BACK TO LABEL 50 UNTIL ALL PIECES HAVE BEEN PRINTED.
+C
+C       WE LOOK FOR THE NEXT OCCURRENCE OF THE NEW LINE SENTINEL.  THE
+C       INDEX INTRINSIC FUNCTION RETURNS ZERO IF THERE IS NO OCCURRENCE
+C       OR IF THE LENGTH OF THE FIRST ARGUMENT IS LESS THAN THE LENGTH
+C       OF THE SECOND ARGUMENT.
+C
+C       THERE ARE SEVERAL CASES WHICH SHOULD BE CHECKED FOR IN THE
+C       FOLLOWING ORDER.  WE ARE ATTEMPTING TO SET LPIECE TO THE NUMBER
+C       OF CHARACTERS THAT SHOULD BE TAKEN FROM MESSG STARTING AT
+C       POSITION NEXTC.
+C
+C       LPIECE .EQ. 0   THE NEW LINE SENTINEL DOES NOT OCCUR IN THE
+C                       REMAINDER OF THE CHARACTER STRING.  LPIECE
+C                       SHOULD BE SET TO LWRAP OR LENMSG+1-NEXTC,
+C                       WHICHEVER IS LESS.
+C
+C       LPIECE .EQ. 1   THE NEW LINE SENTINEL STARTS AT MESSG(NEXTC:
+C                       NEXTC).  LPIECE IS EFFECTIVELY ZERO, AND WE
+C                       PRINT NOTHING TO AVOID PRODUCING UNNECESSARY
+C                       BLANK LINES.  THIS TAKES CARE OF THE SITUATION
+C                       WHERE THE LIBRARY ROUTINE HAS A MESSAGE OF
+C                       EXACTLY 72 CHARACTERS FOLLOWED BY A NEW LINE
+C                       SENTINEL FOLLOWED BY MORE CHARACTERS.  NEXTC
+C                       SHOULD BE INCREMENTED BY 2.
+C
+C       LPIECE .GT. LWRAP+1  REDUCE LPIECE TO LWRAP.
+C
+C       ELSE            THIS LAST CASE MEANS 2 .LE. LPIECE .LE. LWRAP+1
+C                       RESET LPIECE = LPIECE-1.  NOTE THAT THIS
+C                       PROPERLY HANDLES THE END CASE WHERE LPIECE .EQ.
+C                       LWRAP+1.  THAT IS, THE SENTINEL FALLS EXACTLY
+C                       AT THE END OF A LINE.
+C
+      NEXTC = 1
+   50 LPIECE = INDEX(MESSG(NEXTC:LENMSG), NEWLIN)
+      IF (LPIECE .EQ. 0) THEN
+C
+C       THERE WAS NO NEW LINE SENTINEL FOUND.
+C
+         IDELTA = 0
+         LPIECE = MIN(LWRAP, LENMSG+1-NEXTC)
+         IF (LPIECE .LT. LENMSG+1-NEXTC) THEN
+            DO 52 I=LPIECE+1,2,-1
+               IF (MESSG(NEXTC+I-1:NEXTC+I-1) .EQ. ' ') THEN
+                  LPIECE = I-1
+                  IDELTA = 1
+                  GOTO 54
+               ENDIF
+   52       CONTINUE
+         ENDIF
+   54    CBUFF(LPREF+1:LPREF+LPIECE) = MESSG(NEXTC:NEXTC+LPIECE-1)
+         NEXTC = NEXTC + LPIECE + IDELTA
+      ELSEIF (LPIECE .EQ. 1) THEN
+C
+C       WE HAVE A NEW LINE SENTINEL AT MESSG(NEXTC:NEXTC+1).
+C       DON'T PRINT A BLANK LINE.
+C
+         NEXTC = NEXTC + 2
+         GO TO 50
+      ELSEIF (LPIECE .GT. LWRAP+1) THEN
+C
+C       LPIECE SHOULD BE SET DOWN TO LWRAP.
+C
+         IDELTA = 0
+         LPIECE = LWRAP
+         DO 56 I=LPIECE+1,2,-1
+            IF (MESSG(NEXTC+I-1:NEXTC+I-1) .EQ. ' ') THEN
+               LPIECE = I-1
+               IDELTA = 1
+               GOTO 58
+            ENDIF
+   56    CONTINUE
+   58    CBUFF(LPREF+1:LPREF+LPIECE) = MESSG(NEXTC:NEXTC+LPIECE-1)
+         NEXTC = NEXTC + LPIECE + IDELTA
+      ELSE
+C
+C       IF WE ARRIVE HERE, IT MEANS 2 .LE. LPIECE .LE. LWRAP+1.
+C       WE SHOULD DECREMENT LPIECE BY ONE.
+C
+         LPIECE = LPIECE - 1
+         CBUFF(LPREF+1:LPREF+LPIECE) = MESSG(NEXTC:NEXTC+LPIECE-1)
+         NEXTC  = NEXTC + LPIECE + 2
+      ENDIF
+C
+C       PRINT
+C
+      DO 60 I=1,NUNIT
+         WRITE(IU(I), '(A)') CBUFF(1:LPREF+LPIECE)
+   60 CONTINUE
+C
+      IF (NEXTC .LE. LENMSG) GO TO 50
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xersve.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xersve.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xersve.F	(revision 3330)
@@ -0,0 +1,159 @@
+*DECK XERSVE
+      SUBROUTINE XERSVE (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL,
+     +   ICOUNT)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  XERSVE
+C***SUBSIDIARY
+C***PURPOSE  Record that an error has occurred.
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3
+C***TYPE      ALL (XERSVE-A)
+C***KEYWORDS  ERROR, XERROR
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C *Usage:
+C
+C        INTEGER  KFLAG, NERR, LEVEL, ICOUNT
+C        CHARACTER * (len) LIBRAR, SUBROU, MESSG
+C
+C        CALL XERSVE (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, ICOUNT)
+C
+C *Arguments:
+C
+C        LIBRAR :IN    is the library that the message is from.
+C        SUBROU :IN    is the subroutine that the message is from.
+C        MESSG  :IN    is the message to be saved.
+C        KFLAG  :IN    indicates the action to be performed.
+C                      when KFLAG > 0, the message in MESSG is saved.
+C                      when KFLAG=0 the tables will be dumped and
+C                      cleared.
+C                      when KFLAG < 0, the tables will be dumped and
+C                      not cleared.
+C        NERR   :IN    is the error number.
+C        LEVEL  :IN    is the error severity.
+C        ICOUNT :OUT   the number of times this message has been seen,
+C                      or zero if the table has overflowed and does not
+C                      contain this message specifically.  When KFLAG=0,
+C                      ICOUNT will not be altered.
+C
+C *Description:
+C
+C   Record that this error occurred and possibly dump and clear the
+C   tables.
+C
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  I1MACH, XGETUA
+C***REVISION HISTORY  (YYMMDD)
+C   800319  DATE WRITTEN
+C   861211  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   900413  Routine modified to remove reference to KFLAG.  (WRB)
+C   900510  Changed to add LIBRARY NAME and SUBROUTINE to calling
+C           sequence, use IF-THEN-ELSE, make number of saved entries
+C           easily changeable, changed routine name from XERSAV to
+C           XERSVE.  (RWC)
+C   910626  Added LIBTAB and SUBTAB to SAVE statement.  (BKS)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  XERSVE
+      INTEGER,PARAMETER :: LENTAB=10
+      INTEGER LUN(5)
+      CHARACTER*(*) LIBRAR, SUBROU, MESSG
+      CHARACTER*8  LIBTAB(LENTAB), SUBTAB(LENTAB), LIB, SUB
+      CHARACTER*20 MESTAB(LENTAB), MES
+      DIMENSION NERTAB(LENTAB), LEVTAB(LENTAB), KOUNT(LENTAB)
+      SAVE LIBTAB, SUBTAB, MESTAB, NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
+      DATA KOUNTX/0/, NMSG/0/
+      INTEGER NERR,LEVEL,KONTRL
+      INTEGER NERTAB, LEVTAB, KOUNT, KOUNTX, NMSG
+      INTEGER KFLAG, ICOUNT, NUNIT, KUNIT, IUNIT, I1MACH, I
+C***FIRST EXECUTABLE STATEMENT  XERSVE
+C
+      IF (KFLAG.LE.0) THEN
+C
+C        Dump the table.
+C
+         IF (NMSG.EQ.0) RETURN
+C
+C        Print to each unit.
+C
+         CALL XGETUA (LUN, NUNIT)
+         DO 20 KUNIT = 1,NUNIT
+            IUNIT = LUN(KUNIT)
+            IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
+C
+C           Print the table header.
+C
+            WRITE (IUNIT,9000)
+C
+C           Print body of table.
+C
+            DO 10 I = 1,NMSG
+               WRITE (IUNIT,9010) LIBTAB(I), SUBTAB(I), MESTAB(I),
+     *            NERTAB(I),LEVTAB(I),KOUNT(I)
+   10       CONTINUE
+C
+C           Print number of other errors.
+C
+            IF (KOUNTX.NE.0) WRITE (IUNIT,9020) KOUNTX
+            WRITE (IUNIT,9030)
+   20    CONTINUE
+C
+C        Clear the error tables.
+C
+         IF (KFLAG.EQ.0) THEN
+            NMSG = 0
+            KOUNTX = 0
+         ENDIF
+      ELSE
+C
+C        PROCESS A MESSAGE...
+C        SEARCH FOR THIS MESSG, OR ELSE AN EMPTY SLOT FOR THIS MESSG,
+C        OR ELSE DETERMINE THAT THE ERROR TABLE IS FULL.
+C
+         LIB = LIBRAR
+         SUB = SUBROU
+         MES = MESSG
+         DO 30 I = 1,NMSG
+            IF (LIB.EQ.LIBTAB(I) .AND. SUB.EQ.SUBTAB(I) .AND.
+     *         MES.EQ.MESTAB(I) .AND. NERR.EQ.NERTAB(I) .AND.
+     *         LEVEL.EQ.LEVTAB(I)) THEN
+                  KOUNT(I) = KOUNT(I) + 1
+                  ICOUNT = KOUNT(I)
+                  RETURN
+            ENDIF
+   30    CONTINUE
+C
+         IF (NMSG.LT.LENTAB) THEN
+C
+C           Empty slot found for new message.
+C
+            NMSG = NMSG + 1
+            LIBTAB(I) = LIB
+            SUBTAB(I) = SUB
+            MESTAB(I) = MES
+            NERTAB(I) = NERR
+            LEVTAB(I) = LEVEL
+            KOUNT (I) = 1
+            ICOUNT    = 1
+         ELSE
+C
+C           Table is full.
+C
+            KOUNTX = KOUNTX+1
+            ICOUNT = 0
+         ENDIF
+      ENDIF
+      RETURN
+C
+C     Formats.
+C
+ 9000 FORMAT ('0          ERROR MESSAGE SUMMARY' /
+     +   ' LIBRARY    SUBROUTINE MESSAGE START             NERR',
+     +   '     LEVEL     COUNT')
+ 9010 FORMAT (1X,A,3X,A,3X,A,3I10)
+ 9020 FORMAT ('0OTHER ERRORS NOT INDIVIDUALLY TABULATED = ', I10)
+ 9030 FORMAT (1X)
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xgetua.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xgetua.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/misc/xgetua.F	(revision 3330)
@@ -0,0 +1,53 @@
+*DECK XGETUA
+      SUBROUTINE XGETUA (IUNITA, N)
+      IMPLICIT NONE
+C***BEGIN PROLOGUE  XGETUA
+C***PURPOSE  Return unit number(s) to which error messages are being
+C            sent.
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3C
+C***TYPE      ALL (XGETUA-A)
+C***KEYWORDS  ERROR, XERROR
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C     Abstract
+C        XGETUA may be called to determine the unit number or numbers
+C        to which error messages are being sent.
+C        These unit numbers may have been set by a call to XSETUN,
+C        or a call to XSETUA, or may be a default value.
+C
+C     Description of Parameters
+C      --Output--
+C        IUNIT - an array of one to five unit numbers, depending
+C                on the value of N.  A value of zero refers to the
+C                default unit, as defined by the I1MACH machine
+C                constant routine.  Only IUNIT(1),...,IUNIT(N) are
+C                defined by XGETUA.  The values of IUNIT(N+1),...,
+C                IUNIT(5) are not defined (for N .LT. 5) or altered
+C                in any way by XGETUA.
+C        N     - the number of units to which copies of the
+C                error messages are being sent.  N will be in the
+C                range from 1 to 5.
+C
+C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+C                 Error-handling Package, SAND82-0800, Sandia
+C                 Laboratories, 1982.
+C***ROUTINES CALLED  J4SAVE
+C***REVISION HISTORY  (YYMMDD)
+C   790801  DATE WRITTEN
+C   861211  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C   920501  Reformatted the REFERENCES section.  (WRB)
+C***END PROLOGUE  XGETUA
+      DIMENSION IUNITA(5)
+      INTEGER IUNITA, N, J4SAVE, INDEX, I
+C***FIRST EXECUTABLE STATEMENT  XGETUA
+      N = J4SAVE(5,0,.FALSE.)
+      DO 30 I=1,N
+         INDEX = I+4
+         IF (I.EQ.1) INDEX = 3
+         IUNITA(I) = J4SAVE(INDEX,0,.FALSE.)
+   30 CONTINUE
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/LIST.txt
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/LIST.txt	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/LIST.txt	(revision 3330)
@@ -0,0 +1,8 @@
+# File    last revison it was included in
+phylmd/ecrireg.F90            2320
+phylmd/ecribin.F90            2320
+phylmd/statto.h               2320
+phylmd/wstats.F90             2320
+phylmd/mkstat.F90             2320
+phylmd/inistats.F90           2320
+misc/regr1_step_av_m.F90      2439
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/ecribin.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/ecribin.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/ecribin.F90	(revision 3330)
@@ -0,0 +1,103 @@
+
+! $Header$
+
+SUBROUTINE ecribins(unit, pz)
+  USE dimphy
+  IMPLICIT NONE
+  ! -----------------------------------------------------------------------
+  include "dimensions.h"
+  ! ccc#include "dimphy.h"
+  include "paramet.h"
+  include "comgeom.h"
+
+  ! arguments:
+  ! ----------
+  INTEGER unit
+  REAL pz(klon)
+
+  ! local:
+  ! ------
+  INTEGER i, j, ig
+  REAL zz(iim+1, jjm+1)
+  ! -----------------------------------------------------------------------
+  ! passage a la grille dynamique:
+  ! ------------------------------
+  DO i = 1, iim + 1
+    zz(i, 1) = pz(1)
+    zz(i, jjm+1) = pz(klon)
+  END DO
+  ! traitement des point normaux
+  DO j = 2, jjm
+    ig = 2 + (j-2)*iim
+    CALL scopy(iim, pz(ig), 1, zz(1,j), 1)
+    zz(iim+1, j) = zz(1, j)
+  END DO
+  ! -----------------------------------------------------------------------
+#ifdef VPP
+  CALL ecriture(unit, zz, (iim+1)*(jjm+1))
+#else
+  WRITE (unit) zz
+#endif
+
+
+  RETURN
+END SUBROUTINE ecribins
+SUBROUTINE ecribina(unit, pz)
+  USE dimphy
+  IMPLICIT NONE
+  ! -----------------------------------------------------------------------
+  include "dimensions.h"
+  ! ccc#include "dimphy.h"
+  include "paramet.h"
+  include "comgeom.h"
+
+  ! arguments:
+  ! ----------
+  INTEGER unit
+  REAL pz(klon, klev)
+
+  ! local:
+  ! ------
+  INTEGER i, j, ilay, ig
+  REAL zz(iim+1, jjm+1, llm)
+  ! -----------------------------------------------------------------------
+  ! passage a la grille dynamique:
+  ! ------------------------------
+  DO ilay = 1, llm
+    ! traitement des poles
+    DO i = 1, iim + 1
+      zz(i, 1, ilay) = pz(1, ilay)
+      zz(i, jjm+1, ilay) = pz(klon, ilay)
+    END DO
+    ! traitement des point normaux
+    DO j = 2, jjm
+      ig = 2 + (j-2)*iim
+      CALL scopy(iim, pz(ig,ilay), 1, zz(1,j,ilay), 1)
+      zz(iim+1, j, ilay) = zz(1, j, ilay)
+    END DO
+  END DO
+  ! -----------------------------------------------------------------------
+  DO ilay = 1, llm
+#ifdef VPP
+    CALL ecriture(unit, zz(1,1,ilay), (iim+1)*(jjm+1))
+#else
+    WRITE (unit)((zz(i,j,ilay),i=1,iim+1), j=1, jjm+1)
+#endif
+  END DO
+
+  RETURN
+END SUBROUTINE ecribina
+#ifdef VPP
+@OPTIONS NODOUBLE
+SUBROUTINE ecriture(nunit, r8, n)
+  INTEGER nunit, n, i
+  REAL (KIND=8) r8(n)
+  REAL r4(n)
+
+  DO i = 1, n
+    r4(i) = r8(i)
+  END DO
+  WRITE (nunit) r4
+  RETURN
+END SUBROUTINE ecriture
+#endif
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/ecrireg.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/ecrireg.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/ecrireg.F90	(revision 3330)
@@ -0,0 +1,117 @@
+
+! $Header$
+
+SUBROUTINE ecriregs(unit, pz)
+  USE dimphy
+  IMPLICIT NONE
+  ! -----------------------------------------------------------------------
+  include "dimensions.h"
+  ! ccc#include "dimphy.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "regdim.h"
+
+  ! arguments:
+  ! ----------
+  INTEGER unit
+  REAL pz(klon)
+
+  ! local:
+  ! ------
+  INTEGER i, j, ig
+  REAL zz(iim, jjm+1)
+  INTEGER nleng
+  PARAMETER (nleng=(i2_fin-i2_deb+1+i1_fin-i1_deb+1)*(j_fin-j_deb+1))
+  REAL zzz(nleng)
+
+  ! -----------------------------------------------------------------------
+  ! passage a la grille dynamique:
+  ! ------------------------------
+  DO i = 1, iim
+    zz(i, 1) = pz(1)
+    zz(i, jjm+1) = pz(klon)
+  END DO
+
+  ! traitement des point normaux
+  DO j = 2, jjm
+    ig = 2 + (j-2)*iim
+    CALL scopy(iim, pz(ig), 1, zz(1,j), 1)
+  END DO
+  ! -----------------------------------------------------------------------
+  ig = 0
+  DO j = j_deb, j_fin
+    DO i = i1_deb, i1_fin
+      ig = ig + 1
+      zzz(ig) = zz(i, j)
+    END DO
+    DO i = i2_deb, i2_fin
+      ig = ig + 1
+      zzz(ig) = zz(i, j)
+    END DO
+  END DO
+#ifdef VPP
+  CALL ecriture(unit, zzz, nleng)
+#else
+  WRITE (unit) zzz
+#endif
+  RETURN
+END SUBROUTINE ecriregs
+SUBROUTINE ecrirega(unit, pz)
+  USE dimphy
+  IMPLICIT NONE
+  ! -----------------------------------------------------------------------
+  include "dimensions.h"
+  ! ccc#include "dimphy.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "regdim.h"
+
+  ! arguments:
+  ! ----------
+  INTEGER unit
+  REAL pz(klon, klev)
+
+  ! local:
+  ! ------
+  INTEGER i, j, ilay, ig
+  REAL zz(iim, jjm+1, llm)
+  INTEGER nleng
+  PARAMETER (nleng=(i2_fin-i2_deb+1+i1_fin-i1_deb+1)*(j_fin-j_deb+1))
+  REAL zzz(nleng)
+  ! -----------------------------------------------------------------------
+  ! passage a la grille dynamique:
+  ! ------------------------------
+  DO ilay = 1, llm
+    ! traitement des poles
+    DO i = 1, iim
+      zz(i, 1, ilay) = pz(1, ilay)
+      zz(i, jjm+1, ilay) = pz(klon, ilay)
+    END DO
+    ! traitement des point normaux
+    DO j = 2, jjm
+      ig = 2 + (j-2)*iim
+      CALL scopy(iim, pz(ig,ilay), 1, zz(1,j,ilay), 1)
+    END DO
+  END DO
+  ! -----------------------------------------------------------------------
+  DO ilay = 1, llm
+    ig = 0
+    DO j = j_deb, j_fin
+      DO i = i1_deb, i1_fin
+        ig = ig + 1
+        zzz(ig) = zz(i, j, ilay)
+      END DO
+      DO i = i2_deb, i2_fin
+        ig = ig + 1
+        zzz(ig) = zz(i, j, ilay)
+      END DO
+    END DO
+#ifdef VPP
+    CALL ecriture(unit, zzz, nleng)
+#else
+    WRITE (unit) zzz
+#endif
+  END DO
+
+  RETURN
+END SUBROUTINE ecrirega
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/inistats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/inistats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/inistats.F90	(revision 3330)
@@ -0,0 +1,128 @@
+SUBROUTINE inistats(ierr)
+
+  USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs,pseudoalt
+
+  IMPLICIT NONE
+
+  include "dimensions.h"
+  include "paramet.h"
+  include "comgeom.h"
+  include "comconst.h"
+  include "statto.h"
+  include "netcdf.inc"
+
+  INTEGER, INTENT (OUT) :: ierr
+  INTEGER :: nid
+  INTEGER :: l, nsteppd
+  REAL, DIMENSION (llm) :: sig_s
+  INTEGER :: idim_lat, idim_lon, idim_llm, idim_llmp1, idim_time
+  REAL, DIMENSION (istime) :: lt
+  INTEGER :: nvarid
+
+  WRITE (*, *)
+  WRITE (*, *) '                        || STATS ||'
+  WRITE (*, *)
+  WRITE (*, *) 'daysec', daysec
+  WRITE (*, *) 'dtphys', dtphys
+  nsteppd = nint(daysec/dtphys)
+  WRITE (*, *) 'nsteppd=', nsteppd
+  IF (abs(float(nsteppd)-daysec/dtphys)>1.E-8*daysec) &
+    STOP 'Dans Instat:  1jour .ne. n pas physiques'
+
+  IF (mod(nsteppd,istime)/=0) STOP &
+    'Dans Instat:  1jour .ne. n*istime pas physiques'
+
+  istats = nsteppd/istime
+  WRITE (*, *) 'istats=', istats
+  WRITE (*, *) 'Storing ', istime, 'times per day'
+  WRITE (*, *) 'thus every ', istats, 'physical timestep '
+  WRITE (*, *)
+
+  DO l = 1, llm
+    sig_s(l) = ((ap(l)+ap(l+1))/preff+bp(l)+bp(l+1))/2.
+  END DO
+
+  ierr = nf_create('stats.nc', nf_clobber, nid)
+  IF (ierr/=nf_noerr) THEN
+    WRITE (*, *) nf_strerror(ierr)
+    STOP ''
+  END IF
+
+  ierr = nf_def_dim(nid, 'latitude', jjp1, idim_lat)
+  ierr = nf_def_dim(nid, 'longitude', iip1, idim_lon)
+  ierr = nf_def_dim(nid, 'altitude', llm, idim_llm)
+  ierr = nf_def_dim(nid, 'llmp1', llm+1, idim_llmp1)
+  ierr = nf_def_dim(nid, 'Time', nf_unlimited, idim_time)
+
+  ierr = nf_enddef(nid)
+  CALL def_var_stats(nid, 'Time', 'Time', 'hours since 0000-00-0 00:00:00', &
+    1, idim_time, nvarid, ierr)
+  ! Time is initialised later by mkstats subroutine
+
+  CALL def_var_stats(nid, 'latitude', 'latitude', 'degrees_north', 1, &
+    idim_lat, nvarid, ierr)
+#ifdef NC_DOUBLE
+  ierr = nf_put_var_double(nid, nvarid, rlatu/pi*180)
+#else
+  ierr = nf_put_var_real(nid, nvarid, rlatu/pi*180)
+#endif
+  CALL def_var_stats(nid, 'longitude', 'East longitude', 'degrees_east', 1, &
+    idim_lon, nvarid, ierr)
+#ifdef NC_DOUBLE
+  ierr = nf_put_var_double(nid, nvarid, rlonv/pi*180)
+#else
+  ierr = nf_put_var_real(nid, nvarid, rlonv/pi*180)
+#endif
+
+  ! Niveaux verticaux, aps et bps
+  ierr = nf_redef(nid)
+  ! presnivs
+#ifdef NC_DOUBLE
+  ierr = nf_def_var(nid, 'presnivs', nf_double, 1, idim_llm, nvarid)
+#else
+  ierr = nf_def_var(nid, 'presnivs', nf_float, 1, idim_llm, nvarid)
+#endif
+  ierr = nf_put_att_text(nid, nvarid, 'long_name', 15, 'Vertical levels')
+  ierr = nf_put_att_text(nid, nvarid, 'units', 2, 'Pa')
+  ierr = nf_put_att_text(nid, nvarid, 'positive', 4, 'down')
+  ierr = nf_enddef(nid)
+#ifdef NC_DOUBLE
+  ierr = nf_put_var_double(nid, nvarid, presnivs(1:llm))
+#else
+  ierr = nf_put_var_real(nid, nvarid, presnivs(1:llm))
+#endif
+  ! Pseudo alts
+#ifdef NC_DOUBLE
+  ierr = nf_def_var(nid, 'altitude', nf_double, 1, idim_llm, nvarid)
+#else
+  ierr = nf_def_var(nid, 'altitude', nf_float, 1, idim_llm, nvarid)
+#endif
+  ierr = nf_put_att_text(nid, nvarid, 'long_name', 8, 'altitude')
+  ierr = nf_put_att_text(nid, nvarid, 'units', 2, 'km')
+  ierr = nf_put_att_text(nid, nvarid, 'positive', 2, 'up')
+  ierr = nf_enddef(nid)
+#ifdef NC_DOUBLE
+  ierr = nf_put_var_double(nid, nvarid, pseudoalt)
+#else
+  ierr = nf_put_var_real(nid, nvarid, pseudoalt)
+#endif
+  ! call def_var_stats(nid,"aps","hybrid pressure at midlayers"," ",
+  ! &            1,idim_llm,nvarid,ierr)
+  ! #ifdef NC_DOUBLE
+  ! ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,aps)
+  ! #else
+  ! ierr = NF_PUT_VAR_REAL (nid,nvarid,aps)
+  ! #endif
+
+  ! call def_var_stats(nid,"bps","hybrid sigma at midlayers"," ",
+  ! &            1,idim_llm,nvarid,ierr)
+  ! #ifdef NC_DOUBLE
+  ! ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,bps)
+  ! #else
+  ! ierr = NF_PUT_VAR_REAL (nid,nvarid,bps)
+  ! #endif
+
+  ierr = nf_close(nid)
+
+END SUBROUTINE inistats
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/mkstat.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/mkstat.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/mkstat.F90	(revision 3330)
@@ -0,0 +1,164 @@
+subroutine mkstats(ierr)
+
+ 
+!
+!  This program writes a stats.nc file from sums and sums of squares
+!  to means and standard deviations and also writes netcdf style
+!  file so that the data can be viewed easily.  The data file is
+!  overwritten in place.  
+!  SRL  21 May 1996
+!  Yann W. july 2003
+
+
+implicit none
+
+#include "dimensions.h"
+#include "statto.h"
+#include "netcdf.inc"
+
+integer,parameter :: iip1=iim+1
+integer,parameter :: jjp1=jjm+1
+integer :: ierr,nid,nbvar,i,ndims,lt,nvarid
+integer, dimension(4) :: id,varid,start,size
+integer, dimension(5) :: dimids
+character (len=50) :: name,nameout,units,title
+real, dimension(iip1,jjp1,llm) :: sum3d,square3d,mean3d,sd3d
+real, dimension(iip1,jjp1) :: sum2d,square2d,mean2d,sd2d
+real, dimension(istime) :: time
+real, dimension(jjp1) :: lat
+real, dimension(iip1) :: lon
+real, dimension(llm) :: alt
+logical :: lcopy=.true.
+!integer :: latid,lonid,altid,timeid
+integer :: meanid,sdid
+!integer, dimension(4) :: dimout
+
+! Incrementation of count for the last step, which is not done in wstats
+count(istime)=count(istime)+1
+
+ierr = NF_OPEN("stats.nc",NF_WRITE,nid)
+
+! We catch the id of dimensions of the stats file
+
+ierr= NF_INQ_DIMID(nid,"latitude",id(1))
+ierr= NF_INQ_DIMID(nid,"longitude",id(2))
+ierr= NF_INQ_DIMID(nid,"altitude",id(3))
+ierr= NF_INQ_DIMID(nid,"Time",id(4))
+
+ierr= NF_INQ_VARID(nid,"latitude",varid(1))
+ierr= NF_INQ_VARID(nid,"longitude",varid(2))
+ierr= NF_INQ_VARID(nid,"altitude",varid(3))
+ierr= NF_INQ_VARID(nid,"Time",varid(4))
+
+! Time initialisation
+
+do i=1,istime
+   time(i)=i*24./istime
+#ifdef NC_DOUBLE
+   ierr= NF_PUT_VARA_DOUBLE(nid,varid(4),i,1,time(i))
+#else
+   ierr= NF_PUT_VARA_REAL(nid,varid(4),i,1,time(i))
+#endif
+enddo
+
+! We catche the values of the variables
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,varid(1),lat)
+         ierr = NF_GET_VAR_DOUBLE(nid,varid(2),lon)
+         ierr = NF_GET_VAR_DOUBLE(nid,varid(3),alt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,varid(1),lat)
+         ierr = NF_GET_VAR_REAL(nid,varid(2),lon)
+         ierr = NF_GET_VAR_REAL(nid,varid(3),alt)
+#endif
+
+! We catch the number of variables in the stats file
+ierr = NF_INQ_NVARS(nid,nbvar)
+
+! to catche the "real" number of variables (without the "additionnal variables")
+nbvar=(nbvar-4)/2 
+
+do i=1,nbvar
+   varid=(i-1)*2+5
+
+   ! What's the variable's name?
+   ierr=NF_INQ_VARNAME(nid,varid,name)
+   write(*,*) "OK variable ",name
+   ! Its units?
+   units=" "
+   ierr=NF_GET_ATT_TEXT(nid,varid,"units",units)
+   ! Its title?
+   title=" "
+   ierr=NF_GET_ATT_TEXT(nid,varid,"title",title)
+   ! Its number of dimensions?   
+   ierr=NF_INQ_VARNDIMS(nid,varid,ndims)
+   ! Its values?
+
+   if(ndims==4) then ! lat, lon, alt & time
+
+!      dimout(1)=lonid
+!      dimout(2)=latid
+!      dimout(3)=altid
+!      dimout(4)=timeid
+
+      size=(/iip1,jjp1,llm,1/)
+      do lt=1,istime
+         start=(/1,1,1,lt/)
+         ! Extraction of the "source" variables
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VARA_DOUBLE(nid,varid,start,size,sum3d)
+         ierr = NF_GET_VARA_DOUBLE(nid,varid+1,start,size,square3d)
+#else
+         ierr = NF_GET_VARA_REAL(nid,varid,start,size,sum3d)
+         ierr = NF_GET_VARA_REAL(nid,varid+1,start,size,square3d)
+#endif
+         ! Calculation of these variables
+         mean3d=sum3d/count(lt)
+         sd3d=sqrt(max(0.,square3d/count(lt)-mean3d**2))
+         ! Writing of the variables
+#ifdef NC_DOUBLE
+         ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,size,mean3d)
+         ierr = NF_PUT_VARA_DOUBLE(nid,varid+1,start,size,sd3d)
+#else
+         ierr = NF_PUT_VARA_REAL(nid,varid,start,size,mean3d)
+         ierr = NF_PUT_VARA_REAL(nid,varid+1,start,size,sd3d)
+#endif
+      enddo
+
+    else if (ndims.eq.3) then
+
+!      dimout(1)=lonid
+!      dimout(2)=latid
+!      dimout(3)=timeid
+
+      size=(/iip1,jjp1,1,0/)
+      do lt=1,istime
+         start=(/1,1,lt,0/)
+         ! Extraction of the "source" variables
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VARA_DOUBLE(nid,varid,start,size,sum2d)
+         ierr = NF_GET_VARA_DOUBLE(nid,varid+1,start,size,square2d)
+#else
+         ierr = NF_GET_VARA_REAL(nid,varid,start,size,sum2d)
+         ierr = NF_GET_VARA_REAL(nid,varid+1,start,size,square2d)
+#endif
+         ! Calculation of these variables
+         mean2d=sum2d/count(lt)
+         sd2d=sqrt(max(0.,square2d/count(lt)-mean2d**2))
+         ! Writing of the variables
+#ifdef NC_DOUBLE
+         ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,size,mean2d)
+         ierr = NF_PUT_VARA_DOUBLE(nid,varid+1,start,size,sd2d)
+#else
+         ierr = NF_PUT_VARA_REAL(nid,varid,start,size,mean2d)
+         ierr = NF_PUT_VARA_REAL(nid,varid+1,start,size,sd2d)
+#endif
+      enddo
+
+    endif 
+enddo
+
+ierr= NF_CLOSE(nid)
+
+end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/regr1_step_av_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/regr1_step_av_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/regr1_step_av_m.F90	(revision 3330)
@@ -0,0 +1,268 @@
+! $Id$
+module regr1_step_av_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+  interface regr1_step_av
+
+     ! Each procedure regrids a step function by averaging it.
+     ! The regridding operation is done on the first dimension of the
+     ! input array.
+     ! Source grid contains edges of steps.
+     ! Target grid contains positions of cell edges.
+     ! The target grid should be included in the source grid: no
+     ! extrapolation is allowed.
+     ! The difference between the procedures is the rank of the first argument.
+
+     module procedure regr11_step_av, regr12_step_av, regr13_step_av, &
+          regr14_step_av
+  end interface
+
+  private
+  public regr1_step_av
+
+contains
+
+  function regr11_step_av(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 1.
+
+    use assert_eq_m, only: assert_eq
+    use assert_m, only: assert
+    use interpolation, only: locate
+
+    real, intent(in):: vs(:) ! values of steps on the source grid
+    ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
+
+    real, intent(in):: xs(:)
+    ! (edges of of steps on the source grid, in strictly increasing order)
+
+    real, intent(in):: xt(:)
+    ! (edges of cells of the target grid, in strictly increasing order)
+
+    real vt(size(xt) - 1) ! average values on the target grid
+    ! (Cell "it" is between "xt(it)" and "xt(it + 1)".)
+
+    ! Variables local to the procedure:
+    integer is, it, ns, nt
+    real left_edge
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs), size(xs) - 1, "regr11_step_av ns")
+    nt = size(xt) - 1
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr11_step_av xs bad order")
+    call assert(xt(1) < xt(2), "regr11_step_av xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr11_step_av extrapolation")
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       ! Compute "vt(it)":
+       left_edge = xt(it)
+       vt(it) = 0.
+       do while (xs(is + 1) < xt(it + 1))
+          ! 1 <= is <= ns - 1
+          vt(it) = vt(it) + (xs(is + 1) - left_edge) * vs(is)
+          is = is + 1
+          left_edge = xs(is)
+       end do
+       ! 1 <= is <= ns
+       vt(it) = (vt(it) + (xt(it + 1) - left_edge) * vs(is)) &
+            / (xt(it + 1) - xt(it))
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  end function regr11_step_av
+
+  !********************************************
+
+  function regr12_step_av(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 2.
+
+    use assert_eq_m, only: assert_eq
+    use assert_m, only: assert
+    use interpolation, only: locate
+
+    real, intent(in):: vs(:, :) ! values of steps on the source grid
+    ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
+
+    real, intent(in):: xs(:)
+    ! (edges of steps on the source grid, in strictly increasing order)
+
+    real, intent(in):: xt(:)
+    ! (edges of cells of the target grid, in strictly increasing order)
+
+    real vt(size(xt) - 1, size(vs, 2)) ! average values on the target grid
+    ! (Cell "it" is between "xt(it)" and "xt(it + 1)".)
+
+    ! Variables local to the procedure:
+    integer is, it, ns, nt
+    real left_edge
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs) - 1, "regr12_step_av ns")
+    nt = size(xt) - 1
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr12_step_av xs bad order")
+    call assert(xt(1) < xt(2), "regr12_step_av xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr12_step_av extrapolation")
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       ! Compute "vt(it, :)":
+       left_edge = xt(it)
+       vt(it, :) = 0.
+       do while (xs(is + 1) < xt(it + 1))
+          ! 1 <= is <= ns - 1
+          vt(it, :) = vt(it, :) + (xs(is + 1) - left_edge) * vs(is, :)
+          is = is + 1
+          left_edge = xs(is)
+       end do
+       ! 1 <= is <= ns
+       vt(it, :) = (vt(it, :) + (xt(it + 1) - left_edge) * vs(is, :)) &
+            / (xt(it + 1) - xt(it))
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  end function regr12_step_av
+
+  !********************************************
+
+  function regr13_step_av(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 3.
+
+    use assert_eq_m, only: assert_eq
+    use assert_m, only: assert
+    use interpolation, only: locate
+
+    real, intent(in):: vs(:, :, :) ! values of steps on the source grid
+    ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
+
+    real, intent(in):: xs(:)
+    ! (edges of steps on the source grid, in strictly increasing order)
+
+    real, intent(in):: xt(:)
+    ! (edges of cells of the target grid, in strictly increasing order)
+
+    real vt(size(xt) - 1, size(vs, 2), size(vs, 3)) 
+    ! (average values on the target grid)
+    ! (Cell "it" is between "xt(it)" and "xt(it + 1)".)
+
+    ! Variables local to the procedure:
+    integer is, it, ns, nt
+    real left_edge
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs) - 1, "regr13_step_av ns")
+    nt = size(xt) - 1
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr13_step_av xs bad order")
+    call assert(xt(1) < xt(2), "regr13_step_av xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr13_step_av extrapolation")
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       ! Compute "vt(it, :, :)":
+       left_edge = xt(it)
+       vt(it, :, :) = 0.
+       do while (xs(is + 1) < xt(it + 1))
+          ! 1 <= is <= ns - 1
+          vt(it, :, :) = vt(it, :, :) + (xs(is + 1) - left_edge) * vs(is, :, :)
+          is = is + 1
+          left_edge = xs(is)
+       end do
+       ! 1 <= is <= ns
+       vt(it, :, :) = (vt(it, :, :) &
+            + (xt(it + 1) - left_edge) * vs(is, :, :)) / (xt(it + 1) - xt(it))
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  end function regr13_step_av
+
+  !********************************************
+
+  function regr14_step_av(vs, xs, xt) result(vt)
+
+    ! "vs" has rank 4.
+
+    use assert_eq_m, only: assert_eq
+    use assert_m, only: assert
+    use interpolation, only: locate
+
+    real, intent(in):: vs(:, :, :, :) ! values of steps on the source grid
+    ! (Step "is" is between "xs(is)" and "xs(is + 1)".)
+
+    real, intent(in):: xs(:)
+    ! (edges of steps on the source grid, in strictly increasing order)
+
+    real, intent(in):: xt(:)
+    ! (edges of cells of the target grid, in strictly increasing order)
+
+    real vt(size(xt) - 1, size(vs, 2), size(vs, 3), size(vs, 4))
+    ! (average values on the target grid)
+    ! (Cell "it" is between "xt(it)" and "xt(it + 1)".)
+
+    ! Variables local to the procedure:
+    integer is, it, ns, nt
+    real left_edge
+
+    !---------------------------------------------
+
+    ns = assert_eq(size(vs, 1), size(xs) - 1, "regr14_step_av ns")
+    nt = size(xt) - 1
+
+    ! Quick check on sort order:
+    call assert(xs(1) < xs(2), "regr14_step_av xs bad order")
+    call assert(xt(1) < xt(2), "regr14_step_av xt bad order")
+
+    call assert(xs(1) <= xt(1) .and. xt(nt + 1) <= xs(ns + 1), &
+         "regr14_step_av extrapolation")
+
+    is = locate(xs, xt(1)) ! 1 <= is <= ns, because we forbid extrapolation
+    do it = 1, nt
+       ! 1 <= is <= ns
+       ! xs(is) <= xt(it) < xs(is + 1)
+       ! Compute "vt(it, :, :, :)":
+       left_edge = xt(it)
+       vt(it, :, :, :) = 0.
+       do while (xs(is + 1) < xt(it + 1))
+          ! 1 <= is <= ns - 1
+          vt(it, :, :, :) = vt(it, :, :, :) + (xs(is + 1) - left_edge) &
+               * vs(is, :, :, :)
+          is = is + 1
+          left_edge = xs(is)
+       end do
+       ! 1 <= is <= ns
+       vt(it, :, :, :) = (vt(it, :, :, :) + (xt(it + 1) - left_edge) &
+            * vs(is, :, :, :)) / (xt(it + 1) - xt(it))
+       if (xs(is + 1) == xt(it + 1)) is = is + 1
+       ! 1 <= is <= ns .or. it == nt
+    end do
+
+  end function regr14_step_av
+
+end module regr1_step_av_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/statto.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/statto.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/statto.h	(revision 3330)
@@ -0,0 +1,34 @@
+
+!  statto:
+!     This include file controls the production of statistics.
+!     Some variables could be set in a namelist, but it is easier to
+!     do it here since arrays can then be dimensioned using parameters
+!     and values shouldn't have to change too often.   SRL
+
+!     Calculate stats every istats physics timesteps, starting at first
+!     call.  If istats=0 then don't do statistics at all.  Check value
+!     if number of physics timesteps changes.
+	integer istats
+
+!     Calculate itime independent sums and sums of squares,
+!     example, istat=1,istime=1 gives a single time mean
+	integer, parameter :: istime=12
+
+!     Number of 2D and 3D variables on which to do statistics.
+	integer n2dvar, n3dvar
+	parameter (n2dvar = 8, n3dvar = 5)
+
+!     Units for writing stats header and data
+	integer usdata
+
+!     count tab to know the variable record
+        integer count(istime)
+
+!     Record of the number of stores made for each time.
+	integer nstore(istime)
+
+! Size of the "controle" array
+        integer, parameter :: cntrlsize=15
+
+!       common /sttcom/ dummy,nstore,istats,usdata
+        common /sttcom/ nstore,istats,usdata,count
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/wstats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/wstats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/obsolete/wstats.F90	(revision 3330)
@@ -0,0 +1,351 @@
+subroutine wstats(ngrid,nom,titre,unite,dim,px)
+
+implicit none
+
+#include "dimensions.h"
+#include "statto.h"
+#include "netcdf.inc"
+
+integer,intent(in) :: ngrid
+character (len=*),intent(in) :: nom,titre,unite
+integer,intent(in) :: dim
+real, dimension(ngrid,llm),intent(in) :: px
+integer,parameter :: iip1=iim+1
+integer,parameter :: jjp1=jjm+1
+real, dimension(iip1,jjp1,llm) :: mean3d,sd3d,dx3
+real, dimension(iip1,jjp1) :: mean2d,sd2d,dx2
+character (len=50) :: namebis
+character (len=50), save :: firstvar
+integer :: ierr,varid,nbdim,nid
+integer :: meanid,sdid
+integer, dimension(4)  :: id,start,size
+logical, save :: firstcall=.TRUE.
+integer :: l,i,j,ig0
+integer,save :: index
+
+integer, save :: step=0
+
+
+if (firstcall) then
+   firstcall=.false.
+   firstvar=trim((nom))
+   call inistats(ierr)
+endif
+
+if (firstvar==nom) then ! If we're back to the first variable
+      step = step + 1
+endif
+
+if (mod(step,istats).ne.0) then
+   RETURN
+endif
+
+ierr = NF_OPEN("stats.nc",NF_WRITE,nid)
+
+namebis=trim(nom)
+ierr= NF_INQ_VARID(nid,namebis,meanid)
+
+if (ierr.ne.NF_NOERR) then
+
+   if (firstvar==nom) then 
+      index=1
+      count=0
+   endif
+
+
+!declaration de la variable
+
+! choix du nom des coordonnees
+   ierr= NF_INQ_DIMID(nid,"longitude",id(1))
+   ierr= NF_INQ_DIMID(nid,"latitude",id(2))
+   if (dim.eq.3) then
+      ierr= NF_INQ_DIMID(nid,"altitude",id(3))
+      ierr= NF_INQ_DIMID(nid,"Time",id(4))
+      nbdim=4
+   else if (dim==2) then
+      ierr= NF_INQ_DIMID(nid,"Time",id(3))
+      nbdim=3
+   endif
+
+   write (*,*) "====================="
+   write (*,*) "STATS: creation de ",nom
+   namebis=trim(nom)
+   call def_var_stats(nid,namebis,titre,unite,nbdim,id,meanid,ierr)
+   call inivar(nid,meanid,ngrid,dim,index,px,ierr)
+   namebis=trim(nom)//"_sd"
+   call def_var_stats(nid,namebis,trim(titre)//" total standard deviation over the season",unite,nbdim,id,sdid,ierr)
+   call inivar(nid,sdid,ngrid,dim,index,px,ierr)
+
+   ierr= NF_CLOSE(nid)
+   return
+
+else
+   namebis=trim(nom)//"_sd"
+   ierr= NF_INQ_VARID(nid,namebis,sdid)
+
+endif
+
+if (firstvar==nom) then 
+   count(index)=count(int(index))+1
+   index=index+1
+   if (index>istime) then
+      index=1
+   endif
+endif
+
+if (count(index)==0) then
+   if (dim.eq.3) then
+      start=(/1,1,1,index/)
+      size=(/iip1,jjp1,llm,1/)
+      mean3d=0
+      sd3d=0
+   else if (dim.eq.2) then
+      start=(/1,1,index,0/)
+      size=(/iip1,jjp1,1,0/)
+      mean2d=0
+      sd2d=0
+   endif
+else
+   if (dim.eq.3) then
+      start=(/1,1,1,index/)
+      size=(/iip1,jjp1,llm,1/)
+#ifdef NC_DOUBLE
+      ierr = NF_GET_VARA_DOUBLE(nid,meanid,start,size,mean3d)
+      ierr = NF_GET_VARA_DOUBLE(nid,sdid,start,size,sd3d)
+#else
+      ierr = NF_GET_VARA_REAL(nid,meanid,start,size,mean3d)
+      ierr = NF_GET_VARA_REAL(nid,sdid,start,size,sd3d)
+#endif
+      if (ierr.ne.NF_NOERR) then
+         write (*,*) NF_STRERROR(ierr)
+         stop ""
+      endif
+
+   else if (dim.eq.2) then
+      start=(/1,1,index,0/)
+      size=(/iip1,jjp1,1,0/)
+#ifdef NC_DOUBLE
+      ierr = NF_GET_VARA_DOUBLE(nid,meanid,start,size,mean2d)
+      ierr = NF_GET_VARA_DOUBLE(nid,sdid,start,size,sd2d)
+#else
+      ierr = NF_GET_VARA_REAL(nid,meanid,start,size,mean2d)
+      ierr = NF_GET_VARA_REAL(nid,sdid,start,size,sd2d)
+#endif
+      if (ierr.ne.NF_NOERR) then
+         write (*,*) NF_STRERROR(ierr)
+         stop ""
+      endif
+   endif
+endif
+
+if (dim.eq.3) then
+
+!  Passage variable physique -->  variable dynamique
+
+   DO l=1,llm
+      DO i=1,iip1
+         dx3(i,1,l)=px(1,l)
+         dx3(i,jjp1,l)=px(ngrid,l)
+      ENDDO
+      DO j=2,jjm
+         ig0= 1+(j-2)*iim
+         DO i=1,iim
+            dx3(i,j,l)=px(ig0+i,l)
+         ENDDO
+         dx3(iip1,j,l)=dx3(1,j,l)
+      ENDDO
+   ENDDO
+
+   mean3d(:,:,:)= mean3d(:,:,:)+dx3(:,:,:)
+   sd3d(:,:,:)= sd3d(:,:,:)+dx3(:,:,:)**2
+
+#ifdef NC_DOUBLE
+   ierr = NF_PUT_VARA_DOUBLE(nid,meanid,start,size,mean3d)
+   ierr = NF_PUT_VARA_DOUBLE(nid,sdid,start,size,sd3d)
+#else
+   ierr = NF_PUT_VARA_REAL(nid,meanid,start,size,mean3d)
+   ierr = NF_PUT_VARA_REAL(nid,sdid,start,size,sd3d)
+#endif
+   if (ierr.ne.NF_NOERR) then
+     write (*,*) NF_STRERROR(ierr)
+     stop ""
+   endif
+
+else if (dim.eq.2) then
+
+!    Passage variable physique -->  physique dynamique
+
+  DO i=1,iip1
+     dx2(i,1)=px(1,1)
+     dx2(i,jjp1)=px(ngrid,1)
+  ENDDO
+  DO j=2,jjm
+     ig0= 1+(j-2)*iim
+     DO i=1,iim
+        dx2(i,j)=px(ig0+i,1)
+     ENDDO
+     dx2(iip1,j)=dx2(1,j)
+  ENDDO
+
+   mean2d(:,:)= mean2d(:,:)+dx2(:,:)
+   sd2d(:,:)= sd2d(:,:)+dx2(:,:)**2
+
+#ifdef NC_DOUBLE
+   ierr = NF_PUT_VARA_DOUBLE(nid,meanid,start,size,mean2d)
+   ierr = NF_PUT_VARA_DOUBLE(nid,sdid,start,size,sd2d)
+#else
+   ierr = NF_PUT_VARA_REAL(nid,meanid,start,size,mean2d)
+   ierr = NF_PUT_VARA_REAL(nid,sdid,start,size,sd2d)
+#endif
+   if (ierr.ne.NF_NOERR) then
+     write (*,*) NF_STRERROR(ierr)
+     stop ""
+   endif
+
+endif
+
+ierr= NF_CLOSE(nid)
+
+end subroutine wstats
+
+!======================================================
+subroutine inivar(nid,varid,ngrid,dim,index,px,ierr)
+
+implicit none
+
+include "dimensions.h"
+!!!!!!include "dimphys.h"
+include "netcdf.inc"
+
+integer, intent(in) :: nid,varid,dim,index,ngrid
+real, dimension(ngrid,llm), intent(in) :: px
+integer, intent(out) :: ierr
+
+integer,parameter :: iip1=iim+1
+integer,parameter :: jjp1=jjm+1
+
+integer :: l,i,j,ig0
+integer, dimension(4) :: start,size
+real, dimension(iip1,jjp1,llm) :: dx3
+real, dimension(iip1,jjp1) :: dx2
+
+if (dim.eq.3) then
+
+   start=(/1,1,1,index/)
+   size=(/iip1,jjp1,llm,1/)
+
+!  Passage variable physique -->  variable dynamique
+
+   DO l=1,llm
+      DO i=1,iip1
+         dx3(i,1,l)=px(1,l)
+         dx3(i,jjp1,l)=px(ngrid,l)
+      ENDDO
+      DO j=2,jjm
+         ig0= 1+(j-2)*iim
+         DO i=1,iim
+            dx3(i,j,l)=px(ig0+i,l)
+         ENDDO
+         dx3(iip1,j,l)=dx3(1,j,l)
+      ENDDO
+   ENDDO
+
+#ifdef NC_DOUBLE
+   ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,size,dx3)
+#else
+   ierr = NF_PUT_VARA_REAL(nid,varid,start,size,dx3)
+#endif
+
+else if (dim.eq.2) then
+
+      start=(/1,1,index,0/)
+      size=(/iip1,jjp1,1,0/)
+
+!    Passage variable physique -->  physique dynamique
+
+  DO i=1,iip1
+     dx2(i,1)=px(1,1)
+     dx2(i,jjp1)=px(ngrid,1)
+  ENDDO
+  DO j=2,jjm
+     ig0= 1+(j-2)*iim
+     DO i=1,iim
+        dx2(i,j)=px(ig0+i,1)
+     ENDDO
+     dx2(iip1,j)=dx2(1,j)
+  ENDDO
+
+#ifdef NC_DOUBLE
+   ierr = NF_PUT_VARA_DOUBLE(nid,varid,start,size,dx2)
+#else
+   ierr = NF_PUT_VARA_REAL(nid,varid,start,size,dx2)
+#endif
+
+endif
+
+end subroutine inivar
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+subroutine def_var_stats(nid,name,title,units,nbdim,dimids,nvarid,ierr)
+
+! This subroutine defines variable 'name' in a (pre-existing and opened)
+! NetCDF file (known from its NetCDF ID 'nid').
+! The number of dimensions 'nbdim' of the variable, as well as the IDs of
+! corresponding dimensions must be set (in array 'dimids').
+! Upon successfull definition of the variable, 'nvarid' contains the
+! NetCDF ID of the variable.
+! The variables' attributes 'title' (Note that 'long_name' would be more
+! appropriate) and 'units' are also set. 
+
+implicit none
+
+#include "netcdf.inc"
+
+integer,intent(in) :: nid ! NetCDF file ID
+character(len=*),intent(in) :: name ! the variable's name
+character(len=*),intent(in) :: title ! 'title' attribute of variable
+character(len=*),intent(in) :: units ! 'units' attribute of variable
+integer,intent(in) :: nbdim ! number of dimensions of the variable
+integer,dimension(nbdim),intent(in) :: dimids ! NetCDF IDs of the dimensions
+                                              ! the variable is defined along
+integer,intent(out) :: nvarid ! NetCDF ID of the variable
+integer,intent(out) :: ierr ! returned NetCDF staus code
+
+! 1. Switch to NetCDF define mode 
+ierr=NF_REDEF(nid)
+
+! 2. Define the variable
+#ifdef NC_DOUBLE
+ierr = NF_DEF_VAR (nid,adjustl(name),NF_DOUBLE,nbdim,dimids,nvarid)
+#else
+ierr = NF_DEF_VAR (nid,adjustl(name),NF_FLOAT,nbdim,dimids,nvarid)
+#endif
+if(ierr/=NF_NOERR) then
+   write(*,*) "def_var_stats: Failed defining variable "//trim(name)
+   write(*,*) NF_STRERROR(ierr)
+   stop ""
+endif
+
+! 3. Write attributes
+ierr=NF_PUT_ATT_TEXT(nid,nvarid,"title",&
+                     len_trim(adjustl(title)),adjustl(title))
+if(ierr/=NF_NOERR) then
+   write(*,*) "def_var_stats: Failed writing title attribute for "//trim(name)
+   write(*,*) NF_STRERROR(ierr)
+   stop ""
+endif
+
+ierr=NF_PUT_ATT_TEXT(nid,nvarid,"units",&
+                     len_trim(adjustl(units)),adjustl(units))
+if(ierr/=NF_NOERR) then
+   write(*,*) "def_var_stats: Failed writing units attribute for "//trim(name)
+   write(*,*) NF_STRERROR(ierr)
+   stop ""
+endif
+
+! 4. Switch out of NetCDF define mode
+ierr = NF_ENDDEF(nid)
+
+end subroutine def_var_stats
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/abort_physic.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/abort_physic.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/abort_physic.F90	(revision 3330)
@@ -0,0 +1,50 @@
+! $Id: $
+      SUBROUTINE abort_physic(modname, message, ierr)
+     
+#ifdef CPP_IOIPSL
+      USE IOIPSL
+#else
+! if not using IOIPSL, we still need to use (a local version of) getin_dump
+      USE ioipsl_getincom
+#endif
+      USE mod_phys_lmdz_para
+      USE print_control_mod, ONLY: lunout
+      IMPLICIT NONE
+!
+! Stops the simulation cleanly, closing files and printing various
+! comments
+!
+!  Input: modname = name of calling program
+!         message = stuff to print
+!         ierr    = severity of situation ( = 0 normal )
+
+      character(len=*), intent(in):: modname
+      integer ierr, ierror_mpi
+      character(len=*), intent(in):: message
+
+      write(lunout,*) 'in abort_physic'
+#ifdef CPP_IOIPSL
+!$OMP MASTER
+      call histclo
+      call restclo
+      if (mpi_rank .eq. 0) then
+         call getin_dump
+      endif
+!$OMP END MASTER
+#endif
+
+      write(lunout,*) 'Stopping in ', modname
+      write(lunout,*) 'Reason = ',message
+      if (ierr .eq. 0) then
+        write(lunout,*) 'Everything is cool'
+      else
+        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
+#ifdef CPP_MPI
+!$OMP CRITICAL (MPI_ABORT_PHYSIC)
+        call MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)
+!$OMP END CRITICAL (MPI_ABORT_PHYSIC)
+#else
+        stop 1
+#endif          
+      endif
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/geometry_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/geometry_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/geometry_mod.F90	(revision 3330)
@@ -0,0 +1,74 @@
+MODULE geometry_mod
+
+! Store informations concerning the local (to MPI/OpenMP core) geometry
+
+  REAL,SAVE,ALLOCATABLE :: longitude(:) ! longitude of the cell (rad)
+!$OMP THREADPRIVATE(longitude)
+
+  REAL,SAVE,ALLOCATABLE :: latitude(:)! latitude of the cell (rad)
+!$OMP THREADPRIVATE(latitude)
+
+  REAL,SAVE,ALLOCATABLE :: longitude_deg(:) ! longitude of the cell (degree)
+!$OMP THREADPRIVATE(longitude_deg)
+
+  REAL,SAVE,ALLOCATABLE :: latitude_deg(:)! latitude of the cell (degree)
+!$OMP THREADPRIVATE(latitude_deg)
+
+  REAL,SAVE,ALLOCATABLE :: boundslon(:,:)  ! boundaries of the cell (rad)
+!$OMP THREADPRIVATE(boundslon)
+
+  REAL,SAVE,ALLOCATABLE :: boundslat(:,:) ! boundaries of the cell (rad)
+!$OMP THREADPRIVATE(boundslat)
+
+  REAL,SAVE,ALLOCATABLE :: dx(:)      ! resolution of longitude cell (valid only for 2D grid)
+!$OMP THREADPRIVATE(dx)
+  
+  REAL,SAVE,ALLOCATABLE :: dy(:)      ! resolution of latitude cell (valid only for 2D grid)
+!$OMP THREADPRIVATE(dy)
+
+  REAL,SAVE,ALLOCATABLE :: cell_area(:)      ! area of the cell
+!$OMP THREADPRIVATE(cell_area)
+
+
+CONTAINS
+
+  SUBROUTINE init_geometry(klon,longitude_,latitude_, &
+                           boundslon_,boundslat_, &
+                           cell_area_,dx_,dy_)
+  USE mod_grid_phy_lmdz, ONLY: nvertex
+  USE nrtype, ONLY : PI
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: klon ! number of columns for this MPI/OpenMP domain
+    REAL,INTENT(IN) :: longitude_(klon)
+    REAL,INTENT(IN) :: latitude_(klon)
+    REAL,INTENT(IN) :: boundslon_(klon,nvertex)
+    REAL,INTENT(IN) :: boundslat_(klon,nvertex)
+    REAL,INTENT(IN) :: cell_area_(klon)
+    REAL,OPTIONAL,INTENT(IN) :: dx_(klon)
+    REAL,OPTIONAL,INTENT(IN) :: dy_(klon)
+    
+    ALLOCATE(longitude(klon))
+    ALLOCATE(latitude(klon))
+    ALLOCATE(longitude_deg(klon))
+    ALLOCATE(latitude_deg(klon))
+    ALLOCATE(boundslon(klon,nvertex))
+    ALLOCATE(boundslat(klon,nvertex))
+    ALLOCATE(cell_area(klon))
+    IF (PRESENT(dx_)) ALLOCATE(dx(klon))
+    IF (PRESENT(dy_))ALLOCATE(dy(klon))
+    
+    longitude(:) = longitude_(:)
+    latitude(:) = latitude_(:)
+    longitude_deg(:) = longitude(:)*180./PI
+    latitude_deg(:) = latitude(:)*180./PI
+    boundslon(:,:) = boundslon_(:,:)
+    boundslat(:,:) = boundslat_(:,:)
+    cell_area(:) = cell_area_(:)
+    IF (PRESENT(dx_)) dx(:) = dx_(:)
+    IF (PRESENT(dy_)) dy(:) = dy_(:)
+    
+  END SUBROUTINE init_geometry
+
+
+END MODULE geometry_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/ioipsl_getin_p_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/ioipsl_getin_p_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/ioipsl_getin_p_mod.F90	(revision 3330)
@@ -0,0 +1,169 @@
+!
+! $Id$
+!
+MODULE ioipsl_getin_p_mod
+! To use getin in a parallel context
+!---------------------------------------------------------------------
+#ifdef CPP_IOIPSL
+USE ioipsl, ONLY: getin
+#else
+USE ioipsl_getincom, ONLY: getin
+#endif
+USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
+USE mod_phys_lmdz_transfert_para, ONLY : bcast
+!-
+IMPLICIT NONE
+!-
+PRIVATE
+PUBLIC :: getin_p
+!-
+INTERFACE getin_p
+
+  MODULE PROCEDURE getinrs_p, getinr1d_p, getinr2d_p, &
+ &                 getinis_p, getini1d_p, getini2d_p, &
+ &                 getincs_p, 		              &
+ &                 getinls_p, getinl1d_p, getinl2d_p
+END INTERFACE
+!-
+CONTAINS
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!   Definition des getin -> bcast      !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!! -- Les chaines de caracteres -- !!
+  
+  SUBROUTINE getincs_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    CHARACTER(LEN=*),INTENT(INOUT) :: VarOut    
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getincs_p
+
+!! -- Les entiers -- !!
+  
+  SUBROUTINE getinis_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    INTEGER,INTENT(INOUT) :: VarOut    
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinis_p
+
+  SUBROUTINE getini1d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    INTEGER,INTENT(INOUT) :: VarOut(:)
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getini1d_p
+
+  SUBROUTINE getini2d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    INTEGER,INTENT(INOUT) :: VarOut(:,:)
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getini2d_p
+
+!! -- Les flottants -- !!
+  
+  SUBROUTINE getinrs_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    REAL,INTENT(INOUT) :: VarOut
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinrs_p
+
+  SUBROUTINE getinr1d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    REAL,INTENT(INOUT) :: VarOut(:)
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinr1d_p
+
+  SUBROUTINE getinr2d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    REAL,INTENT(INOUT) :: VarOut(:,:)
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinr2d_p
+
+!! -- Les Booleens -- !!
+  
+  SUBROUTINE getinls_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    LOGICAL,INTENT(INOUT) :: VarOut
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinls_p
+
+  SUBROUTINE getinl1d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    LOGICAL,INTENT(INOUT) :: VarOut(:)
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinl1d_p
+
+  SUBROUTINE getinl2d_p(VarIn,VarOut)
+    IMPLICIT NONE    
+    CHARACTER(LEN=*),INTENT(IN) :: VarIn
+    LOGICAL,INTENT(INOUT) :: VarOut(:,:)
+
+!$OMP BARRIER
+    IF (is_mpi_root .AND. is_omp_root) THEN
+    	CALL getin(VarIn,VarOut)
+    ENDIF
+    CALL bcast(VarOut)
+  END SUBROUTINE getinl2d_p
+!-
+!-----------------------------
+!-----------------------------
+!-----------------------------
+
+END MODULE ioipsl_getin_p_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_grid_phy_lmdz.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_grid_phy_lmdz.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_grid_phy_lmdz.F90	(revision 3330)
@@ -0,0 +1,468 @@
+!
+!$Id $
+!
+MODULE mod_grid_phy_lmdz
+
+  PUBLIC
+  PRIVATE :: grid1dTo2d_glo_igen, grid1dTo2d_glo_rgen, grid1dTo2d_glo_lgen, &
+             grid2dTo1d_glo_igen, grid2dTo1d_glo_rgen, grid2dTo1d_glo_lgen
+  
+  INTEGER,PARAMETER :: unstructured=0
+  INTEGER,PARAMETER :: regular_lonlat=1
+
+  INTEGER,SAVE :: grid_type
+  INTEGER,SAVE :: nvertex
+  INTEGER,SAVE :: nbp_lon  ! == iim
+  INTEGER,SAVE :: nbp_lat  ! == jjmp1 (or == 1 if running 1D model)
+  INTEGER,SAVE :: nbp_lev  ! == llm
+  INTEGER,SAVE :: klon_glo ! total number of atmospheric columns
+
+  INTERFACE grid1dTo2d_glo
+    MODULE PROCEDURE grid1dTo2d_glo_i,grid1dTo2d_glo_i1,grid1dTo2d_glo_i2,grid1dTo2d_glo_i3, &
+                     grid1dTo2d_glo_r,grid1dTo2d_glo_r1,grid1dTo2d_glo_r2,grid1dTo2d_glo_r3, &
+		     grid1dTo2d_glo_l,grid1dTo2d_glo_l1,grid1dTo2d_glo_l2,grid1dTo2d_glo_l3
+   END INTERFACE 
+
+   INTERFACE grid2dTo1d_glo
+    MODULE PROCEDURE grid2dTo1d_glo_i,grid2dTo1d_glo_i1,grid2dTo1d_glo_i2,grid2dTo1d_glo_i3, &
+                     grid2dTo1d_glo_r,grid2dTo1d_glo_r1,grid2dTo1d_glo_r2,grid2dTo1d_glo_r3, &
+		     grid2dTo1d_glo_l,grid2dTo1d_glo_l1,grid2dTo1d_glo_l2,grid2dTo1d_glo_l3
+   END INTERFACE 
+ 
+CONTAINS
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! SUBROUTINE grid1dTo2d  !!  
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+  SUBROUTINE init_grid_phy_lmdz(grid_type_,nvertex_,nbp_lon_,nbp_lat_,nbp_lev_)
+  IMPLICIT NONE
+  INTEGER,INTENT(IN)  :: grid_type_ 
+  INTEGER,INTENT(IN)  :: nvertex_ 
+  INTEGER, INTENT(IN) :: nbp_lon_
+  INTEGER, INTENT(IN) :: nbp_lat_
+  INTEGER, INTENT(IN) :: nbp_lev_
+  
+    grid_type = grid_type_
+    nvertex   = nvertex_
+    nbp_lon   = nbp_lon_
+    nbp_lat   = nbp_lat_
+    nbp_lev   = nbp_lev_
+    
+    IF (nbp_lon*nbp_lat==1) THEN
+      klon_glo=1
+    ELSE    
+      klon_glo=(nbp_lon*nbp_lat)-2*(nbp_lon-1)
+    ENDIF
+  
+  END SUBROUTINE init_grid_phy_lmdz
+  
+  
+  SUBROUTINE grid1dTo2d_glo_i(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_igen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid1dTo2d_glo_i
+  
+
+  SUBROUTINE grid1dTo2d_glo_i1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_igen(VarIn,VarOut,size(VarIn,2))
+  
+  END SUBROUTINE grid1dTo2d_glo_i1
+
+  SUBROUTINE grid1dTo2d_glo_i2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_igen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3))
+  
+  END SUBROUTINE grid1dTo2d_glo_i2
+  
+  SUBROUTINE grid1dTo2d_glo_i3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_igen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid1dTo2d_glo_i3
+
+
+  SUBROUTINE grid1dTo2d_glo_r(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_rgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid1dTo2d_glo_r
+  
+
+  SUBROUTINE grid1dTo2d_glo_r1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_rgen(VarIn,VarOut,size(VarIn,2))
+  
+  END SUBROUTINE grid1dTo2d_glo_r1
+
+  SUBROUTINE grid1dTo2d_glo_r2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_rgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3))
+  
+  END SUBROUTINE grid1dTo2d_glo_r2
+  
+  SUBROUTINE grid1dTo2d_glo_r3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_rgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid1dTo2d_glo_r3
+  
+  
+  
+  SUBROUTINE grid1dTo2d_glo_l(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_lgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid1dTo2d_glo_l
+  
+
+  SUBROUTINE grid1dTo2d_glo_l1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_lgen(VarIn,VarOut,size(VarIn,2))
+  
+  END SUBROUTINE grid1dTo2d_glo_l1
+
+  SUBROUTINE grid1dTo2d_glo_l2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_lgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3))
+  
+  END SUBROUTINE grid1dTo2d_glo_l2
+  
+  SUBROUTINE grid1dTo2d_glo_l3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_glo_lgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid1dTo2d_glo_l3  
+  
+    SUBROUTINE grid2dTo1d_glo_i(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_igen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid2dTo1d_glo_i
+  
+
+  SUBROUTINE grid2dTo1d_glo_i1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_igen(VarIn,VarOut,size(VarIn,3))
+  
+  END SUBROUTINE grid2dTo1d_glo_i1
+
+  SUBROUTINE grid2dTo1d_glo_i2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_igen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid2dTo1d_glo_i2
+  
+  SUBROUTINE grid2dTo1d_glo_i3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_igen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4)*size(VarIn,5))
+  
+  END SUBROUTINE grid2dTo1d_glo_i3
+ 
+
+
+
+  SUBROUTINE grid2dTo1d_glo_r(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_rgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid2dTo1d_glo_r
+  
+
+  SUBROUTINE grid2dTo1d_glo_r1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_rgen(VarIn,VarOut,size(VarIn,3))
+  
+  END SUBROUTINE grid2dTo1d_glo_r1
+
+  SUBROUTINE grid2dTo1d_glo_r2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_rgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid2dTo1d_glo_r2
+  
+  SUBROUTINE grid2dTo1d_glo_r3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_rgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4)*size(VarIn,5))
+  
+  END SUBROUTINE grid2dTo1d_glo_r3
+
+
+
+  SUBROUTINE grid2dTo1d_glo_l(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_lgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid2dTo1d_glo_l
+  
+
+  SUBROUTINE grid2dTo1d_glo_l1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_lgen(VarIn,VarOut,size(VarIn,3))
+  
+  END SUBROUTINE grid2dTo1d_glo_l1
+
+  SUBROUTINE grid2dTo1d_glo_l2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_lgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid2dTo1d_glo_l2
+  
+  SUBROUTINE grid2dTo1d_glo_l3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_glo_lgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4)*size(VarIn,5))
+  
+  END SUBROUTINE grid2dTo1d_glo_l3
+
+!---------------------------------------------------------------- 
+!  Generic (private) fonctions
+!---------------------------------------------------------------- 
+  
+  SUBROUTINE grid1dTo2d_glo_igen(VarIn,VarOut,dimsize)
+
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN) ,DIMENSION(klon_glo,dimsize)       :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(nbp_lon*nbp_lat,dimsize)  :: VarOut
+    INTEGER :: i,ij,Offset
+
+    
+    Offset=nbp_lon
+        
+    DO i=1,dimsize
+      DO ij=1,klon_glo
+        VarOut(ij+offset-1,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+    
+    
+    DO i=1,dimsize
+      DO ij=1,nbp_lon
+       VarOut(ij,i)=VarIn(1,i)
+      ENDDO
+    ENDDO
+    
+    
+    DO i=1,dimsize
+      DO ij=nbp_lon*(nbp_lat-1)+1,nbp_lat*nbp_lon
+       VarOut(ij,i)=VarIn(klon_glo,i)
+      ENDDO
+    ENDDO
+
+  END SUBROUTINE grid1dTo2d_glo_igen   
+
+
+  SUBROUTINE grid1dTo2d_glo_rgen(VarIn,VarOut,dimsize)
+
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN) ,DIMENSION(klon_glo,dimsize)       :: VarIn
+    REAL,INTENT(OUT),DIMENSION(nbp_lon*nbp_lat,dimsize)  :: VarOut
+    INTEGER :: i,ij,Offset
+
+   
+    Offset=nbp_lon
+        
+    DO i=1,dimsize
+      DO ij=1,klon_glo
+        VarOut(ij+offset-1,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+    
+    
+    DO i=1,dimsize
+      DO ij=1,nbp_lon
+       VarOut(ij,i)=VarIn(1,i)
+      ENDDO
+    ENDDO
+    
+    
+    DO i=1,dimsize
+      DO ij=nbp_lon*(nbp_lat-1)+1,nbp_lat*nbp_lon
+       VarOut(ij,i)=VarIn(klon_glo,i)
+      ENDDO
+    ENDDO
+
+  END SUBROUTINE grid1dTo2d_glo_rgen   
+
+  SUBROUTINE grid1dTo2d_glo_lgen(VarIn,VarOut,dimsize)
+
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN) ,DIMENSION(klon_glo,dimsize)       :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(nbp_lon*nbp_lat,dimsize)  :: VarOut
+    INTEGER :: i,ij,Offset
+
+    Offset=nbp_lon
+        
+    DO i=1,dimsize
+      DO ij=1,klon_glo
+        VarOut(ij+offset-1,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+    
+    
+    DO i=1,dimsize
+      DO ij=1,nbp_lon
+       VarOut(ij,i)=VarIn(1,i)
+      ENDDO
+    ENDDO
+    
+    
+    DO i=1,dimsize
+      DO ij=nbp_lon*(nbp_lat-1)+1,nbp_lat*nbp_lon
+       VarOut(ij,i)=VarIn(klon_glo,i)
+      ENDDO
+    ENDDO
+
+  END SUBROUTINE grid1dTo2d_glo_lgen     
+  
+  
+  SUBROUTINE grid2dTo1d_glo_igen(VarIn,VarOut,dimsize)
+
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN) ,DIMENSION(nbp_lon*nbp_lat,dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(klon_glo,dimsize)      :: VarOut
+    INTEGER :: i,ij,offset
+
+    offset=nbp_lon
+
+    DO i=1,dimsize
+      DO ij=1,klon_glo
+        VarOut(ij,i)=VarIn(ij+offset-1,i)
+      ENDDO
+    ENDDO
+
+    DO i=1,dimsize
+      VarOut(1,i)=VarIn(1,i)
+    ENDDO
+    
+  END SUBROUTINE grid2dTo1d_glo_igen   
+  
+  SUBROUTINE grid2dTo1d_glo_rgen(VarIn,VarOut,dimsize)
+
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN) ,DIMENSION(nbp_lon*nbp_lat,dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(klon_glo,dimsize)      :: VarOut
+    INTEGER :: i,ij,offset
+
+    offset=nbp_lon
+
+    DO i=1,dimsize
+      DO ij=1,klon_glo
+        VarOut(ij,i)=VarIn(ij+offset-1,i)
+      ENDDO
+    ENDDO
+
+    DO i=1,dimsize
+      VarOut(1,i)=VarIn(1,i)
+    ENDDO
+    
+  END SUBROUTINE grid2dTo1d_glo_rgen 
+    
+  SUBROUTINE grid2dTo1d_glo_lgen(VarIn,VarOut,dimsize)
+
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN) ,DIMENSION(nbp_lon*nbp_lat,dimsize) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(klon_glo,dimsize)      :: VarOut
+    INTEGER :: i,ij,offset
+
+    offset=nbp_lon
+
+    DO i=1,dimsize
+      DO ij=1,klon_glo
+        VarOut(ij,i)=VarIn(ij+offset-1,i)
+      ENDDO
+    ENDDO
+
+    DO i=1,dimsize
+      VarOut(1,i)=VarIn(1,i)
+    ENDDO
+    
+  END SUBROUTINE grid2dTo1d_glo_lgen   
+
+END MODULE mod_grid_phy_lmdz
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_mpi_data.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_mpi_data.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_mpi_data.F90	(revision 3330)
@@ -0,0 +1,227 @@
+!
+!$Id$
+!
+MODULE mod_phys_lmdz_mpi_data
+!  USE mod_const_mpi
+  
+  INTEGER,SAVE :: ii_begin
+  INTEGER,SAVE :: ii_end
+  INTEGER,SAVE :: jj_begin
+  INTEGER,SAVE :: jj_end
+  INTEGER,SAVE :: jj_nb
+  INTEGER,SAVE :: ij_begin
+  INTEGER,SAVE :: ij_end
+  INTEGER,SAVE :: ij_nb
+  INTEGER,SAVE :: klon_mpi_begin
+  INTEGER,SAVE :: klon_mpi_end
+  INTEGER,SAVE :: klon_mpi
+  
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: jj_para_nb
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: jj_para_begin
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: jj_para_end
+
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: ii_para_begin
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: ii_para_end
+
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: ij_para_nb
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: ij_para_begin
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: ij_para_end
+
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: klon_mpi_para_nb
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: klon_mpi_para_begin
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:) :: klon_mpi_para_end 
+
+  
+  INTEGER,SAVE :: mpi_rank
+  INTEGER,SAVE :: mpi_size
+  INTEGER,SAVE :: mpi_master
+!  INTEGER,SAVE :: mpi_root
+  LOGICAL,SAVE :: is_mpi_root
+  LOGICAL,SAVE :: is_using_mpi
+  
+  
+!  LOGICAL,SAVE :: is_north_pole
+!  LOGICAL,SAVE :: is_south_pole
+  LOGICAL,SAVE :: is_north_pole_dyn
+  LOGICAL,SAVE :: is_south_pole_dyn
+  INTEGER,SAVE :: COMM_LMDZ_PHY
+  INTEGER,SAVE :: MPI_REAL_LMDZ   ! MPI_REAL8
+
+CONTAINS
+  
+!  SUBROUTINE Init_phys_lmdz_mpi_data(iim,jjp1,nb_proc,distrib)
+  SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, communicator)
+!  USE mod_const_mpi, ONLY : COMM_LMDZ
+  IMPLICIT NONE
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER,INTENT(in) :: nbp
+    INTEGER,INTENT(in) :: nbp_lon
+    INTEGER,INTENT(in) :: nbp_lat
+    INTEGER,INTENT(in) :: communicator
+    
+    INTEGER,ALLOCATABLE :: distrib(:)
+    INTEGER :: ierr
+    INTEGER :: klon_glo
+    INTEGER :: i
+    
+#ifdef CPP_MPI
+    is_using_mpi=.TRUE.
+#else
+    is_using_mpi=.FALSE.
+#endif
+    
+    if ((nbp_lon.eq.1).and.(nbp_lat.eq.1)) then ! running 1D column model
+       klon_glo=1
+    else
+    ! The usual global physics grid: 1 point for each pole and nbp_lon points
+    ! for all other latitudes
+       klon_glo=nbp_lon*(nbp_lat-2)+2
+    endif
+    
+    COMM_LMDZ_PHY=communicator
+
+    IF (is_using_mpi) THEN    
+#ifdef CPP_MPI
+      MPI_REAL_LMDZ=MPI_REAL8
+      CALL MPI_COMM_SIZE(COMM_LMDZ_PHY,mpi_size,ierr)    
+      CALL MPI_COMM_RANK(COMM_LMDZ_PHY,mpi_rank,ierr)
+#endif
+    ELSE
+      mpi_size=1
+      mpi_rank=0
+    ENDIF
+    
+    ALLOCATE(distrib(0:mpi_size-1))
+
+    IF (is_using_mpi) THEN    
+#ifdef CPP_MPI
+    CALL MPI_ALLGATHER(nbp,1,MPI_INTEGER,distrib,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
+#endif
+    ELSE
+     distrib(:)=nbp
+    ENDIF
+
+
+    IF (mpi_rank == 0) THEN
+      mpi_master = 0
+      is_mpi_root = .true.
+    ENDIF
+    
+    IF (mpi_rank == 0) THEN 
+      is_north_pole_dyn = .TRUE.
+    ELSE
+      is_north_pole_dyn = .FALSE.
+    ENDIF
+    
+    IF (mpi_rank == mpi_size-1) THEN
+      is_south_pole_dyn = .TRUE.
+    ELSE
+      is_south_pole_dyn = .FALSE.
+    ENDIF
+    
+    ALLOCATE(jj_para_nb(0:mpi_size-1))
+    ALLOCATE(jj_para_begin(0:mpi_size-1))
+    ALLOCATE(jj_para_end(0:mpi_size-1))
+    
+    ALLOCATE(ij_para_nb(0:mpi_size-1))
+    ALLOCATE(ij_para_begin(0:mpi_size-1))
+    ALLOCATE(ij_para_end(0:mpi_size-1))
+    
+    ALLOCATE(ii_para_begin(0:mpi_size-1))
+    ALLOCATE(ii_para_end(0:mpi_size-1))
+
+    ALLOCATE(klon_mpi_para_nb(0:mpi_size-1))
+    ALLOCATE(klon_mpi_para_begin(0:mpi_size-1))
+    ALLOCATE(klon_mpi_para_end(0:mpi_size-1))
+  
+      
+    klon_mpi_para_nb(0:mpi_size-1)=distrib(0:mpi_size-1)
+
+    DO i=0,mpi_size-1
+      IF (i==0) THEN 
+        klon_mpi_para_begin(i)=1
+      ELSE 
+        klon_mpi_para_begin(i)=klon_mpi_para_end(i-1)+1
+      ENDIF
+        klon_mpi_para_end(i)=klon_mpi_para_begin(i)+klon_mpi_para_nb(i)-1
+    ENDDO
+
+
+    DO i=0,mpi_size-1
+      
+      IF (i==0) THEN
+        ij_para_begin(i) = 1
+      ELSE
+        ij_para_begin(i) = klon_mpi_para_begin(i)+nbp_lon-1
+      ENDIF
+
+      jj_para_begin(i) = (ij_para_begin(i)-1)/nbp_lon + 1
+      ii_para_begin(i) = MOD(ij_para_begin(i)-1,nbp_lon) + 1
+
+      
+      ij_para_end(i) = klon_mpi_para_end(i)+nbp_lon-1
+      jj_para_end(i) = (ij_para_end(i)-1)/nbp_lon + 1
+      ii_para_end(i) = MOD(ij_para_end(i)-1,nbp_lon) + 1
+
+
+      ij_para_nb(i) = ij_para_end(i)-ij_para_begin(i)+1
+      jj_para_nb(i) = jj_para_end(i)-jj_para_begin(i)+1
+         
+    ENDDO
+  
+    ii_begin = ii_para_begin(mpi_rank)
+    ii_end   = ii_para_end(mpi_rank)
+    jj_begin = jj_para_begin(mpi_rank)
+    jj_end   = jj_para_end(mpi_rank)
+    jj_nb    = jj_para_nb(mpi_rank)
+    ij_begin = ij_para_begin(mpi_rank)
+    ij_end   = ij_para_end(mpi_rank)
+    ij_nb    = ij_para_nb(mpi_rank)
+    klon_mpi_begin = klon_mpi_para_begin(mpi_rank)
+    klon_mpi_end   = klon_mpi_para_end(mpi_rank)
+    klon_mpi       = klon_mpi_para_nb(mpi_rank)
+   
+    CALL Print_module_data
+    
+  END SUBROUTINE Init_phys_lmdz_mpi_data
+
+  SUBROUTINE print_module_data
+!  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+  INCLUDE "iniprint.h" 
+  
+    WRITE(lunout,*) 'ii_begin =', ii_begin
+    WRITE(lunout,*) 'ii_end =', ii_end
+    WRITE(lunout,*) 'jj_begin =',jj_begin
+    WRITE(lunout,*) 'jj_end =', jj_end
+    WRITE(lunout,*) 'jj_nb =', jj_nb
+    WRITE(lunout,*) 'ij_begin =', ij_begin
+    WRITE(lunout,*) 'ij_end =', ij_end
+    WRITE(lunout,*) 'ij_nb =', ij_nb
+    WRITE(lunout,*) 'klon_mpi_begin =', klon_mpi_begin
+    WRITE(lunout,*) 'klon_mpi_end =', klon_mpi_end
+    WRITE(lunout,*) 'klon_mpi =', klon_mpi
+    WRITE(lunout,*) 'jj_para_nb =', jj_para_nb
+    WRITE(lunout,*) 'jj_para_begin =', jj_para_begin
+    WRITE(lunout,*) 'jj_para_end =', jj_para_end
+    WRITE(lunout,*) 'ii_para_begin =', ii_para_begin
+    WRITE(lunout,*) 'ii_para_end =', ii_para_end
+    WRITE(lunout,*) 'ij_para_nb =', ij_para_nb
+    WRITE(lunout,*) 'ij_para_begin =', ij_para_begin
+    WRITE(lunout,*) 'ij_para_end =', ij_para_end
+    WRITE(lunout,*) 'klon_mpi_para_nb =', klon_mpi_para_nb
+    WRITE(lunout,*) 'klon_mpi_para_begin =', klon_mpi_para_begin
+    WRITE(lunout,*) 'klon_mpi_para_end  =', klon_mpi_para_end 
+    WRITE(lunout,*) 'mpi_rank =', mpi_rank
+    WRITE(lunout,*) 'mpi_size =', mpi_size
+    WRITE(lunout,*) 'mpi_master =', mpi_master
+    WRITE(lunout,*) 'is_mpi_root =', is_mpi_root
+    WRITE(lunout,*) 'is_north_pole =', is_north_pole_dyn
+    WRITE(lunout,*) 'is_south_pole =', is_south_pole_dyn
+    WRITE(lunout,*) 'COMM_LMDZ_PHY =', COMM_LMDZ_PHY
+  
+  END SUBROUTINE print_module_data
+  
+END MODULE mod_phys_lmdz_mpi_data
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_mpi_transfert.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_mpi_transfert.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_mpi_transfert.F90	(revision 3330)
@@ -0,0 +1,1903 @@
+!
+!$Id$
+!
+MODULE mod_phys_lmdz_mpi_transfert
+
+
+  INTERFACE bcast_mpi
+    MODULE PROCEDURE bcast_mpi_c,                                                     &
+                     bcast_mpi_i,bcast_mpi_i1,bcast_mpi_i2,bcast_mpi_i3,bcast_mpi_i4, &
+                     bcast_mpi_r,bcast_mpi_r1,bcast_mpi_r2,bcast_mpi_r3,bcast_mpi_r4, &
+                     bcast_mpi_l,bcast_mpi_l1,bcast_mpi_l2,bcast_mpi_l3,bcast_mpi_l4
+  END INTERFACE
+
+  INTERFACE scatter_mpi
+    MODULE PROCEDURE scatter_mpi_i,scatter_mpi_i1,scatter_mpi_i2,scatter_mpi_i3, &
+                     scatter_mpi_r,scatter_mpi_r1,scatter_mpi_r2,scatter_mpi_r3, &
+                     scatter_mpi_l,scatter_mpi_l1,scatter_mpi_l2,scatter_mpi_l3
+  END INTERFACE
+
+  
+  INTERFACE gather_mpi
+    MODULE PROCEDURE gather_mpi_i,gather_mpi_i1,gather_mpi_i2,gather_mpi_i3, &
+                     gather_mpi_r,gather_mpi_r1,gather_mpi_r2,gather_mpi_r3, &
+                     gather_mpi_l,gather_mpi_l1,gather_mpi_l2,gather_mpi_l3  
+  END INTERFACE
+  
+  INTERFACE scatter2D_mpi
+    MODULE PROCEDURE scatter2D_mpi_i,scatter2D_mpi_i1,scatter2D_mpi_i2,scatter2D_mpi_i3, &
+                     scatter2D_mpi_r,scatter2D_mpi_r1,scatter2D_mpi_r2,scatter2D_mpi_r3, &
+                     scatter2D_mpi_l,scatter2D_mpi_l1,scatter2D_mpi_l2,scatter2D_mpi_l3
+  END INTERFACE
+
+  INTERFACE gather2D_mpi
+    MODULE PROCEDURE gather2D_mpi_i,gather2D_mpi_i1,gather2D_mpi_i2,gather2D_mpi_i3, &
+                     gather2D_mpi_r,gather2D_mpi_r1,gather2D_mpi_r2,gather2D_mpi_r3, &
+                     gather2D_mpi_l,gather2D_mpi_l1,gather2D_mpi_l2,gather2D_mpi_l3
+  END INTERFACE 
+  
+  INTERFACE reduce_sum_mpi
+    MODULE PROCEDURE reduce_sum_mpi_i,reduce_sum_mpi_i1,reduce_sum_mpi_i2,reduce_sum_mpi_i3,reduce_sum_mpi_i4, &
+                     reduce_sum_mpi_r,reduce_sum_mpi_r1,reduce_sum_mpi_r2,reduce_sum_mpi_r3,reduce_sum_mpi_r4
+  END INTERFACE 
+
+ INTERFACE grid1dTo2d_mpi
+    MODULE PROCEDURE grid1dTo2d_mpi_i,grid1dTo2d_mpi_i1,grid1dTo2d_mpi_i2,grid1dTo2d_mpi_i3, &
+                     grid1dTo2d_mpi_r,grid1dTo2d_mpi_r1,grid1dTo2d_mpi_r2,grid1dTo2d_mpi_r3, &
+                     grid1dTo2d_mpi_l,grid1dTo2d_mpi_l1,grid1dTo2d_mpi_l2,grid1dTo2d_mpi_l3
+ END INTERFACE 
+
+ INTERFACE grid2dTo1d_mpi
+    MODULE PROCEDURE grid2dTo1d_mpi_i,grid2dTo1d_mpi_i1,grid2dTo1d_mpi_i2,grid2dTo1d_mpi_i3, &
+                     grid2dTo1d_mpi_r,grid2dTo1d_mpi_r1,grid2dTo1d_mpi_r2,grid2dTo1d_mpi_r3, &
+                     grid2dTo1d_mpi_l,grid2dTo1d_mpi_l1,grid2dTo1d_mpi_l2,grid2dTo1d_mpi_l3
+ END INTERFACE 
+    
+CONTAINS
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Broadcast --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!! -- Les chaine de charactère -- !!
+
+  SUBROUTINE bcast_mpi_c(var1)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(INOUT) :: Var1
+   
+    CALL bcast_mpi_cgen(Var1,len(Var1))
+
+  END SUBROUTINE bcast_mpi_c
+
+!! -- Les entiers -- !!
+  
+  SUBROUTINE bcast_mpi_i(var)
+  USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var
+    
+    INTEGER               :: var_tmp(1)
+    
+    IF (is_mpi_root) var_tmp(1)=var
+    CALL bcast_mpi_igen(Var_tmp,1)
+    var=var_tmp(1)
+    
+  END SUBROUTINE bcast_mpi_i
+
+  SUBROUTINE bcast_mpi_i1(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:)
+
+    CALL bcast_mpi_igen(Var,size(Var))
+    
+  END SUBROUTINE bcast_mpi_i1
+
+  SUBROUTINE bcast_mpi_i2(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:)
+   
+    CALL bcast_mpi_igen(Var,size(Var))
+  
+  END SUBROUTINE bcast_mpi_i2
+
+  SUBROUTINE bcast_mpi_i3(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:,:)
+   
+    CALL bcast_mpi_igen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_i3
+
+  SUBROUTINE bcast_mpi_i4(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:,:,:)
+   
+    CALL bcast_mpi_igen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_i4
+
+
+!! -- Les reels -- !!
+
+  SUBROUTINE bcast_mpi_r(var)
+  USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var
+    REAL               :: var_tmp(1)
+    
+    IF (is_mpi_root) var_tmp(1)=var
+    CALL bcast_mpi_rgen(Var_tmp,1)
+    var=var_tmp(1)   
+
+  END SUBROUTINE bcast_mpi_r
+
+  SUBROUTINE bcast_mpi_r1(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:)
+   
+    CALL bcast_mpi_rgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_r1
+
+  SUBROUTINE bcast_mpi_r2(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:)
+   
+    CALL bcast_mpi_rgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_r2
+
+  SUBROUTINE bcast_mpi_r3(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:,:)
+   
+    CALL bcast_mpi_rgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_r3
+
+  SUBROUTINE bcast_mpi_r4(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:,:,:)
+   
+    CALL bcast_mpi_rgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_r4
+  
+!! -- Les booleans -- !!
+
+  SUBROUTINE bcast_mpi_l(var)
+  USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var
+    LOGICAL               :: var_tmp(1)
+    
+    IF (is_mpi_root) var_tmp(1)=var
+    CALL bcast_mpi_lgen(Var_tmp,1)
+    var=var_tmp(1)   
+
+  END SUBROUTINE bcast_mpi_l
+
+  SUBROUTINE bcast_mpi_l1(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:)
+   
+    CALL bcast_mpi_lgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_l1
+
+  SUBROUTINE bcast_mpi_l2(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:)
+   
+    CALL bcast_mpi_lgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_l2
+
+  SUBROUTINE bcast_mpi_l3(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:,:)
+   
+    CALL bcast_mpi_lgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_l3
+
+  SUBROUTINE bcast_mpi_l4(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:,:,:)
+   
+    CALL bcast_mpi_lgen(Var,size(Var))
+
+  END SUBROUTINE bcast_mpi_l4
+  
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Scatter   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE scatter_mpi_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL scatter_mpi_igen(VarIn,Varout,1)
+    
+  END SUBROUTINE scatter_mpi_i
+
+  SUBROUTINE scatter_mpi_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL scatter_mpi_igen(VarIn,Varout,Size(VarOut,2))
+    
+  END SUBROUTINE scatter_mpi_i1
+  
+  SUBROUTINE scatter_mpi_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL scatter_mpi_igen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3))
+
+  END SUBROUTINE scatter_mpi_i2
+
+  SUBROUTINE scatter_mpi_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL scatter_mpi_igen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3)*Size(VarOut,4))
+  
+  END SUBROUTINE scatter_mpi_i3
+
+
+  SUBROUTINE scatter_mpi_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+      CALL scatter_mpi_rgen(VarIn,Varout,1)
+  
+  END SUBROUTINE scatter_mpi_r
+
+  SUBROUTINE scatter_mpi_r1(VarIn, VarOut)
+  USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+  IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+      CALL scatter_mpi_rgen(VarIn,Varout,Size(VarOut,2))
+  
+  END SUBROUTINE scatter_mpi_r1
+  
+  SUBROUTINE scatter_mpi_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+      CALL scatter_mpi_rgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3))
+  
+  END SUBROUTINE scatter_mpi_r2
+
+  SUBROUTINE scatter_mpi_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+      CALL scatter_mpi_rgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3)*Size(VarOut,4))
+  
+  END SUBROUTINE scatter_mpi_r3
+
+
+  SUBROUTINE scatter_mpi_l(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+      CALL scatter_mpi_lgen(VarIn,Varout,1)
+    
+  END SUBROUTINE scatter_mpi_l
+
+  SUBROUTINE scatter_mpi_l1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+      CALL scatter_mpi_lgen(VarIn,Varout,Size(VarOut,2))
+  
+  END SUBROUTINE scatter_mpi_l1
+  
+  SUBROUTINE scatter_mpi_l2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+      CALL scatter_mpi_lgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3))
+  
+  END SUBROUTINE scatter_mpi_l2
+
+  SUBROUTINE scatter_mpi_l3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+      CALL scatter_mpi_lgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3)*Size(VarOut,4))
+  
+  END SUBROUTINE scatter_mpi_l3  
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Gather   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+!!!!! --> Les entiers
+
+  SUBROUTINE gather_mpi_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+      CALL gather_mpi_igen(VarIn,VarOut,1)
+  
+  END SUBROUTINE gather_mpi_i
+  
+
+!!!!!
+
+  SUBROUTINE gather_mpi_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+      CALL gather_mpi_igen(VarIn,VarOut,Size(VarIn,2))
+  
+  END SUBROUTINE gather_mpi_i1
+
+!!!!!
+  
+  SUBROUTINE gather_mpi_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+      CALL gather_mpi_igen(VarIn,VarOut,Size(VarIn,2)*Size(VarIn,3))
+  
+  END SUBROUTINE gather_mpi_i2
+
+!!!!!
+
+  SUBROUTINE gather_mpi_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+      CALL gather_mpi_igen(VarIn,VarOut,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4))
+  
+  END SUBROUTINE gather_mpi_i3
+
+!!!!! --> Les reels
+
+  SUBROUTINE gather_mpi_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+      CALL gather_mpi_rgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE gather_mpi_r
+
+!!!!!
+
+  SUBROUTINE gather_mpi_r1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+      CALL gather_mpi_rgen(VarIn,VarOut,Size(VarIn,2))
+  
+  END SUBROUTINE gather_mpi_r1
+
+!!!!!
+  
+  SUBROUTINE gather_mpi_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+      CALL gather_mpi_rgen(VarIn,VarOut,Size(VarIn,2)*Size(VarIn,3))
+  
+  END SUBROUTINE gather_mpi_r2
+
+!!!!!
+
+  SUBROUTINE gather_mpi_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+      CALL gather_mpi_rgen(VarIn,VarOut,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4))
+  
+  END SUBROUTINE gather_mpi_r3
+
+!!!!! --> Les booleen
+
+  SUBROUTINE gather_mpi_l(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+      CALL gather_mpi_lgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE gather_mpi_l
+
+!!!!!
+
+  SUBROUTINE gather_mpi_l1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+      CALL gather_mpi_lgen(VarIn,VarOut,Size(VarIn,2))
+  
+  END SUBROUTINE gather_mpi_l1
+
+!!!!!
+  
+  SUBROUTINE gather_mpi_l2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+      CALL gather_mpi_lgen(VarIn,VarOut,Size(VarIn,2)*Size(VarIn,3))
+  
+  END SUBROUTINE gather_mpi_l2
+
+!!!!!
+
+  SUBROUTINE gather_mpi_l3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL gather_mpi_lgen(VarIn,VarOut,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4))
+  
+  END SUBROUTINE gather_mpi_l3
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Scatter2D   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE scatter2D_mpi_i(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    INTEGER,DIMENSION(klon_glo) :: Var_tmp    
+    
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_i
+
+  SUBROUTINE scatter2D_mpi_i1(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    INTEGER,DIMENSION(klon_glo,size(VarOut,2)) :: Var_tmp
+
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_i1
+
+  SUBROUTINE scatter2D_mpi_i2(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_glo,size(VarOut,2),size(VarOut,3)) :: Var_tmp
+
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_i2
+  
+  SUBROUTINE scatter2D_mpi_i3(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    INTEGER,DIMENSION(klon_glo,size(VarOut,2),size(VarOut,3),size(VarOut,4)) :: Var_tmp
+
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+    
+  END SUBROUTINE scatter2D_mpi_i3
+
+
+
+  SUBROUTINE scatter2D_mpi_r(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    REAL,DIMENSION(klon_glo) :: Var_tmp    
+    
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_R
+
+
+  SUBROUTINE scatter2D_mpi_r1(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_glo,size(VarOut,2)) :: Var_tmp
+    
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_r1
+
+
+  SUBROUTINE scatter2D_mpi_r2(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+
+    REAL,DIMENSION(klon_glo,size(VarOut,2),size(VarOut,3)) :: Var_tmp
+    
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_r2
+  
+  SUBROUTINE scatter2D_mpi_r3(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_glo,size(VarOut,2),size(VarOut,3),size(VarOut,4)) :: Var_tmp
+
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+ 
+  END SUBROUTINE scatter2D_mpi_r3
+  
+  
+  SUBROUTINE scatter2D_mpi_l(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_glo) :: Var_tmp    
+    
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_l
+
+
+  SUBROUTINE scatter2D_mpi_l1(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_glo,size(VarOut,2)) :: Var_tmp
+
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+  
+  END SUBROUTINE scatter2D_mpi_l1
+
+
+  SUBROUTINE scatter2D_mpi_l2(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    LOGICAL, DIMENSION(klon_glo,size(VarOut,2),size(VarOut,3)) :: Var_tmp
+  
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_mpi_l2
+  
+  SUBROUTINE scatter2D_mpi_l3(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_glo,size(VarOut,2),size(VarOut,3),size(VarOut,4)) :: Var_tmp
+
+    CALL grid2dTo1d_glo(VarIn,Var_tmp)
+    CALL scatter_mpi(Var_tmp,VarOut)
+ 
+  END SUBROUTINE scatter2D_mpi_l3
+  
+  
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Gather2D   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE gather2D_mpi_i(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    INTEGER,DIMENSION(klon_glo) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_i
+
+  SUBROUTINE gather2D_mpi_i1(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_glo,size(VarOut,3)) :: Var_tmp
+
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_i1
+
+  SUBROUTINE gather2D_mpi_i2(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_glo,size(VarOut,3),SIZE(VarOut,4)) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_i2
+  
+  SUBROUTINE gather2D_mpi_i3(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
+ 
+    INTEGER,DIMENSION(klon_glo,size(VarOut,3),SIZE(VarOut,4),SIZE(VarOut,5)) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_i3
+
+
+
+  SUBROUTINE gather2D_mpi_r(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_glo) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_r
+
+  SUBROUTINE gather2D_mpi_r1(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_glo,size(VarOut,3)) :: Var_tmp
+
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_r1
+
+  SUBROUTINE gather2D_mpi_r2(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_glo,size(VarOut,3),SIZE(VarOut,4)) :: Var_tmp
+
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_r2
+  
+  SUBROUTINE gather2D_mpi_r3(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_glo,size(VarOut,3),SIZE(VarOut,4),SIZE(VarOut,5)) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_r3
+
+  
+  
+  SUBROUTINE gather2D_mpi_l(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_glo) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_l
+
+  SUBROUTINE gather2D_mpi_l1(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_glo,size(VarOut,3)) :: Var_tmp
+
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_l1
+
+  SUBROUTINE gather2D_mpi_l2(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_glo,size(VarOut,3),SIZE(VarOut,4)) :: Var_tmp
+
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_l2
+  
+  SUBROUTINE gather2D_mpi_l3(VarIn, VarOut)
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_glo,size(VarOut,3),SIZE(VarOut,4),SIZE(VarOut,5)) :: Var_tmp
+    
+    CALL gather_mpi(VarIn,Var_tmp)
+    CALL grid1dTo2d_glo(Var_tmp,VarOut)
+
+  END SUBROUTINE gather2D_mpi_l3
+  
+  
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des reduce_sum   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE reduce_sum_mpi_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN)  :: VarIn
+    INTEGER,INTENT(OUT) :: VarOut
+    INTEGER             :: VarIn_tmp(1)
+    INTEGER             :: VarOut_tmp(1)
+    
+    VarIn_tmp(1)=VarIn    
+    CALL reduce_sum_mpi_igen(VarIn_tmp,Varout_tmp,1)
+    VarOut=VarOut_tmp(1)
+    
+  END SUBROUTINE reduce_sum_mpi_i
+
+  SUBROUTINE reduce_sum_mpi_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    CALL reduce_sum_mpi_igen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_i1
+
+  SUBROUTINE reduce_sum_mpi_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL reduce_sum_mpi_igen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_i2
+
+  SUBROUTINE reduce_sum_mpi_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL reduce_sum_mpi_igen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_i3
+
+  SUBROUTINE reduce_sum_mpi_i4(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL reduce_sum_mpi_igen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_i4                  
+  
+  
+  SUBROUTINE reduce_sum_mpi_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN)  :: VarIn
+    REAL,INTENT(OUT) :: VarOut
+    REAL             :: VarIn_tmp(1)
+    REAL             :: VarOut_tmp(1)
+    
+    VarIn_tmp(1)=VarIn    
+    CALL reduce_sum_mpi_rgen(VarIn_tmp,Varout_tmp,1)
+    VarOut=VarOut_tmp(1)
+  
+  END SUBROUTINE reduce_sum_mpi_r
+
+  SUBROUTINE reduce_sum_mpi_r1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    CALL reduce_sum_mpi_rgen(VarIn,Varout,SIZE(VarIn))
+     
+  END SUBROUTINE reduce_sum_mpi_r1
+
+  SUBROUTINE reduce_sum_mpi_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL reduce_sum_mpi_rgen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_r2
+
+  SUBROUTINE reduce_sum_mpi_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL reduce_sum_mpi_rgen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_r3
+
+  SUBROUTINE reduce_sum_mpi_r4(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL reduce_sum_mpi_rgen(VarIn,Varout,SIZE(VarIn))
+  
+  END SUBROUTINE reduce_sum_mpi_r4 
+  
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! SUBROUTINE grid1dTo2d  !!  
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+  SUBROUTINE grid1dTo2d_mpi_i(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_igen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid1dTo2d_mpi_i
+  
+
+  SUBROUTINE grid1dTo2d_mpi_i1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_igen(VarIn,VarOut,size(VarIn,2))
+  
+  END SUBROUTINE grid1dTo2d_mpi_i1
+
+  SUBROUTINE grid1dTo2d_mpi_i2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_igen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3))
+  
+  END SUBROUTINE grid1dTo2d_mpi_i2
+  
+  SUBROUTINE grid1dTo2d_mpi_i3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_igen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid1dTo2d_mpi_i3
+
+
+  SUBROUTINE grid1dTo2d_mpi_r(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_rgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid1dTo2d_mpi_r
+  
+
+  SUBROUTINE grid1dTo2d_mpi_r1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_rgen(VarIn,VarOut,size(VarIn,2))
+  
+  END SUBROUTINE grid1dTo2d_mpi_r1
+
+  SUBROUTINE grid1dTo2d_mpi_r2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_rgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3))
+  
+  END SUBROUTINE grid1dTo2d_mpi_r2
+  
+  SUBROUTINE grid1dTo2d_mpi_r3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_rgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid1dTo2d_mpi_r3
+  
+  
+  
+  SUBROUTINE grid1dTo2d_mpi_l(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_lgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid1dTo2d_mpi_l
+  
+
+  SUBROUTINE grid1dTo2d_mpi_l1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_lgen(VarIn,VarOut,size(VarIn,2))
+  
+  END SUBROUTINE grid1dTo2d_mpi_l1
+
+  SUBROUTINE grid1dTo2d_mpi_l2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_lgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3))
+  
+  END SUBROUTINE grid1dTo2d_mpi_l2
+  
+  SUBROUTINE grid1dTo2d_mpi_l3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
+    
+    CALL grid1dTo2d_mpi_lgen(VarIn,VarOut,size(VarIn,2)*size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid1dTo2d_mpi_l3
+
+
+  SUBROUTINE grid2dTo1d_mpi_i(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_igen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid2dTo1d_mpi_i
+  
+
+  SUBROUTINE grid2dTo1d_mpi_i1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_igen(VarIn,VarOut,size(VarIn,3))
+  
+  END SUBROUTINE grid2dTo1d_mpi_i1
+
+  SUBROUTINE grid2dTo1d_mpi_i2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_igen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid2dTo1d_mpi_i2
+  
+  SUBROUTINE grid2dTo1d_mpi_i3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_igen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4)*size(VarIn,5))
+  
+  END SUBROUTINE grid2dTo1d_mpi_i3
+ 
+
+
+
+  SUBROUTINE grid2dTo1d_mpi_r(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_rgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid2dTo1d_mpi_r
+  
+
+  SUBROUTINE grid2dTo1d_mpi_r1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_rgen(VarIn,VarOut,size(VarIn,3))
+  
+  END SUBROUTINE grid2dTo1d_mpi_r1
+
+  SUBROUTINE grid2dTo1d_mpi_r2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_rgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid2dTo1d_mpi_r2
+  
+  SUBROUTINE grid2dTo1d_mpi_r3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_rgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4)*size(VarIn,5))
+  
+  END SUBROUTINE grid2dTo1d_mpi_r3
+
+
+
+  SUBROUTINE grid2dTo1d_mpi_l(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_lgen(VarIn,VarOut,1)
+  
+  END SUBROUTINE grid2dTo1d_mpi_l
+  
+
+  SUBROUTINE grid2dTo1d_mpi_l1(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_lgen(VarIn,VarOut,size(VarIn,3))
+  
+  END SUBROUTINE grid2dTo1d_mpi_l1
+
+
+
+  SUBROUTINE grid2dTo1d_mpi_l2(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_lgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4))
+  
+  END SUBROUTINE grid2dTo1d_mpi_l2
+
+  
+  SUBROUTINE grid2dTo1d_mpi_l3(VarIn,VarOut)  
+  IMPLICIT NONE  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
+    
+    CALL grid2dTo1d_mpi_lgen(VarIn,VarOut,size(VarIn,3)*size(VarIn,4)*size(VarIn,5))
+  
+  END SUBROUTINE grid2dTo1d_mpi_l3
+
+               
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! DEFINITION DES FONCTIONS DE TRANSFERT GENERIQUES !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE bcast_mpi_cgen(var,nb)
+    USE mod_phys_lmdz_mpi_data 
+    IMPLICIT NONE
+    
+    CHARACTER(LEN=*),INTENT(INOUT) :: Var
+    INTEGER,INTENT(IN) :: nb
+    
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) RETURN
+    
+#ifdef CPP_MPI
+    CALL MPI_BCAST(Var,nb,MPI_CHARACTER,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+        
+  END SUBROUTINE bcast_mpi_cgen
+
+
+      
+  SUBROUTINE bcast_mpi_igen(var,nb)
+    USE mod_phys_lmdz_mpi_data
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: nb
+    INTEGER,DIMENSION(nb),INTENT(INOUT) :: Var
+    
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) RETURN
+
+#ifdef CPP_MPI
+    CALL MPI_BCAST(Var,nb,MPI_INTEGER,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+        
+  END SUBROUTINE bcast_mpi_igen
+
+
+
+  
+  SUBROUTINE bcast_mpi_rgen(var,nb)
+    USE mod_phys_lmdz_mpi_data
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: nb
+    REAL,DIMENSION(nb),INTENT(INOUT) :: Var
+    
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) RETURN
+
+#ifdef CPP_MPI
+    CALL MPI_BCAST(Var,nb,MPI_REAL_LMDZ,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+    
+  END SUBROUTINE bcast_mpi_rgen
+  
+
+
+
+  SUBROUTINE bcast_mpi_lgen(var,nb)
+    USE mod_phys_lmdz_mpi_data
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: nb
+    LOGICAL,DIMENSION(nb),INTENT(INOUT) :: Var
+    
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) RETURN
+
+#ifdef CPP_MPI
+    CALL MPI_BCAST(Var,nb,MPI_LOGICAL,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+
+  END SUBROUTINE bcast_mpi_lgen
+
+  
+
+  SUBROUTINE scatter_mpi_igen(VarIn, VarOut, dimsize)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN),DIMENSION(klon_glo,dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(klon_mpi,dimsize) :: VarOut
+  
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    INTEGER,DIMENSION(0:mpi_size-1) :: displs
+    INTEGER,DIMENSION(0:mpi_size-1) :: counts
+    INTEGER,DIMENSION(dimsize*klon_glo) :: VarTmp
+    INTEGER :: nb,i,index,rank
+    INTEGER :: ierr
+
+
+    IF (.not.is_using_mpi) THEN
+      VarOut(:,:)=VarIn(:,:)
+      RETURN
+    ENDIF
+
+    
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        displs(rank)=Index-1
+        counts(rank)=nb*dimsize
+        DO i=1,dimsize
+          VarTmp(Index:Index+nb-1)=VarIn(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)
+          Index=Index+nb
+        ENDDO
+      ENDDO
+    ENDIF
+      
+#ifdef CPP_MPI 
+    CALL MPI_SCATTERV(VarTmp,counts,displs,MPI_INTEGER,VarOut,klon_mpi*dimsize,   &
+                      MPI_INTEGER,mpi_master, COMM_LMDZ_PHY,ierr)
+#endif
+
+  END SUBROUTINE scatter_mpi_igen
+
+  SUBROUTINE scatter_mpi_rgen(VarIn, VarOut, dimsize)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN),DIMENSION(klon_glo,dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(klon_mpi,dimsize) :: VarOut
+  
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+
+    INTEGER,DIMENSION(0:mpi_size-1) :: displs
+    INTEGER,DIMENSION(0:mpi_size-1) :: counts
+    REAL,DIMENSION(dimsize*klon_glo) :: VarTmp
+    INTEGER :: nb,i,index,rank
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) THEN
+      VarOut(:,:)=VarIn(:,:)
+      RETURN
+    ENDIF
+    
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        displs(rank)=Index-1
+        counts(rank)=nb*dimsize
+        DO i=1,dimsize
+          VarTmp(Index:Index+nb-1)=VarIn(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)
+          Index=Index+nb
+        ENDDO
+      ENDDO
+    ENDIF
+      
+#ifdef CPP_MPI 
+    CALL MPI_SCATTERV(VarTmp,counts,displs,MPI_REAL_LMDZ,VarOut,klon_mpi*dimsize,   &
+                      MPI_REAL_LMDZ,mpi_master, COMM_LMDZ_PHY,ierr)
+
+#endif
+
+  END SUBROUTINE scatter_mpi_rgen
+
+  
+  SUBROUTINE scatter_mpi_lgen(VarIn, VarOut, dimsize)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN),DIMENSION(klon_glo,dimsize) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(klon_mpi,dimsize) :: VarOut
+  
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+
+    INTEGER,DIMENSION(0:mpi_size-1) :: displs
+    INTEGER,DIMENSION(0:mpi_size-1) :: counts
+    LOGICAL,DIMENSION(dimsize*klon_glo) :: VarTmp
+    INTEGER :: nb,i,index,rank
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) THEN
+      VarOut(:,:)=VarIn(:,:)
+      RETURN
+    ENDIF
+    
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        displs(rank)=Index-1
+        counts(rank)=nb*dimsize
+        DO i=1,dimsize
+          VarTmp(Index:Index+nb-1)=VarIn(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)
+          Index=Index+nb
+        ENDDO
+      ENDDO
+    ENDIF
+      
+#ifdef CPP_MPI
+    CALL MPI_SCATTERV(VarTmp,counts,displs,MPI_LOGICAL,VarOut,klon_mpi*dimsize,   &
+                      MPI_LOGICAL,mpi_master, COMM_LMDZ_PHY,ierr)
+#endif
+
+  END SUBROUTINE scatter_mpi_lgen  
+
+
+
+
+  SUBROUTINE gather_mpi_igen(VarIn, VarOut, dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN),DIMENSION(klon_mpi,dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(klon_glo,dimsize) :: VarOut
+  
+    INTEGER,DIMENSION(0:mpi_size-1) :: displs
+    INTEGER,DIMENSION(0:mpi_size-1) :: counts
+    INTEGER,DIMENSION(dimsize*klon_glo) :: VarTmp
+    INTEGER :: nb,i,index,rank
+    INTEGER :: ierr
+
+    IF (.not.is_using_mpi) THEN
+      VarOut(:,:)=VarIn(:,:)
+      RETURN
+    ENDIF
+
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        displs(rank)=Index-1
+        counts(rank)=nb*dimsize
+        Index=Index+nb*dimsize
+      ENDDO
+     
+    ENDIF
+    
+#ifdef CPP_MPI
+    CALL MPI_GATHERV(VarIn,klon_mpi*dimsize,MPI_INTEGER,VarTmp,counts,displs,   &
+                     MPI_INTEGER,mpi_master, COMM_LMDZ_PHY,ierr)
+#endif
+
+                          
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        DO i=1,dimsize
+          VarOut(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)=VarTmp(Index:Index+nb-1)
+          Index=Index+nb
+        ENDDO
+      ENDDO
+    ENDIF
+
+  END SUBROUTINE gather_mpi_igen  
+
+  SUBROUTINE gather_mpi_rgen(VarIn, VarOut, dimsize)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN),DIMENSION(klon_mpi,dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(klon_glo,dimsize) :: VarOut
+  
+    INTEGER,DIMENSION(0:mpi_size-1) :: displs
+    INTEGER,DIMENSION(0:mpi_size-1) :: counts
+    REAL,DIMENSION(dimsize*klon_glo) :: VarTmp
+    INTEGER :: nb,i,index,rank
+    INTEGER :: ierr
+
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        displs(rank)=Index-1
+        counts(rank)=nb*dimsize
+        Index=Index+nb*dimsize
+      ENDDO
+    ENDIF
+    
+    IF (.not.is_using_mpi) THEN
+      VarOut(:,:)=VarIn(:,:)
+      RETURN
+    ENDIF
+
+#ifdef CPP_MPI
+    CALL MPI_GATHERV(VarIn,klon_mpi*dimsize,MPI_REAL_LMDZ,VarTmp,counts,displs,   &
+                      MPI_REAL_LMDZ,mpi_master, COMM_LMDZ_PHY,ierr)
+#endif
+                          
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        DO i=1,dimsize
+          VarOut(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)=VarTmp(Index:Index+nb-1)
+          Index=Index+nb
+        ENDDO
+      ENDDO
+    ENDIF
+
+  END SUBROUTINE gather_mpi_rgen  
+
+  SUBROUTINE gather_mpi_lgen(VarIn, VarOut, dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN),DIMENSION(klon_mpi,dimsize) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(klon_glo,dimsize) :: VarOut
+  
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+
+    INTEGER,DIMENSION(0:mpi_size-1) :: displs
+    INTEGER,DIMENSION(0:mpi_size-1) :: counts
+    LOGICAL,DIMENSION(dimsize*klon_glo) :: VarTmp
+    INTEGER :: nb,i,index,rank
+    INTEGER :: ierr
+    
+    IF (.not.is_using_mpi) THEN
+      VarOut(:,:)=VarIn(:,:)
+      RETURN
+    ENDIF
+
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        displs(rank)=Index-1
+        counts(rank)=nb*dimsize
+        Index=Index+nb*dimsize
+      ENDDO
+    ENDIF
+    
+
+#ifdef CPP_MPI
+    CALL MPI_GATHERV(VarIn,klon_mpi*dimsize,MPI_LOGICAL,VarTmp,counts,displs,   &
+                      MPI_LOGICAL,mpi_master, COMM_LMDZ_PHY,ierr)
+#endif
+                          
+    IF (is_mpi_root) THEN
+      Index=1
+      DO rank=0,mpi_size-1
+        nb=klon_mpi_para_nb(rank)
+        DO i=1,dimsize
+          VarOut(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)=VarTmp(Index:Index+nb-1)
+          Index=Index+nb
+        ENDDO
+      ENDDO
+    ENDIF
+
+  END SUBROUTINE gather_mpi_lgen
+  
+
+
+  SUBROUTINE reduce_sum_mpi_igen(VarIn,VarOut,nb)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+   
+    INTEGER,INTENT(IN) :: nb
+    INTEGER,DIMENSION(nb),INTENT(IN) :: VarIn
+    INTEGER,DIMENSION(nb),INTENT(OUT) :: VarOut    
+    INTEGER :: ierr
+   
+    IF (.not.is_using_mpi) THEN
+      VarOut(:)=VarIn(:)
+      RETURN
+    ENDIF
+
+
+#ifdef CPP_MPI
+    CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_INTEGER,MPI_SUM,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+            
+  END SUBROUTINE reduce_sum_mpi_igen
+  
+  SUBROUTINE reduce_sum_mpi_rgen(VarIn,VarOut,nb)
+    USE mod_phys_lmdz_mpi_data 
+    USE mod_grid_phy_lmdz
+
+    IMPLICIT NONE
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif
+    
+    INTEGER,INTENT(IN) :: nb
+    REAL,DIMENSION(nb),INTENT(IN) :: VarIn
+    REAL,DIMENSION(nb),INTENT(OUT) :: VarOut    
+    INTEGER :: ierr
+ 
+    IF (.not.is_using_mpi) THEN
+      VarOut(:)=VarIn(:)
+      RETURN
+    ENDIF
+   
+#ifdef CPP_MPI
+    CALL MPI_REDUCE(VarIn,VarOut,nb,MPI_REAL_LMDZ,MPI_SUM,mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+        
+  END SUBROUTINE reduce_sum_mpi_rgen
+
+
+
+  SUBROUTINE grid1dTo2d_mpi_igen(VarIn,VarOut,dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN) ,DIMENSION(klon_mpi,dimsize)       :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(nbp_lon*jj_nb,dimsize)  :: VarOut
+    INTEGER :: i,ij,Offset
+
+    
+    VarOut(1:nbp_lon,:)=0
+    VarOut(nbp_lon*(jj_nb-1)+1:nbp_lon*jj_nb,:)=0
+    
+    offset=ii_begin
+    IF (is_north_pole_dyn) Offset=nbp_lon
+    
+    
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij+offset-1,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+    
+    
+    IF (is_north_pole_dyn) THEN 
+      DO i=1,dimsize
+        DO ij=1,nbp_lon
+         VarOut(ij,i)=VarIn(1,i)
+        ENDDO
+      ENDDO
+    ENDIF
+    
+    IF (is_south_pole_dyn) THEN 
+      DO i=1,dimsize
+        DO ij=nbp_lon*(jj_nb-1)+1,nbp_lon*jj_nb
+         VarOut(ij,i)=VarIn(klon_mpi,i)
+        ENDDO
+      ENDDO
+    ENDIF
+
+  END SUBROUTINE grid1dTo2d_mpi_igen   
+
+
+  SUBROUTINE grid1dTo2d_mpi_rgen(VarIn,VarOut,dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN) ,DIMENSION(klon_mpi,dimsize)       :: VarIn
+    REAL,INTENT(OUT),DIMENSION(nbp_lon*jj_nb,dimsize)  :: VarOut
+    INTEGER :: i,ij,Offset
+
+    
+    VarOut(1:nbp_lon,:)=0
+    VarOut(nbp_lon*(jj_nb-1)+1:nbp_lon*jj_nb,:)=0
+    
+    offset=ii_begin
+    IF (is_north_pole_dyn) Offset=nbp_lon
+    
+    
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij+offset-1,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+    
+    
+    IF (is_north_pole_dyn) THEN 
+      DO i=1,dimsize
+        DO ij=1,nbp_lon
+         VarOut(ij,i)=VarIn(1,i)
+        ENDDO
+      ENDDO
+    ENDIF
+    
+    IF (is_south_pole_dyn) THEN 
+      DO i=1,dimsize
+        DO ij=nbp_lon*(jj_nb-1)+1,nbp_lon*jj_nb
+         VarOut(ij,i)=VarIn(klon_mpi,i)
+        ENDDO
+      ENDDO
+    ENDIF
+
+   END SUBROUTINE grid1dTo2d_mpi_rgen   
+
+
+
+  SUBROUTINE grid1dTo2d_mpi_lgen(VarIn,VarOut,dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN) ,DIMENSION(klon_mpi,dimsize)       :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(nbp_lon*jj_nb,dimsize)  :: VarOut
+    INTEGER :: i,ij,Offset
+
+    
+    VarOut(1:nbp_lon,:)=.FALSE.
+    VarOut(nbp_lon*(jj_nb-1)+1:nbp_lon*jj_nb,:)=.FALSE.
+    
+    offset=ii_begin
+    IF (is_north_pole_dyn) Offset=nbp_lon
+    
+    
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij+offset-1,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+    
+    
+    IF (is_north_pole_dyn) THEN 
+      DO i=1,dimsize
+        DO ij=1,nbp_lon
+         VarOut(ij,i)=VarIn(1,i)
+        ENDDO
+      ENDDO
+    ENDIF
+    
+    IF (is_south_pole_dyn) THEN 
+      DO i=1,dimsize
+        DO ij=nbp_lon*(jj_nb-1)+1,nbp_lon*jj_nb
+         VarOut(ij,i)=VarIn(klon_mpi,i)
+        ENDDO
+      ENDDO
+    ENDIF
+
+   END SUBROUTINE grid1dTo2d_mpi_lgen   
+
+  
+
+
+  SUBROUTINE grid2dTo1d_mpi_igen(VarIn,VarOut,dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN) ,DIMENSION(nbp_lon*jj_nb,dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(klon_mpi,dimsize)      :: VarOut
+    INTEGER :: i,ij,offset
+
+    offset=ii_begin
+    IF (is_north_pole_dyn) offset=nbp_lon
+
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij,i)=VarIn(ij+offset-1,i)
+      ENDDO
+    ENDDO
+
+    IF (is_north_pole_dyn) THEN 
+      DO i=1,dimsize
+        VarOut(1,i)=VarIn(1,i)
+      ENDDO
+    ENDIF
+    
+    
+  END SUBROUTINE grid2dTo1d_mpi_igen   
+
+
+
+  SUBROUTINE grid2dTo1d_mpi_rgen(VarIn,VarOut,dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN) ,DIMENSION(nbp_lon*jj_nb,dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(klon_mpi,dimsize)      :: VarOut
+    INTEGER :: i,ij,offset
+
+    offset=ii_begin
+    IF (is_north_pole_dyn) offset=nbp_lon
+
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij,i)=VarIn(ij+offset-1,i)
+      ENDDO
+    ENDDO
+
+    IF (is_north_pole_dyn) THEN 
+      DO i=1,dimsize
+         VarOut(1,i)=VarIn(1,i)
+      ENDDO
+    ENDIF
+    
+    
+  END SUBROUTINE grid2dTo1d_mpi_rgen   
+  
+
+  SUBROUTINE grid2dTo1d_mpi_lgen(VarIn,VarOut,dimsize)
+    USE mod_phys_lmdz_mpi_data
+    USE mod_grid_phy_lmdz
+    IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN) ,DIMENSION(nbp_lon*jj_nb,dimsize) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(klon_mpi,dimsize)      :: VarOut
+    INTEGER :: i,ij,offset
+
+    offset=ii_begin
+    IF (is_north_pole_dyn) offset=nbp_lon
+
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij,i)=VarIn(ij+offset-1,i)
+      ENDDO
+    ENDDO
+
+    IF (is_north_pole_dyn) THEN 
+      DO i=1,dimsize
+        VarOut(1,i)=VarIn(1,i)
+      ENDDO
+    ENDIF
+    
+    
+  END SUBROUTINE grid2dTo1d_mpi_lgen   
+
+END MODULE mod_phys_lmdz_mpi_transfert
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_omp_data.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_omp_data.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_omp_data.F90	(revision 3330)
@@ -0,0 +1,125 @@
+!
+!$Id$
+!
+MODULE mod_phys_lmdz_omp_data
+
+  INTEGER,SAVE :: omp_size
+  INTEGER,SAVE :: omp_rank
+  LOGICAL,SAVE :: is_omp_root
+  LOGICAL,SAVE :: is_using_omp
+  LOGICAL,SAVE :: is_north_pole_phy, is_south_pole_phy
+  
+  INTEGER,SAVE,DIMENSION(:),ALLOCATABLE :: klon_omp_para_nb
+  INTEGER,SAVE,DIMENSION(:),ALLOCATABLE :: klon_omp_para_begin
+  INTEGER,SAVE,DIMENSION(:),ALLOCATABLE :: klon_omp_para_end    
+  
+  INTEGER,SAVE :: klon_omp
+  INTEGER,SAVE :: klon_omp_begin
+  INTEGER,SAVE :: klon_omp_end
+!$OMP  THREADPRIVATE(omp_rank,klon_omp,is_omp_root,klon_omp_begin,klon_omp_end)
+!$OMP  THREADPRIVATE(is_north_pole_phy, is_south_pole_phy)
+
+CONTAINS
+  
+  SUBROUTINE Init_phys_lmdz_omp_data(klon_mpi)
+    USE dimphy 
+    USE mod_phys_lmdz_mpi_data, ONLY : is_north_pole_dyn, is_south_pole_dyn
+    IMPLICIT NONE
+    INTEGER, INTENT(in) :: klon_mpi
+
+    INTEGER :: i
+
+    CHARACTER (LEN=20) :: modname='Init_phys_lmdz_omp_data'
+    CHARACTER (LEN=80) :: abort_message
+
+
+#ifdef CPP_OMP    
+    INTEGER :: OMP_GET_NUM_THREADS
+    EXTERNAL OMP_GET_NUM_THREADS
+    INTEGER :: OMP_GET_THREAD_NUM
+    EXTERNAL OMP_GET_THREAD_NUM
+#endif  
+
+#ifdef CPP_OMP
+!$OMP MASTER
+        is_using_omp=.TRUE.
+        omp_size=OMP_GET_NUM_THREADS()
+!$OMP END MASTER
+!$OMP BARRIER
+        omp_rank=OMP_GET_THREAD_NUM()    
+#else    
+    is_using_omp=.FALSE.
+    omp_size=1
+    omp_rank=0
+#endif
+
+   is_omp_root=.FALSE.
+!$OMP MASTER
+   IF (omp_rank==0) THEN
+     is_omp_root=.TRUE.
+   ELSE
+     abort_message = 'ANORMAL : OMP_MASTER /= 0'
+     CALL abort_gcm (modname,abort_message,1)
+   ENDIF
+!$OMP END MASTER
+
+
+!$OMP MASTER 
+
+    ALLOCATE(klon_omp_para_nb(0:omp_size-1))
+    ALLOCATE(klon_omp_para_begin(0:omp_size-1))
+    ALLOCATE(klon_omp_para_end(0:omp_size-1))
+    
+    DO i=0,omp_size-1
+      klon_omp_para_nb(i)=klon_mpi/omp_size
+      IF (i<MOD(klon_mpi,omp_size)) klon_omp_para_nb(i)=klon_omp_para_nb(i)+1
+    ENDDO
+    
+    klon_omp_para_begin(0) = 1
+    klon_omp_para_end(0) = klon_omp_para_nb(0)
+    
+    DO i=1,omp_size-1
+      klon_omp_para_begin(i)=klon_omp_para_end(i-1)+1
+      klon_omp_para_end(i)=klon_omp_para_begin(i)+klon_omp_para_nb(i)-1
+    ENDDO
+!$OMP END MASTER
+!$OMP BARRIER
+
+   if ((is_north_pole_dyn) .AND. (omp_rank == 0 )) then
+      is_north_pole_phy = .TRUE.
+    else
+      is_north_pole_phy = .FALSE.
+    endif
+    if ((is_south_pole_dyn) .AND. (omp_rank == omp_size-1)) then
+      is_south_pole_phy = .TRUE.
+    else
+      is_south_pole_phy = .FALSE.
+    endif
+   
+    klon_omp=klon_omp_para_nb(omp_rank)
+    klon_omp_begin=klon_omp_para_begin(omp_rank)
+    klon_omp_end=klon_omp_para_end(omp_rank)
+    
+    CALL Print_module_data
+    
+  END SUBROUTINE Init_phys_lmdz_omp_data
+
+  SUBROUTINE Print_module_data
+  IMPLICIT NONE
+  INCLUDE "iniprint.h"
+
+!$OMP CRITICAL  
+  WRITE(lunout,*)'--------> TASK ',omp_rank
+  WRITE(lunout,*)'omp_size =',omp_size
+  WRITE(lunout,*)'omp_rank =',omp_rank
+  WRITE(lunout,*)'is_omp_root =',is_omp_root
+  WRITE(lunout,*)'klon_omp_para_nb =',klon_omp_para_nb
+  WRITE(lunout,*)'klon_omp_para_begin =',klon_omp_para_begin
+  WRITE(lunout,*)'klon_omp_para_end =',klon_omp_para_end    
+  WRITE(lunout,*)'klon_omp =',klon_omp
+  WRITE(lunout,*)'klon_omp_begin =',klon_omp_begin
+  WRITE(lunout,*)'klon_omp_end =',klon_omp_end    
+!$OMP END CRITICAL
+
+  END SUBROUTINE Print_module_data
+END MODULE mod_phys_lmdz_omp_data
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_omp_transfert.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_omp_transfert.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_omp_transfert.F90	(revision 3330)
@@ -0,0 +1,1064 @@
+!
+!$Header$
+!
+MODULE mod_phys_lmdz_omp_transfert
+
+  PRIVATE
+  
+  INTEGER,PARAMETER :: grow_factor=1.5
+  INTEGER,PARAMETER :: size_min=1024
+  
+  CHARACTER(LEN=size_min),SAVE            :: buffer_c
+!  INTEGER,SAVE                            :: size_c=0
+  INTEGER,SAVE,ALLOCATABLE,DIMENSION(:)   :: buffer_i
+  INTEGER,SAVE                            :: size_i=0
+  REAL,SAVE,ALLOCATABLE,DIMENSION(:)      :: buffer_r
+  INTEGER,SAVE                            :: size_r=0
+  LOGICAL,SAVE,ALLOCATABLE,DIMENSION(:)   :: buffer_l
+  INTEGER,SAVE                            :: size_l=0
+
+
+  
+  
+  INTERFACE bcast_omp
+    MODULE PROCEDURE bcast_omp_c,                                                     &
+                     bcast_omp_i,bcast_omp_i1,bcast_omp_i2,bcast_omp_i3,bcast_omp_i4, &
+                     bcast_omp_r,bcast_omp_r1,bcast_omp_r2,bcast_omp_r3,bcast_omp_r4, &
+                     bcast_omp_l,bcast_omp_l1,bcast_omp_l2,bcast_omp_l3,bcast_omp_l4
+  END INTERFACE
+
+  INTERFACE scatter_omp
+    MODULE PROCEDURE scatter_omp_i,scatter_omp_i1,scatter_omp_i2,scatter_omp_i3, &
+                     scatter_omp_r,scatter_omp_r1,scatter_omp_r2,scatter_omp_r3, &
+                     scatter_omp_l,scatter_omp_l1,scatter_omp_l2,scatter_omp_l3
+  END INTERFACE
+
+  
+  INTERFACE gather_omp
+    MODULE PROCEDURE gather_omp_i,gather_omp_i1,gather_omp_i2,gather_omp_i3, &
+                     gather_omp_r,gather_omp_r1,gather_omp_r2,gather_omp_r3, &
+                     gather_omp_l,gather_omp_l1,gather_omp_l2,gather_omp_l3  
+  END INTERFACE
+  
+  
+  INTERFACE reduce_sum_omp
+    MODULE PROCEDURE reduce_sum_omp_i,reduce_sum_omp_i1,reduce_sum_omp_i2,reduce_sum_omp_i3,reduce_sum_omp_i4, &
+                     reduce_sum_omp_r,reduce_sum_omp_r1,reduce_sum_omp_r2,reduce_sum_omp_r3,reduce_sum_omp_r4
+  END INTERFACE 
+
+
+  PUBLIC bcast_omp,scatter_omp,gather_omp,reduce_sum_omp, omp_barrier
+
+CONTAINS
+
+  SUBROUTINE omp_barrier
+  IMPLICIT NONE
+
+!$OMP BARRIER
+
+  END SUBROUTINE omp_barrier
+  
+  SUBROUTINE check_buffer_i(buff_size)
+  IMPLICIT NONE
+  INTEGER :: buff_size
+
+!$OMP BARRIER
+!$OMP MASTER
+    IF (buff_size>size_i) THEN
+      IF (ALLOCATED(buffer_i)) DEALLOCATE(buffer_i)
+      size_i=MAX(size_min,INT(grow_factor*buff_size))
+      ALLOCATE(buffer_i(size_i))
+    ENDIF
+!$OMP END MASTER
+!$OMP BARRIER
+  
+  END SUBROUTINE check_buffer_i
+  
+  SUBROUTINE check_buffer_r(buff_size)
+  IMPLICIT NONE
+  INTEGER :: buff_size
+
+!$OMP BARRIER
+!$OMP MASTER
+    IF (buff_size>size_r) THEN
+      IF (ALLOCATED(buffer_r)) DEALLOCATE(buffer_r)
+      size_r=MAX(size_min,INT(grow_factor*buff_size))
+      ALLOCATE(buffer_r(size_r))
+    ENDIF
+!$OMP END MASTER
+!$OMP BARRIER
+  
+  END SUBROUTINE check_buffer_r
+  
+  SUBROUTINE check_buffer_l(buff_size)
+  IMPLICIT NONE
+  INTEGER :: buff_size
+
+!$OMP BARRIER
+!$OMP MASTER
+    IF (buff_size>size_l) THEN
+      IF (ALLOCATED(buffer_l)) DEALLOCATE(buffer_l)
+      size_l=MAX(size_min,INT(grow_factor*buff_size))
+      ALLOCATE(buffer_l(size_l))
+    ENDIF
+!$OMP END MASTER
+!$OMP BARRIER
+  
+  END SUBROUTINE check_buffer_l
+    
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Broadcast --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!! -- Les chaine de charactère -- !!
+
+  SUBROUTINE bcast_omp_c(var)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(INOUT) :: Var
+    
+    CALL bcast_omp_cgen(Var,len(Var),buffer_c)
+    
+  END SUBROUTINE bcast_omp_c
+
+!! -- Les entiers -- !!
+  
+  SUBROUTINE bcast_omp_i(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var
+    INTEGER :: Var_tmp(1)
+    
+    Var_tmp(1)=Var
+    CALL check_buffer_i(1)
+    CALL bcast_omp_igen(Var_tmp,1,buffer_i)
+    Var=Var_tmp(1)
+
+  END SUBROUTINE bcast_omp_i
+
+
+  SUBROUTINE bcast_omp_i1(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:)
+   
+    CALL check_buffer_i(size(Var))
+    CALL bcast_omp_igen(Var,size(Var),buffer_i)
+
+  END SUBROUTINE bcast_omp_i1
+
+
+  SUBROUTINE bcast_omp_i2(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:)
+   
+    CALL check_buffer_i(size(Var))
+    CALL bcast_omp_igen(Var,size(Var),buffer_i)
+
+  END SUBROUTINE bcast_omp_i2
+
+
+  SUBROUTINE bcast_omp_i3(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:,:)
+
+    CALL check_buffer_i(size(Var))
+    CALL bcast_omp_igen(Var,size(Var),buffer_i)
+
+  END SUBROUTINE bcast_omp_i3
+
+
+  SUBROUTINE bcast_omp_i4(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:,:,:)
+   
+    CALL check_buffer_i(size(Var))
+    CALL bcast_omp_igen(Var,size(Var),buffer_i)
+
+  END SUBROUTINE bcast_omp_i4
+
+
+!! -- Les reels -- !!
+
+  SUBROUTINE bcast_omp_r(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var
+    REAL :: Var_tmp(1)
+    
+    Var_tmp(1)=Var
+    CALL check_buffer_r(1)
+    CALL bcast_omp_rgen(Var_tmp,1,buffer_r)
+    Var=Var_tmp(1)
+
+  END SUBROUTINE bcast_omp_r
+
+
+  SUBROUTINE bcast_omp_r1(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:)
+   
+    CALL check_buffer_r(size(Var))
+    CALL bcast_omp_rgen(Var,size(Var),buffer_r)
+
+  END SUBROUTINE bcast_omp_r1
+
+
+  SUBROUTINE bcast_omp_r2(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:)
+   
+    CALL check_buffer_r(size(Var))
+    CALL bcast_omp_rgen(Var,size(Var),buffer_r)
+
+  END SUBROUTINE bcast_omp_r2
+
+
+  SUBROUTINE bcast_omp_r3(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:,:)
+
+    CALL check_buffer_r(size(Var))
+    CALL bcast_omp_rgen(Var,size(Var),buffer_r)
+
+  END SUBROUTINE bcast_omp_r3
+
+
+  SUBROUTINE bcast_omp_r4(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:,:,:)
+   
+    CALL check_buffer_r(size(Var))
+    CALL bcast_omp_rgen(Var,size(Var),buffer_r)
+
+  END SUBROUTINE bcast_omp_r4
+
+  
+!! -- Les booleans -- !!
+
+  SUBROUTINE bcast_omp_l(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var
+    LOGICAL :: Var_tmp(1)
+    
+    Var_tmp(1)=Var
+    CALL check_buffer_l(1)
+    CALL bcast_omp_lgen(Var_tmp,1,buffer_l)
+    Var=Var_tmp(1)
+
+  END SUBROUTINE bcast_omp_l
+
+
+  SUBROUTINE bcast_omp_l1(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:)
+   
+    CALL check_buffer_l(size(Var))
+    CALL bcast_omp_lgen(Var,size(Var),buffer_l)
+
+  END SUBROUTINE bcast_omp_l1
+
+
+  SUBROUTINE bcast_omp_l2(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:)
+   
+    CALL check_buffer_l(size(Var))
+    CALL bcast_omp_lgen(Var,size(Var),buffer_l)
+
+  END SUBROUTINE bcast_omp_l2
+
+
+  SUBROUTINE bcast_omp_l3(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:,:)
+
+    CALL check_buffer_l(size(Var))
+    CALL bcast_omp_lgen(Var,size(Var),buffer_l)
+
+  END SUBROUTINE bcast_omp_l3
+
+
+  SUBROUTINE bcast_omp_l4(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:,:,:)
+   
+    CALL check_buffer_l(size(Var))
+    CALL bcast_omp_lgen(Var,size(Var),buffer_l)
+
+  END SUBROUTINE bcast_omp_l4
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Scatter   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE scatter_omp_i(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL Check_buffer_i(size(VarIn))   
+    CALL scatter_omp_igen(VarIn,Varout,1,buffer_i)
+    
+  END SUBROUTINE scatter_omp_i
+
+
+  SUBROUTINE scatter_omp_i1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    CALL Check_buffer_i(size(VarIn))   
+    CALL scatter_omp_igen(VarIn,Varout,Size(VarOut,2),buffer_i)
+    
+  END SUBROUTINE scatter_omp_i1
+  
+  
+  SUBROUTINE scatter_omp_i2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarIn))   
+    CALL scatter_omp_igen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3),buffer_i)
+
+  END SUBROUTINE scatter_omp_i2
+
+
+  SUBROUTINE scatter_omp_i3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarIn))   
+    CALL scatter_omp_igen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3)*Size(VarOut,4),buffer_i)
+  
+  END SUBROUTINE scatter_omp_i3
+
+
+
+
+  SUBROUTINE scatter_omp_r(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL Check_buffer_r(size(VarIn))   
+    CALL scatter_omp_rgen(VarIn,Varout,1,buffer_r)
+    
+  END SUBROUTINE scatter_omp_r
+
+
+  SUBROUTINE scatter_omp_r1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarIn))   
+    CALL scatter_omp_rgen(VarIn,Varout,Size(VarOut,2),buffer_r)
+        
+  END SUBROUTINE scatter_omp_r1
+  
+  
+  SUBROUTINE scatter_omp_r2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarIn))   
+    CALL scatter_omp_rgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3),buffer_r)
+
+  END SUBROUTINE scatter_omp_r2
+
+
+  SUBROUTINE scatter_omp_r3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarIn))   
+    CALL scatter_omp_rgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3)*Size(VarOut,4),buffer_r)
+  
+  END SUBROUTINE scatter_omp_r3
+  
+
+
+  SUBROUTINE scatter_omp_l(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL Check_buffer_l(size(VarIn))   
+    CALL scatter_omp_lgen(VarIn,Varout,1,buffer_l)
+    
+  END SUBROUTINE scatter_omp_l
+
+
+  SUBROUTINE scatter_omp_l1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL Check_buffer_l(size(VarIn))   
+    CALL scatter_omp_lgen(VarIn,Varout,Size(VarOut,2),buffer_l)
+    
+  END SUBROUTINE scatter_omp_l1
+  
+  
+  SUBROUTINE scatter_omp_l2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_l(size(VarIn))   
+    CALL scatter_omp_lgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3),buffer_l)
+
+  END SUBROUTINE scatter_omp_l2
+
+
+  SUBROUTINE scatter_omp_l3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL Check_buffer_l(size(VarIn))   
+    CALL scatter_omp_lgen(VarIn,Varout,Size(VarOut,2)*Size(VarOut,3)*Size(VarOut,4),buffer_l)
+  
+  END SUBROUTINE scatter_omp_l3  
+  
+
+  SUBROUTINE gather_omp_i(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL Check_buffer_i(size(VarOut))   
+    CALL gather_omp_igen(VarIn,Varout,1,buffer_i)
+    
+  END SUBROUTINE gather_omp_i
+
+
+  SUBROUTINE gather_omp_i1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarOut))   
+    CALL gather_omp_igen(VarIn,Varout,Size(VarIn,2),buffer_i)
+    
+  END SUBROUTINE gather_omp_i1
+
+
+  SUBROUTINE gather_omp_i2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarOut))   
+    CALL gather_omp_igen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3),buffer_i)
+          
+  END SUBROUTINE gather_omp_i2
+  
+
+  SUBROUTINE gather_omp_i3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarOut))   
+    CALL gather_omp_igen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4),buffer_i)
+    
+  END SUBROUTINE gather_omp_i3
+
+
+
+  SUBROUTINE gather_omp_r(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL Check_buffer_r(size(VarOut))   
+    CALL gather_omp_rgen(VarIn,Varout,1,buffer_r)
+    
+  END SUBROUTINE gather_omp_r
+
+
+  SUBROUTINE gather_omp_r1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    CALL Check_buffer_r(size(VarOut))   
+    CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2),buffer_r)
+        
+  END SUBROUTINE gather_omp_r1
+
+
+  SUBROUTINE gather_omp_r2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarOut))   
+    CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3),buffer_r)
+    
+  END SUBROUTINE gather_omp_r2
+  
+
+  SUBROUTINE gather_omp_r3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    CALL Check_buffer_r(size(VarOut))       
+    CALL gather_omp_rgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4),buffer_r)
+    
+  END SUBROUTINE gather_omp_r3
+
+
+  SUBROUTINE gather_omp_l(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    CALL Check_buffer_l(size(VarOut))   
+    CALL gather_omp_lgen(VarIn,Varout,1,buffer_l)
+    
+  END SUBROUTINE gather_omp_l
+
+
+  SUBROUTINE gather_omp_l1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL Check_buffer_l(size(VarOut))   
+    CALL gather_omp_lgen(VarIn,Varout,Size(VarIn,2),buffer_l)
+    
+  END SUBROUTINE gather_omp_l1
+
+
+  SUBROUTINE gather_omp_l2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_l(size(VarOut))   
+    CALL gather_omp_lgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3),buffer_l)
+    
+  END SUBROUTINE gather_omp_l2
+  
+
+  SUBROUTINE gather_omp_l3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    CALL Check_buffer_l(size(VarOut))   
+    CALL gather_omp_lgen(VarIn,Varout,Size(VarIn,2)*Size(VarIn,3)*Size(VarIn,4),buffer_l)
+    
+  END SUBROUTINE gather_omp_l3
+
+
+
+
+  SUBROUTINE reduce_sum_omp_i(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN)  :: VarIn
+    INTEGER,INTENT(OUT) :: VarOut
+    INTEGER             :: VarIn_tmp(1)
+    INTEGER             :: VarOut_tmp(1)
+    
+    VarIn_tmp(1)=VarIn
+    CALL Check_buffer_i(1)   
+    CALL reduce_sum_omp_igen(VarIn_tmp,Varout_tmp,1,buffer_i)
+    VarOut=VarOut_tmp(1)
+    
+  END SUBROUTINE reduce_sum_omp_i
+
+  SUBROUTINE reduce_sum_omp_i1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarIn))   
+    CALL reduce_sum_omp_igen(VarIn,Varout,Size(VarIn),buffer_i)
+   
+  END SUBROUTINE reduce_sum_omp_i1
+  
+  
+  SUBROUTINE reduce_sum_omp_i2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    CALL Check_buffer_i(size(VarIn))   
+    CALL reduce_sum_omp_igen(VarIn,Varout,Size(VarIn),buffer_i)
+  
+  END SUBROUTINE reduce_sum_omp_i2
+
+
+  SUBROUTINE reduce_sum_omp_i3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_i(size(VarIn))   
+    CALL reduce_sum_omp_igen(VarIn,Varout,Size(VarIn),buffer_i)
+  
+  END SUBROUTINE reduce_sum_omp_i3
+
+
+  SUBROUTINE reduce_sum_omp_i4(VarIn, VarOut)
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+  
+    CALL Check_buffer_i(size(VarIn))   
+    CALL reduce_sum_omp_igen(VarIn,Varout,Size(VarIn),buffer_i)
+  
+  END SUBROUTINE reduce_sum_omp_i4
+
+
+  SUBROUTINE reduce_sum_omp_r(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN)  :: VarIn
+    REAL,INTENT(OUT) :: VarOut
+    REAL             :: VarIn_tmp(1)
+    REAL             :: VarOut_tmp(1)
+    
+    VarIn_tmp(1)=VarIn
+    CALL Check_buffer_r(1)   
+    CALL reduce_sum_omp_rgen(VarIn_tmp,Varout_tmp,1,buffer_r)
+    VarOut=VarOut_tmp(1)
+  
+  END SUBROUTINE reduce_sum_omp_r
+
+  SUBROUTINE reduce_sum_omp_r1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarIn))   
+    CALL reduce_sum_omp_rgen(VarIn,Varout,Size(VarIn),buffer_r)
+   
+  END SUBROUTINE reduce_sum_omp_r1
+  
+  
+  SUBROUTINE reduce_sum_omp_r2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarIn))   
+    CALL reduce_sum_omp_rgen(VarIn,Varout,Size(VarIn),buffer_r)
+  
+  END SUBROUTINE reduce_sum_omp_r2
+
+
+  SUBROUTINE reduce_sum_omp_r3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    CALL Check_buffer_r(size(VarIn))   
+    CALL reduce_sum_omp_rgen(VarIn,Varout,Size(VarIn),buffer_r)
+  
+  END SUBROUTINE reduce_sum_omp_r3
+
+
+  SUBROUTINE reduce_sum_omp_r4(VarIn, VarOut)
+    IMPLICIT NONE
+
+    REAL,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+  
+    CALL Check_buffer_r(size(VarIn))   
+    CALL reduce_sum_omp_rgen(VarIn,Varout,Size(VarIn),buffer_r)
+  
+  END SUBROUTINE reduce_sum_omp_r4
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!    LES ROUTINES GENERIQUES    !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE bcast_omp_cgen(Var,Nb,Buff)
+  IMPLICIT NONE
+    
+    CHARACTER(LEN=*),INTENT(INOUT) :: Var
+    CHARACTER(LEN=*),INTENT(INOUT) :: Buff
+    INTEGER,INTENT(IN) :: Nb
+    
+    INTEGER :: i
+  
+  !$OMP MASTER
+      Buff=Var
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    DO i=1,Nb
+      Var=Buff
+    ENDDO
+  !$OMP BARRIER      
+  
+  END SUBROUTINE bcast_omp_cgen
+
+
+      
+  SUBROUTINE bcast_omp_igen(Var,Nb,Buff)
+  IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: Nb
+    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Var
+    INTEGER,DIMENSION(Nb),INTENT(INOUT) :: Buff
+
+    INTEGER :: i
+    
+  !$OMP MASTER
+    DO i=1,Nb
+      Buff(i)=Var(i)
+    ENDDO
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    DO i=1,Nb
+      Var(i)=Buff(i)
+    ENDDO
+  !$OMP BARRIER        
+
+  END SUBROUTINE bcast_omp_igen
+
+
+  SUBROUTINE bcast_omp_rgen(Var,Nb,Buff)
+  IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: Nb
+    REAL,DIMENSION(Nb),INTENT(INOUT) :: Var
+    REAL,DIMENSION(Nb),INTENT(INOUT) :: Buff
+
+    INTEGER :: i
+    
+  !$OMP MASTER
+    DO i=1,Nb
+      Buff(i)=Var(i)
+    ENDDO
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    DO i=1,Nb
+      Var(i)=Buff(i)
+    ENDDO
+  !$OMP BARRIER        
+
+  END SUBROUTINE bcast_omp_rgen
+
+  SUBROUTINE bcast_omp_lgen(Var,Nb,Buff)
+  IMPLICIT NONE
+    
+    INTEGER,INTENT(IN) :: Nb
+    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Var
+    LOGICAL,DIMENSION(Nb),INTENT(INOUT) :: Buff
+  
+    INTEGER :: i
+    
+  !$OMP MASTER
+    DO i=1,Nb
+      Buff(i)=Var(i)
+    ENDDO
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    DO i=1,Nb
+      Var(i)=Buff(i)
+    ENDDO
+  !$OMP BARRIER        
+
+  END SUBROUTINE bcast_omp_lgen
+
+
+  SUBROUTINE scatter_omp_igen(VarIn,VarOut,dimsize,Buff)
+    USE mod_phys_lmdz_omp_data
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi 
+    IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN),DIMENSION(klon_mpi,dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(klon_omp,dimsize) :: VarOut
+    INTEGER,INTENT(INOUT),DIMENSION(klon_mpi,dimsize) :: Buff
+
+    INTEGER :: i,ij
+    
+  !$OMP MASTER
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        Buff(ij,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO  
+  !$OMP END MASTER
+  !$OMP BARRIER
+ 
+    DO i=1,dimsize
+      DO ij=1,klon_omp
+        VarOut(ij,i)=Buff(klon_omp_begin-1+ij,i)
+      ENDDO
+    ENDDO
+  !$OMP BARRIER  
+ 
+  END SUBROUTINE scatter_omp_igen
+
+
+  SUBROUTINE scatter_omp_rgen(VarIn,VarOut,dimsize,Buff)
+  USE mod_phys_lmdz_omp_data
+  USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi 
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN),DIMENSION(klon_mpi,dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(klon_omp,dimsize) :: VarOut
+    REAL,INTENT(INOUT),DIMENSION(klon_mpi,dimsize) :: Buff
+
+    INTEGER :: i,ij
+    
+  !$OMP MASTER
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        Buff(ij,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO  
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    DO i=1,dimsize
+      DO ij=1,klon_omp
+        VarOut(ij,i)=Buff(klon_omp_begin-1+ij,i)
+      ENDDO
+    ENDDO
+  !$OMP BARRIER  
+
+  END SUBROUTINE scatter_omp_rgen
+
+
+  SUBROUTINE scatter_omp_lgen(VarIn,VarOut,dimsize,Buff)
+  USE mod_phys_lmdz_omp_data
+  USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi 
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN),DIMENSION(klon_mpi,dimsize) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(klon_omp,dimsize) :: VarOut
+    LOGICAL,INTENT(INOUT),DIMENSION(klon_mpi,dimsize) :: Buff
+
+    INTEGER :: i,ij
+    
+ !$OMP MASTER 
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        Buff(ij,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO  
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+    DO i=1,dimsize
+      DO ij=1,klon_omp
+        VarOut(ij,i)=Buff(klon_omp_begin-1+ij,i)
+      ENDDO
+    ENDDO
+  !$OMP BARRIER  
+
+  END SUBROUTINE scatter_omp_lgen
+
+
+
+
+
+  SUBROUTINE gather_omp_igen(VarIn,VarOut,dimsize,Buff)
+  USE mod_phys_lmdz_omp_data
+  USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi 
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN),DIMENSION(klon_omp,dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(klon_mpi,dimsize) :: VarOut
+    INTEGER,INTENT(INOUT),DIMENSION(klon_mpi,dimsize) :: Buff
+
+    INTEGER :: i,ij
+    
+    DO i=1,dimsize
+      DO ij=1,klon_omp
+        Buff(klon_omp_begin-1+ij,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+  !$OMP BARRIER  
+  
+  
+  !$OMP MASTER
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij,i)=Buff(ij,i)
+      ENDDO
+    ENDDO  
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+  END SUBROUTINE gather_omp_igen
+
+
+  SUBROUTINE gather_omp_rgen(VarIn,VarOut,dimsize,Buff)
+  USE mod_phys_lmdz_omp_data
+  USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi 
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN),DIMENSION(klon_omp,dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(klon_mpi,dimsize) :: VarOut
+    REAL,INTENT(INOUT),DIMENSION(klon_mpi,dimsize) :: Buff
+
+    INTEGER :: i,ij
+    
+    DO i=1,dimsize
+      DO ij=1,klon_omp
+        Buff(klon_omp_begin-1+ij,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+  !$OMP BARRIER  
+
+
+  !$OMP MASTER
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij,i)=Buff(ij,i)
+      ENDDO
+    ENDDO  
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+  END SUBROUTINE gather_omp_rgen
+
+
+  SUBROUTINE gather_omp_lgen(VarIn,VarOut,dimsize,Buff)
+  USE mod_phys_lmdz_omp_data
+  USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi 
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    LOGICAL,INTENT(IN),DIMENSION(klon_omp,dimsize) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(klon_mpi,dimsize) :: VarOut
+    LOGICAL,INTENT(INOUT),DIMENSION(klon_mpi,dimsize) :: Buff
+
+    INTEGER :: i,ij
+    
+    DO i=1,dimsize
+      DO ij=1,klon_omp
+        Buff(klon_omp_begin-1+ij,i)=VarIn(ij,i)
+      ENDDO
+    ENDDO
+  !$OMP BARRIER  
+
+
+  !$OMP MASTER
+    DO i=1,dimsize
+      DO ij=1,klon_mpi
+        VarOut(ij,i)=Buff(ij,i)
+      ENDDO
+    ENDDO  
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+  END SUBROUTINE gather_omp_lgen
+
+
+  SUBROUTINE reduce_sum_omp_igen(VarIn,VarOut,dimsize,Buff)
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    INTEGER,INTENT(IN),DIMENSION(dimsize) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(dimsize) :: VarOut
+    INTEGER,INTENT(INOUT),DIMENSION(dimsize) :: Buff
+
+    INTEGER :: i
+
+  !$OMP MASTER
+    Buff(:)=0
+  !$OMP END MASTER
+  !$OMP BARRIER
+  
+  !$OMP CRITICAL     
+    DO i=1,dimsize
+      Buff(i)=Buff(i)+VarIn(i)
+    ENDDO
+  !$OMP END CRITICAL
+  !$OMP BARRIER  
+  
+  !$OMP MASTER
+    DO i=1,dimsize
+      VarOut(i)=Buff(i)
+    ENDDO
+  !$OMP END MASTER
+  !$OMP BARRIER
+  
+  END SUBROUTINE reduce_sum_omp_igen
+
+  SUBROUTINE reduce_sum_omp_rgen(VarIn,VarOut,dimsize,Buff)
+  IMPLICIT NONE
+
+    INTEGER,INTENT(IN) :: dimsize
+    REAL,INTENT(IN),DIMENSION(dimsize) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(dimsize) :: VarOut
+    REAL,INTENT(INOUT),DIMENSION(dimsize) :: Buff
+
+    INTEGER :: i
+
+  !$OMP MASTER
+    Buff(:)=0
+  !$OMP END MASTER
+  !$OMP BARRIER
+  
+  !$OMP CRITICAL     
+    DO i=1,dimsize
+      Buff(i)=Buff(i)+VarIn(i)
+    ENDDO
+  !$OMP END CRITICAL
+  !$OMP BARRIER  
+  
+  !$OMP MASTER
+    DO i=1,dimsize
+      VarOut(i)=Buff(i)
+    ENDDO
+  !$OMP END MASTER
+  !$OMP BARRIER
+  
+  END SUBROUTINE reduce_sum_omp_rgen
+
+END MODULE mod_phys_lmdz_omp_transfert
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_para.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_para.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_para.F90	(revision 3330)
@@ -0,0 +1,116 @@
+!
+! $Id$
+!
+MODULE mod_phys_lmdz_para
+  USE mod_phys_lmdz_transfert_para
+  USE mod_phys_lmdz_mpi_data
+  USE mod_phys_lmdz_omp_data
+    
+  INTEGER,SAVE :: klon_loc
+  LOGICAL,SAVE :: is_sequential
+  LOGICAL,SAVE :: is_parallel
+  LOGICAL,SAVE :: is_master
+
+  
+!$OMP THREADPRIVATE(klon_loc,is_master)
+  
+CONTAINS
+
+  SUBROUTINE Init_phys_lmdz_para(nbp,nbp_lon,nbp_lat,communicator)
+  IMPLICIT NONE
+    INTEGER,INTENT(in) :: nbp
+    INTEGER,INTENT(in) :: nbp_lon
+    INTEGER,INTENT(in) :: nbp_lat
+    INTEGER,INTENT(in) :: communicator
+
+    CALL Init_phys_lmdz_mpi_data(nbp,nbp_lon,nbp_lat,communicator)
+!$OMP PARALLEL
+    CALL Init_phys_lmdz_omp_data(klon_mpi)
+    klon_loc=klon_omp
+    IF (is_mpi_root .AND. is_omp_root) THEN 
+       is_master=.TRUE.
+     ELSE
+       is_master=.FALSE.
+     ENDIF
+     CALL Test_transfert
+!$OMP END PARALLEL    
+     IF (is_using_mpi .OR. is_using_omp) THEN
+       is_sequential=.FALSE.
+       is_parallel=.TRUE.
+     ELSE
+       is_sequential=.TRUE.
+       is_parallel=.FALSE.
+     ENDIF
+
+
+      
+  END SUBROUTINE Init_phys_lmdz_para
+
+  SUBROUTINE Test_transfert
+  USE mod_grid_phy_lmdz
+  IMPLICIT NONE
+    INCLUDE "iniprint.h"
+ 
+    REAL :: Test_Field1d_glo(klon_glo,nbp_lev)
+    REAL :: tmp1d_glo(klon_glo,nbp_lev)
+    REAL :: Test_Field2d_glo(nbp_lon,nbp_lat,nbp_lev)
+    REAL :: tmp2d_glo(nbp_lon,nbp_lat,nbp_lev)
+    REAL :: Test_Field1d_loc(klon_loc,nbp_lev)
+    REAL :: Test_Field2d_loc(nbp_lon,jj_nb,nbp_lev)
+    REAL :: CheckSum
+    
+    INTEGER :: i,l
+  
+    Test_Field1d_glo = 0.
+    Test_Field2d_glo = 0.
+    Test_Field1d_loc = 0.
+    Test_Field2d_loc = 0.
+  
+    IF (is_mpi_root) THEN
+!$OMP MASTER
+      DO l=1,nbp_lev
+        DO i=1,klon_glo
+!          Test_Field1d_glo(i,l)=MOD(i,10)+10*(l-1)
+           Test_Field1d_glo(i,l)=1
+        ENDDO
+      ENDDO
+!$OMP END MASTER  
+    ENDIF
+  
+    CALL Scatter(Test_Field1d_glo,Test_Field1d_loc)
+    CALL Gather(Test_Field1d_loc,tmp1d_glo)
+  
+    IF (is_mpi_root) THEN
+!$OMP MASTER  
+      Checksum=sum(Test_Field1d_glo-tmp1d_glo)
+      WRITE(lunout,*) "------> Checksum =",Checksum," MUST BE 0"
+!$OMP END MASTER
+    ENDIF
+    
+    CALL grid1dTo2d_glo(Test_Field1d_glo,Test_Field2d_glo)
+    CALL scatter2D(Test_Field2d_glo,Test_Field1d_loc)
+    CALL gather2d(Test_Field1d_loc,Test_Field2d_glo)
+    CALL grid2dTo1d_glo(Test_Field2d_glo,tmp1d_glo)
+
+    IF (is_mpi_root) THEN
+!$OMP MASTER  
+      Checksum=sum(Test_Field1d_glo-tmp1d_glo)
+      WRITE(lunout,*) "------> Checksum =",Checksum," MUST BE 0"
+!$OMP END MASTER
+    ENDIF
+
+    CALL bcast(Test_Field1d_glo)
+    CALL reduce_sum(Test_Field1d_glo,tmp1d_glo)
+
+    IF (is_mpi_root) THEN
+!$OMP MASTER  
+      Checksum=sum(Test_Field1d_glo*omp_size*mpi_size-tmp1d_glo)
+      WRITE(lunout,*) "------> Checksum =",Checksum," MUST BE 0"
+!$OMP END MASTER
+    ENDIF
+    
+     
+   END SUBROUTINE Test_transfert
+  
+END MODULE mod_phys_lmdz_para
+    
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_transfert_para.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_transfert_para.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/mod_phys_lmdz_transfert_para.F90	(revision 3330)
@@ -0,0 +1,1275 @@
+!
+!$Header$
+!
+MODULE mod_phys_lmdz_transfert_para
+
+  USE mod_phys_lmdz_mpi_transfert
+  USE mod_phys_lmdz_omp_transfert 
+
+
+
+  INTERFACE bcast
+    MODULE PROCEDURE bcast_c,                                     &
+                     bcast_i,bcast_i1,bcast_i2,bcast_i3,bcast_i4, &
+                     bcast_r,bcast_r1,bcast_r2,bcast_r3,bcast_r4, &
+		     bcast_l,bcast_l1,bcast_l2,bcast_l3,bcast_l4
+  END INTERFACE
+
+  INTERFACE scatter
+    MODULE PROCEDURE scatter_i,scatter_i1,scatter_i2,scatter_i3, &
+                     scatter_r,scatter_r1,scatter_r2,scatter_r3, &
+		     scatter_l,scatter_l1,scatter_l2,scatter_l3
+  END INTERFACE
+
+  
+  INTERFACE gather
+    MODULE PROCEDURE gather_i,gather_i1,gather_i2,gather_i3, &
+                     gather_r,gather_r1,gather_r2,gather_r3, &
+		     gather_l,gather_l1,gather_l2,gather_l3  
+  END INTERFACE
+  
+  INTERFACE scatter2D
+    MODULE PROCEDURE scatter2D_i,scatter2D_i1,scatter2D_i2,scatter2D_i3, &
+                     scatter2D_r,scatter2D_r1,scatter2D_r2,scatter2D_r3, &
+		     scatter2D_l,scatter2D_l1,scatter2D_l2,scatter2D_l3
+  END INTERFACE
+
+  INTERFACE gather2D
+    MODULE PROCEDURE gather2D_i,gather2D_i1,gather2D_i2,gather2D_i3, &
+                     gather2D_r,gather2D_r1,gather2D_r2,gather2D_r3, &
+		     gather2D_l,gather2D_l1,gather2D_l2,gather2D_l3
+  END INTERFACE 
+  
+  INTERFACE reduce_sum
+    MODULE PROCEDURE reduce_sum_i,reduce_sum_i1,reduce_sum_i2,reduce_sum_i3,reduce_sum_i4, &
+                     reduce_sum_r,reduce_sum_r1,reduce_sum_r2,reduce_sum_r3,reduce_sum_r4
+  END INTERFACE 
+
+   
+CONTAINS
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Broadcast --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!! -- Les chaine de charactère -- !!
+
+  SUBROUTINE bcast_c(var)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(INOUT) :: Var
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_c
+
+!! -- Les entiers -- !!
+  
+  SUBROUTINE bcast_i(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_i
+
+  SUBROUTINE bcast_i1(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_i1
+
+
+  SUBROUTINE bcast_i2(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_i2
+
+
+  SUBROUTINE bcast_i3(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_i3
+
+
+  SUBROUTINE bcast_i4(var)
+  IMPLICIT NONE
+    INTEGER,INTENT(INOUT) :: Var(:,:,:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_i4
+
+ 
+!! -- Les reels -- !!
+  
+  SUBROUTINE bcast_r(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var
+
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_r
+
+  SUBROUTINE bcast_r1(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_r1
+
+
+  SUBROUTINE bcast_r2(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_r2
+
+
+  SUBROUTINE bcast_r3(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_r3
+
+
+  SUBROUTINE bcast_r4(var)
+  IMPLICIT NONE
+    REAL,INTENT(INOUT) :: Var(:,:,:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_r4 
+
+
+!! -- Les booleens -- !!
+  
+  SUBROUTINE bcast_l(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_l
+
+  SUBROUTINE bcast_l1(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_l1
+
+
+  SUBROUTINE bcast_l2(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_l2
+
+
+  SUBROUTINE bcast_l3(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_l3
+
+
+  SUBROUTINE bcast_l4(var)
+  IMPLICIT NONE
+    LOGICAL,INTENT(INOUT) :: Var(:,:,:,:)
+   
+!$OMP MASTER
+    CALL bcast_mpi(Var)
+!$OMP END MASTER
+    CALL bcast_omp(Var)
+    
+  END SUBROUTINE bcast_l4
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Scatter   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE scatter_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi) :: Var_tmp
+    
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_i
+
+
+  SUBROUTINE scatter_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi,SIZE(Varout,2)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_i1
+
+
+  SUBROUTINE scatter_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(klon_mpi,SIZE(Varout,2),SIZE(Varout,3)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_i2
+
+
+  SUBROUTINE scatter_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi,SIZE(Varout,2),SIZE(Varout,3),SIZE(Varout,4)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,VarOut)
+    
+  END SUBROUTINE scatter_i3
+
+
+  SUBROUTINE scatter_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi) :: Var_tmp
+    
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_r
+
+
+  SUBROUTINE scatter_r1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi,SIZE(Varout,2)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_r1
+
+
+  SUBROUTINE scatter_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_mpi,SIZE(Varout,2),SIZE(Varout,3)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_r2
+
+
+  SUBROUTINE scatter_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi,SIZE(Varout,2),SIZE(Varout,3),SIZE(Varout,4)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,VarOut)
+    
+  END SUBROUTINE scatter_r3
+  
+  
+
+  SUBROUTINE scatter_l(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi) :: Var_tmp
+    
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_l
+
+
+  SUBROUTINE scatter_l1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi,SIZE(Varout,2)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_l1
+
+
+  SUBROUTINE scatter_l2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_mpi,SIZE(Varout,2),SIZE(Varout,3)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,Varout)
+    
+  END SUBROUTINE scatter_l2
+
+
+  SUBROUTINE scatter_l3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi,SIZE(Varout,2),SIZE(Varout,3),SIZE(Varout,4)) :: Var_tmp
+
+!$OMP MASTER
+      CALL scatter_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+      CALL scatter_omp(Var_tmp,VarOut)
+    
+  END SUBROUTINE scatter_l3
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Gather   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+!!!!! --> Les entiers
+
+  SUBROUTINE gather_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    INTEGER, DIMENSION(klon_mpi) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,Varout)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_i
+
+
+  SUBROUTINE gather_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    INTEGER, DIMENSION(klon_mpi,SIZE(VarIn,2)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,Varout)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_i1
+
+
+  SUBROUTINE gather_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    INTEGER, DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_i2
+
+
+  SUBROUTINE gather_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    INTEGER, DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_i3
+
+
+!!!!! --> Les reels
+
+  SUBROUTINE gather_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    REAL, DIMENSION(klon_mpi) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_r
+
+
+  SUBROUTINE gather_r1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    REAL, DIMENSION(klon_mpi,SIZE(VarIn,2)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_r1
+
+
+  SUBROUTINE gather_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    REAL, DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_r2
+
+
+  SUBROUTINE gather_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    REAL, DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_r3
+
+
+!!!!! --> Les booleens
+
+  SUBROUTINE gather_l(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    LOGICAL, DIMENSION(klon_mpi) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_l
+
+
+  SUBROUTINE gather_l1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    LOGICAL, DIMENSION(klon_mpi,SIZE(VarIn,2)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_l1
+
+
+  SUBROUTINE gather_l2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    LOGICAL, DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_l2
+
+
+  SUBROUTINE gather_l3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    LOGICAL, DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4)) :: Var_tmp
+    
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE gather_l3
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Scatter2D   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!!!!! --> Les entiers
+
+  SUBROUTINE scatter2D_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_i
+
+
+  SUBROUTINE scatter2D_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi,SIZE(VarOut,2)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_i1
+  
+
+  SUBROUTINE scatter2D_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi,SIZE(VarOut,2),SIZE(VarOut,3)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_i2  
+
+
+  SUBROUTINE scatter2D_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    INTEGER,DIMENSION(klon_mpi,SIZE(VarOut,2),SIZE(VarOut,3),SIZE(VarOut,4)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_i3
+  
+
+!!!!! --> Les reels
+
+  SUBROUTINE scatter2D_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_r
+
+
+  SUBROUTINE scatter2D_r1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi,SIZE(VarOut,2)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_r1
+  
+
+  SUBROUTINE scatter2D_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi,SIZE(VarOut,2),SIZE(VarOut,3)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_r2  
+
+
+  SUBROUTINE scatter2D_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    REAL,DIMENSION(klon_mpi,SIZE(VarOut,2),SIZE(VarOut,3),SIZE(VarOut,4)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_r3
+    
+    
+!!!!! --> Les booleens
+
+
+  SUBROUTINE scatter2D_l(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_l
+
+
+  SUBROUTINE scatter2D_l1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi,SIZE(VarOut,2)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_l1
+  
+
+  SUBROUTINE scatter2D_l2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi,SIZE(VarOut,2),SIZE(VarOut,3)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_l2  
+
+
+  SUBROUTINE scatter2D_l3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+
+    LOGICAL,DIMENSION(klon_mpi,SIZE(VarOut,2),SIZE(VarOut,3),SIZE(VarOut,4)) :: Var_tmp    
+
+!$OMP MASTER    
+    CALL scatter2D_mpi(VarIn,Var_tmp)
+!$OMP END MASTER
+    CALL scatter_omp(Var_tmp,VarOut)
+
+  END SUBROUTINE scatter2D_l3
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des Gather2D   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!!!!! --> Les entiers
+
+  SUBROUTINE gather2D_i(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    INTEGER,DIMENSION(klon_mpi) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_i
+  
+
+  SUBROUTINE gather2D_i1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(klon_mpi,SIZE(VarIn,2)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_i1
+
+  
+  SUBROUTINE gather2D_i2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_i2
+
+
+  SUBROUTINE gather2D_i3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_i3
+
+
+!!!!! --> Les reels
+
+  SUBROUTINE gather2D_r(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_mpi) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_r
+  
+
+  SUBROUTINE gather2D_r1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_mpi,SIZE(VarIn,2)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_r1
+
+  
+  SUBROUTINE gather2D_r2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_r2
+
+
+  SUBROUTINE gather2D_r3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_r3
+  
+
+!!!!! --> Les booleens
+
+  SUBROUTINE gather2D_l(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_mpi) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_l
+  
+
+  SUBROUTINE gather2D_l1(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_mpi,SIZE(VarIn,2)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_l1
+
+  
+  SUBROUTINE gather2D_l2(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_l2
+
+
+  SUBROUTINE gather2D_l3(VarIn, VarOut)
+    USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
+    IMPLICIT NONE
+  
+    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
+    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:,:) :: VarOut
+    
+    LOGICAL,DIMENSION(klon_mpi,SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4)) :: Var_tmp
+
+    CALL gather_omp(VarIn,Var_tmp)
+!$OMP MASTER
+    CALL gather2D_mpi(Var_tmp,VarOut)
+!$OMP END MASTER    
+
+  END SUBROUTINE gather2D_l3
+  
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition des reduce_sum   --> 4D   !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Les entiers
+
+  SUBROUTINE reduce_sum_i(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN)  :: VarIn
+    INTEGER,INTENT(OUT) :: VarOut
+    
+    INTEGER             :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_i  
+
+
+  SUBROUTINE reduce_sum_i1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn))   :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_i1  
+
+
+  SUBROUTINE reduce_sum_i2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2)) :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_i2  
+  
+
+  SUBROUTINE reduce_sum_i3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3))  :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_i3  
+
+
+  SUBROUTINE reduce_sum_i4(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    INTEGER,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4))  :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_i4  
+
+
+! Les reels
+
+  SUBROUTINE reduce_sum_r(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN)  :: VarIn
+    REAL,INTENT(OUT) :: VarOut
+    
+    REAL             :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_r  
+
+
+  SUBROUTINE reduce_sum_r1(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn))   :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_r1  
+
+
+  SUBROUTINE reduce_sum_r2(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2)) :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_r2  
+  
+
+  SUBROUTINE reduce_sum_r3(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3))  :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_r3  
+
+
+  SUBROUTINE reduce_sum_r4(VarIn, VarOut)
+    IMPLICIT NONE
+  
+    REAL,INTENT(IN),DIMENSION(:,:,:,:)  :: VarIn
+    REAL,INTENT(OUT),DIMENSION(:,:,:,:) :: VarOut
+    
+    REAL,DIMENSION(SIZE(VarIn,1),SIZE(VarIn,2),SIZE(VarIn,3),SIZE(VarIn,4))  :: Var_tmp
+           
+    CALL reduce_sum_omp(VarIn,Var_tmp)
+!$OMP MASTER      
+    CALL reduce_sum_mpi(Var_tmp,VarOut)
+!$OMP END MASTER
+  
+  END SUBROUTINE reduce_sum_r4  
+
+   
+END MODULE mod_phys_lmdz_transfert_para
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/physics_distribution_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/physics_distribution_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/physics_distribution_mod.F90	(revision 3330)
@@ -0,0 +1,71 @@
+!
+!$Id$
+!
+MODULE physics_distribution_mod
+
+
+CONTAINS
+
+  SUBROUTINE init_physics_distribution(grid_type, nvertex, &
+                                       nbp, nbp_lon, nbp_lat, nbp_lev, &
+                                       communicator)
+  USE mod_phys_lmdz_para, ONLY: init_phys_lmdz_para
+  USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: grid_type 
+    INTEGER,INTENT(IN) :: nvertex 
+    INTEGER,INTENT(IN) :: nbp           
+    INTEGER,INTENT(IN) :: nbp_lon
+    INTEGER,INTENT(IN) :: nbp_lat
+    INTEGER,INTENT(IN) :: nbp_lev
+    INTEGER,INTENT(IN) :: communicator
+
+
+    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
+    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat, communicator)
+
+  END SUBROUTINE init_physics_distribution  
+
+!SUBROUTINE Init_Phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
+!  USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para!, klon_omp
+!  USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev
+!  USE dimphy, ONLY : Init_dimphy
+!  USE infotrac_phy, ONLY : type_trac
+!#ifdef REPROBUS
+!  USE CHEM_REP, ONLY : Init_chem_rep_phys
+!#endif
+
+!  IMPLICIT NONE
+  
+!    INTEGER,INTENT(in) :: iim
+!    INTEGER,INTENT(in) :: jjp1
+!    INTEGER,INTENT(in) :: llm
+!    INTEGER,INTENT(in) :: nb_proc
+!    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
+
+
+!    CALL Init_grid_phy_lmdz(iim,jjp1,llm)
+!    CALL Init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
+!!$OMP PARALLEL
+!    CALL Init_dimphy(klon_omp,nbp_lev)
+!
+!! Initialization of Reprobus
+!    IF (type_trac == 'repr') THEN
+!#ifdef REPROBUS
+!       CALL Init_chem_rep_phys(klon_omp,nbp_lev)
+!#endif
+!    END IF
+!
+!!$OMP END PARALLEL
+ 
+!END SUBROUTINE Init_Phys_lmdz  
+
+
+
+
+
+
+
+
+END MODULE physics_distribution_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/print_control_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/print_control_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/print_control_mod.F90	(revision 3330)
@@ -0,0 +1,63 @@
+! $Id: $
+MODULE print_control_mod
+
+  INTEGER,SAVE :: lunout ! default output file identifier (6==screen)
+  INTEGER,SAVE :: prt_level ! debug output level
+  LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
+!$OMP THREADPRIVATE(lunout,prt_level,debug)
+
+CONTAINS
+
+  SUBROUTINE init_print_control
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE mod_phys_lmdz_para, ONLY: is_omp_root, is_master
+  IMPLICIT NONE
+
+    LOGICAL :: opened
+    INTEGER :: number
+    
+    !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_p('prt_level',prt_level)
+
+    !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_p('lunout', lunout)
+
+    IF (is_omp_root) THEN
+      IF (lunout /= 5 .and. lunout /= 6) THEN
+         INQUIRE(FILE='lmdz.out_0000',OPENED=opened,NUMBER=number)
+         IF (opened) THEN
+           lunout=number
+         ELSE
+           OPEN(UNIT=lunout,FILE='lmdz.out_0000',ACTION='write',  &
+                STATUS='unknown',FORM='formatted')
+         ENDIF
+      ENDIF
+    ENDIF
+
+    !Config  Key  = debug
+    !Config  Desc = mode debogage
+    !Config  Def  = false
+    !Config  Help = positionne le mode debogage
+
+    debug = .FALSE.
+    CALL getin_p('debug',debug)
+    
+    IF (is_master) THEN
+      WRITE(lunout,*)"init_print_control: prt_level=",prt_level
+      WRITE(lunout,*)"init_print_control: lunout=",lunout
+      WRITE(lunout,*)"init_print_control: debug=",debug      
+    ENDIF
+    
+  END SUBROUTINE init_print_control  
+
+END MODULE print_control_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/regular_lonlat_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/regular_lonlat_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/regular_lonlat_mod.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE regular_lonlat_mod
+
+  ! Store information on the global physics grid
+  ! for a regular (longitude-latitude) grid
+  
+  INTEGER, PARAMETER :: north_east=1     ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: north_west=2     ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: south_west=3     ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: south_east=4     ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: east=1           ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: west=2           ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: north=1          ! boundaries of regular lontlat
+  INTEGER, PARAMETER :: south=2          ! boundaries of regular lontlat
+
+! Global definition, shared by all threads
+! Do not set threadprivate directives
+
+  REAL,SAVE,ALLOCATABLE :: lon_reg(:)      ! value of longitude cell (rad)
+
+  REAL,SAVE,ALLOCATABLE :: lat_reg(:)      ! value of longitude cell (rad)
+
+  REAL,SAVE,ALLOCATABLE :: boundslon_reg(:,:)      ! value of boundaries cell (1=>east, 2=>west)(rad)
+
+  REAL,SAVE,ALLOCATABLE :: boundslat_reg(:,:)      ! value of longitude cell (1=>north, 2=>south)(rad)
+
+
+CONTAINS
+  
+  SUBROUTINE init_regular_lonlat(nbp_lon, nbp_lat, lon_reg_, lat_reg_, boundslon_reg_, boundslat_reg_)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN) :: nbp_lon
+    INTEGER,INTENT(IN) :: nbp_lat
+    REAL,   INTENT(IN) :: lon_reg_(nbp_lon)  
+    REAL,   INTENT(IN) :: lat_reg_(nbp_lat) 
+    REAL,   INTENT(IN) :: boundslon_reg_(nbp_lon,2) 
+    REAL,   INTENT(IN) :: boundslat_reg_(nbp_lat,2)  
+
+    
+    ALLOCATE(lon_reg(nbp_lon))
+    lon_reg(:)=lon_reg_(:)
+
+    ALLOCATE(lat_reg(nbp_lat)) 
+    lat_reg(:)=lat_reg_(:)
+
+    ALLOCATE(boundslon_reg(nbp_lon,2)) 
+    boundslon_reg(:,:)=boundslon_reg_(:,:)
+
+    ALLOCATE(boundslat_reg(nbp_lat,2))  
+    boundslat_reg(:,:)=boundslat_reg_(:,:)
+
+  
+  END SUBROUTINE init_regular_lonlat    
+
+END MODULE regular_lonlat_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/write_field_phy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/write_field_phy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phy_common/write_field_phy.F90	(revision 3330)
@@ -0,0 +1,37 @@
+!
+! $Id$
+!
+MODULE write_field_phy
+
+  ! Dump a field on the global (nbp_lon by nbp_lat) physics grid
+  
+  CONTAINS 
+ 
+    SUBROUTINE WriteField_phy(name,Field,ll)
+    USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root, &
+                                  Gather
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
+                                 Grid1Dto2D_glo
+    USE Write_Field, ONLY: WriteField
+    
+    IMPLICIT NONE
+
+    CHARACTER(len=*),INTENT(IN) :: name
+    INTEGER,INTENT(IN) :: ll
+    REAL,INTENT(IN) :: Field(klon_omp,ll)
+
+    real, dimension(klon_glo,ll):: New_Field
+    real, dimension(nbp_lon,nbp_lat,ll):: Field_2d
+
+    CALL Gather(Field,New_Field)
+!$OMP MASTER
+    IF (is_mpi_root) THEN	
+      CALL Grid1Dto2D_glo(New_Field,Field_2D)
+      CALL WriteField(name,Field_2d)
+    ENDIF
+!$OMP END MASTER
+
+  
+   END SUBROUTINE WriteField_phy
+ 
+ END MODULE write_field_phy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/comcstphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/comcstphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/comcstphy.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phydev/dimphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/dimphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/dimphy.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/dimphy.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/gr_fi_ecrit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/gr_fi_ecrit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/gr_fi_ecrit.F90	(revision 3330)
@@ -0,0 +1,27 @@
+!
+! $Id $
+!
+SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
+  IMPLICIT NONE
+  !
+  ! Transfer a field from the full physics grid
+  ! to a full 2D (lonxlat) grid suitable for outputs
+  !
+  INTEGER,INTENT(IN) :: nfield,nlon,iim,jjmp1
+  REAL,INTENT(IN) :: fi(nlon,nfield)
+  REAL,INTENT(out) :: ecrit(iim*jjmp1,nfield)
+
+  INTEGER :: i, n, ig, jjm
+
+  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 SUBROUTINE gr_fi_ecrit
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/infotrac_phy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/infotrac_phy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/infotrac_phy.F90	(revision 3330)
@@ -0,0 +1,27 @@
+
+! $Id: $
+
+MODULE infotrac_phy
+
+! Information on tracers for physics;
+! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
+  INTEGER, SAVE :: nqtot
+!$OMP THREADPRIVATE(nqtot)
+
+  CHARACTER(len=4),SAVE :: type_trac
+!$OMP THREADPRIVATE(type_trac)
+
+CONTAINS
+
+  SUBROUTINE init_infotrac_phy(nqtot_,type_trac_)
+  ! transfer information on tracers from dynamics to physics
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: nqtot_
+    CHARACTER(len=4),INTENT(IN) :: type_trac_
+
+    nqtot=nqtot_
+    type_trac=type_trac_
+  
+  END SUBROUTINE init_infotrac_phy
+
+END MODULE infotrac_phy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/inifis_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/inifis_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/inifis_mod.F90	(revision 3330)
@@ -0,0 +1,28 @@
+! $Id: $
+MODULE inifis_mod
+
+CONTAINS
+
+  SUBROUTINE inifis(prad, pg, pr, pcpp)
+  ! Initialize some physical constants and settings
+  USE print_control_mod, ONLY: init_print_control
+  USE comcstphy, ONLY: rradius, & ! planet radius (m)
+                       rr, & ! recuced gas constant: R/molar mass of atm
+                       rg, & ! gravity
+                       rcpp  ! specific heat of the atmosphere
+  IMPLICIT NONE
+
+  REAL,INTENT(IN) :: prad, pg, pr, pcpp
+
+  ! Initialize flags lunout, prt_level, debug
+  CALL init_print_control
+
+  ! copy some fundamental parameters to physics
+  rradius=prad
+  rg=pg
+  rr=pr
+  rcpp=pcpp
+
+  END SUBROUTINE inifis
+  
+END MODULE inifis_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/iophy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/iophy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/iophy.F90	(revision 3330)
@@ -0,0 +1,411 @@
+!
+! $Id$
+!
+module iophy
+  
+! abd  REAL,private,allocatable,dimension(:),save :: io_lat
+! abd  REAL,private,allocatable,dimension(:),save :: io_lon
+  REAL,allocatable,dimension(:),save :: io_lat
+  REAL,allocatable,dimension(:),save :: io_lon
+  INTEGER, save :: phys_domain_id
+  INTEGER, save :: npstn
+  INTEGER, allocatable, dimension(:), save :: nptabij
+  
+
+#ifdef CPP_XIOS
+! interfaces for both IOIPSL and XIOS
+  INTERFACE histwrite_phy
+    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_xios,histwrite3d_xios
+  END INTERFACE
+#else
+! interfaces for IOIPSL
+  INTERFACE histwrite_phy
+    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy
+  END INTERFACE
+#endif
+
+#ifdef CPP_XIOS
+! interfaces for both IOIPSL and XIOS
+  INTERFACE histbeg_phy_all
+    MODULE PROCEDURE histbeg_phy, histbeg_phyxios
+  END INTERFACE
+#else
+! interfaces for IOIPSL
+  INTERFACE histbeg_phy_all
+    MODULE PROCEDURE histbeg_phy
+  END INTERFACE
+#endif
+
+contains
+
+  subroutine init_iophy_new(rlat,rlon)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: gather, bcast, &
+                                jj_nb, jj_begin, jj_end, ii_begin, ii_end, &
+                                mpi_size, mpi_rank, klon_mpi, &
+                                is_sequential, is_south_pole_dyn
+  USE mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, klon_glo
+  USE print_control_mod, ONLY: lunout, prt_level
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+#ifdef CPP_IOIPSL
+  USE ioipsl, only: flio_dom_set
+#endif
+#ifdef CPP_XIOS
+  use wxios, only: wxios_domain_param
+#endif
+  implicit none
+    real,dimension(klon),intent(in) :: rlon
+    real,dimension(klon),intent(in) :: rlat
+
+    REAL,dimension(klon_glo)        :: rlat_glo
+    REAL,dimension(klon_glo)        :: rlon_glo
+    
+    INTEGER,DIMENSION(2) :: ddid
+    INTEGER,DIMENSION(2) :: dsg
+    INTEGER,DIMENSION(2) :: dsl
+    INTEGER,DIMENSION(2) :: dpf
+    INTEGER,DIMENSION(2) :: dpl
+    INTEGER,DIMENSION(2) :: dhs
+    INTEGER,DIMENSION(2) :: dhe 
+    INTEGER :: i    
+    integer :: data_ibegin,data_iend
+
+    CALL gather(rlat,rlat_glo)
+    CALL bcast(rlat_glo)
+    CALL gather(rlon,rlon_glo)
+    CALL bcast(rlon_glo)
+    
+!$OMP MASTER  
+    ALLOCATE(io_lat(nbp_lat))
+    io_lat(1)=rlat_glo(1)
+    io_lat(nbp_lat)=rlat_glo(klon_glo)
+    IF ((nbp_lon*nbp_lat) > 1) then
+      DO i=2,nbp_lat-1
+        io_lat(i)=rlat_glo(2+(i-2)*nbp_lon)
+      ENDDO
+    ENDIF
+
+    ALLOCATE(io_lon(nbp_lon))
+    IF ((nbp_lon*nbp_lat) > 1) THEN
+      io_lon(:)=rlon_glo(2:nbp_lon+1)
+    ELSE
+      io_lon(1)=rlon_glo(1)
+    ENDIF
+!! (I) dtnb   : total number of domains
+!! (I) dnb    : domain number
+!! (I) did(:) : distributed dimensions identifiers
+!!              (up to 5 dimensions are supported)
+!! (I) dsg(:) : total number of points for each dimension
+!! (I) dsl(:) : local number of points for each dimension
+!! (I) dpf(:) : position of first local point for each dimension
+!! (I) dpl(:) : position of last local point for each dimension
+!! (I) dhs(:) : start halo size for each dimension
+!! (I) dhe(:) : end halo size for each dimension
+!! (C) cdnm   : Model domain definition name.
+!!              The names actually supported are :
+!!              "BOX", "APPLE", "ORANGE".
+!!              These names are case insensitive.
+    ddid=(/ 1,2 /)
+    dsg=(/ nbp_lon, nbp_lat /)
+    dsl=(/ nbp_lon, jj_nb /)
+    dpf=(/ 1,jj_begin /)
+    dpl=(/ nbp_lon, jj_end /)
+    dhs=(/ ii_begin-1,0 /)
+    if (mpi_rank==mpi_size-1) then
+      dhe=(/0,0/)
+    else
+      dhe=(/ nbp_lon-ii_end,0 /)  
+    endif
+    
+#ifndef CPP_IOIPSL_NO_OUTPUT
+    call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
+                      'APPLE',phys_domain_id)
+#endif
+#ifdef CPP_XIOS
+    ! Set values for the mask:
+    IF (mpi_rank == 0) THEN
+        data_ibegin = 0
+    ELSE 
+        data_ibegin = ii_begin - 1
+    END IF
+
+    IF (mpi_rank == mpi_size-1) THEN
+        data_iend = nbp_lon
+    ELSE
+        data_iend = ii_end + 1
+    END IF
+
+    if (prt_level>=10) then
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," iibegin=",ii_begin , " ii_end=",ii_end," jjbegin=",jj_begin," jj_nb=",jj_nb," jj_end=",jj_end
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," nbp_lon=",nbp_lon," nbp_lat=",nbp_lat
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," data_ibegin=",data_ibegin," data_iend=",data_iend
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," data_ibegin=",data_ibegin," data_iend=",data_iend
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," is_south_pole=",is_south_pole_dyn
+    endif
+
+    ! Initialize the XIOS domain coreesponding to this process:
+    CALL wxios_domain_param("dom_glo", is_sequential, nbp_lon, jj_nb, nbp_lon, nbp_lat, &
+                            1, nbp_lon, ii_begin, ii_end, jj_begin, jj_end,             &
+                            klon_mpi+2*(nbp_lon-1), data_ibegin, data_iend,             &
+                            io_lat, io_lon,is_south_pole_dyn,mpi_rank)
+#endif
+!$OMP END MASTER
+      
+  END SUBROUTINE init_iophy_new
+  
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  
+  subroutine histbeg_phy(name,itau0,zjulian,dtime,nhori,nid_day)
+  USE mod_phys_lmdz_para, only: is_sequential, jj_begin, jj_end, jj_nb
+  use ioipsl, only: histbeg
+  USE print_control_mod, ONLY: prt_level, lunout
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+  implicit none
+    
+    character*(*), intent(IN) :: name
+    integer, intent(in) :: itau0
+    real,intent(in) :: zjulian
+    real,intent(in) :: dtime
+    integer,intent(out) :: nhori
+    integer,intent(out) :: nid_day
+
+!$OMP MASTER    
+    if (is_sequential) then
+      call histbeg(name,nbp_lon,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
+                   1,nbp_lon,1,jj_nb,itau0, zjulian, dtime, nhori, nid_day)
+    else
+      call histbeg(name,nbp_lon,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
+                   1,nbp_lon,1,jj_nb,itau0, zjulian, dtime, nhori, nid_day,phys_domain_id)
+    endif
+!$OMP END MASTER
+  
+  end subroutine histbeg_phy
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+#ifdef CPP_XIOS
+
+! SUBROUTINE histbeg_phyxios(name,itau0,zjulian,dtime,ffreq,lev,nhori,nid_day)
+ SUBROUTINE histbeg_phyxios(name,ffreq,lev)
+  USE mod_phys_lmdz_para, only: is_using_mpi, is_mpi_root
+  use wxios, only: wxios_add_file
+  IMPLICIT NONE
+    
+    character*(*), INTENT(IN) :: name
+!    integer, INTENT(IN) :: itau0
+!    REAL,INTENT(IN) :: zjulian
+!    REAL,INTENT(IN) :: dtime
+    character(LEN=*), INTENT(IN) :: ffreq
+    INTEGER,INTENT(IN) :: lev
+!    integer,intent(out) :: nhori
+!    integer,intent(out) :: nid_day
+
+!$OMP MASTER    
+
+    ! ug OMP en chantier...
+    IF((.NOT. is_using_mpi) .OR. is_mpi_root) THEN
+        ! ug Création du fichier
+        CALL wxios_add_file(name, ffreq, lev)
+    END IF
+
+!$OMP END MASTER
+  
+  END SUBROUTINE histbeg_phyxios
+
+#endif
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ 
+  subroutine histwrite2d_phy(nid,lpoint,name,itau,field)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                jj_nb, klon_mpi
+  USE ioipsl, only: histwrite
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+  implicit none
+    
+    integer,intent(in) :: nid
+    logical,intent(in) :: lpoint 
+    character*(*), intent(IN) :: name
+    integer, intent(in) :: itau
+    real,dimension(:),intent(in) :: field
+    REAL,dimension(klon_mpi) :: buffer_omp
+    INTEGER, allocatable, dimension(:) :: index2d
+    REAL :: Field2d(nbp_lon,jj_nb)
+
+    integer :: ip
+    real,allocatable,dimension(:) :: fieldok
+
+    IF (size(field)/=klon) CALL abort_physic('iophy::histwrite2d','Field first dimension not equal to klon',1)
+    
+    CALL Gather_omp(field,buffer_omp)    
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,Field2d)
+    if(.NOT.lpoint) THEN
+     ALLOCATE(index2d(nbp_lon*jj_nb))
+     ALLOCATE(fieldok(nbp_lon*jj_nb))
+     CALL histwrite(nid,name,itau,Field2d,nbp_lon*jj_nb,index2d)
+    else
+     ALLOCATE(fieldok(npstn))
+     ALLOCATE(index2d(npstn))
+
+     if(is_sequential) then
+!     klon_mpi_begin=1
+!     klon_mpi_end=klon
+      DO ip=1, npstn
+       fieldok(ip)=buffer_omp(nptabij(ip))
+      ENDDO
+     else
+      DO ip=1, npstn
+!     print*,'histwrite2d is_sequential npstn ip name nptabij',npstn,ip,name,nptabij(ip)
+       IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+          nptabij(ip).LE.klon_mpi_end) THEN
+         fieldok(ip)=buffer_omp(nptabij(ip)-klon_mpi_begin+1)
+       ENDIF
+      ENDDO
+     endif
+     CALL histwrite(nid,name,itau,fieldok,npstn,index2d)
+!
+    endif
+    deallocate(index2d)
+    deallocate(fieldok)
+!$OMP END MASTER    
+  end subroutine histwrite2d_phy
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  subroutine histwrite3d_phy(nid,lpoint,name,itau,field)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                jj_nb, klon_mpi
+  USE ioipsl, only: histwrite
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+  implicit none
+    
+    integer,intent(in) :: nid
+    logical,intent(in) :: lpoint
+    character*(*), intent(IN) :: name
+    integer, intent(in) :: itau
+    real,dimension(:,:),intent(in) :: field  ! --> field(klon,:)
+    REAL,dimension(klon_mpi,size(field,2)) :: buffer_omp
+    REAL :: Field3d(nbp_lon,jj_nb,size(field,2))
+    INTEGER :: ip, n, nlev
+    INTEGER, ALLOCATABLE, dimension(:) :: index3d
+    real,allocatable, dimension(:,:) :: fieldok
+
+    IF (size(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first dimension not equal to klon',1)
+    nlev=size(field,2)
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,field3d)
+    if(.NOT.lpoint) THEN
+     ALLOCATE(index3d(nbp_lon*jj_nb*nlev))
+     ALLOCATE(fieldok(nbp_lon*jj_nb,nlev))
+     CALL histwrite(nid,name,itau,Field3d,nbp_lon*jj_nb*nlev,index3d)
+    else
+      nlev=size(field,2)
+      ALLOCATE(index3d(npstn*nlev))
+      ALLOCATE(fieldok(npstn,nlev))
+
+      if(is_sequential) then
+!      klon_mpi_begin=1
+!      klon_mpi_end=klon
+       DO n=1, nlev
+       DO ip=1, npstn
+        fieldok(ip,n)=buffer_omp(nptabij(ip),n)
+       ENDDO
+       ENDDO
+      else
+       DO n=1, nlev
+       DO ip=1, npstn
+        IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+         nptabij(ip).LE.klon_mpi_end) THEN
+         fieldok(ip,n)=buffer_omp(nptabij(ip)-klon_mpi_begin+1,n)
+        ENDIF
+       ENDDO
+       ENDDO
+      endif
+      CALL histwrite(nid,name,itau,fieldok,npstn*nlev,index3d)
+    endif 
+  deallocate(index3d)
+  deallocate(fieldok)
+!$OMP END MASTER    
+  end subroutine histwrite3d_phy
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! VERSION DES HISTWRITE DEDIEES AU TOUT-XIOS-XML DEJA UTILISEE DANS PHYDEV
+#ifdef CPP_XIOS
+  SUBROUTINE histwrite2d_xios(field_name,field)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: gather_omp, grid1Dto2D_mpi, &
+                                jj_nb, klon_mpi
+  USE xios, only: xios_send_field
+  USE print_control_mod, ONLY: prt_level, lunout
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+  IMPLICIT NONE
+
+    CHARACTER(LEN=*), INTENT(IN) :: field_name
+    REAL, DIMENSION(:), INTENT(IN) :: field
+      
+    REAL,DIMENSION(klon_mpi) :: buffer_omp
+    REAL :: Field2d(nbp_lon,jj_nb)
+
+    IF (prt_level >= 10) WRITE(lunout,*)'Begin histrwrite2d_xios ',trim(field_name)
+
+    IF (SIZE(field)/=klon) CALL abort_physic('iophy::histwrite2d_xios','Field first DIMENSION not equal to klon',1)
+    
+    CALL Gather_omp(field,buffer_omp)    
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,Field2d)
+    
+    CALL xios_send_field(field_name, Field2d)
+!$OMP END MASTER   
+
+    IF (prt_level >= 10) WRITE(lunout,*)'End histrwrite2d_xios ',trim(field_name)
+  END SUBROUTINE histwrite2d_xios
+#endif
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! VERSION DES HISTWRITE DEDIEES AU TOUT-XIOS-XML DEJA UTILISEE DANS PHYDEV
+#ifdef CPP_XIOS
+  SUBROUTINE histwrite3d_xios(field_name, field)
+  USE dimphy, only: klon, klev
+  USE mod_phys_lmdz_para, only: gather_omp, grid1Dto2D_mpi, &
+                                jj_nb, klon_mpi
+  USE xios, only: xios_send_field
+  USE print_control_mod, ONLY: prt_level,lunout
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+
+  IMPLICIT NONE
+
+    CHARACTER(LEN=*), INTENT(IN) :: field_name
+    REAL, DIMENSION(:,:), INTENT(IN) :: field ! --> field(klon,:)
+
+    REAL,DIMENSION(klon_mpi,SIZE(field,2)) :: buffer_omp
+    REAL :: Field3d(nbp_lon,jj_nb,SIZE(field,2))
+    INTEGER :: ip, n, nlev
+
+  IF (prt_level >= 10) write(lunout,*)'Begin histrwrite3d_xios ',trim(field_name)
+
+    !Et on.... écrit
+    IF (SIZE(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)
+    nlev=SIZE(field,2)
+
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,field3d)
+
+    CALL xios_send_field(field_name, Field3d(:,:,1:nlev))
+!$OMP END MASTER   
+
+    IF (prt_level >= 10) write(lunout,*)'End histrwrite3d_xios ',trim(field_name)
+  END SUBROUTINE histwrite3d_xios
+#endif
+
+end module iophy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/iostart.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/iostart.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/iostart.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/iostart.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyaqua_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyaqua_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyaqua_mod.F90	(revision 3330)
@@ -0,0 +1,35 @@
+!
+! $Id: $
+!
+MODULE phyaqua_mod
+
+  IMPLICIT NONE
+
+CONTAINS
+
+  SUBROUTINE iniaqua(nlon, 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: phys_state_var_init
+  USE mod_phys_lmdz_para, ONLY: klon_omp
+  IMPLICIT NONE
+      
+  INTEGER,INTENT(IN) :: nlon,iflag_phys
+
+  CALL phys_state_var_init()
+
+
+  ! 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 SUBROUTINE iniaqua
+
+END MODULE phyaqua_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyetat0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyetat0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyetat0.F90	(revision 3330)
@@ -0,0 +1,65 @@
+!
+! $Id $
+!
+SUBROUTINE phyetat0(fichnom)
+! Load initial state for the physics
+! and do some resulting initializations
+
+  USE dimphy, only: klon
+  USE iostart, ONLY : open_startphy,get_field,close_startphy
+  USE iophy, ONLY : init_iophy_new
+  USE geometry_mod, ONLY : longitude_deg, latitude_deg
+
+  IMPLICIT NONE
+
+  CHARACTER(len=*),INTENT(in) :: fichnom ! input file name
+
+  REAL :: lon_startphy(klon), lat_startphy(klon)
+  INTEGER :: i
+
+  ! open physics initial state file:
+  CALL open_startphy(fichnom)
+
+  ! read latitudes and make a sanity check (because already known from dyn)
+  CALL get_field("latitude",lat_startphy)
+  DO i=1,klon
+    IF (ABS(lat_startphy(i)-latitude_deg(i))>=1) THEN
+      WRITE(*,*) "phyetat0: Error! Latitude discrepancy wrt startphy file:",&
+                 " i=",i," lat_startphy(i)=",lat_startphy(i),&
+                 " latitude_deg(i)=",latitude_deg(i)
+      ! This is presumably serious enough to abort run
+      CALL abort_physic("phyetat0","discrepancy in latitudes!",1)
+    ENDIF
+    IF (ABS(lat_startphy(i)-latitude_deg(i))>=0.0001) THEN
+      WRITE(*,*) "phyetat0: Warning! Latitude discrepancy wrt startphy file:",&
+                 " i=",i," lat_startphy(i)=",lat_startphy(i),&
+                 " latitude_deg(i)=",latitude_deg(i)
+    ENDIF
+  ENDDO
+
+  ! read longitudes and make a sanity check (because already known from dyn)
+  CALL get_field("longitude",lon_startphy)
+  DO i=1,klon
+    IF (ABS(lon_startphy(i)-longitude_deg(i))>=1) THEN
+      WRITE(*,*) "phyetat0: Error! Longitude discrepancy wrt startphy file:",&
+                 " i=",i," lon_startphy(i)=",lon_startphy(i),&
+                 " longitude_deg(i)=",longitude_deg(i)
+      ! This is presumably serious enough to abort run
+      CALL abort_physic("phyetat0","discrepancy in longitudes!",1)
+    ENDIF
+    IF (ABS(lon_startphy(i)-longitude_deg(i))>=0.0001) THEN
+      WRITE(*,*) "phyetat0: Warning! Longitude discrepancy wrt startphy file:",&
+                 " i=",i," lon_startphy(i)=",lon_startphy(i),&
+                 " longitude_deg(i)=",longitude_deg(i)
+    ENDIF
+  ENDDO
+
+  ! read in other variables here ...
+
+  ! close file
+  CALL close_startphy
+
+  ! do some more initializations
+  CALL init_iophy_new(latitude_deg,longitude_deg)
+
+END SUBROUTINE phyetat0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyredem.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyredem.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phyredem.F90	(revision 3330)
@@ -0,0 +1,38 @@
+!
+! $Id: $
+!
+SUBROUTINE phyredem (fichnom)
+
+  USE geometry_mod, ONLY : longitude_deg, latitude_deg
+  USE iostart, ONLY: open_restartphy, close_restartphy, put_var, put_field
+
+  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", "Control parameters", tab_cntrl)
+
+  ! coordinates
+
+  CALL put_field("longitude", "Longitudes on physics grid", longitude_deg)
+     
+  CALL put_field("latitude", "Latitudes on physics grid", latitude_deg)
+
+  ! close file
+
+  CALL close_restartphy
+  !$OMP BARRIER
+
+END SUBROUTINE phyredem
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phys_state_var_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phys_state_var_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/phys_state_var_mod.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phydev/physiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/physiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phydev/physiq_mod.F90	(revision 3330)
@@ -0,0 +1,201 @@
+! $Id: physiq.F 1565 2011-08-31 12:53:29Z jghattas $
+MODULE physiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
+      SUBROUTINE physiq (nlon,nlev, &
+     &            debut,lafin,pdtphys, &
+     &            paprs,pplay,pphi,pphis,presnivs, &
+     &            u,v,t,qx, &
+     &            flxmass_w, &
+     &            d_u, d_v, d_t, d_qx, d_ps)
+
+      USE dimphy, only : klon,klev
+      USE infotrac_phy, only : nqtot
+      USE geometry_mod, only : latitude
+      USE comcstphy, only : rg
+      USE iophy, only : histbeg_phy,histwrite_phy
+      USE ioipsl, only : getin,histvert,histdef,histend,ymds2ju
+      USE mod_phys_lmdz_para, only : jj_nb
+      USE phys_state_var_mod, only : phys_state_var_init
+      USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat
+
+#ifdef CPP_XIOS
+      USE xios, ONLY: xios_update_calendar
+      USE wxios, only: wxios_add_vaxis, wxios_set_timestep, wxios_closedef, &
+                       histwrite_phy
+#endif
+
+      IMPLICIT none
+!
+! Routine argument:
+!
+      integer,intent(in) :: nlon ! number of atmospheric colums
+      integer,intent(in) :: nlev ! number of vertical levels (should be =klev)
+      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) :: presnivs(klev) ! pseudo-pressure (Pa) of mid-layers
+      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
+
+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)
+
+! For I/Os
+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,save :: iwrite_phys_omp ! intermediate variable to read iwrite_phys
+                                ! (must be shared by all threads)
+real :: t_ops ! frequency of the IOIPSL operations (eg average over...)
+real :: t_wrt ! frequency of the IOIPSL outputs
+
+! initializations
+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 ymds2ju(1979, 1, 1, 0.0, zjulian)
+  dtime=pdtphys
+#ifndef CPP_IOIPSL_NO_OUTPUT
+  ! Initialize IOIPSL output file
+  call histbeg_phy("histins.nc",itau0,zjulian,dtime,nhori,nid_hist)
+#endif
+
+!$OMP MASTER
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+! IOIPSL
+  ! define vertical coordinate
+  call histvert(nid_hist,"presnivs","Vertical levels","Pa",klev, &
+                presnivs,zvertid,'down')
+  ! define variables which will be written in "histins.nc" file
+  call histdef(nid_hist,'temperature','Atmospheric temperature','K', &
+               nbp_lon,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'u','Eastward Zonal Wind','m/s', &
+               nbp_lon,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'v','Northward Meridional Wind','m/s', &
+               nbp_lon,jj_nb,nhori,klev,1,klev,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  call histdef(nid_hist,'ps','Surface Pressure','Pa', &
+               nbp_lon,jj_nb,nhori,1,1,1,zvertid,32, &
+               'inst(X)',t_ops,t_wrt)
+  ! end definition sequence
+  call histend(nid_hist)
+#endif
+
+#ifdef CPP_XIOS
+!XIOS
+    ! Declare available vertical axes to be used in output files:    
+    !CALL wxios_add_vaxis("presnivs", "dummy-not-used", klev, presnivs)
+    CALL wxios_add_vaxis("presnivs", klev, presnivs)
+
+    ! Declare time step length (in s):
+    CALL wxios_set_timestep(dtime)
+
+    !Finalize the context:
+    CALL wxios_closedef()
+#endif
+!$OMP END MASTER
+endif ! of if (debut)
+
+! increment local time counter itau
+itau=itau+1
+
+! set all tendencies to zero
+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.
+
+! compute tendencies to return to the dynamics:
+! "friction" on the first layer
+d_u(1:klon,1)=-u(1:klon,1)/86400.
+d_v(1:klon,1)=-v(1:klon,1)/86400.
+! newtonian relaxation towards temp_newton()
+do k=1,klev
+  temp_newton(1:klon,k)=280.+cos(latitude(1:klon))*40.-pphi(1:klon,k)/rg*6.e-3
+  d_t(1:klon,k)=(temp_newton(1:klon,k)-t(1:klon,k))/1.e5
+enddo
+
+
+print*,'PHYDEV: itau=',itau
+
+! write some outputs:
+! IOIPSL
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+if (modulo(itau,iwrite_phys)==0) then
+  call histwrite_phy(nid_hist,.false.,"temperature",itau,t)
+  call histwrite_phy(nid_hist,.false.,"u",itau,u)
+  call histwrite_phy(nid_hist,.false.,"v",itau,v)
+  call histwrite_phy(nid_hist,.false.,"ps",itau,paprs(:,1))
+endif
+#endif
+
+!XIOS
+#ifdef CPP_XIOS
+!$OMP MASTER
+    !Increment XIOS time
+    CALL xios_update_calendar(itau)
+!$OMP END MASTER
+!$OMP BARRIER
+
+    !Send fields to XIOS: (NB these fields must also be defined as
+    ! <field id="..." /> in iodef.xml to be correctly used
+    CALL histwrite_phy("temperature",t)
+    CALL histwrite_phy("temp_newton",temp_newton)
+    CALL histwrite_phy("u",u)
+    CALL histwrite_phy("v",v)
+    CALL histwrite_phy("ps",paprs(:,1))
+#endif
+
+! if lastcall, then it is time to write "restartphy.nc" file
+if (lafin) then
+  call phyredem("restartphy.nc")
+endif
+
+end subroutine physiq
+
+END MODULE physiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/FCTTRE.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/FCTTRE.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/FCTTRE.h	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $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)
+!
+!     ------------------------------------------------------------------
+!     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
+!     ------------------------------------------------------------------
+      REAL PTARG, PDELARG, P5ARG, PQSARG, PCOARG
+      REAL FOEEW, FOEDE, qsats, qsatl, dqsats, dqsatl
+      LOGICAL thermcep
+      PARAMETER (thermcep=.TRUE.)
+!
+      FOEEW ( PTARG,PDELARG ) = EXP (                                   &
+     &          (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)        &
+     & / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )
+!
+      FOEDE ( PTARG,PDELARG,P5ARG,PQSARG,PCOARG ) = PQSARG*PCOARG*P5ARG &
+     & / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG))**2
+!
+      qsats(ptarg) = 100.0 * 0.622 * 10.0                               &
+     &           ** (2.07023 - 0.00320991 * ptarg                       &
+     &           - 2484.896 / ptarg + 3.56654 * LOG10(ptarg))
+      qsatl(ptarg) = 100.0 * 0.622 * 10.0                               &
+     &           ** (23.8319 - 2948.964 / ptarg                         &
+     &           - 5.028 * LOG10(ptarg)                                 &
+     &           - 29810.16 * EXP( - 0.0699382 * ptarg)                 &
+     &           + 25.21935 * EXP( - 2999.924 / ptarg))
+!
+      dqsats(ptarg,pqsarg) = RLVTT/RCPD*pqsarg * (3.56654/ptarg         &
+     &                     +2484.896*LOG(10.)/ptarg**2                  &
+     &                     -0.00320991*LOG(10.))
+      dqsatl(ptarg,pqsarg) = RLVTT/RCPD*pqsarg*LOG(10.)*                &
+     &                (2948.964/ptarg**2-5.028/LOG(10.)/ptarg           &
+     &                +25.21935*2999.924/ptarg**2*EXP(-2999.924/ptarg)  &
+     &                +29810.16*0.0699382*EXP(-0.0699382*ptarg))
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOECUMF.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOECUMF.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOECUMF.h	(revision 3330)
@@ -0,0 +1,48 @@
+!
+! $Id$
+!
+!  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)
+!
+!     ----------------------------------------------------------------
+!*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
+!     ----------------------------------------------------------------
+!
+      COMMON /YOECUMF/                                                  &
+     &                 LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV,              &
+     &                 ENTRPEN,ENTRSCV,ENTRMID,ENTRDD,CMFCTOP,          &
+     &                 CMFCMAX,CMFCMIN,CMFDEPS,RHCDD,CPRCON
+
+      LOGICAL          LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
+      REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
+      REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
+!$OMP THREADPRIVATE(/YOECUMF/)
+!
+!*if (DOC,declared) <> 'UNKNOWN'
+!*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
+!
+!     M.TIEDTKE       E. C. M. W. F.      18/1/89
+!
+!     NAME      TYPE      PURPOSE
+!     ----      ----      -------
+!
+!     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
+!     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
+!     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
+!     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
+!     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
+!     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
+!     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
+!     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
+!     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
+!     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
+!     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
+!     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
+!     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
+!     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
+!     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
+!                        FROM CLOUD WATER TO RAIN
+!*ifend
+!     ----------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOEGWD.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOEGWD.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOEGWD.h	(revision 3330)
@@ -0,0 +1,32 @@
+!
+! $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)
+!     -----------------------------------------------------------------
+!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
+!     -----------------------------------------------------------------
+!
+      integer NKTOPG,NSTRA
+      real GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
+      real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
+
+      REAL GWD_RANDO_RUWMAX
+!     Maximum Eliassen-Palm flux at launch level, 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)
+
+      REAL GWD_FRONT_RUWMAX,GWD_FRONT_SAT 
+! Same as GWD_RANDO params but for fronal GWs
+
+
+      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT,        &
+     &     GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC,         &
+     &     GWD_RANDO_RUWMAX, gwd_rando_sat,                             &
+     &     GWD_FRONT_RUWMAX, gwd_front_sat
+
+      save /YOEGWD/
+!$OMP THREADPRIVATE(/YOEGWD/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOEMETH.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOEMETH.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOEMETH.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phylmd/YOETHF.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOETHF.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOETHF.h	(revision 3330)
@@ -0,0 +1,28 @@
+!
+! $Id$
+!
+!  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)
+!
+!*    COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
+!
+!     *R__ES*   *CONSTANTS USED FOR COMPUTATION OF SATURATION
+!                MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
+!                ICE(*R_IES*).
+!     *RVTMP2*  *RVTMP2=RCPV/RCPD-1.
+!     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
+!
+      REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
+      REAL RVTMP2, RHOH2O
+      REAL R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,RALFDCP,RTWAT,RTBER,RTBERCU
+      REAL RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,RKOOP2
+      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
+     &               RVTMP2, RHOH2O,                                    &
+     &               R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,                   &
+     &               RALFDCP,RTWAT,RTBER,RTBERCU,                       &
+     &               RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,&
+     &	  	     RKOOP2
+
+!$OMP THREADPRIVATE(/YOETHF/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOMCST.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOMCST.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOMCST.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phylmd/YOMCST2.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOMCST2.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/YOMCST2.h	(revision 3330)
@@ -0,0 +1,14 @@
+
+      INTEGER choice, iflag_mix, iflag_mix_adiab
+      REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
+      REAL  Qcoef1max,Qcoef2max,Supcrit1,Supcrit2
+      REAL coef_clos_ls
+!
+      COMMON/YOMCST2/gammas,    alphas, betas, Fmax, scut,              &
+     &               qqa1, qqa2, qqa3,                                  &
+     &               Qcoef1max,Qcoef2max,                               &
+     &               Supcrit1, Supcrit2,                                &
+     &               choice,iflag_mix,coef_clos_ls,iflag_mix_adiab
+!$OMP THREADPRIVATE(/YOMCST2/)
+!    --------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aaam_bud.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aaam_bud.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aaam_bud.F90	(revision 3330)
@@ -0,0 +1,358 @@
+
+! $Id$
+
+SUBROUTINE aaam_bud(iam, nlon, nlev, rjour, rsec, rea, rg, ome, plat, plon, &
+    phis, dragu, liftu, phyu, dragv, liftv, phyv, p, u, v, aam, torsfc)
+
+  USE dimphy
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): F.Lott (LMD/CNRS) date: 20031020
+  ! Object: Compute different terms of the axial AAAM Budget.
+  ! No outputs, every AAM quantities are written on the IAM
+  ! File.
+
+  ! Modif : I.Musat (LMD/CNRS) date : 20041020
+  ! Outputs : axial components of wind AAM "aam" and total surface torque
+  ! "torsfc",
+  ! but no write in the iam file.
+
+  ! WARNING: Only valid for regular rectangular grids.
+  ! REMARK: CALL DANS PHYSIQ AFTER lift_noro:
+  ! CALL aaam_bud (27,klon,klev,rjourvrai,gmtime,
+  ! C               ra,rg,romega,
+  ! C               rlat,rlon,pphis,
+  ! C               zustrdr,zustrli,zustrph,
+  ! C               zvstrdr,zvstrli,zvstrph,
+  ! C               paprs,u,v)
+
+  ! ======================================================================
+  ! Explicit Arguments:
+  ! ==================
+  ! iam-----input-I-File number where AAMs and torques are written
+  ! It is a formatted file that has been opened
+  ! in physiq.F
+  ! nlon----input-I-Total number of horizontal points that get into physics
+  ! nlev----input-I-Number of vertical levels
+  ! rjour        -R-Jour compte depuis le debut de la simu (run.def)
+  ! rsec         -R-Seconde de la journee
+  ! rea          -R-Earth radius
+  ! rg           -R-gravity constant
+  ! ome          -R-Earth rotation rate
+  ! plat ---input-R-Latitude en degres
+  ! plon ---input-R-Longitude en degres
+  ! phis ---input-R-Geopotential at the ground
+  ! dragu---input-R-orodrag stress (zonal)
+  ! liftu---input-R-orolift stress (zonal)
+  ! phyu----input-R-Stress total de la physique (zonal)
+  ! dragv---input-R-orodrag stress (Meridional)
+  ! liftv---input-R-orolift stress (Meridional)
+  ! phyv----input-R-Stress total de la physique (Meridional)
+  ! p-------input-R-Pressure (Pa) at model half levels
+  ! u-------input-R-Horizontal wind (m/s)
+  ! v-------input-R-Meridional wind (m/s)
+  ! aam-----output-R-Axial Wind AAM (=raam(3))
+  ! torsfc--output-R-Total surface torque (=tmou(3)+tsso(3)+tbls(3))
+
+  ! Implicit Arguments:
+  ! ===================
+
+  ! nbp_lon--common-I: Number of longitude intervals
+  ! (nbp_lat-1)--common-I: Number of latitude intervals
+  ! klon-common-I: Number of points seen by the physics
+  ! nbp_lon*(nbp_lat-2)+2 for instance
+  ! klev-common-I: Number of vertical layers
+  ! ======================================================================
+  ! Local Variables:
+  ! ================
+  ! dlat-----R: Latitude increment (Radians)
+  ! dlon-----R: Longitude increment (Radians)
+  ! raam  ---R: Wind AAM (3 Components, 1 & 2 Equatoriales; 3 Axiale)
+  ! oaam  ---R: Mass AAM (3 Components, 1 & 2 Equatoriales; 3 Axiale)
+  ! tmou-----R: Resolved Mountain torque (3 components)
+  ! tsso-----R: Parameterised Moutain drag torque (3 components)
+  ! tbls-----R: Parameterised Boundary layer torque (3 components)
+
+  ! LOCAL ARRAY:
+  ! ===========
+  ! zs    ---R: Topographic height
+  ! ps    ---R: Surface Pressure
+  ! ub    ---R: Barotropic wind zonal
+  ! vb    ---R: Barotropic wind meridional
+  ! zlat  ---R: Latitude in radians
+  ! zlon  ---R: Longitude in radians
+  ! ======================================================================
+
+  ! ARGUMENTS
+
+  INTEGER iam, nlon, nlev
+  REAL, INTENT (IN) :: rjour, rsec, rea, rg, ome
+  REAL plat(nlon), plon(nlon), phis(nlon)
+  REAL dragu(nlon), liftu(nlon), phyu(nlon)
+  REAL dragv(nlon), liftv(nlon), phyv(nlon)
+  REAL p(nlon, nlev+1), u(nlon, nlev), v(nlon, nlev)
+
+  ! Variables locales:
+
+  INTEGER i, j, k, l
+  REAL xpi, hadley, hadday
+  REAL dlat, dlon
+  REAL raam(3), oaam(3), tmou(3), tsso(3), tbls(3)
+  INTEGER iax
+  ! IM ajout aam, torsfc
+  ! aam = composante axiale du Wind AAM raam
+  ! torsfc = composante axiale de (tmou+tsso+tbls)
+  REAL aam, torsfc
+
+  REAL zs(801, 401), ps(801, 401)
+  REAL ub(801, 401), vb(801, 401)
+  REAL ssou(801, 401), ssov(801, 401)
+  REAL blsu(801, 401), blsv(801, 401)
+  REAL zlon(801), zlat(401)
+
+  CHARACTER (LEN=20) :: modname = 'aaam_bud'
+  CHARACTER (LEN=80) :: abort_message
+
+
+
+  ! PUT AAM QUANTITIES AT ZERO:
+
+  IF (nbp_lon+1>801 .OR. nbp_lat>401) THEN
+    abort_message = 'Pb de dimension dans aaam_bud'
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+
+  xpi = acos(-1.)
+  hadley = 1.E18
+  hadday = 1.E18*24.*3600.
+  IF(klon_glo.EQ.1) THEN
+    dlat = xpi
+  ELSE
+    dlat = xpi/real(nbp_lat-1)
+  ENDIF
+  dlon = 2.*xpi/real(nbp_lon)
+
+  DO iax = 1, 3
+    oaam(iax) = 0.
+    raam(iax) = 0.
+    tmou(iax) = 0.
+    tsso(iax) = 0.
+    tbls(iax) = 0.
+  END DO
+
+  ! MOUNTAIN HEIGHT, PRESSURE AND BAROTROPIC WIND:
+
+  ! North pole values (j=1):
+
+  l = 1
+
+  ub(1, 1) = 0.
+  vb(1, 1) = 0.
+  DO k = 1, nlev
+    ub(1, 1) = ub(1, 1) + u(l, k)*(p(l,k)-p(l,k+1))/rg
+    vb(1, 1) = vb(1, 1) + v(l, k)*(p(l,k)-p(l,k+1))/rg
+  END DO
+
+  zlat(1) = plat(l)*xpi/180.
+
+  DO i = 1, nbp_lon + 1
+
+    zs(i, 1) = phis(l)/rg
+    ps(i, 1) = p(l, 1)
+    ub(i, 1) = ub(1, 1)
+    vb(i, 1) = vb(1, 1)
+    ssou(i, 1) = dragu(l) + liftu(l)
+    ssov(i, 1) = dragv(l) + liftv(l)
+    blsu(i, 1) = phyu(l) - dragu(l) - liftu(l)
+    blsv(i, 1) = phyv(l) - dragv(l) - liftv(l)
+
+  END DO
+
+
+  DO j = 2, nbp_lat-1
+
+    ! Values at Greenwich (Periodicity)
+
+    zs(nbp_lon+1, j) = phis(l+1)/rg
+    ps(nbp_lon+1, j) = p(l+1, 1)
+    ssou(nbp_lon+1, j) = dragu(l+1) + liftu(l+1)
+    ssov(nbp_lon+1, j) = dragv(l+1) + liftv(l+1)
+    blsu(nbp_lon+1, j) = phyu(l+1) - dragu(l+1) - liftu(l+1)
+    blsv(nbp_lon+1, j) = phyv(l+1) - dragv(l+1) - liftv(l+1)
+    zlon(nbp_lon+1) = -plon(l+1)*xpi/180.
+    zlat(j) = plat(l+1)*xpi/180.
+
+    ub(nbp_lon+1, j) = 0.
+    vb(nbp_lon+1, j) = 0.
+    DO k = 1, nlev
+      ub(nbp_lon+1, j) = ub(nbp_lon+1, j) + u(l+1, k)*(p(l+1,k)-p(l+1,k+1))/rg
+      vb(nbp_lon+1, j) = vb(nbp_lon+1, j) + v(l+1, k)*(p(l+1,k)-p(l+1,k+1))/rg
+    END DO
+
+
+    DO i = 1, nbp_lon
+
+      l = l + 1
+      zs(i, j) = phis(l)/rg
+      ps(i, j) = p(l, 1)
+      ssou(i, j) = dragu(l) + liftu(l)
+      ssov(i, j) = dragv(l) + liftv(l)
+      blsu(i, j) = phyu(l) - dragu(l) - liftu(l)
+      blsv(i, j) = phyv(l) - dragv(l) - liftv(l)
+      zlon(i) = plon(l)*xpi/180.
+
+      ub(i, j) = 0.
+      vb(i, j) = 0.
+      DO k = 1, nlev
+        ub(i, j) = ub(i, j) + u(l, k)*(p(l,k)-p(l,k+1))/rg
+        vb(i, j) = vb(i, j) + v(l, k)*(p(l,k)-p(l,k+1))/rg
+      END DO
+
+    END DO
+
+  END DO
+
+
+  ! South Pole
+
+  IF (nbp_lat-1>1) THEN
+    l = l + 1
+    ub(1, nbp_lat) = 0.
+    vb(1, nbp_lat) = 0.
+    DO k = 1, nlev
+      ub(1, nbp_lat) = ub(1, nbp_lat) + u(l, k)*(p(l,k)-p(l,k+1))/rg
+      vb(1, nbp_lat) = vb(1, nbp_lat) + v(l, k)*(p(l,k)-p(l,k+1))/rg
+    END DO
+    zlat(nbp_lat) = plat(l)*xpi/180.
+
+    DO i = 1, nbp_lon + 1
+      zs(i, nbp_lat) = phis(l)/rg
+      ps(i, nbp_lat) = p(l, 1)
+      ssou(i, nbp_lat) = dragu(l) + liftu(l)
+      ssov(i, nbp_lat) = dragv(l) + liftv(l)
+      blsu(i, nbp_lat) = phyu(l) - dragu(l) - liftu(l)
+      blsv(i, nbp_lat) = phyv(l) - dragv(l) - liftv(l)
+      ub(i, nbp_lat) = ub(1, nbp_lat)
+      vb(i, nbp_lat) = vb(1, nbp_lat)
+    END DO
+  END IF
+
+
+  ! MOMENT ANGULAIRE
+
+  DO j = 1, nbp_lat-1
+    DO i = 1, nbp_lon
+
+      raam(1) = raam(1) - rea**3*dlon*dlat*0.5*(cos(zlon(i))*sin(zlat(j))*cos &
+        (zlat(j))*ub(i,j)+cos(zlon(i))*sin(zlat(j+1))*cos(zlat(j+ &
+        1))*ub(i,j+1)) + rea**3*dlon*dlat*0.5*(sin(zlon(i))*cos(zlat(j))*vb(i &
+        ,j)+sin(zlon(i))*cos(zlat(j+1))*vb(i,j+1))
+
+      oaam(1) = oaam(1) - ome*rea**4*dlon*dlat/rg*0.5*(cos(zlon(i))*cos(zlat( &
+        j))**2*sin(zlat(j))*ps(i,j)+cos(zlon(i))*cos(zlat(j+ &
+        1))**2*sin(zlat(j+1))*ps(i,j+1))
+
+      raam(2) = raam(2) - rea**3*dlon*dlat*0.5*(sin(zlon(i))*sin(zlat(j))*cos &
+        (zlat(j))*ub(i,j)+sin(zlon(i))*sin(zlat(j+1))*cos(zlat(j+ &
+        1))*ub(i,j+1)) - rea**3*dlon*dlat*0.5*(cos(zlon(i))*cos(zlat(j))*vb(i &
+        ,j)+cos(zlon(i))*cos(zlat(j+1))*vb(i,j+1))
+
+      oaam(2) = oaam(2) - ome*rea**4*dlon*dlat/rg*0.5*(sin(zlon(i))*cos(zlat( &
+        j))**2*sin(zlat(j))*ps(i,j)+sin(zlon(i))*cos(zlat(j+ &
+        1))**2*sin(zlat(j+1))*ps(i,j+1))
+
+      raam(3) = raam(3) + rea**3*dlon*dlat*0.5*(cos(zlat(j))**2*ub(i,j)+cos( &
+        zlat(j+1))**2*ub(i,j+1))
+
+      oaam(3) = oaam(3) + ome*rea**4*dlon*dlat/rg*0.5*(cos(zlat(j))**3*ps(i,j &
+        )+cos(zlat(j+1))**3*ps(i,j+1))
+
+    END DO
+  END DO
+
+
+  ! COUPLE DES MONTAGNES:
+
+
+  DO j = 1, nbp_lat-1
+    DO i = 1, nbp_lon
+      tmou(1) = tmou(1) - rea**2*dlon*0.5*sin(zlon(i))*(zs(i,j)-zs(i,j+1))*( &
+        cos(zlat(j+1))*ps(i,j+1)+cos(zlat(j))*ps(i,j))
+      tmou(2) = tmou(2) + rea**2*dlon*0.5*cos(zlon(i))*(zs(i,j)-zs(i,j+1))*( &
+        cos(zlat(j+1))*ps(i,j+1)+cos(zlat(j))*ps(i,j))
+    END DO
+  END DO
+
+  DO j = 2, nbp_lat-1
+    DO i = 1, nbp_lon
+      tmou(1) = tmou(1) + rea**2*dlat*0.5*sin(zlat(j))*(zs(i+1,j)-zs(i,j))*( &
+        cos(zlon(i+1))*ps(i+1,j)+cos(zlon(i))*ps(i,j))
+      tmou(2) = tmou(2) + rea**2*dlat*0.5*sin(zlat(j))*(zs(i+1,j)-zs(i,j))*( &
+        sin(zlon(i+1))*ps(i+1,j)+sin(zlon(i))*ps(i,j))
+      tmou(3) = tmou(3) - rea**2*dlat*0.5*cos(zlat(j))*(zs(i+1,j)-zs(i,j))*( &
+        ps(i+1,j)+ps(i,j))
+    END DO
+  END DO
+
+
+  ! COUPLES DES DIFFERENTES FRICTION AU SOL:
+
+  l = 1
+  DO j = 2, nbp_lat-1
+    DO i = 1, nbp_lon
+      l = l + 1
+      tsso(1) = tsso(1) - rea**3*cos(zlat(j))*dlon*dlat*ssou(i, j)*sin(zlat(j &
+        ))*cos(zlon(i)) + rea**3*cos(zlat(j))*dlon*dlat*ssov(i, j)*sin(zlon(i &
+        ))
+
+      tsso(2) = tsso(2) - rea**3*cos(zlat(j))*dlon*dlat*ssou(i, j)*sin(zlat(j &
+        ))*sin(zlon(i)) - rea**3*cos(zlat(j))*dlon*dlat*ssov(i, j)*cos(zlon(i &
+        ))
+
+      tsso(3) = tsso(3) + rea**3*cos(zlat(j))*dlon*dlat*ssou(i, j)*cos(zlat(j &
+        ))
+
+      tbls(1) = tbls(1) - rea**3*cos(zlat(j))*dlon*dlat*blsu(i, j)*sin(zlat(j &
+        ))*cos(zlon(i)) + rea**3*cos(zlat(j))*dlon*dlat*blsv(i, j)*sin(zlon(i &
+        ))
+
+      tbls(2) = tbls(2) - rea**3*cos(zlat(j))*dlon*dlat*blsu(i, j)*sin(zlat(j &
+        ))*sin(zlon(i)) - rea**3*cos(zlat(j))*dlon*dlat*blsv(i, j)*cos(zlon(i &
+        ))
+
+      tbls(3) = tbls(3) + rea**3*cos(zlat(j))*dlon*dlat*blsu(i, j)*cos(zlat(j &
+        ))
+
+    END DO
+  END DO
+
+
+  ! write(*,*) 'AAM',rsec,
+  ! write(*,*) 'AAM',rjour+rsec/86400.,
+  ! c      raam(3)/hadday,oaam(3)/hadday,
+  ! c      tmou(3)/hadley,tsso(3)/hadley,tbls(3)/hadley
+
+  ! write(iam,100)rjour+rsec/86400.,
+  ! c      raam(1)/hadday,oaam(1)/hadday,
+  ! c      tmou(1)/hadley,tsso(1)/hadley,tbls(1)/hadley,
+  ! c      raam(2)/hadday,oaam(2)/hadday,
+  ! c      tmou(2)/hadley,tsso(2)/hadley,tbls(2)/hadley,
+  ! c      raam(3)/hadday,oaam(3)/hadday,
+  ! c      tmou(3)/hadley,tsso(3)/hadley,tbls(3)/hadley
+100 FORMAT (F12.5, 15(1X,F12.5))
+
+  ! write(iam+1,*)((zs(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((ps(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((ub(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((vb(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((ssou(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((ssov(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((blsu(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! write(iam+1,*)((blsv(i,j),i=1,nbp_lon),j=1,nbp_lat)
+
+  aam = raam(3)
+  torsfc = tmou(3) + tsso(3) + tbls(3)
+
+  RETURN
+END SUBROUTINE aaam_bud
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/acama_gwd_rando_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/acama_gwd_rando_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/acama_gwd_rando_m.F90	(revision 3330)
@@ -0,0 +1,493 @@
+module ACAMA_GWD_rando_m
+
+  implicit none
+
+contains
+
+  SUBROUTINE ACAMA_GWD_rando(DTIME, pp, plat, tt, uu, vv, rot, &
+       zustr, zvstr, d_u, d_v,east_gwstress,west_gwstress)
+
+    ! Parametrization of the momentum flux deposition due to a discrete
+    ! number of gravity waves. 
+    ! Author: F. Lott, A. de la Camara
+    ! July, 24th, 2014
+    ! Gaussian distribution of the source, source is vorticity squared
+    ! Reference: de la Camara and Lott (GRL, 2015, vol 42, 2071-2078 )
+    ! Lott et al (JAS, 2010, vol 67, page 157-170)
+    ! Lott et al (JAS, 2012, vol 69, page 2134-2151)
+
+!  ONLINE:
+    use dimphy, only: klon, klev
+    use assert_m, only: assert
+    include "YOMCST.h"
+    include "clesphys.h"
+!  OFFLINE:
+!   include "dimensions.h"
+!   include "dimphy.h"
+!END DIFFERENCE
+    include "YOEGWD.h"
+
+    ! 0. DECLARATIONS:
+
+    ! 0.1 INPUTS
+    REAL, intent(in)::DTIME ! Time step of the Physics
+    REAL, intent(in):: PP(:, :) ! (KLON, KLEV) Pressure at full levels
+    REAL, intent(in):: ROT(:,:) ! Relative vorticity              
+    REAL, intent(in):: TT(:, :) ! (KLON, KLEV) Temp at full levels 
+    REAL, intent(in):: UU(:, :) ! (KLON, KLEV) Zonal wind at full levels
+    REAL, intent(in):: VV(:, :) ! (KLON, KLEV) Merid wind at full levels
+    REAL, intent(in):: PLAT(:) ! (KLON) LATITUDE                   
+
+    ! 0.2 OUTPUTS
+    REAL, intent(out):: zustr(:), zvstr(:) ! (KLON) Surface Stresses
+
+    REAL, intent(inout):: d_u(:, :), d_v(:, :) 
+    REAL, intent(inout):: east_gwstress(:, :) !  Profile of eastward stress
+    REAL, intent(inout):: west_gwstress(:, :) !  Profile of westward stress 
+    ! (KLON, KLEV) tendencies on winds
+
+    ! O.3 INTERNAL ARRAYS
+    REAL BVLOW(klon)  !  LOW LEVEL BV FREQUENCY
+    REAL ROTBA(KLON),CORIO(KLON)  !  BAROTROPIC REL. VORTICITY AND PLANETARY
+    REAL UZ(KLON, KLEV + 1)
+
+    INTEGER II, JJ, LL
+
+    ! 0.3.0 TIME SCALE OF THE LIFE CYCLE OF THE WAVES PARAMETERIZED
+
+    REAL DELTAT
+
+    ! 0.3.1 GRAVITY-WAVES SPECIFICATIONS
+
+    INTEGER, PARAMETER:: NK = 2, NP = 2, NO = 2, NW = NK * NP * NO
+    INTEGER JK, JP, JO, JW
+    INTEGER, PARAMETER:: NA = 5  !number of realizations to get the phase speed
+    REAL KMIN, KMAX ! Min and Max horizontal wavenumbers
+    REAL CMIN, CMAX ! Min and Max absolute ph. vel.
+    REAL CPHA ! absolute PHASE VELOCITY frequency
+    REAL ZK(NW, KLON) ! Horizontal wavenumber amplitude
+    REAL ZP(NW, KLON) ! Horizontal wavenumber angle 
+    REAL ZO(NW, KLON) ! Absolute frequency !
+
+    ! Waves Intr. freq. at the 1/2 lev surrounding the full level
+    REAL ZOM(NW, KLON), ZOP(NW, KLON)
+
+    ! Wave EP-fluxes at the 2 semi levels surrounding the full level
+    REAL WWM(NW, KLON), WWP(NW, KLON)
+
+    REAL RUW0(NW, KLON) ! Fluxes at launching level
+
+    REAL RUWP(NW, KLON), RVWP(NW, KLON)
+    ! Fluxes X and Y for each waves at 1/2 Levels
+
+    INTEGER LAUNCH, LTROP ! Launching altitude and tropo altitude
+
+    REAL XLAUNCH ! Controle the launching altitude
+    REAL XTROP ! SORT of Tropopause altitude 
+    REAL RUW(KLON, KLEV + 1) ! Flux x at semi levels
+    REAL RVW(KLON, KLEV + 1) ! Flux y at semi levels
+
+    REAL PRMAX ! Maximum value of PREC, and for which our linear formula
+    ! for GWs parameterisation apply
+
+    ! 0.3.2 PARAMETERS OF WAVES DISSIPATIONS
+
+    REAL RDISS, ZOISEC ! COEFF DE DISSIPATION, SECURITY FOR INTRINSIC FREQ
+    REAL CORSEC ! SECURITY FOR INTRINSIC CORIOLIS
+    REAL RUWFRT,SATFRT
+
+    ! 0.3.3 BACKGROUND FLOW AT 1/2 LEVELS AND VERTICAL COORDINATE
+
+    REAL H0 ! Characteristic Height of the atmosphere
+    REAL DZ ! Characteristic depth of the source!
+    REAL PR, TR ! Reference Pressure and Temperature
+
+    REAL ZH(KLON, KLEV + 1) ! Log-pressure altitude
+
+    REAL UH(KLON, KLEV + 1), VH(KLON, KLEV + 1) ! Winds at 1/2 levels
+    REAL PH(KLON, KLEV + 1) ! Pressure at 1/2 levels
+    REAL PSEC ! Security to avoid division by 0 pressure
+    REAL PHM1(KLON, KLEV + 1) ! 1/Press at 1/2 levels
+    REAL BV(KLON, KLEV + 1) ! Brunt Vaisala freq. (BVF) at 1/2 levels
+    REAL BVSEC ! Security to avoid negative BVF
+
+    !-----------------------------------------------------------------
+
+    ! 1. INITIALISATIONS
+
+    ! 1.1 Basic parameter
+
+    ! Are provided from elsewhere (latent heat of vaporization, dry
+    ! gaz constant for air, gravity constant, heat capacity of dry air
+    ! at constant pressure, earth rotation rate, pi).
+
+    ! 1.2 Tuning parameters of V14
+
+! Values for linear in rot (recommended):
+!   RUWFRT=0.005 ! As RUWMAX but for frontal waves 
+!   SATFRT=1.00  ! As SAT    but for frontal waves
+! Values when rot^2 is used                          
+!    RUWFRT=0.02  ! As RUWMAX but for frontal waves 
+!    SATFRT=1.00  ! As SAT    but for frontal waves
+!    CMAX = 30.   ! Characteristic phase speed
+! Values when rot^2*EXP(-pi*sqrt(J)) is used                          
+!   RUWFRT=2.5   ! As RUWMAX but for frontal waves ~ N0*F0/4*DZ
+!   SATFRT=0.60   ! As SAT    but for frontal waves
+    RUWFRT=gwd_front_ruwmax  
+    SATFRT=gwd_front_sat
+    CMAX = 40.    ! Characteristic phase speed
+! Phase speed test
+!   RUWFRT=0.01
+!   CMAX = 50.   ! Characteristic phase speed (TEST)
+! Values when rot^2 and exp(-m^2*dz^2) are used      
+!   RUWFRT=0.03  ! As RUWMAX but for frontal waves 
+!   SATFRT=1.00  ! As SAT    but for frontal waves
+! CRUCIAL PARAMETERS FOR THE WIND FILTERING
+    XLAUNCH=0.95 ! Parameter that control launching altitude
+    RDISS = 1    ! Diffusion parameter 
+
+    ! maximum of rain for which our theory applies (in kg/m^2/s)
+
+    DZ = 1000. ! Characteristic depth of the source
+    XTROP=0.2 ! Parameter that control tropopause altitude
+    DELTAT=24.*3600. ! Time scale of the waves (first introduced in 9b)
+!   DELTAT=DTIME     ! No AR-1 Accumulation, OR OFFLINE             
+
+    KMIN = 2.E-5
+    ! minimum horizontal wavenumber (inverse of the subgrid scale resolution)
+
+    KMAX = 1.E-3  ! Max horizontal wavenumber
+    CMIN = 1.     ! Min phase velocity
+
+    TR = 240. ! Reference Temperature
+    PR = 101300. ! Reference pressure
+    H0 = RD * TR / RG ! Characteristic vertical scale height
+
+    BVSEC = 5.E-3 ! Security to avoid negative BVF 
+    PSEC = 1.E-6 ! Security to avoid division by 0 pressure
+    ZOISEC = 1.E-6 ! Security FOR 0 INTRINSIC FREQ
+    CORSEC = ROMEGA*2.*SIN(2.*RPI/180.)! Security for CORIO
+
+!  ONLINE
+    call assert(klon == (/size(pp, 1), size(tt, 1), size(uu, 1), &
+         size(vv, 1), size(rot,1), size(zustr), size(zvstr), size(d_u, 1), &
+         size(d_v, 1), &
+        size(east_gwstress,1), size(west_gwstress,1) /), &
+        "ACAMA_GWD_RANDO klon")
+    call assert(klev == (/size(pp, 2), size(tt, 2), size(uu, 2), &
+         size(vv, 2), size(d_u, 2), size(d_v, 2), &
+         size(east_gwstress,2), size(west_gwstress,2) /), &
+         "ACAMA_GWD_RANDO klev")
+!  END ONLINE
+
+    IF(DELTAT < DTIME)THEN
+       PRINT *, 'flott_gwd_rando: deltat < dtime!'
+       STOP 1
+    ENDIF
+
+    IF (KLEV < NW) THEN
+       PRINT *, 'flott_gwd_rando: you will have problem with random numbers'
+       STOP 1
+    ENDIF
+
+    ! 2. EVALUATION OF THE BACKGROUND FLOW AT SEMI-LEVELS
+
+    ! Pressure and Inv of pressure
+    DO LL = 2, KLEV
+       PH(:, LL) = EXP((LOG(PP(:, LL)) + LOG(PP(:, LL - 1))) / 2.)
+       PHM1(:, LL) = 1. / PH(:, LL) 
+    end DO
+
+    PH(:, KLEV + 1) = 0. 
+    PHM1(:, KLEV + 1) = 1. / PSEC
+    PH(:, 1) = 2. * PP(:, 1) - PH(:, 2)
+
+    ! Launching altitude
+
+    LAUNCH=0
+    LTROP =0
+    DO LL = 1, KLEV
+       IF (PH(KLON / 2, LL) / PH(KLON / 2, 1) > XLAUNCH) LAUNCH = LL
+    ENDDO
+    DO LL = 1, KLEV
+       IF (PH(KLON / 2, LL) / PH(KLON / 2, 1) > XTROP) LTROP = LL
+    ENDDO
+
+!   PRINT *,'LAUNCH IN ACAMARA:',LAUNCH
+
+    ! Log pressure vert. coordinate
+    DO LL = 1, KLEV + 1 
+       ZH(:, LL) = H0 * LOG(PR / (PH(:, LL) + PSEC))
+    end DO
+
+    ! BV frequency
+    DO LL = 2, KLEV
+       ! BVSEC: BV Frequency (UH USED IS AS A TEMPORARY ARRAY DOWN TO WINDS)
+       UH(:, LL) = 0.5 * (TT(:, LL) + TT(:, LL - 1)) &
+            * RD**2 / RCPD / H0**2 + (TT(:, LL) &
+            - TT(:, LL - 1)) / (ZH(:, LL) - ZH(:, LL - 1)) * RD / H0
+    end DO
+    BVLOW = 0.5 * (TT(:, LTROP )+ TT(:, LAUNCH)) &
+         * RD**2 / RCPD / H0**2 + (TT(:, LTROP ) &
+         - TT(:, LAUNCH))/(ZH(:, LTROP )- ZH(:, LAUNCH)) * RD / H0
+
+    UH(:, 1) = UH(:, 2)
+    UH(:, KLEV + 1) = UH(:, KLEV)
+    BV(:, 1) = UH(:, 2)
+    BV(:, KLEV + 1) = UH(:, KLEV)
+    ! SMOOTHING THE BV HELPS
+    DO LL = 2, KLEV
+       BV(:, LL)=(UH(:, LL+1)+2.*UH(:, LL)+UH(:, LL-1))/4.
+    end DO
+
+    BV=MAX(SQRT(MAX(BV, 0.)), BVSEC)
+    BVLOW=MAX(SQRT(MAX(BVLOW, 0.)), BVSEC)
+
+    ! WINDS
+    DO LL = 2, KLEV
+       UH(:, LL) = 0.5 * (UU(:, LL) + UU(:, LL - 1)) ! Zonal wind
+       VH(:, LL) = 0.5 * (VV(:, LL) + VV(:, LL - 1)) ! Meridional wind
+       UZ(:, LL) = ABS((SQRT(UU(:, LL)**2+VV(:, LL)**2) & 
+          - SQRT(UU(:,LL-1)**2+VV(:, LL-1)**2)) &
+          /(ZH(:, LL)-ZH(:, LL-1)) )
+    end DO
+    UH(:, 1) = 0.
+    VH(:, 1) = 0.
+    UH(:, KLEV + 1) = UU(:, KLEV)
+    VH(:, KLEV + 1) = VV(:, KLEV)
+
+    UZ(:, 1) = UZ(:, 2)
+    UZ(:, KLEV + 1) = UZ(:, KLEV)
+    UZ(:, :) = MAX(UZ(:,:), PSEC)
+
+   ! BAROTROPIC VORTICITY AND INTEGRATED CORIOLIS PARAMETER
+    
+    CORIO(:) = MAX(ROMEGA*2.*ABS(SIN(PLAT(:)*RPI/180.)),CORSEC)
+    ROTBA(:)=0.
+    DO LL = 1,KLEV-1
+        !ROTBA(:) = ROTBA(:) + (ROT(:,LL)+ROT(:,LL+1))/2./RG*(PP(:,LL)-PP(:,LL+1))
+        ! Introducing the complete formula (exp of Richardson number):
+        ROTBA(:) = ROTBA(:) + &
+                !((ROT(:,LL)+ROT(:,LL+1))/2.)**2 &
+                (CORIO(:)*TANH(ABS(ROT(:,LL)+ROT(:,LL+1))/2./CORIO(:)))**2 &
+                /RG*(PP(:,LL)-PP(:,LL+1)) &
+                * EXP(-RPI*BV(:,LL+1)/UZ(:,LL+1)) &
+!               * DZ*BV(:,LL+1)/4./ABS(CORIO(:)) 
+                * DZ*BV(:,LL+1)/4./1.E-4           !  Changes after 1991
+!ARRET
+    ENDDO
+    !   PRINT *,'MAX ROTBA:',MAXVAL(ROTBA)
+    !   ROTBA(:)=(1.*ROTBA(:)  & ! Testing zone
+    !           +0.15*CORIO(:)**2                &
+    !           /(COS(PLAT(:)*RPI/180.)+0.02)  &
+    !           )*DZ*0.01/0.0001/4. ! & ! Testing zone
+    !   MODIF GWD4 AFTER 1985
+    !            *(1.25+SIN(PLAT(:)*RPI/180.))/(1.05+SIN(PLAT(:)*RPI/180.))/1.25
+    !          *1./(COS(PLAT(:)*RPI/180.)+0.02)
+    !    CORIO(:) = MAX(ROMEGA*2.*ABS(SIN(PLAT(:)*RPI/180.)),ZOISEC)/RG*PP(:,1)
+
+    ! 3 WAVES CHARACTERISTICS CHOSEN RANDOMLY AT THE LAUNCH ALTITUDE
+
+    ! The mod functions of weird arguments are used to produce the
+    ! waves characteristics in an almost stochastic way
+
+    JW = 0
+    DO JP = 1, NP
+       DO JK = 1, NK
+          DO JO = 1, NO
+             JW = JW + 1
+             ! Angle
+             DO II = 1, KLON
+                ! Angle (0 or PI so far)
+                ! ZP(JW, II) = (SIGN(1., 0.5 - MOD(TT(II, JW) * 10., 1.)) + 1.) &
+                !      * RPI / 2.
+                ! Angle between 0 and pi
+                  ZP(JW, II) = MOD(TT(II, JW) * 10., 1.) * RPI
+! TEST WITH POSITIVE WAVES ONLY (Part I/II)
+!               ZP(JW, II) = 0.
+                ! Horizontal wavenumber amplitude
+                ZK(JW, II) = KMIN + (KMAX - KMIN) * MOD(TT(II, JW) * 100., 1.)
+                ! Horizontal phase speed
+                CPHA = 0.
+                DO JJ = 1, NA
+                    CPHA = CPHA + &
+         CMAX*2.*(MOD(TT(II, JW+4*(JJ-1)+JJ)**2, 1.)-0.5)*SQRT(3.)/SQRT(NA*1.)
+                END DO
+                IF (CPHA.LT.0.)  THEN
+                   CPHA = -1.*CPHA
+                   ZP(JW,II) = ZP(JW,II) + RPI
+! TEST WITH POSITIVE WAVES ONLY (Part II/II)
+!               ZP(JW, II) = 0.
+                ENDIF
+                CPHA = CPHA + CMIN !we dont allow |c|<1m/s
+                ! Absolute frequency is imposed
+                ZO(JW, II) = CPHA * ZK(JW, II) 
+                ! Intrinsic frequency is imposed
+                ZO(JW, II) = ZO(JW, II) &
+                     + ZK(JW, II) * COS(ZP(JW, II)) * UH(II, LAUNCH) &
+                     + ZK(JW, II) * SIN(ZP(JW, II)) * VH(II, LAUNCH)
+                ! Momentum flux at launch lev 
+                ! LAUNCHED RANDOM WAVES WITH LOG-NORMAL AMPLITUDE
+                !  RIGHT IN THE SH (GWD4 after 1990)
+                  RUW0(JW, II) = 0.
+                 DO JJ = 1, NA
+                    RUW0(JW, II) = RUW0(JW,II) + &
+         2.*(MOD(TT(II, JW+4*(JJ-1)+JJ)**2, 1.)-0.5)*SQRT(3.)/SQRT(NA*1.)
+                END DO
+                RUW0(JW, II) = RUWFRT &
+                          * EXP(RUW0(JW,II))/1250. &  ! 2 mpa at south pole
+       *((1.05+SIN(PLAT(II)*RPI/180.))/(1.01+SIN(PLAT(II)*RPI/180.))-2.05/2.01)
+                ! RUW0(JW, II) = RUWFRT
+             ENDDO
+          end DO
+       end DO
+    end DO
+
+    ! 4. COMPUTE THE FLUXES
+
+    ! 4.0 
+
+    ! 4.1 Vertical velocity at launching altitude to ensure 
+    ! the correct value to the imposed fluxes.
+
+    DO JW = 1, NW
+
+       ! Evaluate intrinsic frequency at launching altitude:
+       ZOP(JW, :) = ZO(JW, :) &
+            - ZK(JW, :) * COS(ZP(JW, :)) * UH(:, LAUNCH) &
+            - ZK(JW, :) * SIN(ZP(JW, :)) * VH(:, LAUNCH) 
+
+       ! VERSION WITH FRONTAL SOURCES
+
+       ! Momentum flux at launch level imposed by vorticity sources
+
+       ! tanh limitation for values above CORIO (inertial instability).
+       ! WWP(JW, :) = RUW0(JW, :) &
+       WWP(JW, :) = RUWFRT      &
+       !     * (CORIO(:)*TANH(ROTBA(:)/CORIO(:)))**2 &
+       !    * ABS((CORIO(:)*TANH(ROTBA(:)/CORIO(:)))*CORIO(:)) &
+       !  CONSTANT FLUX
+       !    * (CORIO(:)*CORIO(:)) &
+       ! MODERATION BY THE DEPTH OF THE SOURCE (DZ HERE)
+       !      *EXP(-BVLOW(:)**2/MAX(ABS(ZOP(JW, :)),ZOISEC)**2 &
+       !      *ZK(JW, :)**2*DZ**2) &
+       ! COMPLETE FORMULA:
+            !* CORIO(:)**2*TANH(ROTBA(:)/CORIO(:)**2) &
+            * ROTBA(:) &
+       !  RESTORE DIMENSION OF A FLUX
+       !     *RD*TR/PR
+             *1. + RUW0(JW, :)
+
+       ! Factor related to the characteristics of the waves: NONE
+
+       ! Moderation by the depth of the source (dz here): NONE
+
+       ! Put the stress in the right direction:
+
+        RUWP(JW, :) = SIGN(1., ZOP(JW, :))*COS(ZP(JW, :)) * WWP(JW, :)
+        RVWP(JW, :) = SIGN(1., ZOP(JW, :))*SIN(ZP(JW, :)) * WWP(JW, :)
+
+    end DO
+
+    ! 4.2 Uniform values below the launching altitude
+
+    DO LL = 1, LAUNCH
+       RUW(:, LL) = 0
+       RVW(:, LL) = 0
+       DO JW = 1, NW
+          RUW(:, LL) = RUW(:, LL) + RUWP(JW, :)
+          RVW(:, LL) = RVW(:, LL) + RVWP(JW, :)
+       end DO
+    end DO
+
+    ! 4.3 Loop over altitudes, with passage from one level to the next
+    ! done by i) conserving the EP flux, ii) dissipating a little,
+    ! iii) testing critical levels, and vi) testing the breaking.
+
+    DO LL = LAUNCH, KLEV - 1
+       ! Warning: all the physics is here (passage from one level
+       ! to the next)
+       DO JW = 1, NW
+          ZOM(JW, :) = ZOP(JW, :)
+          WWM(JW, :) = WWP(JW, :)
+          ! Intrinsic Frequency
+          ZOP(JW, :) = ZO(JW, :) - ZK(JW, :) * COS(ZP(JW, :)) * UH(:, LL + 1) &
+               - ZK(JW, :) * SIN(ZP(JW, :)) * VH(:, LL + 1) 
+
+          ! No breaking (Eq.6)
+          ! Dissipation (Eq. 8)
+          WWP(JW, :) = WWM(JW, :) * EXP(- 2. * RDISS * PR / (PH(:, LL + 1) &
+               + PH(:, LL)) * ((BV(:, LL + 1) + BV(:, LL)) / 2.)**3 &
+               / MAX(ABS(ZOP(JW, :) + ZOM(JW, :)) / 2., ZOISEC)**4 &
+               * ZK(JW, :)**3 * (ZH(:, LL + 1) - ZH(:, LL)))
+
+          ! Critical levels (forced to zero if intrinsic frequency changes sign)
+          ! Saturation (Eq. 12)
+          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) * SATFRT**2 * KMIN**2 &
+               / BV(:, LL + 1) * EXP(- ZH(:, LL + 1) / H0) * KMIN**2 &
+!              *(SATFRT*(2.5+1.5*TANH((ZH(:,LL+1)/H0-8.)/2.)))**2 &
+               *SATFRT**2       &
+               / ZK(JW, :)**4)
+       end DO
+
+       ! Evaluate EP-flux from Eq. 7 and give the right orientation to
+       ! the stress
+
+       DO JW = 1, NW
+          RUWP(JW, :) = SIGN(1., ZOP(JW, :))*COS(ZP(JW, :)) * WWP(JW, :)
+          RVWP(JW, :) = SIGN(1., ZOP(JW, :))*SIN(ZP(JW, :)) * WWP(JW, :)
+       end DO
+
+       RUW(:, LL + 1) = 0.
+       RVW(:, LL + 1) = 0.
+
+       DO JW = 1, NW
+          RUW(:, LL + 1) = RUW(:, LL + 1) + RUWP(JW, :) 
+          RVW(:, LL + 1) = RVW(:, LL + 1) + RVWP(JW, :) 
+          EAST_GWSTRESS(:, LL)=EAST_GWSTRESS(:, LL)+MAX(0.,RUWP(JW,:))/FLOAT(NW)
+          WEST_GWSTRESS(:, LL)=WEST_GWSTRESS(:, LL)+MIN(0.,RUWP(JW,:))/FLOAT(NW)
+       end DO
+    end DO
+
+    ! 5 CALCUL DES TENDANCES:
+
+    ! 5.1 Rectification des flux au sommet et dans les basses couches
+
+    RUW(:, KLEV + 1) = 0.
+    RVW(:, KLEV + 1) = 0.
+    RUW(:, 1) = RUW(:, LAUNCH)
+    RVW(:, 1) = RVW(:, LAUNCH)
+    DO LL = 1, LAUNCH
+       RUW(:, LL) = RUW(:, LAUNCH+1)
+       RVW(:, LL) = RVW(:, LAUNCH+1)
+       EAST_GWSTRESS(:, LL)=EAST_GWSTRESS(:, LAUNCH)
+       WEST_GWSTRESS(:, LL)=WEST_GWSTRESS(:, LAUNCH)
+    end DO
+
+    ! AR-1 RECURSIVE FORMULA (13) IN VERSION 4
+    DO LL = 1, KLEV
+       D_U(:, LL) = (1.-DTIME/DELTAT) * D_U(:, LL) + DTIME/DELTAT/REAL(NW) * &
+            RG * (RUW(:, LL + 1) - RUW(:, LL)) &
+            / (PH(:, LL + 1) - PH(:, LL)) * DTIME
+!  NO AR1 FOR MERIDIONAL TENDENCIES
+!      D_V(:, LL) = (1.-DTIME/DELTAT) * D_V(:, LL) + DTIME/DELTAT/REAL(NW) * &
+       D_V(:, LL) =                                            1./REAL(NW) * &
+            RG * (RVW(:, LL + 1) - RVW(:, LL)) &
+            / (PH(:, LL + 1) - PH(:, LL)) * DTIME
+    ENDDO
+
+    ! Cosmetic: evaluation of the cumulated stress
+    ZUSTR = 0.
+    ZVSTR = 0.
+    DO LL = 1, KLEV
+       ZUSTR = ZUSTR + D_U(:, LL) / RG * (PH(:, LL + 1) - PH(:, LL))/DTIME
+!      ZVSTR = ZVSTR + D_V(:, LL) / RG * (PH(:, LL + 1) - PH(:, LL))/DTIME
+    ENDDO
+! COSMETICS TO VISUALIZE ROTBA
+    ZVSTR = ROTBA
+
+  END SUBROUTINE ACAMA_GWD_RANDO
+
+end module ACAMA_GWD_rando_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/add_pbl_tend.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/add_pbl_tend.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/add_pbl_tend.F90	(revision 3330)
@@ -0,0 +1,66 @@
+SUBROUTINE add_pbl_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text,abortphy,flag_inhib_tend)
+  ! ======================================================================
+  ! Ajoute les tendances de couche limite, soit determinees par la
+  ! parametrisation
+  ! physique, soit forcees,  aux variables d etat de la dynamique t_seri,
+  ! q_seri ...
+  ! ======================================================================
+
+
+  ! ======================================================================
+  ! Declarations
+  ! ======================================================================
+
+  USE dimphy
+  USE phys_local_var_mod
+  USE phys_state_var_mod
+  USE mod_grid_phy_lmdz, ONLY: nbp_lev
+  IMPLICIT NONE
+  REAL,SAVE,ALLOCATABLE :: hthturb_gcssold(:)
+  REAL,SAVE,ALLOCATABLE :: hqturb_gcssold(:)
+!$OMP THREADPRIVATE(hthturb_gcssold,hqturb_gcssold)
+  REAL,SAVE :: dtime_frcg
+  LOGICAL,SAVE :: turb_fcg_gcssold
+  LOGICAL,SAVE :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall,turb_fcg_gcssold,dtime_frcg)
+  INTEGER abortphy
+!  COMMON /turb_forcing/dtime_frcg, hthturb_gcssold, hqturb_gcssold, &
+!    turb_fcg_gcssold
+
+  ! Arguments :
+  ! ------------
+  REAL zdu(klon, klev), zdv(klon, klev)
+  REAL zdt(klon, klev), zdq(klon, klev), zdql(klon, klev), zdqi(klon, klev)
+  CHARACTER *(*) text
+  REAL paprs(klon,klev+1)
+  INTEGER flag_inhib_tend ! if flag_inhib_tend != 0, tendencies are not added
+
+  ! Local :
+  ! --------
+  REAL zzdt(klon, klev), zzdq(klon, klev)
+  INTEGER i, k
+
+  IF (firstcall) THEN
+    ALLOCATE(hthturb_gcssold(nbp_lev))
+    ALLOCATE(hqturb_gcssold(nbp_lev))
+    firstcall=.false.
+  ENDIF
+
+  IF (turb_fcg_gcssold) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        zzdt(i, k) = hthturb_gcssold(k)*dtime_frcg
+        zzdq(i, k) = hqturb_gcssold(k)*dtime_frcg
+      END DO
+    END DO
+    PRINT *, ' add_pbl_tend, dtime_frcg ', dtime_frcg
+    PRINT *, ' add_pbl_tend, zzdt ', zzdt
+    PRINT *, ' add_pbl_tend, zzdq ', zzdq
+    CALL add_phys_tend(zdu, zdv, zzdt, zzdq, zdql, zdqi, paprs, text,abortphy,flag_inhib_tend)
+  ELSE
+    CALL add_phys_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text,abortphy,flag_inhib_tend)
+  END IF
+
+
+  RETURN
+END SUBROUTINE add_pbl_tend
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/add_phys_tend.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/add_phys_tend.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/add_phys_tend.F90	(revision 3330)
@@ -0,0 +1,279 @@
+!
+! $Id$
+!
+SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,paprs,text,abortphy,flag_inhib_tend)
+!======================================================================
+! Ajoute les tendances des variables physiques aux variables 
+! d'etat de la dynamique t_seri, q_seri ...
+! On en profite pour faire des tests sur les tendances en question.
+!======================================================================
+
+
+!======================================================================
+! Declarations
+!======================================================================
+
+USE dimphy, ONLY: klon, klev
+USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, q_seri, &
+                              t_seri
+USE phys_state_var_mod, ONLY: ftsol
+USE geometry_mod, ONLY: longitude_deg, latitude_deg
+USE print_control_mod, ONLY: prt_level
+USE cmp_seri_mod
+IMPLICIT none
+  include "YOMCST.h"
+  include "clesphys.h"
+
+! Arguments :
+!------------
+REAL zdu(klon,klev),zdv(klon,klev)
+REAL zdt(klon,klev),zdq(klon,klev),zdql(klon,klev),zdqi(klon,klev)
+REAL paprs(klon,klev+1)
+CHARACTER*(*) text
+INTEGER abortphy
+INTEGER flag_inhib_tend ! if flag_inhib_tend != 0, tendencies are not added
+
+! Local :
+!--------
+REAL zt,zq
+REAL zq_int, zqp_int, zq_new
+
+REAL zqp(klev)
+
+INTEGER i, k,j
+INTEGER jadrs(klon*klev), jbad
+INTEGER jqadrs(klon*klev), jqbad
+INTEGER kadrs(klon*klev)
+INTEGER kqadrs(klon*klev)
+
+LOGICAL done(klon)
+
+integer debug_level
+logical, save :: first=.true.
+!$OMP THREADPRIVATE(first)
+INTEGER, SAVE :: itap
+!$OMP THREADPRIVATE(itap)
+!======================================================================
+! Initialisations
+
+     IF (prt_level >= 5) then
+        write (*,*) "In add_phys_tend, after ",text
+        call flush
+     end if
+
+     ! if flag_inhib_tend != 0, tendencies are not added
+     IF (flag_inhib_tend /= 0) then
+        ! If requiered, diagnostics are shown
+        IF (flag_inhib_tend > 0) then
+           ! print some diagnostics if xxx_seri have changed
+           call cmp_seri(flag_inhib_tend,text)
+        END IF
+        RETURN ! on n ajoute pas les tendance
+     END IF
+
+     IF (abortphy==1) RETURN ! on n ajoute pas les tendance si le modele
+                              ! a deja plante.
+
+     debug_level=10
+     if (first) then
+        itap=0
+        first=.false.
+     endif
+! Incrementer le compteur de la physique
+     itap   = itap + 1
+!======================================================================
+! Ajout des tendances sur le vent et l'eau liquide
+!======================================================================
+
+     u_seri(:,:)=u_seri(:,:)+zdu(:,:)
+     v_seri(:,:)=v_seri(:,:)+zdv(:,:)
+     ql_seri(:,:)=ql_seri(:,:)+zdql(:,:)
+     qs_seri(:,:)=qs_seri(:,:)+zdqi(:,:)
+
+!======================================================================
+! On ajoute les tendances de la temperature et de la vapeur d'eau
+! en verifiant que ca ne part pas dans les choux
+!======================================================================
+
+      jbad=0
+      jqbad=0
+      DO k = 1, klev
+         DO i = 1, klon
+            zt=t_seri(i,k)+zdt(i,k)
+            zq=q_seri(i,k)+zdq(i,k)
+            IF ( zt>370. .or. zt<130. .or. abs(zdt(i,k))>50. ) then
+            jbad = jbad + 1
+            jadrs(jbad) = i
+            kadrs(jbad) = k
+            ENDIF
+            IF ( zq<0. .or. zq>0.1 .or. abs(zdq(i,k))>1.e-2 ) then
+            jqbad = jqbad + 1
+            jqadrs(jqbad) = i
+            kqadrs(jqbad) = k
+            ENDIF
+            t_seri(i,k)=zt
+            q_seri(i,k)=zq
+         ENDDO
+      ENDDO
+
+!=====================================================================================
+! Impression et stop en cas de probleme important
+!=====================================================================================
+
+IF (jbad .GT. 0) THEN
+      DO j = 1, jbad
+         i=jadrs(j)
+         if(prt_level.ge.debug_level) THEN
+          print*,'PLANTAGE POUR LE POINT i lon lat =',&
+                 i,longitude_deg(i),latitude_deg(i),text
+          print*,'l    T     dT       Q     dQ    '
+          DO k = 1, klev
+             write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
+          ENDDO
+          call print_debug_phys(i,debug_level,text)
+         endif
+      ENDDO
+ENDIF
+!
+!=====================================================================================
+! Impression, warning et correction en cas de probleme moins important
+!=====================================================================================
+IF (jqbad .GT. 0) THEN
+      done(:) = .false.                         !jyg
+      DO j = 1, jqbad
+        i=jqadrs(j)
+          if(prt_level.ge.debug_level) THEN
+           print*,'WARNING  : EAU POUR LE POINT i lon lat =',&
+                  i,longitude_deg(i),latitude_deg(i),text
+           print*,'l    T     dT       Q     dQ    '
+           DO k = 1, klev
+              write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
+           ENDDO
+          endif
+          IF (ok_conserv_q) THEN
+!jyg<20140228 Corrections pour conservation de l'eau
+            IF (.NOT.done(i)) THEN                  !jyg
+              DO k = 1, klev
+                zqp(k) = max(q_seri(i,k),1.e-15)
+              ENDDO
+              zq_int  = 0.
+              zqp_int = 0.
+              DO k = 1, klev
+                zq_int  = zq_int  + q_seri(i,k)*(paprs(i,k)-paprs(i,k+1))/Rg
+                zqp_int = zqp_int + zqp(k)     *(paprs(i,k)-paprs(i,k+1))/Rg
+              ENDDO
+              if(prt_level.ge.debug_level) THEN
+               print*,' cas q_seri<1.e-15 i k zq_int zqp_int zq_int/zqp_int :', &
+                                    i, kqadrs(j), zq_int, zqp_int, zq_int/zqp_int
+              endif
+              DO k = 1, klev
+                zq_new = zqp(k)*zq_int/zqp_int
+                zdq(i,k) = zdq(i,k) + zq_new - q_seri(i,k)
+                q_seri(i,k) = zq_new
+              ENDDO
+              done(i) = .true.
+            ENDIF !(.NOT.done(i))
+          ELSE 
+!jyg>
+            DO k = 1, klev
+              zq=q_seri(i,k)+zdq(i,k)
+              if (zq.lt.1.e-15) then
+                 if (q_seri(i,k).lt.1.e-15) then
+                  if(prt_level.ge.debug_level) THEN
+                   print*,' cas q_seri<1.e-15 i k q_seri zq zdq :',i,k,q_seri(i,k),zq,zdq(i,k)
+                  endif
+                  q_seri(i,k)=1.e-15
+                  zdq(i,k)=(1.e-15-q_seri(i,k))
+                 endif
+              endif
+!              zq=q_seri(i,k)+zdq(i,k)
+!              if (zq.lt.1.e-15) then
+!                 zdq(i,k)=(1.e-15-q_seri(i,k))
+!              endif
+            ENDDO
+!jyg<20140228
+          ENDIF   !  (ok_conserv_q)
+!jyg>
+      ENDDO ! j = 1, jqbad
+ENDIF
+!
+
+!IM ajout memes tests pour reverifier les jbad, jqbad beg
+      jbad=0
+      jqbad=0
+      DO k = 1, klev
+         DO i = 1, klon
+            IF ( t_seri(i,k)>370. .or. t_seri(i,k)<130. .or. abs(zdt(i,k))>50. ) then
+            jbad = jbad + 1
+            jadrs(jbad) = i
+!            if(prt_level.ge.debug_level) THEN
+!             print*,'cas2 i k t_seri zdt',i,k,t_seri(i,k),zdt(i,k)
+!            endif
+            ENDIF
+            IF ( q_seri(i,k)<0. .or. q_seri(i,k)>0.1 .or. abs(zdq(i,k))>1.e-2 ) then
+            jqbad = jqbad + 1
+            jqadrs(jqbad) = i
+            kqadrs(jqbad) = k
+!            if(prt_level.ge.debug_level) THEN
+!             print*,'cas2 i k q_seri zdq',i,k,q_seri(i,k),zdq(i,k)
+!            endif
+            ENDIF
+         ENDDO
+      ENDDO
+IF (jbad .GT. 0) THEN
+      DO j = 1, jbad
+         i=jadrs(j)
+         k=kadrs(j)
+         if(prt_level.ge.debug_level) THEN
+          print*,'PLANTAGE2 POUR LE POINT i itap lon lat txt jbad zdt t',&
+                 i,itap,longitude_deg(i),latitude_deg(i),text,jbad, &
+       &        zdt(i,k),t_seri(i,k)-zdt(i,k)
+!!!       if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
+          print*,'l    T     dT       Q     dQ    '
+          DO k = 1, klev
+             write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
+          ENDDO
+          call print_debug_phys(i,debug_level,text)
+         endif
+      ENDDO
+ENDIF 
+!
+IF (jqbad .GT. 0) THEN
+      DO j = 1, jqbad
+         i=jqadrs(j)
+         k=kqadrs(j)
+         if(prt_level.ge.debug_level) THEN
+          print*,'WARNING  : EAU2 POUR LE POINT i itap lon lat txt jqbad zdq q zdql ql',&
+                 i,itap,longitude_deg(i),latitude_deg(i),text,jqbad,&
+       &        zdq(i,k), q_seri(i,k)-zdq(i,k), zdql(i,k), ql_seri(i,k)-zdql(i,k)
+!!!       if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
+          print*,'l    T     dT       Q     dQ    '
+          DO k = 1, klev
+            write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
+          ENDDO
+          call print_debug_phys(i,debug_level,text)
+         endif
+      ENDDO
+ENDIF
+
+
+!======================================================================
+! Contrôle des min/max pour arrêt du modèle
+! Si le modele est en mode abortphy, on retire les tendances qu'on
+! vient d'ajouter. Pas exactement parce qu'on ne tient pas compte des
+! seuils.
+!======================================================================
+
+      CALL hgardfou(t_seri,ftsol,text,abortphy) 
+      IF (abortphy==1) THEN
+        Print*,'ERROR ABORT hgardfou dans ',text
+        u_seri(:,:)=u_seri(:,:)-zdu(:,:)
+        v_seri(:,:)=v_seri(:,:)-zdv(:,:)
+        ql_seri(:,:)=ql_seri(:,:)-zdql(:,:)
+        qs_seri(:,:)=qs_seri(:,:)-zdqi(:,:)
+      ENDIF
+
+
+
+  RETURN
+END SUBROUTINE add_phys_tend
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aero_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aero_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aero_mod.F90	(revision 3330)
@@ -0,0 +1,100 @@
+! $Id$
+!
+MODULE aero_mod
+! Declaration des indices pour les aerosols 
+
+! 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 = 14
+
+! Identification number used in aeropt_2bands and aeropt_5wv
+! corresponding to naero_tot
+  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
+  CHARACTER(len=7),DIMENSION(naero_tot), PARAMETER :: name_aero_tau=(/&
+       "ASBCM  ", &
+       "ASPOMM ", &
+       "ASSO4M ", &
+       "CSSO4M ", &
+       "SSSSM  ", &
+       "CSSSM  ", &
+       "ASSSM  ", &
+       "CIDUSTM", &
+       "AIBCM  ", &
+       "AIPOMM ", &
+       "ASNO3M ", & 
+       "CSNO3M ", &
+       "CINO3M ", &
+       "STRAT  " /)
+
+! 2/ Total number of aerosols for which an aerosol mass is provided
+
+  INTEGER, PARAMETER :: naero_spc = 10
+
+! Corresponding names for the aerosols
+  CHARACTER(len=7),DIMENSION(naero_spc), PARAMETER :: name_aero=(/&
+       "ASBCM  ", &
+       "ASPOMM ", &
+       "SO4    ", &
+       "CSSO4M ", &
+       "SSSSM  ", &
+       "CSSSM  ", &
+       "ASSSM  ", &
+       "CIDUSTM", &
+       "AIBCM  ", &
+       "AIPOMM " /)
+
+! 3/ Number of aerosol groups
+  INTEGER, PARAMETER :: naero_grp = 13
+  ! if info_trac = inca
+  ! 1 = ZERO    
+  ! 2 = AER total    
+  ! 3 = NAT    
+  ! 4 = BC    
+  ! 5 = SO4    
+  ! 6 = POM    
+  ! 7 = DUST    
+  ! 8 = SS    
+  ! 9 = FNO3    
+  ! 10 = DNO3
+  ! 11 = SNO3
+  ! 12 = SOAA
+  ! 13 = SOAA
+  ! else 
+  ! 1 = ZERO    
+  ! 2 = AER total    
+  ! 3 = NAT    
+  ! 4 = BC    
+  ! 5 = SO4    
+  ! 6 = POM    
+  ! 7 = DUST    
+  ! 8 = SS    
+  ! 9 = NO3    
+
+! Number of diagnostics wavelengths (5 SW + 1 LW @ 10 um)
+  INTEGER, PARAMETER :: nwave_sw = 5
+  INTEGER, PARAMETER :: nwave_lw = 1
+  INTEGER, PARAMETER :: nwave = nwave_sw + nwave_lw
+
+! Number of modes spectral bands
+  INTEGER, parameter :: nbands = 2
+  INTEGER, parameter :: nbands_sw_rrtm = 6
+  INTEGER, parameter :: nbands_lw_rrtm = 16
+
+END MODULE aero_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt.F90	(revision 3330)
@@ -0,0 +1,124 @@
+
+! $Id$
+
+SUBROUTINE aeropt(pplay, paprs, t_seri, msulfate, rhcl, tau_ae, piz_ae, &
+    cg_ae, ai)
+
+  USE dimphy
+  IMPLICIT NONE
+
+
+
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  REAL, INTENT (IN) :: paprs(klon, klev+1)
+  REAL, INTENT (IN) :: pplay(klon, klev), t_seri(klon, klev)
+  REAL, INTENT (IN) :: msulfate(klon, klev) ! masse sulfate ug SO4/m3  [ug/m^3]
+  REAL, INTENT (IN) :: rhcl(klon, klev) ! humidite relative ciel clair
+  REAL, INTENT (OUT) :: tau_ae(klon, klev, 2) ! epaisseur optique aerosol
+  REAL, INTENT (OUT) :: piz_ae(klon, klev, 2) ! single scattering albedo aerosol
+  REAL, INTENT (OUT) :: cg_ae(klon, klev, 2) ! asymmetry parameter aerosol
+  REAL, INTENT (OUT) :: ai(klon) ! POLDER aerosol index
+
+  ! Local
+
+  INTEGER i, k, inu
+  INTEGER rh_num, nbre_rh
+  PARAMETER (nbre_rh=12)
+  REAL rh_tab(nbre_rh)
+  REAL rh_max, delta, rh
+  PARAMETER (rh_max=95.)
+  DATA rh_tab/0., 10., 20., 30., 40., 50., 60., 70., 80., 85., 90., 95./
+  REAL zrho, zdz
+  REAL taue670(klon) ! epaisseur optique aerosol absorption 550 nm
+  REAL taue865(klon) ! epaisseur optique aerosol extinction 865 nm
+  REAL alpha_aer_sulfate(nbre_rh, 5) !--unit m2/g SO4
+  REAL alphasulfate
+
+  CHARACTER (LEN=20) :: modname = 'aeropt'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  ! Proprietes optiques
+
+  REAL alpha_aer(nbre_rh, 2) !--unit m2/g SO4
+  REAL cg_aer(nbre_rh, 2)
+  DATA alpha_aer/.500130E+01, .500130E+01, .500130E+01, .500130E+01, &
+    .500130E+01, .616710E+01, .826850E+01, .107687E+02, .136976E+02, &
+    .162972E+02, .211690E+02, .354833E+02, .139460E+01, .139460E+01, &
+    .139460E+01, .139460E+01, .139460E+01, .173910E+01, .244380E+01, &
+    .332320E+01, .440120E+01, .539570E+01, .734580E+01, .136038E+02/
+  DATA cg_aer/.619800E+00, .619800E+00, .619800E+00, .619800E+00, &
+    .619800E+00, .662700E+00, .682100E+00, .698500E+00, .712500E+00, &
+    .721800E+00, .734600E+00, .755800E+00, .545600E+00, .545600E+00, &
+    .545600E+00, .545600E+00, .545600E+00, .583700E+00, .607100E+00, &
+    .627700E+00, .645800E+00, .658400E+00, .676500E+00, .708500E+00/
+  DATA alpha_aer_sulfate/4.910, 4.910, 4.910, 4.910, 6.547, 7.373, 8.373, &
+    9.788, 12.167, 14.256, 17.924, 28.433, 1.453, 1.453, 1.453, 1.453, 2.003, &
+    2.321, 2.711, 3.282, 4.287, 5.210, 6.914, 12.305, 4.308, 4.308, 4.308, &
+    4.308, 5.753, 6.521, 7.449, 8.772, 11.014, 12.999, 16.518, 26.772, 3.265, &
+    3.265, 3.265, 3.265, 4.388, 5.016, 5.775, 6.868, 8.745, 10.429, 13.457, &
+    22.538, 2.116, 2.116, 2.116, 2.116, 2.882, 3.330, 3.876, 4.670, 6.059, &
+    7.327, 9.650, 16.883/
+
+  DO i = 1, klon
+    taue670(i) = 0.0
+    taue865(i) = 0.0
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (t_seri(i,k)==0) WRITE (*, *) 'aeropt T ', i, k, t_seri(i, k)
+      IF (pplay(i,k)==0) WRITE (*, *) 'aeropt p ', i, k, pplay(i, k)
+      zrho = pplay(i, k)/t_seri(i, k)/rd ! kg/m3
+      zdz = (paprs(i,k)-paprs(i,k+1))/zrho/rg ! m
+      rh = min(rhcl(i,k)*100., rh_max)
+      rh_num = int(rh/10.+1.)
+      IF (rh<0.) THEN
+        abort_message = 'aeropt: RH < 0 not possible'
+        CALL abort_physic(modname, abort_message, 1)
+      END IF
+      IF (rh>85.) rh_num = 10
+      IF (rh>90.) rh_num = 11
+      delta = (rh-rh_tab(rh_num))/(rh_tab(rh_num+1)-rh_tab(rh_num))
+
+      inu = 1
+      tau_ae(i, k, inu) = alpha_aer(rh_num, inu) + delta*(alpha_aer(rh_num+1, &
+        inu)-alpha_aer(rh_num,inu))
+      tau_ae(i, k, inu) = tau_ae(i, k, inu)*msulfate(i, k)*zdz*1.E-6
+      piz_ae(i, k, inu) = 1.0
+      cg_ae(i, k, inu) = cg_aer(rh_num, inu) + delta*(cg_aer(rh_num+1,inu)- &
+        cg_aer(rh_num,inu))
+
+      inu = 2
+      tau_ae(i, k, inu) = alpha_aer(rh_num, inu) + delta*(alpha_aer(rh_num+1, &
+        inu)-alpha_aer(rh_num,inu))
+      tau_ae(i, k, inu) = tau_ae(i, k, inu)*msulfate(i, k)*zdz*1.E-6
+      piz_ae(i, k, inu) = 1.0
+      cg_ae(i, k, inu) = cg_aer(rh_num, inu) + delta*(cg_aer(rh_num+1,inu)- &
+        cg_aer(rh_num,inu))
+      ! jq
+      ! jq for aerosol index
+
+      alphasulfate = alpha_aer_sulfate(rh_num, 4) + &
+        delta*(alpha_aer_sulfate(rh_num+1,4)-alpha_aer_sulfate(rh_num,4)) !--m2/g
+
+      taue670(i) = taue670(i) + alphasulfate*msulfate(i, k)*zdz*1.E-6
+
+      alphasulfate = alpha_aer_sulfate(rh_num, 5) + &
+        delta*(alpha_aer_sulfate(rh_num+1,5)-alpha_aer_sulfate(rh_num,5)) !--m2/g
+
+      taue865(i) = taue865(i) + alphasulfate*msulfate(i, k)*zdz*1.E-6
+
+    END DO
+  END DO
+
+  DO i = 1, klon
+    ai(i) = (-log(max(taue670(i),0.0001)/max(taue865(i), &
+      0.0001))/log(670./865.))*taue865(i)
+  END DO
+
+  RETURN
+END SUBROUTINE aeropt
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt_2bands.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt_2bands.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt_2bands.F90	(revision 3330)
@@ -0,0 +1,1138 @@
+!
+! $Id$
+!
+SUBROUTINE AEROPT_2BANDS( &
+     pdel, m_allaer, delt, RHcl, &
+     tau_allaer, piz_allaer, &
+     cg_allaer, m_allaer_pi, &
+     flag_aerosol, pplay, t_seri, presnivs)
+
+  USE dimphy
+  USE aero_mod
+  USE phys_local_var_mod, only: absvisaer
+  USE pres2lev_mod
+
+
+  !    Yves Balkanski le 12 avril 2006
+  !    Celine Deandreis
+  !    Anne Cozic Avril 2009
+  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
+  !
+  IMPLICIT NONE
+
+  INCLUDE "YOMCST.h"
+
+  !
+  ! Input arguments:
+  !
+  REAL, DIMENSION(klon,klev),     INTENT(in)  :: pdel
+  REAL,                           INTENT(in)  :: delt
+  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(klev),          INTENT(in)  :: presnivs
+  !
+  ! Output arguments:
+  !
+  REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(out) :: tau_allaer ! epaisseur optique aerosol
+  REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(out) :: piz_allaer ! single scattering albedo aerosol
+  REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(out) :: cg_allaer  ! asymmetry parameter aerosol
+
+  !
+  ! Local
+  !
+  REAL, DIMENSION(klon,klev,naero_tot,nbands) ::  tau_ae
+  REAL, DIMENSION(klon,klev,naero_tot,nbands) ::  tau_ae_pi
+  REAL, DIMENSION(klon,klev,naero_tot,nbands) ::  piz_ae
+  REAL, DIMENSION(klon,klev,naero_tot,nbands) ::  cg_ae
+  LOGICAL ::  soluble
+  INTEGER :: i, k,n, ierr, inu, m, mrfspecies
+  INTEGER :: spsol, spinsol, spss
+  INTEGER :: RH_num(klon,klev)
+  INTEGER, PARAMETER :: nb_level=19 ! number of vertical levels in DATA
+
+  INTEGER, PARAMETER :: nbre_RH=12
+  INTEGER, PARAMETER :: naero_soluble=7    ! 1- BC soluble; 2- POM soluble; 3- SO4. acc. 4- SO4 coarse
+                                           ! 5- seasalt super coarse  6- seasalt coarse   7- seasalt acc.
+  INTEGER, PARAMETER :: naero_insoluble=3  ! 1- Dust; 2- BC insoluble; 3- POM insoluble
+  LOGICAL, SAVE :: firstcall=.TRUE. 
+!$OMP THREADPRIVATE(firstcall)
+
+! Coefficient optiques sur 19 niveaux
+  REAL, SAVE, DIMENSION(nb_level) :: presnivs_19  ! Pression milieux couche pour 19 niveaux (nb_level)
+!$OMP THREADPRIVATE(presnivs_19)
+
+  REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_b1_19, A2_ASSSM_b1_19, A3_ASSSM_b1_19,&
+          B1_ASSSM_b1_19, B2_ASSSM_b1_19, C1_ASSSM_b1_19, C2_ASSSM_b1_19,&
+          A1_CSSSM_b1_19, A2_CSSSM_b1_19, A3_CSSSM_b1_19,&
+          B1_CSSSM_b1_19, B2_CSSSM_b1_19, C1_CSSSM_b1_19, C2_CSSSM_b1_19,&
+          A1_SSSSM_b1_19, A2_SSSSM_b1_19, A3_SSSSM_b1_19,&
+          B1_SSSSM_b1_19, B2_SSSSM_b1_19, C1_SSSSM_b1_19, C2_SSSSM_b1_19,&
+          A1_ASSSM_b2_19, A2_ASSSM_b2_19, A3_ASSSM_b2_19,&
+          B1_ASSSM_b2_19, B2_ASSSM_b2_19, C1_ASSSM_b2_19, C2_ASSSM_b2_19,&
+          A1_CSSSM_b2_19, A2_CSSSM_b2_19, A3_CSSSM_b2_19,&
+          B1_CSSSM_b2_19, B2_CSSSM_b2_19, C1_CSSSM_b2_19, C2_CSSSM_b2_19,&
+          A1_SSSSM_b2_19, A2_SSSSM_b2_19, A3_SSSSM_b2_19,&
+          B1_SSSSM_b2_19, B2_SSSSM_b2_19, C1_SSSSM_b2_19, C2_SSSSM_b2_19
+!$OMP THREADPRIVATE(A1_ASSSM_b1_19, A2_ASSSM_b1_19, A3_ASSSM_b1_19)
+!$OMP THREADPRIVATE(B1_ASSSM_b1_19, B2_ASSSM_b1_19, C1_ASSSM_b1_19, C2_ASSSM_b1_19)
+!$OMP THREADPRIVATE(A1_CSSSM_b1_19, A2_CSSSM_b1_19, A3_CSSSM_b1_19)
+!$OMP THREADPRIVATE(B1_CSSSM_b1_19, B2_CSSSM_b1_19, C1_CSSSM_b1_19, C2_CSSSM_b1_19)
+!$OMP THREADPRIVATE(A1_SSSSM_b1_19, A2_SSSSM_b1_19, A3_SSSSM_b1_19)
+!$OMP THREADPRIVATE(B1_SSSSM_b1_19, B2_SSSSM_b1_19, C1_SSSSM_b1_19, C2_SSSSM_b1_19)
+!$OMP THREADPRIVATE(A1_ASSSM_b2_19, A2_ASSSM_b2_19, A3_ASSSM_b2_19)
+!$OMP THREADPRIVATE(B1_ASSSM_b2_19, B2_ASSSM_b2_19, C1_ASSSM_b2_19, C2_ASSSM_b2_19)
+!$OMP THREADPRIVATE(A1_CSSSM_b2_19, A2_CSSSM_b2_19, A3_CSSSM_b2_19)
+!$OMP THREADPRIVATE(B1_CSSSM_b2_19, B2_CSSSM_b2_19, C1_CSSSM_b2_19, C2_CSSSM_b2_19)
+!$OMP THREADPRIVATE(A1_SSSSM_b2_19, A2_SSSSM_b2_19, A3_SSSSM_b2_19)
+!$OMP THREADPRIVATE(B1_SSSSM_b2_19, B2_SSSSM_b2_19, C1_SSSSM_b2_19, C2_SSSSM_b2_19)
+
+
+! Coefficient optiques interpole sur le nombre de niveau du modele
+  REAL, ALLOCATABLE, DIMENSION(:), SAVE :: &
+          A1_ASSSM_b1, A2_ASSSM_b1, A3_ASSSM_b1,&
+          B1_ASSSM_b1, B2_ASSSM_b1, C1_ASSSM_b1, C2_ASSSM_b1,&
+          A1_CSSSM_b1, A2_CSSSM_b1, A3_CSSSM_b1,&
+          B1_CSSSM_b1, B2_CSSSM_b1, C1_CSSSM_b1, C2_CSSSM_b1,&
+          A1_SSSSM_b1, A2_SSSSM_b1, A3_SSSSM_b1,&
+          B1_SSSSM_b1, B2_SSSSM_b1, C1_SSSSM_b1, C2_SSSSM_b1,&
+          A1_ASSSM_b2, A2_ASSSM_b2, A3_ASSSM_b2,&
+          B1_ASSSM_b2, B2_ASSSM_b2, C1_ASSSM_b2, C2_ASSSM_b2,&
+          A1_CSSSM_b2, A2_CSSSM_b2, A3_CSSSM_b2,&
+          B1_CSSSM_b2, B2_CSSSM_b2, C1_CSSSM_b2, C2_CSSSM_b2,&
+          A1_SSSSM_b2, A2_SSSSM_b2, A3_SSSSM_b2,&
+          B1_SSSSM_b2, B2_SSSSM_b2, C1_SSSSM_b2, C2_SSSSM_b2
+!$OMP THREADPRIVATE(A1_ASSSM_b1, A2_ASSSM_b1, A3_ASSSM_b1)
+!$OMP THREADPRIVATE(B1_ASSSM_b1, B2_ASSSM_b1, C1_ASSSM_b1, C2_ASSSM_b1)
+!$OMP THREADPRIVATE(A1_CSSSM_b1, A2_CSSSM_b1, A3_CSSSM_b1)
+!$OMP THREADPRIVATE(B1_CSSSM_b1, B2_CSSSM_b1, C1_CSSSM_b1, C2_CSSSM_b1)
+!$OMP THREADPRIVATE(A1_SSSSM_b1, A2_SSSSM_b1, A3_SSSSM_b1)
+!$OMP THREADPRIVATE(B1_SSSSM_b1, B2_SSSSM_b1, C1_SSSSM_b1, C2_SSSSM_b1)
+!$OMP THREADPRIVATE(A1_ASSSM_b2, A2_ASSSM_b2, A3_ASSSM_b2)
+!$OMP THREADPRIVATE(B1_ASSSM_b2, B2_ASSSM_b2, C1_ASSSM_b2, C2_ASSSM_b2)
+!$OMP THREADPRIVATE(A1_CSSSM_b2, A2_CSSSM_b2, A3_CSSSM_b2)
+!$OMP THREADPRIVATE(B1_CSSSM_b2, B2_CSSSM_b2, C1_CSSSM_b2, C2_CSSSM_b2)
+!$OMP THREADPRIVATE(A1_SSSSM_b2, A2_SSSSM_b2, A3_SSSSM_b2)
+!$OMP THREADPRIVATE(B1_SSSSM_b2, B2_SSSSM_b2, C1_SSSSM_b2, C2_SSSSM_b2)
+  
+  REAL,PARAMETER :: RH_tab(nbre_RH)=(/0.,10.,20.,30.,40.,50.,60.,70.,80.,85.,90.,95./)
+  REAL, PARAMETER :: RH_MAX=95.
+  REAL:: DELTA(klon,klev), rh(klon,klev), H
+  REAL:: tau_ae2b_int   ! Intermediate computation of epaisseur optique aerosol
+  REAL:: piz_ae2b_int   ! Intermediate computation of Single scattering albedo
+  REAL:: cg_ae2b_int    ! Intermediate computation of Assymetry parameter
+  REAL :: Fact_RH(nbre_RH)
+  REAL :: zrho
+  REAL :: fac
+  REAL :: zdp1(klon,klev) 
+  REAL, PARAMETER ::  gravit = 9.80616    ! m2/s
+  INTEGER, ALLOCATABLE, DIMENSION(:)   :: aerosol_name
+  INTEGER :: nb_aer
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
+!RAF
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp_pi
+
+  !
+  ! Proprietes optiques
+  !
+  REAL:: alpha_aers_2bands(nbre_RH,nbands,naero_soluble)   !--unit m2/g SO4
+  REAL:: alpha_aeri_2bands(nbands,naero_insoluble)
+  REAL:: cg_aers_2bands(nbre_RH,nbands,naero_soluble)      !--unit 
+  REAL:: cg_aeri_2bands(nbands,naero_insoluble)
+  REAL:: piz_aers_2bands(nbre_RH,nbands,naero_soluble)     !-- unit
+  REAL:: piz_aeri_2bands(nbands,naero_insoluble)           !-- unit
+
+  INTEGER :: id
+  LOGICAL :: used_aer(naero_tot)
+  REAL :: tmp_var, tmp_var_pi
+
+  DATA presnivs_19/&
+       100426.5,  98327.6, 95346.5, 90966.8, 84776.9, &
+       76536.5,   66292.2, 54559.3, 42501.8, 31806, &
+       23787.5,   18252.7, 13996,   10320.8, 7191.1, &
+       4661.7,    2732.9,  1345.6,  388.2/  
+
+
+!***********************BAND 1***********************************
+!ACCUMULATION MODE
+  DATA A1_ASSSM_b1_19/ 4.373E+00,  4.361E+00,  4.331E+00, &
+                    4.278E+00,  4.223E+00,  4.162E+00, &
+                    4.103E+00,  4.035E+00,  3.962E+00, &
+                    3.904E+00,  3.871E+00,  3.847E+00, &
+                    3.824E+00,  3.780E+00,  3.646E+00, &
+                    3.448E+00,  3.179E+00,  2.855E+00,  2.630E+00/
+  DATA A2_ASSSM_b1_19/ 2.496E+00,  2.489E+00,  2.472E+00, &
+                    2.442E+00,  2.411E+00,  2.376E+00, &
+                    2.342E+00,  2.303E+00,  2.261E+00, &
+                    2.228E+00,  2.210E+00,  2.196E+00, &
+                    2.183E+00,  2.158E+00,  2.081E+00, &
+                    1.968E+00,  1.814E+00,  1.630E+00,  1.501E+00/
+  DATA A3_ASSSM_b1_19/-4.688E-02, -4.676E-02, -4.644E-02, &
+                   -4.587E-02, -4.528E-02, -4.463E-02, &
+                   -4.399E-02, -4.326E-02, -4.248E-02, &
+                   -4.186E-02, -4.151E-02, -4.125E-02, &
+                   -4.100E-02, -4.053E-02, -3.910E-02, &
+                   -3.697E-02, -3.408E-02, -3.061E-02, -2.819E-02/
+  DATA B1_ASSSM_b1_19/ 1.165E-08,  1.145E-08,  1.097E-08, &
+                    1.012E-08,  9.233E-09,  8.261E-09, &
+                    7.297E-09,  6.201E-09,  5.026E-09, &
+                    4.098E-09,  3.567E-09,  3.187E-09, &
+                    2.807E-09,  2.291E-09,  2.075E-09, &
+                    1.756E-09,  1.322E-09,  8.011E-10, 4.379E-10/
+  DATA B2_ASSSM_b1_19/ 2.193E-08,  2.192E-08,  2.187E-08, &
+                    2.179E-08,  2.171E-08,  2.162E-08, &
+                    2.153E-08,  2.143E-08,  2.132E-08, &
+                    2.124E-08,  2.119E-08,  2.115E-08, &
+                    2.112E-08,  2.106E-08,  2.100E-08, &
+                    2.090E-08,  2.077E-08,  2.061E-08,  2.049E-08/
+  DATA C1_ASSSM_b1_19/ 7.365E-01,  7.365E-01,  7.365E-01, &
+                    7.364E-01,  7.363E-01,  7.362E-01, &
+                    7.361E-01,  7.359E-01,  7.358E-01, &
+                    7.357E-01,  7.356E-01,  7.356E-01, &
+                    7.356E-01,  7.355E-01,  7.354E-01, &
+                    7.352E-01,  7.350E-01,  7.347E-01,  7.345E-01/
+  DATA C2_ASSSM_b1_19/ 5.833E-02,  5.835E-02,  5.841E-02, &
+                    5.850E-02,  5.859E-02,  5.870E-02, &
+                    5.880E-02,  5.891E-02,  5.904E-02, &
+                    5.914E-02,  5.920E-02,  5.924E-02, &
+                    5.928E-02,  5.934E-02,  5.944E-02, &
+                    5.959E-02,  5.979E-02,  6.003E-02,  6.020E-02/
+!COARSE MODE
+  DATA A1_CSSSM_b1_19/ 7.403E-01,  7.422E-01,  7.626E-01, &
+                    8.019E-01,  8.270E-01,  8.527E-01, &
+                    8.702E-01,  8.806E-01,  8.937E-01, &
+                    9.489E-01,  1.030E+00,  1.105E+00, &
+                    1.199E+00,  1.357E+00,  1.660E+00, &
+                    2.540E+00,  4.421E+00,  2.151E+00,  9.518E-01/
+  DATA A2_CSSSM_b1_19/ 4.522E-01,  4.532E-01,  4.644E-01, &
+                    4.859E-01,  4.996E-01,  5.137E-01, &
+                    5.233E-01,  5.290E-01,  5.361E-01, &
+                    5.655E-01,  6.085E-01,  6.483E-01, &
+                    6.979E-01,  7.819E-01,  9.488E-01, &
+                    1.450E+00,  2.523E+00,  1.228E+00,  5.433E-01/
+  DATA A3_CSSSM_b1_19/-8.516E-03, -8.535E-03, -8.744E-03, &
+                   -9.148E-03, -9.406E-03, -9.668E-03, &
+                   -9.848E-03, -9.955E-03, -1.009E-02, &
+                   -1.064E-02, -1.145E-02, -1.219E-02, &
+                   -1.312E-02, -1.470E-02, -1.783E-02, &
+                   -2.724E-02, -4.740E-02, -2.306E-02, -1.021E-02/
+  DATA B1_CSSSM_b1_19/ 2.535E-07,  2.530E-07,  2.479E-07, &
+                    2.380E-07,  2.317E-07,  2.252E-07, &
+                    2.208E-07,  2.182E-07,  2.149E-07, &
+                    2.051E-07,  1.912E-07,  1.784E-07, &
+                    1.624E-07,  1.353E-07,  1.012E-07, &
+                    6.016E-08,  2.102E-08,  0.000E+00,  0.000E+00/
+  DATA B2_CSSSM_b1_19/ 1.221E-07,  1.217E-07,  1.179E-07, &
+                    1.104E-07,  1.056E-07,  1.008E-07, &
+                    9.744E-08,  9.546E-08,  9.299E-08, &
+                    8.807E-08,  8.150E-08,  7.544E-08, &
+                    6.786E-08,  5.504E-08,  4.080E-08, &
+                    2.960E-08,  2.300E-08,  2.030E-08,  1.997E-08/
+  DATA C1_CSSSM_b1_19/ 7.659E-01,  7.658E-01,  7.652E-01, &
+                    7.639E-01,  7.631E-01,  7.623E-01, &
+                    7.618E-01,  7.614E-01,  7.610E-01, &
+                    7.598E-01,  7.581E-01,  7.566E-01, &
+                    7.546E-01,  7.513E-01,  7.472E-01, &
+                    7.423E-01,  7.376E-01,  7.342E-01,  7.334E-01/
+  DATA C2_CSSSM_b1_19/ 3.691E-02,  3.694E-02,  3.729E-02, &
+                    3.796E-02,  3.839E-02,  3.883E-02, &
+                    3.913E-02,  3.931E-02,  3.953E-02, &
+                    4.035E-02,  4.153E-02,  4.263E-02, &
+                    4.400E-02,  4.631E-02,  4.933E-02, &
+                    5.331E-02,  5.734E-02,  6.053E-02,  6.128E-02/
+!SUPER COARSE MODE
+  DATA A1_SSSSM_b1_19/ 2.836E-01,  2.876E-01,  2.563E-01, &
+                    2.414E-01,  2.541E-01,  2.546E-01, &
+                    2.572E-01,  2.638E-01,  2.781E-01, &
+                    3.167E-01,  4.209E-01,  5.286E-01, &
+                    6.959E-01,  9.233E-01,  1.282E+00, &
+                    1.836E+00,  2.981E+00,  4.355E+00,  4.059E+00/
+  DATA A2_SSSSM_b1_19/ 1.608E-01,  1.651E-01,  1.577E-01, &
+                    1.587E-01,  1.686E-01,  1.690E-01, &
+                    1.711E-01,  1.762E-01,  1.874E-01, &
+                    2.138E-01,  2.751E-01,  3.363E-01, &
+                    4.279E-01,  5.519E-01,  7.421E-01, &
+                    1.048E+00,  1.702E+00,  2.485E+00,  2.317E+00/
+  DATA A3_SSSSM_b1_19/-3.025E-03, -3.111E-03, -2.981E-03, &
+                   -3.005E-03, -3.193E-03, -3.200E-03, &
+                   -3.239E-03, -3.336E-03, -3.548E-03, &
+                   -4.047E-03, -5.196E-03, -6.345E-03, &
+                   -8.061E-03, -1.038E-02, -1.395E-02, &
+                   -1.970E-02, -3.197E-02, -4.669E-02, -4.352E-02/
+  DATA B1_SSSSM_b1_19/ 6.759E-07,  6.246E-07,  5.542E-07, &
+                    4.953E-07,  4.746E-07,  4.738E-07, &
+                    4.695E-07,  4.588E-07,  4.354E-07, &
+                    3.947E-07,  3.461E-07,  3.067E-07, &
+                    2.646E-07,  2.095E-07,  1.481E-07, &
+                    9.024E-08,  5.747E-08,  2.384E-08,  6.599E-09/
+  DATA B2_SSSSM_b1_19/ 5.977E-07,  5.390E-07,  4.468E-07, &
+                    3.696E-07,  3.443E-07,  3.433E-07, &
+                    3.380E-07,  3.249E-07,  2.962E-07, &
+                    2.483E-07,  1.989E-07,  1.623E-07, &
+                    1.305E-07,  9.015E-08,  6.111E-08, &
+                    3.761E-08,  2.903E-08,  2.337E-08,  2.147E-08/
+  DATA C1_SSSSM_b1_19/ 8.120E-01,  8.084E-01,  8.016E-01, &
+                    7.953E-01,  7.929E-01,  7.928E-01, &
+                    7.923E-01,  7.910E-01,  7.882E-01, &
+                    7.834E-01,  7.774E-01,  7.725E-01, &
+                    7.673E-01,  7.604E-01,  7.529E-01, &
+                    7.458E-01,  7.419E-01,  7.379E-01,  7.360E-01/
+  DATA C2_SSSSM_b1_19/ 2.388E-02,  2.392E-02,  2.457E-02,  2.552E-02, &
+                    2.615E-02,  2.618E-02,  2.631E-02,  2.663E-02, &
+                    2.735E-02,  2.875E-02,  3.113E-02,  3.330E-02, &
+                    3.615E-02,  3.997E-02,  4.521E-02,  5.038E-02, &
+                    5.358E-02,  5.705E-02,  5.887E-02/
+!*********************BAND 2************************************************
+!ACCUMULATION MODE
+  DATA A1_ASSSM_b2_19/1.256E+00, 1.246E+00, 1.226E+00, 1.187E+00, 1.148E+00, &
+                   1.105E+00, 1.062E+00, 1.014E+00, 9.616E-01, 9.205E-01, &
+                   8.970E-01, 8.800E-01, 8.632E-01, 8.371E-01, 7.943E-01, &
+                   7.308E-01, 6.448E-01, 5.414E-01, 4.693E-01/
+  DATA A2_ASSSM_b2_19/5.321E-01, 5.284E-01, 5.196E-01, 5.036E-01, 4.872E-01, &
+                   4.691E-01, 4.512E-01, 4.308E-01, 4.089E-01, 3.917E-01, &
+                   3.818E-01, 3.747E-01, 3.676E-01, 3.567E-01, 3.385E-01, &
+                   3.116E-01, 2.751E-01, 2.312E-01, 2.006E-01/
+  DATA A3_ASSSM_b2_19/-1.053E-02, -1.046E-02, -1.028E-02, -9.964E-03, -9.637E-03, &
+                   -9.279E-03, -8.923E-03, -8.518E-03, -8.084E-03, -7.741E-03, &
+                   -7.545E-03, -7.405E-03, -7.265E-03, -7.048E-03, -6.687E-03, &
+                   -6.156E-03, -5.433E-03, -4.565E-03, -3.961E-03/
+  DATA B1_ASSSM_b2_19/1.560E-02, 1.560E-02, 1.561E-02, 1.565E-02, 1.568E-02, &
+                   1.572E-02, 1.576E-02, 1.580E-02, 1.584E-02, 1.588E-02, &
+                   1.590E-02, 1.592E-02, 1.593E-02, 1.595E-02, 1.599E-02, &
+                   1.605E-02, 1.612E-02, 1.621E-02, 1.627E-02/
+  DATA B2_ASSSM_b2_19/1.073E-02, 1.074E-02, 1.076E-02, 1.079E-02, 1.082E-02, &
+                   1.085E-02, 1.089E-02, 1.093E-02, 1.097E-02, 1.100E-02, &
+                   1.102E-02, 1.103E-02, 1.105E-02, 1.107E-02, 1.110E-02, &
+                   1.115E-02, 1.122E-02, 1.130E-02, 1.136E-02/
+  DATA C1_ASSSM_b2_19/7.429E-01, 7.429E-01, 7.429E-01, 7.427E-01, 7.427E-01, &
+                   7.424E-01, 7.423E-01, 7.422E-01, 7.421E-01, 7.420E-01, &
+                   7.419E-01, 7.419E-01, 7.418E-01, 7.417E-01, 7.416E-01, &
+                   7.415E-01, 7.413E-01, 7.409E-01, 7.408E-01/
+  DATA C2_ASSSM_b2_19/3.031E-02, 3.028E-02, 3.022E-02, 3.011E-02, 2.999E-02, &
+                   2.986E-02, 2.973E-02, 2.959E-02, 2.943E-02, 2.931E-02, &
+                   2.924E-02, 2.919E-02, 2.913E-02, 2.905E-02, 2.893E-02, &
+                   2.874E-02, 2.847E-02, 2.817E-02, 2.795E-02/
+!COARSE MODE
+  DATA A1_CSSSM_b2_19/7.061E-01, 7.074E-01, 7.211E-01, 7.476E-01, 7.647E-01, &
+                   7.817E-01, 7.937E-01, 8.007E-01, 8.095E-01, 8.436E-01, &
+                   8.932E-01, 9.390E-01, 9.963E-01, 1.093E+00, 1.256E+00, &
+                   1.668E+00, 1.581E+00, 3.457E-01, 1.331E-01/
+  DATA A2_CSSSM_b2_19/3.617E-01, 3.621E-01, 3.662E-01, 3.739E-01, 3.789E-01, &
+                   3.840E-01, 3.874E-01, 3.895E-01, 3.921E-01, 4.001E-01, &
+                   4.117E-01, 4.223E-01, 4.356E-01, 4.581E-01, 5.099E-01, &
+                   6.831E-01, 6.663E-01, 1.481E-01, 5.703E-02/
+  DATA A3_CSSSM_b2_19/-6.953E-03, -6.961E-03, -7.048E-03, -7.216E-03, -7.322E-03, &
+                   -7.431E-03, -7.506E-03, -7.551E-03, -7.606E-03, -7.791E-03, &
+                   -8.059E-03, -8.305E-03, -8.613E-03, -9.134E-03, -1.023E-02, &
+                   -1.365E-02, -1.320E-02, -2.922E-03, -1.125E-03/
+  DATA B1_CSSSM_b2_19/1.007E-02, 1.008E-02, 1.012E-02, 1.019E-02, 1.024E-02, &
+                   1.029E-02, 1.033E-02, 1.035E-02, 1.038E-02, 1.056E-02, &
+                   1.083E-02, 1.109E-02, 1.140E-02, 1.194E-02, 1.270E-02, &
+                   1.390E-02, 1.524E-02, 1.639E-02, 1.667E-02/
+  DATA B2_CSSSM_b2_19/4.675E-03, 4.682E-03, 4.760E-03, 4.908E-03, 5.004E-03, &
+                   5.102E-03, 5.168E-03, 5.207E-03, 5.256E-03, 5.474E-03, &
+                   5.793E-03, 6.089E-03, 6.457E-03, 7.081E-03, 7.923E-03, &
+                   9.127E-03, 1.041E-02, 1.147E-02, 1.173E-02/
+  DATA C1_CSSSM_b2_19/7.571E-01, 7.571E-01, 7.570E-01, 7.568E-01, 7.565E-01, &
+                   7.564E-01, 7.563E-01, 7.562E-01, 7.562E-01, 7.557E-01, &
+                   7.552E-01, 7.545E-01, 7.539E-01, 7.527E-01, 7.509E-01, &
+                   7.478E-01, 7.440E-01, 7.404E-01, 7.394E-01/
+  DATA C2_CSSSM_b2_19/4.464E-02, 4.465E-02, 4.468E-02, 4.474E-02, 4.477E-02, &
+                   4.480E-02, 4.482E-02, 4.484E-02, 4.486E-02, 4.448E-02, &
+                   4.389E-02, 4.334E-02, 4.264E-02, 4.148E-02, 3.957E-02, &
+                   3.588E-02, 3.149E-02, 2.751E-02, 2.650E-02/
+!SUPER COARSE MODE
+  DATA A1_SSSSM_b2_19/2.357E-01, 2.490E-01, 2.666E-01, 2.920E-01, 3.120E-01, &
+                   3.128E-01, 3.169E-01, 3.272E-01, 3.498E-01, 3.960E-01, &
+                   4.822E-01, 5.634E-01, 6.763E-01, 8.278E-01, 1.047E+00, &
+                   1.340E+00, 1.927E+00, 1.648E+00, 1.031E+00/
+  DATA A2_SSSSM_b2_19/1.219E-01, 1.337E-01, 1.633E-01, 1.929E-01, 2.057E-01, &
+                   2.062E-01, 2.089E-01, 2.155E-01, 2.300E-01, 2.560E-01, &
+                   2.908E-01, 3.199E-01, 3.530E-01, 3.965E-01, 4.475E-01, &
+                   5.443E-01, 7.943E-01, 6.928E-01, 4.381E-01/
+  DATA A3_SSSSM_b2_19/-2.387E-03, -2.599E-03, -3.092E-03, -3.599E-03, -3.832E-03, &
+                   -3.842E-03, -3.890E-03, -4.012E-03, -4.276E-03, -4.763E-03, &
+                   -5.455E-03, -6.051E-03, -6.763E-03, -7.708E-03, -8.887E-03, &
+                   -1.091E-02, -1.585E-02, -1.373E-02, -8.665E-03/
+  DATA B1_SSSSM_b2_19/1.260E-02, 1.211E-02, 1.126E-02, 1.056E-02, 1.038E-02, &
+                   1.037E-02, 1.033E-02, 1.023E-02, 1.002E-02, 9.717E-03, &
+                   9.613E-03, 9.652E-03, 9.983E-03, 1.047E-02, 1.168E-02, &
+                   1.301E-02, 1.399E-02, 1.514E-02, 1.578E-02/
+  DATA B2_SSSSM_b2_19/2.336E-03, 2.419E-03, 2.506E-03, 2.610E-03, 2.690E-03, &
+                   2.694E-03, 2.711E-03, 2.752E-03, 2.844E-03, 3.043E-03, &
+                   3.455E-03, 3.871E-03, 4.507E-03, 5.373E-03, 6.786E-03, &
+                   8.238E-03, 9.208E-03, 1.032E-02, 1.091E-02/
+  DATA C1_SSSSM_b2_19/7.832E-01, 7.787E-01, 7.721E-01, 7.670E-01, 7.657E-01, &
+                   7.657E-01, 7.654E-01, 7.648E-01, 7.634E-01, 7.613E-01, &
+                   7.596E-01, 7.585E-01, 7.574E-01, 7.560E-01, 7.533E-01, &
+                   7.502E-01, 7.476E-01, 7.443E-01, 7.423E-01/
+  DATA C2_SSSSM_b2_19/3.144E-02, 3.268E-02, 3.515E-02, 3.748E-02, 3.837E-02, &
+                   3.840E-02, 3.860E-02, 3.906E-02, 4.006E-02, 4.173E-02, &
+                   4.338E-02, 4.435E-02, 4.459E-02, 4.467E-02, 4.202E-02, &
+                   3.864E-02, 3.559E-02, 3.183E-02, 2.964E-02/
+!***************************************************************************
+
+  spsol = 0
+  spinsol = 0 
+  spss = 0 
+
+  DATA alpha_aers_2bands/  & 
+       ! bc soluble
+       7.675,7.675,7.675,7.675,7.675,7.675,    &
+       7.675,7.675,10.433,11.984,13.767,15.567,& 
+       4.720,4.720,4.720,4.720,4.720,4.720,    & 
+       4.720,4.720,6.081,6.793,7.567,9.344,    & 
+       ! pom soluble
+       5.503,5.503,5.503,5.503,5.588,5.957,    & 
+       6.404,7.340,8.545,10.319,13.595,20.398, & 
+       1.402,1.402,1.402,1.402,1.431,1.562,    & 
+       1.715,2.032,2.425,2.991,4.193,7.133,    & 
+       ! sulfate    
+       4.681,5.062,5.460,5.798,6.224,6.733,    & 
+       7.556,8.613,10.687,12.265,16.32,21.692, & 
+       1.107,1.239,1.381,1.490,1.635,1.8030,   &
+       2.071,2.407,3.126,3.940,5.539,7.921,    &
+                                ! sulfate coarse
+       4.681,5.062,5.460,5.798,6.224,6.733,    & 
+       7.556,8.613,10.687,12.265,16.32,21.692, & 
+       1.107,1.239,1.381,1.490,1.635,1.8030,   &
+       2.071,2.407,3.126,3.940,5.539,7.921,    &
+                                ! seasalt Super Coarse Soluble (SS)
+       0.5090,0.6554,0.7129,0.7767,0.8529,1.2728, &
+       1.3820,1.5792,1.9173,2.2002,2.7173,4.1487, &
+       0.5167,0.6613,0.7221,0.7868,0.8622,1.3027, &
+       1.4227,1.6317,1.9887,2.2883,2.8356,4.3453, &
+                                ! seasalt  Coarse Soluble (CS)
+       0.5090,0.6554,0.7129,0.7767,0.8529,1.2728, &
+       1.3820,1.5792,1.9173,2.2002,2.7173,4.1487, &
+       0.5167,0.6613,0.7221,0.7868,0.8622,1.3027, &
+       1.4227,1.6317,1.9887,2.2883,2.8356,4.3453, &
+                                ! seasalt  Accumulation Soluble (AS)
+       4.125, 4.674, 5.005, 5.434, 5.985, 10.006, &
+       11.175,13.376,17.264,20.540,26.604, 42.349,&
+       4.187, 3.939, 3.919, 3.937, 3.995,  5.078, &
+       5.511, 6.434, 8.317,10.152,14.024, 26.537/
+
+  DATA alpha_aeri_2bands/  & 
+       ! dust insoluble
+       0.7661,0.7123,&
+       ! bc insoluble
+       10.360,4.437, &
+       ! pom insoluble
+       3.741,0.606/
+
+  DATA cg_aers_2bands/ &
+       ! bc soluble
+       .612, .612, .612, .612, .612, .612, &
+       .612, .612, .702, .734, .760, .796, &
+       .433, .433, .433, .433, .433, .433, &
+       .433, .433, .534, .575, .613, .669, &
+       ! pom soluble
+       .663, .663, .663, .663, .666, .674, &
+       .685, .702, .718, .737, .757, .777, &
+       .544, .544, .544, .544, .547, .554, &
+       .565, .583, .604, .631, .661, .698, &
+       ! sulfate    
+       .658, .669, .680, .688, .698, .707, &
+       .719, .733, .752, .760, .773, .786, &
+       .544, .555, .565, .573, .583, .593, &
+       .610, .628, .655, .666, .692, .719, &
+                                ! sulfate coarse
+       .658, .669, .680, .688, .698, .707, &
+       .719, .733, .752, .760, .773, .786, &
+       .544, .555, .565, .573, .583, .593, &
+       .610, .628, .655, .666, .692, .719, &
+                                ! seasalt Super Coarse soluble (SS)
+       .727, .747, .755, .761, .770, .788, &
+       .792, .799, .805, .809, .815, .826, &
+       .717, .738, .745, .752, .761, .779, &
+       .781, .786, .793, .797, .803, .813, &
+                                ! seasalt Coarse soluble (CS)
+       .727, .747, .755, .761, .770, .788, &
+       .792, .799, .805, .809, .815, .826, &
+       .717, .738, .745, .752, .761, .779, &
+       .781, .786, .793, .797, .803, .813, &
+                                ! Sesalt Accumulation Soluble (AS)
+       .727, .741, .748, .754, .761, .782, &
+       .787, .792, .797, .799, .801, .799, &
+       .606, .645, .658, .669, .681, .726, &
+       .734, .746, .761, .770, .782, .798/
+
+  DATA cg_aeri_2bands/ &
+       ! dust insoluble
+       .701, .670, &
+       ! bc insoluble
+       .471, .297, &
+       ! pom insoluble
+       .568, .365/
+
+  DATA piz_aers_2bands/&
+       ! bc soluble
+       .445, .445, .445, .445, .445, .445, &
+       .445, .445, .461, .480, .505, .528, &
+       .362, .362, .362, .362, .362, .362, &
+       .362, .362, .381, .405, .437, .483, &
+       ! pom soluble
+       .972, .972, .972, .972, .972, .974, &
+       .976, .979, .982, .986, .989, .992, &
+       .924, .924, .924, .924, .925, .927, &
+       .932, .938, .945, .952, .961, .970, &
+       ! sulfate
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       .992, .988, .988, .987, .986, .985,  &
+       .985, .985, .984, .984, .984, .984,  &
+                                ! sulfate coarse
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       .992, .988, .988, .987, .986, .985,  &
+       .985, .985, .984, .984, .984, .984,  &
+                                ! seasalt Super Coarse Soluble (SS)
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       0.992,0.989,0.987,0.986,0.986,0.980, &
+       0.980,0.978,0.976,0.976,0.974,0.971, &
+                                ! seasalt Coarse soluble (CS)
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       1.000,1.000,1.000,1.000,1.000,1.000, &
+       0.992,0.989,0.987,0.986,0.986,0.980, &
+       0.980,0.978,0.976,0.976,0.974,0.971, &
+                                ! seasalt Accumulation Soluble (AS)
+       1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+       1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+       0.970, 0.975, 0.976, 0.977, 0.978, 0.982, &
+       0.982, 0.983, 0.984, 0.984, 0.985, 0.985/
+
+  DATA piz_aeri_2bands/ &
+       ! dust insoluble
+       .963, .987, &
+       ! bc insoluble
+       .395, .264, &
+       ! pom insoluble
+       .966, .859/
+
+! Interpolation des coefficients optiques de 19 niveaux vers le nombre des niveaux du model
+  IF (firstcall) THEN
+     firstcall=.FALSE.
+     
+     IF (.NOT. ALLOCATED(A1_ASSSM_b1)) THEN
+        ALLOCATE(A1_ASSSM_b1(klev),A2_ASSSM_b1(klev), A3_ASSSM_b1(klev),&
+          B1_ASSSM_b1(klev), B2_ASSSM_b1(klev), C1_ASSSM_b1(klev), C2_ASSSM_b1(klev),&
+          A1_CSSSM_b1(klev), A2_CSSSM_b1(klev), A3_CSSSM_b1(klev),&
+          B1_CSSSM_b1(klev), B2_CSSSM_b1(klev), C1_CSSSM_b1(klev), C2_CSSSM_b1(klev),&
+          A1_SSSSM_b1(klev), A2_SSSSM_b1(klev), A3_SSSSM_b1(klev),&
+          B1_SSSSM_b1(klev), B2_SSSSM_b1(klev), C1_SSSSM_b1(klev), C2_SSSSM_b1(klev),&
+          A1_ASSSM_b2(klev), A2_ASSSM_b2(klev), A3_ASSSM_b2(klev),&
+          B1_ASSSM_b2(klev), B2_ASSSM_b2(klev), C1_ASSSM_b2(klev), C2_ASSSM_b2(klev),&
+          A1_CSSSM_b2(klev), A2_CSSSM_b2(klev), A3_CSSSM_b2(klev),&
+          B1_CSSSM_b2(klev), B2_CSSSM_b2(klev), C1_CSSSM_b2(klev), C2_CSSSM_b2(klev),&
+          A1_SSSSM_b2(klev), A2_SSSSM_b2(klev), A3_SSSSM_b2(klev),&
+          B1_SSSSM_b2(klev), B2_SSSSM_b2(klev), C1_SSSSM_b2(klev), C2_SSSSM_b2(klev), stat=ierr)
+        IF (ierr /= 0) CALL abort_physic('aeropt_2bands', 'pb in allocation 1',1)
+     END IF
+     
+! bande 1
+     CALL pres2lev(A1_ASSSM_b1_19, A1_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_ASSSM_b1_19, A2_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_ASSSM_b1_19, A3_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_ASSSM_b1_19, B1_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_ASSSM_b1_19, B2_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_ASSSM_b1_19, C1_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_ASSSM_b1_19, C2_ASSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+     CALL pres2lev(A1_CSSSM_b1_19, A1_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_CSSSM_b1_19, A2_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_CSSSM_b1_19, A3_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_CSSSM_b1_19, B1_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_CSSSM_b1_19, B2_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_CSSSM_b1_19, C1_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_CSSSM_b1_19, C2_CSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+     CALL pres2lev(A1_SSSSM_b1_19, A1_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_SSSSM_b1_19, A2_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_SSSSM_b1_19, A3_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_SSSSM_b1_19, B1_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_SSSSM_b1_19, B2_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_SSSSM_b1_19, C1_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_SSSSM_b1_19, C2_SSSSM_b1, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+! bande 2
+     CALL pres2lev(A1_ASSSM_b2_19, A1_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_ASSSM_b2_19, A2_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_ASSSM_b2_19, A3_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_ASSSM_b2_19, B1_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_ASSSM_b2_19, B2_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_ASSSM_b2_19, C1_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_ASSSM_b2_19, C2_ASSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+     CALL pres2lev(A1_CSSSM_b2_19, A1_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_CSSSM_b2_19, A2_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_CSSSM_b2_19, A3_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_CSSSM_b2_19, B1_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_CSSSM_b2_19, B2_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_CSSSM_b2_19, C1_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_CSSSM_b2_19, C2_CSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+     CALL pres2lev(A1_SSSSM_b2_19, A1_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_SSSSM_b2_19, A2_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_SSSSM_b2_19, A3_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_SSSSM_b2_19, B1_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_SSSSM_b2_19, B2_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_SSSSM_b2_19, C1_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_SSSSM_b2_19, C2_SSSSM_b2, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+  END IF ! firstcall
+
+
+  DO k=1, klev
+    DO i=1, klon
+      zrho=pplay(i,k)/t_seri(i,k)/RD                  ! kg/m3
+      mass_temp(i,k,:) = m_allaer(i,k,:) / zrho / 1.e+9
+      mass_temp_pi(i,k,:) = m_allaer_pi(i,k,:) / zrho / 1.e+9
+      zdp1(i,k)=pdel(i,k)/(gravit*delt)      ! air mass auxiliary  variable --> zdp1 [kg/(m^2 *s)]
+    ENDDO
+  ENDDO
+
+  IF (flag_aerosol .EQ. 1) THEN 
+     nb_aer = 2
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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_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_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_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_phy
+  ELSEIF (flag_aerosol .EQ. 6) THEN 
+     nb_aer = 10
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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
+
+
+  !
+  ! loop over modes, use of precalculated nmd and corresponding sigma
+  !    loop over wavelengths
+  !    for each mass species in mode
+  !      interpolate from Sext to retrieve Sext_at_gridpoint_per_species
+  !      compute optical_thickness_at_gridpoint_per_species
+
+
+
+!CDIR ON_ADB(fact_RH)
+!CDIR SHORTLOOP
+  DO n=1,nbre_RH-1
+    fact_RH(n)=1./(RH_tab(n+1)-RH_tab(n))
+  ENDDO
+   
+  DO k=1, KLEV
+!CDIR ON_ADB(fact_RH)
+    DO i=1, KLON
+      rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
+      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
+      
+      DELTA(i,k)=(rh(i,k)-RH_tab(RH_num(i,k)))*fact_RH(RH_num(i,k))
+    ENDDO
+  ENDDO
+
+  used_aer(:)=.FALSE.
+    
+  DO m=1,nb_aer   ! tau is only computed for each mass
+    fac=1.0
+     IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
+         soluble=.TRUE.
+         spsol=1
+         spss=0
+     ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
+        soluble=.TRUE.
+        spsol=2 
+        spss=0
+     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_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_phy) THEN 
+         soluble=.TRUE.
+         spsol=5
+         spss=3
+     ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
+         soluble=.TRUE.
+         spsol=6
+         spss=2
+     ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
+         soluble=.TRUE.
+         spsol=7
+         spss=1
+     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
+         soluble=.FALSE.
+         spinsol=1
+         spss=0
+     ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
+         soluble=.FALSE.
+         spinsol=2
+         spss=0
+     ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
+         soluble=.FALSE.
+         spinsol=3
+         spss=0
+     ELSE 
+         CYCLE
+     ENDIF
+
+    id=aerosol_name(m)
+    used_aer(id)=.TRUE.
+
+     
+    IF (soluble) THEN
+
+      IF (spss.NE.0) THEN
+
+         IF (spss.EQ.1) THEN !accumulation mode
+            DO k=1, KLEV
+!CDIR ON_ADB(A1_ASSSM_b1)
+!CDIR ON_ADB(A2_ASSSM_b1)
+!CDIR ON_ADB(A3_ASSSM_b1)
+!CDIR ON_ADB(B1_ASSSM_b1)
+!CDIR ON_ADB(B2_ASSSM_b1)
+!CDIR ON_ADB(C1_ASSSM_b1)
+!CDIR ON_ADB(C2_ASSSM_b2)
+!CDIR ON_ADB(A1_ASSSM_b2)
+!CDIR ON_ADB(A2_ASSSM_b2)
+!CDIR ON_ADB(A3_ASSSM_b2)
+!CDIR ON_ADB(B1_ASSSM_b2)
+!CDIR ON_ADB(B2_ASSSM_b2)
+!CDIR ON_ADB(C1_ASSSM_b2)
+!CDIR ON_ADB(C2_ASSSM_b2)
+              DO i=1, KLON
+                H=rh(i,k)/100
+                tmp_var=mass_temp(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+                tmp_var_pi=mass_temp_pi(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+
+                ! band 1
+                tau_ae2b_int=A1_ASSSM_b1(k)+A2_ASSSM_b1(k)*H+A3_ASSSM_b1(k)/(H-1.05)
+                piz_ae2b_int=1-B1_ASSSM_b1(k)-B2_ASSSM_b1(k)*H
+                cg_ae2b_int=C1_ASSSM_b1(k)+C2_ASSSM_b1(k)*H
+
+                tau_ae(i,k,id,1) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,1) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,1) = piz_ae2b_int
+                cg_ae(i,k,id,1)= cg_ae2b_int
+                
+                !band 2
+                tau_ae2b_int=A1_ASSSM_b2(k)+A2_ASSSM_b2(k)*H+A3_ASSSM_b2(k)/(H-1.05)
+                piz_ae2b_int=1-B1_ASSSM_b2(k)-B2_ASSSM_b2(k)*H
+                cg_ae2b_int=C1_ASSSM_b2(k)+C2_ASSSM_b2(k)*H
+
+                tau_ae(i,k,id,2) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,2) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,2) = piz_ae2b_int
+                cg_ae(i,k,id,2)= cg_ae2b_int
+
+              ENDDO
+            ENDDO
+          ENDIF
+
+          IF (spss.EQ.2) THEN !coarse mode
+            DO k=1, KLEV
+!CDIR ON_ADB(A1_CSSSM_b1)
+!CDIR ON_ADB(A2_CSSSM_b1)
+!CDIR ON_ADB(A3_CSSSM_b1)
+!CDIR ON_ADB(B1_CSSSM_b1)
+!CDIR ON_ADB(B2_CSSSM_b1)
+!CDIR ON_ADB(C1_CSSSM_b1)
+!CDIR ON_ADB(C2_CSSSM_b2)
+!CDIR ON_ADB(A1_CSSSM_b2)
+!CDIR ON_ADB(A2_CSSSM_b2)
+!CDIR ON_ADB(A3_CSSSM_b2)
+!CDIR ON_ADB(B1_CSSSM_b2)
+!CDIR ON_ADB(B2_CSSSM_b2)
+!CDIR ON_ADB(C1_CSSSM_b2)
+!CDIR ON_ADB(C2_CSSSM_b2)
+              DO i=1, KLON
+                H=rh(i,k)/100
+                tmp_var=mass_temp(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+                tmp_var_pi=mass_temp_pi(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+                ! band 1
+                tau_ae2b_int=A1_CSSSM_b1(k)+A2_CSSSM_b1(k)*H+A3_CSSSM_b1(k)/(H-1.05)
+                piz_ae2b_int=1-B1_CSSSM_b1(k)-B2_CSSSM_b1(k)*H
+                cg_ae2b_int=C1_CSSSM_b1(k)+C2_CSSSM_b1(k)*H
+
+                tau_ae(i,k,id,1) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,1) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,1) = piz_ae2b_int
+                cg_ae(i,k,id,1)= cg_ae2b_int
+
+                ! band 2
+                tau_ae2b_int=A1_CSSSM_b2(k)+A2_CSSSM_b2(k)*H+A3_CSSSM_b2(k)/(H-1.05)
+                piz_ae2b_int=1-B1_CSSSM_b2(k)-B2_CSSSM_b2(k)*H
+                cg_ae2b_int=C1_CSSSM_b2(k)+C2_CSSSM_b2(k)*H
+
+                tau_ae(i,k,id,2) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,2) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,2) = piz_ae2b_int
+                cg_ae(i,k,id,2)= cg_ae2b_int
+
+             ENDDO
+           ENDDO
+         ENDIF
+
+         IF (spss.EQ.3) THEN !super coarse mode
+            DO k=1, KLEV
+!CDIR ON_ADB(A1_SSSSM_b1)
+!CDIR ON_ADB(A2_SSSSM_b1)
+!CDIR ON_ADB(A3_SSSSM_b1)
+!CDIR ON_ADB(B1_SSSSM_b1)
+!CDIR ON_ADB(B2_SSSSM_b1)
+!CDIR ON_ADB(C1_SSSSM_b1)
+!CDIR ON_ADB(C2_SSSSM_b2)
+!CDIR ON_ADB(A1_SSSSM_b2)
+!CDIR ON_ADB(A2_SSSSM_b2)
+!CDIR ON_ADB(A3_SSSSM_b2)
+!CDIR ON_ADB(B1_SSSSM_b2)
+!CDIR ON_ADB(B2_SSSSM_b2)
+!CDIR ON_ADB(C1_SSSSM_b2)
+!CDIR ON_ADB(C2_SSSSM_b2)
+              DO i=1, KLON
+                H=rh(i,k)/100
+                tmp_var=mass_temp(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+                tmp_var_pi=mass_temp_pi(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+
+                ! band 1 
+                tau_ae2b_int=A1_SSSSM_b1(k)+A2_SSSSM_b1(k)*H+A3_SSSSM_b1(k)/(H-1.05)
+                piz_ae2b_int=1-B1_SSSSM_b1(k)-B2_SSSSM_b1(k)*H
+                cg_ae2b_int=C1_SSSSM_b1(k)+C2_SSSSM_b1(k)*H
+
+                tau_ae(i,k,id,1) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,1) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,1) = piz_ae2b_int
+                cg_ae(i,k,id,1)= cg_ae2b_int
+
+                ! band 2
+                tau_ae2b_int=A1_SSSSM_b2(k)+A2_SSSSM_b2(k)*H+A3_SSSSM_b2(k)/(H-1.05)
+                piz_ae2b_int=1-B1_SSSSM_b2(k)-B2_SSSSM_b2(k)*H
+                cg_ae2b_int=C1_SSSSM_b2(k)+C2_SSSSM_b2(k)*H
+
+                tau_ae(i,k,id,2) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,2) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,2) = piz_ae2b_int
+                cg_ae(i,k,id,2)= cg_ae2b_int
+
+              ENDDO
+            ENDDO
+          ENDIF
+
+        ELSE
+                        
+!CDIR ON_ADB(alpha_aers_2bands)
+!CDIR ON_ADB(piz_aers_2bands)
+!CDIR ON_ADB(cg_aers_2bands)
+          DO k=1, KLEV
+            DO i=1, KLON
+              tmp_var=mass_temp(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+              tmp_var_pi=mass_temp_pi(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+!CDIR UNROLL=nbands
+              DO inu=1,nbands
+
+                tau_ae2b_int= alpha_aers_2bands(RH_num(i,k),inu,spsol)+ & 
+                              DELTA(i,k)* (alpha_aers_2bands(RH_num(i,k)+1,inu,spsol) - & 
+                              alpha_aers_2bands(RH_num(i,k),inu,spsol))
+                      
+                piz_ae2b_int = piz_aers_2bands(RH_num(i,k),inu,spsol) + & 
+                               DELTA(i,k)* (piz_aers_2bands(RH_num(i,k)+1,inu,spsol) - & 
+                               piz_aers_2bands(RH_num(i,k),inu,spsol))
+                      
+                cg_ae2b_int = cg_aers_2bands(RH_num(i,k),inu,spsol) + & 
+                              DELTA(i,k)* (cg_aers_2bands(RH_num(i,k)+1,inu,spsol) - & 
+                              cg_aers_2bands(RH_num(i,k),inu,spsol))
+
+                tau_ae(i,k,id,inu) = tmp_var*tau_ae2b_int
+                tau_ae_pi(i,k,id,inu) =  tmp_var_pi* tau_ae2b_int
+                piz_ae(i,k,id,inu) = piz_ae2b_int
+                cg_ae(i,k,id,inu)= cg_ae2b_int
+                         
+              ENDDO
+            ENDDO
+          ENDDO
+        
+        ENDIF                     
+
+      ELSE                                                    ! For all aerosol insoluble components
+
+!CDIR ON_ADB(alpha_aers_2bands)
+!CDIR ON_ADB(piz_aers_2bands)
+!CDIR ON_ADB(cg_aers_2bands)
+        DO k=1, KLEV
+          DO i=1, KLON
+            tmp_var=mass_temp(i,k,naero_soluble+ spinsol)*1000.*zdp1(i,k)*delt*fac
+            tmp_var_pi=mass_temp_pi(i,k,naero_soluble+spinsol)*1000.*zdp1(i,k)*delt*fac
+!CDIR UNROLL=nbands
+            DO inu=1,nbands
+              tau_ae2b_int = alpha_aeri_2bands(inu,spinsol)
+              piz_ae2b_int = piz_aeri_2bands(inu,spinsol)
+              cg_ae2b_int = cg_aeri_2bands(inu,spinsol) 
+
+              tau_ae(i,k,id,inu) = tmp_var*tau_ae2b_int
+              tau_ae_pi(i,k,id,inu) = tmp_var_pi*tau_ae2b_int
+              piz_ae(i,k,id,inu) = piz_ae2b_int
+              cg_ae(i,k,id,inu)= cg_ae2b_int
+            ENDDO
+          ENDDO
+        ENDDO
+
+      ENDIF ! soluble
+
+    ENDDO  ! nb_aer  
+
+!correction bug OB
+!  DO m=1,nb_aer   
+  DO m=1,naero_tot   
+    IF (.NOT. used_aer(m)) THEN
+      tau_ae(:,:,m,:)=0.
+      tau_ae_pi(:,:,m,:)=0.
+      piz_ae(:,:,m,:)=0.
+      cg_ae(:,:,m,:)=0.
+    ENDIF
+  ENDDO
+
+  DO inu=1, nbands
+    DO mrfspecies=1,naero_grp
+      IF (mrfspecies .EQ. 2) THEN             ! = total aerosol AER	 
+        DO k=1, KLEV
+          DO i=1, KLON
+            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_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_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 
+
+      ELSEIF (mrfspecies .EQ. 3) THEN             ! = natural aerosol NAT
+
+        DO k=1, KLEV
+          DO i=1, KLON
+
+              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_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_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
+        ENDDO
+                   
+      ELSEIF (mrfspecies .EQ. 4) THEN             ! = BC
+        DO k=1, KLEV
+          DO i=1, KLON
+            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_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_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
+        ENDDO
+              
+      ELSEIF (mrfspecies .EQ. 5) THEN             ! = SO4
+
+        DO k=1, KLEV
+          DO i=1, KLON
+            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_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_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
+
+      ELSEIF (mrfspecies .EQ. 6) THEN             ! = POM
+
+        DO k=1, KLEV
+          DO i=1, KLON
+            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_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_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
+        ENDDO
+              
+      ELSEIF (mrfspecies .EQ. 7) THEN             ! = DUST
+
+        DO k=1, KLEV
+          DO i=1, KLON
+            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_phy,inu)
+            cg_allaer(i,k,mrfspecies,inu)=cg_ae(i,k,id_CIDUSTM_phy,inu)
+          ENDDO
+        ENDDO
+
+      ELSEIF (mrfspecies .EQ. 8) THEN             ! = SS
+
+        DO k=1, KLEV
+          DO i=1, KLON
+            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_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_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
+        ENDDO
+      
+      ELSEIF (mrfspecies .EQ. 9) THEN             ! = NO3
+      
+        DO k=1, KLEV
+          DO i=1, KLON
+            tau_allaer(i,k,mrfspecies,inu)=0.   ! preliminary
+            piz_allaer(i,k,mrfspecies,inu)=0.
+            cg_allaer(i,k,mrfspecies,inu)=0.
+          ENDDO
+        ENDDO
+      
+      ELSE
+
+        DO k=1, KLEV
+          DO i=1, KLON
+            tau_allaer(i,k,mrfspecies,inu)=0.  
+            piz_allaer(i,k,mrfspecies,inu)=0.
+            cg_allaer(i,k,mrfspecies,inu)=0.
+          ENDDO
+        ENDDO
+           
+      ENDIF
+
+    ENDDO
+  ENDDO
+
+  inu=1         ! visible wavaband
+  mrfspecies=2  ! total aerosol AER	 
+  DO i=1, KLON
+     absvisaer(i)=SUM((1-piz_allaer(i,:,mrfspecies,inu))*tau_allaer(i,:,mrfspecies,inu))
+  ENDDO
+
+  DEALLOCATE(aerosol_name) 
+
+END SUBROUTINE AEROPT_2BANDS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt_5wv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt_5wv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/aeropt_5wv.F90	(revision 3330)
@@ -0,0 +1,886 @@
+!
+! $Id$
+!
+
+SUBROUTINE AEROPT_5WV(&
+   pdel, m_allaer, delt, &
+   RHcl, ai, flag_aerosol, &
+   pplay, t_seri, &
+   tausum, tau, presnivs)
+
+  USE DIMPHY
+  USE aero_mod
+  USE phys_local_var_mod, only: od550aer,od865aer,ec550aer,od550lt1aer
+  USE pres2lev_mod
+
+
+  !
+  !    Yves Balkanski le 12 avril 2006
+  !    Celine Deandreis
+  !    Anne Cozic  Avril 2009
+  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
+  !
+  !
+  ! Refractive indices for seasalt come from Shettle and Fenn (1979)
+  !
+  ! Refractive indices from water come from Hale and Querry (1973)
+  !
+  ! Refractive indices from Ammonium Sulfate Toon and Pollack (1976)
+  !
+  ! Refractive indices for Dust, internal mixture of minerals coated with 1.5% hematite 
+  ! by Volume (Balkanski et al., 2006)
+  !
+  ! Refractive indices for POM: Kinne (pers. Communication 
+  !
+  ! Refractive index for BC from Shettle and Fenn (1979)
+  !
+  ! Shettle, E. P., & Fenn, R. W. (1979), Models for the aerosols of the lower atmosphere and 
+  ! the effects of humidity variations on their optical properties, U.S. Air Force Geophysics 
+  ! Laboratory Rept. AFGL-TR-79-0214, Hanscomb Air Force Base, MA.
+  !
+  ! Hale, G. M. and M. R. Querry, Optical constants of water in the 200-nm to 200-m 
+  ! wavelength region, Appl. Opt., 12, 555-563, 1973.
+  !
+  ! Toon, O. B. and J. B. Pollack, The optical constants of several atmospheric aerosol species:
+  ! Ammonium sulfate, aluminum oxide, and sodium chloride, J. Geohys. Res., 81, 5733-5748,
+  ! 1976.
+  !
+  ! Balkanski, Y., M. Schulz, T. Claquin And O. Boucher, Reevaluation of mineral aerosol 
+  ! radiative forcings suggests a better agreement with satellite and AERONET data, Atmospheric 
+  ! Chemistry and Physics Discussions., 6, pp 8383-8419, 2006.
+  !
+  IMPLICIT NONE
+  INCLUDE "YOMCST.h"
+  !
+  ! Input arguments:
+  !
+  REAL, DIMENSION(klon,klev), INTENT(in)   :: pdel
+  REAL, INTENT(in)                         :: delt
+  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
+  REAL, DIMENSION(klon,klev), INTENT(in)   :: pplay
+  REAL, DIMENSION(klon,klev), INTENT(in)   :: t_seri
+  REAL, DIMENSION(klev),      INTENT(in)   :: presnivs
+  !
+  ! Output arguments:
+  !
+  REAL, DIMENSION(klon), INTENT(out)          :: ai      ! POLDER aerosol index 
+  REAL, DIMENSION(klon,nwave,naero_tot), INTENT(out)      :: tausum
+  REAL, DIMENSION(klon,klev,nwave,naero_tot), INTENT(out) :: tau
+
+
+  !
+  ! Local
+  !
+  INTEGER, PARAMETER :: las = nwave_sw
+  LOGICAL :: soluble
+  
+  INTEGER :: i, k, ierr, m, aerindex
+  INTEGER :: spsol, spinsol, spss, la
+  INTEGER :: RH_num(klon,klev)
+  INTEGER, PARAMETER :: la443 = 1
+  INTEGER, PARAMETER :: la550 = 2
+  INTEGER, PARAMETER :: la670 = 3
+  INTEGER, PARAMETER :: la765 = 4
+  INTEGER, PARAMETER :: la865 = 5
+  INTEGER, PARAMETER :: nbre_RH=12
+  INTEGER, PARAMETER :: naero_soluble=7   !  1- BC soluble; 2- POM soluble; 3- SO4 acc.
+                                          !  4- SO4 coarse; 5 seasalt super-C; 6 seasalt coarse; 7 seasalt acc.
+  INTEGER, PARAMETER :: naero_insoluble=3 !  1- Dust; 2- BC insoluble; 3- POM insoluble
+  INTEGER, PARAMETER :: nb_level = 19     ! number of vertical levels
+  LOGICAL, SAVE :: firstcall=.TRUE.
+!$OMP THREADPRIVATE(firstcall)
+
+  REAL :: zrho
+
+  ! Coefficient optiques sur 19 niveaux
+  REAL, SAVE, DIMENSION(nb_level) :: presnivs_19  ! Pression milieux couche pour 19 niveaux (nb_level)
+!$OMP THREADPRIVATE(presnivs_19)
+
+  REAL, SAVE, DIMENSION(nb_level) :: A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19,&
+          B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19,&
+          A1_CSSSM_19, A2_CSSSM_19, A3_CSSSM_19,&
+          B1_CSSSM_19, B2_CSSSM_19, C1_CSSSM_19, C2_CSSSM_19, &
+          A1_SSSSM_19, A2_SSSSM_19, A3_SSSSM_19,&
+          B1_SSSSM_19, B2_SSSSM_19, C1_SSSSM_19, C2_SSSSM_19
+!$OMP THREADPRIVATE(A1_ASSSM_19, A2_ASSSM_19, A3_ASSSM_19)
+!$OMP THREADPRIVATE(B1_ASSSM_19, B2_ASSSM_19, C1_ASSSM_19, C2_ASSSM_19)
+!$OMP THREADPRIVATE(A1_CSSSM_19, A2_CSSSM_19, A3_CSSSM_19)
+!$OMP THREADPRIVATE(B1_CSSSM_19, B2_CSSSM_19, C1_CSSSM_19, C2_CSSSM_19)
+!$OMP THREADPRIVATE(A1_SSSSM_19, A2_SSSSM_19, A3_SSSSM_19)
+!$OMP THREADPRIVATE(B1_SSSSM_19, B2_SSSSM_19, C1_SSSSM_19, C2_SSSSM_19)
+
+  ! Coefficient optiques interpole sur le nombre de niveau du modele
+  REAL, ALLOCATABLE,  DIMENSION(:), SAVE :: &
+          A1_ASSSM, A2_ASSSM, A3_ASSSM,&
+          B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM,&
+          A1_CSSSM, A2_CSSSM, A3_CSSSM,&
+          B1_CSSSM, B2_CSSSM, C1_CSSSM, C2_CSSSM, &
+          A1_SSSSM, A2_SSSSM, A3_SSSSM,&
+          B1_SSSSM, B2_SSSSM, C1_SSSSM, C2_SSSSM
+!$OMP THREADPRIVATE(A1_ASSSM, A2_ASSSM, A3_ASSSM)
+!$OMP THREADPRIVATE(B1_ASSSM, B2_ASSSM, C1_ASSSM, C2_ASSSM)
+!$OMP THREADPRIVATE(A1_CSSSM, A2_CSSSM, A3_CSSSM)
+!$OMP THREADPRIVATE(B1_CSSSM, B2_CSSSM, C1_CSSSM, C2_CSSSM)
+!$OMP THREADPRIVATE(A1_SSSSM, A2_SSSSM, A3_SSSSM)
+!$OMP THREADPRIVATE(B1_SSSSM, B2_SSSSM, C1_SSSSM, C2_SSSSM)
+
+
+  REAL,PARAMETER :: RH_tab(nbre_RH)=(/0.,10.,20.,30.,40.,50.,60.,70.,80.,85.,90.,95./)
+  REAL :: DELTA(klon,klev), rh(klon,klev), H
+  REAL :: tau_ae5wv_int ! Intermediate computation of epaisseur optique aerosol
+  REAL :: piz_ae5wv_int ! Intermediate single scattering albedo aerosol
+  REAL :: cg_ae5wv_int  ! Intermediate asymmetry parameter aerosol
+  REAL, PARAMETER :: RH_MAX=95.
+  REAL :: taue670(KLON)       ! epaisseur optique aerosol absorption 550 nm
+  REAL :: taue865(KLON)       ! epaisseur optique aerosol extinction 865 nm
+  REAL :: fac
+  REAL :: zdp1(klon,klev) 
+  REAL, PARAMETER ::  gravit = 9.80616    ! m2/s
+  INTEGER, ALLOCATABLE, DIMENSION(:)  :: aerosol_name
+  INTEGER :: nb_aer
+  
+  REAL :: tau3d(KLON,KLEV), piz3d(KLON,KLEV), cg3d(KLON,KLEV)
+  REAL :: abs3d(KLON,KLEV)     ! epaisseur optique d'absorption
+  REAL :: dh(KLON,KLEV)
+  
+  REAL :: alpha_aers_5wv(nbre_RH,las,naero_soluble)   ! ext. coeff. Soluble comp. units *** m2/g 
+   !  1- BC soluble; 2- POM soluble; 3- SO4 acc.; 4- SO4 coarse; 5 seasalt super-C; 6 seasalt coarse; 7 seasalt acc.
+  REAL :: alpha_aeri_5wv(las,naero_insoluble)         ! ext. coeff. Insoluble comp. 1- Dust: 2- BC; 3- POM
+  REAL :: cg_aers_5wv(nbre_RH,las,naero_soluble)      ! Asym. param. soluble comp. 
+   !  1- BC soluble; 2- POM soluble; 3- SO4 acc.; 4- SO4 coarse; 5 seasalt super-C; 6 seasalt coarse; 7 seasalt acc.
+  REAL :: cg_aeri_5wv(las,naero_insoluble)            ! Asym. param. insoluble comp. 1- Dust: 2- BC; 3- POM
+  REAL :: piz_aers_5wv(nbre_RH,las,naero_soluble)   
+   !  1- BC soluble; 2- POM soluble; 3- SO4 acc.; 4- SO4 coarse; 5 seasalt super-C; 6 seasalt coarse; 7 seasalt acc.
+  REAL :: piz_aeri_5wv(las,naero_insoluble)           ! Insoluble comp. 1- Dust: 2- BC; 3- POM
+
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
+  
+  !
+  ! Proprietes optiques
+  !
+  REAL :: radry = 287.054
+  REAL :: tau_tmp                     ! dry air mass constant
+  REAL :: fact_RH(nbre_RH)
+  LOGICAL :: used_tau(naero_spc)
+  INTEGER :: n
+  
+  DATA presnivs_19/&
+       100426.5,  98327.6, 95346.5, 90966.8, 84776.9, &
+       76536.5,   66292.2, 54559.3, 42501.8, 31806, &
+       23787.5,   18252.7, 13996,   10320.8, 7191.1, &
+       4661.7,    2732.9,  1345.6,  388.2/
+
+!!ACCUMULATION MODE
+  DATA A1_ASSSM_19/ 4.373E+00,  4.361E+00,  4.331E+00, &
+                 4.278E+00,  4.223E+00,  4.162E+00, &
+                 4.103E+00,  4.035E+00,  3.962E+00, &
+                 3.904E+00,  3.871E+00,  3.847E+00, &
+                 3.824E+00,  3.780E+00,  3.646E+00, &
+                 3.448E+00,  3.179E+00,  2.855E+00,  2.630E+00/
+  DATA A2_ASSSM_19/ 2.496E+00,  2.489E+00,  2.472E+00, &
+                 2.442E+00,  2.411E+00,  2.376E+00, &
+                 2.342E+00,  2.303E+00,  2.261E+00, &
+                 2.228E+00,  2.210E+00,  2.196E+00, &
+                 2.183E+00,  2.158E+00,  2.081E+00, &
+                 1.968E+00,  1.814E+00,  1.630E+00,  1.501E+00/
+  DATA A3_ASSSM_19/-4.688E-02, -4.676E-02, -4.644E-02, &
+                -4.587E-02, -4.528E-02, -4.463E-02, &
+                -4.399E-02, -4.326E-02, -4.248E-02, &
+                -4.186E-02, -4.151E-02, -4.125E-02, &
+                -4.100E-02, -4.053E-02, -3.910E-02, &
+                -3.697E-02, -3.408E-02, -3.061E-02, -2.819E-02/
+  DATA B1_ASSSM_19/ 1.165E-08,  1.145E-08,  1.097E-08, &
+                 1.012E-08,  9.233E-09,  8.261E-09, &
+                 7.297E-09,  6.201E-09,  5.026E-09, &
+                 4.098E-09,  3.567E-09,  3.187E-09, &
+                 2.807E-09,  2.291E-09,  2.075E-09, &
+                 1.756E-09,  1.322E-09,  8.011E-10, 4.379E-10/
+  DATA B2_ASSSM_19/ 2.193E-08,  2.192E-08,  2.187E-08, &
+                 2.179E-08,  2.171E-08,  2.162E-08, &
+                 2.153E-08,  2.143E-08,  2.132E-08, &
+                 2.124E-08,  2.119E-08,  2.115E-08, &
+                 2.112E-08,  2.106E-08,  2.100E-08, &
+                 2.090E-08,  2.077E-08,  2.061E-08,  2.049E-08/
+  DATA C1_ASSSM_19/ 7.365E-01,  7.365E-01,  7.365E-01, &
+                 7.364E-01,  7.363E-01,  7.362E-01, &
+                 7.361E-01,  7.359E-01,  7.358E-01, &
+                 7.357E-01,  7.356E-01,  7.356E-01, &
+                 7.356E-01,  7.355E-01,  7.354E-01, &
+                 7.352E-01,  7.350E-01,  7.347E-01,  7.345E-01/
+  DATA C2_ASSSM_19/ 5.833E-02,  5.835E-02,  5.841E-02, &
+                 5.850E-02,  5.859E-02,  5.870E-02, &
+                 5.880E-02,  5.891E-02,  5.904E-02, &
+                 5.914E-02,  5.920E-02,  5.924E-02, &
+                 5.928E-02,  5.934E-02,  5.944E-02, &
+                 5.959E-02,  5.979E-02,  6.003E-02,  6.020E-02/
+!COARSE MODE
+  DATA A1_CSSSM_19/ 7.403E-01,  7.422E-01,  7.626E-01, &
+                 8.019E-01,  8.270E-01,  8.527E-01, &
+                 8.702E-01,  8.806E-01,  8.937E-01, &
+                 9.489E-01,  1.030E+00,  1.105E+00, &
+                 1.199E+00,  1.357E+00,  1.660E+00, &
+                 2.540E+00,  4.421E+00,  2.151E+00,  9.518E-01/
+  DATA A2_CSSSM_19/ 4.522E-01,  4.532E-01,  4.644E-01, &
+                 4.859E-01,  4.996E-01,  5.137E-01, &
+                 5.233E-01,  5.290E-01,  5.361E-01, &
+                 5.655E-01,  6.085E-01,  6.483E-01, &
+                 6.979E-01,  7.819E-01,  9.488E-01, &
+                 1.450E+00,  2.523E+00,  1.228E+00,  5.433E-01/
+  DATA A3_CSSSM_19/-8.516E-03, -8.535E-03, -8.744E-03, &
+                -9.148E-03, -9.406E-03, -9.668E-03, &
+                -9.848E-03, -9.955E-03, -1.009E-02, &
+                -1.064E-02, -1.145E-02, -1.219E-02, &
+                -1.312E-02, -1.470E-02, -1.783E-02, &
+                -2.724E-02, -4.740E-02, -2.306E-02, -1.021E-02/
+  DATA B1_CSSSM_19/ 2.535E-07,  2.530E-07,  2.479E-07, &
+                 2.380E-07,  2.317E-07,  2.252E-07, &
+                 2.208E-07,  2.182E-07,  2.149E-07, &
+                 2.051E-07,  1.912E-07,  1.784E-07, &
+                 1.624E-07,  1.353E-07,  1.012E-07, &
+                 6.016E-08,  2.102E-08,  0.000E+00,  0.000E+00/
+  DATA B2_CSSSM_19/ 1.221E-07,  1.217E-07,  1.179E-07, &
+                 1.104E-07,  1.056E-07,  1.008E-07, &
+                 9.744E-08,  9.546E-08,  9.299E-08, &
+                 8.807E-08,  8.150E-08,  7.544E-08, &
+                 6.786E-08,  5.504E-08,  4.080E-08, &
+                 2.960E-08,  2.300E-08,  2.030E-08,  1.997E-08/
+  DATA C1_CSSSM_19/ 7.659E-01,  7.658E-01,  7.652E-01, &
+                 7.639E-01,  7.631E-01,  7.623E-01, &
+                 7.618E-01,  7.614E-01,  7.610E-01, &
+                 7.598E-01,  7.581E-01,  7.566E-01, &
+                 7.546E-01,  7.513E-01,  7.472E-01, &
+                 7.423E-01,  7.376E-01,  7.342E-01,  7.334E-01/
+  DATA C2_CSSSM_19/ 3.691E-02,  3.694E-02,  3.729E-02, &
+                 3.796E-02,  3.839E-02,  3.883E-02, &
+                 3.913E-02,  3.931E-02,  3.953E-02, &
+                 4.035E-02,  4.153E-02,  4.263E-02, &
+                 4.400E-02,  4.631E-02,  4.933E-02, &
+                 5.331E-02,  5.734E-02,  6.053E-02,  6.128E-02/
+!SUPER COARSE MODE
+  DATA A1_SSSSM_19/ 2.836E-01,  2.876E-01,  2.563E-01, &
+                 2.414E-01,  2.541E-01,  2.546E-01, &
+                 2.572E-01,  2.638E-01,  2.781E-01, &
+                 3.167E-01,  4.209E-01,  5.286E-01, &
+                 6.959E-01,  9.233E-01,  1.282E+00, &
+                 1.836E+00,  2.981E+00,  4.355E+00,  4.059E+00/
+  DATA A2_SSSSM_19/ 1.608E-01,  1.651E-01,  1.577E-01, &
+                 1.587E-01,  1.686E-01,  1.690E-01, &
+                 1.711E-01,  1.762E-01,  1.874E-01, &
+                 2.138E-01,  2.751E-01,  3.363E-01, &
+                 4.279E-01,  5.519E-01,  7.421E-01, &
+                 1.048E+00,  1.702E+00,  2.485E+00,  2.317E+00/
+  DATA A3_SSSSM_19/-3.025E-03, -3.111E-03, -2.981E-03, &
+                -3.005E-03, -3.193E-03, -3.200E-03, &
+                -3.239E-03, -3.336E-03, -3.548E-03, &
+                -4.047E-03, -5.196E-03, -6.345E-03, &
+                -8.061E-03, -1.038E-02, -1.395E-02, &
+                -1.970E-02, -3.197E-02, -4.669E-02, -4.352E-02/
+  DATA B1_SSSSM_19/ 6.759E-07,  6.246E-07,  5.542E-07, &
+                 4.953E-07,  4.746E-07,  4.738E-07, &
+                 4.695E-07,  4.588E-07,  4.354E-07, &
+                 3.947E-07,  3.461E-07,  3.067E-07, &
+                 2.646E-07,  2.095E-07,  1.481E-07, &
+                 9.024E-08,  5.747E-08,  2.384E-08,  6.599E-09/
+  DATA B2_SSSSM_19/ 5.977E-07,  5.390E-07,  4.468E-07, &
+                 3.696E-07,  3.443E-07,  3.433E-07, &
+                 3.380E-07,  3.249E-07,  2.962E-07, &
+                 2.483E-07,  1.989E-07,  1.623E-07, &
+                 1.305E-07,  9.015E-08,  6.111E-08, &
+                 3.761E-08,  2.903E-08,  2.337E-08,  2.147E-08/
+  DATA C1_SSSSM_19/ 8.120E-01,  8.084E-01,  8.016E-01, &
+                 7.953E-01,  7.929E-01,  7.928E-01, &
+                 7.923E-01,  7.910E-01,  7.882E-01, &
+                 7.834E-01,  7.774E-01,  7.725E-01, &
+                 7.673E-01,  7.604E-01,  7.529E-01, &
+                 7.458E-01,  7.419E-01,  7.379E-01,  7.360E-01/
+  DATA C2_SSSSM_19/ 2.388E-02,  2.392E-02,  2.457E-02,  2.552E-02, &
+                 2.615E-02,  2.618E-02,  2.631E-02,  2.663E-02, &
+                 2.735E-02,  2.875E-02,  3.113E-02,  3.330E-02, &
+                 3.615E-02,  3.997E-02,  4.521E-02,  5.038E-02, &
+                 5.358E-02,  5.705E-02,  5.887E-02/
+!*********************************************************************
+!
+!
+! 
+! 
+!  
+! 
+! From here on we look at the optical parameters at 5 wavelengths:  
+! 443nm, 550, 670, 765 and 865 nm 
+!                                   le 12 AVRIL 2006 
+!  
+ DATA alpha_aers_5wv/ & 
+                                ! bc soluble 
+       7.930,7.930,7.930,7.930,7.930,7.930,     & 
+       7.930,7.930,10.893,12.618,14.550,16.613, & 
+       7.658,7.658,7.658,7.658,7.658,7.658,     & 
+       7.658,7.658,10.351,11.879,13.642,15.510, & 
+       7.195,7.195,7.195,7.195,7.195,7.195,     & 
+       7.195,7.195,9.551,10.847,12.381,13.994,  & 
+       6.736,6.736,6.736,6.736,6.736,6.736,     & 
+       6.736,6.736,8.818,9.938,11.283,12.687,   & 
+       6.277,6.277,6.277,6.277,6.277,6.277,     & 
+       6.277,6.277,8.123,9.094,10.275,11.501,   & 
+                                ! pom soluble 
+       6.676,6.676,6.676,6.676,6.710,6.934,   & 
+       7.141,7.569,8.034,8.529,9.456,10.511,  & 
+       5.109,5.109,5.109,5.109,5.189,5.535,   & 
+       5.960,6.852,8.008,9.712,12.897,19.676, & 
+       3.718,3.718,3.718,3.718,3.779,4.042,   & 
+       4.364,5.052,5.956,7.314,9.896,15.688,  & 
+       2.849,2.849,2.849,2.849,2.897,3.107,   & 
+       3.365,3.916,4.649,5.760,7.900,12.863,  & 
+       2.229,2.229,2.229,2.229,2.268,2.437,   & 
+       2.645,3.095,3.692,4.608,6.391,10.633,  & 
+                                ! Sulfate (Accumulation) 
+       5.751,6.215,6.690,7.024,7.599,8.195,      & 
+       9.156,10.355,12.660,14.823,18.908,24.508, & 
+       4.320,4.675,5.052,5.375,5.787,6.274,      & 
+       7.066,8.083,10.088,12.003,15.697,21.133,  & 
+       3.079,3.351,3.639,3.886,4.205,4.584,      & 
+       5.206,6.019,7.648,9.234,12.391,17.220,    & 
+       2.336,2.552,2.781,2.979,3.236,3.540,      & 
+       4.046,4.711,6.056,7.388,10.093,14.313,    & 
+       1.777,1.949,2.134,2.292,2.503,2.751,      & 
+       3.166,3.712,4.828,5.949,8.264,11.922,     & 
+                                ! Sulfate (Coarse) 
+       5.751,6.215,6.690,7.024,7.599,8.195,      & 
+       9.156,10.355,12.660,14.823,18.908,24.508, & 
+       4.320,4.675,5.052,5.375,5.787,6.274,      & 
+       7.066,8.083,10.088,12.003,15.697,21.133,  & 
+       3.079,3.351,3.639,3.886,4.205,4.584,      & 
+       5.206,6.019,7.648,9.234,12.391,17.220,    & 
+       2.336,2.552,2.781,2.979,3.236,3.540,      & 
+       4.046,4.711,6.056,7.388,10.093,14.313,    & 
+       1.777,1.949,2.134,2.292,2.503,2.751,      & 
+       3.166,3.712,4.828,5.949,8.264,11.922,     & 
+                                ! Seasalt soluble super_coarse (computed below for 550nm) 
+       0.50,0.90,1.05,1.21,1.40,2.41, &  
+       2.66,3.11,3.88,4.52,5.69,8.84, &  
+       0.000,0.000,0.000,0.000,0.000,0.000, &  
+       0.000,0.000,0.000,0.000,0.000,0.000, &  
+     0.52,0.93,1.08,1.24,1.43,2.47, &  
+     2.73,3.20,3.99,4.64,5.84,9.04, &  
+     0.52,0.93,1.09,1.25,1.44,2.50, &  
+     2.76,3.23,4.03,4.68,5.89,9.14, &  
+     0.52,0.94,1.09,1.26,1.45,2.51, &  
+     2.78,3.25,4.06,4.72,5.94,9.22, &  
+                                ! seasalt soluble coarse (computed below for 550nm) 
+       0.50,0.90,1.05,1.21,1.40,2.41, &  
+       2.66,3.11,3.88,4.52,5.69,8.84, &  
+       0.000,0.000,0.000,0.000,0.000,0.000, &  
+       0.000,0.000,0.000,0.000,0.000,0.000, &  
+     0.52,0.93,1.08,1.24,1.43,2.47, &  
+     2.73,3.20,3.99,4.64,5.84,9.04, &  
+     0.52,0.93,1.09,1.25,1.44,2.50, &  
+     2.76,3.23,4.03,4.68,5.89,9.14, &  
+     0.52,0.94,1.09,1.26,1.45,2.51, &  
+     2.78,3.25,4.06,4.72,5.94,9.22, &  
+                                ! seasalt soluble accumulation (computed below for 550nm) 
+     4.28, 7.17, 8.44, 9.85,11.60,22.44,  &  
+     25.34,30.54,39.38,46.52,59.33,91.77, &  
+       0.000,0.000,0.000,0.000,0.000,0.000, &  
+       0.000,0.000,0.000,0.000,0.000,0.000, &  
+     2.48, 4.22, 5.02, 5.94, 7.11,15.29,  &  
+     17.70,22.31,30.73,38.06,52.15,90.59, &  
+     1.90, 3.29, 3.94, 4.69, 5.65, 12.58, &  
+     14.68,18.77,26.41,33.25,46.77,85.50, &  
+     1.47, 2.59, 3.12, 3.74, 4.54, 10.42, &  
+     12.24,15.82,22.66,28.91,41.54,79.33/ 
+
+  DATA alpha_aeri_5wv/ &
+                                 ! dust insoluble 
+        0.759, 0.770, 0.775, 0.775, 0.772, & 
+                                 !!jb bc insoluble 
+        11.536,10.033, 8.422, 7.234, 6.270, & 
+                                 ! pom insoluble 
+        5.042, 3.101, 1.890, 1.294, 0.934/ 
+   ! 
+  DATA cg_aers_5wv/ &  
+                                 ! bc soluble 
+      .651, .651, .651, .651, .651, .651, & 
+      .651, .651, .738, .764, .785, .800, & 
+      .597, .597, .597, .597, .597, .597, & 
+      .597, .597, .695, .725, .751, .770, & 
+      .543, .543, .543, .543, .543, .543, & 
+      .543, .543, .650, .684, .714, .736, &  
+      .504, .504, .504, .504, .504, .504, & 
+      .504, .504, .614, .651, .683, .708, &  
+      .469, .469, .469, .469, .469, .469, & 
+      .469, .469, .582, .620, .655, .681, & 
+                                 ! pom soluble 
+      .679, .679, .679, .679, .683, .691, & 
+      .703, .720, .736, .751, .766, .784, & 
+      .656, .656, .656, .656, .659, .669, & 
+      .681, .699, .717, .735, .750, .779, &  
+      .623, .623, .623, .623, .627, .637, & 
+      .649, .668, .688, .709, .734, .762, & 
+      .592, .592, .592, .592, .595, .605, & 
+      .618, .639, .660, .682, .711, .743, & 
+      .561, .561, .561, .561, .565, .575, & 
+      .588, .609, .632, .656, .688, .724, & 
+                                 ! Accumulation sulfate 
+      .671, .684, .697, .704, .714, .723, & 
+      .734, .746, .762, .771, .781, .789, & 
+      .653, .666, .678, .687, .697, .707, & 
+      .719, .732, .751, .762, .775, .789, & 
+      .622, .635, .648, .657, .667, .678, & 
+      .691, .705, .728, .741, .758, .777, & 
+      .591, .604, .617, .627, .638, .650, & 
+      .664, .679, .704, .719, .739, .761, & 
+      .560, .574, .587, .597, .609, .621, &  
+      .637, .653, .680, .697, .719, .745, & 
+                                 ! Coarse sulfate 
+      .671, .684, .697, .704, .714, .723, & 
+      .734, .746, .762, .771, .781, .789, & 
+      .653, .666, .678, .687, .697, .707, & 
+      .719, .732, .751, .762, .775, .789, & 
+      .622, .635, .648, .657, .667, .678, & 
+      .691, .705, .728, .741, .758, .777, & 
+      .591, .604, .617, .627, .638, .650, & 
+      .664, .679, .704, .719, .739, .761, & 
+      .560, .574, .587, .597, .609, .621, &  
+      .637, .653, .680, .697, .719, .745, & 
+                                 ! For super coarse seasalt (computed below for 550nm!) 
+      0.730,0.753,0.760,0.766,0.772,0.793, &  
+      0.797,0.802,0.809,0.813,0.820,0.830, &  
+      0.000,0.000,0.000,0.000,0.000,0.000, &  
+      0.000,0.000,0.000,0.000,0.000,0.000, &  
+      0.721,0.744,0.750,0.756,0.762,0.784, &  
+      0.787,0.793,0.800,0.804,0.811,0.822, &  
+      0.717,0.741,0.747,0.753,0.759,0.780, &  
+      0.784,0.789,0.795,0.800,0.806,0.817, &  
+      0.715,0.739,0.745,0.751,0.757,0.777, &   
+      0.781,0.786,0.793,0.797,0.803,0.814, &  
+                                 ! For coarse-soluble seasalt (computed below for 550nm!) 
+      0.730,0.753,0.760,0.766,0.772,0.793, &  
+      0.797,0.802,0.809,0.813,0.820,0.830, &  
+      0.000,0.000,0.000,0.000,0.000,0.000, &  
+      0.000,0.000,0.000,0.000,0.000,0.000, &  
+      0.721,0.744,0.750,0.756,0.762,0.784, &  
+      0.787,0.793,0.800,0.804,0.811,0.822, &  
+      0.717,0.741,0.747,0.753,0.759,0.780, &  
+      0.784,0.789,0.795,0.800,0.806,0.817, &  
+      0.715,0.739,0.745,0.751,0.757,0.777, &   
+      0.781,0.786,0.793,0.797,0.803,0.814, &  
+                                 ! accumulation-seasalt soluble (computed below for 550nm!)  
+      0.698,0.722,0.729,0.736,0.743,0.765, &  
+      0.768,0.773,0.777,0.779,0.781,0.779, &  
+      0.000,0.000,0.000,0.000,0.000,0.000, &  
+      0.000,0.000,0.000,0.000,0.000,0.000, &  
+      0.658,0.691,0.701,0.710,0.720,0.756, &  
+      0.763,0.771,0.782,0.788,0.795,0.801, &  
+      0.632,0.668,0.679,0.690,0.701,0.743, &  
+      0.750,0.762,0.775,0.783,0.792,0.804, &  
+      0.605,0.644,0.656,0.669,0.681,0.729, &  
+      0.737,0.750,0.765,0.775,0.787,0.803/
+ !
+
+  DATA cg_aeri_5wv/&
+     ! dust insoluble
+     0.714, 0.697, 0.688, 0.683, 0.679, &
+     ! bc insoluble
+     0.511, 0.445, 0.384, 0.342, 0.307, &
+     !c pom insoluble
+     0.596, 0.536, 0.466, 0.409, 0.359/
+  !
+  DATA piz_aers_5wv/&
+                           ! bc soluble 
+  .445, .445, .445, .445, .445, .445, & 
+  .445, .445, .470, .487, .508, .531, & 
+  .442, .442, .442, .442, .442, .442, & 
+  .442, .442, .462, .481, .506, .533, & 
+  .427, .427, .427, .427, .427, .427, & 
+  .427, .427, .449, .470, .497, .526, & 
+  .413, .413, .413, .413, .413, .413, & 
+  .413, .413, .437, .458, .486, .516, & 
+  .399, .399, .399, .399, .399, .399, & 
+  .399, .399, .423, .445, .473, .506, & 
+                           ! pom soluble 
+  .975, .975, .975, .975, .975, .977, & 
+  .979, .982, .984, .987, .990, .994, & 
+  .972, .972, .972, .972, .973, .974, & 
+  .977, .980, .983, .986, .989, .993, & 
+  .963, .963, .963, .963, .964, .966, & 
+  .969, .974, .977, .982, .986, .991, & 
+  .955, .955, .955, .955, .955, .958, & 
+  .962, .967, .972, .977, .983, .989, & 
+  .944, .944, .944, .944, .944, .948, & 
+  .952, .959, .962, .972, .979, .987, & 
+                           ! sulfate soluble accumulation 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+                           ! sulfate soluble coarse 
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+                           ! seasalt super coarse (computed below for 550nm) 
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, & 
+                           ! seasalt coarse (computed below for 550nm) 
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+                           ! seasalt soluble accumulation (computed below for 550nm) 
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000, &  
+  1.000,1.000,1.000,1.000,1.000,1.000/ 
+
+ !
+  DATA piz_aeri_5wv/&
+     ! dust insoluble
+     0.944, 0.970, 0.977, 0.982, 0.987, &
+     ! bc insoluble
+     0.415, 0.387, 0.355, 0.328, 0.301, &
+     ! pom insoluble
+     0.972, 0.963, 0.943, 0.923, 0.897/
+
+! Interpolation des coefficients optiques de 19 niveaux vers le nombre des niveaux du model
+  IF (firstcall) THEN
+     firstcall=.FALSE.
+! Allocation
+    IF (.NOT. ALLOCATED(A1_ASSSM)) THEN
+        ALLOCATE(A1_ASSSM(klev),A2_ASSSM(klev), A3_ASSSM(klev),&
+          B1_ASSSM(klev), B2_ASSSM(klev), C1_ASSSM(klev), C2_ASSSM(klev),&
+          A1_CSSSM(klev), A2_CSSSM(klev), A3_CSSSM(klev),&
+          B1_CSSSM(klev), B2_CSSSM(klev), C1_CSSSM(klev), C2_CSSSM(klev),&
+          A1_SSSSM(klev), A2_SSSSM(klev), A3_SSSSM(klev),&
+          B1_SSSSM(klev), B2_SSSSM(klev), C1_SSSSM(klev), C2_SSSSM(klev), stat=ierr)
+        IF (ierr /= 0) CALL abort_physic('aeropt_5mw', 'pb in allocation 1',1)
+     END IF
+
+!Accumulation mode
+     CALL pres2lev(A1_ASSSM_19, A1_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_ASSSM_19, A2_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_ASSSM_19, A3_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_ASSSM_19, B1_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_ASSSM_19, B2_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_ASSSM_19, C1_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_ASSSM_19, C2_ASSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+!Coarse mode
+     CALL pres2lev(A1_CSSSM_19, A1_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_CSSSM_19, A2_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_CSSSM_19, A3_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_CSSSM_19, B1_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_CSSSM_19, B2_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_CSSSM_19, C1_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_CSSSM_19, C2_CSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+!Super coarse mode
+     CALL pres2lev(A1_SSSSM_19, A1_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A2_SSSSM_19, A2_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(A3_SSSSM_19, A3_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B1_SSSSM_19, B1_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(B2_SSSSM_19, B2_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C1_SSSSM_19, C1_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+     CALL pres2lev(C2_SSSSM_19, C2_SSSSM, nb_level, klev, presnivs_19, presnivs, 1, 1, .FALSE.)
+
+  END IF ! firstcall
+
+
+  ! Initialisations
+  ai(:) = 0.
+  tausum(:,:,:) = 0.
+
+
+  DO k=1, klev
+    DO i=1, klon
+      zrho=pplay(i,k)/t_seri(i,k)/RD                  ! kg/m3
+      dh(i,k)=pdel(i,k)/(gravit*zrho)
+      mass_temp(i,k,:) = m_allaer(i,k,:) / zrho / 1.e+9
+      zdp1(i,k)=pdel(i,k)/(gravit*delt)     ! air mass auxiliary  variable --> zdp1 [kg/(m^2 *s)]
+
+    ENDDO
+  ENDDO
+
+
+  IF (flag_aerosol .EQ. 1) THEN 
+     nb_aer = 2
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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_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_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_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_phy
+  ELSEIF (flag_aerosol .EQ. 6) THEN 
+     nb_aer = 10
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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
+
+  ! 
+  ! loop over modes, use of precalculated nmd and corresponding sigma
+  !    loop over wavelengths
+  !    for each mass species in mode
+  !      interpolate from Sext to retrieve Sext_at_gridpoint_per_species
+  !      compute optical_thickness_at_gridpoint_per_species
+  
+
+  !
+  ! Calculations that need to be done since we are not in the subroutines INCA
+  !      
+
+!CDIR ON_ADB(RH_tab)
+!CDIR ON_ADB(fact_RH)
+!CDIR NOVECTOR
+  DO n=1,nbre_RH-1
+    fact_RH(n)=1./(RH_tab(n+1)-RH_tab(n))
+  ENDDO
+   
+  DO k=1, KLEV
+!CDIR ON_ADB(RH_tab)
+!CDIR ON_ADB(fact_RH)
+    DO i=1, KLON
+      rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
+      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
+      DELTA(i,k)=(rh(i,k)-RH_tab(RH_num(i,k)))*fact_RH(RH_num(i,k))
+    ENDDO
+  ENDDO
+
+!CDIR SHORTLOOP  
+  used_tau(:)=.FALSE.
+    
+  DO m=1,nb_aer   ! tau is only computed for each mass    
+    fac=1.0
+    IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
+        soluble=.TRUE.
+        spsol=1
+        spss=0
+    ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
+        soluble=.TRUE.
+        spsol=2 
+        spss=0
+    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_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_phy) THEN 
+        soluble=.TRUE.
+        spsol=5
+        spss=3
+    ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
+        soluble=.TRUE.
+        spsol=6
+        spss=2
+    ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
+        soluble=.TRUE.
+        spsol=7
+        spss=1
+    ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
+        soluble=.FALSE.
+        spinsol=1
+        spss=0
+    ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
+        soluble=.FALSE.
+        spinsol=2
+        spss=0
+    ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
+        soluble=.FALSE.
+        spinsol=3
+        spss=0
+    ELSE 
+        CYCLE
+    ENDIF
+
+    IF (soluble) then
+      used_tau(spsol)=.TRUE.
+    ELSE
+      used_tau(naero_soluble+spinsol)=.TRUE.
+    ENDIF
+
+    aerindex=aerosol_name(m)
+
+    DO la=1,las
+
+      IF (soluble) THEN
+
+        IF((la.EQ.2).AND.(spss.NE.0)) THEN !la=2 corresponds to 550 nm
+          IF (spss.EQ.1) THEN !accumulation mode
+            DO k=1, KLEV
+!CDIR ON_ADB(A1_ASSSM)
+!CDIR ON_ADB(A2_ASSSM)
+!CDIR ON_ADB(A3_ASSSM)
+              DO i=1, KLON
+                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,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
+          ENDIF
+  
+          IF (spss.EQ.2) THEN !coarse mode
+            DO k=1, KLEV
+!CDIR ON_ADB(A1_CSSSM)
+!CDIR ON_ADB(A2_CSSSM)
+!CDIR ON_ADB(A3_CSSSM)
+              DO i=1, KLON
+                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,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
+          ENDIF
+
+          IF (spss.EQ.3) THEN !super coarse mode
+            DO k=1, KLEV
+!CDIR ON_ADB(A1_SSSSM)
+!CDIR ON_ADB(A2_SSSSM)
+!CDIR ON_ADB(A3_SSSSM)
+              DO i=1, KLON
+                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,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
+          ENDIF
+
+        ELSE
+          DO k=1, KLEV
+!CDIR ON_ADB(alpha_aers_5wv)
+            DO i=1, KLON
+              tau_ae5wv_int = alpha_aers_5wv(RH_num(i,k),la,spsol)+DELTA(i,k)* &
+                             (alpha_aers_5wv(RH_num(i,k)+1,la,spsol) - & 
+                              alpha_aers_5wv(RH_num(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
+        ENDIF
+
+      ELSE                                                  ! For insoluble aerosol
+        DO k=1, KLEV
+!CDIR ON_ADB(alpha_aeri_5wv)
+          DO i=1, KLON
+            tau_ae5wv_int = alpha_aeri_5wv(la,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
+      ENDIF
+    ENDDO   ! boucle sur les longueurs d'onde
+  ENDDO     ! Boucle  sur les masses de traceurs
+
+  DO m=1,naero_spc
+    IF (.NOT.used_tau(m)) tau(:,:,:,m)=0.
+  ENDDO  
+!
+!
+!  taue670(:) = SUM(tausum(:,la670,:),dim=2) 
+!  taue865(:) = SUM(tausum(:,la865,:),dim=2) 
+!
+!  DO i=1, klon
+!    ai(i)=-LOG(MAX(taue670(i),0.0001)/ &
+!       MAX(taue865(i),0.0001))/LOG(670./865.)
+!  ENDDO
+
+  DO i=1, klon
+     od550aer(i)=0.
+     DO m=1,naero_spc
+        od550aer(i)=od550aer(i)+tausum(i,2,m)
+     ENDDO
+  ENDDO
+
+  DO i=1, klon
+     od865aer(i)=0.
+     DO m=1,naero_spc
+        od865aer(i)=od865aer(i)+tausum(i,5,m)
+     ENDDO
+  ENDDO
+
+  DO i=1, klon
+     DO k=1, KLEV
+        ec550aer(i,k)=0.
+        DO m=1,naero_spc
+           ec550aer(i,k)=ec550aer(i,k)+tau(i,k,2,m)/dh(i,k)
+        ENDDO
+     ENDDO
+  ENDDO
+  
+   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)
+
+  DEALLOCATE(aerosol_name) 
+  
+END SUBROUTINE AEROPT_5WV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ajsec.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ajsec.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ajsec.F90	(revision 3330)
@@ -0,0 +1,397 @@
+
+! $Header$
+
+SUBROUTINE ajsec(paprs, pplay, t, q, limbas, d_t, d_q)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: ajustement sec (adaptation du GCM du LMD)
+  ! ======================================================================
+  ! Arguments:
+  ! t-------input-R- Temperature
+
+  ! d_t-----output-R-Incrementation de la temperature
+  ! ======================================================================
+  include "YOMCST.h"
+  REAL paprs(klon, klev+1), pplay(klon, klev)
+  REAL t(klon, klev), q(klon, klev)
+  REAL d_t(klon, klev), d_q(klon, klev)
+
+  INTEGER limbas(klon), limhau ! les couches a ajuster
+
+  LOGICAL mixq
+  ! cc      PARAMETER (mixq=.TRUE.)
+  PARAMETER (mixq=.FALSE.)
+
+  REAL zh(klon, klev)
+  REAL zho(klon, klev)
+  REAL zq(klon, klev)
+  REAL zpk(klon, klev)
+  REAL zpkdp(klon, klev)
+  REAL hm, sm, qm
+  LOGICAL modif(klon), down
+  INTEGER i, k, k1, k2
+
+  ! Initialisation:
+
+  ! ym
+  limhau = klev
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+    END DO
+  END DO
+  ! ------------------------------------- detection des profils a modifier
+  DO k = 1, limhau
+    DO i = 1, klon
+      zpk(i, k) = pplay(i, k)**rkappa
+      zh(i, k) = rcpd*t(i, k)/zpk(i, k)
+      zho(i, k) = zh(i, k)
+      zq(i, k) = q(i, k)
+    END DO
+  END DO
+
+  DO k = 1, limhau
+    DO i = 1, klon
+      zpkdp(i, k) = zpk(i, k)*(paprs(i,k)-paprs(i,k+1))
+    END DO
+  END DO
+
+  DO i = 1, klon
+    modif(i) = .FALSE.
+  END DO
+  DO k = 2, limhau
+    DO i = 1, klon
+      IF (.NOT. modif(i) .AND. k-1>limbas(i)) THEN
+        IF (zh(i,k)<zh(i,k-1)) modif(i) = .TRUE.
+      END IF
+    END DO
+  END DO
+  ! ------------------------------------- correction des profils instables
+  DO i = 1, klon
+    IF (modif(i)) THEN
+      k2 = limbas(i)
+8000  CONTINUE
+      k2 = k2 + 1
+      IF (k2>limhau) GO TO 8001
+      IF (zh(i,k2)<zh(i,k2-1)) THEN
+        k1 = k2 - 1
+        k = k1
+        sm = zpkdp(i, k2)
+        hm = zh(i, k2)
+        qm = zq(i, k2)
+8020    CONTINUE
+        sm = sm + zpkdp(i, k)
+        hm = hm + zpkdp(i, k)*(zh(i,k)-hm)/sm
+        qm = qm + zpkdp(i, k)*(zq(i,k)-qm)/sm
+        down = .FALSE.
+        IF (k1/=limbas(i)) THEN
+          IF (hm<zh(i,k1-1)) down = .TRUE.
+        END IF
+        IF (down) THEN
+          k1 = k1 - 1
+          k = k1
+        ELSE
+          IF ((k2==limhau)) GO TO 8021
+          IF ((zh(i,k2+1)>=hm)) GO TO 8021
+          k2 = k2 + 1
+          k = k2
+        END IF
+        GO TO 8020
+8021    CONTINUE
+        ! ------------ nouveau profil : constant (valeur moyenne)
+        DO k = k1, k2
+          zh(i, k) = hm
+          zq(i, k) = qm
+        END DO
+        k2 = k2 + 1
+      END IF
+      GO TO 8000
+8001  CONTINUE
+    END IF
+  END DO
+
+  DO k = 1, limhau
+    DO i = 1, klon
+      d_t(i, k) = (zh(i,k)-zho(i,k))*zpk(i, k)/rcpd
+      d_q(i, k) = zq(i, k) - q(i, k)
+    END DO
+  END DO
+
+  ! FH : les d_q et d_t sont maintenant calcules de facon a valoir
+  ! effectivement 0. si on ne fait rien.
+
+  ! IF (limbas.GT.1) THEN
+  ! DO k = 1, limbas-1
+  ! DO i = 1, klon
+  ! d_t(i,k) = 0.0
+  ! d_q(i,k) = 0.0
+  ! ENDDO
+  ! ENDDO
+  ! ENDIF
+
+  ! IF (limhau.LT.klev) THEN
+  ! DO k = limhau+1, klev
+  ! DO i = 1, klon
+  ! d_t(i,k) = 0.0
+  ! d_q(i,k) = 0.0
+  ! ENDDO
+  ! ENDDO
+  ! ENDIF
+
+  IF (.NOT. mixq) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        d_q(i, k) = 0.0
+      END DO
+    END DO
+  END IF
+
+  RETURN
+END SUBROUTINE ajsec
+
+SUBROUTINE ajsec_convv2(paprs, pplay, t, q, d_t, d_q)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: ajustement sec (adaptation du GCM du LMD)
+  ! ======================================================================
+  ! Arguments:
+  ! t-------input-R- Temperature
+
+  ! d_t-----output-R-Incrementation de la temperature
+  ! ======================================================================
+  include "YOMCST.h"
+  REAL paprs(klon, klev+1), pplay(klon, klev)
+  REAL t(klon, klev), q(klon, klev)
+  REAL d_t(klon, klev), d_q(klon, klev)
+
+  INTEGER limbas, limhau ! les couches a ajuster
+  ! cc      PARAMETER (limbas=klev-3, limhau=klev)
+  ! ym      PARAMETER (limbas=1, limhau=klev)
+
+  LOGICAL mixq
+  ! cc      PARAMETER (mixq=.TRUE.)
+  PARAMETER (mixq=.FALSE.)
+
+  REAL zh(klon, klev)
+  REAL zq(klon, klev)
+  REAL zpk(klon, klev)
+  REAL zpkdp(klon, klev)
+  REAL hm, sm, qm
+  LOGICAL modif(klon), down
+  INTEGER i, k, k1, k2
+
+  ! Initialisation:
+
+  ! ym
+  limbas = 1
+  limhau = klev
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+    END DO
+  END DO
+  ! ------------------------------------- detection des profils a modifier
+  DO k = limbas, limhau
+    DO i = 1, klon
+      zpk(i, k) = pplay(i, k)**rkappa
+      zh(i, k) = rcpd*t(i, k)/zpk(i, k)
+      zq(i, k) = q(i, k)
+    END DO
+  END DO
+
+  DO k = limbas, limhau
+    DO i = 1, klon
+      zpkdp(i, k) = zpk(i, k)*(paprs(i,k)-paprs(i,k+1))
+    END DO
+  END DO
+
+  DO i = 1, klon
+    modif(i) = .FALSE.
+  END DO
+  DO k = limbas + 1, limhau
+    DO i = 1, klon
+      IF (.NOT. modif(i)) THEN
+        IF (zh(i,k)<zh(i,k-1)) modif(i) = .TRUE.
+      END IF
+    END DO
+  END DO
+  ! ------------------------------------- correction des profils instables
+  DO i = 1, klon
+    IF (modif(i)) THEN
+      k2 = limbas
+8000  CONTINUE
+      k2 = k2 + 1
+      IF (k2>limhau) GO TO 8001
+      IF (zh(i,k2)<zh(i,k2-1)) THEN
+        k1 = k2 - 1
+        k = k1
+        sm = zpkdp(i, k2)
+        hm = zh(i, k2)
+        qm = zq(i, k2)
+8020    CONTINUE
+        sm = sm + zpkdp(i, k)
+        hm = hm + zpkdp(i, k)*(zh(i,k)-hm)/sm
+        qm = qm + zpkdp(i, k)*(zq(i,k)-qm)/sm
+        down = .FALSE.
+        IF (k1/=limbas) THEN
+          IF (hm<zh(i,k1-1)) down = .TRUE.
+        END IF
+        IF (down) THEN
+          k1 = k1 - 1
+          k = k1
+        ELSE
+          IF ((k2==limhau)) GO TO 8021
+          IF ((zh(i,k2+1)>=hm)) GO TO 8021
+          k2 = k2 + 1
+          k = k2
+        END IF
+        GO TO 8020
+8021    CONTINUE
+        ! ------------ nouveau profil : constant (valeur moyenne)
+        DO k = k1, k2
+          zh(i, k) = hm
+          zq(i, k) = qm
+        END DO
+        k2 = k2 + 1
+      END IF
+      GO TO 8000
+8001  CONTINUE
+    END IF
+  END DO
+
+  DO k = limbas, limhau
+    DO i = 1, klon
+      d_t(i, k) = zh(i, k)*zpk(i, k)/rcpd - t(i, k)
+      d_q(i, k) = zq(i, k) - q(i, k)
+    END DO
+  END DO
+
+  IF (limbas>1) THEN
+    DO k = 1, limbas - 1
+      DO i = 1, klon
+        d_t(i, k) = 0.0
+        d_q(i, k) = 0.0
+      END DO
+    END DO
+  END IF
+
+  IF (limhau<klev) THEN
+    DO k = limhau + 1, klev
+      DO i = 1, klon
+        d_t(i, k) = 0.0
+        d_q(i, k) = 0.0
+      END DO
+    END DO
+  END IF
+
+  IF (.NOT. mixq) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        d_q(i, k) = 0.0
+      END DO
+    END DO
+  END IF
+
+  RETURN
+END SUBROUTINE ajsec_convv2
+SUBROUTINE ajsec_old(paprs, pplay, t, d_t)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: ajustement sec (adaptation du GCM du LMD)
+  ! ======================================================================
+  ! Arguments:
+  ! t-------input-R- Temperature
+
+  ! d_t-----output-R-Incrementation de la temperature
+  ! ======================================================================
+  include "YOMCST.h"
+  REAL paprs(klon, klev+1), pplay(klon, klev)
+  REAL t(klon, klev)
+  REAL d_t(klon, klev)
+
+  REAL local_h(klon, klev)
+  REAL hm, sm
+  LOGICAL modif(klon), down
+  INTEGER i, l, l1, l2
+  ! ------------------------------------- detection des profils a modifier
+  DO i = 1, klon
+    modif(i) = .FALSE.
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      local_h(i, l) = rcpd*t(i, l)/(pplay(i,l)**rkappa)
+    END DO
+  END DO
+
+  DO l = 2, klev
+    DO i = 1, klon
+      IF (local_h(i,l)<local_h(i,l-1)) THEN
+        modif(i) = .TRUE.
+      ELSE
+        modif(i) = modif(i)
+      END IF
+    END DO
+  END DO
+  ! ------------------------------------- correction des profils instables
+  DO i = 1, klon
+    IF (modif(i)) THEN
+      l2 = 1
+8000  CONTINUE
+      l2 = l2 + 1
+      IF (l2>klev) GO TO 8001
+      IF (local_h(i,l2)<local_h(i,l2-1)) THEN
+        l1 = l2 - 1
+        l = l1
+        sm = pplay(i, l2)**rkappa*(paprs(i,l2)-paprs(i,l2+1))
+        hm = local_h(i, l2)
+8020    CONTINUE
+        sm = sm + pplay(i, l)**rkappa*(paprs(i,l)-paprs(i,l+1))
+        hm = hm + pplay(i, l)**rkappa*(paprs(i,l)-paprs(i,l+1))*(local_h(i,l) &
+          -hm)/sm
+        down = .FALSE.
+        IF (l1/=1) THEN
+          IF (hm<local_h(i,l1-1)) THEN
+            down = .TRUE.
+          END IF
+        END IF
+        IF (down) THEN
+          l1 = l1 - 1
+          l = l1
+        ELSE
+          IF ((l2==klev)) GO TO 8021
+          IF ((local_h(i,l2+1)>=hm)) GO TO 8021
+          l2 = l2 + 1
+          l = l2
+        END IF
+        GO TO 8020
+8021    CONTINUE
+        ! ------------ nouveau profil : constant (valeur moyenne)
+        DO l = l1, l2
+          local_h(i, l) = hm
+        END DO
+        l2 = l2 + 1
+      END IF
+      GO TO 8000
+8001  CONTINUE
+    END IF
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      d_t(i, l) = local_h(i, l)*(pplay(i,l)**rkappa)/rcpd - t(i, l)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE ajsec_old
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/albedo.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/albedo.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/albedo.F90	(revision 3330)
@@ -0,0 +1,161 @@
+! $Id$
+module albedo
+
+  IMPLICIT NONE
+
+contains
+
+  SUBROUTINE alboc(rjour, rlat, albedo)
+    USE dimphy
+    ! ======================================================================
+    ! Auteur(s): Z.X. Li (LMD/CNRS) (adaptation du GCM du LMD)
+    ! Date: le 16 mars 1995
+    ! Objet: Calculer l'albedo sur l'ocean
+    ! Methode: Integrer numeriquement l'albedo pendant une journee
+
+    ! Arguments;
+    ! rjour (in,R)  : jour dans l'annee (a compter du 1 janvier)
+    ! rlat (in,R)   : latitude en degre
+    ! albedo (out,R): albedo obtenu (de 0 a 1)
+    ! ======================================================================
+    include "YOMCST.h"
+    include "clesphys.h"
+
+    INTEGER npts ! il controle la precision de l'integration
+    PARAMETER (npts=120) ! 120 correspond a l'interval 6 minutes
+
+    REAL rlat(klon), rjour, albedo(klon)
+    REAL zdist, zlonsun, zpi, zdeclin
+    REAL rmu, alb, srmu, salb, fauxo, aa, bb
+    INTEGER i, k
+    ! ccIM
+    LOGICAL ancien_albedo
+    PARAMETER (ancien_albedo=.FALSE.)
+    ! SAVE albedo
+
+    IF (ancien_albedo) THEN
+
+       zpi = 4.*atan(1.)
+
+       ! Calculer la longitude vraie de l'orbite terrestre:
+       CALL orbite(rjour, zlonsun, zdist)
+
+       ! Calculer la declinaison du soleil (qui varie entre + et - R_incl):
+       zdeclin = asin(sin(zlonsun*zpi/180.0)*sin(r_incl*zpi/180.0))
+
+       DO i = 1, klon
+          aa = sin(rlat(i)*zpi/180.0)*sin(zdeclin)
+          bb = cos(rlat(i)*zpi/180.0)*cos(zdeclin)
+
+          ! Midi local (angle du temps = 0.0):
+          rmu = aa + bb*cos(0.0)
+          rmu = max(0.0, rmu)
+          fauxo = (1.47-acos(rmu))/.15
+          alb = 0.03 + 0.630/(1.+fauxo*fauxo)
+          srmu = rmu
+          salb = alb*rmu
+
+          ! Faire l'integration numerique de midi a minuit (le facteur 2
+          ! prend en compte l'autre moitie de la journee):
+          DO k = 1, npts
+             rmu = aa + bb*cos(real(k)/real(npts)*zpi)
+             rmu = max(0.0, rmu)
+             fauxo = (1.47-acos(rmu))/.15
+             alb = 0.03 + 0.630/(1.+fauxo*fauxo)
+             srmu = srmu + rmu*2.0
+             salb = salb + alb*rmu*2.0
+          END DO
+          IF (srmu/=0.0) THEN
+             albedo(i) = salb/srmu
+          ELSE ! nuit polaire (on peut prendre une valeur quelconque)
+             albedo(i) = 1.0
+          END IF
+       END DO
+
+       ! nouvel albedo
+
+    ELSE
+
+       zpi = 4.*atan(1.)
+
+       ! Calculer la longitude vraie de l'orbite terrestre:
+       CALL orbite(rjour, zlonsun, zdist)
+
+       ! Calculer la declinaison du soleil (qui varie entre + et - R_incl):
+       zdeclin = asin(sin(zlonsun*zpi/180.0)*sin(r_incl*zpi/180.0))
+
+       DO i = 1, klon
+          aa = sin(rlat(i)*zpi/180.0)*sin(zdeclin)
+          bb = cos(rlat(i)*zpi/180.0)*cos(zdeclin)
+
+          ! Midi local (angle du temps = 0.0):
+          rmu = aa + bb*cos(0.0)
+          rmu = max(0.0, rmu)
+          ! IM cf. PB  alb = 0.058/(rmu + 0.30)
+          ! alb = 0.058/(rmu + 0.30) * 1.5
+          alb = 0.058/(rmu+0.30)*1.2
+          ! alb = 0.058/(rmu + 0.30) * 1.3
+          srmu = rmu
+          salb = alb*rmu
+
+          ! Faire l'integration numerique de midi a minuit (le facteur 2
+          ! prend en compte l'autre moitie de la journee):
+          DO k = 1, npts
+             rmu = aa + bb*cos(real(k)/real(npts)*zpi)
+             rmu = max(0.0, rmu)
+             ! IM cf. PB      alb = 0.058/(rmu + 0.30)
+             ! alb = 0.058/(rmu + 0.30) * 1.5
+             alb = 0.058/(rmu+0.30)*1.2
+             ! alb = 0.058/(rmu + 0.30) * 1.3
+             srmu = srmu + rmu*2.0
+             salb = salb + alb*rmu*2.0
+          END DO
+          IF (srmu/=0.0) THEN
+             albedo(i) = salb/srmu
+          ELSE ! nuit polaire (on peut prendre une valeur quelconque)
+             albedo(i) = 1.0
+          END IF
+       END DO
+    END IF
+    RETURN
+  END SUBROUTINE alboc
+  ! =====================================================================
+  SUBROUTINE alboc_cd(rmu0, albedo)
+    USE dimphy
+
+    ! Auteur(s): Z.X. Li (LMD/CNRS)
+    ! date: 19940624
+    ! Calculer l'albedo sur l'ocean en fonction de l'angle zenithal moyen
+    ! Formule due a Larson and Barkstrom (1977) Proc. of the symposium
+    ! on radiation in the atmosphere, 19-28 August 1976, science Press,
+    ! 1977 pp 451-453, ou These de 3eme cycle de Sylvie Joussaume.
+
+    ! Arguments
+    ! rmu0    (in): cosinus de l'angle solaire zenithal
+    ! albedo (out): albedo de surface de l'ocean
+    ! ======================================================================
+    include "clesphys.h"
+    REAL, intent(in):: rmu0(klon)
+    real, intent(out):: albedo(klon)
+
+    REAL fauxo
+    INTEGER i
+    LOGICAL ancien_albedo
+    PARAMETER (ancien_albedo=.FALSE.)
+
+    IF (ancien_albedo) THEN
+       DO i = 1, klon
+          fauxo = (1.47-acos(max(rmu0(i), 0.0)))/0.15
+          albedo(i) = 0.03+.630/(1.+fauxo*fauxo)
+          albedo(i) = max(min(albedo(i),0.60), 0.04)
+       END DO
+    ELSE
+       DO i = 1, klon
+          albedo(i) = 0.058/(max(rmu0(i), 0.0)+0.30)
+          albedo(i) = max(min(albedo(i),0.60), 0.04)
+       END DO
+    END IF
+
+  END SUBROUTINE alboc_cd
+
+end module albedo
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/albsno.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/albsno.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/albsno.F90	(revision 3330)
@@ -0,0 +1,62 @@
+!
+! $Header$
+!
+SUBROUTINE albsno(klon, knon, dtime, agesno, alb_neig_grid, precip_snow)
+
+  IMPLICIT NONE
+
+  INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+  INTEGER, INTENT(IN)                  :: klon, knon
+  REAL, INTENT(IN)                     :: dtime
+  REAL, DIMENSION(klon), INTENT(IN)    :: precip_snow
+
+! In/Output arguments
+!****************************************************************************************
+  REAL, DIMENSION(klon), INTENT(INOUT) :: agesno
+
+! Output arguments
+!****************************************************************************************
+  REAL, DIMENSION(klon), INTENT(OUT)   :: alb_neig_grid
+
+! Local variables
+!****************************************************************************************
+  INTEGER                              :: i, nv
+  INTEGER, PARAMETER                   :: nvm = 8 
+  REAL                                 :: as
+  REAL, DIMENSION(klon,nvm)            :: veget
+  REAL, DIMENSION(nvm),SAVE            :: init, decay
+  !$OMP THREADPRIVATE(init, decay)
+
+  DATA init /0.55, 0.14, 0.18, 0.29, 0.15, 0.15, 0.14, 0./
+  DATA decay/0.30, 0.67, 0.63, 0.45, 0.40, 0.14, 0.06, 1./
+!****************************************************************************************
+
+  if (albsno0>=0.) then
+     init(:)=albsno0
+     decay(:)=0.
+  endif
+
+  veget = 0.
+  veget(:,1) = 1.     ! desert partout
+  DO i = 1, knon
+     alb_neig_grid(i) = 0.0
+  ENDDO
+  DO nv = 1, nvm
+     DO i = 1, knon
+        as = init(nv)+decay(nv)*EXP(-agesno(i)/5.)
+        alb_neig_grid(i) = alb_neig_grid(i) + veget(i,nv)*as
+     ENDDO
+  ENDDO
+  
+
+! modilation en fonction de l'age de la neige
+  DO i = 1, knon
+     agesno(i)  = (agesno(i) + (1.-agesno(i)/50.)*dtime/86400.)&
+          &             * EXP(-1.*MAX(0.0,precip_snow(i))*dtime/0.3)
+     agesno(i) =  MAX(agesno(i),0.0)
+  ENDDO
+  
+END SUBROUTINE albsno
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/alpale.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/alpale.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/alpale.F90	(revision 3330)
@@ -0,0 +1,197 @@
+SUBROUTINE alpale ( debut, itap, dtime, paprs, omega, t_seri,   &
+                    alp_offset, it_wape_prescr,  wape_prescr, fip_prescr, &
+                    ale_bl_prescr, alp_bl_prescr, &
+                    wake_pe, wake_fip,  &
+                    Ale_bl, Ale_bl_trig, Alp_bl, &
+                    Ale, Alp, Ale_wake, Alp_wake )
+
+! **************************************************************
+! *
+! ALPALE                                                       *
+! *
+! *
+! written by   : Jean-Yves Grandpeix, 12/05/2016              *
+! modified by :                                               *
+! **************************************************************
+
+  USE dimphy
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
+  USE phys_local_var_mod, ONLY: zw2       ! Variables internes non sauvegardees de la physique
+!
+  IMPLICIT NONE
+
+!================================================================
+! Auteur(s)   : Jean-Yves Grandpeix, 12/05/2016
+! Objet : Sums up all contributions to Ale and Alp
+!================================================================
+
+! Input arguments
+!----------------
+  LOGICAL, INTENT(IN)                                        :: debut
+  INTEGER, INTENT(IN)                                        :: itap
+  REAL, INTENT(IN)                                           :: dtime
+  INTEGER, INTENT(IN)                                        :: it_wape_prescr
+  REAL, INTENT(IN)                                           :: wape_prescr, fip_prescr
+  REAL, INTENT(IN)                                           :: Ale_bl_prescr, Alp_bl_prescr
+  REAL, INTENT(IN)                                           :: alp_offset
+  REAL, DIMENSION(klon,klev+1), INTENT(IN)                   :: paprs
+  REAL, DIMENSION(klon,klev), INTENT(IN)                     :: t_seri
+  REAL, DIMENSION(klon,klev), INTENT(IN)                     :: omega
+  REAL, DIMENSION(klon), INTENT(IN)                          :: wake_pe, wake_fip
+  REAL, DIMENSION(klon), INTENT(IN)                          :: Ale_bl, Ale_bl_trig, Alp_bl
+
+
+! Output arguments
+!----------------
+  REAL, DIMENSION(klon), INTENT(OUT)                         :: Ale, Alp
+  REAL, DIMENSION(klon), INTENT(OUT)                         :: Ale_wake, Alp_wake
+
+  include "thermcell.h"
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+! Local variables
+!----------------
+  INTEGER                                                    :: i, k
+  REAL, DIMENSION(klon)                                      :: www
+  REAL, SAVE                                                 :: ale_max=1000.
+  REAL, SAVE                                                 :: alp_max=2.
+  CHARACTER*20 modname
+  CHARACTER*80 abort_message
+
+
+    !$OMP THREADPRIVATE(ale_max,alp_max)
+
+       ! 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
+          ALE(i) = 0.
+          ALP(i) = 0.
+       enddo
+       !
+       !calcul de ale_wake et alp_wake
+       if (iflag_wake>=1) then
+          if (itap .le. it_wape_prescr) then
+             do i = 1,klon
+                ale_wake(i) = wape_prescr
+                alp_wake(i) = fip_prescr
+             enddo
+          else
+             do i = 1,klon
+                !jyg  ALE=WAPE au lieu de ALE = 1/2 Cstar**2
+                !cc           ale_wake(i) = 0.5*wake_cstar(i)**2
+                ale_wake(i) = wake_pe(i)
+                alp_wake(i) = wake_fip(i)
+             enddo
+          endif
+       else
+          do i = 1,klon
+             ale_wake(i) = 0.
+             alp_wake(i) = 0.
+          enddo
+       endif
+       !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) &
+               WRITE(lunout,*)'ALE et ALP imposes'
+          do i = 1,klon
+             !on ne couple que ale
+             !           ALE(i) = max(ale_wake(i),Ale_bl(i))
+             ALE(i) = max(ale_wake(i),ale_bl_prescr)
+             !on ne couple que alp
+             !           ALP(i) = alp_wake(i) + Alp_bl(i)
+             ALP(i) = alp_wake(i) + alp_bl_prescr
+          enddo
+       else
+          IF(prt_level>9)WRITE(lunout,*)'ALE et ALP couples au thermique'
+          !         do i = 1,klon
+          !             ALE(i) = max(ale_wake(i),Ale_bl(i))
+          ! avant        ALP(i) = alp_wake(i) + Alp_bl(i)
+          !             ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
+          !         write(20,*)'ALE',ALE(i),Ale_bl(i),ale_wake(i)
+          !         write(21,*)'ALP',ALP(i),Alp_bl(i),alp_wake(i)
+          !         enddo
+
+          ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          ! Modif FH 2010/04/27. Sans doute temporaire.
+          ! Deux options pour le alp_offset : constant si >?? 0 ou
+          ! proportionnel ??a w si <0
+          ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          ! Estimation d'une vitesse verticale effective pour ALP
+          if (1==0) THEN
+             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 = 1e4 / 1e5
+                enddo
+             enddo
+             do i=1,klon
+                if (www(i)>0. .and. ale_bl(i)>0. ) www(i)=www(i)/ale_bl(i)
+             enddo
+          ENDIF
+
+
+          do i = 1,klon
+             ALE(i) = max(ale_wake(i),Ale_bl(i))
+             !cc nrlmd le 10/04/2012----------Stochastic triggering------------
+             if (iflag_trig_bl.ge.1) then
+                ALE(i) = max(ale_wake(i),Ale_bl_trig(i))
+             endif
+             !cc fin nrlmd le 10/04/2012
+             if (alp_offset>=0.) then
+                ALP(i) = alp_wake(i) + Alp_bl(i) + alp_offset ! modif sb
+             else
+                abort_message ='Ne pas passer la car www non calcule'
+                CALL abort_physic (modname,abort_message,1)
+
+                ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+                !                                _                  _
+                ! 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
+       do i=1,klon
+          if (alp(i)>alp_max) then
+             IF(prt_level>9)WRITE(lunout,*)                             &
+                  'WARNING SUPER ALP (seuil=',alp_max, &
+                  '): i, alp, alp_wake,ale',i,alp(i),alp_wake(i),ale(i)
+             alp(i)=alp_max
+          endif
+          if (ale(i)>ale_max) then
+             IF(prt_level>9)WRITE(lunout,*)                             &
+                  'WARNING SUPER ALE (seuil=',ale_max, &
+                  '): i, alp, alp_wake,ale',i,ale(i),ale_wake(i),alp(i)
+             ale(i)=ale_max
+          endif
+       enddo
+
+       !fin calcul ale et alp
+       !=======================================================================
+
+
+  RETURN
+  END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/alpale_th.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/alpale_th.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/alpale_th.F90	(revision 3330)
@@ -0,0 +1,301 @@
+SUBROUTINE alpale_th ( dtime, lmax_th, t_seri, cell_area,  &
+                       cin, s2, n2,  &
+                       ale_bl_trig, ale_bl_stat, ale_bl,  &
+                       alp_bl, alp_bl_stat, &
+                       proba_notrig, random_notrig)
+
+! **************************************************************
+! *
+! ALPALE_TH                                                    *
+! *
+! *
+! written by   : Jean-Yves Grandpeix, 11/05/2016              *
+! modified by :                                               *
+! **************************************************************
+
+  USE dimphy
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
+!
+  IMPLICIT NONE
+
+!================================================================
+! Auteur(s)   : Jean-Yves Grandpeix, 11/05/2016
+! Objet : Contribution of the thermal scheme to Ale and Alp
+!================================================================
+
+! Input arguments
+!----------------
+  REAL, INTENT(IN)                                           :: dtime
+  REAL, DIMENSION(klon), INTENT(IN)                          :: cell_area
+  INTEGER, DIMENSION(klon), INTENT(IN)                       :: lmax_th
+  REAL, DIMENSION(klon,klev), INTENT(IN)                     :: t_seri
+  REAL, DIMENSION(klon), INTENT(IN)                          :: ale_bl_stat
+  REAL, DIMENSION(klon), INTENT(IN)                          :: cin
+  REAL, DIMENSION(klon), INTENT(IN)                          :: s2, n2
+                                                                
+  REAL, DIMENSION(klon), INTENT(INOUT)                       :: ale_bl_trig, ale_bl
+  REAL, DIMENSION(klon), INTENT(INOUT)                       :: alp_bl
+  REAL, DIMENSION(klon), INTENT(INOUT)                       :: alp_bl_stat
+
+  REAL, DIMENSION(klon), INTENT(OUT)                         :: proba_notrig, random_notrig
+
+  include "thermcell.h"
+
+! Local variables
+!----------------
+  INTEGER                                                    :: i
+  LOGICAL, SAVE                                              :: first = .TRUE.
+  REAL, SAVE                                                 :: random_notrig_max=1.
+  REAL, SAVE                                                 :: cv_feed_area
+  REAL                                                       :: birth_number
+  REAL, DIMENSION(klon)                                      :: ale_bl_ref
+  REAL, DIMENSION(klon)                                      :: tau_trig
+  REAL, DIMENSION(klon)                                      :: birth_rate
+!
+    !$OMP THREADPRIVATE(random_notrig_max) 
+    !$OMP THREADPRIVATE(cv_feed_area) 
+    !$OMP THREADPRIVATE(first)
+!
+ REAL umexp  ! expression of (1.-exp(-x))/x valid for all x, especially when x->0
+ REAL x
+ umexp(x) = max(sign(1.,x-1.e-3),0.)*(1.-exp(-x))/max(x,1.e-3) + &
+            (1.-max(sign(1.,x-1.e-3),0.))*(1.-0.5*x*(1.-x/3.*(1.-0.25*x)))
+!
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!  JYG, 20160513 : Introduction of the Effective Lifting Power (ELP), which 
+! takes into account the area (cv_feed_area) covered by thermals contributing 
+! to each cumulonimbus.
+!   The use of ELP prevents singularities when the trigger probability tends to
+! zero. It is activated by iflag_clos_bl = 3.
+!   The ELP values are stored in the ALP_bl variable.
+!   
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+!---------------------------------------
+  IF (iflag_clos_bl .LT. 3) THEN
+!---------------------------------------
+!
+!      Original code (Nicolas Rochetin)
+!     --------------------------------
+
+    IF (first) THEN
+       random_notrig_max=1.
+       CALL getin_p('random_notrig_max',random_notrig_max)
+       first=.FALSE.
+    ENDIF
+          !cc nrlmd le 10/04/2012
+          !-----------Stochastic triggering-----------
+          if (iflag_trig_bl.ge.1) then
+             !
+             IF (prt_level .GE. 10) THEN
+                print *,'cin, ale_bl_stat, alp_bl_stat ', &
+                     cin, ale_bl_stat, alp_bl_stat
+             ENDIF
+
+
+             !----Initialisations
+             do i=1,klon
+                proba_notrig(i)=1.
+                random_notrig(i)=1e6*ale_bl_stat(i)-int(1e6*ale_bl_stat(i))
+                if ( random_notrig(i) > random_notrig_max ) random_notrig(i)=0.
+                if ( ale_bl_trig(i) .lt. abs(cin(i))+1.e-10 ) then 
+                   tau_trig(i)=tau_trig_shallow
+                else
+                   tau_trig(i)=tau_trig_deep
+                endif
+             enddo
+             !
+             IF (prt_level .GE. 10) THEN
+                print *,'random_notrig, tau_trig ', &
+                     random_notrig, tau_trig
+                print *,'s_trig,s2,n2 ', &
+                     s_trig,s2,n2
+             ENDIF
+
+             !Option pour re-activer l'ancien calcul de Ale_bl (iflag_trig_bl=2)
+             IF (iflag_trig_bl.eq.1) then
+
+                !----Tirage al\'eatoire et calcul de ale_bl_trig
+                do i=1,klon
+                   if ( (ale_bl_stat(i) .gt. abs(cin(i))+1.e-10) )  then
+                      proba_notrig(i)=(1.-exp(-s_trig/s2(i)))** &
+                           (n2(i)*dtime/tau_trig(i))
+                      !        print *, 'proba_notrig(i) ',proba_notrig(i)
+                      if (random_notrig(i) .ge. proba_notrig(i)) then 
+                         ale_bl_trig(i)=ale_bl_stat(i)
+                      else
+                         ale_bl_trig(i)=0.
+                      endif
+                   else
+                      proba_notrig(i)=1.
+                      random_notrig(i)=0.
+                      ale_bl_trig(i)=0.
+                   endif
+                enddo
+
+             ELSE IF (iflag_trig_bl.ge.2) then
+
+                do i=1,klon
+                   if ( (Ale_bl(i) .gt. abs(cin(i))+1.e-10) )  then
+                      proba_notrig(i)=(1.-exp(-s_trig/s2(i)))** &
+                           (n2(i)*dtime/tau_trig(i))
+                      !        print *, 'proba_notrig(i) ',proba_notrig(i)
+                      if (random_notrig(i) .ge. proba_notrig(i)) then 
+                         ale_bl_trig(i)=Ale_bl(i)
+                      else
+                         ale_bl_trig(i)=0.
+                      endif
+                   else
+                      proba_notrig(i)=1.
+                      random_notrig(i)=0.
+                      ale_bl_trig(i)=0.
+                   endif
+                enddo
+
+             ENDIF
+
+             !
+             IF (prt_level .GE. 10) THEN
+                print *,'proba_notrig, ale_bl_trig ', &
+                     proba_notrig, ale_bl_trig
+             ENDIF
+
+          endif !(iflag_trig_bl)
+
+          !-----------Statistical closure-----------
+          if (iflag_clos_bl.eq.1) then 
+
+             do i=1,klon
+                !CR: alp probabiliste
+                if (ale_bl_trig(i).gt.0.) then
+                   alp_bl(i)=alp_bl(i)/(1.-min(proba_notrig(i),0.999))
+                endif
+             enddo
+
+          else if (iflag_clos_bl.eq.2) then
+
+             !CR: alp calculee dans thermcell_main
+             do i=1,klon
+                alp_bl(i)=alp_bl_stat(i)
+             enddo
+
+          else
+
+             alp_bl_stat(:)=0.
+
+          endif !(iflag_clos_bl)
+
+!
+!---------------------------------------
+  ELSEIF (iflag_clos_bl .EQ. 3) THEN  ! (iflag_clos_bl .LT. 3)
+!---------------------------------------
+!
+!      New code with Effective Lifting Power
+!     -------------------------------------
+    IF (first) THEN
+       cv_feed_area = 1.e10   ! m2
+       CALL getin_p('cv_feed_area', cv_feed_area)
+       first=.FALSE.
+    ENDIF
+
+          !-----------Stochastic triggering-----------
+     if (iflag_trig_bl.ge.1) then
+        !
+        IF (prt_level .GE. 10) THEN
+           print *,'cin, ale_bl_stat, alp_bl_stat ', &
+                cin, ale_bl_stat, alp_bl_stat
+        ENDIF
+
+        ! Use ale_bl_stat (Rochetin's code) or ale_bl (old code) according to 
+        ! iflag_trig_bl value.
+        IF (iflag_trig_bl.eq.1) then         ! use ale_bl_stat (Rochetin computation)
+         do i=1,klon
+              ale_bl_ref(i)=ale_bl_stat(i)
+         enddo
+        ELSE IF (iflag_trig_bl.ge.2) then    ! use ale_bl (old computation)
+         do i=1,klon
+              ale_bl_ref(i)=Ale_bl(i)
+         enddo
+        ENDIF ! (iflag_trig_bl.eq.1)
+
+
+        !----Initializations and random number generation
+        do i=1,klon
+           proba_notrig(i)=1.
+           random_notrig(i)=1e6*ale_bl_stat(i)-int(1e6*ale_bl_stat(i))
+           if ( ale_bl_trig(i) .lt. abs(cin(i))+1.e-10 ) then 
+              tau_trig(i)=tau_trig_shallow
+           else
+              tau_trig(i)=tau_trig_deep
+           endif
+        enddo
+        !
+        IF (prt_level .GE. 10) THEN
+           print *,'random_notrig, tau_trig ', &
+                random_notrig, tau_trig
+           print *,'s_trig,s2,n2 ', &
+                s_trig,s2,n2
+        ENDIF
+
+        !----alp_bl computation
+        do i=1,klon
+           if ( (ale_bl_ref(i) .gt. abs(cin(i))+1.e-10) )  then
+              birth_number = n2(i)*exp(-s_trig/s2(i))
+              birth_rate(i) = birth_number/(tau_trig(i)*cell_area(i))
+              proba_notrig(i)=exp(-birth_number*dtime/tau_trig(i))
+              Alp_bl(i) = Alp_bl(i)* &
+                          umexp(-birth_number*cv_feed_area/cell_area(i))/ &
+                          umexp(-birth_number*dtime/tau_trig(i))*  &
+                          tau_trig(i)*cv_feed_area/(dtime*cell_area(i))
+          else 
+              proba_notrig(i)=1.
+              random_notrig(i)=0.
+              alp_bl(i)=0.
+           endif
+        enddo
+
+        !----ale_bl_trig computation
+         do i=1,klon
+           if (random_notrig(i) .ge. proba_notrig(i)) then 
+              ale_bl_trig(i)=ale_bl_ref(i)
+           else
+              ale_bl_trig(i)=0.
+           endif
+         enddo
+
+        !
+        IF (prt_level .GE. 10) THEN
+           print *,'proba_notrig, ale_bl_trig ', &
+                proba_notrig, ale_bl_trig
+        ENDIF
+
+     endif !(iflag_trig_bl .ge. 1)
+
+!---------------------------------------
+  ENDIF ! (iflag_clos_bl .LT. 3)
+!---------------------------------------
+
+          IF (prt_level .GE. 10) THEN
+             print *,'ale_bl_trig, alp_bl_stat ',ale_bl_trig, alp_bl_stat
+          ENDIF
+
+          !cc fin nrlmd le 10/04/2012
+!
+          !IM/FH: 2011/02/23 
+          ! Couplage Thermiques/Emanuel seulement si T<0
+          if (iflag_coupl==2) then
+             IF (prt_level .GE. 10) THEN
+                print*,'Couplage Thermiques/Emanuel seulement si T<0'
+             ENDIF
+             do i=1,klon
+                if (t_seri(i,lmax_th(i))>273.) then
+                   Ale_bl(i)=0.
+                endif
+             enddo
+    print *,'In order to run with iflag_coupl=2, you have to comment out the following stop'
+             STOP
+          endif
+   RETURN
+   END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/atm2geo.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/atm2geo.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/atm2geo.F90	(revision 3330)
@@ -0,0 +1,47 @@
+!
+! $Id$
+!
+SUBROUTINE atm2geo ( im, jm, pte, ptn, plon, plat, pxx, pyy, pzz )
+  USE dimphy
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+  INCLUDE 'YOMCST.h'
+!
+! Change wind local atmospheric coordinates to geocentric
+!
+  INTEGER, INTENT (in)                 :: im, jm
+  REAL, DIMENSION (im,jm), INTENT (in) :: pte, ptn
+  REAL, DIMENSION (im,jm), INTENT (in) :: plon, plat
+  REAL, DIMENSION (im,jm), INTENT(out) :: pxx, pyy, pzz
+  
+  REAL :: rad
+
+
+  rad = rpi / 180.0E0
+  
+  pxx(:,:) = & 
+       - pte(:,:) * SIN(rad * plon(:,:)) &
+       - ptn(:,:) * SIN(rad * plat(:,:)) * COS(rad * plon(:,:))
+
+  pyy(:,:) = &
+       + pte(:,:) * COS(rad * plon(:,:)) &
+       - ptn(:,:) * SIN(rad * plat(:,:)) * SIN(rad * plon(:,:))
+  
+  pzz(:,:) = &
+       + ptn(:,:) * COS(rad * plat (:,:))
+  
+! Value at North Pole  
+  IF (is_north_pole_dyn) THEN
+     pxx(:, 1) = - pte (1, 1)
+     pyy(:, 1) = - ptn (1, 1) 
+     pzz(:, 1) = pzz(1,1)
+  ENDIF
+
+! Value at South Pole
+  IF (is_south_pole_dyn) THEN
+     pxx(:,jm) = pxx(1,jm)
+     pyy(:,jm) = pyy(1,jm)
+     pzz(:,jm) = pzz(1,jm)
+  ENDIF
+  
+END SUBROUTINE atm2geo
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/buffer_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/buffer_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/buffer_mod.F90	(revision 3330)
@@ -0,0 +1,86 @@
+MODULE buffer_mod
+
+PRIVATE
+  REAL,PARAMETER :: grow_factor=1.5
+
+  INTEGER, POINTER, SAVE :: buffer_i(:)
+  INTEGER,SAVE :: size_buffer_i = 0
+!$OMP THREADPRIVATE(buffer_i,size_buffer_i)
+
+  REAL,POINTER,SAVE      :: buffer_r(:)
+  INTEGER,SAVE :: size_buffer_r = 0 
+!$OMP THREADPRIVATE(buffer_r,size_buffer_r)
+  
+  LOGICAL,POINTER,SAVE   :: buffer_l(:)
+  INTEGER,SAVE :: size_buffer_l = 0
+!$OMP THREADPRIVATE(buffer_l,size_buffer_l)
+
+  CHARACTER,POINTER,SAVE :: buffer_c(:)
+  INTEGER,SAVE :: size_buffer_c = 0
+!$OMP THREADPRIVATE(buffer_c,size_buffer_c)
+
+INTERFACE get_buffer
+  MODULE PROCEDURE get_buffer_i, get_buffer_r, get_buffer_l, get_buffer_c
+END INTERFACE
+  
+PUBLIC :: get_buffer
+
+CONTAINS
+
+  SUBROUTINE get_buffer_i(buff,buff_size)
+  IMPLICIT NONE
+    INTEGER,POINTER    :: buff(:)
+    INTEGER,INTENT(IN) :: buff_size 
+
+    IF (buff_size>size_buffer_i) THEN
+      DEALLOCATE(buffer_i)
+      size_buffer_i=MAX(2,INT(size_buffer_i*grow_factor))
+      ALLOCATE(buffer_i(size_buffer_i))
+    ENDIF
+    
+    buff=>buffer_i
+  END SUBROUTINE get_buffer_i
+
+  SUBROUTINE get_buffer_r(buff,buff_size)
+  IMPLICIT NONE
+    REAL,POINTER       :: buff(:)
+    INTEGER,INTENT(IN) :: buff_size 
+
+    IF (buff_size>size_buffer_r) THEN
+      DEALLOCATE(buffer_r)
+      size_buffer_r=MAX(2,INT(size_buffer_r*grow_factor))
+      ALLOCATE(buffer_r(size_buffer_r))
+    ENDIF
+    
+    buff=>buffer_r
+  END SUBROUTINE get_buffer_r
+
+  SUBROUTINE get_buffer_l(buff,buff_size)
+  IMPLICIT NONE
+    LOGICAL,POINTER    :: buff(:)
+    INTEGER,INTENT(IN) :: buff_size 
+
+    IF (buff_size>size_buffer_l) THEN
+      DEALLOCATE(buffer_l)
+      size_buffer_l=MAX(2,INT(size_buffer_l*grow_factor))
+      ALLOCATE(buffer_l(size_buffer_l))
+    ENDIF
+    
+    buff=>buffer_l
+  END SUBROUTINE get_buffer_l
+  
+  SUBROUTINE get_buffer_c(buff,buff_size)
+  IMPLICIT NONE
+    CHARACTER,POINTER  :: buff(:)
+    INTEGER,INTENT(IN) :: buff_size 
+
+    IF (buff_size>size_buffer_c) THEN
+      DEALLOCATE(buffer_c)
+      size_buffer_c=MAX(2,INT(size_buffer_c*grow_factor))
+      ALLOCATE(buffer_c(size_buffer_c))
+    ENDIF
+    
+    buff=>buffer_c
+  END SUBROUTINE get_buffer_c
+  
+END MODULE buffer_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calbeta.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calbeta.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calbeta.F90	(revision 3330)
@@ -0,0 +1,102 @@
+!
+! $Header$
+!
+SUBROUTINE calbeta(dtime,indice,knon,snow,qsol, &
+     vbeta,vcal,vdif)
+
+  USE dimphy
+  USE indice_sol_mod
+  IMPLICIT none
+!======================================================================
+! Auteur(s): Z.X. Li (LMD/CNRS) (adaptation du GCM au LMD)
+! date: 19940414
+!======================================================================
+!
+! Calculer quelques parametres pour appliquer la couche limite
+! ------------------------------------------------------------ 
+! Variables d'entrees
+!****************************************************************************************
+  REAL, INTENT(IN)                   :: dtime
+  INTEGER, INTENT(IN)                :: indice
+  INTEGER, INTENT(IN)                :: knon
+  REAL, DIMENSION(klon), INTENT(IN)  :: snow
+  REAL, DIMENSION(klon), INTENT(IN)  :: qsol
+
+  
+! Variables de sorties
+!****************************************************************************************
+  REAL, DIMENSION(klon), INTENT(OUT) :: vbeta
+  REAL, DIMENSION(klon), INTENT(OUT) :: vcal
+  REAL, DIMENSION(klon), INTENT(OUT) :: vdif
+
+! Variables locales
+!****************************************************************************************
+  REAL, PARAMETER :: tau_gl=86400.0*5.0 ! temps de relaxation pour la glace de mer
+!cc      PARAMETER (tau_gl=86400.0*30.0)
+  REAL, PARAMETER :: mx_eau_sol=150.0
+  REAL, PARAMETER :: calsol=1.0/(2.5578E+06*0.15)
+  REAL, PARAMETER :: calsno=1.0/(2.3867E+06*0.15)
+  REAL, PARAMETER :: calice=1.0/(5.1444E+06*0.15)
+  
+  INTEGER         :: i
+
+!****************************************************************************************  
+   
+  vbeta(:) = 0.0
+  vcal(:) = 0.0
+  vdif(:) = 0.0
+  
+  IF (indice.EQ.is_oce) THEN
+     DO i = 1, knon
+        vcal(i)   = 0.0
+        vbeta(i)  = 1.0
+        vdif(i) = 0.0
+     ENDDO
+  ENDIF
+  
+  IF (indice.EQ.is_sic) THEN
+     DO i = 1, knon
+        vcal(i) = calice
+        IF (snow(i) .GT. 0.0) vcal(i) = calsno
+        vbeta(i)  = 1.0
+        vdif(i) = 1.0/tau_gl
+!          vdif(i) = calice/tau_gl ! c'etait une erreur
+     ENDDO
+  ENDIF
+  
+  IF (indice.EQ.is_ter) THEN
+     DO i = 1, knon
+        vcal(i) = calsol
+        IF (snow(i) .GT. 0.0) vcal(i) = calsno
+        vbeta(i)  = MIN(2.0*qsol(i)/mx_eau_sol, 1.0)
+        vdif(i) = 0.0
+     ENDDO
+  ENDIF
+  
+  IF (indice.EQ.is_lic) THEN
+     DO i = 1, knon
+        vcal(i) = calice
+        IF (snow(i) .GT. 0.0) vcal(i) = calsno
+        vbeta(i)  = 1.0
+        vdif(i) = 0.0
+     ENDDO
+  ENDIF
+  
+END SUBROUTINE calbeta
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calbeta_clim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calbeta_clim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calbeta_clim.F90	(revision 3330)
@@ -0,0 +1,72 @@
+!
+! $Header: /home/cvsroot/LMDZ4/libf/phylmd/calbeta.F90,v 1.2 2007/06/22 12:49:51
+! fairhead Exp $
+!
+
+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
+
+  USE phys_cal_mod, only: year_len
+  USE print_control_mod, ONLY: prt_level
+
+  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
+
+  !==============================================
+
+  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/IPSLCM5A2.1_ISO/libf/phylmd/calcratqs.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcratqs.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcratqs.F90	(revision 3330)
@@ -0,0 +1,188 @@
+SUBROUTINE calcratqs(klon,klev,prt_level,lunout,       &
+           iflag_ratqs,iflag_con,iflag_cld_th,pdtphys, &
+           ratqsbas,ratqshaut,ratqsp0,ratqsdp, &
+           tau_ratqs,fact_cldcon,   &
+           ptconv,ptconvth,clwcon0th, rnebcon0th,      &
+           paprs,pplay,q_seri,zqsat,fm_therm,          &
+           ratqs,ratqsc)
+
+implicit none
+
+!========================================================================
+! Computation of ratqs, the width of the subrid scale water distribution
+! (normalized by the mean value)
+! Various options controled by flags iflag_con and iflag_ratqs
+! F Hourdin 2012/12/06
+!========================================================================
+
+! Declarations
+
+! Input
+integer,intent(in) :: klon,klev,prt_level,lunout
+integer,intent(in) :: iflag_con,iflag_cld_th,iflag_ratqs
+real,intent(in) :: pdtphys,ratqsbas,ratqshaut,fact_cldcon,tau_ratqs
+real,intent(in) :: ratqsp0, ratqsdp
+real, dimension(klon,klev+1),intent(in) :: paprs
+real, dimension(klon,klev),intent(in) :: pplay,q_seri,zqsat,fm_therm
+logical, dimension(klon,klev),intent(in) :: ptconv
+real, dimension(klon,klev),intent(in) :: rnebcon0th,clwcon0th
+
+! Output
+real, dimension(klon,klev),intent(inout) :: ratqs,ratqsc
+logical, dimension(klon,klev),intent(inout) :: ptconvth
+
+! local
+integer i,k
+real, dimension(klon,klev) :: ratqss
+real facteur,zfratqs1,zfratqs2
+
+!-------------------------------------------------------------------------
+!  Caclul des ratqs
+!-------------------------------------------------------------------------
+
+!      print*,'calcul des ratqs'
+!   ratqs convectifs a l'ancienne en fonction de q(z=0)-q / q
+!   ----------------
+!   on ecrase le tableau ratqsc calcule par clouds_gno
+      if (iflag_cld_th.eq.1) then
+         do k=1,klev
+         do i=1,klon
+            if(ptconv(i,k)) then
+              ratqsc(i,k)=ratqsbas &
+              +fact_cldcon*(q_seri(i,1)-q_seri(i,k))/q_seri(i,k)
+            else
+               ratqsc(i,k)=0.
+            endif
+         enddo
+         enddo
+
+!-----------------------------------------------------------------------
+!  par nversion de la fonction log normale
+!-----------------------------------------------------------------------
+      else if (iflag_cld_th.eq.4) then
+         ptconvth(:,:)=.false.
+         ratqsc(:,:)=0.
+         if(prt_level.ge.9) print*,'avant clouds_gno thermique'
+         call clouds_gno &
+         (klon,klev,q_seri,zqsat,clwcon0th,ptconvth,ratqsc,rnebcon0th)
+         if(prt_level.ge.9) print*,' CLOUDS_GNO OK'
+       
+       endif
+
+!   ratqs stables
+!   -------------
+
+      if (iflag_ratqs.eq.0) then
+
+! Le cas iflag_ratqs=0 correspond a la version IPCC 2005 du modele.
+         do k=1,klev
+            do i=1, klon
+               ratqss(i,k)=ratqsbas+(ratqshaut-ratqsbas)* &
+               min((paprs(i,1)-pplay(i,k))/(paprs(i,1)-30000.),1.) 
+            enddo 
+         enddo
+
+! Pour iflag_ratqs=1 ou 2, le ratqs est constant au dessus de 
+! 300 hPa (ratqshaut), varie lineariement en fonction de la pression
+! entre 600 et 300 hPa et est soit constant (ratqsbas) pour iflag_ratqs=1
+! soit lineaire (entre 0 a la surface et ratqsbas) pour iflag_ratqs=2
+! Il s'agit de differents tests dans la phase de reglage du modele
+! avec thermiques.
+
+      else if (iflag_ratqs.eq.1) then
+
+         do k=1,klev
+            do i=1, klon
+               if (pplay(i,k).ge.60000.) then
+                  ratqss(i,k)=ratqsbas
+               else if ((pplay(i,k).ge.30000.).and.(pplay(i,k).lt.60000.)) then
+                  ratqss(i,k)=ratqsbas+(ratqshaut-ratqsbas)*(60000.-pplay(i,k))/(60000.-30000.)
+               else
+                  ratqss(i,k)=ratqshaut
+               endif
+            enddo
+         enddo
+
+      else if (iflag_ratqs.eq.2) then
+
+         do k=1,klev
+            do i=1, klon
+               if (pplay(i,k).ge.60000.) then
+                  ratqss(i,k)=ratqsbas*(paprs(i,1)-pplay(i,k))/(paprs(i,1)-60000.)
+               else if ((pplay(i,k).ge.30000.).and.(pplay(i,k).lt.60000.)) then
+                    ratqss(i,k)=ratqsbas+(ratqshaut-ratqsbas)*(60000.-pplay(i,k))/(60000.-30000.)
+               else
+                    ratqss(i,k)=ratqshaut
+               endif
+            enddo
+         enddo
+
+      else if (iflag_ratqs==3) then
+         do k=1,klev
+           ratqss(:,k)=ratqsbas+(ratqshaut-ratqsbas) &
+           *min( ((paprs(:,1)-pplay(:,k))/70000.)**2 , 1. )
+         enddo
+
+      else if (iflag_ratqs==4) then
+         do k=1,klev
+           ratqss(:,k)=ratqsbas+0.5*(ratqshaut-ratqsbas) &
+!          *( tanh( (50000.-pplay(:,k))/20000.) + 1.)
+           *( tanh( (ratqsp0-pplay(:,k))/ratqsdp) + 1.)
+         enddo
+
+      endif
+
+
+
+
+!  ratqs final
+!  -----------
+
+      if (iflag_cld_th.eq.1 .or.iflag_cld_th.eq.2.or.iflag_cld_th.eq.4) then
+
+! On ajoute une constante au ratqsc*2 pour tenir compte de 
+! fluctuations turbulentes de petite echelle
+
+         do k=1,klev
+            do i=1,klon
+               if ((fm_therm(i,k).gt.1.e-10)) then
+                  ratqsc(i,k)=sqrt(ratqsc(i,k)**2+0.05**2)
+               endif
+            enddo
+         enddo
+
+!   les ratqs sont une combinaison de ratqss et ratqsc
+       if(prt_level.ge.9) write(lunout,*)'PHYLMD NOUVEAU TAU_RATQS ',tau_ratqs
+
+         if (tau_ratqs>1.e-10) then
+            facteur=exp(-pdtphys/tau_ratqs)
+         else
+            facteur=0.
+         endif
+         ratqs(:,:)=ratqsc(:,:)*(1.-facteur)+ratqs(:,:)*facteur
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH 22/09/2009
+! La ligne ci-dessous faisait osciller le modele et donnait une solution
+! assymptotique bidon et dépendant fortement du pas de temps.
+!        ratqs(:,:)=sqrt(ratqs(:,:)**2+ratqss(:,:)**2)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+         ratqs(:,:)=max(ratqs(:,:),ratqss(:,:))
+      else if (iflag_cld_th<=6) then
+!   on ne prend que le ratqs stable pour fisrtilp
+         ratqs(:,:)=ratqss(:,:)
+      else
+          zfratqs1=exp(-pdtphys/10800.)
+          zfratqs2=exp(-pdtphys/10800.)
+          do k=1,klev
+             do i=1,klon
+                if (ratqsc(i,k).gt.1.e-10) then
+                   ratqs(i,k)=ratqs(i,k)*zfratqs2+(iflag_cld_th/100.)*ratqsc(i,k)*(1.-zfratqs2)
+                endif
+                ratqs(i,k)=min(ratqs(i,k)*zfratqs1+ratqss(i,k)*(1.-zfratqs1),0.5)
+             enddo
+          enddo
+      endif
+
+
+return
+end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_REGDYN.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_REGDYN.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_REGDYN.h	(revision 3330)
@@ -0,0 +1,22 @@
+c
+c $Header$
+c
+c calculs statistiques distribution nuage ftion du regime dynamique 
+c
+c Ce calcul doit etre fait a partir de valeurs mensuelles ??
+      CALL histo_o500_pctau(nbregdyn,pct_ocean,o500,fq_isccp,
+     &histoW,nhistoW)
+c
+c nhistoWt = somme de toutes les nhistoW
+      DO nreg=1, nbregdyn
+       DO k = 1, kmaxm1
+        DO l = 1, lmaxm1
+         DO iw = 1, iwmax
+          nhistoWt(k,l,iw,nreg)=nhistoWt(k,l,iw,nreg)+
+     &    nhistoW(k,l,iw,nreg)
+         ENDDO
+        ENDDO
+       ENDDO
+      ENDDO
+c
+cIM 190504 END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_STDlev.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_STDlev.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_STDlev.h	(revision 3330)
@@ -0,0 +1,239 @@
+!
+! $Header$
+!
+!IM on initialise les variables 
+!
+!       missing_val=nf90_fill_real
+!
+       IF (.not. ok_all_xml) then
+        CALL ini_undefSTD(itap,itapm1)
+       ENDIF
+!
+!IM on interpole les champs sur les niveaux STD de pression 
+!IM a chaque pas de temps de la physique
+!
+!-------------------------------------------------------c
+! positionnement de l'argument logique a .false.        c
+! pour ne pas recalculer deux fois la meme chose !      c
+! a cet effet un appel a plevel_new a ete deplace       c
+! a la fin de la serie d'appels                         c
+! la boucle 'DO k=1, nlevSTD' a ete internalisee        c
+! dans plevel_new, d'ou la creation de cette routine... c
+!-------------------------------------------------------c
+!
+        CALL plevel_new(klon,klev,nlevSTD,.true.,pplay,rlevSTD, &
+                    t_seri,tlevSTD)
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   u_seri,ulevSTD)
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   v_seri,vlevSTD)
+!
+
+!
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zphi/RG,philevSTD)
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   qx(:,:,ivap),qlevSTD)
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_rh*100.,rhlevSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=u_seri(i,l)*v_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,uvSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=v_seri(i,l)*q_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,vqSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=v_seri(i,l)*t_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,vTSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=omega(i,l)*qx(i,l,ivap)
+         ENDDO !i 
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,wqSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=v_seri(i,l)*zphi(i,l)/RG
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,vphiSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=omega(i,l)*t_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,wTSTD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=u_seri(i,l)*u_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,u2STD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=v_seri(i,l)*v_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,v2STD)
+!
+        DO l=1, klev
+         DO i=1, klon
+          zx_tmp_fi3d(i,l)=t_seri(i,l)*t_seri(i,l)
+         ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,T2STD)
+
+!
+      zx_tmp_fi3d(:,:)=wo(:,:,1) * dobson_u * 1e3 / zmasse / rmo3 * rmd
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,O3STD)
+!
+      if (read_climoz == 2) THEN
+      zx_tmp_fi3d(:,:)=wo(:,:,2) * dobson_u * 1e3 / zmasse / rmo3 * rmd
+        CALL plevel_new(klon,klev,nlevSTD,.false.,pplay,rlevSTD, &
+                   zx_tmp_fi3d,O3daySTD)
+      endif
+!
+        DO l=1, klev
+        DO i=1, klon
+         zx_tmp_fi3d(i,l)=paprs(i,l)
+        ENDDO !i
+        ENDDO !l
+        CALL plevel_new(klon,klev,nlevSTD,.true.,zx_tmp_fi3d,rlevSTD, &
+                   omega,wlevSTD)
+!
+!IM on somme les valeurs toutes les freq_calNMC secondes
+!IM on moyenne a la fin du mois, du jour ou toutes les 6h
+!
+       IF (.not. ok_all_xml) then
+        CALL undefSTD(itap, read_climoz)
+        CALL moy_undefSTD(itap,itapm1)
+       ENDIF
+!
+       CALL plevel(klon,klev,.true.,pplay,50000., &
+                    zphi/RG,geo500)
+
+!IM on interpole a chaque pas de temps le SWup(clr) et SWdn(clr) a 200 hPa
+!
+      CALL plevel(klon,klevp1,.true.,paprs,20000., &
+           swdn0,SWdn200clr)
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           swdn,SWdn200)
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           swup0,SWup200clr)
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           swup,SWup200)
+!
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           lwdn0,LWdn200clr)
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           lwdn,LWdn200)
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           lwup0,LWup200clr)
+      CALL plevel(klon,klevp1,.false.,paprs,20000., &
+           lwup,LWup200)
+!
+      twriteSTD(:,:,1)=tsumSTD(:,:,1)
+      qwriteSTD(:,:,1)=qsumSTD(:,:,1)
+      rhwriteSTD(:,:,1)=rhsumSTD(:,:,1)
+      phiwriteSTD(:,:,1)=phisumSTD(:,:,1)
+      uwriteSTD(:,:,1)=usumSTD(:,:,1)
+      vwriteSTD(:,:,1)=vsumSTD(:,:,1)
+      wwriteSTD(:,:,1)=wsumSTD(:,:,1)
+
+      twriteSTD(:,:,2)=tsumSTD(:,:,2)
+      qwriteSTD(:,:,2)=qsumSTD(:,:,2)
+      rhwriteSTD(:,:,2)=rhsumSTD(:,:,2)
+      phiwriteSTD(:,:,2)=phisumSTD(:,:,2)
+      uwriteSTD(:,:,2)=usumSTD(:,:,2)
+      vwriteSTD(:,:,2)=vsumSTD(:,:,2)
+      wwriteSTD(:,:,2)=wsumSTD(:,:,2)
+
+      twriteSTD(:,:,3)=tlevSTD(:,:)
+      qwriteSTD(:,:,3)=qlevSTD(:,:)
+      rhwriteSTD(:,:,3)=rhlevSTD(:,:)
+      phiwriteSTD(:,:,3)=philevSTD(:,:)
+      uwriteSTD(:,:,3)=ulevSTD(:,:)
+      vwriteSTD(:,:,3)=vlevSTD(:,:)
+      wwriteSTD(:,:,3)=wlevSTD(:,:)
+
+      twriteSTD(:,:,4)=tlevSTD(:,:)
+      qwriteSTD(:,:,4)=qlevSTD(:,:)
+      rhwriteSTD(:,:,4)=rhlevSTD(:,:)
+      phiwriteSTD(:,:,4)=philevSTD(:,:)
+      uwriteSTD(:,:,4)=ulevSTD(:,:)
+      vwriteSTD(:,:,4)=vlevSTD(:,:)
+      wwriteSTD(:,:,4)=wlevSTD(:,:)
+!
+!IM initialisation 5eme fichier de sortie 
+      twriteSTD(:,:,5)=tlevSTD(:,:)
+      qwriteSTD(:,:,5)=qlevSTD(:,:)
+      rhwriteSTD(:,:,5)=rhlevSTD(:,:)
+      phiwriteSTD(:,:,5)=philevSTD(:,:)
+      uwriteSTD(:,:,5)=ulevSTD(:,:)
+      vwriteSTD(:,:,5)=vlevSTD(:,:)
+      wwriteSTD(:,:,5)=wlevSTD(:,:)
+!
+!IM initialisation 6eme fichier de sortie 
+      twriteSTD(:,:,6)=tlevSTD(:,:)
+      qwriteSTD(:,:,6)=qlevSTD(:,:)
+      rhwriteSTD(:,:,6)=rhlevSTD(:,:)
+      phiwriteSTD(:,:,6)=philevSTD(:,:)
+      uwriteSTD(:,:,6)=ulevSTD(:,:)
+      vwriteSTD(:,:,6)=vlevSTD(:,:)
+      wwriteSTD(:,:,6)=wlevSTD(:,:)
+!IM for NMC files
+      DO n=1, nlevSTD3
+       DO k=1, nlevSTD
+        if(rlevSTD3(n).EQ.rlevSTD(k)) THEN
+         twriteSTD3(:,n)=tlevSTD(:,k)
+         qwriteSTD3(:,n)=qlevSTD(:,k)
+         rhwriteSTD3(:,n)=rhlevSTD(:,k)
+         phiwriteSTD3(:,n)=philevSTD(:,k)
+         uwriteSTD3(:,n)=ulevSTD(:,k)
+         vwriteSTD3(:,n)=vlevSTD(:,k)
+         wwriteSTD3(:,n)=wlevSTD(:,k)
+        endif !rlevSTD3(n).EQ.rlevSTD(k)
+       ENDDO 
+      ENDDO 
+!
+      DO n=1, nlevSTD8
+       DO k=1, nlevSTD
+        if(rlevSTD8(n).EQ.rlevSTD(k)) THEN
+         tnondefSTD8(:,n)=tnondef(:,k,2)
+         twriteSTD8(:,n)=tsumSTD(:,k,2)
+         qwriteSTD8(:,n)=qsumSTD(:,k,2)
+         rhwriteSTD8(:,n)=rhsumSTD(:,k,2)
+         phiwriteSTD8(:,n)=phisumSTD(:,k,2)
+         uwriteSTD8(:,n)=usumSTD(:,k,2)
+         vwriteSTD8(:,n)=vsumSTD(:,k,2)
+         wwriteSTD8(:,n)=wsumSTD(:,k,2)
+        endif !rlevSTD8(n).EQ.rlevSTD(k)
+       ENDDO 
+      ENDDO 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_divers.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_divers.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_divers.h	(revision 3330)
@@ -0,0 +1,62 @@
+!
+! $Header$
+!
+! Initialisations diverses au tout debut
+      IF(itap.EQ.1) THEN
+         itapm1=0
+!        surface terre
+         DO i=1, klon
+            IF(pctsrf(i,is_ter).GT.0.) THEN
+               paire_ter(i)=cell_area(i)*pctsrf(i,is_ter)
+            ENDIF 
+         ENDDO
+      ENDIF
+
+! Initialisation debut de mois
+      IF(itap.EQ.itapm1+1) THEN
+        nday_rain(:)=0.
+!       print*,'initialisation mois suivants day_rain itap',itap
+      ENDIF
+
+! Calcul fin de journee : total_rain, nday_rain
+      IF(MOD(itap,NINT(un_jour/dtime)).EQ.0) THEN
+!        print*,'calcul nday_rain itap ',itap
+         DO i = 1, klon
+            total_rain(i)=rain_fall(i)+snow_fall(i)  
+            IF(total_rain(i).GT.0.) nday_rain(i)=nday_rain(i)+1.
+         ENDDO
+      ENDIF
+
+! Initialisation fin de mois
+      IF(MOD(itap-itapm1,NINT(mth_len*un_jour/dtime)).EQ.0) THEN
+        itapm1=itapm1+NINT(mth_len*un_jour/dtime)
+!       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/IPSLCM5A2.1_ISO/libf/phylmd/calcul_fluxs_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_fluxs_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calcul_fluxs_mod.F90	(revision 3330)
@@ -0,0 +1,340 @@
+!
+! $Id$
+!
+MODULE calcul_fluxs_mod
+
+
+CONTAINS
+  SUBROUTINE calcul_fluxs( knon, nisurf, dtime, &
+       tsurf, p1lay, cal, beta, cdragh, cdragq, ps, &
+       precip_rain, precip_snow, snow, qsurf, &
+       radsol, dif_grnd, t1lay, q1lay, u1lay, v1lay, gustiness, &
+       fqsat, petAcoef, peqAcoef, petBcoef, peqBcoef, &
+       tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
+       sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+ 
+    
+    USE dimphy, ONLY : klon
+    USE indice_sol_mod
+
+    INCLUDE "clesphys.h"
+
+! Cette routine calcule les fluxs en h et q a l'interface et eventuellement
+! une temperature de surface (au cas ou ok_veget = false)
+!
+! L. Fairhead 4/2000
+!
+! input:
+!   knon         nombre de points a traiter
+!   nisurf       surface a traiter
+!   tsurf        temperature de surface
+!   p1lay        pression 1er niveau (milieu de couche)
+!   cal          capacite calorifique du sol
+!   beta         evap reelle
+!   cdragh       coefficient d'echange temperature
+!   cdragq       coefficient d'echange evaporation
+!   ps           pression au sol
+!   precip_rain  precipitations liquides
+!   precip_snow  precipitations solides
+!   snow         champs hauteur de neige
+!   runoff       runoff en cas de trop plein
+!   petAcoef     coeff. A de la resolution de la CL pour t
+!   peqAcoef     coeff. A de la resolution de la CL pour q
+!   petBcoef     coeff. B de la resolution de la CL pour t
+!   peqBcoef     coeff. B de la resolution de la CL pour q
+!   radsol       rayonnement net aus sol (LW + SW)
+!   dif_grnd     coeff. diffusion vers le sol profond
+!
+! output:
+!   tsurf_new    temperature au sol
+!   qsurf        humidite de l'air au dessus du sol
+!   fluxsens     flux de chaleur sensible
+!   fluxlat      flux de chaleur latente
+!   dflux_s      derivee du flux de chaleur sensible / Ts
+!   dflux_l      derivee du flux de chaleur latente  / Ts
+!   sens_prec_liq flux sensible lié aux echanges de precipitations liquides
+!   sens_prec_sol                                    precipitations solides
+!   lat_prec_liq  flux latent lié aux echanges de precipitations liquides
+!   lat_prec_sol                                  precipitations solides
+
+    INCLUDE "YOETHF.h"
+    INCLUDE "FCTTRE.h"
+    INCLUDE "YOMCST.h"
+
+! Parametres d'entree
+!****************************************************************************************
+    INTEGER, INTENT(IN)                  :: knon, nisurf
+    REAL   , INTENT(IN)                  :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)    :: petAcoef, peqAcoef
+    REAL, DIMENSION(klon), INTENT(IN)    :: petBcoef, peqBcoef
+    REAL, DIMENSION(klon), INTENT(IN)    :: ps, q1lay
+    REAL, DIMENSION(klon), INTENT(IN)    :: tsurf, p1lay, cal, beta, cdragh,cdragq
+    REAL, DIMENSION(klon), INTENT(IN)    :: precip_rain, precip_snow ! pas utiles
+    REAL, DIMENSION(klon), INTENT(IN)    :: radsol, dif_grnd
+    REAL, DIMENSION(klon), INTENT(IN)    :: t1lay, u1lay, v1lay,gustiness
+    REAL,                  INTENT(IN)    :: fqsat ! correction factor on qsat (generally 0.98 over salty water, 1 everywhere else)
+
+! Parametres entree-sorties
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT) :: snow  ! snow pas utile
+
+! Parametres sorties
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)   :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)   :: tsurf_new, evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)   :: dflux_s, dflux_l
+    REAL, DIMENSION(klon), OPTIONAL      :: sens_prec_liq, sens_prec_sol
+    REAL, DIMENSION(klon), OPTIONAL      :: lat_prec_liq, lat_prec_sol
+
+! Variables locales
+!****************************************************************************************
+    INTEGER                              :: i
+    REAL, DIMENSION(klon)                :: zx_mh, zx_nh, zx_oh
+    REAL, DIMENSION(klon)                :: zx_mq, zx_nq, zx_oq
+    REAL, DIMENSION(klon)                :: zx_pkh, zx_dq_s_dt, zx_qsat
+    REAL, DIMENSION(klon)                :: zx_sl, zx_coefh, zx_coefq, zx_wind
+    REAL, DIMENSION(klon)                :: d_ts
+    REAL                                 :: zdelta, zcvm5, zx_qs, zcor, zx_dq_s_dh
+    REAL                                 :: qsat_new, q1_new
+    REAL, PARAMETER                      :: t_grnd = 271.35, t_coup = 273.15
+    REAL, PARAMETER                      :: max_eau_sol = 150.0
+    CHARACTER (len = 20)                 :: modname = 'calcul_fluxs'
+    LOGICAL                              :: fonte_neige
+    LOGICAL, SAVE                        :: check = .FALSE.
+    !$OMP THREADPRIVATE(check)
+
+! End definition
+!****************************************************************************************
+
+    IF (check) WRITE(*,*)'Entree ', modname,' surface = ',nisurf
+    
+    IF (check) THEN
+       WRITE(*,*)' radsol (min, max)', &
+            MINVAL(radsol(1:knon)), MAXVAL(radsol(1:knon))
+    ENDIF
+  
+! Traitement neige et humidite du sol
+!****************************************************************************************
+!
+!!$  WRITE(*,*)'test calcul_flux, surface ', nisurf
+!!PB test
+!!$    if (nisurf == is_oce) then
+!!$      snow = 0.
+!!$      qsol = max_eau_sol
+!!$    else
+!!$      where (precip_snow > 0.) snow = snow + (precip_snow * dtime)
+!!$      where (snow > epsilon(snow)) snow = max(0.0, snow - (evap * dtime))
+!!$!      snow = max(0.0, snow + (precip_snow - evap) * dtime)
+!!$      where (precip_rain > 0.) qsol = qsol + (precip_rain - evap) * dtime
+!!$    endif 
+!!$    IF (nisurf /= is_ter) qsol = max_eau_sol
+
+
+! 
+! Initialisation
+!****************************************************************************************
+    evap = 0.
+    fluxsens=0.
+    fluxlat=0.
+    dflux_s = 0.
+    dflux_l = 0.
+    if (PRESENT(sens_prec_liq)) sens_prec_liq = 0.
+    if (PRESENT(sens_prec_sol)) sens_prec_sol = 0.
+    if (PRESENT(lat_prec_liq)) lat_prec_liq = 0.
+    if (PRESENT(lat_prec_sol)) lat_prec_sol = 0.
+!
+! zx_qs = qsat en kg/kg
+!****************************************************************************************
+    DO i = 1, knon
+       zx_pkh(i) = (ps(i)/ps(i))**RKAPPA
+       IF (thermcep) THEN
+          zdelta=MAX(0.,SIGN(1.,rtt-tsurf(i)))
+          zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
+          zcvm5 = zcvm5 / RCPD / (1.0+RVTMP2*q1lay(i))
+          zx_qs= r2es * FOEEW(tsurf(i),zdelta)/ps(i)
+          zx_qs=MIN(0.5,zx_qs)
+          zcor=1./(1.-retv*zx_qs)
+          zx_qs=zx_qs*zcor
+          zx_dq_s_dh = FOEDE(tsurf(i),zdelta,zcvm5,zx_qs,zcor) &
+               /RLVTT / zx_pkh(i)
+       ELSE
+          IF (tsurf(i).LT.t_coup) THEN
+             zx_qs = qsats(tsurf(i)) / ps(i)
+             zx_dq_s_dh = dqsats(tsurf(i),zx_qs)/RLVTT &
+                  / zx_pkh(i)
+          ELSE
+             zx_qs = qsatl(tsurf(i)) / ps(i)
+             zx_dq_s_dh = dqsatl(tsurf(i),zx_qs)/RLVTT &
+                  / zx_pkh(i)
+          ENDIF
+       ENDIF
+       zx_dq_s_dt(i) = RCPD * zx_pkh(i) * zx_dq_s_dh
+       zx_qsat(i) = zx_qs
+       zx_wind(i)=min_wind_speed+SQRT(gustiness(i)+u1lay(i)**2+v1lay(i)**2)
+       zx_coefh(i) = cdragh(i) * zx_wind(i) * p1lay(i)/(RD*t1lay(i))
+       zx_coefq(i) = cdragq(i) * zx_wind(i) * p1lay(i)/(RD*t1lay(i))
+!      zx_wind(i)=min_wind_speed+SQRT(gustiness(i)+u1lay(i)**2+v1lay(i)**2) &
+!                * p1lay(i)/(RD*t1lay(i))
+!      zx_coefh(i) = cdragh(i) * zx_wind(i)
+!      zx_coefq(i) = cdragq(i) * zx_wind(i)
+    ENDDO
+
+
+! === Calcul de la temperature de surface ===
+! zx_sl = chaleur latente d'evaporation ou de sublimation
+!****************************************************************************************
+
+    DO i = 1, knon
+       zx_sl(i) = RLVTT
+       IF (tsurf(i) .LT. RTT) zx_sl(i) = RLSTT
+    ENDDO
+    
+
+    DO i = 1, knon
+! Q
+       zx_oq(i) = 1. - (beta(i) * zx_coefq(i) * peqBcoef(i) * dtime)
+       zx_mq(i) = beta(i) * zx_coefq(i) * &
+            (peqAcoef(i) -             &
+! conv num avec precedente version
+            fqsat * zx_qsat(i) + fqsat * zx_dq_s_dt(i) * tsurf(i))  &
+!           fqsat * ( zx_qsat(i) - zx_dq_s_dt(i) * tsurf(i)) ) &
+            / zx_oq(i)
+       zx_nq(i) = beta(i) * zx_coefq(i) * (- fqsat * zx_dq_s_dt(i)) &
+            / zx_oq(i)
+       
+! H
+       zx_oh(i) = 1. - (zx_coefh(i) * petBcoef(i) * dtime)
+       zx_mh(i) = zx_coefh(i) * petAcoef(i) / zx_oh(i)
+       zx_nh(i) = - (zx_coefh(i) * RCPD * zx_pkh(i))/ zx_oh(i)
+     
+! Tsurface
+       tsurf_new(i) = (tsurf(i) + cal(i)/(RCPD * zx_pkh(i)) * dtime * &
+            (radsol(i) + zx_mh(i) + zx_sl(i) * zx_mq(i)) & 
+            + dif_grnd(i) * t_grnd * dtime)/ &
+            ( 1. - dtime * cal(i)/(RCPD * zx_pkh(i)) * ( &
+            zx_nh(i) + zx_sl(i) * zx_nq(i)) &  
+            + dtime * dif_grnd(i))
+
+!
+! Y'a-t-il fonte de neige?
+!
+!    fonte_neige = (nisurf /= is_oce) .AND. &
+!     & (snow(i) > epsfra .OR. nisurf == is_sic .OR. nisurf == is_lic) &
+!     & .AND. (tsurf_new(i) >= RTT)
+!    if (fonte_neige) tsurf_new(i) = RTT  
+       d_ts(i) = tsurf_new(i) - tsurf(i)
+!    zx_h_ts(i) = tsurf_new(i) * RCPD * zx_pkh(i)
+!    zx_q_0(i) = zx_qsat(i) + zx_dq_s_dt(i) * d_ts(i)
+
+!== flux_q est le flux de vapeur d'eau: kg/(m**2 s)  positive vers bas
+!== flux_t est le flux de cpt (energie sensible): j/(m**2 s)
+       evap(i) = - zx_mq(i) - zx_nq(i) * tsurf_new(i) 
+       fluxlat(i) = - evap(i) * zx_sl(i)
+       fluxsens(i) = zx_mh(i) + zx_nh(i) * tsurf_new(i)
+       
+! Derives des flux dF/dTs (W m-2 K-1):
+       dflux_s(i) = zx_nh(i)
+       dflux_l(i) = (zx_sl(i) * zx_nq(i))
+
+! Nouvelle valeure de l'humidite au dessus du sol
+       qsat_new=zx_qsat(i) + zx_dq_s_dt(i) * d_ts(i)
+       q1_new = peqAcoef(i) - peqBcoef(i)*evap(i)*dtime
+       qsurf(i)=q1_new*(1.-beta(i)) + beta(i)*qsat_new
+!
+! en cas de fonte de neige
+!
+!    if (fonte_neige) then
+!      bilan_f = radsol(i) + fluxsens(i) - (zx_sl(i) * evap (i)) - &
+!     &          dif_grnd(i) * (tsurf_new(i) - t_grnd) - &
+!     &          RCPD * (zx_pkh(i))/cal(i)/dtime * (tsurf_new(i) - tsurf(i))
+!      bilan_f = max(0., bilan_f)
+!      fq_fonte = bilan_f / zx_sl(i)
+!      snow(i) = max(0., snow(i) - fq_fonte * dtime)
+!      qsol(i) = qsol(i) + (fq_fonte * dtime)
+!    endif
+!!$    if (nisurf == is_ter)  &
+!!$     &  run_off(i) = run_off(i) + max(qsol(i) - max_eau_sol, 0.0)
+!!$    qsol(i) = min(qsol(i), max_eau_sol) 
+!
+! calcul de l'enthalpie des precipitations liquides et solides
+!
+!       if (PRESENT(enth_prec_liq))                   &
+!       enth_prec_liq(i) = rcw * (t1lay(i) - tsurf(i)) * &
+!                          precip_rain(i)
+!       if (PRESENT(enth_prec_sol))                  &
+!       enth_prec_sol(i) = rcs * (t1lay(i) - tsurf(i)) * &
+!                          precip_snow(i)
+! On calcule par rapport a T=0
+       if (PRESENT(sens_prec_liq))                   &
+         sens_prec_liq(i) = rcw * (t1lay(i) - RTT) * &
+                          precip_rain(i)
+       if (PRESENT(sens_prec_sol))                   &
+         sens_prec_sol(i) = rcs * (t1lay(i) - RTT) * &
+                          precip_snow(i)
+       if (PRESENT(lat_prec_liq))                    &
+         lat_prec_liq(i) =  precip_rain(i) * (RLVTT - RLVTT) 
+       if (PRESENT(lat_prec_sol))                    &
+         lat_prec_sol(i) = precip_snow(i) * (RLSTT - RLVTT)
+    ENDDO
+
+    
+!       if (PRESENT(sens_prec_liq))                  &
+!          WRITE(*,*)' calculs_fluxs sens_prec_liq (min, max)', &
+!          MINVAL(sens_prec_liq(1:knon)), MAXVAL(sens_prec_liq(1:knon))
+!       if (PRESENT(sens_prec_sol))                  &
+!          WRITE(*,*)' calculs_fluxs sens_prec_sol (min, max)', &
+!          MINVAL(sens_prec_sol(1:knon)), MAXVAL(sens_prec_sol(1:knon))
+ 
+!
+!****************************************************************************************
+!
+  END SUBROUTINE calcul_fluxs
+!
+!****************************************************************************************
+!
+  SUBROUTINE calcul_flux_wind(knon, dtime, &
+       u0, v0, u1, v1, gustiness, cdrag_m, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       p1lay, t1lay, &
+       flux_u1, flux_v1)
+
+    USE dimphy
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                  :: knon
+    REAL, INTENT(IN)                     :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)    :: u0, v0  ! u and v at niveau 0
+    REAL, DIMENSION(klon), INTENT(IN)    :: u1, v1, gustiness  ! u and v at niveau 1
+    REAL, DIMENSION(klon), INTENT(IN)    :: cdrag_m ! cdrag pour momentum
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)    :: p1lay   ! pression 1er niveau (milieu de couche)
+    REAL, DIMENSION(klon), INTENT(IN)    :: t1lay   ! temperature 
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)   :: flux_u1
+    REAL, DIMENSION(klon), INTENT(OUT)   :: flux_v1
+
+! Local variables
+!****************************************************************************************
+    INTEGER                              :: i
+    REAL                                 :: mod_wind, buf
+
+!****************************************************************************************
+! Calculate the surface flux
+!
+!****************************************************************************************
+    DO i=1,knon
+       mod_wind = min_wind_speed + SQRT(gustiness(i)+(u1(i) - u0(i))**2 + (v1(i)-v0(i))**2)
+       buf = cdrag_m(i) * mod_wind * p1lay(i)/(RD*t1lay(i))
+       flux_u1(i) = (AcoefU(i) - u0(i)) / (1/buf - BcoefU(i)*dtime )
+       flux_v1(i) = (AcoefV(i) - v0(i)) / (1/buf - BcoefV(i)*dtime )
+    END DO
+
+  END SUBROUTINE calcul_flux_wind
+!
+!****************************************************************************************
+!
+END MODULE calcul_fluxs_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calltherm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calltherm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calltherm.F90	(revision 3330)
@@ -0,0 +1,442 @@
+!
+! $Id$
+!
+      subroutine calltherm(dtime  &
+     &      ,pplay,paprs,pphi,weak_inversion  &
+     &      ,u_seri,v_seri,t_seri,q_seri,zqsat,debut  &
+     &      ,d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs  &
+     &      ,fm_therm,entr_therm,detr_therm,zqasc,clwcon0,lmax,ratqscth,  &
+     &       ratqsdiff,zqsatth,Ale_bl,Alp_bl,lalim_conv,wght_th, &
+     &       zmax0,f0,zw2,fraca,ztv,zpspsk,ztla,zthl &
+!!! nrlmd le 10/04/2012
+     &      ,pbl_tke,pctsrf,omega,airephy &
+     &      ,zlcl_th,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
+     &      ,n2,s2,ale_bl_stat &
+     &      ,therm_tke_max,env_tke_max &
+     &      ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
+     &      ,alp_bl_conv,alp_bl_stat &
+!!! fin nrlmd le 10/04/2012
+     &      ,zqla,ztva )
+
+      USE dimphy
+      USE indice_sol_mod
+      USE print_control_mod, ONLY: prt_level,lunout
+
+      implicit none
+      include "thermcell.h"
+
+
+!IM 140508
+      INTEGER, SAVE ::  itap
+!$OMP THREADPRIVATE(itap)
+      REAL dtime
+      LOGICAL debut
+      LOGICAL logexpr0, logexpr2(klon,klev), logexpr1(klon)
+      REAL fact(klon)
+      INTEGER nbptspb
+
+      REAL u_seri(klon,klev),v_seri(klon,klev)
+      REAL t_seri(klon,klev),q_seri(klon,klev),qmemoire(klon,klev)
+      REAL weak_inversion(klon)
+      REAL paprs(klon,klev+1)
+      REAL pplay(klon,klev)
+      REAL pphi(klon,klev)
+      real zlev(klon,klev+1) 
+!test: on sort lentr et a* pour alimenter KE
+      REAL wght_th(klon,klev)
+      INTEGER lalim_conv(klon)
+      REAL zw2(klon,klev+1),fraca(klon,klev+1)
+
+!FH Update Thermiques
+      REAL d_t_ajs(klon,klev), d_q_ajs(klon,klev)
+      REAL d_u_ajs(klon,klev),d_v_ajs(klon,klev)
+      real fm_therm(klon,klev+1)
+      real entr_therm(klon,klev),detr_therm(klon,klev)
+
+!********************************************************
+!     declarations
+      LOGICAL flag_bidouille_stratocu
+      real fmc_therm(klon,klev+1),zqasc(klon,klev)
+      real zqla(klon,klev)
+      real zqta(klon,klev)
+      real ztv(klon,klev),ztva(klon,klev)
+      real zpspsk(klon,klev)
+      real ztla(klon,klev)
+      real zthl(klon,klev)
+      real wmax_sec(klon)
+      real zmax_sec(klon)
+      real f_sec(klon)
+      real detrc_therm(klon,klev)
+! FH WARNING : il semble que ces save ne servent a rien
+!     save fmc_therm, detrc_therm
+      real clwcon0(klon,klev)
+      real zqsat(klon,klev)
+      real zw_sec(klon,klev+1)
+      integer lmix_sec(klon)
+      integer lmax(klon)
+      real ratqscth(klon,klev)
+      real ratqsdiff(klon,klev)
+      real zqsatth(klon,klev)  
+!nouvelles variables pour la convection
+      real Ale_bl(klon)
+      real Alp_bl(klon)
+      real Ale(klon)
+      real Alp(klon)
+!RC
+      !on garde le zmax du pas de temps precedent
+      real zmax0(klon), f0(klon)
+
+!!! nrlmd le 10/04/2012
+      real pbl_tke(klon,klev+1,nbsrf)
+      real pctsrf(klon,nbsrf)
+      real omega(klon,klev)
+      real airephy(klon)
+      real zlcl_th(klon),fraca0(klon),w0(klon),w_conv(klon)
+      real therm_tke_max0(klon),env_tke_max0(klon)
+      real n2(klon),s2(klon)
+      real ale_bl_stat(klon)
+      real therm_tke_max(klon,klev),env_tke_max(klon,klev)
+      real alp_bl_det(klon),alp_bl_fluct_m(klon),alp_bl_fluct_tke(klon),alp_bl_conv(klon),alp_bl_stat(klon)
+!!! fin nrlmd le 10/04/2012
+
+!********************************************************
+
+
+! variables locales
+      REAL d_t_the(klon,klev), d_q_the(klon,klev)
+      REAL d_u_the(klon,klev),d_v_the(klon,klev)
+!
+      real zfm_therm(klon,klev+1),zdt
+      real zentr_therm(klon,klev),zdetr_therm(klon,klev)
+! FH A VERIFIER : SAVE INUTILES
+!      save zentr_therm,zfm_therm
+
+      character (len=20) :: modname='calltherm'
+      character (len=80) :: abort_message
+
+      integer i,k
+      logical, save :: first=.true.
+!$OMP THREADPRIVATE(first)
+!********************************************************
+      if (first) then
+        itap=0
+        first=.false.
+      endif
+
+! Incrementer le compteur de la physique
+     itap   = itap + 1
+
+!  Modele du thermique
+!  ===================
+!         print*,'thermiques: WARNING on passe t au lieu de t_seri'
+
+
+! On prend comme valeur initiale des thermiques la valeur du pas
+! de temps precedent
+         zfm_therm(:,:)=fm_therm(:,:)
+         zdetr_therm(:,:)=detr_therm(:,:)
+         zentr_therm(:,:)=entr_therm(:,:)
+
+! On reinitialise les flux de masse a zero pour le cumul en
+! cas de splitting
+         fm_therm(:,:)=0.
+         entr_therm(:,:)=0.
+         detr_therm(:,:)=0.
+
+         Ale_bl(:)=0.
+         Alp_bl(:)=0.
+         if (prt_level.ge.10) then
+          print*,'thermV4 nsplit: ',nsplit_thermals,' weak_inversion'
+         endif
+
+!   tests sur les valeurs negatives de l'eau
+         logexpr0=prt_level.ge.10
+         nbptspb=0
+         do k=1,klev
+            do i=1,klon
+! Attention teste abderr 19-03-09
+!               logexpr2(i,k)=.not.q_seri(i,k).ge.0.
+                logexpr2(i,k)=.not.q_seri(i,k).ge.1.e-15
+               if (logexpr2(i,k)) then
+                q_seri(i,k)=1.e-15
+                nbptspb=nbptspb+1
+               endif
+!               if (logexpr0) &
+!    &             print*,'WARN eau<0 avant therm i=',i,'  k=',k  &
+!    &         ,' dq,q',d_q_the(i,k),q_seri(i,k)
+            enddo
+         enddo
+         if(nbptspb.GT.0) print*,'Number of points with q_seri(i,k)<=0 ',nbptspb   
+
+         zdt=dtime/REAL(nsplit_thermals)
+         do isplit=1,nsplit_thermals
+
+          if (iflag_thermals>=1000) then
+            CALL thermcell_2002(klon,klev,zdt,iflag_thermals   &
+     &      ,pplay,paprs,pphi  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+     &      ,zfm_therm,zentr_therm,fraca,zw2  &
+     &      ,r_aspect_thermals,30.,w2di_thermals  &
+     &      ,tau_thermals)
+          else if (iflag_thermals.eq.2) then
+            CALL thermcell_sec(klon,klev,zdt  &
+     &      ,pplay,paprs,pphi,zlev  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+     &      ,zfm_therm,zentr_therm  &
+     &      ,r_aspect_thermals,30.,w2di_thermals  &
+     &      ,tau_thermals)
+          else if (iflag_thermals.eq.3) then
+            CALL thermcell(klon,klev,zdt  &
+     &      ,pplay,paprs,pphi  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+     &      ,zfm_therm,zentr_therm  &
+     &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
+     &      ,tau_thermals)
+          else if (iflag_thermals.eq.10) then
+            CALL thermcell_eau(klon,klev,zdt  &
+     &      ,pplay,paprs,pphi  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+     &      ,zfm_therm,zentr_therm  &
+     &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
+     &      ,tau_thermals)
+          else if (iflag_thermals.eq.11) then
+              abort_message = 'cas non prevu dans calltherm'
+              CALL abort_physic (modname,abort_message,1)
+
+!           CALL thermcell_pluie(klon,klev,zdt  &
+!   &      ,pplay,paprs,pphi,zlev  &
+!    &      ,u_seri,v_seri,t_seri,q_seri  &
+!    &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+!    &      ,zfm_therm,zentr_therm,zqla  &
+!    &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
+!    &      ,tau_thermals,3)
+          else if (iflag_thermals.eq.12) then
+            CALL calcul_sec(klon,klev,zdt  &
+     &      ,pplay,paprs,pphi,zlev  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,zmax_sec,wmax_sec,zw_sec,lmix_sec  &
+     &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
+     &      ,tau_thermals)
+          else if (iflag_thermals==13.or.iflag_thermals==14) then
+            CALL thermcellV0_main(itap,klon,klev,zdt  &
+     &      ,pplay,paprs,pphi,debut  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+     &      ,zfm_therm,zentr_therm,zdetr_therm,zqasc,zqla,lmax  &
+     &      ,ratqscth,ratqsdiff,zqsatth  &
+     &      ,r_aspect_thermals,l_mix_thermals  &
+     &      ,tau_thermals,Ale,Alp,lalim_conv,wght_th &
+     &      ,zmax0,f0,zw2,fraca)
+          else if (iflag_thermals>=15.and.iflag_thermals<=18) then
+
+!            print*,'THERM iflag_thermas_ed=',iflag_thermals_ed
+            CALL thermcell_main(itap,klon,klev,zdt  &
+     &      ,pplay,paprs,pphi,debut  &
+     &      ,u_seri,v_seri,t_seri,q_seri  &
+     &      ,d_u_the,d_v_the,d_t_the,d_q_the  &
+     &      ,zfm_therm,zentr_therm,zdetr_therm,zqasc,zqla,lmax  &
+     &      ,ratqscth,ratqsdiff,zqsatth  &
+!    &      ,r_aspect_thermals,l_mix_thermals &
+!    &      ,tau_thermals,iflag_thermals_ed,iflag_coupl &
+     &      ,Ale,Alp,lalim_conv,wght_th &
+     &      ,zmax0,f0,zw2,fraca,ztv,zpspsk &
+     &      ,ztla,zthl &
+!!! nrlmd le 10/04/2012
+     &      ,pbl_tke,pctsrf,omega,airephy &
+     &      ,zlcl_th,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
+     &      ,n2,s2,ale_bl_stat &
+     &      ,therm_tke_max,env_tke_max &
+     &      ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
+     &      ,alp_bl_conv,alp_bl_stat &
+!!! fin nrlmd le 10/04/2012
+     &      ,ztva ) 
+           if (prt_level.gt.10) write(lunout,*)'Apres thermcell_main OK'
+         else
+           abort_message = 'Cas des thermiques non prevu'
+           CALL abort_physic (modname,abort_message,1)
+         endif
+
+! Attention : les noms sont contre intuitif.
+! flag_bidouille_stratocu est .true. si on ne fait pas de bidouille.
+! Il aurait mieux valu avoir un nobidouille_stratocu
+! Et pour simplifier :
+! nobidouille_stratocu=.not.(iflag_thermals==13.or.iflag_thermals=15)
+! Ce serait bien de changer, mai en prenant le temps de vérifier que ca
+! fait bien ce qu'on croit.
+
+       flag_bidouille_stratocu=iflag_thermals<=12.or.iflag_thermals==14.or.iflag_thermals==16.or.iflag_thermals==18
+
+! Calcul a posteriori du niveau max des thermiques pour les schémas qui
+! ne la sortent pas.
+      if (iflag_thermals<=12.or.iflag_thermals>=1000) then
+         lmax(:)=1
+         do k=1,klev-1
+            zdetr_therm(:,k)=zentr_therm(:,k)+zfm_therm(:,k)-zfm_therm(:,k+1)
+         enddo
+         do k=1,klev-1
+            do i=1,klon
+               if (zfm_therm(i,k+1)>0.) lmax(i)=k
+            enddo
+         enddo
+      endif
+
+      fact(:)=0.
+      DO i=1,klon
+       logexpr1(i)=flag_bidouille_stratocu.or.weak_inversion(i).gt.0.5
+       IF(logexpr1(i)) fact(i)=1./REAL(nsplit_thermals)
+      ENDDO
+
+     DO k=1,klev
+!  transformation de la derivee en tendance
+            d_t_the(:,k)=d_t_the(:,k)*dtime*fact(:)
+            d_u_the(:,k)=d_u_the(:,k)*dtime*fact(:)
+            d_v_the(:,k)=d_v_the(:,k)*dtime*fact(:)
+            d_q_the(:,k)=d_q_the(:,k)*dtime*fact(:)
+            fm_therm(:,k)=fm_therm(:,k)  &
+     &      +zfm_therm(:,k)*fact(:)
+            entr_therm(:,k)=entr_therm(:,k)  &
+     &       +zentr_therm(:,k)*fact(:)
+            detr_therm(:,k)=detr_therm(:,k)  &
+     &       +zdetr_therm(:,k)*fact(:)
+      ENDDO
+       fm_therm(:,klev+1)=0.
+
+
+
+!  accumulation de la tendance
+            d_t_ajs(:,:)=d_t_ajs(:,:)+d_t_the(:,:)
+            d_u_ajs(:,:)=d_u_ajs(:,:)+d_u_the(:,:)
+            d_v_ajs(:,:)=d_v_ajs(:,:)+d_v_the(:,:)
+            d_q_ajs(:,:)=d_q_ajs(:,:)+d_q_the(:,:)
+
+!  incrementation des variables meteo
+            t_seri(:,:) = t_seri(:,:) + d_t_the(:,:)
+            u_seri(:,:) = u_seri(:,:) + d_u_the(:,:)
+            v_seri(:,:) = v_seri(:,:) + d_v_the(:,:)
+            qmemoire(:,:)=q_seri(:,:)
+            q_seri(:,:) = q_seri(:,:) + d_q_the(:,:)
+           if (prt_level.gt.10) write(lunout,*)'Apres apres thermcell_main OK'
+
+       DO i=1,klon
+            fm_therm(i,klev+1)=0.
+            Ale_bl(i)=Ale_bl(i)+Ale(i)/REAL(nsplit_thermals)
+!            write(22,*)'ALE CALLTHERM',Ale_bl(i),Ale(i)
+            Alp_bl(i)=Alp_bl(i)+Alp(i)/REAL(nsplit_thermals)
+!            write(23,*)'ALP CALLTHERM',Alp_bl(i),Alp(i)
+        if(prt_level.GE.10) print*,'calltherm i Alp_bl Alp Ale_bl Ale',i,Alp_bl(i),Alp(i),Ale_bl(i),Ale(i)
+       ENDDO
+
+!IM 060508 marche pas comme cela !!!        enddo ! isplit
+
+!   tests sur les valeurs negatives de l'eau
+         nbptspb=0
+            DO k = 1, klev
+            DO i = 1, klon
+               logexpr2(i,k)=.not.q_seri(i,k).ge.0.
+               if (logexpr2(i,k)) then
+                q_seri(i,k)=1.e-15
+                nbptspb=nbptspb+1
+!                if (prt_level.ge.10) then
+!                  print*,'WARN eau<0 apres therm i=',i,'  k=',k  &
+!    &         ,' dq,q',d_q_the(i,k),q_seri(i,k),  &
+!    &         'fm=',zfm_therm(i,k),'entr=',entr_therm(i,k)
+                 endif
+            ENDDO
+            ENDDO
+        IF(nbptspb.GT.0) print*,'Number of points with q_seri(i,k)<=0 ',nbptspb   
+! tests sur les valeurs de la temperature
+        nbptspb=0
+            DO k = 1, klev
+            DO i = 1, klon
+               logexpr2(i,k)=t_seri(i,k).lt.50..or.t_seri(i,k).gt.370.
+               if (logexpr2(i,k)) nbptspb=nbptspb+1
+!              if ((t_seri(i,k).lt.50.) .or.  &
+!    &              (t_seri(i,k).gt.370.)) then
+!                 print*,'WARN temp apres therm i=',i,'  k=',k  &
+!    &         ,' t_seri',t_seri(i,k)
+!              CALL abort
+!              endif
+            ENDDO
+            ENDDO
+        IF(nbptspb.GT.0) print*,'Number of points with q_seri(i,k)<=0 ',nbptspb
+         enddo ! isplit
+
+!
+!***************************************************************
+!     calcul du flux ascencant conservatif
+!            print*,'<<<<calcul flux ascendant conservatif'
+
+      fmc_therm=0.
+               do k=1,klev
+            do i=1,klon
+                  if (entr_therm(i,k).gt.0.) then
+                     fmc_therm(i,k+1)=fmc_therm(i,k)+entr_therm(i,k)
+                  else
+                     fmc_therm(i,k+1)=fmc_therm(i,k)
+                  endif
+                  detrc_therm(i,k)=(fmc_therm(i,k+1)-fm_therm(i,k+1))  &
+     &                 -(fmc_therm(i,k)-fm_therm(i,k))
+               enddo
+            enddo
+      
+     
+!****************************************************************
+!     calcul de l'humidite dans l'ascendance
+!      print*,'<<<<calcul de lhumidite dans thermique'
+!CR:on ne le calcule que pour le cas sec
+      if (iflag_thermals.le.11) then      
+      do i=1,klon
+         zqasc(i,1)=q_seri(i,1)
+         do k=2,klev
+            if (fmc_therm(i,k+1).gt.1.e-6) then
+               zqasc(i,k)=(fmc_therm(i,k)*zqasc(i,k-1)  &
+     &              +entr_therm(i,k)*q_seri(i,k))/fmc_therm(i,k+1)
+!CR:test on asseche le thermique
+!               zqasc(i,k)=zqasc(i,k)/2.
+!            else
+!               zqasc(i,k)=q_seri(i,k)
+            endif
+         enddo
+       enddo
+      
+
+!     calcul de l'eau condensee dans l'ascendance
+!             print*,'<<<<calcul de leau condensee dans thermique'
+             do i=1,klon
+                do k=1,klev
+                   clwcon0(i,k)=zqasc(i,k)-zqsat(i,k)
+                   if (clwcon0(i,k).lt.0. .or.   &
+     &             (fm_therm(i,k+1)+detrc_therm(i,k)).lt.1.e-6) then
+                      clwcon0(i,k)=0.
+                   endif
+                enddo
+             enddo
+       else
+              do i=1,klon
+                do k=1,klev
+                   clwcon0(i,k)=zqla(i,k)  
+                   if (clwcon0(i,k).lt.0. .or.   &
+     &             (fm_therm(i,k+1)+detrc_therm(i,k)).lt.1.e-6) then
+                   clwcon0(i,k)=0. 
+                   endif
+                enddo
+             enddo
+       endif
+!*******************************************************************    
+
+
+!jyg  Protection contre les temperatures nulles
+          do i=1,klon
+             do k=1,klev
+                if (ztla(i,k) .lt. 1.e-10) fraca(i,k) =0.
+             enddo
+          enddo
+
+
+      return
+
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calwake.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calwake.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/calwake.F90	(revision 3330)
@@ -0,0 +1,232 @@
+
+! $Id$
+
+SUBROUTINE calwake(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 "YOMCST.h"
+
+  ! Arguments
+  ! ----------
+
+  INTEGER i, l, ktopw(klon)
+  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), 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(klon, klev), d_deltaqw(klon, klev)
+  INTEGER wake_k(klon)
+  REAL sigd(klon)
+  REAL wake_dens(klon)
+
+  ! Variable internes
+  ! -----------------
+
+  REAL aire
+  REAL p(klon, klev), ph(klon, klev+1), pi(klon, klev)
+  REAL te(klon, klev), qe(klon, klev), omgbe(klon, klev+1)
+  REAL dtdwn(klon, klev), dqdwn(klon, klev)
+  REAL dta(klon, klev), dqa(klon, klev)
+  REAL wdtpbl(klon, klev), wdqpbl(klon, klev)
+  REAL udtpbl(klon, klev), udqpbl(klon, klev)
+  REAL amdwn(klon, klev), amup(klon, klev)
+  REAL dtw(klon, klev), dqw(klon, klev), dth(klon, klev)
+  REAL d_deltat_gw(klon, klev)
+  REAL dtls(klon, klev), dqls(klon, klev)
+  REAL tu(klon, klev), qu(klon, klev)
+  REAL hw(klon), sigmaw(klon), wape(klon), fip(klon), gfl(klon)
+  REAL omgbdth(klon, klev+1), dp_omgb(klon, klev)
+  REAL dtke(klon, klev), dqke(klon, klev)
+  REAL dtpbl(klon, klev), dqpbl(klon, klev)
+  REAL omg(klon, klev+1), dp_deltomg(klon, klev), spread(klon, klev)
+  REAL cstar(klon)
+  REAL sigd0(klon), wdens(klon)
+
+  REAL rdcp
+
+  ! print *, '-> calwake, wake_s ', wake_s(1)
+
+  rdcp = 1./3.5
+
+
+  ! -----------------------------------------------------------
+  ! IM 290108     DO 999 i=1,klon   ! a vectoriser
+  ! ----------------------------------------------------------
+
+
+  DO l = 1, klev
+    DO i = 1, klon
+      p(i, l) = pplay(i, l)
+      ph(i, l) = paprs(i, l)
+      pi(i, l) = (pplay(i,l)/100000.)**rdcp
+
+      te(i, l) = t(i, l)
+      qe(i, l) = q(i, l)
+      omgbe(i, l) = omgb(i, l)
+
+      dtdwn(i, l) = dt_dwn(i, l)
+      dqdwn(i, l) = dq_dwn(i, l)
+      dta(i, l) = dt_a(i, l)
+      dqa(i, l) = dq_a(i, l)
+      wdtpbl(i, l) = wdt_pbl(i, l)
+      wdqpbl(i, l) = wdq_pbl(i, l)
+      udtpbl(i, l) = udt_pbl(i, l)
+      udqpbl(i, l) = udq_pbl(i, l)
+    END DO
+  END DO
+
+  omgbe(:, klev+1) = 0.
+
+  DO i = 1, klon
+    sigd0(i) = sigd(i)
+  END DO
+  ! print*, 'sigd0,sigd', sigd0, sigd(i)
+  DO i = 1, klon
+    ph(i, klev+1) = 0.
+  END DO
+
+  DO i = 1, klon
+    ktopw(i) = wake_k(i)
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      dtw(i, l) = wake_deltat(i, l)
+      dqw(i, l) = wake_deltaq(i, l)
+    END DO
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      dtls(i, l) = dt_wake(i, l)
+      dqls(i, l) = dq_wake(i, l)
+    END DO
+  END DO
+
+  DO i = 1, klon
+    hw(i) = wake_h(i)
+    sigmaw(i) = wake_s(i)
+  END DO
+
+  ! 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
+    DO i = 1, klon
+      amdwn(i, l) = 0.5*(m_dwn(i,l)+m_dwn(i,l+1))
+      amdwn(i, l) = (m_dwn(i,l+1))
+    END DO
+  END DO
+
+  ! au sommet le flux de masse est nul
+
+  DO i = 1, klon
+    amdwn(i, klev) = 0.5*m_dwn(i, klev)
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      amup(i, l) = m_up(i, l)
+    END DO
+  END DO
+
+  CALL wake(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)
+
+  DO l = 1, klev
+    DO i = 1, klon
+      IF (ktopw(i)>0) THEN
+        wake_deltat(i, l) = dtw(i, l)
+        wake_deltaq(i, l) = dqw(i, l)
+        wake_d_deltat_gw(i, l) = d_deltat_gw(i, l)
+        wake_omgbdth(i, l) = omgbdth(i, l)
+        wake_dp_omgb(i, l) = dp_omgb(i, l)
+        wake_dtke(i, l) = dtke(i, l)
+        wake_dqke(i, l) = dqke(i, l)
+        wake_dtpbl(i, l) = dtpbl(i, l)
+        wake_dqpbl(i, l) = dqpbl(i, l)
+        wake_omg(i, l) = omg(i, l)
+        wake_dp_deltomg(i, l) = dp_deltomg(i, l)
+        wake_spread(i, l) = spread(i, l)
+        wake_dth(i, l) = dth(i, l)
+        dt_wake(i, l) = dtls(i, l)
+        dq_wake(i, l) = dqls(i, l)
+        undi_t(i, l) = tu(i, l)
+        undi_q(i, l) = qu(i, l)
+        wake_ddeltat(i, l) = d_deltatw(i, l)
+        wake_ddeltaq(i, l) = d_deltaqw(i, l)
+      ELSE
+        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_dtpbl(i, l) = 0.
+        wake_dqpbl(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(i, l)
+        undi_q(i, l) = qe(i, l)
+        wake_ddeltat(i, l) = 0.
+        wake_ddeltaq(i, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    wake_h(i) = hw(i)
+    wake_s(i) = sigmaw(i)
+    wake_pe(i) = wape(i)
+    wake_fip(i) = fip(i)
+    wake_gfl(i) = gfl(i)
+    wake_k(i) = ktopw(i)
+    wake_cstar(i) = cstar(i)
+    wake_dens(i) = wdens(i)
+  END DO
+
+  RETURN
+END SUBROUTINE calwake
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/carbon_cycle_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/carbon_cycle_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/carbon_cycle_mod.F90	(revision 3330)
@@ -0,0 +1,483 @@
+MODULE carbon_cycle_mod
+! Controle module for the carbon CO2 tracers :
+!   - Identification
+!   - Get concentrations comming from coupled model or read from file to tracers
+!   - Calculate new RCO2 for radiation scheme
+!   - Calculate new carbon flux for sending to coupled models (PISCES and ORCHIDEE)
+!
+! Author : Josefine GHATTAS, Patricia CADULE
+
+  IMPLICIT NONE
+  SAVE
+  PRIVATE
+  PUBLIC :: carbon_cycle_init, carbon_cycle
+
+! Variables read from parmeter file physiq.def
+  LOGICAL, PUBLIC :: carbon_cycle_tr        ! 3D transport of CO2 in the atmosphere, parameter read in conf_phys
+!$OMP THREADPRIVATE(carbon_cycle_tr)
+  LOGICAL, PUBLIC :: carbon_cycle_cpl       ! Coupling of CO2 fluxes between LMDZ/ORCHIDEE and LMDZ/OCEAN(PISCES) 
+!$OMP THREADPRIVATE(carbon_cycle_cpl)
+
+  LOGICAL :: carbon_cycle_emis_comp_omp=.FALSE.
+  LOGICAL :: carbon_cycle_emis_comp=.FALSE. ! Calculation of emission compatible
+!$OMP THREADPRIVATE(carbon_cycle_emis_comp)
+
+  LOGICAL :: RCO2_inter_omp
+  LOGICAL :: RCO2_inter  ! RCO2 interactive : if true calculate new value RCO2 for the radiation scheme
+!$OMP THREADPRIVATE(RCO2_inter)
+
+! Scalare values when no transport, from physiq.def
+  REAL :: fos_fuel_s_omp
+  REAL :: fos_fuel_s  ! carbon_cycle_fos_fuel dans physiq.def
+!$OMP THREADPRIVATE(fos_fuel_s)
+  REAL :: emis_land_s ! not yet implemented
+!$OMP THREADPRIVATE(emis_land_s)
+
+  REAL :: airetot     ! Total area of the earth surface
+!$OMP THREADPRIVATE(airetot)
+
+  INTEGER :: ntr_co2  ! Number of tracers concerning the carbon cycle
+!$OMP THREADPRIVATE(ntr_co2)
+
+! fco2_ocn_day : flux CO2 from ocean for 1 day (cumulated) [gC/m2/d]. Allocation and initalization done in cpl_mod
+  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_ocn_day 
+!$OMP THREADPRIVATE(fco2_ocn_day)
+
+  REAL, DIMENSION(:), ALLOCATABLE :: fco2_land_day   ! flux CO2 from land for 1 day (cumulated)  [gC/m2/d]
+!$OMP THREADPRIVATE(fco2_land_day)
+  REAL, DIMENSION(:), ALLOCATABLE :: fco2_lu_day     ! Emission from land use change for 1 day (cumulated) [gC/m2/d]
+!$OMP THREADPRIVATE(fco2_lu_day)
+
+  REAL, DIMENSION(:,:), ALLOCATABLE :: dtr_add       ! Tracer concentration to be injected 
+!$OMP THREADPRIVATE(dtr_add)
+
+! Following 2 fields will be allocated and initialized in surf_land_orchidee
+  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_land_inst  ! flux CO2 from land at one time step
+!$OMP THREADPRIVATE(fco2_land_inst)
+  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: fco2_lu_inst    ! Emission from land use change at one time step
+!$OMP THREADPRIVATE(fco2_lu_inst)
+
+! Calculated co2 field to be send to the ocean via the coupler and to ORCHIDEE 
+  REAL, DIMENSION(:), ALLOCATABLE, PUBLIC :: co2_send ! Field allocated in phyetat0
+!$OMP THREADPRIVATE(co2_send)
+
+
+  TYPE, PUBLIC ::   co2_trac_type
+     CHARACTER(len = 8) :: name       ! Tracer name in tracer.def
+     INTEGER            :: id         ! Index in total tracer list, tr_seri
+     CHARACTER(len=30)  :: file       ! File name
+     LOGICAL            :: cpl        ! True if this tracers is coupled from ORCHIDEE or PISCES. 
+                                      ! False if read from file.
+     INTEGER            :: updatefreq ! Frequence to inject in second
+     INTEGER            :: readstep   ! Actual time step to read in file
+     LOGICAL            :: updatenow  ! True if this tracer should be updated this time step
+  END TYPE co2_trac_type
+  INTEGER,PARAMETER :: maxco2trac=5  ! Maximum number of different CO2 fluxes
+  TYPE(co2_trac_type), DIMENSION(maxco2trac) :: co2trac
+
+CONTAINS
+  
+  SUBROUTINE carbon_cycle_init(tr_seri, pdtphys, aerosol, radio)
+! This subroutine is called from traclmdz_init, only at first timestep.
+! - Read controle parameters from .def input file
+! - Search for carbon tracers and set default values
+! - Allocate variables
+! - Test for compatibility
+
+    USE dimphy
+    USE geometry_mod, ONLY : cell_area 
+    USE mod_phys_lmdz_transfert_para
+    USE infotrac_phy, ONLY: nbtr, nqo, niadv, tname
+    USE IOIPSL
+    USE surface_data, ONLY : ok_veget, type_ocean
+    USE phys_cal_mod, ONLY : mth_len
+    USE print_control_mod, ONLY: lunout
+
+    IMPLICIT NONE
+    INCLUDE "clesphys.h"
+ 
+! Input argument
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(IN) :: tr_seri ! Concentration Traceur [U/KgA]  
+    REAL,INTENT(IN)                           :: pdtphys ! length of time step in physiq (sec)
+
+! InOutput arguments
+    LOGICAL,DIMENSION(nbtr), INTENT(INOUT) :: aerosol
+    LOGICAL,DIMENSION(nbtr), INTENT(INOUT) :: radio
+
+! Local variables
+    INTEGER               :: ierr, it, iiq, itc
+    INTEGER               :: teststop
+
+
+
+! 1) Read controle parameters from .def input file
+! ------------------------------------------------
+    ! Read fosil fuel value if no transport
+    IF (.NOT. carbon_cycle_tr) THEN
+!$OMP MASTER
+       fos_fuel_s_omp = 0.
+       CALL getin ('carbon_cycle_fos_fuel',fos_fuel_s_omp)
+!$OMP END MASTER
+!$OMP BARRIER
+       fos_fuel_s=fos_fuel_s_omp
+       WRITE(lunout,*) 'carbon_cycle_fos_fuel = ', fos_fuel_s 
+    END IF
+
+
+    ! Read parmeter for calculation compatible emission
+    IF (.NOT. carbon_cycle_tr) THEN
+!$OMP MASTER
+       carbon_cycle_emis_comp_omp=.FALSE.
+       CALL getin('carbon_cycle_emis_comp',carbon_cycle_emis_comp_omp)
+!$OMP END MASTER
+!$OMP BARRIER
+       carbon_cycle_emis_comp=carbon_cycle_emis_comp_omp
+       WRITE(lunout,*) 'carbon_cycle_emis_comp = ',carbon_cycle_emis_comp
+       IF (carbon_cycle_emis_comp) THEN
+          CALL abort_physic('carbon_cycle_init', 'carbon_cycle_emis_comp option not yet implemented!!',1)
+       END IF
+    END IF
+
+    ! Read parameter for interactive calculation of the CO2 value for the radiation scheme
+!$OMP MASTER
+    RCO2_inter_omp=.FALSE.
+    CALL getin('RCO2_inter',RCO2_inter_omp)
+!$OMP END MASTER
+!$OMP BARRIER
+    RCO2_inter=RCO2_inter_omp
+    WRITE(lunout,*) 'RCO2_inter = ', RCO2_inter
+    IF (RCO2_inter) THEN
+       WRITE(lunout,*) 'RCO2 will be recalculated once a day'
+       WRITE(lunout,*) 'RCO2 initial = ', RCO2
+    END IF
+
+
+! 2) Search for carbon tracers and set default values
+! ---------------------------------------------------
+    itc=0
+    DO it=1,nbtr
+!!       iiq=niadv(it+2)                                                            ! jyg
+       iiq=niadv(it+nqo)                                                            ! jyg
+       
+       SELECT CASE(tname(iiq))
+       CASE("fCO2_ocn")
+          itc = itc + 1
+          co2trac(itc)%name='fCO2_ocn'
+          co2trac(itc)%id=it
+          co2trac(itc)%file='fl_co2_ocean.nc'
+          IF (carbon_cycle_cpl .AND. type_ocean=='couple') THEN 
+             co2trac(itc)%cpl=.TRUE.
+             co2trac(itc)%updatefreq = 86400 ! Once a day as the coupling with OASIS/PISCES
+          ELSE
+             co2trac(itc)%cpl=.FALSE.
+             co2trac(itc)%updatefreq = 86400*mth_len ! Once a month
+          END IF
+       CASE("fCO2_land")
+          itc = itc + 1
+          co2trac(itc)%name='fCO2_land'
+          co2trac(itc)%id=it
+          co2trac(itc)%file='fl_co2_land.nc'
+          IF (carbon_cycle_cpl .AND. ok_veget) THEN 
+             co2trac(itc)%cpl=.TRUE.
+             co2trac(itc)%updatefreq = INT(pdtphys) ! Each timestep as the coupling with ORCHIDEE
+          ELSE
+             co2trac(itc)%cpl=.FALSE.
+!             co2trac(itc)%updatefreq = 10800   ! 10800sec = 3H
+             co2trac(itc)%updatefreq = 86400*mth_len ! Once a month
+          END IF
+       CASE("fCO2_land_use")
+          itc = itc + 1
+          co2trac(itc)%name='fCO2_land_use'
+          co2trac(itc)%id=it
+          co2trac(itc)%file='fl_co2_land_use.nc'
+          IF (carbon_cycle_cpl .AND. ok_veget) THEN 
+             co2trac(it)%cpl=.TRUE.
+             co2trac(itc)%updatefreq = INT(pdtphys) ! Each timestep as the coupling with ORCHIDEE
+          ELSE
+             co2trac(itc)%cpl=.FALSE.
+             co2trac(itc)%updatefreq = 10800   ! 10800sec = 3H
+          END IF
+       CASE("fCO2_fos_fuel")
+          itc = itc + 1
+          co2trac(itc)%name='fCO2_fos_fuel'
+          co2trac(itc)%id=it
+          co2trac(itc)%file='fossil_fuel.nc'
+          co2trac(itc)%cpl=.FALSE.       ! This tracer always read from file
+!         co2trac(itc)%updatefreq = 86400  ! 86400sec = 24H Cadule case
+          co2trac(itc)%updatefreq = 86400*mth_len ! Once a month
+       CASE("fCO2_bbg")
+          itc = itc + 1
+          co2trac(itc)%name='fCO2_bbg'
+          co2trac(itc)%id=it
+          co2trac(itc)%file='fl_co2_bbg.nc'
+          co2trac(itc)%cpl=.FALSE.       ! This tracer always read from file
+          co2trac(itc)%updatefreq = 86400*mth_len ! Once a month
+       CASE("fCO2")
+          ! fCO2 : One tracer transporting the total CO2 flux
+          itc = itc + 1
+          co2trac(itc)%name='fCO2'
+          co2trac(itc)%id=it
+          co2trac(itc)%file='fl_co2.nc'
+          IF (carbon_cycle_cpl) THEN 
+             co2trac(itc)%cpl=.TRUE.
+          ELSE
+             co2trac(itc)%cpl=.FALSE.
+          END IF
+          co2trac(itc)%updatefreq = 86400
+          ! DOES THIS WORK ???? Problematic due to implementation of the coupled fluxes...
+          CALL abort_physic('carbon_cycle_init','transport of total CO2 has to be implemented and tested',1)
+       END SELECT
+    END DO
+
+    ! Total number of carbon CO2 tracers
+    ntr_co2 = itc 
+    
+    ! Definition of control varaiables for the tracers
+    DO it=1,ntr_co2
+       aerosol(co2trac(it)%id) = .FALSE.
+       radio(co2trac(it)%id)   = .FALSE.
+    END DO
+    
+    ! Vector indicating which timestep to read for each tracer
+    ! Always start read in the beginning of the file
+    co2trac(:)%readstep = 0
+   
+
+! 3) Allocate variables
+! ---------------------
+    ! Allocate vector for storing fluxes to inject
+    ALLOCATE(dtr_add(klon,maxco2trac), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('carbon_cycle_init', 'pb in allocation 11',1)       
+    
+    ! Allocate variables for cumulating fluxes from ORCHIDEE
+    IF (RCO2_inter) THEN
+       IF (.NOT. carbon_cycle_tr .AND. carbon_cycle_cpl) THEN
+          ALLOCATE(fco2_land_day(klon), stat=ierr)
+          IF (ierr /= 0) CALL abort_physic('carbon_cycle_init', 'pb in allocation 2',1)
+          fco2_land_day(1:klon) = 0.
+          
+          ALLOCATE(fco2_lu_day(klon), stat=ierr)
+          IF (ierr /= 0) CALL abort_physic('carbon_cycle_init', 'pb in allocation 3',1)
+          fco2_lu_day(1:klon)   = 0.
+       END IF
+    END IF
+
+
+! 4) Test for compatibility
+! -------------------------
+!    IF (carbon_cycle_cpl .AND. type_ocean/='couple') THEN
+!       WRITE(lunout,*) 'Coupling with ocean model is needed for carbon_cycle_cpl'
+!       CALL abort_physic('carbon_cycle_init', 'coupled ocean is needed for carbon_cycle_cpl',1)
+!    END IF
+!
+!    IF (carbon_cycle_cpl .AND..NOT. ok_veget) THEN
+!       WRITE(lunout,*) 'Coupling with surface land model ORCHDIEE is needed for carbon_cycle_cpl'
+!       CALL abort_physic('carbon_cycle_init', 'ok_veget is needed for carbon_cycle_cpl',1)
+!    END IF
+
+    ! Compiler test : following should never happen
+    teststop=0
+    DO it=1,teststop
+       CALL abort_physic('carbon_cycle_init', 'Entering loop from 1 to 0',1)
+    END DO
+
+    IF (ntr_co2==0) THEN
+       ! No carbon tracers found in tracer.def. It is not possible to do carbon cycle 
+       WRITE(lunout,*) 'No carbon tracers found in tracer.def. Not ok with carbon_cycle_tr and/or carbon_cycle_cp'
+       CALL abort_physic('carbon_cycle_init', 'No carbon tracers found in tracer.def',1)
+    END IF
+    
+! 5) Calculate total area of the earth surface
+! --------------------------------------------
+    CALL reduce_sum(SUM(cell_area),airetot)
+    CALL bcast(airetot)
+
+  END SUBROUTINE carbon_cycle_init
+
+
+  SUBROUTINE carbon_cycle(nstep, pdtphys, pctsrf, tr_seri, source)
+! Subroutine for injection of co2 in the tracers
+!
+! - Find out if it is time to update
+! - Get tracer from coupled model or from file
+! - Calculate new RCO2 value for the radiation scheme
+! - Calculate CO2 flux to send to ocean and land models (PISCES and ORCHIDEE)
+
+    USE infotrac_phy, ONLY: nbtr
+    USE dimphy
+    USE mod_phys_lmdz_transfert_para
+    USE phys_cal_mod, ONLY : mth_cur, mth_len
+    USE phys_cal_mod, ONLY : day_cur
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: lunout
+    USE geometry_mod, ONLY : cell_area
+
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+    INCLUDE "YOMCST.h"
+
+! In/Output arguments
+    INTEGER,INTENT(IN) :: nstep      ! time step in physiq
+    REAL,INTENT(IN)    :: pdtphys    ! length of time step in physiq (sec)
+    REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf            ! Surface fraction
+    REAL, DIMENSION(klon,klev,nbtr), INTENT(INOUT)  :: tr_seri ! All tracers
+    REAL, DIMENSION(klon,nbtr), INTENT(INOUT)       :: source  ! Source for all tracers
+
+! Local variables
+    INTEGER :: it
+    LOGICAL :: newmonth ! indicates if a new month just started
+    LOGICAL :: newday   ! indicates if a new day just started
+    LOGICAL :: endday   ! indicated if last time step in a day
+
+    REAL, PARAMETER :: fact=1.E-15/2.12  ! transformation factor from gC/m2/day => ppm/m2/day
+    REAL, DIMENSION(klon) :: fco2_tmp
+    REAL :: sumtmp
+    REAL :: delta_co2_ppm
+    
+
+! 1) Calculate logicals indicating if it is a new month, new day or the last time step in a day (end day)
+! -------------------------------------------------------------------------------------------------------
+
+    newday = .FALSE.; endday = .FALSE.; newmonth = .FALSE.
+
+    IF (MOD(nstep,INT(86400./pdtphys))==1) newday=.TRUE.
+    IF (MOD(nstep,INT(86400./pdtphys))==0) endday=.TRUE.
+    IF (newday .AND. day_cur==1) newmonth=.TRUE.
+
+! 2)  For each carbon tracer find out if it is time to inject (update)
+! --------------------------------------------------------------------
+    DO it = 1, ntr_co2
+       IF ( MOD(nstep,INT(co2trac(it)%updatefreq/pdtphys)) == 1 ) THEN
+          co2trac(it)%updatenow = .TRUE.
+       ELSE
+          co2trac(it)%updatenow = .FALSE.
+       END IF
+    END DO
+
+! 3) Get tracer update
+! --------------------------------------
+    DO it = 1, ntr_co2
+       IF ( co2trac(it)%updatenow ) THEN
+          IF ( co2trac(it)%cpl ) THEN
+             ! Get tracer from coupled model
+             SELECT CASE(co2trac(it)%name)
+             CASE('fCO2_land')     ! from ORCHIDEE
+                dtr_add(:,it) = fco2_land_inst(:)*pctsrf(:,is_ter)*fact ! [ppm/m2/day]
+             CASE('fCO2_land_use') ! from ORCHIDEE
+                dtr_add(:,it) = fco2_lu_inst(:)  *pctsrf(:,is_ter)*fact ! [ppm/m2/day]
+             CASE('fCO2_ocn')      ! from PISCES
+                dtr_add(:,it) = fco2_ocn_day(:)  *pctsrf(:,is_oce)*fact ! [ppm/m2/day]
+             CASE DEFAULT
+                WRITE(lunout,*) 'Error with tracer ',co2trac(it)%name
+                CALL abort_physic('carbon_cycle', 'No coupling implemented for this tracer',1)
+             END SELECT
+          ELSE
+             ! Read tracer from file
+             co2trac(it)%readstep = co2trac(it)%readstep + 1 ! increment time step in file
+! Patricia   CALL read_map2D(co2trac(it)%file,'fco2',co2trac(it)%readstep,.FALSE.,dtr_add(:,it))
+             CALL read_map2D(co2trac(it)%file,'fco2',co2trac(it)%readstep,.TRUE.,dtr_add(:,it))
+
+             ! Converte from kgC/m2/h to kgC/m2/s
+             dtr_add(:,it) = dtr_add(:,it)/3600
+             ! Add individual treatment of values read from file
+             SELECT CASE(co2trac(it)%name)
+             CASE('fCO2_land')
+                dtr_add(:,it) = dtr_add(:,it) *pctsrf(:,is_ter)
+             CASE('fCO2_land_use')
+                dtr_add(:,it) = dtr_add(:,it) *pctsrf(:,is_ter)
+             CASE('fCO2_ocn')
+                dtr_add(:,it) = dtr_add(:,it) *pctsrf(:,is_oce)
+! Patricia :
+!             CASE('fCO2_fos_fuel')
+!                dtr_add(:,it) = dtr_add(:,it)/mth_len
+!                co2trac(it)%readstep = 0 ! Always read same value for fossil fuel(Cadule case)
+             END SELECT
+          END IF
+       END IF
+    END DO
+
+! 4) Update co2 tracers : 
+!    Loop over all carbon tracers and add source
+! ------------------------------------------------------------------
+    IF (carbon_cycle_tr) THEN
+       DO it = 1, ntr_co2
+          IF (.FALSE.) THEN
+             tr_seri(1:klon,1,co2trac(it)%id) = tr_seri(1:klon,1,co2trac(it)%id) + dtr_add(1:klon,it)
+             source(1:klon,co2trac(it)%id) = 0.
+          ELSE
+             source(1:klon,co2trac(it)%id) = dtr_add(1:klon,it)
+          END IF
+       END DO
+    END IF
+
+
+! 5) Calculations for new CO2 value for the radiation scheme(instead of reading value from .def)
+! ----------------------------------------------------------------------------------------------
+    IF (RCO2_inter) THEN
+       ! Cumulate fluxes from ORCHIDEE at each timestep
+       IF (.NOT. carbon_cycle_tr .AND. carbon_cycle_cpl) THEN
+          IF (newday) THEN ! Reset cumulative variables once a day 
+             fco2_land_day(1:klon) = 0.
+             fco2_lu_day(1:klon)   = 0.
+          END IF
+          fco2_land_day(1:klon) = fco2_land_day(1:klon) + fco2_land_inst(1:klon) ![gC/m2/day]
+          fco2_lu_day(1:klon)   = fco2_lu_day(1:klon)   + fco2_lu_inst(1:klon)   ![gC/m2/day]
+       END IF
+
+       ! At the end of a new day, calculate a mean scalare value of CO2
+       ! JG : Ici on utilise uniquement le traceur du premier couche du modele. Est-ce que c'est correcte ? 
+       IF (endday) THEN
+
+          IF (carbon_cycle_tr) THEN
+             ! Sum all co2 tracers to get the total delta CO2 flux
+             fco2_tmp(:) = 0.
+             DO it = 1, ntr_co2
+                fco2_tmp(1:klon) = fco2_tmp(1:klon) + tr_seri(1:klon,1,co2trac(it)%id)
+             END DO
+             
+          ELSE IF (carbon_cycle_cpl) THEN ! no carbon_cycle_tr
+             ! Sum co2 fluxes comming from coupled models and parameter for fossil fuel
+             fco2_tmp(1:klon) = fos_fuel_s + ((fco2_lu_day(1:klon) + fco2_land_day(1:klon))*pctsrf(1:klon,is_ter) &
+                  + fco2_ocn_day(:)*pctsrf(:,is_oce)) * fact
+          END IF
+
+          ! Calculate a global mean value of delta CO2 flux
+          fco2_tmp(1:klon) = fco2_tmp(1:klon) * cell_area(1:klon)
+          CALL reduce_sum(SUM(fco2_tmp),sumtmp)
+          CALL bcast(sumtmp)
+          delta_co2_ppm = sumtmp/airetot
+          
+          ! Add initial value for co2_ppm and delta value
+          co2_ppm = co2_ppm0 + delta_co2_ppm
+          
+          ! Transformation of atmospheric CO2 concentration for the radiation code
+          RCO2 = co2_ppm * 1.0e-06  * 44.011/28.97 
+          
+          WRITE(lunout,*) 'RCO2 is now updated! RCO2 = ', RCO2
+       END IF ! endday
+
+    END IF ! RCO2_inter
+
+
+! 6) Calculate CO2 flux to send to ocean and land models : PISCES and ORCHIDEE         
+! ----------------------------------------------------------------------------
+    IF (carbon_cycle_cpl) THEN
+
+       IF (carbon_cycle_tr) THEN
+          ! Sum all co2 tracers to get the total delta CO2 flux at first model layer
+          fco2_tmp(:) = 0.
+          DO it = 1, ntr_co2
+             fco2_tmp(1:klon) = fco2_tmp(1:klon) + tr_seri(1:klon,1,co2trac(it)%id)
+          END DO
+          co2_send(1:klon) = fco2_tmp(1:klon) + co2_ppm0
+       ELSE
+          ! Send a scalare value in 2D variable to ocean and land model (PISCES and ORCHIDEE)
+          co2_send(1:klon) = co2_ppm
+       END IF
+
+    END IF
+
+  END SUBROUTINE carbon_cycle
+  
+END MODULE carbon_cycle_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cdrag.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cdrag.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cdrag.F90	(revision 3330)
@@ -0,0 +1,233 @@
+!
+!$Id: cdrag.F90 ???? 2015-??-?? ??:??:??Z ? $
+!
+ SUBROUTINE cdrag( knon,  nsrf,   &
+     speed, t1,    q1,    zgeop1, &
+     psol,  tsurf, qsurf, z0m, z0h,  &
+     pcfm,  pcfh,  zri,   pref )
+
+  USE dimphy
+  USE indice_sol_mod
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+! ================================================================= c
+!
+! Objet : calcul des cdrags pour le moment (pcfm) et 
+!         les flux de chaleur sensible et latente (pcfh).   
+!
+! Modified histroy: 
+!   27-Jan-2014: richardson number inconsistant between
+!   coefcdrag.F90 and clcdrag.F90, Fuxing WANG wrote this subroutine
+!   by merging coefcdrag and clcdrag.
+!
+! References:
+!   Louis, J. F., 1979: A parametric model of vertical eddy fluxes in the
+!     atmosphere. Boundary-Layer Meteorology. 01/1979; 17(2):187-202. 
+!   Louis, J. F., Tiedtke, M. and Geleyn, J. F., 1982: `A short history of the
+!     operational PBL parametrization at ECMWF'. Workshop on boundary layer
+!     parametrization, November 1981, ECMWF, Reading, England. 
+!     Page: 19. Equations in Table 1.
+!   Anton Beljaars. May 1992. The parametrization of the planetary boundary layer.  
+!     European Centre for Medium-Range Weather Forecasts.
+!     Equations: 110-113. Page 40.
+!   Miller,M.J., A.C.M.Beljaars, T.N.Palmer. 1992. The sensitivity of the ECMWF
+!     model to the parameterization of evaporation from the tropical oceans. J.
+!     Climate, 5:418-434.
+!
+! ================================================================= c
+!
+! knon----input-I- nombre de points pour un type de surface
+! nsrf----input-I- indice pour le type de surface; voir indicesol.h
+! speed---input-R- module du vent au 1er niveau du modele
+! t1------input-R- temperature de l'air au 1er niveau du modele
+! q1------input-R- humidite de l'air au 1er niveau du modele
+! zgeop---input-R- geopotentiel au 1er niveau du modele
+! psol----input-R- pression au sol
+! tsurf---input-R- temperature de l'air a la surface 
+! qsurf---input-R- humidite de l'air a la surface
+! z0m, z0h---input-R- rugosite
+!! u1, v1 are removed, speed is used. Fuxing WANG, 04/03/2015,
+!! u1------input-R- vent zonal au 1er niveau du modele
+!! v1------input-R- vent meridien au 1er niveau du modele
+!
+! pcfm---output-R- cdrag pour le moment 
+! pcfh---output-R- cdrag pour les flux de chaleur latente et sensible
+! zri----output-R- Richardson number
+! pref---output-R- pression au niveau zgeop/RG
+!
+! Parameters: 
+! ckap-----Karman constant
+! cb,cc,cd-parameters in Louis et al., 1982
+! ================================================================= c
+!
+!
+! Parametres d'entree
+!***************************************************************** 
+  INTEGER, INTENT(IN)                      :: knon, nsrf
+  REAL, DIMENSION(klon), INTENT(IN)        :: speed ! module du vent au 1er niveau du modele
+  REAL, DIMENSION(klon), INTENT(IN)        :: zgeop1! geopotentiel au 1er niveau du modele
+  REAL, DIMENSION(klon), INTENT(IN)        :: psol  ! pression au sol
+  REAL, DIMENSION(klon), INTENT(IN)        :: t1    ! temperature at 1st level
+  REAL, DIMENSION(klon), INTENT(IN)        :: q1    ! humidity at 1st level
+  REAL, DIMENSION(klon), INTENT(IN)        :: tsurf ! Surface temperature (K)
+  REAL, DIMENSION(klon), INTENT(IN)        :: qsurf ! Surface humidity (Kg/Kg)
+  REAL, DIMENSION(klon), INTENT(IN)        :: z0m, z0h ! Rugosity at surface (m) 
+!  paprs, pplay u1, v1: to be deleted
+!  they were in the old clcdrag. Fuxing WANG, 04/03/2015
+!  REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+!  REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+!  REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1
+
+! Parametres de sortie
+!******************************************************************
+  REAL, DIMENSION(klon), INTENT(OUT)       :: pcfm  ! Drag coefficient for heat flux
+  REAL, DIMENSION(klon), INTENT(OUT)       :: pcfh  ! Drag coefficient for momentum
+  REAL, DIMENSION(klon), INTENT(OUT)       :: zri   ! Richardson number
+  REAL, DIMENSION(klon), INTENT(OUT)       :: pref  ! Pression au niveau zgeop/RG
+
+! Parametres local
+  INTEGER                                  :: ng_q1    ! Number of grids that q1 < 0.0
+  INTEGER                                  :: ng_qsurf ! Number of grids that qsurf < 0.0
+!  zgeop1, psol: to be deleted, they are inputs now. Fuxing WANG, 04/03/2015
+!  REAL, DIMENSION(klon)                    :: zgeop1! geopotentiel au 1er niveau du modele
+!  REAL, DIMENSION(klon)                    :: psol  ! pression au sol
+!
+! ================================================================= c
+!
+  INCLUDE "YOMCST.h"
+  INCLUDE "YOETHF.h"
+!  INCLUDE "indicesol.h"
+  INCLUDE "clesphys.h"
+!
+! Quelques constantes et options:
+!!$PB      REAL, PARAMETER :: ckap=0.35, cb=5.0, cc=5.0, cd=5.0, cepdu2=(0.1)**2
+  REAL, PARAMETER :: CKAP=0.40, CB=5.0, CC=5.0, CD=5.0, CEPDU2 = (0.1)**2
+!
+! Variables locales :
+  INTEGER               :: i
+  REAL                  :: zdu2, ztsolv
+  REAL                  :: ztvd, zscf
+  REAL                  :: zucf, zcr
+  REAL                  :: friv, frih
+  REAL, DIMENSION(klon) :: zcfm1, zcfm2 ! Drag coefficient for momentum
+  REAL, DIMENSION(klon) :: zcfh1, zcfh2 ! Drag coefficient for heat flux
+  LOGICAL, PARAMETER    :: zxli=.FALSE. ! calcul des cdrags selon Laurent Li
+  REAL, DIMENSION(klon) :: zcdn_m, zcdn_h         ! Drag coefficient in neutral conditions
+  REAL zzzcd
+!
+! Fonctions thermodynamiques et fonctions d'instabilite
+  REAL                  :: fsta, fins, x
+  fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x))
+  fins(x) = SQRT(1.0-18.0*x)
+
+! ================================================================= c
+! Fuxing WANG, 04/03/2015, delete the calculation of zgeop1 
+! (le geopotentiel du premier couche de modele).
+! zgeop1 is an input ivariable in this subroutine.
+!  DO i = 1, knon
+!     zgeop1(i) = RD * t1(i) / (0.5*(paprs(i,1)+pplay(i,1))) &
+!          * (paprs(i,1)-pplay(i,1))
+!  END DO
+! ================================================================= c
+!
+! Fuxing WANG, 04/03/2015
+! To check if there are negative q1, qsurf values.
+  ng_q1 = 0     ! Initialization
+  ng_qsurf = 0  ! Initialization
+  DO i = 1, knon
+     IF (q1(i).LT.0.0)     ng_q1 = ng_q1 + 1
+     IF (qsurf(i).LT.0.0)  ng_qsurf = ng_qsurf + 1
+  ENDDO
+  IF (ng_q1.GT.0) THEN
+      WRITE(lunout,*)" *** Warning: Negative q1(humidity at 1st level) values in cdrag.F90 !"
+      WRITE(lunout,*)" The total number of the grids is: ", ng_q1
+      WRITE(lunout,*)" The negative q1 is set to zero "
+!      abort_message="voir ci-dessus"
+!      CALL abort_physic(modname,abort_message,1)
+  ENDIF
+  IF (ng_qsurf.GT.0) THEN
+      WRITE(lunout,*)" *** Warning: Negative qsurf(humidity at surface) values in cdrag.F90 !"
+      WRITE(lunout,*)" The total number of the grids is: ", ng_qsurf
+      WRITE(lunout,*)" The negative qsurf is set to zero "
+!      abort_message="voir ci-dessus"
+!      CALL abort_physic(modname,abort_message,1)
+  ENDIF
+
+! Calculer le frottement au sol (Cdrag)
+  DO i = 1, knon
+!------------------------------------------------------------
+! u1, v1 are replaced by speed. Fuxing WANG, 04/03/2015,
+!     zdu2 = MAX(CEPDU2,u1(i)**2+v1(i)**2)
+!------------------------------------------------------------
+     zdu2 = MAX(CEPDU2, speed(i)**2)
+!     psol(i) = paprs(i,1)
+     pref(i) = EXP(LOG(psol(i)) - zgeop1(i)/(RD*t1(i)* &
+                 (1.+ RETV * max(q1(i),0.0))))  ! negative q1 set to zero
+!------------ the old calculations in clcdrag----------------
+!     ztsolv = tsurf(i) * (1.0+RETV*qsurf(i)) 
+!     ztvd = (t1(i)+zgeop1(i)/RCPD/(1.+RVTMP2*q1(i))) &
+!          *(1.+RETV*q1(i)) 
+!------------------------------------------------------------
+! Fuxing WANG, 04/03/2015, in this revised version, 
+! the negative qsurf and q1 are set to zero (as in coefcdrag)
+     ztsolv = tsurf(i) * (1.0+RETV*max(qsurf(i),0.0)) ! negative qsurf set to zero
+     ztvd = (t1(i)+zgeop1(i)/RCPD/(1.+RVTMP2*q1(i))) &
+          *(1.+RETV*max(q1(i),0.0)) ! negative q1 set to zero
+     zri(i) = zgeop1(i)*(ztvd-ztsolv)/(zdu2*ztvd)
+
+
+! Coefficients CD neutres pour m et h : k^2/ln(z/z0) et k^2/(ln(z/z0)*ln(z/z0h))
+     zzzcd=CKAP/LOG(1.+zgeop1(i)/(RG*z0m(i)))
+     zcdn_m(i) = zzzcd*zzzcd
+     zcdn_h(i) = zzzcd*(CKAP/LOG(1.+zgeop1(i)/(RG*z0h(i))))
+
+     IF (zri(i) .GT. 0.) THEN      ! situation stable
+        zri(i) = MIN(20.,zri(i))
+        IF (.NOT.zxli) THEN
+           zscf = SQRT(1.+CD*ABS(zri(i)))
+           friv = AMAX1(1. / (1.+2.*CB*zri(i)/ZSCF), f_ri_cd_min)
+           zcfm1(i) = zcdn_m(i) * friv
+           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
+           zcfh1(i) = f_cdrag_ter * zcdn_h(i) * frih
+           IF(nsrf.EQ.is_oce) zcfh1(i) = f_cdrag_oce * zcdn_h(i) * frih
+!!$ PB
+           pcfm(i) = zcfm1(i)
+           pcfh(i) = zcfh1(i)
+        ELSE
+           pcfm(i) = zcdn_m(i)* fsta(zri(i))
+           pcfh(i) = zcdn_h(i)* fsta(zri(i))
+        ENDIF
+     ELSE                          ! situation instable
+        IF (.NOT.zxli) THEN
+           zucf = 1./(1.+3.0*CB*CC*zcdn_m(i)*SQRT(ABS(zri(i)) &
+                *(1.0+zgeop1(i)/(RG*z0m(i)))))
+           zcfm2(i) = zcdn_m(i)*amax1((1.-2.0*CB*zri(i)*zucf),f_ri_cd_min)
+!!$ PB     zcfh2(i) = zcdn_h(i)*amax1((1.-3.0*cb*zri(i)*zucf),f_ri_cd_min)
+           zcfh2(i) = f_cdrag_ter*zcdn_h(i)*amax1((1.-3.0*CB*zri(i)*zucf),f_ri_cd_min)
+           pcfm(i) = zcfm2(i)
+           pcfh(i) = zcfh2(i)
+        ELSE
+           pcfm(i) = zcdn_m(i)* fins(zri(i))
+           pcfh(i) = zcdn_h(i)* fins(zri(i))
+        ENDIF
+        IF(iflag_gusts==0) THEN
+! cdrah sur l'ocean cf. Miller et al. (1992) - only active when gustiness parameterization is not active
+           zcr = (0.0016/(zcdn_m(i)*SQRT(zdu2)))*ABS(ztvd-ztsolv)**(1./3.)
+           IF(nsrf.EQ.is_oce) pcfh(i) =f_cdrag_oce* zcdn_h(i)*(1.0+zcr**1.25)**(1./1.25)
+        ENDIF
+     ENDIF
+  END DO
+
+! ================================================================= c
+     
+  ! IM cf JLD : on seuille cdrag_m et cdrag_h
+  IF (nsrf == is_oce) THEN
+     DO i=1,knon
+        pcfm(i)=MIN(pcfm(i),cdmmax)
+        pcfh(i)=MIN(pcfh(i),cdhmax)
+     END DO
+  END IF
+
+END SUBROUTINE cdrag
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cfmip_point_locations.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cfmip_point_locations.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cfmip_point_locations.F90	(revision 3330)
@@ -0,0 +1,120 @@
+MODULE cfmip_point_locations
+  IMPLICIT NONE
+
+CONTAINS
+
+ SUBROUTINE read_CFMIP_point_locations(npCFMIP, tab, lonCFMIP, latCFMIP)
+  IMPLICIT none
+  INTEGER :: npCFMIP
+  REAL, DIMENSION(npCFMIP) :: lonCFMIP, latCFMIP
+  INTEGER :: tab(npCFMIP), np
+
+  WRITE(*,*) 'npCFMIP=',npCFMIP
+! OPEN(20, file="pointlocations.txt",status='old')
+  OPEN(20, file="pointlocations.txt",status='old',err=999)
+  OPEN(21, file="pointlocations_lon180.txt")
+  np=1
+10 READ(20,*) tab(np), lonCFMIP(np), latCFMIP(np)
+!!! passage de 0-360 a -180/180
+   IF (lonCFMIP(np).GT.180.) THEN
+    lonCFMIP(np)=lonCFMIP(np)-360.
+   ENDIF 
+   WRITE(21,*) np, lonCFMIP(np), latCFMIP(np)
+   np=np+1
+   IF(np.LE.npCFMIP) THEN 
+    GOTO 10
+   ENDIF
+   CLOSE(20)
+   CLOSE(21)
+999 RETURN
+ END SUBROUTINE read_CFMIP_point_locations
+
+ SUBROUTINE LMDZ_CFMIP_point_locations(npCFMIP, lonCFMIP, latCFMIP, &
+  tabijGCM, lonGCM, latGCM, ipt, jpt)
+  USE dimphy
+  USE iophy
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo
+
+  IMPLICIT none 
+  INTEGER :: npCFMIP
+  REAL, DIMENSION(npCFMIP) :: lonCFMIP, latCFMIP
+  INTEGER :: i, j, np, ip
+  INTEGER, DIMENSION(npCFMIP) :: ipt, jpt 
+  REAL :: dlon1, dlon2
+  REAL :: dlat1, dlat2
+  REAL, DIMENSION(nbp_lon+1) :: lon
+  INTEGER, DIMENSION(npCFMIP) :: tabijGCM
+  REAL, DIMENSION(npCFMIP) :: lonGCM, latGCM
+
+  lon(1:nbp_lon)=io_lon(:)
+  lon(nbp_lon+1)=-1*lon(1)
+  OPEN(22, file="LMDZ_pointsCFMIP.txt")
+  DO np=1, npCFMIP
+  DO i=1, nbp_lon
+!
+! PRINT*,'IM np i lonCF lonGCM lonGCM+1',np,i,lonCFMIP(np),lon(i), &
+!  lon(i+1)
+!
+   IF(lonCFMIP(np).GE.lon(i).AND.lonCFMIP(np).LT.lon(i+1)) THEN
+    dlon1 = abs (lonCFMIP(np) - lon(i))
+    dlon2 = abs (lonCFMIP(np) - lon(i+1))
+    IF (dlon1.LE.dlon2) THEN
+     ipt(np)=i
+    ELSE
+     ipt(np)=i+1
+    ENDIF
+   ENDIF
+  END DO
+  END DO
+!
+   np=1
+30 j=1
+40 IF(latCFMIP(np).LE.io_lat(j).AND.latCFMIP(np).GE.io_lat(j+1)) THEN
+    dlat1 = abs (latCFMIP(np) - io_lat(j))
+    dlat2 = abs (latCFMIP(np) - io_lat(j+1))
+    IF (dlat1.LE.dlat2) THEN
+     jpt(np)=j
+    ELSE
+     jpt(np)=j+1
+    ENDIF
+    np=np+1
+    IF(np.LE.npCFMIP) THEN
+     GOTO 30
+    ENDIF 
+   ELSE
+    j=j+1
+    IF(j.LE.nbp_lat-1) THEN 
+     GOTO 40
+    ENDIF
+   ENDIF
+
+  DO np=1, npCFMIP
+   WRITE(22,*) lon(ipt(np)), io_lat(jpt(np))
+  ENDDO
+  CLOSE(22)
+
+  OPEN(23, file="pointsCFMIPvsLMDZ.txt")
+    DO ip=1, npCFMIP
+     lonGCM(ip)=lon(ipt(ip))
+     latGCM(ip)=io_lat(jpt(ip))
+     if(jpt(ip).GE.2.AND.jpt(ip).LE.nbp_lat-1) THEN     
+      tabijGCM(ip)=1+(jpt(ip)-2)*nbp_lon+ipt(ip)
+     else if(jpt(ip).EQ.1) THEN
+      tabijGCM(ip)=1
+     else if(jpt(ip).EQ.nbp_lat) THEN
+      tabijGCM(ip)=klon_glo
+     else 
+      print*,'ip jpt tabijGCM',ip,jpt(ip),tabijGCM(ip)
+     endif
+!    PRINT*,'CFMIP ip lon lat tabijGCM',ip,lonGCM(ip),latGCM(ip),tabijGCM(ip)
+    ENDDO
+    DO ip=1, npCFMIP
+     if(lonGCM(ip).EQ.io_lon(1)) lonGCM(ip)=360.+lonGCM(ip)
+    ENDDO
+   DO i=1, npCFMIP
+    WRITE(23,*) i, lonCFMIP(i), latCFMIP(i), lonGCM(i), latGCM(i), tabijGCM(i)
+   ENDDO
+   CLOSE(23)
+ END SUBROUTINE LMDZ_CFMIP_point_locations 
+
+END MODULE CFMIP_point_locations
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/change_srf_frac_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/change_srf_frac_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/change_srf_frac_mod.F90	(revision 3330)
@@ -0,0 +1,190 @@
+!
+! $Id$
+!
+MODULE change_srf_frac_mod
+
+  IMPLICIT NONE
+
+CONTAINS
+! 
+! Change Surface Fractions
+! Author J Ghattas 2008
+
+  SUBROUTINE change_srf_frac(itime, dtime, jour, &
+        pctsrf, evap, z0m, z0h, agesno,              &
+        alb_dir, alb_dif, tsurf, ustar, u10m, v10m, pbl_tke)
+   
+
+
+!
+! This subroutine is called from physiq.F at each timestep. 
+! 1- For each type of ocean (force, slab, couple) receive new fractions only if
+!    it's time to modify (is_modified=true). Otherwise nothing is done (is_modified=false).   
+! If received new fraction :
+! 2- Tests and ajustements are done on the fractions 
+! 3- Initialize variables where a new fraction(new or melted ice) has appered, 
+!
+
+    USE dimphy 
+    USE surface_data, ONLY : type_ocean,version_ocean
+    USE limit_read_mod
+    USE pbl_surface_mod, ONLY : pbl_surface_newfrac
+    USE cpl_mod, ONLY : cpl_receive_frac
+    USE ocean_slab_mod, ONLY : fsic, ocean_slab_frac
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: lunout
+    
+    INCLUDE "YOMCST.h"
+!albedo SB >>>
+    include "clesphys.h"
+!albedo SB <<<
+
+
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: itime   ! current time step
+    INTEGER, INTENT(IN)                     :: jour    ! day of the year
+    REAL,    INTENT(IN)                     :: dtime   ! length of time step (s)
+  
+! In-Output arguments
+!****************************************************************************************
+   
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: pctsrf ! sub-surface fraction
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: evap, agesno ! sub-surface fraction
+    REAL, DIMENSION(klon,nbsrf+1), INTENT(INOUT) :: z0m,z0h ! sub-surface fraction
+!albedo SB >>>
+    REAL, DIMENSION(klon,nsw,nbsrf), INTENT(INOUT) :: alb_dir,alb_dif
+!albedo SB <<<
+
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: tsurf
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: ustar
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: u10m
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: v10m
+!jyg<
+!!    REAL, DIMENSION(klon,klev+1,nbsrf), INTENT(INOUT) :: pbl_tke
+    REAL, DIMENSION(klon,klev+1,nbsrf+1), INTENT(INOUT) :: pbl_tke
+!>jyg
+
+! Loccal variables
+!****************************************************************************************
+    INTEGER                        :: i, nsrf
+    LOGICAL                        :: is_modified   ! true if pctsrf is modified at this time step
+    LOGICAL                        :: test_sum=.FALSE.
+    LOGICAL, DIMENSION(klon,nbsrf) :: new_surf
+    REAL, DIMENSION(klon,nbsrf)    :: pctsrf_old    ! fraction from previous time-step
+    REAL                           :: tmpsum
+
+    pctsrf_old(:,:) = pctsrf(:,:)
+!****************************************************************************************
+! 1) 
+! For each type of ocean (force, slab, couple) receive new fractions only if it's time  
+! to modify (is_modified=true). Otherwise nothing is done (is_modified=false).   
+!****************************************************************************************
+    SELECT CASE (type_ocean)
+    CASE ('force')
+       ! Read fraction from limit.nc
+       CALL limit_read_frac(itime, dtime, jour, pctsrf, is_modified)
+    CASE ('slab')
+       ! Get fraction from slab module
+       CALL ocean_slab_frac(itime, dtime, jour, pctsrf, is_modified)
+    CASE ('couple')
+       ! Get fraction from the coupler
+       CALL cpl_receive_frac(itime, dtime, pctsrf, is_modified)
+    END SELECT
+
+
+!****************************************************************************************
+! 2) 
+! Tests and ajustements on the new fractions :
+! - Put to zero fractions that are too small
+! - Test total fraction sum is one for each grid point
+!
+!****************************************************************************************
+    IF (is_modified) THEN
+  
+! Test and exit if a fraction is negative
+       IF (MINVAL(pctsrf(:,:)) < 0.) THEN
+          WRITE(lunout,*)'Warning! One or several fractions are negative, itime=',itime
+          WRITE(lunout,*)'at point = ',MINLOC(pctsrf(:,:))
+          WRITE(lunout,*)'value = ',MINVAL(pctsrf(:,:)) 
+          CALL abort_physic('change_srf_frac','Negative fraction',1)
+       END IF
+
+! Optional test on the incoming fraction 
+       IF (test_sum) THEN
+          DO i= 1, klon
+             tmpsum = SUM(pctsrf(i,:))
+             IF (ABS(1. - tmpsum) > 0.05) CALL abort_physic('change_srf_frac','Total fraction not equal 1.',1)
+          END DO
+       END IF
+
+! Test for too small fractions of the sum land+landice and ocean+sea-ice
+       WHERE ((pctsrf(:,is_ter) + pctsrf(:,is_lic)) < 2*EPSFRA)
+          pctsrf(:,is_ter) = 0.
+          pctsrf(:,is_lic) = 0.
+       END WHERE
+
+       WHERE ((pctsrf(:,is_oce) + pctsrf(:,is_sic)) < 2*EPSFRA)
+          pctsrf(:,is_oce) = 0.
+          pctsrf(:,is_sic) = 0.
+       END WHERE
+
+! Normalize to force total fraction to be equal one
+       DO i= 1, klon
+          tmpsum = SUM(pctsrf(i,:))
+          DO nsrf = 1, nbsrf
+             pctsrf(i,nsrf) = pctsrf(i,nsrf) / tmpsum
+          END DO
+       END DO
+
+! Test for too small fractions at each sub-surface
+       WHERE (pctsrf(:,is_ter) < EPSFRA)
+          pctsrf(:,is_lic) = pctsrf(:,is_ter) + pctsrf(:,is_lic)
+          pctsrf(:,is_ter) = 0.
+       END WHERE
+
+       WHERE (pctsrf(:,is_lic) < EPSFRA)
+          pctsrf(:,is_ter) = pctsrf(:,is_ter) + pctsrf(:,is_lic)
+          pctsrf(:,is_lic) = 0.
+       END WHERE
+
+       WHERE (pctsrf(:,is_oce) < EPSFRA)
+          pctsrf(:,is_sic) = pctsrf(:,is_oce) + pctsrf(:,is_sic)
+          pctsrf(:,is_oce) = 0.
+       END WHERE
+
+       WHERE (pctsrf(:,is_sic) < EPSFRA)
+          pctsrf(:,is_oce) = pctsrf(:,is_oce) + pctsrf(:,is_sic)
+          pctsrf(:,is_sic) = 0.
+       END WHERE
+! Send fractions back to slab ocean if needed
+       IF (type_ocean == 'slab'.AND. version_ocean.NE.'sicINT') THEN
+           WHERE (1.-zmasq(:)>EPSFRA)
+               fsic(:)=pctsrf(:,is_sic)/(1.-zmasq(:))
+           END WHERE
+       END IF
+
+!****************************************************************************************
+! 3)
+! Initialize variables where a new fraction has appered, 
+! i.e. where new sea ice has been formed
+! or where ice free ocean has appread in a grid cell
+! 
+!****************************************************************************************
+
+       CALL pbl_surface_newfrac(itime, pctsrf, pctsrf_old,        &
+           evap, z0m, z0h, agesno,                                &
+           tsurf, alb_dir,alb_dif, ustar, u10m, v10m, pbl_tke)
+
+
+    ELSE
+       ! No modifcation should be done
+       pctsrf(:,:) = pctsrf_old(:,:)
+
+    END IF ! is_modified
+
+  END SUBROUTINE change_srf_frac
+
+
+END MODULE change_srf_frac_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/chem.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/chem.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/chem.h	(revision 3330)
@@ -0,0 +1,14 @@
+!
+! $Header$
+!
+      INTEGER idms, iso2, iso4, ih2s, idmso, imsa, ih2o2
+      PARAMETER (idms=1, iso2=2, iso4=3)
+      PARAMETER (ih2s=4, idmso=5, imsa=6, ih2o2=7)
+
+      REAL n_avogadro, masse_s, masse_so4, rho_water, rho_ice
+      PARAMETER (n_avogadro=6.02E23)                  !--molec mol-1
+      PARAMETER (masse_s=32.0)                        !--g mol-1
+      PARAMETER (masse_so4=96.0)                      !--g mol-1
+      PARAMETER (rho_water=1000.0)                    !--kg m-3
+      PARAMETER (rho_ice=500.0)                       !--kg m-3
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clcdrag.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clcdrag.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clcdrag.F90	(revision 3330)
@@ -0,0 +1,149 @@
+!
+!$Id$
+!
+SUBROUTINE clcdrag(knon, nsrf, paprs, pplay,&
+     u1, v1, t1, q1, &
+     tsurf, qsurf, rugos, &
+     pcfm, pcfh)
+
+  USE dimphy
+  USE indice_sol_mod
+
+  IMPLICIT NONE
+! ================================================================= c
+!
+! Objet : calcul des cdrags pour le moment (pcfm) et 
+!         les flux de chaleur sensible et latente (pcfh).   
+!
+! ================================================================= c
+!
+! knon----input-I- nombre de points pour un type de surface
+! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90
+! u1-------input-R- vent zonal au 1er niveau du modele
+! v1-------input-R- vent meridien au 1er niveau du modele
+! t1-------input-R- temperature de l'air au 1er niveau du modele
+! q1-------input-R- humidite de l'air au 1er niveau du modele
+! tsurf------input-R- temperature de l'air a la surface
+! qsurf---input-R- humidite de l'air a la surface
+! rugos---input-R- rugosite
+!
+! pcfm---output-R- cdrag pour le moment 
+! pcfh---output-R- cdrag pour les flux de chaleur latente et sensible
+!
+  INTEGER, INTENT(IN)                      :: knon, nsrf
+  REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+  REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, t1, q1
+  REAL, DIMENSION(klon), INTENT(IN)        :: tsurf, qsurf
+  REAL, DIMENSION(klon), INTENT(IN)        :: rugos
+  REAL, DIMENSION(klon), INTENT(OUT)       :: pcfm, pcfh
+!
+! ================================================================= c
+!
+  INCLUDE "YOMCST.h"
+  INCLUDE "YOETHF.h"
+  INCLUDE "clesphys.h"
+!
+! Quelques constantes et options:
+!!$PB      REAL, PARAMETER :: ckap=0.35, cb=5.0, cc=5.0, cd=5.0, cepdu2=(0.1)**2
+  REAL, PARAMETER :: ckap=0.40, cb=5.0, cc=5.0, cd=5.0, cepdu2=(0.1)**2
+!
+! Variables locales :
+  INTEGER               :: i
+  REAL                  :: zdu2, ztsolv
+  REAL                  :: ztvd, zscf
+  REAL                  :: zucf, zcr
+  REAL                  :: friv, frih
+  REAL, DIMENSION(klon) :: zcfm1, zcfm2
+  REAL, DIMENSION(klon) :: zcfh1, zcfh2
+  REAL, DIMENSION(klon) :: zcdn
+  REAL, DIMENSION(klon) :: zri
+  REAL, DIMENSION(klon) :: zgeop1       ! geopotentiel au 1er niveau du modele
+  LOGICAL, PARAMETER    :: zxli=.FALSE. ! calcul des cdrags selon Laurent Li
+
+  CHARACTER (LEN=80) :: abort_message
+  CHARACTER (LEN=20) :: modname = 'clcdrag'
+
+
+!
+! Fonctions thermodynamiques et fonctions d'instabilite
+  REAL                  :: fsta, fins, x
+  fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x))
+  fins(x) = SQRT(1.0-18.0*x)
+
+  abort_message='obsolete, remplace par cdrag, use at you own risk'
+  CALL abort_physic(modname,abort_message,1)
+
+
+
+! ================================================================= c
+!
+! Calculer le geopotentiel du premier couche de modele
+!
+  DO i = 1, knon
+     zgeop1(i) = RD * t1(i) / (0.5*(paprs(i,1)+pplay(i,1))) &
+          * (paprs(i,1)-pplay(i,1))
+  END DO
+! ================================================================= c
+!
+! Calculer le frottement au sol (Cdrag)
+!
+  DO i = 1, knon
+     zdu2 = MAX(cepdu2,u1(i)**2+v1(i)**2)
+     ztsolv = tsurf(i) * (1.0+RETV*qsurf(i))
+     ztvd = (t1(i)+zgeop1(i)/RCPD/(1.+RVTMP2*q1(i))) &
+          *(1.+RETV*q1(i))
+     zri(i) = zgeop1(i)*(ztvd-ztsolv)/(zdu2*ztvd)
+     zcdn(i) = (ckap/LOG(1.+zgeop1(i)/(RG*rugos(i))))**2
+
+!!$        IF (zri(i) .ge. 0.) THEN      ! situation stable
+     IF (zri(i) .GT. 0.) THEN      ! situation stable
+        zri(i) = MIN(20.,zri(i))
+        IF (.NOT.zxli) THEN
+           zscf = SQRT(1.+cd*ABS(zri(i)))
+           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), f_ri_cd_min )
+!!$  PB          zcfh1(i) = zcdn(i) * FRIH
+!!$ PB           zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
+           zcfh1(i) = f_cdrag_ter * zcdn(i) * FRIH
+           IF(nsrf.EQ.is_oce) zcfh1(i) = f_cdrag_oce * zcdn(i) * FRIH
+!!$ PB
+           pcfm(i) = zcfm1(i)
+           pcfh(i) = zcfh1(i)
+        ELSE
+           pcfm(i) = zcdn(i)* fsta(zri(i))
+           pcfh(i) = zcdn(i)* fsta(zri(i))
+        ENDIF
+     ELSE                          ! situation instable
+        IF (.NOT.zxli) THEN
+           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),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)
+        ELSE
+           pcfm(i) = zcdn(i)* fins(zri(i))
+           pcfh(i) = zcdn(i)* fins(zri(i))
+        ENDIF
+        IF(iflag_gusts==0) THEN
+! cdrah sur l'ocean cf. Miller et al. (1992) - only active when gustiness parameterization is not active
+           zcr = (0.0016/(zcdn(i)*SQRT(zdu2)))*ABS(ztvd-ztsolv)**(1./3.)
+           IF(nsrf.EQ.is_oce) pcfh(i) =f_cdrag_oce* zcdn(i)*(1.0+zcr**1.25)**(1./1.25)
+        ENDIF
+     ENDIF
+  END DO
+
+! ================================================================= c
+     
+  ! IM cf JLD : on seuille cdrag_m et cdrag_h
+  IF (nsrf == is_oce) THEN
+     DO i=1,knon
+        pcfm(i)=MIN(pcfm(i),cdmmax)
+        pcfh(i)=MIN(pcfh(i),cdhmax)
+     END DO
+  END IF
+
+END SUBROUTINE clcdrag
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clesphys.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clesphys.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clesphys.h	(revision 3330)
@@ -0,0 +1,134 @@
+
+!
+! $Id$
+!
+!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
+!                 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)
+!
+!..include cles_phys.h
+!
+       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
+       LOGICAL ok_suntime_rrtm
+       REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12  
+       REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act  
+       REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
+!IM ajout CFMIP2/CMIP5
+       LOGICAL ok_4xCO2atm
+       REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
+       REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
+
+!OM ---> correction du bilan d'eau global
+!OM Correction sur precip KE
+       REAL cvl_corr
+!OM Fonte calotte dans bilan eau
+       LOGICAL ok_lic_melt
+
+!IM simulateur ISCCP 
+       INTEGER top_height, overlap
+!IM seuils cdrm, cdrh
+       REAL cdmmax, cdhmax
+!IM param. stabilite s/ terres et en dehors
+       REAL ksta, ksta_ter, f_ri_cd_min
+!IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
+       LOGICAL ok_kzmin
+!IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif - 
+!                          pour regler l albedo sur ocean
+       REAL pbl_lmixmin_alpha
+       REAL fmagic, pmagic
+! Hauteur (imposee) du contenu en eau du sol
+           REAL qsol0,albsno0,evap0
+! Frottement au sol (Cdrag)
+       Real f_cdrag_ter,f_cdrag_oce
+       REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
+       REAL z0m_seaice,z0h_seaice
+       INTEGER iflag_gusts,iflag_z0_oce
+
+! Rugoro
+       Real f_rugoro,z0min
+
+!IM lev_histhf  : niveau sorties 6h
+!IM lev_histday : niveau sorties journalieres
+!IM lev_histmth : niveau sorties mensuelles
+!IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien 
+!                    sur 17 niveaux de pression
+       INTEGER lev_histhf, lev_histday, lev_histmth
+       INTEGER lev_histdayNMC
+       Integer lev_histins, lev_histLES  
+!IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
+!IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
+!IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
+!IM pasphys : pas de temps de physique (secondes)
+       REAL pasphys
+       LOGICAL ok_histNMC(3)
+       INTEGER levout_histNMC(3)
+       REAL freq_outNMC(3) , freq_calNMC(3)
+       CHARACTER(len=4) type_run
+! aer_type: pour utiliser un fichier constant dans readaerosol 
+       CHARACTER(len=8) :: aer_type 
+       LOGICAL ok_regdyn
+       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
+       REAL ecrit_ins, ecrit_hf, ecrit_day
+       REAL ecrit_mth, ecrit_tra, ecrit_reg 
+       REAL ecrit_LES
+       REAL freq_ISCCP, ecrit_ISCCP
+       REAL freq_COSP, freq_AIRS
+       LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
+       LOGICAL :: ok_airs
+       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
+       LOGICAL :: ok_chlorophyll
+       LOGICAL :: ok_strato
+       LOGICAL :: ok_hines, ok_gwd_rando
+       LOGICAL :: ok_qch4
+       LOGICAL :: ok_conserv_q
+
+       COMMON/clesphys/                                                 &
+! REAL FIRST
+     &       co2_ppm, solaire                                           &
+     &     , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
+     &     , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
+     &     , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
+     &     , 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,f_ri_cd_min,pbl_lmixmin_alpha  &
+     &     , fmagic, pmagic                                             &
+     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
+     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
+     &     , z0m_seaice,z0h_seaice                                      &
+     &     , pasphys            , freq_outNMC, freq_calNMC              &
+     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
+     &     , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
+     &     , cvl_corr                                                   &
+     &     , qsol0,albsno0,evap0                                        &
+     &     , co2_ppm0                                                   &
+     &     , ecrit_LES                                                  &
+     &     , ecrit_ins, ecrit_hf, ecrit_day                             &
+     &     , ecrit_mth, ecrit_tra, ecrit_reg                            &
+! THEN INTEGER AND LOGICALS
+     &     , top_height                                                 &
+     &     , cycle_diurne, soil_model, new_oliq                         &
+     &     , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con     &
+     &     , iflag_ener_conserv                                         &
+     &     , ok_4xCO2atm                                                & 
+     &     , ok_suntime_rrtm                                            & 
+     &     , overlap                                                    &
+     &     , ok_kzmin                                                   &
+     &     , lev_histhf, lev_histday, lev_histmth                       &
+     &     , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
+     &     , ok_histNMC                                                 &
+     &     , type_run, ok_regdyn, ok_cosp, ok_airs                      &
+     &     , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
+     &     , ip_ebil_phy                                                &
+     &     , iflag_gusts ,iflag_z0_oce                                  &
+     &     , ok_lic_melt,           aer_type                            &
+     &     , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
+     &     , iflag_ice_thermo, ok_gwd_rando, NSW, iflag_albedo          &
+     &     , ok_chlorophyll,ok_conserv_q, ok_all_xml
+     
+       save /clesphys/
+!$OMP THREADPRIVATE(/clesphys/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clift.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clift.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clift.F90	(revision 3330)
@@ -0,0 +1,74 @@
+
+! $Header$
+
+SUBROUTINE clift(p, t, rr, rs, plcl, dplcldt, dplcldq)
+IMPLICIT NONE
+  ! ***************************************************************
+  ! *                                                             *
+  ! * CLIFT : COMPUTE LIFTING CONDENSATION LEVEL AND ITS          *
+  ! *         DERIVATIVES RELATIVE TO T AND R                     *
+  ! *   (WITHIN 0.2% OF FORMULA OF BOLTON, MON. WEA. REV.,1980)   *
+  ! *                                                             *
+  ! * written by   : GRANDPEIX Jean-Yves, 17/11/98, 12.39.01      *
+  ! * modified by :                                               *
+  ! ***************************************************************
+  ! *
+  ! *Arguments :
+  ! *
+  ! * Input :  P = pressure of level from wich lifting is performed
+  ! *          T = temperature of level P
+  ! *          RR = vapour mixing ratio at level P
+  ! *          RS = vapour saturation mixing ratio at level P
+  ! *
+  ! * Output : PLCL = lifting condensation level
+  ! *          DPLCLDT = derivative of PLCL relative to T
+  ! *          DPLCLDQ = derivative of PLCL relative to R
+  ! *
+  ! cccccccccccccccccccccc
+  ! constantes coherentes avec le modele du Centre Europeen
+  ! RD = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 28.9644
+  ! RV = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 18.0153
+  ! CPD = 3.5 * RD
+  ! CPV = 4.0 * RV
+  ! CL = 4218.0
+  ! CI=2090.0
+  ! CPVMCL=CL-CPV
+  ! CLMCI=CL-CI
+  ! EPS=RD/RV
+  ! ALV0=2.5008E+06
+  ! ALF0=3.34E+05
+
+  ! on utilise les constantes thermo du Centre Europeen: (sb)
+
+  include "YOMCST.h"
+  real :: p,t,rr,rs,plcl,dplcldt,dplcldq,cpd,cpv,cl,cpvmcl,eps,alv0,a,b
+  real :: rh,chi,alv
+
+  cpd = rcpd
+  cpv = rcpv
+  cl = rcw
+  cpvmcl = cl - cpv
+  eps = rd/rv
+  alv0 = rlvtt
+
+
+  ! Bolton formula coefficients :
+  a = 1669.0
+  b = 122.0
+
+  rh = rr/rs
+  chi = t/(a-b*rh-t)
+  plcl = p*(rh**chi)
+
+  alv = alv0 - cpvmcl*(t-273.15)
+
+  ! -- sb: correction:
+  ! DPLCLDQ = PLCL*CHI*( 1./RR - B*CHI/T/RS*ALOG(RH) )
+  dplcldq = plcl*chi*(1./rr+b*chi/t/rs*alog(rh))
+  ! sb --
+
+  dplcldt = plcl*chi*((a-b*rh*(1.+alv/rv/t))/t**2*chi*alog(rh)-alv/rv/t**2)
+
+
+  RETURN
+END SUBROUTINE clift
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/climb_hq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/climb_hq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/climb_hq_mod.F90	(revision 3330)
@@ -0,0 +1,461 @@
+MODULE climb_hq_mod
+!
+! Module to solve the verctical diffusion of "q" and "H"; 
+! specific humidity and potential energi.
+!
+  USE dimphy
+
+  IMPLICIT NONE
+  SAVE 
+  PRIVATE
+  PUBLIC :: climb_hq_down, climb_hq_up
+
+  REAL, DIMENSION(:,:), ALLOCATABLE :: gamaq, gamah
+  !$OMP THREADPRIVATE(gamaq,gamah)
+  REAL, DIMENSION(:,:), ALLOCATABLE :: Ccoef_Q, Dcoef_Q
+  !$OMP THREADPRIVATE(Ccoef_Q, Dcoef_Q)
+  REAL, DIMENSION(:,:), ALLOCATABLE :: Ccoef_H, Dcoef_H
+  !$OMP THREADPRIVATE(Ccoef_H, Dcoef_H)
+  REAL, DIMENSION(:), ALLOCATABLE   :: Acoef_Q, Bcoef_Q
+  !$OMP THREADPRIVATE(Acoef_Q, Bcoef_Q)
+  REAL, DIMENSION(:), ALLOCATABLE   :: Acoef_H, Bcoef_H
+  !$OMP THREADPRIVATE(Acoef_H, Bcoef_H)
+  REAL, DIMENSION(:,:), ALLOCATABLE :: Kcoefhq
+  !$OMP THREADPRIVATE(Kcoefhq)
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE climb_hq_down(knon, coefhq, paprs, pplay, &
+       delp, temp, q, dtime, &
+!!! nrlmd le 02/05/2011
+       Ccoef_H_out, Ccoef_Q_out, Dcoef_H_out, Dcoef_Q_out, &
+       Kcoef_hq_out, gama_q_out, gama_h_out, &
+!!!
+       Acoef_H_out, Acoef_Q_out, Bcoef_H_out, Bcoef_Q_out)
+
+! This routine calculates recursivly the coefficients C and D
+! for the quantity X=[Q,H] in equation X(k) = C(k) + D(k)*X(k-1), where k is
+! the index of the vertical layer.
+!
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: knon
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: coefhq
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay 
+    REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs 
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: temp, delp  ! temperature
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: q
+    REAL, INTENT(IN)                         :: dtime
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Acoef_H_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Acoef_Q_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Bcoef_H_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Bcoef_Q_out
+
+!!! nrlmd le 02/05/2011
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Ccoef_H_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Ccoef_Q_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Dcoef_H_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Dcoef_Q_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Kcoef_hq_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: gama_q_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: gama_h_out
+!!!
+
+! Local variables
+!****************************************************************************************
+    LOGICAL, SAVE                            :: first=.TRUE.
+    !$OMP THREADPRIVATE(first)
+    REAL, DIMENSION(klon,klev)               :: local_H
+    REAL, DIMENSION(klon)                    :: psref 
+    REAL                                     :: delz, pkh
+    INTEGER                                  :: k, i, ierr
+
+! Include
+!****************************************************************************************
+    INCLUDE "YOMCST.h"
+    INCLUDE "compbl.h"    
+
+
+!****************************************************************************************
+! 1)
+! Allocation at first time step only
+!   
+!****************************************************************************************
+
+    IF (first) THEN
+       first=.FALSE.
+       ALLOCATE(Ccoef_Q(klon,klev), STAT=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in allloc Ccoef_Q, ierr=', ierr
+       
+       ALLOCATE(Dcoef_Q(klon,klev), STAT=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in allloc Dcoef_Q, ierr=', ierr
+       
+       ALLOCATE(Ccoef_H(klon,klev), STAT=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in allloc Ccoef_H, ierr=', ierr
+       
+       ALLOCATE(Dcoef_H(klon,klev), STAT=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in allloc Dcoef_H, ierr=', ierr
+       
+       ALLOCATE(Acoef_Q(klon), Bcoef_Q(klon), Acoef_H(klon), Bcoef_H(klon), STAT=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in allloc Acoef_X and Bcoef_X, ierr=', ierr
+       
+       ALLOCATE(Kcoefhq(klon,klev), STAT=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in allloc Kcoefhq, ierr=', ierr
+       
+       ALLOCATE(gamaq(1:klon,2:klev), STAT=ierr)
+       IF ( ierr /= 0 ) PRINT*,' pb in allloc gamaq, ierr=', ierr
+       
+       ALLOCATE(gamah(1:klon,2:klev), STAT=ierr)
+       IF ( ierr /= 0 ) PRINT*,' pb in allloc gamah, ierr=', ierr
+    END IF
+
+!****************************************************************************************
+! 2)
+! Definition of the coeficient K 
+!
+!****************************************************************************************
+    Kcoefhq(:,:) = 0.0
+    DO k = 2, klev
+       DO i = 1, knon
+          Kcoefhq(i,k) = &
+               coefhq(i,k)*RG*RG*dtime /(pplay(i,k-1)-pplay(i,k)) &
+               *(paprs(i,k)*2/(temp(i,k)+temp(i,k-1))/RD)**2
+       ENDDO
+    ENDDO
+
+!****************************************************************************************
+! 3)
+! Calculation of gama for "Q" and "H"
+!
+!****************************************************************************************
+!   surface pressure is used as reference
+    psref(:) = paprs(:,1) 
+
+!   definition of gama
+    IF (iflag_pbl == 1) THEN
+       gamaq(:,:) = 0.0
+       gamah(:,:) = -1.0e-03
+       gamah(:,2) = -2.5e-03
+ 
+! conversion de gama
+       DO k = 2, klev
+          DO i = 1, knon
+             delz = RD * (temp(i,k-1)+temp(i,k)) / & 
+                    2.0 / RG / paprs(i,k) * (pplay(i,k-1)-pplay(i,k))
+             pkh  = (psref(i)/paprs(i,k))**RKAPPA
+          
+! convertie gradient verticale d'humidite specifique en difference d'humidite specifique entre centre de couches
+             gamaq(i,k) = gamaq(i,k) * delz    
+! convertie gradient verticale de temperature en difference de temperature potentielle entre centre de couches 
+             gamah(i,k) = gamah(i,k) * delz * RCPD * pkh
+          ENDDO
+       ENDDO
+
+    ELSE
+       gamaq(:,:) = 0.0
+       gamah(:,:) = 0.0
+    ENDIF
+    
+
+!****************************************************************************************    
+! 4)
+! Calculte the coefficients C and D for specific humidity, q
+!
+!****************************************************************************************
+    
+    CALL calc_coef(knon, Kcoefhq(:,:), gamaq(:,:), delp(:,:), q(:,:), &
+         Ccoef_Q(:,:), Dcoef_Q(:,:), Acoef_Q, Bcoef_Q)
+
+!****************************************************************************************
+! 5)
+! Calculte the coefficients C and D for potentiel entalpie, H 
+!
+!****************************************************************************************
+    local_H(:,:) = 0.0
+
+    DO k=1,klev
+       DO i = 1, knon
+          ! convertie la temperature en entalpie potentielle
+          local_H(i,k) = RCPD * temp(i,k) * &
+               (psref(i)/pplay(i,k))**RKAPPA
+       ENDDO
+    ENDDO
+
+    CALL calc_coef(knon, Kcoefhq(:,:), gamah(:,:), delp(:,:), local_H(:,:), &
+         Ccoef_H(:,:), Dcoef_H(:,:), Acoef_H, Bcoef_H)
+ 
+!****************************************************************************************
+! 6)
+! Return the first layer in output variables
+!
+!****************************************************************************************
+    Acoef_H_out = Acoef_H
+    Bcoef_H_out = Bcoef_H
+    Acoef_Q_out = Acoef_Q
+    Bcoef_Q_out = Bcoef_Q
+
+!****************************************************************************************
+! 7)
+! If Pbl is split, return also the other layers in output variables
+!
+!****************************************************************************************
+!!! jyg le 07/02/2012
+       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+!!! nrlmd le 02/05/2011
+    DO k= 1, klev
+      DO i= 1, klon
+        Ccoef_H_out(i,k) = Ccoef_H(i,k)
+        Dcoef_H_out(i,k) = Dcoef_H(i,k)
+        Ccoef_Q_out(i,k) = Ccoef_Q(i,k)
+        Dcoef_Q_out(i,k) = Dcoef_Q(i,k)
+        Kcoef_hq_out(i,k) = Kcoefhq(i,k)
+          IF (k.eq.1) THEN
+            gama_h_out(i,k)  = 0.
+            gama_q_out(i,k)  = 0.
+          ELSE
+            gama_h_out(i,k)  = gamah(i,k)
+            gama_q_out(i,k)  = gamaq(i,k)
+          ENDIF
+      ENDDO
+    ENDDO
+!!!      
+       ENDIF  ! (mod(iflag_pbl_split,2) .eq.1)
+!!!
+
+  END SUBROUTINE climb_hq_down
+!
+!****************************************************************************************
+!
+  SUBROUTINE calc_coef(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
+!
+! Calculate the coefficients C and D in : X(k) = C(k) + D(k)*X(k-1)
+! where X is H or Q, and k the vertical level k=1,klev
+!
+    INCLUDE "YOMCST.h"
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: knon
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: Kcoef, delp
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: X
+    REAL, DIMENSION(klon,2:klev), INTENT(IN) :: gama
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Acoef, Bcoef
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Ccoef, Dcoef
+
+! Local variables
+!****************************************************************************************
+    INTEGER                                  :: k, i
+    REAL                                     :: buf
+
+!****************************************************************************************
+! Niveau au sommet, k=klev
+!
+!****************************************************************************************
+    Ccoef(:,:) = 0.0
+    Dcoef(:,:) = 0.0
+
+    DO i = 1, knon
+       buf = delp(i,klev) + Kcoef(i,klev)
+       
+       Ccoef(i,klev) = (X(i,klev)*delp(i,klev) - Kcoef(i,klev)*gama(i,klev))/buf
+       Dcoef(i,klev) = Kcoef(i,klev)/buf
+    END DO
+
+
+!****************************************************************************************
+! Niveau  (klev-1) <= k <= 2
+!
+!****************************************************************************************
+
+    DO k=(klev-1),2,-1
+       DO i = 1, knon
+          buf = delp(i,k) + Kcoef(i,k) + Kcoef(i,k+1)*(1.-Dcoef(i,k+1))
+          Ccoef(i,k) = (X(i,k)*delp(i,k) + Kcoef(i,k+1)*Ccoef(i,k+1) + &
+               Kcoef(i,k+1)*gama(i,k+1) - Kcoef(i,k)*gama(i,k))/buf
+          Dcoef(i,k) = Kcoef(i,k)/buf
+       END DO
+    END DO
+
+!****************************************************************************************
+! Niveau k=1
+!
+!****************************************************************************************
+
+    DO i = 1, knon
+       buf = delp(i,1) + Kcoef(i,2)*(1.-Dcoef(i,2))
+       Acoef(i) = (X(i,1)*delp(i,1) + Kcoef(i,2)*(gama(i,2)+Ccoef(i,2)))/buf
+       Bcoef(i) = -1. * RG / buf
+    END DO
+
+  END SUBROUTINE calc_coef
+!
+!****************************************************************************************
+!
+  SUBROUTINE climb_hq_up(knon, dtime, t_old, q_old, &
+       flx_q1, flx_h1, paprs, pplay, &
+!!! nrlmd le 02/05/2011
+       Acoef_H_in, Acoef_Q_in, Bcoef_H_in, Bcoef_Q_in, &
+       Ccoef_H_in, Ccoef_Q_in, Dcoef_H_in, Dcoef_Q_in, &
+       Kcoef_hq_in, gama_q_in, gama_h_in, &
+!!!
+       flux_q, flux_h, d_q, d_t)
+! 
+! This routine calculates the flux and tendency of the specific humidity q and 
+! the potential engergi H. 
+! The quantities q and H are calculated according to 
+! X(k) = C(k) + D(k)*X(k-1) for X=[q,H], where the coefficients 
+! C and D are known from before and k is index of the vertical layer.
+!   
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: knon
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: t_old, q_old
+    REAL, DIMENSION(klon), INTENT(IN)        :: flx_q1, flx_h1
+    REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+
+!!! nrlmd le 02/05/2011
+    REAL, DIMENSION(klon), INTENT(IN)        :: Acoef_H_in,Acoef_Q_in, Bcoef_H_in, Bcoef_Q_in
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: Ccoef_H_in, Ccoef_Q_in, Dcoef_H_in, Dcoef_Q_in
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: Kcoef_hq_in, gama_q_in, gama_h_in
+!!!
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: flux_q, flux_h, d_q, d_t
+
+! Local variables
+!****************************************************************************************
+    LOGICAL, SAVE                            :: last=.FALSE.
+    REAL, DIMENSION(klon,klev)               :: h_new, q_new
+    REAL, DIMENSION(klon)                    :: psref         
+    INTEGER                                  :: k, i, ierr
+ 
+! Include
+!****************************************************************************************
+    INCLUDE "YOMCST.h"
+    INCLUDE "compbl.h"    
+
+!****************************************************************************************
+! 1) 
+! Definition of some variables
+!
+!****************************************************************************************
+    flux_q(:,:) = 0.0
+    flux_h(:,:) = 0.0
+    d_q(:,:)    = 0.0
+    d_t(:,:)    = 0.0
+
+    psref(1:knon) = paprs(1:knon,1)  
+
+!!! jyg le 07/02/2012
+       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+!!! nrlmd le 02/05/2011
+    DO i = 1, knon
+      Acoef_H(i)=Acoef_H_in(i)
+      Acoef_Q(i)=Acoef_Q_in(i)
+      Bcoef_H(i)=Bcoef_H_in(i)
+      Bcoef_Q(i)=Bcoef_Q_in(i)
+    ENDDO
+    DO k = 1, klev
+      DO i = 1, knon
+        Ccoef_H(i,k)=Ccoef_H_in(i,k)
+        Ccoef_Q(i,k)=Ccoef_Q_in(i,k)
+        Dcoef_H(i,k)=Dcoef_H_in(i,k)
+        Dcoef_Q(i,k)=Dcoef_Q_in(i,k)
+        Kcoefhq(i,k)=Kcoef_hq_in(i,k)
+          IF (k.gt.1) THEN
+            gamah(i,k)=gama_h_in(i,k)
+            gamaq(i,k)=gama_q_in(i,k)
+          ENDIF
+      ENDDO
+    ENDDO
+!!!      
+       ENDIF  ! (mod(iflag_pbl_split,2) .eq.1)
+!!!
+
+!****************************************************************************************
+! 2)
+! Calculation of Q and H
+!
+!****************************************************************************************
+
+!- First layer
+    q_new(1:knon,1) = Acoef_Q(1:knon) + Bcoef_Q(1:knon)*flx_q1(1:knon)*dtime
+    h_new(1:knon,1) = Acoef_H(1:knon) + Bcoef_H(1:knon)*flx_h1(1:knon)*dtime
+    
+!- All the other layers 
+    DO k = 2, klev
+       DO i = 1, knon
+          q_new(i,k) = Ccoef_Q(i,k) + Dcoef_Q(i,k)*q_new(i,k-1)
+          h_new(i,k) = Ccoef_H(i,k) + Dcoef_H(i,k)*h_new(i,k-1)
+       END DO
+    END DO
+!****************************************************************************************
+! 3)
+! Calculation of the flux for Q and H
+!
+!****************************************************************************************
+
+!- The flux at first layer, k=1
+    flux_q(1:knon,1)=flx_q1(1:knon)
+    flux_h(1:knon,1)=flx_h1(1:knon)
+
+!- The flux at all layers above surface
+    DO k = 2, klev
+       DO i = 1, knon
+          flux_q(i,k) = (Kcoefhq(i,k)/RG/dtime) * &
+               (q_new(i,k)-q_new(i,k-1)+gamaq(i,k))
+
+          flux_h(i,k) = (Kcoefhq(i,k)/RG/dtime) * &
+               (h_new(i,k)-h_new(i,k-1)+gamah(i,k)) 
+       END DO
+    END DO
+
+!****************************************************************************************
+! 4)
+! Calculation of tendency for Q and H
+!
+!****************************************************************************************
+
+    DO k = 1, klev
+       DO i = 1, knon
+          d_t(i,k) = h_new(i,k)/(psref(i)/pplay(i,k))**RKAPPA/RCPD - t_old(i,k)
+          d_q(i,k) = q_new(i,k) - q_old(i,k)
+       END DO
+    END DO
+
+!****************************************************************************************
+! Some deallocations
+!
+!****************************************************************************************
+    IF (last) THEN
+       DEALLOCATE(Ccoef_Q, Dcoef_Q, Ccoef_H, Dcoef_H,stat=ierr)    
+       IF ( ierr /= 0 )  PRINT*,' pb in dealllocate Ccoef_Q, Dcoef_Q, Ccoef_H, Dcoef_H, ierr=', ierr
+       DEALLOCATE(Acoef_Q, Bcoef_Q, Acoef_H, Bcoef_H,stat=ierr)    
+       IF ( ierr /= 0 )  PRINT*,' pb in dealllocate Acoef_Q, Bcoef_Q, Acoef_H, Bcoef_H, ierr=', ierr
+       DEALLOCATE(gamaq, gamah,stat=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in dealllocate gamaq, gamah, ierr=', ierr
+       DEALLOCATE(Kcoefhq,stat=ierr)
+       IF ( ierr /= 0 )  PRINT*,' pb in dealllocate Kcoefhq, ierr=', ierr
+    END IF
+  END SUBROUTINE climb_hq_up
+!
+!****************************************************************************************
+!
+END MODULE climb_hq_mod
+
+ 
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/climb_wind_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/climb_wind_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/climb_wind_mod.F90	(revision 3330)
@@ -0,0 +1,387 @@
+!
+MODULE climb_wind_mod
+!
+! Module to solve the verctical diffusion of the wind components "u" and "v".
+!
+  USE dimphy
+
+  IMPLICIT NONE
+
+  SAVE
+  PRIVATE
+  
+  REAL, DIMENSION(:),   ALLOCATABLE  :: alf1, alf2
+  !$OMP THREADPRIVATE(alf1,alf2)
+  REAL, DIMENSION(:,:), ALLOCATABLE  :: Kcoefm
+  !$OMP THREADPRIVATE(Kcoefm)
+  REAL, DIMENSION(:,:), ALLOCATABLE  :: Ccoef_U, Dcoef_U
+  !$OMP THREADPRIVATE(Ccoef_U, Dcoef_U)
+  REAL, DIMENSION(:,:), ALLOCATABLE  :: Ccoef_V, Dcoef_V
+  !$OMP THREADPRIVATE(Ccoef_V, Dcoef_V)
+  REAL, DIMENSION(:), ALLOCATABLE   :: Acoef_U, Bcoef_U
+  !$OMP THREADPRIVATE(Acoef_U, Bcoef_U)
+  REAL, DIMENSION(:), ALLOCATABLE   :: Acoef_V, Bcoef_V
+  !$OMP THREADPRIVATE(Acoef_V, Bcoef_V)
+  LOGICAL                            :: firstcall=.TRUE.
+  !$OMP THREADPRIVATE(firstcall)
+
+  
+  PUBLIC :: climb_wind_down, climb_wind_up
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE climb_wind_init
+
+    INTEGER             :: ierr
+    CHARACTER(len = 20) :: modname = 'climb_wind_init'    
+
+!****************************************************************************************
+! Allocation of global module variables
+!
+!****************************************************************************************
+
+    ALLOCATE(alf1(klon), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocate alf1',1)
+
+    ALLOCATE(alf2(klon), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocate alf2',1)
+
+    ALLOCATE(Kcoefm(klon,klev), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocate Kcoefm',1)
+
+    ALLOCATE(Ccoef_U(klon,klev), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocate Ccoef_U',1)
+
+    ALLOCATE(Dcoef_U(klon,klev), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocation Dcoef_U',1)
+
+    ALLOCATE(Ccoef_V(klon,klev), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocation Ccoef_V',1)
+
+    ALLOCATE(Dcoef_V(klon,klev), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic(modname,'Pb in allocation Dcoef_V',1)
+
+    ALLOCATE(Acoef_U(klon), Bcoef_U(klon), Acoef_V(klon), Bcoef_V(klon), STAT=ierr)
+    IF ( ierr /= 0 )  PRINT*,' pb in allloc Acoef_U and Bcoef_U, ierr=', ierr
+
+    firstcall=.FALSE.
+
+  END SUBROUTINE climb_wind_init
+!
+!****************************************************************************************
+!
+  SUBROUTINE climb_wind_down(knon, dtime, coef_in, pplay, paprs, temp, delp, u_old, v_old, &
+!!! nrlmd le 02/05/2011
+       Ccoef_U_out, Ccoef_V_out, Dcoef_U_out, Dcoef_V_out, &
+       Kcoef_m_out, alf_1_out, alf_2_out, &
+!!!
+       Acoef_U_out, Acoef_V_out, Bcoef_U_out, Bcoef_V_out)
+!
+! This routine calculates for the wind components u and v,
+! recursivly the coefficients C and D in equation 
+! X(k) = C(k) + D(k)*X(k-1), X=[u,v], k=[1,klev] is the vertical layer.
+!
+!
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: knon
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: coef_in
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay ! pres au milieu de couche (Pa)
+    REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs ! pression a inter-couche (Pa)
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: temp  ! temperature
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: delp
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: u_old
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: v_old
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Acoef_U_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Acoef_V_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Bcoef_U_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Bcoef_V_out
+
+!!! nrlmd le 02/05/2011
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Ccoef_U_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Ccoef_V_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Dcoef_U_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Dcoef_V_out
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Kcoef_m_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: alf_1_out
+    REAL, DIMENSION(klon), INTENT(OUT)       :: alf_2_out
+!!!
+
+! Local variables
+!****************************************************************************************
+    REAL, DIMENSION(klon)                    :: u1lay, v1lay
+    INTEGER                                  :: k, i
+
+! Include
+!****************************************************************************************
+    INCLUDE "YOMCST.h"
+    INCLUDE "compbl.h"    
+
+!****************************************************************************************
+! Initialize module
+    IF (firstcall) CALL climb_wind_init
+
+!****************************************************************************************
+! Calculate the coefficients C and D in : u(k) = C(k) + D(k)*u(k-1)
+!
+!****************************************************************************************
+! - Define alpha (alf1 and alf2) 
+    alf1(:) = 1.0
+    alf2(:) = 1.0 - alf1(:)
+
+! - Calculate the coefficients K
+    Kcoefm(:,:) = 0.0
+    DO k = 2, klev
+       DO i=1,knon
+          Kcoefm(i,k) = coef_in(i,k)*RG*RG*dtime/(pplay(i,k-1)-pplay(i,k)) &
+               *(paprs(i,k)*2/(temp(i,k)+temp(i,k-1))/RD)**2
+       END DO
+    END DO
+
+! - Calculate the coefficients C and D, component "u"
+    CALL calc_coef(knon, Kcoefm(:,:), delp(:,:), &
+         u_old(:,:), alf1(:), alf2(:),  &
+         Ccoef_U(:,:), Dcoef_U(:,:), Acoef_U(:), Bcoef_U(:))
+
+! - Calculate the coefficients C and D, component "v"
+    CALL calc_coef(knon, Kcoefm(:,:), delp(:,:), &
+         v_old(:,:), alf1(:), alf2(:),  &
+         Ccoef_V(:,:), Dcoef_V(:,:), Acoef_V(:), Bcoef_V(:))
+
+!****************************************************************************************
+! 6)
+! Return the first layer in output variables
+!
+!****************************************************************************************
+    Acoef_U_out = Acoef_U
+    Bcoef_U_out = Bcoef_U
+    Acoef_V_out = Acoef_V
+    Bcoef_V_out = Bcoef_V
+
+!****************************************************************************************
+! 7)
+! If Pbl is split, return also the other layers in output variables
+!
+!****************************************************************************************
+!!! jyg le 07/02/2012
+       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+!!! nrlmd le 02/05/2011
+    DO k= 1, klev
+      DO i= 1, klon
+        Ccoef_U_out(i,k) = Ccoef_U(i,k)
+        Ccoef_V_out(i,k) = Ccoef_V(i,k)
+        Dcoef_U_out(i,k) = Dcoef_U(i,k)
+        Dcoef_V_out(i,k) = Dcoef_V(i,k)
+        Kcoef_m_out(i,k) = Kcoefm(i,k)
+      ENDDO
+    ENDDO
+    DO i= 1, klon
+      alf_1_out(i)   = alf1(i)
+      alf_2_out(i)   = alf2(i)
+    ENDDO
+!!!      
+       ENDIF  ! (mod(iflag_pbl_split,2) .eq.1)
+!!!
+
+  END SUBROUTINE climb_wind_down
+!
+!****************************************************************************************
+!
+  SUBROUTINE calc_coef(knon, Kcoef, delp, X, alfa1, alfa2, Ccoef, Dcoef, Acoef, Bcoef)
+!
+! Find the coefficients C and D in fonction of alfa, K and delp
+!
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: knon
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: Kcoef, delp
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: X
+    REAL, DIMENSION(klon), INTENT(IN)        :: alfa1, alfa2
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: Acoef, Bcoef
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: Ccoef, Dcoef
+  
+! local variables
+!****************************************************************************************
+    INTEGER                                  :: k, i
+    REAL                                     :: buf
+
+    INCLUDE "YOMCST.h"
+!****************************************************************************************
+! 
+
+! Calculate coefficients C and D at top level, k=klev
+!
+    Ccoef(:,:) = 0.0
+    Dcoef(:,:) = 0.0
+
+    DO i = 1, knon
+       buf = delp(i,klev) + Kcoef(i,klev)
+
+       Ccoef(i,klev) = X(i,klev)*delp(i,klev)/buf 
+       Dcoef(i,klev) = Kcoef(i,klev)/buf
+    END DO
+    
+! 
+! Calculate coefficients C and D at top level (klev-1) <= k <= 2
+!
+    DO k=(klev-1),2,-1
+       DO i = 1, knon
+          buf = delp(i,k) + Kcoef(i,k) + Kcoef(i,k+1)*(1.-Dcoef(i,k+1))
+          
+          Ccoef(i,k) = (X(i,k)*delp(i,k) + Kcoef(i,k+1)*Ccoef(i,k+1))/buf
+          Dcoef(i,k) = Kcoef(i,k)/buf
+       END DO
+    END DO
+
+!
+! Calculate coeffiecent A and B at surface
+!
+    DO i = 1, knon
+       buf = delp(i,1) + Kcoef(i,2)*(1-Dcoef(i,2))
+       Acoef(i) = (X(i,1)*delp(i,1) + Kcoef(i,2)*Ccoef(i,2))/buf
+       Bcoef(i) = -RG/buf
+    END DO
+
+  END SUBROUTINE calc_coef
+!
+!****************************************************************************************
+!
+
+  SUBROUTINE climb_wind_up(knon, dtime, u_old, v_old, flx_u1, flx_v1,  &
+!!! nrlmd le 02/05/2011
+       Acoef_U_in, Acoef_V_in, Bcoef_U_in, Bcoef_V_in, &
+       Ccoef_U_in, Ccoef_V_in, Dcoef_U_in, Dcoef_V_in, &
+       Kcoef_m_in, &
+!!!
+       flx_u_new, flx_v_new, d_u_new, d_v_new)
+!
+! Diffuse the wind components from the surface layer and up to the top layer. 
+! Coefficents A, B, C and D are known from before. Start values for the diffusion are the
+! momentum fluxes at surface.
+!
+! u(k=1) = A + B*flx*dtime
+! u(k)   = C(k) + D(k)*u(k-1)  [2 <= k <= klev]
+!
+!****************************************************************************************
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: knon
+    REAL, INTENT(IN)                        :: dtime
+    REAL, DIMENSION(klon,klev), INTENT(IN)  :: u_old
+    REAL, DIMENSION(klon,klev), INTENT(IN)  :: v_old
+    REAL, DIMENSION(klon), INTENT(IN)       :: flx_u1, flx_v1 ! momentum flux
+
+!!! nrlmd le 02/05/2011
+    REAL, DIMENSION(klon), INTENT(IN)       :: Acoef_U_in,Acoef_V_in, Bcoef_U_in, Bcoef_V_in
+    REAL, DIMENSION(klon,klev), INTENT(IN)  :: Ccoef_U_in, Ccoef_V_in, Dcoef_U_in, Dcoef_V_in
+    REAL, DIMENSION(klon,klev), INTENT(IN)  :: Kcoef_m_in
+!!!
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon,klev), INTENT(OUT) :: flx_u_new, flx_v_new
+    REAL, DIMENSION(klon,klev), INTENT(OUT) :: d_u_new, d_v_new
+
+! Local variables
+!****************************************************************************************
+    REAL, DIMENSION(klon,klev)              :: u_new, v_new
+    INTEGER                                 :: k, i
+
+! Include
+!****************************************************************************************
+    INCLUDE "YOMCST.h"
+    INCLUDE "compbl.h"    
+    
+!
+!****************************************************************************************
+
+!!! jyg le 07/02/2012
+       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+!!! nrlmd le 02/05/2011
+    DO i = 1, knon
+      Acoef_U(i)=Acoef_U_in(i)
+      Acoef_V(i)=Acoef_V_in(i)
+      Bcoef_U(i)=Bcoef_U_in(i)
+      Bcoef_V(i)=Bcoef_V_in(i)
+    ENDDO
+    DO k = 1, klev
+      DO i = 1, knon
+        Ccoef_U(i,k)=Ccoef_U_in(i,k)
+        Ccoef_V(i,k)=Ccoef_V_in(i,k)
+        Dcoef_U(i,k)=Dcoef_U_in(i,k)
+        Dcoef_V(i,k)=Dcoef_V_in(i,k)
+        Kcoefm(i,k)=Kcoef_m_in(i,k)
+      ENDDO
+    ENDDO
+!!!
+       ENDIF  ! (mod(iflag_pbl_split,2) .eq.1)
+!!!
+
+! Niveau 1
+    DO i = 1, knon
+       u_new(i,1) = Acoef_U(i) + Bcoef_U(i)*flx_u1(i)*dtime
+       v_new(i,1) = Acoef_V(i) + Bcoef_V(i)*flx_v1(i)*dtime
+    END DO
+
+! Niveau 2 jusqu'au sommet klev
+    DO k = 2, klev
+       DO i=1, knon
+          u_new(i,k) = Ccoef_U(i,k) + Dcoef_U(i,k) * u_new(i,k-1)
+          v_new(i,k) = Ccoef_V(i,k) + Dcoef_V(i,k) * v_new(i,k-1)
+       END DO
+    END DO
+
+!****************************************************************************************
+! Calcul flux
+!
+!== flux_u/v est le flux de moment angulaire (positif vers bas)
+!== dont l'unite est: (kg m/s)/(m**2 s) 
+!
+!****************************************************************************************
+!
+    flx_u_new(:,:) = 0.0
+    flx_v_new(:,:) = 0.0
+
+    flx_u_new(1:knon,1)=flx_u1(1:knon)
+    flx_v_new(1:knon,1)=flx_v1(1:knon)
+
+! Niveau 2->klev
+    DO k = 2, klev
+       DO i = 1, knon
+          flx_u_new(i,k) = Kcoefm(i,k)/RG/dtime * &
+               (u_new(i,k)-u_new(i,k-1))
+          
+          flx_v_new(i,k) = Kcoefm(i,k)/RG/dtime * &
+               (v_new(i,k)-v_new(i,k-1))
+       END DO
+    END DO
+
+!****************************************************************************************
+! Calcul tendances
+!
+!****************************************************************************************
+    d_u_new(:,:) = 0.0
+    d_v_new(:,:) = 0.0
+    DO k = 1, klev
+       DO i = 1, knon
+          d_u_new(i,k) = u_new(i,k) - u_old(i,k)
+          d_v_new(i,k) = v_new(i,k) - v_old(i,k)
+       END DO
+    END DO
+
+  END SUBROUTINE climb_wind_up
+!
+!****************************************************************************************
+!
+END MODULE climb_wind_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clouds_bigauss.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clouds_bigauss.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clouds_bigauss.F90	(revision 3330)
@@ -0,0 +1,119 @@
+
+! $Header$
+
+
+! ================================================================================
+
+SUBROUTINE clouds_bigauss(klon, nd, r, rs, qtc, sigt, ptconv, ratqsc, cldf)
+  IMPLICIT NONE
+
+  ! --------------------------------------------------------------------------------
+
+  ! Inputs:
+
+  ! ND----------: Number of vertical levels
+  ! R--------ND-: Domain-averaged mixing ratio of total water
+  ! RS-------ND-: Mean saturation humidity mixing ratio within the gridbox
+  ! QSUB-----ND-: Mixing ratio of condensed water within clouds associated
+  ! with SUBGRID-SCALE condensation processes (here, it is
+  ! predicted by the convection scheme)
+  ! Outputs:
+
+  ! PTCONV-----ND-: Point convectif = TRUE
+  ! RATQSC-----ND-: Largeur normalisee de la distribution
+  ! CLDF-----ND-: Fraction nuageuse
+
+  ! --------------------------------------------------------------------------------
+
+
+  INTEGER klon, nd
+  REAL r(klon, nd), rs(klon, nd), qtc(klon, nd), sigt(klon, nd)
+  LOGICAL ptconv(klon, nd)
+  REAL ratqsc(klon, nd)
+  REAL cldf(klon, nd)
+
+  ! -- parameters controlling the iteration:
+  ! --    nmax    : maximum nb of iterations (hopefully never reached)
+  ! --    epsilon : accuracy of the numerical resolution
+  ! --    vmax    : v-value above which we use an asymptotic expression for
+  ! ERF(v)
+
+  INTEGER nmax
+  PARAMETER (nmax=10)
+  REAL epsilon, vmax0, vmax(klon)
+  PARAMETER (epsilon=0.02, vmax0=2.0)
+
+  REAL min_mu, min_q
+  PARAMETER (min_mu=1.E-12, min_q=1.E-12)
+
+  INTEGER i, k, n, m
+  REAL mu, qsat, delta
+  REAL sigma1, sigma2, alpha, qconv
+  REAL xconv, xenv
+  REAL cconv, cenv
+  REAL pi, u, v
+  REAL erf
+  REAL sqrtpi, sqrt2
+  ! lconv = true si le calcul a converge (entre autre si qsub < min_q)
+  LOGICAL lconv(klon)
+
+
+  cldf(1:klon, 1:nd) = 0.0 ! cym
+  ratqsc(1:klon, 1:nd) = 0.0
+  ptconv(1:klon, 1:nd) = .FALSE.
+  ! cdir end arraycomb
+
+  pi = acos(-1.)
+  sqrtpi = sqrt(pi)
+  sqrt2 = sqrt(2.)
+
+
+  DO k = 1, nd
+
+  DO i = 1, klon ! vector
+
+      mu = r(i, k)
+      mu = max(mu, min_mu)
+      qsat = rs(i, k)
+      qsat = max(qsat, min_mu)
+      delta = log(mu/qsat)
+      qconv=qtc(i,k)
+      alpha=sigt(i,k)
+
+     IF (qconv<min_q) THEN
+        ptconv(i, k) = .FALSE.
+        ratqsc(i, k) = 0.
+
+        ! Rien on a deja initialise
+
+      ELSE
+    
+      sigma1=0.1*((qconv-mu)**2)**0.5+0.002*mu
+      sigma2=0.1*((qconv-mu)**2)**0.5+0.002*qconv 
+
+!      sigma2=0.09*((qconv-mu)**2)**0.5/(alpha+0.01)**0.5+0.002*qconv 
+!-----------------------------------------------------------------------------------------------------------------
+! Calcul de la couverture nuageuse et de ratqs
+!-----------------------------------------------------------------------------------------------------------------
+
+      xconv=(qsat-qconv)/(sqrt(2.)*sigma2)
+      xenv=(qsat-mu)/(sqrt(2.)*sigma1)
+
+      cconv=0.5*(1.-1.*erf(xconv))
+      cenv=0.5*(1.-1.*erf(xenv)) 
+      cldf(i,k)=alpha*cconv+(1.-1.*alpha)*cenv
+      ratqsc(i,k)= alpha*sigma1+(1.-1.*alpha)*sigma2
+      ptconv(i,k)= .TRUE.
+
+     END IF
+
+  END DO ! vector
+
+
+  END DO  ! K
+
+  RETURN
+  END SUBROUTINE clouds_bigauss
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clouds_gno.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clouds_gno.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/clouds_gno.F90	(revision 3330)
@@ -0,0 +1,261 @@
+
+! $Header$
+
+
+! ================================================================================
+
+SUBROUTINE clouds_gno(klon, nd, r, rs, qsub, ptconv, ratqsc, cldf)
+  IMPLICIT NONE
+
+  ! --------------------------------------------------------------------------------
+
+  ! Inputs:
+
+  ! ND----------: Number of vertical levels
+  ! R--------ND-: Domain-averaged mixing ratio of total water
+  ! RS-------ND-: Mean saturation humidity mixing ratio within the gridbox
+  ! QSUB-----ND-: Mixing ratio of condensed water within clouds associated
+  ! with SUBGRID-SCALE condensation processes (here, it is
+  ! predicted by the convection scheme)
+  ! Outputs:
+
+  ! PTCONV-----ND-: Point convectif = TRUE
+  ! RATQSC-----ND-: Largeur normalisee de la distribution
+  ! CLDF-----ND-: Fraction nuageuse
+
+  ! --------------------------------------------------------------------------------
+
+
+  INTEGER klon, nd
+  REAL r(klon, nd), rs(klon, nd), qsub(klon, nd)
+  LOGICAL ptconv(klon, nd)
+  REAL ratqsc(klon, nd)
+  REAL cldf(klon, nd)
+
+  ! -- parameters controlling the iteration:
+  ! --    nmax    : maximum nb of iterations (hopefully never reached)
+  ! --    epsilon : accuracy of the numerical resolution
+  ! --    vmax    : v-value above which we use an asymptotic expression for
+  ! ERF(v)
+
+  INTEGER nmax
+  PARAMETER (nmax=10)
+  REAL epsilon, vmax0, vmax(klon)
+  PARAMETER (epsilon=0.02, vmax0=2.0)
+
+  REAL min_mu, min_q
+  PARAMETER (min_mu=1.E-12, min_q=1.E-12)
+
+  INTEGER i, k, n, m
+  REAL mu(klon), qsat, delta(klon), beta(klon)
+  REAL zu2, zv2
+  REAL xx(klon), aux(klon), coeff, block
+  REAL dist, fprime, det
+  REAL pi, u, v, erfcu, erfcv
+  REAL xx1, xx2
+  REAL erf, hsqrtlog_2, v2
+  REAL sqrtpi, sqrt2, zx1, zx2, exdel
+  ! lconv = true si le calcul a converge (entre autre si qsub < min_q)
+  LOGICAL lconv(klon)
+
+  ! cdir arraycomb
+  cldf(1:klon, 1:nd) = 0.0 ! cym
+  ratqsc(1:klon, 1:nd) = 0.0
+  ptconv(1:klon, 1:nd) = .FALSE.
+  ! cdir end arraycomb
+
+  pi = acos(-1.)
+  sqrtpi = sqrt(pi)
+  sqrt2 = sqrt(2.)
+  hsqrtlog_2 = 0.5*sqrt(log(2.))
+
+  DO k = 1, nd
+
+    DO i = 1, klon ! vector
+      mu(i) = r(i, k)
+      mu(i) = max(mu(i), min_mu)
+      qsat = rs(i, k)
+      qsat = max(qsat, min_mu)
+      delta(i) = log(mu(i)/qsat)
+      ! enddo ! vector
+
+
+      ! ***          There is no subgrid-scale condensation;        ***
+      ! ***   the scheme becomes equivalent to an "all-or-nothing"  ***
+      ! ***             large-scale condensation scheme.            ***
+
+
+
+      ! ***     Some condensation is produced at the subgrid-scale       ***
+      ! ***                                                              ***
+      ! ***       PDF = generalized log-normal distribution (GNO)        ***
+      ! ***   (k<0 because a lower bound is considered for the PDF)      ***
+      ! ***                                                              ***
+      ! ***  -> Determine x (the parameter k of the GNO PDF) such        ***
+      ! ***  that the contribution of subgrid-scale processes to         ***
+      ! ***  the in-cloud water content is equal to QSUB(K)              ***
+      ! ***  (equations (13), (14), (15) + Appendix B of the paper)      ***
+      ! ***                                                              ***
+      ! ***    Here, an iterative method is used for this purpose        ***
+      ! ***    (other numerical methods might be more efficient)         ***
+      ! ***                                                              ***
+      ! ***          NB: the "error function" is called ERF              ***
+      ! ***                 (ERF in double precision)                   ***
+
+
+      ! On commence par eliminer les cas pour lesquels on n'a pas
+      ! suffisamment d'eau nuageuse.
+
+      ! do i=1,klon ! vector
+
+      IF (qsub(i,k)<min_q) THEN
+        ptconv(i, k) = .FALSE.
+        ratqsc(i, k) = 0.
+        lconv(i) = .TRUE.
+
+        ! Rien on a deja initialise
+
+      ELSE
+
+        lconv(i) = .FALSE.
+        vmax(i) = vmax0
+
+        beta(i) = qsub(i, k)/mu(i) + exp(-min(0.0,delta(i)))
+
+        ! --  roots of equation v > vmax:
+
+        det = delta(i) + vmax(i)*vmax(i)
+        IF (det<=0.0) vmax(i) = vmax0 + 1.0
+        det = delta(i) + vmax(i)*vmax(i)
+
+        IF (det<=0.) THEN
+          xx(i) = -0.0001
+        ELSE
+          zx1 = -sqrt2*vmax(i)
+          zx2 = sqrt(1.0+delta(i)/(vmax(i)*vmax(i)))
+          xx1 = zx1*(1.0-zx2)
+          xx2 = zx1*(1.0+zx2)
+          xx(i) = 1.01*xx1
+          IF (xx1>=0.0) xx(i) = 0.5*xx2
+        END IF
+        IF (delta(i)<0.) xx(i) = -hsqrtlog_2
+
+      END IF
+
+    END DO ! vector
+
+    ! ----------------------------------------------------------------------
+    ! Debut des nmax iterations pour trouver la solution.
+    ! ----------------------------------------------------------------------
+
+    DO n = 1, nmax
+
+      DO i = 1, klon ! vector
+        IF (.NOT. lconv(i)) THEN
+
+          u = delta(i)/(xx(i)*sqrt2) + xx(i)/(2.*sqrt2)
+          v = delta(i)/(xx(i)*sqrt2) - xx(i)/(2.*sqrt2)
+          v2 = v*v
+
+          IF (v>vmax(i)) THEN
+
+            IF (abs(u)>vmax(i) .AND. delta(i)<0.) THEN
+
+              ! -- use asymptotic expression of erf for u and v large:
+              ! ( -> analytic solution for xx )
+              exdel = beta(i)*exp(delta(i))
+              aux(i) = 2.0*delta(i)*(1.-exdel)/(1.+exdel)
+              IF (aux(i)<0.) THEN
+                ! print*,'AUX(',i,',',k,')<0',aux(i),delta(i),beta(i)
+                aux(i) = 0.
+              END IF
+              xx(i) = -sqrt(aux(i))
+              block = exp(-v*v)/v/sqrtpi
+              dist = 0.0
+              fprime = 1.0
+
+            ELSE
+
+              ! -- erfv -> 1.0, use an asymptotic expression of erfv for v
+              ! large:
+
+              erfcu = 1.0 - erf(u)
+              ! !!! ATTENTION : rajout d'un seuil pour l'exponentiel
+              aux(i) = sqrtpi*erfcu*exp(min(v2,100.))
+              coeff = 1.0 - 0.5/(v2) + 0.75/(v2*v2)
+              block = coeff*exp(-v2)/v/sqrtpi
+              dist = v*aux(i)/coeff - beta(i)
+              fprime = 2.0/xx(i)*(v2)*(exp(-delta(i))-u*aux(i)/coeff)/coeff
+
+            END IF ! ABS(u)
+
+          ELSE
+
+            ! -- general case:
+
+            erfcu = 1.0 - erf(u)
+            erfcv = 1.0 - erf(v)
+            block = erfcv
+            dist = erfcu/erfcv - beta(i)
+            zu2 = u*u
+            zv2 = v2
+            IF (zu2>20. .OR. zv2>20.) THEN
+              ! print*,'ATTENTION !!! xx(',i,') =', xx(i)
+              ! print*,'ATTENTION !!! klon,ND,R,RS,QSUB,PTCONV,RATQSC,CLDF',
+              ! .klon,ND,R(i,k),RS(i,k),QSUB(i,k),PTCONV(i,k),RATQSC(i,k),
+              ! .CLDF(i,k)
+              ! print*,'ATTENTION !!! zu2 zv2 =',zu2(i),zv2(i)
+              zu2 = 20.
+              zv2 = 20.
+              fprime = 0.
+            ELSE
+              fprime = 2./sqrtpi/xx(i)/(erfcv*erfcv)* &
+                (erfcv*v*exp(-zu2)-erfcu*u*exp(-zv2))
+            END IF
+          END IF ! x
+
+          ! -- test numerical convergence:
+
+          ! if (beta(i).lt.1.e-10) then
+          ! print*,'avant test ',i,k,lconv(i),u(i),v(i),beta(i)
+          ! stop
+          ! endif
+          IF (abs(fprime)<1.E-11) THEN
+            ! print*,'avant test fprime<.e-11 '
+            ! s        ,i,k,lconv(i),u(i),v(i),beta(i),fprime(i)
+            ! print*,'klon,ND,R,RS,QSUB',
+            ! s        klon,ND,R(i,k),rs(i,k),qsub(i,k)
+            fprime = sign(1.E-11, fprime)
+          END IF
+
+
+          IF (abs(dist/beta(i))<epsilon) THEN
+            ! print*,'v-u **2',(v(i)-u(i))**2
+            ! print*,'exp v-u **2',exp((v(i)-u(i))**2)
+            ptconv(i, k) = .TRUE.
+            lconv(i) = .TRUE.
+            ! borne pour l'exponentielle
+            ratqsc(i, k) = min(2.*(v-u)*(v-u), 20.)
+            ratqsc(i, k) = sqrt(exp(ratqsc(i,k))-1.)
+            cldf(i, k) = 0.5*block
+          ELSE
+            xx(i) = xx(i) - dist/fprime
+          END IF
+          ! print*,'apres test ',i,k,lconv(i)
+
+        END IF ! lconv
+      END DO ! vector
+
+      ! ----------------------------------------------------------------------
+      ! Fin des nmax iterations pour trouver la solution.
+    END DO ! n
+    ! ----------------------------------------------------------------------
+
+
+  END DO
+  ! K
+  RETURN
+END SUBROUTINE clouds_gno
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cloudth.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cloudth.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cloudth.F90	(revision 3330)
@@ -0,0 +1,575 @@
+       SUBROUTINE cloudth(ngrid,klev,ind2,  &
+     &           ztv,po,zqta,fraca, & 
+     &           qcloud,ctot,zpspsk,paprs,ztla,zthl, &
+     &           ratqs,zqs,t)
+
+
+      IMPLICIT NONE
+
+
+!===========================================================================
+! Auteur : Arnaud Octavio Jam (LMD/CNRS)
+! Date : 25 Mai 2010
+! Objet : calcule les valeurs de qc et rneb dans les thermiques
+!===========================================================================
+
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+#include "nuage.h"
+
+      INTEGER itap,ind1,ind2
+      INTEGER ngrid,klev,klon,l,ig 
+      
+      REAL ztv(ngrid,klev)
+      REAL po(ngrid)
+      REAL zqenv(ngrid)   
+      REAL zqta(ngrid,klev)
+          
+      REAL fraca(ngrid,klev+1)
+      REAL zpspsk(ngrid,klev)
+      REAL paprs(ngrid,klev+1)
+      REAL ztla(ngrid,klev)
+      REAL zthl(ngrid,klev)
+
+      REAL zqsatth(ngrid,klev)
+      REAL zqsatenv(ngrid,klev)
+      
+      
+      REAL sigma1(ngrid,klev)
+      REAL sigma2(ngrid,klev)
+      REAL qlth(ngrid,klev)
+      REAL qlenv(ngrid,klev)
+      REAL qltot(ngrid,klev) 
+      REAL cth(ngrid,klev)  
+      REAL cenv(ngrid,klev)   
+      REAL ctot(ngrid,klev)
+      REAL rneb(ngrid,klev)
+      REAL t(ngrid,klev)
+      REAL qsatmmussig1,qsatmmussig2,sqrt2pi,pi
+      REAL rdd,cppd,Lv
+      REAL alth,alenv,ath,aenv
+      REAL sth,senv,sigma1s,sigma2s,xth,xenv
+      REAL Tbef,zdelta,qsatbef,zcor
+      REAL qlbef  
+      REAL ratqs(ngrid,klev) ! determine la largeur de distribution de vapeur
+      
+      REAL zpdf_sig(ngrid),zpdf_k(ngrid),zpdf_delta(ngrid)
+      REAL zpdf_a(ngrid),zpdf_b(ngrid),zpdf_e1(ngrid),zpdf_e2(ngrid) 
+      REAL zqs(ngrid), qcloud(ngrid)
+      REAL erf
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Gestion de deux versions de cloudth
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      IF (iflag_cloudth_vert.GE.1) THEN
+      CALL cloudth_vert(ngrid,klev,ind2,  &
+     &           ztv,po,zqta,fraca, & 
+     &           qcloud,ctot,zpspsk,paprs,ztla,zthl, &
+     &           ratqs,zqs,t)
+      RETURN
+      ENDIF
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!-------------------------------------------------------------------------------
+! Initialisation des variables r?elles
+!-------------------------------------------------------------------------------
+      sigma1(:,:)=0.
+      sigma2(:,:)=0.
+      qlth(:,:)=0.
+      qlenv(:,:)=0.  
+      qltot(:,:)=0.
+      rneb(:,:)=0.
+      qcloud(:)=0.
+      cth(:,:)=0.
+      cenv(:,:)=0.
+      ctot(:,:)=0.
+      qsatmmussig1=0.
+      qsatmmussig2=0.
+      rdd=287.04
+      cppd=1005.7
+      pi=3.14159 
+      Lv=2.5e6
+      sqrt2pi=sqrt(2.*pi)
+
+
+
+!-------------------------------------------------------------------------------
+! Calcul de la fraction du thermique et des ?cart-types des distributions
+!-------------------------------------------------------------------------------                 
+      do ind1=1,ngrid
+
+      if ((ztv(ind1,1).gt.ztv(ind1,2)).and.(fraca(ind1,ind2).gt.1.e-10)) then 
+
+      zqenv(ind1)=(po(ind1)-fraca(ind1,ind2)*zqta(ind1,ind2))/(1.-fraca(ind1,ind2))
+
+
+!      zqenv(ind1)=po(ind1)
+      Tbef=zthl(ind1,ind2)*zpspsk(ind1,ind2)
+      zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+      qsatbef= R2ES * FOEEW(Tbef,zdelta)/paprs(ind1,ind2)
+      qsatbef=MIN(0.5,qsatbef)
+      zcor=1./(1.-retv*qsatbef)
+      qsatbef=qsatbef*zcor
+      zqsatenv(ind1,ind2)=qsatbef
+
+
+
+
+      alenv=(0.622*Lv*zqsatenv(ind1,ind2))/(rdd*zthl(ind1,ind2)**2)  
+      aenv=1./(1.+(alenv*Lv/cppd))
+      senv=aenv*(po(ind1)-zqsatenv(ind1,ind2)) 
+
+
+
+
+      Tbef=ztla(ind1,ind2)*zpspsk(ind1,ind2)
+      zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+      qsatbef= R2ES * FOEEW(Tbef,zdelta)/paprs(ind1,ind2)
+      qsatbef=MIN(0.5,qsatbef)
+      zcor=1./(1.-retv*qsatbef)
+      qsatbef=qsatbef*zcor
+      zqsatth(ind1,ind2)=qsatbef
+            
+      alth=(0.622*Lv*zqsatth(ind1,ind2))/(rdd*ztla(ind1,ind2)**2)   
+      ath=1./(1.+(alth*Lv/cppd))
+      sth=ath*(zqta(ind1,ind2)-zqsatth(ind1,ind2)) 
+      
+      
+
+!------------------------------------------------------------------------------
+! 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)
+      xth=sth/(sqrt(2.)*sigma2s)
+      xenv=senv/(sqrt(2.)*sigma1s)
+      cth(ind1,ind2)=0.5*(1.+1.*erf(xth))
+      cenv(ind1,ind2)=0.5*(1.+1.*erf(xenv)) 
+      ctot(ind1,ind2)=fraca(ind1,ind2)*cth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*cenv(ind1,ind2)   
+
+      qlth(ind1,ind2)=sigma2s*((exp(-1.*xth**2)/sqrt2pi)+xth*sqrt(2.)*cth(ind1,ind2))
+      qlenv(ind1,ind2)=sigma1s*((exp(-1.*xenv**2)/sqrt2pi)+xenv*sqrt(2.)*cenv(ind1,ind2))   
+      qltot(ind1,ind2)=fraca(ind1,ind2)*qlth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*qlenv(ind1,ind2)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      if (ctot(ind1,ind2).lt.1.e-10) then
+      ctot(ind1,ind2)=0.
+      qcloud(ind1)=zqsatenv(ind1,ind2) 
+
+      else   
+                
+      ctot(ind1,ind2)=ctot(ind1,ind2) 
+      qcloud(ind1)=qltot(ind1,ind2)/ctot(ind1,ind2)+zqs(ind1)
+
+      endif                           
+      
+          
+!     print*,sth,sigma2s,qlth(ind1,ind2),ctot(ind1,ind2),qltot(ind1,ind2),'verif'
+
+
+      else  ! gaussienne environnement seule
+      
+      zqenv(ind1)=po(ind1)
+      Tbef=t(ind1,ind2)
+      zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+      qsatbef= R2ES * FOEEW(Tbef,zdelta)/paprs(ind1,ind2)
+      qsatbef=MIN(0.5,qsatbef)
+      zcor=1./(1.-retv*qsatbef)
+      qsatbef=qsatbef*zcor
+      zqsatenv(ind1,ind2)=qsatbef
+      
+
+!      qlbef=Max(po(ind1)-zqsatenv(ind1,ind2),0.)
+      zthl(ind1,ind2)=t(ind1,ind2)*(101325/paprs(ind1,ind2))**(rdd/cppd)
+      alenv=(0.622*Lv*zqsatenv(ind1,ind2))/(rdd*zthl(ind1,ind2)**2)  
+      aenv=1./(1.+(alenv*Lv/cppd))
+      senv=aenv*(po(ind1)-zqsatenv(ind1,ind2)) 
+      
+
+      sigma1s=ratqs(ind1,ind2)*zqenv(ind1)
+
+      sqrt2pi=sqrt(2.*pi)
+      xenv=senv/(sqrt(2.)*sigma1s)
+      ctot(ind1,ind2)=0.5*(1.+1.*erf(xenv))
+      qltot(ind1,ind2)=sigma1s*((exp(-1.*xenv**2)/sqrt2pi)+xenv*sqrt(2.)*cenv(ind1,ind2))
+      
+      if (ctot(ind1,ind2).lt.1.e-3) then
+      ctot(ind1,ind2)=0.
+      qcloud(ind1)=zqsatenv(ind1,ind2) 
+
+      else   
+                
+      ctot(ind1,ind2)=ctot(ind1,ind2) 
+      qcloud(ind1)=qltot(ind1,ind2)/ctot(ind1,ind2)+zqsatenv(ind1,ind2)
+
+      endif    
+ 
+ 
+ 
+ 
+ 
+ 
+      endif   
+      enddo
+     
+      return
+      end
+
+
+
+!===========================================================================
+     SUBROUTINE cloudth_vert(ngrid,klev,ind2,  &
+     &           ztv,po,zqta,fraca, & 
+     &           qcloud,ctot,zpspsk,paprs,ztla,zthl, &
+     &           ratqs,zqs,t)
+
+!===========================================================================
+! Auteur : Arnaud Octavio Jam (LMD/CNRS)
+! Date : 25 Mai 2010
+! Objet : calcule les valeurs de qc et rneb dans les thermiques
+!===========================================================================
+
+
+      USE ioipsl_getin_p_mod, ONLY : getin_p
+
+      IMPLICIT NONE
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+#include "nuage.h"
+      
+      INTEGER itap,ind1,ind2
+      INTEGER ngrid,klev,klon,l,ig 
+      
+      REAL ztv(ngrid,klev)
+      REAL po(ngrid)
+      REAL zqenv(ngrid)   
+      REAL zqta(ngrid,klev)
+          
+      REAL fraca(ngrid,klev+1)
+      REAL zpspsk(ngrid,klev)
+      REAL paprs(ngrid,klev+1)
+      REAL ztla(ngrid,klev)
+      REAL zthl(ngrid,klev)
+
+      REAL zqsatth(ngrid,klev)
+      REAL zqsatenv(ngrid,klev)
+      
+      
+      REAL sigma1(ngrid,klev)                                                         
+      REAL sigma2(ngrid,klev)
+      REAL qlth(ngrid,klev)
+      REAL qlenv(ngrid,klev)
+      REAL qltot(ngrid,klev) 
+      REAL cth(ngrid,klev)  
+      REAL cenv(ngrid,klev)   
+      REAL ctot(ngrid,klev)
+      REAL rneb(ngrid,klev)
+      REAL t(ngrid,klev)                                                                  
+      REAL qsatmmussig1,qsatmmussig2,sqrt2pi,pi
+      REAL rdd,cppd,Lv,sqrt2,sqrtpi
+      REAL alth,alenv,ath,aenv
+      REAL sth,senv,sigma1s,sigma2s,xth,xenv
+      REAL xth1,xth2,xenv1,xenv2,deltasth, deltasenv
+      REAL IntJ,IntI1,IntI2,IntI3,coeffqlenv,coeffqlth
+      REAL Tbef,zdelta,qsatbef,zcor
+      REAL qlbef  
+      REAL ratqs(ngrid,klev) ! determine la largeur de distribution de vapeur
+      ! Change the width of the PDF used for vertical subgrid scale heterogeneity
+      ! (J Jouhaud, JL Dufresne, JB Madeleine)
+      REAL,SAVE :: vert_alpha
+      LOGICAL, SAVE :: firstcall = .TRUE.
+      
+      REAL zpdf_sig(ngrid),zpdf_k(ngrid),zpdf_delta(ngrid)
+      REAL zpdf_a(ngrid),zpdf_b(ngrid),zpdf_e1(ngrid),zpdf_e2(ngrid) 
+      REAL zqs(ngrid), qcloud(ngrid)
+      REAL erf
+
+!------------------------------------------------------------------------------
+! Initialisation des variables r?elles
+!------------------------------------------------------------------------------
+      sigma1(:,:)=0.
+      sigma2(:,:)=0.
+      qlth(:,:)=0.
+      qlenv(:,:)=0.  
+      qltot(:,:)=0.
+      rneb(:,:)=0.
+      qcloud(:)=0.
+      cth(:,:)=0.
+      cenv(:,:)=0.
+      ctot(:,:)=0.
+      qsatmmussig1=0.
+      qsatmmussig2=0.
+      rdd=287.04
+      cppd=1005.7
+      pi=3.14159 
+      Lv=2.5e6
+      sqrt2pi=sqrt(2.*pi)
+      sqrt2=sqrt(2.)
+      sqrtpi=sqrt(pi)
+
+      IF (firstcall) THEN
+        vert_alpha=0.5
+        CALL getin_p('cloudth_vert_alpha',vert_alpha)
+        WRITE(*,*) 'cloudth_vert_alpha = ', vert_alpha
+        firstcall=.FALSE.
+      ENDIF
+
+!-------------------------------------------------------------------------------
+! Calcul de la fraction du thermique et des ?cart-types des distributions
+!-------------------------------------------------------------------------------                 
+      do ind1=1,ngrid
+
+      if ((ztv(ind1,1).gt.ztv(ind1,2)).and.(fraca(ind1,ind2).gt.1.e-10)) then 
+
+      zqenv(ind1)=(po(ind1)-fraca(ind1,ind2)*zqta(ind1,ind2))/(1.-fraca(ind1,ind2))
+
+
+!      zqenv(ind1)=po(ind1)
+      Tbef=zthl(ind1,ind2)*zpspsk(ind1,ind2)
+      zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+      qsatbef= R2ES * FOEEW(Tbef,zdelta)/paprs(ind1,ind2)
+      qsatbef=MIN(0.5,qsatbef)
+      zcor=1./(1.-retv*qsatbef)
+      qsatbef=qsatbef*zcor
+      zqsatenv(ind1,ind2)=qsatbef
+
+
+
+
+      alenv=(0.622*Lv*zqsatenv(ind1,ind2))/(rdd*zthl(ind1,ind2)**2)  
+      aenv=1./(1.+(alenv*Lv/cppd))
+      senv=aenv*(po(ind1)-zqsatenv(ind1,ind2)) 
+
+
+
+
+      Tbef=ztla(ind1,ind2)*zpspsk(ind1,ind2)
+      zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+      qsatbef= R2ES * FOEEW(Tbef,zdelta)/paprs(ind1,ind2)
+      qsatbef=MIN(0.5,qsatbef)
+      zcor=1./(1.-retv*qsatbef)
+      qsatbef=qsatbef*zcor
+      zqsatth(ind1,ind2)=qsatbef
+            
+      alth=(0.622*Lv*zqsatth(ind1,ind2))/(rdd*ztla(ind1,ind2)**2)   
+      ath=1./(1.+(alth*Lv/cppd))
+      sth=ath*(zqta(ind1,ind2)-zqsatth(ind1,ind2)) 
+      
+      
+
+!------------------------------------------------------------------------------
+! Calcul des ?cart-types pour s
+!------------------------------------------------------------------------------
+
+      sigma1s=(0.92**0.5)*(fraca(ind1,ind2)**0.5)/(1-fraca(ind1,ind2))*((sth-senv)**2)**0.5+ratqs(ind1,ind2)*po(ind1)
+      sigma2s=0.09*((sth-senv)**2)**0.5/(fraca(ind1,ind2)+0.02)**0.5+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)
+      xth=sth/(sqrt(2.)*sigma2s)
+      xenv=senv/(sqrt(2.)*sigma1s)
+      cth(ind1,ind2)=0.5*(1.+1.*erf(xth))
+      cenv(ind1,ind2)=0.5*(1.+1.*erf(xenv)) 
+      ctot(ind1,ind2)=fraca(ind1,ind2)*cth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*cenv(ind1,ind2)   
+
+      qlth(ind1,ind2)=sigma2s*((exp(-1.*xth**2)/sqrt2pi)+xth*sqrt(2.)*cth(ind1,ind2))
+      qlenv(ind1,ind2)=sigma1s*((exp(-1.*xenv**2)/sqrt2pi)+xenv*sqrt(2.)*cenv(ind1,ind2))   
+      qltot(ind1,ind2)=fraca(ind1,ind2)*qlth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*qlenv(ind1,ind2)
+     
+       IF (iflag_cloudth_vert == 1) THEN
+!-------------------------------------------------------------------------------
+!  Version 2: Modification selon J.-Louis. On condense ?? partir de qsat-ratqs
+!-------------------------------------------------------------------------------
+!      deltasenv=aenv*ratqs(ind1,ind2)*po(ind1)
+!      deltasth=ath*ratqs(ind1,ind2)*zqta(ind1,ind2)
+      deltasenv=aenv*ratqs(ind1,ind2)*zqsatenv(ind1,ind2)
+      deltasth=ath*ratqs(ind1,ind2)*zqsatth(ind1,ind2)
+!      deltasenv=aenv*0.01*po(ind1)
+!     deltasth=ath*0.01*zqta(ind1,ind2)    
+      xenv1=(senv-deltasenv)/(sqrt(2.)*sigma1s)
+      xenv2=(senv+deltasenv)/(sqrt(2.)*sigma1s)
+      xth1=(sth-deltasth)/(sqrt(2.)*sigma2s)
+      xth2=(sth+deltasth)/(sqrt(2.)*sigma2s)
+      coeffqlenv=(sigma1s)**2/(2*sqrtpi*deltasenv)
+      coeffqlth=(sigma2s)**2/(2*sqrtpi*deltasth)
+      
+      cth(ind1,ind2)=0.5*(1.+1.*erf(xth2))
+      cenv(ind1,ind2)=0.5*(1.+1.*erf(xenv2)) 
+      ctot(ind1,ind2)=fraca(ind1,ind2)*cth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*cenv(ind1,ind2)   
+
+      IntJ=sigma1s*(exp(-1.*xenv1**2)/sqrt2pi)+0.5*senv*(1+erf(xenv1))
+      IntI1=coeffqlenv*0.5*(0.5*sqrtpi*(erf(xenv2)-erf(xenv1))+xenv1*exp(-1.*xenv1**2)-xenv2*exp(-1.*xenv2**2))
+      IntI2=coeffqlenv*xenv2*(exp(-1.*xenv2**2)-exp(-1.*xenv1**2))
+      IntI3=coeffqlenv*0.5*sqrtpi*xenv2**2*(erf(xenv2)-erf(xenv1))
+
+      qlenv(ind1,ind2)=IntJ+IntI1+IntI2+IntI3
+!      qlenv(ind1,ind2)=IntJ 
+!      print*, qlenv(ind1,ind2),'VERIF EAU'
+
+
+      IntJ=sigma2s*(exp(-1.*xth1**2)/sqrt2pi)+0.5*sth*(1+erf(xth1))
+!      IntI1=coeffqlth*((0.5*xth1-xth2)*exp(-1.*xth1**2)+0.5*xth2*exp(-1.*xth2**2))
+!      IntI2=coeffqlth*0.5*sqrtpi*(0.5+xth2**2)*(erf(xth2)-erf(xth1))
+      IntI1=coeffqlth*0.5*(0.5*sqrtpi*(erf(xth2)-erf(xth1))+xth1*exp(-1.*xth1**2)-xth2*exp(-1.*xth2**2))
+      IntI2=coeffqlth*xth2*(exp(-1.*xth2**2)-exp(-1.*xth1**2))
+      IntI3=coeffqlth*0.5*sqrtpi*xth2**2*(erf(xth2)-erf(xth1))
+      qlth(ind1,ind2)=IntJ+IntI1+IntI2+IntI3
+!      qlth(ind1,ind2)=IntJ
+!      print*, IntJ,IntI1,IntI2,IntI3,qlth(ind1,ind2),'VERIF EAU2'
+      qltot(ind1,ind2)=fraca(ind1,ind2)*qlth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*qlenv(ind1,ind2)
+
+      ELSE IF (iflag_cloudth_vert == 2) THEN
+
+!-------------------------------------------------------------------------------
+!  Version 3: Modification Jean Jouhaud. On condense a partir de -delta s
+!-------------------------------------------------------------------------------
+!      deltasenv=aenv*ratqs(ind1,ind2)*po(ind1)
+!      deltasth=ath*ratqs(ind1,ind2)*zqta(ind1,ind2)
+!      deltasenv=aenv*ratqs(ind1,ind2)*zqsatenv(ind1,ind2)
+!      deltasth=ath*ratqs(ind1,ind2)*zqsatth(ind1,ind2)
+      deltasenv=aenv*vert_alpha*sigma1s
+      deltasth=ath*vert_alpha*sigma2s
+      
+      xenv1=-(senv+deltasenv)/(sqrt(2.)*sigma1s)
+      xenv2=-(senv-deltasenv)/(sqrt(2.)*sigma1s)
+      xth1=-(sth+deltasth)/(sqrt(2.)*sigma2s)
+      xth2=-(sth-deltasth)/(sqrt(2.)*sigma2s)
+!     coeffqlenv=(sigma1s)**2/(2*sqrtpi*deltasenv)
+!     coeffqlth=(sigma2s)**2/(2*sqrtpi*deltasth)
+      
+      cth(ind1,ind2)=0.5*(1.-1.*erf(xth1))
+      cenv(ind1,ind2)=0.5*(1.-1.*erf(xenv1))
+      ctot(ind1,ind2)=fraca(ind1,ind2)*cth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*cenv(ind1,ind2)
+
+      IntJ=0.5*senv*(1-erf(xenv2))+(sigma1s/sqrt2pi)*exp(-1.*xenv2**2)
+      IntI1=(((senv+deltasenv)**2+(sigma1s)**2)/(8*deltasenv))*(erf(xenv2)-erf(xenv1))
+      IntI2=(sigma1s**2/(4*deltasenv*sqrtpi))*(xenv1*exp(-1.*xenv1**2)-xenv2*exp(-1.*xenv2**2))
+      IntI3=((sqrt2*sigma1s*(senv+deltasenv))/(4*sqrtpi*deltasenv))*(exp(-1.*xenv1**2)-exp(-1.*xenv2**2))
+
+!      IntI1=0.5*(0.5*sqrtpi*(erf(xenv2)-erf(xenv1))+xenv1*exp(-1.*xenv1**2)-xenv2*exp(-1.*xenv2**2))
+!      IntI2=xenv2*(exp(-1.*xenv2**2)-exp(-1.*xenv1**2))
+!      IntI3=0.5*sqrtpi*xenv2**2*(erf(xenv2)-erf(xenv1))
+
+      qlenv(ind1,ind2)=IntJ+IntI1+IntI2+IntI3
+!      qlenv(ind1,ind2)=IntJ 
+!      print*, qlenv(ind1,ind2),'VERIF EAU'
+
+      IntJ=0.5*sth*(1-erf(xth2))+(sigma2s/sqrt2pi)*exp(-1.*xth2**2)
+      IntI1=(((sth+deltasth)**2+(sigma2s)**2)/(8*deltasth))*(erf(xth2)-erf(xth1))
+      IntI2=(sigma2s**2/(4*deltasth*sqrtpi))*(xth1*exp(-1.*xth1**2)-xth2*exp(-1.*xth2**2))
+      IntI3=((sqrt2*sigma2s*(sth+deltasth))/(4*sqrtpi*deltasth))*(exp(-1.*xth1**2)-exp(-1.*xth2**2))
+      
+      qlth(ind1,ind2)=IntJ+IntI1+IntI2+IntI3
+!      qlth(ind1,ind2)=IntJ
+!      print*, IntJ,IntI1,IntI2,IntI3,qlth(ind1,ind2),'VERIF EAU2'
+      qltot(ind1,ind2)=fraca(ind1,ind2)*qlth(ind1,ind2)+(1.-1.*fraca(ind1,ind2))*qlenv(ind1,ind2)
+      
+
+
+
+      ENDIF ! of if (iflag_cloudth_vert==1 or 2)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      if (cenv(ind1,ind2).lt.1.e-10.or.cth(ind1,ind2).lt.1.e-10) then
+      ctot(ind1,ind2)=0.
+      qcloud(ind1)=zqsatenv(ind1,ind2) 
+
+      else 
+                
+      ctot(ind1,ind2)=ctot(ind1,ind2) 
+      qcloud(ind1)=qltot(ind1,ind2)/ctot(ind1,ind2)+zqs(ind1)
+!      qcloud(ind1)=fraca(ind1,ind2)*qlth(ind1,ind2)/cth(ind1,ind2) &
+!    &             +(1.-1.*fraca(ind1,ind2))*qlenv(ind1,ind2)/cenv(ind1,ind2)+zqs(ind1) 
+
+      endif  
+                       
+      
+          
+!     print*,sth,sigma2s,qlth(ind1,ind2),ctot(ind1,ind2),qltot(ind1,ind2),'verif'
+
+
+      else  ! gaussienne environnement seule
+      
+      zqenv(ind1)=po(ind1)
+      Tbef=t(ind1,ind2)
+      zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+      qsatbef= R2ES * FOEEW(Tbef,zdelta)/paprs(ind1,ind2)
+      qsatbef=MIN(0.5,qsatbef)
+      zcor=1./(1.-retv*qsatbef)
+      qsatbef=qsatbef*zcor
+      zqsatenv(ind1,ind2)=qsatbef
+      
+
+!      qlbef=Max(po(ind1)-zqsatenv(ind1,ind2),0.)
+      zthl(ind1,ind2)=t(ind1,ind2)*(101325/paprs(ind1,ind2))**(rdd/cppd)
+      alenv=(0.622*Lv*zqsatenv(ind1,ind2))/(rdd*zthl(ind1,ind2)**2)  
+      aenv=1./(1.+(alenv*Lv/cppd))
+      senv=aenv*(po(ind1)-zqsatenv(ind1,ind2)) 
+      
+
+      sigma1s=ratqs(ind1,ind2)*zqenv(ind1)
+
+      sqrt2pi=sqrt(2.*pi)
+      xenv=senv/(sqrt(2.)*sigma1s)
+      ctot(ind1,ind2)=0.5*(1.+1.*erf(xenv))
+      qltot(ind1,ind2)=sigma1s*((exp(-1.*xenv**2)/sqrt2pi)+xenv*sqrt(2.)*cenv(ind1,ind2))
+      
+      if (ctot(ind1,ind2).lt.1.e-3) then
+      ctot(ind1,ind2)=0.
+      qcloud(ind1)=zqsatenv(ind1,ind2) 
+
+      else   
+                
+      ctot(ind1,ind2)=ctot(ind1,ind2) 
+      qcloud(ind1)=qltot(ind1,ind2)/ctot(ind1,ind2)+zqsatenv(ind1,ind2)
+
+      endif    
+ 
+ 
+ 
+ 
+ 
+ 
+      endif   
+      enddo
+     
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cltrac.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cltrac.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cltrac.F90	(revision 3330)
@@ -0,0 +1,149 @@
+!
+! $Id $
+!
+SUBROUTINE cltrac(dtime,coef,t,tr,flux,paprs,pplay,delp, &
+                  d_tr,d_tr_dry,flux_tr_dry)                    !jyg
+
+  USE dimphy
+  IMPLICIT NONE
+!======================================================================
+! Auteur(s): O. Boucher (LOA/LMD) date: 19961127
+!            inspire de clvent
+! Objet: diffusion verticale de traceurs avec flux fixe a la surface
+!        ou/et flux du type c-drag
+!
+! Arguments:
+!-----------
+! dtime.......input-R- intervalle du temps (en secondes)
+! coef........input-R- le coefficient d'echange (m**2/s) l>1
+! t...........input-R- temperature (K)
+! tr..........input-R- la q. de traceurs
+! flux........input-R- le flux de traceurs a la surface
+! paprs.......input-R- pression a inter-couche (Pa)
+! pplay.......input-R- pression au milieu de couche (Pa)
+! delp........input-R- epaisseur de couche (Pa)
+! cdrag.......input-R- cdrag pour le flux de surface (non active)
+! tr0.........input-R- traceurs a la surface ou dans l'ocean (non active)
+! d_tr........output-R- le changement de tr
+! d_tr_dry....output-R- le changement de tr du au depot sec (1st layer)
+! flux_tr_dry.output-R- depot sec
+!!! flux_tr..output-R- flux de tr
+!======================================================================
+  include "YOMCST.h"
+!
+! Entree
+! 
+  REAL,INTENT(IN)                        :: dtime
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: coef
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: t, tr
+  REAL,DIMENSION(klon),INTENT(IN)        :: flux !(at/s/m2)
+  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs 
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay, delp
+!
+! Sorties
+!
+  REAL ,DIMENSION(klon,klev),INTENT(OUT) :: d_tr
+  REAL ,DIMENSION(klon),INTENT(OUT)       :: d_tr_dry          !jyg
+  REAL ,DIMENSION(klon),INTENT(OUT)       :: flux_tr_dry       !jyg
+!  REAL ,DIMENSION(klon,klev),INTENT(OUT) :: flux_tr
+!
+! Local
+! 
+  INTEGER                   :: i, k
+  REAL,DIMENSION(klon)      :: cdrag, tr0
+  REAL,DIMENSION(klon,klev) :: zx_ctr
+  REAL,DIMENSION(klon,klev) :: zx_dtr
+  REAL,DIMENSION(klon)      :: zx_buf
+  REAL,DIMENSION(klon,klev) :: zx_coef
+  REAL,DIMENSION(klon,klev) :: local_tr
+  REAL,DIMENSION(klon)      :: zx_alf1,zx_alf2,zx_flux
+
+!======================================================================
+
+  DO k = 1, klev
+     DO i = 1, klon
+        local_tr(i,k) = tr(i,k)
+     ENDDO
+  ENDDO
+
+!======================================================================
+
+  DO i = 1, klon
+     zx_alf1(i) = (paprs(i,1)-pplay(i,2))/(pplay(i,1)-pplay(i,2))
+     zx_alf2(i) = 1.0 - zx_alf1(i)
+     flux_tr_dry(i) = -flux(i)*dtime                              !jyg
+     zx_flux(i) =  flux_tr_dry(i)*RG                              !jyg
+!!     zx_flux(i) =  -flux(i)*dtime*RG                            !jyg
+! Pour le moment le flux est prescrit cdrag et zx_coef(1) vaut 0
+     cdrag(i) = 0.0 
+     tr0(i) = 0.0
+     zx_coef(i,1) = cdrag(i)*dtime*RG 
+     zx_ctr(i,1)=0.
+     zx_dtr(i,1)=0.
+  ENDDO
+
+!======================================================================
+
+  DO k = 2, klev
+     DO i = 1, klon
+        zx_coef(i,k) = coef(i,k)*RG/(pplay(i,k-1)-pplay(i,k))   &
+             *(paprs(i,k)*2/(t(i,k)+t(i,k-1))/RD)**2
+        zx_coef(i,k) = zx_coef(i,k)*dtime*RG  
+     ENDDO
+  ENDDO
+
+!======================================================================
+
+  DO i = 1, klon
+     zx_buf(i) = delp(i,1) + zx_coef(i,1)*zx_alf1(i) + zx_coef(i,2)
+     !
+     zx_ctr(i,2) = (local_tr(i,1)*delp(i,1)+                  &
+          zx_coef(i,1)*tr0(i)-zx_flux(i))/zx_buf(i)
+     !
+     zx_dtr(i,2) = (zx_coef(i,2)-zx_alf2(i)*zx_coef(i,1)) /   & 
+          zx_buf(i)
+     d_tr_dry(i) = -zx_flux(i)/zx_buf(i)                          !jyg
+  ENDDO
+
+  DO k = 3, klev
+     DO i = 1, klon
+        zx_buf(i) = delp(i,k-1) + zx_coef(i,k)      &
+             + zx_coef(i,k-1)*(1.-zx_dtr(i,k-1))
+        zx_ctr(i,k) = (local_tr(i,k-1)*delp(i,k-1)  & 
+             +zx_coef(i,k-1)*zx_ctr(i,k-1) )/zx_buf(i)
+        zx_dtr(i,k) = zx_coef(i,k)/zx_buf(i)
+     ENDDO
+  ENDDO
+
+  DO i = 1, klon
+     local_tr(i,klev) = ( local_tr(i,klev)*delp(i,klev) &
+          +zx_coef(i,klev)*zx_ctr(i,klev) )             &
+          / ( delp(i,klev) + zx_coef(i,klev)            &
+          -zx_coef(i,klev)*zx_dtr(i,klev) )
+  ENDDO
+
+  DO k = klev-1, 1, -1
+     DO i = 1, klon
+        local_tr(i,k) = zx_ctr(i,k+1) + zx_dtr(i,k+1)*local_tr(i,k+1)
+     ENDDO
+  ENDDO
+
+!======================================================================
+!== flux_tr est le flux de traceur (positif vers bas)
+!      DO i = 1, klon
+!         flux_tr(i,1) = zx_coef(i,1)/(RG*dtime)
+!      ENDDO
+!      DO k = 2, klev
+!      DO i = 1, klon
+!         flux_tr(i,k) = zx_coef(i,k)/(RG*dtime)
+!     .               * (local_tr(i,k)-local_tr(i,k-1))
+!      ENDDO
+!      ENDDO
+!======================================================================
+  DO k = 1, klev
+     DO i = 1, klon
+        d_tr(i,k) = local_tr(i,k) - tr(i,k)
+     ENDDO
+  ENDDO
+  
+END SUBROUTINE cltrac
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cltracrn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cltracrn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cltracrn.F90	(revision 3330)
@@ -0,0 +1,288 @@
+!$Id $
+
+SUBROUTINE cltracrn( itr, dtime,u1lay, v1lay, &
+     cdrag,coef,t,ftsol,pctsrf,               &
+     tr,trs,paprs,pplay,delp,                 &
+     masktr,fshtr,hsoltr,tautr,vdeptr,        &
+     lat,d_tr,d_trs )
+  
+  USE dimphy
+  USE traclmdz_mod, ONLY : id_rn, id_pb
+  USE indice_sol_mod
+
+  IMPLICIT NONE
+!======================================================================
+! Auteur(s): Alex/LMD) date:  fev 99
+!            inspire de clqh + clvent
+! Objet: diffusion verticale de traceurs avec quantite de traceur ds 
+!        le sol ( reservoir de sol de radon ) 
+!        
+! note : pour l'instant le traceur dans le sol et le flux sont
+!        calcules mais ils ne servent que de diagnostiques
+!        seule la tendance sur le traceur est sortie (d_tr)
+!---------------------------------------------------------------------
+! Arguments:
+! itr......input-R-  le type de traceur : id_rn(radon), id_pb(plomb)
+! dtime....input-R-  intervalle du temps (en secondes) ~ pdtphys
+! u1lay....input-R-  vent u de la premiere couche (m/s)
+! v1lay....input-R-  vent v de la premiere couche (m/s)
+! cdrag....input-R-  cdrag
+! coef.....input-R-  le coefficient d'echange (m**2/s) l>1, valable uniquement pour k entre 2 et klev
+! t........input-R-  temperature (K)
+! paprs....input-R-  pression a inter-couche (Pa)
+! pplay....input-R-  pression au milieu de couche (Pa)
+! delp.....input-R-  epaisseur de couche (Pa)
+! ftsol....input-R-  temperature du sol (en Kelvin)
+! tr.......input-R-  traceurs
+! trs......input-R-  traceurs dans le sol
+! masktr...input-R-  Masque reservoir de sol traceur (1 = reservoir)
+! fshtr....input-R-  Flux surfacique de production dans le sol
+! tautr....input-R-  Constante de decroissance du traceur
+! vdeptr...input-R-  Vitesse de depot sec dans la couche brownienne
+! hsoltr...input-R-  Epaisseur equivalente du reservoir de sol
+! lat......input-R-  latitude en degree
+! d_tr.....output-R- le changement de "tr"
+! d_trs....output-R- le changement de "trs"
+!======================================================================
+  include "YOMCST.h"
+!
+!Entrees
+  INTEGER,INTENT(IN)                     :: itr
+  REAL,INTENT(IN)                        :: dtime
+  REAL,DIMENSION(klon),INTENT(IN)        :: u1lay, v1lay
+  REAL,DIMENSION(klon),INTENT(IN)        :: cdrag
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: coef, t
+  REAL,DIMENSION(klon,nbsrf),INTENT(IN)  :: ftsol, pctsrf 
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: tr 
+  REAL,DIMENSION(klon),INTENT(IN)        :: trs
+  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs 
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay, delp
+  REAL,DIMENSION(klon),INTENT(IN)        :: masktr 
+  REAL,DIMENSION(klon),INTENT(IN)        :: fshtr 
+  REAL,INTENT(IN)                        :: hsoltr
+  REAL,INTENT(IN)                        :: tautr
+  REAL,INTENT(IN)                        :: vdeptr
+  REAL,DIMENSION(klon),INTENT(IN)        :: lat   
+
+!Sorties
+  REAL,DIMENSION(klon,klev),INTENT(OUT) :: d_tr
+  REAL,DIMENSION(klon),INTENT(OUT) :: d_trs  ! (diagnostic) traceur ds le sol
+
+!Locales
+  REAL,DIMENSION(klon,klev) :: flux_tr  ! (diagnostic) flux de traceur
+  INTEGER                   :: i, k, n, l
+  REAL,DIMENSION(klon)      :: rotrhi
+  REAL,DIMENSION(klon,klev) :: zx_coef
+  REAL,DIMENSION(klon)      :: zx_buf
+  REAL,DIMENSION(klon,klev) :: zx_ctr
+  REAL,DIMENSION(klon,klev) :: zx_dtr
+  REAL,DIMENSION(klon)      :: zx_trs
+  REAL                      :: zx_a, zx_b
+  
+  REAL,DIMENSION(klon,klev) :: local_tr
+  REAL,DIMENSION(klon)      :: local_trs
+  REAL,DIMENSION(klon)      :: zts      ! champ de temperature du sol
+  REAL,DIMENSION(klon)      :: zx_alpha1, zx_alpha2
+!======================================================================
+!AA Pour l'instant les 4 types de surface ne sont pas pris en compte
+!AA On fabrique avec zts un champ de temperature de sol  
+!AA que le pondere par la fraction de nature de sol.
+ 
+  DO i = 1,klon
+     zts(i) = 0. 
+  ENDDO
+
+  DO n=1,nbsrf
+     DO i = 1,klon
+        zts(i) = zts(i) + ftsol(i,n)*pctsrf(i,n)
+     ENDDO
+  ENDDO
+
+  DO i = 1,klon
+     rotrhi(i) = RD * zts(i) / hsoltr 
+  ENDDO
+
+  DO k = 1, klev
+     DO i = 1, klon
+        local_tr(i,k) = tr(i,k)
+     ENDDO
+  ENDDO
+
+  DO i = 1, klon
+     local_trs(i) = trs(i)
+  ENDDO
+!======================================================================
+!AA   Attention si dans clmain zx_alf1(i) = 1.0 
+!AA   Il doit y avoir coherence (dc la meme chose ici)
+
+  DO i = 1, klon
+!AA         zx_alpha1(i) = (paprs(i,1)-pplay(i,2))/(pplay(i,1)-pplay(i,2))
+     zx_alpha1(i) = 1.0
+     zx_alpha2(i) = 1.0 - zx_alpha1(i)
+  ENDDO
+!======================================================================
+  DO i = 1, klon
+     zx_coef(i,1) = cdrag(i)*(1.0+SQRT(u1lay(i)**2+v1lay(i)**2)) &
+          *pplay(i,1)/(RD*t(i,1))
+     zx_coef(i,1) = zx_coef(i,1) * dtime*RG
+  ENDDO
+
+  DO k = 2, klev
+     DO i = 1, klon
+        zx_coef(i,k) = coef(i,k)*RG/(pplay(i,k-1)-pplay(i,k)) &
+             *(paprs(i,k)*2/(t(i,k)+t(i,k-1))/RD)**2
+        zx_coef(i,k) = zx_coef(i,k) * dtime*RG
+     ENDDO
+  ENDDO
+!======================================================================
+  DO i = 1, klon
+     zx_buf(i)      = delp(i,klev) + zx_coef(i,klev)
+     zx_ctr(i,klev) = local_tr(i,klev)*delp(i,klev)/zx_buf(i)
+     zx_dtr(i,klev) = zx_coef(i,klev) / zx_buf(i)
+  ENDDO
+
+  DO l = klev-1, 2 , -1
+     DO i = 1, klon
+        zx_buf(i) = delp(i,l)+zx_coef(i,l)      &
+             +zx_coef(i,l+1)*(1.-zx_dtr(i,l+1))
+ 
+        zx_ctr(i,l) = ( local_tr(i,l)*delp(i,l) &
+             + zx_coef(i,l+1)*zx_ctr(i,l+1) )/zx_buf(i)
+        zx_dtr(i,l) = zx_coef(i,l) / zx_buf(i)
+     ENDDO
+  ENDDO
+
+  DO i = 1, klon
+     zx_buf(i) = delp(i,1) + zx_coef(i,2)*(1.-zx_dtr(i,2))  &
+          + masktr(i) * zx_coef(i,1)                        &
+          *( zx_alpha1(i)+zx_alpha2(i)*zx_dtr(i,2) )
+
+     zx_ctr(i,1) = ( local_tr(i,1)*delp(i,1)                &
+          + zx_ctr(i,2)                                     &
+          *(zx_coef(i,2)                                    &
+          - masktr(i) * zx_coef(i,1)                        &
+          *zx_alpha2(i) ) ) / zx_buf(i)
+     zx_dtr(i,1) = masktr(i) * zx_coef(i,1) / zx_buf(i)
+  ENDDO
+!======================================================================
+! Calculer d'abord local_trs nouvelle quantite dans le reservoir
+! de sol
+!=====================================================================
+
+  DO i = 1, klon
+!-------------------------
+! Au dessus des continents
+!--
+! Le pb peut se deposer partout : vdeptr = 10-3 m/s
+! Le Rn est traiter commme une couche Brownienne puisque vdeptr = 0.
+!-------------------------------------------------------------------
+     IF ( NINT(masktr(i)) .EQ. 1 ) THEN
+        zx_trs(i) = local_trs(i)
+        zx_a = zx_trs(i)                                           &
+             +fshtr(i)*dtime*rotrhi(i)                             &
+             +rotrhi(i)*masktr(i)*zx_coef(i,1)/RG                  &
+             *(zx_ctr(i,1)*(zx_alpha1(i)+zx_alpha2(i)*zx_dtr(i,2)) &
+             +zx_alpha2(i)*zx_ctr(i,2))
+! Pour l'instant, pour aller vite, le depot sec est traite comme une decroissance
+        zx_b = 1. + rotrhi(i)*masktr(i)*zx_coef(i,1)/RG            &
+             * (1.-zx_dtr(i,1)                                     &
+             *(zx_alpha1(i)+zx_alpha2(i)*zx_dtr(i,2)))             &
+             + dtime / tautr                                       & 
+             + dtime * vdeptr / hsoltr 
+        zx_trs(i) = zx_a / zx_b
+        local_trs(i) = zx_trs(i)
+     ENDIF
+!--------------------------------------------------------
+! Si on est entre 60N et 70N on divise par 2 l'emanation
+!--------------------------------------------------------
+
+     IF ( (itr.eq.id_rn.AND.NINT(masktr(i)).EQ.1.AND.lat(i).GE.60..AND.lat(i).LE.70.).OR.      &
+          (itr.eq.id_pb.AND.NINT(masktr(i)).EQ.1.AND.lat(i).GE.60..AND.lat(i).LE.70.) ) THEN
+        zx_trs(i) = local_trs(i)
+        zx_a = zx_trs(i)                                           &
+             +(fshtr(i)/2.)*dtime*rotrhi(i)                        & 
+             +rotrhi(i)*masktr(i)*zx_coef(i,1)/RG                  &
+             *(zx_ctr(i,1)*(zx_alpha1(i)+zx_alpha2(i)*zx_dtr(i,2)) &
+             +zx_alpha2(i)*zx_ctr(i,2))
+        !
+        zx_b = 1. + rotrhi(i)*masktr(i)*zx_coef(i,1)/RG  &
+             * (1.-zx_dtr(i,1)                           &
+             *(zx_alpha1(i)+zx_alpha2(i)*zx_dtr(i,2)))   &
+             + dtime / tautr                             &
+             + dtime * vdeptr / hsoltr
+        ! 
+        zx_trs(i) = zx_a / zx_b
+        local_trs(i) = zx_trs(i)
+     ENDIF
+
+!----------------------------------------------
+! Au dessus des oceans et aux hautes latitudes
+!--
+! au dessous de -60S  pas d'emission de radon au dessus 
+! des oceans et des continents
+!---------------------------------------------------------------
+
+     IF ( (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.0).OR.       &
+          (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.1.AND.lat(i).LT.-60.)) THEN
+        zx_trs(i) = 0.
+        local_trs(i) = 0.
+     END IF
+!--
+! au dessus de 70 N pas d'emission de radon au dessus 
+! des oceans et des continents
+!--------------------------------------------------------------
+     IF ( (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.0).OR.    &
+          (itr.EQ.id_rn.AND.NINT(masktr(i)).EQ.1.AND.lat(i).GT.70.)) THEN
+        zx_trs(i) = 0.
+        local_trs(i) = 0.
+     END IF
+!---------------------------------------------
+! Au dessus des oceans la source est nulle
+!--------------------------------------------
+
+     IF (itr.eq.id_rn.AND.NINT(masktr(i)).EQ.0) THEN
+        zx_trs(i) = 0.
+        local_trs(i) = 0.
+     END IF
+
+  ENDDO    ! sur le i=1,klon
+!
+!======================================================================
+! Une fois on a zx_trs, on peut faire l'iteration 
+!====================================================================== 
+
+  DO i = 1, klon
+     local_tr(i,1) = zx_ctr(i,1)+zx_dtr(i,1)*zx_trs(i)
+  ENDDO
+  DO l = 2, klev
+     DO i = 1, klon
+        local_tr(i,l) = zx_ctr(i,l) + zx_dtr(i,l)*local_tr(i,l-1)
+     ENDDO
+  ENDDO
+!======================================================================
+! Calcul du flux de traceur (flux_tr): UA/(m**2 s)
+!======================================================================
+  DO i = 1, klon
+     flux_tr(i,1) = masktr(i)*zx_coef(i,1)/RG                      &
+          * (zx_alpha1(i)*local_tr(i,1)+zx_alpha2(i)*local_tr(i,2) &
+          -zx_trs(i)) / dtime
+  ENDDO
+  DO l = 2, klev
+     DO i = 1, klon
+        flux_tr(i,l) = zx_coef(i,l)/RG                    &
+             * (local_tr(i,l)-local_tr(i,l-1)) / dtime
+     ENDDO
+  ENDDO
+!======================================================================
+! Calcul des tendances du traceur ds le sol et dans l'atmosphere
+!======================================================================
+  DO l = 1, klev
+     DO i = 1, klon
+        d_tr(i,l) = local_tr(i,l) - tr(i,l)
+     ENDDO
+  ENDDO
+  DO i = 1, klon
+     d_trs(i) = local_trs(i) - trs(i)
+  ENDDO
+
+END SUBROUTINE cltracrn
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cmp_seri_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cmp_seri_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cmp_seri_mod.F90	(revision 3330)
@@ -0,0 +1,156 @@
+!
+! $Id:  ??? $
+!
+MODULE cmp_seri_mod
+  !======================================================================
+  ! to check if the x_seri vaariables have changed
+  !
+  !======================================================================
+
+  REAL,SAVE,ALLOCATABLE ::  u_prev(:,:), v_prev(:,:), ql_prev(:,:), &
+       qs_prev(:,:), q_prev(:,:), t_prev(:,:)
+  !$OMP THREADPRIVATE(u_prev, v_prev, ql_prev, qs_prev, q_prev, t_prev)
+
+CONTAINS
+
+  SUBROUTINE init_cmp_seri
+    !======================================================================
+    !
+    !======================================================================
+
+    !======================================================================
+    ! Declarations
+    !======================================================================
+    USE dimphy, ONLY: klon, klev
+    USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, q_seri, &
+         t_seri
+    !
+    IMPLICIT none
+    ! Local :
+    !--------
+    logical, save :: first=.true.
+    !$OMP THREADPRIVATE(first)
+
+    !
+    !======================================================================
+    !
+    if (first) then
+       ALLOCATE(u_prev(klon,klev))
+       ALLOCATE(v_prev(klon,klev))
+       ALLOCATE(ql_prev(klon,klev))
+       ALLOCATE(qs_prev(klon,klev))
+       ALLOCATE(q_prev(klon,klev))
+       ALLOCATE(t_prev(klon,klev))
+       first=.false.
+    endif
+    ! store current values of x_seri variables
+    u_prev(:,:) =u_seri(:,:)
+    v_prev(:,:) =v_seri(:,:)
+    ql_prev(:,:)=ql_seri(:,:)
+    qs_prev(:,:)=qs_seri(:,:)
+    t_prev(:,:) =t_seri(:,:)
+    q_prev(:,:) =q_seri(:,:)
+
+  END SUBROUTINE init_cmp_seri
+
+  !======================================================================
+  !
+  !======================================================================
+  SUBROUTINE cmp_seri(iflag,text)
+    !
+    USE dimphy, ONLY: klon, klev
+    USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, q_seri, &
+         t_seri
+    USE print_control_mod, ONLY: prt_level
+    IMPLICIT none
+    ! Arguments :
+    !------------
+    integer iflag
+    CHARACTER*(*) text
+    ! Local :
+    !--------
+    integer i, k
+    real du_seri(klon,klev), dv_seri(klon,klev), dql_seri(klon,klev), &
+         dqs_seri(klon,klev), dq_seri(klon,klev), dt_seri(klon,klev)
+    logical t_differ, u_differ, v_differ, ql_differ, qs_differ, q_differ
+    logical any_differ
+    !
+    any_differ = .false.
+    !
+    dt_seri(:,:)=t_seri(:,:)-t_prev(:,:)
+    IF (any(t_seri/=t_prev)) then
+       if ( .not. any_differ ) write (*,*) "In cmp_seri, after ",text
+       write (*,*) '*** t_seri has changed',minval(dt_seri),maxval(dt_seri)
+       t_differ=.true.
+       any_differ = .true.
+    ELSE
+       t_differ=.false.
+    END IF
+    !
+    dq_seri(:,:)=q_seri(:,:)-q_prev(:,:)
+    IF (any(q_seri/=q_prev)) then
+       if ( .not. any_differ ) write (*,*) "In cmp_seri, after ",text
+       write (*,*) '*** q_seri has changed',minval(dq_seri),maxval(dq_seri)
+       q_differ=.true.
+       any_differ = .true.
+    ELSE
+       q_differ=.false.
+    END IF
+    !
+    dql_seri(:,:)=ql_seri(:,:)-ql_prev(:,:)
+    IF (any(ql_seri/=ql_prev)) then
+       if ( .not. any_differ ) write (*,*) "In cmp_seri, after ",text
+       write (*,*) '*** ql_seri has changed',minval(dql_seri),maxval(dql_seri)
+       ql_differ=.true.
+       any_differ = .true.
+    ELSE
+       ql_differ=.false.
+    END IF
+    !
+    dqs_seri(:,:)=qs_seri(:,:)-qs_prev(:,:)
+    IF (any(qs_seri/=qs_prev)) then
+       if ( .not. any_differ ) write (*,*) "In cmp_seri, after ",text
+       write (*,*) '*** qs_seri has changed',minval(dqs_seri),maxval(dqs_seri)
+       qs_differ=.true.
+       any_differ = .true.
+    ELSE
+       qs_differ=.false.
+    END IF
+    !
+    du_seri(:,:)=u_seri(:,:)-u_prev(:,:)
+    IF (any(u_seri/=u_prev)) then
+       if ( .not. any_differ ) write (*,*) "In cmp_seri, after ",text
+       write (*,*) '*** u_seri has changed',minval(du_seri),maxval(du_seri)
+       u_differ=.true.
+       any_differ = .true.
+    ELSE
+       u_differ=.false.
+    END IF
+    !
+    dv_seri(:,:)=v_seri(:,:)-v_prev(:,:)
+    IF (any(v_seri/=v_prev)) then
+       if ( .not. any_differ ) write (*,*) "In cmp_seri, after ",text
+       write (*,*) '*** v_seri has changed',minval(dv_seri),maxval(dv_seri)
+       v_differ=.true.
+       any_differ = .true.
+    ELSE
+       v_differ=.false.
+    END IF
+    !
+    if (any_differ) then
+       IF (iflag >= 2 .and. prt_level >= 5) then
+          i=1
+          DO k = 1, klev
+             write(*,'(i3,6e14.6)')k, t_seri(i,k)-t_prev(i,k), u_seri(i,k)-u_prev(i,k), &
+                  v_seri(i,k)-v_prev(i,k), ql_seri(i,k)-ql_prev(i,k),&
+                  qs_seri(i,k)-qs_prev(i,k), q_seri(i,k)-q_prev(i,k)
+          ENDDO
+       END IF
+    else
+       write (*,*) 'No change for any xxx_seri after ',text
+    end if
+
+  END SUBROUTINE cmp_seri
+
+END MODULE cmp_seri_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coef_diff_turb_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coef_diff_turb_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coef_diff_turb_mod.F90	(revision 3330)
@@ -0,0 +1,584 @@
+!
+MODULE coef_diff_turb_mod
+!
+! This module contains some procedures for calculation of the coefficients of the
+! turbulent diffusion in the atmosphere and coefficients for turbulent diffusion 
+! at surface(cdrag)
+!
+  IMPLICIT NONE
+  
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE coef_diff_turb(dtime, nsrf, knon, ni, &
+       ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, &
+       ycoefm, ycoefh ,yq2)
+ 
+    USE dimphy
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: prt_level, lunout
+!
+! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the 
+! atmosphere 
+! NB! No values are calculated between surface and the first model layer. 
+!     ycoefm(:,1) and ycoefh(:,1) are not valid !!!
+!
+!
+! Input arguments
+!****************************************************************************************
+    REAL, INTENT(IN)                           :: dtime
+    INTEGER, INTENT(IN)                        :: nsrf, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)       :: ni
+    REAL, DIMENSION(klon,klev+1), INTENT(IN)   :: ypaprs
+    REAL, DIMENSION(klon,klev), INTENT(IN)     :: ypplay
+    REAL, DIMENSION(klon,klev), INTENT(IN)     :: yu, yv
+    REAL, DIMENSION(klon,klev), INTENT(IN)     :: yq, yt
+    REAL, DIMENSION(klon), INTENT(IN)          :: yts, yqsurf
+    REAL, DIMENSION(klon), INTENT(IN)          :: ycdragm
+
+! InOutput arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon,klev+1), INTENT(INOUT):: yq2
+  
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon,klev), INTENT(OUT)    :: ycoefh
+    REAL, DIMENSION(klon,klev), INTENT(OUT)    :: ycoefm
+
+! Other local variables
+!****************************************************************************************
+    INTEGER                                    :: k, i, j
+    REAL, DIMENSION(klon,klev)                 :: ycoefm0, ycoefh0, yzlay, yteta
+    REAL, DIMENSION(klon,klev+1)               :: yzlev, q2diag, ykmm, ykmn, ykmq
+    REAL, DIMENSION(klon)                      :: yustar
+
+! Include
+!****************************************************************************************
+    INCLUDE "clesphys.h"
+    INCLUDE "compbl.h"
+    INCLUDE "YOETHF.h"
+    INCLUDE "YOMCST.h"
+
+
+!****************************************************************************************    
+! Calcul de coefficients de diffusion turbulent de l'atmosphere : 
+! ycoefm(:,2:klev), ycoefh(:,2:klev) 
+!
+!****************************************************************************************    
+
+    CALL coefkz(nsrf, knon, ypaprs, ypplay, &
+         ksta, ksta_ter, &
+         yts, yu, yv, yt, yq, &
+         yqsurf, &
+         ycoefm, ycoefh)
+  
+!****************************************************************************************
+! Eventuelle recalcule des coeffeicients de diffusion turbulent de l'atmosphere : 
+! ycoefm(:,2:klev), ycoefh(:,2:klev) 
+!
+!****************************************************************************************
+
+    IF (iflag_pbl.EQ.1) THEN
+       CALL coefkz2(nsrf, knon, ypaprs, ypplay, yt, &
+            ycoefm0, ycoefh0)
+
+       DO k = 2, klev
+          DO i = 1, knon
+             ycoefm(i,k) = MAX(ycoefm(i,k),ycoefm0(i,k))
+             ycoefh(i,k) = MAX(ycoefh(i,k),ycoefh0(i,k))
+          ENDDO
+       ENDDO
+    ENDIF
+
+  
+!****************************************************************************************  
+! Calcul d'une diffusion minimale pour les conditions tres stables
+!
+!****************************************************************************************
+    IF (ok_kzmin) THEN
+       CALL coefkzmin(knon,ypaprs,ypplay,yu,yv,yt,yq,ycdragm, &
+            ycoefm0,ycoefh0)
+       
+       DO k = 2, klev
+          DO i = 1, knon
+             ycoefm(i,k) = MAX(ycoefm(i,k),ycoefm0(i,k))
+             ycoefh(i,k) = MAX(ycoefh(i,k),ycoefh0(i,k))
+          ENDDO
+       ENDDO
+       
+    ENDIF
+
+  
+!****************************************************************************************
+! MELLOR ET YAMADA adapte a Mars Richard Fournier et Frederic Hourdin
+! 
+!****************************************************************************************
+
+    IF (iflag_pbl.GE.3) THEN
+
+       yzlay(1:knon,1)= &
+            RD*yt(1:knon,1)/(0.5*(ypaprs(1:knon,1)+ypplay(1:knon,1))) &
+            *(ypaprs(1:knon,1)-ypplay(1:knon,1))/RG
+       DO k=2,klev
+          DO i = 1, knon
+             yzlay(i,k)= &
+                  yzlay(i,k-1)+RD*0.5*(yt(i,k-1)+yt(i,k)) &
+                  /ypaprs(i,k)*(ypplay(i,k-1)-ypplay(i,k))/RG
+          END DO
+       END DO
+
+       DO k=1,klev
+          DO i = 1, knon
+             yteta(i,k)= &
+                  yt(i,k)*(ypaprs(i,1)/ypplay(i,k))**RKAPPA &
+                  *(1.+0.61*yq(i,k))
+          END DO
+       END DO
+
+       yzlev(1:knon,1)=0.
+       yzlev(1:knon,klev+1)=2.*yzlay(1:knon,klev)-yzlay(1:knon,klev-1)
+       DO k=2,klev
+          DO i = 1, knon
+             yzlev(i,k)=0.5*(yzlay(i,k)+yzlay(i,k-1))
+          END DO
+       END DO
+
+!!$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!$! Pour memoire, le papier Hourdin et al. 2002 a ete obtenur avec un
+!!$! bug sur les coefficients de surface :
+!!$!          ycdragh(1:knon) = ycoefm(1:knon,1)
+!!$!          ycdragm(1:knon) = ycoefh(1:knon,1)
+!!$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       CALL ustarhb(knon,yu,yv,ycdragm, yustar)
+     
+       IF (prt_level > 9) THEN
+          WRITE(lunout,*) 'USTAR = ',yustar
+       ENDIF
+         
+!   iflag_pbl peut etre utilise comme longuer de melange
+       IF (iflag_pbl.GE.31) THEN
+          CALL vdif_kcay(knon,dtime,RG,RD,ypaprs,yt, &
+               yzlev,yzlay,yu,yv,yteta, &
+               ycdragm,yq2,q2diag,ykmm,ykmn,yustar, &
+               iflag_pbl)
+       ELSE IF (iflag_pbl<20) THEN
+          CALL yamada4(ni,nsrf,knon,dtime,RG,RD,ypaprs,yt, &
+               yzlev,yzlay,yu,yv,yteta, &
+               ycdragm,yq2,ykmm,ykmn,ykmq,yustar, &
+               iflag_pbl)
+       ENDIF
+       
+       ycoefm(1:knon,2:klev)=ykmm(1:knon,2:klev)
+       ycoefh(1:knon,2:klev)=ykmn(1:knon,2:klev)
+                
+    ENDIF !(iflag_pbl.ge.3)
+
+  END SUBROUTINE coef_diff_turb
+!
+!****************************************************************************************
+!
+  SUBROUTINE coefkz(nsrf, knon, paprs, pplay, &
+       ksta, ksta_ter, &
+       ts, &
+       u,v,t,q, &
+       qsurf, &
+       pcfm, pcfh)
+    
+    USE dimphy
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: prt_level, lunout
+  
+!======================================================================
+! Auteur(s) F. Hourdin, M. Forichon, Z.X. Li (LMD/CNRS) date: 19930922
+!           (une version strictement identique a l'ancien modele)
+! Objet: calculer le coefficient du frottement du sol (Cdrag) et les
+!        coefficients d'echange turbulent dans l'atmosphere.
+! Arguments:
+! nsrf-----input-I- indicateur de la nature du sol
+! knon-----input-I- nombre de points a traiter
+! paprs----input-R- pregssion a chaque intercouche (en Pa)
+! pplay----input-R- pression au milieu de chaque couche (en Pa)
+! ts-------input-R- temperature du sol (en Kelvin)
+! u--------input-R- vitesse u
+! v--------input-R- vitesse v
+! t--------input-R- temperature (K)
+! q--------input-R- vapeur d'eau (kg/kg)
+!
+! pcfm-----output-R- coefficients a calculer (vitesse)
+! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
+!======================================================================
+    INCLUDE "YOETHF.h"
+    INCLUDE "YOMCST.h"
+    INCLUDE "FCTTRE.h"
+    INCLUDE "compbl.h"
+!
+! Arguments:
+!
+    INTEGER, INTENT(IN)                      :: knon, nsrf
+    REAL, INTENT(IN)                         :: ksta, ksta_ter
+    REAL, DIMENSION(klon), INTENT(IN)        :: ts
+    REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+    REAL, DIMENSION(klon,klev), INTENT(IN)   :: u, v, t, q
+    REAL, DIMENSION(klon), INTENT(IN)        :: qsurf
+
+    REAL, DIMENSION(klon,klev), INTENT(OUT)  :: pcfm, pcfh
+
+!
+! Local variables:
+!
+    INTEGER, DIMENSION(klon)    :: itop ! numero de couche du sommet de la couche limite
+!
+! Quelques constantes et options:
+!
+    REAL, PARAMETER :: cepdu2=0.1**2
+    REAL, PARAMETER :: CKAP=0.4
+    REAL, PARAMETER :: cb=5.0
+    REAL, PARAMETER :: cc=5.0
+    REAL, PARAMETER :: cd=5.0
+    REAL, PARAMETER :: clam=160.0
+    REAL, PARAMETER :: ratqs=0.05 ! largeur de distribution de vapeur d'eau
+    LOGICAL, PARAMETER :: richum=.TRUE. ! utilise le nombre de Richardson humide
+    REAL, PARAMETER :: ric=0.4 ! nombre de Richardson critique
+    REAL, PARAMETER :: prandtl=0.4
+    REAL kstable ! diffusion minimale (situation stable)
+    ! GKtest
+    ! PARAMETER (kstable=1.0e-10)
+!IM: 261103     REAL kstable_ter, kstable_sinon
+!IM: 211003 cf GK   PARAMETER (kstable_ter = 1.0e-6)
+!IM: 261103     PARAMETER (kstable_ter = 1.0e-8)
+!IM: 261103   PARAMETER (kstable_ter = 1.0e-10)
+!IM: 261103   PARAMETER (kstable_sinon = 1.0e-10)
+    ! fin GKtest
+    REAL, PARAMETER :: mixlen=35.0 ! constante controlant longueur de melange
+    INTEGER isommet ! le sommet de la couche limite
+    LOGICAL, PARAMETER :: tvirtu=.TRUE. ! calculer Ri d'une maniere plus performante
+    LOGICAL, PARAMETER :: opt_ec=.FALSE.! formule du Centre Europeen dans l'atmosphere
+
+!
+! Variables locales:
+    INTEGER i, k !IM 120704
+    REAL zgeop(klon,klev)
+    REAL zmgeom(klon)
+    REAL zri(klon)
+    REAL zl2(klon)
+    REAL zdphi, zdu2, ztvd, ztvu, zcdn
+    REAL zscf
+    REAL zt, zq, zdelta, zcvm5, zcor, zqs, zfr, zdqs
+    REAL z2geomf, zalh2, zalm2, zscfh, zscfm
+    REAL, PARAMETER :: t_coup=273.15
+    LOGICAL, PARAMETER :: check=.FALSE.
+!
+! contre-gradient pour la chaleur sensible: Kelvin/metre
+    REAL gamt(2:klev)
+
+    LOGICAL, SAVE :: appel1er=.TRUE.
+    !$OMP THREADPRIVATE(appel1er)
+!
+! Fonctions thermodynamiques et fonctions d'instabilite
+    REAL fsta, fins, x
+
+    fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x))
+    fins(x) = SQRT(1.0-18.0*x)
+
+    isommet=klev
+      
+    IF (appel1er) THEN
+       IF (prt_level > 9) THEN
+          WRITE(lunout,*)'coefkz, opt_ec:', opt_ec
+          WRITE(lunout,*)'coefkz, richum:', richum
+          IF (richum) WRITE(lunout,*)'coefkz, ratqs:', ratqs
+          WRITE(lunout,*)'coefkz, isommet:', isommet
+          WRITE(lunout,*)'coefkz, tvirtu:', tvirtu
+          appel1er = .FALSE.
+       ENDIF
+    ENDIF
+!
+! Initialiser les sorties
+!
+    DO k = 1, klev
+       DO i = 1, knon
+          pcfm(i,k) = 0.0
+          pcfh(i,k) = 0.0
+       ENDDO
+    ENDDO
+    DO i = 1, knon
+       itop(i) = 0
+    ENDDO
+    
+!
+! Prescrire la valeur de contre-gradient
+!
+    IF (iflag_pbl.EQ.1) THEN
+       DO k = 3, klev
+          gamt(k) = -1.0E-03
+       ENDDO
+       gamt(2) = -2.5E-03
+    ELSE
+       DO k = 2, klev
+          gamt(k) = 0.0
+       ENDDO
+    ENDIF
+!IM cf JLD/ GKtest
+    IF ( nsrf .NE. is_oce ) THEN
+!IM 261103     kstable = kstable_ter
+       kstable = ksta_ter
+    ELSE
+!IM 261103     kstable = kstable_sinon
+       kstable = ksta
+    ENDIF
+!IM cf JLD/ GKtest fin
+
+!
+! Calculer les geopotentiels de chaque couche
+!
+    DO i = 1, knon
+       zgeop(i,1) = RD * t(i,1) / (0.5*(paprs(i,1)+pplay(i,1))) &
+            * (paprs(i,1)-pplay(i,1))
+    ENDDO
+    DO k = 2, klev
+       DO i = 1, knon
+          zgeop(i,k) = zgeop(i,k-1) &
+               + RD * 0.5*(t(i,k-1)+t(i,k)) / paprs(i,k) &
+               * (pplay(i,k-1)-pplay(i,k))
+       ENDDO
+    ENDDO
+
+!
+! Calculer les coefficients turbulents dans l'atmosphere
+!
+    DO i = 1, knon
+       itop(i) = isommet
+    ENDDO
+
+
+    DO k = 2, isommet
+       DO i = 1, knon
+          zdu2=MAX(cepdu2,(u(i,k)-u(i,k-1))**2 &
+               +(v(i,k)-v(i,k-1))**2)
+          zmgeom(i)=zgeop(i,k)-zgeop(i,k-1)
+          zdphi =zmgeom(i) / 2.0
+          zt = (t(i,k)+t(i,k-1)) * 0.5
+          zq = (q(i,k)+q(i,k-1)) * 0.5
+
+!
+! Calculer Qs et dQs/dT:
+!
+          IF (thermcep) THEN
+             zdelta = MAX(0.,SIGN(1.,RTT-zt))
+             zcvm5 = R5LES*RLVTT/RCPD/(1.0+RVTMP2*zq)*(1.-zdelta) &
+                  + R5IES*RLSTT/RCPD/(1.0+RVTMP2*zq)*zdelta
+             zqs = R2ES * FOEEW(zt,zdelta) / pplay(i,k)
+             zqs = MIN(0.5,zqs)
+             zcor = 1./(1.-RETV*zqs)
+             zqs = zqs*zcor
+             zdqs = FOEDE(zt,zdelta,zcvm5,zqs,zcor)
+          ELSE
+             IF (zt .LT. t_coup) THEN
+                zqs = qsats(zt) / pplay(i,k)
+                zdqs = dqsats(zt,zqs)
+             ELSE
+                zqs = qsatl(zt) / pplay(i,k)
+                zdqs = dqsatl(zt,zqs)
+             ENDIF
+          ENDIF
+!
+!           calculer la fraction nuageuse (processus humide):
+!
+          if (zq /= 0.) then
+             zfr = (zq+ratqs*zq-zqs) / (2.0*ratqs*zq)
+          else
+             zfr = 0.
+          end if
+          zfr = MAX(0.0,MIN(1.0,zfr))
+          IF (.NOT.richum) zfr = 0.0
+!
+!           calculer le nombre de Richardson:
+!
+          IF (tvirtu) THEN
+             ztvd =( t(i,k) &
+                  + zdphi/RCPD/(1.+RVTMP2*zq) &
+                  *( (1.-zfr) + zfr*(1.+RLVTT*zqs/RD/zt)/(1.+zdqs) ) &
+                  )*(1.+RETV*q(i,k))
+             ztvu =( t(i,k-1) &
+                  - zdphi/RCPD/(1.+RVTMP2*zq) &
+                  *( (1.-zfr) + zfr*(1.+RLVTT*zqs/RD/zt)/(1.+zdqs) ) &
+                  )*(1.+RETV*q(i,k-1))
+             zri(i) =zmgeom(i)*(ztvd-ztvu)/(zdu2*0.5*(ztvd+ztvu))
+             zri(i) = zri(i) &
+                  + zmgeom(i)*zmgeom(i)/RG*gamt(k) &
+                  *(paprs(i,k)/101325.0)**RKAPPA &
+                  /(zdu2*0.5*(ztvd+ztvu))
+
+          ELSE ! calcul de Ridchardson compatible LMD5
+
+             zri(i) =(RCPD*(t(i,k)-t(i,k-1)) &
+                  -RD*0.5*(t(i,k)+t(i,k-1))/paprs(i,k) &
+                  *(pplay(i,k)-pplay(i,k-1)) &
+                  )*zmgeom(i)/(zdu2*0.5*RCPD*(t(i,k-1)+t(i,k)))
+             zri(i) = zri(i) + &
+                  zmgeom(i)*zmgeom(i)*gamt(k)/RG &
+                  *(paprs(i,k)/101325.0)**RKAPPA &
+                  /(zdu2*0.5*(t(i,k-1)+t(i,k)))
+          ENDIF
+!
+!           finalement, les coefficients d'echange sont obtenus:
+!
+          zcdn=SQRT(zdu2) / zmgeom(i) * RG
+
+          IF (opt_ec) THEN
+             z2geomf=zgeop(i,k-1)+zgeop(i,k)
+             zalm2=(0.5*ckap/RG*z2geomf &
+                  /(1.+0.5*ckap/rg/clam*z2geomf))**2
+             zalh2=(0.5*ckap/rg*z2geomf &
+                  /(1.+0.5*ckap/RG/(clam*SQRT(1.5*cd))*z2geomf))**2
+             IF (zri(i).LT.0.0) THEN  ! situation instable
+                zscf = ((zgeop(i,k)/zgeop(i,k-1))**(1./3.)-1.)**3 &
+                     / (zmgeom(i)/RG)**3 / (zgeop(i,k-1)/RG)
+                zscf = SQRT(-zri(i)*zscf)
+                zscfm = 1.0 / (1.0+3.0*cb*cc*zalm2*zscf)
+                zscfh = 1.0 / (1.0+3.0*cb*cc*zalh2*zscf)
+                pcfm(i,k)=zcdn*zalm2*(1.-2.0*cb*zri(i)*zscfm)
+                pcfh(i,k)=zcdn*zalh2*(1.-3.0*cb*zri(i)*zscfh)
+             ELSE ! situation stable
+                zscf=SQRT(1.+cd*zri(i))
+                pcfm(i,k)=zcdn*zalm2/(1.+2.0*cb*zri(i)/zscf)
+                pcfh(i,k)=zcdn*zalh2/(1.+3.0*cb*zri(i)*zscf)
+             ENDIF
+          ELSE
+             zl2(i)=(mixlen*MAX(0.0,(paprs(i,k)-paprs(i,itop(i)+1)) &
+                  /(paprs(i,2)-paprs(i,itop(i)+1)) ))**2
+             pcfm(i,k)=SQRT(MAX(zcdn*zcdn*(ric-zri(i))/ric, kstable))
+             pcfm(i,k)= zl2(i)* pcfm(i,k)
+             pcfh(i,k) = pcfm(i,k) /prandtl ! h et m different
+          ENDIF
+       ENDDO
+    ENDDO
+
+!
+! Au-dela du sommet, pas de diffusion turbulente:
+!
+    DO i = 1, knon
+       IF (itop(i)+1 .LE. klev) THEN
+          DO k = itop(i)+1, klev
+             pcfh(i,k) = 0.0
+             pcfm(i,k) = 0.0
+          ENDDO
+       ENDIF
+    ENDDO
+      
+  END SUBROUTINE coefkz
+!
+!****************************************************************************************
+!
+  SUBROUTINE coefkz2(nsrf, knon, paprs, pplay,t, &
+       pcfm, pcfh)
+
+    USE dimphy
+    USE indice_sol_mod
+
+!======================================================================
+! J'introduit un peu de diffusion sauf dans les endroits
+! ou une forte inversion est presente
+! On peut dire qu'il represente la convection peu profonde
+!
+! Arguments:
+! nsrf-----input-I- indicateur de la nature du sol
+! knon-----input-I- nombre de points a traiter
+! paprs----input-R- pression a chaque intercouche (en Pa)
+! pplay----input-R- pression au milieu de chaque couche (en Pa)
+! t--------input-R- temperature (K)
+!
+! pcfm-----output-R- coefficients a calculer (vitesse)
+! pcfh-----output-R- coefficients a calculer (chaleur et humidite)
+!======================================================================
+!
+! Arguments:
+!
+    INTEGER, INTENT(IN)                       :: knon, nsrf
+    REAL, DIMENSION(klon, klev+1), INTENT(IN) ::  paprs
+    REAL, DIMENSION(klon, klev), INTENT(IN)   ::  pplay
+    REAL, DIMENSION(klon, klev), INTENT(IN)   :: t(klon,klev)
+    
+    REAL, DIMENSION(klon, klev), INTENT(OUT)  :: pcfm, pcfh
+!
+! Quelques constantes et options:
+!
+    REAL, PARAMETER :: prandtl=0.4
+    REAL, PARAMETER :: kstable=0.002
+!   REAL, PARAMETER :: kstable=0.001
+    REAL, PARAMETER :: mixlen=35.0 ! constante controlant longueur de melange
+    REAL, PARAMETER :: seuil=-0.02 ! au-dela l'inversion est consideree trop faible
+!    PARAMETER (seuil=-0.04)
+!    PARAMETER (seuil=-0.06)
+!    PARAMETER (seuil=-0.09)
+
+!
+! Variables locales:
+!
+    INTEGER i, k, invb(knon)
+    REAL zl2(knon)
+    REAL zdthmin(knon), zdthdp
+
+    INCLUDE "YOMCST.h"
+!
+! Initialiser les sorties
+!
+    DO k = 1, klev
+       DO i = 1, knon
+          pcfm(i,k) = 0.0
+          pcfh(i,k) = 0.0
+       ENDDO
+    ENDDO
+
+!
+! Chercher la zone d'inversion forte
+!
+    DO i = 1, knon
+       invb(i) = klev
+       zdthmin(i)=0.0
+    ENDDO
+    DO k = 2, klev/2-1
+       DO i = 1, knon
+          zdthdp = (t(i,k)-t(i,k+1))/(pplay(i,k)-pplay(i,k+1)) &
+               - RD * 0.5*(t(i,k)+t(i,k+1))/RCPD/paprs(i,k+1)
+          zdthdp = zdthdp * 100.0
+          IF (pplay(i,k).GT.0.8*paprs(i,1) .AND. &
+               zdthdp.LT.zdthmin(i) ) THEN
+             zdthmin(i) = zdthdp
+             invb(i) = k
+          ENDIF
+       ENDDO
+    ENDDO
+
+!
+! Introduire une diffusion:
+!
+    IF ( nsrf.EQ.is_oce ) THEN
+       DO k = 2, klev
+          DO i = 1, knon
+!IM cf FH/GK   IF ( (nsrf.NE.is_oce) .OR.  ! si ce n'est pas sur l'ocean
+!IM cf FH/GK  .     (invb(i).EQ.klev) .OR. ! s'il n'y a pas d'inversion
+      !IM cf JLD/ GKtest TERkz2
+      ! IF ( (nsrf.EQ.is_ter) .OR.  ! si on est sur la terre
+      ! fin GKtest
+
+
+! s'il n'y a pas d'inversion ou si l'inversion est trop faible
+!          IF ( (nsrf.EQ.is_oce) .AND. &
+             IF ( (invb(i).EQ.klev) .OR. (zdthmin(i).GT.seuil) ) THEN 
+                zl2(i)=(mixlen*MAX(0.0,(paprs(i,k)-paprs(i,klev+1)) &
+                     /(paprs(i,2)-paprs(i,klev+1)) ))**2
+                pcfm(i,k)= zl2(i)* kstable
+                pcfh(i,k) = pcfm(i,k) /prandtl ! h et m different
+             ENDIF
+          ENDDO
+       ENDDO
+    ENDIF
+
+  END SUBROUTINE coefkz2
+!
+!****************************************************************************************
+!
+END MODULE coef_diff_turb_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coefcdrag.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coefcdrag.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coefcdrag.F90	(revision 3330)
@@ -0,0 +1,167 @@
+!
+!
+!
+      SUBROUTINE coefcdrag (klon, knon, nsrf, zxli, &
+                            speed, t, q, zgeop, psol, &
+                            ts, qsurf, rugos, okri, ri1, &
+                            cdram, cdrah, cdran, zri1, pref)
+
+      USE indice_sol_mod
+
+      IMPLICIT none
+!-------------------------------------------------------------------------
+! Objet : calcul des cdrags pour le moment (cdram) et les flux de chaleur 
+!         sensible et latente (cdrah), du cdrag neutre (cdran), 
+!         du nombre de Richardson entre la surface et le niveau de reference 
+!         (zri1) et de la pression au niveau de reference (pref).    
+!
+! I. Musat, 01.07.2002
+!-------------------------------------------------------------------------
+!
+! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude)
+! knon----input-I- nombre de points pour un type de surface
+! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90
+! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li
+! speed---input-R- module du vent au 1er niveau du modele
+! t-------input-R- temperature de l'air au 1er niveau du modele
+! q-------input-R- humidite de l'air au 1er niveau du modele
+! zgeop---input-R- geopotentiel au 1er niveau du modele
+! psol----input-R- pression au sol 
+! ts------input-R- temperature de l'air a la surface
+! qsurf---input-R- humidite de l'air a la surface
+! rugos---input-R- rugosite
+! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce 
+!                  et zref par rapport au Ri entre la sfce et la 1ere couche
+! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche
+!
+! cdram--output-R- cdrag pour le moment
+! cdrah--output-R- cdrag pour les flux de chaleur latente et sensible
+! cdran--output-R- cdrag neutre
+! zri1---output-R- nb. Richardson entre la surface et la couche zgeop/RG
+! pref---output-R- pression au niveau zgeop/RG
+!
+      INTEGER, intent(in) :: klon, knon, nsrf
+      LOGICAL, intent(in) :: zxli 
+      REAL, dimension(klon), intent(in) :: speed, t, q, zgeop, psol
+      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, ri1 
+      LOGICAL, intent(in) :: okri    
+!
+      REAL, dimension(klon), intent(out) :: cdram, cdrah, cdran, zri1, pref
+!-------------------------------------------------------------------------
+!
+      include "YOMCST.h"
+      include "YOETHF.h"
+      INCLUDE "clesphys.h"
+! Quelques constantes :
+      REAL, parameter :: RKAR=0.40, CB=5.0, CC=5.0, CD=5.0, cepdu2=(0.1)**2
+!
+! Variables locales :
+      INTEGER :: i
+      REAL, dimension(klon) :: zdu2, zdphi, ztsolv, ztvd
+      REAL, dimension(klon) :: zscf, friv, frih, zucf, zcr
+      REAL, dimension(klon) :: zcfm1, zcfh1
+      REAL, dimension(klon) :: zcfm2, zcfh2
+      REAL, dimension(klon) :: trm0, trm1
+
+  CHARACTER (LEN=80) :: abort_message
+  CHARACTER (LEN=20) :: modname = 'coefcdra'
+
+
+!
+
+
+!-------------------------------------------------------------------------
+      REAL :: fsta, fins, x
+      fsta(x) = 1.0 / (1.0+10.0*x*(1+8.0*x))
+      fins(x) = SQRT(1.0-18.0*x)
+!-------------------------------------------------------------------------
+
+  abort_message='obsolete, remplace par cdrag, use at you own risk'
+  CALL abort_physic(modname,abort_message,1)
+
+!
+      DO i = 1, knon
+!
+       zdphi(i) = zgeop(i)
+       zdu2(i) = max(cepdu2,speed(i)**2)
+       pref(i) = exp(log(psol(i)) - zdphi(i)/(RD*t(i)* &
+                 (1.+ RETV * max(q(i),0.0))))
+       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)))
+       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)
+       zri1(i) = zdphi(i)*(ztvd(i)-ztsolv(i))/(zdu2(i)*ztvd(i))
+!
+! on teste zri1 par rapport au Richardson de la 1ere couche ri1 
+!
+!IM +++
+       IF(1.EQ.0) THEN
+       IF (okri) THEN
+         IF (ri1(i).GE.0.0.AND.zri1(i).LT.0.0) THEN
+           zri1(i) = ri1(i)
+         ELSE IF(ri1(i).LT.0.0.AND.zri1(i).GE.0.0) THEN
+           zri1(i) = ri1(i)
+         ENDIF 
+       ENDIF
+       ENDIF
+!IM ---
+! 
+       cdran(i) = (RKAR/log(1.+zdphi(i)/(RG*rugos(i))))**2
+
+       IF (zri1(i) .ge. 0.) THEN 
+!
+! situation stable : pour eviter les inconsistances dans les cas 
+! tres stables on limite zri1 a 20. cf Hess et al. (1995)
+!
+         zri1(i) = min(20.,zri1(i))
+!
+         IF (.NOT.zxli) THEN
+           zscf(i) = SQRT(1.+CD*ABS(zri1(i)))
+           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)), f_ri_cd_min )
+!           zcfh1(i) = cdran(i) * frih(i)
+           zcfh1(i) = f_cdrag_ter*cdran(i) * frih(i)
+           IF(nsrf.EQ.is_oce) zcfh1(i)=f_cdrag_oce*cdran(i)*frih(i)
+           cdram(i) = zcfm1(i)
+           cdrah(i) = zcfh1(i)
+         ELSE
+           cdram(i) = cdran(i)* fsta(zri1(i))
+           cdrah(i) = cdran(i)* fsta(zri1(i))
+         ENDIF
+!
+       ELSE
+! 
+! situation instable
+!
+         IF (.NOT.zxli) THEN
+           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)),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)
+         ELSE
+           cdram(i) = cdran(i)* fins(zri1(i))
+           cdrah(i) = cdran(i)* fins(zri1(i))
+         ENDIF
+!
+! cdrah sur l'ocean cf. Miller et al. (1992)
+!
+         zcr(i) = (0.0016/(cdran(i)*SQRT(zdu2(i))))*ABS(ztvd(i)-ztsolv(i)) &
+               **(1./3.)
+!         IF (nsrf.EQ.is_oce) cdrah(i) = cdran(i)*(1.0+zcr(i)**1.25) &
+!                  **(1./1.25)
+         IF (nsrf.EQ.is_oce) cdrah(i)=f_cdrag_oce*cdran(i)*(1.0+zcr(i)**1.25) &
+                  **(1./1.25)
+       ENDIF
+!
+      END DO
+      RETURN 
+      END SUBROUTINE coefcdrag
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coefkzmin.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coefkzmin.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/coefkzmin.F90	(revision 3330)
@@ -0,0 +1,132 @@
+
+SUBROUTINE coefkzmin(knon, ypaprs, ypplay, yu, yv, yt, yq, ycdragm, km, kn)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+
+  ! .......................................................................
+  ! Entrees modifies en attendant une version ou les zlev, et zlay soient
+  ! disponibles.
+
+  REAL ycdragm(klon)
+
+  REAL yu(klon, klev), yv(klon, klev)
+  REAL yt(klon, klev), yq(klon, klev)
+  REAL ypaprs(klon, klev+1), ypplay(klon, klev)
+  REAL yustar(klon)
+  REAL yzlay(klon, klev), yzlev(klon, klev+1), yteta(klon, klev)
+
+  INTEGER i
+
+  ! .......................................................................
+
+  ! En entree :
+  ! -----------
+
+  ! zlev : altitude a chaque niveau (interface inferieure de la couche
+  ! de meme indice)
+  ! ustar : u*
+
+  ! teta : temperature potentielle au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+
+  ! en sortier :
+  ! ------------
+
+  ! km : diffusivite turbulente de quantite de mouvement (au bas de chaque
+  ! couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  ! kn : diffusivite turbulente des scalaires (au bas de chaque couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+
+  ! .......................................................................
+
+  REAL ustar(klon)
+  REAL kmin, qmin, pblhmin(klon), coriol(klon)
+  REAL zlev(klon, klev+1)
+  REAL teta(klon, klev)
+
+  REAL km(klon, klev)
+  REAL kn(klon, klev)
+  INTEGER knon
+
+
+  INTEGER nlay, nlev
+  INTEGER ig, k
+
+  REAL, PARAMETER :: kap = 0.4
+
+  nlay = klev
+  nlev = klev + 1
+  ! .......................................................................
+  ! en attendant une version ou les zlev, et zlay soient
+  ! disponibles.
+  ! Debut de la partie qui doit etre unclue a terme dans clmain.
+
+  DO i = 1, knon
+    yzlay(i, 1) = rd*yt(i, 1)/(0.5*(ypaprs(i,1)+ypplay(i, &
+      1)))*(ypaprs(i,1)-ypplay(i,1))/rg
+  END DO
+  DO k = 2, klev
+    DO i = 1, knon
+      yzlay(i, k) = yzlay(i, k-1) + rd*0.5*(yt(i,k-1)+yt(i,k))/ypaprs(i, k)*( &
+        ypplay(i,k-1)-ypplay(i,k))/rg
+    END DO
+  END DO
+  DO k = 1, klev
+    DO i = 1, knon
+      ! ATTENTION:on passe la temperature potentielle virt. pour le calcul de
+      ! K
+      yteta(i, k) = yt(i, k)*(ypaprs(i,1)/ypplay(i,k))**rkappa* &
+        (1.+0.61*yq(i,k))
+    END DO
+  END DO
+  DO i = 1, knon
+    yzlev(i, 1) = 0.
+    yzlev(i, klev+1) = 2.*yzlay(i, klev) - yzlay(i, klev-1)
+  END DO
+  DO k = 2, klev
+    DO i = 1, knon
+      yzlev(i, k) = 0.5*(yzlay(i,k)+yzlay(i,k-1))
+    END DO
+  END DO
+
+  yustar(1:knon) = sqrt(ycdragm(1:knon)*(yu(1:knon,1)*yu(1:knon,1)+yv(1:knon, &
+    1)*yv(1:knon,1)))
+
+  ! Fin de la partie qui doit etre unclue a terme dans clmain.
+
+  ! ette routine est ecrite pour avoir en entree ustar, teta et zlev
+  ! Ici, on a inclut le calcul de ces trois variables dans la routine
+  ! coefkzmin en attendant une nouvelle version de la couche limite
+  ! ou ces variables seront disponibles.
+
+  ! Debut de la routine coefkzmin proprement dite.
+
+  ustar = yustar
+  teta = yteta
+  zlev = yzlev
+
+  DO ig = 1, knon
+    coriol(ig) = 1.E-4
+    pblhmin(ig) = 0.07*ustar(ig)/max(abs(coriol(ig)), 2.546E-5)
+  END DO
+
+  DO k = 2, klev
+    DO ig = 1, knon
+      IF (teta(ig,2)>teta(ig,1)) THEN
+        qmin = ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
+        kmin = kap*zlev(ig, k)*qmin
+      ELSE
+        kmin = 0. ! kmin n'est utilise que pour les SL stables.
+      END IF
+      kn(ig, k) = kmin
+      km(ig, k) = kmin
+    END DO
+  END DO
+
+
+  RETURN
+END SUBROUTINE coefkzmin
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/compbl.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/compbl.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/compbl.h	(revision 3330)
@@ -0,0 +1,10 @@
+      !
+      ! $Header$
+      !
+!jyg+al1<
+!!      integer iflag_pbl,iflag_pbl_split
+!!      common/compbl/iflag_pbl,iflag_pbl_split
+      integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw
+      common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw
+!>jyg+al1
+!$OMP THREADPRIVATE(/compbl/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/comsoil.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/comsoil.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/comsoil.h	(revision 3330)
@@ -0,0 +1,7 @@
+!
+! $Header$
+!
+
+      common /comsoil/inertie_sol,inertie_sno,inertie_ice
+      real inertie_sol,inertie_sno,inertie_ice
+!$OMP THREADPRIVATE(/comsoil/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conccm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conccm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conccm.F90	(revision 3330)
@@ -0,0 +1,818 @@
+
+! $Header$
+
+SUBROUTINE conccm(dtime, paprs, pplay, t, q, conv_q, d_t, d_q, rain, snow, &
+    kbascm, ktopcm)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: le 14 mars 1996
+  ! Objet: Schema simple (avec flux de masse) pour la convection
+  ! (schema standard du modele NCAR CCM2)
+  ! ======================================================================
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+  ! Entree:
+  REAL dtime ! pas d'integration
+  REAL paprs(klon, klev+1) ! pression inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (g/g)
+  REAL conv_q(klon, klev) ! taux de convergence humidite (g/g/s)
+  ! Sortie:
+  REAL d_t(klon, klev) ! incrementation temperature
+  REAL d_q(klon, klev) ! incrementation vapeur
+  REAL rain(klon) ! pluie (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  INTEGER kbascm(klon) ! niveau du bas de convection
+  INTEGER ktopcm(klon) ! niveau du haut de convection
+
+  REAL pt(klon, klev)
+  REAL pq(klon, klev)
+  REAL pres(klon, klev)
+  REAL dp(klon, klev)
+  REAL zgeom(klon, klev)
+  REAL cmfprs(klon)
+  REAL cmfprt(klon)
+  INTEGER ntop(klon)
+  INTEGER nbas(klon)
+  INTEGER i, k
+  REAL zlvdcp, zlsdcp, zdelta, zz, za, zb
+
+  LOGICAL usekuo ! utiliser convection profonde (schema Kuo)
+  PARAMETER (usekuo=.TRUE.)
+
+  REAL d_t_bis(klon, klev)
+  REAL d_q_bis(klon, klev)
+  REAL rain_bis(klon)
+  REAL snow_bis(klon)
+  INTEGER ibas_bis(klon)
+  INTEGER itop_bis(klon)
+  REAL d_ql_bis(klon, klev)
+  REAL rneb_bis(klon, klev)
+
+  ! initialiser les variables de sortie (pour securite)
+  DO i = 1, klon
+    rain(i) = 0.0
+    snow(i) = 0.0
+    kbascm(i) = 0
+    ktopcm(i) = 0
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+    END DO
+  END DO
+
+  ! preparer les variables d'entree (attention: l'ordre des niveaux
+  ! verticaux augmente du haut vers le bas)
+  DO k = 1, klev
+    DO i = 1, klon
+      pt(i, k) = t(i, klev-k+1)
+      pq(i, k) = q(i, klev-k+1)
+      pres(i, k) = pplay(i, klev-k+1)
+      dp(i, k) = paprs(i, klev+1-k) - paprs(i, klev+1-k+1)
+    END DO
+  END DO
+  DO i = 1, klon
+    zgeom(i, klev) = rd*t(i, 1)/(0.5*(paprs(i,1)+pplay(i, &
+      1)))*(paprs(i,1)-pplay(i,1))
+  END DO
+  DO k = 2, klev
+    DO i = 1, klon
+      zgeom(i, klev+1-k) = zgeom(i, klev+1-k+1) + rd*0.5*(t(i,k-1)+t(i,k))/ &
+        paprs(i, k)*(pplay(i,k-1)-pplay(i,k))
+    END DO
+  END DO
+
+  CALL cmfmca(dtime, pres, dp, zgeom, pt, pq, cmfprt, cmfprs, ntop, nbas)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_q(i, klev+1-k) = pq(i, k) - q(i, klev+1-k)
+      d_t(i, klev+1-k) = pt(i, k) - t(i, klev+1-k)
+    END DO
+  END DO
+
+  DO i = 1, klon
+    rain(i) = cmfprt(i)*rhoh2o
+    snow(i) = cmfprs(i)*rhoh2o
+    kbascm(i) = klev + 1 - nbas(i)
+    ktopcm(i) = klev + 1 - ntop(i)
+  END DO
+
+  IF (usekuo) THEN
+    CALL conkuo(dtime, paprs, pplay, t, q, conv_q, d_t_bis, d_q_bis, &
+      d_ql_bis, rneb_bis, rain_bis, snow_bis, ibas_bis, itop_bis)
+    DO k = 1, klev
+      DO i = 1, klon
+        d_t(i, k) = d_t(i, k) + d_t_bis(i, k)
+        d_q(i, k) = d_q(i, k) + d_q_bis(i, k)
+      END DO
+    END DO
+    DO i = 1, klon
+      rain(i) = rain(i) + rain_bis(i)
+      snow(i) = snow(i) + snow_bis(i)
+      kbascm(i) = min(kbascm(i), ibas_bis(i))
+      ktopcm(i) = max(ktopcm(i), itop_bis(i))
+    END DO
+    DO k = 1, klev ! eau liquide convective est
+      DO i = 1, klon ! dispersee dans l'air
+        zlvdcp = rlvtt/rcpd/(1.0+rvtmp2*q(i,k))
+        zlsdcp = rlstt/rcpd/(1.0+rvtmp2*q(i,k))
+        zdelta = max(0., sign(1.,rtt-t(i,k)))
+        zz = d_ql_bis(i, k) ! re-evap. de l'eau liquide
+        zb = max(0.0, zz)
+        za = -max(0.0, zz)*(zlvdcp*(1.-zdelta)+zlsdcp*zdelta)
+        d_t(i, k) = d_t(i, k) + za
+        d_q(i, k) = d_q(i, k) + zb
+      END DO
+    END DO
+  END IF
+
+  RETURN
+END SUBROUTINE conccm
+SUBROUTINE cmfmca(deltat, p, dp, gz, tb, shb, cmfprt, cmfprs, cnt, cnb)
+  USE dimphy
+  IMPLICIT NONE
+  ! -----------------------------------------------------------------------
+  ! Moist convective mass flux procedure:
+  ! If stratification is unstable to nonentraining parcel ascent,
+  ! complete an adjustment making use of a simple cloud model
+
+  ! Code generalized to allow specification of parcel ("updraft")
+  ! properties, as well as convective transport of an arbitrary
+  ! number of passive constituents (see cmrb array).
+  ! ----------------------------Code History-------------------------------
+  ! Original version:  J. J. Hack, March 22, 1990
+  ! Standardized:      J. Rosinski, June 1992
+  ! Reviewed:          J. Hack, G. Taylor, August 1992
+  ! Adaptation au LMD: Z.X. Li, mars 1996 (reference: Hack 1994,
+  ! J. Geophys. Res. vol 99, D3, 5551-5568). J'ai
+  ! introduit les constantes et les fonctions thermo-
+  ! dynamiques du Centre Europeen. J'ai elimine le
+  ! re-indicage du code en esperant que cela pourra
+  ! simplifier la lecture et la comprehension.
+  ! -----------------------------------------------------------------------
+  INTEGER pcnst ! nombre de traceurs passifs
+  PARAMETER (pcnst=1)
+  ! ------------------------------Arguments--------------------------------
+  ! Input arguments
+
+  REAL deltat ! time step (seconds)
+  REAL p(klon, klev) ! pressure
+  REAL dp(klon, klev) ! delta-p
+  REAL gz(klon, klev) ! geopotential (a partir du sol)
+
+  REAL thtap(klon) ! PBL perturbation theta
+  REAL shp(klon) ! PBL perturbation specific humidity
+  REAL pblh(klon) ! PBL height (provided by PBL routine)
+  REAL cmrp(klon, pcnst) ! constituent perturbations in PBL
+
+  ! Updated arguments:
+
+  REAL tb(klon, klev) ! temperature (t bar)
+  REAL shb(klon, klev) ! specific humidity (sh bar)
+  REAL cmrb(klon, klev, pcnst) ! constituent mixing ratios (cmr bar)
+
+  ! Output arguments
+
+  REAL cmfdt(klon, klev) ! dT/dt due to moist convection
+  REAL cmfdq(klon, klev) ! dq/dt due to moist convection
+  REAL cmfmc(klon, klev) ! moist convection cloud mass flux
+  REAL cmfdqr(klon, klev) ! dq/dt due to convective rainout
+  REAL cmfsl(klon, klev) ! convective lw static energy flux
+  REAL cmflq(klon, klev) ! convective total water flux
+  REAL cmfprt(klon) ! convective precipitation rate
+  REAL cmfprs(klon) ! convective snowfall rate
+  REAL qc(klon, klev) ! dq/dt due to rainout terms
+  INTEGER cnt(klon) ! top level of convective activity
+  INTEGER cnb(klon) ! bottom level of convective activity
+  ! ------------------------------Parameters-------------------------------
+  REAL c0 ! rain water autoconversion coefficient
+  PARAMETER (c0=1.0E-4)
+  REAL dzmin ! minimum convective depth for precipitation
+  PARAMETER (dzmin=0.0)
+  REAL betamn ! minimum overshoot parameter
+  PARAMETER (betamn=0.10)
+  REAL cmftau ! characteristic adjustment time scale
+  PARAMETER (cmftau=3600.)
+  INTEGER limcnv ! top interface level limit for convection
+  PARAMETER (limcnv=1)
+  REAL tpmax ! maximum acceptable t perturbation (degrees C)
+  PARAMETER (tpmax=1.50)
+  REAL shpmax ! maximum acceptable q perturbation (g/g)
+  PARAMETER (shpmax=1.50E-3)
+  REAL tiny ! arbitrary small num used in transport estimates
+  PARAMETER (tiny=1.0E-36)
+  REAL eps ! convergence criteria (machine dependent)
+  PARAMETER (eps=1.0E-13)
+  REAL tmelt ! freezing point of water(req'd for rain vs snow)
+  PARAMETER (tmelt=273.15)
+  REAL ssfac ! supersaturation bound (detrained air)
+  PARAMETER (ssfac=1.001)
+
+  ! ---------------------------Local workspace-----------------------------
+  REAL gam(klon, klev) ! L/cp (d(qsat)/dT)
+  REAL sb(klon, klev) ! dry static energy (s bar)
+  REAL hb(klon, klev) ! moist static energy (h bar)
+  REAL shbs(klon, klev) ! sat. specific humidity (sh bar star)
+  REAL hbs(klon, klev) ! sat. moist static energy (h bar star)
+  REAL shbh(klon, klev+1) ! specific humidity on interfaces
+  REAL sbh(klon, klev+1) ! s bar on interfaces
+  REAL hbh(klon, klev+1) ! h bar on interfaces
+  REAL cmrh(klon, klev+1) ! interface constituent mixing ratio
+  REAL prec(klon) ! instantaneous total precipitation
+  REAL dzcld(klon) ! depth of convective layer (m)
+  REAL beta(klon) ! overshoot parameter (fraction)
+  REAL betamx ! local maximum on overshoot
+  REAL eta(klon) ! convective mass flux (kg/m^2 s)
+  REAL etagdt ! eta*grav*deltat
+  REAL cldwtr(klon) ! cloud water (mass)
+  REAL rnwtr(klon) ! rain water  (mass)
+  REAL sc(klon) ! dry static energy   ("in-cloud")
+  REAL shc(klon) ! specific humidity   ("in-cloud")
+  REAL hc(klon) ! moist static energy ("in-cloud")
+  REAL cmrc(klon) ! constituent mix rat ("in-cloud")
+  REAL dq1(klon) ! shb  convective change (lower lvl)
+  REAL dq2(klon) ! shb  convective change (mid level)
+  REAL dq3(klon) ! shb  convective change (upper lvl)
+  REAL ds1(klon) ! sb   convective change (lower lvl)
+  REAL ds2(klon) ! sb   convective change (mid level)
+  REAL ds3(klon) ! sb   convective change (upper lvl)
+  REAL dcmr1(klon) ! cmrb convective change (lower lvl)
+  REAL dcmr2(klon) ! cmrb convective change (mid level)
+  REAL dcmr3(klon) ! cmrb convective change (upper lvl)
+  REAL flotab(klon) ! hc - hbs (mesure d'instabilite)
+  LOGICAL ldcum(klon) ! .true. si la convection existe
+  LOGICAL etagt0 ! true if eta > 0.0
+  REAL dt ! current 2 delta-t (model time step)
+  REAL cats ! modified characteristic adj. time
+  REAL rdt ! 1./dt
+  REAL qprime ! modified specific humidity pert.
+  REAL tprime ! modified thermal perturbation
+  REAL pblhgt ! bounded pbl height (max[pblh,1m])
+  REAL fac1 ! intermediate scratch variable
+  REAL shprme ! intermediate specific humidity pert.
+  REAL qsattp ! saturation mixing ratio for
+  ! !  thermally perturbed PBL parcels
+  REAL dz ! local layer depth
+  REAL b1 ! bouyancy measure in detrainment lvl
+  REAL b2 ! bouyancy measure in condensation lvl
+  REAL g ! bounded vertical gradient of hb
+  REAL tmass ! total mass available for convective exchange
+  REAL denom ! intermediate scratch variable
+  REAL qtest1 ! used in negative q test (middle lvl)
+  REAL qtest2 ! used in negative q test (lower lvl)
+  REAL fslkp ! flux lw static energy (bot interface)
+  REAL fslkm ! flux lw static energy (top interface)
+  REAL fqlkp ! flux total water (bottom interface)
+  REAL fqlkm ! flux total water (top interface)
+  REAL botflx ! bottom constituent mixing ratio flux
+  REAL topflx ! top constituent mixing ratio flux
+  REAL efac1 ! ratio cmrb to convectively induced change (bot lvl)
+  REAL efac2 ! ratio cmrb to convectively induced change (mid lvl)
+  REAL efac3 ! ratio cmrb to convectively induced change (top lvl)
+
+  INTEGER i, k ! indices horizontal et vertical
+  INTEGER km1 ! k-1 (index offset)
+  INTEGER kp1 ! k+1 (index offset)
+  INTEGER m ! constituent index
+  INTEGER ktp ! temporary index used to track top
+  INTEGER is ! nombre de points a ajuster
+
+  REAL tmp1, tmp2, tmp3, tmp4
+  REAL zx_t, zx_p, zx_q, zx_qs, zx_gam
+  REAL zcor, zdelta, zcvm5
+
+  REAL qhalf, sh1, sh2, shbs1, shbs2
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
+  qhalf(sh1, sh2, shbs1, shbs2) = min(max(sh1,sh2), &
+    (shbs2*sh1+shbs1*sh2)/(shbs1+shbs2))
+
+  ! -----------------------------------------------------------------------
+  ! pas de traceur pour l'instant
+  DO m = 1, pcnst
+    DO k = 1, klev
+      DO i = 1, klon
+        cmrb(i, k, m) = 0.0
+      END DO
+    END DO
+  END DO
+
+  ! Les perturbations de la couche limite sont zero pour l'instant
+
+  DO m = 1, pcnst
+    DO i = 1, klon
+      cmrp(i, m) = 0.0
+    END DO
+  END DO
+  DO i = 1, klon
+    thtap(i) = 0.0
+    shp(i) = 0.0
+    pblh(i) = 1.0
+  END DO
+
+  ! Ensure that characteristic adjustment time scale (cmftau) assumed
+  ! in estimate of eta isn't smaller than model time scale (deltat)
+
+  dt = deltat
+  cats = max(dt, cmftau)
+  rdt = 1.0/dt
+
+  ! Compute sb,hb,shbs,hbs
+
+  DO k = 1, klev
+    DO i = 1, klon
+      zx_t = tb(i, k)
+      zx_p = p(i, k)
+      zx_q = shb(i, k)
+      zdelta = max(0., sign(1.,rtt-zx_t))
+      zcvm5 = r5les*rlvtt*(1.-zdelta) + r5ies*rlstt*zdelta
+      zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*zx_q)
+      zx_qs = r2es*foeew(zx_t, zdelta)/zx_p
+      zx_qs = min(0.5, zx_qs)
+      zcor = 1./(1.-retv*zx_qs)
+      zx_qs = zx_qs*zcor
+      zx_gam = foede(zx_t, zdelta, zcvm5, zx_qs, zcor)
+      shbs(i, k) = zx_qs
+      gam(i, k) = zx_gam
+    END DO
+  END DO
+
+  DO k = limcnv, klev
+    DO i = 1, klon
+      sb(i, k) = rcpd*tb(i, k) + gz(i, k)
+      hb(i, k) = sb(i, k) + rlvtt*shb(i, k)
+      hbs(i, k) = sb(i, k) + rlvtt*shbs(i, k)
+    END DO
+  END DO
+
+  ! Compute sbh, shbh
+
+  DO k = limcnv + 1, klev
+    km1 = k - 1
+    DO i = 1, klon
+      sbh(i, k) = 0.5*(sb(i,km1)+sb(i,k))
+      shbh(i, k) = qhalf(shb(i,km1), shb(i,k), shbs(i,km1), shbs(i,k))
+      hbh(i, k) = sbh(i, k) + rlvtt*shbh(i, k)
+    END DO
+  END DO
+
+  ! Specify properties at top of model (not used, but filling anyway)
+
+  DO i = 1, klon
+    sbh(i, limcnv) = sb(i, limcnv)
+    shbh(i, limcnv) = shb(i, limcnv)
+    hbh(i, limcnv) = hb(i, limcnv)
+  END DO
+
+  ! Zero vertically independent control, tendency & diagnostic arrays
+
+  DO i = 1, klon
+    prec(i) = 0.0
+    dzcld(i) = 0.0
+    cnb(i) = 0
+    cnt(i) = klev + 1
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      cmfdt(i, k) = 0.
+      cmfdq(i, k) = 0.
+      cmfdqr(i, k) = 0.
+      cmfmc(i, k) = 0.
+      cmfsl(i, k) = 0.
+      cmflq(i, k) = 0.
+    END DO
+  END DO
+
+  ! Begin moist convective mass flux adjustment procedure.
+  ! Formalism ensures that negative cloud liquid water can never occur
+
+  DO k = klev - 1, limcnv + 1, -1
+    km1 = k - 1
+    kp1 = k + 1
+    DO i = 1, klon
+      eta(i) = 0.0
+      beta(i) = 0.0
+      ds1(i) = 0.0
+      ds2(i) = 0.0
+      ds3(i) = 0.0
+      dq1(i) = 0.0
+      dq2(i) = 0.0
+      dq3(i) = 0.0
+
+      ! Specification of "cloud base" conditions
+
+      qprime = 0.0
+      tprime = 0.0
+
+      ! Assign tprime within the PBL to be proportional to the quantity
+      ! thtap (which will be bounded by tpmax), passed to this routine by
+      ! the PBL routine.  Don't allow perturbation to produce a dry
+      ! adiabatically unstable parcel.  Assign qprime within the PBL to be
+      ! an appropriately modified value of the quantity shp (which will be
+      ! bounded by shpmax) passed to this routine by the PBL routine.  The
+      ! quantity qprime should be less than the local saturation value
+      ! (qsattp=qsat[t+tprime,p]).  In both cases, thtap and shp are
+      ! linearly reduced toward zero as the PBL top is approached.
+
+      pblhgt = max(pblh(i), 1.0)
+      IF (gz(i,kp1)/rg<=pblhgt .AND. dzcld(i)==0.0) THEN
+        fac1 = max(0.0, 1.0-gz(i,kp1)/rg/pblhgt)
+        tprime = min(thtap(i), tpmax)*fac1
+        qsattp = shbs(i, kp1) + rcpd/rlvtt*gam(i, kp1)*tprime
+        shprme = min(min(shp(i),shpmax)*fac1, max(qsattp-shb(i,kp1),0.0))
+        qprime = max(qprime, shprme)
+      ELSE
+        tprime = 0.0
+        qprime = 0.0
+      END IF
+
+      ! Specify "updraft" (in-cloud) thermodynamic properties
+
+      sc(i) = sb(i, kp1) + rcpd*tprime
+      shc(i) = shb(i, kp1) + qprime
+      hc(i) = sc(i) + rlvtt*shc(i)
+      flotab(i) = hc(i) - hbs(i, k)
+      dz = dp(i, k)*rd*tb(i, k)/rg/p(i, k)
+      IF (flotab(i)>0.0) THEN
+        dzcld(i) = dzcld(i) + dz
+      ELSE
+        dzcld(i) = 0.0
+      END IF
+    END DO
+
+    ! Check on moist convective instability
+
+    is = 0
+    DO i = 1, klon
+      IF (flotab(i)>0.0) THEN
+        ldcum(i) = .TRUE.
+        is = is + 1
+      ELSE
+        ldcum(i) = .FALSE.
+      END IF
+    END DO
+
+    IF (is==0) THEN
+      DO i = 1, klon
+        dzcld(i) = 0.0
+      END DO
+      GO TO 70
+    END IF
+
+    ! Current level just below top level => no overshoot
+
+    IF (k<=limcnv+1) THEN
+      DO i = 1, klon
+        IF (ldcum(i)) THEN
+          cldwtr(i) = sb(i, k) - sc(i) + flotab(i)/(1.0+gam(i,k))
+          cldwtr(i) = max(0.0, cldwtr(i))
+          beta(i) = 0.0
+        END IF
+      END DO
+      GO TO 20
+    END IF
+
+    ! First guess at overshoot parameter using crude buoyancy closure
+    ! 10% overshoot assumed as a minimum and 1-c0*dz maximum to start
+    ! If pre-existing supersaturation in detrainment layer, beta=0
+    ! cldwtr is temporarily equal to RLVTT*l (l=> liquid water)
+
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        cldwtr(i) = sb(i, k) - sc(i) + flotab(i)/(1.0+gam(i,k))
+        cldwtr(i) = max(0.0, cldwtr(i))
+        betamx = 1.0 - c0*max(0.0, (dzcld(i)-dzmin))
+        b1 = (hc(i)-hbs(i,km1))*dp(i, km1)
+        b2 = (hc(i)-hbs(i,k))*dp(i, k)
+        beta(i) = max(betamn, min(betamx,1.0+b1/b2))
+        IF (hbs(i,km1)<=hb(i,km1)) beta(i) = 0.0
+      END IF
+    END DO
+
+    ! Bound maximum beta to ensure physically realistic solutions
+
+    ! First check constrains beta so that eta remains positive
+    ! (assuming that eta is already positive for beta equal zero)
+    ! La premiere contrainte de beta est que le flux eta doit etre positif.
+
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        tmp1 = (1.0+gam(i,k))*(sc(i)-sbh(i,kp1)+cldwtr(i)) - &
+          (hbh(i,kp1)-hc(i))*dp(i, k)/dp(i, kp1)
+        tmp2 = (1.0+gam(i,k))*(sc(i)-sbh(i,k))
+        IF ((beta(i)*tmp2-tmp1)>0.0) THEN
+          betamx = 0.99*(tmp1/tmp2)
+          beta(i) = max(0.0, min(betamx,beta(i)))
+        END IF
+
+        ! Second check involves supersaturation of "detrainment layer"
+        ! small amount of supersaturation acceptable (by ssfac factor)
+        ! La 2e contrainte est que la convection ne doit pas sursaturer
+        ! la "detrainment layer", Neanmoins, une petite sursaturation
+        ! est acceptee (facteur ssfac).
+
+        IF (hb(i,km1)<hbs(i,km1)) THEN
+          tmp1 = (1.0+gam(i,k))*(sc(i)-sbh(i,kp1)+cldwtr(i)) - &
+            (hbh(i,kp1)-hc(i))*dp(i, k)/dp(i, kp1)
+          tmp1 = tmp1/dp(i, k)
+          tmp2 = gam(i, km1)*(sbh(i,k)-sc(i)+cldwtr(i)) - hbh(i, k) + hc(i) - &
+            sc(i) + sbh(i, k)
+          tmp3 = (1.0+gam(i,k))*(sc(i)-sbh(i,k))/dp(i, k)
+          tmp4 = (dt/cats)*(hc(i)-hbs(i,k))*tmp2/(dp(i,km1)*(hbs(i,km1)-hb(i, &
+            km1))) + tmp3
+          IF ((beta(i)*tmp4-tmp1)>0.0) THEN
+            betamx = ssfac*(tmp1/tmp4)
+            beta(i) = max(0.0, min(betamx,beta(i)))
+          END IF
+        ELSE
+          beta(i) = 0.0
+        END IF
+
+        ! Third check to avoid introducing 2 delta x thermodynamic
+        ! noise in the vertical ... constrain adjusted h (or theta e)
+        ! so that the adjustment doesn't contribute to "kinks" in h
+
+        g = min(0.0, hb(i,k)-hb(i,km1))
+        tmp3 = (hb(i,k)-hb(i,km1)-g)*(cats/dt)/(hc(i)-hbs(i,k))
+        tmp1 = (1.0+gam(i,k))*(sc(i)-sbh(i,kp1)+cldwtr(i)) - &
+          (hbh(i,kp1)-hc(i))*dp(i, k)/dp(i, kp1)
+        tmp1 = tmp1/dp(i, k)
+        tmp1 = tmp3*tmp1 + (hc(i)-hbh(i,kp1))/dp(i, k)
+        tmp2 = tmp3*(1.0+gam(i,k))*(sc(i)-sbh(i,k))/dp(i, k) + &
+          (hc(i)-hbh(i,k)-cldwtr(i))*(1.0/dp(i,k)+1.0/dp(i,kp1))
+        IF ((beta(i)*tmp2-tmp1)>0.0) THEN
+          betamx = 0.0
+          IF (tmp2/=0.0) betamx = tmp1/tmp2
+          beta(i) = max(0.0, min(betamx,beta(i)))
+        END IF
+      END IF
+    END DO
+
+    ! Calculate mass flux required for stabilization.
+
+    ! Ensure that the convective mass flux, eta, is positive by
+    ! setting negative values of eta to zero..
+    ! Ensure that estimated mass flux cannot move more than the
+    ! minimum of total mass contained in either layer k or layer k+1.
+    ! Also test for other pathological cases that result in non-
+    ! physical states and adjust eta accordingly.
+
+20  CONTINUE
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        beta(i) = max(0.0, beta(i))
+        tmp1 = hc(i) - hbs(i, k)
+        tmp2 = ((1.0+gam(i,k))*(sc(i)-sbh(i,kp1)+cldwtr(i))-beta(i)*(1.0+gam( &
+          i,k))*(sc(i)-sbh(i,k)))/dp(i, k) - (hbh(i,kp1)-hc(i))/dp(i, kp1)
+        eta(i) = tmp1/(tmp2*rg*cats)
+        tmass = min(dp(i,k), dp(i,kp1))/rg
+        IF (eta(i)>tmass*rdt .OR. eta(i)<=0.0) eta(i) = 0.0
+
+        ! Check on negative q in top layer (bound beta)
+
+        IF (shc(i)-shbh(i,k)<0.0 .AND. beta(i)*eta(i)/=0.0) THEN
+          denom = eta(i)*rg*dt*(shc(i)-shbh(i,k))/dp(i, km1)
+          beta(i) = max(0.0, min(-0.999*shb(i,km1)/denom,beta(i)))
+        END IF
+
+        ! Check on negative q in middle layer (zero eta)
+
+        qtest1 = shb(i, k) + eta(i)*rg*dt*((shc(i)-shbh(i, &
+          kp1))-(1.0-beta(i))*cldwtr(i)/rlvtt-beta(i)*(shc(i)-shbh(i, &
+          k)))/dp(i, k)
+        IF (qtest1<=0.0) eta(i) = 0.0
+
+        ! Check on negative q in lower layer (bound eta)
+
+        fac1 = -(shbh(i,kp1)-shc(i))/dp(i, kp1)
+        qtest2 = shb(i, kp1) - eta(i)*rg*dt*fac1
+        IF (qtest2<0.0) THEN
+          eta(i) = 0.99*shb(i, kp1)/(rg*dt*fac1)
+        END IF
+      END IF
+    END DO
+
+
+    ! Calculate cloud water, rain water, and thermodynamic changes
+
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        etagdt = eta(i)*rg*dt
+        cldwtr(i) = etagdt*cldwtr(i)/rlvtt/rg
+        rnwtr(i) = (1.0-beta(i))*cldwtr(i)
+        ds1(i) = etagdt*(sbh(i,kp1)-sc(i))/dp(i, kp1)
+        dq1(i) = etagdt*(shbh(i,kp1)-shc(i))/dp(i, kp1)
+        ds2(i) = (etagdt*(sc(i)-sbh(i,kp1))+rlvtt*rg*cldwtr(i)-beta(i)*etagdt &
+          *(sc(i)-sbh(i,k)))/dp(i, k)
+        dq2(i) = (etagdt*(shc(i)-shbh(i,kp1))-rg*rnwtr(i)-beta(i)*etagdt*(shc &
+          (i)-shbh(i,k)))/dp(i, k)
+        ds3(i) = beta(i)*(etagdt*(sc(i)-sbh(i,k))-rlvtt*rg*cldwtr(i))/dp(i, &
+          km1)
+        dq3(i) = beta(i)*etagdt*(shc(i)-shbh(i,k))/dp(i, km1)
+
+        ! Isolate convective fluxes for later diagnostics
+
+        fslkp = eta(i)*(sc(i)-sbh(i,kp1))
+        fslkm = beta(i)*(eta(i)*(sc(i)-sbh(i,k))-rlvtt*cldwtr(i)*rdt)
+        fqlkp = eta(i)*(shc(i)-shbh(i,kp1))
+        fqlkm = beta(i)*eta(i)*(shc(i)-shbh(i,k))
+
+
+        ! Update thermodynamic profile (update sb, hb, & hbs later)
+
+        tb(i, kp1) = tb(i, kp1) + ds1(i)/rcpd
+        tb(i, k) = tb(i, k) + ds2(i)/rcpd
+        tb(i, km1) = tb(i, km1) + ds3(i)/rcpd
+        shb(i, kp1) = shb(i, kp1) + dq1(i)
+        shb(i, k) = shb(i, k) + dq2(i)
+        shb(i, km1) = shb(i, km1) + dq3(i)
+        prec(i) = prec(i) + rnwtr(i)/rhoh2o
+
+        ! Update diagnostic information for final budget
+        ! Tracking temperature & specific humidity tendencies,
+        ! rainout term, convective mass flux, convective liquid
+        ! water static energy flux, and convective total water flux
+
+        cmfdt(i, kp1) = cmfdt(i, kp1) + ds1(i)/rcpd*rdt
+        cmfdt(i, k) = cmfdt(i, k) + ds2(i)/rcpd*rdt
+        cmfdt(i, km1) = cmfdt(i, km1) + ds3(i)/rcpd*rdt
+        cmfdq(i, kp1) = cmfdq(i, kp1) + dq1(i)*rdt
+        cmfdq(i, k) = cmfdq(i, k) + dq2(i)*rdt
+        cmfdq(i, km1) = cmfdq(i, km1) + dq3(i)*rdt
+        cmfdqr(i, k) = cmfdqr(i, k) + (rg*rnwtr(i)/dp(i,k))*rdt
+        cmfmc(i, kp1) = cmfmc(i, kp1) + eta(i)
+        cmfmc(i, k) = cmfmc(i, k) + beta(i)*eta(i)
+        cmfsl(i, kp1) = cmfsl(i, kp1) + fslkp
+        cmfsl(i, k) = cmfsl(i, k) + fslkm
+        cmflq(i, kp1) = cmflq(i, kp1) + rlvtt*fqlkp
+        cmflq(i, k) = cmflq(i, k) + rlvtt*fqlkm
+        qc(i, k) = (rg*rnwtr(i)/dp(i,k))*rdt
+      END IF
+    END DO
+
+    ! Next, convectively modify passive constituents
+
+    DO m = 1, pcnst
+      DO i = 1, klon
+        IF (ldcum(i)) THEN
+
+          ! If any of the reported values of the constituent is negative in
+          ! the three adjacent levels, nothing will be done to the profile
+
+          IF ((cmrb(i,kp1,m)<0.0) .OR. (cmrb(i,k,m)<0.0) .OR. (cmrb(i,km1, &
+            m)<0.0)) GO TO 40
+
+          ! Specify constituent interface values (linear interpolation)
+
+          cmrh(i, k) = 0.5*(cmrb(i,km1,m)+cmrb(i,k,m))
+          cmrh(i, kp1) = 0.5*(cmrb(i,k,m)+cmrb(i,kp1,m))
+
+          ! Specify perturbation properties of constituents in PBL
+
+          pblhgt = max(pblh(i), 1.0)
+          IF (gz(i,kp1)/rg<=pblhgt .AND. dzcld(i)==0.) THEN
+            fac1 = max(0.0, 1.0-gz(i,kp1)/rg/pblhgt)
+            cmrc(i) = cmrb(i, kp1, m) + cmrp(i, m)*fac1
+          ELSE
+            cmrc(i) = cmrb(i, kp1, m)
+          END IF
+
+          ! Determine fluxes, flux divergence => changes due to convection
+          ! Logic must be included to avoid producing negative values. A bit
+          ! messy since there are no a priori assumptions about profiles.
+          ! Tendency is modified (reduced) when pending disaster detected.
+
+          etagdt = eta(i)*rg*dt
+          botflx = etagdt*(cmrc(i)-cmrh(i,kp1))
+          topflx = beta(i)*etagdt*(cmrc(i)-cmrh(i,k))
+          dcmr1(i) = -botflx/dp(i, kp1)
+          efac1 = 1.0
+          efac2 = 1.0
+          efac3 = 1.0
+
+          IF (cmrb(i,kp1,m)+dcmr1(i)<0.0) THEN
+            efac1 = max(tiny, abs(cmrb(i,kp1,m)/dcmr1(i))-eps)
+          END IF
+
+          IF (efac1==tiny .OR. efac1>1.0) efac1 = 0.0
+          dcmr1(i) = -efac1*botflx/dp(i, kp1)
+          dcmr2(i) = (efac1*botflx-topflx)/dp(i, k)
+
+          IF (cmrb(i,k,m)+dcmr2(i)<0.0) THEN
+            efac2 = max(tiny, abs(cmrb(i,k,m)/dcmr2(i))-eps)
+          END IF
+
+          IF (efac2==tiny .OR. efac2>1.0) efac2 = 0.0
+          dcmr2(i) = (efac1*botflx-efac2*topflx)/dp(i, k)
+          dcmr3(i) = efac2*topflx/dp(i, km1)
+
+          IF (cmrb(i,km1,m)+dcmr3(i)<0.0) THEN
+            efac3 = max(tiny, abs(cmrb(i,km1,m)/dcmr3(i))-eps)
+          END IF
+
+          IF (efac3==tiny .OR. efac3>1.0) efac3 = 0.0
+          efac3 = min(efac2, efac3)
+          dcmr2(i) = (efac1*botflx-efac3*topflx)/dp(i, k)
+          dcmr3(i) = efac3*topflx/dp(i, km1)
+
+          cmrb(i, kp1, m) = cmrb(i, kp1, m) + dcmr1(i)
+          cmrb(i, k, m) = cmrb(i, k, m) + dcmr2(i)
+          cmrb(i, km1, m) = cmrb(i, km1, m) + dcmr3(i)
+        END IF
+40    END DO
+    END DO ! end of m=1,pcnst loop
+
+    IF (k==limcnv+1) GO TO 60 ! on ne pourra plus glisser
+
+    ! Dans la procedure de glissage ascendant, les variables thermo-
+    ! dynamiques des couches k et km1 servent au calcul des couches
+    ! superieures. Elles ont donc besoin d'une mise-a-jour.
+
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        zx_t = tb(i, k)
+        zx_p = p(i, k)
+        zx_q = shb(i, k)
+        zdelta = max(0., sign(1.,rtt-zx_t))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + r5ies*rlstt*zdelta
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*zx_q)
+        zx_qs = r2es*foeew(zx_t, zdelta)/zx_p
+        zx_qs = min(0.5, zx_qs)
+        zcor = 1./(1.-retv*zx_qs)
+        zx_qs = zx_qs*zcor
+        zx_gam = foede(zx_t, zdelta, zcvm5, zx_qs, zcor)
+        shbs(i, k) = zx_qs
+        gam(i, k) = zx_gam
+
+        zx_t = tb(i, km1)
+        zx_p = p(i, km1)
+        zx_q = shb(i, km1)
+        zdelta = max(0., sign(1.,rtt-zx_t))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + r5ies*rlstt*zdelta
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*zx_q)
+        zx_qs = r2es*foeew(zx_t, zdelta)/zx_p
+        zx_qs = min(0.5, zx_qs)
+        zcor = 1./(1.-retv*zx_qs)
+        zx_qs = zx_qs*zcor
+        zx_gam = foede(zx_t, zdelta, zcvm5, zx_qs, zcor)
+        shbs(i, km1) = zx_qs
+        gam(i, km1) = zx_gam
+
+        sb(i, k) = sb(i, k) + ds2(i)
+        sb(i, km1) = sb(i, km1) + ds3(i)
+        hb(i, k) = sb(i, k) + rlvtt*shb(i, k)
+        hb(i, km1) = sb(i, km1) + rlvtt*shb(i, km1)
+        hbs(i, k) = sb(i, k) + rlvtt*shbs(i, k)
+        hbs(i, km1) = sb(i, km1) + rlvtt*shbs(i, km1)
+
+        sbh(i, k) = 0.5*(sb(i,k)+sb(i,km1))
+        shbh(i, k) = qhalf(shb(i,km1), shb(i,k), shbs(i,km1), shbs(i,k))
+        hbh(i, k) = sbh(i, k) + rlvtt*shbh(i, k)
+        sbh(i, km1) = 0.5*(sb(i,km1)+sb(i,k-2))
+        shbh(i, km1) = qhalf(shb(i,k-2), shb(i,km1), shbs(i,k-2), &
+          shbs(i,km1))
+        hbh(i, km1) = sbh(i, km1) + rlvtt*shbh(i, km1)
+      END IF
+    END DO
+
+    ! Ensure that dzcld is reset if convective mass flux zero
+    ! specify the current vertical extent of the convective activity
+    ! top of convective layer determined by size of overshoot param.
+
+60  CONTINUE
+    DO i = 1, klon
+      etagt0 = eta(i) > 0.0
+      IF (.NOT. etagt0) dzcld(i) = 0.0
+      IF (etagt0 .AND. beta(i)>betamn) THEN
+        ktp = km1
+      ELSE
+        ktp = k
+      END IF
+      IF (etagt0) THEN
+        cnt(i) = min(cnt(i), ktp)
+        cnb(i) = max(cnb(i), k)
+      END IF
+    END DO
+70 END DO ! end of k loop
+
+  ! determine whether precipitation, prec, is frozen (snow) or not
+
+  DO i = 1, klon
+    IF (tb(i,klev)<tmelt .AND. tb(i,klev-1)<tmelt) THEN
+      cmfprs(i) = prec(i)*rdt
+    ELSE
+      cmfprt(i) = prec(i)*rdt
+    END IF
+  END DO
+
+  RETURN ! we're all done ... return to calling procedure
+END SUBROUTINE cmfmca
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/concvl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/concvl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/concvl.F90	(revision 3330)
@@ -0,0 +1,567 @@
+SUBROUTINE concvl(iflag_clos, &
+                  dtime, paprs, pplay, k_upper_cv, &
+                  t, q, t_wake, q_wake, s_wake, u, v, tra, ntra, &
+                  Ale, Alp, sig1, w01, &
+                  d_t, d_q, d_u, d_v, d_tra, &
+                  rain, snow, kbas, ktop, sigd, &
+                  cbmf, plcl, plfc, wbeff, upwd, dnwd, dnwdbis, &
+                  Ma, mip, Vprecip, &
+                  cape, cin, tvp, Tconv, iflag, &
+                  pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, dplcldr, &
+                  qcondc, wd, pmflxr, pmflxs, &
+!RomP >>>
+!!     .             da,phi,mp,dd_t,dd_q,lalim_conv,wght_th)
+                  da, phi, mp, phi2, d1a, dam, sij, clw, elij, &     ! RomP
+                  dd_t, dd_q, lalim_conv, wght_th, &                 ! RomP
+                  evap, ep, epmlmMm, eplaMm, &                       ! RomP
+                  wdtrainA, wdtrainM, wght, qtc, sigt, &
+                  tau_cld_cv, coefw_cld_cv, &                           ! RomP+RL, AJ
+!RomP <<<
+                  epmax_diag) ! epmax_cape
+! **************************************************************
+! *
+! CONCVL                                                      *
+! *
+! *
+! written by   : Sandrine Bony-Lena, 17/05/2003, 11.16.04    *
+! modified by :                                               *
+! **************************************************************
+
+
+  USE dimphy
+  USE infotrac_phy, ONLY: nbtr
+  USE phys_local_var_mod, ONLY: omega
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+! ======================================================================
+! Auteur(s): S. Bony-Lena (LMD/CNRS) date: ???
+! Objet: schema de convection de Emanuel (1991) interface
+! ======================================================================
+! Arguments:
+! dtime--input-R-pas d'integration (s)
+! s-------input-R-la vAleur "s" pour chaque couche
+! sigs----input-R-la vAleur "sigma" de chaque couche
+! sig-----input-R-la vAleur de "sigma" pour chaque niveau
+! psolpa--input-R-la pression au sol (en Pa)
+! pskapa--input-R-exponentiel kappa de psolpa
+! h-------input-R-enthAlpie potentielle (Cp*T/P**kappa)
+! q-------input-R-vapeur d'eau (en kg/kg)
+
+! work*: input et output: deux variables de travail,
+! on peut les mettre a 0 au debut
+! ALE--------input-R-energie disponible pour soulevement
+! ALP--------input-R-puissance disponible pour soulevement
+
+! d_h--------output-R-increment de l'enthAlpie potentielle (h)
+! d_q--------output-R-increment de la vapeur d'eau
+! rain-------output-R-la pluie (mm/s)
+! snow-------output-R-la neige (mm/s)
+! upwd-------output-R-saturated updraft mass flux (kg/m**2/s)
+! dnwd-------output-R-saturated downdraft mass flux (kg/m**2/s)
+! dnwd0------output-R-unsaturated downdraft mass flux (kg/m**2/s)
+! Ma---------output-R-adiabatic ascent mass flux (kg/m2/s)
+! mip--------output-R-mass flux shed by adiabatic ascent (kg/m2/s)
+! Vprecip----output-R-vertical profile of total precipitation (kg/m2/s)
+! Tconv------output-R-environment temperature seen by convective scheme (K)
+! Cape-------output-R-CAPE (J/kg)
+! Cin -------output-R-CIN  (J/kg)
+! Tvp--------output-R-Temperature virtuelle d'une parcelle soulevee
+! adiabatiquement a partir du niveau 1 (K)
+! deltapb----output-R-distance entre LCL et base de la colonne (<0 ; Pa)
+! Ice_flag---input-L-TRUE->prise en compte de la thermodynamique de la glace
+! dd_t-------output-R-increment de la temperature du aux descentes precipitantes
+! dd_q-------output-R-increment de la vapeur d'eau du aux desc precip
+! lalim_conv-
+! wght_th----
+! evap-------output-R
+! ep---------output-R
+! epmlmMm----output-R
+! eplaMm-----output-R
+! wdtrainA---output-R
+! wdtrainM---output-R
+! wght-------output-R
+! ======================================================================
+
+
+  include "clesphys.h"
+
+  INTEGER iflag_clos
+
+  REAL dtime, paprs(klon, klev+1), pplay(klon, klev)
+  INTEGER k_upper_cv
+  REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev)
+  REAL t_wake(klon, klev), q_wake(klon, klev)
+  REAL s_wake(klon)
+  REAL tra(klon, klev, nbtr)
+  INTEGER ntra
+  REAL sig1(klon, klev), w01(klon, klev), ptop2(klon)
+  REAL pmflxr(klon, klev+1), pmflxs(klon, klev+1)
+  REAL Ale(klon), Alp(klon)
+
+  REAL d_t(klon, klev), d_q(klon, klev), d_u(klon, klev), d_v(klon, klev)
+  REAL dd_t(klon, klev), dd_q(klon, klev)
+  REAL d_tra(klon, klev, nbtr)
+  REAL rain(klon), snow(klon)
+
+  INTEGER kbas(klon), ktop(klon)
+  REAL em_ph(klon, klev+1), em_p(klon, klev)
+  REAL upwd(klon, klev), dnwd(klon, klev), dnwdbis(klon, klev)
+
+!!       REAL Ma(klon,klev), mip(klon,klev),Vprecip(klon,klev)     !jyg
+  REAL Ma(klon, klev), mip(klon, klev), Vprecip(klon, klev+1)      !jyg
+  REAL Vprecipi(klon, klev+1)                                      !jyg
+  REAL wght(klon, klev)                                            !RL
+
+  REAL da(klon, klev), phi(klon, klev, klev), mp(klon, klev)
+! RomP >>>
+  REAL phi2(klon, klev, klev)
+  REAL d1a(klon, klev), dam(klon, klev)
+  REAL sij(klon, klev, klev), clw(klon, klev), elij(klon, klev, klev)
+  REAL wdtrainA(klon, klev), wdtrainM(klon, klev)
+  REAL evap(klon, klev), ep(klon, klev)
+  REAL epmlmMm(klon, klev, klev), eplaMm(klon, klev)
+! RomP <<<
+  REAL cape(klon), cin(klon), tvp(klon, klev)
+  REAL Tconv(klon, klev)
+
+!CR:test: on passe lentr et alim_star des thermiques
+  INTEGER lalim_conv(klon)
+  REAL wght_th(klon, klev)
+  REAL em_sig1feed ! sigma at lower bound of feeding layer
+  REAL em_sig2feed ! sigma at upper bound of feeding layer
+  REAL em_wght(klev) ! weight density determining the feeding mixture
+!on enleve le save
+! SAVE em_sig1feed,em_sig2feed,em_wght
+
+  INTEGER iflag(klon)
+  REAL rflag(klon)
+  REAL pbase(klon), bbase(klon)
+  REAL dtvpdt1(klon, klev), dtvpdq1(klon, klev)
+  REAL dplcldt(klon), dplcldr(klon)
+  REAL qcondc(klon, klev)
+  REAL qtc(klon, klev)
+  REAL sigt(klon, klev)
+  REAL wd(klon)
+  REAL plim1(klon), plim2(klon), asupmax(klon, klev)
+  REAL supmax0(klon), asupmaxmin(klon)
+
+  REAL sigd(klon)
+  REAL zx_t, zdelta, zx_qs, zcor
+  REAL tau_cld_cv, coefw_cld_cv
+  REAL epmax_diag(klon) ! epmax_cape
+
+!   INTEGER iflag_mix
+!   SAVE iflag_mix
+  INTEGER noff, minorig
+  INTEGER i, k, itra
+  REAL qs(klon, klev), qs_wake(klon, klev)
+  REAL cbmf(klon), plcl(klon), plfc(klon), wbeff(klon)
+!LF          SAVE cbmf
+!IM/JYG      REAL, SAVE, ALLOCATABLE :: cbmf(:)
+!!!$OMP THREADPRIVATE(cbmf)!
+  REAL cbmflast(klon)
+  INTEGER ifrst
+  SAVE ifrst
+  DATA ifrst/0/
+!$OMP THREADPRIVATE(ifrst)
+
+
+! Variables supplementaires liees au bilan d'energie
+! Real paire(klon)
+!LF      Real ql(klon,klev)
+! Save paire
+!LF      Save ql
+!LF      Real t1(klon,klev),q1(klon,klev)
+!LF      Save t1,q1
+! Data paire /1./
+  REAL, SAVE, ALLOCATABLE :: ql(:, :), q1(:, :), t1(:, :)
+!$OMP THREADPRIVATE(ql, q1, t1)
+
+! Variables liees au bilan d'energie et d'enthAlpi
+  REAL ztsol(klon)
+  REAL        h_vcol_tot, h_dair_tot, h_qw_tot, h_ql_tot, &
+              h_qs_tot, qw_tot, ql_tot, qs_tot, ec_tot
+  SAVE        h_vcol_tot, h_dair_tot, h_qw_tot, h_ql_tot, &
+              h_qs_tot, qw_tot, ql_tot, qs_tot, ec_tot
+!$OMP THREADPRIVATE(h_vcol_tot, h_dair_tot, h_qw_tot, h_ql_tot)
+!$OMP THREADPRIVATE(h_qs_tot, qw_tot, ql_tot, qs_tot , ec_tot)
+  REAL        d_h_vcol, d_h_dair, d_qt, d_qw, d_ql, d_qs, d_ec
+  REAL        d_h_vcol_phy
+  REAL        fs_bound, fq_bound
+  SAVE        d_h_vcol_phy
+!$OMP THREADPRIVATE(d_h_vcol_phy)
+  REAL        zero_v(klon)
+  CHARACTER *15 ztit
+  INTEGER     ip_ebil ! PRINT level for energy conserv. diag.
+  SAVE        ip_ebil
+  DATA        ip_ebil/2/
+!$OMP THREADPRIVATE(ip_ebil)
+  INTEGER     if_ebil ! level for energy conserv. dignostics
+  SAVE        if_ebil
+  DATA        if_ebil/2/
+!$OMP THREADPRIVATE(if_ebil)
+!+jld ec_conser
+  REAL d_t_ec(klon, klev) ! tendance du a la conersion Ec -> E thermique
+  REAL zrcpd
+!-jld ec_conser
+!LF
+  INTEGER nloc
+  LOGICAL, SAVE            :: first = .TRUE.
+!$OMP THREADPRIVATE(first)
+  INTEGER, SAVE            :: itap, igout
+!$OMP THREADPRIVATE(itap, igout)
+
+
+  include "YOMCST.h"
+  include "YOMCST2.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
+!jyg<
+  include "conema3.h"
+!>jyg
+
+  IF (first) THEN
+! Allocate some variables LF 04/2008
+
+!IM/JYG allocate(cbmf(klon))
+    ALLOCATE (ql(klon,klev))
+    ALLOCATE (t1(klon,klev))
+    ALLOCATE (q1(klon,klev))
+    itap = 0
+    igout = klon/2 + 1/klon
+  END IF
+! Incrementer le compteur de la physique
+  itap = itap + 1
+
+! Copy T into Tconv
+  DO k = 1, klev
+    DO i = 1, klon
+      Tconv(i, k) = t(i, k)
+    END DO
+  END DO
+
+  IF (if_ebil>=1) THEN
+    DO i = 1, klon
+      ztsol(i) = t(i, 1)
+      zero_v(i) = 0.
+      DO k = 1, klev
+        ql(i, k) = 0.
+      END DO
+    END DO
+  END IF
+
+! ym
+  snow(:) = 0
+
+! IF (ifrst .EQ. 0) THEN
+! ifrst = 1
+  IF (first) THEN
+    first = .FALSE.
+
+! ===========================================================================
+! READ IN PARAMETERS FOR THE CLOSURE AND THE MIXING DISTRIBUTION
+! ===========================================================================
+
+    IF (iflag_con==3) THEN
+!      CALL cv3_inicp()
+      CALL cv3_inip()
+    END IF
+
+! ===========================================================================
+! READ IN PARAMETERS FOR CONVECTIVE INHIBITION BY TROPOS. DRYNESS
+! ===========================================================================
+
+! c$$$         open (56,file='supcrit.data')
+! c$$$         read (56,*) Supcrit1, Supcrit2
+! c$$$         close (56)
+
+    IF (prt_level>=10) WRITE (lunout, *) 'supcrit1, supcrit2', supcrit1, supcrit2
+
+! ===========================================================================
+! Initialisation pour les bilans d'eau et d'energie
+! ===========================================================================
+    IF (if_ebil>=1) d_h_vcol_phy = 0.
+
+    DO i = 1, klon
+      cbmf(i) = 0.
+!!          plcl(i) = 0.
+      sigd(i) = 0.
+    END DO
+  END IF !(ifrst .EQ. 0)
+
+! Initialisation a chaque pas de temps
+  plfc(:) = 0.
+  wbeff(:) = 100.
+  plcl(:) = 0.
+
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      em_ph(i, k) = paprs(i, k)/100.0
+      pmflxr(i, k) = 0.
+      pmflxs(i, k) = 0.
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      em_p(i, k) = pplay(i, k)/100.0
+    END DO
+  END DO
+
+
+! Feeding layer
+
+  em_sig1feed = 1.
+!jyg<
+!  em_sig2feed = 0.97
+  em_sig2feed = cvl_sig2feed
+!>jyg
+! em_sig2feed = 0.8
+! Relative Weight densities
+  DO k = 1, klev
+    em_wght(k) = 1.
+  END DO
+!CRtest: couche alim des tehrmiques ponderee par a*
+! DO i = 1, klon
+! do k=1,lalim_conv(i)
+! em_wght(k)=wght_th(i,k)
+! print*,'em_wght=',em_wght(k),wght_th(i,k)
+! end do
+! END DO
+
+  IF (iflag_con==4) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        zx_t = t(i, k)
+        zdelta = max(0., sign(1.,rtt-zx_t))
+        zx_qs = min(0.5, r2es*foeew(zx_t,zdelta)/em_p(i,k)/100.0)
+        zcor = 1./(1.-retv*zx_qs)
+        qs(i, k) = zx_qs*zcor
+      END DO
+      DO i = 1, klon
+        zx_t = t_wake(i, k)
+        zdelta = max(0., sign(1.,rtt-zx_t))
+        zx_qs = min(0.5, r2es*foeew(zx_t,zdelta)/em_p(i,k)/100.0)
+        zcor = 1./(1.-retv*zx_qs)
+        qs_wake(i, k) = zx_qs*zcor
+      END DO
+    END DO
+  ELSE ! iflag_con=3 (modif de puristes qui fait la diffce pour la convergence numerique)
+    DO k = 1, klev
+      DO i = 1, klon
+        zx_t = t(i, k)
+        zdelta = max(0., sign(1.,rtt-zx_t))
+        zx_qs = r2es*foeew(zx_t, zdelta)/em_p(i, k)/100.0
+        zx_qs = min(0.5, zx_qs)
+        zcor = 1./(1.-retv*zx_qs)
+        zx_qs = zx_qs*zcor
+        qs(i, k) = zx_qs
+      END DO
+      DO i = 1, klon
+        zx_t = t_wake(i, k)
+        zdelta = max(0., sign(1.,rtt-zx_t))
+        zx_qs = r2es*foeew(zx_t, zdelta)/em_p(i, k)/100.0
+        zx_qs = min(0.5, zx_qs)
+        zcor = 1./(1.-retv*zx_qs)
+        zx_qs = zx_qs*zcor
+        qs_wake(i, k) = zx_qs
+      END DO
+    END DO
+  END IF ! iflag_con
+
+! ------------------------------------------------------------------
+
+! Main driver for convection:
+!                   iflag_con=3 -> nvlle version de KE (JYG)
+!                   iflag_con = 30  -> equivAlent to convect3
+!                   iflag_con = 4  -> equivAlent to convect1/2
+
+
+  IF (iflag_con==30) THEN
+
+! print *, '-> cv_driver'      !jyg
+    CALL cv_driver(klon, klev, klevp1, ntra, iflag_con, &
+                   t, q, qs, u, v, tra, &
+                   em_p, em_ph, iflag, &
+                   d_t, d_q, d_u, d_v, d_tra, rain, &
+                   Vprecip, cbmf, sig1, w01, & !jyg
+                   kbas, ktop, &
+                   dtime, Ma, upwd, dnwd, dnwdbis, qcondc, wd, cape, &
+                   da, phi, mp, phi2, d1a, dam, sij, clw, elij, &       !RomP
+                   evap, ep, epmlmMm, eplaMm, &                         !RomP
+                   wdtrainA, wdtrainM, &                                !RomP
+                   epmax_diag) ! epmax_cape
+!           print *, 'cv_driver ->'      !jyg
+
+    DO i = 1, klon
+      cbmf(i) = Ma(i, kbas(i))
+    END DO
+
+!RL
+    wght(:, :) = 0.
+    DO i = 1, klon
+      wght(i, 1) = 1.
+    END DO
+!RL
+
+  ELSE
+
+!LF   necessary for gathered fields
+    nloc = klon
+    CALL cva_driver(klon, klev, klev+1, ntra, nloc, k_upper_cv, &
+                    iflag_con, iflag_mix, iflag_ice_thermo, &
+                    iflag_clos, ok_conserv_q, dtime, cvl_comp_threshold, &
+                    t, q, qs, t_wake, q_wake, qs_wake, s_wake, u, v, tra, &
+                    em_p, em_ph, &
+                    Ale, Alp, omega, &
+                    em_sig1feed, em_sig2feed, em_wght, &
+                    iflag, d_t, d_q, d_u, d_v, d_tra, rain, kbas, ktop, &
+                    cbmf, plcl, plfc, wbeff, sig1, w01, ptop2, sigd, &
+                    Ma, mip, Vprecip, Vprecipi, upwd, dnwd, dnwdbis, qcondc, wd, &
+                    cape, cin, tvp, &
+                    dd_t, dd_q, plim1, plim2, asupmax, supmax0, &
+                    asupmaxmin, lalim_conv, &
+!AC!+!RomP+jyg
+!!                   da,phi,mp,phi2,d1a,dam,sij,clw,elij, &               ! RomP
+!!                   evap,ep,epmlmMm,eplaMm,                              ! RomP
+                    da, phi, mp, phi2, d1a, dam, sij, wght, &           ! RomP+RL
+                    clw, elij, evap, ep, epmlmMm, eplaMm, &             ! RomP+RL
+                    wdtrainA, wdtrainM, qtc, sigt, &
+                    tau_cld_cv, coefw_cld_cv, &                         ! RomP,AJ
+!AC!+!RomP+jyg
+                    epmax_diag) ! epmax_cape
+  END IF
+! ------------------------------------------------------------------
+  IF (prt_level>=10) WRITE (lunout, *) ' cva_driver -> cbmf,plcl,plfc,wbeff ', &
+                                         cbmf(1), plcl(1), plfc(1), wbeff(1)
+
+  DO i = 1, klon
+    rain(i) = rain(i)/86400.
+    rflag(i) = iflag(i)
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = dtime*d_t(i, k)
+      d_q(i, k) = dtime*d_q(i, k)
+      d_u(i, k) = dtime*d_u(i, k)
+      d_v(i, k) = dtime*d_v(i, k)
+    END DO
+  END DO
+
+  IF (iflag_con==30) THEN
+    DO itra = 1, ntra
+      DO k = 1, klev
+        DO i = 1, klon
+!RL!            d_tra(i,k,itra) =dtime*d_tra(i,k,itra)
+          d_tra(i, k, itra) = 0.
+        END DO
+      END DO
+    END DO
+  END IF
+
+!!AC!
+  IF (iflag_con==3) THEN
+    DO itra = 1, ntra
+      DO k = 1, klev
+        DO i = 1, klon
+!RL!            d_tra(i,k,itra) =dtime*d_tra(i,k,itra)
+          d_tra(i, k, itra) = 0.
+        END DO
+      END DO
+    END DO
+  END IF
+!!AC!
+
+  DO k = 1, klev
+    DO i = 1, klon
+      t1(i, k) = t(i, k) + d_t(i, k)
+      q1(i, k) = q(i, k) + d_q(i, k)
+    END DO
+  END DO
+!                                                     !jyg
+  IF (iflag_con == 30 .OR. iflag_ice_thermo ==0) THEN
+! --Separation neige/pluie (pour diagnostics)         !jyg
+    DO k = 1, klev                                    !jyg
+      DO i = 1, klon                                  !jyg
+        IF (t1(i,k)<rtt) THEN                         !jyg
+          pmflxs(i, k) = Vprecip(i, k)                !jyg
+        ELSE                                          !jyg
+          pmflxr(i, k) = Vprecip(i, k)                !jyg
+        END IF                                        !jyg
+      END DO                                          !jyg
+    END DO                                            !jyg
+  ELSE
+    DO k = 1, klev                                    !jyg
+      DO i = 1, klon                                  !jyg
+        pmflxs(i, k) = Vprecipi(i, k)                 !jyg
+        pmflxr(i, k) = Vprecip(i, k)-Vprecipi(i, k)   !jyg
+      END DO                                          !jyg
+    END DO                                            !jyg
+  ENDIF
+
+! c      IF (if_ebil.ge.2) THEN
+! c        ztit='after convect'
+! c        CALL diagetpq(paire,ztit,ip_ebil,2,2,dtime
+! c     e      , t1,q1,ql,qs,u,v,paprs,pplay
+! c     s      , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+! c         call diagphy(paire,ztit,ip_ebil
+! c     e      , zero_v, zero_v, zero_v, zero_v, zero_v
+! c     e      , zero_v, rain, zero_v, ztsol
+! c     e      , d_h_vcol, d_qt, d_ec
+! c     s      , fs_bound, fq_bound )
+! c      END IF
+
+
+! les traceurs ne sont pas mis dans cette version de convect4:
+  IF (iflag_con==4) THEN
+    DO itra = 1, ntra
+      DO k = 1, klev
+        DO i = 1, klon
+          d_tra(i, k, itra) = 0.
+        END DO
+      END DO
+    END DO
+  END IF
+! print*, 'concvl->: dd_t,dd_q ',dd_t(1,1),dd_q(1,1)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      dtvpdt1(i, k) = 0.
+      dtvpdq1(i, k) = 0.
+    END DO
+  END DO
+  DO i = 1, klon
+    dplcldt(i) = 0.
+    dplcldr(i) = 0.
+  END DO
+
+  IF (prt_level>=20) THEN
+    DO k = 1, klev
+! print*,'physiq apres_add_con i k it d_u d_v d_t d_q qdl0',igout, &
+!         k,itap,d_u_con(igout,k) ,d_v_con(igout,k), d_t_con(igout,k), &
+!         d_q_con(igout,k),dql0(igout,k)
+! print*,'phys apres_add_con itap Ma cin ALE ALP wak t q undi t q', &
+!         itap,Ma(igout,k),cin(igout),ALE(igout), ALP(igout), &
+!         t_wake(igout,k),q_wake(igout,k),t_undi(igout,k),q_undi(igout,k)
+! print*,'phy apres_add_con itap CON rain snow EMA wk1 wk2 Vpp mip', &
+!         itap,rain_con(igout),snow_con(igout),ema_work1(igout,k), &
+!         ema_work2(igout,k),Vprecip(igout,k), mip(igout,k)
+! print*,'phy apres_add_con itap upwd dnwd dnwd0 cape tvp Tconv ', &
+!         itap,upwd(igout,k),dnwd(igout,k),dnwd0(igout,k),cape(igout), &
+!         tvp(igout,k),Tconv(igout,k)
+! print*,'phy apres_add_con itap dtvpdt dtvdq dplcl dplcldr qcondc', &
+!         itap,dtvpdt1(igout,k),dtvpdq1(igout,k),dplcldt(igout), &
+!         dplcldr(igout),qcondc(igout,k)
+! print*,'phy apres_add_con itap wd pmflxr Kpmflxr Kp1 Kpmflxs Kp1', &
+!         itap,wd(igout),pmflxr(igout,k),pmflxr(igout,k+1),pmflxs(igout,k), &
+!         pmflxs(igout,k+1)
+! print*,'phy apres_add_con itap da phi mp ftd fqd lalim wgth', &
+!         itap,da(igout,k),phi(igout,k,k),mp(igout,k),ftd(igout,k), &
+!         fqd(igout,k),lalim_conv(igout),wght_th(igout,k)
+    END DO
+  END IF !(prt_level.EQ.20) THEN
+
+  RETURN
+END SUBROUTINE concvl
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/condsurf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/condsurf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/condsurf.F90	(revision 3330)
@@ -0,0 +1,136 @@
+! $Header$
+
+SUBROUTINE condsurf(jour, jourvrai, lmt_bils)
+  USE dimphy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  USE indice_sol_mod
+  USE time_phylmdz_mod, ONLY: annee_ref
+  IMPLICIT NONE
+
+  ! I. Musat 05.2005
+
+  ! Lire chaque jour le bilan de chaleur au sol issu
+  ! d'un run atmospherique afin de l'utiliser dans
+  ! dans un run "slab" ocean
+  ! -----------------------------------------
+  ! jour     : input  , numero du jour a lire
+  ! jourvrai : input  , vrai jour de la simulation
+
+  ! lmt_bils: bilan chaleur au sol (a utiliser pour "slab-ocean")
+
+  include "netcdf.inc"
+  INTEGER nid, nvarid
+  INTEGER debut(2)
+  INTEGER epais(2)
+
+  include "clesphys.h"
+
+  INTEGER nannemax
+  PARAMETER (nannemax=60)
+
+  INTEGER jour, jourvrai
+  REAL lmt_bils(klon) !bilan chaleur au sol
+
+  ! Variables locales:
+  INTEGER ig, i, kt, ierr
+  LOGICAL ok
+  INTEGER anneelim, anneemax
+  CHARACTER *20 fich
+
+  REAL :: lmt_bils_glo(klon_glo)
+
+  ! c
+  ! c   .....................................................................
+  ! c
+  ! c    Pour lire le fichier limit correspondant vraiment  a l'annee de la
+  ! c     simulation en cours , il suffit de mettre  ok_limitvrai = .TRUE.
+  ! c
+  ! c
+  ! ......................................................................
+
+
+
+  IF (jour<0 .OR. jour>(360-1)) THEN
+    PRINT *, 'Le jour demande n est pas correct: ', jour
+    CALL abort_physic('condsurf', '', 1)
+  END IF
+
+  anneelim = annee_ref
+  anneemax = annee_ref + nannemax
+
+
+  IF (ok_limitvrai) THEN
+    DO kt = 1, nannemax
+      IF (jourvrai<=(kt-1)*360+359) THEN
+        WRITE (fich, '("limit",i4,".nc")') anneelim
+        ! PRINT *,' Fichier  Limite ',fich
+        GO TO 100
+      END IF
+      anneelim = anneelim + 1
+    END DO
+
+    PRINT *, ' PBS ! Le jour a lire sur le fichier limit ne se '
+    PRINT *, ' trouve pas sur les ', nannemax, ' annees a partir de '
+    PRINT *, ' l annee de debut', annee_ref
+    CALL abort_physic('condsurf', '', 1)
+
+100 CONTINUE
+
+  ELSE
+
+    WRITE (fich, '("limitNEW.nc")')
+    ! PRINT *,' Fichier  Limite ',fich
+  END IF
+
+  ! Ouvrir le fichier en format NetCDF:
+
+  !$OMP MASTER
+  IF (is_mpi_root) THEN
+    ierr = nf_open(fich, nf_nowrite, nid)
+    IF (ierr/=nf_noerr) THEN
+      WRITE (6, *) ' Pb d''ouverture du fichier ', fich
+      WRITE (6, *) ' Le fichier limit ', fich, ' (avec 4 chiffres , pour'
+      WRITE (6, *) '       l an 2000 )  ,  n existe  pas !  '
+      WRITE (6, *) ' ierr = ', ierr
+      CALL abort_physic('condsurf', '', 1)
+    END IF
+    ! DO k = 1, jour
+    ! La tranche de donnees a lire:
+
+    debut(1) = 1
+    debut(2) = jourvrai
+    epais(1) = klon_glo
+    epais(2) = 1
+    ! Bilan flux de chaleur au sol:
+
+    ierr = nf_inq_varid(nid, 'BILS', nvarid)
+    IF (ierr/=nf_noerr) THEN
+      CALL abort_physic('cond_surf', 'Le champ <BILS> est absent', 1)
+    END IF
+    PRINT *, 'debut,epais', debut, epais, 'jour,jourvrai', jour, jourvrai
+#ifdef NC_DOUBLE
+    ierr = nf_get_vara_double(nid, nvarid, debut, epais, lmt_bils_glo)
+#else
+    ierr = nf_get_vara_real(nid, nvarid, debut, epais, lmt_bils_glo)
+#endif
+    IF (ierr/=nf_noerr) THEN
+      CALL abort_physic('condsurf', 'Lecture echouee pour <BILS>', 1)
+    END IF
+    ! ENDDO !k = 1, jour
+
+    ! Fermer le fichier:
+
+    ierr = nf_close(nid)
+
+  END IF ! is_mpi_root==0
+
+  !$OMP END MASTER
+  CALL scatter(lmt_bils_glo, lmt_bils)
+
+
+
+  ! PRINT*, 'lmt_bils est lu pour jour: ', jour
+
+  RETURN
+END SUBROUTINE condsurf
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conema3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conema3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conema3.F90	(revision 3330)
@@ -0,0 +1,412 @@
+
+! $Id$
+
+SUBROUTINE conema3(dtime, paprs, pplay, t, q, u, v, tra, ntra, work1, work2, &
+    d_t, d_q, d_u, d_v, d_tra, rain, snow, kbas, ktop, upwd, dnwd, dnwdbis, &
+    bas, top, ma, cape, tvp, rflag, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, &
+    dplcldr, qcond_incld)
+
+  USE dimphy
+  USE infotrac_phy, ONLY: nbtr
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: schema de convection de Emanuel (1991) interface
+  ! Mai 1998: Interface modifiee pour implementation dans LMDZ
+  ! ======================================================================
+  ! Arguments:
+  ! dtime---input-R-pas d'integration (s)
+  ! paprs---input-R-pression inter-couches (Pa)
+  ! pplay---input-R-pression au milieu des couches (Pa)
+  ! t-------input-R-temperature (K)
+  ! q-------input-R-humidite specifique (kg/kg)
+  ! u-------input-R-vitesse du vent zonal (m/s)
+  ! v-------input-R-vitesse duvent meridien (m/s)
+  ! tra-----input-R-tableau de rapport de melange des traceurs
+  ! work*: input et output: deux variables de travail,
+  ! on peut les mettre a 0 au debut
+
+  ! d_t-----output-R-increment de la temperature
+  ! d_q-----output-R-increment de la vapeur d'eau
+  ! d_u-----output-R-increment de la vitesse zonale
+  ! d_v-----output-R-increment de la vitesse meridienne
+  ! d_tra---output-R-increment du contenu en traceurs
+  ! rain----output-R-la pluie (mm/s)
+  ! snow----output-R-la neige (mm/s)
+  ! kbas----output-R-bas du nuage (integer)
+  ! ktop----output-R-haut du nuage (integer)
+  ! upwd----output-R-saturated updraft mass flux (kg/m**2/s)
+  ! dnwd----output-R-saturated downdraft mass flux (kg/m**2/s)
+  ! dnwdbis-output-R-unsaturated downdraft mass flux (kg/m**2/s)
+  ! bas-----output-R-bas du nuage (real)
+  ! top-----output-R-haut du nuage (real)
+  ! Ma------output-R-flux ascendant non dilue (kg/m**2/s)
+  ! cape----output-R-CAPE
+  ! tvp-----output-R-virtual temperature of the lifted parcel
+  ! rflag---output-R-flag sur le fonctionnement de convect
+  ! pbase---output-R-pression a la base du nuage (Pa)
+  ! bbase---output-R-buoyancy a la base du nuage (K)
+  ! dtvpdt1-output-R-derivative of parcel virtual temp wrt T1
+  ! dtvpdq1-output-R-derivative of parcel virtual temp wrt Q1
+  ! dplcldt-output-R-derivative of the PCP pressure wrt T1
+  ! dplcldr-output-R-derivative of the PCP pressure wrt Q1
+  ! ======================================================================
+
+  include "conema3.h"
+  INTEGER i, l, m, itra
+  INTEGER ntra ! if no tracer transport
+    ! is needed, set ntra = 1 (or 0)
+  REAL dtime
+
+  REAL d_t2(klon, klev), d_q2(klon, klev) ! sbl
+  REAL d_u2(klon, klev), d_v2(klon, klev) ! sbl
+  REAL em_d_t2(klev), em_d_q2(klev) ! sbl
+  REAL em_d_u2(klev), em_d_v2(klev) ! sbl
+
+  REAL paprs(klon, klev+1), pplay(klon, klev)
+  REAL t(klon, klev), q(klon, klev), d_t(klon, klev), d_q(klon, klev)
+  REAL u(klon, klev), v(klon, klev), tra(klon, klev, ntra)
+  REAL d_u(klon, klev), d_v(klon, klev), d_tra(klon, klev, ntra)
+  REAL work1(klon, klev), work2(klon, klev)
+  REAL upwd(klon, klev), dnwd(klon, klev), dnwdbis(klon, klev)
+  REAL rain(klon)
+  REAL snow(klon)
+  REAL cape(klon), tvp(klon, klev), rflag(klon)
+  REAL pbase(klon), bbase(klon)
+  REAL dtvpdt1(klon, klev), dtvpdq1(klon, klev)
+  REAL dplcldt(klon), dplcldr(klon)
+  INTEGER kbas(klon), ktop(klon)
+
+  REAL wd(klon)
+  REAL qcond_incld(klon, klev)
+
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(first)
+
+  ! ym      REAL em_t(klev)
+  REAL, ALLOCATABLE, SAVE :: em_t(:)
+  !$OMP THREADPRIVATE(em_t)
+  ! ym      REAL em_q(klev)
+  REAL, ALLOCATABLE, SAVE :: em_q(:)
+  !$OMP THREADPRIVATE(em_q)
+  ! ym      REAL em_qs(klev)
+  REAL, ALLOCATABLE, SAVE :: em_qs(:)
+  !$OMP THREADPRIVATE(em_qs)
+  ! ym      REAL em_u(klev), em_v(klev), em_tra(klev,nbtr)
+  REAL, ALLOCATABLE, SAVE :: em_u(:), em_v(:), em_tra(:, :)
+  !$OMP THREADPRIVATE(em_u,em_v,em_tra)
+  ! ym      REAL em_ph(klev+1), em_p(klev)
+  REAL, ALLOCATABLE, SAVE :: em_ph(:), em_p(:)
+  !$OMP THREADPRIVATE(em_ph,em_p)
+  ! ym      REAL em_work1(klev), em_work2(klev)
+  REAL, ALLOCATABLE, SAVE :: em_work1(:), em_work2(:)
+  !$OMP THREADPRIVATE(em_work1,em_work2)
+  ! ym      REAL em_precip, em_d_t(klev), em_d_q(klev)
+  REAL, SAVE :: em_precip
+  !$OMP THREADPRIVATE(em_precip)
+  REAL, ALLOCATABLE, SAVE :: em_d_t(:), em_d_q(:)
+  !$OMP THREADPRIVATE(em_d_t,em_d_q)
+  ! ym      REAL em_d_u(klev), em_d_v(klev), em_d_tra(klev,nbtr)
+  REAL, ALLOCATABLE, SAVE :: em_d_u(:), em_d_v(:), em_d_tra(:, :)
+  !$OMP THREADPRIVATE(em_d_u,em_d_v,em_d_tra)
+  ! ym      REAL em_upwd(klev), em_dnwd(klev), em_dnwdbis(klev)
+  REAL, ALLOCATABLE, SAVE :: em_upwd(:), em_dnwd(:), em_dnwdbis(:)
+  !$OMP THREADPRIVATE(em_upwd,em_dnwd,em_dnwdbis)
+  REAL em_dtvpdt1(klev), em_dtvpdq1(klev)
+  REAL em_dplcldt, em_dplcldr
+  ! ym      SAVE em_t,em_q, em_qs, em_ph, em_p, em_work1, em_work2
+  ! ym      SAVE em_u,em_v, em_tra
+  ! ym      SAVE em_d_u,em_d_v, em_d_tra
+  ! ym      SAVE em_precip, em_d_t, em_d_q, em_upwd, em_dnwd, em_dnwdbis
+
+  INTEGER em_bas, em_top
+  SAVE em_bas, em_top
+  !$OMP THREADPRIVATE(em_bas,em_top)
+  REAL em_wd
+  REAL em_qcond(klev)
+  REAL em_qcondc(klev)
+
+  REAL zx_t, zx_qs, zdelta, zcor
+  INTEGER iflag
+  REAL sigsum
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ! VARIABLES A SORTIR
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccc
+
+  ! ym      REAL emmip(klev) !variation de flux ascnon dilue i et i+1
+  REAL, ALLOCATABLE, SAVE :: emmip(:)
+  !$OMP THREADPRIVATE(emmip)
+  ! ym      SAVE emmip
+  ! ym      real emMke(klev)
+  REAL, ALLOCATABLE, SAVE :: emmke(:)
+  !$OMP THREADPRIVATE(emMke)
+  ! ym      save emMke
+  REAL top
+  REAL bas
+  ! ym      real emMa(klev)
+  REAL, ALLOCATABLE, SAVE :: emma(:)
+  !$OMP THREADPRIVATE(emMa)
+  ! ym      save emMa
+  REAL ma(klon, klev)
+  REAL ment(klev, klev)
+  REAL qent(klev, klev)
+  REAL tps(klev), tls(klev)
+  REAL sij(klev, klev)
+  REAL em_cape, em_tvp(klev)
+  REAL em_pbase, em_bbase
+  INTEGER iw, j, k, ix, iy
+
+  ! -- sb: pour schema nuages:
+
+  INTEGER iflagcon
+  INTEGER em_ifc(klev)
+
+  REAL em_pradj
+  REAL em_cldf(klev), em_cldq(klev)
+  REAL em_ftadj(klev), em_fradj(klev)
+
+  INTEGER ifc(klon, klev)
+  REAL pradj(klon)
+  REAL cldf(klon, klev), cldq(klon, klev)
+  REAL ftadj(klon, klev), fqadj(klon, klev)
+
+  ! sb --
+
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  IF (first) THEN
+
+    ALLOCATE (em_t(klev))
+    ALLOCATE (em_q(klev))
+    ALLOCATE (em_qs(klev))
+    ALLOCATE (em_u(klev), em_v(klev), em_tra(klev,nbtr))
+    ALLOCATE (em_ph(klev+1), em_p(klev))
+    ALLOCATE (em_work1(klev), em_work2(klev))
+    ALLOCATE (em_d_t(klev), em_d_q(klev))
+    ALLOCATE (em_d_u(klev), em_d_v(klev), em_d_tra(klev,nbtr))
+    ALLOCATE (em_upwd(klev), em_dnwd(klev), em_dnwdbis(klev))
+    ALLOCATE (emmip(klev))
+    ALLOCATE (emmke(klev))
+    ALLOCATE (emma(klev))
+
+    first = .FALSE.
+  END IF
+
+  qcond_incld(:, :) = 0.
+
+  ! @$$      print*,'debut conema'
+
+  DO i = 1, klon
+    DO l = 1, klev + 1
+      em_ph(l) = paprs(i, l)/100.0
+    END DO
+
+    DO l = 1, klev
+      em_p(l) = pplay(i, l)/100.0
+      em_t(l) = t(i, l)
+      em_q(l) = q(i, l)
+      em_u(l) = u(i, l)
+      em_v(l) = v(i, l)
+      DO itra = 1, ntra
+        em_tra(l, itra) = tra(i, l, itra)
+      END DO
+      ! @$$      print*,'em_t',em_t
+      ! @$$      print*,'em_q',em_q
+      ! @$$      print*,'em_qs',em_qs
+      ! @$$      print*,'em_u',em_u
+      ! @$$      print*,'em_v',em_v
+      ! @$$      print*,'em_tra',em_tra
+      ! @$$      print*,'em_p',em_p
+
+
+
+      zx_t = em_t(l)
+      zdelta = max(0., sign(1.,rtt-zx_t))
+      zx_qs = r2es*foeew(zx_t, zdelta)/em_p(l)/100.0
+      zx_qs = min(0.5, zx_qs)
+      ! @$$       print*,'zx_qs',zx_qs
+      zcor = 1./(1.-retv*zx_qs)
+      zx_qs = zx_qs*zcor
+      em_qs(l) = zx_qs
+      ! @$$      print*,'em_qs',em_qs
+
+      em_work1(l) = work1(i, l)
+      em_work2(l) = work2(i, l)
+      emmke(l) = 0
+      ! emMa(l)=0
+      ! Ma(i,l)=0
+
+      em_dtvpdt1(l) = 0.
+      em_dtvpdq1(l) = 0.
+      dtvpdt1(i, l) = 0.
+      dtvpdq1(i, l) = 0.
+    END DO
+
+    em_dplcldt = 0.
+    em_dplcldr = 0.
+    rain(i) = 0.0
+    snow(i) = 0.0
+    kbas(i) = 1
+    ktop(i) = 1
+    ! ajout SB:
+    bas = 1
+    top = 1
+
+
+    ! sb3d      write(*,1792) (em_work1(m),m=1,klev)
+1792 FORMAT ('sig avant convect ', /, 10(1X,E13.5))
+
+    ! sb d      write(*,1793) (em_work2(m),m=1,klev)
+1793 FORMAT ('w avant convect ', /, 10(1X,E13.5))
+
+    ! @$$      print*,'avant convect'
+    ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+    ! print*,'avant convect i=',i
+    CALL convect3(dtime, epmax, ok_adj_ema, em_t, em_q, em_qs, em_u, em_v, &
+      em_tra, em_p, em_ph, klev, klev+1, klev-1, ntra, dtime, iflag, em_d_t, &
+      em_d_q, em_d_u, em_d_v, em_d_tra, em_precip, em_bas, em_top, em_upwd, &
+      em_dnwd, em_dnwdbis, em_work1, em_work2, emmip, emmke, emma, ment, &
+      qent, tps, tls, sij, em_cape, em_tvp, em_pbase, em_bbase, em_dtvpdt1, &
+      em_dtvpdq1, em_dplcldt, em_dplcldr, & ! sbl
+      em_d_t2, em_d_q2, em_d_u2, em_d_v2, em_wd, em_qcond, em_qcondc) !sbl
+    ! print*,'apres convect '
+
+    ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+    ! -- sb: Appel schema statistique de nuages couple a la convection
+    ! (Bony et Emanuel 2001):
+
+    ! -- creer cvthermo.h qui contiendra les cstes thermo de LMDZ:
+
+    iflagcon = 3
+    ! CALL cv_thermo(iflagcon)
+
+    ! -- appel schema de nuages:
+
+    ! CALL CLOUDS_SUB_LS(klev,em_q,em_qs,em_t
+    ! i          ,em_p,em_ph,dtime,em_qcondc
+    ! o          ,em_cldf,em_cldq,em_pradj,em_ftadj,em_fradj,em_ifc)
+
+    DO k = 1, klev
+      cldf(i, k) = em_cldf(k) ! cloud fraction (0-1)
+      cldq(i, k) = em_cldq(k) ! in-cloud water content (kg/kg)
+      ftadj(i, k) = em_ftadj(k) ! (dT/dt)_{LS adj} (K/s)
+      fqadj(i, k) = em_fradj(k) ! (dq/dt)_{LS adj} (kg/kg/s)
+      ifc(i, k) = em_ifc(k) ! flag convergence clouds_gno (1 ou 2)
+    END DO
+    pradj(i) = em_pradj ! precip from LS supersat adj (mm/day)
+
+    ! sb --
+
+    ! SB:
+    IF (iflag/=1 .AND. iflag/=4) THEN
+      em_cape = 0.
+      DO l = 1, klev
+        em_upwd(l) = 0.
+        em_dnwd(l) = 0.
+        em_dnwdbis(l) = 0.
+        emma(l) = 0.
+        em_tvp(l) = 0.
+      END DO
+    END IF
+    ! fin SB
+
+    ! If sig has been set to zero, then set Ma to zero
+
+    sigsum = 0.
+    DO k = 1, klev
+      sigsum = sigsum + em_work1(k)
+    END DO
+    IF (sigsum==0.0) THEN
+      DO k = 1, klev
+        emma(k) = 0.
+      END DO
+    END IF
+
+    ! sb3d       print*,'i, iflag=',i,iflag
+
+    ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+    ! SORTIE DES ICB ET INB
+    ! en fait inb et icb correspondent au niveau ou se trouve
+    ! le nuage,le numero d'interface
+    ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+    ! modif SB:
+    IF (iflag==1 .OR. iflag==4) THEN
+      top = em_top
+      bas = em_bas
+      kbas(i) = em_bas
+      ktop(i) = em_top
+    END IF
+
+    pbase(i) = em_pbase
+    bbase(i) = em_bbase
+    rain(i) = em_precip/86400.0
+    snow(i) = 0.0
+    cape(i) = em_cape
+    wd(i) = em_wd
+    rflag(i) = real(iflag)
+    ! SB      kbas(i) = em_bas
+    ! SB      ktop(i) = em_top
+    dplcldt(i) = em_dplcldt
+    dplcldr(i) = em_dplcldr
+    DO l = 1, klev
+      d_t2(i, l) = dtime*em_d_t2(l)
+      d_q2(i, l) = dtime*em_d_q2(l)
+      d_u2(i, l) = dtime*em_d_u2(l)
+      d_v2(i, l) = dtime*em_d_v2(l)
+
+      d_t(i, l) = dtime*em_d_t(l)
+      d_q(i, l) = dtime*em_d_q(l)
+      d_u(i, l) = dtime*em_d_u(l)
+      d_v(i, l) = dtime*em_d_v(l)
+      DO itra = 1, ntra
+        d_tra(i, l, itra) = dtime*em_d_tra(l, itra)
+      END DO
+      upwd(i, l) = em_upwd(l)
+      dnwd(i, l) = em_dnwd(l)
+      dnwdbis(i, l) = em_dnwdbis(l)
+      work1(i, l) = em_work1(l)
+      work2(i, l) = em_work2(l)
+      ma(i, l) = emma(l)
+      tvp(i, l) = em_tvp(l)
+      dtvpdt1(i, l) = em_dtvpdt1(l)
+      dtvpdq1(i, l) = em_dtvpdq1(l)
+
+      IF (iflag_clw==0) THEN
+        qcond_incld(i, l) = em_qcondc(l)
+      ELSE IF (iflag_clw==1) THEN
+        qcond_incld(i, l) = em_qcond(l)
+      END IF
+    END DO
+  END DO
+
+  ! On calcule une eau liquide diagnostique en fonction de la
+  ! precip.
+  IF (iflag_clw==2) THEN
+    DO l = 1, klev
+      DO i = 1, klon
+        IF (ktop(i)-kbas(i)>0 .AND. l>=kbas(i) .AND. l<=ktop(i)) THEN
+          qcond_incld(i, l) = rain(i)*8.E4 & ! s         *(pplay(i,l
+                                             ! )-paprs(i,ktop(i)+1))
+            /(pplay(i,kbas(i))-pplay(i,ktop(i)))
+          ! s         **2
+        ELSE
+          qcond_incld(i, l) = 0.
+        END IF
+      END DO
+      PRINT *, 'l=', l, ',   qcond_incld=', qcond_incld(1, l)
+    END DO
+  END IF
+
+
+  RETURN
+END SUBROUTINE conema3
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conema3.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conema3.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conema3.h	(revision 3330)
@@ -0,0 +1,25 @@
+!
+! $Header$
+!-- Modified by : Filiberti M-A 06/2005
+!
+      real epmax             ! 0.993
+      real coef_epmax_cape             ! 0.993
+!jyg<
+      REAL  cvl_comp_threshold     ! 0.
+!>jyg
+      logical ok_adj_ema      ! F
+      integer iflag_clw      ! 0
+      integer iflag_cvl_sigd
+      real cvl_sig2feed      ! 0.97
+
+!jyg<
+!!      common/comconema1/epmax,coef_epmax_cape,ok_adj_ema,iflag_clw,sig1feed,sig2feed
+!!      common/comconema2/iflag_cvl_sigd
+      common/comconema1/epmax,coef_epmax_cape, cvl_comp_threshold, cvl_sig2feed
+      common/comconema2/iflag_cvl_sigd, iflag_clw, ok_adj_ema
+!>jyg
+
+!      common/comconema/epmax,coef_epmax_cape,ok_adj_ema,iflag_clw
+!$OMP THREADPRIVATE(/comconema1/)
+!$OMP THREADPRIVATE(/comconema2/)
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conemav.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conemav.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conemav.F90	(revision 3330)
@@ -0,0 +1,146 @@
+
+! $Header$
+
+SUBROUTINE conemav(dtime, paprs, pplay, t, q, u, v, tra, ntra, work1, work2, &
+    d_t, d_q, d_u, d_v, d_tra, rain, snow, kbas, ktop, upwd, dnwd, dnwdbis, &
+    ma, cape, tvp, iflag, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, dplcldr)
+
+
+  USE dimphy
+  USE infotrac_phy, ONLY: nbtr
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: schema de convection de Emanuel (1991) interface
+  ! ======================================================================
+  ! Arguments:
+  ! dtime--input-R-pas d'integration (s)
+  ! s-------input-R-la valeur "s" pour chaque couche
+  ! sigs----input-R-la valeur "sigma" de chaque couche
+  ! sig-----input-R-la valeur de "sigma" pour chaque niveau
+  ! psolpa--input-R-la pression au sol (en Pa)
+  ! pskapa--input-R-exponentiel kappa de psolpa
+  ! h-------input-R-enthalpie potentielle (Cp*T/P**kappa)
+  ! q-------input-R-vapeur d'eau (en kg/kg)
+
+  ! work*: input et output: deux variables de travail,
+  ! on peut les mettre a 0 au debut
+  ! ALE-----input-R-energie disponible pour soulevement
+
+  ! d_h-----output-R-increment de l'enthalpie potentielle (h)
+  ! d_q-----output-R-increment de la vapeur d'eau
+  ! rain----output-R-la pluie (mm/s)
+  ! snow----output-R-la neige (mm/s)
+  ! upwd----output-R-saturated updraft mass flux (kg/m**2/s)
+  ! dnwd----output-R-saturated downdraft mass flux (kg/m**2/s)
+  ! dnwd0---output-R-unsaturated downdraft mass flux (kg/m**2/s)
+  ! Cape----output-R-CAPE (J/kg)
+  ! Tvp-----output-R-Temperature virtuelle d'une parcelle soulevee
+  ! adiabatiquement a partir du niveau 1 (K)
+  ! deltapb-output-R-distance entre LCL et base de la colonne (<0 ; Pa)
+  ! Ice_flag-input-L-TRUE->prise en compte de la thermodynamique de la glace
+  ! ======================================================================
+
+
+  REAL dtime, paprs(klon, klev+1), pplay(klon, klev)
+  REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev)
+  REAL tra(klon, klev, nbtr)
+  INTEGER ntra
+  REAL work1(klon, klev), work2(klon, klev)
+
+  REAL d_t(klon, klev), d_q(klon, klev), d_u(klon, klev), d_v(klon, klev)
+  REAL d_tra(klon, klev, nbtr)
+  REAL rain(klon), snow(klon)
+
+  INTEGER kbas(klon), ktop(klon)
+  REAL em_ph(klon, klev+1), em_p(klon, klev)
+  REAL upwd(klon, klev), dnwd(klon, klev), dnwdbis(klon, klev)
+  REAL ma(klon, klev), cape(klon), tvp(klon, klev)
+  INTEGER iflag(klon)
+  REAL rflag(klon)
+  REAL pbase(klon), bbase(klon)
+  REAL dtvpdt1(klon, klev), dtvpdq1(klon, klev)
+  REAL dplcldt(klon), dplcldr(klon)
+
+  REAL zx_t, zdelta, zx_qs, zcor
+
+  INTEGER noff, minorig
+  INTEGER i, k, itra
+  REAL qs(klon, klev)
+  REAL, ALLOCATABLE, SAVE :: cbmf(:)
+  !$OMP THREADPRIVATE(cbmf)
+  INTEGER ifrst
+  SAVE ifrst
+  DATA ifrst/0/
+  !$OMP THREADPRIVATE(ifrst)
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+
+  IF (ifrst==0) THEN
+    ifrst = 1
+    ALLOCATE (cbmf(klon))
+    DO i = 1, klon
+      cbmf(i) = 0.
+    END DO
+  END IF
+
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      em_ph(i, k) = paprs(i, k)/100.0
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      em_p(i, k) = pplay(i, k)/100.0
+    END DO
+  END DO
+
+
+  DO k = 1, klev
+    DO i = 1, klon
+      zx_t = t(i, k)
+      zdelta = max(0., sign(1.,rtt-zx_t))
+      zx_qs = min(0.5, r2es*foeew(zx_t,zdelta)/em_p(i,k)/100.0)
+      zcor = 1./(1.-retv*zx_qs)
+      qs(i, k) = zx_qs*zcor
+    END DO
+  END DO
+
+  noff = 2
+  minorig = 2
+  CALL convect1(klon, klev, klev+1, noff, minorig, t, q, qs, u, v, em_p, &
+    em_ph, iflag, d_t, d_q, d_u, d_v, rain, cbmf, dtime, ma)
+
+  DO i = 1, klon
+    rain(i) = rain(i)/86400.
+    rflag(i) = iflag(i)
+  END DO
+  ! call dump2d(iim,jjm-1,rflag(2:klon-1),'FLAG CONVECTION   ')
+  ! if (klon.eq.1) then
+  ! print*,'IFLAG ',iflag
+  ! else
+  ! write(*,'(96i1)') (iflag(i),i=2,klon-1)
+  ! endif
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = dtime*d_t(i, k)
+      d_q(i, k) = dtime*d_q(i, k)
+      d_u(i, k) = dtime*d_u(i, k)
+      d_v(i, k) = dtime*d_v(i, k)
+    END DO
+    DO itra = 1, ntra
+      DO i = 1, klon
+        d_tra(i, k, itra) = 0.
+      END DO
+    END DO
+  END DO
+
+
+
+
+  RETURN
+END SUBROUTINE conemav
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conf_phys_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conf_phys_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conf_phys_m.F90	(revision 3330)
@@ -0,0 +1,2552 @@
+!
+! $Id: conf_phys.F90 1668 2012-10-12 10:47:37Z idelkadi $
+!
+!
+!
+module conf_phys_m
+
+  implicit none
+
+contains
+
+  subroutine conf_phys(ok_journe, ok_mensuel, ok_instan, ok_hf, &
+       ok_LES,&
+       callstats,&
+       solarlong0,seuil_inversion, &
+       fact_cldcon, facttemps,ok_newmicro,iflag_radia,&
+       iflag_cld_th, &
+       iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, &
+       ok_ade, ok_aie, ok_cdnc, aerosol_couple, &
+       flag_aerosol, flag_aerosol_strat, new_aod, &
+       bl95_b0, bl95_b1,&
+       read_climoz, &
+       alp_offset)
+
+    use IOIPSL
+    USE surface_data
+    USE phys_cal_mod
+    USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl
+    USE mod_grid_phy_lmdz, only: klon_glo
+    USE print_control_mod, ONLY: lunout
+
+
+    include "conema3.h"
+    include "fisrtilp.h"
+    include "nuage.h"
+    include "YOMCST.h"
+    include "YOMCST2.h"
+
+    include "thermcell.h"
+
+
+    !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
+    include "clesphys.h"
+    include "compbl.h"
+    include "comsoil.h"
+    include "YOEGWD.h"
+    !
+    ! Configuration de la "physique" de LMDZ a l'aide de la fonction
+    ! GETIN de IOIPSL
+    !
+    ! LF 05/2001
+    !
+
+    !
+    ! type_ocean:      type d'ocean (force, slab, couple)
+    ! version_ocean:   version d'ocean (opa8/nemo pour type_ocean=couple ou 
+    !                                   sicOBS,sicINT,sicNO pour type_ocean=slab)
+    ! ok_veget:   type de modele de vegetation
+    ! ok_journe:  sorties journalieres
+    ! ok_hf:  sorties haute frequence
+    ! ok_mensuel: sorties mensuelles
+    ! ok_instan:  sorties instantanees
+    ! ok_ade, ok_aie: apply or not aerosol direct and indirect effects
+    ! ok_cdnc, ok cloud droplet number concentration
+    ! flag_aerosol_strat : flag pour les aerosols stratos
+    ! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc 
+    !
+
+
+    ! Sortie:
+    logical              :: ok_newmicro
+    integer              :: iflag_radia
+    logical              :: ok_journe, ok_mensuel, ok_instan, ok_hf
+    logical              :: ok_LES
+    LOGICAL              :: callstats
+    LOGICAL              :: ok_ade, ok_aie, ok_cdnc, aerosol_couple
+    INTEGER              :: flag_aerosol
+    INTEGER              :: flag_aerosol_strat
+    LOGICAL              :: new_aod
+    REAL                 :: bl95_b0, bl95_b1
+    real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut,tau_ratqs
+    integer              :: iflag_cld_th
+    integer              :: iflag_ratqs
+
+    character (len = 6),SAVE  :: type_ocean_omp, version_ocean_omp, ocean_omp
+    character (len = 10),SAVE  :: type_veget_omp
+    CHARACTER(len = 8),SAVE   :: aer_type_omp
+    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   
+    LOGICAL,SAVE        :: callstats_omp
+    LOGICAL,SAVE        :: ok_ade_omp, ok_aie_omp, ok_cdnc_omp, aerosol_couple_omp
+    INTEGER, SAVE       :: flag_aerosol_omp
+    INTEGER, SAVE       :: flag_aerosol_strat_omp
+    LOGICAL, SAVE       :: new_aod_omp
+    REAL,SAVE           :: bl95_b0_omp, bl95_b1_omp
+    REAL,SAVE           :: freq_ISCCP_omp, ecrit_ISCCP_omp
+    REAL,SAVE           :: freq_COSP_omp, freq_AIRS_omp 
+    real,SAVE           :: fact_cldcon_omp, facttemps_omp,ratqsbas_omp
+    real,SAVE           :: tau_cld_cv_omp, coefw_cld_cv_omp
+    integer,SAVE        :: iflag_cld_cv_omp
+
+
+    real,SAVE           :: ratqshaut_omp
+    real,SAVE           :: tau_ratqs_omp
+    REAL, SAVE          :: t_coupl_omp
+    integer,SAVE        :: iflag_radia_omp
+    integer,SAVE        :: iflag_rrtm_omp
+    integer,SAVE        :: iflag_albedo_omp !albedo SB
+    logical,save        :: ok_chlorophyll_omp ! albedo SB  
+    integer,SAVE        :: NSW_omp
+    integer,SAVE        :: iflag_cld_th_omp, ip_ebil_phy_omp
+    integer,SAVE        :: iflag_ratqs_omp
+
+    Real,SAVE           :: f_cdrag_ter_omp,f_cdrag_oce_omp
+    Real,SAVE           :: f_rugoro_omp   , z0min_omp
+    Real,SAVE           :: z0m_seaice_omp,z0h_seaice_omp
+    REAL,SAVE           :: min_wind_speed_omp,f_gust_wk_omp,f_gust_bl_omp,f_qsat_oce_omp, f_z0qh_oce_omp
+    INTEGER,SAVE        :: iflag_gusts_omp,iflag_z0_oce_omp
+
+    ! Local
+    real                 :: zzz
+
+    real :: seuil_inversion
+    real,save :: seuil_inversion_omp
+
+    integer,SAVE :: iflag_thermals_ed_omp,iflag_thermals_optflux_omp,iflag_thermals_closure_omp
+    real, SAVE :: fact_thermals_ed_dz_omp
+    integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
+    real,save :: tau_thermals_omp,alp_bl_k_omp
+    ! nrlmd le 10/04/2012
+    integer,SAVE :: iflag_trig_bl_omp,iflag_clos_bl_omp
+    integer,SAVE :: tau_trig_shallow_omp,tau_trig_deep_omp
+    real,SAVE    :: s_trig_omp
+    ! fin nrlmd le 10/04/2012
+    real :: alp_offset
+    REAL, SAVE :: alp_offset_omp
+    integer,SAVE :: iflag_coupl_omp,iflag_clos_omp,iflag_wake_omp
+    integer,SAVE :: iflag_cvl_sigd_omp
+    REAL, SAVE :: coef_clos_ls_omp
+    REAL, SAVE :: supcrit1_omp, supcrit2_omp
+    INTEGER, SAVE :: iflag_mix_omp
+    INTEGER, SAVE :: iflag_mix_adiab_omp
+    real, save :: scut_omp, qqa1_omp, qqa2_omp, gammas_omp, Fmax_omp, alphas_omp
+    REAL, SAVE :: tmax_fonte_cv_omp
+
+    REAL,SAVE :: R_ecc_omp,R_peri_omp,R_incl_omp,solaire_omp
+    LOGICAL,SAVE :: ok_suntime_rrtm_omp
+    REAL,SAVE :: co2_ppm_omp, RCO2_omp, co2_ppm_per_omp, RCO2_per_omp
+    REAL,SAVE :: CH4_ppb_omp, RCH4_omp, CH4_ppb_per_omp, RCH4_per_omp
+    REAL,SAVE :: N2O_ppb_omp, RN2O_omp, N2O_ppb_per_omp, RN2O_per_omp
+    REAL,SAVE :: CFC11_ppt_omp,RCFC11_omp,CFC11_ppt_per_omp,RCFC11_per_omp
+    REAL,SAVE :: CFC12_ppt_omp,RCFC12_omp,CFC12_ppt_per_omp,RCFC12_per_omp
+    LOGICAL,SAVE :: ok_4xCO2atm_omp
+    REAL,SAVE :: epmax_omp
+    REAL,SAVE :: coef_epmax_cape_omp
+    LOGICAL,SAVE :: ok_adj_ema_omp
+    INTEGER,SAVE :: iflag_clw_omp
+    REAL,SAVE :: cld_lc_lsc_omp,cld_lc_con_omp,cld_tau_lsc_omp,cld_tau_con_omp
+    REAL,SAVE :: ffallv_lsc_omp, ffallv_con_omp,coef_eva_omp
+    LOGICAL,SAVE :: reevap_ice_omp
+    INTEGER,SAVE :: iflag_pdf_omp
+    INTEGER,SAVE :: iflag_ice_thermo_omp
+    INTEGER,SAVE :: iflag_t_glace_omp
+    INTEGER,SAVE :: iflag_cloudth_vert_omp
+    REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
+    REAL,SAVE :: t_glace_min_omp, t_glace_max_omp
+    REAL,SAVE :: exposant_glace_omp
+    REAL,SAVE :: rei_min_omp, rei_max_omp
+    REAL,SAVE :: inertie_sol_omp,inertie_sno_omp,inertie_ice_omp
+    REAL,SAVE :: qsol0_omp
+    REAL,SAVE :: evap0_omp
+    REAL,SAVE :: albsno0_omp
+    REAL      :: solarlong0
+    REAL,SAVE :: solarlong0_omp
+    INTEGER,SAVE :: top_height_omp,overlap_omp
+    REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp,f_ri_cd_min_omp
+    LOGICAL,SAVE :: ok_kzmin_omp
+    REAL, SAVE   :: pbl_lmixmin_alpha_omp
+    REAL, SAVE ::  fmagic_omp, pmagic_omp
+    INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp
+    INTEGER,SAVE :: iflag_pbl_split_omp
+    INTEGER,SAVE :: iflag_order2_sollw_omp
+    Integer, save :: lev_histins_omp, lev_histLES_omp 
+    INTEGER, SAVE :: lev_histdayNMC_omp
+    INTEGER, SAVE :: levout_histNMC_omp(3)
+    LOGICAL, SAVE :: ok_histNMC_omp(3)
+    REAL, SAVE :: freq_outNMC_omp(3), freq_calNMC_omp(3)
+    CHARACTER*4, SAVE :: type_run_omp
+    LOGICAL,SAVE :: ok_cosp_omp, ok_airs_omp
+    LOGICAL,SAVE :: ok_mensuelCOSP_omp,ok_journeCOSP_omp,ok_hfCOSP_omp
+    REAL,SAVE :: lonmin_ins_omp, lonmax_ins_omp, latmin_ins_omp, latmax_ins_omp
+    REAL,SAVE :: ecrit_hf_omp, ecrit_day_omp, ecrit_mth_omp, ecrit_reg_omp
+    REAL,SAVE :: ecrit_ins_omp
+    REAL,SAVE :: ecrit_LES_omp
+    REAL,SAVE :: ecrit_tra_omp
+    REAL,SAVE :: cvl_comp_threshold_omp
+    REAL,SAVE :: cvl_sig2feed_omp
+    REAL,SAVE :: cvl_corr_omp
+    LOGICAL,SAVE :: ok_lic_melt_omp
+    !
+    LOGICAL,SAVE :: cycle_diurne_omp,soil_model_omp,new_oliq_omp
+    LOGICAL,SAVE :: ok_orodr_omp, ok_orolf_omp, ok_limitvrai_omp
+    INTEGER, SAVE :: nbapp_rad_omp, iflag_con_omp
+    INTEGER, SAVE :: iflag_ener_conserv_omp
+    LOGICAL, SAVE :: ok_conserv_q_omp
+    INTEGER, SAVE :: iflag_fisrtilp_qsat_omp
+    INTEGER, SAVE :: iflag_bergeron_omp
+    LOGICAL,SAVE :: ok_strato_omp
+    LOGICAL,SAVE :: ok_hines_omp, ok_gwd_rando_omp
+    real, SAVE:: gwd_rando_ruwmax_omp, gwd_rando_sat_omp
+    real, SAVE:: gwd_front_ruwmax_omp, gwd_front_sat_omp
+    real, save:: sso_gkdrag_omp,sso_grahil_omp,sso_grcrit_omp
+    real, save:: sso_gfrcri_omp,sso_gkwake_omp,sso_gklift_omp
+    LOGICAL,SAVE :: ok_qch4_omp
+    LOGICAL,SAVE      :: carbon_cycle_tr_omp
+    LOGICAL,SAVE      :: carbon_cycle_cpl_omp
+
+    integer, intent(out):: read_climoz ! read ozone climatology, OpenMP shared
+    ! Allowed values are 0, 1 and 2
+    ! 0: do not read an ozone climatology
+    ! 1: read a single ozone climatology that will be used day and night
+    ! 2: read two ozone climatologies, the average day and night
+    ! climatology and the daylight climatology
+
+    !-----------------------------------------------------------------
+
+    print*,'CONFPHYS ENTREE'
+    !$OMP MASTER 
+    !Config Key  = type_ocean 
+    !Config Desc = Type d'ocean
+    !Config Def  = force
+    !Config Help = Type d'ocean utilise: force, slab,couple
+    !
+    type_ocean_omp = 'force '
+    call getin('type_ocean', type_ocean_omp)
+    !
+    !Config Key  = version_ocean 
+    !Config Desc = Version d'ocean
+    !Config Def  = xxxxxx
+    !Config Help = Version d'ocean utilise: opa8/nemo/sicOBS/xxxxxx
+    !
+    version_ocean_omp = 'xxxxxx'
+    call getin('version_ocean', version_ocean_omp)
+
+    !Config Key  = OCEAN
+    !Config Desc = Old parameter name for type_ocean
+    !Config Def  = yyyyyy
+    !Config Help = This is only for testing purpose
+    !
+    ocean_omp = 'yyyyyy'
+    call getin('OCEAN', ocean_omp)
+    IF (ocean_omp /= 'yyyyyy') THEN
+       WRITE(lunout,*)'ERROR! Old variable name OCEAN used in parmeter file.'
+       WRITE(lunout,*)'Variable OCEAN has been replaced by the variable type_ocean.'
+       WRITE(lunout,*)'You have to update your parameter file physiq.def to succed running'
+       CALL abort_physic('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_physic('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)
+    !
+
+    !
+    !Config Key  = VEGET 
+    !Config Desc = Type de modele de vegetation
+    !Config Def  = .false.
+    !Config Help = Type de modele de vegetation utilise
+    !
+    type_veget_omp ='orchidee'
+    call getin('VEGET', type_veget_omp)
+    !
+
+    ! Martin
+    !Config Key  = ok_snow
+    !Config Desc = Flag to activate snow model SISVAT
+    !Config Def  = .false.
+    ok_snow_omp = .false.
+    call getin('ok_snow', ok_snow_omp)
+    ! Martin
+
+    !Config Key  = OK_journe
+    !Config Desc = Pour des sorties journalieres 
+    !Config Def  = .false.
+    !Config Help = Pour creer le fichier histday contenant les sorties
+    !              journalieres 
+    !
+    ok_journe_omp = .false.
+    call getin('OK_journe', ok_journe_omp)
+    !
+    !Config Key  = ok_hf
+    !Config Desc = Pour des sorties haute frequence
+    !Config Def  = .false.
+    !Config Help = Pour creer le fichier histhf contenant les sorties
+    !              haute frequence ( 3h ou 6h)
+    !
+    ok_hf_omp = .false.
+    call getin('ok_hf', ok_hf_omp)
+    !
+    !Config Key  = OK_mensuel
+    !Config Desc = Pour des sorties mensuelles 
+    !Config Def  = .true.
+    !Config Help = Pour creer le fichier histmth contenant les sorties
+    !              mensuelles 
+    !
+    ok_mensuel_omp = .true.
+    call getin('OK_mensuel', ok_mensuel_omp)
+    !
+    !Config Key  = OK_instan
+    !Config Desc = Pour des sorties instantanees 
+    !Config Def  = .false.
+    !Config Help = Pour creer le fichier histins contenant les sorties
+    !              instantanees 
+    !
+    ok_instan_omp = .false.
+    call getin('OK_instan', ok_instan_omp)
+    !
+    !Config Key  = ok_ade
+    !Config Desc = Aerosol direct effect or not?
+    !Config Def  = .false.
+    !Config Help = Used in radlwsw.F
+    !
+    ok_ade_omp = .false.
+    call getin('ok_ade', ok_ade_omp)
+
+    !
+    !Config Key  = ok_aie
+    !Config Desc = Aerosol indirect effect or not?
+    !Config Def  = .false.
+    !Config Help = Used in nuage.F and radlwsw.F
+    !
+    ok_aie_omp = .false.
+    call getin('ok_aie', ok_aie_omp)
+
+    !
+    !Config Key  = ok_cdnc
+    !Config Desc = ok cloud droplet number concentration
+    !Config Def  = .false.
+    !Config Help = Used in newmicro.F
+    !
+    ok_cdnc_omp = .false.
+    call getin('ok_cdnc', ok_cdnc_omp)
+    !
+    !Config Key  = aerosol_couple
+    !Config Desc = read aerosol in file or calcul by inca
+    !Config Def  = .false.
+    !Config Help = Used in physiq.F
+    !
+    aerosol_couple_omp = .false.
+    CALL getin('aerosol_couple',aerosol_couple_omp)
+    !
+    !Config Key  = flag_aerosol
+    !Config Desc = which aerosol is use for coupled model
+    !Config Def  = 1
+    !Config Help = Used in physiq.F
+    !
+    ! - flag_aerosol=0 => no aerosol
+    ! - flag_aerosol=1 => so4 only (defaut) 
+    ! - flag_aerosol=2 => bc  only 
+    ! - flag_aerosol=3 => pom only
+    ! - flag_aerosol=4 => seasalt only 
+    ! - flag_aerosol=5 => dust only
+    ! - flag_aerosol=6 => all aerosol
+
+    flag_aerosol_omp = 0
+    CALL getin('flag_aerosol',flag_aerosol_omp)
+    !
+    !Config Key  = flag_aerosol_strat
+    !Config Desc = use stratospheric aerosols 0, 1, 2
+    ! - 0 = no stratospheric aerosols 
+    ! - 1 = stratospheric aerosols scaled from 550 nm AOD 
+    ! - 2 = stratospheric aerosol properties from CMIP6
+    !Config Def  = 0
+    !Config Help = Used in physiq.F
+    !
+    !
+    flag_aerosol_strat_omp = 0
+    CALL getin('flag_aerosol_strat',flag_aerosol_strat_omp)
+
+    ! Temporary variable for testing purpose!
+    !Config Key  = new_aod
+    !Config Desc = which calcul of aeropt
+    !Config Def  = false
+    !Config Help = Used in physiq.F
+    !
+    new_aod_omp = .true.
+    CALL getin('new_aod',new_aod_omp)
+
+    ! 
+    !Config Key  = aer_type 
+    !Config Desc = Use a constant field for the aerosols 
+    !Config Def  = scenario 
+    !Config Help = Used in readaerosol.F90 
+    ! 
+    aer_type_omp = 'scenario' 
+    call getin('aer_type', aer_type_omp) 
+
+    !
+    !Config Key  = bl95_b0
+    !Config Desc = Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+    !Config Def  = .false.
+    !Config Help = Used in nuage.F
+    !
+    bl95_b0_omp = 2.
+    call getin('bl95_b0', bl95_b0_omp)
+
+    !Config Key  = bl95_b1
+    !Config Desc = Parameter in CDNC-maer link (Boucher&Lohmann 1995)
+    !Config Def  = .false.
+    !Config Help = Used in nuage.F
+    !
+    bl95_b1_omp = 0.2
+    call getin('bl95_b1', bl95_b1_omp)
+
+    !Config Key  = freq_ISCCP
+    !Config Desc = Frequence d'appel du simulateur ISCCP en secondes;
+    !              par defaut 10800, i.e. 3 heures 
+    !Config Def  = 10800.
+    !Config Help = Used in ini_histISCCP.h
+    !
+    freq_ISCCP_omp = 10800.
+    call getin('freq_ISCCP', freq_ISCCP_omp)
+    !
+    !Config Key  = ecrit_ISCCP
+    !Config Desc = Frequence d'ecriture des resultats du simulateur ISCCP en nombre de jours;
+    !              par defaut 1., i.e. 1 jour
+    !Config Def  = 1.
+    !Config Help = Used in ini_histISCCP.h
+    !
+    !
+    ecrit_ISCCP_omp = 1.
+    call getin('ecrit_ISCCP', ecrit_ISCCP_omp)
+
+    !Config Key  = freq_COSP
+    !Config Desc = Frequence d'appel du simulateur COSP en secondes;
+    !              par defaut 10800, i.e. 3 heures
+    !Config Def  = 10800.
+    !Config Help = Used in ini_histdayCOSP.h
+    !
+    freq_COSP_omp = 10800.
+    call getin('freq_COSP', freq_COSP_omp)
+
+    !Config Key  = freq_AIRS
+    !Config Desc = Frequence d'appel du simulateur AIRS en secondes;
+    !              par defaut 10800, i.e. 3 heures
+    !Config Def  = 10800.
+    !Config Help = Used in ini_histdayAIRS.h
+    !
+    freq_AIRS_omp = 10800.
+    call getin('freq_AIRS', freq_AIRS_omp)
+
+    !
+    !Config Key  = ip_ebil_phy
+    !Config Desc = Niveau de sortie pour les diags bilan d'energie 
+    !Config Def  = 0
+    !Config Help = 
+    !               
+    ip_ebil_phy_omp = 0
+    call getin('ip_ebil_phy', ip_ebil_phy_omp)
+    !
+    !Config Key  = seuil_inversion
+    !Config Desc = Seuil ur dTh pour le choix entre les schemas de CL
+    !Config Def  = -0.1
+    !Config Help = 
+    !               
+    seuil_inversion_omp = -0.1
+    call getin('seuil_inversion', seuil_inversion_omp)
+
+    !
+    ! Constante solaire & Parametres orbitaux & taux gaz effet de serre BEG
+    !
+    !Config Key  = R_ecc
+    !Config Desc = Excentricite
+    !Config Def  = 0.016715
+    !Config Help = 
+    !               
+    !valeur AMIP II
+    R_ecc_omp = 0.016715
+    call getin('R_ecc', R_ecc_omp)
+    !
+    !Config Key  = R_peri
+    !Config Desc = Equinoxe
+    !Config Def  = 
+    !Config Help = 
+    !               
+    !
+    !valeur AMIP II
+    R_peri_omp = 102.7
+    call getin('R_peri', R_peri_omp)
+    !
+    !Config Key  = R_incl
+    !Config Desc = Inclinaison
+    !Config Def  = 
+    !Config Help = 
+    !               
+    !
+    !valeur AMIP II
+    R_incl_omp = 23.441
+    call getin('R_incl', R_incl_omp)
+    !
+    !Config Key  = solaire
+    !Config Desc = Constante solaire en W/m2
+    !Config Def  = 1365.
+    !Config Help = 
+    !               
+    !
+    !valeur AMIP II
+    solaire_omp = 1365.
+    call getin('solaire', solaire_omp)
+    !
+    !Config Key  = ok_sun_time
+    !Config Desc = oui ou non variabilite solaire
+    !Config Def  = .false.
+    !Config Help =
+    !
+    !
+    !valeur AMIP II
+    ok_suntime_rrtm_omp = .false.
+    call getin('ok_suntime_rrtm',ok_suntime_rrtm_omp)
+    !
+    !Config Key  = co2_ppm
+    !Config Desc = concentration du gaz carbonique en ppmv
+    !Config Def  = 348.
+    !Config Help = 
+    !               
+    !
+    !valeur AMIP II
+    co2_ppm_omp = 348.
+    call getin('co2_ppm', co2_ppm_omp)
+    !
+    !Config Key  = RCO2
+    !Config Desc = Concentration du CO2
+    !Config Def  = co2_ppm * 1.0e-06  * 44.011/28.97
+    !Config Def  = 348. * 1.0e-06  * 44.011/28.97
+    !Config Help = 
+    !               
+    ! RCO2 = 5.286789092164308E-04
+    !ancienne valeur
+    RCO2_omp = co2_ppm_omp * 1.0e-06  * 44.011/28.97 ! pour co2_ppm=348.
+
+    !  call getin('RCO2', RCO2)
+    !
+    !Config Key  = RCH4
+    !Config Desc = Concentration du CH4
+    !Config Def  = 1.65E-06* 16.043/28.97
+    !Config Help = 
+    !               
+    !
+    !valeur AMIP II
+    !OK  RCH4 = 1.65E-06* 16.043/28.97
+    ! RCH4 = 9.137366240938903E-07
+    !
+    !ancienne valeur
+    ! RCH4 = 1.72E-06* 16.043/28.97
+    !OK call getin('RCH4', RCH4)
+    zzz = 1650.
+    call getin('CH4_ppb', zzz)
+    CH4_ppb_omp = zzz
+    RCH4_omp = CH4_ppb_omp * 1.0E-09 * 16.043/28.97
+    !
+    !Config Key  = RN2O
+    !Config Desc = Concentration du N2O
+    !Config Def  = 306.E-09* 44.013/28.97
+    !Config Help = 
+    !               
+    !
+    !valeur AMIP II
+    !OK  RN2O = 306.E-09* 44.013/28.97
+    ! RN2O = 4.648939592682085E-07
+    !
+    !ancienne valeur
+    ! RN2O = 310.E-09* 44.013/28.97
+    !OK  call getin('RN2O', RN2O)
+    zzz=306.
+    call getin('N2O_ppb', zzz)
+    N2O_ppb_omp = zzz
+    RN2O_omp = N2O_ppb_omp * 1.0E-09 * 44.013/28.97
+    !
+    !Config Key  = RCFC11
+    !Config Desc = Concentration du CFC11
+    !Config Def  = 280.E-12* 137.3686/28.97
+    !Config Help = 
+    !               
+    !
+    !OK RCFC11 = 280.E-12* 137.3686/28.97
+    zzz = 280.
+    call getin('CFC11_ppt',zzz)
+    CFC11_ppt_omp = zzz
+    RCFC11_omp=CFC11_ppt_omp* 1.0E-12 * 137.3686/28.97
+    ! RCFC11 = 1.327690990680013E-09
+    !OK call getin('RCFC11', RCFC11)
+    !
+    !Config Key  = RCFC12
+    !Config Desc = Concentration du CFC12
+    !Config Def  = 484.E-12* 120.9140/28.97
+    !Config Help = 
+    !               
+    !
+    !OK RCFC12 = 484.E-12* 120.9140/28.97
+    zzz = 484.
+    call getin('CFC12_ppt',zzz)
+    CFC12_ppt_omp = zzz
+    RCFC12_omp = CFC12_ppt_omp * 1.0E-12 * 120.9140/28.97
+    ! RCFC12 = 2.020102726958923E-09
+    !OK call getin('RCFC12', RCFC12)
+
+    !ajout CFMIP begin
+    !
+    !Config Key  = co2_ppm_per
+    !Config Desc = concentration du co2_ppm_per
+    !Config Def  = 348.
+    !Config Help = 
+    !               
+    co2_ppm_per_omp = co2_ppm_omp
+    call getin('co2_ppm_per', co2_ppm_per_omp)
+    !
+    !Config Key  = RCO2_per
+    !Config Desc = Concentration du CO2_per
+    !Config Def  = co2_ppm_per * 1.0e-06  * 44.011/28.97
+    !Config Def  = 348. * 1.0e-06  * 44.011/28.97
+    !Config Help = 
+    !               
+    RCO2_per_omp = co2_ppm_per_omp * 1.0e-06  * 44.011/28.97
+
+    !Config Key  = ok_4xCO2atm
+    !Config Desc = Calcul ou non effet radiatif 4xco2
+    !Config Def  = .false.
+    !Config Help = 
+
+    ok_4xCO2atm_omp = .false.
+    call getin('ok_4xCO2atm',ok_4xCO2atm_omp)
+
+    !Config Key  = RCH4_per
+    !Config Desc = Concentration du CH4_per
+    !Config Def  = 1.65E-06* 16.043/28.97
+    !Config Help = 
+    !               
+    zzz = CH4_ppb_omp
+    call getin('CH4_ppb_per', zzz)
+    CH4_ppb_per_omp = zzz
+    RCH4_per_omp = CH4_ppb_per_omp * 1.0E-09 * 16.043/28.97
+    !
+    !Config Key  = RN2O_per
+    !Config Desc = Concentration du N2O_per
+    !Config Def  = 306.E-09* 44.013/28.97
+    !Config Help = 
+    !               
+    zzz = N2O_ppb_omp
+    call getin('N2O_ppb_per', zzz)
+    N2O_ppb_per_omp = zzz
+    RN2O_per_omp = N2O_ppb_per_omp * 1.0E-09 * 44.013/28.97
+    !
+    !Config Key  = RCFC11_per
+    !Config Desc = Concentration du CFC11_per
+    !Config Def  = 280.E-12* 137.3686/28.97
+    !Config Help = 
+    !               
+    zzz = CFC11_ppt_omp
+    call getin('CFC11_ppt_per',zzz)
+    CFC11_ppt_per_omp = zzz
+    RCFC11_per_omp=CFC11_ppt_per_omp* 1.0E-12 * 137.3686/28.97
+    !
+    !Config Key  = RCFC12_per
+    !Config Desc = Concentration du CFC12_per
+    !Config Def  = 484.E-12* 120.9140/28.97
+    !Config Help = 
+    !               
+    zzz = CFC12_ppt_omp
+    call getin('CFC12_ppt_per',zzz)
+    CFC12_ppt_per_omp = zzz
+    RCFC12_per_omp = CFC12_ppt_per_omp * 1.0E-12 * 120.9140/28.97
+    !ajout CFMIP end
+
+    !
+    ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+    ! Constantes precedemment dans dyn3d/conf_gcm
+
+    !Config  Key  = cycle_diurne
+    !Config  Desc = Cycle ddiurne
+    !Config  Def  = y
+    !Config  Help = Cette option permet d'eteidre le cycle diurne.
+    !Config         Peut etre util pour accelerer le code !
+    cycle_diurne_omp = .TRUE.
+    CALL getin('cycle_diurne',cycle_diurne_omp)
+
+    !Config  Key  = soil_model
+    !Config  Desc = Modele de sol
+    !Config  Def  = y
+    !Config  Help = Choix du modele de sol (Thermique ?)
+    !Config         Option qui pourait un string afin de pouvoir
+    !Config         plus de choix ! Ou meme une liste d'options !
+    soil_model_omp = .TRUE.
+    CALL getin('soil_model',soil_model_omp)
+
+    !Config  Key  = new_oliq
+    !Config  Desc = Nouvelle eau liquide
+    !Config  Def  = y
+    !Config  Help = Permet de mettre en route la
+    !Config         nouvelle parametrisation de l'eau liquide !
+    new_oliq_omp = .TRUE.
+    CALL getin('new_oliq',new_oliq_omp)
+
+    !Config  Key  = ok_orodr
+    !Config  Desc = Orodr ???
+    !Config  Def  = y
+    !Config  Help = Y en a pas comprendre !
+    !Config         
+    ok_orodr_omp = .TRUE.
+    CALL getin('ok_orodr',ok_orodr_omp)
+
+    !Config  Key  =  ok_orolf
+    !Config  Desc = Orolf ??
+    !Config  Def  = y
+    !Config  Help = Connais pas !
+    ok_orolf_omp = .TRUE.
+    CALL getin('ok_orolf', ok_orolf_omp)
+
+    !Config  Key  = ok_limitvrai
+    !Config  Desc = Force la lecture de la bonne annee
+    !Config  Def  = n
+    !Config  Help = On peut forcer le modele a lire le
+    !Config         fichier SST de la bonne annee. C'est une tres bonne
+    !Config         idee, pourquoi ne pas mettre toujours a y ???
+    ok_limitvrai_omp = .FALSE.
+    CALL getin('ok_limitvrai',ok_limitvrai_omp)
+
+    !Config  Key  = nbapp_rad
+    !Config  Desc = Frequence d'appel au rayonnement
+    !Config  Def  = 12
+    !Config  Help = Nombre  d'appels des routines de rayonnements
+    !Config         par jour.
+    nbapp_rad_omp = 12
+    CALL getin('nbapp_rad',nbapp_rad_omp)
+
+    !Config  Key  = iflag_con
+    !Config  Desc = Flag de convection
+    !Config  Def  = 2
+    !Config  Help = Flag  pour la convection les options suivantes existent :
+    !Config         1 pour LMD,
+    !Config         2 pour Tiedtke,
+    !Config         3 pour CCM(NCAR)  
+    iflag_con_omp = 2
+    CALL getin('iflag_con',iflag_con_omp)
+
+    !Config  Key  = iflag_ener_conserv
+    !Config  Desc = Flag de convection
+    !Config  Def  = 1
+    !Config  Help = Flag  pour la convection les options suivantes existent :
+    !Config         -1 pour Kinetic energy correction
+    !Config         1  conservation kinetic and enthalpy
+    iflag_ener_conserv_omp = -1
+    CALL getin('iflag_ener_conserv',iflag_ener_conserv_omp)
+
+    !Config  Key  = ok_conserv_q
+    !Config  Desc = Switch des corrections de conservation de l'eau
+    !Config  Def  = y
+    !Config  Help = Switch des corrections de conservation de l'eau
+    !Config         y -> corrections activees
+    !Config         n -> conformite avec versions anterieures au 1/4/2014
+    ok_conserv_q_omp = .FALSE.
+    CALL getin('ok_conserv_q',ok_conserv_q_omp)
+
+    !Config  Key  = iflag_fisrtilp_qsat
+    !Config  Desc = Flag de fisrtilp
+    !Config  Def  = 0
+    !Config  Help = Flag  pour la pluie grande-échelle les options suivantes existent :
+    !Config         >1 nb iterations pour converger dans le calcul de qsat
+    iflag_fisrtilp_qsat_omp = 0
+    CALL getin('iflag_fisrtilp_qsat',iflag_fisrtilp_qsat_omp)
+
+    !Config  Key  = iflag_bergeron
+    !Config  Desc = Flag de fisrtilp
+    !Config  Def  = 0
+    !Config  Help = Flag  pour la pluie grande-échelle les options suivantes existent :
+    !Config         0 pas d effet Bergeron
+    !Config         1 effet Bergeron pour T<0
+    iflag_bergeron_omp = 0
+    CALL getin('iflag_bergeron',iflag_bergeron_omp)
+
+    !
+    !
+    !
+    ! Constante solaire & Parametres orbitaux & taux gaz effet de serre END
+    !
+    ! KE
+    !
+
+    !Config key  = cvl_comp_threshold
+    !Config Desc = maximum fraction of convective points enabling compression
+    !Config Def  = 1.00
+    !Config Help = fields are compressed when less than a fraction cvl_comp_threshold
+    !Config Help = of the points is convective.
+    cvl_comp_threshold_omp = 1.00
+    CALL getin('cvl_comp_threshold', cvl_comp_threshold_omp)
+
+    !Config key  = cvl_sig2feed
+    !Config Desc = sigma coordinate at top of feeding layer
+    !Config Def  = 0.97
+    !Config Help = deep convection is fed by the layer extending from the surface (pressure ps)
+    !Config Help = and cvl_sig2feed*ps.
+    cvl_sig2feed_omp = 0.97
+    CALL getin('cvl_sig2feed', cvl_sig2feed_omp)
+
+    !Config key  = cvl_corr
+    !Config Desc = Facteur multiplication des precip convectives dans KE
+    !Config Def  = 1.00
+    !Config Help = 1.02 pour un moderne ou un pre-ind. A ajuster pour un glaciaire
+    cvl_corr_omp = 1.00
+    CALL getin('cvl_corr', cvl_corr_omp)
+
+
+    !Config Key  = epmax
+    !Config Desc = Efficacite precip
+    !Config Def  = 0.993
+    !Config Help = 
+    !
+    epmax_omp = .993
+    call getin('epmax', epmax_omp)
+
+    coef_epmax_cape_omp = 0.0   
+    call getin('coef_epmax_cape', coef_epmax_cape_omp)        
+    !
+    !Config Key  = ok_adj_ema
+    !Config Desc =  
+    !Config Def  = false
+    !Config Help = 
+    !
+    ok_adj_ema_omp = .false.
+    call getin('ok_adj_ema',ok_adj_ema_omp)
+    !
+    !Config Key  = iflag_clw
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_clw_omp = 0
+    call getin('iflag_clw',iflag_clw_omp)
+    !
+    !Config Key  = cld_lc_lsc 
+    !Config Desc =  
+    !Config Def  = 2.6e-4
+    !Config Help = 
+    !
+    cld_lc_lsc_omp = 2.6e-4
+    call getin('cld_lc_lsc',cld_lc_lsc_omp)
+    !
+    !Config Key  = cld_lc_con
+    !Config Desc =  
+    !Config Def  = 2.6e-4
+    !Config Help = 
+    !
+    cld_lc_con_omp = 2.6e-4
+    call getin('cld_lc_con',cld_lc_con_omp)
+    !
+    !Config Key  = cld_tau_lsc
+    !Config Desc =  
+    !Config Def  = 3600.
+    !Config Help = 
+    !
+    cld_tau_lsc_omp = 3600.
+    call getin('cld_tau_lsc',cld_tau_lsc_omp)
+    !
+    !Config Key  = cld_tau_con
+    !Config Desc =  
+    !Config Def  = 3600.
+    !Config Help = 
+    !
+    cld_tau_con_omp = 3600.
+    call getin('cld_tau_con',cld_tau_con_omp)
+    !
+    !Config Key  = ffallv_lsc
+    !Config Desc =  
+    !Config Def  = 1.
+    !Config Help = 
+    !
+    ffallv_lsc_omp = 1.
+    call getin('ffallv_lsc',ffallv_lsc_omp)
+    !
+    !Config Key  = ffallv_con
+    !Config Desc =  
+    !Config Def  = 1.
+    !Config Help = 
+    !
+    ffallv_con_omp = 1.
+    call getin('ffallv_con',ffallv_con_omp)
+    !
+    !Config Key  = coef_eva
+    !Config Desc =  
+    !Config Def  = 2.e-5
+    !Config Help = 
+    !
+    coef_eva_omp = 2.e-5
+    call getin('coef_eva',coef_eva_omp)
+    !
+    !Config Key  = reevap_ice
+    !Config Desc =  
+    !Config Def  = .false.
+    !Config Help = 
+    !
+    reevap_ice_omp = .false.
+    call getin('reevap_ice',reevap_ice_omp)
+
+    !Config Key  = iflag_ratqs
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    iflag_ratqs_omp = 1
+    call getin('iflag_ratqs',iflag_ratqs_omp)
+
+    !
+    !Config Key  = iflag_radia 
+    !Config Desc =  
+    !Config Def  = 1
+    !Config Help = 
+    !
+    iflag_radia_omp = 1
+    call getin('iflag_radia',iflag_radia_omp)
+
+    !
+    !Config Key  = iflag_rrtm 
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_rrtm_omp = 0
+    call getin('iflag_rrtm',iflag_rrtm_omp)
+
+    !
+    !Config Key  = NSW 
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    NSW_omp = 2
+    call getin('NSW',NSW_omp)
+    !albedo SB >>>
+    iflag_albedo_omp = 0
+    call getin('iflag_albedo',iflag_albedo_omp)
+
+    ok_chlorophyll_omp=.false.
+    call getin('ok_chlorophyll',ok_chlorophyll_omp)
+    !albedo SB <<<
+
+    !
+    !Config Key  = iflag_cld_th 
+    !Config Desc =  
+    !Config Def  = 1
+    !Config Help = 
+    !
+    iflag_cld_th_omp = 1
+    ! On lit deux fois avec l'ancien et le nouveau nom 
+    ! pour assurer une retrocompatiblite.
+    ! A abandonner un jour
+    call getin('iflag_cldcon',iflag_cld_th_omp)
+    call getin('iflag_cld_th',iflag_cld_th_omp)
+    iflag_cld_cv_omp = 0 
+    call getin('iflag_cld_cv',iflag_cld_cv_omp)
+
+    !
+    !Config Key  = tau_cld_cv
+    !Config Desc =
+    !Config Def  = 10.
+    !Config Help =
+    !
+    tau_cld_cv_omp = 10.
+    call getin('tau_cld_cv',tau_cld_cv_omp)
+
+    !
+    !Config Key  = coefw_cld_cv
+    !Config Desc =
+    !Config Def  = 0.1
+    !Config Help =
+    !
+    coefw_cld_cv_omp = 0.1
+    call getin('coefw_cld_cv',coefw_cld_cv_omp)
+
+
+
+
+    !
+    !Config Key  = iflag_pdf 
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_pdf_omp = 0
+    call getin('iflag_pdf',iflag_pdf_omp)
+    !
+    !Config Key  = fact_cldcon
+    !Config Desc =  
+    !Config Def  = 0.375
+    !Config Help = 
+    !
+    fact_cldcon_omp = 0.375
+    call getin('fact_cldcon',fact_cldcon_omp)
+
+    !
+    !Config Key  = facttemps
+    !Config Desc =  
+    !Config Def  = 1.e-4
+    !Config Help = 
+    !
+    facttemps_omp = 1.e-4
+    call getin('facttemps',facttemps_omp)
+
+    !
+    !Config Key  = ok_newmicro
+    !Config Desc =  
+    !Config Def  = .true.
+    !Config Help = 
+    !
+    ok_newmicro_omp = .true.
+    call getin('ok_newmicro',ok_newmicro_omp)
+    !
+    !Config Key  = ratqsbas
+    !Config Desc =  
+    !Config Def  = 0.01
+    !Config Help = 
+    !
+    ratqsbas_omp = 0.01
+    call getin('ratqsbas',ratqsbas_omp)
+    !
+    !Config Key  = ratqshaut
+    !Config Desc =  
+    !Config Def  = 0.3
+    !Config Help = 
+    !
+    ratqshaut_omp = 0.3
+    call getin('ratqshaut',ratqshaut_omp)
+
+    !Config Key  = tau_ratqs
+    !Config Desc =  
+    !Config Def  = 1800.
+    !Config Help = 
+    !
+    tau_ratqs_omp = 1800.
+    call getin('tau_ratqs',tau_ratqs_omp)
+
+    !
+    !-----------------------------------------------------------------------
+    ! Longitude solaire pour le calcul de l'ensoleillement en degre
+    ! si on veut imposer la saison. Sinon, solarlong0=-999.999
+    !Config Key  = solarlong0
+    !Config Desc =  
+    !Config Def  = -999.999 
+    !Config Help = 
+    !
+    solarlong0_omp = -999.999
+    call getin('solarlong0',solarlong0_omp)
+    !
+    !-----------------------------------------------------------------------
+    !  Valeur imposee pour configuration idealisees
+    !Config Key  = qsol0 pour le bucket, evap0 pour aquaplanetes, albsno0
+    ! Default value -1 to activate the full computation
+    qsol0_omp = -1.
+    call getin('qsol0',qsol0_omp)
+    evap0_omp = -1.
+    call getin('evap0',evap0_omp)
+    albsno0_omp = -1.
+    call getin('albsno0',albsno0_omp)
+    !
+    !-----------------------------------------------------------------------
+    !
+    !Config Key  = inertie_ice
+    !Config Desc =  
+    !Config Def  = 2000.
+    !Config Help = 
+    !
+    inertie_ice_omp = 2000.
+    call getin('inertie_ice',inertie_ice_omp)
+    !
+    !Config Key  = inertie_sno
+    !Config Desc =  
+    !Config Def  = 2000.
+    !Config Help = 
+    !
+    inertie_sno_omp = 2000.
+    call getin('inertie_sno',inertie_sno_omp)
+    !
+    !Config Key  = inertie_sol
+    !Config Desc =  
+    !Config Def  = 2000.
+    !Config Help = 
+    !
+    inertie_sol_omp = 2000.
+    call getin('inertie_sol',inertie_sol_omp)
+
+    !
+    !Config Key  = rad_froid
+    !Config Desc =  
+    !Config Def  = 35.0
+    !Config Help = 
+    !
+    rad_froid_omp = 35.0
+    call getin('rad_froid',rad_froid_omp)
+
+    !
+    !Config Key  = rad_chau1
+    !Config Desc =  
+    !Config Def  = 13.0
+    !Config Help = 
+    !
+    rad_chau1_omp = 13.0
+    call getin('rad_chau1',rad_chau1_omp)
+
+    !
+    !Config Key  = rad_chau2
+    !Config Desc =  
+    !Config Def  = 9.0
+    !Config Help = 
+    !
+    rad_chau2_omp = 9.0
+    call getin('rad_chau2',rad_chau2_omp)
+
+    !
+    !Config Key  = t_glace_min
+    !Config Desc =  
+    !Config Def  = 258.
+    !Config Help = 
+    !
+    t_glace_min_omp = 258.
+    call getin('t_glace_min',t_glace_min_omp)
+
+    !
+    !Config Key  = t_glace_max
+    !Config Desc =  
+    !Config Def  = 273.13
+    !Config Help = 
+    !
+    t_glace_max_omp = 273.13
+    call getin('t_glace_max',t_glace_max_omp)
+
+    !
+    !Config Key  = exposant_glace
+    !Config Desc =  
+    !Config Def  = 2.
+    !Config Help = 
+    !
+    exposant_glace_omp = 1.
+    call getin('exposant_glace',exposant_glace_omp)
+
+    !
+    !Config Key  = iflag_t_glace
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_t_glace_omp = 0
+    call getin('iflag_t_glace',iflag_t_glace_omp)
+
+    !
+    !Config Key  = iflag_cloudth_vert
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_cloudth_vert_omp = 0
+    call getin('iflag_cloudth_vert',iflag_cloudth_vert_omp)
+
+    !
+    !Config Key  = iflag_ice_thermo
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_ice_thermo_omp = 0
+    call getin('iflag_ice_thermo',iflag_ice_thermo_omp)
+
+    !Config Key  = rei_min
+    !Config Desc =  
+    !Config Def  = 3.5
+    !Config Help = 
+    !
+    rei_min_omp = 3.5
+    call getin('rei_min',rei_min_omp)
+
+    !
+    !Config Key  = rei_max
+    !Config Desc =  
+    !Config Def  = 61.29
+    !Config Help = 
+    !
+    rei_max_omp = 61.29
+    call getin('rei_max',rei_max_omp)
+
+    !
+    !Config Key  = top_height
+    !Config Desc =
+    !Config Def  = 3
+    !Config Help =
+    !
+    top_height_omp = 3
+    call getin('top_height',top_height_omp)
+
+    !
+    !Config Key  = overlap
+    !Config Desc =
+    !Config Def  = 3
+    !Config Help =
+    !
+    overlap_omp = 3
+    call getin('overlap',overlap_omp)
+
+
+    !
+    !
+    !Config Key  = cdmmax
+    !Config Desc =
+    !Config Def  = 1.3E-3
+    !Config Help =
+    !
+    cdmmax_omp = 1.3E-3
+    call getin('cdmmax',cdmmax_omp)
+
+    !
+    !Config Key  = cdhmax
+    !Config Desc =
+    !Config Def  = 1.1E-3
+    !Config Help =
+    !
+    cdhmax_omp = 1.1E-3
+    call getin('cdhmax',cdhmax_omp)
+
+    !261103
+    !
+    !Config Key  = ksta
+    !Config Desc =
+    !Config Def  = 1.0e-10
+    !Config Help =
+    !
+    ksta_omp = 1.0e-10
+    call getin('ksta',ksta_omp)
+
+    !
+    !Config Key  = ksta_ter
+    !Config Desc =
+    !Config Def  = 1.0e-10
+    !Config Help =
+    !
+    ksta_ter_omp = 1.0e-10
+    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
+    !Config Desc =
+    !Config Def  = .true.
+    !Config Help =
+    !
+    ok_kzmin_omp = .true.
+    call getin('ok_kzmin',ok_kzmin_omp)
+
+    pbl_lmixmin_alpha_omp=0.0
+    call getin('pbl_lmixmin_alpha',pbl_lmixmin_alpha_omp)
+
+
+    !
+    !Config Key  = fmagic
+    !Config Desc = additionnal multiplicator factor used for albedo
+    !Config Def  = 1.
+    !Config Help = additionnal multiplicator factor used in albedo.F
+    !
+    fmagic_omp = 1.
+    call getin('fmagic',fmagic_omp)
+
+    !
+    !Config Key  = pmagic
+    !Config Desc = additional factor used for albedo
+    !Config Def  = 0.
+    !Config Help = additional factor used in albedo.F
+    !
+    pmagic_omp = 0.
+    call getin('pmagic',pmagic_omp)
+
+
+    !Config Key = ok_lic_melt
+    !Config Desc = Prise en compte de la fonte de la calotte dans le bilan d'eau
+    !Config Def  = .false.
+    !Config Help = mettre a .false. pour assurer la conservation en eau
+    ok_lic_melt_omp = .false.
+    call getin('ok_lic_melt', ok_lic_melt_omp)
+
+    !
+    ! PARAMETER FOR THE PLANETARY BOUNDARY LAYER
+    !
+
+    !Config Key  = iflag_pbl
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    iflag_pbl_omp = 1
+    call getin('iflag_pbl',iflag_pbl_omp)
+    !
+    !Config Key  = iflag_pbl_split
+    !Config Desc = binary flag: least signif bit = split vdf; next bit = split thermals
+    !Config Def  = 0
+    !Config Help = 0-> no splitting; 1-> vdf splitting; 2-> thermals splitting; 3-> full splitting
+    !
+    iflag_pbl_split_omp = 0
+    call getin('iflag_pbl_split',iflag_pbl_split_omp)
+    !
+    !Config Key  = iflag_order2_sollw
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    iflag_order2_sollw_omp = 0
+    call getin('iflag_order2_sollw',iflag_order2_sollw_omp)
+    !
+    !Config Key  = iflag_thermals
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    iflag_thermals_omp = 0
+    call getin('iflag_thermals',iflag_thermals_omp)
+    !
+    !Config Key  = iflag_thermals_ed
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    fact_thermals_ed_dz_omp = 0.1
+
+    call getin('fact_thermals_ed_dz',fact_thermals_ed_dz_omp)
+    !
+    !
+    !Config Key  = iflag_thermals_ed
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    iflag_thermals_ed_omp = 0
+    call getin('iflag_thermals_ed',iflag_thermals_ed_omp)
+    !
+    !
+    !Config Key  = iflag_thermals_optflux
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    iflag_thermals_optflux_omp = 0
+    call getin('iflag_thermals_optflux',iflag_thermals_optflux_omp)
+    !
+    !Config Key  = iflag_thermals_closure
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    iflag_thermals_closure_omp = 1
+    call getin('iflag_thermals_closure',iflag_thermals_closure_omp)
+    !
+    !
+    !
+    !
+    !Config Key  = nsplit_thermals
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    nsplit_thermals_omp = 1
+    call getin('nsplit_thermals',nsplit_thermals_omp)
+
+    !Config Key  = alp_bl_k
+    !Config Desc =
+    !Config Def  = 0.
+    !Config Help =
+    !
+    alp_bl_k_omp = 1.
+    call getin('alp_bl_k',alp_bl_k_omp)
+
+    ! nrlmd le 10/04/2012
+
+    !Config Key  = iflag_trig_bl
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_trig_bl_omp = 0
+    call getin('iflag_trig_bl',iflag_trig_bl_omp)
+
+    !Config Key  = s_trig_bl
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    s_trig_omp = 2e7
+    call getin('s_trig',s_trig_omp)
+
+    !Config Key  = tau_trig_shallow
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    tau_trig_shallow_omp = 600
+    call getin('tau_trig_shallow',tau_trig_shallow_omp)
+
+    !Config Key  = tau_trig_deep
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    tau_trig_deep_omp = 1800
+    call getin('tau_trig_deep',tau_trig_deep_omp)
+
+    !Config Key  = iflag_clos_bl
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_clos_bl_omp = 0
+    call getin('iflag_clos_bl',iflag_clos_bl_omp)
+
+    ! fin nrlmd le 10/04/2012
+
+    !
+    !Config Key  = tau_thermals
+    !Config Desc =
+    !Config Def  = 0.
+    !Config Help =
+    !
+    tau_thermals_omp = 0.
+    call getin('tau_thermals',tau_thermals_omp)
+
+    !
+    !Config Key  = iflag_coupl
+    !Config Desc =
+    !Config Def  = 0
+    !Config Help =
+    !
+    iflag_coupl_omp = 0
+    call getin('iflag_coupl',iflag_coupl_omp)
+
+    !
+    !Config Key  = iflag_clos
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_clos_omp = 1
+    call getin('iflag_clos',iflag_clos_omp)
+    !
+    !Config Key  = coef_clos_ls
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    coef_clos_ls_omp = 0.
+    call getin('coef_clos_ls',coef_clos_ls_omp)
+
+    !
+    !Config Key  = iflag_cvl_sigd
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_cvl_sigd_omp = 0
+    call getin('iflag_cvl_sigd',iflag_cvl_sigd_omp)
+
+    !Config Key  = iflag_wake
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    iflag_wake_omp = 0
+    call getin('iflag_wake',iflag_wake_omp)
+
+    !Config Key  = alp_offset
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    alp_offset_omp = 0.
+    call getin('alp_offset',alp_offset_omp)
+
+    !
+    !Config Key  = lev_histhf
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    lev_histhf_omp = 1
+    call getin('lev_histhf',lev_histhf_omp)
+
+    !
+    !Config Key  = lev_histday
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    lev_histday_omp = 1
+    call getin('lev_histday',lev_histday_omp)
+
+    !
+    !Config Key  = lev_histmth
+    !Config Desc =
+    !Config Def  = 2
+    !Config Help =
+    !
+    lev_histmth_omp = 2
+    call getin('lev_histmth',lev_histmth_omp)
+    !
+    !Config Key  = lev_histins
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    lev_histins_omp = 1
+    call getin('lev_histins',lev_histins_omp)
+    !
+    !Config Key  = lev_histLES
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    lev_histLES_omp = 1
+    call getin('lev_histLES',lev_histLES_omp)
+    ! 
+    !Config Key  = lev_histdayNMC
+    !Config Desc =
+    !Config Def  = 8
+    !Config Help =
+    !
+    lev_histdayNMC_omp = 8
+    call getin('lev_histdayNMC',lev_histdayNMC_omp)
+    !
+    !Config Key  = levout_histNMC
+    !Config Desc =
+    !Config Def  = 5
+    !Config Help =
+    !
+    levout_histNMC_omp(1) = 5
+    levout_histNMC_omp(2) = 5
+    levout_histNMC_omp(3) = 5
+    call getin('levout_histNMC',levout_histNMC_omp)
+    !
+    !histNMC BEG
+    !Config Key  = ok_histNMC
+    !Config Desc = ok_histNMC(1) = frequence de sortie fichiers histmthNMC
+    !Config Desc = ok_histNMC(2) = frequence de sortie fichiers histdayNMC
+    !Config Desc = ok_histNMC(3) = frequence de sortie fichiers histhfNMC
+    !Config Def  = n, n, n
+    !Config Help =
+    !
+    ok_histNMC_omp(1) = .false.
+    ok_histNMC_omp(2) = .false.
+    ok_histNMC_omp(3) = .false.
+    call getin('ok_histNMC',ok_histNMC_omp)
+    !
+    !Config Key  = freq_outNMC
+    !Config Desc = freq_outNMC(1) = frequence de sortie fichiers histmthNMC
+    !Config Desc = freq_outNMC(2) = frequence de sortie fichiers histdayNMC
+    !Config Desc = freq_outNMC(3) = frequence de sortie fichiers histhfNMC
+    !Config Def  = 2592000., 86400., 21600. (1mois, 1jour, 6h) 
+    !Config Help =
+    !
+    freq_outNMC_omp(1) = mth_len
+    freq_outNMC_omp(2) = 1.
+    freq_outNMC_omp(3) = 1./4.
+    call getin('freq_outNMC',freq_outNMC_omp)
+    !
+    !Config Key  = freq_calNMC
+    !Config Desc = freq_calNMC(1) = frequence de calcul fichiers histmthNMC
+    !Config Desc = freq_calNMC(2) = frequence de calcul fichiers histdayNMC
+    !Config Desc = freq_calNMC(3) = frequence de calcul fichiers histhfNMC
+    !Config Def  = pasphys
+    !Config Help =
+    !
+    freq_calNMC_omp(1) = pasphys
+    freq_calNMC_omp(2) = pasphys
+    freq_calNMC_omp(3) = pasphys
+    call getin('freq_calNMC',freq_calNMC_omp)
+    !
+    !Config Key  = type_run
+    !Config Desc =
+    !Config Def  = 'AMIP'/'CFMIP'  ou 'CLIM'/'ENSP'
+    !Config Help =
+    !
+    type_run_omp = 'AMIP'
+    call getin('type_run',type_run_omp)
+
+    !
+    !Config Key  = ok_cosp
+    !Config Desc =
+    !Config Def  = .false.
+    !Config Help =
+    !
+    ok_cosp_omp = .false.
+    call getin('ok_cosp',ok_cosp_omp)
+
+    !
+    !Config Key  = ok_airs
+    !Config Desc =
+    !Config Def  = .false.
+    !Config Help =
+    !
+    ok_airs_omp = .false.
+    call getin('ok_airs',ok_airs_omp)
+
+    !
+    !Config Key  = ok_mensuelCOSP
+    !Config Desc =
+    !Config Def  = .true.
+    !Config Help =
+    !
+    ok_mensuelCOSP_omp = .true.
+    call getin('ok_mensuelCOSP',ok_mensuelCOSP_omp)
+
+    !
+    !Config Key  = ok_journeCOSP
+    !Config Desc =
+    !Config Def  = .true.
+    !Config Help = 
+    !
+    ok_journeCOSP_omp = .true.
+    call getin('ok_journeCOSP',ok_journeCOSP_omp)
+
+    !
+    !Config Key  = ok_hfCOSP
+    !Config Desc =
+    !Config Def  = .false.
+    !Config Help =
+    !
+    ok_hfCOSP_omp = .false.
+    call getin('ok_hfCOSP',ok_hfCOSP_omp)
+
+    !
+    ! coordonnees (lonmin_ins, lonmax_ins, latmin_ins, latmax_ins) pour la zone 
+    ! avec sorties instantannees tous les pas de temps de la physique => "histbilKP_ins.nc"
+    !
+    !Config Key  = lonmin_ins
+    !Config Desc = 100.  
+    !Config Def  = longitude minimale sorties "bilKP_ins"
+    !Config Help = 
+    !
+    lonmin_ins_omp = 100.
+    call getin('lonmin_ins',lonmin_ins_omp)
+    !
+    !Config Key  = lonmax_ins
+    !Config Desc = 130. 
+    !Config Def  = longitude maximale sorties "bilKP_ins"
+    !Config Help =
+    !
+    lonmax_ins_omp = 130.
+    call getin('lonmax_ins',lonmax_ins_omp)
+    !
+    !Config Key  = latmin_ins
+    !Config Desc = -20.  
+    !Config Def  = latitude minimale sorties "bilKP_ins"
+    !Config Help = 
+    !
+    latmin_ins_omp = -20.
+    call getin('latmin_ins',latmin_ins_omp)
+    !
+    !Config Key  = latmax_ins
+    !Config Desc = 20. 
+    !Config Def  = latitude maximale sorties "bilKP_ins"
+    !Config Help =
+    !
+    latmax_ins_omp = 20.
+    call getin('latmax_ins',latmax_ins_omp)
+    !
+    !Config Key  = ecrit_hf
+    !Config Desc =
+    !Config Def  = 1./8. !toutes les 3h
+    !Config Help =
+    !
+    ecrit_hf_omp = 1./8.
+    call getin('ecrit_hf',ecrit_hf_omp)
+    !
+    !Config Key  = ecrit_ins
+    !Config Desc =
+    !Config Def  = 1./48. ! toutes les 1/2 h
+    !Config Help =
+    !
+    ecrit_ins_omp = 1./48.
+    call getin('ecrit_ins',ecrit_ins_omp)
+    !
+    !Config Key  = ecrit_day
+    !Config Desc =
+    !Config Def  = 1.0 !tous les jours
+    !Config Help = nombre de jours pour ecriture fichier histday.nc
+    !
+    ecrit_day_omp = 1.0
+    call getin('ecrit_day',ecrit_day_omp)
+    !
+    !Config Key  = ecrit_mth
+    !Config Desc =
+    !Config Def  = 30. !tous les 30jours (1 fois par mois)
+    !Config Help =
+    !
+    ecrit_mth_omp = 30.
+    call getin('ecrit_mth',ecrit_mth_omp)
+    !
+    !Config Key  = ecrit_tra
+    !Config Desc =
+    !Config Def  = 30. !tous les 30jours (1 fois par mois)
+    !Config Help =
+    !
+    ecrit_tra_omp = 0.
+    call getin('ecrit_tra',ecrit_tra_omp)
+    !
+    !Config Key  = ecrit_reg
+    !Config Desc =
+    !Config Def  = 0.25  !4 fois par jour
+    !Config Help =
+    !
+    ecrit_reg_omp = 0.25   !4 fois par jour
+    call getin('ecrit_reg',ecrit_reg_omp)
+    !
+    !
+    print*,'CONFPHYS OOK avant drag_ter'
+    !
+    ! PARAMETRES CDRAG
+    !
+    f_cdrag_ter_omp = 0.8
+    call getin('f_cdrag_ter',f_cdrag_ter_omp)
+    !
+    f_cdrag_oce_omp = 0.8
+    call getin('f_cdrag_oce',f_cdrag_oce_omp)
+    !
+
+    ! Gustiness flags
+    f_z0qh_oce_omp = 1.
+    call getin('f_z0qh_oce',f_z0qh_oce_omp)
+    !
+    f_qsat_oce_omp = 1.
+    call getin('f_qsat_oce',f_qsat_oce_omp)
+    !
+    f_gust_bl_omp = 0.
+    call getin('f_gust_bl',f_gust_bl_omp)
+    !
+    f_gust_wk_omp = 0.
+    call getin('f_gust_wk',f_gust_wk_omp)
+    !
+    !Config Key  = iflag_z0_oce
+    !Config Desc = 0 (z0h=z0m), 1 (diff. equ. for z0h and z0m), -1 (z0m=z0h=z0min)
+    !Config Def  = 0   ! z0h = z0m
+    !Config Help =
+    !
+    iflag_z0_oce_omp=0
+    call getin('iflag_z0_oce',iflag_z0_oce_omp)
+    !
+    iflag_gusts_omp=0
+    call getin('iflag_gusts',iflag_gusts_omp)
+    !
+    min_wind_speed_omp = 1.
+    call getin('min_wind_speed',min_wind_speed_omp)
+
+    z0m_seaice_omp = 0.002 ; call getin('z0m_seaice',z0m_seaice_omp)
+    z0h_seaice_omp = 0.002 ; call getin('z0h_seaice',z0h_seaice_omp)
+
+    f_rugoro_omp = 0.
+    call getin('f_rugoro',f_rugoro_omp)
+
+    z0min_omp = 0.000015
+    call getin('z0min',z0min_omp)
+
+
+    ! PARAMETERS FOR CONVECTIVE INHIBITION BY TROPOS. DRYNESS
+    !
+    !Config Key  = supcrit1
+    !Config Desc =
+    !Config Def  = .540
+    !Config Help =
+    !
+    supcrit1_omp = .540
+    call getin('supcrit1',supcrit1_omp)
+
+    !
+    !Config Key  = supcrit2
+    !Config Desc =
+    !Config Def  = .600
+    !Config Help =
+    !
+    supcrit2_omp = .600
+    call getin('supcrit2',supcrit2_omp)
+
+    !
+    ! PARAMETERS FOR THE MIXING DISTRIBUTION
+    ! iflag_mix: 0=OLD, 
+    !            1=NEW (JYG),            
+    !            2=NEW + conv. depth inhib. by tropos. dryness
+    ! '2' is NOT operationnal and should not be used.
+    !
+    !Config Key  = iflag_mix
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    iflag_mix_omp = 1
+    call getin('iflag_mix',iflag_mix_omp)
+
+!
+    ! PARAMETERS FOR THE EROSION OF THE ADIABATIC ASCENTS
+    ! iflag_mix_adiab: 0=OLD, 
+    !                  1=NEW (CR),            
+    !            
+    !
+    !Config Key  = iflag_mix_adiab
+    !Config Desc =
+    !Config Def  = 1
+    !Config Help =
+    !
+    iflag_mix_adiab_omp = 0
+    call getin('iflag_mix_adiab',iflag_mix_adiab_omp)
+
+    !
+    !Config Key  = scut
+    !Config Desc =
+    !Config Def  = 0.95
+    !Config Help =
+    !
+    scut_omp = 0.95
+    call getin('scut',scut_omp)
+
+    !
+    !Config Key  = qqa1
+    !Config Desc =
+    !Config Def  = 1.0
+    !Config Help =
+    !
+    qqa1_omp = 1.0
+    call getin('qqa1',qqa1_omp)
+
+    !
+    !Config Key  = qqa2
+    !Config Desc =
+    !Config Def  = 0.0
+    !Config Help =
+    !
+    qqa2_omp = 0.0
+    call getin('qqa2',qqa2_omp)
+
+    !
+    !Config Key  = gammas
+    !Config Desc =
+    !Config Def  = 0.05
+    !Config Help =
+    !
+    gammas_omp = 0.05
+    call getin('gammas',gammas_omp)
+
+    !
+    !Config Key  = Fmax
+    !Config Desc =
+    !Config Def  = 0.65
+    !Config Help =
+    !
+    Fmax_omp = 0.65
+    call getin('Fmax',Fmax_omp)
+
+    !
+    !Config Key  = tmax_fonte_cv
+    !Config Desc =
+    !Config Def  = 275.15
+    !Config Help =
+    !
+    tmax_fonte_cv_omp = 275.15
+    call getin('tmax_fonte_cv',tmax_fonte_cv_omp)
+
+    !
+    !Config Key  = alphas  
+    !Config Desc =
+    !Config Def  = -5.
+    !Config Help =
+    !
+    alphas_omp = -5.
+    call getin('alphas',alphas_omp)
+
+    !Config key = ok_strato
+    !Config  Desc = activation de la version strato
+    !Config  Def  = .FALSE.
+    !Config  Help = active la version stratosph\'erique de LMDZ de F. Lott
+    !               Et la sponge layer (Runs Stratospheriques)
+
+    ok_strato_omp=.FALSE.
+    CALL getin('ok_strato',ok_strato_omp)
+
+    !Config  key = ok_hines
+    !Config  Desc = activation de la parametrisation de hines
+    !Config  Def  = .FALSE.
+    !Config  Help = Clefs controlant la parametrization de Hines
+
+    ok_hines_omp=.FALSE.
+    CALL getin('ok_hines',ok_hines_omp)
+
+    !  Parametres pour les ondes de gravite
+    !  
+    !  Subgrid Scale Orography (Lott Miller (1997), Lott (1999))
+
+    sso_gkdrag_omp = merge(0.1875, 0.2, ok_strato_omp)
+    CALL getin('sso_gkdrag', sso_gkdrag_omp)
+
+    sso_grahil_omp=merge(0.1,1.,ok_strato_omp)
+    CALL getin('sso_grahil', sso_grahil_omp)
+
+    sso_grcrit_omp =merge(1.,0.01,ok_strato_omp)
+    CALL getin('sso_grcrit', sso_grcrit_omp)
+
+    sso_gfrcri_omp = 1.
+    CALL getin('sso_gfrcri', sso_gfrcri_omp)
+
+    sso_gkwake_omp = 0.50
+    CALL getin('sso_gkwake', sso_gkwake_omp)
+
+    sso_gklift_omp = merge(0.25,0.50,ok_strato_omp)
+    CALL getin('sso_gklift', sso_gklift_omp)
+
+    ! Random gravity waves:
+
+    ok_gwd_rando_omp = .FALSE.
+    IF ( klon_glo == 1 ) THEN
+       print*,'La parametrisation des ondes de gravites non orographiques'
+       print*,'ne fonctionne pas en 1D'
+    ELSE
+       CALL getin('ok_gwd_rando', ok_gwd_rando_omp)
+    ENDIF
+
+    gwd_rando_ruwmax_omp = 2.00
+    CALL getin('gwd_rando_ruwmax', gwd_rando_ruwmax_omp)
+
+    gwd_rando_sat_omp = 0.25
+    CALL getin('gwd_rando_sat', gwd_rando_sat_omp)
+
+    gwd_front_ruwmax_omp = 2.50
+    CALL getin('gwd_front_ruwmax', gwd_front_ruwmax_omp)
+
+    gwd_front_sat_omp = 0.60
+    CALL getin('gwd_front_sat', gwd_front_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                                               
+    !Config Desc = Pour des sorties LES                                 
+    !Config Def  = .false.                                              
+    !Config Help = Pour creer le fichier histLES contenant les sorties  
+    !              LES                                                  
+    !                                                                   
+    ok_LES_omp = .false.                                              
+    call getin('OK_LES', ok_LES_omp)                                  
+
+    !Config Key  = callstats                                               
+    !Config Desc = Pour des sorties callstats                                 
+    !Config Def  = .false.                                              
+    !Config Help = Pour creer le fichier stats contenant les sorties  
+    !              stats                                                  
+    !                                                                   
+    callstats_omp = .false.                                              
+    call getin('callstats', callstats_omp)                                  
+    !
+    !Config Key  = ecrit_LES
+    !Config Desc = Frequence d'ecriture des resultats du LES en nombre de jours;
+    !              par defaut 1., i.e. 1 jour
+    !Config Def  = 1./8.
+    !Config Help = ... 
+    !
+    !
+    ecrit_LES_omp = 1./8.
+    call getin('ecrit_LES', ecrit_LES_omp)
+    !
+    read_climoz = 0 ! default value
+    call getin('read_climoz', read_climoz)
+
+    carbon_cycle_tr_omp=.FALSE.
+    CALL getin('carbon_cycle_tr',carbon_cycle_tr_omp)
+
+    carbon_cycle_cpl_omp=.FALSE.
+    CALL getin('carbon_cycle_cpl',carbon_cycle_cpl_omp)
+
+    !$OMP END MASTER
+    !$OMP BARRIER
+
+    R_ecc = R_ecc_omp
+    R_peri = R_peri_omp
+    R_incl = R_incl_omp
+    solaire = solaire_omp
+    ok_suntime_rrtm = ok_suntime_rrtm_omp
+    co2_ppm = co2_ppm_omp
+    RCO2 = RCO2_omp
+    CH4_ppb = CH4_ppb_omp
+    RCH4 = RCH4_omp
+    N2O_ppb = N2O_ppb_omp
+    RN2O = RN2O_omp
+    CFC11_ppt = CFC11_ppt_omp
+    RCFC11 = RCFC11_omp
+    CFC12_ppt = CFC12_ppt_omp
+    RCFC12 = RCFC12_omp
+    RCO2_act = RCO2
+    RCH4_act = RCH4
+    RN2O_act = RN2O
+    RCFC11_act = RCFC11
+    RCFC12_act = RCFC12
+    ok_4xCO2atm = ok_4xCO2atm_omp
+    RCO2_per = RCO2_per_omp
+    RCH4_per = RCH4_per_omp
+    RN2O_per = RN2O_per_omp
+    RCFC11_per = RCFC11_per_omp
+    RCFC12_per = RCFC12_per_omp
+
+    cycle_diurne = cycle_diurne_omp
+    soil_model = soil_model_omp
+    new_oliq = new_oliq_omp
+    ok_orodr = ok_orodr_omp
+    ok_orolf = ok_orolf_omp
+    ok_limitvrai = ok_limitvrai_omp
+    nbapp_rad = nbapp_rad_omp
+    iflag_con = iflag_con_omp
+    iflag_ener_conserv = iflag_ener_conserv_omp
+    ok_conserv_q = ok_conserv_q_omp
+    iflag_fisrtilp_qsat = iflag_fisrtilp_qsat_omp
+    iflag_bergeron = iflag_bergeron_omp
+
+    epmax = epmax_omp
+    coef_epmax_cape = coef_epmax_cape_omp
+    ok_adj_ema = ok_adj_ema_omp
+    iflag_clw = iflag_clw_omp
+    cld_lc_lsc = cld_lc_lsc_omp
+    cld_lc_con = cld_lc_con_omp
+    cld_tau_lsc = cld_tau_lsc_omp
+    cld_tau_con = cld_tau_con_omp
+    ffallv_lsc = ffallv_lsc_omp
+    ffallv_con = ffallv_con_omp
+    coef_eva = coef_eva_omp
+    reevap_ice = reevap_ice_omp
+    iflag_pdf = iflag_pdf_omp
+    solarlong0 = solarlong0_omp
+    qsol0 = qsol0_omp
+    evap0 = evap0_omp
+    albsno0 = albsno0_omp
+    inertie_sol = inertie_sol_omp
+    inertie_ice = inertie_ice_omp
+    inertie_sno = inertie_sno_omp
+    rad_froid = rad_froid_omp
+    rad_chau1 = rad_chau1_omp
+    rad_chau2 = rad_chau2_omp
+    t_glace_min = t_glace_min_omp
+    t_glace_max = t_glace_max_omp
+    exposant_glace = exposant_glace_omp
+    iflag_t_glace = iflag_t_glace_omp
+    iflag_cloudth_vert=iflag_cloudth_vert_omp
+    iflag_ice_thermo = iflag_ice_thermo_omp
+    rei_min = rei_min_omp
+    rei_max = rei_max_omp
+    top_height = top_height_omp
+    overlap = overlap_omp
+    cdmmax = cdmmax_omp
+    cdhmax = cdhmax_omp
+    ksta = ksta_omp
+    ksta_ter = ksta_ter_omp
+    f_ri_cd_min = f_ri_cd_min_omp
+    ok_kzmin = ok_kzmin_omp
+    pbl_lmixmin_alpha=pbl_lmixmin_alpha_omp
+    fmagic = fmagic_omp
+    pmagic = pmagic_omp
+    iflag_pbl = iflag_pbl_omp
+    iflag_pbl_split = iflag_pbl_split_omp
+    iflag_order2_sollw = iflag_order2_sollw_omp
+    lev_histhf = lev_histhf_omp
+    lev_histday = lev_histday_omp
+    lev_histmth = lev_histmth_omp
+    lev_histins = lev_histins_omp
+    lev_histLES = lev_histLES_omp
+    lev_histdayNMC = lev_histdayNMC_omp
+    levout_histNMC = levout_histNMC_omp
+    ok_histNMC(:) = ok_histNMC_omp(:)
+    freq_outNMC(:) = freq_outNMC_omp(:)
+    freq_calNMC(:) = freq_calNMC_omp(:)
+
+    type_ocean = type_ocean_omp
+    version_ocean = version_ocean_omp
+    t_coupl = t_coupl_omp
+
+    ok_veget=.true.
+    type_veget=type_veget_omp
+    if (type_veget=='n' .or. type_veget=='bucket' .or. type_veget=='betaclim') &
+         then
+       ok_veget=.false.
+    endif
+    ! Martin
+    ok_snow = ok_snow_omp
+    ! Martin
+
+    ok_all_xml = ok_all_xml_omp
+    ok_newmicro = ok_newmicro_omp
+    ok_journe = ok_journe_omp
+    ok_hf = ok_hf_omp
+    ok_mensuel = ok_mensuel_omp
+    ok_instan = ok_instan_omp
+    freq_ISCCP = freq_ISCCP_omp
+    ecrit_ISCCP = ecrit_ISCCP_omp
+    freq_COSP = freq_COSP_omp
+    freq_AIRS = freq_AIRS_omp
+    ok_ade = ok_ade_omp
+    ok_aie = ok_aie_omp
+    ok_cdnc = ok_cdnc_omp
+    aerosol_couple = aerosol_couple_omp
+    flag_aerosol=flag_aerosol_omp
+    flag_aerosol_strat=flag_aerosol_strat_omp
+    new_aod=new_aod_omp
+    aer_type = aer_type_omp
+    bl95_b0 = bl95_b0_omp
+    bl95_b1 = bl95_b1_omp
+    fact_cldcon = fact_cldcon_omp
+    facttemps = facttemps_omp
+    ratqsbas = ratqsbas_omp
+    ratqshaut = ratqshaut_omp
+    tau_ratqs = tau_ratqs_omp
+
+    iflag_radia = iflag_radia_omp
+    iflag_rrtm = iflag_rrtm_omp
+    iflag_albedo = iflag_albedo_omp
+    ok_chlorophyll = ok_chlorophyll_omp
+    NSW = NSW_omp
+    iflag_cld_th = iflag_cld_th_omp
+    iflag_cld_cv = iflag_cld_cv_omp
+    tau_cld_cv = tau_cld_cv_omp
+    coefw_cld_cv = coefw_cld_cv_omp
+    iflag_ratqs = iflag_ratqs_omp
+    ip_ebil_phy = ip_ebil_phy_omp
+    iflag_thermals = iflag_thermals_omp
+    iflag_thermals_ed = iflag_thermals_ed_omp
+    fact_thermals_ed_dz = fact_thermals_ed_dz_omp
+    iflag_thermals_optflux = iflag_thermals_optflux_omp
+    iflag_thermals_closure = iflag_thermals_closure_omp
+    nsplit_thermals = nsplit_thermals_omp
+    tau_thermals = tau_thermals_omp
+    alp_bl_k = alp_bl_k_omp
+    ! nrlmd le 10/04/2012
+    iflag_trig_bl = iflag_trig_bl_omp
+    s_trig = s_trig_omp
+    tau_trig_shallow = tau_trig_shallow_omp
+    tau_trig_deep = tau_trig_deep_omp
+    iflag_clos_bl = iflag_clos_bl_omp
+    ! fin nrlmd le 10/04/2012
+    iflag_coupl = iflag_coupl_omp
+    iflag_clos = iflag_clos_omp
+    iflag_wake = iflag_wake_omp
+    coef_clos_ls = coef_clos_ls_omp
+    alp_offset = alp_offset_omp
+    iflag_cvl_sigd = iflag_cvl_sigd_omp
+    type_run = type_run_omp
+    ok_cosp = ok_cosp_omp
+    ok_airs = ok_airs_omp
+
+    ok_mensuelCOSP = ok_mensuelCOSP_omp
+    ok_journeCOSP = ok_journeCOSP_omp
+    ok_hfCOSP = ok_hfCOSP_omp
+    seuil_inversion=seuil_inversion_omp
+    lonmin_ins = lonmin_ins_omp
+    lonmax_ins = lonmax_ins_omp
+    latmin_ins = latmin_ins_omp
+    latmax_ins = latmax_ins_omp
+    ecrit_hf   = ecrit_hf_omp
+    ecrit_ins   = ecrit_ins_omp
+    ecrit_day = ecrit_day_omp
+    ecrit_mth = ecrit_mth_omp
+    ecrit_tra = ecrit_tra_omp
+    ecrit_reg = ecrit_reg_omp
+    cvl_comp_threshold = cvl_comp_threshold_omp
+    cvl_sig2feed = cvl_sig2feed_omp
+    cvl_corr = cvl_corr_omp
+    ok_lic_melt = ok_lic_melt_omp
+    f_cdrag_ter=f_cdrag_ter_omp
+    f_cdrag_oce=f_cdrag_oce_omp
+
+    f_gust_wk=f_gust_wk_omp
+    f_gust_bl=f_gust_bl_omp
+    f_qsat_oce=f_qsat_oce_omp
+    f_z0qh_oce=f_z0qh_oce_omp
+    min_wind_speed=min_wind_speed_omp
+    iflag_gusts=iflag_gusts_omp
+    iflag_z0_oce=iflag_z0_oce_omp
+
+
+    z0m_seaice=z0m_seaice_omp
+    z0h_seaice=z0h_seaice_omp
+
+    f_rugoro=f_rugoro_omp
+
+    z0min=z0min_omp
+    supcrit1 = supcrit1_omp
+    supcrit2 = supcrit2_omp
+    iflag_mix = iflag_mix_omp
+    iflag_mix_adiab = iflag_mix_adiab_omp
+    scut = scut_omp
+    qqa1 = qqa1_omp
+    qqa2 = qqa2_omp
+    gammas = gammas_omp
+    Fmax = Fmax_omp
+    tmax_fonte_cv = tmax_fonte_cv_omp
+    alphas = alphas_omp
+
+    gkdrag=sso_gkdrag_omp
+    grahilo=sso_grahil_omp
+    grcrit=sso_grcrit_omp
+    gfrcrit=sso_gfrcri_omp
+    gkwake=sso_gkwake_omp 
+    gklift=sso_gklift_omp 
+
+    ok_strato = ok_strato_omp
+    ok_hines = ok_hines_omp
+    ok_gwd_rando = ok_gwd_rando_omp
+    gwd_rando_ruwmax = gwd_rando_ruwmax_omp
+    gwd_rando_sat = gwd_rando_sat_omp
+    gwd_front_ruwmax = gwd_front_ruwmax_omp
+    gwd_front_sat = gwd_front_sat_omp
+    ok_qch4 = ok_qch4_omp
+    ok_LES = ok_LES_omp
+    callstats = callstats_omp
+    ecrit_LES = ecrit_LES_omp
+    carbon_cycle_tr = carbon_cycle_tr_omp
+    carbon_cycle_cpl = carbon_cycle_cpl_omp
+
+    ! Test of coherence between type_ocean and version_ocean
+    IF (type_ocean=='couple' .AND. (version_ocean/='opa8' .AND. version_ocean/='nemo') ) THEN
+       WRITE(lunout,*)' ERROR version_ocean=',version_ocean,' not valid in coupled configuration'
+       CALL abort_physic('conf_phys','version_ocean not valid',1)
+    END IF
+
+    IF (type_ocean=='slab' .AND. version_ocean=='xxxxxx') THEN
+       version_ocean='sicOBS'
+    ELSE IF (type_ocean=='slab' .AND. version_ocean/='sicOBS' &
+         .AND. version_ocean/='sicINT' .AND. version_ocean/='sicNO') THEN
+       WRITE(lunout,*)' ERROR version_ocean=',version_ocean,' not valid with slab ocean'
+       CALL abort_physic('conf_phys','version_ocean not valid',1)
+    END IF
+
+    !--test on radiative scheme 
+    IF (iflag_rrtm .EQ. 0) THEN 
+      IF (NSW.NE.2) THEN 
+        WRITE(lunout,*) ' ERROR iflag_rrtm=0 and NSW<>2 not possible'
+        CALL abort_physic('conf_phys','choice NSW not valid',1)
+      ENDIF
+    ELSE IF (iflag_rrtm .EQ. 1) THEN
+      IF (NSW.NE.2.AND.NSW.NE.4.AND.NSW.NE.6) THEN
+        WRITE(lunout,*) ' ERROR iflag_rrtm=1 and NSW<>2,4,6 not possible'
+        CALL abort_physic('conf_phys','choice NSW not valid',1)
+      ENDIF
+    ELSE 
+       WRITE(lunout,*) ' ERROR iflag_rrtm<>0,1'
+       CALL abort_physic('conf_phys','choice iflag_rrtm not valid',1)
+    ENDIF
+
+    !--test on ocean surface albedo
+    IF (iflag_albedo.LT.0.OR.iflag_albedo.GT.1) THEN
+       WRITE(lunout,*) ' ERROR iflag_albedo<>0,1'
+       CALL abort_physic('conf_phys','choice iflag_albedo not valid',1)
+    ENDIF
+
+    ! Test sur new_aod. Ce flag permet de retrouver les resultats de l'AR4
+    ! il n'est utilisable que lors du couplage avec le SO4 seul 
+    IF (ok_ade .OR. ok_aie) THEN 
+       IF ( flag_aerosol .EQ. 0 ) THEN
+          CALL abort_physic('conf_phys','flag_aerosol=0 not compatible avec ok_ade ou ok_aie=.TRUE.',1)
+       END IF
+       IF ( .NOT. new_aod .AND.  flag_aerosol .NE. 1) THEN
+          CALL abort_physic('conf_phys','new_aod=.FALSE. not compatible avec flag_aerosol=1',1)
+       END IF
+    END IF
+
+    ! Flag_aerosol cannot be to zero if we are in coupled mode for aerosol
+    IF (aerosol_couple .AND. flag_aerosol .eq. 0 ) THEN
+       CALL abort_physic('conf_phys', 'flag_aerosol cannot be to zero if aerosol_couple=y ', 1)
+    ENDIF
+
+    ! flag_aerosol need to be different to zero if ok_cdnc is activated
+    IF (ok_cdnc .AND. flag_aerosol .eq. 0) THEN
+       CALL abort_physic('conf_phys', 'flag_aerosol cannot be to zero if ok_cdnc is activated ', 1)
+    ENDIF
+
+    ! ok_cdnc must be set to y if ok_aie is activated
+    IF (ok_aie .AND. .NOT. ok_cdnc) THEN
+       CALL abort_physic('conf_phys', 'ok_cdnc must be set to y if ok_aie is activated',1)
+    ENDIF
+
+    !$OMP MASTER
+
+    write(lunout,*)' ##############################################'
+    write(lunout,*)' Configuration des parametres de la physique: '
+    write(lunout,*)' Type ocean = ', type_ocean
+    write(lunout,*)' Version ocean = ', version_ocean
+    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
+    write(lunout,*)' Sortie mensuelle = ', ok_mensuel
+    write(lunout,*)' Sortie instantanee = ', ok_instan
+    write(lunout,*)' Frequence appel simulateur ISCCP, freq_ISCCP =', freq_ISCCP
+    write(lunout,*)' Frequence appel simulateur ISCCP, ecrit_ISCCP =', ecrit_ISCCP
+    write(lunout,*)' Frequence appel simulateur COSP, freq_COSP =', freq_COSP
+    write(lunout,*)' Frequence appel simulateur AIRS, freq_AIRS =', freq_AIRS
+    write(lunout,*)' Sortie bilan d''energie, ip_ebil_phy =', ip_ebil_phy
+    write(lunout,*)' Excentricite = ',R_ecc
+    write(lunout,*)' Equinoxe = ',R_peri
+    write(lunout,*)' Inclinaison =',R_incl
+    write(lunout,*)' Constante solaire =',solaire
+    write(lunout,*)' ok_suntime_rrtm =',ok_suntime_rrtm
+    write(lunout,*)' co2_ppm =',co2_ppm
+    write(lunout,*)' RCO2_act = ',RCO2_act
+    write(lunout,*)' CH4_ppb =',CH4_ppb,' RCH4_act = ',RCH4_act
+    write(lunout,*)' N2O_ppb =',N2O_ppb,' RN2O_act=  ',RN2O_act
+    write(lunout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11_act=  ',RCFC11_act
+    write(lunout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12_act=  ',RCFC12_act
+    write(lunout,*)' ok_4xCO2atm=',ok_4xCO2atm
+    write(lunout,*)' RCO2_per = ',RCO2_per,' RCH4_per = ', RCH4_per
+    write(lunout,*)' RN2O_per = ',RN2O_per,' RCFC11_per = ', RCFC11_per
+    write(lunout,*)' RCFC12_per = ',RCFC12_per
+    write(lunout,*)' cvl_comp_threshold=', cvl_comp_threshold
+    write(lunout,*)' cvl_sig2feed=', cvl_sig2feed
+    write(lunout,*)' cvl_corr=', cvl_corr
+    write(lunout,*)'ok_lic_melt=', ok_lic_melt
+    write(lunout,*)'cycle_diurne=',cycle_diurne
+    write(lunout,*)'soil_model=',soil_model
+    write(lunout,*)'new_oliq=',new_oliq
+    write(lunout,*)'ok_orodr=',ok_orodr
+    write(lunout,*)'ok_orolf=',ok_orolf
+    write(lunout,*)'ok_limitvrai=',ok_limitvrai
+    write(lunout,*)'nbapp_rad=',nbapp_rad
+    write(lunout,*)'iflag_con=',iflag_con
+    write(lunout,*)'iflag_ener_conserv=',iflag_ener_conserv
+    write(lunout,*)'ok_conserv_q=',ok_conserv_q
+    write(lunout,*)'iflag_fisrtilp_qsat=',iflag_fisrtilp_qsat
+    write(lunout,*)'iflag_bergeron=',iflag_bergeron
+    write(lunout,*)' epmax = ', epmax
+    write(lunout,*)' coef_epmax_cape = ', coef_epmax_cape
+    write(lunout,*)' ok_adj_ema = ', ok_adj_ema
+    write(lunout,*)' iflag_clw = ', iflag_clw
+    write(lunout,*)' cld_lc_lsc = ', cld_lc_lsc
+    write(lunout,*)' cld_lc_con = ', cld_lc_con
+    write(lunout,*)' cld_tau_lsc = ', cld_tau_lsc
+    write(lunout,*)' cld_tau_con = ', cld_tau_con
+    write(lunout,*)' ffallv_lsc = ', ffallv_lsc
+    write(lunout,*)' ffallv_con = ', ffallv_con
+    write(lunout,*)' coef_eva = ', coef_eva
+    write(lunout,*)' reevap_ice = ', reevap_ice
+    write(lunout,*)' iflag_pdf = ', iflag_pdf
+    write(lunout,*)' iflag_cld_th = ', iflag_cld_th
+    write(lunout,*)' iflag_cld_cv = ', iflag_cld_cv
+    write(lunout,*)' tau_cld_cv = ', tau_cld_cv
+    write(lunout,*)' coefw_cld_cv = ', coefw_cld_cv
+    write(lunout,*)' iflag_radia = ', iflag_radia
+    write(lunout,*)' iflag_rrtm = ', iflag_rrtm
+    write(lunout,*)' NSW = ', NSW
+    write(lunout,*)' iflag_albedo = ', iflag_albedo !albedo SB
+    write(lunout,*)' ok_chlorophyll =',ok_chlorophyll ! albedo SB
+    write(lunout,*)' iflag_ratqs = ', iflag_ratqs
+    write(lunout,*)' seuil_inversion = ', seuil_inversion
+    write(lunout,*)' fact_cldcon = ', fact_cldcon
+    write(lunout,*)' facttemps = ', facttemps
+    write(lunout,*)' ok_newmicro = ',ok_newmicro 
+    write(lunout,*)' ratqsbas = ',ratqsbas 
+    write(lunout,*)' ratqshaut = ',ratqshaut 
+    write(lunout,*)' tau_ratqs = ',tau_ratqs 
+    write(lunout,*)' top_height = ',top_height 
+    write(lunout,*)' rad_froid = ',rad_froid
+    write(lunout,*)' rad_chau1 = ',rad_chau1
+    write(lunout,*)' rad_chau2 = ',rad_chau2
+    write(lunout,*)' t_glace_min = ',t_glace_min
+    write(lunout,*)' t_glace_max = ',t_glace_max
+    write(lunout,*)' exposant_glace = ',exposant_glace
+    write(lunout,*)' iflag_t_glace = ',iflag_t_glace
+    write(lunout,*)' iflag_cloudth_vert = ',iflag_cloudth_vert
+    write(lunout,*)' iflag_ice_thermo = ',iflag_ice_thermo
+    write(lunout,*)' rei_min = ',rei_min
+    write(lunout,*)' rei_max = ',rei_max
+    write(lunout,*)' overlap = ',overlap 
+    write(lunout,*)' cdmmax = ',cdmmax 
+    write(lunout,*)' cdhmax = ',cdhmax 
+    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,*)' pbl_lmixmin_alpha = ',pbl_lmixmin_alpha
+    write(lunout,*)' fmagic = ',fmagic
+    write(lunout,*)' pmagic = ',pmagic
+    write(lunout,*)' ok_ade = ',ok_ade
+    write(lunout,*)' ok_aie = ',ok_aie
+    write(lunout,*)' aerosol_couple = ', aerosol_couple
+    write(lunout,*)' flag_aerosol = ', flag_aerosol
+    write(lunout,*)' flag_aerosol_strat = ', flag_aerosol_strat
+    write(lunout,*)' new_aod = ', new_aod
+    write(lunout,*)' aer_type = ',aer_type
+    write(lunout,*)' bl95_b0 = ',bl95_b0
+    write(lunout,*)' bl95_b1 = ',bl95_b1
+    write(lunout,*)' lev_histhf = ',lev_histhf 
+    write(lunout,*)' lev_histday = ',lev_histday 
+    write(lunout,*)' lev_histmth = ',lev_histmth 
+    write(lunout,*)' lev_histins = ',lev_histins
+    write(lunout,*)' lev_histLES = ',lev_histLES
+    write(lunout,*)' lev_histdayNMC = ',lev_histdayNMC
+    write(lunout,*)' levout_histNMC = ',levout_histNMC
+    write(lunout,*)' ok_histNMC = ',ok_histNMC
+    write(lunout,*)' freq_outNMC = ',freq_outNMC
+    write(lunout,*)' freq_calNMC = ',freq_calNMC
+    write(lunout,*)' iflag_pbl = ', iflag_pbl
+    write(lunout,*)' iflag_pbl_split = ', iflag_pbl_split
+    write(lunout,*)' iflag_order2_sollw = ', iflag_order2_sollw
+    write(lunout,*)' iflag_thermals = ', iflag_thermals
+    write(lunout,*)' iflag_thermals_ed = ', iflag_thermals_ed
+    write(lunout,*)' fact_thermals_ed_dz = ', fact_thermals_ed_dz
+    write(lunout,*)' iflag_thermals_optflux = ', iflag_thermals_optflux
+    write(lunout,*)' iflag_thermals_closure = ', iflag_thermals_closure
+    write(lunout,*)' iflag_clos = ', iflag_clos
+    write(lunout,*)' coef_clos_ls = ', coef_clos_ls
+    write(lunout,*)' type_run = ',type_run 
+    write(lunout,*)' ok_cosp = ',ok_cosp
+    write(lunout,*)' ok_airs = ',ok_airs
+
+    write(lunout,*)' ok_mensuelCOSP = ',ok_mensuelCOSP
+    write(lunout,*)' ok_journeCOSP = ',ok_journeCOSP
+    write(lunout,*)' ok_hfCOSP =',ok_hfCOSP
+    write(lunout,*)' solarlong0 = ', solarlong0
+    write(lunout,*)' qsol0 = ', qsol0
+    write(lunout,*)' evap0 = ', evap0
+    write(lunout,*)' albsno0 = ', albsno0
+    write(lunout,*)' inertie_sol = ', inertie_sol
+    write(lunout,*)' inertie_ice = ', inertie_ice
+    write(lunout,*)' inertie_sno = ', inertie_sno
+    write(lunout,*)' f_cdrag_ter = ',f_cdrag_ter
+    write(lunout,*)' f_cdrag_oce = ',f_cdrag_oce
+    write(lunout,*)' f_rugoro = ',f_rugoro
+    write(lunout,*)' z0min = ',z0min
+    write(lunout,*)' supcrit1 = ', supcrit1
+    write(lunout,*)' supcrit2 = ', supcrit2
+    write(lunout,*)' iflag_mix = ', iflag_mix
+    write(lunout,*)' iflag_mix_adiab = ', iflag_mix_adiab
+    write(lunout,*)' scut = ', scut
+    write(lunout,*)' qqa1 = ', qqa1
+    write(lunout,*)' qqa2 = ', qqa2
+    write(lunout,*)' gammas = ', gammas
+    write(lunout,*)' Fmax = ', Fmax
+    write(lunout,*)' tmax_fonte_cv = ', tmax_fonte_cv
+    write(lunout,*)' alphas = ', alphas
+    write(lunout,*)' iflag_wake = ', iflag_wake
+    write(lunout,*)' alp_offset = ', alp_offset
+    ! nrlmd le 10/04/2012
+    write(lunout,*)' iflag_trig_bl = ', iflag_trig_bl
+    write(lunout,*)' s_trig = ', s_trig
+    write(lunout,*)' tau_trig_shallow = ', tau_trig_shallow
+    write(lunout,*)' tau_trig_deep = ', tau_trig_deep
+    write(lunout,*)' iflag_clos_bl = ', iflag_clos_bl
+    ! fin nrlmd le 10/04/2012
+
+    write(lunout,*)' lonmin lonmax latmin latmax bilKP_ins =',&
+         lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
+    write(lunout,*)' ecrit_ hf, ins, day, mth, reg, tra, ISCCP, LES',&
+         ecrit_hf, ecrit_ins, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra, ecrit_ISCCP, ecrit_LES
+
+    write(lunout,*) 'ok_strato = ', ok_strato
+    write(lunout,*) 'ok_hines = ',  ok_hines
+    write(lunout,*) 'ok_gwd_rando = ',  ok_gwd_rando
+    write(lunout,*) 'ok_qch4 = ',  ok_qch4
+    write(lunout,*) 'gwd_rando_ruwmax = ', gwd_rando_ruwmax
+    write(lunout,*) 'gwd_rando_sat = ', gwd_rando_sat
+    write(lunout,*) 'gwd_front_ruwmax = ', gwd_front_ruwmax
+    write(lunout,*) 'gwd_front_sat = ', gwd_front_sat
+    write(lunout,*) 'SSO gkdrag =',gkdrag
+    write(lunout,*) 'SSO grahilo=',grahilo
+    write(lunout,*) 'SSO grcrit=',grcrit
+    write(lunout,*) 'SSO gfrcrit=',gfrcrit
+    write(lunout,*) 'SSO gkwake=',gkwake
+    write(lunout,*) 'SSO gklift=',gklift
+    write(lunout,*) 'read_climoz = ', read_climoz
+    write(lunout,*) 'carbon_cycle_tr = ', carbon_cycle_tr
+    write(lunout,*) 'carbon_cycle_cpl = ', carbon_cycle_cpl
+
+    !$OMP END MASTER
+
+    return
+
+  end subroutine conf_phys
+
+end module conf_phys_m
+!
+!#################################################################
+!
+
+subroutine conf_interface(tau_calv)
+
+  use IOIPSL
+  USE print_control_mod, ONLY: lunout
+  implicit none
+  ! Configuration de l'interace atm/surf
+  !
+  ! tau_calv:    temps de relaxation pour la fonte des glaciers
+
+  REAL          :: tau_calv
+  REAL,SAVE     :: tau_calv_omp
+
+  !
+  !Config Key  = tau_calv
+  !Config Desc = temps de relaxation pour fonte des glaciers en jours
+  !Config Def  = 1 an 
+  !Config Help = 
+  !
+  tau_calv_omp = 360.*10.
+  !$OMP MASTER
+  call getin('tau_calv',tau_calv_omp)
+  !$OMP END MASTER
+  !$OMP BARRIER
+
+  tau_calv=tau_calv_omp
+
+  !$OMP MASTER
+  write(lunout,*)' ##############################################'
+  WRITE(lunout,*)' Configuration de l''interface atm/surfaces  : '
+  WRITE(lunout,*)' tau_calv = ',tau_calv
+  !$OMP END MASTER
+
+  return
+
+end subroutine conf_interface
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conflx.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conflx.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conflx.F90	(revision 3330)
@@ -0,0 +1,1608 @@
+
+! $Header$
+
+SUBROUTINE conflx(dtime, pres_h, pres_f, t, q, con_t, con_q, pqhfl, w, d_t, &
+    d_q, rain, snow, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, kcbot, kctop, &
+    kdtop, pmflxr, pmflxs)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19941014
+  ! Objet: Schema flux de masse pour la convection
+  ! (schema de Tiedtke avec qqs modifications mineures)
+  ! Dec.97: Prise en compte des modifications introduites par
+  ! Olivier Boucher et Alexandre Armengaud pour melange
+  ! et lessivage des traceurs passifs.
+  ! ======================================================================
+  include "YOMCST.h"
+  include "YOETHF.h"
+  ! Entree:
+  REAL dtime ! pas d'integration (s)
+  REAL pres_h(klon, klev+1) ! pression half-level (Pa)
+  REAL pres_f(klon, klev) ! pression full-level (Pa)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (g/g)
+  REAL w(klon, klev) ! vitesse verticale (Pa/s)
+  REAL con_t(klon, klev) ! convergence de temperature (K/s)
+  REAL con_q(klon, klev) ! convergence de l'eau vapeur (g/g/s)
+  REAL pqhfl(klon) ! evaporation (negative vers haut) mm/s
+  ! Sortie:
+  REAL d_t(klon, klev) ! incrementation de temperature
+  REAL d_q(klon, klev) ! incrementation d'humidite
+  REAL pmfu(klon, klev) ! flux masse (kg/m2/s) panache ascendant
+  REAL pmfd(klon, klev) ! flux masse (kg/m2/s) panache descendant
+  REAL pen_u(klon, klev)
+  REAL pen_d(klon, klev)
+  REAL pde_u(klon, klev)
+  REAL pde_d(klon, klev)
+  REAL rain(klon) ! pluie (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  REAL pmflxr(klon, klev+1)
+  REAL pmflxs(klon, klev+1)
+  INTEGER kcbot(klon) ! niveau du bas de la convection
+  INTEGER kctop(klon) ! niveau du haut de la convection
+  INTEGER kdtop(klon) ! niveau du haut des downdrafts
+  ! Local:
+  REAL pt(klon, klev)
+  REAL pq(klon, klev)
+  REAL pqs(klon, klev)
+  REAL pvervel(klon, klev)
+  LOGICAL land(klon)
+
+  REAL d_t_bis(klon, klev)
+  REAL d_q_bis(klon, klev)
+  REAL paprs(klon, klev+1)
+  REAL paprsf(klon, klev)
+  REAL zgeom(klon, klev)
+  REAL zcvgq(klon, klev)
+  REAL zcvgt(klon, klev)
+  ! AA
+  REAL zmfu(klon, klev)
+  REAL zmfd(klon, klev)
+  REAL zen_u(klon, klev)
+  REAL zen_d(klon, klev)
+  REAL zde_u(klon, klev)
+  REAL zde_d(klon, klev)
+  REAL zmflxr(klon, klev+1)
+  REAL zmflxs(klon, klev+1)
+  ! AA
+
+
+  INTEGER i, k
+  REAL zdelta, zqsat
+
+  include "FCTTRE.h"
+
+  ! initialiser les variables de sortie (pour securite)
+  DO i = 1, klon
+    rain(i) = 0.0
+    snow(i) = 0.0
+    kcbot(i) = 0
+    kctop(i) = 0
+    kdtop(i) = 0
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+      pmfu(i, k) = 0.0
+      pmfd(i, k) = 0.0
+      pen_u(i, k) = 0.0
+      pde_u(i, k) = 0.0
+      pen_d(i, k) = 0.0
+      pde_d(i, k) = 0.0
+      zmfu(i, k) = 0.0
+      zmfd(i, k) = 0.0
+      zen_u(i, k) = 0.0
+      zde_u(i, k) = 0.0
+      zen_d(i, k) = 0.0
+      zde_d(i, k) = 0.0
+    END DO
+  END DO
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      zmflxr(i, k) = 0.0
+      zmflxs(i, k) = 0.0
+    END DO
+  END DO
+
+  ! calculer la nature du sol (pour l'instant, ocean partout)
+  DO i = 1, klon
+    land(i) = .FALSE.
+  END DO
+
+  ! preparer les variables d'entree (attention: l'ordre des niveaux
+  ! verticaux augmente du haut vers le bas)
+  DO k = 1, klev
+    DO i = 1, klon
+      pt(i, k) = t(i, klev-k+1)
+      pq(i, k) = q(i, klev-k+1)
+      paprsf(i, k) = pres_f(i, klev-k+1)
+      paprs(i, k) = pres_h(i, klev+1-k+1)
+      pvervel(i, k) = w(i, klev+1-k)
+      zcvgt(i, k) = con_t(i, klev-k+1)
+      zcvgq(i, k) = con_q(i, klev-k+1)
+
+      zdelta = max(0., sign(1.,rtt-pt(i,k)))
+      zqsat = r2es*foeew(pt(i,k), zdelta)/paprsf(i, k)
+      zqsat = min(0.5, zqsat)
+      zqsat = zqsat/(1.-retv*zqsat)
+      pqs(i, k) = zqsat
+    END DO
+  END DO
+  DO i = 1, klon
+    paprs(i, klev+1) = pres_h(i, 1)
+    zgeom(i, klev) = rd*pt(i, klev)/(0.5*(paprs(i,klev+1)+paprsf(i, &
+      klev)))*(paprs(i,klev+1)-paprsf(i,klev))
+  END DO
+  DO k = klev - 1, 1, -1
+    DO i = 1, klon
+      zgeom(i, k) = zgeom(i, k+1) + rd*0.5*(pt(i,k+1)+pt(i,k))/paprs(i, k+1)* &
+        (paprsf(i,k+1)-paprsf(i,k))
+    END DO
+  END DO
+
+  ! appeler la routine principale
+
+  CALL flxmain(dtime, pt, pq, pqs, pqhfl, paprsf, paprs, zgeom, land, zcvgt, &
+    zcvgq, pvervel, rain, snow, kcbot, kctop, kdtop, zmfu, zmfd, zen_u, &
+    zde_u, zen_d, zde_d, d_t_bis, d_q_bis, zmflxr, zmflxs)
+
+  ! AA--------------------------------------------------------
+  ! AA rem : De la meme facon que l'on effectue le reindicage
+  ! AA       pour la temperature t et le champ q
+  ! AA       on reindice les flux necessaires a la convection
+  ! AA       des traceurs
+  ! AA--------------------------------------------------------
+  DO k = 1, klev
+    DO i = 1, klon
+      d_q(i, klev+1-k) = dtime*d_q_bis(i, k)
+      d_t(i, klev+1-k) = dtime*d_t_bis(i, k)
+    END DO
+  END DO
+
+  DO i = 1, klon
+    pmfu(i, 1) = 0.
+    pmfd(i, 1) = 0.
+    pen_d(i, 1) = 0.
+    pde_d(i, 1) = 0.
+  END DO
+
+  DO k = 2, klev
+    DO i = 1, klon
+      pmfu(i, klev+2-k) = zmfu(i, k)
+      pmfd(i, klev+2-k) = zmfd(i, k)
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      pen_u(i, klev+1-k) = zen_u(i, k)
+      pde_u(i, klev+1-k) = zde_u(i, k)
+    END DO
+  END DO
+
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      pen_d(i, klev+1-k) = -zen_d(i, k+1)
+      pde_d(i, klev+1-k) = -zde_d(i, k+1)
+    END DO
+  END DO
+
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      pmflxr(i, klev+2-k) = zmflxr(i, k)
+      pmflxs(i, klev+2-k) = zmflxs(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE conflx
+! --------------------------------------------------------------------
+SUBROUTINE flxmain(pdtime, pten, pqen, pqsen, pqhfl, pap, paph, pgeo, ldland, &
+    ptte, pqte, pvervel, prsfc, pssfc, kcbot, kctop, kdtop, & ! *
+                                                              ! ldcum, ktype,
+    pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, dt_con, dq_con, pmflxr, pmflxs)
+  USE dimphy
+  IMPLICIT NONE
+  ! ------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "YOECUMF.h"
+  ! ----------------------------------------------------------------
+  REAL pten(klon, klev), pqen(klon, klev), pqsen(klon, klev)
+  REAL ptte(klon, klev)
+  REAL pqte(klon, klev)
+  REAL pvervel(klon, klev)
+  REAL pgeo(klon, klev), pap(klon, klev), paph(klon, klev+1)
+  REAL pqhfl(klon)
+
+  REAL ptu(klon, klev), pqu(klon, klev), plu(klon, klev)
+  REAL plude(klon, klev)
+  REAL pmfu(klon, klev)
+  REAL prsfc(klon), pssfc(klon)
+  INTEGER kcbot(klon), kctop(klon), ktype(klon)
+  LOGICAL ldland(klon), ldcum(klon)
+
+  REAL ztenh(klon, klev), zqenh(klon, klev), zqsenh(klon, klev)
+  REAL zgeoh(klon, klev)
+  REAL zmfub(klon), zmfub1(klon)
+  REAL zmfus(klon, klev), zmfuq(klon, klev), zmful(klon, klev)
+  REAL zdmfup(klon, klev), zdpmel(klon, klev)
+  REAL zentr(klon), zhcbase(klon)
+  REAL zdqpbl(klon), zdqcv(klon), zdhpbl(klon)
+  REAL zrfl(klon)
+  REAL pmflxr(klon, klev+1)
+  REAL pmflxs(klon, klev+1)
+  INTEGER ilab(klon, klev), ictop0(klon)
+  LOGICAL llo1
+  REAL dt_con(klon, klev), dq_con(klon, klev)
+  REAL zmfmax, zdh
+  REAL pdtime, zqumqe, zdqmin, zalvdcp, zhsat, zzz
+  REAL zhhat, zpbmpt, zgam, zeps, zfac
+  INTEGER i, k, ikb, itopm2, kcum
+
+  REAL pen_u(klon, klev), pde_u(klon, klev)
+  REAL pen_d(klon, klev), pde_d(klon, klev)
+
+  REAL ptd(klon, klev), pqd(klon, klev), pmfd(klon, klev)
+  REAL zmfds(klon, klev), zmfdq(klon, klev), zdmfdp(klon, klev)
+  INTEGER kdtop(klon)
+  LOGICAL lddraf(klon)
+  ! ---------------------------------------------------------------------
+  LOGICAL firstcal
+  SAVE firstcal
+  DATA firstcal/.TRUE./
+  !$OMP THREADPRIVATE(firstcal)
+  ! ---------------------------------------------------------------------
+  IF (firstcal) THEN
+    CALL flxsetup
+    firstcal = .FALSE.
+  END IF
+  ! ---------------------------------------------------------------------
+  DO i = 1, klon
+    ldcum(i) = .FALSE.
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      dt_con(i, k) = 0.0
+      dq_con(i, k) = 0.0
+    END DO
+  END DO
+  ! ----------------------------------------------------------------------
+  ! initialiser les variables et faire l'interpolation verticale
+  ! ----------------------------------------------------------------------
+  CALL flxini(pten, pqen, pqsen, pgeo, paph, zgeoh, ztenh, zqenh, zqsenh, &
+    ptu, pqu, ptd, pqd, pmfd, zmfds, zmfdq, zdmfdp, pmfu, zmfus, zmfuq, &
+    zdmfup, zdpmel, plu, plude, ilab, pen_u, pde_u, pen_d, pde_d)
+  ! ---------------------------------------------------------------------
+  ! determiner les valeurs au niveau de base de la tour convective
+  ! ---------------------------------------------------------------------
+  CALL flxbase(ztenh, zqenh, zgeoh, paph, ptu, pqu, plu, ldcum, kcbot, ilab)
+  ! ---------------------------------------------------------------------
+  ! calculer la convergence totale de l'humidite et celle en provenance
+  ! de la couche limite, plus precisement, la convergence integree entre
+  ! le sol et la base de la convection. Cette derniere convergence est
+  ! comparee avec l'evaporation obtenue dans la couche limite pour
+  ! determiner le type de la convection
+  ! ---------------------------------------------------------------------
+  k = 1
+  DO i = 1, klon
+    zdqcv(i) = pqte(i, k)*(paph(i,k+1)-paph(i,k))
+    zdhpbl(i) = 0.0
+    zdqpbl(i) = 0.0
+  END DO
+
+  DO k = 2, klev
+    DO i = 1, klon
+      zdqcv(i) = zdqcv(i) + pqte(i, k)*(paph(i,k+1)-paph(i,k))
+      IF (k>=kcbot(i)) THEN
+        zdqpbl(i) = zdqpbl(i) + pqte(i, k)*(paph(i,k+1)-paph(i,k))
+        zdhpbl(i) = zdhpbl(i) + (rcpd*ptte(i,k)+rlvtt*pqte(i,k))*(paph(i,k+1) &
+          -paph(i,k))
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    ktype(i) = 2
+    IF (zdqcv(i)>max(0.,-1.5*pqhfl(i)*rg)) ktype(i) = 1
+    ! cc         if (zdqcv(i).GT.MAX(0.,-1.1*pqhfl(i)*RG)) ktype(i) = 1
+  END DO
+
+  ! ---------------------------------------------------------------------
+  ! determiner le flux de masse entrant a travers la base.
+  ! on ignore, pour l'instant, l'effet du panache descendant
+  ! ---------------------------------------------------------------------
+  DO i = 1, klon
+    ikb = kcbot(i)
+    zqumqe = pqu(i, ikb) + plu(i, ikb) - zqenh(i, ikb)
+    zdqmin = max(0.01*zqenh(i,ikb), 1.E-10)
+    IF (zdqpbl(i)>0. .AND. zqumqe>zdqmin .AND. ldcum(i)) THEN
+      zmfub(i) = zdqpbl(i)/(rg*max(zqumqe,zdqmin))
+    ELSE
+      zmfub(i) = 0.01
+      ldcum(i) = .FALSE.
+    END IF
+    IF (ktype(i)==2) THEN
+      zdh = rcpd*(ptu(i,ikb)-ztenh(i,ikb)) + rlvtt*zqumqe
+      zdh = rg*max(zdh, 1.0E5*zdqmin)
+      IF (zdhpbl(i)>0. .AND. ldcum(i)) zmfub(i) = zdhpbl(i)/zdh
+    END IF
+    zmfmax = (paph(i,ikb)-paph(i,ikb-1))/(rg*pdtime)
+    zmfub(i) = min(zmfub(i), zmfmax)
+    zentr(i) = entrscv
+    IF (ktype(i)==1) zentr(i) = entrpen
+  END DO
+  ! -----------------------------------------------------------------------
+  ! DETERMINE CLOUD ASCENT FOR ENTRAINING PLUME
+  ! -----------------------------------------------------------------------
+  ! (A) calculer d'abord la hauteur "theorique" de la tour convective sans
+  ! considerer l'entrainement ni le detrainement du panache, sachant
+  ! ces derniers peuvent abaisser la hauteur theorique.
+
+  DO i = 1, klon
+    ikb = kcbot(i)
+    zhcbase(i) = rcpd*ptu(i, ikb) + zgeoh(i, ikb) + rlvtt*pqu(i, ikb)
+    ictop0(i) = kcbot(i) - 1
+  END DO
+
+  zalvdcp = rlvtt/rcpd
+  DO k = klev - 1, 3, -1
+    DO i = 1, klon
+      zhsat = rcpd*ztenh(i, k) + zgeoh(i, k) + rlvtt*zqsenh(i, k)
+      zgam = r5les*zalvdcp*zqsenh(i, k)/((1.-retv*zqsenh(i,k))*(ztenh(i, &
+        k)-r4les)**2)
+      zzz = rcpd*ztenh(i, k)*0.608
+      zhhat = zhsat - (zzz+zgam*zzz)/(1.+zgam*zzz/rlvtt)*max(zqsenh(i,k)- &
+        zqenh(i,k), 0.)
+      IF (k<ictop0(i) .AND. zhcbase(i)>zhhat) ictop0(i) = k
+    END DO
+  END DO
+
+  ! (B) calculer le panache ascendant
+
+  CALL flxasc(pdtime, ztenh, zqenh, pten, pqen, pqsen, pgeo, zgeoh, pap, &
+    paph, pqte, pvervel, ldland, ldcum, ktype, ilab, ptu, pqu, plu, pmfu, &
+    zmfub, zentr, zmfus, zmfuq, zmful, plude, zdmfup, kcbot, kctop, ictop0, &
+    kcum, pen_u, pde_u)
+  IF (kcum==0) GO TO 1000
+
+  ! verifier l'epaisseur de la convection et changer eventuellement
+  ! le taux d'entrainement/detrainement
+
+  DO i = 1, klon
+    zpbmpt = paph(i, kcbot(i)) - paph(i, kctop(i))
+    IF (ldcum(i) .AND. ktype(i)==1 .AND. zpbmpt<2.E4) ktype(i) = 2
+    IF (ldcum(i)) ictop0(i) = kctop(i)
+    IF (ktype(i)==2) zentr(i) = entrscv
+  END DO
+
+  IF (lmfdd) THEN ! si l'on considere le panache descendant
+
+    ! calculer la precipitation issue du panache ascendant pour
+    ! determiner l'existence du panache descendant dans la convection
+    DO i = 1, klon
+      zrfl(i) = zdmfup(i, 1)
+    END DO
+    DO k = 2, klev
+      DO i = 1, klon
+        zrfl(i) = zrfl(i) + zdmfup(i, k)
+      END DO
+    END DO
+
+    ! determiner le LFS (level of free sinking: niveau de plonge libre)
+    CALL flxdlfs(ztenh, zqenh, zgeoh, paph, ptu, pqu, ldcum, kcbot, kctop, &
+      zmfub, zrfl, ptd, pqd, pmfd, zmfds, zmfdq, zdmfdp, kdtop, lddraf)
+
+    ! calculer le panache descendant
+    CALL flxddraf(ztenh, zqenh, zgeoh, paph, zrfl, ptd, pqd, pmfd, zmfds, &
+      zmfdq, zdmfdp, lddraf, pen_d, pde_d)
+
+    ! calculer de nouveau le flux de masse entrant a travers la base
+    ! de la convection, sachant qu'il a ete modifie par le panache
+    ! descendant
+    DO i = 1, klon
+      IF (lddraf(i)) THEN
+        ikb = kcbot(i)
+        llo1 = pmfd(i, ikb) < 0.
+        zeps = 0.
+        IF (llo1) zeps = cmfdeps
+        zqumqe = pqu(i, ikb) + plu(i, ikb) - zeps*pqd(i, ikb) - &
+          (1.-zeps)*zqenh(i, ikb)
+        zdqmin = max(0.01*zqenh(i,ikb), 1.E-10)
+        zmfmax = (paph(i,ikb)-paph(i,ikb-1))/(rg*pdtime)
+        IF (zdqpbl(i)>0. .AND. zqumqe>zdqmin .AND. ldcum(i) .AND. &
+            zmfub(i)<zmfmax) THEN
+          zmfub1(i) = zdqpbl(i)/(rg*max(zqumqe,zdqmin))
+        ELSE
+          zmfub1(i) = zmfub(i)
+        END IF
+        IF (ktype(i)==2) THEN
+          zdh = rcpd*(ptu(i,ikb)-zeps*ptd(i,ikb)-(1.-zeps)*ztenh(i,ikb)) + &
+            rlvtt*zqumqe
+          zdh = rg*max(zdh, 1.0E5*zdqmin)
+          IF (zdhpbl(i)>0. .AND. ldcum(i)) zmfub1(i) = zdhpbl(i)/zdh
+        END IF
+        IF (.NOT. ((ktype(i)==1 .OR. ktype(i)==2) .AND. abs(zmfub1(i)-zmfub(i &
+          ))<0.2*zmfub(i))) zmfub1(i) = zmfub(i)
+      END IF
+    END DO
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (lddraf(i)) THEN
+          zfac = zmfub1(i)/max(zmfub(i), 1.E-10)
+          pmfd(i, k) = pmfd(i, k)*zfac
+          zmfds(i, k) = zmfds(i, k)*zfac
+          zmfdq(i, k) = zmfdq(i, k)*zfac
+          zdmfdp(i, k) = zdmfdp(i, k)*zfac
+          pen_d(i, k) = pen_d(i, k)*zfac
+          pde_d(i, k) = pde_d(i, k)*zfac
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (lddraf(i)) zmfub(i) = zmfub1(i)
+    END DO
+
+  END IF ! fin de test sur lmfdd
+
+  ! -----------------------------------------------------------------------
+  ! calculer de nouveau le panache ascendant
+  ! -----------------------------------------------------------------------
+  CALL flxasc(pdtime, ztenh, zqenh, pten, pqen, pqsen, pgeo, zgeoh, pap, &
+    paph, pqte, pvervel, ldland, ldcum, ktype, ilab, ptu, pqu, plu, pmfu, &
+    zmfub, zentr, zmfus, zmfuq, zmful, plude, zdmfup, kcbot, kctop, ictop0, &
+    kcum, pen_u, pde_u)
+
+  ! -----------------------------------------------------------------------
+  ! determiner les flux convectifs en forme finale, ainsi que
+  ! la quantite des precipitations
+  ! -----------------------------------------------------------------------
+  CALL flxflux(pdtime, pqen, pqsen, ztenh, zqenh, pap, paph, ldland, zgeoh, &
+    kcbot, kctop, lddraf, kdtop, ktype, ldcum, pmfu, pmfd, zmfus, zmfds, &
+    zmfuq, zmfdq, zmful, plude, zdmfup, zdmfdp, pten, prsfc, pssfc, zdpmel, &
+    itopm2, pmflxr, pmflxs)
+
+  ! ----------------------------------------------------------------------
+  ! calculer les tendances pour T et Q
+  ! ----------------------------------------------------------------------
+  CALL flxdtdq(pdtime, itopm2, paph, ldcum, pten, zmfus, zmfds, zmfuq, zmfdq, &
+    zmful, zdmfup, zdmfdp, zdpmel, dt_con, dq_con)
+
+1000 CONTINUE
+  RETURN
+END SUBROUTINE flxmain
+SUBROUTINE flxini(pten, pqen, pqsen, pgeo, paph, pgeoh, ptenh, pqenh, pqsenh, &
+    ptu, pqu, ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp, pmfu, pmfus, pmfuq, &
+    pdmfup, pdpmel, plu, plude, klab, pen_u, pde_u, pen_d, pde_d)
+  USE dimphy
+  IMPLICIT NONE
+  ! ----------------------------------------------------------------------
+  ! THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC.
+  ! TO HALF LEVELS (I.E. GRID FOR MASSFLUX SCHEME),
+  ! AND INITIALIZES VALUES FOR UPDRAFTS
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+  REAL pten(klon, klev) ! temperature (environnement)
+  REAL pqen(klon, klev) ! humidite (environnement)
+  REAL pqsen(klon, klev) ! humidite saturante (environnement)
+  REAL pgeo(klon, klev) ! geopotentiel (g * metre)
+  REAL pgeoh(klon, klev) ! geopotentiel aux demi-niveaux
+  REAL paph(klon, klev+1) ! pression aux demi-niveaux
+  REAL ptenh(klon, klev) ! temperature aux demi-niveaux
+  REAL pqenh(klon, klev) ! humidite aux demi-niveaux
+  REAL pqsenh(klon, klev) ! humidite saturante aux demi-niveaux
+
+  REAL ptu(klon, klev) ! temperature du panache ascendant (p-a)
+  REAL pqu(klon, klev) ! humidite du p-a
+  REAL plu(klon, klev) ! eau liquide du p-a
+  REAL pmfu(klon, klev) ! flux de masse du p-a
+  REAL pmfus(klon, klev) ! flux de l'energie seche dans le p-a
+  REAL pmfuq(klon, klev) ! flux de l'humidite dans le p-a
+  REAL pdmfup(klon, klev) ! quantite de l'eau precipitee dans p-a
+  REAL plude(klon, klev) ! quantite de l'eau liquide jetee du
+  ! p-a a l'environnement
+  REAL pdpmel(klon, klev) ! quantite de neige fondue
+
+  REAL ptd(klon, klev) ! temperature du panache descendant (p-d)
+  REAL pqd(klon, klev) ! humidite du p-d
+  REAL pmfd(klon, klev) ! flux de masse du p-d
+  REAL pmfds(klon, klev) ! flux de l'energie seche dans le p-d
+  REAL pmfdq(klon, klev) ! flux de l'humidite dans le p-d
+  REAL pdmfdp(klon, klev) ! quantite de precipitation dans p-d
+
+  REAL pen_u(klon, klev) ! quantite de masse entrainee pour p-a
+  REAL pde_u(klon, klev) ! quantite de masse detrainee pour p-a
+  REAL pen_d(klon, klev) ! quantite de masse entrainee pour p-d
+  REAL pde_d(klon, klev) ! quantite de masse detrainee pour p-d
+
+  INTEGER klab(klon, klev)
+  LOGICAL llflag(klon)
+  INTEGER k, i, icall
+  REAL zzs
+  ! ----------------------------------------------------------------------
+  ! SPECIFY LARGE SCALE PARAMETERS AT HALF LEVELS
+  ! ADJUST TEMPERATURE FIELDS IF STATICLY UNSTABLE
+  ! ----------------------------------------------------------------------
+  DO k = 2, klev
+
+    DO i = 1, klon
+      pgeoh(i, k) = pgeo(i, k) + (pgeo(i,k-1)-pgeo(i,k))*0.5
+      ptenh(i, k) = (max(rcpd*pten(i,k-1)+pgeo(i,k-1),rcpd*pten(i,k)+pgeo(i, &
+        k))-pgeoh(i,k))/rcpd
+      pqsenh(i, k) = pqsen(i, k-1)
+      llflag(i) = .TRUE.
+    END DO
+
+    icall = 0
+    CALL flxadjtq(paph(1,k), ptenh(1,k), pqsenh(1,k), llflag, icall)
+
+    DO i = 1, klon
+      pqenh(i, k) = min(pqen(i,k-1), pqsen(i,k-1)) + &
+        (pqsenh(i,k)-pqsen(i,k-1))
+      pqenh(i, k) = max(pqenh(i,k), 0.)
+    END DO
+
+  END DO
+
+  DO i = 1, klon
+    ptenh(i, klev) = (rcpd*pten(i,klev)+pgeo(i,klev)-pgeoh(i,klev))/rcpd
+    pqenh(i, klev) = pqen(i, klev)
+    ptenh(i, 1) = pten(i, 1)
+    pqenh(i, 1) = pqen(i, 1)
+    pgeoh(i, 1) = pgeo(i, 1)
+  END DO
+
+  DO k = klev - 1, 2, -1
+    DO i = 1, klon
+      zzs = max(rcpd*ptenh(i,k)+pgeoh(i,k), rcpd*ptenh(i,k+1)+pgeoh(i,k+1))
+      ptenh(i, k) = (zzs-pgeoh(i,k))/rcpd
+    END DO
+  END DO
+
+  ! -----------------------------------------------------------------------
+  ! INITIALIZE VALUES FOR UPDRAFTS AND DOWNDRAFTS
+  ! -----------------------------------------------------------------------
+  DO k = 1, klev
+    DO i = 1, klon
+      ptu(i, k) = ptenh(i, k)
+      pqu(i, k) = pqenh(i, k)
+      plu(i, k) = 0.
+      pmfu(i, k) = 0.
+      pmfus(i, k) = 0.
+      pmfuq(i, k) = 0.
+      pdmfup(i, k) = 0.
+      pdpmel(i, k) = 0.
+      plude(i, k) = 0.
+
+      klab(i, k) = 0
+
+      ptd(i, k) = ptenh(i, k)
+      pqd(i, k) = pqenh(i, k)
+      pmfd(i, k) = 0.0
+      pmfds(i, k) = 0.0
+      pmfdq(i, k) = 0.0
+      pdmfdp(i, k) = 0.0
+
+      pen_u(i, k) = 0.0
+      pde_u(i, k) = 0.0
+      pen_d(i, k) = 0.0
+      pde_d(i, k) = 0.0
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE flxini
+SUBROUTINE flxbase(ptenh, pqenh, pgeoh, paph, ptu, pqu, plu, ldcum, kcbot, &
+    klab)
+  USE dimphy
+  IMPLICIT NONE
+  ! ----------------------------------------------------------------------
+  ! THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q)
+
+  ! INPUT ARE ENVIRONM. VALUES OF T,Q,P,PHI AT HALF LEVELS.
+  ! IT RETURNS CLOUD BASE VALUES AND FLAGS AS FOLLOWS;
+  ! klab=1 FOR SUBCLOUD LEVELS
+  ! klab=2 FOR CONDENSATION LEVEL
+
+  ! LIFT SURFACE AIR DRY-ADIABATICALLY TO CLOUD BASE
+  ! (NON ENTRAINING PLUME,I.E.CONSTANT MASSFLUX)
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  ! ----------------------------------------------------------------
+  REAL ptenh(klon, klev), pqenh(klon, klev)
+  REAL pgeoh(klon, klev), paph(klon, klev+1)
+
+  REAL ptu(klon, klev), pqu(klon, klev), plu(klon, klev)
+  INTEGER klab(klon, klev), kcbot(klon)
+
+  LOGICAL llflag(klon), ldcum(klon)
+  INTEGER i, k, icall, is
+  REAL zbuo, zqold(klon)
+  ! ----------------------------------------------------------------------
+  ! INITIALIZE VALUES AT LIFTING LEVEL
+  ! ----------------------------------------------------------------------
+  DO i = 1, klon
+    klab(i, klev) = 1
+    kcbot(i) = klev - 1
+    ldcum(i) = .FALSE.
+  END DO
+  ! ----------------------------------------------------------------------
+  ! DO ASCENT IN SUBCLOUD LAYER,
+  ! CHECK FOR EXISTENCE OF CONDENSATION LEVEL,
+  ! ADJUST T,Q AND L ACCORDINGLY
+  ! CHECK FOR BUOYANCY AND SET FLAGS
+  ! ----------------------------------------------------------------------
+  DO k = klev - 1, 2, -1
+
+    is = 0
+    DO i = 1, klon
+      IF (klab(i,k+1)==1) is = is + 1
+      llflag(i) = .FALSE.
+      IF (klab(i,k+1)==1) llflag(i) = .TRUE.
+    END DO
+    IF (is==0) GO TO 290
+
+    DO i = 1, klon
+      IF (llflag(i)) THEN
+        pqu(i, k) = pqu(i, k+1)
+        ptu(i, k) = ptu(i, k+1) + (pgeoh(i,k+1)-pgeoh(i,k))/rcpd
+        zbuo = ptu(i, k)*(1.+retv*pqu(i,k)) - ptenh(i, k)*(1.+retv*pqenh(i,k) &
+          ) + 0.5
+        IF (zbuo>0.) klab(i, k) = 1
+        zqold(i) = pqu(i, k)
+      END IF
+    END DO
+
+    icall = 1
+    CALL flxadjtq(paph(1,k), ptu(1,k), pqu(1,k), llflag, icall)
+
+    DO i = 1, klon
+      IF (llflag(i) .AND. pqu(i,k)/=zqold(i)) THEN
+        klab(i, k) = 2
+        plu(i, k) = plu(i, k) + zqold(i) - pqu(i, k)
+        zbuo = ptu(i, k)*(1.+retv*pqu(i,k)) - ptenh(i, k)*(1.+retv*pqenh(i,k) &
+          ) + 0.5
+        IF (zbuo>0.) kcbot(i) = k
+        IF (zbuo>0.) ldcum(i) = .TRUE.
+      END IF
+    END DO
+
+290 END DO
+
+  RETURN
+END SUBROUTINE flxbase
+SUBROUTINE flxasc(pdtime, ptenh, pqenh, pten, pqen, pqsen, pgeo, pgeoh, pap, &
+    paph, pqte, pvervel, ldland, ldcum, ktype, klab, ptu, pqu, plu, pmfu, &
+    pmfub, pentr, pmfus, pmfuq, pmful, plude, pdmfup, kcbot, kctop, kctop0, &
+    kcum, pen_u, pde_u)
+  USE dimphy
+  IMPLICIT NONE
+  ! ----------------------------------------------------------------------
+  ! THIS ROUTINE DOES THE CALCULATIONS FOR CLOUD ASCENTS
+  ! FOR CUMULUS PARAMETERIZATION
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "YOECUMF.h"
+
+  REAL pdtime
+  REAL pten(klon, klev), ptenh(klon, klev)
+  REAL pqen(klon, klev), pqenh(klon, klev), pqsen(klon, klev)
+  REAL pgeo(klon, klev), pgeoh(klon, klev)
+  REAL pap(klon, klev), paph(klon, klev+1)
+  REAL pqte(klon, klev)
+  REAL pvervel(klon, klev) ! vitesse verticale en Pa/s
+
+  REAL pmfub(klon), pentr(klon)
+  REAL ptu(klon, klev), pqu(klon, klev), plu(klon, klev)
+  REAL plude(klon, klev)
+  REAL pmfu(klon, klev), pmfus(klon, klev)
+  REAL pmfuq(klon, klev), pmful(klon, klev)
+  REAL pdmfup(klon, klev)
+  INTEGER ktype(klon), klab(klon, klev), kcbot(klon), kctop(klon)
+  INTEGER kctop0(klon)
+  LOGICAL ldland(klon), ldcum(klon)
+
+  REAL pen_u(klon, klev), pde_u(klon, klev)
+  REAL zqold(klon)
+  REAL zdland(klon)
+  LOGICAL llflag(klon)
+  INTEGER k, i, is, icall, kcum
+  REAL ztglace, zdphi, zqeen, zseen, zscde, zqude
+  REAL zmfusk, zmfuqk, zmfulk, zbuo, zdnoprc, zprcon, zlnew
+
+  REAL zpbot(klon), zptop(klon), zrho(klon)
+  REAL zdprho, zentr, zpmid, zmftest, zmfmax
+  LOGICAL llo1, llo2
+
+  REAL zwmax(klon), zzzmb
+  INTEGER klwmin(klon) ! level of maximum vertical velocity
+  REAL fact
+  ! ----------------------------------------------------------------------
+  ztglace = rtt - 13.
+
+  ! Chercher le niveau ou la vitesse verticale est maximale:
+  DO i = 1, klon
+    klwmin(i) = klev
+    zwmax(i) = 0.0
+  END DO
+  DO k = klev, 3, -1
+    DO i = 1, klon
+      IF (pvervel(i,k)<zwmax(i)) THEN
+        zwmax(i) = pvervel(i, k)
+        klwmin(i) = k
+      END IF
+    END DO
+  END DO
+  ! ----------------------------------------------------------------------
+  ! SET DEFAULT VALUES
+  ! ----------------------------------------------------------------------
+  DO i = 1, klon
+    IF (.NOT. ldcum(i)) ktype(i) = 0
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      plu(i, k) = 0.
+      pmfu(i, k) = 0.
+      pmfus(i, k) = 0.
+      pmfuq(i, k) = 0.
+      pmful(i, k) = 0.
+      plude(i, k) = 0.
+      pdmfup(i, k) = 0.
+      IF (.NOT. ldcum(i) .OR. ktype(i)==3) klab(i, k) = 0
+      IF (.NOT. ldcum(i) .AND. paph(i,k)<4.E4) kctop0(i) = k
+    END DO
+  END DO
+
+  DO i = 1, klon
+    IF (ldland(i)) THEN
+      zdland(i) = 3.0E4
+      zdphi = pgeoh(i, kctop0(i)) - pgeoh(i, kcbot(i))
+      IF (ptu(i,kctop0(i))>=ztglace) zdland(i) = zdphi
+      zdland(i) = max(3.0E4, zdland(i))
+      zdland(i) = min(5.0E4, zdland(i))
+    END IF
+  END DO
+
+  ! Initialiser les valeurs au niveau d'ascendance
+
+  DO i = 1, klon
+    kctop(i) = klev - 1
+    IF (.NOT. ldcum(i)) THEN
+      kcbot(i) = klev - 1
+      pmfub(i) = 0.
+      pqu(i, klev) = 0.
+    END IF
+    pmfu(i, klev) = pmfub(i)
+    pmfus(i, klev) = pmfub(i)*(rcpd*ptu(i,klev)+pgeoh(i,klev))
+    pmfuq(i, klev) = pmfub(i)*pqu(i, klev)
+  END DO
+
+  DO i = 1, klon
+    ldcum(i) = .FALSE.
+  END DO
+  ! ----------------------------------------------------------------------
+  ! DO ASCENT: SUBCLOUD LAYER (klab=1) ,CLOUDS (klab=2)
+  ! BY DOING FIRST DRY-ADIABATIC ASCENT AND THEN
+  ! BY ADJUSTING T,Q AND L ACCORDINGLY IN *flxadjtq*,
+  ! THEN CHECK FOR BUOYANCY AND SET FLAGS ACCORDINGLY
+  ! ----------------------------------------------------------------------
+  DO k = klev - 1, 3, -1
+
+    IF (lmfmid .AND. k<klev-1) THEN
+      DO i = 1, klon
+        IF (.NOT. ldcum(i) .AND. klab(i,k+1)==0 .AND. &
+            pqen(i,k)>0.9*pqsen(i,k) .AND. pap(i,k)/paph(i,klev+1)>0.4) THEN
+          ptu(i, k+1) = pten(i, k) + (pgeo(i,k)-pgeoh(i,k+1))/rcpd
+          pqu(i, k+1) = pqen(i, k)
+          plu(i, k+1) = 0.0
+          zzzmb = max(cmfcmin, -pvervel(i,k)/rg)
+          zmfmax = (paph(i,k)-paph(i,k-1))/(rg*pdtime)
+          pmfub(i) = min(zzzmb, zmfmax)
+          pmfu(i, k+1) = pmfub(i)
+          pmfus(i, k+1) = pmfub(i)*(rcpd*ptu(i,k+1)+pgeoh(i,k+1))
+          pmfuq(i, k+1) = pmfub(i)*pqu(i, k+1)
+          pmful(i, k+1) = 0.0
+          pdmfup(i, k+1) = 0.0
+          kcbot(i) = k
+          klab(i, k+1) = 1
+          ktype(i) = 3
+          pentr(i) = entrmid
+        END IF
+      END DO
+    END IF
+
+    is = 0
+    DO i = 1, klon
+      is = is + klab(i, k+1)
+      IF (klab(i,k+1)==0) klab(i, k) = 0
+      llflag(i) = .FALSE.
+      IF (klab(i,k+1)>0) llflag(i) = .TRUE.
+    END DO
+    IF (is==0) GO TO 480
+
+    ! calculer le taux d'entrainement et de detrainement
+
+    DO i = 1, klon
+      pen_u(i, k) = 0.0
+      pde_u(i, k) = 0.0
+      zrho(i) = paph(i, k+1)/(rd*ptenh(i,k+1))
+      zpbot(i) = paph(i, kcbot(i))
+      zptop(i) = paph(i, kctop0(i))
+    END DO
+
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        zdprho = (paph(i,k+1)-paph(i,k))/(rg*zrho(i))
+        zentr = pentr(i)*pmfu(i, k+1)*zdprho
+        llo1 = k < kcbot(i)
+        IF (llo1) pde_u(i, k) = zentr
+        zpmid = 0.5*(zpbot(i)+zptop(i))
+        llo2 = llo1 .AND. ktype(i) == 2 .AND. (zpbot(i)-paph(i,k)<0.2E5 .OR. &
+          paph(i,k)>zpmid)
+        IF (llo2) pen_u(i, k) = zentr
+        llo2 = llo1 .AND. (ktype(i)==1 .OR. ktype(i)==3) .AND. &
+          (k>=max(klwmin(i),kctop0(i)+2) .OR. pap(i,k)>zpmid)
+        IF (llo2) pen_u(i, k) = zentr
+        llo1 = pen_u(i, k) > 0. .AND. (ktype(i)==1 .OR. ktype(i)==2)
+        IF (llo1) THEN
+          fact = 1. + 3.*(1.-min(1.,(zpbot(i)-pap(i,k))/1.5E4))
+          zentr = zentr*fact
+          pen_u(i, k) = pen_u(i, k)*fact
+          pde_u(i, k) = pde_u(i, k)*fact
+        END IF
+        IF (llo2 .AND. pqenh(i,k+1)>1.E-5) pen_u(i, k) = zentr + &
+          max(pqte(i,k), 0.)/pqenh(i, k+1)*zrho(i)*zdprho
+      END IF
+    END DO
+
+    ! ----------------------------------------------------------------------
+    ! DO ADIABATIC ASCENT FOR ENTRAINING/DETRAINING PLUME
+    ! ----------------------------------------------------------------------
+
+    DO i = 1, klon
+      IF (llflag(i)) THEN
+        IF (k<kcbot(i)) THEN
+          zmftest = pmfu(i, k+1) + pen_u(i, k) - pde_u(i, k)
+          zmfmax = min(zmftest, (paph(i,k)-paph(i,k-1))/(rg*pdtime))
+          pen_u(i, k) = max(pen_u(i,k)-max(0.0,zmftest-zmfmax), 0.0)
+        END IF
+        pde_u(i, k) = min(pde_u(i,k), 0.75*pmfu(i,k+1))
+        ! calculer le flux de masse du niveau k a partir de celui du k+1
+        pmfu(i, k) = pmfu(i, k+1) + pen_u(i, k) - pde_u(i, k)
+        ! calculer les valeurs Su, Qu et l du niveau k dans le panache
+        ! montant
+        zqeen = pqenh(i, k+1)*pen_u(i, k)
+        zseen = (rcpd*ptenh(i,k+1)+pgeoh(i,k+1))*pen_u(i, k)
+        zscde = (rcpd*ptu(i,k+1)+pgeoh(i,k+1))*pde_u(i, k)
+        zqude = pqu(i, k+1)*pde_u(i, k)
+        plude(i, k) = plu(i, k+1)*pde_u(i, k)
+        zmfusk = pmfus(i, k+1) + zseen - zscde
+        zmfuqk = pmfuq(i, k+1) + zqeen - zqude
+        zmfulk = pmful(i, k+1) - plude(i, k)
+        plu(i, k) = zmfulk*(1./max(cmfcmin,pmfu(i,k)))
+        pqu(i, k) = zmfuqk*(1./max(cmfcmin,pmfu(i,k)))
+        ptu(i, k) = (zmfusk*(1./max(cmfcmin,pmfu(i,k)))-pgeoh(i,k))/rcpd
+        ptu(i, k) = max(100., ptu(i,k))
+        ptu(i, k) = min(400., ptu(i,k))
+        zqold(i) = pqu(i, k)
+      ELSE
+        zqold(i) = 0.0
+      END IF
+    END DO
+
+    ! ----------------------------------------------------------------------
+    ! DO CORRECTIONS FOR MOIST ASCENT BY ADJUSTING T,Q AND L
+    ! ----------------------------------------------------------------------
+
+    icall = 1
+    CALL flxadjtq(paph(1,k), ptu(1,k), pqu(1,k), llflag, icall)
+
+    DO i = 1, klon
+      IF (llflag(i) .AND. pqu(i,k)/=zqold(i)) THEN
+        klab(i, k) = 2
+        plu(i, k) = plu(i, k) + zqold(i) - pqu(i, k)
+        zbuo = ptu(i, k)*(1.+retv*pqu(i,k)) - ptenh(i, k)*(1.+retv*pqenh(i,k) &
+          )
+        IF (klab(i,k+1)==1) zbuo = zbuo + 0.5
+        IF (zbuo>0. .AND. pmfu(i,k)>=0.1*pmfub(i)) THEN
+          kctop(i) = k
+          ldcum(i) = .TRUE.
+          zdnoprc = 1.5E4
+          IF (ldland(i)) zdnoprc = zdland(i)
+          zprcon = cprcon
+          IF ((zpbot(i)-paph(i,k))<zdnoprc) zprcon = 0.0
+          zlnew = plu(i, k)/(1.+zprcon*(pgeoh(i,k)-pgeoh(i,k+1)))
+          pdmfup(i, k) = max(0., (plu(i,k)-zlnew)*pmfu(i,k))
+          plu(i, k) = zlnew
+        ELSE
+          klab(i, k) = 0
+          pmfu(i, k) = 0.
+        END IF
+      END IF
+    END DO
+    DO i = 1, klon
+      IF (llflag(i)) THEN
+        pmful(i, k) = plu(i, k)*pmfu(i, k)
+        pmfus(i, k) = (rcpd*ptu(i,k)+pgeoh(i,k))*pmfu(i, k)
+        pmfuq(i, k) = pqu(i, k)*pmfu(i, k)
+      END IF
+    END DO
+
+480 END DO
+  ! ----------------------------------------------------------------------
+  ! DETERMINE CONVECTIVE FLUXES ABOVE NON-BUOYANCY LEVEL
+  ! (NOTE: CLOUD VARIABLES LIKE T,Q AND L ARE NOT
+  ! AFFECTED BY DETRAINMENT AND ARE ALREADY KNOWN
+  ! FROM PREVIOUS CALCULATIONS ABOVE)
+  ! ----------------------------------------------------------------------
+  DO i = 1, klon
+    IF (kctop(i)==klev-1) ldcum(i) = .FALSE.
+    kcbot(i) = max(kcbot(i), kctop(i))
+  END DO
+
+  ldcum(1) = ldcum(1)
+
+  is = 0
+  DO i = 1, klon
+    IF (ldcum(i)) is = is + 1
+  END DO
+  kcum = is
+  IF (is==0) GO TO 800
+
+  DO i = 1, klon
+    IF (ldcum(i)) THEN
+      k = kctop(i) - 1
+      pde_u(i, k) = (1.-cmfctop)*pmfu(i, k+1)
+      plude(i, k) = pde_u(i, k)*plu(i, k+1)
+      pmfu(i, k) = pmfu(i, k+1) - pde_u(i, k)
+      zlnew = plu(i, k)
+      pdmfup(i, k) = max(0., (plu(i,k)-zlnew)*pmfu(i,k))
+      plu(i, k) = zlnew
+      pmfus(i, k) = (rcpd*ptu(i,k)+pgeoh(i,k))*pmfu(i, k)
+      pmfuq(i, k) = pqu(i, k)*pmfu(i, k)
+      pmful(i, k) = plu(i, k)*pmfu(i, k)
+      plude(i, k-1) = pmful(i, k)
+    END IF
+  END DO
+
+800 CONTINUE
+  RETURN
+END SUBROUTINE flxasc
+SUBROUTINE flxflux(pdtime, pqen, pqsen, ptenh, pqenh, pap, paph, ldland, &
+    pgeoh, kcbot, kctop, lddraf, kdtop, ktype, ldcum, pmfu, pmfd, pmfus, &
+    pmfds, pmfuq, pmfdq, pmful, plude, pdmfup, pdmfdp, pten, prfl, psfl, &
+    pdpmel, ktopm2, pmflxr, pmflxs)
+  USE dimphy
+  USE print_control_mod, ONLY: prt_level
+  IMPLICIT NONE
+  ! ----------------------------------------------------------------------
+  ! THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE
+  ! FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "YOECUMF.h"
+
+  REAL cevapcu(klon, klev)
+  ! -----------------------------------------------------------------
+  REAL pqen(klon, klev), pqenh(klon, klev), pqsen(klon, klev)
+  REAL pten(klon, klev), ptenh(klon, klev)
+  REAL paph(klon, klev+1), pgeoh(klon, klev)
+
+  REAL pap(klon, klev)
+  REAL ztmsmlt, zdelta, zqsat
+
+  REAL pmfu(klon, klev), pmfus(klon, klev)
+  REAL pmfd(klon, klev), pmfds(klon, klev)
+  REAL pmfuq(klon, klev), pmful(klon, klev)
+  REAL pmfdq(klon, klev)
+  REAL plude(klon, klev)
+  REAL pdmfup(klon, klev), pdpmel(klon, klev)
+  ! jq The variable maxpdmfdp(klon) has been introduced by Olivier Boucher
+  ! jq 14/11/00 to fix the problem with the negative precipitation.
+  REAL pdmfdp(klon, klev), maxpdmfdp(klon, klev)
+  REAL prfl(klon), psfl(klon)
+  REAL pmflxr(klon, klev+1), pmflxs(klon, klev+1)
+  INTEGER kcbot(klon), kctop(klon), ktype(klon)
+  LOGICAL ldland(klon), ldcum(klon)
+  INTEGER k, kp, i
+  REAL zcons1, zcons2, zcucov, ztmelp2
+  REAL pdtime, zdp, zzp, zfac, zsnmlt, zrfl, zrnew
+  REAL zrmin, zrfln, zdrfl
+  REAL zpds, zpdr, zdenom
+  INTEGER ktopm2, itop, ikb
+
+  LOGICAL lddraf(klon)
+  INTEGER kdtop(klon)
+
+  include "FCTTRE.h"
+
+  DO k = 1, klev
+    DO i = 1, klon
+      cevapcu(i, k) = 1.93E-6*261.*sqrt(1.E3/(38.3*0.293)*sqrt(0.5*(paph(i,k) &
+        +paph(i,k+1))/paph(i,klev+1)))*0.5/rg
+    END DO
+  END DO
+
+  ! SPECIFY CONSTANTS
+
+  zcons1 = rcpd/(rlmlt*rg*pdtime)
+  zcons2 = 1./(rg*pdtime)
+  zcucov = 0.05
+  ztmelp2 = rtt + 2.
+
+  ! DETERMINE FINAL CONVECTIVE FLUXES
+
+  itop = klev
+  DO i = 1, klon
+    itop = min(itop, kctop(i))
+    IF (.NOT. ldcum(i) .OR. kdtop(i)<kctop(i)) lddraf(i) = .FALSE.
+    IF (.NOT. ldcum(i)) ktype(i) = 0
+  END DO
+
+  ktopm2 = itop - 2
+  DO k = ktopm2, klev
+    DO i = 1, klon
+      IF (ldcum(i) .AND. k>=kctop(i)-1) THEN
+        pmfus(i, k) = pmfus(i, k) - pmfu(i, k)*(rcpd*ptenh(i,k)+pgeoh(i,k))
+        pmfuq(i, k) = pmfuq(i, k) - pmfu(i, k)*pqenh(i, k)
+        zdp = 1.5E4
+        IF (ldland(i)) zdp = 3.E4
+
+        ! l'eau liquide detrainee est precipitee quand certaines
+        ! conditions sont reunies (sinon, elle est consideree
+        ! evaporee dans l'environnement)
+
+        IF (paph(i,kcbot(i))-paph(i,kctop(i))>=zdp .AND. pqen(i,k-1)>0.8* &
+          pqsen(i,k-1)) pdmfup(i, k-1) = pdmfup(i, k-1) + plude(i, k-1)
+
+        IF (lddraf(i) .AND. k>=kdtop(i)) THEN
+          pmfds(i, k) = pmfds(i, k) - pmfd(i, k)*(rcpd*ptenh(i,k)+pgeoh(i,k))
+          pmfdq(i, k) = pmfdq(i, k) - pmfd(i, k)*pqenh(i, k)
+        ELSE
+          pmfd(i, k) = 0.
+          pmfds(i, k) = 0.
+          pmfdq(i, k) = 0.
+          pdmfdp(i, k-1) = 0.
+        END IF
+      ELSE
+        pmfu(i, k) = 0.
+        pmfus(i, k) = 0.
+        pmfuq(i, k) = 0.
+        pmful(i, k) = 0.
+        pdmfup(i, k-1) = 0.
+        plude(i, k-1) = 0.
+        pmfd(i, k) = 0.
+        pmfds(i, k) = 0.
+        pmfdq(i, k) = 0.
+        pdmfdp(i, k-1) = 0.
+      END IF
+    END DO
+  END DO
+
+  DO k = ktopm2, klev
+    DO i = 1, klon
+      IF (ldcum(i) .AND. k>kcbot(i)) THEN
+        ikb = kcbot(i)
+        zzp = ((paph(i,klev+1)-paph(i,k))/(paph(i,klev+1)-paph(i,ikb)))
+        IF (ktype(i)==3) zzp = zzp**2
+        pmfu(i, k) = pmfu(i, ikb)*zzp
+        pmfus(i, k) = pmfus(i, ikb)*zzp
+        pmfuq(i, k) = pmfuq(i, ikb)*zzp
+        pmful(i, k) = pmful(i, ikb)*zzp
+      END IF
+    END DO
+  END DO
+
+  ! CALCULATE RAIN/SNOW FALL RATES
+  ! CALCULATE MELTING OF SNOW
+  ! CALCULATE EVAPORATION OF PRECIP
+
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      pmflxr(i, k) = 0.0
+      pmflxs(i, k) = 0.0
+    END DO
+  END DO
+  DO k = ktopm2, klev
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        IF (pmflxs(i,k)>0.0 .AND. pten(i,k)>ztmelp2) THEN
+          zfac = zcons1*(paph(i,k+1)-paph(i,k))
+          zsnmlt = min(pmflxs(i,k), zfac*(pten(i,k)-ztmelp2))
+          pdpmel(i, k) = zsnmlt
+          ztmsmlt = pten(i, k) - zsnmlt/zfac
+          zdelta = max(0., sign(1.,rtt-ztmsmlt))
+          zqsat = r2es*foeew(ztmsmlt, zdelta)/pap(i, k)
+          zqsat = min(0.5, zqsat)
+          zqsat = zqsat/(1.-retv*zqsat)
+          pqsen(i, k) = zqsat
+        END IF
+        IF (pten(i,k)>rtt) THEN
+          pmflxr(i, k+1) = pmflxr(i, k) + pdmfup(i, k) + pdmfdp(i, k) + &
+            pdpmel(i, k)
+          pmflxs(i, k+1) = pmflxs(i, k) - pdpmel(i, k)
+        ELSE
+          pmflxs(i, k+1) = pmflxs(i, k) + pdmfup(i, k) + pdmfdp(i, k)
+          pmflxr(i, k+1) = pmflxr(i, k)
+        END IF
+        ! si la precipitation est negative, on ajuste le plux du
+        ! panache descendant pour eliminer la negativite
+        IF ((pmflxr(i,k+1)+pmflxs(i,k+1))<0.0) THEN
+          pdmfdp(i, k) = -pmflxr(i, k) - pmflxs(i, k) - pdmfup(i, k)
+          pmflxr(i, k+1) = 0.0
+          pmflxs(i, k+1) = 0.0
+          pdpmel(i, k) = 0.0
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! jq The new variable is initialized here.
+  ! jq It contains the humidity which is fed to the downdraft
+  ! jq by evaporation of precipitation in the column below the base
+  ! jq of convection.
+  ! jq
+  ! jq In the former version, this term has been subtracted from precip
+  ! jq as well as the evaporation.
+  ! jq
+  DO k = 1, klev
+    DO i = 1, klon
+      maxpdmfdp(i, k) = 0.0
+    END DO
+  END DO
+  DO k = 1, klev
+    DO kp = k, klev
+      DO i = 1, klon
+        maxpdmfdp(i, k) = maxpdmfdp(i, k) + pdmfdp(i, kp)
+      END DO
+    END DO
+  END DO
+  ! jq End of initialization
+
+  DO k = ktopm2, klev
+    DO i = 1, klon
+      IF (ldcum(i) .AND. k>=kcbot(i)) THEN
+        zrfl = pmflxr(i, k) + pmflxs(i, k)
+        IF (zrfl>1.0E-20) THEN
+          zrnew = (max(0.,sqrt(zrfl/zcucov)-cevapcu(i, &
+            k)*(paph(i,k+1)-paph(i,k))*max(0.,pqsen(i,k)-pqen(i,k))))**2* &
+            zcucov
+          zrmin = zrfl - zcucov*max(0., 0.8*pqsen(i,k)-pqen(i,k))*zcons2*( &
+            paph(i,k+1)-paph(i,k))
+          zrnew = max(zrnew, zrmin)
+          zrfln = max(zrnew, 0.)
+          zdrfl = min(0., zrfln-zrfl)
+          ! jq At least the amount of precipiation needed to feed the
+          ! downdraft
+          ! jq with humidity below the base of convection has to be left and
+          ! can't
+          ! jq be evaporated (surely the evaporation can't be positive):
+          zdrfl = max(zdrfl, min(-pmflxr(i,k)-pmflxs(i,k)-maxpdmfdp(i, &
+            k),0.0))
+          ! jq End of insertion
+
+          zdenom = 1.0/max(1.0E-20, pmflxr(i,k)+pmflxs(i,k))
+          IF (pten(i,k)>rtt) THEN
+            zpdr = pdmfdp(i, k)
+            zpds = 0.0
+          ELSE
+            zpdr = 0.0
+            zpds = pdmfdp(i, k)
+          END IF
+          pmflxr(i, k+1) = pmflxr(i, k) + zpdr + pdpmel(i, k) + &
+            zdrfl*pmflxr(i, k)*zdenom
+          pmflxs(i, k+1) = pmflxs(i, k) + zpds - pdpmel(i, k) + &
+            zdrfl*pmflxs(i, k)*zdenom
+          pdmfup(i, k) = pdmfup(i, k) + zdrfl
+        ELSE
+          pmflxr(i, k+1) = 0.0
+          pmflxs(i, k+1) = 0.0
+          pdmfdp(i, k) = 0.0
+          pdpmel(i, k) = 0.0
+        END IF
+        IF (pmflxr(i,k)+pmflxs(i,k)<-1.E-26 .AND. prt_level>=1) WRITE (*, *) &
+          'precip. < 1e-16 ', pmflxr(i, k) + pmflxs(i, k)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    prfl(i) = pmflxr(i, klev+1)
+    psfl(i) = pmflxs(i, klev+1)
+  END DO
+
+  RETURN
+END SUBROUTINE flxflux
+SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten, pmfus, pmfds, pmfuq, &
+    pmfdq, pmful, pdmfup, pdmfdp, pdpmel, dt_con, dq_con)
+  USE dimphy
+  IMPLICIT NONE
+  ! ----------------------------------------------------------------------
+  ! calculer les tendances T et Q
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "YOECUMF.h"
+  ! -----------------------------------------------------------------
+  LOGICAL llo1
+
+  REAL pten(klon, klev), paph(klon, klev+1)
+  REAL pmfus(klon, klev), pmfuq(klon, klev), pmful(klon, klev)
+  REAL pmfds(klon, klev), pmfdq(klon, klev)
+  REAL pdmfup(klon, klev)
+  REAL pdmfdp(klon, klev)
+  REAL pdpmel(klon, klev)
+  LOGICAL ldcum(klon)
+  REAL dt_con(klon, klev), dq_con(klon, klev)
+
+  INTEGER ktopm2
+  REAL pdtime
+
+  INTEGER i, k
+  REAL zalv, zdtdt, zdqdt
+
+  DO k = ktopm2, klev - 1
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        llo1 = (pten(i,k)-rtt) > 0.
+        zalv = rlstt
+        IF (llo1) zalv = rlvtt
+        zdtdt = rg/(paph(i,k+1)-paph(i,k))/rcpd*(pmfus(i,k+1)-pmfus(i,k)+ &
+          pmfds(i,k+1)-pmfds(i,k)-rlmlt*pdpmel(i,k)-zalv*(pmful(i, &
+          k+1)-pmful(i,k)-pdmfup(i,k)-pdmfdp(i,k)))
+        dt_con(i, k) = zdtdt
+        zdqdt = rg/(paph(i,k+1)-paph(i,k))*(pmfuq(i,k+1)-pmfuq(i,k)+pmfdq(i,k &
+          +1)-pmfdq(i,k)+pmful(i,k+1)-pmful(i,k)-pdmfup(i,k)-pdmfdp(i,k))
+        dq_con(i, k) = zdqdt
+      END IF
+    END DO
+  END DO
+
+  k = klev
+  DO i = 1, klon
+    IF (ldcum(i)) THEN
+      llo1 = (pten(i,k)-rtt) > 0.
+      zalv = rlstt
+      IF (llo1) zalv = rlvtt
+      zdtdt = -rg/(paph(i,k+1)-paph(i,k))/rcpd*(pmfus(i,k)+pmfds(i,k)+rlmlt* &
+        pdpmel(i,k)-zalv*(pmful(i,k)+pdmfup(i,k)+pdmfdp(i,k)))
+      dt_con(i, k) = zdtdt
+      zdqdt = -rg/(paph(i,k+1)-paph(i,k))*(pmfuq(i,k)+pmfdq(i,k)+pmful(i,k)+ &
+        pdmfup(i,k)+pdmfdp(i,k))
+      dq_con(i, k) = zdqdt
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE flxdtdq
+SUBROUTINE flxdlfs(ptenh, pqenh, pgeoh, paph, ptu, pqu, ldcum, kcbot, kctop, &
+    pmfub, prfl, ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! ----------------------------------------------------------------------
+  ! THIS ROUTINE CALCULATES LEVEL OF FREE SINKING FOR
+  ! CUMULUS DOWNDRAFTS AND SPECIFIES T,Q,U AND V VALUES
+
+  ! TO PRODUCE LFS-VALUES FOR CUMULUS DOWNDRAFTS
+  ! FOR MASSFLUX CUMULUS PARAMETERIZATION
+
+  ! INPUT ARE ENVIRONMENTAL VALUES OF T,Q,U,V,P,PHI
+  ! AND UPDRAFT VALUES T,Q,U AND V AND ALSO
+  ! CLOUD BASE MASSFLUX AND CU-PRECIPITATION RATE.
+  ! IT RETURNS T,Q,U AND V VALUES AND MASSFLUX AT LFS.
+
+  ! CHECK FOR NEGATIVE BUOYANCY OF AIR OF EQUAL PARTS OF
+  ! MOIST ENVIRONMENTAL AIR AND CLOUD AIR.
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "YOECUMF.h"
+
+  REAL ptenh(klon, klev)
+  REAL pqenh(klon, klev)
+  REAL pgeoh(klon, klev), paph(klon, klev+1)
+  REAL ptu(klon, klev), pqu(klon, klev)
+  REAL pmfub(klon)
+  REAL prfl(klon)
+
+  REAL ptd(klon, klev), pqd(klon, klev)
+  REAL pmfd(klon, klev), pmfds(klon, klev), pmfdq(klon, klev)
+  REAL pdmfdp(klon, klev)
+  INTEGER kcbot(klon), kctop(klon), kdtop(klon)
+  LOGICAL ldcum(klon), lddraf(klon)
+
+  REAL ztenwb(klon, klev), zqenwb(klon, klev), zcond(klon)
+  REAL zttest, zqtest, zbuo, zmftop
+  LOGICAL llo2(klon)
+  INTEGER i, k, is, icall
+  ! ----------------------------------------------------------------------
+  DO i = 1, klon
+    lddraf(i) = .FALSE.
+    kdtop(i) = klev + 1
+  END DO
+
+  ! ----------------------------------------------------------------------
+  ! DETERMINE LEVEL OF FREE SINKING BY
+  ! DOING A SCAN FROM TOP TO BASE OF CUMULUS CLOUDS
+
+  ! FOR EVERY POINT AND PROCEED AS FOLLOWS:
+  ! (1) DETEMINE WET BULB ENVIRONMENTAL T AND Q
+  ! (2) DO MIXING WITH CUMULUS CLOUD AIR
+  ! (3) CHECK FOR NEGATIVE BUOYANCY
+
+  ! THE ASSUMPTION IS THAT AIR OF DOWNDRAFTS IS MIXTURE
+  ! OF 50% CLOUD AIR + 50% ENVIRONMENTAL AIR AT WET BULB
+  ! TEMPERATURE (I.E. WHICH BECAME SATURATED DUE TO
+  ! EVAPORATION OF RAIN AND CLOUD WATER)
+  ! ----------------------------------------------------------------------
+
+  DO k = 3, klev - 3
+
+    is = 0
+    DO i = 1, klon
+      ztenwb(i, k) = ptenh(i, k)
+      zqenwb(i, k) = pqenh(i, k)
+      llo2(i) = ldcum(i) .AND. prfl(i) > 0. .AND. .NOT. lddraf(i) .AND. &
+        (k<kcbot(i) .AND. k>kctop(i))
+      IF (llo2(i)) is = is + 1
+    END DO
+    IF (is==0) GO TO 290
+
+    icall = 2
+    CALL flxadjtq(paph(1,k), ztenwb(1,k), zqenwb(1,k), llo2, icall)
+
+    ! ----------------------------------------------------------------------
+    ! DO MIXING OF CUMULUS AND ENVIRONMENTAL AIR
+    ! AND CHECK FOR NEGATIVE BUOYANCY.
+    ! THEN SET VALUES FOR DOWNDRAFT AT LFS.
+    ! ----------------------------------------------------------------------
+    DO i = 1, klon
+      IF (llo2(i)) THEN
+        zttest = 0.5*(ptu(i,k)+ztenwb(i,k))
+        zqtest = 0.5*(pqu(i,k)+zqenwb(i,k))
+        zbuo = zttest*(1.+retv*zqtest) - ptenh(i, k)*(1.+retv*pqenh(i,k))
+        zcond(i) = pqenh(i, k) - zqenwb(i, k)
+        zmftop = -cmfdeps*pmfub(i)
+        IF (zbuo<0. .AND. prfl(i)>10.*zmftop*zcond(i)) THEN
+          kdtop(i) = k
+          lddraf(i) = .TRUE.
+          ptd(i, k) = zttest
+          pqd(i, k) = zqtest
+          pmfd(i, k) = zmftop
+          pmfds(i, k) = pmfd(i, k)*(rcpd*ptd(i,k)+pgeoh(i,k))
+          pmfdq(i, k) = pmfd(i, k)*pqd(i, k)
+          pdmfdp(i, k-1) = -0.5*pmfd(i, k)*zcond(i)
+          prfl(i) = prfl(i) + pdmfdp(i, k-1)
+        END IF
+      END IF
+    END DO
+
+290 END DO
+
+  RETURN
+END SUBROUTINE flxdlfs
+SUBROUTINE flxddraf(ptenh, pqenh, pgeoh, paph, prfl, ptd, pqd, pmfd, pmfds, &
+    pmfdq, pdmfdp, lddraf, pen_d, pde_d)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! ----------------------------------------------------------------------
+  ! THIS ROUTINE CALCULATES CUMULUS DOWNDRAFT DESCENT
+
+  ! TO PRODUCE THE VERTICAL PROFILES FOR CUMULUS DOWNDRAFTS
+  ! (I.E. T,Q,U AND V AND FLUXES)
+
+  ! INPUT IS T,Q,P,PHI,U,V AT HALF LEVELS.
+  ! IT RETURNS FLUXES OF S,Q AND EVAPORATION RATE
+  ! AND U,V AT LEVELS WHERE DOWNDRAFT OCCURS
+
+  ! CALCULATE MOIST DESCENT FOR ENTRAINING/DETRAINING PLUME BY
+  ! A) MOVING AIR DRY-ADIABATICALLY TO NEXT LEVEL BELOW AND
+  ! B) CORRECTING FOR EVAPORATION TO OBTAIN SATURATED STATE.
+
+  ! ----------------------------------------------------------------------
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "YOECUMF.h"
+
+  REAL ptenh(klon, klev), pqenh(klon, klev)
+  REAL pgeoh(klon, klev), paph(klon, klev+1)
+
+  REAL ptd(klon, klev), pqd(klon, klev)
+  REAL pmfd(klon, klev), pmfds(klon, klev), pmfdq(klon, klev)
+  REAL pdmfdp(klon, klev)
+  REAL prfl(klon)
+  LOGICAL lddraf(klon)
+
+  REAL pen_d(klon, klev), pde_d(klon, klev), zcond(klon)
+  LOGICAL llo2(klon), llo1
+  INTEGER i, k, is, icall, itopde
+  REAL zentr, zseen, zqeen, zsdde, zqdde, zmfdsk, zmfdqk, zdmfdp
+  REAL zbuo
+  ! ----------------------------------------------------------------------
+  ! CALCULATE MOIST DESCENT FOR CUMULUS DOWNDRAFT BY
+  ! (A) CALCULATING ENTRAINMENT RATES, ASSUMING
+  ! LINEAR DECREASE OF MASSFLUX IN PBL
+  ! (B) DOING MOIST DESCENT - EVAPORATIVE COOLING
+  ! AND MOISTENING IS CALCULATED IN *flxadjtq*
+  ! (C) CHECKING FOR NEGATIVE BUOYANCY AND
+  ! SPECIFYING FINAL T,Q,U,V AND DOWNWARD FLUXES
+
+  DO k = 3, klev
+
+    is = 0
+    DO i = 1, klon
+      llo2(i) = lddraf(i) .AND. pmfd(i, k-1) < 0.
+      IF (llo2(i)) is = is + 1
+    END DO
+    IF (is==0) GO TO 180
+
+    DO i = 1, klon
+      IF (llo2(i)) THEN
+        zentr = entrdd*pmfd(i, k-1)*rd*ptenh(i, k-1)/(rg*paph(i,k-1))* &
+          (paph(i,k)-paph(i,k-1))
+        pen_d(i, k) = zentr
+        pde_d(i, k) = zentr
+      END IF
+    END DO
+
+    itopde = klev - 2
+    IF (k>itopde) THEN
+      DO i = 1, klon
+        IF (llo2(i)) THEN
+          pen_d(i, k) = 0.
+          pde_d(i, k) = pmfd(i, itopde)*(paph(i,k)-paph(i,k-1))/ &
+            (paph(i,klev+1)-paph(i,itopde))
+        END IF
+      END DO
+    END IF
+
+    DO i = 1, klon
+      IF (llo2(i)) THEN
+        pmfd(i, k) = pmfd(i, k-1) + pen_d(i, k) - pde_d(i, k)
+        zseen = (rcpd*ptenh(i,k-1)+pgeoh(i,k-1))*pen_d(i, k)
+        zqeen = pqenh(i, k-1)*pen_d(i, k)
+        zsdde = (rcpd*ptd(i,k-1)+pgeoh(i,k-1))*pde_d(i, k)
+        zqdde = pqd(i, k-1)*pde_d(i, k)
+        zmfdsk = pmfds(i, k-1) + zseen - zsdde
+        zmfdqk = pmfdq(i, k-1) + zqeen - zqdde
+        pqd(i, k) = zmfdqk*(1./min(-cmfcmin,pmfd(i,k)))
+        ptd(i, k) = (zmfdsk*(1./min(-cmfcmin,pmfd(i,k)))-pgeoh(i,k))/rcpd
+        ptd(i, k) = min(400., ptd(i,k))
+        ptd(i, k) = max(100., ptd(i,k))
+        zcond(i) = pqd(i, k)
+      END IF
+    END DO
+
+    icall = 2
+    CALL flxadjtq(paph(1,k), ptd(1,k), pqd(1,k), llo2, icall)
+
+    DO i = 1, klon
+      IF (llo2(i)) THEN
+        zcond(i) = zcond(i) - pqd(i, k)
+        zbuo = ptd(i, k)*(1.+retv*pqd(i,k)) - ptenh(i, k)*(1.+retv*pqenh(i,k) &
+          )
+        llo1 = zbuo < 0. .AND. (prfl(i)-pmfd(i,k)*zcond(i)>0.)
+        IF (.NOT. llo1) pmfd(i, k) = 0.0
+        pmfds(i, k) = (rcpd*ptd(i,k)+pgeoh(i,k))*pmfd(i, k)
+        pmfdq(i, k) = pqd(i, k)*pmfd(i, k)
+        zdmfdp = -pmfd(i, k)*zcond(i)
+        pdmfdp(i, k-1) = zdmfdp
+        prfl(i) = prfl(i) + zdmfdp
+      END IF
+    END DO
+
+180 END DO
+  RETURN
+END SUBROUTINE flxddraf
+SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Objet: ajustement entre T et Q
+  ! ======================================================================
+  ! NOTE: INPUT PARAMETER kcall DEFINES CALCULATION AS
+  ! kcall=0    ENV. T AND QS IN*CUINI*
+  ! kcall=1  CONDENSATION IN UPDRAFTS  (E.G. CUBASE, CUASC)
+  ! kcall=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
+
+  include "YOMCST.h"
+
+  REAL pt(klon), pq(klon), pp(klon)
+  LOGICAL ldflag(klon)
+  INTEGER kcall
+
+  REAL zcond(klon), zcond1
+  REAL z5alvcp, z5alscp, zalvdcp, zalsdcp
+  REAL zdelta, zcvm5, zldcp, zqsat, zcor
+  INTEGER is, i
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  z5alvcp = r5les*rlvtt/rcpd
+  z5alscp = r5ies*rlstt/rcpd
+  zalvdcp = rlvtt/rcpd
+  zalsdcp = rlstt/rcpd
+
+
+  DO i = 1, klon
+    zcond(i) = 0.0
+  END DO
+
+  DO i = 1, klon
+    IF (ldflag(i)) THEN
+      zdelta = max(0., sign(1.,rtt-pt(i)))
+      zcvm5 = z5alvcp*(1.-zdelta) + zdelta*z5alscp
+      zldcp = zalvdcp*(1.-zdelta) + zdelta*zalsdcp
+      zqsat = r2es*foeew(pt(i), zdelta)/pp(i)
+      zqsat = min(0.5, zqsat)
+      zcor = 1./(1.-retv*zqsat)
+      zqsat = zqsat*zcor
+      zcond(i) = (pq(i)-zqsat)/(1.+foede(pt(i),zdelta,zcvm5,zqsat,zcor))
+      IF (kcall==1) zcond(i) = max(zcond(i), 0.)
+      IF (kcall==2) zcond(i) = min(zcond(i), 0.)
+      pt(i) = pt(i) + zldcp*zcond(i)
+      pq(i) = pq(i) - zcond(i)
+    END IF
+  END DO
+
+  is = 0
+  DO i = 1, klon
+    IF (zcond(i)/=0.) is = is + 1
+  END DO
+  IF (is==0) GO TO 230
+
+  DO i = 1, klon
+    IF (ldflag(i) .AND. zcond(i)/=0.) THEN
+      zdelta = max(0., sign(1.,rtt-pt(i)))
+      zcvm5 = z5alvcp*(1.-zdelta) + zdelta*z5alscp
+      zldcp = zalvdcp*(1.-zdelta) + zdelta*zalsdcp
+      zqsat = r2es*foeew(pt(i), zdelta)/pp(i)
+      zqsat = min(0.5, zqsat)
+      zcor = 1./(1.-retv*zqsat)
+      zqsat = zqsat*zcor
+      zcond1 = (pq(i)-zqsat)/(1.+foede(pt(i),zdelta,zcvm5,zqsat,zcor))
+      pt(i) = pt(i) + zldcp*zcond1
+      pq(i) = pq(i) - zcond1
+    END IF
+  END DO
+
+230 CONTINUE
+  RETURN
+END SUBROUTINE flxadjtq
+SUBROUTINE flxsetup
+  IMPLICIT NONE
+
+  ! THIS ROUTINE DEFINES DISPOSABLE PARAMETERS FOR MASSFLUX SCHEME
+
+  include "YOECUMF.h"
+
+  entrpen = 1.0E-4 ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
+  entrscv = 3.0E-4 ! ENTRAINMENT RATE FOR SHALLOW CONVECTION
+  entrmid = 1.0E-4 ! ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
+  entrdd = 2.0E-4 ! ENTRAINMENT RATE FOR DOWNDRAFTS
+  cmfctop = 0.33 ! RELATIVE CLOUD MASSFLUX AT LEVEL ABOVE NONBUO LEVEL
+  cmfcmax = 1.0 ! MAXIMUM MASSFLUX VALUE ALLOWED FOR UPDRAFTS ETC
+  cmfcmin = 1.E-10 ! MINIMUM MASSFLUX VALUE (FOR SAFETY)
+  cmfdeps = 0.3 ! FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
+  cprcon = 2.0E-4 ! CONVERSION FROM CLOUD WATER TO RAIN
+  rhcdd = 1. ! RELATIVE SATURATION IN DOWNDRAFRS (NO LONGER USED)
+  ! (FORMULATION IMPLIES SATURATION)
+  lmfpen = .TRUE.
+  lmfscv = .TRUE.
+  lmfmid = .TRUE.
+  lmfdd = .TRUE.
+  lmfdudv = .TRUE.
+
+  RETURN
+END SUBROUTINE flxsetup
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conlmd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conlmd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/conlmd.F90	(revision 3330)
@@ -0,0 +1,2250 @@
+
+! $Header$
+
+SUBROUTINE conlmd(dtime, paprs, pplay, t, q, conv_q, d_t, d_q, rain, snow, &
+    ibas, itop)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: Schema de convection utilis'e dans le modele du LMD
+  ! Ajustement humide (Manabe) + Ajustement convectif (Kuo)
+  ! ======================================================================
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+  ! Arguments:
+
+  REAL dtime ! pas d'integration (s)
+  REAL paprs(klon, klev+1) ! pression inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (kg/kg)
+  REAL conv_q(klon, klev) ! taux de convergence humidite (g/g/s)
+
+  REAL d_t(klon, klev) ! incrementation temperature
+  REAL d_q(klon, klev) ! incrementation humidite
+  REAL rain(klon) ! pluies (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  INTEGER ibas(klon) ! niveau du bas
+  INTEGER itop(klon) ! niveau du haut
+
+  LOGICAL usekuo ! utiliser convection profonde (schema Kuo)
+  PARAMETER (usekuo=.TRUE.)
+
+  REAL d_t_bis(klon, klev)
+  REAL d_q_bis(klon, klev)
+  REAL rain_bis(klon)
+  REAL snow_bis(klon)
+  INTEGER ibas_bis(klon)
+  INTEGER itop_bis(klon)
+  REAL d_ql(klon, klev), d_ql_bis(klon, klev)
+  REAL rneb(klon, klev), rneb_bis(klon, klev)
+
+  INTEGER i, k
+  REAL zlvdcp, zlsdcp, zdelta, zz, za, zb
+
+  ! cc      CALL fiajh ! ancienne version de Convection Manabe
+  CALL conman &                    ! nouvelle version de Convection
+                                   ! Manabe
+    (dtime, paprs, pplay, t, q, d_t, d_q, d_ql, rneb, rain, snow, ibas, itop)
+
+  IF (usekuo) THEN
+    ! cc      CALL fiajc ! ancienne version de Convection Kuo
+    CALL conkuo &                  ! nouvelle version de Convection
+                                   ! Kuo
+      (dtime, paprs, pplay, t, q, conv_q, d_t_bis, d_q_bis, d_ql_bis, &
+      rneb_bis, rain_bis, snow_bis, ibas_bis, itop_bis)
+    DO k = 1, klev
+      DO i = 1, klon
+        d_t(i, k) = d_t(i, k) + d_t_bis(i, k)
+        d_q(i, k) = d_q(i, k) + d_q_bis(i, k)
+        d_ql(i, k) = d_ql(i, k) + d_ql_bis(i, k)
+      END DO
+    END DO
+    DO i = 1, klon
+      rain(i) = rain(i) + rain_bis(i)
+      snow(i) = snow(i) + snow_bis(i)
+      ibas(i) = min(ibas(i), ibas_bis(i))
+      itop(i) = max(itop(i), itop_bis(i))
+    END DO
+  END IF
+
+  ! L'eau liquide convective est dispersee dans l'air:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      zlvdcp = rlvtt/rcpd/(1.0+rvtmp2*q(i,k))
+      zlsdcp = rlstt/rcpd/(1.0+rvtmp2*q(i,k))
+      zdelta = max(0., sign(1.,rtt-t(i,k)))
+      zz = d_ql(i, k) ! re-evap. de l'eau liquide
+      zb = max(0.0, zz)
+      za = -max(0.0, zz)*(zlvdcp*(1.-zdelta)+zlsdcp*zdelta)
+      d_t(i, k) = d_t(i, k) + za
+      d_q(i, k) = d_q(i, k) + zb
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE conlmd
+SUBROUTINE conman(dtime, paprs, pplay, t, q, d_t, d_q, d_ql, rneb, rain, &
+    snow, ibas, itop)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19970324
+  ! Objet: ajustement humide convectif avec la possibilite de faire
+  ! l'ajustement sur une fraction de la maille.
+  ! Methode: On impose une distribution uniforme pour la vapeur d'eau
+  ! au sein d'une maille. On applique la procedure d'ajustement
+  ! successivement a la totalite, 75%, 50%, 25% et 5% de la maille
+  ! jusqu'a ce que l'ajustement a lieu. J'espere que ceci augmente
+  ! les activites convectives et corrige le biais "trop froid et sec"
+  ! du modele.
+  ! ======================================================================
+  include "YOMCST.h"
+
+  REAL dtime ! pas d'integration (s)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (kg/kg)
+  REAL paprs(klon, klev+1) ! pression inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+
+  REAL d_t(klon, klev) ! incrementation temperature
+  REAL d_q(klon, klev) ! incrementation humidite
+  REAL d_ql(klon, klev) ! incrementation eau liquide
+  REAL rneb(klon, klev) ! nebulosite
+  REAL rain(klon) ! pluies (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  INTEGER ibas(klon) ! niveau du bas
+  INTEGER itop(klon) ! niveau du haut
+
+  LOGICAL afaire(klon) ! .TRUE. implique l'ajustement
+  LOGICAL accompli(klon) ! .TRUE. si l'ajustement est effectif
+
+  INTEGER nb ! nombre de sous-fractions a considere
+  PARAMETER (nb=1)
+  ! cc      PARAMETER (nb=3)
+
+  REAL ratqs ! largeur de la distribution pour vapeur d'eau
+  PARAMETER (ratqs=0.05)
+
+  REAL w_q(klon, klev)
+  REAL w_d_t(klon, klev), w_d_q(klon, klev), w_d_ql(klon, klev)
+  REAL w_rneb(klon, klev)
+  REAL w_rain(klon), w_snow(klon)
+  INTEGER w_ibas(klon), w_itop(klon)
+  REAL zq1, zq2
+  INTEGER i, k, n
+
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+  REAL zdp1, zdp2
+  REAL zqs1, zqs2, zdqs1, zdqs2
+  REAL zgamdz
+  REAL zflo ! flotabilite
+  REAL zsat ! sur-saturation
+  REAL zdelta, zcor, zcvm5
+  LOGICAL imprim
+
+  INTEGER ncpt
+  SAVE ncpt
+  !$OMP THREADPRIVATE(ncpt)
+  REAL frac(nb) ! valeur de la maille fractionnelle
+  SAVE frac
+  !$OMP THREADPRIVATE(frac)
+  INTEGER opt_cld(nb) ! option pour le modele nuageux
+  SAVE opt_cld
+  !$OMP THREADPRIVATE(opt_cld)
+  LOGICAL appel1er
+  SAVE appel1er
+  !$OMP THREADPRIVATE(appel1er)
+
+  ! Fonctions thermodynamiques:
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  DATA frac/1.0/
+  DATA opt_cld/4/
+  ! cc      DATA frac    / 1.0, 0.50, 0.25/
+  ! cc      DATA opt_cld / 4,   4,    4/
+
+  DATA appel1er/.TRUE./
+  DATA ncpt/0/
+
+  IF (appel1er) THEN
+    PRINT *, 'conman, nb:', nb
+    PRINT *, 'conman, frac:', frac
+    PRINT *, 'conman, opt_cld:', opt_cld
+    appel1er = .FALSE.
+  END IF
+
+  ! Initialiser les sorties a zero:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+      d_ql(i, k) = 0.0
+      rneb(i, k) = 0.0
+    END DO
+  END DO
+  DO i = 1, klon
+    ibas(i) = klev
+    itop(i) = 1
+    rain(i) = 0.0
+    snow(i) = 0.0
+  END DO
+
+  ! S'il n'y a pas d'instabilite conditionnelle,
+  ! pas la penne de se fatiguer:
+
+  DO i = 1, klon
+    afaire(i) = .FALSE.
+  END DO
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      IF (thermcep) THEN
+        zdelta = max(0., sign(1.,rtt-t(i,k)))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*q(i,k))
+        zqs1 = r2es*foeew(t(i,k), zdelta)/pplay(i, k)
+        zqs1 = min(0.5, zqs1)
+        zcor = 1./(1.-retv*zqs1)
+        zqs1 = zqs1*zcor
+        zdqs1 = foede(t(i,k), zdelta, zcvm5, zqs1, zcor)
+
+        zdelta = max(0., sign(1.,rtt-t(i,k+1)))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*q(i,k+1))
+        zqs2 = r2es*foeew(t(i,k+1), zdelta)/pplay(i, k+1)
+        zqs2 = min(0.5, zqs2)
+        zcor = 1./(1.-retv*zqs2)
+        zqs2 = zqs2*zcor
+        zdqs2 = foede(t(i,k+1), zdelta, zcvm5, zqs2, zcor)
+      ELSE
+        IF (t(i,k)<t_coup) THEN
+          zqs1 = qsats(t(i,k))/pplay(i, k)
+          zdqs1 = dqsats(t(i,k), zqs1)
+
+          zqs2 = qsats(t(i,k+1))/pplay(i, k+1)
+          zdqs2 = dqsats(t(i,k+1), zqs2)
+        ELSE
+          zqs1 = qsatl(t(i,k))/pplay(i, k)
+          zdqs1 = dqsatl(t(i,k), zqs1)
+
+          zqs2 = qsatl(t(i,k+1))/pplay(i, k+1)
+          zdqs2 = dqsatl(t(i,k+1), zqs2)
+        END IF
+      END IF
+      zdp1 = paprs(i, k) - paprs(i, k+1)
+      zdp2 = paprs(i, k+1) - paprs(i, k+2)
+      zgamdz = -(pplay(i,k)-pplay(i,k+1))/paprs(i, k+1)/rcpd*(rd*(t(i, &
+        k)*zdp1+t(i,k+1)*zdp2)/(zdp1+zdp2)+rlvtt*(zqs1*zdp1+zqs2*zdp2)/(zdp1+ &
+        zdp2))/(1.0+(zdqs1*zdp1+zdqs2*zdp2)/(zdp1+zdp2))
+      zflo = t(i, k) + zgamdz - t(i, k+1)
+      zsat = (q(i,k)-zqs1)*zdp1 + (q(i,k+1)-zqs2)*zdp2
+      IF (zflo>0.0) afaire(i) = .TRUE.
+      ! erreur         IF (zflo.GT.0.0 .AND. zsat.GT.0.0) afaire(i) = .TRUE.
+    END DO
+  END DO
+
+  imprim = mod(ncpt, 48) == 0
+  DO n = 1, nb
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (afaire(i)) THEN
+          zq1 = q(i, k)*(1.0-ratqs)
+          zq2 = q(i, k)*(1.0+ratqs)
+          w_q(i, k) = zq2 - frac(n)/2.0*(zq2-zq1)
+        END IF
+      END DO
+    END DO
+
+    CALL conmanv(dtime, paprs, pplay, t, w_q, afaire, opt_cld(n), w_d_t, &
+      w_d_q, w_d_ql, w_rneb, w_rain, w_snow, w_ibas, w_itop, accompli, &
+      imprim)
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (afaire(i) .AND. accompli(i)) THEN
+          d_t(i, k) = w_d_t(i, k)*frac(n)
+          d_q(i, k) = w_d_q(i, k)*frac(n)
+          d_ql(i, k) = w_d_ql(i, k)*frac(n)
+          IF (nint(w_rneb(i,k))==1) rneb(i, k) = frac(n)
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (afaire(i) .AND. accompli(i)) THEN
+        rain(i) = w_rain(i)*frac(n)
+        snow(i) = w_snow(i)*frac(n)
+        ibas(i) = min(ibas(i), w_ibas(i))
+        itop(i) = max(itop(i), w_itop(i))
+      END IF
+    END DO
+    DO i = 1, klon
+      IF (afaire(i) .AND. accompli(i)) afaire(i) = .FALSE.
+    END DO
+
+  END DO
+
+  ncpt = ncpt + 1
+
+  RETURN
+END SUBROUTINE conman
+SUBROUTINE conmanv(dtime, paprs, pplay, t, q, afaire, opt_cld, d_t, d_q, &
+    d_ql, rneb, rain, snow, ibas, itop, accompli, imprim)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: ajustement humide (convection proposee par Manabe).
+  ! Pour une colonne verticale, il peut avoir plusieurs blocs
+  ! necessitant l'ajustement. ibas est le bas du plus bas bloc
+  ! et itop est le haut du plus haut bloc
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  REAL dtime ! pas d'integration (s)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (kg/kg)
+  REAL paprs(klon, klev+1) ! pression inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  INTEGER opt_cld ! comment traiter l'eau liquide
+  LOGICAL afaire(klon) ! .TRUE. si le point est a faire (Input)
+  LOGICAL imprim ! .T. pour imprimer quelques diagnostiques
+
+  REAL d_t(klon, klev) ! incrementation temperature
+  REAL d_q(klon, klev) ! incrementation humidite
+  REAL d_ql(klon, klev) ! incrementation eau liquide
+  REAL rneb(klon, klev) ! nebulosite
+  REAL rain(klon) ! pluies (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  INTEGER ibas(klon) ! niveau du bas
+  INTEGER itop(klon) ! niveau du haut
+  LOGICAL accompli(klon) ! .TRUE. si l'ajustement a eu lieu (Output)
+
+  ! Quelques options:
+
+  LOGICAL new_top ! re-calculer sommet quand re-ajustement est fait
+  PARAMETER (new_top=.FALSE.)
+  LOGICAL evap_prec ! evaporation de pluie au-dessous de convection
+  PARAMETER (evap_prec=.TRUE.)
+  REAL coef_eva
+  PARAMETER (coef_eva=1.0E-05)
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+  REAL seuil_vap
+  PARAMETER (seuil_vap=1.0E-10)
+  LOGICAL old_tau ! implique precip nulle, si vrai.
+  PARAMETER (old_tau=.FALSE.)
+  REAL toliq(klon) ! rapport entre l'eau nuageuse et l'eau precipitante
+  REAL dpmin, tomax !Epaisseur faible, rapport eau liquide plus grande
+  PARAMETER (dpmin=0.15, tomax=0.97)
+  REAL dpmax, tomin !Epaisseur grande, rapport eau liquide plus faible
+  PARAMETER (dpmax=0.30, tomin=0.05)
+  REAL deep_sig, deep_to ! au dela de deep_sig, utiliser deep_to
+  PARAMETER (deep_sig=0.50, deep_to=0.05)
+  LOGICAL exigent ! implique un calcul supplementaire pour Qs
+  PARAMETER (exigent=.FALSE.)
+
+  INTEGER kbase
+  PARAMETER (kbase=0)
+
+  ! Variables locales:
+
+  INTEGER nexpo
+  INTEGER i, k, k1min, k1max, k2min, k2max, is
+  REAL zgamdz(klon, klev-1)
+  REAL zt(klon, klev), zq(klon, klev)
+  REAL zqs(klon, klev), zdqs(klon, klev)
+  REAL zqmqsdp(klon, klev)
+  REAL ztnew(klon, klev), zqnew(klon, klev)
+  REAL zcond(klon), zvapo(klon), zrapp(klon)
+  REAL zrfl(klon), zrfln, zqev, zqevt
+  REAL zsat(klon) ! sur-saturation
+  REAL zflo(klon) ! flotabilite
+  REAL za(klon), zb(klon), zc(klon)
+  INTEGER k1(klon), k2(klon)
+  REAL zdelta, zcor, zcvm5
+  REAL delp(klon, klev)
+  LOGICAL possible(klon), todo(klon), etendre(klon)
+  LOGICAL aller(klon), todobis(klon)
+  REAL zalfa
+  INTEGER nbtodo, nbdone
+
+  ! Fonctions thermodynamiques:
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  DO k = 1, klev
+    DO i = 1, klon
+      delp(i, k) = paprs(i, k) - paprs(i, k+1)
+    END DO
+  END DO
+
+  ! Initialiser les sorties a zero
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+      d_ql(i, k) = 0.0
+      rneb(i, k) = 0.0
+    END DO
+  END DO
+  DO i = 1, klon
+    ibas(i) = klev
+    itop(i) = 1
+    rain(i) = 0.0
+    snow(i) = 0.0
+    accompli(i) = .FALSE.
+  END DO
+
+  ! Preparations
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (afaire(i)) THEN
+        zt(i, k) = t(i, k)
+        zq(i, k) = q(i, k)
+
+        ! Calculer Qs et L/Cp*dQs/dT
+
+        IF (thermcep) THEN
+          zdelta = max(0., sign(1.,rtt-zt(i,k)))
+          zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+          zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*zq(i,k))
+          zqs(i, k) = r2es*foeew(zt(i,k), zdelta)/pplay(i, k)
+          zqs(i, k) = min(0.5, zqs(i,k))
+          zcor = 1./(1.-retv*zqs(i,k))
+          zqs(i, k) = zqs(i, k)*zcor
+          zdqs(i, k) = foede(zt(i,k), zdelta, zcvm5, zqs(i,k), zcor)
+        ELSE
+          IF (zt(i,k)<t_coup) THEN
+            zqs(i, k) = qsats(zt(i,k))/pplay(i, k)
+            zdqs(i, k) = dqsats(zt(i,k), zqs(i,k))
+          ELSE
+            zqs(i, k) = qsatl(zt(i,k))/pplay(i, k)
+            zdqs(i, k) = dqsatl(zt(i,k), zqs(i,k))
+          END IF
+        END IF
+
+        ! Calculer (q-qs)*dp
+        zqmqsdp(i, k) = (zq(i,k)-zqs(i,k))*delp(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! -----zgama is the moist convective lapse rate (-dT/dz).
+  ! -----zgamdz(*,k) est la difference minimale autorisee des temperatures
+  ! -----entre deux couches (k et k+1), c.a.d. si T(k+1)-T(k) est inferieur
+  ! -----a zgamdz(*,k), alors ces 2 couches sont instables conditionnellement
+
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      IF (afaire(i)) THEN
+        zgamdz(i, k) = -(pplay(i,k)-pplay(i,k+1))/paprs(i, k+1)/rcpd*(rd*(zt( &
+          i,k)*delp(i,k)+zt(i,k+1)*delp(i,k+1))/(delp(i,k)+delp(i, &
+          k+1))+rlvtt*(zqs(i,k)*delp(i,k)+zqs(i,k+1)*delp(i,k+1))/(delp(i, &
+          k)+delp(i,k+1)))/(1.0+(zdqs(i,k)*delp(i,k)+zdqs(i,k+1)*delp(i, &
+          k+1))/(delp(i,k)+delp(i,k+1)))
+      END IF
+    END DO
+  END DO
+
+  ! On cherche la presence simultanee d'instabilite conditionnelle
+  ! et de sur-saturation. Sinon, pas la penne de se fatiguer:
+
+  DO i = 1, klon
+    possible(i) = .FALSE.
+  END DO
+  DO k = 2, klev
+    DO i = 1, klon
+      IF (afaire(i)) THEN
+        zflo(i) = zt(i, k-1) + zgamdz(i, k-1) - zt(i, k)
+        zsat(i) = zqmqsdp(i, k) + zqmqsdp(i, k-1)
+        IF (zflo(i)>0.0 .AND. zsat(i)>0.0) possible(i) = .TRUE.
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    IF (possible(i)) THEN
+      k1(i) = kbase
+      k2(i) = k1(i) + 1
+    END IF
+  END DO
+
+810 CONTINUE ! chercher le bas de la colonne a ajuster
+
+  k2min = klev
+  DO i = 1, klon
+    todo(i) = .FALSE.
+    aller(i) = .TRUE.
+    IF (possible(i)) k2min = min(k2min, k2(i))
+  END DO
+  IF (k2min==klev) GO TO 860
+  DO k = k2min, klev - 1
+    DO i = 1, klon
+      IF (possible(i) .AND. k>=k2(i) .AND. aller(i)) THEN
+        zflo(i) = zt(i, k) + zgamdz(i, k) - zt(i, k+1)
+        zsat(i) = zqmqsdp(i, k) + zqmqsdp(i, k+1)
+        IF (zflo(i)>0.0 .AND. zsat(i)>0.0) THEN
+          k1(i) = k
+          k2(i) = k + 1
+          todo(i) = .TRUE.
+          aller(i) = .FALSE.
+        END IF
+      END IF
+    END DO
+  END DO
+  DO i = 1, klon
+    IF (possible(i) .AND. aller(i)) THEN
+      todo(i) = .FALSE.
+      k1(i) = klev
+      k2(i) = klev
+    END IF
+  END DO
+
+  ! CC      DO i = 1, klon
+  ! CC      IF (possible(i)) THEN
+  ! CC  811    k2(i) = k2(i) + 1
+  ! CC         IF (k2(i) .GT. klev) THEN
+  ! CC            todo(i) = .FALSE.
+  ! CC            GOTO 812
+  ! CC         ENDIF
+  ! CC         k = k2(i)
+  ! CC         zflo(i) = zt(i,k-1) + zgamdz(i,k-1) - zt(i,k)
+  ! CC         zsat(i) = zqmqsdp(i,k) + zqmqsdp(i,k-1)
+  ! CC         IF (zflo(i).LE.0.0 .OR. zsat(i).LE.0.0) GOTO 811
+  ! CC         k1(i) = k2(i) - 1
+  ! CC         todo(i) = .TRUE.
+  ! CC      ENDIF
+  ! CC  812 CONTINUE
+  ! CC      ENDDO
+
+820 CONTINUE ! chercher le haut de la colonne
+
+  k2min = klev
+  DO i = 1, klon
+    aller(i) = .TRUE.
+    IF (todo(i)) k2min = min(k2min, k2(i))
+  END DO
+  IF (k2min<klev) THEN
+    DO k = k2min, klev
+      DO i = 1, klon
+        IF (todo(i) .AND. k>k2(i) .AND. aller(i)) THEN
+          zsat(i) = zsat(i) + zqmqsdp(i, k)
+          zflo(i) = zt(i, k-1) + zgamdz(i, k-1) - zt(i, k)
+          IF (zflo(i)<=0.0 .OR. zsat(i)<=0.0) THEN
+            aller(i) = .FALSE.
+          ELSE
+            k2(i) = k
+          END IF
+        END IF
+      END DO
+    END DO
+    ! error      is = 0
+    ! error      DO i = 1, klon
+    ! error      IF(todo(i).AND.aller(i)) THEN
+    ! error         is = is + 1
+    ! error         todo(i) = .FALSE.
+    ! error         k2(i) = klev
+    ! error      ENDIF
+    ! error      ENDDO
+    ! error      IF (is.GT.0) THEN
+    ! error         PRINT*, "Bizard. je pourrais continuer mais j arrete"
+    ! error         CALL abort
+    ! error      ENDIF
+  END IF
+
+  ! CC      DO i = 1, klon
+  ! CC      IF (todo(i)) THEN
+  ! CC  821    CONTINUE
+  ! CC         IF (k2(i) .EQ. klev) GOTO 822
+  ! CC         k = k2(i) + 1
+  ! CC         zsat(i) = zsat(i) + zqmqsdp(i,k)
+  ! CC         zflo(i) = zt(i,k-1) + zgamdz(i,k-1) - zt(i,k)
+  ! CC         IF (zflo(i).LE.0.0 .OR. zsat(i).LE.0.0) GOTO 822
+  ! CC         k2(i) = k
+  ! CC         GOTO 821
+  ! CC      ENDIF
+  ! CC  822 CONTINUE
+  ! CC      ENDDO
+
+830 CONTINUE ! faire l'ajustement en sachant k1 et k2
+
+  is = 0
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      IF (k2(i)<=k1(i)) is = is + 1
+    END IF
+  END DO
+  IF (is>0) THEN
+    PRINT *, 'Impossible: k1 trop grand ou k2 trop petit'
+    PRINT *, 'is=', is
+    CALL abort
+  END IF
+
+  k1min = klev
+  k1max = 1
+  k2max = 1
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      k1min = min(k1min, k1(i))
+      k1max = max(k1max, k1(i))
+      k2max = max(k2max, k2(i))
+    END IF
+  END DO
+
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      k = k1(i)
+      za(i) = 0.
+      zb(i) = (rcpd*(1.+zdqs(i,k))*(zt(i,k)-za(i))-rlvtt*(zqs(i,k)-zq(i, &
+        k)))*delp(i, k)
+      zc(i) = delp(i, k)*rcpd*(1.+zdqs(i,k))
+    END IF
+  END DO
+
+  DO k = k1min, k2max
+    DO i = 1, klon
+      IF (todo(i) .AND. k>=(k1(i)+1) .AND. k<=k2(i)) THEN
+        za(i) = za(i) + zgamdz(i, k-1)
+        zb(i) = zb(i) + (rcpd*(1.+zdqs(i,k))*(zt(i,k)-za(i))-rlvtt*(zqs(i, &
+          k)-zq(i,k)))*delp(i, k)
+        zc(i) = zc(i) + delp(i, k)*rcpd*(1.+zdqs(i,k))
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      k = k1(i)
+      ztnew(i, k) = zb(i)/zc(i)
+      zqnew(i, k) = zqs(i, k) + (ztnew(i,k)-zt(i,k))*rcpd/rlvtt*zdqs(i, k)
+    END IF
+  END DO
+
+  DO k = k1min, k2max
+    DO i = 1, klon
+      IF (todo(i) .AND. k>=(k1(i)+1) .AND. k<=k2(i)) THEN
+        ztnew(i, k) = ztnew(i, k-1) + zgamdz(i, k-1)
+        zqnew(i, k) = zqs(i, k) + (ztnew(i,k)-zt(i,k))*rcpd/rlvtt*zdqs(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! Quantite de condensation produite pendant l'ajustement:
+
+  DO i = 1, klon
+    zcond(i) = 0.0
+  END DO
+  DO k = k1min, k2max
+    DO i = 1, klon
+      IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) THEN
+        rneb(i, k) = 1.0
+        zcond(i) = zcond(i) + (zq(i,k)-zqnew(i,k))*delp(i, k)/rg
+      END IF
+    END DO
+  END DO
+
+  ! Si condensation negative, effort completement perdu:
+
+  DO i = 1, klon
+    IF (todo(i) .AND. zcond(i)<=0.) todo(i) = .FALSE.
+  END DO
+
+  ! L'ajustement a ete accompli, meme les calculs accessoires
+  ! ne sont pas encore faits:
+
+  DO i = 1, klon
+    IF (todo(i)) accompli(i) = .TRUE.
+  END DO
+
+  ! =====
+  ! Une fois que la condensation a lieu, on doit construire un
+  ! "modele nuageux" pour partager la condensation entre l'eau
+  ! liquide nuageuse et la precipitation (leur rapport toliq
+  ! est calcule selon l'epaisseur nuageuse). Je suppose que
+  ! toliq=tomax quand l'epaisseur nuageuse est inferieure a dpmin,
+  ! et que toliq=tomin quand l'epaisseur depasse dpmax (interpolation
+  ! lineaire entre dpmin et dpmax).
+  ! =====
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      toliq(i) = tomax - ((paprs(i,k1(i))-paprs(i,k2(i)+1))/paprs(i,1)-dpmin) &
+        *(tomax-tomin)/(dpmax-dpmin)
+      toliq(i) = max(tomin, min(tomax,toliq(i)))
+      IF (pplay(i,k2(i))/paprs(i,1)<=deep_sig) toliq(i) = deep_to
+      IF (old_tau) toliq(i) = 1.0
+    END IF
+  END DO
+  ! =====
+  ! On doit aussi determiner la distribution verticale de
+  ! l'eau nuageuse. Plusieurs options sont proposees:
+
+  ! (0) La condensation precipite integralement (toliq ne sera
+  ! pas utilise).
+  ! (1) L'eau liquide est distribuee entre k1 et k2 et proportionnelle
+  ! a la vapeur d'eau locale.
+  ! (2) Elle est distribuee entre k1 et k2 avec une valeur constante.
+  ! (3) Elle est seulement distribuee aux couches ou la vapeur d'eau
+  ! est effectivement diminuee pendant le processus d'ajustement.
+  ! (4) Elle est en fonction (lineaire ou exponentielle) de la
+  ! distance (epaisseur en pression) avec le niveau k1 (la couche
+  ! k1 n'aura donc pas d'eau liquide).
+  ! =====
+
+  IF (opt_cld==0) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zrfl(i) = zcond(i)/dtime
+    END DO
+
+  ELSE IF (opt_cld==1) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zvapo(i) = 0.0 ! quantite integrale de vapeur d'eau
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) zvapo(i) = zvapo(i) + &
+          zqnew(i, k)*delp(i, k)/rg
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zrapp(i) = toliq(i)*zcond(i)/zvapo(i)
+        zrapp(i) = max(0., min(1.,zrapp(i)))
+        zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+      END IF
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) THEN
+          d_ql(i, k) = d_ql(i, k) + zrapp(i)*zqnew(i, k)
+        END IF
+      END DO
+    END DO
+
+  ELSE IF (opt_cld==2) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zvapo(i) = 0.0 ! quantite integrale de masse
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) zvapo(i) = zvapo(i) + &
+          delp(i, k)/rg
+      END DO
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) THEN
+          d_ql(i, k) = d_ql(i, k) + toliq(i)*zcond(i)/zvapo(i)
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+    END DO
+
+  ELSE IF (opt_cld==3) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zvapo(i) = 0.0 ! quantite de l'eau strictement condensee
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) zvapo(i) = zvapo(i) + &
+          max(0.0, zq(i,k)-zqnew(i,k))*delp(i, k)/rg
+      END DO
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i) .AND. zvapo(i)>0.0) d_ql(i, &
+          k) = d_ql(i, k) + toliq(i)*zcond(i)/zvapo(i)*max(0.0, zq(i,k)-zqnew &
+          (i,k))
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+    END DO
+
+  ELSE IF (opt_cld==4) THEN
+
+    nexpo = 3
+    ! cc         nexpo = 1 ! distribution lineaire
+
+    DO i = 1, klon
+      IF (todo(i)) zvapo(i) = 0.0 ! quantite integrale de masse
+    END DO ! (avec ponderation)
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=(k1(i)+1) .AND. k<=k2(i)) zvapo(i) = zvapo(i) + &
+          delp(i, k)/rg*(pplay(i,k1(i))-pplay(i,k))**nexpo
+      END DO
+    END DO
+    DO k = k1min, k2max
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=(k1(i)+1) .AND. k<=k2(i)) d_ql(i, k) = d_ql(i, &
+          k) + toliq(i)*zcond(i)/zvapo(i)*(pplay(i,k1(i))-pplay(i,k))**nexpo
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+    END DO
+
+  ELSE ! valeur non-prevue pour opt_cld
+
+    PRINT *, 'opt_cld est faux:', opt_cld
+    CALL abort
+
+  END IF ! fin de opt_cld
+
+  ! L'eau precipitante peut etre evaporee:
+
+  zalfa = 0.05
+  IF (evap_prec .AND. (k1max>=2)) THEN
+    DO k = k1max - 1, 1, -1
+      DO i = 1, klon
+        IF (todo(i) .AND. k<k1(i) .AND. zrfl(i)>0.0) THEN
+          zqev = max(0.0, (zqs(i,k)-zq(i,k))*zalfa)
+          zqevt = coef_eva*(1.0-zq(i,k)/zqs(i,k))*sqrt(zrfl(i))*delp(i, k)/ &
+            pplay(i, k)*zt(i, k)*rd/rg
+          zqevt = max(0.0, min(zqevt,zrfl(i)))*rg*dtime/delp(i, k)
+          zqev = min(zqev, zqevt)
+          zrfln = zrfl(i) - zqev*(delp(i,k))/rg/dtime
+          zq(i, k) = zq(i, k) - (zrfln-zrfl(i))*(rg/(delp(i,k)))*dtime
+          zt(i, k) = zt(i, k) + (zrfln-zrfl(i))*(rg/(delp(i, &
+            k)))*dtime*rlvtt/rcpd/(1.0+rvtmp2*zq(i,k))
+          zrfl(i) = zrfln
+        END IF
+      END DO
+    END DO
+  END IF
+
+  ! La temperature de la premiere couche determine la pluie ou la neige:
+
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      IF (zt(i,1)>rtt) THEN
+        rain(i) = rain(i) + zrfl(i)
+      ELSE
+        snow(i) = snow(i) + zrfl(i)
+      END IF
+    END IF
+  END DO
+
+  ! Mise a jour de la temperature et de l'humidite
+
+  DO k = k1min, k2max
+    DO i = 1, klon
+      IF (todo(i) .AND. k>=k1(i) .AND. k<=k2(i)) THEN
+        zt(i, k) = ztnew(i, k)
+        zq(i, k) = zqnew(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! Re-calculer certaines variables pour etendre et re-ajuster la colonne
+
+  IF (exigent) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (todo(i)) THEN
+          IF (thermcep) THEN
+            zdelta = max(0., sign(1.,rtt-zt(i,k)))
+            zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+            zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*zq(i,k))
+            zqs(i, k) = r2es*foeew(zt(i,k), zdelta)/pplay(i, k)
+            zqs(i, k) = min(0.5, zqs(i,k))
+            zcor = 1./(1.-retv*zqs(i,k))
+            zqs(i, k) = zqs(i, k)*zcor
+            zdqs(i, k) = foede(zt(i,k), zdelta, zcvm5, zqs(i,k), zcor)
+          ELSE
+            IF (zt(i,k)<t_coup) THEN
+              zqs(i, k) = qsats(zt(i,k))/pplay(i, k)
+              zdqs(i, k) = dqsats(zt(i,k), zqs(i,k))
+            ELSE
+              zqs(i, k) = qsatl(zt(i,k))/pplay(i, k)
+              zdqs(i, k) = dqsatl(zt(i,k), zqs(i,k))
+            END IF
+          END IF
+        END IF
+      END DO
+    END DO
+  END IF
+
+  IF (exigent) THEN
+    DO k = 1, klev - 1
+      DO i = 1, klon
+        IF (todo(i)) THEN
+          zgamdz(i, k) = -(pplay(i,k)-pplay(i,k+1))/paprs(i, k+1)/rcpd*(rd*( &
+            zt(i,k)*delp(i,k)+zt(i,k+1)*delp(i,k+1))/(delp(i,k)+delp(i, &
+            k+1))+rlvtt*(zqs(i,k)*delp(i,k)+zqs(i,k+1)*delp(i,k+1))/(delp(i, &
+            k)+delp(i,k+1)))/(1.0+(zdqs(i,k)*delp(i,k)+zdqs(i,k+1)*delp(i, &
+            k+1))/(delp(i,k)+delp(i,k+1)))
+        END IF
+      END DO
+    END DO
+  END IF
+
+  ! Puisque l'humidite a ete modifiee, on re-fait (q-qs)*dp
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zqmqsdp(i, k) = (zq(i,k)-zqs(i,k))*delp(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! Verifier si l'on peut etendre le bas de la colonne
+
+  DO i = 1, klon
+    etendre(i) = .FALSE.
+  END DO
+
+  k1max = 1
+  DO i = 1, klon
+    IF (todo(i) .AND. k1(i)>(kbase+1)) THEN
+      k = k1(i)
+      zflo(i) = zt(i, k-1) + zgamdz(i, k-1) - zt(i, k)
+      zsat(i) = zqmqsdp(i, k) + zqmqsdp(i, k-1)
+      ! sc voici l'ancienne ligne:
+      ! sc         IF (zflo(i).LE.0.0 .OR. zsat(i).LE.0.0) THEN
+      ! sc sylvain: il faut RESPECTER les 2 criteres:
+      IF (zflo(i)>0.0 .AND. zsat(i)>0.0) THEN
+        etendre(i) = .TRUE.
+        k1(i) = k1(i) - 1
+        k1max = max(k1max, k1(i))
+        aller(i) = .TRUE.
+      END IF
+    END IF
+  END DO
+
+  IF (k1max>(kbase+1)) THEN
+    DO k = k1max, kbase + 1, -1
+      DO i = 1, klon
+        IF (etendre(i) .AND. k<k1(i) .AND. aller(i)) THEN
+          zsat(i) = zsat(i) + zqmqsdp(i, k)
+          zflo(i) = zt(i, k) + zgamdz(i, k) - zt(i, k+1)
+          IF (zsat(i)<=0.0 .OR. zflo(i)<=0.0) THEN
+            aller(i) = .FALSE.
+          ELSE
+            k1(i) = k
+          END IF
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (etendre(i) .AND. aller(i)) THEN
+        k1(i) = 1
+      END IF
+    END DO
+  END IF
+
+  ! CC      DO i = 1, klon
+  ! CC      IF (etendre(i)) THEN
+  ! CC  840    k = k1(i)
+  ! CC         IF (k.GT.1) THEN
+  ! CC            zsat(i) = zsat(i) + zqmqsdp(i,k-1)
+  ! CC            zflo(i) = zt(i,k-1) + zgamdz(i,k-1) - zt(i,k)
+  ! CC            IF (zflo(i).GT.0.0 .AND. zsat(i).GT.0.0) THEN
+  ! CC               k1(i) = k - 1
+  ! CC               GOTO 840
+  ! CC            ENDIF
+  ! CC         ENDIF
+  ! CC      ENDIF
+  ! CC      ENDDO
+
+  DO i = 1, klon
+    todobis(i) = todo(i)
+    todo(i) = .FALSE.
+  END DO
+  is = 0
+  DO i = 1, klon
+    IF (etendre(i)) THEN
+      todo(i) = .TRUE.
+      is = is + 1
+    END IF
+  END DO
+  IF (is>0) THEN
+    IF (new_top) THEN
+      GO TO 820 ! chercher de nouveau le sommet k2
+    ELSE
+      GO TO 830 ! supposer que le sommet est celui deja trouve
+    END IF
+  END IF
+
+  DO i = 1, klon
+    possible(i) = .FALSE.
+  END DO
+  is = 0
+  DO i = 1, klon
+    IF (todobis(i) .AND. k2(i)<klev) THEN
+      is = is + 1
+      possible(i) = .TRUE.
+    END IF
+  END DO
+  IF (is>0) GO TO 810 !on cherche en haut d'autres blocks
+  ! a ajuster a partir du sommet de la colonne precedente
+
+860 CONTINUE ! Calculer les tendances et diagnostiques
+  ! cc      print*, "Apres 860"
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (accompli(i)) THEN
+        d_t(i, k) = zt(i, k) - t(i, k)
+        zq(i, k) = max(zq(i,k), seuil_vap)
+        d_q(i, k) = zq(i, k) - q(i, k)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    IF (accompli(i)) THEN
+      DO k = 1, klev
+        IF (rneb(i,k)>0.0) THEN
+          ibas(i) = k
+          GO TO 807
+        END IF
+      END DO
+807   CONTINUE
+      DO k = klev, 1, -1
+        IF (rneb(i,k)>0.0) THEN
+          itop(i) = k
+          GO TO 808
+        END IF
+      END DO
+808   CONTINUE
+    END IF
+  END DO
+
+  IF (imprim) THEN
+    nbtodo = 0
+    nbdone = 0
+    DO i = 1, klon
+      IF (afaire(i)) nbtodo = nbtodo + 1
+      IF (accompli(i)) nbdone = nbdone + 1
+    END DO
+    PRINT *, 'nbTodo, nbDone=', nbtodo, nbdone
+  END IF
+
+  RETURN
+END SUBROUTINE conmanv
+SUBROUTINE conkuo(dtime, paprs, pplay, t, q, conv_q, d_t, d_q, d_ql, rneb, &
+    rain, snow, ibas, itop)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: Schema de convection de type Kuo (1965).
+  ! Cette version du code peut calculer le niveau de depart
+  ! N.B. version vectorielle (le 6 oct. 1997)
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  REAL dtime ! intervalle du temps (s)
+  REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique
+  REAL conv_q(klon, klev) ! taux de convergence humidite (g/g/s)
+
+  REAL d_t(klon, klev) ! incrementation temperature
+  REAL d_q(klon, klev) ! incrementation humidite
+  REAL d_ql(klon, klev) ! incrementation eau liquide
+  REAL rneb(klon, klev) ! nebulosite
+  REAL rain(klon) ! pluies (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  INTEGER itop(klon) ! niveau du sommet
+  INTEGER ibas(klon) ! niveau du bas
+
+  LOGICAL ldcum(klon) ! convection existe
+  LOGICAL todo(klon)
+
+  ! Quelsques options:
+
+  LOGICAL calcfcl ! calculer le niveau de convection libre
+  PARAMETER (calcfcl=.TRUE.)
+  INTEGER ldepar ! niveau fixe de convection libre
+  PARAMETER (ldepar=4)
+  INTEGER opt_cld ! comment traiter l'eau liquide
+  PARAMETER (opt_cld=4) ! valeur possible: 0, 1, 2, 3 ou 4
+  LOGICAL evap_prec ! evaporation de pluie au-dessous de convection
+  PARAMETER (evap_prec=.TRUE.)
+  REAL coef_eva
+  PARAMETER (coef_eva=1.0E-05)
+  LOGICAL new_deh ! nouvelle facon de calculer dH
+  PARAMETER (new_deh=.FALSE.)
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+  LOGICAL old_tau ! implique precipitation nulle
+  PARAMETER (old_tau=.FALSE.)
+  REAL toliq(klon) ! rapport entre l'eau nuageuse et l'eau precipitante
+  REAL dpmin, tomax !Epaisseur faible, rapport eau liquide plus grande
+  PARAMETER (dpmin=0.15, tomax=0.97)
+  REAL dpmax, tomin !Epaisseur grande, rapport eau liquide plus faible
+  PARAMETER (dpmax=0.30, tomin=0.05)
+  REAL deep_sig, deep_to ! au dela de deep_sig, utiliser deep_to
+  PARAMETER (deep_sig=0.50, deep_to=0.05)
+
+  ! Variables locales:
+
+  INTEGER nexpo
+  LOGICAL nuage(klon)
+  INTEGER i, k, kbmin, kbmax, khmax
+  REAL ztotal(klon, klev), zdeh(klon, klev)
+  REAL zgz(klon, klev)
+  REAL zqs(klon, klev)
+  REAL zdqs(klon, klev)
+  REAL ztemp(klon, klev)
+  REAL zpres(klon, klev)
+  REAL zconv(klon) ! convergence d'humidite
+  REAL zvirt(klon) ! convergence virtuelle d'humidite
+  REAL zfrac(klon) ! fraction convective
+  INTEGER kb(klon), kh(klon)
+
+  REAL zcond(klon), zvapo(klon), zrapp(klon)
+  REAL zrfl(klon), zrfln, zqev, zqevt
+  REAL zdelta, zcvm5, zcor
+  REAL zvar
+
+  LOGICAL appel1er
+  SAVE appel1er
+  !$OMP THREADPRIVATE(appel1er)
+
+  ! Fonctions thermodynamiques
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  DATA appel1er/.TRUE./
+
+  IF (appel1er) THEN
+    PRINT *, 'conkuo, calcfcl:', calcfcl
+    IF (.NOT. calcfcl) PRINT *, 'conkuo, ldepar:', ldepar
+    PRINT *, 'conkuo, opt_cld:', opt_cld
+    PRINT *, 'conkuo, evap_prec:', evap_prec
+    PRINT *, 'conkuo, new_deh:', new_deh
+    appel1er = .FALSE.
+  END IF
+
+  ! Initialiser les sorties a zero
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_q(i, k) = 0.0
+      d_t(i, k) = 0.0
+      d_ql(i, k) = 0.0
+      rneb(i, k) = 0.0
+    END DO
+  END DO
+  DO i = 1, klon
+    rain(i) = 0.0
+    snow(i) = 0.0
+    ibas(i) = 0
+    itop(i) = 0
+  END DO
+
+  ! Calculer la vapeur d'eau saturante Qs et sa derive L/Cp * dQs/dT
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (thermcep) THEN
+        zdelta = max(0., sign(1.,rtt-t(i,k)))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*q(i,k))
+        zqs(i, k) = r2es*foeew(t(i,k), zdelta)/pplay(i, k)
+        zqs(i, k) = min(0.5, zqs(i,k))
+        zcor = 1./(1.-retv*zqs(i,k))
+        zqs(i, k) = zqs(i, k)*zcor
+        zdqs(i, k) = foede(t(i,k), zdelta, zcvm5, zqs(i,k), zcor)
+      ELSE
+        IF (t(i,k)<t_coup) THEN
+          zqs(i, k) = qsats(t(i,k))/pplay(i, k)
+          zdqs(i, k) = dqsats(t(i,k), zqs(i,k))
+        ELSE
+          zqs(i, k) = qsatl(t(i,k))/pplay(i, k)
+          zdqs(i, k) = dqsatl(t(i,k), zqs(i,k))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Calculer gz (energie potentielle)
+
+  DO i = 1, klon
+    zgz(i, 1) = rd*t(i, 1)/(0.5*(paprs(i,1)+pplay(i, &
+      1)))*(paprs(i,1)-pplay(i,1))
+  END DO
+  DO k = 2, klev
+    DO i = 1, klon
+      zgz(i, k) = zgz(i, k-1) + rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)*(pplay(i &
+        ,k-1)-pplay(i,k))
+    END DO
+  END DO
+
+  ! Calculer l'energie statique humide saturee (Cp*T + gz + L*Qs)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ztotal(i, k) = rcpd*t(i, k) + rlvtt*zqs(i, k) + zgz(i, k)
+    END DO
+  END DO
+
+  ! Determiner le niveau de depart et calculer la difference de
+  ! l'energie statique humide saturee (ztotal) entre la couche
+  ! de depart et chaque couche au-dessus.
+
+  IF (calcfcl) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        zpres(i, k) = pplay(i, k)
+        ztemp(i, k) = t(i, k)
+      END DO
+    END DO
+    CALL kuofcl(ztemp, q, zgz, zpres, ldcum, kb)
+    DO i = 1, klon
+      IF (ldcum(i)) THEN
+        k = kb(i)
+        IF (new_deh) THEN
+          zdeh(i, k) = ztotal(i, k-1) - ztotal(i, k)
+        ELSE
+          zdeh(i, k) = rcpd*(t(i,k-1)-t(i,k)) - rd*0.5*(t(i,k-1)+t(i,k))/ &
+            paprs(i, k)*(pplay(i,k-1)-pplay(i,k)) + &
+            rlvtt*(zqs(i,k-1)-zqs(i,k))
+        END IF
+        zdeh(i, k) = zdeh(i, k)*0.5
+      END IF
+    END DO
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (ldcum(i) .AND. k>=(kb(i)+1)) THEN
+          IF (new_deh) THEN
+            zdeh(i, k) = zdeh(i, k-1) + (ztotal(i,k-1)-ztotal(i,k))
+          ELSE
+            zdeh(i, k) = zdeh(i, k-1) + rcpd*(t(i,k-1)-t(i,k)) - &
+              rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)* &
+              (pplay(i,k-1)-pplay(i,k)) + rlvtt*(zqs(i,k-1)-zqs(i,k))
+          END IF
+        END IF
+      END DO
+    END DO
+  ELSE
+    DO i = 1, klon
+      k = ldepar
+      kb(i) = ldepar
+      ldcum(i) = .TRUE.
+      IF (new_deh) THEN
+        zdeh(i, k) = ztotal(i, k-1) - ztotal(i, k)
+      ELSE
+        zdeh(i, k) = rcpd*(t(i,k-1)-t(i,k)) - rd*0.5*(t(i,k-1)+t(i,k))/paprs( &
+          i, k)*(pplay(i,k-1)-pplay(i,k)) + rlvtt*(zqs(i,k-1)-zqs(i,k))
+      END IF
+      zdeh(i, k) = zdeh(i, k)*0.5
+    END DO
+    DO k = ldepar + 1, klev
+      DO i = 1, klon
+        IF (new_deh) THEN
+          zdeh(i, k) = zdeh(i, k-1) + (ztotal(i,k-1)-ztotal(i,k))
+        ELSE
+          zdeh(i, k) = zdeh(i, k-1) + rcpd*(t(i,k-1)-t(i,k)) - &
+            rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)*(pplay(i,k-1)-pplay(i,k)) + &
+            rlvtt*(zqs(i,k-1)-zqs(i,k))
+        END IF
+      END DO
+    END DO
+  END IF
+
+  ! -----Chercher le sommet du nuage
+  ! -----Calculer la convergence de l'humidite (en kg/m**2 a un facteur
+  ! -----psolpa/RG pres) du bas jusqu'au sommet du nuage.
+  ! -----Calculer la convergence virtuelle pour que toute la maille
+  ! -----deviennt nuageuse (du bas jusqu'au sommet du nuage)
+
+  DO i = 1, klon
+    nuage(i) = .TRUE.
+    zconv(i) = 0.0
+    zvirt(i) = 0.0
+    kh(i) = -999
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (k>=kb(i) .AND. ldcum(i)) THEN
+        nuage(i) = nuage(i) .AND. zdeh(i, k) > 0.0
+        IF (nuage(i)) THEN
+          kh(i) = k
+          zconv(i) = zconv(i) + conv_q(i, k)*dtime*(paprs(i,k)-paprs(i,k+1))
+          zvirt(i) = zvirt(i) + (zdeh(i,k)/rlvtt+zqs(i,k)-q(i,k))*(paprs(i,k) &
+            -paprs(i,k+1))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    todo(i) = ldcum(i) .AND. kh(i) > kb(i) .AND. zconv(i) > 0.0
+  END DO
+
+  kbmin = klev
+  kbmax = 0
+  khmax = 0
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      kbmin = min(kbmin, kb(i))
+      kbmax = max(kbmax, kb(i))
+      khmax = max(khmax, kh(i))
+    END IF
+  END DO
+
+  ! -----Calculer la surface couverte par le nuage
+
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      zfrac(i) = max(0.0, min(zconv(i)/zvirt(i),1.0))
+    END IF
+  END DO
+
+  ! -----Calculs essentiels:
+
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      zcond(i) = 0.0
+    END IF
+  END DO
+  DO k = kbmin, khmax
+    DO i = 1, klon
+      IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i)) THEN
+        zvar = zdeh(i, k)/(1.+zdqs(i,k))
+        d_t(i, k) = zvar*zfrac(i)/rcpd
+        d_q(i, k) = (zvar*zdqs(i,k)/rlvtt+zqs(i,k)-q(i,k))*zfrac(i) - &
+          conv_q(i, k)*dtime
+        zcond(i) = zcond(i) - d_q(i, k)*(paprs(i,k)-paprs(i,k+1))/rg
+        rneb(i, k) = zfrac(i)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    IF (todo(i) .AND. zcond(i)<0.0) THEN
+      PRINT *, 'WARNING: cond. negative (Kuo) ', i, kb(i), kh(i), zcond(i)
+      zcond(i) = 0.0
+      DO k = kb(i), kh(i)
+        d_t(i, k) = 0.0
+        d_q(i, k) = 0.0
+      END DO
+      todo(i) = .FALSE. ! effort totalement perdu
+    END IF
+  END DO
+
+  ! =====
+  ! Une fois que la condensation a lieu, on doit construire un
+  ! "modele nuageux" pour partager la condensation entre l'eau
+  ! liquide nuageuse et la precipitation (leur rapport toliq
+  ! est calcule selon l'epaisseur nuageuse). Je suppose que
+  ! toliq=tomax quand l'epaisseur nuageuse est inferieure a dpmin,
+  ! et que toliq=tomin quand l'epaisseur depasse dpmax (interpolation
+  ! lineaire entre dpmin et dpmax).
+  ! =====
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      toliq(i) = tomax - ((paprs(i,kb(i))-paprs(i,kh(i)+1))/paprs(i,1)-dpmin) &
+        *(tomax-tomin)/(dpmax-dpmin)
+      toliq(i) = max(tomin, min(tomax,toliq(i)))
+      IF (pplay(i,kh(i))/paprs(i,1)<=deep_sig) toliq(i) = deep_to
+      IF (old_tau) toliq(i) = 1.0
+    END IF
+  END DO
+  ! =====
+  ! On doit aussi determiner la distribution verticale de
+  ! l'eau nuageuse. Plusieurs options sont proposees:
+
+  ! (0) La condensation precipite integralement (toliq ne sera
+  ! pas utilise).
+  ! (1) L'eau liquide est distribuee entre k1 et k2 et proportionnelle
+  ! a la vapeur d'eau locale.
+  ! (2) Elle est distribuee entre k1 et k2 avec une valeur constante.
+  ! (3) Elle est seulement distribuee aux couches ou la vapeur d'eau
+  ! est effectivement diminuee pendant le processus d'ajustement.
+  ! (4) Elle est en fonction (lineaire ou exponentielle) de la
+  ! distance (epaisseur en pression) avec le niveau k1 (la couche
+  ! k1 n'aura donc pas d'eau liquide).
+  ! =====
+
+  IF (opt_cld==0) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zrfl(i) = zcond(i)/dtime
+    END DO
+
+  ELSE IF (opt_cld==1) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zvapo(i) = 0.0 ! quantite integrale de vapeur d'eau
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i)) THEN
+          zvapo(i) = zvapo(i) + (q(i,k)+d_q(i,k))*(paprs(i,k)-paprs(i,k+1))/ &
+            rg
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zrapp(i) = toliq(i)*zcond(i)/zvapo(i)
+        zrapp(i) = max(0., min(1.,zrapp(i)))
+      END IF
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i)) THEN
+          d_ql(i, k) = zrapp(i)*(q(i,k)+d_q(i,k))
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+      END IF
+    END DO
+
+  ELSE IF (opt_cld==2) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) zvapo(i) = 0.0 ! quantite integrale de masse
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i)) THEN
+          zvapo(i) = zvapo(i) + (paprs(i,k)-paprs(i,k+1))/rg
+        END IF
+      END DO
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i)) THEN
+          d_ql(i, k) = toliq(i)*zcond(i)/zvapo(i)
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+      END IF
+    END DO
+
+  ELSE IF (opt_cld==3) THEN
+
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zvapo(i) = 0.0 ! quantite de l'eau strictement condensee
+      END IF
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i)) THEN
+          zvapo(i) = zvapo(i) + max(0.0, -d_q(i,k))*(paprs(i,k)-paprs(i,k+1)) &
+            /rg
+        END IF
+      END DO
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=kb(i) .AND. k<=kh(i) .AND. zvapo(i)>0.0) THEN
+          d_ql(i, k) = d_ql(i, k) + toliq(i)*zcond(i)/zvapo(i)*max(0.0, -d_q( &
+            i,k))
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+      END IF
+    END DO
+
+  ELSE IF (opt_cld==4) THEN
+
+    nexpo = 3
+    ! cc         nexpo = 1 ! distribution lineaire
+
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zvapo(i) = 0.0 ! quantite integrale de masse (avec ponderation)
+      END IF
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=(kb(i)+1) .AND. k<=kh(i)) THEN
+          zvapo(i) = zvapo(i) + (paprs(i,k)-paprs(i,k+1))/rg*(pplay(i,kb(i))- &
+            pplay(i,k))**nexpo
+        END IF
+      END DO
+    END DO
+    DO k = kbmin, khmax
+      DO i = 1, klon
+        IF (todo(i) .AND. k>=(kb(i)+1) .AND. k<=kh(i)) THEN
+          d_ql(i, k) = d_ql(i, k) + toliq(i)*zcond(i)/zvapo(i)*(pplay(i,kb(i) &
+            )-pplay(i,k))**nexpo
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (todo(i)) THEN
+        zrfl(i) = (1.0-toliq(i))*zcond(i)/dtime
+      END IF
+    END DO
+
+  ELSE ! valeur non-prevue pour opt_cld
+
+    PRINT *, 'opt_cld est faux:', opt_cld
+    CALL abort
+
+  END IF ! fin de opt_cld
+
+  ! L'eau precipitante peut etre re-evaporee:
+
+  IF (evap_prec .AND. kbmax>=2) THEN
+    DO k = kbmax, 1, -1
+      DO i = 1, klon
+        IF (todo(i) .AND. k<=(kb(i)-1) .AND. zrfl(i)>0.0) THEN
+          zqev = max(0.0, (zqs(i,k)-q(i,k))*zfrac(i))
+          zqevt = coef_eva*(1.0-q(i,k)/zqs(i,k))*sqrt(zrfl(i))* &
+            (paprs(i,k)-paprs(i,k+1))/pplay(i, k)*t(i, k)*rd/rg
+          zqevt = max(0.0, min(zqevt,zrfl(i)))*rg*dtime/ &
+            (paprs(i,k)-paprs(i,k+1))
+          zqev = min(zqev, zqevt)
+          zrfln = zrfl(i) - zqev*(paprs(i,k)-paprs(i,k+1))/rg/dtime
+          d_q(i, k) = -(zrfln-zrfl(i))*(rg/(paprs(i,k)-paprs(i,k+1)))*dtime
+          d_t(i, k) = (zrfln-zrfl(i))*(rg/(paprs(i,k)-paprs(i, &
+            k+1)))*dtime*rlvtt/rcpd
+          zrfl(i) = zrfln
+        END IF
+      END DO
+    END DO
+  END IF
+
+  ! La temperature de la premiere couche determine la pluie ou la neige:
+
+  DO i = 1, klon
+    IF (todo(i)) THEN
+      IF (t(i,1)>rtt) THEN
+        rain(i) = rain(i) + zrfl(i)
+      ELSE
+        snow(i) = snow(i) + zrfl(i)
+      END IF
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE conkuo
+SUBROUTINE kuofcl(pt, pq, pg, pp, ldcum, kcbot)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19940927
+  ! adaptation du code de Tiedtke du ECMWF
+  ! Objet: calculer le niveau de convection libre
+  ! (FCL: Free Convection Level)
+  ! ======================================================================
+  ! Arguments:
+  ! pt---input-R- temperature (K)
+  ! pq---input-R- vapeur d'eau (kg/kg)
+  ! pg---input-R- geopotentiel (g*z ou z est en metre)
+  ! pp---input-R- pression (Pa)
+
+  ! LDCUM---output-L- Y-t-il la convection
+  ! kcbot---output-I- Niveau du bas de la convection
+  ! ======================================================================
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+  REAL pt(klon, klev), pq(klon, klev), pg(klon, klev), pp(klon, klev)
+  INTEGER kcbot(klon)
+  LOGICAL ldcum(klon)
+
+  REAL ztu(klon, klev), zqu(klon, klev), zlu(klon, klev)
+  REAL zqold(klon), zbuo
+  INTEGER is, i, k
+
+  ! klab=1: on est sous le nuage convectif
+  ! klab=2: le bas du nuage convectif
+  ! klab=0: autres couches
+  INTEGER klab(klon, klev)
+
+  ! quand lflag=.true., on est sous le nuage, il faut donc appliquer
+  ! le processus d'elevation.
+  LOGICAL lflag(klon)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ztu(i, k) = pt(i, k)
+      zqu(i, k) = pq(i, k)
+      zlu(i, k) = 0.0
+      klab(i, k) = 0
+    END DO
+  END DO
+  ! ----------------------------------------------------------------------
+  DO i = 1, klon
+    klab(i, 1) = 1
+    kcbot(i) = 2
+    ldcum(i) = .FALSE.
+  END DO
+
+  DO k = 2, klev - 1
+
+    is = 0
+    DO i = 1, klon
+      IF (klab(i,k-1)==1) is = is + 1
+      lflag(i) = .FALSE.
+      IF (klab(i,k-1)==1) lflag(i) = .TRUE.
+    END DO
+    IF (is==0) GO TO 290
+
+    ! on eleve le parcel d'air selon l'adiabatique sec
+
+    DO i = 1, klon
+      IF (lflag(i)) THEN
+        zqu(i, k) = zqu(i, k-1)
+        ztu(i, k) = ztu(i, k-1) + (pg(i,k-1)-pg(i,k))/rcpd
+        zbuo = ztu(i, k)*(1.+retv*zqu(i,k)) - pt(i, k)*(1.+retv*pq(i,k)) + &
+          0.5
+        IF (zbuo>0.) klab(i, k) = 1
+        zqold(i) = zqu(i, k)
+      END IF
+    END DO
+
+    ! on calcule la condensation eventuelle
+
+    CALL adjtq(pp(1,k), ztu(1,k), zqu(1,k), lflag, 1)
+
+    ! s'il y a la condensation et la "buoyancy" force est positive
+    ! c'est bien le bas de la tour de convection
+
+    DO i = 1, klon
+      IF (lflag(i) .AND. zqu(i,k)/=zqold(i)) THEN
+        klab(i, k) = 2
+        zlu(i, k) = zlu(i, k) + zqold(i) - zqu(i, k)
+        zbuo = ztu(i, k)*(1.+retv*zqu(i,k)) - pt(i, k)*(1.+retv*pq(i,k)) + &
+          0.5
+        IF (zbuo>0.) THEN
+          kcbot(i) = k
+          ldcum(i) = .TRUE.
+        END IF
+      END IF
+    END DO
+
+290 END DO
+
+  RETURN
+END SUBROUTINE kuofcl
+SUBROUTINE adjtq(pp, pt, pq, ldflag, kcall)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19940927
+  ! adaptation du code de Tiedtke du ECMWF
+  ! Objet: ajustement entre T et Q
+  ! ======================================================================
+  ! Arguments:
+  ! pp---input-R- pression (Pa)
+  ! pt---input/output-R- temperature (K)
+  ! pq---input/output-R- vapeur d'eau (kg/kg)
+  ! ======================================================================
+  ! TO PRODUCE T,Q AND L VALUES FOR CLOUD ASCENT
+
+  ! NOTE: INPUT PARAMETER KCALL DEFINES CALCULATION AS
+  ! KCALL=0    ENV. T AND QS IN*CUINI*
+  ! KCALL=1  CONDENSATION IN UPDRAFTS  (E.G. CUBASE, CUASC)
+  ! KCALL=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
+
+  include "YOMCST.h"
+
+  REAL pt(klon), pq(klon), pp(klon)
+  LOGICAL ldflag(klon)
+  INTEGER kcall
+
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+
+  REAL zcond(klon), zcond1
+  REAL zdelta, zcvm5, zldcp, zqsat, zcor, zdqsat
+  INTEGER is, i
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  DO i = 1, klon
+    zcond(i) = 0.0
+  END DO
+
+  DO i = 1, klon
+    IF (ldflag(i)) THEN
+      zdelta = max(0., sign(1.,rtt-pt(i)))
+      zldcp = rlvtt*(1.-zdelta) + zdelta*rlstt
+      zldcp = zldcp/rcpd/(1.0+rvtmp2*pq(i))
+      IF (thermcep) THEN
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*pq(i))
+        zqsat = r2es*foeew(pt(i), zdelta)/pp(i)
+        zqsat = min(0.5, zqsat)
+        zcor = 1./(1.-retv*zqsat)
+        zqsat = zqsat*zcor
+        zdqsat = foede(pt(i), zdelta, zcvm5, zqsat, zcor)
+      ELSE
+        IF (pt(i)<t_coup) THEN
+          zqsat = qsats(pt(i))/pp(i)
+          zdqsat = dqsats(pt(i), zqsat)
+        ELSE
+          zqsat = qsatl(pt(i))/pp(i)
+          zdqsat = dqsatl(pt(i), zqsat)
+        END IF
+      END IF
+      zcond(i) = (pq(i)-zqsat)/(1.+zdqsat)
+      IF (kcall==1) zcond(i) = max(zcond(i), 0.)
+      IF (kcall==2) zcond(i) = min(zcond(i), 0.)
+      pt(i) = pt(i) + zldcp*zcond(i)
+      pq(i) = pq(i) - zcond(i)
+    END IF
+  END DO
+
+  is = 0
+  DO i = 1, klon
+    IF (zcond(i)/=0.) is = is + 1
+  END DO
+  IF (is==0) GO TO 230
+
+  DO i = 1, klon
+    IF (ldflag(i) .AND. zcond(i)/=0.) THEN
+      zdelta = max(0., sign(1.,rtt-pt(i)))
+      zldcp = rlvtt*(1.-zdelta) + zdelta*rlstt
+      zldcp = zldcp/rcpd/(1.0+rvtmp2*pq(i))
+      IF (thermcep) THEN
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*pq(i))
+        zqsat = r2es*foeew(pt(i), zdelta)/pp(i)
+        zqsat = min(0.5, zqsat)
+        zcor = 1./(1.-retv*zqsat)
+        zqsat = zqsat*zcor
+        zdqsat = foede(pt(i), zdelta, zcvm5, zqsat, zcor)
+      ELSE
+        IF (pt(i)<t_coup) THEN
+          zqsat = qsats(pt(i))/pp(i)
+          zdqsat = dqsats(pt(i), zqsat)
+        ELSE
+          zqsat = qsatl(pt(i))/pp(i)
+          zdqsat = dqsatl(pt(i), zqsat)
+        END IF
+      END IF
+      zcond1 = (pq(i)-zqsat)/(1.+zdqsat)
+      pt(i) = pt(i) + zldcp*zcond1
+      pq(i) = pq(i) - zcond1
+    END IF
+  END DO
+
+230 CONTINUE
+  RETURN
+END SUBROUTINE adjtq
+SUBROUTINE fiajh(dtime, paprs, pplay, t, q, d_t, d_q, d_ql, rneb, rain, snow, &
+    ibas, itop)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! Ajustement humide (Schema de convection de Manabe)
+  ! .
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  REAL dtime ! intervalle du temps (s)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (kg/kg)
+  REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+
+  REAL d_t(klon, klev) ! incrementation pour la temperature
+  REAL d_q(klon, klev) ! incrementation pour vapeur d'eau
+  REAL d_ql(klon, klev) ! incrementation pour l'eau liquide
+  REAL rneb(klon, klev) ! fraction nuageuse
+
+  REAL rain(klon) ! variable non utilisee
+  REAL snow(klon) ! variable non utilisee
+  INTEGER ibas(klon) ! variable non utilisee
+  INTEGER itop(klon) ! variable non utilisee
+
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+  REAL seuil_vap
+  PARAMETER (seuil_vap=1.0E-10)
+
+  ! Variables locales:
+
+  INTEGER i, k
+  INTEGER k1, k1p, k2, k2p
+  LOGICAL itest(klon)
+  REAL delta_q(klon, klev)
+  REAL cp_new_t(klev)
+  REAL cp_delta_t(klev)
+  REAL new_qb(klev)
+  REAL v_cptj(klev), v_cptjk1, v_ssig
+  REAL v_cptt(klon, klev), v_p, v_t
+  REAL v_qs(klon, klev), v_qsd(klon, klev)
+  REAL zq1(klon), zq2(klon)
+  REAL gamcpdz(klon, 2:klev)
+  REAL zdp, zdpm
+
+  REAL zsat ! sur-saturation
+  REAL zflo ! flotabilite
+
+  REAL local_q(klon, klev), local_t(klon, klev)
+
+  REAL zdelta, zcor, zcvm5
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  DO k = 1, klev
+    DO i = 1, klon
+      local_q(i, k) = q(i, k)
+      local_t(i, k) = t(i, k)
+      rneb(i, k) = 0.0
+      d_ql(i, k) = 0.0
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+    END DO
+  END DO
+  DO i = 1, klon
+    rain(i) = 0.0
+    snow(i) = 0.0
+    ibas(i) = 0
+    itop(i) = 0
+  END DO
+
+  ! Calculer v_qs et v_qsd:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      v_cptt(i, k) = rcpd*local_t(i, k)
+      v_t = local_t(i, k)
+      v_p = pplay(i, k)
+
+      IF (thermcep) THEN
+        zdelta = max(0., sign(1.,rtt-v_t))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*local_q(i,k))
+        v_qs(i, k) = r2es*foeew(v_t, zdelta)/v_p
+        v_qs(i, k) = min(0.5, v_qs(i,k))
+        zcor = 1./(1.-retv*v_qs(i,k))
+        v_qs(i, k) = v_qs(i, k)*zcor
+        v_qsd(i, k) = foede(v_t, zdelta, zcvm5, v_qs(i,k), zcor)
+      ELSE
+        IF (v_t<t_coup) THEN
+          v_qs(i, k) = qsats(v_t)/v_p
+          v_qsd(i, k) = dqsats(v_t, v_qs(i,k))
+        ELSE
+          v_qs(i, k) = qsatl(v_t)/v_p
+          v_qsd(i, k) = dqsatl(v_t, v_qs(i,k))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Calculer Gamma * Cp * dz: (gamm est le gradient critique)
+
+  DO k = 2, klev
+    DO i = 1, klon
+      zdp = paprs(i, k) - paprs(i, k+1)
+      zdpm = paprs(i, k-1) - paprs(i, k)
+      gamcpdz(i, k) = ((rd/rcpd/(zdpm+zdp)*(v_cptt(i,k-1)*zdpm+ &
+        v_cptt(i,k)*zdp)+rlvtt/(zdpm+zdp)*(v_qs(i,k-1)*zdpm+ &
+        v_qs(i,k)*zdp))*(pplay(i,k-1)-pplay(i,k))/paprs(i,k))/(1.0+(v_qsd(i, &
+        k-1)*zdpm+v_qsd(i,k)*zdp)/(zdpm+zdp))
+    END DO
+  END DO
+
+  ! ------------------------------------ modification des profils instables
+  DO i = 1, klon
+    itest(i) = .FALSE.
+
+    k1 = 0
+    k2 = 1
+
+810 CONTINUE ! chercher k1, le bas de la colonne
+    k2 = k2 + 1
+    IF (k2>klev) GO TO 9999
+    zflo = v_cptt(i, k2-1) - v_cptt(i, k2) - gamcpdz(i, k2)
+    zsat = (local_q(i,k2-1)-v_qs(i,k2-1))*(paprs(i,k2-1)-paprs(i,k2)) + &
+      (local_q(i,k2)-v_qs(i,k2))*(paprs(i,k2)-paprs(i,k2+1))
+    IF (zflo<=0.0 .OR. zsat<=0.0) GO TO 810
+    k1 = k2 - 1
+    itest(i) = .TRUE.
+
+820 CONTINUE ! chercher k2, le haut de la colonne
+    IF (k2==klev) GO TO 821
+    k2p = k2 + 1
+    zsat = zsat + (paprs(i,k2p)-paprs(i,k2p+1))*(local_q(i,k2p)-v_qs(i,k2p))
+    zflo = v_cptt(i, k2p-1) - v_cptt(i, k2p) - gamcpdz(i, k2p)
+    IF (zflo<=0.0 .OR. zsat<=0.0) GO TO 821
+    k2 = k2p
+    GO TO 820
+821 CONTINUE
+
+    ! ------------------------------------------------------ ajustement local
+830 CONTINUE ! ajustement proprement dit
+    v_cptj(k1) = 0.0
+    zdp = paprs(i, k1) - paprs(i, k1+1)
+    v_cptjk1 = ((1.0+v_qsd(i,k1))*(v_cptt(i,k1)+v_cptj(k1))+rlvtt*(local_q(i, &
+      k1)-v_qs(i,k1)))*zdp
+    v_ssig = zdp*(1.0+v_qsd(i,k1))
+
+    k1p = k1 + 1
+    DO k = k1p, k2
+      zdp = paprs(i, k) - paprs(i, k+1)
+      v_cptj(k) = v_cptj(k-1) + gamcpdz(i, k)
+      v_cptjk1 = v_cptjk1 + zdp*((1.0+v_qsd(i,k))*(v_cptt(i, &
+        k)+v_cptj(k))+rlvtt*(local_q(i,k)-v_qs(i,k)))
+      v_ssig = v_ssig + zdp*(1.0+v_qsd(i,k))
+    END DO
+
+    DO k = k1, k2
+      cp_new_t(k) = v_cptjk1/v_ssig - v_cptj(k)
+      cp_delta_t(k) = cp_new_t(k) - v_cptt(i, k)
+      new_qb(k) = v_qs(i, k) + v_qsd(i, k)*cp_delta_t(k)/rlvtt
+      local_q(i, k) = new_qb(k)
+      local_t(i, k) = cp_new_t(k)/rcpd
+    END DO
+
+    ! --------------------------------------------------- sondage vers le bas
+    ! -- on redefinit les variables prognostiques dans
+    ! -- la colonne qui vient d'etre ajustee
+
+    DO k = k1, k2
+      v_cptt(i, k) = rcpd*local_t(i, k)
+      v_t = local_t(i, k)
+      v_p = pplay(i, k)
+
+      IF (thermcep) THEN
+        zdelta = max(0., sign(1.,rtt-v_t))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*local_q(i,k))
+        v_qs(i, k) = r2es*foeew(v_t, zdelta)/v_p
+        v_qs(i, k) = min(0.5, v_qs(i,k))
+        zcor = 1./(1.-retv*v_qs(i,k))
+        v_qs(i, k) = v_qs(i, k)*zcor
+        v_qsd(i, k) = foede(v_t, zdelta, zcvm5, v_qs(i,k), zcor)
+      ELSE
+        IF (v_t<t_coup) THEN
+          v_qs(i, k) = qsats(v_t)/v_p
+          v_qsd(i, k) = dqsats(v_t, v_qs(i,k))
+        ELSE
+          v_qs(i, k) = qsatl(v_t)/v_p
+          v_qsd(i, k) = dqsatl(v_t, v_qs(i,k))
+        END IF
+      END IF
+    END DO
+    DO k = 2, klev
+      zdpm = paprs(i, k-1) - paprs(i, k)
+      zdp = paprs(i, k) - paprs(i, k+1)
+      gamcpdz(i, k) = ((rd/rcpd/(zdpm+zdp)*(v_cptt(i,k-1)*zdpm+ &
+        v_cptt(i,k)*zdp)+rlvtt/(zdpm+zdp)*(v_qs(i,k-1)*zdpm+ &
+        v_qs(i,k)*zdp))*(pplay(i,k-1)-pplay(i,k))/paprs(i,k))/(1.0+(v_qsd(i, &
+        k-1)*zdpm+v_qsd(i,k)*zdp)/(zdpm+zdp))
+    END DO
+
+    ! Verifier si l'on peut etendre la colonne vers le bas
+
+    IF (k1==1) GO TO 841 ! extension echouee
+    zflo = v_cptt(i, k1-1) - v_cptt(i, k1) - gamcpdz(i, k1)
+    zsat = (local_q(i,k1-1)-v_qs(i,k1-1))*(paprs(i,k1-1)-paprs(i,k1)) + &
+      (local_q(i,k1)-v_qs(i,k1))*(paprs(i,k1)-paprs(i,k1+1))
+    IF (zflo<=0.0 .OR. zsat<=0.0) GO TO 841 ! extension echouee
+
+840 CONTINUE
+    k1 = k1 - 1
+    IF (k1==1) GO TO 830 ! GOTO 820 (a tester, Z.X.Li, mars 1995)
+    zsat = zsat + (local_q(i,k1-1)-v_qs(i,k1-1))*(paprs(i,k1-1)-paprs(i,k1))
+    zflo = v_cptt(i, k1-1) - v_cptt(i, k1) - gamcpdz(i, k1)
+    IF (zflo>0.0 .AND. zsat>0.0) THEN
+      GO TO 840
+    ELSE
+      GO TO 830 ! GOTO 820 (a tester, Z.X.Li, mars 1995)
+    END IF
+841 CONTINUE
+
+    GO TO 810 ! chercher d'autres blocks en haut
+
+9999 END DO ! boucle sur tous les points
+  ! -----------------------------------------------------------------------
+
+  ! Determiner la fraction nuageuse (hypothese: la nebulosite a lieu
+  ! a l'endroit ou la vapeur d'eau est diminuee par l'ajustement):
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (itest(i)) THEN
+        delta_q(i, k) = local_q(i, k) - q(i, k)
+        IF (delta_q(i,k)<0.) rneb(i, k) = 1.0
+      END IF
+    END DO
+  END DO
+
+  ! Distribuer l'eau condensee en eau liquide nuageuse (hypothese:
+  ! l'eau liquide est distribuee aux endroits ou la vapeur d'eau
+  ! diminue et d'une maniere proportionnelle a cet diminution):
+
+  DO i = 1, klon
+    IF (itest(i)) THEN
+      zq1(i) = 0.0
+      zq2(i) = 0.0
+    END IF
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (itest(i)) THEN
+        zdp = paprs(i, k) - paprs(i, k+1)
+        zq1(i) = zq1(i) - delta_q(i, k)*zdp
+        zq2(i) = zq2(i) - min(0.0, delta_q(i,k))*zdp
+      END IF
+    END DO
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (itest(i)) THEN
+        IF (zq2(i)/=0.0) d_ql(i, k) = -min(0.0, delta_q(i,k))*zq1(i)/zq2(i)
+      END IF
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      local_q(i, k) = max(local_q(i,k), seuil_vap)
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = local_t(i, k) - t(i, k)
+      d_q(i, k) = local_q(i, k) - q(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE fiajh
+SUBROUTINE fiajc(dtime, paprs, pplay, t, q, conv_q, d_t, d_q, d_ql, rneb, &
+    rain, snow, ibas, itop)
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+
+  ! Options:
+
+  INTEGER plb ! niveau de depart pour la convection
+  PARAMETER (plb=4)
+
+  ! Mystere: cette option n'est pas innocente pour les resultats !
+  ! Qui peut resoudre ce mystere ? (Z.X.Li mars 1995)
+  LOGICAL vector ! calcul vectorise
+  PARAMETER (vector=.FALSE.)
+
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+
+  ! Arguments:
+
+  REAL q(klon, klev) ! humidite specifique (kg/kg)
+  REAL t(klon, klev) ! temperature (K)
+  REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL dtime ! intervalle du temps (s)
+  REAL conv_q(klon, klev) ! taux de convergence de l'humidite
+  REAL rneb(klon, klev) ! fraction nuageuse
+  REAL d_q(klon, klev) ! incrementaion pour la vapeur d'eau
+  REAL d_ql(klon, klev) ! incrementation pour l'eau liquide
+  REAL d_t(klon, klev) ! incrementation pour la temperature
+  REAL rain(klon) ! variable non-utilisee
+  REAL snow(klon) ! variable non-utilisee
+  INTEGER itop(klon) ! variable non-utilisee
+  INTEGER ibas(klon) ! variable non-utilisee
+
+  INTEGER kh(klon), i, k
+  LOGICAL nuage(klon), test(klon, klev)
+  REAL zconv(klon), zdeh(klon, klev), zvirt(klon)
+  REAL zdqs(klon, klev), zqs(klon, klev)
+  REAL ztt, zvar, zfrac(klon)
+  REAL zq1(klon), zq2(klon)
+  REAL zdelta, zcor, zcvm5
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  ! Initialiser les sorties:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      rneb(i, k) = 0.0
+      d_ql(i, k) = 0.0
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+    END DO
+  END DO
+  DO i = 1, klon
+    itop(i) = 0
+    ibas(i) = 0
+    rain(i) = 0.0
+    snow(i) = 0.0
+  END DO
+
+  ! Calculer Qs et L/Cp * dQs/dT:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ztt = t(i, k)
+      IF (thermcep) THEN
+        zdelta = max(0., sign(1.,rtt-ztt))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + zdelta*r5ies*rlstt
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*q(i,k))
+        zqs(i, k) = r2es*foeew(ztt, zdelta)/pplay(i, k)
+        zqs(i, k) = min(0.5, zqs(i,k))
+        zcor = 1./(1.-retv*zqs(i,k))
+        zqs(i, k) = zqs(i, k)*zcor
+        zdqs(i, k) = foede(ztt, zdelta, zcvm5, zqs(i,k), zcor)
+      ELSE
+        IF (ztt<t_coup) THEN
+          zqs(i, k) = qsats(ztt)/pplay(i, k)
+          zdqs(i, k) = dqsats(ztt, zqs(i,k))
+        ELSE
+          zqs(i, k) = qsatl(ztt)/pplay(i, k)
+          zdqs(i, k) = dqsatl(ztt, zqs(i,k))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Determiner la difference de l'energie totale saturee:
+
+  DO i = 1, klon
+    k = plb
+    zdeh(i, k) = rcpd*(t(i,k-1)-t(i,k)) - rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k &
+      )*(pplay(i,k-1)-pplay(i,k)) + rlvtt*(zqs(i,k-1)-zqs(i,k))
+    zdeh(i, k) = zdeh(i, k)*0.5 ! on prend la moitie
+  END DO
+  DO k = plb + 1, klev
+    DO i = 1, klon
+      zdeh(i, k) = zdeh(i, k-1) + rcpd*(t(i,k-1)-t(i,k)) - &
+        rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)*(pplay(i,k-1)-pplay(i,k)) + &
+        rlvtt*(zqs(i,k-1)-zqs(i,k))
+    END DO
+  END DO
+
+  ! Determiner le sommet du nuage selon l'instabilite
+  ! Calculer les convergences d'humidite (reelle et virtuelle)
+
+  DO i = 1, klon
+    nuage(i) = .TRUE.
+    zconv(i) = 0.0
+    zvirt(i) = 0.0
+    kh(i) = -999
+  END DO
+  DO k = plb, klev
+    DO i = 1, klon
+      nuage(i) = nuage(i) .AND. zdeh(i, k) > 0.0
+      IF (nuage(i)) THEN
+        kh(i) = k
+        zconv(i) = zconv(i) + conv_q(i, k)*dtime*(paprs(i,k)-paprs(i,k+1))
+        zvirt(i) = zvirt(i) + (zdeh(i,k)/rlvtt+zqs(i,k)-q(i,k))*(paprs(i,k)- &
+          paprs(i,k+1))
+      END IF
+    END DO
+  END DO
+
+  IF (vector) THEN
+
+
+    DO k = plb, klev
+      DO i = 1, klon
+        IF (k<=kh(i) .AND. kh(i)>plb .AND. zconv(i)>0.0) THEN
+          test(i, k) = .TRUE.
+          zfrac(i) = max(0.0, min(zconv(i)/zvirt(i),1.0))
+        ELSE
+          test(i, k) = .FALSE.
+        END IF
+      END DO
+    END DO
+
+    DO k = plb, klev
+      DO i = 1, klon
+        IF (test(i,k)) THEN
+          zvar = zdeh(i, k)/(1.0+zdqs(i,k))
+          d_q(i, k) = (zvar*zdqs(i,k)/rlvtt+zqs(i,k)-q(i,k))*zfrac(i) - &
+            conv_q(i, k)*dtime
+          d_t(i, k) = zvar*zfrac(i)/rcpd
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      zq1(i) = 0.0
+      zq2(i) = 0.0
+    END DO
+    DO k = plb, klev
+      DO i = 1, klon
+        IF (test(i,k)) THEN
+          IF (d_q(i,k)<0.0) rneb(i, k) = zfrac(i)
+          zq1(i) = zq1(i) - d_q(i, k)*(paprs(i,k)-paprs(i,k+1))
+          zq2(i) = zq2(i) - min(0.0, d_q(i,k))*(paprs(i,k)-paprs(i,k+1))
+        END IF
+      END DO
+    END DO
+
+    DO k = plb, klev
+      DO i = 1, klon
+        IF (test(i,k)) THEN
+          IF (zq2(i)/=0.) d_ql(i, k) = -min(0.0, d_q(i,k))*zq1(i)/zq2(i)
+        END IF
+      END DO
+    END DO
+
+  ELSE ! (.NOT. vector)
+
+    DO i = 1, klon
+      IF (kh(i)>plb .AND. zconv(i)>0.0) THEN
+        ! cc         IF (kh(i).LE.plb) GOTO 999 ! il n'y a pas d'instabilite
+        ! cc         IF (zconv(i).LE.0.0) GOTO 999 ! convergence insuffisante
+        zfrac(i) = max(0.0, min(zconv(i)/zvirt(i),1.0))
+        DO k = plb, kh(i)
+          zvar = zdeh(i, k)/(1.0+zdqs(i,k))
+          d_q(i, k) = (zvar*zdqs(i,k)/rlvtt+zqs(i,k)-q(i,k))*zfrac(i) - &
+            conv_q(i, k)*dtime
+          d_t(i, k) = zvar*zfrac(i)/rcpd
+        END DO
+
+        zq1(i) = 0.0
+        zq2(i) = 0.0
+        DO k = plb, kh(i)
+          IF (d_q(i,k)<0.0) rneb(i, k) = zfrac(i)
+          zq1(i) = zq1(i) - d_q(i, k)*(paprs(i,k)-paprs(i,k+1))
+          zq2(i) = zq2(i) - min(0.0, d_q(i,k))*(paprs(i,k)-paprs(i,k+1))
+        END DO
+        DO k = plb, kh(i)
+          IF (zq2(i)/=0.) d_ql(i, k) = -min(0.0, d_q(i,k))*zq1(i)/zq2(i)
+        END DO
+      END IF
+    END DO
+
+  END IF ! fin de teste sur vector
+
+  RETURN
+END SUBROUTINE fiajc
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect1.F90	(revision 3330)
@@ -0,0 +1,641 @@
+
+! $Header$
+
+SUBROUTINE convect1(len, nd, ndp1, noff, minorig, t, q, qs, u, v, p, ph, &
+    iflag, ft, fq, fu, fv, precip, cbmf, delt, ma)
+  ! .............................START PROLOGUE............................
+
+  ! SCCS IDENTIFICATION:  @(#)convect1.f	1.1 04/21/00
+  ! 19:40:52 /h/cm/library/nogaps4/src/sub/fcst/convect1.f_v
+
+  ! CONFIGURATION IDENTIFICATION:  None
+
+  ! MODULE NAME:  convect1
+
+  ! DESCRIPTION:
+
+  ! convect1     The Emanuel Cumulus Convection Scheme
+
+  ! CONTRACT NUMBER AND TITLE:  None
+
+  ! REFERENCES: Programmers  K. Emanuel (MIT), Timothy F. Hogan, M. Peng
+  ! (NRL)
+
+  ! CLASSIFICATION:  Unclassified
+
+  ! RESTRICTIONS: None
+
+  ! COMPILER DEPENDENCIES: FORTRAN 77, FORTRAN 90
+
+  ! COMPILE OPTIONS: Fortran 77: -Zu -Wf"-ei -o aggress"
+  ! Fortran 90: -O vector3,scalar3,task1,aggress,overindex  -ei -r 2
+
+  ! LIBRARIES OF RESIDENCE: /a/ops/lib/libfcst159.a
+
+  ! USAGE: call convect1(len,nd,noff,minorig,
+  ! &                   t,q,qs,u,v,
+  ! &                   p,ph,iflag,ft,
+  ! &                   fq,fu,fv,precip,cbmf,delt)
+
+  ! PARAMETERS:
+  ! Name            Type         Usage            Description
+  ! ----------      ----------     -------  ----------------------------
+
+  ! len           Integer        Input        first (i) dimension
+  ! nd            Integer        Input        vertical (k) dimension
+  ! ndp1          Integer        Input        nd + 1
+  ! noff          Integer        Input        integer limit for convection
+  ! (nd-noff)
+  ! minorig       Integer        Input        First level of convection
+  ! t             Real           Input        temperature
+  ! q             Real           Input        specific hum
+  ! qs            Real           Input        sat specific hum
+  ! u             Real           Input        u-wind
+  ! v             Real           Input        v-wind
+  ! p             Real           Input        full level pressure
+  ! ph            Real           Input        half level pressure
+  ! iflag         Integer        Output       iflag on latitude strip
+  ! ft            Real           Output       temp tend
+  ! fq            Real           Output       spec hum tend
+  ! fu            Real           Output       u-wind tend
+  ! fv            Real           Output       v-wind tend
+  ! cbmf          Real           In/Out       cumulus mass flux
+  ! delt          Real           Input        time step
+  ! iflag         Integer        Output       integer flag for Emanuel
+  ! conditions
+
+  ! COMMON BLOCKS:
+  ! Block      Name     Type    Usage              Notes
+  ! --------  --------   ----    ------   ------------------------
+
+  ! FILES: None
+
+  ! DATA BASES: None
+
+  ! NON-FILE INPUT/OUTPUT: None
+
+  ! ERROR CONDITIONS: None
+
+  ! ADDITIONAL COMMENTS: None
+
+  ! .................MAINTENANCE SECTION................................
+
+  ! MODULES CALLED:
+  ! Name           Description
+  ! convect2        Emanuel cumulus convection tendency calculations
+  ! -------     ----------------------
+  ! LOCAL VARIABLES AND
+  ! STRUCTURES:
+  ! Name     Type    Description
+  ! -------  ------  -----------
+  ! See Comments Below
+
+  ! i        Integer loop index
+  ! k        Integer loop index
+
+  ! METHOD:
+
+  ! See Emanuel, K. and M. Zivkovic-Rothman, 2000: Development and evaluation
+  ! of a
+  ! convective scheme for use in climate models.
+
+  ! FILES: None
+
+  ! INCLUDE FILES: None
+
+  ! MAKEFILE: /a/ops/met/nogaps/src/sub/fcst/fcst159lib.mak
+
+  ! ..............................END PROLOGUE.............................
+
+
+  USE dimphy
+  IMPLICIT NONE
+
+  INTEGER len
+  INTEGER nd
+  INTEGER ndp1
+  INTEGER noff
+  REAL t(len, nd)
+  REAL q(len, nd)
+  REAL qs(len, nd)
+  REAL u(len, nd)
+  REAL v(len, nd)
+  REAL p(len, nd)
+  REAL ph(len, ndp1)
+  INTEGER iflag(len)
+  REAL ft(len, nd)
+  REAL fq(len, nd)
+  REAL fu(len, nd)
+  REAL fv(len, nd)
+  REAL precip(len)
+  REAL cbmf(len)
+  REAL ma(len, nd)
+  INTEGER minorig
+  REAL delt, cpd, cpv, cl, rv, rd, lv0, g
+  REAL sigs, sigd, elcrit, tlcrit, omtsnow, dtmax, damp
+  REAL alpha, entp, coeffs, coeffr, omtrain, cu
+
+  ! -------------------------------------------------------------------
+  ! --- ARGUMENTS
+  ! -------------------------------------------------------------------
+  ! --- On input:
+
+  ! t:   Array of absolute temperature (K) of dimension ND, with first
+  ! index corresponding to lowest model level. Note that this array
+  ! will be altered by the subroutine if dry convective adjustment
+  ! occurs and if IPBL is not equal to 0.
+
+  ! q:   Array of specific humidity (gm/gm) of dimension ND, with first
+  ! index corresponding to lowest model level. Must be defined
+  ! at same grid levels as T. Note that this array will be altered
+  ! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! qs:  Array of saturation specific humidity of dimension ND, with first
+  ! index corresponding to lowest model level. Must be defined
+  ! at same grid levels as T. Note that this array will be altered
+  ! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! u:   Array of zonal wind velocity (m/s) of dimension ND, witth first
+  ! index corresponding with the lowest model level. Defined at
+  ! same levels as T. Note that this array will be altered if
+  ! dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! v:   Same as u but for meridional velocity.
+
+  ! tra: Array of passive tracer mixing ratio, of dimensions (ND,NTRA),
+  ! where NTRA is the number of different tracers. If no
+  ! convective tracer transport is needed, define a dummy
+  ! input array of dimension (ND,1). Tracers are defined at
+  ! same vertical levels as T. Note that this array will be altered
+  ! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! p:   Array of pressure (mb) of dimension ND, with first
+  ! index corresponding to lowest model level. Must be defined
+  ! at same grid levels as T.
+
+  ! ph:  Array of pressure (mb) of dimension ND+1, with first index
+  ! corresponding to lowest level. These pressures are defined at
+  ! levels intermediate between those of P, T, Q and QS. The first
+  ! value of PH should be greater than (i.e. at a lower level than)
+  ! the first value of the array P.
+
+  ! nl:  The maximum number of levels to which convection can penetrate, plus
+  ! 1.
+  ! NL MUST be less than or equal to ND-1.
+
+  ! delt: The model time step (sec) between calls to CONVECT
+
+  ! ----------------------------------------------------------------------------
+  ! ---   On Output:
+
+  ! iflag: An output integer whose value denotes the following:
+  ! VALUE   INTERPRETATION
+  ! -----   --------------
+  ! 0     Moist convection occurs.
+  ! 1     Moist convection occurs, but a CFL condition
+  ! on the subsidence warming is violated. This
+  ! does not cause the scheme to terminate.
+  ! 2     Moist convection, but no precip because ep(inb) lt 0.0001
+  ! 3     No moist convection because new cbmf is 0 and old cbmf is 0.
+  ! 4     No moist convection; atmosphere is not
+  ! unstable
+  ! 6     No moist convection because ihmin le minorig.
+  ! 7     No moist convection because unreasonable
+  ! parcel level temperature or specific humidity.
+  ! 8     No moist convection: lifted condensation
+  ! level is above the 200 mb level.
+  ! 9     No moist convection: cloud base is higher
+  ! then the level NL-1.
+
+  ! ft:   Array of temperature tendency (K/s) of dimension ND, defined at
+  ! same
+  ! grid levels as T, Q, QS and P.
+
+  ! fq:   Array of specific humidity tendencies ((gm/gm)/s) of dimension ND,
+  ! defined at same grid levels as T, Q, QS and P.
+
+  ! fu:   Array of forcing of zonal velocity (m/s^2) of dimension ND,
+  ! defined at same grid levels as T.
+
+  ! fv:   Same as FU, but for forcing of meridional velocity.
+
+  ! ftra: Array of forcing of tracer content, in tracer mixing ratio per
+  ! second, defined at same levels as T. Dimensioned (ND,NTRA).
+
+  ! precip: Scalar convective precipitation rate (mm/day).
+
+  ! wd:   A convective downdraft velocity scale. For use in surface
+  ! flux parameterizations. See convect.ps file for details.
+
+  ! tprime: A convective downdraft temperature perturbation scale (K).
+  ! For use in surface flux parameterizations. See convect.ps
+  ! file for details.
+
+  ! qprime: A convective downdraft specific humidity
+  ! perturbation scale (gm/gm).
+  ! For use in surface flux parameterizations. See convect.ps
+  ! file for details.
+
+  ! cbmf: The cloud base mass flux ((kg/m**2)/s). THIS SCALAR VALUE MUST
+  ! BE STORED BY THE CALLING PROGRAM AND RETURNED TO CONVECT AT
+  ! ITS NEXT CALL. That is, the value of CBMF must be "remembered"
+  ! by the calling program between calls to CONVECT.
+
+  ! det:   Array of detrainment mass flux of dimension ND.
+
+  ! -------------------------------------------------------------------
+
+  ! Local arrays
+
+  INTEGER nl
+  INTEGER nlp
+  INTEGER nlm
+  INTEGER i, k, n
+  REAL delti
+  REAL rowl
+  REAL clmcpv
+  REAL clmcpd
+  REAL cpdmcp
+  REAL cpvmcpd
+  REAL eps
+  REAL epsi
+  REAL epsim1
+  REAL ginv
+  REAL hrd
+  REAL prccon1
+  INTEGER icbmax
+  REAL lv(klon, klev)
+  REAL cpn(klon, klev)
+  REAL cpx(klon, klev)
+  REAL tv(klon, klev)
+  REAL gz(klon, klev)
+  REAL hm(klon, klev)
+  REAL h(klon, klev)
+  REAL work(klon)
+  INTEGER ihmin(klon)
+  INTEGER nk(klon)
+  REAL rh(klon)
+  REAL chi(klon)
+  REAL plcl(klon)
+  INTEGER icb(klon)
+  REAL tnk(klon)
+  REAL qnk(klon)
+  REAL gznk(klon)
+  REAL pnk(klon)
+  REAL qsnk(klon)
+  REAL ticb(klon)
+  REAL gzicb(klon)
+  REAL tp(klon, klev)
+  REAL tvp(klon, klev)
+  REAL clw(klon, klev)
+
+  REAL ah0(klon), cpp(klon)
+  REAL tg, qg, s, alv, tc, ahg, denom, es, rg
+
+  INTEGER ncum
+  INTEGER idcum(klon)
+
+  cpd = 1005.7
+  cpv = 1870.0
+  cl = 4190.0
+  rv = 461.5
+  rd = 287.04
+  lv0 = 2.501E6
+  g = 9.8
+
+  ! *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) ***
+  ! ***  TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-        ***
+  ! ***       CONVERSION THRESHOLD IS ASSUMED TO BE ZERO             ***
+  ! ***     (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY            ***
+  ! ***               BETWEEN 0 C AND TLCRIT)                        ***
+  ! ***   ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT       ***
+  ! ***                       FORMULATION                            ***
+  ! ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
+  ! ***  SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE       ***
+  ! ***                        OF CLOUD                              ***
+  ! ***        OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN       ***
+  ! ***     OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW          ***
+  ! ***  COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
+  ! ***                          OF RAIN                             ***
+  ! ***  COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
+  ! ***                          OF SNOW                             ***
+  ! ***     CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM      ***
+  ! ***                         TRANSPORT                            ***
+  ! ***    DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION    ***
+  ! ***        A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC      ***
+  ! ***    ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF    ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM                ***
+  ! ***   (THEIR STANDARD VALUES ARE  0.20 AND 0.1, RESPECTIVELY)    ***
+  ! ***                   (DAMP MUST BE LESS THAN 1)                 ***
+
+  sigs = 0.12
+  sigd = 0.05
+  elcrit = 0.0011
+  tlcrit = -55.0
+  omtsnow = 5.5
+  dtmax = 0.9
+  damp = 0.1
+  alpha = 0.2
+  entp = 1.5
+  coeffs = 0.8
+  coeffr = 1.0
+  omtrain = 50.0
+
+  cu = 0.70
+  damp = 0.1
+
+
+  ! Define nl, nlp, nlm, and delti
+
+  nl = nd - noff
+  nlp = nl + 1
+  nlm = nl - 1
+  delti = 1.0/delt
+
+  ! -------------------------------------------------------------------
+  ! --- SET CONSTANTS
+  ! -------------------------------------------------------------------
+
+  rowl = 1000.0
+  clmcpv = cl - cpv
+  clmcpd = cl - cpd
+  cpdmcp = cpd - cpv
+  cpvmcpd = cpv - cpd
+  eps = rd/rv
+  epsi = 1.0/eps
+  epsim1 = epsi - 1.0
+  ginv = 1.0/g
+  hrd = 0.5*rd
+  prccon1 = 86400.0*1000.0/(rowl*g)
+
+  ! dtmax is the maximum negative temperature perturbation.
+
+  ! =====================================================================
+  ! --- INITIALIZE OUTPUT ARRAYS AND PARAMETERS
+  ! =====================================================================
+
+  DO k = 1, nd
+    DO i = 1, len
+      ft(i, k) = 0.0
+      fq(i, k) = 0.0
+      fu(i, k) = 0.0
+      fv(i, k) = 0.0
+      tvp(i, k) = 0.0
+      tp(i, k) = 0.0
+      clw(i, k) = 0.0
+      gz(i, k) = 0.
+    END DO
+  END DO
+  DO i = 1, len
+    precip(i) = 0.0
+    iflag(i) = 0
+  END DO
+
+  ! =====================================================================
+  ! --- CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY & STATIC ENERGY
+  ! =====================================================================
+  DO k = 1, nl + 1
+    DO i = 1, len
+      lv(i, k) = lv0 - clmcpv*(t(i,k)-273.15)
+      cpn(i, k) = cpd*(1.0-q(i,k)) + cpv*q(i, k)
+      cpx(i, k) = cpd*(1.0-q(i,k)) + cl*q(i, k)
+      tv(i, k) = t(i, k)*(1.0+q(i,k)*epsim1)
+    END DO
+  END DO
+
+  ! gz = phi at the full levels (same as p).
+
+  DO i = 1, len
+    gz(i, 1) = 0.0
+  END DO
+  DO k = 2, nlp
+    DO i = 1, len
+      gz(i, k) = gz(i, k-1) + hrd*(tv(i,k-1)+tv(i,k))*(p(i,k-1)-p(i,k))/ph(i, &
+        k)
+    END DO
+  END DO
+
+  ! h  = phi + cpT (dry static energy).
+  ! hm = phi + cp(T-Tbase)+Lq
+
+  DO k = 1, nlp
+    DO i = 1, len
+      h(i, k) = gz(i, k) + cpn(i, k)*t(i, k)
+      hm(i, k) = gz(i, k) + cpx(i, k)*(t(i,k)-t(i,1)) + lv(i, k)*q(i, k)
+    END DO
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Find level of minimum moist static energy
+  ! --- If level of minimum moist static energy coincides with
+  ! --- or is lower than minimum allowable parcel origin level,
+  ! --- set iflag to 6.
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    work(i) = 1.0E12
+    ihmin(i) = nl
+  END DO
+  DO k = 2, nlp
+    DO i = 1, len
+      IF ((hm(i,k)<work(i)) .AND. (hm(i,k)<hm(i,k-1))) THEN
+        work(i) = hm(i, k)
+        ihmin(i) = k
+      END IF
+    END DO
+  END DO
+  DO i = 1, len
+    ihmin(i) = min(ihmin(i), nlm)
+    IF (ihmin(i)<=minorig) THEN
+      iflag(i) = 6
+    END IF
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Find that model level below the level of minimum moist static
+  ! --- energy that has the maximum value of moist static energy
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    work(i) = hm(i, minorig)
+    nk(i) = minorig
+  END DO
+  DO k = minorig + 1, nl
+    DO i = 1, len
+      IF ((hm(i,k)>work(i)) .AND. (k<=ihmin(i))) THEN
+        work(i) = hm(i, k)
+        nk(i) = k
+      END IF
+    END DO
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Check whether parcel level temperature and specific humidity
+  ! --- are reasonable
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    IF (((t(i,nk(i))<250.0) .OR. (q(i,nk(i))<=0.0) .OR. (p(i,ihmin(i))< &
+      400.0)) .AND. (iflag(i)==0)) iflag(i) = 7
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Calculate lifted condensation level of air at parcel origin level
+  ! --- (Within 0.2% of formula of Bolton, MON. WEA. REV.,1980)
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    tnk(i) = t(i, nk(i))
+    qnk(i) = q(i, nk(i))
+    gznk(i) = gz(i, nk(i))
+    pnk(i) = p(i, nk(i))
+    qsnk(i) = qs(i, nk(i))
+
+    rh(i) = qnk(i)/qsnk(i)
+    rh(i) = min(1.0, rh(i))
+    chi(i) = tnk(i)/(1669.0-122.0*rh(i)-tnk(i))
+    plcl(i) = pnk(i)*(rh(i)**chi(i))
+    IF (((plcl(i)<200.0) .OR. (plcl(i)>=2000.0)) .AND. (iflag(i)==0)) iflag(i &
+      ) = 8
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Calculate first level above lcl (=icb)
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    icb(i) = nlm
+  END DO
+
+  DO k = minorig, nl
+    DO i = 1, len
+      IF ((k>=(nk(i)+1)) .AND. (p(i,k)<plcl(i))) icb(i) = min(icb(i), k)
+    END DO
+  END DO
+
+  DO i = 1, len
+    IF ((icb(i)>=nlm) .AND. (iflag(i)==0)) iflag(i) = 9
+  END DO
+
+  ! Compute icbmax.
+
+  icbmax = 2
+  DO i = 1, len
+    icbmax = max(icbmax, icb(i))
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Calculates the lifted parcel virtual temperature at nk,
+  ! --- the actual temperature, and the adiabatic
+  ! --- liquid water content. The procedure is to solve the equation.
+  ! cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    tnk(i) = t(i, nk(i))
+    qnk(i) = q(i, nk(i))
+    gznk(i) = gz(i, nk(i))
+    ticb(i) = t(i, icb(i))
+    gzicb(i) = gz(i, icb(i))
+  END DO
+
+  ! ***  Calculate certain parcel quantities, including static energy   ***
+
+  DO i = 1, len
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) + qnk(i)*(lv0-clmcpv*(tnk(i)- &
+      273.15)) + gznk(i)
+    cpp(i) = cpd*(1.-qnk(i)) + qnk(i)*cpv
+  END DO
+
+  ! ***   Calculate lifted parcel quantities below cloud base   ***
+
+  DO k = minorig, icbmax - 1
+    DO i = 1, len
+      tp(i, k) = tnk(i) - (gz(i,k)-gznk(i))/cpp(i)
+      tvp(i, k) = tp(i, k)*(1.+qnk(i)*epsi)
+    END DO
+  END DO
+
+  ! ***  Find lifted parcel quantities above cloud base    ***
+
+  DO i = 1, len
+    tg = ticb(i)
+    qg = qs(i, icb(i))
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+    ! First iteration.
+
+    s = cpd + alv*alv*qg/(rv*ticb(i)*ticb(i))
+    s = 1./s
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*ticb(i) + alv*qg + gzicb(i)
+    tg = tg + s*(ah0(i)-ahg)
+    tg = max(tg, 35.0)
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    IF (tc>=0.0) THEN
+      es = 6.112*exp(17.67*tc/denom)
+    ELSE
+      es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    END IF
+    qg = eps*es/(p(i,icb(i))-es*(1.-eps))
+
+    ! Second iteration.
+
+    s = cpd + alv*alv*qg/(rv*ticb(i)*ticb(i))
+    s = 1./s
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*ticb(i) + alv*qg + gzicb(i)
+    tg = tg + s*(ah0(i)-ahg)
+    tg = max(tg, 35.0)
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    IF (tc>=0.0) THEN
+      es = 6.112*exp(17.67*tc/denom)
+    ELSE
+      es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    END IF
+    qg = eps*es/(p(i,icb(i))-es*(1.-eps))
+
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+    tp(i, icb(i)) = (ah0(i)-(cl-cpd)*qnk(i)*ticb(i)-gz(i,icb(i))-alv*qg)/cpd
+    clw(i, icb(i)) = qnk(i) - qg
+    clw(i, icb(i)) = max(0.0, clw(i,icb(i)))
+    rg = qg/(1.-qnk(i))
+    tvp(i, icb(i)) = tp(i, icb(i))*(1.+rg*epsi)
+  END DO
+
+  DO k = minorig, icbmax
+    DO i = 1, len
+      tvp(i, k) = tvp(i, k) - tp(i, k)*qnk(i)
+    END DO
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Test for instability.
+  ! --- If there was no convection at last time step and parcel
+  ! --- is stable at icb, then set iflag to 4.
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    IF ((cbmf(i)==0.0) .AND. (iflag(i)==0) .AND. (tvp(i, &
+      icb(i))<=(tv(i,icb(i))-dtmax))) iflag(i) = 4
+  END DO
+
+  ! =====================================================================
+  ! --- IF THIS POINT IS REACHED, MOIST CONVECTIVE ADJUSTMENT IS NECESSARY
+  ! =====================================================================
+
+  ncum = 0
+  DO i = 1, len
+    IF (iflag(i)==0) THEN
+      ncum = ncum + 1
+      idcum(ncum) = i
+    END IF
+  END DO
+
+  ! Call convect2, which compresses the points and computes the heating,
+  ! moistening, velocity mixing, and precipiation.
+
+  ! print*,'cpd avant convect2 ',cpd
+  IF (ncum>0) THEN
+    CALL convect2(ncum, idcum, len, nd, ndp1, nl, minorig, nk, icb, t, q, qs, &
+      u, v, gz, tv, tp, tvp, clw, h, lv, cpn, p, ph, ft, fq, fu, fv, tnk, &
+      qnk, gznk, plcl, precip, cbmf, iflag, delt, cpd, cpv, cl, rv, rd, lv0, &
+      g, sigs, sigd, elcrit, tlcrit, omtsnow, dtmax, damp, alpha, entp, &
+      coeffs, coeffr, omtrain, cu, ma)
+  END IF
+
+  RETURN
+END SUBROUTINE convect1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect2.F90	(revision 3330)
@@ -0,0 +1,1373 @@
+
+! $Id$
+
+SUBROUTINE convect2(ncum, idcum, len, nd, ndp1, nl, minorig, nk1, icb1, t1, &
+    q1, qs1, u1, v1, gz1, tv1, tp1, tvp1, clw1, h1, lv1, cpn1, p1, ph1, ft1, &
+    fq1, fu1, fv1, tnk1, qnk1, gznk1, plcl1, precip1, cbmf1, iflag1, delt, &
+    cpd, cpv, cl, rv, rd, lv0, g, sigs, sigd, elcrit, tlcrit, omtsnow, dtmax, &
+    damp, alpha, entp, coeffs, coeffr, omtrain, cu, ma)
+  ! .............................START PROLOGUE............................
+
+  ! SCCS IDENTIFICATION:  @(#)convect2.f	1.2 05/18/00
+  ! 22:06:22 /h/cm/library/nogaps4/src/sub/fcst/convect2.f_v
+
+  ! CONFIGURATION IDENTIFICATION:  None
+
+  ! MODULE NAME:  convect2
+
+  ! DESCRIPTION:
+
+  ! convect1     The Emanuel Cumulus Convection Scheme - compute tendencies
+
+  ! CONTRACT NUMBER AND TITLE:  None
+
+  ! REFERENCES: Programmers  K. Emanuel (MIT), Timothy F. Hogan, M. Peng
+  ! (NRL)
+
+  ! CLASSIFICATION:  Unclassified
+
+  ! RESTRICTIONS: None
+
+  ! COMPILER DEPENDENCIES: FORTRAN 77, FORTRAN 90
+
+  ! COMPILE OPTIONS: Fortran 77: -Zu -Wf"-ei -o aggress"
+  ! Fortran 90: -O vector3,scalar3,task1,aggress,overindex  -ei -r 2
+
+  ! LIBRARIES OF RESIDENCE: /a/ops/lib/libfcst159.a
+
+  ! USAGE: call convect2(ncum,idcum,len,nd,nl,minorig,
+  ! &                 nk1,icb1,
+  ! &                 t1,q1,qs1,u1,v1,gz1,tv1,tp1,tvp1,clw1,h1,
+  ! &                 lv1,cpn1,p1,ph1,ft1,fq1,fu1,fv1,
+  ! &                 tnk1,qnk1,gznk1,plcl1,
+  ! &                 precip1,cbmf1,iflag1,
+  ! &                 delt,cpd,cpv,cl,rv,rd,lv0,g,
+  ! &                 sigs,sigd,elcrit,tlcrit,omtsnow,dtmax,damp,
+  ! &                 alpha,entp,coeffs,coeffr,omtrain,cu)
+
+  ! PARAMETERS:
+  ! Name            Type         Usage            Description
+  ! ----------      ----------     -------  ----------------------------
+
+  ! ncum          Integer        Input        number of cumulus points
+  ! idcum         Integer        Input        index of cumulus point
+  ! len           Integer        Input        first dimension
+  ! nd            Integer        Input        total vertical dimension
+  ! ndp1          Integer        Input        nd + 1
+  ! nl            Integer        Input        vertical dimension for
+  ! convection
+  ! minorig       Integer        Input        First level where convection is
+  ! allow to begin
+  ! nk1           Integer        Input        First level of convection
+  ! ncb1          Integer        Input        Level of free convection
+  ! t1            Real           Input        temperature
+  ! q1            Real           Input        specific hum
+  ! qs1           Real           Input        sat specific hum
+  ! u1            Real           Input        u-wind
+  ! v1            Real           Input        v-wind
+  ! gz1           Real           Inout        geop
+  ! tv1           Real           Input        virtual temp
+  ! tp1           Real           Input
+  ! clw1          Real           Inout        cloud liquid water
+  ! h1            Real           Inout
+  ! lv1           Real           Inout
+  ! cpn1          Real           Inout
+  ! p1            Real           Input        full level pressure
+  ! ph1           Real           Input        half level pressure
+  ! ft1           Real           Output       temp tend
+  ! fq1           Real           Output       spec hum tend
+  ! fu1           Real           Output       u-wind tend
+  ! fv1           Real           Output       v-wind tend
+  ! precip1       Real           Output       prec
+  ! cbmf1         Real           In/Out       cumulus mass flux
+  ! iflag1        Integer        Output       iflag on latitude strip
+  ! delt          Real           Input        time step
+  ! cpd           Integer        Input        See description below
+  ! cpv           Integer        Input        See description below
+  ! cl            Integer        Input        See description below
+  ! rv            Integer        Input        See description below
+  ! rd            Integer        Input        See description below
+  ! lv0           Integer        Input        See description below
+  ! g             Integer        Input        See description below
+  ! sigs          Integer        Input        See description below
+  ! sigd          Integer        Input        See description below
+  ! elcrit        Integer        Input        See description below
+  ! tlcrit        Integer        Input        See description below
+  ! omtsnow       Integer        Input        See description below
+  ! dtmax         Integer        Input        See description below
+  ! damp          Integer        Input        See description below
+  ! alpha         Integer        Input        See description below
+  ! ent           Integer        Input        See description below
+  ! coeffs        Integer        Input        See description below
+  ! coeffr        Integer        Input        See description below
+  ! omtrain       Integer        Input        See description below
+  ! cu            Integer        Input        See description below
+
+  ! COMMON BLOCKS:
+  ! Block      Name     Type    Usage              Notes
+  ! --------  --------   ----    ------   ------------------------
+
+  ! FILES: None
+
+  ! DATA BASES: None
+
+  ! NON-FILE INPUT/OUTPUT: None
+
+  ! ERROR CONDITIONS: None
+
+  ! ADDITIONAL COMMENTS: None
+
+  ! .................MAINTENANCE SECTION................................
+
+  ! MODULES CALLED:
+  ! Name           Description
+  ! zilch        Zero out an array
+  ! -------     ----------------------
+  ! LOCAL VARIABLES AND
+  ! STRUCTURES:
+  ! Name     Type    Description
+  ! -------  ------  -----------
+  ! See Comments Below
+
+  ! i        Integer loop index
+  ! k        Integer loop index
+
+  ! METHOD:
+
+  ! See Emanuel, K. and M. Zivkovic-Rothman, 2000: Development and evaluation
+  ! of a
+  ! convective scheme for use in climate models.
+
+  ! FILES: None
+
+  ! INCLUDE FILES: None
+
+  ! MAKEFILE: /a/ops/met/nogaps/src/sub/fcst/fcst159lib.mak
+
+  ! ..............................END PROLOGUE.............................
+
+
+  USE dimphy
+  IMPLICIT NONE
+
+  INTEGER kmax2, imax2, kmin2, imin2
+  REAL ftmax2, ftmin2
+  INTEGER kmax, imax, kmin, imin
+  REAL ftmax, ftmin
+
+  INTEGER ncum
+  INTEGER len
+  INTEGER idcum(len)
+  INTEGER nd
+  INTEGER ndp1
+  INTEGER nl
+  INTEGER minorig
+  INTEGER nk1(len)
+  INTEGER icb1(len)
+  REAL t1(len, nd)
+  REAL q1(len, nd)
+  REAL qs1(len, nd)
+  REAL u1(len, nd)
+  REAL v1(len, nd)
+  REAL gz1(len, nd)
+  REAL tv1(len, nd)
+  REAL tp1(len, nd)
+  REAL tvp1(len, nd)
+  REAL clw1(len, nd)
+  REAL h1(len, nd)
+  REAL lv1(len, nd)
+  REAL cpn1(len, nd)
+  REAL p1(len, nd)
+  REAL ph1(len, ndp1)
+  REAL ft1(len, nd)
+  REAL fq1(len, nd)
+  REAL fu1(len, nd)
+  REAL fv1(len, nd)
+  REAL tnk1(len)
+  REAL qnk1(len)
+  REAL gznk1(len)
+  REAL precip1(len)
+  REAL cbmf1(len)
+  REAL plcl1(len)
+  INTEGER iflag1(len)
+  REAL delt
+  REAL cpd
+  REAL cpv
+  REAL cl
+  REAL rv
+  REAL rd
+  REAL lv0
+  REAL g
+  REAL sigs ! SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE
+  REAL sigd ! SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT
+  REAL elcrit ! ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm)
+  REAL tlcrit ! TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-
+  ! CONVERSION THRESHOLD IS ASSUMED TO BE ZERO
+  REAL omtsnow ! OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW
+  REAL dtmax ! DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION
+  ! A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC.
+  REAL damp
+  REAL alpha
+  REAL entp ! ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT FORMULATION
+  REAL coeffs ! COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION OF
+  ! SNOW
+  REAL coeffr ! COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION OF
+  ! RAIN
+  REAL omtrain ! OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN
+  REAL cu ! CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM TRANSPORT
+
+  REAL ma(len, nd)
+
+
+  ! *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) ***
+  ! ***  TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-        ***
+  ! ***       CONVERSION THRESHOLD IS ASSUMED TO BE ZERO             ***
+  ! ***     (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY            ***
+  ! ***               BETWEEN 0 C AND TLCRIT)                        ***
+  ! ***   ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT       ***
+  ! ***                       FORMULATION                            ***
+  ! ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
+  ! ***  SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE       ***
+  ! ***                        OF CLOUD                              ***
+  ! ***        OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN       ***
+  ! ***     OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW          ***
+  ! ***  COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
+  ! ***                          OF RAIN                             ***
+  ! ***  COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
+  ! ***                          OF SNOW                             ***
+  ! ***     CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM      ***
+  ! ***                         TRANSPORT                            ***
+  ! ***    DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION    ***
+  ! ***        A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC      ***
+  ! ***    ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF    ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM                ***
+  ! ***   (THEIR STANDARD VALUES ARE  0.20 AND 0.1, RESPECTIVELY)    ***
+  ! ***                   (DAMP MUST BE LESS THAN 1)                 ***
+
+  ! Local arrays.
+
+  REAL work(ncum)
+  REAL t(ncum, klev)
+  REAL q(ncum, klev)
+  REAL qs(ncum, klev)
+  REAL u(ncum, klev)
+  REAL v(ncum, klev)
+  REAL gz(ncum, klev)
+  REAL h(ncum, klev)
+  REAL lv(ncum, klev)
+  REAL cpn(ncum, klev)
+  REAL p(ncum, klev)
+  REAL ph(ncum, klev)
+  REAL ft(ncum, klev)
+  REAL fq(ncum, klev)
+  REAL fu(ncum, klev)
+  REAL fv(ncum, klev)
+  REAL precip(ncum)
+  REAL cbmf(ncum)
+  REAL plcl(ncum)
+  REAL tnk(ncum)
+  REAL qnk(ncum)
+  REAL gznk(ncum)
+  REAL tv(ncum, klev)
+  REAL tp(ncum, klev)
+  REAL tvp(ncum, klev)
+  REAL clw(ncum, klev)
+  ! real det(ncum,klev)
+  REAL dph(ncum, klev)
+  ! real wd(ncum)
+  ! real tprime(ncum)
+  ! real qprime(ncum)
+  REAL ah0(ncum)
+  REAL ep(ncum, klev)
+  REAL sigp(ncum, klev)
+  INTEGER nent(ncum, klev)
+  REAL water(ncum, klev)
+  REAL evap(ncum, klev)
+  REAL mp(ncum, klev)
+  REAL m(ncum, klev)
+  REAL qti
+  REAL wt(ncum, klev)
+  REAL hp(ncum, klev)
+  REAL lvcp(ncum, klev)
+  REAL elij(ncum, klev, klev)
+  REAL ment(ncum, klev, klev)
+  REAL sij(ncum, klev, klev)
+  REAL qent(ncum, klev, klev)
+  REAL uent(ncum, klev, klev)
+  REAL vent(ncum, klev, klev)
+  REAL qp(ncum, klev)
+  REAL up(ncum, klev)
+  REAL vp(ncum, klev)
+  REAL cape(ncum)
+  REAL capem(ncum)
+  REAL frac(ncum)
+  REAL dtpbl(ncum)
+  REAL tvpplcl(ncum)
+  REAL tvaplcl(ncum)
+  REAL dtmin(ncum)
+  REAL w3d(ncum, klev)
+  REAL am(ncum)
+  REAL ents(ncum)
+  REAL uav(ncum)
+  REAL vav(ncum)
+
+  INTEGER iflag(ncum)
+  INTEGER nk(ncum)
+  INTEGER icb(ncum)
+  INTEGER inb(ncum)
+  INTEGER inb1(ncum)
+  INTEGER jtt(ncum)
+
+  INTEGER nn, i, k, n, icbmax, nlp, j
+  INTEGER ij
+  INTEGER nn2, nn3
+  REAL clmcpv
+  REAL clmcpd
+  REAL cpdmcp
+  REAL cpvmcpd
+  REAL eps
+  REAL epsi
+  REAL epsim1
+  REAL tg, qg, s, alv, tc, ahg, denom, es, rg, ginv, rowl
+  REAL delti
+  REAL tca, elacrit
+  REAL by, defrac
+  ! real byp
+  REAL byp(ncum)
+  LOGICAL lcape(ncum)
+  REAL dbo
+  REAL bf2, anum, dei, altem, cwat, stemp
+  REAL alt, qp1, smid, sjmax, sjmin
+  REAL delp, delm
+  REAL awat, coeff, afac, revap, dhdp, fac, qstm, rat
+  REAL qsm, sigt, b6, c6
+  REAL dpinv, cpinv
+  REAL fqold, ftold, fuold, fvold
+  REAL wdtrain(ncum), xxx
+  REAL bsum(ncum, klev)
+  REAL asij(ncum)
+  REAL smin(ncum)
+  REAL scrit(ncum)
+  ! real amp1,ad
+  REAL amp1(ncum), ad(ncum)
+  LOGICAL lwork(ncum)
+  INTEGER num1, num2
+
+  ! print*,'cpd en entree de convect2 ',cpd
+  nlp = nl + 1
+
+  rowl = 1000.0
+  ginv = 1.0/g
+  delti = 1.0/delt
+
+  ! Define some thermodynamic variables.
+
+  clmcpv = cl - cpv
+  clmcpd = cl - cpd
+  cpdmcp = cpd - cpv
+  cpvmcpd = cpv - cpd
+  eps = rd/rv
+  epsi = 1.0/eps
+  epsim1 = epsi - 1.0
+
+  ! Compress the fields.
+
+  DO k = 1, nl + 1
+    nn = 0
+    DO i = 1, len
+      IF (iflag1(i)==0) THEN
+        nn = nn + 1
+        t(nn, k) = t1(i, k)
+        q(nn, k) = q1(i, k)
+        qs(nn, k) = qs1(i, k)
+        u(nn, k) = u1(i, k)
+        v(nn, k) = v1(i, k)
+        gz(nn, k) = gz1(i, k)
+        h(nn, k) = h1(i, k)
+        lv(nn, k) = lv1(i, k)
+        cpn(nn, k) = cpn1(i, k)
+        p(nn, k) = p1(i, k)
+        ph(nn, k) = ph1(i, k)
+        tv(nn, k) = tv1(i, k)
+        tp(nn, k) = tp1(i, k)
+        tvp(nn, k) = tvp1(i, k)
+        clw(nn, k) = clw1(i, k)
+      END IF
+    END DO
+    ! print*,'100 ncum,nn',ncum,nn
+  END DO
+  nn = 0
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      nn = nn + 1
+      cbmf(nn) = cbmf1(i)
+      plcl(nn) = plcl1(i)
+      tnk(nn) = tnk1(i)
+      qnk(nn) = qnk1(i)
+      gznk(nn) = gznk1(i)
+      nk(nn) = nk1(i)
+      icb(nn) = icb1(i)
+      iflag(nn) = iflag1(i)
+    END IF
+  END DO
+  ! print*,'150 ncum,nn',ncum,nn
+
+  ! Initialize the tendencies, det, wd, tprime, qprime.
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      ! det(i,k)=0.0
+      ft(i, k) = 0.0
+      fu(i, k) = 0.0
+      fv(i, k) = 0.0
+      fq(i, k) = 0.0
+      dph(i, k) = ph(i, k) - ph(i, k+1)
+      ep(i, k) = 0.0
+      sigp(i, k) = sigs
+    END DO
+  END DO
+  DO i = 1, ncum
+    ! wd(i)=0.0
+    ! tprime(i)=0.0
+    ! qprime(i)=0.0
+    precip(i) = 0.0
+    ft(i, nl+1) = 0.0
+    fu(i, nl+1) = 0.0
+    fv(i, nl+1) = 0.0
+    fq(i, nl+1) = 0.0
+  END DO
+
+  ! Compute icbmax.
+
+  icbmax = 2
+  DO i = 1, ncum
+    icbmax = max(icbmax, icb(i))
+  END DO
+
+
+  ! =====================================================================
+  ! --- FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+  ! =====================================================================
+
+  ! ---       The procedure is to solve the equation.
+  ! cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+
+  ! ***  Calculate certain parcel quantities, including static energy   ***
+
+
+  DO i = 1, ncum
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) + qnk(i)*(lv0-clmcpv*(tnk(i)- &
+      273.15)) + gznk(i)
+  END DO
+
+
+  ! ***  Find lifted parcel quantities above cloud base    ***
+
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF (k>=(icb(i)+1)) THEN
+        tg = t(i, k)
+        qg = qs(i, k)
+        alv = lv0 - clmcpv*(t(i,k)-273.15)
+
+        ! First iteration.
+
+        s = cpd + alv*alv*qg/(rv*t(i,k)*t(i,k))
+        s = 1./s
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*t(i, k) + alv*qg + gz(i, k)
+        tg = tg + s*(ah0(i)-ahg)
+        tg = max(tg, 35.0)
+        tc = tg - 273.15
+        denom = 243.5 + tc
+        IF (tc>=0.0) THEN
+          es = 6.112*exp(17.67*tc/denom)
+        ELSE
+          es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+        END IF
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+        ! Second iteration.
+
+        s = cpd + alv*alv*qg/(rv*t(i,k)*t(i,k))
+        s = 1./s
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*t(i, k) + alv*qg + gz(i, k)
+        tg = tg + s*(ah0(i)-ahg)
+        tg = max(tg, 35.0)
+        tc = tg - 273.15
+        denom = 243.5 + tc
+        IF (tc>=0.0) THEN
+          es = 6.112*exp(17.67*tc/denom)
+        ELSE
+          es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+        END IF
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+        alv = lv0 - clmcpv*(t(i,k)-273.15)
+        ! print*,'cpd dans convect2 ',cpd
+        ! print*,'tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd'
+        ! print*,tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd
+        tp(i, k) = (ah0(i)-(cl-cpd)*qnk(i)*t(i,k)-gz(i,k)-alv*qg)/cpd
+        ! if (.not.cpd.gt.1000.) then
+        ! print*,'CPD=',cpd
+        ! stop
+        ! endif
+        clw(i, k) = qnk(i) - qg
+        clw(i, k) = max(0.0, clw(i,k))
+        rg = qg/(1.-qnk(i))
+        tvp(i, k) = tp(i, k)*(1.+rg*epsi)
+      END IF
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- SET THE PRECIPITATION EFFICIENCIES AND THE FRACTION OF
+  ! --- PRECIPITATION FALLING OUTSIDE OF CLOUD
+  ! --- THESE MAY BE FUNCTIONS OF TP(I), P(I) AND CLW(I)
+  ! =====================================================================
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF (k>=(nk(i)+1)) THEN
+        tca = tp(i, k) - 273.15
+        IF (tca>=0.0) THEN
+          elacrit = elcrit
+        ELSE
+          elacrit = elcrit*(1.0-tca/tlcrit)
+        END IF
+        elacrit = max(elacrit, 0.0)
+        ep(i, k) = 1.0 - elacrit/max(clw(i,k), 1.0E-8)
+        ep(i, k) = max(ep(i,k), 0.0)
+        ep(i, k) = min(ep(i,k), 1.0)
+        sigp(i, k) = sigs
+      END IF
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- CALCULATE VIRTUAL TEMPERATURE AND LIFTED PARCEL
+  ! --- VIRTUAL TEMPERATURE
+  ! =====================================================================
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF (k>=(icb(i)+1)) THEN
+        tvp(i, k) = tvp(i, k)*(1.0-qnk(i)+ep(i,k)*clw(i,k))
+        ! print*,'i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)'
+        ! print*, i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    tvp(i, nlp) = tvp(i, nl) - (gz(i,nlp)-gz(i,nl))/cpd
+  END DO
+
+
+  ! =====================================================================
+  ! --- NOW INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
+  ! =====================================================================
+
+  DO i = 1, ncum*nlp
+    nent(i, 1) = 0
+    water(i, 1) = 0.0
+    evap(i, 1) = 0.0
+    mp(i, 1) = 0.0
+    m(i, 1) = 0.0
+    wt(i, 1) = omtsnow
+    hp(i, 1) = h(i, 1)
+    ! if(.not.cpn(i,1).gt.900.) then
+    ! print*,'i,lv(i,1),cpn(i,1)'
+    ! print*, i,lv(i,1),cpn(i,1)
+    ! k=(i-1)/ncum+1
+    ! print*,'i,k',mod(i,ncum),k,'  cpn',cpn(mod(i,ncum),k)
+    ! stop
+    ! endif
+    lvcp(i, 1) = lv(i, 1)/cpn(i, 1)
+  END DO
+
+  DO i = 1, ncum*nlp*nlp
+    elij(i, 1, 1) = 0.0
+    ment(i, 1, 1) = 0.0
+    sij(i, 1, 1) = 0.0
+  END DO
+
+  DO k = 1, nlp
+    DO j = 1, nlp
+      DO i = 1, ncum
+        qent(i, k, j) = q(i, j)
+        uent(i, k, j) = u(i, j)
+        vent(i, k, j) = v(i, j)
+      END DO
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    qp(i, 1) = q(i, 1)
+    up(i, 1) = u(i, 1)
+    vp(i, 1) = v(i, 1)
+  END DO
+  DO k = 2, nlp
+    DO i = 1, ncum
+      qp(i, k) = q(i, k-1)
+      up(i, k) = u(i, k-1)
+      vp(i, k) = v(i, k-1)
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- FIND THE FIRST MODEL LEVEL (INB1) ABOVE THE PARCEL'S
+  ! --- HIGHEST LEVEL OF NEUTRAL BUOYANCY
+  ! --- AND THE HIGHEST LEVEL OF POSITIVE CAPE (INB)
+  ! =====================================================================
+
+  DO i = 1, ncum
+    cape(i) = 0.0
+    capem(i) = 0.0
+    inb(i) = icb(i) + 1
+    inb1(i) = inb(i)
+  END DO
+
+  ! Originial Code
+
+  ! do 530 k=minorig+1,nl-1
+  ! do 520 i=1,ncum
+  ! if(k.ge.(icb(i)+1))then
+  ! by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! byp=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! cape(i)=cape(i)+by
+  ! if(by.ge.0.0)inb1(i)=k+1
+  ! if(cape(i).gt.0.0)then
+  ! inb(i)=k+1
+  ! capem(i)=cape(i)
+  ! endif
+  ! endif
+  ! 520    continue
+  ! 530  continue
+  ! do 540 i=1,ncum
+  ! byp=(tvp(i,nl)-tv(i,nl))*dph(i,nl)/p(i,nl)
+  ! cape(i)=capem(i)+byp
+  ! defrac=capem(i)-cape(i)
+  ! defrac=max(defrac,0.001)
+  ! frac(i)=-cape(i)/defrac
+  ! frac(i)=min(frac(i),1.0)
+  ! frac(i)=max(frac(i),0.0)
+  ! 540   continue
+
+  ! K Emanuel fix
+
+  ! call zilch(byp,ncum)
+  ! do 530 k=minorig+1,nl-1
+  ! do 520 i=1,ncum
+  ! if(k.ge.(icb(i)+1))then
+  ! by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! cape(i)=cape(i)+by
+  ! if(by.ge.0.0)inb1(i)=k+1
+  ! if(cape(i).gt.0.0)then
+  ! inb(i)=k+1
+  ! capem(i)=cape(i)
+  ! byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! endif
+  ! endif
+  ! 520    continue
+  ! 530  continue
+  ! do 540 i=1,ncum
+  ! inb(i)=max(inb(i),inb1(i))
+  ! cape(i)=capem(i)+byp(i)
+  ! defrac=capem(i)-cape(i)
+  ! defrac=max(defrac,0.001)
+  ! frac(i)=-cape(i)/defrac
+  ! frac(i)=min(frac(i),1.0)
+  ! frac(i)=max(frac(i),0.0)
+  ! 540   continue
+
+  ! J Teixeira fix
+
+  CALL zilch(byp, ncum)
+  DO i = 1, ncum
+    lcape(i) = .TRUE.
+  END DO
+  DO k = minorig + 1, nl - 1
+    DO i = 1, ncum
+      IF (cape(i)<0.0) lcape(i) = .FALSE.
+      IF ((k>=(icb(i)+1)) .AND. lcape(i)) THEN
+        by = (tvp(i,k)-tv(i,k))*dph(i, k)/p(i, k)
+        byp(i) = (tvp(i,k+1)-tv(i,k+1))*dph(i, k+1)/p(i, k+1)
+        cape(i) = cape(i) + by
+        IF (by>=0.0) inb1(i) = k + 1
+        IF (cape(i)>0.0) THEN
+          inb(i) = k + 1
+          capem(i) = cape(i)
+        END IF
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    cape(i) = capem(i) + byp(i)
+    defrac = capem(i) - cape(i)
+    defrac = max(defrac, 0.001)
+    frac(i) = -cape(i)/defrac
+    frac(i) = min(frac(i), 1.0)
+    frac(i) = max(frac(i), 0.0)
+  END DO
+
+  ! =====================================================================
+  ! ---   CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL
+  ! =====================================================================
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((k>=icb(i)) .AND. (k<=inb(i))) THEN
+        hp(i, k) = h(i, nk(i)) + (lv(i,k)+(cpd-cpv)*t(i,k))*ep(i, k)*clw(i, k &
+          )
+      END IF
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! ---  CALCULATE CLOUD BASE MASS FLUX AND RATES OF MIXING, M(I),
+  ! --- AT EACH MODEL LEVEL
+  ! =====================================================================
+
+  ! tvpplcl = parcel temperature lifted adiabatically from level
+  ! icb-1 to the LCL.
+  ! tvaplcl = virtual temperature at the LCL.
+
+  DO i = 1, ncum
+    dtpbl(i) = 0.0
+    tvpplcl(i) = tvp(i, icb(i)-1) - rd*tvp(i, icb(i)-1)*(p(i,icb(i)-1)-plcl(i &
+      ))/(cpn(i,icb(i)-1)*p(i,icb(i)-1))
+    tvaplcl(i) = tv(i, icb(i)) + (tvp(i,icb(i))-tvp(i,icb(i)+1))*(plcl(i)-p(i &
+      ,icb(i)))/(p(i,icb(i))-p(i,icb(i)+1))
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Interpolate difference between lifted parcel and
+  ! --- environmental temperatures to lifted condensation level
+  ! -------------------------------------------------------------------
+
+  ! dtpbl = average of tvp-tv in the PBL (k=nk to icb-1).
+
+  DO k = minorig, icbmax
+    DO i = 1, ncum
+      IF ((k>=nk(i)) .AND. (k<=(icb(i)-1))) THEN
+        dtpbl(i) = dtpbl(i) + (tvp(i,k)-tv(i,k))*dph(i, k)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    dtpbl(i) = dtpbl(i)/(ph(i,nk(i))-ph(i,icb(i)))
+    dtmin(i) = tvpplcl(i) - tvaplcl(i) + dtmax + dtpbl(i)
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Adjust cloud base mass flux
+  ! -------------------------------------------------------------------
+
+  DO i = 1, ncum
+    work(i) = cbmf(i)
+    cbmf(i) = max(0.0, (1.0-damp)*cbmf(i)+0.1*alpha*dtmin(i))
+    IF ((work(i)==0.0) .AND. (cbmf(i)==0.0)) THEN
+      iflag(i) = 3
+    END IF
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Calculate rates of mixing,  m(i)
+  ! -------------------------------------------------------------------
+
+  CALL zilch(work, ncum)
+
+  DO j = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((j>=(icb(i)+1)) .AND. (j<=inb(i))) THEN
+        k = min(j, inb1(i))
+        dbo = abs(tv(i,k+1)-tvp(i,k+1)-tv(i,k-1)+tvp(i,k-1)) + &
+          entp*0.04*(ph(i,k)-ph(i,k+1))
+        work(i) = work(i) + dbo
+        m(i, j) = cbmf(i)*dbo
+      END IF
+    END DO
+  END DO
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((k>=(icb(i)+1)) .AND. (k<=inb(i))) THEN
+        m(i, k) = m(i, k)/work(i)
+      END IF
+    END DO
+  END DO
+
+
+  ! =====================================================================
+  ! --- CALCULATE ENTRAINED AIR MASS FLUX (ment), TOTAL WATER MIXING
+  ! --- RATIO (QENT), TOTAL CONDENSED WATER (elij), AND MIXING
+  ! --- FRACTION (sij)
+  ! =====================================================================
+
+
+  DO i = minorig + 1, nl
+    DO j = minorig + 1, nl
+      DO ij = 1, ncum
+        IF ((i>=(icb(ij)+1)) .AND. (j>=icb(ij)) .AND. (i<=inb(ij)) .AND. (j<= &
+            inb(ij))) THEN
+          qti = qnk(ij) - ep(ij, i)*clw(ij, i)
+          bf2 = 1. + lv(ij, j)*lv(ij, j)*qs(ij, j)/(rv*t(ij,j)*t(ij,j)*cpd)
+          anum = h(ij, j) - hp(ij, i) + (cpv-cpd)*t(ij, j)*(qti-q(ij,j))
+          denom = h(ij, i) - hp(ij, i) + (cpd-cpv)*(q(ij,i)-qti)*t(ij, j)
+          dei = denom
+          IF (abs(dei)<0.01) dei = 0.01
+          sij(ij, i, j) = anum/dei
+          sij(ij, i, i) = 1.0
+          altem = sij(ij, i, j)*q(ij, i) + (1.-sij(ij,i,j))*qti - qs(ij, j)
+          altem = altem/bf2
+          cwat = clw(ij, j)*(1.-ep(ij,j))
+          stemp = sij(ij, i, j)
+          IF ((stemp<0.0 .OR. stemp>1.0 .OR. altem>cwat) .AND. j>i) THEN
+            anum = anum - lv(ij, j)*(qti-qs(ij,j)-cwat*bf2)
+            denom = denom + lv(ij, j)*(q(ij,i)-qti)
+            IF (abs(denom)<0.01) denom = 0.01
+            sij(ij, i, j) = anum/denom
+            altem = sij(ij, i, j)*q(ij, i) + (1.-sij(ij,i,j))*qti - qs(ij, j)
+            altem = altem - (bf2-1.)*cwat
+          END IF
+          IF (sij(ij,i,j)>0.0 .AND. sij(ij,i,j)<0.9) THEN
+            qent(ij, i, j) = sij(ij, i, j)*q(ij, i) + (1.-sij(ij,i,j))*qti
+            uent(ij, i, j) = sij(ij, i, j)*u(ij, i) + &
+              (1.-sij(ij,i,j))*u(ij, nk(ij))
+            vent(ij, i, j) = sij(ij, i, j)*v(ij, i) + &
+              (1.-sij(ij,i,j))*v(ij, nk(ij))
+            elij(ij, i, j) = altem
+            elij(ij, i, j) = max(0.0, elij(ij,i,j))
+            ment(ij, i, j) = m(ij, i)/(1.-sij(ij,i,j))
+            nent(ij, i) = nent(ij, i) + 1
+          END IF
+          sij(ij, i, j) = max(0.0, sij(ij,i,j))
+          sij(ij, i, j) = min(1.0, sij(ij,i,j))
+        END IF
+      END DO
+    END DO
+
+    ! ***   If no air can entrain at level i assume that updraft detrains
+    ! ***
+    ! ***   at that level and calculate detrained air flux and properties
+    ! ***
+
+    DO ij = 1, ncum
+      IF ((i>=(icb(ij)+1)) .AND. (i<=inb(ij)) .AND. (nent(ij,i)==0)) THEN
+        ment(ij, i, i) = m(ij, i)
+        qent(ij, i, i) = q(ij, nk(ij)) - ep(ij, i)*clw(ij, i)
+        uent(ij, i, i) = u(ij, nk(ij))
+        vent(ij, i, i) = v(ij, nk(ij))
+        elij(ij, i, i) = clw(ij, i)
+        sij(ij, i, i) = 1.0
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    sij(i, inb(i), inb(i)) = 1.0
+  END DO
+
+  ! =====================================================================
+  ! ---  NORMALIZE ENTRAINED AIR MASS FLUXES
+  ! ---  TO REPRESENT EQUAL PROBABILITIES OF MIXING
+  ! =====================================================================
+
+
+  CALL zilch(bsum, ncum*nlp)
+  DO ij = 1, ncum
+    lwork(ij) = .FALSE.
+  END DO
+  DO i = minorig + 1, nl
+
+    num1 = 0
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 789
+
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) THEN
+        lwork(ij) = (nent(ij,i)/=0)
+        qp1 = q(ij, nk(ij)) - ep(ij, i)*clw(ij, i)
+        anum = h(ij, i) - hp(ij, i) - lv(ij, i)*(qp1-qs(ij,i))
+        denom = h(ij, i) - hp(ij, i) + lv(ij, i)*(q(ij,i)-qp1)
+        IF (abs(denom)<0.01) denom = 0.01
+        scrit(ij) = anum/denom
+        alt = qp1 - qs(ij, i) + scrit(ij)*(q(ij,i)-qp1)
+        IF (scrit(ij)<0.0 .OR. alt<0.0) scrit(ij) = 1.0
+        asij(ij) = 0.0
+        smin(ij) = 1.0
+      END IF
+    END DO
+    DO j = minorig, nl
+
+      num2 = 0
+      DO ij = 1, ncum
+        IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (j>=icb( &
+          ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) num2 = num2 + 1
+      END DO
+      IF (num2<=0) GO TO 783
+
+      DO ij = 1, ncum
+        IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (j>=icb( &
+            ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) THEN
+          IF (sij(ij,i,j)>0.0 .AND. sij(ij,i,j)<0.9) THEN
+            IF (j>i) THEN
+              smid = min(sij(ij,i,j), scrit(ij))
+              sjmax = smid
+              sjmin = smid
+              IF (smid<smin(ij) .AND. sij(ij,i,j+1)<smid) THEN
+                smin(ij) = smid
+                sjmax = min(sij(ij,i,j+1), sij(ij,i,j), scrit(ij))
+                sjmin = max(sij(ij,i,j-1), sij(ij,i,j))
+                sjmin = min(sjmin, scrit(ij))
+              END IF
+            ELSE
+              sjmax = max(sij(ij,i,j+1), scrit(ij))
+              smid = max(sij(ij,i,j), scrit(ij))
+              sjmin = 0.0
+              IF (j>1) sjmin = sij(ij, i, j-1)
+              sjmin = max(sjmin, scrit(ij))
+            END IF
+            delp = abs(sjmax-smid)
+            delm = abs(sjmin-smid)
+            asij(ij) = asij(ij) + (delp+delm)*(ph(ij,j)-ph(ij,j+1))
+            ment(ij, i, j) = ment(ij, i, j)*(delp+delm)*(ph(ij,j)-ph(ij,j+1))
+          END IF
+        END IF
+      END DO
+783 END DO
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. lwork(ij)) THEN
+        asij(ij) = max(1.0E-21, asij(ij))
+        asij(ij) = 1.0/asij(ij)
+        bsum(ij, i) = 0.0
+      END IF
+    END DO
+    DO j = minorig, nl + 1
+      DO ij = 1, ncum
+        IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (j>=icb( &
+            ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) THEN
+          ment(ij, i, j) = ment(ij, i, j)*asij(ij)
+          bsum(ij, i) = bsum(ij, i) + ment(ij, i, j)
+        END IF
+      END DO
+    END DO
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (bsum(ij, &
+          i)<1.0E-18) .AND. lwork(ij)) THEN
+        nent(ij, i) = 0
+        ment(ij, i, i) = m(ij, i)
+        qent(ij, i, i) = q(ij, nk(ij)) - ep(ij, i)*clw(ij, i)
+        uent(ij, i, i) = u(ij, nk(ij))
+        vent(ij, i, i) = v(ij, nk(ij))
+        elij(ij, i, i) = clw(ij, i)
+        sij(ij, i, i) = 1.0
+      END IF
+    END DO
+789 END DO
+
+  ! =====================================================================
+  ! --- PRECIPITATING DOWNDRAFT CALCULATION
+  ! =====================================================================
+
+  ! ***  Check whether ep(inb)=0, if so, skip precipitating    ***
+  ! ***             downdraft calculation                      ***
+
+
+  ! ***  Integrate liquid water equation to find condensed water   ***
+  ! ***                and condensed water flux                    ***
+
+
+  DO i = 1, ncum
+    jtt(i) = 2
+    IF (ep(i,inb(i))<=0.0001) iflag(i) = 2
+    IF (iflag(i)==0) THEN
+      lwork(i) = .TRUE.
+    ELSE
+      lwork(i) = .FALSE.
+    END IF
+  END DO
+
+  ! ***                    Begin downdraft loop                    ***
+
+
+  CALL zilch(wdtrain, ncum)
+  DO i = nl + 1, 1, -1
+
+    num1 = 0
+    DO ij = 1, ncum
+      IF ((i<=inb(ij)) .AND. lwork(ij)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 899
+
+
+    ! ***        Calculate detrained precipitation             ***
+
+    DO ij = 1, ncum
+      IF ((i<=inb(ij)) .AND. (lwork(ij))) THEN
+        wdtrain(ij) = g*ep(ij, i)*m(ij, i)*clw(ij, i)
+      END IF
+    END DO
+
+    IF (i>1) THEN
+      DO j = 1, i - 1
+        DO ij = 1, ncum
+          IF ((i<=inb(ij)) .AND. (lwork(ij))) THEN
+            awat = elij(ij, j, i) - (1.-ep(ij,i))*clw(ij, i)
+            awat = max(0.0, awat)
+            wdtrain(ij) = wdtrain(ij) + g*awat*ment(ij, j, i)
+          END IF
+        END DO
+      END DO
+    END IF
+
+    ! ***    Find rain water and evaporation using provisional   ***
+    ! ***              estimates of qp(i)and qp(i-1)             ***
+
+
+    ! ***  Value of terminal velocity and coeffecient of evaporation for snow
+    ! ***
+
+    DO ij = 1, ncum
+      IF ((i<=inb(ij)) .AND. (lwork(ij))) THEN
+        coeff = coeffs
+        wt(ij, i) = omtsnow
+
+        ! ***  Value of terminal velocity and coeffecient of evaporation for
+        ! rain   ***
+
+        IF (t(ij,i)>273.0) THEN
+          coeff = coeffr
+          wt(ij, i) = omtrain
+        END IF
+        qsm = 0.5*(q(ij,i)+qp(ij,i+1))
+        afac = coeff*ph(ij, i)*(qs(ij,i)-qsm)/(1.0E4+2.0E3*ph(ij,i)*qs(ij,i))
+        afac = max(afac, 0.0)
+        sigt = sigp(ij, i)
+        sigt = max(0.0, sigt)
+        sigt = min(1.0, sigt)
+        b6 = 100.*(ph(ij,i)-ph(ij,i+1))*sigt*afac/wt(ij, i)
+        c6 = (water(ij,i+1)*wt(ij,i+1)+wdtrain(ij)/sigd)/wt(ij, i)
+        revap = 0.5*(-b6+sqrt(b6*b6+4.*c6))
+        evap(ij, i) = sigt*afac*revap
+        water(ij, i) = revap*revap
+
+        ! ***  Calculate precipitating downdraft mass flux under     ***
+        ! ***              hydrostatic approximation                 ***
+
+        IF (i>1) THEN
+          dhdp = (h(ij,i)-h(ij,i-1))/(p(ij,i-1)-p(ij,i))
+          dhdp = max(dhdp, 10.0)
+          mp(ij, i) = 100.*ginv*lv(ij, i)*sigd*evap(ij, i)/dhdp
+          mp(ij, i) = max(mp(ij,i), 0.0)
+
+          ! ***   Add small amount of inertia to downdraft              ***
+
+          fac = 20.0/(ph(ij,i-1)-ph(ij,i))
+          mp(ij, i) = (fac*mp(ij,i+1)+mp(ij,i))/(1.+fac)
+
+          ! ***      Force mp to decrease linearly to zero
+          ! ***
+          ! ***      between about 950 mb and the surface
+          ! ***
+
+          IF (p(ij,i)>(0.949*p(ij,1))) THEN
+            jtt(ij) = max(jtt(ij), i)
+            mp(ij, i) = mp(ij, jtt(ij))*(p(ij,1)-p(ij,i))/ &
+              (p(ij,1)-p(ij,jtt(ij)))
+          END IF
+        END IF
+
+        ! ***       Find mixing ratio of precipitating downdraft     ***
+
+        IF (i/=inb(ij)) THEN
+          IF (i==1) THEN
+            qstm = qs(ij, 1)
+          ELSE
+            qstm = qs(ij, i-1)
+          END IF
+          IF (mp(ij,i)>mp(ij,i+1)) THEN
+            rat = mp(ij, i+1)/mp(ij, i)
+            qp(ij, i) = qp(ij, i+1)*rat + q(ij, i)*(1.0-rat) + &
+              100.*ginv*sigd*(ph(ij,i)-ph(ij,i+1))*(evap(ij,i)/mp(ij,i))
+            up(ij, i) = up(ij, i+1)*rat + u(ij, i)*(1.-rat)
+            vp(ij, i) = vp(ij, i+1)*rat + v(ij, i)*(1.-rat)
+          ELSE
+            IF (mp(ij,i+1)>0.0) THEN
+              qp(ij, i) = (gz(ij,i+1)-gz(ij,i)+qp(ij,i+1)*(lv(ij,i+1)+t(ij, &
+                i+1)*(cl-cpd))+cpd*(t(ij,i+1)-t(ij, &
+                i)))/(lv(ij,i)+t(ij,i)*(cl-cpd))
+              up(ij, i) = up(ij, i+1)
+              vp(ij, i) = vp(ij, i+1)
+            END IF
+          END IF
+          qp(ij, i) = min(qp(ij,i), qstm)
+          qp(ij, i) = max(qp(ij,i), 0.0)
+        END IF
+      END IF
+    END DO
+899 END DO
+
+  ! ***  Calculate surface precipitation in mm/day     ***
+
+  DO i = 1, ncum
+    IF (iflag(i)<=1) THEN
+      ! c            precip(i)=precip(i)+wt(i,1)*sigd*water(i,1)*3600.*24000.
+      ! c     &                /(rowl*g)
+      ! c            precip(i)=precip(i)*delt/86400.
+      precip(i) = wt(i, 1)*sigd*water(i, 1)*86400/g
+    END IF
+  END DO
+
+
+  ! ***  Calculate downdraft velocity scale and surface temperature and  ***
+  ! ***                    water vapor fluctuations                      ***
+
+  ! wd=beta*abs(mp(icb))*0.01*rd*t(icb)/(sigd*p(icb))
+  ! qprime=0.5*(qp(1)-q(1))
+  ! tprime=lv0*qprime/cpd
+
+  ! ***  Calculate tendencies of lowest level potential temperature  ***
+  ! ***                      and mixing ratio                        ***
+
+  DO i = 1, ncum
+    work(i) = 0.01/(ph(i,1)-ph(i,2))
+    am(i) = 0.0
+  END DO
+  DO k = 2, nl
+    DO i = 1, ncum
+      IF ((nk(i)==1) .AND. (k<=inb(i)) .AND. (nk(i)==1)) THEN
+        am(i) = am(i) + m(i, k)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    IF ((g*work(i)*am(i))>=delti) iflag(i) = 1
+    ft(i, 1) = ft(i, 1) + g*work(i)*am(i)*(t(i,2)-t(i,1)+(gz(i,2)-gz(i, &
+      1))/cpn(i,1))
+    ft(i, 1) = ft(i, 1) - lvcp(i, 1)*sigd*evap(i, 1)
+    ft(i, 1) = ft(i, 1) + sigd*wt(i, 2)*(cl-cpd)*water(i, 2)*(t(i,2)-t(i,1))* &
+      work(i)/cpn(i, 1)
+    fq(i, 1) = fq(i, 1) + g*mp(i, 2)*(qp(i,2)-q(i,1))*work(i) + &
+      sigd*evap(i, 1)
+    fq(i, 1) = fq(i, 1) + g*am(i)*(q(i,2)-q(i,1))*work(i)
+    fu(i, 1) = fu(i, 1) + g*work(i)*(mp(i,2)*(up(i,2)-u(i,1))+am(i)*(u(i, &
+      2)-u(i,1)))
+    fv(i, 1) = fv(i, 1) + g*work(i)*(mp(i,2)*(vp(i,2)-v(i,1))+am(i)*(v(i, &
+      2)-v(i,1)))
+  END DO
+  DO j = 2, nl
+    DO i = 1, ncum
+      IF (j<=inb(i)) THEN
+        fq(i, 1) = fq(i, 1) + g*work(i)*ment(i, j, 1)*(qent(i,j,1)-q(i,1))
+        fu(i, 1) = fu(i, 1) + g*work(i)*ment(i, j, 1)*(uent(i,j,1)-u(i,1))
+        fv(i, 1) = fv(i, 1) + g*work(i)*ment(i, j, 1)*(vent(i,j,1)-v(i,1))
+      END IF
+    END DO
+  END DO
+
+  ! ***  Calculate tendencies of potential temperature and mixing ratio  ***
+  ! ***               at levels above the lowest level                   ***
+
+  ! ***  First find the net saturated updraft and downdraft mass fluxes  ***
+  ! ***                      through each level                          ***
+
+  DO i = 2, nl + 1
+
+    num1 = 0
+    DO ij = 1, ncum
+      IF (i<=inb(ij)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 1500
+
+    CALL zilch(amp1, ncum)
+    CALL zilch(ad, ncum)
+
+    DO k = i + 1, nl + 1
+      DO ij = 1, ncum
+        IF ((i>=nk(ij)) .AND. (i<=inb(ij)) .AND. (k<=(inb(ij)+1))) THEN
+          amp1(ij) = amp1(ij) + m(ij, k)
+        END IF
+      END DO
+    END DO
+
+    DO k = 1, i
+      DO j = i + 1, nl + 1
+        DO ij = 1, ncum
+          IF ((j<=(inb(ij)+1)) .AND. (i<=inb(ij))) THEN
+            amp1(ij) = amp1(ij) + ment(ij, k, j)
+          END IF
+        END DO
+      END DO
+    END DO
+    DO k = 1, i - 1
+      DO j = i, nl + 1
+        DO ij = 1, ncum
+          IF ((i<=inb(ij)) .AND. (j<=inb(ij))) THEN
+            ad(ij) = ad(ij) + ment(ij, j, k)
+          END IF
+        END DO
+      END DO
+    END DO
+
+    DO ij = 1, ncum
+      IF (i<=inb(ij)) THEN
+        dpinv = 0.01/(ph(ij,i)-ph(ij,i+1))
+        cpinv = 1.0/cpn(ij, i)
+
+        ft(ij, i) = ft(ij, i) + g*dpinv*(amp1(ij)*(t(ij,i+1)-t(ij, &
+          i)+(gz(ij,i+1)-gz(ij,i))*cpinv)-ad(ij)*(t(ij,i)-t(ij, &
+          i-1)+(gz(ij,i)-gz(ij,i-1))*cpinv)) - sigd*lvcp(ij, i)*evap(ij, i)
+        ft(ij, i) = ft(ij, i) + g*dpinv*ment(ij, i, i)*(hp(ij,i)-h(ij,i)+t(ij &
+          ,i)*(cpv-cpd)*(q(ij,i)-qent(ij,i,i)))*cpinv
+        ft(ij, i) = ft(ij, i) + sigd*wt(ij, i+1)*(cl-cpd)*water(ij, i+1)*(t( &
+          ij,i+1)-t(ij,i))*dpinv*cpinv
+        fq(ij, i) = fq(ij, i) + g*dpinv*(amp1(ij)*(q(ij,i+1)-q(ij, &
+          i))-ad(ij)*(q(ij,i)-q(ij,i-1)))
+        fu(ij, i) = fu(ij, i) + g*dpinv*(amp1(ij)*(u(ij,i+1)-u(ij, &
+          i))-ad(ij)*(u(ij,i)-u(ij,i-1)))
+        fv(ij, i) = fv(ij, i) + g*dpinv*(amp1(ij)*(v(ij,i+1)-v(ij, &
+          i))-ad(ij)*(v(ij,i)-v(ij,i-1)))
+      END IF
+    END DO
+    DO k = 1, i - 1
+      DO ij = 1, ncum
+        IF (i<=inb(ij)) THEN
+          awat = elij(ij, k, i) - (1.-ep(ij,i))*clw(ij, i)
+          awat = max(awat, 0.0)
+          fq(ij, i) = fq(ij, i) + g*dpinv*ment(ij, k, i)*(qent(ij,k,i)-awat-q &
+            (ij,i))
+          fu(ij, i) = fu(ij, i) + g*dpinv*ment(ij, k, i)*(uent(ij,k,i)-u(ij,i &
+            ))
+          fv(ij, i) = fv(ij, i) + g*dpinv*ment(ij, k, i)*(vent(ij,k,i)-v(ij,i &
+            ))
+        END IF
+      END DO
+    END DO
+    DO k = i, nl + 1
+      DO ij = 1, ncum
+        IF ((i<=inb(ij)) .AND. (k<=inb(ij))) THEN
+          fq(ij, i) = fq(ij, i) + g*dpinv*ment(ij, k, i)*(qent(ij,k,i)-q(ij,i &
+            ))
+          fu(ij, i) = fu(ij, i) + g*dpinv*ment(ij, k, i)*(uent(ij,k,i)-u(ij,i &
+            ))
+          fv(ij, i) = fv(ij, i) + g*dpinv*ment(ij, k, i)*(vent(ij,k,i)-v(ij,i &
+            ))
+        END IF
+      END DO
+    END DO
+    DO ij = 1, ncum
+      IF (i<=inb(ij)) THEN
+        fq(ij, i) = fq(ij, i) + sigd*evap(ij, i) + g*(mp(ij,i+1)*(qp(ij, &
+          i+1)-q(ij,i))-mp(ij,i)*(qp(ij,i)-q(ij,i-1)))*dpinv
+        fu(ij, i) = fu(ij, i) + g*(mp(ij,i+1)*(up(ij,i+1)-u(ij, &
+          i))-mp(ij,i)*(up(ij,i)-u(ij,i-1)))*dpinv
+        fv(ij, i) = fv(ij, i) + g*(mp(ij,i+1)*(vp(ij,i+1)-v(ij, &
+          i))-mp(ij,i)*(vp(ij,i)-v(ij,i-1)))*dpinv
+      END IF
+    END DO
+1500 END DO
+
+  ! *** Adjust tendencies at top of convection layer to reflect  ***
+  ! ***       actual position of the level zero cape             ***
+
+  DO ij = 1, ncum
+    fqold = fq(ij, inb(ij))
+    fq(ij, inb(ij)) = fq(ij, inb(ij))*(1.-frac(ij))
+    fq(ij, inb(ij)-1) = fq(ij, inb(ij)-1) + frac(ij)*fqold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij, &
+      inb(ij))))*lv(ij, inb(ij))/lv(ij, inb(ij)-1)
+    ftold = ft(ij, inb(ij))
+    ft(ij, inb(ij)) = ft(ij, inb(ij))*(1.-frac(ij))
+    ft(ij, inb(ij)-1) = ft(ij, inb(ij)-1) + frac(ij)*ftold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij, &
+      inb(ij))))*cpn(ij, inb(ij))/cpn(ij, inb(ij)-1)
+    fuold = fu(ij, inb(ij))
+    fu(ij, inb(ij)) = fu(ij, inb(ij))*(1.-frac(ij))
+    fu(ij, inb(ij)-1) = fu(ij, inb(ij)-1) + frac(ij)*fuold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij,inb(ij))))
+    fvold = fv(ij, inb(ij))
+    fv(ij, inb(ij)) = fv(ij, inb(ij))*(1.-frac(ij))
+    fv(ij, inb(ij)-1) = fv(ij, inb(ij)-1) + frac(ij)*fvold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij,inb(ij))))
+  END DO
+
+  ! ***   Very slightly adjust tendencies to force exact   ***
+  ! ***     enthalpy, momentum and tracer conservation     ***
+
+  DO ij = 1, ncum
+    ents(ij) = 0.0
+    uav(ij) = 0.0
+    vav(ij) = 0.0
+    DO i = 1, inb(ij)
+      ents(ij) = ents(ij) + (cpn(ij,i)*ft(ij,i)+lv(ij,i)*fq(ij,i))*(ph(ij,i)- &
+        ph(ij,i+1))
+      uav(ij) = uav(ij) + fu(ij, i)*(ph(ij,i)-ph(ij,i+1))
+      vav(ij) = vav(ij) + fv(ij, i)*(ph(ij,i)-ph(ij,i+1))
+    END DO
+  END DO
+  DO ij = 1, ncum
+    ents(ij) = ents(ij)/(ph(ij,1)-ph(ij,inb(ij)+1))
+    uav(ij) = uav(ij)/(ph(ij,1)-ph(ij,inb(ij)+1))
+    vav(ij) = vav(ij)/(ph(ij,1)-ph(ij,inb(ij)+1))
+  END DO
+  DO ij = 1, ncum
+    DO i = 1, inb(ij)
+      ft(ij, i) = ft(ij, i) - ents(ij)/cpn(ij, i)
+      fu(ij, i) = (1.-cu)*(fu(ij,i)-uav(ij))
+      fv(ij, i) = (1.-cu)*(fv(ij,i)-vav(ij))
+    END DO
+  END DO
+
+  DO k = 1, nl + 1
+    DO i = 1, ncum
+      IF ((q(i,k)+delt*fq(i,k))<0.0) iflag(i) = 10
+    END DO
+  END DO
+
+
+  DO i = 1, ncum
+    IF (iflag(i)>2) THEN
+      precip(i) = 0.0
+      cbmf(i) = 0.0
+    END IF
+  END DO
+  DO k = 1, nl
+    DO i = 1, ncum
+      IF (iflag(i)>2) THEN
+        ft(i, k) = 0.0
+        fq(i, k) = 0.0
+        fu(i, k) = 0.0
+        fv(i, k) = 0.0
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    precip1(idcum(i)) = precip(i)
+    cbmf1(idcum(i)) = cbmf(i)
+    iflag1(idcum(i)) = iflag(i)
+  END DO
+  DO k = 1, nl
+    DO i = 1, ncum
+      ft1(idcum(i), k) = ft(i, k)
+      fq1(idcum(i), k) = fq(i, k)
+      fu1(idcum(i), k) = fu(i, k)
+      fv1(idcum(i), k) = fv(i, k)
+    END DO
+  END DO
+
+  DO k = 1, nd
+    DO i = 1, len
+      ma(i, k) = 0.
+    END DO
+  END DO
+  DO k = nl, 1, -1
+    DO i = 1, ncum
+      ma(i, k) = ma(i, k+1) + m(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE convect2
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/convect3.F90	(revision 3330)
@@ -0,0 +1,1407 @@
+
+! $Header$
+
+SUBROUTINE convect3(dtime, epmax, ok_adj, t1, r1, rs, u, v, tra, p, ph, nd, &
+    ndp1, nl, ntra, delt, iflag, ft, fr, fu, fv, ftra, precip, icb, inb, &
+    upwd, dnwd, dnwd0, sig, w0, mike, mke, ma, ments, qents, tps, tls, sigij, &
+    cape, tvp, pbase, buoybase, &  ! ccc     *
+                                   ! DTVPDT1,DTVPDQ1,DPLCLDT,DPLCLDR)
+    dtvpdt1, dtvpdq1, dplcldt, dplcldr, & ! sbl
+    ft2, fr2, fu2, fv2, wd, qcond, qcondc) ! sbl
+
+  ! ***  THE PARAMETER NA SHOULD IN GENERAL EQUAL ND   ***
+
+  ! #################################################################
+  ! Fleur       Introduction des traceurs dans convect3 le 6 juin 200
+  ! #################################################################
+  USE dimphy
+  USE infotrac_phy, ONLY: nbtr
+  IMPLICIT NONE
+  INTEGER na
+  PARAMETER (na=60)
+
+  REAL deltac ! cld
+  PARAMETER (deltac=0.01) ! cld
+
+  INTEGER nent(na)
+  INTEGER nd, ndp1, nl, ntra, iflag, icb, inb
+  REAL dtime, epmax, delt, precip, cape
+  REAL dplcldt, dplcldr
+  REAL t1(nd), r1(nd), rs(nd), u(nd), v(nd), tra(nd, ntra)
+  REAL p(nd), ph(ndp1)
+  REAL ft(nd), fr(nd), fu(nd), fv(nd), ftra(nd, ntra)
+  REAL sig(nd), w0(nd)
+  REAL uent(na, na), vent(na, na), traent(na, na, nbtr), tratm(na)
+  REAL up(na), vp(na), trap(na, nbtr)
+  REAL m(na), mp(na), ment(na, na), qent(na, na), elij(na, na)
+  REAL sij(na, na), tvp(na), tv(na), water(na)
+  REAL rp(na), ep(na), th(na), wt(na), evap(na), clw(na)
+  REAL sigp(na), b(na), tp(na), cpn(na)
+  REAL lv(na), lvcp(na), h(na), hp(na), gz(na)
+  REAL t(na), rr(na)
+
+  REAL ft2(nd), fr2(nd), fu2(nd), fv2(nd) ! added sbl
+  REAL u1(nd), v1(nd) ! added sbl
+
+  REAL buoy(na) !  Lifted parcel buoyancy
+  REAL dtvpdt1(nd), dtvpdq1(nd) ! Derivatives of parcel virtual
+  ! temperature wrt T1 and Q1
+  REAL clw_new(na), qi(na)
+
+  REAL wd, betad ! for gust factor (sb)
+  REAL qcondc(nd) ! interface cld param (sb)
+  REAL qcond(nd), nqcond(na), wa(na), maa(na), siga(na), axc(na) ! cld
+
+  LOGICAL ice_conv, ok_adj
+  PARAMETER (ice_conv=.TRUE.)
+
+  ! ccccccccccccccccccccccccccccccccccccccccccccc
+  ! declaration des variables a sortir
+  ! cccccccccccccccccccccccccccccccccccccccccccc
+  REAL mke(nd)
+  REAL mike(nd)
+  REAL ma(nd)
+  REAL tps(nd) !temperature dans les ascendances non diluees
+  REAL tls(nd) !temperature potentielle
+  REAL ments(nd, nd)
+  REAL qents(nd, nd)
+  REAL sigij(klev, klev)
+  REAL pbase ! pressure at the cloud base level
+  REAL buoybase ! buoyancy at the cloud base level
+  ! ccccccccccccccccccccccccccccccccccccccccccccc
+
+
+  REAL :: cpv,cl,cpvmcl,eps,alv0,rdcp,pbcrit,ptcrit,sigd,spfac
+  REAL :: tau,beta,alpha,dtcrit,dtovsh,ahm,rm,um,vm,dphinv
+  REAL :: a2,x,tvx,tvy,plcl,pden,dpbase,tvpbase,tvbase,tdif
+  REAL :: ath1,ath,delti,deltap,dcape,dlnp,sigold,dtmin,fac,w
+  REAL :: amu,rti,cpd,bf2,anum,denom,dei,altem,cwat,stemp,qp
+  REAL :: scrit,alt,smax,asij,wgh,sjmax,sjmin,smid,delp,delm
+  REAL :: asum,bsum,csum,wflux,tinv,wdtrain,awat,afac,afac1,afac2
+  REAL :: bfac,pr1,pr2,sigt,b6,c6,revap,tevap,delth,amfac,amp2
+  REAL :: xf,tf,af,bf,fac2,ur,sru,d,ampmax,dpinv,am,amde,cpinv
+  REAL :: amp1,ad,rat,ax,bx,cx,dx,ex,dsum
+  INTEGER :: nk,i,j,nopt,jn,k,im,jm,n
+
+  REAL dnwd0(nd) !  precipitation driven unsaturated downdraft flux
+  REAL dnwd(nd), dn1 ! in-cloud saturated downdraft mass flux
+  REAL upwd(nd), up1 ! in-cloud saturated updraft mass flux
+
+  ! ***         ASSIGN VALUES OF THERMODYNAMIC CONSTANTS        ***
+  ! ***             THESE SHOULD BE CONSISTENT WITH             ***
+  ! ***              THOSE USED IN CALLING PROGRAM              ***
+  ! ***     NOTE: THESE ARE ALSO SPECIFIED IN SUBROUTINE TLIFT  ***
+
+  ! sb      CPD=1005.7
+  ! sb      CPV=1870.0
+  ! sb      CL=4190.0
+  ! sb      CPVMCL=CL-CPV
+  ! sb      RV=461.5
+  ! sb      RD=287.04
+  ! sb      EPS=RD/RV
+  ! sb      ALV0=2.501E6
+  ! cccccccccccccccccccccc
+  ! constantes coherentes avec le modele du Centre Europeen
+  ! sb      RD = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 28.9644
+  ! sb      RV = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 18.0153
+  ! sb      CPD = 3.5 * RD
+  ! sb      CPV = 4.0 * RV
+  ! sb      CL = 4218.0
+  ! sb      CPVMCL=CL-CPV
+  ! sb      EPS=RD/RV
+  ! sb      ALV0=2.5008E+06
+  ! ccccccccccccccccccccc
+  ! on utilise les constantes thermo du Centre Europeen: (SB)
+
+  include "YOMCST.h"
+
+  cpd = rcpd
+  cpv = rcpv
+  cl = rcw
+  cpvmcl = cl - cpv
+  eps = rd/rv
+  alv0 = rlvtt
+
+  nk = 1 ! origin level of the lifted parcel
+
+  ! ccccccccccccccccccccc
+
+  ! ***  INITIALIZE OUTPUT ARRAYS AND PARAMETERS  ***
+
+  DO i = 1, nd
+    ft(i) = 0.0
+    fr(i) = 0.0
+    fu(i) = 0.0
+    fv(i) = 0.0
+
+    ft2(i) = 0.0
+    fr2(i) = 0.0
+    fu2(i) = 0.0
+    fv2(i) = 0.0
+
+    DO j = 1, ntra
+      ftra(i, j) = 0.0
+    END DO
+
+    qcondc(i) = 0.0 ! cld
+    qcond(i) = 0.0 ! cld
+    nqcond(i) = 0.0 ! cld
+
+    t(i) = t1(i)
+    rr(i) = r1(i)
+    u1(i) = u(i) ! added sbl
+    v1(i) = v(i) ! added sbl
+  END DO
+  DO i = 1, nl
+    rdcp = (rd*(1.-rr(i))+rr(i)*rv)/(cpd*(1.-rr(i))+rr(i)*cpv)
+    th(i) = t(i)*(1000.0/p(i))**rdcp
+  END DO
+
+  ! ************************************************************
+  ! *    CALCUL DES TEMPERATURES POTENTIELLES A SORTIR
+  ! ************************************************************
+  DO i = 1, nd
+    rdcp = (rd*(1.-rr(i))+rr(i)*rv)/(cpd*(1.-rr(i))+rr(i)*cpv)
+
+    tls(i) = t(i)*(1000.0/p(i))**rdcp
+  END DO
+
+
+
+
+  ! ***********************************************************
+
+
+  precip = 0.0
+  wd = 0.0 ! sb
+  iflag = 1
+
+  ! ***                    SPECIFY PARAMETERS                        ***
+  ! ***  PBCRIT IS THE CRITICAL CLOUD DEPTH (MB) BENEATH WHICH THE   ***
+  ! ***       PRECIPITATION EFFICIENCY IS ASSUMED TO BE ZERO         ***
+  ! ***  PTCRIT IS THE CLOUD DEPTH (MB) ABOVE WHICH THE PRECIP.      ***
+  ! ***            EFFICIENCY IS ASSUMED TO BE UNITY                 ***
+  ! ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
+  ! ***  SPFAC IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE      ***
+  ! ***                        OF CLOUD                              ***
+  ! ***    ALPHA AND BETA ARE PARAMETERS THAT CONTROL THE RATE OF    ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM                ***
+  ! ***    (THEIR STANDARD VALUES ARE 1.0 AND 0.96, RESPECTIVELY)    ***
+  ! ***           (BETA MUST BE LESS THAN OR EQUAL TO 1)             ***
+  ! ***    DTCRIT IS THE CRITICAL BUOYANCY (K) USED TO ADJUST THE    ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM                ***
+  ! ***                     IT MUST BE LESS THAN 0                   ***
+
+  pbcrit = 150.0
+  ptcrit = 500.0
+  sigd = 0.01
+  spfac = 0.15
+  ! sb:
+  ! EPMAX=0.993 ! precip efficiency less than unity
+  ! EPMAX=1. ! precip efficiency less than unity
+
+  ! jyg
+  ! CC      BETA=0.96
+  ! Beta is now expressed as a function of the characteristic time
+  ! of the convective process.
+  ! CC        Old value : TAU = 15000.   !(for dtime = 600.s)
+  ! CC        Other value (inducing little change) :TAU = 8000.
+  tau = 8000.
+  beta = 1. - dtime/tau
+  ! jyg
+  ! CC      ALPHA=1.0
+  alpha = 1.5E-3*dtime/tau
+  ! Increase alpha in order to compensate W decrease
+  alpha = alpha*1.5
+
+  ! jyg (voir CONVECT 3)
+  ! CC      DTCRIT=-0.2
+  dtcrit = -2.
+  ! gf&jyg
+  ! CC     DT pour l'overshoot.
+  dtovsh = -0.2
+
+
+  ! ***        INCREMENT THE COUNTER       ***
+
+  sig(nd) = sig(nd) + 1.0
+  sig(nd) = amin1(sig(nd), 12.1)
+
+  ! ***    IF NOPT IS AN INTEGER OTHER THAN 0, CONVECT     ***
+  ! ***     RETURNS ARRAYS T AND R THAT MAY HAVE BEEN      ***
+  ! ***  ALTERED BY DRY ADIABATIC ADJUSTMENT; OTHERWISE    ***
+  ! ***        THE RETURNED ARRAYS ARE UNALTERED.          ***
+
+  nopt = 0
+  ! !      NOPT=1 ! sbl
+
+  ! ***            PERFORM DRY ADIABATIC ADJUSTMENT            ***
+
+  ! ***  DO NOT BYPASS THIS EVEN IF THE CALLING PROGRAM HAS A  ***
+  ! ***                BOUNDARY LAYER SCHEME !!!               ***
+
+  IF (ok_adj) THEN ! added sbl
+
+    DO i = nl - 1, 1, -1
+      jn = 0
+      DO j = i + 1, nl
+        IF (th(j)<th(i)) jn = j
+      END DO
+      IF (jn==0) GO TO 30
+      ahm = 0.0
+      rm = 0.0
+      um = 0.0
+      vm = 0.0
+      DO k = 1, ntra
+        tratm(k) = 0.0
+      END DO
+      DO j = i, jn
+        ahm = ahm + (cpd*(1.-rr(j))+rr(j)*cpv)*t(j)*(ph(j)-ph(j+1))
+        rm = rm + rr(j)*(ph(j)-ph(j+1))
+        um = um + u(j)*(ph(j)-ph(j+1))
+        vm = vm + v(j)*(ph(j)-ph(j+1))
+        DO k = 1, ntra
+          tratm(k) = tratm(k) + tra(j, k)*(ph(j)-ph(j+1))
+        END DO
+      END DO
+      dphinv = 1./(ph(i)-ph(jn+1))
+      rm = rm*dphinv
+      um = um*dphinv
+      vm = vm*dphinv
+      DO k = 1, ntra
+        tratm(k) = tratm(k)*dphinv
+      END DO
+      a2 = 0.0
+      DO j = i, jn
+        rr(j) = rm
+        u(j) = um
+        v(j) = vm
+        DO k = 1, ntra
+          tra(j, k) = tratm(k)
+        END DO
+        rdcp = (rd*(1.-rr(j))+rr(j)*rv)/(cpd*(1.-rr(j))+rr(j)*cpv)
+        x = (0.001*p(j))**rdcp
+        t(j) = x
+        a2 = a2 + (cpd*(1.-rr(j))+rr(j)*cpv)*x*(ph(j)-ph(j+1))
+      END DO
+      DO j = i, jn
+        th(j) = ahm/a2
+        t(j) = t(j)*th(j)
+      END DO
+30  END DO
+
+  END IF ! added sbl
+
+  ! ***   RESET INPUT ARRAYS IF ok_adj 0   ***
+
+  IF (ok_adj) THEN
+    DO i = 1, nd
+
+      ft2(i) = (t(i)-t1(i))/delt ! sbl
+      fr2(i) = (rr(i)-r1(i))/delt ! sbl
+      fu2(i) = (u(i)-u1(i))/delt ! sbl
+      fv2(i) = (v(i)-v1(i))/delt ! sbl
+
+      ! !            T1(I)=T(I)      ! commente sbl
+      ! !            R1(I)=RR(I)     ! commente sbl
+    END DO
+  END IF
+
+  ! *** CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY AND STATIC ENERGY
+
+  gz(1) = 0.0
+  cpn(1) = cpd*(1.-rr(1)) + rr(1)*cpv
+  h(1) = t(1)*cpn(1)
+  DO i = 2, nl
+    tvx = t(i)*(1.+rr(i)/eps-rr(i))
+    tvy = t(i-1)*(1.+rr(i-1)/eps-rr(i-1))
+    gz(i) = gz(i-1) + 0.5*rd*(tvx+tvy)*(p(i-1)-p(i))/ph(i)
+    cpn(i) = cpd*(1.-rr(i)) + cpv*rr(i)
+    h(i) = t(i)*cpn(i) + gz(i)
+  END DO
+
+  ! ***  CALCULATE LIFTED CONDENSATION LEVEL OF AIR AT LOWEST MODEL LEVEL ***
+  ! ***       (WITHIN 0.2% OF FORMULA OF BOLTON, MON. WEA. REV.,1980)     ***
+
+  IF (t(1)<250.0 .OR. rr(1)<=0.0) THEN
+    iflag = 0
+    ! sb3d         print*,'je suis passe par 366'
+    RETURN
+  END IF
+
+  ! jyg1 Utilisation de la subroutine CLIFT
+  ! C      RH=RR(1)/RS(1)
+  ! C      CHI=T(1)/(1669.0-122.0*RH-T(1))
+  ! C      PLCL=P(1)*(RH**CHI)
+  CALL clift(p(1), t(1), rr(1), rs(1), plcl, dplcldt, dplcldr)
+  ! jyg2
+  ! sb3d      PRINT *,' em_plcl,p1,t1,r1,rs1,rh '
+  ! sb3d     $        ,PLCL,P(1),T(1),RR(1),RS(1),RH
+
+  IF (plcl<200.0 .OR. plcl>=2000.0) THEN
+    iflag = 2
+    RETURN
+  END IF
+  ! jyg1
+  ! Essais de modification de ICB
+
+  ! ***  CALCULATE FIRST LEVEL ABOVE LCL (=ICB)  ***
+
+  ! C      ICB=NL-1
+  ! C      DO 50 I=2,NL-1
+  ! C         IF(P(I).LT.PLCL)THEN
+  ! C            ICB=MIN(ICB,I)   ! ICB sup ou egal a 2
+  ! C         END IF
+  ! C   50 CONTINUE
+  ! C      IF(ICB.EQ.(NL-1))THEN
+  ! C         IFLAG=3
+  ! C         RETURN
+  ! C      END IF
+
+  ! *** CALCULATE LAYER CONTAINING LCL (=ICB)   ***
+
+  icb = nl - 1
+  ! sb      DO 50 I=2,NL-1
+  DO i = 3, nl - 1 ! modif sb pour que ICB soit sup/egal a 2
+    ! la modification consiste a comparer PLCL a PH et non a P:
+    ! ICB est defini par :  PH(ICB)<PLCL<PH(ICB-!)
+    IF (ph(i)<plcl) THEN
+      icb = min(icb, i)
+    END IF
+  END DO
+  IF (icb==(nl-1)) THEN
+    iflag = 3
+    RETURN
+  END IF
+  icb = icb - 1 ! ICB sup ou egal a 2
+  ! jyg2
+
+
+
+  ! *** SUBROUTINE TLIFT CALCULATES PART OF THE LIFTED PARCEL VIRTUAL
+  ! ***
+  ! ***  TEMPERATURE, THE ACTUAL TEMPERATURE AND THE ADIABATIC
+  ! ***
+  ! ***                   LIQUID WATER CONTENT
+  ! ***
+
+
+  ! jyg1
+  ! make sure that "Cloud base" seen by TLIFT is actually the
+  ! fisrt level where adiabatic ascent is saturated
+  IF (plcl>p(icb)) THEN
+    ! sb        CALL TLIFT(P,T,RR,RS,GZ,PLCL,ICB,TVP,TP,CLW,ND,NL)
+    CALL tlift(p, t, rr, rs, gz, plcl, icb, nk, tvp, tp, clw, nd, nl, &
+      dtvpdt1, dtvpdq1)
+  ELSE
+    ! sb        CALL TLIFT(P,T,RR,RS,GZ,PLCL,ICB+1,TVP,TP,CLW,ND,NL)
+    CALL tlift(p, t, rr, rs, gz, plcl, icb+1, nk, tvp, tp, clw, nd, nl, &
+      dtvpdt1, dtvpdq1)
+  END IF
+  ! jyg2
+
+  ! *****************************************************************************
+  ! ***     SORTIE DE LA TEMPERATURE DE L ASCENDANCE NON DILUE
+  ! *****************************************************************************
+  DO i = 1, nd
+    tps(i) = tp(i)
+  END DO
+
+
+  ! *****************************************************************************
+
+
+  ! ***  SET THE PRECIPITATION EFFICIENCIES AND THE FRACTION OF   ***
+  ! ***          PRECIPITATION FALLING OUTSIDE OF CLOUD           ***
+  ! ***      THESE MAY BE FUNCTIONS OF TP(I), P(I) AND CLW(I)     ***
+
+  DO i = 1, nl
+    pden = ptcrit - pbcrit
+
+    ! jyg
+    ! cc         EP(I)=(P(ICB)-P(I)-PBCRIT)/PDEN
+    ! sb         EP(I)=(PLCL-P(I)-PBCRIT)/PDEN
+    ep(i) = (plcl-p(i)-pbcrit)/pden*epmax ! sb
+
+    ep(i) = amax1(ep(i), 0.0)
+    ! sb         EP(I)=AMIN1(EP(I),1.0)
+    ep(i) = amin1(ep(i), epmax) ! sb
+    sigp(i) = spfac
+
+    ! ***       CALCULATE VIRTUAL TEMPERATURE AND LIFTED PARCEL     ***
+    ! ***                    VIRTUAL TEMPERATURE                    ***
+
+    tv(i) = t(i)*(1.+rr(i)/eps-rr(i))
+    ! cd1
+    ! . Keep all liquid water in lifted parcel (-> adiabatic CAPE)
+
+    ! cc    TVP(I)=TVP(I)-TP(I)*(RR(1)-EP(I)*CLW(I))
+    ! !!! sb         TVP(I)=TVP(I)-TP(I)*RR(1) ! calcule dans tlift
+    ! cd2
+
+    ! ***       Calculate first estimate of buoyancy
+
+    buoy(i) = tvp(i) - tv(i)
+  END DO
+
+  ! ***   Set Cloud Base Buoyancy at (Plcl+DPbase) level buoyancy
+
+  dpbase = -40. !That is 400m above LCL
+  pbase = plcl + dpbase
+  tvpbase = tvp(icb)*(pbase-p(icb+1))/(p(icb)-p(icb+1)) + &
+    tvp(icb+1)*(p(icb)-pbase)/(p(icb)-p(icb+1))
+  tvbase = tv(icb)*(pbase-p(icb+1))/(p(icb)-p(icb+1)) + &
+    tv(icb+1)*(p(icb)-pbase)/(p(icb)-p(icb+1))
+
+  ! test sb:
+  ! @      write(*,*) '++++++++++++++++++++++++++++++++++++++++'
+  ! @      write(*,*) 'plcl,dpbas,tvpbas,tvbas,tvp(icb),tvp(icb1)
+  ! @     :             ,tv(icb),tv(icb1)'
+  ! @      write(*,*) plcl,dpbase,tvpbase,tvbase,tvp(icb)
+  ! @     L          ,tvp(icb+1),tv(icb),tv(icb+1)
+  ! @      write(*,*) '++++++++++++++++++++++++++++++++++++++++'
+  ! fin test sb
+  buoybase = tvpbase - tvbase
+
+  ! C       Set buoyancy = BUOYBASE for all levels below BASE.
+  ! C       For safety, set : BUOY(ICB) = BUOYBASE
+  DO i = icb, nl
+    IF (p(i)>=pbase) THEN
+      buoy(i) = buoybase
+    END IF
+  END DO
+  buoy(icb) = buoybase
+
+  ! sb3d      print *,'buoybase,tvp_tv,tvpbase,tvbase,pbase,plcl'
+  ! sb3d     $,        buoybase,tvp(icb)-tv(icb),tvpbase,tvbase,pbase,plcl
+  ! sb3d      print *,'TVP ',(tvp(i),i=1,nl)
+  ! sb3d      print *,'TV ',(tv(i),i=1,nl)
+  ! sb3d      print *, 'P ',(p(i),i=1,nl)
+  ! sb3d      print *,'ICB ',icb
+  ! test sb:
+  ! @      write(*,*) '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'
+  ! @      write(*,*) 'icb,icbs,inb,buoybase:'
+  ! @      write(*,*) icb,icb+1,inb,buoybase
+  ! @      write(*,*) 'k,tvp,tv,tp,buoy,ep: '
+  ! @      do k=1,nl
+  ! @      write(*,*) k,tvp(k),tv(k),tp(k),buoy(k),ep(k)
+  ! @      enddo
+  ! @      write(*,*) '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'
+  ! fin test sb
+
+
+
+  ! ***   MAKE SURE THAT COLUMN IS DRY ADIABATIC BETWEEN THE SURFACE  ***
+  ! ***    AND CLOUD BASE, AND THAT LIFTED AIR IS POSITIVELY BUOYANT  ***
+  ! ***                         AT CLOUD BASE                         ***
+  ! ***       IF NOT, RETURN TO CALLING PROGRAM AFTER RESETTING       ***
+  ! ***                        SIG(I) AND W0(I)                       ***
+
+  ! jyg
+  ! CC      TDIF=TVP(ICB)-TV(ICB)
+  tdif = buoy(icb)
+  ath1 = th(1)
+  ! jyg
+  ! CC      ATH=TH(ICB-1)-1.0
+  ath = th(icb-1) - 5.0
+  ! ATH=0.                          ! ajout sb
+  ! IF (ICB.GT.1) ATH=TH(ICB-1)-5.0 ! modif sb
+  IF (tdif<dtcrit .OR. ath>ath1) THEN
+    DO i = 1, nl
+      sig(i) = beta*sig(i) - 2.*alpha*tdif*tdif
+      sig(i) = amax1(sig(i), 0.0)
+      w0(i) = beta*w0(i)
+    END DO
+    iflag = 0
+    RETURN
+  END IF
+
+
+
+  ! ***  IF THIS POINT IS REACHED, MOIST CONVECTIVE ADJUSTMENT IS NECESSARY
+  ! ***
+  ! ***        NOW INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
+  ! ***
+
+  DO i = 1, nl
+    hp(i) = h(i)
+    wt(i) = 0.001
+    rp(i) = rr(i)
+    up(i) = u(i)
+    vp(i) = v(i)
+    DO j = 1, ntra
+      trap(i, j) = tra(i, j)
+    END DO
+    nent(i) = 0
+    water(i) = 0.0
+    evap(i) = 0.0
+    b(i) = 0.0
+    mp(i) = 0.0
+    m(i) = 0.0
+    lv(i) = alv0 - cpvmcl*(t(i)-273.15)
+    lvcp(i) = lv(i)/cpn(i)
+    DO j = 1, nl
+      qent(i, j) = rr(j)
+      elij(i, j) = 0.0
+      ment(i, j) = 0.0
+      sij(i, j) = 0.0
+      uent(i, j) = u(j)
+      vent(i, j) = v(j)
+      DO k = 1, ntra
+        traent(i, j, k) = tra(j, k)
+      END DO
+    END DO
+  END DO
+
+  delti = 1.0/delt
+
+  ! ***  FIND THE FIRST MODEL LEVEL (INB) ABOVE THE PARCEL'S       ***
+  ! ***                LEVEL OF NEUTRAL BUOYANCY                   ***
+
+  inb = nl - 1
+  DO i = icb, nl - 1
+    ! jyg
+    ! CC         IF((TVP(I)-TV(I)).LT.DTCRIT)THEN
+    IF (buoy(i)<dtovsh) THEN
+      inb = min(inb, i)
+    END IF
+  END DO
+
+
+
+
+
+  ! ***          RESET SIG(I) AND W0(I) FOR I>INB AND I<ICB       ***
+
+  IF (inb<(nl-1)) THEN
+    DO i = inb + 1, nl - 1
+      ! jyg
+      ! CC            SIG(I)=BETA*SIG(I)-2.0E-4*ALPHA*(TV(INB)-TVP(INB))*
+      ! CC     1              ABS(TV(INB)-TVP(INB))
+      sig(i) = beta*sig(i) + 2.*alpha*buoy(inb)*abs(buoy(inb))
+      sig(i) = amax1(sig(i), 0.0)
+      w0(i) = beta*w0(i)
+    END DO
+  END IF
+  DO i = 1, icb
+    ! jyg
+    ! CC         SIG(I)=BETA*SIG(I)-2.0E-4*ALPHA*(TV(ICB)-TVP(ICB))*
+    ! CC     1           (TV(ICB)-TVP(ICB))
+    sig(i) = beta*sig(i) - 2.*alpha*buoy(icb)*buoy(icb)
+    sig(i) = amax1(sig(i), 0.0)
+    w0(i) = beta*w0(i)
+  END DO
+
+  ! ***    RESET FRACTIONAL AREAS OF UPDRAFTS AND W0 AT INITIAL TIME    ***
+  ! ***           AND AFTER 10 TIME STEPS OF NO CONVECTION              ***
+
+
+  IF (sig(nd)<1.5 .OR. sig(nd)>12.0) THEN
+    DO i = 1, nl - 1
+      sig(i) = 0.0
+      w0(i) = 0.0
+    END DO
+  END IF
+
+  ! ***   CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL   ***
+
+  DO i = icb, inb
+    hp(i) = h(1) + (lv(i)+(cpd-cpv)*t(i))*ep(i)*clw(i)
+  END DO
+
+  ! ***  CALCULATE CONVECTIVE AVAILABLE POTENTIAL ENERGY (CAPE),  ***
+  ! ***     VERTICAL VELOCITY (W), FRACTIONAL AREA COVERED BY     ***
+  ! ***     UNDILUTE UPDRAFT (SIG),  AND UPDRAFT MASS FLUX (M)    ***
+
+  cape = 0.0
+
+  DO i = icb + 1, inb
+    ! jyg1
+    ! CC         CAPE=CAPE+RD*(TVP(I-1)-TV(I-1))*(PH(I-1)-PH(I))/P(I-1)
+    ! CC         DCAPE=RD*BUOY(I-1)*(PH(I-1)-PH(I))/P(I-1)
+    ! CC         DLNP=(PH(I-1)-PH(I))/P(I-1)
+    ! The interval on which CAPE is computed starts at PBASE :
+    deltap = min(pbase, ph(i-1)) - min(pbase, ph(i))
+    cape = cape + rd*buoy(i-1)*deltap/p(i-1)
+    dcape = rd*buoy(i-1)*deltap/p(i-1)
+    dlnp = deltap/p(i-1)
+    ! jyg2
+    ! sb3d         print *,'buoy,dlnp,dcape,cape',buoy(i-1),dlnp,dcape,cape
+    ! test sb:
+    ! @       write(*,*) '############################################'
+    ! @         write(*,*) 'cape,rrd,buoy,deltap,p,pbase,ph:'
+    ! @     :     ,cape,rd,buoy(i-1),deltap,p(i-1),pbase,ph(i)
+    ! @       write(*,*) '############################################'
+
+    ! fin test sb
+    cape = amax1(0.0, cape)
+
+    sigold = sig(i)
+    dtmin = 100.0
+    DO j = icb, i - 1
+      ! jyg
+      ! CC            DTMIN=AMIN1(DTMIN,(TVP(J)-TV(J)))
+      dtmin = amin1(dtmin, buoy(j))
+    END DO
+    ! sb3d     print *, 'DTMIN, BETA, ALPHA, SIG = ',DTMIN,BETA,ALPHA,SIG(I)
+    sig(i) = beta*sig(i) + alpha*dtmin*abs(dtmin)
+    sig(i) = amax1(sig(i), 0.0)
+    sig(i) = amin1(sig(i), 0.01)
+    fac = amin1(((dtcrit-dtmin)/dtcrit), 1.0)
+    ! jyg
+    ! C    Essais de reduction de la vitesse
+    ! C         FAC = FAC*.5
+
+    w = (1.-beta)*fac*sqrt(cape) + beta*w0(i)
+    amu = 0.5*(sig(i)+sigold)*w
+    m(i) = amu*0.007*p(i)*(ph(i)-ph(i+1))/tv(i)
+
+    ! --------- test sb:
+    ! write(*,*) '############################################'
+    ! write(*,*) 'k,amu,buoy(k-1),deltap,w,beta,fac,cape,w0(k)'
+    ! write(*,*) i,amu,buoy(i-1),deltap
+    ! :           ,w,beta,fac,cape,w0(i)
+    ! write(*,*) '############################################'
+    ! ---------
+
+    w0(i) = w
+  END DO
+  w0(icb) = 0.5*w0(icb+1)
+  m(icb) = 0.5*m(icb+1)*(ph(icb)-ph(icb+1))/(ph(icb+1)-ph(icb+2))
+  sig(icb) = sig(icb+1)
+  sig(icb-1) = sig(icb)
+  ! jyg1
+  ! sb3d      print *, 'Cloud base, c. top, CAPE',ICB,INB,cape
+  ! sb3d      print *, 'SIG ',(sig(i),i=1,inb)
+  ! sb3d      print *, 'W ',(w0(i),i=1,inb)
+  ! sb3d      print *, 'M ',(m(i), i=1,inb)
+  ! sb3d      print *, 'Dt1 ',(tvp(i)-tv(i),i=1,inb)
+  ! sb3d      print *, 'Dt_vrai ',(buoy(i),i=1,inb)
+  ! jyg2
+
+  ! ***  CALCULATE ENTRAINED AIR MASS FLUX (MENT), TOTAL WATER MIXING  ***
+  ! ***     RATIO (QENT), TOTAL CONDENSED WATER (ELIJ), AND MIXING     ***
+  ! ***                        FRACTION (SIJ)                          ***
+
+
+
+  DO i = icb, inb
+    rti = rr(1) - ep(i)*clw(i)
+    DO j = icb - 1, inb
+      bf2 = 1. + lv(j)*lv(j)*rs(j)/(rv*t(j)*t(j)*cpd)
+      anum = h(j) - hp(i) + (cpv-cpd)*t(j)*(rti-rr(j))
+      denom = h(i) - hp(i) + (cpd-cpv)*(rr(i)-rti)*t(j)
+      dei = denom
+      IF (abs(dei)<0.01) dei = 0.01
+      sij(i, j) = anum/dei
+      sij(i, i) = 1.0
+      altem = sij(i, j)*rr(i) + (1.-sij(i,j))*rti - rs(j)
+      altem = altem/bf2
+      cwat = clw(j)*(1.-ep(j))
+      stemp = sij(i, j)
+      IF ((stemp<0.0 .OR. stemp>1.0 .OR. altem>cwat) .AND. j>i) THEN
+        anum = anum - lv(j)*(rti-rs(j)-cwat*bf2)
+        denom = denom + lv(j)*(rr(i)-rti)
+        IF (abs(denom)<0.01) denom = 0.01
+        sij(i, j) = anum/denom
+        altem = sij(i, j)*rr(i) + (1.-sij(i,j))*rti - rs(j)
+        altem = altem - (bf2-1.)*cwat
+      END IF
+
+
+      IF (sij(i,j)>0.0 .AND. sij(i,j)<0.95) THEN
+        qent(i, j) = sij(i, j)*rr(i) + (1.-sij(i,j))*rti
+        uent(i, j) = sij(i, j)*u(i) + (1.-sij(i,j))*u(nk)
+        vent(i, j) = sij(i, j)*v(i) + (1.-sij(i,j))*v(nk)
+        DO k = 1, ntra
+          traent(i, j, k) = sij(i, j)*tra(i, k) + (1.-sij(i,j))*tra(nk, k)
+        END DO
+        elij(i, j) = altem
+        elij(i, j) = amax1(0.0, elij(i,j))
+        ment(i, j) = m(i)/(1.-sij(i,j))
+        nent(i) = nent(i) + 1
+      END IF
+      sij(i, j) = amax1(0.0, sij(i,j))
+      sij(i, j) = amin1(1.0, sij(i,j))
+    END DO
+
+    ! ***   IF NO AIR CAN ENTRAIN AT LEVEL I ASSUME THAT UPDRAFT DETRAINS
+    ! ***
+    ! ***   AT THAT LEVEL AND CALCULATE DETRAINED AIR FLUX AND PROPERTIES
+    ! ***
+
+    IF (nent(i)==0) THEN
+      ment(i, i) = m(i)
+      qent(i, i) = rr(nk) - ep(i)*clw(i)
+      uent(i, i) = u(nk)
+      vent(i, i) = v(nk)
+      DO j = 1, ntra
+        traent(i, i, j) = tra(nk, j)
+      END DO
+      elij(i, i) = clw(i)
+      sij(i, i) = 1.0
+    END IF
+
+    DO j = icb - 1, inb
+      sigij(i, j) = sij(i, j)
+    END DO
+
+  END DO
+
+  ! ***  NORMALIZE ENTRAINED AIR MASS FLUXES TO REPRESENT EQUAL  ***
+  ! ***              PROBABILITIES OF MIXING                     ***
+
+
+  DO i = icb, inb
+    IF (nent(i)/=0) THEN
+      qp = rr(1) - ep(i)*clw(i)
+      anum = h(i) - hp(i) - lv(i)*(qp-rs(i)) + (cpv-cpd)*t(i)*(qp-rr(i))
+      denom = h(i) - hp(i) + lv(i)*(rr(i)-qp) + (cpd-cpv)*t(i)*(rr(i)-qp)
+      IF (abs(denom)<0.01) denom = 0.01
+      scrit = anum/denom
+      alt = qp - rs(i) + scrit*(rr(i)-qp)
+      IF (scrit<=0.0 .OR. alt<=0.0) scrit = 1.0
+      smax = 0.0
+      asij = 0.0
+      DO j = inb, icb - 1, -1
+        IF (sij(i,j)>1.0E-16 .AND. sij(i,j)<0.95) THEN
+          wgh = 1.0
+          IF (j>i) THEN
+            sjmax = amax1(sij(i,j+1), smax)
+            sjmax = amin1(sjmax, scrit)
+            smax = amax1(sij(i,j), smax)
+            sjmin = amax1(sij(i,j-1), smax)
+            sjmin = amin1(sjmin, scrit)
+            IF (sij(i,j)<(smax-1.0E-16)) wgh = 0.0
+            smid = amin1(sij(i,j), scrit)
+          ELSE
+            sjmax = amax1(sij(i,j+1), scrit)
+            smid = amax1(sij(i,j), scrit)
+            sjmin = 0.0
+            IF (j>1) sjmin = sij(i, j-1)
+            sjmin = amax1(sjmin, scrit)
+          END IF
+          delp = abs(sjmax-smid)
+          delm = abs(sjmin-smid)
+          asij = asij + wgh*(delp+delm)
+          ment(i, j) = ment(i, j)*(delp+delm)*wgh
+        END IF
+      END DO
+      asij = amax1(1.0E-16, asij)
+      asij = 1.0/asij
+      DO j = icb - 1, inb
+        ment(i, j) = ment(i, j)*asij
+      END DO
+      asum = 0.0
+      bsum = 0.0
+      DO j = icb - 1, inb
+        asum = asum + ment(i, j)
+        ment(i, j) = ment(i, j)*sig(j)
+        bsum = bsum + ment(i, j)
+      END DO
+      bsum = amax1(bsum, 1.0E-16)
+      bsum = 1.0/bsum
+      DO j = icb - 1, inb
+        ment(i, j) = ment(i, j)*asum*bsum
+      END DO
+      csum = 0.0
+      DO j = icb - 1, inb
+        csum = csum + ment(i, j)
+      END DO
+
+      IF (csum<m(i)) THEN
+        nent(i) = 0
+        ment(i, i) = m(i)
+        qent(i, i) = rr(1) - ep(i)*clw(i)
+        uent(i, i) = u(nk)
+        vent(i, i) = v(nk)
+        DO j = 1, ntra
+          traent(i, i, j) = tra(nk, j)
+        END DO
+        elij(i, i) = clw(i)
+        sij(i, i) = 1.0
+      END IF
+    END IF
+  END DO
+
+
+
+  ! **************************************************************
+  ! *       CALCUL DES MENTS(I,J) ET DES QENTS(I,J)
+  ! *************************************************************
+
+  DO im = 1, nd
+    DO jm = 1, nd
+
+      qents(im, jm) = qent(im, jm)
+      ments(im, jm) = ment(im, jm)
+    END DO
+  END DO
+
+  ! **********************************************************
+  ! --- test sb:
+  ! @       write(*,*) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'
+  ! @       write(*,*) 'inb,m(inb),ment(inb,inb),sigij(inb,inb):'
+  ! @       write(*,*) inb,m(inb),ment(inb,inb),sigij(inb,inb)
+  ! @       write(*,*) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'
+  ! ---
+
+
+
+
+
+  ! ***  CHECK WHETHER EP(INB)=0, IF SO, SKIP PRECIPITATING    ***
+  ! ***             DOWNDRAFT CALCULATION                      ***
+
+  IF (ep(inb)<0.0001) GO TO 405
+
+  ! ***  INTEGRATE LIQUID WATER EQUATION TO FIND CONDENSED WATER   ***
+  ! ***                AND CONDENSED WATER FLUX                    ***
+
+  wflux = 0.0
+  tinv = 1./3.
+
+  ! ***                    BEGIN DOWNDRAFT LOOP                    ***
+
+  DO i = inb, 1, -1
+
+    ! ***              CALCULATE DETRAINED PRECIPITATION             ***
+
+
+
+    wdtrain = 10.0*ep(i)*m(i)*clw(i)
+    IF (i>1) THEN
+      DO j = 1, i - 1
+        awat = elij(j, i) - (1.-ep(i))*clw(i)
+        awat = amax1(awat, 0.0)
+        wdtrain = wdtrain + 10.0*awat*ment(j, i)
+      END DO
+    END IF
+
+    ! ***    FIND RAIN WATER AND EVAPORATION USING PROVISIONAL   ***
+    ! ***              ESTIMATES OF RP(I)AND RP(I-1)             ***
+
+
+
+    wt(i) = 45.0
+    IF (i<inb) THEN
+      rp(i) = rp(i+1) + (cpd*(t(i+1)-t(i))+gz(i+1)-gz(i))/lv(i)
+      rp(i) = 0.5*(rp(i)+rr(i))
+    END IF
+    rp(i) = amax1(rp(i), 0.0)
+    rp(i) = amin1(rp(i), rs(i))
+    rp(inb) = rr(inb)
+    IF (i==1) THEN
+      afac = p(1)*(rs(1)-rp(1))/(1.0E4+2000.0*p(1)*rs(1))
+    ELSE
+      rp(i-1) = rp(i) + (cpd*(t(i)-t(i-1))+gz(i)-gz(i-1))/lv(i)
+      rp(i-1) = 0.5*(rp(i-1)+rr(i-1))
+      rp(i-1) = amin1(rp(i-1), rs(i-1))
+      rp(i-1) = amax1(rp(i-1), 0.0)
+      afac1 = p(i)*(rs(i)-rp(i))/(1.0E4+2000.0*p(i)*rs(i))
+      afac2 = p(i-1)*(rs(i-1)-rp(i-1))/(1.0E4+2000.0*p(i-1)*rs(i-1))
+      afac = 0.5*(afac1+afac2)
+    END IF
+    IF (i==inb) afac = 0.0
+    afac = amax1(afac, 0.0)
+    bfac = 1./(sigd*wt(i))
+
+    ! jyg1
+    ! CC        SIGT=1.0
+    ! CC        IF(I.GE.ICB)SIGT=SIGP(I)
+    ! Prise en compte de la variation progressive de SIGT dans
+    ! les couches ICB et ICB-1:
+    ! Pour PLCL<PH(I+1), PR1=0 & PR2=1
+    ! Pour PLCL>PH(I),   PR1=1 & PR2=0
+    ! Pour PH(I+1)<PLCL<PH(I), PR1 est la proportion a cheval
+    ! sur le nuage, et PR2 est la proportion sous la base du
+    ! nuage.
+    pr1 = (plcl-ph(i+1))/(ph(i)-ph(i+1))
+    pr1 = max(0., min(1.,pr1))
+    pr2 = (ph(i)-plcl)/(ph(i)-ph(i+1))
+    pr2 = max(0., min(1.,pr2))
+    sigt = sigp(i)*pr1 + pr2
+    ! sb3d         print *,'i,sigt,pr1,pr2', i,sigt,pr1,pr2
+    ! jyg2
+
+    b6 = bfac*50.*sigd*(ph(i)-ph(i+1))*sigt*afac
+    c6 = water(i+1) + bfac*wdtrain - 50.*sigd*bfac*(ph(i)-ph(i+1))*evap(i+1)
+    IF (c6>0.0) THEN
+      revap = 0.5*(-b6+sqrt(b6*b6+4.*c6))
+      evap(i) = sigt*afac*revap
+      water(i) = revap*revap
+    ELSE
+      evap(i) = -evap(i+1) + 0.02*(wdtrain+sigd*wt(i)*water(i+1))/(sigd*(ph(i &
+        )-ph(i+1)))
+    END IF
+
+
+
+    ! ***  CALCULATE PRECIPITATING DOWNDRAFT MASS FLUX UNDER     ***
+    ! ***              HYDROSTATIC APPROXIMATION                 ***
+
+    IF (i==1) GO TO 360
+    tevap = amax1(0.0, evap(i))
+    delth = amax1(0.001, (th(i)-th(i-1)))
+    mp(i) = 10.*lvcp(i)*sigd*tevap*(p(i-1)-p(i))/delth
+
+    ! ***           IF HYDROSTATIC ASSUMPTION FAILS,             ***
+    ! ***   SOLVE CUBIC DIFFERENCE EQUATION FOR DOWNDRAFT THETA  ***
+    ! ***  AND MASS FLUX FROM TWO SIMULTANEOUS DIFFERENTIAL EQNS ***
+
+    amfac = sigd*sigd*70.0*ph(i)*(p(i-1)-p(i))*(th(i)-th(i-1))/(tv(i)*th(i))
+    amp2 = abs(mp(i+1)*mp(i+1)-mp(i)*mp(i))
+    IF (amp2>(0.1*amfac)) THEN
+      xf = 100.0*sigd*sigd*sigd*(ph(i)-ph(i+1))
+      tf = b(i) - 5.0*(th(i)-th(i-1))*t(i)/(lvcp(i)*sigd*th(i))
+      af = xf*tf + mp(i+1)*mp(i+1)*tinv
+      bf = 2.*(tinv*mp(i+1))**3 + tinv*mp(i+1)*xf*tf + &
+        50.*(p(i-1)-p(i))*xf*tevap
+      fac2 = 1.0
+      IF (bf<0.0) fac2 = -1.0
+      bf = abs(bf)
+      ur = 0.25*bf*bf - af*af*af*tinv*tinv*tinv
+      IF (ur>=0.0) THEN
+        sru = sqrt(ur)
+        fac = 1.0
+        IF ((0.5*bf-sru)<0.0) fac = -1.0
+        mp(i) = mp(i+1)*tinv + (0.5*bf+sru)**tinv + &
+          fac*(abs(0.5*bf-sru))**tinv
+      ELSE
+        d = atan(2.*sqrt(-ur)/(bf+1.0E-28))
+        IF (fac2<0.0) d = 3.14159 - d
+        mp(i) = mp(i+1)*tinv + 2.*sqrt(af*tinv)*cos(d*tinv)
+      END IF
+      mp(i) = amax1(0.0, mp(i))
+      b(i-1) = b(i) + 100.0*(p(i-1)-p(i))*tevap/(mp(i)+sigd*0.1) - &
+        10.0*(th(i)-th(i-1))*t(i)/(lvcp(i)*sigd*th(i))
+      b(i-1) = amax1(b(i-1), 0.0)
+    END IF
+
+
+
+    ! ***         LIMIT MAGNITUDE OF MP(I) TO MEET CFL CONDITION      ***
+
+    ampmax = 2.0*(ph(i)-ph(i+1))*delti
+    amp2 = 2.0*(ph(i-1)-ph(i))*delti
+    ampmax = amin1(ampmax, amp2)
+    mp(i) = amin1(mp(i), ampmax)
+
+    ! ***      FORCE MP TO DECREASE LINEARLY TO ZERO                 ***
+    ! ***       BETWEEN CLOUD BASE AND THE SURFACE                   ***
+
+    IF (p(i)>p(icb)) THEN
+      mp(i) = mp(icb)*(p(1)-p(i))/(p(1)-p(icb))
+    END IF
+360 CONTINUE
+
+    ! ***       FIND MIXING RATIO OF PRECIPITATING DOWNDRAFT     ***
+
+    IF (i==inb) GO TO 400
+    rp(i) = rr(i)
+    IF (mp(i)>mp(i+1)) THEN
+      rp(i) = rp(i+1)*mp(i+1) + rr(i)*(mp(i)-mp(i+1)) + &
+        5.*sigd*(ph(i)-ph(i+1))*(evap(i+1)+evap(i))
+      rp(i) = rp(i)/mp(i)
+      up(i) = up(i+1)*mp(i+1) + u(i)*(mp(i)-mp(i+1))
+      up(i) = up(i)/mp(i)
+      vp(i) = vp(i+1)*mp(i+1) + v(i)*(mp(i)-mp(i+1))
+      vp(i) = vp(i)/mp(i)
+      DO j = 1, ntra
+        trap(i, j) = trap(i+1, j)*mp(i+1) + trap(i, j)*(mp(i)-mp(i+1))
+        trap(i, j) = trap(i, j)/mp(i)
+      END DO
+    ELSE
+      IF (mp(i+1)>1.0E-16) THEN
+        rp(i) = rp(i+1) + 5.0*sigd*(ph(i)-ph(i+1))*(evap(i+1)+evap(i))/mp(i+1 &
+          )
+        up(i) = up(i+1)
+        vp(i) = vp(i+1)
+        DO j = 1, ntra
+          trap(i, j) = trap(i+1, j)
+        END DO
+      END IF
+    END IF
+    rp(i) = amin1(rp(i), rs(i))
+    rp(i) = amax1(rp(i), 0.0)
+400 END DO
+
+  ! ***  CALCULATE SURFACE PRECIPITATION IN MM/DAY     ***
+
+  precip = wt(1)*sigd*water(1)*8640.0
+
+  ! sb  ***  Calculate downdraft velocity scale and surface temperature and
+  ! ***
+  ! sb  ***                    water vapor fluctuations
+  ! ***
+  ! sb		(inspire de convect 4.3)
+
+  ! BETAD=10.0
+  betad = 5.0
+  wd = betad*abs(mp(icb))*0.01*rd*t(icb)/(sigd*p(icb))
+
+405 CONTINUE
+
+  ! ***  CALCULATE TENDENCIES OF LOWEST LEVEL POTENTIAL TEMPERATURE  ***
+  ! ***                      AND MIXING RATIO                        ***
+
+  dpinv = 1.0/(ph(1)-ph(2))
+  am = 0.0
+  DO k = 2, inb
+    am = am + m(k)
+  END DO
+  IF ((0.1*dpinv*am)>=delti) iflag = 4
+  ft(1) = 0.1*dpinv*am*(t(2)-t(1)+(gz(2)-gz(1))/cpn(1))
+  ft(1) = ft(1) - 0.5*lvcp(1)*sigd*(evap(1)+evap(2))
+  ft(1) = ft(1) - 0.09*sigd*mp(2)*t(1)*b(1)*dpinv
+  ft(1) = ft(1) + 0.01*sigd*wt(1)*(cl-cpd)*water(2)*(t(2)-t(1))*dpinv/cpn(1)
+  fr(1) = 0.1*mp(2)*(rp(2)-rr(1))* & ! correction bug conservation eau
+  ! 1    DPINV+SIGD*0.5*(EVAP(1)+EVAP(2))
+    dpinv + sigd*0.5*(evap(1)+evap(2))
+  ! IM cf. SBL
+  ! 1    DPINV+SIGD*EVAP(1)
+  fr(1) = fr(1) + 0.1*am*(rr(2)-rr(1))*dpinv
+  fu(1) = fu(1) + 0.1*dpinv*(mp(2)*(up(2)-u(1))+am*(u(2)-u(1)))
+  fv(1) = fv(1) + 0.1*dpinv*(mp(2)*(vp(2)-v(1))+am*(v(2)-v(1)))
+  DO j = 1, ntra
+    ftra(1, j) = ftra(1, j) + 0.1*dpinv*(mp(2)*(trap(2,j)-tra(1, &
+      j))+am*(tra(2,j)-tra(1,j)))
+  END DO
+  amde = 0.0
+  DO j = 2, inb
+    fr(1) = fr(1) + 0.1*dpinv*ment(j, 1)*(qent(j,1)-rr(1))
+    fu(1) = fu(1) + 0.1*dpinv*ment(j, 1)*(uent(j,1)-u(1))
+    fv(1) = fv(1) + 0.1*dpinv*ment(j, 1)*(vent(j,1)-v(1))
+    DO k = 1, ntra
+      ftra(1, k) = ftra(1, k) + 0.1*dpinv*ment(j, 1)*(traent(j,1,k)-tra(1,k))
+    END DO
+  END DO
+
+  ! ***  CALCULATE TENDENCIES OF POTENTIAL TEMPERATURE AND MIXING RATIO  ***
+  ! ***               AT LEVELS ABOVE THE LOWEST LEVEL                   ***
+
+  ! ***  FIRST FIND THE NET SATURATED UPDRAFT AND DOWNDRAFT MASS FLUXES  ***
+  ! ***                      THROUGH EACH LEVEL                          ***
+
+
+
+  DO i = 2, inb
+    dpinv = 1.0/(ph(i)-ph(i+1))
+    cpinv = 1.0/cpn(i)
+    amp1 = 0.0
+    DO k = i + 1, inb + 1
+      amp1 = amp1 + m(k)
+    END DO
+    DO k = 1, i
+      DO j = i + 1, inb + 1
+        amp1 = amp1 + ment(k, j)
+      END DO
+    END DO
+    IF ((0.1*dpinv*amp1)>=delti) iflag = 4
+    ad = 0.0
+    DO k = 1, i - 1
+      DO j = i, inb
+        ad = ad + ment(j, k)
+      END DO
+    END DO
+    ft(i) = 0.1*dpinv*(amp1*(t(i+1)-t(i)+(gz(i+1)-gz(i))*cpinv)-ad*(t(i)-t(i- &
+      1)+(gz(i)-gz(i-1))*cpinv)) - 0.5*sigd*lvcp(i)*(evap(i)+evap(i+1))
+    rat = cpn(i-1)*cpinv
+    ft(i) = ft(i) - 0.09*sigd*(mp(i+1)*t(i)*b(i)-mp(i)*t(i-1)*rat*b(i-1))* &
+      dpinv
+    ft(i) = ft(i) + 0.1*dpinv*ment(i, i)*(hp(i)-h(i)+t(i)*(cpv-cpd)*(rr(i)- &
+      qent(i,i)))*cpinv
+    ft(i) = ft(i) + 0.01*sigd*wt(i)*(cl-cpd)*water(i+1)*(t(i+1)-t(i))*dpinv* &
+      cpinv
+    fr(i) = 0.1*dpinv*(amp1*(rr(i+1)-rr(i))-ad*(rr(i)-rr(i-1)))
+    fu(i) = fu(i) + 0.1*dpinv*(amp1*(u(i+1)-u(i))-ad*(u(i)-u(i-1)))
+    fv(i) = fv(i) + 0.1*dpinv*(amp1*(v(i+1)-v(i))-ad*(v(i)-v(i-1)))
+    DO k = 1, ntra
+      ftra(i, k) = ftra(i, k) + 0.1*dpinv*(amp1*(tra(i+1,k)-tra(i, &
+        k))-ad*(tra(i,k)-tra(i-1,k)))
+    END DO
+    DO k = 1, i - 1
+      awat = elij(k, i) - (1.-ep(i))*clw(i)
+      awat = amax1(awat, 0.0)
+      fr(i) = fr(i) + 0.1*dpinv*ment(k, i)*(qent(k,i)-awat-rr(i))
+      fu(i) = fu(i) + 0.1*dpinv*ment(k, i)*(uent(k,i)-u(i))
+      fv(i) = fv(i) + 0.1*dpinv*ment(k, i)*(vent(k,i)-v(i))
+      ! (saturated updrafts resulting from mixing)      ! cld
+      qcond(i) = qcond(i) + (elij(k,i)-awat) ! cld
+      nqcond(i) = nqcond(i) + 1. ! cld
+      DO j = 1, ntra
+        ftra(i, j) = ftra(i, j) + 0.1*dpinv*ment(k, i)*(traent(k,i,j)-tra(i,j &
+          ))
+      END DO
+    END DO
+    DO k = i, inb
+      fr(i) = fr(i) + 0.1*dpinv*ment(k, i)*(qent(k,i)-rr(i))
+      fu(i) = fu(i) + 0.1*dpinv*ment(k, i)*(uent(k,i)-u(i))
+      fv(i) = fv(i) + 0.1*dpinv*ment(k, i)*(vent(k,i)-v(i))
+      DO j = 1, ntra
+        ftra(i, j) = ftra(i, j) + 0.1*dpinv*ment(k, i)*(traent(k,i,j)-tra(i,j &
+          ))
+      END DO
+    END DO
+    fr(i) = fr(i) + 0.5*sigd*(evap(i)+evap(i+1)) + 0.1*(mp(i+1)*(rp(i+ &
+      1)-rr(i))-mp(i)*(rp(i)-rr(i-1)))*dpinv
+    fu(i) = fu(i) + 0.1*(mp(i+1)*(up(i+1)-u(i))-mp(i)*(up(i)-u(i-1)))*dpinv
+    fv(i) = fv(i) + 0.1*(mp(i+1)*(vp(i+1)-v(i))-mp(i)*(vp(i)-v(i-1)))*dpinv
+    DO j = 1, ntra
+      ftra(i, j) = ftra(i, j) + 0.1*dpinv*(mp(i+1)*(trap(i+1,j)-tra(i, &
+        j))-mp(i)*(trap(i,j)-trap(i-1,j)))
+    END DO
+    ! (saturated downdrafts resulting from mixing)    ! cld
+    DO k = i + 1, inb ! cld
+      qcond(i) = qcond(i) + elij(k, i) ! cld
+      nqcond(i) = nqcond(i) + 1. ! cld
+    END DO ! cld
+    ! (particular case: no detraining level is found) ! cld
+    IF (nent(i)==0) THEN ! cld
+      qcond(i) = qcond(i) + (1-ep(i))*clw(i) ! cld
+      nqcond(i) = nqcond(i) + 1. ! cld
+    END IF ! cld
+    IF (nqcond(i)/=0.) THEN ! cld
+      qcond(i) = qcond(i)/nqcond(i) ! cld
+    END IF ! cld
+  END DO
+
+
+
+
+  ! ***   MOVE THE DETRAINMENT AT LEVEL INB DOWN TO LEVEL INB-1   ***
+  ! ***        IN SUCH A WAY AS TO PRESERVE THE VERTICALLY        ***
+  ! ***          INTEGRATED ENTHALPY AND WATER TENDENCIES         ***
+
+  ! test sb:
+  ! @      write(*,*) '--------------------------------------------'
+  ! @      write(*,*) 'inb,ft,hp,h,t,rr,qent,ment,water,waterp,wt,mp,b'
+  ! @      write(*,*) inb,ft(inb),hp(inb),h(inb)
+  ! @     :   ,t(inb),rr(inb),qent(inb,inb)
+  ! @     :   ,ment(inb,inb),water(inb)
+  ! @     :   ,water(inb+1),wt(inb),mp(inb),b(inb)
+  ! @      write(*,*) '--------------------------------------------'
+  ! fin test sb:
+
+  ax = 0.1*ment(inb, inb)*(hp(inb)-h(inb)+t(inb)*(cpv-cpd)*(rr(inb)-qent(inb, &
+    inb)))/(cpn(inb)*(ph(inb)-ph(inb+1)))
+  ft(inb) = ft(inb) - ax
+  ft(inb-1) = ft(inb-1) + ax*cpn(inb)*(ph(inb)-ph(inb+1))/(cpn(inb-1)*(ph(inb &
+    -1)-ph(inb)))
+  bx = 0.1*ment(inb, inb)*(qent(inb,inb)-rr(inb))/(ph(inb)-ph(inb+1))
+  fr(inb) = fr(inb) - bx
+  fr(inb-1) = fr(inb-1) + bx*(ph(inb)-ph(inb+1))/(ph(inb-1)-ph(inb))
+  cx = 0.1*ment(inb, inb)*(uent(inb,inb)-u(inb))/(ph(inb)-ph(inb+1))
+  fu(inb) = fu(inb) - cx
+  fu(inb-1) = fu(inb-1) + cx*(ph(inb)-ph(inb+1))/(ph(inb-1)-ph(inb))
+  dx = 0.1*ment(inb, inb)*(vent(inb,inb)-v(inb))/(ph(inb)-ph(inb+1))
+  fv(inb) = fv(inb) - dx
+  fv(inb-1) = fv(inb-1) + dx*(ph(inb)-ph(inb+1))/(ph(inb-1)-ph(inb))
+  DO j = 1, ntra
+    ex = 0.1*ment(inb, inb)*(traent(inb,inb,j)-tra(inb,j))/ &
+      (ph(inb)-ph(inb+1))
+    ftra(inb, j) = ftra(inb, j) - ex
+    ftra(inb-1, j) = ftra(inb-1, j) + ex*(ph(inb)-ph(inb+1))/(ph(inb-1)-ph( &
+      inb))
+  END DO
+
+  ! ***    HOMOGINIZE TENDENCIES BELOW CLOUD BASE    ***
+
+  asum = 0.0
+  bsum = 0.0
+  csum = 0.0
+  dsum = 0.0
+  DO i = 1, icb - 1
+    asum = asum + ft(i)*(ph(i)-ph(i+1))
+    bsum = bsum + fr(i)*(lv(i)+(cl-cpd)*(t(i)-t(1)))*(ph(i)-ph(i+1))
+    csum = csum + (lv(i)+(cl-cpd)*(t(i)-t(1)))*(ph(i)-ph(i+1))
+    dsum = dsum + t(i)*(ph(i)-ph(i+1))/th(i)
+  END DO
+  DO i = 1, icb - 1
+    ft(i) = asum*t(i)/(th(i)*dsum)
+    fr(i) = bsum/csum
+  END DO
+
+  ! ***           RESET COUNTER AND RETURN           ***
+
+  sig(nd) = 2.0
+
+
+  DO i = 1, nd
+    upwd(i) = 0.0
+    dnwd(i) = 0.0
+    ! sb       dnwd0(i) = - mp(i)
+  END DO
+
+  DO i = 1, nl
+    dnwd0(i) = -mp(i)
+  END DO
+  DO i = nl + 1, nd
+    dnwd0(i) = 0.
+  END DO
+
+  DO i = icb, inb
+    upwd(i) = 0.0
+    dnwd(i) = 0.0
+
+    DO k = i, inb
+      up1 = 0.0
+      dn1 = 0.0
+      DO n = 1, i - 1
+        up1 = up1 + ment(n, k)
+        dn1 = dn1 - ment(k, n)
+      END DO
+      upwd(i) = upwd(i) + m(k) + up1
+      dnwd(i) = dnwd(i) + dn1
+    END DO
+  END DO
+
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ! DETERMINATION DE LA VARIATION DE FLUX ASCENDANT ENTRE
+  ! DEUX NIVEAU NON DILUE Mike
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+  ! sb      do i=1,ND
+  ! sb      Mike(i)=M(i)
+  ! sb      enddo
+
+  DO i = 1, nl
+    mike(i) = m(i)
+  END DO
+  DO i = nl + 1, nd
+    mike(i) = 0.
+  END DO
+
+  DO i = 1, nd
+    ma(i) = 0
+  END DO
+
+  ! sb      do i=1,nd
+  ! sb      do j=i,nd
+  ! sb      Ma(i)=Ma(i)+M(j)
+  ! sb      enddo
+  ! sb      enddo
+
+  DO i = 1, nl
+    DO j = i, nl
+      ma(i) = ma(i) + m(j)
+    END DO
+  END DO
+
+  DO i = nl + 1, nd
+    ma(i) = 0.
+  END DO
+
+  DO i = 1, icb - 1
+    ma(i) = 0
+  END DO
+
+
+
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ! ICB REPRESENTE DE NIVEAU OU SE TROUVE LA
+  ! BASE DU NUAGE , ET INB LE TOP DU NUAGE
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+  DO i = 1, nd
+    mke(i) = upwd(i) + dnwd(i)
+  END DO
+
+
+  ! *** Diagnose the in-cloud mixing ratio   ***              ! cld
+  ! ***           of condensed water         ***              ! cld
+  ! ! cld
+  DO i = 1, nd ! cld
+    maa(i) = 0.0 ! cld
+    wa(i) = 0.0 ! cld
+    siga(i) = 0.0 ! cld
+  END DO ! cld
+  DO i = nk, inb ! cld
+    DO k = i + 1, inb + 1 ! cld
+      maa(i) = maa(i) + m(k) ! cld
+    END DO ! cld
+  END DO ! cld
+  DO i = icb, inb - 1 ! cld
+    axc(i) = 0. ! cld
+    DO j = icb, i ! cld
+      axc(i) = axc(i) + rd*(tvp(j)-tv(j))*(ph(j)-ph(j+1))/p(j) ! cld
+    END DO ! cld
+    IF (axc(i)>0.0) THEN ! cld
+      wa(i) = sqrt(2.*axc(i)) ! cld
+    END IF ! cld
+  END DO ! cld
+  DO i = 1, nl ! cld
+    IF (wa(i)>0.0) &               ! cld
+      siga(i) = maa(i)/wa(i)*rd*tvp(i)/p(i)/100./deltac ! cld
+    siga(i) = min(siga(i), 1.0) ! cld
+    qcondc(i) = siga(i)*clw(i)*(1.-ep(i)) & ! cld
+      +(1.-siga(i))*qcond(i) ! cld
+  END DO ! cld
+
+
+  ! @$$cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ! @$$         call writeg1d(1,klev,ma,'ma  ','ma  ')
+  ! @$$          call writeg1d(1,klev,upwd,'upwd  ','upwd  ')
+  ! @$$          call writeg1d(1,klev,dnwd,'dnwd  ','dnwd  ')
+  ! @$$          call writeg1d(1,klev,dnwd0,'dnwd0  ','dnwd0  ')
+  ! @$$          call writeg1d(1,klev,tvp,'tvp  ','tvp  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,3),'tra3  ','tra3  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,4),'tra4  ','tra4  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,5),'tra5  ','tra5  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,6),'tra6  ','tra6  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,7),'tra7  ','tra7  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,8),'tra8  ','tra8  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,9),'tra9  ','tra9  ')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,10),'tra10','tra10')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,11),'tra11','tra11')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,12),'tra12','tra12')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,13),'tra13','tra13')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,14),'tra14','tra14')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,15),'tra15','tra15')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,16),'tra16','tra16')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,17),'tra17','tra17')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,18),'tra18','tra18')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,19),'tra19','tra19')
+  ! @$$          call writeg1d(1,klev,tra(1:klev,20),'tra20','tra20 ')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,1),'trp1','trp1')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,2),'trp2','trp2')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,3),'trp3','trp3')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,4),'trp4','trp4')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,5),'trp5','trp5')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,10),'trp10','trp10')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,12),'trp12','trp12')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,15),'trp15','trp15')
+  ! @$$          call writeg1d(1,klev,trap(1:klev,20),'trp20','trp20')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,1),'ftr1  ','ftr1  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,2),'ftr2  ','ftr2  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,3),'ftr3  ','ftr3  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,4),'ftr4  ','ftr4  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,5),'ftr5  ','ftr5  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,6),'ftr6  ','ftr6  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,7),'ftr7  ','ftr7  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,8),'ftr8  ','ftr8  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,9),'ftr9  ','ftr9  ')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,10),'ftr10','ftr10')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,11),'ftr11','ftr11')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,12),'ftr12','ftr12')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,13),'ftr13','ftr13')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,14),'ftr14','ftr14')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,15),'ftr15','ftr15')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,16),'ftr16','ftr16')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,17),'ftr17','ftr17')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,18),'ftr18','ftr18')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,19),'ftr19','ftr19')
+  ! @$$          call writeg1d(1,klev,ftra(1:klev,20),'ftr20','ftr20 ')
+  ! @$$          call writeg1d(1,klev,mp,'mp  ','mp ')
+  ! @$$          call writeg1d(1,klev,Mke,'Mke  ','Mke ')
+
+
+
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+  RETURN
+END SUBROUTINE convect3
+! ---------------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/MISR_simulator.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/MISR_simulator.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/MISR_simulator.F	(revision 3330)
@@ -0,0 +1,475 @@
+! 
+! Copyright (c) 2009,  Roger Marchand, version 1.2
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/MISR_simulator/MISR_simulator.f $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list of 
+!       conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list 
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the University of Washington nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
+! BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT 
+! SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
+! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+!
+
+      SUBROUTINE MISR_simulator(
+     &     npoints,
+     &     nlev,
+     &     ncol,
+     &     sunlit,
+     &     zfull,
+     &     at,
+     &     dtau_s,
+     &     dtau_c,
+     &     frac_out,
+     &     missing_value,
+     &     fq_MISR_TAU_v_CTH,
+     &     dist_model_layertops,
+     &     MISR_mean_ztop,
+     &     MISR_cldarea
+     & )
+    
+
+      implicit none
+      integer n_MISR_CTH
+      parameter(n_MISR_CTH=16)
+         
+!     -----
+!     Input 
+!     -----
+
+      INTEGER npoints                   !  if ncol ==1, the number of model points in the horizontal grid  
+                            !   else    the number of GCM grid points
+                            
+      INTEGER nlev                      !  number of model vertical levels
+      
+      INTEGER ncol                      !  number of model sub columns 
+                        !  (must already be generated in via scops and passed to this
+                        !   routine via the variable frac_out )
+  
+      INTEGER sunlit(npoints)           !  1 for day points, 0 for night time
+
+      REAL zfull(npoints,nlev)          !  height (in meters) of full model levels (i.e. midpoints)
+                                        !  zfull(npoints,1)    is    top level of model
+                                        !  zfull(npoints,nlev) is bottom level of model (closest point to surface)  
+
+      REAL at(npoints,nlev)             !  temperature in each model level (K)
+ 
+      REAL dtau_s(npoints,nlev)         !  visible wavelength cloud optical depth ... for "stratiform" condensate
+                                        !  NOTE:  this the cloud optical depth of only the
+                    !     the model cell (i,j)
+                    
+      REAL dtau_c(npoints,nlev)         !  visible wavelength cloud optical depth ... for "convective" condensate
+                                        !  NOTE:  this the cloud optical depth of only the
+                    !     the model cell (i,j)
+                                     
+      REAL frac_out(npoints,ncol,nlev)  !  NOTE: only need if columns>1 ... subgrid scheme in use.
+      
+      REAL missing_value
+                                 
+!     ------
+!     Outputs
+!     ------
+            
+      REAL fq_MISR_TAU_v_CTH(npoints,7,n_MISR_CTH)      
+      REAL dist_model_layertops(npoints,n_MISR_CTH)
+      REAL MISR_cldarea(npoints)               ! fractional area coverged by clouds 
+      REAL MISR_mean_ztop(npoints)             ! mean cloud top hieght(m) MISR would observe
+                                   ! NOTE: == 0 if area ==0
+                            
+
+!     ------
+!     Working variables 
+!     ------
+
+      REAL tau(npoints,ncol)        ! total column optical depth ... 
+
+      INTEGER j,ilev,ilev2,ibox,k
+      INTEGER itau
+         
+      LOGICAL box_cloudy(npoints,ncol)
+      
+      real isccp_taumin
+      real boxarea
+      real tauchk
+      REAL box_MISR_ztop(npoints,ncol)  ! cloud top hieght(m) MISR would observe
+      
+      integer thres_crossed_MISR 
+      integer loop,iMISR_ztop
+      
+      real dtau, cloud_dtau, MISR_penetration_height,ztest     
+      
+      real MISR_CTH_boundaries(n_MISR_CTH+1)
+      
+      DATA MISR_CTH_boundaries / -99, 0, 0.5, 1, 1.5, 2, 2.5, 3,
+     c                    4, 5, 7, 9, 11, 13, 15, 17, 99 /
+      
+      DATA isccp_taumin / 0.3 /
+    
+      tauchk = -1.*log(0.9999999)
+        
+      !
+      ! For each GCM cell or horizontal model grid point ...
+      ! 
+      do j=1,npoints    
+
+         !
+         !  estimate distribution of Model layer tops
+         !  
+         dist_model_layertops(j,:)=0
+
+       do ilev=1,nlev 
+            
+        ! define location of "layer top"
+        if(ilev.eq.1 .or. ilev.eq.nlev) then
+            ztest=zfull(j,ilev)
+        else
+            ztest=0.5*(zfull(j,ilev)+zfull(j,ilev-1)) 
+        endif   
+
+        ! find MISR layer that contains this level
+        ! note, the first MISR level is "no height" level
+        iMISR_ztop=2
+        do loop=2,n_MISR_CTH
+        
+            if ( ztest .gt.
+     &                1000*MISR_CTH_boundaries(loop+1) ) then
+        
+                iMISR_ztop=loop+1
+            endif
+        enddo
+
+        dist_model_layertops(j,iMISR_ztop)=
+     &          dist_model_layertops(j,iMISR_ztop)+1
+       enddo
+    
+    
+         !
+         ! compute total cloud optical depth for each column
+         !       
+       do ibox=1,ncol     
+       
+        ! Initialize tau to zero in each subcolum
+            tau(j,ibox)=0. 
+        box_cloudy(j,ibox)=.false.
+        box_MISR_ztop(j,ibox)=0  
+        
+        ! initialize threshold detection for each sub column 
+        thres_crossed_MISR=0;
+       
+        do ilev=1,nlev
+     
+             dtau=0
+             
+             if (frac_out(j,ibox,ilev).eq.1) then
+                        dtau = dtau_s(j,ilev)
+                 endif
+                 
+                 if (frac_out(j,ibox,ilev).eq.2) then
+                        dtau = dtau_c(j,ilev)
+                 end if 
+                 
+             tau(j,ibox)=tau(j,ibox)+ dtau
+              
+                     
+        ! NOW for MISR ..
+        ! if there a cloud ... start the counter ... store this height
+        if(thres_crossed_MISR .eq. 0 .and. dtau .gt. 0.) then
+        
+            ! first encountered a "cloud"
+            thres_crossed_MISR=1  
+            cloud_dtau=0            
+        endif   
+                
+        if( thres_crossed_MISR .lt. 99 .and.
+     &              thres_crossed_MISR .gt. 0 ) then
+     
+                if( dtau .eq. 0.) then
+        
+                    ! we have come to the end of the current cloud
+                ! layer without yet selecting a CTH boundary.
+                ! ... restart cloud tau counter 
+                cloud_dtau=0
+            else
+                ! add current optical depth to count for 
+                ! the current cloud layer
+                cloud_dtau=cloud_dtau+dtau
+            endif
+                
+            ! if the cloud is continuous but optically thin (< 1)
+            ! from above the current layer cloud top to the current level
+            ! then MISR will like see a top below the top of the current 
+            ! layer
+            if( dtau.gt.0 .and. (cloud_dtau-dtau) .lt. 1) then
+            
+                if(dtau .lt. 1 .or. ilev.eq.1 .or. ilev.eq.nlev) then
+
+                    ! MISR will likely penetrate to some point
+                    ! within this layer ... the middle
+                    MISR_penetration_height=zfull(j,ilev)
+
+                else
+                    ! take the OD = 1.0 level into this layer
+                    MISR_penetration_height=
+     &                     0.5*(zfull(j,ilev)+zfull(j,ilev-1)) - 
+     &                     0.5*(zfull(j,ilev-1)-zfull(j,ilev+1))
+     &                  /dtau 
+                endif   
+
+                box_MISR_ztop(j,ibox)=MISR_penetration_height
+                
+            endif
+        
+            ! check for a distinctive water layer
+            if(dtau .gt. 1 .and. at(j,ilev).gt.273 ) then
+     
+                    ! must be a water cloud ... 
+                ! take this as CTH level
+                thres_crossed_MISR=99
+            endif
+        
+            ! if the total column optical depth is "large" than
+            ! MISR can't seen anything else ... set current point as CTH level
+            if(tau(j,ibox) .gt. 5) then 
+
+                thres_crossed_MISR=99           
+            endif
+
+        endif ! MISR CTH booundary not set
+        
+        enddo  !ilev - loop over vertical levesl
+    
+        ! written by roj 5/2006
+        ! check to see if there was a cloud for which we didn't 
+        ! set a MISR cloud top boundary
+        if( thres_crossed_MISR .eq. 1) then
+    
+        ! if the cloud has a total optical depth of greater
+        ! than ~ 0.5 MISR will still likely pick up this cloud
+        ! with a height near the true cloud top
+        ! otherwise there should be no CTH
+        if( tau(j,ibox) .gt. 0.5) then
+
+            ! keep MISR detected CTH
+            
+        elseif(tau(j,ibox) .gt. 0.2) then
+
+            ! MISR may detect but wont likley have a good height
+            box_MISR_ztop(j,ibox)=-1
+            
+        else
+            ! MISR not likely to even detect.
+            ! so set as not cloudy
+            box_MISR_ztop(j,ibox)=0
+
+        endif
+                        
+        endif
+    
+       enddo  ! loop of subcolumns
+       enddo    ! loop of gridpoints
+       
+
+        !     
+        !   Modify MISR CTH for satellite spatial / pattern matcher effects
+    !
+    !   Code in this region added by roj 5/2006 to account
+    !   for spatial effect of the MISR pattern matcher.
+    !   Basically, if a column is found between two neighbors
+    !   at the same CTH, and that column has no hieght or
+    !   a lower CTH, THEN misr will tend to but place the
+    !   odd column at the same height as it neighbors.
+    !
+    !   This setup assumes the columns represent a about a 1 to 4 km scale
+    !   it will need to be modified significantly, otherwise
+        if(ncol.eq.1) then
+    
+       ! adjust based on neightboring points ... i.e. only 2D grid was input
+           do j=2,npoints-1
+            
+            if(box_MISR_ztop(j-1,1).gt.0 .and. 
+     &             box_MISR_ztop(j+1,1).gt.0       ) then
+
+                if( abs( box_MISR_ztop(j-1,1) -  
+     &                   box_MISR_ztop(j+1,1) ) .lt. 500 
+     &              .and.
+     &                   box_MISR_ztop(j,1) .lt. 
+     &                   box_MISR_ztop(j+1,1)     ) then
+            
+                    box_MISR_ztop(j,1) =
+     &                      box_MISR_ztop(j+1,1)    
+                endif
+
+            endif
+         enddo
+        else
+         
+         ! adjust based on neighboring subcolumns ....
+         do ibox=2,ncol-1
+            
+            if(box_MISR_ztop(1,ibox-1).gt.0 .and. 
+     &             box_MISR_ztop(1,ibox+1).gt.0        ) then
+
+                if( abs( box_MISR_ztop(1,ibox-1) -  
+     &                   box_MISR_ztop(1,ibox+1) ) .lt. 500 
+     &              .and.
+     &                   box_MISR_ztop(1,ibox) .lt. 
+     &                   box_MISR_ztop(1,ibox+1)     ) then
+            
+                    box_MISR_ztop(1,ibox) =
+     &                      box_MISR_ztop(1,ibox+1)    
+                endif
+
+            endif
+         enddo
+      
+        endif
+
+        !     
+    !     DETERMINE CLOUD TYPE FREQUENCIES
+    !
+    !     Now that ztop and tau have been determined, 
+    !     determine amount of each cloud type
+        boxarea=1./real(ncol)  
+        do j=1,npoints 
+
+         ! reset frequencies -- modified loop structure, roj 5/2006 
+         do ilev=1,7  ! "tau loop"  
+            do  ilev2=1,n_MISR_CTH                      
+            fq_MISR_TAU_v_CTH(j,ilev,ilev2)=0.     
+            enddo
+         enddo
+           
+         MISR_cldarea(j)=0.
+         MISR_mean_ztop(j)=0.
+
+         do ibox=1,ncol
+
+            if (tau(j,ibox) .gt. (tauchk)) then
+               box_cloudy(j,ibox)=.true.
+            endif
+  
+            itau = 0
+        
+            if (box_cloudy(j,ibox)) then
+    
+          !determine optical depth category
+              if (tau(j,ibox) .lt. isccp_taumin) then
+                  itau=1
+              else if (tau(j,ibox) .ge. isccp_taumin                                    
+     &          .and. tau(j,ibox) .lt. 1.3) then
+                  itau=2
+              else if (tau(j,ibox) .ge. 1.3 
+     &          .and. tau(j,ibox) .lt. 3.6) then
+                  itau=3
+              else if (tau(j,ibox) .ge. 3.6 
+     &          .and. tau(j,ibox) .lt. 9.4) then
+                  itau=4
+              else if (tau(j,ibox) .ge. 9.4 
+     &          .and. tau(j,ibox) .lt. 23.) then
+                  itau=5
+              else if (tau(j,ibox) .ge. 23. 
+     &          .and. tau(j,ibox) .lt. 60.) then
+                  itau=6
+              else if (tau(j,ibox) .ge. 60.) then
+                  itau=7
+              endif
+              
+             endif  
+
+       ! update MISR histograms and summary metrics - roj 5/2005
+       if (sunlit(j).eq.1) then 
+                     
+              !if cloudy added by roj 5/2005
+          if( box_MISR_ztop(j,ibox).eq.0) then
+          
+            ! no cloud detected
+            iMISR_ztop=0
+
+          elseif( box_MISR_ztop(j,ibox).eq.-1) then
+
+            ! cloud can be detected but too thin to get CTH
+            iMISR_ztop=1    
+
+            fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop)=
+     &            fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop) + boxarea
+
+          else
+            
+            !
+            ! determine index for MISR bin set
+            !
+
+            iMISR_ztop=2
+            
+            do loop=2,n_MISR_CTH
+        
+                if ( box_MISR_ztop(j,ibox) .gt.
+     &                1000*MISR_CTH_boundaries(loop+1) ) then
+        
+                  iMISR_ztop=loop+1
+
+                endif
+            enddo
+          
+            if(box_cloudy(j,ibox)) then
+            
+               ! there is an isccp clouds so itau(j) is defined
+               fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop)=
+     &            fq_MISR_TAU_v_CTH(j,itau,iMISR_ztop) + boxarea
+     
+            else
+                ! MISR CTH resolution is trying to fill in a
+                ! broken cloud scene where there is no condensate.
+                ! The MISR CTH-1D-OD product will only put in a cloud
+                ! if the MISR cloud mask indicates cloud.
+                ! therefore we will not include this column in the histogram
+                ! in reality aerosoal and 3D effects or bright surfaces
+                ! could fool the MISR cloud mask
+
+                ! the alternative is to count as very thin cloud ??
+!               fq_MISR_TAU_v_CTH(1,iMISR_ztop)=
+!     &                     fq_MISR_TAU_v_CTH(1,iMISR_ztop) + boxarea
+            endif
+
+
+            MISR_mean_ztop(j)=MISR_mean_ztop(j)+
+     &                       box_MISR_ztop(j,ibox)*boxarea          
+
+            MISR_cldarea(j)=MISR_cldarea(j) + boxarea 
+ 
+          endif
+       else
+          ! Set to issing data. A. Bodas - 14/05/2010
+          do loop=1,n_MISR_CTH
+             do k=1,7
+                fq_MISR_TAU_v_CTH(j,k,loop) = missing_value
+             enddo
+             dist_model_layertops(j,loop) = missing_value
+          enddo
+          MISR_cldarea(j) = missing_value
+          MISR_mean_ztop(npoints) = missing_value
+
+       endif ! is sunlight ?
+       
+       enddo ! ibox - loop over subcolumns          
+      
+       if( MISR_cldarea(j) .gt. 0.) then
+        MISR_mean_ztop(j)= MISR_mean_ztop(j) / MISR_cldarea(j)   ! roj 5/2006
+       endif
+
+       enddo  ! loop over grid points
+
+      return
+      end 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/array_lib.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/array_lib.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/array_lib.F90	(revision 3330)
@@ -0,0 +1,167 @@
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/array_lib.f90 $
+! ARRAY_LIB: Array procedures for F90
+! Compiled/Modified:
+!   07/01/06  John Haynes (haynes@atmos.colostate.edu)
+!
+! infind (function)
+! lin_interpolate (function)
+  
+  module array_lib
+  implicit none
+
+  contains
+
+! ----------------------------------------------------------------------------
+! function INFIND
+! ----------------------------------------------------------------------------
+  function infind(list,val,sort,dist)
+  use m_mrgrnk
+  implicit none
+!
+! Purpose:
+!   Finds the index of an array that is closest to a value, plus the
+!   difference between the value found and the value specified
+!
+! Inputs:
+!   [list]   an array of sequential values
+!   [val]    a value to locate
+! Optional input:
+!   [sort]   set to 1 if [list] is in unknown/non-sequential order
+!
+! Returns:
+!   index of [list] that is closest to [val]
+!
+! Optional output:
+!   [dist]   set to variable containing [list([result])] - [val]
+!
+! Requires:
+!   mrgrnk library
+!
+! Created:
+!   10/16/03  John Haynes (haynes@atmos.colostate.edu)
+! Modified:
+!   01/31/06  IDL to Fortran 90
+ 
+! ----- INPUTS -----
+  real*8, dimension(:), intent(in) :: list
+  real*8, intent(in) :: val  
+  integer, intent(in), optional :: sort
+  
+! ----- OUTPUTS -----
+  integer*4 :: infind
+  real*8, intent(out), optional :: dist
+
+! ----- INTERNAL -----
+  real*8, dimension(size(list)) :: lists
+  integer*4 :: nlist, result, tmp(1), sort_list
+  integer*4, dimension(size(list)) :: mask, idx
+
+  if (present(sort)) then
+    sort_list = sort
+  else
+    sort_list = 0
+  endif  
+
+  nlist = size(list)
+  if (sort_list == 1) then
+    call mrgrnk(list,idx)
+    lists = list(idx)
+  else
+    lists = list
+  endif
+
+  if (val >= lists(nlist)) then
+    result = nlist
+  else if (val <= lists(1)) then
+    result = 1
+  else
+    mask(:) = 0
+    where (lists < val) mask = 1
+      tmp = minloc(mask,1)
+      if (abs(lists(tmp(1)-1)-val) < abs(lists(tmp(1))-val)) then
+        result = tmp(1) - 1
+      else
+        result = tmp(1)
+      endif
+  endif
+  if (present(dist)) dist = lists(result)-val
+  if (sort_list == 1) then
+    infind = idx(result)
+  else
+    infind = result
+  endif
+
+  end function infind
+
+! ----------------------------------------------------------------------------
+! function LIN_INTERPOLATE
+! ----------------------------------------------------------------------------  
+  subroutine lin_interpolate(yarr,xarr,yyarr,xxarr,tol)
+  use m_mrgrnk
+  implicit none
+!
+! Purpose:
+!   linearly interpolate a set of y2 values given a set of y1,x1,x2
+!
+! Inputs:
+!   [yarr]    an array of y1 values
+!   [xarr]    an array of x1 values
+!   [xxarr]   an array of x2 values
+!   [tol]     maximum distance for a match
+!
+! Output:
+!   [yyarr]   interpolated array of y2 values
+!
+! Requires:
+!   mrgrnk library
+!
+! Created:
+!   06/07/06  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----
+  real*8, dimension(:), intent(in) :: yarr, xarr, xxarr
+  real*8, intent(in) :: tol
+
+! ----- OUTPUTS -----
+  real*8, dimension(size(xxarr)), intent(out) :: yyarr
+
+! ----- INTERNAL -----
+  real*8, dimension(size(xarr)) :: ysort, xsort
+  integer*4, dimension(size(xarr)) :: ist
+  integer*4 :: nx, nxx, i, iloc
+  real*8 :: d, m
+
+  nx = size(xarr)
+  nxx = size(xxarr)
+
+! // xsort, ysort are sorted versions of xarr, yarr  
+  call mrgrnk(xarr,ist)
+  ysort = yarr(ist)
+  xsort = xarr(ist)
+  
+  do i=1,nxx
+    iloc = infind(xsort,xxarr(i),dist=d)
+    if (d > tol) then
+      print *, 'interpolation error'
+      stop
+    endif
+    if (iloc == nx) then
+!     :: set to the last value
+      yyarr(i) = ysort(nx)
+    else
+!     :: is there another closeby value?
+      if (abs(xxarr(i)-xsort(iloc+1)) < 2*tol) then
+!       :: yes, do a linear interpolation      
+        m = (ysort(iloc+1)-ysort(iloc))/(xsort(iloc+1)-xsort(iloc))
+        yyarr(i) = ysort(iloc) + m*(xxarr(i)-xsort(iloc))
+      else
+!       :: no, set to the only nearby value
+        yyarr(i) = ysort(iloc)
+      endif
+    endif
+  enddo
+  
+  end subroutine lin_interpolate
+
+  end module array_lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/atmos_lib.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/atmos_lib.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/atmos_lib.F90	(revision 3330)
@@ -0,0 +1,137 @@
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/atmos_lib.f90 $
+! ATMOS_LIB: Atmospheric science procedures for F90
+! Compiled/Modified:
+!   07/01/06  John Haynes (haynes@atmos.colostate.edu)
+!
+! mcclatchey (subroutine)
+  
+  module atmos_lib
+  implicit none
+  
+  contains
+  
+! ----------------------------------------------------------------------------
+! subroutine MCCLATCHEY
+! ----------------------------------------------------------------------------
+  subroutine mcclatchey(stype,hgt,prs,tk,rh)
+  implicit none
+!
+! Purpose:
+!   returns a standard atmospheric profile
+!
+! Input:
+!   [stype]   type of profile to return
+!             1 = mid-latitude summer
+!             2 = mid-latitude winter
+!             3 = tropical
+!
+! Outputs:
+!   [hgt]     height (m)
+!   [prs]     pressure (hPa)
+!   [tk]      temperature (K)
+!   [rh]      relative humidity (%)
+!
+! Created:
+!   06/01/2006  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----
+  integer, intent(in) :: &
+  stype
+
+  integer, parameter :: ndat = 33
+
+! ----- OUTPUTS -----
+  real*8, intent(out), dimension(ndat) :: &
+  hgt, &                        ! height (m)
+  prs, &                        ! pressure (hPa)
+  tk, &                         ! temperature (K)
+  rh                            ! relative humidity (%)
+  
+  hgt = (/0.00000,1000.00,2000.00,3000.00,4000.00,5000.00, &
+          6000.00,7000.00,8000.00,9000.00,10000.0,11000.0, &
+          12000.0,13000.0,14000.0,15000.0,16000.0,17000.0, &
+          18000.0,19000.0,20000.0,21000.0,22000.0,23000.0, &
+          24000.0,25000.0,30000.0,35000.0,40000.0,45000.0, &
+          50000.0,70000.0,100000./)
+
+  select case(stype)
+
+  case(1)
+!   // mid-latitide summer  
+    prs = (/1013.00, 902.000, 802.000, 710.000, 628.000, 554.000, &
+            487.000, 426.000, 372.000, 324.000, 281.000, 243.000, &
+            209.000, 179.000, 153.000, 130.000, 111.000, 95.0000, &
+            81.2000, 69.5000, 59.5000, 51.0000, 43.7000, 37.6000, &
+            32.2000, 27.7000, 13.2000, 6.52000, 3.33000, 1.76000, &
+            0.951000,0.0671000,0.000300000/)
+        
+    tk =  (/294.000, 290.000, 285.000, 279.000, 273.000, 267.000, &
+            261.000, 255.000, 248.000, 242.000, 235.000, 229.000, &
+            222.000, 216.000, 216.000, 216.000, 216.000, 216.000, &
+            216.000, 217.000, 218.000, 219.000, 220.000, 222.000, &
+            223.000, 224.000, 234.000, 245.000, 258.000, 270.000, &
+            276.000, 218.000, 210.000/)
+
+    rh =  (/74.8384, 63.4602, 55.0485, 45.4953, 39.3805, 31.7965, &
+            30.3958, 29.5966, 30.1626, 29.3624, 30.3334, 19.0768, &
+            11.0450, 6.61278, 3.67379, 2.79209, 2.35123, 2.05732, &
+            1.83690, 1.59930, 1.30655, 1.31890, 1.17620,0.994076, &
+            0.988566,0.989143,0.188288,0.0205613,0.00271164,0.000488798, &
+            0.000107066,0.000406489,7.68645e-06/)
+
+  case(2)
+!   // mid-latitude winter
+    prs = (/1018.00, 897.300, 789.700, 693.800, 608.100, 531.300, &
+            462.700, 401.600, 347.300, 299.200, 256.800, 219.900, &
+            188.200, 161.000, 137.800, 117.800, 100.700, 86.1000, &
+            73.5000, 62.8000, 53.7000, 45.8000, 39.1000, 33.4000, &
+            28.6000, 24.3000, 11.1000, 5.18000, 2.53000, 1.29000, &
+            0.682000,0.0467000,0.000300000/)
+
+    tk =  (/272.200, 268.700, 265.200, 261.700, 255.700, 249.700, &
+            243.700, 237.700, 231.700, 225.700, 219.700, 219.200, &
+            218.700, 218.200, 217.700, 217.200, 216.700, 216.200, &
+            215.700, 215.200, 215.200, 215.200, 215.200, 215.200, &
+            215.200, 215.200, 217.400, 227.800, 243.200, 258.500, &
+            265.700, 230.700, 210.200/)
+
+    rh =  (/76.6175, 70.1686, 65.2478, 56.6267, 49.8755, 47.1765, &
+            44.0477, 31.0565, 23.0244, 19.6510, 17.8987, 17.4376, &
+            16.0621, 5.10608, 3.00679, 2.42293, 2.16406, 2.00901, &
+            1.90374, 1.98072, 1.81902, 2.06155, 2.06154, 2.18280, &
+            2.42531,2.70824,1.12105,0.108119,0.00944200,0.00115201, &
+            0.000221094,0.000101946,7.49350e-06/)
+
+  case(3)
+!   // tropical
+    prs = (/1013.00, 904.000, 805.000, 715.000, 633.000, 559.000, &
+            492.000, 432.000, 378.000, 329.000, 286.000, 247.000, &
+            213.000, 182.000, 156.000, 132.000, 111.000, 93.7000, &
+            78.9000, 66.6000, 56.5000, 48.0000, 40.9000, 35.0000, &
+            30.0000, 25.7000, 12.2000, 6.00000, 3.05000, 1.59000, &
+            0.854000,0.0579000,0.000300000/)
+
+    tk =  (/300.000, 294.000, 288.000, 284.000, 277.000, 270.000, &
+            264.000, 257.000, 250.000, 244.000, 237.000, 230.000, &
+            224.000, 217.000, 210.000, 204.000, 197.000, 195.000, &
+            199.000, 203.000, 207.000, 211.000, 215.000, 217.000, &
+            219.000, 221.000, 232.000, 243.000, 254.000, 265.000, &
+            270.000, 219.000, 210.000/)
+
+    rh =  (/71.4334, 69.4097, 71.4488, 46.7724, 34.7129, 38.3820, &
+            33.7214, 32.0122, 30.2607, 24.5059, 19.5321, 13.2966, &
+            8.85795, 5.87496, 7.68644, 12.8879, 29.4976, 34.9351, &
+            17.1606, 9.53422, 5.10154, 3.45407, 2.11168, 1.76247, &
+            1.55162,1.37966,0.229799,0.0245943,0.00373686,0.000702138, &
+            0.000162076,0.000362055,7.68645e-06/)
+         
+  case default
+    print *, 'Must enter a profile type'
+    stop
+    
+  end select
+  
+  end subroutine mcclatchey
+  
+  end module atmos_lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/calc_Re.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/calc_Re.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/calc_Re.F90	(revision 3330)
@@ -0,0 +1,262 @@
+  subroutine calc_Re(Q,Np,rho_a, &
+             dtype,dmin,dmax,apm,bpm,rho_c,p1,p2,p3, &
+             Re)
+  use math_lib 
+  implicit none
+
+! Purpose:
+!   Calculates Effective Radius (1/2 distribution 3rd moment / 2nd moment). 
+!
+!   For some distribution types, the total number concentration (per kg), Np
+!   may be optionally specified.   Should be set to zero, otherwise.
+!
+!   Roj Marchand July 2010
+
+
+! Inputs:
+!
+!   [Q]        hydrometeor mixing ratio (g/kg)  ! not needed for some distribution types
+!   [Np]       Optional Total number concentration (per kg).  0 = use defaults (p1, p2, p3)
+!
+!   [rho_a]    ambient air density (kg m^-3)   
+!
+!   Distribution parameters as per quickbeam documentation.
+!   [dtype]    distribution type
+!   [dmin]     minimum size cutoff (um)
+!   [dmax]     maximum size cutoff (um)
+!   [apm]      a parameter for mass (kg m^[-bpm])
+!   [bmp]      b params for mass 
+!   [p1],[p2],[p3]  distribution parameters
+!
+!
+! Outputs:
+!   [Re]       Effective radius, 1/2 the 3rd moment/2nd moment (um)
+!
+! Created:
+!   July 2010  Roj Marchand
+!
+
+ 
+! ----- INPUTS -----  
+  
+  real*8, intent(in) :: Q,Np,rho_a
+ 
+  integer, intent(in):: dtype
+  real*8, intent(in) :: dmin,dmax,rho_c,p1,p2,p3
+    
+  real*8, intent(inout) :: apm,bpm  
+    
+! ----- OUTPUTS -----
+
+  real*8, intent(out) :: Re
+  
+! ----- INTERNAL -----
+ 
+  integer :: local_dtype
+  real*8  :: local_p3,local_Np
+
+  real*8 :: pi, &
+  N0,D0,vu,dm,ld, &         ! gamma, exponential variables
+  rg,log_sigma_g
+  
+  real*8 :: tmp1,tmp2
+
+  pi = acos(-1.0)
+
+  ! // if density is constant, set equivalent values for apm and bpm
+  if ((rho_c > 0) .and. (apm < 0)) then
+    apm = (pi/6)*rho_c
+    bpm = 3.
+  endif
+
+  ! Exponential is same as modified gamma with vu =1
+  ! if Np is specified then we will just treat as modified gamma
+  if(dtype.eq.2 .and. Np>0) then
+    local_dtype=1;
+    local_p3=1;
+  else
+    local_dtype=dtype;
+    local_p3=p3;
+  endif
+  
+  select case(local_dtype)
+  
+! ---------------------------------------------------------!
+! // modified gamma                                        !
+! ---------------------------------------------------------!
+! :: Np = total number concentration (1/kg) = Nt / rho_a
+! :: D0 = characteristic diameter (um)
+! :: dm = mean diameter (um) - first moment over zeroth moment
+! :: vu = distribution width parameter 
+
+  case(1)  
+  
+    if( abs(local_p3+2) < 1E-8) then
+  
+    if(Np>1E-30) then
+        ! Morrison scheme with Martin 1994 shape parameter (NOTE: vu = pc +1)
+        ! fixed Roj. Dec. 2010 -- after comment by S. Mcfarlane
+        vu = (1/(0.2714 + 0.00057145*Np*rho_a*1E-6))**2 ! units of Nt = Np*rhoa = #/cm^3
+    else
+        print *, 'Error: Must specify a value for Np in each volume', &
+             ' with Morrison/Martin Scheme.'
+            stop    
+    endif
+    
+    elseif (abs(local_p3+1) > 1E-8) then
+
+      ! vu is fixed in hp structure  
+      vu = local_p3 
+
+    else
+
+      ! vu isn't specified
+      
+      print *, 'Error: Must specify a value for vu for Modified Gamma distribution'
+      stop    
+      
+    endif
+    
+
+    if( Np.eq.0 .and. p2+1 > 1E-8) then     ! use default value for MEAN diameter as first default
+      
+        dm = p2             ! by definition, should have units of microns
+    D0 = gamma(vu)/gamma(vu+1)*dm
+        
+    else   ! use value of Np
+        
+        if(Np.eq.0) then
+        
+            if( abs(p1+1) > 1E-8 ) then  !   use default number concentration 
+            
+                local_Np = p1 ! total number concentration / pa --- units kg^-1
+            else
+            print *, 'Error: Must specify Np or default value ', &
+                 '(p1=Dm [um] or p2=Np [1/kg]) for ', &
+                 'Modified Gamma distribution'
+                stop
+            endif
+        else
+            local_Np=Np;    
+    endif
+    
+    D0 = 1E6 * ( Q*1E-3*gamma(vu)/(apm*local_Np*gamma(vu+bpm)) )**(1/bpm)  ! units = microns
+
+    endif  
+      
+    Re = 0.5*D0*gamma(vu+3)/gamma(vu+2)
+    
+    
+! ---------------------------------------------------------!
+! // exponential                                           !
+! ---------------------------------------------------------!
+! :: N0 = intercept parameter (m^-4)
+! :: ld = slope parameter (um)
+
+  case(2)
+  
+    ! Np not specified (see if statement above) 
+  
+    if((abs(p1+1) > 1E-8) ) then   ! N0 has been specified, determine ld
+    
+        N0 = p1
+    tmp1 = 1./(1.+bpm)
+    ld = ((apm*gamma(1.+bpm)*N0)/(rho_a*Q*1E-3))**tmp1
+    ld = ld/1E6                     ! set units to microns^-1
+        
+    elseif (abs(p2+1) > 1E-8) then  ! lambda=ld has been specified as default
+
+        ld = p2     ! should have units of microns^-1 
+    
+    else
+    
+    print *, 'Error: Must specify Np or default value ', &
+         '(p1=No or p2=lambda) for Exponential distribution'
+        stop
+        
+    endif
+
+    Re = 1.5/ld ;
+  
+! ---------------------------------------------------------!
+! // power law                                             !
+! ---------------------------------------------------------!
+! :: ahp = Ar parameter (m^-4 mm^-bhp)
+! :: bhp = br parameter
+! :: dmin_mm = lower bound (mm)
+! :: dmax_mm = upper bound (mm)
+
+  case(3)
+
+    Re=0;  ! Not supporting LUT approach for power-law ...
+
+    if(Np>0) then
+    
+        print *, 'Variable Np not supported for ', &
+         'Power Law distribution'
+        stop
+    endif
+! ---------------------------------------------------------!
+! // monodisperse                                          !
+! ---------------------------------------------------------!
+! :: D0 = particle diameter (um) == Re
+
+  case(4)
+  
+        Re = p1
+    
+        if(Np>0) then
+        print *, 'Variable Np not supported for ', &
+         'Monodispersed distribution'
+        stop
+    endif
+    
+! ---------------------------------------------------------!
+! // lognormal                                             !
+! ---------------------------------------------------------!
+! :: N0 = total number concentration (m^-3)
+! :: np = fixed number concentration (kg^-1)
+! :: rg = mean radius (um)
+! :: log_sigma_g = ln(geometric standard deviation)
+
+  case(5)
+  
+        if( abs(local_p3+1) > 1E-8 ) then
+
+            !set natural log width
+            log_sigma_g = local_p3 
+        else
+            print *, 'Error: Must specify a value for sigma_g ', &
+             'when using a Log-Normal distribution'
+            stop
+        endif
+     
+    ! get rg ... 
+    if( Np.eq.0 .and. (abs(p2+1) > 1E-8) ) then ! use default value of rg
+    
+            rg = p2
+              
+        else
+            if(Np>0) then
+            
+                local_Np=Np;
+                
+            elseif(abs(p2+1) < 1E-8) then
+            
+                local_Np=p1
+            else
+                print *, 'Error: Must specify Np or default value ', &
+                 '(p2=Rg or p1=Np) for Log-Normal distribution'
+            endif
+           
+            log_sigma_g = p3
+            tmp1 = (Q*1E-3)/(2.**bpm*apm*local_Np)
+            tmp2 = exp(0.5*bpm**2.*(log_sigma_g))**2.      
+            rg = ((tmp1/tmp2)**(1/bpm))*1E6
+        endif
+                
+        Re = rg*exp(+2.5*(log_sigma_g**2)) 
+        
+  end select
+  
+  end subroutine calc_Re
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/congvec.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/congvec.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/congvec.h	(revision 3330)
@@ -0,0 +1,56 @@
+
+! *****************************COPYRIGHT****************************
+! (c) British Crown Copyright 2009, the Met Office.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/icarus-scops-4.1-bsd/congvec.f $
+! 
+! Redistribution and use in source and binary forms, with or without 
+! modification, are permitted provided that the
+! following conditions are met:
+! 
+!     * Redistributions of source code must retain the above 
+!       copyright  notice, this list of conditions and the following 
+!       disclaimer.
+!     * Redistributions in binary form must reproduce the above 
+!       copyright notice, this list of conditions and the following 
+!       disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its 
+!       contributors may be used to endorse or promote products
+!       derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
+! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
+! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 
+! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 
+! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
+! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 
+! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 
+! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
+! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 
+! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  
+! 
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+
+      do irand = 1, npoints
+          ! Marsaglia CONG algorithm
+          seed(irand)=69069*seed(irand)+1234567
+          ! mod 32 bit overflow
+          seed(irand)=mod(seed(irand),2**30)   
+          ran(irand)=seed(irand)*0.931322574615479E-09
+      enddo
+
+      ! convert to range 0-1 (32 bit only)
+      overflow_32=i2_16*i2_16
+      if ( overflow_32 .le. huge32 ) then
+          do irand = 1, npoints
+              ran(irand)=ran(irand)+1
+              ran(irand)=(ran(irand))-int(ran(irand))
+          enddo
+      endif
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp.F90	(revision 3330)
@@ -0,0 +1,605 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+#include "cosp_defs.h"
+MODULE MOD_COSP
+  USE MOD_COSP_TYPES
+  USE MOD_COSP_SIMULATOR
+  USE MOD_COSP_MODIS_SIMULATOR
+  IMPLICIT NONE
+
+CONTAINS
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------------- SUBROUTINE COSP ---------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!#ifdef RTTOV
+!SUBROUTINE COSP(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar)
+!#else
+SUBROUTINE COSP(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar)
+!#endif
+  ! Arguments
+  integer,intent(in) :: overlap !  overlap type in SCOPS: 1=max, 2=rand, 3=max/rand
+  integer,intent(in) :: Ncolumns
+  type(cosp_config),intent(in) :: cfg   ! Configuration options
+  type(cosp_vgrid),intent(in) :: vgrid   ! Information on vertical grid of stats
+  type(cosp_gridbox),intent(inout) :: gbx
+  type(cosp_subgrid),intent(inout) :: sgx   ! Subgrid info
+  type(cosp_sgradar),intent(inout) :: sgradar ! Output from radar simulator
+  type(cosp_sglidar),intent(inout) :: sglidar ! Output from lidar simulator
+  type(cosp_isccp),intent(inout)   :: isccp   ! Output from ISCCP simulator
+  type(cosp_misr),intent(inout)    :: misr    ! Output from MISR simulator
+  type(cosp_modis),intent(inout)   :: modis   ! Output from MODIS simulator
+!#ifdef RTTOV
+!  type(cosp_rttov),intent(inout)   :: rttov   ! Output from RTTOV
+!#endif
+  type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics from radar simulator
+  type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics from lidar simulator
+
+  ! Local variables 
+  integer :: Npoints   ! Number of gridpoints
+  integer :: Nlevels   ! Number of levels
+  integer :: Nhydro    ! Number of hydrometeors
+  integer :: Niter     ! Number of calls to cosp_simulator
+  integer :: i_first,i_last ! First and last gridbox to be processed in each iteration
+  integer :: i,Ni
+  integer,dimension(2) :: ix,iy
+  logical :: reff_zero
+  real :: maxp,minp
+  integer,dimension(:),allocatable :: & ! Dimensions nPoints
+                  seed    !  It is recommended that the seed is set to a different value for each model
+                          !  gridbox it is called on, as it is possible that the choice of the same 
+                          !  seed value every time may introduce some statistical bias in the results, 
+                          !  particularly for low values of NCOL.
+  ! Types used in one iteration
+  type(cosp_gridbox) :: gbx_it
+  type(cosp_subgrid) :: sgx_it
+  type(cosp_vgrid)   :: vgrid_it
+  type(cosp_sgradar) :: sgradar_it
+  type(cosp_sglidar) :: sglidar_it
+  type(cosp_isccp)   :: isccp_it
+  type(cosp_modis)   :: modis_it
+  type(cosp_misr)    :: misr_it
+!#ifdef RTTOV
+!  type(cosp_rttov)   :: rttov_it
+!#endif
+  type(cosp_radarstats) :: stradar_it
+  type(cosp_lidarstats) :: stlidar_it
+
+!++++++++++ Dimensions ++++++++++++
+  Npoints  = gbx%Npoints
+  Nlevels  = gbx%Nlevels
+  Nhydro   = gbx%Nhydro
+
+!++++++++++ Depth of model layers ++++++++++++
+  do i=1,Nlevels-1
+    gbx%dlev(:,i) = gbx%zlev_half(:,i+1) - gbx%zlev_half(:,i)
+  enddo
+  gbx%dlev(:,Nlevels) = 2.0*(gbx%zlev(:,Nlevels) - gbx%zlev_half(:,Nlevels))
+
+!++++++++++ Apply sanity checks to inputs ++++++++++
+!  call cosp_check_input('longitude',gbx%longitude,min_val=0.0,max_val=360.0)
+  call cosp_check_input('longitude',gbx%longitude,min_val=-180.0,max_val=180.0)
+  call cosp_check_input('latitude',gbx%latitude,min_val=-90.0,max_val=90.0)
+  call cosp_check_input('dlev',gbx%dlev,min_val=0.0)
+  call cosp_check_input('p',gbx%p,min_val=0.0)
+  call cosp_check_input('ph',gbx%ph,min_val=0.0)
+  call cosp_check_input('T',gbx%T,min_val=0.0)
+  call cosp_check_input('q',gbx%q,min_val=0.0)
+  call cosp_check_input('sh',gbx%sh,min_val=0.0)
+  call cosp_check_input('dtau_s',gbx%dtau_s,min_val=0.0)
+  call cosp_check_input('dtau_c',gbx%dtau_c,min_val=0.0)
+  call cosp_check_input('dem_s',gbx%dem_s,min_val=0.0,max_val=1.0)
+  call cosp_check_input('dem_c',gbx%dem_c,min_val=0.0,max_val=1.0)
+  ! Point information (Npoints)
+  call cosp_check_input('land',gbx%land,min_val=0.0,max_val=1.0)
+  call cosp_check_input('psfc',gbx%psfc,min_val=0.0)
+  call cosp_check_input('sunlit',gbx%sunlit,min_val=0.0,max_val=1.0)
+  call cosp_check_input('skt',gbx%skt,min_val=0.0)
+  ! TOTAL and CONV cloud fraction for SCOPS
+  call cosp_check_input('tca',gbx%tca,min_val=0.0,max_val=1.0)
+  call cosp_check_input('cca',gbx%cca,min_val=0.0,max_val=1.0)
+  ! Precipitation fluxes on model levels
+  call cosp_check_input('rain_ls',gbx%rain_ls,min_val=0.0)
+  call cosp_check_input('rain_cv',gbx%rain_cv,min_val=0.0)
+  call cosp_check_input('snow_ls',gbx%snow_ls,min_val=0.0)
+  call cosp_check_input('snow_cv',gbx%snow_cv,min_val=0.0)
+  call cosp_check_input('grpl_ls',gbx%grpl_ls,min_val=0.0)
+  ! Hydrometeors concentration and distribution parameters
+  call cosp_check_input('mr_hydro',gbx%mr_hydro,min_val=0.0)
+  ! Effective radius [m]. (Npoints,Nlevels,Nhydro)
+  call cosp_check_input('Reff',gbx%Reff,min_val=0.0)
+  reff_zero=.true.
+  if (any(gbx%Reff > 1.e-8)) then
+     reff_zero=.false.
+      ! reff_zero == .false.
+      !     and gbx%use_reff == .true.   Reff use in radar and lidar
+      !     and reff_zero    == .false.  Reff use in lidar and set to 0 for radar
+  endif
+  if ((.not. gbx%use_reff) .and. (reff_zero)) then ! No Reff in radar. Default in lidar
+        gbx%Reff = DEFAULT_LIDAR_REFF
+        print *, '---------- COSP WARNING ------------'
+        print *, ''
+        print *, 'Using default Reff in lidar simulations'
+        print *, ''
+        print *, '----------------------------------'
+  endif
+  
+  ! Aerosols concentration and distribution parameters
+  call cosp_check_input('conc_aero',gbx%conc_aero,min_val=0.0)
+  ! Checks for CRM mode
+  if (Ncolumns == 1) then
+     if (gbx%use_precipitation_fluxes) then
+        print *, '---------- COSP ERROR ------------'
+        print *, ''
+        print *, 'Use of precipitation fluxes not supported in CRM mode (Ncolumns=1)'
+        print *, ''
+        print *, '----------------------------------'
+        stop
+     endif
+     if ((maxval(gbx%dtau_c) > 0.0).or.(maxval(gbx%dem_c) > 0.0)) then
+        print *, '---------- COSP ERROR ------------'
+        print *, ''
+        print *, ' dtau_c > 0.0 or dem_c > 0.0. In CRM mode (Ncolumns=1), '
+        print *, ' the optical depth (emmisivity) of all clouds must be '
+        print *, ' passed through dtau_s (dem_s)'
+        print *, ''
+        print *, '----------------------------------'
+        stop
+     endif
+  endif
+
+   ! We base the seed in the decimal part of the surface pressure.
+   allocate(seed(Npoints))
+   seed = int(gbx%psfc) ! This is to avoid division by zero when Npoints = 1   
+      ! Roj Oct/2008 ... Note: seed value of 0 caused me some problems + I want to 
+      ! randomize for each call to COSP even when Npoints ==1
+   minp = minval(gbx%psfc)
+   maxp = maxval(gbx%psfc)
+   if (Npoints .gt. 1) seed=int((gbx%psfc-minp)/(maxp-minp)*100000) + 1
+   ! Below it's how it was done in the original implementation of the ISCCP simulator. 
+   ! The one above is better for offline data, when you may have packed data 
+   ! that subsamples the decimal fraction of the surface pressure. 
+!    if (Npoints .gt. 1) seed=(gbx%psfc-int(gbx%psfc))*1000000 
+
+  
+   if (gbx%Npoints_it >= gbx%Npoints) then ! One iteration gbx%Npoints
+!#ifdef RTTOV
+!        call cosp_iter(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar)
+!#else
+        call cosp_iter(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar)
+!#endif
+   else ! Several iterations to save memory
+        Niter = gbx%Npoints/gbx%Npoints_it ! Integer division
+        if (Niter*gbx%Npoints_it < gbx%Npoints) Niter = Niter + 1
+        do i=1,Niter
+            i_first = (i-1)*gbx%Npoints_it + 1
+            i_last  = i_first + gbx%Npoints_it - 1
+            i_last  = min(i_last,gbx%Npoints)
+            Ni = i_last - i_first + 1
+            if (i == 1) then
+                ! Allocate types for all but last iteration
+                call construct_cosp_gridbox(gbx%time,gbx%time_bnds,gbx%radar_freq,gbx%surface_radar,gbx%use_mie_tables, &
+                                            gbx%use_gas_abs,gbx%do_ray,gbx%melt_lay,gbx%k2,Ni,Nlevels, &
+                                            Ncolumns,N_HYDRO,gbx%Nprmts_max_hydro, &
+                                            gbx%Naero,gbx%Nprmts_max_aero,Ni,gbx%lidar_ice_type,gbx%isccp_top_height, &
+                                            gbx%isccp_top_height_direction,gbx%isccp_overlap,gbx%isccp_emsfc_lw, &
+                                            gbx%use_precipitation_fluxes,gbx%use_reff, &
+                                            gbx%plat,gbx%sat,gbx%inst,gbx%nchan,gbx%ZenAng, &
+                                            gbx%Ichan(1:gbx%nchan),gbx%surfem(1:gbx%nchan), &
+                                            gbx%co2,gbx%ch4,gbx%n2o,gbx%co, &
+                                            gbx_it)
+                call construct_cosp_vgrid(gbx_it,vgrid%Nlvgrid,vgrid%use_vgrid,vgrid%csat_vgrid,vgrid_it)
+                call construct_cosp_subgrid(Ni, Ncolumns, Nlevels, sgx_it)
+                call construct_cosp_sgradar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,sgradar_it)
+                call construct_cosp_sglidar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,sglidar_it)
+                call construct_cosp_isccp(cfg,Ni,Ncolumns,Nlevels,isccp_it)
+                call construct_cosp_modis(cfg, Ni, modis_it)
+                call construct_cosp_misr(cfg,Ni,misr_it)
+!#ifdef RTTOV
+!                call construct_cosp_rttov(Ni,gbx%nchan,rttov_it)
+!#endif
+                call construct_cosp_radarstats(cfg,Ni,Ncolumns,vgrid%Nlvgrid,N_HYDRO,stradar_it)
+                call construct_cosp_lidarstats(cfg,Ni,Ncolumns,vgrid%Nlvgrid,N_HYDRO,PARASOL_NREFL,stlidar_it)
+            elseif (i == Niter) then ! last iteration
+                call free_cosp_gridbox(gbx_it,.true.)
+                call free_cosp_subgrid(sgx_it)
+                call free_cosp_vgrid(vgrid_it)
+                call free_cosp_sgradar(sgradar_it)
+                call free_cosp_sglidar(sglidar_it)
+                call free_cosp_isccp(isccp_it)
+                call free_cosp_modis(modis_it)
+                call free_cosp_misr(misr_it)
+!#ifdef RTTOV
+!                call free_cosp_rttov(rttov_it)
+!#endif
+                call free_cosp_radarstats(stradar_it)
+                call free_cosp_lidarstats(stlidar_it)
+                ! Allocate types for iterations
+                call construct_cosp_gridbox(gbx%time,gbx%time_bnds,gbx%radar_freq,gbx%surface_radar,gbx%use_mie_tables, &
+                                            gbx%use_gas_abs,gbx%do_ray,gbx%melt_lay,gbx%k2,Ni,Nlevels, &
+                                            Ncolumns,N_HYDRO,gbx%Nprmts_max_hydro, &
+                                            gbx%Naero,gbx%Nprmts_max_aero,Ni,gbx%lidar_ice_type,gbx%isccp_top_height, &
+                                            gbx%isccp_top_height_direction,gbx%isccp_overlap,gbx%isccp_emsfc_lw, &
+                                            gbx%use_precipitation_fluxes,gbx%use_reff, &
+                                            gbx%plat,gbx%sat,gbx%inst,gbx%nchan,gbx%ZenAng, &
+                                            gbx%Ichan(1:gbx%nchan),gbx%surfem(1:gbx%nchan), &
+                                            gbx%co2,gbx%ch4,gbx%n2o,gbx%co, &
+                                            gbx_it)
+                ! --- Copy arrays without Npoints as dimension ---
+                gbx_it%dist_prmts_hydro = gbx%dist_prmts_hydro
+                gbx_it%dist_type_aero   = gbx_it%dist_type_aero
+                call construct_cosp_vgrid(gbx_it,vgrid%Nlvgrid,vgrid%use_vgrid,vgrid%csat_vgrid,vgrid_it)
+                call construct_cosp_subgrid(Ni, Ncolumns, Nlevels, sgx_it)
+                call construct_cosp_sgradar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,sgradar_it)
+                call construct_cosp_sglidar(cfg,Ni,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,sglidar_it)
+                call construct_cosp_isccp(cfg,Ni,Ncolumns,Nlevels,isccp_it)
+                call construct_cosp_modis(cfg,Ni, modis_it)
+                call construct_cosp_misr(cfg,Ni,misr_it)
+!#ifdef RTTOV 
+!                call construct_cosp_rttov(Ni,gbx%nchan,rttov_it) 
+!#endif 
+                call construct_cosp_radarstats(cfg,Ni,Ncolumns,vgrid%Nlvgrid,N_HYDRO,stradar_it)
+                call construct_cosp_lidarstats(cfg,Ni,Ncolumns,vgrid%Nlvgrid,N_HYDRO,PARASOL_NREFL,stlidar_it)
+            endif
+            ! --- Copy sections of arrays with Npoints as dimension ---
+            ix=(/i_first,i_last/)
+            iy=(/1,Ni/)
+            call cosp_gridbox_cpsection(ix,iy,gbx,gbx_it)
+              ! These serve as initialisation of *_it types
+            call cosp_subgrid_cpsection(ix,iy,sgx,sgx_it)
+            if (cfg%Lradar_sim) call cosp_sgradar_cpsection(ix,iy,sgradar,sgradar_it)
+            if (cfg%Llidar_sim) call cosp_sglidar_cpsection(ix,iy,sglidar,sglidar_it)
+            if (cfg%Lisccp_sim) call cosp_isccp_cpsection(ix,iy,isccp,isccp_it)
+            if (cfg%Lmodis_sim) call cosp_modis_cpsection(ix,iy,modis,modis_it)
+            if (cfg%Lmisr_sim)  call cosp_misr_cpsection(ix,iy,misr,misr_it)
+!#ifdef RTTOV 
+!            if (cfg%Lrttov_sim) call cosp_rttov_cpsection(ix,iy,rttov,rttov_it) 
+!#endif
+            if (cfg%Lradar_sim) call cosp_radarstats_cpsection(ix,iy,stradar,stradar_it)
+            if (cfg%Llidar_sim) call cosp_lidarstats_cpsection(ix,iy,stlidar,stlidar_it)
+!#ifdef RTTOV
+!            call cosp_iter(overlap,seed(ix(1):ix(2)),cfg,vgrid_it,gbx_it,sgx_it,sgradar_it, &
+!                           sglidar_it,isccp_it,misr_it,modis_it,rttov_it,stradar_it,stlidar_it)
+!#else
+            call cosp_iter(overlap,seed(ix(1):ix(2)),cfg,vgrid_it,gbx_it,sgx_it,sgradar_it, &
+                           sglidar_it,isccp_it,misr_it,modis_it,stradar_it,stlidar_it)
+!#endif
+            ! --- Copy results to output structures ---
+            ix=(/1,Ni/)
+            iy=(/i_first,i_last/)
+            call cosp_subgrid_cpsection(ix,iy,sgx_it,sgx)
+            if (cfg%Lradar_sim) call cosp_sgradar_cpsection(ix,iy,sgradar_it,sgradar)
+            if (cfg%Llidar_sim) call cosp_sglidar_cpsection(ix,iy,sglidar_it,sglidar)
+            if (cfg%Lisccp_sim) call cosp_isccp_cpsection(ix,iy,isccp_it,isccp)
+            if (cfg%Lmodis_sim) call cosp_modis_cpsection(ix,iy,modis_it,modis)
+            if (cfg%Lmisr_sim)  call cosp_misr_cpsection(ix,iy,misr_it,misr)
+!#ifdef RTTOV 
+!            if (cfg%Lrttov_sim) call cosp_rttov_cpsection(ix,iy,rttov_it,rttov) 
+!#endif 
+            if (cfg%Lradar_sim) call cosp_radarstats_cpsection(ix,iy,stradar_it,stradar)
+            if (cfg%Llidar_sim) call cosp_lidarstats_cpsection(ix,iy,stlidar_it,stlidar)
+        enddo
+        ! Deallocate types
+        call free_cosp_gridbox(gbx_it,.true.)
+        call free_cosp_subgrid(sgx_it)
+        call free_cosp_vgrid(vgrid_it)
+        call free_cosp_sgradar(sgradar_it)
+        call free_cosp_sglidar(sglidar_it)
+        call free_cosp_isccp(isccp_it)
+        call free_cosp_modis(modis_it)
+        call free_cosp_misr(misr_it)
+!#ifdef RTTOV 
+!        call free_cosp_rttov(rttov_it) 
+!#endif
+        call free_cosp_radarstats(stradar_it)
+        call free_cosp_lidarstats(stlidar_it)
+   endif
+   deallocate(seed)
+
+    
+END SUBROUTINE COSP
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------------- SUBROUTINE COSP_ITER ----------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!#ifdef RTTOV
+!SUBROUTINE COSP_ITER(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar)
+!#else
+SUBROUTINE COSP_ITER(overlap,seed,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar)
+!#endif
+  ! Arguments
+  integer,intent(in) :: overlap !  overlap type in SCOPS: 1=max, 2=rand, 3=max/rand
+  integer,dimension(:),intent(in) :: seed
+  type(cosp_config),intent(in) :: cfg   ! Configuration options
+  type(cosp_vgrid),intent(in) :: vgrid   ! Information on vertical grid of stats
+  type(cosp_gridbox),intent(inout) :: gbx
+  type(cosp_subgrid),intent(inout) :: sgx   ! Subgrid info
+  type(cosp_sgradar),intent(inout) :: sgradar ! Output from radar simulator
+  type(cosp_sglidar),intent(inout) :: sglidar ! Output from lidar simulator
+  type(cosp_isccp),intent(inout)   :: isccp   ! Output from ISCCP simulator
+  type(cosp_misr),intent(inout)    :: misr    ! Output from MISR simulator
+  type(cosp_modis),intent(inout)   :: modis   ! Output from MODIS simulator
+!#ifdef RTTOV
+!  type(cosp_rttov),intent(inout)   :: rttov   ! Output from RTTOV
+!#endif
+  type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics from radar simulator
+  type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics from lidar simulator
+
+  ! Local variables 
+  integer :: Npoints   ! Number of gridpoints
+  integer :: Ncolumns  ! Number of subcolumns
+  integer :: Nlevels   ! Number of levels
+  integer :: Nhydro    ! Number of hydrometeors
+  integer :: i,j,k
+  integer :: I_HYDRO 
+  real,dimension(:,:),pointer :: column_frac_out ! Array with one column of frac_out
+  real,dimension(:,:),pointer :: column_prec_out ! Array with one column of prec_frac
+  integer :: scops_debug=0    !  set to non-zero value to print out inputs for debugging in SCOPS
+  real,dimension(:, :),allocatable :: cca_scops,ls_p_rate,cv_p_rate, &
+                     tca_scops ! Cloud cover in each model level (HORIZONTAL gridbox fraction) of total cloud.
+                               ! Levels are from TOA to SURFACE. (nPoints, nLev)
+  real,dimension(:,:),allocatable :: frac_ls,prec_ls,frac_cv,prec_cv ! Cloud/Precipitation fraction in each model level
+                                                                     ! Levels are from SURFACE to TOA
+  real,dimension(:,:),allocatable :: rho ! (Npoints, Nlevels). Atmospheric density
+  type(cosp_sghydro) :: sghydro   ! Subgrid info for hydrometeors en each iteration
+
+  
+  !++++++++++ Dimensions ++++++++++++
+  Npoints  = gbx%Npoints
+  Ncolumns = gbx%Ncolumns
+  Nlevels  = gbx%Nlevels
+  Nhydro   = gbx%Nhydro
+    
+  !++++++++++ Climate/NWP mode ++++++++++  
+  if (Ncolumns > 1) then
+        !++++++++++ Subgrid sampling ++++++++++
+        ! Allocate arrays before calling SCOPS
+        allocate(frac_ls(Npoints,Nlevels),frac_cv(Npoints,Nlevels),prec_ls(Npoints,Nlevels),prec_cv(Npoints,Nlevels))
+        allocate(tca_scops(Npoints,Nlevels),cca_scops(Npoints,Nlevels), &
+                ls_p_rate(Npoints,Nlevels),cv_p_rate(Npoints,Nlevels))
+        ! Initialize to zero
+        frac_ls=0.0
+        prec_ls=0.0
+        frac_cv=0.0
+        prec_cv=0.0
+        ! Cloud fractions for SCOPS from TOA to SFC
+        tca_scops = gbx%tca(:,Nlevels:1:-1)
+        cca_scops = gbx%cca(:,Nlevels:1:-1)
+        
+        ! Call to SCOPS
+        ! strat and conv arrays are passed with levels from TOA to SURFACE.
+        call scops(Npoints,Nlevels,Ncolumns,seed,tca_scops,cca_scops,overlap,sgx%frac_out,scops_debug)
+        
+        ! temporarily use prec_ls/cv to transfer information about precipitation flux into prec_scops
+        if(gbx%use_precipitation_fluxes) then
+            ls_p_rate(:,Nlevels:1:-1)=gbx%rain_ls(:,1:Nlevels)+gbx%snow_ls(:,1:Nlevels)+gbx%grpl_ls(:,1:Nlevels)
+            cv_p_rate(:,Nlevels:1:-1)=gbx%rain_cv(:,1:Nlevels)+gbx%snow_cv(:,1:Nlevels)
+        else
+            ls_p_rate(:,Nlevels:1:-1)=gbx%mr_hydro(:,1:Nlevels,I_LSRAIN)+ &
+                                      gbx%mr_hydro(:,1:Nlevels,I_LSSNOW)+ &
+                                      gbx%mr_hydro(:,1:Nlevels,I_LSGRPL)
+            cv_p_rate(:,Nlevels:1:-1)=gbx%mr_hydro(:,1:Nlevels,I_CVRAIN)+ &
+                                      gbx%mr_hydro(:,1:Nlevels,I_CVSNOW)
+        endif
+        
+        call prec_scops(Npoints,Nlevels,Ncolumns,ls_p_rate,cv_p_rate,sgx%frac_out,sgx%prec_frac)
+        
+        ! Precipitation fraction
+        do j=1,Npoints,1
+        do k=1,Nlevels,1
+            do i=1,Ncolumns,1
+                if (sgx%frac_out (j,i,Nlevels+1-k) == I_LSC) frac_ls(j,k)=frac_ls(j,k)+1.
+                if (sgx%frac_out (j,i,Nlevels+1-k) == I_CVC) frac_cv(j,k)=frac_cv(j,k)+1.
+                if (sgx%prec_frac(j,i,Nlevels+1-k) .eq. 1) prec_ls(j,k)=prec_ls(j,k)+1.
+                if (sgx%prec_frac(j,i,Nlevels+1-k) .eq. 2) prec_cv(j,k)=prec_cv(j,k)+1.
+                if (sgx%prec_frac(j,i,Nlevels+1-k) .eq. 3) then
+                    prec_cv(j,k)=prec_cv(j,k)+1.
+                    prec_ls(j,k)=prec_ls(j,k)+1.
+                endif
+            enddo  !i
+            frac_ls(j,k)=frac_ls(j,k)/Ncolumns
+            frac_cv(j,k)=frac_cv(j,k)/Ncolumns
+            prec_ls(j,k)=prec_ls(j,k)/Ncolumns
+            prec_cv(j,k)=prec_cv(j,k)/Ncolumns
+        enddo  !k
+        enddo  !j
+        
+         ! Levels from SURFACE to TOA.
+        if (Npoints*Ncolumns*Nlevels < 10000) then
+            sgx%frac_out(1:Npoints,:,1:Nlevels)  = sgx%frac_out(1:Npoints,:,Nlevels:1:-1)
+            sgx%prec_frac(1:Npoints,:,1:Nlevels) = sgx%prec_frac(1:Npoints,:,Nlevels:1:-1)
+        else
+            ! This is done within a loop (unvectorized) over nPoints to save memory
+            do j=1,Npoints
+                sgx%frac_out(j,:,1:Nlevels)  = sgx%frac_out(j,:,Nlevels:1:-1)
+                sgx%prec_frac(j,:,1:Nlevels) = sgx%prec_frac(j,:,Nlevels:1:-1)
+            enddo
+        endif
+       
+       ! Deallocate arrays that will no longer be used
+        deallocate(tca_scops,cca_scops,ls_p_rate,cv_p_rate)
+
+        ! Populate the subgrid arrays
+        call construct_cosp_sghydro(Npoints,Ncolumns,Nlevels,Nhydro,sghydro)
+        do k=1,Ncolumns
+            !--------- Mixing ratios for clouds and Reff for Clouds and precip -------
+            column_frac_out => sgx%frac_out(:,k,:)
+            where (column_frac_out == I_LSC)     !+++++++++++ LS clouds ++++++++
+                sghydro%mr_hydro(:,k,:,I_LSCLIQ) = gbx%mr_hydro(:,:,I_LSCLIQ)
+                sghydro%mr_hydro(:,k,:,I_LSCICE) = gbx%mr_hydro(:,:,I_LSCICE)
+
+                sghydro%Reff(:,k,:,I_LSCLIQ)     = gbx%Reff(:,:,I_LSCLIQ)
+                sghydro%Reff(:,k,:,I_LSCICE)     = gbx%Reff(:,:,I_LSCICE)
+
+                sghydro%Np(:,k,:,I_LSCLIQ)     = gbx%Np(:,:,I_LSCLIQ)
+                sghydro%Np(:,k,:,I_LSCICE)     = gbx%Np(:,:,I_LSCICE)
+
+            elsewhere (column_frac_out == I_CVC) !+++++++++++ CONV clouds ++++++++
+                sghydro%mr_hydro(:,k,:,I_CVCLIQ) = gbx%mr_hydro(:,:,I_CVCLIQ)
+                sghydro%mr_hydro(:,k,:,I_CVCICE) = gbx%mr_hydro(:,:,I_CVCICE)
+
+                sghydro%Reff(:,k,:,I_CVCLIQ)     = gbx%Reff(:,:,I_CVCLIQ)
+                sghydro%Reff(:,k,:,I_CVCICE)     = gbx%Reff(:,:,I_CVCICE)
+
+                sghydro%Np(:,k,:,I_CVCLIQ)     = gbx%Np(:,:,I_CVCLIQ)
+                sghydro%Np(:,k,:,I_CVCICE)     = gbx%Np(:,:,I_CVCICE)
+
+            end where
+            column_prec_out => sgx%prec_frac(:,k,:)
+            where ((column_prec_out == 1) .or. (column_prec_out == 3) )  !++++ LS precip ++++
+                sghydro%Reff(:,k,:,I_LSRAIN) = gbx%Reff(:,:,I_LSRAIN)
+                sghydro%Reff(:,k,:,I_LSSNOW) = gbx%Reff(:,:,I_LSSNOW)
+                sghydro%Reff(:,k,:,I_LSGRPL) = gbx%Reff(:,:,I_LSGRPL)
+
+                sghydro%Np(:,k,:,I_LSRAIN)     = gbx%Np(:,:,I_LSRAIN)
+                sghydro%Np(:,k,:,I_LSSNOW)     = gbx%Np(:,:,I_LSSNOW)
+                sghydro%Np(:,k,:,I_LSGRPL)     = gbx%Np(:,:,I_LSGRPL)
+            elsewhere ((column_prec_out == 2) .or. (column_prec_out == 3)) !++++ CONV precip ++++
+                sghydro%Reff(:,k,:,I_CVRAIN) = gbx%Reff(:,:,I_CVRAIN)
+                sghydro%Reff(:,k,:,I_CVSNOW) = gbx%Reff(:,:,I_CVSNOW)
+
+                sghydro%Np(:,k,:,I_CVRAIN)     = gbx%Np(:,:,I_CVRAIN)
+                sghydro%Np(:,k,:,I_CVSNOW)     = gbx%Np(:,:,I_CVSNOW)
+            end where
+            !--------- Precip -------
+            if (.not. gbx%use_precipitation_fluxes) then
+                where (column_frac_out == I_LSC)  !+++++++++++ LS Precipitation ++++++++
+                    sghydro%mr_hydro(:,k,:,I_LSRAIN) = gbx%mr_hydro(:,:,I_LSRAIN)
+                    sghydro%mr_hydro(:,k,:,I_LSSNOW) = gbx%mr_hydro(:,:,I_LSSNOW)
+                    sghydro%mr_hydro(:,k,:,I_LSGRPL) = gbx%mr_hydro(:,:,I_LSGRPL)
+                elsewhere (column_frac_out == I_CVC) !+++++++++++ CONV Precipitation ++++++++
+                    sghydro%mr_hydro(:,k,:,I_CVRAIN) = gbx%mr_hydro(:,:,I_CVRAIN)
+                    sghydro%mr_hydro(:,k,:,I_CVSNOW) = gbx%mr_hydro(:,:,I_CVSNOW)
+                end where 
+            endif
+        enddo
+        ! convert the mixing ratio and precipitation flux from gridbox mean to the fraction-based values
+        do k=1,Nlevels
+            do j=1,Npoints
+                !--------- Clouds -------
+                if (frac_ls(j,k) .ne. 0.) then
+                    sghydro%mr_hydro(j,:,k,I_LSCLIQ) = sghydro%mr_hydro(j,:,k,I_LSCLIQ)/frac_ls(j,k)
+                    sghydro%mr_hydro(j,:,k,I_LSCICE) = sghydro%mr_hydro(j,:,k,I_LSCICE)/frac_ls(j,k)
+                endif
+                if (frac_cv(j,k) .ne. 0.) then
+                    sghydro%mr_hydro(j,:,k,I_CVCLIQ) = sghydro%mr_hydro(j,:,k,I_CVCLIQ)/frac_cv(j,k)
+                    sghydro%mr_hydro(j,:,k,I_CVCICE) = sghydro%mr_hydro(j,:,k,I_CVCICE)/frac_cv(j,k)
+                endif
+                !--------- Precip -------
+                if (gbx%use_precipitation_fluxes) then
+                    if (prec_ls(j,k) .ne. 0.) then
+                        gbx%rain_ls(j,k) = gbx%rain_ls(j,k)/prec_ls(j,k)
+                        gbx%snow_ls(j,k) = gbx%snow_ls(j,k)/prec_ls(j,k)
+                        gbx%grpl_ls(j,k) = gbx%grpl_ls(j,k)/prec_ls(j,k)
+                    endif
+                    if (prec_cv(j,k) .ne. 0.) then
+                        gbx%rain_cv(j,k) = gbx%rain_cv(j,k)/prec_cv(j,k)
+                        gbx%snow_cv(j,k) = gbx%snow_cv(j,k)/prec_cv(j,k)
+                    endif
+                else
+                    if (prec_ls(j,k) .ne. 0.) then
+                        sghydro%mr_hydro(j,:,k,I_LSRAIN) = sghydro%mr_hydro(j,:,k,I_LSRAIN)/prec_ls(j,k)
+                        sghydro%mr_hydro(j,:,k,I_LSSNOW) = sghydro%mr_hydro(j,:,k,I_LSSNOW)/prec_ls(j,k)
+                        sghydro%mr_hydro(j,:,k,I_LSGRPL) = sghydro%mr_hydro(j,:,k,I_LSGRPL)/prec_ls(j,k)
+                    endif
+                    if (prec_cv(j,k) .ne. 0.) then
+                        sghydro%mr_hydro(j,:,k,I_CVRAIN) = sghydro%mr_hydro(j,:,k,I_CVRAIN)/prec_cv(j,k)
+                        sghydro%mr_hydro(j,:,k,I_CVSNOW) = sghydro%mr_hydro(j,:,k,I_CVSNOW)/prec_cv(j,k)
+                    endif
+                endif  
+            enddo !k
+        enddo !j
+        deallocate(frac_ls,prec_ls,frac_cv,prec_cv)
+        
+        if (gbx%use_precipitation_fluxes) then
+        
+#ifdef MMF_V3p5_TWO_MOMENT
+
+        write(*,*) 'Precipitation Flux to Mixing Ratio conversion not (yet?) supported ', &
+               'for MMF3.5 Two Moment Microphysics'
+        stop
+#else
+            ! Density
+            allocate(rho(Npoints,Nlevels))
+            I_HYDRO = I_LSRAIN
+            call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,1., &
+                    n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), &
+                    g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), &
+                    gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), &
+                    gbx%rain_ls,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO))
+            I_HYDRO = I_LSSNOW
+            call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,1., &
+                    n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), &
+                    g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), &
+                    gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), &
+                    gbx%snow_ls,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO))
+            I_HYDRO = I_CVRAIN
+            call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,2., &
+                    n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), &
+                    g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), &
+                    gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), &
+                    gbx%rain_cv,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO))
+            I_HYDRO = I_CVSNOW
+            call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,2., &
+                    n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), &
+                    g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), &
+                    gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), &
+                    gbx%snow_cv,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO))
+            I_HYDRO = I_LSGRPL
+            call cosp_precip_mxratio(Npoints,Nlevels,Ncolumns,gbx%p,gbx%T,sgx%prec_frac,1., &
+                    n_ax(I_HYDRO),n_bx(I_HYDRO),alpha_x(I_HYDRO),c_x(I_HYDRO),d_x(I_HYDRO), &
+                    g_x(I_HYDRO),a_x(I_HYDRO),b_x(I_HYDRO), &
+                    gamma_1(I_HYDRO),gamma_2(I_HYDRO),gamma_3(I_HYDRO),gamma_4(I_HYDRO), &
+                    gbx%grpl_ls,sghydro%mr_hydro(:,:,:,I_HYDRO),sghydro%Reff(:,:,:,I_HYDRO))
+            if(allocated(rho)) deallocate(rho)
+#endif
+
+        endif
+   !++++++++++ CRM mode ++++++++++
+   else
+      call construct_cosp_sghydro(Npoints,Ncolumns,Nlevels,Nhydro,sghydro)
+      sghydro%mr_hydro(:,1,:,:) = gbx%mr_hydro
+      sghydro%Reff(:,1,:,:) = gbx%Reff
+      sghydro%Np(:,1,:,:) = gbx%Np      ! added by Roj with Quickbeam V3.0
+      
+      !--------- Clouds -------
+      where ((gbx%dtau_s > 0.0))
+             sgx%frac_out(:,1,:) = 1  ! Subgrid cloud array. Dimensions (Npoints,Ncolumns,Nlevels)
+      endwhere
+   endif ! Ncolumns > 1
+  
+   !++++++++++ Simulator ++++++++++
+!#ifdef RTTOV
+!    call cosp_simulator(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar)
+!#else
+    call cosp_simulator(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,stradar,stlidar)
+!#endif
+
+    ! Deallocate subgrid arrays
+    call free_cosp_sghydro(sghydro)
+END SUBROUTINE COSP_ITER
+
+END MODULE MOD_COSP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_constants.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_constants.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_constants.F90	(revision 3330)
@@ -0,0 +1,307 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!
+! History:
+! Jul 2007 - A. Bodas-Salcedo - Initial version
+! Jul 2008 - A. Bodas-Salcedo - Added definitions of ISCCP axes
+! Oct 2008 - H. Chepfer       - Added PARASOL_NREFL
+! Jun 2010 - R. Marchand      - Modified to support quickbeam V3, added ifdef for hydrometeor definitions
+! 
+!
+! 
+
+#include "cosp_defs.h"
+MODULE MOD_COSP_CONSTANTS
+
+    use netcdf, only: nf90_fill_real
+    IMPLICIT NONE
+
+    character(len=32) :: COSP_VERSION='COSP v1.4'
+
+    ! Indices to address arrays of LS and CONV hydrometeors
+    integer,parameter :: I_LSCLIQ = 1
+    integer,parameter :: I_LSCICE = 2
+    integer,parameter :: I_LSRAIN = 3
+    integer,parameter :: I_LSSNOW = 4
+    integer,parameter :: I_CVCLIQ = 5
+    integer,parameter :: I_CVCICE = 6
+    integer,parameter :: I_CVRAIN = 7
+    integer,parameter :: I_CVSNOW = 8
+    integer,parameter :: I_LSGRPL = 9
+
+    ! Missing value
+    real,parameter :: R_UNDEF = -1.0E30
+!    real,parameter :: R_UNDEF = nf90_fill_real
+
+    ! Number of possible output variables
+    integer,parameter :: N_OUT_LIST = 63
+    integer,parameter :: N3D = 8
+    integer,parameter :: N2D = 14
+    integer,parameter :: N1D = 40
+
+    ! Value for forward model result from a level that is under the ground
+    real,parameter :: R_GROUND = -1.0E20
+
+    ! Stratiform and convective clouds in frac_out
+    integer, parameter :: I_LSC = 1, & ! Large-scale clouds
+                          I_CVC = 2    ! Convective clouds
+
+    ! Timing of different simulators, including statistics module
+    integer, parameter :: N_SIMULATORS = 7
+    integer,parameter :: I_RADAR = 1
+    integer,parameter :: I_LIDAR = 2
+    integer,parameter :: I_ISCCP = 3
+    integer,parameter :: I_MISR  = 4
+    integer,parameter :: I_MODIS = 5
+    integer,parameter :: I_RTTOV = 6
+    integer,parameter :: I_STATS = 7
+    character*32, dimension(N_SIMULATORS) :: SIM_NAME = (/'Radar','Lidar','ISCCP','MISR ','MODIS','RTTOV','Stats'/)
+    integer,dimension(N_SIMULATORS) :: tsim
+    data tsim/N_SIMULATORS*0.0/
+
+    !--- Radar constants
+    ! CFAD constants
+    integer,parameter :: DBZE_BINS     =   15   ! Number of dBZe bins in histogram (cfad)
+    real,parameter    :: DBZE_MIN      = -100.0 ! Minimum value for radar reflectivity
+    real,parameter    :: DBZE_MAX      =   80.0 ! Maximum value for radar reflectivity
+    real,parameter    :: CFAD_ZE_MIN   =  -50.0 ! Lower value of the first CFAD Ze bin
+    real,parameter    :: CFAD_ZE_WIDTH =    5.0 ! Bin width (dBZe)
+
+
+    !--- Lidar constants
+    ! CFAD constants
+    integer,parameter :: SR_BINS       =   15
+    integer,parameter :: DPOL_BINS     =   6
+    real,parameter    :: LIDAR_UNDEF   =   999.999
+
+    ! Other constants
+    integer,parameter :: LIDAR_NCAT    =   4
+    integer,parameter :: PARASOL_NREFL =   5 ! parasol
+    real,parameter,dimension(PARASOL_NREFL) :: PARASOL_SZA = (/0.0, 20.0, 40.0, 60.0, 80.0/)
+    real,parameter    :: DEFAULT_LIDAR_REFF = 30.0e-6 ! Default lidar effective radius
+
+    integer,parameter :: LIDAR_NTEMP = 40
+    real,parameter,dimension(LIDAR_NTEMP) :: LIDAR_PHASE_TEMP=(/-91.5,-88.5,-85.5,-82.5,-79.5,-76.5,-73.5,-70.5,-67.5,-64.5, &
+                   -61.5,-58.5,-55.5,-52.5,-49.5,-46.5,-43.5,-40.5,-37.5,-34.5, &
+                   -31.5,-28.5,-25.5,-22.5,-19.5,-16.5,-13.5,-10.5, -7.5, -4.5, &
+                    -1.5,  1.5,  4.5,  7.5, 10.5, 13.5, 16.5, 19.5, 22.5, 25.5/)
+    real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=&
+                    (/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., &
+                   -78.,-75.,-75.,-72.,-72.,-69.,-69.,-66.,-66.,-63., &
+                   -63.,-60.,-60.,-57.,-57.,-54.,-54.,-51.,-51.,-48., &
+                   -48.,-45.,-45.,-42.,-42.,-39.,-39.,-36.,-36.,-33., &
+                   -33.,-30.,-30.,-27.,-27.,-24.,-24.,-21.,-21.,-18., &
+                   -18.,-15.,-15.,-12.,-12., -9., -9., -6., -6., -3., &
+                    -3.,  0.,  0.,  3.,  3.,  6.,  6.,  9.,  9., 12., &
+                    12., 15., 15., 18., 18., 21., 21., 24., 24.,100./),shape=(/2,40/))
+
+    !--- MISR constants
+    integer,parameter :: MISR_N_CTH = 16
+
+    !--- RTTOV constants
+    integer,parameter :: RTTOV_MAX_CHANNELS = 20
+
+    ! ISCCP tau-Pc axes
+    real,parameter,dimension(7) :: ISCCP_TAU = (/0.15, 0.80, 2.45, 6.5, 16.2, 41.5, 100.0/)
+    real,parameter,dimension(2,7) :: ISCCP_TAU_BNDS = reshape(source=(/0.0,0.3,0.3,1.30,1.30,3.6,3.6,9.4, &
+                                                      9.4,23.0,23.0,60.0,60.0,100000.0/), shape=(/2,7/))
+
+    real,parameter,dimension(7) :: ISCCP_PC = (/90000., 74000., 62000., 50000., 37500., 24500., 9000./)
+    real,parameter,dimension(2,7) :: ISCCP_PC_BNDS = reshape(source=(/100000.0,80000.0,80000.0,68000.0,68000.0,56000.0 &
+                               ,56000.0,44000.0,44000.0,31000.0,31000.0,18000.0,18000.0,0.0/), shape=(/2,7/))
+
+    real,parameter,dimension(MISR_N_CTH) :: MISR_CTH = 1000.0*(/ 0., 0.25, 0.75, 1.25, 1.75, 2.25, 2.75, 3.5, &
+                                            4.5, 6., 8., 10., 12., 14.5, 16., 18./)
+    real,parameter,dimension(2,MISR_N_CTH) :: MISR_CTH_BNDS = 1000.0*reshape(source=(/ &
+                                            -99.0,  0.0,       0.0,  0.5,       0.5,  1.0,      1.0,  1.5, &
+                                              1.5,  2.0,       2.0,  2.5,       2.5,  3.0,      3.0,  4.0, &
+                                              4.0,  5.0,       5.0,  7.0,       7.0,  9.0,      9.0, 11.0, &
+                                             11.0, 13.0,      13.0, 15.0,      15.0, 17.0,     17.0, 99.0/), &
+                                             shape=(/2,MISR_N_CTH/))
+
+
+    !
+    ! The following code was modifed by Roj with implementation of quickbeam V3
+    !   (1) use ifdef to support more than one microphyscis scheme 
+    !   (2) added constants  microphysic_scheme_name, LOAD_scale_LUTs, and SAVE_scale_LUTs 
+    !
+
+    ! directory where LUTs will be stored
+    character*120 :: RADAR_SIM_LUT_DIRECTORY = './'
+
+#ifdef MMF_V3_SINGLE_MOMENT
+
+    !        
+    !  Table hclass for quickbeam to support one-moment (bulk) microphysics scheme used by MMF V3.0 & V3.5
+    !
+
+    !
+    ! NOTE:  if ANY value in this section of code is changed, the existing LUT 
+    !        (i.e., the associated *.dat file) MUST be deleted so that a NEW
+    !        LUT will be created !!!
+    !
+    character*120 :: RADAR_SIM_MICROPHYSICS_SCHEME_NAME = 'MMF_v3_single_moment'
+
+    logical :: RADAR_SIM_LOAD_scale_LUTs_flag   = .false.
+    logical :: RADAR_SIM_UPDATE_scale_LUTs_flag = .false.
+    integer,parameter :: N_HYDRO = 9
+
+    integer :: HCLASS_TYPE(N_HYDRO),HCLASS_PHASE(N_HYDRO)
+
+    real :: HCLASS_DMIN(N_HYDRO),HCLASS_DMAX(N_HYDRO), &
+            HCLASS_APM(N_HYDRO),HCLASS_BPM(N_HYDRO),HCLASS_RHO(N_HYDRO), &
+            HCLASS_P1(N_HYDRO),HCLASS_P2(N_HYDRO),HCLASS_P3(N_HYDRO)
+
+    ! HCLASS_CP is not used in the version of Quickbeam included in COSP
+    !                   LSL    LSI      LSR     LSS   CVL    CVI   CVR     CVS   LSG
+    data HCLASS_TYPE/    5,      1,      2,      2,     5,     1,   2,      2,    2/
+    data HCLASS_PHASE/   0,      1,      0,      1,     0,     1,   0,      1,    1/
+    data HCLASS_DMIN/   -1,     -1,     -1,     -1,    -1,    -1,   -1,    -1,   -1/
+    data HCLASS_DMAX/   -1,     -1,     -1,     -1,    -1,    -1,   -1,    -1,   -1/
+    data HCLASS_APM/   524,  110.8,    524,     -1,   524, 110.8,  524,    -1,   -1/
+    data HCLASS_BPM/     3,   2.91,      3,     -1,     3,  2.91,    3,    -1,   -1/
+    data HCLASS_RHO/    -1,     -1,     -1,    100,    -1,    -1,   -1,   100,  400/
+    data HCLASS_P1/     -1,     -1,   8.e6,   3.e6,    -1,    -1, 8.e6,  3.e6, 4.e6/
+    data HCLASS_P2/      6,     40,     -1,      -1,    6,    40,   -1,    -1,   -1/
+    data HCLASS_P3/    0.3,      2,     -1,      -1,  0.3,     2,   -1,    -1,   -1/
+
+    ! NOTES on HCLASS variables
+    !
+    ! TYPE - Set to
+    ! 1 for modified gamma distribution,
+    ! 2 for exponential distribution,
+    ! 3 for power law distribution,
+    ! 4 for monodisperse distribution,
+    ! 5 for lognormal distribution.
+
+    ! PHASE - Set to 0 for liquid, 1 for ice.
+
+    ! DMIN - The minimum drop size for this class (micron), ignored for monodisperse.
+    ! DMAX - The maximum drop size for this class (micron), ignored for monodisperse.
+    ! Important note: The settings for DMIN and DMAX are
+    ! ignored in the current version for all distributions except for power
+    ! law. Except when the power law distribution is used, particle size
+    ! is fixed to vary from zero to infinity, a restriction that is expected
+    ! to be lifted in future versions. A placeholder must still be specified
+    ! for each.
+
+    ! Density of particles is given by apm*D^bpm or a fixed value rho. ONLY specify ONE of these two!!
+    ! APM - The alpha_m coefficient in equation (1) (kg m**-beta_m )
+    ! BPM - The beta_m coefficient in equation (1), see section 4.1.
+
+    ! RHO - Hydrometeor density (kg m-3 ).
+
+    ! P1, P2, P3 - are default distribution parameters that depend on the type
+    ! of distribution (see quickmbeam documentation for more information)
+    !
+    ! Modified Gamma (must set P3 and one of P1 or P2)
+    ! P1 - Set to the total particle number concentration Nt /rho_a (kg-1 ), where
+    ! rho_a is the density of air in the radar volume.
+    ! P2 - Set to the particle mean diameter D (micron).
+    ! P3 - Set to the distribution width nu.
+    !
+    ! Exponetial (set one of)
+    ! P1 - Set to a constant intercept parameter N0 (m-4).
+    ! P2 - Set to a constant lambda (micron-1).
+    !
+    ! Power Law
+    ! P1 - Set this to the value of a constant power law parameter br
+    !
+    ! Monodisperse
+    ! P1 - Set to a constant diameter D0 (micron) = Re.
+    !
+    ! Log-normal (must set P3 and one of P1 or P2)
+    ! P1 - Set to the total particle number concentration Nt /rho_a (kg-1 )
+    ! P2 - Set to the geometric mean particle radius rg (micron).
+    ! P3 - Set to the natural logarithm of the geometric standard deviation.
+    !
+
+
+    real,dimension(N_HYDRO) :: N_ax,N_bx,alpha_x,c_x,d_x,g_x,a_x,b_x,gamma_1,gamma_2,gamma_3,gamma_4
+
+    ! Microphysical settings for the precipitation flux to mixing ratio conversion
+    !                LSL    LSI       LSR       LSS   CVL    CVI       CVR       CVS      LSG
+    data N_ax/       -1.,   -1.,     8.e6,     3.e6,  -1.,   -1.,     8.e6,     3.e6,     4.e6/
+    data N_bx/       -1.,   -1.,      0.0,      0.0,  -1.,   -1.,      0.0,      0.0,      0.0/
+    data alpha_x/    -1.,   -1.,      0.0,      0.0,  -1.,   -1.,      0.0,      0.0,      0.0/
+    data c_x/        -1.,   -1.,    842.0,     4.84,  -1.,   -1.,    842.0,     4.84,     94.5/
+    data d_x/        -1.,   -1.,      0.8,     0.25,  -1.,   -1.,      0.8,     0.25,      0.5/
+    data g_x/        -1.,   -1.,      0.5,      0.5,  -1.,   -1.,      0.5,      0.5,      0.5/
+    data a_x/        -1.,   -1.,    524.0,    52.36,  -1.,   -1.,    524.0,    52.36,   209.44/
+    data b_x/        -1.,   -1.,      3.0,      3.0,  -1.,   -1.,      3.0,      3.0,      3.0/
+    data gamma_1/    -1.,   -1., 17.83725, 8.284701,  -1.,   -1., 17.83725, 8.284701, 11.63230/
+    data gamma_2/    -1.,   -1.,      6.0,      6.0,  -1.,   -1.,      6.0,      6.0,      6.0/
+    data gamma_3/    -1.,   -1.,      2.0,      2.0,  -1.,   -1.,      2.0,      2.0,      2.0/
+    data gamma_4/    -1.,   -1.,      6.0,      6.0,  -1.,   -1.,      6.0,      6.0,      6.0/
+
+
+
+#endif
+
+
+#ifdef MMF_V3p5_TWO_MOMENT
+
+    !
+    !  Table hclass for quickbeam to support two-moment "morrison" microphysics scheme used by V3.5 (SAM 6.8)
+    !
+    !  This Number concentriation Np in [1/kg] MUST be input to COSP/radar simulator
+    !
+    !  NOTE:  Be sure to check that the ice-density (rho) set it this tables matches what you used
+    !
+
+    !
+    ! NOTE:  if ANY value in this section of code is changed, the existing LUT 
+    !        (i.e., the associated *.dat file) MUST be deleted so that a NEW
+    !        LUT will be created !!!
+    !
+    character*120 :: RADAR_SIM_MICROPHYSICS_SCHEME_NAME = 'MMF_v3.5_two_moment'
+
+    logical :: RADAR_SIM_LOAD_scale_LUTs_flag   = .false.
+    logical :: RADAR_SIM_UPDATE_scale_LUTs_flag = .false.
+
+    integer,parameter :: N_HYDRO = 9
+
+    integer :: HCLASS_TYPE(N_HYDRO),HCLASS_PHASE(N_HYDRO) 
+
+    real :: HCLASS_DMIN(N_HYDRO),HCLASS_DMAX(N_HYDRO), &           
+            HCLASS_APM(N_HYDRO),HCLASS_BPM(N_HYDRO),HCLASS_RHO(N_HYDRO), &
+            HCLASS_P1(N_HYDRO),HCLASS_P2(N_HYDRO),HCLASS_P3(N_HYDRO)
+
+    ! HCLASS_CP is not used in the version of Quickbeam included in COSP
+    !                   LSL    LSI      LSR     LSS   CVL    CVI   CVR     CVS   LSG
+    data HCLASS_TYPE/    1,      1,      1,      1,     1,     1,    1,      1,    1/
+    data HCLASS_PHASE/   0,      1,      0,      1,     0,     1,    0,      1,    1/
+    data HCLASS_DMIN/   -1,     -1,     -1,     -1,    -1,    -1,   -1,     -1,   -1/
+    data HCLASS_DMAX/   -1,     -1,     -1,     -1,    -1,    -1,   -1,     -1,   -1/
+    data HCLASS_APM/   524,     -1,    524,     -1,   524,    -1,  524,     -1,   -1/
+    data HCLASS_BPM/     3,     -1,      3,     -1,     3,    -1,    3,     -1,   -1/
+    data HCLASS_RHO/    -1,    500,     -1,    100,    -1,   500,   -1,    100,  900/
+    data HCLASS_P1/     -1,     -1,     -1,     -1,    -1,    -1,   -1,     -1,   -1/
+    data HCLASS_P2/     -1,     -1,     -1,     -1,    -1,    -1,   -1,     -1,   -1/
+    data HCLASS_P3/     -2,      1,      1,      1,    -2,     1,    1,      1,    1/
+    ! Note: value of "-2" for HCLASS_P3 uses martin 1994 parameteriztion of gamma function width with Number concentration
+#endif
+
+END MODULE MOD_COSP_CONSTANTS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_defs.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_defs.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_defs.h	(revision 3330)
@@ -0,0 +1,30 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_defs.h $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!#define RTTOV rttov
+!#define SYS_SX sys_sx
+#define MMF_V3_SINGLE_MOMENT mmf_v3_single_moment
+!#define MMF_V3p5_TWO_MOMENT mmf_v3p5_two_moment
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_isccp_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_isccp_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_isccp_simulator.F90	(revision 3330)
@@ -0,0 +1,96 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_isccp_simulator.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+MODULE MOD_COSP_ISCCP_SIMULATOR
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  IMPLICIT NONE
+
+CONTAINS
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!-------------- SUBROUTINE COSP_ISCCP_SIMULATOR -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_ISCCP_SIMULATOR(gbx,sgx,y)
+  
+  ! Arguments
+  type(cosp_gridbox),intent(in) :: gbx  ! Gridbox info
+  type(cosp_subgrid),intent(in) :: sgx  ! Subgridbox info
+  type(cosp_isccp),intent(inout) :: y   ! ISCCP simulator output
+  
+  ! Local variables 
+  integer :: Nlevels,Npoints
+  real :: pfull(gbx%Npoints, gbx%Nlevels)
+  real :: phalf(gbx%Npoints, gbx%Nlevels + 1)
+  real :: qv(gbx%Npoints, gbx%Nlevels)
+  real :: cc(gbx%Npoints, gbx%Nlevels)
+  real :: conv(gbx%Npoints, gbx%Nlevels)
+  real :: dtau_s(gbx%Npoints, gbx%Nlevels)
+  real :: dtau_c(gbx%Npoints, gbx%Nlevels)
+  real :: at(gbx%Npoints, gbx%Nlevels)
+  real :: dem_s(gbx%Npoints, gbx%Nlevels)
+  real :: dem_c(gbx%Npoints, gbx%Nlevels)
+  real :: frac_out(gbx%Npoints, gbx%Ncolumns, gbx%Nlevels)
+  integer :: sunlit(gbx%Npoints)
+  
+  Nlevels = gbx%Nlevels
+  Npoints = gbx%Npoints
+  ! Flip inputs. Levels from TOA to surface
+  pfull  = gbx%p(:,Nlevels:1:-1) 
+  phalf(:,1)         = 0.0 ! Top level
+  phalf(:,2:Nlevels+1) = gbx%ph(:,Nlevels:1:-1)
+  qv     = gbx%sh(:,Nlevels:1:-1) 
+  cc     = 0.999999*gbx%tca(:,Nlevels:1:-1) 
+  conv   = 0.999999*gbx%cca(:,Nlevels:1:-1) 
+  dtau_s = gbx%dtau_s(:,Nlevels:1:-1) 
+  dtau_c = gbx%dtau_c(:,Nlevels:1:-1) 
+  at     = gbx%T(:,Nlevels:1:-1) 
+  dem_s  = gbx%dem_s(:,Nlevels:1:-1) 
+  dem_c  = gbx%dem_c(:,Nlevels:1:-1) 
+  frac_out(1:Npoints,:,1:Nlevels) = sgx%frac_out(1:Npoints,:,Nlevels:1:-1)
+  sunlit = int(gbx%sunlit)
+  call icarus(0,0,gbx%npoints,sunlit,gbx%nlevels,gbx%ncolumns, &
+            pfull,phalf,qv,cc,conv,dtau_s,dtau_c, &
+            gbx%isccp_top_height,gbx%isccp_top_height_direction, &
+            gbx%isccp_overlap,frac_out, &
+            gbx%skt,gbx%isccp_emsfc_lw,at,dem_s,dem_c,y%fq_isccp,y%totalcldarea, &
+            y%meanptop,y%meantaucld,y%meanalbedocld, &
+            y%meantb,y%meantbclr,y%boxtau,y%boxptop)
+
+  ! Flip outputs. Levels from surface to TOA
+  ! --- (npoints,tau=7,pressure=7)
+  y%fq_isccp(:,:,:) = y%fq_isccp(:,:,7:1:-1)
+     
+ 
+  ! Check if there is any value slightly greater than 1
+  where ((y%totalcldarea > 1.0-1.e-5) .and. (y%totalcldarea < 1.0+1.e-5))
+    y%totalcldarea = 1.0
+  endwhere
+              
+END SUBROUTINE COSP_ISCCP_SIMULATOR
+
+END MODULE MOD_COSP_ISCCP_SIMULATOR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_lidar.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_lidar.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_lidar.F90	(revision 3330)
@@ -0,0 +1,87 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_lidar.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!
+! History:
+! Jul 2007 - A. Bodas-Salcedo - Initial version
+! Oct 2008 - S. Bony          - Instructions "Call for large-scale cloud" removed  -> sgx%frac_out is used instead.
+!                               Call lidar_simulator changed (lsca, gbx%cca and depol removed; 
+!                               frac_out changed in sgx%frac_out)
+! Jun 2011 - G. Cesana        - Added betaperp_tot argument
+!
+! 
+MODULE MOD_COSP_LIDAR
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  IMPLICIT NONE
+
+CONTAINS
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------- SUBROUTINE COSP_LIDAR ------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_LIDAR(gbx,sgx,sghydro,y)
+
+  ! Arguments
+  type(cosp_gridbox),intent(in) :: gbx  ! Gridbox info
+  type(cosp_subgrid),intent(in) :: sgx  ! Subgrid info
+  type(cosp_sghydro),intent(in) :: sghydro  ! Subgrid info for hydrometeors
+  type(cosp_sglidar),intent(inout) :: y ! Subgrid output
+
+  ! Local variables 
+  integer :: i
+  real :: presf(sgx%Npoints, sgx%Nlevels + 1)
+  real,dimension(sgx%Npoints, sgx%Nlevels) :: lsca,mr_ll,mr_li,mr_cl,mr_ci
+  real,dimension(sgx%Npoints, sgx%Nlevels) :: beta_tot,tau_tot
+  real,dimension(sgx%Npoints, sgx%Nlevels) :: betaperp_tot
+  real,dimension(sgx%Npoints, PARASOL_NREFL)  :: refle
+
+  presf(:,1:sgx%Nlevels) = gbx%ph
+  presf(:,sgx%Nlevels + 1) = 0.0
+  lsca = gbx%tca-gbx%cca
+  do i=1,sgx%Ncolumns
+      ! Temporary arrays for simulator call
+      mr_ll(:,:) = sghydro%mr_hydro(:,i,:,I_LSCLIQ)
+      mr_li(:,:) = sghydro%mr_hydro(:,i,:,I_LSCICE)
+      mr_cl(:,:) = sghydro%mr_hydro(:,i,:,I_CVCLIQ)
+      mr_ci(:,:) = sghydro%mr_hydro(:,i,:,I_CVCICE)
+      call lidar_simulator(sgx%Npoints, sgx%Nlevels, 4, PARASOL_NREFL, LIDAR_UNDEF  &
+                 , gbx%p, presf, gbx%T, mr_ll, mr_li, mr_cl, mr_ci &
+                 , gbx%Reff(:,:,I_LSCLIQ), gbx%Reff(:,:,I_LSCICE) &
+                 , gbx%Reff(:,:,I_CVCLIQ), gbx%Reff(:,:,I_CVCICE) &
+                 , gbx%lidar_ice_type, y%beta_mol, beta_tot &
+                 , betaperp_tot, tau_tot, refle )
+
+      y%betaperp_tot(:,i,:) = betaperp_tot(:,:)
+      y%beta_tot(:,i,:) = beta_tot(:,:)
+      y%tau_tot(:,i,:)  = tau_tot(:,:)
+      y%refl(:,i,:)     = refle(:,:)
+  enddo
+
+END SUBROUTINE COSP_LIDAR
+
+END MODULE MOD_COSP_LIDAR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_misr_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_misr_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_misr_simulator.F90	(revision 3330)
@@ -0,0 +1,80 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_misr_simulator.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!
+! History:
+! Nov 2008 - A. Bodas-Salcedo - Initial version
+!
+!
+
+MODULE MOD_COSP_MISR_SIMULATOR
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  IMPLICIT NONE
+
+CONTAINS
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!-------------- SUBROUTINE COSP_MISR_SIMULATOR -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_MISR_SIMULATOR(gbx,sgx,y)
+  
+  ! Arguments
+  type(cosp_gridbox),intent(in) :: gbx  ! Gridbox info
+  type(cosp_subgrid),intent(in) :: sgx  ! Subgridbox info
+  type(cosp_misr),intent(inout) :: y    ! MISR simulator output
+  
+  ! Local variables 
+  integer :: Nlevels,Npoints
+  real :: dtau_s(gbx%Npoints, gbx%Nlevels)
+  real :: dtau_c(gbx%Npoints, gbx%Nlevels)
+  real :: at(gbx%Npoints, gbx%Nlevels)
+  real :: frac_out(gbx%Npoints, gbx%Ncolumns, gbx%Nlevels)
+  integer :: sunlit(gbx%Npoints)
+  
+  real :: zfull(gbx%Npoints, gbx%Nlevels) !  height (in meters) of full model levels (i.e. midpoints)
+                                          !  zfull(npoints,1)    is    top level of model
+                                          !  zfull(npoints,nlev) is bottom level of model
+     
+    
+  Nlevels = gbx%Nlevels
+  Npoints = gbx%Npoints
+  ! Levels from TOA to surface
+  zfull  = gbx%zlev(:,Nlevels:1:-1)
+  at     = gbx%T(:,Nlevels:1:-1) 
+  dtau_s = gbx%dtau_s(:,Nlevels:1:-1) 
+  dtau_c = gbx%dtau_c(:,Nlevels:1:-1) 
+  frac_out(1:Npoints,:,1:Nlevels) = sgx%frac_out(1:Npoints,:,Nlevels:1:-1)
+  sunlit = int(gbx%sunlit)
+ 
+  call MISR_simulator(gbx%npoints,gbx%nlevels,gbx%ncolumns,&
+                     sunlit,zfull,at,dtau_s,dtau_c,frac_out, R_UNDEF, &
+                     y%fq_MISR,y%MISR_dist_model_layertops,y%MISR_meanztop,y%MISR_cldarea)
+            
+END SUBROUTINE COSP_MISR_SIMULATOR
+
+END MODULE MOD_COSP_MISR_SIMULATOR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_modis_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_modis_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_modis_simulator.F90	(revision 3330)
@@ -0,0 +1,453 @@
+! (c) 2009, Regents of the Unversity of Colorado
+!   Author: Robert Pincus, Cooperative Institute for Research in the Environmental Sciences
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_modis_simulator.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+!
+
+!
+! History:
+!   May 2009 - Robert Pincus - Initial version
+!   Dec 2009 - Robert Pincus - Tiny revisions
+!
+MODULE MOD_COSP_Modis_Simulator
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  use mod_modis_sim, numModisTauBins      => numTauHistogramBins,      &
+                     numModisPressureBins => numPressureHistogramBins, &
+                     MODIS_TAU      => nominalTauHistogramCenters,     &
+                     MODIS_TAU_BNDS => nominalTauHistogramBoundaries,  &
+                     MODIS_PC       => nominalPressureHistogramCenters, &
+                     MODIS_PC_BNDS  => nominalPressureHistogramBoundaries                     
+  implicit none
+  !------------------------------------------------------------------------------------------------
+  ! Public type
+  !
+  ! Summary statistics from MODIS retrievals
+  type COSP_MODIS
+     ! Dimensions
+     integer :: Npoints   ! Number of gridpoints
+     
+     !
+     ! Grid means; dimension nPoints
+     ! 
+     real, dimension(:),       pointer :: & 
+       Cloud_Fraction_Total_Mean,       Cloud_Fraction_Water_Mean,       Cloud_Fraction_Ice_Mean,       &
+       Cloud_Fraction_High_Mean,        Cloud_Fraction_Mid_Mean,         Cloud_Fraction_Low_Mean,       &
+       Optical_Thickness_Total_Mean,    Optical_Thickness_Water_Mean,    Optical_Thickness_Ice_Mean,    &
+       Optical_Thickness_Total_LogMean, Optical_Thickness_Water_LogMean, Optical_Thickness_Ice_LogMean, &
+                                        Cloud_Particle_Size_Water_Mean,  Cloud_Particle_Size_Ice_Mean,  &
+       Cloud_Top_Pressure_Total_Mean,                                                                   &
+                                        Liquid_Water_Path_Mean,          Ice_Water_Path_Mean
+     !
+     ! Also need the ISCCP-type optical thickness/cloud top pressure histogram
+     !
+     real, dimension(:, :, :), pointer :: Optical_Thickness_vs_Cloud_Top_Pressure
+  end type COSP_MODIS 
+  
+contains
+  !------------------------------------------------------------------------------------------------
+  subroutine COSP_Modis_Simulator(gridBox, subCols, subcolHydro, isccpSim, modisSim)
+    ! Arguments
+    type(cosp_gridbox), intent(in   ) :: gridBox     ! Gridbox info
+    type(cosp_subgrid), intent(in   ) :: subCols     ! subCol indicators of convective/stratiform 
+    type(cosp_sghydro), intent(in   ) :: subcolHydro ! subcol hydrometeor contens
+    type(cosp_isccp),   intent(in   ) :: isccpSim    ! ISCCP simulator output
+    type(cosp_modis),   intent(  out) :: modisSim    ! MODIS simulator subcol output
+    
+    ! ------------------------------------------------------------
+    ! Local variables 
+    !   Leave space only for sunlit points
+    
+    integer :: nPoints, nSubCols, nLevels, nSunlit, i, j, k
+    
+    ! Grid-mean quanties;  dimensions nPoints, nLevels
+    real, &
+      dimension(count(gridBox%sunlit(:) > 0),                  gridBox%nLevels) :: &
+        temperature, pressureLayers
+    real, &
+      dimension(count(gridBox%sunlit(:) > 0),                  gridBox%nLevels + 1) :: &
+        pressureLevels
+    
+    ! Subcol quantities, dimension nPoints, nSubCols, nLevels 
+    real, &
+      dimension(count(gridBox%sunlit(:) > 0), subCols%nColumns, gridBox%nLevels) :: & 
+        opticalThickness, cloudWater, cloudIce, waterSize, iceSize
+    
+    ! Vertically-integrated subcol quantities; dimensions nPoints, nSubcols 
+    integer, &
+      dimension(count(gridBox%sunlit(:) > 0), subCols%nColumns) :: & 
+        retrievedPhase
+    real, &
+      dimension(count(gridBox%sunlit(:) > 0), subCols%nColumns) :: & 
+        isccpTau, isccpCloudTopPressure, retrievedCloudTopPressure, retrievedTau, retrievedSize  
+    
+    ! Vertically-integrated results
+    real, dimension(count(gridBox%sunlit(:) > 0)) :: & 
+        cfTotal, cfLiquid, cfIce,                &
+        cfHigh,  cfMid,    cfLow,                &
+        meanTauTotal, meanTauLiquid, meanTauIce, &
+        meanLogTauTotal, meanLogTauLiquid, meanLogTauIce , &
+        meanSizeLiquid, meanSizeIce,             &
+        meanCloudTopPressure,                    &
+        meanLiquidWaterPath, meanIceWaterPath
+        
+    real, dimension(count(gridBox%sunlit(:) > 0), numModisTauBins, numModisPressureBins) :: & 
+       jointHistogram
+    
+    integer, dimension(count(gridBox%sunlit(:) >  0)) :: sunlit
+    integer, dimension(count(gridBox%sunlit(:) <= 0)) :: notSunlit
+    ! ------------------------------------------------------------
+    
+    !
+    ! Are there any sunlit points? 
+    !
+    nSunlit = count(gridBox%sunlit(:) > 0)
+    if(nSunlit > 0) then 
+      nLevels  = gridBox%Nlevels
+      nPoints  = gridBox%Npoints
+      nSubCols = subCols%Ncolumns
+      !
+      ! This is a vector index indicating which points are sunlit
+      !
+      sunlit(:)    = pack((/ (i, i = 1, nPoints ) /), mask =       gridBox%sunlit(:) > 0)
+      notSunlit(:) = pack((/ (i, i = 1, nPoints ) /), mask = .not. gridBox%sunlit(:) > 0)
+               
+      !
+      ! Copy needed quantities, reversing vertical order and removing points with no sunlight 
+      !
+      pressureLevels(:, 1) = 0.0 ! Top of model, following ISCCP sim
+      temperature(:, :)     = gridBox%T (sunlit(:), nLevels:1:-1) 
+      pressureLayers(:, :)  = gridBox%p (sunlit(:), nLevels:1:-1) 
+      pressureLevels(:, 2:) = gridBox%ph(sunlit(:), nLevels:1:-1) 
+      
+      !
+      ! Subcolumn properties - first stratiform cloud...
+      ! 
+      where(subCols%frac_out(sunlit(:), :, :) == I_LSC)
+        !opticalThickness(:, :, :) = & 
+        !               spread(gridBox%dtau_s      (sunlit(:),    :), dim = 2, nCopies = nSubCols)
+        cloudWater(:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_LSCLIQ)
+        waterSize (:, :, :) = subcolHydro%reff    (sunlit(:), :, :, I_LSCLIQ)
+        cloudIce  (:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_LSCICE)
+        iceSize   (:, :, :) = subcolHydro%reff    (sunlit(:), :, :, I_LSCICE)
+      elsewhere
+        opticalThickness(:, :, :) = 0.
+        cloudWater      (:, :, :) = 0.
+        cloudIce        (:, :, :) = 0.
+        waterSize       (:, :, :) = 0.
+        iceSize         (:, :, :) = 0.
+      end where 
+
+      ! Loop version of spread above - intrinsic doesn't work on certain platforms. 
+      do k = 1, nLevels
+        do j = 1, nSubCols
+          do i = 1, nSunlit
+            if(subCols%frac_out(sunlit(i), j, k) == I_LSC) then
+              opticalThickness(i, j, k) = gridBox%dtau_s(sunlit(i), k)
+            else
+              opticalThickness(i, j, k) = 0.   
+            end if 
+          end do 
+        end do
+      end do
+
+      !
+      ! .. then add convective cloud...
+      !
+      where(subCols%frac_out(sunlit(:), :, :) == I_CVC) 
+        !opticalThickness(:, :, :) = &
+        !               spread(gridBox%dtau_c(      sunlit(:),    :), dim = 2, nCopies = nSubCols)
+        cloudWater(:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_CVCLIQ)
+        waterSize (:, :, :) = subcolHydro%reff    (sunlit(:), :, :, I_CVCLIQ)
+        cloudIce  (:, :, :) = subcolHydro%mr_hydro(sunlit(:), :, :, I_CVCICE)
+        iceSize   (:, :, :) = subcolHydro%reff    (sunlit(:), :, :, I_CVCICE)
+      end where
+
+      ! Loop version of spread above - intrinsic doesn't work on certain platforms. 
+      do k = 1, nLevels
+        do j = 1, nSubCols
+          do i = 1, nSunlit
+            if(subCols%frac_out(sunlit(i), j, k) == I_CVC) opticalThickness(i, j, k) = gridBox%dtau_c(sunlit(i), k)
+          end do 
+        end do
+      end do
+
+      !
+      ! Reverse vertical order 
+      !
+      opticalThickness(:, :, :)  = opticalThickness(:, :, nLevels:1:-1)
+      cloudWater      (:, :, :)  = cloudWater      (:, :, nLevels:1:-1)
+      waterSize       (:, :, :)  = waterSize       (:, :, nLevels:1:-1)
+      cloudIce        (:, :, :)  = cloudIce        (:, :, nLevels:1:-1)
+      iceSize         (:, :, :)  = iceSize         (:, :, nLevels:1:-1)
+      
+      isccpTau(:, :)              = isccpSim%boxtau (sunlit(:), :)
+      isccpCloudTopPressure(:, :) = isccpSim%boxptop(sunlit(:), :)
+      
+      do i = 1, nSunlit
+        call modis_L2_simulator(temperature(i, :), pressureLayers(i, :), pressureLevels(i, :),     &
+                                opticalThickness(i, :, :), cloudWater(i, :, :), cloudIce(i, :, :), &
+                                waterSize(i, :, :), iceSize(i, :, :),                       &
+                                isccpTau(i, :), isccpCloudTopPressure(i, :),                &
+                                retrievedPhase(i, :), retrievedCloudTopPressure(i, :),      & 
+                                retrievedTau(i, :), retrievedSize(i, :))
+      end do
+      call modis_L3_simulator(retrievedPhase,              &
+                              retrievedCloudTopPressure,   &
+                              retrievedTau, retrievedSize, &
+                              cfTotal,         cfLiquid,         cfIce,         &
+                              cfHigh,          cfMid,            cfLow,         &
+                              meanTauTotal,    meanTauLiquid,    meanTauIce,    &
+                              meanLogTauTotal, meanLogTauLiquid, meanLogTauIce, &
+                                               meanSizeLiquid,   meanSizeIce,   &
+                              meanCloudTopPressure,                             &
+                                               meanLiquidWaterPath, meanIceWaterPath, &
+                              jointHistogram)
+      !
+      ! Copy results into COSP structure
+      !
+      modisSim%Cloud_Fraction_Total_Mean(sunlit(:)) = cfTotal(:)
+      modisSim%Cloud_Fraction_Water_Mean(sunlit(:)) = cfLiquid
+      modisSim%Cloud_Fraction_Ice_Mean  (sunlit(:)) = cfIce
+  
+      modisSim%Cloud_Fraction_High_Mean(sunlit(:)) = cfHigh
+      modisSim%Cloud_Fraction_Mid_Mean (sunlit(:)) = cfMid
+      modisSim%Cloud_Fraction_Low_Mean (sunlit(:)) = cfLow
+  
+      modisSim%Optical_Thickness_Total_Mean(sunlit(:)) = meanTauTotal
+      modisSim%Optical_Thickness_Water_Mean(sunlit(:)) = meanTauLiquid
+      modisSim%Optical_Thickness_Ice_Mean  (sunlit(:)) = meanTauIce
+  
+      modisSim%Optical_Thickness_Total_LogMean(sunlit(:)) = meanLogTauTotal
+      modisSim%Optical_Thickness_Water_LogMean(sunlit(:)) = meanLogTauLiquid
+      modisSim%Optical_Thickness_Ice_LogMean  (sunlit(:)) = meanLogTauIce
+  
+      modisSim%Cloud_Particle_Size_Water_Mean(sunlit(:)) = meanSizeLiquid
+      modisSim%Cloud_Particle_Size_Ice_Mean  (sunlit(:)) = meanSizeIce
+  
+      modisSim%Cloud_Top_Pressure_Total_Mean(sunlit(:)) = meanCloudTopPressure
+  
+      modisSim%Liquid_Water_Path_Mean(sunlit(:)) = meanLiquidWaterPath
+      modisSim%Ice_Water_Path_Mean   (sunlit(:)) = meanIceWaterPath
+      
+      modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(sunlit(:), 2:numModisTauBins+1, :) = jointHistogram(:, :, :)
+      ! 
+      ! Reorder pressure bins in joint histogram to go from surface to TOA 
+      !
+      modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(:,:,:) = &
+        modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(:, :, numModisPressureBins:1:-1)
+      if(nSunlit < nPoints) then 
+        !
+        ! Where it's night and we haven't done the retrievals the values are undefined
+        !
+        modisSim%Cloud_Fraction_Total_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Cloud_Fraction_Water_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Cloud_Fraction_Ice_Mean  (notSunlit(:)) = R_UNDEF
+    
+        modisSim%Cloud_Fraction_High_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Cloud_Fraction_Mid_Mean (notSunlit(:)) = R_UNDEF
+        modisSim%Cloud_Fraction_Low_Mean (notSunlit(:)) = R_UNDEF
+
+        modisSim%Optical_Thickness_Total_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Optical_Thickness_Water_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Optical_Thickness_Ice_Mean  (notSunlit(:)) = R_UNDEF
+    
+        modisSim%Optical_Thickness_Total_LogMean(notSunlit(:)) = R_UNDEF
+        modisSim%Optical_Thickness_Water_LogMean(notSunlit(:)) = R_UNDEF
+        modisSim%Optical_Thickness_Ice_LogMean  (notSunlit(:)) = R_UNDEF
+    
+        modisSim%Cloud_Particle_Size_Water_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Cloud_Particle_Size_Ice_Mean  (notSunlit(:)) = R_UNDEF
+    
+        modisSim%Cloud_Top_Pressure_Total_Mean(notSunlit(:)) = R_UNDEF
+    
+        modisSim%Liquid_Water_Path_Mean(notSunlit(:)) = R_UNDEF
+        modisSim%Ice_Water_Path_Mean   (notSunlit(:)) = R_UNDEF
+  
+        modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(notSunlit(:), :, :) = R_UNDEF
+      end if 
+    else
+      !
+      ! It's nightime everywhere - everything is undefined
+      !
+      modisSim%Cloud_Fraction_Total_Mean(:) = R_UNDEF
+      modisSim%Cloud_Fraction_Water_Mean(:) = R_UNDEF
+      modisSim%Cloud_Fraction_Ice_Mean  (:) = R_UNDEF
+  
+      modisSim%Cloud_Fraction_High_Mean(:) = R_UNDEF
+      modisSim%Cloud_Fraction_Mid_Mean (:) = R_UNDEF
+      modisSim%Cloud_Fraction_Low_Mean (:) = R_UNDEF
+
+      modisSim%Optical_Thickness_Total_Mean(:) = R_UNDEF
+      modisSim%Optical_Thickness_Water_Mean(:) = R_UNDEF
+      modisSim%Optical_Thickness_Ice_Mean  (:) = R_UNDEF
+  
+      modisSim%Optical_Thickness_Total_LogMean(:) = R_UNDEF
+      modisSim%Optical_Thickness_Water_LogMean(:) = R_UNDEF
+      modisSim%Optical_Thickness_Ice_LogMean  (:) = R_UNDEF
+  
+      modisSim%Cloud_Particle_Size_Water_Mean(:) = R_UNDEF
+      modisSim%Cloud_Particle_Size_Ice_Mean  (:) = R_UNDEF
+  
+      modisSim%Cloud_Top_Pressure_Total_Mean(:) = R_UNDEF
+  
+      modisSim%Liquid_Water_Path_Mean(:) = R_UNDEF
+      modisSim%Ice_Water_Path_Mean   (:) = R_UNDEF
+  
+      modisSim%Optical_Thickness_vs_Cloud_Top_Pressure(:, :, :) = R_UNDEF
+    end if 
+
+  end subroutine COSP_Modis_Simulator
+  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  !------------- SUBROUTINE CONSTRUCT_COSP_MODIS ------------------
+  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_MODIS(cfg, nPoints, x)
+    type(cosp_config), intent(in)  :: cfg ! Configuration options
+    integer,           intent(in)  :: Npoints  ! Number of sampled points
+    type(cosp_MODIS),  intent(out) :: x
+    !
+    ! Allocate minumum storage if simulator not used
+    !
+    if (cfg%LMODIS_sim) then
+      x%nPoints  = nPoints
+    else
+      x%Npoints  = 1
+    endif
+    
+    ! --- Allocate arrays ---
+    allocate(x%Cloud_Fraction_Total_Mean(x%nPoints)) 
+    allocate(x%Cloud_Fraction_Water_Mean(x%nPoints)) 
+    allocate(x%Cloud_Fraction_Ice_Mean(x%nPoints)) 
+    
+    allocate(x%Cloud_Fraction_High_Mean(x%nPoints)) 
+    allocate(x%Cloud_Fraction_Mid_Mean(x%nPoints)) 
+    allocate(x%Cloud_Fraction_Low_Mean(x%nPoints)) 
+    
+    allocate(x%Optical_Thickness_Total_Mean(x%nPoints)) 
+    allocate(x%Optical_Thickness_Water_Mean(x%nPoints)) 
+    allocate(x%Optical_Thickness_Ice_Mean(x%nPoints)) 
+    
+    allocate(x%Optical_Thickness_Total_LogMean(x%nPoints)) 
+    allocate(x%Optical_Thickness_Water_LogMean(x%nPoints)) 
+    allocate(x%Optical_Thickness_Ice_LogMean(x%nPoints)) 
+    
+    allocate(x%Cloud_Particle_Size_Water_Mean(x%nPoints)) 
+    allocate(x%Cloud_Particle_Size_Ice_Mean(x%nPoints)) 
+    
+    allocate(x%Cloud_Top_Pressure_Total_Mean(x%nPoints)) 
+    
+    allocate(x%Liquid_Water_Path_Mean(x%nPoints)) 
+    allocate(x%Ice_Water_Path_Mean(x%nPoints)) 
+      
+    allocate(x%Optical_Thickness_vs_Cloud_Top_Pressure(nPoints, numModisTauBins+1, numModisPressureBins))
+    x%Optical_Thickness_vs_Cloud_Top_Pressure(:, :, :) = R_UNDEF
+  END SUBROUTINE CONSTRUCT_COSP_MODIS
+
+  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  !------------- SUBROUTINE FREE_COSP_MODIS -----------------------
+  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_MODIS(x)
+    type(cosp_MODIS),intent(inout) :: x
+    !
+    ! Free space used by cosp_modis variable. 
+    !
+    
+    if(associated(x%Cloud_Fraction_Total_Mean)) deallocate(x%Cloud_Fraction_Total_Mean) 
+    if(associated(x%Cloud_Fraction_Water_Mean)) deallocate(x%Cloud_Fraction_Water_Mean) 
+    if(associated(x%Cloud_Fraction_Ice_Mean  )) deallocate(x%Cloud_Fraction_Ice_Mean) 
+    
+    if(associated(x%Cloud_Fraction_High_Mean)) deallocate(x%Cloud_Fraction_High_Mean) 
+    if(associated(x%Cloud_Fraction_Mid_Mean )) deallocate(x%Cloud_Fraction_Mid_Mean) 
+    if(associated(x%Cloud_Fraction_Low_Mean )) deallocate(x%Cloud_Fraction_Low_Mean) 
+    
+    if(associated(x%Optical_Thickness_Total_Mean)) deallocate(x%Optical_Thickness_Total_Mean) 
+    if(associated(x%Optical_Thickness_Water_Mean)) deallocate(x%Optical_Thickness_Water_Mean) 
+    if(associated(x%Optical_Thickness_Ice_Mean  )) deallocate(x%Optical_Thickness_Ice_Mean) 
+    
+    if(associated(x%Optical_Thickness_Total_LogMean)) deallocate(x%Optical_Thickness_Total_LogMean) 
+    if(associated(x%Optical_Thickness_Water_LogMean)) deallocate(x%Optical_Thickness_Water_LogMean) 
+    if(associated(x%Optical_Thickness_Ice_LogMean  )) deallocate(x%Optical_Thickness_Ice_LogMean) 
+    
+    if(associated(x%Cloud_Particle_Size_Water_Mean)) deallocate(x%Cloud_Particle_Size_Water_Mean) 
+    if(associated(x%Cloud_Particle_Size_Ice_Mean  )) deallocate(x%Cloud_Particle_Size_Ice_Mean) 
+    
+    if(associated(x%Cloud_Top_Pressure_Total_Mean )) deallocate(x%Cloud_Top_Pressure_Total_Mean   ) 
+    
+    if(associated(x%Liquid_Water_Path_Mean)) deallocate(x%Liquid_Water_Path_Mean   ) 
+    if(associated(x%Ice_Water_Path_Mean   )) deallocate(x%Ice_Water_Path_Mean   ) 
+    
+    if(associated(x%Optical_Thickness_vs_Cloud_Top_Pressure)) deallocate(x%Optical_Thickness_vs_Cloud_Top_Pressure   ) 
+  END SUBROUTINE FREE_COSP_MODIS
+  ! -----------------------------------------------------
+
+  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  !------------- SUBROUTINE COSP_MODIS_CPSECTION -----------------
+  !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE COSP_MODIS_CPSECTION(ix, iy, orig, copy)
+    integer, dimension(2), intent(in) :: ix, iy
+    type(cosp_modis),      intent(in   ) :: orig
+    type(cosp_modis),      intent(  out) :: copy
+    !
+    ! Copy a set of grid points from one cosp_modis variable to another.
+    !   Should test to be sure ix and iy refer to the same number of grid points 
+    !
+    integer :: orig_start, orig_end, copy_start, copy_end
+    
+    orig_start = ix(1); orig_end = ix(2)
+    copy_start = iy(1); copy_end = iy(2) 
+    
+    copy%Cloud_Fraction_Total_Mean(copy_start:copy_end) = orig%Cloud_Fraction_Total_Mean(orig_start:orig_end)
+    copy%Cloud_Fraction_Water_Mean(copy_start:copy_end) = orig%Cloud_Fraction_Water_Mean(orig_start:orig_end)
+    copy%Cloud_Fraction_Ice_Mean  (copy_start:copy_end) = orig%Cloud_Fraction_Ice_Mean  (orig_start:orig_end)
+    
+    copy%Cloud_Fraction_High_Mean(copy_start:copy_end) = orig%Cloud_Fraction_High_Mean(orig_start:orig_end)
+    copy%Cloud_Fraction_Mid_Mean (copy_start:copy_end) = orig%Cloud_Fraction_Mid_Mean (orig_start:orig_end)
+    copy%Cloud_Fraction_Low_Mean (copy_start:copy_end) = orig%Cloud_Fraction_Low_Mean (orig_start:orig_end)
+    
+    copy%Optical_Thickness_Total_Mean(copy_start:copy_end) = orig%Optical_Thickness_Total_Mean(orig_start:orig_end)
+    copy%Optical_Thickness_Water_Mean(copy_start:copy_end) = orig%Optical_Thickness_Water_Mean(orig_start:orig_end)
+    copy%Optical_Thickness_Ice_Mean  (copy_start:copy_end) = orig%Optical_Thickness_Ice_Mean  (orig_start:orig_end)
+    
+    copy%Optical_Thickness_Total_LogMean(copy_start:copy_end) = &
+                                                          orig%Optical_Thickness_Total_LogMean(orig_start:orig_end)
+    copy%Optical_Thickness_Water_LogMean(copy_start:copy_end) = &
+                                                          orig%Optical_Thickness_Water_LogMean(orig_start:orig_end)
+    copy%Optical_Thickness_Ice_LogMean  (copy_start:copy_end) = &
+                                                          orig%Optical_Thickness_Ice_LogMean  (orig_start:orig_end)
+
+    copy%Cloud_Particle_Size_Water_Mean(copy_start:copy_end) = orig%Cloud_Particle_Size_Water_Mean(orig_start:orig_end)
+    copy%Cloud_Particle_Size_Ice_Mean  (copy_start:copy_end) = orig%Cloud_Particle_Size_Ice_Mean  (orig_start:orig_end)
+
+    copy%Cloud_Top_Pressure_Total_Mean(copy_start:copy_end) = orig%Cloud_Top_Pressure_Total_Mean(orig_start:orig_end)
+    
+    copy%Liquid_Water_Path_Mean(copy_start:copy_end) = orig%Liquid_Water_Path_Mean(orig_start:orig_end)
+    copy%Ice_Water_Path_Mean   (copy_start:copy_end) = orig%Ice_Water_Path_Mean  (orig_start:orig_end)
+    
+    copy%Optical_Thickness_vs_Cloud_Top_Pressure(copy_start:copy_end, :, :) = &
+                          orig%Optical_Thickness_vs_Cloud_Top_Pressure(orig_start:orig_end, :, :)
+  END SUBROUTINE COSP_MODIS_CPSECTION
+  ! -----------------------------------------------------
+
+END MODULE MOD_COSP_Modis_Simulator
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_output_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_output_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_output_mod.F90	(revision 3330)
@@ -0,0 +1,383 @@
+! A.Idelkadi sept 2013 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Module pour declarer et initialiser les parametres de controle des fichiers de sorties et des champs a sortir
+!! La routine cosp_output_open (appelee 1 seule fois dans phy_cosp.F90) permet :
+!! de creer les fichiers avec leurs grilles horizontales et verticales
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  MODULE cosp_output_mod
+
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  use MOD_COSP_Modis_Simulator, only : cosp_modis
+
+! cosp_output_mod
+      INTEGER, PRIVATE             :: i
+!!!!!!! Controle des fichier de sorties Cosp !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      LOGICAL, DIMENSION(3), SAVE  :: cosp_outfilekeys
+      INTEGER, DIMENSION(3), SAVE  :: cosp_nidfiles
+!$OMP THREADPRIVATE(cosp_outfilekeys, cosp_nidfiles)
+      INTEGER, DIMENSION(3), SAVE  :: nhoricosp,nvert,nvertmcosp,nvertcol,nvertbze, &
+                                      nvertsratio,nvertisccp,nvertp,nverttemp,nvertmisr
+      REAL, DIMENSION(3), SAVE                :: zoutm_cosp
+!$OMP THREADPRIVATE(nhoricosp, nvert,nvertmcosp,nvertcol,nvertsratio,nvertbze,nvertisccp,nvertp,zoutm_cosp,nverttemp,nvertmisr)
+      REAL, SAVE                   :: zdtimemoy_cosp
+!$OMP THREADPRIVATE(zdtimemoy_cosp) 
+      CHARACTER(LEN=20), DIMENSION(3), SAVE  :: cosp_outfiletypes
+      CHARACTER(LEN=20), DIMENSION(3), SAVE  :: cosp_outfilenames
+      REAL, DIMENSION(3), SAVE               :: cosp_ecritfiles 
+!$OMP THREADPRIVATE(cosp_outfiletypes, cosp_outfilenames, cosp_ecritfiles)
+
+!!!!  Controle des variables a sortir dans les fichiers !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  TYPE ctrl_outcosp
+     LOGICAL,DIMENSION(3)                 :: cles             !!! Sortir ou non le champs
+     CHARACTER(len=20)                    :: name       
+     CHARACTER(len=150)                   :: description      !!! Nom
+     CHARACTER(len=20)                    :: unit             !!! Unite 
+     CHARACTER(len=20),DIMENSION(3)  :: cosp_typeecrit        !!! Operation (ave, inst, ...)
+  END TYPE ctrl_outcosp
+
+! CALIPSO vars
+  TYPE(ctrl_outcosp), SAVE :: o_cllcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cllcalipso", "Lidar Low-level Cloud Fraction", "%", (/ ('', i=1, 3) /))                                   
+  TYPE(ctrl_outcosp), SAVE :: o_clmcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clmcalipso", "Lidar Mid-level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clhcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clhcalipso", "Lidar Hight-level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cltcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cltcalipso", "Lidar Total Cloud Fraction", "%", (/ ('', i=1, 3) /)) 
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipso = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipso", "Lidar Cloud Fraction (532 nm)", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cfad_lidarsr532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+         "cfad_lidarsr532", "Lidar Scattering Ratio CFAD (532 nm)", "1", (/ ('', i=1, 3) /))   
+  TYPE(ctrl_outcosp), SAVE :: o_parasol_refl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "parasol_refl", "PARASOL-like mono-directional reflectance","1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_parasol_crefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &              
+         "parasol_crefl", "PARASOL-like mono-directional reflectance (integral)","1", (/ ('', i=1, 3) /))                  
+  TYPE(ctrl_outcosp), SAVE :: o_Ncrefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "Ncrefl", "Nb PARASOL-like mono-directional reflectance (integral)","1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_atb532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+         "atb532", "Lidar Attenuated Total Backscatter (532 nm)","1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_beta_mol532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+         "beta_mol532", "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", (/ ('', i=1, 3) /))
+!! AI  11 2015
+  TYPE(ctrl_outcosp), SAVE :: o_cllcalipsoice = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 
+         "cllcalipsoice", "CALIPSO Ice-Phase Low Level Cloud Fraction", "%", (/ ('', i=1, 3) /))  
+  TYPE(ctrl_outcosp), SAVE :: o_cllcalipsoliq = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cllcalipsoliq", "CALIPSO Liq-Phase Low Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clmcalipsoice = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clmcalipsoice", "CALIPSO Ice-Phase Mid Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clmcalipsoliq = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clmcalipsoliq", "CALIPSO Liq-Phase Mid Level Cloud Fraction", "%", (/ ('', i=1, 3) /))	 	 
+  TYPE(ctrl_outcosp), SAVE :: o_clhcalipsoice = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 
+         "clhcalipsoice", "CALIPSO Ice-Phase High Level Cloud Fraction", "%", (/ ('', i=1, 3) /))  
+  TYPE(ctrl_outcosp), SAVE :: o_clhcalipsoliq = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clhcalipsoliq", "CALIPSO Liq-Phase High Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cltcalipsoice = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cltcalipsoice", "CALIPSO Ice-Phase Tot Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cltcalipsoliq = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cltcalipsoliq", "CALIPSO Liq-Phase Tot Level Cloud Fraction", "%", (/ ('', i=1, 3) /))	 	 
+  TYPE(ctrl_outcosp), SAVE :: o_cllcalipsoun = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), & 
+         "cllcalipsoun", "CALIPSO Undefined-Phase Low Level Cloud Fraction", "%", (/ ('', i=1, 3) /))  
+  TYPE(ctrl_outcosp), SAVE :: o_clmcalipsoun = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clmcalipsoun", "CALIPSO Undefined-Phase Mid Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clhcalipsoun = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clhcalipsoun", "CALIPSO Undefined-Phase High Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cltcalipsoun = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cltcalipsoun", "CALIPSO Undefined-Phase Tot Level Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsoice = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsoice", "Lidar Ice-Phase Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsoliq = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsoliq", "Lidar Liq-Phase Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsoun = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsoun", "Lidar Undef-Phase Cloud Fraction", "%", (/ ('', i=1, 3) /))	 
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsotmpice = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsotmpice", "Lidar Ice-Phase Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsotmpliq = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsotmpliq", "Lidar Liq-Phase Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsotmpun = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsotmpun", "Lidar Undef-Phase Cloud Fraction", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipsotmp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipsotmp", "Lidar Cloud Fraction", "%", (/ ('', i=1, 3) /))
+
+! Radar Cloudsat
+  TYPE(ctrl_outcosp), SAVE :: o_cfadDbze94 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cfadDbze94", "CloudSat Radar Reflectivity CFAD", "%", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_dbze94 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "dbze94", "CloudSat Radar Reflectivity", "%", (/ ('', i=1, 3) /))
+
+! Calipso + Cloudsat
+  TYPE(ctrl_outcosp), SAVE :: o_clcalipso2 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clcalipso2", "CALIPSO Cloud Fraction Undetected by CloudSat", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cltlidarradar = ctrl_outcosp((/ .TRUE., .TRUE.,.TRUE. /), &          
+         "cltlidarradar", "Lidar and Radar Total Cloud Fraction", "%", (/ ('', i=1, 3) /))
+     
+! ISCCP vars
+  TYPE(ctrl_outcosp), SAVE :: o_sunlit = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "sunlit", "1 for day points, 0 for nightime","1",(/ ('', i=1, 3) /))                   
+  TYPE(ctrl_outcosp), SAVE :: o_clisccp2 = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clisccp2", "Cloud Fraction as Calculated by the ISCCP Simulator","1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_boxtauisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+         "boxtauisccp", "Optical Depth in Each Column as Calculated by the ISCCP Simulator","1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_boxptopisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+         "boxptopisccp", "Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator","Pa", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_tclisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+          "tclisccp", "Total Cloud Fraction as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /)) 
+  TYPE(ctrl_outcosp), SAVE :: o_ctpisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+          "ctpisccp", "Mean Cloud Top Pressure as Calculated by the ISCCP Simulator", "Pa", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_tauisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+          "tauisccp", "Optical Depth as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_albisccp = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+          "albisccp", "Mean Cloud Albedo as Calculated by the ISCCP Simulator", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_meantbisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+          "meantbisccp", " Mean all-sky 10.5 micron brightness temperature as calculated &
+           by the ISCCP Simulator","K", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_meantbclrisccp = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
+          "meantbclrisccp", "Mean clear-sky 10.5 micron brightness temperature as calculated &
+           by the ISCCP Simulator","K", (/ ('', i=1, 3) /))
+
+! MISR simulator
+  TYPE(ctrl_outcosp), SAVE :: o_clMISR = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clMISR", "Cloud Fraction as Calculated by the MISR Simulator","1", (/ ('', i=1, 3) /))
+
+! MODIS simulator
+  TYPE(ctrl_outcosp), SAVE :: o_cllmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cllmodis", "MODIS Low-level Cloud Fraction", "1", (/ ('', i=1, 3) /))                                   
+  TYPE(ctrl_outcosp), SAVE :: o_clmmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clmmodis", "MODIS Mid-level Cloud Fraction", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_clhmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clhmodis", "MODIS Hight-level Cloud Fraction", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_cltmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "cltmodis", "MODIS Total Cloud Fraction", "1", (/ ('', i=1, 3) /)) 
+  TYPE(ctrl_outcosp), SAVE :: o_clwmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clwmodis", "MODIS Cloud Fraction water mean", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_climodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "climodis", "MODIS Cloud Fraction ice mean", "1", (/ ('', i=1, 3) /))	
+  TYPE(ctrl_outcosp), SAVE :: o_tautmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tautmodis", "MODIS Optical_Thickness_Total_Mean", "1", (/ ('', i=1, 3) /))                                   
+  TYPE(ctrl_outcosp), SAVE :: o_tauwmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tauwmodis", "MODIS Optical_Thickness_Water_Mean", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_tauimodis= ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tauimodis", "MODIS Optical_Thickness_Ice_Mean", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_tautlogmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tautlogmodis", "MODIS Optical_Thickness_Total_logMean", "1", (/ ('', i=1, 3) /))                                   
+  TYPE(ctrl_outcosp), SAVE :: o_tauwlogmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tauwlogmodis", "MODIS Optical_Thickness_Water_logMean", "1", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_tauilogmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tauilogmodis", "MODIS Optical_Thickness_Ice_logMean", "1", (/ ('', i=1, 3) /))	 
+  TYPE(ctrl_outcosp), SAVE :: o_reffclwmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "reffclwmodis", "Modis Cloud_Particle_Size_Water_Mean", "m", (/ ('', i=1, 3) /))	 	 
+  TYPE(ctrl_outcosp), SAVE :: o_reffclimodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "reffclimodis", "Modis Cloud_Particle_Size_Ice_Mean", "m", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_pctmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "pctmodis", "Modis Cloud_Top_Pressure_Total_Mean", "Pa", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_lwpmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "lwpmodis", "Modis Liquid_Water_Path_Mean", "kg m-2", (/ ('', i=1, 3) /))
+  TYPE(ctrl_outcosp), SAVE :: o_iwpmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "iwpmodis", "Modis Ice_Water_Path_Mean", "kg m-2", (/ ('', i=1, 3) /))	 
+  TYPE(ctrl_outcosp), SAVE :: o_clmodis = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "clmodis", "MODIS Cloud Area Fraction", "%", (/ ('', i=1, 3) /))
+
+! Rttovs simulator
+  TYPE(ctrl_outcosp), SAVE :: o_tbrttov = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "tbrttov", "Rttovs Cloud Area Fraction", "%", (/ ('', i=1, 3) /))
+
+! Scops and others
+  TYPE(ctrl_outcosp), SAVE :: o_fracout = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "fracout", "Subcolumn output from SCOPS", "%", (/ ('', i=1, 3) /))	 
+
+  LOGICAL, SAVE :: cosp_varsdefined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
+  REAL, SAVE  :: Cosp_fill_value
+!$OMP THREADPRIVATE(Cosp_fill_value)
+ 
+
+CONTAINS
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!! Ouverture des fichier et definition des  axes!!!!!!!!
+  !! histbeg, histvert
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
+
+  SUBROUTINE cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
+                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml,  &
+                              ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
+
+
+  USE iophy
+  USE ioipsl
+  USE phys_cal_mod
+  USE time_phylmdz_mod, ONLY: day_ref, annee_ref, day_ini, start_time, itau_phy
+  USE print_control_mod, ONLY: lunout
+
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+    USE wxios
+#endif
+
+  IMPLICIT NONE
+
+!!! Variables d'entree
+  integer                  :: Nlevlmdz, Ncolumns      ! Number of levels
+  real,dimension(Nlevlmdz) :: presnivs
+  real                     :: dtime, freq_cosp, ecrit_day, ecrit_hf, ecrit_mth 
+  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,zjulian_start
+  real,dimension(Ncolumns)  :: column_ax
+  real,dimension(2,SR_BINS) :: sratio_bounds
+  real,dimension(SR_BINS)   ::  sratio_ax
+  CHARACTER(LEN=20), DIMENSION(3)  :: chfreq = (/ '1day', '1d  ', '3h  ' /)            
+
+!!! Variables d'entree
+
+#ifdef CPP_XIOS
+    ! ug Variables utilisées pour récupérer 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
+
+    WRITE(lunout,*) 'Debut cosp_output_mod.F90'
+    print*,'cosp_varsdefined',cosp_varsdefined
+    ! Initialisations (Valeurs par defaut)
+
+!! Definition valeurs axes
+    do ii=1,Ncolumns
+      column_ax(ii) = real(ii)
+    enddo
+
+!    do ii=1,DBZE_BINS
+!     dbze_ax(i) = CFAD_ZE_MIN + CFAD_ZE_WIDTH*(ii - 0.5)
+!    enddo
+
+!   sratio_bounds(2,:)=stlidar%srbval(:) ! srbval contains the upper
+!                                         limits from lmd_ipsl_stats.f90
+!   sratio_bounds(1,2:SR_BINS) = stlidar%srbval(1:SR_BINS-1)
+!   sratio_bounds(1,1)         = 0.0
+!   sratio_bounds(2,SR_BINS)   = 1.e5 ! This matches with Chepfer et al., JGR,
+!                                    ! 2009. However, it is not consistent 
+                                     ! with the upper limit in
+                                     ! lmd_ipsl_stats.f90, which is
+                                     ! LIDAR_UNDEF-1=998.999
+!    sratio_ax(:) = (sratio_bounds(1,:)+sratio_bounds(2,:))/2.0 
+
+    cosp_outfilenames(1) = 'histmthCOSP'
+    cosp_outfilenames(2) = 'histdayCOSP'
+    cosp_outfilenames(3) = 'histhfCOSP'
+
+    cosp_outfiletypes(1) = 'ave(X)'
+    cosp_outfiletypes(2) = 'ave(X)'
+    cosp_outfiletypes(3) = 'ave(X)'
+
+    cosp_outfilekeys(1) = ok_mensuelCOSP
+    cosp_outfilekeys(2) = ok_journeCOSP
+    cosp_outfilekeys(3) = ok_hfCOSP
+
+    cosp_ecritfiles(1) = mth_len*86400.
+    cosp_ecritfiles(2) = 1.*86400.
+    cosp_ecritfiles(3) = 0.125*86400.
+
+! Lecture des parametres dans output.def ou config.def
+
+    CALL getin('cosp_outfilenames',cosp_outfilenames)
+    CALL getin('cosp_outfilekeys',cosp_outfilekeys)
+    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_ecritfiles=',cosp_ecritfiles
+    WRITE(lunout,*)'cosp_outfiletypes=',cosp_outfiletypes
+    
+    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
+    
+! recuperer la valeur indefine Xios
+!    CALL xios_get_field_attr("clcalipso",default_value=Cosp_fill_value)
+!         Cosp_fill_value=missing_val
+          Cosp_fill_value=0.
+         print*,'Cosp_fill_value=',Cosp_fill_value
+!    if (use_vgrid) then
+!      print*,'vgrid%Nlvgrid, vgrid%z = ',vgrid%Nlvgrid, vgrid%z
+        CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z)
+     print*,'wxios_add_vaxis '
+!    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)
+
+! AI nov 2015
+   CALL wxios_add_vaxis("temp", LIDAR_NTEMP, LIDAR_PHASE_TEMP)
+   CALL wxios_add_vaxis("cth16", MISR_N_CTH, MISR_CTH)
+!   CALL wxios_add_vaxis("dbze", DBZE_BINS, dbze_ax) 
+!   CALL wxios_add_vaxis("scatratio", SR_BINS, sratio_ax)
+#endif
+   
+    zdtimemoy_cosp = freq_COSP         ! Frequence ou l on moyenne
+
+    DO iff=1,3
+       zoutm_cosp(iff) = cosp_ecritfiles(iff) ! Frequence ou l on ecrit en seconde
+
+       IF (cosp_outfilekeys(iff)) THEN
+           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",vgrid%Nlvgrid,vgrid%z,nvert(iff))
+       else
+! Axe vertical modele LMDZ presnivs
+      CALL histvert(cosp_nidfiles(iff),"presnivs","Vertical levels","Pa",vgrid%Nlvgrid,presnivs,nvert(iff),"down")
+       endif
+! Axe vertical niveaux modele (en m)
+      CALL histvert(cosp_nidfiles(iff),"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp(iff))
+
+      CALL histvert(cosp_nidfiles(iff),"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp(iff))
+
+      CALL histvert(cosp_nidfiles(iff),"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp(iff),"down")
+
+      CALL histvert(cosp_nidfiles(iff),"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol(iff))
+
+      CALL histvert(cosp_nidfiles(iff),"temp","temperature","C",LIDAR_NTEMP,LIDAR_PHASE_TEMP,nverttemp(iff))
+
+      CALL histvert(cosp_nidfiles(iff),"cth16","altitude","m",MISR_N_CTH,MISR_CTH,nvertmisr(iff))
+
+!      CALL histvert(cosp_nidfiles(iff),"dbze","equivalent_reflectivity_factor","dBZ",DBZE_BINS,dbze_ax,nvertbze(iff))
+     
+!      CALL histvert(cosp_nidfiles(iff),"scatratio","backscattering_ratio","1",SR_BINS,sratio_ax,nvertsratio(iff))
+     
+!!! Valeur indefinie en cas IOIPSL
+     Cosp_fill_value=0.
+
+#endif
+
+      ENDIF
+  ENDDO
+
+    end SUBROUTINE cosp_output_open
+
+ END MODULE cosp_output_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_output_write_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_output_write_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_output_write_mod.F90	(revision 3330)
@@ -0,0 +1,785 @@
+!!!! Abderrahmane Idelkadi aout 2013 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Module pour definir (au 1er appel) et ecrire les variables dans les fichiers de sortie cosp
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+   MODULE cosp_output_write_mod
+  
+   USE cosp_output_mod
+  
+   INTEGER, SAVE  :: itau_iocosp
+!$OMP THREADPRIVATE(itau_iocosp)
+   INTEGER, save        :: Nlevout, Ncolout
+!$OMP THREADPRIVATE(Nlevout, Ncolout)
+
+!  INTERFACE histwrite_cosp
+!    MODULE PROCEDURE histwrite2d_cosp,histwrite3d_cosp
+!  END INTERFACE
+
+   CONTAINS
+
+  SUBROUTINE cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, &
+                               cfg, gbx, vgrid, sglidar, sgradar, stlidar, stradar, &
+                               isccp, misr, modis)
+
+    USE ioipsl
+    USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy
+    USE print_control_mod, ONLY: lunout,prt_level
+
+#ifdef CPP_XIOS
+    USE wxios, only: wxios_closedef
+    USE xios, only: xios_update_calendar
+#endif
+
+!!! Variables d'entree
+  integer               :: itap, Nlevlmdz, Ncolumns, Npoints
+  real                  :: freq_COSP, dtime
+  type(cosp_config)     :: cfg     ! Control outputs
+  type(cosp_gridbox)    :: gbx     ! Gridbox information. Input for COSP
+  type(cosp_sglidar)    :: sglidar ! Output from lidar simulator
+  type(cosp_sgradar)    :: sgradar ! Output from radar simulator
+  type(cosp_isccp)      :: isccp   ! Output from ISCCP simulator
+  type(cosp_lidarstats) :: stlidar ! Summary statistics from lidar simulator
+  type(cosp_radarstats) :: stradar
+  type(cosp_misr)       :: misr    ! Output from MISR
+  type(cosp_modis)      :: modis   ! Outputs from Modis
+  type(cosp_vgrid)      :: vgrid   ! Information on vertical grid of stats
+
+!!! Variables locales
+  integer               :: icl
+  logical               :: ok_sync
+  integer               :: itau_wcosp
+  real, dimension(Npoints,PARASOL_NREFL) :: parasolcrefl, Ncref
+
+  Nlevout = vgrid%Nlvgrid
+  Ncolout = Ncolumns
+
+! A refaire
+       itau_wcosp = itau_phy + itap + start_time * day_step_phy
+        if (prt_level >= 10) then
+             WRITE(lunout,*)'itau_wcosp, itap, start_time, day_step_phy =', & 
+                             itau_wcosp, itap, start_time, day_step_phy
+        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.
+    
+!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
+!   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
+  do k = 1,Nlevout
+     do ip = 1,Npoints
+     if(stlidar%lidarcld(ip,k).eq.R_UNDEF)then
+      stlidar%lidarcld(ip,k)=Cosp_fill_value
+     endif
+     enddo
+
+     do ii= 1,SR_BINS
+      do ip = 1,Npoints
+       if(stlidar%cfad_sr(ip,ii,k).eq.R_UNDEF)then
+        stlidar%cfad_sr(ip,ii,k)=Cosp_fill_value
+       endif
+      enddo
+     enddo
+   enddo
+
+  do ip = 1,Npoints
+   do k = 1,Nlevlmdz
+     if(sglidar%beta_mol(ip,k).eq.R_UNDEF)then
+      sglidar%beta_mol(ip,k)=Cosp_fill_value
+     endif
+
+     do ii= 1,Ncolumns
+       if(sglidar%beta_tot(ip,ii,k).eq.R_UNDEF)then
+        sglidar%beta_tot(ip,ii,k)=Cosp_fill_value
+       endif
+     enddo
+
+    enddo    !k = 1,Nlevlmdz
+   enddo     !ip = 1,Npoints
+
+   do k = 1,LIDAR_NCAT
+    do ip = 1,Npoints
+     if(stlidar%cldlayer(ip,k).eq.R_UNDEF)then
+      stlidar%cldlayer(ip,k)=Cosp_fill_value
+     endif
+    enddo
+   enddo
+
+! AI 11 / 2015
+
+   where(stlidar%parasolrefl == R_UNDEF) stlidar%parasolrefl = 0.0
+   where(stlidar%lidarcldtmp == R_UNDEF) stlidar%lidarcldtmp = 0.0
+   where(stlidar%cldlayerphase == R_UNDEF) stlidar%cldlayerphase = 0.0
+   where(stlidar%lidarcldphase == R_UNDEF) stlidar%lidarcldphase = 0.0
+   where(stlidar%lidarcldtmp == R_UNDEF) stlidar%lidarcldtmp = 0.0
+   
+
+   print*,'Appel histwrite2d_cosp'
+   CALL histwrite2d_cosp(o_cllcalipso,stlidar%cldlayer(:,1))
+   CALL histwrite2d_cosp(o_clhcalipso,stlidar%cldlayer(:,3))
+   CALL histwrite2d_cosp(o_clmcalipso,stlidar%cldlayer(:,2)) 
+   CALL histwrite2d_cosp(o_cltcalipso,stlidar%cldlayer(:,4))
+   CALL histwrite3d_cosp(o_clcalipso,stlidar%lidarcld,nvert)
+   CALL histwrite3d_cosp(o_clcalipsotmp,stlidar%lidarcldtmp(:,:,1),nverttemp)
+
+   CALL histwrite2d_cosp(o_cllcalipsoice,stlidar%cldlayerphase(:,1,1))
+   CALL histwrite2d_cosp(o_clhcalipsoice,stlidar%cldlayerphase(:,3,1))
+   CALL histwrite2d_cosp(o_clmcalipsoice,stlidar%cldlayerphase(:,2,1))
+   CALL histwrite2d_cosp(o_cltcalipsoice,stlidar%cldlayerphase(:,4,1))
+   CALL histwrite3d_cosp(o_clcalipsoice,stlidar%lidarcldphase(:,:,1),nvert)
+   CALL histwrite3d_cosp(o_clcalipsotmpice,stlidar%lidarcldtmp(:,:,2),nverttemp)
+
+   CALL histwrite2d_cosp(o_cllcalipsoliq,stlidar%cldlayerphase(:,1,2))
+   CALL histwrite2d_cosp(o_clhcalipsoliq,stlidar%cldlayerphase(:,3,2))
+   CALL histwrite2d_cosp(o_clmcalipsoliq,stlidar%cldlayerphase(:,2,2))
+   CALL histwrite2d_cosp(o_cltcalipsoliq,stlidar%cldlayerphase(:,4,2))
+   CALL histwrite3d_cosp(o_clcalipsoliq,stlidar%lidarcldphase(:,:,2),nvert)
+   CALL histwrite3d_cosp(o_clcalipsotmpliq,stlidar%lidarcldtmp(:,:,3),nverttemp)
+
+   CALL histwrite2d_cosp(o_cllcalipsoun,stlidar%cldlayerphase(:,1,3))
+   CALL histwrite2d_cosp(o_clhcalipsoun,stlidar%cldlayerphase(:,3,3))
+   CALL histwrite2d_cosp(o_clmcalipsoun,stlidar%cldlayerphase(:,2,3))
+   CALL histwrite2d_cosp(o_cltcalipsoun,stlidar%cldlayerphase(:,4,3))
+   CALL histwrite3d_cosp(o_clcalipsoun,stlidar%lidarcldphase(:,:,3),nvert)
+   CALL histwrite3d_cosp(o_clcalipsotmpun,stlidar%lidarcldtmp(:,:,4),nverttemp)
+
+   do icl=1,SR_BINS
+      CALL histwrite3d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr(:,icl,:),nvert,icl)
+   enddo
+
+   CALL histwrite3d_cosp(o_parasol_refl,stlidar%parasolrefl,nvertp)
+
+   do k=1,PARASOL_NREFL
+    do ip=1, Npoints
+     if (stlidar%cldlayer(ip,4).gt.0.01) then
+       parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ &
+                            stlidar%cldlayer(ip,4)
+        Ncref(ip,k) = 1.
+     else
+        parasolcrefl(ip,k)=0.
+        Ncref(ip,k) = 0.
+     endif
+    enddo
+   enddo
+   CALL histwrite3d_cosp(o_Ncrefl,Ncref,nvertp)
+   CALL histwrite3d_cosp(o_parasol_crefl,parasolcrefl,nvertp)
+
+   do icl=1,Ncolumns 
+      CALL histwrite3d_cosp(o_atb532,sglidar%beta_tot(:,icl,:),nvertmcosp,icl)
+   enddo
+   CALL histwrite3d_cosp(o_beta_mol532,sglidar%beta_mol,nvertmcosp) 
+ endif !Lidar
+
+ if (cfg%Lradar_sim) then
+   do icl=1,Ncolumns
+      CALL histwrite3d_cosp(o_dbze94,sgradar%Ze_tot(:,icl,:),nvertmcosp,icl)
+   enddo
+   do icl=1,DBZE_BINS
+    CALL histwrite3d_cosp(o_cfadDbze94,stradar%cfad_ze(:,icl,:),nvert,icl)
+   enddo
+ endif
+
+ if (cfg%Llidar_sim .and. cfg%Lradar_sim) then
+   where(stradar%lidar_only_freq_cloud == R_UNDEF) &
+                           stradar%lidar_only_freq_cloud = 0.0
+   CALL histwrite3d_cosp(o_clcalipso2,stradar%lidar_only_freq_cloud,nvert)
+   where(stradar%radar_lidar_tcc == R_UNDEF) &
+                           stradar%radar_lidar_tcc = 0.0 
+   CALL histwrite2d_cosp(o_cltlidarradar,stradar%radar_lidar_tcc)
+ endif
+
+ if (cfg%Lisccp_sim) then
+
+! Traitement des valeurs indefinies
+   do ip = 1,Npoints
+    if(isccp%totalcldarea(ip).eq.R_UNDEF)then
+      isccp%totalcldarea(ip)=Cosp_fill_value
+    endif
+    if(isccp%meanptop(ip).eq.R_UNDEF)then
+      isccp%meanptop(ip)=Cosp_fill_value
+    endif
+    if(isccp%meantaucld(ip).eq.R_UNDEF)then
+      isccp%meantaucld(ip)=Cosp_fill_value
+    endif
+    if(isccp%meanalbedocld(ip).eq.R_UNDEF)then
+      isccp%meanalbedocld(ip)=Cosp_fill_value
+    endif
+    if(isccp%meantb(ip).eq.R_UNDEF)then
+      isccp%meantb(ip)=Cosp_fill_value
+    endif
+    if(isccp%meantbclr(ip).eq.R_UNDEF)then
+      isccp%meantbclr(ip)=Cosp_fill_value
+    endif
+
+    do k=1,7
+     do ii=1,7
+     if(isccp%fq_isccp(ip,ii,k).eq.R_UNDEF)then
+      isccp%fq_isccp(ip,ii,k)=Cosp_fill_value
+     endif
+     enddo
+    enddo
+
+    do ii=1,Ncolumns
+     if(isccp%boxtau(ip,ii).eq.R_UNDEF)then
+       isccp%boxtau(ip,ii)=Cosp_fill_value
+     endif
+    enddo
+
+    do ii=1,Ncolumns
+     if(isccp%boxptop(ip,ii).eq.R_UNDEF)then
+       isccp%boxptop(ip,ii)=Cosp_fill_value
+     endif
+    enddo
+   enddo
+
+   CALL histwrite2d_cosp(o_sunlit,gbx%sunlit)
+   do icl=1,7
+   CALL histwrite3d_cosp(o_clisccp2,isccp%fq_isccp(:,icl,:),nvertisccp,icl) 
+   enddo
+   CALL histwrite3d_cosp(o_boxtauisccp,isccp%boxtau,nvertcol)
+   CALL histwrite3d_cosp(o_boxptopisccp,isccp%boxptop,nvertcol) 
+   CALL histwrite2d_cosp(o_tclisccp,isccp%totalcldarea) 
+   CALL histwrite2d_cosp(o_ctpisccp,isccp%meanptop) 
+   CALL histwrite2d_cosp(o_tauisccp,isccp%meantaucld) 
+   CALL histwrite2d_cosp(o_albisccp,isccp%meanalbedocld) 
+   CALL histwrite2d_cosp(o_meantbisccp,isccp%meantb) 
+   CALL histwrite2d_cosp(o_meantbclrisccp,isccp%meantbclr)
+ endif ! Isccp
+
+! MISR simulator
+ if (cfg%Lmisr_sim) then
+   do ip=1,Npoints
+     do ii=1,7
+       do k=1,MISR_N_CTH
+        if(misr%fq_MISR(ip,ii,k).eq.R_UNDEF)then
+              misr%fq_MISR(ip,ii,k)=Cosp_fill_value
+        endif
+       enddo
+     enddo
+   enddo
+
+   do icl=1,7 
+      CALL histwrite3d_cosp(o_clMISR,misr%fq_MISR(:,icl,:),nvertmisr,icl)
+   enddo
+ endif
+
+! Modis simulator
+ if (cfg%Lmodis_sim) then
+
+  do ip=1,Npoints
+    if(modis%Cloud_Fraction_Low_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Fraction_Low_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Fraction_High_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Fraction_High_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Fraction_Mid_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Fraction_Mid_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Fraction_Total_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Fraction_Total_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Fraction_Water_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Fraction_Water_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Fraction_Ice_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Fraction_Ice_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Optical_Thickness_Total_Mean(ip).eq.R_UNDEF)then
+       modis%Optical_Thickness_Total_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Optical_Thickness_Water_Mean(ip).eq.R_UNDEF)then
+       modis%Optical_Thickness_Water_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Optical_Thickness_Ice_Mean(ip).eq.R_UNDEF)then
+       modis%Optical_Thickness_Ice_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Particle_Size_Water_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Particle_Size_Water_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Particle_Size_Ice_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Particle_Size_Ice_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Top_Pressure_Total_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Top_Pressure_Total_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Liquid_Water_Path_Mean(ip).eq.R_UNDEF)then
+       modis%Liquid_Water_Path_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Ice_Water_Path_Mean(ip).eq.R_UNDEF)then
+       modis%Ice_Water_Path_Mean(ip)=Cosp_fill_value
+    endif
+
+  enddo
+    
+   CALL histwrite2d_cosp(o_cllmodis,modis%Cloud_Fraction_Low_Mean)
+   CALL histwrite2d_cosp(o_clhmodis,modis%Cloud_Fraction_High_Mean)
+   CALL histwrite2d_cosp(o_clmmodis,modis%Cloud_Fraction_Mid_Mean)
+   CALL histwrite2d_cosp(o_cltmodis,modis%Cloud_Fraction_Total_Mean)
+   CALL histwrite2d_cosp(o_clwmodis,modis%Cloud_Fraction_Water_Mean)
+   CALL histwrite2d_cosp(o_climodis,modis%Cloud_Fraction_Ice_Mean)
+   CALL histwrite2d_cosp(o_tautmodis,modis%Optical_Thickness_Total_Mean)
+   CALL histwrite2d_cosp(o_tauwmodis,modis%Optical_Thickness_Water_Mean)
+   CALL histwrite2d_cosp(o_tauimodis,modis%Optical_Thickness_Ice_Mean)
+   CALL histwrite2d_cosp(o_tautlogmodis,modis%Optical_Thickness_Total_LogMean)  
+   CALL histwrite2d_cosp(o_tauwlogmodis,modis%Optical_Thickness_Water_LogMean)
+   CALL histwrite2d_cosp(o_tauilogmodis,modis%Optical_Thickness_Ice_LogMean)
+   CALL histwrite2d_cosp(o_reffclwmodis,modis%Cloud_Particle_Size_Water_Mean)
+   CALL histwrite2d_cosp(o_reffclimodis,modis%Cloud_Particle_Size_Ice_Mean)
+   CALL histwrite2d_cosp(o_pctmodis,modis%Cloud_Top_Pressure_Total_Mean)
+   CALL histwrite2d_cosp(o_lwpmodis,modis%Liquid_Water_Path_Mean)
+   CALL histwrite2d_cosp(o_iwpmodis,modis%Ice_Water_Path_Mean)
+
+   do ip=1,Npoints
+     do ii=1,7
+       do k=1,7
+       if(modis%Optical_Thickness_vs_Cloud_Top_Pressure(ip,ii,k).eq.R_UNDEF)then
+          modis%Optical_Thickness_vs_Cloud_Top_Pressure(ip,ii,k)=0.
+        endif
+       enddo
+     enddo
+    enddo 
+
+   do icl=1,7
+   CALL histwrite3d_cosp(o_clmodis, &
+     modis%Optical_Thickness_vs_Cloud_Top_Pressure(:,icl,:),nvertisccp,icl)           
+   enddo
+ endif
+
+ IF(.NOT.cosp_varsdefined) THEN
+!$OMP MASTER
+#ifndef CPP_IOIPSL_NO_OUTPUT
+            DO iff=1,3
+                IF (cosp_outfilekeys(iff)) THEN
+                  CALL histend(cosp_nidfiles(iff))
+                ENDIF ! cosp_outfilekeys
+            ENDDO !  iff
+#endif
+! Fermeture dans phys_output_write
+!#ifdef CPP_XIOS
+            !On finalise l'initialisation:
+            !CALL wxios_closedef()
+!#endif
+
+!$OMP END MASTER
+!$OMP BARRIER
+            cosp_varsdefined = .TRUE.
+ END IF
+
+    IF(cosp_varsdefined) THEN
+! On synchronise les fichiers pour IOIPSL
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+!$OMP MASTER
+     DO iff=1,3
+         IF (ok_sync .AND. cosp_outfilekeys(iff)) THEN
+             CALL histsync(cosp_nidfiles(iff))
+         ENDIF
+     END DO
+!$OMP END MASTER
+#endif
+    ENDIF  !cosp_varsdefined
+
+    END SUBROUTINE cosp_output_write
+
+! ug Routine pour definir itau_iocosp depuis cosp_output_write_mod:
+  SUBROUTINE set_itau_iocosp(ito)
+      IMPLICIT NONE
+      INTEGER, INTENT(IN) :: ito
+      itau_iocosp = ito
+  END SUBROUTINE
+
+  SUBROUTINE histdef2d_cosp (iff,var)
+
+    USE ioipsl
+    USE dimphy
+    use iophy
+    USE mod_phys_lmdz_para
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon
+    USE print_control_mod, ONLY: lunout,prt_level
+#ifdef CPP_XIOS
+  USE wxios
+#endif
+
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+
+    INTEGER                          :: iff
+    TYPE(ctrl_outcosp)               :: var
+
+    REAL zstophym
+    CHARACTER(LEN=20) :: typeecrit
+
+    ! ug On rÃ©cupÃ¨re le type Ã©crit de la structure:
+    !       Assez moche, Ã|  refaire si meilleure mÃ©thode...
+    IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
+       typeecrit = 'once'
+    ELSE IF(INDEX(var%cosp_typeecrit(iff), "t_min") > 0) THEN
+       typeecrit = 't_min(X)'
+    ELSE IF(INDEX(var%cosp_typeecrit(iff), "t_max") > 0) THEN
+       typeecrit = 't_max(X)'
+    ELSE IF(INDEX(var%cosp_typeecrit(iff), "inst") > 0) THEN
+       typeecrit = 'inst(X)'
+    ELSE
+       typeecrit = cosp_outfiletypes(iff)
+    ENDIF
+
+    IF (typeecrit=='inst(X)'.OR.typeecrit=='once') THEN
+       zstophym=zoutm_cosp(iff)
+    ELSE
+       zstophym=zdtimemoy_cosp
+    ENDIF
+
+#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
+     ENDIF
+#endif
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+       IF ( var%cles(iff) ) THEN
+          CALL histdef (cosp_nidfiles(iff), var%name, var%description, var%unit, &
+               nbp_lon,jj_nb,nhoricosp(iff), 1,1,1, -99, 32, &
+               typeecrit, zstophym,zoutm_cosp(iff))
+       ENDIF
+#endif
+
+  END SUBROUTINE histdef2d_cosp
+
+ SUBROUTINE histdef3d_cosp (iff,var,nvertsave,ncols)
+    USE ioipsl
+    USE dimphy
+    use iophy
+    USE mod_phys_lmdz_para
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon
+    USE print_control_mod, ONLY: lunout,prt_level
+
+#ifdef CPP_XIOS
+  USE wxios
+#endif
+
+
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+
+    INTEGER                        :: iff, klevs
+    INTEGER, INTENT(IN), OPTIONAL  :: ncols ! ug RUSTINE POUR LES variables 4D
+    INTEGER, INTENT(IN)           :: nvertsave
+    TYPE(ctrl_outcosp)             :: var
+
+    REAL zstophym
+    CHARACTER(LEN=20) :: typeecrit, nomi
+    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 IF (nvertsave.eq.nverttemp(iff)) THEN
+          klevs=LIDAR_NTEMP
+          nam_axvert="temp"
+      ELSE IF (nvertsave.eq.nvertmisr(iff)) THEN
+          klevs=MISR_N_CTH
+           nam_axvert="cth16"
+      ELSE
+           klevs=Nlevout
+           nam_axvert="presnivs"
+      ENDIF
+
+! ug RUSTINE POUR LES Champs 4D
+      IF (PRESENT(ncols)) THEN
+               write(str2,'(i2.2)')ncols
+               nomi=var%name
+               nom="c"//str2//"_"//nomi
+      ELSE
+               nom=var%name
+      END IF
+
+    ! ug On rÃ©cupÃ¨re le type Ã©crit de la structure:
+    !       Assez moche, Ã|  refaire si meilleure mÃ©thode...
+    IF (INDEX(var%cosp_typeecrit(iff), "once") > 0) THEN
+       typeecrit = 'once'
+    ELSE IF(INDEX(var%cosp_typeecrit(iff), "t_min") > 0) THEN
+       typeecrit = 't_min(X)'
+    ELSE IF(INDEX(var%cosp_typeecrit(iff), "t_max") > 0) THEN
+       typeecrit = 't_max(X)'
+    ELSE IF(INDEX(var%cosp_typeecrit(iff), "inst") > 0) THEN
+       typeecrit = 'inst(X)'
+    ELSE
+       typeecrit = cosp_outfiletypes(iff)
+    ENDIF
+
+    IF (typeecrit=='inst(X)'.OR.typeecrit=='once') THEN
+       zstophym=zoutm_cosp(iff)
+    ELSE
+       zstophym=zdtimemoy_cosp
+    ENDIF
+
+#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 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, &
+               nbp_lon, jj_nb, nhoricosp(iff), klevs, 1, &
+               klevs, nvertsave, 32, typeecrit, &
+               zstophym, zoutm_cosp(iff))
+       ENDIF
+#endif
+
+  END SUBROUTINE histdef3d_cosp
+
+ SUBROUTINE histwrite2d_cosp(var,field)
+  USE dimphy
+  USE mod_phys_lmdz_para
+  USE ioipsl
+  use iophy
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+  USE print_control_mod, ONLY: lunout,prt_level
+
+#ifdef CPP_XIOS
+  USE xios, only: xios_send_field
+#endif
+
+  IMPLICIT NONE
+  INCLUDE 'clesphys.h'
+
+    TYPE(ctrl_outcosp), INTENT(IN) :: var
+    REAL, DIMENSION(:), INTENT(IN) :: field
+
+    INTEGER :: iff
+
+    REAL,DIMENSION(klon_mpi) :: buffer_omp
+    INTEGER, allocatable, DIMENSION(:) :: index2d
+    REAL :: Field2d(nbp_lon,jj_nb)
+    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
+
+  ! On regarde si on est dans la phase de dÃ©finition ou d'Ã©criture:
+  IF(.NOT.cosp_varsdefined) THEN
+!$OMP MASTER
+      !Si phase de dÃ©finition.... on dÃ©finit
+      CALL conf_cospoutputs(var%name,var%cles)
+      DO iff=1, 3
+         IF (cosp_outfilekeys(iff)) THEN
+            CALL histdef2d_cosp(iff, var)
+         ENDIF
+      ENDDO
+!$OMP END MASTER
+  ELSE
+    !Et sinon on.... Ã©crit
+    IF (SIZE(field)/=klon) &
+  CALL abort_physic('iophy::histwrite2d_cosp','Field first DIMENSION not equal to klon',1) 
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,Field2d)
+
+! La boucle sur les fichiers:
+      firstx=.true.
+      DO iff=1, 3
+           IF (var%cles(iff) .AND. cosp_outfilekeys(iff)) THEN
+                ALLOCATE(index2d(nbp_lon*jj_nb))
+#ifndef CPP_IOIPSL_NO_OUTPUT
+        CALL histwrite(cosp_nidfiles(iff),var%name,itau_iocosp,Field2d,nbp_lon*jj_nb,index2d) 
+#endif
+                deallocate(index2d)
+#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 >= 1) 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 ',var%name
+  END SUBROUTINE histwrite2d_cosp
+
+! ug NOUVELLE VERSION DES WRITE AVEC LA BOUCLE DO RENTREE
+! AI sept 2013
+  SUBROUTINE histwrite3d_cosp(var, field, nverts, ncols)
+  USE dimphy
+  USE mod_phys_lmdz_para
+  USE ioipsl
+  use iophy
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon
+  USE print_control_mod, ONLY: lunout,prt_level
+
+#ifdef CPP_XIOS
+  USE xios, only: xios_send_field
+#endif
+
+
+  IMPLICIT NONE
+  INCLUDE 'clesphys.h'
+
+    TYPE(ctrl_outcosp), INTENT(IN)    :: var
+    REAL, DIMENSION(:,:), INTENT(IN)  :: field ! --> field(klon,:)
+    INTEGER, INTENT(IN), OPTIONAL     :: ncols ! ug RUSTINE POUR LES Champs 4D.....
+    INTEGER, DIMENSION(3), INTENT(IN) :: nverts
+
+    INTEGER :: iff, k
+
+    REAL,DIMENSION(klon_mpi,SIZE(field,2)) :: buffer_omp
+    REAL :: Field3d(nbp_lon,jj_nb,SIZE(field,2))
+    INTEGER :: ip, n, nlev
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: index3d
+    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
+
+! ug RUSTINE POUR LES STD LEVS.....
+      IF (PRESENT(ncols)) THEN
+              write(str2,'(i2.2)')ncols
+              nomi=var%name
+              nom="c"//str2//"_"//nomi
+      ELSE
+               nom=var%name
+      END IF
+  ! On regarde si on est dans la phase de dÃ©finition ou d'Ã©criture:
+  IF(.NOT.cosp_varsdefined) THEN
+      !Si phase de dÃ©finition.... on dÃ©finit
+!$OMP MASTER
+      CALL conf_cospoutputs(var%name,var%cles)
+      DO iff=1, 3
+        IF (cosp_outfilekeys(iff)) THEN
+          CALL histdef3d_cosp(iff, var, nverts(iff), ncols)
+        ENDIF
+      ENDDO
+!$OMP END MASTER
+  ELSE
+    !Et sinon on.... Ã©crit
+    IF (SIZE(field,1)/=klon) &
+   CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)                                  
+    nlev=SIZE(field,2)
+
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    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(nbp_lon*jj_nb*nlev))
+#ifndef CPP_IOIPSL_NO_OUTPUT
+    CALL histwrite(cosp_nidfiles(iff),nom,itau_iocosp,Field3d,nbp_lon*jj_nb*nlev,index3d) 
+#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 >= 1) WRITE(lunout,*)'xios_send_field ',var%name
+    ENDIF
+#endif
+
+!$OMP END MASTER   
+  ENDIF ! vars_defined
+  IF (prt_level >= 9) write(lunout,*)'End histrwrite3d_cosp ',nom
+  END SUBROUTINE histwrite3d_cosp
+
+  SUBROUTINE conf_cospoutputs(nam_var,cles_var)
+!!! Lecture des noms et cles de sortie des variables dans config.def
+    !   en utilisant les routines getin de IOIPSL  
+    use ioipsl
+    USE print_control_mod, ONLY: lunout,prt_level
+
+    IMPLICIT NONE
+
+   CHARACTER(LEN=20)               :: nam_var, nnam_var
+   LOGICAL, DIMENSION(3)           :: cles_var
+
+! Lecture dans config.def ou output.def de cles_var et name_var
+    CALL getin('cles_'//nam_var,cles_var)
+    CALL getin('name_'//nam_var,nam_var)
+    IF(prt_level>10) WRITE(lunout,*)'nam_var cles_var ',nam_var,cles_var(:)
+
+  END SUBROUTINE conf_cospoutputs
+
+ END MODULE cosp_output_write_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_radar.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_radar.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_radar.F90	(revision 3330)
@@ -0,0 +1,193 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+MODULE MOD_COSP_RADAR
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  USE MOD_COSP_UTILS
+  use radar_simulator_types
+  use array_lib
+  use atmos_lib
+  use format_input
+  IMPLICIT NONE
+
+  INTERFACE
+    subroutine radar_simulator(hp,nprof,ngate,undef, &
+        hgt_matrix,hm_matrix,re_matrix,Np_matrix, &
+        p_matrix,t_matrix,rh_matrix, &
+        Ze_non,Ze_ray,g_to_vol,a_to_vol,dBZe, &
+        g_to_vol_in,g_to_vol_out)
+
+        use m_mrgrnk
+        use array_lib
+        use math_lib
+        use optics_lib
+        use radar_simulator_types
+        implicit none
+
+        ! ----- INPUTS -----  
+        type(class_param) :: hp
+
+        integer, intent(in) :: nprof,ngate
+
+        real undef
+        real*8, dimension(nprof,ngate), intent(in) :: hgt_matrix, p_matrix, &
+            t_matrix,rh_matrix
+        real*8, dimension(hp%nhclass,nprof,ngate), intent(in) :: hm_matrix
+        real*8, dimension(hp%nhclass,nprof,ngate), intent(inout) :: re_matrix
+        real*8, dimension(hp%nhclass,nprof,ngate), intent(inout) :: Np_matrix
+
+        ! ----- OUTPUTS -----
+        real*8, dimension(nprof,ngate), intent(out) :: Ze_non,Ze_ray, &
+            g_to_vol,dBZe,a_to_vol
+        ! ----- OPTIONAL -----
+        real*8, optional, dimension(nprof,ngate) :: &
+            g_to_vol_in,g_to_vol_out
+     end subroutine radar_simulator
+  END INTERFACE
+
+CONTAINS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------- SUBROUTINE COSP_RADAR ------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_RADAR(gbx,sgx,sghydro,z)
+  IMPLICIT NONE
+
+  ! Arguments
+  type(cosp_gridbox),intent(inout) :: gbx  ! Gridbox info
+  type(cosp_subgrid),intent(in) :: sgx  ! Subgrid info
+  type(cosp_sghydro),intent(in) :: sghydro  ! Subgrid info for hydrometeors
+  type(cosp_sgradar),intent(inout) :: z ! Output from simulator, subgrid
+
+  ! Local variables 
+  integer :: & 
+  nsizes            ! num of discrete drop sizes
+
+  real*8, dimension(:,:), allocatable :: &
+  g_to_vol ! integrated atten due to gases, r>v (dB)
+
+  real*8, dimension(:,:), allocatable :: &
+  Ze_non, &         ! radar reflectivity withOUT attenuation (dBZ)
+  Ze_ray, &         ! Rayleigh reflectivity (dBZ)
+  h_atten_to_vol, &     ! attenuation by hydromets, radar to vol (dB)
+  g_atten_to_vol, &     ! gaseous atteunation, radar to vol (dB)
+  dBZe, &           ! effective radar reflectivity factor (dBZ)
+  hgt_matrix, &         ! height of hydrometeors (km)
+  t_matrix, &                   !temperature (k)
+  p_matrix, &                   !pressure (hPa)
+  rh_matrix                     !relative humidity (%)
+
+  real*8, dimension(:,:,:), allocatable :: &
+  hm_matrix, &          ! hydrometeor mixing ratio (g kg^-1)
+  re_matrix, &          ! effective radius (microns).   Optional. 0 ==> use Np_matrix or defaults
+  Np_matrix         ! total number concentration (kg^-1).   Optional 0==> use defaults 
+
+  integer, parameter :: one = 1
+  ! logical :: hgt_reversed
+  logical :: hgt_descending
+  integer :: pr,i,j,k,unt,ngate
+
+! ----- main program settings ------
+
+  ! Inputs to Quickbeam
+  allocate(hgt_matrix(gbx%Npoints,gbx%Nlevels),p_matrix(gbx%Npoints,gbx%Nlevels), &
+           t_matrix(gbx%Npoints,gbx%Nlevels),rh_matrix(gbx%Npoints,gbx%Nlevels))
+  allocate(hm_matrix(gbx%Nhydro,gbx%Npoints,gbx%Nlevels))
+  allocate(re_matrix(gbx%Nhydro,gbx%Npoints,gbx%Nlevels))
+  allocate(Np_matrix(gbx%Nhydro,gbx%Npoints,gbx%Nlevels))
+
+  ! Outputs from Quickbeam
+  allocate(Ze_non(gbx%Npoints,gbx%Nlevels))
+  allocate(Ze_ray(gbx%Npoints,gbx%Nlevels))
+  allocate(h_atten_to_vol(gbx%Npoints,gbx%Nlevels))
+  allocate(g_atten_to_vol(gbx%Npoints,gbx%Nlevels))
+  allocate(dBZe(gbx%Npoints,gbx%Nlevels))
+
+  ! Optional argument. It is computed and returned in the first call to
+  ! radar_simulator, and passed as input in the rest
+  allocate(g_to_vol(gbx%Npoints,gbx%Nlevels))
+
+  ! Even if there is no unit conversion, they are needed for type conversion
+  p_matrix   = gbx%p/100.0     ! From Pa to hPa
+  hgt_matrix = gbx%zlev/1000.0 ! From m to km
+  t_matrix   = gbx%T
+  rh_matrix  = gbx%q
+  re_matrix  = 0.0
+
+
+  ! set flag denoting position of radar relative to hgt_matrix orientation
+	  ngate = size(hgt_matrix,2)
+
+	  hgt_descending = hgt_matrix(1,1) > hgt_matrix(1,ngate)
+
+	  if ( &
+	     (gbx%surface_radar == 1 .and. hgt_descending) .or.  &
+	     (gbx%surface_radar == 0 .and. (.not. hgt_descending)) &
+	     ) &
+	  then
+	    gbx%hp%radar_at_layer_one = .false.
+	  else
+	    gbx%hp%radar_at_layer_one = .true.
+	  endif
+
+  ! ----- loop over subcolumns -----
+  do pr=1,sgx%Ncolumns
+
+      !  NOTE:
+      !  atmospheric profiles are the same within the same gridbox
+      !  only hydrometeor profiles will be different for each subgridbox
+
+         do i=1,gbx%Nhydro
+            hm_matrix(i,:,:) = sghydro%mr_hydro(:,pr,:,i)*1000.0 ! Units from kg/kg to g/kg
+            if (gbx%use_reff) then
+              re_matrix(i,:,:) = sghydro%Reff(:,pr,:,i)*1.e6       ! Units from m to micron
+              Np_matrix(i,:,:) = sghydro%Np(:,pr,:,i)              ! Units [#/kg]
+            endif
+         enddo
+
+      !   ----- call radar simulator -----
+      if (pr == 1) then ! Compute gaseous attenuation for all profiles
+         call radar_simulator(gbx%hp,gbx%Npoints,gbx%Nlevels,R_UNDEF, &
+           hgt_matrix,hm_matrix,re_matrix,Np_matrix, &
+           p_matrix,t_matrix,rh_matrix, &
+           Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe,g_to_vol_out=g_to_vol)
+      else ! Use gaseous atteunuation for pr = 1
+         call radar_simulator(gbx%hp,gbx%Npoints,gbx%Nlevels,R_UNDEF, &
+           hgt_matrix,hm_matrix,re_matrix,Np_matrix, &
+           p_matrix,t_matrix,rh_matrix, &
+           Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe,g_to_vol_in=g_to_vol)
+      endif
+
+      ! store caluculated dBZe values for later output/processing
+      z%Ze_tot(:,pr,:)=dBZe(:,:)
+  enddo !pr
+
+  deallocate(hgt_matrix,p_matrix,t_matrix,rh_matrix)
+  deallocate(hm_matrix,re_matrix, &
+      Ze_non,Ze_ray,h_atten_to_vol,g_atten_to_vol,dBZe)
+  deallocate(g_to_vol)
+END SUBROUTINE COSP_RADAR
+
+END MODULE MOD_COSP_RADAR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_simulator.F90	(revision 3330)
@@ -0,0 +1,238 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_simulator.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!
+! History:
+! Jul 2007 - A. Bodas-Salcedo - Initial version
+! Jan 2013 - G. Cesana - Add new variables linked to the lidar cloud phase 
+!
+
+#include "cosp_defs.h" 
+MODULE MOD_COSP_SIMULATOR
+  USE MOD_COSP_CONSTANTS, ONLY: I_RADAR, I_LIDAR, I_ISCCP, I_MISR, I_MODIS, &
+                                I_RTTOV, I_STATS, tsim
+  USE MOD_COSP_TYPES
+  USE MOD_COSP_RADAR
+  USE MOD_COSP_LIDAR
+  USE MOD_COSP_ISCCP_SIMULATOR
+  USE MOD_COSP_MODIS_SIMULATOR
+  USE MOD_COSP_MISR_SIMULATOR
+!#ifdef RTTOV
+!  USE MOD_COSP_RTTOV_SIMULATOR
+!#endif
+  USE MOD_COSP_STATS
+  IMPLICIT NONE
+
+CONTAINS
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------------- SUBROUTINE COSP_SIMULATOR ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!#ifdef RTTOV
+!SUBROUTINE COSP_SIMULATOR(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar)
+!#else
+SUBROUTINE COSP_SIMULATOR(gbx,sgx,sghydro,cfg,vgrid,sgradar,sglidar,isccp,misr,modis,stradar,stlidar)
+!#endif
+
+  ! Arguments
+  type(cosp_gridbox),intent(inout) :: gbx      ! Grid-box inputs
+  type(cosp_subgrid),intent(in) :: sgx      ! Subgrid inputs
+  type(cosp_sghydro),intent(in) :: sghydro  ! Subgrid info for hydrometeors
+  type(cosp_config),intent(in)  :: cfg      ! Configuration options
+  type(cosp_vgrid),intent(in)   :: vgrid    ! Information on vertical grid of stats
+  type(cosp_sgradar),intent(inout) :: sgradar ! Output from radar simulator
+  type(cosp_sglidar),intent(inout) :: sglidar ! Output from lidar simulator
+  type(cosp_isccp),intent(inout)   :: isccp   ! Output from ISCCP simulator
+  type(cosp_misr),intent(inout)    :: misr    ! Output from MISR simulator
+  type(cosp_modis),intent(inout)   :: modis   ! Output from MODIS simulator
+!#ifdef RTTOV
+!  type(cosp_rttov),intent(inout)    :: rttov    ! Output from RTTOV
+!#endif
+  type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics from radar simulator
+  type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics from lidar simulator
+  ! Local variables
+  integer :: i,j,k,isim
+  logical :: inconsistent
+  ! Timing variables
+  integer :: t0,t1
+
+  t0 = 0
+  t1 = 0
+
+  inconsistent=.false.
+!   do k=1,gbx%Nhydro
+!   do j=1,gbx%Nlevels
+!   do i=1,gbx%Npoints
+!     if ((gbx%mr_hydro(i,j,k)>0.0).and.(gbx%Reff(i,j,k)<=0.0)) inconsistent=.true.
+!   enddo
+!   enddo
+!   enddo
+!  if (inconsistent)  print *, '%%%% COSP_SIMULATOR: inconsistency in mr_hydro and Reff'
+
+
+  !+++++++++ Radar model ++++++++++
+  isim = I_RADAR
+  if (cfg%Lradar_sim) then
+    call system_clock(t0)
+    call cosp_radar(gbx,sgx,sghydro,sgradar)
+    call system_clock(t1)
+    tsim(isim) = tsim(isim) + (t1 -t0)
+  endif
+
+  !+++++++++ Lidar model ++++++++++
+  isim = I_LIDAR
+  if (cfg%Llidar_sim) then
+    call system_clock(t0)
+    call cosp_lidar(gbx,sgx,sghydro,sglidar)
+    call system_clock(t1)
+    tsim(isim) = tsim(isim) + (t1 -t0)
+  endif
+
+  !+++++++++ ISCCP simulator ++++++++++
+  isim = I_ISCCP
+  if (cfg%Lisccp_sim) then
+    call system_clock(t0)
+    call cosp_isccp_simulator(gbx,sgx,isccp)
+    call system_clock(t1)
+    tsim(isim) = tsim(isim) + (t1 -t0)
+  endif
+
+  !+++++++++ MISR simulator ++++++++++
+  isim = I_MISR
+  if (cfg%Lmisr_sim) then
+    call system_clock(t0)
+    call cosp_misr_simulator(gbx,sgx,misr)
+    call system_clock(t1)
+    tsim(isim) = tsim(isim) + (t1 -t0)
+  endif
+
+  !+++++++++ MODIS simulator ++++++++++
+  isim = I_MODIS
+  if (cfg%Lmodis_sim) then
+    call system_clock(t0)
+    call cosp_modis_simulator(gbx,sgx,sghydro,isccp, modis)
+    call system_clock(t1)
+    tsim(isim) = tsim(isim) + (t1 -t0)
+  endif
+
+  !+++++++++ RTTOV ++++++++++ 
+  isim = I_RTTOV
+!#ifdef RTTOV
+!  if (cfg%Lrttov_sim) then 
+!    call system_clock(t0)
+!    call cosp_rttov_simulator(gbx,rttov)
+!    call system_clock(t1)
+!    tsim(isim) = tsim(isim) + (t1 -t0)
+!  endif
+!#endif
+
+  !+++++++++++ Summary statistics +++++++++++
+  isim = I_STATS
+  if (cfg%Lstats) then
+    call system_clock(t0)
+    call cosp_stats(gbx,sgx,cfg,sgradar,sglidar,vgrid,stradar,stlidar)
+    call system_clock(t1)
+    tsim(isim) = tsim(isim) + (t1 -t0)
+  endif
+
+  !+++++++++++ Change of units after computation of statistics +++++++++++
+  ! This avoids using UDUNITS in CMOR
+
+  ! Cloud fractions from 1 to %
+!  if (cfg%Lclcalipso) then
+!    where(stlidar%lidarcld /= R_UNDEF) stlidar%lidarcld = stlidar%lidarcld*100.0
+!  endif
+!  if (cfg%Lcltcalipso.OR.cfg%Lcllcalipso.OR.cfg%Lclmcalipso.OR.cfg%Lclhcalipso) then
+!    where(stlidar%cldlayer /= R_UNDEF) stlidar%cldlayer = stlidar%cldlayer*100.0
+!  endif
+!  if (cfg%Lclcalipso2) then
+!    where(stradar%lidar_only_freq_cloud /= R_UNDEF) stradar%lidar_only_freq_cloud = stradar%lidar_only_freq_cloud*100.0
+!  endif
+
+!  if (cfg%Lcltcalipsoliq.OR.cfg%Lcllcalipsoliq.OR.cfg%Lclmcalipsoliq.OR.cfg%Lclhcalipsoliq.OR. &
+!      cfg%Lcltcalipsoice.OR.cfg%Lcllcalipsoice.OR.cfg%Lclmcalipsoice.OR.cfg%Lclhcalipsoice.OR. &
+!      cfg%Lcltcalipsoun.OR.cfg%Lcllcalipsoun.OR.cfg%Lclmcalipsoun.OR.cfg%Lclhcalipsoun ) then
+!    where(stlidar%cldlayerphase /= R_UNDEF) stlidar%cldlayerphase = stlidar%cldlayerphase*100.0
+!  endif
+!  if (cfg%Lclcalipsoliq.OR.cfg%Lclcalipsoice.OR.cfg%Lclcalipsoun) then
+!    where(stlidar%lidarcldphase /= R_UNDEF) stlidar%lidarcldphase = stlidar%lidarcldphase*100.0
+!  endif
+!  if (cfg%Lclcalipsotmp.OR.cfg%Lclcalipsotmpliq.OR.cfg%Lclcalipsotmpice.OR.cfg%Lclcalipsotmpun) then
+!    where(stlidar%lidarcldtmp /= R_UNDEF) stlidar%lidarcldtmp = stlidar%lidarcldtmp*100.0
+!  endif
+
+!  if (cfg%Lcltisccp) then
+!     where(isccp%totalcldarea /= R_UNDEF) isccp%totalcldarea = isccp%totalcldarea*100.0
+!  endif  
+!  if (cfg%Lclisccp) then
+!    where(isccp%fq_isccp /= R_UNDEF) isccp%fq_isccp = isccp%fq_isccp*100.0
+!  endif
+
+!  if (cfg%LclMISR) then
+!    where(misr%fq_MISR /= R_UNDEF) misr%fq_MISR = misr%fq_MISR*100.0
+!  endif
+
+!  if (cfg%Lcltlidarradar) then
+!    where(stradar%radar_lidar_tcc /= R_UNDEF) stradar%radar_lidar_tcc = stradar%radar_lidar_tcc*100.0
+!  endif
+
+  if (cfg%Lclmodis) then
+    where(modis%Optical_Thickness_vs_Cloud_Top_Pressure /= R_UNDEF) modis%Optical_Thickness_vs_Cloud_Top_Pressure = &
+                                                      modis%Optical_Thickness_vs_Cloud_Top_Pressure*100.0
+  endif
+!  if (cfg%Lcltmodis) then
+!     where(modis%Cloud_Fraction_Total_Mean /= R_UNDEF) modis%Cloud_Fraction_Total_Mean = modis%Cloud_Fraction_Total_Mean*100.0
+!  endif
+!  if (cfg%Lclwmodis) then
+!     where(modis%Cloud_Fraction_Water_Mean /= R_UNDEF) modis%Cloud_Fraction_Water_Mean = modis%Cloud_Fraction_Water_Mean*100.0
+!  endif
+!  if (cfg%Lclimodis) then
+!     where(modis%Cloud_Fraction_Ice_Mean /= R_UNDEF) modis%Cloud_Fraction_Ice_Mean = modis%Cloud_Fraction_Ice_Mean*100.0
+!  endif
+
+!  if (cfg%Lclhmodis) then
+!     where(modis%Cloud_Fraction_High_Mean /= R_UNDEF) modis%Cloud_Fraction_High_Mean = modis%Cloud_Fraction_High_Mean*100.0
+!  endif
+!  if (cfg%Lclmmodis) then
+!     where(modis%Cloud_Fraction_Mid_Mean /= R_UNDEF) modis%Cloud_Fraction_Mid_Mean = modis%Cloud_Fraction_Mid_Mean*100.0
+!  endif
+!  if (cfg%Lcllmodis) then
+!     where(modis%Cloud_Fraction_Low_Mean /= R_UNDEF) modis%Cloud_Fraction_Low_Mean = modis%Cloud_Fraction_Low_Mean*100.0
+!  endif
+
+  ! Change pressure from hPa to Pa.
+  if (cfg%Lboxptopisccp) then
+    where(isccp%boxptop /= R_UNDEF) isccp%boxptop = isccp%boxptop*100.0
+  endif
+  if (cfg%Lpctisccp) then
+    where(isccp%meanptop /= R_UNDEF) isccp%meanptop = isccp%meanptop*100.0
+  endif
+
+
+END SUBROUTINE COSP_SIMULATOR
+
+END MODULE MOD_COSP_SIMULATOR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_stats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_stats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_stats.F90	(revision 3330)
@@ -0,0 +1,295 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_stats.F90 $
+!
+! Redistribution and use in source and binary forms, with or without modification, are permitted
+! provided that the following conditions are met:
+!
+!     * Redistributions of source code must retain the above copyright notice, this list
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used
+!       to endorse or promote products derived from this software without specific prior written
+!       permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!
+! History:
+! Jul 2007 - A. Bodas-Salcedo - Initial version
+! Jul 2008 - A. Bodas-Salcedo - Added capability of producing outputs in standard grid
+! Oct 2008 - J.-L. Dufresne   - Bug fixed. Assignment of Npoints,Nlevels,Nhydro,Ncolumns in COSP_STATS
+! Oct 2008 - H. Chepfer       - Added PARASOL reflectance arguments
+! Jun 2010 - T. Yokohata, T. Nishimura and K. Ogochi - Added NEC SXs optimisations
+! Jan 2013 - G. Cesana        - Added betaperp and temperature arguments 
+!                             - Added phase 3D/3Dtemperature/Map output variables in diag_lidar 
+!
+!
+#include "cosp_defs.h" 
+MODULE MOD_COSP_STATS
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  USE MOD_LLNL_STATS
+  USE MOD_LMD_IPSL_STATS
+  IMPLICIT NONE
+
+CONTAINS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------- SUBROUTINE COSP_STATS ------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_STATS(gbx,sgx,cfg,sgradar,sglidar,vgrid,stradar,stlidar)
+
+   ! Input arguments
+   type(cosp_gridbox),intent(in) :: gbx
+   type(cosp_subgrid),intent(in) :: sgx
+   type(cosp_config),intent(in)  :: cfg
+   type(cosp_sgradar),intent(in) :: sgradar
+   type(cosp_sglidar),intent(in) :: sglidar
+   type(cosp_vgrid),intent(in)   :: vgrid
+   ! Output arguments
+   type(cosp_radarstats),intent(inout) :: stradar ! Summary statistics for radar
+   type(cosp_lidarstats),intent(inout) :: stlidar ! Summary statistics for lidar
+
+   ! Local variables
+   integer :: Npoints  !# of grid points
+   integer :: Nlevels  !# of levels
+   integer :: Nhydro   !# of hydrometeors
+   integer :: Ncolumns !# of columns
+   integer :: Nlr
+   logical :: ok_lidar_cfad = .false.
+   real,dimension(:,:,:),allocatable :: Ze_out,betatot_out,betamol_in,betamol_out,ph_in,ph_out
+   real,dimension(:,:),allocatable :: ph_c,betamol_c
+   real,dimension(:,:,:),allocatable ::  betaperptot_out, temp_in, temp_out 
+   real,dimension(:,:),allocatable :: temp_c
+
+   Npoints  = gbx%Npoints
+   Nlevels  = gbx%Nlevels
+   Nhydro   = gbx%Nhydro
+   Ncolumns = gbx%Ncolumns
+   Nlr      = vgrid%Nlvgrid
+
+   if (cfg%LcfadLidarsr532) ok_lidar_cfad=.true.
+
+   if (vgrid%use_vgrid) then ! Statistics in a different vertical grid
+        allocate(Ze_out(Npoints,Ncolumns,Nlr),betatot_out(Npoints,Ncolumns,Nlr), &
+                 betamol_in(Npoints,1,Nlevels),betamol_out(Npoints,1,Nlr),betamol_c(Npoints,Nlr), &
+                 ph_in(Npoints,1,Nlevels),ph_out(Npoints,1,Nlr),ph_c(Npoints,Nlr))
+        Ze_out = 0.0
+        betatot_out  = 0.0
+        betamol_out= 0.0
+        betamol_c  = 0.0
+        ph_in(:,1,:)  = gbx%ph(:,:)
+        ph_out  = 0.0
+        ph_c    = 0.0
+        allocate(betaperptot_out(Npoints,Ncolumns,Nlr),temp_in(Npoints,1,Nlevels),temp_out(Npoints,1,Nlr), &
+                 temp_c(Npoints,Nlr))
+        betaperptot_out = 0.0
+        temp_in = 0.0
+        temp_out = 0.0
+        temp_c = 0.0
+
+        !++++++++++++ Radar CFAD ++++++++++++++++
+        if (cfg%Lradar_sim) then
+            call cosp_change_vertical_grid(Npoints,Ncolumns,Nlevels,gbx%zlev,gbx%zlev_half,sgradar%Ze_tot, &
+                                           Nlr,vgrid%zl,vgrid%zu,Ze_out,log_units=.true.)
+            stradar%cfad_ze = cosp_cfad(Npoints,Ncolumns,Nlr,DBZE_BINS,Ze_out, &
+                                        DBZE_MIN,DBZE_MAX,CFAD_ZE_MIN,CFAD_ZE_WIDTH)
+        endif
+        !++++++++++++ Lidar CFAD ++++++++++++++++
+        if (cfg%Llidar_sim) then
+            betamol_in(:,1,:) = sglidar%beta_mol(:,:)
+            call cosp_change_vertical_grid(Npoints,1,Nlevels,gbx%zlev,gbx%zlev_half,betamol_in, &
+                                           Nlr,vgrid%zl,vgrid%zu,betamol_out)
+            call cosp_change_vertical_grid(Npoints,Ncolumns,Nlevels,gbx%zlev,gbx%zlev_half,sglidar%beta_tot, &
+                                           Nlr,vgrid%zl,vgrid%zu,betatot_out)
+
+            temp_in(:,1,:) = gbx%T(:,:)
+            call cosp_change_vertical_grid(Npoints,Ncolumns,Nlevels,gbx%zlev,gbx%zlev_half,sglidar%betaperp_tot, &
+                                           Nlr,vgrid%zl,vgrid%zu,betaperptot_out)
+            call cosp_change_vertical_grid(Npoints,1,Nlevels,gbx%zlev,gbx%zlev_half,temp_in, &
+                                           Nlr,vgrid%zl,vgrid%zu,temp_out)
+            temp_c(:,:) = temp_out(:,1,:)
+
+            call cosp_change_vertical_grid(Npoints,1,Nlevels,gbx%zlev,gbx%zlev_half,ph_in, &
+                                           Nlr,vgrid%zl,vgrid%zu,ph_out)
+            ph_c(:,:) = ph_out(:,1,:)
+            betamol_c(:,:) = betamol_out(:,1,:)
+            ! Stats from lidar_stat_summary
+            call diag_lidar(Npoints,Ncolumns,Nlr,SR_BINS,PARASOL_NREFL &
+                            ,temp_c,betatot_out,betaperptot_out,betamol_c,sglidar%refl,gbx%land,ph_c &
+                            ,LIDAR_UNDEF,ok_lidar_cfad &
+                            ,stlidar%cfad_sr,stlidar%srbval &
+                            ,LIDAR_NCAT,stlidar%lidarcld,stlidar%lidarcldphase &
+                            ,stlidar%cldlayer,stlidar%cldlayerphase,stlidar%lidarcldtmp &
+                            ,stlidar%parasolrefl)
+        endif
+
+        !++++++++++++ Lidar-only cloud amount and lidar&radar total cloud mount ++++++++++++++++
+        if (cfg%Lradar_sim.and.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, &
+                                    temp_c,betatot_out,betaperptot_out,betamol_c,Ze_out, &
+                                    stradar%lidar_only_freq_cloud,stradar%radar_lidar_tcc)
+        deallocate(temp_out,temp_c,betaperptot_out)
+
+        ! Deallocate arrays at coarse resolution
+        deallocate(Ze_out,betatot_out,betamol_in,betamol_out,betamol_c,ph_in,ph_out,ph_c)
+   else ! Statistics in model levels
+        !++++++++++++ Radar CFAD ++++++++++++++++
+        if (cfg%Lradar_sim) stradar%cfad_ze = cosp_cfad(Npoints,Ncolumns,Nlr,DBZE_BINS,sgradar%Ze_tot, &
+                                        DBZE_MIN,DBZE_MAX,CFAD_ZE_MIN,CFAD_ZE_WIDTH)
+        !++++++++++++ Lidar CFAD ++++++++++++++++
+        ! Stats from lidar_stat_summary
+        if (cfg%Llidar_sim) call diag_lidar(Npoints,Ncolumns,Nlr,SR_BINS,PARASOL_NREFL &
+                        ,sglidar%temp_tot,sglidar%beta_tot,sglidar%betaperp_tot,sglidar%beta_mol,sglidar%refl,gbx%land,gbx%ph &
+                        ,LIDAR_UNDEF,ok_lidar_cfad &
+                        ,stlidar%cfad_sr,stlidar%srbval &
+                        ,LIDAR_NCAT,stlidar%lidarcld,stlidar%lidarcldphase,stlidar%cldlayer,stlidar%cldlayerphase &
+                        ,stlidar%lidarcldtmp,stlidar%parasolrefl)
+        !++++++++++++ Lidar-only cloud amount and lidar&radar total cloud mount ++++++++++++++++
+        if (cfg%Lradar_sim.and.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, &
+                                    sglidar%temp_tot,sglidar%beta_tot,sglidar%betaperp_tot,sglidar%beta_mol,sgradar%Ze_tot, &
+                                    stradar%lidar_only_freq_cloud,stradar%radar_lidar_tcc)
+   endif
+   ! Replace undef
+   where (stlidar%cfad_sr   == LIDAR_UNDEF) stlidar%cfad_sr   = R_UNDEF
+   where (stlidar%lidarcld  == LIDAR_UNDEF) stlidar%lidarcld  = R_UNDEF
+   where (stlidar%cldlayer  == LIDAR_UNDEF) stlidar%cldlayer  = R_UNDEF
+   where (stlidar%parasolrefl == LIDAR_UNDEF) stlidar%parasolrefl = R_UNDEF
+   where (stlidar%cldlayerphase  == LIDAR_UNDEF) stlidar%cldlayerphase  = R_UNDEF
+   where (stlidar%lidarcldphase  == LIDAR_UNDEF) stlidar%lidarcldphase  = R_UNDEF
+   where (stlidar%lidarcldtmp  == LIDAR_UNDEF) stlidar%lidarcldtmp  = R_UNDEF
+
+END SUBROUTINE COSP_STATS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!---------- SUBROUTINE COSP_CHANGE_VERTICAL_GRID ----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_CHANGE_VERTICAL_GRID(Npoints,Ncolumns,Nlevels,zfull,zhalf,y,Nglevels,newgrid_bot,newgrid_top,r,log_units)
+   implicit none
+   ! Input arguments
+   integer,intent(in) :: Npoints  !# of grid points
+   integer,intent(in) :: Nlevels  !# of levels
+   integer,intent(in) :: Ncolumns !# of columns
+   real,dimension(Npoints,Nlevels),intent(in) :: zfull ! Height at model levels [m] (Bottom of model layer)
+   real,dimension(Npoints,Nlevels),intent(in) :: zhalf ! Height at half model levels [m] (Bottom of model layer)
+   real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: y     ! Variable to be changed to a different grid
+   integer,intent(in) :: Nglevels  !# levels in the new grid
+   real,dimension(Nglevels),intent(in) :: newgrid_bot ! Lower boundary of new levels  [m]
+   real,dimension(Nglevels),intent(in) :: newgrid_top ! Upper boundary of new levels  [m]
+   logical,optional,intent(in) :: log_units ! log units, need to convert to linear units
+   ! Output
+   real,dimension(Npoints,Ncolumns,Nglevels),intent(out) :: r ! Variable on new grid
+
+   ! Local variables
+   integer :: i,j,k
+   logical :: lunits
+   integer :: l
+   real :: w ! Weight
+   real :: dbb, dtb, dbt, dtt ! Distances between edges of both grids
+   integer :: Nw  ! Number of weights
+   real :: wt  ! Sum of weights
+   real,dimension(Nlevels) :: oldgrid_bot,oldgrid_top ! Lower and upper boundaries of model grid
+   real :: yp ! Local copy of y at a particular point.
+              ! This allows for change of units.
+
+   lunits=.false.
+   if (present(log_units)) lunits=log_units
+
+   r = 0.0
+
+   do i=1,Npoints
+     ! Calculate tops and bottoms of new and old grids
+     oldgrid_bot = zhalf(i,:)
+     oldgrid_top(1:Nlevels-1) = oldgrid_bot(2:Nlevels)
+     oldgrid_top(Nlevels) = zfull(i,Nlevels) +  zfull(i,Nlevels) - zhalf(i,Nlevels) ! Top level symmetric
+     l = 0 ! Index of level in the old grid
+     ! Loop over levels in the new grid
+     do k = 1,Nglevels
+       Nw = 0 ! Number of weigths
+       wt = 0.0 ! Sum of weights
+       ! Loop over levels in the old grid and accumulate total for weighted average
+       do
+         l = l + 1
+         w = 0.0 ! Initialise weight to 0
+         ! Distances between edges of both grids
+         dbb = oldgrid_bot(l) - newgrid_bot(k)
+         dtb = oldgrid_top(l) - newgrid_bot(k)
+         dbt = oldgrid_bot(l) - newgrid_top(k)
+         dtt = oldgrid_top(l) - newgrid_top(k)
+         if (dbt >= 0.0) exit ! Do next level in the new grid
+         if (dtb > 0.0) then
+           if (dbb <= 0.0) then
+             if (dtt <= 0) then
+               w = dtb
+             else
+               w = newgrid_top(k) - newgrid_bot(k)
+             endif
+           else
+             if (dtt <= 0) then
+               w = oldgrid_top(l) - oldgrid_bot(l)
+             else
+               w = -dbt
+             endif
+           endif
+           ! If layers overlap (w/=0), then accumulate
+           if (w /= 0.0) then
+             Nw = Nw + 1
+             wt = wt + w
+             do j=1,Ncolumns
+               if (lunits) then
+                 if (y(i,j,l) /= R_UNDEF) then
+                   yp = 10.0**(y(i,j,l)/10.0)
+                 else
+                   yp = 0.0
+                 endif
+               else
+                 yp = y(i,j,l)
+               endif
+               r(i,j,k) = r(i,j,k) + w*yp
+             enddo
+           endif
+         endif
+       enddo
+       l = l - 2
+       if (l < 1) l = 0
+       ! Calculate average in new grid
+       if (Nw > 0) then
+         do j=1,Ncolumns
+           r(i,j,k) = r(i,j,k)/wt
+         enddo
+       endif
+     enddo
+   enddo
+
+   ! Set points under surface to R_UNDEF, and change to dBZ if necessary
+   do k=1,Nglevels
+     do j=1,Ncolumns
+       do i=1,Npoints
+         if (newgrid_top(k) > zhalf(i,1)) then ! Level above model bottom level
+           if (lunits) then
+             if (r(i,j,k) <= 0.0) then
+               r(i,j,k) = R_UNDEF
+             else
+               r(i,j,k) = 10.0*log10(r(i,j,k))
+             endif
+           endif
+         else ! Level below surface
+           r(i,j,k) = R_GROUND
+         endif
+       enddo
+     enddo
+   enddo
+
+END SUBROUTINE COSP_CHANGE_VERTICAL_GRID
+
+END MODULE MOD_COSP_STATS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_types.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_types.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_types.F90	(revision 3330)
@@ -0,0 +1,1643 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+MODULE MOD_COSP_TYPES
+    USE MOD_COSP_CONSTANTS
+    USE MOD_COSP_UTILS
+
+    use radar_simulator_types, only: class_param, nd, mt_nd, dmax, dmin
+
+    IMPLICIT NONE
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!----------------------- DERIVED TYPES ----------------------------    
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+  ! Configuration choices (simulators, variables)
+  TYPE COSP_CONFIG
+     logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim,Lstats,Lwrite_output, &
+                Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
+                LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
+                Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp, &
+                Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
+                Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
+                Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
+	              Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
+                Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
+                Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
+                Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
+                Lfracout,LlidarBetaMol532,Ltbrttov, &
+                Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
+                Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
+                Liwpmodis,Lclmodis
+
+     character(len=32) :: out_list(N_OUT_LIST)
+  END TYPE COSP_CONFIG
+  
+  ! Outputs from RTTOV
+  TYPE COSP_RTTOV
+     ! Dimensions
+     integer :: Npoints   ! Number of gridpoints
+     integer :: Nchan     ! Number of channels
+     
+     ! Brightness temperatures (Npoints,Nchan)
+     real,pointer :: tbs(:,:)
+     
+  END TYPE COSP_RTTOV
+  
+  ! Outputs from MISR simulator
+  TYPE COSP_MISR
+     ! Dimensions
+     integer :: Npoints   ! Number of gridpoints
+     integer :: Ntau      ! Number of tau intervals
+     integer :: Nlevels   ! Number of cth levels
+
+     ! --- (npoints,ntau,nlevels)
+     !  the fraction of the model grid box covered by each of the MISR cloud types
+     real,pointer :: fq_MISR(:,:,:)  
+     
+     ! --- (npoints)
+     real,pointer :: MISR_meanztop(:), MISR_cldarea(:)
+     ! --- (npoints,nlevels)
+     real,pointer :: MISR_dist_model_layertops(:,:)
+  END TYPE COSP_MISR
+
+  ! Outputs from ISCCP simulator
+  TYPE COSP_ISCCP
+     ! Dimensions
+     integer :: Npoints   ! Number of gridpoints
+     integer :: Ncolumns  ! Number of columns
+     integer :: Nlevels   ! Number of levels
+
+    
+     ! --- (npoints,tau=7,pressure=7)
+     !  the fraction of the model grid box covered by each of the 49 ISCCP D level cloud types
+     real,pointer :: fq_isccp(:,:,:)
+     
+     ! --- (npoints) ---
+     ! The fraction of model grid box columns with cloud somewhere in them.
+     ! This should equal the sum over all entries of fq_isccp
+     real,pointer :: totalcldarea(:)
+     ! mean all-sky 10.5 micron brightness temperature
+     real,pointer ::  meantb(:)
+     ! mean clear-sky 10.5 micron brightness temperature
+     real,pointer ::  meantbclr(:)
+     
+     ! The following three means are averages over the cloudy areas only.  If no
+     ! clouds are in grid box all three quantities should equal zero.
+     
+     !  mean cloud top pressure (mb) - linear averaging in cloud top pressure.
+     real,pointer :: meanptop(:)
+     !  mean optical thickness linear averaging in albedo performed.
+     real,pointer :: meantaucld(:)
+     ! mean cloud albedo. linear averaging in albedo performed 
+     real,pointer :: meanalbedocld(:)  
+     
+     !--- (npoints,ncol) ---
+     !  optical thickness in each column     
+     real,pointer :: boxtau(:,:)
+     !  cloud top pressure (mb) in each column
+     real,pointer :: boxptop(:,:)        
+  END TYPE COSP_ISCCP
+  
+  ! Summary statistics from radar
+  TYPE COSP_VGRID
+    logical :: use_vgrid ! Logical flag that indicates change of grid
+    logical :: csat_vgrid ! Flag for Cloudsat grid
+    integer :: Npoints   ! Number of sampled points
+    integer :: Ncolumns  ! Number of subgrid columns
+    integer :: Nlevels   ! Number of model levels
+    integer :: Nlvgrid   ! Number of levels of new grid
+    ! Array with dimensions (Nlvgrid)
+    real, dimension(:), pointer :: z,zl,zu ! Height and lower and upper boundaries of new levels
+    ! Array with dimensions (Nlevels)
+    real, dimension(:), pointer :: mz,mzl,mzu ! Height and lower and upper boundaries of model levels
+  END TYPE COSP_VGRID
+  
+  ! Output data from lidar code
+  TYPE COSP_SGLIDAR
+    ! Dimensions
+    integer :: Npoints   ! Number of gridpoints
+    integer :: Ncolumns  ! Number of columns
+    integer :: Nlevels   ! Number of levels
+    integer :: Nhydro    ! Number of hydrometeors    
+    integer :: Nrefl     ! Number of parasol reflectances
+    ! Arrays with dimensions (Npoints,Nlevels)
+    real,dimension(:,:),pointer :: beta_mol   ! Molecular backscatter
+    real,dimension(:,:),pointer :: temp_tot
+    ! Arrays with dimensions (Npoints,Ncolumns,Nlevels)
+    real,dimension(:,:,:),pointer :: betaperp_tot   ! Total backscattered signal
+    real,dimension(:,:,:),pointer :: beta_tot   ! Total backscattered signal
+    real,dimension(:,:,:),pointer :: tau_tot    ! Optical thickness integrated from top to level z
+    ! Arrays with dimensions (Npoints,Ncolumns,Nrefl)
+    real,dimension(:,:,:),pointer :: refl       ! parasol reflectances
+  END TYPE COSP_SGLIDAR
+  
+  ! Output data from radar code
+  TYPE COSP_SGRADAR
+    ! Dimensions
+    integer :: Npoints   ! Number of gridpoints
+    integer :: Ncolumns  ! Number of columns
+    integer :: Nlevels   ! Number of levels
+    integer :: Nhydro    ! Number of hydrometeors
+    ! output vertical levels: spaceborne radar -> from TOA to SURFACE
+    ! Arrays with dimensions (Npoints,Nlevels)
+    real,dimension(:,:),pointer :: att_gas ! 2-way attenuation by gases [dBZ]
+    ! Arrays with dimensions (Npoints,Ncolumns,Nlevels)
+    real,dimension(:,:,:),pointer :: Ze_tot ! Effective reflectivity factor [dBZ]
+ 
+  END TYPE COSP_SGRADAR
+
+  
+  ! Summary statistics from radar
+  TYPE COSP_RADARSTATS
+    integer :: Npoints  ! Number of sampled points
+    integer :: Ncolumns ! Number of subgrid columns
+    integer :: Nlevels  ! Number of model levels
+    integer :: Nhydro   ! Number of hydrometeors
+    ! Array with dimensions (Npoints,dBZe_bins,Nlevels)
+    real, dimension(:,:,:), pointer :: cfad_ze ! Ze CFAD
+    ! Array with dimensions (Npoints)
+    real,dimension(:),pointer :: radar_lidar_tcc ! Radar&lidar total cloud amount, grid-box scale
+    ! Arrays with dimensions (Npoints,Nlevels)
+    real, dimension(:,:),pointer :: lidar_only_freq_cloud
+  END TYPE COSP_RADARSTATS
+
+  ! Summary statistics from lidar
+  TYPE COSP_LIDARSTATS
+    integer :: Npoints  ! Number of sampled points
+    integer :: Ncolumns ! Number of subgrid columns
+    integer :: Nlevels  ! Number of model levels
+    integer :: Nhydro   ! Number of hydrometeors
+    integer :: Nrefl    ! Number of parasol reflectances
+    
+    ! Arrays with dimensions (SR_BINS)
+    real, dimension(:),pointer :: srbval ! SR bins in cfad_sr
+    ! Arrays with dimensions (Npoints,SR_BINS,Nlevels)
+    real, dimension(:,:,:),pointer :: cfad_sr   ! CFAD of scattering ratio
+    ! Arrays with dimensions (Npoints,Nlevels)
+    real, dimension(:,:),pointer :: lidarcld    ! 3D "lidar" cloud fraction 
+    ! Arrays with dimensions (Npoints,LIDAR_NCAT)
+    real, dimension(:,:),pointer :: cldlayer      ! low, mid, high-level, total lidar cloud cover
+   ! Arrays with dimensions (Npoints,Nlevels,Nphase)
+    real, dimension(:,:,:),pointer :: lidarcldphase    ! 3D "lidar" phase cloud fraction 
+     ! Arrays with dimensions (Npoints,LIDAR_NCAT,Nphase)
+    real, dimension(:,:,:),pointer :: cldlayerphase      ! low, mid, high-level lidar phase cloud cover
+    ! Arrays with dimensions (Npoints,Ntemps,Nphase)
+    real, dimension(:,:,:),pointer :: lidarcldtmp    ! 3D "lidar" phase cloud temperature
+    ! Arrays with dimensions (Npoints,PARASOL_NREFL)
+    real, dimension(:,:),pointer :: parasolrefl   ! mean parasol reflectance
+
+  END TYPE COSP_LIDARSTATS
+
+    
+  ! Input data for simulator. Subgrid scale.
+  ! Input data from SURFACE to TOA
+  TYPE COSP_SUBGRID
+    ! Dimensions
+    integer :: Npoints   ! Number of gridpoints
+    integer :: Ncolumns  ! Number of columns
+    integer :: Nlevels   ! Number of levels
+    integer :: Nhydro    ! Number of hydrometeors
+    
+    real,dimension(:,:,:),pointer :: prec_frac  ! Subgrid precip array. Dimensions (Npoints,Ncolumns,Nlevels)
+    real,dimension(:,:,:),pointer :: frac_out  ! Subgrid cloud array. Dimensions (Npoints,Ncolumns,Nlevels)
+  END TYPE COSP_SUBGRID
+
+  ! Input data for simulator at Subgrid scale.
+  ! Used on a reduced number of points
+  TYPE COSP_SGHYDRO
+    ! Dimensions
+    integer :: Npoints   ! Number of gridpoints
+    integer :: Ncolumns  ! Number of columns
+    integer :: Nlevels   ! Number of levels
+    integer :: Nhydro    ! Number of hydrometeors
+    real,dimension(:,:,:,:),pointer :: mr_hydro ! Mixing ratio of each hydrometeor 
+                                                ! (Npoints,Ncolumns,Nlevels,Nhydro) [kg/kg]
+    real,dimension(:,:,:,:),pointer :: Reff     ! Effective Radius of each hydrometeor
+                                                ! (Reff==0 means use default size)   
+                                                ! (Npoints,Ncolumns,Nlevels,Nhydro) [m]
+    real,dimension(:,:,:,:),pointer :: Np       ! Total # concentration each hydrometeor 
+                                                ! (Optional, ignored if Reff > 0).
+                                                ! (Npoints,Ncolumns,Nlevels,Nhydro) [#/kg]
+                                                ! Np = Ntot / rho_a  = [#/m^3] / [kg/m^3) 
+                                                ! added by Roj with Quickbeam V3
+  END TYPE COSP_SGHYDRO
+  
+  ! Input data for simulator. Gridbox scale.
+  TYPE COSP_GRIDBOX
+    ! Scalars and dimensions
+    integer :: Npoints   ! Number of gridpoints
+    integer :: Nlevels   ! Number of levels
+    integer :: Ncolumns  ! Number of columns
+    integer :: Nhydro    ! Number of hydrometeors
+    integer :: Nprmts_max_hydro    ! Max number of parameters for hydrometeor size distributions
+    integer :: Naero    ! Number of aerosol species
+    integer :: Nprmts_max_aero    ! Max number of parameters for aerosol size distributions
+    integer :: Npoints_it   ! Max number of gridpoints to be processed in one iteration
+    
+    ! Time [days]
+    double precision :: time
+    double precision :: time_bnds(2)
+    
+    ! Radar ancillary info
+    real :: radar_freq, & ! Radar frequency [GHz]
+            k2 ! |K|^2, -1=use frequency dependent default
+    integer :: surface_radar, & ! surface=1, spaceborne=0
+           use_mie_tables, & ! use a precomputed loopup table? yes=1,no=0
+           use_gas_abs, & ! include gaseous absorption? yes=1,no=0
+           do_ray, & ! calculate/output Rayleigh refl=1, not=0
+           melt_lay ! melting layer model off=0, on=1
+ 
+    ! structures used by radar simulator that need to be set only ONCE per radar configuration (e.g. freq, pointing direction) ... added by roj Feb 2008
+    type(class_param) ::  hp    ! structure used by radar simulator to store Ze and N scaling constants and other information
+    integer :: nsizes       ! number of discrete drop sizes (um) used to represent the distribution
+    
+    ! Lidar
+    integer :: lidar_ice_type !ice particle shape hypothesis in lidar calculations 
+                              !(ice_type=0 for spheres, ice_type=1 for non spherical particles)
+    
+    ! Radar
+    logical ::  use_precipitation_fluxes  ! True if precipitation fluxes are input to the algorithm 
+    logical ::  use_reff          ! True if Reff is to be used by radar (memory not allocated
+    
+    
+    ! Geolocation (Npoints)
+    real,dimension(:),pointer :: toffset   ! Time offset of esch point from the value in time
+    real,dimension(:),pointer :: longitude ! longitude [degrees East]
+    real,dimension(:),pointer :: latitude  ! latitude [deg North]
+    ! Gridbox information (Npoints,Nlevels)
+    real,dimension(:,:),pointer :: zlev ! Height of model levels [m]
+    real,dimension(:,:),pointer :: zlev_half ! Height at half model levels [m] (Bottom of model layer)
+    real,dimension(:,:),pointer :: dlev ! Depth of model levels  [m]
+    real,dimension(:,:),pointer :: p  ! Pressure at full model levels [Pa]
+    real,dimension(:,:),pointer :: ph ! Pressure at half model levels [Pa]
+    real,dimension(:,:),pointer :: T ! Temperature at model levels [K]
+    real,dimension(:,:),pointer :: q  ! Relative humidity to water (%)
+    real,dimension(:,:),pointer :: sh ! Specific humidity to water [kg/kg]
+    real,dimension(:,:),pointer :: dtau_s ! mean 0.67 micron optical depth of stratiform
+                                          !  clouds in each model level
+                                          !  NOTE:  this the cloud optical depth of only the
+                                          !  cloudy part of the grid box, it is not weighted
+                                          !  with the 0 cloud optical depth of the clear
+                                          !         part of the grid box
+    real,dimension(:,:),pointer :: dtau_c !  mean 0.67 micron optical depth of convective
+                                          !  clouds in each model level.  Same note applies as in dtau_s.
+    real,dimension(:,:),pointer :: dem_s  !  10.5 micron longwave emissivity of stratiform
+                                          !  clouds in each model level.  Same note applies as in dtau_s.
+    real,dimension(:,:),pointer :: dem_c  !  10.5 micron longwave emissivity of convective
+                                          !  clouds in each model level.  Same note applies as in dtau_s.
+    real,dimension(:,:),pointer :: mr_ozone !  Ozone mass mixing ratio [kg/kg]
+
+    ! Point information (Npoints)
+    real,dimension(:),pointer :: land !Landmask [0 - Ocean, 1 - Land]
+    real,dimension(:),pointer :: psfc !Surface pressure [Pa]
+    real,dimension(:),pointer :: sunlit ! (npoints) 1 for day points, 0 for nightime
+    real,dimension(:),pointer :: skt  ! Skin temperature (K)
+    real,dimension(:),pointer :: u_wind  ! eastward wind [m s-1]
+    real,dimension(:),pointer :: v_wind  ! northward wind [m s-1]
+
+    ! TOTAL and CONV cloud fraction for SCOPS
+    real,dimension(:,:),pointer :: tca ! Total cloud fraction
+    real,dimension(:,:),pointer :: cca ! Convective cloud fraction
+    ! Precipitation fluxes on model levels
+    real,dimension(:,:),pointer :: rain_ls ! large-scale precipitation flux of rain [kg/m2.s]
+    real,dimension(:,:),pointer :: rain_cv ! convective precipitation flux of rain [kg/m2.s]
+    real,dimension(:,:),pointer :: snow_ls ! large-scale precipitation flux of snow [kg/m2.s]
+    real,dimension(:,:),pointer :: snow_cv ! convective precipitation flux of snow [kg/m2.s]
+    real,dimension(:,:),pointer :: grpl_ls ! large-scale precipitation flux of graupel [kg/m2.s]
+    ! Hydrometeors concentration and distribution parameters
+!     real,dimension(:,:,:),pointer :: fr_hydro ! Fraction of the gridbox occupied by each hydrometeor (Npoints,Nlevels,Nhydro)
+    real,dimension(:,:,:),pointer :: mr_hydro ! Mixing ratio of each hydrometeor (Npoints,Nlevels,Nhydro) [kg/kg]
+    real,dimension(:,:),pointer   :: dist_prmts_hydro !Distributional parameters for hydrometeors (Nprmts_max_hydro,Nhydro)
+
+    ! Effective radius [m]. (Npoints,Nlevels,Nhydro) -- OPTIONAL, value of 0 mean use fixed default
+    real,dimension(:,:,:),pointer :: Reff
+
+    ! Total Number Concentration [#/kg]. (Npoints,Nlevels,Nhydro) -- OPTIONAL, value of 0 mean use fixed default
+    real,dimension(:,:,:),pointer :: Np ! added by Roj with Quickbeam V3
+ 
+    ! Aerosols concentration and distribution parameters
+    real,dimension(:,:,:),pointer :: conc_aero ! Aerosol concentration for each species (Npoints,Nlevels,Naero)
+    integer,dimension(:),pointer :: dist_type_aero ! Particle size distribution type for each aerosol species (Naero)
+    real,dimension(:,:,:,:),pointer :: dist_prmts_aero ! Distributional parameters for aerosols 
+                                                       ! (Npoints,Nlevels,Nprmts_max_aero,Naero)
+    ! ISCCP simulator inputs
+    integer :: isccp_top_height !  1 = adjust top height using both a computed
+                                !  infrared brightness temperature and the visible
+                                !  optical depth to adjust cloud top pressure. Note
+                                !  that this calculation is most appropriate to compare
+                                !  to ISCCP data during sunlit hours.
+                                !  2 = do not adjust top height, that is cloud top
+                                !  pressure is the actual cloud top pressure
+                                !  in the model
+                                !  3 = adjust top height using only the computed
+                                !  infrared brightness temperature. Note that this
+                                !  calculation is most appropriate to compare to ISCCP
+                                !  IR only algortihm (i.e. you can compare to nighttime
+                                !  ISCCP data with this option)
+    integer :: isccp_top_height_direction ! direction for finding atmosphere pressure level
+                                 ! with interpolated temperature equal to the radiance
+                                 ! determined cloud-top temperature
+                                 ! 1 = find the *lowest* altitude (highest pressure) level
+                                 ! with interpolated temperature equal to the radiance
+                                 ! determined cloud-top temperature
+                                 ! 2 = find the *highest* altitude (lowest pressure) level
+                                 ! with interpolated temperature equal to the radiance 
+                                 ! determined cloud-top temperature
+                                 ! ONLY APPLICABLE IF top_height EQUALS 1 or 3
+                                 ! 1 = default setting, and matches all versions of 
+                                 ! ISCCP simulator with versions numbers 3.5.1 and lower
+                                 ! 2 = experimental setting  
+    integer :: isccp_overlap !  overlap type (1=max, 2=rand, 3=max/rand)
+    real :: isccp_emsfc_lw      ! 10.5 micron emissivity of surface (fraction)
+  
+    ! RTTOV inputs/options
+    integer :: plat      ! satellite platform
+    integer :: sat       ! satellite
+    integer :: inst      ! instrument
+    integer :: Nchan     ! Number of channels to be computed
+    integer, dimension(:), pointer :: Ichan   ! Channel numbers
+    real,    dimension(:), pointer :: Surfem  ! Surface emissivity
+    real    :: ZenAng ! Satellite Zenith Angles
+    real :: co2,ch4,n2o,co ! Mixing ratios of trace gases
+
+  END TYPE COSP_GRIDBOX
+ 
+CONTAINS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_RTTOV -------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_RTTOV(cfg,Npoints,Nchan,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints  ! Number of sampled points
+    integer,intent(in) :: Nchan ! Number of channels
+    type(cosp_rttov),intent(out) :: x
+    ! Local variables
+    integer :: i,j
+    
+    ! Allocate minumum storage if simulator not used
+    if (cfg%Lrttov_sim) then
+      i = Npoints
+      j = Nchan
+    else
+      i = 1
+      j = 1
+    endif
+    x%Npoints  = i
+    x%Nchan    = j
+      
+    ! --- Allocate arrays ---
+    allocate(x%tbs(i, j))
+    ! --- Initialise to zero ---
+    x%tbs     = 0.0
+  END SUBROUTINE CONSTRUCT_COSP_RTTOV
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE FREE_COSP_RTTOV ------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_RTTOV(x)
+    type(cosp_rttov),intent(inout) :: x
+    
+    ! --- Deallocate arrays ---
+    deallocate(x%tbs)
+  END SUBROUTINE FREE_COSP_RTTOV
+  
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_MISR ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_MISR(cfg,Npoints,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints   ! Number of gridpoints
+    type(cosp_misr),intent(out) :: x
+    ! Local variables
+    integer :: i,j,k
+    
+   
+    ! Allocate minumum storage if simulator not used
+    if (cfg%Lmisr_sim) then
+      i = Npoints
+      j = 7
+      k = MISR_N_CTH
+    else
+      i = 1
+      j = 1
+      k = 1
+    endif
+    
+    ! Dimensions
+    x%Npoints = i
+    x%Ntau    = j
+    x%Nlevels = k
+    
+    ! allocate space for MISR simulator outputs ...
+    allocate(x%fq_MISR(i,j,k), x%MISR_meanztop(i),x%MISR_cldarea(i), x%MISR_dist_model_layertops(i,k))
+    x%fq_MISR = 0.0
+    x%MISR_meanztop = 0.0
+    x%MISR_cldarea = 0.0
+    x%MISR_dist_model_layertops = 0.0
+    
+  END SUBROUTINE CONSTRUCT_COSP_MISR
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE FREE_COSP_MISR ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_MISR(x)
+    type(cosp_misr),intent(inout) :: x
+    deallocate(x%fq_MISR, x%MISR_meanztop,x%MISR_cldarea, x%MISR_dist_model_layertops)
+    
+  END SUBROUTINE FREE_COSP_MISR
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_ISCCP ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_ISCCP(cfg,Npoints,Ncolumns,Nlevels,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints  ! Number of sampled points
+    integer,intent(in) :: Ncolumns ! Number of subgrid columns
+    integer,intent(in) :: Nlevels  ! Number of model levels
+    type(cosp_isccp),intent(out) :: x
+    ! Local variables
+    integer :: i,j,k
+    
+    ! Allocate minumum storage if simulator not used
+    if (cfg%Lisccp_sim) then
+      i = Npoints
+      j = Ncolumns
+      k = Nlevels
+    else
+      i = 1
+      j = 1
+      k = 1
+    endif
+    
+    ! Dimensions
+    x%Npoints  = i
+    x%Ncolumns = j
+    x%Nlevels  = k
+    
+    ! --- Allocate arrays ---
+    allocate(x%fq_isccp(i,7,7), x%totalcldarea(i), &
+         x%meanptop(i), x%meantaucld(i), &
+         x%meantb(i), x%meantbclr(i), &
+         x%boxtau(i,j), x%boxptop(i,j), &
+         x%meanalbedocld(i))
+    ! --- Initialise to zero ---
+    x%fq_isccp     = 0.0
+    x%totalcldarea = 0.0
+    x%meanptop     = 0.0
+    x%meantaucld   = 0.0
+    x%meantb       = 0.0
+    x%meantbclr    = 0.0
+    x%boxtau       = 0.0
+    x%boxptop      = 0.0
+    x%meanalbedocld= 0.0
+  END SUBROUTINE CONSTRUCT_COSP_ISCCP
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE FREE_COSP_ISCCP -----------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_ISCCP(x)
+    type(cosp_isccp),intent(inout) :: x
+    
+    deallocate(x%fq_isccp, x%totalcldarea, &
+         x%meanptop, x%meantaucld, x%meantb, x%meantbclr, &
+         x%boxtau, x%boxptop, x%meanalbedocld)
+  END SUBROUTINE FREE_COSP_ISCCP
+  
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_VGRID ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_VGRID(gbx,Nlvgrid,use_vgrid,cloudsat,x)
+    type(cosp_gridbox),intent(in) :: gbx ! Gridbox information
+    integer,intent(in) :: Nlvgrid  ! Number of new levels    
+    logical,intent(in) :: use_vgrid! Logical flag that controls the output on a different grid
+    logical,intent(in) :: cloudsat ! TRUE if a CloudSat like grid (480m) is requested
+    type(cosp_vgrid),intent(out) :: x
+    
+    ! Local variables
+    integer :: i
+    real :: zstep
+    
+    x%use_vgrid  = use_vgrid
+    x%csat_vgrid = cloudsat
+    
+    ! Dimensions
+    x%Npoints  = gbx%Npoints
+    x%Ncolumns = gbx%Ncolumns
+    x%Nlevels  = gbx%Nlevels
+    
+    ! --- Allocate arrays ---
+    if (use_vgrid) then
+      x%Nlvgrid = Nlvgrid
+    else 
+      x%Nlvgrid = gbx%Nlevels
+    endif
+    allocate(x%z(x%Nlvgrid),x%zl(x%Nlvgrid),x%zu(x%Nlvgrid))
+    allocate(x%mz(x%Nlevels),x%mzl(x%Nlevels),x%mzu(x%Nlevels))
+    
+    ! --- Model vertical levels ---
+    ! Use height levels of first model gridbox
+    x%mz  = gbx%zlev(1,:)
+    x%mzl = gbx%zlev_half(1,:)
+    x%mzu(1:x%Nlevels-1) = gbx%zlev_half(1,2:x%Nlevels)
+    x%mzu(x%Nlevels) = gbx%zlev(1,x%Nlevels) + (gbx%zlev(1,x%Nlevels) - x%mzl(x%Nlevels))
+    
+    if (use_vgrid) then
+      ! --- Initialise to zero ---
+      x%z  = 0.0
+      x%zl = 0.0
+      x%zu = 0.0
+      if (cloudsat) then ! --- CloudSat grid requested ---
+         zstep = 480.0
+      else
+         ! Other grid requested. Constant vertical spacing with top at 20 km
+         zstep = 20000.0/x%Nlvgrid
+      endif
+      do i=1,x%Nlvgrid
+         x%zl(i) = (i-1)*zstep
+         x%zu(i) = i*zstep
+      enddo
+      x%z = (x%zl + x%zu)/2.0
+    else
+      x%z  = x%mz
+      x%zl = x%mzl
+      x%zu = x%mzu
+    endif
+    
+  END SUBROUTINE CONSTRUCT_COSP_VGRID
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------ SUBROUTINE FREE_COSP_VGRID ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_VGRID(x)
+    type(cosp_vgrid),intent(inout) :: x
+
+    deallocate(x%z, x%zl, x%zu, x%mz, x%mzl, x%mzu)
+  END SUBROUTINE FREE_COSP_VGRID
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_SGLIDAR ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_SGLIDAR(cfg,Npoints,Ncolumns,Nlevels,Nhydro,Nrefl,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints  ! Number of sampled points
+    integer,intent(in) :: Ncolumns ! Number of subgrid columns
+    integer,intent(in) :: Nlevels  ! Number of model levels
+    integer,intent(in) :: Nhydro   ! Number of hydrometeors
+    integer,intent(in) :: Nrefl    ! Number of parasol reflectances ! parasol
+    type(cosp_sglidar),intent(out) :: x
+    ! Local variables
+    integer :: i,j,k,l,m
+    
+    ! Allocate minumum storage if simulator not used
+    if (cfg%Llidar_sim) then
+      i = Npoints
+      j = Ncolumns
+      k = Nlevels
+      l = Nhydro
+      m = Nrefl
+    else
+      i = 1
+      j = 1
+      k = 1
+      l = 1
+      m = 1
+    endif
+    
+    ! Dimensions
+    x%Npoints  = i
+    x%Ncolumns = j
+    x%Nlevels  = k
+    x%Nhydro   = l
+    x%Nrefl    = m
+    
+    ! --- Allocate arrays ---
+    allocate(x%beta_mol(i,k), x%beta_tot(i,j,k), &
+             x%tau_tot(i,j,k),x%refl(i,j,m), &
+             x%temp_tot(i,k),x%betaperp_tot(i,j,k))
+    ! --- Initialise to zero ---
+    x%beta_mol   = 0.0
+    x%beta_tot   = 0.0
+    x%tau_tot    = 0.0
+    x%refl       = 0.0 ! parasol
+    x%temp_tot   	= 0.0
+    x%betaperp_tot 	= 0.0	
+  END SUBROUTINE CONSTRUCT_COSP_SGLIDAR
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------ SUBROUTINE FREE_COSP_SGLIDAR ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_SGLIDAR(x)
+    type(cosp_sglidar),intent(inout) :: x
+
+    deallocate(x%beta_mol, x%beta_tot, x%tau_tot, x%refl, &
+               x%temp_tot, x%betaperp_tot)
+
+  END SUBROUTINE FREE_COSP_SGLIDAR
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_SGRADAR ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_SGRADAR(cfg,Npoints,Ncolumns,Nlevels,Nhydro,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints  ! Number of sampled points
+    integer,intent(in) :: Ncolumns ! Number of subgrid columns
+    integer,intent(in) :: Nlevels  ! Number of model levels
+    integer,intent(in) :: Nhydro   ! Number of hydrometeors
+    type(cosp_sgradar),intent(out) :: x
+    ! Local variables
+    integer :: i,j,k,l
+    
+    if (cfg%Lradar_sim) then
+      i = Npoints
+      j = Ncolumns
+      k = Nlevels
+      l = Nhydro
+    else ! Allocate minumum storage if simulator not used
+      i = 1
+      j = 1
+      k = 1
+      l = 1
+    endif
+    
+    ! Dimensions
+    x%Npoints  = i
+    x%Ncolumns = j
+    x%Nlevels  = k
+    x%Nhydro   = l
+    
+    ! --- Allocate arrays ---
+    allocate(x%att_gas(i,k), x%Ze_tot(i,j,k))
+    ! --- Initialise to zero ---
+    x%att_gas   = 0.0
+    x%Ze_tot    = 0.0
+    ! The following line give a compilation error on the Met Office NEC
+!     call zero_real(x%Z_hydro, x%att_hydro)
+!     f90: error(666): cosp_types.f90, line nnn:
+!                                        Actual argument corresponding to dummy
+!                                        argument of ELEMENTAL subroutine
+!                                        "zero_real" with INTENET(OUT) attribute
+!                                        is not array.
+  END SUBROUTINE CONSTRUCT_COSP_SGRADAR
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------ SUBROUTINE FREE_COSP_SGRADAR ----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_SGRADAR(x)
+    type(cosp_sgradar),intent(inout) :: x
+
+    deallocate(x%att_gas, x%Ze_tot)
+  END SUBROUTINE FREE_COSP_SGRADAR
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!----------- SUBROUTINE CONSTRUCT_COSP_RADARSTATS ---------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_RADARSTATS(cfg,Npoints,Ncolumns,Nlevels,Nhydro,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints  ! Number of sampled points
+    integer,intent(in) :: Ncolumns ! Number of subgrid columns
+    integer,intent(in) :: Nlevels  ! Number of model levels
+    integer,intent(in) :: Nhydro   ! Number of hydrometeors
+    type(cosp_radarstats),intent(out) :: x    
+    ! Local variables
+    integer :: i,j,k,l
+    
+    ! Allocate minumum storage if simulator not used
+    if (cfg%Lradar_sim) then
+      i = Npoints
+      j = Ncolumns
+      k = Nlevels
+      l = Nhydro
+    else
+      i = 1
+      j = 1
+      k = 1
+      l = 1
+    endif
+    
+    ! Dimensions
+    x%Npoints  = i
+    x%Ncolumns = j
+    x%Nlevels  = k
+    x%Nhydro   = l
+    
+    ! --- Allocate arrays ---
+    allocate(x%cfad_ze(i,DBZE_BINS,k),x%lidar_only_freq_cloud(i,k))
+    allocate(x%radar_lidar_tcc(i))
+    ! --- Initialise to zero ---
+    x%cfad_ze = 0.0
+    x%lidar_only_freq_cloud = 0.0
+    x%radar_lidar_tcc = 0.0
+  END SUBROUTINE CONSTRUCT_COSP_RADARSTATS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------ SUBROUTINE FREE_COSP_RADARSTATS -------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_RADARSTATS(x)
+    type(cosp_radarstats),intent(inout) :: x
+
+    deallocate(x%cfad_ze,x%lidar_only_freq_cloud,x%radar_lidar_tcc)
+  END SUBROUTINE FREE_COSP_RADARSTATS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!----------- SUBROUTINE CONSTRUCT_COSP_LIDARSTATS ---------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_LIDARSTATS(cfg,Npoints,Ncolumns,Nlevels,Nhydro,Nrefl,x)
+    type(cosp_config),intent(in) :: cfg ! Configuration options
+    integer,intent(in) :: Npoints  ! Number of sampled points
+    integer,intent(in) :: Ncolumns ! Number of subgrid columns
+    integer,intent(in) :: Nlevels  ! Number of model levels
+    integer,intent(in) :: Nhydro   ! Number of hydrometeors
+    integer,intent(in) :: Nrefl    ! Number of parasol reflectance
+    type(cosp_lidarstats),intent(out) :: x
+    ! Local variables
+    integer :: i,j,k,l,m
+    
+    ! Allocate minumum storage if simulator not used
+    if (cfg%Llidar_sim) then
+      i = Npoints
+      j = Ncolumns
+      k = Nlevels
+      l = Nhydro
+      m = Nrefl
+    else
+      i = 1
+      j = 1
+      k = 1
+      l = 1
+      m = 1
+    endif
+    
+    ! Dimensions
+    x%Npoints  = i
+    x%Ncolumns = j
+    x%Nlevels  = k
+    x%Nhydro   = l
+    x%Nrefl    = m
+    
+    ! --- Allocate arrays ---
+    allocate(x%srbval(SR_BINS),x%cfad_sr(i,SR_BINS,k), &
+             x%lidarcld(i,k), x%cldlayer(i,LIDAR_NCAT), x%parasolrefl(i,m))
+    allocate(x%lidarcldphase(i,k,6),x%lidarcldtmp(i,LIDAR_NTEMP,5),&
+             x%cldlayerphase(i,LIDAR_NCAT,6))
+    ! --- Initialise to zero ---
+    x%srbval    = 0.0
+    x%cfad_sr   = 0.0
+    x%lidarcld  = 0.0
+    x%cldlayer  = 0.0
+    x%parasolrefl  = 0.0
+    x%lidarcldphase  = 0.0
+    x%cldlayerphase  = 0.0
+    x%lidarcldtmp  = 0.0
+
+   END SUBROUTINE CONSTRUCT_COSP_LIDARSTATS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------ SUBROUTINE FREE_COSP_LIDARSTATS -------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_LIDARSTATS(x)
+    type(cosp_lidarstats),intent(inout) :: x
+
+    deallocate(x%srbval, x%cfad_sr, x%lidarcld, x%cldlayer, x%parasolrefl)
+    deallocate(x%cldlayerphase, x%lidarcldtmp, x%lidarcldphase)
+  END SUBROUTINE FREE_COSP_LIDARSTATS
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_SUBGRID ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_SUBGRID(Npoints,Ncolumns,Nlevels,y)
+    integer,intent(in) :: Npoints, & ! Number of gridpoints
+                                        Ncolumns, & ! Number of columns
+                                        Nlevels   ! Number of levels
+    type(cosp_subgrid),intent(out) :: y
+    
+    ! Dimensions
+    y%Npoints  = Npoints
+    y%Ncolumns = Ncolumns
+    y%Nlevels  = Nlevels
+
+    ! --- Allocate arrays ---
+    allocate(y%frac_out(Npoints,Ncolumns,Nlevels))
+    if (Ncolumns > 1) then
+      allocate(y%prec_frac(Npoints,Ncolumns,Nlevels))
+    else ! CRM mode, not needed
+      allocate(y%prec_frac(1,1,1))
+    endif
+    ! --- Initialise to zero ---
+    y%prec_frac = 0.0
+    y%frac_out  = 0.0
+    ! The following line gives a compilation error on the Met Office NEC
+!     call zero_real(y%mr_hydro)
+!     f90: error(666): cosp_types.f90, line nnn:
+!                                        Actual argument corresponding to dummy
+!                                        argument of ELEMENTAL subroutine
+!                                        "zero_real" with INTENET(OUT) attribute
+!                                        is not array.
+
+  END SUBROUTINE CONSTRUCT_COSP_SUBGRID
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE FREE_COSP_SUBGRID -----------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_SUBGRID(y)
+    type(cosp_subgrid),intent(inout) :: y
+    
+    ! --- Deallocate arrays ---
+    deallocate(y%prec_frac, y%frac_out)
+        
+  END SUBROUTINE FREE_COSP_SUBGRID
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_SGHYDRO -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_SGHYDRO(Npoints,Ncolumns,Nlevels,Nhydro,y)
+    integer,intent(in) :: Npoints, & ! Number of gridpoints
+                                        Ncolumns, & ! Number of columns
+                                        Nhydro, & ! Number of hydrometeors
+                                        Nlevels   ! Number of levels
+    type(cosp_sghydro),intent(out) :: y
+    
+    ! Dimensions
+    y%Npoints  = Npoints
+    y%Ncolumns = Ncolumns
+    y%Nlevels  = Nlevels
+    y%Nhydro   = Nhydro
+
+    ! --- Allocate arrays ---
+    allocate(y%mr_hydro(Npoints,Ncolumns,Nlevels,Nhydro), &
+             y%Reff(Npoints,Ncolumns,Nlevels,Nhydro), &
+             y%Np(Npoints,Ncolumns,Nlevels,Nhydro)) ! added by roj with Quickbeam V3
+             
+    ! --- Initialise to zero ---
+    y%mr_hydro = 0.0
+    y%Reff     = 0.0
+    y%Np       = 0.0                    ! added by roj with Quickbeam V3
+
+  END SUBROUTINE CONSTRUCT_COSP_SGHYDRO
+
+ !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE FREE_COSP_SGHYDRO -----------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_SGHYDRO(y)
+    type(cosp_sghydro),intent(inout) :: y
+    
+    ! --- Deallocate arrays ---
+    deallocate(y%mr_hydro, y%Reff, y%Np)        ! added by Roj with Quickbeam V3
+        
+  END SUBROUTINE FREE_COSP_SGHYDRO
+ 
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE CONSTRUCT_COSP_GRIDBOX ------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE CONSTRUCT_COSP_GRIDBOX(time,time_bnds,radar_freq,surface_radar,use_mie_tables,use_gas_abs,do_ray,melt_lay,k2, &
+                                   Npoints,Nlevels,Ncolumns,Nhydro,Nprmts_max_hydro,Naero,Nprmts_max_aero,Npoints_it, &
+                                   lidar_ice_type,isccp_top_height,isccp_top_height_direction,isccp_overlap,isccp_emsfc_lw, &
+                                   use_precipitation_fluxes,use_reff, &
+                                   ! RTTOV inputs
+                                   Plat,Sat,Inst,Nchan,ZenAng,Ichan,SurfEm,co2,ch4,n2o,co,&
+                                   y,load_LUT)
+    double precision,intent(in) :: time ! Time since start of run [days] 
+    double precision,intent(in) :: time_bnds(2) ! Time boundaries
+    real,intent(in)    :: radar_freq, & ! Radar frequency [GHz]
+                          k2            ! |K|^2, -1=use frequency dependent default
+    integer,intent(in) :: &
+        surface_radar, &  ! surface=1,spaceborne=0
+        use_mie_tables, & ! use a precomputed lookup table? yes=1,no=0,2=use first column everywhere
+        use_gas_abs, &    ! include gaseous absorption? yes=1,no=0
+        do_ray, &         ! calculate/output Rayleigh refl=1, not=0
+        melt_lay          ! melting layer model off=0, on=1
+    integer,intent(in) :: Npoints   ! Number of gridpoints
+    integer,intent(in) :: Nlevels   ! Number of levels
+    integer,intent(in) :: Ncolumns  ! Number of columns
+    integer,intent(in) :: Nhydro    ! Number of hydrometeors
+    integer,intent(in) :: Nprmts_max_hydro    ! Max number of parameters for hydrometeor size distributions
+    integer,intent(in) :: Naero    ! Number of aerosol species
+    integer,intent(in) :: Nprmts_max_aero    ! Max number of parameters for aerosol size distributions
+    integer,intent(in) :: Npoints_it   ! Number of gridpoints processed in one iteration
+    integer,intent(in) :: lidar_ice_type ! Ice particle shape in lidar calculations (0=ice-spheres ; 1=ice-non-spherical)
+    integer,intent(in) :: isccp_top_height
+    integer,intent(in) :: isccp_top_height_direction
+    integer,intent(in) :: isccp_overlap
+    real,intent(in)    :: isccp_emsfc_lw
+    logical,intent(in) :: use_precipitation_fluxes,use_reff
+    integer,intent(in) :: Plat
+    integer,intent(in) :: Sat
+    integer,intent(in) :: Inst
+    integer,intent(in) :: Nchan
+    integer,intent(in) :: Ichan(Nchan)
+    real,intent(in)    :: SurfEm(Nchan)
+    real,intent(in)    :: ZenAng
+    real,intent(in)    :: co2,ch4,n2o,co
+    type(cosp_gridbox),intent(out) :: y
+    logical,intent(in),optional :: load_LUT
+
+
+    ! local variables
+    character*240 :: LUT_file_name
+    logical :: local_load_LUT
+
+    if (present(load_LUT)) then
+      local_load_LUT = load_LUT
+    else
+      local_load_LUT = RADAR_SIM_LOAD_scale_LUTs_flag
+    endif
+
+    ! Dimensions and scalars
+    y%radar_freq       = radar_freq
+    y%surface_radar    = surface_radar
+    y%use_mie_tables   = use_mie_tables
+    y%use_gas_abs      = use_gas_abs
+    y%do_ray           = do_ray
+    y%melt_lay         = melt_lay
+    y%k2               = k2
+    y%Npoints          = Npoints
+    y%Nlevels          = Nlevels
+    y%Ncolumns         = Ncolumns
+    y%Nhydro           = Nhydro
+    y%Nprmts_max_hydro = Nprmts_max_hydro
+    y%Naero            = Naero
+    y%Nprmts_max_aero  = Nprmts_max_aero
+    y%Npoints_it       = Npoints_it
+    y%lidar_ice_type   = lidar_ice_type
+    y%isccp_top_height = isccp_top_height
+    y%isccp_top_height_direction = isccp_top_height_direction
+    y%isccp_overlap    = isccp_overlap
+    y%isccp_emsfc_lw   = isccp_emsfc_lw
+    y%use_precipitation_fluxes = use_precipitation_fluxes
+    y%use_reff = use_reff
+    
+    y%time      = time
+    y%time_bnds = time_bnds
+    
+    ! RTTOV parameters
+    y%Plat   = Plat
+    y%Sat    = Sat
+    y%Inst   = Inst
+    y%Nchan  = Nchan
+    y%ZenAng = ZenAng
+    y%co2    = co2
+    y%ch4    = ch4
+    y%n2o    = n2o
+    y%co     = co
+
+    ! --- Allocate arrays ---
+    ! Gridbox information (Npoints,Nlevels)
+    allocate(y%zlev(Npoints,Nlevels), y%zlev_half(Npoints,Nlevels), y%dlev(Npoints,Nlevels), &
+             y%p(Npoints,Nlevels), y%ph(Npoints,Nlevels), y%T(Npoints,Nlevels), &
+             y%q(Npoints,Nlevels), y%sh(Npoints,Nlevels), &
+             y%dtau_s(Npoints,Nlevels), y%dtau_c(Npoints,Nlevels), &
+             y%dem_s(Npoints,Nlevels), y%dem_c(Npoints,Nlevels), &
+             y%tca(Npoints,Nlevels), y%cca(Npoints,Nlevels), &
+             y%rain_ls(Npoints,Nlevels), y%rain_cv(Npoints,Nlevels), y%grpl_ls(Npoints,Nlevels), &
+             y%snow_ls(Npoints,Nlevels), y%snow_cv(Npoints,Nlevels),y%mr_ozone(Npoints,Nlevels))
+             
+             
+    ! Surface information and geolocation (Npoints)
+    allocate(y%toffset(Npoints), y%longitude(Npoints),y%latitude(Npoints),y%psfc(Npoints), y%land(Npoints), &
+             y%sunlit(Npoints),y%skt(Npoints),y%u_wind(Npoints),y%v_wind(Npoints))
+    ! Hydrometeors concentration and distribution parameters
+    allocate(y%mr_hydro(Npoints,Nlevels,Nhydro), &
+             y%dist_prmts_hydro(Nprmts_max_hydro,Nhydro), &
+             y%Reff(Npoints,Nlevels,Nhydro), &
+             y%Np(Npoints,Nlevels,Nhydro))      ! added by Roj with Quickbeam V3
+    ! Aerosols concentration and distribution parameters
+    allocate(y%conc_aero(Npoints,Nlevels,Naero), y%dist_type_aero(Naero), &
+             y%dist_prmts_aero(Npoints,Nlevels,Nprmts_max_aero,Naero))
+    
+    ! RTTOV channels and sfc. emissivity
+    allocate(y%ichan(Nchan),y%surfem(Nchan))
+    
+    ! RTTOV parameters
+    y%ichan   =  ichan
+    y%surfem  =  surfem
+    
+    ! --- Initialise to zero ---
+    y%zlev      = 0.0
+    y%zlev_half = 0.0
+    y%dlev      = 0.0
+    y%p         = 0.0
+    y%ph        = 0.0
+    y%T         = 0.0
+    y%q         = 0.0
+    y%sh        = 0.0
+    y%dtau_s    = 0.0
+    y%dtau_c    = 0.0
+    y%dem_s     = 0.0
+    y%dem_c     = 0.0
+    y%tca       = 0.0
+    y%cca       = 0.0
+    y%rain_ls   = 0.0
+    y%rain_cv   = 0.0
+    y%grpl_ls   = 0.0
+    y%snow_ls   = 0.0
+    y%snow_cv   = 0.0
+    y%Reff      = 0.0
+    y%Np        = 0.0 ! added by Roj with Quickbeam V3
+    y%mr_ozone  = 0.0
+    y%u_wind    = 0.0
+    y%v_wind    = 0.0
+
+    
+    ! (Npoints)
+    y%toffset = 0.0
+    y%longitude = 0.0
+    y%latitude = 0.0
+    y%psfc = 0.0
+    y%land = 0.0
+    y%sunlit = 0.0
+    y%skt = 0.0
+    ! (Npoints,Nlevels,Nhydro)
+!     y%fr_hydro = 0.0
+    y%mr_hydro = 0.0
+    ! Others
+    y%dist_prmts_hydro = 0.0 ! (Nprmts_max_hydro,Nhydro)
+    y%conc_aero        = 0.0 ! (Npoints,Nlevels,Naero)
+    y%dist_type_aero   = 0   ! (Naero)
+    y%dist_prmts_aero  = 0.0 ! (Npoints,Nlevels,Nprmts_max_aero,Naero)
+
+
+    ! NOTE: This location use to contain initialization of some radar simulator variables
+    ! this initialization (including use of the variable "dist_prmts_hydro" - now obselete) 
+    ! has been unified in the quickbeam v3 subroutine "radar_simulator_init".   Roj, June 2010
+
+    ! --- Initialize the distributional parameters for hydrometeors in radar simulator
+
+    write(*,*) 'RADAR_SIM microphysics scheme is set to: ', &
+            trim(RADAR_SIM_MICROPHYSICS_SCHEME_NAME)
+
+
+    if(y%Nhydro.ne.N_HYDRO) then
+
+        write(*,*) 'Number of hydrometeor input to subroutine', &
+               ' CONSTRUCT_COSP_GRIDBOX does not match value', &
+               ' specified in cosp_constants.f90!'
+        write(*,*) 
+    endif
+
+    ! NOTE: SAVE_scale_LUTs_flag is hard codded as .false. here 
+    ! so that radar simulator will NOT update LUT each time it 
+    ! is called, but rather will update when "Free_COSP_GRIDBOX" is called!
+    ! Roj, June 2010
+
+    LUT_file_name = trim(RADAR_SIM_LUT_DIRECTORY) // &
+                trim(RADAR_SIM_MICROPHYSICS_SCHEME_NAME)
+
+    call radar_simulator_init(radar_freq,k2, &
+                      use_gas_abs,do_ray,R_UNDEF, &
+                      y%Nhydro, &
+                      HCLASS_TYPE,HCLASS_PHASE, &
+                      HCLASS_DMIN,HCLASS_DMAX, &
+                      HCLASS_APM,HCLASS_BPM,HCLASS_RHO, &
+                      HCLASS_P1,HCLASS_P2,HCLASS_P3, &
+                      local_load_LUT,    &
+                      .false., &
+                      LUT_file_name, &
+                      y%hp)
+
+END SUBROUTINE CONSTRUCT_COSP_GRIDBOX
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE FREE_COSP_GRIDBOX -----------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE FREE_COSP_GRIDBOX(y,dglobal,save_LUT)
+
+    use scale_LUTs_io
+
+    type(cosp_gridbox),intent(inout) :: y
+    logical,intent(in),optional :: dglobal
+    logical,intent(in),optional :: save_LUT
+
+    logical :: local_save_LUT
+
+    if (present(save_LUT)) then
+      local_save_LUT = save_LUT
+    else
+      local_save_LUT = RADAR_SIM_UPDATE_scale_LUTs_flag
+    endif
+
+    ! save any updates to radar simulator LUT
+    if (local_save_LUT) call save_scale_LUTs(y%hp)
+
+    deallocate(y%zlev, y%zlev_half, y%dlev, y%p, y%ph, y%T, y%q, &
+               y%sh, y%dtau_s, y%dtau_c, y%dem_s, y%dem_c, &
+               y%toffset, y%longitude,y%latitude,y%psfc, y%land, y%tca, y%cca, &
+               y%mr_hydro, y%dist_prmts_hydro, &
+               y%conc_aero, y%dist_type_aero, y%dist_prmts_aero, &
+               y%rain_ls, y%rain_cv, y%snow_ls, y%snow_cv, y%grpl_ls, &
+               y%sunlit, y%skt, y%Reff,y%Np, &
+               y%ichan,y%surfem, &
+               y%mr_ozone,y%u_wind,y%v_wind)
+
+  END SUBROUTINE FREE_COSP_GRIDBOX
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_GRIDBOX_CPHP ----------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_GRIDBOX_CPHP(x,y)
+    type(cosp_gridbox),intent(in) :: x
+    type(cosp_gridbox),intent(inout) :: y
+
+    integer :: i,j,k,sz(3)
+    double precision :: tny
+
+    tny = tiny(tny)
+    y%hp%p1      = x%hp%p1
+    y%hp%p2      = x%hp%p2
+    y%hp%p3      = x%hp%p3
+    y%hp%dmin    = x%hp%dmin
+    y%hp%dmax    = x%hp%dmax
+    y%hp%apm     = x%hp%apm
+    y%hp%bpm     = x%hp%bpm
+    y%hp%rho     = x%hp%rho
+    y%hp%dtype   = x%hp%dtype
+    y%hp%col     = x%hp%col
+    y%hp%cp      = x%hp%cp
+    y%hp%phase   = x%hp%phase
+
+    y%hp%fc      = x%hp%fc
+    y%hp%rho_eff = x%hp%rho_eff
+    ! y%hp%ifc     = x%hp%ifc       obsolete, Roj, June 2010
+    ! y%hp%idd     = x%hp%idd
+    sz = shape(x%hp%Z_scale_flag)
+    do k=1,sz(3)
+      do j=1,sz(2)
+        do i=1,sz(1)
+           if (x%hp%N_scale_flag(i,k))   y%hp%N_scale_flag(i,k)      = .true.
+           if (x%hp%Z_scale_flag(i,j,k)) y%hp%Z_scale_flag(i,j,k)    = .true.
+           if (abs(x%hp%Ze_scaled(i,j,k)) > tny) y%hp%Ze_scaled(i,j,k) = x%hp%Ze_scaled(i,j,k)
+           if (abs(x%hp%Zr_scaled(i,j,k)) > tny) y%hp%Zr_scaled(i,j,k) = x%hp%Zr_scaled(i,j,k)
+           if (abs(x%hp%kr_scaled(i,j,k)) > tny) y%hp%kr_scaled(i,j,k) = x%hp%kr_scaled(i,j,k)
+        enddo
+      enddo
+    enddo
+    
+END SUBROUTINE COSP_GRIDBOX_CPHP
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_GRIDBOX_CPSECTION -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_GRIDBOX_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_gridbox),intent(in) :: x
+    type(cosp_gridbox),intent(inout) :: y
+    
+    ! --- Copy arrays without Npoints as dimension ---
+    y%dist_prmts_hydro = x%dist_prmts_hydro
+    y%dist_type_aero   = x%dist_type_aero
+  
+    
+!     call cosp_gridbox_cphp(x,y)    
+    
+    ! 1D
+    y%longitude(iy(1):iy(2))  = x%longitude(ix(1):ix(2))
+    y%latitude(iy(1):iy(2))   = x%latitude(ix(1):ix(2))
+    y%psfc(iy(1):iy(2))       = x%psfc(ix(1):ix(2))
+    y%land(iy(1):iy(2))       = x%land(ix(1):ix(2))
+    y%sunlit(iy(1):iy(2))     = x%sunlit(ix(1):ix(2))
+    y%skt(iy(1):iy(2))        = x%skt(ix(1):ix(2))
+    y%u_wind(iy(1):iy(2))     = x%u_wind(ix(1):ix(2))
+    y%v_wind(iy(1):iy(2))     = x%v_wind(ix(1):ix(2))
+    ! 2D
+    y%zlev(iy(1):iy(2),:)      = x%zlev(ix(1):ix(2),:)
+    y%zlev_half(iy(1):iy(2),:) = x%zlev_half(ix(1):ix(2),:)
+    y%dlev(iy(1):iy(2),:)      = x%dlev(ix(1):ix(2),:)
+    y%p(iy(1):iy(2),:)         = x%p(ix(1):ix(2),:)
+    y%ph(iy(1):iy(2),:)        = x%ph(ix(1):ix(2),:)
+    y%T(iy(1):iy(2),:)         = x%T(ix(1):ix(2),:)
+    y%q(iy(1):iy(2),:)         = x%q(ix(1):ix(2),:)
+    y%sh(iy(1):iy(2),:)        = x%sh(ix(1):ix(2),:)
+    y%dtau_s(iy(1):iy(2),:)    = x%dtau_s(ix(1):ix(2),:)
+    y%dtau_c(iy(1):iy(2),:)    = x%dtau_c(ix(1):ix(2),:)
+    y%dem_s(iy(1):iy(2),:)     = x%dem_s(ix(1):ix(2),:)
+    y%dem_c(iy(1):iy(2),:)     = x%dem_c(ix(1):ix(2),:)
+    y%tca(iy(1):iy(2),:)       = x%tca(ix(1):ix(2),:)
+    y%cca(iy(1):iy(2),:)       = x%cca(ix(1):ix(2),:)
+    y%rain_ls(iy(1):iy(2),:)   = x%rain_ls(ix(1):ix(2),:)
+    y%rain_cv(iy(1):iy(2),:)   = x%rain_cv(ix(1):ix(2),:)
+    y%grpl_ls(iy(1):iy(2),:)   = x%grpl_ls(ix(1):ix(2),:)
+    y%snow_ls(iy(1):iy(2),:)   = x%snow_ls(ix(1):ix(2),:)
+    y%snow_cv(iy(1):iy(2),:)   = x%snow_cv(ix(1):ix(2),:)
+    y%mr_ozone(iy(1):iy(2),:)  = x%mr_ozone(ix(1):ix(2),:)
+    ! 3D
+    y%Reff(iy(1):iy(2),:,:)      = x%Reff(ix(1):ix(2),:,:)
+    y%Np(iy(1):iy(2),:,:)      = x%Np(ix(1):ix(2),:,:)   ! added by Roj with Quickbeam V3
+    y%conc_aero(iy(1):iy(2),:,:) = x%conc_aero(ix(1):ix(2),:,:)
+    y%mr_hydro(iy(1):iy(2),:,:)  = x%mr_hydro(ix(1):ix(2),:,:)
+    ! 4D
+    y%dist_prmts_aero(iy(1):iy(2),:,:,:) = x%dist_prmts_aero(ix(1):ix(2),:,:,:)
+
+END SUBROUTINE COSP_GRIDBOX_CPSECTION
+ 
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_SUBGRID_CPSECTION -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_SUBGRID_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_subgrid),intent(in) :: x
+    type(cosp_subgrid),intent(inout) :: y
+    
+    y%prec_frac(iy(1):iy(2),:,:)  = x%prec_frac(ix(1):ix(2),:,:)
+    y%frac_out(iy(1):iy(2),:,:)   = x%frac_out(ix(1):ix(2),:,:)
+END SUBROUTINE COSP_SUBGRID_CPSECTION
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_SGRADAR_CPSECTION -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_SGRADAR_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_sgradar),intent(in) :: x
+    type(cosp_sgradar),intent(inout) :: y
+    
+    y%att_gas(iy(1):iy(2),:)  = x%att_gas(ix(1):ix(2),:)
+    y%Ze_tot(iy(1):iy(2),:,:) = x%Ze_tot(ix(1):ix(2),:,:)
+END SUBROUTINE COSP_SGRADAR_CPSECTION
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_SGLIDAR_CPSECTION -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_SGLIDAR_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_sglidar),intent(in) :: x
+    type(cosp_sglidar),intent(inout) :: y
+
+    y%temp_tot(iy(1):iy(2),:)       = x%temp_tot(ix(1):ix(2),:)
+    y%betaperp_tot(iy(1):iy(2),:,:) = x%betaperp_tot(ix(1):ix(2),:,:)
+    y%beta_mol(iy(1):iy(2),:)       = x%beta_mol(ix(1):ix(2),:)
+    y%beta_tot(iy(1):iy(2),:,:)     = x%beta_tot(ix(1):ix(2),:,:)
+    y%tau_tot(iy(1):iy(2),:,:)      = x%tau_tot(ix(1):ix(2),:,:)
+    y%refl(iy(1):iy(2),:,:)         = x%refl(ix(1):ix(2),:,:)
+END SUBROUTINE COSP_SGLIDAR_CPSECTION
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_ISCCP_CPSECTION -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_ISCCP_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_isccp),intent(in) :: x
+    type(cosp_isccp),intent(inout) :: y
+
+    y%fq_isccp(iy(1):iy(2),:,:)  = x%fq_isccp(ix(1):ix(2),:,:)
+    y%totalcldarea(iy(1):iy(2))  = x%totalcldarea(ix(1):ix(2))
+    y%meantb(iy(1):iy(2))        = x%meantb(ix(1):ix(2))
+    y%meantbclr(iy(1):iy(2))     = x%meantbclr(ix(1):ix(2))
+    y%meanptop(iy(1):iy(2))      = x%meanptop(ix(1):ix(2))
+    y%meantaucld(iy(1):iy(2))    = x%meantaucld(ix(1):ix(2))
+    y%meanalbedocld(iy(1):iy(2)) = x%meanalbedocld(ix(1):ix(2))
+    y%boxtau(iy(1):iy(2),:)      = x%boxtau(ix(1):ix(2),:)
+    y%boxptop(iy(1):iy(2),:)     = x%boxptop(ix(1):ix(2),:)
+END SUBROUTINE COSP_ISCCP_CPSECTION
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_MISR_CPSECTION -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_MISR_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_misr),intent(in) :: x
+    type(cosp_misr),intent(inout) :: y
+            
+    y%fq_MISR(iy(1):iy(2),:,:)                 = x%fq_MISR(ix(1):ix(2),:,:)
+    y%MISR_meanztop(iy(1):iy(2))               = x%MISR_meanztop(ix(1):ix(2))
+    y%MISR_cldarea(iy(1):iy(2))                = x%MISR_cldarea(ix(1):ix(2))
+    y%MISR_dist_model_layertops(iy(1):iy(2),:) = x%MISR_dist_model_layertops(ix(1):ix(2),:)
+END SUBROUTINE COSP_MISR_CPSECTION
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_RTTOV_CPSECTION -------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_RTTOV_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_rttov),intent(in) :: x
+    type(cosp_rttov),intent(inout) :: y
+            
+    y%tbs(iy(1):iy(2),:) = x%tbs(ix(1):ix(2),:)
+END SUBROUTINE COSP_RTTOV_CPSECTION
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_RADARSTATS_CPSECTION --------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_RADARSTATS_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_radarstats),intent(in) :: x
+    type(cosp_radarstats),intent(inout) :: y
+            
+    y%cfad_ze(iy(1):iy(2),:,:)             = x%cfad_ze(ix(1):ix(2),:,:)
+    y%radar_lidar_tcc(iy(1):iy(2))         = x%radar_lidar_tcc(ix(1):ix(2))
+    y%lidar_only_freq_cloud(iy(1):iy(2),:) = x%lidar_only_freq_cloud(ix(1):ix(2),:)
+END SUBROUTINE COSP_RADARSTATS_CPSECTION
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_LIDARSTATS_CPSECTION --------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_LIDARSTATS_CPSECTION(ix,iy,x,y)
+    integer,intent(in),dimension(2) :: ix,iy
+    type(cosp_lidarstats),intent(in) :: x
+    type(cosp_lidarstats),intent(inout) :: y
+            
+    y%srbval                     = x%srbval
+    y%cfad_sr(iy(1):iy(2),:,:)   = x%cfad_sr(ix(1):ix(2),:,:)
+    y%lidarcld(iy(1):iy(2),:)    = x%lidarcld(ix(1):ix(2),:)
+    y%cldlayer(iy(1):iy(2),:)    = x%cldlayer(ix(1):ix(2),:)
+    y%parasolrefl(iy(1):iy(2),:) = x%parasolrefl(ix(1):ix(2),:)
+    y%lidarcldphase(iy(1):iy(2),:,:)  = x%lidarcldphase(ix(1):ix(2),:,:)
+    y%cldlayerphase(iy(1):iy(2),:,:)  = x%cldlayerphase(ix(1):ix(2),:,:)
+    y%lidarcldtmp(iy(1):iy(2),:,:)    = x%lidarcldtmp(ix(1):ix(2),:,:)
+END SUBROUTINE COSP_LIDARSTATS_CPSECTION
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- PRINT SUBROUTINES --------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_GRIDBOX_PRINT(x)
+    type(cosp_gridbox),intent(in) :: x
+
+    print *, '%%%%----- Information on COSP_GRIDBOX ------'
+    ! Scalars and dimensions
+    print *,  x%Npoints
+    print *,  x%Nlevels
+    print *,  x%Ncolumns
+    print *,  x%Nhydro
+    print *,  x%Nprmts_max_hydro
+    print *,  x%Naero
+    print *,  x%Nprmts_max_aero
+    print *,  x%Npoints_it
+    
+    ! Time [days]
+    print *,  x%time
+    
+    ! Radar ancillary info
+    print *,  x%radar_freq, &
+            x%k2
+    print *,  x%surface_radar, &
+              x%use_mie_tables, &
+              x%use_gas_abs, &
+              x%do_ray, &
+              x%melt_lay
+
+!               print *,  'shape(x%): ',shape(x%)
+ 
+!     type(class_param) ::  hp  ! structure used by radar simulator to store Ze and N scaling constants and other information
+!     type(mie)::  mt           ! structure used by radar simulator to store mie LUT information
+    print *,  x%nsizes
+    
+    ! Lidar
+    print *,  x%lidar_ice_type
+    
+    ! Radar
+    print *,  x%use_precipitation_fluxes
+    print *,  x%use_reff
+    
+    ! Geolocation (Npoints)
+    print *,  'shape(x%longitude): ',shape(x%longitude)
+    print *,  'shape(x%latitude): ',shape(x%latitude)
+    ! Gridbox information (Npoints,Nlevels)
+    print *,  'shape(x%zlev): ',shape(x%zlev)
+    print *,  'shape(x%zlev_half): ',shape(x%zlev_half)
+    print *,  'shape(x%dlev): ',shape(x%dlev)
+    print *,  'shape(x%p): ',shape(x%p)
+    print *,  'shape(x%ph): ',shape(x%ph)
+    print *,  'shape(x%T): ',shape(x%T)
+    print *,  'shape(x%q): ',shape(x%q)
+    print *,  'shape(x%sh): ',shape(x%sh)
+    print *,  'shape(x%dtau_s): ',shape(x%dtau_s)
+    print *,  'shape(x%dtau_c): ',shape(x%dtau_c)
+    print *,  'shape(x%dem_s): ',shape(x%dem_s)
+    print *,  'shape(x%dem_c): ',shape(x%dem_c)
+    print *,  'shape(x%mr_ozone): ',shape(x%mr_ozone)
+
+    ! Point information (Npoints)
+    print *,  'shape(x%land): ',shape(x%land)
+    print *,  'shape(x%psfc): ',shape(x%psfc)
+    print *,  'shape(x%sunlit): ',shape(x%sunlit)
+    print *,  'shape(x%skt): ',shape(x%skt)
+    print *,  'shape(x%u_wind): ',shape(x%u_wind)
+    print *,  'shape(x%v_wind): ',shape(x%v_wind)
+
+    ! TOTAL and CONV cloud fraction for SCOPS
+    print *,  'shape(x%tca): ',shape(x%tca)
+    print *,  'shape(x%cca): ',shape(x%cca)
+    ! Precipitation fluxes on model levels
+    print *,  'shape(x%rain_ls): ',shape(x%rain_ls)
+    print *,  'shape(x%rain_cv): ',shape(x%rain_cv)
+    print *,  'shape(x%snow_ls): ',shape(x%snow_ls)
+    print *,  'shape(x%snow_cv): ',shape(x%snow_cv)
+    print *,  'shape(x%grpl_ls): ',shape(x%grpl_ls)
+    ! Hydrometeors concentration and distribution parameters
+    print *,  'shape(x%mr_hydro): ',shape(x%mr_hydro)
+    print *,  'shape(x%dist_prmts_hydro): ',shape(x%dist_prmts_hydro)
+    ! Effective radius [m]. (Npoints,Nlevels,Nhydro)
+    print *,  'shape(x%Reff): ',shape(x%Reff)
+    print *,  'shape(x%Np): ',shape(x%Np)       ! added by roj with Quickbeam V3
+    ! Aerosols concentration and distribution parameters
+    print *,  'shape(x%conc_aero): ',shape(x%conc_aero)
+    print *,  'shape(x%dist_type_aero): ',shape(x%dist_type_aero)
+    print *,  'shape(x%dist_prmts_aero): ',shape(x%dist_prmts_aero)
+    ! ISCCP simulator inputs
+    print *, x%isccp_top_height
+    print *, x%isccp_top_height_direction
+    print *, x%isccp_overlap
+    print *, x%isccp_emsfc_lw
+  
+    ! RTTOV inputs/options
+    print *, x%plat
+    print *, x%sat
+    print *, x%inst
+    print *, x%Nchan
+    print *,  'shape(x%Ichan): ',x%Ichan
+    print *,  'shape(x%Surfem): ',x%Surfem
+    print *, x%ZenAng
+    print *, x%co2,x%ch4,x%n2o,x%co
+                
+END SUBROUTINE COSP_GRIDBOX_PRINT
+
+SUBROUTINE COSP_MISR_PRINT(x)
+    type(cosp_misr),intent(in) :: x
+
+    print *, '%%%%----- Information on COSP_MISR ------'
+                
+     ! Dimensions
+    print *, x%Npoints
+    print *, x%Ntau
+    print *, x%Nlevels
+
+     ! --- (npoints,ntau,nlevels)
+     !  the fraction of the model grid box covered by each of the MISR cloud types
+     print *,  'shape(x%fq_MISR): ',shape(x%fq_MISR)
+     
+     ! --- (npoints)
+     print *,  'shape(x%MISR_meanztop): ',shape(x%MISR_meanztop)
+     print *,  'shape(x%MISR_cldarea): ',shape(x%MISR_cldarea)
+     ! --- (npoints,nlevels)
+     print *,  'shape(x%MISR_dist_model_layertops): ',shape(x%MISR_dist_model_layertops)
+    
+END SUBROUTINE COSP_MISR_PRINT
+
+SUBROUTINE COSP_ISCCP_PRINT(x)
+    type(cosp_isccp),intent(in) :: x
+            
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+
+    print *, '%%%%----- Information on COSP_ISCCP ------'
+    
+     print *, 'shape(x%fq_isccp): ',shape(x%fq_isccp)
+     print *, 'shape(x%totalcldarea): ',shape(x%totalcldarea)
+     print *, 'shape(x%meantb): ',shape(x%meantb)
+     print *, 'shape(x%meantbclr): ',shape(x%meantbclr)
+     
+     print *, 'shape(x%meanptop): ',shape(x%meanptop)
+     print *, 'shape(x%meantaucld): ',shape(x%meantaucld)
+     print *, 'shape(x%meanalbedocld): ',shape(x%meanalbedocld)
+     print *, 'shape(x%boxtau): ',shape(x%boxtau)
+     print *, 'shape(x%boxptop): ',shape(x%boxptop)
+END SUBROUTINE COSP_ISCCP_PRINT
+
+SUBROUTINE COSP_VGRID_PRINT(x)
+    type(cosp_vgrid),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_VGRID ------'
+    print *, x%use_vgrid
+    print *, x%csat_vgrid
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nlvgrid
+    ! Array with dimensions (Nlvgrid)
+    print *, 'shape(x%z): ',shape(x%z)
+    print *, 'shape(x%zl): ',shape(x%zl)
+    print *, 'shape(x%zu): ',shape(x%zu)
+    ! Array with dimensions (Nlevels)
+    print *, 'shape(x%mz): ',shape(x%mz)
+    print *, 'shape(x%mzl): ',shape(x%mzl)
+    print *, 'shape(x%mzu): ',shape(x%mzu)
+END SUBROUTINE COSP_VGRID_PRINT
+
+SUBROUTINE COSP_SGLIDAR_PRINT(x)
+    type(cosp_sglidar),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_SGLIDAR ------'
+    ! Dimensions
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nhydro
+    print *, x%Nrefl
+    ! Arrays with dimensions (Npoints,Nlevels)
+    print *, 'shape(x%beta_mol): ',shape(x%beta_mol)
+    ! Arrays with dimensions (Npoints,Ncolumns,Nlevels)
+    print *, 'shape(x%beta_tot): ',shape(x%beta_tot)
+    print *, 'shape(x%tau_tot): ',shape(x%tau_tot)
+    ! Arrays with dimensions (Npoints,Ncolumns,Nrefl)
+    print *, 'shape(x%refl): ',shape(x%refl)
+END SUBROUTINE COSP_SGLIDAR_PRINT
+
+SUBROUTINE COSP_SGRADAR_PRINT(x)
+    type(cosp_sgradar),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_SGRADAR ------'
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nhydro
+    ! output vertical levels: spaceborne radar -> from TOA to SURFACE
+    ! Arrays with dimensions (Npoints,Nlevels)
+    print *, 'shape(x%att_gas): ', shape(x%att_gas)
+    ! Arrays with dimensions (Npoints,Ncolumns,Nlevels)
+    print *, 'shape(x%Ze_tot): ', shape(x%Ze_tot)
+END SUBROUTINE COSP_SGRADAR_PRINT
+
+SUBROUTINE COSP_RADARSTATS_PRINT(x)
+    type(cosp_radarstats),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_SGRADAR ------'
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nhydro
+    print *, 'shape(x%cfad_ze): ',shape(x%cfad_ze)
+    print *, 'shape(x%radar_lidar_tcc): ',shape(x%radar_lidar_tcc)
+    print *, 'shape(x%lidar_only_freq_cloud): ',shape(x%lidar_only_freq_cloud)
+END SUBROUTINE COSP_RADARSTATS_PRINT
+
+SUBROUTINE COSP_LIDARSTATS_PRINT(x)
+    type(cosp_lidarstats),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_SGLIDAR ------'
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nhydro
+    print *, x%Nrefl
+    
+    ! Arrays with dimensions (SR_BINS)
+    print *, 'shape(x%srbval): ',shape(x%srbval)
+    ! Arrays with dimensions (Npoints,SR_BINS,Nlevels)
+    print *, 'shape(x%cfad_sr): ',shape(x%cfad_sr)
+    ! Arrays with dimensions (Npoints,Nlevels)
+    print *, 'shape(x%lidarcld): ',shape(x%lidarcld)
+    ! Arrays with dimensions (Npoints,LIDAR_NCAT)
+    print *, 'shape(x%cldlayer): ',shape(x%cldlayer)
+    ! Arrays with dimensions (Npoints,PARASOL_NREFL)
+    print *, 'shape(x%parasolrefl): ',shape(x%parasolrefl)
+     ! Arrays with dimensions (Npoints,Nlevels,Nphase)
+    print *, 'shape(x%lidarcldphase): ',shape(x%lidarcldphase)
+     ! Arrays with dimensions (Npoints,LIDAR_NCAT,Nphase)
+    print *, 'shape(x%cldlayerphase): ',shape(x%cldlayerphase)
+     ! Arrays with dimensions (Npoints,Ntemps,Nphase)
+    print *, 'shape(x%lidarcldphase): ',shape(x%lidarcldtmp)
+
+END SUBROUTINE COSP_LIDARSTATS_PRINT
+
+SUBROUTINE COSP_SUBGRID_PRINT(x)
+    type(cosp_subgrid),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_SUBGRID ------'
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nhydro
+    
+    print *, 'shape(x%prec_frac): ',shape(x%prec_frac)
+    print *, 'shape(x%frac_out): ',shape(x%frac_out)
+END SUBROUTINE COSP_SUBGRID_PRINT
+
+SUBROUTINE COSP_SGHYDRO_PRINT(x)
+    type(cosp_sghydro),intent(in) :: x
+            
+    print *, '%%%%----- Information on COSP_SGHYDRO ------'
+    print *, x%Npoints
+    print *, x%Ncolumns
+    print *, x%Nlevels
+    print *, x%Nhydro
+    
+    print *, 'shape(x%mr_hydro): ',shape(x%mr_hydro)
+    print *, 'shape(x%Reff): ',shape(x%Reff)
+    print *, 'shape(x%Np): ',shape(x%Np)         ! added by roj with Quickbeam V3
+END SUBROUTINE COSP_SGHYDRO_PRINT
+
+END MODULE MOD_COSP_TYPES
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_utils.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_utils.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/cosp_utils.F90	(revision 3330)
@@ -0,0 +1,344 @@
+! (c) British Crown Copyright 2008, the Met Office.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/cosp_utils.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+!
+! History:
+! Jul 2007 - A. Bodas-Salcedo - Initial version
+!
+
+MODULE MOD_COSP_UTILS
+  USE MOD_COSP_CONSTANTS
+  IMPLICIT NONE
+
+  INTERFACE Z_TO_DBZ
+    MODULE PROCEDURE Z_TO_DBZ_2D,Z_TO_DBZ_3D,Z_TO_DBZ_4D
+  END INTERFACE
+
+  INTERFACE COSP_CHECK_INPUT
+    MODULE PROCEDURE COSP_CHECK_INPUT_1D,COSP_CHECK_INPUT_2D,COSP_CHECK_INPUT_3D
+  END INTERFACE
+CONTAINS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------- SUBROUTINE COSP_PRECIP_MXRATIO --------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_PRECIP_MXRATIO(Npoints,Nlevels,Ncolumns,p,T,prec_frac,prec_type, &
+                          n_ax,n_bx,alpha_x,c_x,d_x,g_x,a_x,b_x,gamma1,gamma2,gamma3,gamma4, &
+                          flux,mxratio,reff)
+
+    ! Input arguments, (IN)
+    integer,intent(in) :: Npoints,Nlevels,Ncolumns
+    real,intent(in),dimension(Npoints,Nlevels) :: p,T,flux
+    real,intent(in),dimension(Npoints,Ncolumns,Nlevels) :: prec_frac
+    real,intent(in) :: n_ax,n_bx,alpha_x,c_x,d_x,g_x,a_x,b_x,gamma1,gamma2,gamma3,gamma4,prec_type
+    ! Input arguments, (OUT)
+    real,intent(out),dimension(Npoints,Ncolumns,Nlevels) :: mxratio
+    real,intent(inout),dimension(Npoints,Ncolumns,Nlevels) :: reff
+    ! Local variables
+    integer :: i,j,k
+    real :: sigma,one_over_xip1,xi,rho0,rho,lambda_x,gamma_4_3_2,delta
+    
+    mxratio = 0.0
+
+    if (n_ax >= 0.0) then ! N_ax is used to control which hydrometeors need to be computed
+        xi      = d_x/(alpha_x + b_x - n_bx + 1.0)
+        rho0    = 1.29
+        sigma   = (gamma2/(gamma1*c_x))*(n_ax*a_x*gamma2)**xi
+        one_over_xip1 = 1.0/(xi + 1.0)
+        gamma_4_3_2 = 0.5*gamma4/gamma3
+        delta = (alpha_x + b_x + d_x - n_bx + 1.0)
+        
+        do k=1,Nlevels
+            do j=1,Ncolumns
+                do i=1,Npoints
+                    if ((prec_frac(i,j,k)==prec_type).or.(prec_frac(i,j,k)==3.)) then
+                        rho = p(i,k)/(287.05*T(i,k))
+                        mxratio(i,j,k)=(flux(i,k)*((rho/rho0)**g_x)*sigma)**one_over_xip1
+                        mxratio(i,j,k)=mxratio(i,j,k)/rho
+                        ! Compute effective radius
+                        if ((reff(i,j,k) <= 0.0).and.(flux(i,k) /= 0.0)) then
+                           lambda_x = (a_x*c_x*((rho0/rho)**g_x)*n_ax*gamma1/flux(i,k))**(1./delta)
+                           reff(i,j,k) = gamma_4_3_2/lambda_x
+                        endif
+                    endif
+                enddo
+            enddo
+        enddo
+    endif
+END SUBROUTINE COSP_PRECIP_MXRATIO
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------- SUBROUTINE ZERO_INT -------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ELEMENTAL SUBROUTINE ZERO_INT(x,y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, &
+                                 y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, &
+                                 y21,y22,y23,y24,y25,y26,y27,y28,y29,y30)
+
+  integer,intent(inout) :: x
+  integer,intent(inout),optional :: y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, &
+                                    y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, &
+                                    y21,y22,y23,y24,y25,y26,y27,y28,y29,y30
+  x = 0
+  if (present(y01)) y01 = 0
+  if (present(y02)) y02 = 0
+  if (present(y03)) y03 = 0
+  if (present(y04)) y04 = 0
+  if (present(y05)) y05 = 0
+  if (present(y06)) y06 = 0
+  if (present(y07)) y07 = 0
+  if (present(y08)) y08 = 0
+  if (present(y09)) y09 = 0
+  if (present(y10)) y10 = 0
+  if (present(y11)) y11 = 0
+  if (present(y12)) y12 = 0
+  if (present(y13)) y13 = 0
+  if (present(y14)) y14 = 0
+  if (present(y15)) y15 = 0
+  if (present(y16)) y16 = 0
+  if (present(y17)) y17 = 0
+  if (present(y18)) y18 = 0
+  if (present(y19)) y19 = 0
+  if (present(y20)) y20 = 0
+  if (present(y21)) y21 = 0
+  if (present(y22)) y22 = 0
+  if (present(y23)) y23 = 0
+  if (present(y24)) y24 = 0
+  if (present(y25)) y25 = 0
+  if (present(y26)) y26 = 0
+  if (present(y27)) y27 = 0
+  if (present(y28)) y28 = 0
+  if (present(y29)) y29 = 0
+  if (present(y30)) y30 = 0
+END SUBROUTINE  ZERO_INT
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------------- SUBROUTINE ZERO_REAL ------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ELEMENTAL SUBROUTINE ZERO_REAL(x,y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, &
+                                 y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, &
+                                 y21,y22,y23,y24,y25,y26,y27,y28,y29,y30)
+
+  real,intent(inout) :: x
+  real,intent(inout),optional :: y01,y02,y03,y04,y05,y06,y07,y08,y09,y10, &
+                                 y11,y12,y13,y14,y15,y16,y17,y18,y19,y20, &
+                                 y21,y22,y23,y24,y25,y26,y27,y28,y29,y30
+  x = 0.0
+  if (present(y01)) y01 = 0.0
+  if (present(y02)) y02 = 0.0
+  if (present(y03)) y03 = 0.0
+  if (present(y04)) y04 = 0.0
+  if (present(y05)) y05 = 0.0
+  if (present(y06)) y06 = 0.0
+  if (present(y07)) y07 = 0.0
+  if (present(y08)) y08 = 0.0
+  if (present(y09)) y09 = 0.0
+  if (present(y10)) y10 = 0.0
+  if (present(y11)) y11 = 0.0
+  if (present(y12)) y12 = 0.0
+  if (present(y13)) y13 = 0.0
+  if (present(y14)) y14 = 0.0
+  if (present(y15)) y15 = 0.0
+  if (present(y16)) y16 = 0.0
+  if (present(y17)) y17 = 0.0
+  if (present(y18)) y18 = 0.0
+  if (present(y19)) y19 = 0.0
+  if (present(y20)) y20 = 0.0
+  if (present(y21)) y21 = 0.0
+  if (present(y22)) y22 = 0.0
+  if (present(y23)) y23 = 0.0
+  if (present(y24)) y24 = 0.0
+  if (present(y25)) y25 = 0.0
+  if (present(y26)) y26 = 0.0
+  if (present(y27)) y27 = 0.0
+  if (present(y28)) y28 = 0.0
+  if (present(y29)) y29 = 0.0
+  if (present(y30)) y30 = 0.0
+END SUBROUTINE  ZERO_REAL
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------------- SUBROUTINE Z_TO_DBZ_2D --------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE Z_TO_DBZ_2D(mdi,z)
+    real,intent(in) :: mdi
+    real,dimension(:,:),intent(inout) :: z
+    ! Reflectivity Z:
+    ! Input in [m3]
+    ! Output in dBZ, with Z in [mm6 m-3]
+    
+    ! 1.e18 to convert from [m3] to [mm6 m-3]
+    z = 1.e18*z
+    where (z > 1.0e-6) ! Limit to -60 dBZ
+      z = 10.0*log10(z)
+    elsewhere
+      z = mdi
+    end where  
+  END SUBROUTINE Z_TO_DBZ_2D
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------------- SUBROUTINE Z_TO_DBZ_3D --------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE Z_TO_DBZ_3D(mdi,z)
+    real,intent(in) :: mdi
+    real,dimension(:,:,:),intent(inout) :: z
+    ! Reflectivity Z:
+    ! Input in [m3]
+    ! Output in dBZ, with Z in [mm6 m-3]
+    
+    ! 1.e18 to convert from [m3] to [mm6 m-3]
+    z = 1.e18*z
+    where (z > 1.0e-6) ! Limit to -60 dBZ
+      z = 10.0*log10(z)
+    elsewhere
+      z = mdi
+    end where  
+  END SUBROUTINE Z_TO_DBZ_3D
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------------- SUBROUTINE Z_TO_DBZ_4D --------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE Z_TO_DBZ_4D(mdi,z)
+    real,intent(in) :: mdi
+    real,dimension(:,:,:,:),intent(inout) :: z
+    ! Reflectivity Z:
+    ! Input in [m3]
+    ! Output in dBZ, with Z in [mm6 m-3]
+    
+    ! 1.e18 to convert from [m3] to [mm6 m-3]
+    z = 1.e18*z
+    where (z > 1.0e-6) ! Limit to -60 dBZ
+      z = 10.0*log10(z)
+    elsewhere
+      z = mdi
+    end where  
+  END SUBROUTINE Z_TO_DBZ_4D
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!----------------- SUBROUTINES COSP_CHECK_INPUT_1D ---------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE COSP_CHECK_INPUT_1D(vname,x,min_val,max_val)
+    character(len=*) :: vname
+    real,intent(inout) :: x(:)
+    real,intent(in),optional :: min_val,max_val
+    logical :: l_min,l_max
+    character(len=128) :: pro_name='COSP_CHECK_INPUT_1D'
+    
+    l_min=.false.
+    l_max=.false.
+    
+    if (present(min_val)) then
+!       if (x < min_val) x = min_val
+      if (any(x < min_val)) then 
+      l_min = .true.
+        where (x < min_val)
+          x = min_val
+        end where
+      endif
+    endif    
+    if (present(max_val)) then
+!       if (x > max_val) x = max_val
+      if (any(x > max_val)) then 
+        l_max = .true.
+        where (x > max_val)
+          x = max_val
+        end where  
+      endif    
+    endif    
+    
+    if (l_min) print *,'----- WARNING: '//trim(pro_name)//': minimum value of '//trim(vname)//' set to: ',min_val
+    if (l_max) print *,'----- WARNING: '//trim(pro_name)//': maximum value of '//trim(vname)//' set to: ',max_val
+  END SUBROUTINE COSP_CHECK_INPUT_1D
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!----------------- SUBROUTINES COSP_CHECK_INPUT_2D ---------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE COSP_CHECK_INPUT_2D(vname,x,min_val,max_val)
+    character(len=*) :: vname
+    real,intent(inout) :: x(:,:)
+    real,intent(in),optional :: min_val,max_val
+    logical :: l_min,l_max
+    character(len=128) :: pro_name='COSP_CHECK_INPUT_2D'
+    
+    l_min=.false.
+    l_max=.false.
+    
+    if (present(min_val)) then
+!       if (x < min_val) x = min_val
+      if (any(x < min_val)) then 
+      l_min = .true.
+        where (x < min_val)
+          x = min_val
+        end where
+      endif
+    endif    
+    if (present(max_val)) then
+!       if (x > max_val) x = max_val
+      if (any(x > max_val)) then 
+        l_max = .true.
+        where (x > max_val)
+          x = max_val
+        end where  
+      endif    
+    endif    
+    
+    if (l_min) print *,'----- WARNING: '//trim(pro_name)//': minimum value of '//trim(vname)//' set to: ',min_val
+    if (l_max) print *,'----- WARNING: '//trim(pro_name)//': maximum value of '//trim(vname)//' set to: ',max_val
+  END SUBROUTINE COSP_CHECK_INPUT_2D
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!----------------- SUBROUTINES COSP_CHECK_INPUT_3D ---------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+  SUBROUTINE COSP_CHECK_INPUT_3D(vname,x,min_val,max_val)
+    character(len=*) :: vname
+    real,intent(inout) :: x(:,:,:)
+    real,intent(in),optional :: min_val,max_val
+    logical :: l_min,l_max
+    character(len=128) :: pro_name='COSP_CHECK_INPUT_3D'
+    
+    l_min=.false.
+    l_max=.false.
+    
+    if (present(min_val)) then
+!       if (x < min_val) x = min_val
+      if (any(x < min_val)) then 
+      l_min = .true.
+        where (x < min_val)
+          x = min_val
+        end where
+      endif
+    endif    
+    if (present(max_val)) then
+!       if (x > max_val) x = max_val
+      if (any(x > max_val)) then 
+        l_max = .true.
+        where (x > max_val)
+          x = max_val
+        end where  
+      endif    
+    endif    
+    
+    if (l_min) print *,'----- WARNING: '//trim(pro_name)//': minimum value of '//trim(vname)//' set to: ',min_val
+    if (l_max) print *,'----- WARNING: '//trim(pro_name)//': maximum value of '//trim(vname)//' set to: ',max_val
+  END SUBROUTINE COSP_CHECK_INPUT_3D
+
+
+END MODULE MOD_COSP_UTILS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/dsd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/dsd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/dsd.F90	(revision 3330)
@@ -0,0 +1,391 @@
+  subroutine dsd(Q,Re,Np,D,N,nsizes,dtype,rho_a,tk, &
+             dmin,dmax,apm,bpm,rho_c,p1,p2,p3)
+  use array_lib
+  use math_lib 
+  implicit none
+
+! Purpose:
+!   Create a discrete drop size distribution
+!
+!   Starting with Quickbeam V3, this routine now allows input of 
+!   both effective radius (Re) and total number concentration (Nt)
+!   Roj Marchand July 2010
+!
+!   The version in Quickbeam v.104 was modified to allow Re but not Nt 
+!   This is a significantly modified form for the version      
+!
+!   Originally Part of QuickBeam v1.03 by John Haynes
+!   http://reef.atmos.colostate.edu/haynes/radarsim
+!
+! Inputs:
+!
+!   [Q]        hydrometeor mixing ratio (g/kg)
+!   [Re]       Optional Effective Radius (microns).  0 = use defaults (p1, p2, p3)
+!
+!   [D]        array of discrete drop sizes (um) where we desire to know the number concentraiton n(D).
+!   [nsizes]   number of elements of [D]
+!
+!   [dtype]    distribution type
+!   [rho_a]    ambient air density (kg m^-3)
+!   [tk]       temperature (K)
+!   [dmin]     minimum size cutoff (um)
+!   [dmax]     maximum size cutoff (um)
+!   [rho_c]    alternate constant density (kg m^-3)
+!   [p1],[p2],[p3]  distribution parameters
+!
+! Input/Output:
+!   [apm]      a parameter for mass (kg m^[-bpm])
+!   [bmp]      b params for mass
+!
+! Outputs:
+!   [N]        discrete concentrations (cm^-3 um^-1)
+!              or, for monodisperse, a constant (1/cm^3)
+!
+! Requires:
+!   function infind
+!
+! Created:
+!   11/28/05  John Haynes (haynes@atmos.colostate.edu)
+! Modified:
+!   01/31/06  Port from IDL to Fortran 90
+!   07/07/06  Rewritten for variable DSD's
+!   10/02/06  Rewritten using scaling factors (Roger Marchand and JMH), Re added V1.04
+!   July 2020 "N Scale factors" (variable fc) removed (Roj Marchand).
+ 
+! ----- INPUTS -----  
+  
+  integer, intent(in) :: nsizes
+  integer, intent(in) :: dtype
+  real*8, intent(in)  :: Q,Re,Np,D(nsizes)
+  real*8, intent(in)  :: rho_a,tk,dmin,dmax,rho_c,p1,p2,p3
+    
+  real*8, intent(inout) :: apm,bpm  
+  
+! ----- OUTPUTS -----
+
+  real*8, intent(out) :: N(nsizes)
+  
+! ----- INTERNAL -----
+ 
+   real*8 :: fc(nsizes)
+
+  real*8 :: &
+  N0,D0,vu,local_np,dm,ld, &            ! gamma, exponential variables
+  dmin_mm,dmax_mm,ahp,bhp, &        ! power law variables
+  rg,log_sigma_g, &         ! lognormal variables
+  rho_e                 ! particle density (kg m^-3)
+  
+  real*8 :: tmp1, tmp2
+  real*8 :: pi,rc,tc
+
+  integer k,lidx,uidx
+
+  tc = tk - 273.15
+  pi = acos(-1.0)
+  
+  ! // if density is constant, store equivalent values for apm and bpm
+  if ((rho_c > 0) .and. (apm < 0)) then
+    apm = (pi/6)*rho_c
+    bpm = 3.
+  endif
+  
+  ! will preferentially use Re input over Np.
+  ! if only Np given then calculate Re
+  ! if neigher than use other defaults (p1,p2,p3) following quickbeam documentation
+  if(Re==0 .and. Np>0) then
+    
+        call calc_Re(Q,Np,rho_a, &
+             dtype,dmin,dmax,apm,bpm,rho_c,p1,p2,p3, &
+             Re)
+  endif
+ 
+  
+  select case(dtype)
+  
+! ---------------------------------------------------------!
+! // modified gamma                                        !
+! ---------------------------------------------------------!
+! :: np = total number concentration
+! :: D0 = characteristic diameter (um)
+! :: dm = mean diameter (um) - first moment over zeroth moment
+! :: vu = distribution width parameter
+
+  case(1)  
+  
+    if( abs(p3+2) < 1E-8) then
+  
+    if( Np>1E-30) then
+    
+        ! Morrison scheme with Martin 1994 shape parameter (NOTE: vu = pc +1)
+        ! fixed Roj. Dec. 2010 -- after comment by S. Mcfarlane
+        vu = (1/(0.2714 + 0.00057145*Np*rho_a*1E-6))**2.0 ! units of Nt = Np*rhoa = #/cm^3
+    else
+        print *, 'Error: Must specify a value for Np in each volume', &
+             ' with Morrison/Martin Scheme.'
+            stop    
+    endif
+    
+    elseif (abs(p3+1) > 1E-8) then
+
+      ! vu is fixed in hp structure  
+      vu = p3 
+
+    else
+
+      ! vu isn't specified
+      
+      print *, 'Error: Must specify a value for vu for Modified Gamma distribution'
+      stop    
+      
+    endif
+      
+      if(Re>0) then
+
+    D0 = 2.0*Re*gamma(vu+2)/gamma(vu+3)
+   
+        fc = ( &
+             ((D*1E-6)**(vu-1)*exp(-1*D/D0)) / &
+             (apm*((D0*1E-6)**(vu+bpm))*gamma(vu+bpm)) &
+         ) * 1E-12
+
+        N = fc*rho_a*(Q*1E-3)
+        
+      elseif( p2+1 > 1E-8) then     ! use default value for MEAN diameter
+      
+        dm = p2
+    D0 = gamma(vu)/gamma(vu+1)*dm
+
+        fc = ( &
+             ((D*1E-6)**(vu-1)*exp(-1*D/D0)) / &
+             (apm*((D0*1E-6)**(vu+bpm))*gamma(vu+bpm)) &
+         ) * 1E-12
+
+        N = fc*rho_a*(Q*1E-3)
+        
+      elseif(abs(p3+1) > 1E-8)  then! use default number concentration
+    
+        local_np = p1 ! total number concentration / pa check
+   
+    tmp1 = (Q*1E-3)**(1./bpm)
+      
+        fc = (D*1E-6 / (gamma(vu)/(apm*local_np*gamma(vu+bpm)))** &
+             (1./bpm))**vu
+         
+        N = ( &
+          (rho_a*local_np*fc*(D*1E-6)**(-1.))/(gamma(vu)*tmp1**vu) * &
+          exp(-1.*fc**(1./vu)/tmp1) &
+      ) * 1E-12
+
+      else
+      
+        print *, 'Error:  No default value for Dm or Np provided!  '
+        stop
+        
+      endif
+    
+    
+! ---------------------------------------------------------!
+! // exponential                                           !
+! ---------------------------------------------------------!
+! :: N0 = intercept parameter (m^-4)
+! :: ld = slope parameter (um)
+
+  case(2)
+ 
+    if(Re>0) then
+ 
+        ld = 1.5/Re   ! units 1/um
+        
+    fc = (ld*1E6)**(1.+bpm)/(apm*gamma(1+bpm))* &
+               exp(-1.*(ld*1E6)*(D*1E-6))*1E-12
+     
+        N = fc*rho_a*(Q*1E-3)
+        
+    elseif (abs(p1+1) > 1E-8) then
+
+    ! use N0 default value
+    
+        N0 = p1
+
+        tmp1 = 1./(1.+bpm)
+  
+        fc = ((apm*gamma(1.+bpm)*N0)**tmp1)*(D*1E-6)
+  
+        N = ( &
+            N0*exp(-1.*fc*(1./(rho_a*Q*1E-3))**tmp1) &
+    ) * 1E-12
+
+    elseif (abs(p2+1) > 1E-8) then
+
+    !     used default value for lambda 
+        ld = p2
+
+        fc = (ld*1E6)**(1.+bpm)/(apm*gamma(1+bpm))* &
+             exp(-1.*(ld*1E6)*(D*1E-6))*1E-12
+     
+        N = fc*rho_a*(Q*1E-3)
+
+    else
+
+      !  ld "parameterized" from temperature (carry over from original Quickbeam).
+      ld = 1220*10.**(-0.0245*tc)*1E-6
+      N0 = ((ld*1E6)**(1+bpm)*Q*1E-3*rho_a)/(apm*gamma(1+bpm))
+    
+      N = ( &
+          N0*exp(-1*ld*D) &
+          ) * 1E-12
+    
+    endif
+  
+! ---------------------------------------------------------!
+! // power law                                             !
+! ---------------------------------------------------------!
+! :: ahp = Ar parameter (m^-4 mm^-bhp)
+! :: bhp = br parameter
+! :: dmin_mm = lower bound (mm)
+! :: dmax_mm = upper bound (mm)
+
+  case(3)
+  
+    if(Re>0) then
+        print *, 'Variable Re not supported for ', &
+         'Power-Law distribution'
+    stop
+    elseif(Np>0) then
+        print *, 'Variable Np not supported for ', &
+         'Power-Law distribution'
+    stop
+    endif
+
+!   :: br parameter
+    if (abs(p1+2) < 1E-8) then
+!     :: if p1=-2, bhp is parameterized according to Ryan (2000),
+!     :: applicatable to cirrus clouds
+      if (tc < -30) then
+        bhp = -1.75+0.09*((tc+273)-243.16)
+      elseif ((tc >= -30) .and. (tc < -9)) then
+        bhp = -3.25-0.06*((tc+273)-265.66)
+      else
+        bhp = -2.15
+      endif
+    elseif (abs(p1+3) < 1E-8) then      
+!     :: if p1=-3, bhp is parameterized according to Ryan (2000),
+!     :: applicable to frontal clouds
+      if (tc < -35) then
+        bhp = -1.75+0.09*((tc+273)-243.16)
+      elseif ((tc >= -35) .and. (tc < -17.5)) then
+        bhp = -2.65+0.09*((tc+273)-255.66)
+      elseif ((tc >= -17.5) .and. (tc < -9)) then
+        bhp = -3.25-0.06*((tc+273)-265.66)
+      else
+        bhp = -2.15
+      endif    
+    else
+!     :: otherwise the specified value is used
+      bhp = p1
+    endif
+
+!   :: Ar parameter
+    dmin_mm = dmin*1E-3
+    dmax_mm = dmax*1E-3
+
+!   :: commented lines are original method with constant density
+      ! rc = 500.       ! (kg/m^3)
+      ! tmp1 = 6*rho_a*(bhp+4)
+      ! tmp2 = pi*rc*(dmax_mm**(bhp+4))*(1-(dmin_mm/dmax_mm)**(bhp+4))
+      ! ahp = (Q*1E-3)*1E12*tmp1/tmp2
+
+!   :: new method is more consistent with the rest of the distributions
+!   :: and allows density to vary with particle size
+      tmp1 = rho_a*(Q*1E-3)*(bhp+bpm+1)
+      tmp2 = apm*(dmax_mm**bhp*dmax**(bpm+1)-dmin_mm**bhp*dmin**(bpm+1))
+      ahp = tmp1/tmp2 * 1E24
+      ! ahp = tmp1/tmp2 
+ 
+      lidx = infind(D,dmin)
+      uidx = infind(D,dmax)    
+      do k=lidx,uidx
+ 
+        N(k) = ( &
+        ahp*(D(k)*1E-3)**bhp &
+    ) * 1E-12    
+
+      enddo
+
+    ! print *,'test=',ahp,bhp,ahp/(rho_a*Q),D(100),N(100),bpm,dmin_mm,dmax_mm
+
+! ---------------------------------------------------------!
+! // monodisperse                                          !
+! ---------------------------------------------------------!
+! :: D0 = particle diameter (um)
+
+  case(4)
+  
+    if (Re>0) then
+        D0 = Re
+    else
+        D0 = p1
+    endif
+    
+      rho_e = (6/pi)*apm*(D0*1E-6)**(bpm-3)
+      fc(1) = (6./(pi*D0**3*rho_e))*1E12
+      N(1) = fc(1)*rho_a*(Q*1E-3)
+    
+! ---------------------------------------------------------!
+! // lognormal                                             !
+! ---------------------------------------------------------!
+! :: N0 = total number concentration (m^-3)
+! :: np = fixed number concentration (kg^-1)
+! :: rg = mean radius (um)
+! :: log_sigma_g = ln(geometric standard deviation)
+
+  case(5)
+    if (abs(p1+1) < 1E-8 .or. Re>0 ) then
+
+!     // rg, log_sigma_g are given
+      log_sigma_g = p3
+      tmp2 = (bpm*log_sigma_g)**2.
+      if(Re.le.0) then 
+        rg = p2
+      else
+    rg =Re*exp(-2.5*(log_sigma_g**2))
+      endif
+ 
+         fc = 0.5 * ( &
+         (1./((2.*rg*1E-6)**(bpm)*apm*(2.*pi)**(0.5) * &
+         log_sigma_g*D*0.5*1E-6)) * &
+         exp(-0.5*((log(0.5*D/rg)/log_sigma_g)**2.+tmp2)) &
+         ) * 1E-12
+                
+      N = fc*rho_a*(Q*1E-3)
+      
+    elseif (abs(p2+1) < 1E-8 .or. Np>0) then
+
+!     // Np, log_sigma_g are given    
+      if(Np>0) then
+        local_Np=Np
+      else
+        local_Np = p1
+      endif
+      
+      log_sigma_g = p3
+      N0 = local_np*rho_a
+      tmp1 = (rho_a*(Q*1E-3))/(2.**bpm*apm*N0)
+      tmp2 = exp(0.5*bpm**2.*(log_sigma_g))**2.      
+      rg = ((tmp1/tmp2)**(1/bpm))*1E6
+      
+      N = 0.5*( &
+        N0 / ((2.*pi)**(0.5)*log_sigma_g*D*0.5*1E-6) * &
+    exp((-0.5*(log(0.5*D/rg)/log_sigma_g)**2.)) &
+    ) * 1E-12      
+      
+    else
+
+      print *, 'Error: Must specify a value for sigma_g'
+      stop
+    
+    endif
+    
+  end select
+  
+  end subroutine dsd
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/format_input.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/format_input.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/format_input.F90	(revision 3330)
@@ -0,0 +1,134 @@
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/format_input.f90 $
+! FORMAT_INPUT: Procedures to prepare data for input to the simulator
+! Compiled/Modified:
+!   08/28/2006  John Haynes (haynes@atmos.colostate.edu)
+!
+! irreg_to_grid (subroutine)
+! order_data (subroutine)
+
+  module format_input
+
+  contains
+
+! ----------------------------------------------------------------------------
+! SUBROUTINE IRREG_TO_GRID
+! ----------------------------------------------------------------------------
+  subroutine irreg_to_grid(hgt_matrix,t_matrix,p_matrix,rh_matrix, &
+    env_hgt_matrix,env_t_matrix,env_p_matrix,env_rh_matrix)
+  use array_lib
+  implicit none
+
+! Purpose:
+!   Linearly interpolate sounding-level data to the hydrometeor-level
+!   resolution
+!
+! Inputs:
+!   [hgt_matrix]       hydrometeor-level heights
+!   [env_hgt_matrix]   sounding-level heights
+!   [env_t_matrix]     sounding-level temperatures
+!   [env_p_matrix]     sounding-level pressures
+!   [env_rh_matrix]    sounding-level relative humidities
+!
+! Outputs:
+!   [t_matrix]         hydrometeor-level temperatures
+!   [p_matrix]         hydrometeor-level pressures
+!   [rh_matrix]        hydrometeor-level relative humidities
+!
+! Created:
+!   08/28/2006  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----
+  real*8, dimension(:,:), intent(in) :: &
+    hgt_matrix,env_hgt_matrix,env_t_matrix,env_p_matrix,env_rh_matrix
+
+! ----- OUTPUTS -----
+  real*8, dimension(:,:), intent(out) :: &
+    t_matrix,p_matrix,rh_matrix
+
+! ----- INTERNAL -----
+  integer :: nprof, i
+  integer,parameter :: KR8 = selected_real_kind(15,300)
+
+  nprof = size(hgt_matrix,1)
+  do i=1,nprof
+    call lin_interpolate(env_t_matrix(i,:),env_hgt_matrix(i,:), &
+      t_matrix(i,:),hgt_matrix(i,:),1000._KR8)
+    call lin_interpolate(env_p_matrix(i,:),env_hgt_matrix(i,:), &
+      p_matrix(i,:),hgt_matrix(i,:),1000._KR8)
+    call lin_interpolate(env_rh_matrix(i,:),env_hgt_matrix(i,:), &
+      rh_matrix(i,:),hgt_matrix(i,:),1000._KR8)
+  enddo
+
+  end subroutine irreg_to_grid
+
+! ----------------------------------------------------------------------------
+! SUBROUTINE ORDER_DATA
+! ----------------------------------------------------------------------------
+  subroutine order_data(hgt_matrix,hm_matrix,p_matrix,t_matrix, &
+    rh_matrix,sfc_radar,hgt_reversed)
+  implicit none
+
+! Purpose:
+!   Ensure that input data is in top-down order/bottom-up order,
+!   for space-based/surface based radars, respectively
+!
+! Inputs:
+!   [hgt_matrix]   heights
+!   [hm_matrix]    mixing ratios
+!   [t_matrix]     temperatures
+!   [p_matrix]     pressures
+!   [rh_matrix]    relative humidities
+!   [sfc_radar]    1=surface radar, 0=spaceborne
+!
+! Outputs:
+!   [hgt_matrix],[hm_matrix],[p_matrix,[t_matrix],[rh_matrix] in proper
+!   order for input to the radar simulator routine
+!   [hgt_reversed]   T=heights were reordered,F=heights were not reordered
+!
+! Note:
+!   The order for all profiles is assumed to the same as the first profile.
+!
+! Created:
+!   08/28/2006  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----
+  integer, intent(in) :: sfc_radar
+
+! ----- OUTPUTS -----
+  real*8, dimension(:,:), intent(inout) :: &
+    hgt_matrix,p_matrix,t_matrix,rh_matrix
+  real*8, dimension(:,:,:), intent(inout) :: &
+    hm_matrix
+  logical, intent(out) :: hgt_reversed
+
+! ----- INTERNAL -----
+  integer :: ngate
+  logical :: hgt_descending
+  
+
+  ngate = size(hgt_matrix,2)
+  hgt_descending = hgt_matrix(1,1) > hgt_matrix(1,ngate)
+      
+! :: surface: heights must be ascending
+! :: space-based: heights must be descending
+  if ( &
+     (sfc_radar == 1 .and. hgt_descending) .or.  &
+     (sfc_radar == 0 .and. (.not. hgt_descending)) &
+     ) &
+  then
+
+    hgt_matrix(:,:) = hgt_matrix(:,ngate:1:-1)
+    hm_matrix(:,:,:) = hm_matrix(:,:,ngate:1:-1)
+    p_matrix(:,:) = p_matrix(:,ngate:1:-1)
+    t_matrix(:,:) = t_matrix(:,ngate:1:-1)
+    rh_matrix(:,:) = rh_matrix(:,ngate:1:-1) 
+
+    hgt_reversed = .true.
+  else
+    hgt_reversed = .false.
+  endif
+
+  end subroutine order_data
+
+  end module format_input
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/gases.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/gases.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/gases.F90	(revision 3330)
@@ -0,0 +1,177 @@
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/gases.f90 $
+  function gases(PRES_mb,T,RH,f)
+  implicit none
+  
+! Purpose:
+!   Compute 2-way gaseous attenuation through a volume in microwave
+!
+! Inputs:
+!   [PRES_mb]   pressure (mb) (hPa)
+!   [T]         temperature (K)
+!   [RH]        relative humidity (%)
+!   [f]         frequency (GHz), < 300 GHz
+!
+! Returns:
+!   2-way gaseous attenuation (dB/km)
+!
+! Reference:
+!   Uses method of Liebe (1985)
+!
+! Created:
+!   12/09/05  John Haynes (haynes@atmos.colostate.edu)
+! Modified:
+!   01/31/06  Port from IDL to Fortran 90
+
+  integer, parameter :: &
+  nbands_o2 = 48 ,&
+  nbands_h2o = 30
+  real*8, intent(in) :: PRES_mb, T, RH, f
+  real*8 :: gases, th, e, p, sumo, gm0, a0, ap, term1, term2, term3, &
+            bf, be, term4, npp
+  real*8, dimension(nbands_o2) :: v0, a1, a2, a3, a4, a5, a6
+  real*8, dimension(nbands_h2o) :: v1, b1, b2, b3
+  real*8 :: e_th,one_th,pth3,eth35,aux1,aux2,aux3,aux4
+  real*8 :: gm,delt,x,y,gm2
+  real*8 :: fpp_o2,fpp_h2o,s_o2,s_h2o
+  integer :: i
+  
+! // table1 parameters  v0, a1, a2, a3, a4, a5, a6  
+  data v0/49.4523790,49.9622570,50.4742380,50.9877480,51.5033500, &
+  52.0214090,52.5423930,53.0669060,53.5957480,54.1299999,54.6711570, &
+  55.2213650,55.7838000,56.2647770,56.3378700,56.9681000,57.6124810, &
+  58.3238740,58.4465890,59.1642040,59.5909820,60.3060570,60.4347750, &
+  61.1505580,61.8001520,62.4112120,62.4862530,62.9979740,63.5685150, &
+  64.1277640,64.6789000,65.2240670,65.7647690,66.3020880,66.8368270, &
+  67.3695950,67.9008620,68.4310010,68.9603060,69.4890210,70.0173420, &
+  118.7503410,368.4983500,424.7631200,487.2493700,715.3931500, &
+  773.8387300, 834.1453300/
+  data a1/0.0000001,0.0000003,0.0000009,0.0000025,0.0000061,0.0000141, &
+  0.0000310,0.0000641,0.0001247,0.0002280,0.0003918,0.0006316,0.0009535, &
+  0.0005489,0.0013440,0.0017630,0.0000213,0.0000239,0.0000146,0.0000240, &
+  0.0000211,0.0000212,0.0000246,0.0000250,0.0000230,0.0000193,0.0000152, &
+  0.0000150,0.0000109,0.0007335,0.0004635,0.0002748,0.0001530,0.0000801, &
+  0.0000395,0.0000183,0.0000080,0.0000033,0.0000013,0.0000005,0.0000002, &
+  0.0000094,0.0000679,0.0006380,0.0002350,0.0000996,0.0006710,0.0001800/
+  data a2/11.8300000,10.7200000,9.6900000,8.8900000,7.7400000,6.8400000, &
+  6.0000000,5.2200000,4.4800000,3.8100000,3.1900000,2.6200000,2.1150000, &
+  0.0100000,1.6550000,1.2550000,0.9100000,0.6210000,0.0790000,0.3860000, &
+  0.2070000,0.2070000,0.3860000,0.6210000,0.9100000,1.2550000,0.0780000, &
+  1.6600000,2.1100000,2.6200000,3.1900000,3.8100000,4.4800000,5.2200000, &
+  6.0000000,6.8400000,7.7400000,8.6900000,9.6900000,10.7200000,11.8300000, &
+  0.0000000,0.0200000,0.0110000,0.0110000,0.0890000,0.0790000,0.0790000/
+  data a3/0.0083000,0.0085000,0.0086000,0.0087000,0.0089000,0.0092000, &
+  0.0094000,0.0097000,0.0100000,0.0102000,0.0105000,0.0107900,0.0111000, &
+  0.0164600,0.0114400,0.0118100,0.0122100,0.0126600,0.0144900,0.0131900, &
+  0.0136000,0.0138200,0.0129700,0.0124800,0.0120700,0.0117100,0.0146800, &
+  0.0113900,0.0110800,0.0107800,0.0105000,0.0102000,0.0100000,0.0097000, &
+  0.0094000,0.0092000,0.0089000,0.0087000,0.0086000,0.0085000,0.0084000, &
+  0.0159200,0.0192000,0.0191600,0.0192000,0.0181000,0.0181000,0.0181000/
+  data a4/0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, &
+  0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, &
+  0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, &
+  0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, &
+  0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, &
+  0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000,0.0000000, &
+  0.0000000,0.6000000,0.6000000,0.6000000,0.6000000,0.6000000,0.6000000/
+  data a5/0.0056000,0.0056000,0.0056000,0.0055000,0.0056000,0.0055000, &
+  0.0057000,0.0053000,0.0054000,0.0048000,0.0048000,0.0041700,0.0037500, &
+  0.0077400,0.0029700,0.0021200,0.0009400,-0.0005500,0.0059700,-0.0024400, &
+  0.0034400,-0.0041300,0.0013200,-0.0003600,-0.0015900,-0.0026600, &
+  -0.0047700,-0.0033400,-0.0041700,-0.0044800,-0.0051000,-0.0051000, &
+  -0.0057000,-0.0055000,-0.0059000,-0.0056000,-0.0058000,-0.0057000, &
+  -0.0056000,-0.0056000,-0.0056000,-0.0004400,0.0000000,0.0000000, &
+  0.0000000,0.0000000,0.0000000,0.0000000/
+  data a6/1.7000000,1.7000000,1.7000000,1.7000000,1.8000000,1.8000000,&
+  1.8000000,1.9000000,1.8000000,2.0000000,1.9000000,2.1000000,2.1000000, &
+  0.9000000,2.3000000,2.5000000,3.7000000,-3.1000000,0.8000000,0.1000000, &
+  0.5000000,0.7000000,-1.0000000,5.8000000,2.9000000,2.3000000,0.9000000, &
+  2.2000000,2.0000000,2.0000000,1.8000000,1.9000000,1.8000000,1.8000000, &
+  1.7000000,1.8000000,1.7000000,1.7000000,1.7000000,1.7000000,1.7000000, &
+  0.9000000,1.0000000,1.0000000,1.0000000,1.0000000,1.0000000,1.0000000/
+
+! // table2 parameters  v1, b1, b2, b3
+  data v1/22.2350800,67.8139600,119.9959400,183.3101170,321.2256440, &
+  325.1529190,336.1870000,380.1973720,390.1345080,437.3466670,439.1508120, &
+  443.0182950,448.0010750,470.8889740,474.6891270,488.4911330,503.5685320, &
+  504.4826920,556.9360020,620.7008070,658.0065000,752.0332270,841.0735950, &
+  859.8650000,899.4070000,902.5550000,906.2055240,916.1715820,970.3150220, &
+  987.9267640/
+  data b1/0.1090000,0.0011000,0.0007000,2.3000000,0.0464000,1.5400000, &
+  0.0010000,11.9000000,0.0044000,0.0637000,0.9210000,0.1940000,10.6000000, &
+  0.3300000,1.2800000,0.2530000,0.0374000,0.0125000,510.0000000,5.0900000, &
+  0.2740000,250.0000000,0.0130000,0.1330000,0.0550000,0.0380000,0.1830000, &
+  8.5600000,9.1600000,138.0000000/
+  data b2/2.1430000,8.7300000,8.3470000,0.6530000,6.1560000,1.5150000, &
+  9.8020000,1.0180000,7.3180000,5.0150000,3.5610000,5.0150000,1.3700000, &
+  3.5610000,2.3420000,2.8140000,6.6930000,6.6930000,0.1140000,2.1500000, &
+  7.7670000,0.3360000,8.1130000,7.9890000,7.8450000,8.3600000,5.0390000, &
+  1.3690000,1.8420000,0.1780000/
+  data b3/0.0278400,0.0276000,0.0270000,0.0283500,0.0214000,0.0270000, &
+  0.0265000,0.0276000,0.0190000,0.0137000,0.0164000,0.0144000,0.0238000, &
+  0.0182000,0.0198000,0.0249000,0.0115000,0.0119000,0.0300000,0.0223000, &
+  0.0300000,0.0286000,0.0141000,0.0286000,0.0286000,0.0264000,0.0234000, &
+  0.0253000,0.0240000,0.0286000/
+  
+! // conversions
+  th = 300./T       ! unitless
+  e = (RH*th**5)/(41.45*10**(9.834*th-10))   ! kPa
+  p = PRES_mb/10.-e ! kPa
+  e_th = e*th
+  one_th = 1 - th
+  pth3 = p*th**(3)
+  eth35 = e*th**(3.5)
+
+! // term1
+  sumo = 0.
+  aux1 = 1.1*e_th
+  do i=1,nbands_o2
+    aux2 = f/v0(i)
+    aux3 = v0(i)-f
+    aux4 = v0(i)+f
+    gm = a3(i)*(p*th**(0.8-a4(i))+aux1)
+    gm2 = gm**2
+    delt = a5(i)*p*th**a6(i)
+    x = aux3**2+gm2
+    y = aux4**2+gm2
+    fpp_o2 = (((1./x)+(1./y))*(gm*aux2) - (delt*aux2)*((aux3/(x))-(aux4/(x))))
+    s_o2 = a1(i)*pth3*exp(a2(i)*one_th)
+    sumo = sumo + fpp_o2 * s_o2
+  enddo
+  term1 = sumo
+
+! // term2
+  gm0 = 5.6E-3*(p+1.1*e)*th**(0.8)
+  a0 = 3.07E-4
+  ap = 1.4*(1-1.2*f**(1.5)*1E-5)*1E-10
+  term2 = (2*a0*(gm0*(1+(f/gm0)**2)*(1+(f/60.)**2))**(-1) + ap*p*th**(2.5)) &
+          * f*p*th**2
+
+! // term3
+  sumo = 0.
+  aux1 = 4.8*e_th
+  do i=1,nbands_h2o
+    aux2 = f/v1(i)
+    aux3 = v1(i)-f
+    aux4 = v1(i)+f
+    gm = b3(i)*(p*th**(0.8)+aux1)
+    gm2 = gm**2
+    x = aux3**2+gm2
+    y = aux4**2+gm2
+    !delt = 0.
+    fpp_h2o = ((1./x)+(1./y))*(gm*aux2) ! - (delt*aux2)*((aux3/(x))-(aux4/(x)))
+    s_h2o = b1(i)*eth35*exp(b2(i)*one_th)
+    sumo = sumo + fpp_h2o * s_h2o
+  enddo
+  term3 = sumo
+
+! // term4
+  bf = 1.4E-6
+  be = 5.41E-5
+  term4 = (bf*p+be*e*th**3)*f*e*th**(2.5)
+
+! // summation and result
+  npp = term1 + term2 + term3 + term4
+  gases = 0.182*f*npp
+
+  end function gases
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/icarus.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/icarus.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/icarus.F	(revision 3330)
@@ -0,0 +1,1270 @@
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/icarus-scops-4.1-bsd/icarus.f $
+      SUBROUTINE ICARUS(
+     &     debug,
+     &     debugcol,
+     &     npoints,
+     &     sunlit,
+     &     nlev,
+     &     ncol,
+     &     pfull,
+     &     phalf,
+     &     qv,
+     &     cc,
+     &     conv,
+     &     dtau_s,
+     &     dtau_c,
+     &     top_height,
+     &     top_height_direction,
+     &     overlap,
+     &     frac_out,
+     &     skt,
+     &     emsfc_lw,
+     &     at,
+     &     dem_s,
+     &     dem_c,
+     &     fq_isccp,
+     &     totalcldarea,
+     &     meanptop,
+     &     meantaucld,
+     &     meanalbedocld,
+     &     meantb,
+     &     meantbclr,
+     &     boxtau,
+     &     boxptop
+     &)
+
+!$Id: icarus.f,v 4.1 2010/05/27 16:30:18 hadmw Exp $
+
+! *****************************COPYRIGHT****************************
+! (c) 2009, Lawrence Livermore National Security Limited Liability 
+! Corporation.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without 
+! modification, are permitted provided that the
+! following conditions are met:
+! 
+!     * Redistributions of source code must retain the above 
+!       copyright  notice, this list of conditions and the following 
+!       disclaimer.
+!     * Redistributions in binary form must reproduce the above 
+!       copyright notice, this list of conditions and the following 
+!       disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Lawrence Livermore National Security 
+!       Limited Liability Corporation nor the names of its 
+!       contributors may be used to endorse or promote products
+!       derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
+! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
+! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 
+! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 
+! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
+! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 
+! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 
+! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
+! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 
+! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  
+! 
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+
+      implicit none
+
+!     NOTE:   the maximum number of levels and columns is set by
+!             the following parameter statement
+
+      INTEGER ncolprint
+      
+!     -----
+!     Input 
+!     -----
+
+      INTEGER npoints       !  number of model points in the horizontal
+      INTEGER nlev          !  number of model levels in column
+      INTEGER ncol          !  number of subcolumns
+
+      INTEGER sunlit(npoints) !  1 for day points, 0 for night time
+
+      REAL pfull(npoints,nlev)
+                       !  pressure of full model levels (Pascals)
+                  !  pfull(npoints,1) is top level of model
+                  !  pfull(npoints,nlev) is bot of model
+
+      REAL phalf(npoints,nlev+1)
+                  !  pressure of half model levels (Pascals)
+                  !  phalf(npoints,1) is top of model
+                  !  phalf(npoints,nlev+1) is the surface pressure
+
+      REAL qv(npoints,nlev)
+                  !  water vapor specific humidity (kg vapor/ kg air)
+                  !         on full model levels
+
+      REAL cc(npoints,nlev)   
+                  !  input cloud cover in each model level (fraction) 
+                  !  NOTE:  This is the HORIZONTAL area of each
+                  !         grid box covered by clouds
+
+      REAL conv(npoints,nlev) 
+                  !  input convective cloud cover in each model
+                  !   level (fraction) 
+                  !  NOTE:  This is the HORIZONTAL area of each
+                  !         grid box covered by convective clouds
+
+      REAL dtau_s(npoints,nlev) 
+                  !  mean 0.67 micron optical depth of stratiform
+                !  clouds in each model level
+                  !  NOTE:  this the cloud optical depth of only the
+                  !  cloudy part of the grid box, it is not weighted
+                  !  with the 0 cloud optical depth of the clear
+                  !         part of the grid box
+
+      REAL dtau_c(npoints,nlev) 
+                  !  mean 0.67 micron optical depth of convective
+                !  clouds in each
+                  !  model level.  Same note applies as in dtau_s.
+
+      INTEGER overlap                   !  overlap type
+                              !  1=max
+                              !  2=rand
+                              !  3=max/rand
+
+      INTEGER top_height                !  1 = adjust top height using both a computed
+                                        !  infrared brightness temperature and the visible
+                              !  optical depth to adjust cloud top pressure. Note
+                              !  that this calculation is most appropriate to compare
+                              !  to ISCCP data during sunlit hours.
+                                        !  2 = do not adjust top height, that is cloud top
+                                        !  pressure is the actual cloud top pressure
+                                        !  in the model
+                              !  3 = adjust top height using only the computed
+                              !  infrared brightness temperature. Note that this
+                              !  calculation is most appropriate to compare to ISCCP
+                              !  IR only algortihm (i.e. you can compare to nighttime
+                              !  ISCCP data with this option)
+
+      INTEGER top_height_direction ! direction for finding atmosphere pressure level
+                                 ! with interpolated temperature equal to the radiance
+				 ! determined cloud-top temperature
+				 !
+				 ! 1 = find the *lowest* altitude (highest pressure) level
+				 ! with interpolated temperature equal to the radiance
+				 ! determined cloud-top temperature
+				 !
+				 ! 2 = find the *highest* altitude (lowest pressure) level
+				 ! with interpolated temperature equal to the radiance 
+				 ! determined cloud-top temperature
+				 ! 
+				 ! ONLY APPLICABLE IF top_height EQUALS 1 or 3
+				 !				 !
+				 ! 1 = old setting: matches all versions of 
+				 ! ISCCP simulator with versions numbers 3.5.1 and lower
+				 !
+				 ! 2 = default setting: for version numbers 4.0 and higher
+!
+!     The following input variables are used only if top_height = 1 or top_height = 3
+!
+      REAL skt(npoints)                 !  skin Temperature (K)
+      REAL emsfc_lw                     !  10.5 micron emissivity of surface (fraction)                                            
+      REAL at(npoints,nlev)                   !  temperature in each model level (K)
+      REAL dem_s(npoints,nlev)                !  10.5 micron longwave emissivity of stratiform
+                              !  clouds in each
+                                        !  model level.  Same note applies as in dtau_s.
+      REAL dem_c(npoints,nlev)                  !  10.5 micron longwave emissivity of convective
+                              !  clouds in each
+                                        !  model level.  Same note applies as in dtau_s.
+
+      REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into
+                              ! Equivalent of BOX in original version, but
+                              ! indexed by column then row, rather than
+                              ! by row then column
+
+
+
+!     ------
+!     Output
+!     ------
+
+      REAL fq_isccp(npoints,7,7)        !  the fraction of the model grid box covered by
+                                        !  each of the 49 ISCCP D level cloud types
+
+      REAL totalcldarea(npoints)        !  the fraction of model grid box columns
+                                        !  with cloud somewhere in them.  NOTE: This diagnostic
+					! does not count model clouds with tau < isccp_taumin
+                              ! Thus this diagnostic does not equal the sum over all entries of fq_isccp.
+			      ! However, this diagnostic does equal the sum over entries of fq_isccp with
+			      ! itau = 2:7 (omitting itau = 1)
+      
+      
+      ! The following three means are averages only over the cloudy areas with tau > isccp_taumin.  
+      ! If no clouds with tau > isccp_taumin are in grid box all three quantities should equal zero.      
+                              
+      REAL meanptop(npoints)            !  mean cloud top pressure (mb) - linear averaging
+                                        !  in cloud top pressure.
+                              
+      REAL meantaucld(npoints)          !  mean optical thickness 
+                                        !  linear averaging in albedo performed.
+      
+      real meanalbedocld(npoints)        ! mean cloud albedo
+                                        ! linear averaging in albedo performed
+					
+      real meantb(npoints)              ! mean all-sky 10.5 micron brightness temperature
+      
+      real meantbclr(npoints)           ! mean clear-sky 10.5 micron brightness temperature
+      
+      REAL boxtau(npoints,ncol)         !  optical thickness in each column
+      
+      REAL boxptop(npoints,ncol)        !  cloud top pressure (mb) in each column
+                              
+                                                                                          
+!
+!     ------
+!     Working variables added when program updated to mimic Mark Webb's PV-Wave code
+!     ------
+
+      REAL dem(npoints,ncol),bb(npoints)     !  working variables for 10.5 micron longwave 
+                              !  emissivity in part of
+                              !  gridbox under consideration
+
+      REAL ptrop(npoints)
+      REAL attrop(npoints)
+      REAL attropmin (npoints)
+      REAL atmax(npoints)
+      REAL btcmin(npoints)
+      REAL transmax(npoints)
+
+      INTEGER i,j,ilev,ibox,itrop(npoints)
+      INTEGER ipres(npoints)
+      INTEGER itau(npoints),ilev2
+      INTEGER acc(nlev,ncol)
+      INTEGER match(npoints,nlev-1)
+      INTEGER nmatch(npoints)
+      INTEGER levmatch(npoints,ncol)
+      
+      !variables needed for water vapor continuum absorption
+      real fluxtop_clrsky(npoints),trans_layers_above_clrsky(npoints)
+      real taumin(npoints)
+      real dem_wv(npoints,nlev), wtmair, wtmh20, Navo, grav, pstd, t0
+      real press(npoints), dpress(npoints), atmden(npoints)
+      real rvh20(npoints), wk(npoints), rhoave(npoints)
+      real rh20s(npoints), rfrgn(npoints)
+      real tmpexp(npoints),tauwv(npoints)
+      
+      character*1 cchar(6),cchar_realtops(6)
+      integer icycle
+      REAL tau(npoints,ncol)
+      LOGICAL box_cloudy(npoints,ncol)
+      REAL tb(npoints,ncol)
+      REAL ptop(npoints,ncol)
+      REAL emcld(npoints,ncol)
+      REAL fluxtop(npoints,ncol)
+      REAL trans_layers_above(npoints,ncol)
+      real isccp_taumin,fluxtopinit(npoints),tauir(npoints)
+      REAL albedocld(npoints,ncol)
+      real boxarea
+      integer debug       ! set to non-zero value to print out inputs
+                    ! with step debug
+      integer debugcol    ! set to non-zero value to print out column
+                    ! decomposition with step debugcol
+      integer rangevec(npoints),rangeerror
+
+      integer index1(npoints),num1,jj,k1,k2
+      real rec2p13,tauchk,logp,logp1,logp2,atd
+      real output_missing_value
+
+      character*10 ftn09
+      
+      DATA isccp_taumin / 0.3 /
+      DATA output_missing_value / -1.E+30 /
+      DATA cchar / ' ','-','1','+','I','+'/
+      DATA cchar_realtops / ' ',' ','1','1','I','I'/
+
+!     ------ End duplicate definitions common to wrapper routine
+
+      tauchk = -1.*log(0.9999999)
+      rec2p13=1./2.13
+
+      ncolprint=0
+
+      if ( debug.ne.0 ) then
+          j=1
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+          write(6,'(a10)') 'debug='
+          write(6,'(8I10)') debug
+          write(6,'(a10)') 'debugcol='
+          write(6,'(8I10)') debugcol
+          write(6,'(a10)') 'npoints='
+          write(6,'(8I10)') npoints
+          write(6,'(a10)') 'nlev='
+          write(6,'(8I10)') nlev
+          write(6,'(a10)') 'ncol='
+          write(6,'(8I10)') ncol
+          write(6,'(a11)') 'top_height='
+          write(6,'(8I10)') top_height
+	  write(6,'(a21)') 'top_height_direction='
+          write(6,'(8I10)') top_height_direction
+          write(6,'(a10)') 'overlap='
+          write(6,'(8I10)') overlap
+          write(6,'(a10)') 'emsfc_lw='
+          write(6,'(8f10.2)') emsfc_lw
+        do j=1,npoints,debug
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+          write(6,'(a10)') 'sunlit='
+          write(6,'(8I10)') sunlit(j)
+          write(6,'(a10)') 'pfull='
+          write(6,'(8f10.2)') (pfull(j,i),i=1,nlev)
+          write(6,'(a10)') 'phalf='
+          write(6,'(8f10.2)') (phalf(j,i),i=1,nlev+1)
+          write(6,'(a10)') 'qv='
+          write(6,'(8f10.3)') (qv(j,i),i=1,nlev)
+          write(6,'(a10)') 'cc='
+          write(6,'(8f10.3)') (cc(j,i),i=1,nlev)
+          write(6,'(a10)') 'conv='
+          write(6,'(8f10.2)') (conv(j,i),i=1,nlev)
+          write(6,'(a10)') 'dtau_s='
+          write(6,'(8g12.5)') (dtau_s(j,i),i=1,nlev)
+          write(6,'(a10)') 'dtau_c='
+          write(6,'(8f10.2)') (dtau_c(j,i),i=1,nlev)
+          write(6,'(a10)') 'skt='
+          write(6,'(8f10.2)') skt(j)
+          write(6,'(a10)') 'at='
+          write(6,'(8f10.2)') (at(j,i),i=1,nlev)
+          write(6,'(a10)') 'dem_s='
+          write(6,'(8f10.3)') (dem_s(j,i),i=1,nlev)
+          write(6,'(a10)') 'dem_c='
+          write(6,'(8f10.3)') (dem_c(j,i),i=1,nlev)
+        enddo
+      endif
+
+!     ---------------------------------------------------!
+
+      if (ncolprint.ne.0) then
+      do j=1,npoints,1000
+        write(6,'(a10)') 'j='
+        write(6,'(8I10)') j
+      enddo
+      endif
+
+      if (top_height .eq. 1 .or. top_height .eq. 3) then 
+
+      do j=1,npoints 
+          ptrop(j)=5000.
+          attropmin(j) = 400.
+          atmax(j) = 0.
+          attrop(j) = 120.
+          itrop(j) = 1
+      enddo 
+
+      do 12 ilev=1,nlev
+        do j=1,npoints 
+         if (pfull(j,ilev) .lt. 40000. .and.
+     &          pfull(j,ilev) .gt.  5000. .and.
+     &          at(j,ilev) .lt. attropmin(j)) then
+                ptrop(j) = pfull(j,ilev)
+                attropmin(j) = at(j,ilev)
+                attrop(j) = attropmin(j)
+                itrop(j)=ilev
+           end if
+        enddo
+12    continue
+
+      do 13 ilev=1,nlev
+        do j=1,npoints 
+           if (at(j,ilev) .gt. atmax(j) .and.
+     &              ilev  .ge. itrop(j)) atmax(j)=at(j,ilev)
+        enddo
+13    continue
+
+      end if
+
+
+      if (top_height .eq. 1 .or. top_height .eq. 3) then
+          do j=1,npoints
+              meantb(j) = 0.
+	      meantbclr(j) = 0. 
+          end do
+      else
+          do j=1,npoints
+              meantb(j) = output_missing_value
+       	      meantbclr(j) = output_missing_value
+          end do
+      end if
+      
+!     -----------------------------------------------------!
+
+!     ---------------------------------------------------!
+
+      do ilev=1,nlev
+        do j=1,npoints
+
+          rangevec(j)=0
+
+          if (cc(j,ilev) .lt. 0. .or. cc(j,ilev) .gt. 1.) then
+!           error = cloud fraction less than zero
+!           error = cloud fraction greater than 1
+            rangevec(j)=rangevec(j)+1
+          endif
+
+          if (conv(j,ilev) .lt. 0. .or. conv(j,ilev) .gt. 1.) then
+!           ' error = convective cloud fraction less than zero'
+!           ' error = convective cloud fraction greater than 1'
+            rangevec(j)=rangevec(j)+2
+          endif
+
+          if (dtau_s(j,ilev) .lt. 0.) then
+!           ' error = stratiform cloud opt. depth less than zero'
+            rangevec(j)=rangevec(j)+4
+          endif
+
+          if (dtau_c(j,ilev) .lt. 0.) then
+!           ' error = convective cloud opt. depth less than zero'
+            rangevec(j)=rangevec(j)+8
+          endif
+
+          if (dem_s(j,ilev) .lt. 0. .or. dem_s(j,ilev) .gt. 1.) then
+!             ' error = stratiform cloud emissivity less than zero'
+!             ' error = stratiform cloud emissivity greater than 1'
+            rangevec(j)=rangevec(j)+16
+          endif
+
+          if (dem_c(j,ilev) .lt. 0. .or. dem_c(j,ilev) .gt. 1.) then
+!             ' error = convective cloud emissivity less than zero'
+!             ' error = convective cloud emissivity greater than 1'
+              rangevec(j)=rangevec(j)+32
+          endif
+        enddo
+
+        rangeerror=0
+        do j=1,npoints
+            rangeerror=rangeerror+rangevec(j)
+        enddo
+
+        if (rangeerror.ne.0) then 
+              write (6,*) 'Input variable out of range'
+              write (6,*) 'rangevec:'
+              write (6,*) rangevec
+              STOP
+        endif
+      enddo
+
+!
+!     ---------------------------------------------------!
+
+      
+!
+!     ---------------------------------------------------!
+!     COMPUTE CLOUD OPTICAL DEPTH FOR EACH COLUMN and
+!     put into vector tau
+ 
+      !initialize tau and albedocld to zero
+      do 15 ibox=1,ncol
+        do j=1,npoints 
+            tau(j,ibox)=0.
+          albedocld(j,ibox)=0.
+          boxtau(j,ibox)=output_missing_value
+          boxptop(j,ibox)=output_missing_value
+          box_cloudy(j,ibox)=.false.
+        enddo
+15    continue
+
+      !compute total cloud optical depth for each column     
+      do ilev=1,nlev
+            !increment tau for each of the boxes
+            do ibox=1,ncol
+              do j=1,npoints 
+                 if (frac_out(j,ibox,ilev).eq.1) then
+                        tau(j,ibox)=tau(j,ibox)
+     &                     + dtau_s(j,ilev)
+                 endif
+                 if (frac_out(j,ibox,ilev).eq.2) then
+                        tau(j,ibox)=tau(j,ibox)
+     &                     + dtau_c(j,ilev)
+                 end if
+              enddo
+            enddo ! ibox
+      enddo ! ilev
+          if (ncolprint.ne.0) then
+
+              do j=1,npoints ,1000
+                write(6,'(a10)') 'j='
+                write(6,'(8I10)') j
+                write(6,'(i2,1X,8(f7.2,1X))') 
+     &          ilev,
+     &          (tau(j,ibox),ibox=1,ncolprint)
+              enddo
+          endif 
+!
+!     ---------------------------------------------------!
+
+
+
+!     
+!     ---------------------------------------------------!
+!     COMPUTE INFRARED BRIGHTNESS TEMPERUATRES
+!     AND CLOUD TOP TEMPERATURE SATELLITE SHOULD SEE
+!
+!     again this is only done if top_height = 1 or 3
+!
+!     fluxtop is the 10.5 micron radiance at the top of the
+!              atmosphere
+!     trans_layers_above is the total transmissivity in the layers
+!             above the current layer
+!     fluxtop_clrsky(j) and trans_layers_above_clrsky(j) are the clear
+!             sky versions of these quantities.
+
+      if (top_height .eq. 1 .or. top_height .eq. 3) then
+
+
+        !----------------------------------------------------------------------
+        !    
+        !             DO CLEAR SKY RADIANCE CALCULATION FIRST
+        !
+        !compute water vapor continuum emissivity
+        !this treatment follows Schwarkzopf and Ramasamy
+        !JGR 1999,vol 104, pages 9467-9499.
+        !the emissivity is calculated at a wavenumber of 955 cm-1, 
+        !or 10.47 microns 
+        wtmair = 28.9644
+        wtmh20 = 18.01534
+        Navo = 6.023E+23
+        grav = 9.806650E+02
+        pstd = 1.013250E+06
+        t0 = 296.
+        if (ncolprint .ne. 0) 
+     &         write(6,*)  'ilev   pw (kg/m2)   tauwv(j)      dem_wv'
+        do 125 ilev=1,nlev
+          do j=1,npoints 
+               !press and dpress are dyne/cm2 = Pascals *10
+               press(j) = pfull(j,ilev)*10.
+               dpress(j) = (phalf(j,ilev+1)-phalf(j,ilev))*10
+               !atmden = g/cm2 = kg/m2 / 10 
+               atmden(j) = dpress(j)/grav
+               rvh20(j) = qv(j,ilev)*wtmair/wtmh20
+               wk(j) = rvh20(j)*Navo*atmden(j)/wtmair
+               rhoave(j) = (press(j)/pstd)*(t0/at(j,ilev))
+               rh20s(j) = rvh20(j)*rhoave(j)
+               rfrgn(j) = rhoave(j)-rh20s(j)
+               tmpexp(j) = exp(-0.02*(at(j,ilev)-t0))
+               tauwv(j) = wk(j)*1.e-20*( 
+     &           (0.0224697*rh20s(j)*tmpexp(j)) + 
+     &                (3.41817e-7*rfrgn(j)) )*0.98
+               dem_wv(j,ilev) = 1. - exp( -1. * tauwv(j))
+          enddo
+               if (ncolprint .ne. 0) then
+               do j=1,npoints ,1000
+               write(6,'(a10)') 'j='
+               write(6,'(8I10)') j
+               write(6,'(i2,1X,3(f8.3,3X))') ilev,
+     &           qv(j,ilev)*(phalf(j,ilev+1)-phalf(j,ilev))/(grav/100.),
+     &           tauwv(j),dem_wv(j,ilev)
+               enddo
+             endif
+125     continue
+
+        !initialize variables
+        do j=1,npoints 
+          fluxtop_clrsky(j) = 0.
+          trans_layers_above_clrsky(j)=1.
+        enddo
+
+        do ilev=1,nlev
+          do j=1,npoints 
+ 
+            ! Black body emission at temperature of the layer
+
+              bb(j)=1 / ( exp(1307.27/at(j,ilev)) - 1. )
+              !bb(j)= 5.67e-8*at(j,ilev)**4
+
+              ! increase TOA flux by flux emitted from layer
+              ! times total transmittance in layers above
+
+                fluxtop_clrsky(j) = fluxtop_clrsky(j) 
+     &            + dem_wv(j,ilev)*bb(j)*trans_layers_above_clrsky(j) 
+            
+                ! update trans_layers_above with transmissivity
+              ! from this layer for next time around loop
+
+                trans_layers_above_clrsky(j)=
+     &            trans_layers_above_clrsky(j)*(1.-dem_wv(j,ilev))
+                   
+
+          enddo   
+            if (ncolprint.ne.0) then
+             do j=1,npoints ,1000
+              write(6,'(a10)') 'j='
+              write(6,'(8I10)') j
+              write (6,'(a)') 'ilev:'
+              write (6,'(I2)') ilev
+    
+              write (6,'(a)') 
+     &        'emiss_layer,100.*bb(j),100.*f,total_trans:'
+              write (6,'(4(f7.2,1X))') dem_wv(j,ilev),100.*bb(j),
+     &             100.*fluxtop_clrsky(j),trans_layers_above_clrsky(j)
+             enddo   
+            endif
+
+        enddo   !loop over level
+        
+        do j=1,npoints 
+          !add in surface emission
+          bb(j)=1/( exp(1307.27/skt(j)) - 1. )
+          !bb(j)=5.67e-8*skt(j)**4
+
+          fluxtop_clrsky(j) = fluxtop_clrsky(j) + emsfc_lw * bb(j) 
+     &     * trans_layers_above_clrsky(j)
+     
+          !clear sky brightness temperature
+          meantbclr(j) = 1307.27/(log(1.+(1./fluxtop_clrsky(j))))
+	  
+        enddo
+
+        if (ncolprint.ne.0) then
+        do j=1,npoints ,1000
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+          write (6,'(a)') 'id:'
+          write (6,'(a)') 'surface'
+
+          write (6,'(a)') 'emsfc,100.*bb(j),100.*f,total_trans:'
+          write (6,'(5(f7.2,1X))') emsfc_lw,100.*bb(j),
+     &      100.*fluxtop_clrsky(j),
+     &       trans_layers_above_clrsky(j), meantbclr(j)
+        enddo
+      endif
+    
+
+        !
+        !           END OF CLEAR SKY CALCULATION
+        !
+        !----------------------------------------------------------------
+
+
+
+        if (ncolprint.ne.0) then
+
+        do j=1,npoints ,1000
+            write(6,'(a10)') 'j='
+            write(6,'(8I10)') j
+            write (6,'(a)') 'ts:'
+            write (6,'(8f7.2)') (skt(j),ibox=1,ncolprint)
+    
+            write (6,'(a)') 'ta_rev:'
+            write (6,'(8f7.2)') 
+     &       ((at(j,ilev2),ibox=1,ncolprint),ilev2=1,nlev)
+
+        enddo
+        endif 
+        !loop over columns 
+        do ibox=1,ncol
+          do j=1,npoints
+            fluxtop(j,ibox)=0.
+            trans_layers_above(j,ibox)=1.
+          enddo
+        enddo
+
+        do ilev=1,nlev
+              do j=1,npoints 
+                ! Black body emission at temperature of the layer
+
+              bb(j)=1 / ( exp(1307.27/at(j,ilev)) - 1. )
+              !bb(j)= 5.67e-8*at(j,ilev)**4
+              enddo
+
+            do ibox=1,ncol
+              do j=1,npoints 
+
+              ! emissivity for point in this layer
+                if (frac_out(j,ibox,ilev).eq.1) then
+                dem(j,ibox)= 1. - 
+     &             ( (1. - dem_wv(j,ilev)) * (1. -  dem_s(j,ilev)) )
+                else if (frac_out(j,ibox,ilev).eq.2) then
+                dem(j,ibox)= 1. - 
+     &             ( (1. - dem_wv(j,ilev)) * (1. -  dem_c(j,ilev)) )
+                else
+                dem(j,ibox)=  dem_wv(j,ilev)
+                end if
+                
+
+                ! increase TOA flux by flux emitted from layer
+              ! times total transmittance in layers above
+
+                fluxtop(j,ibox) = fluxtop(j,ibox) 
+     &            + dem(j,ibox) * bb(j)
+     &            * trans_layers_above(j,ibox) 
+            
+                ! update trans_layers_above with transmissivity
+              ! from this layer for next time around loop
+
+                trans_layers_above(j,ibox)=
+     &            trans_layers_above(j,ibox)*(1.-dem(j,ibox))
+
+              enddo ! j
+            enddo ! ibox
+
+            if (ncolprint.ne.0) then
+              do j=1,npoints,1000
+              write (6,'(a)') 'ilev:'
+              write (6,'(I2)') ilev
+    
+              write(6,'(a10)') 'j='
+              write(6,'(8I10)') j
+              write (6,'(a)') 'emiss_layer:'
+              write (6,'(8f7.2)') (dem(j,ibox),ibox=1,ncolprint)
+        
+              write (6,'(a)') '100.*bb(j):'
+              write (6,'(8f7.2)') (100.*bb(j),ibox=1,ncolprint)
+        
+              write (6,'(a)') '100.*f:'
+              write (6,'(8f7.2)') 
+     &         (100.*fluxtop(j,ibox),ibox=1,ncolprint)
+        
+              write (6,'(a)') 'total_trans:'
+              write (6,'(8f7.2)') 
+     &          (trans_layers_above(j,ibox),ibox=1,ncolprint)
+            enddo
+          endif
+
+        enddo ! ilev
+
+
+          do j=1,npoints 
+            !add in surface emission
+            bb(j)=1/( exp(1307.27/skt(j)) - 1. )
+            !bb(j)=5.67e-8*skt(j)**4
+          end do
+
+        do ibox=1,ncol
+          do j=1,npoints 
+
+            !add in surface emission
+
+            fluxtop(j,ibox) = fluxtop(j,ibox) 
+     &         + emsfc_lw * bb(j) 
+     &         * trans_layers_above(j,ibox) 
+            
+          end do
+        end do
+
+        !calculate mean infrared brightness temperature
+        do ibox=1,ncol
+          do j=1,npoints 
+            meantb(j) = meantb(j)+1307.27/(log(1.+(1./fluxtop(j,ibox))))
+	  end do
+        end do
+	  do j=1, npoints
+	    meantb(j) = meantb(j) / real(ncol)
+	  end do        
+
+        if (ncolprint.ne.0) then
+
+          do j=1,npoints ,1000
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+          write (6,'(a)') 'id:'
+          write (6,'(a)') 'surface'
+
+          write (6,'(a)') 'emiss_layer:'
+          write (6,'(8f7.2)') (dem(1,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') '100.*bb(j):'
+          write (6,'(8f7.2)') (100.*bb(j),ibox=1,ncolprint)
+    
+          write (6,'(a)') '100.*f:'
+          write (6,'(8f7.2)') (100.*fluxtop(j,ibox),ibox=1,ncolprint)
+          
+	  write (6,'(a)') 'meantb(j):'
+          write (6,'(8f7.2)') (meantb(j),ibox=1,ncolprint)
+      
+          end do
+      endif
+    
+        !now that you have the top of atmosphere radiance account
+        !for ISCCP procedures to determine cloud top temperature
+
+        !account for partially transmitting cloud recompute flux 
+        !ISCCP would see assuming a single layer cloud
+        !note choice here of 2.13, as it is primarily ice
+        !clouds which have partial emissivity and need the 
+        !adjustment performed in this section
+        !
+      !If it turns out that the cloud brightness temperature
+      !is greater than 260K, then the liquid cloud conversion
+        !factor of 2.56 is used.
+      !
+        !Note that this is discussed on pages 85-87 of 
+        !the ISCCP D level documentation (Rossow et al. 1996)
+           
+          do j=1,npoints  
+            !compute minimum brightness temperature and optical depth
+            btcmin(j) = 1. /  ( exp(1307.27/(attrop(j)-5.)) - 1. ) 
+          enddo 
+        do ibox=1,ncol
+          do j=1,npoints  
+            transmax(j) = (fluxtop(j,ibox)-btcmin(j))
+     &                /(fluxtop_clrsky(j)-btcmin(j))
+          !note that the initial setting of tauir(j) is needed so that
+          !tauir(j) has a realistic value should the next if block be
+          !bypassed
+            tauir(j) = tau(j,ibox) * rec2p13
+            taumin(j) = -1. * log(max(min(transmax(j),0.9999999),0.001))
+
+          enddo 
+
+          if (top_height .eq. 1) then
+            do j=1,npoints  
+              if (transmax(j) .gt. 0.001 .and. 
+     &          transmax(j) .le. 0.9999999) then
+                fluxtopinit(j) = fluxtop(j,ibox)
+              tauir(j) = tau(j,ibox) *rec2p13
+              endif
+            enddo
+            do icycle=1,2
+              do j=1,npoints  
+                if (tau(j,ibox) .gt. (tauchk            )) then 
+                if (transmax(j) .gt. 0.001 .and. 
+     &            transmax(j) .le. 0.9999999) then
+                  emcld(j,ibox) = 1. - exp(-1. * tauir(j)  )
+                  fluxtop(j,ibox) = fluxtopinit(j) -   
+     &              ((1.-emcld(j,ibox))*fluxtop_clrsky(j))
+                  fluxtop(j,ibox)=max(1.E-06,
+     &              (fluxtop(j,ibox)/emcld(j,ibox)))
+                  tb(j,ibox)= 1307.27
+     &              / (log(1. + (1./fluxtop(j,ibox))))
+                  if (tb(j,ibox) .gt. 260.) then
+                  tauir(j) = tau(j,ibox) / 2.56
+                  end if                   
+                end if
+                end if
+              enddo
+            enddo
+                
+          endif
+        
+          do j=1,npoints
+            if (tau(j,ibox) .gt. (tauchk            )) then 
+                !cloudy box 
+		!NOTE: tb is the cloud-top temperature not infrared brightness temperature 
+		!at this point in the code
+                tb(j,ibox)= 1307.27/ (log(1. + (1./fluxtop(j,ibox))))
+                if (top_height.eq.1.and.tauir(j).lt.taumin(j)) then
+                         tb(j,ibox) = attrop(j) - 5. 
+                   tau(j,ibox) = 2.13*taumin(j)
+                end if
+            else
+                !clear sky brightness temperature
+                tb(j,ibox) = meantbclr(j)
+            end if
+          enddo ! j
+        enddo ! ibox
+
+        if (ncolprint.ne.0) then
+
+          do j=1,npoints,1000
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+
+          write (6,'(a)') 'attrop:'
+          write (6,'(8f7.2)') (attrop(j))
+    
+          write (6,'(a)') 'btcmin:'
+          write (6,'(8f7.2)') (btcmin(j))
+    
+          write (6,'(a)') 'fluxtop_clrsky*100:'
+          write (6,'(8f7.2)') 
+     &      (100.*fluxtop_clrsky(j))
+
+          write (6,'(a)') '100.*f_adj:'
+          write (6,'(8f7.2)') (100.*fluxtop(j,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'transmax:'
+          write (6,'(8f7.2)') (transmax(ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'tau:'
+          write (6,'(8f7.2)') (tau(j,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'emcld:'
+          write (6,'(8f7.2)') (emcld(j,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'total_trans:'
+          write (6,'(8f7.2)') 
+     &        (trans_layers_above(j,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'total_emiss:'
+          write (6,'(8f7.2)') 
+     &        (1.0-trans_layers_above(j,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'total_trans:'
+          write (6,'(8f7.2)') 
+     &        (trans_layers_above(j,ibox),ibox=1,ncolprint)
+    
+          write (6,'(a)') 'ppout:'
+          write (6,'(8f7.2)') (tb(j,ibox),ibox=1,ncolprint)
+          enddo ! j
+      endif
+
+      end if
+
+!     ---------------------------------------------------!
+
+!     
+!     ---------------------------------------------------!
+!     DETERMINE CLOUD TOP PRESSURE
+!
+!     again the 2 methods differ according to whether
+!     or not you use the physical cloud top pressure (top_height = 2)
+!     or the radiatively determined cloud top pressure (top_height = 1 or 3)
+!
+
+      !compute cloud top pressure
+      do 30 ibox=1,ncol
+        !segregate according to optical thickness
+        if (top_height .eq. 1 .or. top_height .eq. 3) then  
+          !find level whose temperature
+          !most closely matches brightness temperature
+          do j=1,npoints 
+            nmatch(j)=0
+          enddo
+          do 29 k1=1,nlev-1
+	    if (top_height_direction .eq. 2) then
+	      ilev = nlev - k1 
+	    else
+	      ilev = k1
+	    end if
+            !cdir nodep
+            do j=1,npoints 
+	     if (ilev .ge. itrop(j)) then
+              if ((at(j,ilev)   .ge. tb(j,ibox) .and. 
+     &          at(j,ilev+1) .le. tb(j,ibox)) .or.
+     &          (at(j,ilev) .le. tb(j,ibox) .and. 
+     &          at(j,ilev+1) .ge. tb(j,ibox))) then 
+                nmatch(j)=nmatch(j)+1
+		match(j,nmatch(j))=ilev
+              end if  
+	     end if                         
+            enddo
+29        continue
+
+          do j=1,npoints 
+            if (nmatch(j) .ge. 1) then
+              k1 = match(j,nmatch(j))
+	      k2 = k1 + 1
+              logp1 = log(pfull(j,k1))
+              logp2 = log(pfull(j,k2))
+	      atd = max(tauchk,abs(at(j,k2) - at(j,k1)))
+              logp=logp1+(logp2-logp1)*abs(tb(j,ibox)-at(j,k1))/atd
+              ptop(j,ibox) = exp(logp)
+	      if(abs(pfull(j,k1)-ptop(j,ibox)) .lt.
+     &            abs(pfull(j,k2)-ptop(j,ibox))) then
+                 levmatch(j,ibox)=k1
+              else
+                 levmatch(j,ibox)=k2
+              end if   
+            else
+              if (tb(j,ibox) .le. attrop(j)) then
+                ptop(j,ibox)=ptrop(j)
+                levmatch(j,ibox)=itrop(j)
+              end if
+              if (tb(j,ibox) .ge. atmax(j)) then
+                ptop(j,ibox)=pfull(j,nlev)
+                levmatch(j,ibox)=nlev
+              end if                                
+            end if
+          enddo ! j
+
+        else ! if (top_height .eq. 1 .or. top_height .eq. 3) 
+ 
+          do j=1,npoints     
+            ptop(j,ibox)=0.
+          enddo
+          do ilev=1,nlev
+            do j=1,npoints     
+              if ((ptop(j,ibox) .eq. 0. )
+     &           .and.(frac_out(j,ibox,ilev) .ne. 0)) then
+                ptop(j,ibox)=phalf(j,ilev)
+              levmatch(j,ibox)=ilev
+              end if
+            end do
+          end do
+        end if                            
+          
+        do j=1,npoints
+          if (tau(j,ibox) .le. (tauchk            )) then
+            ptop(j,ibox)=0.
+            levmatch(j,ibox)=0      
+          endif 
+        enddo
+
+30    continue
+              
+!
+!
+!     ---------------------------------------------------!
+
+
+!     
+!     ---------------------------------------------------!
+!     DETERMINE ISCCP CLOUD TYPE FREQUENCIES
+!
+!     Now that ptop and tau have been determined, 
+!     determine amount of each of the 49 ISCCP cloud
+!     types
+!
+!     Also compute grid box mean cloud top pressure and
+!     optical thickness.  The mean cloud top pressure and
+!     optical thickness are averages over the cloudy 
+!     area only. The mean cloud top pressure is a linear
+!     average of the cloud top pressures.  The mean cloud
+!     optical thickness is computed by converting optical
+!     thickness to an albedo, averaging in albedo units,
+!     then converting the average albedo back to a mean
+!     optical thickness.  
+!
+
+      !compute isccp frequencies
+
+      !reset frequencies
+      do 38 ilev=1,7
+      do 38 ilev2=1,7
+        do j=1,npoints ! 
+             if (sunlit(j).eq.1 .or. top_height .eq. 3) then 
+                fq_isccp(j,ilev,ilev2)= 0.
+	     else
+	        fq_isccp(j,ilev,ilev2)= output_missing_value
+	     end if
+        enddo
+38    continue
+
+      !reset variables need for averaging cloud properties
+      do j=1,npoints 
+        if (sunlit(j).eq.1 .or. top_height .eq. 3) then 
+             totalcldarea(j) = 0.
+             meanalbedocld(j) = 0.
+             meanptop(j) = 0.
+             meantaucld(j) = 0.
+	else
+             totalcldarea(j) = output_missing_value
+             meanalbedocld(j) = output_missing_value
+             meanptop(j) = output_missing_value
+             meantaucld(j) = output_missing_value
+	end if
+      enddo ! j
+
+      boxarea = 1./real(ncol)
+     
+      do 39 ibox=1,ncol
+        do j=1,npoints 
+
+          if (tau(j,ibox) .gt. (tauchk            )
+     &      .and. ptop(j,ibox) .gt. 0.) then
+              box_cloudy(j,ibox)=.true.
+          endif
+
+          if (box_cloudy(j,ibox)) then
+
+              if (sunlit(j).eq.1 .or. top_height .eq. 3) then
+
+                boxtau(j,ibox) = tau(j,ibox)
+
+		if (tau(j,ibox) .ge. isccp_taumin) then
+		   totalcldarea(j) = totalcldarea(j) + boxarea
+		
+                   !convert optical thickness to albedo
+                   albedocld(j,ibox)
+     &		   = (tau(j,ibox)**0.895)/((tau(j,ibox)**0.895)+6.82)
+         
+                   !contribute to averaging
+                   meanalbedocld(j) = meanalbedocld(j) 
+     &                                +albedocld(j,ibox)*boxarea
+
+                end if
+
+            endif
+
+          endif
+
+          if (sunlit(j).eq.1 .or. top_height .eq. 3) then 
+
+           if (box_cloudy(j,ibox)) then
+          
+              !convert ptop to millibars
+              ptop(j,ibox)=ptop(j,ibox) / 100.
+            
+              !save for output cloud top pressure and optical thickness
+              boxptop(j,ibox) = ptop(j,ibox)
+    
+              if (tau(j,ibox) .ge. isccp_taumin) then
+	      	meanptop(j) = meanptop(j) + ptop(j,ibox)*boxarea
+              end if		
+
+              !reset itau(j), ipres(j)
+              itau(j) = 0
+              ipres(j) = 0
+
+              !determine optical depth category
+              if (tau(j,ibox) .lt. isccp_taumin) then
+                  itau(j)=1
+              else if (tau(j,ibox) .ge. isccp_taumin
+     &                                    
+     &          .and. tau(j,ibox) .lt. 1.3) then
+                itau(j)=2
+              else if (tau(j,ibox) .ge. 1.3 
+     &          .and. tau(j,ibox) .lt. 3.6) then
+                itau(j)=3
+              else if (tau(j,ibox) .ge. 3.6 
+     &          .and. tau(j,ibox) .lt. 9.4) then
+                  itau(j)=4
+              else if (tau(j,ibox) .ge. 9.4 
+     &          .and. tau(j,ibox) .lt. 23.) then
+                  itau(j)=5
+              else if (tau(j,ibox) .ge. 23. 
+     &          .and. tau(j,ibox) .lt. 60.) then
+                  itau(j)=6
+              else if (tau(j,ibox) .ge. 60.) then
+                  itau(j)=7
+              end if
+
+              !determine cloud top pressure category
+              if (    ptop(j,ibox) .gt. 0.  
+     &          .and.ptop(j,ibox) .lt. 180.) then
+                  ipres(j)=1
+              else if(ptop(j,ibox) .ge. 180.
+     &          .and.ptop(j,ibox) .lt. 310.) then
+                  ipres(j)=2
+              else if(ptop(j,ibox) .ge. 310.
+     &          .and.ptop(j,ibox) .lt. 440.) then
+                  ipres(j)=3
+              else if(ptop(j,ibox) .ge. 440.
+     &          .and.ptop(j,ibox) .lt. 560.) then
+                  ipres(j)=4
+              else if(ptop(j,ibox) .ge. 560.
+     &          .and.ptop(j,ibox) .lt. 680.) then
+                  ipres(j)=5
+              else if(ptop(j,ibox) .ge. 680.
+     &          .and.ptop(j,ibox) .lt. 800.) then
+                  ipres(j)=6
+              else if(ptop(j,ibox) .ge. 800.) then
+                  ipres(j)=7
+              end if 
+
+              !update frequencies
+              if(ipres(j) .gt. 0.and.itau(j) .gt. 0) then
+              fq_isccp(j,itau(j),ipres(j))=
+     &          fq_isccp(j,itau(j),ipres(j))+ boxarea
+              end if
+
+            end if
+
+          end if
+                       
+        enddo ! j
+39    continue
+      
+      !compute mean cloud properties
+      do j=1,npoints 
+        if (totalcldarea(j) .gt. 0.) then
+	  ! code above guarantees that totalcldarea > 0 
+	  ! only if sunlit .eq. 1 .or. top_height = 3 
+	  ! and applies only to clouds with tau > isccp_taumin
+          meanptop(j) = meanptop(j) / totalcldarea(j)
+          meanalbedocld(j) = meanalbedocld(j) / totalcldarea(j)
+          meantaucld(j) = (6.82/((1./meanalbedocld(j))-1.))**(1./0.895)
+	else
+	  ! this code is necessary so that in the case that totalcldarea = 0.,
+	  ! that these variables, which are in-cloud averages, are set to missing
+	  ! note that totalcldarea will be 0. if all the clouds in the grid box have
+	  ! tau < isccp_taumin 
+	  meanptop(j) = output_missing_value
+          meanalbedocld(j) = output_missing_value
+          meantaucld(j) = output_missing_value
+        end if
+      enddo ! j
+!
+!     ---------------------------------------------------!
+
+!     ---------------------------------------------------!
+!     OPTIONAL PRINTOUT OF DATA TO CHECK PROGRAM
+!
+      if (debugcol.ne.0) then
+!     
+         do j=1,npoints,debugcol
+
+            !produce character output
+            do ilev=1,nlev
+              do ibox=1,ncol
+                   acc(ilev,ibox)=0
+              enddo
+            enddo
+
+            do ilev=1,nlev
+              do ibox=1,ncol
+                   acc(ilev,ibox)=frac_out(j,ibox,ilev)*2
+                   if (levmatch(j,ibox) .eq. ilev) 
+     &                 acc(ilev,ibox)=acc(ilev,ibox)+1
+              enddo
+            enddo
+
+             !print test
+
+          write(ftn09,11) j
+11        format('ftn09.',i4.4)
+          open(9, FILE=ftn09, FORM='FORMATTED')
+
+             write(9,'(a1)') ' '
+             write(9,'(10i5)')
+     &                  (ilev,ilev=5,nlev,5)
+             write(9,'(a1)') ' '
+             
+             do ibox=1,ncol
+               write(9,'(40(a1),1x,40(a1))')
+     &           (cchar_realtops(acc(ilev,ibox)+1),ilev=1,nlev) 
+     &           ,(cchar(acc(ilev,ibox)+1),ilev=1,nlev) 
+             end do
+             close(9)
+
+             if (ncolprint.ne.0) then
+               write(6,'(a1)') ' '
+                    write(6,'(a2,1X,5(a7,1X),a50)') 
+     &                  'ilev',
+     &                  'pfull','at',
+     &                  'cc*100','dem_s','dtau_s',
+     &                  'cchar'
+
+!               do 4012 ilev=1,nlev
+!                    write(6,'(60i2)') (box(i,ilev),i=1,ncolprint)
+!                   write(6,'(i2,1X,5(f7.2,1X),50(a1))') 
+!     &                  ilev,
+!     &                  pfull(j,ilev)/100.,at(j,ilev),
+!     &                  cc(j,ilev)*100.0,dem_s(j,ilev),dtau_s(j,ilev)
+!     &                  ,(cchar(acc(ilev,ibox)+1),ibox=1,ncolprint)
+!4012           continue
+               write (6,'(a)') 'skt(j):'
+               write (6,'(8f7.2)') skt(j)
+                                      
+               write (6,'(8I7)') (ibox,ibox=1,ncolprint)
+            
+               write (6,'(a)') 'tau:'
+               write (6,'(8f7.2)') (tau(j,ibox),ibox=1,ncolprint)
+    
+               write (6,'(a)') 'tb:'
+               write (6,'(8f7.2)') (tb(j,ibox),ibox=1,ncolprint)
+    
+               write (6,'(a)') 'ptop:'
+               write (6,'(8f7.2)') (ptop(j,ibox),ibox=1,ncolprint)
+             endif 
+    
+        enddo
+       
+      end if 
+
+      return
+      end 
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/isccp_cloud_types.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/isccp_cloud_types.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/isccp_cloud_types.F	(revision 3330)
@@ -0,0 +1,347 @@
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/icarus-scops-4.1-bsd/isccp_cloud_types.f $
+      SUBROUTINE ISCCP_CLOUD_TYPES(
+     &     debug,
+     &     debugcol,
+     &     npoints,
+     &     sunlit,
+     &     nlev,
+     &     ncol,
+     &     seed,
+     &     pfull,
+     &     phalf,
+     &     qv,
+     &     cc,
+     &     conv,
+     &     dtau_s,
+     &     dtau_c,
+     &     top_height,
+     &     top_height_direction,
+     &     overlap,
+     &     frac_out,
+     &     skt,
+     &     emsfc_lw,
+     &     at,
+     &     dem_s,
+     &     dem_c,
+     &     fq_isccp,
+     &     totalcldarea,
+     &     meanptop,
+     &     meantaucld,
+     &     meanalbedocld,
+     &     meantb,
+     &     meantbclr,
+     &     boxtau,
+     &     boxptop
+     &)
+
+!$Id: isccp_cloud_types.f,v 4.0 2009/03/06 11:05:11 hadmw Exp $
+
+! *****************************COPYRIGHT****************************
+! (c) British Crown Copyright 2009, the Met Office.
+! All rights reserved.
+! 
+! Redistribution and use in source and binary forms, with or without 
+! modification, are permitted provided that the
+! following conditions are met:
+! 
+!     * Redistributions of source code must retain the above 
+!       copyright  notice, this list of conditions and the following 
+!       disclaimer.
+!     * Redistributions in binary form must reproduce the above 
+!       copyright notice, this list of conditions and the following 
+!       disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its 
+!       contributors may be used to endorse or promote products
+!       derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
+! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
+! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 
+! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 
+! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
+! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 
+! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 
+! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
+! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 
+! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  
+! 
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+
+      implicit none
+
+!     NOTE:   the maximum number of levels and columns is set by
+!             the following parameter statement
+
+      INTEGER ncolprint
+      
+!     -----
+!     Input 
+!     -----
+
+      INTEGER npoints       !  number of model points in the horizontal
+      INTEGER nlev          !  number of model levels in column
+      INTEGER ncol          !  number of subcolumns
+
+      INTEGER sunlit(npoints) !  1 for day points, 0 for night time
+
+      INTEGER seed(npoints)
+      !  seed values for marsaglia  random number generator
+      !  It is recommended that the seed is set
+      !  to a different value for each model
+      !  gridbox it is called on, as it is
+      !  possible that the choice of the same
+      !  seed value every time may introduce some
+      !  statistical bias in the results, particularly
+      !  for low values of NCOL.
+
+      REAL pfull(npoints,nlev)
+                       !  pressure of full model levels (Pascals)
+                  !  pfull(npoints,1) is top level of model
+                  !  pfull(npoints,nlev) is bot of model
+
+      REAL phalf(npoints,nlev+1)
+                  !  pressure of half model levels (Pascals)
+                  !  phalf(npoints,1) is top of model
+                  !  phalf(npoints,nlev+1) is the surface pressure
+
+      REAL qv(npoints,nlev)
+                  !  water vapor specific humidity (kg vapor/ kg air)
+                  !         on full model levels
+
+      REAL cc(npoints,nlev)   
+                  !  input cloud cover in each model level (fraction) 
+                  !  NOTE:  This is the HORIZONTAL area of each
+                  !         grid box covered by clouds
+
+      REAL conv(npoints,nlev) 
+                  !  input convective cloud cover in each model
+                  !   level (fraction) 
+                  !  NOTE:  This is the HORIZONTAL area of each
+                  !         grid box covered by convective clouds
+
+      REAL dtau_s(npoints,nlev) 
+                  !  mean 0.67 micron optical depth of stratiform
+                !  clouds in each model level
+                  !  NOTE:  this the cloud optical depth of only the
+                  !  cloudy part of the grid box, it is not weighted
+                  !  with the 0 cloud optical depth of the clear
+                  !         part of the grid box
+
+      REAL dtau_c(npoints,nlev) 
+                  !  mean 0.67 micron optical depth of convective
+                !  clouds in each
+                  !  model level.  Same note applies as in dtau_s.
+
+      INTEGER overlap                   !  overlap type
+                              !  1=max
+                              !  2=rand
+                              !  3=max/rand
+
+      INTEGER top_height                !  1 = adjust top height using both a computed
+                                        !  infrared brightness temperature and the visible
+                              !  optical depth to adjust cloud top pressure. Note
+                              !  that this calculation is most appropriate to compare
+                              !  to ISCCP data during sunlit hours.
+                                        !  2 = do not adjust top height, that is cloud top
+                                        !  pressure is the actual cloud top pressure
+                                        !  in the model
+                              !  3 = adjust top height using only the computed
+                              !  infrared brightness temperature. Note that this
+                              !  calculation is most appropriate to compare to ISCCP
+                              !  IR only algortihm (i.e. you can compare to nighttime
+                              !  ISCCP data with this option)
+
+      INTEGER top_height_direction ! direction for finding atmosphere pressure level
+                                 ! with interpolated temperature equal to the radiance
+				 ! determined cloud-top temperature
+				 !
+				 ! 1 = find the *lowest* altitude (highest pressure) level
+				 ! with interpolated temperature equal to the radiance
+				 ! determined cloud-top temperature
+				 !
+				 ! 2 = find the *highest* altitude (lowest pressure) level
+				 ! with interpolated temperature equal to the radiance 
+				 ! determined cloud-top temperature
+				 ! 
+				 ! ONLY APPLICABLE IF top_height EQUALS 1 or 3
+				 !
+				 ! 1 = old setting: matches all versions of 
+				 ! ISCCP simulator with versions numbers 3.5.1 and lower
+				 !
+				 ! 2 = default setting: for version numbers 4.0 and higher  
+!
+!     The following input variables are used only if top_height = 1 or top_height = 3
+!
+      REAL skt(npoints)                 !  skin Temperature (K)
+      REAL emsfc_lw                     !  10.5 micron emissivity of surface (fraction)                                            
+      REAL at(npoints,nlev)                   !  temperature in each model level (K)
+      REAL dem_s(npoints,nlev)                !  10.5 micron longwave emissivity of stratiform
+                              !  clouds in each
+                                        !  model level.  Same note applies as in dtau_s.
+      REAL dem_c(npoints,nlev)                  !  10.5 micron longwave emissivity of convective
+                              !  clouds in each
+                                        !  model level.  Same note applies as in dtau_s.
+
+      REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into
+                              ! Equivalent of BOX in original version, but
+                              ! indexed by column then row, rather than
+                              ! by row then column
+
+
+
+!     ------
+!     Output
+!     ------
+
+      REAL fq_isccp(npoints,7,7)        !  the fraction of the model grid box covered by
+                                        !  each of the 49 ISCCP D level cloud types
+
+      REAL totalcldarea(npoints)        !  the fraction of model grid box columns
+                                        !  with cloud somewhere in them.  NOTE: This diagnostic
+					! does not count model clouds with tau < isccp_taumin
+                              ! Thus this diagnostic does not equal the sum over all entries of fq_isccp.
+			      ! However, this diagnostic does equal the sum over entries of fq_isccp with
+			      ! itau = 2:7 (omitting itau = 1)
+      
+      
+      ! The following three means are averages only over the cloudy areas with tau > isccp_taumin.  
+      ! If no clouds with tau > isccp_taumin are in grid box all three quantities should equal zero.      
+                              
+      REAL meanptop(npoints)            !  mean cloud top pressure (mb) - linear averaging
+                                        !  in cloud top pressure.
+                              
+      REAL meantaucld(npoints)          !  mean optical thickness 
+                                        !  linear averaging in albedo performed.
+      
+      real meanalbedocld(npoints)        ! mean cloud albedo
+                                        ! linear averaging in albedo performed
+					
+      real meantb(npoints)              ! mean all-sky 10.5 micron brightness temperature
+      
+      real meantbclr(npoints)           ! mean clear-sky 10.5 micron brightness temperature
+      
+      REAL boxtau(npoints,ncol)         !  optical thickness in each column
+      
+      REAL boxptop(npoints,ncol)        !  cloud top pressure (mb) in each column
+                              
+                                                                                          
+!
+!     ------
+!     Working variables added when program updated to mimic Mark Webb's PV-Wave code
+!     ------
+
+      REAL dem(npoints,ncol),bb(npoints)     !  working variables for 10.5 micron longwave 
+                              !  emissivity in part of
+                              !  gridbox under consideration
+
+      REAL ptrop(npoints)
+      REAL attrop(npoints)
+      REAL attropmin (npoints)
+      REAL atmax(npoints)
+      REAL atmin(npoints)
+      REAL btcmin(npoints)
+      REAL transmax(npoints)
+
+      INTEGER i,j,ilev,ibox,itrop(npoints)
+      INTEGER ipres(npoints)
+      INTEGER itau(npoints),ilev2
+      INTEGER acc(nlev,ncol)
+      INTEGER match(npoints,nlev-1)
+      INTEGER nmatch(npoints)
+      INTEGER levmatch(npoints,ncol)
+      
+      !variables needed for water vapor continuum absorption
+      real fluxtop_clrsky(npoints),trans_layers_above_clrsky(npoints)
+      real taumin(npoints)
+      real dem_wv(npoints,nlev), wtmair, wtmh20, Navo, grav, pstd, t0
+      real press(npoints), dpress(npoints), atmden(npoints)
+      real rvh20(npoints), wk(npoints), rhoave(npoints)
+      real rh20s(npoints), rfrgn(npoints)
+      real tmpexp(npoints),tauwv(npoints)
+      
+      character*1 cchar(6),cchar_realtops(6)
+      integer icycle
+      REAL tau(npoints,ncol)
+      LOGICAL box_cloudy(npoints,ncol)
+      REAL tb(npoints,ncol)
+      REAL ptop(npoints,ncol)
+      REAL emcld(npoints,ncol)
+      REAL fluxtop(npoints,ncol)
+      REAL trans_layers_above(npoints,ncol)
+      real isccp_taumin,fluxtopinit(npoints),tauir(npoints)
+      REAL albedocld(npoints,ncol)
+      real boxarea
+      integer debug       ! set to non-zero value to print out inputs
+                    ! with step debug
+      integer debugcol    ! set to non-zero value to print out column
+                    ! decomposition with step debugcol
+      integer rangevec(npoints),rangeerror
+
+      integer index1(npoints),num1,jj,k1,k2
+      real rec2p13,tauchk,logp,logp1,logp2,atd
+
+      character*10 ftn09
+      
+      DATA isccp_taumin / 0.3 /
+      DATA cchar / ' ','-','1','+','I','+'/
+      DATA cchar_realtops / ' ',' ','1','1','I','I'/
+
+!     ------ End duplicate definitions common to wrapper routine
+
+       ncolprint=0
+
+      CALL SCOPS(
+     &     npoints,
+     &     nlev,
+     &     ncol,
+     &     seed,
+     &     cc,
+     &     conv,
+     &     overlap,
+     &     frac_out,
+     &     ncolprint
+     &)
+
+      CALL ICARUS(
+     &     debug,
+     &     debugcol,
+     &     npoints,
+     &     sunlit,
+     &     nlev,
+     &     ncol,
+     &     pfull,
+     &     phalf,
+     &     qv,
+     &     cc,
+     &     conv,
+     &     dtau_s,
+     &     dtau_c,
+     &     top_height,
+     &     top_height_direction,
+     &     overlap,
+     &     frac_out,
+     &     skt,
+     &     emsfc_lw,
+     &     at,
+     &     dem_s,
+     &     dem_c,
+     &     fq_isccp,
+     &     totalcldarea,
+     &     meanptop,
+     &     meantaucld,
+     &     meanalbedocld,
+     &     meantb,
+     &     meantbclr,
+     &     boxtau,
+     &     boxptop
+     &)
+
+      return
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/lidar_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/lidar_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/lidar_simulator.F90	(revision 3330)
@@ -0,0 +1,742 @@
+! Copyright (c) 2009, Centre National de la Recherche Scientifique
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/actsim/lidar_simulator.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the LMD/IPSL/CNRS/UPMC nor the names of its
+!       contributors may be used to endorse or promote products derived from this software without 
+!       specific prior written permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+      
+      SUBROUTINE lidar_simulator(npoints,nlev,npart,nrefl &
+                , undef &
+                , pres, presf, temp &
+                , q_lsliq, q_lsice, q_cvliq, q_cvice &
+                , ls_radliq, ls_radice, cv_radliq, cv_radice &
+                , ice_type, pmol, pnorm, pnorm_perp_tot,tautot, refl )
+!
+!---------------------------------------------------------------------------------
+! Purpose: To compute lidar signal from model-simulated profiles of cloud water
+!          and cloud fraction in each sub-column of each model gridbox.
+!
+! References: 
+! Chepfer H., S. Bony, D. Winker, M. Chiriaco, J.-L. Dufresne, G. Seze (2008),
+! Use of CALIPSO lidar observations to evaluate the cloudiness simulated by a 
+! climate model, Geophys. Res. Lett., 35, L15704, doi:10.1029/2008GL034207.
+!
+! Previous references:
+! Chiriaco et al, MWR, 2006; Chepfer et al., MWR, 2007
+!
+! Contacts: Helene Chepfer (chepfer@lmd.polytechnique.fr), Sandrine Bony (bony@lmd.jussieu.fr)
+!
+! May 2007: ActSim code of M. Chiriaco and H. Chepfer rewritten by S. Bony
+!
+! May 2008, H. Chepfer:
+! - Units of pressure inputs: Pa 
+! - Non Spherical particles : LS Ice NS coefficients, CONV Ice NS coefficients
+! - New input: ice_type (0=ice-spheres ; 1=ice-non-spherical)
+!
+! June 2008, A. Bodas-Salcedo:
+! - Ported to Fortran 90 and optimisation changes
+!
+! August 2008, J-L Dufresne:
+! - Optimisation changes (sum instructions suppressed)
+!
+! October 2008, S. Bony,  H. Chepfer and J-L. Dufresne :  
+! - Interface with COSP v2.0:
+!      cloud fraction removed from inputs
+!      in-cloud condensed water now in input (instead of grid-averaged value)
+!      depolarisation diagnostic removed
+!      parasol (polder) reflectances (for 5 different solar zenith angles) added
+!
+! December 2008, S. Bony,  H. Chepfer and J-L. Dufresne : 
+! - Modification of the integration of the lidar equation.
+! - change the cloud detection threshold
+!
+! April 2008, A. Bodas-Salcedo:
+! - Bug fix in computation of pmol and pnorm of upper layer
+!
+! April 2008, J-L. Dufresne
+! - Bug fix in computation of pmol and pnorm, thanks to Masaki Satoh: a factor 2 
+! was missing. This affects the ATB values but not the cloud fraction. 
+!
+! January 2013, G. Cesana and H. Chepfer:
+! - Add the perpendicular component of the backscattered signal (pnorm_perp_tot) in the arguments
+! - Add the temperature for each levels (temp) in the arguments
+! - Add the computation of the perpendicular component of the backscattered lidar signal 
+! Reference: Cesana G. and H. Chepfer (2013): Evaluation of the cloud water phase
+! in a climate model using CALIPSO-GOCCP, J. Geophys. Res., doi: 10.1002/jgrd.50376
+!
+!---------------------------------------------------------------------------------
+!
+! Inputs:
+!  npoints  : number of horizontal points
+!  nlev : number of vertical levels
+!  npart: numberb of cloud meteors (stratiform_liq, stratiform_ice, conv_liq, conv_ice). 
+!        Currently npart must be 4
+!  nrefl: number of solar zenith angles for parasol reflectances
+!  pres : pressure in the middle of atmospheric layers (full levels): Pa
+!  presf: pressure in the interface of atmospheric layers (half levels): Pa
+!     presf(..,1) : surface pressure ; presf(..,nlev+1)= TOA pressure
+!  temp : temperature of atmospheric layers: K
+!  q_lsliq: LS sub-column liquid water mixing ratio (kg/kg)
+!  q_lsice: LS sub-column ice water mixing ratio (kg/kg)
+!  q_cvliq: CONV sub-column liquid water mixing ratio (kg/kg)
+!  q_cvice: CONV sub-column ice water mixing ratio (kg/kg)
+!  ls_radliq: effective radius of LS liquid particles (meters)
+!  ls_radice: effective radius of LS ice particles (meters)
+!  cv_radliq: effective radius of CONV liquid particles (meters)
+!  cv_radice: effective radius of CONV ice particles (meters)
+!  ice_type : ice particle shape hypothesis (ice_type=0 for spheres, ice_type=1 
+!             for non spherical particles)
+!
+! Outputs:
+!  pmol : molecular attenuated backscatter lidar signal power (m^-1.sr^-1)
+!  pnorm: total attenuated backscatter lidar signal power (m^-1.sr^-1)
+!  pnorm_perp_tot: perpendicular attenuated backscatter lidar signal power (m^-1.sr^-1)
+!  tautot: optical thickess integrated from top to level z
+!  refl : parasol(polder) reflectance
+!
+! Version 1.0 (June 2007)
+! Version 1.1 (May 2008)
+! Version 1.2 (June 2008)
+! Version 2.0 (October 2008)
+! Version 2.1 (December 2008)
+!---------------------------------------------------------------------------------
+
+      IMPLICIT NONE
+      REAL :: SRsat
+      PARAMETER (SRsat = 0.01) ! threshold full attenuation 
+
+      LOGICAL ok_parasol
+      PARAMETER (ok_parasol=.true.)  ! set to .true. if you want to activate parasol reflectances
+
+      INTEGER i, k
+      
+      INTEGER INDX_LSLIQ,INDX_LSICE,INDX_CVLIQ,INDX_CVICE
+      PARAMETER (INDX_LSLIQ=1,INDX_LSICE=2,INDX_CVLIQ=3,INDX_CVICE=4)
+! inputs:
+      INTEGER npoints,nlev,npart,ice_type
+      INTEGER nrefl
+      real undef                 ! undefined value
+      REAL pres(npoints,nlev)    ! pressure full levels
+      REAL presf(npoints,nlev+1) ! pressure half levels
+      REAL q_lsliq(npoints,nlev), q_lsice(npoints,nlev)
+      REAL q_cvliq(npoints,nlev), q_cvice(npoints,nlev)
+      REAL ls_radliq(npoints,nlev), ls_radice(npoints,nlev)
+      REAL cv_radliq(npoints,nlev), cv_radice(npoints,nlev)
+
+! outputs (for each subcolumn):
+
+      REAL pmol(npoints,nlev)  ! molecular backscatter signal power (m^-1.sr^-1)
+      REAL pnorm(npoints,nlev) ! total lidar backscatter signal power (m^-1.sr^-1)
+      REAL tautot(npoints,nlev)! optical thickess integrated from top
+      REAL refl(npoints,nrefl)! parasol reflectance ! parasol
+
+! actsim variables:
+
+      REAL km, rdiffm, Qscat, Cmol
+      PARAMETER (Cmol = 6.2446e-32) ! depends on wavelength
+      PARAMETER (km = 1.38e-23)     ! Boltzmann constant (J/K)
+
+      PARAMETER (rdiffm = 0.7)      ! multiple scattering correction parameter
+      PARAMETER (Qscat = 2.0)       ! particle scattering efficiency at 532 nm
+
+      REAL rholiq, rhoice
+      PARAMETER (rholiq=1.0e+03)     ! liquid water (kg/m3)
+      PARAMETER (rhoice=0.5e+03)     ! ice (kg/m3)
+
+      REAL pi, rhopart(npart)
+      REAL polpart(npart,5)  ! polynomial coefficients derived for spherical and non spherical
+                             ! particules
+
+!   grid-box variables:
+      REAL rad_part(npoints,nlev,npart)
+      REAL rhoair(npoints,nlev), zheight(npoints,nlev+1)
+      REAL beta_mol(npoints,nlev), alpha_mol(npoints,nlev)
+      REAL kp_part(npoints,nlev,npart)
+
+!   sub-column variables:
+      REAL qpart(npoints,nlev,npart) ! mixing ratio particles in each subcolumn
+      REAL alpha_part(npoints,nlev,npart)
+      REAL tau_mol_lay(npoints)  ! temporary variable, moL. opt. thickness of layer k
+      REAL tau_mol(npoints,nlev) ! optical thickness between TOA and bottom of layer k
+      REAL tau_part(npoints,nlev,npart)
+      REAL betatot(npoints,nlev)
+      REAL tautot_lay(npoints)   ! temporary variable, total opt. thickness of layer k
+!     Optical thickness from TOA to surface for Parasol
+     REAL tautot_S_liq(npoints),tautot_S_ice(npoints)     ! for liq and ice clouds
+
+
+! Local variables
+      REAL Alpha, Beta, Gamma  ! Polynomial coefficient for ATBperp computation
+      REAL temp(npoints,nlev)                   ! temperature of layer k
+      REAL betatot_ice(npoints,nlev)    ! backscatter coefficient for ice particles
+      REAL beta_perp_ice(npoints,nlev)  ! perpendicular backscatter coefficient for ice
+      REAL betatot_liq(npoints,nlev)    ! backscatter coefficient for liquid particles
+      REAL beta_perp_liq(npoints,nlev)  ! perpendicular backscatter coefficient for liq
+      REAL tautot_ice(npoints,nlev)     ! total optical thickness of ice
+      REAL tautot_liq(npoints,nlev)     ! total optical thickness of liq
+      REAL tautot_lay_ice(npoints)    ! total optical thickness of ice in the layer k
+      REAL tautot_lay_liq(npoints)    ! total optical thickness of liq in the layer k
+      REAL pnorm_liq(npoints,nlev)    ! lidar backscattered signal power for liquid
+      REAL pnorm_ice(npoints,nlev)    ! lidar backscattered signal power for ice
+      REAL pnorm_perp_ice(npoints,nlev) ! perpendicular lidar backscattered signal power for ice
+      REAL pnorm_perp_liq(npoints,nlev) ! perpendicular lidar backscattered signal power for liq
+
+! Output variable
+      REAL pnorm_perp_tot (npoints,nlev) ! perpendicular lidar backscattered signal power
+
+!------------------------------------------------------------
+!---- 0. Initialisation :
+!------------------------------------------------------------
+betatot_ice(:,:)=0
+betatot_liq(:,:)=0
+beta_perp_ice(:,:)=0
+beta_perp_liq(:,:)=0
+tautot_ice(:,:)=0
+tautot_liq(:,:)=0
+tautot_lay_ice(:)=0;
+tautot_lay_liq(:)=0;
+pnorm_liq(:,:)=0
+pnorm_ice(:,:)=0
+pnorm_perp_ice(:,:)=0
+pnorm_perp_liq(:,:)=0
+pnorm_perp_tot(:,:)=0
+
+
+! Polynomial coefficients (Alpha, Beta, Gamma) which allow to compute the ATBperpendicular
+! as a function of the ATB for ice or liquid cloud particles derived from CALIPSO-GOCCP
+! observations at 120m vertical grid (Cesana and Chepfer, JGR, 2013).
+!
+! Relationship between ATBice and ATBperp,ice for ice particles
+!  ATBperp,ice = Alpha*ATBice 
+         Alpha = 0.2904
+
+! Relationship between ATBice and ATBperp,ice for liquid particles
+!  ATBperp,ice = Beta*ATBice^2 + Gamma*ATBice
+         Beta = 0.4099
+         Gamma = 0.009
+
+!------------------------------------------------------------
+!---- 1. Preliminary definitions and calculations :
+!------------------------------------------------------------
+
+      if ( npart .ne. 4 ) then
+        print *,'Error in lidar_simulator, npart should be 4, not',npart
+        stop
+      endif
+
+      pi = dacos(-1.D0)
+
+! Polynomial coefficients for spherical liq/ice particles derived from Mie theory.
+! Polynomial coefficients for non spherical particles derived from a composite of
+! Ray-tracing theory for large particles (e.g. Noel et al., Appl. Opt., 2001)
+! and FDTD theory for very small particles (Yang et al., JQSRT, 2003).
+
+! We repeat the same coefficients for LS and CONV cloud to make code more readable
+!*     LS Liquid water coefficients:
+         polpart(INDX_LSLIQ,1) =  2.6980e-8
+         polpart(INDX_LSLIQ,2) = -3.7701e-6
+         polpart(INDX_LSLIQ,3) =  1.6594e-4
+         polpart(INDX_LSLIQ,4) = -0.0024
+         polpart(INDX_LSLIQ,5) =  0.0626
+!*     LS Ice coefficients: 
+      if (ice_type.eq.0) then     
+         polpart(INDX_LSICE,1) = -1.0176e-8
+         polpart(INDX_LSICE,2) =  1.7615e-6
+         polpart(INDX_LSICE,3) = -1.0480e-4
+         polpart(INDX_LSICE,4) =  0.0019
+         polpart(INDX_LSICE,5) =  0.0460
+      endif
+!*     LS Ice NS coefficients: 
+      if (ice_type.eq.1) then 
+         polpart(INDX_LSICE,1) = 1.3615e-8
+         polpart(INDX_LSICE,2) = -2.04206e-6
+         polpart(INDX_LSICE,3) = 7.51799e-5
+         polpart(INDX_LSICE,4) = 0.00078213
+         polpart(INDX_LSICE,5) = 0.0182131
+      endif
+!*     CONV Liquid water coefficients:
+         polpart(INDX_CVLIQ,1) =  2.6980e-8
+         polpart(INDX_CVLIQ,2) = -3.7701e-6
+         polpart(INDX_CVLIQ,3) =  1.6594e-4
+         polpart(INDX_CVLIQ,4) = -0.0024
+         polpart(INDX_CVLIQ,5) =  0.0626
+!*     CONV Ice coefficients: 
+      if (ice_type.eq.0) then 
+         polpart(INDX_CVICE,1) = -1.0176e-8
+         polpart(INDX_CVICE,2) =  1.7615e-6
+         polpart(INDX_CVICE,3) = -1.0480e-4
+         polpart(INDX_CVICE,4) =  0.0019
+         polpart(INDX_CVICE,5) =  0.0460
+      endif
+      if (ice_type.eq.1) then
+         polpart(INDX_CVICE,1) = 1.3615e-8
+         polpart(INDX_CVICE,2) = -2.04206e-6
+         polpart(INDX_CVICE,3) = 7.51799e-5
+         polpart(INDX_CVICE,4) = 0.00078213
+         polpart(INDX_CVICE,5) = 0.0182131
+      endif
+
+! density:
+!*    clear-sky air:
+      rhoair = pres/(287.04*temp)
+
+!*    liquid/ice particules:
+      rhopart(INDX_LSLIQ) = rholiq
+      rhopart(INDX_LSICE) = rhoice
+      rhopart(INDX_CVLIQ) = rholiq
+      rhopart(INDX_CVICE) = rhoice
+
+! effective radius particles:
+      rad_part(:,:,INDX_LSLIQ) = ls_radliq(:,:)
+      rad_part(:,:,INDX_LSICE) = ls_radice(:,:)
+      rad_part(:,:,INDX_CVLIQ) = cv_radliq(:,:)
+      rad_part(:,:,INDX_CVICE) = cv_radice(:,:)
+      rad_part(:,:,:)=MAX(rad_part(:,:,:),0.)
+      rad_part(:,:,:)=MIN(rad_part(:,:,:),70.0e-6)
+      
+! altitude at half pressure levels:
+      zheight(:,1) = 0.0
+      do k = 2, nlev+1
+        zheight(:,k) = zheight(:,k-1) &
+                  -(presf(:,k)-presf(:,k-1))/(rhoair(:,k-1)*9.81)
+      enddo
+
+!------------------------------------------------------------
+!---- 2. Molecular alpha and beta:
+!------------------------------------------------------------
+
+      beta_mol = pres/km/temp * Cmol
+      alpha_mol = 8.0*pi/3.0 * beta_mol
+
+!------------------------------------------------------------
+!---- 3. Particles alpha and beta:
+!------------------------------------------------------------
+
+! polynomes kp_lidar derived from Mie theory:
+      do i = 1, npart
+       where ( rad_part(:,:,i).gt.0.0)
+         kp_part(:,:,i) = &
+            polpart(i,1)*(rad_part(:,:,i)*1e6)**4 &
+          + polpart(i,2)*(rad_part(:,:,i)*1e6)**3 &
+          + polpart(i,3)*(rad_part(:,:,i)*1e6)**2 &
+          + polpart(i,4)*(rad_part(:,:,i)*1e6) &
+          + polpart(i,5)
+        elsewhere
+         kp_part(:,:,i) = 0.
+        endwhere
+      enddo
+      
+! mixing ratio particules in each subcolumn:
+          qpart(:,:,INDX_LSLIQ) = q_lsliq(:,:) ! oct08
+          qpart(:,:,INDX_LSICE) = q_lsice(:,:) ! oct08
+          qpart(:,:,INDX_CVLIQ) = q_cvliq(:,:) ! oct08
+          qpart(:,:,INDX_CVICE) = q_cvice(:,:) ! oct08
+
+! alpha of particles in each subcolumn:
+      do i = 1, npart
+        where ( rad_part(:,:,i).gt.0.0)
+          alpha_part(:,:,i) = 3.0/4.0 * Qscat &
+                 * rhoair(:,:) * qpart(:,:,i) &
+                 / (rhopart(i) * rad_part(:,:,i) )
+        elsewhere
+          alpha_part(:,:,i) = 0.
+        endwhere
+      enddo
+
+!------------------------------------------------------------
+!---- 4.1 Total Backscatter signal:
+!------------------------------------------------------------
+
+! optical thickness (molecular):
+!     opt. thick of each layer
+      tau_mol(:,1:nlev) = alpha_mol(:,1:nlev) &
+         & *(zheight(:,2:nlev+1)-zheight(:,1:nlev))
+!     opt. thick from TOA
+      DO k = nlev-1, 1, -1
+        tau_mol(:,k) = tau_mol(:,k) + tau_mol(:,k+1)
+      ENDDO
+
+! optical thickness (particles):
+
+      tau_part = rdiffm * alpha_part
+      DO i = 1, npart
+!       opt. thick of each layer
+        tau_part(:,:,i) = tau_part(:,:,i) &
+           & * (zheight(:,2:nlev+1)-zheight(:,1:nlev) )
+!       opt. thick from TOA
+        DO k = nlev-1, 1, -1 
+          tau_part(:,k,i) = tau_part(:,k,i) + tau_part(:,k+1,i)
+        ENDDO
+      ENDDO
+
+! molecular signal:
+!      Upper layer 
+       pmol(:,nlev) = beta_mol(:,nlev) / (2.*tau_mol(:,nlev)) &
+            & * (1.-exp(-2.0*tau_mol(:,nlev)))
+!      Other layers
+       DO k= nlev-1, 1, -1
+        tau_mol_lay(:) = tau_mol(:,k)-tau_mol(:,k+1) ! opt. thick. of layer k
+        WHERE (tau_mol_lay(:).GT.0.)
+          pmol(:,k) = beta_mol(:,k) * EXP(-2.0*tau_mol(:,k+1)) / (2.*tau_mol_lay(:)) &
+            & * (1.-exp(-2.0*tau_mol_lay(:)))
+        ELSEWHERE
+!         This must never happend, but just in case, to avoid div. by 0
+          pmol(:,k) = beta_mol(:,k) * EXP(-2.0*tau_mol(:,k+1))
+        END WHERE
+      END DO
+
+! Total signal (molecular + particules):
+!
+!
+! For performance reason on vector computers, the 2 following lines should not be used
+! and should be replace by the later one.
+!      betatot(:,:) = beta_mol(:,:) + sum(kp_part*alpha_part,dim=3)
+!      tautot(:,:)  = tau_mol(:,:)  + sum(tau_part,dim=3)
+      betatot(:,:) = beta_mol(:,:)
+      tautot(:,:)  = tau_mol(:,:)
+      DO i = 1, npart
+           betatot(:,:) = betatot(:,:) + kp_part(:,:,i)*alpha_part(:,:,i)
+           tautot(:,:) = tautot(:,:)  + tau_part(:,:,i)
+      ENDDO ! i
+!
+!     Upper layer 
+      pnorm(:,nlev) = betatot(:,nlev) / (2.*tautot(:,nlev)) &
+            & * (1.-exp(-2.0*tautot(:,nlev)))
+
+!     Other layers
+      DO k= nlev-1, 1, -1
+          tautot_lay(:) = tautot(:,k)-tautot(:,k+1) ! optical thickness of layer k
+        WHERE (tautot_lay(:).GT.0.)
+          pnorm(:,k) = betatot(:,k) * EXP(-2.0*tautot(:,k+1)) / (2.*tautot_lay(:)) &
+               & * (1.-EXP(-2.0*tautot_lay(:)))
+        ELSEWHERE
+!         This must never happend, but just in case, to avoid div. by 0
+          pnorm(:,k) = betatot(:,k) * EXP(-2.0*tautot(:,k+1))
+        END WHERE
+      END DO
+
+!------------------------------------------------------------
+!---- 4.2 Ice/Liq Backscatter signal:
+!------------------------------------------------------------
+
+! Contribution of the molecular to beta
+      betatot_ice(:,:) = beta_mol(:,:)
+      betatot_liq(:,:) = beta_mol(:,:)
+
+      tautot_ice(:,:) = tau_mol(:,:)
+      tautot_liq(:,:) = tau_mol(:,:)
+
+      DO i = 2, npart,2
+           betatot_ice(:,:) = betatot_ice(:,:)+ kp_part(:,:,i)*alpha_part(:,:,i)
+           tautot_ice(:,:) = tautot_ice(:,:)  + tau_part(:,:,i)
+      ENDDO ! i
+      DO i = 1, npart,2
+           betatot_liq(:,:) = betatot_liq(:,:)+ kp_part(:,:,i)*alpha_part(:,:,i)
+           tautot_liq(:,:) = tautot_liq(:,:)  + tau_part(:,:,i)
+      ENDDO ! i
+
+
+! Computation of the ice and liquid lidar backscattered signal (ATBice and ATBliq)
+!     Ice only
+!     Upper layer
+      pnorm_ice(:,nlev) = betatot_ice(:,nlev) / (2.*tautot_ice(:,nlev)) &
+            & * (1.-exp(-2.0*tautot_ice(:,nlev)))
+
+      DO k= nlev-1, 1, -1
+          tautot_lay_ice(:) = tautot_ice(:,k)-tautot_ice(:,k+1) 
+        WHERE (tautot_lay_ice(:).GT.0.)
+         pnorm_ice(:,k)=betatot_ice(:,k)*EXP(-2.0*tautot_ice(:,k+1))/(2.*tautot_lay_ice(:)) &
+               & * (1.-EXP(-2.0*tautot_lay_ice(:)))
+        ELSEWHERE
+         pnorm_ice(:,k)=betatot_ice(:,k)*EXP(-2.0*tautot_ice(:,k+1))
+        END WHERE
+      ENDDO
+
+!     Liquid only
+!     Upper layer
+      pnorm_liq(:,nlev) = betatot_liq(:,nlev) / (2.*tautot_liq(:,nlev)) &
+            & * (1.-exp(-2.0*tautot_liq(:,nlev)))
+
+      DO k= nlev-1, 1, -1
+          tautot_lay_liq(:) = tautot_liq(:,k)-tautot_liq(:,k+1) 
+        WHERE (tautot_lay_liq(:).GT.0.)
+          pnorm_liq(:,k)=betatot_liq(:,k)*EXP(-2.0*tautot_liq(:,k+1))/(2.*tautot_lay_liq(:)) &
+               & * (1.-EXP(-2.0*tautot_lay_liq(:)))
+        ELSEWHERE
+          pnorm_liq(:,k)=betatot_liq(:,k)*EXP(-2.0*tautot_liq(:,k+1))
+        END WHERE
+      ENDDO
+
+
+! Computation of ATBperp,ice/liq from ATBice/liq including the multiple scattering 
+! contribution (Cesana and Chepfer 2013, JGR)
+!  ATBperp,ice = Alpha*ATBice 
+!  ATBperp,liq = Beta*ATBliq^2 + Gamma*ATBliq
+
+      DO k= nlev, 1, -1
+	      pnorm_perp_ice(:,k) = Alpha * pnorm_ice(:,k) ! Ice particles
+	      pnorm_perp_liq(:,k) = 1000*Beta * pnorm_liq(:,k)**2 + Gamma * pnorm_liq(:,k) ! Liquid particles
+      ENDDO
+
+! Computation of beta_perp_ice/liq using the lidar equation
+!     Ice only
+!     Upper layer 
+      beta_perp_ice(:,nlev) = pnorm_perp_ice(:,nlev) * (2.*tautot_ice(:,nlev)) &
+            & / (1.-exp(-2.0*tautot_ice(:,nlev)))
+
+      DO k= nlev-1, 1, -1
+        tautot_lay_ice(:) = tautot_ice(:,k)-tautot_ice(:,k+1)
+        WHERE (tautot_lay_ice(:).GT.0.)
+         beta_perp_ice(:,k) = pnorm_perp_ice(:,k)/ EXP(-2.0*tautot_ice(:,k+1)) * (2.*tautot_lay_ice(:)) &
+            & / (1.-exp(-2.0*tautot_lay_ice(:)))
+
+        ELSEWHERE
+         beta_perp_ice(:,k)=pnorm_perp_ice(:,k)/EXP(-2.0*tautot_ice(:,k+1))
+        END WHERE
+      ENDDO
+
+!     Liquid only
+!     Upper layer 
+      beta_perp_liq(:,nlev) = pnorm_perp_liq(:,nlev) * (2.*tautot_liq(:,nlev)) &
+            & / (1.-exp(-2.0*tautot_liq(:,nlev)))
+
+      DO k= nlev-1, 1, -1
+          tautot_lay_liq(:) = tautot_liq(:,k)-tautot_liq(:,k+1) 
+        WHERE (tautot_lay_liq(:).GT.0.)
+         beta_perp_liq(:,k) = pnorm_perp_liq(:,k)/ EXP(-2.0*tautot_liq(:,k+1)) * (2.*tautot_lay_liq(:)) &
+            & / (1.-exp(-2.0*tautot_lay_liq(:)))
+
+        ELSEWHERE
+         beta_perp_liq(:,k)=pnorm_perp_liq(:,k)/EXP(-2.0*tautot_liq(:,k+1))
+        END WHERE
+      ENDDO
+
+
+
+!------------------------------------------------------------
+!---- 4.3 Perpendicular Backscatter signal:
+!------------------------------------------------------------
+
+! Computation of the total perpendicular lidar signal (ATBperp for liq+ice)
+!     Upper layer 
+    WHERE(tautot(:,nlev).GT.0)
+          pnorm_perp_tot(:,nlev) = &
+              (beta_perp_ice(:,nlev)+beta_perp_liq(:,nlev)-(beta_mol(:,nlev)/(1+1/0.0284))) / (2.*tautot(:,nlev)) &
+              & * (1.-exp(-2.0*tautot(:,nlev)))
+    ELSEWHERE
+    pnorm_perp_tot(:,nlev) = 0.
+    ENDWHERE
+
+!     Other layers
+      DO k= nlev-1, 1, -1
+          tautot_lay(:) = tautot(:,k)-tautot(:,k+1) ! optical thickness of layer k
+
+          ! The perpendicular component of the molecular backscattered signal (Betaperp) has been 
+          ! taken into account two times (once for liquid and once for ice). 
+          ! We remove one contribution using 
+          ! Betaperp=beta_mol(:,k)/(1+1/0.0284)) [bodhaine et al. 1999] in the following equations:
+            WHERE (pnorm(:,k).eq.0)
+                  pnorm_perp_tot(:,k)=0.
+                  ELSEWHERE
+                    WHERE (tautot_lay(:).GT.0.)
+                      pnorm_perp_tot(:,k) = &
+                          (beta_perp_ice(:,k)+beta_perp_liq(:,k)-(beta_mol(:,k)/(1+1/0.0284))) * &
+                          EXP(-2.0*tautot(:,k+1)) / (2.*tautot_lay(:)) &
+                          & * (1.-EXP(-2.0*tautot_lay(:)))
+                    ELSEWHERE
+          !         This must never happen, but just in case, to avoid div. by 0
+                      pnorm_perp_tot(:,k) = &
+                           (beta_perp_ice(:,k)+beta_perp_liq(:,k)-(beta_mol(:,k)/(1+1/0.0284))) * &
+                          EXP(-2.0*tautot(:,k+1))
+                    END WHERE
+            ENDWHERE
+
+      END DO
+
+!-------- End computation Lidar --------------------------
+
+!---------------------------------------------------------
+!  Parasol/Polder module
+!
+!  Purpose : Compute reflectance for one particular viewing direction
+!  and 5 solar zenith angles (calculation valid only over ocean)
+! ---------------------------------------------------------
+
+! initialization:
+    refl(:,:) = 0.0
+
+! activate parasol calculations:
+    if (ok_parasol) then
+
+!     Optical thickness from TOA to surface
+      tautot_S_liq = 0.
+      tautot_S_ice = 0.
+      tautot_S_liq(:) = tautot_S_liq(:) &
+         + tau_part(:,1,1) + tau_part(:,1,3)
+      tautot_S_ice(:) = tautot_S_ice(:) &
+         + tau_part(:,1,2) + tau_part(:,1,4)
+
+      call parasol(npoints,nrefl,undef  &
+                 ,tautot_S_liq,tautot_S_ice &
+                 ,refl)
+
+    endif ! ok_parasol
+
+  END SUBROUTINE lidar_simulator
+!
+!---------------------------------------------------------------------------------
+!
+  SUBROUTINE parasol(npoints,nrefl,undef  &
+                       ,tautot_S_liq,tautot_S_ice  &
+                       ,refl)
+!---------------------------------------------------------------------------------
+! Purpose: To compute Parasol reflectance signal from model-simulated profiles 
+!          of cloud water and cloud fraction in each sub-column of each model 
+!          gridbox.
+!
+!
+! December 2008, S. Bony,  H. Chepfer and J-L. Dufresne : 
+! - optimization for vectorization
+!
+! Version 2.0 (October 2008)
+! Version 2.1 (December 2008)
+!---------------------------------------------------------------------------------
+
+    IMPLICIT NONE
+
+! inputs
+    INTEGER npoints              ! Number of horizontal gridpoints
+    INTEGER nrefl                ! Number of angles for which the reflectance 
+                                 ! is computed. Can not be greater then ntetas
+    REAL undef                   ! Undefined value. Currently not used
+    REAL tautot_S_liq(npoints)   ! liquid water cloud optical thickness, 
+                                   ! integrated from TOA to surface
+    REAL tautot_S_ice(npoints)   ! same for ice water clouds only
+! outputs
+    REAL refl(npoints,nrefl)     ! Parasol reflectances
+!
+! Local variables
+    REAL tautot_S(npoints)       ! cloud optical thickness, from TOA to surface
+    REAL frac_taucol_liq(npoints), frac_taucol_ice(npoints)
+
+    REAL pi
+!   look up table variables:
+    INTEGER ny, it
+    INTEGER ntetas, nbtau        ! number of angle and of optical thickness
+                                   ! of the look-up table
+    PARAMETER (ntetas=5, nbtau=7)
+    REAL aa(ntetas,nbtau-1), ab(ntetas,nbtau-1)
+    REAL ba(ntetas,nbtau-1), bb(ntetas,nbtau-1)  
+    REAL tetas(ntetas),tau(nbtau)                        
+    REAL r_norm(ntetas)
+    REAL rlumA(ntetas,nbtau), rlumB(ntetas,nbtau)       
+    REAL rlumA_mod(npoints,5), rlumB_mod(npoints,5) 
+
+    DATA tau   /0., 1., 5., 10., 20., 50., 100./
+    DATA tetas /0., 20., 40., 60., 80./
+    
+! Look-up table for spherical liquid particles:
+    DATA (rlumA(1,ny),ny=1,nbtau) /0.03, 0.090886, 0.283965, &
+     0.480587, 0.695235, 0.908229, 1.0 /
+    DATA (rlumA(2,ny),ny=1,nbtau) /0.03, 0.072185, 0.252596, &
+      0.436401,  0.631352, 0.823924, 0.909013 /
+    DATA (rlumA(3,ny),ny=1,nbtau) /0.03, 0.058410, 0.224707, &
+      0.367451,  0.509180, 0.648152, 0.709554 /
+    DATA (rlumA(4,ny),ny=1,nbtau) /0.03, 0.052498, 0.175844, &
+      0.252916,  0.326551, 0.398581, 0.430405 /
+    DATA (rlumA(5,ny),ny=1,nbtau) /0.03, 0.034730, 0.064488, &
+      0.081667,  0.098215, 0.114411, 0.121567 /
+
+! Look-up table for ice particles:
+    DATA (rlumB(1,ny),ny=1,nbtau) /0.03, 0.092170, 0.311941, &
+       0.511298, 0.712079 , 0.898243 , 0.976646 /
+    DATA (rlumB(2,ny),ny=1,nbtau) /0.03, 0.087082, 0.304293, &
+       0.490879,  0.673565, 0.842026, 0.912966 /
+    DATA (rlumB(3,ny),ny=1,nbtau) /0.03, 0.083325, 0.285193, &
+      0.430266,  0.563747, 0.685773,  0.737154 /
+    DATA (rlumB(4,ny),ny=1,nbtau) /0.03, 0.084935, 0.233450, &
+      0.312280, 0.382376, 0.446371, 0.473317 /
+    DATA (rlumB(5,ny),ny=1,nbtau) /0.03, 0.054157, 0.089911, &
+      0.107854, 0.124127, 0.139004, 0.145269 /
+
+!--------------------------------------------------------------------------------
+! Lum_norm=f(tetaS,tau_cloud) derived from adding-doubling calculations
+!        valid ONLY ABOVE OCEAN (albedo_sfce=5%)
+!        valid only in one viewing direction (theta_v=30�, phi_s-phi_v=320�)
+!        based on adding-doubling radiative transfer computation
+!        for tau values (0 to 100) and for tetas values (0 to 80)
+!        for 2 scattering phase functions: liquid spherical, ice non spherical
+
+    IF ( nrefl.GT. ntetas ) THEN
+        PRINT *,'Error in lidar_simulator, nrefl should be less then ',ntetas,' not',nrefl
+        STOP
+    ENDIF
+
+    rlumA_mod=0
+    rlumB_mod=0
+!
+    pi = ACOS(-1.0)
+    r_norm(:)=1./ COS(pi/180.*tetas(:))
+!
+    tautot_S_liq(:)=MAX(tautot_S_liq(:),tau(1))
+    tautot_S_ice(:)=MAX(tautot_S_ice(:),tau(1))
+    tautot_S(:) = tautot_S_ice(:) + tautot_S_liq(:)
+!
+! relative fraction of the opt. thick due to liquid or ice clouds
+    WHERE (tautot_S(:) .GT. 0.)
+        frac_taucol_liq(:) = tautot_S_liq(:) / tautot_S(:)
+        frac_taucol_ice(:) = tautot_S_ice(:) / tautot_S(:)
+    ELSEWHERE
+        frac_taucol_liq(:) = 1.
+        frac_taucol_ice(:) = 0.
+    END WHERE
+    tautot_S(:)=MIN(tautot_S(:),tau(nbtau))
+!
+! Linear interpolation :
+
+    DO ny=1,nbtau-1
+! microphysics A (liquid clouds) 
+      aA(:,ny) = (rlumA(:,ny+1)-rlumA(:,ny))/(tau(ny+1)-tau(ny))
+      bA(:,ny) = rlumA(:,ny) - aA(:,ny)*tau(ny)
+! microphysics B (ice clouds)
+      aB(:,ny) = (rlumB(:,ny+1)-rlumB(:,ny))/(tau(ny+1)-tau(ny))
+      bB(:,ny) = rlumB(:,ny) - aB(:,ny)*tau(ny)
+    ENDDO
+!
+    DO it=1,ntetas
+      DO ny=1,nbtau-1
+        WHERE (tautot_S(:).GE.tau(ny).AND.tautot_S(:).LE.tau(ny+1))
+            rlumA_mod(:,it) = aA(it,ny)*tautot_S(:) + bA(it,ny)
+            rlumB_mod(:,it) = aB(it,ny)*tautot_S(:) + bB(it,ny)
+        END WHERE
+      END DO
+    END DO
+!
+    DO it=1,ntetas
+      refl(:,it) = frac_taucol_liq(:) * rlumA_mod(:,it) &
+         + frac_taucol_ice(:) * rlumB_mod(:,it)
+! normalized radiance -> reflectance: 
+      refl(:,it) = refl(:,it) * r_norm(it)
+    ENDDO
+
+    RETURN
+  END SUBROUTINE parasol
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/llnl_stats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/llnl_stats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/llnl_stats.F90	(revision 3330)
@@ -0,0 +1,138 @@
+! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation.
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/llnl/llnl_stats.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list 
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Lawrence Livermore National Security Limited Liability Corporation 
+!       nor the names of its contributors may be used to endorse or promote products derived from 
+!       this software without specific prior written permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+!
+! History
+!
+! Jan 2013 - G. Cesana        - Added betaperp_tot and temp_tot arguments 
+!
+
+
+MODULE MOD_LLNL_STATS
+  USE MOD_COSP_CONSTANTS
+  IMPLICIT NONE
+
+CONTAINS
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!-------------------- FUNCTION COSP_CFAD ------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+FUNCTION COSP_CFAD(Npoints,Ncolumns,Nlevels,Nbins,x,xmin,xmax,bmin,bwidth)
+   ! Input arguments
+   integer,intent(in) :: Npoints,Ncolumns,Nlevels,Nbins
+   real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: x
+   real,intent(in) :: xmin,xmax 
+   real,intent(in) :: bmin,bwidth
+   
+   real,dimension(Npoints,Nbins,Nlevels) :: cosp_cfad
+   ! Local variables
+   integer :: i, j, k
+   integer :: ibin
+   
+   !--- Input arguments
+   ! Npoints: Number of horizontal points
+   ! Ncolumns: Number of subcolumns
+   ! Nlevels: Number of levels
+   ! Nbins: Number of x axis bins
+   ! x: variable to process (Npoints,Ncolumns,Nlevels)
+   ! xmin: minimum value allowed for x
+   ! xmax: minimum value allowed for x
+   ! bmin: mimumum value of first bin
+   ! bwidth: bin width
+   !
+   ! Output: 2D histogram on each horizontal point (Npoints,Nbins,Nlevels)
+   
+   cosp_cfad = 0.0
+   ! bwidth intervals in the range [bmin,bmax=bmin+Nbins*hwidth]
+   ! Valid x values smaller than bmin and larger than bmax are set 
+   ! into the smallest bin and largest bin, respectively.
+   do j = 1, Nlevels, 1
+      do k = 1, Ncolumns, 1
+         do i = 1, Npoints, 1
+            if (x(i,k,j) == R_GROUND) then
+               cosp_cfad(i,:,j) = R_UNDEF
+            elseif ((x(i,k,j) >= xmin) .and. (x(i,k,j) <= xmax)) then 
+               ibin = ceiling((x(i,k,j) - bmin)/bwidth)
+               if (ibin > Nbins) ibin = Nbins
+               if (ibin < 1)     ibin = 1
+               cosp_cfad(i,ibin,j) = cosp_cfad(i,ibin,j) + 1.0 
+            end if
+         enddo  !i
+      enddo  !k
+   enddo  !j
+   where ((cosp_cfad /= R_UNDEF).and.(cosp_cfad /= 0.0)) cosp_cfad = cosp_cfad / Ncolumns
+END FUNCTION COSP_CFAD
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!------------- SUBROUTINE COSP_LIDAR_ONLY_CLOUD -----------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+SUBROUTINE COSP_LIDAR_ONLY_CLOUD(Npoints,Ncolumns,Nlevels,temp_tot,beta_tot, &
+                   betaperp_tot,beta_mol,Ze_tot,lidar_only_freq_cloud,tcc)
+   ! Input arguments
+   integer,intent(in) :: Npoints,Ncolumns,Nlevels
+   real,dimension(Npoints,Nlevels),intent(in) :: beta_mol   ! Molecular backscatter
+   real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: beta_tot   ! Total backscattered signal
+   real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: temp_tot   ! Total backscattered signal
+   real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: betaperp_tot   ! perpendicular Total backscattered signal
+   real,dimension(Npoints,Ncolumns,Nlevels),intent(in) :: Ze_tot     ! Radar reflectivity
+   ! Output arguments
+   real,dimension(Npoints,Nlevels),intent(out) :: lidar_only_freq_cloud
+   real,dimension(Npoints),intent(out) :: tcc
+
+   ! local variables
+   real :: sc_ratio
+   real :: s_cld, s_att
+   parameter (S_cld = 5.0)
+   parameter (s_att = 0.01)
+   integer :: flag_sat !first saturated level encountered from top
+   integer :: flag_cld !cloudy column
+   integer :: pr,i,j
+
+   lidar_only_freq_cloud = 0.0
+   tcc = 0.0
+   do pr=1,Npoints
+     do i=1,Ncolumns
+       flag_sat = 0
+       flag_cld = 0
+       do j=Nlevels,1,-1 !top->surf
+        sc_ratio = beta_tot(pr,i,j)/beta_mol(pr,j)
+        if ((sc_ratio .le. s_att) .and. (flag_sat .eq. 0)) flag_sat = j
+        if (Ze_tot(pr,i,j) .lt. -30.) then  !radar can't detect cloud
+         if ( (sc_ratio .gt. s_cld) .or. (flag_sat .eq. j) ) then  !lidar sense cloud
+            lidar_only_freq_cloud(pr,j)=lidar_only_freq_cloud(pr,j)+1. !top->surf
+            flag_cld=1
+         endif
+        else  !radar sense cloud (z%Ze_tot(pr,i,j) .ge. -30.)
+           flag_cld=1
+        endif
+       enddo !levels
+       if (flag_cld .eq. 1) tcc(pr)=tcc(pr)+1.
+     enddo !columns
+   enddo !points
+   lidar_only_freq_cloud=lidar_only_freq_cloud/Ncolumns
+   tcc=tcc/Ncolumns
+
+END SUBROUTINE COSP_LIDAR_ONLY_CLOUD
+END MODULE MOD_LLNL_STATS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/lmd_ipsl_stats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/lmd_ipsl_stats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/lmd_ipsl_stats.F90	(revision 3330)
@@ -0,0 +1,986 @@
+! Copyright (c) 2009, Centre National de la Recherche Scientifique
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/actsim/lmd_ipsl_stats.F90 $
+!
+! Redistribution and use in source and binary forms, with or without modification, are permitted
+! provided that the following conditions are met:
+!
+!     * Redistributions of source code must retain the above copyright notice, this list
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials
+!       provided with the distribution.
+!     * Neither the name of the LMD/IPSL/CNRS/UPMC nor the names of its
+!       contributors may be used to endorse or promote products derived from this software without
+!       specific prior written permission.
+!
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+
+!------------------------------------------------------------------------------------
+! Authors: Sandrine Bony and Helene Chepfer (LMD/IPSL, CNRS, UPMC, France).
+!------------------------------------------------------------------------------------
+MODULE MOD_LMD_IPSL_STATS
+  USE MOD_LLNL_STATS
+  IMPLICIT NONE
+
+CONTAINS
+      SUBROUTINE diag_lidar(npoints,ncol,llm,max_bin,nrefl &
+                  ,tmp,pnorm,pnorm_perp,pmol,refl,land,pplay,undef,ok_lidar_cfad &
+                  ,cfad2,srbval,ncat,lidarcld,lidarcldphase,cldlayer,cldlayerphase &
+                  ,lidarcldtmp,parasolrefl)
+!
+! -----------------------------------------------------------------------------------
+! Lidar outputs :
+!
+! Diagnose cloud fraction (3D cloud fraction + low/middle/high/total cloud fraction)
+! and phase cloud fraction (3D, low/mid/high/total and 3D temperature)
+! from the lidar signals (ATB, ATBperp and molecular ATB) computed from model outputs
+!      +
+! Compute CFADs of lidar scattering ratio SR and of depolarization index
+!
+! Authors: Sandrine Bony and Helene Chepfer (LMD/IPSL, CNRS, UPMC, France).
+!
+! December 2008, S. Bony,  H. Chepfer and J-L. Dufresne :
+! - change of the cloud detection threshold S_cld from 3 to 5, for better
+! with both day and night observations. The optical thinest clouds are missed.
+! - remove of the detection of the first fully attenuated layer encountered from above.
+! December 2008, A. Bodas-Salcedo:
+! - Dimensions of pmol reduced to (npoints,llm)
+! August 2009, A. Bodas-Salcedo:
+! - Warning message regarding PARASOL being valid only over ocean deleted.
+! February 2010, A. Bodas-Salcedo:
+! - Undef passed into cosp_cfad_sr
+! June 2010, T. Yokohata, T. Nishimura and K. Ogochi
+! Optimisation of COSP_CFAD_SR
+!
+! January 2013, G. Cesana, H. Chepfer:
+! - Add the perpendicular component of the backscattered signal (pnorm_perp) in the arguments
+! - Add the temperature (tmp) in the arguments
+! - Add the 3D Phase cloud fraction (lidarcldphase) in the arguments
+! - Add the Phase low mid high cloud fraction (cldlayerphase) in the arguments
+! - Add the 3D Phase cloud fraction as a function of temperature (lidarcldtmp) in the arguments
+! - Modification of the phase diagnosis within the COSP_CLDFRAC routine to integrate the phase
+!   diagnosis (3D, low/mid/high, 3D temperature)
+! Reference: Cesana G. and H. Chepfer (2013): Evaluation of the cloud water phase
+! in a climate model using CALIPSO-GOCCP, J. Geophys. Res., doi: 10.1002/jgrd.50376
+!
+! ------------------------------------------------------------------------------------
+
+! c inputs :
+      integer npoints
+      integer ncol
+      integer llm
+      integer max_bin               ! nb of bins for SR CFADs
+      integer ncat                  ! nb of cloud layer types (low,mid,high,total)
+      integer nrefl                 ! nb of solar zenith angles for parasol reflectances
+
+      real undef                    ! undefined value
+      real pnorm(npoints,ncol,llm)  ! lidar ATB
+      real pmol(npoints,llm)        ! molecular ATB
+      real land(npoints)            ! Landmask [0 - Ocean, 1 - Land]
+      real pplay(npoints,llm)       ! pressure on model levels (Pa)
+      logical ok_lidar_cfad         ! true if lidar CFAD diagnostics need to be computed
+      real refl(npoints,ncol,nrefl) ! subgrid parasol reflectance ! parasol
+      real tmp(npoints,llm)         ! temp at each levels
+      real pnorm_perp(npoints,ncol,llm)  ! lidar perpendicular ATB
+
+! c outputs :
+      real lidarcld(npoints,llm)     ! 3D "lidar" cloud fraction
+      real sub(npoints,llm)     ! 3D "lidar" indice
+      real cldlayer(npoints,ncat)    ! "lidar" cloud layer fraction (low, mid, high, total)
+
+      real cfad2(npoints,max_bin,llm) ! CFADs of SR
+      real srbval(max_bin)           ! SR bins in CFADs
+      real parasolrefl(npoints,nrefl)! grid-averaged parasol reflectance
+
+! c threshold for cloud detection :
+      real S_clr
+      parameter (S_clr = 1.2)
+      real S_cld
+      parameter (S_cld = 5.)  ! Thresold for cloud detection
+      real S_att
+      parameter (S_att = 0.01)
+
+! c local variables :
+      integer ic,k,i,j
+      real x3d(npoints,ncol,llm)
+      real x3d_c(npoints,llm),pnorm_c(npoints,llm)
+      real xmax
+
+! Output variables
+      integer,parameter :: nphase = 6 ! nb of cloud layer phase types (ice,liquid,undefined,false ice,false liquid,Percent of ice)
+      real lidarcldphase(npoints,llm,nphase)   ! 3D "lidar" phase cloud fraction
+      real lidarcldtmp(npoints,40,5)          ! 3D "lidar" phase cloud fraction as a function of temp
+      real cldlayerphase(npoints,ncat,nphase)  ! "lidar" phase low mid high cloud fraction 
+
+! SR detection threshold
+      real, parameter  ::  S_cld_att = 30. ! New threshold for undefine cloud phase detection	
+
+
+!
+! c -------------------------------------------------------
+! c 0- Initializations
+! c -------------------------------------------------------
+!
+!  Should be modified in future version
+      xmax=undef-1.0
+
+! c -------------------------------------------------------
+! c 1- Lidar scattering ratio :
+! c -------------------------------------------------------
+
+      do ic = 1, ncol
+        pnorm_c = pnorm(:,ic,:)
+        where ((pnorm_c.lt.xmax) .and. (pmol.lt.xmax) .and. (pmol.gt. 0.0 ))
+            x3d_c = pnorm_c/pmol
+        elsewhere
+            x3d_c = undef
+        end where
+         x3d(:,ic,:) = x3d_c
+      enddo
+
+! c -------------------------------------------------------
+! c 2- Diagnose cloud fractions (3D, low, middle, high, total)
+! c from subgrid-scale lidar scattering ratios :
+! c -------------------------------------------------------
+
+    CALL COSP_CLDFRAC(npoints,ncol,llm,ncat,nphase,  &
+              tmp,x3d,pnorm,pnorm_perp,pplay, S_att,S_cld,S_cld_att,undef,lidarcld, &
+              cldlayer,lidarcldphase,sub,cldlayerphase,lidarcldtmp)
+
+! c -------------------------------------------------------
+! c 3- CFADs
+! c -------------------------------------------------------
+      if (ok_lidar_cfad) then
+!
+! c CFADs of subgrid-scale lidar scattering ratios :
+! c -------------------------------------------------------
+      CALL COSP_CFAD_SR(npoints,ncol,llm,max_bin,undef, &
+                 x3d, &
+                 S_att,S_clr,xmax,cfad2,srbval)
+
+      endif   ! ok_lidar_cfad
+! c -------------------------------------------------------
+
+! c -------------------------------------------------------
+! c 4- Compute grid-box averaged Parasol reflectances
+! c -------------------------------------------------------
+
+      parasolrefl(:,:) = 0.0
+
+      do k = 1, nrefl
+       do ic = 1, ncol
+         parasolrefl(:,k) = parasolrefl(:,k) + refl(:,ic,k)
+       enddo
+      enddo
+
+      do k = 1, nrefl
+        parasolrefl(:,k) = parasolrefl(:,k) / float(ncol)
+! if land=1 -> parasolrefl=undef
+! if land=0 -> parasolrefl=parasolrefl
+        parasolrefl(:,k) = parasolrefl(:,k) * MAX(1.0-land(:),0.0) &
+                           + (1.0 - MAX(1.0-land(:),0.0))*undef
+      enddo
+
+      RETURN
+      END SUBROUTINE diag_lidar
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!-------------------- FUNCTION COSP_CFAD_SR ------------------------
+! Author: Sandrine Bony (LMD/IPSL, CNRS, Paris)
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+      SUBROUTINE COSP_CFAD_SR(Npoints,Ncolumns,Nlevels,Nbins,undef, &
+                      x,S_att,S_clr,xmax,cfad,srbval)
+      IMPLICIT NONE
+
+!--- Input arguments
+! Npoints: Number of horizontal points
+! Ncolumns: Number of subcolumns
+! Nlevels: Number of levels
+! Nbins: Number of x axis bins
+! xmax: maximum value allowed for x
+! S_att: Threshold for full attenuation
+! S_clr: Threshold for clear-sky layer
+!
+!--- Input-Outout arguments
+! x: variable to process (Npoints,Ncolumns,Nlevels), mofified where saturation occurs
+!
+! -- Output arguments
+! srbval : values of the histogram bins
+! cfad: 2D histogram on each horizontal point
+
+! Input arguments
+      integer Npoints,Ncolumns,Nlevels,Nbins
+      real xmax,S_att,S_clr,undef
+! Input-output arguments
+      real x(Npoints,Ncolumns,Nlevels)
+! Output :
+      real cfad(Npoints,Nbins,Nlevels)
+      real srbval(Nbins)
+! Local variables
+      integer i, j, k, ib
+      real srbval_ext(0:Nbins)
+
+! c -------------------------------------------------------
+! c 0- Initializations
+! c -------------------------------------------------------
+      if ( Nbins .lt. 6) return
+
+      srbval(1) =  S_att
+      srbval(2) =  S_clr
+      srbval(3) =  3.0
+      srbval(4) =  5.0
+      srbval(5) =  7.0
+      srbval(6) = 10.0
+      do i = 7, MIN(10,Nbins)
+       srbval(i) = srbval(i-1) + 5.0
+      enddo
+      DO i = 11, MIN(13,Nbins)
+       srbval(i) = srbval(i-1) + 10.0
+      enddo
+      srbval(MIN(14,Nbins)) = 80.0
+      srbval(Nbins) = xmax
+      cfad(:,:,:) = 0.0
+
+      srbval_ext(1:Nbins) = srbval
+      srbval_ext(0) = -1.0
+! c -------------------------------------------------------
+! c c- Compute CFAD
+! c -------------------------------------------------------
+      do j = 1, Nlevels
+         do ib = 1, Nbins
+            do k = 1, Ncolumns
+               do i = 1, Npoints
+                  if (x(i,k,j) /= undef) then
+                     if ((x(i,k,j).gt.srbval_ext(ib-1)).and.(x(i,k,j).le.srbval_ext(ib))) &
+                          cfad(i,ib,j) = cfad(i,ib,j) + 1.0
+                  else 
+                     cfad(i,ib,j) = undef
+                  endif
+               enddo
+            enddo
+         enddo
+      enddo
+
+      where (cfad .ne. undef)  cfad = cfad / float(Ncolumns)
+
+! c -------------------------------------------------------
+      RETURN
+      END SUBROUTINE COSP_CFAD_SR
+
+
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!-------------------- SUBROUTINE COSP_CLDFRAC -------------------
+! c Purpose: Cloud fraction diagnosed from lidar measurements
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+      SUBROUTINE COSP_CLDFRAC(Npoints,Ncolumns,Nlevels,Ncat,Nphase, &
+                  tmp,x,ATB,ATBperp,pplay,S_att,S_cld,S_cld_att,undef,lidarcld, &
+                  cldlayer,lidarcldphase,nsub,cldlayerphase,lidarcldtemp)
+
+
+      IMPLICIT NONE
+! Input arguments
+      integer Npoints,Ncolumns,Nlevels,Ncat
+      real x(Npoints,Ncolumns,Nlevels)
+
+
+! Local parameters
+      integer nphase ! nb of cloud layer phase types 
+                                      ! (ice,liquid,undefined,false ice,false liquid,Percent of ice)
+      integer,parameter  ::  Ntemp=40 ! indice of the temperature vector
+      integer ip, k, iz, ic, ncol, nlev, i, itemp  ! loop indice
+      real  S_cld_att ! New threshold for undefine cloud phase detection (SR=30)	
+      integer toplvlsat  ! level of the first cloud with SR>30
+      real alpha50, beta50, gamma50, delta50, epsilon50, zeta50 ! Polynomial Coef of the phase
+                                                                ! discrimination line   
+
+! Input variables
+      real tmp(Npoints,Nlevels)			! temperature
+      real ATB(Npoints,Ncolumns,Nlevels) ! 3D Attenuated backscatter
+      real ATBperp(Npoints,Ncolumns,Nlevels) ! 3D perpendicular attenuated backscatter
+      real pplay(Npoints,Nlevels)
+      real S_att,S_cld
+      real undef
+
+! Output variables
+      real lidarcldtemp(Npoints,Ntemp,5) ! 3D Temperature 1=tot,2=ice,3=liq,4=undef,5=ice/ice+liq
+      real tempmod(Ntemp+1)     ! temperature bins
+      real lidarcldphase(Npoints,Nlevels,Nphase)    ! 3D cloud phase fraction
+      real cldlayerphase(Npoints,Ncat,Nphase) ! low, middle, high, total cloud fractions for ice liquid and undefine phase
+      real lidarcld(Npoints,Nlevels) ! 3D cloud fraction
+      real cldlayer(Npoints,Ncat)    ! low, middle, high, total cloud fractions
+
+! Local variables
+      real tmpi(Npoints,Ncolumns,Nlevels)	! temperature of ice cld
+      real tmpl(Npoints,Ncolumns,Nlevels)	! temperature of liquid cld
+      real tmpu(Npoints,Ncolumns,Nlevels)	! temperature of undef cld
+
+      real checktemp, ATBperp_tmp ! temporary variable
+      real checkcldlayerphase, checkcldlayerphase2 ! temporary variable
+      real sumlidarcldtemp(Npoints,Ntemp) ! temporary variable
+
+      real cldlayphase(Npoints,Ncolumns,Ncat,Nphase) ! subgrided low mid high phase cloud fraction
+      real cldlayerphasetmp(Npoints,Ncat) ! temporary variable
+      real cldlayerphasesum(Npoints,Ncat) ! temporary variable
+      real lidarcldtempind(Npoints,Ntemp) ! 3D Temperature indice
+      real lidarcldphasetmp(Npoints,Nlevels)  ! 3D sum of ice and liquid cloud occurences
+
+
+! Local variables
+      real p1
+      real cldy(Npoints,Ncolumns,Nlevels)
+      real srok(Npoints,Ncolumns,Nlevels)
+      real cldlay(Npoints,Ncolumns,Ncat)
+      real nsublay(Npoints,Ncolumns,Ncat), nsublayer(Npoints,Ncat)
+      real nsub(Npoints,Nlevels)
+
+#ifdef SYS_SX
+      real cldlay1(Npoints,Ncolumns)
+      real cldlay2(Npoints,Ncolumns)
+      real cldlay3(Npoints,Ncolumns)
+      real nsublay1(Npoints,Ncolumns)
+      real nsublay2(Npoints,Ncolumns)
+      real nsublay3(Npoints,Ncolumns)
+#endif
+
+
+
+
+! ---------------------------------------------------------------
+! 1- initialization
+! ---------------------------------------------------------------
+
+      if ( Ncat .ne. 4 ) then
+         print *,'Error in lmd_ipsl_stats.cosp_cldfrac, Ncat must be 4, not',Ncat
+         stop
+      endif
+
+      lidarcld = 0.0
+      nsub = 0.0
+      cldlay = 0.0
+      nsublay = 0.0
+
+      ATBperp_tmp = 0.
+      lidarcldphase(:,:,:) = 0.
+      cldlayphase(:,:,:,:) = 0.
+      cldlayerphase(:,:,:) = 0.
+      tmpi(:,:,:) = 0.
+      tmpl(:,:,:) = 0.
+      tmpu(:,:,:) = 0.
+      cldlayerphasesum(:,:) = 0.
+      lidarcldtemp(:,:,:) = 0.
+      lidarcldtempind(:,:) = 0.
+      sumlidarcldtemp(:,:) = 0.
+      toplvlsat=0
+      lidarcldphasetmp(:,:) = 0.
+
+! temperature bins
+      tempmod=(/-273.15,-90.,-87.,-84.,-81.,-78.,-75.,-72.,-69.,-66.,-63.,-60.,-57., &
+                -54.,-51.,-48.,-45.,-42.,-39.,-36.,-33.,-30.,-27.,-24.,-21.,-18.,  &
+                -15.,-12.,-9.,-6.,-3.,0.,3.,6.,9.,12.,15.,18.,21.,24.,200. /)
+	
+! convert C to K
+      tempmod=tempmod+273.15
+
+! Polynomial coefficient of the phase discrimination line used to separate liquid from ice
+! (Cesana and Chepfer, JGR, 2013)
+! ATBperp = ATB^5*alpha50 + ATB^4*beta50 + ATB^3*gamma50 + ATB^2*delta50 + ATB*epsilon50 + zeta50
+      alpha50   = 9.0322e+15
+      beta50    = -2.1358e+12
+      gamma50   = 173.3963e06
+      delta50   = -3.9514e03
+      epsilon50 = 0.2559
+      zeta50    = -9.4776e-07
+
+
+! ---------------------------------------------------------------
+! 2- Cloud detection
+! ---------------------------------------------------------------
+
+      do k = 1, Nlevels
+
+! cloud detection at subgrid-scale:
+         where ( (x(:,:,k).gt.S_cld) .and. (x(:,:,k).ne. undef) )
+           cldy(:,:,k)=1.0
+         elsewhere
+           cldy(:,:,k)=0.0
+         endwhere
+
+! number of usefull sub-columns:
+         where ( (x(:,:,k).gt.S_att) .and. (x(:,:,k).ne. undef)  )
+           srok(:,:,k)=1.0
+         elsewhere
+           srok(:,:,k)=0.0
+         endwhere
+
+      enddo ! k
+
+
+! ---------------------------------------------------------------
+! 3- grid-box 3D cloud fraction and layered cloud fractions (ISCCP pressure
+! categories) :
+! ---------------------------------------------------------------
+      lidarcld = 0.0
+      nsub = 0.0
+#ifdef SYS_SX
+!! XXX: Use cldlay[1-3] and nsublay[1-3] to avoid bank-conflicts.
+      cldlay1 = 0.0
+      cldlay2 = 0.0
+      cldlay3 = 0.0
+      cldlay(:,:,4) = 0.0 !! XXX: Ncat == 4
+      nsublay1 = 0.0
+      nsublay2 = 0.0
+      nsublay3 = 0.0
+      nsublay(:,:,4) = 0.0
+
+      do k = Nlevels, 1, -1
+       do ic = 1, Ncolumns
+        do ip = 1, Npoints
+
+         if(srok(ip,ic,k).gt.0.)then
+           ! Computation of the cloud fraction as a function of the temperature
+           ! instead of height, for ice,liquid and all clouds
+           do itemp=1,Ntemp
+             if( (tmp(ip,k).ge.tempmod(itemp)).and.(tmp(ip,k).lt.tempmod(itemp+1)) )then
+               lidarcldtempind(ip,itemp)=lidarcldtempind(ip,itemp)+1.
+             endif
+           enddo
+         endif
+
+         if (cldy(ip,ic,k).eq.1.) then
+           do itemp=1,Ntemp
+             if( (tmp(ip,k).ge.tempmod(itemp)).and.(tmp(ip,k).lt.tempmod(itemp+1)) )then
+               lidarcldtemp(ip,itemp,1)=lidarcldtemp(ip,itemp,1)+1.
+             endif
+           enddo
+         endif
+
+         p1 = pplay(ip,k)
+
+         if ( p1.gt.0. .and. p1.lt.(440.*100.)) then ! high clouds
+            cldlay3(ip,ic) = MAX(cldlay3(ip,ic), cldy(ip,ic,k))
+            nsublay3(ip,ic) = MAX(nsublay3(ip,ic), srok(ip,ic,k))
+         else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then  ! mid clouds
+            cldlay2(ip,ic) = MAX(cldlay2(ip,ic), cldy(ip,ic,k))
+            nsublay2(ip,ic) = MAX(nsublay2(ip,ic), srok(ip,ic,k))
+         else
+            cldlay1(ip,ic) = MAX(cldlay1(ip,ic), cldy(ip,ic,k))
+            nsublay1(ip,ic) = MAX(nsublay1(ip,ic), srok(ip,ic,k))
+         endif
+
+         cldlay(ip,ic,4) = MAX(cldlay(ip,ic,4), cldy(ip,ic,k))
+         lidarcld(ip,k)=lidarcld(ip,k) + cldy(ip,ic,k)
+         nsublay(ip,ic,4) = MAX(nsublay(ip,ic,4),srok(ip,ic,k))
+         nsub(ip,k)=nsub(ip,k) + srok(ip,ic,k)
+        enddo
+       enddo
+      enddo
+      cldlay(:,:,1) = cldlay1
+      cldlay(:,:,2) = cldlay2
+      cldlay(:,:,3) = cldlay3
+      nsublay(:,:,1) = nsublay1
+      nsublay(:,:,2) = nsublay2
+      nsublay(:,:,3) = nsublay3
+#else
+      cldlay = 0.0
+      nsublay = 0.0
+      do k = Nlevels, 1, -1
+       do ic = 1, Ncolumns
+        do ip = 1, Npoints
+
+          ! Computation of the cloud fraction as a function of the temperature
+          ! instead of height, for ice,liquid and all clouds
+          if(srok(ip,ic,k).gt.0.)then
+          do itemp=1,Ntemp
+            if( (tmp(ip,k).ge.tempmod(itemp)).and.(tmp(ip,k).lt.tempmod(itemp+1)) )then
+              lidarcldtempind(ip,itemp)=lidarcldtempind(ip,itemp)+1.
+            endif
+          enddo
+          endif
+
+          if(cldy(ip,ic,k).eq.1.)then
+          do itemp=1,Ntemp
+            if( (tmp(ip,k).ge.tempmod(itemp)).and.(tmp(ip,k).lt.tempmod(itemp+1)) )then
+              lidarcldtemp(ip,itemp,1)=lidarcldtemp(ip,itemp,1)+1.
+            endif
+          enddo
+          endif
+!
+
+          iz=1
+          p1 = pplay(ip,k)
+          if ( p1.gt.0. .and. p1.lt.(440.*100.)) then ! high clouds
+            iz=3
+          else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then  ! mid clouds
+            iz=2
+         endif
+
+         cldlay(ip,ic,iz) = MAX(cldlay(ip,ic,iz),cldy(ip,ic,k))
+         cldlay(ip,ic,4) = MAX(cldlay(ip,ic,4),cldy(ip,ic,k))
+         lidarcld(ip,k)=lidarcld(ip,k) + cldy(ip,ic,k)
+
+         nsublay(ip,ic,iz) = MAX(nsublay(ip,ic,iz),srok(ip,ic,k))
+         nsublay(ip,ic,4) = MAX(nsublay(ip,ic,4),srok(ip,ic,k))
+         nsub(ip,k)=nsub(ip,k) + srok(ip,ic,k)
+
+        enddo
+       enddo
+      enddo
+#endif
+
+
+! -- grid-box 3D cloud fraction
+
+      where ( nsub(:,:).gt.0.0 )
+         lidarcld(:,:) = lidarcld(:,:)/nsub(:,:)
+      elsewhere
+         lidarcld(:,:) = undef
+      endwhere
+
+! -- layered cloud fractions
+
+      cldlayer = 0.0
+      nsublayer = 0.0
+
+      do iz = 1, Ncat
+       do ic = 1, Ncolumns
+
+          cldlayer(:,iz)=cldlayer(:,iz) + cldlay(:,ic,iz)
+          nsublayer(:,iz)=nsublayer(:,iz) + nsublay(:,ic,iz)
+
+       enddo
+      enddo
+      where ( nsublayer(:,:).gt.0.0 )
+         cldlayer(:,:) = cldlayer(:,:)/nsublayer(:,:)
+      elsewhere
+         cldlayer(:,:) = undef
+      endwhere
+
+! ---------------------------------------------------------------
+! 4- grid-box 3D cloud Phase :
+! ---------------------------------------------------------------
+! ---------------------------------------------------------------
+! 4.1 - For Cloudy pixels with 8.16km < z < 19.2km
+! ---------------------------------------------------------------
+do ncol=1,Ncolumns
+do i=1,Npoints
+
+      do nlev=Nlevels,18,-1  ! from 19.2km until 8.16km
+         p1 = pplay(i,nlev)
+
+
+! Avoid zero values
+	if( (cldy(i,ncol,nlev).eq.1.) .and. (ATBperp(i,ncol,nlev).gt.0.) )then
+! Computation of the ATBperp along the phase discrimination line
+           ATBperp_tmp = (ATB(i,ncol,nlev)**5)*alpha50 + (ATB(i,ncol,nlev)**4)*beta50 + &
+                         (ATB(i,ncol,nlev)**3)*gamma50 + (ATB(i,ncol,nlev)**2)*delta50 + &
+                          ATB(i,ncol,nlev)*epsilon50 + zeta50
+
+!____________________________________________________________________________________________________
+!
+!4.1.a Ice: ATBperp above the phase discrimination line
+!____________________________________________________________________________________________________
+!
+           if( (ATBperp(i,ncol,nlev)-ATBperp_tmp).ge.0. )then   ! Ice clouds
+             ! ICE with temperature above 273,15°K = Liquid (false ice)
+            if(tmp(i,nlev).gt.273.15)then                ! Temperature above 273,15 K
+              ! Liquid: False ice corrected by the temperature to Liquid
+               lidarcldphase(i,nlev,2)=lidarcldphase(i,nlev,2)+1.   ! false ice detection ==> added to Liquid
+               tmpl(i,ncol,nlev)=tmp(i,nlev)
+               lidarcldphase(i,nlev,5)=lidarcldphase(i,nlev,5)+1.   ! keep the information "temperature criterium used"
+                                                    ! to classify the phase cloud
+         	   cldlayphase(i,ncol,4,2) = 1.                         ! tot cloud
+                if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+        	   cldlayphase(i,ncol,3,2) = 1.
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,2) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,2) = 1.
+                endif
+         	   cldlayphase(i,ncol,4,5) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+        	   cldlayphase(i,ncol,3,5) = 1.
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,5) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,5) = 1.
+                endif
+
+             else
+             ! ICE with temperature below 273,15°K
+              lidarcldphase(i,nlev,1)=lidarcldphase(i,nlev,1)+1.
+              tmpi(i,ncol,nlev)=tmp(i,nlev)
+         	   cldlayphase(i,ncol,4,1) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+        	   cldlayphase(i,ncol,3,1) = 1.
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,1) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,1) = 1.
+                endif
+
+              endif
+
+!____________________________________________________________________________________________________
+!
+! 4.1.b Liquid: ATBperp below the phase discrimination line
+!____________________________________________________________________________________________________
+!
+             else                                        ! Liquid clouds
+              ! Liquid with temperature above 231,15°K
+            if(tmp(i,nlev).gt.231.15)then 
+               lidarcldphase(i,nlev,2)=lidarcldphase(i,nlev,2)+1.
+               tmpl(i,ncol,nlev)=tmp(i,nlev)
+         	   cldlayphase(i,ncol,4,2) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+         	   cldlayphase(i,ncol,3,2) = 1.  
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,2) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,2) = 1.
+	 	endif
+
+             else
+             ! Liquid with temperature below 231,15°K = Ice (false liquid)
+               tmpi(i,ncol,nlev)=tmp(i,nlev)
+               lidarcldphase(i,nlev,1)=lidarcldphase(i,nlev,1)+1.   ! false liquid detection ==> added to ice
+               lidarcldphase(i,nlev,4)=lidarcldphase(i,nlev,4)+1.   ! keep the information "temperature criterium used"
+                                                    ! to classify the phase cloud
+         	   cldlayphase(i,ncol,4,4) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+         	   cldlayphase(i,ncol,3,4) = 1.  
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,4) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,4) = 1.
+	 	endif
+         	   cldlayphase(i,ncol,4,1) = 1.                         ! tot cloud
+        	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+         	   cldlayphase(i,ncol,3,1) = 1.  
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,1) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,1) = 1.
+	 	endif
+
+             endif
+
+            endif  ! end of discrimination condition 
+	 endif  ! end of cloud condition
+      enddo ! end of altitude loop
+
+
+
+! ---------------------------------------------------------------
+! 4.2 - For Cloudy pixels with 0km < z < 8.16km
+! ---------------------------------------------------------------
+
+      toplvlsat=0
+      do nlev=17,1,-1  ! from 8.16km until 0km
+         p1 = pplay(i,nlev)
+
+	if( (cldy(i,ncol,nlev).eq.1.) .and. (ATBperp(i,ncol,nlev).gt.0.) )then
+! Phase discrimination line : ATBperp = ATB^5*alpha50 + ATB^4*beta50 + ATB^3*gamma50 + ATB^2*delta50 
+!                                  + ATB*epsilon50 + zeta50
+! Computation of the ATBperp of the phase discrimination line
+           ATBperp_tmp = (ATB(i,ncol,nlev)**5)*alpha50 + (ATB(i,ncol,nlev)**4)*beta50 + &
+                         (ATB(i,ncol,nlev)**3)*gamma50 + (ATB(i,ncol,nlev)**2)*delta50 + &
+                          ATB(i,ncol,nlev)*epsilon50 + zeta50
+!____________________________________________________________________________________________________
+!
+! 4.2.a Ice: ATBperp above the phase discrimination line
+!____________________________________________________________________________________________________
+!
+            ! ICE with temperature above 273,15°K = Liquid (false ice)
+          if( (ATBperp(i,ncol,nlev)-ATBperp_tmp).ge.0. )then   ! Ice clouds
+            if(tmp(i,nlev).gt.273.15)then 
+               lidarcldphase(i,nlev,2)=lidarcldphase(i,nlev,2)+1.  ! false ice ==> liq
+               tmpl(i,ncol,nlev)=tmp(i,nlev)
+               lidarcldphase(i,nlev,5)=lidarcldphase(i,nlev,5)+1.
+
+         	   cldlayphase(i,ncol,4,2) = 1.                         ! tot cloud
+               if ( p1.gt.0. .and. p1.lt.(440.*100.)) then              ! high cloud
+        	   cldlayphase(i,ncol,3,2) = 1.
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,2) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,2) = 1.
+                endif
+
+         	   cldlayphase(i,ncol,4,5) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+        	   cldlayphase(i,ncol,3,5) = 1.
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,5) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,5) = 1.
+                endif
+
+             else
+              ! ICE with temperature below 273,15°K
+              lidarcldphase(i,nlev,1)=lidarcldphase(i,nlev,1)+1.
+              tmpi(i,ncol,nlev)=tmp(i,nlev)
+
+          	   cldlayphase(i,ncol,4,1) = 1.                         ! tot cloud
+        	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+        	   cldlayphase(i,ncol,3,1) = 1.
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,1) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,1) = 1.
+                endif
+
+              endif
+
+!____________________________________________________________________________________________________
+!
+! 4.2.b Liquid: ATBperp below the phase discrimination line
+!____________________________________________________________________________________________________
+!
+          else  
+             ! Liquid with temperature above 231,15°K
+            if(tmp(i,nlev).gt.231.15)then 
+               lidarcldphase(i,nlev,2)=lidarcldphase(i,nlev,2)+1.
+               tmpl(i,ncol,nlev)=tmp(i,nlev)
+
+         	   cldlayphase(i,ncol,4,2) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+         	   cldlayphase(i,ncol,3,2) = 1.  
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,2) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,2) = 1.
+	 	endif
+
+             else
+             ! Liquid with temperature below 231,15°K = Ice (false liquid)
+               tmpi(i,ncol,nlev)=tmp(i,nlev)
+               lidarcldphase(i,nlev,1)=lidarcldphase(i,nlev,1)+1.  ! false liq ==> ice
+               lidarcldphase(i,nlev,4)=lidarcldphase(i,nlev,4)+1.  ! false liq ==> ice
+
+         	   cldlayphase(i,ncol,4,4) = 1.                         ! tot cloud
+         	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+         	   cldlayphase(i,ncol,3,4) = 1.  
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,4) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,4) = 1.
+	 	endif
+
+         	   cldlayphase(i,ncol,4,1) = 1.                         ! tot cloud
+        	if ( p1.gt.0. .and. p1.lt.(440.*100.)) then             ! high cloud
+         	   cldlayphase(i,ncol,3,1) = 1.  
+         	else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then ! mid cloud
+         	   cldlayphase(i,ncol,2,1) = 1.
+	 	else                                                    ! low cloud
+         	   cldlayphase(i,ncol,1,1) = 1.
+	 	endif
+
+             endif
+           endif  ! end of discrimination condition 
+
+       	    toplvlsat=0
+
+           ! Find the level of the highest cloud with SR>30
+	    if(x(i,ncol,nlev).gt.S_cld_att)then	 ! SR > 30.
+      		toplvlsat=nlev-1
+       		goto 99 
+    	    endif
+
+	endif  ! end of cloud condition
+       enddo  ! end of altitude loop
+
+99 continue
+
+!____________________________________________________________________________________________________
+!
+! Undefined phase: For a cloud located below another cloud with SR>30 
+! see Cesana and Chepfer 2013 Sect.III.2
+!____________________________________________________________________________________________________
+!
+if(toplvlsat.ne.0)then     	
+      do nlev=toplvlsat,1,-1
+         p1 = pplay(i,nlev)
+	if(cldy(i,ncol,nlev).eq.1.)then
+           lidarcldphase(i,nlev,3)=lidarcldphase(i,nlev,3)+1.
+           tmpu(i,ncol,nlev)=tmp(i,nlev)
+
+         	   cldlayphase(i,ncol,4,3) = 1.                         ! tot cloud
+          if ( p1.gt.0. .and. p1.lt.(440.*100.)) then              ! high cloud
+             cldlayphase(i,ncol,3,3) = 1.
+          else if(p1.ge.(440.*100.) .and. p1.lt.(680.*100.)) then  ! mid cloud
+             cldlayphase(i,ncol,2,3) = 1.
+	  else                                                     ! low cloud
+             cldlayphase(i,ncol,1,3) = 1.
+	  endif
+
+        endif	
+      enddo
+endif
+     
+      toplvlsat=0
+
+enddo
+enddo
+
+
+
+!____________________________________________________________________________________________________
+!
+! Computation of final cloud phase diagnosis
+!____________________________________________________________________________________________________
+!
+
+! Compute the Ice percentage in cloud = ice/(ice+liq) as a function
+! of the occurrences
+lidarcldphasetmp(:,:)=lidarcldphase(:,:,1)+lidarcldphase(:,:,2);
+WHERE (lidarcldphasetmp(:,:).gt. 0.)
+   lidarcldphase(:,:,6)=lidarcldphase(:,:,1)/lidarcldphasetmp(:,:)
+ELSEWHERE
+   lidarcldphase(:,:,6) = undef
+ENDWHERE
+
+! Compute Phase 3D Cloud Fraction
+     WHERE ( nsub(:,:).gt.0.0 )
+       lidarcldphase(:,:,1)=lidarcldphase(:,:,1)/nsub(:,:)
+       lidarcldphase(:,:,2)=lidarcldphase(:,:,2)/nsub(:,:)
+       lidarcldphase(:,:,3)=lidarcldphase(:,:,3)/nsub(:,:)
+       lidarcldphase(:,:,4)=lidarcldphase(:,:,4)/nsub(:,:)
+       lidarcldphase(:,:,5)=lidarcldphase(:,:,5)/nsub(:,:)
+     ELSEWHERE
+       lidarcldphase(:,:,1) = undef
+       lidarcldphase(:,:,2) = undef
+       lidarcldphase(:,:,3) = undef
+       lidarcldphase(:,:,4) = undef
+       lidarcldphase(:,:,5) = undef
+     ENDWHERE
+
+
+! Compute Phase low mid high cloud fractions
+    do iz = 1, Ncat
+       do i=1,Nphase-3
+       do ic = 1, Ncolumns
+          cldlayerphase(:,iz,i)=cldlayerphase(:,iz,i) + cldlayphase(:,ic,iz,i)
+          cldlayerphasesum(:,iz)=cldlayerphasesum(:,iz)+cldlayphase(:,ic,iz,i)
+       enddo
+      enddo
+    enddo
+
+    do iz = 1, Ncat
+       do i=4,5
+       do ic = 1, Ncolumns
+          cldlayerphase(:,iz,i)=cldlayerphase(:,iz,i) + cldlayphase(:,ic,iz,i)          
+       enddo
+       enddo
+    enddo
+    
+! Compute the Ice percentage in cloud = ice/(ice+liq)
+cldlayerphasetmp(:,:)=cldlayerphase(:,:,1)+cldlayerphase(:,:,2)
+    WHERE (cldlayerphasetmp(:,:).gt. 0.)
+       cldlayerphase(:,:,6)=cldlayerphase(:,:,1)/cldlayerphasetmp(:,:)
+    ELSEWHERE
+       cldlayerphase(:,:,6) = undef
+    ENDWHERE
+
+    do i=1,Nphase-1
+      WHERE ( cldlayerphasesum(:,:).gt.0.0 )
+         cldlayerphase(:,:,i) = (cldlayerphase(:,:,i)/cldlayerphasesum(:,:)) * cldlayer(:,:) 
+      ENDWHERE
+    enddo
+
+
+    do i=1,Npoints
+       do iz=1,Ncat
+          checkcldlayerphase=0.
+          checkcldlayerphase2=0.
+
+          if (cldlayerphasesum(i,iz).gt.0.0 )then
+             do ic=1,Nphase-3
+                checkcldlayerphase=checkcldlayerphase+cldlayerphase(i,iz,ic)  
+             enddo
+             checkcldlayerphase2=cldlayer(i,iz)-checkcldlayerphase
+             if( (checkcldlayerphase2.gt.0.01).or.(checkcldlayerphase2.lt.-0.01) ) print *, checkcldlayerphase,cldlayer(i,iz)
+
+          endif
+
+       enddo
+    enddo
+
+    do i=1,Nphase-1
+      WHERE ( nsublayer(:,:).eq.0.0 )
+         cldlayerphase(:,:,i) = undef
+      ENDWHERE
+   enddo
+
+
+
+! Compute Phase 3D as a function of temperature
+do nlev=1,Nlevels
+do ncol=1,Ncolumns     
+do i=1,Npoints
+do itemp=1,Ntemp
+if(tmpi(i,ncol,nlev).gt.0.)then
+      if( (tmpi(i,ncol,nlev).ge.tempmod(itemp)).and.(tmpi(i,ncol,nlev).lt.tempmod(itemp+1)) )then
+        lidarcldtemp(i,itemp,2)=lidarcldtemp(i,itemp,2)+1.
+      endif
+elseif(tmpl(i,ncol,nlev).gt.0.)then
+      if( (tmpl(i,ncol,nlev).ge.tempmod(itemp)).and.(tmpl(i,ncol,nlev).lt.tempmod(itemp+1)) )then
+        lidarcldtemp(i,itemp,3)=lidarcldtemp(i,itemp,3)+1.
+      endif
+elseif(tmpu(i,ncol,nlev).gt.0.)then
+      if( (tmpu(i,ncol,nlev).ge.tempmod(itemp)).and.(tmpu(i,ncol,nlev).lt.tempmod(itemp+1)) )then
+        lidarcldtemp(i,itemp,4)=lidarcldtemp(i,itemp,4)+1.
+      endif
+endif
+enddo
+enddo
+enddo
+enddo
+
+! Check temperature cloud fraction
+do i=1,Npoints
+   do itemp=1,Ntemp
+checktemp=lidarcldtemp(i,itemp,2)+lidarcldtemp(i,itemp,3)+lidarcldtemp(i,itemp,4)
+
+	if(checktemp.NE.lidarcldtemp(i,itemp,1))then
+	  print *, i,itemp
+	  print *, lidarcldtemp(i,itemp,1:4)
+	endif
+
+   enddo
+enddo
+
+! Compute the Ice percentage in cloud = ice/(ice+liq)
+!   sumlidarcldtemp=sum(lidarcldtemp(:,:,2:3),3)
+   sumlidarcldtemp(:,:)=lidarcldtemp(:,:,2)+lidarcldtemp(:,:,3)
+
+WHERE(sumlidarcldtemp(:,:)>0.)
+  lidarcldtemp(:,:,5)=lidarcldtemp(:,:,2)/sumlidarcldtemp(:,:)
+ELSEWHERE
+  lidarcldtemp(:,:,5)=undef
+ENDWHERE
+
+do i=1,4
+  WHERE(lidarcldtempind(:,:).gt.0.)
+     lidarcldtemp(:,:,i) = lidarcldtemp(:,:,i)/lidarcldtempind(:,:)
+  ELSEWHERE
+     lidarcldtemp(:,:,i) = undef
+  ENDWHERE
+enddo
+
+       RETURN
+      END SUBROUTINE COSP_CLDFRAC
+! ---------------------------------------------------------------
+
+
+END MODULE MOD_LMD_IPSL_STATS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/math_lib.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/math_lib.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/math_lib.F90	(revision 3330)
@@ -0,0 +1,397 @@
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/math_lib.f90 $
+! MATH_LIB: Mathematics procedures for F90
+! Compiled/Modified:
+!   07/01/06  John Haynes (haynes@atmos.colostate.edu)
+! 
+! gamma (function)
+! path_integral (function)
+! avint (subroutine)
+  
+  module math_lib
+  implicit none
+
+  contains
+
+! ----------------------------------------------------------------------------
+! function GAMMA
+! ----------------------------------------------------------------------------
+  function gamma(x)
+  implicit none
+!
+! Purpose:
+!   Returns the gamma function
+!
+! Input:
+!   [x]   value to compute gamma function of
+!
+! Returns:
+!   gamma(x)
+!
+! Coded:
+!   02/02/06  John Haynes (haynes@atmos.colostate.edu)
+!   (original code of unknown origin)
+
+! ----- INPUTS -----
+  real*8, intent(in) :: x
+  
+! ----- OUTPUTS -----
+  real*8 :: gamma
+
+! ----- INTERNAL -----  
+  real*8 :: pi,ga,z,r,gr
+  real*8 :: g(26)
+  integer :: k,m1,m
+       
+  pi = acos(-1.)    
+  if (x ==int(x)) then
+    if (x > 0.0) then
+      ga=1.0
+      m1=x-1
+      do k=2,m1
+        ga=ga*k
+      enddo
+    else
+      ga=1.0+300
+    endif
+  else
+    if (abs(x) > 1.0) then
+      z=abs(x)
+      m=int(z)
+      r=1.0
+      do k=1,m
+        r=r*(z-k)
+      enddo
+      z=z-m
+    else
+      z=x
+    endif
+    data g/1.0,0.5772156649015329, &
+           -0.6558780715202538, -0.420026350340952d-1, &
+           0.1665386113822915,-.421977345555443d-1, &
+           -.96219715278770d-2, .72189432466630d-2, &
+           -.11651675918591d-2, -.2152416741149d-3, &
+           .1280502823882d-3, -.201348547807d-4, &
+           -.12504934821d-5, .11330272320d-5, &
+           -.2056338417d-6, .61160950d-8, &
+           .50020075d-8, -.11812746d-8, &
+           .1043427d-9, .77823d-11, &
+          -.36968d-11, .51d-12, &
+          -.206d-13, -.54d-14, .14d-14, .1d-15/
+    gr=g(26)
+    do k=25,1,-1
+      gr=gr*z+g(k)
+    enddo 
+    ga=1.0/(gr*z)
+    if (abs(x) > 1.0) then
+      ga=ga*r
+      if (x < 0.0) ga=-pi/(x*ga*sin(pi*x))
+    endif
+  endif
+  gamma = ga
+  return
+  end function gamma
+  
+! ----------------------------------------------------------------------------
+! function PATH_INTEGRAL 
+! ----------------------------------------------------------------------------
+  function path_integral(f,s,i1,i2)
+  use m_mrgrnk
+  use array_lib
+  implicit none
+!
+! Purpose:
+!   evalues the integral (f ds) between f(index=i1) and f(index=i2)
+!   using the AVINT procedure
+!
+! Inputs:
+!   [f]    functional values
+!   [s]    abscissa values
+!   [i1]   index of lower limit
+!   [i2]   index of upper limit
+!
+! Returns:
+!   result of path integral
+!
+! Notes:
+!   [s] may be in forward or reverse numerical order
+!
+! Requires:
+!   mrgrnk package
+!
+! Created:
+!   02/02/06  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----  
+  real*8, intent(in), dimension(:) :: f,s  
+  integer, intent(in) :: i1, i2
+
+! ---- OUTPUTS -----
+  real*8 :: path_integral  
+  
+! ----- INTERNAL -----    
+  real*8 :: sumo, deltah, val
+  integer*4 :: nelm, j
+  integer*4, dimension(i2-i1+1) :: idx
+  real*8, dimension(i2-i1+1) :: f_rev, s_rev
+
+  nelm = i2-i1+1
+  if (nelm > 3) then
+    call mrgrnk(s(i1:i2),idx)
+    s_rev = s(idx)
+    f_rev = f(idx)
+    call avint(f_rev(i1:i2),s_rev(i1:i2),(i2-i1+1), &
+      s_rev(i1),s_rev(i2), val)
+    path_integral = val
+  else
+     sumo = 0.
+     do j=i1,i2
+       deltah = abs(s(i1+1)-s(i1))
+       sumo = sumo + f(j)*deltah
+    enddo
+    path_integral = sumo
+  endif 
+  ! print *, sumo
+
+  return
+  end function path_integral
+  
+! ----------------------------------------------------------------------------
+! subroutine AVINT
+! ----------------------------------------------------------------------------
+  subroutine avint ( ftab, xtab, ntab, a_in, b_in, result )
+  implicit none
+!
+! Purpose:
+!   estimate the integral of unevenly spaced data
+!
+! Inputs:
+!   [ftab]     functional values
+!   [xtab]     abscissa values
+!   [ntab]     number of elements of [ftab] and [xtab]
+!   [a]        lower limit of integration
+!   [b]        upper limit of integration
+!
+! Outputs:
+!   [result]   approximate value of integral
+!
+! Reference:
+!   From SLATEC libraries, in public domain
+!
+!***********************************************************************
+!
+!  AVINT estimates the integral of unevenly spaced data.
+!
+!  Discussion:
+!
+!    The method uses overlapping parabolas and smoothing.
+!
+!  Modified:
+!
+!    30 October 2000
+!    4 January 2008, A. Bodas-Salcedo. Error control for XTAB taken out of
+!                    loop to allow vectorization.
+!
+!  Reference:
+!
+!    Philip Davis and Philip Rabinowitz,
+!    Methods of Numerical Integration,
+!    Blaisdell Publishing, 1967.
+!
+!    P E Hennion,
+!    Algorithm 77,
+!    Interpolation, Differentiation and Integration,
+!    Communications of the Association for Computing Machinery,
+!    Volume 5, page 96, 1962.
+!
+!  Parameters:
+!
+!    Input, real ( kind = 8 ) FTAB(NTAB), the function values,
+!    FTAB(I) = F(XTAB(I)).
+!
+!    Input, real ( kind = 8 ) XTAB(NTAB), the abscissas at which the
+!    function values are given.  The XTAB's must be distinct
+!    and in ascending order.
+!
+!    Input, integer NTAB, the number of entries in FTAB and
+!    XTAB.  NTAB must be at least 3.
+!
+!    Input, real ( kind = 8 ) A, the lower limit of integration.  A should
+!    be, but need not be, near one endpoint of the interval
+!    (X(1), X(NTAB)).
+!
+!    Input, real ( kind = 8 ) B, the upper limit of integration.  B should
+!    be, but need not be, near one endpoint of the interval
+!    (X(1), X(NTAB)).
+!
+!    Output, real ( kind = 8 ) RESULT, the approximate value of the integral.
+
+  integer, intent(in) :: ntab
+
+  integer,parameter :: KR8 = selected_real_kind(15,300)
+  real ( kind = KR8 ), intent(in) :: a_in
+  real ( kind = KR8 ) a
+  real ( kind = KR8 ) atemp
+  real ( kind = KR8 ), intent(in) :: b_in
+  real ( kind = KR8 ) b
+  real ( kind = KR8 ) btemp
+  real ( kind = KR8 ) ca
+  real ( kind = KR8 ) cb
+  real ( kind = KR8 ) cc
+  real ( kind = KR8 ) ctemp
+  real ( kind = KR8 ), intent(in) :: ftab(ntab)
+  integer i
+  integer ihi
+  integer ilo
+  integer ind
+  real ( kind = KR8 ), intent(out) :: result
+  real ( kind = KR8 ) sum1
+  real ( kind = KR8 ) syl
+  real ( kind = KR8 ) term1
+  real ( kind = KR8 ) term2
+  real ( kind = KR8 ) term3
+  real ( kind = KR8 ) x1
+  real ( kind = KR8 ) x2
+  real ( kind = KR8 ) x3
+  real ( kind = KR8 ), intent(in) :: xtab(ntab)
+  logical lerror
+  
+  lerror = .false.
+  a = a_in
+  b = b_in  
+  
+  if ( ntab < 3 ) then
+    write ( *, '(a)' ) ' '
+    write ( *, '(a)' ) 'AVINT - Fatal error!'
+    write ( *, '(a,i6)' ) '  NTAB is less than 3.  NTAB = ', ntab
+    stop
+  end if
+ 
+  do i = 2, ntab
+    if ( xtab(i) <= xtab(i-1) ) then
+       lerror = .true.
+       exit
+    end if
+  end do
+  
+  if (lerror) then
+      write ( *, '(a)' ) ' '
+      write ( *, '(a)' ) 'AVINT - Fatal error!'
+      write ( *, '(a)' ) '  XTAB(I) is not greater than XTAB(I-1).'
+      write ( *, '(a,i6)' ) '  Here, I = ', i
+      write ( *, '(a,g14.6)' ) '  XTAB(I-1) = ', xtab(i-1)
+      write ( *, '(a,g14.6)' ) '  XTAB(I) =   ', xtab(i)
+      stop  
+  end if
+ 
+  result = 0.0D+00
+ 
+  if ( a == b ) then
+    write ( *, '(a)' ) ' '
+    write ( *, '(a)' ) 'AVINT - Warning!'
+    write ( *, '(a)' ) '  A = B, integral=0.'
+    return
+  end if
+!
+!  If B < A, temporarily switch A and B, and store sign.
+!
+  if ( b < a ) then
+    syl = b
+    b = a
+    a = syl
+    ind = -1
+  else
+    syl = a
+    ind = 1
+  end if
+!
+!  Bracket A and B between XTAB(ILO) and XTAB(IHI).
+!
+  ilo = 1
+  ihi = ntab
+
+  do i = 1, ntab
+    if ( a <= xtab(i) ) then
+      exit
+    end if
+    ilo = ilo + 1
+  end do
+
+  ilo = max ( 2, ilo )
+  ilo = min ( ilo, ntab - 1 )
+
+  do i = 1, ntab
+    if ( xtab(i) <= b ) then
+      exit
+    end if
+    ihi = ihi - 1
+  end do
+  
+  ihi = min ( ihi, ntab - 1 )
+  ihi = max ( ilo, ihi - 1 )
+!
+!  Carry out approximate integration from XTAB(ILO) to XTAB(IHI).
+!
+  sum1 = 0.0D+00
+ 
+  do i = ilo, ihi
+ 
+    x1 = xtab(i-1)
+    x2 = xtab(i)
+    x3 = xtab(i+1)
+    
+    term1 = ftab(i-1) / ( ( x1 - x2 ) * ( x1 - x3 ) )
+    term2 = ftab(i)   / ( ( x2 - x1 ) * ( x2 - x3 ) )
+    term3 = ftab(i+1) / ( ( x3 - x1 ) * ( x3 - x2 ) )
+ 
+    atemp = term1 + term2 + term3
+
+    btemp = - ( x2 + x3 ) * term1 &
+            - ( x1 + x3 ) * term2 &
+            - ( x1 + x2 ) * term3
+
+    ctemp = x2 * x3 * term1 + x1 * x3 * term2 + x1 * x2 * term3
+ 
+    if ( i <= ilo ) then
+      ca = atemp
+      cb = btemp
+      cc = ctemp
+    else
+      ca = 0.5D+00 * ( atemp + ca )
+      cb = 0.5D+00 * ( btemp + cb )
+      cc = 0.5D+00 * ( ctemp + cc )
+    end if
+ 
+    sum1 = sum1 &
+          + ca * ( x2**3 - syl**3 ) / 3.0D+00 &
+          + cb * 0.5D+00 * ( x2**2 - syl**2 ) &
+          + cc * ( x2 - syl )
+ 
+    ca = atemp
+    cb = btemp
+    cc = ctemp
+ 
+    syl = x2
+ 
+  end do
+ 
+  result = sum1 &
+        + ca * ( b**3 - syl**3 ) / 3.0D+00 &
+        + cb * 0.5D+00 * ( b**2 - syl**2 ) &
+        + cc * ( b - syl )
+!
+!  Restore original values of A and B, reverse sign of integral
+!  because of earlier switch.
+!
+  if ( ind /= 1 ) then
+    ind = 1
+    syl = b
+    b = a
+    a = syl
+    result = -result
+  end if
+ 
+  return
+  end subroutine avint
+  
+  end module math_lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/modis_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/modis_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/modis_simulator.F90	(revision 3330)
@@ -0,0 +1,1020 @@
+! (c) 2009-2010, Regents of the Unversity of Colorado
+!   Author: Robert Pincus, Cooperative Institute for Research in the Environmental Sciences
+! All rights reserved.
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/MODIS_simulator/modis_simulator.F90 $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its contributors may be used 
+!       to endorse or promote products derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+!
+
+!
+! History:
+!   May 2009 - Robert Pincus - Initial version
+!   June 2009 - Steve Platnick and Robert Pincus - Simple radiative transfer for size retrievals
+!   August 2009 - Robert Pincus - Consistency and bug fixes suggested by Rick Hemler (GFDL) 
+!   November 2009 - Robert Pincus - Bux fixes and speed-ups after experience with Rick Hemler using AM2 (GFDL) 
+!   January 2010 - Robert Pincus - Added high, middle, low cloud fractions 
+!
+
+!
+! Notes on using the MODIS simulator: 
+!  *) You may provide either layer-by-layer values of optical thickness at 0.67 and 2.1 microns, or 
+!     optical thickness at 0.67 microns and ice- and liquid-water contents (in consistent units of 
+!     your choosing)
+!  *) Required input also includes the optical thickness and cloud top pressure 
+!     derived from the ISCCP simulator run with parameter top_height = 1. 
+!  *) Cloud particle sizes are specified as radii, measured in meters, though within the module we 
+!     use units of microns. Where particle sizes are outside the bounds used in the MODIS retrieval
+!     libraries (parameters re_water_min, re_ice_min, etc.) the simulator returns missing values (re_fill)
+
+!
+! When error conditions are encountered this code calls the function complain_and_die, supplied at the 
+!   bottom of this module. Users probably want to replace this with something more graceful. 
+!
+module mod_modis_sim
+  USE MOD_COSP_TYPES, only: R_UNDEF
+  implicit none
+  ! ------------------------------
+  ! Algorithmic parameters
+  !
+ 
+  real, parameter :: ice_density          = 0.93               ! liquid density is 1.  
+  !
+  ! Retrieval parameters
+  !
+  real, parameter :: min_OpticalThickness = 0.3,             & ! Minimum detectable optical thickness
+                     CO2Slicing_PressureLimit = 700. * 100., & ! Cloud with higher pressures use thermal methods, units Pa
+                     CO2Slicing_TauLimit = 1.,               & ! How deep into the cloud does CO2 slicing see? 
+                     phase_TauLimit      = 1.,               & ! How deep into the cloud does the phase detection see?
+                     size_TauLimit       = 2.,               & ! Depth of the re retreivals
+                     phaseDiscrimination_Threshold = 0.7       ! What fraction of total extincton needs to be 
+                                                               !  in a single category to make phase discrim. work? 
+  real,    parameter :: re_fill= -999.
+  integer, parameter :: phaseIsNone = 0, phaseIsLiquid = 1, phaseIsIce = 2, phaseIsUndetermined = 3
+  
+  logical, parameter :: useSimpleReScheme = .false. 
+  !
+  ! These are the limits of the libraries for the MODIS collection 5 algorithms 
+  !   They are also the limits used in the fits for g and w0
+  !
+  real,    parameter :: re_water_min= 4., re_water_max= 30., re_ice_min= 5., re_ice_max= 90.
+  integer, parameter :: num_trial_res = 15             ! increase to make the linear pseudo-retrieval of size more accurate
+  logical, parameter :: use_two_re_iterations = .false. ! do two retrieval iterations? 
+  
+  !
+  ! Precompute near-IR optical params vs size for retrieval scheme
+  !
+  integer, private :: i 
+  real, dimension(num_trial_res), parameter :: & 
+        trial_re_w = re_water_min + (re_water_max - re_water_min)/(num_trial_res-1) * (/ (i - 1, i = 1, num_trial_res) /), &
+        trial_re_i = re_ice_min   + (re_ice_max -   re_ice_min)  /(num_trial_res-1) * (/ (i - 1, i = 1, num_trial_res) /)
+  
+  ! Can't initialze these during compilation, but do in before looping columns in retrievals
+  real, dimension(num_trial_res) ::  g_w, g_i, w0_w, w0_i
+  ! ------------------------------
+  ! Bin boundaries for the joint optical thickness/cloud top pressure histogram
+  !
+  integer, parameter :: numTauHistogramBins = 6, numPressureHistogramBins = 7
+
+  real, private :: dummy_real 
+  real, dimension(numTauHistogramBins + 1),      parameter :: &
+    tauHistogramBoundaries = (/ min_OpticalThickness, 1.3, 3.6, 9.4, 23., 60., 10000. /) 
+  real, dimension(numPressureHistogramBins + 1), parameter :: & ! Units Pa 
+    pressureHistogramBoundaries = (/ 0., 18000., 31000., 44000., 56000., 68000., 80000., 1000000. /) 
+  real, parameter :: highCloudPressureLimit = 440. * 100., lowCloudPressureLimit = 680. * 100.
+  !
+  ! For output - nominal bin centers and  bin boundaries. On output pressure bins are highest to lowest. 
+  !
+  integer, private :: k, l
+  real, parameter, dimension(2, numTauHistogramBins) ::   &
+    nominalTauHistogramBoundaries =                       &
+        reshape(source = (/ tauHistogramBoundaries(1),    &
+                            ((tauHistogramBoundaries(k), l = 1, 2), k = 2, numTauHistogramBins), &
+                            100000. /),                    &
+                shape = (/2,  numTauHistogramBins /) )
+  real, parameter, dimension(numTauHistogramBins) ::                    &
+    nominalTauHistogramCenters = (nominalTauHistogramBoundaries(1, :) + &
+                                  nominalTauHistogramBoundaries(2, :) ) / 2.
+  
+  real, parameter, dimension(2, numPressureHistogramBins) :: &
+    nominalPressureHistogramBoundaries =                     &
+        reshape(source = (/ 100000.,                         &
+                            ((pressureHistogramBoundaries(k), l = 1, 2), k = numPressureHistogramBins, 2, -1), &
+                            0.  /), &
+                shape = (/2,  numPressureHistogramBins /) )
+  real, parameter, dimension(numPressureHistogramBins) ::                         &
+    nominalPressureHistogramCenters = (nominalPressureHistogramBoundaries(1, :) + &
+                                       nominalPressureHistogramBoundaries(2, :) ) / 2.
+  ! ------------------------------
+  ! There are two ways to call the MODIS simulator: 
+  !  1) Provide total optical thickness and liquid/ice water content and we'll partition tau in 
+  !     subroutine modis_L2_simulator_oneTau, or 
+  !  2) Provide ice and liquid optical depths in each layer
+  !
+  interface modis_L2_simulator
+    module procedure modis_L2_simulator_oneTau, modis_L2_simulator_twoTaus
+  end interface 
+contains
+  !------------------------------------------------------------------------------------------------
+  ! MODIS simulator using specified liquid and ice optical thickness in each layer 
+  !
+  !   Note: this simulator operates on all points; to match MODIS itself night-time 
+  !     points should be excluded
+  !
+  !   Note: the simulator requires as input the optical thickness and cloud top pressure 
+  !     derived from the ISCCP simulator run with parameter top_height = 1. 
+  !     If cloud top pressure is higher than about 700 mb, MODIS can't use CO2 slicing 
+  !     and reverts to a thermal algorithm much like ISCCP's. Rather than replicate that 
+  !     alogrithm in this simulator we simply report the values from the ISCCP simulator. 
+  !
+  subroutine modis_L2_simulator_twoTaus(                                       &
+                                temp, pressureLayers, pressureLevels,          &
+                                liquid_opticalThickness, ice_opticalThickness, &
+                                waterSize, iceSize,                            & 
+                                isccpTau, isccpCloudTopPressure,               &
+                                retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize)
+
+    ! Grid-mean quantities at layer centers, starting at the model top
+    !   dimension nLayers
+    real, dimension(:),    intent(in ) :: temp,           & ! Temperature, K
+                                          pressureLayers, & ! Pressure, Pa
+                                          pressureLevels    ! Pressure at layer edges, Pa (dimension nLayers + 1) 
+    ! Sub-column quantities
+    !   dimension  nSubcols, nLayers
+    real, dimension(:, :), intent(in ) :: liquid_opticalThickness, & ! Layer optical thickness @ 0.67 microns due to liquid
+                                          ice_opticalThickness       ! ditto, due to ice
+    real, dimension(:, :), intent(in ) :: waterSize,        & ! Cloud drop effective radius, microns
+                                          iceSize             ! Cloud ice effective radius, microns
+                                          
+    ! Cloud properties retrieved from ISCCP using top_height = 1
+    !    dimension nSubcols
+    real, dimension(:),    intent(in ) :: isccpTau, &           ! Column-integrated optical thickness 
+                                          isccpCloudTopPressure ! ISCCP-retrieved cloud top pressure (Pa) 
+
+    ! Properties retrieved by MODIS
+    !   dimension nSubcols
+    integer, dimension(:), intent(out) :: retrievedPhase               ! liquid/ice/other - integer, defined in module header
+    real,    dimension(:), intent(out) :: retrievedCloudTopPressure, & ! units of pressureLayers
+                                          retrievedTau,              & ! unitless
+                                          retrievedSize                ! microns 
+    ! ---------------------------------------------------
+    ! Local variables
+    logical, dimension(size(retrievedTau))                     :: cloudMask
+    real,    dimension(size(waterSize, 1), size(waterSize, 2)) :: tauLiquidFraction, tauTotal
+    real    :: integratedLiquidFraction
+    integer :: i, nSubcols, nLevels
+
+    ! ---------------------------------------------------
+    nSubcols = size(liquid_opticalThickness, 1)
+    nLevels  = size(liquid_opticalThickness, 2) 
+ 
+    !
+    ! Initial error checks 
+    !   
+    if(any((/ size(ice_opticalThickness, 1), size(waterSize, 1), size(iceSize, 1), &
+              size(isccpTau), size(isccpCloudTopPressure),              &
+              size(retrievedPhase), size(retrievedCloudTopPressure),    &
+              size(retrievedTau), size(retrievedSize) /) /= nSubcols )) &
+       call complain_and_die("Differing number of subcolumns in one or more arrays") 
+    
+    if(any((/ size(ice_opticalThickness, 2), size(waterSize, 2), size(iceSize, 2),      &
+              size(temp), size(pressureLayers), size(pressureLevels)-1 /) /= nLevels )) &
+       call complain_and_die("Differing number of levels in one or more arrays") 
+       
+       
+    if(any( (/ any(temp <= 0.), any(pressureLayers <= 0.),  &
+               any(liquid_opticalThickness < 0.),           &
+               any(ice_opticalThickness < 0.),              &
+               any(waterSize < 0.), any(iceSize < 0.) /) )) &
+       call complain_and_die("Input values out of bounds") 
+             
+    ! ---------------------------------------------------
+    !
+    ! Compute the total optical thickness and the proportion due to liquid in each cell
+    !
+    where(liquid_opticalThickness(:, :) + ice_opticalThickness(:, :) > 0.) 
+      tauLiquidFraction(:, :) = liquid_opticalThickness(:, :)/(liquid_opticalThickness(:, :) + ice_opticalThickness(:, :))
+    elsewhere
+      tauLiquidFraction(:, :) = 0. 
+    end  where 
+    tauTotal(:, :) = liquid_opticalThickness(:, :) + ice_opticalThickness(:, :) 
+    
+    !
+    ! Optical depth retrieval 
+    !   This is simply a sum over the optical thickness in each layer 
+    !   It should agree with the ISCCP values after min values have been excluded 
+    !
+    retrievedTau(:) = sum(tauTotal(:, :), dim = 2)
+
+    !
+    ! Cloud detection - does optical thickness exceed detection threshold? 
+    !
+    cloudMask = retrievedTau(:) >= min_OpticalThickness
+    
+    !
+    ! Initialize initial estimates for size retrievals
+    !
+    if(any(cloudMask) .and. .not. useSimpleReScheme) then 
+      g_w(:)  = get_g_nir(  phaseIsLiquid, trial_re_w(:))
+      w0_w(:) = get_ssa_nir(phaseIsLiquid, trial_re_w(:))
+      g_i(:)  = get_g_nir(  phaseIsIce,    trial_re_i(:))
+      w0_i(:) = get_ssa_nir(phaseIsIce,    trial_re_i(:))
+    end if 
+    
+    do i = 1, nSubCols
+      if(cloudMask(i)) then 
+        !
+        ! Cloud top pressure determination 
+        !   MODIS uses CO2 slicing for clouds with tops above about 700 mb and thermal methods for clouds
+        !   lower than that. 
+        !  For CO2 slicing we report the optical-depth weighted pressure, integrating to a specified 
+        !    optical depth
+        ! This assumes linear variation in p between levels. Linear in ln(p) is probably better, 
+        !   though we'd need to deal with the lowest pressure gracefully. 
+        !
+        retrievedCloudTopPressure(i) = cloud_top_pressure((/ 0., tauTotal(i, :) /), &
+                                                          pressureLevels,           &
+                                                          CO2Slicing_TauLimit)  
+        
+        
+        !
+        ! Phase determination - determine fraction of total tau that's liquid 
+        ! When ice and water contribute about equally to the extinction we can't tell 
+        !   what the phase is 
+        !
+        integratedLiquidFraction = weight_by_extinction(tauTotal(i, :),          &
+                                                        tauLiquidFraction(i, :), &
+                                                        phase_TauLimit)
+        if(integratedLiquidFraction >= phaseDiscrimination_Threshold) then 
+          retrievedPhase(i) = phaseIsLiquid
+        else if (integratedLiquidFraction <= 1.- phaseDiscrimination_Threshold) then 
+          retrievedPhase(i) = phaseIsIce
+        else 
+          retrievedPhase(i) = phaseIsUndetermined
+        end if 
+        
+        !
+        ! Size determination 
+        !
+        if(useSimpleReScheme) then 
+          !   This is the extinction-weighted size considering only the phase we've chosen 
+          !
+          if(retrievedPhase(i) == phaseIsIce) then 
+            retrievedSize(i) = weight_by_extinction(ice_opticalThickness(i, :),  &
+                                                    iceSize(i, :), &
+                                                    (1. - integratedLiquidFraction) * size_TauLimit)
+  
+          else if(retrievedPhase(i) == phaseIsLiquid) then 
+            retrievedSize(i) = weight_by_extinction(liquid_opticalThickness(i, :), &
+                                                    waterSize(i, :), &
+                                                    integratedLiquidFraction * size_TauLimit)
+  
+          else
+            retrievedSize(i) = 0. 
+          end if 
+        else
+          retrievedSize(i) = 1.0e-06*retrieve_re(retrievedPhase(i), retrievedTau(i), &
+                         obs_Refl_nir = compute_nir_reflectance(liquid_opticalThickness(i, :), waterSize(i, :)*1.0e6, & 
+                         ice_opticalThickness(i, :),      iceSize(i, :)*1.0e6))
+        end if 
+      else 
+        !
+        ! Values when we don't think there's a cloud. 
+        !
+        retrievedCloudTopPressure(i) = R_UNDEF 
+        retrievedPhase(i) = phaseIsNone
+        retrievedSize(i) = R_UNDEF 
+        retrievedTau(i) = R_UNDEF 
+      end if
+    end do
+    where((retrievedSize(:) < 0.).and.(retrievedSize(:) /= R_UNDEF)) retrievedSize(:) = 1.0e-06*re_fill
+
+    ! We use the ISCCP-derived CTP for low clouds, since the ISCCP simulator ICARUS 
+    !   mimics what MODIS does to first order. 
+    !   Of course, ISCCP cloud top pressures are in mb. 
+    !   
+    where(cloudMask(:) .and. retrievedCloudTopPressure(:) > CO2Slicing_PressureLimit) &
+      retrievedCloudTopPressure(:) = isccpCloudTopPressure * 100. 
+    
+  end subroutine modis_L2_simulator_twoTaus
+  !------------------------------------------------------------------------------------------------
+  !
+  ! MODIS simulator: provide a single optical thickness and the cloud ice and liquid contents; 
+  !   we'll partition this into ice and liquid optical thickness and call the full MODIS simulator 
+  ! 
+  subroutine modis_L2_simulator_oneTau(                                         &
+                                temp, pressureLayers, pressureLevels,           &
+                                opticalThickness, cloudWater, cloudIce,         &
+                                waterSize, iceSize,                             & 
+                                isccpTau, isccpCloudTopPressure,                &
+                                retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize)
+    ! Grid-mean quantities at layer centers, 
+    !   dimension nLayers
+    real, dimension(:),    intent(in ) :: temp,           & ! Temperature, K
+                                          pressureLayers, & ! Pressure, Pa
+                                          pressureLevels    ! Pressure at layer edges, Pa (dimension nLayers + 1) 
+    ! Sub-column quantities
+    !   dimension nLayers, nSubcols
+    real, dimension(:, :), intent(in ) :: opticalThickness, & ! Layer optical thickness @ 0.67 microns
+                                          cloudWater,       & ! Cloud water content, arbitrary units
+                                          cloudIce            ! Cloud water content, same units as cloudWater
+    real, dimension(:, :), intent(in ) :: waterSize,        & ! Cloud drop effective radius, microns
+                                          iceSize             ! Cloud ice effective radius, microns
+
+    ! Cloud properties retrieved from ISCCP using top_height = 1
+    !    dimension nSubcols
+    
+    real, dimension(:),    intent(in ) :: isccpTau, &           ! Column-integrated optical thickness 
+                                          isccpCloudTopPressure ! ISCCP-retrieved cloud top pressure (Pa) 
+
+    ! Properties retrieved by MODIS
+    !   dimension nSubcols
+    integer, dimension(:), intent(out) :: retrievedPhase               ! liquid/ice/other - integer
+    real,    dimension(:), intent(out) :: retrievedCloudTopPressure, & ! units of pressureLayers
+                                          retrievedTau,              & ! unitless
+                                          retrievedSize                ! microns (or whatever units 
+                                                                       !   waterSize and iceSize are supplied in)
+    ! ---------------------------------------------------
+    ! Local variables
+    real, dimension(size(opticalThickness, 1), size(opticalThickness, 2)) :: & 
+           liquid_opticalThickness, ice_opticalThickness, tauLiquidFraction
+    
+    ! ---------------------------------------------------
+    
+    where(cloudIce(:, :) <= 0.) 
+      tauLiquidFraction(:, :) = 1. 
+    elsewhere
+      where (cloudWater(:, :) <= 0.) 
+        tauLiquidFraction(:, :) = 0. 
+      elsewhere 
+        ! 
+        ! Geometic optics limit - tau as LWP/re  (proportional to LWC/re) 
+        !
+        tauLiquidFraction(:, :) = (cloudWater(:, :)/waterSize(:, :)) / &
+                                  (cloudWater(:, :)/waterSize(:, :) + cloudIce(:, :)/(ice_density * iceSize(:, :)) ) 
+      end where
+    end where
+    liquid_opticalThickness(:, :) = tauLiquidFraction(:, :) * opticalThickness(:, :) 
+    ice_opticalThickness   (:, :) = opticalThickness(:, :) - liquid_opticalThickness(:, :)
+    
+    call modis_L2_simulator_twoTaus(temp, pressureLayers, pressureLevels,          &
+                                    liquid_opticalThickness, ice_opticalThickness, &
+                                    waterSize, iceSize,                            & 
+                                    isccpTau, isccpCloudTopPressure,               &
+                                    retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize)
+                                
+  end subroutine modis_L2_simulator_oneTau
+  !------------------------------------------------------------------------------------------------
+  subroutine modis_L3_simulator(phase, cloud_top_pressure, optical_thickness, particle_size,            &
+       Cloud_Fraction_Total_Mean,       Cloud_Fraction_Water_Mean,       Cloud_Fraction_Ice_Mean,       &
+       Cloud_Fraction_High_Mean,        Cloud_Fraction_Mid_Mean,         Cloud_Fraction_Low_Mean,       &
+       Optical_Thickness_Total_Mean,    Optical_Thickness_Water_Mean,    Optical_Thickness_Ice_Mean,    &
+       Optical_Thickness_Total_MeanLog10, Optical_Thickness_Water_MeanLog10, Optical_Thickness_Ice_MeanLog10, &
+                                        Cloud_Particle_Size_Water_Mean,  Cloud_Particle_Size_Ice_Mean,  &
+       Cloud_Top_Pressure_Total_Mean,                                                                   &
+                                        Liquid_Water_Path_Mean,          Ice_Water_Path_Mean,           &    
+       Optical_Thickness_vs_Cloud_Top_Pressure)
+    !
+    ! Inputs; dimension nPoints, nSubcols
+    !
+    integer, dimension(:, :),   intent(in)  :: phase
+    real,    dimension(:, :),   intent(in)  :: cloud_top_pressure, optical_thickness, particle_size
+    !
+    ! Outputs; dimension nPoints
+    !
+    real,    dimension(:),      intent(out) :: &
+       Cloud_Fraction_Total_Mean,       Cloud_Fraction_Water_Mean,       Cloud_Fraction_Ice_Mean,       &
+       Cloud_Fraction_High_Mean,        Cloud_Fraction_Mid_Mean,         Cloud_Fraction_Low_Mean,       &
+       Optical_Thickness_Total_Mean,    Optical_Thickness_Water_Mean,    Optical_Thickness_Ice_Mean,    &
+       Optical_Thickness_Total_MeanLog10, Optical_Thickness_Water_MeanLog10, Optical_Thickness_Ice_MeanLog10, &
+                                        Cloud_Particle_Size_Water_Mean,  Cloud_Particle_Size_Ice_Mean,  &
+       Cloud_Top_Pressure_Total_Mean,                                                                   &
+                                        Liquid_Water_Path_Mean,          Ice_Water_Path_Mean
+    ! tau/ctp histogram; dimensions nPoints, numTauHistogramBins , numPressureHistogramBins 
+    real,    dimension(:, :, :), intent(out) :: Optical_Thickness_vs_Cloud_Top_Pressure
+    ! ---------------------------
+    ! Local variables
+    !
+    real, parameter :: LWP_conversion = 2./3. * 1000. ! MKS units  
+    integer :: i, j
+    integer :: nPoints, nSubcols 
+    logical, dimension(size(phase, 1), size(phase, 2)) :: &
+      cloudMask, waterCloudMask, iceCloudMask, validRetrievalMask
+    logical, dimension(size(phase, 1), size(phase, 2), numTauHistogramBins     ) :: tauMask
+    logical, dimension(size(phase, 1), size(phase, 2), numPressureHistogramBins) :: pressureMask
+    ! ---------------------------
+    
+    nPoints  = size(phase, 1) 
+    nSubcols = size(phase, 2) 
+    !
+    ! Array conformance checks
+    !
+    if(any( (/ size(cloud_top_pressure, 1), size(optical_thickness, 1), size(particle_size, 1),                                &
+               size(Cloud_Fraction_Total_Mean),       size(Cloud_Fraction_Water_Mean),       size(Cloud_Fraction_Ice_Mean),    &
+               size(Cloud_Fraction_High_Mean),        size(Cloud_Fraction_Mid_Mean),         size(Cloud_Fraction_Low_Mean),    &
+               size(Optical_Thickness_Total_Mean),    size(Optical_Thickness_Water_Mean),    size(Optical_Thickness_Ice_Mean), &
+               size(Optical_Thickness_Total_MeanLog10), size(Optical_Thickness_Water_MeanLog10), &
+               size(Optical_Thickness_Ice_MeanLog10),   size(Cloud_Particle_Size_Water_Mean),    &
+               size(Cloud_Particle_Size_Ice_Mean),      size(Cloud_Top_Pressure_Total_Mean),     &
+               size(Liquid_Water_Path_Mean),          size(Ice_Water_Path_Mean) /) /= nPoints))  &
+      call complain_and_die("Some L3 arrays have wrong number of grid points") 
+    if(any( (/ size(cloud_top_pressure, 2), size(optical_thickness, 2), size(particle_size, 2) /)  /= nSubcols)) &
+      call complain_and_die("Some L3 arrays have wrong number of subcolumns") 
+    
+    
+    !
+    ! Include only those pixels with successful retrievals in the statistics 
+    !
+    validRetrievalMask(:, :) = particle_size(:, :) > 0.
+    cloudMask      = phase(:, :) /= phaseIsNone   .and. validRetrievalMask(:, :)
+    waterCloudMask = phase(:, :) == phaseIsLiquid .and. validRetrievalMask(:, :)
+    iceCloudMask   = phase(:, :) == phaseIsIce    .and. validRetrievalMask(:, :)
+    !
+    ! Use these as pixel counts at first 
+    !
+    Cloud_Fraction_Total_Mean(:) = real(count(cloudMask,      dim = 2))
+    Cloud_Fraction_Water_Mean(:) = real(count(waterCloudMask, dim = 2))
+    Cloud_Fraction_Ice_Mean(:)   = real(count(iceCloudMask,   dim = 2))
+    
+    Cloud_Fraction_High_Mean(:) = real(count(cloudMask .and. cloud_top_pressure <= highCloudPressureLimit, dim = 2)) 
+    Cloud_Fraction_Low_Mean(:)  = real(count(cloudMask .and. cloud_top_pressure >  lowCloudPressureLimit,  dim = 2)) 
+    Cloud_Fraction_Mid_Mean(:)  = Cloud_Fraction_Total_Mean(:) - Cloud_Fraction_High_Mean(:) - Cloud_Fraction_Low_Mean(:)
+    
+    !
+    ! Don't want to divide by 0, even though the sums will be 0 where the pixel counts are 0. 
+    !
+    where (Cloud_Fraction_Total_Mean == 0) Cloud_Fraction_Total_Mean = -1. 
+    where (Cloud_Fraction_Water_Mean == 0) Cloud_Fraction_Water_Mean = -1.
+    where (Cloud_Fraction_Ice_Mean   == 0) Cloud_Fraction_Ice_Mean   = -1.
+    
+    Optical_Thickness_Total_Mean = sum(optical_thickness, mask = cloudMask,      dim = 2) / Cloud_Fraction_Total_Mean(:) 
+    Optical_Thickness_Water_Mean = sum(optical_thickness, mask = waterCloudMask, dim = 2) / Cloud_Fraction_Water_Mean(:)
+    Optical_Thickness_Ice_Mean   = sum(optical_thickness, mask = iceCloudMask,   dim = 2) / Cloud_Fraction_Ice_Mean(:)
+   
+    ! We take the absolute value of optical thickness here to satisfy compilers that complains when we 
+    !   evaluate the logarithm of a negative number, even though it's not included in the sum. 
+    Optical_Thickness_Total_MeanLog10 = sum(log10(abs(optical_thickness)), mask = cloudMask,      dim = 2) / &
+                                        Cloud_Fraction_Total_Mean(:)
+    Optical_Thickness_Water_MeanLog10 = sum(log10(abs(optical_thickness)), mask = waterCloudMask, dim = 2) / &
+                                        Cloud_Fraction_Water_Mean(:)
+    Optical_Thickness_Ice_MeanLog10   = sum(log10(abs(optical_thickness)), mask = iceCloudMask,   dim = 2) / &
+                                        Cloud_Fraction_Ice_Mean(:)
+   
+    Cloud_Particle_Size_Water_Mean = sum(particle_size, mask = waterCloudMask, dim = 2) / Cloud_Fraction_Water_Mean(:)
+    Cloud_Particle_Size_Ice_Mean   = sum(particle_size, mask = iceCloudMask,   dim = 2) / Cloud_Fraction_Ice_Mean(:)
+    
+    Cloud_Top_Pressure_Total_Mean = sum(cloud_top_pressure, mask = cloudMask, dim = 2) / max(1, count(cloudMask, dim = 2))
+    
+    Liquid_Water_Path_Mean = LWP_conversion &
+                             * sum(particle_size * optical_thickness, mask = waterCloudMask, dim = 2) &
+                             / Cloud_Fraction_Water_Mean(:)
+    Ice_Water_Path_Mean    = LWP_conversion * ice_density &
+                             * sum(particle_size * optical_thickness, mask = iceCloudMask,   dim = 2) &
+                             / Cloud_Fraction_Ice_Mean(:)
+
+    !
+    ! Normalize pixel counts to fraction
+    !   The first three cloud fractions have been set to -1 in cloud-free areas, so set those places to 0.
+    ! 
+    Cloud_Fraction_Total_Mean(:) = max(0., Cloud_Fraction_Total_Mean(:)/nSubcols)
+    Cloud_Fraction_Water_Mean(:) = max(0., Cloud_Fraction_Water_Mean(:)/nSubcols)
+    Cloud_Fraction_Ice_Mean(:)   = max(0., Cloud_Fraction_Ice_Mean(:)  /nSubcols)
+    
+    Cloud_Fraction_High_Mean(:)  = Cloud_Fraction_High_Mean(:) /nSubcols
+    Cloud_Fraction_Mid_Mean(:)   = Cloud_Fraction_Mid_Mean(:)  /nSubcols
+    Cloud_Fraction_Low_Mean(:)   = Cloud_Fraction_Low_Mean(:)  /nSubcols
+    
+    ! ----
+    ! Joint histogram 
+    ! 
+    do i = 1, numTauHistogramBins 
+      where(cloudMask(:, :)) 
+        tauMask(:, :, i) = optical_thickness(:, :) >= tauHistogramBoundaries(i) .and. &
+                           optical_thickness(:, :) <  tauHistogramBoundaries(i+1)
+      elsewhere
+        tauMask(:, :, i) = .false.
+      end where
+    end do 
+
+    do i = 1, numPressureHistogramBins 
+      where(cloudMask(:, :)) 
+        pressureMask(:, :, i) = cloud_top_pressure(:, :) >= pressureHistogramBoundaries(i) .and. &
+                                cloud_top_pressure(:, :) <  pressureHistogramBoundaries(i+1)
+      elsewhere
+        pressureMask(:, :, i) = .false.
+      end where
+    end do 
+    
+    do i = 1, numPressureHistogramBins
+      do j = 1, numTauHistogramBins
+        Optical_Thickness_vs_Cloud_Top_Pressure(:, j, i) = & 
+          real(count(tauMask(:, :, j) .and. pressureMask(:, :, i), dim = 2)) / real(nSubcols)
+      end do 
+    end do 
+    
+  end subroutine modis_L3_simulator
+  !------------------------------------------------------------------------------------------------
+  function cloud_top_pressure(tauIncrement, pressure, tauLimit) 
+    real, dimension(:), intent(in) :: tauIncrement, pressure
+    real,               intent(in) :: tauLimit
+    real                           :: cloud_top_pressure
+    !
+    ! Find the extinction-weighted pressure. Assume that pressure varies linearly between 
+    !   layers and use the trapezoidal rule.
+    !
+    
+    real :: deltaX, totalTau, totalProduct
+    integer :: i 
+    
+    totalTau = 0.; totalProduct = 0. 
+    do i = 2, size(tauIncrement)
+      if(totalTau + tauIncrement(i) > tauLimit) then 
+        deltaX = tauLimit - totalTau
+        totalTau = totalTau + deltaX
+        !
+        ! Result for trapezoidal rule when you take less than a full step
+        !   tauIncrement is a layer-integrated value
+        !
+        totalProduct = totalProduct           &
+                     + pressure(i-1) * deltaX &
+                     + (pressure(i) - pressure(i-1)) * deltaX**2/(2. * tauIncrement(i)) 
+      else
+        totalTau =     totalTau     + tauIncrement(i) 
+        totalProduct = totalProduct + tauIncrement(i) * (pressure(i) + pressure(i-1)) / 2.
+      end if 
+      if(totalTau >= tauLimit) exit
+    end do 
+    cloud_top_pressure = totalProduct/totalTau
+  end function cloud_top_pressure
+  !------------------------------------------------------------------------------------------------
+  function weight_by_extinction(tauIncrement, f, tauLimit) 
+    real, dimension(:), intent(in) :: tauIncrement, f
+    real,               intent(in) :: tauLimit
+    real                           :: weight_by_extinction
+    !
+    ! Find the extinction-weighted value of f(tau), assuming constant f within each layer
+    !
+    
+    real    :: deltaX, totalTau, totalProduct
+    integer :: i 
+    
+    totalTau = 0.; totalProduct = 0. 
+    do i = 1, size(tauIncrement)
+      if(totalTau + tauIncrement(i) > tauLimit) then 
+        deltaX       = tauLimit - totalTau
+        totalTau     = totalTau     + deltaX
+        totalProduct = totalProduct + deltaX * f(i) 
+      else
+        totalTau     = totalTau     + tauIncrement(i) 
+        totalProduct = totalProduct + tauIncrement(i) * f(i) 
+      end if 
+      if(totalTau >= tauLimit) exit
+    end do 
+    weight_by_extinction = totalProduct/totalTau
+  end function weight_by_extinction
+  !------------------------------------------------------------------------------------------------
+  pure function compute_nir_reflectance(water_tau, water_size, ice_tau, ice_size) 
+    real, dimension(:), intent(in) :: water_tau, water_size, ice_tau, ice_size
+    real                           :: compute_nir_reflectance
+    
+    real, dimension(size(water_tau)) :: water_g, water_w0, ice_g, ice_w0, &
+                                        tau, g, w0
+    !----------------------------------------
+    water_g(:)  = get_g_nir(  phaseIsLiquid, water_size) 
+    water_w0(:) = get_ssa_nir(phaseIsLiquid, water_size) 
+    ice_g(:)    = get_g_nir(  phaseIsIce,    ice_size) 
+    ice_w0(:)   = get_ssa_nir(phaseIsIce,    ice_size) 
+    !
+    ! Combine ice and water optical properties
+    !
+    g(:) = 0; w0(:) = 0. 
+    tau(:) = ice_tau(:) + water_tau(:) 
+    where (tau(:) > 0) 
+      g(:)  = (water_tau(:) * water_g(:)                + ice_tau(:) * ice_g(:)            ) / & 
+              tau(:) 
+      w0(:) = (water_tau(:) * water_g(:) * water_w0(:)  + ice_tau(:) * ice_g(:) * ice_w0(:)) / &
+              (g(:) * tau(:))
+    end where
+    
+    compute_nir_reflectance = compute_toa_reflectace(tau, g, w0)
+  end function compute_nir_reflectance
+  !------------------------------------------------------------------------------------------------
+  ! Retreivals
+  !------------------------------------------------------------------------------------------------
+  elemental function retrieve_re (phase, tau, obs_Refl_nir)
+      integer, intent(in) :: phase
+      real,    intent(in) :: tau, obs_Refl_nir
+      real                :: retrieve_re
+      !
+      ! Finds the re that produces the minimum mis-match between predicted and observed reflectance in 
+      !   MODIS band 7 (near IR)
+      ! Uses 
+      !  fits for asymmetry parameter g(re) and single scattering albedo w0(re) based on MODIS tables 
+      !  two-stream for layer reflectance and transmittance as a function of optical thickness tau, g, and w0
+      !  adding-doubling for total reflectance 
+      !  
+      !
+      !
+      ! Local variables
+      !
+      real, parameter :: min_distance_to_boundary = 0.01
+      real    :: re_min, re_max, delta_re
+      integer :: i 
+      
+      real, dimension(num_trial_res) :: trial_re, g, w0, predicted_Refl_nir
+      ! --------------------------
+    
+    if(any(phase == (/ phaseIsLiquid, phaseIsUndetermined, phaseIsIce /))) then 
+      if (phase == phaseIsLiquid .OR. phase == phaseIsUndetermined) then
+        re_min = re_water_min
+        re_max = re_water_max
+        trial_re(:) = trial_re_w
+        g(:)   = g_w(:) 
+        w0(:)  = w0_w(:)
+      else
+        re_min = re_ice_min
+        re_max = re_ice_max
+        trial_re(:) = trial_re_i
+        g(:)   = g_i(:) 
+        w0(:)  = w0_i(:)
+      end if
+      !
+      ! 1st attempt at index: w/coarse re resolution
+      !
+      predicted_Refl_nir(:) = two_stream_reflectance(tau, g(:), w0(:))
+      retrieve_re = interpolate_to_min(trial_re(:), predicted_Refl_nir(:), obs_Refl_nir) 
+      !
+      ! If first retrieval works, can try 2nd iteration using greater re resolution 
+      !
+      if(use_two_re_iterations .and. retrieve_re > 0.) then
+        re_min = retrieve_re - delta_re
+        re_max = retrieve_re + delta_re
+        delta_re = (re_max - re_min)/real(num_trial_res-1)
+  
+        trial_re(:) = re_min + delta_re * (/ (i - 1, i = 1, num_trial_res) /) 
+        g(:)  = get_g_nir(  phase, trial_re(:))
+        w0(:) = get_ssa_nir(phase, trial_re(:))
+        predicted_Refl_nir(:) = two_stream_reflectance(tau, g(:), w0(:))
+        retrieve_re = interpolate_to_min(trial_re(:), predicted_Refl_nir(:), obs_Refl_nir) 
+      end if
+    else 
+      retrieve_re = re_fill
+    end if 
+    
+  end function retrieve_re
+  ! --------------------------------------------
+  pure function interpolate_to_min(x, y, yobs)
+    real, dimension(:), intent(in) :: x, y 
+    real,               intent(in) :: yobs
+    real                           :: interpolate_to_min
+    ! 
+    ! Given a set of values of y as y(x), find the value of x that minimizes abs(y - yobs)
+    !   y must be monotonic in x
+    !
+    real, dimension(size(x)) :: diff
+    integer                  :: nPoints, minDiffLoc, lowerBound, upperBound
+    ! ---------------------------------
+    nPoints = size(y)
+    diff(:) = y(:) - yobs
+    minDiffLoc = minloc(abs(diff), dim = 1) 
+    
+    if(minDiffLoc == 1) then 
+      lowerBound = minDiffLoc
+      upperBound = minDiffLoc + 1
+    else if(minDiffLoc == nPoints) then
+      lowerBound = minDiffLoc - 1
+      upperBound = minDiffLoc
+    else
+      if(diff(minDiffLoc-1) * diff(minDiffLoc) < 0) then
+        lowerBound = minDiffLoc-1
+        upperBound = minDiffLoc
+      else 
+        lowerBound = minDiffLoc
+        upperBound = minDiffLoc + 1
+      end if 
+    end if 
+    
+    if(diff(lowerBound) * diff(upperBound) < 0) then     
+      !
+      ! Interpolate the root position linearly if we bracket the root
+      !
+      interpolate_to_min = x(upperBound) - & 
+                           diff(upperBound) * (x(upperBound) - x(lowerBound)) / (diff(upperBound) - diff(lowerBound))
+    else 
+      interpolate_to_min = re_fill
+    end if 
+    
+
+  end function interpolate_to_min
+  ! --------------------------------------------
+  ! Optical properties
+  ! --------------------------------------------
+  elemental function get_g_nir (phase, re)
+    !
+    ! Polynomial fit for asummetry parameter g in MODIS band 7 (near IR) as a function 
+    !   of size for ice and water
+    ! Fits from Steve Platnick
+    !
+
+    integer, intent(in) :: phase
+    real,    intent(in) :: re
+    real :: get_g_nir 
+    
+    real, dimension(3), parameter :: ice_coefficients   = (/ 0.7432,  4.5563e-3, -2.8697e-5 /), & 
+                               small_water_coefficients = (/ 0.8027, -1.0496e-2,  1.7071e-3 /), & 
+                                 big_water_coefficients = (/ 0.7931,  5.3087e-3, -7.4995e-5 /) 
+    
+    ! approx. fits from MODIS Collection 5 LUT scattering calculations
+    if(phase == phaseIsLiquid) then
+      if(re < 8.) then 
+        get_g_nir = fit_to_quadratic(re, small_water_coefficients)
+        if(re < re_water_min) get_g_nir = fit_to_quadratic(re_water_min, small_water_coefficients)
+      else
+        get_g_nir = fit_to_quadratic(re,   big_water_coefficients)
+        if(re > re_water_max) get_g_nir = fit_to_quadratic(re_water_max, big_water_coefficients)
+      end if 
+    else
+      get_g_nir = fit_to_quadratic(re, ice_coefficients)
+      if(re < re_ice_min) get_g_nir = fit_to_quadratic(re_ice_min, ice_coefficients)
+      if(re > re_ice_max) get_g_nir = fit_to_quadratic(re_ice_max, ice_coefficients)
+    end if 
+    
+  end function get_g_nir
+
+  ! --------------------------------------------
+    elemental function get_ssa_nir (phase, re)
+        integer, intent(in) :: phase
+        real,    intent(in) :: re
+        real                :: get_ssa_nir
+        !
+        ! Polynomial fit for single scattering albedo in MODIS band 7 (near IR) as a function 
+        !   of size for ice and water
+        ! Fits from Steve Platnick
+        !
+        
+        real, dimension(4), parameter :: ice_coefficients   = (/ 0.9994, -4.5199e-3, 3.9370e-5, -1.5235e-7 /)
+        real, dimension(3), parameter :: water_coefficients = (/ 1.0008, -2.5626e-3, 1.6024e-5 /) 
+        
+        ! approx. fits from MODIS Collection 5 LUT scattering calculations
+        if(phase == phaseIsLiquid) then
+          get_ssa_nir = fit_to_quadratic(re, water_coefficients)
+          if(re < re_water_min) get_ssa_nir = fit_to_quadratic(re_water_min, water_coefficients)
+          if(re > re_water_max) get_ssa_nir = fit_to_quadratic(re_water_max, water_coefficients)
+        else
+          get_ssa_nir = fit_to_cubic(re, ice_coefficients)
+          if(re < re_ice_min) get_ssa_nir = fit_to_cubic(re_ice_min, ice_coefficients)
+          if(re > re_ice_max) get_ssa_nir = fit_to_cubic(re_ice_max, ice_coefficients)
+        end if 
+
+    end function get_ssa_nir
+   ! --------------------------------------------
+  pure function fit_to_cubic(x, coefficients) 
+    real,               intent(in) :: x
+    real, dimension(:), intent(in) :: coefficients
+    real                           :: fit_to_cubic
+    
+    
+    fit_to_cubic = coefficients(1) + x * (coefficients(2) + x * (coefficients(3) + x * coefficients(4)))
+ end function fit_to_cubic
+   ! --------------------------------------------
+  pure function fit_to_quadratic(x, coefficients) 
+    real,               intent(in) :: x
+    real, dimension(:), intent(in) :: coefficients
+    real                           :: fit_to_quadratic
+    
+    
+    fit_to_quadratic = coefficients(1) + x * (coefficients(2) + x * (coefficients(3)))
+ end function fit_to_quadratic
+  ! --------------------------------------------
+  ! Radiative transfer
+  ! --------------------------------------------
+  pure function compute_toa_reflectace(tau, g, w0)
+    real, dimension(:), intent(in) :: tau, g, w0
+    real                           :: compute_toa_reflectace
+    
+    logical, dimension(size(tau))         :: cloudMask
+    integer, dimension(count(tau(:) > 0)) :: cloudIndicies
+    real,    dimension(count(tau(:) > 0)) :: Refl,     Trans
+    real                                  :: Refl_tot, Trans_tot
+    integer                               :: i
+    ! ---------------------------------------
+    !
+    ! This wrapper reports reflectance only and strips out non-cloudy elements from the calculation
+    !
+    cloudMask = tau(:) > 0. 
+    cloudIndicies = pack((/ (i, i = 1, size(tau)) /), mask = cloudMask) 
+    do i = 1, size(cloudIndicies)
+      call two_stream(tau(cloudIndicies(i)), g(cloudIndicies(i)), w0(cloudIndicies(i)), Refl(i), Trans(i))
+    end do 
+                    
+    call adding_doubling(Refl(:), Trans(:), Refl_tot, Trans_tot)  
+    
+    compute_toa_reflectace = Refl_tot
+    
+  end function compute_toa_reflectace
+  ! --------------------------------------------
+  pure subroutine two_stream(tauint, gint, w0int, ref, tra) 
+    real, intent(in)  :: tauint, gint, w0int
+    real, intent(out) :: ref, tra
+    !
+    ! Compute reflectance in a single layer using the two stream approximation 
+    !   The code itself is from Lazaros Oreopoulos via Steve Platnick 
+    !
+    ! ------------------------
+    ! Local variables 
+    !   for delta Eddington code
+    !   xmu, gamma3, and gamma4 only used for collimated beam approximation (i.e., beam=1)
+    integer, parameter :: beam = 2
+    real,    parameter :: xmu = 0.866, minConservativeW0 = 0.9999999
+    real :: tau, w0, g, f, gamma1, gamma2, gamma3, gamma4, &
+            rh, a1, a2, rk, r1, r2, r3, r4, r5, t1, t2, t3, t4, t5, beta, e1, e2, ef1, ef2, den, th
+    !
+    ! Compute reflectance and transmittance in a single layer using the two stream approximation 
+    !   The code itself is from Lazaros Oreopoulos via Steve Platnick 
+    !
+    f   = gint**2
+    tau = (1 - w0int * f) * tauint
+    w0  = (1 - f) * w0int / (1 - w0int * f)
+    g   = (gint - f) / (1 - f)
+
+    ! delta-Eddington (Joseph et al. 1976)
+    gamma1 =  (7 - w0* (4 + 3 * g)) / 4.0
+    gamma2 = -(1 - w0* (4 - 3 * g)) / 4.0
+    gamma3 =  (2 - 3*g*xmu) / 4.0
+    gamma4 =   1 - gamma3
+
+    if (w0int > minConservativeW0) then
+      ! Conservative scattering
+      if (beam == 1) then
+          rh = (gamma1*tau+(gamma3-gamma1*xmu)*(1-exp(-tau/xmu)))
+          ref = rh / (1 + gamma1 * tau)
+          tra = 1 - ref       
+      else if(beam == 2) then
+          ref = gamma1*tau/(1 + gamma1*tau)
+          tra = 1 - ref
+      endif
+    else
+      ! Non-conservative scattering
+      a1 = gamma1 * gamma4 + gamma2 * gamma3
+      a2 = gamma1 * gamma3 + gamma2 * gamma4
+
+      rk = sqrt(gamma1**2 - gamma2**2)
+      
+      r1 = (1 - rk * xmu) * (a2 + rk * gamma3)
+      r2 = (1 + rk * xmu) * (a2 - rk * gamma3)
+      r3 = 2 * rk *(gamma3 - a2 * xmu)
+      r4 = (1 - (rk * xmu)**2) * (rk + gamma1)
+      r5 = (1 - (rk * xmu)**2) * (rk - gamma1)
+      
+      t1 = (1 + rk * xmu) * (a1 + rk * gamma4)
+      t2 = (1 - rk * xmu) * (a1 - rk * gamma4)
+      t3 = 2 * rk * (gamma4 + a1 * xmu)
+      t4 = r4
+      t5 = r5
+
+      beta = -r5 / r4         
+      
+      e1 = min(rk * tau, 500.) 
+      e2 = min(tau / xmu, 500.) 
+      
+      if (beam == 1) then
+         den = r4 * exp(e1) + r5 * exp(-e1)
+         ref  = w0*(r1*exp(e1)-r2*exp(-e1)-r3*exp(-e2))/den
+         den = t4 * exp(e1) + t5 * exp(-e1)
+         th  = exp(-e2)
+         tra = th-th*w0*(t1*exp(e1)-t2*exp(-e1)-t3*exp(e2))/den
+      elseif (beam == 2) then
+         ef1 = exp(-e1)
+         ef2 = exp(-2*e1)
+         ref = (gamma2*(1-ef2))/((rk+gamma1)*(1-beta*ef2))
+         tra = (2*rk*ef1)/((rk+gamma1)*(1-beta*ef2))
+      endif
+    end if
+  end subroutine two_stream
+  ! --------------------------------------------------
+  elemental function two_stream_reflectance(tauint, gint, w0int) 
+    real, intent(in) :: tauint, gint, w0int
+    real             :: two_stream_reflectance
+    !
+    ! Compute reflectance in a single layer using the two stream approximation 
+    !   The code itself is from Lazaros Oreopoulos via Steve Platnick 
+    !
+    ! ------------------------
+    ! Local variables 
+    !   for delta Eddington code
+    !   xmu, gamma3, and gamma4 only used for collimated beam approximation (i.e., beam=1)
+    integer, parameter :: beam = 2
+    real,    parameter :: xmu = 0.866, minConservativeW0 = 0.9999999
+    real :: tau, w0, g, f, gamma1, gamma2, gamma3, gamma4, &
+            rh, a1, a2, rk, r1, r2, r3, r4, r5, t1, t2, t3, t4, t5, beta, e1, e2, ef1, ef2, den
+    ! ------------------------
+
+
+    f   = gint**2
+    tau = (1 - w0int * f) * tauint
+    w0  = (1 - f) * w0int / (1 - w0int * f)
+    g   = (gint - f) / (1 - f)
+
+    ! delta-Eddington (Joseph et al. 1976)
+    gamma1 =  (7 - w0* (4 + 3 * g)) / 4.0
+    gamma2 = -(1 - w0* (4 - 3 * g)) / 4.0
+    gamma3 =  (2 - 3*g*xmu) / 4.0
+    gamma4 =   1 - gamma3
+
+    if (w0int > minConservativeW0) then
+      ! Conservative scattering
+      if (beam == 1) then
+          rh = (gamma1*tau+(gamma3-gamma1*xmu)*(1-exp(-tau/xmu)))
+          two_stream_reflectance = rh / (1 + gamma1 * tau)
+      elseif (beam == 2) then
+          two_stream_reflectance = gamma1*tau/(1 + gamma1*tau)
+      endif
+        
+    else    !
+
+        ! Non-conservative scattering
+         a1 = gamma1 * gamma4 + gamma2 * gamma3
+         a2 = gamma1 * gamma3 + gamma2 * gamma4
+
+         rk = sqrt(gamma1**2 - gamma2**2)
+         
+         r1 = (1 - rk * xmu) * (a2 + rk * gamma3)
+         r2 = (1 + rk * xmu) * (a2 - rk * gamma3)
+         r3 = 2 * rk *(gamma3 - a2 * xmu)
+         r4 = (1 - (rk * xmu)**2) * (rk + gamma1)
+         r5 = (1 - (rk * xmu)**2) * (rk - gamma1)
+         
+         t1 = (1 + rk * xmu) * (a1 + rk * gamma4)
+         t2 = (1 - rk * xmu) * (a1 - rk * gamma4)
+         t3 = 2 * rk * (gamma4 + a1 * xmu)
+         t4 = r4
+         t5 = r5
+
+         beta = -r5 / r4         
+         
+         e1 = min(rk * tau, 500.) 
+         e2 = min(tau / xmu, 500.) 
+         
+         if (beam == 1) then
+           den = r4 * exp(e1) + r5 * exp(-e1)
+           two_stream_reflectance  = w0*(r1*exp(e1)-r2*exp(-e1)-r3*exp(-e2))/den
+         elseif (beam == 2) then
+           ef1 = exp(-e1)
+           ef2 = exp(-2*e1)
+           two_stream_reflectance = (gamma2*(1-ef2))/((rk+gamma1)*(1-beta*ef2))
+         endif
+           
+      end if
+  end function two_stream_reflectance 
+  ! --------------------------------------------
+    pure subroutine adding_doubling (Refl, Tran, Refl_tot, Tran_tot)      
+      real,    dimension(:), intent(in)  :: Refl,     Tran
+      real,                  intent(out) :: Refl_tot, Tran_tot
+      !
+      ! Use adding/doubling formulas to compute total reflectance and transmittance from layer values
+      !
+      
+      integer :: i
+      real, dimension(size(Refl)) :: Refl_cumulative, Tran_cumulative
+      
+      Refl_cumulative(1) = Refl(1); Tran_cumulative(1) = Tran(1)    
+      
+      do i=2, size(Refl)
+          ! place (add) previous combined layer(s) reflectance on top of layer i, w/black surface (or ignoring surface):
+          Refl_cumulative(i) = Refl_cumulative(i-1) + Refl(i)*(Tran_cumulative(i-1)**2)/(1 - Refl_cumulative(i-1) * Refl(i))
+          Tran_cumulative(i) = (Tran_cumulative(i-1)*Tran(i)) / (1 - Refl_cumulative(i-1) * Refl(i))
+      end do
+      
+      Refl_tot = Refl_cumulative(size(Refl))
+      Tran_tot = Tran_cumulative(size(Refl))
+
+    end subroutine adding_doubling
+  ! --------------------------------------------------
+  subroutine complain_and_die(message) 
+    character(len = *), intent(in) :: message
+    
+    write(6, *) "Failure in MODIS simulator" 
+    write(6, *)  trim(message) 
+    stop
+  end subroutine complain_and_die
+  !------------------------------------------------------------------------------------------------
+end module mod_modis_sim
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/mrgrnk.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/mrgrnk.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/mrgrnk.F90	(revision 3330)
@@ -0,0 +1,410 @@
+Module m_mrgrnk
+Integer, Parameter :: kdp = selected_real_kind(15)
+public :: mrgrnk
+private :: kdp
+private :: I_mrgrnk, D_mrgrnk
+interface mrgrnk
+  module procedure D_mrgrnk, I_mrgrnk
+end interface mrgrnk
+contains
+
+Subroutine D_mrgrnk (XDONT, IRNGT)
+! __________________________________________________________
+!   MRGRNK = Merge-sort ranking of an array
+!   For performance reasons, the first 2 passes are taken
+!   out of the standard loop, and use dedicated coding.
+! __________________________________________________________
+! __________________________________________________________
+      Real (kind=kdp), Dimension (:), Intent (In) :: XDONT
+      Integer, Dimension (:), Intent (Out) :: IRNGT
+! __________________________________________________________
+      Real (kind=kdp) :: XVALA, XVALB
+!
+      Integer, Dimension (SIZE(IRNGT)) :: JWRKT
+      Integer :: LMTNA, LMTNC, IRNG1, IRNG2
+      Integer :: NVAL, IIND, IWRKD, IWRK, IWRKF, JINDA, IINDA, IINDB
+!
+      NVAL = Min (SIZE(XDONT), SIZE(IRNGT))
+      Select Case (NVAL)
+      Case (:0)
+         Return
+      Case (1)
+         IRNGT (1) = 1
+         Return
+      Case Default
+         Continue
+      End Select
+!
+!  Fill-in the index array, creating ordered couples
+!
+      Do IIND = 2, NVAL, 2
+         If (XDONT(IIND-1) <= XDONT(IIND)) Then
+            IRNGT (IIND-1) = IIND - 1
+            IRNGT (IIND) = IIND
+         Else
+            IRNGT (IIND-1) = IIND
+            IRNGT (IIND) = IIND - 1
+         End If
+      End Do
+      If (Modulo(NVAL, 2) /= 0) Then
+         IRNGT (NVAL) = NVAL
+      End If
+!
+!  We will now have ordered subsets A - B - A - B - ...
+!  and merge A and B couples into     C   -   C   - ...
+!
+      LMTNA = 2
+      LMTNC = 4
+!
+!  First iteration. The length of the ordered subsets goes from 2 to 4
+!
+      Do
+         If (NVAL <= 2) Exit
+!
+!   Loop on merges of A and B into C
+!
+         Do IWRKD = 0, NVAL - 1, 4
+            If ((IWRKD+4) > NVAL) Then
+               If ((IWRKD+2) >= NVAL) Exit
+!
+!   1 2 3
+!
+               If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Exit
+!
+!   1 3 2
+!
+               If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then
+                  IRNG2 = IRNGT (IWRKD+2)
+                  IRNGT (IWRKD+2) = IRNGT (IWRKD+3)
+                  IRNGT (IWRKD+3) = IRNG2
+!
+!   3 1 2
+!
+               Else
+                  IRNG1 = IRNGT (IWRKD+1)
+                  IRNGT (IWRKD+1) = IRNGT (IWRKD+3)
+                  IRNGT (IWRKD+3) = IRNGT (IWRKD+2)
+                  IRNGT (IWRKD+2) = IRNG1
+               End If
+               Exit
+            End If
+!
+!   1 2 3 4
+!
+            If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Cycle
+!
+!   1 3 x x
+!
+            If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then
+               IRNG2 = IRNGT (IWRKD+2)
+               IRNGT (IWRKD+2) = IRNGT (IWRKD+3)
+               If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then
+!   1 3 2 4
+                  IRNGT (IWRKD+3) = IRNG2
+               Else
+!   1 3 4 2
+                  IRNGT (IWRKD+3) = IRNGT (IWRKD+4)
+                  IRNGT (IWRKD+4) = IRNG2
+               End If
+!
+!   3 x x x
+!
+            Else
+               IRNG1 = IRNGT (IWRKD+1)
+               IRNG2 = IRNGT (IWRKD+2)
+               IRNGT (IWRKD+1) = IRNGT (IWRKD+3)
+               If (XDONT(IRNG1) <= XDONT(IRNGT(IWRKD+4))) Then
+                  IRNGT (IWRKD+2) = IRNG1
+                  If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then
+!   3 1 2 4
+                     IRNGT (IWRKD+3) = IRNG2
+                  Else
+!   3 1 4 2
+                     IRNGT (IWRKD+3) = IRNGT (IWRKD+4)
+                     IRNGT (IWRKD+4) = IRNG2
+                  End If
+               Else
+!   3 4 1 2
+                  IRNGT (IWRKD+2) = IRNGT (IWRKD+4)
+                  IRNGT (IWRKD+3) = IRNG1
+                  IRNGT (IWRKD+4) = IRNG2
+               End If
+            End If
+         End Do
+!
+!  The Cs become As and Bs
+!
+         LMTNA = 4
+         Exit
+      End Do
+!
+!  Iteration loop. Each time, the length of the ordered subsets
+!  is doubled.
+!
+      Do
+         If (LMTNA >= NVAL) Exit
+         IWRKF = 0
+         LMTNC = 2 * LMTNC
+!
+!   Loop on merges of A and B into C
+!
+         Do
+            IWRK = IWRKF
+            IWRKD = IWRKF + 1
+            JINDA = IWRKF + LMTNA
+            IWRKF = IWRKF + LMTNC
+            If (IWRKF >= NVAL) Then
+               If (JINDA >= NVAL) Exit
+               IWRKF = NVAL
+            End If
+            IINDA = 1
+            IINDB = JINDA + 1
+!
+!   Shortcut for the case when the max of A is smaller
+!   than the min of B. This line may be activated when the
+!   initial set is already close to sorted.
+!
+!          IF (XDONT(IRNGT(JINDA)) <= XDONT(IRNGT(IINDB))) CYCLE
+!
+!  One steps in the C subset, that we build in the final rank array
+!
+!  Make a copy of the rank array for the merge iteration
+!
+            JWRKT (1:LMTNA) = IRNGT (IWRKD:JINDA)
+!
+            XVALA = XDONT (JWRKT(IINDA))
+            XVALB = XDONT (IRNGT(IINDB))
+!
+            Do
+               IWRK = IWRK + 1
+!
+!  We still have unprocessed values in both A and B
+!
+               If (XVALA > XVALB) Then
+                  IRNGT (IWRK) = IRNGT (IINDB)
+                  IINDB = IINDB + 1
+                  If (IINDB > IWRKF) Then
+!  Only A still with unprocessed values
+                     IRNGT (IWRK+1:IWRKF) = JWRKT (IINDA:LMTNA)
+                     Exit
+                  End If
+                  XVALB = XDONT (IRNGT(IINDB))
+               Else
+                  IRNGT (IWRK) = JWRKT (IINDA)
+                  IINDA = IINDA + 1
+                  If (IINDA > LMTNA) Exit! Only B still with unprocessed values
+                  XVALA = XDONT (JWRKT(IINDA))
+               End If
+!
+            End Do
+         End Do
+!
+!  The Cs become As and Bs
+!
+         LMTNA = 2 * LMTNA
+      End Do
+!
+      Return
+!
+End Subroutine D_mrgrnk
+
+Subroutine I_mrgrnk (XDONT, IRNGT)
+! __________________________________________________________
+!   MRGRNK = Merge-sort ranking of an array
+!   For performance reasons, the first 2 passes are taken
+!   out of the standard loop, and use dedicated coding.
+! __________________________________________________________
+! __________________________________________________________
+      Integer, Dimension (:), Intent (In)  :: XDONT
+      Integer, Dimension (:), Intent (Out) :: IRNGT
+! __________________________________________________________
+      Integer :: XVALA, XVALB
+!
+      Integer, Dimension (SIZE(IRNGT)) :: JWRKT
+      Integer :: LMTNA, LMTNC, IRNG1, IRNG2
+      Integer :: NVAL, IIND, IWRKD, IWRK, IWRKF, JINDA, IINDA, IINDB
+!
+      NVAL = Min (SIZE(XDONT), SIZE(IRNGT))
+      Select Case (NVAL)
+      Case (:0)
+         Return
+      Case (1)
+         IRNGT (1) = 1
+         Return
+      Case Default
+         Continue
+      End Select
+!
+!  Fill-in the index array, creating ordered couples
+!
+      Do IIND = 2, NVAL, 2
+         If (XDONT(IIND-1) <= XDONT(IIND)) Then
+            IRNGT (IIND-1) = IIND - 1
+            IRNGT (IIND) = IIND
+         Else
+            IRNGT (IIND-1) = IIND
+            IRNGT (IIND) = IIND - 1
+         End If
+      End Do
+      If (Modulo(NVAL, 2) /= 0) Then
+         IRNGT (NVAL) = NVAL
+      End If
+!
+!  We will now have ordered subsets A - B - A - B - ...
+!  and merge A and B couples into     C   -   C   - ...
+!
+      LMTNA = 2
+      LMTNC = 4
+!
+!  First iteration. The length of the ordered subsets goes from 2 to 4
+!
+      Do
+         If (NVAL <= 2) Exit
+!
+!   Loop on merges of A and B into C
+!
+         Do IWRKD = 0, NVAL - 1, 4
+            If ((IWRKD+4) > NVAL) Then
+               If ((IWRKD+2) >= NVAL) Exit
+!
+!   1 2 3
+!
+               If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Exit
+!
+!   1 3 2
+!
+               If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then
+                  IRNG2 = IRNGT (IWRKD+2)
+                  IRNGT (IWRKD+2) = IRNGT (IWRKD+3)
+                  IRNGT (IWRKD+3) = IRNG2
+!
+!   3 1 2
+!
+               Else
+                  IRNG1 = IRNGT (IWRKD+1)
+                  IRNGT (IWRKD+1) = IRNGT (IWRKD+3)
+                  IRNGT (IWRKD+3) = IRNGT (IWRKD+2)
+                  IRNGT (IWRKD+2) = IRNG1
+               End If
+               Exit
+            End If
+!
+!   1 2 3 4
+!
+            If (XDONT(IRNGT(IWRKD+2)) <= XDONT(IRNGT(IWRKD+3))) Cycle
+!
+!   1 3 x x
+!
+            If (XDONT(IRNGT(IWRKD+1)) <= XDONT(IRNGT(IWRKD+3))) Then
+               IRNG2 = IRNGT (IWRKD+2)
+               IRNGT (IWRKD+2) = IRNGT (IWRKD+3)
+               If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then
+!   1 3 2 4
+                  IRNGT (IWRKD+3) = IRNG2
+               Else
+!   1 3 4 2
+                  IRNGT (IWRKD+3) = IRNGT (IWRKD+4)
+                  IRNGT (IWRKD+4) = IRNG2
+               End If
+!
+!   3 x x x
+!
+            Else
+               IRNG1 = IRNGT (IWRKD+1)
+               IRNG2 = IRNGT (IWRKD+2)
+               IRNGT (IWRKD+1) = IRNGT (IWRKD+3)
+               If (XDONT(IRNG1) <= XDONT(IRNGT(IWRKD+4))) Then
+                  IRNGT (IWRKD+2) = IRNG1
+                  If (XDONT(IRNG2) <= XDONT(IRNGT(IWRKD+4))) Then
+!   3 1 2 4
+                     IRNGT (IWRKD+3) = IRNG2
+                  Else
+!   3 1 4 2
+                     IRNGT (IWRKD+3) = IRNGT (IWRKD+4)
+                     IRNGT (IWRKD+4) = IRNG2
+                  End If
+               Else
+!   3 4 1 2
+                  IRNGT (IWRKD+2) = IRNGT (IWRKD+4)
+                  IRNGT (IWRKD+3) = IRNG1
+                  IRNGT (IWRKD+4) = IRNG2
+               End If
+            End If
+         End Do
+!
+!  The Cs become As and Bs
+!
+         LMTNA = 4
+         Exit
+      End Do
+!
+!  Iteration loop. Each time, the length of the ordered subsets
+!  is doubled.
+!
+      Do
+         If (LMTNA >= NVAL) Exit
+         IWRKF = 0
+         LMTNC = 2 * LMTNC
+!
+!   Loop on merges of A and B into C
+!
+         Do
+            IWRK = IWRKF
+            IWRKD = IWRKF + 1
+            JINDA = IWRKF + LMTNA
+            IWRKF = IWRKF + LMTNC
+            If (IWRKF >= NVAL) Then
+               If (JINDA >= NVAL) Exit
+               IWRKF = NVAL
+            End If
+            IINDA = 1
+            IINDB = JINDA + 1
+!
+!   Shortcut for the case when the max of A is smaller
+!   than the min of B. This line may be activated when the
+!   initial set is already close to sorted.
+!
+!          IF (XDONT(IRNGT(JINDA)) <= XDONT(IRNGT(IINDB))) CYCLE
+!
+!  One steps in the C subset, that we build in the final rank array
+!
+!  Make a copy of the rank array for the merge iteration
+!
+            JWRKT (1:LMTNA) = IRNGT (IWRKD:JINDA)
+!
+            XVALA = XDONT (JWRKT(IINDA))
+            XVALB = XDONT (IRNGT(IINDB))
+!
+            Do
+               IWRK = IWRK + 1
+!
+!  We still have unprocessed values in both A and B
+!
+               If (XVALA > XVALB) Then
+                  IRNGT (IWRK) = IRNGT (IINDB)
+                  IINDB = IINDB + 1
+                  If (IINDB > IWRKF) Then
+!  Only A still with unprocessed values
+                     IRNGT (IWRK+1:IWRKF) = JWRKT (IINDA:LMTNA)
+                     Exit
+                  End If
+                  XVALB = XDONT (IRNGT(IINDB))
+               Else
+                  IRNGT (IWRK) = JWRKT (IINDA)
+                  IINDA = IINDA + 1
+                  If (IINDA > LMTNA) Exit! Only B still with unprocessed values
+                  XVALA = XDONT (JWRKT(IINDA))
+               End If
+!
+            End Do
+         End Do
+!
+!  The Cs become As and Bs
+!
+         LMTNA = 2 * LMTNA
+      End Do
+!
+      Return
+!
+End Subroutine I_mrgrnk
+end module m_mrgrnk
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/optics_lib.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/optics_lib.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/optics_lib.F90	(revision 3330)
@@ -0,0 +1,751 @@
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/optics_lib.f90 $
+! OPTICS_LIB: Optical proecures for for F90
+! Compiled/Modified:
+!   07/01/06  John Haynes (haynes@atmos.colostate.edu)
+!
+! m_wat (subroutine)
+! m_ice (subroutine)
+! mie_int (subroutine)
+  
+  module optics_lib
+  implicit none
+
+  contains
+
+! ----------------------------------------------------------------------------
+! subroutine M_WAT
+! ----------------------------------------------------------------------------
+  subroutine m_wat(freq, tk, n_r, n_i)
+  implicit none
+!  
+! Purpose:
+!   compute complex index of refraction of liquid water
+!
+! Inputs:
+!   [freq]    frequency (GHz)
+!   [tk]       temperature (K)
+!
+! Outputs:
+!   [n_r]     real part index of refraction
+!   [n_i]     imaginary part index of refraction
+!
+! Reference:
+!   Based on the work of Ray (1972)
+!
+! Coded:
+!   03/22/05  John Haynes (haynes@atmos.colostate.edu)
+  
+! ----- INPUTS -----
+  real*8, intent(in) :: freq,tk
+  
+! ----- OUTPUTS -----
+  real*8, intent(out) :: n_r, n_i
+
+! ----- INTERNAL -----    
+  real*8 ld,es,ei,a,ls,sg,tm1,cos1,sin1
+  real*8 e_r,e_i
+  real*8 pi
+  real*8 tc
+  complex*16 e_comp, sq
+
+  tc = tk - 273.15
+
+  ld = 100.*2.99792458E8/(freq*1E9)
+  es = 78.54*(1-(4.579E-3*(tc-25.)+1.19E-5*(tc-25.)**2 &
+       -2.8E-8*(tc-25.)**3))
+  ei = 5.27137+0.021647*tc-0.00131198*tc**2
+  a = -(16.8129/(tc+273.))+0.0609265
+  ls = 0.00033836*exp(2513.98/(tc+273.))
+  sg = 12.5664E8
+
+  tm1 = (ls/ld)**(1-a)
+  pi = acos(-1.D0)
+  cos1 = cos(0.5*a*pi)
+  sin1 = sin(0.5*a*pi)
+
+  e_r = ei + (((es-ei)*(1.+tm1*sin1))/(1.+2*tm1*sin1+tm1**2))
+  e_i = (((es-ei)*tm1*cos1)/(1.+2*tm1*sin1+tm1**2)) &
+        +((sg*ld)/1.885E11)
+
+  e_comp = dcmplx(e_r,e_i)
+  sq = sqrt(e_comp)
+  
+  n_r = real(sq)
+  n_i = aimag(sq)      
+  
+  return
+  end subroutine m_wat
+
+! ----------------------------------------------------------------------------
+! subroutine M_ICE
+! ----------------------------------------------------------------------------
+  subroutine m_ice(freq,t,n_r,n_i)
+  implicit none
+!
+! Purpose:
+!   compute complex index of refraction of ice
+!
+! Inputs:
+!   [freq]    frequency (GHz)
+!   [t]       temperature (K)
+!
+! Outputs:
+!   [n_r]     real part index of refraction
+!   [n_i]     imaginary part index of refraction
+!
+! Reference:
+!    Fortran 90 port from IDL of REFICE by Stephen G. Warren
+!
+! Modified:
+!   05/31/05  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----
+  real*8, intent(in) :: freq, t
+  
+! ----- OUTPUTS -----  
+  real*8, intent(out) :: n_r,n_i
+
+! Parameters:
+  integer*2 :: i,lt1,lt2,nwl,nwlt
+  parameter(nwl=468,nwlt=62)
+
+  real*8 :: alam,cutice,pi,t1,t2,wlmax,wlmin, &
+            x,x1,x2,y,y1,y2,ylo,yhi,tk
+
+  real*8 :: &
+       tabim(nwl),tabimt(nwlt,4),tabre(nwl),tabret(nwlt,4),temref(4), &
+       wl(nwl),wlt(nwlt)
+
+! Defines wavelength dependent complex index of refraction for ice.
+! Allowable wavelength range extends from 0.045 microns to 8.6 meter
+! temperature dependence only considered beyond 167 microns.
+! 
+! interpolation is done     n_r  vs. log(xlam)
+!                           n_r  vs.        t
+!                       log(n_i) vs. log(xlam)
+!                       log(n_i) vs.        t
+!
+! Stephen G. Warren - 1983
+! Dept. of Atmospheric Sciences
+! University of Washington
+! Seattle, Wa  98195
+!
+! Based on
+!
+!    Warren,S.G.,1984.
+!    Optical constants of ice from the ultraviolet to the microwave.
+!    Applied Optics,23,1206-1225
+!
+! Reference temperatures are -1.0,-5.0,-20.0, and -60.0 deg C
+ 
+      data temref/272.16,268.16,253.16,213.16/
+ 
+      data wlmin,wlmax/0.045,8.6e6/
+      data cutice/167.0/
+ 
+      data (wl(i),i=1,114)/ &
+      0.4430e-01,0.4510e-01,0.4590e-01,0.4680e-01,0.4770e-01,0.4860e-01, &
+      0.4960e-01,0.5060e-01,0.5170e-01,0.5280e-01,0.5390e-01,0.5510e-01, &
+      0.5640e-01,0.5770e-01,0.5900e-01,0.6050e-01,0.6200e-01,0.6360e-01, &
+      0.6530e-01,0.6700e-01,0.6890e-01,0.7080e-01,0.7290e-01,0.7380e-01, &
+      0.7510e-01,0.7750e-01,0.8000e-01,0.8270e-01,0.8550e-01,0.8860e-01, &
+      0.9180e-01,0.9300e-01,0.9540e-01,0.9920e-01,0.1033e+00,0.1078e+00, &
+      0.1100e+00,0.1127e+00,0.1140e+00,0.1181e+00,0.1210e+00,0.1240e+00, &
+      0.1272e+00,0.1295e+00,0.1305e+00,0.1319e+00,0.1333e+00,0.1348e+00, &
+      0.1362e+00,0.1370e+00,0.1378e+00,0.1387e+00,0.1393e+00,0.1409e+00, &
+      0.1425e+00,0.1435e+00,0.1442e+00,0.1450e+00,0.1459e+00,0.1468e+00, &
+      0.1476e+00,0.1480e+00,0.1485e+00,0.1494e+00,0.1512e+00,0.1531e+00, &
+      0.1540e+00,0.1550e+00,0.1569e+00,0.1580e+00,0.1589e+00,0.1610e+00, &
+      0.1625e+00,0.1648e+00,0.1669e+00,0.1692e+00,0.1713e+00,0.1737e+00, &
+      0.1757e+00,0.1779e+00,0.1802e+00,0.1809e+00,0.1821e+00,0.1833e+00, &
+      0.1843e+00,0.1850e+00,0.1860e+00,0.1870e+00,0.1880e+00,0.1890e+00, &
+      0.1900e+00,0.1910e+00,0.1930e+00,0.1950e+00,0.2100e+00,0.2500e+00, &
+      0.3000e+00,0.3500e+00,0.4000e+00,0.4100e+00,0.4200e+00,0.4300e+00, &
+      0.4400e+00,0.4500e+00,0.4600e+00,0.4700e+00,0.4800e+00,0.4900e+00, &
+      0.5000e+00,0.5100e+00,0.5200e+00,0.5300e+00,0.5400e+00,0.5500e+00/
+      data (wl(i),i=115,228)/ &
+      0.5600e+00,0.5700e+00,0.5800e+00,0.5900e+00,0.6000e+00,0.6100e+00, &
+      0.6200e+00,0.6300e+00,0.6400e+00,0.6500e+00,0.6600e+00,0.6700e+00, &
+      0.6800e+00,0.6900e+00,0.7000e+00,0.7100e+00,0.7200e+00,0.7300e+00, &
+      0.7400e+00,0.7500e+00,0.7600e+00,0.7700e+00,0.7800e+00,0.7900e+00, &
+      0.8000e+00,0.8100e+00,0.8200e+00,0.8300e+00,0.8400e+00,0.8500e+00, &
+      0.8600e+00,0.8700e+00,0.8800e+00,0.8900e+00,0.9000e+00,0.9100e+00, &
+      0.9200e+00,0.9300e+00,0.9400e+00,0.9500e+00,0.9600e+00,0.9700e+00, &
+      0.9800e+00,0.9900e+00,0.1000e+01,0.1010e+01,0.1020e+01,0.1030e+01, &
+      0.1040e+01,0.1050e+01,0.1060e+01,0.1070e+01,0.1080e+01,0.1090e+01, &
+      0.1100e+01,0.1110e+01,0.1120e+01,0.1130e+01,0.1140e+01,0.1150e+01, &
+      0.1160e+01,0.1170e+01,0.1180e+01,0.1190e+01,0.1200e+01,0.1210e+01, &
+      0.1220e+01,0.1230e+01,0.1240e+01,0.1250e+01,0.1260e+01,0.1270e+01, &
+      0.1280e+01,0.1290e+01,0.1300e+01,0.1310e+01,0.1320e+01,0.1330e+01, &
+      0.1340e+01,0.1350e+01,0.1360e+01,0.1370e+01,0.1380e+01,0.1390e+01, &
+      0.1400e+01,0.1410e+01,0.1420e+01,0.1430e+01,0.1440e+01,0.1449e+01, &
+      0.1460e+01,0.1471e+01,0.1481e+01,0.1493e+01,0.1504e+01,0.1515e+01, &
+      0.1527e+01,0.1538e+01,0.1563e+01,0.1587e+01,0.1613e+01,0.1650e+01, &
+      0.1680e+01,0.1700e+01,0.1730e+01,0.1760e+01,0.1800e+01,0.1830e+01, &
+      0.1840e+01,0.1850e+01,0.1855e+01,0.1860e+01,0.1870e+01,0.1890e+01/
+      data (wl(i),i=229,342)/ &
+      0.1905e+01,0.1923e+01,0.1942e+01,0.1961e+01,0.1980e+01,0.2000e+01, &
+      0.2020e+01,0.2041e+01,0.2062e+01,0.2083e+01,0.2105e+01,0.2130e+01, &
+      0.2150e+01,0.2170e+01,0.2190e+01,0.2220e+01,0.2240e+01,0.2245e+01, &
+      0.2250e+01,0.2260e+01,0.2270e+01,0.2290e+01,0.2310e+01,0.2330e+01, &
+      0.2350e+01,0.2370e+01,0.2390e+01,0.2410e+01,0.2430e+01,0.2460e+01, &
+      0.2500e+01,0.2520e+01,0.2550e+01,0.2565e+01,0.2580e+01,0.2590e+01, &
+      0.2600e+01,0.2620e+01,0.2675e+01,0.2725e+01,0.2778e+01,0.2817e+01, &
+      0.2833e+01,0.2849e+01,0.2865e+01,0.2882e+01,0.2899e+01,0.2915e+01, &
+      0.2933e+01,0.2950e+01,0.2967e+01,0.2985e+01,0.3003e+01,0.3021e+01, &
+      0.3040e+01,0.3058e+01,0.3077e+01,0.3096e+01,0.3115e+01,0.3135e+01, &
+      0.3155e+01,0.3175e+01,0.3195e+01,0.3215e+01,0.3236e+01,0.3257e+01, &
+      0.3279e+01,0.3300e+01,0.3322e+01,0.3345e+01,0.3367e+01,0.3390e+01, &
+      0.3413e+01,0.3436e+01,0.3460e+01,0.3484e+01,0.3509e+01,0.3534e+01, &
+      0.3559e+01,0.3624e+01,0.3732e+01,0.3775e+01,0.3847e+01,0.3969e+01, &
+      0.4099e+01,0.4239e+01,0.4348e+01,0.4387e+01,0.4444e+01,0.4505e+01, &
+      0.4547e+01,0.4560e+01,0.4580e+01,0.4719e+01,0.4904e+01,0.5000e+01, &
+      0.5100e+01,0.5200e+01,0.5263e+01,0.5400e+01,0.5556e+01,0.5714e+01, &
+      0.5747e+01,0.5780e+01,0.5814e+01,0.5848e+01,0.5882e+01,0.6061e+01, &
+      0.6135e+01,0.6250e+01,0.6289e+01,0.6329e+01,0.6369e+01,0.6410e+01/
+      data (wl(i),i=343,456)/ &
+      0.6452e+01,0.6494e+01,0.6579e+01,0.6667e+01,0.6757e+01,0.6897e+01, &
+      0.7042e+01,0.7143e+01,0.7246e+01,0.7353e+01,0.7463e+01,0.7576e+01, &
+      0.7692e+01,0.7812e+01,0.7937e+01,0.8065e+01,0.8197e+01,0.8333e+01, &
+      0.8475e+01,0.8696e+01,0.8929e+01,0.9091e+01,0.9259e+01,0.9524e+01, &
+      0.9804e+01,0.1000e+02,0.1020e+02,0.1031e+02,0.1042e+02,0.1053e+02, &
+      0.1064e+02,0.1075e+02,0.1087e+02,0.1100e+02,0.1111e+02,0.1136e+02, &
+      0.1163e+02,0.1190e+02,0.1220e+02,0.1250e+02,0.1282e+02,0.1299e+02, &
+      0.1316e+02,0.1333e+02,0.1351e+02,0.1370e+02,0.1389e+02,0.1408e+02, &
+      0.1429e+02,0.1471e+02,0.1515e+02,0.1538e+02,0.1563e+02,0.1613e+02, &
+      0.1639e+02,0.1667e+02,0.1695e+02,0.1724e+02,0.1818e+02,0.1887e+02, &
+      0.1923e+02,0.1961e+02,0.2000e+02,0.2041e+02,0.2083e+02,0.2222e+02, &
+      0.2260e+02,0.2305e+02,0.2360e+02,0.2460e+02,0.2500e+02,0.2600e+02, &
+      0.2857e+02,0.3100e+02,0.3333e+02,0.3448e+02,0.3564e+02,0.3700e+02, &
+      0.3824e+02,0.3960e+02,0.4114e+02,0.4276e+02,0.4358e+02,0.4458e+02, &
+      0.4550e+02,0.4615e+02,0.4671e+02,0.4736e+02,0.4800e+02,0.4878e+02, &
+      0.5003e+02,0.5128e+02,0.5275e+02,0.5350e+02,0.5424e+02,0.5500e+02, &
+      0.5574e+02,0.5640e+02,0.5700e+02,0.5746e+02,0.5840e+02,0.5929e+02, &
+      0.6000e+02,0.6100e+02,0.6125e+02,0.6250e+02,0.6378e+02,0.6467e+02, &
+      0.6558e+02,0.6655e+02,0.6760e+02,0.6900e+02,0.7053e+02,0.7300e+02/
+      data (wl(i),i=457,468)/ &
+      0.7500e+02,0.7629e+02,0.8000e+02,0.8297e+02,0.8500e+02,0.8680e+02, &
+      0.9080e+02,0.9517e+02,0.1000e+03,0.1200e+03,0.1500e+03,0.1670e+03/
+      data  wlt/ &
+                                       0.1670e+03,0.1778e+03,0.1884e+03, &
+      0.1995e+03,0.2113e+03,0.2239e+03,0.2371e+03,0.2512e+03,0.2661e+03, &
+      0.2818e+03,0.2985e+03,0.3162e+03,0.3548e+03,0.3981e+03,0.4467e+03, &
+      0.5012e+03,0.5623e+03,0.6310e+03,0.7943e+03,0.1000e+04,0.1259e+04, &
+      0.2500e+04,0.5000e+04,0.1000e+05,0.2000e+05,0.3200e+05,0.3500e+05, &
+      0.4000e+05,0.4500e+05,0.5000e+05,0.6000e+05,0.7000e+05,0.9000e+05, &
+      0.1110e+06,0.1200e+06,0.1300e+06,0.1400e+06,0.1500e+06,0.1600e+06, &
+      0.1700e+06,0.1800e+06,0.2000e+06,0.2500e+06,0.2900e+06,0.3200e+06, &
+      0.3500e+06,0.3800e+06,0.4000e+06,0.4500e+06,0.5000e+06,0.6000e+06, &
+      0.6400e+06,0.6800e+06,0.7200e+06,0.7600e+06,0.8000e+06,0.8400e+06, &
+      0.9000e+06,0.1000e+07,0.2000e+07,0.5000e+07,0.8600e+07/
+      data (tabre(i),i=1,114)/ &
+         0.83441,   0.83676,   0.83729,   0.83771,   0.83827,   0.84038, &
+         0.84719,   0.85522,   0.86047,   0.86248,   0.86157,   0.86093, &
+         0.86419,   0.86916,   0.87764,   0.89296,   0.91041,   0.93089, &
+         0.95373,   0.98188,   1.02334,   1.06735,   1.11197,   1.13134, &
+         1.15747,   1.20045,   1.23840,   1.27325,   1.32157,   1.38958, &
+         1.41644,   1.40906,   1.40063,   1.40169,   1.40934,   1.40221, &
+         1.39240,   1.38424,   1.38075,   1.38186,   1.39634,   1.40918, &
+         1.40256,   1.38013,   1.36303,   1.34144,   1.32377,   1.30605, &
+         1.29054,   1.28890,   1.28931,   1.30190,   1.32025,   1.36302, &
+         1.41872,   1.45834,   1.49028,   1.52128,   1.55376,   1.57782, &
+         1.59636,   1.60652,   1.61172,   1.61919,   1.62522,   1.63404, &
+         1.63689,   1.63833,   1.63720,   1.63233,   1.62222,   1.58269, &
+         1.55635,   1.52453,   1.50320,   1.48498,   1.47226,   1.45991, &
+         1.45115,   1.44272,   1.43498,   1.43280,   1.42924,   1.42602, &
+         1.42323,   1.42143,   1.41897,   1.41660,   1.41434,   1.41216, &
+         1.41006,   1.40805,   1.40423,   1.40067,   1.38004,   1.35085, &
+         1.33394,   1.32492,   1.31940,   1.31854,   1.31775,   1.31702, &
+         1.31633,   1.31569,   1.31509,   1.31452,   1.31399,   1.31349, &
+         1.31302,   1.31257,   1.31215,   1.31175,   1.31136,   1.31099/
+      data (tabre(i),i=115,228)/ &
+         1.31064,   1.31031,   1.30999,   1.30968,   1.30938,   1.30909, &
+         1.30882,   1.30855,   1.30829,   1.30804,   1.30780,   1.30756, &
+         1.30733,   1.30710,   1.30688,   1.30667,   1.30646,   1.30625, &
+         1.30605,   1.30585,   1.30566,   1.30547,   1.30528,   1.30509, &
+         1.30491,   1.30473,   1.30455,   1.30437,   1.30419,   1.30402, &
+         1.30385,   1.30367,   1.30350,   1.30333,   1.30316,   1.30299, &
+         1.30283,   1.30266,   1.30249,   1.30232,   1.30216,   1.30199, &
+         1.30182,   1.30166,   1.30149,   1.30132,   1.30116,   1.30099, &
+         1.30082,   1.30065,   1.30048,   1.30031,   1.30014,   1.29997, &
+         1.29979,   1.29962,   1.29945,   1.29927,   1.29909,   1.29891, &
+         1.29873,   1.29855,   1.29837,   1.29818,   1.29800,   1.29781, &
+         1.29762,   1.29743,   1.29724,   1.29705,   1.29686,   1.29666, &
+         1.29646,   1.29626,   1.29605,   1.29584,   1.29563,   1.29542, &
+         1.29521,   1.29499,   1.29476,   1.29453,   1.29430,   1.29406, &
+         1.29381,   1.29355,   1.29327,   1.29299,   1.29272,   1.29252, &
+         1.29228,   1.29205,   1.29186,   1.29167,   1.29150,   1.29130, &
+         1.29106,   1.29083,   1.29025,   1.28962,   1.28891,   1.28784, &
+         1.28689,   1.28623,   1.28521,   1.28413,   1.28261,   1.28137, &
+         1.28093,   1.28047,   1.28022,   1.27998,   1.27948,   1.27849/
+      data (tabre(i),i=229,342)/ &
+         1.27774,   1.27691,   1.27610,   1.27535,   1.27471,   1.27404, &
+         1.27329,   1.27240,   1.27139,   1.27029,   1.26901,   1.26736, &
+         1.26591,   1.26441,   1.26284,   1.26036,   1.25860,   1.25815, &
+         1.25768,   1.25675,   1.25579,   1.25383,   1.25179,   1.24967, &
+         1.24745,   1.24512,   1.24266,   1.24004,   1.23725,   1.23270, &
+         1.22583,   1.22198,   1.21548,   1.21184,   1.20790,   1.20507, &
+         1.20209,   1.19566,   1.17411,   1.14734,   1.10766,   1.06739, &
+         1.04762,   1.02650,   1.00357,   0.98197,   0.96503,   0.95962, &
+         0.97269,   0.99172,   1.00668,   1.02186,   1.04270,   1.07597, &
+         1.12954,   1.21267,   1.32509,   1.42599,   1.49656,   1.55095, &
+         1.59988,   1.63631,   1.65024,   1.64278,   1.62691,   1.61284, &
+         1.59245,   1.57329,   1.55770,   1.54129,   1.52654,   1.51139, &
+         1.49725,   1.48453,   1.47209,   1.46125,   1.45132,   1.44215, &
+         1.43366,   1.41553,   1.39417,   1.38732,   1.37735,   1.36448, &
+         1.35414,   1.34456,   1.33882,   1.33807,   1.33847,   1.34053, &
+         1.34287,   1.34418,   1.34634,   1.34422,   1.33453,   1.32897, &
+         1.32333,   1.31800,   1.31432,   1.30623,   1.29722,   1.28898, &
+         1.28730,   1.28603,   1.28509,   1.28535,   1.28813,   1.30156, &
+         1.30901,   1.31720,   1.31893,   1.32039,   1.32201,   1.32239/
+      data (tabre(i),i=343,456)/ &
+         1.32149,   1.32036,   1.31814,   1.31705,   1.31807,   1.31953, &
+         1.31933,   1.31896,   1.31909,   1.31796,   1.31631,   1.31542, &
+         1.31540,   1.31552,   1.31455,   1.31193,   1.30677,   1.29934, &
+         1.29253,   1.28389,   1.27401,   1.26724,   1.25990,   1.24510, &
+         1.22241,   1.19913,   1.17150,   1.15528,   1.13700,   1.11808, &
+         1.10134,   1.09083,   1.08734,   1.09254,   1.10654,   1.14779, &
+         1.20202,   1.25825,   1.32305,   1.38574,   1.44478,   1.47170, &
+         1.49619,   1.51652,   1.53328,   1.54900,   1.56276,   1.57317, &
+         1.58028,   1.57918,   1.56672,   1.55869,   1.55081,   1.53807, &
+         1.53296,   1.53220,   1.53340,   1.53289,   1.51705,   1.50097, &
+         1.49681,   1.49928,   1.50153,   1.49856,   1.49053,   1.46070, &
+         1.45182,   1.44223,   1.43158,   1.41385,   1.40676,   1.38955, &
+         1.34894,   1.31039,   1.26420,   1.23656,   1.21663,   1.20233, &
+         1.19640,   1.19969,   1.20860,   1.22173,   1.24166,   1.28175, &
+         1.32784,   1.38657,   1.46486,   1.55323,   1.60379,   1.61877, &
+         1.62963,   1.65712,   1.69810,   1.72065,   1.74865,   1.76736, &
+         1.76476,   1.75011,   1.72327,   1.68490,   1.62398,   1.59596, &
+         1.58514,   1.59917,   1.61405,   1.66625,   1.70663,   1.73713, &
+         1.76860,   1.80343,   1.83296,   1.85682,   1.87411,   1.89110/
+      data (tabre(i),i=457,468)/ &
+         1.89918,   1.90432,   1.90329,   1.88744,   1.87499,   1.86702, &
+         1.85361,   1.84250,   1.83225,   1.81914,   1.82268,   1.82961/
+      data (tabret(i,1),i=1,nwlt)/ &
+                                          1.82961,   1.83258,   1.83149, &
+         1.82748,   1.82224,   1.81718,   1.81204,   1.80704,   1.80250, &
+         1.79834,   1.79482,   1.79214,   1.78843,   1.78601,   1.78434, &
+         1.78322,   1.78248,   1.78201,   1.78170,   1.78160,   1.78190, &
+         1.78300,   1.78430,   1.78520,   1.78620,   1.78660,   1.78680, &
+         1.78690,   1.78700,   1.78700,   1.78710,   1.78710,   1.78720, &
+         1.78720,   1.78720,   1.78720,   1.78720,   1.78720,   1.78720, &
+         1.78720,   1.78720,   1.78720,   1.78720,   1.78720,   1.78720, &
+         1.78720,   1.78720,   1.78720,   1.78720,   1.78720,   1.78720, &
+         1.78720,   1.78720,   1.78720,   1.78720,   1.78720,   1.78720, &
+         1.78720,   1.78720,   1.78720,   1.78720,   1.78800/
+      data (tabret(i,2),i=1,nwlt)/ &
+                               1.82961,   1.83258,   1.83149,   1.82748, &
+         1.82224,   1.81718,   1.81204,   1.80704,   1.80250,   1.79834, &
+         1.79482,   1.79214,   1.78843,   1.78601,   1.78434,   1.78322, &
+         1.78248,   1.78201,   1.78170,   1.78160,   1.78190,   1.78300, &
+         1.78430,   1.78520,   1.78610,   1.78630,   1.78640,   1.78650, &
+         1.78650,   1.78650,   1.78650,   1.78650,   1.78650,   1.78650, &
+         1.78650,   1.78650,   1.78650,   1.78650,   1.78650,   1.78650, &
+         1.78650,   1.78650,   1.78650,   1.78650,   1.78650,   1.78650, &
+         1.78650,   1.78650,   1.78650,   1.78650,   1.78650,   1.78650, &
+         1.78650,   1.78650,   1.78650,   1.78650,   1.78650,   1.78650, &
+         1.78650,   1.78650,   1.78650,   1.78720/
+      data(tabret(i,3),i=1,nwlt)/ &
+                    1.82961,   1.83258,   1.83149,   1.82748,   1.82224, &
+         1.81718,   1.81204,   1.80704,   1.80250,   1.79834,   1.79482, &
+         1.79214,   1.78843,   1.78601,   1.78434,   1.78322,   1.78248, &
+         1.78201,   1.78160,   1.78140,   1.78160,   1.78220,   1.78310, &
+         1.78380,   1.78390,   1.78400,   1.78400,   1.78400,   1.78400, &
+         1.78400,   1.78390,   1.78380,   1.78370,   1.78370,   1.78370, &
+         1.78370,   1.78370,   1.78370,   1.78370,   1.78370,   1.78370, &
+         1.78370,   1.78370,   1.78370,   1.78370,   1.78370,   1.78370, &
+         1.78370,   1.78370,   1.78370,   1.78370,   1.78370,   1.78370, &
+         1.78370,   1.78370,   1.78370,   1.78370,   1.78370,   1.78370, &
+         1.78370,   1.78400,   1.78450/
+      data (tabret(i,4),i=1,nwlt)/ &
+         1.82961,   1.83258,   1.83149,   1.82748,   1.82224,   1.81718, &
+         1.81204,   1.80704,   1.80250,   1.79834,   1.79482,   1.79214, &
+         1.78843,   1.78601,   1.78434,   1.78322,   1.78248,   1.78201, &
+         1.78150,   1.78070,   1.78010,   1.77890,   1.77790,   1.77730, &
+         1.77720,   1.77720,   1.77720,   1.77720,   1.77720,   1.77720, &
+         1.77720,   1.77720,   1.77720,   1.77720,   1.77720,   1.77720, &
+         1.77720,   1.77720,   1.77720,   1.77720,   1.77720,   1.77720, &
+         1.77720,   1.77720,   1.77720,   1.77720,   1.77720,   1.77720, &
+         1.77720,   1.77720,   1.77720,   1.77720,   1.77720,   1.77720, &
+         1.77720,   1.77720,   1.77720,   1.77720,   1.77720,   1.77720, &
+         1.77720,   1.77800/
+      data(tabim(i),i=1,114)/ &
+      0.1640e+00,0.1730e+00,0.1830e+00,0.1950e+00,0.2080e+00,0.2230e+00, &
+      0.2400e+00,0.2500e+00,0.2590e+00,0.2680e+00,0.2790e+00,0.2970e+00, &
+      0.3190e+00,0.3400e+00,0.3660e+00,0.3920e+00,0.4160e+00,0.4400e+00, &
+      0.4640e+00,0.4920e+00,0.5170e+00,0.5280e+00,0.5330e+00,0.5340e+00, &
+      0.5310e+00,0.5240e+00,0.5100e+00,0.5000e+00,0.4990e+00,0.4680e+00, &
+      0.3800e+00,0.3600e+00,0.3390e+00,0.3180e+00,0.2910e+00,0.2510e+00, &
+      0.2440e+00,0.2390e+00,0.2390e+00,0.2440e+00,0.2470e+00,0.2240e+00, &
+      0.1950e+00,0.1740e+00,0.1720e+00,0.1800e+00,0.1940e+00,0.2130e+00, &
+      0.2430e+00,0.2710e+00,0.2890e+00,0.3340e+00,0.3440e+00,0.3820e+00, &
+      0.4010e+00,0.4065e+00,0.4050e+00,0.3890e+00,0.3770e+00,0.3450e+00, &
+      0.3320e+00,0.3150e+00,0.2980e+00,0.2740e+00,0.2280e+00,0.1980e+00, &
+      0.1720e+00,0.1560e+00,0.1100e+00,0.8300e-01,0.5800e-01,0.2200e-01, &
+      0.1000e-01,0.3000e-02,0.1000e-02,0.3000e-03,0.1000e-03,0.3000e-04, &
+      0.1000e-04,0.3000e-05,0.1000e-05,0.7000e-06,0.4000e-06,0.2000e-06, &
+      0.1000e-06,0.6377e-07,0.3750e-07,0.2800e-07,0.2400e-07,0.2200e-07, &
+      0.1900e-07,0.1750e-07,0.1640e-07,0.1590e-07,0.1325e-07,0.8623e-08, &
+      0.5504e-08,0.3765e-08,0.2710e-08,0.2510e-08,0.2260e-08,0.2080e-08, &
+      0.1910e-08,0.1540e-08,0.1530e-08,0.1550e-08,0.1640e-08,0.1780e-08, &
+      0.1910e-08,0.2140e-08,0.2260e-08,0.2540e-08,0.2930e-08,0.3110e-08/
+      data(tabim(i),i=115,228)/ &
+      0.3290e-08,0.3520e-08,0.4040e-08,0.4880e-08,0.5730e-08,0.6890e-08, &
+      0.8580e-08,0.1040e-07,0.1220e-07,0.1430e-07,0.1660e-07,0.1890e-07, &
+      0.2090e-07,0.2400e-07,0.2900e-07,0.3440e-07,0.4030e-07,0.4300e-07, &
+      0.4920e-07,0.5870e-07,0.7080e-07,0.8580e-07,0.1020e-06,0.1180e-06, &
+      0.1340e-06,0.1400e-06,0.1430e-06,0.1450e-06,0.1510e-06,0.1830e-06, &
+      0.2150e-06,0.2650e-06,0.3350e-06,0.3920e-06,0.4200e-06,0.4440e-06, &
+      0.4740e-06,0.5110e-06,0.5530e-06,0.6020e-06,0.7550e-06,0.9260e-06, &
+      0.1120e-05,0.1330e-05,0.1620e-05,0.2000e-05,0.2250e-05,0.2330e-05, &
+      0.2330e-05,0.2170e-05,0.1960e-05,0.1810e-05,0.1740e-05,0.1730e-05, &
+      0.1700e-05,0.1760e-05,0.1820e-05,0.2040e-05,0.2250e-05,0.2290e-05, &
+      0.3040e-05,0.3840e-05,0.4770e-05,0.5760e-05,0.6710e-05,0.8660e-05, &
+      0.1020e-04,0.1130e-04,0.1220e-04,0.1290e-04,0.1320e-04,0.1350e-04, &
+      0.1330e-04,0.1320e-04,0.1320e-04,0.1310e-04,0.1320e-04,0.1320e-04, &
+      0.1340e-04,0.1390e-04,0.1420e-04,0.1480e-04,0.1580e-04,0.1740e-04, &
+      0.1980e-04,0.2500e-04,0.5400e-04,0.1040e-03,0.2030e-03,0.2708e-03, &
+      0.3511e-03,0.4299e-03,0.5181e-03,0.5855e-03,0.5899e-03,0.5635e-03, &
+      0.5480e-03,0.5266e-03,0.4394e-03,0.3701e-03,0.3372e-03,0.2410e-03, &
+      0.1890e-03,0.1660e-03,0.1450e-03,0.1280e-03,0.1030e-03,0.8600e-04, &
+      0.8220e-04,0.8030e-04,0.8500e-04,0.9900e-04,0.1500e-03,0.2950e-03/
+      data(tabim(i),i=229,342)/ &
+      0.4687e-03,0.7615e-03,0.1010e-02,0.1313e-02,0.1539e-02,0.1588e-02, &
+      0.1540e-02,0.1412e-02,0.1244e-02,0.1068e-02,0.8414e-03,0.5650e-03, &
+      0.4320e-03,0.3500e-03,0.2870e-03,0.2210e-03,0.2030e-03,0.2010e-03, &
+      0.2030e-03,0.2140e-03,0.2320e-03,0.2890e-03,0.3810e-03,0.4620e-03, &
+      0.5480e-03,0.6180e-03,0.6800e-03,0.7300e-03,0.7820e-03,0.8480e-03, &
+      0.9250e-03,0.9200e-03,0.8920e-03,0.8700e-03,0.8900e-03,0.9300e-03, &
+      0.1010e-02,0.1350e-02,0.3420e-02,0.7920e-02,0.2000e-01,0.3800e-01, &
+      0.5200e-01,0.6800e-01,0.9230e-01,0.1270e+00,0.1690e+00,0.2210e+00, &
+      0.2760e+00,0.3120e+00,0.3470e+00,0.3880e+00,0.4380e+00,0.4930e+00, &
+      0.5540e+00,0.6120e+00,0.6250e+00,0.5930e+00,0.5390e+00,0.4910e+00, &
+      0.4380e+00,0.3720e+00,0.3000e+00,0.2380e+00,0.1930e+00,0.1580e+00, &
+      0.1210e+00,0.1030e+00,0.8360e-01,0.6680e-01,0.5400e-01,0.4220e-01, &
+      0.3420e-01,0.2740e-01,0.2200e-01,0.1860e-01,0.1520e-01,0.1260e-01, &
+      0.1060e-01,0.8020e-02,0.6850e-02,0.6600e-02,0.6960e-02,0.9160e-02, &
+      0.1110e-01,0.1450e-01,0.2000e-01,0.2300e-01,0.2600e-01,0.2900e-01, &
+      0.2930e-01,0.3000e-01,0.2850e-01,0.1730e-01,0.1290e-01,0.1200e-01, &
+      0.1250e-01,0.1340e-01,0.1400e-01,0.1750e-01,0.2400e-01,0.3500e-01, &
+      0.3800e-01,0.4200e-01,0.4600e-01,0.5200e-01,0.5700e-01,0.6900e-01, &
+      0.7000e-01,0.6700e-01,0.6500e-01,0.6400e-01,0.6200e-01,0.5900e-01/
+      data(tabim(i),i=343,456)/ &
+      0.5700e-01,0.5600e-01,0.5500e-01,0.5700e-01,0.5800e-01,0.5700e-01, &
+      0.5500e-01,0.5500e-01,0.5400e-01,0.5200e-01,0.5200e-01,0.5200e-01, &
+      0.5200e-01,0.5000e-01,0.4700e-01,0.4300e-01,0.3900e-01,0.3700e-01, &
+      0.3900e-01,0.4000e-01,0.4200e-01,0.4400e-01,0.4500e-01,0.4600e-01, &
+      0.4700e-01,0.5100e-01,0.6500e-01,0.7500e-01,0.8800e-01,0.1080e+00, &
+      0.1340e+00,0.1680e+00,0.2040e+00,0.2480e+00,0.2800e+00,0.3410e+00, &
+      0.3790e+00,0.4090e+00,0.4220e+00,0.4220e+00,0.4030e+00,0.3890e+00, &
+      0.3740e+00,0.3540e+00,0.3350e+00,0.3150e+00,0.2940e+00,0.2710e+00, &
+      0.2460e+00,0.1980e+00,0.1640e+00,0.1520e+00,0.1420e+00,0.1280e+00, &
+      0.1250e+00,0.1230e+00,0.1160e+00,0.1070e+00,0.7900e-01,0.7200e-01, &
+      0.7600e-01,0.7500e-01,0.6700e-01,0.5500e-01,0.4500e-01,0.2900e-01, &
+      0.2750e-01,0.2700e-01,0.2730e-01,0.2890e-01,0.3000e-01,0.3400e-01, &
+      0.5300e-01,0.7550e-01,0.1060e+00,0.1350e+00,0.1761e+00,0.2229e+00, &
+      0.2746e+00,0.3280e+00,0.3906e+00,0.4642e+00,0.5247e+00,0.5731e+00, &
+      0.6362e+00,0.6839e+00,0.7091e+00,0.6790e+00,0.6250e+00,0.5654e+00, &
+      0.5433e+00,0.5292e+00,0.5070e+00,0.4883e+00,0.4707e+00,0.4203e+00, &
+      0.3771e+00,0.3376e+00,0.3056e+00,0.2835e+00,0.3170e+00,0.3517e+00, &
+      0.3902e+00,0.4509e+00,0.4671e+00,0.4779e+00,0.4890e+00,0.4899e+00, &
+      0.4873e+00,0.4766e+00,0.4508e+00,0.4193e+00,0.3880e+00,0.3433e+00/
+      data(tabim(i),i=457,468)/ &
+      0.3118e+00,0.2935e+00,0.2350e+00,0.1981e+00,0.1865e+00,0.1771e+00, &
+      0.1620e+00,0.1490e+00,0.1390e+00,0.1200e+00,0.9620e-01,0.8300e-01/
+      data(tabimt(i,1),i=1,nwlt)/ &
+                                       0.8300e-01,0.6900e-01,0.5700e-01, &
+      0.4560e-01,0.3790e-01,0.3140e-01,0.2620e-01,0.2240e-01,0.1960e-01, &
+      0.1760e-01,0.1665e-01,0.1620e-01,0.1550e-01,0.1470e-01,0.1390e-01, &
+      0.1320e-01,0.1250e-01,0.1180e-01,0.1060e-01,0.9540e-02,0.8560e-02, &
+      0.6210e-02,0.4490e-02,0.3240e-02,0.2340e-02,0.1880e-02,0.1740e-02, &
+      0.1500e-02,0.1320e-02,0.1160e-02,0.8800e-03,0.6950e-03,0.4640e-03, &
+      0.3400e-03,0.3110e-03,0.2940e-03,0.2790e-03,0.2700e-03,0.2640e-03, &
+      0.2580e-03,0.2520e-03,0.2490e-03,0.2540e-03,0.2640e-03,0.2740e-03, &
+      0.2890e-03,0.3050e-03,0.3150e-03,0.3460e-03,0.3820e-03,0.4620e-03, &
+      0.5000e-03,0.5500e-03,0.5950e-03,0.6470e-03,0.6920e-03,0.7420e-03, &
+      0.8200e-03,0.9700e-03,0.1950e-02,0.5780e-02,0.9700e-02/
+      data(tabimt(i,2),i=1,nwlt)/ &
+                            0.8300e-01,0.6900e-01,0.5700e-01,0.4560e-01, &
+      0.3790e-01,0.3140e-01,0.2620e-01,0.2240e-01,0.1960e-01,0.1760e-01, &
+      0.1665e-01,0.1600e-01,0.1500e-01,0.1400e-01,0.1310e-01,0.1230e-01, &
+      0.1150e-01,0.1080e-01,0.9460e-02,0.8290e-02,0.7270e-02,0.4910e-02, &
+      0.3300e-02,0.2220e-02,0.1490e-02,0.1140e-02,0.1060e-02,0.9480e-03, &
+      0.8500e-03,0.7660e-03,0.6300e-03,0.5200e-03,0.3840e-03,0.2960e-03, &
+      0.2700e-03,0.2520e-03,0.2440e-03,0.2360e-03,0.2300e-03,0.2280e-03, &
+      0.2250e-03,0.2200e-03,0.2160e-03,0.2170e-03,0.2200e-03,0.2250e-03, &
+      0.2320e-03,0.2390e-03,0.2600e-03,0.2860e-03,0.3560e-03,0.3830e-03, &
+      0.4150e-03,0.4450e-03,0.4760e-03,0.5080e-03,0.5400e-03,0.5860e-03, &
+      0.6780e-03,0.1280e-02,0.3550e-02,0.5600e-02/
+      data(tabimt(i,3),i=1,nwlt)/ &
+                 0.8300e-01,0.6900e-01,0.5700e-01,0.4560e-01,0.3790e-01, &
+      0.3140e-01,0.2620e-01,0.2190e-01,0.1880e-01,0.1660e-01,0.1540e-01, &
+      0.1470e-01,0.1350e-01,0.1250e-01,0.1150e-01,0.1060e-01,0.9770e-02, &
+      0.9010e-02,0.7660e-02,0.6520e-02,0.5540e-02,0.3420e-02,0.2100e-02, &
+      0.1290e-02,0.7930e-03,0.5700e-03,0.5350e-03,0.4820e-03,0.4380e-03, &
+      0.4080e-03,0.3500e-03,0.3200e-03,0.2550e-03,0.2120e-03,0.2000e-03, &
+      0.1860e-03,0.1750e-03,0.1660e-03,0.1560e-03,0.1490e-03,0.1440e-03, &
+      0.1350e-03,0.1210e-03,0.1160e-03,0.1160e-03,0.1170e-03,0.1200e-03, &
+      0.1230e-03,0.1320e-03,0.1440e-03,0.1680e-03,0.1800e-03,0.1900e-03, &
+      0.2090e-03,0.2160e-03,0.2290e-03,0.2400e-03,0.2600e-03,0.2920e-03, &
+      0.6100e-03,0.1020e-02,0.1810e-02/
+      data(tabimt(i,4),i=1,nwlt)/ &
+      0.8300e-01,0.6900e-01,0.5700e-01,0.4450e-01,0.3550e-01,0.2910e-01, &
+      0.2440e-01,0.1970e-01,0.1670e-01,0.1400e-01,0.1235e-01,0.1080e-01, &
+      0.8900e-02,0.7340e-02,0.6400e-02,0.5600e-02,0.5000e-02,0.4520e-02, &
+      0.3680e-02,0.2990e-02,0.2490e-02,0.1550e-02,0.9610e-03,0.5950e-03, &
+      0.3690e-03,0.2670e-03,0.2510e-03,0.2290e-03,0.2110e-03,0.1960e-03, &
+      0.1730e-03,0.1550e-03,0.1310e-03,0.1130e-03,0.1060e-03,0.9900e-04, &
+      0.9300e-04,0.8730e-04,0.8300e-04,0.7870e-04,0.7500e-04,0.6830e-04, &
+      0.5600e-04,0.4960e-04,0.4550e-04,0.4210e-04,0.3910e-04,0.3760e-04, &
+      0.3400e-04,0.3100e-04,0.2640e-04,0.2510e-04,0.2430e-04,0.2390e-04, &
+      0.2370e-04,0.2380e-04,0.2400e-04,0.2460e-04,0.2660e-04,0.4450e-04, &
+      0.8700e-04,0.1320e-03/
+ 
+  pi = acos(-1.0)
+  n_r=0.0
+  n_i=0.0
+
+  tk = t
+
+! // convert frequency to wavelength (um)
+  alam=3E5/freq
+  if((alam < wlmin) .or. (alam > wlmax)) then
+    print *, 'm_ice: wavelength out of bounds'
+    stop
+  endif
+
+  if (alam < cutice) then
+
+!   // region from 0.045 microns to 167.0 microns - no temperature depend
+    do i=2,nwl
+      if(alam < wl(i)) continue
+    enddo
+    x1=log(wl(i-1))
+    x2=log(wl(i))
+    y1=tabre(i-1)
+    y2=tabre(i)
+    x=log(alam)
+    y=((x-x1)*(y2-y1)/(x2-x1))+y1
+    n_r=y
+    y1=log(abs(tabim(i-1)))
+    y2=log(abs(tabim(i)))
+    y=((x-x1)*(y2-y1)/(x2-x1))+y1
+    n_i=exp(y)
+
+  else
+
+!   // region from 167.0 microns to 8.6 meters - temperature dependence
+    if(tk > temref(1)) tk=temref(1)
+    if(tk < temref(4)) tk=temref(4)
+    do 11 i=2,4
+      if(tk.ge.temref(i)) go to 12
+    11 continue
+    12 lt1=i
+    lt2=i-1
+    do 13 i=2,nwlt
+      if(alam.le.wlt(i)) go to 14
+    13 continue
+    14 x1=log(wlt(i-1))
+    x2=log(wlt(i))
+    y1=tabret(i-1,lt1)
+    y2=tabret(i,lt1)
+    x=log(alam)
+    ylo=((x-x1)*(y2-y1)/(x2-x1))+y1
+    y1=tabret(i-1,lt2)
+    y2=tabret(i,lt2)
+    yhi=((x-x1)*(y2-y1)/(x2-x1))+y1
+    t1=temref(lt1)
+    t2=temref(lt2)
+    y=((tk-t1)*(yhi-ylo)/(t2-t1))+ylo
+    n_r=y
+    y1=log(abs(tabimt(i-1,lt1)))
+    y2=log(abs(tabimt(i,lt1)))
+    ylo=((x-x1)*(y2-y1)/(x2-x1))+y1
+    y1=log(abs(tabimt(i-1,lt2)))
+    y2=log(abs(tabimt(i,lt2)))
+    yhi=((x-x1)*(y2-y1)/(x2-x1))+y1
+    y=((tk-t1)*(yhi-ylo)/(t2-t1))+ylo
+    n_i=exp(y)
+
+  endif
+
+  end subroutine m_ice
+
+! ----------------------------------------------------------------------------
+! subroutine MIEINT
+! ----------------------------------------------------------------------------
+!
+!     General purpose Mie scattering routine for single particles
+!     Author: R Grainger 1990
+!     History:
+!     G Thomas, March 2005: Added calculation of Phase function and
+!     code to ensure correct calculation of backscatter coeficient
+!     Options/Extend_Source
+!
+      Subroutine MieInt(Dx, SCm, Inp, Dqv, Dqxt, Dqsc, Dbsc, Dg, Xs1, Xs2, DPh, Error)
+
+      Integer * 2  Imaxx
+      Parameter (Imaxx = 12000)
+      Real * 4     RIMax          ! largest real part of refractive index
+      Parameter (RIMax = 2.5)
+      Real * 4     IRIMax         ! largest imaginary part of refractive index
+      Parameter (IRIMax = -2)
+      Integer * 2  Itermax
+      Parameter (Itermax = 12000 * 2.5)
+                                ! must be large enough to cope with the
+                                ! largest possible nmx = x * abs(scm) + 15
+                                ! or nmx =  Dx + 4.05*Dx**(1./3.) + 2.0
+      Integer * 2  Imaxnp
+      Parameter (Imaxnp = 10000)  ! Change this as required
+!     INPUT
+      Real * 8     Dx
+      Complex * 16  SCm
+      Integer * 4  Inp
+      Real * 8     Dqv(Inp)
+!     OUTPUT
+      Complex * 16  Xs1(InP)
+      Complex * 16  Xs2(InP)
+      Real * 8     Dqxt
+      Real * 8     Dqsc
+      Real * 8     Dg
+      Real * 8     Dbsc
+      Real * 8     DPh(InP)
+      Integer * 4  Error
+!     LOCAL
+      Integer * 2  I
+      Integer * 2  NStop
+      Integer * 2  NmX
+      Integer * 4  N    ! N*N > 32767 ie N > 181
+      Integer * 4  Inp2
+      Real * 8     Chi,Chi0,Chi1
+      Real * 8     APsi,APsi0,APsi1
+      Real * 8     Pi0(Imaxnp)
+      Real * 8     Pi1(Imaxnp)
+      Real * 8     Taun(Imaxnp)
+      Real * 8     Psi,Psi0,Psi1
+      Complex * 8  Ir
+      Complex * 16 Cm
+      Complex * 16 A,ANM1,APB
+      Complex * 16 B,BNM1,AMB
+      Complex * 16 D(Itermax)
+      Complex * 16 Sp(Imaxnp)
+      Complex * 16 Sm(Imaxnp)
+      Complex * 16 Xi,Xi0,Xi1
+      Complex * 16 Y
+!     ACCELERATOR VARIABLES
+      Integer * 2  Tnp1
+      Integer * 2  Tnm1
+      Real * 8     Dn
+      Real * 8     Rnx
+      Real * 8     S(Imaxnp)
+      Real * 8     T(Imaxnp)
+      Real * 8     Turbo
+      Real * 8     A2
+      Complex * 16 A1
+      
+      If ((Dx.Gt.Imaxx) .Or. (InP.Gt.ImaxNP)) Then
+        Error = 1
+        Return
+      EndIf
+      Cm = SCm
+      Ir = 1 / Cm
+      Y =  Dx * Cm
+      If (Dx.Lt.0.02) Then
+         NStop = 2
+      Else
+         If (Dx.Le.8.0) Then
+            NStop = Dx + 4.00*Dx**(1./3.) + 2.0
+         Else
+            If (Dx.Lt. 4200.0) Then
+               NStop = Dx + 4.05*Dx**(1./3.) + 2.0
+            Else
+               NStop = Dx + 4.00*Dx**(1./3.) + 2.0
+            End If
+         End If
+      End If
+      NmX = Max(Real(NStop),Real(Abs(Y))) + 15.
+      If (Nmx .gt. Itermax) then
+          Error = 1
+          Return
+      End If
+      Inp2 = Inp+1
+      D(NmX) = Dcmplx(0,0)
+      Do N = Nmx-1,1,-1
+         A1 = (N+1) / Y
+         D(N) = A1 - 1/(A1+D(N+1))
+      End Do
+      Do I =1,Inp2
+         Sm(I) = Dcmplx(0,0)
+         Sp(I) = Dcmplx(0,0)
+         Pi0(I) = 0
+         Pi1(I) = 1
+      End Do
+      Psi0 = Cos(Dx)
+      Psi1 = Sin(Dx)
+      Chi0 =-Sin(Dx)
+      Chi1 = Cos(Dx)
+      APsi0 = Psi0
+      APsi1 = Psi1
+      Xi0 = Dcmplx(APsi0,Chi0)
+      Xi1 = Dcmplx(APsi1,Chi1)
+      Dg = 0
+      Dqsc = 0
+      Dqxt = 0
+      Tnp1 = 1
+      Do N = 1,Nstop
+         DN = N
+         Tnp1 = Tnp1 + 2
+         Tnm1 = Tnp1 - 2
+         A2 = Tnp1 / (DN*(DN+1D0))
+         Turbo = (DN+1D0) / DN
+         Rnx = DN/Dx
+         Psi = Dble(Tnm1)*Psi1/Dx - Psi0
+         APsi = Psi
+         Chi = Tnm1*Chi1/Dx       - Chi0
+         Xi = Dcmplx(APsi,Chi)
+         A = ((D(N)*Ir+Rnx)*APsi-APsi1) / ((D(N)*Ir+Rnx)*  Xi-  Xi1)
+         B = ((D(N)*Cm+Rnx)*APsi-APsi1) / ((D(N)*Cm+Rnx)*  Xi-  Xi1)
+         Dqxt = Tnp1 *      Dble(A + B)          + Dqxt
+         Dqsc = Tnp1 * (A*Conjg(A) + B*Conjg(B)) + Dqsc
+         If (N.Gt.1) then
+         Dg = Dg + (dN*dN - 1) * Dble(ANM1*Conjg(A) + BNM1 * Conjg(B)) / dN + TNM1 * Dble(ANM1*Conjg(BNM1)) / (dN*dN - dN)
+         End If
+         Anm1 = A
+         Bnm1 = B
+         APB = A2 * (A + B)
+         AMB = A2 * (A - B)
+         Do I = 1,Inp2
+            If (I.GT.Inp) Then
+               S(I) = -Pi1(I)
+            Else
+               S(I) = Dqv(I) * Pi1(I)
+            End If
+            T(I) = S(I) - Pi0(I)
+            Taun(I) = N*T(I) - Pi0(I)
+            Sp(I) = APB * (Pi1(I) + Taun(I)) + Sp(I)
+            Sm(I) = AMB * (Pi1(I) - Taun(I)) + Sm(I)
+            Pi0(I) = Pi1(I)
+            Pi1(I) = S(I) + T(I)*Turbo
+         End Do
+         Psi0 = Psi1
+         Psi1 = Psi
+         Apsi1 = Psi1
+         Chi0 = Chi1
+         Chi1 = Chi
+         Xi1 = Dcmplx(APsi1,Chi1)
+      End Do
+      If (Dg .GT.0) Dg = 2 * Dg / Dqsc
+      Dqsc =  2 * Dqsc / Dx**2
+      Dqxt =  2 * Dqxt / Dx**2
+      Do I = 1,Inp
+         Xs1(I) = (Sp(I)+Sm(I)) / 2
+         Xs2(I) = (Sp(I)-Sm(I)) / 2
+         Dph(I) = 2 * Dble(Xs1(I)*Conjg(Xs1(I)) + Xs2(I)*Conjg(Xs2(I))) / (Dx**2 * Dqsc)
+      End Do
+      Dbsc = 4 * Abs(( (Sp(Inp2)+Sm(Inp2))/2 )**2) / Dx**2
+      Error = 0
+      Return
+      End subroutine MieInt
+
+  end module optics_lib
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/pf_to_mr.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/pf_to_mr.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/pf_to_mr.F	(revision 3330)
@@ -0,0 +1,130 @@
+! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/llnl/pf_to_mr.f $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list 
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Lawrence Livermore National Security Limited Liability Corporation 
+!       nor the names of its contributors may be used to endorse or promote products derived from 
+!       this software without specific prior written permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+      
+      subroutine pf_to_mr(npoints,nlev,ncol,rain_ls,snow_ls,grpl_ls,
+     &                    rain_cv,snow_cv,prec_frac,
+     &                    p,t,mx_rain_ls,mx_snow_ls,mx_grpl_ls,
+     &                    mx_rain_cv,mx_snow_cv)
+
+
+      implicit none
+
+      INTEGER npoints       !  number of model points in the horizontal
+      INTEGER nlev          !  number of model levels in column
+      INTEGER ncol          !  number of subcolumns
+
+      INTEGER j,ilev,ibox
+      
+      REAL rain_ls(npoints,nlev),snow_ls(npoints,nlev) ! large-scale precip. flux
+      REAL grpl_ls(npoints,nlev)
+      REAL rain_cv(npoints,nlev),snow_cv(npoints,nlev) ! convective precip. flux
+
+      REAL prec_frac(npoints,ncol,nlev) ! 0 -> clear sky
+                                        ! 1 -> LS precipitation
+                                        ! 2 -> CONV precipitation
+                                        ! 3 -> both
+      REAL mx_rain_ls(npoints,ncol,nlev),mx_snow_ls(npoints,ncol,nlev)
+      REAL mx_grpl_ls(npoints,ncol,nlev)
+      REAL mx_rain_cv(npoints,ncol,nlev),mx_snow_cv(npoints,ncol,nlev)
+      REAL p(npoints,nlev),t(npoints,nlev)
+      REAL ar,as,ag,br,bs,bg,nr,ns,ng,rho0,rhor,rhos,rhog,rho
+      REAL term1r,term1s,term1g,term2r,term2s,term2g,term3
+      REAL term4r_ls,term4s_ls,term4g_ls,term4r_cv,term4s_cv
+      REAL term1x2r,term1x2s,term1x2g,t123r,t123s,t123g
+      
+      ! method from Khairoutdinov and Randall (2003 JAS)
+
+      ! --- List of constants from Appendix B
+      ! Constant in fall speed formula
+      ar=842.
+      as=4.84
+      ag=94.5
+      ! Exponent in fall speed formula
+      br=0.8
+      bs=0.25
+      bg=0.5
+      ! Intercept parameter
+      nr=8.*1000.*1000.
+      ns=3.*1000.*1000.
+      ng=4.*1000.*1000.
+      ! Densities for air and hydrometeors
+      rho0=1.29
+      rhor=1000.
+      rhos=100.
+      rhog=400.
+      ! Term 1 of Eq. (A19).
+      term1r=ar*17.8379/6.
+      term1s=as*8.28508/6.
+      term1g=ag*11.6317/6.
+      ! Term 2 of Eq. (A19).
+      term2r=(3.14159265*rhor*nr)**(-br/4.)
+      term2s=(3.14159265*rhos*ns)**(-bs/4.)
+      term2g=(3.14159265*rhog*ng)**(-bg/4.)
+      
+      term1x2r=term1r*term2r
+      term1x2s=term1s*term2s
+      term1x2g=term1g*term2g
+      do ilev=1,nlev
+        do j=1,npoints
+            rho=p(j,ilev)/(287.05*t(j,ilev))
+            term3=(rho0/rho)**0.5
+            ! Term 4 of Eq. (A19).
+            t123r=term1x2r*term3
+            t123s=term1x2s*term3
+            t123g=term1x2g*term3
+            term4r_ls=rain_ls(j,ilev)/(t123r)
+            term4s_ls=snow_ls(j,ilev)/(t123s)
+            term4g_ls=grpl_ls(j,ilev)/(t123g)
+            term4r_cv=rain_cv(j,ilev)/(t123r)
+            term4s_cv=snow_cv(j,ilev)/(t123s)
+            do ibox=1,ncol
+                mx_rain_ls(j,ibox,ilev)=0.
+                mx_snow_ls(j,ibox,ilev)=0.
+                mx_grpl_ls(j,ibox,ilev)=0.
+                mx_rain_cv(j,ibox,ilev)=0.
+                mx_snow_cv(j,ibox,ilev)=0.
+                if ((prec_frac(j,ibox,ilev) .eq. 1.) .or.
+     &              (prec_frac(j,ibox,ilev) .eq. 3.)) then 
+                    mx_rain_ls(j,ibox,ilev)=
+     &                     (term4r_ls**(1./(1.+br/4.)))/rho
+                    mx_snow_ls(j,ibox,ilev)=
+     &                     (term4s_ls**(1./(1.+bs/4.)))/rho
+                    mx_grpl_ls(j,ibox,ilev)=
+     &                     (term4g_ls**(1./(1.+bg/4.)))/rho
+                endif
+                if ((prec_frac(j,ibox,ilev) .eq. 2.) .or.
+     &              (prec_frac(j,ibox,ilev) .eq. 3.)) then 
+                    mx_rain_cv(j,ibox,ilev)=
+     &                     (term4r_cv**(1./(1.+br/4.)))/rho
+                    mx_snow_cv(j,ibox,ilev)=
+     &                     (term4s_cv**(1./(1.+bs/4.)))/rho
+                endif
+            enddo ! loop over ncol
+        enddo ! loop over npoints
+      enddo ! loop over nlev
+  
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/phys_cosp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/phys_cosp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/phys_cosp.F90	(revision 3330)
@@ -0,0 +1,421 @@
+! Simulateur COSP : Cfmip Observation Simulator Package
+
+! ISCCP, Radar (QuickBeam), Lidar et Parasol (ACTSIM), MISR, RTTOVS
+!Idelkadi Abderrahmane Aout-Septembre 2009 First Version
+!Idelkadi Abderrahmane Nov 2015 version v1.4.0
+
+  subroutine phys_cosp( itap,dtime,freq_cosp, &
+                        ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
+                        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, &
+                        sh,rh,tca,cca,mr_lsliq,mr_lsice,fl_lsrainI,fl_lssnowI, &
+                        fl_ccrainI,fl_ccsnowI,mr_ozone,dtau_s,dem_s)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!! Inputs :
+! itap,                                 !Increment de la physiq
+! dtime,                                !Pas de temps physiq
+! overlap,                              !Overlap type in SCOPS
+! Npoints,                              !Nb de points de la grille physiq
+! Nlevels,                              !Nb de niveaux verticaux
+! Ncolumns,                             !Number of subcolumns
+! lon,lat,                              !Longitudes et latitudes de la grille LMDZ
+! ref_liq,ref_ice,                      !Rayons effectifs des particules liq et ice (en microm)
+! fracTerLic,                           !Fraction terre a convertir en masque
+! u_wind,v_wind,                        !Vents a 10m ???
+! phi,                                  !Geopotentiel
+! phis,                                 !Geopotentiel sol
+! ph,                                   !pression pour chaque inter-couche
+! p,                                    !Pression aux milieux des couches
+! skt,t,                                !Temp au sol et temp 3D
+! sh,                                   !Humidite specifique
+! rh,                                   !Humidite relatif
+! tca,                                  !Fraction nuageuse
+! cca                                   !Fraction nuageuse convective
+! mr_lsliq,                             !Liq Cloud water content
+! mr_lsice,                             !Ice Cloud water content
+! mr_ccliq,                             !Convective Cloud Liquid water content  
+! mr_ccice,                             !Cloud ice water content
+! fl_lsrain,                            !Large scale precipitation lic
+! fl_lssnow,                            !Large scale precipitation ice
+! fl_ccrain,                            !Convective precipitation lic
+! fl_ccsnow,                            !Convective precipitation ice
+! mr_ozone,                             !Concentration ozone (Kg/Kg)
+! dem_s                                 !Cloud optical emissivity
+! dtau_s               			!Cloud optical thickness
+! emsfc_lw = 1.        			!Surface emissivity dans radlwsw.F90
+
+!!! Outputs :
+! calipso2D,                            !Lidar Low/heigh/Mean/Total-level Cloud Fraction
+! calipso3D,                            !Lidar Cloud Fraction (532 nm)
+! cfadlidar,                            !Lidar Scattering Ratio CFAD (532 nm)
+! parasolrefl,                          !PARASOL-like mono-directional reflectance
+! atb,                                  !Lidar Attenuated Total Backscatter (532 nm)
+! betamol,                              !Lidar Molecular Backscatter (532 nm)
+! cfaddbze,                             !Radar Reflectivity Factor CFAD (94 GHz)
+! clcalipso2,                           !Cloud frequency of occurrence as seen by CALIPSO but not CloudSat
+! dbze,                                 !Efective_reflectivity_factor
+! cltlidarradar,                        !Lidar and Radar Total Cloud Fraction
+! clMISR,                               !Cloud Fraction as Calculated by the MISR Simulator
+! clisccp2,                             !Cloud Fraction as Calculated by the ISCCP Simulator
+! boxtauisccp,                          !Optical Depth in Each Column as Calculated by the ISCCP Simulator
+! boxptopisccp,                         !Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator
+! tclisccp,                             !Total Cloud Fraction as Calculated by the ISCCP Simulator
+! ctpisccp,                             !Mean Cloud Top Pressure as Calculated by the ISCCP Simulator
+! tauisccp,                             !Mean Optical Depth as Calculated by the ISCCP Simulator
+! albisccp,                             !Mean Cloud Albedo as Calculated by the ISCCP Simulator
+! meantbisccp,                          !Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator
+! meantbclrisccp                        !Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator
+
+!!! AI rajouter les nouvelles sorties
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!! AI rajouter
+#include "cosp_defs.h" 
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  USE MOD_COSP
+  USE mod_phys_lmdz_para
+  USE mod_grid_phy_lmdz
+  use ioipsl
+  use iophy
+  use cosp_output_mod
+  use cosp_output_write_mod
+!  use MOD_COSP_Modis_Simulator, only : cosp_modis 
+
+  IMPLICIT NONE
+
+  ! Local variables
+  character(len=64),PARAMETER  :: cosp_input_nl='cosp_input_nl.txt'
+  character(len=64),PARAMETER  :: cosp_output_nl='cosp_output_nl.txt'
+  integer, save :: isccp_topheight,isccp_topheight_direction,overlap
+  integer,save  :: Ncolumns     ! Number of subcolumns in SCOPS
+  integer, save :: Npoints      ! Number of gridpoints
+!$OMP THREADPRIVATE(Npoints)
+  integer, save :: Nlevels      ! Number of levels
+  Integer :: Nptslmdz,Nlevlmdz ! Nb de points issus de physiq.F
+  integer, save :: Nlr          ! Number of levels in statistical outputs
+  integer, save :: Npoints_it   ! Max number of gridpoints to be processed in one iteration
+  integer :: i
+  type(cosp_config),save :: cfg   ! Configuration options
+!$OMP THREADPRIVATE(cfg)
+  type(cosp_gridbox) :: gbx ! Gridbox information. Input for COSP
+  type(cosp_subgrid) :: sgx     ! Subgrid outputs
+  type(cosp_sgradar) :: sgradar ! Output from radar simulator
+  type(cosp_sglidar) :: sglidar ! Output from lidar simulator
+  type(cosp_isccp)   :: isccp   ! Output from ISCCP simulator
+!! AI rajout modis
+  type(cosp_modis)   :: modis   ! Output from MODIS simulator
+!!
+  type(cosp_misr)    :: misr    ! Output from MISR simulator
+!! AI rajout rttovs
+!  type(cosp_rttov)   :: rttov   ! Output from RTTOV
+!!
+  type(cosp_vgrid)   :: vgrid   ! Information on vertical grid of stats
+  type(cosp_radarstats) :: stradar ! Summary statistics from radar simulator
+  type(cosp_lidarstats) :: stlidar ! Summary statistics from lidar simulator
+
+  integer :: t0,t1,count_rate,count_max
+  integer :: Nlon,Nlat
+  real,save :: radar_freq,k2,ZenAng,co2,ch4,n2o,co,emsfc_lw
+!$OMP THREADPRIVATE(emsfc_lw)
+  integer,dimension(RTTOV_MAX_CHANNELS),save :: Channels
+  real,dimension(RTTOV_MAX_CHANNELS),save :: Surfem
+  integer, save :: surface_radar,use_mie_tables,use_gas_abs,do_ray,melt_lay
+  integer, save :: Nprmts_max_hydro,Naero,Nprmts_max_aero,lidar_ice_type
+  integer, save :: platform,satellite,Instrument,Nchannels
+  logical, save :: use_vgrid,csat_vgrid,use_precipitation_fluxes,use_reff
+
+! Declaration necessaires pour les sorties IOIPSL
+  integer :: ii
+  real    :: ecrit_day,ecrit_hf,ecrit_mth
+  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml
+
+  logical, save :: debut_cosp=.true.
+!$OMP THREADPRIVATE(debut_cosp)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Input variables from LMDZ-GCM
+  integer                         :: overlaplmdz   !  overlap type: 1=max, 2=rand, 3=max/rand ! cosp input (output lmdz)
+  real,dimension(Nptslmdz,Nlevlmdz) :: height,phi,p,ph,T,sh,rh,tca,cca,mr_lsliq,mr_lsice,mr_ccliq,mr_ccice, & 
+                                     fl_lsrain,fl_lssnow,fl_ccrain,fl_ccsnow,fl_lsgrpl, &
+                                     zlev,zlev_half,mr_ozone,radliq,radice,dtau_s,dem_s,ref_liq,ref_ice
+  real,dimension(Nptslmdz,Nlevlmdz) ::  fl_lsrainI,fl_lssnowI,fl_ccrainI,fl_ccsnowI
+  real,dimension(Nptslmdz)        :: lon,lat,skt,fracTerLic,u_wind,v_wind,phis,sunlit         
+  real,dimension(Nlevlmdz)        :: presnivs
+  integer                         :: itap,k,ip
+  real                            :: dtime,freq_cosp
+  real,dimension(2)               :: time_bnds
+  
+   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, &
+              lidar_ice_type,use_precipitation_fluxes,use_reff, &
+              platform,satellite,Instrument,Nchannels, &
+              Channels,Surfem,ZenAng,co2,ch4,n2o,co
+
+!---------------- End of declaration of variables --------------
+   
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! Read namelist with COSP inputs
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+ if (debut_cosp) then
+  NPoints=Nptslmdz
+  Nlevels=Nlevlmdz
+  
+! Lecture du namelist input 
+  CALL read_cosp_input
+
+! Clefs Outputs 
+  call read_cosp_output_nl(cosp_output_nl,cfg)
+
+    if (overlaplmdz.ne.overlap) then
+       print*,'Attention overlaplmdz different de overlap lu dans namelist '
+    endif
+   print*,'Fin lecture Namelists, debut_cosp =',debut_cosp
+
+  print*,' Cles des differents simulateurs cosp :'
+  print*,'Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lmodis_sim,Lrttov_sim', &
+          cfg%Lradar_sim,cfg%Llidar_sim,cfg%Lisccp_sim,cfg%Lmisr_sim,cfg%Lmodis_sim,cfg%Lrttov_sim
+
+  endif ! debut_cosp
+
+  time_bnds(1) = dtime-dtime/2.
+  time_bnds(2) = dtime+dtime/2.
+
+!  print*,'Debut phys_cosp itap,dtime,freq_cosp,ecrit_mth,ecrit_day,ecrit_hf ', &
+!          itap,dtime,freq_cosp,ecrit_mth,ecrit_day,ecrit_hf
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! Allocate memory for gridbox type
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        print *, 'Allocating memory for gridbox type...'
+!! AI
+!        call construct_cosp_gridbox(dble(itap),radar_freq,surface_radar,use_mie_tables,use_gas_abs,do_ray,melt_lay,k2, &
+!                                    Npoints,Nlevels,Ncolumns,N_HYDRO,Nprmts_max_hydro,Naero,Nprmts_max_aero,Npoints_it, &
+!                                    lidar_ice_type,isccp_topheight,isccp_topheight_direction,overlap,emsfc_lw, &
+!                                    use_precipitation_fluxes,use_reff, &
+!                                    Platform,Satellite,Instrument,Nchannels,ZenAng, &
+!                                    channels(1:Nchannels),surfem(1:Nchannels),co2,ch4,n2o,co,gbx)
+! Surafce emissivity
+        emsfc_lw = 1.
+
+        call construct_cosp_gridbox(dtime,time_bnds,radar_freq,surface_radar,use_mie_tables,use_gas_abs, &
+                                    do_ray,melt_lay,k2, &
+                                    Npoints,Nlevels,Ncolumns,N_HYDRO,Nprmts_max_hydro,Naero,Nprmts_max_aero,Npoints_it, &
+                                    lidar_ice_type,isccp_topheight,isccp_topheight_direction,overlap,emsfc_lw, &
+                                    use_precipitation_fluxes,use_reff, &
+                                    Platform,Satellite,Instrument,Nchannels,ZenAng, &
+                                    channels(1:Nchannels),surfem(1:Nchannels),co2,ch4,n2o,co,gbx)
+        
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! Here code to populate input structure
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+        print *, 'Populating input structure...'
+        gbx%longitude = lon
+        gbx%latitude = lat
+
+        gbx%p = p !
+        gbx%ph = ph
+        gbx%zlev = phi/9.81
+
+        zlev_half(:,1) = phis(:)/9.81
+        do k = 2, Nlevels
+          do ip = 1, Npoints
+           zlev_half(ip,k) = phi(ip,k)/9.81 + &
+               (phi(ip,k)-phi(ip,k-1))/9.81 * (ph(ip,k)-p(ip,k)) / (p(ip,k)-p(ip,k-1))
+          enddo
+        enddo
+        gbx%zlev_half = zlev_half
+
+        gbx%T = T
+        gbx%q = rh*100.
+        gbx%sh = sh
+! On ne veut pas que cosp distingue les nuages stratiformes et convectifs
+! on passe les contenus totaux (conv+strat)
+        gbx%cca = 0. !convective_cloud_amount (1)
+        gbx%tca = tca ! total_cloud_amount (1)
+        gbx%psfc = ph(:,1) !pression de surface
+        gbx%skt  = skt !Skin temperature (K)
+
+        do ip = 1, Npoints
+          if (fracTerLic(ip).ge.0.5) then
+             gbx%land(ip) = 1.
+          else
+             gbx%land(ip) = 0.
+          endif
+        enddo
+        gbx%mr_ozone  = mr_ozone !mass_fraction_of_ozone_in_air (kg/kg)
+! A voir l equivalent LMDZ (u10m et v10m)
+        gbx%u_wind  = u_wind !eastward_wind (m s-1)
+        gbx%v_wind  = v_wind !northward_wind
+
+! sunlit calcule a partir de la fraction d ensoleillement par jour
+!      do ip = 1, Npoints
+!        if (sunlit(ip).le.0.) then
+!           gbx%sunlit(ip)=0.
+!        else
+!           gbx%sunlit(ip)=1.
+!        endif
+!      enddo
+       gbx%sunlit=sunlit
+
+! A voir l equivalent LMDZ
+  mr_ccliq = 0.0
+  mr_ccice = 0.0
+        gbx%mr_hydro(:,:,I_LSCLIQ) = mr_lsliq !mixing_ratio_large_scale_cloud_liquid (kg/kg)
+        gbx%mr_hydro(:,:,I_LSCICE) = mr_lsice !mixing_ratio_large_scale_cloud_ic
+        gbx%mr_hydro(:,:,I_CVCLIQ) = mr_ccliq !mixing_ratio_convective_cloud_liquid
+        gbx%mr_hydro(:,:,I_CVCICE) = mr_ccice !mixing_ratio_convective_cloud_ice
+! A revoir
+        fl_lsrain = fl_lsrainI + fl_ccrainI
+        fl_lssnow = fl_lssnowI + fl_ccsnowI
+        gbx%rain_ls = fl_lsrain !flux_large_scale_cloud_rain (kg m^-2 s^-1)
+        gbx%snow_ls = fl_lssnow !flux_large_scale_cloud_snow
+!  A voir l equivalent LMDZ
+        fl_lsgrpl=0.
+        fl_ccsnow = 0.
+        fl_ccrain = 0.
+        gbx%grpl_ls = fl_lsgrpl  !flux_large_scale_cloud_graupel
+        gbx%rain_cv = fl_ccrain  !flux_convective_cloud_rain
+        gbx%snow_cv = fl_ccsnow  !flux_convective_cloud_snow
+
+     gbx%Reff(:,:,I_LSCLIQ) = ref_liq*1e-6
+     gbx%Reff(:,:,I_LSCICE) = ref_ice*1e-6
+!! AI A revoir
+     gbx%Reff(:,:,I_CVCLIQ) = ref_liq*1e-6
+     gbx%Reff(:,:,I_CVCICE) = ref_ice*1e-6
+
+        ! ISCCP simulator
+        gbx%dtau_s   = dtau_s
+        gbx%dtau_c   = 0.
+        gbx%dem_s    = dem_s
+        gbx%dem_c    = 0.
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        ! Define new vertical grid
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        print *, 'Defining new vertical grid...'
+        call construct_cosp_vgrid(gbx,Nlr,use_vgrid,csat_vgrid,vgrid)
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+       ! Allocate memory for other types
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        print *, 'Allocating memory for other types...'
+        call construct_cosp_subgrid(Npoints, Ncolumns, Nlevels, sgx)
+        call construct_cosp_sgradar(cfg,Npoints,Ncolumns,Nlevels,N_HYDRO,sgradar)
+        call construct_cosp_radarstats(cfg,Npoints,Ncolumns,vgrid%Nlvgrid,N_HYDRO,stradar)
+        call construct_cosp_sglidar(cfg,Npoints,Ncolumns,Nlevels,N_HYDRO,PARASOL_NREFL,sglidar)
+        call construct_cosp_lidarstats(cfg,Npoints,Ncolumns,vgrid%Nlvgrid,N_HYDRO,PARASOL_NREFL,stlidar)
+        call construct_cosp_isccp(cfg,Npoints,Ncolumns,Nlevels,isccp)
+!! AI rajout
+        call construct_cosp_modis(cfg,Npoints,modis)
+!!
+        call construct_cosp_misr(cfg,Npoints,misr)
+!        call construct_cosp_rttov(cfg,Npoints,Nchannels,rttov)
+
+!+++++++++++++ Open output files and define output files axis !+++++++++++++
+     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_all_xml, &
+                              ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
+      !$OMP END MASTER
+      !$OMP BARRIER
+        debut_cosp=.false.
+      endif ! debut_cosp
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        ! Call simulator
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        print *, 'Calling simulator...'
+!! AI 
+!        call cosp(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,stradar,stlidar)
+!#ifdef RTTOV
+!        call cosp(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,rttov,stradar,stlidar)
+!#else
+        call cosp(overlap,Ncolumns,cfg,vgrid,gbx,sgx,sgradar,sglidar,isccp,misr,modis,stradar,stlidar)
+!#endif
+!!
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+!!!!!!!!!!!!!!!!!! Ecreture des sorties Cosp !!!!!!!!!!!!!!r!!!!!!:!!!!!
+
+       print *, 'Calling write output'
+        call cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, &
+                               cfg, gbx, vgrid, sglidar, sgradar, stlidar, stradar, & 
+                               isccp, misr, modis)
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        ! Deallocate memory in derived types
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        print *, 'Deallocating memory...'
+        call free_cosp_gridbox(gbx)
+        call free_cosp_subgrid(sgx)
+        call free_cosp_sgradar(sgradar)
+        call free_cosp_radarstats(stradar)
+        call free_cosp_sglidar(sglidar)
+        call free_cosp_lidarstats(stlidar)
+        call free_cosp_isccp(isccp)
+        call free_cosp_misr(misr)
+!! AI
+        call free_cosp_modis(modis)
+!        call free_cosp_rttov(rttov)
+!!
+        call free_cosp_vgrid(vgrid)  
+  
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! Time in s. Only for testing purposes
+!  call system_clock(t1,count_rate,count_max)
+!  print *,(t1-t0)*1.0/count_rate
+ 
+  CONTAINS 
+  
+  SUBROUTINE read_cosp_input
+    
+    IF (is_master) THEN
+      OPEN(10,file=cosp_input_nl,status='old')
+      READ(10,nml=cosp_input)
+      CLOSE(10)
+    ENDIF
+    CALL bcast(overlap)
+    CALL bcast(isccp_topheight)
+    CALL bcast(isccp_topheight_direction)
+    CALL bcast(npoints_it)
+    CALL bcast(ncolumns)
+    CALL bcast(use_vgrid)
+    CALL bcast(nlr)
+    CALL bcast(csat_vgrid)
+    CALL bcast(radar_freq)
+    CALL bcast(surface_radar)
+    CALL bcast(use_mie_tables)
+    CALL bcast(use_gas_abs)
+    CALL bcast(do_ray)
+    CALL bcast(melt_lay)
+    CALL bcast(k2)
+    CALL bcast(Nprmts_max_hydro)
+    CALL bcast(Naero)
+    CALL bcast(Nprmts_max_aero)
+    CALL bcast(lidar_ice_type)
+    CALL bcast(use_precipitation_fluxes)
+    CALL bcast(use_reff)
+    CALL bcast(platform)
+    CALL bcast(satellite)
+    CALL bcast(Instrument)
+    CALL bcast(Nchannels)
+    CALL bcast(Channels)
+    CALL bcast(Surfem)
+    CALL bcast(ZenAng)
+    CALL bcast(co2)
+    CALL bcast(ch4)
+    CALL bcast(n2o)
+    CALL bcast(co)
+!$OMP BARRIER  
+  END SUBROUTINE read_cosp_input 
+
+end subroutine phys_cosp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/prec_scops.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/prec_scops.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/prec_scops.F	(revision 3330)
@@ -0,0 +1,270 @@
+! (c) 2008, Lawrence Livermore National Security Limited Liability Corporation.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/llnl/prec_scops.f $
+! 
+! Redistribution and use in source and binary forms, with or without modification, are permitted 
+! provided that the following conditions are met:
+! 
+!     * Redistributions of source code must retain the above copyright notice, this list 
+!       of conditions and the following disclaimer.
+!     * Redistributions in binary form must reproduce the above copyright notice, this list 
+!       of conditions and the following disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Lawrence Livermore National Security Limited Liability Corporation 
+!       nor the names of its contributors may be used to endorse or promote products derived from 
+!       this software without specific prior written permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR 
+! IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND 
+! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
+! CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
+! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER 
+! IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
+! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+      
+      subroutine prec_scops(npoints,nlev,ncol,ls_p_rate,cv_p_rate,
+     &                      frac_out,prec_frac)
+
+
+      implicit none
+
+      INTEGER npoints       !  number of model points in the horizontal
+      INTEGER nlev          !  number of model levels in column
+      INTEGER ncol          !  number of subcolumns
+
+      INTEGER i,j,ilev,ibox,cv_col
+      
+      REAL ls_p_rate(npoints,nlev),cv_p_rate(npoints,nlev)
+
+      REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into
+                              ! Equivalent of BOX in original version, but
+                              ! indexed by column then row, rather than
+                              ! by row then column
+                              !TOA to SURFACE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+      REAL prec_frac(npoints,ncol,nlev) ! 0 -> clear sky
+                                        ! 1 -> LS precipitation
+                                        ! 2 -> CONV precipitation
+                    ! 3 -> both
+                                        !TOA to SURFACE!!!!!!!!!!!!!!!!!!
+                    
+      INTEGER flag_ls, flag_cv
+      INTEGER frac_out_ls(npoints,ncol),frac_out_cv(npoints,ncol) !flag variables for 
+                       ! stratiform cloud and convective cloud in the vertical column
+
+      cv_col = 0.05*ncol
+      if (cv_col .eq. 0) cv_col=1
+ 
+      do ilev=1,nlev
+        do ibox=1,ncol
+          do j=1,npoints 
+            prec_frac(j,ibox,ilev) = 0
+          enddo
+        enddo
+      enddo
+      
+      do j=1,npoints
+       do ibox=1,ncol
+        frac_out_ls(j,ibox)=0
+        frac_out_cv(j,ibox)=0
+        flag_ls=0
+        flag_cv=0
+        do ilev=1,nlev
+          if (frac_out(j,ibox,ilev) .eq. 1) then 
+            flag_ls=1
+          endif
+          if (frac_out(j,ibox,ilev) .eq. 2) then 
+            flag_cv=1
+          endif
+        enddo !loop over nlev
+        if (flag_ls .eq. 1) then
+           frac_out_ls(j,ibox)=1
+        endif
+        if (flag_cv .eq. 1) then
+           frac_out_cv(j,ibox)=1
+        endif
+       enddo  ! loop over ncol
+      enddo ! loop over npoints
+
+!      initialize the top layer      
+       do j=1,npoints
+        flag_ls=0
+        flag_cv=0
+    
+        if (ls_p_rate(j,1) .gt. 0.) then 
+            do ibox=1,ncol ! possibility ONE
+                if (frac_out(j,ibox,1) .eq. 1) then 
+                    prec_frac(j,ibox,1) = 1
+                    flag_ls=1
+                endif
+            enddo ! loop over ncol
+            if (flag_ls .eq. 0) then ! possibility THREE
+                do ibox=1,ncol
+                    if (frac_out(j,ibox,2) .eq. 1) then 
+                        prec_frac(j,ibox,1) = 1
+                        flag_ls=1
+                    endif
+                enddo ! loop over ncol
+            endif
+        if (flag_ls .eq. 0) then ! possibility Four
+        do ibox=1,ncol
+        if (frac_out_ls(j,ibox) .eq. 1) then 
+            prec_frac(j,ibox,1) = 1
+            flag_ls=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_ls .eq. 0) then ! possibility Five
+        do ibox=1,ncol
+    !     prec_frac(j,1:ncol,1) = 1
+        prec_frac(j,ibox,1) = 1
+        enddo ! loop over ncol
+            endif
+        endif
+       ! There is large scale precipitation
+     
+        if (cv_p_rate(j,1) .gt. 0.) then 
+         do ibox=1,ncol ! possibility ONE
+          if (frac_out(j,ibox,1) .eq. 2) then 
+           if (prec_frac(j,ibox,1) .eq. 0) then
+        prec_frac(j,ibox,1) = 2
+       else
+        prec_frac(j,ibox,1) = 3
+       endif
+       flag_cv=1
+      endif
+        enddo ! loop over ncol
+        if (flag_cv .eq. 0) then ! possibility THREE
+        do ibox=1,ncol
+        if (frac_out(j,ibox,2) .eq. 2) then 
+                if (prec_frac(j,ibox,1) .eq. 0) then
+            prec_frac(j,ibox,1) = 2
+            else
+            prec_frac(j,ibox,1) = 3
+            endif
+            flag_cv=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_cv .eq. 0) then ! possibility Four
+        do ibox=1,ncol
+        if (frac_out_cv(j,ibox) .eq. 1) then 
+                if (prec_frac(j,ibox,1) .eq. 0) then
+            prec_frac(j,ibox,1) = 2
+            else
+            prec_frac(j,ibox,1) = 3
+            endif
+            flag_cv=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_cv .eq. 0) then  ! possibility Five
+        do ibox=1,cv_col
+                if (prec_frac(j,ibox,1) .eq. 0) then
+            prec_frac(j,ibox,1) = 2
+            else
+            prec_frac(j,ibox,1) = 3
+            endif 
+        enddo !loop over cv_col
+            endif 
+        endif 
+        ! There is convective precipitation
+        
+        enddo ! loop over npoints
+!      end of initializing the top layer
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!     working on the levels from top to surface
+      do ilev=2,nlev
+       do j=1,npoints
+        flag_ls=0
+        flag_cv=0
+    
+        if (ls_p_rate(j,ilev) .gt. 0.) then 
+         do ibox=1,ncol ! possibility ONE&TWO
+          if ((frac_out(j,ibox,ilev) .eq. 1) .or. 
+     &       ((prec_frac(j,ibox,ilev-1) .eq. 1) 
+     &       .or. (prec_frac(j,ibox,ilev-1) .eq. 3))) then 
+           prec_frac(j,ibox,ilev) = 1
+           flag_ls=1
+          endif
+        enddo ! loop over ncol
+        if ((flag_ls .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE
+        do ibox=1,ncol
+        if (frac_out(j,ibox,ilev+1) .eq. 1) then 
+            prec_frac(j,ibox,ilev) = 1
+            flag_ls=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_ls .eq. 0) then ! possibility Four
+        do ibox=1,ncol
+        if (frac_out_ls(j,ibox) .eq. 1) then 
+            prec_frac(j,ibox,ilev) = 1
+            flag_ls=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_ls .eq. 0) then ! possibility Five
+        do ibox=1,ncol
+!     prec_frac(j,1:ncol,ilev) = 1
+        prec_frac(j,ibox,ilev) = 1
+        enddo ! loop over ncol
+         endif
+      endif ! There is large scale precipitation
+    
+        if (cv_p_rate(j,ilev) .gt. 0.) then 
+         do ibox=1,ncol ! possibility ONE&TWO
+          if ((frac_out(j,ibox,ilev) .eq. 2) .or. 
+     &       ((prec_frac(j,ibox,ilev-1) .eq. 2) 
+     &       .or. (prec_frac(j,ibox,ilev-1) .eq. 3))) then 
+            if (prec_frac(j,ibox,ilev) .eq. 0) then
+         prec_frac(j,ibox,ilev) = 2
+        else
+         prec_frac(j,ibox,ilev) = 3
+        endif 
+        flag_cv=1
+        endif
+       enddo ! loop over ncol
+        if ((flag_cv .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE
+        do ibox=1,ncol
+        if (frac_out(j,ibox,ilev+1) .eq. 2) then 
+                if (prec_frac(j,ibox,ilev) .eq. 0) then
+            prec_frac(j,ibox,ilev) = 2
+            else
+            prec_frac(j,ibox,ilev) = 3
+            endif
+            flag_cv=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_cv .eq. 0) then ! possibility Four
+        do ibox=1,ncol
+        if (frac_out_cv(j,ibox) .eq. 1) then 
+                if (prec_frac(j,ibox,ilev) .eq. 0) then
+            prec_frac(j,ibox,ilev) = 2
+            else
+            prec_frac(j,ibox,ilev) = 3
+            endif
+            flag_cv=1
+        endif
+        enddo ! loop over ncol
+        endif
+        if (flag_cv .eq. 0) then  ! possibility Five 
+        do ibox=1,cv_col
+                if (prec_frac(j,ibox,ilev) .eq. 0) then
+            prec_frac(j,ibox,ilev) = 2
+            else
+            prec_frac(j,ibox,ilev) = 3
+            endif 
+        enddo !loop over cv_col 
+            endif 
+        endif ! There is convective precipitation
+    
+        enddo ! loop over npoints
+        enddo ! loop over nlev
+
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/predict_mom07.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/predict_mom07.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/predict_mom07.F90	(revision 3330)
@@ -0,0 +1,41 @@
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/predict_mom07.F90 $
+        subroutine predict_mom07(m2,tc,n,m)
+        
+        ! subroutine to predict nth moment m given m2, tc, n
+        ! if m2=-9999 then the routine will predict m2 given m,n,tc
+            implicit none
+        
+            real*8 :: a1,a2,a3,b1,b2,b3,c1,c2,c3
+            real*8 :: m2,tc,n,m,a_,b_,c_,A,B,C,n2
+        
+            a1=      13.6078
+            a2=     -7.76062
+            a3=     0.478694
+            b1=   -0.0360722
+            b2=    0.0150830
+            b3=   0.00149453
+            c1=     0.806856
+            c2=   0.00581022
+            c3=    0.0456723
+        
+            n2=n*n
+            a_=a1+a2*n+a3*n2
+            b_=b1+b2*n+b3*n2
+            c_=c1+c2*n+c3*n2
+        
+            A=exp(a_)
+            B=b_
+            C=c_
+            
+        ! predict m from m2 and tc
+                if(m2.ne.-9999) then 
+                m=A*exp(B*tc)*m2**C
+                endif
+        ! get m2 if mass-dimension relationship not proportional to D**2
+                if(m2.eq.-9999) then 
+                m2=(m/(A*exp(B*tc)))**(1.0/C)    
+                endif
+        
+                return
+        end subroutine predict_mom07
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator.F90	(revision 3330)
@@ -0,0 +1,454 @@
+  subroutine radar_simulator( &
+    hp, &
+    nprof,ngate, &
+    undef, &
+    hgt_matrix,hm_matrix,re_matrix,Np_matrix, &
+    p_matrix,t_matrix,rh_matrix, &
+    Ze_non,Ze_ray,a_to_vol,g_to_vol,dBZe, &
+    g_to_vol_in,g_to_vol_out)
+ 
+  use m_mrgrnk 
+  use array_lib
+  use math_lib
+  use optics_lib
+  use radar_simulator_types
+  use scale_LUTs_io
+  implicit none
+  
+! Purpose:
+!
+!   Simulates a vertical profile of radar reflectivity
+!   Originally Part of QuickBeam v1.04 by John Haynes & Roger Marchand.
+!   but has been substantially modified since that time by
+!   Laura Fowler and Roger Marchand (see modifications below).
+!
+! Inputs:
+!
+!   [hp]              structure that defines hydrometeor types and other radar properties
+!
+!   [nprof]           number of hydrometeor profiles
+!   [ngate]           number of vertical layers
+!
+!   [undef]           missing data value
+!   (The following 5 arrays must be in order from closest to the radar
+!    to farthest...)
+!
+!   [hgt_matrix]      height of hydrometeors (km)
+!   [p_matrix]        pressure profile (hPa)
+!   [t_matrix]        temperature profile (K)
+!   [rh_matrix]       relative humidity profile (%) -- only needed if gaseous aborption calculated.
+!
+!   [hm_matrix]       table of hydrometeor mixing rations (g/kg)
+!   [re_matrix]       table of hydrometeor effective radii.  0 ==> use defaults. (units=microns)    
+!   [Np_matrix]	      table of hydrometeor number concentration.  0 ==> use defaults. (units = 1/kg)
+!
+! Outputs:
+!
+!   [Ze_non]          radar reflectivity without attenuation (dBZ)
+!   [Ze_ray]          Rayleigh reflectivity (dBZ)
+!   [h_atten_to_vol]  attenuation by hydromets, radar to vol (dB)
+!   [g_atten_to_vol]  gaseous atteunation, radar to vol (dB)
+!   [dBZe]            effective radar reflectivity factor (dBZ)
+!
+! Optional:
+!   [g_to_vol_in]     integrated atten due to gases, r>v (dB).
+!                     If present then is used as gaseous absorption, independently of the
+!                     value in use_gas_abs
+!   [g_to_vol_out]    integrated atten due to gases, r>v (dB).
+!                     If present then gaseous absorption for each profile is returned here.
+!
+! Created:
+!   11/28/2005  John Haynes (haynes@atmos.colostate.edu)
+!
+! Modified:
+!   09/2006  placed into subroutine form (Roger Marchand,JMH)
+!   08/2007  added equivalent volume spheres, Z and N scalling most distrubtion types (Roger Marchand)
+!   01/2008  'Do while' to determine if hydrometeor(s) present in volume
+!             changed for vectorization purposes (A. Bodas-Salcedo)
+!
+!   07/2010  V3.0 ... Modified to load or save scale factors to disk as a Look-Up Table (LUT)
+!  ... All hydrometeor and radar simulator properties now included in hp structure
+!  ... hp structure should be initialized by call to radar_simulator_init prior 
+!  ... to calling this subroutine.  
+!     Also ... Support of Morrison 2-moment style microphyscis (Np_matrix) added 
+!  ... Changes implement by Roj Marchand following work by Laura Fowler
+!
+!   10/2011  Modified ngate loop to go in either direction depending on flag 
+!     hp%radar_at_layer_one.  This affects the direction in which attenuation is summed.
+!
+!     Also removed called to AVINT for gas and hydrometeor attenuation and replaced with simple
+!     summation. (Roger Marchand)
+!
+!
+! ----- INPUTS -----  
+ 
+  logical, parameter  ::  DO_LUT_TEST = .false. 
+  logical, parameter  ::  DO_NP_TEST = .false. 
+
+  type(class_param), intent(inout) :: hp
+
+  integer, intent(in) ::  nprof,ngate
+
+  real undef
+  real*8, dimension(nprof,ngate), intent(in) :: &
+    hgt_matrix, p_matrix,t_matrix,rh_matrix
+
+  real*8, dimension(hp%nhclass,nprof,ngate), intent(in) :: hm_matrix
+  real*8, dimension(hp%nhclass,nprof,ngate), intent(inout) :: re_matrix
+  real*8, dimension(hp%nhclass,nprof,ngate), intent(in)    :: Np_matrix
+
+! ----- OUTPUTS -----
+  real*8, dimension(nprof,ngate), intent(out) :: Ze_non,Ze_ray, &
+       g_to_vol,dBZe,a_to_vol
+
+! ----- OPTIONAL -----
+  real*8, optional, dimension(nprof,ngate) :: &
+  g_to_vol_in,g_to_vol_out ! integrated atten due to gases, r>v (dB). This allows to output and then input
+                           ! the same gaseous absorption in different calls. Optional to allow compatibility
+                           ! with original version. A. Bodas April 2008.
+!  real*8, dimension(nprof,ngate) :: kr_matrix 
+
+! ----- INTERNAL -----
+
+  real, parameter :: one_third = 1.0/3.0
+  real*8 :: t_kelvin
+  integer :: &
+  phase, & ! 0=liquid, 1=ice
+  ns       ! number of discrete drop sizes
+
+  logical :: hydro	! true=hydrometeor in vol, false=none
+  real*8 :: &
+  rho_a, &   ! air density (kg m^-3)
+  gases      ! function: 2-way gas atten (dB/km)
+
+  real*8, dimension(:), allocatable :: &
+  Di, Deq, &   ! discrete drop sizes (um)
+  Ni, &        ! discrete concentrations (cm^-3 um^-1)
+  rhoi         ! discrete densities (kg m^-3)
+
+  real*8, dimension(nprof, ngate) :: &
+  z_vol, &      ! effective reflectivity factor (mm^6/m^3)
+  z_ray, &                      ! reflectivity factor, Rayleigh only (mm^6/m^3)
+  kr_vol, &     ! attenuation coefficient hydro (dB/km)
+  g_vol         ! attenuation coefficient gases (dB/km)
+
+
+  integer,parameter :: KR8 = selected_real_kind(15,300)
+  real*8, parameter :: xx = -1.0_KR8
+  real*8,  dimension(:), allocatable :: xxa
+  real*8 :: kr, ze, zr, pi, scale_factor, tc, Re, ld, tmp1, ze2, kr2, apm, bpm
+  real*8 :: half_a_atten_current,half_a_atten_above
+  real*8 :: half_g_atten_current,half_g_atten_above
+  integer*4 :: tp, i, j, k, pr, itt, iff
+
+  real*8    step,base, Np
+  integer*4 iRe_type,n,max_bin
+
+  integer   start_gate,end_gate,d_gate
+
+  logical :: g_to_vol_in_present, g_to_vol_out_present
+
+  ! Logicals to avoid calling present within the loops
+  g_to_vol_in_present  = present(g_to_vol_in)
+  g_to_vol_out_present = present(g_to_vol_out)
+
+  !
+  ! load scaling matricies from disk -- but only the first time this subroutine is called
+  !
+  if(hp%load_scale_LUTs) then
+    call load_scale_LUTs(hp)
+    hp%load_scale_LUTs=.false.
+    hp%Z_scale_added_flag = .false. ! will be set true if scaling Look Up Tables are modified during run
+  endif
+
+  pi = acos(-1.0)
+
+!   ----- Initialisation -----
+  g_to_vol = 0.0
+  a_to_vol = 0.0
+  z_vol    = 0.0
+  z_ray    = 0.0
+  kr_vol   = 0.0
+
+!   // loop over each range gate (ngate) ... starting with layer closest to the radar !
+  if(hp%radar_at_layer_one) then
+    start_gate=1
+    end_gate=ngate
+    d_gate=1
+  else
+    start_gate=ngate
+    end_gate=1
+    d_gate=-1
+  endif
+  do k=start_gate,end_gate,d_gate
+  ! // loop over each profile (nprof)
+    do pr=1,nprof
+      t_kelvin = t_matrix(pr,k)
+!     :: determine if hydrometeor(s) present in volume
+      hydro = .false.
+      do j=1,hp%nhclass
+        if ((hm_matrix(j,pr,k) > 1E-12) .and. (hp%dtype(j) > 0)) then
+          hydro = .true.
+          exit
+        endif
+      enddo
+
+!     :: if there is hydrometeor in the volume
+      if (hydro) then
+
+        rho_a = (p_matrix(pr,k)*100.)/(287.0*(t_kelvin))
+!       :: loop over hydrometeor type
+        do tp=1,hp%nhclass
+          if (hm_matrix(tp,pr,k) <= 1E-12) cycle
+          phase = hp%phase(tp)
+          if (phase==0) then
+            itt = infind(hp%mt_ttl,t_kelvin)
+          else
+            itt = infind(hp%mt_tti,t_kelvin)
+          endif
+          if (re_matrix(tp,pr,k).eq.0) then
+            call calc_Re(hm_matrix(tp,pr,k),Np_matrix(tp,pr,k),rho_a, &
+              hp%dtype(tp),hp%dmin(tp),hp%dmax(tp),hp%apm(tp),hp%bpm(tp), &
+              hp%rho(tp),hp%p1(tp),hp%p2(tp),hp%p3(tp),Re)
+            re_matrix(tp,pr,k)=Re
+          else
+            if (Np_matrix(tp,pr,k)>0) then
+               print *, 'Warning: Re and Np set for the same ', &
+                        'volume & hydrometeor type.  Np is being ignored.'
+            endif
+            Re = re_matrix(tp,pr,k)
+          endif
+
+          iRe_type=1
+          if(Re.gt.0) then
+            ! determine index in to scale LUT
+            !
+            ! distance between Re points (defined by "base" and "step") for
+            ! each interval of size Re_BIN_LENGTH
+            ! Integer asignment, avoids calling floor intrinsic
+            n=Re/Re_BIN_LENGTH
+            if (n>=Re_MAX_BIN) n=Re_MAX_BIN-1
+            step=hp%step_list(n+1)
+            base=hp%base_list(n+1)
+            iRe_type=Re/step
+            if (iRe_type.lt.1) iRe_type=1
+
+            Re=step*(iRe_type+0.5)	! set value of Re to closest value allowed in LUT.
+            iRe_type=iRe_type+base-int(n*Re_BIN_LENGTH/step)
+
+            ! make sure iRe_type is within bounds
+            if (iRe_type.ge.nRe_types) then
+!               write(*,*) 'Warning: size of Re exceed value permitted ', &
+!                    'in Look-Up Table (LUT).  Will calculate. '
+               ! no scaling allowed
+               iRe_type=nRe_types
+               hp%Z_scale_flag(tp,itt,iRe_type)=.false.
+            else
+               ! set value in re_matrix to closest values in LUT
+              if (.not. DO_LUT_TEST) re_matrix(tp,pr,k)=Re
+            endif
+          endif
+          ! use Ze_scaled, Zr_scaled, and kr_scaled ... if know them
+          ! if not we will calculate Ze, Zr, and Kr from the distribution parameters
+          if( (.not. hp%Z_scale_flag(tp,itt,iRe_type)) .or. DO_LUT_TEST)  then
+            ! :: create a distribution of hydrometeors within volume
+            select case(hp%dtype(tp))
+              case(4)
+                ns = 1
+                allocate(Di(ns),Ni(ns),rhoi(ns),xxa(ns),Deq(ns))
+                Di = hp%p1(tp)
+                Ni = 0.
+              case default
+                ns = nd   ! constant defined in radar_simulator_types.f90
+                allocate(Di(ns),Ni(ns),rhoi(ns),xxa(ns),Deq(ns))
+                Di = hp%D
+                Ni = 0.
+            end select
+            call dsd(hm_matrix(tp,pr,k),re_matrix(tp,pr,k),Np_matrix(tp,pr,k), &
+                     Di,Ni,ns,hp%dtype(tp),rho_a,t_kelvin, &
+                     hp%dmin(tp),hp%dmax(tp),hp%apm(tp),hp%bpm(tp), &
+                     hp%rho(tp),hp%p1(tp),hp%p2(tp),hp%p3(tp))
+
+            ! calculate particle density
+            if (phase == 1) then
+              if (hp%rho(tp) < 0) then
+                ! Use equivalent volume spheres.
+                hp%rho_eff(tp,1:ns,iRe_type) = 917  				! solid ice == equivalent volume approach
+                Deq = ( ( 6/pi*hp%apm(tp)/917 ) ** (1.0/3.0) ) * ( (Di*1E-6) ** (hp%bpm(tp)/3.0) )  * 1E6
+                ! alternative is to comment out above two lines and use the following block
+                ! MG Mie approach - adjust density of sphere with D = D_characteristic to match particle density
+                !
+                ! hp%rho_eff(tp,1:ns,iRe_type) = (6/pi)*hp%apm(tp)*(Di*1E-6)**(hp%bpm(tp)-3)   !MG Mie approach
+
+                ! as the particle size gets small it is possible that the mass to size relationship of 
+                ! (given by power law in hclass.data) can produce impossible results 
+                ! where the mass is larger than a solid sphere of ice.  
+                ! This loop ensures that no ice particle can have more mass/density larger than an ice sphere.
+                ! do i=1,ns
+                ! if(hp%rho_eff(tp,i,iRe_type) > 917 ) then
+                ! hp%rho_eff(tp,i,iRe_type) = 917
+                ! endif
+                ! enddo
+              else
+                ! Equivalent volume sphere (solid ice rho_ice=917 kg/m^3).
+                hp%rho_eff(tp,1:ns,iRe_type) = 917
+                Deq=Di * ((hp%rho(tp)/917)**(1.0/3.0))
+                ! alternative ... coment out above two lines and use the following for MG-Mie
+                ! hp%rho_eff(tp,1:ns,iRe_type) = hp%rho(tp)   !MG Mie approach
+              endif
+            else
+              ! I assume here that water phase droplets are spheres.
+              ! hp%rho should be ~ 1000  or hp%apm=524 .and. hp%bpm=3
+              Deq = Di
+            endif
+
+            ! calculate effective reflectivity factor of volume
+            xxa = -9.9
+            rhoi = hp%rho_eff(tp,1:ns,iRe_type)
+            call zeff(hp%freq,Deq,Ni,ns,hp%k2,t_kelvin,phase,hp%do_ray, &
+                      ze,zr,kr,xxa,xxa,rhoi)
+
+            ! test code ... compare Np value input to routine with sum of DSD
+            ! NOTE: if .not. DO_LUT_TEST, then you are checking the LUT approximation 
+            ! not just the DSD representation given by Ni
+            if(Np_matrix(tp,pr,k)>0 .and. DO_NP_TEST ) then
+              Np = path_integral(Ni,Di,1,ns-1)/rho_a*1E6
+              ! Note: Representation is not great or small Re < 2 
+              if( (Np_matrix(tp,pr,k)-Np)/Np_matrix(tp,pr,k)>0.1 ) then
+                write(*,*) 'Error: Np input does not match sum(N)'
+                write(*,*) tp,pr,k,Re,Ni(1),Ni(ns),10*log10(ze)
+                write(*,*) Np_matrix(tp,pr,k),Np,(Np_matrix(tp,pr,k)-Np)/Np_matrix(tp,pr,k)
+                write(*,*)
+              endif
+            endif
+
+            deallocate(Di,Ni,rhoi,xxa,Deq)
+
+            ! LUT test code
+            ! This segment of code compares full calculation to scaling result
+            if ( hp%Z_scale_flag(tp,itt,iRe_type) .and. DO_LUT_TEST )  then
+              scale_factor=rho_a*hm_matrix(tp,pr,k)
+              ! if more than 2 dBZe difference print error message/parameters.
+              if ( abs(10*log10(ze) - 10*log10(hp%Ze_scaled(tp,itt,iRe_type) * &
+                   scale_factor)) > 2 ) then
+                write(*,*) 'Roj Error: ',tp,itt,iRe_type,hp%Z_scale_flag(tp,itt,iRe_type),n,step,base
+                write(*,*) 10*log10(ze),10*log10(hp%Ze_scaled(tp,itt,iRe_type) * scale_factor)
+                write(*,*) hp%Ze_scaled(tp,itt,iRe_type),scale_factor
+                write(*,*) re_matrix(tp,pr,k),Re
+                write(*,*)
+              endif
+            endif
+
+          else ! can use z scaling
+            scale_factor=rho_a*hm_matrix(tp,pr,k)
+            zr = hp%Zr_scaled(tp,itt,iRe_type) * scale_factor
+            ze = hp%Ze_scaled(tp,itt,iRe_type) * scale_factor
+            kr = hp%kr_scaled(tp,itt,iRe_type) * scale_factor
+          endif  ! end z_scaling
+
+          kr_vol(pr,k) = kr_vol(pr,k) + kr
+          z_vol(pr,k)  = z_vol(pr,k)  + ze
+          z_ray(pr,k)  = z_ray(pr,k)  + zr
+
+          ! construct Ze_scaled, Zr_scaled, and kr_scaled ... if we can
+          if ( .not. hp%Z_scale_flag(tp,itt,iRe_type) ) then
+            if (iRe_type>1) then
+              scale_factor=rho_a*hm_matrix(tp,pr,k)
+              hp%Ze_scaled(tp,itt,iRe_type) = ze/ scale_factor
+              hp%Zr_scaled(tp,itt,iRe_type) = zr/ scale_factor
+              hp%kr_scaled(tp,itt,iRe_type) = kr/ scale_factor
+              hp%Z_scale_flag(tp,itt,iRe_type) = .true.
+              hp%Z_scale_added_flag(tp,itt,iRe_type)=.true.
+            endif
+          endif
+
+        enddo	! end loop of tp (hydrometeor type)
+
+      else
+!     :: volume is hydrometeor-free	
+        kr_vol(pr,k) = 0
+        z_vol(pr,k)  = undef
+        z_ray(pr,k)  = undef
+      endif
+
+      !     :: attenuation due to hydrometeors between radar and volume
+      !
+      ! NOTE old scheme integrates attenuation only for the layers ABOVE
+      ! the current layer ... i.e. 1 to k-1 rather than 1 to k ...
+      ! which may be a problem.   ROJ
+      ! in the new scheme I assign half the attenuation to the current layer
+      if(d_gate==1) then
+        ! dheight calcuations assumes hgt_matrix points are the cell mid-points.
+        if (k>2) then
+          ! add to previous value to half of above layer + half of current layer
+          a_to_vol(pr,k)=  a_to_vol(pr,k-1) + &
+             (kr_vol(pr,k-1)+kr_vol(pr,k))*(hgt_matrix(pr,k-1)-hgt_matrix(pr,k))
+        else
+          a_to_vol(pr,k)=  kr_vol(pr,k)*(hgt_matrix(pr,k)-hgt_matrix(pr,k+1))
+        endif
+      else   ! d_gate==-1
+        if(k<ngate) then
+          ! add to previous value half of above layer + half of current layer
+          a_to_vol(pr,k) = a_to_vol(pr,k+1) + &
+              (kr_vol(pr,k+1)+kr_vol(pr,k))*(hgt_matrix(pr,k+1)-hgt_matrix(pr,k))
+        else
+          a_to_vol(pr,k)= kr_vol(pr,k)*(hgt_matrix(pr,k)-hgt_matrix(pr,k-1))
+        endif
+      endif
+
+      !     :: attenuation due to gaseous absorption between radar and volume
+      if (g_to_vol_in_present) then
+        g_to_vol(pr,k) = g_to_vol_in(pr,k)
+      else
+        if ( (hp%use_gas_abs == 1) .or. ((hp%use_gas_abs == 2) .and. (pr == 1)) ) then
+          g_vol(pr,k) = gases(p_matrix(pr,k),t_kelvin,rh_matrix(pr,k),hp%freq)
+          if (d_gate==1) then
+            if (k>1) then
+              ! add to previous value to half of above layer + half of current layer
+              g_to_vol(pr,k) =  g_to_vol(pr,k-1) + &
+                  0.5*(g_vol(pr,k-1)+g_vol(pr,k))*(hgt_matrix(pr,k-1)-hgt_matrix(pr,k))
+            else
+              g_to_vol(pr,k)=  0.5*g_vol(pr,k)*(hgt_matrix(pr,k)-hgt_matrix(pr,k+1))
+            endif
+          else   ! d_gate==-1
+            if (k<ngate) then
+              ! add to previous value to half of above layer + half of current layer
+              g_to_vol(pr,k) = g_to_vol(pr,k+1) + &
+                 0.5*(g_vol(pr,k+1)+g_vol(pr,k))*(hgt_matrix(pr,k+1)-hgt_matrix(pr,k))
+            else
+              g_to_vol(pr,k)= 0.5*g_vol(pr,k)*(hgt_matrix(pr,k)-hgt_matrix(pr,k-1))
+            endif
+          endif
+        elseif(hp%use_gas_abs == 2) then
+          ! using value calculated for the first column
+          g_to_vol(pr,k) = g_to_vol(1,k)
+        elseif (hp%use_gas_abs == 0) then
+          g_to_vol(pr,k) = 0
+        endif
+      endif
+
+      ! Compute Rayleigh reflectivity, and full, attenuated reflectivity
+      if ((hp%do_ray == 1) .and. (z_ray(pr,k) > 0)) then
+        Ze_ray(pr,k) = 10*log10(z_ray(pr,k))
+      else
+        Ze_ray(pr,k) = undef
+      endif
+      if (z_vol(pr,k) > 0) then
+        Ze_non(pr,k) = 10*log10(z_vol(pr,k))
+        dBZe(pr,k) = Ze_non(pr,k)-a_to_vol(pr,k)-g_to_vol(pr,k)
+      else
+        dBZe(pr,k) = undef
+        Ze_non(pr,k) = undef
+      endif
+
+    enddo   ! end loop over pr (profile)
+
+  enddo ! end loop of k (range gate)
+
+  ! Output array with gaseous absorption
+  if (g_to_vol_out_present) g_to_vol_out = g_to_vol
+
+  ! save any updates made 
+  if (hp%update_scale_LUTs) call save_scale_LUTs(hp)
+
+  end subroutine radar_simulator
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator_init.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator_init.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator_init.F90	(revision 3330)
@@ -0,0 +1,156 @@
+  subroutine radar_simulator_init(freq,k2,use_gas_abs,do_ray,undef, &
+                  nhclass, &
+                  hclass_type,hclass_phase, &
+                      hclass_dmin,hclass_dmax, &
+                          hclass_apm,hclass_bpm,hclass_rho, &
+                          hclass_p1,hclass_p2,hclass_p3, &
+                          load_scale_LUTs_flag,update_scale_LUTs_flag,LUT_file_name, &
+                  hp &      ! output
+                  )
+  use radar_simulator_types
+  implicit none
+  
+! Purpose:
+!
+!   Initialize variables used by the radar simulator.
+!   Part of QuickBeam v3.0 by John Haynes and Roj Marchand
+!   
+!
+! Inputs:  
+!   []   from data in hydrometeor class input 
+! 
+!   [freq]            radar frequency (GHz)
+!
+!   [k2]              |K|^2, the dielectric constant, set to -1 to use the
+!                     frequency dependent default
+!
+!   [use_gas_abs]     1=do gaseous abs calcs, 0=no gasesous absorbtion calculated,
+!                     2=calculate (and use) absorption for first profile on all profiles
+!
+!   [undef]           mising data value
+!   [nhclass]         number of hydrometeor types
+!
+!   For each hydrometero type:
+!       hclass_type     Type of distribution (see quickbeam documentation)
+!       hclass_phase            1==ice, 0=liquid
+!
+!       hclass_dmin         minimum diameter allowed is drop size distribution N(D<Dmin)=0
+!       hclass_dmax         maximum diameter allowed is drop size distribution N(D>Dmax)=0
+!
+!   hclass_apm,hclass_bpm   Density of partical apm*D^bpm or constant = rho
+!   hclass_rho, 
+!   
+!       hclass_p1,hclass_p2,    Default values of DSD parameters (see quickbeam documentation)
+!   hclass_p3, 
+!
+!   load_scale_LUTs_flag    Flag, load scale factors Look Up Table from file at start of run
+!   update_scale_LUTs_flag  Flag, save new scale factors calculated during this run to LUT
+!   LUT_file_name       Name of file containing LUT
+!
+! Outputs:
+!   [hp]            structure that define hydrometeor types
+!
+! Modified:
+!   08/23/2006  placed into subroutine form (Roger Marchand)
+!   June 2010   New interface to support "radar_simulator_params" structure
+   
+! ----- INPUT -----
+
+   real, intent(in)    :: freq,k2
+   integer, intent(in) :: nhclass       ! number of hydrometeor classes in use
+   integer, intent(in) :: use_gas_abs,do_ray
+   real :: undef
+   real,dimension(nhclass),intent(in)     ::    hclass_dmin,hclass_dmax, &
+                                hclass_apm,hclass_bpm,hclass_rho, &
+                                hclass_p1,hclass_p2,hclass_p3 
+   integer,dimension(nhclass),intent(in)  ::    hclass_type,hclass_phase
+  
+   logical, intent(in)       :: load_scale_LUTs_flag,update_scale_LUTs_flag
+   character*240, intent(in) :: LUT_file_name
+
+! ----- OUTPUTS -----  
+  type(class_param), intent(out) :: hp
+
+! ----- INTERNAL -----  
+  integer :: i,j
+  real*8  :: delt, deltp
+        
+    !
+    ! set radar simulation properites
+    !
+    hp%freq=freq
+    hp%k2=k2
+    hp%use_gas_abs=use_gas_abs
+    hp%do_ray=do_ray
+    hp%nhclass=nhclass
+    
+    hp%load_scale_LUTs=load_scale_LUTs_flag
+    hp%update_scale_LUTs=update_scale_LUTs_flag
+    hp%scale_LUT_file_name=LUT_file_name
+    
+    ! 
+        ! Store settings for hydrometeor types in hp (class_parameter) structure.   
+        !
+        do i = 1,nhclass
+        hp%dtype(i) = hclass_type(i)
+        hp%phase(i) = hclass_phase(i)
+        hp%dmin(i)  = hclass_dmin(i)
+        hp%dmax(i)  = hclass_dmax(i)
+        hp%apm(i)   = hclass_apm(i)
+        hp%bpm(i)   = hclass_bpm(i)
+        hp%rho(i)   = hclass_rho(i)
+        hp%p1(i)    = hclass_p1(i)
+        hp%p2(i)    = hclass_p2(i)
+        hp%p3(i)    = hclass_p3(i)
+        enddo
+   
+        ! 
+        ! initialize scaling array
+        !
+        hp%N_scale_flag = .false.
+        hp%fc = undef
+        hp%rho_eff = undef
+    
+        hp%Z_scale_flag = .false.
+        hp%Ze_scaled = 0.0
+        hp%Zr_scaled = 0.0
+        hp%kr_scaled = 0.0
+  
+        !
+    ! set up Re bin "structure" for z_scaling
+        !
+    hp%base_list(1)=0;
+    do j=1,Re_MAX_BIN
+        hp%step_list(j)=0.1+0.1*((j-1)**1.5);
+        if(hp%step_list(j)>Re_BIN_LENGTH) then
+            hp%step_list(j)=Re_BIN_LENGTH;
+        endif
+        if(j>1) then
+            hp%base_list(j)=hp%base_list(j-1)+floor(Re_BIN_LENGTH/hp%step_list(j-1));
+        endif
+    enddo
+
+    !
+    ! set up Temperature bin structure used for z scaling
+    !
+    do i=1,cnt_ice
+        hp%mt_tti(i)=(i-1)*5-90 + 273.15
+    enddo
+    
+    do i=1,cnt_liq
+        hp%mt_ttl(i)=(i-1)*5-60 + 273.15
+    enddo 
+  
+    !
+        ! define array discrete diameters used in mie calculations
+        !
+        delt = (log(dmax)-log(dmin))/(nd-1)
+        deltp = exp(delt)
+
+        hp%D(1) = dmin
+        do i=2,nd
+          hp%D(i) = hp%D(i-1)*deltp
+        enddo   
+ 
+  
+  end subroutine radar_simulator_init
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator_types.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator_types.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/radar_simulator_types.F90	(revision 3330)
@@ -0,0 +1,74 @@
+  module radar_simulator_types
+
+! Collection of common variables and types
+! Part of QuickBeam v1.03 by John Haynes
+! Updated by Roj Marchand June 2010 
+
+  integer, parameter ::       &
+  maxhclass = 20         ,& ! max number of hydrometeor classes
+  nRe_types = 550       ! max number or Re size bins allowed in N and Z_scaled look up table
+
+  ! These variables define discrete diameters used to represent the DSDs.
+  integer, parameter ::       &
+  nd = 85               ! number of discrete particles used in construction DSDs
+  real*8, parameter ::        &
+  dmin = 0.1                 ,& ! min size of discrete particle
+  dmax = 10000.                 ! max size of discrete particle
+   
+  integer, parameter :: &   ! These parameters used to define temperature intervals in mie LUTs
+  mt_nfreq = 5              , &
+  mt_ntt = 39               , & ! num temperatures in table
+  mt_nf = 14            , & ! number of ice fractions in table  
+  mt_nd = 85                    ! num discrete mode-p drop sizes in table
+
+  integer, parameter :: &   ! These parameters used to defines Re intervals in scale LUTs
+  Re_BIN_LENGTH=10, &        
+  Re_MAX_BIN=250
+
+  integer, parameter :: &   ! These parameters used to define Temperature invervals in scale LUTs
+  cnt_liq = 19, &       ! liquid temperature count
+  cnt_ice = 20          ! ice temperature count
+
+
+! ---- hydrometeor class type -----  
+  
+  type class_param
+  
+    ! variables used to store hydrometeor "default" properties
+    real*8,  dimension(maxhclass) :: p1,p2,p3,dmin,dmax,apm,bpm,rho
+    integer, dimension(maxhclass) :: dtype,col,cp,phase
+  
+    ! Radar properties
+    real*8  :: freq,k2
+    integer :: nhclass      ! number of hydrometeor classes in use
+    integer :: use_gas_abs, do_ray
+    
+    ! defines location of radar relative to hgt_matrix.   
+    logical :: radar_at_layer_one	! if true radar is assume to be at the edge 
+    					! of the first layer, if the first layer is the
+    					! surface than a ground-based radar.   If the
+    					! first layer is the top-of-atmosphere, then
+    					! a space borne radar. 
+    
+    ! variables used to store Z scale factors
+    character*240 :: scale_LUT_file_name
+    logical :: load_scale_LUTs, update_scale_LUTs
+    logical, dimension(maxhclass,nRe_types) :: N_scale_flag
+    logical, dimension(maxhclass,mt_ntt,nRe_types) :: Z_scale_flag,Z_scale_added_flag
+    real*8,  dimension(maxhclass,mt_ntt,nRe_types) :: Ze_scaled,Zr_scaled,kr_scaled
+    real*8,  dimension(maxhclass,nd,nRe_types) :: fc, rho_eff
+
+    ! used to determine Re index
+    real*8  :: step_list(Re_MAX_BIN),base_list(Re_MAX_BIN)
+  
+    ! used to determine temperature index
+    real*8 :: &
+        mt_ttl(cnt_liq), &  ! liquid temperatures (K)
+        mt_tti(cnt_ice)     ! ice temperatures (K)
+
+    real*8 :: D(nd) ! set of discrete diameters used to represent DSDs
+
+  end type class_param
+  
+   
+  end module radar_simulator_types
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/read_cosp_output_nl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/read_cosp_output_nl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/read_cosp_output_nl.F90	(revision 3330)
@@ -0,0 +1,463 @@
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+!--------------- SUBROUTINE READ_COSP_OUTPUT_NL -------------------------
+!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ SUBROUTINE READ_COSP_OUTPUT_NL(cosp_nl,cfg)
+  USE MOD_COSP_CONSTANTS
+  USE MOD_COSP_TYPES
+  USE mod_phys_lmdz_para
+  character(len=*),intent(in) :: cosp_nl
+  type(cosp_config),intent(out) :: cfg
+  ! Local variables
+  integer :: i
+
+!! AI 
+!  logical, save ::   Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
+!             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
+!             Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2,Lcllcalipso, &
+!             Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp,Ltclisccp, &
+!             Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
+!             Lfrac_out,Lbeta_mol532,Ltbrttov
+
+!  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
+!             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
+!             Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2, &
+!             Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp, &
+!             Ltclisccp,Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
+!             Lfrac_out,Lbeta_mol532,Ltbrttov
+!!
+
+ logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
+             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
+             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
+             Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp, &
+             Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
+             Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
+             Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
+             Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
+             Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
+             Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
+             Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
+             Lfracout,LlidarBetaMol532,Ltbrttov, &
+             Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
+             Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
+             Liwpmodis,Lclmodis
+
+  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
+             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
+             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp, &
+             Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp, &
+             Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
+             Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
+             Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
+             Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
+             Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
+             Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
+             Lcltisccp,Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
+             Lfracout,LlidarBetaMol532,Ltbrttov, &
+             Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
+             Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
+             Liwpmodis,Lclmodis
+   
+  do i=1,N_OUT_LIST
+    cfg%out_list(i)=''
+  enddo
+  
+  IF (is_master) THEN
+    open(10,file=cosp_nl,status='old')
+    read(10,nml=cosp_output)
+    close(10)
+  ENDIF
+  
+  CALL bcast(Lradar_sim)
+  CALL bcast(Llidar_sim)
+  CALL bcast(Lisccp_sim)
+  CALL bcast(Lmodis_sim)
+  CALL bcast(Lmisr_sim)
+  CALL bcast(Lrttov_sim)
+  CALL bcast(Lalbisccp)
+  CALL bcast(Latb532)
+  CALL bcast(Lboxptopisccp)
+  CALL bcast(Lboxtauisccp)
+  CALL bcast(Lcfad_dbze94)
+  CALL bcast(Lcfad_lidarsr532)
+  CALL bcast(Lclcalipso2)
+  CALL bcast(Lclcalipso)
+  CALL bcast(Lclhcalipso)
+  CALL bcast(Lclcalipsoliq)
+  CALL bcast(Lclcalipsoice)
+  CALL bcast(Lclcalipsoun)
+  CALL bcast(Lclcalipsotmp)
+  CALL bcast(Lclcalipsotmpliq)
+  CALL bcast(Lclcalipsotmpice)
+  CALL bcast(Lclcalipsotmpun)
+  CALL bcast(Lcltcalipsoliq)
+  CALL bcast(Lcltcalipsoice)
+  CALL bcast(Lcltcalipsoun)
+  CALL bcast(Lclhcalipsoliq)
+  CALL bcast(Lclhcalipsoice)
+  CALL bcast(Lclhcalipsoun)
+  CALL bcast(Lclmcalipsoliq)
+  CALL bcast(Lclmcalipsoice)
+  CALL bcast(Lclmcalipsoun)
+  CALL bcast(Lcllcalipsoliq)
+  CALL bcast(Lcllcalipsoice) 
+  CALL bcast(Lcllcalipsoun)
+  CALL bcast(Lclisccp2)
+  CALL bcast(Lcllcalipso)
+  CALL bcast(Lclmcalipso)
+  CALL bcast(Lcltcalipso)
+  CALL bcast(Lcltlidarradar)
+  CALL bcast(Lctpisccp)
+  CALL bcast(Ldbze94)
+  CALL bcast(Ltauisccp)
+  CALL bcast(Lcltisccp)
+  CALL bcast(Lparasol_refl)
+  CALL bcast(LclMISR)
+  CALL bcast(Lmeantbisccp)
+  CALL bcast(Lmeantbclrisccp)
+  CALL bcast(Lfrac_out)
+  CALL bcast(Lbeta_mol532)
+  CALL bcast(Lcltmodis)
+  CALL bcast(Lclwmodis)
+  CALL bcast(Lclimodis) 
+  CALL bcast(Lclhmodis)
+  CALL bcast(Lclmmodis)
+  CALL bcast(Lcllmodis)
+  CALL bcast(Ltautmodis)
+  CALL bcast(Ltauwmodis)
+  CALL bcast(Ltauimodis)
+  CALL bcast(Ltautlogmodis)
+  CALL bcast(Ltauwlogmodis)
+  CALL bcast(Ltauilogmodis)
+  CALL bcast(Lreffclwmodis)
+  CALL bcast(Lreffclimodis)
+  CALL bcast(Lpctmodis)
+  CALL bcast(Llwpmodis)
+  CALL bcast(Liwpmodis)
+  CALL bcast(Lclmodis)
+  CALL bcast(Ltbrttov)
+!$OMP BARRIER
+
+!  print*,' Cles sorties cosp :'
+!  print*,' Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim', &
+!           Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim
+
+  ! Deal with dependencies
+  if (.not.Lradar_sim) then
+    Lcfad_dbze94   = .false.
+    Lclcalipso2    = .false.
+    Lcltlidarradar = .false.
+    Ldbze94        = .false.
+  endif
+  if (.not.Llidar_sim) then
+    Latb532 = .false.
+    Lcfad_lidarsr532 = .false.
+    Lclcalipso2      = .false.
+    Lclcalipso       = .false.
+    Lclhcalipso      = .false.
+    Lcllcalipso      = .false.
+    Lclmcalipso      = .false.
+    Lcltcalipso      = .false.
+    Lcltlidarradar   = .false.
+    Lparasol_refl    = .false.
+    Lbeta_mol532     = .false.
+!! AI
+    Lclcalipsoliq    = .false.
+    Lclcalipsoice    = .false.
+    Lclcalipsoun    = .false.
+    Lclcalipsotmp    = .false.
+    Lclcalipsotmpun    = .false.
+    Lclcalipsotmpliq    = .false.
+    Lclcalipsotmpice    = .false.
+    Lclhcalipsoliq      = .false.
+    Lcllcalipsoliq      = .false.
+    Lclmcalipsoliq     = .false.
+    Lcltcalipsoliq      = .false.
+    Lclhcalipsoice      = .false.
+    Lcllcalipsoice      = .false.
+    Lclmcalipsoice      = .false.
+    Lcltcalipsoice      = .false.
+    Lclhcalipsoun      = .false.
+    Lcllcalipsoun      = .false.
+    Lclmcalipsoun      = .false.
+    Lcltcalipsoun      = .false.
+  endif
+  if (.not.Lisccp_sim) then
+    Lalbisccp       = .false.
+    Lboxptopisccp   = .false.
+    Lboxtauisccp    = .false.
+    Lclisccp2       = .false.
+    Lctpisccp       = .false.
+    Ltauisccp       = .false.
+    Ltclisccp       = .false.
+    Lmeantbisccp    = .false.
+    Lmeantbclrisccp = .false.
+  endif
+  if (.not.Lmisr_sim) then
+    LclMISR = .false.
+  endif
+  if (.not.Lrttov_sim) then
+    Ltbrttov = .false.
+  endif
+  if ((.not.Lradar_sim).and.(.not.Llidar_sim).and. &
+      (.not.Lisccp_sim).and.(.not.Lmisr_sim)) then
+    Lfrac_out = .false.
+  endif
+ if (.not.Lmodis_sim) then
+    Lcltmodis=.false.
+    Lclwmodis=.false.
+    Lclimodis=.false.
+    Lclhmodis=.false.
+    Lclmmodis=.false.
+    Lcllmodis=.false.
+    Ltautmodis=.false.
+    Ltauwmodis=.false.
+    Ltauimodis=.false.
+    Ltautlogmodis=.false.
+    Ltauwlogmodis=.false.
+    Ltauilogmodis=.false.
+    Lreffclwmodis=.false.
+    Lreffclimodis=.false.
+    Lpctmodis=.false.
+    Llwpmodis=.false.
+    Liwpmodis=.false.
+    Lclmodis=.false.
+  endif
+  if (Lmodis_sim) Lisccp_sim = .true.
+
+  ! Diagnostics that use Radar and Lidar
+  if (((Lclcalipso2).or.(Lcltlidarradar)).and.((Lradar_sim).or.(Llidar_sim))) then
+    Lclcalipso2    = .true.
+    Lcltlidarradar = .true.
+    Llidar_sim     = .true.
+    Lradar_sim     = .true.
+  endif
+
+  cfg%Lstats = .false.
+  if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) cfg%Lstats = .true.
+
+  ! Copy instrument flags to cfg structure
+  cfg%Lradar_sim = Lradar_sim
+  cfg%Llidar_sim = Llidar_sim
+  cfg%Lisccp_sim = Lisccp_sim
+  cfg%Lmodis_sim = Lmodis_sim
+  cfg%Lmisr_sim  = Lmisr_sim
+  cfg%Lrttov_sim = Lrttov_sim
+
+  ! Flag to control output to file
+  cfg%Lwrite_output = .false.
+  if (cfg%Lstats.or.cfg%Lmisr_sim.or.cfg%Lrttov_sim) then
+    cfg%Lwrite_output = .true.
+  endif
+
+  ! Output diagnostics
+  i = 1
+  if (Lalbisccp)        cfg%out_list(i) = 'albisccp'
+  i = i+1
+  if (Latb532)          cfg%out_list(i) = 'atb532'
+  i = i+1
+  if (Lboxptopisccp)    cfg%out_list(i) = 'boxptopisccp'
+  i = i+1
+  if (Lboxtauisccp)     cfg%out_list(i) = 'boxtauisccp'
+  i = i+1
+  if (LcfadDbze94)      cfg%out_list(i) = 'cfadDbze94'
+  i = i+1
+  if (LcfadLidarsr532)  cfg%out_list(i) = 'cfadLidarsr532'
+  i = i+1
+  if (Lclcalipso2)      cfg%out_list(i) = 'clcalipso2'
+  i = i+1
+  if (Lclcalipso)       cfg%out_list(i) = 'clcalipso'
+  i = i+1
+  if (Lclhcalipso)      cfg%out_list(i) = 'clhcalipso'
+  i = i+1
+  if (Lclisccp)         cfg%out_list(i) = 'clisccp'
+  i = i+1
+  if (Lcllcalipso)      cfg%out_list(i) = 'cllcalipso'
+  i = i+1
+  if (Lclmcalipso)      cfg%out_list(i) = 'clmcalipso'
+  i = i+1
+  if (Lcltcalipso)      cfg%out_list(i) = 'cltcalipso'
+  i = i+1
+
+  if (Lcllcalipsoice)      cfg%out_list(i) = 'cllcalipsoice'
+  i = i+1
+  if (Lclmcalipsoice)      cfg%out_list(i) = 'clmcalipsoice'
+  i = i+1
+  if (Lclhcalipsoice)      cfg%out_list(i) = 'clhcalipsoice'
+  i = i+1
+  if (Lcltcalipsoice)      cfg%out_list(i) = 'cltcalipsoice'
+  i = i+1
+  if (Lcllcalipsoliq)      cfg%out_list(i) = 'cllcalipsoliq'
+  i = i+1
+  if (Lclmcalipsoliq)      cfg%out_list(i) = 'clmcalipsoliq'
+  i = i+1
+  if (Lclhcalipsoliq)      cfg%out_list(i) = 'clhcalipsoliq'
+  i = i+1
+  if (Lcltcalipsoliq)      cfg%out_list(i) = 'cltcalipsoliq'
+  i = i+1
+  if (Lcllcalipsoun)      cfg%out_list(i) = 'cllcalipsoun'
+  i = i+1
+  if (Lclmcalipsoun)      cfg%out_list(i) = 'clmcalipsoun'
+  i = i+1
+  if (Lclhcalipsoun)      cfg%out_list(i) = 'clhcalipsoun'
+  i = i+1
+  if (Lcltcalipsoun)      cfg%out_list(i) = 'cltcalipsoun'
+  i = i+1
+
+  if (Lclcalipsoice)       cfg%out_list(i) = 'clcalipsoice'
+  i = i+1
+  if (Lclcalipsoliq)       cfg%out_list(i) = 'clcalipsoliq'
+  i = i+1
+  if (Lclcalipsoun)       cfg%out_list(i) = 'clcalipsoun'
+  i = i+1
+
+  if (Lclcalipsotmp)       cfg%out_list(i) = 'clcalipsotmp'
+  i = i+1
+  if (Lclcalipsotmpice)       cfg%out_list(i) = 'clcalipsotmpice'
+  i = i+1
+  if (Lclcalipsotmpliq)       cfg%out_list(i) = 'clcalipsotmpliq'
+  i = i+1
+  if (Lclcalipsotmpun)       cfg%out_list(i) = 'clcalipsotmpun'
+  i = i+1
+  if (Lcltlidarradar)   cfg%out_list(i) = 'cltlidarradar'
+  i = i+1
+  if (Lpctisccp)        cfg%out_list(i) = 'pctisccp'
+  i = i+1
+  if (Ldbze94)          cfg%out_list(i) = 'dbze94'
+  i = i+1
+  if (Ltauisccp)        cfg%out_list(i) = 'tauisccp'
+  i = i+1
+  if (Lcltisccp)        cfg%out_list(i) = 'cltisccp'
+  i = i+1
+  if (Ltoffset)         cfg%out_list(i) = 'toffset'
+  i = i+1
+  if (LparasolRefl)     cfg%out_list(i) = 'parasolRefl'
+  i = i+1
+  if (LclMISR)          cfg%out_list(i) = 'clMISR'
+  i = i+1
+  if (Lmeantbisccp)     cfg%out_list(i) = 'meantbisccp'
+  i = i+1
+  if (Lmeantbclrisccp)  cfg%out_list(i) = 'meantbclrisccp'
+  i = i+1
+  if (Lfracout)         cfg%out_list(i) = 'fracout'
+  i = i+1
+  if (LlidarBetaMol532) cfg%out_list(i) = 'lidarBetaMol532'
+  i = i+1
+  if (Ltbrttov)         cfg%out_list(i) = 'tbrttov'
+  i = i+1
+  if (Lcltmodis)        cfg%out_list(i) = 'cltmodis'
+  i = i+1
+  if (Lclwmodis)        cfg%out_list(i) = 'clwmodis'
+  i = i+1
+  if (Lclimodis)        cfg%out_list(i) = 'climodis'
+  i = i+1
+  if (Lclhmodis)        cfg%out_list(i) = 'clhmodis'
+  i = i+1
+  if (Lclmmodis)        cfg%out_list(i) = 'clmmodis'
+  i = i+1
+  if (Lcllmodis)        cfg%out_list(i) = 'cllmodis'
+  i = i+1
+  if (Ltautmodis)       cfg%out_list(i) = 'tautmodis'
+  i = i+1
+  if (Ltauwmodis)       cfg%out_list(i) = 'tauwmodis'
+  i = i+1
+  if (Ltauimodis)       cfg%out_list(i) = 'tauimodis'
+  i = i+1
+  if (Ltautlogmodis)    cfg%out_list(i) = 'tautlogmodis'
+  i = i+1
+  if (Ltauwlogmodis)    cfg%out_list(i) = 'tauwlogmodis'
+  i = i+1
+  if (Ltauilogmodis)    cfg%out_list(i) = 'tauilogmodis'
+  i = i+1
+  if (Lreffclwmodis)    cfg%out_list(i) = 'reffclwmodis'
+  i = i+1
+  if (Lreffclimodis)    cfg%out_list(i) = 'reffclimodis'
+  i = i+1
+  if (Lpctmodis)        cfg%out_list(i) = 'pctmodis'
+  i = i+1
+  if (Llwpmodis)        cfg%out_list(i) = 'lwpmodis'
+  i = i+1
+  if (Liwpmodis)        cfg%out_list(i) = 'iwpmodis'
+  i = i+1
+  if (Lclmodis)         cfg%out_list(i) = 'clmodis'
+    
+  if (i /= N_OUT_LIST) then
+     print *, 'COSP_IO: wrong number of output diagnostics'
+     print *, i,N_OUT_LIST
+     stop
+  endif
+
+  ! Copy diagnostic flags to cfg structure
+  ! ISCCP simulator  
+  cfg%Lalbisccp = Lalbisccp
+  cfg%Latb532 = Latb532
+  cfg%Lboxptopisccp = Lboxptopisccp
+  cfg%Lboxtauisccp = Lboxtauisccp
+  cfg%Lmeantbisccp = Lmeantbisccp
+  cfg%Lmeantbclrisccp = Lmeantbclrisccp
+  cfg%Lclisccp = Lclisccp
+  cfg%Lpctisccp = Lpctisccp
+  cfg%Ltauisccp = Ltauisccp
+  cfg%Lcltisccp = Lcltisccp
+  ! CloudSat simulator  
+  cfg%Ldbze94 = Ldbze94
+  cfg%LcfadDbze94 = LcfadDbze94
+  ! CALIPSO/PARASOL simulator  
+  cfg%LcfadLidarsr532 = LcfadLidarsr532
+  cfg%Lclcalipso2 = Lclcalipso2
+  cfg%Lclcalipso = Lclcalipso
+  cfg%Lclhcalipso = Lclhcalipso
+  cfg%Lcllcalipso = Lcllcalipso
+  cfg%Lclmcalipso = Lclmcalipso
+  cfg%Lcltcalipso = Lcltcalipso
+  cfg%Lclhcalipsoice = Lclhcalipsoice
+  cfg%Lcllcalipsoice = Lcllcalipsoice
+  cfg%Lclmcalipsoice = Lclmcalipsoice
+  cfg%Lcltcalipsoice = Lcltcalipsoice
+  cfg%Lclhcalipsoliq = Lclhcalipsoliq
+  cfg%Lcllcalipsoliq = Lcllcalipsoliq
+  cfg%Lclmcalipsoliq = Lclmcalipsoliq
+  cfg%Lcltcalipsoliq = Lcltcalipsoliq
+  cfg%Lclhcalipsoun = Lclhcalipsoun
+  cfg%Lcllcalipsoun = Lcllcalipsoun
+  cfg%Lclmcalipsoun = Lclmcalipsoun
+  cfg%Lcltcalipsoun = Lcltcalipsoun
+  cfg%Lclcalipsoice = Lclcalipsoice
+  cfg%Lclcalipsoliq = Lclcalipsoliq
+  cfg%Lclcalipsoun = Lclcalipsoun
+  cfg%Lclcalipsotmp = Lclcalipsotmp
+  cfg%Lclcalipsotmpice = Lclcalipsotmpice
+  cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
+  cfg%Lclcalipsotmpun = Lclcalipsotmpun
+  cfg%Lcltlidarradar = Lcltlidarradar
+  cfg%LparasolRefl = LparasolRefl
+  ! MISR simulator  
+  cfg%LclMISR = LclMISR
+  ! Other
+  cfg%Ltoffset = Ltoffset
+  cfg%Lfracout = Lfracout
+  cfg%LlidarBetaMol532 = LlidarBetaMol532
+  ! RTTOV
+  cfg%Ltbrttov = Ltbrttov
+  ! MODIS simulator  
+  cfg%Lcltmodis=Lcltmodis
+  cfg%Lclwmodis=Lclwmodis
+  cfg%Lclimodis=Lclimodis
+  cfg%Lclhmodis=Lclhmodis
+  cfg%Lclmmodis=Lclmmodis
+  cfg%Lcllmodis=Lcllmodis
+  cfg%Ltautmodis=Ltautmodis
+  cfg%Ltauwmodis=Ltauwmodis
+  cfg%Ltauimodis=Ltauimodis
+  cfg%Ltautlogmodis=Ltautlogmodis
+  cfg%Ltauwlogmodis=Ltauwlogmodis
+  cfg%Ltauilogmodis=Ltauilogmodis
+  cfg%Lreffclwmodis=Lreffclwmodis
+  cfg%Lreffclimodis=Lreffclimodis
+  cfg%Lpctmodis=Lpctmodis
+  cfg%Llwpmodis=Llwpmodis
+  cfg%Liwpmodis=Liwpmodis
+  cfg%Lclmodis=Lclmodis
+  
+ END SUBROUTINE READ_COSP_OUTPUT_NL
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/scale_LUTs_io.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/scale_LUTs_io.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/scale_LUTs_io.F90	(revision 3330)
@@ -0,0 +1,137 @@
+  ! scale_LUT_io:  Contains subroutines to load and save scaling Look Up Tables (LUTs) to a file
+  ! 
+  ! June 2010   Written by Roj Marchand
+  
+  module scale_LUTs_io
+  implicit none
+
+  contains
+
+  subroutine load_scale_LUTs(hp)
+  
+    use radar_simulator_types
+
+    type(class_param), intent(inout) :: hp
+
+    logical :: LUT_file_exists
+    integer :: i,j,k,ind
+    
+    !
+    ! load scale LUT from file 
+    !
+    inquire(file=trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat', &
+        exist=LUT_file_exists)
+
+    if(.not.LUT_file_exists) then
+    
+        write(*,*) '*************************************************'
+        write(*,*) 'Warning: Could NOT FIND radar LUT file: ', &
+        trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat'        
+        write(*,*) 'Will calculated LUT values as needed'
+        write(*,*) '*************************************************'
+        
+        return
+    else
+
+        OPEN(unit=12,file=trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat',&
+        form='unformatted', &
+        err= 89, &
+            access='DIRECT',&
+            recl=28)
+         
+            write(*,*) 'Loading radar LUT file: ', &
+        trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat'
+    
+            do i=1,maxhclass
+            do j=1,mt_ntt
+            do k=1,nRe_types
+        
+            ind = i+(j-1)*maxhclass+(k-1)*(nRe_types*mt_ntt)
+            
+            read(12,rec=ind) hp%Z_scale_flag(i,j,k), &
+                    hp%Ze_scaled(i,j,k), &
+                    hp%Zr_scaled(i,j,k), &
+                    hp%kr_scaled(i,j,k)
+                                                    
+                ! if(ind==1482329) then
+                !   write (*,*) ind, hp%Z_scale_flag(i,j,k), &
+                !   hp%Ze_scaled(i,j,k), &
+                !   hp%Zr_scaled(i,j,k), &
+                !   hp%kr_scaled(i,j,k)
+                !endif
+     
+            enddo
+            enddo
+            enddo
+        
+            close(unit=12)
+        return 
+    endif
+    
+  89    write(*,*) 'Error: Found but could NOT READ radar LUT file: ', &
+        trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat'
+    stop
+    
+  end subroutine load_scale_LUTs
+  
+  subroutine save_scale_LUTs(hp)
+
+    use radar_simulator_types
+  
+    type(class_param), intent(inout) :: hp
+    
+    logical :: LUT_file_exists
+    integer :: i,j,k,ind
+    
+    inquire(file=trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat', &
+        exist=LUT_file_exists)
+
+    OPEN(unit=12,file=trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat',&
+        form='unformatted', &
+        err= 99, &
+            access='DIRECT',&
+            recl=28)
+         
+        write(*,*) 'Creating or Updating radar LUT file: ', &
+        trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat'
+    
+        do i=1,maxhclass
+        do j=1,mt_ntt
+        do k=1,nRe_types
+        
+            ind = i+(j-1)*maxhclass+(k-1)*(nRe_types*mt_ntt)
+            
+            if(.not.LUT_file_exists .or. hp%Z_scale_added_flag(i,j,k)) then
+            
+                hp%Z_scale_added_flag(i,j,k)=.false.
+            
+                write(12,rec=ind) hp%Z_scale_flag(i,j,k), &
+                    hp%Ze_scaled(i,j,k), &
+                    hp%Zr_scaled(i,j,k), &
+                    hp%kr_scaled(i,j,k)
+                     
+                !  1482329 T  0.170626345026495        0.00000000000000       1.827402935860823E-003
+            
+                !if(ind==1482329) then
+                !   write (*,*) ind, hp%Z_scale_flag(i,j,k), &
+                !   hp%Ze_scaled(i,j,k), &
+                !   hp%Zr_scaled(i,j,k), &
+                !   hp%kr_scaled(i,j,k)
+                !endif
+            endif
+        enddo
+        enddo
+        enddo
+        
+        close(unit=12)
+    return 
+    
+  99    write(*,*) 'Error: Unable to create/update radar LUT file: ', &
+        trim(hp%scale_LUT_file_name) // '_radar_Z_scale_LUT.dat'
+    return  
+    
+  end subroutine save_scale_LUTs
+
+
+  end module scale_LUTs_io
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/scops.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/scops.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/scops.F	(revision 3330)
@@ -0,0 +1,337 @@
+      subroutine scops(npoints,nlev,ncol,seed,cc,conv,
+     &                 overlap,frac_out,ncolprint)
+
+
+! *****************************COPYRIGHT****************************
+! (c) British Crown Copyright 2009, the Met Office.
+! All rights reserved.
+! $Revision: 23 $, $Date: 2011-03-31 15:41:37 +0200 (jeu. 31 mars 2011) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/icarus-scops-4.1-bsd/scops.f $
+! 
+! Redistribution and use in source and binary forms, with or without 
+! modification, are permitted provided that the
+! following conditions are met:
+! 
+!     * Redistributions of source code must retain the above 
+!       copyright  notice, this list of conditions and the following 
+!       disclaimer.
+!     * Redistributions in binary form must reproduce the above 
+!       copyright notice, this list of conditions and the following 
+!       disclaimer in the documentation and/or other materials 
+!       provided with the distribution.
+!     * Neither the name of the Met Office nor the names of its 
+!       contributors may be used to endorse or promote products
+!       derived from this software without specific prior written 
+!       permission.
+! 
+! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
+! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
+! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 
+! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 
+! OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
+! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 
+! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 
+! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 
+! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
+! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 
+! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  
+! 
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+! *****************************COPYRIGHT*******************************
+
+      implicit none
+
+      INTEGER npoints       !  number of model points in the horizontal
+      INTEGER nlev          !  number of model levels in column
+      INTEGER ncol          !  number of subcolumns
+
+
+      INTEGER overlap         !  overlap type
+                              !  1=max
+                              !  2=rand
+                              !  3=max/rand
+      REAL cc(npoints,nlev)
+                  !  input cloud cover in each model level (fraction)
+                  !  NOTE:  This is the HORIZONTAL area of each
+                  !         grid box covered by clouds
+
+      REAL conv(npoints,nlev)
+                  !  input convective cloud cover in each model
+                  !   level (fraction)
+                  !  NOTE:  This is the HORIZONTAL area of each
+                  !         grid box covered by convective clouds
+
+      INTEGER i,j,ilev,ibox,ncolprint,ilev2
+
+      REAL frac_out(npoints,ncol,nlev) ! boxes gridbox divided up into
+                              ! Equivalent of BOX in original version, but
+                              ! indexed by column then row, rather than
+                              ! by row then column
+
+
+      INTEGER seed(npoints)
+      !  seed values for marsaglia  random number generator
+      !  It is recommended that the seed is set
+      !  to a different value for each model
+      !  gridbox it is called on, as it is
+      !  possible that the choice of the same
+      !  seed value every time may introduce some
+      !  statistical bias in the results, particularly
+      !  for low values of NCOL.
+
+      REAL tca(npoints,0:nlev) ! total cloud cover in each model level (fraction)
+                                        ! with extra layer of zeroes on top
+                                        ! in this version this just contains the values input
+                                        ! from cc but with an extra level
+
+      REAL threshold(npoints,ncol)   ! pointer to position in gridbox
+      REAL maxocc(npoints,ncol)      ! Flag for max overlapped conv cld
+      REAL maxosc(npoints,ncol)      ! Flag for max overlapped strat cld
+
+      REAL boxpos(npoints,ncol)      ! ordered pointer to position in gridbox
+
+      REAL threshold_min(npoints,ncol) ! minimum value to define range in with new threshold
+                                        ! is chosen
+
+      REAL ran(npoints)                 ! vector of random numbers
+
+      INTEGER irand,i2_16,huge32,overflow_32  ! variables for RNG
+      PARAMETER(huge32=2147483647)
+      i2_16=65536
+
+      do ibox=1,ncol
+        do j=1,npoints 
+        boxpos(j,ibox)=(ibox-.5)/ncol
+        enddo
+      enddo
+
+!     ---------------------------------------------------!
+!     Initialise working variables
+!     ---------------------------------------------------!
+
+!     Initialised frac_out to zero
+
+      do ilev=1,nlev
+        do ibox=1,ncol
+          do j=1,npoints
+          frac_out(j,ibox,ilev)=0.0
+          enddo
+        enddo
+      enddo
+
+!     assign 2d tca array using 1d input array cc
+
+      do j=1,npoints
+        tca(j,0)=0
+      enddo
+
+      do ilev=1,nlev
+        do j=1,npoints
+          tca(j,ilev)=cc(j,ilev)
+        enddo
+      enddo
+
+      if (ncolprint.ne.0) then
+        write (6,'(a)') 'frac_out_pp_rev:'
+          do j=1,npoints,1000
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+          write (6,'(8f5.2)') 
+     &     ((frac_out(j,ibox,ilev),ibox=1,ncolprint),ilev=1,nlev)
+
+          enddo
+        write (6,'(a)') 'ncol:'
+        write (6,'(I3)') ncol
+      endif
+      if (ncolprint.ne.0) then
+        write (6,'(a)') 'last_frac_pp:'
+          do j=1,npoints,1000
+          write(6,'(a10)') 'j='
+          write(6,'(8I10)') j
+          write (6,'(8f5.2)') (tca(j,0))
+          enddo
+      endif
+
+!     ---------------------------------------------------!
+!     ALLOCATE CLOUD INTO BOXES, FOR NCOLUMNS, NLEVELS
+!     frac_out is the array that contains the information 
+!     where 0 is no cloud, 1 is a stratiform cloud and 2 is a
+!     convective cloud
+      
+      !loop over vertical levels
+      DO 200 ilev = 1,nlev
+                                  
+!     Initialise threshold
+
+        IF (ilev.eq.1) then
+          ! If max overlap 
+          IF (overlap.eq.1) then
+            ! select pixels spread evenly
+            ! across the gridbox
+              DO ibox=1,ncol
+                do j=1,npoints
+                  threshold(j,ibox)=boxpos(j,ibox)
+                enddo
+              enddo
+          ELSE
+              DO ibox=1,ncol
+                include 'congvec.h'
+                ! select random pixels from the non-convective
+                ! part the gridbox ( some will be converted into
+                ! convective pixels below )
+                do j=1,npoints
+                  threshold(j,ibox)=
+     &            conv(j,ilev)+(1-conv(j,ilev))*ran(j)
+                enddo
+              enddo
+            ENDIF
+            IF (ncolprint.ne.0) then
+              write (6,'(a)') 'threshold_nsf2:'
+                do j=1,npoints,1000
+                write(6,'(a10)') 'j='
+                write(6,'(8I10)') j
+                write (6,'(8f5.2)') (threshold(j,ibox),ibox=1,ncolprint)
+                enddo
+            ENDIF
+        ENDIF
+
+        IF (ncolprint.ne.0) then
+            write (6,'(a)') 'ilev:'
+            write (6,'(I2)') ilev
+        ENDIF
+
+        DO ibox=1,ncol
+
+          ! All versions
+          do j=1,npoints
+            if (boxpos(j,ibox).le.conv(j,ilev)) then
+              maxocc(j,ibox) = 1
+            else
+              maxocc(j,ibox) = 0
+            end if
+          enddo
+
+          ! Max overlap
+          if (overlap.eq.1) then 
+            do j=1,npoints
+              threshold_min(j,ibox)=conv(j,ilev)
+              maxosc(j,ibox)=1
+            enddo
+          endif
+
+          ! Random overlap
+          if (overlap.eq.2) then 
+            do j=1,npoints
+              threshold_min(j,ibox)=conv(j,ilev)
+              maxosc(j,ibox)=0
+            enddo
+          endif
+
+          ! Max/Random overlap
+          if (overlap.eq.3) then 
+            do j=1,npoints
+              threshold_min(j,ibox)=max(conv(j,ilev),
+     &          min(tca(j,ilev-1),tca(j,ilev)))
+              if (threshold(j,ibox)
+     &          .lt.min(tca(j,ilev-1),tca(j,ilev))
+     &          .and.(threshold(j,ibox).gt.conv(j,ilev))) then
+                   maxosc(j,ibox)= 1
+              else
+                   maxosc(j,ibox)= 0
+              end if
+            enddo
+          endif
+    
+          ! Reset threshold 
+
+          include 'congvec.h'
+
+          do j=1,npoints
+            threshold(j,ibox)=
+              !if max overlapped conv cloud
+     &        maxocc(j,ibox) * (                                       
+     &            boxpos(j,ibox)                                               
+     &        ) +                                                      
+              !else
+     &        (1-maxocc(j,ibox)) * (                                   
+                  !if max overlapped strat cloud
+     &            (maxosc(j,ibox)) * (                                 
+                      !threshold=boxpos
+     &                threshold(j,ibox)                                        
+     &            ) +                                                  
+                  !else
+     &            (1-maxosc(j,ibox)) * (                               
+                      !threshold_min=random[thrmin,1]
+     &                threshold_min(j,ibox)+
+     &                  (1-threshold_min(j,ibox))*ran(j)  
+     &           ) 
+     &        )
+          enddo
+
+        ENDDO ! ibox
+
+!          Fill frac_out with 1's where tca is greater than the threshold
+
+           DO ibox=1,ncol
+             do j=1,npoints 
+               if (tca(j,ilev).gt.threshold(j,ibox)) then
+               frac_out(j,ibox,ilev)=1
+               else
+               frac_out(j,ibox,ilev)=0
+               end if               
+             enddo
+           ENDDO
+
+!         Code to partition boxes into startiform and convective parts
+!         goes here
+
+           DO ibox=1,ncol
+             do j=1,npoints 
+                if (threshold(j,ibox).le.conv(j,ilev)) then
+                    ! = 2 IF threshold le conv(j)
+                    frac_out(j,ibox,ilev) = 2 
+                else
+                    ! = the same IF NOT threshold le conv(j) 
+                    frac_out(j,ibox,ilev) = frac_out(j,ibox,ilev)
+                end if
+             enddo
+           ENDDO
+
+!         Set last_frac to tca at this level, so as to be tca 
+!         from last level next time round
+
+          if (ncolprint.ne.0) then
+
+            do j=1,npoints ,1000
+            write(6,'(a10)') 'j='
+            write(6,'(8I10)') j
+            write (6,'(a)') 'last_frac:'
+            write (6,'(8f5.2)') (tca(j,ilev-1))
+    
+            write (6,'(a)') 'conv:'
+            write (6,'(8f5.2)') (conv(j,ilev),ibox=1,ncolprint)
+    
+            write (6,'(a)') 'max_overlap_cc:'
+            write (6,'(8f5.2)') (maxocc(j,ibox),ibox=1,ncolprint)
+    
+            write (6,'(a)') 'max_overlap_sc:'
+            write (6,'(8f5.2)') (maxosc(j,ibox),ibox=1,ncolprint)
+    
+            write (6,'(a)') 'threshold_min_nsf2:'
+            write (6,'(8f5.2)') (threshold_min(j,ibox),ibox=1,ncolprint)
+    
+            write (6,'(a)') 'threshold_nsf2:'
+            write (6,'(8f5.2)') (threshold(j,ibox),ibox=1,ncolprint)
+    
+            write (6,'(a)') 'frac_out_pp_rev:'
+            write (6,'(8f5.2)') 
+     &       ((frac_out(j,ibox,ilev2),ibox=1,ncolprint),ilev2=1,nlev)
+          enddo
+          endif
+
+200   CONTINUE    !loop over nlev
+
+
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/zeff.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/zeff.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cosp/zeff.F90	(revision 3330)
@@ -0,0 +1,167 @@
+! $Revision: 88 $, $Date: 2013-11-13 15:08:38 +0100 (mer. 13 nov. 2013) $
+! $URL: http://cfmip-obs-sim.googlecode.com/svn/stable/v1.4.0/quickbeam/zeff.f90 $
+  subroutine zeff(freq,D,N,nsizes,k2,tt,ice,xr,z_eff,z_ray,kr,qe,qs,rho_e)
+  use math_lib
+  use optics_lib
+  implicit none
+  
+! Purpose:
+!   Simulates radar return of a volume given DSD of spheres
+!   Part of QuickBeam v1.03 by John Haynes
+!   http://reef.atmos.colostate.edu/haynes/radarsim
+!
+! Inputs:
+!   [freq]      radar frequency (GHz)
+!   [D]         discrete drop sizes (um)
+!   [N]         discrete concentrations (cm^-3 um^-1)
+!   [nsizes]    number of discrete drop sizes
+!   [k2]        |K|^2, -1=use frequency dependent default 
+!   [tt]        hydrometeor temperature (K)
+!   [ice]       indicates volume consists of ice
+!   [xr]        perform Rayleigh calculations?
+!   [qe]        if using a mie table, these contain ext/sca ...
+!   [qs]        ... efficiencies; otherwise set to -1
+!   [rho_e]     medium effective density (kg m^-3) (-1 = pure)
+!
+! Outputs:
+!   [z_eff]     unattenuated effective reflectivity factor (mm^6/m^3)
+!   [z_ray]     reflectivity factor, Rayleigh only (mm^6/m^3)
+!   [kr]        attenuation coefficient (db km^-1)
+!
+! Created:
+!   11/28/05  John Haynes (haynes@atmos.colostate.edu)
+
+! ----- INPUTS -----  
+  integer, intent(in) :: ice, xr
+  integer, intent(in) :: nsizes
+  real*8, intent(in) :: freq,D(nsizes),N(nsizes),tt,qe(nsizes), &
+    qs(nsizes), rho_e(nsizes)
+  real*8, intent(inout) :: k2
+  
+! ----- OUTPUTS -----
+  real*8, intent(out) :: z_eff,z_ray,kr
+    
+! ----- INTERNAL -----
+  integer :: &
+  correct_for_rho        ! correct for density flag
+  real*8, dimension(nsizes) :: &
+  D0, &                  ! D in (m)
+  N0, &                  ! N in m^-3 m^-1
+  sizep, &               ! size parameter
+  qext, &           ! extinction efficiency
+  qbsca, &               ! backscatter efficiency
+  rho_ice, &             ! bulk density ice (kg m^-3)
+  f                 ! ice fraction
+  real*8, dimension(nsizes) :: xtemp
+  real*8 :: &
+  wl, &                  ! wavelength (m)
+  cr                            ! kr(dB/km) = cr * kr(1/km)
+  complex*16 :: &
+  m                 ! complex index of refraction of bulk form
+  complex*16, dimension(nsizes) :: &
+  m0                ! complex index of refraction
+  
+  integer*4 :: i,one
+  real*8 :: pi
+  real*8 :: eta_sum, eta_mie, const, z0_eff, z0_ray, k_sum, &
+            n_r, n_i, dqv(1), dqsc, dg, dph(1)
+  integer*4 :: err
+  complex*16 :: Xs1(1), Xs2(1)
+
+  one=1
+  pi = acos(-1.0)
+  rho_ice(:) = 917
+  z0_ray = 0.0
+
+! // conversions
+  D0 = d*1E-6            ! m
+  N0 = n*1E12            ! 1/(m^3 m)
+  wl = 2.99792458/(freq*10)   ! m
+  
+! // dielectric constant |k^2| defaults
+  if (k2 < 0) then
+    k2 = 0.933
+    if (abs(94.-freq) < 3.) k2=0.75
+    if (abs(35.-freq) < 3.) k2=0.88
+    if (abs(13.8-freq) < 3.) k2=0.925
+  endif  
+  
+  if (qe(1) < -9) then
+
+!   // get the refractive index of the bulk hydrometeors
+    if (ice == 0) then
+      call m_wat(freq,tt,n_r,n_i)
+    else
+      call m_ice(freq,tt,n_r,n_i)
+    endif
+    m = cmplx(n_r,-n_i)
+    m0(:) = m
+    
+    correct_for_rho = 0
+    if ((ice == 1) .and. (minval(rho_e) >= 0)) correct_for_rho = 1
+    
+!   :: correct refractive index for ice density if needed
+    if (correct_for_rho == 1) then
+      f = rho_e/rho_ice
+      m0 = ((2+m0**2+2*f*(m0**2-1))/(2+m0**2+f*(1-m0**2)))**(0.5)
+    endif       
+    
+!   :: Mie calculations
+    sizep = (pi*D0)/wl
+    dqv(1) = 0.
+    do i=1,nsizes
+      call mieint(sizep(i), m0(i), one, dqv, qext(i), dqsc, qbsca(i), &
+        dg, xs1, xs2, dph, err)
+    end do
+    
+  else
+!   // Mie table used
+    
+    qext = qe
+    qbsca = qs
+    
+  endif
+  
+! // eta_mie = 0.25*sum[qbsca*pi*D^2*N(D)*deltaD]
+!                   <--------- eta_sum --------->
+! // z0_eff = (wl^4/!pi^5)*(1./k2)*eta_mie
+  eta_sum = 0.
+  if (size(D0) == 1) then
+    eta_sum = qbsca(1)*(n(1)*1E6)*D0(1)**2
+  else
+    xtemp = qbsca*N0*D0**2
+    call avint(xtemp,D0,nsizes,D0(1),D0(size(D0,1)),eta_sum)
+  endif
+ 
+  eta_mie = eta_sum*0.25*pi
+  const = (wl**4/pi**5)*(1./k2)
+  z0_eff = const*eta_mie
+
+! // kr = 0.25*cr*sum[qext*pi*D^2*N(D)*deltaD]
+!                 <---------- k_sum --------->  
+  k_sum = 0.
+  if (size(D0) == 1) then
+    k_sum = qext(1)*(n(1)*1E6)*D0(1)**2
+  else
+    xtemp = qext*N0*D0**2
+    call avint(xtemp,D0,nsizes,D0(1),D0(size(D0,1)),k_sum)
+  endif
+  cr = 10./log(10.)
+  kr = k_sum*0.25*pi*(1000.*cr)
+     
+! // z_ray = sum[D^6*N(D)*deltaD]
+  if (xr == 1) then
+    z0_ray = 0.
+    if (size(D0) == 1) then
+      z0_ray = (n(1)*1E6)*D0(1)**6
+    else
+      xtemp = N0*D0**6
+      call avint(xtemp,D0,nsizes,D0(1),D0(size(D0)),z0_ray)
+    endif
+  endif
+  
+! // convert to mm^6/m^3
+  z_eff = z0_eff*1E18 !  10.*alog10(z0_eff*1E18)
+  z_ray = z0_ray*1E18 !  10.*alog10(z0_ray*1E18)
+  
+  end subroutine zeff
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cpl_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cpl_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cpl_mod.F90	(revision 3330)
@@ -0,0 +1,1400 @@
+!
+MODULE cpl_mod
+!
+! This module excahanges and transforms all fields that should be recieved or sent to 
+! coupler. The transformation of the fields are done from the grid 1D-array in phylmd 
+! to the regular 2D grid accepted by the coupler. Cumulation of the fields for each 
+! timestep is done in here. 
+!
+! Each type of surface that recevie fields from the coupler have a subroutine named 
+! cpl_receive_XXX_fields and each surface that have fields to be sent to the coupler 
+! have a subroutine named cpl_send_XXX_fields.
+!
+!*************************************************************************************
+
+! Use statements
+!*************************************************************************************
+  USE dimphy, ONLY : klon
+  USE mod_phys_lmdz_para
+  USE ioipsl
+  USE iophy
+
+! The module oasis is always used. Without the cpp key CPP_COUPLE only the parameters 
+! in the module are compiled and not the subroutines.
+  USE oasis
+  USE write_field_phy
+  USE time_phylmdz_mod, ONLY: day_step_phy
+  
+! Global attributes
+!*************************************************************************************
+  IMPLICIT NONE
+  PRIVATE
+
+  ! All subroutine are public except cpl_send_all
+  PUBLIC :: cpl_init, cpl_receive_frac, cpl_receive_ocean_fields, cpl_receive_seaice_fields, &
+       cpl_send_ocean_fields, cpl_send_seaice_fields, cpl_send_land_fields, &
+       cpl_send_landice_fields, gath2cpl
+  
+
+! Declaration of module variables
+!*************************************************************************************
+! variable for coupling period
+  INTEGER, SAVE :: nexca
+  !$OMP THREADPRIVATE(nexca)
+
+! variables for cumulating fields during a coupling periode :
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_sols, cpl_nsol, cpl_rain
+  !$OMP THREADPRIVATE(cpl_sols,cpl_nsol,cpl_rain)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_snow, cpl_evap, cpl_tsol
+  !$OMP THREADPRIVATE(cpl_snow,cpl_evap,cpl_tsol)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_fder, cpl_albe, cpl_taux, cpl_tauy
+  !$OMP THREADPRIVATE(cpl_fder,cpl_albe,cpl_taux,cpl_tauy)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_windsp
+  !$OMP THREADPRIVATE(cpl_windsp)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_taumod
+  !$OMP THREADPRIVATE(cpl_taumod)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_atm_co2
+  !$OMP THREADPRIVATE(cpl_atm_co2)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_rriv2D, cpl_rcoa2D, cpl_rlic2D
+  !$OMP THREADPRIVATE(cpl_rriv2D,cpl_rcoa2D,cpl_rlic2D)
+
+! variables read from coupler :
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: read_sst     ! sea surface temperature
+  !$OMP THREADPRIVATE(read_sst)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: read_sit     ! sea ice temperature
+  !$OMP THREADPRIVATE(read_sit)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: read_sic     ! sea ice fraction
+  !$OMP THREADPRIVATE(read_sic)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: read_alb_sic ! albedo at sea ice
+  !$OMP THREADPRIVATE(read_alb_sic)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: read_u0, read_v0 ! ocean surface current
+  !$OMP THREADPRIVATE(read_u0,read_v0)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: read_co2     ! ocean co2 flux 
+  !$OMP THREADPRIVATE(read_co2)
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: unity
+  !$OMP THREADPRIVATE(unity)
+  INTEGER, SAVE                             :: nidct, nidcs
+  !$OMP THREADPRIVATE(nidct,nidcs)
+
+! variables to be sent to the coupler
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: cpl_sols2D, cpl_nsol2D, cpl_rain2D
+  !$OMP THREADPRIVATE(cpl_sols2D, cpl_nsol2D, cpl_rain2D)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: cpl_snow2D, cpl_evap2D, cpl_tsol2D
+  !$OMP THREADPRIVATE(cpl_snow2D, cpl_evap2D, cpl_tsol2D)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: cpl_fder2D, cpl_albe2D
+  !$OMP THREADPRIVATE(cpl_fder2D, cpl_albe2D)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: cpl_taux2D, cpl_tauy2D
+  !$OMP THREADPRIVATE(cpl_taux2D, cpl_tauy2D)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: cpl_taumod2D
+  !$OMP THREADPRIVATE(cpl_taumod2D)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_windsp2D
+  !$OMP THREADPRIVATE(cpl_windsp2D)
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: cpl_atm_co22D
+  !$OMP THREADPRIVATE(cpl_atm_co22D)
+
+CONTAINS
+!
+!************************************************************************************
+!
+  SUBROUTINE cpl_init(dtime, rlon, rlat)
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_ocn_day
+    USE surface_data
+    USE indice_sol_mod
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    USE time_phylmdz_mod, ONLY: annee_ref, day_ini, itau_phy, itaufin_phy
+    USE print_control_mod, ONLY: lunout
+
+! Input arguments
+!*************************************************************************************
+    REAL, INTENT(IN)                  :: dtime
+    REAL, DIMENSION(klon), INTENT(IN) :: rlon, rlat
+
+! Local variables
+!*************************************************************************************
+    INTEGER                           :: error, sum_error, ig, i
+    INTEGER                           :: jf, nhoridct
+    INTEGER                           :: nhoridcs
+    INTEGER                           :: idtime
+    INTEGER                           :: idayref
+    INTEGER                           :: npas ! only for OASIS2
+    REAL                              :: zjulian
+    REAL, DIMENSION(nbp_lon,nbp_lat)  :: zx_lon, zx_lat
+    CHARACTER(len = 20)               :: modname = 'cpl_init'
+    CHARACTER(len = 80)               :: abort_message
+    CHARACTER(len=80)                 :: clintocplnam, clfromcplnam
+
+!*************************************************************************************
+! Calculate coupling period
+!
+!*************************************************************************************
+     
+    npas = itaufin_phy
+!    nexca = 86400 / dtime
+    nexca = t_coupl / dtime
+    WRITE(lunout,*)' ##### Ocean couple #####'
+    WRITE(lunout,*)' Valeurs des pas de temps'
+    WRITE(lunout,*)' npas = ', npas
+    WRITE(lunout,*)' nexca = ', nexca
+    
+!*************************************************************************************
+! Allocate variables
+!
+!*************************************************************************************
+    error = 0
+    sum_error = 0
+
+    ALLOCATE(unity(klon), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_sols(klon,2), stat = error) 
+    sum_error = sum_error + error
+    ALLOCATE(cpl_nsol(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_rain(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_snow(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_evap(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_tsol(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_fder(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_albe(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_taux(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_tauy(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_windsp(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_taumod(klon,2), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_rriv2D(nbp_lon,jj_nb), stat=error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_rcoa2D(nbp_lon,jj_nb), stat=error)
+    sum_error = sum_error + error
+    ALLOCATE(cpl_rlic2D(nbp_lon,jj_nb), stat=error)
+    sum_error = sum_error + error
+    ALLOCATE(read_sst(nbp_lon, jj_nb), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(read_sic(nbp_lon, jj_nb), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(read_sit(nbp_lon, jj_nb), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(read_alb_sic(nbp_lon, jj_nb), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(read_u0(nbp_lon, jj_nb), stat = error)
+    sum_error = sum_error + error
+    ALLOCATE(read_v0(nbp_lon, jj_nb), stat = error)
+    sum_error = sum_error + error
+
+    IF (carbon_cycle_cpl) THEN
+       ALLOCATE(read_co2(nbp_lon, jj_nb), stat = error)
+       sum_error = sum_error + error
+       ALLOCATE(cpl_atm_co2(klon,2), stat = error)
+       sum_error = sum_error + error
+
+! Allocate variable in carbon_cycle_mod
+       ALLOCATE(fco2_ocn_day(klon), stat = error)
+       sum_error = sum_error + error
+    END IF
+
+    IF (sum_error /= 0) THEN
+       abort_message='Pb allocation variables couplees'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+!*************************************************************************************
+! Initialize the allocated varaibles
+!
+!*************************************************************************************
+    DO ig = 1, klon
+       unity(ig) = ig
+    ENDDO
+
+!*************************************************************************************
+! Initialize coupling
+!
+!*************************************************************************************
+    idtime = INT(dtime)
+#ifdef CPP_COUPLE
+    CALL inicma
+#endif
+
+!*************************************************************************************
+! initialize NetCDF output
+!
+!*************************************************************************************
+    IF (is_sequential) THEN
+       idayref = day_ini
+       CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+       CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon,zx_lon)
+       DO i = 1, nbp_lon
+          zx_lon(i,1) = rlon(i+1)
+          zx_lon(i,nbp_lat) = rlon(i+1)
+       ENDDO
+       CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat,zx_lat)
+       clintocplnam="cpl_atm_tauflx"
+       CALL histbeg(clintocplnam,nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:),&
+            1,nbp_lon,1,nbp_lat, itau_phy,zjulian,dtime,nhoridct,nidct) 
+! no vertical axis
+       CALL histdef(nidct, 'tauxe','tauxe', &
+            "-",nbp_lon,nbp_lat, nhoridct, 1, 1, 1, -99, 32, "inst", dtime,dtime)
+       CALL histdef(nidct, 'tauyn','tauyn', &
+            "-",nbp_lon,nbp_lat, nhoridct, 1, 1, 1, -99, 32, "inst", dtime,dtime)
+       CALL histdef(nidct, 'tmp_lon','tmp_lon', &
+            "-",nbp_lon,nbp_lat, nhoridct, 1, 1, 1, -99, 32, "inst", dtime,dtime)
+       CALL histdef(nidct, 'tmp_lat','tmp_lat', &
+            "-",nbp_lon,nbp_lat, nhoridct, 1, 1, 1, -99, 32, "inst", dtime,dtime)
+       DO jf=1,maxsend
+         IF (infosend(i)%action) THEN
+             CALL histdef(nidct, infosend(i)%name ,infosend(i)%name , &
+                "-",nbp_lon,nbp_lat,nhoridct,1,1,1,-99,32,"inst",dtime,dtime)
+         ENDIF
+       END DO
+       CALL histend(nidct)
+       CALL histsync(nidct)
+       
+       clfromcplnam="cpl_atm_sst"
+       CALL histbeg(clfromcplnam,nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:),1,nbp_lon,1,nbp_lat, &
+            0,zjulian,dtime,nhoridcs,nidcs) 
+! no vertical axis
+       DO jf=1,maxrecv
+         IF (inforecv(i)%action) THEN
+             CALL histdef(nidcs,inforecv(i)%name ,inforecv(i)%name , &
+                "-",nbp_lon,nbp_lat,nhoridcs,1,1,1,-99,32,"inst",dtime,dtime)
+         ENDIF
+       END DO
+       CALL histend(nidcs)
+       CALL histsync(nidcs)
+
+    ENDIF    ! is_sequential
+    
+
+!*************************************************************************************
+! compatibility test
+!
+!*************************************************************************************
+    IF (carbon_cycle_cpl .AND. version_ocean=='opa8') THEN
+       abort_message='carbon_cycle_cpl does not work with opa8'
+       CALL abort_physic(modname,abort_message,1)
+    END IF
+
+  END SUBROUTINE cpl_init
+  
+!
+!*************************************************************************************
+!
+ 
+  SUBROUTINE cpl_receive_frac(itime, dtime, pctsrf, is_modified)
+! This subroutine receives from coupler for both ocean and seaice
+! 4 fields : read_sst, read_sic, read_sit and read_alb_sic. 
+! The new sea-ice-land-landice fraction is returned. The others fields 
+! are stored in this module.
+    USE surface_data
+    USE geometry_mod, ONLY : longitude_deg, latitude_deg
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
+    USE indice_sol_mod
+    USE time_phylmdz_mod, ONLY: start_time, itau_phy
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+
+    INCLUDE "YOMCST.h"
+
+! Arguments
+!************************************************************************************
+    INTEGER, INTENT(IN)                        :: itime
+    REAL, INTENT(IN)                           :: dtime
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: pctsrf
+    LOGICAL, INTENT(OUT)                       :: is_modified
+
+! Local variables
+!************************************************************************************
+    INTEGER                                 :: j, i, time_sec
+    INTEGER                                 :: itau_w
+    INTEGER, DIMENSION(nbp_lon*nbp_lat)     :: ndexcs
+    CHARACTER(len = 20)                     :: modname = 'cpl_receive_frac'
+    CHARACTER(len = 80)                     :: abort_message
+    REAL, DIMENSION(klon)                   :: read_sic1D
+    REAL, DIMENSION(nbp_lon,jj_nb,maxrecv)      :: tab_read_flds
+    REAL, DIMENSION(klon,nbsrf)             :: pctsrf_old
+    REAL, DIMENSION(klon_mpi)               :: rlon_mpi, rlat_mpi
+    REAL, DIMENSION(nbp_lon,jj_nb)             :: tmp_lon, tmp_lat
+    REAL, DIMENSION(nbp_lon,jj_nb)             :: tmp_r0
+
+!*************************************************************************************
+! Start calculation
+! Get fields from coupler
+!
+!*************************************************************************************
+
+    is_modified=.FALSE.
+
+! Check if right moment to receive from coupler
+    IF (MOD(itime, nexca) == 1) THEN
+       is_modified=.TRUE.
+ 
+       time_sec=(itime-1)*dtime
+#ifdef CPP_COUPLE
+!$OMP MASTER
+    CALL fromcpl(time_sec, tab_read_flds)
+!$OMP END MASTER
+#endif
+    
+! NetCDF output of received fields
+       IF (is_sequential) THEN
+          ndexcs(:) = 0
+          itau_w = itau_phy + itime + start_time * day_step_phy
+          DO i = 1, maxrecv
+            IF (inforecv(i)%action) THEN
+                CALL histwrite(nidcs,inforecv(i)%name,itau_w,tab_read_flds(:,:,i),nbp_lon*(nbp_lat),ndexcs)
+            ENDIF
+          END DO
+       ENDIF
+
+
+! Save each field in a 2D array. 
+!$OMP MASTER
+       read_sst(:,:)     = tab_read_flds(:,:,idr_sisutw)  ! Sea surface temperature
+       read_sic(:,:)     = tab_read_flds(:,:,idr_icecov)  ! Sea ice concentration
+       read_alb_sic(:,:) = tab_read_flds(:,:,idr_icealw)  ! Albedo at sea ice
+       read_sit(:,:)     = tab_read_flds(:,:,idr_icetem)  ! Sea ice temperature
+!$OMP END MASTER
+
+       IF (cpl_current) THEN
+
+! Transform the longitudes and latitudes on 2D arrays
+          CALL gather_omp(longitude_deg,rlon_mpi)
+          CALL gather_omp(latitude_deg,rlat_mpi)
+!$OMP MASTER
+          CALL Grid1DTo2D_mpi(rlon_mpi,tmp_lon)
+          CALL Grid1DTo2D_mpi(rlat_mpi,tmp_lat)
+
+! Transform the currents from cartesian to spheric coordinates
+! tmp_r0 should be zero
+          CALL geo2atm(nbp_lon, jj_nb, tab_read_flds(:,:,idr_curenx), &
+             tab_read_flds(:,:,idr_cureny), tab_read_flds(:,:,idr_curenz), &
+               tmp_lon, tmp_lat, &
+               read_u0(:,:), read_v0(:,:), tmp_r0(:,:))
+!$OMP END MASTER
+
+      ELSE
+          read_u0(:,:) = 0.
+          read_v0(:,:) = 0.
+      ENDIF
+
+       IF (carbon_cycle_cpl) THEN
+!$OMP MASTER
+           read_co2(:,:) = tab_read_flds(:,:,idr_oceco2) ! CO2 flux
+!$OMP END MASTER
+       ENDIF
+
+!*************************************************************************************
+!  Transform seaice fraction (read_sic : ocean-seaice mask) into global 
+!  fraction (pctsrf : ocean-seaice-land-landice mask)
+!
+!*************************************************************************************
+       CALL cpl2gath(read_sic, read_sic1D, klon, unity)
+
+       pctsrf_old(:,:) = pctsrf(:,:)
+       DO i = 1, klon
+          ! treatment only of points with ocean and/or seaice
+          ! old land-ocean mask can not be changed
+          IF (pctsrf_old(i,is_oce) + pctsrf_old(i,is_sic) > 0.) THEN
+             pctsrf(i,is_sic) = (pctsrf_old(i,is_oce) + pctsrf_old(i,is_sic)) &
+                  * read_sic1D(i)
+             pctsrf(i,is_oce) = (pctsrf_old(i,is_oce) + pctsrf_old(i,is_sic)) &
+                  - pctsrf(i,is_sic)
+          ENDIF
+       ENDDO
+
+    END IF ! if time to receive
+
+  END SUBROUTINE cpl_receive_frac
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_receive_ocean_fields(knon, knindex, tsurf_new, u0_new, v0_new)
+!
+! This routine returns the field for the ocean that has been read from the coupler
+! (done earlier with cpl_receive_frac). The field is the temperature.
+! The temperature is transformed into 1D array with valid points from index 1 to knon.
+!
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_ocn_day
+    USE indice_sol_mod
+
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+
+! Output arguments
+!*************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)      :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: u0_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: v0_new
+
+! Local variables
+!*************************************************************************************
+    INTEGER                  :: i
+    INTEGER, DIMENSION(klon) :: index
+    REAL, DIMENSION(klon)    :: sic_new
+
+!*************************************************************************************
+! Transform read_sst into compressed 1D variable tsurf_new
+!
+!*************************************************************************************
+    CALL cpl2gath(read_sst, tsurf_new, knon, knindex)
+    CALL cpl2gath(read_sic, sic_new, knon, knindex)
+    CALL cpl2gath(read_u0, u0_new, knon, knindex)
+    CALL cpl2gath(read_v0, v0_new, knon, knindex)
+
+!*************************************************************************************
+! Transform read_co2 into uncompressed 1D variable fco2_ocn_day added directly in 
+! the module carbon_cycle_mod
+!
+!*************************************************************************************
+    IF (carbon_cycle_cpl) THEN
+       DO i=1,klon
+          index(i)=i
+       END DO
+       CALL cpl2gath(read_co2, fco2_ocn_day, klon, index)
+    END IF
+
+!*************************************************************************************
+! The fields received from the coupler have to be weighted with the fraction of ocean 
+! in relation to the total sea-ice+ocean
+!
+!*************************************************************************************
+    DO i=1, knon
+       tsurf_new(i) = tsurf_new(i)/(1. - sic_new(i))
+    END DO
+
+  END SUBROUTINE cpl_receive_ocean_fields
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_receive_seaice_fields(knon, knindex, &
+       tsurf_new, alb_new, u0_new, v0_new)
+!
+! This routine returns the fields for the seaice that have been read from the coupler
+! (done earlier with cpl_receive_frac). These fields are the temperature and 
+! albedo at sea ice surface and fraction of sea ice.
+! The fields are transformed into 1D arrays with valid points from index 1 to knon. 
+!
+
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+
+! Output arguments
+!*************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)      :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: alb_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: u0_new
+    REAL, DIMENSION(klon), INTENT(OUT)      :: v0_new
+
+! Local variables
+!*************************************************************************************
+    INTEGER               :: i
+    REAL, DIMENSION(klon) :: sic_new
+
+!*************************************************************************************
+! Transform fields read from coupler from 2D into compressed 1D variables
+!
+!*************************************************************************************
+    CALL cpl2gath(read_sit, tsurf_new, knon, knindex)
+    CALL cpl2gath(read_alb_sic, alb_new, knon, knindex)
+    CALL cpl2gath(read_sic, sic_new, knon, knindex)
+    CALL cpl2gath(read_u0, u0_new, knon, knindex)
+    CALL cpl2gath(read_v0, v0_new, knon, knindex)
+
+!*************************************************************************************
+! The fields received from the coupler have to be weighted with the sea-ice 
+! concentration (in relation to the total sea-ice + ocean).
+!
+!*************************************************************************************
+    DO i= 1, knon
+       tsurf_new(i) = tsurf_new(i) / sic_new(i)
+       alb_new(i)   = alb_new(i)   / sic_new(i)
+    END DO
+
+  END SUBROUTINE cpl_receive_seaice_fields
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_send_ocean_fields(itime, knon, knindex, &
+       swdown, lwdown, fluxlat, fluxsens, &
+       precip_rain, precip_snow, evap, tsurf, fder, albsol, taux, tauy, windsp)
+!
+! This subroutine cumulates some fields for each time-step during a coupling 
+! period. At last time-step in a coupling period the fields are transformed to the 
+! grid accepted by the coupler. No sending to the coupler will be done from here 
+! (it is done in cpl_send_seaice_fields).
+!
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
+    USE indice_sol_mod
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                     :: itime
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    REAL, DIMENSION(klon), INTENT(IN)       :: swdown, lwdown 
+    REAL, DIMENSION(klon), INTENT(IN)       :: fluxlat, fluxsens
+    REAL, DIMENSION(klon), INTENT(IN)       :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)       :: evap, tsurf, fder, albsol
+    REAL, DIMENSION(klon), INTENT(IN)       :: taux, tauy, windsp
+
+! Local variables
+!*************************************************************************************
+    INTEGER                                 :: cpl_index, ig 
+    INTEGER                                 :: error, sum_error
+    CHARACTER(len = 25)                     :: modname = 'cpl_send_ocean_fields'
+    CHARACTER(len = 80)                     :: abort_message
+
+!*************************************************************************************
+! Start calculation
+! The ocean points are saved with second array index=1
+!
+!*************************************************************************************
+    cpl_index = 1
+
+!*************************************************************************************
+! Reset fields to zero in the beginning of a new coupling period 
+!
+!*************************************************************************************
+    IF (MOD(itime, nexca) == 1) THEN
+       cpl_sols(1:knon,cpl_index) = 0.0
+       cpl_nsol(1:knon,cpl_index) = 0.0
+       cpl_rain(1:knon,cpl_index) = 0.0
+       cpl_snow(1:knon,cpl_index) = 0.0
+       cpl_evap(1:knon,cpl_index) = 0.0
+       cpl_tsol(1:knon,cpl_index) = 0.0
+       cpl_fder(1:knon,cpl_index) = 0.0
+       cpl_albe(1:knon,cpl_index) = 0.0
+       cpl_taux(1:knon,cpl_index) = 0.0
+       cpl_tauy(1:knon,cpl_index) = 0.0
+       cpl_windsp(1:knon,cpl_index) = 0.0
+       cpl_taumod(1:knon,cpl_index) = 0.0
+       IF (carbon_cycle_cpl) cpl_atm_co2(1:knon,cpl_index) = 0.0
+    ENDIF
+       
+!*************************************************************************************
+! Cumulate at each time-step
+!
+!*************************************************************************************    
+    DO ig = 1, knon
+       cpl_sols(ig,cpl_index) = cpl_sols(ig,cpl_index) + &
+            swdown(ig)      / REAL(nexca)
+       cpl_nsol(ig,cpl_index) = cpl_nsol(ig,cpl_index) + &
+            (lwdown(ig) + fluxlat(ig) +fluxsens(ig)) / REAL(nexca)
+       cpl_rain(ig,cpl_index) = cpl_rain(ig,cpl_index) + &
+            precip_rain(ig) / REAL(nexca)
+       cpl_snow(ig,cpl_index) = cpl_snow(ig,cpl_index) + &
+            precip_snow(ig) / REAL(nexca)
+       cpl_evap(ig,cpl_index) = cpl_evap(ig,cpl_index) + &
+            evap(ig)        / REAL(nexca)
+       cpl_tsol(ig,cpl_index) = cpl_tsol(ig,cpl_index) + &
+            tsurf(ig)       / REAL(nexca)
+       cpl_fder(ig,cpl_index) = cpl_fder(ig,cpl_index) + &
+            fder(ig)        / REAL(nexca)
+       cpl_albe(ig,cpl_index) = cpl_albe(ig,cpl_index) + &
+            albsol(ig)      / REAL(nexca)
+       cpl_taux(ig,cpl_index) = cpl_taux(ig,cpl_index) + &
+            taux(ig)        / REAL(nexca)
+       cpl_tauy(ig,cpl_index) = cpl_tauy(ig,cpl_index) + &
+            tauy(ig)        / REAL(nexca)      
+       cpl_windsp(ig,cpl_index) = cpl_windsp(ig,cpl_index) + &
+            windsp(ig)      / REAL(nexca)
+       cpl_taumod(ig,cpl_index) =   cpl_taumod(ig,cpl_index) + &
+          SQRT ( taux(ig)*taux(ig)+tauy(ig)*tauy(ig) ) / REAL (nexca)
+
+       IF (carbon_cycle_cpl) THEN
+          cpl_atm_co2(ig,cpl_index) = cpl_atm_co2(ig,cpl_index) + &
+               co2_send(knindex(ig))/ REAL(nexca) 
+       END IF
+     ENDDO
+
+!*************************************************************************************
+! If the time-step corresponds to the end of coupling period the 
+! fields are transformed to the 2D grid. 
+! No sending to the coupler (it is done from cpl_send_seaice_fields).
+!
+!*************************************************************************************
+    IF (MOD(itime, nexca) == 0) THEN
+
+       IF (.NOT. ALLOCATED(cpl_sols2D)) THEN
+          sum_error = 0
+          ALLOCATE(cpl_sols2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_nsol2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_rain2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_snow2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_evap2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_tsol2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_fder2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_albe2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_taux2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_tauy2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_windsp2D(nbp_lon,jj_nb), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_taumod2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          
+          IF (carbon_cycle_cpl) THEN
+             ALLOCATE(cpl_atm_co22D(nbp_lon,jj_nb), stat=error)
+             sum_error = sum_error + error
+          END IF
+
+          IF (sum_error /= 0) THEN
+             abort_message='Pb allocation variables couplees pour l''ecriture'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       
+
+       CALL gath2cpl(cpl_sols(:,cpl_index), cpl_sols2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_nsol(:,cpl_index), cpl_nsol2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_rain(:,cpl_index), cpl_rain2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_snow(:,cpl_index), cpl_snow2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_evap(:,cpl_index), cpl_evap2D(:,:,cpl_index), &
+            knon, knindex)
+
+! cpl_tsol2D(:,:,:) not used!
+       CALL gath2cpl(cpl_tsol(:,cpl_index), cpl_tsol2D(:,:, cpl_index), &
+            knon, knindex)
+
+! cpl_fder2D(:,:,1) not used, only cpl_fder(:,:,2)!
+       CALL gath2cpl(cpl_fder(:,cpl_index), cpl_fder2D(:,:,cpl_index), &
+            knon, knindex)
+
+! cpl_albe2D(:,:,:) not used!
+       CALL gath2cpl(cpl_albe(:,cpl_index), cpl_albe2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_taux(:,cpl_index), cpl_taux2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_tauy(:,cpl_index), cpl_tauy2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_windsp(:,cpl_index), cpl_windsp2D(:,:), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_taumod(:,cpl_index), cpl_taumod2D(:,:,cpl_index), &
+            knon, knindex)
+
+       IF (carbon_cycle_cpl) &
+            CALL gath2cpl(cpl_atm_co2(:,cpl_index), cpl_atm_co22D(:,:), knon, knindex)
+   ENDIF
+
+  END SUBROUTINE cpl_send_ocean_fields
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_send_seaice_fields(itime, dtime, knon, knindex, &
+       pctsrf, lafin, rlon, rlat, &
+       swdown, lwdown, fluxlat, fluxsens, &
+       precip_rain, precip_snow, evap, tsurf, fder, albsol, taux, tauy)
+!
+! This subroutine cumulates some fields for each time-step during a coupling 
+! period. At last time-step in a coupling period the fields are transformed to the 
+! grid accepted by the coupler. All fields for all types of surfaces are sent to
+! the coupler.
+!
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
+    USE indice_sol_mod
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                     :: itime
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    REAL, INTENT(IN)                        :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)       :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)       :: swdown, lwdown 
+    REAL, DIMENSION(klon), INTENT(IN)       :: fluxlat, fluxsens
+    REAL, DIMENSION(klon), INTENT(IN)       :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)       :: evap, tsurf, fder
+    REAL, DIMENSION(klon), INTENT(IN)       :: albsol, taux, tauy
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf
+    LOGICAL, INTENT(IN)                     :: lafin
+
+! Local variables
+!*************************************************************************************
+    INTEGER                                 :: cpl_index, ig 
+    INTEGER                                 :: error, sum_error
+    CHARACTER(len = 25)                     :: modname = 'cpl_send_seaice_fields'
+    CHARACTER(len = 80)                     :: abort_message
+    REAL, DIMENSION(klon)                   :: cpl_fder_tmp
+
+!*************************************************************************************
+! Start calulation
+! The sea-ice points are saved with second array index=2
+!
+!*************************************************************************************
+    cpl_index = 2
+
+!*************************************************************************************
+! Reset fields to zero in the beginning of a new coupling period 
+!
+!*************************************************************************************
+    IF (MOD(itime, nexca) == 1) THEN
+       cpl_sols(1:knon,cpl_index) = 0.0
+       cpl_nsol(1:knon,cpl_index) = 0.0
+       cpl_rain(1:knon,cpl_index) = 0.0
+       cpl_snow(1:knon,cpl_index) = 0.0
+       cpl_evap(1:knon,cpl_index) = 0.0
+       cpl_tsol(1:knon,cpl_index) = 0.0
+       cpl_fder(1:knon,cpl_index) = 0.0
+       cpl_albe(1:knon,cpl_index) = 0.0
+       cpl_taux(1:knon,cpl_index) = 0.0
+       cpl_tauy(1:knon,cpl_index) = 0.0
+       cpl_taumod(1:knon,cpl_index) = 0.0
+    ENDIF
+       
+!*************************************************************************************
+! Cumulate at each time-step
+!
+!*************************************************************************************    
+    DO ig = 1, knon
+       cpl_sols(ig,cpl_index) = cpl_sols(ig,cpl_index) + &
+            swdown(ig)      / REAL(nexca)
+       cpl_nsol(ig,cpl_index) = cpl_nsol(ig,cpl_index) + &
+            (lwdown(ig) + fluxlat(ig) +fluxsens(ig)) / REAL(nexca)
+       cpl_rain(ig,cpl_index) = cpl_rain(ig,cpl_index) + &
+            precip_rain(ig) / REAL(nexca)
+       cpl_snow(ig,cpl_index) = cpl_snow(ig,cpl_index) + &
+            precip_snow(ig) / REAL(nexca)
+       cpl_evap(ig,cpl_index) = cpl_evap(ig,cpl_index) + &
+            evap(ig)        / REAL(nexca)
+       cpl_tsol(ig,cpl_index) = cpl_tsol(ig,cpl_index) + &
+            tsurf(ig)       / REAL(nexca)
+       cpl_fder(ig,cpl_index) = cpl_fder(ig,cpl_index) + &
+            fder(ig)        / REAL(nexca)
+       cpl_albe(ig,cpl_index) = cpl_albe(ig,cpl_index) + &
+            albsol(ig)      / REAL(nexca)
+       cpl_taux(ig,cpl_index) = cpl_taux(ig,cpl_index) + &
+            taux(ig)        / REAL(nexca)
+       cpl_tauy(ig,cpl_index) = cpl_tauy(ig,cpl_index) + &
+            tauy(ig)        / REAL(nexca)     
+       cpl_taumod(ig,cpl_index) = cpl_taumod(ig,cpl_index) + &
+            SQRT ( taux(ig)*taux(ig)+tauy(ig)*tauy(ig) ) / REAL(nexca) 
+    ENDDO
+
+!*************************************************************************************
+! If the time-step corresponds to the end of coupling period the 
+! fields are transformed to the 2D grid and all fields are sent to coupler.
+!
+!*************************************************************************************
+    IF (MOD(itime, nexca) == 0) THEN
+       IF (.NOT. ALLOCATED(cpl_sols2D)) THEN
+          sum_error = 0
+          ALLOCATE(cpl_sols2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_nsol2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_rain2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_snow2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_evap2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_tsol2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_fder2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_albe2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_taux2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_tauy2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_windsp2D(nbp_lon,jj_nb), stat=error)
+          sum_error = sum_error + error
+          ALLOCATE(cpl_taumod2D(nbp_lon,jj_nb,2), stat=error)
+          sum_error = sum_error + error
+
+          IF (carbon_cycle_cpl) THEN
+             ALLOCATE(cpl_atm_co22D(nbp_lon,jj_nb), stat=error)
+             sum_error = sum_error + error
+          END IF
+
+          IF (sum_error /= 0) THEN
+             abort_message='Pb allocation variables couplees pour l''ecriture'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+
+       CALL gath2cpl(cpl_sols(:,cpl_index), cpl_sols2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_nsol(:,cpl_index), cpl_nsol2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_rain(:,cpl_index), cpl_rain2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_snow(:,cpl_index), cpl_snow2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_evap(:,cpl_index), cpl_evap2D(:,:,cpl_index), &
+            knon, knindex)
+
+! cpl_tsol2D(:,:,:) not used!
+       CALL gath2cpl(cpl_tsol(:,cpl_index), cpl_tsol2D(:,:, cpl_index), &
+            knon, knindex)
+
+       ! Set default value and decompress before gath2cpl
+       cpl_fder_tmp(:) = -20.
+       DO ig = 1, knon
+          cpl_fder_tmp(knindex(ig))=cpl_fder(ig,cpl_index)
+       END DO
+       CALL gath2cpl(cpl_fder_tmp(:), cpl_fder2D(:,:,cpl_index), &
+            klon, unity)
+
+! cpl_albe2D(:,:,:) not used!
+       CALL gath2cpl(cpl_albe(:,cpl_index), cpl_albe2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_taux(:,cpl_index), cpl_taux2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_tauy(:,cpl_index), cpl_tauy2D(:,:,cpl_index), &
+            knon, knindex)
+
+       CALL gath2cpl(cpl_taumod(:,cpl_index), cpl_taumod2D(:,:,cpl_index), &
+            knon, knindex)
+
+       ! Send all fields
+       CALL cpl_send_all(itime, dtime, pctsrf, lafin, rlon, rlat)
+    ENDIF
+
+  END SUBROUTINE cpl_send_seaice_fields
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_send_land_fields(itime, knon, knindex, rriv_in, rcoa_in)
+!
+! This subroutine cumulates some fields for each time-step during a coupling 
+! period. At last time-step in a coupling period the fields are transformed to the 
+! grid accepted by the coupler. No sending to the coupler will be done from here 
+! (it is done in cpl_send_seaice_fields).
+!
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                       :: itime
+    INTEGER, INTENT(IN)                       :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+    REAL, DIMENSION(klon), INTENT(IN)         :: rriv_in
+    REAL, DIMENSION(klon), INTENT(IN)         :: rcoa_in
+
+! Local variables
+!*************************************************************************************
+    REAL, DIMENSION(nbp_lon,jj_nb)             :: rriv2D
+    REAL, DIMENSION(nbp_lon,jj_nb)             :: rcoa2D
+
+!*************************************************************************************
+! Rearrange fields in 2D variables 
+! First initialize to zero to avoid unvalid points causing problems
+!
+!*************************************************************************************
+!$OMP MASTER
+    rriv2D(:,:) = 0.0
+    rcoa2D(:,:) = 0.0
+!$OMP END MASTER
+    CALL gath2cpl(rriv_in, rriv2D, knon, knindex)
+    CALL gath2cpl(rcoa_in, rcoa2D, knon, knindex)
+
+!*************************************************************************************
+! Reset cumulated fields to zero in the beginning of a new coupling period 
+!
+!*************************************************************************************
+    IF (MOD(itime, nexca) == 1) THEN
+!$OMP MASTER
+       cpl_rriv2D(:,:) = 0.0
+       cpl_rcoa2D(:,:) = 0.0
+!$OMP END MASTER
+    ENDIF
+
+!*************************************************************************************
+! Cumulate : Following fields should be cumulated at each time-step
+!
+!*************************************************************************************    
+!$OMP MASTER
+    cpl_rriv2D(:,:) = cpl_rriv2D(:,:) + rriv2D(:,:) / REAL(nexca)
+    cpl_rcoa2D(:,:) = cpl_rcoa2D(:,:) + rcoa2D(:,:) / REAL(nexca)
+!$OMP END MASTER
+
+  END SUBROUTINE cpl_send_land_fields
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_send_landice_fields(itime, knon, knindex, rlic_in)
+! This subroutine cumulates the field for melting ice for each time-step 
+! during a coupling period. This routine will not send to coupler. Sending 
+! will be done in cpl_send_seaice_fields.
+!
+
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+
+! Input varibales
+!*************************************************************************************
+    INTEGER, INTENT(IN)                       :: itime
+    INTEGER, INTENT(IN)                       :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+    REAL, DIMENSION(klon), INTENT(IN)         :: rlic_in
+
+! Local varibales
+!*************************************************************************************
+    REAL, DIMENSION(nbp_lon,jj_nb)             :: rlic2D
+
+!*************************************************************************************
+! Rearrange field in a 2D variable 
+! First initialize to zero to avoid unvalid points causing problems
+!
+!*************************************************************************************
+!$OMP MASTER
+    rlic2D(:,:) = 0.0
+!$OMP END MASTER
+    CALL gath2cpl(rlic_in, rlic2D, knon, knindex)
+
+!*************************************************************************************
+! Reset field to zero in the beginning of a new coupling period 
+!
+!*************************************************************************************
+    IF (MOD(itime, nexca) == 1) THEN
+!$OMP MASTER
+       cpl_rlic2D(:,:) = 0.0
+!$OMP END MASTER
+    ENDIF
+
+!*************************************************************************************
+! Cumulate : Melting ice should be cumulated at each time-step
+!
+!*************************************************************************************    
+!$OMP MASTER
+    cpl_rlic2D(:,:) = cpl_rlic2D(:,:) + rlic2D(:,:) / REAL(nexca)
+!$OMP END MASTER
+
+  END SUBROUTINE cpl_send_landice_fields
+
+!
+!*************************************************************************************
+!
+
+  SUBROUTINE cpl_send_all(itime, dtime, pctsrf, lafin, rlon, rlat)
+! This routine will send fields for all different surfaces to the coupler.
+! This subroutine should be executed after calculations by the last surface(sea-ice),
+! all calculations at the different surfaces have to be done before. 
+!    
+    USE surface_data
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
+    USE indice_sol_mod
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    USE time_phylmdz_mod, ONLY: start_time, itau_phy
+! Some includes
+!    
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                                  :: itime
+    REAL, INTENT(IN)                                     :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)                    :: rlon, rlat
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)              :: pctsrf
+    LOGICAL, INTENT(IN)                                  :: lafin
+    
+! Local variables
+!*************************************************************************************
+    INTEGER                                              :: error, sum_error, j
+    INTEGER                                              :: itau_w
+    INTEGER                                              :: time_sec
+    INTEGER, DIMENSION(nbp_lon*(nbp_lat))                      :: ndexct
+    REAL                                                 :: Up, Down
+    REAL, DIMENSION(nbp_lon, jj_nb)                          :: tmp_lon, tmp_lat
+    REAL, DIMENSION(nbp_lon, jj_nb, 4)                       :: pctsrf2D
+    REAL, DIMENSION(nbp_lon, jj_nb)                          :: deno
+    CHARACTER(len = 20)                                  :: modname = 'cpl_send_all'
+    CHARACTER(len = 80)                                  :: abort_message
+   
+! Variables with fields to coupler
+    REAL, DIMENSION(nbp_lon, jj_nb)                          :: tmp_taux
+    REAL, DIMENSION(nbp_lon, jj_nb)                          :: tmp_tauy
+    REAL, DIMENSION(nbp_lon, jj_nb)                          :: tmp_calv
+! Table with all fields to send to coupler
+    REAL, DIMENSION(nbp_lon, jj_nb, maxsend)                 :: tab_flds
+    REAL, DIMENSION(klon_mpi)                            :: rlon_mpi, rlat_mpi
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+    INTEGER, DIMENSION(MPI_STATUS_SIZE)                  :: status
+#endif
+
+! End definitions
+!*************************************************************************************
+    
+
+
+!*************************************************************************************
+! All fields are stored in a table tab_flds(:,:,:)
+! First store the fields which are already on the right format
+!
+!*************************************************************************************
+!$OMP MASTER
+    tab_flds(:,:,ids_windsp) = cpl_windsp2D(:,:)
+    tab_flds(:,:,ids_shfice) = cpl_sols2D(:,:,2)
+    tab_flds(:,:,ids_nsfice) = cpl_nsol2D(:,:,2)
+    tab_flds(:,:,ids_dflxdt) = cpl_fder2D(:,:,2)
+    
+    IF (version_ocean=='nemo') THEN
+       tab_flds(:,:,ids_liqrun) = cpl_rriv2D(:,:) + cpl_rcoa2D(:,:)
+       IF (carbon_cycle_cpl) tab_flds(:,:,ids_atmco2)=cpl_atm_co22D(:,:)
+    ELSE IF (version_ocean=='opa8') THEN
+       tab_flds(:,:,ids_shfoce) = cpl_sols2D(:,:,1)
+       tab_flds(:,:,ids_nsfoce) = cpl_nsol2D(:,:,1)
+       tab_flds(:,:,ids_icevap) = cpl_evap2D(:,:,2)
+       tab_flds(:,:,ids_ocevap) = cpl_evap2D(:,:,1)
+       tab_flds(:,:,ids_runcoa) = cpl_rcoa2D(:,:)
+       tab_flds(:,:,ids_rivflu) = cpl_rriv2D(:,:)
+    END IF
+
+!*************************************************************************************
+! Transform the fraction of sub-surfaces from 1D to 2D array
+!
+!*************************************************************************************
+    pctsrf2D(:,:,:) = 0.
+!$OMP END MASTER
+    CALL gath2cpl(pctsrf(:,is_oce), pctsrf2D(:,:,is_oce), klon, unity)
+    CALL gath2cpl(pctsrf(:,is_sic), pctsrf2D(:,:,is_sic), klon, unity)
+    CALL gath2cpl(pctsrf(:,is_lic), pctsrf2D(:,:,is_lic), klon, unity)
+
+!*************************************************************************************
+! Calculate the average calving per latitude
+! Store calving in tab_flds(:,:,19)
+! 
+!*************************************************************************************      
+    IF (is_omp_root) THEN
+
+      DO j = 1, jj_nb
+         tmp_calv(:,j) = DOT_PRODUCT (cpl_rlic2D(1:nbp_lon,j), &
+              pctsrf2D(1:nbp_lon,j,is_lic)) / REAL(nbp_lon)
+      ENDDO
+    
+    
+      IF (is_parallel) THEN
+         IF (.NOT. is_north_pole_dyn) THEN
+#ifdef CPP_MPI
+            CALL MPI_RECV(Up,1,MPI_REAL_LMDZ,mpi_rank-1,1234,COMM_LMDZ_PHY,status,error)
+            CALL MPI_SEND(tmp_calv(1,1),1,MPI_REAL_LMDZ,mpi_rank-1,1234,COMM_LMDZ_PHY,error)
+#endif
+         ENDIF
+       
+         IF (.NOT. is_south_pole_dyn) THEN
+#ifdef CPP_MPI
+            CALL MPI_SEND(tmp_calv(1,jj_nb),1,MPI_REAL_LMDZ,mpi_rank+1,1234,COMM_LMDZ_PHY,error)
+            CALL MPI_RECV(down,1,MPI_REAL_LMDZ,mpi_rank+1,1234,COMM_LMDZ_PHY,status,error)
+#endif
+         ENDIF
+         
+         IF (.NOT. is_north_pole_dyn .AND. ii_begin /=1) THEN
+            Up=Up+tmp_calv(nbp_lon,1)
+            tmp_calv(:,1)=Up
+         ENDIF
+         
+         IF (.NOT. is_south_pole_dyn .AND. ii_end /= nbp_lon) THEN
+            Down=Down+tmp_calv(1,jj_nb)
+            tmp_calv(:,jj_nb)=Down	 
+         ENDIF
+      ENDIF
+      
+      tab_flds(:,:,ids_calvin) = tmp_calv(:,:)
+
+!*************************************************************************************
+! Calculate total flux for snow, rain and wind with weighted addition using the 
+! fractions of ocean and seaice.
+!
+!*************************************************************************************    
+       ! fraction oce+seaice
+       deno =  pctsrf2D(:,:,is_oce) + pctsrf2D(:,:,is_sic) 
+
+       IF (version_ocean=='nemo') THEN
+          tab_flds(:,:,ids_shftot)  = 0.0
+          tab_flds(:,:,ids_nsftot) = 0.0
+          tab_flds(:,:,ids_totrai) = 0.0
+          tab_flds(:,:,ids_totsno) = 0.0
+          tab_flds(:,:,ids_toteva) = 0.0
+          tab_flds(:,:,ids_taumod) = 0.0
+  
+          tmp_taux(:,:)    = 0.0
+          tmp_tauy(:,:)    = 0.0
+          ! For all valid grid cells containing some fraction of ocean or sea-ice
+          WHERE ( deno(:,:) /= 0 )
+             tmp_taux = cpl_taux2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_taux2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tmp_tauy = cpl_tauy2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_tauy2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+
+             tab_flds(:,:,ids_shftot) = cpl_sols2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_sols2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tab_flds(:,:,ids_nsftot) = cpl_nsol2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_nsol2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tab_flds(:,:,ids_totrai) = cpl_rain2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_rain2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tab_flds(:,:,ids_totsno) = cpl_snow2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_snow2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tab_flds(:,:,ids_toteva) = cpl_evap2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_evap2D(:,:,2)  * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tab_flds(:,:,ids_taumod) = cpl_taumod2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_taumod2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             
+         ENDWHERE
+
+          tab_flds(:,:,ids_icevap) = cpl_evap2D(:,:,2) 
+          
+       ELSE IF (version_ocean=='opa8') THEN
+          ! Store fields for rain and snow in tab_flds(:,:,15) and tab_flds(:,:,16)
+          tab_flds(:,:,ids_totrai) = 0.0
+          tab_flds(:,:,ids_totsno) = 0.0
+          tmp_taux(:,:)    = 0.0
+          tmp_tauy(:,:)    = 0.0
+          ! For all valid grid cells containing some fraction of ocean or sea-ice
+          WHERE ( deno(:,:) /= 0 )
+             tab_flds(:,:,ids_totrai) = cpl_rain2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_rain2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tab_flds(:,:,ids_totsno) = cpl_snow2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_snow2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             
+             tmp_taux = cpl_taux2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_taux2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+             tmp_tauy = cpl_tauy2D(:,:,1) * pctsrf2D(:,:,is_oce) / deno(:,:) +    &
+                  cpl_tauy2D(:,:,2) * pctsrf2D(:,:,is_sic) / deno(:,:)
+          ENDWHERE
+       END IF
+
+    ENDIF ! is_omp_root
+  
+!*************************************************************************************
+! Transform the wind components from local atmospheric 2D coordinates to geocentric 
+! 3D coordinates. 
+! Store the resulting wind components in tab_flds(:,:,1:6)
+!*************************************************************************************
+
+! Transform the longitudes and latitudes on 2D arrays
+    
+    CALL gather_omp(rlon,rlon_mpi)
+    CALL gather_omp(rlat,rlat_mpi)
+!$OMP MASTER
+    CALL Grid1DTo2D_mpi(rlon_mpi,tmp_lon)
+    CALL Grid1DTo2D_mpi(rlat_mpi,tmp_lat)
+!$OMP END MASTER    
+
+    IF (is_sequential) THEN
+       IF (is_north_pole_dyn) tmp_lon(:,1)     = tmp_lon(:,2)
+       IF (is_south_pole_dyn) tmp_lon(:,nbp_lat) = tmp_lon(:,nbp_lat-1)
+    ENDIF
+      
+! NetCDF output of the wind before transformation of coordinate system
+    IF (is_sequential) THEN
+       ndexct(:) = 0
+       itau_w = itau_phy + itime + start_time * day_step_phy
+       CALL histwrite(nidct,'tauxe',itau_w,tmp_taux,nbp_lon*(nbp_lat),ndexct)
+       CALL histwrite(nidct,'tauyn',itau_w,tmp_tauy,nbp_lon*(nbp_lat),ndexct)
+       CALL histwrite(nidct,'tmp_lon',itau_w,tmp_lon,nbp_lon*(nbp_lat),ndexct)
+       CALL histwrite(nidct,'tmp_lat',itau_w,tmp_lat,nbp_lon*(nbp_lat),ndexct)
+    ENDIF
+
+! Transform the wind from spherical atmospheric 2D coordinates to geocentric
+! cartesian 3D coordinates 
+!$OMP MASTER
+    CALL atm2geo (nbp_lon, jj_nb, tmp_taux, tmp_tauy, tmp_lon, tmp_lat, &
+         tab_flds(:,:,ids_tauxxu), tab_flds(:,:,ids_tauyyu), tab_flds(:,:,ids_tauzzu) )
+    
+    tab_flds(:,:,ids_tauxxv)  = tab_flds(:,:,ids_tauxxu)
+    tab_flds(:,:,ids_tauyyv)  = tab_flds(:,:,ids_tauyyu)
+    tab_flds(:,:,ids_tauzzv)  = tab_flds(:,:,ids_tauzzu)
+!$OMP END MASTER
+
+!*************************************************************************************
+! NetCDF output of all fields just before sending to coupler.
+!
+!*************************************************************************************
+    IF (is_sequential) THEN
+        DO j=1,maxsend
+          IF (infosend(j)%action) CALL histwrite(nidct,infosend(j)%name, itau_w, &
+             tab_flds(:,:,j),nbp_lon*(nbp_lat),ndexct)
+        ENDDO
+    ENDIF
+!*************************************************************************************
+! Send the table of all fields
+!
+!*************************************************************************************
+    time_sec=(itime-1)*dtime
+#ifdef CPP_COUPLE
+!$OMP MASTER
+    CALL intocpl(time_sec, lafin, tab_flds(:,:,:))
+!$OMP END MASTER
+#endif
+
+!*************************************************************************************
+! Finish with some dellocate
+!
+!*************************************************************************************  
+    sum_error=0
+    DEALLOCATE(cpl_sols2D, cpl_nsol2D, cpl_rain2D, cpl_snow2D, stat=error )
+    sum_error = sum_error + error
+    DEALLOCATE(cpl_evap2D, cpl_tsol2D, cpl_fder2D, cpl_albe2D, stat=error )
+    sum_error = sum_error + error
+    DEALLOCATE(cpl_taux2D, cpl_tauy2D, cpl_windsp2D, cpl_taumod2D, stat=error )
+    sum_error = sum_error + error
+    
+    IF (carbon_cycle_cpl) THEN
+       DEALLOCATE(cpl_atm_co22D, stat=error )
+       sum_error = sum_error + error
+    END IF
+
+    IF (sum_error /= 0) THEN
+       abort_message='Pb in deallocation of cpl_xxxx2D coupling variables'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    
+  END SUBROUTINE cpl_send_all
+!
+!*************************************************************************************
+!
+  SUBROUTINE cpl2gath(champ_in, champ_out, knon, knindex)
+  USE mod_phys_lmdz_para
+! Cette routine transforme un champs de la grille 2D recu du coupleur sur la grille 
+! 'gathered' (la grille physiq comprime).
+!
+! 
+! input:         
+!   champ_in     champ sur la grille 2D
+!   knon         nombre de points dans le domaine a traiter
+!   knindex      index des points de la surface a traiter
+!
+! output:
+!   champ_out    champ sur la grille 'gatherd'
+!
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+
+! Input
+    INTEGER, INTENT(IN)                       :: knon
+    REAL, DIMENSION(nbp_lon,jj_nb), INTENT(IN)    :: champ_in
+    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+
+! Output
+    REAL, DIMENSION(klon_mpi), INTENT(OUT)        :: champ_out
+
+! Local
+    INTEGER                                   :: i, ig
+    REAL, DIMENSION(klon_mpi)                 :: temp_mpi
+    REAL, DIMENSION(klon)                     :: temp_omp
+
+!*************************************************************************************
+!
+    
+
+! Transform from 2 dimensions (nbp_lon,jj_nb) to 1 dimension (klon)
+!$OMP MASTER 
+    CALL Grid2Dto1D_mpi(champ_in,temp_mpi)
+!$OMP END MASTER
+
+    CALL scatter_omp(temp_mpi,temp_omp)
+    
+! Compress from klon to knon
+    DO i = 1, knon
+       ig = knindex(i)
+       champ_out(i) = temp_omp(ig)
+    ENDDO
+
+  END SUBROUTINE cpl2gath
+!
+!*************************************************************************************
+!
+  SUBROUTINE gath2cpl(champ_in, champ_out, knon, knindex)
+  USE mod_phys_lmdz_para
+! Cette routine ecrit un champ 'gathered' sur la grille 2D pour le passer
+! au coupleur.
+!
+! input:         
+!   champ_in     champ sur la grille gathere        
+!   knon         nombre de points dans le domaine a traiter
+!   knindex      index des points de la surface a traiter
+!
+! output:
+!   champ_out    champ sur la grille 2D
+!
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    
+! Input arguments
+!*************************************************************************************
+    INTEGER, INTENT(IN)                    :: knon
+    REAL, DIMENSION(klon), INTENT(IN)      :: champ_in
+    INTEGER, DIMENSION(klon), INTENT(IN)   :: knindex
+
+! Output arguments
+!*************************************************************************************
+    REAL, DIMENSION(nbp_lon,jj_nb), INTENT(OUT) :: champ_out
+
+! Local variables
+!*************************************************************************************
+    INTEGER                                :: i, ig
+    REAL, DIMENSION(klon)                  :: temp_omp
+    REAL, DIMENSION(klon_mpi)              :: temp_mpi
+!*************************************************************************************
+
+! Decompress from knon to klon
+    temp_omp = 0.
+    DO i = 1, knon
+       ig = knindex(i)
+       temp_omp(ig) = champ_in(i)
+    ENDDO
+
+! Transform from 1 dimension (klon) to 2 dimensions (nbp_lon,jj_nb)
+    CALL gather_omp(temp_omp,temp_mpi)
+
+!$OMP MASTER    
+    CALL Grid1Dto2D_mpi(temp_mpi,champ_out)
+    
+    IF (is_north_pole_dyn) champ_out(:,1)=temp_mpi(1)
+    IF (is_south_pole_dyn) champ_out(:,jj_nb)=temp_mpi(klon)
+!$OMP END MASTER
+    
+  END SUBROUTINE gath2cpl
+!
+!*************************************************************************************
+!
+END MODULE cpl_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ctstar.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ctstar.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ctstar.F90	(revision 3330)
@@ -0,0 +1,128 @@
+SUBROUTINE CTSTAR(KPROMA,KSTART,KPROF,PTB,PRESBH,PRESBF,POROG,PTSTAR,PT0)
+
+!**** *CTSTAR* - COMPUTES STANDARD SURFACE TEMPERATURE
+!                              AND SURFACE TEMPERATURE.
+
+!     PURPOSE.
+!     --------
+
+!           COMPUTES THE STANDARD SURFACE TEMPERATURE AND THE SURFACE
+!           TEMPERATURE TO BE USED FOR EXTRAPOLATIONS OF TEMPERATURE
+!           AND GEOPOTENTIEL.
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *CTSTAR(..)*
+
+!        EXPLICIT ARGUMENTS
+!        --------------------
+
+!        KPROMA         - HORIZONTAL DIMENSIONS.             (INPUT)
+!        KSTART         - START OF WORK                      (INPUT)
+!        KPROF          - DEPTH OF WORK                      (INPUT)
+
+!        PTB(KPROMA)    - TEMPERATURE AT NFLEVG-1             (INPUT)
+!        PRESBH(KPROMA) - LOWEST MODEL HALF LEVEL PRESSURES  (INPUT)
+
+!        PRESBF(KPROMA) - PRESSURE AT NFLEVG-1                (INPUT)
+!        POROG(KPROMA)  - MODEL ORGRAPHY                     (INPUT)
+
+
+!        PTSTAR(KPROMA) - SURFACE TEMPERATURE                (OUTPUT)
+
+!        PT0(KPROMA)    - STANDARD SURFACE TEMPERATURE       (OUTPUT)
+
+!        IMPLICIT ARGUMENTS :    CONSTANTS FROM YOMSTA,YOMCST.
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.   NONE.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        MATS HAMRUD AND PHILIPPE COURTIER  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-05-02
+
+!      Modification : 93-06-01 M.Hamrud (Comment only, now T from NFLEVG-1)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+!USE PARKIND1 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/parkind1.F90.php#parkind1>  ,ONLY : JPIM     ,JPRB
+!USE YOMHOOK 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/yomhook.F90.php#yomhook>   ,ONLY : LHOOK,   DR_HOOK
+
+!USE YOMCST, ONLY : RG, RD 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomcst.F90.php#yomcst>   , ONLY :  RG
+
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/support/rg.F.php#rg>       ,RD
+!USE YOMSTA 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
+
+IMPLICIT NONE
+
+include "YOMCST.h"
+!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA
+!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART
+!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF
+INTEGER,INTENT(IN)    :: KPROMA
+INTEGER,INTENT(IN)    :: KSTART
+INTEGER,INTENT(IN)    :: KPROF
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: PTB(KPROMA)
+REAL   ,INTENT(IN)    :: PTB(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: PRESBH(KPROMA)
+REAL   ,INTENT(IN)    :: PRESBH(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: PRESBF(KPROMA)
+REAL   ,INTENT(IN)    :: PRESBF(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: POROG(KPROMA)
+REAL   ,INTENT(IN)    :: POROG(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTSTAR(KPROMA)
+REAL   ,INTENT(OUT)   :: PTSTAR(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(OUT)   :: PT0(KPROMA)
+REAL   ,INTENT(OUT)   :: PT0(KPROMA)
+!IM INTEGER(KIND=JPIM) :: JL
+INTEGER :: JL
+
+!IM REAL(KIND=JPRB) :: ZALPHA, ZDTDZSG
+REAL :: ZALPHA, ZDTDZSG
+!IM REAL(KIND=JPRB) :: ZHOOK_HANDLE
+REAL :: ZHOOK_HANDLE
+!IM beg
+REAL, PARAMETER                  :: RDTDZ1=-0.0065 !or USE YOMSTA
+!IM end
+
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES SURFACE TEMPERATURE
+!*             THEN STANDARD SURFACE TEMPERATURE.
+
+!IF (LHOOK) CALL DR_HOOK('CTSTAR',0,ZHOOK_HANDLE)
+ZDTDZSG=-RDTDZ1/RG 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/support/rg.F.php#rg>
+ZALPHA=ZDTDZSG*RD
+DO JL=KSTART,KPROF
+
+   !IM PTSTAR(JL)=PTB(JL)*(1.0_JPRB+ZALPHA*(PRESBH(JL)/PRESBF(JL)-1.0_JPRB))
+   PTSTAR(JL)=PTB(JL)*(1.0+ZALPHA*(PRESBH(JL)/PRESBF(JL)-1.0))
+   PT0(JL)=PTSTAR(JL)+ZDTDZSG*POROG(JL)
+!  print*,'cstar JL ptb zalpha PRESBH PRESBF ptstar' &
+!  ,JL,PTB(JL),ZALPHA,PRESBH(JL),PRESBF(JL),PTSTAR(JL)
+ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!IF (LHOOK) CALL DR_HOOK('CTSTAR',1,ZHOOK_HANDLE)
+END SUBROUTINE CTSTAR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv30_routines.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv30_routines.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv30_routines.F90	(revision 3330)
@@ -0,0 +1,3357 @@
+
+! $Id$
+
+
+
+SUBROUTINE cv30_param(nd, delt)
+  IMPLICIT NONE
+
+  ! ------------------------------------------------------------
+  ! Set parameters for convectL for iflag_con = 3
+  ! ------------------------------------------------------------
+
+
+  ! ***  PBCRIT IS THE CRITICAL CLOUD DEPTH (MB) BENEATH WHICH THE ***
+  ! ***      PRECIPITATION EFFICIENCY IS ASSUMED TO BE ZERO     ***
+  ! ***  PTCRIT IS THE CLOUD DEPTH (MB) ABOVE WHICH THE PRECIP. ***
+  ! ***            EFFICIENCY IS ASSUMED TO BE UNITY            ***
+  ! ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
+  ! ***  SPFAC IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE ***
+  ! ***                        OF CLOUD                         ***
+
+  ! [TAU: CHARACTERISTIC TIMESCALE USED TO COMPUTE ALPHA & BETA]
+  ! ***    ALPHA AND BETA ARE PARAMETERS THAT CONTROL THE RATE OF ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM           ***
+  ! ***    (THEIR STANDARD VALUES ARE 1.0 AND 0.96, RESPECTIVELY) ***
+  ! ***           (BETA MUST BE LESS THAN OR EQUAL TO 1)        ***
+
+  ! ***    DTCRIT IS THE CRITICAL BUOYANCY (K) USED TO ADJUST THE ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM           ***
+  ! ***                     IT MUST BE LESS THAN 0              ***
+
+  include "cv30param.h"
+  include "conema3.h"
+
+  INTEGER nd
+  REAL delt ! timestep (seconds)
+
+  ! noff: integer limit for convection (nd-noff)
+  ! minorig: First level of convection
+
+  ! -- limit levels for convection:
+
+  noff = 1
+  minorig = 1
+  nl = nd - noff
+  nlp = nl + 1
+  nlm = nl - 1
+
+  ! -- "microphysical" parameters:
+
+  sigd = 0.01
+  spfac = 0.15
+  pbcrit = 150.0
+  ptcrit = 500.0
+  ! IM cf. FH     epmax  = 0.993
+
+  omtrain = 45.0 ! used also for snow (no disctinction rain/snow)
+
+  ! -- misc:
+
+  dtovsh = -0.2 ! dT for overshoot
+  dpbase = -40. ! definition cloud base (400m above LCL)
+  dttrig = 5. ! (loose) condition for triggering
+
+  ! -- rate of approach to quasi-equilibrium:
+
+  dtcrit = -2.0
+  tau = 8000.
+  beta = 1.0 - delt/tau
+  alpha = 1.5E-3*delt/tau
+  ! increase alpha to compensate W decrease:
+  alpha = alpha*1.5
+
+  ! -- interface cloud parameterization:
+
+  delta = 0.01 ! cld
+
+  ! -- interface with boundary-layer (gust factor): (sb)
+
+  betad = 10.0 ! original value (from convect 4.3)
+
+  RETURN
+END SUBROUTINE cv30_param
+
+SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, &
+    th)
+  IMPLICIT NONE
+
+  ! =====================================================================
+  ! --- CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY & STATIC ENERGY
+  ! "ori": from convect4.3 (vectorized)
+  ! "convect3": to be exactly consistent with convect3
+  ! =====================================================================
+
+  ! inputs:
+  INTEGER len, nd, ndp1
+  REAL t(len, nd), q(len, nd), p(len, nd), ph(len, ndp1)
+
+  ! outputs:
+  REAL lv(len, nd), cpn(len, nd), tv(len, nd)
+  REAL gz(len, nd), h(len, nd), hm(len, nd)
+  REAL th(len, nd)
+
+  ! local variables:
+  INTEGER k, i
+  REAL rdcp
+  REAL tvx, tvy ! convect3
+  REAL cpx(len, nd)
+
+  include "cvthermo.h"
+  include "cv30param.h"
+
+
+  ! ori      do 110 k=1,nlp
+  DO k = 1, nl ! convect3
+    DO i = 1, len
+      ! debug          lv(i,k)= lv0-clmcpv*(t(i,k)-t0)
+      lv(i, k) = lv0 - clmcpv*(t(i,k)-273.15)
+      cpn(i, k) = cpd*(1.0-q(i,k)) + cpv*q(i, k)
+      cpx(i, k) = cpd*(1.0-q(i,k)) + cl*q(i, k)
+      ! ori          tv(i,k)=t(i,k)*(1.0+q(i,k)*epsim1)
+      tv(i, k) = t(i, k)*(1.0+q(i,k)/eps-q(i,k))
+      rdcp = (rrd*(1.-q(i,k))+q(i,k)*rrv)/cpn(i, k)
+      th(i, k) = t(i, k)*(1000.0/p(i,k))**rdcp
+    END DO
+  END DO
+
+  ! gz = phi at the full levels (same as p).
+
+  DO i = 1, len
+    gz(i, 1) = 0.0
+  END DO
+  ! ori      do 140 k=2,nlp
+  DO k = 2, nl ! convect3
+    DO i = 1, len
+      tvx = t(i, k)*(1.+q(i,k)/eps-q(i,k)) !convect3
+      tvy = t(i, k-1)*(1.+q(i,k-1)/eps-q(i,k-1)) !convect3
+      gz(i, k) = gz(i, k-1) + 0.5*rrd*(tvx+tvy) & !convect3
+        *(p(i,k-1)-p(i,k))/ph(i, k) !convect3
+
+      ! ori         gz(i,k)=gz(i,k-1)+hrd*(tv(i,k-1)+tv(i,k))
+      ! ori    &         *(p(i,k-1)-p(i,k))/ph(i,k)
+    END DO
+  END DO
+
+  ! h  = phi + cpT (dry static energy).
+  ! hm = phi + cp(T-Tbase)+Lq
+
+  ! ori      do 170 k=1,nlp
+  DO k = 1, nl ! convect3
+    DO i = 1, len
+      h(i, k) = gz(i, k) + cpn(i, k)*t(i, k)
+      hm(i, k) = gz(i, k) + cpx(i, k)*(t(i,k)-t(i,1)) + lv(i, k)*q(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_prelim
+
+SUBROUTINE cv30_feed(len, nd, t, q, qs, p, ph, hm, gz, nk, icb, icbmax, &
+    iflag, tnk, qnk, gznk, plcl)
+  IMPLICIT NONE
+
+  ! ================================================================
+  ! Purpose: CONVECTIVE FEED
+
+  ! Main differences with cv_feed:
+  ! - ph added in input
+  ! - here, nk(i)=minorig
+  ! - icb defined differently (plcl compared with ph instead of p)
+
+  ! Main differences with convect3:
+  ! - we do not compute dplcldt and dplcldr of CLIFT anymore
+  ! - values iflag different (but tests identical)
+  ! - A,B explicitely defined (!...)
+  ! ================================================================
+
+  include "cv30param.h"
+
+  ! inputs:
+  INTEGER len, nd
+  REAL t(len, nd), q(len, nd), qs(len, nd), p(len, nd)
+  REAL hm(len, nd), gz(len, nd)
+  REAL ph(len, nd+1)
+
+  ! outputs:
+  INTEGER iflag(len), nk(len), icb(len), icbmax
+  REAL tnk(len), qnk(len), gznk(len), plcl(len)
+
+  ! local variables:
+  INTEGER i, k
+  INTEGER ihmin(len)
+  REAL work(len)
+  REAL pnk(len), qsnk(len), rh(len), chi(len)
+  REAL a, b ! convect3
+  ! ym
+  plcl = 0.0
+  ! @ !-------------------------------------------------------------------
+  ! @ ! --- Find level of minimum moist static energy
+  ! @ ! --- If level of minimum moist static energy coincides with
+  ! @ ! --- or is lower than minimum allowable parcel origin level,
+  ! @ ! --- set iflag to 6.
+  ! @ !-------------------------------------------------------------------
+  ! @
+  ! @       do 180 i=1,len
+  ! @        work(i)=1.0e12
+  ! @        ihmin(i)=nl
+  ! @  180  continue
+  ! @       do 200 k=2,nlp
+  ! @         do 190 i=1,len
+  ! @          if((hm(i,k).lt.work(i)).and.
+  ! @      &      (hm(i,k).lt.hm(i,k-1)))then
+  ! @            work(i)=hm(i,k)
+  ! @            ihmin(i)=k
+  ! @          endif
+  ! @  190    continue
+  ! @  200  continue
+  ! @       do 210 i=1,len
+  ! @         ihmin(i)=min(ihmin(i),nlm)
+  ! @         if(ihmin(i).le.minorig)then
+  ! @           iflag(i)=6
+  ! @         endif
+  ! @  210  continue
+  ! @ c
+  ! @ !-------------------------------------------------------------------
+  ! @ ! --- Find that model level below the level of minimum moist static
+  ! @ ! --- energy that has the maximum value of moist static energy
+  ! @ !-------------------------------------------------------------------
+  ! @
+  ! @       do 220 i=1,len
+  ! @        work(i)=hm(i,minorig)
+  ! @        nk(i)=minorig
+  ! @  220  continue
+  ! @       do 240 k=minorig+1,nl
+  ! @         do 230 i=1,len
+  ! @          if((hm(i,k).gt.work(i)).and.(k.le.ihmin(i)))then
+  ! @            work(i)=hm(i,k)
+  ! @            nk(i)=k
+  ! @          endif
+  ! @  230     continue
+  ! @  240  continue
+
+  ! -------------------------------------------------------------------
+  ! --- Origin level of ascending parcels for convect3:
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    nk(i) = minorig
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Check whether parcel level temperature and specific humidity
+  ! --- are reasonable
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    IF (((t(i,nk(i))<250.0) .OR. (q(i,nk(i))<=0.0)) & ! @      &       .or.(
+                                                      ! p(i,ihmin(i)).lt.400.0
+                                                      ! )  )
+      .AND. (iflag(i)==0)) iflag(i) = 7
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Calculate lifted condensation level of air at parcel origin level
+  ! --- (Within 0.2% of formula of Bolton, MON. WEA. REV.,1980)
+  ! -------------------------------------------------------------------
+
+  a = 1669.0 ! convect3
+  b = 122.0 ! convect3
+
+  DO i = 1, len
+
+    IF (iflag(i)/=7) THEN ! modif sb Jun7th 2002
+
+      tnk(i) = t(i, nk(i))
+      qnk(i) = q(i, nk(i))
+      gznk(i) = gz(i, nk(i))
+      pnk(i) = p(i, nk(i))
+      qsnk(i) = qs(i, nk(i))
+
+      rh(i) = qnk(i)/qsnk(i)
+      ! ori        rh(i)=min(1.0,rh(i)) ! removed for convect3
+      ! ori        chi(i)=tnk(i)/(1669.0-122.0*rh(i)-tnk(i))
+      chi(i) = tnk(i)/(a-b*rh(i)-tnk(i)) ! convect3
+      plcl(i) = pnk(i)*(rh(i)**chi(i))
+      IF (((plcl(i)<200.0) .OR. (plcl(i)>=2000.0)) .AND. (iflag(i)==0)) iflag &
+        (i) = 8
+
+    END IF ! iflag=7
+
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Calculate first level above lcl (=icb)
+  ! -------------------------------------------------------------------
+
+  ! @      do 270 i=1,len
+  ! @       icb(i)=nlm
+  ! @ 270  continue
+  ! @c
+  ! @      do 290 k=minorig,nl
+  ! @        do 280 i=1,len
+  ! @          if((k.ge.(nk(i)+1)).and.(p(i,k).lt.plcl(i)))
+  ! @     &    icb(i)=min(icb(i),k)
+  ! @ 280    continue
+  ! @ 290  continue
+  ! @c
+  ! @      do 300 i=1,len
+  ! @        if((icb(i).ge.nlm).and.(iflag(i).eq.0))iflag(i)=9
+  ! @ 300  continue
+
+  DO i = 1, len
+    icb(i) = nlm
+  END DO
+
+  ! la modification consiste a comparer plcl a ph et non a p:
+  ! icb est defini par :  ph(icb)<plcl<ph(icb-1)
+  ! @      do 290 k=minorig,nl
+  DO k = 3, nl - 1 ! modif pour que icb soit sup/egal a 2
+    DO i = 1, len
+      IF (ph(i,k)<plcl(i)) icb(i) = min(icb(i), k)
+    END DO
+  END DO
+
+  DO i = 1, len
+    ! @        if((icb(i).ge.nlm).and.(iflag(i).eq.0))iflag(i)=9
+    IF ((icb(i)==nlm) .AND. (iflag(i)==0)) iflag(i) = 9
+  END DO
+
+  DO i = 1, len
+    icb(i) = icb(i) - 1 ! icb sup ou egal a 2
+  END DO
+
+  ! Compute icbmax.
+
+  icbmax = 2
+  DO i = 1, len
+    ! !        icbmax=max(icbmax,icb(i))
+    IF (iflag(i)<7) icbmax = max(icbmax, icb(i)) ! sb Jun7th02
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_feed
+
+SUBROUTINE cv30_undilute1(len, nd, t, q, qs, gz, plcl, p, nk, icb, tp, tvp, &
+    clw, icbs)
+  IMPLICIT NONE
+
+  ! ----------------------------------------------------------------
+  ! Equivalent de TLIFT entre NK et ICB+1 inclus
+
+  ! Differences with convect4:
+  ! - specify plcl in input
+  ! - icbs is the first level above LCL (may differ from icb)
+  ! - in the iterations, used x(icbs) instead x(icb)
+  ! - many minor differences in the iterations
+  ! - tvp is computed in only one time
+  ! - icbs: first level above Plcl (IMIN de TLIFT) in output
+  ! - if icbs=icb, compute also tp(icb+1),tvp(icb+1) & clw(icb+1)
+  ! ----------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cv30param.h"
+
+  ! inputs:
+  INTEGER len, nd
+  INTEGER nk(len), icb(len)
+  REAL t(len, nd), q(len, nd), qs(len, nd), gz(len, nd)
+  REAL p(len, nd)
+  REAL plcl(len) ! convect3
+
+  ! outputs:
+  REAL tp(len, nd), tvp(len, nd), clw(len, nd)
+
+  ! local variables:
+  INTEGER i, k
+  INTEGER icb1(len), icbs(len), icbsmax2 ! convect3
+  REAL tg, qg, alv, s, ahg, tc, denom, es, rg
+  REAL ah0(len), cpp(len)
+  REAL tnk(len), qnk(len), gznk(len), ticb(len), gzicb(len)
+  REAL qsicb(len) ! convect3
+  REAL cpinv(len) ! convect3
+
+  ! -------------------------------------------------------------------
+  ! --- Calculates the lifted parcel virtual temperature at nk,
+  ! --- the actual temperature, and the adiabatic
+  ! --- liquid water content. The procedure is to solve the equation.
+  ! cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    tnk(i) = t(i, nk(i))
+    qnk(i) = q(i, nk(i))
+    gznk(i) = gz(i, nk(i))
+    ! ori        ticb(i)=t(i,icb(i))
+    ! ori        gzicb(i)=gz(i,icb(i))
+  END DO
+
+  ! ***  Calculate certain parcel quantities, including static energy   ***
+
+  DO i = 1, len
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) + qnk(i)*(lv0-clmcpv*(tnk(i)- &
+      273.15)) + gznk(i)
+    cpp(i) = cpd*(1.-qnk(i)) + qnk(i)*cpv
+    cpinv(i) = 1./cpp(i)
+  END DO
+
+  ! ***   Calculate lifted parcel quantities below cloud base   ***
+
+  DO i = 1, len !convect3
+    icb1(i) = min(max(icb(i), 2), nl)
+    ! if icb is below LCL, start loop at ICB+1:
+    ! (icbs est le premier niveau au-dessus du LCL)
+    icbs(i) = icb1(i) !convect3
+    IF (plcl(i)<p(i,icb1(i))) THEN
+      icbs(i) = min(icbs(i)+1, nl) !convect3
+    END IF
+  END DO !convect3
+
+  DO i = 1, len !convect3
+    ticb(i) = t(i, icbs(i)) !convect3
+    gzicb(i) = gz(i, icbs(i)) !convect3
+    qsicb(i) = qs(i, icbs(i)) !convect3
+  END DO !convect3
+
+
+  ! Re-compute icbsmax (icbsmax2):        !convect3
+  ! !convect3
+  icbsmax2 = 2 !convect3
+  DO i = 1, len !convect3
+    icbsmax2 = max(icbsmax2, icbs(i)) !convect3
+  END DO !convect3
+
+  ! initialization outputs:
+
+  DO k = 1, icbsmax2 ! convect3
+    DO i = 1, len ! convect3
+      tp(i, k) = 0.0 ! convect3
+      tvp(i, k) = 0.0 ! convect3
+      clw(i, k) = 0.0 ! convect3
+    END DO ! convect3
+  END DO ! convect3
+
+  ! tp and tvp below cloud base:
+
+  DO k = minorig, icbsmax2 - 1
+    DO i = 1, len
+      tp(i, k) = tnk(i) - (gz(i,k)-gznk(i))*cpinv(i)
+      tvp(i, k) = tp(i, k)*(1.+qnk(i)/eps-qnk(i)) !whole thing (convect3)
+    END DO
+  END DO
+
+  ! ***  Find lifted parcel quantities above cloud base    ***
+
+  DO i = 1, len
+    tg = ticb(i)
+    ! ori         qg=qs(i,icb(i))
+    qg = qsicb(i) ! convect3
+    ! debug         alv=lv0-clmcpv*(ticb(i)-t0)
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+    ! First iteration.
+
+    ! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    s = cpd*(1.-qnk(i)) + cl*qnk(i) & ! convect3
+      +alv*alv*qg/(rrv*ticb(i)*ticb(i)) ! convect3
+    s = 1./s
+    ! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i) ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+    ! ori          tg=max(tg,35.0)
+    ! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0) ! convect3
+    ! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+    ! ori          else
+    ! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    ! ori          endif
+    ! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icbs(i))-es*(1.-eps))
+
+    ! Second iteration.
+
+
+    ! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    ! ori          s=1./s
+    ! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i) ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+    ! ori          tg=max(tg,35.0)
+    ! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0) ! convect3
+    ! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+    ! ori          else
+    ! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    ! ori          end if
+    ! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icbs(i))-es*(1.-eps))
+
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+    ! ori c approximation here:
+    ! ori         tp(i,icb(i))=(ah0(i)-(cl-cpd)*qnk(i)*ticb(i)
+    ! ori     &   -gz(i,icb(i))-alv*qg)/cpd
+
+    ! convect3: no approximation:
+    tp(i, icbs(i)) = (ah0(i)-gz(i,icbs(i))-alv*qg)/(cpd+(cl-cpd)*qnk(i))
+
+    ! ori         clw(i,icb(i))=qnk(i)-qg
+    ! ori         clw(i,icb(i))=max(0.0,clw(i,icb(i)))
+    clw(i, icbs(i)) = qnk(i) - qg
+    clw(i, icbs(i)) = max(0.0, clw(i,icbs(i)))
+
+    rg = qg/(1.-qnk(i))
+    ! ori         tvp(i,icb(i))=tp(i,icb(i))*(1.+rg*epsi)
+    ! convect3: (qg utilise au lieu du vrai mixing ratio rg)
+    tvp(i, icbs(i)) = tp(i, icbs(i))*(1.+qg/eps-qnk(i)) !whole thing
+
+  END DO
+
+  ! ori      do 380 k=minorig,icbsmax2
+  ! ori       do 370 i=1,len
+  ! ori         tvp(i,k)=tvp(i,k)-tp(i,k)*qnk(i)
+  ! ori 370   continue
+  ! ori 380  continue
+
+
+  ! -- The following is only for convect3:
+
+  ! * icbs is the first level above the LCL:
+  ! if plcl<p(icb), then icbs=icb+1
+  ! if plcl>p(icb), then icbs=icb
+
+  ! * the routine above computes tvp from minorig to icbs (included).
+
+  ! * to compute buoybase (in cv3_trigger.F), both tvp(icb) and tvp(icb+1)
+  ! must be known. This is the case if icbs=icb+1, but not if icbs=icb.
+
+  ! * therefore, in the case icbs=icb, we compute tvp at level icb+1
+  ! (tvp at other levels will be computed in cv3_undilute2.F)
+
+
+  DO i = 1, len
+    ticb(i) = t(i, icb(i)+1)
+    gzicb(i) = gz(i, icb(i)+1)
+    qsicb(i) = qs(i, icb(i)+1)
+  END DO
+
+  DO i = 1, len
+    tg = ticb(i)
+    qg = qsicb(i) ! convect3
+    ! debug         alv=lv0-clmcpv*(ticb(i)-t0)
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+    ! First iteration.
+
+    ! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    s = cpd*(1.-qnk(i)) + cl*qnk(i) & ! convect3
+      +alv*alv*qg/(rrv*ticb(i)*ticb(i)) ! convect3
+    s = 1./s
+    ! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i) ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+    ! ori          tg=max(tg,35.0)
+    ! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0) ! convect3
+    ! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+    ! ori          else
+    ! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    ! ori          endif
+    ! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icb(i)+1)-es*(1.-eps))
+
+    ! Second iteration.
+
+
+    ! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    ! ori          s=1./s
+    ! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i) ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+    ! ori          tg=max(tg,35.0)
+    ! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0) ! convect3
+    ! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+    ! ori          else
+    ! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    ! ori          end if
+    ! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icb(i)+1)-es*(1.-eps))
+
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+    ! ori c approximation here:
+    ! ori         tp(i,icb(i))=(ah0(i)-(cl-cpd)*qnk(i)*ticb(i)
+    ! ori     &   -gz(i,icb(i))-alv*qg)/cpd
+
+    ! convect3: no approximation:
+    tp(i, icb(i)+1) = (ah0(i)-gz(i,icb(i)+1)-alv*qg)/(cpd+(cl-cpd)*qnk(i))
+
+    ! ori         clw(i,icb(i))=qnk(i)-qg
+    ! ori         clw(i,icb(i))=max(0.0,clw(i,icb(i)))
+    clw(i, icb(i)+1) = qnk(i) - qg
+    clw(i, icb(i)+1) = max(0.0, clw(i,icb(i)+1))
+
+    rg = qg/(1.-qnk(i))
+    ! ori         tvp(i,icb(i))=tp(i,icb(i))*(1.+rg*epsi)
+    ! convect3: (qg utilise au lieu du vrai mixing ratio rg)
+    tvp(i, icb(i)+1) = tp(i, icb(i)+1)*(1.+qg/eps-qnk(i)) !whole thing
+
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_undilute1
+
+SUBROUTINE cv30_trigger(len, nd, icb, plcl, p, th, tv, tvp, pbase, buoybase, &
+    iflag, sig, w0)
+  IMPLICIT NONE
+
+  ! -------------------------------------------------------------------
+  ! --- TRIGGERING
+
+  ! - computes the cloud base
+  ! - triggering (crude in this version)
+  ! - relaxation of sig and w0 when no convection
+
+  ! Caution1: if no convection, we set iflag=4
+  ! (it used to be 0 in convect3)
+
+  ! Caution2: at this stage, tvp (and thus buoy) are know up
+  ! through icb only!
+  ! -> the buoyancy below cloud base not (yet) set to the cloud base buoyancy
+  ! -------------------------------------------------------------------
+
+  include "cv30param.h"
+
+  ! input:
+  INTEGER len, nd
+  INTEGER icb(len)
+  REAL plcl(len), p(len, nd)
+  REAL th(len, nd), tv(len, nd), tvp(len, nd)
+
+  ! output:
+  REAL pbase(len), buoybase(len)
+
+  ! input AND output:
+  INTEGER iflag(len)
+  REAL sig(len, nd), w0(len, nd)
+
+  ! local variables:
+  INTEGER i, k
+  REAL tvpbase, tvbase, tdif, ath, ath1
+
+
+  ! ***   set cloud base buoyancy at (plcl+dpbase) level buoyancy
+
+  DO i = 1, len
+    pbase(i) = plcl(i) + dpbase
+    tvpbase = tvp(i, icb(i))*(pbase(i)-p(i,icb(i)+1))/ &
+      (p(i,icb(i))-p(i,icb(i)+1)) + tvp(i, icb(i)+1)*(p(i,icb(i))-pbase(i))/( &
+      p(i,icb(i))-p(i,icb(i)+1))
+    tvbase = tv(i, icb(i))*(pbase(i)-p(i,icb(i)+1))/ &
+      (p(i,icb(i))-p(i,icb(i)+1)) + tv(i, icb(i)+1)*(p(i,icb(i))-pbase(i))/(p &
+      (i,icb(i))-p(i,icb(i)+1))
+    buoybase(i) = tvpbase - tvbase
+  END DO
+
+
+  ! ***   make sure that column is dry adiabatic between the surface  ***
+  ! ***    and cloud base, and that lifted air is positively buoyant  ***
+  ! ***                         at cloud base                         ***
+  ! ***       if not, return to calling program after resetting       ***
+  ! ***                        sig(i) and w0(i)                       ***
+
+
+  ! oct3      do 200 i=1,len
+  ! oct3
+  ! oct3       tdif = buoybase(i)
+  ! oct3       ath1 = th(i,1)
+  ! oct3       ath  = th(i,icb(i)-1) - dttrig
+  ! oct3
+  ! oct3       if (tdif.lt.dtcrit .or. ath.gt.ath1) then
+  ! oct3         do 60 k=1,nl
+  ! oct3            sig(i,k) = beta*sig(i,k) - 2.*alpha*tdif*tdif
+  ! oct3            sig(i,k) = AMAX1(sig(i,k),0.0)
+  ! oct3            w0(i,k)  = beta*w0(i,k)
+  ! oct3   60    continue
+  ! oct3         iflag(i)=4 ! pour version vectorisee
+  ! oct3c convect3         iflag(i)=0
+  ! oct3cccc         return
+  ! oct3       endif
+  ! oct3
+  ! oct3200   continue
+
+  ! -- oct3: on reecrit la boucle 200 (pour la vectorisation)
+
+  DO k = 1, nl
+    DO i = 1, len
+
+      tdif = buoybase(i)
+      ath1 = th(i, 1)
+      ath = th(i, icb(i)-1) - dttrig
+
+      IF (tdif<dtcrit .OR. ath>ath1) THEN
+        sig(i, k) = beta*sig(i, k) - 2.*alpha*tdif*tdif
+        sig(i, k) = amax1(sig(i,k), 0.0)
+        w0(i, k) = beta*w0(i, k)
+        iflag(i) = 4 ! pour version vectorisee
+        ! convect3         iflag(i)=0
+      END IF
+
+    END DO
+  END DO
+
+  ! fin oct3 --
+
+  RETURN
+END SUBROUTINE cv30_trigger
+
+SUBROUTINE cv30_compress(len, nloc, ncum, nd, ntra, iflag1, nk1, icb1, icbs1, &
+    plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, gz1, &
+    th1, tra1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, w01, &
+    iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, &
+    v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+
+  include "cv30param.h"
+
+  ! inputs:
+  INTEGER len, ncum, nd, ntra, nloc
+  INTEGER iflag1(len), nk1(len), icb1(len), icbs1(len)
+  REAL plcl1(len), tnk1(len), qnk1(len), gznk1(len)
+  REAL pbase1(len), buoybase1(len)
+  REAL t1(len, nd), q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)
+  REAL gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)
+  REAL p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)
+  REAL tvp1(len, nd), clw1(len, nd)
+  REAL th1(len, nd)
+  REAL sig1(len, nd), w01(len, nd)
+  REAL tra1(len, nd, ntra)
+
+  ! outputs:
+  ! en fait, on a nloc=len pour l'instant (cf cv_driver)
+  INTEGER iflag(nloc), nk(nloc), icb(nloc), icbs(nloc)
+  REAL plcl(nloc), tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL pbase(nloc), buoybase(nloc)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd), u(nloc, nd), v(nloc, nd)
+  REAL gz(nloc, nd), h(nloc, nd), lv(nloc, nd), cpn(nloc, nd)
+  REAL p(nloc, nd), ph(nloc, nd+1), tv(nloc, nd), tp(nloc, nd)
+  REAL tvp(nloc, nd), clw(nloc, nd)
+  REAL th(nloc, nd)
+  REAL sig(nloc, nd), w0(nloc, nd)
+  REAL tra(nloc, nd, ntra)
+
+  ! local variables:
+  INTEGER i, k, nn, j
+
+  CHARACTER (LEN=20) :: modname = 'cv30_compress'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  DO k = 1, nl + 1
+    nn = 0
+    DO i = 1, len
+      IF (iflag1(i)==0) THEN
+        nn = nn + 1
+        sig(nn, k) = sig1(i, k)
+        w0(nn, k) = w01(i, k)
+        t(nn, k) = t1(i, k)
+        q(nn, k) = q1(i, k)
+        qs(nn, k) = qs1(i, k)
+        u(nn, k) = u1(i, k)
+        v(nn, k) = v1(i, k)
+        gz(nn, k) = gz1(i, k)
+        h(nn, k) = h1(i, k)
+        lv(nn, k) = lv1(i, k)
+        cpn(nn, k) = cpn1(i, k)
+        p(nn, k) = p1(i, k)
+        ph(nn, k) = ph1(i, k)
+        tv(nn, k) = tv1(i, k)
+        tp(nn, k) = tp1(i, k)
+        tvp(nn, k) = tvp1(i, k)
+        clw(nn, k) = clw1(i, k)
+        th(nn, k) = th1(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! do 121 j=1,ntra
+  ! do 111 k=1,nd
+  ! nn=0
+  ! do 101 i=1,len
+  ! if(iflag1(i).eq.0)then
+  ! nn=nn+1
+  ! tra(nn,k,j)=tra1(i,k,j)
+  ! endif
+  ! 101  continue
+  ! 111  continue
+  ! 121  continue
+
+  IF (nn/=ncum) THEN
+    WRITE (lunout, *) 'strange! nn not equal to ncum: ', nn, ncum
+    abort_message = ''
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+
+  nn = 0
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      nn = nn + 1
+      pbase(nn) = pbase1(i)
+      buoybase(nn) = buoybase1(i)
+      plcl(nn) = plcl1(i)
+      tnk(nn) = tnk1(i)
+      qnk(nn) = qnk1(i)
+      gznk(nn) = gznk1(i)
+      nk(nn) = nk1(i)
+      icb(nn) = icb1(i)
+      icbs(nn) = icbs1(i)
+      iflag(nn) = iflag1(i)
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_compress
+
+SUBROUTINE cv30_undilute2(nloc, ncum, nd, icb, icbs, nk, tnk, qnk, gznk, t, &
+    q, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, tvp, clw, hp, &
+    ep, sigp, buoy)
+    ! epmax_cape: ajout arguments
+  IMPLICIT NONE
+
+  ! ---------------------------------------------------------------------
+  ! Purpose:
+  ! FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+  ! &
+  ! COMPUTE THE PRECIPITATION EFFICIENCIES AND THE
+  ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
+  ! &
+  ! FIND THE LEVEL OF NEUTRAL BUOYANCY
+
+  ! Main differences convect3/convect4:
+  ! - icbs (input) is the first level above LCL (may differ from icb)
+  ! - many minor differences in the iterations
+  ! - condensed water not removed from tvp in convect3
+  ! - vertical profile of buoyancy computed here (use of buoybase)
+  ! - the determination of inb is different
+  ! - no inb1, only inb in output
+  ! ---------------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cv30param.h"
+  include "conema3.h"
+
+  ! inputs:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), icbs(nloc), nk(nloc)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd), gz(nloc, nd)
+  REAL p(nloc, nd)
+  REAL tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL lv(nloc, nd), tv(nloc, nd), h(nloc, nd)
+  REAL pbase(nloc), buoybase(nloc), plcl(nloc)
+
+  ! outputs:
+  INTEGER inb(nloc)
+  REAL tp(nloc, nd), tvp(nloc, nd), clw(nloc, nd)
+  REAL ep(nloc, nd), sigp(nloc, nd), hp(nloc, nd)
+  REAL buoy(nloc, nd)
+
+  ! local variables:
+  INTEGER i, k
+  REAL tg, qg, ahg, alv, s, tc, es, denom, rg, tca, elacrit
+  REAL by, defrac, pden
+  REAL ah0(nloc), cape(nloc), capem(nloc), byp(nloc)
+  LOGICAL lcape(nloc)
+
+  ! =====================================================================
+  ! --- SOME INITIALIZATIONS
+  ! =====================================================================
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      ep(i, k) = 0.0
+      sigp(i, k) = spfac
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+  ! =====================================================================
+
+  ! ---       The procedure is to solve the equation.
+  ! cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+
+  ! ***  Calculate certain parcel quantities, including static energy   ***
+
+
+  DO i = 1, ncum
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) & ! debug     &
+                                                  ! +qnk(i)*(lv0-clmcpv*(tnk(i)-t0))+gznk(i)
+      +qnk(i)*(lv0-clmcpv*(tnk(i)-273.15)) + gznk(i)
+  END DO
+
+
+  ! ***  Find lifted parcel quantities above cloud base    ***
+
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      ! ori	    if(k.ge.(icb(i)+1))then
+      IF (k>=(icbs(i)+1)) THEN ! convect3
+        tg = t(i, k)
+        qg = qs(i, k)
+        ! debug	      alv=lv0-clmcpv*(t(i,k)-t0)
+        alv = lv0 - clmcpv*(t(i,k)-273.15)
+
+        ! First iteration.
+
+        ! ori	       s=cpd+alv*alv*qg/(rrv*t(i,k)*t(i,k))
+        s = cpd*(1.-qnk(i)) + cl*qnk(i) & ! convect3
+          +alv*alv*qg/(rrv*t(i,k)*t(i,k)) ! convect3
+        s = 1./s
+        ! ori	       ahg=cpd*tg+(cl-cpd)*qnk(i)*t(i,k)+alv*qg+gz(i,k)
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gz(i, k) ! convect3
+        tg = tg + s*(ah0(i)-ahg)
+        ! ori	       tg=max(tg,35.0)
+        ! debug	       tc=tg-t0
+        tc = tg - 273.15
+        denom = 243.5 + tc
+        denom = max(denom, 1.0) ! convect3
+        ! ori	       if(tc.ge.0.0)then
+        es = 6.112*exp(17.67*tc/denom)
+        ! ori	       else
+        ! ori			es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+        ! ori	       endif
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+        ! Second iteration.
+
+        ! ori	       s=cpd+alv*alv*qg/(rrv*t(i,k)*t(i,k))
+        ! ori	       s=1./s
+        ! ori	       ahg=cpd*tg+(cl-cpd)*qnk(i)*t(i,k)+alv*qg+gz(i,k)
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gz(i, k) ! convect3
+        tg = tg + s*(ah0(i)-ahg)
+        ! ori	       tg=max(tg,35.0)
+        ! debug	       tc=tg-t0
+        tc = tg - 273.15
+        denom = 243.5 + tc
+        denom = max(denom, 1.0) ! convect3
+        ! ori	       if(tc.ge.0.0)then
+        es = 6.112*exp(17.67*tc/denom)
+        ! ori	       else
+        ! ori			es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+        ! ori	       endif
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+        ! debug	       alv=lv0-clmcpv*(t(i,k)-t0)
+        alv = lv0 - clmcpv*(t(i,k)-273.15)
+        ! print*,'cpd dans convect2 ',cpd
+        ! print*,'tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd'
+        ! print*,tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd
+
+        ! ori c approximation here:
+        ! ori
+        ! tp(i,k)=(ah0(i)-(cl-cpd)*qnk(i)*t(i,k)-gz(i,k)-alv*qg)/cpd
+
+        ! convect3: no approximation:
+        tp(i, k) = (ah0(i)-gz(i,k)-alv*qg)/(cpd+(cl-cpd)*qnk(i))
+
+        clw(i, k) = qnk(i) - qg
+        clw(i, k) = max(0.0, clw(i,k))
+        rg = qg/(1.-qnk(i))
+        ! ori               tvp(i,k)=tp(i,k)*(1.+rg*epsi)
+        ! convect3: (qg utilise au lieu du vrai mixing ratio rg):
+        tvp(i, k) = tp(i, k)*(1.+qg/eps-qnk(i)) ! whole thing
+      END IF
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- SET THE PRECIPITATION EFFICIENCIES AND THE FRACTION OF
+  ! --- PRECIPITATION FALLING OUTSIDE OF CLOUD
+  ! --- THESE MAY BE FUNCTIONS OF TP(I), P(I) AND CLW(I)
+  ! =====================================================================
+
+  ! ori      do 320 k=minorig+1,nl
+  DO k = 1, nl ! convect3
+    DO i = 1, ncum
+      pden = ptcrit - pbcrit
+      ep(i, k) = (plcl(i)-p(i,k)-pbcrit)/pden*epmax
+      ep(i, k) = amax1(ep(i,k), 0.0)
+      ep(i, k) = amin1(ep(i,k), epmax)
+      sigp(i, k) = spfac
+      ! ori          if(k.ge.(nk(i)+1))then
+      ! ori            tca=tp(i,k)-t0
+      ! ori            if(tca.ge.0.0)then
+      ! ori              elacrit=elcrit
+      ! ori            else
+      ! ori              elacrit=elcrit*(1.0-tca/tlcrit)
+      ! ori            endif
+      ! ori            elacrit=max(elacrit,0.0)
+      ! ori            ep(i,k)=1.0-elacrit/max(clw(i,k),1.0e-8)
+      ! ori            ep(i,k)=max(ep(i,k),0.0 )
+      ! ori            ep(i,k)=min(ep(i,k),1.0 )
+      ! ori            sigp(i,k)=sigs
+      ! ori          endif
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- CALCULATE VIRTUAL TEMPERATURE AND LIFTED PARCEL
+  ! --- VIRTUAL TEMPERATURE
+  ! =====================================================================
+
+  ! dans convect3, tvp est calcule en une seule fois, et sans retirer
+  ! l'eau condensee (~> reversible CAPE)
+
+  ! ori      do 340 k=minorig+1,nl
+  ! ori        do 330 i=1,ncum
+  ! ori        if(k.ge.(icb(i)+1))then
+  ! ori          tvp(i,k)=tvp(i,k)*(1.0-qnk(i)+ep(i,k)*clw(i,k))
+  ! oric         print*,'i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)'
+  ! oric         print*, i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)
+  ! ori        endif
+  ! ori 330    continue
+  ! ori 340  continue
+
+  ! ori      do 350 i=1,ncum
+  ! ori       tvp(i,nlp)=tvp(i,nl)-(gz(i,nlp)-gz(i,nl))/cpd
+  ! ori 350  continue
+
+  DO i = 1, ncum ! convect3
+    tp(i, nlp) = tp(i, nl) ! convect3
+  END DO ! convect3
+
+  ! =====================================================================
+  ! --- EFFECTIVE VERTICAL PROFILE OF BUOYANCY (convect3 only):
+  ! =====================================================================
+
+  ! -- this is for convect3 only:
+
+  ! first estimate of buoyancy:
+
+  DO i = 1, ncum
+    DO k = 1, nl
+      buoy(i, k) = tvp(i, k) - tv(i, k)
+    END DO
+  END DO
+
+  ! set buoyancy=buoybase for all levels below base
+  ! for safety, set buoy(icb)=buoybase
+
+  DO i = 1, ncum
+    DO k = 1, nl
+      IF ((k>=icb(i)) .AND. (k<=nl) .AND. (p(i,k)>=pbase(i))) THEN
+        buoy(i, k) = buoybase(i)
+      END IF
+    END DO
+    ! IM cf. CRio/JYG 270807   buoy(icb(i),k)=buoybase(i)
+    buoy(i, icb(i)) = buoybase(i)
+  END DO
+
+  ! -- end convect3
+
+  ! =====================================================================
+  ! --- FIND THE FIRST MODEL LEVEL (INB) ABOVE THE PARCEL'S
+  ! --- LEVEL OF NEUTRAL BUOYANCY
+  ! =====================================================================
+
+  ! -- this is for convect3 only:
+
+  DO i = 1, ncum
+    inb(i) = nl - 1
+  END DO
+
+  DO i = 1, ncum
+    DO k = 1, nl - 1
+      IF ((k>=icb(i)) .AND. (buoy(i,k)<dtovsh)) THEN
+        inb(i) = min(inb(i), k)
+      END IF
+    END DO
+  END DO
+
+  ! -- end convect3
+
+  ! ori      do 510 i=1,ncum
+  ! ori        cape(i)=0.0
+  ! ori        capem(i)=0.0
+  ! ori        inb(i)=icb(i)+1
+  ! ori        inb1(i)=inb(i)
+  ! ori 510  continue
+
+  ! Originial Code
+
+  ! do 530 k=minorig+1,nl-1
+  ! do 520 i=1,ncum
+  ! if(k.ge.(icb(i)+1))then
+  ! by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! byp=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! cape(i)=cape(i)+by
+  ! if(by.ge.0.0)inb1(i)=k+1
+  ! if(cape(i).gt.0.0)then
+  ! inb(i)=k+1
+  ! capem(i)=cape(i)
+  ! endif
+  ! endif
+  ! 520    continue
+  ! 530  continue
+  ! do 540 i=1,ncum
+  ! byp=(tvp(i,nl)-tv(i,nl))*dph(i,nl)/p(i,nl)
+  ! cape(i)=capem(i)+byp
+  ! defrac=capem(i)-cape(i)
+  ! defrac=max(defrac,0.001)
+  ! frac(i)=-cape(i)/defrac
+  ! frac(i)=min(frac(i),1.0)
+  ! frac(i)=max(frac(i),0.0)
+  ! 540   continue
+
+  ! K Emanuel fix
+
+  ! call zilch(byp,ncum)
+  ! do 530 k=minorig+1,nl-1
+  ! do 520 i=1,ncum
+  ! if(k.ge.(icb(i)+1))then
+  ! by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! cape(i)=cape(i)+by
+  ! if(by.ge.0.0)inb1(i)=k+1
+  ! if(cape(i).gt.0.0)then
+  ! inb(i)=k+1
+  ! capem(i)=cape(i)
+  ! byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! endif
+  ! endif
+  ! 520    continue
+  ! 530  continue
+  ! do 540 i=1,ncum
+  ! inb(i)=max(inb(i),inb1(i))
+  ! cape(i)=capem(i)+byp(i)
+  ! defrac=capem(i)-cape(i)
+  ! defrac=max(defrac,0.001)
+  ! frac(i)=-cape(i)/defrac
+  ! frac(i)=min(frac(i),1.0)
+  ! frac(i)=max(frac(i),0.0)
+  ! 540   continue
+
+  ! J Teixeira fix
+
+  ! ori      call zilch(byp,ncum)
+  ! ori      do 515 i=1,ncum
+  ! ori        lcape(i)=.true.
+  ! ori 515  continue
+  ! ori      do 530 k=minorig+1,nl-1
+  ! ori        do 520 i=1,ncum
+  ! ori          if(cape(i).lt.0.0)lcape(i)=.false.
+  ! ori          if((k.ge.(icb(i)+1)).and.lcape(i))then
+  ! ori            by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! ori            byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! ori            cape(i)=cape(i)+by
+  ! ori            if(by.ge.0.0)inb1(i)=k+1
+  ! ori            if(cape(i).gt.0.0)then
+  ! ori              inb(i)=k+1
+  ! ori              capem(i)=cape(i)
+  ! ori            endif
+  ! ori          endif
+  ! ori 520    continue
+  ! ori 530  continue
+  ! ori      do 540 i=1,ncum
+  ! ori          cape(i)=capem(i)+byp(i)
+  ! ori          defrac=capem(i)-cape(i)
+  ! ori          defrac=max(defrac,0.001)
+  ! ori          frac(i)=-cape(i)/defrac
+  ! ori          frac(i)=min(frac(i),1.0)
+  ! ori          frac(i)=max(frac(i),0.0)
+  ! ori 540  continue
+
+  ! =====================================================================
+  ! ---   CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL
+  ! =====================================================================
+
+  ! ym      do i=1,ncum*nlp
+  ! ym       hp(i,1)=h(i,1)
+  ! ym      enddo
+
+  DO k = 1, nlp
+    DO i = 1, ncum
+      hp(i, k) = h(i, k)
+    END DO
+  END DO
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((k>=icb(i)) .AND. (k<=inb(i))) THEN
+        hp(i, k) = h(i, nk(i)) + (lv(i,k)+(cpd-cpv)*t(i,k))*ep(i, k)*clw(i, k &
+          )
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_undilute2
+
+SUBROUTINE cv30_closure(nloc, ncum, nd, icb, inb, pbase, p, ph, tv, buoy, &
+    sig, w0, cape, m)
+  IMPLICIT NONE
+
+  ! ===================================================================
+  ! ---  CLOSURE OF CONVECT3
+
+  ! vectorization: S. Bony
+  ! ===================================================================
+
+  include "cvthermo.h"
+  include "cv30param.h"
+
+  ! input:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL pbase(nloc)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL tv(nloc, nd), buoy(nloc, nd)
+
+  ! input/output:
+  REAL sig(nloc, nd), w0(nloc, nd)
+
+  ! output:
+  REAL cape(nloc)
+  REAL m(nloc, nd)
+
+  ! local variables:
+  INTEGER i, j, k, icbmax
+  REAL deltap, fac, w, amu
+  REAL dtmin(nloc, nd), sigold(nloc, nd)
+
+  ! -------------------------------------------------------
+  ! -- Initialization
+  ! -------------------------------------------------------
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      m(i, k) = 0.0
+    END DO
+  END DO
+
+  ! -------------------------------------------------------
+  ! -- Reset sig(i) and w0(i) for i>inb and i<icb
+  ! -------------------------------------------------------
+
+  ! update sig and w0 above LNB:
+
+  DO k = 1, nl - 1
+    DO i = 1, ncum
+      IF ((inb(i)<(nl-1)) .AND. (k>=(inb(i)+1))) THEN
+        sig(i, k) = beta*sig(i, k) + 2.*alpha*buoy(i, inb(i))*abs(buoy(i,inb( &
+          i)))
+        sig(i, k) = amax1(sig(i,k), 0.0)
+        w0(i, k) = beta*w0(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! compute icbmax:
+
+  icbmax = 2
+  DO i = 1, ncum
+    icbmax = max(icbmax, icb(i))
+  END DO
+
+  ! update sig and w0 below cloud base:
+
+  DO k = 1, icbmax
+    DO i = 1, ncum
+      IF (k<=icb(i)) THEN
+        sig(i, k) = beta*sig(i, k) - 2.*alpha*buoy(i, icb(i))*buoy(i, icb(i))
+        sig(i, k) = amax1(sig(i,k), 0.0)
+        w0(i, k) = beta*w0(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! !      if(inb.lt.(nl-1))then
+  ! !         do 85 i=inb+1,nl-1
+  ! !            sig(i)=beta*sig(i)+2.*alpha*buoy(inb)*
+  ! !     1              abs(buoy(inb))
+  ! !            sig(i)=amax1(sig(i),0.0)
+  ! !            w0(i)=beta*w0(i)
+  ! !   85    continue
+  ! !      end if
+
+  ! !      do 87 i=1,icb
+  ! !         sig(i)=beta*sig(i)-2.*alpha*buoy(icb)*buoy(icb)
+  ! !         sig(i)=amax1(sig(i),0.0)
+  ! !         w0(i)=beta*w0(i)
+  ! !   87 continue
+
+  ! -------------------------------------------------------------
+  ! -- Reset fractional areas of updrafts and w0 at initial time
+  ! -- and after 10 time steps of no convection
+  ! -------------------------------------------------------------
+
+  DO k = 1, nl - 1
+    DO i = 1, ncum
+      IF (sig(i,nd)<1.5 .OR. sig(i,nd)>12.0) THEN
+        sig(i, k) = 0.0
+        w0(i, k) = 0.0
+      END IF
+    END DO
+  END DO
+
+  ! -------------------------------------------------------------
+  ! -- Calculate convective available potential energy (cape),
+  ! -- vertical velocity (w), fractional area covered by
+  ! -- undilute updraft (sig), and updraft mass flux (m)
+  ! -------------------------------------------------------------
+
+  DO i = 1, ncum
+    cape(i) = 0.0
+  END DO
+
+  ! compute dtmin (minimum buoyancy between ICB and given level k):
+
+  DO i = 1, ncum
+    DO k = 1, nl
+      dtmin(i, k) = 100.0
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    DO k = 1, nl
+      DO j = minorig, nl
+        IF ((k>=(icb(i)+1)) .AND. (k<=inb(i)) .AND. (j>=icb(i)) .AND. (j<=(k- &
+            1))) THEN
+          dtmin(i, k) = amin1(dtmin(i,k), buoy(i,j))
+        END IF
+      END DO
+    END DO
+  END DO
+
+  ! the interval on which cape is computed starts at pbase :
+  DO k = 1, nl
+    DO i = 1, ncum
+
+      IF ((k>=(icb(i)+1)) .AND. (k<=inb(i))) THEN
+
+        deltap = min(pbase(i), ph(i,k-1)) - min(pbase(i), ph(i,k))
+        cape(i) = cape(i) + rrd*buoy(i, k-1)*deltap/p(i, k-1)
+        cape(i) = amax1(0.0, cape(i))
+        sigold(i, k) = sig(i, k)
+
+        ! dtmin(i,k)=100.0
+        ! do 97 j=icb(i),k-1 ! mauvaise vectorisation
+        ! dtmin(i,k)=AMIN1(dtmin(i,k),buoy(i,j))
+        ! 97     continue
+
+        sig(i, k) = beta*sig(i, k) + alpha*dtmin(i, k)*abs(dtmin(i,k))
+        sig(i, k) = amax1(sig(i,k), 0.0)
+        sig(i, k) = amin1(sig(i,k), 0.01)
+        fac = amin1(((dtcrit-dtmin(i,k))/dtcrit), 1.0)
+        w = (1.-beta)*fac*sqrt(cape(i)) + beta*w0(i, k)
+        amu = 0.5*(sig(i,k)+sigold(i,k))*w
+        m(i, k) = amu*0.007*p(i, k)*(ph(i,k)-ph(i,k+1))/tv(i, k)
+        w0(i, k) = w
+      END IF
+
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    w0(i, icb(i)) = 0.5*w0(i, icb(i)+1)
+    m(i, icb(i)) = 0.5*m(i, icb(i)+1)*(ph(i,icb(i))-ph(i,icb(i)+1))/ &
+      (ph(i,icb(i)+1)-ph(i,icb(i)+2))
+    sig(i, icb(i)) = sig(i, icb(i)+1)
+    sig(i, icb(i)-1) = sig(i, icb(i))
+  END DO
+
+
+  ! !      cape=0.0
+  ! !      do 98 i=icb+1,inb
+  ! !         deltap = min(pbase,ph(i-1))-min(pbase,ph(i))
+  ! !         cape=cape+rrd*buoy(i-1)*deltap/p(i-1)
+  ! !         dcape=rrd*buoy(i-1)*deltap/p(i-1)
+  ! !         dlnp=deltap/p(i-1)
+  ! !         cape=amax1(0.0,cape)
+  ! !         sigold=sig(i)
+
+  ! !         dtmin=100.0
+  ! !         do 97 j=icb,i-1
+  ! !            dtmin=amin1(dtmin,buoy(j))
+  ! !   97    continue
+
+  ! !         sig(i)=beta*sig(i)+alpha*dtmin*abs(dtmin)
+  ! !         sig(i)=amax1(sig(i),0.0)
+  ! !         sig(i)=amin1(sig(i),0.01)
+  ! !         fac=amin1(((dtcrit-dtmin)/dtcrit),1.0)
+  ! !         w=(1.-beta)*fac*sqrt(cape)+beta*w0(i)
+  ! !         amu=0.5*(sig(i)+sigold)*w
+  ! !         m(i)=amu*0.007*p(i)*(ph(i)-ph(i+1))/tv(i)
+  ! !         w0(i)=w
+  ! !   98 continue
+  ! !      w0(icb)=0.5*w0(icb+1)
+  ! !      m(icb)=0.5*m(icb+1)*(ph(icb)-ph(icb+1))/(ph(icb+1)-ph(icb+2))
+  ! !      sig(icb)=sig(icb+1)
+  ! !      sig(icb-1)=sig(icb)
+
+  RETURN
+END SUBROUTINE cv30_closure
+
+SUBROUTINE cv30_mixing(nloc, ncum, nd, na, ntra, icb, nk, inb, ph, t, rr, rs, &
+    u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, qent, uent, &
+    vent, sij, elij, ments, qents, traent)
+  IMPLICIT NONE
+
+  ! ---------------------------------------------------------------------
+  ! a faire:
+  ! - changer rr(il,1) -> qnk(il)
+  ! - vectorisation de la partie normalisation des flux (do 789...)
+  ! ---------------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cv30param.h"
+
+  ! inputs:
+  INTEGER ncum, nd, na, ntra, nloc
+  INTEGER icb(nloc), inb(nloc), nk(nloc)
+  REAL sig(nloc, nd)
+  REAL qnk(nloc)
+  REAL ph(nloc, nd+1)
+  REAL t(nloc, nd), rr(nloc, nd), rs(nloc, nd)
+  REAL u(nloc, nd), v(nloc, nd)
+  REAL tra(nloc, nd, ntra) ! input of convect3
+  REAL lv(nloc, na), h(nloc, na), hp(nloc, na)
+  REAL tv(nloc, na), tvp(nloc, na), ep(nloc, na), clw(nloc, na)
+  REAL m(nloc, na) ! input of convect3
+
+  ! outputs:
+  REAL ment(nloc, na, na), qent(nloc, na, na)
+  REAL uent(nloc, na, na), vent(nloc, na, na)
+  REAL sij(nloc, na, na), elij(nloc, na, na)
+  REAL traent(nloc, nd, nd, ntra)
+  REAL ments(nloc, nd, nd), qents(nloc, nd, nd)
+  REAL sigij(nloc, nd, nd)
+
+  ! local variables:
+  INTEGER i, j, k, il, im, jm
+  INTEGER num1, num2
+  INTEGER nent(nloc, na)
+  REAL rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
+  REAL alt, smid, sjmin, sjmax, delp, delm
+  REAL asij(nloc), smax(nloc), scrit(nloc)
+  REAL asum(nloc, nd), bsum(nloc, nd), csum(nloc, nd)
+  REAL wgh
+  REAL zm(nloc, na)
+  LOGICAL lwork(nloc)
+
+  ! =====================================================================
+  ! --- INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
+  ! =====================================================================
+
+  ! ori        do 360 i=1,ncum*nlp
+  DO j = 1, nl
+    DO i = 1, ncum
+      nent(i, j) = 0
+      ! in convect3, m is computed in cv3_closure
+      ! ori          m(i,1)=0.0
+    END DO
+  END DO
+
+  ! ori      do 400 k=1,nlp
+  ! ori       do 390 j=1,nlp
+  DO j = 1, nl
+    DO k = 1, nl
+      DO i = 1, ncum
+        qent(i, k, j) = rr(i, j)
+        uent(i, k, j) = u(i, j)
+        vent(i, k, j) = v(i, j)
+        elij(i, k, j) = 0.0
+        ! ym            ment(i,k,j)=0.0
+        ! ym            sij(i,k,j)=0.0
+      END DO
+    END DO
+  END DO
+
+  ! ym
+  ment(1:ncum, 1:nd, 1:nd) = 0.0
+  sij(1:ncum, 1:nd, 1:nd) = 0.0
+
+  ! do k=1,ntra
+  ! do j=1,nd  ! instead nlp
+  ! do i=1,nd ! instead nlp
+  ! do il=1,ncum
+  ! traent(il,i,j,k)=tra(il,j,k)
+  ! enddo
+  ! enddo
+  ! enddo
+  ! enddo
+  zm(:, :) = 0.
+
+  ! =====================================================================
+  ! --- CALCULATE ENTRAINED AIR MASS FLUX (ment), TOTAL WATER MIXING
+  ! --- RATIO (QENT), TOTAL CONDENSED WATER (elij), AND MIXING
+  ! --- FRACTION (sij)
+  ! =====================================================================
+
+  DO i = minorig + 1, nl
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (j>=(icb(il)- &
+            1)) .AND. (j<=inb(il))) THEN
+
+          rti = rr(il, 1) - ep(il, i)*clw(il, i)
+          bf2 = 1. + lv(il, j)*lv(il, j)*rs(il, j)/(rrv*t(il,j)*t(il,j)*cpd)
+          anum = h(il, j) - hp(il, i) + (cpv-cpd)*t(il, j)*(rti-rr(il,j))
+          denom = h(il, i) - hp(il, i) + (cpd-cpv)*(rr(il,i)-rti)*t(il, j)
+          dei = denom
+          IF (abs(dei)<0.01) dei = 0.01
+          sij(il, i, j) = anum/dei
+          sij(il, i, i) = 1.0
+          altem = sij(il, i, j)*rr(il, i) + (1.-sij(il,i,j))*rti - rs(il, j)
+          altem = altem/bf2
+          cwat = clw(il, j)*(1.-ep(il,j))
+          stemp = sij(il, i, j)
+          IF ((stemp<0.0 .OR. stemp>1.0 .OR. altem>cwat) .AND. j>i) THEN
+            anum = anum - lv(il, j)*(rti-rs(il,j)-cwat*bf2)
+            denom = denom + lv(il, j)*(rr(il,i)-rti)
+            IF (abs(denom)<0.01) denom = 0.01
+            sij(il, i, j) = anum/denom
+            altem = sij(il, i, j)*rr(il, i) + (1.-sij(il,i,j))*rti - &
+              rs(il, j)
+            altem = altem - (bf2-1.)*cwat
+          END IF
+          IF (sij(il,i,j)>0.0 .AND. sij(il,i,j)<0.95) THEN
+            qent(il, i, j) = sij(il, i, j)*rr(il, i) + (1.-sij(il,i,j))*rti
+            uent(il, i, j) = sij(il, i, j)*u(il, i) + &
+              (1.-sij(il,i,j))*u(il, nk(il))
+            vent(il, i, j) = sij(il, i, j)*v(il, i) + &
+              (1.-sij(il,i,j))*v(il, nk(il))
+            ! !!!      do k=1,ntra
+            ! !!!      traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
+            ! !!!     :      +(1.-sij(il,i,j))*tra(il,nk(il),k)
+            ! !!!      end do
+            elij(il, i, j) = altem
+            elij(il, i, j) = amax1(0.0, elij(il,i,j))
+            ment(il, i, j) = m(il, i)/(1.-sij(il,i,j))
+            nent(il, i) = nent(il, i) + 1
+          END IF
+          sij(il, i, j) = amax1(0.0, sij(il,i,j))
+          sij(il, i, j) = amin1(1.0, sij(il,i,j))
+        END IF ! new
+      END DO
+    END DO
+
+    ! do k=1,ntra
+    ! do j=minorig,nl
+    ! do il=1,ncum
+    ! if( (i.ge.icb(il)).and.(i.le.inb(il)).and.
+    ! :       (j.ge.(icb(il)-1)).and.(j.le.inb(il)))then
+    ! traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
+    ! :            +(1.-sij(il,i,j))*tra(il,nk(il),k)
+    ! endif
+    ! enddo
+    ! enddo
+    ! enddo
+
+
+    ! ***   if no air can entrain at level i assume that updraft detrains
+    ! ***
+    ! ***   at that level and calculate detrained air flux and properties
+    ! ***
+
+
+    ! @      do 170 i=icb(il),inb(il)
+
+    DO il = 1, ncum
+      IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (nent(il,i)==0)) THEN
+        ! @      if(nent(il,i).eq.0)then
+        ment(il, i, i) = m(il, i)
+        qent(il, i, i) = rr(il, nk(il)) - ep(il, i)*clw(il, i)
+        uent(il, i, i) = u(il, nk(il))
+        vent(il, i, i) = v(il, nk(il))
+        elij(il, i, i) = clw(il, i)
+        ! MAF      sij(il,i,i)=1.0
+        sij(il, i, i) = 0.0
+      END IF
+    END DO
+  END DO
+
+  ! do j=1,ntra
+  ! do i=minorig+1,nl
+  ! do il=1,ncum
+  ! if (i.ge.icb(il) .and. i.le.inb(il) .and. nent(il,i).eq.0) then
+  ! traent(il,i,i,j)=tra(il,nk(il),j)
+  ! endif
+  ! enddo
+  ! enddo
+  ! enddo
+
+  DO j = minorig, nl
+    DO i = minorig, nl
+      DO il = 1, ncum
+        IF ((j>=(icb(il)-1)) .AND. (j<=inb(il)) .AND. (i>=icb(il)) .AND. (i<= &
+            inb(il))) THEN
+          sigij(il, i, j) = sij(il, i, j)
+        END IF
+      END DO
+    END DO
+  END DO
+  ! @      enddo
+
+  ! @170   continue
+
+  ! =====================================================================
+  ! ---  NORMALIZE ENTRAINED AIR MASS FLUXES
+  ! ---  TO REPRESENT EQUAL PROBABILITIES OF MIXING
+  ! =====================================================================
+
+  ! ym      call zilch(asum,ncum*nd)
+  ! ym      call zilch(bsum,ncum*nd)
+  ! ym      call zilch(csum,ncum*nd)
+  CALL zilch(asum, nloc*nd)
+  CALL zilch(csum, nloc*nd)
+  CALL zilch(csum, nloc*nd)
+
+  DO il = 1, ncum
+    lwork(il) = .FALSE.
+  END DO
+
+  DO i = minorig + 1, nl
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 789
+
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) THEN
+        lwork(il) = (nent(il,i)/=0)
+        qp = rr(il, 1) - ep(il, i)*clw(il, i)
+        anum = h(il, i) - hp(il, i) - lv(il, i)*(qp-rs(il,i)) + &
+          (cpv-cpd)*t(il, i)*(qp-rr(il,i))
+        denom = h(il, i) - hp(il, i) + lv(il, i)*(rr(il,i)-qp) + &
+          (cpd-cpv)*t(il, i)*(rr(il,i)-qp)
+        IF (abs(denom)<0.01) denom = 0.01
+        scrit(il) = anum/denom
+        alt = qp - rs(il, i) + scrit(il)*(rr(il,i)-qp)
+        IF (scrit(il)<=0.0 .OR. alt<=0.0) scrit(il) = 1.0
+        smax(il) = 0.0
+        asij(il) = 0.0
+      END IF
+    END DO
+
+    DO j = nl, minorig, -1
+
+      num2 = 0
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. j>=(icb( &
+          il)-1) .AND. j<=inb(il) .AND. lwork(il)) num2 = num2 + 1
+      END DO
+      IF (num2<=0) GO TO 175
+
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. j>=(icb( &
+            il)-1) .AND. j<=inb(il) .AND. lwork(il)) THEN
+
+          IF (sij(il,i,j)>1.0E-16 .AND. sij(il,i,j)<0.95) THEN
+            wgh = 1.0
+            IF (j>i) THEN
+              sjmax = amax1(sij(il,i,j+1), smax(il))
+              sjmax = amin1(sjmax, scrit(il))
+              smax(il) = amax1(sij(il,i,j), smax(il))
+              sjmin = amax1(sij(il,i,j-1), smax(il))
+              sjmin = amin1(sjmin, scrit(il))
+              IF (sij(il,i,j)<(smax(il)-1.0E-16)) wgh = 0.0
+              smid = amin1(sij(il,i,j), scrit(il))
+            ELSE
+              sjmax = amax1(sij(il,i,j+1), scrit(il))
+              smid = amax1(sij(il,i,j), scrit(il))
+              sjmin = 0.0
+              IF (j>1) sjmin = sij(il, i, j-1)
+              sjmin = amax1(sjmin, scrit(il))
+            END IF
+            delp = abs(sjmax-smid)
+            delm = abs(sjmin-smid)
+            asij(il) = asij(il) + wgh*(delp+delm)
+            ment(il, i, j) = ment(il, i, j)*(delp+delm)*wgh
+          END IF
+        END IF
+      END DO
+
+175 END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il)) THEN
+        asij(il) = amax1(1.0E-16, asij(il))
+        asij(il) = 1.0/asij(il)
+        asum(il, i) = 0.0
+        bsum(il, i) = 0.0
+        csum(il, i) = 0.0
+      END IF
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. j>=(icb( &
+            il)-1) .AND. j<=inb(il)) THEN
+          ment(il, i, j) = ment(il, i, j)*asij(il)
+        END IF
+      END DO
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. j>=(icb( &
+            il)-1) .AND. j<=inb(il)) THEN
+          asum(il, i) = asum(il, i) + ment(il, i, j)
+          ment(il, i, j) = ment(il, i, j)*sig(il, j)
+          bsum(il, i) = bsum(il, i) + ment(il, i, j)
+        END IF
+      END DO
+    END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il)) THEN
+        bsum(il, i) = amax1(bsum(il,i), 1.0E-16)
+        bsum(il, i) = 1.0/bsum(il, i)
+      END IF
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. j>=(icb( &
+            il)-1) .AND. j<=inb(il)) THEN
+          ment(il, i, j) = ment(il, i, j)*asum(il, i)*bsum(il, i)
+        END IF
+      END DO
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. j>=(icb( &
+            il)-1) .AND. j<=inb(il)) THEN
+          csum(il, i) = csum(il, i) + ment(il, i, j)
+        END IF
+      END DO
+    END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+          csum(il,i)<m(il,i)) THEN
+        nent(il, i) = 0
+        ment(il, i, i) = m(il, i)
+        qent(il, i, i) = rr(il, 1) - ep(il, i)*clw(il, i)
+        uent(il, i, i) = u(il, nk(il))
+        vent(il, i, i) = v(il, nk(il))
+        elij(il, i, i) = clw(il, i)
+        ! MAF        sij(il,i,i)=1.0
+        sij(il, i, i) = 0.0
+      END IF
+    END DO ! il
+
+    ! do j=1,ntra
+    ! do il=1,ncum
+    ! if ( i.ge.icb(il) .and. i.le.inb(il) .and. lwork(il)
+    ! :     .and. csum(il,i).lt.m(il,i) ) then
+    ! traent(il,i,i,j)=tra(il,nk(il),j)
+    ! endif
+    ! enddo
+    ! enddo
+789 END DO
+
+  ! MAF: renormalisation de MENT
+  DO jm = 1, nd
+    DO im = 1, nd
+      DO il = 1, ncum
+        zm(il, im) = zm(il, im) + (1.-sij(il,im,jm))*ment(il, im, jm)
+      END DO
+    END DO
+  END DO
+
+  DO jm = 1, nd
+    DO im = 1, nd
+      DO il = 1, ncum
+        IF (zm(il,im)/=0.) THEN
+          ment(il, im, jm) = ment(il, im, jm)*m(il, im)/zm(il, im)
+        END IF
+      END DO
+    END DO
+  END DO
+
+  DO jm = 1, nd
+    DO im = 1, nd
+      DO il = 1, ncum
+        qents(il, im, jm) = qent(il, im, jm)
+        ments(il, im, jm) = ment(il, im, jm)
+      END DO
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_mixing
+
+
+SUBROUTINE cv30_unsat(nloc, ncum, nd, na, ntra, icb, inb, t, rr, rs, gz, u, &
+    v, tra, p, ph, th, tv, lv, cpn, ep, sigp, clw, m, ment, elij, delt, plcl, &
+    mp, rp, up, vp, trap, wt, water, evap, b & ! RomP-jyg
+    , wdtraina, wdtrainm) ! 26/08/10  RomP-jyg
+  IMPLICIT NONE
+
+
+  include "cvthermo.h"
+  include "cv30param.h"
+  include "cvflag.h"
+
+  ! inputs:
+  INTEGER ncum, nd, na, ntra, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL delt, plcl(nloc)
+  REAL t(nloc, nd), rr(nloc, nd), rs(nloc, nd)
+  REAL u(nloc, nd), v(nloc, nd)
+  REAL tra(nloc, nd, ntra)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL th(nloc, na), gz(nloc, na)
+  REAL lv(nloc, na), ep(nloc, na), sigp(nloc, na), clw(nloc, na)
+  REAL cpn(nloc, na), tv(nloc, na)
+  REAL m(nloc, na), ment(nloc, na, na), elij(nloc, na, na)
+
+  ! outputs:
+  REAL mp(nloc, na), rp(nloc, na), up(nloc, na), vp(nloc, na)
+  REAL water(nloc, na), evap(nloc, na), wt(nloc, na)
+  REAL trap(nloc, na, ntra)
+  REAL b(nloc, na)
+  ! 25/08/10 - RomP---- ajout des masses precipitantes ejectees
+  ! lascendance adiabatique et des flux melanges Pa et Pm.
+  ! Distinction des wdtrain
+  ! Pa = wdtrainA     Pm = wdtrainM
+  REAL wdtraina(nloc, na), wdtrainm(nloc, na)
+
+  ! local variables
+  INTEGER i, j, k, il, num1
+  REAL tinv, delti
+  REAL awat, afac, afac1, afac2, bfac
+  REAL pr1, pr2, sigt, b6, c6, revap, tevap, delth
+  REAL amfac, amp2, xf, tf, fac2, ur, sru, fac, d, af, bf
+  REAL ampmax
+  REAL lvcp(nloc, na)
+  REAL wdtrain(nloc)
+  LOGICAL lwork(nloc)
+
+
+  ! ------------------------------------------------------
+
+  delti = 1./delt
+  tinv = 1./3.
+
+  mp(:, :) = 0.
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      mp(il, i) = 0.0
+      rp(il, i) = rr(il, i)
+      up(il, i) = u(il, i)
+      vp(il, i) = v(il, i)
+      wt(il, i) = 0.001
+      water(il, i) = 0.0
+      evap(il, i) = 0.0
+      b(il, i) = 0.0
+      lvcp(il, i) = lv(il, i)/cpn(il, i)
+    END DO
+  END DO
+
+  ! do k=1,ntra
+  ! do i=1,nd
+  ! do il=1,ncum
+  ! trap(il,i,k)=tra(il,i,k)
+  ! enddo
+  ! enddo
+  ! enddo
+  ! ! RomP >>>
+  DO i = 1, nd
+    DO il = 1, ncum
+      wdtraina(il, i) = 0.0
+      wdtrainm(il, i) = 0.0
+    END DO
+  END DO
+  ! ! RomP <<<
+
+  ! ***  check whether ep(inb)=0, if so, skip precipitating    ***
+  ! ***             downdraft calculation                      ***
+
+
+  DO il = 1, ncum
+    lwork(il) = .TRUE.
+    IF (ep(il,inb(il))<0.0001) lwork(il) = .FALSE.
+  END DO
+
+  CALL zilch(wdtrain, ncum)
+
+  DO i = nl + 1, 1, -1
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 400
+
+
+    ! ***  integrate liquid water equation to find condensed water   ***
+    ! ***                and condensed water flux                    ***
+
+
+
+    ! ***                    begin downdraft loop                    ***
+
+
+
+    ! ***              calculate detrained precipitation             ***
+
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il)) THEN
+        IF (cvflag_grav) THEN
+          wdtrain(il) = grav*ep(il, i)*m(il, i)*clw(il, i)
+          wdtraina(il, i) = wdtrain(il)/grav !   Pa  26/08/10   RomP
+        ELSE
+          wdtrain(il) = 10.0*ep(il, i)*m(il, i)*clw(il, i)
+          wdtraina(il, i) = wdtrain(il)/10. !   Pa  26/08/10   RomP
+        END IF
+      END IF
+    END DO
+
+    IF (i>1) THEN
+
+      DO j = 1, i - 1
+        DO il = 1, ncum
+          IF (i<=inb(il) .AND. lwork(il)) THEN
+            awat = elij(il, j, i) - (1.-ep(il,i))*clw(il, i)
+            awat = amax1(awat, 0.0)
+            IF (cvflag_grav) THEN
+              wdtrain(il) = wdtrain(il) + grav*awat*ment(il, j, i)
+            ELSE
+              wdtrain(il) = wdtrain(il) + 10.0*awat*ment(il, j, i)
+            END IF
+          END IF
+        END DO
+      END DO
+      DO il = 1, ncum
+        IF (cvflag_grav) THEN
+          wdtrainm(il, i) = wdtrain(il)/grav - wdtraina(il, i) !   Pm  26/08/10   RomP
+        ELSE
+          wdtrainm(il, i) = wdtrain(il)/10. - wdtraina(il, i) !   Pm  26/08/10   RomP
+        END IF
+      END DO
+
+    END IF
+
+
+    ! ***    find rain water and evaporation using provisional   ***
+    ! ***              estimates of rp(i)and rp(i-1)             ***
+
+
+    DO il = 1, ncum
+
+      IF (i<=inb(il) .AND. lwork(il)) THEN
+
+        wt(il, i) = 45.0
+
+        IF (i<inb(il)) THEN
+          rp(il, i) = rp(il, i+1) + (cpd*(t(il,i+1)-t(il, &
+            i))+gz(il,i+1)-gz(il,i))/lv(il, i)
+          rp(il, i) = 0.5*(rp(il,i)+rr(il,i))
+        END IF
+        rp(il, i) = amax1(rp(il,i), 0.0)
+        rp(il, i) = amin1(rp(il,i), rs(il,i))
+        rp(il, inb(il)) = rr(il, inb(il))
+
+        IF (i==1) THEN
+          afac = p(il, 1)*(rs(il,1)-rp(il,1))/(1.0E4+2000.0*p(il,1)*rs(il,1))
+        ELSE
+          rp(il, i-1) = rp(il, i) + (cpd*(t(il,i)-t(il, &
+            i-1))+gz(il,i)-gz(il,i-1))/lv(il, i)
+          rp(il, i-1) = 0.5*(rp(il,i-1)+rr(il,i-1))
+          rp(il, i-1) = amin1(rp(il,i-1), rs(il,i-1))
+          rp(il, i-1) = amax1(rp(il,i-1), 0.0)
+          afac1 = p(il, i)*(rs(il,i)-rp(il,i))/(1.0E4+2000.0*p(il,i)*rs(il,i) &
+            )
+          afac2 = p(il, i-1)*(rs(il,i-1)-rp(il,i-1))/ &
+            (1.0E4+2000.0*p(il,i-1)*rs(il,i-1))
+          afac = 0.5*(afac1+afac2)
+        END IF
+        IF (i==inb(il)) afac = 0.0
+        afac = amax1(afac, 0.0)
+        bfac = 1./(sigd*wt(il,i))
+
+        ! jyg1
+        ! cc        sigt=1.0
+        ! cc        if(i.ge.icb)sigt=sigp(i)
+        ! prise en compte de la variation progressive de sigt dans
+        ! les couches icb et icb-1:
+        ! pour plcl<ph(i+1), pr1=0 & pr2=1
+        ! pour plcl>ph(i),   pr1=1 & pr2=0
+        ! pour ph(i+1)<plcl<ph(i), pr1 est la proportion a cheval
+        ! sur le nuage, et pr2 est la proportion sous la base du
+        ! nuage.
+        pr1 = (plcl(il)-ph(il,i+1))/(ph(il,i)-ph(il,i+1))
+        pr1 = max(0., min(1.,pr1))
+        pr2 = (ph(il,i)-plcl(il))/(ph(il,i)-ph(il,i+1))
+        pr2 = max(0., min(1.,pr2))
+        sigt = sigp(il, i)*pr1 + pr2
+        ! jyg2
+
+        b6 = bfac*50.*sigd*(ph(il,i)-ph(il,i+1))*sigt*afac
+        c6 = water(il, i+1) + bfac*wdtrain(il) - 50.*sigd*bfac*(ph(il,i)-ph( &
+          il,i+1))*evap(il, i+1)
+        IF (c6>0.0) THEN
+          revap = 0.5*(-b6+sqrt(b6*b6+4.*c6))
+          evap(il, i) = sigt*afac*revap
+          water(il, i) = revap*revap
+        ELSE
+          evap(il, i) = -evap(il, i+1) + 0.02*(wdtrain(il)+sigd*wt(il,i)* &
+            water(il,i+1))/(sigd*(ph(il,i)-ph(il,i+1)))
+        END IF
+
+        ! ***  calculate precipitating downdraft mass flux under     ***
+        ! ***              hydrostatic approximation                 ***
+
+        IF (i/=1) THEN
+
+          tevap = amax1(0.0, evap(il,i))
+          delth = amax1(0.001, (th(il,i)-th(il,i-1)))
+          IF (cvflag_grav) THEN
+            mp(il, i) = 100.*ginv*lvcp(il, i)*sigd*tevap*(p(il,i-1)-p(il,i))/ &
+              delth
+          ELSE
+            mp(il, i) = 10.*lvcp(il, i)*sigd*tevap*(p(il,i-1)-p(il,i))/delth
+          END IF
+
+          ! ***           if hydrostatic assumption fails,             ***
+          ! ***   solve cubic difference equation for downdraft theta  ***
+          ! ***  and mass flux from two simultaneous differential eqns ***
+
+          amfac = sigd*sigd*70.0*ph(il, i)*(p(il,i-1)-p(il,i))* &
+            (th(il,i)-th(il,i-1))/(tv(il,i)*th(il,i))
+          amp2 = abs(mp(il,i+1)*mp(il,i+1)-mp(il,i)*mp(il,i))
+          IF (amp2>(0.1*amfac)) THEN
+            xf = 100.0*sigd*sigd*sigd*(ph(il,i)-ph(il,i+1))
+            tf = b(il, i) - 5.0*(th(il,i)-th(il,i-1))*t(il, i)/(lvcp(il,i)* &
+              sigd*th(il,i))
+            af = xf*tf + mp(il, i+1)*mp(il, i+1)*tinv
+            bf = 2.*(tinv*mp(il,i+1))**3 + tinv*mp(il, i+1)*xf*tf + &
+              50.*(p(il,i-1)-p(il,i))*xf*tevap
+            fac2 = 1.0
+            IF (bf<0.0) fac2 = -1.0
+            bf = abs(bf)
+            ur = 0.25*bf*bf - af*af*af*tinv*tinv*tinv
+            IF (ur>=0.0) THEN
+              sru = sqrt(ur)
+              fac = 1.0
+              IF ((0.5*bf-sru)<0.0) fac = -1.0
+              mp(il, i) = mp(il, i+1)*tinv + (0.5*bf+sru)**tinv + &
+                fac*(abs(0.5*bf-sru))**tinv
+            ELSE
+              d = atan(2.*sqrt(-ur)/(bf+1.0E-28))
+              IF (fac2<0.0) d = 3.14159 - d
+              mp(il, i) = mp(il, i+1)*tinv + 2.*sqrt(af*tinv)*cos(d*tinv)
+            END IF
+            mp(il, i) = amax1(0.0, mp(il,i))
+
+            IF (cvflag_grav) THEN
+              ! jyg : il y a vraisemblablement une erreur dans la ligne 2
+              ! suivante:
+              ! il faut diviser par (mp(il,i)*sigd*grav) et non par
+              ! (mp(il,i)+sigd*0.1).
+              ! Et il faut bien revoir les facteurs 100.
+              b(il, i-1) = b(il, i) + 100.0*(p(il,i-1)-p(il,i))*tevap/(mp(il, &
+                i)+sigd*0.1) - 10.0*(th(il,i)-th(il,i-1))*t(il, i)/(lvcp(il,i &
+                )*sigd*th(il,i))
+            ELSE
+              b(il, i-1) = b(il, i) + 100.0*(p(il,i-1)-p(il,i))*tevap/(mp(il, &
+                i)+sigd*0.1) - 10.0*(th(il,i)-th(il,i-1))*t(il, i)/(lvcp(il,i &
+                )*sigd*th(il,i))
+            END IF
+            b(il, i-1) = amax1(b(il,i-1), 0.0)
+          END IF
+
+          ! ***         limit magnitude of mp(i) to meet cfl condition
+          ! ***
+
+          ampmax = 2.0*(ph(il,i)-ph(il,i+1))*delti
+          amp2 = 2.0*(ph(il,i-1)-ph(il,i))*delti
+          ampmax = amin1(ampmax, amp2)
+          mp(il, i) = amin1(mp(il,i), ampmax)
+
+          ! ***      force mp to decrease linearly to zero
+          ! ***
+          ! ***       between cloud base and the surface
+          ! ***
+
+          IF (p(il,i)>p(il,icb(il))) THEN
+            mp(il, i) = mp(il, icb(il))*(p(il,1)-p(il,i))/ &
+              (p(il,1)-p(il,icb(il)))
+          END IF
+
+        END IF ! i.eq.1
+
+        ! ***       find mixing ratio of precipitating downdraft     ***
+
+
+        IF (i/=inb(il)) THEN
+
+          rp(il, i) = rr(il, i)
+
+          IF (mp(il,i)>mp(il,i+1)) THEN
+
+            IF (cvflag_grav) THEN
+              rp(il, i) = rp(il, i+1)*mp(il, i+1) + &
+                rr(il, i)*(mp(il,i)-mp(il,i+1)) + 100.*ginv*0.5*sigd*(ph(il,i &
+                )-ph(il,i+1))*(evap(il,i+1)+evap(il,i))
+            ELSE
+              rp(il, i) = rp(il, i+1)*mp(il, i+1) + &
+                rr(il, i)*(mp(il,i)-mp(il,i+1)) + 5.*sigd*(ph(il,i)-ph(il,i+1 &
+                ))*(evap(il,i+1)+evap(il,i))
+            END IF
+            rp(il, i) = rp(il, i)/mp(il, i)
+            up(il, i) = up(il, i+1)*mp(il, i+1) + u(il, i)*(mp(il,i)-mp(il,i+ &
+              1))
+            up(il, i) = up(il, i)/mp(il, i)
+            vp(il, i) = vp(il, i+1)*mp(il, i+1) + v(il, i)*(mp(il,i)-mp(il,i+ &
+              1))
+            vp(il, i) = vp(il, i)/mp(il, i)
+
+            ! do j=1,ntra
+            ! trap(il,i,j)=trap(il,i+1,j)*mp(il,i+1)
+            ! testmaf     :            +trap(il,i,j)*(mp(il,i)-mp(il,i+1))
+            ! :            +tra(il,i,j)*(mp(il,i)-mp(il,i+1))
+            ! trap(il,i,j)=trap(il,i,j)/mp(il,i)
+            ! end do
+
+          ELSE
+
+            IF (mp(il,i+1)>1.0E-16) THEN
+              IF (cvflag_grav) THEN
+                rp(il, i) = rp(il, i+1) + 100.*ginv*0.5*sigd*(ph(il,i)-ph(il, &
+                  i+1))*(evap(il,i+1)+evap(il,i))/mp(il, i+1)
+              ELSE
+                rp(il, i) = rp(il, i+1) + 5.*sigd*(ph(il,i)-ph(il,i+1))*(evap &
+                  (il,i+1)+evap(il,i))/mp(il, i+1)
+              END IF
+              up(il, i) = up(il, i+1)
+              vp(il, i) = vp(il, i+1)
+
+              ! do j=1,ntra
+              ! trap(il,i,j)=trap(il,i+1,j)
+              ! end do
+
+            END IF
+          END IF
+          rp(il, i) = amin1(rp(il,i), rs(il,i))
+          rp(il, i) = amax1(rp(il,i), 0.0)
+
+        END IF
+      END IF
+    END DO
+
+400 END DO
+
+  RETURN
+END SUBROUTINE cv30_unsat
+
+SUBROUTINE cv30_yield(nloc, ncum, nd, na, ntra, icb, inb, delt, t, rr, u, v, &
+    tra, gz, p, ph, h, hp, lv, cpn, th, ep, clw, m, tp, mp, rp, up, vp, trap, &
+    wt, water, evap, b, ment, qent, uent, vent, nent, elij, traent, sig, tv, &
+    tvp, iflag, precip, vprecip, ft, fr, fu, fv, ftra, upwd, dnwd, dnwd0, ma, &
+    mike, tls, tps, qcondc, wd)
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cv30param.h"
+  include "cvflag.h"
+  include "conema3.h"
+
+  ! inputs:
+  INTEGER ncum, nd, na, ntra, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL delt
+  REAL t(nloc, nd), rr(nloc, nd), u(nloc, nd), v(nloc, nd)
+  REAL tra(nloc, nd, ntra), sig(nloc, nd)
+  REAL gz(nloc, na), ph(nloc, nd+1), h(nloc, na), hp(nloc, na)
+  REAL th(nloc, na), p(nloc, nd), tp(nloc, na)
+  REAL lv(nloc, na), cpn(nloc, na), ep(nloc, na), clw(nloc, na)
+  REAL m(nloc, na), mp(nloc, na), rp(nloc, na), up(nloc, na)
+  REAL vp(nloc, na), wt(nloc, nd), trap(nloc, nd, ntra)
+  REAL water(nloc, na), evap(nloc, na), b(nloc, na)
+  REAL ment(nloc, na, na), qent(nloc, na, na), uent(nloc, na, na)
+  ! ym      real vent(nloc,na,na), nent(nloc,na), elij(nloc,na,na)
+  REAL vent(nloc, na, na), elij(nloc, na, na)
+  INTEGER nent(nloc, na)
+  REAL traent(nloc, na, na, ntra)
+  REAL tv(nloc, nd), tvp(nloc, nd)
+
+  ! input/output:
+  INTEGER iflag(nloc)
+
+  ! outputs:
+  REAL precip(nloc)
+  REAL vprecip(nloc, nd+1)
+  REAL ft(nloc, nd), fr(nloc, nd), fu(nloc, nd), fv(nloc, nd)
+  REAL ftra(nloc, nd, ntra)
+  REAL upwd(nloc, nd), dnwd(nloc, nd), ma(nloc, nd)
+  REAL dnwd0(nloc, nd), mike(nloc, nd)
+  REAL tls(nloc, nd), tps(nloc, nd)
+  REAL qcondc(nloc, nd) ! cld
+  REAL wd(nloc) ! gust
+
+  ! local variables:
+  INTEGER i, k, il, n, j, num1
+  REAL rat, awat, delti
+  REAL ax, bx, cx, dx, ex
+  REAL cpinv, rdcp, dpinv
+  REAL lvcp(nloc, na), mke(nloc, na)
+  REAL am(nloc), work(nloc), ad(nloc), amp1(nloc)
+  ! !!      real up1(nloc), dn1(nloc)
+  REAL up1(nloc, nd, nd), dn1(nloc, nd, nd)
+  REAL asum(nloc), bsum(nloc), csum(nloc), dsum(nloc)
+  REAL qcond(nloc, nd), nqcond(nloc, nd), wa(nloc, nd) ! cld
+  REAL siga(nloc, nd), sax(nloc, nd), mac(nloc, nd) ! cld
+
+
+  ! -------------------------------------------------------------
+
+  ! initialization:
+
+  delti = 1.0/delt
+
+  DO il = 1, ncum
+    precip(il) = 0.0
+    wd(il) = 0.0 ! gust
+    vprecip(il, nd+1) = 0.
+  END DO
+
+  DO i = 1, nd
+    DO il = 1, ncum
+      vprecip(il, i) = 0.0
+      ft(il, i) = 0.0
+      fr(il, i) = 0.0
+      fu(il, i) = 0.0
+      fv(il, i) = 0.0
+      qcondc(il, i) = 0.0 ! cld
+      qcond(il, i) = 0.0 ! cld
+      nqcond(il, i) = 0.0 ! cld
+    END DO
+  END DO
+
+  ! do j=1,ntra
+  ! do i=1,nd
+  ! do il=1,ncum
+  ! ftra(il,i,j)=0.0
+  ! enddo
+  ! enddo
+  ! enddo
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      lvcp(il, i) = lv(il, i)/cpn(il, i)
+    END DO
+  END DO
+
+
+
+  ! ***  calculate surface precipitation in mm/day     ***
+
+  DO il = 1, ncum
+    IF (ep(il,inb(il))>=0.0001) THEN
+      IF (cvflag_grav) THEN
+        precip(il) = wt(il, 1)*sigd*water(il, 1)*86400.*1000./(rowl*grav)
+      ELSE
+        precip(il) = wt(il, 1)*sigd*water(il, 1)*8640.
+      END IF
+    END IF
+  END DO
+
+  ! ***  CALCULATE VERTICAL PROFILE OF  PRECIPITATIONs IN kg/m2/s  ===
+
+  ! MAF rajout pour lessivage
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k<=inb(il)) THEN
+        IF (cvflag_grav) THEN
+          vprecip(il, k) = wt(il, k)*sigd*water(il, k)/grav
+        ELSE
+          vprecip(il, k) = wt(il, k)*sigd*water(il, k)/10.
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  ! ***  Calculate downdraft velocity scale    ***
+  ! ***  NE PAS UTILISER POUR L'INSTANT ***
+
+  ! !      do il=1,ncum
+  ! !        wd(il)=betad*abs(mp(il,icb(il)))*0.01*rrd*t(il,icb(il))
+  ! !     :                                  /(sigd*p(il,icb(il)))
+  ! !      enddo
+
+
+  ! ***  calculate tendencies of lowest level potential temperature  ***
+  ! ***                      and mixing ratio                        ***
+
+  DO il = 1, ncum
+    work(il) = 1.0/(ph(il,1)-ph(il,2))
+    am(il) = 0.0
+  END DO
+
+  DO k = 2, nl
+    DO il = 1, ncum
+      IF (k<=inb(il)) THEN
+        am(il) = am(il) + m(il, k)
+      END IF
+    END DO
+  END DO
+
+  DO il = 1, ncum
+
+    ! convect3      if((0.1*dpinv*am).ge.delti)iflag(il)=4
+    IF (cvflag_grav) THEN
+      IF ((0.01*grav*work(il)*am(il))>=delti) iflag(il) = 1 !consist vect
+      ft(il, 1) = 0.01*grav*work(il)*am(il)*(t(il,2)-t(il,1)+(gz(il,2)-gz(il, &
+        1))/cpn(il,1))
+    ELSE
+      IF ((0.1*work(il)*am(il))>=delti) iflag(il) = 1 !consistency vect
+      ft(il, 1) = 0.1*work(il)*am(il)*(t(il,2)-t(il,1)+(gz(il,2)-gz(il, &
+        1))/cpn(il,1))
+    END IF
+
+    ft(il, 1) = ft(il, 1) - 0.5*lvcp(il, 1)*sigd*(evap(il,1)+evap(il,2))
+
+    IF (cvflag_grav) THEN
+      ft(il, 1) = ft(il, 1) - 0.009*grav*sigd*mp(il, 2)*t(il, 1)*b(il, 1)* &
+        work(il)
+    ELSE
+      ft(il, 1) = ft(il, 1) - 0.09*sigd*mp(il, 2)*t(il, 1)*b(il, 1)*work(il)
+    END IF
+
+    ft(il, 1) = ft(il, 1) + 0.01*sigd*wt(il, 1)*(cl-cpd)*water(il, 2)*(t(il,2 &
+      )-t(il,1))*work(il)/cpn(il, 1)
+
+    IF (cvflag_grav) THEN
+      ! jyg1  Correction pour mieux conserver l'eau (conformite avec
+      ! CONVECT4.3)
+      ! (sb: pour l'instant, on ne fait que le chgt concernant grav, pas
+      ! evap)
+      fr(il, 1) = 0.01*grav*mp(il, 2)*(rp(il,2)-rr(il,1))*work(il) + &
+        sigd*0.5*(evap(il,1)+evap(il,2))
+      ! +tard     :          +sigd*evap(il,1)
+
+      fr(il, 1) = fr(il, 1) + 0.01*grav*am(il)*(rr(il,2)-rr(il,1))*work(il)
+
+      fu(il, 1) = fu(il, 1) + 0.01*grav*work(il)*(mp(il,2)*(up(il,2)-u(il, &
+        1))+am(il)*(u(il,2)-u(il,1)))
+      fv(il, 1) = fv(il, 1) + 0.01*grav*work(il)*(mp(il,2)*(vp(il,2)-v(il, &
+        1))+am(il)*(v(il,2)-v(il,1)))
+    ELSE ! cvflag_grav
+      fr(il, 1) = 0.1*mp(il, 2)*(rp(il,2)-rr(il,1))*work(il) + &
+        sigd*0.5*(evap(il,1)+evap(il,2))
+      fr(il, 1) = fr(il, 1) + 0.1*am(il)*(rr(il,2)-rr(il,1))*work(il)
+      fu(il, 1) = fu(il, 1) + 0.1*work(il)*(mp(il,2)*(up(il,2)-u(il, &
+        1))+am(il)*(u(il,2)-u(il,1)))
+      fv(il, 1) = fv(il, 1) + 0.1*work(il)*(mp(il,2)*(vp(il,2)-v(il, &
+        1))+am(il)*(v(il,2)-v(il,1)))
+    END IF ! cvflag_grav
+
+  END DO ! il
+
+  ! do j=1,ntra
+  ! do il=1,ncum
+  ! if (cvflag_grav) then
+  ! ftra(il,1,j)=ftra(il,1,j)+0.01*grav*work(il)
+  ! :                     *(mp(il,2)*(trap(il,2,j)-tra(il,1,j))
+  ! :             +am(il)*(tra(il,2,j)-tra(il,1,j)))
+  ! else
+  ! ftra(il,1,j)=ftra(il,1,j)+0.1*work(il)
+  ! :                     *(mp(il,2)*(trap(il,2,j)-tra(il,1,j))
+  ! :             +am(il)*(tra(il,2,j)-tra(il,1,j)))
+  ! endif
+  ! enddo
+  ! enddo
+
+  DO j = 2, nl
+    DO il = 1, ncum
+      IF (j<=inb(il)) THEN
+        IF (cvflag_grav) THEN
+          fr(il, 1) = fr(il, 1) + 0.01*grav*work(il)*ment(il, j, 1)*(qent(il, &
+            j,1)-rr(il,1))
+          fu(il, 1) = fu(il, 1) + 0.01*grav*work(il)*ment(il, j, 1)*(uent(il, &
+            j,1)-u(il,1))
+          fv(il, 1) = fv(il, 1) + 0.01*grav*work(il)*ment(il, j, 1)*(vent(il, &
+            j,1)-v(il,1))
+        ELSE ! cvflag_grav
+          fr(il, 1) = fr(il, 1) + 0.1*work(il)*ment(il, j, 1)*(qent(il,j,1)- &
+            rr(il,1))
+          fu(il, 1) = fu(il, 1) + 0.1*work(il)*ment(il, j, 1)*(uent(il,j,1)-u &
+            (il,1))
+          fv(il, 1) = fv(il, 1) + 0.1*work(il)*ment(il, j, 1)*(vent(il,j,1)-v &
+            (il,1))
+        END IF ! cvflag_grav
+      END IF ! j
+    END DO
+  END DO
+
+  ! do k=1,ntra
+  ! do j=2,nl
+  ! do il=1,ncum
+  ! if (j.le.inb(il)) then
+
+  ! if (cvflag_grav) then
+  ! ftra(il,1,k)=ftra(il,1,k)+0.01*grav*work(il)*ment(il,j,1)
+  ! :                *(traent(il,j,1,k)-tra(il,1,k))
+  ! else
+  ! ftra(il,1,k)=ftra(il,1,k)+0.1*work(il)*ment(il,j,1)
+  ! :                *(traent(il,j,1,k)-tra(il,1,k))
+  ! endif
+
+  ! endif
+  ! enddo
+  ! enddo
+  ! enddo
+
+
+  ! ***  calculate tendencies of potential temperature and mixing ratio  ***
+  ! ***               at levels above the lowest level                   ***
+
+  ! ***  first find the net saturated updraft and downdraft mass fluxes  ***
+  ! ***                      through each level                          ***
+
+
+  DO i = 2, nl + 1 ! newvecto: mettre nl au lieu nl+1?
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i<=inb(il)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 500
+
+    CALL zilch(amp1, ncum)
+    CALL zilch(ad, ncum)
+
+    DO k = i + 1, nl + 1
+      DO il = 1, ncum
+        IF (i<=inb(il) .AND. k<=(inb(il)+1)) THEN
+          amp1(il) = amp1(il) + m(il, k)
+        END IF
+      END DO
+    END DO
+
+    DO k = 1, i
+      DO j = i + 1, nl + 1
+        DO il = 1, ncum
+          IF (i<=inb(il) .AND. j<=(inb(il)+1)) THEN
+            amp1(il) = amp1(il) + ment(il, k, j)
+          END IF
+        END DO
+      END DO
+    END DO
+
+    DO k = 1, i - 1
+      DO j = i, nl + 1 ! newvecto: nl au lieu nl+1?
+        DO il = 1, ncum
+          IF (i<=inb(il) .AND. j<=inb(il)) THEN
+            ad(il) = ad(il) + ment(il, j, k)
+          END IF
+        END DO
+      END DO
+    END DO
+
+    DO il = 1, ncum
+      IF (i<=inb(il)) THEN
+        dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+        cpinv = 1.0/cpn(il, i)
+
+        ! convect3      if((0.1*dpinv*amp1).ge.delti)iflag(il)=4
+        IF (cvflag_grav) THEN
+          IF ((0.01*grav*dpinv*amp1(il))>=delti) iflag(il) = 1 ! vecto
+        ELSE
+          IF ((0.1*dpinv*amp1(il))>=delti) iflag(il) = 1 ! vecto
+        END IF
+
+        IF (cvflag_grav) THEN
+          ft(il, i) = 0.01*grav*dpinv*(amp1(il)*(t(il,i+1)-t(il, &
+            i)+(gz(il,i+1)-gz(il,i))*cpinv)-ad(il)*(t(il,i)-t(il, &
+            i-1)+(gz(il,i)-gz(il,i-1))*cpinv)) - 0.5*sigd*lvcp(il, i)*(evap( &
+            il,i)+evap(il,i+1))
+          rat = cpn(il, i-1)*cpinv
+          ft(il, i) = ft(il, i) - 0.009*grav*sigd*(mp(il,i+1)*t(il,i)*b(il,i) &
+            -mp(il,i)*t(il,i-1)*rat*b(il,i-1))*dpinv
+          ft(il, i) = ft(il, i) + 0.01*grav*dpinv*ment(il, i, i)*(hp(il,i)-h( &
+            il,i)+t(il,i)*(cpv-cpd)*(rr(il,i)-qent(il,i,i)))*cpinv
+        ELSE ! cvflag_grav
+          ft(il, i) = 0.1*dpinv*(amp1(il)*(t(il,i+1)-t(il, &
+            i)+(gz(il,i+1)-gz(il,i))*cpinv)-ad(il)*(t(il,i)-t(il, &
+            i-1)+(gz(il,i)-gz(il,i-1))*cpinv)) - 0.5*sigd*lvcp(il, i)*(evap( &
+            il,i)+evap(il,i+1))
+          rat = cpn(il, i-1)*cpinv
+          ft(il, i) = ft(il, i) - 0.09*sigd*(mp(il,i+1)*t(il,i)*b(il,i)-mp(il &
+            ,i)*t(il,i-1)*rat*b(il,i-1))*dpinv
+          ft(il, i) = ft(il, i) + 0.1*dpinv*ment(il, i, i)*(hp(il,i)-h(il,i)+ &
+            t(il,i)*(cpv-cpd)*(rr(il,i)-qent(il,i,i)))*cpinv
+        END IF ! cvflag_grav
+
+
+        ft(il, i) = ft(il, i) + 0.01*sigd*wt(il, i)*(cl-cpd)*water(il, i+1)*( &
+          t(il,i+1)-t(il,i))*dpinv*cpinv
+
+        IF (cvflag_grav) THEN
+          fr(il, i) = 0.01*grav*dpinv*(amp1(il)*(rr(il,i+1)-rr(il, &
+            i))-ad(il)*(rr(il,i)-rr(il,i-1)))
+          fu(il, i) = fu(il, i) + 0.01*grav*dpinv*(amp1(il)*(u(il,i+1)-u(il, &
+            i))-ad(il)*(u(il,i)-u(il,i-1)))
+          fv(il, i) = fv(il, i) + 0.01*grav*dpinv*(amp1(il)*(v(il,i+1)-v(il, &
+            i))-ad(il)*(v(il,i)-v(il,i-1)))
+        ELSE ! cvflag_grav
+          fr(il, i) = 0.1*dpinv*(amp1(il)*(rr(il,i+1)-rr(il, &
+            i))-ad(il)*(rr(il,i)-rr(il,i-1)))
+          fu(il, i) = fu(il, i) + 0.1*dpinv*(amp1(il)*(u(il,i+1)-u(il, &
+            i))-ad(il)*(u(il,i)-u(il,i-1)))
+          fv(il, i) = fv(il, i) + 0.1*dpinv*(amp1(il)*(v(il,i+1)-v(il, &
+            i))-ad(il)*(v(il,i)-v(il,i-1)))
+        END IF ! cvflag_grav
+
+      END IF ! i
+    END DO
+
+    ! do k=1,ntra
+    ! do il=1,ncum
+    ! if (i.le.inb(il)) then
+    ! dpinv=1.0/(ph(il,i)-ph(il,i+1))
+    ! cpinv=1.0/cpn(il,i)
+    ! if (cvflag_grav) then
+    ! ftra(il,i,k)=ftra(il,i,k)+0.01*grav*dpinv
+    ! :         *(amp1(il)*(tra(il,i+1,k)-tra(il,i,k))
+    ! :           -ad(il)*(tra(il,i,k)-tra(il,i-1,k)))
+    ! else
+    ! ftra(il,i,k)=ftra(il,i,k)+0.1*dpinv
+    ! :         *(amp1(il)*(tra(il,i+1,k)-tra(il,i,k))
+    ! :           -ad(il)*(tra(il,i,k)-tra(il,i-1,k)))
+    ! endif
+    ! endif
+    ! enddo
+    ! enddo
+
+    DO k = 1, i - 1
+      DO il = 1, ncum
+        IF (i<=inb(il)) THEN
+          dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+          cpinv = 1.0/cpn(il, i)
+
+          awat = elij(il, k, i) - (1.-ep(il,i))*clw(il, i)
+          awat = amax1(awat, 0.0)
+
+          IF (cvflag_grav) THEN
+            fr(il, i) = fr(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(qent(il,k &
+              ,i)-awat-rr(il,i))
+            fu(il, i) = fu(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(uent(il,k &
+              ,i)-u(il,i))
+            fv(il, i) = fv(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(vent(il,k &
+              ,i)-v(il,i))
+          ELSE ! cvflag_grav
+            fr(il, i) = fr(il, i) + 0.1*dpinv*ment(il, k, i)*(qent(il,k,i)- &
+              awat-rr(il,i))
+            fu(il, i) = fu(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(uent(il,k &
+              ,i)-u(il,i))
+            fv(il, i) = fv(il, i) + 0.1*dpinv*ment(il, k, i)*(vent(il,k,i)-v( &
+              il,i))
+          END IF ! cvflag_grav
+
+          ! (saturated updrafts resulting from mixing)        ! cld
+          qcond(il, i) = qcond(il, i) + (elij(il,k,i)-awat) ! cld
+          nqcond(il, i) = nqcond(il, i) + 1. ! cld
+        END IF ! i
+      END DO
+    END DO
+
+    ! do j=1,ntra
+    ! do k=1,i-1
+    ! do il=1,ncum
+    ! if (i.le.inb(il)) then
+    ! dpinv=1.0/(ph(il,i)-ph(il,i+1))
+    ! cpinv=1.0/cpn(il,i)
+    ! if (cvflag_grav) then
+    ! ftra(il,i,j)=ftra(il,i,j)+0.01*grav*dpinv*ment(il,k,i)
+    ! :        *(traent(il,k,i,j)-tra(il,i,j))
+    ! else
+    ! ftra(il,i,j)=ftra(il,i,j)+0.1*dpinv*ment(il,k,i)
+    ! :        *(traent(il,k,i,j)-tra(il,i,j))
+    ! endif
+    ! endif
+    ! enddo
+    ! enddo
+    ! enddo
+
+    DO k = i, nl + 1
+      DO il = 1, ncum
+        IF (i<=inb(il) .AND. k<=inb(il)) THEN
+          dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+          cpinv = 1.0/cpn(il, i)
+
+          IF (cvflag_grav) THEN
+            fr(il, i) = fr(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(qent(il,k &
+              ,i)-rr(il,i))
+            fu(il, i) = fu(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(uent(il,k &
+              ,i)-u(il,i))
+            fv(il, i) = fv(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(vent(il,k &
+              ,i)-v(il,i))
+          ELSE ! cvflag_grav
+            fr(il, i) = fr(il, i) + 0.1*dpinv*ment(il, k, i)*(qent(il,k,i)-rr &
+              (il,i))
+            fu(il, i) = fu(il, i) + 0.1*dpinv*ment(il, k, i)*(uent(il,k,i)-u( &
+              il,i))
+            fv(il, i) = fv(il, i) + 0.1*dpinv*ment(il, k, i)*(vent(il,k,i)-v( &
+              il,i))
+          END IF ! cvflag_grav
+        END IF ! i and k
+      END DO
+    END DO
+
+    ! do j=1,ntra
+    ! do k=i,nl+1
+    ! do il=1,ncum
+    ! if (i.le.inb(il) .and. k.le.inb(il)) then
+    ! dpinv=1.0/(ph(il,i)-ph(il,i+1))
+    ! cpinv=1.0/cpn(il,i)
+    ! if (cvflag_grav) then
+    ! ftra(il,i,j)=ftra(il,i,j)+0.01*grav*dpinv*ment(il,k,i)
+    ! :         *(traent(il,k,i,j)-tra(il,i,j))
+    ! else
+    ! ftra(il,i,j)=ftra(il,i,j)+0.1*dpinv*ment(il,k,i)
+    ! :             *(traent(il,k,i,j)-tra(il,i,j))
+    ! endif
+    ! endif ! i and k
+    ! enddo
+    ! enddo
+    ! enddo
+
+    DO il = 1, ncum
+      IF (i<=inb(il)) THEN
+        dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+        cpinv = 1.0/cpn(il, i)
+
+        IF (cvflag_grav) THEN
+          ! sb: on ne fait pas encore la correction permettant de mieux
+          ! conserver l'eau:
+          fr(il, i) = fr(il, i) + 0.5*sigd*(evap(il,i)+evap(il,i+1)) + &
+            0.01*grav*(mp(il,i+1)*(rp(il,i+1)-rr(il,i))-mp(il,i)*(rp(il, &
+            i)-rr(il,i-1)))*dpinv
+
+          fu(il, i) = fu(il, i) + 0.01*grav*(mp(il,i+1)*(up(il,i+1)-u(il, &
+            i))-mp(il,i)*(up(il,i)-u(il,i-1)))*dpinv
+          fv(il, i) = fv(il, i) + 0.01*grav*(mp(il,i+1)*(vp(il,i+1)-v(il, &
+            i))-mp(il,i)*(vp(il,i)-v(il,i-1)))*dpinv
+        ELSE ! cvflag_grav
+          fr(il, i) = fr(il, i) + 0.5*sigd*(evap(il,i)+evap(il,i+1)) + &
+            0.1*(mp(il,i+1)*(rp(il,i+1)-rr(il,i))-mp(il,i)*(rp(il,i)-rr(il, &
+            i-1)))*dpinv
+          fu(il, i) = fu(il, i) + 0.1*(mp(il,i+1)*(up(il,i+1)-u(il, &
+            i))-mp(il,i)*(up(il,i)-u(il,i-1)))*dpinv
+          fv(il, i) = fv(il, i) + 0.1*(mp(il,i+1)*(vp(il,i+1)-v(il, &
+            i))-mp(il,i)*(vp(il,i)-v(il,i-1)))*dpinv
+        END IF ! cvflag_grav
+
+      END IF ! i
+    END DO
+
+    ! sb: interface with the cloud parameterization:          ! cld
+
+    DO k = i + 1, nl
+      DO il = 1, ncum
+        IF (k<=inb(il) .AND. i<=inb(il)) THEN ! cld
+          ! (saturated downdrafts resulting from mixing)            ! cld
+          qcond(il, i) = qcond(il, i) + elij(il, k, i) ! cld
+          nqcond(il, i) = nqcond(il, i) + 1. ! cld
+        END IF ! cld
+      END DO ! cld
+    END DO ! cld
+
+    ! (particular case: no detraining level is found)         ! cld
+    DO il = 1, ncum ! cld
+      IF (i<=inb(il) .AND. nent(il,i)==0) THEN ! cld
+        qcond(il, i) = qcond(il, i) + (1.-ep(il,i))*clw(il, i) ! cld
+        nqcond(il, i) = nqcond(il, i) + 1. ! cld
+      END IF ! cld
+    END DO ! cld
+
+    DO il = 1, ncum ! cld
+      IF (i<=inb(il) .AND. nqcond(il,i)/=0.) THEN ! cld
+        qcond(il, i) = qcond(il, i)/nqcond(il, i) ! cld
+      END IF ! cld
+    END DO
+
+    ! do j=1,ntra
+    ! do il=1,ncum
+    ! if (i.le.inb(il)) then
+    ! dpinv=1.0/(ph(il,i)-ph(il,i+1))
+    ! cpinv=1.0/cpn(il,i)
+
+    ! if (cvflag_grav) then
+    ! ftra(il,i,j)=ftra(il,i,j)+0.01*grav*dpinv
+    ! :     *(mp(il,i+1)*(trap(il,i+1,j)-tra(il,i,j))
+    ! :     -mp(il,i)*(trap(il,i,j)-tra(il,i-1,j)))
+    ! else
+    ! ftra(il,i,j)=ftra(il,i,j)+0.1*dpinv
+    ! :     *(mp(il,i+1)*(trap(il,i+1,j)-tra(il,i,j))
+    ! :     -mp(il,i)*(trap(il,i,j)-tra(il,i-1,j)))
+    ! endif
+    ! endif ! i
+    ! enddo
+    ! enddo
+
+500 END DO
+
+
+  ! ***   move the detrainment at level inb down to level inb-1   ***
+  ! ***        in such a way as to preserve the vertically        ***
+  ! ***          integrated enthalpy and water tendencies         ***
+
+  DO il = 1, ncum
+
+    ax = 0.1*ment(il, inb(il), inb(il))*(hp(il,inb(il))-h(il,inb(il))+t(il, &
+      inb(il))*(cpv-cpd)*(rr(il,inb(il))-qent(il,inb(il), &
+      inb(il))))/(cpn(il,inb(il))*(ph(il,inb(il))-ph(il,inb(il)+1)))
+    ft(il, inb(il)) = ft(il, inb(il)) - ax
+    ft(il, inb(il)-1) = ft(il, inb(il)-1) + ax*cpn(il, inb(il))*(ph(il,inb(il &
+      ))-ph(il,inb(il)+1))/(cpn(il,inb(il)-1)*(ph(il,inb(il)-1)-ph(il, &
+      inb(il))))
+
+    bx = 0.1*ment(il, inb(il), inb(il))*(qent(il,inb(il),inb(il))-rr(il,inb( &
+      il)))/(ph(il,inb(il))-ph(il,inb(il)+1))
+    fr(il, inb(il)) = fr(il, inb(il)) - bx
+    fr(il, inb(il)-1) = fr(il, inb(il)-1) + bx*(ph(il,inb(il))-ph(il,inb(il)+ &
+      1))/(ph(il,inb(il)-1)-ph(il,inb(il)))
+
+    cx = 0.1*ment(il, inb(il), inb(il))*(uent(il,inb(il),inb(il))-u(il,inb(il &
+      )))/(ph(il,inb(il))-ph(il,inb(il)+1))
+    fu(il, inb(il)) = fu(il, inb(il)) - cx
+    fu(il, inb(il)-1) = fu(il, inb(il)-1) + cx*(ph(il,inb(il))-ph(il,inb(il)+ &
+      1))/(ph(il,inb(il)-1)-ph(il,inb(il)))
+
+    dx = 0.1*ment(il, inb(il), inb(il))*(vent(il,inb(il),inb(il))-v(il,inb(il &
+      )))/(ph(il,inb(il))-ph(il,inb(il)+1))
+    fv(il, inb(il)) = fv(il, inb(il)) - dx
+    fv(il, inb(il)-1) = fv(il, inb(il)-1) + dx*(ph(il,inb(il))-ph(il,inb(il)+ &
+      1))/(ph(il,inb(il)-1)-ph(il,inb(il)))
+
+  END DO
+
+  ! do j=1,ntra
+  ! do il=1,ncum
+  ! ex=0.1*ment(il,inb(il),inb(il))
+  ! :      *(traent(il,inb(il),inb(il),j)-tra(il,inb(il),j))
+  ! :      /(ph(il,inb(il))-ph(il,inb(il)+1))
+  ! ftra(il,inb(il),j)=ftra(il,inb(il),j)-ex
+  ! ftra(il,inb(il)-1,j)=ftra(il,inb(il)-1,j)
+  ! :       +ex*(ph(il,inb(il))-ph(il,inb(il)+1))
+  ! :          /(ph(il,inb(il)-1)-ph(il,inb(il)))
+  ! enddo
+  ! enddo
+
+
+  ! ***    homoginize tendencies below cloud base    ***
+
+
+  DO il = 1, ncum
+    asum(il) = 0.0
+    bsum(il) = 0.0
+    csum(il) = 0.0
+    dsum(il) = 0.0
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i<=(icb(il)-1)) THEN
+        asum(il) = asum(il) + ft(il, i)*(ph(il,i)-ph(il,i+1))
+        bsum(il) = bsum(il) + fr(il, i)*(lv(il,i)+(cl-cpd)*(t(il,i)-t(il, &
+          1)))*(ph(il,i)-ph(il,i+1))
+        csum(il) = csum(il) + (lv(il,i)+(cl-cpd)*(t(il,i)-t(il, &
+          1)))*(ph(il,i)-ph(il,i+1))
+        dsum(il) = dsum(il) + t(il, i)*(ph(il,i)-ph(il,i+1))/th(il, i)
+      END IF
+    END DO
+  END DO
+
+  ! !!!      do 700 i=1,icb(il)-1
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i<=(icb(il)-1)) THEN
+        ft(il, i) = asum(il)*t(il, i)/(th(il,i)*dsum(il))
+        fr(il, i) = bsum(il)/csum(il)
+      END IF
+    END DO
+  END DO
+
+
+  ! ***           reset counter and return           ***
+
+  DO il = 1, ncum
+    sig(il, nd) = 2.0
+  END DO
+
+
+  DO i = 1, nd
+    DO il = 1, ncum
+      upwd(il, i) = 0.0
+      dnwd(il, i) = 0.0
+    END DO
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      dnwd0(il, i) = -mp(il, i)
+    END DO
+  END DO
+  DO i = nl + 1, nd
+    DO il = 1, ncum
+      dnwd0(il, i) = 0.
+    END DO
+  END DO
+
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) THEN
+        upwd(il, i) = 0.0
+        dnwd(il, i) = 0.0
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, nl
+    DO k = 1, nl
+      DO il = 1, ncum
+        up1(il, k, i) = 0.0
+        dn1(il, k, i) = 0.0
+      END DO
+    END DO
+  END DO
+
+  DO i = 1, nl
+    DO k = i, nl
+      DO n = 1, i - 1
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. i<=inb(il) .AND. k<=inb(il)) THEN
+            up1(il, k, i) = up1(il, k, i) + ment(il, n, k)
+            dn1(il, k, i) = dn1(il, k, i) - ment(il, k, n)
+          END IF
+        END DO
+      END DO
+    END DO
+  END DO
+
+  DO i = 2, nl
+    DO k = i, nl
+      DO il = 1, ncum
+        ! test         if (i.ge.icb(il).and.i.le.inb(il).and.k.le.inb(il))
+        ! then
+        IF (i<=inb(il) .AND. k<=inb(il)) THEN
+          upwd(il, i) = upwd(il, i) + m(il, k) + up1(il, k, i)
+          dnwd(il, i) = dnwd(il, i) + dn1(il, k, i)
+        END IF
+      END DO
+    END DO
+  END DO
+
+
+  ! !!!      DO il=1,ncum
+  ! !!!      do i=icb(il),inb(il)
+  ! !!!
+  ! !!!      upwd(il,i)=0.0
+  ! !!!      dnwd(il,i)=0.0
+  ! !!!      do k=i,inb(il)
+  ! !!!      up1=0.0
+  ! !!!      dn1=0.0
+  ! !!!      do n=1,i-1
+  ! !!!      up1=up1+ment(il,n,k)
+  ! !!!      dn1=dn1-ment(il,k,n)
+  ! !!!      enddo
+  ! !!!      upwd(il,i)=upwd(il,i)+m(il,k)+up1
+  ! !!!      dnwd(il,i)=dnwd(il,i)+dn1
+  ! !!!      enddo
+  ! !!!      enddo
+  ! !!!
+  ! !!!      ENDDO
+
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ! determination de la variation de flux ascendant entre
+  ! deux niveau non dilue mike
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      mike(il, i) = m(il, i)
+    END DO
+  END DO
+
+  DO i = nl + 1, nd
+    DO il = 1, ncum
+      mike(il, i) = 0.
+    END DO
+  END DO
+
+  DO i = 1, nd
+    DO il = 1, ncum
+      ma(il, i) = 0
+    END DO
+  END DO
+
+  DO i = 1, nl
+    DO j = i, nl
+      DO il = 1, ncum
+        ma(il, i) = ma(il, i) + m(il, j)
+      END DO
+    END DO
+  END DO
+
+  DO i = nl + 1, nd
+    DO il = 1, ncum
+      ma(il, i) = 0.
+    END DO
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i<=(icb(il)-1)) THEN
+        ma(il, i) = 0
+      END IF
+    END DO
+  END DO
+
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+  ! icb represente de niveau ou se trouve la
+  ! base du nuage , et inb le top du nuage
+  ! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+  DO i = 1, nd
+    DO il = 1, ncum
+      mke(il, i) = upwd(il, i) + dnwd(il, i)
+    END DO
+  END DO
+
+  DO i = 1, nd
+    DO il = 1, ncum
+      rdcp = (rrd*(1.-rr(il,i))-rr(il,i)*rrv)/(cpd*(1.-rr(il, &
+        i))+rr(il,i)*cpv)
+      tls(il, i) = t(il, i)*(1000.0/p(il,i))**rdcp
+      tps(il, i) = tp(il, i)
+    END DO
+  END DO
+
+
+  ! *** diagnose the in-cloud mixing ratio   ***            ! cld
+  ! ***           of condensed water         ***            ! cld
+  ! ! cld
+
+  DO i = 1, nd ! cld
+    DO il = 1, ncum ! cld
+      mac(il, i) = 0.0 ! cld
+      wa(il, i) = 0.0 ! cld
+      siga(il, i) = 0.0 ! cld
+      sax(il, i) = 0.0 ! cld
+    END DO ! cld
+  END DO ! cld
+
+  DO i = minorig, nl ! cld
+    DO k = i + 1, nl + 1 ! cld
+      DO il = 1, ncum ! cld
+        IF (i<=inb(il) .AND. k<=(inb(il)+1)) THEN ! cld
+          mac(il, i) = mac(il, i) + m(il, k) ! cld
+        END IF ! cld
+      END DO ! cld
+    END DO ! cld
+  END DO ! cld
+
+  DO i = 1, nl ! cld
+    DO j = 1, i ! cld
+      DO il = 1, ncum ! cld
+        IF (i>=icb(il) .AND. i<=(inb(il)-1) & ! cld
+            .AND. j>=icb(il)) THEN ! cld
+          sax(il, i) = sax(il, i) + rrd*(tvp(il,j)-tv(il,j)) & ! cld
+            *(ph(il,j)-ph(il,j+1))/p(il, j) ! cld
+        END IF ! cld
+      END DO ! cld
+    END DO ! cld
+  END DO ! cld
+
+  DO i = 1, nl ! cld
+    DO il = 1, ncum ! cld
+      IF (i>=icb(il) .AND. i<=(inb(il)-1) & ! cld
+          .AND. sax(il,i)>0.0) THEN ! cld
+        wa(il, i) = sqrt(2.*sax(il,i)) ! cld
+      END IF ! cld
+    END DO ! cld
+  END DO ! cld
+
+  DO i = 1, nl ! cld
+    DO il = 1, ncum ! cld
+      IF (wa(il,i)>0.0) &          ! cld
+        siga(il, i) = mac(il, i)/wa(il, i) & ! cld
+        *rrd*tvp(il, i)/p(il, i)/100./delta ! cld
+      siga(il, i) = min(siga(il,i), 1.0) ! cld
+      ! IM cf. FH
+      IF (iflag_clw==0) THEN
+        qcondc(il, i) = siga(il, i)*clw(il, i)*(1.-ep(il,i)) & ! cld
+          +(1.-siga(il,i))*qcond(il, i) ! cld
+      ELSE IF (iflag_clw==1) THEN
+        qcondc(il, i) = qcond(il, i) ! cld
+      END IF
+
+    END DO ! cld
+  END DO ! cld
+
+  RETURN
+END SUBROUTINE cv30_yield
+
+! !RomP >>>
+SUBROUTINE cv30_tracer(nloc, len, ncum, nd, na, ment, sij, da, phi, phi2, &
+    d1a, dam, ep, vprecip, elij, clw, epmlmmm, eplamm, icb, inb)
+  IMPLICIT NONE
+
+  include "cv30param.h"
+
+  ! inputs:
+  INTEGER ncum, nd, na, nloc, len
+  REAL ment(nloc, na, na), sij(nloc, na, na)
+  REAL clw(nloc, nd), elij(nloc, na, na)
+  REAL ep(nloc, na)
+  INTEGER icb(nloc), inb(nloc)
+  REAL vprecip(nloc, nd+1)
+  ! ouputs:
+  REAL da(nloc, na), phi(nloc, na, na)
+  REAL phi2(nloc, na, na)
+  REAL d1a(nloc, na), dam(nloc, na)
+  REAL epmlmmm(nloc, na, na), eplamm(nloc, na)
+  ! variables pour tracer dans precip de l'AA et des mel
+  ! local variables:
+  INTEGER i, j, k
+  REAL epm(nloc, na, na)
+
+  ! variables d'Emanuel : du second indice au troisieme
+  ! --->    tab(i,k,j) -> de l origine k a l arrivee j
+  ! ment, sij, elij
+  ! variables personnelles : du troisieme au second indice
+  ! --->    tab(i,j,k) -> de k a j
+  ! phi, phi2
+
+  ! initialisations
+  DO j = 1, na
+    DO i = 1, ncum
+      da(i, j) = 0.
+      d1a(i, j) = 0.
+      dam(i, j) = 0.
+      eplamm(i, j) = 0.
+    END DO
+  END DO
+  DO k = 1, na
+    DO j = 1, na
+      DO i = 1, ncum
+        epm(i, j, k) = 0.
+        epmlmmm(i, j, k) = 0.
+        phi(i, j, k) = 0.
+        phi2(i, j, k) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! fraction deau condensee dans les melanges convertie en precip : epm
+  ! et eau condensée précipitée dans masse d'air saturé : l_m*dM_m/dzdz.dzdz
+  DO j = 1, na
+    DO k = 1, j - 1
+      DO i = 1, ncum
+        IF (k>=icb(i) .AND. k<=inb(i) .AND. j<=inb(i)) THEN
+          ! !jyg             epm(i,j,k)=1.-(1.-ep(i,j))*clw(i,j)/elij(i,k,j)
+          epm(i, j, k) = 1. - (1.-ep(i,j))*clw(i, j)/max(elij(i,k,j), 1.E-16)
+          ! !
+          epm(i, j, k) = max(epm(i,j,k), 0.0)
+        END IF
+      END DO
+    END DO
+  END DO
+
+  DO j = 1, na
+    DO k = 1, na
+      DO i = 1, ncum
+        IF (k>=icb(i) .AND. k<=inb(i)) THEN
+          eplamm(i, j) = eplamm(i, j) + ep(i, j)*clw(i, j)*ment(i, j, k)*(1.- &
+            sij(i,j,k))
+        END IF
+      END DO
+    END DO
+  END DO
+
+  DO j = 1, na
+    DO k = 1, j - 1
+      DO i = 1, ncum
+        IF (k>=icb(i) .AND. k<=inb(i) .AND. j<=inb(i)) THEN
+          epmlmmm(i, j, k) = epm(i, j, k)*elij(i, k, j)*ment(i, k, j)
+        END IF
+      END DO
+    END DO
+  END DO
+
+  ! matrices pour calculer la tendance des concentrations dans cvltr.F90
+  DO j = 1, na
+    DO k = 1, na
+      DO i = 1, ncum
+        da(i, j) = da(i, j) + (1.-sij(i,k,j))*ment(i, k, j)
+        phi(i, j, k) = sij(i, k, j)*ment(i, k, j)
+        d1a(i, j) = d1a(i, j) + ment(i, k, j)*ep(i, k)*(1.-sij(i,k,j))
+      END DO
+    END DO
+  END DO
+
+  DO j = 1, na
+    DO k = 1, j - 1
+      DO i = 1, ncum
+        dam(i, j) = dam(i, j) + ment(i, k, j)*epm(i, j, k)*(1.-ep(i,k))*(1.- &
+          sij(i,k,j))
+        phi2(i, j, k) = phi(i, j, k)*epm(i, j, k)
+      END DO
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_tracer
+! RomP <<<
+
+SUBROUTINE cv30_uncompress(nloc, len, ncum, nd, ntra, idcum, iflag, precip, &
+    vprecip, evap, ep, sig, w0, ft, fq, fu, fv, ftra, inb, ma, upwd, dnwd, &
+    dnwd0, qcondc, wd, cape, da, phi, mp, phi2, d1a, dam, sij, elij, clw, &
+    epmlmmm, eplamm, wdtraina, wdtrainm,epmax_diag, iflag1, precip1, vprecip1, evap1, &
+    ep1, sig1, w01, ft1, fq1, fu1, fv1, ftra1, inb1, ma1, upwd1, dnwd1, &
+    dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1, phi21, d1a1, dam1, sij1, &
+    elij1, clw1, epmlmmm1, eplamm1, wdtraina1, wdtrainm1,epmax_diag1) ! epmax_cape
+  IMPLICIT NONE
+
+  include "cv30param.h"
+
+  ! inputs:
+  INTEGER len, ncum, nd, ntra, nloc
+  INTEGER idcum(nloc)
+  INTEGER iflag(nloc)
+  INTEGER inb(nloc)
+  REAL precip(nloc)
+  REAL vprecip(nloc, nd+1), evap(nloc, nd)
+  REAL ep(nloc, nd)
+  REAL sig(nloc, nd), w0(nloc, nd)
+  REAL ft(nloc, nd), fq(nloc, nd), fu(nloc, nd), fv(nloc, nd)
+  REAL ftra(nloc, nd, ntra)
+  REAL ma(nloc, nd)
+  REAL upwd(nloc, nd), dnwd(nloc, nd), dnwd0(nloc, nd)
+  REAL qcondc(nloc, nd)
+  REAL wd(nloc), cape(nloc)
+  REAL da(nloc, nd), phi(nloc, nd, nd), mp(nloc, nd)
+  REAL epmax_diag(nloc) ! epmax_cape
+  ! RomP >>>
+  REAL phi2(nloc, nd, nd)
+  REAL d1a(nloc, nd), dam(nloc, nd)
+  REAL wdtraina(nloc, nd), wdtrainm(nloc, nd)
+  REAL sij(nloc, nd, nd)
+  REAL elij(nloc, nd, nd), clw(nloc, nd)
+  REAL epmlmmm(nloc, nd, nd), eplamm(nloc, nd)
+  ! RomP <<<
+
+  ! outputs:
+  INTEGER iflag1(len)
+  INTEGER inb1(len)
+  REAL precip1(len)
+  REAL vprecip1(len, nd+1), evap1(len, nd) !<<< RomP
+  REAL ep1(len, nd) !<<< RomP
+  REAL sig1(len, nd), w01(len, nd)
+  REAL ft1(len, nd), fq1(len, nd), fu1(len, nd), fv1(len, nd)
+  REAL ftra1(len, nd, ntra)
+  REAL ma1(len, nd)
+  REAL upwd1(len, nd), dnwd1(len, nd), dnwd01(len, nd)
+  REAL qcondc1(nloc, nd)
+  REAL wd1(nloc), cape1(nloc)
+  REAL da1(nloc, nd), phi1(nloc, nd, nd), mp1(nloc, nd)
+  REAL epmax_diag1(len) ! epmax_cape
+  ! RomP >>>
+  REAL phi21(len, nd, nd)
+  REAL d1a1(len, nd), dam1(len, nd)
+  REAL wdtraina1(len, nd), wdtrainm1(len, nd)
+  REAL sij1(len, nd, nd)
+  REAL elij1(len, nd, nd), clw1(len, nd)
+  REAL epmlmmm1(len, nd, nd), eplamm1(len, nd)
+  ! RomP <<<
+
+  ! local variables:
+  INTEGER i, k, j
+
+  DO i = 1, ncum
+    precip1(idcum(i)) = precip(i)
+    iflag1(idcum(i)) = iflag(i)
+    wd1(idcum(i)) = wd(i)
+    inb1(idcum(i)) = inb(i)
+    cape1(idcum(i)) = cape(i)
+    epmax_diag1(idcum(i))=epmax_diag(i) ! epmax_cape
+  END DO
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      vprecip1(idcum(i), k) = vprecip(i, k)
+      evap1(idcum(i), k) = evap(i, k) !<<< RomP
+      sig1(idcum(i), k) = sig(i, k)
+      w01(idcum(i), k) = w0(i, k)
+      ft1(idcum(i), k) = ft(i, k)
+      fq1(idcum(i), k) = fq(i, k)
+      fu1(idcum(i), k) = fu(i, k)
+      fv1(idcum(i), k) = fv(i, k)
+      ma1(idcum(i), k) = ma(i, k)
+      upwd1(idcum(i), k) = upwd(i, k)
+      dnwd1(idcum(i), k) = dnwd(i, k)
+      dnwd01(idcum(i), k) = dnwd0(i, k)
+      qcondc1(idcum(i), k) = qcondc(i, k)
+      da1(idcum(i), k) = da(i, k)
+      mp1(idcum(i), k) = mp(i, k)
+      ! RomP >>>
+      ep1(idcum(i), k) = ep(i, k)
+      d1a1(idcum(i), k) = d1a(i, k)
+      dam1(idcum(i), k) = dam(i, k)
+      clw1(idcum(i), k) = clw(i, k)
+      eplamm1(idcum(i), k) = eplamm(i, k)
+      wdtraina1(idcum(i), k) = wdtraina(i, k)
+      wdtrainm1(idcum(i), k) = wdtrainm(i, k)
+      ! RomP <<<
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    sig1(idcum(i), nd) = sig(i, nd)
+  END DO
+
+
+  ! do 2100 j=1,ntra
+  ! do 2110 k=1,nd ! oct3
+  ! do 2120 i=1,ncum
+  ! ftra1(idcum(i),k,j)=ftra(i,k,j)
+  ! 2120     continue
+  ! 2110    continue
+  ! 2100   continue
+  DO j = 1, nd
+    DO k = 1, nd
+      DO i = 1, ncum
+        sij1(idcum(i), k, j) = sij(i, k, j)
+        phi1(idcum(i), k, j) = phi(i, k, j)
+        phi21(idcum(i), k, j) = phi2(i, k, j)
+        elij1(idcum(i), k, j) = elij(i, k, j)
+        epmlmmm1(idcum(i), k, j) = epmlmmm(i, k, j)
+      END DO
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv30_uncompress
+
+        subroutine cv30_epmax_fn_cape(nloc,ncum,nd &
+                ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
+                ,epmax_diag)
+        implicit none
+
+        ! On fait varier epmax en fn de la cape
+        ! Il faut donc recalculer ep, et hp qui a déjà été calculé et
+        ! qui en dépend
+        ! Toutes les autres variables fn de ep sont calculées plus bas.
+
+#include "cvthermo.h"
+#include "cv30param.h"
+#include "conema3.h"
+
+! inputs:
+      integer ncum, nd, nloc
+      integer icb(nloc), inb(nloc)
+      real cape(nloc)
+      real clw(nloc,nd),lv(nloc,nd),t(nloc,nd),h(nloc,nd)
+      integer nk(nloc)
+! inouts:
+      real ep(nloc,nd)
+      real hp(nloc,nd)
+! outputs ou local
+      real epmax_diag(nloc)
+! locals
+      integer i,k    
+      real hp_bak(nloc,nd)
+
+        ! on recalcule ep et hp
+        
+        if (coef_epmax_cape.gt.1e-12) then
+        do i=1,ncum
+           epmax_diag(i)=epmax-coef_epmax_cape*sqrt(cape(i))
+           do k=1,nl
+                ep(i,k)=ep(i,k)/epmax*epmax_diag(i)
+                ep(i,k)=amax1(ep(i,k),0.0)
+                ep(i,k)=amin1(ep(i,k),epmax_diag(i))
+           enddo
+        enddo
+
+! On recalcule hp:
+      do k=1,nl
+        do i=1,ncum
+	  hp_bak(i,k)=hp(i,k)
+	enddo
+      enddo
+      do k=1,nlp
+        do i=1,ncum
+	  hp(i,k)=h(i,k)
+	enddo
+      enddo
+      do k=minorig+1,nl
+       do i=1,ncum
+        if((k.ge.icb(i)).and.(k.le.inb(i)))then
+          hp(i,k)=h(i,nk(i))+(lv(i,k)+(cpd-cpv)*t(i,k))*ep(i,k)*clw(i,k)
+        endif
+       enddo
+      enddo !do k=minorig+1,n
+!     write(*,*) 'cv30_routines 6218: hp(1,20)=',hp(1,20)
+      do i=1,ncum  
+       do k=1,nl
+        if (abs(hp_bak(i,k)-hp(i,k)).gt.0.01) then
+           write(*,*) 'i,k=',i,k
+           write(*,*) 'coef_epmax_cape=',coef_epmax_cape
+           write(*,*) 'epmax_diag(i)=',epmax_diag(i)
+           write(*,*) 'ep(i,k)=',ep(i,k)
+           write(*,*) 'hp(i,k)=',hp(i,k)
+           write(*,*) 'hp_bak(i,k)=',hp_bak(i,k)
+           write(*,*) 'h(i,k)=',h(i,k)
+           write(*,*) 'nk(i)=',nk(i)
+           write(*,*) 'h(i,nk(i))=',h(i,nk(i))
+           write(*,*) 'lv(i,k)=',lv(i,k)
+           write(*,*) 't(i,k)=',t(i,k)
+           write(*,*) 'clw(i,k)=',clw(i,k)
+           write(*,*) 'cpd,cpv=',cpd,cpv
+           stop
+        endif
+       enddo !do k=1,nl
+      enddo !do i=1,ncum  
+      endif !if (coef_epmax_cape.gt.1e-12) then
+
+      return
+      end subroutine cv30_epmax_fn_cape
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv30param.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv30param.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv30param.h	(revision 3330)
@@ -0,0 +1,30 @@
+!
+! $Header$
+!
+!------------------------------------------------------------
+! Parameters for convectL, iflag_con=30:
+! (includes - microphysical parameters, 
+!			- parameters that control the rate of approach 
+!               to quasi-equilibrium)
+!			- noff & minorig (previously in input of convect1)
+!------------------------------------------------------------
+
+      integer noff, minorig, nl, nlp, nlm
+      real sigd, spfac
+!IM cf. FH : pour compatibilite avec conema3 TEMPORAIRE   real pbcrit, ptcrit, epmax
+      real pbcrit, ptcrit
+      real omtrain
+      real dtovsh, dpbase, dttrig
+      real dtcrit, tau, beta, alpha
+      real delta
+      real betad
+
+      COMMON /cv30param/  noff, minorig, nl, nlp, nlm &
+                      ,  sigd, spfac &
+!IM cf. FH : pour compatibilite avec conema3 TEMPORAIRE  :                ,pbcrit, ptcrit, epmax
+                      ,pbcrit, ptcrit &
+                      ,omtrain &
+                      ,dtovsh, dpbase, dttrig &
+                      ,dtcrit, tau, beta, alpha, delta, betad
+
+!$OMP THREADPRIVATE(/cv30param/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_buoy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_buoy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_buoy.F90	(revision 3330)
@@ -0,0 +1,155 @@
+SUBROUTINE cv3_buoy(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, ale, cin, &
+    tv, tvp, buoy)
+  ! **************************************************************
+  ! *
+  ! CV3_BUOY                                                    *
+  ! Buoyancy corrections to account for ALE             *
+  ! *
+  ! written by   : MOREAU Cecile, 07/08/2003, 15.55.48          *
+  ! modified by :                                               *
+  ! **************************************************************
+
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "YOMCST2.h"
+
+  ! input:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL pbase(nloc), plcl(nloc)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL ale(nloc), cin(nloc)
+  REAL tv(nloc, nd), tvp(nloc, nd)
+
+  ! output:
+  REAL buoy(nloc, nd)
+
+  ! local variables:
+  INTEGER il, k
+  INTEGER kmx(nloc)
+  REAL bll(nloc), bmx(nloc)
+  REAL gamma(nloc)
+  LOGICAL ok(nloc)
+
+  REAL dgamma
+  REAL buoymin
+  PARAMETER (dgamma=2.E-03) !dgamma gamma
+  PARAMETER (buoymin=2.)
+
+  LOGICAL fixed_bll
+  SAVE fixed_bll
+  DATA fixed_bll/.TRUE./
+  !$OMP THREADPRIVATE(fixed_bll)
+
+
+  ! print *,' Ale+cin ',ale(1)+cin(1)
+  ! --------------------------------------------------------------
+  ! Recompute buoyancies
+  ! --------------------------------------------------------------
+  DO k = 1, nl
+    DO il = 1, ncum
+      buoy(il, k) = tvp(il, k) - tv(il, k)
+    END DO
+  END DO
+
+  ! -------------------------------------------------------------
+  ! -- Compute low level buoyancy ( function of Ale+Cin )
+  ! -------------------------------------------------------------
+  IF (fixed_bll) THEN
+
+    DO il = 1, ncum
+      bll(il) = 0.5
+    END DO
+  ELSE
+
+    DO il = 1, ncum
+      IF (ale(il)+cin(il)>0.) THEN
+        gamma(il) = 4.*buoy(il, icb(il))**2 + 8.*dgamma*(ale(il)+cin(il))*tv( &
+          il, icb(il))/grav
+        gamma(il) = max(gamma(il), 1.E-10)
+      END IF
+    END DO
+
+    DO il = 1, ncum
+      IF (ale(il)+cin(il)>0.) THEN
+        bll(il) = 4.*dgamma*(ale(il)+cin(il))*tv(il, icb(il))/ &
+          (grav*(abs(buoy(il,icb(il))+0.5*sqrt(gamma(il)))))
+      END IF
+    END DO
+
+    DO il = 1, ncum
+      IF (ale(il)+cin(il)>0.) THEN
+        bll(il) = min(bll(il), buoymin)
+      END IF
+    END DO
+
+  END IF !(fixed_bll)
+
+
+  ! -------------------------------------------------------------
+  ! --Get highest buoyancy among levels below LCL-200hPa
+  ! -------------------------------------------------------------
+
+  DO il = 1, ncum
+    bmx(il) = -1000.
+    kmx(il) = icb(il)
+    ok(il) = .TRUE.
+  END DO
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (ale(il)+cin(il)>0. .AND. ok(il)) THEN
+        IF (k>icb(il) .AND. k<=inb(il)) THEN
+          ! c         print *,'k,p(il,k),plcl(il)-200. ',
+          ! k,p(il,k),plcl(il)-200.
+          IF (p(il,k)>plcl(il)-200.) THEN
+            IF (buoy(il,k)>bmx(il)) THEN
+              bmx(il) = buoy(il, k)
+              kmx(il) = k
+              IF (bmx(il)>=bll(il)) ok(il) = .FALSE.
+            END IF
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! print *,' ==cv3_buoy== bll(1),bmx(1),icb(1),kmx(1) '
+  ! $       ,bll(1),bmx(1),icb(1),kmx(1)
+
+  ! -------------------------------------------------------------
+  ! --Calculate modified buoyancies
+  ! -------------------------------------------------------------
+
+  DO il = 1, ncum
+    IF (ale(il)+cin(il)>0.) THEN
+      bll(il) = min(bll(il), bmx(il))
+    END IF
+  END DO
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (ale(il)+cin(il)>0.) THEN
+        IF (k>=icb(il) .AND. k<=kmx(il)-1) THEN
+          buoy(il, k) = bll(il)
+        END IF
+      END IF
+    END DO
+  END DO
+
+!CR:Correction of buoy for what comes next
+!keep flag or to modify in all cases?
+  IF (iflag_mix_adiab.eq.1) THEN
+  DO k = 1, nl 
+    DO il = 1, ncum
+       IF ((k>=kmx(il)) .AND. (k<=inb(il)) .AND. (buoy(il,k).lt.0.)) THEN
+          buoy(il,k)=buoy(il,k-1)
+       END IF
+    ENDDO
+  ENDDO
+  ENDIF
+
+  RETURN
+END SUBROUTINE cv3_buoy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_cine.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_cine.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_cine.F90	(revision 3330)
@@ -0,0 +1,461 @@
+
+! $Id$
+
+SUBROUTINE cv3_cine(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, tvp, &
+    cina, cinb, plfc)
+
+  ! **************************************************************
+  ! *
+  ! CV3_CINE                                                    *
+  ! *
+  ! *
+  ! written by   :   Frederique Cheruy                          *
+  ! vectorization:   Jean-Yves Grandpeix, 19/06/2003, 11.54.43  *
+  ! modified by :                                               *
+  ! **************************************************************
+
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+  include "cvthermo.h"
+  include "cv3param.h"
+  ! input:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL pbase(nloc), plcl(nloc)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL tv(nloc, nd), tvp(nloc, nd)
+
+  ! output
+  REAL cina(nloc), cinb(nloc), plfc(nloc)
+
+  ! local variables
+  INTEGER il, i, j, k
+  INTEGER itop(nloc), ineg(nloc), ilow(nloc)
+  INTEGER ifst(nloc), isublcl(nloc)
+  LOGICAL lswitch(nloc), lswitch1(nloc), lswitch2(nloc), lswitch3(nloc)
+  LOGICAL exist_lfc(nloc)
+  REAL dpmax
+  REAL deltap, dcin
+  REAL buoylcl(nloc), tvplcl(nloc), tvlcl(nloc)
+  REAL p0(nloc)
+  REAL buoyz(nloc), buoy(nloc, nd)
+
+  ! -------------------------------------------------------------
+  ! Initialization
+  ! -------------------------------------------------------------
+  DO il = 1, ncum
+    cina(il) = 0.
+    cinb(il) = 0.
+  END DO
+
+  ! --------------------------------------------------------------
+  ! Recompute buoyancies
+  ! --------------------------------------------------------------
+  DO k = 1, nd
+    DO il = 1, ncum
+      ! print*,'tvp tv=',tvp(il,k),tv(il,k)
+      buoy(il, k) = tvp(il, k) - tv(il, k)
+    END DO
+  END DO
+  ! ---------------------------------------------------------------
+
+  ! calcul de la flottabilite a LCL (Buoylcl)
+  ! ifst = first P-level above lcl
+  ! isublcl = highest P-level below lcl.
+  ! ---------------------------------------------------------------
+
+  DO il = 1, ncum
+    tvplcl(il) = tvp(il, 1)*(plcl(il)/p(il,1))**(2./7.) !For dry air, R/Cp=2/7
+  END DO
+
+  DO il = 1, ncum
+    IF (plcl(il)>p(il,icb(il))) THEN
+      ifst(il) = icb(il)
+      isublcl(il) = icb(il) - 1
+    ELSE
+      ifst(il) = icb(il) + 1
+      isublcl(il) = icb(il)
+    END IF
+  END DO
+
+  DO il = 1, ncum
+    tvlcl(il) = tv(il, ifst(il)-1) + (tv(il,ifst(il))-tv(il,ifst(il)-1))*( &
+      plcl(il)-p(il,ifst(il)-1))/(p(il,ifst(il))-p(il,ifst(il)-1))
+  END DO
+
+  DO il = 1, ncum
+    buoylcl(il) = tvplcl(il) - tvlcl(il)
+  END DO
+
+  ! ---------------------------------------------------------------
+  ! premiere couche contenant un  niveau de flotabilite positive
+  ! et premiere couche contenant un  niveau de flotabilite negative
+  ! au dessus du niveau de condensation
+  ! ---------------------------------------------------------------
+  DO il = 1, ncum
+    itop(il) = nl - 1
+    ineg(il) = nl - 1
+    exist_lfc(il) = .FALSE.
+  END DO
+  DO k = nl - 1, 1, -1
+    DO il = 1, ncum
+      IF (k>=ifst(il)) THEN
+        IF (buoy(il,k)>0.) THEN
+          itop(il) = k
+          exist_lfc(il) = .TRUE.
+        ELSE
+          ineg(il) = k
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! ---------------------------------------------------------------
+  ! When there is no positive buoyancy level, set Plfc, Cina and Cinb
+  ! to arbitrary extreme values.
+  ! ---------------------------------------------------------------
+  DO il = 1, ncum
+    IF (.NOT. exist_lfc(il)) THEN
+      plfc(il) = 1.111
+      cinb(il) = -1111.
+      cina(il) = -1112.
+    END IF
+  END DO
+
+
+  ! ---------------------------------------------------------------
+  ! -- Two cases : BUOYlcl >= 0 and BUOYlcl < 0.
+  ! ---------------------------------------------------------------
+
+  ! --------------------
+  ! -- 1.0 BUOYlcl >=0.
+  ! --------------------
+
+  dpmax = 50.
+  DO il = 1, ncum
+    lswitch1(il) = buoylcl(il) >= 0. .AND. exist_lfc(il)
+    lswitch(il) = lswitch1(il)
+  END DO
+
+  ! 1.1 No inhibition case
+  ! ----------------------
+  ! If buoyancy is positive at LCL and stays positive over a large enough
+  ! pressure interval (=DPMAX), inhibition is set to zero,
+
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      IF (p(il,ineg(il))<p(il,icb(il))-dpmax) THEN
+        plfc(il) = plcl(il)
+        cina(il) = 0.
+        cinb(il) = 0.
+      END IF
+    END IF
+  END DO
+
+  ! 1.2 Upper inhibition only case
+  ! ------------------------------
+  DO il = 1, ncum
+    lswitch2(il) = p(il, ineg(il)) >= p(il, icb(il)) - dpmax
+    lswitch(il) = lswitch1(il) .AND. lswitch2(il)
+  END DO
+
+  ! 1.2.1 Recompute itop (=1st layer with positive buoyancy above ineg)
+  ! -------------------------------------------------------------------
+
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      itop(il) = nl - 1
+    END IF
+  END DO
+
+  DO k = nl, 1, -1
+    DO il = 1, ncum
+      IF (lswitch(il)) THEN
+        IF (k>=ineg(il) .AND. buoy(il,k)>0) THEN
+          itop(il) = k
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! If there is no layer with positive buoyancy above ineg, set Plfc, 
+  ! Cina and Cinb to arbitrary extreme values.
+  DO il = 1, ncum
+    IF (lswitch(il) .AND. itop(il) == nl - 1) THEN
+      plfc(il) = 1.121
+      cinb(il) = -1121.
+      cina(il) = -1122.
+    END IF
+  END DO
+
+  DO il = 1, ncum
+    lswitch3(il) = itop(il) < nl -1
+    lswitch(il) = lswitch1(il) .AND. lswitch2(il) .AND. lswitch3(il)
+  END DO
+
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      cinb(il) = 0.
+
+      ! 1.2.2  Calcul de la pression du niveau de flot. nulle juste au-dessus
+      ! de LCL
+      ! ---------------------------------------------------------------------------
+      IF (ineg(il)>isublcl(il)+1) THEN
+        ! In order to get P0, one may interpolate linearly buoyancies
+        ! between P(ineg) and P(ineg-1).
+        p0(il) = (buoy(il,ineg(il))*p(il,ineg(il)-1)-buoy(il,ineg(il)-1)*p(il,ineg(il)))/ &
+          (buoy(il,ineg(il))-buoy(il,ineg(il)-1))
+      ELSE
+        ! In order to get P0, one has to interpolate between P(ineg) and
+        ! Plcl.
+        p0(il) = (buoy(il,ineg(il))*plcl(il)-buoylcl(il)*p(il,ineg(il)))/ &
+          (buoy(il,ineg(il))-buoylcl(il))
+      END IF
+    END IF
+  END DO
+
+  ! 1.2.3 Computation of PLFC
+  ! -------------------------
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      plfc(il) = (buoy(il,itop(il))*p(il,itop(il)-1)-buoy(il,itop( &
+        il)-1)*p(il,itop(il)))/(buoy(il,itop(il))-buoy(il,itop(il)-1))
+    END IF
+  END DO
+
+  ! 1.2.4 Computation of CINA
+  ! -------------------------
+
+  ! Upper part of CINA : integral from P(itop-1) to Plfc
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = p(il, itop(il)-1) - plfc(il)
+      dcin = rd*buoy(il, itop(il)-1)*deltap/(p(il,itop(il)-1)+plfc(il))
+      cina(il) = min(0., dcin)
+    END IF
+  END DO
+
+  ! Middle part of CINA : integral from P(ineg) to P(itop-1)
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (lswitch(il)) THEN
+        IF (k>=ineg(il) .AND. k<=itop(il)-2) THEN
+          deltap = p(il, k) - p(il, k+1)
+          dcin = 0.5*rd*(buoy(il,k)+buoy(il,k+1))*deltap/ph(il, k+1)
+          cina(il) = cina(il) + min(0., dcin)
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Lower part of CINA : integral from P0 to P(ineg)
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = p0(il) - p(il, ineg(il))
+      dcin = rd*buoy(il, ineg(il))*deltap/(p(il,ineg(il))+p0(il))
+      cina(il) = cina(il) + min(0., dcin)
+    END IF
+  END DO
+
+
+  ! ------------------
+  ! -- 2.0 BUOYlcl <0.
+  ! ------------------
+
+  DO il = 1, ncum
+    lswitch1(il) = buoylcl(il) < 0. .AND. exist_lfc(il)
+    lswitch(il) = lswitch1(il)
+  END DO
+
+  ! 2.0.1 Premiere  couche ou la flotabilite est negative au dessus du sol
+  ! ----------------------------------------------------
+  ! au cas ou elle existe  sinon ilow=1 (nk apres)
+  ! on suppose que la parcelle part de la premiere couche
+
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      ilow(il) = 1
+    END IF
+  END DO
+
+  DO k = nl, 1, -1
+    DO il = 1, ncum
+      IF (lswitch(il) .AND. k<=icb(il)-1) THEN
+        IF (buoy(il,k)<0.) THEN
+          ilow(il) = k
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! 2.0.2  Calcul de la pression du niveau de flot. nulle sous le nuage
+  ! ----------------------------------------------------
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      IF (ilow(il)>1) THEN
+        p0(il) = (buoy(il,ilow(il))*p(il,ilow(il)-1)-buoy(il,ilow( &
+          il)-1)*p(il,ilow(il)))/(buoy(il,ilow(il))-buoy(il,ilow(il)-1))
+        buoyz(il) = 0.
+      ELSE
+        p0(il) = p(il, 1)
+        buoyz(il) = buoy(il, 1)
+      END IF
+    END IF
+  END DO
+
+  ! 2.1. Computation of CINB
+  ! -----------------------
+
+  DO il = 1, ncum
+    lswitch2(il) = (isublcl(il)==1 .AND. ilow(il)==1) .OR. &
+      (isublcl(il)==ilow(il)-1)
+    lswitch(il) = lswitch1(il) .AND. lswitch2(il)
+  END DO
+  ! c      IF (    (isublcl .EQ. 1 .AND. ilow .EQ. 1)
+  ! c     $    .OR.(isublcl .EQ. ilow-1)) THEN
+
+  ! 2.1.1 First case : Plcl just above P0
+  ! -------------------------------------
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = p0(il) - plcl(il)
+      dcin = rd*(buoyz(il)+buoylcl(il))*deltap/(p0(il)+plcl(il))
+      cinb(il) = min(0., dcin)
+    END IF
+  END DO
+
+  DO il = 1, ncum
+    lswitch(il) = lswitch1(il) .AND. .NOT. lswitch2(il)
+  END DO
+  ! c      ELSE
+
+  ! 2.1.2 Second case : there is at least one P-level between P0 and Plcl
+  ! ---------------------------------------------------------------------
+
+  ! Lower part of CINB : integral from P0 to P(ilow)
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = p0(il) - p(il, ilow(il))
+      dcin = rd*(buoyz(il)+buoy(il,ilow(il)))*deltap/(p0(il)+p(il,ilow(il)))
+      cinb(il) = min(0., dcin)
+    END IF
+  END DO
+
+
+  ! Middle part of CINB : integral from P(ilow) to P(isublcl)
+  ! c      DO k = ilow,isublcl-1
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (lswitch(il) .AND. k>=ilow(il) .AND. k<=isublcl(il)-1) THEN
+        deltap = p(il, k) - p(il, k+1)
+        dcin = 0.5*rd*(buoy(il,k)+buoy(il,k+1))*deltap/ph(il, k+1)
+        cinb(il) = cinb(il) + min(0., dcin)
+      END IF
+    END DO
+  END DO
+
+  ! Upper part of CINB : integral from P(isublcl) to Plcl
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = p(il, isublcl(il)) - plcl(il)
+      dcin = rd*(buoy(il,isublcl(il))+buoylcl(il))*deltap/ &
+        (p(il,isublcl(il))+plcl(il))
+      cinb(il) = cinb(il) + min(0., dcin)
+    END IF
+  END DO
+
+
+  ! c      ENDIF
+
+  ! 2.2 Computation of CINA
+  ! ---------------------
+
+  DO il = 1, ncum
+    lswitch2(il) = plcl(il) > p(il, itop(il)-1)
+    lswitch(il) = lswitch1(il) .AND. lswitch2(il)
+  END DO
+
+  ! 2.2.1 FIrst case : Plcl > P(itop-1)
+  ! ---------------------------------
+  ! In order to get Plfc, one may interpolate linearly buoyancies
+  ! between P(itop) and P(itop-1).
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      plfc(il) = (buoy(il,itop(il))*p(il,itop(il)-1)-buoy(il,itop( &
+        il)-1)*p(il,itop(il)))/(buoy(il,itop(il))-buoy(il,itop(il)-1))
+    END IF
+  END DO
+
+  ! Upper part of CINA : integral from P(itop-1) to Plfc
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = p(il, itop(il)-1) - plfc(il)
+      dcin = rd*buoy(il, itop(il)-1)*deltap/(p(il,itop(il)-1)+plfc(il))
+      cina(il) = min(0., dcin)
+    END IF
+  END DO
+
+  ! Middle part of CINA : integral from P(icb+1) to P(itop-1)
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (lswitch(il) .AND. k>=icb(il)+1 .AND. k<=itop(il)-2) THEN
+        deltap = p(il, k) - p(il, k+1)
+        dcin = 0.5*rd*(buoy(il,k)+buoy(il,k+1))*deltap/ph(il, k+1)
+        cina(il) = cina(il) + min(0., dcin)
+      END IF
+    END DO
+  END DO
+
+  ! Lower part of CINA : integral from Plcl to P(icb+1)
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      IF (plcl(il)>p(il,icb(il))) THEN
+        IF (icb(il)<itop(il)-1) THEN
+          deltap = p(il, icb(il)) - p(il, icb(il)+1)
+          dcin = 0.5*rd*(buoy(il,icb(il))+buoy(il,icb(il)+1))*deltap/ &
+            ph(il, icb(il)+1)
+          cina(il) = cina(il) + min(0., dcin)
+        END IF
+
+        deltap = plcl(il) - p(il, icb(il))
+        dcin = rd*(buoylcl(il)+buoy(il,icb(il)))*deltap/ &
+          (plcl(il)+p(il,icb(il)))
+        cina(il) = cina(il) + min(0., dcin)
+      ELSE
+        deltap = plcl(il) - p(il, icb(il)+1)
+        dcin = rd*(buoylcl(il)+buoy(il,icb(il)+1))*deltap/ &
+          (plcl(il)+p(il,icb(il)+1))
+        cina(il) = cina(il) + min(0., dcin)
+      END IF
+    END IF
+  END DO
+
+  DO il = 1, ncum
+    lswitch(il) = lswitch1(il) .AND. .NOT. lswitch2(il)
+  END DO
+  ! c      ELSE
+
+  ! 2.2.2 Second case : Plcl lies between P(itop-1) and P(itop);
+  ! ----------------------------------------------------------
+  ! In order to get Plfc, one has to interpolate between P(itop) and Plcl.
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      plfc(il) = (buoy(il,itop(il))*plcl(il)-buoylcl(il)*p(il,itop(il)))/ &
+        (buoy(il,itop(il))-buoylcl(il))
+    END IF
+  END DO
+
+  DO il = 1, ncum
+    IF (lswitch(il)) THEN
+      deltap = plcl(il) - plfc(il)
+      dcin = rd*buoylcl(il)*deltap/(plcl(il)+plfc(il))
+      cina(il) = min(0., dcin)
+    END IF
+  END DO
+  ! c      ENDIF
+
+
+
+  RETURN
+END SUBROUTINE cv3_cine
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_crit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_crit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_crit.F90	(revision 3330)
@@ -0,0 +1,58 @@
+SUBROUTINE cv3_crit(nloc, ncum, nd, icb, inb, p, ph, pzero, v, threshold, &
+    kcrit, pcrit)
+  ! **************************************************************
+  ! *
+  ! CV3_CRIT   Find pressure level where vertical profile of    *
+  ! variable 'v' intersects 'threshold'              *
+  ! *
+  ! written by   : FROHWIRTH Julie, 13/08/2003, 21.55.12        *
+  ! modified by :                                               *
+  ! **************************************************************
+
+
+  include "cv3param.h"
+
+  ! input:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL pzero(nloc)
+  REAL v(nloc, nd), threshold
+
+  ! output:
+  INTEGER kcrit(nloc)
+  REAL pcrit(nloc)
+
+  ! local variables
+  INTEGER i, j, k, il
+  LOGICAL ok(nloc)
+
+  DO il = 1, ncum
+    ok(il) = .TRUE.
+    pcrit(il) = -1.
+    kcrit(il) = 0
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. ok(il)) THEN
+          IF ((v(il,i)-threshold)*(v(il,i-1)-threshold)<0.) THEN
+            pcrit(il) = ((threshold-v(il,i))*p(il,i-1)-(threshold-v(il, &
+              i-1))*p(il,i))/(v(il,i-1)-v(il,i))
+            IF (pcrit(il)>pzero(il)) THEN
+              pcrit(il) = -1.
+            ELSE
+              ok(il) = .FALSE.
+              kcrit(il) = i
+              IF (pcrit(il)<ph(il,i)) kcrit(il) = kcrit(il) + 1
+            END IF
+          END IF ! end IF (v(i) ...
+        END IF ! end IF (P(i) ...
+      END IF ! end IF (icb+1 le i le inb)
+    END DO
+  END DO
+
+
+  RETURN
+END SUBROUTINE cv3_crit
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_inicp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_inicp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_inicp.F90	(revision 3330)
@@ -0,0 +1,118 @@
+SUBROUTINE cv3_inicp()
+
+  ! **************************************************************
+  ! *
+  ! CV3_INIP Lecture des choix de lois de probabilité de mélange*
+  ! et calcul de leurs coefficients normalisés.        *
+  ! *
+  ! written by   : Jean-Yves Grandpeix, 06/06/2006, 19.39.27    *
+  ! modified by :                                               *
+  ! **************************************************************
+  IMPLICIT NONE
+  include "YOMCST2.h"
+
+  INTEGER iflag_clos
+  CHARACTER (LEN=20) :: modname = 'cv3_inicp'
+  CHARACTER (LEN=80) :: abort_message
+
+  ! --   Mixing probability distribution functions
+
+  REAL qcoef1, qcoef2, qff, qfff, qmix, rmix, qmix1, rmix1, qmix2, rmix2, f
+  REAL :: sumcoef,sigma,aire,pdf,mu,df,ff
+
+  qcoef1(f) = tanh(f/gammas)
+  qcoef2(f) = (tanh(f/gammas)+gammas*log(cosh((1.-f)/gammas)/cosh(f/gammas)))
+  qff(f) = max(min(f,1.), 0.)
+  qfff(f) = min(qff(f), scut)
+  qmix1(f) = (tanh((qff(f)-fmax)/gammas)+qcoef1max)/qcoef2max
+  rmix1(f) = (gammas*log(cosh((qff(f)-fmax)/gammas))+qff(f)*qcoef1max)/ &
+    qcoef2max
+  qmix2(f) = -log(1.-qfff(f))/scut
+  rmix2(f) = (qfff(f)+(1.-qff(f))*log(1.-qfff(f)))/scut
+  qmix(f) = qqa1*qmix1(f) + qqa2*qmix2(f)
+  rmix(f) = qqa1*rmix1(f) + qqa2*rmix2(f)
+
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+  ! ===========================================================================
+  ! READ IN PARAMETERS FOR THE MIXING DISTRIBUTION
+  ! AND PASS THESE THROUGH A COMMON BLOCK TO SUBROUTINE CONVECT etc.
+  ! (Written by V.T.J. Phillips, 20-30/Jan/99)
+  ! ===========================================================================
+
+  ! line 1:  a flag (0 or 1) to decide whether P(F) = 1 or the general P(F)
+  ! is to be
+  ! used, followed by SCUT, which is the cut-off value of F in CONVECT
+  ! line 2:  blank
+  ! line 3:  the coefficients for the linear combination of P(F)s to
+  ! make the general P(F)
+  ! line 4:  blank
+  ! line 5:  gammas, Fmax for the cosh^2 component of P(F)
+  ! line 6:  blank
+  ! line 7:  alphas for the 1st irrational P(F)
+  ! line 8:  blank
+  ! line 9:  betas  for the 2nd irrational P(F)
+
+
+  ! open(57,file='parameter_mix.data')
+
+  ! read(57,*) iflag_clos
+  ! read(57,*) iflag_mix, scut
+  ! read(57,*)
+  ! if(iflag_mix .gt. 0) then
+  ! read(57,*) qqa1, qqa2
+  ! read(57,*)
+  ! read(57,*) gammas, Fmax
+  ! read(57,*)
+  ! read(57,*) alphas
+  ! endif
+  ! close(57)
+
+  IF (iflag_mix>0) THEN
+
+    ! --      Normalize Pdf weights
+
+    sumcoef = qqa1 + qqa2
+    qqa1 = qqa1/sumcoef
+    qqa2 = qqa2/sumcoef
+
+    qcoef1max = qcoef1(fmax)
+    qcoef2max = qcoef2(fmax)
+
+    sigma = 0.
+    aire = 0.0
+    pdf = 0.0
+    mu = 0.0
+    df = 0.0001
+
+    ! do ff = 0.0 + df, 1.0 - 2.*df, df
+    ff = df
+    DO WHILE (ff<=1.0-2.*df)
+      pdf = (qmix(ff+df)-qmix(ff))*(1.-ff)/df
+      aire = aire + (qmix(ff+df)-qmix(ff))*(1.-ff)
+      mu = mu + pdf*ff*df
+      ! c              write(*,*) pdf,  Qmix(ff), aire, ff
+      ff = ff + df
+    END DO
+
+    ! do ff=0.0+df,1.0 - 2.*df,df
+    ff = df
+    DO WHILE (ff<=1.0-2.*df)
+      pdf = (qmix(ff+df)-qmix(ff))*(1.-ff)/df
+      sigma = sigma + pdf*(ff-mu)*(ff-mu)*df
+      ff = ff + df
+    END DO
+    sigma = sqrt(sigma)
+
+    IF (abs(aire-1.0)>0.02) THEN
+      PRINT *, 'WARNING:: AREA OF MIXING PDF IS::', aire
+      abort_message = ''
+      CALL abort_physic(modname, abort_message, 1)
+    ELSE
+      PRINT *, 'Area, mean & std deviation are ::', aire, mu, sigma
+    END IF
+  END IF !  (iflag_mix .gt. 0)
+
+  RETURN
+END SUBROUTINE cv3_inicp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_inip.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_inip.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_inip.F90	(revision 3330)
@@ -0,0 +1,146 @@
+SUBROUTINE cv3_inip()
+  ! *******************************************************************
+  ! *                                                                  *
+  ! CV3_INIP Input = choice of mixing probability laws                 *
+  !          Output = normalized coefficients of the probability laws. *
+  ! *                                                                  *
+  ! written by   : Jean-Yves Grandpeix, 06/06/2006, 19.39.27           *
+  ! modified by :                                                      *
+  ! *******************************************************************
+!
+!----------------------------------------------
+!  INPUT (from Common YOMCST2 in "YOMCST2.h") : 
+! iflag_mix
+! gammas    
+! alphas
+! betas
+! Fmax
+! scut
+!
+!----------------------------------------------
+!  INPUT/OUTPUT (from and to Common YOMCST2 in "YOMCST2.h") : 
+! qqa1
+! qqa2
+!
+!----------------------------------------------
+!  OUTPUT (to Common YOMCST2 in "YOMCST2.h") :
+! Qcoef1max
+! Qcoef2max
+!
+!----------------------------------------------
+
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+
+  include "YOMCST2.h"
+
+!----------------------------------------------
+! Local variables :
+   CHARACTER (LEN=20) :: modname = 'cv3_inip'
+   CHARACTER (LEN=80) :: abort_message
+
+   REAL               :: sumcoef
+   REAL               :: sigma, aire, pdf, mu, df
+   REAL               :: ff
+
+
+  ! --   Mixing probability distribution functions
+
+  REAL qcoef1, qcoef2, qff, qfff, qmix, rmix, qmix1, rmix1, qmix2, rmix2, f
+
+  qcoef1(f) = tanh(f/gammas)
+  qcoef2(f) = (tanh(f/gammas)+gammas*log(cosh((1.-f)/gammas)/cosh(f/gammas)))
+  qff(f) = max(min(f,1.), 0.)
+  qfff(f) = min(qff(f), scut)
+  qmix1(f) = (tanh((qff(f)-fmax)/gammas)+qcoef1max)/qcoef2max
+  rmix1(f) = (gammas*log(cosh((qff(f)-fmax)/gammas))+qff(f)*qcoef1max)/ &
+    qcoef2max
+  qmix2(f) = -log(1.-qfff(f))/scut
+  rmix2(f) = (qfff(f)+(1.-qff(f))*log(1.-qfff(f)))/scut
+  qmix(f) = qqa1*qmix1(f) + qqa2*qmix2(f)
+  rmix(f) = qqa1*rmix1(f) + qqa2*rmix2(f)
+
+  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+
+  ! ===========================================================================
+  ! READ IN PARAMETERS FOR THE MIXING DISTRIBUTION
+  ! AND PASS THESE THROUGH A COMMON BLOCK TO SUBROUTINE CONVECT etc.
+  ! (Written by V.T.J. Phillips, 20-30/Jan/99)
+  ! ===========================================================================
+
+  ! line 1:  a flag (0 or 1) to decide whether P(F) = 1 or the general P(F)
+  ! is to be
+  ! used, followed by SCUT, which is the cut-off value of F in CONVECT
+  ! line 2:  blank
+  ! line 3:  the coefficients for the linear combination of P(F)s to
+  ! make the general P(F)
+  ! line 4:  blank
+  ! line 5:  gammas, Fmax for the cosh^2 component of P(F)
+  ! line 6:  blank
+  ! line 7:  alphas for the 1st irrational P(F)
+  ! line 8:  blank
+  ! line 9:  betas  for the 2nd irrational P(F)
+
+
+  ! c$$$        open(57,file='parameter_mix.data')
+  ! c$$$
+  ! c$$$        read(57,*) iflag_mix, scut
+  ! c$$$        read(57,*)
+  ! c$$$        if(iflag_mix .gt. 0) then
+  ! c$$$	      read(57,*) qqa1, qqa2
+  ! c$$$              read(57,*)
+  ! c$$$              read(57,*) gammas, Fmax
+  ! c$$$              read(57,*)
+  ! c$$$              read(57,*) alphas
+  ! c$$$         endif
+  ! c$$$	 close(57)
+
+
+  IF (iflag_mix>0) THEN
+
+    ! --      Normalize Pdf weights
+
+    sumcoef = qqa1 + qqa2
+    qqa1 = qqa1/sumcoef
+    qqa2 = qqa2/sumcoef
+
+    qcoef1max = qcoef1(fmax)
+    qcoef2max = qcoef2(fmax)
+
+    sigma = 0.
+    aire = 0.0
+    pdf = 0.0
+    mu = 0.0
+    df = 0.0001
+
+    ! do ff = 0.0 + df, 1.0 - 2.*df, df
+    ff = df
+    DO WHILE (ff<=1.0-2.*df)
+      pdf = (qmix(ff+df)-qmix(ff))*(1.-ff)/df
+      aire = aire + (qmix(ff+df)-qmix(ff))*(1.-ff)
+      mu = mu + pdf*ff*df
+      IF (prt_level>9) WRITE (lunout, *) pdf, qmix(ff), aire, ff
+      ff = ff + df
+    END DO
+
+    ! do ff=0.0+df,1.0 - 2.*df,df
+    ff = df
+    DO WHILE (ff<=1.0-2.*df)
+      pdf = (qmix(ff+df)-qmix(ff))*(1.-ff)/df
+      sigma = sigma + pdf*(ff-mu)*(ff-mu)*df
+      ff = ff + df
+    END DO
+    sigma = sqrt(sigma)
+
+    IF (abs(aire-1.0)>0.02) THEN
+      WRITE (lunout, *) 'WARNING:: AREA OF MIXING PDF IS::', aire
+      abort_message = ''
+      CALL abort_physic(modname, abort_message, 1)
+    ELSE
+      PRINT *, 'Area, mean & std deviation are ::', aire, mu, sigma
+    END IF
+  END IF !  (iflag_mix .gt. 0)
+
+  RETURN
+END SUBROUTINE cv3_inip
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_mixscale.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_mixscale.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_mixscale.F90	(revision 3330)
@@ -0,0 +1,29 @@
+SUBROUTINE cv3_mixscale(nloc, ncum, na, ment, m)
+  ! **************************************************************
+  ! *
+  ! CV3_MIXSCALE                                                *
+  ! *
+  ! *
+  ! written by   : Jean-Yves Grandpeix, 30/05/2003, 16.34.37    *
+  ! modified by :                                               *
+  ! **************************************************************
+
+  IMPLICIT NONE
+
+  include "cv3param.h"
+
+  INTEGER nloc, ncum, na
+  INTEGER i, j, il
+  REAL ment(nloc, na, na), m(nloc, na)
+
+  DO j = 1, nl
+    DO i = 1, nl
+      DO il = 1, ncum
+        ment(il, i, j) = m(il, i)*ment(il, i, j)
+      END DO
+    END DO
+  END DO
+
+
+  RETURN
+END SUBROUTINE cv3_mixscale
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_routines.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_routines.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_routines.F90	(revision 3330)
@@ -0,0 +1,4570 @@
+
+! $Id$
+
+
+
+
+SUBROUTINE cv3_param(nd, k_upper, delt)
+
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+  use mod_phys_lmdz_para
+  IMPLICIT NONE
+
+!------------------------------------------------------------
+!Set parameters for convectL for iflag_con = 3
+!------------------------------------------------------------
+
+
+!***  PBCRIT IS THE CRITICAL CLOUD DEPTH (MB) BENEATH WHICH THE ***
+!***      PRECIPITATION EFFICIENCY IS ASSUMED TO BE ZERO     ***
+!***  PTCRIT IS THE CLOUD DEPTH (MB) ABOVE WHICH THE PRECIP. ***
+!***            EFFICIENCY IS ASSUMED TO BE UNITY            ***
+!***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
+!***  SPFAC IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE ***
+!***                        OF CLOUD                         ***
+
+![TAU: CHARACTERISTIC TIMESCALE USED TO COMPUTE ALPHA & BETA]
+!***    ALPHA AND BETA ARE PARAMETERS THAT CONTROL THE RATE OF ***
+!***                 APPROACH TO QUASI-EQUILIBRIUM           ***
+!***    (THEIR STANDARD VALUES ARE 1.0 AND 0.96, RESPECTIVELY) ***
+!***           (BETA MUST BE LESS THAN OR EQUAL TO 1)        ***
+
+!***    DTCRIT IS THE CRITICAL BUOYANCY (K) USED TO ADJUST THE ***
+!***                 APPROACH TO QUASI-EQUILIBRIUM           ***
+!***                     IT MUST BE LESS THAN 0              ***
+
+  include "cv3param.h"
+  include "conema3.h"
+
+  INTEGER, INTENT(IN)              :: nd
+  INTEGER, INTENT(IN)              :: k_upper
+  REAL, INTENT(IN)                 :: delt ! timestep (seconds)
+
+! Local variables
+  CHARACTER (LEN=20) :: modname = 'cv3_param'
+  CHARACTER (LEN=80) :: abort_message
+
+  LOGICAL, SAVE :: first = .TRUE.
+!$OMP THREADPRIVATE(first)
+
+!glb  noff: integer limit for convection (nd-noff)
+! minorig: First level of convection
+
+! -- limit levels for convection:
+
+!jyg<
+!  noff is chosen such that nl = k_upper so that upmost loops end at about 22 km
+!
+  noff = min(max(nd-k_upper, 1), (nd+1)/2)
+!!  noff = 1
+!>jyg
+  minorig = 1
+  nl = nd - noff
+  nlp = nl + 1
+  nlm = nl - 1
+
+  IF (first) THEN
+! -- "microphysical" parameters:
+! IM beg: ajout fis. reglage ep
+! CR+JYG: shedding coefficient (used when iflag_mix_adiab=1)
+! IM lu dans physiq.def via conf_phys.F90     epmax  = 0.993
+
+    omtrain = 45.0 ! used also for snow (no disctinction rain/snow)
+! -- misc:
+    dtovsh = -0.2 ! dT for overshoot
+! cc      dttrig = 5.   ! (loose) condition for triggering
+    dttrig = 10. ! (loose) condition for triggering
+    dtcrit = -2.0
+! -- end of convection
+! -- interface cloud parameterization:
+    delta = 0.01 ! cld
+! -- interface with boundary-layer (gust factor): (sb)
+    betad = 10.0 ! original value (from convect 4.3)
+
+! Var interm pour le getin
+     dpbase=-40.
+     CALL getin_p('dpbase',dpbase)
+     pbcrit=150.0
+     CALL getin_p('pbcrit',pbcrit)
+     ptcrit=500.0
+     CALL getin_p('ptcrit',ptcrit)
+     sigdz=0.01
+     CALL getin_p('sigdz',sigdz)
+     spfac=0.15
+     CALL getin_p('spfac',spfac)
+     tau=8000.
+     CALL getin_p('tau',tau)
+     flag_wb=1
+     CALL getin_p('flag_wb',flag_wb)
+     wbmax=6.
+     CALL getin_p('wbmax',wbmax)
+     ok_convstop=.False.
+     CALL getin_p('ok_convstop',ok_convstop)
+     tau_stop=15000.
+     CALL getin_p('tau_stop',tau_stop)
+     ok_intermittent=.False.
+     CALL getin_p('ok_intermittent',ok_intermittent)
+     ok_optim_yield=.False.
+     CALL getin_p('ok_optim_yield',ok_optim_yield)
+     coef_peel=0.25
+     CALL getin_p('coef_peel',coef_peel)
+
+     flag_epKEorig=1
+     CALL getin_p('flag_epKEorig',flag_epKEorig)
+     elcrit=0.0003
+     CALL getin_p('elcrit',elcrit)
+     tlcrit=-55.0
+     CALL getin_p('tlcrit',tlcrit)
+
+    WRITE (*, *) 'dpbase=', dpbase
+    WRITE (*, *) 'pbcrit=', pbcrit
+    WRITE (*, *) 'ptcrit=', ptcrit
+    WRITE (*, *) 'sigdz=', sigdz
+    WRITE (*, *) 'spfac=', spfac
+    WRITE (*, *) 'tau=', tau
+    WRITE (*, *) 'flag_wb=', flag_wb
+    WRITE (*, *) 'wbmax=', wbmax
+    WRITE (*, *) 'ok_convstop=', ok_convstop
+    WRITE (*, *) 'tau_stop=', tau_stop
+    WRITE (*, *) 'ok_intermittent=', ok_intermittent
+    WRITE (*, *) 'ok_optim_yield =', ok_optim_yield
+    WRITE (*, *) 'coef_peel=', coef_peel
+
+    WRITE (*, *) 'flag_epKEorig=', flag_epKEorig
+    WRITE (*, *) 'elcrit=', elcrit
+    WRITE (*, *) 'tlcrit=', tlcrit
+    first = .FALSE.
+  END IF ! (first)
+
+  beta = 1.0 - delt/tau
+  alpha1 = 1.5E-3
+!JYG    Correction bug alpha
+  alpha1 = alpha1*1.5
+  alpha = alpha1*delt/tau
+!JYG    Bug
+! cc increase alpha to compensate W decrease:
+! c      alpha  = alpha*1.5
+
+  noconv_stop = max(2.,tau_stop/delt)
+
+  RETURN
+END SUBROUTINE cv3_param
+
+SUBROUTINE cv3_incrcount(len, nd, delt, sig)
+
+IMPLICIT NONE
+
+! =====================================================================
+!  Increment the counter sig(nd)
+! =====================================================================
+
+  include "cv3param.h"
+
+!inputs:
+  INTEGER, INTENT(IN)                     :: len
+  INTEGER, INTENT(IN)                     :: nd
+  REAL, INTENT(IN)                        :: delt ! timestep (seconds)
+
+!input/output
+  REAL, DIMENSION(len,nd), INTENT(INOUT)  :: sig
+
+!local variables
+  INTEGER il
+
+!    print *,'cv3_incrcount : noconv_stop ',noconv_stop
+!    print *,'cv3_incrcount in, sig(1,nd) ',sig(1,nd)
+    IF(ok_convstop) THEN
+      DO il = 1, len
+        sig(il, nd) = sig(il, nd) + 1.
+        sig(il, nd) = min(sig(il,nd), noconv_stop+0.1)
+      END DO
+    ELSE
+      DO il = 1, len
+        sig(il, nd) = sig(il, nd) + 1.
+        sig(il, nd) = min(sig(il,nd), 12.1)
+      END DO
+    ENDIF  ! (ok_convstop)
+!    print *,'cv3_incrcount out, sig(1,nd) ',sig(1,nd)
+
+  RETURN
+END SUBROUTINE cv3_incrcount
+
+SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, &
+                      lv, lf, cpn, tv, gz, h, hm, th)
+  IMPLICIT NONE
+
+! =====================================================================
+! --- CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY & STATIC ENERGY
+! "ori": from convect4.3 (vectorized)
+! "convect3": to be exactly consistent with convect3
+! =====================================================================
+
+! inputs:
+  INTEGER len, nd, ndp1
+  REAL t(len, nd), q(len, nd), p(len, nd), ph(len, ndp1)
+
+! outputs:
+  REAL lv(len, nd), lf(len, nd), cpn(len, nd), tv(len, nd)
+  REAL gz(len, nd), h(len, nd), hm(len, nd)
+  REAL th(len, nd)
+
+! local variables:
+  INTEGER k, i
+  REAL rdcp
+  REAL tvx, tvy ! convect3
+  REAL cpx(len, nd)
+
+  include "cvthermo.h"
+  include "cv3param.h"
+
+
+! ori      do 110 k=1,nlp
+! abderr     do 110 k=1,nl ! convect3
+  DO k = 1, nlp
+
+    DO i = 1, len
+! debug          lv(i,k)= lv0-clmcpv*(t(i,k)-t0)
+      lv(i, k) = lv0 - clmcpv*(t(i,k)-273.15)
+      lf(i, k) = lf0 - clmci*(t(i,k)-273.15)
+      cpn(i, k) = cpd*(1.0-q(i,k)) + cpv*q(i, k)
+      cpx(i, k) = cpd*(1.0-q(i,k)) + cl*q(i, k)
+! ori          tv(i,k)=t(i,k)*(1.0+q(i,k)*epsim1)
+      tv(i, k) = t(i, k)*(1.0+q(i,k)/eps-q(i,k))
+      rdcp = (rrd*(1.-q(i,k))+q(i,k)*rrv)/cpn(i, k)
+      th(i, k) = t(i, k)*(1000.0/p(i,k))**rdcp
+    END DO
+  END DO
+
+! gz = phi at the full levels (same as p).
+
+!!  DO i = 1, len                    !jyg
+!!    gz(i, 1) = 0.0                 !jyg
+!!  END DO                           !jyg
+    gz(:,:) = 0.                     !jyg: initialization of the whole array
+! ori      do 140 k=2,nlp
+  DO k = 2, nl ! convect3
+    DO i = 1, len
+      tvx = t(i, k)*(1.+q(i,k)/eps-q(i,k))         !convect3
+      tvy = t(i, k-1)*(1.+q(i,k-1)/eps-q(i,k-1))   !convect3
+      gz(i, k) = gz(i, k-1) + 0.5*rrd*(tvx+tvy)* & !convect3
+                 (p(i,k-1)-p(i,k))/ph(i, k)        !convect3
+
+! c        print *,' gz(',k,')',gz(i,k),' tvx',tvx,' tvy ',tvy
+
+! ori         gz(i,k)=gz(i,k-1)+hrd*(tv(i,k-1)+tv(i,k))
+! ori    &         *(p(i,k-1)-p(i,k))/ph(i,k)
+    END DO
+  END DO
+
+! h  = phi + cpT (dry static energy).
+! hm = phi + cp(T-Tbase)+Lq
+
+! ori      do 170 k=1,nlp
+  DO k = 1, nl ! convect3
+    DO i = 1, len
+      h(i, k) = gz(i, k) + cpn(i, k)*t(i, k)
+      hm(i, k) = gz(i, k) + cpx(i, k)*(t(i,k)-t(i,1)) + lv(i, k)*q(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv3_prelim
+
+SUBROUTINE cv3_feed(len, nd, ok_conserv_q, &
+                    t, q, u, v, p, ph, hm, gz, &
+                    p1feed, p2feed, wght, &
+                    wghti, tnk, thnk, qnk, qsnk, unk, vnk, &
+                    cpnk, hnk, nk, icb, icbmax, iflag, gznk, plcl)
+  IMPLICIT NONE
+
+! ================================================================
+! Purpose: CONVECTIVE FEED
+
+! Main differences with cv_feed:
+! - ph added in input
+! - here, nk(i)=minorig
+! - icb defined differently (plcl compared with ph instead of p)
+
+! Main differences with convect3:
+! - we do not compute dplcldt and dplcldr of CLIFT anymore
+! - values iflag different (but tests identical)
+! - A,B explicitely defined (!...)
+! ================================================================
+
+  include "cv3param.h"
+  include "cvthermo.h"
+
+!inputs:
+  INTEGER, INTENT (IN)                               :: len, nd
+  LOGICAL, INTENT (IN)                               :: ok_conserv_q
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: t, q, p
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: u, v
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: hm, gz
+  REAL, DIMENSION (len, nd+1), INTENT (IN)           :: ph
+  REAL, DIMENSION (len), INTENT (IN)                 :: p1feed
+  REAL, DIMENSION (nd), INTENT (IN)                  :: wght
+!input-output
+  REAL, DIMENSION (len), INTENT (INOUT)              :: p2feed
+!outputs:
+  INTEGER, INTENT (OUT)                              :: icbmax
+  INTEGER, DIMENSION (len), INTENT (OUT)             :: iflag, nk, icb
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: wghti
+  REAL, DIMENSION (len), INTENT (OUT)                :: tnk, thnk, qnk, qsnk
+  REAL, DIMENSION (len), INTENT (OUT)                :: unk, vnk
+  REAL, DIMENSION (len), INTENT (OUT)                :: cpnk, hnk, gznk
+  REAL, DIMENSION (len), INTENT (OUT)                :: plcl
+
+!local variables:
+  INTEGER i, k, iter, niter
+  INTEGER ihmin(len)
+  REAL work(len)
+  REAL pup(len), plo(len), pfeed(len)
+  REAL plclup(len), plcllo(len), plclfeed(len)
+  REAL pfeedmin(len)
+  REAL posit(len)
+  LOGICAL nocond(len)
+
+!jyg20140217<
+  INTEGER iostat
+  LOGICAL, SAVE :: first
+  LOGICAL, SAVE :: ok_new_feed
+  REAL, SAVE :: dp_lcl_feed
+!$OMP THREADPRIVATE (first,ok_new_feed,dp_lcl_feed)
+  DATA first/.TRUE./
+  DATA dp_lcl_feed/2./
+
+  IF (first) THEN
+!$OMP MASTER
+    ok_new_feed = ok_conserv_q
+    OPEN (98, FILE='cv3feed_param.data', STATUS='old', FORM='formatted', IOSTAT=iostat)
+    IF (iostat==0) THEN
+      READ (98, *, END=998) ok_new_feed
+998   CONTINUE
+      CLOSE (98)
+    END IF
+    PRINT *, ' ok_new_feed: ', ok_new_feed
+    first = .FALSE.
+!$OMP END MASTER
+  END IF
+!jyg>
+! -------------------------------------------------------------------
+! --- Origin level of ascending parcels for convect3:
+! -------------------------------------------------------------------
+
+  DO i = 1, len
+    nk(i) = minorig
+    gznk(i) = gz(i, nk(i))
+  END DO
+
+! -------------------------------------------------------------------
+! --- Adjust feeding layer thickness so that lifting up to the top of
+! --- the feeding layer does not induce condensation (i.e. so that
+! --- plcl < p2feed).
+! --- Method : iterative secant method.
+! -------------------------------------------------------------------
+
+! 1- First bracketing of the solution : ph(nk+1), p2feed
+
+! 1.a- LCL associated with p2feed
+  DO i = 1, len
+    pup(i) = p2feed(i)
+  END DO
+  CALL cv3_vertmix(len, nd, iflag, p1feed, pup, p, ph, &
+                   t, q, u, v, wght, &
+                   wghti, nk, tnk, thnk, qnk, qsnk, unk, vnk, plclup)
+! 1.b- LCL associated with ph(nk+1)
+  DO i = 1, len
+    plo(i) = ph(i, nk(i)+1)
+  END DO
+  CALL cv3_vertmix(len, nd, iflag, p1feed, plo, p, ph, &
+                   t, q, u, v, wght, &
+                   wghti, nk, tnk, thnk, qnk, qsnk, unk, vnk, plcllo)
+! 2- Iterations
+  niter = 5
+  DO iter = 1, niter
+    DO i = 1, len
+      plcllo(i) = min(plo(i), plcllo(i))
+      plclup(i) = max(pup(i), plclup(i))
+      nocond(i) = plclup(i) <= pup(i)
+    END DO
+    DO i = 1, len
+      IF (nocond(i)) THEN
+        pfeed(i) = pup(i)
+      ELSE
+!JYG20140217<
+        IF (ok_new_feed) THEN
+          pfeed(i) = (pup(i)*(plo(i)-plcllo(i)-dp_lcl_feed)+  &
+                      plo(i)*(plclup(i)-pup(i)+dp_lcl_feed))/ &
+                     (plo(i)-plcllo(i)+plclup(i)-pup(i))
+        ELSE
+          pfeed(i) = (pup(i)*(plo(i)-plcllo(i))+  &
+                      plo(i)*(plclup(i)-pup(i)))/ &
+                     (plo(i)-plcllo(i)+plclup(i)-pup(i))
+        END IF
+!JYG>
+      END IF
+    END DO
+!jyg20140217<
+! For the last iteration, make sure that the top of the feeding layer
+! and LCL are not in the same layer:
+    IF (ok_new_feed) THEN
+      IF (iter==niter) THEN
+        DO i = 1,len                         !jyg
+          pfeedmin(i) = ph(i,minorig+1)      !jyg
+        ENDDO                                !jyg
+        DO k = minorig+1, nl                 !jyg
+!!        DO k = minorig, nl                 !jyg
+          DO i = 1, len
+            IF (ph(i,k)>=plclfeed(i)) pfeedmin(i) = ph(i, k)
+          END DO
+        END DO
+        DO i = 1, len
+          pfeed(i) = max(pfeedmin(i), pfeed(i))
+        END DO
+      END IF
+    END IF
+!jyg>
+
+    CALL cv3_vertmix(len, nd, iflag, p1feed, pfeed, p, ph, &
+                   t, q, u, v, wght, &
+                   wghti, nk, tnk, thnk, qnk, qsnk, unk, vnk, plclfeed)
+!jyg20140217<
+    IF (ok_new_feed) THEN
+      DO i = 1, len
+        posit(i) = (sign(1.,plclfeed(i)-pfeed(i)+dp_lcl_feed)+1.)*0.5
+        IF (plclfeed(i)-pfeed(i)+dp_lcl_feed==0.) posit(i) = 1.
+      END DO
+    ELSE
+      DO i = 1, len
+        posit(i) = (sign(1.,plclfeed(i)-pfeed(i))+1.)*0.5
+        IF (plclfeed(i)==pfeed(i)) posit(i) = 1.
+      END DO
+    END IF
+!jyg>
+    DO i = 1, len
+! - posit = 1 when lcl is below top of feeding layer (plclfeed>pfeed)
+! -               => pup=pfeed
+! - posit = 0 when lcl is above top of feeding layer (plclfeed<pfeed)
+! -               => plo=pfeed
+      pup(i) = posit(i)*pfeed(i) + (1.-posit(i))*pup(i)
+      plo(i) = (1.-posit(i))*pfeed(i) + posit(i)*plo(i)
+      plclup(i) = posit(i)*plclfeed(i) + (1.-posit(i))*plclup(i)
+      plcllo(i) = (1.-posit(i))*plclfeed(i) + posit(i)*plcllo(i)
+    END DO
+  END DO !  iter
+  DO i = 1, len
+    p2feed(i) = pfeed(i)
+    plcl(i) = plclfeed(i)
+  END DO
+
+  DO i = 1, len
+    cpnk(i) = cpd*(1.0-qnk(i)) + cpv*qnk(i)
+    hnk(i) = gz(i, 1) + cpnk(i)*tnk(i)
+  END DO
+
+! -------------------------------------------------------------------
+! --- Check whether parcel level temperature and specific humidity
+! --- are reasonable
+! -------------------------------------------------------------------
+  DO i = 1, len
+    IF (((tnk(i)<250.0) .OR. (qnk(i)<=0.0)) .AND. (iflag(i)==0)) iflag(i) = 7
+  END DO
+
+! -------------------------------------------------------------------
+! --- Calculate first level above lcl (=icb)
+! -------------------------------------------------------------------
+
+!@      do 270 i=1,len
+!@       icb(i)=nlm
+!@ 270  continue
+!@c
+!@      do 290 k=minorig,nl
+!@        do 280 i=1,len
+!@          if((k.ge.(nk(i)+1)).and.(p(i,k).lt.plcl(i)))
+!@     &    icb(i)=min(icb(i),k)
+!@ 280    continue
+!@ 290  continue
+!@c
+!@      do 300 i=1,len
+!@        if((icb(i).ge.nlm).and.(iflag(i).eq.0))iflag(i)=9
+!@ 300  continue
+
+  DO i = 1, len
+    icb(i) = nlm
+  END DO
+
+! la modification consiste a comparer plcl a ph et non a p:
+! icb est defini par :  ph(icb)<plcl<ph(icb-1)
+!@      do 290 k=minorig,nl
+  DO k = 3, nl - 1 ! modif pour que icb soit sup/egal a 2
+    DO i = 1, len
+      IF (ph(i,k)<plcl(i)) icb(i) = min(icb(i), k)
+    END DO
+  END DO
+
+
+! print*,'icb dans cv3_feed '
+! write(*,'(64i2)') icb(2:len-1)
+! call dump2d(64,43,'plcl dans cv3_feed ',plcl(2:len-1))
+
+  DO i = 1, len
+!@        if((icb(i).ge.nlm).and.(iflag(i).eq.0))iflag(i)=9
+    IF ((icb(i)==nlm) .AND. (iflag(i)==0)) iflag(i) = 9
+  END DO
+
+  DO i = 1, len
+    icb(i) = icb(i) - 1 ! icb sup ou egal a 2
+  END DO
+
+! Compute icbmax.
+
+  icbmax = 2
+  DO i = 1, len
+!!        icbmax=max(icbmax,icb(i))
+    IF (iflag(i)<7) icbmax = max(icbmax, icb(i))     ! sb Jun7th02
+  END DO
+
+  RETURN
+END SUBROUTINE cv3_feed
+
+SUBROUTINE cv3_undilute1(len, nd, t, qs, gz, plcl, p, icb, tnk, qnk, gznk, &
+                         tp, tvp, clw, icbs)
+  IMPLICIT NONE
+
+! ----------------------------------------------------------------
+! Equivalent de TLIFT entre NK et ICB+1 inclus
+
+! Differences with convect4:
+!    - specify plcl in input
+!    - icbs is the first level above LCL (may differ from icb)
+!    - in the iterations, used x(icbs) instead x(icb)
+!    - many minor differences in the iterations
+!    - tvp is computed in only one time
+!    - icbs: first level above Plcl (IMIN de TLIFT) in output
+!    - if icbs=icb, compute also tp(icb+1),tvp(icb+1) & clw(icb+1)
+! ----------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cv3param.h"
+
+! inputs:
+  INTEGER, INTENT (IN)                              :: len, nd
+  INTEGER, DIMENSION (len), INTENT (IN)             :: icb
+  REAL, DIMENSION (len, nd), INTENT (IN)            :: t, qs, gz
+  REAL, DIMENSION (len), INTENT (IN)                :: tnk, qnk, gznk
+  REAL, DIMENSION (len, nd), INTENT (IN)            :: p
+  REAL, DIMENSION (len), INTENT (IN)                :: plcl              ! convect3
+
+! outputs:
+  INTEGER, DIMENSION (len), INTENT (OUT)            :: icbs
+  REAL, DIMENSION (len, nd), INTENT (OUT)           :: tp, tvp, clw
+
+! local variables:
+  INTEGER i, k
+  INTEGER icb1(len), icbsmax2                                            ! convect3
+  REAL tg, qg, alv, s, ahg, tc, denom, es, rg
+  REAL ah0(len), cpp(len)
+  REAL ticb(len), gzicb(len)
+  REAL qsicb(len)                                                        ! convect3
+  REAL cpinv(len)                                                        ! convect3
+
+! -------------------------------------------------------------------
+! --- Calculates the lifted parcel virtual temperature at nk,
+! --- the actual temperature, and the adiabatic
+! --- liquid water content. The procedure is to solve the equation.
+!     cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+! -------------------------------------------------------------------
+
+
+! ***  Calculate certain parcel quantities, including static energy   ***
+
+  DO i = 1, len
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) + qnk(i)*(lv0-clmcpv*(tnk(i)-273.15)) + gznk(i)
+    cpp(i) = cpd*(1.-qnk(i)) + qnk(i)*cpv
+    cpinv(i) = 1./cpp(i)
+  END DO
+
+! ***   Calculate lifted parcel quantities below cloud base   ***
+
+  DO i = 1, len                                           !convect3
+    icb1(i) = min(max(icb(i), 2), nl)
+! if icb is below LCL, start loop at ICB+1:
+! (icbs est le premier niveau au-dessus du LCL)
+    icbs(i) = icb1(i)                                     !convect3
+    IF (plcl(i)<p(i,icb1(i))) THEN
+      icbs(i) = min(icbs(i)+1, nl)                        !convect3
+    END IF
+  END DO                                                  !convect3
+
+  DO i = 1, len !convect3
+    ticb(i) = t(i, icbs(i))                               !convect3
+    gzicb(i) = gz(i, icbs(i))                             !convect3
+    qsicb(i) = qs(i, icbs(i))                             !convect3
+  END DO !convect3
+
+
+! Re-compute icbsmax (icbsmax2):                          !convect3
+!                                                         !convect3
+  icbsmax2 = 2                                            !convect3
+  DO i = 1, len                                           !convect3
+    icbsmax2 = max(icbsmax2, icbs(i))                     !convect3
+  END DO                                                  !convect3
+
+! initialization outputs:
+
+  DO k = 1, icbsmax2                                      ! convect3
+    DO i = 1, len                                         ! convect3
+      tp(i, k) = 0.0                                      ! convect3
+      tvp(i, k) = 0.0                                     ! convect3
+      clw(i, k) = 0.0                                     ! convect3
+    END DO                                                ! convect3
+  END DO                                                  ! convect3
+
+! tp and tvp below cloud base:
+
+  DO k = minorig, icbsmax2 - 1
+    DO i = 1, len
+      tp(i, k) = tnk(i) - (gz(i,k)-gznk(i))*cpinv(i)
+      tvp(i, k) = tp(i, k)*(1.+qnk(i)/eps-qnk(i))        !whole thing (convect3)
+    END DO
+  END DO
+
+! ***  Find lifted parcel quantities above cloud base    ***
+
+  DO i = 1, len
+    tg = ticb(i)
+! ori         qg=qs(i,icb(i))
+    qg = qsicb(i) ! convect3
+! debug         alv=lv0-clmcpv*(ticb(i)-t0)
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+! First iteration.
+
+! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    s = cpd*(1.-qnk(i)) + cl*qnk(i) + &                   ! convect3
+        alv*alv*qg/(rrv*ticb(i)*ticb(i))                  ! convect3
+    s = 1./s
+! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i) ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+! ori          tg=max(tg,35.0)
+! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0) ! convect3
+! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+! ori          else
+! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+! ori          endif
+! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icbs(i))-es*(1.-eps))
+
+! Second iteration.
+
+
+! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+! ori          s=1./s
+! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i) ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+! ori          tg=max(tg,35.0)
+! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0)                               ! convect3
+! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+! ori          else
+! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+! ori          end if
+! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icbs(i))-es*(1.-eps))
+
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+! ori c approximation here:
+! ori         tp(i,icb(i))=(ah0(i)-(cl-cpd)*qnk(i)*ticb(i)
+! ori     &   -gz(i,icb(i))-alv*qg)/cpd
+
+! convect3: no approximation:
+    tp(i, icbs(i)) = (ah0(i)-gz(i,icbs(i))-alv*qg)/(cpd+(cl-cpd)*qnk(i))
+
+! ori         clw(i,icb(i))=qnk(i)-qg
+! ori         clw(i,icb(i))=max(0.0,clw(i,icb(i)))
+    clw(i, icbs(i)) = qnk(i) - qg
+    clw(i, icbs(i)) = max(0.0, clw(i,icbs(i)))
+
+    rg = qg/(1.-qnk(i))
+! ori         tvp(i,icb(i))=tp(i,icb(i))*(1.+rg*epsi)
+! convect3: (qg utilise au lieu du vrai mixing ratio rg)
+    tvp(i, icbs(i)) = tp(i, icbs(i))*(1.+qg/eps-qnk(i))   !whole thing
+
+  END DO
+
+! ori      do 380 k=minorig,icbsmax2
+! ori       do 370 i=1,len
+! ori         tvp(i,k)=tvp(i,k)-tp(i,k)*qnk(i)
+! ori 370   continue
+! ori 380  continue
+
+
+! -- The following is only for convect3:
+
+! * icbs is the first level above the LCL:
+! if plcl<p(icb), then icbs=icb+1
+! if plcl>p(icb), then icbs=icb
+
+! * the routine above computes tvp from minorig to icbs (included).
+
+! * to compute buoybase (in cv3_trigger.F), both tvp(icb) and tvp(icb+1)
+! must be known. This is the case if icbs=icb+1, but not if icbs=icb.
+
+! * therefore, in the case icbs=icb, we compute tvp at level icb+1
+! (tvp at other levels will be computed in cv3_undilute2.F)
+
+
+  DO i = 1, len
+    ticb(i) = t(i, icb(i)+1)
+    gzicb(i) = gz(i, icb(i)+1)
+    qsicb(i) = qs(i, icb(i)+1)
+  END DO
+
+  DO i = 1, len
+    tg = ticb(i)
+    qg = qsicb(i) ! convect3
+! debug         alv=lv0-clmcpv*(ticb(i)-t0)
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+! First iteration.
+
+! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    s = cpd*(1.-qnk(i)) + cl*qnk(i) &                         ! convect3
+      +alv*alv*qg/(rrv*ticb(i)*ticb(i))                       ! convect3
+    s = 1./s
+! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i)     ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+! ori          tg=max(tg,35.0)
+! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0)                                   ! convect3
+! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+! ori          else
+! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+! ori          endif
+! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icb(i)+1)-es*(1.-eps))
+
+! Second iteration.
+
+
+! ori          s=cpd+alv*alv*qg/(rrv*ticb(i)*ticb(i))
+! ori          s=1./s
+! ori          ahg=cpd*tg+(cl-cpd)*qnk(i)*ticb(i)+alv*qg+gzicb(i)
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gzicb(i)     ! convect3
+    tg = tg + s*(ah0(i)-ahg)
+! ori          tg=max(tg,35.0)
+! debug          tc=tg-t0
+    tc = tg - 273.15
+    denom = 243.5 + tc
+    denom = max(denom, 1.0)                                   ! convect3
+! ori          if(tc.ge.0.0)then
+    es = 6.112*exp(17.67*tc/denom)
+! ori          else
+! ori           es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+! ori          end if
+! ori          qg=eps*es/(p(i,icb(i))-es*(1.-eps))
+    qg = eps*es/(p(i,icb(i)+1)-es*(1.-eps))
+
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+
+! ori c approximation here:
+! ori         tp(i,icb(i))=(ah0(i)-(cl-cpd)*qnk(i)*ticb(i)
+! ori     &   -gz(i,icb(i))-alv*qg)/cpd
+
+! convect3: no approximation:
+    tp(i, icb(i)+1) = (ah0(i)-gz(i,icb(i)+1)-alv*qg)/(cpd+(cl-cpd)*qnk(i))
+
+! ori         clw(i,icb(i))=qnk(i)-qg
+! ori         clw(i,icb(i))=max(0.0,clw(i,icb(i)))
+    clw(i, icb(i)+1) = qnk(i) - qg
+    clw(i, icb(i)+1) = max(0.0, clw(i,icb(i)+1))
+
+    rg = qg/(1.-qnk(i))
+! ori         tvp(i,icb(i))=tp(i,icb(i))*(1.+rg*epsi)
+! convect3: (qg utilise au lieu du vrai mixing ratio rg)
+    tvp(i, icb(i)+1) = tp(i, icb(i)+1)*(1.+qg/eps-qnk(i))     !whole thing
+
+  END DO
+
+  RETURN
+END SUBROUTINE cv3_undilute1
+
+SUBROUTINE cv3_trigger(len, nd, icb, plcl, p, th, tv, tvp, thnk, &
+                       pbase, buoybase, iflag, sig, w0)
+  IMPLICIT NONE
+
+! -------------------------------------------------------------------
+! --- TRIGGERING
+
+! - computes the cloud base
+! - triggering (crude in this version)
+! - relaxation of sig and w0 when no convection
+
+! Caution1: if no convection, we set iflag=4
+! (it used to be 0 in convect3)
+
+! Caution2: at this stage, tvp (and thus buoy) are know up
+! through icb only!
+! -> the buoyancy below cloud base not (yet) set to the cloud base buoyancy
+! -------------------------------------------------------------------
+
+  include "cv3param.h"
+
+! input:
+  INTEGER len, nd
+  INTEGER icb(len)
+  REAL plcl(len), p(len, nd)
+  REAL th(len, nd), tv(len, nd), tvp(len, nd)
+  REAL thnk(len)
+
+! output:
+  REAL pbase(len), buoybase(len)
+
+! input AND output:
+  INTEGER iflag(len)
+  REAL sig(len, nd), w0(len, nd)
+
+! local variables:
+  INTEGER i, k
+  REAL tvpbase, tvbase, tdif, ath, ath1
+
+
+! ***   set cloud base buoyancy at (plcl+dpbase) level buoyancy
+
+  DO i = 1, len
+    pbase(i) = plcl(i) + dpbase
+    tvpbase = tvp(i, icb(i))  *(pbase(i)-p(i,icb(i)+1))/(p(i,icb(i))-p(i,icb(i)+1)) + &
+              tvp(i, icb(i)+1)*(p(i,icb(i))-pbase(i))  /(p(i,icb(i))-p(i,icb(i)+1))
+    tvbase = tv(i, icb(i))  *(pbase(i)-p(i,icb(i)+1))/(p(i,icb(i))-p(i,icb(i)+1)) + &
+             tv(i, icb(i)+1)*(p(i,icb(i))-pbase(i))  /(p(i,icb(i))-p(i,icb(i)+1))
+    buoybase(i) = tvpbase - tvbase
+  END DO
+
+
+! ***   make sure that column is dry adiabatic between the surface  ***
+! ***    and cloud base, and that lifted air is positively buoyant  ***
+! ***                         at cloud base                         ***
+! ***       if not, return to calling program after resetting       ***
+! ***                        sig(i) and w0(i)                       ***
+
+
+! oct3      do 200 i=1,len
+! oct3
+! oct3       tdif = buoybase(i)
+! oct3       ath1 = th(i,1)
+! oct3       ath  = th(i,icb(i)-1) - dttrig
+! oct3
+! oct3       if (tdif.lt.dtcrit .or. ath.gt.ath1) then
+! oct3         do 60 k=1,nl
+! oct3            sig(i,k) = beta*sig(i,k) - 2.*alpha*tdif*tdif
+! oct3            sig(i,k) = AMAX1(sig(i,k),0.0)
+! oct3            w0(i,k)  = beta*w0(i,k)
+! oct3   60    continue
+! oct3         iflag(i)=4 ! pour version vectorisee
+! oct3c convect3         iflag(i)=0
+! oct3cccc         return
+! oct3       endif
+! oct3
+! oct3200   continue
+
+! -- oct3: on reecrit la boucle 200 (pour la vectorisation)
+
+  DO k = 1, nl
+    DO i = 1, len
+
+      tdif = buoybase(i)
+      ath1 = thnk(i)
+      ath = th(i, icb(i)-1) - dttrig
+
+      IF (tdif<dtcrit .OR. ath>ath1) THEN
+        sig(i, k) = beta*sig(i, k) - 2.*alpha*tdif*tdif
+        sig(i, k) = amax1(sig(i,k), 0.0)
+        w0(i, k) = beta*w0(i, k)
+        iflag(i) = 4 ! pour version vectorisee
+! convect3         iflag(i)=0
+      END IF
+
+    END DO
+  END DO
+
+! fin oct3 --
+
+  RETURN
+END SUBROUTINE cv3_trigger
+
+SUBROUTINE cv3_compress(len, nloc, ncum, nd, ntra, &
+                        iflag1, nk1, icb1, icbs1, &
+                        plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, &
+                        t1, q1, qs1, u1, v1, gz1, th1, &
+                        tra1, &
+                        h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &
+                        sig1, w01, &
+                        iflag, nk, icb, icbs, &
+                        plcl, tnk, qnk, gznk, pbase, buoybase, &
+                        t, q, qs, u, v, gz, th, &
+                        tra, &
+                        h, lv, cpn, p, ph, tv, tp, tvp, clw, &
+                        sig, w0)
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+
+  include "cv3param.h"
+
+!inputs:
+  INTEGER len, ncum, nd, ntra, nloc
+  INTEGER iflag1(len), nk1(len), icb1(len), icbs1(len)
+  REAL plcl1(len), tnk1(len), qnk1(len), gznk1(len)
+  REAL pbase1(len), buoybase1(len)
+  REAL t1(len, nd), q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)
+  REAL gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)
+  REAL p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)
+  REAL tvp1(len, nd), clw1(len, nd)
+  REAL th1(len, nd)
+  REAL sig1(len, nd), w01(len, nd)
+  REAL tra1(len, nd, ntra)
+
+!outputs:
+! en fait, on a nloc=len pour l'instant (cf cv_driver)
+  INTEGER iflag(nloc), nk(nloc), icb(nloc), icbs(nloc)
+  REAL plcl(nloc), tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL pbase(nloc), buoybase(nloc)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd), u(nloc, nd), v(nloc, nd)
+  REAL gz(nloc, nd), h(nloc, nd), lv(nloc, nd), cpn(nloc, nd)
+  REAL p(nloc, nd), ph(nloc, nd+1), tv(nloc, nd), tp(nloc, nd)
+  REAL tvp(nloc, nd), clw(nloc, nd)
+  REAL th(nloc, nd)
+  REAL sig(nloc, nd), w0(nloc, nd)
+  REAL tra(nloc, nd, ntra)
+
+!local variables:
+  INTEGER i, k, nn, j
+
+  CHARACTER (LEN=20) :: modname = 'cv3_compress'
+  CHARACTER (LEN=80) :: abort_message
+
+  DO k = 1, nl + 1
+    nn = 0
+    DO i = 1, len
+      IF (iflag1(i)==0) THEN
+        nn = nn + 1
+        sig(nn, k) = sig1(i, k)
+        w0(nn, k) = w01(i, k)
+        t(nn, k) = t1(i, k)
+        q(nn, k) = q1(i, k)
+        qs(nn, k) = qs1(i, k)
+        u(nn, k) = u1(i, k)
+        v(nn, k) = v1(i, k)
+        gz(nn, k) = gz1(i, k)
+        h(nn, k) = h1(i, k)
+        lv(nn, k) = lv1(i, k)
+        cpn(nn, k) = cpn1(i, k)
+        p(nn, k) = p1(i, k)
+        ph(nn, k) = ph1(i, k)
+        tv(nn, k) = tv1(i, k)
+        tp(nn, k) = tp1(i, k)
+        tvp(nn, k) = tvp1(i, k)
+        clw(nn, k) = clw1(i, k)
+        th(nn, k) = th1(i, k)
+      END IF
+    END DO
+  END DO
+
+!AC!      do 121 j=1,ntra
+!AC!ccccc      do 111 k=1,nl+1
+!AC!      do 111 k=1,nd
+!AC!       nn=0
+!AC!      do 101 i=1,len
+!AC!      if(iflag1(i).eq.0)then
+!AC!       nn=nn+1
+!AC!       tra(nn,k,j)=tra1(i,k,j)
+!AC!      endif
+!AC! 101  continue
+!AC! 111  continue
+!AC! 121  continue
+
+  IF (nn/=ncum) THEN
+    WRITE (lunout, *) 'strange! nn not equal to ncum: ', nn, ncum
+    abort_message = ''
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+
+  nn = 0
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      nn = nn + 1
+      pbase(nn) = pbase1(i)
+      buoybase(nn) = buoybase1(i)
+      plcl(nn) = plcl1(i)
+      tnk(nn) = tnk1(i)
+      qnk(nn) = qnk1(i)
+      gznk(nn) = gznk1(i)
+      nk(nn) = nk1(i)
+      icb(nn) = icb1(i)
+      icbs(nn) = icbs1(i)
+      iflag(nn) = iflag1(i)
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE cv3_compress
+
+SUBROUTINE icefrac(t, clw, qi, nl, len)
+  IMPLICIT NONE
+
+
+!JAM--------------------------------------------------------------------
+! 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 k, i
+
+  DO k = 3, nl
+    DO i = 1, len
+      IF (t(i,k)>263.15) THEN
+        qi(i, k) = 0.
+      ELSE
+        IF (t(i,k)<243.15) THEN
+          qi(i, k) = clw(i, k)
+        ELSE
+          fracg = (263.15-t(i,k))/20
+          qi(i, k) = clw(i, k)*fracg
+        END IF
+      END IF
+! print*,t(i,k),qi(i,k),'temp,testglace'
+    END DO
+  END DO
+
+  RETURN
+
+END SUBROUTINE icefrac
+
+SUBROUTINE cv3_undilute2(nloc, ncum, nd, icb, icbs, nk, &
+                         tnk, qnk, gznk, hnk, t, q, qs, gz, &
+                         p, ph, h, tv, lv, lf, pbase, buoybase, plcl, &
+                         inb, tp, tvp, clw, hp, ep, sigp, buoy, frac)
+  IMPLICIT NONE
+
+! ---------------------------------------------------------------------
+! Purpose:
+! FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+! &
+! COMPUTE THE PRECIPITATION EFFICIENCIES AND THE
+! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
+! &
+! FIND THE LEVEL OF NEUTRAL BUOYANCY
+
+! Main differences convect3/convect4:
+!   - icbs (input) is the first level above LCL (may differ from icb)
+!   - many minor differences in the iterations
+!   - condensed water not removed from tvp in convect3
+!   - vertical profile of buoyancy computed here (use of buoybase)
+!   - the determination of inb is different
+!   - no inb1, only inb in output
+! ---------------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "conema3.h"
+  include "cvflag.h"
+  include "YOMCST2.h"
+
+!inputs:
+  INTEGER, INTENT (IN)                               :: ncum, nd, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, icbs, nk
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t, q, qs, gz
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: p
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+  REAL, DIMENSION (nloc), INTENT (IN)                :: tnk, qnk, gznk
+  REAL, DIMENSION (nloc), INTENT (IN)                :: hnk
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: lv, lf, tv, h
+  REAL, DIMENSION (nloc), INTENT (IN)                :: pbase, buoybase, plcl
+
+!input/outputs:
+  REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: tp, tvp, clw   ! Input for k = 1, icb+1 (computed in cv3_undilute1)
+                                                                       ! Output above
+
+!outputs:
+  INTEGER, DIMENSION (nloc), INTENT (OUT)            :: inb
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: ep, sigp, hp
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: buoy
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: frac
+
+!local variables:
+  INTEGER i, j, k
+  REAL tg, qg, ahg, alv, alf, s, tc, es, esi, denom, rg, tca, elacrit
+  REAL als
+  REAL qsat_new, snew, qi(nloc, nd)
+  REAL by, defrac, pden, tbis
+  REAL ah0(nloc), cape(nloc), capem(nloc), byp(nloc)
+  LOGICAL lcape(nloc)
+  INTEGER iposit(nloc)
+  REAL fracg
+  REAL deltap
+
+! =====================================================================
+! --- SOME INITIALIZATIONS
+! =====================================================================
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      qi(i, k) = 0.
+    END DO
+  END DO
+
+! =====================================================================
+! --- FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+! =====================================================================
+
+! ---       The procedure is to solve the equation.
+!                cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+
+! ***  Calculate certain parcel quantities, including static energy   ***
+
+
+  DO i = 1, ncum
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i)+ & 
+! debug          qnk(i)*(lv0-clmcpv*(tnk(i)-t0))+gznk(i)
+             qnk(i)*(lv0-clmcpv*(tnk(i)-273.15)) + gznk(i)
+  END DO
+
+
+! ***  Find lifted parcel quantities above cloud base    ***
+
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+! ori	    if(k.ge.(icb(i)+1))then
+      IF (k>=(icbs(i)+1)) THEN                                ! convect3
+        tg = t(i, k)
+        qg = qs(i, k)
+! debug	      alv=lv0-clmcpv*(t(i,k)-t0)
+        alv = lv0 - clmcpv*(t(i,k)-273.15)
+
+! First iteration.
+
+! ori	       s=cpd+alv*alv*qg/(rrv*t(i,k)*t(i,k))
+        s = cpd*(1.-qnk(i)) + cl*qnk(i) + &                   ! convect3
+            alv*alv*qg/(rrv*t(i,k)*t(i,k))                    ! convect3
+        s = 1./s
+! ori	       ahg=cpd*tg+(cl-cpd)*qnk(i)*t(i,k)+alv*qg+gz(i,k)
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gz(i, k) ! convect3
+        tg = tg + s*(ah0(i)-ahg)
+! ori	       tg=max(tg,35.0)
+! debug	       tc=tg-t0
+        tc = tg - 273.15
+        denom = 243.5 + tc
+        denom = max(denom, 1.0)                               ! convect3
+! ori	       if(tc.ge.0.0)then
+        es = 6.112*exp(17.67*tc/denom)
+! ori	       else
+! ori			es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+! ori	       endif
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+! Second iteration.
+
+! ori	       s=cpd+alv*alv*qg/(rrv*t(i,k)*t(i,k))
+! ori	       s=1./s
+! ori	       ahg=cpd*tg+(cl-cpd)*qnk(i)*t(i,k)+alv*qg+gz(i,k)
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*tg + alv*qg + gz(i, k) ! convect3
+        tg = tg + s*(ah0(i)-ahg)
+! ori	       tg=max(tg,35.0)
+! debug	       tc=tg-t0
+        tc = tg - 273.15
+        denom = 243.5 + tc
+        denom = max(denom, 1.0)                               ! convect3
+! ori	       if(tc.ge.0.0)then
+        es = 6.112*exp(17.67*tc/denom)
+! ori	       else
+! ori			es=exp(23.33086-6111.72784/tg+0.15215*log(tg))
+! ori	       endif
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+! debug	       alv=lv0-clmcpv*(t(i,k)-t0)
+        alv = lv0 - clmcpv*(t(i,k)-273.15)
+! print*,'cpd dans convect2 ',cpd
+! print*,'tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd'
+! print*,tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd
+
+! ori c approximation here:
+! ori        tp(i,k)=(ah0(i)-(cl-cpd)*qnk(i)*t(i,k)-gz(i,k)-alv*qg)/cpd
+
+! convect3: no approximation:
+        IF (cvflag_ice) THEN
+          tp(i, k) = max(0., (ah0(i)-gz(i,k)-alv*qg)/(cpd+(cl-cpd)*qnk(i)))
+        ELSE
+          tp(i, k) = (ah0(i)-gz(i,k)-alv*qg)/(cpd+(cl-cpd)*qnk(i))
+        END IF
+
+        clw(i, k) = qnk(i) - qg
+        clw(i, k) = max(0.0, clw(i,k))
+        rg = qg/(1.-qnk(i))
+! ori               tvp(i,k)=tp(i,k)*(1.+rg*epsi)
+! convect3: (qg utilise au lieu du vrai mixing ratio rg):
+        tvp(i, k) = tp(i, k)*(1.+qg/eps-qnk(i)) ! whole thing
+        IF (cvflag_ice) THEN
+          IF (clw(i,k)<1.E-11) THEN
+            tp(i, k) = tv(i, k)
+            tvp(i, k) = tv(i, k)
+          END IF
+        END IF
+!jyg<
+!!      END IF  ! Endif moved to the end of the loop
+!>jyg
+
+      IF (cvflag_ice) THEN
+!CR:attention boucle en klon dans Icefrac
+! Call Icefrac(t,clw,qi,nl,nloc)
+        IF (t(i,k)>263.15) THEN
+          qi(i, k) = 0.
+        ELSE
+          IF (t(i,k)<243.15) THEN
+            qi(i, k) = clw(i, k)
+          ELSE
+            fracg = (263.15-t(i,k))/20
+            qi(i, k) = clw(i, k)*fracg
+          END IF
+        END IF
+!CR: fin test
+        IF (t(i,k)<263.15) THEN
+!CR: on commente les calculs d'Arnaud car division par zero
+! nouveau calcul propose par JYG
+!       alv=lv0-clmcpv*(t(i,k)-273.15)
+!       alf=lf0-clmci*(t(i,k)-273.15)
+!       tg=tp(i,k)
+!       tc=tp(i,k)-273.15
+!       denom=243.5+tc
+!       do j=1,3
+! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+! il faudra que esi vienne en argument de la convection
+! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+!        tbis=t(i,k)+(tp(i,k)-tg)
+!        esi=exp(23.33086-(6111.72784/tbis) + &
+!                       0.15215*log(tbis))
+!        qsat_new=eps*esi/(p(i,k)-esi*(1.-eps))
+!        snew=cpd*(1.-qnk(i))+cl*qnk(i)+alv*alv*qsat_new/ &
+!                                       (rrv*tbis*tbis)
+!        snew=1./snew
+!        print*,esi,qsat_new,snew,'esi,qsat,snew'
+!        tp(i,k)=tg+(alf*qi(i,k)+alv*qg*(1.-(esi/es)))*snew
+!        print*,k,tp(i,k),qnk(i),'avec glace'
+!        print*,'tpNAN',tg,alf,qi(i,k),alv,qg,esi,es,snew
+!       enddo
+
+          alv = lv0 - clmcpv*(t(i,k)-273.15)
+          alf = lf0 + clmci*(t(i,k)-273.15)
+          als = alf + alv
+          tg = tp(i, k)
+          tp(i, k) = t(i, k)
+          DO j = 1, 3
+            esi = exp(23.33086-(6111.72784/tp(i,k))+0.15215*log(tp(i,k)))
+            qsat_new = eps*esi/(p(i,k)-esi*(1.-eps))
+            snew = cpd*(1.-qnk(i)) + cl*qnk(i) + alv*als*qsat_new/ &
+                                                 (rrv*tp(i,k)*tp(i,k))
+            snew = 1./snew
+! c             print*,esi,qsat_new,snew,'esi,qsat,snew'
+            tp(i, k) = tp(i, k) + &
+                       ((cpd*(1.-qnk(i))+cl*qnk(i))*(tg-tp(i,k)) + &
+                        alv*(qg-qsat_new)+alf*qi(i,k))*snew
+! print*,k,tp(i,k),qsat_new,qnk(i),qi(i,k), &
+!              'k,tp,q,qt,qi avec glace'
+          END DO
+
+!CR:reprise du code AJ
+          clw(i, k) = qnk(i) - qsat_new
+          clw(i, k) = max(0.0, clw(i,k))
+          tvp(i, k) = max(0., tp(i,k)*(1.+qsat_new/eps-qnk(i)))
+! print*,tvp(i,k),'tvp'
+        END IF
+        IF (clw(i,k)<1.E-11) THEN
+          tp(i, k) = tv(i, k)
+          tvp(i, k) = tv(i, k)
+        END IF
+      END IF ! (cvflag_ice)
+!jyg<
+      END IF ! (k>=(icbs(i)+1))
+!>jyg
+    END DO
+  END DO
+
+! =====================================================================
+! --- SET THE PRECIPITATION EFFICIENCIES AND THE FRACTION OF
+! --- PRECIPITATION FALLING OUTSIDE OF CLOUD
+! --- THESE MAY BE FUNCTIONS OF TP(I), P(I) AND CLW(I)
+! =====================================================================
+!
+!jyg<
+  DO k = 1, nl
+    DO i = 1, ncum
+      ep(i, k) = 0.0
+      sigp(i, k) = spfac
+    END DO
+  END DO
+!>jyg
+!
+  IF (flag_epkeorig/=1) THEN
+    DO k = 1, nl ! convect3
+      DO i = 1, ncum
+!jyg<
+       IF(k>=icb(i)) THEN
+!>jyg
+         pden = ptcrit - pbcrit
+         ep(i, k) = (plcl(i)-p(i,k)-pbcrit)/pden*epmax
+         ep(i, k) = max(ep(i,k), 0.0)
+         ep(i, k) = min(ep(i,k), epmax)
+!!         sigp(i, k) = spfac  ! jyg
+        ENDIF   ! (k>=icb(i))
+      END DO
+    END DO
+  ELSE
+    DO k = 1, nl
+      DO i = 1, ncum
+        IF(k>=icb(i)) THEN
+!!        IF (k>=(nk(i)+1)) THEN
+!>jyg
+          tca = tp(i, k) - t0
+          IF (tca>=0.0) THEN
+            elacrit = elcrit
+          ELSE
+            elacrit = elcrit*(1.0-tca/tlcrit)
+          END IF
+          elacrit = max(elacrit, 0.0)
+          ep(i, k) = 1.0 - elacrit/max(clw(i,k), 1.0E-8)
+          ep(i, k) = max(ep(i,k), 0.0)
+          ep(i, k) = min(ep(i,k), epmax)
+!!          sigp(i, k) = spfac  ! jyg
+        END IF  ! (k>=icb(i))
+      END DO
+    END DO
+  END IF
+!
+! =====================================================================
+! --- CALCULATE VIRTUAL TEMPERATURE AND LIFTED PARCEL
+! --- VIRTUAL TEMPERATURE
+! =====================================================================
+
+! dans convect3, tvp est calcule en une seule fois, et sans retirer
+! l'eau condensee (~> reversible CAPE)
+
+! ori      do 340 k=minorig+1,nl
+! ori        do 330 i=1,ncum
+! ori        if(k.ge.(icb(i)+1))then
+! ori          tvp(i,k)=tvp(i,k)*(1.0-qnk(i)+ep(i,k)*clw(i,k))
+! oric         print*,'i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)'
+! oric         print*, i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)
+! ori        endif
+! ori 330    continue
+! ori 340  continue
+
+! ori      do 350 i=1,ncum
+! ori       tvp(i,nlp)=tvp(i,nl)-(gz(i,nlp)-gz(i,nl))/cpd
+! ori 350  continue
+
+  DO i = 1, ncum                                           ! convect3
+    tp(i, nlp) = tp(i, nl)                                 ! convect3
+  END DO                                                   ! convect3
+
+! =====================================================================
+! --- EFFECTIVE VERTICAL PROFILE OF BUOYANCY (convect3 only):
+! =====================================================================
+
+! -- this is for convect3 only:
+
+! first estimate of buoyancy:
+
+!jyg : k-loop outside i-loop (07042015)
+  DO k = 1, nl
+    DO i = 1, ncum
+      buoy(i, k) = tvp(i, k) - tv(i, k)
+    END DO
+  END DO
+
+! set buoyancy=buoybase for all levels below base
+! for safety, set buoy(icb)=buoybase
+
+!jyg : k-loop outside i-loop (07042015)
+  DO k = 1, nl
+    DO i = 1, ncum
+      IF ((k>=icb(i)) .AND. (k<=nl) .AND. (p(i,k)>=pbase(i))) THEN
+        buoy(i, k) = buoybase(i)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+!    buoy(icb(i),k)=buoybase(i)
+    buoy(i, icb(i)) = buoybase(i)
+  END DO
+
+! -- end convect3
+
+! =====================================================================
+! --- FIND THE FIRST MODEL LEVEL (INB) ABOVE THE PARCEL'S
+! --- LEVEL OF NEUTRAL BUOYANCY
+! =====================================================================
+
+! -- this is for convect3 only:
+
+  DO i = 1, ncum
+    inb(i) = nl - 1
+    iposit(i) = nl
+  END DO
+
+
+! --    iposit(i) = first level, above icb, with positive buoyancy
+  DO k = 1, nl - 1
+    DO i = 1, ncum
+      IF (k>=icb(i) .AND. buoy(i,k)>0.) THEN
+        iposit(i) = min(iposit(i), k)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    IF (iposit(i)==nl) THEN
+      iposit(i) = icb(i)
+    END IF
+  END DO
+
+  DO k = 1, nl - 1
+    DO i = 1, ncum
+      IF ((k>=iposit(i)) .AND. (buoy(i,k)<dtovsh)) THEN
+        inb(i) = min(inb(i), k)
+      END IF
+    END DO
+  END DO
+
+!CR fix computation of inb
+!keep flag or modify in all cases?
+  IF (iflag_mix_adiab.eq.1) THEN
+  DO i = 1, ncum
+     cape(i)=0.
+     inb(i)=icb(i)+1
+  ENDDO
+  
+  DO k = 2, nl 
+    DO i = 1, ncum
+       IF ((k>=iposit(i))) THEN
+       deltap = min(plcl(i), ph(i,k-1)) - min(plcl(i), ph(i,k))
+       cape(i) = cape(i) + rrd*buoy(i, k-1)*deltap/p(i, k-1)
+       IF (cape(i).gt.0.) THEN
+        inb(i) = max(inb(i), k)
+       END IF
+       ENDIF
+    ENDDO
+  ENDDO
+
+!  DO i = 1, ncum
+!     print*,"inb",inb(i)
+!  ENDDO
+
+  endif
+
+! -- end convect3
+
+! ori      do 510 i=1,ncum
+! ori        cape(i)=0.0
+! ori        capem(i)=0.0
+! ori        inb(i)=icb(i)+1
+! ori        inb1(i)=inb(i)
+! ori 510  continue
+
+! Originial Code
+
+!    do 530 k=minorig+1,nl-1
+!     do 520 i=1,ncum
+!      if(k.ge.(icb(i)+1))then
+!       by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+!       byp=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+!       cape(i)=cape(i)+by
+!       if(by.ge.0.0)inb1(i)=k+1
+!       if(cape(i).gt.0.0)then
+!        inb(i)=k+1
+!        capem(i)=cape(i)
+!       endif
+!      endif
+!520    continue
+!530  continue
+!    do 540 i=1,ncum
+!     byp=(tvp(i,nl)-tv(i,nl))*dph(i,nl)/p(i,nl)
+!     cape(i)=capem(i)+byp
+!     defrac=capem(i)-cape(i)
+!     defrac=max(defrac,0.001)
+!     frac(i)=-cape(i)/defrac
+!     frac(i)=min(frac(i),1.0)
+!     frac(i)=max(frac(i),0.0)
+!540   continue
+
+!    K Emanuel fix
+
+!    call zilch(byp,ncum)
+!    do 530 k=minorig+1,nl-1
+!     do 520 i=1,ncum
+!      if(k.ge.(icb(i)+1))then
+!       by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+!       cape(i)=cape(i)+by
+!       if(by.ge.0.0)inb1(i)=k+1
+!       if(cape(i).gt.0.0)then
+!        inb(i)=k+1
+!        capem(i)=cape(i)
+!        byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+!       endif
+!      endif
+!520    continue
+!530  continue
+!    do 540 i=1,ncum
+!     inb(i)=max(inb(i),inb1(i))
+!     cape(i)=capem(i)+byp(i)
+!     defrac=capem(i)-cape(i)
+!     defrac=max(defrac,0.001)
+!     frac(i)=-cape(i)/defrac
+!     frac(i)=min(frac(i),1.0)
+!     frac(i)=max(frac(i),0.0)
+!540   continue
+
+! J Teixeira fix
+
+! ori      call zilch(byp,ncum)
+! ori      do 515 i=1,ncum
+! ori        lcape(i)=.true.
+! ori 515  continue
+! ori      do 530 k=minorig+1,nl-1
+! ori        do 520 i=1,ncum
+! ori          if(cape(i).lt.0.0)lcape(i)=.false.
+! ori          if((k.ge.(icb(i)+1)).and.lcape(i))then
+! ori            by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+! ori            byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+! ori            cape(i)=cape(i)+by
+! ori            if(by.ge.0.0)inb1(i)=k+1
+! ori            if(cape(i).gt.0.0)then
+! ori              inb(i)=k+1
+! ori              capem(i)=cape(i)
+! ori            endif
+! ori          endif
+! ori 520    continue
+! ori 530  continue
+! ori      do 540 i=1,ncum
+! ori          cape(i)=capem(i)+byp(i)
+! ori          defrac=capem(i)-cape(i)
+! ori          defrac=max(defrac,0.001)
+! ori          frac(i)=-cape(i)/defrac
+! ori          frac(i)=min(frac(i),1.0)
+! ori          frac(i)=max(frac(i),0.0)
+! ori 540  continue
+
+! =====================================================================
+! ---   CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL
+! =====================================================================
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      hp(i, k) = h(i, k)
+    END DO
+  END DO
+
+!jyg : cvflag_ice test outside the loops (07042015)
+!
+  IF (cvflag_ice) THEN
+!
+    DO k = minorig + 1, nl
+      DO i = 1, ncum
+        IF ((k>=icb(i)) .AND. (k<=inb(i))) THEN
+          frac(i, k) = 1. - (t(i,k)-243.15)/(263.15-243.15)
+          frac(i, k) = min(max(frac(i,k),0.0), 1.0)
+          hp(i, k) = hnk(i) + (lv(i,k)+(cpd-cpv)*t(i,k)+frac(i,k)*lf(i,k))* &
+                              ep(i, k)*clw(i, k)
+        END IF
+      END DO
+    END DO
+! Below cloud base, set ice fraction to cloud base value
+    DO k = 1, nl
+      DO i = 1, ncum
+        IF (k<icb(i)) THEN
+          frac(i,k) = frac(i,icb(i))
+        END IF
+      END DO
+    END DO
+!
+  ELSE
+!
+    DO k = minorig + 1, nl
+      DO i = 1, ncum
+        IF ((k>=icb(i)) .AND. (k<=inb(i))) THEN
+          hp(i, k) = hnk(i) + (lv(i,k)+(cpd-cpv)*t(i,k))*ep(i, k)*clw(i, k)
+        END IF
+      END DO
+    END DO
+!
+  END IF  ! (cvflag_ice)
+
+  RETURN
+END SUBROUTINE cv3_undilute2
+
+SUBROUTINE cv3_closure(nloc, ncum, nd, icb, inb, &
+                       pbase, p, ph, tv, buoy, &
+                       sig, w0, cape, m, iflag)
+  IMPLICIT NONE
+
+! ===================================================================
+! ---  CLOSURE OF CONVECT3
+!
+! vectorization: S. Bony
+! ===================================================================
+
+  include "cvthermo.h"
+  include "cv3param.h"
+
+!input:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), inb(nloc)
+  REAL pbase(nloc)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL tv(nloc, nd), buoy(nloc, nd)
+
+!input/output:
+  REAL sig(nloc, nd), w0(nloc, nd)
+  INTEGER iflag(nloc)
+
+!output:
+  REAL cape(nloc)
+  REAL m(nloc, nd)
+
+!local variables:
+  INTEGER i, j, k, icbmax
+  REAL deltap, fac, w, amu
+  REAL dtmin(nloc, nd), sigold(nloc, nd)
+  REAL cbmflast(nloc)
+
+
+! -------------------------------------------------------
+! -- Initialization
+! -------------------------------------------------------
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      m(i, k) = 0.0
+    END DO
+  END DO
+
+! -------------------------------------------------------
+! -- Reset sig(i) and w0(i) for i>inb and i<icb
+! -------------------------------------------------------
+
+! update sig and w0 above LNB:
+
+  DO k = 1, nl - 1
+    DO i = 1, ncum
+      IF ((inb(i)<(nl-1)) .AND. (k>=(inb(i)+1))) THEN
+        sig(i, k) = beta*sig(i, k) + &
+                    2.*alpha*buoy(i, inb(i))*abs(buoy(i,inb(i)))
+        sig(i, k) = amax1(sig(i,k), 0.0)
+        w0(i, k) = beta*w0(i, k)
+      END IF
+    END DO
+  END DO
+
+! compute icbmax:
+
+  icbmax = 2
+  DO i = 1, ncum
+    icbmax = max(icbmax, icb(i))
+  END DO
+
+! update sig and w0 below cloud base:
+
+  DO k = 1, icbmax
+    DO i = 1, ncum
+      IF (k<=icb(i)) THEN
+        sig(i, k) = beta*sig(i, k) - &
+                    2.*alpha*buoy(i, icb(i))*buoy(i, icb(i))
+        sig(i, k) = max(sig(i,k), 0.0)
+        w0(i, k) = beta*w0(i, k)
+      END IF
+    END DO
+  END DO
+
+!!      if(inb.lt.(nl-1))then
+!!         do 85 i=inb+1,nl-1
+!!            sig(i)=beta*sig(i)+2.*alpha*buoy(inb)*
+!!     1              abs(buoy(inb))
+!!            sig(i)=max(sig(i),0.0)
+!!            w0(i)=beta*w0(i)
+!!   85    continue
+!!      end if
+
+!!      do 87 i=1,icb
+!!         sig(i)=beta*sig(i)-2.*alpha*buoy(icb)*buoy(icb)
+!!         sig(i)=max(sig(i),0.0)
+!!         w0(i)=beta*w0(i)
+!!   87 continue
+
+! -------------------------------------------------------------
+! -- Reset fractional areas of updrafts and w0 at initial time
+! -- and after 10 time steps of no convection
+! -------------------------------------------------------------
+
+  DO k = 1, nl - 1
+    DO i = 1, ncum
+      IF (sig(i,nd)<1.5 .OR. sig(i,nd)>12.0) THEN
+        sig(i, k) = 0.0
+        w0(i, k) = 0.0
+      END IF
+    END DO
+  END DO
+
+! -------------------------------------------------------------
+! -- Calculate convective available potential energy (cape),
+! -- vertical velocity (w), fractional area covered by
+! -- undilute updraft (sig), and updraft mass flux (m)
+! -------------------------------------------------------------
+
+  DO i = 1, ncum
+    cape(i) = 0.0
+  END DO
+
+! compute dtmin (minimum buoyancy between ICB and given level k):
+
+  DO i = 1, ncum
+    DO k = 1, nl
+      dtmin(i, k) = 100.0
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    DO k = 1, nl
+      DO j = minorig, nl
+        IF ((k>=(icb(i)+1)) .AND. (k<=inb(i)) .AND. (j>=icb(i)) .AND. (j<=(k-1))) THEN
+          dtmin(i, k) = amin1(dtmin(i,k), buoy(i,j))
+        END IF
+      END DO
+    END DO
+  END DO
+
+! the interval on which cape is computed starts at pbase :
+
+  DO k = 1, nl
+    DO i = 1, ncum
+
+      IF ((k>=(icb(i)+1)) .AND. (k<=inb(i))) THEN
+
+        deltap = min(pbase(i), ph(i,k-1)) - min(pbase(i), ph(i,k))
+        cape(i) = cape(i) + rrd*buoy(i, k-1)*deltap/p(i, k-1)
+        cape(i) = amax1(0.0, cape(i))
+        sigold(i, k) = sig(i, k)
+
+! dtmin(i,k)=100.0
+! do 97 j=icb(i),k-1 ! mauvaise vectorisation
+! dtmin(i,k)=AMIN1(dtmin(i,k),buoy(i,j))
+! 97     continue
+
+        sig(i, k) = beta*sig(i, k) + alpha*dtmin(i, k)*abs(dtmin(i,k))
+        sig(i, k) = max(sig(i,k), 0.0)
+        sig(i, k) = amin1(sig(i,k), 0.01)
+        fac = amin1(((dtcrit-dtmin(i,k))/dtcrit), 1.0)
+        w = (1.-beta)*fac*sqrt(cape(i)) + beta*w0(i, k)
+        amu = 0.5*(sig(i,k)+sigold(i,k))*w
+        m(i, k) = amu*0.007*p(i, k)*(ph(i,k)-ph(i,k+1))/tv(i, k)
+        w0(i, k) = w
+      END IF
+
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    w0(i, icb(i)) = 0.5*w0(i, icb(i)+1)
+    m(i, icb(i)) = 0.5*m(i, icb(i)+1)*(ph(i,icb(i))-ph(i,icb(i)+1))/(ph(i,icb(i)+1)-ph(i,icb(i)+2))
+    sig(i, icb(i)) = sig(i, icb(i)+1)
+    sig(i, icb(i)-1) = sig(i, icb(i))
+  END DO
+
+! ccc 3. Compute final cloud base mass flux and set iflag to 3 if
+! ccc    cloud base mass flux is exceedingly small and is decreasing (i.e. if
+! ccc    the final mass flux (cbmflast) is greater than the target mass flux
+! ccc    (cbmf) ??).
+! cc
+! c      do i = 1,ncum
+! c       cbmflast(i) = 0.
+! c      enddo
+! cc
+! c      do k= 1,nl
+! c       do i = 1,ncum
+! c        IF (k .ge. icb(i) .and. k .le. inb(i)) THEN
+! c         cbmflast(i) = cbmflast(i)+M(i,k)
+! c        ENDIF
+! c       enddo
+! c      enddo
+! cc
+! c      do i = 1,ncum
+! c       IF (cbmflast(i) .lt. 1.e-6) THEN
+! c         iflag(i) = 3
+! c       ENDIF
+! c      enddo
+! cc
+! c      do k= 1,nl
+! c       do i = 1,ncum
+! c        IF (iflag(i) .ge. 3) THEN
+! c         M(i,k) = 0.
+! c         sig(i,k) = 0.
+! c         w0(i,k) = 0.
+! c        ENDIF
+! c       enddo
+! c      enddo
+! cc
+!!      cape=0.0
+!!      do 98 i=icb+1,inb
+!!         deltap = min(pbase,ph(i-1))-min(pbase,ph(i))
+!!         cape=cape+rrd*buoy(i-1)*deltap/p(i-1)
+!!         dcape=rrd*buoy(i-1)*deltap/p(i-1)
+!!         dlnp=deltap/p(i-1)
+!!         cape=max(0.0,cape)
+!!         sigold=sig(i)
+
+!!         dtmin=100.0
+!!         do 97 j=icb,i-1
+!!            dtmin=amin1(dtmin,buoy(j))
+!!   97    continue
+
+!!         sig(i)=beta*sig(i)+alpha*dtmin*abs(dtmin)
+!!         sig(i)=max(sig(i),0.0)
+!!         sig(i)=amin1(sig(i),0.01)
+!!         fac=amin1(((dtcrit-dtmin)/dtcrit),1.0)
+!!         w=(1.-beta)*fac*sqrt(cape)+beta*w0(i)
+!!         amu=0.5*(sig(i)+sigold)*w
+!!         m(i)=amu*0.007*p(i)*(ph(i)-ph(i+1))/tv(i)
+!!         w0(i)=w
+!!   98 continue
+!!      w0(icb)=0.5*w0(icb+1)
+!!      m(icb)=0.5*m(icb+1)*(ph(icb)-ph(icb+1))/(ph(icb+1)-ph(icb+2))
+!!      sig(icb)=sig(icb+1)
+!!      sig(icb-1)=sig(icb)
+
+  RETURN
+END SUBROUTINE cv3_closure
+
+SUBROUTINE cv3_mixing(nloc, ncum, nd, na, ntra, icb, nk, inb, &
+                      ph, t, rr, rs, u, v, tra, h, lv, lf, frac, qnk, &
+                      unk, vnk, hp, tv, tvp, ep, clw, m, sig, &
+                      ment, qent, uent, vent, nent, sij, elij, ments, qents, traent)
+  IMPLICIT NONE
+
+! ---------------------------------------------------------------------
+! a faire:
+! - vectorisation de la partie normalisation des flux (do 789...)
+! ---------------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "cvflag.h"
+
+!inputs:
+  INTEGER, INTENT (IN)                               :: ncum, nd, na, ntra, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb, nk
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: sig
+  REAL, DIMENSION (nloc), INTENT (IN)                :: qnk, unk, vnk
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t, rr, rs
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: u, v
+  REAL, DIMENSION (nloc, nd, ntra), INTENT (IN)      :: tra               ! input of convect3
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: lv, h, hp
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: lf, frac
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: tv, tvp, ep, clw
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: m                 ! input of convect3
+
+!outputs:
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)        :: ment, qent
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)        :: uent, vent
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)        :: sij, elij
+  REAL, DIMENSION (nloc, nd, nd, ntra), INTENT (OUT)  :: traent
+  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)        :: ments, qents
+  INTEGER, DIMENSION (nloc, nd), INTENT (OUT)         :: nent
+
+!local variables:
+  INTEGER i, j, k, il, im, jm
+  INTEGER num1, num2
+  REAL rti, bf2, anum, denom, dei, altem, cwat, stemp, qp
+  REAL alt, smid, sjmin, sjmax, delp, delm
+  REAL asij(nloc), smax(nloc), scrit(nloc)
+  REAL asum(nloc, nd), bsum(nloc, nd), csum(nloc, nd)
+  REAL sigij(nloc, nd, nd)
+  REAL wgh
+  REAL zm(nloc, na)
+  LOGICAL lwork(nloc)
+
+! =====================================================================
+! --- INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
+! =====================================================================
+
+! ori        do 360 i=1,ncum*nlp
+  DO j = 1, nl
+    DO i = 1, ncum
+      nent(i, j) = 0
+! in convect3, m is computed in cv3_closure
+! ori          m(i,1)=0.0
+    END DO
+  END DO
+
+! ori      do 400 k=1,nlp
+! ori       do 390 j=1,nlp
+  DO j = 1, nl
+    DO k = 1, nl
+      DO i = 1, ncum
+        qent(i, k, j) = rr(i, j)
+        uent(i, k, j) = u(i, j)
+        vent(i, k, j) = v(i, j)
+        elij(i, k, j) = 0.0
+!ym            ment(i,k,j)=0.0
+!ym            sij(i,k,j)=0.0
+      END DO
+    END DO
+  END DO
+
+!ym
+  ment(1:ncum, 1:nd, 1:nd) = 0.0
+  sij(1:ncum, 1:nd, 1:nd) = 0.0
+
+!AC!      do k=1,ntra
+!AC!       do j=1,nd  ! instead nlp
+!AC!        do i=1,nd ! instead nlp
+!AC!         do il=1,ncum
+!AC!            traent(il,i,j,k)=tra(il,j,k)
+!AC!         enddo
+!AC!        enddo
+!AC!       enddo
+!AC!      enddo
+  zm(:, :) = 0.
+
+! =====================================================================
+! --- CALCULATE ENTRAINED AIR MASS FLUX (ment), TOTAL WATER MIXING
+! --- RATIO (QENT), TOTAL CONDENSED WATER (elij), AND MIXING
+! --- FRACTION (sij)
+! =====================================================================
+
+  DO i = minorig + 1, nl
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (j>=(icb(il)-1)) .AND. (j<=inb(il))) THEN
+
+          rti = qnk(il) - ep(il, i)*clw(il, i)
+          bf2 = 1. + lv(il, j)*lv(il, j)*rs(il, j)/(rrv*t(il,j)*t(il,j)*cpd)
+
+
+          IF (cvflag_ice) THEN
+! print*,cvflag_ice,'cvflag_ice dans do 700'
+            IF (t(il,j)<=263.15) THEN
+              bf2 = 1. + (lf(il,j)+lv(il,j))*(lv(il,j)+frac(il,j)* &
+                   lf(il,j))*rs(il, j)/(rrv*t(il,j)*t(il,j)*cpd)
+            END IF
+          END IF
+
+          anum = h(il, j) - hp(il, i) + (cpv-cpd)*t(il, j)*(rti-rr(il,j))
+          denom = h(il, i) - hp(il, i) + (cpd-cpv)*(rr(il,i)-rti)*t(il, j)
+          dei = denom
+          IF (abs(dei)<0.01) dei = 0.01
+          sij(il, i, j) = anum/dei
+          sij(il, i, i) = 1.0
+          altem = sij(il, i, j)*rr(il, i) + (1.-sij(il,i,j))*rti - rs(il, j)
+          altem = altem/bf2
+          cwat = clw(il, j)*(1.-ep(il,j))
+          stemp = sij(il, i, j)
+          IF ((stemp<0.0 .OR. stemp>1.0 .OR. altem>cwat) .AND. j>i) THEN
+
+            IF (cvflag_ice) THEN
+              anum = anum - (lv(il,j)+frac(il,j)*lf(il,j))*(rti-rs(il,j)-cwat*bf2)
+              denom = denom + (lv(il,j)+frac(il,j)*lf(il,j))*(rr(il,i)-rti)
+            ELSE
+              anum = anum - lv(il, j)*(rti-rs(il,j)-cwat*bf2)
+              denom = denom + lv(il, j)*(rr(il,i)-rti)
+            END IF
+
+            IF (abs(denom)<0.01) denom = 0.01
+            sij(il, i, j) = anum/denom
+            altem = sij(il, i, j)*rr(il, i) + (1.-sij(il,i,j))*rti - rs(il, j)
+            altem = altem - (bf2-1.)*cwat
+          END IF
+          IF (sij(il,i,j)>0.0 .AND. sij(il,i,j)<0.95) THEN
+            qent(il, i, j) = sij(il, i, j)*rr(il, i) + (1.-sij(il,i,j))*rti
+            uent(il, i, j) = sij(il, i, j)*u(il, i) + (1.-sij(il,i,j))*unk(il)
+            vent(il, i, j) = sij(il, i, j)*v(il, i) + (1.-sij(il,i,j))*vnk(il)
+!!!!      do k=1,ntra
+!!!!      traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
+!!!!     :      +(1.-sij(il,i,j))*tra(il,nk(il),k)
+!!!!      end do
+            elij(il, i, j) = altem
+            elij(il, i, j) = max(0.0, elij(il,i,j))
+            ment(il, i, j) = m(il, i)/(1.-sij(il,i,j))
+            nent(il, i) = nent(il, i) + 1
+          END IF
+          sij(il, i, j) = max(0.0, sij(il,i,j))
+          sij(il, i, j) = amin1(1.0, sij(il,i,j))
+        END IF ! new
+      END DO
+    END DO
+
+!AC!       do k=1,ntra
+!AC!        do j=minorig,nl
+!AC!         do il=1,ncum
+!AC!          if( (i.ge.icb(il)).and.(i.le.inb(il)).and.
+!AC!     :       (j.ge.(icb(il)-1)).and.(j.le.inb(il)))then
+!AC!            traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
+!AC!     :            +(1.-sij(il,i,j))*tra(il,nk(il),k)
+!AC!          endif
+!AC!         enddo
+!AC!        enddo
+!AC!       enddo
+
+
+! ***   if no air can entrain at level i assume that updraft detrains  ***
+! ***   at that level and calculate detrained air flux and properties  ***
+
+
+! @      do 170 i=icb(il),inb(il)
+
+    DO il = 1, ncum
+      IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (nent(il,i)==0)) THEN
+! @      if(nent(il,i).eq.0)then
+        ment(il, i, i) = m(il, i)
+        qent(il, i, i) = qnk(il) - ep(il, i)*clw(il, i)
+        uent(il, i, i) = unk(il)
+        vent(il, i, i) = vnk(il)
+        elij(il, i, i) = clw(il, i)
+! MAF      sij(il,i,i)=1.0
+        sij(il, i, i) = 0.0
+      END IF
+    END DO
+  END DO
+
+!AC!      do j=1,ntra
+!AC!       do i=minorig+1,nl
+!AC!        do il=1,ncum
+!AC!         if (i.ge.icb(il) .and. i.le.inb(il) .and. nent(il,i).eq.0) then
+!AC!          traent(il,i,i,j)=tra(il,nk(il),j)
+!AC!         endif
+!AC!        enddo
+!AC!       enddo
+!AC!      enddo
+
+  DO j = minorig, nl
+    DO i = minorig, nl
+      DO il = 1, ncum
+        IF ((j>=(icb(il)-1)) .AND. (j<=inb(il)) .AND. (i>=icb(il)) .AND. (i<=inb(il))) THEN
+          sigij(il, i, j) = sij(il, i, j)
+        END IF
+      END DO
+    END DO
+  END DO
+! @      enddo
+
+! @170   continue
+
+! =====================================================================
+! ---  NORMALIZE ENTRAINED AIR MASS FLUXES
+! ---  TO REPRESENT EQUAL PROBABILITIES OF MIXING
+! =====================================================================
+
+  CALL zilch(asum, nloc*nd)
+  CALL zilch(csum, nloc*nd)
+  CALL zilch(csum, nloc*nd)
+
+  DO il = 1, ncum
+    lwork(il) = .FALSE.
+  END DO
+
+  DO i = minorig + 1, nl
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 789
+
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) THEN
+        lwork(il) = (nent(il,i)/=0)
+        qp = qnk(il) - ep(il, i)*clw(il, i)
+
+        IF (cvflag_ice) THEN
+
+          anum = h(il, i) - hp(il, i) - (lv(il,i)+frac(il,i)*lf(il,i))* &
+                       (qp-rs(il,i)) + (cpv-cpd)*t(il, i)*(qp-rr(il,i))
+          denom = h(il, i) - hp(il, i) + (lv(il,i)+frac(il,i)*lf(il,i))* &
+                       (rr(il,i)-qp) + (cpd-cpv)*t(il, i)*(rr(il,i)-qp)
+        ELSE
+
+          anum = h(il, i) - hp(il, i) - lv(il, i)*(qp-rs(il,i)) + &
+                       (cpv-cpd)*t(il, i)*(qp-rr(il,i))
+          denom = h(il, i) - hp(il, i) + lv(il, i)*(rr(il,i)-qp) + &
+                       (cpd-cpv)*t(il, i)*(rr(il,i)-qp)
+        END IF
+
+        IF (abs(denom)<0.01) denom = 0.01
+        scrit(il) = anum/denom
+        alt = qp - rs(il, i) + scrit(il)*(rr(il,i)-qp)
+        IF (scrit(il)<=0.0 .OR. alt<=0.0) scrit(il) = 1.0
+        smax(il) = 0.0
+        asij(il) = 0.0
+      END IF
+    END DO
+
+    DO j = nl, minorig, -1
+
+      num2 = 0
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+            lwork(il)) num2 = num2 + 1
+      END DO
+      IF (num2<=0) GO TO 175
+
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+            lwork(il)) THEN
+
+          IF (sij(il,i,j)>1.0E-16 .AND. sij(il,i,j)<0.95) THEN
+            wgh = 1.0
+            IF (j>i) THEN
+              sjmax = max(sij(il,i,j+1), smax(il))
+              sjmax = amin1(sjmax, scrit(il))
+              smax(il) = max(sij(il,i,j), smax(il))
+              sjmin = max(sij(il,i,j-1), smax(il))
+              sjmin = amin1(sjmin, scrit(il))
+              IF (sij(il,i,j)<(smax(il)-1.0E-16)) wgh = 0.0
+              smid = amin1(sij(il,i,j), scrit(il))
+            ELSE
+              sjmax = max(sij(il,i,j+1), scrit(il))
+              smid = max(sij(il,i,j), scrit(il))
+              sjmin = 0.0
+              IF (j>1) sjmin = sij(il, i, j-1)
+              sjmin = max(sjmin, scrit(il))
+            END IF
+            delp = abs(sjmax-smid)
+            delm = abs(sjmin-smid)
+            asij(il) = asij(il) + wgh*(delp+delm)
+            ment(il, i, j) = ment(il, i, j)*(delp+delm)*wgh
+          END IF
+        END IF
+      END DO
+
+175 END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il)) THEN
+        asij(il) = max(1.0E-16, asij(il))
+        asij(il) = 1.0/asij(il)
+        asum(il, i) = 0.0
+        bsum(il, i) = 0.0
+        csum(il, i) = 0.0
+      END IF
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il)) THEN
+          ment(il, i, j) = ment(il, i, j)*asij(il)
+        END IF
+      END DO
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il)) THEN
+          asum(il, i) = asum(il, i) + ment(il, i, j)
+          ment(il, i, j) = ment(il, i, j)*sig(il, j)
+          bsum(il, i) = bsum(il, i) + ment(il, i, j)
+        END IF
+      END DO
+    END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il)) THEN
+        bsum(il, i) = max(bsum(il,i), 1.0E-16)
+        bsum(il, i) = 1.0/bsum(il, i)
+      END IF
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il)) THEN
+          ment(il, i, j) = ment(il, i, j)*asum(il, i)*bsum(il, i)
+        END IF
+      END DO
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il)) THEN
+          csum(il, i) = csum(il, i) + ment(il, i, j)
+        END IF
+      END DO
+    END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+          csum(il,i)<m(il,i)) THEN
+        nent(il, i) = 0
+        ment(il, i, i) = m(il, i)
+        qent(il, i, i) = qnk(il) - ep(il, i)*clw(il, i)
+        uent(il, i, i) = unk(il)
+        vent(il, i, i) = vnk(il)
+        elij(il, i, i) = clw(il, i)
+! MAF        sij(il,i,i)=1.0
+        sij(il, i, i) = 0.0
+      END IF
+    END DO ! il
+
+!AC!      do j=1,ntra
+!AC!       do il=1,ncum
+!AC!        if ( i.ge.icb(il) .and. i.le.inb(il) .and. lwork(il)
+!AC!     :     .and. csum(il,i).lt.m(il,i) ) then
+!AC!         traent(il,i,i,j)=tra(il,nk(il),j)
+!AC!        endif
+!AC!       enddo
+!AC!      enddo
+789 END DO
+
+! MAF: renormalisation de MENT
+  CALL zilch(zm, nloc*na)
+  DO jm = 1, nl
+    DO im = 1, nl
+      DO il = 1, ncum
+        zm(il, im) = zm(il, im) + (1.-sij(il,im,jm))*ment(il, im, jm)
+      END DO
+    END DO
+  END DO
+
+  DO jm = 1, nl
+    DO im = 1, nl
+      DO il = 1, ncum
+        IF (zm(il,im)/=0.) THEN
+          ment(il, im, jm) = ment(il, im, jm)*m(il, im)/zm(il, im)
+        END IF
+      END DO
+    END DO
+  END DO
+
+  DO jm = 1, nl
+    DO im = 1, nl
+      DO il = 1, ncum
+        qents(il, im, jm) = qent(il, im, jm)
+        ments(il, im, jm) = ment(il, im, jm)
+      END DO
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv3_mixing
+
+SUBROUTINE cv3_unsat(nloc, ncum, nd, na, ntra, icb, inb, iflag, &
+                     t, rr, rs, gz, u, v, tra, p, ph, &
+                     th, tv, lv, lf, cpn, ep, sigp, clw, &
+                     m, ment, elij, delt, plcl, coef_clos, &
+                     mp, rp, up, vp, trap, wt, water, evap, fondue, ice, &
+                     faci, b, sigd, &
+                     wdtrainA, wdtrainM)                                      ! RomP
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "cvflag.h"
+  include "nuage.h"
+
+!inputs:
+  INTEGER, INTENT (IN)                               :: ncum, nd, na, ntra, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb
+  REAL, INTENT(IN)                                   :: delt
+  REAL, DIMENSION (nloc), INTENT (IN)                :: plcl
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t, rr, rs
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: gz
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: u, v
+  REAL tra(nloc, nd, ntra)
+  REAL p(nloc, nd), ph(nloc, nd+1)
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: ep, sigp, clw
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: th, tv, lv, cpn
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: lf
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: m
+  REAL, DIMENSION (nloc, na, na), INTENT (IN)        :: ment, elij
+  REAL, DIMENSION (nloc), INTENT (IN)                :: coef_clos
+
+!input/output
+  INTEGER, DIMENSION (nloc), INTENT (INOUT)          :: iflag(nloc)
+
+!outputs:
+  REAL, DIMENSION (nloc, na), INTENT (OUT)           :: mp, rp, up, vp
+  REAL, DIMENSION (nloc, na), INTENT (OUT)           :: water, evap, wt
+  REAL, DIMENSION (nloc, na), INTENT (OUT)           :: ice, fondue, faci
+  REAL, DIMENSION (nloc, na, ntra), INTENT (OUT)     :: trap
+  REAL, DIMENSION (nloc, na), INTENT (OUT)           :: b
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: sigd
+! 25/08/10 - RomP---- ajout des masses precipitantes ejectees
+! de l ascendance adiabatique et des flux melanges Pa et Pm.
+! Distinction des wdtrain
+! Pa = wdtrainA     Pm = wdtrainM
+  REAL, DIMENSION (nloc, na), INTENT (OUT)           :: wdtrainA, wdtrainM
+
+!local variables
+  INTEGER i, j, k, il, num1, ndp1
+  REAL tinv, delti, coef
+  REAL awat, afac, afac1, afac2, bfac
+  REAL pr1, pr2, sigt, b6, c6, d6, e6, f6, revap, delth
+  REAL amfac, amp2, xf, tf, fac2, ur, sru, fac, d, af, bf
+  REAL ampmax, thaw
+  REAL tevap(nloc)
+  REAL lvcp(nloc, na), lfcp(nloc, na)
+  REAL h(nloc, na), hm(nloc, na)
+  REAL frac(nloc, na)
+  REAL fraci(nloc, na), prec(nloc, na)
+  REAL wdtrain(nloc)
+  LOGICAL lwork(nloc), mplus(nloc)
+
+
+! ------------------------------------------------------
+
+! =============================
+! --- INITIALIZE OUTPUT ARRAYS 
+! =============================
+!  (loops up to nl+1)
+
+  DO i = 1, nlp
+    DO il = 1, ncum
+      mp(il, i) = 0.0
+      rp(il, i) = rr(il, i)
+      up(il, i) = u(il, i)
+      vp(il, i) = v(il, i)
+      wt(il, i) = 0.001
+      water(il, i) = 0.0
+      faci(il, i) = 0.0
+      ice(il, i) = 0.0
+      fondue(il, i) = 0.0
+      evap(il, i) = 0.0
+      b(il, i) = 0.0
+    END DO
+  END DO
+!! RomP >>>
+  DO i = 1, nlp
+    DO il = 1, ncum
+      wdtrainA(il, i) = 0.0
+      wdtrainM(il, i) = 0.0
+    END DO
+  END DO
+!! RomP <<<
+
+! ***  Set the fractionnal area sigd of precipitating downdraughts
+  DO il = 1, ncum
+    sigd(il) = sigdz*coef_clos(il)
+  END DO
+
+! =====================================================================
+! --- INITIALIZE VARIOUS ARRAYS AND PARAMETERS USED IN THE COMPUTATIONS
+! =====================================================================
+!  (loops up to nl+1)
+
+  delti = 1./delt
+  tinv = 1./3.
+
+  DO i = 1, nlp
+    DO il = 1, ncum
+      frac(il, i) = 0.0
+      fraci(il, i) = 0.0
+      prec(il, i) = 0.0
+      lvcp(il, i) = lv(il, i)/cpn(il, i)
+      lfcp(il, i) = lf(il, i)/cpn(il, i)
+    END DO
+  END DO
+
+!AC!        do k=1,ntra
+!AC!         do i=1,nd
+!AC!          do il=1,ncum
+!AC!           trap(il,i,k)=tra(il,i,k)
+!AC!          enddo
+!AC!         enddo
+!AC!        enddo
+
+! ***  check whether ep(inb)=0, if so, skip precipitating    ***
+! ***             downdraft calculation                      ***
+
+
+  DO il = 1, ncum
+!!          lwork(il)=.TRUE.
+!!          if(ep(il,inb(il)).lt.0.0001)lwork(il)=.FALSE.
+    lwork(il) = ep(il, inb(il)) >= 0.0001
+  END DO
+
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+! ***                    begin downdraft loop                    ***
+!
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+  DO i = nl + 1, 1, -1
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 400
+
+    CALL zilch(wdtrain, ncum)
+
+
+! ***  integrate liquid water equation to find condensed water   ***
+! ***                and condensed water flux                    ***
+!
+!
+! ***              calculate detrained precipitation             ***
+
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il)) THEN
+        IF (cvflag_grav) THEN
+          wdtrain(il) = grav*ep(il, i)*m(il, i)*clw(il, i)
+          wdtrainA(il, i) = wdtrain(il)/grav                        !   Pa   RomP
+        ELSE
+          wdtrain(il) = 10.0*ep(il, i)*m(il, i)*clw(il, i)
+          wdtrainA(il, i) = wdtrain(il)/10.                         !   Pa   RomP
+        END IF
+      END IF
+    END DO
+
+    IF (i>1) THEN
+      DO j = 1, i - 1
+        DO il = 1, ncum
+          IF (i<=inb(il) .AND. lwork(il)) THEN
+            awat = elij(il, j, i) - (1.-ep(il,i))*clw(il, i)
+            awat = max(awat, 0.0)
+            IF (cvflag_grav) THEN
+              wdtrain(il) = wdtrain(il) + grav*awat*ment(il, j, i)
+              wdtrainM(il, i) = wdtrain(il)/grav - wdtrainA(il, i)  !   Pm  RomP
+            ELSE
+              wdtrain(il) = wdtrain(il) + 10.0*awat*ment(il, j, i)
+              wdtrainM(il, i) = wdtrain(il)/10. - wdtrainA(il, i)   !   Pm  RomP
+            END IF
+          END IF
+        END DO
+      END DO
+    END IF
+
+
+! ***    find rain water and evaporation using provisional   ***
+! ***              estimates of rp(i)and rp(i-1)             ***
+
+
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il)) THEN
+
+        wt(il, i) = 45.0
+
+        IF (cvflag_ice) THEN
+          frac(il, inb(il)) = 1. - (t(il,inb(il))-243.15)/(263.15-243.15)
+          frac(il, inb(il)) = min(max(frac(il,inb(il)),0.), 1.)
+          fraci(il, inb(il)) = frac(il, inb(il))
+        ELSE
+          CONTINUE
+        END IF
+
+        IF (i<inb(il)) THEN
+
+          IF (cvflag_ice) THEN
+!CR:tmax_fonte_cv: T for which ice is totally melted (used to be 275.15)
+            thaw = (t(il,i)-273.15)/(tmax_fonte_cv-273.15)
+            thaw = min(max(thaw,0.0), 1.0)
+            frac(il, i) = frac(il, i)*(1.-thaw)
+          ELSE
+            CONTINUE
+          END IF
+
+          rp(il, i) = rp(il, i+1) + &
+                      (cpd*(t(il,i+1)-t(il,i))+gz(il,i+1)-gz(il,i))/lv(il, i)
+          rp(il, i) = 0.5*(rp(il,i)+rr(il,i))
+        END IF
+        fraci(il, i) = 1. - (t(il,i)-243.15)/(263.15-243.15)
+        fraci(il, i) = min(max(fraci(il,i),0.0), 1.0)
+        rp(il, i) = max(rp(il,i), 0.0)
+        rp(il, i) = amin1(rp(il,i), rs(il,i))
+        rp(il, inb(il)) = rr(il, inb(il))
+
+        IF (i==1) THEN
+          afac = p(il, 1)*(rs(il,1)-rp(il,1))/(1.0E4+2000.0*p(il,1)*rs(il,1))
+          IF (cvflag_ice) THEN
+            afac1 = p(il, i)*(rs(il,1)-rp(il,1))/(1.0E4+2000.0*p(il,1)*rs(il,1))
+          END IF
+        ELSE
+          rp(il, i-1) = rp(il, i) + (cpd*(t(il,i)-t(il,i-1))+gz(il,i)-gz(il,i-1))/lv(il, i)
+          rp(il, i-1) = 0.5*(rp(il,i-1)+rr(il,i-1))
+          rp(il, i-1) = amin1(rp(il,i-1), rs(il,i-1))
+          rp(il, i-1) = max(rp(il,i-1), 0.0)
+          afac1 = p(il, i)*(rs(il,i)-rp(il,i))/(1.0E4+2000.0*p(il,i)*rs(il,i))
+          afac2 = p(il, i-1)*(rs(il,i-1)-rp(il,i-1))/(1.0E4+2000.0*p(il,i-1)*rs(il,i-1))
+          afac = 0.5*(afac1+afac2)
+        END IF
+        IF (i==inb(il)) afac = 0.0
+        afac = max(afac, 0.0)
+        bfac = 1./(sigd(il)*wt(il,i))
+
+!
+    IF (prt_level >= 20) THEN
+      Print*, 'cv3_unsat after provisional rp estimate: rp, afac, bfac ', &
+          i, rp(1, i), afac,bfac
+    ENDIF
+!
+!JYG1
+! cc        sigt=1.0
+! cc        if(i.ge.icb)sigt=sigp(i)
+! prise en compte de la variation progressive de sigt dans
+! les couches icb et icb-1:
+! pour plcl<ph(i+1), pr1=0 & pr2=1
+! pour plcl>ph(i),   pr1=1 & pr2=0
+! pour ph(i+1)<plcl<ph(i), pr1 est la proportion a cheval
+! sur le nuage, et pr2 est la proportion sous la base du
+! nuage.
+        pr1 = (plcl(il)-ph(il,i+1))/(ph(il,i)-ph(il,i+1))
+        pr1 = max(0., min(1.,pr1))
+        pr2 = (ph(il,i)-plcl(il))/(ph(il,i)-ph(il,i+1))
+        pr2 = max(0., min(1.,pr2))
+        sigt = sigp(il, i)*pr1 + pr2
+!JYG2
+
+!JYG----
+!    b6 = bfac*100.*sigd(il)*(ph(il,i)-ph(il,i+1))*sigt*afac
+!    c6 = water(il,i+1) + wdtrain(il)*bfac
+!    c6 = prec(il,i+1) + wdtrain(il)*bfac
+!    revap=0.5*(-b6+sqrt(b6*b6+4.*c6))
+!    evap(il,i)=sigt*afac*revap
+!    water(il,i)=revap*revap
+!    prec(il,i)=revap*revap
+!!        print *,' i,b6,c6,revap,evap(il,i),water(il,i),wdtrain(il) ', &
+!!                 i,b6,c6,revap,evap(il,i),water(il,i),wdtrain(il)
+!!---end jyg---
+
+! --------retour à la formulation originale d'Emanuel.
+        IF (cvflag_ice) THEN
+
+!   b6=bfac*50.*sigd(il)*(ph(il,i)-ph(il,i+1))*sigt*afac
+!   c6=prec(il,i+1)+bfac*wdtrain(il) &
+!       -50.*sigd(il)*bfac*(ph(il,i)-ph(il,i+1))*evap(il,i+1)
+!   if(c6.gt.0.0)then
+!   revap=0.5*(-b6+sqrt(b6*b6+4.*c6))
+
+!JAM  Attention: evap=sigt*E
+!    Modification: evap devient l'évaporation en milieu de couche
+!    car nécessaire dans cv3_yield
+!    Du coup, il faut modifier pas mal d'équations...
+!    et l'expression de afac qui devient afac1
+!    revap=sqrt((prec(i+1)+prec(i))/2)
+
+          b6 = bfac*50.*sigd(il)*(ph(il,i)-ph(il,i+1))*sigt*afac1
+          c6 = prec(il, i+1) + 0.5*bfac*wdtrain(il)
+! print *,'bfac,sigd(il),sigt,afac1 ',bfac,sigd(il),sigt,afac1
+! print *,'prec(il,i+1),wdtrain(il) ',prec(il,i+1),wdtrain(il)
+! print *,'b6,c6,b6*b6+4.*c6 ',b6,c6,b6*b6+4.*c6
+          IF (c6>b6*b6+1.E-20) THEN
+            revap = 2.*c6/(b6+sqrt(b6*b6+4.*c6))
+          ELSE
+            revap = (-b6+sqrt(b6*b6+4.*c6))/2.
+          END IF
+          prec(il, i) = max(0., 2.*revap*revap-prec(il,i+1))
+! print*,prec(il,i),'neige'
+
+!JYG    Dans sa formulation originale, Emanuel calcule l'evaporation par:
+! c             evap(il,i)=sigt*afac*revap
+! ce qui n'est pas correct. Dans cv_routines, la formulation a été modifiee.
+! Ici,l'evaporation evap est simplement calculee par l'equation de
+! conservation.
+! prec(il,i)=revap*revap
+! else
+!JYG----   Correction : si c6 <= 0, water(il,i)=0.
+! prec(il,i)=0.
+! endif
+
+!JYG---   Dans tous les cas, evaporation = [tt ce qui entre dans la couche i]
+! moins [tt ce qui sort de la couche i]
+! print *, 'evap avec ice'
+          evap(il, i) = (wdtrain(il)+sigd(il)*wt(il,i)*(prec(il,i+1)-prec(il,i))) / &
+                        (sigd(il)*(ph(il,i)-ph(il,i+1))*100.)
+!
+    IF (prt_level >= 20) THEN
+      Print*, 'cv3_unsat after evap computation: wdtrain, sigd, wt, prec(i+1),prec(i) ', &
+          i, wdtrain(1), sigd(1), wt(1,i), prec(1,i+1),prec(1,i)
+    ENDIF
+!
+
+!jyg<
+          d6 = prec(il,i)-prec(il,i+1)
+
+!!          d6 = bfac*wdtrain(il) - 100.*sigd(il)*bfac*(ph(il,i)-ph(il,i+1))*evap(il, i)
+!!          e6 = bfac*wdtrain(il)
+!!          f6 = -100.*sigd(il)*bfac*(ph(il,i)-ph(il,i+1))*evap(il, i)
+!>jyg
+!CR:tmax_fonte_cv: T for which ice is totally melted (used to be 275.15)
+          thaw = (t(il,i)-273.15)/(tmax_fonte_cv-273.15)
+          thaw = min(max(thaw,0.0), 1.0)
+!jyg<
+          water(il, i) = water(il, i+1) + (1-fraci(il,i))*d6
+          ice(il, i)   = ice(il, i+1)   + fraci(il, i)*d6
+          water(il, i) = min(prec(il,i), max(water(il,i), 0.))
+          ice(il, i)   = min(prec(il,i), max(ice(il,i),   0.))
+
+!!          water(il, i) = water(il, i+1) + (1-fraci(il,i))*d6
+!!          water(il, i) = max(water(il,i), 0.)
+!!          ice(il, i) = ice(il, i+1) + fraci(il, i)*d6
+!!          ice(il, i) = max(ice(il,i), 0.)
+!>jyg
+          fondue(il, i) = ice(il, i)*thaw
+          water(il, i) = water(il, i) + fondue(il, i)
+          ice(il, i) = ice(il, i) - fondue(il, i)
+
+          IF (water(il,i)+ice(il,i)<1.E-30) THEN
+            faci(il, i) = 0.
+          ELSE
+            faci(il, i) = ice(il, i)/(water(il,i)+ice(il,i))
+          END IF
+
+!           water(il,i)=water(il,i+1)+(1.-fraci(il,i))*e6+(1.-faci(il,i))*f6
+!           water(il,i)=max(water(il,i),0.)
+!           ice(il,i)=ice(il,i+1)+fraci(il,i)*e6+faci(il,i)*f6
+!           ice(il,i)=max(ice(il,i),0.)
+!           fondue(il,i)=ice(il,i)*thaw
+!           water(il,i)=water(il,i)+fondue(il,i)
+!           ice(il,i)=ice(il,i)-fondue(il,i)
+            
+!           if((water(il,i)+ice(il,i)).lt.1.e-30)then
+!             faci(il,i)=0.
+!           else
+!             faci(il,i)=ice(il,i)/(water(il,i)+ice(il,i))
+!           endif
+
+        ELSE
+          b6 = bfac*50.*sigd(il)*(ph(il,i)-ph(il,i+1))*sigt*afac
+          c6 = water(il, i+1) + bfac*wdtrain(il) - &
+               50.*sigd(il)*bfac*(ph(il,i)-ph(il,i+1))*evap(il, i+1)
+          IF (c6>0.0) THEN
+            revap = 0.5*(-b6+sqrt(b6*b6+4.*c6))
+            water(il, i) = revap*revap
+          ELSE
+            water(il, i) = 0.
+          END IF
+! print *, 'evap sans ice'
+          evap(il, i) = (wdtrain(il)+sigd(il)*wt(il,i)*(water(il,i+1)-water(il,i)))/ &
+                        (sigd(il)*(ph(il,i)-ph(il,i+1))*100.)
+
+        END IF
+      END IF !(i.le.inb(il) .and. lwork(il))
+    END DO
+! ----------------------------------------------------------------
+
+! cc
+! ***  calculate precipitating downdraft mass flux under     ***
+! ***              hydrostatic approximation                 ***
+
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il) .AND. i/=1) THEN
+
+        tevap(il) = max(0.0, evap(il,i))
+        delth = max(0.001, (th(il,i)-th(il,i-1)))
+        IF (cvflag_ice) THEN
+          IF (cvflag_grav) THEN
+            mp(il, i) = 100.*ginv*(lvcp(il,i)*sigd(il)*tevap(il)* &
+                                               (p(il,i-1)-p(il,i))/delth + &
+                                   lfcp(il,i)*sigd(il)*faci(il,i)*tevap(il)* &
+                                               (p(il,i-1)-p(il,i))/delth + &
+                                   lfcp(il,i)*sigd(il)*wt(il,i)/100.*fondue(il,i)* &
+                                               (p(il,i-1)-p(il,i))/delth/(ph(il,i)-ph(il,i+1)))
+          ELSE
+            mp(il, i) = 10.*(lvcp(il,i)*sigd(il)*tevap(il)* &
+                                                (p(il,i-1)-p(il,i))/delth + &
+                             lfcp(il,i)*sigd(il)*faci(il,i)*tevap(il)* &
+                                                (p(il,i-1)-p(il,i))/delth + &
+                             lfcp(il,i)*sigd(il)*wt(il,i)/100.*fondue(il,i)* &
+                                                (p(il,i-1)-p(il,i))/delth/(ph(il,i)-ph(il,i+1)))
+
+          END IF
+        ELSE
+          IF (cvflag_grav) THEN
+            mp(il, i) = 100.*ginv*lvcp(il, i)*sigd(il)*tevap(il)* &
+                                                (p(il,i-1)-p(il,i))/delth
+          ELSE
+            mp(il, i) = 10.*lvcp(il, i)*sigd(il)*tevap(il)* &
+                                                (p(il,i-1)-p(il,i))/delth
+          END IF
+
+        END IF
+
+      END IF !(i.le.inb(il) .and. lwork(il) .and. i.ne.1)
+    END DO
+! ----------------------------------------------------------------
+
+! ***           if hydrostatic assumption fails,             ***
+! ***   solve cubic difference equation for downdraft theta  ***
+! ***  and mass flux from two simultaneous differential eqns ***
+
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. lwork(il) .AND. i/=1) THEN
+
+        amfac = sigd(il)*sigd(il)*70.0*ph(il, i)*(p(il,i-1)-p(il,i))* &
+                         (th(il,i)-th(il,i-1))/(tv(il,i)*th(il,i))
+        amp2 = abs(mp(il,i+1)*mp(il,i+1)-mp(il,i)*mp(il,i))
+
+        IF (amp2>(0.1*amfac)) THEN
+          xf = 100.0*sigd(il)*sigd(il)*sigd(il)*(ph(il,i)-ph(il,i+1))
+          tf = b(il, i) - 5.0*(th(il,i)-th(il,i-1))*t(il, i) / &
+                              (lvcp(il,i)*sigd(il)*th(il,i))
+          af = xf*tf + mp(il, i+1)*mp(il, i+1)*tinv
+
+          IF (cvflag_ice) THEN
+            bf = 2.*(tinv*mp(il,i+1))**3 + tinv*mp(il, i+1)*xf*tf + &
+                 50.*(p(il,i-1)-p(il,i))*xf*(tevap(il)*(1.+(lf(il,i)/lv(il,i))*faci(il,i)) + &
+                (lf(il,i)/lv(il,i))*wt(il,i)/100.*fondue(il,i)/(ph(il,i)-ph(il,i+1)))
+          ELSE
+
+            bf = 2.*(tinv*mp(il,i+1))**3 + tinv*mp(il, i+1)*xf*tf + &
+                                           50.*(p(il,i-1)-p(il,i))*xf*tevap(il)
+          END IF
+
+          fac2 = 1.0
+          IF (bf<0.0) fac2 = -1.0
+          bf = abs(bf)
+          ur = 0.25*bf*bf - af*af*af*tinv*tinv*tinv
+          IF (ur>=0.0) THEN
+            sru = sqrt(ur)
+            fac = 1.0
+            IF ((0.5*bf-sru)<0.0) fac = -1.0
+            mp(il, i) = mp(il, i+1)*tinv + (0.5*bf+sru)**tinv + &
+                                           fac*(abs(0.5*bf-sru))**tinv
+          ELSE
+            d = atan(2.*sqrt(-ur)/(bf+1.0E-28))
+            IF (fac2<0.0) d = 3.14159 - d
+            mp(il, i) = mp(il, i+1)*tinv + 2.*sqrt(af*tinv)*cos(d*tinv)
+          END IF
+          mp(il, i) = max(0.0, mp(il,i))
+
+          IF (cvflag_ice) THEN
+            IF (cvflag_grav) THEN
+!JYG : il y a vraisemblablement une erreur dans la ligne 2 suivante:
+! il faut diviser par (mp(il,i)*sigd(il)*grav) et non par (mp(il,i)+sigd(il)*0.1).
+! Et il faut bien revoir les facteurs 100.
+              b(il, i-1) = b(il, i) + 100.0*(p(il,i-1)-p(il,i))* &
+                           (tevap(il)*(1.+(lf(il,i)/lv(il,i))*faci(il,i)) + &
+                           (lf(il,i)/lv(il,i))*wt(il,i)/100.*fondue(il,i) / &
+                           (ph(il,i)-ph(il,i+1))) / &
+                           (mp(il,i)+sigd(il)*0.1) - &
+                           10.0*(th(il,i)-th(il,i-1))*t(il, i) / &
+                           (lvcp(il,i)*sigd(il)*th(il,i))
+            ELSE
+              b(il, i-1) = b(il, i) + 100.0*(p(il,i-1)-p(il,i))*&
+                           (tevap(il)*(1.+(lf(il,i)/lv(il,i))*faci(il,i)) + &
+                           (lf(il,i)/lv(il,i))*wt(il,i)/100.*fondue(il,i) / &
+                           (ph(il,i)-ph(il,i+1))) / &
+                           (mp(il,i)+sigd(il)*0.1) - &
+                           10.0*(th(il,i)-th(il,i-1))*t(il, i) / &
+                           (lvcp(il,i)*sigd(il)*th(il,i))
+            END IF
+          ELSE
+            IF (cvflag_grav) THEN
+              b(il, i-1) = b(il, i) + 100.0*(p(il,i-1)-p(il,i))*tevap(il) / &
+                           (mp(il,i)+sigd(il)*0.1) - &
+                           10.0*(th(il,i)-th(il,i-1))*t(il, i) / &
+                           (lvcp(il,i)*sigd(il)*th(il,i))
+            ELSE
+              b(il, i-1) = b(il, i) + 100.0*(p(il,i-1)-p(il,i))*tevap(il) / &
+                           (mp(il,i)+sigd(il)*0.1) - &
+                           10.0*(th(il,i)-th(il,i-1))*t(il, i) / &
+                           (lvcp(il,i)*sigd(il)*th(il,i))
+            END IF
+          END IF
+          b(il, i-1) = max(b(il,i-1), 0.0)
+
+        END IF !(amp2.gt.(0.1*amfac))
+
+! ***         limit magnitude of mp(i) to meet cfl condition      ***
+
+        ampmax = 2.0*(ph(il,i)-ph(il,i+1))*delti
+        amp2 = 2.0*(ph(il,i-1)-ph(il,i))*delti
+        ampmax = min(ampmax, amp2)
+        mp(il, i) = min(mp(il,i), ampmax)
+
+! ***      force mp to decrease linearly to zero                 ***
+! ***       between cloud base and the surface                   ***
+
+
+! c      if(p(il,i).gt.p(il,icb(il)))then
+! c       mp(il,i)=mp(il,icb(il))*(p(il,1)-p(il,i))/(p(il,1)-p(il,icb(il)))
+! c      endif
+        IF (ph(il,i)>0.9*plcl(il)) THEN
+          mp(il, i) = mp(il, i)*(ph(il,1)-ph(il,i))/(ph(il,1)-0.9*plcl(il))
+        END IF
+
+      END IF ! (i.le.inb(il) .and. lwork(il) .and. i.ne.1)
+    END DO
+! ----------------------------------------------------------------
+!
+    IF (prt_level >= 20) THEN
+      Print*, 'cv3_unsat after mp computation: mp, b(i), b(i-1) ', &
+          i, mp(1, i), b(1,i), b(1,max(i-1,1))
+    ENDIF
+!
+
+! ***       find mixing ratio of precipitating downdraft     ***
+
+    DO il = 1, ncum
+      IF (i<inb(il) .AND. lwork(il)) THEN
+        mplus(il) = mp(il, i) > mp(il, i+1)
+      END IF ! (i.lt.inb(il) .and. lwork(il))
+    END DO
+
+    DO il = 1, ncum
+      IF (i<inb(il) .AND. lwork(il)) THEN
+
+        rp(il, i) = rr(il, i)
+
+        IF (mplus(il)) THEN
+
+          IF (cvflag_grav) THEN
+            rp(il, i) = rp(il, i+1)*mp(il, i+1) + rr(il, i)*(mp(il,i)-mp(il,i+1)) + &
+              100.*ginv*0.5*sigd(il)*(ph(il,i)-ph(il,i+1))*(evap(il,i+1)+evap(il,i))
+          ELSE
+            rp(il, i) = rp(il, i+1)*mp(il, i+1) + rr(il, i)*(mp(il,i)-mp(il,i+1)) + &
+              5.*sigd(il)*(ph(il,i)-ph(il,i+1))*(evap(il,i+1)+evap(il,i))
+          END IF
+          rp(il, i) = rp(il, i)/mp(il, i)
+          up(il, i) = up(il, i+1)*mp(il, i+1) + u(il, i)*(mp(il,i)-mp(il,i+1))
+          up(il, i) = up(il, i)/mp(il, i)
+          vp(il, i) = vp(il, i+1)*mp(il, i+1) + v(il, i)*(mp(il,i)-mp(il,i+1))
+          vp(il, i) = vp(il, i)/mp(il, i)
+
+        ELSE ! if (mplus(il))
+
+          IF (mp(il,i+1)>1.0E-16) THEN
+            IF (cvflag_grav) THEN
+              rp(il, i) = rp(il,i+1) + 100.*ginv*0.5*sigd(il)*(ph(il,i)-ph(il,i+1)) * &
+                                       (evap(il,i+1)+evap(il,i))/mp(il,i+1)
+            ELSE
+              rp(il, i) = rp(il,i+1) + 5.*sigd(il)*(ph(il,i)-ph(il,i+1)) * &
+                                       (evap(il,i+1)+evap(il,i))/mp(il, i+1)
+            END IF
+            up(il, i) = up(il, i+1)
+            vp(il, i) = vp(il, i+1)
+          END IF ! (mp(il,i+1).gt.1.0e-16)
+        END IF ! (mplus(il)) else if (.not.mplus(il))
+
+        rp(il, i) = amin1(rp(il,i), rs(il,i))
+        rp(il, i) = max(rp(il,i), 0.0)
+
+      END IF ! (i.lt.inb(il) .and. lwork(il))
+    END DO
+! ----------------------------------------------------------------
+
+! ***       find tracer concentrations in precipitating downdraft     ***
+
+!AC!      do j=1,ntra
+!AC!       do il = 1,ncum
+!AC!       if (i.lt.inb(il) .and. lwork(il)) then
+!AC!c
+!AC!         if(mplus(il))then
+!AC!          trap(il,i,j)=trap(il,i+1,j)*mp(il,i+1)
+!AC!     :              +trap(il,i,j)*(mp(il,i)-mp(il,i+1))
+!AC!          trap(il,i,j)=trap(il,i,j)/mp(il,i)
+!AC!         else ! if (mplus(il))
+!AC!          if(mp(il,i+1).gt.1.0e-16)then
+!AC!           trap(il,i,j)=trap(il,i+1,j)
+!AC!          endif
+!AC!         endif ! (mplus(il)) else if (.not.mplus(il))
+!AC!c
+!AC!        endif ! (i.lt.inb(il) .and. lwork(il))
+!AC!       enddo
+!AC!      end do
+
+400 END DO
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+! ***                    end of downdraft loop                    ***
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+  RETURN
+END SUBROUTINE cv3_unsat
+
+SUBROUTINE cv3_yield(nloc, ncum, nd, na, ntra, ok_conserv_q, &
+                     icb, inb, delt, &
+                     t, rr, t_wake, rr_wake, s_wake, u, v, tra, &
+                     gz, p, ph, h, hp, lv, lf, cpn, th, th_wake, &
+                     ep, clw, m, tp, mp, rp, up, vp, trap, &
+                     wt, water, ice, evap, fondue, faci, b, sigd, &
+                     ment, qent, hent, iflag_mix, uent, vent, &
+                     nent, elij, traent, sig, &
+                     tv, tvp, wghti, &
+                     iflag, precip, Vprecip, Vprecipi, &     ! jyg: Vprecipi
+                     ft, fr, fu, fv, ftra, &                 ! jyg
+                     cbmf, upwd, dnwd, dnwd0, ma, mip, &
+!!                     tls, tps,                             ! useless . jyg
+                     qcondc, wd, &
+                     ftd, fqd, qnk, qtc, sigt, tau_cld_cv, coefw_cld_cv)
+
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "cvflag.h"
+  include "conema3.h"
+
+!inputs:
+      INTEGER, INTENT (IN)                               :: iflag_mix
+      INTEGER, INTENT (IN)                               :: ncum, nd, na, ntra, nloc
+      LOGICAL, INTENT (IN)                               :: ok_conserv_q
+      INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb
+      REAL, INTENT (IN)                                  :: delt
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t, rr, u, v
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t_wake, rr_wake
+      REAL, DIMENSION (nloc), INTENT (IN)                :: s_wake
+      REAL, DIMENSION (nloc, nd, ntra), INTENT (IN)      :: tra
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: p
+      REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: gz, h, hp
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: th, tp
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: lv, cpn, ep, clw
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: lf
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: rp, up
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: vp
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: wt
+      REAL, DIMENSION (nloc, nd, ntra), INTENT (IN)      :: trap
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: water, evap, b
+      REAL, DIMENSION (nloc, na), INTENT (IN)            :: fondue, faci, ice
+      REAL, DIMENSION (nloc, na, na), INTENT (IN)        :: qent, uent
+      REAL, DIMENSION (nloc, na, na), INTENT (IN)        :: hent
+      REAL, DIMENSION (nloc, na, na), INTENT (IN)        :: vent, elij
+      INTEGER, DIMENSION (nloc, nd), INTENT (IN)         :: nent
+      REAL, DIMENSION (nloc, na, na, ntra), INTENT (IN)  :: traent
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: tv, tvp, wghti
+      REAL,INTENT(IN)                                    :: tau_cld_cv, coefw_cld_cv
+!
+!input/output:
+      REAL, DIMENSION (nloc, na), INTENT (INOUT)         :: m, mp
+      REAL, DIMENSION (nloc, na, na), INTENT (INOUT)     :: ment
+      INTEGER, DIMENSION (nloc), INTENT (INOUT)          :: iflag
+      REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig
+      REAL, DIMENSION (nloc), INTENT (INOUT)             :: sigd
+!
+!outputs:
+      REAL, DIMENSION (nloc), INTENT (OUT)               :: precip
+      REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: ft, fr, fu, fv
+      REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: ftd, fqd
+      REAL, DIMENSION (nloc, nd, ntra), INTENT (OUT)     :: ftra
+      REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: upwd, dnwd, ma
+      REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: dnwd0, mip
+      REAL, DIMENSION (nloc, nd+1), INTENT (OUT)         :: Vprecip
+      REAL, DIMENSION (nloc, nd+1), INTENT (OUT)         :: Vprecipi
+!!      REAL tls(nloc, nd), tps(nloc, nd)                    ! useless . jyg
+      REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: qcondc                      ! cld
+      REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: qtc, sigt                   ! cld
+      REAL, DIMENSION (nloc), INTENT (OUT)               :: wd                          ! gust
+      REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmf
+!
+!local variables:
+      INTEGER                                            :: i, k, il, n, j, num1
+      REAL                                               :: rat, delti
+      REAL                                               :: ax, bx, cx, dx, ex
+      REAL                                               :: cpinv, rdcp, dpinv
+      REAL, DIMENSION (nloc)                             ::  awat
+      REAL, DIMENSION (nloc, nd)                         :: lvcp, lfcp              ! , mke ! unused . jyg
+      REAL, DIMENSION (nloc)                             :: am, work, ad, amp1
+!!      real up1(nloc), dn1(nloc)
+      REAL, DIMENSION (nloc, nd, nd)                     :: up1, dn1
+!jyg<
+      REAL, DIMENSION (nloc, nd)                         :: up_to, up_from
+      REAL, DIMENSION (nloc, nd)                         :: dn_to, dn_from
+!>jyg
+      REAL, DIMENSION (nloc)                             :: asum, bsum, csum, dsum
+      REAL, DIMENSION (nloc)                             :: esum, fsum, gsum, hsum
+      REAL, DIMENSION (nloc, nd)                         :: th_wake
+      REAL, DIMENSION (nloc)                             :: alpha_qpos, alpha_qpos1
+      REAL, DIMENSION (nloc, nd)                         :: qcond, nqcond, wa           ! cld
+      REAL, DIMENSION (nloc, nd)                         :: siga, sax, mac              ! cld
+      REAL, DIMENSION (nloc)                             :: sument
+      REAL, DIMENSION (nloc, nd)                         :: sigment, qtment             ! cld
+      REAL, DIMENSION (nloc)                             :: qnk
+      REAL sumdq !jyg
+! 
+! -------------------------------------------------------------
+
+! initialization:
+
+  delti = 1.0/delt
+! print*,'cv3_yield initialisation delt', delt
+
+  DO il = 1, ncum
+    precip(il) = 0.0
+    wd(il) = 0.0 ! gust
+  END DO
+
+!   Fluxes are on a staggered grid : loops extend up to nl+1
+  DO i = 1, nlp
+    DO il = 1, ncum
+      Vprecip(il, i) = 0.0
+      Vprecipi(il, i) = 0.0                               ! jyg
+      upwd(il, i) = 0.0
+      dnwd(il, i) = 0.0
+      dnwd0(il, i) = 0.0
+      mip(il, i) = 0.0
+    END DO
+  END DO
+  DO i = 1, nl
+    DO il = 1, ncum
+      ft(il, i) = 0.0
+      fr(il, i) = 0.0
+      fu(il, i) = 0.0
+      fv(il, i) = 0.0
+      ftd(il, i) = 0.0
+      fqd(il, i) = 0.0
+      qcondc(il, i) = 0.0 ! cld
+      qcond(il, i) = 0.0 ! cld
+      qtc(il, i) = 0.0 ! cld
+      qtment(il, i) = 0.0 ! cld
+      sigment(il, i) = 0.0 ! cld
+      sigt(il, i) = 0.0 ! cld
+      nqcond(il, i) = 0.0 ! cld
+    END DO
+  END DO
+! print*,'cv3_yield initialisation 2'
+!AC!      do j=1,ntra
+!AC!       do i=1,nd
+!AC!        do il=1,ncum
+!AC!          ftra(il,i,j)=0.0
+!AC!        enddo
+!AC!       enddo
+!AC!      enddo
+! print*,'cv3_yield initialisation 3'
+  DO i = 1, nl
+    DO il = 1, ncum
+      lvcp(il, i) = lv(il, i)/cpn(il, i)
+      lfcp(il, i) = lf(il, i)/cpn(il, i)
+    END DO
+  END DO
+
+
+
+! ***  calculate surface precipitation in mm/day     ***
+
+  DO il = 1, ncum
+    IF (ep(il,inb(il))>=0.0001 .AND. iflag(il)<=1) THEN
+      IF (cvflag_ice) THEN
+        precip(il) = wt(il, 1)*sigd(il)*(water(il,1)+ice(il,1)) &
+                              *86400.*1000./(rowl*grav)
+      ELSE
+        precip(il) = wt(il, 1)*sigd(il)*water(il, 1) &
+                              *86400.*1000./(rowl*grav)
+      END IF
+    END IF
+  END DO
+! print*,'cv3_yield apres calcul precip'
+
+
+! ===  calculate vertical profile of  precipitation in kg/m2/s  ===
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (ep(il,inb(il))>=0.0001 .AND. i<=inb(il) .AND. iflag(il)<=1) THEN
+        IF (cvflag_ice) THEN
+          Vprecip(il, i) = wt(il, i)*sigd(il)*(water(il,i)+ice(il,i))/grav
+          Vprecipi(il, i) = wt(il, i)*sigd(il)*ice(il,i)/grav                   ! jyg
+        ELSE
+          Vprecip(il, i) = wt(il, i)*sigd(il)*water(il, i)/grav
+          Vprecipi(il, i) = 0.                                                  ! jyg
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+! ***  Calculate downdraft velocity scale    ***
+! ***  NE PAS UTILISER POUR L'INSTANT ***
+
+!!      do il=1,ncum
+!!        wd(il)=betad*abs(mp(il,icb(il)))*0.01*rrd*t(il,icb(il)) &
+!!                                       /(sigd(il)*p(il,icb(il)))
+!!      enddo
+
+
+! ***  calculate tendencies of lowest level potential temperature  ***
+! ***                      and mixing ratio                        ***
+
+  DO il = 1, ncum
+    work(il) = 1.0/(ph(il,1)-ph(il,2))
+    cbmf(il) = 0.0
+  END DO
+
+  DO k = 2, nl
+    DO il = 1, ncum
+      IF (k>=icb(il)) THEN
+        cbmf(il) = cbmf(il) + m(il, k)
+      END IF
+    END DO
+  END DO
+
+!    print*,'cv3_yield avant ft'
+! am is the part of cbmf taken from the first level
+  DO il = 1, ncum
+    am(il) = cbmf(il)*wghti(il, 1)
+  END DO
+
+  DO il = 1, ncum
+    IF (iflag(il)<=1) THEN
+! convect3      if((0.1*dpinv*am).ge.delti)iflag(il)=4
+!JYG  Correction pour conserver l'eau
+! cc       ft(il,1)=-0.5*lvcp(il,1)*sigd(il)*(evap(il,1)+evap(il,2))          !precip
+      IF (cvflag_ice) THEN
+        ft(il, 1) = -lvcp(il, 1)*sigd(il)*evap(il, 1) - &
+                     lfcp(il, 1)*sigd(il)*evap(il, 1)*faci(il, 1) - &
+                     lfcp(il, 1)*sigd(il)*(fondue(il,1)*wt(il,1)) / &
+                       (100.*(ph(il,1)-ph(il,2)))                             !precip
+      ELSE
+        ft(il, 1) = -lvcp(il, 1)*sigd(il)*evap(il, 1)
+      END IF
+
+      ft(il, 1) = ft(il, 1) - 0.009*grav*sigd(il)*mp(il, 2)*t_wake(il, 1)*b(il, 1)*work(il)
+
+      IF (cvflag_ice) THEN
+        ft(il, 1) = ft(il, 1) + 0.01*sigd(il)*wt(il, 1)*(cl-cpd)*water(il, 2) * &
+                                     (t_wake(il,2)-t_wake(il,1))*work(il)/cpn(il, 1) + &
+                                0.01*sigd(il)*wt(il, 1)*(ci-cpd)*ice(il, 2) * &
+                                     (t_wake(il,2)-t_wake(il,1))*work(il)/cpn(il, 1)
+      ELSE
+        ft(il, 1) = ft(il, 1) + 0.01*sigd(il)*wt(il, 1)*(cl-cpd)*water(il, 2) * &
+                                     (t_wake(il,2)-t_wake(il,1))*work(il)/cpn(il, 1)
+      END IF
+
+      ftd(il, 1) = ft(il, 1)                                                  ! fin precip
+
+      IF ((0.01*grav*work(il)*am(il))>=delti) iflag(il) = 1 !consist vect
+      ft(il, 1) = ft(il, 1) + 0.01*grav*work(il)*am(il) * &
+                                   (t(il,2)-t(il,1)+(gz(il,2)-gz(il,1))/cpn(il,1))
+    END IF ! iflag
+  END DO
+
+
+  DO j = 2, nl
+    IF (iflag_mix>0) THEN
+      DO il = 1, ncum
+! FH WARNING a modifier :
+        cpinv = 0.
+! cpinv=1.0/cpn(il,1)
+        IF (j<=inb(il) .AND. iflag(il)<=1) THEN
+          ft(il, 1) = ft(il, 1) + 0.01*grav*work(il)*ment(il, j, 1) * &
+                     (hent(il,j,1)-h(il,1)+t(il,1)*(cpv-cpd)*(rr(il,1)-qent(il,j,1)))*cpinv
+        END IF ! j
+      END DO
+    END IF
+  END DO
+! fin sature
+
+
+  DO il = 1, ncum
+    IF (iflag(il)<=1) THEN
+!JYG1  Correction pour mieux conserver l'eau (conformite avec CONVECT4.3)
+      fr(il, 1) = 0.01*grav*mp(il, 2)*(rp(il,2)-rr_wake(il,1))*work(il) + &
+                  sigd(il)*evap(il, 1)
+!!!                  sigd(il)*0.5*(evap(il,1)+evap(il,2))
+
+      fqd(il, 1) = fr(il, 1) !precip
+
+      fr(il, 1) = fr(il, 1) + 0.01*grav*am(il)*(rr(il,2)-rr(il,1))*work(il)        !sature
+
+      fu(il, 1) = fu(il, 1) + 0.01*grav*work(il)*(mp(il,2)*(up(il,2)-u(il,1)) + &
+                                                  am(il)*(u(il,2)-u(il,1)))
+      fv(il, 1) = fv(il, 1) + 0.01*grav*work(il)*(mp(il,2)*(vp(il,2)-v(il,1)) + &
+                                                  am(il)*(v(il,2)-v(il,1)))
+    END IF ! iflag
+  END DO ! il
+
+
+!AC!     do j=1,ntra
+!AC!      do il=1,ncum
+!AC!       if (iflag(il) .le. 1) then
+!AC!       if (cvflag_grav) then
+!AC!        ftra(il,1,j)=ftra(il,1,j)+0.01*grav*work(il)
+!AC!    :                     *(mp(il,2)*(trap(il,2,j)-tra(il,1,j))
+!AC!    :             +am(il)*(tra(il,2,j)-tra(il,1,j)))
+!AC!       else
+!AC!        ftra(il,1,j)=ftra(il,1,j)+0.1*work(il)
+!AC!    :                     *(mp(il,2)*(trap(il,2,j)-tra(il,1,j))
+!AC!    :             +am(il)*(tra(il,2,j)-tra(il,1,j)))
+!AC!       endif
+!AC!       endif  ! iflag
+!AC!      enddo
+!AC!     enddo
+
+  DO j = 2, nl
+    DO il = 1, ncum
+      IF (j<=inb(il) .AND. iflag(il)<=1) THEN
+        fr(il, 1) = fr(il, 1) + 0.01*grav*work(il)*ment(il, j, 1)*(qent(il,j,1)-rr(il,1))
+        fu(il, 1) = fu(il, 1) + 0.01*grav*work(il)*ment(il, j, 1)*(uent(il,j,1)-u(il,1))
+        fv(il, 1) = fv(il, 1) + 0.01*grav*work(il)*ment(il, j, 1)*(vent(il,j,1)-v(il,1))
+      END IF ! j
+    END DO
+  END DO
+
+!AC!      do k=1,ntra
+!AC!       do j=2,nl
+!AC!        do il=1,ncum
+!AC!         if (j.le.inb(il) .and. iflag(il) .le. 1) then
+!AC!
+!AC!          if (cvflag_grav) then
+!AC!           ftra(il,1,k)=ftra(il,1,k)+0.01*grav*work(il)*ment(il,j,1)
+!AC!     :                *(traent(il,j,1,k)-tra(il,1,k))
+!AC!          else
+!AC!           ftra(il,1,k)=ftra(il,1,k)+0.1*work(il)*ment(il,j,1)
+!AC!     :                *(traent(il,j,1,k)-tra(il,1,k))
+!AC!          endif
+!AC!
+!AC!         endif
+!AC!        enddo
+!AC!       enddo
+!AC!      enddo
+! print*,'cv3_yield apres ft'
+
+!jyg<
+!-----------------------------------------------------------
+           IF (ok_optim_yield) THEN                       !|
+!-----------------------------------------------------------
+!
+!***                                                      ***
+!***    Compute convective mass fluxes upwd and dnwd      ***
+
+upwd(:,:) = 0.
+up_to(:,:) = 0.
+up_from(:,:) = 0.
+dnwd(:,:) = 0.
+dn_to(:,:) = 0.
+dn_from(:,:) = 0.
+!
+! =================================================
+!              upward fluxes                      |
+! ------------------------------------------------
+DO i = 2, nl
+  DO il = 1, ncum
+    IF (i<=inb(il)) THEN
+      up_to(il,i) = m(il,i)
+    ENDIF
+  ENDDO
+  DO j = 1, i-1
+    DO il = 1, ncum
+      IF (i<=inb(il)) THEN
+        up_to(il,i) = up_to(il,i) + ment(il,j,i)
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+!
+DO i = 1, nl
+  DO il = 1, ncum
+    IF (i<=inb(il)) THEN
+      up_from(il,i) = cbmf(il)*wghti(il,i)
+    ENDIF
+  ENDDO
+ENDDO
+!!DO i = 2, nl
+!!  DO j = i+1, nl          !! Permuter les boucles i et j
+DO j = 3, nl
+  DO i = 2, j-1
+    DO il = 1, ncum
+      IF (j<=inb(il)) THEN
+        up_from(il,i) = up_from(il,i) + ment(il,i,j)
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+!
+! The difference between upwd(il,i) and upwd(il,i-1) is due to updrafts ending in layer 
+!(i-1) (theses drafts cross interface (i-1) but not interface(i)) and to updrafts starting 
+!from layer (i-1) (theses drafts cross interface (i) but not interface(i-1)): 
+! 
+DO i = 2, nlp
+  DO il = 1, ncum
+    upwd(il,i) = max(0., upwd(il,i-1) - up_to(il,i-1) + up_from(il,i-1))
+  ENDDO
+ENDDO
+!
+! =================================================
+!              downward fluxes                    |
+! ------------------------------------------------
+DO i = 1, nl
+  DO j = i+1, nl
+    DO il = 1, ncum
+      IF (j<=inb(il)) THEN
+        dn_to(il,i) = dn_to(il,i) + ment(il,j,i)
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+!
+!!DO i = 2, nl
+!!  DO j = 1, i-1          !! Permuter les boucles i et j 
+DO j = 1, nl
+  DO i = j+1, nl
+    DO il = 1, ncum
+      IF (i<=inb(il)) THEN
+        dn_from(il,i) = dn_from(il,i) + ment(il,i,j)
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+!
+! The difference between dnwd(il,i) and dnwd(il,i+1) is due to downdrafts ending in layer 
+!(i) (theses drafts cross interface (i+1) but not interface(i)) and to downdrafts 
+!starting from layer (i) (theses drafts cross interface (i) but not interface(i+1)): 
+!
+DO i = nl-1, 1, -1
+  DO il = 1, ncum
+    dnwd(il,i) = max(0., dnwd(il,i+1) - dn_to(il,i) + dn_from(il,i))
+  ENDDO
+ENDDO
+! =================================================
+!
+!-----------------------------------------------------------
+        ENDIF !(ok_optim_yield)                           !|
+!-----------------------------------------------------------
+!>jyg
+
+! ***  calculate tendencies of potential temperature and mixing ratio  ***
+! ***               at levels above the lowest level                   ***
+
+! ***  first find the net saturated updraft and downdraft mass fluxes  ***
+! ***                      through each level                          ***
+
+
+!jyg<
+!!  DO i = 2, nl + 1 ! newvecto: mettre nl au lieu nl+1?
+  DO i = 2, nl
+!>jyg 
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. iflag(il)<=1) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 500
+
+!
+!jyg<
+!-----------------------------------------------------------
+           IF (ok_optim_yield) THEN                       !|
+!-----------------------------------------------------------
+DO il = 1, ncum
+   amp1(il) = upwd(il,i+1)
+   ad(il) = dnwd(il,i)
+ENDDO
+!-----------------------------------------------------------
+        ELSE !(ok_optim_yield)                            !|
+!-----------------------------------------------------------
+!>jyg
+    DO il = 1,ncum
+      amp1(il) = 0.
+      ad(il) = 0.
+    ENDDO
+
+    DO k = 1, nl + 1
+      DO il = 1, ncum
+        IF (i>=icb(il)) THEN
+          IF (k>=i+1 .AND. k<=(inb(il)+1)) THEN
+            amp1(il) = amp1(il) + m(il, k)
+          END IF
+        ELSE
+! AMP1 is the part of cbmf taken from layers I and lower
+          IF (k<=i) THEN
+            amp1(il) = amp1(il) + cbmf(il)*wghti(il, k)
+          END IF
+        END IF
+      END DO
+    END DO
+
+    DO j = i + 1, nl + 1         
+       DO k = 1, i
+          !yor! reverted j and k loops 
+          DO il = 1, ncum
+!yor!        IF (i<=inb(il) .AND. j<=(inb(il)+1)) THEN ! the second condition implies the first !
+             IF (j<=(inb(il)+1)) THEN  
+                amp1(il) = amp1(il) + ment(il, k, j)
+             END IF
+          END DO
+       END DO
+    END DO
+
+    DO k = 1, i - 1
+!jyg<
+!!      DO j = i, nl + 1 ! newvecto: nl au lieu nl+1?
+      DO j = i, nl
+!>jyg
+        DO il = 1, ncum
+!yor!        IF (i<=inb(il) .AND. j<=inb(il)) THEN ! the second condition implies the 1st !
+             IF (j<=inb(il)) THEN   
+            ad(il) = ad(il) + ment(il, j, k)
+          END IF
+        END DO
+      END DO
+    END DO
+!
+!-----------------------------------------------------------
+        ENDIF !(ok_optim_yield)                           !|
+!-----------------------------------------------------------
+!
+!!   print *,'yield, i, amp1, ad', i, amp1(1), ad(1)
+
+    DO il = 1, ncum
+      IF (i<=inb(il) .AND. iflag(il)<=1) THEN
+        dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+        cpinv = 1.0/cpn(il, i)
+
+! convect3      if((0.1*dpinv*amp1).ge.delti)iflag(il)=4
+        IF ((0.01*grav*dpinv*amp1(il))>=delti) iflag(il) = 1 ! vecto
+
+! precip
+! cc       ft(il,i)= -0.5*sigd(il)*lvcp(il,i)*(evap(il,i)+evap(il,i+1))
+        IF (cvflag_ice) THEN
+          ft(il, i) = -sigd(il)*lvcp(il, i)*evap(il, i) - &
+                       sigd(il)*lfcp(il, i)*evap(il, i)*faci(il, i) - &
+                       sigd(il)*lfcp(il, i)*fondue(il, i)*wt(il, i)/(100.*(p(il,i-1)-p(il,i)))
+        ELSE
+          ft(il, i) = -sigd(il)*lvcp(il, i)*evap(il, i)
+        END IF
+
+        rat = cpn(il, i-1)*cpinv
+
+        ft(il, i) = ft(il, i) - 0.009*grav*sigd(il) * &
+                     (mp(il,i+1)*t_wake(il,i)*b(il,i)-mp(il,i)*t_wake(il,i-1)*rat*b(il,i-1))*dpinv
+        IF (cvflag_ice) THEN
+          ft(il, i) = ft(il, i) + 0.01*sigd(il)*wt(il, i)*(cl-cpd)*water(il, i+1) * &
+                                       (t_wake(il,i+1)-t_wake(il,i))*dpinv*cpinv + &
+                                  0.01*sigd(il)*wt(il, i)*(ci-cpd)*ice(il, i+1) * &
+                                       (t_wake(il,i+1)-t_wake(il,i))*dpinv*cpinv
+        ELSE
+          ft(il, i) = ft(il, i) + 0.01*sigd(il)*wt(il, i)*(cl-cpd)*water(il, i+1) * &
+                                       (t_wake(il,i+1)-t_wake(il,i))*dpinv* &
+            cpinv
+        END IF
+
+        ftd(il, i) = ft(il, i)
+! fin precip
+
+! sature
+        ft(il, i) = ft(il, i) + 0.01*grav*dpinv * &
+                     (amp1(il)*(t(il,i+1)-t(il,i) + (gz(il,i+1)-gz(il,i))*cpinv) - &
+                      ad(il)*(t(il,i)-t(il,i-1)+(gz(il,i)-gz(il,i-1))*cpinv))
+
+
+        IF (iflag_mix==0) THEN
+          ft(il, i) = ft(il, i) + 0.01*grav*dpinv*ment(il, i, i)*(hp(il,i)-h(il,i) + &
+                                    t(il,i)*(cpv-cpd)*(rr(il,i)-qent(il,i,i)))*cpinv
+        END IF
+
+
+
+! sb: on ne fait pas encore la correction permettant de mieux
+! conserver l'eau:
+!JYG: correction permettant de mieux conserver l'eau:
+! cc         fr(il,i)=0.5*sigd(il)*(evap(il,i)+evap(il,i+1))
+        fr(il, i) = sigd(il)*evap(il, i) + 0.01*grav*(mp(il,i+1)*(rp(il,i+1)-rr_wake(il,i)) - &
+                                                      mp(il,i)*(rp(il,i)-rr_wake(il,i-1)))*dpinv
+        fqd(il, i) = fr(il, i)                                                                     ! precip
+
+        fu(il, i) = 0.01*grav*(mp(il,i+1)*(up(il,i+1)-u(il,i)) - &
+                               mp(il,i)*(up(il,i)-u(il,i-1)))*dpinv
+        fv(il, i) = 0.01*grav*(mp(il,i+1)*(vp(il,i+1)-v(il,i)) - &
+                               mp(il,i)*(vp(il,i)-v(il,i-1)))*dpinv
+
+
+        fr(il, i) = fr(il, i) + 0.01*grav*dpinv*(amp1(il)*(rr(il,i+1)-rr(il,i)) - &
+                                                 ad(il)*(rr(il,i)-rr(il,i-1)))
+        fu(il, i) = fu(il, i) + 0.01*grav*dpinv*(amp1(il)*(u(il,i+1)-u(il,i)) - &
+                                                 ad(il)*(u(il,i)-u(il,i-1)))
+        fv(il, i) = fv(il, i) + 0.01*grav*dpinv*(amp1(il)*(v(il,i+1)-v(il,i)) - &
+                                                 ad(il)*(v(il,i)-v(il,i-1)))
+
+      END IF ! i
+    END DO
+
+!AC!      do k=1,ntra
+!AC!       do il=1,ncum
+!AC!        if (i.le.inb(il) .and. iflag(il) .le. 1) then
+!AC!         dpinv=1.0/(ph(il,i)-ph(il,i+1))
+!AC!         cpinv=1.0/cpn(il,i)
+!AC!         if (cvflag_grav) then
+!AC!           ftra(il,i,k)=ftra(il,i,k)+0.01*grav*dpinv
+!AC!     :         *(amp1(il)*(tra(il,i+1,k)-tra(il,i,k))
+!AC!     :           -ad(il)*(tra(il,i,k)-tra(il,i-1,k)))
+!AC!         else
+!AC!           ftra(il,i,k)=ftra(il,i,k)+0.1*dpinv
+!AC!     :         *(amp1(il)*(tra(il,i+1,k)-tra(il,i,k))
+!AC!     :           -ad(il)*(tra(il,i,k)-tra(il,i-1,k)))
+!AC!         endif
+!AC!        endif
+!AC!       enddo
+!AC!      enddo
+
+    DO k = 1, i - 1
+
+      DO il = 1, ncum
+        awat(il) = elij(il, k, i) - (1.-ep(il,i))*clw(il, i)
+        awat(il) = max(awat(il), 0.0)
+      END DO
+
+      IF (iflag_mix/=0) THEN
+        DO il = 1, ncum
+          IF (i<=inb(il) .AND. iflag(il)<=1) THEN
+            dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+            cpinv = 1.0/cpn(il, i)
+            ft(il, i) = ft(il, i) + 0.01*grav*dpinv*ment(il, k, i) * &
+                 (hent(il,k,i)-h(il,i)+t(il,i)*(cpv-cpd)*(rr(il,i)+awat(il)-qent(il,k,i)))*cpinv
+!
+!
+          END IF ! i
+        END DO
+      END IF
+
+      DO il = 1, ncum
+        IF (i<=inb(il) .AND. iflag(il)<=1) THEN
+          dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+          cpinv = 1.0/cpn(il, i)
+          fr(il, i) = fr(il, i) + 0.01*grav*dpinv*ment(il, k, i) * &
+                                                       (qent(il,k,i)-awat(il)-rr(il,i))
+          fu(il, i) = fu(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(uent(il,k,i)-u(il,i))
+          fv(il, i) = fv(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(vent(il,k,i)-v(il,i))
+
+! (saturated updrafts resulting from mixing)                                   ! cld
+          qcond(il, i) = qcond(il, i) + (elij(il,k,i)-awat(il))                ! cld
+          qtment(il, i) = qtment(il, i) + qent(il,k,i)                         ! cld
+          nqcond(il, i) = nqcond(il, i) + 1.                                   ! cld
+        END IF ! i
+      END DO
+    END DO
+
+!AC!      do j=1,ntra
+!AC!       do k=1,i-1
+!AC!        do il=1,ncum
+!AC!         if (i.le.inb(il) .and. iflag(il) .le. 1) then
+!AC!          dpinv=1.0/(ph(il,i)-ph(il,i+1))
+!AC!          cpinv=1.0/cpn(il,i)
+!AC!          if (cvflag_grav) then
+!AC!           ftra(il,i,j)=ftra(il,i,j)+0.01*grav*dpinv*ment(il,k,i)
+!AC!     :        *(traent(il,k,i,j)-tra(il,i,j))
+!AC!          else
+!AC!           ftra(il,i,j)=ftra(il,i,j)+0.1*dpinv*ment(il,k,i)
+!AC!     :        *(traent(il,k,i,j)-tra(il,i,j))
+!AC!          endif
+!AC!         endif
+!AC!        enddo
+!AC!       enddo
+!AC!      enddo
+
+!jyg<
+!!    DO k = i, nl + 1
+    DO k = i, nl
+!>jyg
+
+      IF (iflag_mix/=0) THEN
+        DO il = 1, ncum
+          IF (i<=inb(il) .AND. k<=inb(il) .AND. iflag(il)<=1) THEN
+            dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+            cpinv = 1.0/cpn(il, i)
+            ft(il, i) = ft(il, i) + 0.01*grav*dpinv*ment(il, k, i) * &
+                  (hent(il,k,i)-h(il,i)+t(il,i)*(cpv-cpd)*(rr(il,i)-qent(il,k,i)))*cpinv
+
+
+          END IF ! i
+        END DO
+      END IF
+
+      DO il = 1, ncum
+        IF (i<=inb(il) .AND. k<=inb(il) .AND. iflag(il)<=1) THEN
+          dpinv = 1.0/(ph(il,i)-ph(il,i+1))
+          cpinv = 1.0/cpn(il, i)
+
+          fr(il, i) = fr(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(qent(il,k,i)-rr(il,i))
+          fu(il, i) = fu(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(uent(il,k,i)-u(il,i))
+          fv(il, i) = fv(il, i) + 0.01*grav*dpinv*ment(il, k, i)*(vent(il,k,i)-v(il,i))
+        END IF ! i and k
+      END DO
+    END DO
+
+!AC!      do j=1,ntra
+!AC!       do k=i,nl+1
+!AC!        do il=1,ncum
+!AC!         if (i.le.inb(il) .and. k.le.inb(il)
+!AC!     $                .and. iflag(il) .le. 1) then
+!AC!          dpinv=1.0/(ph(il,i)-ph(il,i+1))
+!AC!          cpinv=1.0/cpn(il,i)
+!AC!          if (cvflag_grav) then
+!AC!           ftra(il,i,j)=ftra(il,i,j)+0.01*grav*dpinv*ment(il,k,i)
+!AC!     :         *(traent(il,k,i,j)-tra(il,i,j))
+!AC!          else
+!AC!           ftra(il,i,j)=ftra(il,i,j)+0.1*dpinv*ment(il,k,i)
+!AC!     :             *(traent(il,k,i,j)-tra(il,i,j))
+!AC!          endif
+!AC!         endif ! i and k
+!AC!        enddo
+!AC!       enddo
+!AC!      enddo
+
+! sb: interface with the cloud parameterization:                               ! cld
+
+    DO k = i + 1, nl
+      DO il = 1, ncum
+        IF (k<=inb(il) .AND. i<=inb(il) .AND. iflag(il)<=1) THEN               ! cld
+! (saturated downdrafts resulting from mixing)                                 ! cld
+          qcond(il, i) = qcond(il, i) + elij(il, k, i)                         ! cld
+          qtment(il, i) = qent(il,k,i) + qtment(il,i)                          ! cld
+          nqcond(il, i) = nqcond(il, i) + 1.                                   ! cld
+        END IF ! cld
+      END DO ! cld
+    END DO ! cld
+
+! (particular case: no detraining level is found)                              ! cld
+    DO il = 1, ncum                                                            ! cld
+      IF (i<=inb(il) .AND. nent(il,i)==0 .AND. iflag(il)<=1) THEN              ! cld
+        qcond(il, i) = qcond(il, i) + (1.-ep(il,i))*clw(il, i)                 ! cld
+        qtment(il, i) = qent(il,k,i) + qtment(il,i)                          ! cld
+        nqcond(il, i) = nqcond(il, i) + 1.                                     ! cld
+      END IF                                                                   ! cld
+    END DO                                                                     ! cld
+
+    DO il = 1, ncum                                                            ! cld
+      IF (i<=inb(il) .AND. nqcond(il,i)/=0 .AND. iflag(il)<=1) THEN            ! cld
+        qcond(il, i) = qcond(il, i)/nqcond(il, i)                              ! cld
+        qtment(il, i) = qtment(il,i)/nqcond(il, i)                             ! cld
+      END IF                                                                   ! cld
+    END DO
+
+!AC!      do j=1,ntra
+!AC!       do il=1,ncum
+!AC!        if (i.le.inb(il) .and. iflag(il) .le. 1) then
+!AC!         dpinv=1.0/(ph(il,i)-ph(il,i+1))
+!AC!         cpinv=1.0/cpn(il,i)
+!AC!
+!AC!         if (cvflag_grav) then
+!AC!          ftra(il,i,j)=ftra(il,i,j)+0.01*grav*dpinv
+!AC!     :     *(mp(il,i+1)*(trap(il,i+1,j)-tra(il,i,j))
+!AC!     :     -mp(il,i)*(trap(il,i,j)-trap(il,i-1,j)))
+!AC!         else
+!AC!          ftra(il,i,j)=ftra(il,i,j)+0.1*dpinv
+!AC!     :     *(mp(il,i+1)*(trap(il,i+1,j)-tra(il,i,j))
+!AC!     :     -mp(il,i)*(trap(il,i,j)-trap(il,i-1,j)))
+!AC!         endif
+!AC!        endif ! i
+!AC!       enddo
+!AC!      enddo
+
+
+500 END DO
+
+!JYG<
+!Conservation de l'eau
+!   sumdq = 0.
+!   DO k = 1, nl
+!     sumdq = sumdq + fr(1, k)*100.*(ph(1,k)-ph(1,k+1))/grav
+!   END DO
+!   PRINT *, 'cv3_yield, apres 500, sum(dq), precip, somme ', sumdq, Vprecip(1, 1), sumdq + vprecip(1, 1)
+!JYG>
+! ***   move the detrainment at level inb down to level inb-1   ***
+! ***        in such a way as to preserve the vertically        ***
+! ***          integrated enthalpy and water tendencies         ***
+
+! Correction bug le 18-03-09
+  DO il = 1, ncum
+    IF (iflag(il)<=1) THEN
+      ax = 0.01*grav*ment(il, inb(il), inb(il))* &
+           (hp(il,inb(il))-h(il,inb(il))+t(il,inb(il))*(cpv-cpd)*(rr(il,inb(il))-qent(il,inb(il),inb(il))))/ &
+                                (cpn(il,inb(il))*(ph(il,inb(il))-ph(il,inb(il)+1)))
+      ft(il, inb(il)) = ft(il, inb(il)) - ax
+      ft(il, inb(il)-1) = ft(il, inb(il)-1) + ax*cpn(il, inb(il))*(ph(il,inb(il))-ph(il,inb(il)+1))/ &
+                              (cpn(il,inb(il)-1)*(ph(il,inb(il)-1)-ph(il,inb(il))))
+
+      bx = 0.01*grav*ment(il, inb(il), inb(il))*(qent(il,inb(il),inb(il))-rr(il,inb(il)))/ &
+                                                 (ph(il,inb(il))-ph(il,inb(il)+1))
+      fr(il, inb(il)) = fr(il, inb(il)) - bx
+      fr(il, inb(il)-1) = fr(il, inb(il)-1) + bx*(ph(il,inb(il))-ph(il,inb(il)+1))/ &
+                                                 (ph(il,inb(il)-1)-ph(il,inb(il)))
+
+      cx = 0.01*grav*ment(il, inb(il), inb(il))*(uent(il,inb(il),inb(il))-u(il,inb(il)))/ &
+                                                 (ph(il,inb(il))-ph(il,inb(il)+1))
+      fu(il, inb(il)) = fu(il, inb(il)) - cx
+      fu(il, inb(il)-1) = fu(il, inb(il)-1) + cx*(ph(il,inb(il))-ph(il,inb(il)+1))/ &
+                                                 (ph(il,inb(il)-1)-ph(il,inb(il)))
+
+      dx = 0.01*grav*ment(il, inb(il), inb(il))*(vent(il,inb(il),inb(il))-v(il,inb(il)))/ &
+                                                 (ph(il,inb(il))-ph(il,inb(il)+1))
+      fv(il, inb(il)) = fv(il, inb(il)) - dx
+      fv(il, inb(il)-1) = fv(il, inb(il)-1) + dx*(ph(il,inb(il))-ph(il,inb(il)+1))/ &
+                                                 (ph(il,inb(il)-1)-ph(il,inb(il)))
+    END IF !iflag
+  END DO
+
+!JYG<
+!Conservation de l'eau
+!   sumdq = 0.
+!   DO k = 1, nl
+!     sumdq = sumdq + fr(1, k)*100.*(ph(1,k)-ph(1,k+1))/grav
+!   END DO
+!   PRINT *, 'cv3_yield, apres 503, sum(dq), precip, somme ', sumdq, Vprecip(1, 1), sumdq + vprecip(1, 1)
+!JYG>
+
+!AC!      do j=1,ntra
+!AC!       do il=1,ncum
+!AC!        IF (iflag(il) .le. 1) THEN
+!AC!	IF (cvflag_grav) then
+!AC!        ex=0.01*grav*ment(il,inb(il),inb(il))
+!AC!     :      *(traent(il,inb(il),inb(il),j)-tra(il,inb(il),j))
+!AC!     :      /(ph(i l,inb(il))-ph(il,inb(il)+1))
+!AC!        ftra(il,inb(il),j)=ftra(il,inb(il),j)-ex
+!AC!        ftra(il,inb(il)-1,j)=ftra(il,inb(il)-1,j)
+!AC!     :       +ex*(ph(il,inb(il))-ph(il,inb(il)+1))
+!AC!     :          /(ph(il,inb(il)-1)-ph(il,inb(il)))
+!AC!	else
+!AC!        ex=0.1*ment(il,inb(il),inb(il))
+!AC!     :      *(traent(il,inb(il),inb(il),j)-tra(il,inb(il),j))
+!AC!     :      /(ph(i l,inb(il))-ph(il,inb(il)+1))
+!AC!        ftra(il,inb(il),j)=ftra(il,inb(il),j)-ex
+!AC!        ftra(il,inb(il)-1,j)=ftra(il,inb(il)-1,j)
+!AC!     :       +ex*(ph(il,inb(il))-ph(il,inb(il)+1))
+!AC!     :          /(ph(il,inb(il)-1)-ph(il,inb(il)))
+!AC!        ENDIF   !cvflag grav
+!AC!        ENDIF    !iflag
+!AC!       enddo
+!AC!      enddo
+
+
+! ***    homogenize tendencies below cloud base    ***
+
+
+  DO il = 1, ncum
+    asum(il) = 0.0
+    bsum(il) = 0.0
+    csum(il) = 0.0
+    dsum(il) = 0.0
+    esum(il) = 0.0
+    fsum(il) = 0.0
+    gsum(il) = 0.0
+    hsum(il) = 0.0
+  END DO
+
+!do i=1,nl
+!do il=1,ncum
+!th_wake(il,i)=t_wake(il,i)*(1000.0/p(il,i))**rdcp
+!enddo
+!enddo
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i<=(icb(il)-1) .AND. iflag(il)<=1) THEN
+!jyg  Saturated part : use T profile
+        asum(il) = asum(il) + (ft(il,i)-ftd(il,i))*(ph(il,i)-ph(il,i+1))
+!jyg<20140311
+!Correction pour conserver l eau
+        IF (ok_conserv_q) THEN
+          bsum(il) = bsum(il) + (fr(il,i)-fqd(il,i))*(ph(il,i)-ph(il,i+1))
+          csum(il) = csum(il) + (ph(il,i)-ph(il,i+1))
+
+        ELSE
+          bsum(il)=bsum(il)+(fr(il,i)-fqd(il,i))*(lv(il,i)+(cl-cpd)*(t(il,i)-t(il,1)))* &
+                            (ph(il,i)-ph(il,i+1))
+          csum(il)=csum(il)+(lv(il,i)+(cl-cpd)*(t(il,i)-t(il,1)))* &
+                            (ph(il,i)-ph(il,i+1))
+        ENDIF ! (ok_conserv_q)
+!jyg>
+        dsum(il) = dsum(il) + t(il, i)*(ph(il,i)-ph(il,i+1))/th(il, i)
+!jyg  Unsaturated part : use T_wake profile
+        esum(il) = esum(il) + ftd(il, i)*(ph(il,i)-ph(il,i+1))
+!jyg<20140311
+!Correction pour conserver l eau
+        IF (ok_conserv_q) THEN
+          fsum(il) = fsum(il) + fqd(il, i)*(ph(il,i)-ph(il,i+1))
+          gsum(il) = gsum(il) + (ph(il,i)-ph(il,i+1))
+        ELSE
+          fsum(il)=fsum(il)+fqd(il,i)*(lv(il,i)+(cl-cpd)*(t_wake(il,i)-t_wake(il,1)))* &
+                            (ph(il,i)-ph(il,i+1))
+          gsum(il)=gsum(il)+(lv(il,i)+(cl-cpd)*(t_wake(il,i)-t_wake(il,1)))* &
+                            (ph(il,i)-ph(il,i+1))
+        ENDIF ! (ok_conserv_q)
+!jyg>
+        hsum(il) = hsum(il) + t_wake(il, i)*(ph(il,i)-ph(il,i+1))/th_wake(il, i)
+      END IF
+    END DO
+  END DO
+
+!!!!      do 700 i=1,icb(il)-1
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i<=(icb(il)-1) .AND. iflag(il)<=1) THEN
+        ftd(il, i) = esum(il)*t_wake(il, i)/(th_wake(il,i)*hsum(il))
+        fqd(il, i) = fsum(il)/gsum(il)
+        ft(il, i) = ftd(il, i) + asum(il)*t(il, i)/(th(il,i)*dsum(il))
+        fr(il, i) = fqd(il, i) + bsum(il)/csum(il)
+      END IF
+    END DO
+  END DO
+
+!jyg<
+!Conservation de l'eau
+!!  sumdq = 0.
+!!  DO k = 1, nl
+!!    sumdq = sumdq + fr(1, k)*100.*(ph(1,k)-ph(1,k+1))/grav
+!!  END DO
+!!  PRINT *, 'cv3_yield, apres hom, sum(dq), precip, somme ', sumdq, Vprecip(1, 1), sumdq + vprecip(1, 1)
+!jyg>
+
+
+! ***   Check that moisture stays positive. If not, scale tendencies
+! in order to ensure moisture positivity
+  DO il = 1, ncum
+    alpha_qpos(il) = 1.
+    IF (iflag(il)<=1) THEN
+      IF (fr(il,1)<=0.) THEN
+        alpha_qpos(il) = max(alpha_qpos(il), (-delt*fr(il,1))/(s_wake(il)*rr_wake(il,1)+(1.-s_wake(il))*rr(il,1)))
+      END IF
+    END IF
+  END DO
+  DO i = 2, nl
+    DO il = 1, ncum
+      IF (iflag(il)<=1) THEN
+        IF (fr(il,i)<=0.) THEN
+          alpha_qpos1(il) = max(1., (-delt*fr(il,i))/(s_wake(il)*rr_wake(il,i)+(1.-s_wake(il))*rr(il,i)))
+          IF (alpha_qpos1(il)>=alpha_qpos(il)) alpha_qpos(il) = alpha_qpos1(il)
+        END IF
+      END IF
+    END DO
+  END DO
+  DO il = 1, ncum
+    IF (iflag(il)<=1 .AND. alpha_qpos(il)>1.001) THEN
+      alpha_qpos(il) = alpha_qpos(il)*1.1
+    END IF
+  END DO
+!
+!    print *,' YIELD : alpha_qpos ',alpha_qpos(1)
+!
+  DO il = 1, ncum
+    IF (iflag(il)<=1) THEN
+      sigd(il) = sigd(il)/alpha_qpos(il)
+      precip(il) = precip(il)/alpha_qpos(il)
+      cbmf(il) = cbmf(il)/alpha_qpos(il)
+    END IF
+  END DO
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (iflag(il)<=1) THEN
+        fr(il, i) = fr(il, i)/alpha_qpos(il)
+        ft(il, i) = ft(il, i)/alpha_qpos(il)
+        fqd(il, i) = fqd(il, i)/alpha_qpos(il)
+        ftd(il, i) = ftd(il, i)/alpha_qpos(il)
+        fu(il, i) = fu(il, i)/alpha_qpos(il)
+        fv(il, i) = fv(il, i)/alpha_qpos(il)
+        m(il, i) = m(il, i)/alpha_qpos(il)
+        mp(il, i) = mp(il, i)/alpha_qpos(il)
+        Vprecip(il, i) = Vprecip(il, i)/alpha_qpos(il)
+        Vprecipi(il, i) = Vprecipi(il, i)/alpha_qpos(il)                     ! jyg
+      END IF
+    END DO
+  END DO
+!jyg<
+!-----------------------------------------------------------
+           IF (ok_optim_yield) THEN                       !|
+!-----------------------------------------------------------
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (iflag(il)<=1) THEN
+        upwd(il, i) = upwd(il, i)/alpha_qpos(il)
+        dnwd(il, i) = dnwd(il, i)/alpha_qpos(il)
+      END IF
+    END DO
+  END DO
+!-----------------------------------------------------------
+        ENDIF !(ok_optim_yield)                           !|
+!-----------------------------------------------------------
+!>jyg
+  DO j = 1, nl !yor! inverted i and j loops
+     DO i = 1, nl
+      DO il = 1, ncum
+        IF (iflag(il)<=1) THEN
+          ment(il, i, j) = ment(il, i, j)/alpha_qpos(il)
+        END IF
+      END DO
+    END DO
+  END DO
+
+!AC!      DO j = 1,ntra
+!AC!      DO i = 1,nl
+!AC!       DO il = 1,ncum
+!AC!        IF (iflag(il) .le. 1) THEN
+!AC!         ftra(il,i,j) = ftra(il,i,j)/alpha_qpos(il)
+!AC!        ENDIF
+!AC!       ENDDO
+!AC!      ENDDO
+!AC!      ENDDO
+
+
+! ***           reset counter and return           ***
+
+! Reset counter only for points actually convective (jyg)
+! In order take into account the possibility of changing the compression,
+! reset m, sig and w0 to zero for non-convecting points.
+  DO il = 1, ncum
+    IF (iflag(il) < 3) THEN
+      sig(il, nd) = 2.0
+    ENDIF
+  END DO
+
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      dnwd0(il, i) = -mp(il, i)
+    END DO
+  END DO
+!jyg<  (loops stop at nl)
+!!  DO i = nl + 1, nd
+!!    DO il = 1, ncum
+!!      dnwd0(il, i) = 0.
+!!    END DO
+!!  END DO
+!>jyg
+
+
+!jyg<
+!-----------------------------------------------------------
+           IF (.NOT.ok_optim_yield) THEN                  !|
+!-----------------------------------------------------------
+  DO i = 1, nl
+    DO il = 1, ncum
+      upwd(il, i) = 0.0
+      dnwd(il, i) = 0.0
+    END DO
+  END DO
+
+!!  DO i = 1, nl                                           ! useless; jyg
+!!    DO il = 1, ncum                                      ! useless; jyg
+!!      IF (i>=icb(il) .AND. i<=inb(il)) THEN              ! useless; jyg
+!!        upwd(il, i) = 0.0                                ! useless; jyg
+!!        dnwd(il, i) = 0.0                                ! useless; jyg
+!!      END IF                                             ! useless; jyg
+!!    END DO                                               ! useless; jyg
+!!  END DO                                                 ! useless; jyg
+
+  DO i = 1, nl
+    DO k = 1, nl
+      DO il = 1, ncum
+        up1(il, k, i) = 0.0
+        dn1(il, k, i) = 0.0
+      END DO
+    END DO
+  END DO
+
+!yor! commented original
+!  DO i = 1, nl
+!    DO k = i, nl
+!      DO n = 1, i - 1
+!        DO il = 1, ncum
+!          IF (i>=icb(il) .AND. i<=inb(il) .AND. k<=inb(il)) THEN
+!            up1(il, k, i) = up1(il, k, i) + ment(il, n, k)
+!            dn1(il, k, i) = dn1(il, k, i) - ment(il, k, n)
+!          END IF
+!        END DO
+!      END DO
+!    END DO
+!  END DO
+!yor! replaced with
+  DO i = 1, nl
+    DO k = i, nl
+      DO n = 1, i - 1
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. k<=inb(il)) THEN ! yor ! as i always <= k
+             up1(il, k, i) = up1(il, k, i) + ment(il, n, k)
+          END IF
+        END DO
+      END DO
+    END DO
+  END DO
+  DO i = 1, nl
+    DO n = 1, i - 1
+      DO k = i, nl
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. k<=inb(il)) THEN ! yor !  i always <= k
+             dn1(il, k, i) = dn1(il, k, i) - ment(il, k, n)
+          END IF
+        END DO
+      END DO
+    END DO
+  END DO
+!yor! end replace 
+
+  DO i = 1, nl
+    DO k = 1, nl
+      DO il = 1, ncum
+        IF (i>=icb(il)) THEN
+          IF (k>=i .AND. k<=(inb(il))) THEN
+            upwd(il, i) = upwd(il, i) + m(il, k)
+          END IF
+        ELSE
+          IF (k<i) THEN
+            upwd(il, i) = upwd(il, i) + cbmf(il)*wghti(il, k)
+          END IF
+        END IF
+! c        print *,'cbmf',il,i,k,cbmf(il),wghti(il,k)
+      END DO
+    END DO
+  END DO
+
+  DO i = 2, nl
+    DO k = i, nl
+      DO il = 1, ncum
+! test         if (i.ge.icb(il).and.i.le.inb(il).and.k.le.inb(il)) then
+        IF (i<=inb(il) .AND. k<=inb(il)) THEN
+          upwd(il, i) = upwd(il, i) + up1(il, k, i)
+          dnwd(il, i) = dnwd(il, i) + dn1(il, k, i)
+        END IF
+! c         print *,'upwd',il,i,k,inb(il),upwd(il,i),m(il,k),up1(il,k,i)
+      END DO
+    END DO
+  END DO
+
+
+!!!!      DO il=1,ncum
+!!!!      do i=icb(il),inb(il)
+!!!!
+!!!!      upwd(il,i)=0.0
+!!!!      dnwd(il,i)=0.0
+!!!!      do k=i,inb(il)
+!!!!      up1=0.0
+!!!!      dn1=0.0
+!!!!      do n=1,i-1
+!!!!      up1=up1+ment(il,n,k)
+!!!!      dn1=dn1-ment(il,k,n)
+!!!!      enddo
+!!!!      upwd(il,i)=upwd(il,i)+m(il,k)+up1
+!!!!      dnwd(il,i)=dnwd(il,i)+dn1
+!!!!      enddo
+!!!!      enddo
+!!!!
+!!!!      ENDDO
+!-----------------------------------------------------------
+        ENDIF !(.NOT.ok_optim_yield)                      !|
+!-----------------------------------------------------------
+!>jyg
+
+! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+! determination de la variation de flux ascendant entre
+! deux niveau non dilue mip
+! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      mip(il, i) = m(il, i)
+    END DO
+  END DO
+
+!jyg<  (loops stop at nl)
+!!  DO i = nl + 1, nd
+!!    DO il = 1, ncum
+!!      mip(il, i) = 0.
+!!    END DO
+!!  END DO
+!>jyg
+
+  DO i = 1, nlp
+    DO il = 1, ncum
+      ma(il, i) = 0
+    END DO
+  END DO
+
+  DO i = 1, nl
+    DO j = i, nl
+      DO il = 1, ncum
+        ma(il, i) = ma(il, i) + m(il, j)
+      END DO
+    END DO
+  END DO
+
+!jyg<  (loops stop at nl)
+!!  DO i = nl + 1, nd
+!!    DO il = 1, ncum
+!!      ma(il, i) = 0.
+!!    END DO
+!!  END DO
+!>jyg
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i<=(icb(il)-1)) THEN
+        ma(il, i) = 0
+      END IF
+    END DO
+  END DO
+
+! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+! icb represente de niveau ou se trouve la
+! base du nuage , et inb le top du nuage
+! ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+!!  DO i = 1, nd                                  ! unused . jyg
+!!    DO il = 1, ncum                             ! unused . jyg
+!!      mke(il, i) = upwd(il, i) + dnwd(il, i)    ! unused . jyg
+!!    END DO                                      ! unused . jyg
+!!  END DO                                        ! unused . jyg
+
+!!  DO i = 1, nd                                                                 ! unused . jyg
+!!    DO il = 1, ncum                                                            ! unused . jyg
+!!      rdcp = (rrd*(1.-rr(il,i))-rr(il,i)*rrv)/(cpd*(1.-rr(il,i))+rr(il,i)*cpv) ! unused . jyg
+!!      tls(il, i) = t(il, i)*(1000.0/p(il,i))**rdcp                             ! unused . jyg
+!!      tps(il, i) = tp(il, i)                                                   ! unused . jyg
+!!    END DO                                                                     ! unused . jyg
+!!  END DO                                                                       ! unused . jyg
+
+
+! *** diagnose the in-cloud mixing ratio   ***                       ! cld
+! ***           of condensed water         ***                       ! cld
+!! cld                                                               
+                                                                     
+  DO i = 1, nl+1                                                     ! cld
+    DO il = 1, ncum                                                  ! cld
+      mac(il, i) = 0.0                                               ! cld
+      wa(il, i) = 0.0                                                ! cld
+      siga(il, i) = 0.0                                              ! cld
+      sax(il, i) = 0.0                                               ! cld
+    END DO                                                           ! cld
+  END DO                                                             ! cld
+                                                                     
+  DO i = minorig, nl                                                 ! cld
+    DO k = i + 1, nl + 1                                             ! cld
+      DO il = 1, ncum                                                ! cld
+        IF (i<=inb(il) .AND. k<=(inb(il)+1) .AND. iflag(il)<=1) THEN ! cld
+          mac(il, i) = mac(il, i) + m(il, k)                         ! cld
+        END IF                                                       ! cld
+      END DO                                                         ! cld
+    END DO                                                           ! cld
+  END DO                                                             ! cld
+
+  DO i = 1, nl                                                       ! cld
+    DO j = 1, i                                                      ! cld
+      DO il = 1, ncum                                                ! cld
+        IF (i>=icb(il) .AND. i<=(inb(il)-1) &                        ! cld
+            .AND. j>=icb(il) .AND. iflag(il)<=1) THEN                ! cld
+          sax(il, i) = sax(il, i) + rrd*(tvp(il,j)-tv(il,j)) &       ! cld
+            *(ph(il,j)-ph(il,j+1))/p(il, j)                          ! cld
+        END IF                                                       ! cld
+      END DO                                                         ! cld
+    END DO                                                           ! cld
+  END DO                                                             ! cld
+
+  DO i = 1, nl                                                       ! cld
+    DO il = 1, ncum                                                  ! cld
+      IF (i>=icb(il) .AND. i<=(inb(il)-1) &                          ! cld
+          .AND. sax(il,i)>0.0 .AND. iflag(il)<=1) THEN               ! cld
+        wa(il, i) = sqrt(2.*sax(il,i))                               ! cld
+      END IF                                                         ! cld
+    END DO                                                           ! cld
+  END DO  
+                                                           ! cld
+  DO i = 1, nl  
+
+! 14/01/15 AJ je remets les parties manquantes cf JYG
+! Initialize sument to 0
+
+    DO il = 1,ncum
+     sument(il) = 0.
+    ENDDO
+
+! Sum mixed mass fluxes in sument
+
+    DO k = 1,nl
+      DO il = 1,ncum
+        IF  (k<=inb(il) .AND. i<=inb(il) .AND. iflag(il)<=1) THEN   ! cld
+          sument(il) =sument(il) + abs(ment(il,k,i))
+        ENDIF
+      ENDDO     ! il
+    ENDDO       ! k
+
+! 14/01/15 AJ delta n'a rien à faire là...                                                 
+    DO il = 1, ncum                                                  ! cld
+      IF (wa(il,i)>0.0 .AND. iflag(il)<=1) &                         ! cld
+        siga(il, i) = mac(il, i)/(coefw_cld_cv*wa(il, i)) &          ! cld
+        *rrd*tvp(il, i)/p(il, i)/100.                                ! cld
+
+      siga(il, i) = min(siga(il,i), 1.0)                             ! cld
+
+! IM cf. FH 
+! 14/01/15 AJ ne correspond pas à ce qui a été codé par JYG et SB           
+                                                         
+      IF (iflag_clw==0) THEN                                         ! cld
+        qcondc(il, i) = siga(il, i)*clw(il, i)*(1.-ep(il,i)) &       ! cld
+          +(1.-siga(il,i))*qcond(il, i)                              ! cld
+
+
+        sigment(il,i)=sument(il)*tau_cld_cv/(ph(il,i)-ph(il,i+1))    ! cld
+        sigment(il, i) = min(1.e-4+sigment(il,i), 1.0 - siga(il,i))  ! cld
+        qtc(il, i) = (siga(il,i)*qnk(il)+sigment(il,i)*qtment(il,i)) & ! cld
+                     /(siga(il,i)+sigment(il,i))                     ! cld
+        sigt(il,i) = sigment(il, i) + siga(il, i)
+
+!        qtc(il, i) = siga(il,i)*qnk(il)+(1.-siga(il,i))*qtment(il,i) ! cld
+!     print*,'BIGAUSSIAN CONV',siga(il,i),sigment(il,i),qtc(il,i)  
+      		
+      ELSE IF (iflag_clw==1) THEN                                    ! cld
+        qcondc(il, i) = qcond(il, i)                                 ! cld
+        qtc(il,i) = qtment(il,i)                                     ! cld
+      END IF                                                         ! cld
+
+    END DO                                                           ! cld
+  END DO
+! print*,'cv3_yield fin'
+
+  RETURN
+END SUBROUTINE cv3_yield
+
+!AC! et !RomP >>>
+SUBROUTINE cv3_tracer(nloc, len, ncum, nd, na, &
+                      ment, sigij, da, phi, phi2, d1a, dam, &
+                      ep, Vprecip, elij, clw, epmlmMm, eplaMm, &
+                      icb, inb)
+  IMPLICIT NONE
+
+  include "cv3param.h"
+
+!inputs:
+  INTEGER ncum, nd, na, nloc, len
+  REAL ment(nloc, na, na), sigij(nloc, na, na)
+  REAL clw(nloc, nd), elij(nloc, na, na)
+  REAL ep(nloc, na)
+  INTEGER icb(nloc), inb(nloc)
+  REAL Vprecip(nloc, nd+1)
+!ouputs:
+  REAL da(nloc, na), phi(nloc, na, na)
+  REAL phi2(nloc, na, na)
+  REAL d1a(nloc, na), dam(nloc, na)
+  REAL epmlmMm(nloc, na, na), eplaMm(nloc, na)
+! variables pour tracer dans precip de l'AA et des mel
+!local variables:
+  INTEGER i, j, k
+  REAL epm(nloc, na, na)
+
+! variables d'Emanuel : du second indice au troisieme
+! --->    tab(i,k,j) -> de l origine k a l arrivee j
+! ment, sigij, elij
+! variables personnelles : du troisieme au second indice
+! --->    tab(i,j,k) -> de k a j
+! phi, phi2
+
+! initialisations
+
+  da(:, :) = 0.
+  d1a(:, :) = 0.
+  dam(:, :) = 0.
+  epm(:, :, :) = 0.
+  eplaMm(:, :) = 0.
+  epmlmMm(:, :, :) = 0.
+  phi(:, :, :) = 0.
+  phi2(:, :, :) = 0.
+
+! fraction deau condensee dans les melanges convertie en precip : epm
+! et eau condensée précipitée dans masse d'air saturé : l_m*dM_m/dzdz.dzdz
+  DO j = 1, nl
+    DO k = 1, nl
+      DO i = 1, ncum
+        IF (k>=icb(i) .AND. k<=inb(i) .AND. & 
+!!jyg              j.ge.k.and.j.le.inb(i)) then
+!!jyg             epm(i,j,k)=1.-(1.-ep(i,j))*clw(i,j)/elij(i,k,j)
+            j>k .AND. j<=inb(i)) THEN
+          epm(i, j, k) = 1. - (1.-ep(i,j))*clw(i, j)/max(elij(i,k,j), 1.E-16)
+!!
+          epm(i, j, k) = max(epm(i,j,k), 0.0)
+        END IF
+      END DO
+    END DO
+  END DO
+
+
+  DO j = 1, nl
+    DO k = 1, nl
+      DO i = 1, ncum
+        IF (k>=icb(i) .AND. k<=inb(i)) THEN
+          eplaMm(i, j) = eplamm(i, j) + &
+                         ep(i, j)*clw(i, j)*ment(i, j, k)*(1.-sigij(i,j,k))
+        END IF
+      END DO
+    END DO
+  END DO
+
+  DO j = 1, nl
+    DO k = 1, j - 1
+      DO i = 1, ncum
+        IF (k>=icb(i) .AND. k<=inb(i) .AND. j<=inb(i)) THEN
+          epmlmMm(i, j, k) = epm(i, j, k)*elij(i, k, j)*ment(i, k, j)
+        END IF
+      END DO
+    END DO
+  END DO
+
+! matrices pour calculer la tendance des concentrations dans cvltr.F90
+  DO j = 1, nl
+    DO k = 1, nl
+      DO i = 1, ncum
+        da(i, j) = da(i, j) + (1.-sigij(i,k,j))*ment(i, k, j)
+        phi(i, j, k) = sigij(i, k, j)*ment(i, k, j)
+        d1a(i, j) = d1a(i, j) + ment(i, k, j)*ep(i, k)*(1.-sigij(i,k,j))
+        IF (k<=j) THEN
+          dam(i, j) = dam(i, j) + ment(i, k, j)*epm(i, k, j)*(1.-ep(i,k))*(1.-sigij(i,k,j))
+          phi2(i, j, k) = phi(i, j, k)*epm(i, j, k)
+        END IF
+      END DO
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv3_tracer
+!AC! et !RomP <<<
+
+SUBROUTINE cv3_uncompress(nloc, len, ncum, nd, ntra, idcum, &
+                          iflag, &
+                          precip, sig, w0, &
+                          ft, fq, fu, fv, ftra, &
+                          Ma, upwd, dnwd, dnwd0, qcondc, wd, cape, &
+                          epmax_diag, & ! epmax_cape
+                          iflag1, &
+                          precip1, sig1, w01, &
+                          ft1, fq1, fu1, fv1, ftra1, &
+                          Ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, &
+                          epmax_diag1) ! epmax_cape
+  IMPLICIT NONE
+
+  include "cv3param.h"
+
+!inputs:
+  INTEGER len, ncum, nd, ntra, nloc
+  INTEGER idcum(nloc)
+  INTEGER iflag(nloc)
+  REAL precip(nloc)
+  REAL sig(nloc, nd), w0(nloc, nd)
+  REAL ft(nloc, nd), fq(nloc, nd), fu(nloc, nd), fv(nloc, nd)
+  REAL ftra(nloc, nd, ntra)
+  REAL ma(nloc, nd)
+  REAL upwd(nloc, nd), dnwd(nloc, nd), dnwd0(nloc, nd)
+  REAL qcondc(nloc, nd)
+  REAL wd(nloc), cape(nloc)
+  REAL epmax_diag(nloc)
+
+!outputs:
+  INTEGER iflag1(len)
+  REAL precip1(len)
+  REAL sig1(len, nd), w01(len, nd)
+  REAL ft1(len, nd), fq1(len, nd), fu1(len, nd), fv1(len, nd)
+  REAL ftra1(len, nd, ntra)
+  REAL ma1(len, nd)
+  REAL upwd1(len, nd), dnwd1(len, nd), dnwd01(len, nd)
+  REAL qcondc1(nloc, nd)
+  REAL wd1(nloc), cape1(nloc)
+  REAL epmax_diag1(len) ! epmax_cape
+
+!local variables:
+  INTEGER i, k, j
+
+  DO i = 1, ncum
+    precip1(idcum(i)) = precip(i)
+    iflag1(idcum(i)) = iflag(i)
+    wd1(idcum(i)) = wd(i)
+    cape1(idcum(i)) = cape(i)
+    epmax_diag1(idcum(i))=epmax_diag(i) ! epmax_cape
+  END DO
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      sig1(idcum(i), k) = sig(i, k)
+      w01(idcum(i), k) = w0(i, k)
+      ft1(idcum(i), k) = ft(i, k)
+      fq1(idcum(i), k) = fq(i, k)
+      fu1(idcum(i), k) = fu(i, k)
+      fv1(idcum(i), k) = fv(i, k)
+      ma1(idcum(i), k) = ma(i, k)
+      upwd1(idcum(i), k) = upwd(i, k)
+      dnwd1(idcum(i), k) = dnwd(i, k)
+      dnwd01(idcum(i), k) = dnwd0(i, k)
+      qcondc1(idcum(i), k) = qcondc(i, k)
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    sig1(idcum(i), nd) = sig(i, nd)
+  END DO
+
+
+!AC!        do 2100 j=1,ntra
+!AC!c oct3         do 2110 k=1,nl
+!AC!         do 2110 k=1,nd ! oct3
+!AC!          do 2120 i=1,ncum
+!AC!            ftra1(idcum(i),k,j)=ftra(i,k,j)
+!AC! 2120     continue
+!AC! 2110    continue
+!AC! 2100   continue
+!
+  RETURN
+END SUBROUTINE cv3_uncompress
+
+
+        subroutine cv3_epmax_fn_cape(nloc,ncum,nd &
+                 , ep,hp,icb,inb,clw,nk,t,h,hnk,lv,lf,frac &
+                 , pbase, p, ph, tv, buoy, sig, w0,iflag &
+                 , epmax_diag)
+        implicit none
+
+        ! On fait varier epmax en fn de la cape
+        ! Il faut donc recalculer ep, et hp qui a déjà été calculé et
+        ! qui en dépend
+        ! Toutes les autres variables fn de ep sont calculées plus bas.
+
+  include "cvthermo.h"
+  include "cv3param.h"  
+  include "conema3.h"
+  include "cvflag.h"
+
+! inputs:
+      INTEGER, INTENT (IN)                               :: ncum, nd, nloc
+      INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb, nk
+      REAL, DIMENSION (nloc), INTENT (IN)                :: hnk,pbase
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t, lv, lf, tv, h
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: clw, buoy,frac
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: sig,w0
+      INTEGER, DIMENSION (nloc), INTENT (IN)             :: iflag(nloc)
+      REAL, DIMENSION (nloc, nd), INTENT (IN)            :: p
+      REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+! inouts:
+      REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: ep,hp  
+! outputs
+      REAL, DIMENSION (nloc), INTENT (OUT)           :: epmax_diag
+
+! local
+      integer i,k    
+!      real hp_bak(nloc,nd)
+!      real ep_bak(nloc,nd)
+      real m_loc(nloc,nd)
+      real sig_loc(nloc,nd)
+      real w0_loc(nloc,nd)
+      integer iflag_loc(nloc)
+      real cape(nloc)
+        
+        if (coef_epmax_cape.gt.1e-12) then
+
+        ! il faut calculer la cape: on fait un calcule simple car tant qu'on ne
+        ! connait pas ep, on ne connait pas les mélanges, ddfts etc... qui sont
+        ! necessaires au calcul de la cape dans la nouvelle physique
+        
+!        write(*,*) 'cv3_routines check 4303'
+        do i=1,ncum
+        do k=1,nd
+          sig_loc(i,k)=sig(i,k)
+          w0_loc(i,k)=w0(i,k)
+          iflag_loc(i)=iflag(i)
+!          ep_bak(i,k)=ep(i,k)
+        enddo ! do k=1,nd
+        enddo !do i=1,ncum
+
+!        write(*,*) 'cv3_routines check 4311'
+!        write(*,*) 'nl=',nl
+        CALL cv3_closure(nloc, ncum, nd, icb, inb, & ! na->nd
+          pbase, p, ph, tv, buoy, &
+          sig_loc, w0_loc, cape, m_loc,iflag_loc)
+
+!        write(*,*) 'cv3_routines check 4316'
+!        write(*,*) 'ep(1,:)=',ep(1,:)
+        do i=1,ncum
+           epmax_diag(i)=epmax-coef_epmax_cape*sqrt(cape(i))
+           epmax_diag(i)=amax1(epmax_diag(i),0.0)
+!           write(*,*) 'i,icb,inb,cape,epmax_diag=', &
+!                i,icb(i),inb(i),cape(i),epmax_diag(i)
+           do k=1,nl
+                ep(i,k)=ep(i,k)/epmax*epmax_diag(i)
+                ep(i,k)=amax1(ep(i,k),0.0)
+                ep(i,k)=amin1(ep(i,k),epmax_diag(i))
+           enddo
+        enddo
+ !       write(*,*) 'ep(1,:)=',ep(1,:)
+
+      !write(*,*) 'cv3_routines check 4326'
+! On recalcule hp:
+!      do k=1,nl
+!        do i=1,ncum
+!	  hp_bak(i,k)=hp(i,k)
+!	enddo
+!      enddo
+      do k=1,nl
+        do i=1,ncum
+	  hp(i,k)=h(i,k)
+	enddo
+      enddo
+
+  IF (cvflag_ice) THEN
+
+      do k=minorig+1,nl
+       do i=1,ncum
+        if((k.ge.icb(i)).and.(k.le.inb(i)))then
+          hp(i, k) = hnk(i) + (lv(i,k)+(cpd-cpv)*t(i,k)+frac(i,k)*lf(i,k))* &
+                              ep(i, k)*clw(i, k)
+        endif
+       enddo
+      enddo !do k=minorig+1,n
+  ELSE !IF (cvflag_ice) THEN
+
+      DO k = minorig + 1, nl
+       DO i = 1, ncum
+        IF ((k>=icb(i)) .AND. (k<=inb(i))) THEN
+          hp(i,k)=hnk(i)+(lv(i,k)+(cpd-cpv)*t(i,k))*ep(i,k)*clw(i,k)
+        endif
+       enddo
+      enddo !do k=minorig+1,n
+
+  ENDIF !IF (cvflag_ice) THEN     
+      !write(*,*) 'cv3_routines check 4345'
+!      do i=1,ncum  
+!       do k=1,nl
+!        if ((abs(hp_bak(i,k)-hp(i,k))/hp_bak(i,k).gt.1e-1).or. &
+!            ((abs(hp_bak(i,k)-hp(i,k))/hp_bak(i,k).gt.1e-4).and. &
+!            (ep(i,k)-ep_bak(i,k).lt.1e-4))) then
+!           write(*,*) 'i,k=',i,k
+!           write(*,*) 'coef_epmax_cape=',coef_epmax_cape
+!           write(*,*) 'epmax_diag(i)=',epmax_diag(i)
+!           write(*,*) 'ep(i,k)=',ep(i,k)
+!           write(*,*) 'ep_bak(i,k)=',ep_bak(i,k)
+!           write(*,*) 'hp(i,k)=',hp(i,k)
+!           write(*,*) 'hp_bak(i,k)=',hp_bak(i,k)
+!           write(*,*) 'h(i,k)=',h(i,k)
+!           write(*,*) 'nk(i)=',nk(i)
+!           write(*,*) 'h(i,nk(i))=',h(i,nk(i))
+!           write(*,*) 'lv(i,k)=',lv(i,k)
+!           write(*,*) 't(i,k)=',t(i,k)
+!           write(*,*) 'clw(i,k)=',clw(i,k)
+!           write(*,*) 'cpd,cpv=',cpd,cpv
+!           stop
+!        endif
+!       enddo !do k=1,nl
+!      enddo !do i=1,ncum  
+      endif !if (coef_epmax_cape.gt.1e-12) then
+      !write(*,*) 'cv3_routines check 4367'
+
+      return
+      end subroutine cv3_epmax_fn_cape
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_vertmix.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_vertmix.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3_vertmix.F90	(revision 3330)
@@ -0,0 +1,214 @@
+SUBROUTINE cv3_vertmix(len, nd, iflag, plim1, plim2, p, ph, &
+                       t, q, u, v, w, &
+                       wi, nk, tmix, thmix, qmix, qsmix, umix, vmix, plcl)
+  ! **************************************************************
+  ! *
+  ! CV3_VERTMIX   Brassage adiabatique d'une couche d'epaisseur *
+  ! arbitraire.                                   *
+  ! *
+  ! written by   : Grandpeix Jean-Yves, 28/12/2001, 13.14.24    *
+  ! modified by :  Filiberti M-A 06/2005 vectorisation          *
+  ! **************************************************************
+
+  IMPLICIT NONE
+  ! ==============================================================
+
+  ! vertmix : determines theta, t, q, qs, u and v of the mixture generated by
+  ! adiabatic mixing of air between plim1 and plim2 with weighting w.
+  ! If plim1 and plim2 fall within the same model layer, then theta, ... v
+  ! are those of that layer.
+  ! A minimum value (dpmin) is imposed upon plim1-plim2
+
+  ! ===============================================================
+
+  include "cvthermo.h"
+  include "YOETHF.h"
+  include "YOMCST.h"
+  include "FCTTRE.h"
+!inputs:
+  INTEGER, INTENT (IN)                      ::  nd, len
+  INTEGER, DIMENSION (len), INTENT (IN)     ::  nk
+  REAL, DIMENSION (nd), INTENT (IN)        ::  w
+  REAL, DIMENSION (len), INTENT (IN)        :: plim1, plim2
+  REAL, DIMENSION (len,nd), INTENT (IN)     :: t, q
+  REAL, DIMENSION (len,nd), INTENT (IN)     :: u, v
+  REAL, DIMENSION (len,nd), INTENT (IN)     :: p
+  REAL, DIMENSION (len,nd+1), INTENT (IN)   :: ph
+!input/output:
+  INTEGER, DIMENSION (len), INTENT (INOUT)  ::  iflag
+!outputs:
+  REAL, DIMENSION (len), INTENT (OUT)       :: tmix, thmix, qmix
+  REAL, DIMENSION (len), INTENT (OUT)       :: umix, vmix
+  REAL, DIMENSION (len), INTENT (OUT)       :: qsmix
+  REAL, DIMENSION (len), INTENT (OUT)       :: plcl
+  REAL, DIMENSION (len,nd), INTENT (OUT)    :: wi
+!internal variables :
+  INTEGER i, j
+  INTEGER niflag7
+  INTEGER, DIMENSION(len)                   :: j1, j2
+  REAL                                      :: a, b
+  REAL                                      :: cpn
+  REAL                                      :: x, y, p0, p0m1, zdelta, zcor
+  REAL                                      :: dpmin=1.
+!$OMP THREADPRIVATE(dpmin)
+  REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)
+  REAL, DIMENSION(len)                      :: ahm, dpw, coef
+  REAL, DIMENSION(len)                      :: rdcp, a2, b2, pnk
+  REAL, DIMENSION(len)                      :: rh, chi
+  REAL, DIMENSION(len)                      :: eqwght
+  REAL, DIMENSION(len,nd)                   :: p1, p2
+
+
+!!  print *,' ->cv3_vertmix, plim1,plim2 ', plim1,plim2   !jyg
+  plim2p(:) = min(plim2(:),plim1(:)-dpmin)
+  j1(:)=nd
+  j2(:) = 0
+  DO j = 1, nd
+    DO i = 1, len
+      IF (plim1(i)<=ph(i,j)) j1(i) = j
+!!!      IF (plim2p(i)>=ph(i,j+1) .AND. plim2p(i)<ph(i,j)) j2(i) = j
+      IF (plim2p(i)< ph(i,j)) j2(i) = j
+    END DO
+  END DO
+
+  DO j = 1, nd
+    DO i = 1, len
+      wi(i, j) = 0.
+    END DO
+  END DO
+  DO i = 1, len
+    ahm(i) = 0.
+    qmix(i) = 0.
+    umix(i) = 0.
+    vmix(i) = 0.
+    dpw(i) = 0.
+    a2(i) = 0.0
+    b2(i) = 0.
+    pnk(i) = p(i, nk(i))
+  END DO
+  eqwght(:) = 0.
+
+  p0 = 1000.
+  p0m1 = 1./p0
+
+  DO i = 1, len
+    IF (j2(i) < j1(i)) THEN
+      coef(i) = 1.
+      eqwght(i) = 1.
+    ELSE
+      coef(i) = 1./(plim1(i)-plim2p(i))
+    ENDIF
+  END DO
+
+!!  print *,'cv3_vertmix, j1,j2,coef ', j1,j2,coef  !jyg
+
+  DO j = 1, nd
+    DO i = 1, len
+      IF (j>=j1(i) .AND. j<=j2(i)) THEN
+        p1(i, j) = min(ph(i,j), plim1(i))
+        p2(i, j) = max(ph(i,j+1), plim2p(i))
+        ! CRtest:couplage thermiques: deja normalise
+        ! wi(i,j) = w(j)
+        ! print*,'wi',wi(i,j)
+        wi(i, j) = w(j)*(p1(i,j)-p2(i,j))*coef(i)+eqwght(i)
+        dpw(i) = dpw(i) + wi(i, j)
+
+!!  print *,'cv3_vertmix, j, wi(1,j),dpw ', j, wi(1,j),dpw  !jyg
+
+      END IF
+    END DO
+  END DO
+
+  ! CR:print
+  ! do i=1,len
+  ! print*,'plim',plim1(i),plim2p(i)
+  ! enddo
+  DO j = 1, nd
+    DO i = 1, len
+      IF (j>=j1(i) .AND. j<=j2(i)) THEN
+        wi(i, j) = wi(i, j)/dpw(i)
+        ahm(i) = ahm(i) + (cpd*(1.-q(i,j))+q(i,j)*cpv)*t(i, j)*wi(i, j)
+        qmix(i) = qmix(i) + q(i, j)*wi(i, j)
+        umix(i) = umix(i) + u(i, j)*wi(i, j)
+        vmix(i) = vmix(i) + v(i, j)*wi(i, j)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, len
+    rdcp(i) = (rrd*(1.-qmix(i))+qmix(i)*rrv)/(cpd*(1.-qmix(i))+qmix(i)*cpv)
+  END DO
+
+
+!!  print *,'cv3_vertmix, rdcp ', rdcp  !jyg
+
+
+
+  DO j = 1, nd
+    DO i = 1, len
+      IF (j>=j1(i) .AND. j<=j2(i)) THEN
+        ! c            x=(.5*(p1(i,j)+p2(i,j))*p0m1)**rdcp(i)
+        y = (.5*(p1(i,j)+p2(i,j))/pnk(i))**rdcp(i)
+        ! c            a2(i)=a2(i)+(cpd*(1.-qmix(i))+qmix(i)*cpv)*x*wi(i,j)
+        b2(i) = b2(i) + (cpd*(1.-qmix(i))+qmix(i)*cpv)*y*wi(i, j)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, len
+    tmix(i) = ahm(i)/b2(i)
+    thmix(i) = tmix(i)*(p0/pnk(i))**rdcp(i)
+    ! print*,'thmix ahm',ahm(i),b2(i)
+    ! print*,'thmix t',tmix(i),p0
+    ! print*,'thmix p',pnk(i),rdcp(i)
+    ! print*,'thmix',thmix(i)
+    ! c         thmix(i) = ahm(i)/a2(i)
+    ! c         tmix(i)= thmix(i)*(pnk(i)*p0m1)**rdcp(i)
+    zdelta = max(0., sign(1.,rtt-tmix(i)))
+    qsmix(i) = r2es*foeew(tmix(i), zdelta)/(pnk(i)*100.)
+    qsmix(i) = min(0.5, qsmix(i))
+    zcor = 1./(1.-retv*qsmix(i))
+    qsmix(i) = qsmix(i)*zcor
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Calculate lifted condensation level of air at parcel origin level
+  ! --- (Within 0.2% of formula of Bolton, MON. WEA. REV.,1980)
+  ! -------------------------------------------------------------------
+
+  a = 1669.0 ! convect3
+  b = 122.0 ! convect3
+
+
+  niflag7 = 0
+  DO i = 1, len
+
+    IF (iflag(i)/=7) THEN ! modif sb Jun7th 2002
+
+      rh(i) = qmix(i)/qsmix(i)
+      chi(i) = tmix(i)/(a-b*rh(i)-tmix(i)) ! convect3
+      ! ATTENTION, la LIGNE DESSOUS A ETE RAJOUTEE ARBITRAIREMENT ET
+      ! MASQUE UN PB POTENTIEL
+      chi(i) = max(chi(i), 0.)
+      rh(i) = max(rh(i), 0.)
+      plcl(i) = pnk(i)*(rh(i)**chi(i))
+      IF (((plcl(i)<200.0) .OR. (plcl(i)>=2000.0)) .AND. (iflag(i)==0)) &
+          iflag(i) = 8
+
+    ELSE
+
+      niflag7 = niflag7 + 1
+      plcl(i) = plim2p(i)
+
+    END IF ! iflag=7
+
+    ! print*,'NIFLAG7  =',niflag7
+
+  END DO
+
+!!  print *,' cv3_vertmix->'  !jyg
+
+
+  RETURN
+END SUBROUTINE cv3_vertmix
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3a_compress.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3a_compress.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3a_compress.F90	(revision 3330)
@@ -0,0 +1,249 @@
+SUBROUTINE cv3a_compress(len, nloc, ncum, nd, ntra, compress, &
+                         iflag1, nk1, icb1, icbs1, &
+                         plcl1, tnk1, qnk1, gznk1, hnk1, unk1, vnk1, &
+                         wghti1, pbase1, buoybase1, &
+                         t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &
+                         u1, v1, gz1, th1, th1_wake, &
+                         tra1, &
+                         h1, lv1, lf1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &
+                         h1_wake, lv1_wake, lf1_wake, cpn1_wake, tv1_wake, &
+                         sig1, w01, ptop21, &
+                         Ale1, Alp1, omega1, &
+                         iflag, nk, icb, icbs, &
+                         plcl, tnk, qnk, gznk, hnk, unk, vnk, &
+                         wghti, pbase, buoybase, &
+                         t, q, qs, t_wake, q_wake, qs_wake, s_wake, &
+                         u, v, gz, th, th_wake, &
+                         tra, &
+                         h, lv, lf, cpn, p, ph, tv, tp, tvp, clw, &
+                         h_wake, lv_wake, lf_wake, cpn_wake, tv_wake, &
+                         sig, w0, ptop2, &
+                         Ale, Alp, omega)
+  ! **************************************************************
+  ! *
+  ! CV3A_COMPRESS                                               *
+  ! *
+  ! *
+  ! written by   : Sandrine Bony-Lena , 17/05/2003, 11.22.15    *
+  ! modified by  : Jean-Yves Grandpeix, 23/06/2003, 10.28.09    *
+  ! **************************************************************
+
+  IMPLICIT NONE
+
+  include "cv3param.h"
+
+  ! inputs:
+  INTEGER, INTENT (IN)                               :: len, nloc, nd, ntra
+!jyg<
+  LOGICAL, INTENT (IN)                               :: compress  ! compression is performed if compress is true
+!>jyg
+  INTEGER, DIMENSION (len), INTENT (IN)              :: iflag1, nk1, icb1, icbs1
+  REAL, DIMENSION (len), INTENT (IN)                 :: plcl1, tnk1, qnk1, gznk1
+  REAL, DIMENSION (len), INTENT (IN)                 :: hnk1, unk1, vnk1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: wghti1(len, nd)
+  REAL, DIMENSION (len), INTENT (IN)                 :: pbase1, buoybase1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: t1, q1, qs1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: t1_wake, q1_wake, qs1_wake
+  REAL, DIMENSION (len), INTENT (IN)                 :: s1_wake
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: u1, v1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: gz1, th1, th1_wake
+  REAL, DIMENSION (len, nd,ntra), INTENT (IN)        :: tra1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: h1, lv1, lf1, cpn1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: p1
+  REAL, DIMENSION (len, nd+1), INTENT (IN)           :: ph1(len, nd+1)
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: tv1, tp1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: tvp1, clw1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: h1_wake, lv1_wake, cpn1_wake
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: tv1_wake, lf1_wake
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: sig1, w01
+  REAL, DIMENSION (len), INTENT (IN)                 :: ptop21
+  REAL, DIMENSION (len), INTENT (IN)                 :: Ale1, Alp1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: omega1
+!
+  ! in/out 
+  INTEGER, INTENT (INOUT)                            :: ncum
+!
+  ! outputs:
+  ! en fait, on a nloc=len pour l'instant (cf cv_driver)
+  INTEGER, DIMENSION (nloc), INTENT (OUT)            ::  iflag, nk, icb, icbs
+  REAL, DIMENSION (nloc), INTENT (OUT)               ::  plcl, tnk, qnk, gznk
+  REAL, DIMENSION (nloc), INTENT (OUT)               ::  hnk, unk, vnk
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  wghti
+  REAL, DIMENSION (nloc), INTENT (OUT)               ::  pbase, buoybase
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  t, q, qs
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  t_wake, q_wake, qs_wake
+  REAL, DIMENSION (nloc), INTENT (OUT)               ::  s_wake
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  u, v
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  gz, th, th_wake
+  REAL, DIMENSION (nloc, nd,ntra), INTENT (OUT)      ::  tra
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  h, lv, lf, cpn
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  p
+  REAL, DIMENSION (nloc, nd+1), INTENT (OUT)         ::  ph
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  tv, tp
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  tvp, clw
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  h_wake, lv_wake, cpn_wake
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  tv_wake, lf_wake
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  sig, w0
+  REAL, DIMENSION (nloc), INTENT (OUT)               ::  ptop2
+  REAL, DIMENSION (nloc), INTENT (OUT)               ::  Ale, Alp
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           ::  omega
+
+  ! local variables:
+  INTEGER i, k, nn, j
+
+  CHARACTER (LEN=20) :: modname = 'cv3a_compress'
+  CHARACTER (LEN=80) :: abort_message
+
+!jyg<
+  IF (compress) THEN
+!>jyg
+
+  DO k = 1, nl + 1
+    nn = 0
+    DO i = 1, len
+      IF (iflag1(i)==0) THEN
+        nn = nn + 1
+        wghti(nn, k) = wghti1(i, k)
+        t(nn, k) = t1(i, k)
+        q(nn, k) = q1(i, k)
+        qs(nn, k) = qs1(i, k)
+        t_wake(nn, k) = t1_wake(i, k)
+        q_wake(nn, k) = q1_wake(i, k)
+        qs_wake(nn, k) = qs1_wake(i, k)
+        u(nn, k) = u1(i, k)
+        v(nn, k) = v1(i, k)
+        gz(nn, k) = gz1(i, k)
+        th(nn, k) = th1(i, k)
+        th_wake(nn, k) = th1_wake(i, k)
+        h(nn, k) = h1(i, k)
+        lv(nn, k) = lv1(i, k)
+        lf(nn, k) = lf1(i, k)
+        cpn(nn, k) = cpn1(i, k)
+        p(nn, k) = p1(i, k)
+        ph(nn, k) = ph1(i, k)
+        tv(nn, k) = tv1(i, k)
+        tp(nn, k) = tp1(i, k)
+        tvp(nn, k) = tvp1(i, k)
+        clw(nn, k) = clw1(i, k)
+        h_wake(nn, k) = h1_wake(i, k)
+        lv_wake(nn, k) = lv1_wake(i, k)
+        lf_wake(nn, k) = lf1_wake(i, k)
+        cpn_wake(nn, k) = cpn1_wake(i, k)
+        tv_wake(nn, k) = tv1_wake(i, k)
+        sig(nn, k) = sig1(i, k)
+        w0(nn, k) = w01(i, k)
+        omega(nn, k) = omega1(i, k)
+      END IF
+    END DO
+  END DO
+!
+  ! AC!      do 121 j=1,ntra
+  ! AC!ccccc      do 111 k=1,nl+1
+  ! AC!      do 111 k=1,nd
+  ! AC!       nn=0
+  ! AC!      do 101 i=1,len
+  ! AC!      if(iflag1(i).eq.0)then
+  ! AC!       nn=nn+1
+  ! AC!       tra(nn,k,j)=tra1(i,k,j)
+  ! AC!      endif
+  ! AC! 101  continue
+  ! AC! 111  continue
+  ! AC! 121  continue
+
+  IF (nn/=ncum) THEN
+    PRINT *, 'WARNING nn not equal to ncum: ', nn, ncum
+    abort_message = ''
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+
+  nn = 0
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      nn = nn + 1
+      s_wake(nn) = s1_wake(i)
+      iflag(nn) = iflag1(i)
+      nk(nn) = nk1(i)
+      icb(nn) = icb1(i)
+      icbs(nn) = icbs1(i)
+      plcl(nn) = plcl1(i)
+      tnk(nn) = tnk1(i)
+      qnk(nn) = qnk1(i)
+      gznk(nn) = gznk1(i)
+      hnk(nn) = hnk1(i)
+      unk(nn) = unk1(i)
+      vnk(nn) = vnk1(i)
+      pbase(nn) = pbase1(i)
+      buoybase(nn) = buoybase1(i)
+      sig(nn, nd) = sig1(i, nd)
+      ptop2(nn) = ptop2(i)
+      Ale(nn) = Ale1(i)
+      Alp(nn) = Alp1(i)
+    END IF
+  END DO
+
+  IF (nn/=ncum) THEN
+    PRINT *, 'WARNING nn not equal to ncum: ', nn, ncum
+    abort_message = ''
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+!
+!jyg<
+  ELSE  !(compress)
+!
+      ncum = len
+!
+      wghti(:,1:nl+1) = wghti1(:,1:nl+1)
+      t(:,1:nl+1) = t1(:,1:nl+1)
+      q(:,1:nl+1) = q1(:,1:nl+1)
+      qs(:,1:nl+1) = qs1(:,1:nl+1)
+      t_wake(:,1:nl+1) = t1_wake(:,1:nl+1)
+      q_wake(:,1:nl+1) = q1_wake(:,1:nl+1)
+      qs_wake(:,1:nl+1) = qs1_wake(:,1:nl+1)
+      u(:,1:nl+1) = u1(:,1:nl+1)
+      v(:,1:nl+1) = v1(:,1:nl+1)
+      gz(:,1:nl+1) = gz1(:,1:nl+1)
+      th(:,1:nl+1) = th1(:,1:nl+1)
+      th_wake(:,1:nl+1) = th1_wake(:,1:nl+1)
+      h(:,1:nl+1) = h1(:,1:nl+1)
+      lv(:,1:nl+1) = lv1(:,1:nl+1)
+      lf(:,1:nl+1) = lf1(:,1:nl+1)
+      cpn(:,1:nl+1) = cpn1(:,1:nl+1)
+      p(:,1:nl+1) = p1(:,1:nl+1)
+      ph(:,1:nl+1) = ph1(:,1:nl+1)
+      tv(:,1:nl+1) = tv1(:,1:nl+1)
+      tp(:,1:nl+1) = tp1(:,1:nl+1)
+      tvp(:,1:nl+1) = tvp1(:,1:nl+1)
+      clw(:,1:nl+1) = clw1(:,1:nl+1)
+      h_wake(:,1:nl+1) = h1_wake(:,1:nl+1)
+      lv_wake(:,1:nl+1) = lv1_wake(:,1:nl+1)
+      lf_wake(:,1:nl+1) = lf1_wake(:,1:nl+1)
+      cpn_wake(:,1:nl+1) = cpn1_wake(:,1:nl+1)
+      tv_wake(:,1:nl+1) = tv1_wake(:,1:nl+1)
+      sig(:,1:nl+1) = sig1(:,1:nl+1)
+      w0(:,1:nl+1) = w01(:,1:nl+1)
+      omega(:,1:nl+1) = omega1(:,1:nl+1)
+!
+      s_wake(:) = s1_wake(:)
+      iflag(:) = iflag1(:)
+      nk(:) = nk1(:)
+      icb(:) = icb1(:)
+      icbs(:) = icbs1(:)
+      plcl(:) = plcl1(:)
+      tnk(:) = tnk1(:)
+      qnk(:) = qnk1(:)
+      gznk(:) = gznk1(:)
+      hnk(:) = hnk1(:)
+      unk(:) = unk1(:)
+      vnk(:) = vnk1(:)
+      pbase(:) = pbase1(:)
+      buoybase(:) = buoybase1(:)
+      sig(:, nd) = sig1(:, nd)
+      ptop2(:) = ptop2(:)
+      Ale(:) = Ale1(:)
+      Alp(:) = Alp1(:)
+!
+  ENDIF !(compress)
+!>jyg
+
+  RETURN
+END SUBROUTINE cv3a_compress
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3a_uncompress.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3a_uncompress.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3a_uncompress.F90	(revision 3330)
@@ -0,0 +1,329 @@
+SUBROUTINE cv3a_uncompress(nloc, len, ncum, nd, ntra, idcum, compress, &
+                           iflag, kbas, ktop, &
+                           precip, cbmf, plcl, plfc, wbeff, sig, w0, ptop2, &
+                           ft, fq, fu, fv, ftra,  &
+                           sigd, ma, mip, vprecip, vprecipi, upwd, dnwd, dnwd0, &
+                           qcondc, wd, cape, cin, &
+                           tvp, &
+                           ftd, fqd, &
+                           plim1, plim2, asupmax, supmax0, &
+                           asupmaxmin, &
+                           da, phi, mp, phi2, d1a, dam, sigij, &                ! RomP+AC+jyg
+                           clw, elij, evap, ep, epmlmMm, eplaMm, &              ! RomP
+                           wdtrainA, wdtrainM, &                                ! RomP
+                           qtc, sigt,          &
+                           epmax_diag, & ! epmax_cape
+                           iflag1, kbas1, ktop1, &
+                           precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, ptop21, &
+                           ft1, fq1, fu1, fv1, ftra1, &
+                           sigd1, ma1, mip1, vprecip1, vprecipi1, upwd1, dnwd1, dnwd01, &
+                           qcondc1, wd1, cape1, cin1, &
+                           tvp1, &
+                           ftd1, fqd1, &
+                           plim11, plim21, asupmax1, supmax01, &
+                           asupmaxmin1, &
+                           da1, phi1, mp1, phi21, d1a1, dam1, sigij1, &         ! RomP+AC+jyg
+                           clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, &        ! RomP
+                           wdtrainA1, wdtrainM1, &                              ! RomP
+                           qtc1, sigt1, &
+                           epmax_diag1) ! epmax_cape
+
+  ! **************************************************************
+  ! *
+  ! CV3A_UNCOMPRESS                                             *
+  ! *
+  ! *
+  ! written by   : Sandrine Bony-Lena , 17/05/2003, 11.22.15    *
+  ! modified by  : Jean-Yves Grandpeix, 23/06/2003, 10.36.17    *
+  ! **************************************************************
+
+  IMPLICIT NONE
+
+  include "cv3param.h"
+
+  ! inputs:
+  INTEGER, INTENT (IN)                               :: nloc, len, ncum, nd, ntra
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: idcum(nloc)
+!jyg<
+  LOGICAL, INTENT (IN)                               :: compress
+!>jyg
+  INTEGER, DIMENSION (nloc), INTENT (IN)             ::iflag, kbas, ktop
+  REAL, DIMENSION (nloc), INTENT (IN)                :: precip, cbmf, plcl, plfc
+  REAL, DIMENSION (nloc), INTENT (IN)                :: wbeff
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: sig, w0
+  REAL, DIMENSION (nloc), INTENT (IN)                :: ptop2
+  REAL, DIMENSION (nloc), INTENT (IN)                :: epmax_diag
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: ft, fq, fu, fv
+  REAL, DIMENSION (nloc, nd, ntra), INTENT (IN)      :: ftra
+  REAL, DIMENSION (nloc), INTENT (IN)                :: sigd
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: ma, mip
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: vprecip
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: vprecipi
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: upwd, dnwd, dnwd0
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: qcondc
+  REAL, DIMENSION (nloc), INTENT (IN)                :: wd, cape, cin
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: tvp
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: ftd, fqd
+  REAL, DIMENSION (nloc), INTENT (IN)                :: plim1, plim2
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: asupmax
+  REAL, DIMENSION (nloc), INTENT (IN)                :: supmax0, asupmaxmin
+
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: da
+  REAL, DIMENSION (nloc, nd, nd), INTENT (IN)        :: phi                    !AC!
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: mp                     !RomP
+  REAL, DIMENSION (nloc, nd, nd), INTENT (IN)        :: phi2                   !RomP
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: d1a, dam               !RomP
+  REAL, DIMENSION (nloc, nd, nd), INTENT (IN)        :: sigij                  !RomP
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: clw                    !RomP
+  REAL, DIMENSION (nloc, nd, nd), INTENT (IN)        :: elij                   !RomP
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: evap, ep               !RomP
+  REAL, DIMENSION (nloc, nd, nd), INTENT (IN)        :: epmlmMm                !RomP+jyg
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: eplamM                 !RomP+jyg
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: qtc, sigt              !RomP
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: wdtrainA, wdtrainM     !RomP
+
+  ! outputs:
+  INTEGER, DIMENSION (len), INTENT (OUT)             :: iflag1, kbas1, ktop1
+  REAL, DIMENSION (len), INTENT (OUT)                :: precip1, cbmf1, plcl1, plfc1
+  REAL, DIMENSION (len), INTENT (OUT)                :: wbeff1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: sig1, w01
+  REAL, DIMENSION (len), INTENT (OUT)                :: epmax_diag1 ! epmax_cape
+  REAL, DIMENSION (len), INTENT (OUT)                :: ptop21
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: ft1, fq1, fu1, fv1
+  REAL, DIMENSION (len, nd, ntra), INTENT (OUT)      :: ftra1
+  REAL, DIMENSION (len), INTENT (OUT)                :: sigd1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: ma1, mip1
+  REAL, DIMENSION (len, nd+1), INTENT (OUT)          :: vprecip1
+  REAL, DIMENSION (len, nd+1), INTENT (OUT)          :: vprecipi1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: upwd1, dnwd1, dnwd01
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: qcondc1
+  REAL, DIMENSION (len), INTENT (OUT)                :: wd1, cape1, cin1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: tvp1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: ftd1, fqd1
+  REAL, DIMENSION (len), INTENT (OUT)                :: plim11, plim21
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: asupmax1
+  REAL, DIMENSION (len), INTENT (OUT)                :: supmax01, asupmaxmin1
+                                                    
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: da1
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: phi1                   !AC!
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: mp1                    !RomP
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: phi21                  !RomP
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: d1a1, dam1 !RomP       !RomP
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: sigij1                 !RomP
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: clw1                   !RomP
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: elij1                  !RomP
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: evap1, ep1             !RomP
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: epmlmMm1               !RomP+jyg
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: eplamM1                !RomP+jyg
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: qtc1, sigt1            !RomP
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: wdtrainA1, wdtrainM1   !RomP
+
+
+  ! local variables:
+  INTEGER i, k, j
+  INTEGER jdcum
+  ! c    integer k1,k2
+
+!jyg<
+  IF (compress) THEN
+!>jyg
+    DO i = 1, ncum
+      sig1(idcum(i), nd) = sig(i, nd)
+      ptop21(idcum(i)) = ptop2(i)
+      sigd1(idcum(i)) = sigd(i)
+      precip1(idcum(i)) = precip(i)
+      cbmf1(idcum(i)) = cbmf(i)
+      plcl1(idcum(i)) = plcl(i)
+      plfc1(idcum(i)) = plfc(i)
+      wbeff1(idcum(i)) = wbeff(i)
+      iflag1(idcum(i)) = iflag(i)
+      kbas1(idcum(i)) = kbas(i)
+      ktop1(idcum(i)) = ktop(i)
+      wd1(idcum(i)) = wd(i)
+      cape1(idcum(i)) = cape(i)
+      cin1(idcum(i)) = cin(i)
+      plim11(idcum(i)) = plim1(i)
+      plim21(idcum(i)) = plim2(i)
+      supmax01(idcum(i)) = supmax0(i)
+      asupmaxmin1(idcum(i)) = asupmaxmin(i)
+      epmax_diag1(idcum(i)) = epmax_diag(i)
+    END DO
+   
+    DO k = 1, nl
+      DO i = 1, ncum
+        sig1(idcum(i), k) = sig(i, k)
+        w01(idcum(i), k) = w0(i, k)
+        ft1(idcum(i), k) = ft(i, k)
+        fq1(idcum(i), k) = fq(i, k)
+        fu1(idcum(i), k) = fu(i, k)
+        fv1(idcum(i), k) = fv(i, k)
+        ma1(idcum(i), k) = ma(i, k)
+        mip1(idcum(i), k) = mip(i, k)
+        vprecip1(idcum(i), k) = vprecip(i, k)
+        vprecipi1(idcum(i), k) = vprecipi(i, k)
+        upwd1(idcum(i), k) = upwd(i, k)
+        dnwd1(idcum(i), k) = dnwd(i, k)
+        dnwd01(idcum(i), k) = dnwd0(i, k)
+        qcondc1(idcum(i), k) = qcondc(i, k)
+        tvp1(idcum(i), k) = tvp(i, k)
+        ftd1(idcum(i), k) = ftd(i, k)
+        fqd1(idcum(i), k) = fqd(i, k)
+        asupmax1(idcum(i), k) = asupmax(i, k)
+   
+        da1(idcum(i), k) = da(i, k) !AC!
+        mp1(idcum(i), k) = mp(i, k) !RomP
+        d1a1(idcum(i), k) = d1a(i, k) !RomP
+        dam1(idcum(i), k) = dam(i, k) !RomP
+        clw1(idcum(i), k) = clw(i, k) !RomP
+        evap1(idcum(i), k) = evap(i, k) !RomP
+        ep1(idcum(i), k) = ep(i, k) !RomP
+        eplamM1(idcum(i), k) = eplamM(i, k) !RomP+jyg
+        wdtrainA1(idcum(i), k) = wdtrainA(i, k) !RomP
+        wdtrainM1(idcum(i), k) = wdtrainM(i, k) !RomP
+        qtc1(idcum(i), k) = qtc(i, k)
+        sigt1(idcum(i), k) = sigt(i, k)
+   
+      END DO
+    END DO
+
+! Fluxes are defined on a staggered grid and extend up to nl+1
+    DO i = 1, ncum
+      ma1(idcum(i), nlp) = 0.
+      vprecip1(idcum(i), nlp) = 0.
+      vprecipi1(idcum(i), nlp) = 0.
+      upwd1(idcum(i), nlp) = 0.
+      dnwd1(idcum(i), nlp) = 0.
+      dnwd01(idcum(i), nlp) = 0.
+    END DO
+   
+    ! AC!        do 2100 j=1,ntra
+    ! AC!c oct3         do 2110 k=1,nl
+    ! AC!         do 2110 k=1,nd ! oct3
+    ! AC!          do 2120 i=1,ncum
+    ! AC!            ftra1(idcum(i),k,j)=ftra(i,k,j)
+    ! AC! 2120     continue
+    ! AC! 2110    continue
+    ! AC! 2100   continue
+   
+    ! AC!
+!jyg<
+!  Essais pour gagner du temps en diminuant l'adressage indirect 
+!!    DO j = 1, nd
+!!      DO k = 1, nd
+!!        DO i = 1, ncum
+!!          phi1(idcum(i), k, j) = phi(i, k, j) !AC!
+!!          phi21(idcum(i), k, j) = phi2(i, k, j) !RomP
+!!          sigij1(idcum(i), k, j) = sigij(i, k, j) !RomP
+!!          elij1(idcum(i), k, j) = elij(i, k, j) !RomP
+!!          epmlmMm(idcum(i), k, j) = epmlmMm(i, k, j) !RomP+jyg
+!!        END DO
+!!      END DO
+!!    END DO
+
+!!      DO i = 1, ncum
+!!        jdcum=idcum(i)
+!!        phi1    (jdcum, 1:nl+1, 1:nl+1) = phi    (i, 1:nl+1, 1:nl+1)          !AC!
+!!        phi21   (jdcum, 1:nl+1, 1:nl+1) = phi2   (i, 1:nl+1, 1:nl+1)          !RomP
+!!        sigij1  (jdcum, 1:nl+1, 1:nl+1) = sigij  (i, 1:nl+1, 1:nl+1)          !RomP
+!!        elij1   (jdcum, 1:nl+1, 1:nl+1) = elij   (i, 1:nl+1, 1:nl+1)          !RomP
+!!        epmlmMm1(jdcum, 1:nl+1, 1:nl+1) = epmlmMm(i, 1:nl+1, 1:nl+1)          !RomP+jyg
+!!      END DO
+!  These tracer associated arrays are defined up to nl, not nl+1
+  DO i = 1, ncum
+    jdcum=idcum(i)
+    DO k = 1,nl
+      DO j = 1,nl
+        phi1    (jdcum, j, k) = phi    (i, j, k)          !AC!
+        phi21   (jdcum, j, k) = phi2   (i, j, k)          !RomP
+        sigij1  (jdcum, j, k) = sigij  (i, j, k)          !RomP
+        elij1   (jdcum, j, k) = elij   (i, j, k)          !RomP
+        epmlmMm1(jdcum, j, k) = epmlmMm(i, j, k)          !RomP+jyg
+      END DO
+    ENDDO
+  ENDDO
+!>jyg
+    ! AC!
+   
+   
+    ! do 2220 k2=1,nd
+    ! do 2210 k1=1,nd
+    ! do 2200 i=1,ncum
+    ! ment1(idcum(i),k1,k2) = ment(i,k1,k2)
+    ! sigij1(idcum(i),k1,k2) = sigij(i,k1,k2)
+    ! 2200      enddo
+    ! 2210     enddo
+    ! 2220    enddo
+!
+!jyg<
+  ELSE  !(compress)
+!
+      sig1(:,nd) = sig(:,nd)
+      ptop21(:) = ptop2(:)
+      sigd1(:) = sigd(:)
+      precip1(:) = precip(:)
+      cbmf1(:) = cbmf(:)
+      plcl1(:) = plcl(:)
+      plfc1(:) = plfc(:)
+      wbeff1(:) = wbeff(:)
+      iflag1(:) = iflag(:)
+      kbas1(:) = kbas(:)
+      ktop1(:) = ktop(:)
+      wd1(:) = wd(:)
+      cape1(:) = cape(:)
+      cin1(:) = cin(:)
+      plim11(:) = plim1(:)
+      plim21(:) = plim2(:)
+      supmax01(:) = supmax0(:)
+      asupmaxmin1(:) = asupmaxmin(:)
+!
+      sig1(:, 1:nl) = sig(:, 1:nl)
+      w01(:, 1:nl) = w0(:, 1:nl)
+      ft1(:, 1:nl) = ft(:, 1:nl)
+      fq1(:, 1:nl) = fq(:, 1:nl)
+      fu1(:, 1:nl) = fu(:, 1:nl)
+      fv1(:, 1:nl) = fv(:, 1:nl)
+      ma1(:, 1:nl) = ma(:, 1:nl)
+      mip1(:, 1:nl) = mip(:, 1:nl)
+      vprecip1(:, 1:nl) = vprecip(:, 1:nl)
+      vprecipi1(:, 1:nl) = vprecipi(:, 1:nl)
+      upwd1(:, 1:nl) = upwd(:, 1:nl)
+      dnwd1(:, 1:nl) = dnwd(:, 1:nl)
+      dnwd01(:, 1:nl) = dnwd0(:, 1:nl)
+      qcondc1(:, 1:nl) = qcondc(:, 1:nl)
+      tvp1(:, 1:nl) = tvp(:, 1:nl)
+      ftd1(:, 1:nl) = ftd(:, 1:nl)
+      fqd1(:, 1:nl) = fqd(:, 1:nl)
+      asupmax1(:, 1:nl) = asupmax(:, 1:nl)
+
+      da1(:, 1:nl) = da(:, 1:nl)              !AC!
+      mp1(:, 1:nl) = mp(:, 1:nl)              !RomP
+      d1a1(:, 1:nl) = d1a(:, 1:nl)            !RomP
+      dam1(:, 1:nl) = dam(:, 1:nl)            !RomP
+      clw1(:, 1:nl) = clw(:, 1:nl)            !RomP
+      evap1(:, 1:nl) = evap(:, 1:nl)          !RomP
+      ep1(:, 1:nl) = ep(:, 1:nl)              !RomP
+      eplamM1(:, 1:nl) = eplamM(:, 1:nl)       !RomP+jyg
+      wdtrainA1(:, 1:nl) = wdtrainA(:, 1:nl)  !RomP
+      wdtrainM1(:, 1:nl) = wdtrainM(:, 1:nl)  !RomP
+      qtc1(:, 1:nl) = qtc(:, 1:nl)
+      sigt1(:, 1:nl) = sigt(:, 1:nl)
+!
+      ma1(:, nlp) = 0.
+      vprecip1(:, nlp) = 0.
+      vprecipi1(:, nlp) = 0.
+      upwd1(:, nlp) = 0.
+      dnwd1(:, nlp) = 0.
+      dnwd01(:, nlp) = 0.
+
+!
+      phi1    (:, 1:nl, 1:nl) = phi    (:, 1:nl, 1:nl)  !AC!
+      phi21   (:, 1:nl, 1:nl) = phi2   (:, 1:nl, 1:nl)  !RomP
+      sigij1  (:, 1:nl, 1:nl) = sigij  (:, 1:nl, 1:nl)  !RomP
+      elij1   (:, 1:nl, 1:nl) = elij   (:, 1:nl, 1:nl)  !RomP
+      epmlmMm1(:, 1:nl, 1:nl) = epmlmMm(:, 1:nl, 1:nl)  !RomP+jyg
+  ENDIF !(compress)
+!>jyg
+
+  RETURN
+END SUBROUTINE cv3a_uncompress
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p1_closure.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p1_closure.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p1_closure.F90	(revision 3330)
@@ -0,0 +1,771 @@
+
+! $Id$
+
+SUBROUTINE cv3p1_closure(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, &
+    tvp, buoy, supmax, ok_inhib, ale, alp, omega,sig, w0, ptop2, cape, cin, m, &
+    iflag, coef, plim1, plim2, asupmax, supmax0, asupmaxmin, cbmf, plfc, &
+    wbeff)
+
+
+  ! **************************************************************
+  ! *
+  ! CV3P1_CLOSURE                                               *
+  ! Ale & Alp Closure of Convect3              *
+  ! *
+  ! written by   :   Kerry Emanuel                              *
+  ! vectorization:   S. Bony                                    *
+  ! modified by :    Jean-Yves Grandpeix, 18/06/2003, 19.32.10  *
+  ! Julie Frohwirth,     14/10/2005  17.44.22  *
+  ! **************************************************************
+
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "YOMCST2.h"
+  include "YOMCST.h"
+  include "conema3.h"
+
+  ! input:
+  INTEGER, INTENT (IN)                               :: ncum, nd, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb
+  REAL, DIMENSION (nloc), INTENT (IN)                :: pbase, plcl
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: p
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: tv, tvp, buoy
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: supmax
+  LOGICAL, INTENT (IN)                               :: ok_inhib ! enable convection inhibition by dryness
+  REAL, DIMENSION (nloc), INTENT (IN)                :: ale, alp
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: omega
+
+  ! input/output:
+  REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
+  REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
+
+  ! output:
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: cape, cin
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: m
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: plim1, plim2
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: asupmax
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: supmax0
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: asupmaxmin
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmf, plfc
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
+  INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
+
+  ! local variables:
+  INTEGER il, i, j, k, icbmax, i0(nloc), klfc(nloc)
+  REAL deltap, fac, w, amu
+  REAL rhodp, dz
+  REAL pbmxup
+  REAL dtmin(nloc, nd), sigold(nloc, nd)
+  REAL coefmix(nloc, nd)
+  REAL pzero(nloc), ptop2old(nloc)
+  REAL cina(nloc), cinb(nloc)
+  INTEGER ibeg(nloc)
+  INTEGER nsupmax(nloc)
+  REAL supcrit, temp(nloc, nd)
+  REAL p1(nloc), pmin(nloc)
+  REAL asupmax0(nloc)
+  LOGICAL ok(nloc)
+  REAL siglim(nloc, nd), wlim(nloc, nd), mlim(nloc, nd)
+  REAL wb2(nloc)
+  REAL cbmflim(nloc), cbmf1(nloc), cbmfmax(nloc)
+  REAL cbmflast(nloc)
+  REAL coef(nloc)
+  REAL xp(nloc), xq(nloc), xr(nloc), discr(nloc), b3(nloc), b4(nloc)
+  REAL theta(nloc), bb(nloc)
+  REAL term1, term2, term3
+  REAL alp2(nloc) ! Alp with offset
+  !CR: variables for new erosion of adiabiatic ascent
+  REAL mad(nloc, nd), me(nloc, nd), betalim(nloc, nd), beta_coef(nloc, nd)
+  REAL med(nloc, nd), md(nloc,nd)
+!jyg<
+! coef_peel is now in the common cv3_param 
+!!  REAL coef_peel
+!!  PARAMETER (coef_peel=0.25)
+!>jyg
+
+  REAL sigmax
+  PARAMETER (sigmax=0.1)
+
+  CHARACTER (LEN=20) :: modname = 'cv3p1_closure'
+  CHARACTER (LEN=80) :: abort_message
+
+  ! print *,' -> cv3p1_closure, Ale ',ale(1)
+
+
+  ! -------------------------------------------------------
+  ! -- Initialization
+  ! -------------------------------------------------------
+
+
+  DO il = 1, ncum
+    alp2(il) = max(alp(il), 1.E-5)
+    ! IM
+    alp2(il) = max(alp(il), 1.E-12)
+  END DO
+
+  pbmxup = 50. ! PBMXUP+PBCRIT = cloud depth above which mixed updraughts
+  ! exist (if any)
+
+  IF (prt_level>=20) PRINT *, 'cv3p1_param nloc ncum nd icb inb nl', nloc, &
+    ncum, nd, icb(nloc), inb(nloc), nl
+  DO k = 1, nd          !jyg: initialization up to nd
+    DO il = 1, ncum
+      m(il, k) = 0.0
+    END DO
+  END DO
+
+!CR: initializations for erosion of adiabatic ascent 
+  DO k = 1,nd           !jyg: initialization up to nd
+    DO il = 1, ncum
+        mad(il,k)=0.
+        me(il,k)=0.
+        betalim(il,k)=1.
+        wlim(il,k)=0.
+    ENDDO
+  ENDDO
+
+  ! -------------------------------------------------------
+  ! -- Reset sig(i) and w0(i) for i>inb and i<icb
+  ! -------------------------------------------------------
+
+  ! update sig and w0 above LNB:
+
+  DO k = 1, nl - 1
+    DO il = 1, ncum
+      IF ((inb(il)<(nl-1)) .AND. (k>=(inb(il)+1))) THEN
+        sig(il, k) = beta*sig(il, k) + 2.*alpha*buoy(il, inb(il))*abs(buoy(il &
+          ,inb(il)))
+        sig(il, k) = amax1(sig(il,k), 0.0)
+        w0(il, k) = beta*w0(il, k)
+      END IF
+    END DO
+  END DO
+
+  ! if(prt.level.GE.20) print*,'cv3p1_param apres 100'
+  ! compute icbmax:
+
+  icbmax = 2
+  DO il = 1, ncum
+    icbmax = max(icbmax, icb(il))
+  END DO
+  ! if(prt.level.GE.20) print*,'cv3p1_param apres 200'
+
+  ! update sig and w0 below cloud base:
+
+  DO k = 1, icbmax
+    DO il = 1, ncum
+      IF (k<=icb(il)) THEN
+        sig(il, k) = beta*sig(il, k) - 2.*alpha*buoy(il, icb(il))*buoy(il, &
+          icb(il))
+        sig(il, k) = amax1(sig(il,k), 0.0)
+        w0(il, k) = beta*w0(il, k)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 300'
+  ! -------------------------------------------------------------
+  ! -- Reset fractional areas of updrafts and w0 at initial time
+  ! -- and after 10 time steps of no convection
+  ! -------------------------------------------------------------
+
+  DO k = 1, nl - 1
+    DO il = 1, ncum
+      IF (sig(il,nd)<1.5 .OR. sig(il,nd)>12.0) THEN
+        sig(il, k) = 0.0
+        w0(il, k) = 0.0
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 400'
+
+  ! -------------------------------------------------------------
+  ! jyg1
+  ! --  Calculate adiabatic ascent top pressure (ptop)
+  ! -------------------------------------------------------------
+
+
+  ! c 1. Start at first level where precipitations form
+  DO il = 1, ncum
+    pzero(il) = plcl(il) - pbcrit
+  END DO
+
+  ! c 2. Add offset
+  DO il = 1, ncum
+    pzero(il) = pzero(il) - pbmxup
+  END DO
+  DO il = 1, ncum
+    ptop2old(il) = ptop2(il)
+  END DO
+
+  DO il = 1, ncum
+    ! CR:c est quoi ce 300??
+    p1(il) = pzero(il) - 300.
+  END DO
+
+  ! compute asupmax=abs(supmax) up to lnm+1
+
+  DO il = 1, ncum
+    ok(il) = .TRUE.
+    nsupmax(il) = inb(il)
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. supmax(il,i)<0 .AND. ok(il)) THEN
+          nsupmax(il) = i
+          ok(il) = .FALSE.
+        END IF ! end IF (P(i) ...  )
+      END IF ! end IF (icb+1 le i le inb)
+    END DO
+  END DO
+
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 2.'
+  DO i = 1, nl
+    DO il = 1, ncum
+      asupmax(il, i) = abs(supmax(il,i))
+    END DO
+  END DO
+
+
+  DO il = 1, ncum
+    asupmaxmin(il) = 10.
+    pmin(il) = 100.
+    ! IM ??
+    asupmax0(il) = 0.
+  END DO
+
+  ! c 3.  Compute in which level is Pzero
+
+  ! IM bug      i0 = 18
+  DO il = 1, ncum
+    i0(il) = nl
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. p(il,i)>=p1(il)) THEN
+          IF (pzero(il)>p(il,i) .AND. pzero(il)<p(il,i-1)) THEN
+            i0(il) = i
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 3.'
+
+  ! c 4.  Compute asupmax at Pzero
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. p(il,i)>=p1(il)) THEN
+          asupmax0(il) = ((pzero(il)-p(il,i0(il)-1))*asupmax(il,i0(il))-( &
+            pzero(il)-p(il,i0(il)))*asupmax(il,i0(il)-1))/(p(il,i0(il))-p(il, &
+            i0(il)-1))
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (p(il,i)==pzero(il)) THEN
+        asupmax(i, il) = asupmax0(il)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 4.'
+
+  ! c 5. Compute asupmaxmin, minimum of asupmax
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. p(il,i)>=p1(il)) THEN
+          IF (asupmax(il,i)<asupmaxmin(il)) THEN
+            asupmaxmin(il) = asupmax(il, i)
+            pmin(il) = p(il, i)
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+
+  DO il = 1, ncum
+    ! IM
+    IF (prt_level>=20) THEN
+      PRINT *, 'cv3p1_closure il asupmax0 asupmaxmin', il, asupmax0(il), &
+        asupmaxmin(il), pzero(il), pmin(il)
+    END IF
+    IF (asupmax0(il)<asupmaxmin(il)) THEN
+      asupmaxmin(il) = asupmax0(il)
+      pmin(il) = pzero(il)
+    END IF
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 5.'
+
+
+  ! Compute Supmax at Pzero
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il)) THEN
+          supmax0(il) = ((p(il,i)-pzero(il))*asupmax(il,i-1)-(p(il, &
+            i-1)-pzero(il))*asupmax(il,i))/(p(il,i)-p(il,i-1))
+          GO TO 425
+        END IF ! end IF (P(i) ... )
+      END IF ! end IF (icb+1 le i le inb)
+    END DO
+  END DO
+
+425 CONTINUE
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 425.'
+
+  ! c 6. Calculate ptop2
+
+  DO il = 1, ncum
+    IF (asupmaxmin(il)<supcrit1) THEN
+      ptop2(il) = pmin(il)
+    END IF
+
+    IF (asupmaxmin(il)>supcrit1 .AND. asupmaxmin(il)<supcrit2) THEN
+      ptop2(il) = ptop2old(il)
+    END IF
+
+    IF (asupmaxmin(il)>supcrit2) THEN
+      ptop2(il) = ph(il, inb(il))
+    END IF
+  END DO
+
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 6.'
+
+  ! c 7. Compute multiplying factor for adiabatic updraught mass flux
+
+
+  IF (ok_inhib) THEN
+
+    DO i = 1, nl
+      DO il = 1, ncum
+        IF (i<=nl) THEN
+          coefmix(il, i) = (min(ptop2(il),ph(il,i))-ph(il,i))/(ph(il,i+1)-ph( &
+            il,i))
+          coefmix(il, i) = min(coefmix(il,i), 1.)
+        END IF
+      END DO
+    END DO
+
+
+  ELSE ! when inhibition is not taken into account, coefmix=1
+
+
+
+    DO i = 1, nl
+      DO il = 1, ncum
+        IF (i<=nl) THEN
+          coefmix(il, i) = 1.
+        END IF
+      END DO
+    END DO
+
+  END IF ! ok_inhib
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 7.'
+  ! -------------------------------------------------------------------
+  ! -------------------------------------------------------------------
+
+
+  ! jyg2
+
+  ! ==========================================================================
+
+
+  ! -------------------------------------------------------------
+  ! -- Calculate convective inhibition (CIN)
+  ! -------------------------------------------------------------
+
+  ! do i=1,nloc
+  ! print*,'avant cine p',pbase(i),plcl(i)
+  ! enddo
+  ! do j=1,nd
+  ! do i=1,nloc
+  ! print*,'avant cine t',tv(i),tvp(i)
+  ! enddo
+  ! enddo
+  CALL cv3_cine(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, tvp, cina, &
+    cinb, plfc)
+
+  DO il = 1, ncum
+    cin(il) = cina(il) + cinb(il)
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres cv3_cine'
+  ! -------------------------------------------------------------
+  ! --Update buoyancies to account for Ale
+  ! -------------------------------------------------------------
+
+  CALL cv3_buoy(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, ale, cin, tv, &
+    tvp, buoy)
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres cv3_buoy'
+
+  ! -------------------------------------------------------------
+  ! -- Calculate convective available potential energy (cape),
+  ! -- vertical velocity (w), fractional area covered by
+  ! -- undilute updraft (sig), and updraft mass flux (m)
+  ! -------------------------------------------------------------
+
+  DO il = 1, ncum
+    cape(il) = 0.0
+  END DO
+
+  ! compute dtmin (minimum buoyancy between ICB and given level k):
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      dtmin(il, k) = 100.0
+    END DO
+  END DO
+
+  DO k = 1, nl
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF ((k>=(icb(il)+1)) .AND. (k<=inb(il)) .AND. (j>=icb(il)) .AND. (j<= &
+            (k-1))) THEN
+          dtmin(il, k) = amin1(dtmin(il,k), buoy(il,j))
+        END IF
+      END DO
+    END DO
+  END DO
+
+  ! the interval on which cape is computed starts at pbase :
+
+  DO k = 1, nl
+    DO il = 1, ncum
+
+      IF ((k>=(icb(il)+1)) .AND. (k<=inb(il))) THEN
+        IF (iflag_mix_adiab.eq.1) THEN
+!CR:computation of cape from LCL: keep flag or to modify in all cases?
+        deltap = min(plcl(il), ph(il,k-1)) - min(plcl(il), ph(il,k))
+        ELSE
+        deltap = min(pbase(il), ph(il,k-1)) - min(pbase(il), ph(il,k))
+        ENDIF
+        cape(il) = cape(il) + rrd*buoy(il, k-1)*deltap/p(il, k-1)
+        cape(il) = amax1(0.0, cape(il))
+        sigold(il, k) = sig(il, k)
+
+
+        ! jyg       Coefficient coefmix limits convection to levels where a
+        ! sufficient
+        ! fraction of mixed draughts are ascending.
+        siglim(il, k) = coefmix(il, k)*alpha1*dtmin(il, k)*abs(dtmin(il,k))
+        siglim(il, k) = amax1(siglim(il,k), 0.0)
+        siglim(il, k) = amin1(siglim(il,k), 0.01)
+        ! c         fac=AMIN1(((dtcrit-dtmin(il,k))/dtcrit),1.0)
+        fac = 1.
+        wlim(il, k) = fac*sqrt(cape(il))
+        amu = siglim(il, k)*wlim(il, k)
+        rhodp = 0.007*p(il, k)*(ph(il,k)-ph(il,k+1))/tv(il, k)
+        mlim(il, k) = amu*rhodp
+        ! print*, 'siglim ', k,siglim(1,k)
+      END IF
+
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 600'
+
+  DO il = 1, ncum
+    ! IM beg
+    IF (prt_level>=20) THEN
+      PRINT *, 'cv3p1_closure il icb mlim ph ph+1 ph+2', il, icb(il), &
+        mlim(il, icb(il)+1), ph(il, icb(il)), ph(il, icb(il)+1), &
+        ph(il, icb(il)+2)
+    END IF
+
+    IF (icb(il)+1<=inb(il)) THEN
+      ! IM end
+      mlim(il, icb(il)) = 0.5*mlim(il, icb(il)+1)*(ph(il,icb(il))-ph(il,icb( &
+        il)+1))/(ph(il,icb(il)+1)-ph(il,icb(il)+2))
+      ! IM beg
+    END IF !(icb(il.le.inb(il))) then
+    ! IM end
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 700'
+
+  ! jyg1
+  ! ------------------------------------------------------------------------
+  ! c     Correct mass fluxes so that power used to overcome CIN does not
+  ! c     exceed Power Available for Lifting (PAL).
+  ! ------------------------------------------------------------------------
+
+  DO il = 1, ncum
+    cbmflim(il) = 0.
+    cbmf(il) = 0.
+  END DO
+
+  ! c 1. Compute cloud base mass flux of elementary system (Cbmf0=Cbmflim)
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      ! old       IF (k .ge. icb(il) .and. k .le. inb(il)) THEN
+      ! IM        IF (k .ge. icb(il)+1 .and. k .le. inb(il)) THEN
+      IF (k>=icb(il) .AND. k<=inb(il) & !cor jyg
+          .AND. icb(il)+1<=inb(il)) THEN !cor jyg
+        cbmflim(il) = cbmflim(il) + mlim(il, k)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres cbmflim'
+
+  ! 1.5 Compute cloud base mass flux given by Alp closure (Cbmf1), maximum
+  !     allowed mass flux (Cbmfmax) and final target mass flux (Cbmf)
+  !     Cbmf is set to zero if Cbmflim (the mass flux of elementary cloud)
+  !     is exceedingly small.
+
+  DO il = 1, ncum
+    wb2(il) = sqrt(2.*max(ale(il)+cin(il),0.))
+  END DO
+
+  DO il = 1, ncum
+    IF (plfc(il)<100.) THEN
+      ! This is an irealistic value for plfc => no calculation of wbeff
+      wbeff(il) = 100.1
+    ELSE
+      ! Calculate wbeff
+      IF (flag_wb==0) THEN
+        wbeff(il) = wbmax
+      ELSE IF (flag_wb==1) THEN
+        wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
+      ELSE IF (flag_wb==2) THEN
+        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
+      END IF
+    END IF
+  END DO
+
+!CR:Compute k at plfc
+  DO il=1,ncum
+           klfc(il)=nl
+  ENDDO
+  DO k=1,nl
+     DO il=1,ncum
+        if ((plfc(il).lt.ph(il,k)).and.(plfc(il).ge.ph(il,k+1))) then
+           klfc(il)=k
+        endif
+     ENDDO
+  ENDDO
+!RC
+
+  DO il = 1, ncum
+    ! jyg    Modification du coef de wb*wb pour conformite avec papier Wake
+    ! c       cbmf1(il) = alp2(il)/(0.5*wb*wb-Cin(il))
+    cbmf1(il) = alp2(il)/(2.*wbeff(il)*wbeff(il)-cin(il))
+!CR: Add large-scale component to the mass-flux
+!encore connu sous le nom "Experience du tube de dentifrice"
+    if ((coef_clos_ls.gt.0.).and.(plfc(il).gt.0.)) then 
+       cbmf1(il) = cbmf1(il) - coef_clos_ls*min(0.,1./RG*omega(il,klfc(il)))
+    endif
+!RC
+    IF (cbmf1(il)==0 .AND. alp2(il)/=0.) THEN
+      WRITE (lunout, *) 'cv3p1_closure cbmf1=0 and alp NE 0 il alp2 alp cin ' &
+        , il, alp2(il), alp(il), cin(il)
+      abort_message = ''
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+    cbmfmax(il) = sigmax*wb2(il)*100.*p(il, icb(il))/(rrd*tv(il,icb(il)))
+  END DO
+
+  DO il = 1, ncum
+    IF (cbmflim(il)>1.E-6) THEN
+      ! ATTENTION TEST CR
+      ! if (cbmfmax(il).lt.1.e-12) then
+      cbmf(il) = min(cbmf1(il), cbmfmax(il))
+      ! else
+      ! cbmf(il) = cbmf1(il)
+      ! endif
+      ! print*,'cbmf',cbmf1(il),cbmfmax(il)
+    END IF
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres cbmflim_testCR'
+
+  ! c 2. Compute coefficient and apply correction
+
+  DO il = 1, ncum
+    coef(il) = (cbmf(il)+1.E-10)/(cbmflim(il)+1.E-10)
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres coef_plantePLUS'
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k>=icb(il)+1 .AND. k<=inb(il)) THEN
+        amu = beta*sig(il, k)*w0(il, k) + (1.-beta)*coef(il)*siglim(il, k)* &
+          wlim(il, k)
+        w0(il, k) = wlim(il, k)
+        w0(il, k) = max(w0(il,k), 1.E-10)
+        sig(il, k) = amu/w0(il, k)
+        sig(il, k) = min(sig(il,k), 1.)
+        ! c         amu = 0.5*(SIG(il,k)+sigold(il,k))*W0(il,k)
+        m(il, k) = amu*0.007*p(il, k)*(ph(il,k)-ph(il,k+1))/tv(il, k)
+      END IF
+    END DO
+  END DO
+  ! jyg2
+  DO il = 1, ncum
+    w0(il, icb(il)) = 0.5*w0(il, icb(il)+1)
+    m(il, icb(il)) = 0.5*m(il, icb(il)+1)*(ph(il,icb(il))-ph(il,icb(il)+1))/ &
+      (ph(il,icb(il)+1)-ph(il,icb(il)+2))
+    sig(il, icb(il)) = sig(il, icb(il)+1)
+    sig(il, icb(il)-1) = sig(il, icb(il))
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres w0_sig_M'
+
+!CR: new erosion of adiabatic ascent: modification of m
+!computation of the sum of ascending fluxes 
+  IF (iflag_mix_adiab.eq.1) THEN
+
+!Verification sum(me)=sum(m)
+  DO k = 1,nd                         !jyg: initialization up to nd
+    DO il = 1, ncum
+       md(il,k)=0.
+       med(il,k)=0.
+    ENDDO
+  ENDDO
+
+  DO k = nl,1,-1
+    DO il = 1, ncum
+           md(il,k)=md(il,k+1)+m(il,k+1)
+    ENDDO
+  ENDDO
+
+  DO k = nl,1,-1
+    DO il = 1, ncum
+        IF ((k>=(icb(il))) .AND. (k<=inb(il))) THEN
+           mad(il,k)=mad(il,k+1)+m(il,k+1)
+        ENDIF
+!        print*,"mad",il,k,mad(il,k)
+    ENDDO
+  ENDDO
+
+!CR: erosion of each adiabatic ascent during its ascent
+
+!Computation of erosion coefficient beta_coef
+  DO k = 1, nl
+    DO il = 1, ncum
+       IF ((k>=(icb(il)+1)) .AND. (k<=inb(il)) .AND. (mlim(il,k).gt.0.)) THEN     
+!          print*,"beta_coef",il,k,icb(il),inb(il),buoy(il,k),tv(il,k),wlim(il,k),wlim(il,k+1)
+          beta_coef(il,k)=RG*coef_peel*buoy(il,k)/tv(il,k)/((wlim(il,k)+wlim(il,k+1))/2.)**2
+       ELSE
+          beta_coef(il,k)=0.
+       ENDIF
+    ENDDO
+  ENDDO
+
+!  print*,"apres beta_coef"
+
+  DO k = 1, nl
+    DO il = 1, ncum
+
+      IF ((k>=(icb(il)+1)) .AND. (k<=inb(il))) THEN
+
+!        print*,"dz",il,k,tv(il, k-1)
+        dz = (ph(il,k-1)-ph(il,k))/(p(il, k-1)/(rrd*tv(il, k-1))*RG)
+        betalim(il,k)=betalim(il,k-1)*exp(-1.*beta_coef(il,k-1)*dz)
+!        betalim(il,k)=betalim(il,k-1)*exp(-RG*coef_peel*buoy(il,k-1)/tv(il,k-1)/5.**2*dz)
+!        print*,"me",il,k,mlim(il,k),buoy(il,k),wlim(il,k),mad(il,k)
+        dz = (ph(il,k)-ph(il,k+1))/(p(il, k)/(rrd*tv(il, k))*RG)
+!        me(il,k)=betalim(il,k)*(m(il,k)+RG*coef_peel*buoy(il,k)/tv(il,k)/((wlim(il,k)+wlim(il,k+1))/2.)**2*dz*mad(il,k))
+        me(il,k)=betalim(il,k)*(m(il,k)+beta_coef(il,k)*dz*mad(il,k))
+!        print*,"B/w2",il,k,RG*coef_peel*buoy(il,k)/tv(il,k)/((wlim(il,k)+wlim(il,k+1))/2.)**2*dz    
+      
+      END IF
+        
+!Modification of m
+      m(il,k)=me(il,k) 
+    END DO
+  END DO
+ 
+!  DO il = 1, ncum
+!     dz = (ph(il,icb(il))-ph(il,icb(il)+1))/(p(il, icb(il))/(rrd*tv(il, icb(il)))*RG)
+!     m(il,icb(il))=m(il,icb(il))+RG*coef_peel*buoy(il,icb(il))/tv(il,icb(il)) &
+!                  /((wlim(il,icb(il))+wlim(il,icb(il)+1))/2.)**2*dz*mad(il,icb(il))
+!     print*,"wlim(icb)",icb(il),wlim(il,icb(il)),m(il,icb(il))
+!  ENDDO
+
+!Verification sum(me)=sum(m)
+  DO k = nl,1,-1
+    DO il = 1, ncum
+           med(il,k)=med(il,k+1)+m(il,k+1)
+!           print*,"somme(me),somme(m)",il,k,icb(il),med(il,k),md(il,k),me(il,k),m(il,k),wlim(il,k)
+    ENDDO
+  ENDDO
+
+
+  ENDIF !(iflag_mix_adiab)
+!RC
+
+
+
+  ! c 3. Compute final cloud base mass flux and set iflag to 3 if
+  ! c    cloud base mass flux is exceedingly small and is decreasing (i.e. if
+  ! c    the final mass flux (cbmflast) is greater than the target mass flux
+  ! c    (cbmf)).
+
+  DO il = 1, ncum
+    cbmflast(il) = 0.
+  END DO
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k>=icb(il) .AND. k<=inb(il)) THEN
+          !IMpropo??      IF ((k.ge.(icb(il)+1)).and.(k.le.inb(il))) THEN
+        cbmflast(il) = cbmflast(il) + m(il, k)
+      END IF
+    END DO
+  END DO
+
+  DO il = 1, ncum
+    IF (cbmflast(il)<1.E-6 .AND. cbmflast(il)>=cbmf(il)) THEN
+      iflag(il) = 3
+    END IF
+  END DO
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (iflag(il)>=3) THEN
+        m(il, k) = 0.
+        sig(il, k) = 0.
+        w0(il, k) = 0.
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p1_param apres iflag'
+
+  ! c 4. Introduce a correcting factor for coef, in order to obtain an
+  ! effective
+  ! c    sigdz larger in the present case (using cv3p1_closure) than in the
+  ! old
+  ! c    closure (using cv3_closure).
+  IF (1==0) THEN
+    DO il = 1, ncum
+      ! c      coef(il) = 2.*coef(il)
+      coef(il) = 5.*coef(il)
+    END DO
+    ! version CVS du ..2008
+  ELSE
+    IF (iflag_cvl_sigd==0) THEN
+      ! test pour verifier qu on fait la meme chose qu avant: sid constant
+      coef(1:ncum) = 1.
+    ELSE
+      coef(1:ncum) = min(2.*coef(1:ncum), 5.)
+      coef(1:ncum) = max(2.*coef(1:ncum), 0.2)
+    END IF
+  END IF
+
+  IF (prt_level>=20) PRINT *, 'cv3p1_param FIN'
+  RETURN
+END SUBROUTINE cv3p1_closure
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p2_closure.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p2_closure.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p2_closure.F90	(revision 3330)
@@ -0,0 +1,868 @@
+
+
+SUBROUTINE cv3p2_closure(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, &
+    tvp, buoy, supmax, ok_inhib, ale, alp, omega,sig, w0, ptop2, cape, cin, m, &
+    iflag, coef, plim1, plim2, asupmax, supmax0, asupmaxmin, cbmflast, plfc, &
+    wbeff)
+
+
+  ! **************************************************************
+  ! *
+  ! CV3P2_CLOSURE                                               *
+  ! Ale & Alp Closure of Convect3              *
+  ! *
+  ! written by   :   Kerry Emanuel                              *
+  ! vectorization:   S. Bony                                    *
+  ! modified by :    Jean-Yves Grandpeix, 18/06/2003, 19.32.10  *
+  ! Julie Frohwirth,     14/10/2005  17.44.22  *
+  ! **************************************************************
+
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "YOMCST2.h"
+  include "YOMCST.h"
+  include "conema3.h"
+
+  ! input:
+  INTEGER, INTENT (IN)                               :: ncum, nd, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb
+  REAL, DIMENSION (nloc), INTENT (IN)                :: pbase, plcl
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: p
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: tv, tvp, buoy
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: supmax
+  LOGICAL, INTENT (IN)                               :: ok_inhib ! enable convection inhibition by dryness
+  REAL, DIMENSION (nloc), INTENT (IN)                :: ale, alp
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: omega
+
+  ! input/output:
+  REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
+  REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
+
+  ! output:
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: cape, cin
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: m
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: plim1, plim2
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: asupmax
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: supmax0
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: asupmaxmin
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmflast, plfc
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
+  INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
+
+  ! local variables:
+  INTEGER                                            :: il, i, j, k, icbmax
+  INTEGER, DIMENSION (nloc)                          :: i0, klfc
+  REAL                                               :: deltap, fac, w, amu
+  REAL, DIMENSION (nloc, nd)                         :: rhodp               ! Factor such that m=rhodp*sig*w
+  REAL                                               :: dz
+  REAL                                               :: pbmxup
+  REAL, DIMENSION (nloc, nd)                         :: dtmin, sigold
+  REAL, DIMENSION (nloc, nd)                         :: coefmix
+  REAL, DIMENSION (nloc)                             :: dtminmax
+  REAL, DIMENSION (nloc)                             :: pzero, ptop2old
+  REAL, DIMENSION (nloc)                             :: cina, cinb
+  INTEGER, DIMENSION (nloc)                          :: ibeg
+  INTEGER, DIMENSION (nloc)                          :: nsupmax
+  REAL                                               :: supcrit
+  REAL, DIMENSION (nloc, nd)                         :: temp
+  REAL, DIMENSION (nloc)                             :: p1, pmin
+  REAL, DIMENSION (nloc)                             :: asupmax0
+  LOGICAL, DIMENSION (nloc)                          :: ok
+  REAL, DIMENSION (nloc, nd)                         :: siglim, wlim, mlim
+  REAL, DIMENSION (nloc)                             :: wb2
+  REAL, DIMENSION (nloc)                             :: cbmf0        ! initial cloud base mass flux
+  REAL, DIMENSION (nloc)                             :: cbmflim      ! cbmf given by Cape closure
+  REAL, DIMENSION (nloc)                             :: cbmfalp      ! cbmf given by Alp closure
+  REAL, DIMENSION (nloc)                             :: cbmfalpb     ! bounded cbmf given by Alp closure
+  REAL, DIMENSION (nloc)                             :: cbmfmax      ! upper bound on cbmf
+  REAL, DIMENSION (nloc)                             :: coef
+  REAL, DIMENSION (nloc)                             :: xp, xq, xr, discr, b3, b4
+  REAL, DIMENSION (nloc)                             :: theta, bb
+  REAL                                               :: term1, term2, term3
+  REAL, DIMENSION (nloc)                             :: alp2                  ! Alp with offset
+
+!CR: variables for new erosion of adiabiatic ascent
+  REAL, DIMENSION (nloc, nd)                         :: mad, me, betalim, beta_coef
+  REAL, DIMENSION (nloc, nd)                         :: med, md
+!jyg<
+! coef_peel is now in the common cv3_param 
+!!  REAL                                               :: coef_peel
+!!  PARAMETER (coef_peel=0.25)
+!>jyg
+
+  REAL                                               :: sigmax
+  PARAMETER (sigmax=0.1)
+!!  PARAMETER (sigmax=10.)
+
+  CHARACTER (LEN=20)                                 :: modname = 'cv3p2_closure'
+  CHARACTER (LEN=80)                                 :: abort_message
+
+  INTEGER,SAVE                                       :: igout=1
+!$OMP THREADPRIVATE(igout)
+
+ IF (prt_level>=20) print *,' -> cv3p2_closure, Ale ',ale(igout)
+
+
+  ! -------------------------------------------------------
+  ! -- Initialization
+  ! -------------------------------------------------------
+
+
+  DO il = 1, ncum
+    alp2(il) = max(alp(il), 1.E-5)
+    ! IM
+    alp2(il) = max(alp(il), 1.E-12)
+  END DO
+
+  pbmxup = 50. ! PBMXUP+PBCRIT = cloud depth above which mixed updraughts
+  ! exist (if any)
+
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure nloc ncum nd icb inb nl', nloc, &
+    ncum, nd, icb(nloc), inb(nloc), nl
+  DO k = 1, nl
+    DO il = 1, ncum
+      rhodp(il,k) = 0.007*p(il, k)*(ph(il,k)-ph(il,k+1))/tv(il, k)
+    END DO
+  END DO
+
+!CR+jyg: initializations (up to nd) for erosion of adiabatic ascent and of m and wlim
+  DO k = 1,nd
+    DO il = 1, ncum
+        mad(il,k)=0.
+        me(il,k)=0.
+        betalim(il,k)=1.
+        wlim(il,k)=0.
+        m(il, k) = 0.0
+    ENDDO
+  ENDDO
+
+  ! -------------------------------------------------------
+  ! -- Reset sig(i) and w0(i) for i>inb and i<icb
+  ! -------------------------------------------------------
+
+  ! update sig and w0 above LNB:
+
+  DO k = 1, nl - 1
+    DO il = 1, ncum
+      IF ((inb(il)<(nl-1)) .AND. (k>=(inb(il)+1))) THEN
+        sig(il, k) = beta*sig(il, k) + 2.*alpha*buoy(il, inb(il))*abs(buoy(il,inb(il)))
+        sig(il, k) = amax1(sig(il,k), 0.0)
+        w0(il, k) = beta*w0(il, k)
+      END IF
+    END DO
+  END DO
+
+  ! if(prt.level.GE.20) print*,'cv3p2_closure apres 100'
+  ! compute icbmax:
+
+  icbmax = 2
+  DO il = 1, ncum
+    icbmax = max(icbmax, icb(il))
+  END DO
+  ! if(prt.level.GE.20) print*,'cv3p2_closure apres 200'
+
+  ! update sig and w0 below cloud base:
+
+  DO k = 1, icbmax
+    DO il = 1, ncum
+      IF (k<=icb(il)) THEN
+        sig(il, k) = beta*sig(il, k) - 2.*alpha*buoy(il, icb(il))*buoy(il,icb(il))
+        sig(il, k) = amax1(sig(il,k), 0.0)
+        w0(il, k) = beta*w0(il, k)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 300'
+
+  ! -------------------------------------------------------------
+  ! -- Reset fractional areas of updrafts and w0 at initial time
+  ! -- and after 10 time steps of no convection
+  ! -------------------------------------------------------------
+
+!jyg<
+  IF (ok_convstop) THEN
+    DO k = 1, nl - 1
+      DO il = 1, ncum
+        IF (sig(il,nd)<1.5 .OR. sig(il,nd)>noconv_stop) THEN
+          sig(il, k) = 0.0
+          w0(il, k) = 0.0
+        END IF
+      END DO
+    END DO
+  ELSE
+  DO k = 1, nl - 1
+    DO il = 1, ncum
+      IF (sig(il,nd)<1.5 .OR. sig(il,nd)>12.0) THEN
+        sig(il, k) = 0.0
+        w0(il, k) = 0.0
+      END IF
+    END DO
+  END DO
+  ENDIF  ! (ok_convstop)
+!>jyg
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 400'
+
+  ! -------------------------------------------------------
+  ! -- Compute initial cloud base mass flux (Cbmf0)
+  ! -------------------------------------------------------
+  DO il = 1, ncum
+    cbmf0(il) = 0.0
+  END DO
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k>=icb(il) .AND. k<=inb(il) & 
+          .AND. icb(il)+1<=inb(il)) THEN
+        cbmf0(il) = cbmf0(il) + sig(il, k)*w0(il,k)*rhodp(il,k)
+      END IF
+    END DO
+  END DO
+
+  ! -------------------------------------------------------------
+  ! jyg1
+  ! --  Calculate adiabatic ascent top pressure (ptop)
+  ! -------------------------------------------------------------
+
+
+  ! c 1. Start at first level where precipitations form
+  DO il = 1, ncum
+    pzero(il) = plcl(il) - pbcrit
+  END DO
+
+  ! c 2. Add offset
+  DO il = 1, ncum
+    pzero(il) = pzero(il) - pbmxup
+  END DO
+  DO il = 1, ncum
+    ptop2old(il) = ptop2(il)
+  END DO
+
+  DO il = 1, ncum
+    ! CR:c est quoi ce 300??
+    p1(il) = pzero(il) - 300.
+  END DO
+
+  ! compute asupmax=abs(supmax) up to lnm+1
+
+  DO il = 1, ncum
+    ok(il) = .TRUE.
+    nsupmax(il) = inb(il)
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. supmax(il,i)<0 .AND. ok(il)) THEN
+          nsupmax(il) = i
+          ok(il) = .FALSE.
+        END IF ! end IF (P(i) ...  )
+      END IF ! end IF (icb+1 le i le inb)
+    END DO
+  END DO
+
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 2.'
+  DO i = 1, nl
+    DO il = 1, ncum
+      asupmax(il, i) = abs(supmax(il,i))
+    END DO
+  END DO
+
+
+  DO il = 1, ncum
+    asupmaxmin(il) = 10.
+    pmin(il) = 100.
+    ! IM ??
+    asupmax0(il) = 0.
+  END DO
+
+  ! c 3.  Compute in which level is Pzero
+
+  ! IM bug      i0 = 18
+  DO il = 1, ncum
+    i0(il) = nl
+  END DO
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. p(il,i)>=p1(il)) THEN
+          IF (pzero(il)>p(il,i) .AND. pzero(il)<p(il,i-1)) THEN
+            i0(il) = i
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 3.'
+
+  ! c 4.  Compute asupmax at Pzero
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. p(il,i)>=p1(il)) THEN
+          asupmax0(il) = ((pzero(il)-p(il,i0(il)-1))*asupmax(il,i0(il))- &
+            (pzero(il)-p(il,i0(il)))*asupmax(il,i0(il)-1))/(p(il,i0(il))-p(il,i0(il)-1))
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (p(il,i)==pzero(il)) THEN
+        asupmax(i, il) = asupmax0(il)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 4.'
+
+  ! c 5. Compute asupmaxmin, minimum of asupmax
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il) .AND. p(il,i)>=p1(il)) THEN
+          IF (asupmax(il,i)<asupmaxmin(il)) THEN
+            asupmaxmin(il) = asupmax(il, i)
+            pmin(il) = p(il, i)
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+
+  DO il = 1, ncum
+    ! IM
+    IF (prt_level>=20) THEN
+      PRINT *, 'cv3p2_closure il asupmax0 asupmaxmin', il, asupmax0(il), &
+        asupmaxmin(il), pzero(il), pmin(il)
+    END IF
+    IF (asupmax0(il)<asupmaxmin(il)) THEN
+      asupmaxmin(il) = asupmax0(il)
+      pmin(il) = pzero(il)
+    END IF
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 5.'
+
+
+  ! Compute Supmax at Pzero
+
+  DO i = 1, nl
+    DO il = 1, ncum
+      IF (i>icb(il) .AND. i<=inb(il)) THEN
+        IF (p(il,i)<=pzero(il)) THEN
+          supmax0(il) = ((p(il,i)-pzero(il))*asupmax(il,i-1)- &
+            (p(il,i-1)-pzero(il))*asupmax(il,i))/(p(il,i)-p(il,i-1))
+          GO TO 425
+        END IF ! end IF (P(i) ... )
+      END IF ! end IF (icb+1 le i le inb)
+    END DO
+  END DO
+
+425 CONTINUE
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 425.'
+
+  ! c 6. Calculate ptop2
+
+  DO il = 1, ncum
+    IF (asupmaxmin(il)<supcrit1) THEN
+      ptop2(il) = pmin(il)
+    END IF
+
+    IF (asupmaxmin(il)>supcrit1 .AND. asupmaxmin(il)<supcrit2) THEN
+      ptop2(il) = ptop2old(il)
+    END IF
+
+    IF (asupmaxmin(il)>supcrit2) THEN
+      ptop2(il) = ph(il, inb(il))
+    END IF
+  END DO
+
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 6.'
+
+  ! c 7. Compute multiplying factor for adiabatic updraught mass flux
+
+
+  IF (ok_inhib) THEN
+
+    DO i = 1, nl
+      DO il = 1, ncum
+        IF (i<=nl) THEN
+          coefmix(il, i) = (min(ptop2(il),ph(il,i))-ph(il,i))/(ph(il,i+1)-ph(il,i))
+          coefmix(il, i) = min(coefmix(il,i), 1.)
+        END IF
+      END DO
+    END DO
+
+
+  ELSE ! when inhibition is not taken into account, coefmix=1
+
+
+
+    DO i = 1, nl
+      DO il = 1, ncum
+        IF (i<=nl) THEN
+          coefmix(il, i) = 1.
+        END IF
+      END DO
+    END DO
+
+  END IF ! ok_inhib
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 7.'
+  ! -------------------------------------------------------------------
+  ! -------------------------------------------------------------------
+
+
+  ! jyg2
+
+  ! ==========================================================================
+
+
+  ! -------------------------------------------------------------
+  ! -- Calculate convective inhibition (CIN)
+  ! -------------------------------------------------------------
+
+  ! do i=1,nloc
+  ! print*,'avant cine p',pbase(i),plcl(i)
+  ! enddo
+  ! do j=1,nd
+  ! do i=1,nloc
+  ! print*,'avant cine t',tv(i),tvp(i)
+  ! enddo
+  ! enddo
+  CALL cv3_cine(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, tv, tvp, cina, &
+    cinb, plfc)
+
+  DO il = 1, ncum
+    cin(il) = cina(il) + cinb(il)
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure after cv3_cine: cina, cinb, cin ', &
+                              cina(igout), cinb(igout), cin(igout)
+  ! -------------------------------------------------------------
+  ! --Update buoyancies to account for Ale
+  ! -------------------------------------------------------------
+
+  CALL cv3_buoy(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, ale, cin, tv, &
+    tvp, buoy)
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure after cv3_buoy'
+
+  ! -------------------------------------------------------------
+  ! -- Calculate convective available potential energy (cape),
+  ! -- vertical velocity (w), fractional area covered by
+  ! -- undilute updraft (sig), and updraft mass flux (m)
+  ! -------------------------------------------------------------
+
+  DO il = 1, ncum
+    cape(il) = 0.0
+    dtminmax(il) = -100.
+  END DO
+
+  ! compute dtmin (minimum buoyancy between ICB and given level k):
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      dtmin(il, k) = 100.0
+    END DO
+  END DO
+
+  DO k = 1, nl
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF ((k>=(icb(il)+1)) .AND. (k<=inb(il)) .AND. (j>=icb(il)) &
+                             .AND. (j<=(k-1))) THEN
+          dtmin(il, k) = amin1(dtmin(il,k), buoy(il,j))
+        END IF
+      END DO
+    END DO
+  END DO
+!jyg<
+!  Store maximum of dtmin
+!  C est pas terrible d avoir ce test sur Ale+Cin encore une fois ici.
+!                      A REVOIR !
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k>=(icb(il)+1) .AND. k<=inb(il) .AND. ale(il)+cin(il)>0.) THEN
+        dtminmax(il) = max(dtmin(il,k), dtminmax(il))
+      ENDIF
+    END DO
+  END DO
+!
+!    prevent convection when ale+cin <= 0
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k>=(icb(il)+1) .AND. k<=inb(il)) THEN
+        dtmin(il,k) = min(dtmin(il,k), dtminmax(il))
+      ENDIF
+    END DO
+  END DO
+!>jyg
+!
+  IF (prt_level >= 20) THEN
+    print *,'cv3p2_closure: dtmin ', (k, dtmin(igout,k), k=1,nl)
+    print *,'cv3p2_closure: dtminmax ', dtminmax(igout)
+  ENDIF
+!
+  ! the interval on which cape is computed starts at pbase :
+
+  DO k = 1, nl
+    DO il = 1, ncum
+
+      IF ((k>=(icb(il)+1)) .AND. (k<=inb(il))) THEN
+
+        IF (iflag_mix_adiab.eq.1) THEN
+!CR:computation of cape from LCL: keep flag or to modify in all cases?
+        deltap = min(plcl(il), ph(il,k-1)) - min(plcl(il), ph(il,k))
+        ELSE
+        deltap = min(pbase(il), ph(il,k-1)) - min(pbase(il), ph(il,k))
+        ENDIF
+        cape(il) = cape(il) + rrd*buoy(il, k-1)*deltap/p(il, k-1)
+        cape(il) = amax1(0.0, cape(il))
+        sigold(il, k) = sig(il, k)
+
+
+        ! jyg       Coefficient coefmix limits convection to levels where a
+        ! sufficient
+        ! fraction of mixed draughts are ascending.
+        siglim(il, k) = coefmix(il, k)*alpha1*dtmin(il, k)*abs(dtmin(il,k))
+        siglim(il, k) = amax1(siglim(il,k), 0.0)
+        siglim(il, k) = amin1(siglim(il,k), 0.01)
+        ! c         fac=AMIN1(((dtcrit-dtmin(il,k))/dtcrit),1.0)
+        fac = 1.
+        wlim(il, k) = fac*sqrt(cape(il))
+        amu = siglim(il, k)*wlim(il, k)
+!!        rhodp(il,k) = 0.007*p(il, k)*(ph(il,k)-ph(il,k+1))/tv(il, k) !cor jyg : computed earlier
+        mlim(il, k) = amu*rhodp(il,k)
+        ! print*, 'siglim ', k,siglim(1,k)
+      END IF
+
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 600'
+
+  DO il = 1, ncum
+    ! IM beg
+    IF (prt_level>=20) THEN
+      PRINT *, 'cv3p2_closure il icb mlim ph ph+1 ph+2', il, icb(il), &
+        mlim(il, icb(il)+1), ph(il, icb(il)), ph(il, icb(il)+1), &
+        ph(il, icb(il)+2)
+    END IF
+
+    IF (icb(il)+1<=inb(il)) THEN
+      ! IM end
+      mlim(il, icb(il)) = 0.5*mlim(il,icb(il)+1)*(ph(il,icb(il))-ph(il,icb(il)+1))/ &
+                                               (ph(il,icb(il)+1)-ph(il,icb(il)+2))
+      ! IM beg
+    END IF !(icb(il.le.inb(il))) then
+    ! IM end
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 700'
+
+  ! 
+  ! ------------------------------------------------------------------------
+  ! c     Compute Cloud base mass flux given by Cape closure (cbmflim = cbmf of 
+  ! c     elementary systems), cbmf given by Alp closure (cbmfalp), cbmf given by Alp 
+  ! c     closure with an upper bound imposed (cbmfalpb) and cbmf resulting from
+  ! c     time integration (cbmflast).
+  ! ------------------------------------------------------------------------
+
+  DO il = 1, ncum
+    cbmflim(il) = 0.
+    cbmfalp(il) = 0.
+    cbmfalpb(il) = 0.
+    cbmflast(il) = 0.
+  END DO
+
+  ! c 1. Compute cloud base mass flux of elementary system (Cbmflim)
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      ! old       IF (k .ge. icb(il) .and. k .le. inb(il)) THEN
+      ! IM        IF (k .ge. icb(il)+1 .and. k .le. inb(il)) THEN
+      IF (k>=icb(il) .AND. k<=inb(il) & !cor jyg
+          .AND. icb(il)+1<=inb(il)) THEN !cor jyg
+        cbmflim(il) = cbmflim(il) + mlim(il, k)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure after cbmflim: cbmflim ', cbmflim(igout)
+
+  ! 1.5 Compute cloud base mass flux given by Alp closure (Cbmfalp), maximum
+  !     allowed mass flux (Cbmfmax) and bounded mass flux (Cbmfalpb)
+  !     Cbmfalpb is set to zero if Cbmflim (the mass flux of elementary cloud)
+  !     is exceedingly small.
+
+  DO il = 1, ncum
+    wb2(il) = sqrt(2.*max(ale(il)+cin(il),0.))
+  END DO
+
+  DO il = 1, ncum
+    IF (plfc(il)<100.) THEN
+      ! This is an irealistic value for plfc => no calculation of wbeff
+      wbeff(il) = 100.1
+    ELSE
+      ! Calculate wbeff
+      IF (flag_wb==0) THEN
+        wbeff(il) = wbmax
+      ELSE IF (flag_wb==1) THEN
+        wbeff(il) = wbmax/(1.+500./(ph(il,1)-plfc(il)))
+      ELSE IF (flag_wb==2) THEN
+        wbeff(il) = wbmax*(0.01*(ph(il,1)-plfc(il)))**2
+      END IF
+    END IF
+  END DO
+
+!CR:Compute k at plfc
+  DO il=1,ncum
+           klfc(il)=nl
+  ENDDO
+  DO k=1,nl
+     DO il=1,ncum
+        if ((plfc(il).lt.ph(il,k)).and.(plfc(il).ge.ph(il,k+1))) then
+           klfc(il)=k
+        endif
+     ENDDO
+  ENDDO
+!RC
+
+  DO il = 1, ncum
+    ! jyg    Modification du coef de wb*wb pour conformite avec papier Wake
+    ! c       cbmfalp(il) = alp2(il)/(0.5*wb*wb-Cin(il))
+    cbmfalp(il) = alp2(il)/(2.*wbeff(il)*wbeff(il)-cin(il))
+!CR: Add large-scale component to the mass-flux
+!encore connu sous le nom "Experience du tube de dentifrice"
+    if ((coef_clos_ls.gt.0.).and.(plfc(il).gt.0.)) then 
+       cbmfalp(il) = cbmfalp(il) - coef_clos_ls*min(0.,1./RG*omega(il,klfc(il)))
+    endif
+!RC
+    IF (cbmfalp(il)==0 .AND. alp2(il)/=0.) THEN
+      WRITE (lunout, *) 'cv3p2_closure cbmfalp=0 and alp NE 0 il alp2 alp cin ' , &
+                         il, alp2(il), alp(il), cin(il)
+      abort_message = ''
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+    cbmfmax(il) = sigmax*wb2(il)*100.*p(il, icb(il))/(rrd*tv(il,icb(il)))
+  END DO
+
+!jyg<
+  IF (OK_intermittent) THEN
+    DO il = 1, ncum
+      IF (cbmflim(il)>1.E-6) THEN
+        cbmfalpb(il) = min(cbmfalp(il), (cbmfmax(il)-beta*cbmf0(il))/(1.-beta))
+        ! print*,'cbmfalpb',cbmfalpb(il),cbmfmax(il)
+      END IF
+    END DO
+  ELSE
+!>jyg
+  DO il = 1, ncum
+    IF (cbmflim(il)>1.E-6) THEN
+      ! ATTENTION TEST CR
+      ! if (cbmfmax(il).lt.1.e-12) then
+      cbmfalpb(il) = min(cbmfalp(il), cbmfmax(il))
+      ! else
+      ! cbmfalpb(il) = cbmfalp(il)
+      ! endif
+      ! print*,'cbmfalpb',cbmfalp(il),cbmfmax(il)
+    END IF
+  END DO
+  ENDIF  !(OK_intermittent)
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres cbmfalpb: cbmfalpb ',cbmfalpb(igout)
+
+  ! c 2. Compute coefficient and apply correction
+
+  DO il = 1, ncum
+    coef(il) = (cbmfalpb(il)+1.E-10)/(cbmflim(il)+1.E-10)
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres coef_plantePLUS'
+
+     DO k = 1, nl
+       DO il = 1, ncum
+         IF (k>=icb(il)+1 .AND. k<=inb(il)) THEN
+           amu = beta*sig(il, k)*w0(il, k) + (1.-beta)*coef(il)*siglim(il, k)*wlim(il, k)
+           w0(il, k) = wlim(il, k)
+           w0(il, k) = max(w0(il,k), 1.E-10)
+           sig(il, k) = amu/w0(il, k)
+           sig(il, k) = min(sig(il,k), 1.)
+           ! c         amu = 0.5*(SIG(il,k)+sigold(il,k))*W0(il,k)
+           !jyg m(il, k) = amu*0.007*p(il, k)*(ph(il,k)-ph(il,k+1))/tv(il, k)
+           m(il, k) = amu*rhodp(il,k)
+         END IF
+       END DO
+     END DO
+  ! jyg2
+  DO il = 1, ncum
+    w0(il, icb(il)) = 0.5*w0(il, icb(il)+1)
+    m(il, icb(il)) = 0.5*m(il, icb(il)+1)*(ph(il,icb(il))-ph(il,icb(il)+1))/ &
+                                         (ph(il,icb(il)+1)-ph(il,icb(il)+2))
+    sig(il, icb(il)) = sig(il, icb(il)+1)
+    sig(il, icb(il)-1) = sig(il, icb(il))
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres w0_sig_M: w0, sig ', &
+                         (k,w0(igout,k),sig(igout,k), k=icb(igout),inb(igout))
+
+!CR: new erosion of adiabatic ascent: modification of m
+!computation of the sum of ascending fluxes 
+  IF (iflag_mix_adiab.eq.1) THEN
+
+!Verification sum(me)=sum(m)
+  DO k = 1,nd
+    DO il = 1, ncum
+       md(il,k)=0.
+       med(il,k)=0.
+    ENDDO
+  ENDDO
+
+  DO k = nl,1,-1
+    DO il = 1, ncum
+           md(il,k)=md(il,k+1)+m(il,k+1)
+    ENDDO
+  ENDDO
+
+  DO k = nl,1,-1
+    DO il = 1, ncum
+        IF ((k>=(icb(il))) .AND. (k<=inb(il))) THEN
+           mad(il,k)=mad(il,k+1)+m(il,k+1)
+        ENDIF
+!        print*,"mad",il,k,mad(il,k)
+    ENDDO
+  ENDDO
+
+!CR: erosion of each adiabatic ascent during its ascent
+
+!Computation of erosion coefficient beta_coef
+  DO k = 1, nl
+    DO il = 1, ncum
+       IF ((k>=(icb(il)+1)) .AND. (k<=inb(il)) .AND. (mlim(il,k).gt.0.)) THEN     
+!          print*,"beta_coef",il,k,icb(il),inb(il),buoy(il,k),tv(il,k),wlim(il,k),wlim(il,k+1)
+          beta_coef(il,k)=RG*coef_peel*buoy(il,k)/tv(il,k)/((wlim(il,k)+wlim(il,k+1))/2.)**2
+       ELSE
+          beta_coef(il,k)=0.
+       ENDIF
+    ENDDO
+  ENDDO
+
+!  print*,"apres beta_coef"
+
+  DO k = 1, nl
+    DO il = 1, ncum
+
+      IF ((k>=(icb(il)+1)) .AND. (k<=inb(il))) THEN
+
+!        print*,"dz",il,k,tv(il, k-1)
+        dz = (ph(il,k-1)-ph(il,k))/(p(il, k-1)/(rrd*tv(il, k-1))*RG)
+        betalim(il,k)=betalim(il,k-1)*exp(-1.*beta_coef(il,k-1)*dz)
+!        betalim(il,k)=betalim(il,k-1)*exp(-RG*coef_peel*buoy(il,k-1)/tv(il,k-1)/5.**2*dz)
+!        print*,"me",il,k,mlim(il,k),buoy(il,k),wlim(il,k),mad(il,k)
+        dz = (ph(il,k)-ph(il,k+1))/(p(il, k)/(rrd*tv(il, k))*RG)
+!        me(il,k)=betalim(il,k)*(m(il,k)+RG*coef_peel*buoy(il,k)/tv(il,k)/((wlim(il,k)+wlim(il,k+1))/2.)**2*dz*mad(il,k))
+        me(il,k)=betalim(il,k)*(m(il,k)+beta_coef(il,k)*dz*mad(il,k))
+!        print*,"B/w2",il,k,RG*coef_peel*buoy(il,k)/tv(il,k)/((wlim(il,k)+wlim(il,k+1))/2.)**2*dz    
+      
+      END IF
+        
+!Modification of m
+      m(il,k)=me(il,k) 
+    END DO
+  END DO
+ 
+!  DO il = 1, ncum
+!     dz = (ph(il,icb(il))-ph(il,icb(il)+1))/(p(il, icb(il))/(rrd*tv(il, icb(il)))*RG)
+!     m(il,icb(il))=m(il,icb(il))+RG*coef_peel*buoy(il,icb(il))/tv(il,icb(il)) &
+!                  /((wlim(il,icb(il))+wlim(il,icb(il)+1))/2.)**2*dz*mad(il,icb(il))
+!     print*,"wlim(icb)",icb(il),wlim(il,icb(il)),m(il,icb(il))
+!  ENDDO
+
+!Verification sum(me)=sum(m)
+  DO k = nl,1,-1
+    DO il = 1, ncum
+           med(il,k)=med(il,k+1)+m(il,k+1)
+!           print*,"somme(me),somme(m)",il,k,icb(il),med(il,k),md(il,k),me(il,k),m(il,k),wlim(il,k)
+    ENDDO
+  ENDDO
+
+
+  ENDIF !(iflag_mix_adiab)
+!RC
+
+  ! c 3. Compute final cloud base mass flux;
+  ! c    set iflag to 3 if cloud base mass flux is exceedingly small and is 
+  ! c     decreasing (i.e. if the final mass flux (cbmflast) is greater than 
+  ! c     the target mass flux (cbmfalpb)).
+  ! c    If(ok_convstop): set iflag to 4 if no positive buoyancy has been met
+
+!jyg  DO il = 1, ncum
+!jyg    cbmflast(il) = 0.
+!jyg  END DO
+
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (k>=icb(il) .AND. k<=inb(il)) THEN
+          !IMpropo??      IF ((k.ge.(icb(il)+1)).and.(k.le.inb(il))) THEN
+        cbmflast(il) = cbmflast(il) + m(il, k)
+      END IF
+    END DO
+  END DO
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres cbmflast: cbmflast ',cbmflast(igout)
+
+  DO il = 1, ncum
+    IF (cbmflast(il)<1.E-6 .AND. cbmflast(il)>=cbmfalpb(il)) THEN
+      iflag(il) = 3
+    END IF
+  END DO
+
+!jyg<
+  IF (ok_convstop) THEN
+    DO il = 1, ncum
+      IF (dtminmax(il) .LE. 0.) THEN
+        iflag(il) = 4
+      END IF
+    END DO
+  ELSE
+!>jyg
+  DO k = 1, nl
+    DO il = 1, ncum
+      IF (iflag(il)>=3) THEN
+        m(il, k) = 0.
+        sig(il, k) = 0.
+        w0(il, k) = 0.
+      END IF
+    END DO
+  END DO
+  ENDIF ! (ok_convstop)
+!
+  IF (prt_level >= 10) THEN
+   print *,'cv3p2_closure: iflag ',iflag(igout)
+  ENDIF
+!
+
+  ! c 4. Introduce a correcting factor for coef, in order to obtain an
+  ! effective
+  ! c    sigdz larger in the present case (using cv3p2_closure) than in the
+  ! old
+  ! c    closure (using cv3_closure).
+  IF (1==0) THEN
+    DO il = 1, ncum
+      ! c      coef(il) = 2.*coef(il)
+      coef(il) = 5.*coef(il)
+    END DO
+    ! version CVS du ..2008
+  ELSE
+    IF (iflag_cvl_sigd==0) THEN
+      ! test pour verifier qu on fait la meme chose qu avant: sid constant
+      coef(1:ncum) = 1.
+    ELSE
+      coef(1:ncum) = min(2.*coef(1:ncum), 5.)
+      coef(1:ncum) = max(2.*coef(1:ncum), 0.2)
+    END IF
+  END IF
+
+  IF (prt_level>=20) PRINT *, 'cv3p2_closure FIN'
+  RETURN
+END SUBROUTINE cv3p2_closure
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p_mixing.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p_mixing.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3p_mixing.F90	(revision 3330)
@@ -0,0 +1,674 @@
+SUBROUTINE cv3p_mixing(nloc, ncum, nd, na, ntra, icb, nk, inb, &
+                       ph, t, rr, rs, u, v, tra, h, lv, lf, frac, qnk, &
+                       unk, vnk, hp, tv, tvp, ep, clw, sig, &
+                       Ment, Qent, hent, uent, vent, nent, &
+                       Sigij, elij, supmax, Ments, Qents, traent)
+! **************************************************************
+! *
+! CV3P_MIXING : compute mixed draught properties and,         *
+! within a scaling factor, mixed draught        *
+! mass fluxes.                                  *
+! written by  : VTJ Philips,JY Grandpeix, 21/05/2003, 09.14.15*
+! modified by :                                               *
+! **************************************************************
+
+  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
+
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cv3param.h"
+  include "YOMCST2.h"
+  include "cvflag.h"
+
+!inputs:
+  INTEGER, INTENT (IN)                               :: ncum, nd, na
+  INTEGER, INTENT (IN)                               :: ntra, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb, nk
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: sig
+  REAL, DIMENSION (nloc), INTENT (IN)                :: qnk, unk, vnk
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: t, rr, rs
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: u, v
+  REAL, DIMENSION (nloc, nd, ntra), INTENT (IN)      :: tra ! input of convect3
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: lv
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: lf
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: frac !ice fraction in condensate
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: h  !liquid water static energy of environment
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: hp !liquid water static energy of air shed from adiab. asc.
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: tv, tvp
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: ep, clw
+
+!outputs:
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)       :: Ment, Qent
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)       :: uent, vent
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)       :: Sigij, elij
+  REAL, DIMENSION (nloc, na), INTENT (OUT)           :: supmax           ! Highest mixing fraction of mixed
+                                                                         ! updraughts with the sign of (h-hp)
+  REAL, DIMENSION (nloc, nd, nd, ntra), INTENT (OUT) :: traent
+  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: Ments, Qents
+  REAL, DIMENSION (nloc, nd, nd), INTENT (OUT)       :: hent
+  INTEGER, DIMENSION (nloc, nd), INTENT (OUT)        :: nent
+
+!local variables:
+  INTEGER i, j, k, il, im, jm
+  INTEGER num1, num2
+  REAL                               :: rti, bf2, anum, denom, dei, altem, cwat, stemp
+  REAL                               :: alt, delp, delm
+  REAL, DIMENSION (nloc)             :: Qmixmax, Rmixmax, sqmrmax
+  REAL, DIMENSION (nloc)             :: Qmixmin, Rmixmin, sqmrmin
+  REAL, DIMENSION (nloc)             :: signhpmh
+  REAL, DIMENSION (nloc)             :: Sx
+  REAL                               :: Scrit2
+  REAL, DIMENSION (nloc)             :: Smid, Sjmin, Sjmax
+  REAL, DIMENSION (nloc)             :: Sbef, sup, smin
+  REAL, DIMENSION (nloc)             :: ASij, ASij_inv, smax, Scrit
+  REAL, DIMENSION (nloc, nd, nd)     :: Sij
+  REAL, DIMENSION (nloc, nd)         :: csum
+  REAL                               :: awat
+  REAL                               :: cpm        !Mixed draught heat capacity
+  REAL                               :: Tm         !Mixed draught temperature
+  LOGICAL, DIMENSION (nloc)          :: lwork
+
+  REAL amxupcrit, df, ff
+  INTEGER nstep
+
+  INTEGER,SAVE                                       :: igout=1
+!$OMP THREADPRIVATE(igout)
+
+! --   Mixing probability distribution functions
+
+  REAL Qcoef1, Qcoef2, QFF, QFFF, Qmix, Rmix, Qmix1, Rmix1, Qmix2, Rmix2, F
+
+  Qcoef1(F) = tanh(F/gammas)
+  Qcoef2(F) = (tanh(F/gammas)+gammas*log(cosh((1.-F)/gammas)/cosh(F/gammas)))
+  QFF(F) = max(min(F,1.), 0.)
+  QFFf(F) = min(QFF(F), scut)
+  Qmix1(F) = (tanh((QFF(F)-Fmax)/gammas)+Qcoef1max)/Qcoef2max
+  Rmix1(F) = (gammas*log(cosh((QFF(F)-Fmax)/gammas))+QFF(F)*Qcoef1max)/Qcoef2max
+  Qmix2(F) = -log(1.-QFFf(F))/scut
+  Rmix2(F) = (QFFf(F)+(1.-QFF(F))*log(1.-QFFf(F)))/scut
+  Qmix(F) = qqa1*Qmix1(F) + qqa2*Qmix2(F)
+  Rmix(F) = qqa1*Rmix1(F) + qqa2*Rmix2(F)
+
+  INTEGER, SAVE :: ifrst
+  DATA ifrst/0/
+!$OMP THREADPRIVATE(ifrst)
+
+
+! =====================================================================
+! --- INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
+! =====================================================================
+
+! -- Initialize mixing PDF coefficients
+  IF (ifrst==0) THEN
+    ifrst = 1
+    Qcoef1max = Qcoef1(Fmax)
+    Qcoef2max = Qcoef2(Fmax)
+!<jyg
+   print*, 'fmax, gammas, qqa1, qqa2, Qcoef1max, Qcoef2max ', &
+            fmax, gammas, qqa1, qqa2, Qcoef1max, Qcoef2max
+!>jyg
+
+  END IF
+
+
+! ori        do 360 i=1,ncum*nlp
+  DO j = 1, nl
+    DO i = 1, ncum
+      nent(i, j) = 0
+! in convect3, m is computed in cv3_closure
+! ori          m(i,1)=0.0
+    END DO
+  END DO
+
+! ori      do 400 k=1,nlp
+! ori       do 390 j=1,nlp
+  DO j = 1, nl
+    DO k = 1, nl
+      DO i = 1, ncum
+        Qent(i, k, j) = rr(i, j)
+        uent(i, k, j) = u(i, j)
+        vent(i, k, j) = v(i, j) 
+        elij(i, k, j) = 0.0
+        hent(i, k, j) = 0.0
+!AC!            Ment(i,k,j)=0.0
+!AC!            Sij(i,k,j)=0.0
+      END DO
+    END DO
+  END DO
+
+!AC!
+  Ment(1:ncum, 1:nd, 1:nd) = 0.0
+  Sij(1:ncum, 1:nd, 1:nd) = 0.0
+!AC!
+!ym
+  Sigij(1:ncum, 1:nd, 1:nd) = 0.0
+!ym 
+
+!jyg!  DO k = 1, ntra
+!jyg!    DO j = 1, nd ! instead nlp
+!jyg!      DO i = 1, nd ! instead nlp
+!jyg!        DO il = 1, ncum
+!jyg!          traent(il, i, j, k) = tra(il, j, k)
+!jyg!        END DO
+!jyg!      END DO
+!jyg!    END DO
+!jyg!  END DO
+
+! =====================================================================
+! --- CALCULATE ENTRAINED AIR MASS FLUX (Ment), TOTAL WATER MIXING
+! --- RATIO (QENT), TOTAL CONDENSED WATER (elij), AND MIXING
+! --- FRACTION (Sij)
+! =====================================================================
+
+  DO i = minorig + 1, nl
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (j>=(icb(il)-1)) &
+                         .AND. (j<=inb(il))) THEN
+
+          rti = qnk(il) - ep(il, i)*clw(il, i)
+          bf2 = 1. + lv(il, j)*lv(il, j)*rs(il, j)/(rrv*t(il,j)*t(il,j)*cpd)
+!jyg(from aj)<
+          IF (cvflag_ice) THEN
+! print*,cvflag_ice,'cvflag_ice dans do 700'
+            IF (t(il,j)<=263.15) THEN
+              bf2 = 1. + (lf(il,j)+lv(il,j))*(lv(il,j)+frac(il,j)* &
+                   lf(il,j))*rs(il, j)/(rrv*t(il,j)*t(il,j)*cpd)
+            END IF
+          END IF
+!>jyg
+          anum = h(il, j) - hp(il, i) + (cpv-cpd)*t(il, j)*(rti-rr(il,j))
+          denom = h(il, i) - hp(il, i) + (cpd-cpv)*(rr(il,i)-rti)*t(il, j)
+          dei = denom
+          IF (abs(dei)<0.01) dei = 0.01
+          Sij(il, i, j) = anum/dei
+          Sij(il, i, i) = 1.0
+          altem = Sij(il, i, j)*rr(il, i) + (1.-Sij(il,i,j))*rti - rs(il, j)
+          altem = altem/bf2
+          cwat = clw(il, j)*(1.-ep(il,j))
+          stemp = Sij(il, i, j)
+          IF ((stemp<0.0 .OR. stemp>1.0 .OR. altem>cwat) .AND. j>i) THEN
+!jyg(from aj)<
+            IF (cvflag_ice) THEN
+              anum = anum - (lv(il,j)+frac(il,j)*lf(il,j))*(rti-rs(il,j)-cwat*bf2)
+              denom = denom + (lv(il,j)+frac(il,j)*lf(il,j))*(rr(il,i)-rti)
+            ELSE
+              anum = anum - lv(il, j)*(rti-rs(il,j)-cwat*bf2)
+              denom = denom + lv(il, j)*(rr(il,i)-rti)
+            END IF
+!>jyg
+            IF (abs(denom)<0.01) denom = 0.01
+            Sij(il, i, j) = anum/denom
+            altem = Sij(il, i, j)*rr(il, i) + (1.-Sij(il,i,j))*rti - rs(il, j)
+            altem = altem - (bf2-1.)*cwat
+          END IF
+          IF (Sij(il,i,j)>0.0) THEN
+!!!                 Ment(il,i,j)=m(il,i)
+            Ment(il, i, j) = 1.
+            elij(il, i, j) = altem
+            elij(il, i, j) = amax1(0.0, elij(il,i,j))
+            nent(il, i) = nent(il, i) + 1
+          END IF
+
+          Sij(il, i, j) = amax1(0.0, Sij(il,i,j))
+          Sij(il, i, j) = amin1(1.0, Sij(il,i,j))
+        END IF ! new
+      END DO
+    END DO
+
+!jygdebug<
+    IF (prt_level >= 10) THEN
+      print *,'cv3p_mixing i, nent(i), icb, inb ',i, nent(igout,i), icb(igout), inb(igout)
+      IF (nent(igout,i) .gt. 0) THEN
+        print *,'i,(j,Sij(i,j),j=icb-1,inb) ',i,(j,Sij(igout,i,j),j=icb(igout)-1,inb(igout))
+      ENDIF
+    ENDIF
+!>jygdebug
+
+! ***   if no air can entrain at level i assume that updraft detrains  ***
+! ***   at that level and calculate detrained air flux and properties  ***
+
+
+! @      do 170 i=icb(il),inb(il)
+
+    DO il = 1, ncum
+      IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. (nent(il,i)==0)) THEN
+! @      if(nent(il,i).eq.0)then
+!!!       Ment(il,i,i)=m(il,i)
+        Ment(il, i, i) = 1.
+        Qent(il, i, i) = qnk(il) - ep(il, i)*clw(il, i)
+        uent(il, i, i) = unk(il)
+        vent(il, i, i) = vnk(il)
+        elij(il, i, i) = clw(il, i)*(1.-ep(il,i))
+        Sij(il, i, i) = 0.0
+      END IF
+    END DO
+  END DO
+
+!jyg!  DO j = 1, ntra
+!jyg!    DO i = minorig + 1, nl
+!jyg!      DO il = 1, ncum
+!jyg!        IF (i>=icb(il) .AND. i<=inb(il) .AND. nent(il,i)==0) THEN
+!jyg!          traent(il, i, i, j) = tra(il, nk(il), j)
+!jyg!        END IF
+!jyg!      END DO
+!jyg!    END DO
+!jyg!  END DO
+
+  DO j = minorig, nl
+    DO i = minorig, nl
+      DO il = 1, ncum
+        IF ((j>=(icb(il)-1)) .AND. (j<=inb(il)) .AND. &
+            (i>=icb(il)) .AND. (i<=inb(il))) THEN
+          Sigij(il, i, j) = Sij(il, i, j)
+        END IF
+      END DO
+    END DO
+  END DO
+! @      enddo
+
+! @170   continue
+
+! =====================================================================
+! ---  NORMALIZE ENTRAINED AIR MASS FLUXES
+! ---  TO REPRESENT EQUAL PROBABILITIES OF MIXING
+! =====================================================================
+
+  CALL zilch(csum, nloc*nd)
+
+  DO il = 1, ncum
+    lwork(il) = .FALSE.
+  END DO
+
+! ---------------------------------------------------------------
+  DO i = minorig + 1, nl      !Loop on origin level "i"
+! ---------------------------------------------------------------
+
+    num1 = 0
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 789
+
+
+!JYG1    Find maximum of SIJ for J>I, if any.
+
+    Sx(:) = 0.
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) THEN
+        signhpmh(il) = sign(1., hp(il,i)-h(il,i))
+        Sbef(il) = max(0., signhpmh(il))
+      END IF
+    END DO
+
+    DO j = i + 1, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. j<=inb(il)) THEN
+          IF (Sbef(il)<Sij(il,i,j)) THEN
+            Sx(il) = max(Sij(il,i,j), Sx(il))
+          END IF
+          Sbef(il) = Sij(il, i, j)
+        END IF
+      END DO
+    END DO
+
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il)) THEN
+        lwork(il) = (nent(il,i)/=0)
+        rti = qnk(il) - ep(il, i)*clw(il, i)
+!jyg<
+        IF (cvflag_ice) THEN
+
+          anum = h(il, i) - hp(il, i) - (lv(il,i)+frac(il,i)*lf(il,i))* &
+                       (rti-rs(il,i)) + (cpv-cpd)*t(il, i)*(rti-rr(il,i))
+          denom = h(il, i) - hp(il, i) + (lv(il,i)+frac(il,i)*lf(il,i))* &
+                       (rr(il,i)-rti) + (cpd-cpv)*t(il, i)*(rr(il,i)-rti)
+        ELSE
+
+          anum = h(il, i) - hp(il, i) - lv(il, i)*(rti-rs(il,i)) + &
+                       (cpv-cpd)*t(il, i)*(rti-rr(il,i))
+          denom = h(il, i) - hp(il, i) + lv(il, i)*(rr(il,i)-rti) + &
+                       (cpd-cpv)*t(il, i)*(rr(il,i)-rti)
+        END IF
+!>jyg
+        IF (abs(denom)<0.01) denom = 0.01
+        Scrit(il) = min(anum/denom, 1.)
+        alt = rti - rs(il, i) + Scrit(il)*(rr(il,i)-rti)
+
+!JYG1    Find new critical value Scrit2
+!         such that : Sij > Scrit2  => mixed draught will detrain at J<I
+!                     Sij < Scrit2  => mixed draught will detrain at J>I
+
+        Scrit2 = min(Scrit(il), Sx(il))*max(0., -signhpmh(il)) + &
+                 Scrit(il)*max(0., signhpmh(il))
+
+        Scrit(il) = Scrit2
+
+!JYG    Correction pour la nouvelle logique; la correction pour ALT
+! est un peu au hazard
+        IF (Scrit(il)<=0.0) Scrit(il) = 0.0
+        IF (alt<=0.0) Scrit(il) = 1.0
+
+        smax(il) = 0.0
+        ASij(il) = 0.0
+        sup(il) = 0.      ! upper S-value reached by descending draughts
+      END IF
+    END DO
+
+! ---------------------------------------------------------------
+    DO j = minorig, nl         !Loop on destination level "j"
+! ---------------------------------------------------------------
+
+      num2 = 0
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+            lwork(il)) num2 = num2 + 1
+      END DO
+      IF (num2<=0) GO TO 175
+
+! -----------------------------------------------
+      IF (j>i) THEN
+! -----------------------------------------------
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+              j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+              lwork(il)) THEN
+            IF (Sij(il,i,j)>0.0) THEN
+              Smid(il) = min(Sij(il,i,j), Scrit(il))
+              Sjmax(il) = Smid(il)
+              Sjmin(il) = Smid(il)
+              IF (Smid(il)<smin(il) .AND. Sij(il,i,j+1)<Smid(il)) THEN
+                smin(il) = Smid(il)
+                Sjmax(il) = min((Sij(il,i,j+1)+Sij(il,i,j))/2., Sij(il,i,j), Scrit(il))
+                Sjmin(il) = max((Sbef(il)+Sij(il,i,j))/2., Sij(il,i,j))
+                Sjmin(il) = min(Sjmin(il), Scrit(il))
+                Sbef(il) = Sij(il, i, j)
+              END IF
+            END IF
+          END IF
+        END DO
+! -----------------------------------------------
+      ELSE IF (j==i) THEN
+! -----------------------------------------------
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+              j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+              lwork(il)) THEN
+            IF (Sij(il,i,j)>0.0) THEN
+              Smid(il) = 1.
+              Sjmin(il) = max((Sij(il,i,j-1)+Smid(il))/2., Scrit(il))*max(0., -signhpmh(il)) + &
+                          min((Sij(il,i,j+1)+Smid(il))/2., Scrit(il))*max(0., signhpmh(il))
+              Sjmin(il) = max(Sjmin(il), sup(il))
+              Sjmax(il) = 1.
+
+! -             preparation des variables Scrit, Smin et Sbef pour la partie j>i
+              Scrit(il) = min(Sjmin(il), Sjmax(il), Scrit(il))
+
+              smin(il) = 1.
+              Sbef(il) = max(0., signhpmh(il))
+              supmax(il, i) = sign(Scrit(il), -signhpmh(il))
+            END IF
+          END IF
+        END DO
+! -----------------------------------------------
+      ELSE IF (j<i) THEN
+! -----------------------------------------------
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+              j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+              lwork(il)) THEN
+            IF (Sij(il,i,j)>0.0) THEN
+              Smid(il) = max(Sij(il,i,j), Scrit(il))
+              Sjmax(il) = Smid(il)
+              Sjmin(il) = Smid(il)
+              IF (Smid(il)>smax(il) .AND. Sij(il,i,j+1)>Smid(il)) THEN
+                smax(il) = Smid(il)
+                Sjmax(il) = max((Sij(il,i,j+1)+Sij(il,i,j))/2., Sij(il,i,j))
+                Sjmax(il) = max(Sjmax(il), Scrit(il))
+                Sjmin(il) = min((Sbef(il)+Sij(il,i,j))/2., Sij(il,i,j))
+                Sjmin(il) = max(Sjmin(il), Scrit(il))
+                Sbef(il) = Sij(il, i, j)
+              END IF
+              IF (abs(Sjmin(il)-Sjmax(il))>1.E-10) &
+                             sup(il) = max(Sjmin(il), Sjmax(il), sup(il))
+            END IF
+          END IF
+        END DO
+! -----------------------------------------------
+      END IF
+! -----------------------------------------------
+
+
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+            lwork(il)) THEN
+          IF (Sij(il,i,j)>0.0) THEN
+            rti = qnk(il) - ep(il, i)*clw(il, i)
+            Qmixmax(il) = Qmix(Sjmax(il))
+            Qmixmin(il) = Qmix(Sjmin(il))
+            Rmixmax(il) = Rmix(Sjmax(il))
+            Rmixmin(il) = Rmix(Sjmin(il))
+            sqmrmax(il) = Sjmax(il)*Qmix(Sjmax(il)) - Rmix(Sjmax(il))
+            sqmrmin(il) = Sjmin(il)*Qmix(Sjmin(il)) - Rmix(Sjmin(il))
+
+            Ment(il, i, j) = abs(Qmixmax(il)-Qmixmin(il))*Ment(il, i, j)
+
+! Sigij(i,j) is the 'true' mixing fraction of mixture Ment(i,j)
+            IF (abs(Qmixmax(il)-Qmixmin(il))>1.E-10) THEN
+              Sigij(il, i, j) = (sqmrmax(il)-sqmrmin(il))/(Qmixmax(il)-Qmixmin(il))
+            ELSE
+              Sigij(il, i, j) = 0.
+            END IF
+
+! --    Compute Qent, uent, vent according to the true mixing fraction
+            Qent(il, i, j) = (1.-Sigij(il,i,j))*rti     + Sigij(il, i, j)*rr(il, i)
+            uent(il, i, j) = (1.-Sigij(il,i,j))*unk(il) + Sigij(il, i, j)*u(il, i)
+            vent(il, i, j) = (1.-Sigij(il,i,j))*vnk(il) + Sigij(il, i, j)*v(il, i)
+
+! --     Compute liquid water static energy of mixed draughts
+!    IF (j .GT. i) THEN
+!      awat=elij(il,i,j)-(1.-ep(il,j))*clw(il,j)
+!      awat=amax1(awat,0.0)
+!    ELSE
+!      awat = 0.
+!    ENDIF
+!    Hent(il,i,j) = (1.-Sigij(il,i,j))*HP(il,i)
+!    :         + Sigij(il,i,j)*H(il,i)
+!    :         + (LV(il,j)+(cpd-cpv)*t(il,j))*awat
+!IM 301008 beg
+            hent(il, i, j) = (1.-Sigij(il,i,j))*hp(il, i) + Sigij(il, i, j)*h(il, i)
+
+!jyg<
+!            elij(il, i, j) = Qent(il, i, j) - rs(il, j)
+!            elij(il, i, j) = elij(il, i, j) + &
+!                             ((h(il,j)-hent(il,i,j))*rs(il,j)*lv(il,j) / &
+!                              ((cpd*(1.-Qent(il,i,j))+Qent(il,i,j)*cpv)*rrv*t(il,j)*t(il,j)))
+!            elij(il, i, j) = elij(il, i, j) / &
+!                             (1.+lv(il,j)*lv(il,j)*rs(il,j) / &
+!                              ((cpd*(1.-Qent(il,i,j))+Qent(il,i,j)*cpv)*rrv*t(il,j)*t(il,j)))
+!
+!       Computation of condensate amount Elij, taking into account the ice fraction frac
+!       Warning : the same saturation humidity rs is used over both liquid water and ice; this
+!                 should be corrected.
+!
+!  Heat capacity of mixed draught
+    cpm = cpd+Qent(il,i,j)*(cpv-cpd)
+!
+    IF (cvflag_ice .and. frac(il,j) .gt. 0.) THEN
+            elij(il, i, j) = Qent(il, i, j) - rs(il, j)
+            elij(il, i, j) = elij(il, i, j) + &
+                             (h(il,j)-hent(il,i,j)+(cpv-cpd)*(Qent(il,i,j)-rr(il,j))*t(il,j))* &
+                             rs(il,j)*lv(il,j) / (cpm*rrv*t(il,j)*t(il,j))
+            elij(il, i, j) = elij(il, i, j) / &
+                             (1.+(lv(il,j)+frac(il,j)*lf(il,j))*lv(il,j)*rs(il,j) / &
+                              (cpm*rrv*t(il,j)*t(il,j)))
+    ELSE
+            elij(il, i, j) = Qent(il, i, j) - rs(il, j)
+            elij(il, i, j) = elij(il, i, j) + &
+                             (h(il,j)-hent(il,i,j)+(cpv-cpd)*(Qent(il,i,j)-rr(il,j))*t(il,j))* &
+                             rs(il,j)*lv(il,j) / (cpm*rrv*t(il,j)*t(il,j))
+            elij(il, i, j) = elij(il, i, j) / &
+                             (1.+lv(il,j)*lv(il,j)*rs(il,j) / &
+                              (cpm*rrv*t(il,j)*t(il,j)))
+    ENDIF
+!>jyg
+            elij(il, i, j) = max(elij(il,i,j), 0.)
+
+            elij(il, i, j) = min(elij(il,i,j), Qent(il,i,j))
+
+            IF (j>i) THEN
+              awat = elij(il, i, j) - (1.-ep(il,j))*clw(il, j)
+              awat = amax1(awat, 0.0)
+            ELSE
+              awat = 0.
+            END IF
+
+! print *,h(il,j)-hent(il,i,j),LV(il,j)*rs(il,j)/(cpd*rrv*t(il,j)*
+! :         t(il,j))
+
+!jyg<
+!            hent(il, i, j) = hent(il, i, j) + (lv(il,j)+(cpd-cpv)*t(il,j))*awat
+! Mixed draught temperature at level j
+    IF (cvflag_ice .and. frac(il,j) .gt. 0.) THEN
+          Tm = t(il,j) + (Qent(il,i,j)-elij(il,i,j)-rs(il,j))*rrv*t(il,j)*t(il,j)/(lv(il,j)*rs(il,j))
+          hent(il, i, j) = hent(il, i, j) + (lv(il,j)+frac(il,j)*lf(il,j)+(cpd-cpv)*Tm)*awat
+    ELSE
+          Tm = t(il,j) + (Qent(il,i,j)-elij(il,i,j)-rs(il,j))*rrv*t(il,j)*t(il,j)/(lv(il,j)*rs(il,j))
+          hent(il, i, j) = hent(il, i, j) + (lv(il,j)+(cpd-cpv)*Tm)*awat
+    ENDIF
+!>jyg
+
+!IM 301008 end
+
+! print *,'mix : i,j,hent(il,i,j),Sigij(il,i,j) ',
+! :               i,j,hent(il,i,j),Sigij(il,i,j)
+
+! --      ASij is the integral of P(F) over the relevant F interval
+            ASij(il) = ASij(il) + abs(Qmixmax(il)*(1.-Sjmax(il))+Rmixmax(il) - &
+                                      Qmixmin(il)*(1.-Sjmin(il))-Rmixmin(il))
+
+          END IF
+        END IF
+      END DO
+!jyg!      DO k = 1, ntra
+!jyg!        DO il = 1, ncum
+!jyg!          IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. &
+!jyg!              (j>=(icb(il)-1)) .AND. (j<=inb(il)) .AND. &
+!jyg!              lwork(il)) THEN
+!jyg!            IF (Sij(il,i,j)>0.0) THEN
+!jyg!              traent(il, i, j, k) = Sigij(il, i, j)*tra(il, i, k) + &
+!jyg!                                    (1.-Sigij(il,i,j))*tra(il, nk(il), k)
+!jyg!            END IF
+!jyg!          END IF
+!jyg!        END DO
+!jyg!      END DO
+
+! --    If I=J (detrainement and entrainement at the same level), then only the
+! --    adiabatic ascent part of the mixture is considered
+      IF (i==j) THEN
+        DO il = 1, ncum
+          IF (i>=icb(il) .AND. i<=inb(il) .AND. &
+              j>=(icb(il)-1) .AND. j<=inb(il) .AND. &
+              lwork(il)) THEN
+            IF (Sij(il,i,j)>0.0) THEN
+              rti = qnk(il) - ep(il, i)*clw(il, i)
+!!!             Ment(il,i,i) = m(il,i)*abs(Qmixmax(il)*(1.-Sjmax(il))
+              Ment(il, i, i) = abs(Qmixmax(il)*(1.-Sjmax(il))+Rmixmax(il) - &
+                                   Qmixmin(il)*(1.-Sjmin(il))-Rmixmin(il))
+              Qent(il, i, i) = rti
+              uent(il, i, i) = unk(il)
+              vent(il, i, i) = vnk(il)
+              hent(il, i, i) = hp(il, i)
+              elij(il, i, i) = clw(il, i)*(1.-ep(il,i))
+              Sigij(il, i, i) = 0.
+            END IF
+          END IF
+        END DO
+!jyg!        DO k = 1, ntra
+!jyg!          DO il = 1, ncum
+!jyg!            IF ((i>=icb(il)) .AND. (i<=inb(il)) .AND. &
+!jyg!                (j>=(icb(il)-1)) .AND. (j<=inb(il)) .AND. &
+!jyg!                lwork(il)) THEN
+!jyg!              IF (Sij(il,i,j)>0.0) THEN
+!jyg!                traent(il, i, i, k) = tra(il, nk(il), k)
+!jyg!              END IF
+!jyg!            END IF
+!jyg!          END DO
+!jyg!        END DO
+
+      END IF
+
+! ---------------------------------------------------------------
+175 END DO        ! End loop on destination level "j"
+! ---------------------------------------------------------------
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il)) THEN
+        ASij(il) = amax1(1.0E-16, ASij(il))
+!jyg+lluis<
+!!        ASij(il) = 1.0/ASij(il)
+        ASij_inv(il) = 1.0/ASij(il)
+!   IF the F-interval spanned by possible mixtures is less than 0.01, no mixing occurs
+        IF (ASij_inv(il) > 100.)  ASij_inv(il) = 0.
+!>jyg+lluis
+        csum(il, i) = 0.0
+      END IF
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il)) THEN
+!jyg          Ment(il, i, j) = Ment(il, i, j)*ASij(il)
+          Ment(il, i, j) = Ment(il, i, j)*ASij_inv(il)
+        END IF
+      END DO
+    END DO
+
+    DO j = minorig, nl
+      DO il = 1, ncum
+        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. &
+            j>=(icb(il)-1) .AND. j<=inb(il)) THEN
+          csum(il, i) = csum(il, i) + Ment(il, i, j)
+        END IF
+      END DO
+    END DO
+
+    DO il = 1, ncum
+      IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. csum(il,i)<1.) THEN
+! cc     :     .and. csum(il,i).lt.m(il,i) ) then
+        nent(il, i) = 0
+! cc        Ment(il,i,i)=m(il,i)
+        Ment(il, i, i) = 1.
+        Qent(il, i, i) = qnk(il) - ep(il, i)*clw(il, i)
+        uent(il, i, i) = unk(il)
+        vent(il, i, i) = vnk(il)
+        elij(il, i, i) = clw(il, i)*(1.-ep(il,i))
+        Sij(il, i, i) = 0.0
+      END IF
+    END DO ! il
+
+!jyg!    DO j = 1, ntra
+!jyg!      DO il = 1, ncum
+!jyg!        IF (i>=icb(il) .AND. i<=inb(il) .AND. lwork(il) .AND. csum(il,i)<1.) THEN
+!jyg!! cc     :     .and. csum(il,i).lt.m(il,i) ) then
+!jyg!          traent(il, i, i, j) = tra(il, nk(il), j)
+!jyg!        END IF
+!jyg!      END DO
+!jyg!    END DO
+
+! ---------------------------------------------------------------
+789 END DO              ! End loop on origin level "i"
+! ---------------------------------------------------------------
+
+
+  RETURN
+END SUBROUTINE cv3p_mixing
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3param.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3param.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv3param.h	(revision 3330)
@@ -0,0 +1,42 @@
+!------------------------------------------------------------
+! Parameters for convectL, iflag_con=3:
+! (includes - microphysical parameters,
+!			- parameters that control the rate of approach
+!               to quasi-equilibrium)
+!			- noff & minorig (previously in input of convect1)
+!------------------------------------------------------------
+
+      logical ok_optim_yield
+      logical ok_convstop
+      logical ok_intermittent
+      integer noff, minorig, nl, nlp, nlm
+      real sigdz, spfac
+      integer flag_epKEorig,flag_wb
+      real pbcrit, ptcrit
+      real elcrit, tlcrit
+      real coef_peel
+      real omtrain
+      real dtovsh, dpbase, dttrig
+      real dtcrit, tau, beta, alpha, alpha1
+      real tau_stop, noconv_stop
+      real wbmax
+      real delta
+      real betad
+
+      COMMON /cv3param/ sigdz, spfac &
+                      ,pbcrit, ptcrit &
+                      ,elcrit, tlcrit &
+                      ,coef_peel &
+                      ,omtrain &
+                      ,dtovsh, dpbase, dttrig &
+                      ,dtcrit, tau, beta, alpha, alpha1 &
+                      ,tau_stop, noconv_stop &
+                      ,wbmax &
+                      ,delta, betad  &
+                      ,flag_epKEorig &
+                      ,flag_wb &
+                      ,noff, minorig, nl, nlp, nlm  &
+                      ,ok_convstop, ok_intermittent &
+                      ,ok_optim_yield
+!$OMP THREADPRIVATE(/cv3param/)
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv_driver.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv_driver.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv_driver.F90	(revision 3330)
@@ -0,0 +1,754 @@
+
+! $Header$
+
+SUBROUTINE cv_driver(len, nd, ndp1, ntra, iflag_con, t1, q1, qs1, u1, v1, &
+    tra1, p1, ph1, iflag1, ft1, fq1, fu1, fv1, ftra1, precip1, vprecip1, &
+    cbmf1, sig1, w01, icb1, inb1, delt, ma1, upwd1, dnwd1, dnwd01, qcondc1, &
+    wd1, cape1, da1, phi1, mp1, phi21, d1a1, dam1, sij1, clw1, elij1, & !
+                                                                        ! RomP
+    evap1, ep1, epmlmmm1, eplamm1, & ! RomP
+    wdtraina1, wdtrainm1, & ! RomP
+    epmax_diag1) ! epmax_cape
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! .............................START PROLOGUE............................
+
+
+  ! All argument names (except len,nd,ntra,nloc,delt and the flags) have a
+  ! "1" appended.
+  ! The "1" is removed for the corresponding compressed (local) variables.
+
+  ! PARAMETERS:
+  ! Name            Type         Usage            Description
+  ! ----------      ----------     -------  ----------------------------
+
+  ! len           Integer        Input        first (i) dimension
+  ! nd            Integer        Input        vertical (k) dimension
+  ! ndp1          Integer        Input        nd + 1
+  ! ntra          Integer        Input        number of tracors
+  ! iflag_con     Integer        Input        version of convect (3/4)
+  ! t1            Real           Input        temperature
+  ! q1            Real           Input        specific hum
+  ! qs1           Real           Input        sat specific hum
+  ! u1            Real           Input        u-wind
+  ! v1            Real           Input        v-wind
+  ! tra1          Real           Input        tracors
+  ! p1            Real           Input        full level pressure
+  ! ph1           Real           Input        half level pressure
+  ! iflag1        Integer        Output       flag for Emanuel conditions
+  ! ft1           Real           Output       temp tend
+  ! fq1           Real           Output       spec hum tend
+  ! fu1           Real           Output       u-wind tend
+  ! fv1           Real           Output       v-wind tend
+  ! ftra1         Real           Output       tracor tend
+  ! precip1       Real           Output       precipitation
+  ! VPrecip1      Real           Output       vertical profile of
+  ! precipitations
+  ! cbmf1         Real           Output       cloud base mass flux
+  ! sig1          Real           In/Out       section adiabatic updraft
+  ! w01           Real           In/Out       vertical velocity within adiab
+  ! updraft
+  ! delt          Real           Input        time step
+  ! Ma1           Real           Output       mass flux adiabatic updraft
+  ! upwd1         Real           Output       total upward mass flux
+  ! (adiab+mixed)
+  ! dnwd1         Real           Output       saturated downward mass flux
+  ! (mixed)
+  ! dnwd01        Real           Output       unsaturated downward mass flux
+  ! qcondc1       Real           Output       in-cld mixing ratio of
+  ! condensed water
+  ! wd1           Real           Output       downdraft velocity scale for
+  ! sfc fluxes
+  ! cape1         Real           Output       CAPE
+
+  ! wdtrainA1     Real           Output   precipitation detrained from
+  ! adiabatic draught;
+  ! used in tracer transport (cvltr)
+  ! wdtrainM1     Real           Output   precipitation detrained from mixed
+  ! draughts;
+  ! used in tracer transport (cvltr)
+  ! da1           Real           Output   used in tracer transport (cvltr)
+  ! phi1          Real           Output   used in tracer transport (cvltr)
+  ! mp1           Real           Output   used in tracer transport (cvltr)
+
+  ! phi21         Real           Output   used in tracer transport (cvltr)
+
+  ! d1a1          Real           Output   used in tracer transport (cvltr)
+  ! dam1          Real           Output   used in tracer transport (cvltr)
+
+  ! evap1         Real           Output
+  ! ep1           Real           Output
+  ! sij1        Real           Output
+  ! elij1         Real           Output
+
+  ! S. Bony, Mar 2002:
+  ! * Several modules corresponding to different physical processes
+  ! * Several versions of convect may be used:
+  ! - iflag_con=3: version lmd  (previously named convect3)
+  ! - iflag_con=4: version 4.3b (vect. version, previously convect1/2)
+  ! + tard: 	- iflag_con=5: version lmd with ice (previously named convectg)
+  ! S. Bony, Oct 2002:
+  ! * Vectorization of convect3 (ie version lmd)
+
+  ! ..............................END PROLOGUE.............................
+
+
+  ! Input
+  INTEGER len
+  INTEGER nd
+  INTEGER ndp1
+  INTEGER noff
+  INTEGER iflag_con
+  INTEGER ntra
+  REAL delt
+  REAL t1(len, nd)
+  REAL q1(len, nd)
+  REAL qs1(len, nd)
+  REAL u1(len, nd)
+  REAL v1(len, nd)
+  REAL tra1(len, nd, ntra)
+  REAL p1(len, nd)
+  REAL ph1(len, ndp1)
+
+  ! Output
+  INTEGER iflag1(len)
+  REAL ft1(len, nd)
+  REAL fq1(len, nd)
+  REAL fu1(len, nd)
+  REAL fv1(len, nd)
+  REAL ftra1(len, nd, ntra)
+  REAL precip1(len)
+  REAL cbmf1(len)
+  REAL sig1(klon, klev)
+  REAL w01(klon, klev)
+  REAL vprecip1(len, nd+1)
+  REAL evap1(len, nd) !RomP
+  REAL ep1(len, nd) !RomP
+  REAL ma1(len, nd)
+  REAL upwd1(len, nd)
+  REAL dnwd1(len, nd)
+  REAL dnwd01(len, nd)
+
+  REAL qcondc1(len, nd) ! cld
+  REAL wd1(len) ! gust
+  REAL cape1(len)
+
+  ! RomP >>>
+  REAL wdtraina1(len, nd), wdtrainm1(len, nd)
+  REAL sij1(len, nd, nd), elij1(len, nd, nd)
+  REAL da1(len, nd), phi1(len, nd, nd), mp1(len, nd)
+
+  REAL phi21(len, nd, nd)
+  REAL d1a1(len, nd), dam1(len, nd)
+  REAL epmlmmm1(len, nd, nd), eplamm1(len, nd)
+  ! RomP <<<
+  REAL epmax_diag1 (len) ! epmax_cape     
+
+  ! -------------------------------------------------------------------
+  ! Original Prologue by Kerry Emanuel.
+  ! -------------------------------------------------------------------
+  ! --- ARGUMENTS
+  ! -------------------------------------------------------------------
+  ! --- On input:
+
+  ! t:   Array of absolute temperature (K) of dimension ND, with first
+  ! index corresponding to lowest model level. Note that this array
+  ! will be altered by the subroutine if dry convective adjustment
+  ! occurs and if IPBL is not equal to 0.
+
+  ! q:   Array of specific humidity (gm/gm) of dimension ND, with first
+  ! index corresponding to lowest model level. Must be defined
+  ! at same grid levels as T. Note that this array will be altered
+  ! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! qs:  Array of saturation specific humidity of dimension ND, with first
+  ! index corresponding to lowest model level. Must be defined
+  ! at same grid levels as T. Note that this array will be altered
+  ! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! u:   Array of zonal wind velocity (m/s) of dimension ND, witth first
+  ! index corresponding with the lowest model level. Defined at
+  ! same levels as T. Note that this array will be altered if
+  ! dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! v:   Same as u but for meridional velocity.
+
+  ! tra: Array of passive tracer mixing ratio, of dimensions (ND,NTRA),
+  ! where NTRA is the number of different tracers. If no
+  ! convective tracer transport is needed, define a dummy
+  ! input array of dimension (ND,1). Tracers are defined at
+  ! same vertical levels as T. Note that this array will be altered
+  ! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+  ! p:   Array of pressure (mb) of dimension ND, with first
+  ! index corresponding to lowest model level. Must be defined
+  ! at same grid levels as T.
+
+  ! ph:  Array of pressure (mb) of dimension ND+1, with first index
+  ! corresponding to lowest level. These pressures are defined at
+  ! levels intermediate between those of P, T, Q and QS. The first
+  ! value of PH should be greater than (i.e. at a lower level than)
+  ! the first value of the array P.
+
+  ! nl:  The maximum number of levels to which convection can penetrate, plus
+  ! 1.
+  ! NL MUST be less than or equal to ND-1.
+
+  ! delt: The model time step (sec) between calls to CONVECT
+
+  ! ----------------------------------------------------------------------------
+  ! ---   On Output:
+
+  ! iflag: An output integer whose value denotes the following:
+  ! VALUE   INTERPRETATION
+  ! -----   --------------
+  ! 0     Moist convection occurs.
+  ! 1     Moist convection occurs, but a CFL condition
+  ! on the subsidence warming is violated. This
+  ! does not cause the scheme to terminate.
+  ! 2     Moist convection, but no precip because ep(inb) lt 0.0001
+  ! 3     No moist convection because new cbmf is 0 and old cbmf is 0.
+  ! 4     No moist convection; atmosphere is not
+  ! unstable
+  ! 6     No moist convection because ihmin le minorig.
+  ! 7     No moist convection because unreasonable
+  ! parcel level temperature or specific humidity.
+  ! 8     No moist convection: lifted condensation
+  ! level is above the 200 mb level.
+  ! 9     No moist convection: cloud base is higher
+  ! then the level NL-1.
+
+  ! ft:   Array of temperature tendency (K/s) of dimension ND, defined at
+  ! same
+  ! grid levels as T, Q, QS and P.
+
+  ! fq:   Array of specific humidity tendencies ((gm/gm)/s) of dimension ND,
+  ! defined at same grid levels as T, Q, QS and P.
+
+  ! fu:   Array of forcing of zonal velocity (m/s^2) of dimension ND,
+  ! defined at same grid levels as T.
+
+  ! fv:   Same as FU, but for forcing of meridional velocity.
+
+  ! ftra: Array of forcing of tracer content, in tracer mixing ratio per
+  ! second, defined at same levels as T. Dimensioned (ND,NTRA).
+
+  ! precip: Scalar convective precipitation rate (mm/day).
+
+  ! VPrecip: Vertical profile of convective precipitation (kg/m2/s).
+
+  ! wd:   A convective downdraft velocity scale. For use in surface
+  ! flux parameterizations. See convect.ps file for details.
+
+  ! tprime: A convective downdraft temperature perturbation scale (K).
+  ! For use in surface flux parameterizations. See convect.ps
+  ! file for details.
+
+  ! qprime: A convective downdraft specific humidity
+  ! perturbation scale (gm/gm).
+  ! For use in surface flux parameterizations. See convect.ps
+  ! file for details.
+
+  ! cbmf: The cloud base mass flux ((kg/m**2)/s). THIS SCALAR VALUE MUST
+  ! BE STORED BY THE CALLING PROGRAM AND RETURNED TO CONVECT AT
+  ! ITS NEXT CALL. That is, the value of CBMF must be "remembered"
+  ! by the calling program between calls to CONVECT.
+
+  ! det:   Array of detrainment mass flux of dimension ND.
+
+  ! -------------------------------------------------------------------
+
+  ! Local arrays
+
+
+  INTEGER i, k, n, il, j
+  INTEGER icbmax
+  INTEGER nk1(klon)
+  INTEGER icb1(klon)
+  INTEGER inb1(klon)
+  INTEGER icbs1(klon)
+
+  REAL plcl1(klon)
+  REAL tnk1(klon)
+  REAL qnk1(klon)
+  REAL gznk1(klon)
+  REAL pnk1(klon)
+  REAL qsnk1(klon)
+  REAL pbase1(klon)
+  REAL buoybase1(klon)
+
+  REAL lv1(klon, klev)
+  REAL cpn1(klon, klev)
+  REAL tv1(klon, klev)
+  REAL gz1(klon, klev)
+  REAL hm1(klon, klev)
+  REAL h1(klon, klev)
+  REAL tp1(klon, klev)
+  REAL tvp1(klon, klev)
+  REAL clw1(klon, klev)
+  REAL th1(klon, klev)
+
+  INTEGER ncum
+
+  ! (local) compressed fields:
+
+  ! ym      integer nloc
+  ! ym      parameter (nloc=klon) ! pour l'instant
+#define nloc klon
+  INTEGER idcum(nloc)
+  INTEGER iflag(nloc), nk(nloc), icb(nloc)
+  INTEGER nent(nloc, klev)
+  INTEGER icbs(nloc)
+  INTEGER inb(nloc), inbis(nloc)
+
+  REAL cbmf(nloc), plcl(nloc), tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL t(nloc, klev), q(nloc, klev), qs(nloc, klev)
+  REAL u(nloc, klev), v(nloc, klev)
+  REAL gz(nloc, klev), h(nloc, klev), lv(nloc, klev), cpn(nloc, klev)
+  REAL p(nloc, klev), ph(nloc, klev+1), tv(nloc, klev), tp(nloc, klev)
+  REAL clw(nloc, klev)
+  REAL dph(nloc, klev)
+  REAL pbase(nloc), buoybase(nloc), th(nloc, klev)
+  REAL tvp(nloc, klev)
+  REAL sig(nloc, klev), w0(nloc, klev)
+  REAL hp(nloc, klev), ep(nloc, klev), sigp(nloc, klev)
+  REAL frac(nloc), buoy(nloc, klev)
+  REAL cape(nloc)
+  REAL m(nloc, klev), ment(nloc, klev, klev), qent(nloc, klev, klev)
+  REAL uent(nloc, klev, klev), vent(nloc, klev, klev)
+  REAL ments(nloc, klev, klev), qents(nloc, klev, klev)
+  REAL sij(nloc, klev, klev), elij(nloc, klev, klev)
+  REAL qp(nloc, klev), up(nloc, klev), vp(nloc, klev)
+  REAL wt(nloc, klev), water(nloc, klev), evap(nloc, klev)
+  REAL b(nloc, klev), ft(nloc, klev), fq(nloc, klev)
+  REAL fu(nloc, klev), fv(nloc, klev)
+  REAL upwd(nloc, klev), dnwd(nloc, klev), dnwd0(nloc, klev)
+  REAL ma(nloc, klev), mike(nloc, klev), tls(nloc, klev)
+  REAL tps(nloc, klev), qprime(nloc), tprime(nloc)
+  REAL precip(nloc)
+  REAL vprecip(nloc, klev+1)
+  REAL tra(nloc, klev, ntra), trap(nloc, klev, ntra)
+  REAL ftra(nloc, klev, ntra), traent(nloc, klev, klev, ntra)
+  REAL qcondc(nloc, klev) ! cld
+  REAL wd(nloc) ! gust
+
+  ! RomP >>>
+  REAL da(nloc, klev), phi(nloc, klev, klev), mp(nloc, klev)
+  REAL epmlmmm(nloc, klev, klev), eplamm(nloc, klev)
+  REAL phi2(nloc, klev, klev)
+  REAL d1a(nloc, klev), dam(nloc, klev)
+  REAL wdtraina(nloc, klev), wdtrainm(nloc, klev)
+  REAL sigd(nloc)
+  ! RomP <<<
+  REAL epmax_diag(nloc) ! epmax_cape
+
+  nent(:, :) = 0
+  ! -------------------------------------------------------------------
+  ! --- SET CONSTANTS AND PARAMETERS
+  ! -------------------------------------------------------------------
+  ! print *, '-> cv_driver'      !jyg
+  ! -- set simulation flags:
+  ! (common cvflag)
+
+  CALL cv_flag(0)
+
+  ! -- set thermodynamical constants:
+  ! (common cvthermo)
+
+  CALL cv_thermo(iflag_con)
+
+  ! -- set convect parameters
+
+  ! includes microphysical parameters and parameters that
+  ! control the rate of approach to quasi-equilibrium)
+  ! (common cvparam)
+
+
+  IF (iflag_con==30) THEN
+    CALL cv30_param(nd, delt)
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_param(nd)
+  END IF
+
+  ! ---------------------------------------------------------------------
+  ! --- INITIALIZE OUTPUT ARRAYS AND PARAMETERS
+  ! ---------------------------------------------------------------------
+
+  ft1(:, :) = 0.0
+  fq1(:, :) = 0.0
+  fu1(:, :) = 0.0
+  fv1(:, :) = 0.0
+  tvp1(:, :) = 0.0
+  tp1(:, :) = 0.0
+  clw1(:, :) = 0.0
+  ! ym
+  clw(:, :) = 0.0
+  gz1(:, :) = 0.
+  vprecip1(:, :) = 0.
+  ma1(:, :) = 0.0
+  upwd1(:, :) = 0.0
+  dnwd1(:, :) = 0.0
+  dnwd01(:, :) = 0.0
+  qcondc1(:, :) = 0.0
+
+  ftra1(:, :, :) = 0.0
+
+  elij1(:, :, :) = 0.0
+  sij1(:, :, :) = 0.0
+
+  precip1(:) = 0.0
+  iflag1(:) = 0
+  wd1(:) = 0.0
+  cape1(:) = 0.0
+  epmax_diag1(:) = 0.0 ! epmax_cape
+
+
+  IF (iflag_con==30) THEN
+    DO il = 1, len
+      sig1(il, nd) = sig1(il, nd) + 1.
+      sig1(il, nd) = amin1(sig1(il,nd), 12.1)
+    END DO
+  END IF
+
+  ! RomP >>>
+  wdtraina1(:, :) = 0.
+  wdtrainm1(:, :) = 0.
+  da1(:, :) = 0.
+  phi1(:, :, :) = 0.
+  epmlmmm1(:, :, :) = 0.
+  eplamm1(:, :) = 0.
+  mp1(:, :) = 0.
+  evap1(:, :) = 0.
+  ep1(:, :) = 0.
+  sij1(:, :, :) = 0.
+  elij1(:, :, :) = 0.
+  phi21(:, :, :) = 0.
+  d1a1(:, :) = 0.
+  dam1(:, :) = 0.
+  ! RomP <<<
+
+  ! --------------------------------------------------------------------
+  ! --- CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY & STATIC ENERGY
+  ! --------------------------------------------------------------------
+
+  IF (iflag_con==30) THEN
+
+    ! print*,'Emanuel version 30 '
+    CALL cv30_prelim(len, nd, ndp1, t1, q1, p1, ph1 & ! nd->na
+      , lv1, cpn1, tv1, gz1, h1, hm1, th1)
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_prelim(len, nd, ndp1, t1, q1, p1, ph1, lv1, cpn1, tv1, gz1, h1, &
+      hm1)
+  END IF
+
+  ! --------------------------------------------------------------------
+  ! --- CONVECTIVE FEED
+  ! --------------------------------------------------------------------
+
+  IF (iflag_con==30) THEN
+    CALL cv30_feed(len, nd, t1, q1, qs1, p1, ph1, hm1, gz1 & !
+                                                             ! nd->na
+      , nk1, icb1, icbmax, iflag1, tnk1, qnk1, gznk1, plcl1)
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_feed(len, nd, t1, q1, qs1, p1, hm1, gz1, nk1, icb1, icbmax, &
+      iflag1, tnk1, qnk1, gznk1, plcl1)
+  END IF
+
+  ! --------------------------------------------------------------------
+  ! --- UNDILUTE (ADIABATIC) UPDRAFT / 1st part
+  ! (up through ICB for convect4, up through ICB+1 for convect3)
+  ! Calculates the lifted parcel virtual temperature at nk, the
+  ! actual temperature, and the adiabatic liquid water content.
+  ! --------------------------------------------------------------------
+
+  IF (iflag_con==30) THEN
+    CALL cv30_undilute1(len, nd, t1, q1, qs1, gz1, plcl1, p1, nk1, icb1 & ! nd->na
+      , tp1, tvp1, clw1, icbs1)
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_undilute1(len, nd, t1, q1, qs1, gz1, p1, nk1, icb1, icbmax, tp1, &
+      tvp1, clw1)
+  END IF
+
+  ! -------------------------------------------------------------------
+  ! --- TRIGGERING
+  ! -------------------------------------------------------------------
+
+  IF (iflag_con==30) THEN
+    CALL cv30_trigger(len, nd, icb1, plcl1, p1, th1, tv1, tvp1 & !
+                                                                 ! nd->na
+      , pbase1, buoybase1, iflag1, sig1, w01)
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_trigger(len, nd, icb1, cbmf1, tv1, tvp1, iflag1)
+  END IF
+
+  ! =====================================================================
+  ! --- IF THIS POINT IS REACHED, MOIST CONVECTIVE ADJUSTMENT IS NECESSARY
+  ! =====================================================================
+
+  ncum = 0
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      ncum = ncum + 1
+      idcum(ncum) = i
+    END IF
+  END DO
+
+  ! print*,'cv_driver : klon, ncum = ',len,ncum
+
+  IF (ncum>0) THEN
+
+    ! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+    ! --- COMPRESS THE FIELDS
+    ! (-> vectorization over convective gridpoints)
+    ! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+    IF (iflag_con==30) THEN
+      CALL cv30_compress(len, nloc, ncum, nd, ntra, iflag1, nk1, icb1, icbs1, &
+        plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, &
+        gz1, th1, tra1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, &
+        w01, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, &
+        q, qs, u, v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, &
+        w0)
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_compress(len, nloc, ncum, nd, iflag1, nk1, icb1, cbmf1, plcl1, &
+        tnk1, qnk1, gznk1, t1, q1, qs1, u1, v1, gz1, h1, lv1, cpn1, p1, ph1, &
+        tv1, tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, &
+        q, qs, u, v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph)
+    END IF
+
+    ! -------------------------------------------------------------------
+    ! --- UNDILUTE (ADIABATIC) UPDRAFT / second part :
+    ! ---   FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+    ! ---   &
+    ! ---   COMPUTE THE PRECIPITATION EFFICIENCIES AND THE
+    ! ---   FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
+    ! ---   &
+    ! ---   FIND THE LEVEL OF NEUTRAL BUOYANCY
+    ! -------------------------------------------------------------------
+
+    IF (iflag_con==30) THEN
+      CALL cv30_undilute2(nloc, ncum, nd, icb, icbs, nk & !na->nd
+        , tnk, qnk, gznk, t, q, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, &
+        inb, tp, tvp, clw, hp, ep, sigp, buoy)
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, &
+        gz, p, dph, h, tv, lv, inb, inbis, tp, tvp, clw, hp, ep, sigp, frac)
+    END IF
+
+    ! -------------------------------------------------------------------
+    ! --- CLOSURE
+    ! -------------------------------------------------------------------
+
+    IF (iflag_con==30) THEN
+      CALL cv30_closure(nloc, ncum, nd, icb, inb & ! na->nd
+        , pbase, p, ph, tv, buoy, sig, w0, cape, m)
+
+      ! epmax_cape
+      call cv30_epmax_fn_cape(nloc,ncum,nd &
+                ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
+                ,epmax_diag)
+        ! on écrase ep et recalcule hp
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, &
+        cpn, iflag, cbmf)
+    END IF
+    
+
+    ! -------------------------------------------------------------------
+    ! --- MIXING
+    ! -------------------------------------------------------------------
+
+    IF (iflag_con==30) THEN
+      CALL cv30_mixing(nloc, ncum, nd, nd, ntra, icb, nk, inb & !
+                                                                ! na->nd
+        , ph, t, q, qs, u, v, tra, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, &
+        ment, qent, uent, vent, sij, elij, ments, qents, traent)
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_mixing(nloc, ncum, nd, icb, nk, inb, inbis, ph, t, q, qs, u, v, &
+        h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, &
+        nent, sij, elij)
+    END IF
+
+    ! -------------------------------------------------------------------
+    ! --- UNSATURATED (PRECIPITATING) DOWNDRAFTS
+    ! -------------------------------------------------------------------
+
+    IF (iflag_con==30) THEN
+      ! RomP >>>
+      CALL cv30_unsat(nloc, ncum, nd, nd, ntra, icb, inb & ! na->nd
+        , t, q, qs, gz, u, v, tra, p, ph, th, tv, lv, cpn, ep, sigp, clw, m, &
+        ment, elij, delt, plcl, mp, qp, up, vp, trap, wt, water, evap, b, &
+        wdtraina, wdtrainm)
+      ! RomP <<<
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, &
+        ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap)
+    END IF
+
+    ! -------------------------------------------------------------------
+    ! --- YIELD
+    ! (tendencies, precipitation, variables of interface with other
+    ! processes, etc)
+    ! -------------------------------------------------------------------
+
+    IF (iflag_con==30) THEN
+      CALL cv30_yield(nloc, ncum, nd, nd, ntra & ! na->nd
+        , icb, inb, delt, t, q, u, v, tra, gz, p, ph, h, hp, lv, cpn, th, ep, &
+        clw, m, tp, mp, qp, up, vp, trap, wt, water, evap, b, ment, qent, &
+        uent, vent, nent, elij, traent, sig, tv, tvp, iflag, precip, vprecip, &
+        ft, fq, fu, fv, ftra, upwd, dnwd, dnwd0, ma, mike, tls, tps, qcondc, &
+        wd)
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_yield(nloc, ncum, nd, nk, icb, inb, delt, t, q, u, v, gz, p, &
+        ph, h, hp, lv, cpn, ep, clw, frac, m, mp, qp, up, vp, wt, water, &
+        evap, ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, &
+        tprime, precip, cbmf, ft, fq, fu, fv, ma, qcondc)
+    END IF
+
+    ! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+    ! --- passive tracers
+    ! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+    IF (iflag_con==30) THEN
+      ! RomP >>>
+      CALL cv30_tracer(nloc, len, ncum, nd, nd, ment, sij, da, phi, phi2, &
+        d1a, dam, ep, vprecip, elij, clw, epmlmmm, eplamm, icb, inb)
+      ! RomP <<<
+    END IF
+
+    ! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+    ! --- UNCOMPRESS THE FIELDS
+    ! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+    ! set iflag1 =42 for non convective points
+    DO i = 1, len
+      iflag1(i) = 42
+    END DO
+
+    IF (iflag_con==30) THEN
+      CALL cv30_uncompress(nloc, len, ncum, nd, ntra, idcum, iflag, precip, &
+        vprecip, evap, ep, sig, w0 & !RomP
+        , ft, fq, fu, fv, ftra, inb, ma, upwd, dnwd, dnwd0, qcondc, wd, cape, &
+        da, phi, mp, phi2, d1a, dam, sij & !RomP
+        , elij, clw, epmlmmm, eplamm & !RomP
+        , wdtraina, wdtrainm,epmax_diag &     !RomP
+        , iflag1, precip1, vprecip1, evap1, ep1, sig1, w01 & !RomP
+        , ft1, fq1, fu1, fv1, ftra1, inb1, ma1, upwd1, dnwd1, dnwd01, &
+        qcondc1, wd1, cape1, da1, phi1, mp1, phi21, d1a1, dam1, sij1 & !RomP
+        , elij1, clw1, epmlmmm1, eplamm1 & !RomP
+        , wdtraina1, wdtrainm1,epmax_diag1) !RomP
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_uncompress(nloc, len, ncum, nd, idcum, iflag, precip, cbmf, ft, &
+        fq, fu, fv, ma, qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, &
+        ma1, qcondc1)
+    END IF
+
+  END IF ! ncum>0
+
+  ! print *, 'fin cv_driver ->'      !jyg
+  RETURN
+END SUBROUTINE cv_driver
+
+! ==================================================================
+SUBROUTINE cv_flag(iflag_ice_thermo)
+  IMPLICIT NONE
+
+  ! Argument : iflag_ice_thermo : ice thermodynamics is taken into account if
+  ! iflag_ice_thermo >=1
+  INTEGER iflag_ice_thermo
+
+  include "cvflag.h"
+
+  ! -- si .TRUE., on rend la gravite plus explicite et eventuellement
+  ! differente de 10.0 dans convect3:
+  cvflag_grav = .TRUE.
+  cvflag_ice = iflag_ice_thermo >= 1
+
+  RETURN
+END SUBROUTINE cv_flag
+
+! ==================================================================
+SUBROUTINE cv_thermo(iflag_con)
+  IMPLICIT NONE
+
+  ! -------------------------------------------------------------
+  ! Set thermodynamical constants for convectL
+  ! -------------------------------------------------------------
+
+  include "YOMCST.h"
+  include "cvthermo.h"
+
+  INTEGER iflag_con
+
+
+  ! original set from convect:
+  IF (iflag_con==4) THEN
+    cpd = 1005.7
+    cpv = 1870.0
+    cl = 4190.0
+    rrv = 461.5
+    rrd = 287.04
+    lv0 = 2.501E6
+    g = 9.8
+    t0 = 273.15
+    grav = g
+  ELSE
+
+    ! constants consistent with LMDZ:
+    cpd = rcpd
+    cpv = rcpv
+    cl = rcw
+    ci = rcs
+    rrv = rv
+    rrd = rd
+    lv0 = rlvtt
+    lf0 = rlstt - rlvtt
+    g = rg ! not used in convect3
+    ! ori      t0  = RTT
+    t0 = 273.15 ! convect3 (RTT=273.16)
+    ! maf       grav= 10.    ! implicitely or explicitely used in convect3
+    grav = g ! implicitely or explicitely used in convect3
+  END IF
+
+  rowl = 1000.0 !(a quelle variable de YOMCST cela correspond-il?)
+
+  clmcpv = cl - cpv
+  clmcpd = cl - cpd
+  clmci = cl - ci
+  cpdmcp = cpd - cpv
+  cpvmcpd = cpv - cpd
+  cpvmcl = cl - cpv ! for convect3
+  eps = rrd/rrv
+  epsi = 1.0/eps
+  epsim1 = epsi - 1.0
+  ! ginv=1.0/g
+  ginv = 1.0/grav
+  hrd = 0.5*rrd
+
+  RETURN
+END SUBROUTINE cv_thermo
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv_routines.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv_routines.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cv_routines.F90	(revision 3330)
@@ -0,0 +1,1713 @@
+
+! $Id$
+
+SUBROUTINE cv_param(nd)
+  IMPLICIT NONE
+
+  ! ------------------------------------------------------------
+  ! Set parameters for convectL
+  ! (includes microphysical parameters and parameters that
+  ! control the rate of approach to quasi-equilibrium)
+  ! ------------------------------------------------------------
+
+  ! *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) ***
+  ! ***  TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-        ***
+  ! ***       CONVERSION THRESHOLD IS ASSUMED TO BE ZERO             ***
+  ! ***     (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY            ***
+  ! ***               BETWEEN 0 C AND TLCRIT)                        ***
+  ! ***   ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT       ***
+  ! ***                       FORMULATION                            ***
+  ! ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
+  ! ***  SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE       ***
+  ! ***                        OF CLOUD                              ***
+  ! ***        OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN       ***
+  ! ***     OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW          ***
+  ! ***  COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
+  ! ***                          OF RAIN                             ***
+  ! ***  COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
+  ! ***                          OF SNOW                             ***
+  ! ***     CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM      ***
+  ! ***                         TRANSPORT                            ***
+  ! ***    DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION    ***
+  ! ***        A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC      ***
+  ! ***    ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF    ***
+  ! ***                 APPROACH TO QUASI-EQUILIBRIUM                ***
+  ! ***   (THEIR STANDARD VALUES ARE  0.20 AND 0.1, RESPECTIVELY)    ***
+  ! ***                   (DAMP MUST BE LESS THAN 1)                 ***
+
+  include "cvparam.h"
+  INTEGER nd
+  CHARACTER (LEN=20) :: modname = 'cv_routines'
+  CHARACTER (LEN=80) :: abort_message
+
+  ! noff: integer limit for convection (nd-noff)
+  ! minorig: First level of convection
+
+  noff = 2
+  minorig = 2
+
+  nl = nd - noff
+  nlp = nl + 1
+  nlm = nl - 1
+
+  elcrit = 0.0011
+  tlcrit = -55.0
+  entp = 1.5
+  sigs = 0.12
+  sigd = 0.05
+  omtrain = 50.0
+  omtsnow = 5.5
+  coeffr = 1.0
+  coeffs = 0.8
+  dtmax = 0.9
+
+  cu = 0.70
+
+  betad = 10.0
+
+  damp = 0.1
+  alpha = 0.2
+
+  delta = 0.01 ! cld
+
+  RETURN
+END SUBROUTINE cv_param
+
+SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm)
+  IMPLICIT NONE
+
+  ! =====================================================================
+  ! --- CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY & STATIC ENERGY
+  ! =====================================================================
+
+  ! inputs:
+  INTEGER len, nd, ndp1
+  REAL t(len, nd), q(len, nd), p(len, nd), ph(len, ndp1)
+
+  ! outputs:
+  REAL lv(len, nd), cpn(len, nd), tv(len, nd)
+  REAL gz(len, nd), h(len, nd), hm(len, nd)
+
+  ! local variables:
+  INTEGER k, i
+  REAL cpx(len, nd)
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+
+  DO k = 1, nlp
+    DO i = 1, len
+      lv(i, k) = lv0 - clmcpv*(t(i,k)-t0)
+      cpn(i, k) = cpd*(1.0-q(i,k)) + cpv*q(i, k)
+      cpx(i, k) = cpd*(1.0-q(i,k)) + cl*q(i, k)
+      tv(i, k) = t(i, k)*(1.0+q(i,k)*epsim1)
+    END DO
+  END DO
+
+  ! gz = phi at the full levels (same as p).
+
+  DO i = 1, len
+    gz(i, 1) = 0.0
+  END DO
+  DO k = 2, nlp
+    DO i = 1, len
+      gz(i, k) = gz(i, k-1) + hrd*(tv(i,k-1)+tv(i,k))*(p(i,k-1)-p(i,k))/ph(i, &
+        k)
+    END DO
+  END DO
+
+  ! h  = phi + cpT (dry static energy).
+  ! hm = phi + cp(T-Tbase)+Lq
+
+  DO k = 1, nlp
+    DO i = 1, len
+      h(i, k) = gz(i, k) + cpn(i, k)*t(i, k)
+      hm(i, k) = gz(i, k) + cpx(i, k)*(t(i,k)-t(i,1)) + lv(i, k)*q(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv_prelim
+
+SUBROUTINE cv_feed(len, nd, t, q, qs, p, hm, gz, nk, icb, icbmax, iflag, tnk, &
+    qnk, gznk, plcl)
+  IMPLICIT NONE
+
+  ! ================================================================
+  ! Purpose: CONVECTIVE FEED
+  ! ================================================================
+
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER len, nd
+  REAL t(len, nd), q(len, nd), qs(len, nd), p(len, nd)
+  REAL hm(len, nd), gz(len, nd)
+
+  ! outputs:
+  INTEGER iflag(len), nk(len), icb(len), icbmax
+  REAL tnk(len), qnk(len), gznk(len), plcl(len)
+
+  ! local variables:
+  INTEGER i, k
+  INTEGER ihmin(len)
+  REAL work(len)
+  REAL pnk(len), qsnk(len), rh(len), chi(len)
+
+  ! -------------------------------------------------------------------
+  ! --- Find level of minimum moist static energy
+  ! --- If level of minimum moist static energy coincides with
+  ! --- or is lower than minimum allowable parcel origin level,
+  ! --- set iflag to 6.
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    work(i) = 1.0E12
+    ihmin(i) = nl
+  END DO
+  DO k = 2, nlp
+    DO i = 1, len
+      IF ((hm(i,k)<work(i)) .AND. (hm(i,k)<hm(i,k-1))) THEN
+        work(i) = hm(i, k)
+        ihmin(i) = k
+      END IF
+    END DO
+  END DO
+  DO i = 1, len
+    ihmin(i) = min(ihmin(i), nlm)
+    IF (ihmin(i)<=minorig) THEN
+      iflag(i) = 6
+    END IF
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Find that model level below the level of minimum moist static
+  ! --- energy that has the maximum value of moist static energy
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    work(i) = hm(i, minorig)
+    nk(i) = minorig
+  END DO
+  DO k = minorig + 1, nl
+    DO i = 1, len
+      IF ((hm(i,k)>work(i)) .AND. (k<=ihmin(i))) THEN
+        work(i) = hm(i, k)
+        nk(i) = k
+      END IF
+    END DO
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Check whether parcel level temperature and specific humidity
+  ! --- are reasonable
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    IF (((t(i,nk(i))<250.0) .OR. (q(i,nk(i))<=0.0) .OR. (p(i,ihmin(i))< &
+      400.0)) .AND. (iflag(i)==0)) iflag(i) = 7
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Calculate lifted condensation level of air at parcel origin level
+  ! --- (Within 0.2% of formula of Bolton, MON. WEA. REV.,1980)
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    tnk(i) = t(i, nk(i))
+    qnk(i) = q(i, nk(i))
+    gznk(i) = gz(i, nk(i))
+    pnk(i) = p(i, nk(i))
+    qsnk(i) = qs(i, nk(i))
+
+    rh(i) = qnk(i)/qsnk(i)
+    rh(i) = min(1.0, rh(i))
+    chi(i) = tnk(i)/(1669.0-122.0*rh(i)-tnk(i))
+    plcl(i) = pnk(i)*(rh(i)**chi(i))
+    IF (((plcl(i)<200.0) .OR. (plcl(i)>=2000.0)) .AND. (iflag(i)==0)) iflag(i &
+      ) = 8
+  END DO
+  ! -------------------------------------------------------------------
+  ! --- Calculate first level above lcl (=icb)
+  ! -------------------------------------------------------------------
+  DO i = 1, len
+    icb(i) = nlm
+  END DO
+
+  DO k = minorig, nl
+    DO i = 1, len
+      IF ((k>=(nk(i)+1)) .AND. (p(i,k)<plcl(i))) icb(i) = min(icb(i), k)
+    END DO
+  END DO
+
+  DO i = 1, len
+    IF ((icb(i)>=nlm) .AND. (iflag(i)==0)) iflag(i) = 9
+  END DO
+
+  ! Compute icbmax.
+
+  icbmax = 2
+  DO i = 1, len
+    icbmax = max(icbmax, icb(i))
+  END DO
+
+  RETURN
+END SUBROUTINE cv_feed
+
+SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, &
+    clw)
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER len, nd
+  INTEGER nk(len), icb(len), icbmax
+  REAL t(len, nd), q(len, nd), qs(len, nd), gz(len, nd)
+  REAL p(len, nd)
+
+  ! outputs:
+  REAL tp(len, nd), tvp(len, nd), clw(len, nd)
+
+  ! local variables:
+  INTEGER i, k
+  REAL tg, qg, alv, s, ahg, tc, denom, es, rg
+  REAL ah0(len), cpp(len)
+  REAL tnk(len), qnk(len), gznk(len), ticb(len), gzicb(len)
+
+  ! -------------------------------------------------------------------
+  ! --- Calculates the lifted parcel virtual temperature at nk,
+  ! --- the actual temperature, and the adiabatic
+  ! --- liquid water content. The procedure is to solve the equation.
+  ! cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+  ! -------------------------------------------------------------------
+
+  DO i = 1, len
+    tnk(i) = t(i, nk(i))
+    qnk(i) = q(i, nk(i))
+    gznk(i) = gz(i, nk(i))
+    ticb(i) = t(i, icb(i))
+    gzicb(i) = gz(i, icb(i))
+  END DO
+
+  ! ***  Calculate certain parcel quantities, including static energy   ***
+
+  DO i = 1, len
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) + qnk(i)*(lv0-clmcpv*(tnk(i)- &
+      273.15)) + gznk(i)
+    cpp(i) = cpd*(1.-qnk(i)) + qnk(i)*cpv
+  END DO
+
+  ! ***   Calculate lifted parcel quantities below cloud base   ***
+
+  DO k = minorig, icbmax - 1
+    DO i = 1, len
+      tp(i, k) = tnk(i) - (gz(i,k)-gznk(i))/cpp(i)
+      tvp(i, k) = tp(i, k)*(1.+qnk(i)*epsi)
+    END DO
+  END DO
+
+  ! ***  Find lifted parcel quantities above cloud base    ***
+
+  DO i = 1, len
+    tg = ticb(i)
+    qg = qs(i, icb(i))
+    alv = lv0 - clmcpv*(ticb(i)-t0)
+
+    ! First iteration.
+
+    s = cpd + alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    s = 1./s
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*ticb(i) + alv*qg + gzicb(i)
+    tg = tg + s*(ah0(i)-ahg)
+    tg = max(tg, 35.0)
+    tc = tg - t0
+    denom = 243.5 + tc
+    IF (tc>=0.0) THEN
+      es = 6.112*exp(17.67*tc/denom)
+    ELSE
+      es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    END IF
+    qg = eps*es/(p(i,icb(i))-es*(1.-eps))
+
+    ! Second iteration.
+
+    s = cpd + alv*alv*qg/(rrv*ticb(i)*ticb(i))
+    s = 1./s
+    ahg = cpd*tg + (cl-cpd)*qnk(i)*ticb(i) + alv*qg + gzicb(i)
+    tg = tg + s*(ah0(i)-ahg)
+    tg = max(tg, 35.0)
+    tc = tg - t0
+    denom = 243.5 + tc
+    IF (tc>=0.0) THEN
+      es = 6.112*exp(17.67*tc/denom)
+    ELSE
+      es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+    END IF
+    qg = eps*es/(p(i,icb(i))-es*(1.-eps))
+
+    alv = lv0 - clmcpv*(ticb(i)-273.15)
+    tp(i, icb(i)) = (ah0(i)-(cl-cpd)*qnk(i)*ticb(i)-gz(i,icb(i))-alv*qg)/cpd
+    clw(i, icb(i)) = qnk(i) - qg
+    clw(i, icb(i)) = max(0.0, clw(i,icb(i)))
+    rg = qg/(1.-qnk(i))
+    tvp(i, icb(i)) = tp(i, icb(i))*(1.+rg*epsi)
+  END DO
+
+  DO k = minorig, icbmax
+    DO i = 1, len
+      tvp(i, k) = tvp(i, k) - tp(i, k)*qnk(i)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv_undilute1
+
+SUBROUTINE cv_trigger(len, nd, icb, cbmf, tv, tvp, iflag)
+  IMPLICIT NONE
+
+  ! -------------------------------------------------------------------
+  ! --- Test for instability.
+  ! --- If there was no convection at last time step and parcel
+  ! --- is stable at icb, then set iflag to 4.
+  ! -------------------------------------------------------------------
+
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER len, nd, icb(len)
+  REAL cbmf(len), tv(len, nd), tvp(len, nd)
+
+  ! outputs:
+  INTEGER iflag(len) ! also an input
+
+  ! local variables:
+  INTEGER i
+
+
+  DO i = 1, len
+    IF ((cbmf(i)==0.0) .AND. (iflag(i)==0) .AND. (tvp(i, &
+      icb(i))<=(tv(i,icb(i))-dtmax))) iflag(i) = 4
+  END DO
+
+  RETURN
+END SUBROUTINE cv_trigger
+
+SUBROUTINE cv_compress(len, nloc, ncum, nd, iflag1, nk1, icb1, cbmf1, plcl1, &
+    tnk1, qnk1, gznk1, t1, q1, qs1, u1, v1, gz1, h1, lv1, cpn1, p1, ph1, tv1, &
+    tp1, tvp1, clw1, iflag, nk, icb, cbmf, plcl, tnk, qnk, gznk, t, q, qs, u, &
+    v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, dph)
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER len, ncum, nd, nloc
+  INTEGER iflag1(len), nk1(len), icb1(len)
+  REAL cbmf1(len), plcl1(len), tnk1(len), qnk1(len), gznk1(len)
+  REAL t1(len, nd), q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)
+  REAL gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)
+  REAL p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)
+  REAL tvp1(len, nd), clw1(len, nd)
+
+  ! outputs:
+  INTEGER iflag(nloc), nk(nloc), icb(nloc)
+  REAL cbmf(nloc), plcl(nloc), tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd), u(nloc, nd), v(nloc, nd)
+  REAL gz(nloc, nd), h(nloc, nd), lv(nloc, nd), cpn(nloc, nd)
+  REAL p(nloc, nd), ph(nloc, nd+1), tv(nloc, nd), tp(nloc, nd)
+  REAL tvp(nloc, nd), clw(nloc, nd)
+  REAL dph(nloc, nd)
+
+  ! local variables:
+  INTEGER i, k, nn
+  CHARACTER (LEN=20) :: modname = 'cv_compress'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  DO k = 1, nl + 1
+    nn = 0
+    DO i = 1, len
+      IF (iflag1(i)==0) THEN
+        nn = nn + 1
+        t(nn, k) = t1(i, k)
+        q(nn, k) = q1(i, k)
+        qs(nn, k) = qs1(i, k)
+        u(nn, k) = u1(i, k)
+        v(nn, k) = v1(i, k)
+        gz(nn, k) = gz1(i, k)
+        h(nn, k) = h1(i, k)
+        lv(nn, k) = lv1(i, k)
+        cpn(nn, k) = cpn1(i, k)
+        p(nn, k) = p1(i, k)
+        ph(nn, k) = ph1(i, k)
+        tv(nn, k) = tv1(i, k)
+        tp(nn, k) = tp1(i, k)
+        tvp(nn, k) = tvp1(i, k)
+        clw(nn, k) = clw1(i, k)
+      END IF
+    END DO
+  END DO
+
+  IF (nn/=ncum) THEN
+    WRITE (lunout, *) 'strange! nn not equal to ncum: ', nn, ncum
+    abort_message = ''
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+
+  nn = 0
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      nn = nn + 1
+      cbmf(nn) = cbmf1(i)
+      plcl(nn) = plcl1(i)
+      tnk(nn) = tnk1(i)
+      qnk(nn) = qnk1(i)
+      gznk(nn) = gznk1(i)
+      nk(nn) = nk1(i)
+      icb(nn) = icb1(i)
+      iflag(nn) = iflag1(i)
+    END IF
+  END DO
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      dph(i, k) = ph(i, k) - ph(i, k+1)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv_compress
+
+SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, &
+    gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac)
+  IMPLICIT NONE
+
+  ! ---------------------------------------------------------------------
+  ! Purpose:
+  ! FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+  ! &
+  ! COMPUTE THE PRECIPITATION EFFICIENCIES AND THE
+  ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
+  ! &
+  ! FIND THE LEVEL OF NEUTRAL BUOYANCY
+  ! ---------------------------------------------------------------------
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), nk(nloc)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd), gz(nloc, nd)
+  REAL p(nloc, nd), dph(nloc, nd)
+  REAL tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL lv(nloc, nd), tv(nloc, nd), h(nloc, nd)
+
+  ! outputs:
+  INTEGER inb(nloc), inb1(nloc)
+  REAL tp(nloc, nd), tvp(nloc, nd), clw(nloc, nd)
+  REAL ep(nloc, nd), sigp(nloc, nd), hp(nloc, nd)
+  REAL frac(nloc)
+
+  ! local variables:
+  INTEGER i, k
+  REAL tg, qg, ahg, alv, s, tc, es, denom, rg, tca, elacrit
+  REAL by, defrac
+  REAL ah0(nloc), cape(nloc), capem(nloc), byp(nloc)
+  LOGICAL lcape(nloc)
+
+  ! =====================================================================
+  ! --- SOME INITIALIZATIONS
+  ! =====================================================================
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      ep(i, k) = 0.0
+      sigp(i, k) = sigs
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+  ! =====================================================================
+
+  ! ---       The procedure is to solve the equation.
+  ! cp*tp+L*qp+phi=cp*tnk+L*qnk+gznk.
+
+  ! ***  Calculate certain parcel quantities, including static energy   ***
+
+
+  DO i = 1, ncum
+    ah0(i) = (cpd*(1.-qnk(i))+cl*qnk(i))*tnk(i) + qnk(i)*(lv0-clmcpv*(tnk(i)- &
+      t0)) + gznk(i)
+  END DO
+
+
+  ! ***  Find lifted parcel quantities above cloud base    ***
+
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF (k>=(icb(i)+1)) THEN
+        tg = t(i, k)
+        qg = qs(i, k)
+        alv = lv0 - clmcpv*(t(i,k)-t0)
+
+        ! First iteration.
+
+        s = cpd + alv*alv*qg/(rrv*t(i,k)*t(i,k))
+        s = 1./s
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*t(i, k) + alv*qg + gz(i, k)
+        tg = tg + s*(ah0(i)-ahg)
+        tg = max(tg, 35.0)
+        tc = tg - t0
+        denom = 243.5 + tc
+        IF (tc>=0.0) THEN
+          es = 6.112*exp(17.67*tc/denom)
+        ELSE
+          es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+        END IF
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+        ! Second iteration.
+
+        s = cpd + alv*alv*qg/(rrv*t(i,k)*t(i,k))
+        s = 1./s
+        ahg = cpd*tg + (cl-cpd)*qnk(i)*t(i, k) + alv*qg + gz(i, k)
+        tg = tg + s*(ah0(i)-ahg)
+        tg = max(tg, 35.0)
+        tc = tg - t0
+        denom = 243.5 + tc
+        IF (tc>=0.0) THEN
+          es = 6.112*exp(17.67*tc/denom)
+        ELSE
+          es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+        END IF
+        qg = eps*es/(p(i,k)-es*(1.-eps))
+
+        alv = lv0 - clmcpv*(t(i,k)-t0)
+        ! print*,'cpd dans convect2 ',cpd
+        ! print*,'tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd'
+        ! print*,tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd
+        tp(i, k) = (ah0(i)-(cl-cpd)*qnk(i)*t(i,k)-gz(i,k)-alv*qg)/cpd
+        ! if (.not.cpd.gt.1000.) then
+        ! print*,'CPD=',cpd
+        ! stop
+        ! endif
+        clw(i, k) = qnk(i) - qg
+        clw(i, k) = max(0.0, clw(i,k))
+        rg = qg/(1.-qnk(i))
+        tvp(i, k) = tp(i, k)*(1.+rg*epsi)
+      END IF
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- SET THE PRECIPITATION EFFICIENCIES AND THE FRACTION OF
+  ! --- PRECIPITATION FALLING OUTSIDE OF CLOUD
+  ! --- THESE MAY BE FUNCTIONS OF TP(I), P(I) AND CLW(I)
+  ! =====================================================================
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF (k>=(nk(i)+1)) THEN
+        tca = tp(i, k) - t0
+        IF (tca>=0.0) THEN
+          elacrit = elcrit
+        ELSE
+          elacrit = elcrit*(1.0-tca/tlcrit)
+        END IF
+        elacrit = max(elacrit, 0.0)
+        ep(i, k) = 1.0 - elacrit/max(clw(i,k), 1.0E-8)
+        ep(i, k) = max(ep(i,k), 0.0)
+        ep(i, k) = min(ep(i,k), 1.0)
+        sigp(i, k) = sigs
+      END IF
+    END DO
+  END DO
+
+  ! =====================================================================
+  ! --- CALCULATE VIRTUAL TEMPERATURE AND LIFTED PARCEL
+  ! --- VIRTUAL TEMPERATURE
+  ! =====================================================================
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF (k>=(icb(i)+1)) THEN
+        tvp(i, k) = tvp(i, k)*(1.0-qnk(i)+ep(i,k)*clw(i,k))
+        ! print*,'i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)'
+        ! print*, i,k,tvp(i,k),qnk(i),ep(i,k),clw(i,k)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    tvp(i, nlp) = tvp(i, nl) - (gz(i,nlp)-gz(i,nl))/cpd
+  END DO
+
+  ! =====================================================================
+  ! --- FIND THE FIRST MODEL LEVEL (INB1) ABOVE THE PARCEL'S
+  ! --- HIGHEST LEVEL OF NEUTRAL BUOYANCY
+  ! --- AND THE HIGHEST LEVEL OF POSITIVE CAPE (INB)
+  ! =====================================================================
+
+  DO i = 1, ncum
+    cape(i) = 0.0
+    capem(i) = 0.0
+    inb(i) = icb(i) + 1
+    inb1(i) = inb(i)
+  END DO
+
+  ! Originial Code
+
+  ! do 530 k=minorig+1,nl-1
+  ! do 520 i=1,ncum
+  ! if(k.ge.(icb(i)+1))then
+  ! by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! byp=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! cape(i)=cape(i)+by
+  ! if(by.ge.0.0)inb1(i)=k+1
+  ! if(cape(i).gt.0.0)then
+  ! inb(i)=k+1
+  ! capem(i)=cape(i)
+  ! endif
+  ! endif
+  ! 520    continue
+  ! 530  continue
+  ! do 540 i=1,ncum
+  ! byp=(tvp(i,nl)-tv(i,nl))*dph(i,nl)/p(i,nl)
+  ! cape(i)=capem(i)+byp
+  ! defrac=capem(i)-cape(i)
+  ! defrac=max(defrac,0.001)
+  ! frac(i)=-cape(i)/defrac
+  ! frac(i)=min(frac(i),1.0)
+  ! frac(i)=max(frac(i),0.0)
+  ! 540   continue
+
+  ! K Emanuel fix
+
+  ! call zilch(byp,ncum)
+  ! do 530 k=minorig+1,nl-1
+  ! do 520 i=1,ncum
+  ! if(k.ge.(icb(i)+1))then
+  ! by=(tvp(i,k)-tv(i,k))*dph(i,k)/p(i,k)
+  ! cape(i)=cape(i)+by
+  ! if(by.ge.0.0)inb1(i)=k+1
+  ! if(cape(i).gt.0.0)then
+  ! inb(i)=k+1
+  ! capem(i)=cape(i)
+  ! byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
+  ! endif
+  ! endif
+  ! 520    continue
+  ! 530  continue
+  ! do 540 i=1,ncum
+  ! inb(i)=max(inb(i),inb1(i))
+  ! cape(i)=capem(i)+byp(i)
+  ! defrac=capem(i)-cape(i)
+  ! defrac=max(defrac,0.001)
+  ! frac(i)=-cape(i)/defrac
+  ! frac(i)=min(frac(i),1.0)
+  ! frac(i)=max(frac(i),0.0)
+  ! 540   continue
+
+  ! J Teixeira fix
+
+  CALL zilch(byp, ncum)
+  DO i = 1, ncum
+    lcape(i) = .TRUE.
+  END DO
+  DO k = minorig + 1, nl - 1
+    DO i = 1, ncum
+      IF (cape(i)<0.0) lcape(i) = .FALSE.
+      IF ((k>=(icb(i)+1)) .AND. lcape(i)) THEN
+        by = (tvp(i,k)-tv(i,k))*dph(i, k)/p(i, k)
+        byp(i) = (tvp(i,k+1)-tv(i,k+1))*dph(i, k+1)/p(i, k+1)
+        cape(i) = cape(i) + by
+        IF (by>=0.0) inb1(i) = k + 1
+        IF (cape(i)>0.0) THEN
+          inb(i) = k + 1
+          capem(i) = cape(i)
+        END IF
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    cape(i) = capem(i) + byp(i)
+    defrac = capem(i) - cape(i)
+    defrac = max(defrac, 0.001)
+    frac(i) = -cape(i)/defrac
+    frac(i) = min(frac(i), 1.0)
+    frac(i) = max(frac(i), 0.0)
+  END DO
+
+  ! =====================================================================
+  ! ---   CALCULATE LIQUID WATER STATIC ENERGY OF LIFTED PARCEL
+  ! =====================================================================
+
+  ! initialization:
+  DO i = 1, ncum*nlp
+    hp(i, 1) = h(i, 1)
+  END DO
+
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((k>=icb(i)) .AND. (k<=inb(i))) THEN
+        hp(i, k) = h(i, nk(i)) + (lv(i,k)+(cpd-cpv)*t(i,k))*ep(i, k)*clw(i, k &
+          )
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv_undilute2
+
+SUBROUTINE cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, &
+    cpn, iflag, cbmf)
+  IMPLICIT NONE
+
+  ! inputs:
+  INTEGER ncum, nd, nloc
+  INTEGER nk(nloc), icb(nloc)
+  REAL tv(nloc, nd), tvp(nloc, nd), p(nloc, nd), dph(nloc, nd)
+  REAL ph(nloc, nd+1) ! caution nd instead ndp1 to be consistent...
+  REAL plcl(nloc), cpn(nloc, nd)
+
+  ! outputs:
+  INTEGER iflag(nloc)
+  REAL cbmf(nloc) ! also an input
+
+  ! local variables:
+  INTEGER i, k, icbmax
+  REAL dtpbl(nloc), dtmin(nloc), tvpplcl(nloc), tvaplcl(nloc)
+  REAL work(nloc)
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+  ! -------------------------------------------------------------------
+  ! Compute icbmax.
+  ! -------------------------------------------------------------------
+
+  icbmax = 2
+  DO i = 1, ncum
+    icbmax = max(icbmax, icb(i))
+  END DO
+
+  ! =====================================================================
+  ! ---  CALCULATE CLOUD BASE MASS FLUX
+  ! =====================================================================
+
+  ! tvpplcl = parcel temperature lifted adiabatically from level
+  ! icb-1 to the LCL.
+  ! tvaplcl = virtual temperature at the LCL.
+
+  DO i = 1, ncum
+    dtpbl(i) = 0.0
+    tvpplcl(i) = tvp(i, icb(i)-1) - rrd*tvp(i, icb(i)-1)*(p(i,icb(i)-1)-plcl( &
+      i))/(cpn(i,icb(i)-1)*p(i,icb(i)-1))
+    tvaplcl(i) = tv(i, icb(i)) + (tvp(i,icb(i))-tvp(i,icb(i)+1))*(plcl(i)-p(i &
+      ,icb(i)))/(p(i,icb(i))-p(i,icb(i)+1))
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Interpolate difference between lifted parcel and
+  ! --- environmental temperatures to lifted condensation level
+  ! -------------------------------------------------------------------
+
+  ! dtpbl = average of tvp-tv in the PBL (k=nk to icb-1).
+
+  DO k = minorig, icbmax
+    DO i = 1, ncum
+      IF ((k>=nk(i)) .AND. (k<=(icb(i)-1))) THEN
+        dtpbl(i) = dtpbl(i) + (tvp(i,k)-tv(i,k))*dph(i, k)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    dtpbl(i) = dtpbl(i)/(ph(i,nk(i))-ph(i,icb(i)))
+    dtmin(i) = tvpplcl(i) - tvaplcl(i) + dtmax + dtpbl(i)
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Adjust cloud base mass flux
+  ! -------------------------------------------------------------------
+
+  DO i = 1, ncum
+    work(i) = cbmf(i)
+    cbmf(i) = max(0.0, (1.0-damp)*cbmf(i)+0.1*alpha*dtmin(i))
+    IF ((work(i)==0.0) .AND. (cbmf(i)==0.0)) THEN
+      iflag(i) = 3
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE cv_closure
+
+SUBROUTINE cv_mixing(nloc, ncum, nd, icb, nk, inb, inb1, ph, t, q, qs, u, v, &
+    h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, &
+    sij, elij)
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER ncum, nd, nloc
+  INTEGER icb(nloc), inb(nloc), inb1(nloc), nk(nloc)
+  REAL cbmf(nloc), qnk(nloc)
+  REAL ph(nloc, nd+1)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd), lv(nloc, nd)
+  REAL u(nloc, nd), v(nloc, nd), h(nloc, nd), hp(nloc, nd)
+  REAL tv(nloc, nd), tvp(nloc, nd), ep(nloc, nd), clw(nloc, nd)
+
+  ! outputs:
+  INTEGER nent(nloc, nd)
+  REAL m(nloc, nd), ment(nloc, nd, nd), qent(nloc, nd, nd)
+  REAL uent(nloc, nd, nd), vent(nloc, nd, nd)
+  REAL sij(nloc, nd, nd), elij(nloc, nd, nd)
+
+  ! local variables:
+  INTEGER i, j, k, ij
+  INTEGER num1, num2
+  REAL dbo, qti, bf2, anum, denom, dei, altem, cwat, stemp
+  REAL alt, qp1, smid, sjmin, sjmax, delp, delm
+  REAL work(nloc), asij(nloc), smin(nloc), scrit(nloc)
+  REAL bsum(nloc, nd)
+  LOGICAL lwork(nloc)
+
+  ! =====================================================================
+  ! --- INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
+  ! =====================================================================
+
+  DO i = 1, ncum*nlp
+    nent(i, 1) = 0
+    m(i, 1) = 0.0
+  END DO
+
+  DO k = 1, nlp
+    DO j = 1, nlp
+      DO i = 1, ncum
+        qent(i, k, j) = q(i, j)
+        uent(i, k, j) = u(i, j)
+        vent(i, k, j) = v(i, j)
+        elij(i, k, j) = 0.0
+        ment(i, k, j) = 0.0
+        sij(i, k, j) = 0.0
+      END DO
+    END DO
+  END DO
+
+  ! -------------------------------------------------------------------
+  ! --- Calculate rates of mixing,  m(i)
+  ! -------------------------------------------------------------------
+
+  CALL zilch(work, ncum)
+
+  DO j = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((j>=(icb(i)+1)) .AND. (j<=inb(i))) THEN
+        k = min(j, inb1(i))
+        dbo = abs(tv(i,k+1)-tvp(i,k+1)-tv(i,k-1)+tvp(i,k-1)) + &
+          entp*0.04*(ph(i,k)-ph(i,k+1))
+        work(i) = work(i) + dbo
+        m(i, j) = cbmf(i)*dbo
+      END IF
+    END DO
+  END DO
+  DO k = minorig + 1, nl
+    DO i = 1, ncum
+      IF ((k>=(icb(i)+1)) .AND. (k<=inb(i))) THEN
+        m(i, k) = m(i, k)/work(i)
+      END IF
+    END DO
+  END DO
+
+
+  ! =====================================================================
+  ! --- CALCULATE ENTRAINED AIR MASS FLUX (ment), TOTAL WATER MIXING
+  ! --- RATIO (QENT), TOTAL CONDENSED WATER (elij), AND MIXING
+  ! --- FRACTION (sij)
+  ! =====================================================================
+
+
+  DO i = minorig + 1, nl
+    DO j = minorig + 1, nl
+      DO ij = 1, ncum
+        IF ((i>=(icb(ij)+1)) .AND. (j>=icb(ij)) .AND. (i<=inb(ij)) .AND. (j<= &
+            inb(ij))) THEN
+          qti = qnk(ij) - ep(ij, i)*clw(ij, i)
+          bf2 = 1. + lv(ij, j)*lv(ij, j)*qs(ij, j)/(rrv*t(ij,j)*t(ij,j)*cpd)
+          anum = h(ij, j) - hp(ij, i) + (cpv-cpd)*t(ij, j)*(qti-q(ij,j))
+          denom = h(ij, i) - hp(ij, i) + (cpd-cpv)*(q(ij,i)-qti)*t(ij, j)
+          dei = denom
+          IF (abs(dei)<0.01) dei = 0.01
+          sij(ij, i, j) = anum/dei
+          sij(ij, i, i) = 1.0
+          altem = sij(ij, i, j)*q(ij, i) + (1.-sij(ij,i,j))*qti - qs(ij, j)
+          altem = altem/bf2
+          cwat = clw(ij, j)*(1.-ep(ij,j))
+          stemp = sij(ij, i, j)
+          IF ((stemp<0.0 .OR. stemp>1.0 .OR. altem>cwat) .AND. j>i) THEN
+            anum = anum - lv(ij, j)*(qti-qs(ij,j)-cwat*bf2)
+            denom = denom + lv(ij, j)*(q(ij,i)-qti)
+            IF (abs(denom)<0.01) denom = 0.01
+            sij(ij, i, j) = anum/denom
+            altem = sij(ij, i, j)*q(ij, i) + (1.-sij(ij,i,j))*qti - qs(ij, j)
+            altem = altem - (bf2-1.)*cwat
+          END IF
+          IF (sij(ij,i,j)>0.0 .AND. sij(ij,i,j)<0.9) THEN
+            qent(ij, i, j) = sij(ij, i, j)*q(ij, i) + (1.-sij(ij,i,j))*qti
+            uent(ij, i, j) = sij(ij, i, j)*u(ij, i) + &
+              (1.-sij(ij,i,j))*u(ij, nk(ij))
+            vent(ij, i, j) = sij(ij, i, j)*v(ij, i) + &
+              (1.-sij(ij,i,j))*v(ij, nk(ij))
+            elij(ij, i, j) = altem
+            elij(ij, i, j) = max(0.0, elij(ij,i,j))
+            ment(ij, i, j) = m(ij, i)/(1.-sij(ij,i,j))
+            nent(ij, i) = nent(ij, i) + 1
+          END IF
+          sij(ij, i, j) = max(0.0, sij(ij,i,j))
+          sij(ij, i, j) = min(1.0, sij(ij,i,j))
+        END IF
+      END DO
+    END DO
+
+    ! ***   If no air can entrain at level i assume that updraft detrains
+    ! ***
+    ! ***   at that level and calculate detrained air flux and properties
+    ! ***
+
+    DO ij = 1, ncum
+      IF ((i>=(icb(ij)+1)) .AND. (i<=inb(ij)) .AND. (nent(ij,i)==0)) THEN
+        ment(ij, i, i) = m(ij, i)
+        qent(ij, i, i) = q(ij, nk(ij)) - ep(ij, i)*clw(ij, i)
+        uent(ij, i, i) = u(ij, nk(ij))
+        vent(ij, i, i) = v(ij, nk(ij))
+        elij(ij, i, i) = clw(ij, i)
+        sij(ij, i, i) = 1.0
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    sij(i, inb(i), inb(i)) = 1.0
+  END DO
+
+  ! =====================================================================
+  ! ---  NORMALIZE ENTRAINED AIR MASS FLUXES
+  ! ---  TO REPRESENT EQUAL PROBABILITIES OF MIXING
+  ! =====================================================================
+
+  CALL zilch(bsum, ncum*nlp)
+  DO ij = 1, ncum
+    lwork(ij) = .FALSE.
+  END DO
+  DO i = minorig + 1, nl
+
+    num1 = 0
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 789
+
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij))) THEN
+        lwork(ij) = (nent(ij,i)/=0)
+        qp1 = q(ij, nk(ij)) - ep(ij, i)*clw(ij, i)
+        anum = h(ij, i) - hp(ij, i) - lv(ij, i)*(qp1-qs(ij,i))
+        denom = h(ij, i) - hp(ij, i) + lv(ij, i)*(q(ij,i)-qp1)
+        IF (abs(denom)<0.01) denom = 0.01
+        scrit(ij) = anum/denom
+        alt = qp1 - qs(ij, i) + scrit(ij)*(q(ij,i)-qp1)
+        IF (scrit(ij)<0.0 .OR. alt<0.0) scrit(ij) = 1.0
+        asij(ij) = 0.0
+        smin(ij) = 1.0
+      END IF
+    END DO
+    DO j = minorig, nl
+
+      num2 = 0
+      DO ij = 1, ncum
+        IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (j>=icb( &
+          ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) num2 = num2 + 1
+      END DO
+      IF (num2<=0) GO TO 783
+
+      DO ij = 1, ncum
+        IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (j>=icb( &
+            ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) THEN
+          IF (sij(ij,i,j)>0.0 .AND. sij(ij,i,j)<0.9) THEN
+            IF (j>i) THEN
+              smid = min(sij(ij,i,j), scrit(ij))
+              sjmax = smid
+              sjmin = smid
+              IF (smid<smin(ij) .AND. sij(ij,i,j+1)<smid) THEN
+                smin(ij) = smid
+                sjmax = min(sij(ij,i,j+1), sij(ij,i,j), scrit(ij))
+                sjmin = max(sij(ij,i,j-1), sij(ij,i,j))
+                sjmin = min(sjmin, scrit(ij))
+              END IF
+            ELSE
+              sjmax = max(sij(ij,i,j+1), scrit(ij))
+              smid = max(sij(ij,i,j), scrit(ij))
+              sjmin = 0.0
+              IF (j>1) sjmin = sij(ij, i, j-1)
+              sjmin = max(sjmin, scrit(ij))
+            END IF
+            delp = abs(sjmax-smid)
+            delm = abs(sjmin-smid)
+            asij(ij) = asij(ij) + (delp+delm)*(ph(ij,j)-ph(ij,j+1))
+            ment(ij, i, j) = ment(ij, i, j)*(delp+delm)*(ph(ij,j)-ph(ij,j+1))
+          END IF
+        END IF
+      END DO
+783 END DO
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. lwork(ij)) THEN
+        asij(ij) = max(1.0E-21, asij(ij))
+        asij(ij) = 1.0/asij(ij)
+        bsum(ij, i) = 0.0
+      END IF
+    END DO
+    DO j = minorig, nl + 1
+      DO ij = 1, ncum
+        IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (j>=icb( &
+            ij)) .AND. (j<=inb(ij)) .AND. lwork(ij)) THEN
+          ment(ij, i, j) = ment(ij, i, j)*asij(ij)
+          bsum(ij, i) = bsum(ij, i) + ment(ij, i, j)
+        END IF
+      END DO
+    END DO
+    DO ij = 1, ncum
+      IF ((i>=icb(ij)+1) .AND. (i<=inb(ij)) .AND. (bsum(ij, &
+          i)<1.0E-18) .AND. lwork(ij)) THEN
+        nent(ij, i) = 0
+        ment(ij, i, i) = m(ij, i)
+        qent(ij, i, i) = q(ij, nk(ij)) - ep(ij, i)*clw(ij, i)
+        uent(ij, i, i) = u(ij, nk(ij))
+        vent(ij, i, i) = v(ij, nk(ij))
+        elij(ij, i, i) = clw(ij, i)
+        sij(ij, i, i) = 1.0
+      END IF
+    END DO
+789 END DO
+
+  RETURN
+END SUBROUTINE cv_mixing
+
+SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, &
+    ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap)
+  IMPLICIT NONE
+
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER ncum, nd, nloc
+  INTEGER inb(nloc)
+  REAL t(nloc, nd), q(nloc, nd), qs(nloc, nd)
+  REAL gz(nloc, nd), u(nloc, nd), v(nloc, nd)
+  REAL p(nloc, nd), ph(nloc, nd+1), h(nloc, nd)
+  REAL lv(nloc, nd), ep(nloc, nd), sigp(nloc, nd), clw(nloc, nd)
+  REAL m(nloc, nd), ment(nloc, nd, nd), elij(nloc, nd, nd)
+
+  ! outputs:
+  INTEGER iflag(nloc) ! also an input
+  REAL mp(nloc, nd), qp(nloc, nd), up(nloc, nd), vp(nloc, nd)
+  REAL water(nloc, nd), evap(nloc, nd), wt(nloc, nd)
+
+  ! local variables:
+  INTEGER i, j, k, ij, num1
+  INTEGER jtt(nloc)
+  REAL awat, coeff, qsm, afac, sigt, b6, c6, revap
+  REAL dhdp, fac, qstm, rat
+  REAL wdtrain(nloc)
+  LOGICAL lwork(nloc)
+
+  ! =====================================================================
+  ! --- PRECIPITATING DOWNDRAFT CALCULATION
+  ! =====================================================================
+
+  ! Initializations:
+
+  DO i = 1, ncum
+    DO k = 1, nl + 1
+      wt(i, k) = omtsnow
+      mp(i, k) = 0.0
+      evap(i, k) = 0.0
+      water(i, k) = 0.0
+    END DO
+  END DO
+
+  DO i = 1, ncum
+    qp(i, 1) = q(i, 1)
+    up(i, 1) = u(i, 1)
+    vp(i, 1) = v(i, 1)
+  END DO
+
+  DO k = 2, nl + 1
+    DO i = 1, ncum
+      qp(i, k) = q(i, k-1)
+      up(i, k) = u(i, k-1)
+      vp(i, k) = v(i, k-1)
+    END DO
+  END DO
+
+
+  ! ***  Check whether ep(inb)=0, if so, skip precipitating    ***
+  ! ***             downdraft calculation                      ***
+
+
+  ! ***  Integrate liquid water equation to find condensed water   ***
+  ! ***                and condensed water flux                    ***
+
+
+  DO i = 1, ncum
+    jtt(i) = 2
+    IF (ep(i,inb(i))<=0.0001) iflag(i) = 2
+    IF (iflag(i)==0) THEN
+      lwork(i) = .TRUE.
+    ELSE
+      lwork(i) = .FALSE.
+    END IF
+  END DO
+
+  ! ***                    Begin downdraft loop                    ***
+
+
+  CALL zilch(wdtrain, ncum)
+  DO i = nl + 1, 1, -1
+
+    num1 = 0
+    DO ij = 1, ncum
+      IF ((i<=inb(ij)) .AND. lwork(ij)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 899
+
+
+    ! ***        Calculate detrained precipitation             ***
+
+    DO ij = 1, ncum
+      IF ((i<=inb(ij)) .AND. (lwork(ij))) THEN
+        wdtrain(ij) = g*ep(ij, i)*m(ij, i)*clw(ij, i)
+      END IF
+    END DO
+
+    IF (i>1) THEN
+      DO j = 1, i - 1
+        DO ij = 1, ncum
+          IF ((i<=inb(ij)) .AND. (lwork(ij))) THEN
+            awat = elij(ij, j, i) - (1.-ep(ij,i))*clw(ij, i)
+            awat = max(0.0, awat)
+            wdtrain(ij) = wdtrain(ij) + g*awat*ment(ij, j, i)
+          END IF
+        END DO
+      END DO
+    END IF
+
+    ! ***    Find rain water and evaporation using provisional   ***
+    ! ***              estimates of qp(i)and qp(i-1)             ***
+
+
+    ! ***  Value of terminal velocity and coeffecient of evaporation for snow
+    ! ***
+
+    DO ij = 1, ncum
+      IF ((i<=inb(ij)) .AND. (lwork(ij))) THEN
+        coeff = coeffs
+        wt(ij, i) = omtsnow
+
+        ! ***  Value of terminal velocity and coeffecient of evaporation for
+        ! rain   ***
+
+        IF (t(ij,i)>273.0) THEN
+          coeff = coeffr
+          wt(ij, i) = omtrain
+        END IF
+        qsm = 0.5*(q(ij,i)+qp(ij,i+1))
+        afac = coeff*ph(ij, i)*(qs(ij,i)-qsm)/(1.0E4+2.0E3*ph(ij,i)*qs(ij,i))
+        afac = max(afac, 0.0)
+        sigt = sigp(ij, i)
+        sigt = max(0.0, sigt)
+        sigt = min(1.0, sigt)
+        b6 = 100.*(ph(ij,i)-ph(ij,i+1))*sigt*afac/wt(ij, i)
+        c6 = (water(ij,i+1)*wt(ij,i+1)+wdtrain(ij)/sigd)/wt(ij, i)
+        revap = 0.5*(-b6+sqrt(b6*b6+4.*c6))
+        evap(ij, i) = sigt*afac*revap
+        water(ij, i) = revap*revap
+
+        ! ***  Calculate precipitating downdraft mass flux under     ***
+        ! ***              hydrostatic approximation                 ***
+
+        IF (i>1) THEN
+          dhdp = (h(ij,i)-h(ij,i-1))/(p(ij,i-1)-p(ij,i))
+          dhdp = max(dhdp, 10.0)
+          mp(ij, i) = 100.*ginv*lv(ij, i)*sigd*evap(ij, i)/dhdp
+          mp(ij, i) = max(mp(ij,i), 0.0)
+
+          ! ***   Add small amount of inertia to downdraft              ***
+
+          fac = 20.0/(ph(ij,i-1)-ph(ij,i))
+          mp(ij, i) = (fac*mp(ij,i+1)+mp(ij,i))/(1.+fac)
+
+          ! ***      Force mp to decrease linearly to zero
+          ! ***
+          ! ***      between about 950 mb and the surface
+          ! ***
+
+          IF (p(ij,i)>(0.949*p(ij,1))) THEN
+            jtt(ij) = max(jtt(ij), i)
+            mp(ij, i) = mp(ij, jtt(ij))*(p(ij,1)-p(ij,i))/ &
+              (p(ij,1)-p(ij,jtt(ij)))
+          END IF
+        END IF
+
+        ! ***       Find mixing ratio of precipitating downdraft     ***
+
+        IF (i/=inb(ij)) THEN
+          IF (i==1) THEN
+            qstm = qs(ij, 1)
+          ELSE
+            qstm = qs(ij, i-1)
+          END IF
+          IF (mp(ij,i)>mp(ij,i+1)) THEN
+            rat = mp(ij, i+1)/mp(ij, i)
+            qp(ij, i) = qp(ij, i+1)*rat + q(ij, i)*(1.0-rat) + &
+              100.*ginv*sigd*(ph(ij,i)-ph(ij,i+1))*(evap(ij,i)/mp(ij,i))
+            up(ij, i) = up(ij, i+1)*rat + u(ij, i)*(1.-rat)
+            vp(ij, i) = vp(ij, i+1)*rat + v(ij, i)*(1.-rat)
+          ELSE
+            IF (mp(ij,i+1)>0.0) THEN
+              qp(ij, i) = (gz(ij,i+1)-gz(ij,i)+qp(ij,i+1)*(lv(ij,i+1)+t(ij, &
+                i+1)*(cl-cpd))+cpd*(t(ij,i+1)-t(ij, &
+                i)))/(lv(ij,i)+t(ij,i)*(cl-cpd))
+              up(ij, i) = up(ij, i+1)
+              vp(ij, i) = vp(ij, i+1)
+            END IF
+          END IF
+          qp(ij, i) = min(qp(ij,i), qstm)
+          qp(ij, i) = max(qp(ij,i), 0.0)
+        END IF
+      END IF
+    END DO
+899 END DO
+
+  RETURN
+END SUBROUTINE cv_unsat
+
+SUBROUTINE cv_yield(nloc, ncum, nd, nk, icb, inb, delt, t, q, u, v, gz, p, &
+    ph, h, hp, lv, cpn, ep, clw, frac, m, mp, qp, up, vp, wt, water, evap, &
+    ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, &
+    precip, cbmf, ft, fq, fu, fv, ma, qcondc)
+  IMPLICIT NONE
+
+  include "cvthermo.h"
+  include "cvparam.h"
+
+  ! inputs
+  INTEGER ncum, nd, nloc
+  INTEGER nk(nloc), icb(nloc), inb(nloc)
+  INTEGER nent(nloc, nd)
+  REAL delt
+  REAL t(nloc, nd), q(nloc, nd), u(nloc, nd), v(nloc, nd)
+  REAL gz(nloc, nd)
+  REAL p(nloc, nd), ph(nloc, nd+1), h(nloc, nd)
+  REAL hp(nloc, nd), lv(nloc, nd)
+  REAL cpn(nloc, nd), ep(nloc, nd), clw(nloc, nd), frac(nloc)
+  REAL m(nloc, nd), mp(nloc, nd), qp(nloc, nd)
+  REAL up(nloc, nd), vp(nloc, nd)
+  REAL wt(nloc, nd), water(nloc, nd), evap(nloc, nd)
+  REAL ment(nloc, nd, nd), qent(nloc, nd, nd), elij(nloc, nd, nd)
+  REAL uent(nloc, nd, nd), vent(nloc, nd, nd)
+  REAL tv(nloc, nd), tvp(nloc, nd)
+
+  ! outputs
+  INTEGER iflag(nloc) ! also an input
+  REAL cbmf(nloc) ! also an input
+  REAL wd(nloc), tprime(nloc), qprime(nloc)
+  REAL precip(nloc)
+  REAL ft(nloc, nd), fq(nloc, nd), fu(nloc, nd), fv(nloc, nd)
+  REAL ma(nloc, nd)
+  REAL qcondc(nloc, nd)
+
+  ! local variables
+  INTEGER i, j, ij, k, num1
+  REAL dpinv, cpinv, awat, fqold, ftold, fuold, fvold, delti
+  REAL work(nloc), am(nloc), amp1(nloc), ad(nloc)
+  REAL ents(nloc), uav(nloc), vav(nloc), lvcp(nloc, nd)
+  REAL qcond(nloc, nd), nqcond(nloc, nd), wa(nloc, nd) ! cld
+  REAL siga(nloc, nd), ax(nloc, nd), mac(nloc, nd) ! cld
+
+
+  ! -- initializations:
+
+  delti = 1.0/delt
+
+  DO i = 1, ncum
+    precip(i) = 0.0
+    wd(i) = 0.0
+    tprime(i) = 0.0
+    qprime(i) = 0.0
+    DO k = 1, nl + 1
+      ft(i, k) = 0.0
+      fu(i, k) = 0.0
+      fv(i, k) = 0.0
+      fq(i, k) = 0.0
+      lvcp(i, k) = lv(i, k)/cpn(i, k)
+      qcondc(i, k) = 0.0 ! cld
+      qcond(i, k) = 0.0 ! cld
+      nqcond(i, k) = 0.0 ! cld
+    END DO
+  END DO
+
+
+  ! ***  Calculate surface precipitation in mm/day     ***
+
+  DO i = 1, ncum
+    IF (iflag(i)<=1) THEN
+      ! c            precip(i)=precip(i)+wt(i,1)*sigd*water(i,1)*3600.*24000.
+      ! c     &                /(rowl*g)
+      ! c            precip(i)=precip(i)*delt/86400.
+      precip(i) = wt(i, 1)*sigd*water(i, 1)*86400/g
+    END IF
+  END DO
+
+
+  ! ***  Calculate downdraft velocity scale and surface temperature and  ***
+  ! ***                    water vapor fluctuations                      ***
+
+  DO i = 1, ncum
+    wd(i) = betad*abs(mp(i,icb(i)))*0.01*rrd*t(i, icb(i))/(sigd*p(i,icb(i)))
+    qprime(i) = 0.5*(qp(i,1)-q(i,1))
+    tprime(i) = lv0*qprime(i)/cpd
+  END DO
+
+  ! ***  Calculate tendencies of lowest level potential temperature  ***
+  ! ***                      and mixing ratio                        ***
+
+  DO i = 1, ncum
+    work(i) = 0.01/(ph(i,1)-ph(i,2))
+    am(i) = 0.0
+  END DO
+  DO k = 2, nl
+    DO i = 1, ncum
+      IF ((nk(i)==1) .AND. (k<=inb(i)) .AND. (nk(i)==1)) THEN
+        am(i) = am(i) + m(i, k)
+      END IF
+    END DO
+  END DO
+  DO i = 1, ncum
+    IF ((g*work(i)*am(i))>=delti) iflag(i) = 1
+    ft(i, 1) = ft(i, 1) + g*work(i)*am(i)*(t(i,2)-t(i,1)+(gz(i,2)-gz(i, &
+      1))/cpn(i,1))
+    ft(i, 1) = ft(i, 1) - lvcp(i, 1)*sigd*evap(i, 1)
+    ft(i, 1) = ft(i, 1) + sigd*wt(i, 2)*(cl-cpd)*water(i, 2)*(t(i,2)-t(i,1))* &
+      work(i)/cpn(i, 1)
+    fq(i, 1) = fq(i, 1) + g*mp(i, 2)*(qp(i,2)-q(i,1))*work(i) + &
+      sigd*evap(i, 1)
+    fq(i, 1) = fq(i, 1) + g*am(i)*(q(i,2)-q(i,1))*work(i)
+    fu(i, 1) = fu(i, 1) + g*work(i)*(mp(i,2)*(up(i,2)-u(i,1))+am(i)*(u(i, &
+      2)-u(i,1)))
+    fv(i, 1) = fv(i, 1) + g*work(i)*(mp(i,2)*(vp(i,2)-v(i,1))+am(i)*(v(i, &
+      2)-v(i,1)))
+  END DO
+  DO j = 2, nl
+    DO i = 1, ncum
+      IF (j<=inb(i)) THEN
+        fq(i, 1) = fq(i, 1) + g*work(i)*ment(i, j, 1)*(qent(i,j,1)-q(i,1))
+        fu(i, 1) = fu(i, 1) + g*work(i)*ment(i, j, 1)*(uent(i,j,1)-u(i,1))
+        fv(i, 1) = fv(i, 1) + g*work(i)*ment(i, j, 1)*(vent(i,j,1)-v(i,1))
+      END IF
+    END DO
+  END DO
+
+  ! ***  Calculate tendencies of potential temperature and mixing ratio  ***
+  ! ***               at levels above the lowest level                   ***
+
+  ! ***  First find the net saturated updraft and downdraft mass fluxes  ***
+  ! ***                      through each level                          ***
+
+  DO i = 2, nl + 1
+
+    num1 = 0
+    DO ij = 1, ncum
+      IF (i<=inb(ij)) num1 = num1 + 1
+    END DO
+    IF (num1<=0) GO TO 1500
+
+    CALL zilch(amp1, ncum)
+    CALL zilch(ad, ncum)
+
+    DO k = i + 1, nl + 1
+      DO ij = 1, ncum
+        IF ((i>=nk(ij)) .AND. (i<=inb(ij)) .AND. (k<=(inb(ij)+1))) THEN
+          amp1(ij) = amp1(ij) + m(ij, k)
+        END IF
+      END DO
+    END DO
+
+    DO k = 1, i
+      DO j = i + 1, nl + 1
+        DO ij = 1, ncum
+          IF ((j<=(inb(ij)+1)) .AND. (i<=inb(ij))) THEN
+            amp1(ij) = amp1(ij) + ment(ij, k, j)
+          END IF
+        END DO
+      END DO
+    END DO
+    DO k = 1, i - 1
+      DO j = i, nl + 1
+        DO ij = 1, ncum
+          IF ((i<=inb(ij)) .AND. (j<=inb(ij))) THEN
+            ad(ij) = ad(ij) + ment(ij, j, k)
+          END IF
+        END DO
+      END DO
+    END DO
+
+    DO ij = 1, ncum
+      IF (i<=inb(ij)) THEN
+        dpinv = 0.01/(ph(ij,i)-ph(ij,i+1))
+        cpinv = 1.0/cpn(ij, i)
+
+        ft(ij, i) = ft(ij, i) + g*dpinv*(amp1(ij)*(t(ij,i+1)-t(ij, &
+          i)+(gz(ij,i+1)-gz(ij,i))*cpinv)-ad(ij)*(t(ij,i)-t(ij, &
+          i-1)+(gz(ij,i)-gz(ij,i-1))*cpinv)) - sigd*lvcp(ij, i)*evap(ij, i)
+        ft(ij, i) = ft(ij, i) + g*dpinv*ment(ij, i, i)*(hp(ij,i)-h(ij,i)+t(ij &
+          ,i)*(cpv-cpd)*(q(ij,i)-qent(ij,i,i)))*cpinv
+        ft(ij, i) = ft(ij, i) + sigd*wt(ij, i+1)*(cl-cpd)*water(ij, i+1)*(t( &
+          ij,i+1)-t(ij,i))*dpinv*cpinv
+        fq(ij, i) = fq(ij, i) + g*dpinv*(amp1(ij)*(q(ij,i+1)-q(ij, &
+          i))-ad(ij)*(q(ij,i)-q(ij,i-1)))
+        fu(ij, i) = fu(ij, i) + g*dpinv*(amp1(ij)*(u(ij,i+1)-u(ij, &
+          i))-ad(ij)*(u(ij,i)-u(ij,i-1)))
+        fv(ij, i) = fv(ij, i) + g*dpinv*(amp1(ij)*(v(ij,i+1)-v(ij, &
+          i))-ad(ij)*(v(ij,i)-v(ij,i-1)))
+      END IF
+    END DO
+    DO k = 1, i - 1
+      DO ij = 1, ncum
+        IF (i<=inb(ij)) THEN
+          awat = elij(ij, k, i) - (1.-ep(ij,i))*clw(ij, i)
+          awat = max(awat, 0.0)
+          fq(ij, i) = fq(ij, i) + g*dpinv*ment(ij, k, i)*(qent(ij,k,i)-awat-q &
+            (ij,i))
+          fu(ij, i) = fu(ij, i) + g*dpinv*ment(ij, k, i)*(uent(ij,k,i)-u(ij,i &
+            ))
+          fv(ij, i) = fv(ij, i) + g*dpinv*ment(ij, k, i)*(vent(ij,k,i)-v(ij,i &
+            ))
+          ! (saturated updrafts resulting from mixing)               ! cld
+          qcond(ij, i) = qcond(ij, i) + (elij(ij,k,i)-awat) ! cld
+          nqcond(ij, i) = nqcond(ij, i) + 1. ! cld
+        END IF
+      END DO
+    END DO
+    DO k = i, nl + 1
+      DO ij = 1, ncum
+        IF ((i<=inb(ij)) .AND. (k<=inb(ij))) THEN
+          fq(ij, i) = fq(ij, i) + g*dpinv*ment(ij, k, i)*(qent(ij,k,i)-q(ij,i &
+            ))
+          fu(ij, i) = fu(ij, i) + g*dpinv*ment(ij, k, i)*(uent(ij,k,i)-u(ij,i &
+            ))
+          fv(ij, i) = fv(ij, i) + g*dpinv*ment(ij, k, i)*(vent(ij,k,i)-v(ij,i &
+            ))
+        END IF
+      END DO
+    END DO
+    DO ij = 1, ncum
+      IF (i<=inb(ij)) THEN
+        fq(ij, i) = fq(ij, i) + sigd*evap(ij, i) + g*(mp(ij,i+1)*(qp(ij, &
+          i+1)-q(ij,i))-mp(ij,i)*(qp(ij,i)-q(ij,i-1)))*dpinv
+        fu(ij, i) = fu(ij, i) + g*(mp(ij,i+1)*(up(ij,i+1)-u(ij, &
+          i))-mp(ij,i)*(up(ij,i)-u(ij,i-1)))*dpinv
+        fv(ij, i) = fv(ij, i) + g*(mp(ij,i+1)*(vp(ij,i+1)-v(ij, &
+          i))-mp(ij,i)*(vp(ij,i)-v(ij,i-1)))*dpinv
+        ! (saturated downdrafts resulting from mixing)               ! cld
+        DO k = i + 1, inb(ij) ! cld
+          qcond(ij, i) = qcond(ij, i) + elij(ij, k, i) ! cld
+          nqcond(ij, i) = nqcond(ij, i) + 1. ! cld
+        END DO ! cld
+        ! (particular case: no detraining level is found)            ! cld
+        IF (nent(ij,i)==0) THEN ! cld
+          qcond(ij, i) = qcond(ij, i) + (1.-ep(ij,i))*clw(ij, i) ! cld
+          nqcond(ij, i) = nqcond(ij, i) + 1. ! cld
+        END IF ! cld
+        IF (nqcond(ij,i)/=0.) THEN ! cld
+          qcond(ij, i) = qcond(ij, i)/nqcond(ij, i) ! cld
+        END IF ! cld
+      END IF
+    END DO
+1500 END DO
+
+  ! *** Adjust tendencies at top of convection layer to reflect  ***
+  ! ***       actual position of the level zero cape             ***
+
+  DO ij = 1, ncum
+    fqold = fq(ij, inb(ij))
+    fq(ij, inb(ij)) = fq(ij, inb(ij))*(1.-frac(ij))
+    fq(ij, inb(ij)-1) = fq(ij, inb(ij)-1) + frac(ij)*fqold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij, &
+      inb(ij))))*lv(ij, inb(ij))/lv(ij, inb(ij)-1)
+    ftold = ft(ij, inb(ij))
+    ft(ij, inb(ij)) = ft(ij, inb(ij))*(1.-frac(ij))
+    ft(ij, inb(ij)-1) = ft(ij, inb(ij)-1) + frac(ij)*ftold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij, &
+      inb(ij))))*cpn(ij, inb(ij))/cpn(ij, inb(ij)-1)
+    fuold = fu(ij, inb(ij))
+    fu(ij, inb(ij)) = fu(ij, inb(ij))*(1.-frac(ij))
+    fu(ij, inb(ij)-1) = fu(ij, inb(ij)-1) + frac(ij)*fuold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij,inb(ij))))
+    fvold = fv(ij, inb(ij))
+    fv(ij, inb(ij)) = fv(ij, inb(ij))*(1.-frac(ij))
+    fv(ij, inb(ij)-1) = fv(ij, inb(ij)-1) + frac(ij)*fvold*((ph(ij, &
+      inb(ij))-ph(ij,inb(ij)+1))/(ph(ij,inb(ij)-1)-ph(ij,inb(ij))))
+  END DO
+
+  ! ***   Very slightly adjust tendencies to force exact   ***
+  ! ***     enthalpy, momentum and tracer conservation     ***
+
+  DO ij = 1, ncum
+    ents(ij) = 0.0
+    uav(ij) = 0.0
+    vav(ij) = 0.0
+    DO i = 1, inb(ij)
+      ents(ij) = ents(ij) + (cpn(ij,i)*ft(ij,i)+lv(ij,i)*fq(ij,i))*(ph(ij,i)- &
+        ph(ij,i+1))
+      uav(ij) = uav(ij) + fu(ij, i)*(ph(ij,i)-ph(ij,i+1))
+      vav(ij) = vav(ij) + fv(ij, i)*(ph(ij,i)-ph(ij,i+1))
+    END DO
+  END DO
+  DO ij = 1, ncum
+    ents(ij) = ents(ij)/(ph(ij,1)-ph(ij,inb(ij)+1))
+    uav(ij) = uav(ij)/(ph(ij,1)-ph(ij,inb(ij)+1))
+    vav(ij) = vav(ij)/(ph(ij,1)-ph(ij,inb(ij)+1))
+  END DO
+  DO ij = 1, ncum
+    DO i = 1, inb(ij)
+      ft(ij, i) = ft(ij, i) - ents(ij)/cpn(ij, i)
+      fu(ij, i) = (1.-cu)*(fu(ij,i)-uav(ij))
+      fv(ij, i) = (1.-cu)*(fv(ij,i)-vav(ij))
+    END DO
+  END DO
+
+  DO k = 1, nl + 1
+    DO i = 1, ncum
+      IF ((q(i,k)+delt*fq(i,k))<0.0) iflag(i) = 10
+    END DO
+  END DO
+
+
+  DO i = 1, ncum
+    IF (iflag(i)>2) THEN
+      precip(i) = 0.0
+      cbmf(i) = 0.0
+    END IF
+  END DO
+  DO k = 1, nl
+    DO i = 1, ncum
+      IF (iflag(i)>2) THEN
+        ft(i, k) = 0.0
+        fq(i, k) = 0.0
+        fu(i, k) = 0.0
+        fv(i, k) = 0.0
+        qcondc(i, k) = 0.0 ! cld
+      END IF
+    END DO
+  END DO
+
+  DO k = 1, nl + 1
+    DO i = 1, ncum
+      ma(i, k) = 0.
+    END DO
+  END DO
+  DO k = nl, 1, -1
+    DO i = 1, ncum
+      ma(i, k) = ma(i, k+1) + m(i, k)
+    END DO
+  END DO
+
+
+  ! *** diagnose the in-cloud mixing ratio   ***            ! cld
+  ! ***           of condensed water         ***            ! cld
+  ! ! cld
+  DO ij = 1, ncum ! cld
+    DO i = 1, nd ! cld
+      mac(ij, i) = 0.0 ! cld
+      wa(ij, i) = 0.0 ! cld
+      siga(ij, i) = 0.0 ! cld
+    END DO ! cld
+    DO i = nk(ij), inb(ij) ! cld
+      DO k = i + 1, inb(ij) + 1 ! cld
+        mac(ij, i) = mac(ij, i) + m(ij, k) ! cld
+      END DO ! cld
+    END DO ! cld
+    DO i = icb(ij), inb(ij) - 1 ! cld
+      ax(ij, i) = 0. ! cld
+      DO j = icb(ij), i ! cld
+        ax(ij, i) = ax(ij, i) + rrd*(tvp(ij,j)-tv(ij,j)) & ! cld
+          *(ph(ij,j)-ph(ij,j+1))/p(ij, j) ! cld
+      END DO ! cld
+      IF (ax(ij,i)>0.0) THEN ! cld
+        wa(ij, i) = sqrt(2.*ax(ij,i)) ! cld
+      END IF ! cld
+    END DO ! cld
+    DO i = 1, nl ! cld
+      IF (wa(ij,i)>0.0) &          ! cld
+        siga(ij, i) = mac(ij, i)/wa(ij, i) & ! cld
+        *rrd*tvp(ij, i)/p(ij, i)/100./delta ! cld
+      siga(ij, i) = min(siga(ij,i), 1.0) ! cld
+      qcondc(ij, i) = siga(ij, i)*clw(ij, i)*(1.-ep(ij,i)) & ! cld
+        +(1.-siga(ij,i))*qcond(ij, i) ! cld
+    END DO ! cld
+  END DO ! cld
+
+  RETURN
+END SUBROUTINE cv_yield
+
+SUBROUTINE cv_uncompress(nloc, len, ncum, nd, idcum, iflag, precip, cbmf, ft, &
+    fq, fu, fv, ma, qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, ma1, &
+    qcondc1)
+  IMPLICIT NONE
+
+  include "cvparam.h"
+
+  ! inputs:
+  INTEGER len, ncum, nd, nloc
+  INTEGER idcum(nloc)
+  INTEGER iflag(nloc)
+  REAL precip(nloc), cbmf(nloc)
+  REAL ft(nloc, nd), fq(nloc, nd), fu(nloc, nd), fv(nloc, nd)
+  REAL ma(nloc, nd)
+  REAL qcondc(nloc, nd) !cld
+
+  ! outputs:
+  INTEGER iflag1(len)
+  REAL precip1(len), cbmf1(len)
+  REAL ft1(len, nd), fq1(len, nd), fu1(len, nd), fv1(len, nd)
+  REAL ma1(len, nd)
+  REAL qcondc1(len, nd) !cld
+
+  ! local variables:
+  INTEGER i, k
+
+  DO i = 1, ncum
+    precip1(idcum(i)) = precip(i)
+    cbmf1(idcum(i)) = cbmf(i)
+    iflag1(idcum(i)) = iflag(i)
+  END DO
+
+  DO k = 1, nl
+    DO i = 1, ncum
+      ft1(idcum(i), k) = ft(i, k)
+      fq1(idcum(i), k) = fq(i, k)
+      fu1(idcum(i), k) = fu(i, k)
+      fv1(idcum(i), k) = fv(i, k)
+      ma1(idcum(i), k) = ma(i, k)
+      qcondc1(idcum(i), k) = qcondc(i, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE cv_uncompress
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cva_driver.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cva_driver.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cva_driver.F90	(revision 3330)
@@ -0,0 +1,1185 @@
+
+! $Id$
+
+SUBROUTINE cva_driver(len, nd, ndp1, ntra, nloc, k_upper, &
+                      iflag_con, iflag_mix, iflag_ice_thermo, iflag_clos, ok_conserv_q, &
+!!                      delt, t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &  ! jyg
+                      delt, comp_threshold, &                                      ! jyg
+                      t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &          ! jyg
+                      u1, v1, tra1, &
+                      p1, ph1, &
+                      Ale1, Alp1, omega1, &
+                      sig1feed1, sig2feed1, wght1, &
+                      iflag1, ft1, fq1, fu1, fv1, ftra1, &
+                      precip1, kbas1, ktop1, &
+                      cbmf1, plcl1, plfc1, wbeff1, &
+                      sig1, w01, & !input/output
+                      ptop21, sigd1, &
+                      ma1, mip1, Vprecip1, Vprecipi1, upwd1, dnwd1, dnwd01, &      ! jyg
+                      qcondc1, wd1, &
+                      cape1, cin1, tvp1, &
+                      ftd1, fqd1, &
+                      Plim11, Plim21, asupmax1, supmax01, asupmaxmin1, &
+                      lalim_conv1, & 
+!!                      da1,phi1,mp1,phi21,d1a1,dam1,sigij1,clw1, &        ! RomP
+!!                      elij1,evap1,ep1,epmlmMm1,eplaMm1, &                ! RomP
+                      da1, phi1, mp1, phi21, d1a1, dam1, sigij1, wghti1, & ! RomP, RL
+                      clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, &        ! RomP, RL
+                      wdtrainA1, wdtrainM1, qtc1, sigt1, tau_cld_cv, &
+                      coefw_cld_cv, &                                      ! RomP, AJ
+                      epmax_diag1)  ! epmax_cape
+! **************************************************************
+! *
+! CV_DRIVER                                                   *
+! *
+! *
+! written by   : Sandrine Bony-Lena , 17/05/2003, 11.19.41    *
+! modified by :                                               *
+! **************************************************************
+! **************************************************************
+
+  USE dimphy
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+
+! .............................START PROLOGUE............................
+
+
+! All argument names (except len,nd,ntra,nloc,delt and the flags) have a "1" appended.
+! The "1" is removed for the corresponding compressed variables.
+! PARAMETERS:
+! Name            Type         Usage            Description
+! ----------      ----------     -------  ----------------------------
+
+! len           Integer        Input        first (i) dimension
+! nd            Integer        Input        vertical (k) dimension
+! ndp1          Integer        Input        nd + 1
+! ntra          Integer        Input        number of tracors
+! nloc          Integer        Input        dimension of arrays for compressed fields
+! k_upper       Integer        Input        upmost level for vertical loops
+! iflag_con     Integer        Input        version of convect (3/4)
+! iflag_mix     Integer        Input        version of mixing  (0/1/2)
+! iflag_ice_thermo Integer        Input        accounting for ice thermodynamics (0/1)
+! iflag_clos    Integer        Input        version of closure (0/1)
+! tau_cld_cv    Real           Input        characteristic time of dissipation of mixing fluxes
+! coefw_cld_cv  Real           Input        coefficient for updraft velocity in convection
+! ok_conserv_q  Logical        Input        when true corrections for water conservation are swtiched on
+! delt          Real           Input        time step
+! comp_threshold Real           Input       threshold on the fraction of convective points below which
+!                                            fields  are compressed
+! t1            Real           Input        temperature (sat draught envt)
+! q1            Real           Input        specific hum (sat draught envt)
+! qs1           Real           Input        sat specific hum (sat draught envt)
+! t1_wake       Real           Input        temperature (unsat draught envt)
+! q1_wake       Real           Input        specific hum(unsat draught envt)
+! qs1_wake      Real           Input        sat specific hum(unsat draughts envt)
+! s1_wake       Real           Input        fractionnal area covered by wakes
+! u1            Real           Input        u-wind
+! v1            Real           Input        v-wind
+! tra1          Real           Input        tracors
+! p1            Real           Input        full level pressure
+! ph1           Real           Input        half level pressure
+! ALE1          Real           Input        Available lifting Energy
+! ALP1          Real           Input        Available lifting Power
+! sig1feed1     Real           Input        sigma coord at lower bound of feeding layer
+! sig2feed1     Real           Input        sigma coord at upper bound of feeding layer
+! wght1         Real           Input        weight density determining the feeding mixture
+! iflag1        Integer        Output       flag for Emanuel conditions
+! ft1           Real           Output       temp tend
+! fq1           Real           Output       spec hum tend
+! fu1           Real           Output       u-wind tend
+! fv1           Real           Output       v-wind tend
+! ftra1         Real           Output       tracor tend
+! precip1       Real           Output       precipitation
+! kbas1         Integer        Output       cloud base level
+! ktop1         Integer        Output       cloud top level
+! cbmf1         Real           Output       cloud base mass flux
+! sig1          Real           In/Out       section adiabatic updraft
+! w01           Real           In/Out       vertical velocity within adiab updraft
+! ptop21        Real           In/Out       top of entraining zone
+! Ma1           Real           Output       mass flux adiabatic updraft
+! mip1          Real           Output       mass flux shed by the adiabatic updraft
+! Vprecip1      Real           Output       vertical profile of total precipitation
+! Vprecipi1     Real           Output       vertical profile of ice precipitation
+! upwd1         Real           Output       total upward mass flux (adiab+mixed)
+! dnwd1         Real           Output       saturated downward mass flux (mixed)
+! dnwd01        Real           Output       unsaturated downward mass flux
+! qcondc1       Real           Output       in-cld mixing ratio of condensed water
+! wd1           Real           Output       downdraft velocity scale for sfc fluxes
+! cape1         Real           Output       CAPE
+! cin1          Real           Output       CIN
+! tvp1          Real           Output       adiab lifted parcell virt temp
+! ftd1          Real           Output       precip temp tend
+! fqt1          Real           Output       precip spec hum tend
+! Plim11        Real           Output
+! Plim21        Real           Output
+! asupmax1      Real           Output
+! supmax01      Real           Output
+! asupmaxmin1   Real           Output
+
+! ftd1          Real           Output  Array of temperature tendency due to precipitations (K/s) of dimension ND,
+!                                      defined at same grid levels as T, Q, QS and P.
+
+! fqd1          Real           Output  Array of specific humidity tendencies due to precipitations ((gm/gm)/s)
+!                                      of dimension ND, defined at same grid levels as T, Q, QS and P.
+
+! wdtrainA1     Real           Output   precipitation detrained from adiabatic draught;
+!                                         used in tracer transport (cvltr)
+! wdtrainM1     Real           Output   precipitation detrained from mixed draughts;
+!                                         used in tracer transport (cvltr)
+! da1           Real           Output     used in tracer transport (cvltr)
+! phi1          Real           Output     used in tracer transport (cvltr)
+! mp1           Real           Output     used in tracer transport (cvltr)
+! qtc1          Real           Output     specific humidity in convection
+! sigt1         Real           Output     surface fraction in adiabatic updrafts                                         
+! phi21         Real           Output     used in tracer transport (cvltr)
+                                         
+! d1a1          Real           Output     used in tracer transport (cvltr)
+! dam1          Real           Output     used in tracer transport (cvltr)
+                                         
+! epmlmMm1      Real           Output     used in tracer transport (cvltr)
+! eplaMm1       Real           Output     used in tracer transport (cvltr)
+                                         
+! evap1         Real           Output    
+! ep1           Real           Output    
+! sigij1        Real           Output     used in tracer transport (cvltr)
+! elij1         Real           Output
+! wghti1        Real           Output   final weight of the feeding layers,
+!                                         used in tracer transport (cvltr)
+
+
+! S. Bony, Mar 2002:
+! * Several modules corresponding to different physical processes
+! * Several versions of convect may be used:
+!         - iflag_con=3: version lmd  (previously named convect3)
+!         - iflag_con=4: version 4.3b (vect. version, previously convect1/2)
+! + tard: - iflag_con=5: version lmd with ice (previously named convectg)
+! S. Bony, Oct 2002:
+! * Vectorization of convect3 (ie version lmd)
+
+! ..............................END PROLOGUE.............................
+
+
+
+! Input
+  INTEGER, INTENT (IN)                               :: len
+  INTEGER, INTENT (IN)                               :: nd
+  INTEGER, INTENT (IN)                               :: ndp1
+  INTEGER, INTENT (IN)                               :: ntra
+  INTEGER, INTENT(IN)                                :: nloc ! (nloc=klon)  pour l'instant
+  INTEGER, INTENT (IN)                               :: k_upper
+  INTEGER, INTENT (IN)                               :: iflag_con
+  INTEGER, INTENT (IN)                               :: iflag_mix
+  INTEGER, INTENT (IN)                               :: iflag_ice_thermo
+  INTEGER, INTENT (IN)                               :: iflag_clos
+  LOGICAL, INTENT (IN)                               :: ok_conserv_q
+  REAL, INTENT (IN)                                  :: tau_cld_cv
+  REAL, INTENT (IN)                                  :: coefw_cld_cv
+  REAL, INTENT (IN)                                  :: delt
+  REAL, INTENT (IN)                                  :: comp_threshold
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: t1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: q1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: qs1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: t1_wake
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: q1_wake
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: qs1_wake
+  REAL, DIMENSION (len), INTENT (IN)                 :: s1_wake
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: u1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: v1
+  REAL, DIMENSION (len, nd, ntra), INTENT (IN)       :: tra1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: p1
+  REAL, DIMENSION (len, ndp1), INTENT (IN)           :: ph1
+  REAL, DIMENSION (len), INTENT (IN)                 :: Ale1
+  REAL, DIMENSION (len), INTENT (IN)                 :: Alp1
+  REAL, DIMENSION (len, nd), INTENT (IN)             :: omega1
+  REAL, INTENT (IN)                                  :: sig1feed1 ! pressure at lower bound of feeding layer
+  REAL, INTENT (IN)                                  :: sig2feed1 ! pressure at upper bound of feeding layer
+  REAL, DIMENSION (nd), INTENT (IN)                  :: wght1     ! weight density determining the feeding mixture
+  INTEGER, DIMENSION (len), INTENT (IN)              :: lalim_conv1
+
+! Input/Output
+  REAL, DIMENSION (len, nd), INTENT (INOUT)          :: sig1
+  REAL, DIMENSION (len, nd), INTENT (INOUT)          :: w01
+
+! Output
+  INTEGER, DIMENSION (len), INTENT (OUT)             :: iflag1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: ft1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: fq1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: fu1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: fv1
+  REAL, DIMENSION (len, nd, ntra), INTENT (OUT)      :: ftra1
+  REAL, DIMENSION (len), INTENT (OUT)                :: precip1
+  INTEGER, DIMENSION (len), INTENT (OUT)             :: kbas1
+  INTEGER, DIMENSION (len), INTENT (OUT)             :: ktop1
+  REAL, DIMENSION (len), INTENT (OUT)                :: cbmf1
+  REAL, DIMENSION (len), INTENT (OUT)                :: plcl1
+  REAL, DIMENSION (len), INTENT (OUT)                :: plfc1
+  REAL, DIMENSION (len), INTENT (OUT)                :: wbeff1
+  REAL, DIMENSION (len), INTENT (OUT)                :: ptop21
+  REAL, DIMENSION (len), INTENT (OUT)                :: sigd1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: ma1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: mip1
+! real Vprecip1(len,nd)
+  REAL, DIMENSION (len, ndp1), INTENT (OUT)          :: vprecip1
+  REAL, DIMENSION (len, ndp1), INTENT (OUT)          :: vprecipi1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: upwd1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: dnwd1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: dnwd01
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: qcondc1         ! cld
+  REAL, DIMENSION (len), INTENT (OUT)                :: wd1             ! gust
+  REAL, DIMENSION (len), INTENT (OUT)                :: cape1
+  REAL, DIMENSION (len), INTENT (OUT)                :: cin1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: tvp1
+
+!AC!
+!!      real da1(len,nd),phi1(len,nd,nd)
+!!      real da(len,nd),phi(len,nd,nd)
+!AC!
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: ftd1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: fqd1
+  REAL, DIMENSION (len), INTENT (OUT)                :: Plim11
+  REAL, DIMENSION (len), INTENT (OUT)                :: Plim21
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: asupmax1
+  REAL, DIMENSION (len), INTENT (OUT)                :: supmax01
+  REAL, DIMENSION (len), INTENT (OUT)                :: asupmaxmin1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: qtc1            ! cld
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: sigt1           ! cld
+
+! RomP >>>
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: wdtrainA1, wdtrainM1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: da1, mp1
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: phi1
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: epmlmMm1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: eplaMm1
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: evap1, ep1
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: sigij1, elij1
+!JYG,RL
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: wghti1      ! final weight of the feeding layers
+!JYG,RL
+  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: phi21
+  REAL, DIMENSION (len, nd), INTENT (OUT)            :: d1a1, dam1
+! RomP <<<
+  REAL, DIMENSION (len ), INTENT (OUT)               :: epmax_diag1      
+
+! -------------------------------------------------------------------
+! Prolog by Kerry Emanuel.
+! -------------------------------------------------------------------
+! --- ARGUMENTS
+! -------------------------------------------------------------------
+! --- On input:
+
+! t:   Array of absolute temperature (K) of dimension ND, with first
+! index corresponding to lowest model level. Note that this array
+! will be altered by the subroutine if dry convective adjustment
+! occurs and if IPBL is not equal to 0.
+
+! q:   Array of specific humidity (gm/gm) of dimension ND, with first
+! index corresponding to lowest model level. Must be defined
+! at same grid levels as T. Note that this array will be altered
+! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+! qs:  Array of saturation specific humidity of dimension ND, with first
+! index corresponding to lowest model level. Must be defined
+! at same grid levels as T. Note that this array will be altered
+! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+! t_wake: Array of absolute temperature (K), seen by unsaturated draughts,
+! of dimension ND, with first index corresponding to lowest model level.
+
+! q_wake: Array of specific humidity (gm/gm), seen by unsaturated draughts,
+! of dimension ND, with first index corresponding to lowest model level.
+! Must be defined at same grid levels as T.
+
+! qs_wake: Array of saturation specific humidity, seen by unsaturated draughts,
+! of dimension ND, with first index corresponding to lowest model level.
+! Must be defined at same grid levels as T.
+
+! s_wake: Array of fractionnal area occupied by the wakes.
+
+! u:   Array of zonal wind velocity (m/s) of dimension ND, witth first
+! index corresponding with the lowest model level. Defined at
+! same levels as T. Note that this array will be altered if
+! dry convective adjustment occurs and if IPBL is not equal to 0.
+
+! v:   Same as u but for meridional velocity.
+
+! tra: Array of passive tracer mixing ratio, of dimensions (ND,NTRA),
+! where NTRA is the number of different tracers. If no
+! convective tracer transport is needed, define a dummy
+! input array of dimension (ND,1). Tracers are defined at
+! same vertical levels as T. Note that this array will be altered
+! if dry convective adjustment occurs and if IPBL is not equal to 0.
+
+! p:   Array of pressure (mb) of dimension ND, with first
+! index corresponding to lowest model level. Must be defined
+! at same grid levels as T.
+
+! ph:  Array of pressure (mb) of dimension ND+1, with first index
+! corresponding to lowest level. These pressures are defined at
+! levels intermediate between those of P, T, Q and QS. The first
+! value of PH should be greater than (i.e. at a lower level than)
+! the first value of the array P.
+
+! ALE:  Available lifting Energy
+
+! ALP:  Available lifting Power
+
+! nl:  The maximum number of levels to which convection can penetrate, plus 1.
+!       NL MUST be less than or equal to ND-1.
+
+! delt: The model time step (sec) between calls to CONVECT
+
+! ----------------------------------------------------------------------------
+! ---   On Output:
+
+! iflag: An output integer whose value denotes the following:
+!       VALUE   INTERPRETATION
+!       -----   --------------
+!         0     Moist convection occurs.
+!         1     Moist convection occurs, but a CFL condition
+!               on the subsidence warming is violated. This
+!               does not cause the scheme to terminate.
+!         2     Moist convection, but no precip because ep(inb) lt 0.0001
+!         3     No moist convection because new cbmf is 0 and old cbmf is 0.
+!         4     No moist convection; atmosphere is not
+!               unstable
+!         6     No moist convection because ihmin le minorig.
+!         7     No moist convection because unreasonable
+!               parcel level temperature or specific humidity.
+!         8     No moist convection: lifted condensation
+!               level is above the 200 mb level.
+!         9     No moist convection: cloud base is higher
+!               then the level NL-1.
+
+! ft:   Array of temperature tendency (K/s) of dimension ND, defined at same
+!       grid levels as T, Q, QS and P.
+
+! fq:   Array of specific humidity tendencies ((gm/gm)/s) of dimension ND,
+!       defined at same grid levels as T, Q, QS and P.
+
+! fu:   Array of forcing of zonal velocity (m/s^2) of dimension ND,
+!      defined at same grid levels as T.
+
+! fv:   Same as FU, but for forcing of meridional velocity.
+
+! ftra: Array of forcing of tracer content, in tracer mixing ratio per
+!       second, defined at same levels as T. Dimensioned (ND,NTRA).
+
+! precip: Scalar convective precipitation rate (mm/day).
+
+! wd:   A convective downdraft velocity scale. For use in surface
+!       flux parameterizations. See convect.ps file for details.
+
+! tprime: A convective downdraft temperature perturbation scale (K).
+!         For use in surface flux parameterizations. See convect.ps
+!         file for details.
+
+! qprime: A convective downdraft specific humidity
+!         perturbation scale (gm/gm).
+!         For use in surface flux parameterizations. See convect.ps
+!         file for details.
+
+! cbmf: The cloud base mass flux ((kg/m**2)/s). THIS SCALAR VALUE MUST
+!       BE STORED BY THE CALLING PROGRAM AND RETURNED TO CONVECT AT
+!       ITS NEXT CALL. That is, the value of CBMF must be "remembered"
+!       by the calling program between calls to CONVECT.
+
+! det:   Array of detrainment mass flux of dimension ND.
+! -------------------------------------------------------------------
+
+! Local (non compressed) arrays
+
+
+  INTEGER i, k, n, il, j
+  INTEGER nword1, nword2, nword3, nword4
+  INTEGER icbmax
+  INTEGER nk1(klon)
+  INTEGER icb1(klon)
+  INTEGER icbs1(klon)
+
+  LOGICAL ok_inhib ! True => possible inhibition of convection by dryness
+  LOGICAL, SAVE :: debut = .TRUE.
+!$OMP THREADPRIVATE(debut)
+
+  REAL coef_convective(len)   ! = 1 for convective points, = 0 otherwise
+  REAL tnk1(klon)
+  REAL thnk1(klon)
+  REAL qnk1(klon)
+  REAL gznk1(klon)
+  REAL pnk1(klon)
+  REAL qsnk1(klon)
+  REAL unk1(klon)
+  REAL vnk1(klon)
+  REAL cpnk1(klon)
+  REAL hnk1(klon)
+  REAL pbase1(klon)
+  REAL buoybase1(klon)
+
+  REAL lf1(klon, klev), lf1_wake(klon, klev)
+  REAL lv1(klon, klev), lv1_wake(klon, klev)
+  REAL cpn1(klon, klev), cpn1_wake(klon, klev)
+  REAL tv1(klon, klev), tv1_wake(klon, klev)
+  REAL gz1(klon, klev), gz1_wake(klon, klev)
+  REAL hm1(klon, klev), hm1_wake(klon, klev)
+  REAL h1(klon, klev), h1_wake(klon, klev)
+  REAL tp1(klon, klev)
+  REAL clw1(klon, klev)
+  REAL th1(klon, klev), th1_wake(klon, klev)
+
+  REAL bid(klon, klev) ! dummy array
+
+  INTEGER ncum
+
+  INTEGER j1feed(klon)
+  INTEGER j2feed(klon)
+  REAL p1feed1(len) ! pressure at lower bound of feeding layer
+  REAL p2feed1(len) ! pressure at upper bound of feeding layer
+!JYG,RL
+!!      real wghti1(len,nd) ! weights of the feeding layers
+!JYG,RL
+
+! (local) compressed fields:
+
+
+  INTEGER idcum(nloc)
+!jyg<
+  LOGICAL compress    ! True if compression occurs
+!>jyg
+  INTEGER iflag(nloc), nk(nloc), icb(nloc)
+  INTEGER nent(nloc, klev)
+  INTEGER icbs(nloc)
+  INTEGER inb(nloc), inbis(nloc)
+
+  REAL cbmf(nloc), plcl(nloc), plfc(nloc), wbeff(nloc)
+  REAL t(nloc, klev), q(nloc, klev), qs(nloc, klev)
+  REAL t_wake(nloc, klev), q_wake(nloc, klev), qs_wake(nloc, klev)
+  REAL s_wake(nloc)
+  REAL u(nloc, klev), v(nloc, klev)
+  REAL gz(nloc, klev), h(nloc, klev), hm(nloc, klev)
+  REAL h_wake(nloc, klev), hm_wake(nloc, klev)
+  REAL lv(nloc, klev), lf(nloc, klev), cpn(nloc, klev)
+  REAL lv_wake(nloc, klev), lf_wake(nloc, klev), cpn_wake(nloc, klev)
+  REAL p(nloc, klev), ph(nloc, klev+1), tv(nloc, klev), tp(nloc, klev)
+  REAL tv_wake(nloc, klev)
+  REAL clw(nloc, klev)
+  REAL dph(nloc, klev)
+  REAL pbase(nloc), buoybase(nloc), th(nloc, klev)
+  REAL th_wake(nloc, klev)
+  REAL tvp(nloc, klev)
+  REAL sig(nloc, klev), w0(nloc, klev), ptop2(nloc)
+  REAL hp(nloc, klev), ep(nloc, klev), sigp(nloc, klev)
+  REAL buoy(nloc, klev)
+  REAL cape(nloc)
+  REAL cin(nloc)
+  REAL m(nloc, klev)
+  REAL ment(nloc, klev, klev), sigij(nloc, klev, klev)
+  REAL qent(nloc, klev, klev)
+  REAL hent(nloc, klev, klev)
+  REAL uent(nloc, klev, klev), vent(nloc, klev, klev)
+  REAL ments(nloc, klev, klev), qents(nloc, klev, klev)
+  REAL elij(nloc, klev, klev)
+  REAL supmax(nloc, klev)
+  REAL Ale(nloc), Alp(nloc), coef_clos(nloc)
+  REAL omega(nloc,klev)
+  REAL sigd(nloc)
+! real mp(nloc,klev), qp(nloc,klev), up(nloc,klev), vp(nloc,klev)
+! real wt(nloc,klev), water(nloc,klev), evap(nloc,klev), ice(nloc,klev)
+! real b(nloc,klev), sigd(nloc)
+! save mp,qp,up,vp,wt,water,evap,b
+  REAL, SAVE, ALLOCATABLE :: mp(:, :), qp(:, :), up(:, :), vp(:, :)
+  REAL, SAVE, ALLOCATABLE :: wt(:, :), water(:, :), evap(:, :)
+  REAL, SAVE, ALLOCATABLE :: ice(:, :), fondue(:, :), b(:, :)
+  REAL, SAVE, ALLOCATABLE :: frac(:, :), faci(:, :)
+!$OMP THREADPRIVATE(mp,qp,up,vp,wt,water,evap,ice,fondue,b,frac,faci)
+  REAL ft(nloc, klev), fq(nloc, klev)
+  REAL ftd(nloc, klev), fqd(nloc, klev)
+  REAL fu(nloc, klev), fv(nloc, klev)
+  REAL upwd(nloc, klev), dnwd(nloc, klev), dnwd0(nloc, klev)
+  REAL ma(nloc, klev), mip(nloc, klev)
+!!  REAL tls(nloc, klev), tps(nloc, klev)                 ! unused . jyg
+  REAL qprime(nloc), tprime(nloc)
+  REAL precip(nloc)
+! real Vprecip(nloc,klev)
+  REAL vprecip(nloc, klev+1)
+  REAL vprecipi(nloc, klev+1)
+  REAL tra(nloc, klev, ntra), trap(nloc, klev, ntra)
+  REAL ftra(nloc, klev, ntra), traent(nloc, klev, klev, ntra)
+  REAL qcondc(nloc, klev)      ! cld
+  REAL wd(nloc)                ! gust
+  REAL Plim1(nloc), plim2(nloc)
+  REAL asupmax(nloc, klev)
+  REAL supmax0(nloc)
+  REAL asupmaxmin(nloc)
+
+  REAL tnk(nloc), qnk(nloc), gznk(nloc)
+  REAL wghti(nloc, nd)
+  REAL hnk(nloc), unk(nloc), vnk(nloc)
+
+  REAL qtc(nloc, klev)         ! cld
+  REAL sigt(nloc, klev)        ! cld
+ 
+! RomP >>>
+  REAL wdtrainA(nloc, klev), wdtrainM(nloc, klev)
+  REAL da(len, nd), phi(len, nd, nd)
+  REAL epmlmMm(nloc, klev, klev), eplaMm(nloc, klev)
+  REAL phi2(len, nd, nd)
+  REAL d1a(len, nd), dam(len, nd)
+! RomP <<<
+  REAL epmax_diag(nloc) ! epmax_cape
+
+  LOGICAL, SAVE :: first = .TRUE.
+!$OMP THREADPRIVATE(first)
+  CHARACTER (LEN=20) :: modname = 'cva_driver'
+  CHARACTER (LEN=80) :: abort_message
+
+  INTEGER,SAVE                                       :: igout=1
+!$OMP THREADPRIVATE(igout)
+
+
+! print *, 't1, t1_wake ',(k,t1(1,k),t1_wake(1,k),k=1,klev)
+! print *, 'q1, q1_wake ',(k,q1(1,k),q1_wake(1,k),k=1,klev)
+
+! -------------------------------------------------------------------
+! --- SET CONSTANTS AND PARAMETERS
+! -------------------------------------------------------------------
+
+  IF (first) THEN
+    ALLOCATE (mp(nloc,klev), qp(nloc,klev), up(nloc,klev))
+    ALLOCATE (vp(nloc,klev), wt(nloc,klev), water(nloc,klev))
+    ALLOCATE (ice(nloc,klev), fondue(nloc,klev))
+    ALLOCATE (evap(nloc,klev), b(nloc,klev))
+    ALLOCATE (frac(nloc,klev), faci(nloc,klev))
+    first = .FALSE.
+  END IF
+! -- set simulation flags:
+! (common cvflag)
+
+  CALL cv_flag(iflag_ice_thermo)
+
+! -- set thermodynamical constants:
+! (common cvthermo)
+
+  CALL cv_thermo(iflag_con)
+
+! -- set convect parameters
+
+! includes microphysical parameters and parameters that
+! control the rate of approach to quasi-equilibrium)
+! (common cvparam)
+
+  IF (iflag_con==3) THEN
+    CALL cv3_param(nd, k_upper, delt)
+
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_param(nd)
+  END IF
+
+! ---------------------------------------------------------------------
+! --- INITIALIZE OUTPUT ARRAYS AND PARAMETERS
+! ---------------------------------------------------------------------
+  nword1 = len
+  nword2 = len*nd
+  nword3 = len*nd*ntra
+  nword4 = len*nd*nd
+
+  iflag1(:) = 0
+  ktop1(:) = 0
+  kbas1(:) = 0
+  ft1(:, :) = 0.0
+  fq1(:, :) = 0.0
+  fu1(:, :) = 0.0
+  fv1(:, :) = 0.0
+  ftra1(:, :, :) = 0.
+  precip1(:) = 0.
+  cbmf1(:) = 0.
+  plcl1(:) = 0.
+  plfc1(:) = 0.
+  wbeff1(:) = 0.
+  ptop21(:) = 0.
+  sigd1(:) = 0.
+  ma1(:, :) = 0.
+  mip1(:, :) = 0.
+  vprecip1(:, :) = 0.
+  vprecipi1(:, :) = 0.
+  upwd1(:, :) = 0.
+  dnwd1(:, :) = 0.
+  dnwd01(:, :) = 0.
+  qcondc1(:, :) = 0.
+  wd1(:) = 0.
+  cape1(:) = 0.
+  cin1(:) = 0.
+  tvp1(:, :) = 0.
+  ftd1(:, :) = 0.
+  fqd1(:, :) = 0.
+  Plim11(:) = 0.
+  Plim21(:) = 0.
+  asupmax1(:, :) = 0.
+  supmax01(:) = 0.
+  asupmaxmin1(:) = 0.
+
+  DO il = 1, len
+    cin1(il) = -100000.
+    cape1(il) = -1.
+  END DO
+
+!!  IF (iflag_con==3) THEN
+!!    DO il = 1, len
+!!      sig1(il, nd) = sig1(il, nd) + 1.
+!!      sig1(il, nd) = amin1(sig1(il,nd), 12.1)
+!!    END DO
+!!  END IF
+
+  IF (iflag_con==3) THEN
+      CALL cv3_incrcount(len,nd,delt,sig1)
+  END IF  ! (iflag_con==3)
+
+! RomP >>>
+  sigt1(:, :) = 0.
+  qtc1(:, :) = 0.
+  wdtrainA1(:, :) = 0.
+  wdtrainM1(:, :) = 0.
+  da1(:, :) = 0.
+  phi1(:, :, :) = 0.
+  epmlmMm1(:, :, :) = 0.
+  eplaMm1(:, :) = 0.
+  mp1(:, :) = 0.
+  evap1(:, :) = 0.
+  ep1(:, :) = 0.
+  sigij1(:, :, :) = 0.
+  elij1(:, :, :) = 0.
+  wghti1(:,:) = 0.
+  phi21(:, :, :) = 0.
+  d1a1(:, :) = 0.
+  dam1(:, :) = 0.
+! RomP <<<
+! ---------------------------------------------------------------------
+! --- INITIALIZE LOCAL ARRAYS AND PARAMETERS
+! ---------------------------------------------------------------------
+
+  DO il = 1, nloc
+    coef_clos(il) = 1.
+  END DO
+
+! --------------------------------------------------------------------
+! --- CALCULATE ARRAYS OF GEOPOTENTIAL, HEAT CAPACITY & STATIC ENERGY
+! --------------------------------------------------------------------
+
+  IF (iflag_con==3) THEN
+
+    IF (debut) THEN
+      PRINT *, 'Emanuel version 3 nouvelle'
+    END IF
+! print*,'t1, q1 ',t1,q1
+    CALL cv3_prelim(len, nd, ndp1, t1, q1, p1, ph1, &           ! nd->na
+                    lv1, lf1, cpn1, tv1, gz1, h1, hm1, th1)
+
+
+    CALL cv3_prelim(len, nd, ndp1, t1_wake, q1_wake, p1, ph1, & ! nd->na
+                    lv1_wake, lf1_wake, cpn1_wake, tv1_wake, gz1_wake, &
+                    h1_wake, bid, th1_wake)
+
+  END IF
+
+  IF (iflag_con==4) THEN
+    PRINT *, 'Emanuel version 4 '
+    CALL cv_prelim(len, nd, ndp1, t1, q1, p1, ph1, &
+                   lv1, cpn1, tv1, gz1, h1, hm1)
+  END IF
+
+! --------------------------------------------------------------------
+! --- CONVECTIVE FEED
+! --------------------------------------------------------------------
+
+! compute feeding layer potential temperature and mixing ratio :
+
+! get bounds of feeding layer
+
+! test niveaux couche alimentation KE
+  IF (sig1feed1==sig2feed1) THEN
+    WRITE (lunout, *) 'impossible de choisir sig1feed=sig2feed'
+    WRITE (lunout, *) 'changer la valeur de sig2feed dans physiq.def'
+    abort_message = ''
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+
+  DO i = 1, len
+    p1feed1(i) = sig1feed1*ph1(i, 1)
+    p2feed1(i) = sig2feed1*ph1(i, 1)
+!test maf
+!   p1feed1(i)=ph1(i,1)
+!   p2feed1(i)=ph1(i,2)
+!   p2feed1(i)=ph1(i,3)
+!testCR: on prend la couche alim des thermiques
+!   p2feed1(i)=ph1(i,lalim_conv1(i)+1)
+!   print*,'lentr=',lentr(i),ph1(i,lentr(i)+1),ph1(i,2)
+  END DO
+
+  IF (iflag_con==3) THEN
+  END IF
+  DO i = 1, len
+! print*,'avant cv3_feed Plim',p1feed1(i),p2feed1(i)
+  END DO
+  IF (iflag_con==3) THEN
+
+! print*, 'IFLAG1 avant cv3_feed'
+! print*,'len,nd',len,nd
+! write(*,'(64i1)') iflag1(2:klon-1)
+
+    CALL cv3_feed(len, nd, ok_conserv_q, &                 ! nd->na
+                  t1, q1, u1, v1, p1, ph1, hm1, gz1, & 
+                  p1feed1, p2feed1, wght1, &
+                  wghti1, tnk1, thnk1, qnk1, qsnk1, unk1, vnk1, &
+                  cpnk1, hnk1, nk1, icb1, icbmax, iflag1, gznk1, plcl1)
+  END IF
+
+! print*, 'IFLAG1 apres cv3_feed'
+! print*,'len,nd',len,nd
+! write(*,'(64i1)') iflag1(2:klon-1)
+
+  IF (iflag_con==4) THEN
+    CALL cv_feed(len, nd, t1, q1, qs1, p1, hm1, gz1, &
+                 nk1, icb1, icbmax, iflag1, tnk1, qnk1, gznk1, plcl1)
+  END IF
+
+! print *, 'cv3_feed-> iflag1, plcl1 ',iflag1(1),plcl1(1)
+
+! --------------------------------------------------------------------
+! --- UNDILUTE (ADIABATIC) UPDRAFT / 1st part
+! (up through ICB for convect4, up through ICB+1 for convect3)
+! Calculates the lifted parcel virtual temperature at nk, the
+! actual temperature, and the adiabatic liquid water content.
+! --------------------------------------------------------------------
+
+  IF (iflag_con==3) THEN
+
+    CALL cv3_undilute1(len, nd, t1, qs1, gz1, plcl1, p1, icb1, tnk1, qnk1, & ! nd->na
+                       gznk1, tp1, tvp1, clw1, icbs1)
+  END IF
+
+
+  IF (iflag_con==4) THEN
+    CALL cv_undilute1(len, nd, t1, q1, qs1, gz1, p1, nk1, icb1, icbmax, &
+                      tp1, tvp1, clw1)
+  END IF
+
+! -------------------------------------------------------------------
+! --- TRIGGERING
+! -------------------------------------------------------------------
+
+! print *,' avant triggering, iflag_con ',iflag_con
+
+  IF (iflag_con==3) THEN
+
+    CALL cv3_trigger(len, nd, icb1, plcl1, p1, th1, tv1, tvp1, thnk1, & ! nd->na
+                      pbase1, buoybase1, iflag1, sig1, w01)
+
+
+! print*, 'IFLAG1 apres cv3_triger'
+! print*,'len,nd',len,nd
+! write(*,'(64i1)') iflag1(2:klon-1)
+
+! call dump2d(iim,jjm-1,sig1(2)
+  END IF
+
+  IF (iflag_con==4) THEN
+    CALL cv_trigger(len, nd, icb1, cbmf1, tv1, tvp1, iflag1)
+  END IF
+
+
+! =====================================================================
+! --- IF THIS POINT IS REACHED, MOIST CONVECTIVE ADJUSTMENT IS NECESSARY
+! =====================================================================
+
+!  Determine the number "ncum" of convective gridpoints, the list "idcum" of convective
+!  gridpoints and the weights "coef_convective" (= 1. for convective gridpoints and = 0.
+!  elsewhere).
+  ncum = 0
+  coef_convective(:) = 0.
+  DO i = 1, len
+    IF (iflag1(i)==0) THEN
+      coef_convective(i) = 1.
+      ncum = ncum + 1
+      idcum(ncum) = i
+    END IF
+  END DO
+
+! print*,'klon, ncum = ',len,ncum
+
+  IF (ncum>0) THEN
+
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! --- COMPRESS THE FIELDS
+!       (-> vectorization over convective gridpoints)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+    IF (iflag_con==3) THEN
+! print*,'ncum tv1 ',ncum,tv1
+! print*,'tvp1 ',tvp1
+!jyg<
+!   If the fraction of convective points is larger than comp_threshold, then compression
+!   is assumed useless.
+!
+  compress = ncum .lt. len*comp_threshold
+!
+  IF (.not. compress) THEN
+    DO i = 1,len
+      idcum(i) = i
+    ENDDO
+  ENDIF
+!
+!>jyg
+      CALL cv3a_compress(len, nloc, ncum, nd, ntra, compress, &
+                         iflag1, nk1, icb1, icbs1, &
+                         plcl1, tnk1, qnk1, gznk1, hnk1, unk1, vnk1, &
+                         wghti1, pbase1, buoybase1, &
+                         t1, q1, qs1, t1_wake, q1_wake, qs1_wake, s1_wake, &
+                         u1, v1, gz1, th1, th1_wake, &
+                         tra1, &
+                         h1, lv1, lf1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &
+                         h1_wake, lv1_wake, lf1_wake, cpn1_wake, tv1_wake, &
+                         sig1, w01, ptop21, &
+                         Ale1, Alp1, omega1, &
+                         iflag, nk, icb, icbs, &
+                         plcl, tnk, qnk, gznk, hnk, unk, vnk, &
+                         wghti, pbase, buoybase, &
+                         t, q, qs, t_wake, q_wake, qs_wake, s_wake, &
+                         u, v, gz, th, th_wake, &
+                         tra, &
+                         h, lv, lf, cpn, p, ph, tv, tp, tvp, clw, &
+                         h_wake, lv_wake, lf_wake, cpn_wake, tv_wake, &
+                         sig, w0, ptop2, &
+                         Ale, Alp, omega)
+
+! print*,'tv ',tv
+! print*,'tvp ',tvp
+
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_compress(len, nloc, ncum, nd, &
+                       iflag1, nk1, icb1, &
+                       cbmf1, plcl1, tnk1, qnk1, gznk1, &
+                       t1, q1, qs1, u1, v1, gz1, &
+                       h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &
+                       iflag, nk, icb, &
+                       cbmf, plcl, tnk, qnk, gznk, &
+                       t, q, qs, u, v, gz, h, lv, cpn, p, ph, tv, tp, tvp, clw, &
+                       dph)
+    END IF
+
+! -------------------------------------------------------------------
+! --- UNDILUTE (ADIABATIC) UPDRAFT / second part :
+! ---   FIND THE REST OF THE LIFTED PARCEL TEMPERATURES
+! ---   &
+! ---   COMPUTE THE PRECIPITATION EFFICIENCIES AND THE
+! ---   FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
+! ---   &
+! ---   FIND THE LEVEL OF NEUTRAL BUOYANCY
+! -------------------------------------------------------------------
+
+    IF (iflag_con==3) THEN
+      CALL cv3_undilute2(nloc, ncum, nd, icb, icbs, nk, &              !na->nd
+                         tnk, qnk, gznk, hnk, t, q, qs, gz, &
+                         p, ph, h, tv, lv, lf, pbase, buoybase, plcl, &
+                         inb, tp, tvp, clw, hp, ep, sigp, buoy, &
+                         frac)
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_undilute2(nloc, ncum, nd, icb, nk, &
+                        tnk, qnk, gznk, t, q, qs, gz, &
+                        p, dph, h, tv, lv, &
+                        inb, inbis, tp, tvp, clw, hp, ep, sigp, frac)
+    END IF
+
+    ! epmax_cape
+    ! on recalcule ep et hp    
+    call cv3_epmax_fn_cape(nloc,ncum,nd &
+                , ep,hp,icb,inb,clw,nk,t,h,hnk,lv,lf,frac &
+                , pbase, p, ph, tv, buoy, sig, w0,iflag &
+                , epmax_diag)
+
+! -------------------------------------------------------------------
+! --- MIXING(1)   (if iflag_mix .ge. 1)
+! -------------------------------------------------------------------
+    IF (iflag_con==3) THEN
+!      IF ((iflag_ice_thermo==1) .AND. (iflag_mix/=0)) THEN
+!        WRITE (*, *) ' iflag_ice_thermo==1 requires iflag_mix==0', ' but iflag_mix=', iflag_mix, &
+!          '. Might as well stop here.'
+!        STOP
+!      END IF
+      IF (iflag_mix>=1) THEN
+        CALL zilch(supmax, nloc*klev)
+        CALL cv3p_mixing(nloc, ncum, nd, nd, ntra, icb, nk, inb, &           ! na->nd
+                         ph, t, q, qs, u, v, tra, h, lv, lf, frac, qnk, &
+                         unk, vnk, hp, tv, tvp, ep, clw, sig, &
+                         ment, qent, hent, uent, vent, nent, &
+                         sigij, elij, supmax, ments, qents, traent)
+! print*, 'cv3p_mixing-> supmax ', (supmax(1,k), k=1,nd)
+
+      ELSE
+        CALL zilch(supmax, nloc*klev)
+      END IF
+    END IF
+! -------------------------------------------------------------------
+! --- CLOSURE
+! -------------------------------------------------------------------
+
+
+    IF (iflag_con==3) THEN
+      IF (iflag_clos==0) THEN
+        CALL cv3_closure(nloc, ncum, nd, icb, inb, &           ! na->nd
+                         pbase, p, ph, tv, buoy, &
+                         sig, w0, cape, m, iflag)
+      END IF   ! iflag_clos==0
+
+      ok_inhib = iflag_mix == 2
+
+      IF (iflag_clos==1) THEN
+        PRINT *, ' pas d appel cv3p_closure'
+! c        CALL cv3p_closure(nloc,ncum,nd,icb,inb              ! na->nd
+! c    :                       ,pbase,plcl,p,ph,tv,tvp,buoy
+! c    :                       ,supmax
+! c    o                       ,sig,w0,ptop2,cape,cin,m)
+      END IF   ! iflag_clos==1
+
+      IF (iflag_clos==2) THEN
+        CALL cv3p1_closure(nloc, ncum, nd, icb, inb, &         ! na->nd
+                           pbase, plcl, p, ph, tv, tvp, buoy, &
+                           supmax, ok_inhib, Ale, Alp, omega, &
+                           sig, w0, ptop2, cape, cin, m, iflag, coef_clos, &
+                           Plim1, plim2, asupmax, supmax0, &
+                           asupmaxmin, cbmf, plfc, wbeff)
+        if (prt_level >= 10) &
+             PRINT *, 'cv3p1_closure-> plfc,wbeff ', plfc(1), wbeff(1)
+      END IF   ! iflag_clos==2
+
+      IF (iflag_clos==3) THEN
+        CALL cv3p2_closure(nloc, ncum, nd, icb, inb, &         ! na->nd
+                           pbase, plcl, p, ph, tv, tvp, buoy, &
+                           supmax, ok_inhib, Ale, Alp, omega, &
+                           sig, w0, ptop2, cape, cin, m, iflag, coef_clos, &
+                           Plim1, plim2, asupmax, supmax0, &
+                           asupmaxmin, cbmf, plfc, wbeff)
+        if (prt_level >= 10) &
+             PRINT *, 'cv3p2_closure-> plfc,wbeff ', plfc(1), wbeff(1)
+      END IF   ! iflag_clos==3
+    END IF ! iflag_con==3
+
+    IF (iflag_con==4) THEN
+      CALL cv_closure(nloc, ncum, nd, nk, icb, &
+                         tv, tvp, p, ph, dph, plcl, cpn, &
+                         iflag, cbmf)
+    END IF
+
+! print *,'cv_closure-> cape ',cape(1)
+
+! -------------------------------------------------------------------
+! --- MIXING(2)
+! -------------------------------------------------------------------
+
+    IF (iflag_con==3) THEN
+      IF (iflag_mix==0) THEN
+        CALL cv3_mixing(nloc, ncum, nd, nd, ntra, icb, nk, inb, &             ! na->nd
+                        ph, t, q, qs, u, v, tra, h, lv, lf, frac, qnk, &
+                        unk, vnk, hp, tv, tvp, ep, clw, m, sig, &
+                        ment, qent, uent, vent, nent, sigij, elij, ments, qents, traent)
+        CALL zilch(hent, nloc*klev*klev)
+      ELSE
+        CALL cv3_mixscale(nloc, ncum, nd, ment, m)
+        IF (debut) THEN
+          PRINT *, ' cv3_mixscale-> '
+        END IF !(debut) THEN
+      END IF
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_mixing(nloc, ncum, nd, icb, nk, inb, inbis, &
+                     ph, t, q, qs, u, v, h, lv, qnk, &
+                     hp, tv, tvp, ep, clw, cbmf, &
+                     m, ment, qent, uent, vent, nent, sigij, elij)
+    END IF                                                                                         
+
+    IF (debut) THEN
+      PRINT *, ' cv_mixing ->'
+    END IF !(debut) THEN
+! do i = 1,nd
+! print*,'cv_mixing-> i,ment ',i,(ment(1,i,j),j=1,nd)
+! enddo
+
+! -------------------------------------------------------------------
+! --- UNSATURATED (PRECIPITATING) DOWNDRAFTS
+! -------------------------------------------------------------------
+    IF (iflag_con==3) THEN
+      IF (debut) THEN
+        PRINT *, ' cva_driver -> cv3_unsat '
+      END IF !(debut) THEN
+
+      CALL cv3_unsat(nloc, ncum, nd, nd, ntra, icb, inb, iflag, &              ! na->nd
+                     t_wake, q_wake, qs_wake, gz, u, v, tra, p, ph, &
+                     th_wake, tv_wake, lv_wake, lf_wake, cpn_wake, &
+                     ep, sigp, clw, &
+                     m, ment, elij, delt, plcl, coef_clos, &
+                     mp, qp, up, vp, trap, wt, water, evap, fondue, ice, &
+                     faci, b, sigd, &
+                     wdtrainA, wdtrainM)                                       ! RomP
+!
+      IF (prt_level >= 10) THEN
+        Print *, 'cva_driver after cv3_unsat:mp , water, ice, evap, fondue '
+        DO k = 1,nd
+        write (6, '(i4,5(1x,e13.6))'), &
+          k, mp(idcum(igout),k), water(idcum(igout),k), ice(idcum(igout),k), &
+           evap(idcum(igout),k), fondue(idcum(igout),k)
+        ENDDO
+        Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainM '
+        DO k = 1,nd
+        write (6, '(i4,2(1x,e13.6))'), &
+           k, wdtrainA(idcum(igout),k), wdtrainM(idcum(igout),k)
+        ENDDO
+      ENDIF
+!
+    END IF  !(iflag_con==3)
+
+    IF (iflag_con==4) THEN
+      CALL cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, &
+                     h, lv, ep, sigp, clw, m, ment, elij, &
+                     iflag, mp, qp, up, vp, wt, water, evap)
+    END IF
+
+    IF (debut) THEN
+      PRINT *, 'cv_unsat-> '
+    END IF !(debut) THEN
+
+! print *,'cv_unsat-> mp ',mp
+! print *,'cv_unsat-> water ',water
+! -------------------------------------------------------------------
+! --- YIELD
+! (tendencies, precipitation, variables of interface with other
+! processes, etc)
+! -------------------------------------------------------------------
+
+    IF (iflag_con==3) THEN
+
+      CALL cv3_yield(nloc, ncum, nd, nd, ntra, ok_conserv_q, &                      ! na->nd
+                     icb, inb, delt, &
+                     t, q, t_wake, q_wake, s_wake, u, v, tra, &
+                     gz, p, ph, h, hp, lv, lf, cpn, th, th_wake, &
+                     ep, clw, m, tp, mp, qp, up, vp, trap, &
+                     wt, water, ice, evap, fondue, faci, b, sigd, &
+                     ment, qent, hent, iflag_mix, uent, vent, &
+                     nent, elij, traent, sig, &
+                     tv, tvp, wghti, &
+                     iflag, precip, Vprecip, Vprecipi, ft, fq, fu, fv, ftra, &      ! jyg
+                     cbmf, upwd, dnwd, dnwd0, ma, mip, &
+!!                     tls, tps, &                            ! useless . jyg
+                     qcondc, wd, &
+                     ftd, fqd, qnk, qtc, sigt, tau_cld_cv, coefw_cld_cv)
+!
+      IF (debut) THEN
+        PRINT *, ' cv3_yield -> fqd(1) = ', fqd(idcum(igout), 1)
+      END IF !(debut) THEN
+!   
+      IF (prt_level >= 10) THEN
+        Print *, 'cva_driver after cv3_yield:ft(1) , ftd(1) ', &
+                    ft(idcum(igout),1), ftd(idcum(igout),1)
+        Print *, 'cva_driver after cv3_yield:fq(1) , fqd(1) ', &
+                    fq(idcum(igout),1), fqd(idcum(igout),1)
+      ENDIF
+!   
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_yield(nloc, ncum, nd, nk, icb, inb, delt, &
+                     t, q, u, v, &
+                     gz, p, ph, h, hp, lv, cpn, &
+                     ep, clw, frac, m, mp, qp, up, vp, &
+                     wt, water, evap, &
+                     ment, qent, uent, vent, nent, elij, &
+                     tv, tvp, &
+                     iflag, wd, qprime, tprime, &
+                     precip, cbmf, ft, fq, fu, fv, ma, qcondc)
+    END IF
+
+!AC!
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+!--- passive tracers
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+    IF (iflag_con==3) THEN
+!RomP >>>
+      CALL cv3_tracer(nloc, len, ncum, nd, nd, &
+                     ment, sigij, da, phi, phi2, d1a, dam, &
+                     ep, vprecip, elij, clw, epmlmMm, eplaMm, &
+                     icb, inb)
+!RomP <<<
+    END IF
+
+!AC!
+
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! --- UNCOMPRESS THE FIELDS
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+
+    IF (iflag_con==3) THEN
+      CALL cv3a_uncompress(nloc, len, ncum, nd, ntra, idcum, compress, &
+                           iflag, icb, inb, &
+                           precip, cbmf, plcl, plfc, wbeff, sig, w0, ptop2, &
+                           ft, fq, fu, fv, ftra, &
+                           sigd, ma, mip, vprecip, vprecipi, upwd, dnwd, dnwd0, &
+                           qcondc, wd, cape, cin, &
+                           tvp, &
+                           ftd, fqd, &
+                           Plim1, plim2, asupmax, supmax0, &
+                           asupmaxmin, &
+                           da, phi, mp, phi2, d1a, dam, sigij, &         ! RomP
+                           clw, elij, evap, ep, epmlmMm, eplaMm, &       ! RomP
+                           wdtrainA, wdtrainM, &                         ! RomP
+                           qtc, sigt, epmax_diag, & ! epmax_cape
+                           iflag1, kbas1, ktop1, &
+                           precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, ptop21, &
+                           ft1, fq1, fu1, fv1, ftra1, &
+                           sigd1, ma1, mip1, vprecip1, vprecipi1, upwd1, dnwd1, dnwd01, &
+                           qcondc1, wd1, cape1, cin1, &
+                           tvp1, &
+                           ftd1, fqd1, &
+                           Plim11, plim21, asupmax1, supmax01, &
+                           asupmaxmin1, &
+                           da1, phi1, mp1, phi21, d1a1, dam1, sigij1,  & ! RomP
+                           clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, & ! RomP
+                           wdtrainA1, wdtrainM1,                       & ! RomP
+                           qtc1, sigt1, epmax_diag1) ! epmax_cape
+    END IF
+
+    IF (iflag_con==4) THEN
+      CALL cv_uncompress(nloc, len, ncum, nd, idcum, &
+                           iflag, &
+                           precip, cbmf, &
+                           ft, fq, fu, fv, &
+                           ma, qcondc, &
+                           iflag1, &
+                           precip1,cbmf1, &
+                           ft1, fq1, fu1, fv1, &
+                           ma1, qcondc1)
+    END IF
+
+  END IF ! ncum>0
+
+!
+! In order take into account the possibility of changing the compression,
+! reset m, sig and w0 to zero for non-convective points.
+  DO k = 1,nd-1
+        sig1(:, k) = sig1(:, k)*coef_convective(:)
+        w01(:, k)  = w01(:, k)*coef_convective(:)
+  ENDDO
+
+  IF (debut) THEN
+    PRINT *, ' cv_uncompress -> '
+    debut = .FALSE.
+  END IF  !(debut) THEN
+
+
+  RETURN
+END SUBROUTINE cva_driver
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvflag.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvflag.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvflag.h	(revision 3330)
@@ -0,0 +1,8 @@
+!
+! $Header$
+!
+      logical cvflag_grav
+      logical cvflag_ice
+
+      COMMON /cvflag/ cvflag_grav, cvflag_ice  
+!$OMP THREADPRIVATE(/cvflag/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr.F90	(revision 3330)
@@ -0,0 +1,696 @@
+!
+! $Id $
+!
+SUBROUTINE cvltr(pdtime, da, phi,phi2,d1a,dam, mpIN,epIN, &
+!!           sigd,sij,clw,elij,epmlmMm,eplaMm,              &   !RL
+           sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,    &     !RL
+           pmflxrIN,pmflxsIN,ev,te,wdtrainA,wdtrainM,     &
+           paprs,it,tr,upd,dnd,inb,icb,                   &
+           dtrcv,trsptd,dtrSscav,dtrsat,dtrUscav,qDi,qPr, &
+           qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
+           zmfd1a,zmfphi2,zmfdam)
+  USE IOIPSL 
+  USE dimphy
+  USE infotrac_phy, 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"
+
+! 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
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pmflxrIN   ! vprecip: eau
+  REAL,DIMENSION(klon,klev),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
+! 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,nbtr)         :: qfeed     ! tracer concentration feeding convection
+
+  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
+
+! 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
+  print*,'cvltr coef lessivage convectif', ccntrAA_coef,ccntrENV_coef,coefcoli
+
+!  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
+! 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
+!
+! 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
+           qPa(i,j,it)=ccntrAA_coef*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
+             qMeltmp(i,j,it)=((1-ep(i,k))*ccntrAA_coef*tr(i,1,it)&
+                         *(1.-sij(i,k,j))  +ccntrENV_coef&
+                         *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
+     scavtrac=-ccntrAA_coef*zmfd1a(i,k,it)&
+               -zmfphi2(i,k,it)*ccntrENV_coef&
+               -zmfdam(i,k,it)*ccntrAA_coef
+! 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)
+        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
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_noscav.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_noscav.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_noscav.F90	(revision 3330)
@@ -0,0 +1,197 @@
+!
+! $Id $
+!
+SUBROUTINE cvltr_noscav(it,pdtime,da, phi, mp,wght_cvfd,paprs,pplay,x,upd,dnd,dx)
+  USE dimphy
+  USE infotrac_phy, ONLY : nbtr
+  IMPLICIT NONE 
+!=====================================================================
+! Objet : convection des traceurs / KE
+! Auteurs: M-A Filiberti and J-Y Grandpeix
+!=====================================================================
+  include "YOMCST.h"
+  include "YOECUMF.h" 
+
+! Entree
+  REAL,INTENT(IN)                           :: pdtime
+  INTEGER, INTENT(IN)                       :: it
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: da
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: mp
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wght_cvfd  ! weights of the layers feeding convection
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)    :: paprs ! pression aux 1/2 couches (bas en haut)
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pplay ! pression pour le milieu de chaque couche
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)      :: x     ! 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
+
+! Sortie
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT) :: dx ! tendance de traceur  (bas en haut)
+
+! Variables locales     
+! REAL,DIMENSION(klon,klev)       :: zed
+  REAL,DIMENSION(klon,klev,klev)  :: zmd
+  REAL,DIMENSION(klon,klev,klev)  :: za
+  REAL,DIMENSION(klon,klev)       :: zmfd,zmfa
+  REAL,DIMENSION(klon,klev)       :: zmfp,zmfu
+  REAL,DIMENSION(klon,nbtr)       :: qfeed     ! tracer concentration feeding convection
+  REAL,DIMENSION(klon,klev)       :: deltap
+  INTEGER                         :: i,k,j 
+  REAL                            :: pdtimeRG
+  real conserv
+  real smfd
+  real smfu
+  real smfa
+  real smfp
+! =========================================
+! calcul des tendances liees au downdraft
+! =========================================
+!cdir collapse
+  qfeed(:,it) = 0.
+  DO j=1,klev
+  DO i=1,klon
+!   zed(i,j)=0.
+    zmfd(i,j)=0.
+    zmfa(i,j)=0.
+    zmfu(i,j)=0.
+    zmfp(i,j)=0.
+  END DO
+  END DO
+!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
+! entrainement
+! DO k=1,klev-1
+!    DO i=1,klon
+!       zed(i,k)=max(0.,mp(i,k)-mp(i,k+1))
+!    END DO
+! END DO
+
+! calcul de la matrice d echange
+! matrice de distribution de la masse entrainee en k
+
+  DO k=1,klev-1
+     DO i=1,klon
+        zmd(i,k,k)=max(0.,mp(i,k)-mp(i,k+1))
+     END DO
+  END DO
+  DO k=2,klev
+     DO j=k-1,1,-1
+        DO i=1,klon
+           if(mp(i,j+1).ne.0) then
+              zmd(i,j,k)=zmd(i,j+1,k)*min(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
+!
+! 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
+!
+! tendances
+!            
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfd(i,j)=zmfd(i,j)+za(i,j,k)*(x(i,k,it)-x(i,j,it))
+        END DO
+     END DO
+  END DO
+!
+! =========================================
+! calcul des tendances liees aux flux satures
+! =========================================
+!RL
+!  Feeding concentrations
+  DO j=1,klev
+     DO i=1,klon
+        qfeed(i,it)=qfeed(i,it)+wght_cvfd(i,j)*x(i,j,it)
+     END DO
+  END DO
+!RL
+!
+  DO j=1,klev
+     DO i=1,klon
+!RL
+!!        zmfa(i,j,it)=da(i,j)*(x(i,1,it)-x(i,j,it))                     ! da
+        zmfa(i,j)=da(i,j)*(qfeed(i,it)-x(i,j,it))                     ! da
+!RL
+     END DO
+  END DO
+!
+!!  print *,'it, qfeed(1,it), x(1,1,it) ', it, qfeed(1,it), x(1,1,it)  !jyg
+!!  print *,'wght_cvfd ', (j, wght_cvfd(1,j), j=1,5)                     !jyg
+!
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfp(i,j)=zmfp(i,j)+phi(i,j,k)*(x(i,k,it)-x(i,j,it))
+        END DO
+     END DO
+  END DO
+  DO j=1,klev-1
+     DO i=1,klon
+        zmfu(i,j)=max(0.,upd(i,j+1)+dnd(i,j+1))*(x(i,j+1,it)-x(i,j,it))
+     END DO
+  END DO
+  DO j=2,klev
+     DO i=1,klon
+        zmfu(i,j)=zmfu(i,j)+min(0.,upd(i,j)+dnd(i,j))*(x(i,j,it)-x(i,j-1,it))
+     END DO
+  END DO
+
+! =========================================
+! calcul final des tendances
+! =========================================
+  DO k=1, klev
+     DO i=1, klon
+        deltap(i,k)=paprs(i,k)-paprs(i,k+1)
+     ENDDO
+  ENDDO
+  pdtimeRG=pdtime*RG
+!cdir collapse
+  DO k=1, klev
+     DO i=1, klon
+        dx(i,k,it)=(zmfd(i,k)+zmfu(i,k)       &
+                +zmfa(i,k)+zmfp(i,k))*pdtimeRG/deltap(i,k)
+     ENDDO
+  ENDDO
+
+!! test de conservation du traceur
+      conserv=0.
+      smfd = 0.
+      smfu = 0.
+      smfa = 0.
+      smfp = 0.
+      DO k=1, klev
+        DO i=1, klon
+         conserv=conserv+dx(i,k,it)*   &
+          deltap(i,k)/RG
+         smfd = smfd + zmfd(i,k)*pdtime
+         smfu = smfu + zmfu(i,k)*pdtime
+         smfa = smfa + zmfa(i,k)*pdtime
+         smfp = smfp + zmfp(i,k)*pdtime
+        ENDDO
+      ENDDO
+!!      print *,'it',it,'cvltr_noscav conserv, smfd, smfu, smfa, smfp ',conserv,  &
+!!               smfd, smfu, smfa, smfp
+     
+END SUBROUTINE cvltr_noscav
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_scav.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_scav.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_scav.F90	(revision 3330)
@@ -0,0 +1,707 @@
+!
+! $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_phy, 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
+
+!jyg<
+!!  ! ======================================================
+!!  ! 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
+!>jyg
+  !
+  ! 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
+
+!jyg<
+  ! ======================================================
+  ! 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
+!>jyg
+  ! =========================================
+  ! 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/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_spl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_spl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltr_spl.F90	(revision 3330)
@@ -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_phy, 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/IPSLCM5A2.1_ISO/libf/phylmd/cvltrorig.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltrorig.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvltrorig.F90	(revision 3330)
@@ -0,0 +1,166 @@
+!
+! $Id $
+!
+SUBROUTINE cvltrorig(it,pdtime,da, phi, mp,paprs,pplay,x,upd,dnd,dx)
+  USE dimphy
+  USE infotrac_phy, ONLY : nbtr
+  IMPLICIT NONE 
+!=====================================================================
+! Objet : convection des traceurs / KE
+! Auteurs: M-A Filiberti and J-Y Grandpeix
+!=====================================================================
+  include "YOMCST.h"
+  include "YOECUMF.h" 
+
+! Entree
+  REAL,INTENT(IN)                           :: pdtime
+  INTEGER, INTENT(IN)                       :: it
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: da
+  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: mp
+  REAL,DIMENSION(klon,klev+1),INTENT(IN)    :: paprs ! pression aux 1/2 couches (bas en haut)
+  REAL,DIMENSION(klon,klev),INTENT(IN)      :: pplay ! pression pour le milieu de chaque couche
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)      :: x     ! 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
+
+! Sortie
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT) :: dx ! tendance de traceur  (bas en haut)
+
+! Variables locales     
+! REAL,DIMENSION(klon,klev)       :: zed
+  REAL,DIMENSION(klon,klev,klev)  :: zmd
+  REAL,DIMENSION(klon,klev,klev)  :: za
+  REAL,DIMENSION(klon,klev)       :: zmfd,zmfa
+  REAL,DIMENSION(klon,klev)       :: zmfp,zmfu
+  REAL,DIMENSION(klon,klev)       :: deltap
+  INTEGER                         :: i,k,j 
+  REAL                            :: pdtimeRG
+!!  real conserv
+
+! =========================================
+! calcul des tendances liees au downdraft
+! =========================================
+!cdir collapse
+  DO j=1,klev
+  DO i=1,klon
+!   zed(i,j)=0.
+    zmfd(i,j)=0.
+    zmfa(i,j)=0.
+    zmfu(i,j)=0.
+    zmfp(i,j)=0.
+  END DO
+  END DO
+!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
+! entrainement
+! DO k=1,klev-1
+!    DO i=1,klon
+!       zed(i,k)=max(0.,mp(i,k)-mp(i,k+1))
+!    END DO
+! END DO
+
+! calcul de la matrice d echange
+! matrice de distribution de la masse entrainee en k
+
+  DO k=1,klev-1
+     DO i=1,klon
+        zmd(i,k,k)=max(0.,mp(i,k)-mp(i,k+1))
+     END DO
+  END DO
+  DO k=2,klev
+     DO j=k-1,1,-1
+        DO i=1,klon
+           if(mp(i,j+1).ne.0) then
+              zmd(i,j,k)=zmd(i,j+1,k)*min(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
+!
+! 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
+!
+! tendances
+!            
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfd(i,j)=zmfd(i,j)+za(i,j,k)*(x(i,k,it)-x(i,j,it))
+        END DO
+     END DO
+  END DO
+!
+! =========================================
+! calcul des tendances liees aux flux satures
+! =========================================
+  DO j=1,klev
+     DO i=1,klon
+        zmfa(i,j)=da(i,j)*(x(i,1,it)-x(i,j,it))
+     END DO
+  END DO
+  DO k=1,klev
+     DO j=1,klev
+        DO i=1,klon
+           zmfp(i,j)=zmfp(i,j)+phi(i,j,k)*(x(i,k,it)-x(i,j,it))
+        END DO
+     END DO
+  END DO
+  DO j=1,klev-1
+     DO i=1,klon
+        zmfu(i,j)=max(0.,upd(i,j+1)+dnd(i,j+1))*(x(i,j+1,it)-x(i,j,it))
+     END DO
+  END DO
+  DO j=2,klev
+     DO i=1,klon
+        zmfu(i,j)=zmfu(i,j)+min(0.,upd(i,j)+dnd(i,j))*(x(i,j,it)-x(i,j-1,it))
+     END DO
+  END DO
+
+! =========================================
+! calcul final des tendances
+! =========================================
+  DO k=1, klev
+     DO i=1, klon
+        deltap(i,k)=paprs(i,k)-paprs(i,k+1)
+     ENDDO
+  ENDDO
+  pdtimeRG=pdtime*RG
+!cdir collapse
+  DO k=1, klev
+     DO i=1, klon
+        dx(i,k,it)=(zmfd(i,k)+zmfu(i,k)       &
+                +zmfa(i,k)+zmfp(i,k))*pdtimeRG/deltap(i,k)
+     ENDDO
+  ENDDO
+
+! test de conservation du traceur
+!      conserv=0.
+!      DO k=1, klev
+!        DO i=1, klon
+!         conserv=conserv+dx(i,k,it)*   &
+!          deltap(i,k)/RG
+!        ENDDO
+!      ENDDO
+!      print *,'it',it,'cvltrorig conserv',conserv
+     
+END SUBROUTINE cvltrorig
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvparam.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvparam.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvparam.h	(revision 3330)
@@ -0,0 +1,29 @@
+!
+! $Header$
+!
+!------------------------------------------------------------
+! Parameters for convectL:
+! (includes - microphysical parameters, 
+!			- parameters that control the rate of approach 
+!               to quasi-equilibrium)
+!			- noff & minorig (previously in input of convect1)
+!------------------------------------------------------------
+
+      integer noff, minorig, nl, nlp, nlm
+      real elcrit, tlcrit
+      real entp
+      real sigs, sigd
+      real omtrain, omtsnow, coeffr, coeffs
+      real dtmax
+      real cu
+      real betad
+      real alpha, damp
+      real delta
+
+      COMMON /cvparam/ noff, minorig, nl, nlp, nlm &
+                      ,elcrit, tlcrit &
+                      ,entp, sigs, sigd &
+                      ,omtrain, omtsnow, coeffr, coeffs &
+                      ,dtmax, cu, betad, alpha, damp, delta
+
+!$OMP THREADPRIVATE(/cvparam/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvthermo.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvthermo.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/cvthermo.h	(revision 3330)
@@ -0,0 +1,16 @@
+!
+! $Header$
+!
+! Thermodynamical constants for convectL:
+
+      real cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
+      real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
+      real eps, epsi, epsim1
+      real ginv, hrd
+      real grav
+
+      COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl &
+                       ,t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
+                       ,clmci, eps, epsi, epsim1, ginv, hrd, grav
+
+!$OMP THREADPRIVATE(/cvthermo/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/declare_STDlev.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/declare_STDlev.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/declare_STDlev.h	(revision 3330)
@@ -0,0 +1,61 @@
+!IM for NMC files
+!      real twriteSTD(klon,nlevSTD,nfiles)
+!      real qwriteSTD(klon,nlevSTD,nfiles)
+!      real rhwriteSTD(klon,nlevSTD,nfiles)
+!      real phiwriteSTD(klon,nlevSTD,nfiles)
+!      real uwriteSTD(klon,nlevSTD,nfiles)
+!      real vwriteSTD(klon,nlevSTD,nfiles)
+!      real wwriteSTD(klon,nlevSTD,nfiles)
+
+      real twriteSTD3(klon,nlevSTD3)
+      real qwriteSTD3(klon,nlevSTD3)
+      real rhwriteSTD3(klon,nlevSTD3)
+      real phiwriteSTD3(klon,nlevSTD3)
+      real uwriteSTD3(klon,nlevSTD3)
+      real vwriteSTD3(klon,nlevSTD3)
+      real wwriteSTD3(klon,nlevSTD3)
+
+      real tnondefSTD8(klon,nlevSTD8)
+      real twriteSTD8(klon,nlevSTD8)
+      real qwriteSTD8(klon,nlevSTD8)
+      real rhwriteSTD8(klon,nlevSTD8)
+      real phiwriteSTD8(klon,nlevSTD8)
+      real uwriteSTD8(klon,nlevSTD8)
+      real vwriteSTD8(klon,nlevSTD8)
+      real wwriteSTD8(klon,nlevSTD8)
+
+      real, save :: rlevSTD(nlevSTD)
+      DATA rlevSTD/100000., 92500., 85000., 70000., &
+      60000., 50000., 40000., 30000., 25000., 20000., &
+      15000., 10000., 7000., 5000., 3000., 2000., 1000./
+!$OMP THREADPRIVATE(rlevstd)
+
+      CHARACTER*4, SAVE :: clevSTD(nlevSTD)
+      DATA clevSTD/'1000','925 ','850 ','700 ','600 ', &
+      '500 ','400 ','300 ','250 ','200 ','150 ','100 ', &
+      '70  ','50  ','30  ','20  ','10  '/
+!$OMP THREADPRIVATE(clevSTD)
+
+      real, save :: rlevSTD3(nlevSTD3)
+      DATA rlevSTD3/85000., 50000., 25000./
+!$OMP THREADPRIVATE(rlevSTD3)
+
+      real, save :: rlevSTD8(nlevSTD8)
+      DATA rlevSTD8/100000., 85000., 70000., 50000., 25000., 10000., &
+           5000., 1000./
+!$OMP THREADPRIVATE(rlevSTD8) 
+!
+      REAL geo500(klon)
+
+! nout : niveau de output des variables a une pression donnee
+      logical oknondef(klon,nlevSTD,nout)
+!
+! les produits uvSTD, vqSTD, .., T2STD sont calcules
+! a partir des valeurs instantannees toutes les 6 h
+! qui sont moyennees sur le mois
+
+      REAL zx_tmp_fiNC(klon,nlevSTD)
+
+!     REAL missing_val
+      REAL, SAVE :: freq_moyNMC(nout)
+!$OMP THREADPRIVATE(freq_moyNMC)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/diag_slp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/diag_slp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/diag_slp.F90	(revision 3330)
@@ -0,0 +1,45 @@
+SUBROUTINE diag_slp(nlon,t,pab,pal,pphis,tasfc,tastd,pmer)
+ USE dimphy
+ USE phys_output_write_mod
+ USE phys_output_ctrlout_mod
+ USE phys_local_var_mod
+ IMPLICIT NONE
+  !>======================================================================
+  !!
+  !! Auteur(s) I.Musat (LMD/CNRS) date: 20151106
+  !!
+  !! Objet: Calcul pression au niveau de la mer cf. Arpege-IFS 
+  !! ctstar: calcule la temperature de l'air a la surface (tasfc) et
+  !!                 la temperature de l'air standard a la surface (tastd)
+  !! pppmer: calcule la slp a partir de tasfc, tastd, de la pression a la surface (pab1)
+  !!                 et du geopotentiel de la surface
+  !!======================================================================
+  !! nlon--input-R-temperature au milieu de chaque couche (en K)
+  !! t--input-R-temperature au milieu de chaque couche (en K)
+  !! pab--input-R-pression pour chaque inter-couche (en Pa)
+  !! pal---input-R-pression pour le mileu de chaque couche (en Pa)
+  !! pphis---input-R-geopotentiel du sol (en m2/s2)
+  !! tasfc---output-R-temperature air au sol (en K)
+  !! tastd---output-R-temperature air 'standard' au sol (en K)
+  !! pmer---output-R-pression au niveau de la mer (en Pa)
+  !!======================================================================
+  INTEGER nlon
+  REAL t(nlon,klev)
+  REAL pab(nlon,klev+1)
+  REAL pal(nlon,klev)
+  REAL pphis(nlon)
+  REAL tasfc(nlon), tastd(nlon)
+  REAL pmer(nlon)
+!!!
+!!! calcul tasfc et tastd
+  tal1(:)=t(:,1)
+  pab2(:)=pab(:,2)
+  pal1(:)=pal(:,1)
+  CALL ctstar(nlon,1,nlon,tal1,pab2,pal1,pphis,tasfc,tastd)
+!!!
+!!! calcul slp
+  pab1(:)=pab(:,1)
+  CALL pppmer(nlon,1,nlon,pab1,pphis,tasfc,tastd,pmer)
+!
+  RETURN
+  END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/diagphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/diagphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/diagphy.F90	(revision 3330)
@@ -0,0 +1,402 @@
+
+! $Header$
+
+SUBROUTINE diagphy(airephy, tit, iprt, tops, topl, sols, soll, sens, evap, &
+    rain_fall, snow_fall, ts, d_etp_tot, d_qt_tot, d_ec_tot, fs_bound, &
+    fq_bound)
+  ! ======================================================================
+
+  ! Purpose:
+  ! Compute the thermal flux and the watter mass flux at the atmosphere
+  ! boundaries. Print them and also the atmospheric enthalpy change and
+  ! the  atmospheric mass change.
+
+  ! Arguments:
+  ! airephy-------input-R-  grid area
+  ! tit---------input-A15- Comment to be added in PRINT (CHARACTER*15)
+  ! iprt--------input-I-  PRINT level ( <=0 : no PRINT)
+  ! tops(klon)--input-R-  SW rad. at TOA (W/m2), positive up.
+  ! topl(klon)--input-R-  LW rad. at TOA (W/m2), positive down
+  ! sols(klon)--input-R-  Net SW flux above surface (W/m2), positive up
+  ! (i.e. -1 * flux absorbed by the surface)
+  ! soll(klon)--input-R-  Net LW flux above surface (W/m2), positive up
+  ! (i.e. flux emited - flux absorbed by the surface)
+  ! sens(klon)--input-R-  Sensible Flux at surface  (W/m2), positive down
+  ! evap(klon)--input-R-  Evaporation + sublimation watter vapour mass flux
+  ! (kg/m2/s), positive up
+  ! rain_fall(klon)
+  ! --input-R- Liquid  watter mass flux (kg/m2/s), positive down
+  ! snow_fall(klon)
+  ! --input-R- Solid  watter mass flux (kg/m2/s), positive down
+  ! ts(klon)----input-R- Surface temperature (K)
+  ! d_etp_tot---input-R- Heat flux equivalent to atmospheric enthalpy
+  ! change (W/m2)
+  ! d_qt_tot----input-R- Mass flux equivalent to atmospheric watter mass
+  ! change (kg/m2/s)
+  ! d_ec_tot----input-R- Flux equivalent to atmospheric cinetic energy
+  ! change (W/m2)
+
+  ! fs_bound---output-R- Thermal flux at the atmosphere boundaries (W/m2)
+  ! fq_bound---output-R- Watter mass flux at the atmosphere boundaries
+  ! (kg/m2/s)
+
+  ! J.L. Dufresne, July 2002
+  ! Version prise sur
+  ! ~rlmd833/LMDZOR_201102/modipsl/modeles/LMDZ.3.3/libf/phylmd
+  ! le 25 Novembre 2002.
+  ! ======================================================================
+
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+  ! Input variables
+  REAL airephy(klon)
+  CHARACTER *15 tit
+  INTEGER iprt
+  REAL tops(klon), topl(klon), sols(klon), soll(klon)
+  REAL sens(klon), evap(klon), rain_fall(klon), snow_fall(klon)
+  REAL ts(klon)
+  REAL d_etp_tot, d_qt_tot, d_ec_tot
+  ! Output variables
+  REAL fs_bound, fq_bound
+
+  ! Local variables
+  REAL stops, stopl, ssols, ssoll
+  REAL ssens, sfront, slat
+  REAL airetot, zcpvap, zcwat, zcice
+  REAL rain_fall_tot, snow_fall_tot, evap_tot
+
+  INTEGER i
+
+  INTEGER pas
+  SAVE pas
+  DATA pas/0/
+  !$OMP THREADPRIVATE(pas)
+
+  pas = pas + 1
+  stops = 0.
+  stopl = 0.
+  ssols = 0.
+  ssoll = 0.
+  ssens = 0.
+  sfront = 0.
+  evap_tot = 0.
+  rain_fall_tot = 0.
+  snow_fall_tot = 0.
+  airetot = 0.
+
+  ! Pour les chaleur specifiques de la vapeur d'eau, de l'eau et de
+  ! la glace, on travaille par difference a la chaleur specifique de l'
+  ! air sec. En effet, comme on travaille a niveau de pression donne,
+  ! toute variation de la masse d'un constituant est totalement
+  ! compense par une variation de masse d'air.
+
+  zcpvap = rcpv - rcpd
+  zcwat = rcw - rcpd
+  zcice = rcs - rcpd
+
+  DO i = 1, klon
+    stops = stops + tops(i)*airephy(i)
+    stopl = stopl + topl(i)*airephy(i)
+    ssols = ssols + sols(i)*airephy(i)
+    ssoll = ssoll + soll(i)*airephy(i)
+    ssens = ssens + sens(i)*airephy(i)
+    sfront = sfront + (evap(i)*zcpvap-rain_fall(i)*zcwat-snow_fall(i)*zcice)* &
+      ts(i)*airephy(i)
+    evap_tot = evap_tot + evap(i)*airephy(i)
+    rain_fall_tot = rain_fall_tot + rain_fall(i)*airephy(i)
+    snow_fall_tot = snow_fall_tot + snow_fall(i)*airephy(i)
+    airetot = airetot + airephy(i)
+  END DO
+  stops = stops/airetot
+  stopl = stopl/airetot
+  ssols = ssols/airetot
+  ssoll = ssoll/airetot
+  ssens = ssens/airetot
+  sfront = sfront/airetot
+  evap_tot = evap_tot/airetot
+  rain_fall_tot = rain_fall_tot/airetot
+  snow_fall_tot = snow_fall_tot/airetot
+
+  slat = rlvtt*rain_fall_tot + rlstt*snow_fall_tot
+  ! Heat flux at atm. boundaries
+  fs_bound = stops - stopl - (ssols+ssoll) + ssens + sfront + slat
+  ! Watter flux at atm. boundaries
+  fq_bound = evap_tot - rain_fall_tot - snow_fall_tot
+
+  IF (iprt>=1) WRITE (6, 6666) tit, pas, fs_bound, d_etp_tot, fq_bound, &
+    d_qt_tot
+
+  IF (iprt>=1) WRITE (6, 6668) tit, pas, d_etp_tot + d_ec_tot - fs_bound, &
+    d_qt_tot - fq_bound
+
+  IF (iprt>=2) WRITE (6, 6667) tit, pas, stops, stopl, ssols, ssoll, ssens, &
+    slat, evap_tot, rain_fall_tot + snow_fall_tot
+
+  RETURN
+
+6666 FORMAT ('Phys. Flux Budget ', A15, 1I6, 2F8.2, 2(1PE13.5))
+6667 FORMAT ('Phys. Boundary Flux ', A15, 1I6, 6F8.2, 2(1PE13.5))
+6668 FORMAT ('Phys. Total Budget ', A15, 1I6, F8.2, 2(1PE13.5))
+
+END SUBROUTINE diagphy
+
+! ======================================================================
+SUBROUTINE diagetpq(airephy, tit, iprt, idiag, idiag2, dtime, t, q, ql, qs, &
+    u, v, paprs, pplay, d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+  ! ======================================================================
+
+  ! Purpose:
+  ! Calcul la difference d'enthalpie et de masse d'eau entre 2 appels,
+  ! et calcul le flux de chaleur et le flux d'eau necessaire a ces
+  ! changements. Ces valeurs sont moyennees sur la surface de tout
+  ! le globe et sont exprime en W/2 et kg/s/m2
+  ! Outil pour diagnostiquer la conservation de l'energie
+  ! et de la masse dans la physique. Suppose que les niveau de
+  ! pression entre couche ne varie pas entre 2 appels.
+
+  ! Plusieurs de ces diagnostics peuvent etre fait en parallele: les
+  ! bilans sont sauvegardes dans des tableaux indices. On parlera
+  ! "d'indice de diagnostic"
+
+
+  ! ======================================================================
+  ! Arguments:
+  ! airephy-------input-R-  grid area
+  ! tit-----imput-A15- Comment added in PRINT (CHARACTER*15)
+  ! iprt----input-I-  PRINT level ( <=1 : no PRINT)
+  ! idiag---input-I- indice dans lequel sera range les nouveaux
+  ! bilans d' entalpie et de masse
+  ! idiag2--input-I-les nouveaux bilans d'entalpie et de masse
+  ! sont compare au bilan de d'enthalpie de masse de
+  ! l'indice numero idiag2
+  ! Cas parriculier : si idiag2=0, pas de comparaison, on
+  ! sort directement les bilans d'enthalpie et de masse
+  ! dtime----input-R- time step (s)
+  ! t--------input-R- temperature (K)
+  ! q--------input-R- vapeur d'eau (kg/kg)
+  ! ql-------input-R- liquid watter (kg/kg)
+  ! qs-------input-R- solid watter (kg/kg)
+  ! u--------input-R- vitesse u
+  ! v--------input-R- vitesse v
+  ! paprs----input-R- pression a intercouche (Pa)
+  ! pplay----input-R- pression au milieu de couche (Pa)
+
+  ! the following total value are computed by UNIT of earth surface
+
+  ! d_h_vcol--output-R- Heat flux (W/m2) define as the Enthalpy
+  ! change (J/m2) during one time step (dtime) for the whole
+  ! atmosphere (air, watter vapour, liquid and solid)
+  ! d_qt------output-R- total water mass flux (kg/m2/s) defined as the
+  ! total watter (kg/m2) change during one time step (dtime),
+  ! d_qw------output-R- same, for the watter vapour only (kg/m2/s)
+  ! d_ql------output-R- same, for the liquid watter only (kg/m2/s)
+  ! d_qs------output-R- same, for the solid watter only (kg/m2/s)
+  ! d_ec------output-R- Cinetic Energy Budget (W/m2) for vertical air column
+
+  ! other (COMMON...)
+  ! RCPD, RCPV, ....
+
+  ! J.L. Dufresne, July 2002
+  ! ======================================================================
+
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+  include "YOETHF.h"
+
+  ! Input variables
+  REAL airephy(klon)
+  CHARACTER *15 tit
+  INTEGER iprt, idiag, idiag2
+  REAL dtime
+  REAL t(klon, klev), q(klon, klev), ql(klon, klev), qs(klon, klev)
+  REAL u(klon, klev), v(klon, klev)
+  REAL paprs(klon, klev+1), pplay(klon, klev)
+  ! Output variables
+  REAL d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec
+
+  ! Local variables
+
+  REAL h_vcol_tot, h_dair_tot, h_qw_tot, h_ql_tot, h_qs_tot, qw_tot, ql_tot, &
+    qs_tot, ec_tot
+  ! h_vcol_tot--  total enthalpy of vertical air column
+  ! (air with watter vapour, liquid and solid) (J/m2)
+  ! h_dair_tot-- total enthalpy of dry air (J/m2)
+  ! h_qw_tot----  total enthalpy of watter vapour (J/m2)
+  ! h_ql_tot----  total enthalpy of liquid watter (J/m2)
+  ! h_qs_tot----  total enthalpy of solid watter  (J/m2)
+  ! qw_tot------  total mass of watter vapour (kg/m2)
+  ! ql_tot------  total mass of liquid watter (kg/m2)
+  ! qs_tot------  total mass of solid watter (kg/m2)
+  ! ec_tot------  total cinetic energy (kg/m2)
+
+  REAL zairm(klon, klev) ! layer air mass (kg/m2)
+  REAL zqw_col(klon)
+  REAL zql_col(klon)
+  REAL zqs_col(klon)
+  REAL zec_col(klon)
+  REAL zh_dair_col(klon)
+  REAL zh_qw_col(klon), zh_ql_col(klon), zh_qs_col(klon)
+
+  REAL d_h_dair, d_h_qw, d_h_ql, d_h_qs
+
+  REAL airetot, zcpvap, zcwat, zcice
+
+  INTEGER i, k
+
+  INTEGER ndiag ! max number of diagnostic in parallel
+  PARAMETER (ndiag=10)
+  INTEGER pas(ndiag)
+  SAVE pas
+  DATA pas/ndiag*0/
+  !$OMP THREADPRIVATE(pas)
+
+  REAL h_vcol_pre(ndiag), h_dair_pre(ndiag), h_qw_pre(ndiag), &
+    h_ql_pre(ndiag), h_qs_pre(ndiag), qw_pre(ndiag), ql_pre(ndiag), &
+    qs_pre(ndiag), ec_pre(ndiag)
+  SAVE h_vcol_pre, h_dair_pre, h_qw_pre, h_ql_pre, h_qs_pre, qw_pre, ql_pre, &
+    qs_pre, ec_pre
+  !$OMP THREADPRIVATE(h_vcol_pre, h_dair_pre, h_qw_pre, h_ql_pre)
+  !$OMP THREADPRIVATE(h_qs_pre, qw_pre, ql_pre, qs_pre , ec_pre)
+  ! ======================================================================
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ! layer air mass
+      zairm(i, k) = (paprs(i,k)-paprs(i,k+1))/rg
+    END DO
+  END DO
+
+  ! Reset variables
+  DO i = 1, klon
+    zqw_col(i) = 0.
+    zql_col(i) = 0.
+    zqs_col(i) = 0.
+    zec_col(i) = 0.
+    zh_dair_col(i) = 0.
+    zh_qw_col(i) = 0.
+    zh_ql_col(i) = 0.
+    zh_qs_col(i) = 0.
+  END DO
+
+  zcpvap = rcpv
+  zcwat = rcw
+  zcice = rcs
+
+  ! Compute vertical sum for each atmospheric column
+  ! ================================================
+  DO k = 1, klev
+    DO i = 1, klon
+      ! Watter mass
+      zqw_col(i) = zqw_col(i) + q(i, k)*zairm(i, k)
+      zql_col(i) = zql_col(i) + ql(i, k)*zairm(i, k)
+      zqs_col(i) = zqs_col(i) + qs(i, k)*zairm(i, k)
+      ! Cinetic Energy
+      zec_col(i) = zec_col(i) + 0.5*(u(i,k)**2+v(i,k)**2)*zairm(i, k)
+      ! Air enthalpy
+      zh_dair_col(i) = zh_dair_col(i) + rcpd*(1.-q(i,k)-ql(i,k)-qs(i,k))* &
+        zairm(i, k)*t(i, k)
+      zh_qw_col(i) = zh_qw_col(i) + zcpvap*q(i, k)*zairm(i, k)*t(i, k)
+      zh_ql_col(i) = zh_ql_col(i) + zcwat*ql(i, k)*zairm(i, k)*t(i, k) - &
+        rlvtt*ql(i, k)*zairm(i, k)
+      zh_qs_col(i) = zh_qs_col(i) + zcice*qs(i, k)*zairm(i, k)*t(i, k) - &
+        rlstt*qs(i, k)*zairm(i, k)
+
+    END DO
+  END DO
+
+  ! Mean over the planete surface
+  ! =============================
+  qw_tot = 0.
+  ql_tot = 0.
+  qs_tot = 0.
+  ec_tot = 0.
+  h_vcol_tot = 0.
+  h_dair_tot = 0.
+  h_qw_tot = 0.
+  h_ql_tot = 0.
+  h_qs_tot = 0.
+  airetot = 0.
+
+  DO i = 1, klon
+    qw_tot = qw_tot + zqw_col(i)*airephy(i)
+    ql_tot = ql_tot + zql_col(i)*airephy(i)
+    qs_tot = qs_tot + zqs_col(i)*airephy(i)
+    ec_tot = ec_tot + zec_col(i)*airephy(i)
+    h_dair_tot = h_dair_tot + zh_dair_col(i)*airephy(i)
+    h_qw_tot = h_qw_tot + zh_qw_col(i)*airephy(i)
+    h_ql_tot = h_ql_tot + zh_ql_col(i)*airephy(i)
+    h_qs_tot = h_qs_tot + zh_qs_col(i)*airephy(i)
+    airetot = airetot + airephy(i)
+  END DO
+
+  qw_tot = qw_tot/airetot
+  ql_tot = ql_tot/airetot
+  qs_tot = qs_tot/airetot
+  ec_tot = ec_tot/airetot
+  h_dair_tot = h_dair_tot/airetot
+  h_qw_tot = h_qw_tot/airetot
+  h_ql_tot = h_ql_tot/airetot
+  h_qs_tot = h_qs_tot/airetot
+
+  h_vcol_tot = h_dair_tot + h_qw_tot + h_ql_tot + h_qs_tot
+
+  ! Compute the change of the atmospheric state compare to the one
+  ! stored in "idiag2", and convert it in flux. THis computation
+  ! is performed IF idiag2 /= 0 and IF it is not the first CALL
+  ! for "idiag"
+  ! ===================================
+
+  IF ((idiag2>0) .AND. (pas(idiag2)/=0)) THEN
+    d_h_vcol = (h_vcol_tot-h_vcol_pre(idiag2))/dtime
+    d_h_dair = (h_dair_tot-h_dair_pre(idiag2))/dtime
+    d_h_qw = (h_qw_tot-h_qw_pre(idiag2))/dtime
+    d_h_ql = (h_ql_tot-h_ql_pre(idiag2))/dtime
+    d_h_qs = (h_qs_tot-h_qs_pre(idiag2))/dtime
+    d_qw = (qw_tot-qw_pre(idiag2))/dtime
+    d_ql = (ql_tot-ql_pre(idiag2))/dtime
+    d_qs = (qs_tot-qs_pre(idiag2))/dtime
+    d_ec = (ec_tot-ec_pre(idiag2))/dtime
+    d_qt = d_qw + d_ql + d_qs
+  ELSE
+    d_h_vcol = 0.
+    d_h_dair = 0.
+    d_h_qw = 0.
+    d_h_ql = 0.
+    d_h_qs = 0.
+    d_qw = 0.
+    d_ql = 0.
+    d_qs = 0.
+    d_ec = 0.
+    d_qt = 0.
+  END IF
+
+  IF (iprt>=2) THEN
+    WRITE (6, 9000) tit, pas(idiag), d_qt, d_qw, d_ql, d_qs
+9000 FORMAT ('Phys. Watter Mass Budget (kg/m2/s)', A15, 1I6, 10(1PE14.6))
+    WRITE (6, 9001) tit, pas(idiag), d_h_vcol
+9001 FORMAT ('Phys. Enthalpy Budget (W/m2) ', A15, 1I6, 10(F8.2))
+    WRITE (6, 9002) tit, pas(idiag), d_ec
+9002 FORMAT ('Phys. Cinetic Energy Budget (W/m2) ', A15, 1I6, 10(F8.2))
+  END IF
+
+  ! Store the new atmospheric state in "idiag"
+
+  pas(idiag) = pas(idiag) + 1
+  h_vcol_pre(idiag) = h_vcol_tot
+  h_dair_pre(idiag) = h_dair_tot
+  h_qw_pre(idiag) = h_qw_tot
+  h_ql_pre(idiag) = h_ql_tot
+  h_qs_pre(idiag) = h_qs_tot
+  qw_pre(idiag) = qw_tot
+  ql_pre(idiag) = ql_tot
+  qs_pre(idiag) = qs_tot
+  ec_pre(idiag) = ec_tot
+
+  RETURN
+END SUBROUTINE diagetpq
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dimphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dimphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dimphy.F90	(revision 3330)
@@ -0,0 +1,41 @@
+MODULE dimphy
+  
+  INTEGER,SAVE :: klon
+  INTEGER,SAVE :: kdlon
+  INTEGER,SAVE :: kfdia
+  INTEGER,SAVE :: kidia
+  INTEGER,SAVE :: klev
+  INTEGER,SAVE :: klevp1
+  INTEGER,SAVE :: klevm1
+  INTEGER,SAVE :: kflev
+  INTEGER,SAVE :: nslay
+
+!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon,nslay)
+  REAL,save,allocatable,dimension(:) :: zmasq
+!$OMP THREADPRIVATE(zmasq)   
+
+CONTAINS
+  
+  SUBROUTINE Init_dimphy(klon0,klev0)
+  IMPLICIT NONE
+  
+    INTEGER, INTENT(in) :: klon0
+    INTEGER, INTENT(in) :: klev0
+    
+    klon=klon0
+    nslay=1 ! Slab, provisoire (F. Codron)
+    kdlon=klon
+    kidia=1
+    kfdia=klon
+!$OMP MASTER 
+    klev=klev0
+    klevp1=klev+1
+    klevm1=klev-1
+    kflev=klev
+!$OMP END MASTER    
+    ALLOCATE(zmasq(klon))    
+    
+  END SUBROUTINE Init_dimphy
+
+  
+END MODULE dimphy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dimsoil.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dimsoil.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dimsoil.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER nsoilmx
+      PARAMETER (nsoilmx=11)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1DUTILS.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1DUTILS.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1DUTILS.h	(revision 3330)
@@ -0,0 +1,4466 @@
+#include "conf_gcm.F90"
+
+!
+! $Id: conf_unicol.F 1279 2010-08-04 17:20:56Z lahellec $
+!
+!
+!
+      SUBROUTINE conf_unicol
+!
+#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 print_control_mod, ONLY: lunout
+      IMPLICIT NONE
+!-----------------------------------------------------------------------
+!     Auteurs :   A. Lahellec  .
+!
+!   Declarations :
+!   --------------
+
+#include "compar1d.h"
+#include "flux_arp.h"
+#include "tsoilnudge.h"
+#include "fcg_gcssold.h"
+#include "fcg_racmo.h"
+!
+!
+!   local:
+!   ------
+
+!      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
+      
+!
+!  -------------------------------------------------------------------
+!
+!      .........    Initilisation parametres du lmdz1D      ..........
+!
+!---------------------------------------------------------------------
+!   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(lunout,FILE='lmdz.out')
+      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  = restart
+!Config  Desc = on repart des startphy et start1dyn
+!Config  Def  = false
+!Config  Help = les fichiers restart doivent etre renomme en start
+       restart =.false.
+       CALL getin('restart',restart)
+
+!Config  Key  = forcing_type
+!Config  Desc = defines the way the SCM is forced:
+!Config  Def  = 0
+!!Config  Help = 0 ==> forcing_les = .true.
+!             initial profiles from file prof.inp.001
+!             no forcing by LS convergence ; 
+!             surface temperature imposed ;
+!             radiative cooling may be imposed (iflag_radia=0 in physiq.def)
+!         = 1 ==> forcing_radconv = .true.
+!             idem forcing_type = 0, but the imposed radiative cooling 
+!             is set to 0 (hence, if iflag_radia=0 in physiq.def, 
+!             then there is no radiative cooling at all)
+!         = 2 ==> forcing_toga = .true.
+!             initial profiles from TOGA-COARE IFA files 
+!             LS convergence and SST imposed from TOGA-COARE IFA files 
+!         = 3 ==> forcing_GCM2SCM = .true.
+!             initial profiles from the GCM output
+!             LS convergence imposed from the GCM output
+!         = 4 ==> forcing_twpi = .true.
+!             initial profiles from TWPICE nc files 
+!             LS convergence and SST imposed from TWPICE nc files 
+!         = 5 ==> forcing_rico = .true.
+!             initial profiles from RICO idealized
+!             LS convergence imposed from  RICO (cst) 
+!         = 6 ==> forcing_amma = .true.
+!         = 10 ==> forcing_case = .true.
+!             initial profiles from case.nc file 
+!         = 40 ==> forcing_GCSSold = .true.
+!             initial profile from GCSS file
+!             LS convergence imposed from GCSS file
+!         = 50 ==> forcing_fire = .true.
+!         = 59 ==> forcing_sandu = .true.
+!             initial profiles from sanduref file: see prof.inp.001
+!             SST varying with time and divergence constante: see ifa_sanduref.txt file
+!             Radiation has to be computed interactively
+!         = 60 ==> forcing_astex = .true.
+!             initial profiles from file: see prof.inp.001 
+!             SST,divergence,ug,vg,ufa,vfa varying with time : see ifa_astex.txt file
+!             Radiation has to be computed interactively
+!         = 61 ==> forcing_armcu = .true.
+!             initial profiles from file: see prof.inp.001 
+!             sensible and latent heat flux imposed: see ifa_arm_cu_1.txt
+!             large scale advective forcing & radiative tendencies applied below 1000m: see ifa_arm_cu_2.txt
+!             use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s 
+!             Radiation to be switched off
+!
+       forcing_type = 0
+       CALL getin('forcing_type',forcing_type)
+         imp_fcg_gcssold   = .false.
+         ts_fcg_gcssold    = .false.  
+         Tp_fcg_gcssold    = .false.  
+         Tp_ini_gcssold    = .false.  
+         xTurb_fcg_gcssold = .false. 
+        IF (forcing_type .eq.40) THEN
+          CALL getin('imp_fcg',imp_fcg_gcssold)
+          CALL getin('ts_fcg',ts_fcg_gcssold)
+          CALL getin('tp_fcg',Tp_fcg_gcssold)
+          CALL getin('tp_ini',Tp_ini_gcssold)
+          CALL getin('turb_fcg',xTurb_fcg_gcssold)
+        ENDIF
+
+!Paramètres de forçage
+!Config  Key  = tend_t
+!Config  Desc = forcage ou non par advection de T
+!Config  Def  = false
+!Config  Help = forcage ou non par advection de T
+       tend_t =0
+       CALL getin('tend_t',tend_t)
+
+!Config  Key  = tend_q
+!Config  Desc = forcage ou non par advection de q
+!Config  Def  = false
+!Config  Help = forcage ou non par advection de q
+       tend_q =0
+       CALL getin('tend_q',tend_q)
+
+!Config  Key  = tend_u
+!Config  Desc = forcage ou non par advection de u
+!Config  Def  = false
+!Config  Help = forcage ou non par advection de u
+       tend_u =0
+       CALL getin('tend_u',tend_u)
+
+!Config  Key  = tend_v
+!Config  Desc = forcage ou non par advection de v
+!Config  Def  = false
+!Config  Help = forcage ou non par advection de v
+       tend_v =0
+       CALL getin('tend_v',tend_v)
+
+!Config  Key  = tend_w
+!Config  Desc = forcage ou non par vitesse verticale
+!Config  Def  = false
+!Config  Help = forcage ou non par vitesse verticale
+       tend_w =0
+       CALL getin('tend_w',tend_w)
+
+!Config  Key  = tend_rayo
+!Config  Desc = forcage ou non par dtrad
+!Config  Def  = false
+!Config  Help = forcage ou non par dtrad
+       tend_rayo =0
+       CALL getin('tend_rayo',tend_rayo)
+
+
+!Config  Key  = nudge_t
+!Config  Desc = constante de nudging de T
+!Config  Def  = false
+!Config  Help = constante de nudging de T
+       nudge_t =0.
+       CALL getin('nudge_t',nudge_t)
+
+!Config  Key  = nudge_q
+!Config  Desc = constante de nudging de q
+!Config  Def  = false
+!Config  Help = constante de nudging de q
+       nudge_q =0.
+       CALL getin('nudge_q',nudge_q)
+
+!Config  Key  = nudge_u
+!Config  Desc = constante de nudging de u
+!Config  Def  = false
+!Config  Help = constante de nudging de u
+       nudge_u =0.
+       CALL getin('nudge_u',nudge_u)
+
+!Config  Key  = nudge_v
+!Config  Desc = constante de nudging de v
+!Config  Def  = false
+!Config  Help = constante de nudging de v
+       nudge_v =0.
+       CALL getin('nudge_v',nudge_v)
+
+!Config  Key  = nudge_w
+!Config  Desc = constante de nudging de w
+!Config  Def  = false
+!Config  Help = constante de nudging de w
+       nudge_w =0.
+       CALL getin('nudge_w',nudge_w)
+
+
+!Config  Key  = iflag_nudge
+!Config  Desc = atmospheric nudging ttype (decimal code)
+!Config  Def  = 0
+!Config  Help = 0 ==> no nudging
+!  If digit number n of iflag_nudge is set, then nudging of type n is on
+!  If digit number n of iflag_nudge is not set, then nudging of type n is off
+!   (digits are numbered from the right)
+       iflag_nudge = 0
+       CALL getin('iflag_nudge',iflag_nudge)
+
+!Config  Key  = ok_flux_surf
+!Config  Desc = forcage ou non par les flux de surface
+!Config  Def  = false
+!Config  Help = forcage ou non par les flux de surface
+       ok_flux_surf =.false.
+       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)
+!Config  Def  = false
+!Config  Help = utilisation de l ancien programme disvert0 (dans 1DUTILS.h)
+       ok_old_disvert = .FALSE.
+       CALL getin('ok_old_disvert',ok_old_disvert)
+
+!Config  Key  = time_ini
+!Config  Desc = meaningless in this  case
+!Config  Def  = 0.
+!Config  Help = 
+       tsurf = 0.
+       CALL getin('time_ini',time_ini)
+
+!Config  Key  = rlat et rlon
+!Config  Desc = latitude et longitude
+!Config  Def  = 0.0  0.0
+!Config  Help = fixe la position de la colonne
+       xlat = 0.
+       xlon = 0.
+       CALL getin('rlat',xlat)
+       CALL getin('rlon',xlon)
+
+!Config  Key  = airephy
+!Config  Desc = Grid cell area
+!Config  Def  = 1.e11
+!Config  Help = 
+       airefi = 1.e11
+       CALL getin('airephy',airefi)
+
+!Config  Key  = nat_surf
+!Config  Desc = surface type
+!Config  Def  = 0 (ocean)
+!Config  Help = 0=ocean,1=land,2=glacier,3=banquise
+       nat_surf = 0.
+       CALL getin('nat_surf',nat_surf)
+
+!Config  Key  = tsurf
+!Config  Desc = surface temperature
+!Config  Def  = 290.
+!Config  Help = not used if type_ts_forcing=1 in lmdz1d.F
+       tsurf = 290.
+       CALL getin('tsurf',tsurf)
+
+!Config  Key  = psurf
+!Config  Desc = surface pressure
+!Config  Def  = 102400.
+!Config  Help = 
+       psurf = 102400.
+       CALL getin('psurf',psurf)
+
+!Config  Key  = zsurf
+!Config  Desc = surface altitude
+!Config  Def  = 0.
+!Config  Help = 
+       zsurf = 0.
+       CALL getin('zsurf',zsurf)
+
+!Config  Key  = rugos
+!Config  Desc = coefficient de frottement
+!Config  Def  = 0.0001
+!Config  Help = calcul du Cdrag
+       rugos = 0.0001
+       CALL getin('rugos',rugos)
+
+!Config  Key  = wtsurf et wqsurf
+!Config  Desc = ???
+!Config  Def  = 0.0 0.0
+!Config  Help = 
+       wtsurf = 0.0
+       wqsurf = 0.0
+       CALL getin('wtsurf',wtsurf)
+       CALL getin('wqsurf',wqsurf)
+
+!Config  Key  = albedo
+!Config  Desc = albedo
+!Config  Def  = 0.09
+!Config  Help = 
+       albedo = 0.09
+       CALL getin('albedo',albedo)
+
+!Config  Key  = agesno
+!Config  Desc = age de la neige
+!Config  Def  = 30.0
+!Config  Help = 
+       xagesno = 30.0
+       CALL getin('agesno',xagesno)
+
+!Config  Key  = restart_runoff
+!Config  Desc = age de la neige
+!Config  Def  = 30.0
+!Config  Help = 
+       restart_runoff = 0.0
+       CALL getin('restart_runoff',restart_runoff)
+
+!Config  Key  = qsolinp
+!Config  Desc = initial bucket water content (kg/m2) when land (5std)
+!Config  Def  = 30.0
+!Config  Help = 
+       qsolinp = 1.
+       CALL getin('qsolinp',qsolinp)
+
+!Config  Key  = zpicinp
+!Config  Desc = denivellation orographie
+!Config  Def  = 300.
+!Config  Help =  input brise
+       zpicinp = 300.
+       CALL getin('zpicinp',zpicinp)
+!Config key = nudge_tsoil
+!Config  Desc = activation of soil temperature nudging
+!Config  Def  = .FALSE.
+!Config  Help = ...
+
+       nudge_tsoil=.FALSE.
+       CALL getin('nudge_tsoil',nudge_tsoil)
+
+!Config key = isoil_nudge
+!Config  Desc = level number where soil temperature is nudged
+!Config  Def  = 3
+!Config  Help = ...
+
+       isoil_nudge=3
+       CALL getin('isoil_nudge',isoil_nudge)
+
+!Config key = Tsoil_nudge
+!Config  Desc = target temperature for tsoil(isoil_nudge)
+!Config  Def  = 300.
+!Config  Help = ...
+
+       Tsoil_nudge=300.
+       CALL getin('Tsoil_nudge',Tsoil_nudge)
+
+!Config key = tau_soil_nudge
+!Config  Desc = nudging relaxation time for tsoil
+!Config  Def  = 3600.
+!Config  Help = ...
+
+       tau_soil_nudge=3600.
+       CALL getin('tau_soil_nudge',tau_soil_nudge)
+
+
+
+
+      write(lunout,*)' +++++++++++++++++++++++++++++++++++++++'
+      write(lunout,*)' Configuration des parametres du gcm1D: '
+      write(lunout,*)' +++++++++++++++++++++++++++++++++++++++'
+      write(lunout,*)' restart = ', restart
+      write(lunout,*)' forcing_type = ', forcing_type
+      write(lunout,*)' time_ini = ', time_ini
+      write(lunout,*)' rlat = ', xlat
+      write(lunout,*)' rlon = ', xlon
+      write(lunout,*)' airephy = ', airefi
+      write(lunout,*)' nat_surf = ', nat_surf
+      write(lunout,*)' tsurf = ', tsurf
+      write(lunout,*)' psurf = ', psurf
+      write(lunout,*)' zsurf = ', zsurf
+      write(lunout,*)' rugos = ', rugos
+      write(lunout,*)' wtsurf = ', wtsurf
+      write(lunout,*)' wqsurf = ', wqsurf
+      write(lunout,*)' albedo = ', albedo
+      write(lunout,*)' xagesno = ', xagesno
+      write(lunout,*)' restart_runoff = ', restart_runoff
+      write(lunout,*)' qsolinp = ', qsolinp
+      write(lunout,*)' zpicinp = ', zpicinp
+      write(lunout,*)' nudge_tsoil = ', nudge_tsoil
+      write(lunout,*)' isoil_nudge = ', isoil_nudge
+      write(lunout,*)' Tsoil_nudge = ', Tsoil_nudge
+      write(lunout,*)' tau_soil_nudge = ', tau_soil_nudge
+      IF (forcing_type .eq.40) THEN
+        write(lunout,*) '--- Forcing type GCSS Old --- with:'
+        write(lunout,*)'imp_fcg',imp_fcg_gcssold
+        write(lunout,*)'ts_fcg',ts_fcg_gcssold
+        write(lunout,*)'tp_fcg',Tp_fcg_gcssold
+        write(lunout,*)'tp_ini',Tp_ini_gcssold
+        write(lunout,*)'xturb_fcg',xTurb_fcg_gcssold
+      ENDIF
+
+      write(lunout,*)' +++++++++++++++++++++++++++++++++++++++'
+      write(lunout,*)
+!
+      RETURN
+      END
+!
+! $Id: dyn1deta0.F 1279 2010/07/30 A Lahellec$
+!
+!
+      SUBROUTINE dyn1deta0(fichnom,plev,play,phi,phis,presnivs,                 &
+     &                          ucov,vcov,temp,q,omega2)
+      USE dimphy
+      USE mod_grid_phy_lmdz
+      USE mod_phys_lmdz_para
+      USE iophy
+      USE phys_state_var_mod
+      USE iostart
+      USE write_field_phy
+      USE infotrac
+      use control_mod
+      USE comconst_mod, ONLY: im, jm, lllm
+      USE logic_mod, ONLY: fxyhypb, ysinus
+      USE temps_mod, ONLY: annee_ref, day_ini, day_ref, itau_dyn
+
+      IMPLICIT NONE
+!=======================================================
+! Ecriture du fichier de redemarrage sous format NetCDF
+!=======================================================
+!   Declarations:
+!   -------------
+      include "dimensions.h"
+!!#include "control.h"
+      include "netcdf.inc"
+
+!   Arguments:
+!   ----------
+      CHARACTER*(*) fichnom
+!Al1 plev tronque pour .nc mais plev(klev+1):=0
+      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)
+      real :: q(klon,klev,nqtot),omega2(klon,klev)
+!      real :: ug(klev),vg(klev),fcoriolis
+      real :: phis(klon) 
+
+!   Variables locales pour NetCDF:
+!   ------------------------------
+      INTEGER iq
+      INTEGER length
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      character*4 nmq(nqtot)
+      character*12 modname
+      character*80 abort_message
+      LOGICAL found
+
+      modname = 'dyn1deta0 : '
+      nmq(1)="vap"
+      nmq(2)="cond"
+      do iq=3,nqtot
+        write(nmq(iq),'("tra",i1)') iq-2
+      enddo
+      print*,'in dyn1deta0 ',fichnom,klon,klev,nqtot
+      CALL open_startphy(fichnom)
+      print*,'after open startphy ',fichnom,nmq
+
+!
+! Lecture des parametres de controle:
+!
+      CALL get_var("controle",tab_cntrl)
+       
+
+      im         = tab_cntrl(1)
+      jm         = tab_cntrl(2)
+      lllm       = tab_cntrl(3)
+      day_ref    = tab_cntrl(4)
+      annee_ref  = tab_cntrl(5)
+!      rad        = tab_cntrl(6)
+!      omeg       = tab_cntrl(7)
+!      g          = tab_cntrl(8)
+!      cpp        = tab_cntrl(9)
+!      kappa      = tab_cntrl(10)
+!      daysec     = tab_cntrl(11)
+!      dtvr       = tab_cntrl(12)
+!      etot0      = tab_cntrl(13)
+!      ptot0      = tab_cntrl(14)
+!      ztot0      = tab_cntrl(15)
+!      stot0      = tab_cntrl(16)
+!      ang0       = tab_cntrl(17)
+!      pa         = tab_cntrl(18)
+!      preff      = tab_cntrl(19)
+!
+!      clon       = tab_cntrl(20)
+!      clat       = tab_cntrl(21)
+!      grossismx  = tab_cntrl(22)
+!      grossismy  = tab_cntrl(23)
+!
+      IF ( tab_cntrl(24).EQ.1. )  THEN
+        fxyhypb  =.true.
+!        dzoomx   = tab_cntrl(25)
+!        dzoomy   = tab_cntrl(26)
+!        taux     = tab_cntrl(28)
+!        tauy     = tab_cntrl(29)
+      ELSE
+        fxyhypb = .false.
+        ysinus  = .false.
+        IF( tab_cntrl(27).EQ.1. ) ysinus =.true. 
+      ENDIF
+
+      day_ini = tab_cntrl(30)
+      itau_dyn = tab_cntrl(31)
+!   .................................................................
+!
+!
+!      PRINT*,'rad,omeg,g,cpp,kappa',rad,omeg,g,cpp,kappa
+!Al1
+       Print*,'day_ref,annee_ref,day_ini,itau_dyn',                         &
+     &              day_ref,annee_ref,day_ini,itau_dyn
+
+!  Lecture des champs
+!
+      CALL get_field("play",play,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <Play> est absent'
+      CALL get_field("phi",phi,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <Phi> est absent'
+      CALL get_field("phis",phis,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <Phis> est absent'
+      CALL get_field("presnivs",presnivs,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <Presnivs> est absent'
+      CALL get_field("ucov",ucov,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <ucov> est absent'
+      CALL get_field("vcov",vcov,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <vcov> est absent'
+      CALL get_field("temp",temp,found)
+      IF (.NOT. found) PRINT*, modname//'Le champ <temp> est absent'
+      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
+        CALL get_field("q"//nmq(iq),q(:,:,iq),found)
+        IF (.NOT.found)PRINT*, modname//'Le champ <q'//nmq//'> est absent'
+      EndDo
+
+      CALL close_startphy
+      print*,' close startphy',fichnom,play(1,1),play(1,klev),temp(1,klev)
+!
+      RETURN
+      END
+!
+! $Id: dyn1dredem.F 1279 2010/07/29 A Lahellec$
+!
+!
+      SUBROUTINE dyn1dredem(fichnom,plev,play,phi,phis,presnivs,           &
+     &                          ucov,vcov,temp,q,omega2)
+      USE dimphy
+      USE mod_grid_phy_lmdz
+      USE mod_phys_lmdz_para
+      USE phys_state_var_mod
+      USE iostart
+      USE infotrac
+      use control_mod
+      USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
+      USE logic_mod, ONLY: fxyhypb, ysinus
+      USE temps_mod, ONLY: annee_ref,day_end,day_ref,itau_dyn,itaufin
+
+      IMPLICIT NONE
+!=======================================================
+! Ecriture du fichier de redemarrage sous format NetCDF
+!=======================================================
+!   Declarations:
+!   -------------
+      include "dimensions.h"
+!!#include "control.h"
+      include "netcdf.inc"
+
+!   Arguments:
+!   ----------
+      CHARACTER*(*) fichnom
+!Al1 plev tronque pour .nc mais plev(klev+1):=0
+      real :: plev(klon,klev),play (klon,klev),phi(klon,klev)
+      real :: presnivs(klon,klev)
+      real :: ucov(klon,klev),vcov(klon,klev),temp(klon,klev)
+      real :: q(klon,klev,nqtot)
+      real :: omega2(klon,klev),rho(klon,klev+1)
+!      real :: ug(klev),vg(klev),fcoriolis
+      real :: phis(klon) 
+
+!   Variables locales pour NetCDF:
+!   ------------------------------
+      INTEGER nid
+      INTEGER ierr
+      INTEGER iq,l
+      INTEGER length
+      PARAMETER (length = 100)
+      REAL tab_cntrl(length) ! tableau des parametres du run
+      character*4 nmq(nqtot)
+      character*20 modname
+      character*80 abort_message
+!
+      INTEGER nb
+      SAVE nb
+      DATA nb / 0 /
+
+      CALL open_restartphy(fichnom)
+      print*,'redm1 ',fichnom,klon,klev,nqtot
+      nmq(1)="vap"
+      nmq(2)="cond"
+      nmq(3)="tra1"
+      nmq(4)="tra2"
+
+      modname = 'dyn1dredem'
+      ierr = NF_OPEN(fichnom, NF_WRITE, nid)
+      IF (ierr .NE. NF_NOERR) THEN
+         abort_message="Pb. d ouverture "//fichnom
+         CALL abort_gcm('Modele 1D',abort_message,1)
+      ENDIF
+
+      DO l=1,length
+       tab_cntrl(l) = 0.
+      ENDDO
+       tab_cntrl(1)  = FLOAT(iim)
+       tab_cntrl(2)  = FLOAT(jjm)
+       tab_cntrl(3)  = FLOAT(llm)
+       tab_cntrl(4)  = FLOAT(day_ref)
+       tab_cntrl(5)  = FLOAT(annee_ref)
+       tab_cntrl(6)  = rad
+       tab_cntrl(7)  = omeg
+       tab_cntrl(8)  = g
+       tab_cntrl(9)  = cpp
+       tab_cntrl(10) = kappa
+       tab_cntrl(11) = daysec
+       tab_cntrl(12) = dtvr
+!       tab_cntrl(13) = etot0
+!       tab_cntrl(14) = ptot0
+!       tab_cntrl(15) = ztot0
+!       tab_cntrl(16) = stot0
+!       tab_cntrl(17) = ang0
+!       tab_cntrl(18) = pa
+!       tab_cntrl(19) = preff
+!
+!    .....    parametres  pour le zoom      ......   
+
+!       tab_cntrl(20)  = clon
+!       tab_cntrl(21)  = clat
+!       tab_cntrl(22)  = grossismx
+!       tab_cntrl(23)  = grossismy
+!
+      IF ( fxyhypb )   THEN
+       tab_cntrl(24) = 1.
+!       tab_cntrl(25) = dzoomx
+!       tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+!       tab_cntrl(28) = taux
+!       tab_cntrl(29) = tauy
+      ELSE
+       tab_cntrl(24) = 0.
+!       tab_cntrl(25) = dzoomx
+!       tab_cntrl(26) = dzoomy
+       tab_cntrl(27) = 0.
+       tab_cntrl(28) = 0.
+       tab_cntrl(29) = 0.
+       IF( ysinus )  tab_cntrl(27) = 1.
+      ENDIF
+!Al1 iday_end -> day_end
+       tab_cntrl(30) = FLOAT(day_end)
+       tab_cntrl(31) = FLOAT(itau_dyn + itaufin)
+!
+      CALL put_var("controle","Param. de controle Dyn1D",tab_cntrl)
+!
+
+!  Ecriture/extension de la coordonnee temps
+
+      nb = nb + 1
+
+!  Ecriture des champs
+!
+      CALL put_field("plev","p interfaces sauf la nulle",plev)
+      CALL put_field("play","",play)
+      CALL put_field("phi","geopotentielle",phi)
+      CALL put_field("phis","geopotentiell de surface",phis)
+      CALL put_field("presnivs","",presnivs)
+      CALL put_field("ucov","",ucov)
+      CALL put_field("vcov","",vcov)
+      CALL put_field("temp","",temp)
+      CALL put_field("omega2","",omega2)
+
+      Do iq=1,nqtot
+        CALL put_field("q"//nmq(iq),"eau vap ou condens et traceurs",           &
+     &                                                      q(:,:,iq))
+      EndDo
+      CALL close_restartphy
+
+!
+      RETURN
+      END
+      SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn)
+      IMPLICIT NONE
+!=======================================================================
+!   passage d'un champ de la grille scalaire a la grille physique
+!=======================================================================
+ 
+!-----------------------------------------------------------------------
+!   declarations:
+!   -------------
+ 
+      INTEGER im,jm,ngrid,nfield
+      REAL pdyn(im,jm,nfield)
+      REAL pfi(ngrid,nfield)
+ 
+      INTEGER i,j,ifield,ig
+ 
+!-----------------------------------------------------------------------
+!   calcul:
+!   -------
+ 
+      DO ifield=1,nfield
+!   traitement des poles
+         DO i=1,im
+            pdyn(i,1,ifield)=pfi(1,ifield)
+            pdyn(i,jm,ifield)=pfi(ngrid,ifield)
+         ENDDO
+ 
+!   traitement des point normaux
+         DO j=2,jm-1
+            ig=2+(j-2)*(im-1)
+            CALL SCOPY(im-1,pfi(ig,ifield),1,pdyn(1,j,ifield),1)
+            pdyn(im,j,ifield)=pdyn(1,j,ifield)
+         ENDDO
+      ENDDO
+ 
+      RETURN
+      END
+ 
+ 
+
+      SUBROUTINE abort_gcm(modname, message, ierr)
+ 
+      USE IOIPSL
+!
+! Stops the simulation cleanly, closing files and printing various
+! comments
+!
+!  Input: modname = name of calling program
+!         message = stuff to print
+!         ierr    = severity of situation ( = 0 normal )
+ 
+      character(len=*) modname
+      integer ierr
+      character(len=*) message
+ 
+      write(*,*) 'in abort_gcm'
+      call histclo
+!     call histclo(2)
+!     call histclo(3)
+!     call histclo(4)
+!     call histclo(5)
+      write(*,*) 'out of histclo'
+      write(*,*) 'Stopping in ', modname
+      write(*,*) 'Reason = ',message
+      call getin_dump
+!
+      if (ierr .eq. 0) then
+        write(*,*) 'Everything is cool'
+      else
+        write(*,*) 'Houston, we have a problem ', ierr
+      endif
+      STOP
+      END
+      REAL FUNCTION fq_sat(kelvin, millibar)
+!
+      IMPLICIT none
+!======================================================================
+! Autheur(s): Z.X. Li (LMD/CNRS)
+! Objet: calculer la vapeur d'eau saturante (formule Centre Euro.)
+!======================================================================
+! Arguments:
+! kelvin---input-R: temperature en Kelvin
+! millibar--input-R: pression en mb
+!
+! fq_sat----output-R: vapeur d'eau saturante en kg/kg
+!======================================================================
+!
+      REAL kelvin, millibar
+!
+      REAL r2es
+      PARAMETER (r2es=611.14 *18.0153/28.9644)
+!
+      REAL r3les, r3ies, r3es
+      PARAMETER (R3LES=17.269)
+      PARAMETER (R3IES=21.875)
+!
+      REAL r4les, r4ies, r4es
+      PARAMETER (R4LES=35.86)
+      PARAMETER (R4IES=7.66)
+!
+      REAL rtt
+      PARAMETER (rtt=273.16)
+!
+      REAL retv
+      PARAMETER (retv=28.9644/18.0153 - 1.0)
+!
+      REAL zqsat
+      REAL temp, pres
+!     ------------------------------------------------------------------
+!
+!
+      temp = kelvin
+      pres = millibar * 100.0
+!      write(*,*)'kelvin,millibar=',kelvin,millibar
+!      write(*,*)'temp,pres=',temp,pres
+!
+      IF (temp .LE. rtt) THEN
+         r3es = r3ies
+         r4es = r4ies
+      ELSE
+         r3es = r3les
+         r4es = r4les
+      ENDIF
+!
+      zqsat=r2es/pres * EXP ( r3es*(temp-rtt) / (temp-r4es) )
+      zqsat=MIN(0.5,ZQSAT)
+      zqsat=zqsat/(1.-retv  *zqsat)
+!
+      fq_sat = zqsat
+!
+      RETURN
+      END
+ 
+      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
+      IMPLICIT NONE
+!=======================================================================
+!   passage d'un champ de la grille scalaire a la grille physique
+!=======================================================================
+ 
+!-----------------------------------------------------------------------
+!   declarations:
+!   -------------
+ 
+      INTEGER im,jm,ngrid,nfield
+      REAL pdyn(im,jm,nfield)
+      REAL pfi(ngrid,nfield)
+ 
+      INTEGER j,ifield,ig
+ 
+!-----------------------------------------------------------------------
+!   calcul:
+!   -------
+ 
+      IF(ngrid.NE.2+(jm-2)*(im-1).AND.ngrid.NE.1)                          &
+     &    STOP 'probleme de dim'
+!   traitement des poles
+      CALL SCOPY(nfield,pdyn,im*jm,pfi,ngrid)
+      CALL SCOPY(nfield,pdyn(1,jm,1),im*jm,pfi(ngrid,1),ngrid)
+ 
+!   traitement des point normaux
+      DO ifield=1,nfield
+         DO j=2,jm-1
+            ig=2+(j-2)*(im-1)
+            CALL SCOPY(im-1,pdyn(1,j,ifield),1,pfi(ig,ifield),1)
+         ENDDO
+      ENDDO
+ 
+      RETURN
+      END
+ 
+      SUBROUTINE disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
+ 
+!    Ancienne version disvert dont on a modifie nom pour utiliser
+!    le disvert de dyn3d (qui permet d'utiliser grille avec ab,bp imposes)
+!    (MPL 18092012)
+!
+!    Auteur :  P. Le Van .
+!
+      IMPLICIT NONE
+ 
+      include "dimensions.h"
+      include "paramet.h"
+!
+!=======================================================================
+!
+!
+!    s = sigma ** kappa   :  coordonnee  verticale
+!    dsig(l)            : epaisseur de la couche l ds la coord.  s
+!    sig(l)             : sigma a l'interface des couches l et l-1
+!    ds(l)              : distance entre les couches l et l-1 en coord.s
+!
+!=======================================================================
+!
+      REAL pa,preff
+      REAL ap(llmp1),bp(llmp1),dpres(llm),nivsigs(llm),nivsig(llmp1)
+      REAL presnivs(llm)
+!
+!   declarations:
+!   -------------
+!
+      REAL sig(llm+1),dsig(llm)
+!
+      INTEGER l
+      REAL snorm
+      REAL alpha,beta,gama,delta,deltaz,h
+      INTEGER np,ierr
+      REAL pi,x
+ 
+!-----------------------------------------------------------------------
+!
+      pi=2.*ASIN(1.)
+ 
+      OPEN(99,file='sigma.def',status='old',form='formatted',                   &
+     &   iostat=ierr)
+ 
+!-----------------------------------------------------------------------
+!   cas 1 on lit les options dans sigma.def:
+!   ----------------------------------------
+ 
+      IF (ierr.eq.0) THEN
+ 
+      print*,'WARNING!!! on lit les options dans sigma.def'
+      READ(99,*) deltaz
+      READ(99,*) h
+      READ(99,*) beta
+      READ(99,*) gama
+      READ(99,*) delta
+      READ(99,*) np
+      CLOSE(99)
+      alpha=deltaz/(llm*h)
+!
+ 
+       DO 1  l = 1, llm
+       dsig(l) = (alpha+(1.-alpha)*exp(-beta*(llm-l)))*                    &
+     &          ( (tanh(gama*l)/tanh(gama*llm))**np +                      &
+     &            (1.-l/FLOAT(llm))*delta )
+   1   CONTINUE
+ 
+       sig(1)=1.
+       DO 101 l=1,llm-1
+          sig(l+1)=sig(l)*(1.-dsig(l))/(1.+dsig(l))
+101    CONTINUE
+       sig(llm+1)=0.
+ 
+       DO 2  l = 1, llm
+       dsig(l) = sig(l)-sig(l+1)
+   2   CONTINUE
+!
+ 
+      ELSE
+!-----------------------------------------------------------------------
+!   cas 2 ancienne discretisation (LMD5...):
+!   ----------------------------------------
+ 
+      PRINT*,'WARNING!!! Ancienne discretisation verticale'
+ 
+      h=7.
+      snorm  = 0.
+      DO l = 1, llm
+         x = 2.*asin(1.) * (FLOAT(l)-0.5) / float(llm+1)
+         dsig(l) = 1.0 + 7.0 * SIN(x)**2
+         snorm = snorm + dsig(l)
+      ENDDO
+      snorm = 1./snorm
+      DO l = 1, llm
+         dsig(l) = dsig(l)*snorm
+      ENDDO
+      sig(llm+1) = 0.
+      DO l = llm, 1, -1
+         sig(l) = sig(l+1) + dsig(l)
+      ENDDO
+ 
+      ENDIF
+ 
+ 
+      DO l=1,llm
+        nivsigs(l) = FLOAT(l)
+      ENDDO
+ 
+      DO l=1,llmp1
+        nivsig(l)= FLOAT(l)
+      ENDDO
+ 
+!
+!    ....  Calculs  de ap(l) et de bp(l)  ....
+!    .........................................
+!
+!
+!   .....  pa et preff sont lus  sur les fichiers start par lectba  .....
+!
+ 
+      bp(llmp1) =   0.
+ 
+      DO l = 1, llm
+!c
+!cc    ap(l) = 0.
+!cc    bp(l) = sig(l)
+ 
+      bp(l) = EXP( 1. -1./( sig(l)*sig(l)) )
+      ap(l) = pa * ( sig(l) - bp(l) )
+!
+      ENDDO
+      ap(llmp1) = pa * ( sig(llmp1) - bp(llmp1) )
+ 
+      PRINT *,' BP '
+      PRINT *,  bp
+      PRINT *,' AP '
+      PRINT *,  ap
+ 
+      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 '
+      PRINT *,presnivs
+ 
+      RETURN
+      END
+
+!======================================================================
+       SUBROUTINE read_tsurf1d(knon,sst_out)
+
+! This subroutine specifies the surface temperature to be used in 1D simulations
+
+      USE dimphy, ONLY : klon
+
+      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
+      REAL, DIMENSION(klon), INTENT(OUT)   :: sst_out  ! tsurf used to force the single-column model
+
+       INTEGER :: i
+! COMMON defined in lmdz1d.F:
+       real ts_cur
+       common /sst_forcing/ts_cur
+
+       DO i = 1, knon
+        sst_out(i) = ts_cur
+       ENDDO
+
+      END SUBROUTINE read_tsurf1d
+
+!===============================================================
+      subroutine advect_vert(llm,w,dt,q,plev)
+!===============================================================
+!   Schema amont pour l'advection verticale en 1D
+!   w est la vitesse verticale dp/dt en Pa/s
+!   Traitement en volumes finis 
+!   d / dt ( zm q ) = delta_z ( omega q )
+!   d / dt ( zm ) = delta_z ( omega )
+!   avec zm = delta_z ( p )
+!   si * designe la valeur au pas de temps t+dt
+!   zm*(l) q*(l) - zm(l) q(l) = w(l+1) q(l+1) - w(l) q(l)
+!   zm*(l) -zm(l) = w(l+1) - w(l)
+!   avec w=omega * dt
+!---------------------------------------------------------------
+      implicit none
+! arguments
+      integer llm
+      real w(llm+1),q(llm),plev(llm+1),dt
+
+! local
+      integer l
+      real zwq(llm+1),zm(llm+1),zw(llm+1)
+      real qold
+
+!---------------------------------------------------------------
+
+      do l=1,llm
+         zw(l)=dt*w(l)
+         zm(l)=plev(l)-plev(l+1)
+         zwq(l)=q(l)*zw(l)
+      enddo
+      zwq(llm+1)=0.
+      zw(llm+1)=0.
+ 
+      do l=1,llm
+         qold=q(l)
+         q(l)=(q(l)*zm(l)+zwq(l+1)-zwq(l))/(zm(l)+zw(l+1)-zw(l))
+         print*,'ADV Q ',zm(l),zw(l),zwq(l),qold,q(l)
+      enddo
+
+ 
+      return
+      end
+
+!===============================================================
+
+
+       SUBROUTINE advect_va(llm,omega,d_t_va,d_q_va,d_u_va,d_v_va,              &
+     &                q,temp,u,v,play)
+!itlmd 
+!----------------------------------------------------------------------
+!   Calcul de l'advection verticale (ascendance et subsidence) de 
+!   température et d'humidité. Hypothèse : ce qui rentre de l'extérieur
+!   a les mêmes caractéristiques que l'air de la colonne 1D (WTG) ou 
+!   sans WTG rajouter une advection horizontale 
+!----------------------------------------------------------------------  
+        implicit none
+#include "YOMCST.h"
+!        argument
+        integer llm
+        real  omega(llm+1),d_t_va(llm), d_q_va(llm,3)
+        real  d_u_va(llm), d_v_va(llm)
+        real  q(llm,3),temp(llm)
+        real  u(llm),v(llm)
+        real  play(llm)
+! interne
+        integer l
+        real alpha,omgdown,omgup
+
+      do l= 1,llm
+       if(l.eq.1) then
+!si omgup pour la couche 1, alors tendance nulle
+        omgdown=max(omega(2),0.0)
+        alpha = rkappa*temp(l)*(1.+q(l,1)*rv/rd)/(play(l)*(1.+q(l,1)))
+        d_t_va(l)= alpha*(omgdown)-omgdown*(temp(l)-temp(l+1))             &
+     &       /(play(l)-play(l+1))
+
+        d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))/(play(l)-play(l+1))              
+
+        d_u_va(l)= -omgdown*(u(l)-u(l+1))/(play(l)-play(l+1))              
+        d_v_va(l)= -omgdown*(v(l)-v(l+1))/(play(l)-play(l+1))              
+
+        
+       elseif(l.eq.llm) then
+        omgup=min(omega(l),0.0)
+        alpha = rkappa*temp(l)*(1.+q(l,1)*rv/rd)/(play(l)*(1.+q(l,1)))
+        d_t_va(l)= alpha*(omgup)-                                          &
+
+!bug?     &              omgup*(temp(l-1)-temp(l))/(play(l-1)-plev(l))
+     &              omgup*(temp(l-1)-temp(l))/(play(l-1)-play(l))
+        d_q_va(l,:)= -omgup*(q(l-1,:)-q(l,:))/(play(l-1)-play(l))
+        d_u_va(l)= -omgup*(u(l-1)-u(l))/(play(l-1)-play(l))
+        d_v_va(l)= -omgup*(v(l-1)-v(l))/(play(l-1)-play(l))
+       
+       else
+        omgup=min(omega(l),0.0)
+        omgdown=max(omega(l+1),0.0)
+        alpha = rkappa*temp(l)*(1.+q(l,1)*rv/rd)/(play(l)*(1.+q(l,1)))
+        d_t_va(l)= alpha*(omgup+omgdown)-omgdown*(temp(l)-temp(l+1))       &
+     &              /(play(l)-play(l+1))-                                  &
+!bug?     &              omgup*(temp(l-1)-temp(l))/(play(l-1)-plev(l))
+     &              omgup*(temp(l-1)-temp(l))/(play(l-1)-play(l))
+!      print*, '  ??? '
+
+        d_q_va(l,:)= -omgdown*(q(l,:)-q(l+1,:))                            &
+     &              /(play(l)-play(l+1))-                                  &
+     &              omgup*(q(l-1,:)-q(l,:))/(play(l-1)-play(l)) 
+        d_u_va(l)= -omgdown*(u(l)-u(l+1))                                  &
+     &              /(play(l)-play(l+1))-                                  &
+     &              omgup*(u(l-1)-u(l))/(play(l-1)-play(l)) 
+        d_v_va(l)= -omgdown*(v(l)-v(l+1))                                  &
+     &              /(play(l)-play(l+1))-                                  &
+     &              omgup*(v(l-1)-v(l))/(play(l-1)-play(l))
+       
+      endif
+         
+      enddo
+!fin itlmd
+        return
+        end
+!       SUBROUTINE lstendH(llm,omega,d_t_va,d_q_va,d_u_va,d_v_va,
+       SUBROUTINE lstendH(llm,nqtot,omega,d_t_va,d_q_va,                        &
+     &                q,temp,u,v,play)
+!itlmd 
+!----------------------------------------------------------------------
+!   Calcul de l'advection verticale (ascendance et subsidence) de 
+!   température et d'humidité. Hypothèse : ce qui rentre de l'extérieur
+!   a les mêmes caractéristiques que l'air de la colonne 1D (WTG) ou 
+!   sans WTG rajouter une advection horizontale 
+!----------------------------------------------------------------------  
+        implicit none
+#include "YOMCST.h"
+!        argument
+        integer llm,nqtot
+        real  omega(llm+1),d_t_va(llm), d_q_va(llm,nqtot)
+!        real  d_u_va(llm), d_v_va(llm)
+        real  q(llm,nqtot),temp(llm)
+        real  u(llm),v(llm)
+        real  play(llm)
+        real cor(llm)
+!        real dph(llm),dudp(llm),dvdp(llm),dqdp(llm),dtdp(llm)
+        real dph(llm),dqdp(llm),dtdp(llm)
+! interne
+        integer k
+        real omdn,omup
+
+!        dudp=0.
+!        dvdp=0.
+        dqdp=0.
+        dtdp=0.
+!        d_u_va=0.
+!        d_v_va=0.
+
+      cor(:) = rkappa*temp*(1.+q(:,1)*rv/rd)/(play*(1.+q(:,1)))
+
+
+      do k=2,llm-1
+
+       dph  (k-1) = (play(k  )- play(k-1  ))
+!       dudp (k-1) = (u   (k  )- u   (k-1  ))/dph(k-1)
+!       dvdp (k-1) = (v   (k  )- v   (k-1  ))/dph(k-1)
+       dqdp (k-1) = (q   (k,1)- q   (k-1,1))/dph(k-1)
+       dtdp (k-1) = (temp(k  )- temp(k-1  ))/dph(k-1)
+
+      enddo
+
+!      dudp (  llm  ) = dudp ( llm-1 )
+!      dvdp (  llm  ) = dvdp ( llm-1 )
+      dqdp (  llm  ) = dqdp ( llm-1 )
+      dtdp (  llm  ) = dtdp ( llm-1 )
+
+      do k=2,llm-1
+      omdn=max(0.0,omega(k+1))
+      omup=min(0.0,omega( k ))
+
+!      d_u_va(k)  = -omdn*dudp(k)-omup*dudp(k-1)
+!      d_v_va(k)  = -omdn*dvdp(k)-omup*dvdp(k-1)
+      d_q_va(k,1)= -omdn*dqdp(k)-omup*dqdp(k-1)
+      d_t_va(k)  = -omdn*dtdp(k)-omup*dtdp(k-1)+(omup+omdn)*cor(k)
+      enddo
+
+      omdn=max(0.0,omega( 2 ))
+      omup=min(0.0,omega(llm))
+!      d_u_va( 1 )   = -omdn*dudp( 1 )
+!      d_u_va(llm)   = -omup*dudp(llm)
+!      d_v_va( 1 )   = -omdn*dvdp( 1 )
+!      d_v_va(llm)   = -omup*dvdp(llm)
+      d_q_va( 1 ,1) = -omdn*dqdp( 1 )
+      d_q_va(llm,1) = -omup*dqdp(llm)
+      d_t_va( 1 )   = -omdn*dtdp( 1 )+omdn*cor( 1 )
+      d_t_va(llm)   = -omup*dtdp(llm)!+omup*cor(llm)
+
+!      if(abs(rlat(1))>10.) then
+!     Calculate the tendency due agestrophic motions
+!      du_age = fcoriolis*(v-vg)
+!      dv_age = fcoriolis*(ug-u)
+!      endif
+
+!       call writefield_phy('d_t_va',d_t_va,llm)
+
+          return
+         end
+
+!======================================================================
+      SUBROUTINE read_togacoare(fich_toga,nlev_toga,nt_toga                     &
+     &             ,ts_toga,plev_toga,t_toga,q_toga,u_toga,v_toga,w_toga        &
+     &             ,ht_toga,vt_toga,hq_toga,vq_toga)
+      implicit none
+
+!-------------------------------------------------------------------------
+! Read TOGA-COARE forcing data 
+!-------------------------------------------------------------------------
+
+      integer nlev_toga,nt_toga
+      real ts_toga(nt_toga),plev_toga(nlev_toga,nt_toga)
+      real t_toga(nlev_toga,nt_toga),q_toga(nlev_toga,nt_toga)
+      real u_toga(nlev_toga,nt_toga),v_toga(nlev_toga,nt_toga)
+      real w_toga(nlev_toga,nt_toga)
+      real ht_toga(nlev_toga,nt_toga),vt_toga(nlev_toga,nt_toga)
+      real hq_toga(nlev_toga,nt_toga),vq_toga(nlev_toga,nt_toga)
+      character*80 fich_toga
+
+      integer k,ip
+      real bid
+
+      integer iy,im,id,ih
+      
+       real plev_min
+
+       plev_min = 55.  ! pas de tendance de vap. d eau au-dessus de 55 hPa
+
+      open(21,file=trim(fich_toga),form='formatted')
+      read(21,'(a)') 
+      do ip = 1, nt_toga
+      read(21,'(a)') 
+      read(21,'(a)') 
+      read(21,223) iy, im, id, ih, bid, ts_toga(ip), bid,bid,bid,bid
+      read(21,'(a)') 
+      read(21,'(a)') 
+
+       do k = 1, nlev_toga
+         read(21,230) plev_toga(k,ip), t_toga(k,ip), q_toga(k,ip)          &
+     &       ,u_toga(k,ip), v_toga(k,ip), w_toga(k,ip)                     &
+     &       ,ht_toga(k,ip), vt_toga(k,ip), hq_toga(k,ip), vq_toga(k,ip)
+
+! conversion in SI units:
+         t_toga(k,ip)=t_toga(k,ip)+273.15     ! K
+         q_toga(k,ip)=q_toga(k,ip)*0.001      ! kg/kg
+         w_toga(k,ip)=w_toga(k,ip)*100./3600. ! Pa/s
+! no water vapour tendency above 55 hPa
+         if (plev_toga(k,ip) .lt. plev_min) then
+          q_toga(k,ip) = 0.
+          hq_toga(k,ip) = 0.
+          vq_toga(k,ip) =0.
+         endif
+       enddo
+
+         ts_toga(ip)=ts_toga(ip)+273.15       ! K
+       enddo
+       close(21)
+
+  223 format(4i3,6f8.2)
+  230 format(6f9.3,4e11.3)
+
+          return
+          end
+
+!-------------------------------------------------------------------------
+      SUBROUTINE read_sandu(fich_sandu,nlev_sandu,nt_sandu,ts_sandu)
+      implicit none
+
+!-------------------------------------------------------------------------
+! Read I.SANDU case forcing data
+!-------------------------------------------------------------------------
+
+      integer nlev_sandu,nt_sandu
+      real ts_sandu(nt_sandu)
+      character*80 fich_sandu
+
+      integer ip
+      integer iy,im,id,ih
+
+      real plev_min
+
+      print*,'nlev_sandu',nlev_sandu
+      plev_min = 55000.  ! pas de tendance de vap. d eau au-dessus de 55 hPa
+
+      open(21,file=trim(fich_sandu),form='formatted')
+      read(21,'(a)')
+      do ip = 1, nt_sandu
+      read(21,'(a)')
+      read(21,'(a)')
+      read(21,223) iy, im, id, ih, ts_sandu(ip)
+      print *,'ts=',iy,im,id,ih,ip,ts_sandu(ip)
+      enddo
+      close(21)
+
+  223 format(4i3,f8.2)
+
+          return
+          end
+
+!=====================================================================
+!-------------------------------------------------------------------------
+      SUBROUTINE read_astex(fich_astex,nlev_astex,nt_astex,div_astex,      &
+     & ts_astex,ug_astex,vg_astex,ufa_astex,vfa_astex)
+      implicit none
+
+!-------------------------------------------------------------------------
+! Read Astex case forcing data
+!-------------------------------------------------------------------------
+
+      integer nlev_astex,nt_astex
+      real div_astex(nt_astex),ts_astex(nt_astex),ug_astex(nt_astex)
+      real vg_astex(nt_astex),ufa_astex(nt_astex),vfa_astex(nt_astex)
+      character*80 fich_astex
+
+      integer ip
+      integer iy,im,id,ih
+
+       real plev_min
+
+      print*,'nlev_astex',nlev_astex
+       plev_min = 55000.  ! pas de tendance de vap. d eau au-dessus de 55 hPa
+
+      open(21,file=trim(fich_astex),form='formatted')
+      read(21,'(a)')
+      read(21,'(a)')
+      do ip = 1, nt_astex
+      read(21,'(a)')
+      read(21,'(a)')
+      read(21,223) iy, im, id, ih, div_astex(ip),ts_astex(ip),             &
+     &ug_astex(ip),vg_astex(ip),ufa_astex(ip),vfa_astex(ip)
+      ts_astex(ip)=ts_astex(ip)+273.15
+      print *,'ts=',iy,im,id,ih,ip,div_astex(ip),ts_astex(ip),             &
+     &ug_astex(ip),vg_astex(ip),ufa_astex(ip),vg_astex(ip)
+      enddo
+      close(21)
+
+  223 format(4i3,e13.2,f7.2,f7.3,f7.2,f7.3,f7.2)
+
+          return
+          end
+!=====================================================================
+      subroutine read_twpice(fich_twpice,nlevel,ntime                       &
+     &     ,T_srf,plev,T,q,u,v,omega                                       &
+     &     ,T_adv_h,T_adv_v,q_adv_h,q_adv_v)
+
+!program reading forcings of the TWP-ICE experiment
+
+!      use netcdf
+
+      implicit none
+
+#include "netcdf.inc"
+
+      integer ntime,nlevel
+      integer l,k
+      character*80 :: fich_twpice
+      real*8 time(ntime)
+      real*8 lat, lon, alt, phis
+      real*8 lev(nlevel)
+      real*8 plev(nlevel,ntime)
+
+      real*8 T(nlevel,ntime)
+      real*8 q(nlevel,ntime),u(nlevel,ntime)
+      real*8 v(nlevel,ntime)
+      real*8 omega(nlevel,ntime), div(nlevel,ntime)
+      real*8 T_adv_h(nlevel,ntime)
+      real*8 T_adv_v(nlevel,ntime), q_adv_h(nlevel,ntime)
+      real*8 q_adv_v(nlevel,ntime)
+      real*8 s(nlevel,ntime), s_adv_h(nlevel,ntime)
+      real*8 s_adv_v(nlevel,ntime)
+      real*8 p_srf_aver(ntime), p_srf_center(ntime)
+      real*8 T_srf(ntime)
+
+      integer nid, ierr
+      integer nbvar3d
+      parameter(nbvar3d=20)
+      integer var3didin(nbvar3d)
+
+      ierr = NF_OPEN(fich_twpice,NF_NOWRITE,nid)
+      if (ierr.NE.NF_NOERR) then
+         write(*,*) 'ERROR: Pb opening forcings cdf file '
+         write(*,*) NF_STRERROR(ierr)
+         stop ""
+      endif
+
+      ierr=NF_INQ_VARID(nid,"lat",var3didin(1))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'lat'
+         endif
+      
+       ierr=NF_INQ_VARID(nid,"lon",var3didin(2))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'lon'
+         endif
+
+       ierr=NF_INQ_VARID(nid,"alt",var3didin(3))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'alt'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"phis",var3didin(4))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'phis'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"T",var3didin(5))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'T'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"q",var3didin(6))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'q'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"u",var3didin(7))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'u'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"v",var3didin(8))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'v'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"omega",var3didin(9))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'omega'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"div",var3didin(10))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'div'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"T_adv_h",var3didin(11))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'T_adv_h'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"T_adv_v",var3didin(12))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'T_adv_v'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"q_adv_h",var3didin(13))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'q_adv_h'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"q_adv_v",var3didin(14))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'q_adv_v'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"s",var3didin(15))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 's'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"s_adv_h",var3didin(16))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 's_adv_h'
+         endif
+    
+      ierr=NF_INQ_VARID(nid,"s_adv_v",var3didin(17))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 's_adv_v'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"p_srf_aver",var3didin(18))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'p_srf_aver'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"p_srf_center",var3didin(19))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'p_srf_center'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"T_srf",var3didin(20))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'T_srf'
+         endif
+
+!dimensions lecture
+      call catchaxis(nid,ntime,nlevel,time,lev,ierr)
+
+!pressure 
+       do l=1,ntime
+       do k=1,nlevel
+          plev(k,l)=lev(k)
+       enddo
+       enddo
+          
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(1),lat)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(1),lat)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture lat ok',lat
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(2),lon)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(2),lon)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture lon ok',lon
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),alt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(3),alt)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture alt ok',alt
+ 
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),phis)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(4),phis)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture phis ok',phis
+          
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(5),T)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(5),T)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture T ok'
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),q)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(6),q)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture q ok'
+!q in kg/kg
+       do l=1,ntime
+       do k=1,nlevel
+          q(k,l)=q(k,l)/1000.
+       enddo
+       enddo
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),u)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(7),u)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture u ok'
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(8),v)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture v ok'
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(9),omega)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(9),omega)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture omega ok'
+!omega in mb/hour
+       do l=1,ntime
+       do k=1,nlevel
+          omega(k,l)=omega(k,l)*100./3600.
+       enddo
+       enddo
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),div)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(10),div)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture div ok'
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),T_adv_h)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(11),T_adv_h)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture T_adv_h ok'
+!T adv in K/s
+       do l=1,ntime
+       do k=1,nlevel
+          T_adv_h(k,l)=T_adv_h(k,l)/3600.
+       enddo
+       enddo
+
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(12),T_adv_v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(12),T_adv_v)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture T_adv_v ok'
+!T adv in K/s
+       do l=1,ntime
+       do k=1,nlevel
+          T_adv_v(k,l)=T_adv_v(k,l)/3600.
+       enddo
+       enddo
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(13),q_adv_h)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(13),q_adv_h)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture q_adv_h ok'
+!q adv in kg/kg/s
+       do l=1,ntime
+       do k=1,nlevel
+          q_adv_h(k,l)=q_adv_h(k,l)/1000./3600.
+       enddo
+       enddo
+
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(14),q_adv_v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(14),q_adv_v)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture q_adv_v ok'
+!q adv in kg/kg/s
+       do l=1,ntime
+       do k=1,nlevel
+          q_adv_v(k,l)=q_adv_v(k,l)/1000./3600.
+       enddo
+       enddo
+
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(15),s)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(15),s)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(16),s_adv_h)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(16),s_adv_h)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(17),s_adv_v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(17),s_adv_v)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(18),p_srf_aver)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(18),p_srf_aver)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(19),p_srf_center)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(19),p_srf_center)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(20),T_srf)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(20),T_srf)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture T_srf ok', T_srf
+
+         return 
+         end subroutine read_twpice
+!=====================================================================
+         subroutine catchaxis(nid,ttm,llm,time,lev,ierr)
+
+!         use netcdf
+
+         implicit none
+#include "netcdf.inc"
+         integer nid,ttm,llm
+         real*8 time(ttm)
+         real*8 lev(llm)
+         integer ierr
+
+         integer timevar,levvar
+         integer timelen,levlen
+         integer timedimin,levdimin
+
+! Control & lecture on dimensions
+! ===============================
+         ierr=NF_INQ_DIMID(nid,"time",timedimin)
+         ierr=NF_INQ_VARID(nid,"time",timevar)
+         if (ierr.NE.NF_NOERR) then
+            write(*,*) 'ERROR: Field <time> is missing'
+            stop ""  
+         endif
+         ierr=NF_INQ_DIMLEN(nid,timedimin,timelen)
+
+         ierr=NF_INQ_DIMID(nid,"lev",levdimin)
+         ierr=NF_INQ_VARID(nid,"lev",levvar)
+         if (ierr.NE.NF_NOERR) then
+             write(*,*) 'ERROR: Field <lev> is lacking'
+             stop "" 
+         endif
+         ierr=NF_INQ_DIMLEN(nid,levdimin,levlen)
+
+         if((timelen/=ttm).or.(levlen/=llm)) then
+            write(*,*) 'ERROR: Not the good lenght for axis'
+            write(*,*) 'longitude: ',timelen,ttm+1
+            write(*,*) 'latitude: ',levlen,llm
+            stop ""  
+         endif
+
+!#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,timevar,time)
+         ierr = NF_GET_VAR_DOUBLE(nid,levvar,lev)
+!#else
+!        ierr = NF_GET_VAR_REAL(nid,timevar,time)
+!        ierr = NF_GET_VAR_REAL(nid,levvar,lev)
+!#endif
+
+       return
+       end
+!=====================================================================
+
+       SUBROUTINE interp_sandu_vertical(play,nlev_sandu,plev_prof          &
+     &         ,t_prof,thl_prof,q_prof,u_prof,v_prof,w_prof                &
+     &         ,omega_prof,o3mmr_prof                                      &
+     &         ,t_mod,thl_mod,q_mod,u_mod,v_mod,w_mod                      &
+     &         ,omega_mod,o3mmr_mod,mxcalc)
+
+       implicit none
+
+#include "dimensions.h"
+
+!-------------------------------------------------------------------------
+! Vertical interpolation of SANDUREF forcing data onto model levels
+!-------------------------------------------------------------------------
+
+       integer nlevmax
+       parameter (nlevmax=41)
+       integer nlev_sandu,mxcalc
+!       real play(llm), plev_prof(nlevmax)
+!       real t_prof(nlevmax),q_prof(nlevmax)
+!       real u_prof(nlevmax),v_prof(nlevmax), w_prof(nlevmax)
+!       real ht_prof(nlevmax),vt_prof(nlevmax)
+!       real hq_prof(nlevmax),vq_prof(nlevmax)
+
+       real play(llm), plev_prof(nlev_sandu)
+       real t_prof(nlev_sandu),thl_prof(nlev_sandu),q_prof(nlev_sandu)
+       real u_prof(nlev_sandu),v_prof(nlev_sandu), w_prof(nlev_sandu)
+       real omega_prof(nlev_sandu),o3mmr_prof(nlev_sandu)
+
+       real t_mod(llm),thl_mod(llm),q_mod(llm)
+       real u_mod(llm),v_mod(llm), w_mod(llm)
+       real omega_mod(llm),o3mmr_mod(llm)
+
+       integer l,k,k1,k2
+       real frac,frac1,frac2,fact
+
+       do l = 1, llm
+
+        if (play(l).ge.plev_prof(nlev_sandu)) then
+
+        mxcalc=l
+         k1=0
+         k2=0
+
+         if (play(l).le.plev_prof(1)) then
+
+         do k = 1, nlev_sandu-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_sandu-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))
+         t_mod(l)= t_prof(k2) - frac*(t_prof(k2)-t_prof(k1))
+         thl_mod(l)= thl_prof(k2) - frac*(thl_prof(k2)-thl_prof(k1))
+         q_mod(l)= q_prof(k2) - frac*(q_prof(k2)-q_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))
+         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))
+         o3mmr_mod(l)=o3mmr_prof(k2)-frac*(o3mmr_prof(k2)-o3mmr_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))
+         t_mod(l)= frac1*t_prof(k1) - frac2*t_prof(k2)
+         thl_mod(l)= frac1*thl_prof(k1) - frac2*thl_prof(k2)
+         q_mod(l)= frac1*q_prof(k1) - frac2*q_prof(k2)
+         u_mod(l)= frac1*u_prof(k1) - frac2*u_prof(k2)
+         v_mod(l)= frac1*v_prof(k1) - frac2*v_prof(k2)
+         w_mod(l)= frac1*w_prof(k1) - frac2*w_prof(k2)
+         omega_mod(l)= frac1*omega_prof(k1) - frac2*omega_prof(k2)
+         o3mmr_mod(l)= frac1*o3mmr_prof(k1) - frac2*o3mmr_prof(k2)
+
+         endif ! play.le.plev_prof(1)
+
+        else ! above max altitude of forcing file
+
+!jyg
+         fact=20.*(plev_prof(nlev_sandu)-play(l))/plev_prof(nlev_sandu) !jyg
+         fact = max(fact,0.)                                           !jyg
+         fact = exp(-fact)                                             !jyg
+         t_mod(l)= t_prof(nlev_sandu)                                   !jyg
+         thl_mod(l)= thl_prof(nlev_sandu)                                   !jyg
+         q_mod(l)= q_prof(nlev_sandu)*fact                              !jyg
+         u_mod(l)= u_prof(nlev_sandu)*fact                              !jyg
+         v_mod(l)= v_prof(nlev_sandu)*fact                              !jyg
+         w_mod(l)= w_prof(nlev_sandu)*fact                              !jyg
+         omega_mod(l)= omega_prof(nlev_sandu)*fact                      !jyg
+         o3mmr_mod(l)= o3mmr_prof(nlev_sandu)*fact                      !jyg
+
+        endif ! play
+
+       enddo ! l
+
+       do l = 1,llm
+!      print *,'t_mod(l),thl_mod(l),q_mod(l),u_mod(l),v_mod(l) ',
+!    $        l,t_mod(l),thl_mod(l),q_mod(l),u_mod(l),v_mod(l)
+       enddo
+
+          return
+          end
+!=====================================================================
+       SUBROUTINE interp_astex_vertical(play,nlev_astex,plev_prof          &
+     &         ,t_prof,thl_prof,qv_prof,ql_prof,qt_prof,u_prof,v_prof      &
+     &         ,w_prof,tke_prof,o3mmr_prof                                 &
+     &         ,t_mod,thl_mod,qv_mod,ql_mod,qt_mod,u_mod,v_mod,w_mod       &
+     &         ,tke_mod,o3mmr_mod,mxcalc)
+
+       implicit none
+
+#include "dimensions.h"
+
+!-------------------------------------------------------------------------
+! Vertical interpolation of Astex forcing data onto model levels
+!-------------------------------------------------------------------------
+
+       integer nlevmax
+       parameter (nlevmax=41)
+       integer nlev_astex,mxcalc
+!       real play(llm), plev_prof(nlevmax)
+!       real t_prof(nlevmax),qv_prof(nlevmax)
+!       real u_prof(nlevmax),v_prof(nlevmax), w_prof(nlevmax)
+!       real ht_prof(nlevmax),vt_prof(nlevmax)
+!       real hq_prof(nlevmax),vq_prof(nlevmax)
+
+       real play(llm), plev_prof(nlev_astex)
+       real t_prof(nlev_astex),thl_prof(nlev_astex),qv_prof(nlev_astex)
+       real u_prof(nlev_astex),v_prof(nlev_astex), w_prof(nlev_astex)
+       real o3mmr_prof(nlev_astex),ql_prof(nlev_astex)
+       real qt_prof(nlev_astex),tke_prof(nlev_astex)
+
+       real t_mod(llm),thl_mod(llm),qv_mod(llm)
+       real u_mod(llm),v_mod(llm), w_mod(llm),tke_mod(llm)
+       real o3mmr_mod(llm),ql_mod(llm),qt_mod(llm)
+
+       integer l,k,k1,k2
+       real frac,frac1,frac2,fact
+
+       do l = 1, llm
+
+        if (play(l).ge.plev_prof(nlev_astex)) then
+
+        mxcalc=l
+         k1=0
+         k2=0
+
+         if (play(l).le.plev_prof(1)) then
+
+         do k = 1, nlev_astex-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_astex-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))
+         t_mod(l)= t_prof(k2) - frac*(t_prof(k2)-t_prof(k1))
+         thl_mod(l)= thl_prof(k2) - frac*(thl_prof(k2)-thl_prof(k1))
+         qv_mod(l)= qv_prof(k2) - frac*(qv_prof(k2)-qv_prof(k1))
+         ql_mod(l)= ql_prof(k2) - frac*(ql_prof(k2)-ql_prof(k1))
+         qt_mod(l)= qt_prof(k2) - frac*(qt_prof(k2)-qt_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))
+         w_mod(l)= w_prof(k2) - frac*(w_prof(k2)-w_prof(k1))
+         tke_mod(l)= tke_prof(k2) - frac*(tke_prof(k2)-tke_prof(k1))
+         o3mmr_mod(l)=o3mmr_prof(k2)-frac*(o3mmr_prof(k2)-o3mmr_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))
+         t_mod(l)= frac1*t_prof(k1) - frac2*t_prof(k2)
+         thl_mod(l)= frac1*thl_prof(k1) - frac2*thl_prof(k2)
+         qv_mod(l)= frac1*qv_prof(k1) - frac2*qv_prof(k2)
+         ql_mod(l)= frac1*ql_prof(k1) - frac2*ql_prof(k2)
+         qt_mod(l)= frac1*qt_prof(k1) - frac2*qt_prof(k2)
+         u_mod(l)= frac1*u_prof(k1) - frac2*u_prof(k2)
+         v_mod(l)= frac1*v_prof(k1) - frac2*v_prof(k2)
+         w_mod(l)= frac1*w_prof(k1) - frac2*w_prof(k2)
+         tke_mod(l)= frac1*tke_prof(k1) - frac2*tke_prof(k2)
+         o3mmr_mod(l)= frac1*o3mmr_prof(k1) - frac2*o3mmr_prof(k2)
+
+         endif ! play.le.plev_prof(1)
+
+        else ! above max altitude of forcing file
+
+!jyg
+         fact=20.*(plev_prof(nlev_astex)-play(l))/plev_prof(nlev_astex) !jyg
+         fact = max(fact,0.)                                           !jyg
+         fact = exp(-fact)                                             !jyg
+         t_mod(l)= t_prof(nlev_astex)                                   !jyg
+         thl_mod(l)= thl_prof(nlev_astex)                                   !jyg
+         qv_mod(l)= qv_prof(nlev_astex)*fact                              !jyg
+         ql_mod(l)= ql_prof(nlev_astex)*fact                              !jyg
+         qt_mod(l)= qt_prof(nlev_astex)*fact                              !jyg
+         u_mod(l)= u_prof(nlev_astex)*fact                              !jyg
+         v_mod(l)= v_prof(nlev_astex)*fact                              !jyg
+         w_mod(l)= w_prof(nlev_astex)*fact                              !jyg
+         tke_mod(l)= tke_prof(nlev_astex)*fact                              !jyg
+         o3mmr_mod(l)= o3mmr_prof(nlev_astex)*fact                      !jyg
+
+        endif ! play
+
+       enddo ! l
+
+       do l = 1,llm
+!      print *,'t_mod(l),thl_mod(l),qv_mod(l),u_mod(l),v_mod(l) ',
+!    $        l,t_mod(l),thl_mod(l),qv_mod(l),u_mod(l),v_mod(l)
+       enddo
+
+          return
+          end
+
+!======================================================================
+      SUBROUTINE read_rico(fich_rico,nlev_rico,ps_rico,play                &
+     &             ,ts_rico,t_rico,q_rico,u_rico,v_rico,w_rico             &
+     &             ,dth_dyn,dqh_dyn)
+      implicit none
+
+!-------------------------------------------------------------------------
+! Read RICO forcing data 
+!-------------------------------------------------------------------------
+#include "dimensions.h"
+
+
+      integer nlev_rico
+      real ts_rico,ps_rico
+      real t_rico(llm),q_rico(llm)
+      real u_rico(llm),v_rico(llm)
+      real w_rico(llm)
+      real dth_dyn(llm)
+      real dqh_dyn(llm)
+      
+
+      real play(llm),zlay(llm)
+     
+
+      real prico(nlev_rico),zrico(nlev_rico)
+
+      character*80 fich_rico
+
+      integer k,l
+
+      
+      print*,fich_rico
+      open(21,file=trim(fich_rico),form='formatted')
+        do k=1,llm
+      zlay(k)=0.
+         enddo
+      
+        read(21,*) ps_rico,ts_rico
+        prico(1)=ps_rico
+        zrico(1)=0.0
+      do l=2,nlev_rico
+        read(21,*) k,prico(l),zrico(l)
+      enddo
+       close(21)
+
+      do k=1,llm
+        do l=1,80
+          if(prico(l)>play(k)) then
+              if(play(k)>prico(l+1)) then
+                zlay(k)=zrico(l)+(play(k)-prico(l)) *                      &
+     &              (zrico(l+1)-zrico(l))/(prico(l+1)-prico(l))
+              else 
+                zlay(k)=zrico(l)+(play(k)-prico(80))*                      &
+     &              (zrico(81)-zrico(80))/(prico(81)-prico(80))
+              endif
+          endif
+        enddo
+        print*,k,zlay(k)
+        ! U
+        if(0 < zlay(k) .and. zlay(k) < 4000) then
+          u_rico(k)=-9.9 + (-1.9 + 9.9)*zlay(k)/4000
+        elseif(4000 < zlay(k) .and. zlay(k) < 12000) then
+       u_rico(k)=  -1.9 + (30.0 + 1.9) /                                   &
+     &          (12000 - 4000) * (zlay(k) - 4000)
+        elseif(12000 < zlay(k) .and. zlay(k) < 13000) then
+          u_rico(k)=30.0
+        elseif(13000 < zlay(k) .and. zlay(k) < 20000) then
+          u_rico(k)=30.0 - (30.0) /                                        &
+     & (20000 - 13000) * (zlay(k) - 13000)
+        else
+          u_rico(k)=0.0
+        endif
+
+!Q_v
+        if(0 < zlay(k) .and. zlay(k) < 740) then
+          q_rico(k)=16.0 + (13.8 - 16.0) / (740) * zlay(k)
+        elseif(740 < zlay(k) .and. zlay(k) < 3260) then
+          q_rico(k)=13.8 + (2.4 - 13.8) /                                   &
+     &          (3260 - 740) * (zlay(k) - 740)
+        elseif(3260 < zlay(k) .and. zlay(k) < 4000) then
+          q_rico(k)=2.4 + (1.8 - 2.4) /                                    &
+     &               (4000 - 3260) * (zlay(k) - 3260)
+        elseif(4000 < zlay(k) .and. zlay(k) < 9000) then
+          q_rico(k)=1.8 + (0 - 1.8) /                                      &
+     &             (9000 - 4000) * (zlay(k) - 4000)
+        else
+          q_rico(k)=0.0
+        endif
+
+!T
+        if(0 < zlay(k) .and. zlay(k) < 740) then
+          t_rico(k)=299.2 + (292.0 - 299.2) / (740) * zlay(k)
+        elseif(740 < zlay(k) .and. zlay(k) < 4000) then
+          t_rico(k)=292.0 + (278.0 - 292.0) /                              &                       
+     &       (4000 - 740) * (zlay(k) - 740)
+        elseif(4000 < zlay(k) .and. zlay(k) < 15000) then
+          t_rico(k)=278.0 + (203.0 - 278.0) /                              &
+     &       (15000 - 4000) * (zlay(k) - 4000)
+        elseif(15000 < zlay(k) .and. zlay(k) < 17500) then
+          t_rico(k)=203.0 + (194.0 - 203.0) /                              & 
+     &       (17500 - 15000)* (zlay(k) - 15000)
+        elseif(17500 < zlay(k) .and. zlay(k) < 20000) then
+          t_rico(k)=194.0 + (206.0 - 194.0) /                              &
+     &       (20000 - 17500)* (zlay(k) - 17500)
+        elseif(20000 < zlay(k) .and. zlay(k) < 60000) then
+          t_rico(k)=206.0 + (270.0 - 206.0) /                              & 
+     &        (60000 - 20000)* (zlay(k) - 20000)
+        endif
+
+! W
+        if(0 < zlay(k) .and. zlay(k) < 2260 ) then
+          w_rico(k)=- (0.005/2260) * zlay(k)
+        elseif(2260 < zlay(k) .and. zlay(k) < 4000 ) then
+          w_rico(k)=- 0.005
+        elseif(4000 < zlay(k) .and. zlay(k) < 5000 ) then
+       w_rico(k)=- 0.005 + (0.005/ (5000 - 4000)) * (zlay(k) - 4000)
+        else
+          w_rico(k)=0.0
+        endif
+
+! dThrz+dTsw0+dTlw0
+        if(0 < zlay(k) .and. zlay(k) < 4000) then
+          dth_dyn(k)=- 2.51 / 86400 + (-2.18 + 2.51 )/                     &
+     &               (86400*4000) * zlay(k)
+        elseif(4000 < zlay(k) .and. zlay(k) < 5000) then
+          dth_dyn(k)=- 2.18 / 86400 + ( 2.18 ) /                           &
+     &           (86400*(5000 - 4000)) * (zlay(k) - 4000)
+        else
+          dth_dyn(k)=0.0
+        endif
+! dQhrz
+        if(0 < zlay(k) .and. zlay(k) < 3000) then
+          dqh_dyn(k)=-1.0 / 86400 + (0.345 + 1.0)/                         &
+     &                    (86400*3000) * (zlay(k))
+        elseif(3000 < zlay(k) .and. zlay(k) < 4000) then
+          dqh_dyn(k)=0.345 / 86400
+        elseif(4000 < zlay(k) .and. zlay(k) < 5000) then
+          dqh_dyn(k)=0.345 / 86400 +                                       &
+     &   (-0.345)/(86400 * (5000 - 4000)) * (zlay(k)-4000)
+        else
+          dqh_dyn(k)=0.0
+        endif
+
+!?        if(play(k)>6e4) then
+!?          ratqs0(1,k)=ratqsbas*(plev(1)-play(k))/(plev(1)-6e4)
+!?        elseif((play(k)>3e4).and.(play(k)<6e4)) then
+!?          ratqs0(1,k)=ratqsbas+(ratqshaut-ratqsbas)&
+!?                          *(6e4-play(k))/(6e4-3e4)
+!?        else
+!?          ratqs0(1,k)=ratqshaut
+!?        endif
+
+      enddo
+
+      do k=1,llm
+      q_rico(k)=q_rico(k)/1e3 
+      dqh_dyn(k)=dqh_dyn(k)/1e3
+      v_rico(k)=-3.8
+      enddo
+
+          return
+          end
+
+!======================================================================
+        SUBROUTINE interp_sandu_time(day,day1,annee_ref                    &
+     &             ,year_ini_sandu,day_ini_sandu,nt_sandu,dt_sandu         &
+     &             ,nlev_sandu,ts_sandu,ts_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_sandu: total nb of data in the forcing (e.g. 13 for Sanduref)
+! dt_sandu: total time interval (in sec) between 2 forcing data (e.g. 6h for Sanduref)
+!---------------------------------------------------------------------------------------
+! inputs:
+        integer annee_ref
+        integer nt_sandu,nlev_sandu
+        integer year_ini_sandu
+        real day, day1,day_ini_sandu,dt_sandu
+        real ts_sandu(nt_sandu)
+! outputs:
+        real ts_prof
+! local:
+        integer it_sandu1, it_sandu2
+        real timeit,time_sandu1,time_sandu2,frac
+! Check that initial day of the simulation consistent with SANDU period:
+       if (annee_ref.ne.2006 ) then
+        print*,'Pour SANDUREF, annee_ref doit etre 2006 '
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+!      if (annee_ref.eq.2006 .and. day1.lt.day_ini_sandu) then
+!       print*,'SANDUREF debute le 15 Juillet 2006 (jour julien=196)'
+!       print*,'Changer dayref dans run.def'
+!       stop
+!      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_sandu)*86400.
+!       else
+!        timeit=(day+61.-1.)*86400. ! 61 days between Nov01 and Dec31 1992
+!       endif
+      timeit=(day-day_ini_sandu)*86400
+
+! Determine the closest observation times:
+       it_sandu1=INT(timeit/dt_sandu)+1
+       it_sandu2=it_sandu1 + 1
+       time_sandu1=(it_sandu1-1)*dt_sandu
+       time_sandu2=(it_sandu2-1)*dt_sandu
+       print *,'timeit day day_ini_sandu',timeit,day,day_ini_sandu
+       print *,'it_sandu1,it_sandu2,time_sandu1,time_sandu2',              &
+     &          it_sandu1,it_sandu2,time_sandu1,time_sandu2
+
+       if (it_sandu1 .ge. nt_sandu) then
+        write(*,*) 'PB-stop: day, it_sandu1, it_sandu2, timeit: '          &
+     &        ,day,it_sandu1,it_sandu2,timeit/86400.
+        stop
+       endif
+
+! time interpolation:
+       frac=(time_sandu2-timeit)/(time_sandu2-time_sandu1)
+       frac=max(frac,0.0)
+
+       ts_prof = ts_sandu(it_sandu2)                                       &
+     &          -frac*(ts_sandu(it_sandu2)-ts_sandu(it_sandu1))
+
+         print*,                                                           &
+     &'day,annee_ref,day_ini_sandu,timeit,it_sandu1,it_sandu2,SST:',       &
+     &day,annee_ref,day_ini_sandu,timeit/86400.,it_sandu1,                  &
+     &it_sandu2,ts_prof
+
+        return
+        END
+!=====================================================================
+!-------------------------------------------------------------------------
+      SUBROUTINE read_armcu(fich_armcu,nlev_armcu,nt_armcu,                &
+     & sens,flat,adv_theta,rad_theta,adv_qt)
+      implicit none
+
+!-------------------------------------------------------------------------
+! Read ARM_CU case forcing data
+!-------------------------------------------------------------------------
+
+      integer nlev_armcu,nt_armcu
+      real sens(nt_armcu),flat(nt_armcu)
+      real adv_theta(nt_armcu),rad_theta(nt_armcu),adv_qt(nt_armcu)
+      character*80 fich_armcu
+
+      integer ip
+
+      integer iy,im,id,ih,in
+
+      print*,'nlev_armcu',nlev_armcu
+
+      open(21,file=trim(fich_armcu),form='formatted')
+      read(21,'(a)')
+      do ip = 1, nt_armcu
+      read(21,'(a)')
+      read(21,'(a)')
+      read(21,223) iy, im, id, ih, in, sens(ip),flat(ip),                  &
+     &             adv_theta(ip),rad_theta(ip),adv_qt(ip)
+      print *,'forcages=',iy,im,id,ih,in, sens(ip),flat(ip),               &
+     &             adv_theta(ip),rad_theta(ip),adv_qt(ip)
+      enddo
+      close(21)
+
+  223 format(5i3,5f8.3)
+
+          return
+          end
+
+!=====================================================================
+       SUBROUTINE interp_toga_vertical(play,nlev_toga,plev_prof            &
+     &         ,t_prof,q_prof,u_prof,v_prof,w_prof                         &
+     &         ,ht_prof,vt_prof,hq_prof,vq_prof                            &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                              &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+ 
+       implicit none
+ 
+#include "dimensions.h"
+
+!-------------------------------------------------------------------------
+! Vertical interpolation of TOGA-COARE forcing data onto model levels
+!-------------------------------------------------------------------------
+ 
+       integer nlevmax
+       parameter (nlevmax=41)
+       integer nlev_toga,mxcalc
+!       real play(llm), plev_prof(nlevmax) 
+!       real t_prof(nlevmax),q_prof(nlevmax)
+!       real u_prof(nlevmax),v_prof(nlevmax), w_prof(nlevmax)
+!       real ht_prof(nlevmax),vt_prof(nlevmax)
+!       real hq_prof(nlevmax),vq_prof(nlevmax)
+ 
+       real play(llm), plev_prof(nlev_toga) 
+       real t_prof(nlev_toga),q_prof(nlev_toga)
+       real u_prof(nlev_toga),v_prof(nlev_toga), w_prof(nlev_toga)
+       real ht_prof(nlev_toga),vt_prof(nlev_toga)
+       real hq_prof(nlev_toga),vq_prof(nlev_toga)
+ 
+       real t_mod(llm),q_mod(llm)
+       real u_mod(llm),v_mod(llm), w_mod(llm)
+       real ht_mod(llm),vt_mod(llm)
+       real hq_mod(llm),vq_mod(llm)
+ 
+       integer l,k,k1,k2
+       real frac,frac1,frac2,fact
+ 
+       do l = 1, llm
+
+        if (play(l).ge.plev_prof(nlev_toga)) then
+ 
+        mxcalc=l
+         k1=0
+         k2=0
+
+         if (play(l).le.plev_prof(1)) then
+
+         do k = 1, nlev_toga-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_toga-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))
+         t_mod(l)= t_prof(k2) - frac*(t_prof(k2)-t_prof(k1))
+         q_mod(l)= q_prof(k2) - frac*(q_prof(k2)-q_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))
+         w_mod(l)= w_prof(k2) - frac*(w_prof(k2)-w_prof(k1))
+         ht_mod(l)= ht_prof(k2) - frac*(ht_prof(k2)-ht_prof(k1))
+         vt_mod(l)= vt_prof(k2) - frac*(vt_prof(k2)-vt_prof(k1))
+         hq_mod(l)= hq_prof(k2) - frac*(hq_prof(k2)-hq_prof(k1))
+         vq_mod(l)= vq_prof(k2) - frac*(vq_prof(k2)-vq_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))
+         t_mod(l)= frac1*t_prof(k1) - frac2*t_prof(k2)
+         q_mod(l)= frac1*q_prof(k1) - frac2*q_prof(k2)
+         u_mod(l)= frac1*u_prof(k1) - frac2*u_prof(k2)
+         v_mod(l)= frac1*v_prof(k1) - frac2*v_prof(k2)
+         w_mod(l)= frac1*w_prof(k1) - frac2*w_prof(k2)
+         ht_mod(l)= frac1*ht_prof(k1) - frac2*ht_prof(k2)
+         vt_mod(l)= frac1*vt_prof(k1) - frac2*vt_prof(k2)
+         hq_mod(l)= frac1*hq_prof(k1) - frac2*hq_prof(k2)
+         vq_mod(l)= frac1*vq_prof(k1) - frac2*vq_prof(k2)
+
+         endif ! play.le.plev_prof(1)
+
+        else ! above max altitude of forcing file
+ 
+!jyg
+         fact=20.*(plev_prof(nlev_toga)-play(l))/plev_prof(nlev_toga) !jyg
+         fact = max(fact,0.)                                           !jyg
+         fact = exp(-fact)                                             !jyg
+         t_mod(l)= t_prof(nlev_toga)                                   !jyg
+         q_mod(l)= q_prof(nlev_toga)*fact                              !jyg
+         u_mod(l)= u_prof(nlev_toga)*fact                              !jyg
+         v_mod(l)= v_prof(nlev_toga)*fact                              !jyg
+         w_mod(l)= 0.0                                                 !jyg
+         ht_mod(l)= ht_prof(nlev_toga)                                 !jyg
+         vt_mod(l)= vt_prof(nlev_toga)                                 !jyg
+         hq_mod(l)= hq_prof(nlev_toga)*fact                            !jyg
+         vq_mod(l)= vq_prof(nlev_toga)*fact                            !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_case_vertical(play,nlev_cas,plev_prof_cas            &
+     &         ,t_prof_cas,q_prof_cas,u_prof_cas,v_prof_cas,ug_prof_cas,vg_prof_cas,vitw_prof_cas                         &
+     &         ,du_prof_cas,hu_prof_cas,vu_prof_cas,dv_prof_cas,hv_prof_cas,vv_prof_cas           &
+     &         ,dt_prof_cas,ht_prof_cas,vt_prof_cas,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas                            &
+     &         ,t_mod_cas,q_mod_cas,u_mod_cas,v_mod_cas,ug_mod_cas,vg_mod_cas,w_mod_cas                              &
+     &         ,du_mod_cas,hu_mod_cas,vu_mod_cas,dv_mod_cas,hv_mod_cas,vv_mod_cas               &
+     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc)
+ 
+       implicit none
+ 
+#include "dimensions.h"
+
+!-------------------------------------------------------------------------
+! Vertical interpolation of TOGA-COARE forcing data onto mod_casel levels
+!-------------------------------------------------------------------------
+ 
+       integer nlevmax
+       parameter (nlevmax=41)
+       integer nlev_cas,mxcalc
+!       real play(llm), plev_prof(nlevmax) 
+!       real t_prof(nlevmax),q_prof(nlevmax)
+!       real u_prof(nlevmax),v_prof(nlevmax), w_prof(nlevmax)
+!       real ht_prof(nlevmax),vt_prof(nlevmax)
+!       real hq_prof(nlevmax),vq_prof(nlevmax)
+ 
+       real play(llm), plev_prof_cas(nlev_cas) 
+       real t_prof_cas(nlev_cas),q_prof_cas(nlev_cas)
+       real u_prof_cas(nlev_cas),v_prof_cas(nlev_cas)
+       real ug_prof_cas(nlev_cas),vg_prof_cas(nlev_cas), vitw_prof_cas(nlev_cas)
+       real du_prof_cas(nlev_cas),hu_prof_cas(nlev_cas),vu_prof_cas(nlev_cas)
+       real dv_prof_cas(nlev_cas),hv_prof_cas(nlev_cas),vv_prof_cas(nlev_cas)
+       real dt_prof_cas(nlev_cas),ht_prof_cas(nlev_cas),vt_prof_cas(nlev_cas),dtrad_prof_cas(nlev_cas)
+       real dq_prof_cas(nlev_cas),hq_prof_cas(nlev_cas),vq_prof_cas(nlev_cas)
+ 
+       real t_mod_cas(llm),q_mod_cas(llm)
+       real u_mod_cas(llm),v_mod_cas(llm)
+       real ug_mod_cas(llm),vg_mod_cas(llm), w_mod_cas(llm)
+       real du_mod_cas(llm),hu_mod_cas(llm),vu_mod_cas(llm)
+       real dv_mod_cas(llm),hv_mod_cas(llm),vv_mod_cas(llm)
+       real dt_mod_cas(llm),ht_mod_cas(llm),vt_mod_cas(llm),dtrad_mod_cas(llm)
+       real dq_mod_cas(llm),hq_mod_cas(llm),vq_mod_cas(llm)
+ 
+       integer l,k,k1,k2
+       real frac,frac1,frac2,fact
+ 
+       do l = 1, llm
+
+        if (play(l).ge.plev_prof_cas(nlev_cas)) then
+ 
+        mxcalc=l
+         k1=0
+         k2=0
+
+         if (play(l).le.plev_prof_cas(1)) then
+
+         do k = 1, nlev_cas-1
+          if (play(l).le.plev_prof_cas(k).and. play(l).gt.plev_prof_cas(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_cas-1
+          write(*,*) 'k,plev_prof_cas(k) = ',k,plev_prof_cas(k)/100
+         enddo
+         endif
+
+         frac = (plev_prof_cas(k2)-play(l))/(plev_prof_cas(k2)-plev_prof_cas(k1))
+         t_mod_cas(l)= t_prof_cas(k2) - frac*(t_prof_cas(k2)-t_prof_cas(k1))
+         q_mod_cas(l)= q_prof_cas(k2) - frac*(q_prof_cas(k2)-q_prof_cas(k1))
+         u_mod_cas(l)= u_prof_cas(k2) - frac*(u_prof_cas(k2)-u_prof_cas(k1))
+         v_mod_cas(l)= v_prof_cas(k2) - frac*(v_prof_cas(k2)-v_prof_cas(k1))
+         ug_mod_cas(l)= ug_prof_cas(k2) - frac*(ug_prof_cas(k2)-ug_prof_cas(k1))
+         vg_mod_cas(l)= vg_prof_cas(k2) - frac*(vg_prof_cas(k2)-vg_prof_cas(k1))
+         w_mod_cas(l)= vitw_prof_cas(k2) - frac*(vitw_prof_cas(k2)-vitw_prof_cas(k1))
+         du_mod_cas(l)= du_prof_cas(k2) - frac*(du_prof_cas(k2)-du_prof_cas(k1))
+         hu_mod_cas(l)= hu_prof_cas(k2) - frac*(hu_prof_cas(k2)-hu_prof_cas(k1))
+         vu_mod_cas(l)= vu_prof_cas(k2) - frac*(vu_prof_cas(k2)-vu_prof_cas(k1))
+         dv_mod_cas(l)= dv_prof_cas(k2) - frac*(dv_prof_cas(k2)-dv_prof_cas(k1))
+         hv_mod_cas(l)= hv_prof_cas(k2) - frac*(hv_prof_cas(k2)-hv_prof_cas(k1))
+         vv_mod_cas(l)= vv_prof_cas(k2) - frac*(vv_prof_cas(k2)-vv_prof_cas(k1))
+         dt_mod_cas(l)= dt_prof_cas(k2) - frac*(dt_prof_cas(k2)-dt_prof_cas(k1))
+         ht_mod_cas(l)= ht_prof_cas(k2) - frac*(ht_prof_cas(k2)-ht_prof_cas(k1))
+         vt_mod_cas(l)= vt_prof_cas(k2) - frac*(vt_prof_cas(k2)-vt_prof_cas(k1))
+         dq_mod_cas(l)= dq_prof_cas(k2) - frac*(dq_prof_cas(k2)-dq_prof_cas(k1))
+         hq_mod_cas(l)= hq_prof_cas(k2) - frac*(hq_prof_cas(k2)-hq_prof_cas(k1))
+         vq_mod_cas(l)= vq_prof_cas(k2) - frac*(vq_prof_cas(k2)-vq_prof_cas(k1))
+     
+         else !play>plev_prof_cas(1)
+
+         k1=1
+         k2=2
+         frac1 = (play(l)-plev_prof_cas(k2))/(plev_prof_cas(k1)-plev_prof_cas(k2))
+         frac2 = (play(l)-plev_prof_cas(k1))/(plev_prof_cas(k1)-plev_prof_cas(k2))
+         t_mod_cas(l)= frac1*t_prof_cas(k1) - frac2*t_prof_cas(k2)
+         q_mod_cas(l)= frac1*q_prof_cas(k1) - frac2*q_prof_cas(k2)
+         u_mod_cas(l)= frac1*u_prof_cas(k1) - frac2*u_prof_cas(k2)
+         v_mod_cas(l)= frac1*v_prof_cas(k1) - frac2*v_prof_cas(k2)
+         ug_mod_cas(l)= frac1*ug_prof_cas(k1) - frac2*ug_prof_cas(k2)
+         vg_mod_cas(l)= frac1*vg_prof_cas(k1) - frac2*vg_prof_cas(k2)
+         w_mod_cas(l)= frac1*vitw_prof_cas(k1) - frac2*vitw_prof_cas(k2)
+         du_mod_cas(l)= frac1*du_prof_cas(k1) - frac2*du_prof_cas(k2)
+         hu_mod_cas(l)= frac1*hu_prof_cas(k1) - frac2*hu_prof_cas(k2)
+         vu_mod_cas(l)= frac1*vu_prof_cas(k1) - frac2*vu_prof_cas(k2)
+         dv_mod_cas(l)= frac1*dv_prof_cas(k1) - frac2*dv_prof_cas(k2)
+         hv_mod_cas(l)= frac1*hv_prof_cas(k1) - frac2*hv_prof_cas(k2)
+         vv_mod_cas(l)= frac1*vv_prof_cas(k1) - frac2*vv_prof_cas(k2)
+         dt_mod_cas(l)= frac1*dt_prof_cas(k1) - frac2*dt_prof_cas(k2)
+         ht_mod_cas(l)= frac1*ht_prof_cas(k1) - frac2*ht_prof_cas(k2)
+         vt_mod_cas(l)= frac1*vt_prof_cas(k1) - frac2*vt_prof_cas(k2)
+         dq_mod_cas(l)= frac1*dq_prof_cas(k1) - frac2*dq_prof_cas(k2)
+         hq_mod_cas(l)= frac1*hq_prof_cas(k1) - frac2*hq_prof_cas(k2)
+         vq_mod_cas(l)= frac1*vq_prof_cas(k1) - frac2*vq_prof_cas(k2)
+
+         endif ! play.le.plev_prof_cas(1)
+
+        else ! above max altitude of forcing file
+ 
+!jyg
+         fact=20.*(plev_prof_cas(nlev_cas)-play(l))/plev_prof_cas(nlev_cas) !jyg
+         fact = max(fact,0.)                                           !jyg
+         fact = exp(-fact)                                             !jyg
+         t_mod_cas(l)= t_prof_cas(nlev_cas)                                   !jyg
+         q_mod_cas(l)= q_prof_cas(nlev_cas)*fact                              !jyg
+         u_mod_cas(l)= u_prof_cas(nlev_cas)*fact                              !jyg
+         v_mod_cas(l)= v_prof_cas(nlev_cas)*fact                              !jyg
+         ug_mod_cas(l)= ug_prof_cas(nlev_cas)*fact                              !jyg
+         vg_mod_cas(l)= vg_prof_cas(nlev_cas)*fact                              !jyg
+         w_mod_cas(l)= 0.0                                                 !jyg
+         du_mod_cas(l)= du_prof_cas(nlev_cas)*fact 
+         hu_mod_cas(l)= hu_prof_cas(nlev_cas)*fact                            !jyg
+         vu_mod_cas(l)= vu_prof_cas(nlev_cas)*fact                            !jyg
+         dv_mod_cas(l)= dv_prof_cas(nlev_cas)*fact 
+         hv_mod_cas(l)= hv_prof_cas(nlev_cas)*fact                            !jyg
+         vv_mod_cas(l)= vv_prof_cas(nlev_cas)*fact                            !jyg
+         dt_mod_cas(l)= dt_prof_cas(nlev_cas) 
+         ht_mod_cas(l)= ht_prof_cas(nlev_cas)                                 !jyg
+         vt_mod_cas(l)= vt_prof_cas(nlev_cas)                                 !jyg
+         dq_mod_cas(l)= dq_prof_cas(nlev_cas)*fact 
+         hq_mod_cas(l)= hq_prof_cas(nlev_cas)*fact                            !jyg
+         vq_mod_cas(l)= vq_prof_cas(nlev_cas)*fact                            !jyg
+ 
+        endif ! play
+ 
+       enddo ! l
+
+!       do l = 1,llm
+!       print *,'t_mod_cas(l),q_mod_cas(l),ht_mod_cas(l),hq_mod_cas(l) ',
+!     $        l,t_mod_cas(l),q_mod_cas(l),ht_mod_cas(l),hq_mod_cas(l)
+!       enddo
+ 
+          return
+          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                    &
+     &             ,year_ini_astex,day_ini_astex,nt_astex,dt_astex         &
+     &             ,nlev_astex,div_astex,ts_astex,ug_astex,vg_astex        &
+     &             ,ufa_astex,vfa_astex,div_prof,ts_prof,ug_prof,vg_prof   &
+     &             ,ufa_prof,vfa_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_astex: total nb of data in the forcing (e.g. 41 for Astex)
+! dt_astex: total time interval (in sec) between 2 forcing data (e.g. 1h for Astex)
+!---------------------------------------------------------------------------------------
+
+! inputs:
+        integer annee_ref
+        integer nt_astex,nlev_astex
+        integer year_ini_astex
+        real day, day1,day_ini_astex,dt_astex
+        real div_astex(nt_astex),ts_astex(nt_astex),ug_astex(nt_astex)
+        real vg_astex(nt_astex),ufa_astex(nt_astex),vfa_astex(nt_astex)
+! outputs:
+        real div_prof,ts_prof,ug_prof,vg_prof,ufa_prof,vfa_prof
+! local:
+        integer it_astex1, it_astex2
+        real timeit,time_astex1,time_astex2,frac
+
+! Check that initial day of the simulation consistent with ASTEX period:
+       if (annee_ref.ne.1992 ) then
+        print*,'Pour Astex, annee_ref doit etre 1992 '
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.1992 .and. day1.lt.day_ini_astex) then
+        print*,'Astex debute le 13 Juin 1992 (jour julien=165)'
+        print*,'Changer dayref dans run.def'
+        stop
+       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_astex)*86400.
+!       else
+!        timeit=(day+2.-1.)*86400. ! 2 days between Jun13 and Jun15 1992
+!       endif
+      timeit=(day-day_ini_astex)*86400
+
+! Determine the closest observation times:
+       it_astex1=INT(timeit/dt_astex)+1
+       it_astex2=it_astex1 + 1
+       time_astex1=(it_astex1-1)*dt_astex
+       time_astex2=(it_astex2-1)*dt_astex
+       print *,'timeit day day_ini_astex',timeit,day,day_ini_astex
+       print *,'it_astex1,it_astex2,time_astex1,time_astex2',              &
+     &          it_astex1,it_astex2,time_astex1,time_astex2
+
+       if (it_astex1 .ge. nt_astex) then
+        write(*,*) 'PB-stop: day, it_astex1, it_astex2, timeit: '          &
+     &        ,day,it_astex1,it_astex2,timeit/86400.
+        stop
+       endif
+
+! time interpolation:
+       frac=(time_astex2-timeit)/(time_astex2-time_astex1)
+       frac=max(frac,0.0)
+
+       div_prof = div_astex(it_astex2)                                     &
+     &          -frac*(div_astex(it_astex2)-div_astex(it_astex1))
+       ts_prof = ts_astex(it_astex2)                                        &
+     &          -frac*(ts_astex(it_astex2)-ts_astex(it_astex1))
+       ug_prof = ug_astex(it_astex2)                                       &
+     &          -frac*(ug_astex(it_astex2)-ug_astex(it_astex1))
+       vg_prof = vg_astex(it_astex2)                                       &
+     &          -frac*(vg_astex(it_astex2)-vg_astex(it_astex1))
+       ufa_prof = ufa_astex(it_astex2)                                     &
+     &          -frac*(ufa_astex(it_astex2)-ufa_astex(it_astex1))
+       vfa_prof = vfa_astex(it_astex2)                                     &
+     &          -frac*(vfa_astex(it_astex2)-vfa_astex(it_astex1))
+
+         print*,                                                           &
+     &'day,annee_ref,day_ini_astex,timeit,it_astex1,it_astex2,SST:',       &
+     &day,annee_ref,day_ini_astex,timeit/86400.,it_astex1,                 &
+     &it_astex2,div_prof,ts_prof,ug_prof,vg_prof,ufa_prof,vfa_prof 
+
+        return
+        END
+
+!======================================================================
+        SUBROUTINE interp_toga_time(day,day1,annee_ref                     &
+     &             ,year_ini_toga,day_ini_toga,nt_toga,dt_toga,nlev_toga   &
+     &             ,ts_toga,plev_toga,t_toga,q_toga,u_toga,v_toga,w_toga   &
+     &             ,ht_toga,vt_toga,hq_toga,vq_toga                        &
+     &             ,ts_prof,plev_prof,t_prof,q_prof,u_prof,v_prof,w_prof   &
+     &             ,ht_prof,vt_prof,hq_prof,vq_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_toga: total nb of data in the forcing (e.g. 480 for TOGA-COARE)
+! dt_toga: total time interval (in sec) between 2 forcing data (e.g. 6h for TOGA-COARE)
+!---------------------------------------------------------------------------------------
+
+#include "compar1d.h"
+
+! inputs:
+        integer annee_ref
+        integer nt_toga,nlev_toga
+        integer year_ini_toga
+        real day, day1,day_ini_toga,dt_toga
+        real ts_toga(nt_toga)
+        real plev_toga(nlev_toga,nt_toga),t_toga(nlev_toga,nt_toga)
+        real q_toga(nlev_toga,nt_toga),u_toga(nlev_toga,nt_toga)
+        real v_toga(nlev_toga,nt_toga),w_toga(nlev_toga,nt_toga)
+        real ht_toga(nlev_toga,nt_toga),vt_toga(nlev_toga,nt_toga)
+        real hq_toga(nlev_toga,nt_toga),vq_toga(nlev_toga,nt_toga)
+! outputs:
+        real ts_prof
+        real plev_prof(nlev_toga),t_prof(nlev_toga)
+        real q_prof(nlev_toga),u_prof(nlev_toga)
+        real v_prof(nlev_toga),w_prof(nlev_toga)
+        real ht_prof(nlev_toga),vt_prof(nlev_toga)
+        real hq_prof(nlev_toga),vq_prof(nlev_toga)
+! local:
+        integer it_toga1, it_toga2,k
+        real timeit,time_toga1,time_toga2,frac
+
+
+        if (forcing_type.eq.2) then
+! Check that initial day of the simulation consistent with TOGA-COARE period:
+       if (annee_ref.ne.1992 .and. annee_ref.ne.1993) then
+        print*,'Pour TOGA-COARE, annee_ref doit etre 1992 ou 1993'
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.1992 .and. day1.lt.day_ini_toga) then
+        print*,'TOGA-COARE a débuté le 1er Nov 1992 (jour julien=306)'
+        print*,'Changer dayref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.1993 .and. day1.gt.day_ini_toga+119) then
+        print*,'TOGA-COARE a fini le 28 Feb 1993 (jour julien=59)'
+        print*,'Changer dayref ou nday dans run.def'
+        stop
+       endif
+
+       else if (forcing_type.eq.4) then
+
+! Check that initial day of the simulation consistent with TWP-ICE period:
+       if (annee_ref.ne.2006) then
+        print*,'Pour TWP-ICE, annee_ref doit etre 2006'
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.2006 .and. day1.lt.day_ini_toga) then
+        print*,'TWP-ICE a debute le 17 Jan 2006 (jour julien=17)'
+        print*,'Changer dayref dans run.def'
+        stop
+       endif
+       if (annee_ref.eq.2006 .and. day1.gt.day_ini_toga+26) then
+        print*,'TWP-ICE a fini le 12 Feb 2006 (jour julien=43)'
+        print*,'Changer dayref ou nday dans run.def'
+        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_toga)*86400.
+!       else
+!        timeit=(day+61.-1.)*86400. ! 61 days between Nov01 and Dec31 1992
+!       endif
+      timeit=(day-day_ini_toga)*86400
+
+! Determine the closest observation times:
+       it_toga1=INT(timeit/dt_toga)+1
+       it_toga2=it_toga1 + 1
+       time_toga1=(it_toga1-1)*dt_toga
+       time_toga2=(it_toga2-1)*dt_toga
+
+       if (it_toga1 .ge. nt_toga) then
+        write(*,*) 'PB-stop: day, it_toga1, it_toga2, timeit: '            &
+     &        ,day,it_toga1,it_toga2,timeit/86400.
+        stop
+       endif
+
+! time interpolation:
+       frac=(time_toga2-timeit)/(time_toga2-time_toga1)
+       frac=max(frac,0.0)
+
+       ts_prof = ts_toga(it_toga2)                                         &
+     &          -frac*(ts_toga(it_toga2)-ts_toga(it_toga1))
+
+!        print*,
+!     :'day,annee_ref,day_ini_toga,timeit,it_toga1,it_toga2,SST:',
+!     :day,annee_ref,day_ini_toga,timeit/86400.,it_toga1,it_toga2,ts_prof
+
+       do k=1,nlev_toga
+        plev_prof(k) = 100.*(plev_toga(k,it_toga2)                         &
+     &          -frac*(plev_toga(k,it_toga2)-plev_toga(k,it_toga1)))
+        t_prof(k) = t_toga(k,it_toga2)                                     &
+     &          -frac*(t_toga(k,it_toga2)-t_toga(k,it_toga1))
+        q_prof(k) = q_toga(k,it_toga2)                                     &
+     &          -frac*(q_toga(k,it_toga2)-q_toga(k,it_toga1))
+        u_prof(k) = u_toga(k,it_toga2)                                     &
+     &          -frac*(u_toga(k,it_toga2)-u_toga(k,it_toga1))
+        v_prof(k) = v_toga(k,it_toga2)                                     &
+     &          -frac*(v_toga(k,it_toga2)-v_toga(k,it_toga1))
+        w_prof(k) = w_toga(k,it_toga2)                                     &
+     &          -frac*(w_toga(k,it_toga2)-w_toga(k,it_toga1))
+        ht_prof(k) = ht_toga(k,it_toga2)                                   &
+     &          -frac*(ht_toga(k,it_toga2)-ht_toga(k,it_toga1))
+        vt_prof(k) = vt_toga(k,it_toga2)                                   &
+     &          -frac*(vt_toga(k,it_toga2)-vt_toga(k,it_toga1))
+        hq_prof(k) = hq_toga(k,it_toga2)                                   &
+     &          -frac*(hq_toga(k,it_toga2)-hq_toga(k,it_toga1))
+        vq_prof(k) = vq_toga(k,it_toga2)                                   &
+     &          -frac*(vq_toga(k,it_toga2)-vq_toga(k,it_toga1))
+        enddo
+
+        return
+        END
+
+!======================================================================
+        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         &
+     &             ,nlev_armcu,fs_armcu,fl_armcu,at_armcu,rt_armcu         &
+     &             ,aqt_armcu,fs_prof,fl_prof,at_prof,rt_prof,aqt_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_armcu: total nb of data in the forcing (e.g. 31 for armcu)
+! dt_armcu: total time interval (in sec) between 2 forcing data (e.g. 1/2h for armcu)
+! fs= sensible flux
+! fl= latent flux
+! at,rt,aqt= advective and radiative tendencies
+!---------------------------------------------------------------------------------------
+
+! inputs:
+        integer annee_ref
+        integer nt_armcu,nlev_armcu
+        integer year_ini_armcu
+        real day, day1,day_ini_armcu,dt_armcu
+        real fs_armcu(nt_armcu),fl_armcu(nt_armcu),at_armcu(nt_armcu)
+        real rt_armcu(nt_armcu),aqt_armcu(nt_armcu)
+! outputs:
+        real fs_prof,fl_prof,at_prof,rt_prof,aqt_prof
+! local:
+        integer it_armcu1, it_armcu2,k
+        real timeit,time_armcu1,time_armcu2,frac
+
+! Check that initial day of the simulation consistent with ARMCU period:
+       if (annee_ref.ne.1997 ) then
+        print*,'Pour ARMCU, annee_ref doit etre 1997 '
+        print*,'Changer annee_ref dans run.def'
+        stop
+       endif
+
+      timeit=(day-day_ini_armcu)*86400
+
+! Determine the closest observation times:
+       it_armcu1=INT(timeit/dt_armcu)+1
+       it_armcu2=it_armcu1 + 1
+       time_armcu1=(it_armcu1-1)*dt_armcu
+       time_armcu2=(it_armcu2-1)*dt_armcu
+       print *,'timeit day day_ini_armcu',timeit,day,day_ini_armcu
+       print *,'it_armcu1,it_armcu2,time_armcu1,time_armcu2',              &
+     &          it_armcu1,it_armcu2,time_armcu1,time_armcu2
+
+       if (it_armcu1 .ge. nt_armcu) then
+        write(*,*) 'PB-stop: day, it_armcu1, it_armcu2, timeit: '          &
+     &        ,day,it_armcu1,it_armcu2,timeit/86400.
+        stop
+       endif
+
+! time interpolation:
+       frac=(time_armcu2-timeit)/(time_armcu2-time_armcu1)
+       frac=max(frac,0.0)
+
+       fs_prof = fs_armcu(it_armcu2)                                       &
+     &          -frac*(fs_armcu(it_armcu2)-fs_armcu(it_armcu1))
+       fl_prof = fl_armcu(it_armcu2)                                       &
+     &          -frac*(fl_armcu(it_armcu2)-fl_armcu(it_armcu1))
+       at_prof = at_armcu(it_armcu2)                                       &
+     &          -frac*(at_armcu(it_armcu2)-at_armcu(it_armcu1))
+       rt_prof = rt_armcu(it_armcu2)                                       &
+     &          -frac*(rt_armcu(it_armcu2)-rt_armcu(it_armcu1))
+       aqt_prof = aqt_armcu(it_armcu2)                                       &
+     &          -frac*(aqt_armcu(it_armcu2)-aqt_armcu(it_armcu1))
+
+         print*,                                                           &
+     &'day,annee_ref,day_ini_armcu,timeit,it_armcu1,it_armcu2,SST:',       &
+     &day,annee_ref,day_ini_armcu,timeit/86400.,it_armcu1,                 &
+     &it_armcu2,fs_prof,fl_prof,at_prof,rt_prof,aqt_prof
+
+        return
+        END
+
+!=====================================================================
+      subroutine readprofiles(nlev_max,kmax,ntrac,height,                  &
+     &           thlprof,qtprof,uprof,                                     &
+     &           vprof,e12prof,ugprof,vgprof,                              &
+     &           wfls,dqtdxls,dqtdyls,dqtdtls,                             &
+     &           thlpcar,tracer,nt1,nt2)
+      implicit none
+
+        integer nlev_max,kmax,kmax2,ntrac
+        logical :: llesread = .true.
+
+        real height(nlev_max),thlprof(nlev_max),qtprof(nlev_max),          &
+     &       uprof(nlev_max),vprof(nlev_max),e12prof(nlev_max),            &
+     &       ugprof(nlev_max),vgprof(nlev_max),wfls(nlev_max),             &
+     &       dqtdxls(nlev_max),dqtdyls(nlev_max),dqtdtls(nlev_max),        &
+     &           thlpcar(nlev_max),tracer(nlev_max,ntrac)
+
+        real height1(nlev_max)
+
+        integer, parameter :: ilesfile=1
+        integer :: ierr,k,itrac,nt1,nt2
+
+        if(.not.(llesread)) return
+
+       open (ilesfile,file='prof.inp.001',status='old',iostat=ierr)
+        if (ierr /= 0) stop 'ERROR:Prof.inp does not exist'
+        read (ilesfile,*) kmax
+        do k=1,kmax
+          read (ilesfile,*) height1(k),thlprof(k),qtprof (k),               &
+     &                      uprof (k),vprof  (k),e12prof(k)
+        enddo
+        close(ilesfile)
+
+       open(ilesfile,file='lscale.inp.001',status='old',iostat=ierr)
+        if (ierr /= 0) stop 'ERROR:Lscale.inp does not exist'
+        read (ilesfile,*) kmax2
+        if (kmax .ne. kmax2) then
+          print *, 'fichiers prof.inp et lscale.inp incompatibles :'
+          print *, 'nbre de niveaux : ',kmax,' et ',kmax2
+          stop 'lecture profiles'
+        endif
+        do k=1,kmax
+          read (ilesfile,*) height(k),ugprof(k),vgprof(k),wfls(k),         &
+     &                      dqtdxls(k),dqtdyls(k),dqtdtls(k),thlpcar(k)
+        end do
+        do k=1,kmax
+          if (height(k) .ne. height1(k)) then
+            print *, 'fichiers prof.inp et lscale.inp incompatibles :'
+            print *, 'les niveaux different : ',k,height1(k), height(k)
+            stop
+          endif
+        end do
+        close(ilesfile)
+
+       open(ilesfile,file='trac.inp.001',status='old',iostat=ierr)
+        if (ierr /= 0) then
+            print*,'WARNING : trac.inp does not exist'
+        else
+        read (ilesfile,*) kmax2,nt1,nt2
+        if (nt2>ntrac) then
+          stop'Augmenter le nombre de traceurs dans traceur.def'
+        endif
+        if (kmax .ne. kmax2) then
+          print *, 'fichiers prof.inp et lscale.inp incompatibles :'
+          print *, 'nbre de niveaux : ',kmax,' et ',kmax2
+          stop 'lecture profiles'
+        endif
+        do k=1,kmax
+          read (ilesfile,*) height(k),(tracer(k,itrac),itrac=nt1,nt2)
+        end do
+        close(ilesfile)
+        endif
+
+        return
+        end
+!======================================================================
+      subroutine readprofile_sandu(nlev_max,kmax,height,pprof,tprof,       &
+     &       thlprof,qprof,uprof,vprof,wprof,omega,o3mmr)
+!======================================================================
+      implicit none
+
+        integer nlev_max,kmax
+        logical :: llesread = .true.
+
+        real height(nlev_max),pprof(nlev_max),tprof(nlev_max)
+        real thlprof(nlev_max)
+        real qprof(nlev_max),uprof(nlev_max),vprof(nlev_max)
+        real wprof(nlev_max),omega(nlev_max),o3mmr(nlev_max)
+
+        integer, parameter :: ilesfile=1
+        integer :: k,ierr
+
+        if(.not.(llesread)) return
+
+       open (ilesfile,file='prof.inp.001',status='old',iostat=ierr)
+        if (ierr /= 0) stop 'ERROR:Prof.inp does not exist'
+        read (ilesfile,*) kmax
+        do k=1,kmax
+          read (ilesfile,*) height(k),pprof(k),  tprof(k),thlprof(k),      &
+     &                      qprof (k),uprof(k),  vprof(k),  wprof(k),      &
+     &                      omega (k),o3mmr(k)
+        enddo
+        close(ilesfile)
+
+        return
+        end
+
+!======================================================================
+      subroutine readprofile_astex(nlev_max,kmax,height,pprof,tprof,       &
+     &    thlprof,qvprof,qlprof,qtprof,uprof,vprof,wprof,tkeprof,o3mmr)
+!======================================================================
+      implicit none
+
+        integer nlev_max,kmax
+        logical :: llesread = .true.
+
+        real height(nlev_max),pprof(nlev_max),tprof(nlev_max),             &
+     &  thlprof(nlev_max),qlprof(nlev_max),qtprof(nlev_max),               &
+     &  qvprof(nlev_max),uprof(nlev_max),vprof(nlev_max),                  &
+     &  wprof(nlev_max),tkeprof(nlev_max),o3mmr(nlev_max)
+
+        integer, parameter :: ilesfile=1
+        integer :: ierr,k
+
+        if(.not.(llesread)) return
+
+       open (ilesfile,file='prof.inp.001',status='old',iostat=ierr)
+        if (ierr /= 0) stop 'ERROR:Prof.inp does not exist'
+        read (ilesfile,*) kmax
+        do k=1,kmax
+          read (ilesfile,*) height(k),pprof(k),  tprof(k),thlprof(k),      &
+     &                qvprof (k),qlprof (k),qtprof (k),                    &
+     &                uprof(k),  vprof(k),  wprof(k),tkeprof(k),o3mmr(k)
+        enddo
+        close(ilesfile)
+
+        return
+        end
+
+
+
+!======================================================================
+      subroutine readprofile_armcu(nlev_max,kmax,height,pprof,uprof,       &
+     &       vprof,thetaprof,tprof,qvprof,rvprof,aprof,bprof)
+!======================================================================
+      implicit none
+
+        integer nlev_max,kmax
+        logical :: llesread = .true.
+
+        real height(nlev_max),pprof(nlev_max),tprof(nlev_max)
+        real thetaprof(nlev_max),rvprof(nlev_max)
+        real qvprof(nlev_max),uprof(nlev_max),vprof(nlev_max)
+        real aprof(nlev_max+1),bprof(nlev_max+1)
+
+        integer, parameter :: ilesfile=1
+        integer, parameter :: ifile=2
+        integer :: ierr,jtot,k
+
+        if(.not.(llesread)) return
+
+! Read profiles at full levels
+       IF(nlev_max.EQ.19) THEN
+       open (ilesfile,file='prof.inp.19',status='old',iostat=ierr)
+       print *,'On ouvre prof.inp.19'
+       ELSE
+       open (ilesfile,file='prof.inp.40',status='old',iostat=ierr)
+       print *,'On ouvre prof.inp.40'
+       ENDIF
+        if (ierr /= 0) stop 'ERROR:Prof.inp does not exist'
+        read (ilesfile,*) kmax
+        do k=1,kmax
+          read (ilesfile,*) height(k)    ,pprof(k),  uprof(k), vprof(k),   &
+     &                      thetaprof(k) ,tprof(k), qvprof(k),rvprof(k)
+        enddo
+        close(ilesfile)
+
+! Vertical coordinates half levels for eta-coordinates (plev = alpha + beta * psurf) 
+       IF(nlev_max.EQ.19) THEN
+       open (ifile,file='proh.inp.19',status='old',iostat=ierr)
+       print *,'On ouvre proh.inp.19'
+       if (ierr /= 0) stop 'ERROR:Proh.inp.19 does not exist'
+       ELSE
+       open (ifile,file='proh.inp.40',status='old',iostat=ierr)
+       print *,'On ouvre proh.inp.40'
+       if (ierr /= 0) stop 'ERROR:Proh.inp.40 does not exist'
+       ENDIF
+        read (ifile,*) kmax
+        do k=1,kmax
+          read (ifile,*) jtot,aprof(k),bprof(k)
+        enddo
+        close(ifile)
+
+        return
+        end
+
+!=====================================================================
+      subroutine read_fire(fich_fire,nlevel,ntime                          &
+     &     ,zz,thl,qt,u,v,tke                                              &
+     &     ,ug,vg,wls,dqtdx,dqtdy,dqtdt,thl_rad)
+
+!program reading forcings of the FIRE case study
+
+
+      implicit none
+
+#include "netcdf.inc"
+
+      integer ntime,nlevel
+      character*80 :: fich_fire
+      real*8 zz(nlevel)
+
+      real*8 thl(nlevel)
+      real*8 qt(nlevel),u(nlevel)
+      real*8 v(nlevel),tke(nlevel)
+      real*8 ug(nlevel,ntime),vg(nlevel,ntime),wls(nlevel,ntime)
+      real*8 dqtdx(nlevel,ntime),dqtdy(nlevel,ntime)
+      real*8 dqtdt(nlevel,ntime),thl_rad(nlevel,ntime)
+
+      integer nid, ierr
+      integer nbvar3d
+      parameter(nbvar3d=30)
+      integer var3didin(nbvar3d)
+
+      ierr = NF_OPEN(fich_fire,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,"thetal",var3didin(2))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'temp'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"qt",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,"tke",var3didin(6))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'tke'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"ugeo",var3didin(7))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'ug'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vgeo",var3didin(8))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vg'
+         endif
+      
+      ierr=NF_INQ_VARID(nid,"wls",var3didin(9))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'wls'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"dqtdx",var3didin(10))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dqtdx'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"dqtdy",var3didin(11))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dqtdy'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"dqtdt",var3didin(12))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'dqtdt'
+      endif
+
+      ierr=NF_INQ_VARID(nid,"thl_rad",var3didin(13))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'thl_rad'
+      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),thl)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(2),thl)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture thl ok',thl
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),qt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(3),qt)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture qt ok',qt
+ 
+#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),tke)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(6),tke)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture tke ok',tke
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),ug)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(7),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(8),vg)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(8),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(9),wls)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(9),wls)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture wls ok',wls
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(10),dqtdx)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(10),dqtdx)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dqtdx ok',dqtdx
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(11),dqtdy)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(11),dqtdy)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dqtdy ok',dqtdy
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(12),dqtdt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(12),dqtdt)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dqtdt ok',dqtdt
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(13),thl_rad)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(13),thl_rad)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture thl_rad ok',thl_rad
+
+         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
+!=====================================================================
+
+!  Subroutines for nudging
+
+      Subroutine Nudge_RHT_init (paprs,pplay,t,q,t_targ,rh_targ)
+! ========================================================
+  USE dimphy
+
+  implicit none
+
+! ========================================================
+      REAL paprs(klon,klevp1)
+      REAL pplay(klon,klev)
+!
+!      Variables d'etat
+      REAL t(klon,klev)
+      REAL q(klon,klev)
+!
+!   Profiles cible
+      REAL t_targ(klon,klev)
+      REAL rh_targ(klon,klev)
+!
+   INTEGER k,i
+   REAL zx_qs
+
+! Declaration des constantes et des fonctions thermodynamiques
+!
+include "YOMCST.h"
+include "YOETHF.h"
+!
+!  ----------------------------------------
+!  Statement functions
+include "FCTTRE.h"
+!  ----------------------------------------
+!
+        DO k = 1,klev
+         DO i = 1,klon
+           t_targ(i,k) = t(i,k)
+           IF (t(i,k).LT.RTT) THEN
+              zx_qs = qsats(t(i,k))/(pplay(i,k))
+           ELSE
+              zx_qs = qsatl(t(i,k))/(pplay(i,k))
+           ENDIF
+           rh_targ(i,k) = q(i,k)/zx_qs
+         ENDDO
+        ENDDO
+      print *, 't_targ',t_targ
+      print *, 'rh_targ',rh_targ
+!
+!
+      RETURN
+      END
+
+      Subroutine Nudge_UV_init (paprs,pplay,u,v,u_targ,v_targ)
+! ========================================================
+  USE dimphy
+
+  implicit none
+
+! ========================================================
+      REAL paprs(klon,klevp1)
+      REAL pplay(klon,klev)
+!
+!      Variables d'etat
+      REAL u(klon,klev)
+      REAL v(klon,klev)
+!
+!   Profiles cible
+      REAL u_targ(klon,klev)
+      REAL v_targ(klon,klev)
+!
+   INTEGER k,i
+!
+        DO k = 1,klev
+         DO i = 1,klon
+           u_targ(i,k) = u(i,k)
+           v_targ(i,k) = v(i,k)
+         ENDDO
+        ENDDO
+      print *, 'u_targ',u_targ
+      print *, 'v_targ',v_targ
+!
+!
+      RETURN
+      END
+
+      Subroutine Nudge_RHT (dtime,paprs,pplay,t_targ,rh_targ,t,q,          &
+     &                      d_t,d_q)
+! ========================================================
+  USE dimphy
+
+  implicit none
+
+! ========================================================
+      REAL dtime
+      REAL paprs(klon,klevp1)
+      REAL pplay(klon,klev)
+!
+!      Variables d'etat
+      REAL t(klon,klev)
+      REAL q(klon,klev)
+!
+! Tendances
+      REAL d_t(klon,klev)
+      REAL d_q(klon,klev)
+!
+!   Profiles cible
+      REAL t_targ(klon,klev)
+      REAL rh_targ(klon,klev)
+!
+!   Temps de relaxation
+      REAL tau
+!c      DATA tau /3600./
+!!      DATA tau /5400./
+      DATA tau /1800./
+!
+   INTEGER k,i
+   REAL zx_qs, rh, tnew, d_rh, rhnew
+
+! Declaration des constantes et des fonctions thermodynamiques
+!
+include "YOMCST.h"
+include "YOETHF.h"
+!
+!  ----------------------------------------
+!  Statement functions
+include "FCTTRE.h"
+!  ----------------------------------------
+!
+        print *,'dtime, tau ',dtime,tau
+        print *, 't_targ',t_targ
+        print *, 'rh_targ',rh_targ
+        print *,'temp ',t
+        print *,'hum ',q
+!
+        DO k = 1,klev
+         DO i = 1,klon
+           IF (paprs(i,1)-pplay(i,k) .GT. 10000.) THEN
+            IF (t(i,k).LT.RTT) THEN
+               zx_qs = qsats(t(i,k))/(pplay(i,k))
+            ELSE
+               zx_qs = qsatl(t(i,k))/(pplay(i,k))
+            ENDIF
+            rh = q(i,k)/zx_qs
+!
+            d_t(i,k) = d_t(i,k) + 1./tau*(t_targ(i,k)-t(i,k))
+            d_rh = 1./tau*(rh_targ(i,k)-rh)
+!
+            tnew = t(i,k)+d_t(i,k)*dtime
+!jyg<
+!   Formule pour q :
+!                         d_q = (1/tau) [rh_targ*qsat(T_new) - q] 
+!
+!  Cette formule remplace d_q = (1/tau) [rh_targ - rh] qsat(T_new)
+!   qui n'était pas correcte.
+!
+            IF (tnew.LT.RTT) THEN
+               zx_qs = qsats(tnew)/(pplay(i,k))
+            ELSE
+               zx_qs = qsatl(tnew)/(pplay(i,k))
+            ENDIF
+!!            d_q(i,k) = d_q(i,k) + d_rh*zx_qs
+            d_q(i,k) = d_q(i,k) + (1./tau)*(rh_targ(i,k)*zx_qs - q(i,k))
+            rhnew = (q(i,k)+d_q(i,k)*dtime)/zx_qs
+!
+            print *,' k,d_t,rh,d_rh,rhnew,d_q ',    &
+                      k,d_t(i,k),rh,d_rh,rhnew,d_q(i,k)
+           ENDIF
+!
+         ENDDO
+        ENDDO
+!
+      RETURN
+      END
+
+      Subroutine Nudge_UV (dtime,paprs,pplay,u_targ,v_targ,u,v,          &
+     &                      d_u,d_v)
+! ========================================================
+  USE dimphy
+
+  implicit none
+
+! ========================================================
+      REAL dtime
+      REAL paprs(klon,klevp1)
+      REAL pplay(klon,klev)
+!
+!      Variables d'etat
+      REAL u(klon,klev)
+      REAL v(klon,klev)
+!
+! Tendances
+      REAL d_u(klon,klev)
+      REAL d_v(klon,klev)
+!
+!   Profiles cible
+      REAL u_targ(klon,klev)
+      REAL v_targ(klon,klev)
+!
+!   Temps de relaxation
+      REAL tau
+!c      DATA tau /3600./
+      DATA tau /5400./
+!
+   INTEGER k,i
+
+!
+        print *,'dtime, tau ',dtime,tau
+        print *, 'u_targ',u_targ
+        print *, 'v_targ',v_targ
+        print *,'zonal velocity ',u
+        print *,'meridional velocity ',v
+        DO k = 1,klev
+         DO i = 1,klon
+           IF (paprs(i,1)-pplay(i,k) .GT. 10000.) THEN
+!
+            d_u(i,k) = d_u(i,k) + 1./tau*(u_targ(i,k)-u(i,k))
+            d_v(i,k) = d_v(i,k) + 1./tau*(v_targ(i,k)-v(i,k))
+!
+            print *,' k,u,d_u,v,d_v ',    &
+                      k,u(i,k),d_u(i,k),v(i,k),d_v(i,k)
+           ENDIF
+!
+         ENDDO
+        ENDDO
+!
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_decl_cases.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_decl_cases.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_decl_cases.h	(revision 3330)
@@ -0,0 +1,254 @@
+#include "netcdf.inc"
+
+! Declarations specifiques au cas Toga
+        character*80 :: fich_toga
+!        integer nlev_prof
+!        parameter (nlev_prof = 41)
+        integer nlev_toga, nt_toga
+        parameter (nlev_toga=41, nt_toga=480)
+        integer year_ini_toga, day_ini_toga, mth_ini_toga
+        real day_ju_ini_toga   ! Julian day of toga coare first day
+        parameter (year_ini_toga=1992) 
+        parameter (mth_ini_toga=11)
+        parameter (day_ini_toga=1)  !  1erNov1992
+        real dt_toga
+        parameter (dt_toga=6.*3600.)
+!!
+        integer year_print, month_print, day_print
+        real    sec_print
+!!
+        real ts_toga(nt_toga)
+        real plev_toga(nlev_toga,nt_toga),w_toga(nlev_toga,nt_toga)
+        real t_toga(nlev_toga,nt_toga),q_toga(nlev_toga,nt_toga)
+        real u_toga(nlev_toga,nt_toga),v_toga(nlev_toga,nt_toga)
+        real ht_toga(nlev_toga,nt_toga),vt_toga(nlev_toga,nt_toga)
+        real hq_toga(nlev_toga,nt_toga),vq_toga(nlev_toga,nt_toga)
+
+        real ts_prof
+        real plev_prof(nlev_toga),w_prof(nlev_toga)
+        real t_prof(nlev_toga),q_prof(nlev_toga)
+        real u_prof(nlev_toga),v_prof(nlev_toga)
+        real ht_prof(nlev_toga),vt_prof(nlev_toga)
+        real hq_prof(nlev_toga),vq_prof(nlev_toga)
+
+        real w_mod(llm), t_mod(llm),q_mod(llm)
+        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
+        common /sst_forcing/ts_cur ! also in read_tsurf1d.F
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Declarations specifiques au cas RICO
+        character*80 :: fich_rico
+        integer nlev_rico
+
+        parameter (nlev_rico=81)
+        real ts_rico,ps_rico
+        real w_rico(llm)
+        real t_rico(llm),q_rico(llm)
+        real u_rico(llm),v_rico(llm)
+        real dth_rico(llm)
+        real dqh_rico(llm)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Declarations specifiques au cas TWPice
+        character*80 :: fich_twpice
+        integer nlev_twpi, nt_twpi
+        parameter (nlev_twpi=40, nt_twpi=215)
+        integer year_ini_twpi, day_ini_twpi, mth_ini_twpi
+        real heure_ini_twpi
+        real day_ju_ini_twpi   ! Julian day of twpice first day
+        parameter (year_ini_twpi=2006) 
+        parameter (mth_ini_twpi=1)
+        parameter (day_ini_twpi=17)  ! 17 = 17Jan2006
+        parameter (heure_ini_twpi=10800.) !3h en secondes
+        real dt_twpi
+        parameter (dt_twpi=3.*3600.)
+
+        real ts_twpi(nt_twpi)
+        real plev_twpi(nlev_twpi,nt_twpi),w_twpi(nlev_twpi,nt_twpi)
+        real t_twpi(nlev_twpi,nt_twpi),q_twpi(nlev_twpi,nt_twpi)
+        real u_twpi(nlev_twpi,nt_twpi),v_twpi(nlev_twpi,nt_twpi)
+        real ht_twpi(nlev_twpi,nt_twpi),vt_twpi(nlev_twpi,nt_twpi)
+        real hq_twpi(nlev_twpi,nt_twpi),vq_twpi(nlev_twpi,nt_twpi)
+
+        real ts_proftwp
+        real plev_proftwp(nlev_twpi),w_proftwp(nlev_twpi)
+        real t_proftwp(nlev_twpi),q_proftwp(nlev_twpi)
+        real u_proftwp(nlev_twpi),v_proftwp(nlev_twpi)
+        real ht_proftwp(nlev_twpi),vt_proftwp(nlev_twpi)
+        real hq_proftwp(nlev_twpi),vq_proftwp(nlev_twpi)
+
+
+
+!Declarations specifiques au cas FIRE
+        character*80 :: fich_fire
+        integer nlev_fire, nt_fire
+        parameter (nlev_fire=120, nt_fire=1)  
+        integer year_ini_fire, day_ini_fire, mth_ini_fire
+        real heure_ini_fire
+        parameter (year_ini_fire=1987) 
+        parameter (mth_ini_fire=7)
+        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
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Declarations specifiques au cas GCSSold
+        character*80 :: fich_gcssold_ctl
+        character*80 :: fich_gcssold_dat
+        real  ht_gcssold(llm),hq_gcssold(llm),hw_gcssold(llm)
+        real  hu_gcssold(llm)
+        real  hv_gcssold(llm)
+        real  hthturb_gcssold(llm)
+        real  hqturb_gcssold(llm)
+        real  Ts_gcssold
+        real  dtime_frcg
+        logical :: Turb_fcg_gcssold
+
+        common /turb_forcing/                                                   &
+     &  dtime_frcg,hthturb_gcssold, hqturb_gcssold,Turb_fcg_gcssold
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Declarations specifiques au cas Arm_cu
+        character*80 :: fich_armcu
+
+
+        integer nlev_armcu, nt_armcu
+        parameter (nlev_armcu=40, nt_armcu=31)
+        integer year_ini_armcu, day_ini_armcu, mth_ini_armcu
+        real  heure_ini_armcu
+        real day_ju_ini_armcu                                ! Julian day of armcu case first day
+        parameter (year_ini_armcu=1997) 
+        parameter (mth_ini_armcu=6)
+        parameter (day_ini_armcu=21)  ! 172 = 21 juin 1997
+        parameter (heure_ini_armcu=41400)   ! 11:30 en secondes
+        real dt_armcu
+        parameter (dt_armcu=1.*1800.)   ! forcages donnes ttes les demi-heures par ifa_armcu.txt
+        real sens_armcu(nt_armcu),flat_armcu(nt_armcu)
+        real adv_theta_armcu(nt_armcu),rad_theta_armcu(nt_armcu)
+        real adv_qt_armcu(nt_armcu)
+        real theta_mod(llm),rv_mod(llm),play_mod(llm)
+! profc comme "profil armcu"
+        
+! forcages interpoles dans le temps
+        real adv_theta_prof,rad_theta_prof,adv_qt_prof
+        real sens_prof,flat_prof,fact
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! declarations specifiques au cas Sandu
+        character*80 :: fich_sandu
+!        integer nlev_prof
+!        parameter (nlev_prof = 41)
+        integer nlev_sandu, nt_sandu
+        parameter (nlev_sandu=87, nt_sandu=13)
+        integer year_ini_sandu, day_ini_sandu, mth_ini_sandu
+        real day_ju_ini_sandu                                ! Julian day of sandu case first day
+        parameter (year_ini_sandu=2006)
+        parameter (mth_ini_sandu=7)
+        parameter (day_ini_sandu=15)  ! 196 = 15 juillet 2006
+        real dt_sandu, tau_sandu
+        logical  :: trouve_700=.true.
+        parameter (dt_sandu=6.*3600.)   ! forcages donnes ttes les 6 heures par ifa_sandu.txt
+        parameter (tau_sandu=3600.)  ! temps de relaxation u,v,thetal,qt vers profil init et au dessus 700hPa
+!!
+        real ts_sandu(nt_sandu)
+! profs comme "profil sandu"
+        real plev_profs(nlev_sandu)
+        real t_profs(nlev_sandu),thl_profs(nlev_sandu)
+        real q_profs(nlev_sandu)
+        real u_profs(nlev_sandu),v_profs(nlev_sandu),w_profs(nlev_sandu)
+        real omega_profs(nlev_sandu),o3mmr_profs(nlev_sandu)
+
+        real, dimension(llm) :: relax_u,relax_v,relax_thl
+        real, dimension(llm,2) :: relax_q
+
+        real thl_mod(llm),omega_mod(llm),o3mmr_mod(llm),tke_mod(llm)
+!vertical advection computation
+        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
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Declarations specifiques au cas Astex
+        character*80 :: fich_astex
+        integer nlev_astex, nt_astex
+        parameter (nlev_astex=34, nt_astex=49)
+        integer year_ini_astex, day_ini_astex, mth_ini_astex
+        real day_ju_ini_astex                                ! Julian day of astex case first day
+        parameter (year_ini_astex=1992)
+        parameter (mth_ini_astex=6)
+        parameter (day_ini_astex=13)  ! 165 = 13 juin 1992
+        real dt_astex
+        parameter (dt_astex=3600.)    ! forcages donnes ttes les heures par ifa_astex.txt
+        real ts_astex(nt_astex),div_astex(nt_astex),ug_astex(nt_astex)
+        real vg_astex(nt_astex),ufa_astex(nt_astex),vfa_astex(nt_astex)
+        real div_prof,ug_prof,vg_prof,ufa_prof,vfa_prof
+! profa comme "profil astex"
+        real plev_profa(nlev_astex)
+        real t_profa(nlev_astex),thl_profa(nlev_astex)
+        real qv_profa(nlev_astex),ql_profa(nlev_astex)
+        real qt_profa(nlev_astex),o3mmr_profa(nlev_astex)
+        real u_profa(nlev_astex),v_profa(nlev_astex),w_profa(nlev_astex)
+        real tke_profa(nlev_astex)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!Declarations specifiques au cas standard
+
+        real w_mod_cas(llm), t_mod_cas(llm),q_mod_cas(llm)
+        real ug_mod_cas(llm),vg_mod_cas(llm)
+        real u_mod_cas(llm),v_mod_cas(llm)
+        real ht_mod_cas(llm),vt_mod_cas(llm),dt_mod_cas(llm),dtrad_mod_cas(llm)
+        real hq_mod_cas(llm),vq_mod_cas(llm),dq_mod_cas(llm)
+        real hu_mod_cas(llm),vu_mod_cas(llm),du_mod_cas(llm)
+        real hv_mod_cas(llm),vv_mod_cas(llm),dv_mod_cas(llm)
+        integer day_ini_cas
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_interp_cases.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_interp_cases.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_interp_cases.h	(revision 3330)
@@ -0,0 +1,772 @@
+!
+! $Id$
+!
+!---------------------------------------------------------------------
+! Forcing_LES case: constant dq_dyn
+!---------------------------------------------------------------------
+      if (forcing_LES) then
+        DO l = 1,llm
+          d_q_adv(l,1) = dq_dyn(l,1)
+        ENDDO
+      endif ! forcing_LES
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing in time and onto model levels
+!---------------------------------------------------------------------
+      if (forcing_GCSSold) then
+
+       call get_uvd(it,timestep,fich_gcssold_ctl,fich_gcssold_dat,              &
+     &               ht_gcssold,hq_gcssold,hw_gcssold,                          &
+     &               hu_gcssold,hv_gcssold,                                     &
+     &               hthturb_gcssold,hqturb_gcssold,Ts_gcssold,                 &
+     &               imp_fcg_gcssold,ts_fcg_gcssold,                            &
+     &               Tp_fcg_gcssold,Turb_fcg_gcssold)
+       if (prt_level.ge.1) then
+         print *,' get_uvd -> hqturb_gcssold ',it,hqturb_gcssold
+       endif
+! large-scale forcing :
+!!!      tsurf = ts_gcssold
+      do l = 1, llm
+!       u(l) = hu_gcssold(l) !  on prescrit le vent
+!       v(l) = hv_gcssold(l)    !  on prescrit le vent
+!       omega(l) = hw_gcssold(l)
+!       rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+!       omega2(l)=-rho(l)*omega(l)
+       omega(l) = hw_gcssold(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) = ht_gcssold(l)
+       d_q_adv(l,1) = hq_gcssold(l)
+       dt_cooling(l) = 0.0
+      enddo
+
+      endif ! forcing_GCSSold
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation Toga forcing 
+!---------------------------------------------------------------------
+      if (forcing_toga) then
+
+       if (prt_level.ge.1) then
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_toga=',     &
+     &    day,day1,(day-day1)*86400.,(day-day1)*86400/dt_toga
+       endif
+
+! time interpolation:
+        CALL interp_toga_time(daytime,day1,annee_ref                        &
+     &             ,year_ini_toga,day_ju_ini_toga,nt_toga,dt_toga           &
+     &             ,nlev_toga,ts_toga,plev_toga,t_toga,q_toga,u_toga        &
+     &             ,v_toga,w_toga,ht_toga,vt_toga,hq_toga,vq_toga           &
+     &             ,ts_prof,plev_prof,t_prof,q_prof,u_prof,v_prof,w_prof    &
+     &             ,ht_prof,vt_prof,hq_prof,vq_prof)
+
+        if (type_ts_forcing.eq.1) ts_cur = ts_prof ! SST used in read_tsurf1d
+
+! vertical interpolation:
+      CALL interp_toga_vertical(play,nlev_toga,plev_prof                    &
+     &         ,t_prof,q_prof,u_prof,v_prof,w_prof                          &
+     &         ,ht_prof,vt_prof,hq_prof,vq_prof                             &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                               &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+
+! large-scale forcing :
+      tsurf = ts_prof
+      do l = 1, llm
+       u(l) = u_mod(l) ! sb: on prescrit le vent
+       v(l) = v_mod(l) ! sb: on prescrit le vent
+!       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)
+       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)+vt_mod(l))
+       d_q_adv(l,1) = -(hq_mod(l)+vq_mod(l))
+       dt_cooling(l) = 0.0
+      enddo
+
+      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
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing TWPice
+!---------------------------------------------------------------------
+      if (forcing_twpice) then
+
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_twpi=',     &
+     &    daytime,day1,(daytime-day1)*86400.,                               &
+     &    (daytime-day1)*86400/dt_twpi
+
+! time interpolation:
+        CALL interp_toga_time(daytime,day1,annee_ref                        &
+     &       ,year_ini_twpi,day_ju_ini_twpi,nt_twpi,dt_twpi,nlev_twpi       &
+     &       ,ts_twpi,plev_twpi,t_twpi,q_twpi,u_twpi,v_twpi,w_twpi          &
+     &       ,ht_twpi,vt_twpi,hq_twpi,vq_twpi                               &
+     &       ,ts_proftwp,plev_proftwp,t_proftwp,q_proftwp,u_proftwp         &
+     &       ,v_proftwp,w_proftwp                                           &
+     &       ,ht_proftwp,vt_proftwp,hq_proftwp,vq_proftwp)
+
+! vertical interpolation:
+      CALL interp_toga_vertical(play,nlev_twpi,plev_proftwp                 &
+     &         ,t_proftwp,q_proftwp,u_proftwp,v_proftwp,w_proftwp           &
+     &         ,ht_proftwp,vt_proftwp,hq_proftwp,vq_proftwp                 &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                               &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+
+
+!calcul de l'advection verticale a partir du omega
+!Calcul des gradients verticaux
+!initialisation
+      d_t_z(:)=0.
+      d_q_z(:)=0.
+      d_t_dyn_z(:)=0.
+      d_q_dyn_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))
+      ENDDO
+      d_t_z(1)=d_t_z(2)
+      d_q_z(1)=d_q_z(2)
+      d_t_z(llm)=d_t_z(llm-1)
+      d_q_z(llm)=d_q_z(llm-1)
+
+!Calcul de l advection verticale
+      d_t_dyn_z(:)=w_mod(:)*d_t_z(:)
+      d_q_dyn_z(:)=w_mod(:)*d_q_z(:)
+
+!wind nudging above 500m with a 2h time scale
+        do l=1,llm
+        if (nudge_wind) then
+!           if (phi(l).gt.5000.) then
+        if (phi(l).gt.0.) then
+        u(l)=u(l)+timestep*(u_mod(l)-u(l))/(2.*3600.)
+        v(l)=v(l)+timestep*(v_mod(l)-v(l))/(2.*3600.)
+           endif    
+        else
+        u(l) = u_mod(l) 
+        v(l) = v_mod(l)
+        endif
+        enddo
+
+!CR:nudging of q and theta with a 6h time scale above 15km
+        if (nudge_thermo) then
+        do l=1,llm
+           zz(l)=phi(l)/9.8
+           if ((zz(l).le.16000.).and.(zz(l).gt.15000.)) then
+             zfact=(zz(l)-15000.)/1000.
+        q(l,1)=q(l,1)+timestep*(q_mod(l)-q(l,1))/(6.*3600.)*zfact
+        temp(l)=temp(l)+timestep*(t_mod(l)-temp(l))/(6.*3600.)*zfact
+           else if (zz(l).gt.16000.) then 
+        q(l,1)=q(l,1)+timestep*(q_mod(l)-q(l,1))/(6.*3600.)
+        temp(l)=temp(l)+timestep*(t_mod(l)-temp(l))/(6.*3600.)
+           endif
+        enddo    
+        endif
+
+      do l = 1, llm
+       omega(l) = w_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)
+!calcul de l'advection totale
+        if (cptadvw) then
+        d_th_adv(l) = alpha*omega(l)/rcpd+ht_mod(l)-d_t_dyn_z(l)
+!        print*,'temp vert adv',l,ht_mod(l),vt_mod(l),-d_t_dyn_z(l)
+        d_q_adv(l,1) = hq_mod(l)-d_q_dyn_z(l)
+!        print*,'q vert adv',l,hq_mod(l),vq_mod(l),-d_q_dyn_z(l)
+        else
+        d_th_adv(l) = alpha*omega(l)/rcpd+(ht_mod(l)+vt_mod(l))
+        d_q_adv(l,1) = (hq_mod(l)+vq_mod(l))
+        endif
+       dt_cooling(l) = 0.0
+      enddo
+
+      endif ! forcing_twpice
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing AMMA
+!---------------------------------------------------------------------
+
+       if (forcing_amma) then
+
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_amma=',     &
+     &    daytime,day1,(daytime-day1)*86400.,                               &
+     &    (daytime-day1)*86400/dt_amma
+
+! time interpolation using TOGA interpolation routine
+        CALL interp_amma_time(daytime,day1,annee_ref                        &
+     &       ,year_ini_amma,day_ju_ini_amma,nt_amma,dt_amma,nlev_amma       &
+     &       ,vitw_amma,ht_amma,hq_amma,lat_amma,sens_amma                  &
+     &       ,vitw_profamma,ht_profamma,hq_profamma,lat_profamma            &
+     &       ,sens_profamma)
+
+      print*,'apres interpolation temporelle AMMA'
+
+      do k=1,nlev_amma
+         th_profamma(k)=0.
+         q_profamma(k)=0.
+         u_profamma(k)=0.
+         v_profamma(k)=0.
+         vt_profamma(k)=0.
+         vq_profamma(k)=0.
+       enddo
+! vertical interpolation using TOGA interpolation routine:
+!      write(*,*)'avant interp vert', t_proftwp
+      CALL interp_toga_vertical(play,nlev_amma,plev_amma                      &
+     &         ,th_profamma,q_profamma,u_profamma,v_profamma                 &
+     &         ,vitw_profamma                                               &
+     &         ,ht_profamma,vt_profamma,hq_profamma,vq_profamma             &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                               &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+       write(*,*) 'Profil initial forcing AMMA interpole'
+
+
+!calcul de l'advection verticale a partir du omega
+!Calcul des gradients verticaux
+!initialisation
+      do l=1,llm
+      d_t_z(l)=0.
+      d_q_z(l)=0.
+      enddo
+
+      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))
+      ENDDO
+      d_t_z(1)=d_t_z(2)
+      d_q_z(1)=d_q_z(2)
+      d_t_z(llm)=d_t_z(llm-1)
+      d_q_z(llm)=d_q_z(llm-1)
+
+
+      do l = 1, llm
+       rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+       omega(l) = w_mod(l)*(-rg*rho(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)
+!calcul de l'advection totale
+!        d_th_adv(l) = alpha*omega(l)/rcpd+ht_mod(l)-omega(l)*d_t_z(l)
+!attention: on impose dth
+        d_th_adv(l) = alpha*omega(l)/rcpd+                                  &
+     &         ht_mod(l)*(play(l)/pzero)**rkappa-omega(l)*d_t_z(l)
+!        d_th_adv(l) = 0.
+!        print*,'temp vert adv',l,ht_mod(l),vt_mod(l),-d_t_dyn_z(l)
+        d_q_adv(l,1) = hq_mod(l)-omega(l)*d_q_z(l)
+!        d_q_adv(l,1) = 0.
+!        print*,'q vert adv',l,hq_mod(l),vq_mod(l),-d_q_dyn_z(l)
+   
+       dt_cooling(l) = 0.0
+      enddo
+
+
+!     ok_flux_surf=.false.
+      fsens=-1.*sens_profamma
+      flat=-1.*lat_profamma
+
+      endif ! forcing_amma
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing Rico
+!---------------------------------------------------------------------
+      if (forcing_rico) then
+!       call lstendH(llm,omega,dt_dyn,dq_dyn,du_dyn, dv_dyn,
+!     :  q,temp,u,v,play)
+       call lstendH(llm,nqtot,omega,dt_dyn,dq_dyn,q,temp,u,v,play)
+
+        do l=1,llm
+       d_th_adv(l) =  (dth_rico(l) +  dt_dyn(l))
+       d_q_adv(l,1) = (dqh_rico(l) +  dq_dyn(l,1))
+       d_q_adv(l,2) = 0.
+        enddo
+      endif  ! forcing_rico
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing Arm_cu
+!---------------------------------------------------------------------
+      if (forcing_armcu) then
+
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_armcu=',    &
+     &    day,day1,(day-day1)*86400.,(day-day1)*86400/dt_armcu
+
+! time interpolation:
+! ATTENTION, cet appel ne convient pas pour TOGA !!
+! revoir 1DUTILS.h et les arguments
+      CALL interp_armcu_time(daytime,day1,annee_ref                         &
+     &            ,year_ini_armcu,day_ju_ini_armcu,nt_armcu,dt_armcu        &
+     &            ,nlev_armcu,sens_armcu,flat_armcu,adv_theta_armcu          &
+     &            ,rad_theta_armcu,adv_qt_armcu,sens_prof,flat_prof         &
+     &            ,adv_theta_prof,rad_theta_prof,adv_qt_prof)
+
+! vertical interpolation:
+! No vertical interpolation if nlev imposed to 19 or 40
+
+! For this case, fluxes are imposed
+       fsens=-1*sens_prof
+       flat=-1*flat_prof
+
+! Advective forcings are given in K or g/kg ... BY HOUR
+      do l = 1, llm
+       ug(l)= u_mod(l)
+       vg(l)= v_mod(l)
+       IF((phi(l)/RG).LT.1000) THEN
+         d_th_adv(l) = (adv_theta_prof + rad_theta_prof)/3600.
+         d_q_adv(l,1) = adv_qt_prof/1000./3600.
+         d_q_adv(l,2) = 0.0
+!        print *,'INF1000: phi dth dq1 dq2',
+!    :  phi(l)/RG,d_th_adv(l),d_q_adv(l,1),d_q_adv(l,2)
+       ELSEIF ((phi(l)/RG).GE.1000.AND.(phi(l)/RG).lt.3000) THEN
+         fact=((phi(l)/RG)-1000.)/2000.
+         fact=1-fact
+         d_th_adv(l) = (adv_theta_prof + rad_theta_prof)*fact/3600.
+         d_q_adv(l,1) = adv_qt_prof*fact/1000./3600.
+         d_q_adv(l,2) = 0.0
+!        print *,'SUP1000: phi fact dth dq1 dq2',
+!    :  phi(l)/RG,fact,d_th_adv(l),d_q_adv(l,1),d_q_adv(l,2)
+       ELSE
+         d_th_adv(l) = 0.0
+         d_q_adv(l,1) = 0.0
+         d_q_adv(l,2) = 0.0
+!        print *,'SUP3000: phi dth dq1 dq2',
+!    :  phi(l)/RG,d_th_adv(l),d_q_adv(l,1),d_q_adv(l,2)
+       ENDIF
+      dt_cooling(l) = 0.0  
+!     print *,'Interp armcu: phi dth dq1 dq2',
+!    :  l,phi(l),d_th_adv(l),d_q_adv(l,1),d_q_adv(l,2)
+      enddo
+      endif ! forcing_armcu
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing in time and onto model levels
+!---------------------------------------------------------------------
+      if (forcing_sandu) then
+
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_sandu=',    &
+     &    day,day1,(day-day1)*86400.,(day-day1)*86400/dt_sandu 
+
+! time interpolation:
+! ATTENTION, cet appel ne convient pas pour TOGA !!
+! revoir 1DUTILS.h et les arguments
+      CALL interp_sandu_time(daytime,day1,annee_ref                         &
+     &             ,year_ini_sandu,day_ju_ini_sandu,nt_sandu,dt_sandu       &
+     &             ,nlev_sandu                                              &
+     &             ,ts_sandu,ts_prof)
+
+        if (type_ts_forcing.eq.1) ts_cur = ts_prof ! SST used in read_tsurf1d
+
+! vertical interpolation:
+      CALL interp_sandu_vertical(play,nlev_sandu,plev_profs                 &
+     &         ,t_profs,thl_profs,q_profs,u_profs,v_profs,w_profs           &
+     &         ,omega_profs,o3mmr_profs                                     &
+     &         ,t_mod,thl_mod,q_mod,u_mod,v_mod,w_mod                       &
+     &         ,omega_mod,o3mmr_mod,mxcalc)
+!calcul de l'advection verticale
+!Calcul des gradients verticaux
+!initialisation
+      d_t_z(:)=0.
+      d_q_z(:)=0.
+      d_t_dyn_z(:)=0.
+      d_q_dyn_z(:)=0.
+! schema centre
+!     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))
+! schema amont
+      DO l=2,llm-1
+       d_t_z(l)=(temp(l+1)-temp(l))/(play(l+1)-play(l))
+       d_q_z(l)=(q(l+1,1)-q(l,1))/(play(l+1)-play(l))
+!     print *,'l temp2 temp0 play2 play0 omega_mod',
+!    & temp(l+1),temp(l-1),play(l+1),play(l-1),omega_mod(l)
+      ENDDO
+      d_t_z(1)=d_t_z(2)
+      d_q_z(1)=d_q_z(2)
+      d_t_z(llm)=d_t_z(llm-1)
+      d_q_z(llm)=d_q_z(llm-1)
+
+!  calcul de l advection verticale
+! Confusion w (m/s) et omega (Pa/s) !!
+      d_t_dyn_z(:)=omega_mod(:)*d_t_z(:)
+      d_q_dyn_z(:)=omega_mod(:)*d_q_z(:)
+!     do l=1,llm
+!      print *,'d_t_dyn omega_mod d_t_z d_q_dyn d_q_z',
+!    :l,d_t_dyn_z(l),omega_mod(l),d_t_z(l),d_q_dyn_z(l),d_q_z(l)
+!     enddo
+
+
+! large-scale forcing : pour le cas Sandu ces forcages sont la SST
+! et une divergence constante -> profil de omega
+      tsurf = ts_prof
+      write(*,*) 'SST suivante: ',tsurf
+      do l = 1, llm
+       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) = 0.0
+!      d_q_adv(l,1) = 0.0
+!CR:test advection=0
+!calcul de l'advection verticale
+        d_th_adv(l) = alpha*omega(l)/rcpd-d_t_dyn_z(l)
+!        print*,'temp adv',l,-d_t_dyn_z(l)
+        d_q_adv(l,1) = -d_q_dyn_z(l)
+!        print*,'q adv',l,-d_q_dyn_z(l)
+       dt_cooling(l) = 0.0
+      enddo
+      endif ! forcing_sandu
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing in time and onto model levels
+!---------------------------------------------------------------------
+      if (forcing_astex) then
+
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/dt_astex=',    &
+     &    day,day1,(day-day1)*86400.,(day-day1)*86400/dt_astex
+
+! time interpolation:
+! ATTENTION, cet appel ne convient pas pour TOGA !!
+! revoir 1DUTILS.h et les arguments
+      CALL interp_astex_time(daytime,day1,annee_ref                         &
+     &             ,year_ini_astex,day_ju_ini_astex,nt_astex,dt_astex       &
+     &             ,nlev_astex,div_astex,ts_astex,ug_astex,vg_astex         &
+     &             ,ufa_astex,vfa_astex,div_prof,ts_prof,ug_prof,vg_prof    &
+     &             ,ufa_prof,vfa_prof)
+
+        if (type_ts_forcing.eq.1) ts_cur = ts_prof ! SST used in read_tsurf1d
+
+! vertical interpolation:
+      CALL interp_astex_vertical(play,nlev_astex,plev_profa                 &
+     &         ,t_profa,thl_profa,qv_profa,ql_profa,qt_profa                &
+     &         ,u_profa,v_profa,w_profa,tke_profa,o3mmr_profa               &
+     &         ,t_mod,thl_mod,qv_mod,ql_mod,qt_mod,u_mod,v_mod,w_mod        &
+     &         ,tke_mod,o3mmr_mod,mxcalc)
+!calcul de l'advection verticale
+!Calcul des gradients verticaux
+!initialisation
+      d_t_z(:)=0.
+      d_q_z(:)=0.
+      d_t_dyn_z(:)=0.
+      d_q_dyn_z(:)=0.
+! schema centre
+!     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))
+! schema amont
+      DO l=2,llm-1
+       d_t_z(l)=(temp(l+1)-temp(l))/(play(l+1)-play(l))
+       d_q_z(l)=(q(l+1,1)-q(l,1))/(play(l+1)-play(l))
+!     print *,'l temp2 temp0 play2 play0 omega_mod',
+!    & temp(l+1),temp(l-1),play(l+1),play(l-1),omega_mod(l)
+      ENDDO
+      d_t_z(1)=d_t_z(2)
+      d_q_z(1)=d_q_z(2)
+      d_t_z(llm)=d_t_z(llm-1)
+      d_q_z(llm)=d_q_z(llm-1)
+
+!  calcul de l advection verticale
+! Confusion w (m/s) et omega (Pa/s) !!
+      d_t_dyn_z(:)=w_mod(:)*d_t_z(:)
+      d_q_dyn_z(:)=w_mod(:)*d_q_z(:)
+!     do l=1,llm
+!      print *,'d_t_dyn omega_mod d_t_z d_q_dyn d_q_z',
+!    :l,d_t_dyn_z(l),omega_mod(l),d_t_z(l),d_q_dyn_z(l),d_q_z(l)
+!     enddo
+
+
+! large-scale forcing : pour le cas Astex ces forcages sont la SST
+! la divergence,ug,vg,ufa,vfa
+      tsurf = ts_prof
+      write(*,*) 'SST suivante: ',tsurf
+      do l = 1, llm
+       omega(l) = w_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) = 0.0
+!      d_q_adv(l,1) = 0.0
+!CR:test advection=0
+!calcul de l'advection verticale
+        d_th_adv(l) = alpha*omega(l)/rcpd-d_t_dyn_z(l)
+!        print*,'temp adv',l,-d_t_dyn_z(l)
+        d_q_adv(l,1) = -d_q_dyn_z(l)
+!        print*,'q adv',l,-d_q_dyn_z(l)
+       dt_cooling(l) = 0.0
+      enddo
+      endif ! forcing_astex
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Interpolation forcing standard case
+!---------------------------------------------------------------------
+      if (forcing_case) then
+
+        print*,                                                             &
+     & '#### ITAP,day,day1,(day-day1)*86400,(day-day1)*86400/pdt_cas=',     &
+     &    daytime,day1,(daytime-day1)*86400.,                               &
+     &    (daytime-day1)*86400/pdt_cas
+
+! time interpolation:
+        CALL interp_case_time(daytime,day1,annee_ref                                        &
+!    &       ,year_ini_cas,day_ju_ini_cas,nt_cas,pdt_cas,nlev_cas                           &
+     &       ,nt_cas,nlev_cas                                                               &
+     &       ,ts_cas,plev_cas,t_cas,q_cas,u_cas,v_cas,ug_cas,vg_cas                         &
+     &       ,vitw_cas,du_cas,hu_cas,vu_cas                                                 &
+     &       ,dv_cas,hv_cas,vv_cas,dt_cas,ht_cas,vt_cas,dtrad_cas                           &
+     &       ,dq_cas,hq_cas,vq_cas,lat_cas,sens_cas,ustar_cas                               &
+     &       ,uw_cas,vw_cas,q1_cas,q2_cas                                                   &
+     &       ,ts_prof_cas,plev_prof_cas,t_prof_cas,q_prof_cas,u_prof_cas,v_prof_cas         &
+     &       ,ug_prof_cas,vg_prof_cas,vitw_prof_cas,du_prof_cas,hu_prof_cas,vu_prof_cas     &
+     &       ,dv_prof_cas,hv_prof_cas,vv_prof_cas,dt_prof_cas,ht_prof_cas,vt_prof_cas       &
+     &       ,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas,lat_prof_cas               &
+     &       ,sens_prof_cas,ustar_prof_cas,uw_prof_cas,vw_prof_cas,q1_prof_cas,q2_prof_cas)
+
+             ts_cur = ts_prof_cas 
+             psurf=plev_prof_cas(1)
+
+! vertical interpolation:
+      CALL interp_case_vertical(play,nlev_cas,plev_prof_cas            &
+     &         ,t_prof_cas,q_prof_cas,u_prof_cas,v_prof_cas,ug_prof_cas,vg_prof_cas,vitw_prof_cas                         &
+     &         ,du_prof_cas,hu_prof_cas,vu_prof_cas,dv_prof_cas,hv_prof_cas,vv_prof_cas           &
+     &         ,dt_prof_cas,ht_prof_cas,vt_prof_cas,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas           &
+     &         ,t_mod_cas,q_mod_cas,u_mod_cas,v_mod_cas,ug_mod_cas,vg_mod_cas,w_mod_cas                              &
+     &         ,du_mod_cas,hu_mod_cas,vu_mod_cas,dv_mod_cas,hv_mod_cas,vv_mod_cas               &
+     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc)
+
+
+!calcul de l'advection verticale a partir du omega
+!Calcul des gradients verticaux
+!initialisation
+      d_t_z(:)=0.
+      d_q_z(:)=0.
+      d_u_z(:)=0.
+      d_v_z(:)=0.
+      d_t_dyn_z(:)=0.
+      d_q_dyn_z(:)=0.
+      d_u_dyn_z(:)=0.
+      d_v_dyn_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)=d_u_z(2)
+      d_v_z(1)=d_v_z(2)
+      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
+      d_t_dyn_z(:)=w_mod_cas(:)*d_t_z(:)
+      d_q_dyn_z(:)=w_mod_cas(:)*d_q_z(:)
+      d_u_dyn_z(:)=w_mod_cas(:)*d_u_z(:)
+      d_v_dyn_z(:)=w_mod_cas(:)*d_v_z(:)
+
+!wind nudging 
+      if (nudge_u.gt.0.) then
+        do l=1,llm
+           u(l)=u(l)+timestep*(u_mod_cas(l)-u(l))/(nudge_u)
+        enddo
+      else
+        do l=1,llm
+        u(l) = u_mod_cas(l) 
+        enddo
+      endif
+
+      if (nudge_v.gt.0.) then
+        do l=1,llm
+           v(l)=v(l)+timestep*(v_mod_cas(l)-v(l))/(nudge_v)
+        enddo
+      else
+        do l=1,llm
+        v(l) = v_mod_cas(l) 
+        enddo
+      endif
+
+      if (nudge_w.gt.0.) then
+        do l=1,llm
+           w(l)=w(l)+timestep*(w_mod_cas(l)-w(l))/(nudge_w)
+        enddo
+      else
+        do l=1,llm
+        w(l) = w_mod_cas(l) 
+        enddo
+      endif
+
+!nudging of q and temp 
+      if (nudge_t.gt.0.) then
+        do l=1,llm
+           temp(l)=temp(l)+timestep*(t_mod_cas(l)-temp(l))/(nudge_t)
+        enddo
+      endif
+      if (nudge_q.gt.0.) then
+        do l=1,llm
+           q(l,1)=q(l,1)+timestep*(q_mod_cas(l)-q(l,1))/(nudge_q)
+        enddo
+      endif
+
+      do l = 1, llm
+       omega(l) = w_mod_cas(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)
+
+!calcul advection
+        if ((tend_u.eq.1).and.(tend_w.eq.0)) then
+           d_u_adv(l)=du_mod_cas(l)
+        else if ((tend_u.eq.1).and.(tend_w.eq.1)) then
+           d_u_adv(l)=hu_mod_cas(l)-d_u_dyn_z(l)
+        endif
+
+        if ((tend_v.eq.1).and.(tend_w.eq.0)) then
+           d_v_adv(l)=dv_mod_cas(l)
+        else if ((tend_v.eq.1).and.(tend_w.eq.1)) then
+           d_v_adv(l)=hv_mod_cas(l)-d_v_dyn_z(l)
+        endif
+
+        if ((tend_t.eq.1).and.(tend_w.eq.0)) then
+!           d_th_adv(l)=alpha*omega(l)/rcpd+dt_mod_cas(l)
+           d_th_adv(l)=alpha*omega(l)/rcpd-dt_mod_cas(l)
+        else if ((tend_t.eq.1).and.(tend_w.eq.1)) then
+!           d_th_adv(l)=alpha*omega(l)/rcpd+ht_mod_cas(l)-d_t_dyn_z(l)
+           d_th_adv(l)=alpha*omega(l)/rcpd-ht_mod_cas(l)-d_t_dyn_z(l)
+        endif
+
+        if ((tend_q.eq.1).and.(tend_w.eq.0)) then
+!           d_q_adv(l,1)=dq_mod_cas(l)
+           d_q_adv(l,1)=-1*dq_mod_cas(l)
+        else if ((tend_q.eq.1).and.(tend_w.eq.1)) then
+!           d_q_adv(l,1)=hq_mod_cas(l)-d_q_dyn_z(l)
+           d_q_adv(l,1)=-1*hq_mod_cas(l)-d_q_dyn_z(l)
+        endif
+         
+        if (tend_rayo.eq.1) then
+           dt_cooling(l) = dtrad_mod_cas(l)
+!          print *,'dt_cooling=',dt_cooling(l)
+        else
+           dt_cooling(l) = 0.0
+        endif
+      enddo
+
+      endif ! forcing_case
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h	(revision 3330)
@@ -0,0 +1,34 @@
+      do l = 1, llm
+!
+! au dessus de 700hPa, on relaxe vers profil init
+!      on fait l'hypothese que dans ce cas, il n'y a plus d'eau liq. au dessus 700hpa
+!      donc la relaxation en thetal et qt devient relaxation en tempe et qv
+       relax_u(l)=(u(l)-u_mod(l))/tau_sandu  ! pour u et v on relaxe sur tte la colonne
+       relax_v(l)=(v(l)-v_mod(l))/tau_sandu
+       relax_q(l,1)=0.
+       relax_q(l,2)=0.
+       relax_thl(l)=0.
+!      print *,'nudge: l tau_sandu u u_mod',l,tau_sandu,u(l),u_mod(l)
+!
+       if (l.ge.llm700) then 
+         relax_q(l,1)=(q(l,1)-q_mod(l))/tau_sandu
+         relax_q(l,2)=0.
+         relax_thl(l)=(temp(l)-t_mod(l))/tau_sandu
+       endif
+!     print *,'l dq1 relax dqadv',l,dq(l,1),relax_q(l,1),d_q_adv(l,1)
+!     print *,'l dq2 relax dqadv',l,dq(l,2),relax_q(l,2),d_q_adv(l,2)
+!     print *,'l dt  relax dtadv',l,dt_phys(l),relax_thl(l),d_th_adv(l)
+      enddo
+        u(1:mxcalc)=u(1:mxcalc) + timestep*(                                &          
+     &              du_phys(1:mxcalc) - relax_u(1:mxcalc))
+        v(1:mxcalc)=v(1:mxcalc) + timestep*(                                &
+     &               dv_phys(1:mxcalc) - relax_v(1:mxcalc))
+!       q(1:mxcalc,:)=q(1:mxcalc,:)+timestep*(
+!    .              dq(1:mxcalc,:) - relax_q(1:mxcalc,:)+
+!    .              d_q_adv(1:mxcalc,:))
+        q(1:mxcalc,1)=q(1:mxcalc,1)+timestep*(                              &
+     &      dq(1:mxcalc,1) - relax_q(1:mxcalc,1)+d_q_adv(1:mxcalc,1))
+        q(1:mxcalc,2)=q(1:mxcalc,2)+timestep*(                              &
+     &      dq(1:mxcalc,2) - relax_q(1:mxcalc,2)+d_q_adv(1:mxcalc,2))
+        temp(1:mxcalc)=temp(1:mxcalc)+timestep*(                            &
+     &      dt_phys(1:mxcalc)-relax_thl(1:mxcalc)+d_th_adv(1:mxcalc))
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_read_forc_cases.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_read_forc_cases.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1D_read_forc_cases.h	(revision 3330)
@@ -0,0 +1,798 @@
+!
+! $Id$
+!
+!----------------------------------------------------------------------
+! forcing_les = .T. : Impose a constant cooling 
+! forcing_radconv = .T. : Pure radiative-convective equilibrium:
+!----------------------------------------------------------------------
+
+
+      nq1=0
+      nq2=0
+
+      if (forcing_les .or. forcing_radconv                                      &
+     &    .or. forcing_GCSSold .or. forcing_fire) then
+
+      if (forcing_fire) then
+!----------------------------------------------------------------------
+!read fire forcings from fire.nc
+!----------------------------------------------------------------------
+      fich_fire='fire.nc'
+      call read_fire(fich_fire,nlev_fire,nt_fire                                &
+     &     ,height,tttprof,qtprof,uprof,vprof,e12prof                           &
+     &     ,ugprof,vgprof,wfls,dqtdxls                                          &
+     &     ,dqtdyls,dqtdtls,thlpcar)
+      write(*,*) 'Forcing FIRE lu'
+      kmax=120            ! nombre de niveaux dans les profils et forcages
+      else 
+!----------------------------------------------------------------------
+! Read profiles from files: prof.inp.001 and lscale.inp.001
+! (repris de readlesfiles)
+!----------------------------------------------------------------------
+
+      call readprofiles(nlev_max,kmax,nqtot,height,                             &
+     &           tttprof,qtprof,uprof,vprof,                                    &
+     &           e12prof,ugprof,vgprof,                                         &
+     &           wfls,dqtdxls,dqtdyls,dqtdtls,                                  &
+     &           thlpcar,qprof,nq1,nq2)
+      endif
+
+! compute altitudes of play levels.
+      zlay(1) =zsurf +  rd*tsurf*(psurf-play(1))/(rg*psurf)
+      do l = 2,llm
+        zlay(l) = zlay(l-1)+rd*tsurf*(psurf-play(1))/(rg*psurf)
+      enddo
+
+!----------------------------------------------------------------------
+! Interpolation of the profiles given on the input file to
+! model levels
+!----------------------------------------------------------------------
+      zlay(1) = zsurf +  rd*tsurf*(psurf-play(1))/(rg*psurf)
+      do l=1,llm
+        ! Above the max altutide of the input file
+
+        if (zlay(l)<height(kmax)) mxcalc=l
+
+        frac = (height(kmax)-zlay(l))/(height (kmax)-height(kmax-1))
+        ttt =tttprof(kmax)-frac*(tttprof(kmax)-tttprof(kmax-1))
+       if ((forcing_GCSSold .AND. tp_ini_GCSSold) .OR. forcing_fire)then ! pot. temp. in initial profile
+          temp(l) = ttt*(play(l)/pzero)**rkappa
+          teta(l) = ttt
+       else
+          temp(l) = ttt
+          teta(l) = ttt*(pzero/play(l))**rkappa
+       endif
+          print *,' temp,teta ',l,temp(l),teta(l)
+        q(l,1)  = qtprof(kmax)-frac*( qtprof(kmax)- qtprof(kmax-1))
+        u(l)    =  uprof(kmax)-frac*(  uprof(kmax)-  uprof(kmax-1))
+        v(l)    =  vprof(kmax)-frac*(  vprof(kmax)-  vprof(kmax-1))
+        ug(l)   = ugprof(kmax)-frac*( ugprof(kmax)- ugprof(kmax-1))
+        vg(l)   = vgprof(kmax)-frac*( vgprof(kmax)- vgprof(kmax-1))
+        IF (nq2>0) q(l,nq1:nq2)=qprof(kmax,nq1:nq2)                         &
+     &               -frac*(qprof(kmax,nq1:nq2)-qprof(kmax-1,nq1:nq2))
+        omega(l)=   wfls(kmax)-frac*(   wfls(kmax)-   wfls(kmax-1))
+
+        dq_dyn(l,1) = dqtdtls(kmax)-frac*(dqtdtls(kmax)-dqtdtls(kmax-1))
+        dt_cooling(l)=thlpcar(kmax)-frac*(thlpcar(kmax)-thlpcar(kmax-1))
+        do k=2,kmax
+          frac = (height(k)-zlay(l))/(height(k)-height(k-1))
+          if(l==1) print*,'k, height, tttprof',k,height(k),tttprof(k)
+          if(zlay(l)>height(k-1).and.zlay(l)<height(k)) then
+            ttt =tttprof(k)-frac*(tttprof(k)-tttprof(k-1))
+       if ((forcing_GCSSold .AND. tp_ini_GCSSold) .OR. forcing_fire)then ! pot. temp. in initial profile
+          temp(l) = ttt*(play(l)/pzero)**rkappa
+          teta(l) = ttt
+       else
+          temp(l) = ttt
+          teta(l) = ttt*(pzero/play(l))**rkappa
+       endif
+          print *,' temp,teta ',l,temp(l),teta(l)
+            q(l,1)  = qtprof(k)-frac*( qtprof(k)- qtprof(k-1))
+            u(l)    =  uprof(k)-frac*(  uprof(k)-  uprof(k-1))
+            v(l)    =  vprof(k)-frac*(  vprof(k)-  vprof(k-1))
+            ug(l)   = ugprof(k)-frac*( ugprof(k)- ugprof(k-1))
+            vg(l)   = vgprof(k)-frac*( vgprof(k)- vgprof(k-1))
+            IF (nq2>0) q(l,nq1:nq2)=qprof(k,nq1:nq2)                        &
+     &                   -frac*(qprof(k,nq1:nq2)-qprof(k-1,nq1:nq2))
+            omega(l)=   wfls(k)-frac*(   wfls(k)-   wfls(k-1))
+            dq_dyn(l,1)=dqtdtls(k)-frac*(dqtdtls(k)-dqtdtls(k-1))
+            dt_cooling(l)=thlpcar(k)-frac*(thlpcar(k)-thlpcar(k-1))
+          elseif(zlay(l)<height(1)) then ! profils uniformes pour z<height(1)
+            ttt =tttprof(1)
+       if ((forcing_GCSSold .AND. tp_ini_GCSSold) .OR. forcing_fire)then ! pot. temp. in initial profile
+          temp(l) = ttt*(play(l)/pzero)**rkappa
+          teta(l) = ttt
+       else
+          temp(l) = ttt
+          teta(l) = ttt*(pzero/play(l))**rkappa
+       endif
+            q(l,1)  = qtprof(1)
+            u(l)    =  uprof(1)
+            v(l)    =  vprof(1)
+            ug(l)   = ugprof(1)
+            vg(l)   = vgprof(1)
+            omega(l)=   wfls(1)
+            IF (nq2>0) q(l,nq1:nq2)=qprof(1,nq1:nq2)
+            dq_dyn(l,1)  =dqtdtls(1)
+            dt_cooling(l)=thlpcar(1)
+          endif
+        enddo 
+
+        temp(l)=max(min(temp(l),350.),150.)
+        rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+        if (l .lt. llm) then
+          zlay(l+1) = zlay(l) + (play(l)-play(l+1))/(rg*rho(l))
+        endif
+        omega2(l)=-rho(l)*omega(l)
+        omega(l)= omega(l)*(-rg*rho(l)) !en Pa/s
+        if (l>1) then
+        if(zlay(l-1)>height(kmax)) then
+           omega(l)=0.0
+           omega2(l)=0.0
+        endif   
+        endif
+        if(q(l,1)<0.) q(l,1)=0.0
+        q(l,2)  = 0.0
+      enddo
+
+      endif ! forcing_les .or. forcing_GCSSold .or. forcing_fire
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing for GCSSold:
+!---------------------------------------------------------------------
+      if (forcing_GCSSold) then
+       fich_gcssold_ctl = './forcing.ctl'
+       fich_gcssold_dat = './forcing8.dat'
+       call copie(llm,play,psurf,fich_gcssold_ctl)
+       call get_uvd2(it,timestep,fich_gcssold_ctl,fich_gcssold_dat,         &
+     &               ht_gcssold,hq_gcssold,hw_gcssold,                      &
+     &               hu_gcssold,hv_gcssold,                                 &
+     &               hthturb_gcssold,hqturb_gcssold,Ts_gcssold,             &
+     &               imp_fcg_gcssold,ts_fcg_gcssold,                        &
+     &               Tp_fcg_gcssold,Turb_fcg_gcssold)
+       print *,' get_uvd2 -> hqturb_gcssold ',hqturb_gcssold
+      endif ! forcing_GCSSold
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing for RICO:
+!---------------------------------------------------------------------
+      if (forcing_rico) then
+
+!       call writefield_phy('omega', omega,llm+1)
+      fich_rico = 'rico.txt'
+       call read_rico(fich_rico,nlev_rico,ps_rico,play                      &
+     &             ,ts_rico,t_rico,q_rico,u_rico,v_rico,w_rico              &
+     &             ,dth_rico,dqh_rico)
+        print*, ' on a lu et prepare RICO'
+
+       mxcalc=llm
+       print *, airefi, ' airefi '
+       do l = 1, llm
+       rho(l)  = play(l)/(rd*t_rico(l)*(1.+(rv/rd-1.)*q_rico(l)))
+       temp(l) = t_rico(l)
+       q(l,1) = q_rico(l)
+       q(l,2) = 0.0
+       u(l) = u_rico(l)
+       v(l) = v_rico(l)
+       ug(l)=u_rico(l)
+       vg(l)=v_rico(l)
+       omega(l) = -w_rico(l)*rg
+       omega2(l) = omega(l)/rg*airefi
+       enddo
+      endif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from TOGA-COARE experiment (Ciesielski et al. 2002) :
+!---------------------------------------------------------------------
+
+      if (forcing_toga) then
+
+! read TOGA-COARE forcing (native vertical grid, nt_toga timesteps):
+      fich_toga = './d_toga/ifa_toga_coare_v21_dime.txt'
+      CALL read_togacoare(fich_toga,nlev_toga,nt_toga                       &
+     &         ,ts_toga,plev_toga,t_toga,q_toga,u_toga,v_toga,w_toga        &
+     &         ,ht_toga,vt_toga,hq_toga,vq_toga)
+
+       write(*,*) 'Forcing TOGA lu'
+
+! time interpolation for initial conditions:
+      write(*,*) 'AVT 1ere INTERPOLATION: day,day1 = ',day,day1
+      CALL interp_toga_time(daytime,day1,annee_ref                          &
+     &             ,year_ini_toga,day_ju_ini_toga,nt_toga,dt_toga           &
+     &             ,nlev_toga,ts_toga,plev_toga,t_toga,q_toga,u_toga        &
+     &             ,v_toga,w_toga,ht_toga,vt_toga,hq_toga,vq_toga           &
+     &             ,ts_prof,plev_prof,t_prof,q_prof,u_prof,v_prof,w_prof    &
+     &             ,ht_prof,vt_prof,hq_prof,vq_prof)
+
+! vertical interpolation:
+      CALL interp_toga_vertical(play,nlev_toga,plev_prof                    &
+     &         ,t_prof,q_prof,u_prof,v_prof,w_prof                          &
+     &         ,ht_prof,vt_prof,hq_prof,vq_prof                             &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                               &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+       write(*,*) 'Profil initial forcing TOGA interpole'
+
+! initial and boundary conditions :
+      tsurf = ts_prof
+      write(*,*) 'SST initiale: ',tsurf
+      do l = 1, llm
+       temp(l) = t_mod(l)
+       q(l,1) = q_mod(l)
+       q(l,2) = 0.0
+       u(l) = u_mod(l)
+       v(l) = v_mod(l)
+       omega(l) = w_mod(l)
+       omega2(l)=omega(l)/rg*airefi ! flxmass_w calcule comme ds physiq
+!?       rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+!?       omega2(l)=-rho(l)*omega(l)
+       alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
+       d_th_adv(l) = alpha*omega(l)/rcpd-(ht_mod(l)+vt_mod(l))
+       d_q_adv(l,1) = -(hq_mod(l)+vq_mod(l))
+       d_q_adv(l,2) = 0.0
+      enddo
+
+      endif ! forcing_toga
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from TWPICE experiment (Shaocheng et al. 2010) :
+!---------------------------------------------------------------------
+
+      if (forcing_twpice) then
+!read TWP-ICE forcings
+     fich_twpice='d_twpi/twp180iopsndgvarana_v2.1_C3.c1.20060117.000000.cdf'
+      call read_twpice(fich_twpice,nlev_twpi,nt_twpi                        &
+     &     ,ts_twpi,plev_twpi,t_twpi,q_twpi,u_twpi,v_twpi,w_twpi            &
+     &     ,ht_twpi,vt_twpi,hq_twpi,vq_twpi)
+
+      write(*,*) 'Forcing TWP-ICE lu'
+!Time interpolation for initial conditions using TOGA interpolation routine
+         write(*,*) 'AVT 1ere INTERPOLATION: day,day1 = ',daytime,day1   
+      CALL interp_toga_time(daytime,day1,annee_ref                          &
+     &          ,year_ini_twpi,day_ju_ini_twpi,nt_twpi,dt_twpi,nlev_twpi    &
+     &             ,ts_twpi,plev_twpi,t_twpi,q_twpi,u_twpi,v_twpi,w_twpi    &
+     &             ,ht_twpi,vt_twpi,hq_twpi,vq_twpi                         &
+     &             ,ts_proftwp,plev_proftwp,t_proftwp,q_proftwp             &
+     &             ,u_proftwp,v_proftwp,w_proftwp                           &
+     &             ,ht_proftwp,vt_proftwp,hq_proftwp,vq_proftwp)
+
+! vertical interpolation using TOGA interpolation routine:
+!      write(*,*)'avant interp vert', t_proftwp
+      CALL interp_toga_vertical(play,nlev_twpi,plev_proftwp                 &
+     &         ,t_proftwp,q_proftwp,u_proftwp,v_proftwp,w_proftwp           &
+     &         ,ht_proftwp,vt_proftwp,hq_proftwp,vq_proftwp                 &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                               &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+!       write(*,*) 'Profil initial forcing TWP-ICE interpole',t_mod
+
+! initial and boundary conditions :
+!      tsurf = ts_proftwp
+      write(*,*) 'SST initiale: ',tsurf
+      do l = 1, llm
+       temp(l) = t_mod(l)
+       q(l,1) = q_mod(l)
+       q(l,2) = 0.0
+       u(l) = u_mod(l)
+       v(l) = v_mod(l)
+       omega(l) = w_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)+vt_mod(l))
+       d_q_adv(l,1) = (hq_mod(l)+vq_mod(l))
+       d_q_adv(l,2) = 0.0
+      enddo     
+       
+      endif !forcing_twpice
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from AMMA experiment (Couvreux et al. 2010) :
+!---------------------------------------------------------------------
+
+      if (forcing_amma) then
+
+      call read_1D_cases
+
+      write(*,*) 'Forcing AMMA lu'
+
+!champs initiaux:
+      do k=1,nlev_amma
+         th_ammai(k)=th_amma(k)
+         q_ammai(k)=q_amma(k)
+         u_ammai(k)=u_amma(k)
+         v_ammai(k)=v_amma(k)
+         vitw_ammai(k)=vitw_amma(k,12)
+         ht_ammai(k)=ht_amma(k,12)
+         hq_ammai(k)=hq_amma(k,12)
+         vt_ammai(k)=0.
+         vq_ammai(k)=0.
+      enddo   
+      omega(:)=0.      
+      omega2(:)=0.
+      rho(:)=0.
+! vertical interpolation using TOGA interpolation routine:
+!      write(*,*)'avant interp vert', t_proftwp
+      CALL interp_toga_vertical(play,nlev_amma,plev_amma                    &
+     &         ,th_ammai,q_ammai,u_ammai,v_ammai,vitw_ammai                 &
+     &         ,ht_ammai,vt_ammai,hq_ammai,vq_ammai                         &
+     &         ,t_mod,q_mod,u_mod,v_mod,w_mod                               &
+     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
+!       write(*,*) 'Profil initial forcing TWP-ICE interpole',t_mod
+
+! initial and boundary conditions :
+!      tsurf = ts_proftwp
+      write(*,*) 'SST initiale mxcalc: ',tsurf,mxcalc
+      do l = 1, llm
+! Ligne du dessous ?? decommenter si on lit theta au lieu de temp
+!      temp(l) = t_mod(l)*(play(l)/pzero)**rkappa 
+       temp(l) = t_mod(l) 
+       q(l,1) = q_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)
+       rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+       omega(l) = w_mod(l)*(-rg*rho(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(*,*) 'Prof initeforcing AMMA interpole temp39',temp(39)
+      
+
+!     ok_flux_surf=.false.
+      fsens=-1.*sens_amma(12)
+      flat=-1.*lat_amma(12)
+       
+      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
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from Arm_Cu case                   
+! For this case, ifa_armcu.txt contains sensible, latent heat fluxes
+! large scale advective forcing,radiative forcing 
+! and advective tendency of theta and qt to be applied 
+!---------------------------------------------------------------------
+
+      if (forcing_armcu) then
+! read armcu forcing :
+       write(*,*) 'Avant lecture Forcing Arm_Cu'
+      fich_armcu = './ifa_armcu.txt'
+      CALL read_armcu(fich_armcu,nlev_armcu,nt_armcu,                       &
+     & sens_armcu,flat_armcu,adv_theta_armcu,                               &
+     & rad_theta_armcu,adv_qt_armcu)
+       write(*,*) 'Forcing Arm_Cu lu'
+
+!----------------------------------------------------------------------
+! Read profiles from file: prof.inp.19 or prof.inp.40 
+! For this case, profiles are given for two vertical resolution
+! 19 or 40 levels
+!
+! Comment from: http://www.knmi.nl/samenw/eurocs/ARM/profiles.html
+! Note that the initial profiles contain no liquid water! 
+! (so potential temperature can be interpreted as liquid water 
+! potential temperature and water vapor as total water)
+! profiles are given at full levels
+!----------------------------------------------------------------------
+
+      call readprofile_armcu(nlev_max,kmax,height,play_mod,u_mod,           &
+     &           v_mod,theta_mod,t_mod,qv_mod,rv_mod,ap,bp)
+
+! time interpolation for initial conditions:
+      write(*,*) 'AVT 1ere INTERPOLATION: day,day1 = ',day,day1
+
+      print *,'Avant interp_armcu_time'
+      print *,'daytime=',daytime
+      print *,'day1=',day1
+      print *,'annee_ref=',annee_ref
+      print *,'year_ini_armcu=',year_ini_armcu
+      print *,'day_ju_ini_armcu=',day_ju_ini_armcu
+      print *,'nt_armcu=',nt_armcu
+      print *,'dt_armcu=',dt_armcu
+      print *,'nlev_armcu=',nlev_armcu
+      CALL interp_armcu_time(daytime,day1,annee_ref                         &
+     &            ,year_ini_armcu,day_ju_ini_armcu,nt_armcu,dt_armcu        &
+     &            ,nlev_armcu,sens_armcu,flat_armcu,adv_theta_armcu         &
+     &            ,rad_theta_armcu,adv_qt_armcu,sens_prof,flat_prof         &
+     &            ,adv_theta_prof,rad_theta_prof,adv_qt_prof)
+       write(*,*) 'Forcages interpoles dans temps'
+
+! No vertical interpolation if nlev imposed to 19 or 40
+! The vertical grid stops at 4000m # 600hPa
+      mxcalc=llm
+
+! initial and boundary conditions :
+!     tsurf = ts_prof
+! tsurf read in lmdz1d.def
+      write(*,*) 'Tsurf initiale: ',tsurf
+      do l = 1, llm
+       play(l)=play_mod(l)*100.
+       presnivs(l)=play(l)
+       zlay(l)=height(l)
+       temp(l) = t_mod(l)
+       teta(l)=theta_mod(l)
+       q(l,1) = qv_mod(l)/1000.
+! No liquid water in the initial profil
+       q(l,2) = 0.
+       u(l) = u_mod(l)
+       ug(l)= u_mod(l)
+       v(l) = v_mod(l)
+       vg(l)= v_mod(l)
+! Advective forcings are given in K or g/kg ... per HOUR
+!      IF(height(l).LT.1000) THEN
+!        d_th_adv(l) = (adv_theta_prof + rad_theta_prof)/3600.
+!        d_q_adv(l,1) = adv_qt_prof/1000./3600.
+!        d_q_adv(l,2) = 0.0
+!      ELSEIF (height(l).GE.1000.AND.height(l).LT.3000) THEN
+!        d_th_adv(l) = (adv_theta_prof + rad_theta_prof)*
+!    :               (1-(height(l)-1000.)/2000.)
+!        d_th_adv(l) = d_th_adv(l)/3600.
+!        d_q_adv(l,1) = adv_qt_prof*(1-(height(l)-1000.)/2000.)
+!        d_q_adv(l,1) = d_q_adv(l,1)/1000./3600.
+!        d_q_adv(l,2) = 0.0
+!      ELSE
+!        d_th_adv(l) = 0.0
+!        d_q_adv(l,1) = 0.0
+!        d_q_adv(l,2) = 0.0
+!      ENDIF
+      enddo
+! plev at half levels is given in proh.inp.19 or proh.inp.40 files
+      plev(1)= ap(llm+1)+bp(llm+1)*psurf
+      do l = 1, llm
+      plev(l+1) = ap(llm-l+1)+bp(llm-l+1)*psurf
+      print *,'Read_forc: l height play plev zlay temp',                    &
+     &   l,height(l),play(l),plev(l),zlay(l),temp(l)
+      enddo
+! For this case, fluxes are imposed
+       fsens=-1*sens_prof
+       flat=-1*flat_prof
+
+      endif ! forcing_armcu
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from transition case of Irina Sandu                  
+!---------------------------------------------------------------------
+
+      if (forcing_sandu) then
+       write(*,*) 'Avant lecture Forcing SANDU'
+
+! read sanduref forcing :
+      fich_sandu = './ifa_sanduref.txt'
+      CALL read_sandu(fich_sandu,nlev_sandu,nt_sandu,ts_sandu)
+
+       write(*,*) 'Forcing SANDU lu'
+
+!----------------------------------------------------------------------
+! Read profiles from file: prof.inp.001 
+!----------------------------------------------------------------------
+
+      call readprofile_sandu(nlev_max,kmax,height,plev_profs,t_profs,       &
+     &           thl_profs,q_profs,u_profs,v_profs,                         &
+     &           w_profs,omega_profs,o3mmr_profs)
+
+! time interpolation for initial conditions:
+      write(*,*) 'AVT 1ere INTERPOLATION: day,day1 = ',day,day1
+! ATTENTION, cet appel ne convient pas pour le cas SANDU !!
+! revoir 1DUTILS.h et les arguments
+
+      print *,'Avant interp_sandu_time'
+      print *,'daytime=',daytime
+      print *,'day1=',day1
+      print *,'annee_ref=',annee_ref
+      print *,'year_ini_sandu=',year_ini_sandu
+      print *,'day_ju_ini_sandu=',day_ju_ini_sandu
+      print *,'nt_sandu=',nt_sandu
+      print *,'dt_sandu=',dt_sandu
+      print *,'nlev_sandu=',nlev_sandu
+      CALL interp_sandu_time(daytime,day1,annee_ref                         &
+     &             ,year_ini_sandu,day_ju_ini_sandu,nt_sandu,dt_sandu       &
+     &             ,nlev_sandu                                              &
+     &             ,ts_sandu,ts_prof)
+
+! vertical interpolation:
+      print *,'Avant interp_vertical: nlev_sandu=',nlev_sandu
+      CALL interp_sandu_vertical(play,nlev_sandu,plev_profs                 &
+     &         ,t_profs,thl_profs,q_profs,u_profs,v_profs,w_profs           &
+     &         ,omega_profs,o3mmr_profs                                     &
+     &         ,t_mod,thl_mod,q_mod,u_mod,v_mod,w_mod                       &
+     &         ,omega_mod,o3mmr_mod,mxcalc)
+       write(*,*) 'Profil initial forcing SANDU interpole'
+
+! initial and boundary conditions :
+      tsurf = ts_prof
+      write(*,*) 'SST initiale: ',tsurf
+      do l = 1, llm
+       temp(l) = t_mod(l)
+       tetal(l)=thl_mod(l)
+       q(l,1) = q_mod(l)
+       q(l,2) = 0.0
+       u(l) = u_mod(l)
+       v(l) = v_mod(l)
+       w(l) = w_mod(l)
+       omega(l) = omega_mod(l)
+       omega2(l)=omega(l)/rg*airefi ! flxmass_w calcule comme ds physiq
+!?       rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+!?       omega2(l)=-rho(l)*omega(l)
+       alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
+!      d_th_adv(l) = alpha*omega(l)/rcpd+vt_mod(l)
+!      d_q_adv(l,1) = vq_mod(l)
+       d_th_adv(l) = alpha*omega(l)/rcpd
+       d_q_adv(l,1) = 0.0
+       d_q_adv(l,2) = 0.0
+      enddo
+
+      endif ! forcing_sandu
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from Astex case
+!---------------------------------------------------------------------
+
+      if (forcing_astex) then
+       write(*,*) 'Avant lecture Forcing Astex'
+
+! read astex forcing :
+      fich_astex = './ifa_astex.txt'
+      CALL read_astex(fich_astex,nlev_astex,nt_astex,div_astex,ts_astex,    &
+     &  ug_astex,vg_astex,ufa_astex,vfa_astex)
+
+       write(*,*) 'Forcing Astex lu'
+
+!----------------------------------------------------------------------
+! Read profiles from file: prof.inp.001
+!----------------------------------------------------------------------
+
+      call readprofile_astex(nlev_max,kmax,height,plev_profa,t_profa,       &
+     &           thl_profa,qv_profa,ql_profa,qt_profa,u_profa,v_profa,      &
+     &           w_profa,tke_profa,o3mmr_profa)
+
+! time interpolation for initial conditions:
+      write(*,*) 'AVT 1ere INTERPOLATION: day,day1 = ',day,day1
+! ATTENTION, cet appel ne convient pas pour le cas SANDU !!
+! revoir 1DUTILS.h et les arguments
+
+      print *,'Avant interp_astex_time'
+      print *,'daytime=',daytime
+      print *,'day1=',day1
+      print *,'annee_ref=',annee_ref
+      print *,'year_ini_astex=',year_ini_astex
+      print *,'day_ju_ini_astex=',day_ju_ini_astex
+      print *,'nt_astex=',nt_astex
+      print *,'dt_astex=',dt_astex
+      print *,'nlev_astex=',nlev_astex
+      CALL interp_astex_time(daytime,day1,annee_ref                         &
+     &             ,year_ini_astex,day_ju_ini_astex,nt_astex,dt_astex       &
+     &             ,nlev_astex,div_astex,ts_astex,ug_astex,vg_astex         &
+     &             ,ufa_astex,vfa_astex,div_prof,ts_prof,ug_prof,vg_prof    &
+     &             ,ufa_prof,vfa_prof)
+
+! vertical interpolation:
+      print *,'Avant interp_vertical: nlev_astex=',nlev_astex
+      CALL interp_astex_vertical(play,nlev_astex,plev_profa                 &
+     &         ,t_profa,thl_profa,qv_profa,ql_profa,qt_profa                &
+     &         ,u_profa,v_profa,w_profa,tke_profa,o3mmr_profa               &
+     &         ,t_mod,thl_mod,qv_mod,ql_mod,qt_mod,u_mod,v_mod,w_mod        &
+     &         ,tke_mod,o3mmr_mod,mxcalc)
+       write(*,*) 'Profil initial forcing Astex interpole'
+
+! initial and boundary conditions :
+      tsurf = ts_prof
+      write(*,*) 'SST initiale: ',tsurf
+      do l = 1, llm
+       temp(l) = t_mod(l)
+       tetal(l)=thl_mod(l)
+       q(l,1) = qv_mod(l)
+       q(l,2) = ql_mod(l)
+       u(l) = u_mod(l)
+       v(l) = v_mod(l)
+       w(l) = w_mod(l)
+       omega(l) = w_mod(l)
+!      omega2(l)=omega(l)/rg*airefi ! flxmass_w calcule comme ds physiq
+!      rho(l)  = play(l)/(rd*temp(l)*(1.+(rv/rd-1.)*q(l,1)))
+!      omega2(l)=-rho(l)*omega(l)
+       alpha = rd*temp(l)*(1.+(rv/rd-1.)*q(l,1))/play(l)
+!      d_th_adv(l) = alpha*omega(l)/rcpd+vt_mod(l)
+!      d_q_adv(l,1) = vq_mod(l)
+       d_th_adv(l) = alpha*omega(l)/rcpd
+       d_q_adv(l,1) = 0.0
+       d_q_adv(l,2) = 0.0
+      enddo
+
+      endif ! forcing_astex
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!---------------------------------------------------------------------
+! Forcing from standard case :
+!---------------------------------------------------------------------
+
+      if (forcing_case) then
+
+         write(*,*),'avant call read_1D_cas'
+         call read_1D_cas
+         write(*,*) 'Forcing read'
+
+!Time interpolation for initial conditions using TOGA interpolation routine
+         write(*,*) 'AVT 1ere INTERPOLATION: day,day1 = ',daytime,day1   
+      CALL interp_case_time(day,day1,annee_ref                                                              &
+!    &         ,year_ini_cas,day_ju_ini_cas,nt_cas,pdt_cas,nlev_cas                                         &
+     &         ,nt_cas,nlev_cas                                                                             &
+     &         ,ts_cas,plev_cas,t_cas,q_cas,u_cas,v_cas                                                     &
+     &         ,ug_cas,vg_cas,vitw_cas,du_cas,hu_cas,vu_cas                                                 &
+     &         ,dv_cas,hv_cas,vv_cas,dt_cas,ht_cas,vt_cas,dtrad_cas                                         &
+     &         ,dq_cas,hq_cas,vq_cas,lat_cas,sens_cas,ustar_cas                                             &
+     &         ,uw_cas,vw_cas,q1_cas,q2_cas                                                                 &
+     &         ,ts_prof_cas,plev_prof_cas,t_prof_cas,q_prof_cas,u_prof_cas,v_prof_cas                       &
+     &         ,ug_prof_cas,vg_prof_cas,vitw_prof_cas,du_prof_cas,hu_prof_cas,vu_prof_cas                   &
+     &         ,dv_prof_cas,hv_prof_cas,vv_prof_cas,dt_prof_cas,ht_prof_cas,vt_prof_cas,dtrad_prof_cas      &
+     &         ,dq_prof_cas,hq_prof_cas,vq_prof_cas,lat_prof_cas,sens_prof_cas,ustar_prof_cas               &
+     &         ,uw_prof_cas,vw_prof_cas,q1_prof_cas,q2_prof_cas)
+
+! vertical interpolation using TOGA interpolation routine:
+!      write(*,*)'avant interp vert', t_prof
+      CALL interp_case_vertical(play,nlev_cas,plev_prof_cas            &
+     &         ,t_prof_cas,q_prof_cas,u_prof_cas,v_prof_cas,ug_prof_cas,vg_prof_cas,vitw_prof_cas    &
+     &         ,du_prof_cas,hu_prof_cas,vu_prof_cas,dv_prof_cas,hv_prof_cas,vv_prof_cas           &
+     &         ,dt_prof_cas,ht_prof_cas,vt_prof_cas,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas           &
+     &         ,t_mod_cas,q_mod_cas,u_mod_cas,v_mod_cas,ug_mod_cas,vg_mod_cas,w_mod_cas           &
+     &         ,du_mod_cas,hu_mod_cas,vu_mod_cas,dv_mod_cas,hv_mod_cas,vv_mod_cas               &
+     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc)
+!       write(*,*) 'Profil initial forcing case interpole',t_mod
+
+! initial and boundary conditions :
+!      tsurf = ts_prof_cas
+      ts_cur = ts_prof_cas 
+      psurf=plev_prof_cas(1)
+      write(*,*) 'SST initiale: ',tsurf
+      do l = 1, llm
+       temp(l) = t_mod_cas(l)
+       q(l,1) = q_mod_cas(l)
+       q(l,2) = 0.0
+       u(l) = u_mod_cas(l)
+       v(l) = v_mod_cas(l)
+       omega(l) = w_mod_cas(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_cas(l)+vt_mod_cas(l))
+       d_q_adv(l,1) = (hq_mod_cas(l)+vq_mod_cas(l))
+       d_q_adv(l,2) = 0.0
+       d_u_adv(l) = (hu_mod_cas(l)+vu_mod_cas(l))
+       d_u_adv(l) = (hv_mod_cas(l)+vv_mod_cas(l))
+      enddo     
+
+! In case fluxes are imposed
+       IF (ok_flux_surf) THEN
+       fsens=sens_prof_cas
+       flat=lat_prof_cas
+       ENDIF
+       IF (ok_prescr_ust) THEN
+       ust=ustar_prof_cas
+       print *,'ust=',ust
+       ENDIF
+
+      endif !forcing_case
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1Dconv.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1Dconv.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/1Dconv.h	(revision 3330)
@@ -0,0 +1,875 @@
+!
+! $Id$
+!
+        subroutine get_uvd(itap,dtime,file_forctl,file_fordat,                  &
+     &       ht,hq,hw,hu,hv,hthturb,hqturb,                                     &
+     &       Ts,imp_fcg,ts_fcg,Tp_fcg,Turb_fcg)                                 
+!
+        implicit none
+ 
+!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+! cette routine permet d obtenir u_convg,v_convg,ht,hq et ainsi de
+! pouvoir calculer la convergence et le cisaillement dans la physiq
+!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+#include "YOMCST.h"
+
+      INTEGER klev
+      REAL play(100)  !pression en Pa au milieu de chaque couche GCM
+      INTEGER JM(100) !pression en Pa au milieu de chaque couche GCM
+      REAL coef1(100) !coefficient d interpolation
+      REAL coef2(100) !coefficient d interpolation
+
+      INTEGER nblvlm !nombre de niveau de pression du mesoNH
+      REAL playm(100)  !pression en Pa au milieu de chaque couche Meso-NH
+      REAL hplaym(100) !pression en hPa milieux des couches Meso-NH
+
+      integer i,j,k,ll,in
+
+      CHARACTER*80 file_forctl,file_fordat
+
+      COMMON/com1_phys_gcss/play,coef1,coef2,JM,klev
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
+
+!======================================================================
+! methode: on va chercher les donnees du mesoNH de meteo france, on y
+!          a acces a tout pas detemps grace a la routine rdgrads qui
+!          est une boucle lisant dans ces fichiers.
+!          Puis on interpole ces donnes sur les 11 niveaux du gcm et
+!          et sur les pas de temps de ce meme gcm
+!----------------------------------------------------------------------
+! input:
+!       pasmax     :nombre de pas de temps maximum du mesoNH
+!       dt         :pas de temps du meso_NH (en secondes)
+!----------------------------------------------------------------------
+      integer pasmax,dt
+      save pasmax,dt
+!----------------------------------------------------------------------
+! arguments:
+!           itap   :compteur de la physique(le nombre de ces pas est
+!                   fixe dans la subroutine calcul_ini_gcm de interpo
+!                   -lation
+!           dtime  :pas detemps du gcm (en secondes)
+!           ht     :convergence horizontale de temperature(K/s)
+!           hq     :    "         "       d humidite (kg/kg/s)
+!           hw     :vitesse verticale moyenne (m/s**2)
+!           hu     :convergence horizontale d impulsion le long de x
+!                  (kg/(m^2 s^2)
+!           hv     : idem le long de y.
+!           Ts     : Temperature de surface (K)
+!           imp_fcg: var. logical .eq. T si forcage en impulsion
+!           ts_fcg: var. logical .eq. T si forcage en Ts present dans fichier
+!           Tp_fcg: var. logical .eq. T si forcage donne en Temp potentielle
+!           Turb_fcg: var. logical .eq. T si forcage turbulent present dans fichier
+!----------------------------------------------------------------------
+        integer itap
+        real dtime
+        real ht(100)
+        real hq(100)
+        real hu(100)
+        real hv(100)
+        real hw(100)
+        real hthturb(100)
+        real hqturb(100)
+        real Ts, Ts_subr
+        logical imp_fcg
+        logical ts_fcg
+        logical Tp_fcg
+        logical Turb_fcg
+!----------------------------------------------------------------------
+! Variables internes de get_uvd (note : l interpolation temporelle
+! est faite entre les pas de temps before et after, sur les variables
+! definies sur la grille du SCM; on atteint exactement les valeurs Meso
+! aux milieux des pas de temps Meso)
+!     time0     :date initiale en secondes
+!     time      :temps associe a chaque pas du SCM
+!     pas       :numero du pas du meso_NH (on lit en pas : le premier pas
+!                 des donnees est duplique)
+!     pasprev   :numero du pas de lecture precedent
+!     htaft     :advection horizontale de temp. au pas de temps after
+!     hqaft     :    "         "      d humidite        "
+!     hwaft     :vitesse verticalle moyenne  au pas de temps after
+!     huaft,hvaft :advection horizontale d impulsion au pas de temps after
+!     tsaft     : surface temperature 'after time step'
+!     htbef     :idem htaft, mais pour le pas de temps before
+!     hqbef     :voir hqaft
+!     hwbef     :voir hwaft
+!     hubef,hvbef : idem huaft,hvaft, mais pour before
+!     tsbef     : surface temperature 'before time step'
+!----------------------------------------------------------------------
+        integer time0,pas,pasprev
+        save time0,pas,pasprev
+        real time
+        real htaft(100),hqaft(100),hwaft(100),huaft(100),hvaft(100)
+        real hthturbaft(100),hqturbaft(100)
+        real Tsaft
+        save htaft,hqaft,hwaft,huaft,hvaft,hthturbaft,hqturbaft
+        real htbef(100),hqbef(100),hwbef(100),hubef(100),hvbef(100)
+        real hthturbbef(100),hqturbbef(100)
+        real Tsbef
+        save htbef,hqbef,hwbef,hubef,hvbef,hthturbbef,hqturbbef
+!
+        real timeaft,timebef
+        save timeaft,timebef
+        integer temps
+        character*4 string
+!----------------------------------------------------------------------
+! variables arguments de la subroutine rdgrads
+!---------------------------------------------------------------------
+        integer icompt,icomp1 !compteurs de rdgrads
+        real z(100)         ! altitude (grille Meso)
+        real ht_mes(100)    !convergence horizontale de temperature
+                            !-(grille Meso)
+        real hq_mes(100)    !convergence horizontale d humidite
+                            !(grille Meso)
+        real hw_mes(100)    !vitesse verticale moyenne
+                            !(grille Meso)
+        real hu_mes(100),hv_mes(100)    !convergence horizontale d impulsion
+                                        !(grille Meso)
+        real hthturb_mes(100) !tendance horizontale de T_pot, due aux
+                              !flux turbulents
+        real hqturb_mes(100) !tendance horizontale d humidite, due aux
+                              !flux turbulents
+!
+!---------------------------------------------------------------------
+! variable argument de la subroutine copie
+!---------------------------------------------------------------------
+! SB        real pplay(100)    !pression en milieu de couche du gcm
+! SB                            !argument de la physique
+!---------------------------------------------------------------------
+! variables destinees a la lecture du pas de temps du fichier de donnees
+!---------------------------------------------------------------------
+       character*80 aaa,atemps,spaces,apasmax
+       integer nch,imn,ipa
+!---------------------------------------------------------------------
+!  procedures appelees
+        external rdgrads    !lire en iterant dans forcing.dat
+!---------------------------------------------------------------------
+               print*,'le pas itap est:',itap
+!*** on determine le pas du meso_NH correspondant au nouvel itap ***
+!*** pour aller chercher les champs dans rdgrads                 ***
+!
+        time=time0+itap*dtime
+!c        temps=int(time/dt+1)
+!c        pas=min(temps,pasmax)
+        temps = 1 + int((dt + 2*time)/(2*dt))
+        pas=min(temps,pasmax-1)
+             print*,'le pas Meso est:',pas
+!
+!
+!===================================================================
+!
+!*** on remplit les champs before avec les champs after du pas   ***
+!*** precedent en format gcm                                     ***
+        if(pas.gt.pasprev)then
+          do i=1,klev
+             htbef(i)=htaft(i)
+             hqbef(i)=hqaft(i)
+             hwbef(i)=hwaft(i)
+             hubef(i)=huaft(i)
+             hvbef(i)=hvaft(i)
+             hThTurbbef(i)=hThTurbaft(i)
+             hqTurbbef(i)=hqTurbaft(i)
+          enddo
+          tsbef = tsaft
+          timebef=pasprev*dt
+          timeaft=timebef+dt
+          icomp1 = nblvlm*4
+          IF (ts_fcg) icomp1 = icomp1 + 1
+          IF (imp_fcg) icomp1 = icomp1 + nblvlm*2
+          IF (Turb_fcg) icomp1 = icomp1 + nblvlm*2
+          icompt = icomp1*pas
+         print *, 'imp_fcg,ts_fcg,Turb_fcg,pas,nblvlm,icompt'
+         print *, imp_fcg,ts_fcg,Turb_fcg,pas,nblvlm,icompt
+                       print*,'le pas pas est:',pas
+!*** on va chercher les nouveaux champs after dans toga.dat     ***
+!*** champs en format meso_NH                                   ***
+          open(99,FILE=file_fordat,FORM='UNFORMATTED',                        &
+     &             ACCESS='DIRECT',RECL=8)
+          call rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes                &
+     &                  ,hu_mes,hv_mes,hthturb_mes,hqturb_mes                 &
+     &                  ,ts_fcg,ts_subr,imp_fcg,Turb_fcg)
+!
+
+               if(Tp_fcg) then
+!     (le forcage est donne en temperature potentielle)
+         do i = 1,nblvlm
+           ht_mes(i) = ht_mes(i)*(hplaym(i)/1000.)**rkappa
+         enddo
+               endif ! Tp_fcg
+        if(Turb_fcg) then
+         do i = 1,nblvlm
+           hThTurb_mes(i) = hThTurb_mes(i)*(hplaym(i)/1000.)**rkappa
+         enddo
+        endif  ! Turb_fcg
+!
+               print*,'ht_mes ',(ht_mes(i),i=1,nblvlm)
+               print*,'hq_mes ',(hq_mes(i),i=1,nblvlm)
+               print*,'hw_mes ',(hw_mes(i),i=1,nblvlm)
+                  if(imp_fcg) then
+               print*,'hu_mes ',(hu_mes(i),i=1,nblvlm)
+               print*,'hv_mes ',(hv_mes(i),i=1,nblvlm)
+                  endif
+                  if(Turb_fcg) then
+               print*,'hThTurb_mes ',(hThTurb_mes(i),i=1,nblvlm)
+               print*,'hqTurb_mes ',(hqTurb_mes(i),i=1,nblvlm)
+                  endif
+          IF (ts_fcg) print*,'ts_subr', ts_subr
+!*** on interpole les champs meso_NH sur les niveaux de pression***
+!*** gcm . on obtient le nouveau champ after                    ***
+            do k=1,klev
+             if (JM(k) .eq. 0) then
+         htaft(k)=              ht_mes(jm(k)+1)
+         hqaft(k)=              hq_mes(jm(k)+1)
+         hwaft(k)=              hw_mes(jm(k)+1)
+               if(imp_fcg) then
+           huaft(k)=              hu_mes(jm(k)+1)
+           hvaft(k)=              hv_mes(jm(k)+1)
+               endif ! imp_fcg
+               if(Turb_fcg) then
+           hThTurbaft(k)=         hThTurb_mes(jm(k)+1)
+           hqTurbaft(k)=          hqTurb_mes(jm(k)+1)
+               endif ! Turb_fcg
+             else ! JM(k) .eq. 0
+           htaft(k)=coef1(k)*ht_mes(jm(k))+coef2(k)*ht_mes(jm(k)+1)
+           hqaft(k)=coef1(k)*hq_mes(jm(k))+coef2(k)*hq_mes(jm(k)+1)
+           hwaft(k)=coef1(k)*hw_mes(jm(k))+coef2(k)*hw_mes(jm(k)+1)
+               if(imp_fcg) then
+           huaft(k)=coef1(k)*hu_mes(jm(k))+coef2(k)*hu_mes(jm(k)+1)
+           hvaft(k)=coef1(k)*hv_mes(jm(k))+coef2(k)*hv_mes(jm(k)+1)
+               endif ! imp_fcg
+               if(Turb_fcg) then
+           hThTurbaft(k)=coef1(k)*hThTurb_mes(jm(k))                            &
+     &               +coef2(k)*hThTurb_mes(jm(k)+1)
+           hqTurbaft(k) =coef1(k)*hqTurb_mes(jm(k))                             &
+     &               +coef2(k)*hqTurb_mes(jm(k)+1)
+               endif ! Turb_fcg
+             endif ! JM(k) .eq. 0
+            enddo
+            tsaft = ts_subr
+            pasprev=pas
+         else ! pas.gt.pasprev
+            print*,'timebef est:',timebef
+         endif ! pas.gt.pasprev    fin du bloc relatif au passage au pas
+                                  !de temps (meso) suivant
+!*** si on atteint le pas max des donnees experimentales ,on     ***
+!*** on conserve les derniers champs calcules                    ***
+      if(temps.ge.pasmax)then
+          do ll=1,klev
+               ht(ll)=htaft(ll)
+               hq(ll)=hqaft(ll)
+               hw(ll)=hwaft(ll)
+               hu(ll)=huaft(ll)
+               hv(ll)=hvaft(ll)
+               hThTurb(ll)=hThTurbaft(ll)
+               hqTurb(ll)=hqTurbaft(ll)
+          enddo
+          ts_subr = tsaft
+      else ! temps.ge.pasmax
+!*** on interpole sur les pas de temps de 10mn du gcm a partir   ***
+!** des pas de temps de 1h du meso_NH                            ***
+         do j=1,klev
+         ht(j)=((timeaft-time)*htbef(j)+(time-timebef)*htaft(j))/dt
+         hq(j)=((timeaft-time)*hqbef(j)+(time-timebef)*hqaft(j))/dt
+         hw(j)=((timeaft-time)*hwbef(j)+(time-timebef)*hwaft(j))/dt
+             if(imp_fcg) then
+         hu(j)=((timeaft-time)*hubef(j)+(time-timebef)*huaft(j))/dt
+         hv(j)=((timeaft-time)*hvbef(j)+(time-timebef)*hvaft(j))/dt
+             endif ! imp_fcg
+             if(Turb_fcg) then
+         hThTurb(j)=((timeaft-time)*hThTurbbef(j)                           &
+     &           +(time-timebef)*hThTurbaft(j))/dt
+         hqTurb(j)= ((timeaft-time)*hqTurbbef(j)                            &
+     &           +(time-timebef)*hqTurbaft(j))/dt
+             endif ! Turb_fcg
+         enddo
+         ts_subr = ((timeaft-time)*tsbef + (time-timebef)*tsaft)/dt
+       endif ! temps.ge.pasmax
+!
+        print *,' time,timebef,timeaft',time,timebef,timeaft
+        print *,' ht,htbef,htaft,hthturb,hthturbbef,hthturbaft'
+        do j= 1,klev
+           print *, j,ht(j),htbef(j),htaft(j),                              &
+     &             hthturb(j),hthturbbef(j),hthturbaft(j)
+        enddo
+        print *,' hq,hqbef,hqaft,hqturb,hqturbbef,hqturbaft'
+        do j= 1,klev
+           print *, j,hq(j),hqbef(j),hqaft(j),                              &
+     &             hqturb(j),hqturbbef(j),hqturbaft(j)
+        enddo
+!
+!-------------------------------------------------------------------
+!
+         IF (Ts_fcg) Ts = Ts_subr
+         return
+!
+!-----------------------------------------------------------------------
+! on sort les champs de "convergence" pour l instant initial 'in'
+! ceci se passe au pas temps itap=0 de la physique
+!-----------------------------------------------------------------------
+        entry get_uvd2(itap,dtime,file_forctl,file_fordat,                  &
+     &           ht,hq,hw,hu,hv,hThTurb,hqTurb,ts,                          &
+     &           imp_fcg,ts_fcg,Tp_fcg,Turb_fcg)
+             print*,'le pas itap est:',itap
+!
+!===================================================================
+!
+       write(*,'(a)') 'OPEN '//file_forctl
+       open(97,FILE=file_forctl,FORM='FORMATTED')
+!
+!------------------
+      do i=1,1000
+      read(97,1000,end=999) string
+ 1000 format (a4)
+      if (string .eq. 'TDEF') go to 50
+      enddo
+ 50   backspace(97)
+!-------------------------------------------------------------------
+!   *** on lit le pas de temps dans le fichier de donnees ***
+!   *** "forcing.ctl" et pasmax                           ***
+!-------------------------------------------------------------------
+      read(97,2000) aaa
+ 2000  format (a80)
+         print*,'aaa est',aaa
+      aaa=spaces(aaa,1)
+         print*,'aaa',aaa
+      call getsch(aaa,' ',' ',5,atemps,nch)
+         print*,'atemps est',atemps
+        atemps=atemps(1:nch-2)
+         print*,'atemps',atemps
+        read(atemps,*) imn
+        dt=imn*60
+         print*,'le pas de temps dt',dt
+      call getsch(aaa,' ',' ',2,apasmax,nch)
+        apasmax=apasmax(1:nch)
+        read(apasmax,*) ipa
+        pasmax=ipa
+         print*,'pasmax est',pasmax
+      CLOSE(97)
+!------------------------------------------------------------------
+! *** on lit le pas de temps initial de la simulation ***
+!------------------------------------------------------------------
+                  in=itap
+!c                  pasprev=in
+!c                  time0=dt*(pasprev-1)
+                  pasprev=in-1
+                  time0=dt*pasprev
+!
+          close(98)
+!
+      write(*,'(a)') 'OPEN '//file_fordat
+      open(99,FILE=file_fordat,FORM='UNFORMATTED',                          &
+     &          ACCESS='DIRECT',RECL=8)
+          icomp1 = nblvlm*4
+          IF (ts_fcg) icomp1 = icomp1 + 1
+          IF (imp_fcg) icomp1 = icomp1 + nblvlm*2
+          IF (Turb_fcg) icomp1 = icomp1 + nblvlm*2
+          icompt = icomp1*(in-1)
+          call rdgrads(99,icompt,nblvlm,z,ht_mes,hq_mes,hw_mes              &
+     &                   ,hu_mes,hv_mes,hthturb_mes,hqturb_mes              &
+     &                   ,ts_fcg,ts_subr,imp_fcg,Turb_fcg)
+          print *, 'get_uvd : rdgrads ->'
+          print *, tp_fcg
+!
+! following commented out because we have temperature already in ARM case
+!   (otherwise this is the potential temperature )
+!------------------------------------------------------------------------
+               if(Tp_fcg) then
+          do i = 1,nblvlm
+            ht_mes(i) = ht_mes(i)*(hplaym(i)/1000.)**rkappa
+          enddo
+               endif ! Tp_fcg
+           print*,'ht_mes ',(ht_mes(i),i=1,nblvlm)
+           print*,'hq_mes ',(hq_mes(i),i=1,nblvlm)
+           print*,'hw_mes ',(hw_mes(i),i=1,nblvlm)
+              if(imp_fcg) then
+           print*,'hu_mes ',(hu_mes(i),i=1,nblvlm)
+           print*,'hv_mes ',(hv_mes(i),i=1,nblvlm)
+           print*,'t',ts_subr
+              endif ! imp_fcg
+              if(Turb_fcg) then
+                 print*,'hThTurb_mes ',(hThTurb_mes(i),i=1,nblvlm)
+                 print*,'hqTurb ',     (hqTurb_mes(i),i=1,nblvlm)
+              endif ! Turb_fcg
+!----------------------------------------------------------------------
+! on a obtenu des champs initiaux sur les niveaux du meso_NH
+! on interpole sur les niveaux du gcm(niveau pression bien sur!)
+!-----------------------------------------------------------------------
+            do k=1,klev
+             if (JM(k) .eq. 0) then
+!FKC bug? ne faut il pas convertir tsol en tendance ????
+!RT bug taken care of by removing the stuff
+           htaft(k)=              ht_mes(jm(k)+1)
+           hqaft(k)=              hq_mes(jm(k)+1)
+           hwaft(k)=              hw_mes(jm(k)+1)
+               if(imp_fcg) then
+           huaft(k)=              hu_mes(jm(k)+1)
+           hvaft(k)=              hv_mes(jm(k)+1)
+               endif ! imp_fcg
+               if(Turb_fcg) then
+           hThTurbaft(k)=         hThTurb_mes(jm(k)+1)
+           hqTurbaft(k)=          hqTurb_mes(jm(k)+1)
+               endif ! Turb_fcg
+             else ! JM(k) .eq. 0
+           htaft(k)=coef1(k)*ht_mes(jm(k))+coef2(k)*ht_mes(jm(k)+1)
+           hqaft(k)=coef1(k)*hq_mes(jm(k))+coef2(k)*hq_mes(jm(k)+1)
+           hwaft(k)=coef1(k)*hw_mes(jm(k))+coef2(k)*hw_mes(jm(k)+1)
+               if(imp_fcg) then
+           huaft(k)=coef1(k)*hu_mes(jm(k))+coef2(k)*hu_mes(jm(k)+1)
+           hvaft(k)=coef1(k)*hv_mes(jm(k))+coef2(k)*hv_mes(jm(k)+1)
+               endif ! imp_fcg
+               if(Turb_fcg) then
+           hThTurbaft(k)=coef1(k)*hThTurb_mes(jm(k))                        &
+     &                  +coef2(k)*hThTurb_mes(jm(k)+1)
+           hqTurbaft(k) =coef1(k)*hqTurb_mes(jm(k))                         &
+     &                  +coef2(k)*hqTurb_mes(jm(k)+1)
+               endif ! Turb_fcg
+             endif ! JM(k) .eq. 0
+            enddo
+            tsaft = ts_subr
+! valeurs initiales des champs de convergence
+          do k=1,klev
+             ht(k)=htaft(k)
+             hq(k)=hqaft(k)
+             hw(k)=hwaft(k)
+                if(imp_fcg) then
+             hu(k)=huaft(k)
+             hv(k)=hvaft(k)
+                endif ! imp_fcg
+                if(Turb_fcg) then
+             hThTurb(k)=hThTurbaft(k)
+             hqTurb(k) =hqTurbaft(k)
+                endif ! Turb_fcg
+          enddo
+          ts_subr = tsaft
+          close(99)
+          close(98)
+!
+!-------------------------------------------------------------------
+!
+!
+ 100      IF (Ts_fcg) Ts = Ts_subr
+        return
+!
+999     continue
+        stop 'erreur lecture, file forcing.ctl'
+        end
+
+      SUBROUTINE advect_tvl(dtime,zt,zq,vu_f,vv_f,t_f,q_f                   &
+     &                     ,d_t_adv,d_q_adv)
+      use dimphy
+      implicit none
+
+#include "dimensions.h"
+!cccc#include "dimphy.h"
+
+      integer k
+      real dtime, fact, du, dv, cx, cy, alx, aly
+      real zt(klev), zq(klev,3)
+      real vu_f(klev), vv_f(klev), t_f(klev), q_f(klev,3)
+
+      real d_t_adv(klev), d_q_adv(klev,3)
+
+! Velocity of moving cell
+      data cx,cy /12., -2./
+
+! Dimensions of moving cell
+      data alx,aly /100000.,150000./
+
+      do k = 1, klev
+            du = abs(vu_f(k)-cx)/alx
+            dv = abs(vv_f(k)-cy)/aly
+            fact = dtime *(du+dv-du*dv*dtime)
+            d_t_adv(k) = fact * (t_f(k)-zt(k))
+            d_q_adv(k,1) = fact * (q_f(k,1)-zq(k,1))
+            d_q_adv(k,2) = fact * (q_f(k,2)-zq(k,2))
+            d_q_adv(k,3) = fact * (q_f(k,3)-zq(k,3))
+      enddo
+
+      return
+      end
+
+      SUBROUTINE copie(klevgcm,playgcm,psolgcm,file_forctl)
+      implicit none
+
+!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+! cette routine remplit les COMMON com1_phys_gcss et com2_phys_gcss.h
+!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+      INTEGER klev !nombre de niveau de pression du GCM
+      REAL play(100)  !pression en Pa au milieu de chaque couche GCM
+      INTEGER JM(100)
+      REAL coef1(100)   !coefficient d interpolation
+      REAL coef2(100)   !coefficient d interpolation
+
+      INTEGER nblvlm !nombre de niveau de pression du mesoNH
+      REAL playm(100) !pression en Pa au milieu de chaque couche Meso-NH
+      REAL hplaym(100)!pression en hecto-Pa des milieux de couche Meso-NH
+
+      COMMON/com1_phys_gcss/play,coef1,coef2,JM,klev
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
+
+      integer k,klevgcm
+      real playgcm(klevgcm) ! pression en milieu de couche du gcm
+      real psolgcm
+      character*80 file_forctl
+
+      klev = klevgcm
+
+!---------------------------------------------------------------------
+! pression au milieu des couches du gcm dans la physiq
+! (SB: remplace le call conv_lipress_gcm(playgcm) )
+!---------------------------------------------------------------------
+
+       do k = 1, klev
+        play(k) = playgcm(k)
+        print*,'la pression gcm est:',play(k)
+       enddo
+
+!----------------------------------------------------------------------
+! lecture du descripteur des donnees Meso-NH (forcing.ctl):
+!  -> nb niveaux du meso.NH (nblvlm) + pressions meso.NH
+! (on remplit le COMMON com2_phys_gcss)
+!----------------------------------------------------------------------
+
+      call mesolupbis(file_forctl)
+
+      print*,'la valeur de nblvlm est:',nblvlm
+
+!----------------------------------------------------------------------
+! etude de la correspondance entre les niveaux meso.NH et GCM;
+! calcul des coefficients d interpolation coef1 et coef2
+! (on remplit le COMMON com1_phys_gcss)
+!----------------------------------------------------------------------
+
+      call corresbis(psolgcm)
+
+!---------------------------------------------------------
+! TEST sur le remplissage de com1_phys_gcss et com2_phys_gcss:
+!---------------------------------------------------------
+ 
+      write(*,*) ' '
+      write(*,*) 'TESTS com1_phys_gcss et com2_phys_gcss dans copie.F'
+      write(*,*) '--------------------------------------'
+      write(*,*) 'GCM: nb niveaux:',klev,' et pression, coeffs:'
+      do k = 1, klev
+      write(*,*) play(k), coef1(k), coef2(k)
+      enddo
+      write(*,*) 'MESO-NH: nb niveaux:',nblvlm,' et pression:'
+      do k = 1, nblvlm
+      write(*,*) playm(k), hplaym(k)
+      enddo
+      write(*,*) ' '
+
+      end
+      SUBROUTINE mesolupbis(file_forctl)
+      implicit none 
+!
+!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+!
+! Lecture descripteur des donnees MESO-NH (forcing.ctl):
+! -------------------------------------------------------
+!
+!     Cette subroutine lit dans le fichier de controle "essai.ctl"
+!     et affiche le nombre de niveaux du Meso-NH ainsi que les valeurs
+!     des pressions en milieu de couche du Meso-NH (en Pa puis en hPa).
+!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+!
+      INTEGER nblvlm !nombre de niveau de pression du mesoNH
+      REAL playm(100)  !pression en Pa milieu de chaque couche Meso-NH
+      REAL hplaym(100) !pression en hPa des milieux de couche Meso-NH
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
+
+      INTEGER i,lu,mlz,mlzh
+ 
+      character*80 file_forctl
+
+      character*4 a
+      character*80 aaa,anblvl,spaces
+      integer nch
+
+      lu=9
+      open(lu,file=file_forctl,form='formatted')
+!
+      do i=1,1000
+      read(lu,1000,end=999) a
+      if (a .eq. 'ZDEF') go to 100
+      enddo
+!
+ 100  backspace(lu)
+      print*,'  DESCRIPTION DES 2 MODELES : '
+      print*,' '
+!
+      read(lu,2000) aaa
+ 2000  format (a80)
+       aaa=spaces(aaa,1)
+       call getsch(aaa,' ',' ',2,anblvl,nch)
+         read(anblvl,*) nblvlm
+
+!
+      print*,'nbre de niveaux de pression Meso-NH :',nblvlm
+      print*,' '
+      print*,'pression en Pa de chaque couche du meso-NH :'
+!
+      read(lu,*) (playm(mlz),mlz=1,nblvlm)
+!      Si la pression est en HPa, la multiplier par 100
+      if (playm(1) .lt. 10000.) then
+        do mlz = 1,nblvlm
+         playm(mlz) = playm(mlz)*100.
+        enddo
+      endif
+      print*,(playm(mlz),mlz=1,nblvlm)
+!
+ 1000 format (a4)
+ 1001 format(5x,i2)
+!
+      print*,' '
+      do mlzh=1,nblvlm
+      hplaym(mlzh)=playm(mlzh)/100.
+      enddo
+!
+      print*,'pression en hPa de chaque couche du meso-NH: '
+      print*,(hplaym(mlzh),mlzh=1,nblvlm)
+!
+      close (lu)
+      return
+!
+ 999  stop 'erreur lecture des niveaux pression des donnees'
+      end
+
+      SUBROUTINE rdgrads(itape,icount,nl,z,ht,hq,hw,hu,hv,hthtur,hqtur,     &
+     &  ts_fcg,ts,imp_fcg,Turb_fcg)
+      IMPLICIT none
+      INTEGER itape,icount,icomp, nl
+      real z(nl),ht(nl),hq(nl),hw(nl),hu(nl),hv(nl)
+      real hthtur(nl),hqtur(nl)
+      real ts
+!
+      INTEGER k
+!
+      LOGICAL imp_fcg,ts_fcg,Turb_fcg
+!
+      icomp = icount
+!
+!
+         do k=1,nl
+            icomp=icomp+1
+            read(itape,rec=icomp)z(k)
+            print *,'icomp,k,z(k) ',icomp,k,z(k)
+         enddo
+         do k=1,nl
+            icomp=icomp+1
+            read(itape,rec=icomp)hT(k)
+             print*, hT(k), k
+         enddo
+         do k=1,nl
+            icomp=icomp+1
+            read(itape,rec=icomp)hQ(k)
+         enddo
+!
+             if(turb_fcg) then
+         do k=1,nl
+            icomp=icomp+1
+           read(itape,rec=icomp)hThTur(k)
+         enddo
+         do k=1,nl
+            icomp=icomp+1
+           read(itape,rec=icomp)hqTur(k)
+         enddo
+             endif
+         print *,' apres lecture hthtur, hqtur'
+!
+          if(imp_fcg) then
+
+         do k=1,nl
+            icomp=icomp+1
+           read(itape,rec=icomp)hu(k)
+         enddo
+         do k=1,nl
+            icomp=icomp+1
+            read(itape,rec=icomp)hv(k)
+         enddo
+
+          endif
+!
+         do k=1,nl
+            icomp=icomp+1
+            read(itape,rec=icomp)hw(k)
+         enddo
+!
+              if(ts_fcg) then
+         icomp=icomp+1
+         read(itape,rec=icomp)ts
+              endif
+!
+      print *,' rdgrads ->'
+
+      RETURN
+      END
+
+      SUBROUTINE corresbis(psol)
+      implicit none
+
+!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+! Cette subroutine calcule et affiche les valeurs des coefficients
+! d interpolation qui serviront dans la formule d interpolation elle-
+! meme.
+!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+
+      INTEGER klev    !nombre de niveau de pression du GCM
+      REAL play(100)  !pression en Pa au milieu de chaque couche GCM
+      INTEGER JM(100)
+      REAL coef1(100) !coefficient d interpolation
+      REAL coef2(100) !coefficient d interpolation
+
+      INTEGER nblvlm !nombre de niveau de pression du mesoNH
+      REAL playm(100) !pression en Pa milieu de chaque couche Meso-NH
+      REAL hplaym(100)!pression en hPa des milieux de couche Meso-NH
+
+      COMMON/com1_phys_gcss/play,coef1,coef2,JM,klev
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
+
+      REAL psol
+      REAL val
+      INTEGER k, mlz
+
+
+      do k=1,klev
+         val=play(k)
+       if (val .gt. playm(1)) then
+          mlz = 0
+          JM(1) = mlz
+          coef1(1)=(playm(mlz+1)-val)/(playm(mlz+1)-psol)
+          coef2(1)=(val-psol)/(playm(mlz+1)-psol)
+       else if (val .gt. playm(nblvlm)) then
+         do mlz=1,nblvlm
+          if (     val .le. playm(mlz).and. val .gt. playm(mlz+1))then
+           JM(k)=mlz
+           coef1(k)=(playm(mlz+1)-val)/(playm(mlz+1)-playm(mlz))
+           coef2(k)=(val-playm(mlz))/(playm(mlz+1)-playm(mlz))
+          endif
+         enddo
+       else
+         JM(k) = nblvlm-1
+         coef1(k) = 0.
+         coef2(k) = 0.
+       endif
+      enddo
+!
+!c      if (play(klev) .le. playm(nblvlm)) then
+!c         mlz=nblvlm-1
+!c         JM(klev)=mlz
+!c         coef1(klev)=(playm(mlz+1)-val)
+!c     *            /(playm(mlz+1)-playm(mlz))
+!c         coef2(klev)=(val-playm(mlz))
+!c     *            /(playm(mlz+1)-playm(mlz))
+!c      endif
+!
+      print*,' '
+      print*,'         INTERPOLATION  : '
+      print*,' '
+      print*,'correspondance de 9 niveaux du GCM sur les 53 du meso-NH:'
+      print*,(JM(k),k=1,klev)
+      print*,'correspondance de 9 niveaux du GCM sur les 53 du meso-NH:'
+      print*,(JM(k),k=1,klev)
+      print*,' '
+      print*,'vals du premier coef d"interpolation pour les 9 niveaux: '
+      print*,(coef1(k),k=1,klev)
+      print*,' '
+      print*,'valeurs du deuxieme coef d"interpolation pour les 9 niveaux:'
+      print*,(coef2(k),k=1,klev)
+!
+      return
+      end
+      SUBROUTINE GETSCH(STR,DEL,TRM,NTH,SST,NCH)
+!***************************************************************
+!*                                                             *
+!*                                                             *
+!* GETSCH                                                      *
+!*                                                             *
+!*                                                             *
+!* modified by :                                               *
+!***************************************************************
+!*   Return in SST the character string found between the NTH-1 and NTH
+!*   occurence of the delimiter 'DEL' but before the terminator 'TRM' in
+!*   the input string 'STR'. If TRM=DEL then STR is considered unlimited.
+!*   NCH=Length of the string returned in SST or =-1 if NTH is <1 or if
+!*   NTH is greater than the number of delimiters in STR.
+      IMPLICIT INTEGER (A-Z)
+      CHARACTER STR*(*),DEL*1,TRM*1,SST*(*)
+      NCH=-1
+      SST=' '
+      IF(NTH.GT.0) THEN
+        IF(TRM.EQ.DEL) THEN
+          LENGTH=LEN(STR)
+        ELSE
+          LENGTH=INDEX(STR,TRM)-1
+          IF(LENGTH.LT.0) LENGTH=LEN(STR)
+        ENDIF
+!*     Find beginning and end of the NTH DEL-limited substring in STR
+        END=-1
+        DO 1,N=1,NTH
+        IF(END.EQ.LENGTH) RETURN
+        BEG=END+2
+        END=BEG+INDEX(STR(BEG:LENGTH),DEL)-2
+        IF(END.EQ.BEG-2) END=LENGTH
+!*        PRINT *,'NTH,LENGTH,N,BEG,END=',NTH,LENGTH,N,BEG,END
+    1   CONTINUE
+        NCH=END-BEG+1
+        IF(NCH.GT.0) SST=STR(BEG:END)
+      ENDIF
+      END
+      CHARACTER*(*) FUNCTION SPACES(STR,NSPACE)
+!
+! CERN PROGLIB# M433    SPACES          .VERSION KERNFOR  4.14  860211
+! ORIG.  6/05/86 M.GOOSSENS/DD
+!
+!-    The function value SPACES returns the character string STR with
+!-    leading blanks removed and each occurence of one or more blanks
+!-    replaced by NSPACE blanks inside the string STR
+!
+      CHARACTER*(*) STR
+!
+      LENSPA = LEN(SPACES)
+      SPACES = ' '
+      IF (NSPACE.LT.0) NSPACE = 0
+      IBLANK = 1
+      ISPACE = 1
+  100 INONBL = INDEXC(STR(IBLANK:),' ')
+      IF (INONBL.EQ.0) THEN
+          SPACES(ISPACE:) = STR(IBLANK:)
+                                                    GO TO 999
+      ENDIF
+      INONBL = INONBL + IBLANK - 1
+      IBLANK = INDEX(STR(INONBL:),' ')
+      IF (IBLANK.EQ.0) THEN
+          SPACES(ISPACE:) = STR(INONBL:)
+                                                    GO TO 999
+      ENDIF
+      IBLANK = IBLANK + INONBL - 1
+      SPACES(ISPACE:) = STR(INONBL:IBLANK-1)
+      ISPACE = ISPACE + IBLANK - INONBL + NSPACE
+      IF (ISPACE.LE.LENSPA)                         GO TO 100
+  999 END
+      FUNCTION INDEXC(STR,SSTR)
+!
+! CERN PROGLIB# M433    INDEXC          .VERSION KERNFOR  4.14  860211
+! ORIG. 26/03/86 M.GOOSSENS/DD
+!
+!-    Find the leftmost position where substring SSTR does not match
+!-    string STR scanning forward
+!
+      CHARACTER*(*) STR,SSTR
+!
+      LENS   = LEN(STR)
+      LENSS  = LEN(SSTR)
+!
+      DO 10 I=1,LENS-LENSS+1
+          IF (STR(I:I+LENSS-1).NE.SSTR) THEN
+              INDEXC = I
+                                         GO TO 999
+          ENDIF
+   10 CONTINUE
+      INDEXC = 0
+!
+  999 END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comconst_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comconst_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comconst_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/comconst_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comdissnew.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comdissnew.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comdissnew.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/comdissnew.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comgeom.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comgeom.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comgeom.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/comgeom.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comgeom2.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comgeom2.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comgeom2.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/comgeom2.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/compar1d.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/compar1d.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/compar1d.h	(revision 3330)
@@ -0,0 +1,51 @@
+!
+! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $
+!
+      integer :: forcing_type
+      integer :: tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo
+      real :: nudge_u,nudge_v,nudge_w,nudge_t,nudge_q
+      integer :: iflag_nudge
+      real :: nat_surf
+      real :: tsurf
+      real :: rugos
+      real :: xqsol(1:2)
+      real :: qsurf
+      real :: psurf
+      real :: zsurf
+      real :: albedo
+
+      real :: time
+      real :: time_ini
+      real :: xlat 
+      real :: xlon 
+      real :: airefi
+      real :: wtsurf 
+      real :: wqsurf 
+      real :: restart_runoff 
+      real :: xagesno 
+      real :: qsolinp 
+      real :: zpicinp 
+
+      logical :: restart
+      logical :: ok_old_disvert
+
+      common/com_par1d/                                                 &
+     & nat_surf,tsurf,rugos,                                            &
+     & xqsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,   &
+     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
+     & forcing_type,tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo,       &
+     & nudge_u,nudge_v,nudge_w,nudge_t,nudge_q,                         &
+     & iflag_nudge,                                                     &
+     & restart,ok_old_disvert
+
+!$OMP THREADPRIVATE(/com_par1d/)
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comvert_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comvert_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/comvert_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/comvert_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/conf_gcm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/conf_gcm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/conf_gcm.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d/conf_gcm.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/control_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/control_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/control_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/control_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/date_cas.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/date_cas.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/date_cas.h	(revision 3330)
@@ -0,0 +1,9 @@
+      integer :: year_ini_cas    ! initial year of the case
+      integer :: mth_ini_cas     ! initial month of the case
+      integer :: day_deb         ! initial day of the case
+      real :: heure_ini_cas      ! start time of the case
+      real :: pdt_cas            ! forcing_frequency
+      real :: day_ju_ini_cas     ! julian day of initial day of the case
+
+      common /date_cas/year_ini_cas,mth_ini_cas,day_deb,heure_ini_cas,pdt_cas,day_ju_ini_cas
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/disvert.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/disvert.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/disvert.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/disvert.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/ener.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/ener.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/ener.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/ener.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/exner_hyb_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/exner_hyb_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/exner_hyb_m.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/exner_hyb_m.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/infotrac.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/infotrac.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/infotrac.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/infotrac.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/inigeomphy_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/inigeomphy_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/inigeomphy_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dynphy_lonlat/inigeomphy_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/iniphysiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/iniphysiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/iniphysiq_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dynphy_lonlat/phylmd/iniphysiq_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/lmdz1d.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/lmdz1d.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/lmdz1d.F90	(revision 3330)
@@ -0,0 +1,1171 @@
+!#ifdef CPP_1D
+!#include "../dyn3d/mod_const_mpi.F90"
+!#include "../dyn3d_common/control_mod.F90"
+!#include "../dyn3d_common/infotrac.F90"
+!#include "../dyn3d_common/disvert.F90"
+
+
+      PROGRAM lmdz1d
+
+   USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar
+   USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
+       clwcon, detr_therm, &
+       qsol, fevap, z0m, z0h, agesno, &
+       du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &
+       falb_dir, falb_dif, &
+       ftsol, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &
+       rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, &
+       solsw, t_ancien, q_ancien, u_ancien, v_ancien, wake_cstar, wake_deltaq, &
+       wake_deltat, wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
+       wake_s, zgam, &
+       zmax0, zmea, zpic, zsig, &
+       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl
+   use dimphy
+   use surface_data, only : type_ocean,ok_veget
+   use pbl_surface_mod, only : ftsoil, pbl_surface_init,                     &
+     &                            pbl_surface_final
+      use fonte_neige_mod, only : fonte_neige_init, fonte_neige_final 
+
+   use infotrac ! new
+   use control_mod
+   USE indice_sol_mod
+   USE phyaqua_mod
+   USE mod_1D_cases_read
+   USE mod_1D_amma_read
+   USE print_control_mod, ONLY: lunout, prt_level
+   USE iniphysiq_mod, ONLY: iniphysiq
+   USE mod_const_mpi, ONLY: comm_lmdz
+   USE physiq_mod, ONLY: physiq
+   USE comvert_mod, ONLY: presnivs, ap, bp, dpres,nivsig, nivsigs, pa, &
+                          preff
+   USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
+                        itau_dyn, itau_phy, start_time
+
+      implicit none
+#include "dimensions.h"
+#include "YOMCST.h"
+!!#include "control.h"
+#include "clesphys.h"
+#include "dimsoil.h"
+!#include "indicesol.h"
+
+#include "compar1d.h"
+#include "flux_arp.h"
+#include "date_cas.h"
+#include "tsoilnudge.h"
+#include "fcg_gcssold.h"
+!!!#include "fbforcing.h"
+#include "compbl.h"
+
+!=====================================================================
+! DECLARATIONS
+!=====================================================================
+
+!---------------------------------------------------------------------
+!  Externals
+!---------------------------------------------------------------------
+      external fq_sat
+      real fq_sat
+
+!---------------------------------------------------------------------
+!  Arguments d' initialisations de la physique (USER DEFINE)
+!---------------------------------------------------------------------
+
+      integer, parameter :: ngrid=1
+      real :: zcufi    = 1.
+      real :: zcvfi    = 1.
+
+!-      real :: nat_surf
+!-      logical :: ok_flux_surf
+!-      real :: fsens
+!-      real :: flat
+!-      real :: tsurf
+!-      real :: rugos
+!-      real :: qsol(1:2)
+!-      real :: qsurf
+!-      real :: psurf
+!-      real :: zsurf
+!-      real :: albedo
+!-
+!-      real :: time     = 0.
+!-      real :: time_ini
+!-      real :: xlat 
+!-      real :: xlon 
+!-      real :: wtsurf 
+!-      real :: wqsurf 
+!-      real :: restart_runoff 
+!-      real :: xagesno 
+!-      real :: qsolinp 
+!-      real :: zpicinp 
+!-
+      real :: fnday 
+      real :: day, daytime 
+      real :: day1
+      real :: heure
+      integer :: jour
+      integer :: mois
+      integer :: an
+ 
+!---------------------------------------------------------------------
+!  Declarations related to forcing and initial profiles 
+!---------------------------------------------------------------------
+
+        integer :: kmax = llm
+        integer llm700,nq1,nq2
+        INTEGER, PARAMETER :: nlev_max=1000, nqmx=1000
+        real timestep, frac
+        real height(nlev_max),tttprof(nlev_max),qtprof(nlev_max)
+        real  uprof(nlev_max),vprof(nlev_max),e12prof(nlev_max)
+        real  ugprof(nlev_max),vgprof(nlev_max),wfls(nlev_max)
+        real  dqtdxls(nlev_max),dqtdyls(nlev_max)
+        real  dqtdtls(nlev_max),thlpcar(nlev_max)
+        real  qprof(nlev_max,nqmx)
+
+!        integer :: forcing_type
+        logical :: forcing_les     = .false.
+        logical :: forcing_armcu   = .false.
+        logical :: forcing_rico    = .false.
+        logical :: forcing_radconv = .false.
+        logical :: forcing_toga    = .false.
+        logical :: forcing_twpice  = .false.
+        logical :: forcing_amma    = .false.
+        logical :: forcing_dice    = .false.
+        logical :: forcing_GCM2SCM = .false.
+        logical :: forcing_GCSSold = .false.
+        logical :: forcing_sandu   = .false.
+        logical :: forcing_astex   = .false.
+        logical :: forcing_fire    = .false.
+        logical :: forcing_case    = .false.
+        integer :: type_ts_forcing ! 0 = SST constant; 1 = SST read from a file
+!                                                            (cf read_tsurf1d.F)
+
+!vertical advection computation
+!       real d_t_z(llm), d_q_z(llm)
+!       real d_t_dyn_z(llm), dq_dyn_z(llm)
+!       real zz(llm)
+!       real zfact
+
+!flag forcings
+        logical :: nudge_wind=.true.
+        logical :: nudge_thermo=.false.
+        logical :: cptadvw=.true.
+!=====================================================================
+! DECLARATIONS FOR EACH CASE
+!=====================================================================
+!
+#include "1D_decl_cases.h"
+!
+!---------------------------------------------------------------------
+!  Declarations related to nudging
+!---------------------------------------------------------------------
+     integer :: nudge_max
+     parameter (nudge_max=9)
+     integer :: inudge_RHT=1
+     integer :: inudge_UV=2
+     logical :: nudge(nudge_max)
+     real :: t_targ(llm)
+     real :: rh_targ(llm)
+     real :: u_targ(llm)
+     real :: v_targ(llm)
+!
+!---------------------------------------------------------------------
+!  Declarations related to vertical discretization:
+!---------------------------------------------------------------------
+      real :: pzero=1.e5
+      real :: play (llm),zlay (llm),sig_s(llm),plev(llm+1)
+      real :: playd(llm),zlayd(llm),ap_amma(llm+1),bp_amma(llm+1),poub
+
+!---------------------------------------------------------------------
+!  Declarations related to variables
+!---------------------------------------------------------------------
+
+      real :: phi(llm)
+      real :: teta(llm),tetal(llm),temp(llm),u(llm),v(llm),w(llm)
+      REAL rot(1, llm) ! relative vorticity, in s-1
+      real :: rlat_rad(1),rlon_rad(1)
+      real :: omega(llm+1),omega2(llm),rho(llm+1)
+      real :: ug(llm),vg(llm),fcoriolis
+      real :: sfdt, cfdt
+      real :: du_phys(llm),dv_phys(llm),dt_phys(llm)
+      real :: dt_dyn(llm)
+      real :: dt_cooling(llm),d_th_adv(llm),d_t_nudge(llm)
+      real :: d_u_nudge(llm),d_v_nudge(llm)
+      real :: du_adv(llm),dv_adv(llm)
+      real :: du_age(llm),dv_age(llm)
+      real :: alpha
+      real :: ttt
+
+      REAL, ALLOCATABLE, DIMENSION(:,:):: q
+      REAL, ALLOCATABLE, DIMENSION(:,:):: dq
+      REAL, ALLOCATABLE, DIMENSION(:,:):: dq_dyn
+      REAL, ALLOCATABLE, DIMENSION(:,:):: d_q_adv
+      REAL, ALLOCATABLE, DIMENSION(:,:):: d_q_nudge
+!      REAL, ALLOCATABLE, DIMENSION(:):: d_th_adv
+
+!---------------------------------------------------------------------
+!  Initialization of surface variables
+!---------------------------------------------------------------------
+      real :: run_off_lic_0(1)
+      real :: fder(1),snsrf(1,nbsrf),qsurfsrf(1,nbsrf)
+      real :: tsoil(1,nsoilmx,nbsrf)
+!     real :: agesno(1,nbsrf)
+
+!---------------------------------------------------------------------
+!  Call to phyredem
+!---------------------------------------------------------------------
+      logical :: ok_writedem =.true.
+      real :: sollw_in = 0.
+      real :: solsw_in = 0.
+      
+!---------------------------------------------------------------------
+!  Call to physiq
+!---------------------------------------------------------------------
+      logical :: firstcall=.true.
+      logical :: lastcall=.false.
+      real :: phis(1)    = 0.0
+      real :: dpsrf(1)
+
+!---------------------------------------------------------------------
+!  Initializations of boundary conditions 
+!---------------------------------------------------------------------
+      integer, parameter :: yd = 360
+      real :: phy_nat (yd) = 0.0 ! 0=ocean libre,1=land,2=glacier,3=banquise
+      real :: phy_alb (yd)  ! Albedo land only (old value condsurf_jyg=0.3)
+      real :: phy_sst (yd)  ! SST (will not be used; cf read_tsurf1d.F)
+      real :: phy_bil (yd) = 1.0 ! Ne sert que pour les slab_ocean
+      real :: phy_rug (yd) ! Longueur rugosite utilisee sur land only
+      real :: phy_ice (yd) = 0.0 ! Fraction de glace
+      real :: phy_fter(yd) = 0.0 ! Fraction de terre
+      real :: phy_foce(yd) = 0.0 ! Fraction de ocean
+      real :: phy_fsic(yd) = 0.0 ! Fraction de glace
+      real :: phy_flic(yd) = 0.0 ! Fraction de glace
+
+!---------------------------------------------------------------------
+!  Fichiers et d'autres variables
+!---------------------------------------------------------------------
+      integer :: k,l,i,it=1,mxcalc
+      integer :: nsrf
+      integer jcode
+      INTEGER read_climoz 
+!
+      integer :: it_end ! iteration number of the last call
+!Al1
+      integer ecrit_slab_oc !1=ecrit,-1=lit,0=no file
+      data ecrit_slab_oc/-1/
+!
+!     if flag_inhib_forcing = 0, tendencies of forcing are added
+!                           <> 0, tendencies of forcing are not added
+      INTEGER :: flag_inhib_forcing = 0
+
+!=====================================================================
+! INITIALIZATIONS 
+!=====================================================================
+      du_phys(:)=0.
+      dv_phys(:)=0.
+      dt_phys(:)=0.
+      dt_dyn(:)=0.
+      dt_cooling(:)=0.
+      d_th_adv(:)=0.
+      d_t_nudge(:)=0.
+      d_u_nudge(:)=0.
+      d_v_nudge(:)=0.
+      du_adv(:)=0.
+      dv_adv(:)=0.
+      du_age(:)=0.
+      dv_age(:)=0.
+      
+! Initialization of Common turb_forcing
+       dtime_frcg = 0.
+       Turb_fcg_gcssold=.false.
+       hthturb_gcssold = 0.
+       hqturb_gcssold = 0.
+
+!---------------------------------------------------------------------
+! OPTIONS OF THE 1D SIMULATION (lmdz1d.def => unicol.def)
+!---------------------------------------------------------------------
+!Al1
+        call conf_unicol
+!Al1 moves this gcssold var from common fcg_gcssold to 
+        Turb_fcg_gcssold = xTurb_fcg_gcssold
+! --------------------------------------------------------------------
+        close(1)
+!Al1
+        write(*,*) 'lmdz1d.def lu => unicol.def'
+
+! forcing_type defines the way the SCM is forced:
+!forcing_type = 0 ==> forcing_les = .true.
+!             initial profiles from file prof.inp.001
+!             no forcing by LS convergence ; 
+!             surface temperature imposed ;
+!             radiative cooling may be imposed (iflag_radia=0 in physiq.def)
+!forcing_type = 1 ==> forcing_radconv = .true.
+!             idem forcing_type = 0, but the imposed radiative cooling 
+!             is set to 0 (hence, if iflag_radia=0 in physiq.def, 
+!             then there is no radiative cooling at all)
+!forcing_type = 2 ==> forcing_toga = .true.
+!             initial profiles from TOGA-COARE IFA files 
+!             LS convergence and SST imposed from TOGA-COARE IFA files 
+!forcing_type = 3 ==> forcing_GCM2SCM = .true.
+!             initial profiles from the GCM output
+!             LS convergence imposed from the GCM output
+!forcing_type = 4 ==> forcing_twpice = .true.
+!             initial profiles from TWP-ICE cdf file 
+!             LS convergence, omega and SST imposed from TWP-ICE files 
+!forcing_type = 5 ==> forcing_rico = .true.
+!             initial profiles from RICO files 
+!             LS convergence imposed from RICO files 
+!forcing_type = 6 ==> forcing_amma = .true.
+!             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 >= 100 ==> forcing_case = .true.
+!             initial profiles and large scale forcings in cas.nc
+!             LS convergence, omega and SST imposed from CINDY-DYNAMO files 
+!             101=cindynamo
+!             102=bomex
+!forcing_type = 40 ==> forcing_GCSSold = .true.
+!             initial profile from GCSS file
+!             LS convergence imposed from GCSS file
+!forcing_type = 50 ==> forcing_fire = .true.
+!             forcing from fire.nc
+!forcing_type = 59 ==> forcing_sandu = .true.
+!             initial profiles from sanduref file: see prof.inp.001
+!             SST varying with time and divergence constante: see ifa_sanduref.txt file
+!             Radiation has to be computed interactively
+!forcing_type = 60 ==> forcing_astex = .true.
+!             initial profiles from file: see prof.inp.001 
+!             SST,divergence,ug,vg,ufa,vfa varying with time : see ifa_astex.txt file
+!             Radiation has to be computed interactively
+!forcing_type = 61 ==> forcing_armcu = .true.
+!             initial profiles from file: see prof.inp.001 
+!             sensible and latent heat flux imposed: see ifa_arm_cu_1.txt
+!             large scale advective forcing & radiative tendencies applied below 1000m: see ifa_arm_cu_2.txt
+!             use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s 
+!             Radiation to be switched off
+!
+      if (forcing_type .eq.0) THEN
+       forcing_les = .true.
+      elseif (forcing_type .eq.1) THEN
+       forcing_radconv = .true.
+      elseif (forcing_type .eq.2) THEN
+       forcing_toga    = .true.
+      elseif (forcing_type .eq.3) THEN
+       forcing_GCM2SCM = .true.
+      elseif (forcing_type .eq.4) THEN
+       forcing_twpice = .true.
+      elseif (forcing_type .eq.5) THEN
+       forcing_rico = .true.
+      elseif (forcing_type .eq.6) THEN
+       forcing_amma = .true.
+      elseif (forcing_type .eq.7) THEN
+       forcing_dice = .true.
+      elseif (forcing_type .eq.101) THEN ! Cindynamo starts 1-10-2011 0h
+       forcing_case = .true.
+       year_ini_cas=2011
+       mth_ini_cas=10
+       day_deb=1
+       heure_ini_cas=0.
+       pdt_cas=3*3600.         ! forcing frequency
+      elseif (forcing_type .eq.102) THEN ! Bomex starts 24-6-1969 0h
+       forcing_case = .true.
+       year_ini_cas=1969
+       mth_ini_cas=6
+       day_deb=24
+       heure_ini_cas=0.
+       pdt_cas=1800.         ! forcing frequency
+      elseif (forcing_type .eq.40) THEN
+       forcing_GCSSold = .true.
+      elseif (forcing_type .eq.50) THEN
+       forcing_fire = .true.
+      elseif (forcing_type .eq.59) THEN
+       forcing_sandu   = .true.
+      elseif (forcing_type .eq.60) THEN
+       forcing_astex   = .true.
+      elseif (forcing_type .eq.61) THEN
+       forcing_armcu = .true.
+       IF(llm.NE.19.AND.llm.NE.40) stop 'Erreur nombre de niveaux !!'
+      else
+       write (*,*) 'ERROR : unknown forcing_type ', forcing_type
+       stop 'Forcing_type should be 0,1,2,3,4,5,6 or 40,59,60,61'
+      ENDIF
+      print*,"forcing type=",forcing_type
+
+! if type_ts_forcing=0, the surface temp of 1D simulation is constant in time
+! (specified by tsurf in lmdz1d.def); if type_ts_forcing=1, the surface temperature
+! varies in time according to a forcing (e.g. forcing_toga) and is passed to read_tsurf1d.F
+! through the common sst_forcing.
+
+        type_ts_forcing = 0
+        if (forcing_toga.or.forcing_sandu.or.forcing_astex .or. forcing_dice)                 &
+     &    type_ts_forcing = 1
+!
+! Initialization of the logical switch for nudging
+     jcode = iflag_nudge
+     do i = 1,nudge_max
+       nudge(i) = mod(jcode,10) .ge. 1
+       jcode = jcode/10
+     enddo
+!---------------------------------------------------------------------
+!  Definition of the run
+!---------------------------------------------------------------------
+
+      call conf_gcm( 99, .TRUE. )
+!-----------------------------------------------------------------------
+!   Choix du calendrier
+!   -------------------
+
+!      calend = 'earth_365d'
+      if (calend == 'earth_360d') then
+        call ioconf_calendar('360d')
+        write(*,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an'
+      else if (calend == 'earth_365d') then
+        call ioconf_calendar('noleap')
+        write(*,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an'
+      else if (calend == 'earth_366d') then
+        call ioconf_calendar('all_leap')
+        write(*,*)'CALENDRIER CHOISI: Terrestre bissextile'
+      else if (calend == 'gregorian') then
+        call ioconf_calendar('gregorian') ! not to be used by normal users
+        write(*,*)'CALENDRIER CHOISI: Gregorien'
+      else
+        write (*,*) 'ERROR : unknown calendar ', calend
+        stop 'calend should be 360d,earth_365d,earth_366d,gregorian'
+      endif
+!-----------------------------------------------------------------------
+!
+!c Date :
+!      La date est supposee donnee sous la forme [annee, numero du jour dans 
+!      l annee] ; l heure est donnee dans time_ini, lu dans lmdz1d.def.
+!      On appelle ymds2ju pour convertir [annee, jour] en [jour Julien].
+!      Le numero du jour est dans "day". L heure est traitee separement.
+!      La date complete est dans "daytime" (l'unite est le jour).
+      if (nday>0) then
+         fnday=nday
+      else
+         fnday=-nday/float(day_step)
+      endif
+      print *,'fnday=',fnday
+
+      start_time=time_ini/24.
+
+! Special case for arm_cu which lasts less than one day : 53100s !! (MPL 20111026)
+      IF(forcing_type .EQ. 61) fnday=53100./86400.
+! 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
+      day_ref = dayref
+      heure = 0.
+      itau_dyn = 0
+      itau_phy = 0
+      call ymds2ju(annee_ref,mois,day_ref,heure,day)
+      day_ini = int(day)
+      day_end = day_ini + fnday
+
+      IF (forcing_type .eq.2) THEN
+! Convert the initial date of Toga-Coare to Julian day
+      call ymds2ju                                                          &
+     & (year_ini_toga,mth_ini_toga,day_ini_toga,heure,day_ju_ini_toga)
+
+      ELSEIF (forcing_type .eq.4) THEN
+! Convert the initial date of TWPICE to Julian day
+      call ymds2ju                                                          &
+     & (year_ini_twpi,mth_ini_twpi,day_ini_twpi,heure_ini_twpi              &
+     & ,day_ju_ini_twpi)
+      ELSEIF (forcing_type .eq.6) THEN
+! Convert the initial date of AMMA to Julian day
+      call ymds2ju                                                          &
+     & (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 .gt.100) THEN
+! Convert the initial date to Julian day
+      day_ini_cas=day_deb
+      print*,'time case',year_ini_cas,mth_ini_cas,day_ini_cas
+      call ymds2ju                                                         &
+     & (year_ini_cas,mth_ini_cas,day_ini_cas,heure_ini_cas              &
+     & ,day_ju_ini_cas)
+      print*,'time case 2',day_ini_cas,day_ju_ini_cas
+      ELSEIF (forcing_type .eq.59) THEN
+! Convert the initial date of Sandu case to Julian day
+      call ymds2ju                                                          &
+     &   (year_ini_sandu,mth_ini_sandu,day_ini_sandu,                       &
+     &    time_ini*3600.,day_ju_ini_sandu)
+
+      ELSEIF (forcing_type .eq.60) THEN
+! Convert the initial date of Astex case to Julian day
+      call ymds2ju                                                          &
+     &   (year_ini_astex,mth_ini_astex,day_ini_astex,                        &
+     &    time_ini*3600.,day_ju_ini_astex)
+
+      ELSEIF (forcing_type .eq.61) THEN
+! Convert the initial date of Arm_cu case to Julian day
+      call ymds2ju                                                          &
+     & (year_ini_armcu,mth_ini_armcu,day_ini_armcu,heure_ini_armcu          &
+     & ,day_ju_ini_armcu)
+      ENDIF
+
+      daytime = day + time_ini/24. ! 1st day and initial time of the simulation 
+! Print out the actual date of the beginning of the simulation :
+      call ju2ymds(daytime,year_print, month_print,day_print,sec_print)
+      print *,' Time of beginning : ',                                      &
+     &        year_print, month_print, day_print, sec_print
+
+!---------------------------------------------------------------------
+! Initialization of dimensions, geometry and initial state
+!---------------------------------------------------------------------
+!      call init_phys_lmdz(1,1,llm,1,(/1/)) ! job now done via iniphysiq
+!     but we still need to initialize dimphy module (klon,klev,etc.)  here.
+      call init_dimphy(1,llm)
+      call suphel
+      call infotrac_init 
+
+      if (nqtot>nqmx) STOP'Augmenter nqmx dans lmdz1d.F'
+      allocate(q(llm,nqtot)) ; q(:,:)=0.
+      allocate(dq(llm,nqtot)) 
+      allocate(dq_dyn(llm,nqtot)) 
+      allocate(d_q_adv(llm,nqtot)) 
+      allocate(d_q_nudge(llm,nqtot)) 
+!      allocate(d_th_adv(llm)) 
+
+      q(:,:) = 0.
+      dq(:,:) = 0.
+      dq_dyn(:,:) = 0.
+      d_q_adv(:,:) = 0.
+      d_q_nudge(:,:) = 0.
+
+!
+!   No ozone climatology need be read in this pre-initialization
+!          (phys_state_var_init is called again in physiq)
+      read_climoz = 0
+!
+      call phys_state_var_init(read_climoz)
+
+      if (ngrid.ne.klon) then
+         print*,'stop in inifis'
+         print*,'Probleme de dimensions :'
+         print*,'ngrid = ',ngrid
+         print*,'klon  = ',klon
+         stop
+      endif
+!!!=====================================================================
+!!! Feedback forcing values for Gateaux differentiation (al1)
+!!!=====================================================================
+!!! Surface Planck forcing bracketing call radiation
+!!      surf_Planck = 0.
+!!      surf_Conv   = 0.
+!!      write(*,*) 'Gateaux-dif Planck,Conv:',surf_Planck,surf_Conv
+!!! a mettre dans le lmdz1d.def ou autre
+!!
+!!
+      qsol = qsolinp
+      qsurf = fq_sat(tsurf,psurf/100.)
+      day1= day_ini
+      time=daytime-day
+      ts_toga(1)=tsurf ! needed by read_tsurf1d.F
+      rho(1)=psurf/(rd*tsurf*(1.+(rv/rd-1.)*qsurf)) 
+
+!
+!! mpl et jyg le 22/08/2012 : 
+!!  pour que les cas a flux de surface imposes marchent
+      IF(.NOT.ok_flux_surf.or.max(abs(wtsurf),abs(wqsurf))>0.) THEN
+       fsens=-wtsurf*rcpd*rho(1)
+       flat=-wqsurf*rlvtt*rho(1)
+       print *,'Flux: ok_flux wtsurf wqsurf',ok_flux_surf,wtsurf,wqsurf
+      ENDIF
+      print*,'Flux sol ',fsens,flat
+!!      ok_flux_surf=.false.
+!!      fsens=-wtsurf*rcpd*rho(1)
+!!      flat=-wqsurf*rlvtt*rho(1)
+!!!!
+
+! Vertical discretization and pressure levels at half and mid levels:
+
+      pa   = 5e4
+!!      preff= 1.01325e5
+      preff = psurf
+      IF (ok_old_disvert) THEN
+        call disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
+        print *,'On utilise disvert0'
+      ELSE
+        call disvert()
+        print *,'On utilise disvert'
+!       Nouvelle version disvert permettant d imposer ap,bp (modif L.Guez) MPL 18092012
+!       Dans ce cas, on lit ap,bp dans le fichier hybrid.txt
+      ENDIF
+      ! initialize ap,bp, etc. in vertical_layers_mod
+      sig_s=presnivs/preff
+      plev =ap+bp*psurf
+      play = 0.5*(plev(1:llm)+plev(2:llm+1))
+      zlay=-rd*300.*log(play/psurf)/rg ! moved after reading profiles
+
+      IF (forcing_type .eq. 59) THEN
+! pour forcing_sandu, on cherche l'indice le plus proche de 700hpa#3000m
+      write(*,*) '***********************'
+      do l = 1, llm
+       write(*,*) 'l,play(l),presnivs(l): ',l,play(l),presnivs(l)
+       if (trouve_700 .and. play(l).le.70000) then
+         llm700=l
+         print *,'llm700,play=',llm700,play(l)/100.
+         trouve_700= .false.
+       endif
+      enddo
+      write(*,*) '***********************'
+      ENDIF
+
+!
+!=====================================================================
+! EVENTUALLY, READ FORCING DATA :
+!=====================================================================
+
+#include "1D_read_forc_cases.h"
+
+      if (forcing_GCM2SCM) then
+        write (*,*) 'forcing_GCM2SCM not yet implemented'
+        stop 'in initialization'
+      endif ! forcing_GCM2SCM
+
+      print*,'mxcalc=',mxcalc
+!     print*,'zlay=',zlay(mxcalc)
+      print*,'play=',play(mxcalc)
+
+!Al1 pour SST forced, appell?? depuis ocean_forced_noice
+      ts_cur = tsurf ! SST used in read_tsurf1d
+!=====================================================================
+! Initialisation de la physique : 
+!=====================================================================
+
+!  Rq: conf_phys.F90 lit tous les flags de physiq.def; conf_phys appele depuis physiq.F
+!
+! day_step, iphysiq lus dans gcm.def ci-dessus
+! timestep: calcule ci-dessous from rday et day_step
+! ngrid=1
+! llm: defini dans .../modipsl/modeles/LMDZ4/libf/grid/dimension
+! rday: defini dans suphel.F (86400.)
+! day_ini: lu dans run.def (dayref)
+! rlat_rad,rlon-rad: transformes en radian de rlat,rlon lus dans lmdz1d.def (en degres)
+! airefi,zcufi,zcvfi initialises au debut de ce programme
+! rday,ra,rg,rd,rcpd declares dans YOMCST.h et calcules dans suphel.F
+      day_step = float(nsplit_phys)*day_step/float(iphysiq)
+      write (*,*) 'Time step divided by nsplit_phys (=',nsplit_phys,')'
+      timestep =rday/day_step
+      dtime_frcg = timestep
+!
+      zcufi=airefi
+      zcvfi=airefi
+!
+      rlat_rad(1)=xlat*rpi/180.
+      rlon_rad(1)=xlon*rpi/180.
+
+     ! Ehouarn: iniphysiq requires arrays related to (3D) dynamics grid,
+     ! e.g. for cell boundaries, which are meaningless in 1D; so pad these 
+     ! with '0.' when necessary
+      call iniphysiq(iim,jjm,llm, &
+           1,comm_lmdz, &
+           rday,day_ini,timestep,  &
+           (/rlat_rad(1),0./),(/0./), &
+           (/0.,0./),(/rlon_rad(1),0./),  &
+           (/ (/airefi,0./),(/0.,0./) /), &
+           (/zcufi,0.,0.,0./), &
+           (/zcvfi,0./), &
+           ra,rg,rd,rcpd,1)
+      print*,'apres iniphysiq'
+
+! 2 PARAMETRES QUI DEVRAIENT ETRE LUS DANS run.def MAIS NE LE SONT PAS ICI:
+      co2_ppm= 330.0
+      solaire=1370.0
+
+! Ecriture du startphy avant le premier appel a la physique.
+! On le met juste avant pour avoir acces a tous les champs
+
+      if (ok_writedem) then
+
+!--------------------------------------------------------------------------
+! pbl_surface_init (called here) and pbl_surface_final (called by phyredem)
+! need : qsol fder snow qsurf evap rugos agesno ftsoil
+!--------------------------------------------------------------------------
+
+        type_ocean = "force"
+        run_off_lic_0(1) = restart_runoff 
+        call fonte_neige_init(run_off_lic_0)
+
+        fder=0.
+        snsrf(1,:)=0.        ! couverture de neige des sous surface
+        qsurfsrf(1,:)=qsurf ! humidite de l'air des sous surface
+        fevap=0.
+        z0m(1,:)=rugos     ! couverture de neige des sous surface
+        z0h(1,:)=rugos     ! couverture de neige des sous surface
+        agesno  = xagesno
+        tsoil(:,:,:)=tsurf
+!------ AMMA 2e run avec modele sol et rayonnement actif (MPL 23052012)
+!       tsoil(1,1,1)=299.18
+!       tsoil(1,2,1)=300.08
+!       tsoil(1,3,1)=301.88
+!       tsoil(1,4,1)=305.48
+!       tsoil(1,5,1)=308.00
+!       tsoil(1,6,1)=308.00
+!       tsoil(1,7,1)=308.00
+!       tsoil(1,8,1)=308.00
+!       tsoil(1,9,1)=308.00
+!       tsoil(1,10,1)=308.00
+!       tsoil(1,11,1)=308.00
+!-----------------------------------------------------------------------
+        call pbl_surface_init(fder, snsrf, qsurfsrf, tsoil)
+
+!------------------ prepare limit conditions for limit.nc -----------------
+!--   Ocean force
+
+        print*,'avant phyredem'
+        pctsrf(1,:)=0.
+        if (nat_surf.eq.0.) then
+          pctsrf(1,is_oce)=1.
+          pctsrf(1,is_ter)=0.
+        else
+          pctsrf(1,is_oce)=0.
+          pctsrf(1,is_ter)=1.
+        end if
+
+        print*,'nat_surf,pctsrf(1,is_oce),pctsrf(1,is_ter)',nat_surf         &
+     &        ,pctsrf(1,is_oce),pctsrf(1,is_ter)
+
+        zmasq=pctsrf(1,is_ter)+pctsrf(1,is_lic)
+        zpic = zpicinp
+        ftsol=tsurf
+        nsw=6 ! on met le nb de bandes SW=6, pour initialiser
+              ! 6 albedo, mais on peut quand meme tourner avec
+              ! moins. Seules les 2 ou 4 premiers seront lus
+        falb_dir=albedo
+        falb_dif=albedo
+        rugoro=rugos 
+        t_ancien(1,:)=temp(:)
+        q_ancien(1,:)=q(:,1)
+!jyg<
+!!        pbl_tke(:,:,:)=1.e-8
+        pbl_tke(:,:,:)=0.
+        pbl_tke(:,2,:)=1.e-2
+        PRINT *, ' pbl_tke dans lmdz1d '
+        if (prt_level .ge. 5) then 
+         DO nsrf = 1,4
+           PRINT *,'pbl_tke(1,:,',nsrf,') ',pbl_tke(1,:,nsrf)
+         ENDDO
+        end if
+
+!>jyg
+
+        rain_fall=0.
+        snow_fall=0.
+        solsw=0.
+        sollw=0.
+        sollwdown=rsigma*tsurf**4
+        radsol=0.
+        rnebcon=0.
+        ratqs=0.
+        clwcon=0.
+        zmax0 = 0.
+        zmea=0.
+        zstd=0.
+        zsig=0.
+        zgam=0.
+        zval=0. 
+        zthe=0. 
+        sig1=0.
+        w01=0.
+        wake_cstar = 0.
+        wake_deltaq = 0.
+        wake_deltat = 0.
+        wake_delta_pbl_TKE(:,:,:) = 0.
+        delta_tsurf = 0.
+        wake_fip = 0.
+        wake_pe = 0.
+        wake_s = 0.
+        ale_bl = 0.
+        ale_bl_trig = 0.
+        alp_bl = 0.
+        IF (ALLOCATED(du_gwd_rando)) du_gwd_rando = 0.
+        IF (ALLOCATED(du_gwd_front)) du_gwd_front = 0.
+        entr_therm = 0.
+        detr_therm = 0.
+        f0 = 0.
+        fm_therm = 0.
+        u_ancien(1,:)=u(:)
+        v_ancien(1,:)=v(:)
+ 
+!------------------------------------------------------------------------
+! Make file containing restart for the physics (startphy.nc)
+!
+! NB: List of the variables to be written by phyredem (via put_field):
+! rlon,rlat,zmasq,pctsrf(:,is_ter),pctsrf(:,is_lic),pctsrf(:,is_oce)
+! pctsrf(:,is_sic),ftsol(:,nsrf),tsoil(:,isoil,nsrf),qsurf(:,nsrf)
+! qsol,falb_dir(:,nsrf),falb_dif(:,nsrf),evap(:,nsrf),snow(:,nsrf)
+! radsol,solsw,sollw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf)
+! agesno(:,nsrf),zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro
+! t_ancien,q_ancien,,frugs(:,is_oce),clwcon(:,1),rnebcon(:,1),ratqs(:,1)
+! run_off_lic_0,pbl_tke(:,1:klev,nsrf), zmax0,f0,sig1,w01
+! wake_deltat,wake_deltaq,wake_s,wake_cstar,wake_fip,wake_delta_pbl_tke(:,1:klev,nsrf)
+!
+! NB2: The content of the startphy.nc file depends on some flags defined in
+! the ".def" files. However, since conf_phys is not called in lmdz1d.F90, these flags have 
+! to be set at some arbitratry convenient values.
+!------------------------------------------------------------------------
+!Al1 =============== restart option ==========================
+        if (.not.restart) then
+          iflag_pbl = 5
+          call phyredem ("startphy.nc")
+        else
+! (desallocations)
+        print*,'callin surf final'
+          call pbl_surface_final( fder, snsrf, qsurfsrf, tsoil)
+        print*,'after surf final'
+          CALL fonte_neige_final(run_off_lic_0)
+        endif
+
+        ok_writedem=.false.
+        print*,'apres phyredem'
+
+      endif ! ok_writedem
+      
+!------------------------------------------------------------------------
+! Make file containing boundary conditions (limit.nc) **Al1->restartdyn***
+! --------------------------------------------------
+! NB: List of the variables to be written in limit.nc 
+!     (by writelim.F, subroutine of 1DUTILS.h):
+!        phy_nat,phy_alb,phy_sst,phy_bil,phy_rug,phy_ice,
+!        phy_fter,phy_foce,phy_flic,phy_fsic)
+!------------------------------------------------------------------------
+      do i=1,yd
+        phy_nat(i)  = nat_surf
+        phy_alb(i)  = albedo
+        phy_sst(i)  = tsurf ! read_tsurf1d will be used instead
+        phy_rug(i)  = rugos
+        phy_fter(i) = pctsrf(1,is_ter)
+        phy_foce(i) = pctsrf(1,is_oce)
+        phy_fsic(i) = pctsrf(1,is_sic)
+        phy_flic(i) = pctsrf(1,is_lic)
+      enddo
+
+! fabrication de limit.nc
+      call writelim (1,phy_nat,phy_alb,phy_sst,phy_bil,phy_rug,             &
+     &               phy_ice,phy_fter,phy_foce,phy_flic,phy_fsic)
+
+
+      call phys_state_var_end
+!Al1
+      if (restart) then
+        print*,'call to restart dyn 1d'
+        Call dyn1deta0("start1dyn.nc",plev,play,phi,phis,presnivs,          &
+     &              u,v,temp,q,omega2)
+
+       print*,'fnday,annee_ref,day_ref,day_ini',                            &
+     &     fnday,annee_ref,day_ref,day_ini
+!**      call ymds2ju(annee_ref,mois,day_ini,heure,day)
+       day = day_ini
+       day_end = day_ini + nday
+       daytime = day + time_ini/24. ! 1st day and initial time of the simulation 
+
+! Print out the actual date of the beginning of the simulation :
+       call ju2ymds(daytime, an, mois, jour, heure)
+       print *,' Time of beginning : y m d h',an, mois,jour,heure/3600.
+
+       day = int(daytime)
+       time=daytime-day
+  
+       print*,'****** intialised fields from restart1dyn *******'
+       print*,'plev,play,phi,phis,presnivs,u,v,temp,q,omega2'
+       print*,'temp(1),q(1,1),u(1),v(1),plev(1),phis :'
+       print*,temp(1),q(1,1),u(1),v(1),plev(1),phis
+! raz for safety
+       do l=1,llm
+         dq_dyn(l,1) = 0.
+       enddo
+      endif
+!Al1 ================  end restart =================================
+      IF (ecrit_slab_oc.eq.1) then
+         open(97,file='div_slab.dat',STATUS='UNKNOWN')
+       elseif (ecrit_slab_oc.eq.0) then
+         open(97,file='div_slab.dat',STATUS='OLD')
+       endif
+!
+!---------------------------------------------------------------------
+!    Initialize target profile for RHT nudging if needed
+!---------------------------------------------------------------------
+      if (nudge(inudge_RHT)) then
+        call nudge_RHT_init(plev,play,temp,q(:,1),t_targ,rh_targ)
+      endif
+      if (nudge(inudge_UV)) then
+        call nudge_UV_init(plev,play,u,v,u_targ,v_targ)
+      endif
+!
+!=====================================================================
+! START OF THE TEMPORAL LOOP :
+!=====================================================================
+           
+      it_end = nint(fnday*day_step)
+!test JLD     it_end = 10
+      do while(it.le.it_end)
+
+       if (prt_level.ge.1) then
+         print*,'XXXXXXXXXXXXXXXXXXX ITAP,day,time=',                       &
+     &             it,day,time,it_end,day_step
+         print*,'PAS DE TEMPS ',timestep
+       endif
+!Al1 demande de restartphy.nc
+       if (it.eq.it_end) lastcall=.True.
+
+!---------------------------------------------------------------------
+! Interpolation of forcings in time and onto model levels
+!---------------------------------------------------------------------
+
+#include "1D_interp_cases.h"
+
+      if (forcing_GCM2SCM) then
+        write (*,*) 'forcing_GCM2SCM not yet implemented'
+        stop 'in time loop'
+      endif ! forcing_GCM2SCM
+
+!---------------------------------------------------------------------
+!  Geopotential :
+!---------------------------------------------------------------------
+
+        phi(1)=RD*temp(1)*(plev(1)-play(1))/(.5*(plev(1)+play(1)))
+        do l = 1, llm-1
+          phi(l+1)=phi(l)+RD*(temp(l)+temp(l+1))*                           &
+     &    (play(l)-play(l+1))/(play(l)+play(l+1))
+        enddo
+
+!---------------------------------------------------------------------
+! Listing output for debug prt_level>=1
+!---------------------------------------------------------------------
+       if (prt_level>=1) then
+         print *,' avant physiq : -------- day time ',day,time
+         write(*,*) 'firstcall,lastcall,phis',                               &
+     &               firstcall,lastcall,phis
+       end if
+       if (prt_level>=5) then
+         write(*,'(a10,2a4,4a13)') 'BEFOR1 IT=','it','l',                   &
+     &        'presniv','plev','play','phi'
+         write(*,'(a10,2i4,4f13.2)') ('BEFOR1 IT= ',it,l,                   &
+     &         presnivs(l),plev(l),play(l),phi(l),l=1,llm)
+         write(*,'(a11,2a4,a11,6a8)') 'BEFOR2','it','l',                    &
+     &         'presniv','u','v','temp','q1','q2','omega2'
+         write(*,'(a11,2i4,f11.2,5f8.2,e10.2)') ('BEFOR2 IT= ',it,l,         &
+     &   presnivs(l),u(l),v(l),temp(l),q(l,1),q(l,2),omega2(l),l=1,llm)
+       endif
+
+!---------------------------------------------------------------------
+!   Call physiq :
+!---------------------------------------------------------------------
+       call physiq(ngrid,llm, &
+                    firstcall,lastcall,timestep, &
+                    plev,play,phi,phis,presnivs, &
+                    u,v, rot, temp,q,omega2, &
+                    du_phys,dv_phys,dt_phys,dq,dpsrf)
+                firstcall=.false.
+
+!---------------------------------------------------------------------
+! Listing output for debug
+!---------------------------------------------------------------------
+        if (prt_level>=5) then
+          write(*,'(a11,2a4,4a13)') 'AFTER1 IT=','it','l',                  &
+     &        'presniv','plev','play','phi'
+          write(*,'(a11,2i4,4f13.2)') ('AFTER1 it= ',it,l,                  &
+     &    presnivs(l),plev(l),play(l),phi(l),l=1,llm)
+          write(*,'(a11,2a4,a11,6a8)') 'AFTER2','it','l',                   &
+     &         'presniv','u','v','temp','q1','q2','omega2'
+          write(*,'(a11,2i4,f11.2,5f8.2,e10.2)') ('AFTER2 it= ',it,l,       &
+     &    presnivs(l),u(l),v(l),temp(l),q(l,1),q(l,2),omega2(l),l=1,llm)
+          write(*,'(a11,2a4,a11,5a8)') 'AFTER3','it','l',                   &
+     &         'presniv','du_phys','dv_phys','dt_phys','dq1','dq2'    
+           write(*,'(a11,2i4,f11.2,5f8.2)') ('AFTER3 it= ',it,l,            &
+     &      presnivs(l),86400*du_phys(l),86400*dv_phys(l),                   &
+     &       86400*dt_phys(l),86400*dq(l,1),dq(l,2),l=1,llm)
+          write(*,*) 'dpsrf',dpsrf
+        endif
+!---------------------------------------------------------------------
+!   Add physical tendencies :
+!---------------------------------------------------------------------
+
+       fcoriolis=2.*sin(rpi*xlat/180.)*romega
+       if (forcing_radconv .or. forcing_fire) then
+         fcoriolis=0.0
+         dt_cooling=0.0
+         d_th_adv=0.0
+         d_q_adv=0.0
+       endif
+!      print*, 'calcul de fcoriolis ', fcoriolis
+
+       if (forcing_toga .or. forcing_GCSSold .or. forcing_twpice            &
+     &    .or.forcing_amma) then
+         fcoriolis=0.0 ; ug=0. ; vg=0.
+       endif
+         if(forcing_rico) then
+          dt_cooling=0.
+        endif
+
+      IF (prt_level >= 5) print*, 'fcoriolis, xlat,mxcalc ', &
+                                   fcoriolis, xlat,mxcalc
+
+       du_age(1:mxcalc)=fcoriolis*(v(1:mxcalc)-vg(1:mxcalc))
+       dv_age(1:mxcalc)=-fcoriolis*(u(1:mxcalc)-ug(1:mxcalc))
+!       print *,'u-ug=',u-ug
+
+!!!!!!!!!!!!!!!!!!!!!!!!
+! Geostrophic wind
+!!!!!!!!!!!!!!!!!!!!!!!!
+       sfdt = sin(0.5*fcoriolis*timestep)
+       cfdt = cos(0.5*fcoriolis*timestep)
+!       print *,'fcoriolis,sfdt,cfdt,timestep',fcoriolis,sfdt,cfdt,timestep
+!
+        du_age(1:mxcalc)= -2.*sfdt/timestep*                                &
+     &          (sfdt*(u(1:mxcalc)-ug(1:mxcalc)) -                          &
+     &           cfdt*(v(1:mxcalc)-vg(1:mxcalc))  )
+!!     : fcoriolis*(v(1:mxcalc)-vg(1:mxcalc))
+!
+       dv_age(1:mxcalc)= -2.*sfdt/timestep*                                 &
+     &          (cfdt*(u(1:mxcalc)-ug(1:mxcalc)) +                           &
+     &           sfdt*(v(1:mxcalc)-vg(1:mxcalc))  )
+!!     : -fcoriolis*(u(1:mxcalc)-ug(1:mxcalc))
+!
+!!!!!!!!!!!!!!!!!!!!!!!!
+!  Nudging
+!!!!!!!!!!!!!!!!!!!!!!!!
+      d_t_nudge(:) = 0.
+      d_q_nudge(:,:) = 0.
+      d_u_nudge(:) = 0.
+      d_v_nudge(:) = 0.
+      if (nudge(inudge_RHT)) then
+        call nudge_RHT(timestep,plev,play,t_targ,rh_targ,temp,q(:,1),     &
+    &                  d_t_nudge,d_q_nudge(:,1))
+      endif
+      if (nudge(inudge_UV)) then
+        call nudge_UV(timestep,plev,play,u_targ,v_targ,u,v,     &
+    &                  d_u_nudge,d_v_nudge)
+      endif
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!         call  writefield_phy('dv_age' ,dv_age,llm)
+!         call  writefield_phy('du_age' ,du_age,llm)
+!         call  writefield_phy('du_phys' ,du_phys,llm)
+!         call  writefield_phy('u_tend' ,u,llm)
+!         call  writefield_phy('u_g' ,ug,llm)
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Increment state variables
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    IF (flag_inhib_forcing == 0) then ! if tendency of forcings should be added
+
+! pour les cas sandu et astex, on reclacule u,v,q,temp et teta dans 1D_nudge_sandu_astex.h
+! au dessus de 700hpa, on relaxe vers les profils initiaux
+      if (forcing_sandu .OR. forcing_astex) then
+#include "1D_nudge_sandu_astex.h"
+      else
+        u(1:mxcalc)=u(1:mxcalc) + timestep*(                                &
+     &              du_phys(1:mxcalc)                                       &
+     &             +du_age(1:mxcalc)+du_adv(1:mxcalc)                       &
+     &             +d_u_nudge(1:mxcalc) )            
+        v(1:mxcalc)=v(1:mxcalc) + timestep*(                                 &
+     &              dv_phys(1:mxcalc)                                       &
+     &             +dv_age(1:mxcalc)+dv_adv(1:mxcalc)                       &
+     &             +d_v_nudge(1:mxcalc) )
+        q(1:mxcalc,:)=q(1:mxcalc,:)+timestep*(                              &
+     &                dq(1:mxcalc,:)                                        &
+     &               +d_q_adv(1:mxcalc,:)                                   &
+     &               +d_q_nudge(1:mxcalc,:) )
+
+        if (prt_level.ge.3) then
+          print *,                                                          &
+     &    'physiq-> temp(1),dt_phys(1),d_th_adv(1),dt_cooling(1) ',         &
+     &              temp(1),dt_phys(1),d_th_adv(1),dt_cooling(1)
+           print* ,'dv_phys=',dv_phys
+           print* ,'dv_age=',dv_age
+           print* ,'dv_adv=',dv_adv
+           print* ,'d_v_nudge=',d_v_nudge
+           print*, v
+           print*, vg
+        endif
+
+        temp(1:mxcalc)=temp(1:mxcalc)+timestep*(                            &
+     &              dt_phys(1:mxcalc)                                       &
+     &             +d_th_adv(1:mxcalc)                                      &
+     &             +d_t_nudge(1:mxcalc)                                      &
+     &             +dt_cooling(1:mxcalc))  ! Taux de chauffage ou refroid.
+
+      endif  ! forcing_sandu or forcing_astex
+
+        teta=temp*(pzero/play)**rkappa
+!
+!---------------------------------------------------------------------
+!   Nudge soil temperature if requested
+!---------------------------------------------------------------------
+
+      IF (nudge_tsoil .AND. .NOT. lastcall) THEN
+       ftsoil(1,isoil_nudge,:) = ftsoil(1,isoil_nudge,:)                     &
+     &  -timestep/tau_soil_nudge*(ftsoil(1,isoil_nudge,:)-Tsoil_nudge)
+      ENDIF
+
+!---------------------------------------------------------------------
+!   Add large-scale tendencies (advection, etc) :
+!---------------------------------------------------------------------
+
+!cc nrlmd
+!cc        tmpvar=teta
+!cc        call advect_vert(llm,omega,timestep,tmpvar,plev)
+!cc
+!cc        teta(1:mxcalc)=tmpvar(1:mxcalc)
+!cc        tmpvar(:)=q(:,1)
+!cc        call advect_vert(llm,omega,timestep,tmpvar,plev)
+!cc        q(1:mxcalc,1)=tmpvar(1:mxcalc)
+!cc        tmpvar(:)=q(:,2)
+!cc        call advect_vert(llm,omega,timestep,tmpvar,plev)
+!cc        q(1:mxcalc,2)=tmpvar(1:mxcalc)
+
+   END IF ! end if tendency of tendency should be added
+
+!---------------------------------------------------------------------
+!   Air temperature :
+!---------------------------------------------------------------------        
+        if (lastcall) then
+          print*,'Pas de temps final ',it
+          call ju2ymds(daytime, an, mois, jour, heure)
+          print*,'a la date : a m j h',an, mois, jour ,heure/3600.
+        endif
+
+!  incremente day time
+!        print*,'daytime bef',daytime,1./day_step
+        daytime = daytime+1./day_step
+!Al1dbg
+        day = int(daytime+0.1/day_step)
+!        time = max(daytime-day,0.0)
+!Al1&jyg: correction de bug
+!cc        time = real(mod(it,day_step))/day_step
+        time = time_ini/24.+real(mod(it,day_step))/day_step
+!        print*,'daytime nxt time',daytime,time
+        it=it+1
+
+      enddo
+
+!Al1
+      if (ecrit_slab_oc.ne.-1) close(97)
+
+!Al1 Call to 1D equivalent of dynredem (an,mois,jour,heure ?)
+! -------------------------------------
+       call dyn1dredem("restart1dyn.nc",                                    &
+     &              plev,play,phi,phis,presnivs,                            &
+     &              u,v,temp,q,omega2)
+
+        CALL abort_gcm ('lmdz1d   ','The End  ',0)
+
+      end
+
+#include "1DUTILS.h"
+#include "1Dconv.h"
+
+!#endif
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/logic_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/logic_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/logic_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d/logic_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_1D_amma_read.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_1D_amma_read.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_1D_amma_read.F90	(revision 3330)
@@ -0,0 +1,504 @@
+MODULE mod_1D_amma_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_amma_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:
+       IF (it_amma1 .EQ. it_amma2) THEN
+          frac=0.
+       ELSE 
+          frac=(time_amma2-timeit)/(time_amma2-time_amma1)
+          frac=max(frac,0.0)
+       ENDIF
+
+       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/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_1D_cases_read.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_1D_cases_read.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_1D_cases_read.F90	(revision 3330)
@@ -0,0 +1,1174 @@
+!
+! $Id$
+!
+MODULE mod_1D_cases_read
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!Declarations specifiques au cas standard
+        character*80 :: fich_cas
+! Discr?tisation 
+        integer nlev_cas, nt_cas
+
+
+!       integer year_ini_cas, day_ini_cas, mth_ini_cas
+!       real heure_ini_cas
+!       real day_ju_ini_cas   ! Julian day of case first day
+!       parameter (year_ini_cas=2011)
+!       parameter (year_ini_cas=1969)
+!       parameter (mth_ini_cas=10)
+!       parameter (mth_ini_cas=6)
+!       parameter (day_ini_cas=1)  ! 10 = 10Juil2006
+!       parameter (day_ini_cas=24)  ! 24 = 24 juin 1969
+!       parameter (heure_ini_cas=0.) !0h en secondes
+!       real pdt_cas
+!       parameter (pdt_cas=3.*3600)
+
+!CR ATTENTION TEST AMMA
+!        parameter (year_ini_cas=2006)
+!        parameter (mth_ini_cas=7)
+!        parameter (day_ini_cas=10)  ! 10 = 10Juil2006
+!        parameter (heure_ini_cas=0.) !0h en secondes
+!        parameter (pdt_cas=1800.)
+
+!profils environnementaux
+        real, allocatable::  plev_cas(:,:)
+
+        real, allocatable::  z_cas(:,:)
+        real, allocatable::  t_cas(:,:),q_cas(:,:),rh_cas(:,:)
+        real, allocatable::  th_cas(:,:),rv_cas(:,:)
+        real, allocatable::  u_cas(:,:)
+        real, allocatable::  v_cas(:,:)
+
+!forcing
+        real, allocatable::  ht_cas(:,:),vt_cas(:,:),dt_cas(:,:),dtrad_cas(:,:)
+        real, allocatable::  hth_cas(:,:),vth_cas(:,:),dth_cas(:,:)
+        real, allocatable::  hq_cas(:,:),vq_cas(:,:),dq_cas(:,:)
+        real, allocatable::  hr_cas(:,:),vr_cas(:,:),dr_cas(:,:)
+        real, allocatable::  hu_cas(:,:),vu_cas(:,:),du_cas(:,:)
+        real, allocatable::  hv_cas(:,:),vv_cas(:,:),dv_cas(:,:)
+        real, allocatable::  vitw_cas(:,:)
+        real, allocatable::  ug_cas(:,:),vg_cas(:,:)
+        real, allocatable::  lat_cas(:),sens_cas(:),ts_cas(:),ustar_cas(:)
+        real, allocatable::  uw_cas(:,:),vw_cas(:,:),q1_cas(:,:),q2_cas(:,:)
+
+!champs interpoles
+        real, allocatable::  plev_prof_cas(:)
+        real, allocatable::  t_prof_cas(:)
+        real, allocatable::  q_prof_cas(:)
+        real, allocatable::  u_prof_cas(:)
+        real, allocatable::  v_prof_cas(:)        
+
+        real, allocatable::  vitw_prof_cas(:)
+        real, allocatable::  ug_prof_cas(:)
+        real, allocatable::  vg_prof_cas(:)
+        real, allocatable::  ht_prof_cas(:)
+        real, allocatable::  hq_prof_cas(:)
+        real, allocatable::  vt_prof_cas(:)
+        real, allocatable::  vq_prof_cas(:)
+        real, allocatable::  dt_prof_cas(:)
+        real, allocatable::  dtrad_prof_cas(:)
+        real, allocatable::  dq_prof_cas(:)
+        real, allocatable::  hu_prof_cas(:)
+        real, allocatable::  hv_prof_cas(:)
+        real, allocatable::  vu_prof_cas(:)
+        real, allocatable::  vv_prof_cas(:)
+        real, allocatable::  du_prof_cas(:)
+        real, allocatable::  dv_prof_cas(:)
+        real, allocatable::  uw_prof_cas(:)
+        real, allocatable::  vw_prof_cas(:)
+        real, allocatable::  q1_prof_cas(:)
+        real, allocatable::  q2_prof_cas(:)
+
+
+        real lat_prof_cas,sens_prof_cas,ts_prof_cas,ustar_prof_cas
+      
+
+
+CONTAINS
+
+SUBROUTINE read_1D_cas
+      implicit none
+
+#include "netcdf.inc"
+
+      INTEGER nid,rid,ierr
+      INTEGER ii,jj
+
+      fich_cas='setup/cas.nc'
+      print*,'fich_cas ',fich_cas
+      ierr = NF_OPEN(fich_cas,NF_NOWRITE,nid)
+      print*,'fich_cas,NF_NOWRITE,nid ',fich_cas,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,'lat',rid)
+      IF (ierr.NE.NF_NOERR) THEN
+         print*, 'Oh probleme lecture dimension lat'
+      ENDIF
+      ierr=NF_INQ_DIMLEN(nid,rid,ii)
+      print*,'OK1 nid,rid,lat',nid,rid,ii
+!.......................................................................
+      ierr=NF_INQ_DIMID(nid,'lon',rid)
+      IF (ierr.NE.NF_NOERR) THEN
+         print*, 'Oh probleme lecture dimension lon'
+      ENDIF
+      ierr=NF_INQ_DIMLEN(nid,rid,jj)
+      print*,'OK2 nid,rid,lat',nid,rid,jj
+!.......................................................................
+      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_cas)
+      print*,'OK3 nid,rid,nlev_cas',nid,rid,nlev_cas
+!.......................................................................
+      ierr=NF_INQ_DIMID(nid,'time',rid)
+      print*,'nid,rid',nid,rid
+      nt_cas=0
+      IF (ierr.NE.NF_NOERR) THEN
+        stop 'probleme lecture dimension sens'
+      ENDIF
+      ierr=NF_INQ_DIMLEN(nid,rid,nt_cas)
+      print*,'OK4 nid,rid,nt_cas',nid,rid,nt_cas
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!profils moyens:
+        allocate(plev_cas(nlev_cas,nt_cas))        
+        allocate(z_cas(nlev_cas,nt_cas))
+        allocate(t_cas(nlev_cas,nt_cas),q_cas(nlev_cas,nt_cas),rh_cas(nlev_cas,nt_cas))
+        allocate(th_cas(nlev_cas,nt_cas),rv_cas(nlev_cas,nt_cas))
+        allocate(u_cas(nlev_cas,nt_cas))
+        allocate(v_cas(nlev_cas,nt_cas))
+
+!forcing
+        allocate(ht_cas(nlev_cas,nt_cas),vt_cas(nlev_cas,nt_cas),dt_cas(nlev_cas,nt_cas),dtrad_cas(nlev_cas,nt_cas))
+        allocate(hq_cas(nlev_cas,nt_cas),vq_cas(nlev_cas,nt_cas),dq_cas(nlev_cas,nt_cas))
+        allocate(hth_cas(nlev_cas,nt_cas),vth_cas(nlev_cas,nt_cas),dth_cas(nlev_cas,nt_cas))
+        allocate(hr_cas(nlev_cas,nt_cas),vr_cas(nlev_cas,nt_cas),dr_cas(nlev_cas,nt_cas))
+        allocate(hu_cas(nlev_cas,nt_cas),vu_cas(nlev_cas,nt_cas),du_cas(nlev_cas,nt_cas))
+        allocate(hv_cas(nlev_cas,nt_cas),vv_cas(nlev_cas,nt_cas),dv_cas(nlev_cas,nt_cas))
+        allocate(vitw_cas(nlev_cas,nt_cas))
+        allocate(ug_cas(nlev_cas,nt_cas))
+        allocate(vg_cas(nlev_cas,nt_cas))
+        allocate(lat_cas(nt_cas),sens_cas(nt_cas),ts_cas(nt_cas),ustar_cas(nt_cas))
+        allocate(uw_cas(nlev_cas,nt_cas),vw_cas(nlev_cas,nt_cas),q1_cas(nlev_cas,nt_cas),q2_cas(nlev_cas,nt_cas))
+
+
+!champs interpoles
+        allocate(plev_prof_cas(nlev_cas))
+        allocate(t_prof_cas(nlev_cas))
+        allocate(q_prof_cas(nlev_cas))
+        allocate(u_prof_cas(nlev_cas))
+        allocate(v_prof_cas(nlev_cas))
+
+        allocate(vitw_prof_cas(nlev_cas))
+        allocate(ug_prof_cas(nlev_cas))
+        allocate(vg_prof_cas(nlev_cas))
+        allocate(ht_prof_cas(nlev_cas))
+        allocate(hq_prof_cas(nlev_cas))
+        allocate(hu_prof_cas(nlev_cas))
+        allocate(hv_prof_cas(nlev_cas))
+        allocate(vt_prof_cas(nlev_cas))
+        allocate(vq_prof_cas(nlev_cas))
+        allocate(vu_prof_cas(nlev_cas))
+        allocate(vv_prof_cas(nlev_cas))
+        allocate(dt_prof_cas(nlev_cas))
+        allocate(dtrad_prof_cas(nlev_cas))
+        allocate(dq_prof_cas(nlev_cas))
+        allocate(du_prof_cas(nlev_cas))
+        allocate(dv_prof_cas(nlev_cas))
+        allocate(uw_prof_cas(nlev_cas))
+        allocate(vw_prof_cas(nlev_cas))
+        allocate(q1_prof_cas(nlev_cas))
+        allocate(q2_prof_cas(nlev_cas))
+
+        print*,'Allocations OK'
+        call read_cas(nid,nlev_cas,nt_cas                                       &
+     &     ,z_cas,plev_cas,t_cas,q_cas,rh_cas,th_cas,rv_cas,u_cas,v_cas         &
+     &     ,ug_cas,vg_cas,vitw_cas,du_cas,hu_cas,vu_cas,dv_cas,hv_cas,vv_cas    &
+     &     ,dt_cas,dtrad_cas,ht_cas,vt_cas,dq_cas,hq_cas,vq_cas                 &
+     &     ,dth_cas,hth_cas,vth_cas,dr_cas,hr_cas,vr_cas,sens_cas,lat_cas,ts_cas&
+     &     ,ustar_cas,uw_cas,vw_cas,q1_cas,q2_cas)
+        print*,'Read cas OK'
+
+
+END SUBROUTINE read_1D_cas
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+SUBROUTINE deallocate_1D_cases
+!profils environnementaux:
+        deallocate(plev_cas)
+        
+        deallocate(z_cas)
+        deallocate(t_cas,q_cas,rh_cas)
+        deallocate(th_cas,rv_cas)
+        deallocate(u_cas)
+        deallocate(v_cas)
+        
+!forcing
+        deallocate(ht_cas,vt_cas,dt_cas,dtrad_cas)
+        deallocate(hq_cas,vq_cas,dq_cas)
+        deallocate(hth_cas,vth_cas,dth_cas)
+        deallocate(hr_cas,vr_cas,dr_cas)
+        deallocate(hu_cas,vu_cas,du_cas)
+        deallocate(hv_cas,vv_cas,dv_cas)
+        deallocate(vitw_cas)
+        deallocate(ug_cas)
+        deallocate(vg_cas)
+        deallocate(lat_cas,sens_cas,ts_cas,ustar_cas,uw_cas,vw_cas,q1_cas,q2_cas)
+
+!champs interpoles
+        deallocate(plev_prof_cas)
+        deallocate(t_prof_cas)
+        deallocate(q_prof_cas)
+        deallocate(u_prof_cas)
+        deallocate(v_prof_cas)
+
+        deallocate(vitw_prof_cas)
+        deallocate(ug_prof_cas)
+        deallocate(vg_prof_cas)
+        deallocate(ht_prof_cas)
+        deallocate(hq_prof_cas)
+        deallocate(hu_prof_cas)
+        deallocate(hv_prof_cas)
+        deallocate(vt_prof_cas)
+        deallocate(vq_prof_cas)
+        deallocate(vu_prof_cas)
+        deallocate(vv_prof_cas)
+        deallocate(dt_prof_cas)
+        deallocate(dtrad_prof_cas)
+        deallocate(dq_prof_cas)
+        deallocate(du_prof_cas)
+        deallocate(dv_prof_cas)
+        deallocate(t_prof_cas)
+        deallocate(q_prof_cas)
+        deallocate(u_prof_cas)
+        deallocate(v_prof_cas)
+        deallocate(uw_prof_cas)
+        deallocate(vw_prof_cas)
+        deallocate(q1_prof_cas)
+        deallocate(q2_prof_cas)
+
+END SUBROUTINE deallocate_1D_cases
+
+
+END MODULE mod_1D_cases_read
+!=====================================================================
+      subroutine read_cas(nid,nlevel,ntime                          &
+     &     ,zz,pp,temp,qv,rh,theta,rv,u,v,ug,vg,w,                   &
+     &     du,hu,vu,dv,hv,vv,dt,dtrad,ht,vt,dq,hq,vq,                     &
+     &     dth,hth,vth,dr,hr,vr,sens,flat,ts,ustar,uw,vw,q1,q2)
+
+!program reading forcing of the case study
+      implicit none
+#include "netcdf.inc"
+
+      integer ntime,nlevel
+
+      real zz(nlevel,ntime)
+      real pp(nlevel,ntime)
+      real temp(nlevel,ntime),qv(nlevel,ntime),rh(nlevel,ntime)
+      real theta(nlevel,ntime),rv(nlevel,ntime)
+      real u(nlevel,ntime)
+      real v(nlevel,ntime)
+      real ug(nlevel,ntime)
+      real vg(nlevel,ntime)
+      real w(nlevel,ntime)
+      real du(nlevel,ntime),hu(nlevel,ntime),vu(nlevel,ntime)
+      real dv(nlevel,ntime),hv(nlevel,ntime),vv(nlevel,ntime)
+      real dt(nlevel,ntime),ht(nlevel,ntime),vt(nlevel,ntime)
+      real dtrad(nlevel,ntime)
+      real dq(nlevel,ntime),hq(nlevel,ntime),vq(nlevel,ntime)
+      real dth(nlevel,ntime),hth(nlevel,ntime),vth(nlevel,ntime)
+      real dr(nlevel,ntime),hr(nlevel,ntime),vr(nlevel,ntime)
+      real flat(ntime),sens(ntime),ts(ntime),ustar(ntime)
+      real uw(nlevel,ntime),vw(nlevel,ntime),q1(nlevel,ntime),q2(nlevel,ntime)
+
+
+      integer nid, ierr,rid
+      integer nbvar3d
+      parameter(nbvar3d=39)
+      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,"pp",var3didin(2)) 
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'plev'
+         endif
+
+
+      ierr=NF_INQ_VARID(nid,"temp",var3didin(3))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'temp'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"qv",var3didin(4))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'qv'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"rh",var3didin(5))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'rh'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"theta",var3didin(6))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'theta'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"rv",var3didin(7))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'rv'
+         endif
+
+
+      ierr=NF_INQ_VARID(nid,"u",var3didin(8))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'u'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"v",var3didin(9))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'v'
+         endif
+
+       ierr=NF_INQ_VARID(nid,"ug",var3didin(10))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'ug'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vg",var3didin(11))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vg'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"w",var3didin(12))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'w'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"advu",var3didin(13))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'advu'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"hu",var3didin(14))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hu'
+         endif
+
+       ierr=NF_INQ_VARID(nid,"vu",var3didin(15))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vu'
+         endif
+
+       ierr=NF_INQ_VARID(nid,"advv",var3didin(16))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'advv'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"hv",var3didin(17))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hv'
+         endif
+
+       ierr=NF_INQ_VARID(nid,"vv",var3didin(18))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vv'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"advT",var3didin(19))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'advT'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"hT",var3didin(20))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hT'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vT",var3didin(21))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vT'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"advq",var3didin(22))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'advq'
+         endif
+      
+      ierr=NF_INQ_VARID(nid,"hq",var3didin(23))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hq'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vq",var3didin(24))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vq'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"advth",var3didin(25))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'advth'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"hth",var3didin(26))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hth'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vth",var3didin(27))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vth'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"advr",var3didin(28))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'advr'
+         endif
+      
+      ierr=NF_INQ_VARID(nid,"hr",var3didin(29))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'hr'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vr",var3didin(30))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vr'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"radT",var3didin(31))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'radT'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"sens",var3didin(32))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'sens'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"flat",var3didin(33))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'flat'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"ts",var3didin(34))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'ts'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"ustar",var3didin(35))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'ustar'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"uw",var3didin(36))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'uw'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"vw",var3didin(37))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'vw'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"q1",var3didin(38))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'q1'
+         endif
+
+      ierr=NF_INQ_VARID(nid,"q2",var3didin(39))
+         if(ierr/=NF_NOERR) then
+           write(*,*) NF_STRERROR(ierr)
+           stop 'q2'
+         endif
+ 
+#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),pp)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(2),pp)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture pp ok',pp
+
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(3),temp)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(3),temp)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture T ok',temp
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(4),qv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(4),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(5),rh)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(5),rh)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture rh ok',rh
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(6),theta)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(6),theta)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture theta ok',theta
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(7),rv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(7),rv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture rv ok',rv
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(8),u)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(8),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(9),v)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(9),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(10),ug)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(10),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(11),vg)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(11),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(12),w)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(12),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(13),du)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(13),du)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture du ok',du
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(14),hu)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(14),hu)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hu ok',hu
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(15),vu)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(15),vu)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vu ok',vu
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(16),dv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(16),dv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dv ok',dv
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(17),hv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(17),hv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hv ok',hv
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(18),vv)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(18),vv)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vv ok',vv
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(19),dt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(19),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(20),ht)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(20),ht)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture ht ok',ht
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(21),vt)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(21),vt)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vt ok',vt
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(22),dq)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(22),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(23),hq)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(23),hq)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hq ok',hq
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(24),vq)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(24),vq)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vq ok',vq
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(25),dth)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(25),dth)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dth ok',dth
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(26),hth)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(26),hth)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hth ok',hth
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(27),vth)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(27),vth)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vth ok',vth
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(28),dr)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(28),dr)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dr ok',dr
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(29),hr)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(29),hr)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture hr ok',hr
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(30),vr)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(30),vr)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture vr ok',vr
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(31),dtrad)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(31),dtrad)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture dtrad ok',dtrad
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(32),sens)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(32),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(33),flat)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(33),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(34),ts)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(34),ts)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!          write(*,*)'lecture ts ok',ts
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(35),ustar)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(35),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(36),uw)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(36),uw)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture uw ok',uw
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(37),vw)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(37),vw)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture vw ok',vw
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(38),q1)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(38),q1)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture q1 ok',q1
+
+#ifdef NC_DOUBLE
+         ierr = NF_GET_VAR_DOUBLE(nid,var3didin(39),q2)
+#else
+         ierr = NF_GET_VAR_REAL(nid,var3didin(39),q2)
+#endif
+         if(ierr/=NF_NOERR) then
+            write(*,*) NF_STRERROR(ierr)
+            stop "getvarup"
+         endif
+!         write(*,*)'lecture q2 ok',q2
+
+
+         return 
+         end subroutine read_cas
+!======================================================================
+        SUBROUTINE interp_case_time(day,day1,annee_ref                &
+!    &         ,year_cas,day_cas,nt_cas,pdt_forc,nlev_cas      &
+     &         ,nt_cas,nlev_cas                                       &
+     &         ,ts_cas,plev_cas,t_cas,q_cas,u_cas,v_cas               &
+     &         ,ug_cas,vg_cas,vitw_cas,du_cas,hu_cas,vu_cas           &
+     &         ,dv_cas,hv_cas,vv_cas,dt_cas,ht_cas,vt_cas,dtrad_cas   &
+     &         ,dq_cas,hq_cas,vq_cas,lat_cas,sens_cas,ustar_cas       &
+     &         ,uw_cas,vw_cas,q1_cas,q2_cas                           &
+     &         ,ts_prof_cas,plev_prof_cas,t_prof_cas,q_prof_cas       &
+     &         ,u_prof_cas,v_prof_cas,ug_prof_cas,vg_prof_cas         &
+     &         ,vitw_prof_cas,du_prof_cas,hu_prof_cas,vu_prof_cas     &
+     &         ,dv_prof_cas,hv_prof_cas,vv_prof_cas,dt_prof_cas       &
+     &         ,ht_prof_cas,vt_prof_cas,dtrad_prof_cas,dq_prof_cas    &
+     &         ,hq_prof_cas,vq_prof_cas,lat_prof_cas,sens_prof_cas    &
+     &         ,ustar_prof_cas,uw_prof_cas,vw_prof_cas,q1_prof_cas,q2_prof_cas)
+          
+
+        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_cas: total nb of data in the forcing 
+! pdt_cas: total time interval (in sec) between 2 forcing data
+!---------------------------------------------------------------------------------------
+
+#include "compar1d.h"
+#include "date_cas.h"
+
+! inputs:
+        integer annee_ref
+        integer nt_cas,nlev_cas
+        real day, day1,day_cas
+        real ts_cas(nt_cas)
+        real plev_cas(nlev_cas,nt_cas)
+        real t_cas(nlev_cas,nt_cas),q_cas(nlev_cas,nt_cas)
+        real u_cas(nlev_cas,nt_cas),v_cas(nlev_cas,nt_cas)
+        real ug_cas(nlev_cas,nt_cas),vg_cas(nlev_cas,nt_cas)
+        real vitw_cas(nlev_cas,nt_cas)
+        real du_cas(nlev_cas,nt_cas),hu_cas(nlev_cas,nt_cas),vu_cas(nlev_cas,nt_cas)
+        real dv_cas(nlev_cas,nt_cas),hv_cas(nlev_cas,nt_cas),vv_cas(nlev_cas,nt_cas)
+        real dt_cas(nlev_cas,nt_cas),ht_cas(nlev_cas,nt_cas),vt_cas(nlev_cas,nt_cas)
+        real dtrad_cas(nlev_cas,nt_cas)
+        real dq_cas(nlev_cas,nt_cas),hq_cas(nlev_cas,nt_cas),vq_cas(nlev_cas,nt_cas)
+        real lat_cas(nt_cas)
+        real sens_cas(nt_cas)
+        real ustar_cas(nt_cas),uw_cas(nlev_cas,nt_cas),vw_cas(nlev_cas,nt_cas)
+        real q1_cas(nlev_cas,nt_cas),q2_cas(nlev_cas,nt_cas)
+
+! outputs:
+        real plev_prof_cas(nlev_cas)
+        real t_prof_cas(nlev_cas),q_prof_cas(nlev_cas)
+        real u_prof_cas(nlev_cas),v_prof_cas(nlev_cas)
+        real ug_prof_cas(nlev_cas),vg_prof_cas(nlev_cas)
+        real vitw_prof_cas(nlev_cas)
+        real du_prof_cas(nlev_cas),hu_prof_cas(nlev_cas),vu_prof_cas(nlev_cas)
+        real dv_prof_cas(nlev_cas),hv_prof_cas(nlev_cas),vv_prof_cas(nlev_cas)
+        real dt_prof_cas(nlev_cas),ht_prof_cas(nlev_cas),vt_prof_cas(nlev_cas)
+        real dtrad_prof_cas(nlev_cas)
+        real dq_prof_cas(nlev_cas),hq_prof_cas(nlev_cas),vq_prof_cas(nlev_cas)
+        real lat_prof_cas,sens_prof_cas,ts_prof_cas,ustar_prof_cas
+        real uw_prof_cas(nlev_cas),vw_prof_cas(nlev_cas),q1_prof_cas(nlev_cas),q2_prof_cas(nlev_cas)
+! local:
+        integer it_cas1, it_cas2,k
+        real timeit,time_cas1,time_cas2,frac
+
+
+        print*,'Check time',day1,day_ju_ini_cas,day_deb+1,pdt_cas
+
+! On teste si la date du cas AMMA est correcte.
+! C est pour memoire car en fait les fichiers .def
+! sont censes etre corrects.
+! A supprimer a terme (MPL 20150623)
+!     if ((forcing_type.eq.10).and.(1.eq.0)) 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_cas) then
+!       print*,'AMMA a debute le 10 juillet 2006',day1,day_cas
+!       print*,'Changer dayref dans run.def'
+!       stop
+!      endif
+!      if (annee_ref.eq.2006 .and. day1.gt.day_cas+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:
+!       timeit=(day-day1)*86400.
+!       if (annee_ref.eq.1992) then
+!        timeit=(day-day_cas)*86400.
+!       else
+!        timeit=(day+61.-1.)*86400. ! 61 days between Nov01 and Dec31 1992
+!       endif
+      timeit=(day-day_ju_ini_cas)*86400
+      print *,'day=',day
+      print *,'day_ju_ini_cas=',day_ju_ini_cas
+      print *,'pdt_cas=',pdt_cas
+      print *,'timeit=',timeit
+      print *,'nt_cas=',nt_cas
+
+! Determine the closest observation times:
+!       it_cas1=INT(timeit/pdt_cas)+1
+!       it_cas2=it_cas1 + 1
+!       time_cas1=(it_cas1-1)*pdt_cas
+!       time_cas2=(it_cas2-1)*pdt_cas
+
+       it_cas1=INT(timeit/pdt_cas)+1
+       IF (it_cas1 .EQ. nt_cas) THEN
+       it_cas2=it_cas1 
+       ELSE
+       it_cas2=it_cas1 + 1
+       ENDIF
+       time_cas1=(it_cas1-1)*pdt_cas
+       time_cas2=(it_cas2-1)*pdt_cas
+      print *,'it_cas1=',it_cas1
+      print *,'it_cas2=',it_cas2
+      print *,'time_cas1=',time_cas1
+      print *,'time_cas2=',time_cas2
+
+       if (it_cas1 .gt. nt_cas) then
+        write(*,*) 'PB-stop: day, day_ju_ini_cas,it_cas1, it_cas2, timeit: '            &
+     &        ,day,day_ju_ini_cas,it_cas1,it_cas2,timeit
+        stop
+       endif
+
+! time interpolation:
+       IF (it_cas1 .EQ. it_cas2) THEN
+          frac=0.
+       ELSE
+          frac=(time_cas2-timeit)/(time_cas2-time_cas1)
+          frac=max(frac,0.0)
+       ENDIF
+
+       lat_prof_cas = lat_cas(it_cas2)                                       &
+     &          -frac*(lat_cas(it_cas2)-lat_cas(it_cas1)) 
+       sens_prof_cas = sens_cas(it_cas2)                                     &
+     &          -frac*(sens_cas(it_cas2)-sens_cas(it_cas1))
+       ts_prof_cas = ts_cas(it_cas2)                                         &
+     &          -frac*(ts_cas(it_cas2)-ts_cas(it_cas1))
+       ustar_prof_cas = ustar_cas(it_cas2)                                   &
+     &          -frac*(ustar_cas(it_cas2)-ustar_cas(it_cas1))
+
+       do k=1,nlev_cas
+        plev_prof_cas(k) = plev_cas(k,it_cas2)                               &
+     &          -frac*(plev_cas(k,it_cas2)-plev_cas(k,it_cas1))
+        t_prof_cas(k) = t_cas(k,it_cas2)                               &
+     &          -frac*(t_cas(k,it_cas2)-t_cas(k,it_cas1))
+        q_prof_cas(k) = q_cas(k,it_cas2)                               &
+     &          -frac*(q_cas(k,it_cas2)-q_cas(k,it_cas1))
+        u_prof_cas(k) = u_cas(k,it_cas2)                               &
+     &          -frac*(u_cas(k,it_cas2)-u_cas(k,it_cas1))
+        v_prof_cas(k) = v_cas(k,it_cas2)                               &
+     &          -frac*(v_cas(k,it_cas2)-v_cas(k,it_cas1))
+        ug_prof_cas(k) = ug_cas(k,it_cas2)                               &
+     &          -frac*(ug_cas(k,it_cas2)-ug_cas(k,it_cas1))
+        vg_prof_cas(k) = vg_cas(k,it_cas2)                               &
+     &          -frac*(vg_cas(k,it_cas2)-vg_cas(k,it_cas1))
+        vitw_prof_cas(k) = vitw_cas(k,it_cas2)                               &
+     &          -frac*(vitw_cas(k,it_cas2)-vitw_cas(k,it_cas1))
+        du_prof_cas(k) = du_cas(k,it_cas2)                                   &
+     &          -frac*(du_cas(k,it_cas2)-du_cas(k,it_cas1))
+        hu_prof_cas(k) = hu_cas(k,it_cas2)                                   &
+     &          -frac*(hu_cas(k,it_cas2)-hu_cas(k,it_cas1))
+        vu_prof_cas(k) = vu_cas(k,it_cas2)                                   &
+     &          -frac*(vu_cas(k,it_cas2)-vu_cas(k,it_cas1))
+        dv_prof_cas(k) = dv_cas(k,it_cas2)                                   &
+     &          -frac*(dv_cas(k,it_cas2)-dv_cas(k,it_cas1))
+        hv_prof_cas(k) = hv_cas(k,it_cas2)                                   &
+     &          -frac*(hv_cas(k,it_cas2)-hv_cas(k,it_cas1))
+        vv_prof_cas(k) = vv_cas(k,it_cas2)                                   &
+     &          -frac*(vv_cas(k,it_cas2)-vv_cas(k,it_cas1))
+        dt_prof_cas(k) = dt_cas(k,it_cas2)                                   &
+     &          -frac*(dt_cas(k,it_cas2)-dt_cas(k,it_cas1))
+        ht_prof_cas(k) = ht_cas(k,it_cas2)                                   &
+     &          -frac*(ht_cas(k,it_cas2)-ht_cas(k,it_cas1))
+        vt_prof_cas(k) = vt_cas(k,it_cas2)                                   &
+     &          -frac*(vt_cas(k,it_cas2)-vt_cas(k,it_cas1))
+        dtrad_prof_cas(k) = dtrad_cas(k,it_cas2)                                   &
+     &          -frac*(dtrad_cas(k,it_cas2)-dtrad_cas(k,it_cas1))
+        dq_prof_cas(k) = dq_cas(k,it_cas2)                                   &
+     &          -frac*(dq_cas(k,it_cas2)-dq_cas(k,it_cas1))
+        hq_prof_cas(k) = hq_cas(k,it_cas2)                                   &
+     &          -frac*(hq_cas(k,it_cas2)-hq_cas(k,it_cas1))
+        vq_prof_cas(k) = vq_cas(k,it_cas2)                                   &
+     &          -frac*(vq_cas(k,it_cas2)-vq_cas(k,it_cas1))
+       uw_prof_cas(k) = uw_cas(k,it_cas2)                                   &
+     &          -frac*(uw_cas(k,it_cas2)-uw_cas(k,it_cas1))
+       vw_prof_cas(k) = vw_cas(k,it_cas2)                                   &
+     &          -frac*(vw_cas(k,it_cas2)-vw_cas(k,it_cas1))
+       q1_prof_cas(k) = q1_cas(k,it_cas2)                                   &
+     &          -frac*(q1_cas(k,it_cas2)-q1_cas(k,it_cas1))
+       q2_prof_cas(k) = q2_cas(k,it_cas2)                                   &
+     &          -frac*(q2_cas(k,it_cas2)-q2_cas(k,it_cas1))
+        enddo
+
+        return
+        END
+
+!**********************************************************************************************
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_const_mpi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_const_mpi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_const_mpi.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d/mod_const_mpi.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_interface_dyn_phys.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_interface_dyn_phys.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/mod_interface_dyn_phys.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dynphy_lonlat/mod_interface_dyn_phys.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/paramet.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/paramet.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/paramet.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d/paramet.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/serre_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/serre_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/serre_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/serre_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/temps_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/temps_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/temps_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d/temps_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/tracstoke.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/tracstoke.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/dyn1d/tracstoke.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../../dyn3d_common/tracstoke.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ener_conserv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ener_conserv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ener_conserv.F90	(revision 3330)
@@ -0,0 +1,191 @@
+subroutine ener_conserv(klon,klev,pdtphys, &
+ &    puo,pvo,pto,pqo,pun,pvn,ptn,pqn,dtke,masse,exner,d_t_ec)
+
+!=============================================================
+! Energy conservation
+! Based on the TKE equation
+! The M2 and N2 terms at the origin of TKE production are
+! concerted into heating in the d_t_ec term
+! Option 1 is the standard
+!        101 is for M2 term only
+!        101 for N2 term only
+!         -1 is a previours treatment for kinetic energy only
+!  FH (hourdin@lmd.jussieu.fr), 2013/04/25
+!=============================================================
+
+!=============================================================
+! Declarations
+!=============================================================
+
+! From module
+USE phys_local_var_mod, ONLY : d_u_vdf,d_v_vdf,d_t_vdf,d_u_ajs,d_v_ajs,d_t_ajs,d_u_con,d_v_con,d_t_con,d_t_diss
+USE phys_local_var_mod, ONLY : d_t_eva,d_t_lsc,d_q_eva,d_q_lsc
+USE phys_output_var_mod, ONLY : bils_ec,bils_ech,bils_tke,bils_kinetic,bils_enthalp,bils_latent,bils_diss
+
+IMPLICIT none
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "clesphys.h"
+#include "compbl.h"
+
+! Arguments
+INTEGER, INTENT(IN) :: klon,klev
+REAL, INTENT(IN) :: pdtphys
+REAL, DIMENSION(klon,klev),INTENT(IN) :: puo,pvo,pto,pqo
+REAL, DIMENSION(klon,klev),INTENT(IN) :: pun,pvn,ptn,pqn
+REAL, DIMENSION(klon,klev),INTENT(IN) :: masse,exner
+REAL, DIMENSION(klon,klev+1),INTENT(IN) :: dtke
+REAL, DIMENSION(klon,klev),INTENT(OUT) :: d_t_ec
+      integer k,i
+
+! Local
+REAL, DIMENSION(klon,klev+1) :: fluxu,fluxv,fluxt
+REAL, DIMENSION(klon,klev+1) :: dddu,dddv,dddt
+REAL, DIMENSION(klon,klev) :: d_u,d_v,d_t,zv,zu,d_t_ech
+REAL ZRCPD
+
+character*80 abort_message
+character*20 :: modname
+
+
+modname='ener_conser'
+d_t_ec(:,:)=0.
+
+IF (iflag_ener_conserv==-1) THEN
+!+jld ec_conser
+   DO k = 1, klev
+   DO i = 1, klon
+      ZRCPD = RCPD*(1.0+RVTMP2*pqn(i,k))
+      d_t_ec(i,k)=0.5/ZRCPD &
+ &      *(puo(i,k)**2+pvo(i,k)**2-pun(i,k)**2-pvn(i,k)**2)
+      ENDDO
+      ENDDO
+!-jld ec_conser
+
+
+
+ELSEIF (iflag_ener_conserv>=1) THEN
+
+   IF (iflag_ener_conserv<=2) THEN
+!     print*,'ener_conserv pbl=',iflag_pbl
+      IF (iflag_pbl>=20 .AND. iflag_pbl<=27) THEN !d_t_diss accounts for conserv
+         d_t(:,:)=d_t_ajs(:,:)   ! d_t_ajs = adjust + thermals
+         d_u(:,:)=d_u_ajs(:,:)+d_u_con(:,:)
+         d_v(:,:)=d_v_ajs(:,:)+d_v_con(:,:)
+      ELSE
+         d_t(:,:)=d_t_vdf(:,:)+d_t_ajs(:,:)   ! d_t_ajs = adjust + thermals
+         d_u(:,:)=d_u_vdf(:,:)+d_u_ajs(:,:)+d_u_con(:,:)
+         d_v(:,:)=d_v_vdf(:,:)+d_v_ajs(:,:)+d_v_con(:,:)
+      ENDIF
+   ELSEIF (iflag_ener_conserv==101) THEN
+      d_t(:,:)=0.
+      d_u(:,:)=d_u_vdf(:,:)+d_u_ajs(:,:)+d_u_con(:,:)
+      d_v(:,:)=d_v_vdf(:,:)+d_v_ajs(:,:)+d_v_con(:,:)
+   ELSEIF (iflag_ener_conserv==110) THEN
+      d_t(:,:)=d_t_vdf(:,:)+d_t_ajs(:,:)
+      d_u(:,:)=0.
+      d_v(:,:)=0.
+   ELSE
+      abort_message = 'iflag_ener_conserv non prevu'
+      CALL abort_physic (modname,abort_message,1)
+   ENDIF
+
+!----------------------------------------------------------------------------
+! Two options wether we consider time integration in the energy conservation
+!----------------------------------------------------------------------------
+
+   if (iflag_ener_conserv==2) then
+      zu(:,:)=puo(:,:)
+      zv(:,:)=pvo(:,:)
+   else
+      IF (iflag_pbl>=20 .AND. iflag_pbl<=27) THEN
+         zu(:,:)=puo(:,:)+d_u_vdf(:,:)+0.5*d_u(:,:)
+         zv(:,:)=pvo(:,:)+d_v_vdf(:,:)+0.5*d_v(:,:)
+      ELSE
+         zu(:,:)=puo(:,:)+0.5*d_u(:,:)
+         zv(:,:)=pvo(:,:)+0.5*d_v(:,:)
+      ENDIF
+   endif
+
+   fluxu(:,klev+1)=0.
+   fluxv(:,klev+1)=0.
+   fluxt(:,klev+1)=0.
+
+   do k=klev,1,-1
+      fluxu(:,k)=fluxu(:,k+1)+masse(:,k)*d_u(:,k)
+      fluxv(:,k)=fluxv(:,k+1)+masse(:,k)*d_v(:,k)
+      fluxt(:,k)=fluxt(:,k+1)+masse(:,k)*d_t(:,k)/exner(:,k)
+   enddo
+
+   dddu(:,1)=2*zu(:,1)*fluxu(:,1)
+   dddv(:,1)=2*zv(:,1)*fluxv(:,1)
+   dddt(:,1)=(exner(:,1)-1.)*fluxt(:,1)
+
+   do k=2,klev
+      dddu(:,k)=(zu(:,k)-zu(:,k-1))*fluxu(:,k)
+      dddv(:,k)=(zv(:,k)-zv(:,k-1))*fluxv(:,k)
+      dddt(:,k)=(exner(:,k)-exner(:,k-1))*fluxt(:,k)
+   enddo
+   dddu(:,klev+1)=0.
+   dddv(:,klev+1)=0.
+   dddt(:,klev+1)=0.
+
+   do k=1,klev
+      d_t_ech(:,k)=-(rcpd*(dddt(:,k)+dddt(:,k+1)))/(2.*rcpd*masse(:,k))
+      d_t_ec(:,k)=-(dddu(:,k)+dddu(:,k+1)+dddv(:,k)+dddv(:,k+1))/(2.*rcpd*masse(:,k))+d_t_ech(:,k)
+   enddo
+
+ENDIF
+
+!================================================================
+!  Computation of integrated enthalpie and kinetic energy variation
+!  FH (hourdin@lmd.jussieu.fr), 2013/04/25
+!  bils_ec : energie conservation term
+!  bils_ech : part of this term linked to temperature
+!  bils_tke : change of TKE
+!  bils_diss : dissipation of TKE (when activated)
+!  bils_kinetic : change of kinetic energie of the column
+!  bils_enthalp : change of enthalpie
+!  bils_latent  : change of latent heat. Computed between
+!          after reevaporation (at the beginning of the physics)
+!          and before large scale condensation (fisrtilp)
+!================================================================
+
+      bils_ec(:)=0.
+      bils_tke(:)=0.
+      bils_diss(:)=0.
+      bils_kinetic(:)=0.
+      bils_enthalp(:)=0.
+      bils_latent(:)=0.
+      DO k=1,klev
+        bils_ec(:)=bils_ec(:)-d_t_ec(:,k)*masse(:,k)
+        bils_tke(:)=bils_tke(:)+0.5*(dtke(:,k)+dtke(:,k+1))*masse(:,k)
+        bils_diss(:)=bils_diss(:)-d_t_diss(:,k)*masse(:,k)
+        bils_kinetic(:)=bils_kinetic(:)+masse(:,k)* &
+     &           (pun(:,k)*pun(:,k)+pvn(:,k)*pvn(:,k) &
+     &            -puo(:,k)*puo(:,k)-pvo(:,k)*pvo(:,k))
+        bils_enthalp(:)= &
+     &  bils_enthalp(:)+masse(:,k)*(ptn(:,k)-pto(:,k)+d_t_ec(:,k)-d_t_eva(:,k)-d_t_lsc(:,k))
+!    &  bils_enthalp(:)+masse(:,k)*(ptn(:,k)-pto(:,k)+d_t_ec(:,k))
+        bils_latent(:)=bils_latent(:)+masse(:,k)* &
+!    &             (pqn(:,k)-pqo(:,k))
+     &             (pqn(:,k)-pqo(:,k)-d_q_eva(:,k)-d_q_lsc(:,k))
+      ENDDO
+      bils_ec(:)=rcpd*bils_ec(:)/pdtphys
+      bils_tke(:)=bils_tke(:)/pdtphys
+      bils_diss(:)=rcpd*bils_diss(:)/pdtphys
+      bils_kinetic(:)= 0.5*bils_kinetic(:)/pdtphys
+      bils_enthalp(:)=rcpd*bils_enthalp(:)/pdtphys
+      bils_latent(:)=rlvtt*bils_latent(:)/pdtphys
+
+IF (iflag_ener_conserv>=1) THEN
+      bils_ech(:)=0.
+      DO k=1,klev
+        bils_ech(:)=bils_ech(:)-d_t_ech(:,k)*masse(:,k)
+      ENDDO
+      bils_ech(:)=rcpd*bils_ech(:)/pdtphys
+ENDIF
+
+RETURN
+
+END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/evappot.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/evappot.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/evappot.F90	(revision 3330)
@@ -0,0 +1,42 @@
+SUBROUTINE evappot(klon,nbsrf,ftsol,pplay,cdragh,  &
+       &    t_seri,q_seri,u_seri,v_seri,evap_pot)
+
+IMPLICIT NONE
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+
+
+INTEGER :: klon, nbsrf
+REAL, DIMENSION(klon,nbsrf) :: ftsol,evap_pot
+REAL, DIMENSION(klon) :: pplay,t_seri,wind,q_seri,u_seri,v_seri,cdragh
+
+INTEGER :: nsrf,i
+REAL, DIMENSION(klon,nbsrf) :: qsat_ftsol
+REAL, DIMENSION(klon) :: rhos, norme_u
+REAL :: t_coup
+
+      t_coup=234.   ! Quelle horreur !!!!!
+
+DO nsrf = 1, nbsrf
+   DO i = 1, klon
+      IF (ftsol(i,nsrf).LT.t_coup) THEN
+         qsat_ftsol(i,nsrf) = qsats(ftsol(i,nsrf))/pplay(i)
+      ELSE
+         qsat_ftsol(i,nsrf) = qsatl(ftsol(i,nsrf))/pplay(i)
+      ENDIF
+   ENDDO
+ENDDO
+! ========================================================== c
+! Calcul de l'evaporation Potentielle
+
+
+rhos(:) = pplay(:)/(RD*t_seri(:))
+norme_u(:)=1.+sqrt(u_seri(:)*u_seri(:)+v_seri(:)*v_seri(:))
+DO nsrf = 1, nbsrf
+  evap_pot(:,nsrf)=rhos(:)*cdragh(:)*norme_u(:)*(qsat_ftsol(:,nsrf)-q_seri(:))
+ENDDO
+RETURN
+
+END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fcg_gcssold.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fcg_gcssold.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fcg_gcssold.h	(revision 3330)
@@ -0,0 +1,46 @@
+!
+! $Id: fcg_gcssold.h 2010-08-10 17:02:56Z lahellec $
+!
+      logical :: imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold
+      logical :: Tp_ini_gcssold
+      logical :: xTurb_fcg_gcssold
+
+      common /fcg_gcssold/imp_fcg_gcssold,ts_fcg_gcssold,Tp_fcg_gcssold,        & 
+     & Tp_ini_gcssold,                                                          &
+     & xTurb_fcg_gcssold
+
+!$OMP THREADPRIVATE(/fcg_gcssold/)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fcg_racmo.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fcg_racmo.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fcg_racmo.h	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Id: fcg_racmo.h 2011-02-16 17:02:56Z cheruy $
+!
+      real   :: a_guide 
+      logical :: ok_invertp 
+      integer :: forc_trb
+      character*31 :: fich_racmo
+
+      common /fcg_racmo/forc_trb,ok_invertp,a_guide,fich_racmo
+
+!$OMP THREADPRIVATE(/fcg_racmo/)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp.F90	(revision 3330)
@@ -0,0 +1,1197 @@
+!
+! $Id$
+!
+!
+SUBROUTINE fisrtilp(dtime,paprs,pplay,t,q,ptconv,ratqs, &
+     d_t, d_q, d_ql, d_qi, rneb, radliq, rain, snow,          &
+     pfrac_impa, pfrac_nucl, pfrac_1nucl,               &
+     frac_impa, frac_nucl, beta,                        &
+     prfl, psfl, rhcl, zqta, fraca,                     &
+     ztv, zpspsk, ztla, zthl, iflag_cld_th,             &
+     iflag_ice_thermo)
+
+  !
+  USE dimphy
+  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT none
+  !======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS)
+  ! Date: le 20 mars 1995
+  ! Objet: condensation et precipitation stratiforme.
+  !        schema de nuage
+  ! Fusion de fisrt (physique sursaturation, P. LeVan K. Laval)
+  !             et ilp (il pleut, L. Li)
+  ! Principales parties:
+  ! P1> Evaporation de la precipitation (qui vient du niveau k+1)
+  ! P2> Formation du nuage (en k) 
+  ! P3> Formation de la precipitation (en k)
+  !======================================================================
+  !======================================================================
+  include "YOMCST.h"
+  include "fisrtilp.h"
+  include "nuage.h" ! JBM (3/14)
+
+  !
+  ! Principaux inputs:
+  !
+  REAL dtime ! intervalle du temps (s)
+  REAL paprs(klon,klev+1) ! pression a inter-couche
+  REAL pplay(klon,klev) ! pression au milieu de couche
+  REAL t(klon,klev) ! temperature (K)
+  REAL q(klon,klev) ! humidite specifique (kg/kg)
+  !
+  ! Principaux outputs:
+  !
+  REAL d_t(klon,klev) ! incrementation de la temperature (K)
+  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
+  REAL rhcl(klon,klev) ! humidite relative en ciel clair
+  REAL rain(klon) ! pluies (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  REAL prfl(klon,klev+1) ! flux d'eau precipitante aux interfaces (kg/m2/s)
+  REAL psfl(klon,klev+1) ! flux d'eau precipitante aux interfaces (kg/m2/s) 
+  !
+  ! Autres arguments
+  ! 
+  REAL ztv(klon,klev)
+  REAL zqta(klon,klev),fraca(klon,klev) 
+  REAL sigma1(klon,klev),sigma2(klon,klev)
+  REAL qltot(klon,klev),ctot(klon,klev)
+  REAL zpspsk(klon,klev),ztla(klon,klev)
+  REAL zthl(klon,klev)
+  REAL ztfondue, qsl, qsi
+
+  logical lognormale(klon)
+  logical ice_thermo
+
+  !AA
+  ! Coeffients de fraction lessivee : pour OFF-LINE
+  !
+  REAL pfrac_nucl(klon,klev)
+  REAL pfrac_1nucl(klon,klev)
+  REAL pfrac_impa(klon,klev)
+  !
+  ! Fraction d'aerosols lessivee par impaction et par nucleation
+  ! POur ON-LINE
+  !
+  REAL frac_impa(klon,klev)
+  REAL frac_nucl(klon,klev)
+  real zct      ,zcl
+  !AA
+  !
+  ! Options du programme:
+  !
+  REAL seuil_neb ! un nuage existe vraiment au-dela
+  PARAMETER (seuil_neb=0.001)
+
+  INTEGER ninter ! sous-intervals pour la precipitation
+  INTEGER ncoreczq  
+  INTEGER iflag_cld_th
+  INTEGER iflag_ice_thermo
+  PARAMETER (ninter=5)
+  LOGICAL evap_prec ! evaporation de la pluie
+  PARAMETER (evap_prec=.TRUE.)
+  REAL ratqs(klon,klev) ! determine la largeur de distribution de vapeur
+  logical ptconv(klon,klev) ! determine la largeur de distribution de vapeur
+
+  real zpdf_sig(klon),zpdf_k(klon),zpdf_delta(klon)
+  real Zpdf_a(klon),zpdf_b(klon),zpdf_e1(klon),zpdf_e2(klon)
+  real erf   
+  REAL qcloud(klon)
+  !
+  LOGICAL cpartiel ! condensation partielle
+  PARAMETER (cpartiel=.TRUE.)
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+  !
+  ! Variables locales:
+  !
+  INTEGER i, k, n, kk
+  REAL zqs(klon), zdqs(klon), zdelta, zcor, zcvm5  
+  REAL Tbef(klon),qlbef(klon),DT(klon),num,denom
+  LOGICAL convergence(klon)
+  REAL DDT0
+  PARAMETER (DDT0=.01)
+  INTEGER n_i(klon), iter
+  REAL cste
+ 
+  REAL zrfl(klon), zrfln(klon), zqev, zqevt 
+  REAL zifl(klon), zifln(klon), zqev0,zqevi, zqevti
+  REAL zoliq(klon), zcond(klon), zq(klon), zqn(klon), zdelq 
+  REAL zoliqp(klon), zoliqi(klon)
+  REAL zt(klon)
+! JBM (3/14) nexpo is replaced by exposant_glace
+! REAL nexpo ! exponentiel pour glace/eau
+! INTEGER, PARAMETER :: nexpo=6
+  INTEGER exposant_glace_old
+  REAL t_glace_min_old
+  REAL zdz(klon),zrho(klon),ztot      , zrhol(klon)
+  REAL zchau      ,zfroi      ,zfice(klon),zneb(klon)
+  REAL zmelt, zpluie, zice, zcondold
+  PARAMETER (ztfondue=278.15)
+  REAL dzfice(klon)
+  REAL zsolid
+!!!!
+!  Variables pour Bergeron
+  REAL zcp, coef1, DeltaT
+  REAL zqpreci(klon), zqprecl(klon)
+  !
+  LOGICAL appel1er
+  SAVE appel1er
+  !$OMP THREADPRIVATE(appel1er)
+  !
+  !---------------------------------------------------------------
+  !
+  !AA Variables traceurs:
+  !AA  Provisoire !!! Parametres alpha du lessivage
+  !AA  A priori on a 4 scavenging # possibles
+  !
+  REAL a_tr_sca(4)
+  save a_tr_sca
+  !$OMP THREADPRIVATE(a_tr_sca)
+  !
+  ! Variables intermediaires
+  !
+  REAL zalpha_tr
+  REAL zfrac_lessi
+  REAL zprec_cond(klon)
+  !AA
+! RomP >>> 15 nov 2012
+  REAL   beta(klon,klev) ! taux de conversion de l'eau cond
+! RomP <<<
+  REAL zmair, zcpair, zcpeau
+  !     Pour la conversion eau-neige
+  REAL zlh_solid(klon), zm_solid
+  !---------------------------------------------------------------
+  !
+  ! Fonctions en ligne:
+  !
+  REAL fallvs,fallvc ! Vitesse de chute pour cristaux de glace
+                     ! (Heymsfield & Donner, 1990)
+  REAL zzz
+  include "YOETHF.h"
+  include "FCTTRE.h"
+  fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con
+  fallvs (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_lsc
+  !
+  DATA appel1er /.TRUE./
+  !ym
+!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
+
+  if (prt_level>9)write(lunout,*)'NUAGES4 A. JAM'
+  IF (appel1er) THEN
+     !
+     WRITE(lunout,*) 'fisrtilp, ninter:', ninter
+     WRITE(lunout,*) 'fisrtilp, evap_prec:', evap_prec
+     WRITE(lunout,*) 'fisrtilp, cpartiel:', cpartiel
+     IF (ABS(dtime/REAL(ninter)-360.0).GT.0.001) THEN
+        WRITE(lunout,*) 'fisrtilp: Ce n est pas prevu, voir Z.X.Li', dtime
+        WRITE(lunout,*) 'Je prefere un sous-intervalle de 6 minutes'
+        !         CALL abort
+     ENDIF
+     appel1er = .FALSE.
+     !
+     !AA initialiation provisoire
+     a_tr_sca(1) = -0.5
+     a_tr_sca(2) = -0.5
+     a_tr_sca(3) = -0.5
+     a_tr_sca(4) = -0.5
+     !
+     !AA Initialisation a 1 des coefs des fractions lessivees 
+     !
+     !cdir collapse
+     DO k = 1, klev
+        DO i = 1, klon
+           pfrac_nucl(i,k)=1.
+           pfrac_1nucl(i,k)=1.
+           pfrac_impa(i,k)=1.
+           beta(i,k)=0.  !RomP initialisation
+        ENDDO
+     ENDDO
+
+  ENDIF          !  test sur appel1er
+  !
+  !MAf Initialisation a 0 de zoliq
+  !      DO i = 1, klon
+  !         zoliq(i)=0.
+  !      ENDDO 
+  ! Determiner les nuages froids par leur temperature
+  !  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
+    t_glace_min_old = RTT - 15.0
+    !AJ<
+    IF (ice_thermo) THEN
+!     nexpo = 2
+      exposant_glace_old = 2
+    ELSE
+!     nexpo = 6
+      exposant_glace_old = 6
+    ENDIF
+    
+  ENDIF
+  
+!!  RLVTT = 2.501e6 ! pas de redefinition des constantes physiques (jyg)
+!!  RLSTT = 2.834e6 ! pas de redefinition des constantes physiques (jyg)
+!>AJ
+  !cc      nexpo = 1
+  !
+  ! Initialiser les sorties:
+  !
+  !cdir collapse
+  DO k = 1, klev+1
+     DO i = 1, klon
+        prfl(i,k) = 0.0
+        psfl(i,k) = 0.0
+     ENDDO
+  ENDDO
+
+  !cdir collapse
+  DO k = 1, klev
+     DO i = 1, klon
+        d_t(i,k) = 0.0
+        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
+        frac_nucl(i,k) = 1. 
+        frac_impa(i,k) = 1. 
+     ENDDO
+  ENDDO
+  DO i = 1, klon
+     rain(i) = 0.0
+     snow(i) = 0.0
+     zoliq(i)=0.
+     !     ENDDO
+     !
+     ! Initialiser le flux de precipitation a zero
+     !
+     !     DO i = 1, klon
+     zrfl(i) = 0.0
+     zifl(i) = 0.0
+     zneb(i) = seuil_neb
+  ENDDO
+  !
+  !
+  !AA Pour plus de securite 
+
+  zalpha_tr   = 0.
+  zfrac_lessi = 0.
+
+  !AA==================================================================
+  !
+  ncoreczq=0
+  ! BOUCLE VERTICALE (DU HAUT VERS LE BAS)
+  !
+  DO k = klev, 1, -1
+     !
+     !AA===============================================================
+     !
+     ! Initialisation temperature et vapeur
+     DO i = 1, klon
+        zt(i)=t(i,k)
+        zq(i)=q(i,k)
+     ENDDO
+     !
+     ! Calculer la varition de temp. de l'air du a la chaleur sensible
+     ! transporter par la pluie.
+     ! Il resterait a rajouter cet effet de la chaleur sensible sur les
+     ! flux de surface, du a la diff. de temp. entre le 1er niveau et la
+     ! surface.
+     !
+     IF(k.LE.klevm1) THEN         
+        DO i = 1, klon
+           !IM
+           zmair=(paprs(i,k)-paprs(i,k+1))/RG
+           zcpair=RCPD*(1.0+RVTMP2*zq(i))
+           zcpeau=RCPD*RVTMP2
+           zt(i) = ( (t(i,k+1)+d_t(i,k+1))*zrfl(i)*dtime*zcpeau &
+                + zmair*zcpair*zt(i) ) &
+                / (zmair*zcpair + zrfl(i)*dtime*zcpeau)
+           !     C        WRITE (6,*) 'cppluie ', zt(i)-(t(i,k+1)+d_t(i,k+1))
+        ENDDO
+     ENDIF
+     ! ----------------------------------------------------------------
+     ! P1> Debut evaporation de la precipitation
+     ! ----------------------------------------------------------------
+     IF (evap_prec) THEN
+        DO i = 1, klon
+!AJ<
+!!           IF (zrfl(i) .GT.0.) THEN
+           IF (zrfl(i)+zifl(i).GT.0.) THEN
+!>AJ
+              ! Calcul du qsat
+              IF (thermcep) THEN
+                 zdelta=MAX(0.,SIGN(1.,RTT-zt(i)))
+                 zqs(i)= R2ES*FOEEW(zt(i),zdelta)/pplay(i,k)
+                 zqs(i)=MIN(0.5,zqs(i))
+                 zcor=1./(1.-RETV*zqs(i))
+                 zqs(i)=zqs(i)*zcor
+              ELSE
+                 IF (zt(i) .LT. t_coup) THEN
+                    zqs(i) = qsats(zt(i)) / pplay(i,k)
+                 ELSE
+                    zqs(i) = qsatl(zt(i)) / pplay(i,k)
+                 ENDIF
+              ENDIF
+           ENDIF ! (zrfl(i)+zifl(i).GT.0.)
+        ENDDO
+!AJ<
+       IF (.NOT. ice_thermo) THEN
+        DO i = 1, klon
+!AJ<
+!!           IF (zrfl(i) .GT.0.) THEN
+           IF (zrfl(i)+zifl(i).GT.0.) THEN
+!>AJ
+                ! Evap max pour ne pas saturer la fraction sous le nuage
+                zqev = MAX (0.0, (zqs(i)-zq(i))*zneb(i) )
+                ! Calcul de l'evaporation du flux de precip herite
+                !   d'au-dessus
+                zqevt = coef_eva * (1.0-zq(i)/zqs(i)) * SQRT(zrfl(i)) &
+                     * (paprs(i,k)-paprs(i,k+1))/pplay(i,k)*zt(i)*RD/RG
+                zqevt = MAX(0.0,MIN(zqevt,zrfl(i))) &
+                     * RG*dtime/(paprs(i,k)-paprs(i,k+1))
+                ! Seuil pour ne pas saturer la fraction sous le nuage
+                zqev = MIN (zqev, zqevt)
+                ! Nouveau flux de precip
+                zrfln(i) = zrfl(i) - zqev*(paprs(i,k)-paprs(i,k+1)) &
+                     /RG/dtime
+                ! Aucun flux liquide pour T < t_coup
+                IF (zt(i) .LT. t_coup.and.reevap_ice) zrfln(i)=0.
+                ! Nouvelle vapeur 
+                zq(i) = zq(i) - (zrfln(i)-zrfl(i)) &
+                     * (RG/(paprs(i,k)-paprs(i,k+1)))*dtime
+                ! Nouvelle temperature (chaleur latente)
+                zt(i) = zt(i) + (zrfln(i)-zrfl(i)) &
+                     * (RG/(paprs(i,k)-paprs(i,k+1)))*dtime &
+                     * RLVTT/RCPD/(1.0+RVTMP2*zq(i))
+                zrfl(i) = zrfln(i)
+                zifl(i) = 0.
+           ENDIF ! (zrfl(i)+zifl(i).GT.0.)
+        ENDDO
+!
+       ELSE ! (.NOT. ice_thermo) 
+!
+        DO i = 1, klon
+!AJ<
+!!           IF (zrfl(i) .GT.0.) THEN
+           IF (zrfl(i)+zifl(i).GT.0.) THEN
+!>AJ
+     !JAM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+     ! Modification de l'evaporation avec la glace
+     ! Differentiation entre precipitation liquide et solide 
+     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
+     
+     ! Evap max pour ne pas saturer la fraction sous le nuage
+         zqev0 = MAX (0.0, (zqs(i)-zq(i))*zneb(i) )
+     !    zqev0 = MAX (0.0, zqs(i)-zq(i) ) 
+
+     !JAM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+     ! On differencie qsat pour l'eau et la glace
+     ! Si zdelta=1. --> glace
+     ! Si zdelta=0. --> eau liquide
+     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+        
+         ! Calcul du qsat par rapport a l'eau liquide
+         qsl= R2ES*FOEEW(zt(i),0.)/pplay(i,k)
+         qsl= MIN(0.5,qsl)
+         zcor= 1./(1.-RETV*qsl)
+         qsl= qsl*zcor
+         
+         ! Calcul de l'evaporation du flux de precip herite
+         !   d'au-dessus
+         ! Formulation en racine du flux de precip
+         ! (Klemp & Wilhelmson, 1978; Sundqvist, 1988)
+         zqevt = 1.*coef_eva*(1.0-zq(i)/qsl)*SQRT(zrfl(i)) &
+              *(paprs(i,k)-paprs(i,k+1))/pplay(i,k)*zt(i)*RD/RG
+         zqevt = MAX(0.0,MIN(zqevt,zrfl(i))) &
+              *RG*dtime/(paprs(i,k)-paprs(i,k+1)) 
+
+         
+         ! Calcul du qsat par rapport a la glace
+         qsi= R2ES*FOEEW(zt(i),1.)/pplay(i,k)
+         qsi= MIN(0.5,qsi)
+         zcor= 1./(1.-RETV*qsi)
+         qsi= qsi*zcor
+
+         ! Calcul de la sublimation du flux de precip solide herite
+         !   d'au-dessus
+         zqevti = 1.*coef_eva*(1.0-zq(i)/qsi)*SQRT(zifl(i)) &
+              *(paprs(i,k)-paprs(i,k+1))/pplay(i,k)*zt(i)*RD/RG
+         zqevti = MAX(0.0,MIN(zqevti,zifl(i))) &
+              *RG*dtime/(paprs(i,k)-paprs(i,k+1))   
+
+              
+     !JAM!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+     ! Verification sur l'evaporation
+     ! On s'assure qu'on ne sature pas 
+     ! la fraction sous le nuage sinon on
+     ! repartit zqev0 en gardant la proportion
+     ! liquide / glace
+     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+     
+         IF (zqevt+zqevti.GT.zqev0) THEN
+	          zqev=zqev0*zqevt/(zqevt+zqevti)
+	          zqevi=zqev0*zqevti/(zqevt+zqevti)
+             
+         ELSE
+             IF (zqevt+zqevti.GT.0.) THEN
+	          zqev=MIN(zqev0*zqevt/(zqevt+zqevti),zqevt)
+	          zqevi=MIN(zqev0*zqevti/(zqevt+zqevti),zqevti)
+             ELSE
+             zqev=0.
+             zqevi=0.
+             ENDIF
+         ENDIF
+         ! Nouveaux flux de precip liquide et solide 
+         zrfln(i) = Max(0.,zrfl(i) - zqev*(paprs(i,k)-paprs(i,k+1)) &
+                                 /RG/dtime)
+         zifln(i) = Max(0.,zifl(i) - zqevi*(paprs(i,k)-paprs(i,k+1)) &
+                                 /RG/dtime)
+
+         ! Mise a jour de la vapeur, temperature et flux de precip
+         zq(i) = zq(i) - (zrfln(i)+zifln(i)-zrfl(i)-zifl(i)) &
+                  * (RG/(paprs(i,k)-paprs(i,k+1)))*dtime
+         zt(i) = zt(i) + (zrfln(i)-zrfl(i)) &
+                  * (RG/(paprs(i,k)-paprs(i,k+1)))*dtime &
+                  * RLVTT/RCPD/(1.0+RVTMP2*zq(i)) &
+                  + (zifln(i)-zifl(i)) &
+                  * (RG/(paprs(i,k)-paprs(i,k+1)))*dtime &
+                  * RLSTT/RCPD/(1.0+RVTMP2*zq(i))
+     
+         zrfl(i) = zrfln(i)
+         zifl(i) = zifln(i)
+
+!CR ATTENTION: deplacement de la fonte de la glace
+!jyg : Bug !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! jyg
+!!!        zmelt = ((zt(i)-273.15)/(ztfondue-273.15))**2  !!!!!!!!! jyg
+!jyg : Bug !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! jyg
+           zmelt = ((zt(i)-273.15)/(ztfondue-273.15))             ! jyg
+           zmelt = MIN(MAX(zmelt,0.),1.)
+           ! Fusion de la glace
+           zrfl(i)=zrfl(i)+zmelt*zifl(i)
+           zifl(i)=zifl(i)*(1.-zmelt)
+!           print*,zt(i),'octavio1'
+           ! Chaleur latente de fusion
+           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
+
+      ENDIF ! (.NOT. ice_thermo) 
+     
+     ! ----------------------------------------------------------------
+     ! Fin evaporation de la precipitation
+     ! ----------------------------------------------------------------
+     ENDIF ! (evap_prec)
+     !
+     ! Calculer Qs et L/Cp*dQs/dT:
+     !
+     IF (thermcep) THEN
+        DO i = 1, klon
+           zdelta = MAX(0.,SIGN(1.,RTT-zt(i)))
+           zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
+           zcvm5 = zcvm5 /RCPD/(1.0+RVTMP2*zq(i))
+           zqs(i) = R2ES*FOEEW(zt(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(zt(i),zdelta,zcvm5,zqs(i),zcor)
+        ENDDO
+     ELSE
+        DO i = 1, klon
+           IF (zt(i).LT.t_coup) THEN
+              zqs(i) = qsats(zt(i))/pplay(i,k)
+              zdqs(i) = dqsats(zt(i),zqs(i))
+           ELSE
+              zqs(i) = qsatl(zt(i))/pplay(i,k)
+              zdqs(i) = dqsatl(zt(i),zqs(i))
+           ENDIF
+        ENDDO
+     ENDIF
+     !
+     ! Determiner la condensation partielle et calculer la quantite
+     ! de l'eau condensee:
+     !
+!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
+
+     ! ----------------------------------------------------------------
+     ! P2> Formation du nuage
+     ! ----------------------------------------------------------------
+     IF (cpartiel) THEN
+
+        !        print*,'Dans partiel k=',k
+        !
+        !   Calcul de l'eau condensee et de la fraction nuageuse et de l'eau
+        !   nuageuse a partir des PDF de Sandrine Bony.
+        !   rneb  : fraction nuageuse
+        !   zqn   : eau totale dans le nuage
+        !   zcond : eau condensee moyenne dans la maille.
+        !  on prend en compte le réchauffement qui diminue la partie
+        ! condensee
+        !
+        !   Version avec les raqts
+
+        if (iflag_pdf.eq.0) then
+
+           ! version creneau de (Li, 1998)
+           do i=1,klon
+              zdelq = min(ratqs(i,k),0.99) * zq(i)
+              rneb(i,k) = (zq(i)+zdelq-zqs(i)) / (2.0*zdelq)
+              zqn(i) = (zq(i)+zdelq+zqs(i))/2.0
+           enddo
+
+        else
+           !
+           !   Version avec les nouvelles PDFs.
+           do i=1,klon
+              if(zq(i).lt.1.e-15) then
+                 ncoreczq=ncoreczq+1
+                 zq(i)=1.e-15
+              endif
+           enddo
+
+           if (iflag_cld_th>=5) then
+
+              call cloudth(klon,klev,k,ztv, &
+                   zq,zqta,fraca, &
+                   qcloud,ctot,zpspsk,paprs,ztla,zthl, &
+                   ratqs,zqs,t)
+
+              do i=1,klon
+                 rneb(i,k)=ctot(i,k)
+                 zqn(i)=qcloud(i)
+              enddo
+
+           endif
+
+           if (iflag_cld_th <= 4) then
+              lognormale = .true.
+           elseif (iflag_cld_th >= 6) then
+              ! lognormale en l'absence des thermiques
+              lognormale = fraca(:,k) < 1e-10
+           else
+              ! Dans le cas iflag_cld_th=5, on prend systématiquement la
+              ! bi-gaussienne
+              lognormale = .false.
+           end if
+
+!CR: variation de qsat avec T en presence de glace ou non
+!initialisations
+           do i=1,klon
+              DT(i) = 0.
+              n_i(i)=0
+              Tbef(i)=zt(i)
+              qlbef(i)=0.
+           enddo
+
+
+!Boucle iterative: ATTENTION, l'option -1 n'est plus activable ici
+           if (iflag_fisrtilp_qsat.ge.0) then
+             ! Iteration pour condensation avec variation de qsat(T) 
+             ! -----------------------------------------------------
+             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.ge.1) then
+                    zdelta = MAX(0.,SIGN(1.,t_glace_min-Tbef(i)))
+                    endif
+                 endif
+                 ! Calcul des PDF lognormales
+                 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
+
+                 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
+                 n_i(i)=n_i(i)+1
+                 endif
+                 enddo
+
+                 else
+                 ! Iteration pour convergence avec qsat(T)
+                 if (iflag_t_glace.ge.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.ge.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
+  
+          
+             enddo ! iter=1,iflag_fisrtilp_qsat+1
+             ! Fin d'iteration pour condensation avec variation de qsat(T) 
+             ! -----------------------------------------------------------
+           endif
+
+
+        endif ! iflag_pdf
+
+
+!        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
+              rneb(i,k) = 0.0
+              zcond(i) = 0.0
+              rhcl(i,k)=zq(i)/zqs(i)
+           ELSE IF (rneb(i,k) .GE. 1.0) THEN
+              zqn(i) = zq(i)
+              rneb(i,k) = 1.0                 
+              zcond(i) = MAX(0.0,zqn(i)-zqs(i))/(1+zdqs(i))
+              rhcl(i,k)=1.0
+           ELSE
+              zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)/(1+zdqs(i))
+              rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i)
+           ENDIF
+       ENDDO
+       ENDIF
+!------------------------------------------
+
+!        ELSE
+
+        ! Calcul de l'eau in-cloud (zqn),
+        ! moyenne dans la maille (zcond),
+        ! fraction nuageuse (rneb) et
+        ! humidite relative ciel-clair (rhcl)
+        DO i=1,klon
+           IF (rneb(i,k) .LE. 0.0) THEN
+              zqn(i) = 0.0
+              rneb(i,k) = 0.0
+              zcond(i) = 0.0
+              rhcl(i,k)=zq(i)/zqs(i)
+           ELSE IF (rneb(i,k) .GE. 1.0) THEN
+              zqn(i) = zq(i)
+              rneb(i,k) = 1.0
+              zcond(i) = MAX(0.0,zqn(i)-zqs(i))
+              rhcl(i,k)=1.0
+           ELSE
+              zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)
+              rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i)
+           ENDIF
+        ENDDO
+
+
+!        ENDIF
+
+     ELSE ! de IF (cpartiel) 
+        ! Cas "tout ou rien"
+        DO i = 1, klon
+           IF (zq(i).GT.zqs(i)) THEN
+              rneb(i,k) = 1.0
+           ELSE
+              rneb(i,k) = 0.0
+           ENDIF
+           zcond(i) = MAX(0.0,zq(i)-zqs(i))/(1.+zdqs(i))
+        ENDDO
+     ENDIF
+     ! ----------------------------------------------------------------
+     ! Fin de formation du nuage
+     ! ----------------------------------------------------------------
+     !
+     ! Mise a jour vapeur d'eau
+     DO i = 1, klon
+        zq(i) = zq(i) - zcond(i)
+        !         zt(i) = zt(i) + zcond(i) * RLVTT/RCPD
+     ENDDO
+!AJ<
+     ! Chaleur latente apres formation nuage
+     ! -------------------------------------
+     IF (.NOT. ice_thermo) THEN
+        if (iflag_fisrtilp_qsat.lt.1) then
+           DO i = 1, klon
+             zt(i) = zt(i) + zcond(i) * RLVTT/RCPD/(1.0+RVTMP2*zq(i))
+           ENDDO
+        else if (iflag_fisrtilp_qsat.gt.0) then
+           DO i= 1, klon
+             zt(i) = zt(i) + zcond(i) * RLVTT/RCPD/(1.0+RVTMP2*(zq(i)+zcond(i)))
+           ENDDO
+        endif
+     ELSE
+         if (iflag_t_glace.ge.1) then
+            CALL icefrac_lsc(klon,zt(:),pplay(:,k)/paprs(:,1),zfice(:))
+         endif
+         if (iflag_fisrtilp_qsat.lt.1) then
+           DO i = 1, klon
+! 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 - (zt(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))
+           ENDDO
+         else
+           DO i=1, klon
+! 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 - (zt(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'
+       ENDIF
+!>AJ
+     ! ----------------------------------------------------------------
+     ! P3> Formation des precipitations
+     ! ----------------------------------------------------------------
+     !
+     ! Partager l'eau condensee en precipitation et eau liquide nuageuse
+     !
+
+     ! Initialisation de zoliq (eau condensee moyenne dans la maille)
+     DO i = 1, klon
+        IF (rneb(i,k).GT.0.0) THEN
+           zoliq(i) = zcond(i)
+           zrho(i) = pplay(i,k) / zt(i) / RD
+           zdz(i) = (paprs(i,k)-paprs(i,k+1)) / (zrho(i)*RG)
+        ENDIF
+     ENDDO
+!AJ<
+     IF (.NOT. ice_thermo) THEN
+       IF (iflag_t_glace.EQ.0) THEN
+         DO i = 1, klon
+            IF (rneb(i,k).GT.0.0) THEN
+               zfice(i) = 1.0 - (zt(i)-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
+!              zfice(i) = zfice(i)**nexpo
+         !!      zfice(i)=0.
+            ENDIF
+         ENDDO
+       ELSE ! of IF (iflag_t_glace.EQ.0)
+         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
+
+     ! Calcul de radliq (eau condensee pour le rayonnement)
+     ! Iteration pour realiser une moyenne de l'eau nuageuse lors de la precip
+     ! Remarque: ce n'est donc pas l'eau restante en fin de precip mais une
+     ! eau moyenne restante dans le nuage sur la duree du pas de temps qui est
+     ! transmise au rayonnement;
+     ! ----------------------------------------------------------------
+     DO i = 1, klon
+        IF (rneb(i,k).GT.0.0) THEN
+           zneb(i) = MAX(rneb(i,k), seuil_neb)
+     !      zt(i) = zt(i)+zcond(i)*zfice(i)*RLMLT/RCPD/(1.0+RVTMP2*zq(i))  
+!           print*,zt(i),'fractionglace'
+!>AJ
+           radliq(i,k) = zoliq(i)/REAL(ninter+1)
+        ENDIF
+     ENDDO
+     !
+     DO n = 1, ninter
+        DO i = 1, klon
+           IF (rneb(i,k).GT.0.0) THEN
+              zrhol(i) = zrho(i) * zoliq(i) / zneb(i)
+              ! Initialization of zpluie and zice:
+              zpluie=0
+              zice=0
+              IF (zneb(i).EQ.seuil_neb) THEN
+                 ztot = 0.0
+              ELSE
+                 !  quantite d'eau a eliminer: zchau (Sundqvist, 1978)
+                 !  meme chose pour la glace: zfroi (Zender & Kiehl, 1997)
+                 if (ptconv(i,k)) then
+                    zcl   =cld_lc_con
+                    zct   =1./cld_tau_con
+                    zfroi    = dtime/REAL(ninter)/zdz(i)*zoliq(i) &
+                         *fallvc(zrhol(i)) * zfice(i)
+                 else
+                    zcl   =cld_lc_lsc
+                    zct   =1./cld_tau_lsc
+                    zfroi    = dtime/REAL(ninter)/zdz(i)*zoliq(i) &
+                         *fallvs(zrhol(i)) * zfice(i)
+                 endif
+                 zchau    = zct   *dtime/REAL(ninter) * zoliq(i) &
+                      *(1.0-EXP(-(zoliq(i)/zneb(i)/zcl   )**2)) *(1.-zfice(i))
+!AJ<
+                 IF (.NOT. ice_thermo) THEN
+                   ztot    = zchau + zfroi
+                 ELSE
+                   zpluie = MIN(MAX(zchau,0.0),zoliq(i)*(1.-zfice(i)))
+                   zice = MIN(MAX(zfroi,0.0),zoliq(i)*zfice(i)) 
+                   ztot    = zpluie    + zice
+                 ENDIF
+!>AJ
+                 ztot    = MAX(ztot   ,0.0)
+              ENDIF
+              ztot    = MIN(ztot,zoliq(i))
+!AJ<
+     !         zoliqp = MAX(zoliq(i)*(1.-zfice(i))-1.*zpluie   , 0.0)
+     !         zoliqi = MAX(zoliq(i)*zfice(i)-1.*zice   , 0.0)
+              zoliqp(i) = MAX(zoliq(i)*(1.-zfice(i))-1.*zpluie  , 0.0)
+              zoliqi(i) = MAX(zoliq(i)*zfice(i)-1.*zice  , 0.0)
+              zoliq(i) = MAX(zoliq(i)-ztot   , 0.0)
+!>AJ
+              radliq(i,k) = radliq(i,k) + zoliq(i)/REAL(ninter+1)
+           ENDIF
+        ENDDO  ! i = 1,klon
+     ENDDO     ! n = 1,ninter
+     ! ----------------------------------------------------------------
+     !
+     IF (.NOT. ice_thermo) THEN
+       DO i = 1, klon
+         IF (rneb(i,k).GT.0.0) THEN
+           d_ql(i,k) = zoliq(i)
+           zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0) &
+                * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
+         ENDIF
+       ENDDO
+     ELSE
+!
+!CR&JYG<
+! On prend en compte l'effet Bergeron dans les flux de precipitation :
+! Si T < 0 C, alors les precipitations liquides sont converties en glace, ce qui
+! provoque un accroissement de temperature DeltaT. L'effet de DeltaT sur le condensat
+! et les precipitations est grossierement pris en compte en linearisant les equations 
+! et en approximant le processus de precipitation liquide par un processus a seuil.
+! On fait l'hypothese que le condensat nuageux n'est pas modifié dans cette opération.
+! Le condensat precipitant liquide est supprime (dans la limite DeltaT<273-T).
+! Le condensat precipitant solide est augmente.
+! La vapeur d'eau est augmentee.
+!
+       IF ((iflag_bergeron .EQ. 2)) THEN
+         DO i = 1, klon
+           IF (rneb(i,k) .GT. 0.0) THEN
+             zqpreci(i)=(zcond(i)-zoliq(i))*zfice(i)
+             zqprecl(i)=(zcond(i)-zoliq(i))*(1.-zfice(i))
+             zcp=RCPD*(1.0+RVTMP2*(zq(i)+zcond(i)))
+             coef1 = RLMLT*zdqs(i)/RLVTT
+             DeltaT = max( min( RTT-zt(i), RLMLT*zqprecl(i)/zcp/(1.+coef1) ) , 0.)
+             zqpreci(i) = zqpreci(i) + zcp/RLMLT*DeltaT
+             zqprecl(i) = max( zqprecl(i) - zcp/RLMLT*(1.+coef1)*DeltaT, 0. )
+             zcond(i)   = max( zcond(i)   - zcp/RLVTT*zdqs(i)*DeltaT, 0. )
+             zq(i)      = zq(i)      + zcp/RLVTT*zdqs(i)*DeltaT
+             zt(i)      = zt(i)      + DeltaT
+           ENDIF  ! rneb(i,k) .GT. 0.0
+         ENDDO
+         DO i = 1, klon
+           IF (rneb(i,k).GT.0.0) THEN
+             d_ql(i,k) = (1-zfice(i))*zoliq(i)
+             d_qi(i,k) = zfice(i)*zoliq(i)
+             zrfl(i) = zrfl(i)+ zqprecl(i) &
+                 *(paprs(i,k)-paprs(i,k+1))/(RG*dtime) 
+             zifl(i) = zifl(i)+ zqpreci(i) &
+                      *(paprs(i,k)-paprs(i,k+1))/(RG*dtime)  
+           ENDIF                      
+         ENDDO
+!!
+       ELSE  ! iflag_bergeron
+!>CR&JYG
+!!
+       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) &
+               *(paprs(i,k)-paprs(i,k+1))/(RG*dtime) 
+           zifl(i) = zifl(i)+ MAX(zcond(i)*zfice(i)-zoliqi(i),0.0) &
+                    *(paprs(i,k)-paprs(i,k+1))/(RG*dtime)  
+     !      zrfl(i) = zrfl(i)+  zpluie                         &
+     !          *(paprs(i,k)-paprs(i,k+1))/(RG*dtime) 
+     !      zifl(i) = zifl(i)+  zice                    &
+     !               *(paprs(i,k)-paprs(i,k+1))/(RG*dtime)                                    
+
+!CR : on prend en compte l'effet Bergeron dans les flux de precipitation
+           IF ((iflag_bergeron .EQ. 1) .AND. (zt(i) .LT. 273.15)) THEN
+              zsolid = zrfl(i)
+              zifl(i) = zifl(i)+zrfl(i)
+              zrfl(i) = 0.
+              zt(i)=zt(i)+zsolid*(RG*dtime)/(paprs(i,k)-paprs(i,k+1)) &
+                      *(RLSTT-RLVTT)/RCPD/(1.0+RVTMP2*zq(i))
+           ENDIF  ! (iflag_bergeron .EQ. 1) .AND. (zt(i) .LT. 273.15)
+!RC   
+
+         ENDIF ! rneb(i,k).GT.0.0
+       ENDDO
+
+       ENDIF  ! iflag_bergeron .EQ. 2
+     ENDIF  ! .NOT. ice_thermo
+
+!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))
+!           print*,zt(i),zrfl(i),zifl(i),zmelt,'octavio2'
+!       ENDDO
+!     ENDIF
+
+       
+     IF (.NOT. ice_thermo) THEN
+       DO i = 1, klon
+         IF (zt(i).LT.RTT) THEN
+           psfl(i,k)=zrfl(i)
+         ELSE
+           prfl(i,k)=zrfl(i)
+         ENDIF
+       ENDDO
+     ELSE
+     ! JAM*************************************************
+     ! Revoir partie ci-dessous: a quoi servent psfl et prfl?
+     ! *****************************************************
+
+       DO i = 1, klon
+     !   IF (zt(i).LT.RTT) THEN
+           psfl(i,k)=zifl(i) 
+     !   ELSE
+           prfl(i,k)=zrfl(i)
+     !   ENDIF
+!>AJ
+       ENDDO
+     ENDIF
+     ! ----------------------------------------------------------------
+     ! Fin de formation des precipitations
+     ! ----------------------------------------------------------------
+     !
+     !
+     ! Calculer les tendances de q et de t:
+     !
+     DO i = 1, klon
+        d_q(i,k) = zq(i) - q(i,k)
+        d_t(i,k) = zt(i) - t(i,k)
+     ENDDO
+     !
+     !AA--------------- Calcul du lessivage stratiforme  -------------
+
+     DO i = 1,klon
+        !
+        if(zcond(i).gt.zoliq(i)+1.e-10) then
+         beta(i,k) = (zcond(i)-zoliq(i))/zcond(i)/dtime
+        else
+         beta(i,k) = 0.
+        endif
+        zprec_cond(i) = MAX(zcond(i)-zoliq(i),0.0) &
+             * (paprs(i,k)-paprs(i,k+1))/RG
+        IF (rneb(i,k).GT.0.0.and.zprec_cond(i).gt.0.) THEN
+           !AA lessivage nucleation LMD5 dans la couche elle-meme
+          IF (iflag_t_glace.EQ.0) THEN
+           if (t(i,k) .GE. t_glace_min_old) THEN
+              zalpha_tr = a_tr_sca(3)
+           else
+              zalpha_tr = a_tr_sca(4)
+           endif
+          ELSE ! of IF (iflag_t_glace.EQ.0)
+           if (t(i,k) .GE. t_glace_min) THEN
+              zalpha_tr = a_tr_sca(3)
+           else
+              zalpha_tr = a_tr_sca(4)
+           endif
+          ENDIF
+           zfrac_lessi = 1. - EXP(zalpha_tr*zprec_cond(i)/zneb(i))
+           pfrac_nucl(i,k)=pfrac_nucl(i,k)*(1.-zneb(i)*zfrac_lessi)
+           frac_nucl(i,k)= 1.-zneb(i)*zfrac_lessi 
+           !
+           ! nucleation avec un facteur -1 au lieu de -0.5
+           zfrac_lessi = 1. - EXP(-zprec_cond(i)/zneb(i))
+           pfrac_1nucl(i,k)=pfrac_1nucl(i,k)*(1.-zneb(i)*zfrac_lessi)
+        ENDIF
+        !
+     ENDDO      ! boucle sur i
+     !
+     !AA Lessivage par impaction dans les couches en-dessous
+     DO kk = k-1, 1, -1
+        DO i = 1, klon
+           IF (rneb(i,k).GT.0.0.and.zprec_cond(i).gt.0.) THEN
+             IF (iflag_t_glace.EQ.0) THEN
+              if (t(i,kk) .GE. t_glace_min_old) THEN
+                 zalpha_tr = a_tr_sca(1)
+              else
+                 zalpha_tr = a_tr_sca(2)
+              endif
+             ELSE ! of IF (iflag_t_glace.EQ.0)
+              if (t(i,kk) .GE. t_glace_min) THEN
+                 zalpha_tr = a_tr_sca(1)
+              else
+                 zalpha_tr = a_tr_sca(2)
+              endif
+             ENDIF
+              zfrac_lessi = 1. - EXP(zalpha_tr*zprec_cond(i)/zneb(i))
+              pfrac_impa(i,kk)=pfrac_impa(i,kk)*(1.-zneb(i)*zfrac_lessi)
+              frac_impa(i,kk)= 1.-zneb(i)*zfrac_lessi
+           ENDIF
+        ENDDO
+     ENDDO
+     !
+     !AA===============================================================
+     !                     FIN DE LA BOUCLE VERTICALE  
+  end DO
+  !
+  !AA==================================================================
+  !
+  ! 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)+zifl(i)
+!>AJ
+        zlh_solid(i) = RLSTT-RLVTT
+     ELSE
+        rain(i) = zrfl(i)
+        zlh_solid(i) = 0.
+     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
+        zcpair=RCPD*(1.0+RVTMP2*(q(i,k)+d_q(i,k)))
+        zmair=(paprs(i,k)-paprs(i,k+1))/RG
+        zm_solid = (prfl(i,k)-prfl(i,k+1)+psfl(i,k)-psfl(i,k+1))*dtime
+        d_t(i,k) = d_t(i,k) + zlh_solid(i) *zm_solid / (zcpair*zmair)
+     END DO
+  END DO
+  ENDIF
+  !
+
+  if (ncoreczq>0) then
+     WRITE(lunout,*)'WARNING : ZQ dans fisrtilp ',ncoreczq,' val < 1.e-15.'
+  endif
+
+END SUBROUTINE fisrtilp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp.h	(revision 3330)
@@ -0,0 +1,32 @@
+!
+! $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)
+!
+      REAL cld_lc_lsc,cld_lc_con
+      REAL cld_tau_lsc,cld_tau_con
+      REAL ffallv_lsc,ffallv_con
+      REAL coef_eva
+      LOGICAL reevap_ice
+      INTEGER iflag_pdf
+      INTEGER iflag_fisrtilp_qsat
+      INTEGER iflag_bergeron
+
+      common/comfisrtilp/                                               &
+     &     cld_lc_lsc                                                   &
+     &     ,cld_lc_con                                                  &
+     &     ,cld_tau_lsc                                                 &
+     &     ,cld_tau_con                                                 &
+     &     ,ffallv_lsc                                                  &
+     &     ,ffallv_con                                                  &
+     &     ,coef_eva                                                    &
+     &     ,reevap_ice                                                  &
+     &     ,iflag_fisrtilp_qsat                                         &
+     &     ,iflag_bergeron                                              &
+     &     ,iflag_pdf        
+
+!$OMP THREADPRIVATE(/comfisrtilp/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp_tr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp_tr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fisrtilp_tr.F90	(revision 3330)
@@ -0,0 +1,429 @@
+
+! $Id$
+
+
+SUBROUTINE fisrtilp_tr(dtime, paprs, pplay, t, q, ratqs, d_t, d_q, d_ql, &
+    rneb, radliq, rain, snow, pfrac_impa, pfrac_nucl, pfrac_1nucl, frac_impa, &
+    frac_nucl, prfl, psfl, rhcl) ! relative humidity in clear sky (needed for aer optical
+  ! properties; aeropt.F)
+
+
+  USE dimphy
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS)
+  ! Date: le 20 mars 1995
+  ! Objet: condensation et precipitation stratiforme.
+  ! schema de nuage
+  ! ======================================================================
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  REAL dtime ! intervalle du temps (s)
+  REAL paprs(klon, klev+1) ! pression a inter-couche
+  REAL pplay(klon, klev) ! pression au milieu de couche
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (kg/kg)
+  REAL d_t(klon, klev) ! incrementation de la temperature (K)
+  REAL d_q(klon, klev) ! incrementation de la vapeur d'eau
+  REAL d_ql(klon, klev) ! incrementation de l'eau liquide
+  REAL rneb(klon, klev) ! fraction nuageuse
+  REAL radliq(klon, klev) ! eau liquide utilisee dans rayonnements
+  REAL rain(klon) ! pluies (mm/s)
+  REAL snow(klon) ! neige (mm/s)
+  REAL prfl(klon, klev+1) ! flux d'eau precipitante aux interfaces (kg/m2/s)
+  REAL psfl(klon, klev+1) ! flux d'eau precipitante aux interfaces (kg/m2/s)
+
+  ! jq   For aerosol opt properties needed (see aeropt.F)
+  REAL rhcl(klon, klev)
+
+  ! AA
+  ! Coeffients de fraction lessivee : pour OFF-LINE
+
+  REAL pfrac_nucl(klon, klev)
+  REAL pfrac_1nucl(klon, klev)
+  REAL pfrac_impa(klon, klev)
+
+  ! Fraction d'aerosols lessivee par impaction et par nucleation
+  ! POur ON-LINE
+
+  REAL frac_impa(klon, klev)
+  REAL frac_nucl(klon, klev)
+  ! AA
+
+  ! Options du programme:
+
+  REAL seuil_neb ! un nuage existe vraiment au-dela
+  PARAMETER (seuil_neb=0.001)
+  REAL ct ! inverse du temps pour qu'un nuage precipite
+  PARAMETER (ct=1./1800.)
+  REAL cl ! seuil de precipitation
+  PARAMETER (cl=2.6E-4)
+  ! cc      PARAMETER (cl=2.3e-4)
+  ! cc      PARAMETER (cl=2.0e-4)
+  INTEGER ninter ! sous-intervals pour la precipitation
+  PARAMETER (ninter=5)
+  LOGICAL evap_prec ! evaporation de la pluie
+  PARAMETER (evap_prec=.TRUE.)
+  REAL coef_eva
+  PARAMETER (coef_eva=2.0E-05)
+  LOGICAL calcrat ! calculer ratqs au lieu de fixer sa valeur
+  REAL ratqs(klon, klev) ! determine la largeur de distribution de vapeur
+  PARAMETER (calcrat=.TRUE.)
+  REAL zx_min, rat_max
+  PARAMETER (zx_min=1.0, rat_max=0.01)
+  REAL zx_max, rat_min
+  PARAMETER (zx_max=0.1, rat_min=0.3)
+  REAL zx
+
+  LOGICAL cpartiel ! condensation partielle
+  PARAMETER (cpartiel=.TRUE.)
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+
+  ! Variables locales:
+
+  INTEGER i, k, n, kk
+  REAL zqs(klon), zdqs(klon), zdelta, zcor, zcvm5
+  REAL zrfl(klon), zrfln(klon), zqev, zqevt
+  REAL zoliq(klon), zcond(klon), zq(klon), zqn(klon), zdelq
+  REAL ztglace, zt(klon)
+  INTEGER nexpo ! exponentiel pour glace/eau
+  REAL zdz(klon), zrho(klon), ztot(klon), zrhol(klon)
+  REAL zchau(klon), zfroi(klon), zfice(klon), zneb(klon)
+
+  LOGICAL appel1er
+  SAVE appel1er
+  !$OMP THREADPRIVATE(appel1er)
+
+  ! ---------------------------------------------------------------
+
+  ! AA Variables traceurs:
+  ! AA  Provisoire !!! Parametres alpha du lessivage
+  ! AA  A priori on a 4 scavenging # possibles
+
+  REAL a_tr_sca(4)
+  SAVE a_tr_sca
+  !$OMP THREADPRIVATE(a_tr_sca)
+
+  ! Variables intermediaires
+
+  REAL zalpha_tr
+  REAL zfrac_lessi
+  REAL zprec_cond(klon)
+  ! AA
+  ! ---------------------------------------------------------------
+
+  ! Fonctions en ligne:
+
+  REAL fallv ! vitesse de chute pour crystaux de glace
+  REAL zzz
+  include "YOETHF.h"
+  include "FCTTRE.h"
+  fallv(zzz) = 3.29/2.0*((zzz)**0.16)
+  ! cc      fallv (zzz) = 3.29/3.0 * ((zzz)**0.16)
+  ! cc      fallv (zzz) = 3.29 * ((zzz)**0.16)
+
+  DATA appel1er/.TRUE./
+
+  IF (appel1er) THEN
+
+    WRITE (lunout, *) 'fisrtilp, calcrat:', calcrat
+    WRITE (lunout, *) 'fisrtilp, ninter:', ninter
+    WRITE (lunout, *) 'fisrtilp, evap_prec:', evap_prec
+    WRITE (lunout, *) 'fisrtilp, cpartiel:', cpartiel
+    IF (abs(dtime/real(ninter)-360.0)>0.001) THEN
+      WRITE (lunout, *) 'fisrtilp: Ce n est pas prevu, voir Z.X.Li', dtime
+      WRITE (lunout, *) 'Je prefere un sous-intervalle de 6 minutes'
+      CALL abort
+    END IF
+    appel1er = .FALSE.
+
+    ! AA initialiation provisoire
+    a_tr_sca(1) = -0.5
+    a_tr_sca(2) = -0.5
+    a_tr_sca(3) = -0.5
+    a_tr_sca(4) = -0.5
+
+    ! AA Initialisation a 1 des coefs des fractions lessivees
+
+    DO k = 1, klev
+      DO i = 1, klon
+        pfrac_nucl(i, k) = 1.
+        pfrac_1nucl(i, k) = 1.
+        pfrac_impa(i, k) = 1.
+      END DO
+    END DO
+
+  END IF !  test sur appel1er
+
+  ! MAf Initialisation a 0 de zoliq
+  DO i = 1, klon
+    zoliq(i) = 0.
+  END DO
+  ! Determiner les nuages froids par leur temperature
+
+  ztglace = rtt - 15.0
+  nexpo = 6
+  ! cc      nexpo = 1
+
+  ! Initialiser les sorties:
+
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      prfl(i, k) = 0.0
+      psfl(i, k) = 0.0
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_q(i, k) = 0.0
+      d_ql(i, k) = 0.0
+      rneb(i, k) = 0.0
+      radliq(i, k) = 0.0
+      frac_nucl(i, k) = 1.
+      frac_impa(i, k) = 1.
+    END DO
+  END DO
+  DO i = 1, klon
+    rain(i) = 0.0
+    snow(i) = 0.0
+  END DO
+
+  ! Initialiser le flux de precipitation a zero
+
+  DO i = 1, klon
+    zrfl(i) = 0.0
+    zneb(i) = seuil_neb
+  END DO
+
+
+  ! AA Pour plus de securite
+
+  zalpha_tr = 0.
+  zfrac_lessi = 0.
+
+  ! AA----------------------------------------------------------
+
+  ! Boucle verticale (du haut vers le bas)
+
+  DO k = klev, 1, -1
+
+    ! AA----------------------------------------------------------
+
+    DO i = 1, klon
+      zt(i) = t(i, k)
+      zq(i) = q(i, k)
+    END DO
+
+    ! Calculer l'evaporation de la precipitation
+
+    IF (evap_prec) THEN
+      DO i = 1, klon
+        IF (zrfl(i)>0.) THEN
+          IF (thermcep) THEN
+            zdelta = max(0., sign(1.,rtt-zt(i)))
+            zqs(i) = r2es*foeew(zt(i), zdelta)/pplay(i, k)
+            zqs(i) = min(0.5, zqs(i))
+            zcor = 1./(1.-retv*zqs(i))
+            zqs(i) = zqs(i)*zcor
+          ELSE
+            IF (zt(i)<t_coup) THEN
+              zqs(i) = qsats(zt(i))/pplay(i, k)
+            ELSE
+              zqs(i) = qsatl(zt(i))/pplay(i, k)
+            END IF
+          END IF
+          zqev = max(0.0, (zqs(i)-zq(i))*zneb(i))
+          zqevt = coef_eva*(1.0-zq(i)/zqs(i))*sqrt(zrfl(i))* &
+            (paprs(i,k)-paprs(i,k+1))/pplay(i, k)*zt(i)*rd/rg
+          zqevt = max(0.0, min(zqevt,zrfl(i)))*rg*dtime/ &
+            (paprs(i,k)-paprs(i,k+1))
+          zqev = min(zqev, zqevt)
+          zrfln(i) = zrfl(i) - zqev*(paprs(i,k)-paprs(i,k+1))/rg/dtime
+          zq(i) = zq(i) - (zrfln(i)-zrfl(i))*(rg/(paprs(i,k)-paprs(i, &
+            k+1)))*dtime
+          zt(i) = zt(i) + (zrfln(i)-zrfl(i))*(rg/(paprs(i,k)-paprs(i, &
+            k+1)))*dtime*rlvtt/rcpd/(1.0+rvtmp2*zq(i))
+          zrfl(i) = zrfln(i)
+        END IF
+      END DO
+    END IF
+
+    ! Calculer Qs et L/Cp*dQs/dT:
+
+    IF (thermcep) THEN
+      DO i = 1, klon
+        zdelta = max(0., sign(1.,rtt-zt(i)))
+        zcvm5 = r5les*rlvtt*(1.-zdelta) + r5ies*rlstt*zdelta
+        zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*zq(i))
+        zqs(i) = r2es*foeew(zt(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(zt(i), zdelta, zcvm5, zqs(i), zcor)
+      END DO
+    ELSE
+      DO i = 1, klon
+        IF (zt(i)<t_coup) THEN
+          zqs(i) = qsats(zt(i))/pplay(i, k)
+          zdqs(i) = dqsats(zt(i), zqs(i))
+        ELSE
+          zqs(i) = qsatl(zt(i))/pplay(i, k)
+          zdqs(i) = dqsatl(zt(i), zqs(i))
+        END IF
+      END DO
+    END IF
+
+    ! Determiner la condensation partielle et calculer la quantite
+    ! de l'eau condensee:
+
+    IF (cpartiel) THEN
+      DO i = 1, klon
+
+        zdelq = ratqs(i, k)*zq(i)
+        rneb(i, k) = (zq(i)+zdelq-zqs(i))/(2.0*zdelq)
+        zqn(i) = (zq(i)+zdelq+zqs(i))/2.0
+        IF (rneb(i,k)<=0.0) zqn(i) = 0.0
+        IF (rneb(i,k)>=1.0) zqn(i) = zq(i)
+        rneb(i, k) = max(0.0, min(1.0,rneb(i,k)))
+        zcond(i) = max(0.0, zqn(i)-zqs(i))*rneb(i, k)/(1.+zdqs(i))
+
+        ! --Olivier
+        rhcl(i, k) = (zqs(i)+zq(i)-zdelq)/2./zqs(i)
+        IF (rneb(i,k)<=0.0) rhcl(i, k) = zq(i)/zqs(i)
+        IF (rneb(i,k)>=1.0) rhcl(i, k) = 1.0
+        ! --fin
+
+      END DO
+    ELSE
+      DO i = 1, klon
+        IF (zq(i)>zqs(i)) THEN
+          rneb(i, k) = 1.0
+        ELSE
+          rneb(i, k) = 0.0
+        END IF
+        zcond(i) = max(0.0, zq(i)-zqs(i))/(1.+zdqs(i))
+      END DO
+    END IF
+
+    DO i = 1, klon
+      zq(i) = zq(i) - zcond(i)
+      zt(i) = zt(i) + zcond(i)*rlvtt/rcpd
+    END DO
+
+    ! Partager l'eau condensee en precipitation et eau liquide nuageuse
+
+    DO i = 1, klon
+      IF (rneb(i,k)>0.0) THEN
+        zoliq(i) = zcond(i)
+        zrho(i) = pplay(i, k)/zt(i)/rd
+        zdz(i) = (paprs(i,k)-paprs(i,k+1))/(zrho(i)*rg)
+        zfice(i) = 1.0 - (zt(i)-ztglace)/(273.13-ztglace)
+        zfice(i) = min(max(zfice(i),0.0), 1.0)
+        zfice(i) = zfice(i)**nexpo
+        zneb(i) = max(rneb(i,k), seuil_neb)
+        radliq(i, k) = zoliq(i)/real(ninter+1)
+      END IF
+    END DO
+
+    DO n = 1, ninter
+      DO i = 1, klon
+        IF (rneb(i,k)>0.0) THEN
+          zchau(i) = ct*dtime/real(ninter)*zoliq(i)* &
+            (1.0-exp(-(zoliq(i)/zneb(i)/cl)**2))*(1.-zfice(i))
+          zrhol(i) = zrho(i)*zoliq(i)/zneb(i)
+          zfroi(i) = dtime/real(ninter)/zdz(i)*zoliq(i)*fallv(zrhol(i))* &
+            zfice(i)
+          ztot(i) = zchau(i) + zfroi(i)
+          IF (zneb(i)==seuil_neb) ztot(i) = 0.0
+          ztot(i) = min(max(ztot(i),0.0), zoliq(i))
+          zoliq(i) = max(zoliq(i)-ztot(i), 0.0)
+          radliq(i, k) = radliq(i, k) + zoliq(i)/real(ninter+1)
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (rneb(i,k)>0.0) THEN
+        d_ql(i, k) = zoliq(i)
+        zrfl(i) = zrfl(i) + max(zcond(i)-zoliq(i), 0.0)*(paprs(i,k)-paprs(i,k &
+          +1))/(rg*dtime)
+      END IF
+      IF (zt(i)<rtt) THEN
+        psfl(i, k) = zrfl(i)
+      ELSE
+        prfl(i, k) = zrfl(i)
+      END IF
+    END DO
+
+    ! Calculer les tendances de q et de t:
+
+    DO i = 1, klon
+      d_q(i, k) = zq(i) - q(i, k)
+      d_t(i, k) = zt(i) - t(i, k)
+    END DO
+
+    ! AA--------------- Calcul du lessivage stratiforme  -------------
+
+    DO i = 1, klon
+
+      zprec_cond(i) = max(zcond(i)-zoliq(i), 0.0)*(paprs(i,k)-paprs(i,k+1))/ &
+        rg
+      IF (rneb(i,k)>0.0 .AND. zprec_cond(i)>0.) THEN
+        ! AA lessivage nucleation LMD5 dans la couche elle-meme
+        IF (t(i,k)>=ztglace) THEN
+          zalpha_tr = a_tr_sca(3)
+        ELSE
+          zalpha_tr = a_tr_sca(4)
+        END IF
+        zfrac_lessi = 1. - exp(zalpha_tr*zprec_cond(i)/zneb(i))
+        pfrac_nucl(i, k) = pfrac_nucl(i, k)*(1.-zneb(i)*zfrac_lessi)
+        frac_nucl(i, k) = 1. - zneb(i)*zfrac_lessi
+
+        ! nucleation avec un facteur -1 au lieu de -0.5
+        zfrac_lessi = 1. - exp(-zprec_cond(i)/zneb(i))
+        pfrac_1nucl(i, k) = pfrac_1nucl(i, k)*(1.-zneb(i)*zfrac_lessi)
+      END IF
+
+    END DO ! boucle sur i
+
+    ! AA Lessivage par impaction dans les couches en-dessous
+    DO kk = k - 1, 1, -1
+      DO i = 1, klon
+        IF (rneb(i,k)>0.0 .AND. zprec_cond(i)>0.) THEN
+          IF (t(i,kk)>=ztglace) THEN
+            zalpha_tr = a_tr_sca(1)
+          ELSE
+            zalpha_tr = a_tr_sca(2)
+          END IF
+          zfrac_lessi = 1. - exp(zalpha_tr*zprec_cond(i)/zneb(i))
+          pfrac_impa(i, kk) = pfrac_impa(i, kk)*(1.-zneb(i)*zfrac_lessi)
+          frac_impa(i, kk) = 1. - zneb(i)*zfrac_lessi
+        END IF
+      END DO
+    END DO
+
+    ! AA----------------------------------------------------------
+    ! FIN DE BOUCLE SUR K
+  END DO
+
+  ! AA-----------------------------------------------------------
+
+  ! Pluie ou neige au sol selon la temperature de la 1ere couche
+
+  DO i = 1, klon
+    IF ((t(i,1)+d_t(i,1))<rtt) THEN
+      snow(i) = zrfl(i)
+    ELSE
+      rain(i) = zrfl(i)
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE fisrtilp_tr
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flott_gwd_rando_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flott_gwd_rando_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flott_gwd_rando_m.F90	(revision 3330)
@@ -0,0 +1,421 @@
+module FLOTT_GWD_rando_m
+
+  implicit none
+
+contains
+
+  SUBROUTINE FLOTT_GWD_rando(DTIME, pp, tt, uu, vv, prec, zustr, zvstr, d_u, &
+       d_v,east_gwstress,west_gwstress)
+
+    ! Parametrization of the momentum flux deposition due to a discrete
+    ! number of gravity waves. 
+    ! Author: F. Lott
+    ! July, 12th, 2012
+    ! Gaussian distribution of the source, source is precipitation
+    ! Reference: Lott (JGR, vol 118, page 8897, 2013)
+
+    !ONLINE:
+      use dimphy, only: klon, klev
+      use assert_m, only: assert
+      include "YOMCST.h"
+      include "clesphys.h"
+    ! OFFLINE:
+    ! include "dimensions.h"
+    ! include "dimphy.h"
+    ! END OF DIFFERENCE ONLINE-OFFLINE
+    include "YOEGWD.h"
+
+    ! 0. DECLARATIONS:
+
+    ! 0.1 INPUTS
+    REAL, intent(in)::DTIME ! Time step of the Physics
+    REAL, intent(in):: pp(:, :) ! (KLON, KLEV) Pressure at full levels
+    REAL, intent(in):: prec(:) ! (klon) Precipitation (kg/m^2/s) 
+    REAL, intent(in):: TT(:, :) ! (KLON, KLEV) Temp at full levels 
+    REAL, intent(in):: UU(:, :) ! (KLON, KLEV) Zonal wind at full levels
+    REAL, intent(in):: VV(:, :) ! (KLON, KLEV) Merid wind at full levels
+
+    ! 0.2 OUTPUTS
+    REAL, intent(out):: zustr(:), zvstr(:) ! (KLON) Surface Stresses
+
+    REAL, intent(inout):: d_u(:, :), d_v(:, :) 
+    REAL, intent(inout):: east_gwstress(:, :) !  Profile of eastward stress
+    REAL, intent(inout):: west_gwstress(:, :) !  Profile of westward stress 
+
+    ! (KLON, KLEV) tendencies on winds
+
+    ! O.3 INTERNAL ARRAYS
+    REAL BVLOW(klon)
+    REAL DZ   !  Characteristic depth of the Source
+
+    INTEGER II, JJ, LL
+
+    ! 0.3.0 TIME SCALE OF THE LIFE CYCLE OF THE WAVES PARAMETERIZED
+
+    REAL DELTAT
+
+    ! 0.3.1 GRAVITY-WAVES SPECIFICATIONS
+
+    INTEGER, PARAMETER:: NK = 2, NP = 2, NO = 2, NW = NK * NP * NO
+    INTEGER JK, JP, JO, JW
+    INTEGER, PARAMETER:: NA = 5  !number of realizations to get the phase speed
+    REAL KMIN, KMAX ! Min and Max horizontal wavenumbers
+    REAL CMAX ! standard deviation of the phase speed distribution
+    REAL RUWMAX,SAT  ! ONLINE SPECIFIED IN run.def
+    REAL CPHA ! absolute PHASE VELOCITY frequency
+    REAL ZK(NW, KLON) ! Horizontal wavenumber amplitude
+    REAL ZP(NW, KLON) ! Horizontal wavenumber angle 
+    REAL ZO(NW, KLON) ! Absolute frequency !
+
+    ! Waves Intr. freq. at the 1/2 lev surrounding the full level
+    REAL ZOM(NW, KLON), ZOP(NW, KLON)
+
+    ! Wave EP-fluxes at the 2 semi levels surrounding the full level
+    REAL WWM(NW, KLON), WWP(NW, KLON)
+
+    REAL RUW0(NW, KLON) ! Fluxes at launching level
+
+    REAL RUWP(NW, KLON), RVWP(NW, KLON)
+    ! Fluxes X and Y for each waves at 1/2 Levels
+
+    INTEGER LAUNCH, LTROP ! Launching altitude and tropo altitude
+
+    REAL XLAUNCH ! Controle the launching altitude
+    REAL XTROP ! SORT of Tropopause altitude 
+    REAL RUW(KLON, KLEV + 1) ! Flux x at semi levels
+    REAL RVW(KLON, KLEV + 1) ! Flux y at semi levels
+
+    REAL PRMAX ! Maximum value of PREC, and for which our linear formula
+    ! for GWs parameterisation apply
+
+    ! 0.3.2 PARAMETERS OF WAVES DISSIPATIONS
+
+    REAL RDISS, ZOISEC ! COEFF DE DISSIPATION, SECURITY FOR INTRINSIC FREQ
+
+    ! 0.3.3 BACKGROUND FLOW AT 1/2 LEVELS AND VERTICAL COORDINATE
+
+    REAL H0 ! Characteristic Height of the atmosphere
+    REAL PR, TR ! Reference Pressure and Temperature
+
+    REAL ZH(KLON, KLEV + 1) ! Log-pressure altitude
+
+    REAL UH(KLON, KLEV + 1), VH(KLON, KLEV + 1) ! Winds at 1/2 levels
+    REAL PH(KLON, KLEV + 1) ! Pressure at 1/2 levels
+    REAL PSEC ! Security to avoid division by 0 pressure
+    REAL PHM1(KLON, KLEV + 1) ! 1/Press at 1/2 levels
+    REAL BV(KLON, KLEV + 1) ! Brunt Vaisala freq. (BVF) at 1/2 levels
+    REAL BVSEC ! Security to avoid negative BVF
+
+    !-----------------------------------------------------------------
+
+    ! 1. INITIALISATIONS
+
+    ! 1.1 Basic parameter
+
+    ! Are provided from elsewhere (latent heat of vaporization, dry
+    ! gaz constant for air, gravity constant, heat capacity of dry air
+    ! at constant pressure, earth rotation rate, pi).
+
+    ! 1.2 Tuning parameters of V14
+
+    
+    RDISS = 1. ! Diffusion parameter
+    ! ONLINE 
+      RUWMAX=GWD_RANDO_RUWMAX
+      SAT=gwd_rando_sat
+    !END ONLINE
+    ! OFFLINE
+    ! RUWMAX= 1.75    ! Launched flux
+    ! SAT=0.25     ! Saturation parameter
+    ! END OFFLINE
+
+    PRMAX = 20. / 24. /3600.
+    ! maximum of rain for which our theory applies (in kg/m^2/s)
+
+ ! Characteristic depth of the source
+    DZ = 1000.
+    XLAUNCH=0.5 ! Parameter that control launching altitude
+    XTROP=0.2 ! Parameter that control tropopause altitude
+    DELTAT=24.*3600. ! Time scale of the waves (first introduced in 9b)
+    !  OFFLINE
+    !  DELTAT=DTIME
+    !  END OFFLINE
+
+    KMIN = 2.E-5
+    ! minimum horizontal wavenumber (inverse of the subgrid scale resolution)
+
+    KMAX = 1.E-3 ! Max horizontal wavenumber
+    CMAX = 30. ! Max phase speed velocity
+
+    TR = 240. ! Reference Temperature
+    PR = 101300. ! Reference pressure
+    H0 = RD * TR / RG ! Characteristic vertical scale height
+
+    BVSEC = 5.E-3 ! Security to avoid negative BVF 
+    PSEC = 1.E-6 ! Security to avoid division by 0 pressure
+    ZOISEC = 1.E-6 ! Security FOR 0 INTRINSIC FREQ
+
+    !ONLINE
+        call assert(klon == (/size(pp, 1), size(tt, 1), size(uu, 1), &
+         size(vv, 1), size(zustr), size(zvstr), size(d_u, 1), &
+         size(d_v, 1), &
+         size(east_gwstress, 1), size(west_gwstress, 1) /), &
+         "FLOTT_GWD_RANDO klon")
+     call assert(klev == (/size(pp, 2), size(tt, 2), size(uu, 2), &
+          size(vv, 2), size(d_u, 2), size(d_v, 2), &
+          size(east_gwstress,2), size(west_gwstress,2) /), &
+          "FLOTT_GWD_RANDO klev")
+    !END ONLINE
+
+    IF(DELTAT < DTIME)THEN
+       PRINT *, 'flott_gwd_rando: deltat < dtime!'
+       STOP 1
+    ENDIF
+
+    IF (KLEV < NW) THEN
+       PRINT *, 'flott_gwd_rando: you will have problem with random numbers'
+       STOP 1
+    ENDIF
+
+    ! 2. EVALUATION OF THE BACKGROUND FLOW AT SEMI-LEVELS
+
+    ! Pressure and Inv of pressure
+    DO LL = 2, KLEV
+       PH(:, LL) = EXP((LOG(PP(:, LL)) + LOG(PP(:, LL - 1))) / 2.)
+       PHM1(:, LL) = 1. / PH(:, LL) 
+    end DO
+
+    PH(:, KLEV + 1) = 0. 
+    PHM1(:, KLEV + 1) = 1. / PSEC
+    PH(:, 1) = 2. * PP(:, 1) - PH(:, 2)
+
+    ! Launching altitude
+
+    LAUNCH=0
+    LTROP =0
+    DO LL = 1, KLEV
+       IF (PH(KLON / 2, LL) / PH(KLON / 2, 1) > XLAUNCH) LAUNCH = LL
+    ENDDO
+    DO LL = 1, KLEV
+       IF (PH(KLON / 2, LL) / PH(KLON / 2, 1) > XTROP) LTROP = LL
+    ENDDO
+
+    ! Log pressure vert. coordinate
+    DO LL = 1, KLEV + 1 
+       ZH(:, LL) = H0 * LOG(PR / (PH(:, LL) + PSEC))
+    end DO
+
+    ! BV frequency
+    DO LL = 2, KLEV
+       ! BVSEC: BV Frequency (UH USED IS AS A TEMPORARY ARRAY DOWN TO WINDS)
+       UH(:, LL) = 0.5 * (TT(:, LL) + TT(:, LL - 1)) &
+            * RD**2 / RCPD / H0**2 + (TT(:, LL) &
+            - TT(:, LL - 1)) / (ZH(:, LL) - ZH(:, LL - 1)) * RD / H0
+    end DO
+    BVLOW(:) = 0.5 * (TT(:, LTROP )+ TT(:, LAUNCH)) &
+         * RD**2 / RCPD / H0**2 + (TT(:, LTROP ) &
+         - TT(:, LAUNCH))/(ZH(:, LTROP )- ZH(:, LAUNCH)) * RD / H0
+
+    UH(:, 1) = UH(:, 2)
+    UH(:, KLEV + 1) = UH(:, KLEV)
+    BV(:, 1) = UH(:, 2)
+    BV(:, KLEV + 1) = UH(:, KLEV)
+    ! SMOOTHING THE BV HELPS
+    DO LL = 2, KLEV
+       BV(:, LL)=(UH(:, LL+1)+2.*UH(:, LL)+UH(:, LL-1))/4.
+    end DO
+
+    BV=MAX(SQRT(MAX(BV, 0.)), BVSEC)
+    BVLOW=MAX(SQRT(MAX(BVLOW, 0.)), BVSEC)
+
+
+    ! WINDS
+    DO LL = 2, KLEV
+       UH(:, LL) = 0.5 * (UU(:, LL) + UU(:, LL - 1)) ! Zonal wind
+       VH(:, LL) = 0.5 * (VV(:, LL) + VV(:, LL - 1)) ! Meridional wind
+    end DO
+    UH(:, 1) = 0.
+    VH(:, 1) = 0.
+    UH(:, KLEV + 1) = UU(:, KLEV)
+    VH(:, KLEV + 1) = VV(:, KLEV)
+
+    ! 3 WAVES CHARACTERISTICS CHOSEN RANDOMLY AT THE LAUNCH ALTITUDE
+
+    ! The mod functions of weird arguments are used to produce the
+    ! waves characteristics in an almost stochastic way
+
+    JW = 0
+    DO JP = 1, NP
+       DO JK = 1, NK
+          DO JO = 1, NO
+             JW = JW + 1
+             ! Angle
+             DO II = 1, KLON
+                ! Angle (0 or PI so far)
+                ZP(JW, II) = (SIGN(1., 0.5 - MOD(TT(II, JW) * 10., 1.)) + 1.) &
+                     * RPI / 2.
+                ! Horizontal wavenumber amplitude
+                ZK(JW, II) = KMIN + (KMAX - KMIN) * MOD(TT(II, JW) * 100., 1.)
+                ! Horizontal phase speed
+                CPHA = 0.
+                DO JJ = 1, NA
+                    CPHA = CPHA + &
+         CMAX*2.*(MOD(TT(II, JW+3*JJ)**2, 1.)-0.5)*SQRT(3.)/SQRT(NA*1.)
+                END DO
+                IF (CPHA.LT.0.)  THEN
+                   CPHA = -1.*CPHA
+                   ZP(JW,II) = ZP(JW,II) + RPI
+                ENDIF
+                ! Absolute frequency is imposed
+                ZO(JW, II) = CPHA * ZK(JW, II) 
+                ! Intrinsic frequency is imposed
+                ZO(JW, II) = ZO(JW, II) &
+                     + ZK(JW, II) * COS(ZP(JW, II)) * UH(II, LAUNCH) &
+                     + ZK(JW, II) * SIN(ZP(JW, II)) * VH(II, LAUNCH)
+                ! Momentum flux at launch lev 
+                RUW0(JW, II) = RUWMAX
+             ENDDO
+          end DO
+       end DO
+    end DO
+
+    ! 4. COMPUTE THE FLUXES
+
+    ! 4.1 Vertical velocity at launching altitude to ensure 
+    ! the correct value to the imposed fluxes.
+
+    DO JW = 1, NW
+
+       ! Evaluate intrinsic frequency at launching altitude:
+       ZOP(JW, :) = ZO(JW, :) &
+            - ZK(JW, :) * COS(ZP(JW, :)) * UH(:, LAUNCH) &
+            - ZK(JW, :) * SIN(ZP(JW, :)) * VH(:, LAUNCH) 
+
+       ! VERSION WITH CONVECTIVE SOURCE
+
+       ! Vertical velocity at launch level, value to ensure the
+       ! imposed factor related to the convective forcing:
+       ! precipitations.
+
+       ! tanh limitation to values above prmax:
+       WWP(JW, :) = RUW0(JW, :) &
+            * (RD / RCPD / H0 * RLVTT * PRMAX * TANH(PREC(:) / PRMAX))**2
+
+       ! Factor related to the characteristics of the waves:
+       WWP(JW, :) = WWP(JW, :) * ZK(JW, :)**3 / KMIN / BVLOW(:)  &
+            / MAX(ABS(ZOP(JW, :)), ZOISEC)**3 
+
+       ! Moderation by the depth of the source (dz here):
+       WWP(JW, :) = WWP(JW, :) &
+            * EXP(- BVLOW(:)**2 / MAX(ABS(ZOP(JW, :)), ZOISEC)**2 * ZK(JW, :)**2 &
+            * DZ**2)
+
+       ! Put the stress in the right direction:
+       RUWP(JW, :) = ZOP(JW, :) / MAX(ABS(ZOP(JW, :)), ZOISEC)**2 &
+            * BV(:, LAUNCH) * COS(ZP(JW, :)) * WWP(JW, :)**2
+       RVWP(JW, :) = ZOP(JW, :) / MAX(ABS(ZOP(JW, :)), ZOISEC)**2 &
+            * BV(:, LAUNCH) * SIN(ZP(JW, :)) * WWP(JW, :)**2
+    end DO
+
+
+    ! 4.2 Uniform values below the launching altitude
+
+    DO LL = 1, LAUNCH
+       RUW(:, LL) = 0
+       RVW(:, LL) = 0
+       DO JW = 1, NW
+          RUW(:, LL) = RUW(:, LL) + RUWP(JW, :)
+          RVW(:, LL) = RVW(:, LL) + RVWP(JW, :)
+       end DO
+    end DO
+
+    ! 4.3 Loop over altitudes, with passage from one level to the next
+    ! done by i) conserving the EP flux, ii) dissipating a little,
+    ! iii) testing critical levels, and vi) testing the breaking.
+
+    DO LL = LAUNCH, KLEV - 1
+       ! Warning: all the physics is here (passage from one level
+       ! to the next)
+       DO JW = 1, NW
+          ZOM(JW, :) = ZOP(JW, :)
+          WWM(JW, :) = WWP(JW, :)
+          ! Intrinsic Frequency
+          ZOP(JW, :) = ZO(JW, :) - ZK(JW, :) * COS(ZP(JW, :)) * UH(:, LL + 1) &
+               - ZK(JW, :) * SIN(ZP(JW, :)) * VH(:, LL + 1) 
+
+          ! No breaking (Eq.6)
+          ! Dissipation (Eq. 8)
+          WWP(JW, :) = WWM(JW, :) * EXP(- 2. * RDISS * PR / (PH(:, LL + 1) &
+               + PH(:, LL)) * ((BV(:, LL + 1) + BV(:, LL)) / 2.)**3 &
+               / MAX(ABS(ZOP(JW, :) + ZOM(JW, :)) / 2., ZOISEC)**4 &
+               * ZK(JW, :)**3 * (ZH(:, LL + 1) - ZH(:, LL)))
+
+          ! Critical levels (forced to zero if intrinsic frequency changes sign)
+          ! Saturation (Eq. 12)
+          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) * KMIN**2  &
+               * SAT**2 / ZK(JW, :)**4)
+       end DO
+
+       ! Evaluate EP-flux from Eq. 7 and give the right orientation to
+       ! the stress
+
+       DO JW = 1, NW
+          RUWP(JW, :) = SIGN(1., ZOP(JW, :))*COS(ZP(JW, :)) * WWP(JW, :)
+          RVWP(JW, :) = SIGN(1., ZOP(JW, :))*SIN(ZP(JW, :)) * WWP(JW, :)
+       end DO
+
+       RUW(:, LL + 1) = 0.
+       RVW(:, LL + 1) = 0.
+
+       DO JW = 1, NW
+          RUW(:, LL + 1) = RUW(:, LL + 1) + RUWP(JW, :) 
+          RVW(:, LL + 1) = RVW(:, LL + 1) + RVWP(JW, :) 
+          EAST_GWSTRESS(:, LL)=EAST_GWSTRESS(:, LL)+MAX(0.,RUWP(JW,:))/FLOAT(NW)
+          WEST_GWSTRESS(:, LL)=WEST_GWSTRESS(:, LL)+MIN(0.,RUWP(JW,:))/FLOAT(NW)
+       end DO
+    end DO
+! OFFLINE ONLY
+!   PRINT *,'SAT PROFILE:'
+!   DO LL=1,KLEV
+!   PRINT *,ZH(KLON/2,LL)/1000.,SAT*(2.+TANH(ZH(KLON/2,LL)/H0-8.))
+!   ENDDO
+
+    ! 5 CALCUL DES TENDANCES:
+
+    ! 5.1 Rectification des flux au sommet et dans les basses couches
+
+    RUW(:, KLEV + 1) = 0.
+    RVW(:, KLEV + 1) = 0.
+    RUW(:, 1) = RUW(:, LAUNCH)
+    RVW(:, 1) = RVW(:, LAUNCH)
+    DO LL = 1, LAUNCH
+       RUW(:, LL) = RUW(:, LAUNCH+1)
+       RVW(:, LL) = RVW(:, LAUNCH+1)
+       EAST_GWSTRESS(:, LL)  = EAST_GWSTRESS(:, LAUNCH)
+       WEST_GWSTRESS(:, LL)  = WEST_GWSTRESS(:, LAUNCH)
+    end DO
+
+    ! AR-1 RECURSIVE FORMULA (13) IN VERSION 4
+    DO LL = 1, KLEV
+       D_U(:, LL) = (1.-DTIME/DELTAT) * D_U(:, LL) + DTIME/DELTAT/REAL(NW) * &
+            RG * (RUW(:, LL + 1) - RUW(:, LL)) &
+            / (PH(:, LL + 1) - PH(:, LL)) * DTIME
+       ! NO AR-1 FOR MERIDIONAL TENDENCIES
+       D_V(:, LL) =                                            1./REAL(NW) * &
+            RG * (RVW(:, LL + 1) - RVW(:, LL)) &
+            / (PH(:, LL + 1) - PH(:, LL)) * DTIME
+    ENDDO
+
+    ! Cosmetic: evaluation of the cumulated stress
+    ZUSTR = 0.
+    ZVSTR = 0.
+    DO LL = 1, KLEV
+       ZUSTR = ZUSTR + D_U(:, LL) / RG * (PH(:, LL + 1) - PH(:, LL))/DTIME
+       ZVSTR = ZVSTR + D_V(:, LL) / RG * (PH(:, LL + 1) - PH(:, LL))/DTIME
+    ENDDO
+
+  END SUBROUTINE FLOTT_GWD_RANDO
+
+end module FLOTT_GWD_rando_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flux_arp.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flux_arp.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flux_arp.h	(revision 3330)
@@ -0,0 +1,17 @@
+!
+! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
+!
+      logical :: ok_flux_surf
+      logical :: ok_prescr_ust !for prescribed ustar
+      real :: fsens
+      real :: flat
+      real :: ust
+      real :: tg
+
+      common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust
+
+!$OMP THREADPRIVATE(/flux_arp/)
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flxtr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flxtr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/flxtr.F90	(revision 3330)
@@ -0,0 +1,202 @@
+
+! $Header$
+
+SUBROUTINE flxtr(pdtime, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, pt, pplay, &
+    paprs, kcbot, kctop, kdtop, x, dx)
+  USE dimphy
+  IMPLICIT NONE
+  ! =====================================================================
+  ! Objet : Melange convectif de traceurs a partir des flux de masse
+  ! Date : 13/12/1996 -- 13/01/97
+  ! Auteur: O. Boucher (LOA) sur inspiration de Z. X. Li (LMD),
+  ! Brinkop et Sausen (1996) et Boucher et al. (1996).
+  ! ATTENTION : meme si cette routine se veut la plus generale possible,
+  ! elle a herite de certaines notations et conventions du
+  ! schema de Tiedtke (1993).
+  ! --En particulier, les couches sont numerotees de haut en bas !!!
+  ! Ceci est valable pour les flux, kcbot, kctop et kdtop
+  ! mais pas pour les entrees x, pplay, paprs !!!!
+  ! --Un schema amont est choisi pour calculer les flux pour s'assurer
+  ! de la positivite des valeurs de traceurs, cela implique des eqs
+  ! differentes pour les flux de traceurs montants et descendants.
+  ! --pmfu est positif, pmfd est negatif
+  ! --Tous les flux d'entrainements et de detrainements sont positifs
+  ! contrairement au schema de Tiedtke d'ou les changements de signe!!!!
+  ! =====================================================================
+
+  include "YOMCST.h"
+  include "YOECUMF.h"
+
+  REAL pdtime
+  ! --les flux sont definis au 1/2 niveaux
+  ! --pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls
+  REAL pmfu(klon, klev) ! flux de masse dans le panache montant
+  REAL pmfd(klon, klev) ! flux de masse dans le panache descendant
+  REAL pen_u(klon, klev) ! flux entraine dans le panache montant
+  REAL pde_u(klon, klev) ! flux detraine dans le panache montant
+  REAL pen_d(klon, klev) ! flux entraine dans le panache descendant
+  REAL pde_d(klon, klev) ! flux detraine dans le panache descendant
+  ! --idem mais en variables locales
+  REAL zpen_u(klon, klev)
+  REAL zpde_u(klon, klev)
+  REAL zpen_d(klon, klev)
+  REAL zpde_d(klon, klev)
+
+  REAL pplay(klon, klev) ! pression aux couches (bas en haut)
+  REAL pap(klon, klev) ! pression aux couches (haut en bas)
+  REAL pt(klon, klev) ! temperature aux couches (bas en haut)
+  REAL zt(klon, klev) ! temperature aux couches (haut en bas)
+  REAL paprs(klon, klev+1) ! pression aux 1/2 couches (bas en haut)
+  REAL paph(klon, klev+1) ! pression aux 1/2 couches (haut en bas)
+  INTEGER kcbot(klon) ! niveau de base de la convection
+  INTEGER kctop(klon) ! niveau du sommet de la convection +1
+  INTEGER kdtop(klon) ! niveau de sommet du panache descendant
+  REAL x(klon, klev) ! q de traceur (bas en haut)
+  REAL zx(klon, klev) ! q de traceur (haut en bas)
+  REAL dx(klon, klev) ! tendance de traceur  (bas en haut)
+
+  ! --variables locales
+  ! --les flux de x sont definis aux 1/2 niveaux
+  ! --xu et xd sont definis aux niveaux complets
+  REAL xu(klon, klev) ! q de traceurs dans le panache montant
+  REAL xd(klon, klev) ! q de traceurs dans le panache descendant
+  REAL xe(klon, klev) ! q de traceurs dans l'environnement
+  REAL zmfux(klon, klev+1) ! flux de x dans le panache montant
+  REAL zmfdx(klon, klev+1) ! flux de x dans le panache descendant
+  REAL zmfex(klon, klev+1) ! flux de x dans l'environnement
+  INTEGER i, k
+  REAL zmfmin
+  PARAMETER (zmfmin=1.E-10)
+
+  ! On remet les taux d'entrainement et de detrainement dans le panache
+  ! descendant a des valeurs positives.
+  ! On ajuste les valeurs de pen_u, pen_d pde_u et pde_d pour que la
+  ! conservation de la masse soit realisee a chaque niveau dans les 2
+  ! panaches.
+  DO k = 1, klev
+    DO i = 1, klon
+      zpen_u(i, k) = pen_u(i, k)
+      zpde_u(i, k) = pde_u(i, k)
+    END DO
+  END DO
+
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      zpen_d(i, k) = -pen_d(i, k+1)
+      zpde_d(i, k) = -pde_d(i, k+1)
+    END DO
+  END DO
+
+  DO i = 1, klon
+    zpen_d(i, klev) = 0.0
+    zpde_d(i, klev) = -pmfd(i, klev)
+    ! Correction 03 11 97
+    ! zpen_d(i,kdtop(i)-1) = pmfd(i,kdtop(i)-1)-pmfd(i,kdtop(i))
+    IF (kdtop(i)==klev+1) THEN
+      zpen_d(i, kdtop(i)-1) = pmfd(i, kdtop(i)-1)
+    ELSE
+      zpen_d(i, kdtop(i)-1) = pmfd(i, kdtop(i)-1) - pmfd(i, kdtop(i))
+    END IF
+
+    zpde_u(i, kctop(i)-2) = pmfu(i, kctop(i)-1)
+    zpen_u(i, klev) = pmfu(i, klev)
+  END DO
+
+  DO i = 1, klon
+    DO k = kcbot(i), klev - 1
+      zpen_u(i, k) = pmfu(i, k) - pmfu(i, k+1)
+    END DO
+  END DO
+
+  ! conversion des sens de notations bas-haut et haut-bas
+
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      paph(i, klev+2-k) = paprs(i, k)
+    END DO
+  END DO
+
+  DO i = 1, klon
+    DO k = 1, klev
+      pap(i, klev+1-k) = pplay(i, k)
+      zt(i, klev+1-k) = pt(i, k)
+      zx(i, klev+1-k) = x(i, k)
+    END DO
+  END DO
+
+  ! --initialisations des flux de traceurs aux extremites de la colonne
+
+  DO i = 1, klon
+    zmfux(i, klev+1) = 0.0
+    zmfdx(i, 1) = 0.0
+    zmfex(i, 1) = 0.0
+  END DO
+
+  ! --calcul des flux dans le panache montant
+
+  DO k = klev, 1, -1
+    DO i = 1, klon
+      IF (k>=kcbot(i)) THEN
+        xu(i, k) = zx(i, k)
+        zmfux(i, k) = pmfu(i, k)*xu(i, k)
+      ELSE
+        zmfux(i, k) = (zmfux(i,k+1)+zpen_u(i,k)*zx(i,k))/ &
+          (1.+zpde_u(i,k)/max(zmfmin,pmfu(i,k)))
+        xu(i, k) = zmfux(i, k)/max(zmfmin, pmfu(i,k))
+      END IF
+    END DO
+  END DO
+
+  ! --calcul des flux dans le panache descendant
+
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      IF (k<=kdtop(i)-1) THEN
+        xd(i, k) = (zx(i,k)+xu(i,k))/2.
+        zmfdx(i, k+1) = pmfd(i, k+1)*xd(i, k)
+      ELSE
+        zmfdx(i, k+1) = (zmfdx(i,k)-zpen_d(i,k)*zx(i,k))/ &
+          (1.-zpde_d(i,k)/min(-zmfmin,pmfd(i,k+1)))
+        xd(i, k) = zmfdx(i, k+1)/min(-zmfmin, pmfd(i,k+1))
+      END IF
+    END DO
+  END DO
+  DO i = 1, klon
+    zmfdx(i, klev+1) = 0.0
+    xd(i, klev) = (zpen_d(i,klev)*zx(i,klev)-zmfdx(i,klev))/ &
+      max(zmfmin, zpde_d(i,klev))
+  END DO
+
+  ! --introduction du flux de retour dans l'environnement
+
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      IF (k<=kctop(i)-3) THEN
+        xe(i, k) = zx(i, k)
+        zmfex(i, k+1) = -(pmfu(i,k+1)+pmfd(i,k+1))*xe(i, k)
+      ELSE
+        zmfex(i, k+1) = (zmfex(i,k)-(zpde_u(i,k)*xu(i,k)+zpde_d(i,k)*xd(i, &
+          k)))/(1.-(zpen_d(i,k)+zpen_u(i,k))/min(-zmfmin,-pmfu(i,k+1)-pmfd(i, &
+          k+1)))
+        xe(i, k) = zmfex(i, k+1)/min(-zmfmin, -pmfu(i,k+1)-pmfd(i,k+1))
+      END IF
+    END DO
+  END DO
+  DO i = 1, klon
+    zmfex(i, klev+1) = 0.0
+    xe(i, klev) = (zpde_u(i,klev)*xu(i,klev)+zpde_d(i,klev)*xd(i,klev)-zmfex( &
+      i,klev))/max(zmfmin, zpen_u(i,klev)+zpen_d(i,klev))
+  END DO
+
+  ! --calcul final des tendances
+
+  DO k = 1, klev
+    DO i = 1, klon
+      dx(i, klev+1-k) = rg/(paph(i,k+1)-paph(i,k))*pdtime* &
+        (zmfux(i,k+1)-zmfux(i,k)+zmfdx(i,k+1)-zmfdx(i,k)+zmfex(i,k+1)- &
+        zmfex(i,k))
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE flxtr
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fonte_neige_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fonte_neige_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/fonte_neige_mod.F90	(revision 3330)
@@ -0,0 +1,368 @@
+!
+! $Header$
+!
+MODULE fonte_neige_mod
+!
+! This module will treat the process of snow, melting, accumulating, calving, in 
+! case of simplified soil model.
+!
+!****************************************************************************************
+  USE dimphy, ONLY : klon
+  USE indice_sol_mod
+
+  IMPLICIT NONE
+  SAVE
+
+! run_off_ter and run_off_lic are the runoff at the compressed grid knon for 
+! land and land-ice respectively
+! Note: run_off_lic is used in mod_landice and therfore not private
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE    :: run_off_ter
+  !$OMP THREADPRIVATE(run_off_ter)
+  REAL, ALLOCATABLE, DIMENSION(:)             :: run_off_lic
+  !$OMP THREADPRIVATE(run_off_lic)
+
+! run_off_lic_0 is the runoff at land-ice a time-step earlier, on the global 1D array grid
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE    :: run_off_lic_0
+  !$OMP THREADPRIVATE(run_off_lic_0)
+  
+  REAL, PRIVATE                               :: tau_calv  
+  !$OMP THREADPRIVATE(tau_calv)
+  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: ffonte_global
+  !$OMP THREADPRIVATE(ffonte_global)
+  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: fqfonte_global
+  !$OMP THREADPRIVATE(fqfonte_global)
+  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE  :: fqcalving_global
+  !$OMP THREADPRIVATE(fqcalving_global)
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE  :: runofflic_global
+  !$OMP THREADPRIVATE(runofflic_global)
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE fonte_neige_init(restart_runoff)
+
+! This subroutine allocates and initialize variables in the module. 
+! The variable run_off_lic_0 is initialized to the field read from
+! restart file. The other variables are initialized to zero.
+!
+!****************************************************************************************
+! Input argument
+    REAL, DIMENSION(klon), INTENT(IN) :: restart_runoff 
+
+! Local variables
+    INTEGER                           :: error
+    CHARACTER (len = 80)              :: abort_message 
+    CHARACTER (len = 20)              :: modname = 'fonte_neige_init'
+
+
+!****************************************************************************************
+! Allocate run-off at landice and initilize with field read from restart
+!
+!****************************************************************************************
+
+    ALLOCATE(run_off_lic_0(klon), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation run_off_lic'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    run_off_lic_0(:) = restart_runoff(:) 
+
+!****************************************************************************************
+! Allocate other variables and initilize to zero
+!
+!****************************************************************************************
+    ALLOCATE(run_off_ter(klon), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation run_off_ter'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    run_off_ter(:) = 0.
+    
+    ALLOCATE(run_off_lic(klon), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation run_off_lic'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    run_off_lic(:) = 0.
+    
+    ALLOCATE(ffonte_global(klon,nbsrf))
+    IF (error /= 0) THEN
+       abort_message='Pb allocation ffonte_global'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    ffonte_global(:,:) = 0.0
+
+    ALLOCATE(fqfonte_global(klon,nbsrf))
+    IF (error /= 0) THEN
+       abort_message='Pb allocation fqfonte_global'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    fqfonte_global(:,:) = 0.0
+
+    ALLOCATE(fqcalving_global(klon,nbsrf))
+    IF (error /= 0) THEN
+       abort_message='Pb allocation fqcalving_global'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    fqcalving_global(:,:) = 0.0
+
+    ALLOCATE(runofflic_global(klon))
+    IF (error /= 0) THEN
+       abort_message='Pb allocation runofflic_global'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    runofflic_global(:) = 0.0
+
+!****************************************************************************************
+! Read tau_calv
+!
+!****************************************************************************************
+    CALL conf_interface(tau_calv)
+
+
+  END SUBROUTINE fonte_neige_init
+!
+!****************************************************************************************
+!
+  SUBROUTINE fonte_neige( knon, nisurf, knindex, dtime, &
+       tsurf, precip_rain, precip_snow, &
+       snow, qsol, tsurf_new, evap)
+
+  USE indice_sol_mod
+        
+! Routine de traitement de la fonte de la neige dans le cas du traitement
+! de sol simplifie!
+! LF 03/2001
+! input:
+!   knon         nombre de points a traiter
+!   nisurf       surface a traiter
+!   knindex      index des mailles valables pour surface a traiter
+!   dtime        
+!   tsurf        temperature de surface
+!   precip_rain  precipitations liquides
+!   precip_snow  precipitations solides
+!
+! input/output:
+!   snow         champs hauteur de neige
+!   qsol         hauteur d'eau contenu dans le sol
+!   tsurf_new    temperature au sol
+!   evap
+!
+  INCLUDE "YOETHF.h"
+  INCLUDE "YOMCST.h"
+  INCLUDE "FCTTRE.h"
+  INCLUDE "clesphys.h"
+
+! Input variables
+!****************************************************************************************
+    INTEGER, INTENT(IN)                  :: knon
+    INTEGER, INTENT(IN)                  :: nisurf
+    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex
+    REAL   , INTENT(IN)                  :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)    :: tsurf
+    REAL, DIMENSION(klon), INTENT(IN)    :: precip_rain
+    REAL, DIMENSION(klon), INTENT(IN)    :: precip_snow
+    
+! Input/Output variables
+!****************************************************************************************
+
+    REAL, DIMENSION(klon), INTENT(INOUT) :: snow
+    REAL, DIMENSION(klon), INTENT(INOUT) :: qsol
+    REAL, DIMENSION(klon), INTENT(INOUT) :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(INOUT) :: evap
+
+! Local variables
+!****************************************************************************************
+
+    INTEGER               :: i, j
+    REAL                  :: fq_fonte
+    REAL                  :: coeff_rel
+    REAL, PARAMETER       :: snow_max=3000.
+    REAL, PARAMETER       :: max_eau_sol = 150.0
+!! PB temporaire en attendant mieux pour le modele de neige
+! REAL, parameter :: chasno = RLMLT/(2.3867E+06*0.15)
+    REAL, PARAMETER       :: chasno = 3.334E+05/(2.3867E+06*0.15)
+!IM cf JLD/ GKtest
+    REAL, PARAMETER       :: chaice = 3.334E+05/(2.3867E+06*0.15)
+! fin GKtest
+    REAL, DIMENSION(klon) :: ffonte
+    REAL, DIMENSION(klon) :: fqcalving, fqfonte
+    REAL, DIMENSION(klon) :: d_ts
+    REAL, DIMENSION(klon) :: bil_eau_s, snow_evap
+
+    LOGICAL               :: neige_fond
+
+!****************************************************************************************
+! Start calculation
+! - Initialization
+!
+!****************************************************************************************
+    coeff_rel = dtime/(tau_calv * rday)
+    
+    bil_eau_s(:) = 0.
+
+!****************************************************************************************
+! - Increment snow due to precipitation and evaporation
+! - Calculate the water balance due to precipitation and evaporation (bil_eau_s)
+!
+!****************************************************************************************
+    WHERE (precip_snow > 0.) 
+       snow = snow + (precip_snow * dtime)
+    END WHERE
+
+    snow_evap = 0.
+    WHERE (evap > 0. ) 
+       snow_evap = MIN (snow / dtime, evap) 
+       snow = snow - snow_evap * dtime
+       snow = MAX(0.0, snow)
+    END WHERE
+    
+    bil_eau_s(:) = (precip_rain(:) * dtime) - (evap(:) - snow_evap(:)) * dtime
+
+
+!****************************************************************************************
+! - Calculate melting snow
+! - Calculate calving and decrement snow, if there are to much snow
+! - Update temperature at surface
+!
+!****************************************************************************************
+
+    ffonte(:) = 0.0
+    fqcalving(:) = 0.0
+    fqfonte(:) = 0.0
+    DO i = 1, knon
+       ! Y'a-t-il fonte de neige?
+       neige_fond = ((snow(i) > epsfra .OR. nisurf == is_sic .OR. nisurf == is_lic) &
+            .AND. tsurf_new(i) >= RTT)
+       IF (neige_fond) THEN
+          fq_fonte     = MIN( MAX((tsurf_new(i)-RTT )/chasno,0.0),snow(i))
+          ffonte(i)    = fq_fonte * RLMLT/dtime
+          fqfonte(i)   = fq_fonte/dtime
+          snow(i)      = MAX(0., snow(i) - fq_fonte)
+          bil_eau_s(i) = bil_eau_s(i) + fq_fonte 
+          tsurf_new(i) = tsurf_new(i) - fq_fonte * chasno  
+
+!IM cf JLD OK     
+!IM cf JLD/ GKtest fonte aussi pour la glace
+          IF (nisurf == is_sic .OR. nisurf == is_lic ) THEN
+             fq_fonte = MAX((tsurf_new(i)-RTT )/chaice,0.0)
+             ffonte(i) = ffonte(i) + fq_fonte * RLMLT/dtime
+             IF ( ok_lic_melt ) THEN
+                fqfonte(i) = fqfonte(i) + fq_fonte/dtime
+                bil_eau_s(i) = bil_eau_s(i) + fq_fonte
+             ENDIF
+             tsurf_new(i) = RTT
+          ENDIF
+          d_ts(i) = tsurf_new(i) - tsurf(i)
+       ENDIF
+
+       ! s'il y a une hauteur trop importante de neige, elle s'coule
+       fqcalving(i) = MAX(0., snow(i) - snow_max)/dtime
+       snow(i)=MIN(snow(i),snow_max)
+    END DO
+
+
+    IF (nisurf == is_ter) THEN
+       DO i = 1, knon
+          qsol(i) = qsol(i) + bil_eau_s(i)
+          run_off_ter(i) = run_off_ter(i) + MAX(qsol(i) - max_eau_sol, 0.0)
+          qsol(i) = MIN(qsol(i), max_eau_sol) 
+       END DO
+    ELSE IF (nisurf == is_lic) THEN
+       DO i = 1, knon
+          j = knindex(i)
+          run_off_lic(i)   = (coeff_rel *  fqcalving(i)) + &
+               (1. - coeff_rel) * run_off_lic_0(j)
+          run_off_lic_0(j) = run_off_lic(i)
+          run_off_lic(i)   = run_off_lic(i) + fqfonte(i) + precip_rain(i)
+       END DO
+    ENDIF
+    
+!****************************************************************************************
+! Save ffonte, fqfonte and fqcalving in global arrays for each 
+! sub-surface separately
+!
+!****************************************************************************************
+    DO i = 1, knon
+       ffonte_global(knindex(i),nisurf)    = ffonte(i)
+       fqfonte_global(knindex(i),nisurf)   = fqfonte(i)
+       fqcalving_global(knindex(i),nisurf) = fqcalving(i)
+    ENDDO
+
+    IF (nisurf == is_lic) THEN
+    DO i = 1, knon
+       runofflic_global(knindex(i)) = run_off_lic(i)
+    ENDDO
+    ENDIF
+
+  END SUBROUTINE fonte_neige
+!
+!****************************************************************************************
+!
+  SUBROUTINE fonte_neige_final(restart_runoff)
+!
+! This subroutine returns run_off_lic_0 for later writing to restart file.
+!
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT) :: restart_runoff
+
+!****************************************************************************************
+! Set the output variables
+    restart_runoff(:) = run_off_lic_0(:)
+
+! Deallocation of all varaibles in the module
+!   DEALLOCATE(run_off_lic_0, run_off_ter, run_off_lic, ffonte_global, &
+!        fqfonte_global, fqcalving_global)
+
+    IF (ALLOCATED(run_off_lic_0)) DEALLOCATE(run_off_lic_0)
+    IF (ALLOCATED(run_off_ter)) DEALLOCATE(run_off_ter)
+    IF (ALLOCATED(run_off_lic)) DEALLOCATE(run_off_lic)
+    IF (ALLOCATED(ffonte_global)) DEALLOCATE(ffonte_global)
+    IF (ALLOCATED(fqfonte_global)) DEALLOCATE(fqfonte_global)
+    IF (ALLOCATED(fqcalving_global)) DEALLOCATE(fqcalving_global)
+    IF (ALLOCATED(runofflic_global)) DEALLOCATE(runofflic_global)
+
+  END SUBROUTINE fonte_neige_final
+!
+!****************************************************************************************
+!
+  SUBROUTINE fonte_neige_get_vars(pctsrf, fqcalving_out, &
+       fqfonte_out, ffonte_out, run_off_lic_out)
+
+
+! Cumulate ffonte, fqfonte and fqcalving respectively for
+! all type of surfaces according to their fraction.
+!
+! This routine is called from physiq.F before histwrite.
+!****************************************************************************************
+
+  USE indice_sol_mod
+
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf
+
+    REAL, DIMENSION(klon), INTENT(OUT)      :: fqcalving_out
+    REAL, DIMENSION(klon), INTENT(OUT)      :: fqfonte_out
+    REAL, DIMENSION(klon), INTENT(OUT)      :: ffonte_out
+    REAL, DIMENSION(klon), INTENT(OUT)      :: run_off_lic_out
+
+    INTEGER   :: nisurf
+!****************************************************************************************
+
+    ffonte_out(:)    = 0.0
+    fqfonte_out(:)   = 0.0
+    fqcalving_out(:) = 0.0
+
+    DO nisurf = 1, nbsrf
+       ffonte_out(:) = ffonte_out(:) + ffonte_global(:,nisurf)*pctsrf(:,nisurf)
+       fqfonte_out(:) = fqfonte_out(:) + fqfonte_global(:,nisurf)*pctsrf(:,nisurf)
+       fqcalving_out(:) = fqcalving_out(:) + fqcalving_global(:,nisurf)*pctsrf(:,nisurf)
+    ENDDO
+
+    run_off_lic_out(:)=runofflic_global(:)
+
+  END SUBROUTINE fonte_neige_get_vars
+!
+!****************************************************************************************
+!
+END MODULE fonte_neige_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/geo2atm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/geo2atm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/geo2atm.F90	(revision 3330)
@@ -0,0 +1,52 @@
+!
+! $Header: /home/cvsroot/LMDZ4/libf/phylmd/geo2atm.F90,v 1.1 2008-12-05 17:56:40 lsce Exp $
+!
+SUBROUTINE geo2atm(im, jm, px, py, pz, plon, plat, pu, pv, pr)
+  USE dimphy
+  USE mod_phys_lmdz_para
+
+  IMPLICIT NONE
+  INCLUDE 'YOMCST.h'
+
+! Change wind coordinates from cartesian geocentric to local spherical
+! NB! Fonctionne probablement uniquement en MPI seul (sans OpenMP)
+!
+  INTEGER, INTENT (IN)                 :: im, jm
+  REAL, DIMENSION (im,jm), INTENT(IN)  :: px, py, pz
+  REAL, DIMENSION (im,jm), INTENT(IN)  :: plon, plat
+  REAL, DIMENSION (im,jm), INTENT(OUT) :: pu, pv, pr
+
+  REAL :: rad
+
+
+  rad = rpi / 180.0E0
+  
+  pu(:,:) = &
+       - px(:,:) * SIN(rad * plon(:,:)) &
+       + py(:,:) * COS(rad * plon(:,:))
+
+  pv(:,:) = &
+       - px(:,:) * SIN(rad * plat(:,:)) * COS(rad * plon(:,:)) &
+       - py(:,:) * SIN(rad * plat(:,:)) * SIN(rad * plon(:,:)) &
+       + pz(:,:) * COS(rad * plat(:,:))  
+
+  pr(:,:) = &
+       + px(:,:) * COS(rad * plat(:,:)) * COS(rad * plon(:,:)) &
+       + py(:,:) * COS(rad * plat(:,:)) * SIN(rad * plon(:,:)) &
+       + pz(:,:) * SIN(rad * plat(:,:))
+
+  ! Value at North Pole
+  IF (is_north_pole_dyn) THEN
+     pu(:, 1) = -px (1,1)
+     pv(:, 1) = -py (1,1)
+     pr(:, 1) = 0.0
+  ENDIF
+  
+  ! Value at South Pole     
+  IF (is_south_pole_dyn) THEN
+     pu(:,jm) = -px (1,jm)
+     pv(:,jm) = -py (1,jm)
+     pr(:,jm) = 0.0
+  ENDIF
+  
+END SUBROUTINE geo2atm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/global_mean.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/global_mean.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/global_mean.F90	(revision 3330)
@@ -0,0 +1,63 @@
+  subroutine global_mean(field,airephy,laire,mfield)
+!
+! I.Musat: 05.2011
+! calcul moyenne globale d'un champ pondere par l'aire de la maille
+! (laire=.TRUE.) ou somme globale du champ (laire=.FALSE.)
+!
+  USE dimphy
+  USE mod_phys_lmdz_para, only: is_sequential
+  USE mod_phys_lmdz_transfert_para, only: reduce_sum
+  use mod_phys_lmdz_mpi_data, only: is_mpi_root
+  USE ioipsl
+  implicit none
+
+  real,dimension(klon),intent(in) :: field
+  real,dimension(klon),intent(in) :: airephy
+  LOGICAL, intent(in) :: laire
+  REAL, intent(out) :: mfield
+  REAL :: airetot     ! Total area the earth
+  REAL :: sumtmp
+  INTEGER :: i
+
+  if (is_sequential) then
+
+   airetot = 0.
+   sumtmp = 0.
+   DO i=1, klon
+    airetot = airetot + airephy(i)
+    sumtmp = sumtmp + field(i)
+   END DO
+   if (laire) THEN
+    if(airetot.NE.0.) THEN
+     mfield=sumtmp/airetot
+    endif
+   else
+    mfield=sumtmp
+   endif
+
+  else
+
+   CALL reduce_sum(SUM(airephy),airetot)
+   CALL reduce_sum(SUM(field),sumtmp)
+
+!$OMP MASTER
+  if (is_mpi_root) THEN
+  if (laire) THEN
+!  print*,'gmean airetot=',airetot
+   if(airetot.NE.0.) THEN
+    mfield=sumtmp/airetot
+!  else
+!   mfield=sumtmp
+   endif
+  else
+   mfield=sumtmp
+  endif
+
+! print*,'gmean sumtmp mfield=',sumtmp,mfield
+
+  endif !(is_mpi_root) THEN
+!$OMP END MASTER
+
+  endif
+
+  end subroutine global_mean
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/gr_fi_ecrit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/gr_fi_ecrit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/gr_fi_ecrit.F90	(revision 3330)
@@ -0,0 +1,24 @@
+SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit)
+  IMPLICIT none
+  !
+  ! Tranformer une variable de la grille physique a
+  ! la grille d'ecriture
+  !
+  ! WARNING: This only works on the full global grid
+  !          (ie for GCM in serial mode)
+  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
+END SUBROUTINE gr_fi_ecrit
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/grid_noro_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/grid_noro_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/grid_noro_m.F90	(revision 3330)
@@ -0,0 +1,495 @@
+MODULE grid_noro_m
+!
+!*******************************************************************************
+
+  USE print_control_mod, ONLY: lunout
+  USE assert_eq_m,       ONLY: assert_eq
+  PRIVATE
+  PUBLIC :: grid_noro, grid_noro0
+
+
+CONTAINS
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE grid_noro(xd,yd,zd,x,y,zphi,zmea,zstd,zsig,zgam,zthe,zpic,zval,mask)
+!
+!-------------------------------------------------------------------------------
+! Author: F. Lott (see also Z.X. Li, A. Harzallah et L. Fairhead)
+!-------------------------------------------------------------------------------
+! Purpose: Compute the Parameters of the SSO scheme as described in LOTT &MILLER
+!         (1997) and LOTT(1999).
+!-------------------------------------------------------------------------------
+! Comments:
+!  * Target points are on a rectangular grid:
+!      iim+1 latitudes including North and South Poles;
+!      jjm+1 longitudes, with periodicity jjm+1=1.
+!  * At the poles, the fields value is repeated jjm+1 time.
+!  * The parameters a,b,c,d represent the limits of the target gridpoint region.
+!    The means over this region are calculated from USN data, ponderated by a
+!    weight proportional to the surface occupated by the data inside the model
+!    gridpoint area. In most circumstances, this weight is the ratio between the
+!    surfaces of the USN gridpoint area and the model gridpoint area. 
+!
+!           (c)
+!        ----d-----
+!        | . . . .|
+!        |        |
+!     (b)a . * . .b(a)
+!        |        |
+!        | . . . .|
+!        ----c-----
+!           (d)
+!  * Hard-coded US Navy dataset dimensions (imdp=2160 ; jmdp=1080) have been
+!    removed (ALLOCATABLE used).
+!  * iext (currently 10% of imdp) represents the margin to ensure output cells
+!    on the edge are contained in input cells.
+!===============================================================================
+  IMPLICIT NONE
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)  :: xd(:), yd(:)  !--- INPUT  COORDINATES     (imdp) (jmdp)
+  REAL, INTENT(IN)  :: zd(:,:)       !--- INPUT  FIELD           (imdp,jmdp)
+  REAL, INTENT(IN)  :: x(:), y(:)    !--- OUTPUT COORDINATES     (imar+1) (jmar)
+  REAL, INTENT(OUT) :: zphi(:,:)     !--- GEOPOTENTIAL           (imar+1,jmar)
+  REAL, INTENT(OUT) :: zmea(:,:)     !--- MEAN OROGRAPHY         (imar+1,jmar)
+  REAL, INTENT(OUT) :: zstd(:,:)     !--- STANDARD DEVIATION     (imar+1,jmar)
+  REAL, INTENT(OUT) :: zsig(:,:)     !--- SLOPE                  (imar+1,jmar)
+  REAL, INTENT(OUT) :: zgam(:,:)     !--- ANISOTROPY             (imar+1,jmar)
+  REAL, INTENT(OUT) :: zthe(:,:)     !--- SMALL AXIS ORIENTATION (imar+1,jmar)
+  REAL, INTENT(OUT) :: zpic(:,:)     !--- MAXIMUM ALTITITUDE     (imar+1,jmar)
+  REAL, INTENT(OUT) :: zval(:,:)     !--- MINIMUM ALTITITUDE     (imar+1,jmar)
+  REAL, INTENT(OUT) :: mask(:,:)     !--- MASK                   (imar+1,jmar)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="grid_noro"
+  REAL, ALLOCATABLE :: xusn(:), yusn(:)           ! dim (imdp+2*iext) (jmdp+2)
+  REAL, ALLOCATABLE :: zusn(:,:)                  ! dim (imdp+2*iext,jmdp+2)
+! CORRELATIONS OF OROGRAPHY GRADIENT              ! dim (imar+1,jmar)
+  REAL, ALLOCATABLE :: ztz(:,:), zxtzx(:,:), zytzy(:,:), zxtzy(:,:), weight(:,:)
+! CORRELATIONS OF USN OROGRAPHY GRADIENTS         ! dim (imar+2*iext,jmdp+2)
+  REAL, ALLOCATABLE :: zxtzxusn(:,:), zytzyusn(:,:), zxtzyusn(:,:)
+  REAL, ALLOCATABLE :: mask_tmp(:,:), zmea0(:,:)  ! dim (imar+1,jmar)
+  REAL, ALLOCATABLE :: num_tot(:,:), num_lan(:,:) ! dim (imax,jmax)
+  REAL, ALLOCATABLE :: a(:), b(:)                 ! dim (imax)
+  REAL, ALLOCATABLE :: c(:), d(:)                 ! dim (jmax)
+  LOGICAL :: masque_lu
+  INTEGER :: i, ii, imdp, imar, iext
+  INTEGER :: j, jj, jmdp, jmar, nn
+  REAL    :: xpi, zdeltax, zlenx, weighx, xincr,  zmeanor0
+  REAL    :: rad, zdeltay, zleny, weighy, masque, zmeasud0
+  REAL    :: zbordnor, zmeanor, zstdnor, zsignor, zweinor, zpicnor, zvalnor
+  REAL    :: zbordsud, zmeasud, zstdsud, zsigsud, zweisud, zpicsud, zvalsud
+  REAL    :: zbordest, zbordoue, xk, xl, xm, xp, xq, xw
+!-------------------------------------------------------------------------------
+  imdp=assert_eq(SIZE(xd),SIZE(zd,1),TRIM(modname)//" imdp")
+  jmdp=assert_eq(SIZE(yd),SIZE(zd,2),TRIM(modname)//" jmdp")
+  imar=assert_eq([SIZE(x),SIZE(zphi,1),SIZE(zmea,1),SIZE(zstd,1),SIZE(zsig,1), &
+                          SIZE(zgam,1),SIZE(zthe,1),SIZE(zpic,1),SIZE(zval,1), &
+                          SIZE(mask,1)],TRIM(modname)//" imar")-1
+  jmar=assert_eq([SIZE(y),SIZE(zphi,2),SIZE(zmea,2),SIZE(zstd,2),SIZE(zsig,2), &
+                          SIZE(zgam,2),SIZE(zthe,2),SIZE(zpic,2),SIZE(zval,2), &
+                          SIZE(mask,2)],TRIM(modname)//" jmar")
+!  IF(imar/=iim)   CALL abort_physic(TRIM(modname),'imar/=iim'  ,1)
+!  IF(jmar/=jjm+1) CALL abort_physic(TRIM(modname),'jmar/=jjm+1',1)
+  iext=imdp/10                                !--- OK up to 36 degrees cell
+  xpi = ACOS(-1.)
+  rad = 6371229.
+  zdeltay=2.*xpi/REAL(jmdp)*rad
+  WRITE(lunout,*)"*** Orography parameters at sub-cell scale ***"
+
+!--- ARE WE USING A READ MASK ?
+  masque_lu=ANY(mask/=-99999.); IF(.NOT.masque_lu) mask=0.0
+  WRITE(lunout,*)'Masque lu: ',masque_lu
+
+!--- EXTENSION OF THE INPUT DATABASE TO PROCEED COMPUTATIONS AT BOUNDARIES:
+  ALLOCATE(xusn(imdp+2*iext))
+  xusn(1     +iext:imdp  +iext)=xd(:)
+  xusn(1          :       iext)=xd(1+imdp-iext:imdp)-2.*xpi
+  xusn(1+imdp+iext:imdp+2*iext)=xd(1          :iext)+2.*xpi
+
+  ALLOCATE(yusn(jmdp+2))
+  yusn(1       )=yd(1)   +(yd(1)   -yd(2))
+  yusn(2:jmdp+1)=yd(:)
+  yusn(  jmdp+2)=yd(jmdp)+(yd(jmdp)-yd(jmdp-1))
+
+  ALLOCATE(zusn(imdp+2*iext,jmdp+2))
+  zusn(1       +iext:imdp  +iext,2:jmdp+1)=zd  (:                   ,     :)
+  zusn(1            :       iext,2:jmdp+1)=zd  (imdp-iext+1:imdp    ,     :)
+  zusn(1+imdp  +iext:imdp+2*iext,2:jmdp+1)=zd  (1:iext              ,     :)
+  zusn(1            :imdp/2+iext,       1)=zusn(1+imdp/2:imdp  +iext,     2)
+  zusn(1+imdp/2+iext:imdp+2*iext,       1)=zusn(1       :imdp/2+iext,     2)
+  zusn(1            :imdp/2+iext,  jmdp+2)=zusn(1+imdp/2:imdp  +iext,jmdp+1)
+  zusn(1+imdp/2+iext:imdp+2*iext,  jmdp+2)=zusn(1       :imdp/2+iext,jmdp+1)
+
+!--- COMPUTE LIMITS OF MODEL GRIDPOINT AREA (REGULAR GRID)
+  ALLOCATE(a(imar+1),b(imar+1))
+  b(1:imar)=(x(1:imar  )+ x(2:imar+1))/2.0
+  b(imar+1)= x(  imar+1)+(x(  imar+1)-x(imar))/2.0
+  a(1)=x(1)-(x(2)-x(1))/2.0
+  a(2:imar+1)= b(1:imar)
+
+  ALLOCATE(c(jmar),d(jmar))
+  d(1:jmar-1)=(y(1:jmar-1)+ y(2:jmar))/2.0
+  d(  jmar  )= y(  jmar  )+(y(  jmar)-y(jmar-1))/2.0
+  c(1)=y(1)-(y(2)-y(1))/2.0
+  c(2:jmar)=d(1:jmar-1)
+
+!--- INITIALIZATIONS:
+  ALLOCATE(weight(imar+1,jmar)); weight(:,:)= 0.0
+  ALLOCATE(zxtzx (imar+1,jmar)); zxtzx (:,:)= 0.0
+  ALLOCATE(zytzy (imar+1,jmar)); zytzy (:,:)= 0.0
+  ALLOCATE(zxtzy (imar+1,jmar)); zxtzy (:,:)= 0.0
+  ALLOCATE(ztz   (imar+1,jmar)); ztz   (:,:)= 0.0
+  zmea(:,:)= 0.0
+  zpic(:,:)=-1.E+10
+  zval(:,:)= 1.E+10
+
+!--- COMPUTE SLOPES CORRELATIONS ON USN GRID
+! CORRELATIONS OF USN OROGRAPHY GRADIENTS  ! dim (imdp+2*iext,jmdp+2)
+  ALLOCATE(zytzyusn(imdp+2*iext,jmdp+2)); zytzyusn(:,:)=0.0
+  ALLOCATE(zxtzxusn(imdp+2*iext,jmdp+2)); zxtzxusn(:,:)=0.0
+  ALLOCATE(zxtzyusn(imdp+2*iext,jmdp+2)); zxtzyusn(:,:)=0.0
+  DO j = 2, jmdp+1
+    zdeltax=zdeltay*cos(yusn(j))
+    DO i = 2, imdp+2*iext-1
+      zytzyusn(i,j)=(zusn(i,j+1)-zusn(i,j-1))**2/zdeltay**2
+      zxtzxusn(i,j)=(zusn(i+1,j)-zusn(i-1,j))**2/zdeltax**2
+      zxtzyusn(i,j)=(zusn(i,j+1)-zusn(i,j-1))   /zdeltay  &
+     &             *(zusn(i+1,j)-zusn(i-1,j))   /zdeltax
+    END DO
+  END DO
+
+!--- SUMMATION OVER GRIDPOINT AREA
+  zleny=xpi/REAL(jmdp)*rad
+  xincr=xpi/REAL(jmdp)/2.
+  ALLOCATE(num_tot(imar+1,jmar)); num_tot(:,:)=0.
+  ALLOCATE(num_lan(imar+1,jmar)); num_lan(:,:)=0.
+  DO ii = 1, imar+1
+    DO jj = 1, jmar
+      DO j = 2,jmdp+1 
+        zlenx  =zleny  *COS(yusn(j))
+        zdeltax=zdeltay*COS(yusn(j))
+        zbordnor=(xincr+c(jj)-yusn(j))*rad
+        zbordsud=(xincr-d(jj)+yusn(j))*rad
+        weighy=AMAX1(0.,AMIN1(zbordnor,zbordsud,zleny))
+        IF(weighy==0.) CYCLE
+        DO i = 2, imdp+2*iext-1
+          zbordest=(xusn(i)-a(ii)+xincr)*rad*COS(yusn(j))
+          zbordoue=(b(ii)+xincr-xusn(i))*rad*COS(yusn(j))
+          weighx=AMAX1(0.,AMIN1(zbordest,zbordoue,zlenx))
+          IF(weighx==0.) CYCLE
+          num_tot(ii,jj)=num_tot(ii,jj)+1.0
+          IF(zusn(i,j)>=1.)num_lan(ii,jj)=num_lan(ii,jj)+1.0
+          weight(ii,jj)=weight(ii,jj)+weighx*weighy
+          zxtzx(ii,jj)=zxtzx(ii,jj)+zxtzxusn(i,j)*weighx*weighy
+          zytzy(ii,jj)=zytzy(ii,jj)+zytzyusn(i,j)*weighx*weighy
+          zxtzy(ii,jj)=zxtzy(ii,jj)+zxtzyusn(i,j)*weighx*weighy
+          ztz  (ii,jj)=  ztz(ii,jj)+zusn(i,j)*zusn(i,j)*weighx*weighy
+          zmea (ii,jj)= zmea(ii,jj)+zusn(i,j)*weighx*weighy !--- MEAN
+          zpic (ii,jj)=AMAX1(zpic(ii,jj),zusn(i,j))         !--- PEAKS
+          zval (ii,jj)=AMIN1(zval(ii,jj),zusn(i,j))         !--- VALLEYS
+        END DO
+      END DO
+    END DO
+  END DO
+
+!--- COMPUTE PARAMETERS NEEDED BY LOTT & MILLER (1997) AND LOTT (1999) SSO SCHEME
+  IF(.NOT.masque_lu) THEN
+    WHERE(weight(:,1:jmar-1)/=0.0) mask=num_lan(:,:)/num_tot(:,:)
+  END IF
+  nn=COUNT(weight(:,1:jmar-1)==0.0)
+  IF(nn/=0) WRITE(lunout,*)'Problem with weight ; vanishing occurrences: ',nn
+  WHERE(weight(:,:)/=0.0)
+    zmea (:,:)=zmea (:,:)/weight(:,:)
+    zxtzx(:,:)=zxtzx(:,:)/weight(:,:)
+    zytzy(:,:)=zytzy(:,:)/weight(:,:)
+    zxtzy(:,:)=zxtzy(:,:)/weight(:,:)
+    ztz  (:,:)=ztz  (:,:)/weight(:,:)
+    zstd (:,:)=ztz  (:,:)-zmea(:,:)**2
+  END WHERE
+  WHERE(zstd(:,:)<0) zstd(:,:)=0.
+  zstd (:,:)=SQRT(zstd(:,:))
+
+!--- CORRECT VALUES OF HORIZONTAL SLOPE NEAR THE POLES:
+  zxtzx(:,   1)=zxtzx(:,     2)
+  zxtzx(:,jmar)=zxtzx(:,jmar-1)
+  zxtzy(:,   1)=zxtzy(:,     2)
+  zxtzy(:,jmar)=zxtzy(:,jmar-1)
+  zytzy(:,   1)=zytzy(:,     2)
+  zytzy(:,jmar)=zytzy(:,jmar-1)
+
+!=== FILTERS TO SMOOTH OUT FIELDS FOR INPUT INTO SSO SCHEME.
+!--- FIRST FILTER, MOVING AVERAGE OVER 9 POINTS.
+!-------------------------------------------------------------------------------
+  ALLOCATE(zmea0(imar+1,jmar))
+  zmea0(:,:)=zmea(:,:)                           ! GK211005 (CG) UNSMOOTHED TOPO
+  CALL MVA9(zmea);  CALL MVA9(zstd);  CALL MVA9(zpic);  CALL MVA9(zval)
+  CALL MVA9(zxtzx); CALL MVA9(zxtzy); CALL MVA9(zytzy)
+
+!--- MASK BASED ON GROUND MAXIMUM, 10% THRESHOLD. (SURFACE PARAMS MEANINGLESS)
+  ALLOCATE(mask_tmp(imar+1,jmar)); mask_tmp(:,:)=0.0
+  WHERE(mask>=0.1) mask_tmp = 1.
+  WHERE(weight(:,:)/=0.0)
+!   zphi (:,:)= mask_tmp(:,:)*zmea (:,:) ! GK211005 (CG) not necessarly smoothed
+    zphi (:,:)= mask_tmp(:,:)*zmea0(:,:)
+    zmea0(:,:)= mask_tmp(:,:)*zmea0(:,:)
+    zmea (:,:)= mask_tmp(:,:)*zmea (:,:)
+    zpic (:,:)= mask_tmp(:,:)*zpic (:,:)
+    zval (:,:)= mask_tmp(:,:)*zval (:,:)
+    zstd (:,:)= mask_tmp(:,:)*zstd (:,:)
+  END WHERE
+  DO ii = 1, imar
+    DO jj = 1, jmar
+      IF (weight(ii,jj)/=0.0) THEN
+      !--- Coefficients K, L et M:
+        xk=(zxtzx(ii,jj)+zytzy(ii,jj))/2.
+        xl=(zxtzx(ii,jj)-zytzy(ii,jj))/2.
+        xm=zxtzy(ii,jj)
+        xp=xk-SQRT(xl**2+xm**2)
+        xq=xk+SQRT(xl**2+xm**2)
+        xw=1.e-8
+        IF(xp<=xw) xp=0.
+        IF(xq<=xw) xq=xw
+        IF(ABS(xm)<=xw) xm=xw*SIGN(1.,xm)
+      !--- SLOPE
+        zsig(ii,jj)=SQRT(xq)*mask_tmp(ii,jj)
+      !---ISOTROPY
+        zgam(ii,jj)=xp/xq*mask_tmp(ii,jj)
+      !--- THETA ANGLE
+        zthe(ii,jj)=57.29577951*ATAN2(xm,xl)/2.*mask_tmp(ii,jj)
+      END IF
+    END DO
+  END DO
+  WRITE(lunout,*)'  MEAN ORO:' ,MAXVAL(zmea)
+  WRITE(lunout,*)'  ST. DEV.:' ,MAXVAL(zstd)
+  WRITE(lunout,*)'  PENTE:'    ,MAXVAL(zsig)
+  WRITE(lunout,*)'  ANISOTROP:',MAXVAL(zgam)
+  WRITE(lunout,*)'  ANGLE:'    ,MINVAL(zthe),MAXVAL(zthe)
+  WRITE(lunout,*)'  pic:'      ,MAXVAL(zpic)
+  WRITE(lunout,*)'  val:'      ,MAXVAL(zval)
+      
+!--- Values at poles
+  zmea0(imar+1,:)=zmea0(1,:)
+  zmea (imar+1,:)=zmea (1,:)
+  zphi (imar+1,:)=zphi (1,:)
+  zpic (imar+1,:)=zpic (1,:)
+  zval (imar+1,:)=zval (1,:)
+  zstd (imar+1,:)=zstd (1,:)
+  zsig (imar+1,:)=zsig (1,:)
+  zgam (imar+1,:)=zgam (1,:)
+  zthe (imar+1,:)=zthe (1,:)
+
+  zweinor =SUM(weight(1:imar,   1),DIM=1)
+  zweisud =SUM(weight(1:imar,jmar),DIM=1)
+  zmeanor0=SUM(weight(1:imar,   1)*zmea0(1:imar,   1),DIM=1)
+  zmeasud0=SUM(weight(1:imar,jmar)*zmea0(1:imar,jmar),DIM=1)
+  zmeanor =SUM(weight(1:imar,   1)*zmea (1:imar,   1),DIM=1)
+  zmeasud =SUM(weight(1:imar,jmar)*zmea (1:imar,jmar),DIM=1)
+  zstdnor =SUM(weight(1:imar,   1)*zstd (1:imar,   1),DIM=1)
+  zstdsud =SUM(weight(1:imar,jmar)*zstd (1:imar,jmar),DIM=1)
+  zsignor =SUM(weight(1:imar,   1)*zsig (1:imar,   1),DIM=1)
+  zsigsud =SUM(weight(1:imar,jmar)*zsig (1:imar,jmar),DIM=1)
+  zpicnor =SUM(weight(1:imar,   1)*zpic (1:imar,   1),DIM=1)
+  zpicsud =SUM(weight(1:imar,jmar)*zpic (1:imar,jmar),DIM=1)
+  zvalnor =SUM(weight(1:imar,   1)*zval (1:imar,   1),DIM=1)
+  zvalsud =SUM(weight(1:imar,jmar)*zval (1:imar,jmar),DIM=1)
+
+  zmea(:,1)=zmeanor /zweinor; zmea(:,jmar)=zmeasud /zweisud
+!  zphi(:,1)=zmeanor0/zweinor; zphi(:,jmar)=zmeasud0/zweisud   TO COMMIT
+  zphi(:,1)=zmeanor /zweinor; zphi(:,jmar)=zmeasud /zweisud
+  zpic(:,1)=zpicnor /zweinor; zpic(:,jmar)=zpicsud /zweisud
+  zval(:,1)=zvalnor /zweinor; zval(:,jmar)=zvalsud /zweisud
+  zstd(:,1)=zstdnor /zweinor; zstd(:,jmar)=zstdsud /zweisud
+  zsig(:,1)=zsignor /zweinor; zsig(:,jmar)=zsigsud /zweisud
+  zgam(:,1)=1.;               zgam(:,jmar)=1.
+  zthe(:,1)=0.;               zthe(:,jmar)=0.
+
+END SUBROUTINE grid_noro
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE grid_noro0(xd,yd,zd,x,y,zphi,mask)
+!
+!===============================================================================
+! Purpose: Extracted from grid_noro to provide geopotential height for dynamics
+!          without any call to physics subroutines.
+!===============================================================================
+  IMPLICIT NONE 
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(IN)   :: xd(:), yd(:) !--- INPUT  COORDINATES     (imdp) (jmdp)
+  REAL, INTENT(IN)   :: zd(:,:)      !--- INPUT  FIELD           (imdp,jmdp)
+  REAL, INTENT(IN)   :: x(:), y(:)   !--- OUTPUT COORDINATES     (imar+1) (jmar)
+  REAL, INTENT(OUT)  :: zphi(:,:)    !--- GEOPOTENTIAL           (imar+1,jmar)
+  REAL, INTENT(INOUT):: mask(:,:)    !--- MASK                   (imar+1,jmar)
+!-------------------------------------------------------------------------------
+! Local variables:
+  CHARACTER(LEN=256) :: modname="grid_noro0"
+  REAL, ALLOCATABLE :: xusn(:), yusn(:)           ! dim (imdp+2*iext) (jmdp+2)
+  REAL, ALLOCATABLE :: zusn(:,:)                  ! dim (imdp+2*iext,jmdp+2)
+  REAL, ALLOCATABLE :: weight(:,:)                ! dim (imar+1,jmar)
+  REAL, ALLOCATABLE :: mask_tmp(:,:), zmea(:,:)   ! dim (imar+1,jmar)
+  REAL, ALLOCATABLE :: num_tot(:,:), num_lan(:,:) ! dim (imax,jmax)
+  REAL, ALLOCATABLE :: a(:), b(:)                 ! dim (imax)
+  REAL, ALLOCATABLE :: c(:), d(:)                 ! dim (jmax)
+  LOGICAL :: masque_lu
+  INTEGER :: i, ii, imdp, imar, iext
+  INTEGER :: j, jj, jmdp, jmar, nn
+  REAL    :: xpi, zlenx, weighx, xincr,  zbordnor, zmeanor, zweinor, zbordest
+  REAL    :: rad, zleny, weighy, masque, zbordsud, zmeasud, zweisud, zbordoue
+!-------------------------------------------------------------------------------
+  imdp=assert_eq(SIZE(xd),SIZE(zd,1),TRIM(modname)//" imdp")
+  jmdp=assert_eq(SIZE(yd),SIZE(zd,2),TRIM(modname)//" jmdp")
+  imar=assert_eq(SIZE(x),SIZE(zphi,1),SIZE(mask,1),TRIM(modname)//" imar")-1
+  jmar=assert_eq(SIZE(y),SIZE(zphi,2),SIZE(mask,2),TRIM(modname)//" jmar")
+! IF(imar/=iim)   CALL abort_gcm(TRIM(modname),'imar/=iim'  ,1)
+! IF(jmar/=jjm+1) CALL abort_gcm(TRIM(modname),'jmar/=jjm+1',1)
+  iext=imdp/10
+  xpi = ACOS(-1.)
+  rad = 6371229.
+
+!--- ARE WE USING A READ MASK ?
+  masque_lu=ANY(mask/=-99999.); IF(.NOT.masque_lu) mask=0.0
+  WRITE(lunout,*)'Masque lu: ',masque_lu
+
+!--- EXTENSION OF THE INPUT DATABASE TO PROCEED COMPUTATIONS AT BOUNDARIES:
+  ALLOCATE(xusn(imdp+2*iext))
+  xusn(1     +iext:imdp  +iext)=xd(:)
+  xusn(1          :       iext)=xd(1+imdp-iext:imdp)-2.*xpi
+  xusn(1+imdp+iext:imdp+2*iext)=xd(1          :iext)+2.*xpi
+
+  ALLOCATE(yusn(jmdp+2))
+  yusn(1       )=yd(1)   +(yd(1)   -yd(2))
+  yusn(2:jmdp+1)=yd(:)
+  yusn(  jmdp+2)=yd(jmdp)+(yd(jmdp)-yd(jmdp-1))
+
+  ALLOCATE(zusn(imdp+2*iext,jmdp+2))
+  zusn(1       +iext:imdp  +iext,2:jmdp+1)=zd  (:                   ,     :)
+  zusn(1            :       iext,2:jmdp+1)=zd  (imdp-iext+1:imdp    ,     :)
+  zusn(1+imdp  +iext:imdp+2*iext,2:jmdp+1)=zd  (1:iext              ,     :)
+  zusn(1            :imdp/2+iext,       1)=zusn(1+imdp/2:imdp  +iext,     2)
+  zusn(1+imdp/2+iext:imdp+2*iext,       1)=zusn(1       :imdp/2+iext,     2)
+  zusn(1            :imdp/2+iext,  jmdp+2)=zusn(1+imdp/2:imdp  +iext,jmdp+1)
+  zusn(1+imdp/2+iext:imdp+2*iext,  jmdp+2)=zusn(1       :imdp/2+iext,jmdp+1)
+
+!--- COMPUTE LIMITS OF MODEL GRIDPOINT AREA (REGULAR GRID)
+  ALLOCATE(a(imar+1),b(imar+1))
+  b(1:imar)=(x(1:imar  )+ x(2:imar+1))/2.0
+  b(imar+1)= x(  imar+1)+(x(  imar+1)-x(imar))/2.0
+  a(1)=x(1)-(x(2)-x(1))/2.0
+  a(2:imar+1)= b(1:imar)
+
+  ALLOCATE(c(jmar),d(jmar))
+  d(1:jmar-1)=(y(1:jmar-1)+ y(2:jmar))/2.0
+  d(  jmar  )= y(  jmar  )+(y(  jmar)-y(jmar-1))/2.0
+  c(1)=y(1)-(y(2)-y(1))/2.0
+  c(2:jmar)=d(1:jmar-1)
+
+!--- INITIALIZATIONS:
+  ALLOCATE(weight(imar+1,jmar)); weight(:,:)= 0.0
+  ALLOCATE(zmea  (imar+1,jmar)); zmea  (:,:)= 0.0
+
+!--- SUMMATION OVER GRIDPOINT AREA
+  zleny=xpi/REAL(jmdp)*rad
+  xincr=xpi/REAL(jmdp)/2.
+  ALLOCATE(num_tot(imar+1,jmar)); num_tot(:,:)=0.
+  ALLOCATE(num_lan(imar+1,jmar)); num_lan(:,:)=0.
+  DO ii = 1, imar+1
+    DO jj = 1, jmar
+      DO j = 2,jmdp+1 
+        zlenx  =zleny  *COS(yusn(j))
+        zbordnor=(xincr+c(jj)-yusn(j))*rad
+        zbordsud=(xincr-d(jj)+yusn(j))*rad
+        weighy=AMAX1(0.,AMIN1(zbordnor,zbordsud,zleny))
+        IF(weighy/=0) THEN
+          DO i = 2, imdp+2*iext-1
+            zbordest=(xusn(i)-a(ii)+xincr)*rad*COS(yusn(j))
+            zbordoue=(b(ii)+xincr-xusn(i))*rad*COS(yusn(j))
+            weighx=AMAX1(0.,AMIN1(zbordest,zbordoue,zlenx))
+            IF(weighx/=0)THEN
+              num_tot(ii,jj)=num_tot(ii,jj)+1.0
+              IF(zusn(i,j)>=1.)num_lan(ii,jj)=num_lan(ii,jj)+1.0
+              weight(ii,jj)=weight(ii,jj)+weighx*weighy
+              zmea  (ii,jj)=zmea  (ii,jj)+zusn(i,j)*weighx*weighy !--- MEAN
+            END IF
+          END DO
+        END IF
+      END DO
+    END DO
+  END DO
+
+!--- COMPUTE PARAMETERS NEEDED BY LOTT & MILLER (1997) AND LOTT (1999) SSO SCHEME
+  IF(.NOT.masque_lu) THEN
+    WHERE(weight(:,1:jmar-1)/=0.0) mask=num_lan(:,:)/num_tot(:,:)
+  END IF
+  nn=COUNT(weight(:,1:jmar-1)==0.0)
+  IF(nn/=0) WRITE(lunout,*)'Problem with weight ; vanishing occurrences: ',nn
+  WHERE(weight/=0.0) zmea(:,:)=zmea(:,:)/weight(:,:)
+
+!--- MASK BASED ON GROUND MAXIMUM, 10% THRESHOLD (<10%: SURF PARAMS MEANINGLESS)
+  ALLOCATE(mask_tmp(imar+1,jmar)); mask_tmp(:,:)=0.0
+  WHERE(mask>=0.1) mask_tmp = 1.
+  WHERE(weight(:,:)/=0.0)
+    zphi(:,:)=mask_tmp(:,:)*zmea(:,:)
+    zmea(:,:)=mask_tmp(:,:)*zmea(:,:)
+  END WHERE
+  WRITE(lunout,*)'  MEAN ORO:' ,MAXVAL(zmea)
+
+!--- Values at poles
+  zphi(imar+1,:)=zphi(1,:)
+
+  zweinor=SUM(weight(1:imar,   1),DIM=1)
+  zweisud=SUM(weight(1:imar,jmar),DIM=1)
+  zmeanor=SUM(weight(1:imar,   1)*zmea(1:imar,   1),DIM=1)
+  zmeasud=SUM(weight(1:imar,jmar)*zmea(1:imar,jmar),DIM=1)
+  zphi(:,1)=zmeanor/zweinor; zphi(:,jmar)=zmeasud/zweisud
+
+END SUBROUTINE grid_noro0
+!
+!-------------------------------------------------------------------------------
+
+
+!-------------------------------------------------------------------------------
+!
+SUBROUTINE MVA9(x)
+!
+!-------------------------------------------------------------------------------
+  IMPLICIT NONE
+! MAKE A MOVING AVERAGE OVER 9 GRIDPOINTS OF THE X FIELDS
+!-------------------------------------------------------------------------------
+! Arguments:
+  REAL, INTENT(INOUT) :: x(:,:)
+!-------------------------------------------------------------------------------
+! Local variables:
+  REAL    :: xf(SIZE(x,DIM=1),SIZE(x,DIM=2)), WEIGHTpb(-1:1,-1:1)
+  INTEGER :: i, j, imar, jmar
+!-------------------------------------------------------------------------------
+  WEIGHTpb=RESHAPE([((1./REAL((1+i**2)*(1+j**2)),i=-1,1),j=-1,1)],SHAPE=[3,3])
+  WEIGHTpb=WEIGHTpb/SUM(WEIGHTpb)
+  imar=SIZE(X,DIM=1); jmar=SIZE(X,DIM=2)
+  DO j=2,jmar-1
+    DO i=2,imar-1
+      xf(i,j)=SUM(x(i-1:i+1,j-1:j+1)*WEIGHTpb(:,:))
+    END DO
+  END DO
+  DO j=2,jmar-1
+    xf(1,j)=SUM(x(imar-1,j-1:j+1)*WEIGHTpb(-1,:))
+    xf(1,j)=xf(1,j)+SUM(x(1:2,j-1:j+1)*WEIGHTpb(0:1,-1:1))
+    xf(imar,j)=xf(1,j)
+  END DO
+  xf(:,   1)=xf(:,     2)
+  xf(:,jmar)=xf(:,jmar-1)
+  x(:,:)=xf(:,:)
+
+END SUBROUTINE MVA9
+!
+!-------------------------------------------------------------------------------
+
+
+END MODULE grid_noro_m
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/haut2bas.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/haut2bas.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/haut2bas.F90	(revision 3330)
@@ -0,0 +1,19 @@
+
+! $Header$
+
+SUBROUTINE haut2bas(klon, klev, varb2h, varh2b)
+  IMPLICIT NONE
+
+  INTEGER klon, klev
+  REAL varb2h(klon, klev), varh2b(klon, klev)
+  INTEGER i, k, kinv
+
+  DO k = 1, klev
+    kinv = klev - k + 1
+    DO i = 1, klon
+      varh2b(i, k) = varb2h(i, kinv)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE haut2bas
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hbtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hbtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hbtm.F90	(revision 3330)
@@ -0,0 +1,758 @@
+
+! $Header$
+
+
+SUBROUTINE hbtm(knon, paprs, pplay, t2m, t10m, q2m, q10m, ustar, wstar, &
+    flux_t, flux_q, u, v, t, q, pblh, cape, eauliq, ctei, pblt, therm, trmb1, &
+    trmb2, trmb3, plcl)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! ***************************************************************
+  ! *                                                             *
+  ! * HBTM2   D'apres Holstag&Boville et Troen&Mahrt              *
+  ! *                 JAS 47              BLM                     *
+  ! * Algorithme These Anne Mathieu                               *
+  ! * Critere d'Entrainement Peter Duynkerke (JAS 50)             *
+  ! * written by  : Anne MATHIEU & Alain LAHELLEC, 22/11/99       *
+  ! * features : implem. exces Mathieu                            *
+  ! ***************************************************************
+  ! * mods : decembre 99 passage th a niveau plus bas. voir fixer *
+  ! * la prise du th a z/Lambda = -.2 (max Ray)                   *
+  ! * Autre algo : entrainement ~ Theta+v =cste mais comment=>The?*
+  ! * on peut fixer q a .7qsat(cf non adiab)=>T2 et The2          *
+  ! * voir aussi //KE pblh = niveau The_e ou l = env.             *
+  ! ***************************************************************
+  ! * fin therm a la HBTM passage a forme Mathieu 12/09/2001      *
+  ! ***************************************************************
+  ! *
+
+
+  ! AM Fev 2003
+  ! Adaptation a LMDZ version couplee
+
+  ! Pour le moment on fait passer en argument les grdeurs de surface :
+  ! flux, t,q2m, t,q10m, on va utiliser systematiquement les grdeurs a 2m ms
+  ! on garde la possibilite de changer si besoin est (jusqu'a present la
+  ! forme de HB avec le 1er niveau modele etait conservee)
+
+
+
+
+
+  include "YOMCST.h"
+  REAL rlvcp, reps
+  ! Arguments:
+
+  INTEGER knon ! nombre de points a calculer
+  ! AM
+  REAL t2m(klon), t10m(klon) ! temperature a 2 et 10m
+  REAL q2m(klon), q10m(klon) ! q a 2 et 10m
+  REAL ustar(klon)
+  REAL wstar(klon) ! w*, convective velocity scale
+  REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL flux_t(klon, klev), flux_q(klon, klev) ! Flux
+  REAL u(klon, klev) ! vitesse U (m/s)
+  REAL v(klon, klev) ! vitesse V (m/s)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! vapeur d'eau (kg/kg)
+  ! AM      REAL cd_h(klon) ! coefficient de friction au sol pour chaleur
+  ! AM      REAL cd_m(klon) ! coefficient de friction au sol pour vitesse
+
+  INTEGER isommet
+  ! um      PARAMETER (isommet=klev) ! limite max sommet pbl
+  REAL, PARAMETER :: vk = 0.35 ! Von Karman => passer a .41 ! cf U.Olgstrom
+  REAL, PARAMETER :: ricr = 0.4
+  REAL, PARAMETER :: fak = 8.5 ! b calcul du Prandtl et de dTetas
+  REAL, PARAMETER :: fakn = 7.2 ! a
+  REAL, PARAMETER :: onet = 1.0/3.0
+  REAL, PARAMETER :: t_coup = 273.15
+  REAL, PARAMETER :: zkmin = 0.01
+  REAL, PARAMETER :: betam = 15.0 ! pour Phim / h dans la S.L stable
+  REAL, PARAMETER :: betah = 15.0
+  REAL, PARAMETER :: betas = 5.0 ! Phit dans la S.L. stable (mais 2 formes / z/OBL<>1
+  REAL, PARAMETER :: sffrac = 0.1 ! S.L. = z/h < .1
+  REAL, PARAMETER :: usmin = 1.E-12
+  REAL, PARAMETER :: binm = betam*sffrac
+  REAL, PARAMETER :: binh = betah*sffrac
+  REAL, PARAMETER :: ccon = fak*sffrac*vk
+  REAL, PARAMETER :: b1 = 70., b2 = 20.
+  REAL, PARAMETER :: zref = 2. ! Niveau de ref a 2m peut eventuellement
+  ! etre choisi a 10m
+  REAL q_star, t_star
+  REAL b212, b2sr ! Lambert correlations T' q' avec T* q*
+
+  REAL z(klon, klev)
+  ! AM      REAL pcfm(klon,klev), pcfh(klon,klev)
+  INTEGER i, k, j
+  REAL zxt
+  ! AM      REAL zxt, zxq, zxu, zxv, zxmod, taux, tauy
+  ! AM      REAL zx_alf1, zx_alf2 ! parametres pour extrapolation
+  REAL khfs(klon) ! surface kinematic heat flux [mK/s]
+  REAL kqfs(klon) ! sfc kinematic constituent flux [m/s]
+  REAL heatv(klon) ! surface virtual heat flux
+  REAL rhino(klon, klev) ! bulk Richardon no. mais en Theta_v
+  LOGICAL unstbl(klon) ! pts w/unstbl pbl (positive virtual ht flx)
+  LOGICAL stblev(klon) ! stable pbl with levels within pbl
+  LOGICAL unslev(klon) ! unstbl pbl with levels within pbl
+  LOGICAL unssrf(klon) ! unstb pbl w/lvls within srf pbl lyr
+  LOGICAL unsout(klon) ! unstb pbl w/lvls in outer pbl lyr
+  LOGICAL check(klon) ! True=>chk if Richardson no.>critcal
+  LOGICAL omegafl(klon) ! flag de prolongerment cape pour pt Omega
+  REAL pblh(klon)
+  REAL pblt(klon)
+  REAL plcl(klon)
+  ! AM      REAL cgh(klon,2:klev) ! counter-gradient term for heat [K/m]
+  ! AM      REAL cgq(klon,2:klev) ! counter-gradient term for constituents
+  ! AM      REAL cgs(klon,2:klev) ! counter-gradient star (cg/flux)
+  REAL unsobklen(klon) ! Monin-Obukhov lengh
+  ! AM      REAL ztvd, ztvu,
+  REAL zdu2
+  REAL therm(klon) ! thermal virtual temperature excess
+  REAL trmb1(klon), trmb2(klon), trmb3(klon)
+  ! Algorithme thermique
+  REAL s(klon, klev) ! [P/Po]^Kappa milieux couches
+  REAL th_th(klon) ! potential temperature of thermal
+  REAL the_th(klon) ! equivalent potential temperature of thermal
+  REAL qt_th(klon) ! total water  of thermal
+  REAL tbef(klon) ! T thermique niveau precedent
+  REAL qsatbef(klon)
+  LOGICAL zsat(klon) ! le thermique est sature
+  REAL cape(klon) ! Cape du thermique
+  REAL kape(klon) ! Cape locale
+  REAL eauliq(klon) ! Eau liqu integr du thermique
+  REAL ctei(klon) ! Critere d'instab d'entrainmt des nuages de CL
+  REAL the1, the2, aa, bb, zthvd, zthvu, xintpos, qqsat
+  ! IM 091204 BEG
+  REAL a1, a2, a3
+  ! IM 091204 END
+  REAL xhis, rnum, denom, th1, th2, thv1, thv2, ql2
+  REAL dqsat_dt, qsat2, qt1, q2, t1, t2, xnull, delt_the
+  REAL delt_qt, delt_2, quadsat, spblh, reduc
+
+  REAL phiminv(klon) ! inverse phi function for momentum
+  REAL phihinv(klon) ! inverse phi function for heat
+  REAL wm(klon) ! turbulent velocity scale for momentum
+  REAL fak1(klon) ! k*ustar*pblh
+  REAL fak2(klon) ! k*wm*pblh
+  REAL fak3(klon) ! fakn*wstar/wm
+  REAL pblk(klon) ! level eddy diffusivity for momentum
+  REAL pr(klon) ! Prandtl number for eddy diffusivities
+  REAL zl(klon) ! zmzp / Obukhov length
+  REAL zh(klon) ! zmzp / pblh
+  REAL zzh(klon) ! (1-(zmzp/pblh))**2
+  REAL zm(klon) ! current level height
+  REAL zp(klon) ! current level height + one level up
+  REAL zcor, zdelta, zcvm5
+  ! AM      REAL zxqs
+  REAL fac, pblmin, zmzp, term
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+
+
+  ! initialisations (Anne)
+  isommet = klev
+  th_th(:) = 0.
+  q_star = 0
+  t_star = 0
+
+
+  b212 = sqrt(b1*b2)
+  b2sr = sqrt(b2)
+
+  ! ============================================================
+  ! Fonctions thermo implicites
+  ! ============================================================
+  ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! Tetens : pression partielle de vap d'eau e_sat(T)
+  ! =================================================
+  ! ++ e_sat(T) = r2*exp( r3*(T-Tf)/(T-r4) ) id a r2*FOEWE
+  ! ++ avec :
+  ! ++ Tf = 273.16 K  (Temp de fusion de la glace)
+  ! ++ r2 = 611.14 Pa
+  ! ++ r3 = 17.269 (liquide) 21.875 (solide) adim
+  ! ++ r4 = 35.86             7.66           Kelvin
+  ! ++  q_sat = eps*e_sat/(p-(1-eps)*e_sat)
+  ! ++ deriv� :
+  ! ++ =========
+  ! ++                   r3*(Tf-r4)*q_sat(T,p)
+  ! ++ d_qsat_dT = --------------------------------
+  ! ++             (T-r4)^2*( 1-(1-eps)*e_sat(T)/p )
+  ! ++ pour zcvm5=Lv, c'est FOEDE
+  ! ++ Rq :(1.-REPS)*esarg/Parg id a RETV*Qsat
+  ! ------------------------------------------------------------------
+
+  ! Initialisation
+  rlvcp = rlvtt/rcpd
+  reps = rd/rv
+
+
+  ! DO i = 1, klon
+  ! pcfh(i,1) = cd_h(i)
+  ! pcfm(i,1) = cd_m(i)
+  ! ENDDO
+  ! DO k = 2, klev
+  ! DO i = 1, klon
+  ! pcfh(i,k) = zkmin
+  ! pcfm(i,k) = zkmin
+  ! cgs(i,k) = 0.0
+  ! cgh(i,k) = 0.0
+  ! cgq(i,k) = 0.0
+  ! ENDDO
+  ! ENDDO
+
+  ! Calculer les hauteurs de chaque couche
+  ! (geopotentielle Int_dp/ro = Int_[Rd.T.dp/p] z = geop/g)
+  ! pourquoi ne pas utiliser Phi/RG ?
+  DO i = 1, knon
+    z(i, 1) = rd*t(i, 1)/(0.5*(paprs(i,1)+pplay(i,1)))*(paprs(i,1)-pplay(i,1) &
+      )/rg
+    s(i, 1) = (pplay(i,1)/paprs(i,1))**rkappa
+  END DO
+  ! s(k) = [pplay(k)/ps]^kappa
+  ! + + + + + + + + + pplay  <-> s(k)   t  dp=pplay(k-1)-pplay(k)
+
+  ! -----------------  paprs <-> sig(k)
+
+  ! + + + + + + + + + pplay  <-> s(k-1)
+
+
+  ! + + + + + + + + + pplay  <-> s(1)   t  dp=paprs-pplay   z(1)
+
+  ! -----------------  paprs <-> sig(1)
+
+  DO k = 2, klev
+    DO i = 1, knon
+      z(i, k) = z(i, k-1) + rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)*(pplay(i,k-1 &
+        )-pplay(i,k))/rg
+      s(i, k) = (pplay(i,k)/paprs(i,1))**rkappa
+    END DO
+  END DO
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! +++  Determination des grandeurs de surface  +++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  DO i = 1, knon
+    ! AM         IF (thermcep) THEN
+    ! AM           zdelta=MAX(0.,SIGN(1.,RTT-tsol(i)))
+    ! zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
+    ! zcvm5 = zcvm5 / RCPD / (1.0+RVTMP2*q(i,1))
+    ! AM           zxqs= r2es * FOEEW(tsol(i),zdelta)/paprs(i,1)
+    ! AM           zxqs=MIN(0.5,zxqs)
+    ! AM           zcor=1./(1.-retv*zxqs)
+    ! AM           zxqs=zxqs*zcor
+    ! AM         ELSE
+    ! AM           IF (tsol(i).LT.t_coup) THEN
+    ! AM              zxqs = qsats(tsol(i)) / paprs(i,1)
+    ! AM           ELSE
+    ! AM              zxqs = qsatl(tsol(i)) / paprs(i,1)
+    ! AM           ENDIF
+    ! AM         ENDIF
+    ! niveau de reference bulk; mais ici, c,a pourrait etre le niveau de ref
+    ! du thermique
+    ! AM        zx_alf1 = 1.0
+    ! AM        zx_alf2 = 1.0 - zx_alf1
+    ! AM        zxt = (t(i,1)+z(i,1)*RG/RCPD/(1.+RVTMP2*q(i,1)))
+    ! AM     .        *(1.+RETV*q(i,1))*zx_alf1
+    ! AM     .      + (t(i,2)+z(i,2)*RG/RCPD/(1.+RVTMP2*q(i,2)))
+    ! AM     .        *(1.+RETV*q(i,2))*zx_alf2
+    ! AM        zxu = u(i,1)*zx_alf1+u(i,2)*zx_alf2
+    ! AM        zxv = v(i,1)*zx_alf1+v(i,2)*zx_alf2
+    ! AM        zxq = q(i,1)*zx_alf1+q(i,2)*zx_alf2
+    ! AM
+    ! AMAM           zxu = u10m(i)
+    ! AMAM           zxv = v10m(i)
+    ! AMAM           zxmod = 1.0+SQRT(zxu**2+zxv**2)
+    ! AM Niveau de ref choisi a 2m
+    zxt = t2m(i)
+
+    ! ***************************************************
+    ! attention, il doit s'agir de <w'theta'>
+    ! ;Calcul de tcls virtuel et de w'theta'virtuel
+    ! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ! tcls=tcls*(1+.608*qcls)
+
+    ! ;Pour avoir w'theta',
+    ! ; il faut diviser par ro.Cp
+    ! Cp=Cpd*(1+0.84*qcls)
+    ! fcs=fcs/(ro_surf*Cp)
+    ! ;On transforme w'theta' en w'thetav'
+    ! Lv=(2.501-0.00237*(tcls-273.15))*1.E6
+    ! xle=xle/(ro_surf*Lv)
+    ! fcsv=fcs+.608*xle*tcls
+    ! ***************************************************
+    ! AM        khfs(i) = (tsol(i)*(1.+RETV*q(i,1))-zxt) *zxmod*cd_h(i)
+    ! AM        kqfs(i) = (zxqs-zxq) *zxmod*cd_h(i) * beta(i)
+    ! AM
+    ! dif khfs est deja w't'_v / heatv(i) = khfs(i) + RETV*zxt*kqfs(i)
+    ! AM calcule de Ro = paprs(i,1)/Rd zxt
+    ! AM convention >0 vers le bas ds lmdz
+    khfs(i) = -flux_t(i, 1)*zxt*rd/(rcpd*paprs(i,1))
+    kqfs(i) = -flux_q(i, 1)*zxt*rd/(paprs(i,1))
+    ! AM   verifier que khfs et kqfs sont bien de la forme w'l'
+    heatv(i) = khfs(i) + 0.608*zxt*kqfs(i)
+    ! a comparer aussi aux sorties de clqh : flux_T/RoCp et flux_q/RoLv
+    ! AM        heatv(i) = khfs(i)
+    ! AM ustar est en entree
+    ! AM        taux = zxu *zxmod*cd_m(i)
+    ! AM        tauy = zxv *zxmod*cd_m(i)
+    ! AM        ustar(i) = SQRT(taux**2+tauy**2)
+    ! AM        ustar(i) = MAX(SQRT(ustar(i)),0.01)
+    ! Theta et qT du thermique sans exces (interpolin vers surf)
+    ! chgt de niveau du thermique (jeudi 30/12/1999)
+    ! (interpolation lineaire avant integration phi_h)
+    ! AM        qT_th(i) = zxqs*beta(i) + 4./z(i,1)*(q(i,1)-zxqs*beta(i))
+    ! AM        qT_th(i) = max(qT_th(i),q(i,1))
+    qt_th(i) = q2m(i)
+    ! n The_th restera la Theta du thermique sans exces jusqu'a 2eme calcul
+    ! n reste a regler convention P) pour Theta
+    ! The_th(i) = tsol(i) + 4./z(i,1)*(t(i,1)-tsol(i))
+    ! -                      + RLvCp*qT_th(i)
+    ! AM        Th_th(i) = tsol(i) + 4./z(i,1)*(t(i,1)-tsol(i))
+    th_th(i) = t2m(i)
+  END DO
+
+  DO i = 1, knon
+    rhino(i, 1) = 0.0 ! Global Richardson
+    check(i) = .TRUE.
+    pblh(i) = z(i, 1) ! on initialise pblh a l'altitude du 1er niveau
+    plcl(i) = 6000.
+    ! Lambda = -u*^3 / (alpha.g.kvon.<w'Theta'v>
+    unsobklen(i) = -rg*vk*heatv(i)/(t(i,1)*max(ustar(i),usmin)**3)
+    trmb1(i) = 0.
+    trmb2(i) = 0.
+    trmb3(i) = 0.
+  END DO
+
+
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! PBL height calculation:
+  ! Search for level of pbl. Scan upward until the Richardson number between
+  ! the first level and the current level exceeds the "critical" value.
+  ! (bonne idee Nu de separer le Ric et l'exces de temp du thermique)
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  fac = 100.0
+  DO k = 2, isommet
+    DO i = 1, knon
+      IF (check(i)) THEN
+        ! pourquoi / niveau 1 (au lieu du sol) et le terme en u*^2 ?
+        ! test     zdu2 =
+        ! (u(i,k)-u(i,1))**2+(v(i,k)-v(i,1))**2+fac*ustar(i)**2
+        zdu2 = u(i, k)**2 + v(i, k)**2
+        zdu2 = max(zdu2, 1.0E-20)
+        ! Theta_v environnement
+        zthvd = t(i, k)/s(i, k)*(1.+retv*q(i,k))
+
+        ! therm Theta_v sans exces (avec hypothese fausse de H&B, sinon,
+        ! passer par Theta_e et virpot)
+        ! zthvu=t(i,1)/s(i,1)*(1.+RETV*q(i,1))
+        ! AM         zthvu = Th_th(i)*(1.+RETV*q(i,1))
+        zthvu = th_th(i)*(1.+retv*qt_th(i))
+        ! Le Ri par Theta_v
+        ! AM         rhino(i,k) = (z(i,k)-z(i,1))*RG*(zthvd-zthvu)
+        ! AM     .               /(zdu2*0.5*(zthvd+zthvu))
+        ! AM On a nveau de ref a 2m ???
+        rhino(i, k) = (z(i,k)-zref)*rg*(zthvd-zthvu)/(zdu2*0.5*(zthvd+zthvu))
+
+        IF (rhino(i,k)>=ricr) THEN
+          pblh(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(ricr-rhino(i,k-1))/(rhino( &
+            i,k-1)-rhino(i,k))
+          ! test04
+          pblh(i) = pblh(i) + 100.
+          pblt(i) = t(i, k-1) + (t(i,k)-t(i,k-1))*(pblh(i)-z(i,k-1))/(z(i,k)- &
+            z(i,k-1))
+          check(i) = .FALSE.
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  ! Set pbl height to maximum value where computation exceeds number of
+  ! layers allowed
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! Improve estimate of pbl height for the unstable points.
+  ! Find unstable points (sensible heat flux is upward):
+
+  DO i = 1, knon
+    IF (heatv(i)>0.) THEN
+      unstbl(i) = .TRUE.
+      check(i) = .TRUE.
+    ELSE
+      unstbl(i) = .FALSE.
+      check(i) = .FALSE.
+    END IF
+  END DO
+
+  ! For the unstable case, compute velocity scale and the
+  ! convective temperature excess:
+
+  DO i = 1, knon
+    IF (check(i)) THEN
+      phiminv(i) = (1.-binm*pblh(i)*unsobklen(i))**onet
+      ! ***************************************************
+      ! Wm ? et W* ? c'est la formule pour z/h < .1
+      ! ;Calcul de w* ;;
+      ! ;;;;;;;;;;;;;;;;
+      ! w_star=((g/tcls)*fcsv*z(ind))^(1/3.) [ou prendre la premiere approx
+      ! de h)
+      ! ;; CALCUL DE wm ;;
+      ! ;;;;;;;;;;;;;;;;;;
+      ! ; Ici on considerera que l'on est dans la couche de surf jusqu'a 100m
+      ! ; On prend svt couche de surface=0.1*h mais on ne connait pas h
+      ! ;;;;;;;;;;;Dans la couche de surface
+      ! if (z(ind) le 20) then begin
+      ! Phim=(1.-15.*(z(ind)/L))^(-1/3.)
+      ! wm=u_star/Phim
+      ! ;;;;;;;;;;;En dehors de la couche de surface
+      ! endif else if (z(ind) gt 20) then begin
+      ! wm=(u_star^3+c1*w_star^3)^(1/3.)
+      ! endif
+      ! ***************************************************
+      wm(i) = ustar(i)*phiminv(i)
+      ! ======================================================================
+      ! valeurs de Dominique Lambert de la campagne SEMAPHORE :
+      ! <T'^2> = 100.T*^2; <q'^2> = 20.q*^2 a 10m
+      ! <Tv'^2> = (1+1.2q).100.T* + 1.2Tv.sqrt(20*100).T*.q* +
+      ! (.608*Tv)^2*20.q*^2;
+      ! et dTetavS = sqrt(<Tv'^2>) ainsi calculee.
+      ! avec : T*=<w'T'>_s/w* et q*=<w'q'>/w*
+      ! !!! on peut donc utiliser w* pour les fluctuations <-> Lambert
+      ! (leur corellation pourrait dependre de beta par ex)
+      ! if fcsv(i,j) gt 0 then begin
+      ! dTetavs=b1*(1.+2.*.608*q_10(i,j))*(fcs(i,j)/wm(i,j))^2+$
+      ! (.608*Thetav_10(i,j))^2*b2*(xle(i,j)/wm(i,j))^2+$
+      ! 2.*.608*thetav_10(i,j)*sqrt(b1*b2)*(xle(i,j)/wm(i,j))*(fcs(i,j)/wm(i,j))
+      ! dqs=b2*(xle(i,j)/wm(i,j))^2
+      ! theta_s(i,j)=thetav_10(i,j)+sqrt(dTetavs)
+      ! q_s(i,j)=q_10(i,j)+sqrt(dqs)
+      ! endif else begin
+      ! Theta_s(i,j)=thetav_10(i,j)
+      ! q_s(i,j)=q_10(i,j)
+      ! endelse
+      ! ======================================================================
+
+      ! HBTM        therm(i) = heatv(i)*fak/wm(i)
+      ! forme Mathieu :
+      q_star = kqfs(i)/wm(i)
+      t_star = khfs(i)/wm(i)
+      ! IM 091204 BEG
+      IF (1==0) THEN
+        IF (t_star<0. .OR. q_star<0.) THEN
+          PRINT *, 'i t_star q_star khfs kqfs wm', i, t_star, q_star, &
+            khfs(i), kqfs(i), wm(i)
+        END IF
+      END IF
+      ! IM 091204 END
+      ! AM Nveau cde ref 2m =>
+      ! AM        therm(i) = sqrt( b1*(1.+2.*RETV*q(i,1))*t_star**2
+      ! AM     +             + (RETV*T(i,1))**2*b2*q_star**2
+      ! AM     +             + 2.*RETV*T(i,1)*b212*q_star*t_star
+      ! AM     +                 )
+      ! IM 091204 BEG
+      a1 = b1*(1.+2.*retv*qt_th(i))*t_star**2
+      a2 = (retv*th_th(i))**2*b2*q_star*q_star
+      a3 = 2.*retv*th_th(i)*b212*q_star*t_star
+      aa = a1 + a2 + a3
+      IF (1==0) THEN
+        IF (aa<0.) THEN
+          PRINT *, 'i a1 a2 a3 aa', i, a1, a2, a3, aa
+          PRINT *, 'i qT_th Th_th t_star q_star RETV b1 b2 b212', i, &
+            qt_th(i), th_th(i), t_star, q_star, retv, b1, b2, b212
+        END IF
+      END IF
+      ! IM 091204 END
+      therm(i) = sqrt(b1*(1.+2.*retv*qt_th(i))*t_star**2+(retv*th_th( &
+        i))**2*b2*q_star*q_star &  ! IM 101204  +             +
+                                   ! 2.*RETV*Th_th(i)*b212*q_star*t_star
+        +max(0.,2.*retv*th_th(i)*b212*q_star*t_star))
+
+      ! Theta et qT du thermique (forme H&B) avec exces
+      ! (attention, on ajoute therm(i) qui est virtuelle ...)
+      ! pourquoi pas sqrt(b1)*t_star ?
+      ! dqs = b2sr*kqfs(i)/wm(i)
+      qt_th(i) = qt_th(i) + b2sr*q_star
+      ! new on differre le calcul de Theta_e
+      ! The_th(i) = The_th(i) + therm(i) + RLvCp*qT_th(i)
+      ! ou:    The_th(i) = The_th(i) + sqrt(b1)*khfs(i)/wm(i) +
+      ! RLvCp*qT_th(i)
+      rhino(i, 1) = 0.0
+    END IF
+  END DO
+
+  ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++ Improve pblh estimate for unstable conditions using the +++++++
+  ! ++          convective temperature excess :                +++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+  DO k = 2, isommet
+    DO i = 1, knon
+      IF (check(i)) THEN
+        ! test     zdu2 =
+        ! (u(i,k)-u(i,1))**2+(v(i,k)-v(i,1))**2+fac*ustar(i)**2
+        zdu2 = u(i, k)**2 + v(i, k)**2
+        zdu2 = max(zdu2, 1.0E-20)
+        ! Theta_v environnement
+        zthvd = t(i, k)/s(i, k)*(1.+retv*q(i,k))
+
+        ! et therm Theta_v (avec hypothese de constance de H&B,
+        ! zthvu=(t(i,1)+therm(i))/s(i,1)*(1.+RETV*q(i,1))
+        zthvu = th_th(i)*(1.+retv*qt_th(i)) + therm(i)
+
+
+        ! Le Ri par Theta_v
+        ! AM Niveau de ref 2m
+        ! AM         rhino(i,k) = (z(i,k)-z(i,1))*RG*(zthvd-zthvu)
+        ! AM     .               /(zdu2*0.5*(zthvd+zthvu))
+        rhino(i, k) = (z(i,k)-zref)*rg*(zthvd-zthvu)/(zdu2*0.5*(zthvd+zthvu))
+
+
+        IF (rhino(i,k)>=ricr) THEN
+          pblh(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(ricr-rhino(i,k-1))/(rhino( &
+            i,k-1)-rhino(i,k))
+          ! test04
+          pblh(i) = pblh(i) + 100.
+          pblt(i) = t(i, k-1) + (t(i,k)-t(i,k-1))*(pblh(i)-z(i,k-1))/(z(i,k)- &
+            z(i,k-1))
+          check(i) = .FALSE.
+          ! IM 170305 BEG
+          IF (1==0) THEN
+            ! debug print -120;34       -34-        58 et    0;26 wamp
+            IF (i==950 .OR. i==192 .OR. i==624 .OR. i==118) THEN
+              PRINT *, ' i,Th_th,Therm,qT :', i, th_th(i), therm(i), qt_th(i)
+              q_star = kqfs(i)/wm(i)
+              t_star = khfs(i)/wm(i)
+              PRINT *, 'q* t*, b1,b2,b212 ', q_star, t_star, &
+                b1*(1.+2.*retv*qt_th(i))*t_star**2, &
+                (retv*th_th(i))**2*b2*q_star**2, 2.*retv*th_th(i)*b212*q_star &
+                *t_star
+              PRINT *, 'zdu2 ,100.*ustar(i)**2', zdu2, fac*ustar(i)**2
+            END IF
+          END IF !(1.EQ.0) THEN
+          ! IM 170305 END
+          ! q_star = kqfs(i)/wm(i)
+          ! t_star = khfs(i)/wm(i)
+          ! trmb1(i) = b1*(1.+2.*RETV*q(i,1))*t_star**2
+          ! trmb2(i) = (RETV*T(i,1))**2*b2*q_star**2
+          ! Omega now   trmb3(i) = 2.*RETV*T(i,1)*b212*q_star*t_star
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Set pbl height to maximum value where computation exceeds number of
+  ! layers allowed
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! PBL height must be greater than some minimum mechanical mixing depth
+  ! Several investigators have proposed minimum mechanical mixing depth
+  ! relationships as a function of the local friction velocity, u*.  We
+  ! make use of a linear relationship of the form h = c u* where c=700.
+  ! The scaling arguments that give rise to this relationship most often
+  ! represent the coefficient c as some constant over the local coriolis
+  ! parameter.  Here we make use of the experimental results of Koracin
+  ! and Berkowicz (1988) [BLM, Vol 43] for wich they recommend 0.07/f
+  ! where f was evaluated at 39.5 N and 52 N.  Thus we use a typical mid
+  ! latitude value for f so that c = 0.07/f = 700.
+
+  DO i = 1, knon
+    pblmin = 700.0*ustar(i)
+    pblh(i) = max(pblh(i), pblmin)
+    ! par exemple :
+    pblt(i) = t(i, 2) + (t(i,3)-t(i,2))*(pblh(i)-z(i,2))/(z(i,3)-z(i,2))
+  END DO
+
+  ! ********************************************************************
+  ! pblh is now available; do preparation for diffusivity calculation :
+  ! ********************************************************************
+  DO i = 1, knon
+    check(i) = .TRUE.
+    zsat(i) = .FALSE.
+    ! omegafl utilise pour prolongement CAPE
+    omegafl(i) = .FALSE.
+    cape(i) = 0.
+    kape(i) = 0.
+    eauliq(i) = 0.
+    ctei(i) = 0.
+    pblk(i) = 0.0
+    fak1(i) = ustar(i)*pblh(i)*vk
+
+    ! Do additional preparation for unstable cases only, set temperature
+    ! and moisture perturbations depending on stability.
+    ! *** Rq: les formule sont prises dans leur forme CS ***
+    IF (unstbl(i)) THEN
+      ! AM Niveau de ref du thermique
+      ! AM          zxt=(t(i,1)-z(i,1)*0.5*RG/RCPD/(1.+RVTMP2*q(i,1)))
+      ! AM     .         *(1.+RETV*q(i,1))
+      zxt = (th_th(i)-zref*0.5*rg/rcpd/(1.+rvtmp2*qt_th(i)))* &
+        (1.+retv*qt_th(i))
+      phiminv(i) = (1.-binm*pblh(i)*unsobklen(i))**onet
+      phihinv(i) = sqrt(1.-binh*pblh(i)*unsobklen(i))
+      wm(i) = ustar(i)*phiminv(i)
+      fak2(i) = wm(i)*pblh(i)*vk
+      wstar(i) = (heatv(i)*rg*pblh(i)/zxt)**onet
+      fak3(i) = fakn*wstar(i)/wm(i)
+    ELSE
+      wstar(i) = 0.
+    END IF
+    ! Computes Theta_e for thermal (all cases : to be modified)
+    ! attention ajout therm(i) = virtuelle
+    the_th(i) = th_th(i) + therm(i) + rlvcp*qt_th(i)
+    ! ou:    The_th(i) = Th_th(i) + sqrt(b1)*khfs(i)/wm(i) + RLvCp*qT_th(i)
+  END DO
+
+  ! Main level loop to compute the diffusivities and
+  ! counter-gradient terms:
+
+  DO k = 2, isommet
+
+    ! Find levels within boundary layer:
+
+    DO i = 1, knon
+      unslev(i) = .FALSE.
+      stblev(i) = .FALSE.
+      zm(i) = z(i, k-1)
+      zp(i) = z(i, k)
+      IF (zkmin==0.0 .AND. zp(i)>pblh(i)) zp(i) = pblh(i)
+      IF (zm(i)<pblh(i)) THEN
+        zmzp = 0.5*(zm(i)+zp(i))
+        ! debug
+        ! if (i.EQ.1864) then
+        ! print*,'i,pblh(1864),obklen(1864)',i,pblh(i),obklen(i)
+        ! endif
+
+        zh(i) = zmzp/pblh(i)
+        zl(i) = zmzp*unsobklen(i)
+        zzh(i) = 0.
+        IF (zh(i)<=1.0) zzh(i) = (1.-zh(i))**2
+
+        ! stblev for points zm < plbh and stable and neutral
+        ! unslev for points zm < plbh and unstable
+
+        IF (unstbl(i)) THEN
+          unslev(i) = .TRUE.
+        ELSE
+          stblev(i) = .TRUE.
+        END IF
+      END IF
+    END DO
+    ! print*,'fin calcul niveaux'
+
+    ! Stable and neutral points; set diffusivities; counter-gradient
+    ! terms zero for stable case:
+
+    DO i = 1, knon
+      IF (stblev(i)) THEN
+        IF (zl(i)<=1.) THEN
+          pblk(i) = fak1(i)*zh(i)*zzh(i)/(1.+betas*zl(i))
+        ELSE
+          pblk(i) = fak1(i)*zh(i)*zzh(i)/(betas+zl(i))
+        END IF
+        ! pcfm(i,k) = pblk(i)
+        ! pcfh(i,k) = pcfm(i,k)
+      END IF
+    END DO
+
+    ! unssrf, unstable within surface layer of pbl
+    ! unsout, unstable within outer   layer of pbl
+
+    DO i = 1, knon
+      unssrf(i) = .FALSE.
+      unsout(i) = .FALSE.
+      IF (unslev(i)) THEN
+        IF (zh(i)<sffrac) THEN
+          unssrf(i) = .TRUE.
+        ELSE
+          unsout(i) = .TRUE.
+        END IF
+      END IF
+    END DO
+
+    ! Unstable for surface layer; counter-gradient terms zero
+
+    DO i = 1, knon
+      IF (unssrf(i)) THEN
+        term = (1.-betam*zl(i))**onet
+        pblk(i) = fak1(i)*zh(i)*zzh(i)*term
+        pr(i) = term/sqrt(1.-betah*zl(i))
+      END IF
+    END DO
+    ! print*,'fin counter-gradient terms zero'
+
+    ! Unstable for outer layer; counter-gradient terms non-zero:
+
+    DO i = 1, knon
+      IF (unsout(i)) THEN
+        pblk(i) = fak2(i)*zh(i)*zzh(i)
+        ! cgs(i,k) = fak3(i)/(pblh(i)*wm(i))
+        ! cgh(i,k) = khfs(i)*cgs(i,k)
+        pr(i) = phiminv(i)/phihinv(i) + ccon*fak3(i)/fak
+        ! cgq(i,k) = kqfs(i)*cgs(i,k)
+      END IF
+    END DO
+    ! print*,'fin counter-gradient terms non zero'
+
+    ! For all unstable layers, compute diffusivities and ctrgrad ter m
+
+    ! DO i = 1, knon
+    ! IF (unslev(i)) THEN
+    ! pcfm(i,k) = pblk(i)
+    ! pcfh(i,k) = pblk(i)/pr(i)
+    ! etc cf original
+    ! ENDIF
+    ! ENDDO
+
+    ! For all layers, compute integral info and CTEI
+
+    DO i = 1, knon
+      IF (check(i) .OR. omegafl(i)) THEN
+        IF (.NOT. zsat(i)) THEN
+          ! Th2 = The_th(i) - RLvCp*qT_th(i)
+          th2 = th_th(i)
+          t2 = th2*s(i, k)
+          ! thermodyn functions
+          zdelta = max(0., sign(1.,rtt-t2))
+          qqsat = r2es*foeew(t2, zdelta)/pplay(i, k)
+          qqsat = min(0.5, qqsat)
+          zcor = 1./(1.-retv*qqsat)
+          qqsat = qqsat*zcor
+
+          IF (qqsat<qt_th(i)) THEN
+            ! on calcule lcl
+            IF (k==2) THEN
+              plcl(i) = z(i, k)
+            ELSE
+              plcl(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(qt_th(i)-qsatbef(i))/( &
+                qsatbef(i)-qqsat)
+            END IF
+            zsat(i) = .TRUE.
+            tbef(i) = t2
+          END IF
+
+          qsatbef(i) = qqsat ! bug dans la version orig ???
+        END IF
+        ! amn ???? cette ligne a deja ete faite normalement ?
+      END IF
+      ! print*,'hbtm2 i,k=',i,k
+    END DO
+  END DO ! end of level loop
+  ! IM 170305 BEG
+  IF (1==0) THEN
+    PRINT *, 'hbtm2  ok'
+  END IF !(1.EQ.0) THEN
+  ! IM 170305 END
+  RETURN
+END SUBROUTINE hbtm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hbtm2l.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hbtm2l.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hbtm2l.F90	(revision 3330)
@@ -0,0 +1,700 @@
+
+! $Header$
+
+SUBROUTINE hbtm2l(knon, paprs, pplay, t2m, t10m, q2m, q10m, ustar, flux_t, flux_q, u, v, t, q, pblh, therm, plcl, cape, &
+    cin, eauliq, ctei, d_qt, d_thv, dlt_2, xhis, posint, omega, diagok)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! ***************************************************************
+  ! *                                                             *
+  ! * HBTM2L   D'apres Holstag&Boville et Troen&Mahrt             *
+  ! *                 JAS 47              BLM                     *
+  ! * Algorithmes These Anne Mathieu                              *
+  ! * Critere d'Entrainement Peter Duynkerke (JAS 50)             *
+  ! * written by  : Anne MATHIEU & Alain LAHELLEC, 22/11/99       *
+  ! * features : implem. exces Mathieu                            *
+  ! ***************************************************************
+  ! * mods : decembre 99 passage th a niveau plus bas. voir fixer *
+  ! ***************************************************************
+  ! * fin therm a la HBTM passage a forme Mathieu 12/09/2001      *
+  ! ***************************************************************
+  ! AM Fev 2003 Adaptation a LMDZ version couplee                 *
+  ! *
+  ! Pour le moment on fait passer en argument les grdeurs de surface :
+  ! flux, t,q2m, t,q10m, on va utiliser systematiquement les grdeurs a 2m ms
+  ! on garde la possibilite de changer si besoin est (jusqu'a present la
+  ! forme de HB avec le 1er niveau modele etait conservee)       *
+  ! ***************************************************************
+  ! * re-ecriture complete Alain Mars 2012 dans LMDZ5V5           *
+  ! ***************************************************************
+  include "YOMCST.h"
+  REAL rlvcp, reps
+  ! Arguments:
+
+  INTEGER knon ! nombre de points a calculer
+  ! AM
+  REAL t2m(klon), t10m(klon) ! temperature a 2 et 10m
+  REAL q2m(klon), q10m(klon) ! q a 2 et 10m
+  REAL ustar(klon)
+  REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL flux_t(klon, klev), flux_q(klon, klev) ! Flux
+  REAL u(klon, klev) ! vitesse U (m/s)
+  REAL v(klon, klev) ! vitesse V (m/s)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! vapeur d'eau (kg/kg)
+
+  INTEGER isommet
+  REAL vk
+  PARAMETER (vk=0.35) ! Von Karman => passer a .41 ! cf U.Olgstrom
+  REAL ricr
+  PARAMETER (ricr=0.4)
+  REAL fak
+  PARAMETER (fak=8.5) ! b calcul du Prandtl et de dTetas
+  REAL fakn
+  PARAMETER (fakn=7.2) ! a
+  REAL onet
+  PARAMETER (onet=1.0/3.0)
+  REAL betam
+  PARAMETER (betam=15.0) ! pour Phim / h dans la S.L stable
+  REAL betah
+  PARAMETER (betah=15.0)
+  REAL betas
+  PARAMETER (betas=5.0) ! Phit dans la S.L. stable (mais 2 formes / z/OBL<>1
+  REAL sffrac
+  PARAMETER (sffrac=0.1) ! S.L. = z/h < .1
+  REAL binm
+  PARAMETER (binm=betam*sffrac)
+  REAL binh
+  PARAMETER (binh=betah*sffrac)
+
+  REAL q_star, t_star
+  REAL b1, b2, b212, b2sr ! Lambert correlations T' q' avec T* q*
+  PARAMETER (b1=70., b2=20.) ! b1 entre 70 et 100
+
+  REAL z(klon, klev)
+  ! AM
+  REAL zref, dt0
+  PARAMETER (zref=2.) ! Niveau de ref a 2m
+  PARAMETER (dt0=0.1) ! convergence do while
+
+  INTEGER i, k, j
+  REAL khfs(klon) ! surface kinematic heat flux [mK/s]
+  REAL kqfs(klon) ! sfc kinematic constituent flux [m/s]
+  REAL heatv(klon) ! surface virtual heat flux
+  REAL rhino(klon, klev) ! bulk Richardon no. mais en Theta_v
+  LOGICAL unstbl(klon) ! pts w/unstbl pbl (positive virtual ht flx)
+  LOGICAL check(klon) ! True=>chk if Richardson no.>critcal
+  LOGICAL omegafl(klon) ! flag de prolongement cape pour pt Omega
+  REAL obklen(klon) ! Monin-Obukhov lengh
+
+  REAL pblh(klon) ! PBL H               (m)
+  REAL therm(klon) ! exces du thermique  (K)
+  REAL plcl(klon) ! Lifted Cnd Level (Pa)
+  REAL cape(klon) ! Cape
+  REAL cin(klon) ! Inhibition
+  REAL eauliq(klon) ! Eau Liqu integree
+  REAL ctei(klon) ! Cld Top Entr. Instab.
+  REAL d_qt(klon) ! Saut de qT a l'inversion
+  REAL d_thv(klon) !         Theta_e
+  REAL dlt_2(klon) ! Ordonnee a gauche de courbe de melange
+  REAL xhis(klon) ! fraction de melange pour flottab nulle
+  REAL posint(klon) ! partie positive de l'int. de Peter
+  REAL omega(klon) ! point ultime de l'ascention du thermique
+  REAL diagok(klon) ! pour traiter les sous-mailles sans info
+  ! Algorithme thermique
+  REAL s(klon, klev) ! [P/Po]^Kappa milieux couches
+  REAL th_th(klon) ! potential temperature of thermal
+  REAL the_th(klon) ! equivalent potential temperature of thermal
+  REAL qt_th(klon) ! total water of thermal
+  REAL tbef(klon) ! T thermique niveau ou calcul precedent
+  LOGICAL zsat(klon) ! le thermique est sature
+  LOGICAL zcin(klon) ! calcul d'inhibition
+  REAL kape(klon) ! Cape locale
+  REAL kin(klon) ! Cin locale
+  ! calcul de CTEI etc
+  REAL the1, the2, aa, bb, zthvd, zthvu, qsat, chi, rh, zxt, zdu2
+  REAL rnum, denom, th1, th2, tv1, tv2, thv1, thv2, ql1, ql2, dt
+  REAL dqsat_dt, qsat2, qt1, q1, q2, t1, t2, tl1, te2, xnull, delt_the
+  REAL delt_qt, quadsat, spblh, reduc
+  ! diag      REAL dTv21(klon,klev)
+
+  REAL phiminv(klon) ! inverse phi function for momentum
+  REAL phihinv(klon) ! inverse phi function for heat
+  REAL wm(klon) ! turbulent velocity scale for momentum
+  REAL zm(klon) ! current level height
+  REAL zp(klon) ! current level height + one level up
+  REAL zcor, zdelta, zcvm5
+  REAL fac, pblmin
+  REAL missing_val
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  ! c      missing_val=nf90_fill_real (avec include netcdf)
+  missing_val = 0.
+
+  ! initialisations (Anne)
+  isommet = klev
+  b212 = sqrt(b1*b2)
+  b2sr = sqrt(b2)
+
+  ! Initialisation thermo
+  rlvcp = rlvtt/rcpd
+  reps = rd/rv
+  ! raz
+  q_star = 0.
+  t_star = 0.
+  cape(:) = missing_val
+  kape(:) = 0.
+  cin(:) = missing_val
+  eauliq(:) = missing_val
+  ctei(:) = missing_val
+  d_qt(:) = missing_val
+  d_thv(:) = missing_val
+  dlt_2(:) = missing_val
+  xhis(:) = missing_val
+  posint(:) = missing_val
+  kin(:) = missing_val
+  omega(:) = missing_val
+  diagok(:) = 0.
+  ! diag      dTv21(:,:)= missing_val
+
+  ! Calculer les hauteurs de chaque couche
+  DO i = 1, knon
+    z(i, 1) = rd*t(i, 1)/(0.5*(paprs(i,1)+pplay(i,1)))*(paprs(i,1)-pplay(i,1))/rg
+    s(i, 1) = (pplay(i,1)/paprs(i,1))**rkappa
+  END DO
+  ! s(k) = [pplay(k)/ps]^kappa
+  ! + + + + + + + + + pplay  <-> s(k)   t  dp=pplay(k-1)-pplay(k)
+
+  ! -----------------  paprs <-> sig(k)
+
+  ! + + + + + + + + + pplay  <-> s(k-1)
+
+
+  ! + + + + + + + + + pplay  <-> s(1)   t  dp=paprs-pplay   z(1)
+
+  ! -----------------  paprs <-> sig(1)
+
+  DO k = 2, klev
+    DO i = 1, knon
+      z(i, k) = z(i, k-1) + rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)*(pplay(i,k-1)-pplay(i,k))/rg
+      s(i, k) = (pplay(i,k)/paprs(i,1))**rkappa
+    END DO
+  END DO
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! +++  Determination des grandeurs de surface  +++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  DO i = 1, knon
+    ! AM Niveau de ref choisi a 2m
+    zxt = t2m(i)
+
+    ! ***************************************************
+    ! attention, il doit s'agir de <w'theta'>
+    ! ;Calcul de tcls virtuel et de w'theta'virtuel
+    ! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+    ! tcls=tcls*(1+.608*qcls)
+
+    ! ;Pour avoir w'theta',
+    ! ; il faut diviser par ro.Cp
+    ! Cp=Cpd*(1+0.84*qcls)
+    ! fcs=fcs/(ro_surf*Cp)
+    ! ;On transforme w'theta' en w'thetav'
+    ! Lv=(2.501-0.00237*(tcls-273.15))*1.E6
+    ! xle=xle/(ro_surf*Lv)
+    ! fcsv=fcs+.608*xle*tcls
+    ! ***************************************************
+    ! dif khfs est deja w't'_v / heatv(i) = khfs(i) + RETV*zxt*kqfs(i)
+    ! AM calcul de Ro = paprs(i,1)/Rd zxt
+    ! AM convention >0 vers le bas ds lmdz
+    khfs(i) = -flux_t(i, 1)*zxt*rd/(rcpd*paprs(i,1))
+    kqfs(i) = -flux_q(i, 1)*zxt*rd/(paprs(i,1))
+    ! AM   verifier que khfs et kqfs sont bien de la forme w'l'
+    heatv(i) = khfs(i) + retv*zxt*kqfs(i)
+    ! a comparer aussi aux sorties de clqh : flux_T/RoCp et flux_q/RoLv
+    ! AM ustar est en entree (calcul dans stdlevvar avec t2m q2m)
+    ! Theta et qT du thermique sans exces
+    qt_th(i) = q2m(i)
+    ! Al1 Th_th restera la Theta du thermique sans exces jusqu'au 3eme calcul
+    th_th(i) = t2m(i)
+  END DO
+
+  DO i = 1, knon
+    rhino(i, 1) = 0.0 ! Global Richardson
+    check(i) = .TRUE.
+    pblh(i) = z(i, 1) ! on initialise pblh a l'altitude du 1er niveau
+    ! Attention Plcl est pression ou altitude ?
+    ! plcl(i) = 6000. ! m
+    plcl(i) = 200. ! hPa
+    IF (heatv(i)>0.0001) THEN
+      ! Lambda = -u*^3 / (alpha.g.kvon.<w'Theta'v>
+      obklen(i) = -t(i, 1)*ustar(i)**3/(rg*vk*heatv(i))
+    ELSE
+      ! set pblh to the friction high (cf + bas)
+      pblh(i) = 700.0*ustar(i)
+      check(i) = .FALSE.
+    END IF
+  END DO
+
+
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! PBL height calculation:
+  ! Search for level of pbl. Scan upward until the Richardson number between
+  ! the first level and the current level exceeds the "critical" value.
+  ! (bonne idee Nu de separer le Ric et l'exces de temp du thermique)
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  fac = 100.0
+  DO k = 2, isommet
+    DO i = 1, knon
+      IF (check(i)) THEN
+        zdu2 = u(i, k)**2 + v(i, k)**2
+        zdu2 = max(zdu2, 1.0E-20)
+        ! Theta_v environnement
+        zthvd = t(i, k)/s(i, k)*(1.+retv*q(i,k))
+        zthvu = th_th(i)*(1.+retv*qt_th(i))
+        ! Le Ri bulk par Theta_v
+        rhino(i, k) = (z(i,k)-zref)*rg*(zthvd-zthvu)/(zdu2*0.5*(zthvd+zthvu))
+
+        IF (rhino(i,k)>=ricr) THEN
+          pblh(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(ricr-rhino(i,k-1))/(rhino(i,k-1)-rhino(i,k))
+          ! test04 (la pblh est encore ici sous-estime'e)
+          pblh(i) = pblh(i) + 100.
+          ! pblT(i) = t(i,k-1) + (t(i,k)-t(i,k-1)) *
+          ! .              (pblh(i)-z(i,k-1))/(z(i,k)-z(i,k-1))
+          check(i) = .FALSE.
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  ! Set pbl height to maximum value where computation exceeds number of
+  ! layers allowed
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! Improve estimate of pbl height for the unstable points.
+  ! Find unstable points (sensible heat flux is upward):
+
+  DO i = 1, knon
+    IF (heatv(i)>0.) THEN
+      unstbl(i) = .TRUE.
+      check(i) = .TRUE.
+    ELSE
+      unstbl(i) = .FALSE.
+      check(i) = .FALSE.
+    END IF
+  END DO
+
+  ! For the unstable case, compute velocity scale and the
+  ! convective temperature excess:
+
+  DO i = 1, knon
+    IF (check(i)) THEN
+      phiminv(i) = (1.-binm*pblh(i)/obklen(i))**onet
+      ! ***************************************************
+      ! Wm ? et W* ? c'est la formule pour z/h < .1
+      ! ;Calcul de w* ;;
+      ! ;;;;;;;;;;;;;;;;
+      ! w_star=((g/tcls)*fcsv*z(ind))^(1/3.) [ou prendre la premiere approx de h)
+      ! ;; CALCUL DE wm ;;
+      ! ;;;;;;;;;;;;;;;;;;
+      ! ; Ici on considerera que l'on est dans la couche de surf jusqu'a 100m
+      ! ; On prend svt couche de surface=0.1*h mais on ne connait pas h
+      ! ;;;;;;;;;;;Dans la couche de surface
+      ! if (z(ind) le 20) then begin
+      ! Phim=(1.-15.*(z(ind)/L))^(-1/3.)
+      ! wm=u_star/Phim
+      ! ;;;;;;;;;;;En dehors de la couche de surface
+      ! endif else if (z(ind) gt 20) then begin
+      ! wm=(u_star^3+c1*w_star^3)^(1/3.)
+      ! endif
+      ! ***************************************************
+      wm(i) = ustar(i)*phiminv(i)
+      ! ======================================================================
+      ! valeurs de Dominique Lambert de la campagne SEMAPHORE :
+      ! <T'^2> = 100.T*^2; <q'^2> = 20.q*^2 a 10m
+      ! <Tv'^2> = (1+1.2q).100.T* + 1.2Tv.sqrt(20*100).T*.q* + (.608*Tv)^2*20.q*^2;
+      ! et dTetavS = sqrt(<Tv'^2>) ainsi calculee.
+      ! avec : T*=<w'T'>_s/w* et q*=<w'q'>/w*
+      ! !!! on peut donc utiliser w* pour les fluctuations <-> Lambert
+      ! (leur corellation pourrait dependre de beta par ex)
+      ! if fcsv(i,j) gt 0 then begin
+      ! dTetavs=b1*(1.+2.*.608*q_10(i,j))*(fcs(i,j)/wm(i,j))^2+$
+      ! (.608*Thetav_10(i,j))^2*b2*(xle(i,j)/wm(i,j))^2+$
+      ! 2.*.608*thetav_10(i,j)*sqrt(b1*b2)*(xle(i,j)/wm(i,j))*(fcs(i,j)/wm(i,j))
+      ! dqs=b2*(xle(i,j)/wm(i,j))^2
+      ! theta_s(i,j)=thetav_10(i,j)+sqrt(dTetavs)
+      ! q_s(i,j)=q_10(i,j)+sqrt(dqs)
+      ! endif else begin
+      ! Theta_s(i,j)=thetav_10(i,j)
+      ! q_s(i,j)=q_10(i,j)
+      ! endelse
+      ! leur reference est le niveau a 10m, mais on prend 2m ici.
+      ! ======================================================================
+      ! Premier calcul de l'exces tu thermique
+      ! ======================================================================
+      ! HBTM        therm(i) = heatv(i)*fak/wm(i)
+      ! forme Mathieu :
+      q_star = max(0., kqfs(i)/wm(i))
+      t_star = max(0., khfs(i)/wm(i))
+      ! Al1 Houston, we have a problem : il arrive en effet que heatv soit
+      ! positif (=thermique instable) mais pas t_star : avec evaporation
+      ! importante, il se peut qu'on refroidisse la 2m Que faire alors ?
+      ! Garder le seul terme en q_star^2 ? ou rendre negatif le t_star^2 ?
+      therm(i) = sqrt(b1*(1.+2.*retv*qt_th(i))*t_star**2+(retv*th_th(i))**2*b2*q_star*q_star+2.*retv*th_th(i)*b212* &
+        q_star*t_star)
+
+      ! Theta et qT du thermique (forme H&B) avec exces
+      ! (attention, on ajoute therm(i) qui est virtuelle ...)
+      ! pourquoi pas sqrt(b1)*t_star ?
+      ! dqs = b2sr*kqfs(i)/wm(i)
+      qt_th(i) = qt_th(i) + b2sr*q_star
+      rhino(i, 1) = 0.0
+    END IF
+  END DO
+
+  ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! ++ Improve pblh estimate for unstable conditions using the +++++++
+  ! ++          convective temperature excess :                +++++++
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+  DO k = 2, isommet
+    DO i = 1, knon
+      IF (check(i)) THEN
+        ! test     zdu2 = (u(i,k)-u(i,1))**2+(v(i,k)-v(i,1))**2+fac*ustar(i)**2
+        zdu2 = u(i, k)**2 + v(i, k)**2
+        zdu2 = max(zdu2, 1.0E-20)
+        ! Theta_v environnement
+        zthvd = t(i, k)/s(i, k)*(1.+retv*q(i,k))
+
+        ! et therm Theta_v (avec hypothese de constance de H&B,
+        ! qui assimile qT a vapeur)
+        zthvu = th_th(i)*(1.+retv*qt_th(i)) + therm(i)
+
+
+        ! Le Ri par Theta_v
+        ! AM Niveau de ref 2m
+        rhino(i, k) = (z(i,k)-zref)*rg*(zthvd-zthvu)/(zdu2*0.5*(zthvd+zthvu))
+
+        ! Niveau critique atteint
+        IF (rhino(i,k)>=ricr) THEN
+          pblh(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(ricr-rhino(i,k-1))/(rhino(i,k-1)-rhino(i,k))
+          ! test04
+          pblh(i) = pblh(i) + 100.
+          ! pblT(i) = t(i,k-1) + (t(i,k)-t(i,k-1)) *
+          ! .              (pblh(i)-z(i,k-1))/(z(i,k)-z(i,k-1))
+          check(i) = .FALSE.
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Set pbl height to maximum value where computation exceeds number of
+  ! layers allowed (H&B)
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! PBL height must be greater than some minimum mechanical mixing depth
+  ! Several investigators have proposed minimum mechanical mixing depth
+  ! relationships as a function of the local friction velocity, u*.  We
+  ! make use of a linear relationship of the form h = c u* where c=700.
+  ! The scaling arguments that give rise to this relationship most often
+  ! represent the coefficient c as some constant over the local coriolis
+  ! parameter.  Here we make use of the experimental results of Koracin
+  ! and Berkowicz (1988) [BLM, Vol 43] for wich they recommend 0.07/f
+  ! where f was evaluated at 39.5 N and 52 N.  Thus we use a typical mid
+  ! latitude value for f so that c = 0.07/f = 700.  (H&B)
+  ! Al1 calcul de pblT dans ce cas
+  DO i = 1, knon
+    pblmin = 700.0*ustar(i)
+    IF (pblh(i)<pblmin) check(i) = .TRUE.
+  END DO
+  DO i = 1, knon
+    IF (check(i)) THEN
+      pblh(i) = 700.0*ustar(i)
+      ! et par exemple :
+      ! pblT(i) = t(i,2) + (t(i,3)-t(i,2)) *
+      ! .              (pblh(i)-z(i,2))/(z(i,3)-z(i,2))
+    END IF
+  END DO
+
+  ! ********************************************************************
+  ! pblh is now available; do preparation for final calculations :
+  ! ********************************************************************
+  DO i = 1, knon
+    check(i) = .TRUE.
+    zsat(i) = .FALSE.
+    zcin(i) = .FALSE.
+    ! omegafl utilise pour prolongement CAPE
+    omegafl(i) = .FALSE.
+
+    ! Do additional preparation for unstable cases only, set temperature
+    ! and moisture perturbations depending on stability.
+    ! Rq: les formules sont prises dans leur forme Couche de Surface
+    IF (unstbl(i)) THEN
+      ! Al pblh a change', on recalcule :
+      zxt = (th_th(i)-zref*0.5*rg/rcpd/(1.+rvtmp2*qt_th(i)))*(1.+retv*qt_th(i))
+      phiminv(i) = (1.-binm*pblh(i)/obklen(i))**onet
+      phihinv(i) = sqrt(1.-binh*pblh(i)/obklen(i))
+      wm(i) = ustar(i)*phiminv(i)
+    END IF
+  END DO
+
+
+  ! =======================================================
+  ! last upward integration
+  ! For all unstable layers, compute integral info and CTEI
+  ! =======================================================
+
+  ! 1/Recompute surface characteristics with the improved pblh
+  ! ----------------------------------------------------------
+  DO i = 1, knon
+    IF (unstbl(i)) THEN
+      diagok(i) = 1.
+      ! from missing_value to zero
+      cape(i) = 0.
+      cin(i) = 0.
+      eauliq(i) = 0.
+      ctei(i) = 0.
+      d_qt(i) = 0.
+      d_thv(i) = 0.
+      dlt_2(i) = 0.
+      xhis(i) = 0.
+      posint(i) = 0.
+      kin(i) = 0.
+      omega(i) = 0.
+
+      phiminv(i) = (1.-binm*pblh(i)/obklen(i))**onet
+      wm(i) = ustar(i)*phiminv(i)
+      q_star = max(0., kqfs(i)/wm(i))
+      t_star = max(0., khfs(i)/wm(i))
+      therm(i) = sqrt(b1*(1.+2.*retv*qt_th(i))*t_star**2+(retv*th_th(i))**2*b2*q_star*q_star+2.*retv*th_th(i)*b212* &
+        q_star*t_star)
+      ! Al1diag
+      ! trmb1(i) = b1*(1.+2.*RETV*qT_th(i))*t_star**2
+      ! trmb2(i) = (RETV*Th_th(i))**2*b2*q_star*q_star
+      ! trmb3(i) = 2.*RETV*Th_th(i)*b212*q_star*t_star
+
+      ! Th_th will now be the thermal-theta (including exces)
+      ! c         Th_th(i) = Th_th(i)+sqrt(b1)*max(0.,khfs(i)/wm(i))
+      th_th(i) = th_th(i) + therm(i)
+      ! al1diag
+      ! trmb2(i) = wm(i)
+      ! trmb3(i) = phiminv(i)
+      ! and computes Theta_e for thermal
+      the_th(i) = th_th(i) + rlvcp*qt_th(i)
+    END IF ! unstbl
+    ! Al1 compute a first guess of Plcl with the Bolton/Emanuel formula
+    t2 = th_th(i)
+    ! thermodyn functions
+    zdelta = max(0., sign(1.,rtt-t2))
+    qsat = r2es*foeew(t2, zdelta)/paprs(i, 1)
+    qsat = min(0.5, qsat)
+    zcor = 1./(1.-retv*qsat)
+    qsat = qsat*zcor
+    ! relative humidity of thermal at 2m
+    rh = qt_th(i)/qsat
+    chi = t2/(1669.0-122.0*rh-t2)
+    plcl(i) = paprs(i, 1)*(rh**chi)
+    ! al1diag
+    ! ctei(i) = Plcl(i)
+    ! cape(i) = T2
+    ! trmb1(i)= Chi
+    ! select unstable columns (=thermals)
+    check(i) = .FALSE.
+    IF (heatv(i)>0.) check(i) = .TRUE.
+    ! diag
+    ! dTv21(i,1) = T2*(1+RETV*qT_th(i))-t(i,1)*(1+RETV*q(i,1))
+  END DO
+  ! ----------------------------------
+  ! 2/ upward integration for thermals
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ k loop
+  DO k = 2, isommet
+    DO i = 1, knon
+      IF (check(i) .OR. omegafl(i)) THEN
+        ! CC         if (pplay(i,k) .le. plcl(i)) then
+        zm(i) = z(i, k-1)
+        zp(i) = z(i, k)
+        ! Environnement : calcul de Tv1 a partir de t(:,:)== T liquide
+        ! ==============
+        tl1 = t(i, k)
+        t1 = tl1
+        zdelta = max(0., sign(1.,rtt-t1))
+        qsat = r2es*foeew(t1, zdelta)/pplay(i, k)
+        qsat = min(0.5, qsat)
+        zcor = 1./(1.-retv*qsat)
+        qsat = qsat*zcor
+        q1 = min(q(i,k), qsat)
+        ql1 = max(0., q(i,k)-q1)
+        ! thermodyn function (Tl2Tql)
+        dt = rlvcp*ql1
+        DO WHILE (abs(dt)>=dt0)
+          t1 = t1 + dt
+          zdelta = max(0., sign(1.,rtt-t1))
+          zcvm5 = r5les*(1.-zdelta) + r5ies*zdelta
+          qsat = r2es*foeew(t1, zdelta)/pplay(i, k)
+          qsat = min(0.5, qsat)
+          zcor = 1./(1.-retv*qsat)
+          qsat = qsat*zcor
+          dqsat_dt = foede(t1, zdelta, zcvm5, qsat, zcor)
+          ! correction lineaire pour conserver Tl env
+          ! << Tl = T1 + DT - RLvCp*(ql1 - dqsat/dT*DT >>
+          denom = 1. + rlvcp*dqsat_dt
+          q1 = min(q(i,k), qsat)
+          ql1 = q(i, k) - q1 ! can be negative
+          rnum = tl1 - t1 + rlvcp*ql1
+          dt = rnum/denom
+        END DO
+        ql1 = max(0., ql1)
+        tv1 = t1*(1.+retv*q1-ql1)
+        ! Thermique    : on atteint le seuil B/E de condensation
+        ! ==============
+
+        IF (.NOT. zsat(i)) THEN
+          ! first guess from The_th(i) = Th_th(i) + RLvCp* [qv=qT_th(i)]
+          t2 = s(i, k)*the_th(i) - rlvcp*qt_th(i)
+          zdelta = max(0., sign(1.,rtt-t2))
+          qsat = r2es*foeew(t2, zdelta)/pplay(i, k)
+          qsat = min(0.5, qsat)
+          zcor = 1./(1.-retv*qsat)
+          qsat = qsat*zcor
+          q2 = min(qt_th(i), qsat)
+          ql2 = max(0., qt_th(i)-q2)
+          IF (ql2>0.0001) zsat(i) = .TRUE.
+          tbef(i) = t2
+          ! a PBLH non sature
+          IF (zm(i)<pblh(i) .AND. zp(i)>=pblh(i)) THEN
+            reduc = (pblh(i)-zm(i))/(zp(i)-zm(i))
+            spblh = s(i, k-1) + reduc*(s(i,k)-s(i,k-1))
+            ! lmdz : qT1 et Thv1
+            t1 = (t(i,k-1)+reduc*(t(i,k)-t(i,k-1)))
+            thv1 = t1*(1.+retv*q(i,k))/spblh
+            ! on calcule pour le cas sans nuage un ctei en Delta Thv
+            thv2 = t2/spblh*(1.+retv*qt_th(i))
+            ctei(i) = thv1 - thv2
+            tv2 = t2*(1.+retv*q2-ql2)
+            ! diag
+            ! dTv21(i,k) = Tv2-Tv1
+            check(i) = .FALSE.
+            omegafl(i) = .TRUE.
+          END IF
+        END IF
+
+        IF (zsat(i)) THEN
+          ! thermodyn functions (Te2Tqsat)
+          t2 = tbef(i)
+          dt = 1.
+          te2 = s(i, k)*the_th(i)
+          DO WHILE (abs(dt)>=dt0)
+            zdelta = max(0., sign(1.,rtt-t2))
+            zcvm5 = r5les*(1.-zdelta) + r5ies*zdelta
+            qsat = r2es*foeew(t2, zdelta)/pplay(i, k)
+            qsat = min(0.5, qsat)
+            zcor = 1./(1.-retv*qsat)
+            qsat = qsat*zcor
+            dqsat_dt = foede(t2, zdelta, zcvm5, qsat, zcor)
+            ! correction lineaire pour conserver Te_th
+            ! << Te = T2 + DT + RLvCp*(qsatbef + dq/dT*DT >>
+            denom = 1. + rlvcp*dqsat_dt
+            rnum = te2 - t2 - rlvcp*qsat
+            dt = rnum/denom
+            t2 = t2 + dt
+          END DO
+          q2 = min(qt_th(i), qsat)
+          ql2 = max(0., qt_th(i)-q2)
+          ! jusqu'a PBLH y compris
+          IF (zm(i)<pblh(i)) THEN
+
+            ! mais a PBLH, interpolation et complements
+            IF (zp(i)>=pblh(i)) THEN
+              reduc = (pblh(i)-zm(i))/(zp(i)-zm(i))
+              spblh = s(i, k-1) + reduc*(s(i,k)-s(i,k-1))
+              ! CAPE et EauLiq a pblH
+              cape(i) = kape(i) + reduc*(zp(i)-zm(i))*rg*.5/(tv2+tv1)*max(0., (tv2-tv1))
+              eauliq(i) = eauliq(i) + reduc*(paprs(i,k-1)-paprs(i,k))*ql2/rg
+              ! CTEI
+              the2 = (t2+rlvcp*q2)/spblh
+              ! T1 est en realite la Tl env (on a donc strict The1)
+              t1 = (t(i,k-1)+reduc*(t(i,k)-t(i,k-1)))
+              the1 = (t1+rlvcp*q(i,k))/spblh
+              ! Calcul de la Cloud Top Entrainement Instability
+              ! cf Mathieu Lahellec QJRMS (2005) Comments to DYCOMS-II
+              ! saut a l'inversion :
+              delt_the = the1 - the2 ! negatif
+              delt_qt = q(i, k) - qt_th(i) ! negatif
+              d_qt(i) = -delt_qt
+              dlt_2(i) = .63*delt_the - the2*delt_qt
+              ! init ctei(i)
+              ctei(i) = dlt_2(i)
+              IF (dlt_2(i)<-0.1) THEN
+                ! integrale de Peter :
+                aa = delt_the - delt_qt*(rlvcp-retv*the2)
+                bb = (rlvcp-(1.+retv)*the2)*ql2
+                d_thv(i) = aa - bb
+                ! approx de Xhi_s et de l'integrale Xint=ctei(i)
+                xhis(i) = bb/(aa-dlt_2(i))
+                ! trmb1(i) = xhis
+                ! trmb3(i) = dlt_2
+                xnull = bb/aa
+                IF (xhis(i)>0.1) THEN
+                  ctei(i) = dlt_2(i)*xhis(i) + aa*(1.-xhis(i)) + bb*alog(xhis(i))
+                ELSE
+                  ctei(i) = .5*(dlt_2(i)+aa-bb)
+                END IF
+                IF (xnull>0.) THEN
+                  posint(i) = aa - bb + bb*alog(xnull)
+                ELSE
+                  posint(i) = 0.
+                END IF
+              ELSE
+                ctei(i) = 1.
+                posint(i) = 1.
+              END IF
+              check(i) = .FALSE.
+              omegafl(i) = .TRUE.
+            END IF ! end a pblh
+            IF (check(i)) eauliq(i) = eauliq(i) + (paprs(i,k)-paprs(i,k+1))*ql2/rg
+          END IF
+
+        END IF ! Zsat
+
+        ! KAPE : thermique / environnement
+        tv2 = t2*(1.+retv*q2-ql2)
+        ! diag
+        ! dTv21(i,k) = Tv2-Tv1
+        ! Kape courante
+        kape(i) = kape(i) + (zp(i)-zm(i))*rg*.5/(tv2+tv1)*max(0., (tv2-tv1))
+        ! Cin
+        IF (zcin(i) .AND. tv2-tv1>0.) THEN
+          zcin(i) = .FALSE.
+          cin(i) = kin(i)
+        END IF
+        IF (.NOT. zcin(i) .AND. tv2-tv1<0.) THEN
+          zcin(i) = .TRUE.
+          kin(i) = kin(i) + (zp(i)-zm(i))*rg*.5/(tv2+tv1)*min(0., (tv2-tv1))
+        END IF
+        IF (kape(i)+kin(i)<0.) THEN
+          omega(i) = zm(i)
+          ! trmb3(i) = paprs(i,k)
+          omegafl(i) = .FALSE.
+          ! diag
+          ! print*,'Tv2-Tv1 (k): ',i,(dTv21(i,j),j=1,k)
+        END IF
+        ! CC         EndIf !plcl
+      END IF ! check(i)
+    END DO
+  END DO ! end of level loop
+  ! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ end k loop
+  RETURN
+END SUBROUTINE hbtm2l
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hgardfou.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hgardfou.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hgardfou.F90	(revision 3330)
@@ -0,0 +1,134 @@
+
+! $Id$
+SUBROUTINE hgardfou(t, tsol, text,abortphy)
+  USE dimphy, ONLY: klon, klev
+  USE phys_state_var_mod, ONLY: pctsrf
+  USE geometry_mod, ONLY: longitude_deg, latitude_deg
+  USE indice_sol_mod, ONLY: nbsrf
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Verifier la temperature
+  ! ======================================================================
+  include "YOMCST.h"
+  REAL t(klon, klev), tsol(klon, nbsrf)
+  CHARACTER(len=*), intent(in):: text
+  CHARACTER (LEN=20) :: modname = 'hgardfou'
+  INTEGER abortphy
+
+  INTEGER i, k, nsrf
+  REAL zt(klon)
+  INTEGER jadrs(klon), jbad
+  LOGICAL ok
+
+  LOGICAL firstcall
+  SAVE firstcall
+  DATA firstcall/.TRUE./
+  !$OMP THREADPRIVATE(firstcall)
+
+  IF (firstcall) THEN
+    WRITE (lunout, *) 'hgardfou garantit la temperature dans [100,370] K'
+    firstcall = .FALSE.
+    ! DO i = 1, klon
+    ! WRITE(lunout,*)'i=',i,'rlon=',rlon(i),'rlat=',rlat(i)
+    ! ENDDO
+
+  END IF
+
+  ok = .TRUE.
+  DO k = 1, klev
+    DO i = 1, klon
+      zt(i) = t(i, k)
+    END DO
+#ifdef CRAY
+    CALL whenfgt(klon, zt, 1, 370.0, jadrs, jbad)
+#else
+    jbad = 0
+    DO i = 1, klon
+      IF (zt(i)>370.) THEN
+        jbad = jbad + 1
+        jadrs(jbad) = i
+      END IF
+    END DO
+#endif
+    IF (jbad>0) THEN
+      ok = .FALSE.
+      DO i = 1, jbad
+        WRITE (lunout, *) 'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =', &
+          jadrs(i), k, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+          latitude_deg(jadrs(i)),(pctsrf(jadrs(i),nsrf), nsrf=1, nbsrf)
+      END DO
+    END IF
+#ifdef CRAY
+    CALL whenflt(klon, zt, 1, 100.0, jadrs, jbad)
+#else
+    jbad = 0
+    DO i = 1, klon
+      ! IF (zt(i).LT.100.0) THEN
+      IF (zt(i)<50.0) THEN
+        jbad = jbad + 1
+        jadrs(jbad) = i
+      END IF
+    END DO
+#endif
+    IF (jbad>0) THEN
+      ok = .FALSE.
+      DO i = 1, jbad
+        WRITE (lunout, *) 'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =', &
+          jadrs(i), k, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+          latitude_deg(jadrs(i)), (pctsrf(jadrs(i),nsrf), nsrf=1, nbsrf)
+      END DO
+    END IF
+  END DO
+
+  DO nsrf = 1, nbsrf
+    DO i = 1, klon
+      zt(i) = tsol(i, nsrf)
+    END DO
+#ifdef CRAY
+    CALL whenfgt(klon, zt, 1, 370.0, jadrs, jbad)
+#else
+    jbad = 0
+    DO i = 1, klon
+      IF (zt(i)>370.0) THEN
+        jbad = jbad + 1
+        jadrs(jbad) = i
+      END IF
+    END DO
+#endif
+    IF (jbad>0) THEN
+      ok = .FALSE.
+      DO i = 1, jbad
+        WRITE (lunout, *) &
+          'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
+          nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+          latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
+      END DO
+    END IF
+#ifdef CRAY
+    CALL whenflt(klon, zt, 1, 100.0, jadrs, jbad)
+#else
+    jbad = 0
+    DO i = 1, klon
+      ! IF (zt(i).LT.100.0) THEN
+      IF (zt(i)<50.0) THEN
+        jbad = jbad + 1
+        jadrs(jbad) = i
+      END IF
+    END DO
+#endif
+    IF (jbad>0) THEN
+      ok = .FALSE.
+      DO i = 1, jbad
+        WRITE (lunout, *) &
+          'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
+          nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+          latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
+      END DO
+    END IF
+  END DO
+
+!  IF (.NOT. ok) CALL abort_physic(modname, text, 1)
+  IF (.NOT. ok) abortphy=1
+
+END SUBROUTINE hgardfou
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hines_gwd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hines_gwd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hines_gwd.F90	(revision 3330)
@@ -0,0 +1,2019 @@
+
+! $Id$
+
+SUBROUTINE hines_gwd(nlon, nlev, dtime, paphm1x, papm1x, rlat, tx, ux, vx, &
+    zustrhi, zvstrhi, d_t_hin, d_u_hin, d_v_hin)
+
+  ! ########################################################################
+  ! Parametrization of the momentum flux deposition due to a broad band
+  ! spectrum of gravity waves, following Hines (1997a,b), as coded by
+  ! McLANDRESS (1995). Modified by McFARLANE and MANZINI (1995-1997)
+  ! MAECHAM model stand alone version
+  ! ########################################################################
+
+
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOEGWD.h"
+  include "YOMCST.h"
+
+  INTEGER nazmth
+  PARAMETER (nazmth=8)
+
+  ! INPUT ARGUMENTS.
+  ! ----- ----------
+
+  ! - 2D
+  ! PAPHM1   : HALF LEVEL PRESSURE (T-DT)
+  ! PAPM1    : FULL LEVEL PRESSURE (T-DT)
+  ! PTM1     : TEMPERATURE (T-DT)
+  ! PUM1     : ZONAL WIND (T-DT)
+  ! PVM1     : MERIDIONAL WIND (T-DT)
+
+
+  ! REFERENCE.
+  ! ----------
+  ! SEE MODEL DOCUMENTATION
+
+  ! AUTHOR.
+  ! -------
+
+  ! N. MCFARLANE   DKRZ-HAMBURG   MAY 1995
+  ! STAND ALONE E. MANZINI MPI-HAMBURG FEBRUARY 1997
+
+  ! BASED ON A COMBINATION OF THE OROGRAPHIC SCHEME BY N.MCFARLANE 1987
+  ! AND THE HINES SCHEME AS CODED BY C. MCLANDRESS 1995.
+
+
+
+  ! ym      INTEGER KLEVM1
+
+  REAL paphm1(klon, klev+1), papm1(klon, klev)
+  REAL ptm1(klon, klev), pum1(klon, klev), pvm1(klon, klev)
+  REAL prflux(klon)
+  ! 1
+  ! 1
+  ! 1
+  REAL rlat(klon), coslat(klon)
+
+  REAL th(klon, klev), utendgw(klon, klev), vtendgw(klon, klev), &
+    pressg(klon), uhs(klon, klev), vhs(klon, klev), zpr(klon)
+
+  ! * VERTICAL POSITIONING ARRAYS.
+
+  REAL sgj(klon, klev), shj(klon, klev), shxkj(klon, klev), dsgj(klon, klev)
+
+  ! * LOGICAL SWITCHES TO CONTROL ROOF DRAG, ENVELOP GW DRAG AND
+  ! * HINES' DOPPLER SPREADING EXTROWAVE GW DRAG.
+  ! * LOZPR IS TRUE FOR ZPR ENHANCEMENT
+
+
+  ! * WORK ARRAYS.
+
+  REAL m_alpha(klon, klev, nazmth), v_alpha(klon, klev, nazmth), &
+    sigma_alpha(klon, klev, nazmth), sigsqh_alpha(klon, klev, nazmth), &
+    drag_u(klon, klev), drag_v(klon, klev), flux_u(klon, klev), &
+    flux_v(klon, klev), heat(klon, klev), diffco(klon, klev), &
+    bvfreq(klon, klev), density(klon, klev), sigma_t(klon, klev), &
+    visc_mol(klon, klev), alt(klon, klev), sigsqmcw(klon, klev, nazmth), &
+    sigmatm(klon, klev), ak_alpha(klon, nazmth), k_alpha(klon, nazmth), &
+    mmin_alpha(klon, nazmth), i_alpha(klon, nazmth), rmswind(klon), &
+    bvfbot(klon), densbot(klon)
+  REAL smoothr1(klon, klev), smoothr2(klon, klev)
+  REAL sigalpmc(klon, klev, nazmth)
+  REAL f2mod(klon, klev)
+
+  ! * THES ARE THE INPUT PARAMETERS FOR HINES ROUTINE AND
+  ! * ARE SPECIFIED IN ROUTINE HINES_SETUP. SINCE THIS IS CALLED
+  ! * ONLY AT FIRST CALL TO THIS ROUTINE THESE VARIABLES MUST BE SAVED
+  ! * FOR USE AT SUBSEQUENT CALLS. THIS CAN BE AVOIDED BY CALLING
+  ! * HINES_SETUP IN MAIN PROGRAM AND PASSING THE PARAMETERS AS
+  ! * SUBROUTINE ARGUEMENTS.
+
+
+  REAL rmscon
+  INTEGER nmessg, iprint, ilrms
+  INTEGER ifl
+
+  INTEGER naz, icutoff, nsmax, iheatcal
+  REAL slope, f1, f2, f3, f5, f6, kstar(klon), alt_cutoff, smco
+
+  ! PROVIDED AS INPUT
+
+  INTEGER nlon, nlev
+
+  REAL dtime
+  REAL paphm1x(nlon, nlev+1), papm1x(nlon, nlev)
+  REAL ux(nlon, nlev), vx(nlon, nlev), tx(nlon, nlev)
+
+  ! VARIABLES FOR OUTPUT
+
+
+  REAL d_t_hin(nlon, nlev), d_u_hin(nlon, nlev), d_v_hin(nlon, nlev)
+  REAL zustrhi(nlon), zvstrhi(nlon)
+
+
+  ! * LOGICAL SWITCHES TO CONTROL PRECIP ENHANCEMENT AND
+  ! * HINES' DOPPLER SPREADING EXTROWAVE GW DRAG.
+  ! * LOZPR IS TRUE FOR ZPR ENHANCEMENT
+
+  LOGICAL lozpr, lorms(klon)
+
+  ! LOCAL PARAMETERS TO MAKE THINGS WORK (TEMPORARY VARIABLE)
+
+  REAL rhoh2o, zpcons, rgocp, zlat, dttdsf, ratio, hscal
+  INTEGER i, j, l, jl, jk, le, lref, lrefp, levbot
+
+  ! DATA PARAMETERS NEEDED, EXPLAINED LATER
+
+  REAL v0, vmin, dmpscal, taufac, hmin, apibt, cpart, fcrit
+  REAL pcrit, pcons
+  INTEGER iplev, ierror
+
+
+
+  ! PRINT *,' IT IS STARTED HINES GOING ON...'
+
+
+
+
+  ! *    COMPUTATIONAL CONSTANTS.
+  ! ------------- ----------
+
+
+  d_t_hin(:, :) = 0.
+
+  rhoh2o = 1000.
+  zpcons = (1000.*86400.)/rhoh2o
+  ! ym      KLEVM1=KLEV-1
+
+
+  DO jl = kidia, kfdia
+    paphm1(jl, 1) = paphm1x(jl, klev+1)
+    DO jk = 1, klev
+      le = klev + 1 - jk
+      paphm1(jl, jk+1) = paphm1x(jl, le)
+      papm1(jl, jk) = papm1x(jl, le)
+      ptm1(jl, jk) = tx(jl, le)
+      pum1(jl, jk) = ux(jl, le)
+      pvm1(jl, jk) = vx(jl, le)
+    END DO
+  END DO
+
+  ! Define constants and arrays needed for the ccc/mam gwd scheme
+  ! *Constants:
+
+  rgocp = rd/rcpd
+  lrefp = klev - 1
+  lref = klev - 2
+  ! 1
+  ! 1    *Arrays
+  ! 1
+  DO jk = 1, klev
+    DO jl = kidia, kfdia
+      shj(jl, jk) = papm1(jl, jk)/paphm1(jl, klev+1)
+      sgj(jl, jk) = papm1(jl, jk)/paphm1(jl, klev+1)
+      dsgj(jl, jk) = (paphm1(jl,jk+1)-paphm1(jl,jk))/paphm1(jl, klev+1)
+      shxkj(jl, jk) = (papm1(jl,jk)/paphm1(jl,klev+1))**rgocp
+      th(jl, jk) = ptm1(jl, jk)
+    END DO
+  END DO
+
+  ! C
+  DO jl = kidia, kfdia
+    pressg(jl) = paphm1(jl, klev+1)
+  END DO
+
+
+  DO jl = kidia, kfdia
+    prflux(jl) = 0.0
+    zpr(jl) = zpcons*prflux(jl)
+    zlat = (rlat(jl)/180.)*rpi
+    coslat(jl) = cos(zlat)
+  END DO
+
+  ! /#########################################################################
+  ! /
+  ! /
+
+  ! * AUG. 14/95 - C. MCLANDRESS.
+  ! * SEP.    95   N. MCFARLANE.
+
+  ! * THIS ROUTINE CALCULATES THE HORIZONTAL WIND TENDENCIES
+  ! * DUE TO MCFARLANE'S OROGRAPHIC GW DRAG SCHEME, HINES'
+  ! * DOPPLER SPREAD SCHEME FOR "EXTROWAVES" AND ADDS ON
+  ! * ROOF DRAG. IT IS BASED ON THE ROUTINE GWDFLX8.
+
+  ! * LREFP IS THE INDEX OF THE MODEL LEVEL BELOW THE REFERENCE LEVEL
+  ! * I/O ARRAYS PASSED FROM MAIN.
+  ! * (PRESSG = SURFACE PRESSURE)
+
+
+
+
+  ! * CONSTANTS VALUES DEFINED IN DATA STATEMENT ARE :
+  ! * VMIN     = MIMINUM WIND IN THE DIRECTION OF REFERENCE LEVEL
+  ! *            WIND BEFORE WE CONSIDER BREAKING TO HAVE OCCURED.
+  ! * DMPSCAL  = DAMPING TIME FOR GW DRAG IN SECONDS.
+  ! * TAUFAC   = 1/(LENGTH SCALE).
+  ! * HMIN     = MIMINUM ENVELOPE HEIGHT REQUIRED TO PRODUCE GW DRAG.
+  ! * V0       = VALUE OF WIND THAT APPROXIMATES ZERO.
+
+
+  DATA vmin/5.0/, v0/1.E-10/, taufac/5.E-6/, hmin/40000./, dmpscal/6.5E+6/, &
+    apibt/1.5708/, cpart/0.7/, fcrit/1./
+
+  ! * HINES EXTROWAVE GWD CONSTANTS DEFINED IN DATA STATEMENT ARE:
+  ! * RMSCON = ROOT MEAN SQUARE GRAVITY WAVE WIND AT LOWEST LEVEL (M/S).
+  ! * NMESSG  = UNIT NUMBER FOR PRINTED MESSAGES.
+  ! * IPRINT  = 1 TO DO PRINT OUT SOME HINES ARRAYS.
+  ! * IFL     = FIRST CALL FLAG TO HINES_SETUP ("SAVE" IT)
+  ! * PCRIT = CRITICAL VALUE OF ZPR (MM/D)
+  ! * IPLEV = LEVEL OF APPLICATION OF PRCIT
+  ! * PCONS = FACTOR OF ZPR ENHANCEMENT
+
+
+  DATA pcrit/5./, pcons/4.75/
+
+  iplev = lrefp - 1
+
+  DATA rmscon/1.00/iprint/2/, nmessg/6/
+  DATA ifl/0/
+
+  lozpr = .FALSE.
+
+  ! -----------------------------------------------------------------------
+
+
+
+  ! * SET ERROR FLAG
+
+  ierror = 0
+
+  ! * SPECIFY VARIOUS PARAMETERS FOR HINES ROUTINE AT VERY FIRST CALL.
+  ! * (NOTE THAT ARRAY K_ALPHA IS SPECIFIED SO MAKE SURE THAT
+  ! * IT IS NOT OVERWRITTEN LATER ON).
+
+  CALL hines_setup(naz, slope, f1, f2, f3, f5, f6, kstar, icutoff, &
+    alt_cutoff, smco, nsmax, iheatcal, k_alpha, ierror, nmessg, klon, nazmth, &
+    coslat)
+  IF (ierror/=0) GO TO 999
+
+  ! * START GWD CALCULATIONS.
+
+  lref = lrefp - 1
+
+
+  DO j = 1, nazmth
+    DO l = 1, klev
+      DO i = kidia, klon
+        sigsqmcw(i, l, j) = 0.
+      END DO
+    END DO
+  END DO
+
+
+
+  ! * INITIALIZE NECESSARY ARRAYS.
+
+  DO l = 1, klev
+    DO i = kidia, kfdia
+      utendgw(i, l) = 0.
+      vtendgw(i, l) = 0.
+
+      uhs(i, l) = 0.
+      vhs(i, l) = 0.
+
+    END DO
+  END DO
+
+  ! * IF USING HINES SCHEME THEN CALCULATE B V FREQUENCY AT ALL POINTS
+  ! * AND SMOOTH BVFREQ.
+
+  DO l = 2, klev
+    DO i = kidia, kfdia
+      dttdsf = (th(i,l)/shxkj(i,l)-th(i,l-1)/shxkj(i,l-1))/ &
+        (shj(i,l)-shj(i,l-1))
+      dttdsf = min(dttdsf, -5./sgj(i,l))
+      bvfreq(i, l) = sqrt(-dttdsf*sgj(i,l)*(sgj(i,l)**rgocp)/rd)*rg/ptm1(i, l &
+        )
+    END DO
+  END DO
+  DO l = 1, klev
+    DO i = kidia, kfdia
+      IF (l==1) THEN
+        bvfreq(i, l) = bvfreq(i, l+1)
+      END IF
+      IF (l>1) THEN
+        ratio = 5.*log(sgj(i,l)/sgj(i,l-1))
+        bvfreq(i, l) = (bvfreq(i,l-1)+ratio*bvfreq(i,l))/(1.+ratio)
+      END IF
+    END DO
+  END DO
+
+  ! * CALCULATE GW DRAG DUE TO HINES' EXTROWAVES
+  ! * SET MOLECULAR VISCOSITY TO A VERY SMALL VALUE.
+  ! * IF THE MODEL TOP IS GREATER THAN 100 KM THEN THE ACTUAL
+  ! * VISCOSITY COEFFICIENT COULD BE SPECIFIED HERE.
+
+  DO l = 1, klev
+    DO i = kidia, kfdia
+      visc_mol(i, l) = 1.5E-5
+      drag_u(i, l) = 0.
+      drag_v(i, l) = 0.
+      flux_u(i, l) = 0.
+      flux_v(i, l) = 0.
+      heat(i, l) = 0.
+      diffco(i, l) = 0.
+    END DO
+  END DO
+
+  ! * ALTITUDE AND DENSITY AT BOTTOM.
+
+  DO i = kidia, kfdia
+    hscal = rd*ptm1(i, klev)/rg
+    density(i, klev) = sgj(i, klev)*pressg(i)/(rg*hscal)
+    alt(i, klev) = 0.
+  END DO
+
+  ! * ALTITUDE AND DENSITY AT REMAINING LEVELS.
+
+  DO l = klev - 1, 1, -1
+    DO i = kidia, kfdia
+      hscal = rd*ptm1(i, l)/rg
+      alt(i, l) = alt(i, l+1) + hscal*dsgj(i, l)/sgj(i, l)
+      density(i, l) = sgj(i, l)*pressg(i)/(rg*hscal)
+    END DO
+  END DO
+
+
+  ! * INITIALIZE SWITCHES FOR HINES GWD CALCULATION
+
+  ilrms = 0
+
+  DO i = kidia, kfdia
+    lorms(i) = .FALSE.
+  END DO
+
+
+  ! * DEFILE BOTTOM LAUNCH LEVEL
+
+  levbot = iplev
+
+  ! * BACKGROUND WIND MINUS VALUE AT BOTTOM LAUNCH LEVEL.
+
+  DO l = 1, levbot
+    DO i = kidia, kfdia
+      uhs(i, l) = pum1(i, l) - pum1(i, levbot)
+      vhs(i, l) = pvm1(i, l) - pvm1(i, levbot)
+    END DO
+  END DO
+
+  ! * SPECIFY ROOT MEAN SQUARE WIND AT BOTTOM LAUNCH LEVEL.
+
+  DO i = kidia, kfdia
+    rmswind(i) = rmscon
+  END DO
+
+  IF (lozpr) THEN
+    DO i = kidia, kfdia
+      IF (zpr(i)>pcrit) THEN
+        rmswind(i) = rmscon + ((zpr(i)-pcrit)/zpr(i))*pcons
+      END IF
+    END DO
+  END IF
+
+  DO i = kidia, kfdia
+    IF (rmswind(i)>0.0) THEN
+      ilrms = ilrms + 1
+      lorms(i) = .TRUE.
+    END IF
+  END DO
+
+  ! * CALCULATE GWD (NOTE THAT DIFFUSION COEFFICIENT AND
+  ! * HEATING RATE ONLY CALCULATED IF IHEATCAL = 1).
+
+  IF (ilrms>0) THEN
+
+    CALL hines_extro0(drag_u, drag_v, heat, diffco, flux_u, flux_v, uhs, vhs, &
+      bvfreq, density, visc_mol, alt, rmswind, k_alpha, m_alpha, v_alpha, &
+      sigma_alpha, sigsqh_alpha, ak_alpha, mmin_alpha, i_alpha, sigma_t, &
+      densbot, bvfbot, 1, iheatcal, icutoff, iprint, nsmax, smco, alt_cutoff, &
+      kstar, slope, f1, f2, f3, f5, f6, naz, sigsqmcw, sigmatm, kidia, klon, &
+      1, levbot, klon, klev, nazmth, lorms, smoothr1, smoothr2, sigalpmc, &
+      f2mod)
+
+    ! * ADD ON HINES' GWD TENDENCIES TO OROGRAPHIC TENDENCIES AND
+    ! * APPLY HINES' GW DRAG ON (UROW,VROW) WORK ARRAYS.
+
+    DO l = 1, klev
+      DO i = kidia, kfdia
+        utendgw(i, l) = utendgw(i, l) + drag_u(i, l)
+        vtendgw(i, l) = vtendgw(i, l) + drag_v(i, l)
+      END DO
+    END DO
+
+
+    ! * END OF HINES CALCULATIONS.
+
+  END IF
+
+  ! -----------------------------------------------------------------------
+
+  DO jl = kidia, kfdia
+    zustrhi(jl) = flux_u(jl, 1)
+    zvstrhi(jl) = flux_v(jl, 1)
+    DO jk = 1, klev
+      le = klev - jk + 1
+      d_u_hin(jl, jk) = utendgw(jl, le)*dtime
+      d_v_hin(jl, jk) = vtendgw(jl, le)*dtime
+    END DO
+  END DO
+
+  ! PRINT *,'UTENDGW:',UTENDGW
+
+  ! PRINT *,' HINES HAS BEEN COMPLETED (LONG ISNT IT...)'
+
+  RETURN
+999 CONTINUE
+
+  ! * IF ERROR DETECTED THEN ABORT.
+
+  WRITE (nmessg, 6000)
+  WRITE (nmessg, 6010) ierror
+6000 FORMAT (/' EXECUTION ABORTED IN GWDOREXV')
+6010 FORMAT ('     ERROR FLAG =', I4)
+
+
+  RETURN
+END SUBROUTINE hines_gwd
+! /
+! /
+
+
+SUBROUTINE hines_extro0(drag_u, drag_v, heat, diffco, flux_u, flux_v, vel_u, &
+    vel_v, bvfreq, density, visc_mol, alt, rmswind, k_alpha, m_alpha, &
+    v_alpha, sigma_alpha, sigsqh_alpha, ak_alpha, mmin_alpha, i_alpha, &
+    sigma_t, densb, bvfb, iorder, iheatcal, icutoff, iprint, nsmax, smco, &
+    alt_cutoff, kstar, slope, f1, f2, f3, f5, f6, naz, sigsqmcw, sigmatm, &
+    il1, il2, lev1, lev2, nlons, nlevs, nazmth, lorms, smoothr1, smoothr2, &
+    sigalpmc, f2mod)
+
+  IMPLICIT NONE
+
+  ! Main routine for Hines' "extrowave" gravity wave parameterization based
+  ! on Hines' Doppler spread theory. This routine calculates zonal
+  ! and meridional components of gravity wave drag, heating rates
+  ! and diffusion coefficient on a longitude by altitude grid.
+  ! No "mythical" lower boundary region calculation is made so it
+  ! is assumed that lowest level winds are weak (i.e, approximately zero).
+
+  ! Aug. 13/95 - C. McLandress
+  ! SEPT. /95  - N.McFarlane
+
+  ! Modifications:
+
+  ! Output arguements:
+
+  ! * DRAG_U = zonal component of gravity wave drag (m/s^2).
+  ! * DRAG_V = meridional component of gravity wave drag (m/s^2).
+  ! * HEAT   = gravity wave heating (K/sec).
+  ! * DIFFCO = diffusion coefficient (m^2/sec)
+  ! * FLUX_U = zonal component of vertical momentum flux (Pascals)
+  ! * FLUX_V = meridional component of vertical momentum flux (Pascals)
+
+  ! Input arguements:
+
+  ! * VEL_U      = background zonal wind component (m/s).
+  ! * VEL_V      = background meridional wind component (m/s).
+  ! * BVFREQ     = background Brunt Vassala frequency (radians/sec).
+  ! * DENSITY    = background density (kg/m^3)
+  ! * VISC_MOL   = molecular viscosity (m^2/s)
+  ! * ALT        = altitude of momentum, density, buoyancy levels (m)
+  ! *              (NOTE: levels ordered so that ALT(I,1) > ALT(I,2), etc.)
+  ! * RMSWIND   = root mean square gravity wave wind at lowest level (m/s).
+  ! * K_ALPHA    = horizontal wavenumber of each azimuth (1/m).
+  ! * IORDER	   = 1 means vertical levels are indexed from top down
+  ! *              (i.e., highest level indexed 1 and lowest level NLEVS);
+  ! *           .NE. 1 highest level is index NLEVS.
+  ! * IHEATCAL   = 1 to calculate heating rates and diffusion coefficient.
+  ! * IPRINT     = 1 to print out various arrays.
+  ! * ICUTOFF    = 1 to exponentially damp GWD, heating and diffusion
+  ! *              arrays above ALT_CUTOFF; otherwise arrays not modified.
+  ! * ALT_CUTOFF = altitude in meters above which exponential decay applied.
+  ! * SMCO       = smoothing factor used to smooth cutoff vertical
+  ! *              wavenumbers and total rms winds in vertical direction
+  ! *              before calculating drag or heating
+  ! *              (SMCO >= 1 ==> 1:SMCO:1 stencil used).
+  ! * NSMAX      = number of times smoother applied ( >= 1),
+  ! *            = 0 means no smoothing performed.
+  ! * KSTAR      = typical gravity wave horizontal wavenumber (1/m).
+  ! * SLOPE      = slope of incident vertical wavenumber spectrum
+  ! *              (SLOPE must equal 1., 1.5 or 2.).
+  ! * F1 to F6   = Hines's fudge factors (F4 not needed since used for
+  ! *              vertical flux of vertical momentum).
+  ! * NAZ        = actual number of horizontal azimuths used.
+  ! * IL1        = first longitudinal index to use (IL1 >= 1).
+  ! * IL2        = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * LEV1       = index of first level for drag calculation.
+  ! * LEV2       = index of last level for drag calculation
+  ! *              (i.e., LEV1 < LEV2 <= NLEVS).
+  ! * NLONS      = number of longitudes.
+  ! * NLEVS      = number of vertical levels.
+  ! * NAZMTH     = azimuthal array dimension (NAZMTH >= NAZ).
+
+  ! Work arrays.
+
+  ! * M_ALPHA      = cutoff vertical wavenumber (1/m).
+  ! * V_ALPHA      = wind component at each azimuth (m/s) and if IHEATCAL=1
+  ! *                holds vertical derivative of cutoff wavenumber.
+  ! * SIGMA_ALPHA  = total rms wind in each azimuth (m/s).
+  ! * SIGSQH_ALPHA = portion of wind variance from waves having wave
+  ! *                normals in the alpha azimuth (m/s).
+  ! * SIGMA_T      = total rms horizontal wind (m/s).
+  ! * AK_ALPHA     = spectral amplitude factor at each azimuth
+  ! *                (i.e.,{AjKj}) in m^4/s^2.
+  ! * I_ALPHA      = Hines' integral.
+  ! * MMIN_ALPHA   = minimum value of cutoff wavenumber.
+  ! * DENSB        = background density at bottom level.
+  ! * BVFB         = buoyancy frequency at bottom level and
+  ! *                work array for ICUTOFF = 1.
+
+  ! * LORMS       = .TRUE. for drag computation
+
+  INTEGER naz, nlons, nlevs, nazmth, il1, il2, lev1, lev2
+  INTEGER icutoff, nsmax, iorder, iheatcal, iprint
+  REAL kstar(nlons), f1, f2, f3, f5, f6, slope
+  REAL alt_cutoff, smco
+  REAL drag_u(nlons, nlevs), drag_v(nlons, nlevs)
+  REAL heat(nlons, nlevs), diffco(nlons, nlevs)
+  REAL flux_u(nlons, nlevs), flux_v(nlons, nlevs)
+  REAL vel_u(nlons, nlevs), vel_v(nlons, nlevs)
+  REAL bvfreq(nlons, nlevs), density(nlons, nlevs)
+  REAL visc_mol(nlons, nlevs), alt(nlons, nlevs)
+  REAL rmswind(nlons), bvfb(nlons), densb(nlons)
+  REAL sigma_t(nlons, nlevs), sigsqmcw(nlons, nlevs, nazmth)
+  REAL sigma_alpha(nlons, nlevs, nazmth), sigmatm(nlons, nlevs)
+  REAL sigsqh_alpha(nlons, nlevs, nazmth)
+  REAL m_alpha(nlons, nlevs, nazmth), v_alpha(nlons, nlevs, nazmth)
+  REAL ak_alpha(nlons, nazmth), k_alpha(nlons, nazmth)
+  REAL mmin_alpha(nlons, nazmth), i_alpha(nlons, nazmth)
+  REAL smoothr1(nlons, nlevs), smoothr2(nlons, nlevs)
+  REAL sigalpmc(nlons, nlevs, nazmth)
+  REAL f2mod(nlons, nlevs)
+
+  LOGICAL lorms(nlons)
+
+  ! Internal variables.
+
+  INTEGER levbot, levtop, i, n, l, lev1p, lev2m
+  INTEGER ilprt1, ilprt2
+  ! -----------------------------------------------------------------------
+
+  ! PRINT *,' IN HINES_EXTRO0'
+  lev1p = lev1 + 1
+  lev2m = lev2 - 1
+
+  ! Index of lowest altitude level (bottom of drag calculation).
+
+  levbot = lev2
+  levtop = lev1
+  IF (iorder/=1) THEN
+    WRITE (6, 1)
+1   FORMAT (2X, ' error: IORDER NOT ONE! ')
+  END IF
+
+  ! Buoyancy and density at bottom level.
+
+  DO i = il1, il2
+    bvfb(i) = bvfreq(i, levbot)
+    densb(i) = density(i, levbot)
+  END DO
+
+  ! initialize some variables
+
+  DO n = 1, naz
+    DO l = lev1, lev2
+      DO i = il1, il2
+        m_alpha(i, l, n) = 0.0
+      END DO
+    END DO
+  END DO
+  DO l = lev1, lev2
+    DO i = il1, il2
+      sigma_t(i, l) = 0.0
+    END DO
+  END DO
+  DO n = 1, naz
+    DO i = il1, il2
+      i_alpha(i, n) = 0.0
+    END DO
+  END DO
+
+  ! Compute azimuthal wind components from zonal and meridional winds.
+
+  CALL hines_wind(v_alpha, vel_u, vel_v, naz, il1, il2, lev1, lev2, nlons, &
+    nlevs, nazmth)
+
+  ! Calculate cutoff vertical wavenumber and velocity variances.
+
+  CALL hines_wavnum(m_alpha, sigma_alpha, sigsqh_alpha, sigma_t, ak_alpha, &
+    v_alpha, visc_mol, density, densb, bvfreq, bvfb, rmswind, i_alpha, &
+    mmin_alpha, kstar, slope, f1, f2, f3, naz, levbot, levtop, il1, il2, &
+    nlons, nlevs, nazmth, sigsqmcw, sigmatm, lorms, sigalpmc, f2mod)
+  ! Smooth cutoff wavenumbers and total rms velocity in the vertical
+  ! direction NSMAX times, using FLUX_U as temporary work array.
+
+  IF (nsmax>0) THEN
+    DO n = 1, naz
+      DO l = lev1, lev2
+        DO i = il1, il2
+          smoothr1(i, l) = m_alpha(i, l, n)
+        END DO
+      END DO
+      CALL vert_smooth(smoothr1, smoothr2, smco, nsmax, il1, il2, lev1, lev2, &
+        nlons, nlevs)
+      DO l = lev1, lev2
+        DO i = il1, il2
+          m_alpha(i, l, n) = smoothr1(i, l)
+        END DO
+      END DO
+    END DO
+    CALL vert_smooth(sigma_t, smoothr2, smco, nsmax, il1, il2, lev1, lev2, &
+      nlons, nlevs)
+  END IF
+
+  ! Calculate zonal and meridional components of the
+  ! momentum flux and drag.
+
+  CALL hines_flux(flux_u, flux_v, drag_u, drag_v, alt, density, densb, &
+    m_alpha, ak_alpha, k_alpha, slope, naz, il1, il2, lev1, lev2, nlons, &
+    nlevs, nazmth, lorms)
+
+  ! Cutoff drag above ALT_CUTOFF, using BVFB as temporary work array.
+
+  IF (icutoff==1) THEN
+    CALL hines_exp(drag_u, bvfb, alt, alt_cutoff, iorder, il1, il2, lev1, &
+      lev2, nlons, nlevs)
+    CALL hines_exp(drag_v, bvfb, alt, alt_cutoff, iorder, il1, il2, lev1, &
+      lev2, nlons, nlevs)
+  END IF
+
+  ! Print out various arrays for diagnostic purposes.
+
+  IF (iprint==1) THEN
+    ilprt1 = 15
+    ilprt2 = 16
+    CALL hines_print(flux_u, flux_v, drag_u, drag_v, alt, sigma_t, &
+      sigma_alpha, v_alpha, m_alpha, 1, 1, 6, ilprt1, ilprt2, lev1, lev2, &
+      naz, nlons, nlevs, nazmth)
+  END IF
+
+  ! If not calculating heating rate and diffusion coefficient then finished.
+
+  IF (iheatcal/=1) RETURN
+
+  ! Calculate vertical derivative of cutoff wavenumber (store
+  ! in array V_ALPHA) using centered differences at interior gridpoints
+  ! and one-sided differences at first and last levels.
+
+  DO n = 1, naz
+    DO l = lev1p, lev2m
+      DO i = il1, il2
+        v_alpha(i, l, n) = (m_alpha(i,l+1,n)-m_alpha(i,l-1,n))/ &
+          (alt(i,l+1)-alt(i,l-1))
+      END DO
+    END DO
+    DO i = il1, il2
+      v_alpha(i, lev1, n) = (m_alpha(i,lev1p,n)-m_alpha(i,lev1,n))/ &
+        (alt(i,lev1p)-alt(i,lev1))
+    END DO
+    DO i = il1, il2
+      v_alpha(i, lev2, n) = (m_alpha(i,lev2,n)-m_alpha(i,lev2m,n))/ &
+        (alt(i,lev2)-alt(i,lev2m))
+    END DO
+  END DO
+
+  ! Heating rate and diffusion coefficient.
+
+  CALL hines_heat(heat, diffco, m_alpha, v_alpha, ak_alpha, k_alpha, bvfreq, &
+    density, densb, sigma_t, visc_mol, kstar, slope, f2, f3, f5, f6, naz, &
+    il1, il2, lev1, lev2, nlons, nlevs, nazmth)
+
+  ! Finished.
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_extro0
+
+SUBROUTINE hines_wavnum(m_alpha, sigma_alpha, sigsqh_alpha, sigma_t, &
+    ak_alpha, v_alpha, visc_mol, density, densb, bvfreq, bvfb, rms_wind, &
+    i_alpha, mmin_alpha, kstar, slope, f1, f2, f3, naz, levbot, levtop, il1, &
+    il2, nlons, nlevs, nazmth, sigsqmcw, sigmatm, lorms, sigalpmc, f2mod)
+  IMPLICIT NONE
+  ! This routine calculates the cutoff vertical wavenumber and velocity
+  ! variances on a longitude by altitude grid for the Hines' Doppler
+  ! spread gravity wave drag parameterization scheme.
+  ! NOTE: (1) only values of four or eight can be used for # azimuths (NAZ).
+  ! (2) only values of 1.0, 1.5 or 2.0 can be used for slope (SLOPE).
+
+  ! Aug. 10/95 - C. McLandress
+
+  ! Output arguements:
+
+  ! * M_ALPHA      = cutoff wavenumber at each azimuth (1/m).
+  ! * SIGMA_ALPHA  = total rms wind in each azimuth (m/s).
+  ! * SIGSQH_ALPHA = portion of wind variance from waves having wave
+  ! *                normals in the alpha azimuth (m/s).
+  ! * SIGMA_T      = total rms horizontal wind (m/s).
+  ! * AK_ALPHA     = spectral amplitude factor at each azimuth
+  ! *                (i.e.,{AjKj}) in m^4/s^2.
+
+  ! Input arguements:
+
+  ! * V_ALPHA  = wind component at each azimuth (m/s).
+  ! * VISC_MOL = molecular viscosity (m^2/s)
+  ! * DENSITY  = background density (kg/m^3).
+  ! * DENSB    = background density at model bottom (kg/m^3).
+  ! * BVFREQ   = background Brunt Vassala frequency (radians/sec).
+  ! * BVFB     = background Brunt Vassala frequency at model bottom.
+  ! * RMS_WIND = root mean square gravity wave wind at lowest level (m/s).
+  ! * KSTAR    = typical gravity wave horizontal wavenumber (1/m).
+  ! * SLOPE    = slope of incident vertical wavenumber spectrum
+  ! *            (SLOPE = 1., 1.5 or 2.).
+  ! * F1,F2,F3 = Hines's fudge factors.
+  ! * NAZ      = actual number of horizontal azimuths used (4 or 8).
+  ! * LEVBOT   = index of lowest vertical level.
+  ! * LEVTOP   = index of highest vertical level
+  ! *            (NOTE: if LEVTOP < LEVBOT then level index
+  ! *             increases from top down).
+  ! * IL1      = first longitudinal index to use (IL1 >= 1).
+  ! * IL2      = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * NLONS    = number of longitudes.
+  ! * NLEVS    = number of vertical levels.
+  ! * NAZMTH   = azimuthal array dimension (NAZMTH >= NAZ).
+
+  ! * LORMS       = .TRUE. for drag computation
+
+  ! Input work arrays:
+
+  ! * I_ALPHA    = Hines' integral at a single level.
+  ! * MMIN_ALPHA = minimum value of cutoff wavenumber.
+
+  INTEGER naz, levbot, levtop, il1, il2, nlons, nlevs, nazmth
+  REAL slope, kstar(nlons), f1, f2, f3, f2mfac
+  REAL m_alpha(nlons, nlevs, nazmth)
+  REAL sigma_alpha(nlons, nlevs, nazmth)
+  REAL sigalpmc(nlons, nlevs, nazmth)
+  REAL sigsqh_alpha(nlons, nlevs, nazmth)
+  REAL sigsqmcw(nlons, nlevs, nazmth)
+  REAL sigma_t(nlons, nlevs)
+  REAL sigmatm(nlons, nlevs)
+  REAL ak_alpha(nlons, nazmth)
+  REAL v_alpha(nlons, nlevs, nazmth)
+  REAL visc_mol(nlons, nlevs)
+  REAL f2mod(nlons, nlevs)
+  REAL density(nlons, nlevs), densb(nlons)
+  REAL bvfreq(nlons, nlevs), bvfb(nlons), rms_wind(nlons)
+  REAL i_alpha(nlons, nazmth), mmin_alpha(nlons, nazmth)
+
+  LOGICAL lorms(nlons)
+
+  ! Internal variables.
+
+  INTEGER i, l, n, lstart, lend, lincr, lbelow
+  REAL m_sub_m_turb, m_sub_m_mol, m_trial
+  REAL visc, visc_min, azfac, sp1
+
+  ! c      REAL  N_OVER_M(1000), SIGFAC(1000)
+
+  REAL n_over_m(nlons), sigfac(nlons)
+  DATA visc_min/1.E-10/
+  ! -----------------------------------------------------------------------
+
+
+  ! PRINT *,'IN HINES_WAVNUM'
+  sp1 = slope + 1.
+
+  ! Indices of levels to process.
+
+  IF (levbot>levtop) THEN
+    lstart = levbot - 1
+    lend = levtop
+    lincr = -1
+  ELSE
+    WRITE (6, 1)
+1   FORMAT (2X, ' error: IORDER NOT ONE! ')
+  END IF
+
+  ! Use horizontal isotropy to calculate azimuthal variances at bottom level.
+
+  azfac = 1./real(naz)
+  DO n = 1, naz
+    DO i = il1, il2
+      sigsqh_alpha(i, levbot, n) = azfac*rms_wind(i)**2
+    END DO
+  END DO
+
+  ! Velocity variances at bottom level.
+
+  CALL hines_sigma(sigma_t, sigma_alpha, sigsqh_alpha, naz, levbot, il1, il2, &
+    nlons, nlevs, nazmth)
+
+  CALL hines_sigma(sigmatm, sigalpmc, sigsqmcw, naz, levbot, il1, il2, nlons, &
+    nlevs, nazmth)
+
+  ! Calculate cutoff wavenumber and spectral amplitude factor
+  ! at bottom level where it is assumed that background winds vanish
+  ! and also initialize minimum value of cutoff wavnumber.
+
+  DO n = 1, naz
+    DO i = il1, il2
+      IF (lorms(i)) THEN
+        m_alpha(i, levbot, n) = bvfb(i)/(f1*sigma_alpha(i,levbot,n)+f2* &
+          sigma_t(i,levbot))
+        ak_alpha(i, n) = sigsqh_alpha(i, levbot, n)/ &
+          (m_alpha(i,levbot,n)**sp1/sp1)
+        mmin_alpha(i, n) = m_alpha(i, levbot, n)
+      END IF
+    END DO
+  END DO
+
+  ! Calculate quantities from the bottom upwards,
+  ! starting one level above bottom.
+
+  DO l = lstart, lend, lincr
+
+    ! Level beneath present level.
+
+    lbelow = l - lincr
+
+    ! Calculate N/m_M where m_M is maximum permissible value of the vertical
+    ! wavenumber (i.e., m > m_M are obliterated) and N is buoyancy frequency.
+    ! m_M is taken as the smaller of the instability-induced
+    ! wavenumber (M_SUB_M_TURB) and that imposed by molecular viscosity
+    ! (M_SUB_M_MOL). Since variance at this level is not yet known
+    ! use value at level below.
+
+    DO i = il1, il2
+      IF (lorms(i)) THEN
+
+        f2mfac = sigmatm(i, lbelow)**2
+        f2mod(i, lbelow) = 1. + 2.*f2mfac/(f2mfac+sigma_t(i,lbelow)**2)
+
+        visc = amax1(visc_mol(i,l), visc_min)
+        m_sub_m_turb = bvfreq(i, l)/(f2*f2mod(i,lbelow)*sigma_t(i,lbelow))
+        m_sub_m_mol = (bvfreq(i,l)*kstar(i)/visc)**0.33333333/f3
+        IF (m_sub_m_turb<m_sub_m_mol) THEN
+          n_over_m(i) = f2*f2mod(i, lbelow)*sigma_t(i, lbelow)
+        ELSE
+          n_over_m(i) = bvfreq(i, l)/m_sub_m_mol
+        END IF
+      END IF
+    END DO
+
+    ! Calculate cutoff wavenumber at this level.
+
+    DO n = 1, naz
+      DO i = il1, il2
+        IF (lorms(i)) THEN
+
+          ! Calculate trial value (since variance at this level is not yet
+          ! known
+          ! use value at level below). If trial value is negative or if it
+          ! exceeds
+          ! minimum value (not permitted) then set it to minimum value.
+
+          m_trial = bvfb(i)/(f1*(sigma_alpha(i,lbelow,n)+sigalpmc(i,lbelow, &
+            n))+n_over_m(i)+v_alpha(i,l,n))
+          IF (m_trial<=0. .OR. m_trial>mmin_alpha(i,n)) THEN
+            m_trial = mmin_alpha(i, n)
+          END IF
+          m_alpha(i, l, n) = m_trial
+
+          ! Reset minimum value of cutoff wavenumber if necessary.
+
+          IF (m_alpha(i,l,n)<mmin_alpha(i,n)) THEN
+            mmin_alpha(i, n) = m_alpha(i, l, n)
+          END IF
+
+        END IF
+      END DO
+    END DO
+
+    ! Calculate the Hines integral at this level.
+
+    CALL hines_intgrl(i_alpha, v_alpha, m_alpha, bvfb, slope, naz, l, il1, &
+      il2, nlons, nlevs, nazmth, lorms)
+
+
+    ! Calculate the velocity variances at this level.
+
+    DO i = il1, il2
+      sigfac(i) = densb(i)/density(i, l)*bvfreq(i, l)/bvfb(i)
+    END DO
+    DO n = 1, naz
+      DO i = il1, il2
+        sigsqh_alpha(i, l, n) = sigfac(i)*ak_alpha(i, n)*i_alpha(i, n)
+      END DO
+    END DO
+    CALL hines_sigma(sigma_t, sigma_alpha, sigsqh_alpha, naz, l, il1, il2, &
+      nlons, nlevs, nazmth)
+
+    CALL hines_sigma(sigmatm, sigalpmc, sigsqmcw, naz, l, il1, il2, nlons, &
+      nlevs, nazmth)
+
+    ! End of level loop.
+
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_wavnum
+
+SUBROUTINE hines_wind(v_alpha, vel_u, vel_v, naz, il1, il2, lev1, lev2, &
+    nlons, nlevs, nazmth)
+    IMPLICIT NONE
+  ! This routine calculates the azimuthal horizontal background wind
+  ! components
+  ! on a longitude by altitude grid for the case of 4 or 8 azimuths for
+  ! the Hines' Doppler spread GWD parameterization scheme.
+
+  ! Aug. 7/95 - C. McLandress
+
+  ! Output arguement:
+
+  ! * V_ALPHA   = background wind component at each azimuth (m/s).
+  ! *             (note: first azimuth is in eastward direction
+  ! *              and rotate in counterclockwise direction.)
+
+  ! Input arguements:
+
+  ! * VEL_U     = background zonal wind component (m/s).
+  ! * VEL_V     = background meridional wind component (m/s).
+  ! * NAZ       = actual number of horizontal azimuths used (must be 4 or 8).
+  ! * IL1       = first longitudinal index to use (IL1 >= 1).
+  ! * IL2       = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * LEV1      = first altitude level to use (LEV1 >=1).
+  ! * LEV2      = last altitude level to use (LEV1 < LEV2 <= NLEVS).
+  ! * NLONS     = number of longitudes.
+  ! * NLEVS     = number of vertical levels.
+  ! * NAZMTH    = azimuthal array dimension (NAZMTH >= NAZ).
+
+  ! Constants in DATA statements.
+
+  ! * COS45 = cosine of 45 degrees.
+  ! * UMIN  = minimum allowable value for zonal or meridional
+  ! *         wind component (m/s).
+
+  ! Subroutine arguements.
+
+  INTEGER naz, il1, il2, lev1, lev2
+  INTEGER nlons, nlevs, nazmth
+  REAL v_alpha(nlons, nlevs, nazmth)
+  REAL vel_u(nlons, nlevs), vel_v(nlons, nlevs)
+
+  ! Internal variables.
+
+  INTEGER i, l
+  REAL u, v, cos45, umin
+
+  DATA cos45/0.7071068/
+  DATA umin/0.001/
+  ! -----------------------------------------------------------------------
+
+  ! Case with 4 azimuths.
+
+
+  ! PRINT *,'IN HINES_WIND'
+  IF (naz==4) THEN
+    DO l = lev1, lev2
+      DO i = il1, il2
+        u = vel_u(i, l)
+        v = vel_v(i, l)
+        IF (abs(u)<umin) u = umin
+        IF (abs(v)<umin) v = umin
+        v_alpha(i, l, 1) = u
+        v_alpha(i, l, 2) = v
+        v_alpha(i, l, 3) = -u
+        v_alpha(i, l, 4) = -v
+      END DO
+    END DO
+  END IF
+
+  ! Case with 8 azimuths.
+
+  IF (naz==8) THEN
+    DO l = lev1, lev2
+      DO i = il1, il2
+        u = vel_u(i, l)
+        v = vel_v(i, l)
+        IF (abs(u)<umin) u = umin
+        IF (abs(v)<umin) v = umin
+        v_alpha(i, l, 1) = u
+        v_alpha(i, l, 2) = cos45*(v+u)
+        v_alpha(i, l, 3) = v
+        v_alpha(i, l, 4) = cos45*(v-u)
+        v_alpha(i, l, 5) = -u
+        v_alpha(i, l, 6) = -v_alpha(i, l, 2)
+        v_alpha(i, l, 7) = -v
+        v_alpha(i, l, 8) = -v_alpha(i, l, 4)
+      END DO
+    END DO
+  END IF
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_wind
+
+SUBROUTINE hines_flux(flux_u, flux_v, drag_u, drag_v, alt, density, densb, &
+    m_alpha, ak_alpha, k_alpha, slope, naz, il1, il2, lev1, lev2, nlons, &
+    nlevs, nazmth, lorms)
+    IMPLICIT NONE
+  ! Calculate zonal and meridional components of the vertical flux
+  ! of horizontal momentum and corresponding wave drag (force per unit mass)
+  ! on a longitude by altitude grid for the Hines' Doppler spread
+  ! GWD parameterization scheme.
+  ! NOTE: only 4 or 8 azimuths can be used.
+
+  ! Aug. 6/95 - C. McLandress
+
+  ! Output arguements:
+
+  ! * FLUX_U = zonal component of vertical momentum flux (Pascals)
+  ! * FLUX_V = meridional component of vertical momentum flux (Pascals)
+  ! * DRAG_U = zonal component of drag (m/s^2).
+  ! * DRAG_V = meridional component of drag (m/s^2).
+
+  ! Input arguements:
+
+  ! * ALT       = altitudes (m).
+  ! * DENSITY   = background density (kg/m^3).
+  ! * DENSB     = background density at bottom level (kg/m^3).
+  ! * M_ALPHA   = cutoff vertical wavenumber (1/m).
+  ! * AK_ALPHA  = spectral amplitude factor (i.e., {AjKj} in m^4/s^2).
+  ! * K_ALPHA   = horizontal wavenumber (1/m).
+  ! * SLOPE     = slope of incident vertical wavenumber spectrum.
+  ! * NAZ       = actual number of horizontal azimuths used (must be 4 or 8).
+  ! * IL1       = first longitudinal index to use (IL1 >= 1).
+  ! * IL2       = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * LEV1      = first altitude level to use (LEV1 >=1).
+  ! * LEV2      = last altitude level to use (LEV1 < LEV2 <= NLEVS).
+  ! * NLONS     = number of longitudes.
+  ! * NLEVS     = number of vertical levels.
+  ! * NAZMTH    = azimuthal array dimension (NAZMTH >= NAZ).
+
+  ! * LORMS       = .TRUE. for drag computation
+
+  ! Constant in DATA statement.
+
+  ! * COS45 = cosine of 45 degrees.
+
+  ! Subroutine arguements.
+
+  INTEGER naz, il1, il2, lev1, lev2
+  INTEGER nlons, nlevs, nazmth
+  REAL slope
+  REAL flux_u(nlons, nlevs), flux_v(nlons, nlevs)
+  REAL drag_u(nlons, nlevs), drag_v(nlons, nlevs)
+  REAL alt(nlons, nlevs), density(nlons, nlevs), densb(nlons)
+  REAL m_alpha(nlons, nlevs, nazmth)
+  REAL ak_alpha(nlons, nazmth), k_alpha(nlons, nazmth)
+
+  LOGICAL lorms(nlons)
+
+  ! Internal variables.
+
+  INTEGER i, l, lev1p, lev2m, lev2p
+  REAL cos45, prod2, prod4, prod6, prod8, dendz, dendz2
+  DATA cos45/0.7071068/
+  ! -----------------------------------------------------------------------
+
+  lev1p = lev1 + 1
+  lev2m = lev2 - 1
+  lev2p = lev2 + 1
+
+  ! Sum over azimuths for case where SLOPE = 1.
+
+  IF (slope==1.) THEN
+
+    ! Case with 4 azimuths.
+
+    IF (naz==4) THEN
+      DO l = lev1, lev2
+        DO i = il1, il2
+          flux_u(i, l) = ak_alpha(i, 1)*k_alpha(i, 1)*m_alpha(i, l, 1) - &
+            ak_alpha(i, 3)*k_alpha(i, 3)*m_alpha(i, l, 3)
+          flux_v(i, l) = ak_alpha(i, 2)*k_alpha(i, 2)*m_alpha(i, l, 2) - &
+            ak_alpha(i, 4)*k_alpha(i, 4)*m_alpha(i, l, 4)
+        END DO
+      END DO
+    END IF
+
+    ! Case with 8 azimuths.
+
+    IF (naz==8) THEN
+      DO l = lev1, lev2
+        DO i = il1, il2
+          prod2 = ak_alpha(i, 2)*k_alpha(i, 2)*m_alpha(i, l, 2)
+          prod4 = ak_alpha(i, 4)*k_alpha(i, 4)*m_alpha(i, l, 4)
+          prod6 = ak_alpha(i, 6)*k_alpha(i, 6)*m_alpha(i, l, 6)
+          prod8 = ak_alpha(i, 8)*k_alpha(i, 8)*m_alpha(i, l, 8)
+          flux_u(i, l) = ak_alpha(i, 1)*k_alpha(i, 1)*m_alpha(i, l, 1) - &
+            ak_alpha(i, 5)*k_alpha(i, 5)*m_alpha(i, l, 5) + &
+            cos45*(prod2-prod4-prod6+prod8)
+          flux_v(i, l) = ak_alpha(i, 3)*k_alpha(i, 3)*m_alpha(i, l, 3) - &
+            ak_alpha(i, 7)*k_alpha(i, 7)*m_alpha(i, l, 7) + &
+            cos45*(prod2+prod4-prod6-prod8)
+        END DO
+      END DO
+    END IF
+
+  END IF
+
+  ! Sum over azimuths for case where SLOPE not equal to 1.
+
+  IF (slope/=1.) THEN
+
+    ! Case with 4 azimuths.
+
+    IF (naz==4) THEN
+      DO l = lev1, lev2
+        DO i = il1, il2
+          flux_u(i, l) = ak_alpha(i, 1)*k_alpha(i, 1)* &
+            m_alpha(i, l, 1)**slope - ak_alpha(i, 3)*k_alpha(i, 3)*m_alpha(i, &
+            l, 3)**slope
+          flux_v(i, l) = ak_alpha(i, 2)*k_alpha(i, 2)* &
+            m_alpha(i, l, 2)**slope - ak_alpha(i, 4)*k_alpha(i, 4)*m_alpha(i, &
+            l, 4)**slope
+        END DO
+      END DO
+    END IF
+
+    ! Case with 8 azimuths.
+
+    IF (naz==8) THEN
+      DO l = lev1, lev2
+        DO i = il1, il2
+          prod2 = ak_alpha(i, 2)*k_alpha(i, 2)*m_alpha(i, l, 2)**slope
+          prod4 = ak_alpha(i, 4)*k_alpha(i, 4)*m_alpha(i, l, 4)**slope
+          prod6 = ak_alpha(i, 6)*k_alpha(i, 6)*m_alpha(i, l, 6)**slope
+          prod8 = ak_alpha(i, 8)*k_alpha(i, 8)*m_alpha(i, l, 8)**slope
+          flux_u(i, l) = ak_alpha(i, 1)*k_alpha(i, 1)* &
+            m_alpha(i, l, 1)**slope - ak_alpha(i, 5)*k_alpha(i, 5)*m_alpha(i, &
+            l, 5)**slope + cos45*(prod2-prod4-prod6+prod8)
+          flux_v(i, l) = ak_alpha(i, 3)*k_alpha(i, 3)* &
+            m_alpha(i, l, 3)**slope - ak_alpha(i, 7)*k_alpha(i, 7)*m_alpha(i, &
+            l, 7)**slope + cos45*(prod2+prod4-prod6-prod8)
+        END DO
+      END DO
+    END IF
+
+  END IF
+
+  ! Calculate flux from sum.
+
+  DO l = lev1, lev2
+    DO i = il1, il2
+      flux_u(i, l) = flux_u(i, l)*densb(i)/slope
+      flux_v(i, l) = flux_v(i, l)*densb(i)/slope
+    END DO
+  END DO
+
+  ! Calculate drag at intermediate levels using centered differences
+
+  DO l = lev1p, lev2m
+    DO i = il1, il2
+      IF (lorms(i)) THEN
+        ! cc       DENDZ2 = DENSITY(I,L) * ( ALT(I,L+1) - ALT(I,L-1) )
+        dendz2 = density(i, l)*(alt(i,l-1)-alt(i,l))
+        ! cc       DRAG_U(I,L) = - ( FLUX_U(I,L+1) - FLUX_U(I,L-1) ) / DENDZ2
+        drag_u(i, l) = -(flux_u(i,l-1)-flux_u(i,l))/dendz2
+        ! cc       DRAG_V(I,L) = - ( FLUX_V(I,L+1) - FLUX_V(I,L-1) ) / DENDZ2
+        drag_v(i, l) = -(flux_v(i,l-1)-flux_v(i,l))/dendz2
+
+      END IF
+    END DO
+  END DO
+
+  ! Drag at first and last levels using one-side differences.
+
+  DO i = il1, il2
+    IF (lorms(i)) THEN
+      dendz = density(i, lev1)*(alt(i,lev1)-alt(i,lev1p))
+      drag_u(i, lev1) = flux_u(i, lev1)/dendz
+      drag_v(i, lev1) = flux_v(i, lev1)/dendz
+    END IF
+  END DO
+  DO i = il1, il2
+    IF (lorms(i)) THEN
+      dendz = density(i, lev2)*(alt(i,lev2m)-alt(i,lev2))
+      drag_u(i, lev2) = -(flux_u(i,lev2m)-flux_u(i,lev2))/dendz
+      drag_v(i, lev2) = -(flux_v(i,lev2m)-flux_v(i,lev2))/dendz
+    END IF
+  END DO
+  IF (nlevs>lev2) THEN
+    DO i = il1, il2
+      IF (lorms(i)) THEN
+        dendz = density(i, lev2p)*(alt(i,lev2)-alt(i,lev2p))
+        drag_u(i, lev2p) = -flux_u(i, lev2)/dendz
+        drag_v(i, lev2p) = -flux_v(i, lev2)/dendz
+      END IF
+    END DO
+  END IF
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_flux
+
+SUBROUTINE hines_heat(heat, diffco, m_alpha, dmdz_alpha, ak_alpha, k_alpha, &
+    bvfreq, density, densb, sigma_t, visc_mol, kstar, slope, f2, f3, f5, f6, &
+    naz, il1, il2, lev1, lev2, nlons, nlevs, nazmth)
+  IMPLICIT NONE
+  ! This routine calculates the gravity wave induced heating and
+  ! diffusion coefficient on a longitude by altitude grid for
+  ! the Hines' Doppler spread gravity wave drag parameterization scheme.
+
+  ! Aug. 6/95 - C. McLandress
+
+  ! Output arguements:
+
+  ! * HEAT   = gravity wave heating (K/sec).
+  ! * DIFFCO = diffusion coefficient (m^2/sec)
+
+  ! Input arguements:
+
+  ! * M_ALPHA     = cutoff vertical wavenumber (1/m).
+  ! * DMDZ_ALPHA  = vertical derivative of cutoff wavenumber.
+  ! * AK_ALPHA    = spectral amplitude factor of each azimuth
+  ! (i.e., {AjKj} in m^4/s^2).
+  ! * K_ALPHA     = horizontal wavenumber of each azimuth (1/m).
+  ! * BVFREQ      = background Brunt Vassala frequency (rad/sec).
+  ! * DENSITY     = background density (kg/m^3).
+  ! * DENSB       = background density at bottom level (kg/m^3).
+  ! * SIGMA_T     = total rms horizontal wind (m/s).
+  ! * VISC_MOL    = molecular viscosity (m^2/s).
+  ! * KSTAR       = typical gravity wave horizontal wavenumber (1/m).
+  ! * SLOPE       = slope of incident vertical wavenumber spectrum.
+  ! * F2,F3,F5,F6 = Hines's fudge factors.
+  ! * NAZ         = actual number of horizontal azimuths used.
+  ! * IL1         = first longitudinal index to use (IL1 >= 1).
+  ! * IL2         = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * LEV1        = first altitude level to use (LEV1 >=1).
+  ! * LEV2        = last altitude level to use (LEV1 < LEV2 <= NLEVS).
+  ! * NLONS       = number of longitudes.
+  ! * NLEVS       = number of vertical levels.
+  ! * NAZMTH      = azimuthal array dimension (NAZMTH >= NAZ).
+
+  INTEGER naz, il1, il2, lev1, lev2, nlons, nlevs, nazmth
+  REAL kstar(nlons), slope, f2, f3, f5, f6
+  REAL heat(nlons, nlevs), diffco(nlons, nlevs)
+  REAL m_alpha(nlons, nlevs, nazmth), dmdz_alpha(nlons, nlevs, nazmth)
+  REAL ak_alpha(nlons, nazmth), k_alpha(nlons, nazmth)
+  REAL bvfreq(nlons, nlevs), density(nlons, nlevs), densb(nlons)
+  REAL sigma_t(nlons, nlevs), visc_mol(nlons, nlevs)
+
+  ! Internal variables.
+
+  INTEGER i, l, n
+  REAL m_sub_m_turb, m_sub_m_mol, m_sub_m, heatng
+  REAL visc, visc_min, cpgas, sm1
+
+  ! specific heat at constant pressure
+
+  DATA cpgas/1004./
+
+  ! minimum permissible viscosity
+
+  DATA visc_min/1.E-10/
+  ! -----------------------------------------------------------------------
+
+  ! Initialize heating array.
+
+  DO l = 1, nlevs
+    DO i = 1, nlons
+      heat(i, l) = 0.
+    END DO
+  END DO
+
+  ! Perform sum over azimuths for case where SLOPE = 1.
+
+  IF (slope==1.) THEN
+    DO n = 1, naz
+      DO l = lev1, lev2
+        DO i = il1, il2
+          heat(i, l) = heat(i, l) + ak_alpha(i, n)*k_alpha(i, n)*dmdz_alpha(i &
+            , l, n)
+        END DO
+      END DO
+    END DO
+  END IF
+
+  ! Perform sum over azimuths for case where SLOPE not 1.
+
+  IF (slope/=1.) THEN
+    sm1 = slope - 1.
+    DO n = 1, naz
+      DO l = lev1, lev2
+        DO i = il1, il2
+          heat(i, l) = heat(i, l) + ak_alpha(i, n)*k_alpha(i, n)*m_alpha(i, l &
+            , n)**sm1*dmdz_alpha(i, l, n)
+        END DO
+      END DO
+    END DO
+  END IF
+
+  ! Heating and diffusion.
+
+  DO l = lev1, lev2
+    DO i = il1, il2
+
+      ! Maximum permissible value of cutoff wavenumber is the smaller
+      ! of the instability-induced wavenumber (M_SUB_M_TURB) and
+      ! that imposed by molecular viscosity (M_SUB_M_MOL).
+
+      visc = amax1(visc_mol(i,l), visc_min)
+      m_sub_m_turb = bvfreq(i, l)/(f2*sigma_t(i,l))
+      m_sub_m_mol = (bvfreq(i,l)*kstar(i)/visc)**0.33333333/f3
+      m_sub_m = amin1(m_sub_m_turb, m_sub_m_mol)
+
+      heatng = -heat(i, l)*f5*bvfreq(i, l)/m_sub_m*densb(i)/density(i, l)
+      diffco(i, l) = f6*heatng**0.33333333/m_sub_m**1.33333333
+      heat(i, l) = heatng/cpgas
+
+    END DO
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_heat
+
+SUBROUTINE hines_sigma(sigma_t, sigma_alpha, sigsqh_alpha, naz, lev, il1, &
+    il2, nlons, nlevs, nazmth)
+  IMPLICIT NONE
+  ! This routine calculates the total rms and azimuthal rms horizontal
+  ! velocities at a given level on a longitude by altitude grid for
+  ! the Hines' Doppler spread GWD parameterization scheme.
+  ! NOTE: only four or eight azimuths can be used.
+
+  ! Aug. 7/95 - C. McLandress
+
+  ! Output arguements:
+
+  ! * SIGMA_T      = total rms horizontal wind (m/s).
+  ! * SIGMA_ALPHA  = total rms wind in each azimuth (m/s).
+
+  ! Input arguements:
+
+  ! * SIGSQH_ALPHA = portion of wind variance from waves having wave
+  ! *                normals in the alpha azimuth (m/s).
+  ! * NAZ       = actual number of horizontal azimuths used (must be 4 or 8).
+  ! * LEV       = altitude level to process.
+  ! * IL1       = first longitudinal index to use (IL1 >= 1).
+  ! * IL2       = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * NLONS     = number of longitudes.
+  ! * NLEVS     = number of vertical levels.
+  ! * NAZMTH    = azimuthal array dimension (NAZMTH >= NAZ).
+
+  ! Subroutine arguements.
+
+  INTEGER lev, naz, il1, il2
+  INTEGER nlons, nlevs, nazmth
+  REAL sigma_t(nlons, nlevs)
+  REAL sigma_alpha(nlons, nlevs, nazmth)
+  REAL sigsqh_alpha(nlons, nlevs, nazmth)
+
+  ! Internal variables.
+
+  INTEGER i, n
+  REAL sum_even, sum_odd
+  ! -----------------------------------------------------------------------
+
+  ! Calculate azimuthal rms velocity for the 4 azimuth case.
+
+  IF (naz==4) THEN
+    DO i = il1, il2
+      sigma_alpha(i, lev, 1) = sqrt(sigsqh_alpha(i,lev,1)+sigsqh_alpha(i,lev, &
+        3))
+      sigma_alpha(i, lev, 2) = sqrt(sigsqh_alpha(i,lev,2)+sigsqh_alpha(i,lev, &
+        4))
+      sigma_alpha(i, lev, 3) = sigma_alpha(i, lev, 1)
+      sigma_alpha(i, lev, 4) = sigma_alpha(i, lev, 2)
+    END DO
+  END IF
+
+  ! Calculate azimuthal rms velocity for the 8 azimuth case.
+
+  IF (naz==8) THEN
+    DO i = il1, il2
+      sum_odd = (sigsqh_alpha(i,lev,1)+sigsqh_alpha(i,lev,3)+ &
+        sigsqh_alpha(i,lev,5)+sigsqh_alpha(i,lev,7))/2.
+      sum_even = (sigsqh_alpha(i,lev,2)+sigsqh_alpha(i,lev,4)+ &
+        sigsqh_alpha(i,lev,6)+sigsqh_alpha(i,lev,8))/2.
+      sigma_alpha(i, lev, 1) = sqrt(sigsqh_alpha(i,lev,1)+sigsqh_alpha(i,lev, &
+        5)+sum_even)
+      sigma_alpha(i, lev, 2) = sqrt(sigsqh_alpha(i,lev,2)+sigsqh_alpha(i,lev, &
+        6)+sum_odd)
+      sigma_alpha(i, lev, 3) = sqrt(sigsqh_alpha(i,lev,3)+sigsqh_alpha(i,lev, &
+        7)+sum_even)
+      sigma_alpha(i, lev, 4) = sqrt(sigsqh_alpha(i,lev,4)+sigsqh_alpha(i,lev, &
+        8)+sum_odd)
+      sigma_alpha(i, lev, 5) = sigma_alpha(i, lev, 1)
+      sigma_alpha(i, lev, 6) = sigma_alpha(i, lev, 2)
+      sigma_alpha(i, lev, 7) = sigma_alpha(i, lev, 3)
+      sigma_alpha(i, lev, 8) = sigma_alpha(i, lev, 4)
+    END DO
+  END IF
+
+  ! Calculate total rms velocity.
+
+  DO i = il1, il2
+    sigma_t(i, lev) = 0.
+  END DO
+  DO n = 1, naz
+    DO i = il1, il2
+      sigma_t(i, lev) = sigma_t(i, lev) + sigsqh_alpha(i, lev, n)
+    END DO
+  END DO
+  DO i = il1, il2
+    sigma_t(i, lev) = sqrt(sigma_t(i,lev))
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_sigma
+
+SUBROUTINE hines_intgrl(i_alpha, v_alpha, m_alpha, bvfb, slope, naz, lev, &
+    il1, il2, nlons, nlevs, nazmth, lorms)
+  IMPLICIT NONE
+  ! This routine calculates the vertical wavenumber integral
+  ! for a single vertical level at each azimuth on a longitude grid
+  ! for the Hines' Doppler spread GWD parameterization scheme.
+  ! NOTE: (1) only spectral slopes of 1, 1.5 or 2 are permitted.
+  ! (2) the integral is written in terms of the product QM
+  ! which by construction is always less than 1. Series
+  ! solutions are used for small |QM| and analytical solutions
+  ! for remaining values.
+
+  ! Aug. 8/95 - C. McLandress
+
+  ! Output arguement:
+
+  ! * I_ALPHA = Hines' integral.
+
+  ! Input arguements:
+
+  ! * V_ALPHA = azimuthal wind component (m/s).
+  ! * M_ALPHA = azimuthal cutoff vertical wavenumber (1/m).
+  ! * BVFB    = background Brunt Vassala frequency at model bottom.
+  ! * SLOPE   = slope of initial vertical wavenumber spectrum
+  ! *           (must use SLOPE = 1., 1.5 or 2.)
+  ! * NAZ     = actual number of horizontal azimuths used.
+  ! * LEV     = altitude level to process.
+  ! * IL1     = first longitudinal index to use (IL1 >= 1).
+  ! * IL2     = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * NLONS   = number of longitudes.
+  ! * NLEVS   = number of vertical levels.
+  ! * NAZMTH  = azimuthal array dimension (NAZMTH >= NAZ).
+
+  ! * LORMS       = .TRUE. for drag computation
+
+  ! Constants in DATA statements:
+
+  ! * QMIN = minimum value of Q_ALPHA (avoids indeterminant form of integral)
+  ! * QM_MIN = minimum value of Q_ALPHA * M_ALPHA (used to avoid numerical
+  ! *          problems).
+
+  INTEGER lev, naz, il1, il2, nlons, nlevs, nazmth
+  REAL i_alpha(nlons, nazmth)
+  REAL v_alpha(nlons, nlevs, nazmth)
+  REAL m_alpha(nlons, nlevs, nazmth)
+  REAL bvfb(nlons), slope
+
+  LOGICAL lorms(nlons)
+
+  ! Internal variables.
+
+  INTEGER i, n
+  REAL q_alpha, qm, sqrtqm, q_min, qm_min
+
+  DATA q_min/1.0/, qm_min/0.01/
+  ! -----------------------------------------------------------------------
+
+  ! For integer value SLOPE = 1.
+
+  IF (slope==1.) THEN
+
+    DO n = 1, naz
+      DO i = il1, il2
+        IF (lorms(i)) THEN
+
+          q_alpha = v_alpha(i, lev, n)/bvfb(i)
+          qm = q_alpha*m_alpha(i, lev, n)
+
+          ! If |QM| is small then use first 4 terms series of Taylor series
+          ! expansion of integral in order to avoid indeterminate form of
+          ! integral,
+          ! otherwise use analytical form of integral.
+
+          IF (abs(q_alpha)<q_min .OR. abs(qm)<qm_min) THEN
+            IF (q_alpha==0.) THEN
+              i_alpha(i, n) = m_alpha(i, lev, n)**2/2.
+            ELSE
+              i_alpha(i, n) = (qm**2/2.+qm**3/3.+qm**4/4.+qm**5/5.)/ &
+                q_alpha**2
+            END IF
+          ELSE
+            i_alpha(i, n) = -(alog(1.-qm)+qm)/q_alpha**2
+          END IF
+
+        END IF
+      END DO
+    END DO
+
+  END IF
+
+  ! For integer value SLOPE = 2.
+
+  IF (slope==2.) THEN
+
+    DO n = 1, naz
+      DO i = il1, il2
+        IF (lorms(i)) THEN
+
+          q_alpha = v_alpha(i, lev, n)/bvfb(i)
+          qm = q_alpha*m_alpha(i, lev, n)
+
+          ! If |QM| is small then use first 4 terms series of Taylor series
+          ! expansion of integral in order to avoid indeterminate form of
+          ! integral,
+          ! otherwise use analytical form of integral.
+
+          IF (abs(q_alpha)<q_min .OR. abs(qm)<qm_min) THEN
+            IF (q_alpha==0.) THEN
+              i_alpha(i, n) = m_alpha(i, lev, n)**3/3.
+            ELSE
+              i_alpha(i, n) = (qm**3/3.+qm**4/4.+qm**5/5.+qm**6/6.)/ &
+                q_alpha**3
+            END IF
+          ELSE
+            i_alpha(i, n) = -(alog(1.-qm)+qm+qm**2/2.)/q_alpha**3
+          END IF
+
+        END IF
+      END DO
+    END DO
+
+  END IF
+
+  ! For real value SLOPE = 1.5
+
+  IF (slope==1.5) THEN
+
+    DO n = 1, naz
+      DO i = il1, il2
+        IF (lorms(i)) THEN
+
+          q_alpha = v_alpha(i, lev, n)/bvfb(i)
+          qm = q_alpha*m_alpha(i, lev, n)
+
+          ! If |QM| is small then use first 4 terms series of Taylor series
+          ! expansion of integral in order to avoid indeterminate form of
+          ! integral,
+          ! otherwise use analytical form of integral.
+
+          IF (abs(q_alpha)<q_min .OR. abs(qm)<qm_min) THEN
+            IF (q_alpha==0.) THEN
+              i_alpha(i, n) = m_alpha(i, lev, n)**2.5/2.5
+            ELSE
+              i_alpha(i, n) = (qm/2.5+qm**2/3.5+qm**3/4.5+qm**4/5.5)* &
+                m_alpha(i, lev, n)**1.5/q_alpha
+            END IF
+          ELSE
+            qm = abs(qm)
+            sqrtqm = sqrt(qm)
+            IF (q_alpha>=0.) THEN
+              i_alpha(i, n) = (alog((1.+sqrtqm)/(1.-sqrtqm))-2.*sqrtqm*(1.+qm &
+                /3.))/q_alpha**2.5
+            ELSE
+              i_alpha(i, n) = 2.*(atan(sqrtqm)+sqrtqm*(qm/3.-1.))/ &
+                abs(q_alpha)**2.5
+            END IF
+          END IF
+
+        END IF
+      END DO
+    END DO
+
+  END IF
+
+  ! If integral is negative (which in principal should not happen) then
+  ! print a message and some info since execution will abort when calculating
+  ! the variances.
+
+  ! DO 80 N = 1,NAZ
+  ! DO 70 I = IL1,IL2
+  ! IF (I_ALPHA(I,N).LT.0.)  THEN
+  ! WRITE (6,*)
+  ! WRITE (6,*) '******************************'
+  ! WRITE (6,*) 'Hines integral I_ALPHA < 0 '
+  ! WRITE (6,*) '  longitude I=',I
+  ! WRITE (6,*) '  azimuth   N=',N
+  ! WRITE (6,*) '  level   LEV=',LEV
+  ! WRITE (6,*) '  I_ALPHA =',I_ALPHA(I,N)
+  ! WRITE (6,*) '  V_ALPHA =',V_ALPHA(I,LEV,N)
+  ! WRITE (6,*) '  M_ALPHA =',M_ALPHA(I,LEV,N)
+  ! WRITE (6,*) '  Q_ALPHA =',V_ALPHA(I,LEV,N) / BVFB(I)
+  ! WRITE (6,*) '  QM      =',V_ALPHA(I,LEV,N) / BVFB(I)
+  ! ^                                * M_ALPHA(I,LEV,N)
+  ! WRITE (6,*) '******************************'
+  ! END IF
+  ! 70     CONTINUE
+  ! 80   CONTINUE
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_intgrl
+
+SUBROUTINE hines_setup(naz, slope, f1, f2, f3, f5, f6, kstar, icutoff, &
+    alt_cutoff, smco, nsmax, iheatcal, k_alpha, ierror, nmessg, nlons, &
+    nazmth, coslat)
+  IMPLICIT NONE
+  ! This routine specifies various parameters needed for the
+  ! the Hines' Doppler spread gravity wave drag parameterization scheme.
+
+  ! Aug. 8/95 - C. McLandress
+
+  ! Output arguements:
+
+  ! * NAZ        = actual number of horizontal azimuths used
+  ! *              (code set up presently for only NAZ = 4 or 8).
+  ! * SLOPE      = slope of incident vertical wavenumber spectrum
+  ! *              (code set up presently for SLOPE 1., 1.5 or 2.).
+  ! * F1         = "fudge factor" used in calculation of trial value of
+  ! *              azimuthal cutoff wavenumber M_ALPHA (1.2 <= F1 <= 1.9).
+  ! * F2         = "fudge factor" used in calculation of maximum
+  ! *              permissible instabiliy-induced cutoff wavenumber
+  ! *              M_SUB_M_TURB (0.1 <= F2 <= 1.4).
+  ! * F3         = "fudge factor" used in calculation of maximum
+  ! *              permissible molecular viscosity-induced cutoff wavenumber
+  ! *              M_SUB_M_MOL (0.1 <= F2 <= 1.4).
+  ! * F5         = "fudge factor" used in calculation of heating rate
+  ! *              (1 <= F5 <= 3).
+  ! * F6         = "fudge factor" used in calculation of turbulent
+  ! *              diffusivity coefficient.
+  ! * KSTAR      = typical gravity wave horizontal wavenumber (1/m)
+  ! *              used in calculation of M_SUB_M_TURB.
+  ! * ICUTOFF    = 1 to exponentially damp off GWD, heating and diffusion
+  ! *              arrays above ALT_CUTOFF; otherwise arrays not modified.
+  ! * ALT_CUTOFF = altitude in meters above which exponential decay applied.
+  ! * SMCO       = smoother used to smooth cutoff vertical wavenumbers
+  ! *              and total rms winds before calculating drag or heating.
+  ! *              (==> a 1:SMCO:1 stencil used; SMCO >= 1.).
+  ! * NSMAX      = number of times smoother applied ( >= 1),
+  ! *            = 0 means no smoothing performed.
+  ! * IHEATCAL   = 1 to calculate heating rates and diffusion coefficient.
+  ! *            = 0 means only drag and flux calculated.
+  ! * K_ALPHA    = horizontal wavenumber of each azimuth (1/m) which
+  ! *              is set here to KSTAR.
+  ! * IERROR     = error flag.
+  ! *            = 0 no errors.
+  ! *            = 10 ==> NAZ > NAZMTH
+  ! *            = 20 ==> invalid number of azimuths (NAZ must be 4 or 8).
+  ! *            = 30 ==> invalid slope (SLOPE must be 1., 1.5 or 2.).
+  ! *            = 40 ==> invalid smoother (SMCO must be >= 1.)
+
+  ! Input arguements:
+
+  ! * NMESSG  = output unit number where messages to be printed.
+  ! * NLONS   = number of longitudes.
+  ! * NAZMTH  = azimuthal array dimension (NAZMTH >= NAZ).
+
+  INTEGER naz, nlons, nazmth, iheatcal, icutoff
+  INTEGER nmessg, nsmax, ierror
+  REAL kstar(nlons), slope, f1, f2, f3, f5, f6, alt_cutoff, smco
+  REAL k_alpha(nlons, nazmth), coslat(nlons)
+  REAL ksmin, ksmax
+
+  ! Internal variables.
+
+  INTEGER i, n
+  ! -----------------------------------------------------------------------
+
+  ! Specify constants.
+
+  naz = 8
+  slope = 1.
+  f1 = 1.5
+  f2 = 0.3
+  f3 = 1.0
+  f5 = 3.0
+  f6 = 1.0
+  ksmin = 1.E-5
+  ksmax = 1.E-4
+  DO i = 1, nlons
+    kstar(i) = ksmin/(coslat(i)+(ksmin/ksmax))
+  END DO
+  icutoff = 1
+  alt_cutoff = 105.E3
+  smco = 2.0
+  ! SMCO       = 1.0
+  nsmax = 5
+  ! NSMAX      = 2
+  iheatcal = 0
+
+  ! Print information to output file.
+
+  ! WRITE (NMESSG,6000)
+  ! 6000 FORMAT (/' Subroutine HINES_SETUP:')
+  ! WRITE (NMESSG,*)  '  SLOPE = ', SLOPE
+  ! WRITE (NMESSG,*)  '  NAZ = ', NAZ
+  ! WRITE (NMESSG,*)  '  F1,F2,F3  = ', F1, F2, F3
+  ! WRITE (NMESSG,*)  '  F5,F6     = ', F5, F6
+  ! WRITE (NMESSG,*)  '  KSTAR     = ', KSTAR
+  ! >           ,'  COSLAT     = ', COSLAT
+  ! IF (ICUTOFF .EQ. 1)  THEN
+  ! WRITE (NMESSG,*) '  Drag exponentially damped above ',
+  ! &                       ALT_CUTOFF/1.E3
+  ! END IF
+  ! IF (NSMAX.LT.1 )  THEN
+  ! WRITE (NMESSG,*) '  No smoothing of cutoff wavenumbers, etc'
+  ! ELSE
+  ! WRITE (NMESSG,*) '  Cutoff wavenumbers and sig_t smoothed:'
+  ! WRITE (NMESSG,*) '    SMCO  =', SMCO
+  ! WRITE (NMESSG,*) '    NSMAX =', NSMAX
+  ! END IF
+
+  ! Check that things are setup correctly and log error if not
+
+  ierror = 0
+  IF (naz>nazmth) ierror = 10
+  IF (naz/=4 .AND. naz/=8) ierror = 20
+  IF (slope/=1. .AND. slope/=1.5 .AND. slope/=2.) ierror = 30
+  IF (smco<1.) ierror = 40
+
+  ! Use single value for azimuthal-dependent horizontal wavenumber.
+
+  DO n = 1, naz
+    DO i = 1, nlons
+      k_alpha(i, n) = kstar(i)
+    END DO
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_setup
+
+SUBROUTINE hines_print(flux_u, flux_v, drag_u, drag_v, alt, sigma_t, &
+    sigma_alpha, v_alpha, m_alpha, iu_print, iv_print, nmessg, ilprt1, &
+    ilprt2, levprt1, levprt2, naz, nlons, nlevs, nazmth)
+  IMPLICIT NONE
+  ! Print out altitude profiles of various quantities from
+  ! Hines' Doppler spread gravity wave drag parameterization scheme.
+  ! (NOTE: only for NAZ = 4 or 8).
+
+  ! Aug. 8/95 - C. McLandress
+
+  ! Input arguements:
+
+  ! * IU_PRINT = 1 to print out values in east-west direction.
+  ! * IV_PRINT = 1 to print out values in north-south direction.
+  ! * NMESSG   = unit number for printed output.
+  ! * ILPRT1   = first longitudinal index to print.
+  ! * ILPRT2   = last longitudinal index to print.
+  ! * LEVPRT1  = first altitude level to print.
+  ! * LEVPRT2  = last altitude level to print.
+
+  INTEGER naz, ilprt1, ilprt2, levprt1, levprt2
+  INTEGER nlons, nlevs, nazmth
+  INTEGER iu_print, iv_print, nmessg
+  REAL flux_u(nlons, nlevs), flux_v(nlons, nlevs)
+  REAL drag_u(nlons, nlevs), drag_v(nlons, nlevs)
+  REAL alt(nlons, nlevs), sigma_t(nlons, nlevs)
+  REAL sigma_alpha(nlons, nlevs, nazmth)
+  REAL v_alpha(nlons, nlevs, nazmth), m_alpha(nlons, nlevs, nazmth)
+
+  ! Internal variables.
+
+  INTEGER n_east, n_west, n_north, n_south
+  INTEGER i, l
+  ! -----------------------------------------------------------------------
+
+  ! Azimuthal indices of cardinal directions.
+
+  n_east = 1
+  IF (naz==4) THEN
+    n_west = 3
+    n_north = 2
+    n_south = 4
+  ELSE IF (naz==8) THEN
+    n_west = 5
+    n_north = 3
+    n_south = 7
+  END IF
+
+  ! Print out values for range of longitudes.
+
+  DO i = ilprt1, ilprt2
+
+    ! Print east-west wind, sigmas, cutoff wavenumbers, flux and drag.
+
+    IF (iu_print==1) THEN
+      WRITE (nmessg, *)
+      WRITE (nmessg, 6001) i
+      WRITE (nmessg, 6005)
+6001  FORMAT ('Hines GW (east-west) at longitude I =', I3)
+6005  FORMAT (15X, ' U ', 2X, 'sig_E', 2X, 'sig_T', 3X, 'm_E', 4X, 'm_W', 4X, &
+        'fluxU', 5X, 'gwdU')
+      DO l = levprt1, levprt2
+        WRITE (nmessg, 6701) alt(i, l)/1.E3, v_alpha(i, l, n_east), &
+          sigma_alpha(i, l, n_east), sigma_t(i, l), &
+          m_alpha(i, l, n_east)*1.E3, m_alpha(i, l, n_west)*1.E3, &
+          flux_u(i, l)*1.E5, drag_u(i, l)*24.*3600.
+      END DO
+6701  FORMAT (' z=', F7.2, 1X, 3F7.1, 2F7.3, F9.4, F9.3)
+    END IF
+
+    ! Print north-south winds, sigmas, cutoff wavenumbers, flux and drag.
+
+    IF (iv_print==1) THEN
+      WRITE (nmessg, *)
+      WRITE (nmessg, 6002) i
+6002  FORMAT ('Hines GW (north-south) at longitude I =', I3)
+      WRITE (nmessg, 6006)
+6006  FORMAT (15X, ' V ', 2X, 'sig_N', 2X, 'sig_T', 3X, 'm_N', 4X, 'm_S', 4X, &
+        'fluxV', 5X, 'gwdV')
+      DO l = levprt1, levprt2
+        WRITE (nmessg, 6701) alt(i, l)/1.E3, v_alpha(i, l, n_north), &
+          sigma_alpha(i, l, n_north), sigma_t(i, l), &
+          m_alpha(i, l, n_north)*1.E3, m_alpha(i, l, n_south)*1.E3, &
+          flux_v(i, l)*1.E5, drag_v(i, l)*24.*3600.
+      END DO
+    END IF
+
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_print
+
+SUBROUTINE hines_exp(data, data_zmax, alt, alt_exp, iorder, il1, il2, lev1, &
+    lev2, nlons, nlevs)
+  IMPLICIT NONE
+  ! This routine exponentially damps a longitude by altitude array
+  ! of data above a specified altitude.
+
+  ! Aug. 13/95 - C. McLandress
+
+  ! Output arguements:
+
+  ! * DATA = modified data array.
+
+  ! Input arguements:
+
+  ! * DATA    = original data array.
+  ! * ALT     = altitudes.
+  ! * ALT_EXP = altitude above which exponential decay applied.
+  ! * IORDER	= 1 means vertical levels are indexed from top down
+  ! *           (i.e., highest level indexed 1 and lowest level NLEVS);
+  ! *           .NE. 1 highest level is index NLEVS.
+  ! * IL1     = first longitudinal index to use (IL1 >= 1).
+  ! * IL2     = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * LEV1    = first altitude level to use (LEV1 >=1).
+  ! * LEV2    = last altitude level to use (LEV1 < LEV2 <= NLEVS).
+  ! * NLONS   = number of longitudes.
+  ! * NLEVS   = number of vertical
+
+  ! Input work arrays:
+
+  ! * DATA_ZMAX = data values just above altitude ALT_EXP.
+
+  INTEGER iorder, il1, il2, lev1, lev2, nlons, nlevs
+  REAL alt_exp
+  REAL data(nlons, nlevs), data_zmax(nlons), alt(nlons, nlevs)
+
+  ! Internal variables.
+
+  INTEGER levbot, levtop, lincr, i, l
+  REAL hscale
+  DATA hscale/5.E3/
+  ! -----------------------------------------------------------------------
+
+  ! Index of lowest altitude level (bottom of drag calculation).
+
+  levbot = lev2
+  levtop = lev1
+  lincr = 1
+  IF (iorder/=1) THEN
+    levbot = lev1
+    levtop = lev2
+    lincr = -1
+  END IF
+
+  ! Data values at first level above ALT_EXP.
+
+  DO i = il1, il2
+    DO l = levtop, levbot, lincr
+      IF (alt(i,l)>=alt_exp) THEN
+        data_zmax(i) = data(i, l)
+      END IF
+    END DO
+  END DO
+
+  ! Exponentially damp field above ALT_EXP to model top at L=1.
+
+  DO l = 1, lev2
+    DO i = il1, il2
+      IF (alt(i,l)>=alt_exp) THEN
+        data(i, l) = data_zmax(i)*exp((alt_exp-alt(i,l))/hscale)
+      END IF
+    END DO
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE hines_exp
+
+SUBROUTINE vert_smooth(data, work, coeff, nsmooth, il1, il2, lev1, lev2, &
+    nlons, nlevs)
+  IMPLICIT NONE
+  ! Smooth a longitude by altitude array in the vertical over a
+  ! specified number of levels using a three point smoother.
+
+  ! NOTE: input array DATA is modified on output!
+
+  ! Aug. 3/95 - C. McLandress
+
+  ! Output arguement:
+
+  ! * DATA    = smoothed array (on output).
+
+  ! Input arguements:
+
+  ! * DATA    = unsmoothed array of data (on input).
+  ! * WORK    = work array of same dimension as DATA.
+  ! * COEFF   = smoothing coefficient for a 1:COEFF:1 stencil.
+  ! *           (e.g., COEFF = 2 will result in a smoother which
+  ! *           weights the level L gridpoint by two and the two
+  ! *           adjecent levels (L+1 and L-1) by one).
+  ! * NSMOOTH = number of times to smooth in vertical.
+  ! *           (e.g., NSMOOTH=1 means smoothed only once,
+  ! *           NSMOOTH=2 means smoothing repeated twice, etc.)
+  ! * IL1     = first longitudinal index to use (IL1 >= 1).
+  ! * IL2     = last longitudinal index to use (IL1 <= IL2 <= NLONS).
+  ! * LEV1    = first altitude level to use (LEV1 >=1).
+  ! * LEV2    = last altitude level to use (LEV1 < LEV2 <= NLEVS).
+  ! * NLONS   = number of longitudes.
+  ! * NLEVS   = number of vertical levels.
+
+  ! Subroutine arguements.
+
+  INTEGER nsmooth, il1, il2, lev1, lev2, nlons, nlevs
+  REAL coeff
+  REAL data(nlons, nlevs), work(nlons, nlevs)
+
+  ! Internal variables.
+
+  INTEGER i, l, ns, lev1p, lev2m
+  REAL sum_wts
+  ! -----------------------------------------------------------------------
+
+  ! Calculate sum of weights.
+
+  sum_wts = coeff + 2.
+
+  lev1p = lev1 + 1
+  lev2m = lev2 - 1
+
+  ! Smooth NSMOOTH times
+
+  DO ns = 1, nsmooth
+
+    ! Copy data into work array.
+
+    DO l = lev1, lev2
+      DO i = il1, il2
+        work(i, l) = data(i, l)
+      END DO
+    END DO
+
+    ! Smooth array WORK in vertical direction and put into DATA.
+
+    DO l = lev1p, lev2m
+      DO i = il1, il2
+        data(i, l) = (work(i,l+1)+coeff*work(i,l)+work(i,l-1))/sum_wts
+      END DO
+    END DO
+
+  END DO
+
+  RETURN
+  ! -----------------------------------------------------------------------
+END SUBROUTINE vert_smooth
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/histo_o500_pctau.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/histo_o500_pctau.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/histo_o500_pctau.F90	(revision 3330)
@@ -0,0 +1,65 @@
+
+! $Header$
+
+SUBROUTINE histo_o500_pctau(nbreg, pct_ocean, w, histo, histow, nhisto)
+  USE dimphy
+  IMPLICIT NONE
+
+  INTEGER :: ij, k, l, nw
+  INTEGER :: nreg, nbreg
+  INTEGER, PARAMETER :: kmax = 8, lmax = 8
+  INTEGER, PARAMETER :: kmaxm1 = kmax - 1, lmaxm1 = lmax - 1
+  INTEGER, PARAMETER :: iwmax = 40
+
+  INTEGER, DIMENSION (klon) :: iw
+  REAL, DIMENSION (klon) :: w
+  REAL, PARAMETER :: wmin = -200., pas_w = 10.
+  REAL, DIMENSION (kmaxm1, lmaxm1, iwmax, nbreg) :: histow, nhisto
+  REAL, DIMENSION (klon, kmaxm1, lmaxm1) :: histo
+
+  ! LOGICAL, dimension(klon,nbreg) :: pct_ocean
+  INTEGER, DIMENSION (klon, nbreg) :: pct_ocean
+
+  ! initialisation
+  histow(:, :, :, :) = 0.
+  nhisto(:, :, :, :) = 0.
+
+  ! calcul de l'histogramme de chaque regime dynamique
+  DO nreg = 1, nbreg
+    DO ij = 1, klon
+      iw(ij) = int((w(ij)-wmin)/pas_w) + 1
+      ! IF(pct_ocean(ij,nreg)) THEN
+      ! IF(pct_ocean(ij,nreg).EQ.1) THEN
+      IF (iw(ij)>=1 .AND. iw(ij)<=iwmax) THEN
+        DO l = 1, lmaxm1
+          DO k = 1, kmaxm1
+            IF (histo(ij,k,l)>0.) THEN
+              histow(k, l, iw(ij), nreg) = histow(k, l, iw(ij), nreg) + &
+                histo(ij, k, l)*pct_ocean(ij, nreg)
+              nhisto(k, l, iw(ij), nreg) = nhisto(k, l, iw(ij), nreg) + &
+                pct_ocean(ij, nreg)
+            END IF
+          END DO !k
+        END DO !l
+        ! ELSE IF (iw(ij).LE.0.OR.iw(ij).GT.iwmax) THEN !iw
+        ! PRINT*,'ij,iw=',ij,iw(ij)
+      END IF !iw
+      ! ENDIF !pct_ocean
+    END DO !ij
+    ! normalisation
+    DO nw = 1, iwmax
+      DO l = 1, lmaxm1
+        DO k = 1, kmaxm1
+          IF (nhisto(k,l,nw,nreg)/=0.) THEN
+            histow(k, l, nw, nreg) = 100.*histow(k, l, nw, nreg)/ &
+              nhisto(k, l, nw, nreg)
+            ! PRINT*,'k,l,nw,nreg,histoW',k,l,nw,nreg,
+            ! &     histoW(k,l,nw,nreg)
+          END IF
+        END DO !k
+      END DO !l
+    END DO !nw
+  END DO !nreg
+
+  RETURN
+END SUBROUTINE histo_o500_pctau
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/homogene.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/homogene.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/homogene.F90	(revision 3330)
@@ -0,0 +1,98 @@
+
+! $Header$
+
+SUBROUTINE homogene(paprs, q, dq, u, v, du, dv)
+  USE dimphy
+  IMPLICIT NONE
+  ! ==============================================================
+  ! Schema ad hoc du melange vertical pour les vitesses u et v,
+  ! a appliquer apres le schema de convection (fiajc et fiajh).
+
+  ! paprs:input, pression demi-couche (inter-couche)
+  ! q:    input, vapeur d'eau (kg/kg)
+  ! dq:   input, incrementation de vapeur d'eau (de la convection)
+  ! u:    input, vitesse u
+  ! v:    input, vitesse v
+
+  ! du:   output, incrementation pour u
+  ! dv:   output, incrementation pour v
+  ! ==============================================================
+
+  REAL paprs(klon, klev+1)
+  REAL q(klon, klev), dq(klon, klev)
+  REAL u(klon, klev), du(klon, klev)
+  REAL v(klon, klev), dv(klon, klev)
+
+  REAL zm_dq(klon) ! quantite totale de l'eau deplacee
+  REAL zm_q(klon) ! quantite totale de la vapeur d'eau
+  REAL zm_u(klon) ! moyenne de u (brassage parfait et total)
+  REAL zm_v(klon) ! moyenne de v (brassage parfait et total)
+  REAL z_frac(klon) ! fraction du brassage parfait et total
+  REAL zm_dp(klon)
+
+  REAL zx
+  INTEGER i, k
+  REAL frac_max
+  PARAMETER (frac_max=0.1)
+  REAL seuil
+  PARAMETER (seuil=1.0E-10)
+  LOGICAL faisrien
+  PARAMETER (faisrien=.TRUE.)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      du(i, k) = 0.0
+      dv(i, k) = 0.0
+    END DO
+  END DO
+
+  IF (faisrien) RETURN
+
+  DO i = 1, klon
+    zm_dq(i) = 0.
+    zm_q(i) = 0.
+    zm_u(i) = 0.
+    zm_v(i) = 0.
+    zm_dp(i) = 0.
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (abs(dq(i,k))>seuil) THEN
+        zx = paprs(i, k) - paprs(i, k+1)
+        zm_dq(i) = zm_dq(i) + abs(dq(i,k))*zx
+        zm_q(i) = zm_q(i) + q(i, k)*zx
+        zm_dp(i) = zm_dp(i) + zx
+        zm_u(i) = zm_u(i) + u(i, k)*zx
+        zm_v(i) = zm_v(i) + v(i, k)*zx
+      END IF
+    END DO
+  END DO
+
+  ! Hypothese principale: apres la convection, la vitesse de chaque
+  ! couche est composee de deux parties: celle (1-z_frac) de la vitesse
+  ! original et celle (z_frac) de la vitesse moyenne qui serait la
+  ! vitesse de chaque couche si le brassage etait parfait et total.
+  ! La fraction du brassage est calculee par le rapport entre la quantite
+  ! totale de la vapeur d'eau deplacee (ou condensee) et la quantite
+  ! totale de la vapeur d'eau. Et cette fraction est limitee a frac_max
+  ! (Est-ce vraiment raisonnable ? Z.X. Li, le 07-09-1995).
+
+  DO i = 1, klon
+    IF (zm_dp(i)>=1.0E-15 .AND. zm_q(i)>=1.0E-15) THEN
+      z_frac(i) = min(frac_max, zm_dq(i)/zm_q(i))
+      zm_u(i) = zm_u(i)/zm_dp(i)
+      zm_v(i) = zm_v(i)/zm_dp(i)
+    END IF
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (zm_dp(i)>=1.E-15 .AND. zm_q(i)>=1.E-15 .AND. abs(dq(i, &
+          k))>seuil) THEN
+        du(i, k) = u(i, k)*(1.-z_frac(i)) + zm_u(i)*z_frac(i) - u(i, k)
+        dv(i, k) = v(i, k)*(1.-z_frac(i)) + zm_v(i)*z_frac(i) - v(i, k)
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE homogene
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hydrol.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hydrol.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/hydrol.F90	(revision 3330)
@@ -0,0 +1,118 @@
+
+! $Header$
+
+
+
+SUBROUTINE hydrol(dtime, pctsrf, rain_fall, snow_fall, evap, agesno, tsol, &
+    qsol, snow, runoff)
+  USE dimphy
+  USE indice_sol_mod
+
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS)
+  ! date: 19940414
+  ! ======================================================================
+
+  ! Traitement de l'hydrologie du sol
+  ! ---------------------------------
+  ! rain_fall: taux de pluie
+  ! snow_fall: taux de neige
+  ! agesno: age de la neige
+  ! evap: taux d'evaporation
+  ! tsol: temperature du sol
+  ! qsol: humidite du sol
+  ! snow: couverture neigeuse
+
+  include "YOMCST.h"
+
+  REAL chasno ! epaisseur du sol: 0.15 m
+  PARAMETER (chasno=3.334E+05/(2.3867E+06*0.15))
+  REAL mx_eau_sol
+  PARAMETER (mx_eau_sol=150.0)
+
+  REAL dtime
+  REAL pctsrf(klon, nbsrf)
+  REAL snow(klon, nbsrf), tsol(klon, nbsrf), qsol(klon, nbsrf)
+  REAL snow_fall(klon), rain_fall(klon), evap(klon)
+  REAL runoff(klon), agesno(klon)
+
+  INTEGER i, is
+  REAL subli, fsno
+  ! -----------------------------------------------------------------------
+  DO i = 1, klon
+
+    runoff(i) = 0.0
+
+    is = is_ter
+    snow(i, is) = snow(i, is) + snow_fall(i)*dtime*pctsrf(i, is)
+    IF (pctsrf(i,is)>epsfra) THEN
+      subli = min(evap(i)*dtime, snow(i,is))
+      snow(i, is) = snow(i, is) - subli
+      fsno = min(max((tsol(i,is)-rtt)/chasno,0.0), snow(i,is))
+      snow(i, is) = snow(i, is) - fsno
+      tsol(i, is) = tsol(i, is) - fsno*chasno
+      qsol(i, is) = qsol(i, is) + (rain_fall(i)-evap(i))*dtime + subli + fsno
+      qsol(i, is) = max(qsol(i,is), 0.0)
+      runoff(i) = runoff(i) + max(qsol(i,is)-mx_eau_sol, 0.0)*pctsrf(i, is)
+      qsol(i, is) = min(qsol(i,is), mx_eau_sol)
+      ! cc         ELSE
+      ! cc            snow(i,is) = 0.0
+      ! cc            qsol(i,is) = 0.0
+      ! cc            tsol(i,is) = 0.0
+    END IF
+
+    is = is_lic
+    snow(i, is) = snow(i, is) + snow_fall(i)*dtime*pctsrf(i, is)
+    IF (pctsrf(i,is)>epsfra) THEN
+      subli = min(evap(i)*dtime, snow(i,is))
+      snow(i, is) = snow(i, is) - subli
+      fsno = min(max((tsol(i,is)-rtt)/chasno,0.0), snow(i,is))
+      snow(i, is) = snow(i, is) - fsno
+      tsol(i, is) = tsol(i, is) - fsno*chasno
+      qsol(i, is) = qsol(i, is) + (rain_fall(i)-evap(i))*dtime + subli + fsno
+      qsol(i, is) = max(qsol(i,is), 0.0)
+      runoff(i) = runoff(i) + max(qsol(i,is)-mx_eau_sol, 0.0)*pctsrf(i, is)
+      qsol(i, is) = min(qsol(i,is), mx_eau_sol)
+      ! je limite la temperature a RTT-1.8 (il faudrait aussi prendre l'eau
+      ! de
+      ! la fonte) (Laurent Li, le 14mars98):
+      ! IM cf GK   tsol(i,is) = MIN(tsol(i,is),RTT-1.8)
+      ! IM cf GK : la glace fond a 0C, non pas a -1.8
+      tsol(i, is) = min(tsol(i,is), rtt)
+
+      ! cc         ELSE
+      ! cc            snow(i,is) = 0.0
+      ! cc            qsol(i,is) = 0.0
+      ! cc            tsol(i,is) = 0.0
+    END IF
+
+    is = is_sic
+    qsol(i, is) = 0.0
+    snow(i, is) = snow(i, is) + snow_fall(i)*dtime*pctsrf(i, is)
+    IF (pctsrf(i,is)>epsfra) THEN
+      subli = min(evap(i)*dtime, snow(i,is))
+      snow(i, is) = snow(i, is) - subli
+      fsno = min(max((tsol(i,is)-rtt)/chasno,0.0), snow(i,is))
+      snow(i, is) = snow(i, is) - fsno
+      tsol(i, is) = tsol(i, is) - fsno*chasno
+      ! je limite la temperature a RTT-1.8 (il faudrait aussi prendre l'eau
+      ! de
+      ! la fonte) (Laurent Li, le 14mars98):
+      ! IM cf GK   tsol(i,is) = MIN(tsol(i,is),RTT-1.8)
+      ! IM cf GK : la glace fond a 0C, non pas a -1.8
+      tsol(i, is) = min(tsol(i,is), rtt)
+
+      ! cc         ELSE
+      ! cc            snow(i,is) = 0.0
+      ! cc            tsol(i,is) = 0.0
+    END IF
+
+    agesno(i) = (agesno(i)+(1.-agesno(i)/50.)*dtime/86400.)* &
+      exp(-1.*max(0.0,snow_fall(i))*dtime/0.3)
+    agesno(i) = max(agesno(i), 0.0)
+
+  END DO
+
+  RETURN
+END SUBROUTINE hydrol
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/icefrac_lsc_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/icefrac_lsc_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/icefrac_lsc_mod.F90	(revision 3330)
@@ -0,0 +1,55 @@
+!
+! $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 5/16)
+  
+  USE print_control_mod, ONLY: lunout, prt_level
+  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
+     IF (iflag_t_glace.EQ.1) THEN
+       ! Transition to ice close to surface for T<Tmax
+       ! w=1 at the surface and 0 for sig < sig0
+       www=(max(sig(ip)-sig0,0.))/(1.-sig0) 
+     ELSEIF (iflag_t_glace.GE.2) THEN
+       ! No convertion to ice close to surface
+       www = 0.
+     ENDIF
+     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/IPSLCM5A2.1_ISO/libf/phylmd/indice_sol_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/indice_sol_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/indice_sol_mod.F90	(revision 3330)
@@ -0,0 +1,12 @@
+      MODULE indice_sol_mod
+            INTEGER, PARAMETER :: nbsrf = 4 ! nombre de sous-fractions pour une maille
+            INTEGER, PARAMETER :: is_ter=1, is_lic=2, is_oce = 3, is_sic=4
+                              ! terre ! ocean ! glacier continental ! glace de mer
+
+            INTEGER, PARAMETER :: is_ave=nbsrf+1 ! valeur moyenne sur l'ensemble des surfaces
+            REAL, PARAMETER :: epsfra=1.0E-05
+
+            CHARACTER(len=3), DIMENSION(nbsrf), PARAMETER :: clnsurf = (/'ter', 'lic', 'oce', 'sic'/)
+
+      END MODULE indice_sol_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/infotrac_phy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/infotrac_phy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/infotrac_phy.F90	(revision 3330)
@@ -0,0 +1,209 @@
+
+! $Id: $
+
+MODULE infotrac_phy
+
+! Infotrac for physics; for now contains the same information as infotrac for
+! the dynamics (could be further cleaned) and is initialized using values
+! provided by the dynamics
+
+! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
+  INTEGER, SAVE :: nqtot
+!$OMP THREADPRIVATE(nqtot)
+
+!CR: on ajoute le nombre de traceurs de l eau
+  INTEGER, SAVE :: nqo
+!$OMP THREADPRIVATE(nqo)
+
+! nbtr : number of tracers not including higher order of moment or water vapor or liquid
+!        number of tracers used in the physics
+  INTEGER, SAVE :: nbtr
+!$OMP THREADPRIVATE(nbtr)
+
+! CRisi: nb traceurs pères= directement advectés par l'air
+  INTEGER, SAVE :: nqperes
+
+! Name variables
+  CHARACTER(len=20), ALLOCATABLE, DIMENSION(:), SAVE :: tname ! tracer short name for restart and diagnostics
+  CHARACTER(len=23), ALLOCATABLE, DIMENSION(:), SAVE :: ttext ! tracer long name for diagnostics
+!$OMP THREADPRIVATE(tname,ttext)
+
+!! iadv  : index of trasport schema for each tracer
+!  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iadv
+
+! niadv : vector keeping the coorspondance between all tracers(nqtot) treated in the 
+!         dynamic part of the code and the tracers (nbtr+2) used in the physics part of the code. 
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: niadv ! equivalent dyn / physique
+!$OMP THREADPRIVATE(niadv)
+
+! CRisi: tableaux de fils
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: nqfils
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: nqdesc ! nombres de fils + nombre de tous les petits fils sur toutes les générations
+  INTEGER, SAVE :: nqdesc_tot
+  INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE    :: iqfils
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iqpere
+!$OMP THREADPRIVATE(nqfils,nqdesc,nqdesc_tot,iqfils,iqpers)
+
+! conv_flg(it)=0 : convection desactivated for tracer number it 
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: conv_flg
+!$OMP THREADPRIVATE(conv_flg)
+
+! pbl_flg(it)=0  : boundary layer diffusion desactivaded for tracer number it 
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE  :: pbl_flg
+!$OMP THREADPRIVATE(pbl_flg)
+
+  CHARACTER(len=4),SAVE :: type_trac
+!$OMP THREADPRIVATE(type_trac)
+  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE, SAVE :: solsym
+!$OMP THREADPRIVATE(solsym)
+   
+    ! CRisi: cas particulier des isotopes
+    LOGICAL,SAVE :: ok_isotopes,ok_iso_verif,ok_isotrac,ok_init_iso
+!$OMP THREADPRIVATE(ok_isotopes,ok_iso_verif,ok_isotrac,ok_init_iso)
+    INTEGER :: niso_possibles   
+    PARAMETER ( niso_possibles=5)
+    real, DIMENSION (niso_possibles),SAVE :: tnat,alpha_ideal
+!$OMP THREADPRIVATE(tnat,alpha_ideal)
+    LOGICAL, DIMENSION(niso_possibles),SAVE ::  use_iso
+!$OMP THREADPRIVATE(use_iso)
+    INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE ::  iqiso ! donne indice iq en fn de (ixt,phase) 
+!$OMP THREADPRIVATE(iqiso)
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  iso_num ! donne numéro iso entre 1 et niso_possibles en fn de nqtot
+!$OMP THREADPRIVATE(iso_num)
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  iso_indnum ! donne numéro iso entre 1 et niso effectif en fn de nqtot
+!$OMP THREADPRIVATE(iso_indnum)
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  zone_num ! donne numéro de la zone de tracage en fn de nqtot
+!$OMP THREADPRIVATE(zone_num)
+    INTEGER, ALLOCATABLE, DIMENSION(:), SAVE ::  phase_num ! donne numéro de la zone de tracage en fn de nqtot
+!$OMP THREADPRIVATE(phase_num)
+    INTEGER, DIMENSION(niso_possibles), SAVE :: indnum_fn_num ! donne indice entre entre 1 et niso en fonction du numéro d isotope entre 1 et niso_possibles
+!$OMP THREADPRIVATE(indnum_fn_num)
+    INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE ::  index_trac ! numéro ixt en fn izone, indnum entre 1 et niso
+!$OMP THREADPRIVATE(index_trac)
+    INTEGER,SAVE :: niso,ntraceurs_zone,ntraciso
+!$OMP THREADPRIVATE(niso,ntraceurs_zone,ntraciso)
+ 
+CONTAINS
+
+  SUBROUTINE init_infotrac_phy(nqtot_,nqo_,nbtr_,tname_,ttext_,type_trac_,&
+                               niadv_,conv_flg_,pbl_flg_,solsym_,&
+                               nqfils_,nqdesc_,nqdesc_tot_,iqfils_,iqpere_,&
+                               ok_isotopes_,ok_iso_verif_,ok_isotrac_,&
+                               ok_init_iso_,niso_possibles_,tnat_,&
+                               alpha_ideal_,use_iso_,iqiso_,iso_num_,&
+                               iso_indnum_,zone_num_,phase_num_,&
+                               indnum_fn_num_,index_trac_,&
+                               niso_,ntraceurs_zone_,ntraciso_)
+  ! transfer information on tracers from dynamics to physics
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: nqtot_
+    INTEGER,INTENT(IN) :: nqo_
+    INTEGER,INTENT(IN) :: nbtr_
+    CHARACTER(len=20),INTENT(IN) :: tname_(nqtot_) ! tracer short name for restart and diagnostics
+    CHARACTER(len=23),INTENT(IN) :: ttext_(nqtot_) ! tracer long name for diagnostics
+    CHARACTER(len=4),INTENT(IN) :: type_trac_
+    INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique
+    INTEGER,INTENT(IN) :: conv_flg_(nbtr_)
+    INTEGER,INTENT(IN) :: pbl_flg_(nbtr_)
+    CHARACTER(len=8),INTENT(IN) :: solsym_(nbtr_)
+    ! Isotopes:
+    INTEGER,INTENT(IN) :: nqfils_(nqtot_)
+    INTEGER,INTENT(IN) :: nqdesc_(nqtot_)
+    INTEGER,INTENT(IN) :: nqdesc_tot_
+    INTEGER,INTENT(IN) :: iqfils_(nqtot_,nqtot_)
+    INTEGER,INTENT(IN) :: iqpere_(nqtot_)
+    LOGICAL,INTENT(IN) :: ok_isotopes_
+    LOGICAL,INTENT(IN) :: ok_iso_verif_
+    LOGICAL,INTENT(IN) :: ok_isotrac_
+    LOGICAL,INTENT(IN) :: ok_init_iso_
+    INTEGER,INTENT(IN) :: niso_possibles_
+    REAL,INTENT(IN) :: tnat_(niso_possibles_)
+    REAL,INTENT(IN) :: alpha_ideal_(niso_possibles_)
+    LOGICAL,INTENT(IN) :: use_iso_(niso_possibles_)
+    INTEGER,INTENT(IN) :: iqiso_(ntraciso_,nqo_)
+    INTEGER,INTENT(IN) :: iso_num_(nqtot_)
+    INTEGER,INTENT(IN) :: iso_indnum_(nqtot_)
+    INTEGER,INTENT(IN) :: zone_num_(nqtot_)
+    INTEGER,INTENT(IN) :: phase_num_(nqtot_)
+    INTEGER,INTENT(IN) :: indnum_fn_num_(niso_possibles_)
+    INTEGER,INTENT(IN) :: index_trac_(ntraceurs_zone_,niso_)
+    INTEGER,INTENT(IN) :: niso_
+    INTEGER,INTENT(IN) :: ntraceurs_zone_
+    INTEGER,INTENT(IN) :: ntraciso_
+
+    CHARACTER(LEN=30) :: modname="init_infotrac_phy"
+
+    nqtot=nqtot_
+    nqo=nqo_
+    nbtr=nbtr_
+    ALLOCATE(tname(nqtot))
+    tname(:) = tname_(:)
+    ALLOCATE(ttext(nqtot))
+    ttext(:) = ttext_(:)
+    type_trac = type_trac_
+    ALLOCATE(niadv(nqtot))
+    niadv(:)=niadv_(:)
+    ALLOCATE(conv_flg(nbtr))
+    conv_flg(:)=conv_flg_(:)
+    ALLOCATE(pbl_flg(nbtr))
+    pbl_flg(:)=pbl_flg_(:)
+    ALLOCATE(solsym(nbtr))
+    solsym(:)=solsym_(:)
+  
+    IF(prt_level.ge.1) THEN
+      write(lunout,*) TRIM(modname)//": nqtot,nqo,nbtr",nqtot,nqo,nbtr
+    ENDIF
+    
+    ! Isotopes:
+    
+    ! First check that the "niso_possibles" has the correct value
+    IF (niso_possibles.ne.niso_possibles_) THEN
+      CALL abort_physic(modname,&
+           "wrong value for parameter niso_possibles in infotrac_phy",1)
+    ENDIF
+    
+    ok_isotopes=ok_isotopes_
+    ok_iso_verif=ok_iso_verif_
+    ok_isotrac=ok_isotrac_
+    ok_init_iso=ok_init_iso_
+    
+    niso=niso_
+    ntraceurs_zone=ntraceurs_zone_
+    ntraciso=ntraciso_
+    
+    IF (ok_isotopes) THEN
+      ALLOCATE(nqfils(nqtot))
+      nqfils(:)=nqfils_(:)
+      ALLOCATE(nqdesc(nqtot))
+      nqdesc(:)=nqdesc_(:)
+      nqdesc_tot=nqdesc_tot_
+      ALLOCATE(iqfils(nqtot,nqtot))
+      iqfils(:,:)=iqfils_(:,:)
+      ALLOCATE(iqpere(nqtot))
+      iqpere(:)=iqpere_(:)
+    
+      tnat(:)=tnat_(:)
+      alpha_ideal(:)=alpha_ideal_(:)
+      use_iso(:)=use_iso_(:)
+    
+      ALLOCATE(iqiso(ntraciso,nqo))
+      iqiso(:,:)=iqiso_(:,:)
+      ALLOCATE(iso_num(nqtot))
+      iso_num(:)=iso_num_(:)
+      ALLOCATE(iso_indnum(nqtot))
+      iso_indnum(:)=iso_indnum_(:)
+      ALLOCATE(zone_num(nqtot))
+      zone_num(:)=zone_num_(:)
+      ALLOCATE(phase_num(nqtot))
+      phase_num(:)=phase_num_(:)
+      
+      indnum_fn_num(:)=indnum_fn_num_(:)
+      
+      ALLOCATE(index_trac(ntraceurs_zone,niso))
+      index_trac(:,:)=index_trac_(:,:)
+    ENDIF ! of IF(ok_isotopes)
+  
+  END SUBROUTINE init_infotrac_phy
+
+END MODULE infotrac_phy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_bilKP_ave.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_bilKP_ave.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_bilKP_ave.h	(revision 3330)
@@ -0,0 +1,259 @@
+c
+c $Id$
+c
+      IF (ok_journe) THEN
+c
+         zsto = dtime
+         zout = ecrit_day
+         typeval=tave
+c
+         idayref = day_ref
+         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+c
+cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
+cym         DO i = 1, iim
+cym            zx_lon(i,1) = rlon(i+1)
+cym            zx_lon(i,jjmp1) = rlon(i+1)
+cym         ENDDO
+         DO ll=1,klev
+            znivsig(ll)=REAL(ll)
+         ENDDO
+cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
+cym         write(*,*)'zx_lon = ',zx_lon(:,1)
+cym         write(*,*)'zx_lat = ',zx_lat(1,:)
+cym         CALL histbeg("histbilKP_ave", iim,zx_lon(:,1), jjmp1,
+cym     .                zx_lat(1,:),
+cym     .                1,iim,1,jjmp1, itau_phy, zjulian, dtime,
+cym     .                nhori, nid_bilKPave)
+         CALL histbeg_phy("histbilKP_ave", itau_phy, zjulian, dtime,
+     .                nhori, nid_bilKPave)
+
+         write(*,*)'Journee ', itau_phy, zjulian
+         CALL histvert(nid_bilKPave, "presnivs",
+     .                "Vertical levels","mb",
+     .                 klev, presnivs/100., nvert)
+c
+c
+c Champs 3D:
+c
+         CALL histdef(nid_bilKPave,"ue",
+     .   "Zonal energy transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"ve",
+     .   "Merid energy transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"uq",
+     .   "Zonal humidity transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"vq",
+     .   "Merid humidity transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+c Champs 3D:
+c
+         CALL histdef(nid_bilKPave,"temp",
+     .   "Air temperature","K",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"ovap",
+     .   "Specific humidity","Kg/Kg",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"geop",
+     .   "Geopotential height","m",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"vitu",
+     .   "Zonal wind","m/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"vitv",
+     .   "Meridional wind","m/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "vitw", 
+     .   "Vertical wind", "m/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "pres", 
+     .   "Inter-Layer Air pressure",
+     .                "Pa",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "play", 
+     .   "Mean-Layer Air pressure",
+     .                "Pa",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "oliq", 
+     .   "Liquid water content", 
+     .                "kg/kg",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dtdyn", 
+     .   "Dynamics dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dqdyn", 
+     .   "Dynamics dQ", "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dtcon", 
+     .   "Convection dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "ducon", 
+     .   "Convection du", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dvcon", 
+     .   "Convection dv", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"dqcon",
+     .   "Convection dQ","Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dtlsc", 
+     .   "Condensation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"dqlsc",
+     .   "Condensation dQ","Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"dtvdf",
+     .   "Boundary-layer dT","K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dqvdf", 
+     .   "Boundary-layer dQ", 
+     .               "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"dtajs",
+     .   "Ajustement sec dT","K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dqajs",
+     .   "Ajustement sec dQ", 
+     .               "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dteva", 
+     .   "Reevaporation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"dqeva",
+     .   "Reevaporation dQ",
+     .                "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+
+c
+         CALL histdef(nid_bilKPave, "dtswr", 
+     .   "SW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dtsw0", 
+     .   "SW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dtlwr", 
+     .   "LW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dtlw0", 
+     .   "LW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"duvdf",
+     .   "Boundary-layer dU","m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave,"dvvdf",
+     .   "Boundary-layer dV","m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         IF (ok_orodr) THEN
+         IF (ok_orolf) THEN
+         CALL histdef(nid_bilKPave, "duoli",
+     .   "Orography dU", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPave, "dvoli", 
+     .   "Orography dV", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         ENDIF
+         ENDIF
+C
+         CALL histdef(nid_bilKPave, "duphy",
+     .   "Physiq dU","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPave, "dvphy",
+     .   "Physiq dV","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPave, "dtphy",
+     .   "Physiq dT","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPave, "dqphy",
+     .   "Physiq dQ","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPave, "dqlphy",
+     .   "Physiq dQl","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+C
+         CALL histend(nid_bilKPave)
+c
+         ndex2d = 0
+         ndex3d = 0
+c
+      ENDIF ! fin de test sur ok_journe
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_bilKP_ins.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_bilKP_ins.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_bilKP_ins.h	(revision 3330)
@@ -0,0 +1,326 @@
+c
+c $Id$
+c
+      IF (ok_journe) THEN
+c
+         zsto = dtime
+         zout = dtime
+         typeval=tinst
+c
+         idayref = day_ref
+         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+c
+cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
+cym         DO i = 1, iim
+cym            zx_lon(i,1) = rlon(i+1)
+cym            zx_lon(i,jjmp1) = rlon(i+1)
+cym         ENDDO
+         DO ll=1,klev
+            znivsig(ll)=REAL(ll)
+         ENDDO
+cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
+cym         write(*,*)'zx_lon = ',zx_lon(:,1)
+cym         write(*,*)'zx_lat = ',zx_lat(1,:)
+c
+cIM 280405 BEG
+c
+cIM cf. AM 081204 BEG region
+          imin_ins=1
+          imax_ins=iim
+          jmin_ins=1
+          jmax_ins=jjmp1
+cym          do i=1,iim-1
+cym             if(zx_lon(i,1).lt.lonmin_ins) imin_ins=i
+cym             if(zx_lon(i,1).le.lonmax_ins) imax_ins=i+1
+cym          enddo
+cym          do j=1,jjmp1
+cym             if(zx_lat(1,j).ge.latmin_ins) jmax_ins=j
+cym             if(zx_lat(1,j).gt.latmax_ins) jmin_ins=j
+cym          enddo
+c
+          print*,'On stoke le fichier bilKP instantanne sur ',
+     s   imin_ins,imax_ins,jmin_ins,jmax_ins
+          print*,'On stoke le fichier bilKP instantanne sur ',
+     s   zx_lon(imin_ins,1),zx_lon(imax_ins,1),
+     s   zx_lat(1,jmin_ins),zx_lat(1,jmax_ins)
+cIM cf. AM 081204 END region
+c
+cIM 280405 END
+c
+cym         IF(1.EQ.0) THEN
+cym         CALL histbeg("histbilKP_ins", iim,zx_lon(:,1), jjmp1,
+cym     .                zx_lat(1,:),
+cym     .                1,iim,1,jjmp1, itau_phy, zjulian, dtime,
+cym     .                nhori, nid_bilKPins)
+         ENDIF
+c
+cIM 280405 BEG
+c
+cIM cf. AM 081204 BEG region
+cym         CALL histbeg("histbilKP_ins", iim,zx_lon(:,1), 
+cym     .                 jjmp1,zx_lat(1,:),
+cym     .                 imin_ins,imax_ins-imin_ins+1,
+cym     .                 jmin_ins,jmax_ins-jmin_ins+1,
+cym     .                 itau_phy, zjulian, dtime,
+cym     .                 nhori, nid_bilKPins)
+         CALL histbeg_phy("histbilKP_ins", itau_phy, zjulian, dtime,
+     .                 nhori, nid_bilKPins)
+cIM 081204 END
+c
+cIM 280405 END
+c
+         write(*,*)'Journee ', itau_phy, zjulian
+         CALL histvert(nid_bilKPins, "presnivs",
+     .                "Vertical levels","mb",
+     .                 klev, presnivs/100., nvert)
+c
+c Champs 3D:
+c
+         CALL histdef(nid_bilKPins,"ue",
+     .   "Zonal energy transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"ve",
+     .   "Merid energy transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"uq",
+     .   "Zonal humidity transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"vq",
+     .   "Merid humidity transport","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 
+     .                typeval, zsto,zout)
+c
+c Champs 3D:
+c
+         CALL histdef(nid_bilKPins, "temp",
+     .   "Air temperature", "K",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"ovap",
+     .   "Specific humidity","Kg/Kg",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"geop",
+     .   "Geopotential height", "m",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"vitu", 
+     .   "Zonal wind", "m/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"vitv", 
+     .   "Meridional wind", "m/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "vitw",
+     .   "Vertical wind", "m/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "pres",
+     .   "Inter-Layer Air pressure",
+     .                "Pa",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "play",
+     .   "Mean-Layer Air pressure",
+     .                "Pa",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "oliq",
+     .   "Liquid water content", 
+     .                "kg/kg",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dtdyn",
+     .   "Dynamics dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dqdyn",
+     .   "Dynamics dQ", "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dtcon",
+     .   "Convection dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "ducon",
+     .   "Convection du", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dvcon",
+     .   "Convection dv", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dqcon",
+     .   "Convection dQ","Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dtlsc",
+     .   "Condensation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dqlsc",
+     .   "Condensation dQ","Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dtvdf",
+     .   "Boundary-layer dT","K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dqvdf", 
+     .   "Boundary-layer dQ", 
+     .               "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dtajs",
+     .   "Ajustement sec dT","K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dqajs",
+     .   "Ajustement sec dQ", 
+     .               "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dteva",
+     .   "Reevaporation dT","K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dqeva",
+     .   "Reevaporation dQ",
+     .                "Kg/Kg/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+
+c
+         CALL histdef(nid_bilKPins, "dtswr", 
+     .   "SW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dtsw0", 
+     .   "SW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dtlwr", 
+     .   "LW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dtlw0", 
+     .   "LW radiation dT", "K/s",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"duvdf",
+     .   "Boundary-layer dU","m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins,"dvvdf",
+     .   "Boundary-layer dV","m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         IF (ok_orodr) THEN
+         IF (ok_orolf) THEN
+         CALL histdef(nid_bilKPins, "duoli", 
+     .   "Orography dU", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         CALL histdef(nid_bilKPins, "dvoli", 
+     .   "Orography dV", "m/s2",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+c
+         ENDIF
+         ENDIF
+C
+         CALL histdef(nid_bilKPins, "duphy",
+     .   "Physiq dU","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPins, "dvphy",
+     .   "Physiq dV","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPins, "dtphy",
+     .   "Physiq dT","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPins, "dqphy",
+     .   "Physiq dQ","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+C
+         CALL histdef(nid_bilKPins, "dqlphy",
+     .   "Physiq dQl","-",
+     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
+     .                typeval, zsto,zout)
+cIM 280405 BEG
+c
+c Champs 2D:
+c
+c u850, v850
+c        DO k=1, nlevSTD
+         DO k=1, 12
+c
+         IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
+         IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
+c
+         IF(bb2.EQ."850") THEN 
+c
+          CALL histdef(nid_bilKPins, "u"//bb2,
+     .                 "Zonal wind "//bb2//"mb","m/s",
+     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
+     .                typeval, zsto,zout)
+c
+          CALL histdef(nid_bilKPins, "v"//bb2,
+     .                 "Meridional wind "//bb2//"mb","m/s",
+     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
+     .                typeval, zsto,zout)
+c
+         ENDIF !(bb2.EQ."850") 
+c
+         ENDDO !k=1, 12
+c
+cIM 280405 END
+c
+         CALL histend(nid_bilKPins)
+c
+         ndex2d = 0
+         ndex3d = 0
+c
+      ENDIF ! fin de test sur ok_journe
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_coord_REGDYN.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_coord_REGDYN.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_coord_REGDYN.h	(revision 3330)
@@ -0,0 +1,81 @@
+c
+c $Header$
+c
+       nsrf=3
+       DO nreg=1, nbregdyn
+       DO i=1, klon
+
+c       IF (debut) THEN
+         IF(rlon(i).LT.0.) THEN
+           rlonPOS(i)=rlon(i)+360.
+         ELSE
+           rlonPOS(i)=rlon(i)  
+         ENDIF
+c       ENDIF
+
+        pct_ocean(i,nreg)=0
+
+c test si c'est 1 point d'ocean
+        IF(pctsrf(i,nsrf).EQ.1.) THEN
+
+         IF(nreg.EQ.1) THEN
+
+c TROP
+          IF(rlat(i).GE.-30.AND.rlat(i).LE.30.) THEN
+           pct_ocean(i,nreg)=1
+          ENDIF
+
+c PACIFIQUE NORD
+          ELSEIF(nreg.EQ.2) THEN
+           IF(rlat(i).GE.40.AND.rlat(i).LE.60.) THEN
+            IF(rlonPOS(i).GE.160..AND.rlonPOS(i).LE.235.) THEN 
+             pct_ocean(i,nreg)=1
+            ENDIF
+           ENDIF
+c CALIFORNIE ST-CU
+         ELSEIF(nreg.EQ.3) THEN
+          IF(rlonPOS(i).GE.220..AND.rlonPOS(i).LE.250.) THEN
+           IF(rlat(i).GE.15.AND.rlat(i).LE.35.) THEN
+            pct_ocean(i,nreg)=1
+           ENDIF
+          ENDIF
+c HAWAI
+        ELSEIF(nreg.EQ.4) THEN 
+         IF(rlonPOS(i).GE.180..AND.rlonPOS(i).LE.220.) THEN
+          IF(rlat(i).GE.15.AND.rlat(i).LE.35.) THEN
+           pct_ocean(i,nreg)=1
+          ENDIF
+         ENDIF
+c WARM POOL
+        ELSEIF(nreg.EQ.5) THEN 
+         IF(rlonPOS(i).GE.70..AND.rlonPOS(i).LE.150.) THEN
+          IF(rlat(i).GE.-5.AND.rlat(i).LE.20.) THEN
+           pct_ocean(i,nreg)=1
+          ENDIF
+         ENDIF
+        ENDIF !nbregdyn
+c TROP
+c        IF(rlat(i).GE.-30.AND.rlat(i).LE.30.) THEN
+c         pct_ocean(i)=.TRUE.
+c         WRITE(*,*) 'pct_ocean =',i, rlon(i), rlat(i)
+c          ENDIF !lon
+c         ENDIF !lat
+
+        ENDIF !pctsrf
+       ENDDO !klon
+       ENDDO !nbregdyn
+cIM 190504      ENDIF !ok_regdyn
+ 
+cIM somme de toutes les nhistoW BEG
+      IF (debut) THEN
+      DO nreg = 1, nbregdyn
+       DO k = 1, kmaxm1
+        DO l = 1, lmaxm1
+         DO iw = 1, iwmax
+          nhistoWt(k,l,iw,nreg)=0.
+         ENDDO !iw
+        ENDDO !l
+       ENDDO !k
+      ENDDO !nreg
+      ENDIF !(debut) THEN
+cIM 190504 BEG
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histREGDYN.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histREGDYN.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histREGDYN.h	(revision 3330)
@@ -0,0 +1,127 @@
+!
+! $Header$
+!
+
+      IF (ok_regdyn) THEN
+      
+        if (is_sequential) then
+c
+cIM      PRINT*, 'La frequence de sortie REGDYN est de ', ecrit_mth
+c
+         idayref = day_ref
+         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+c
+c axe vertical pour les differents niveaux des histogrammes
+      DO iw=1, iwmax
+        zx_o500(iw)=wmin+(iw-1./2.)*pas_w
+      ENDDO
+
+         CALL histbeg("histREGDYN", kmaxm1,zx_tau, lmaxm1,zx_pc,
+     .                 1,kmaxm1,1,lmaxm1, itau_phy, zjulian, dtime, 
+     .                 nhoriRD, nid_regdyn)
+
+         CALL histvert(nid_regdyn, "omeganivs", "Omega levels", 
+     .                 "mb/day",
+     .                 iwmax, zx_o500, komega)
+c
+c   pour les champs instantannes, il faut mettre la meme valeur pour
+c   zout et zsto.
+c   dtime est passe par ailleurs a histbeg
+c
+c        zout = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
+c        zsto = zout
+c        print*,'zout,zsto=',zout,zsto
+c
+c stockage a chaque pas de temps de la physique
+c
+         zstophy = dtime
+cIM 020904      zstophy = dtime * nbapp_isccp
+
+c ecriture mensuelle
+c
+         zout = dtime * ecrit_mth
+cIM 020904      
+c        zout = dtime * ecrit_day
+c        zout = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
+
+c
+c Champs 3D:
+c
+c TROP
+         CALL histdef(nid_regdyn, "hw1", "Tropics Histogram ", "%",
+     &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32, 
+     &                "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_regdyn, "nh1", "Nb of pixels Tropics Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+
+         CALL histdef(nid_regdyn, "nht1",
+     &                "Total Nb pixels Tropics Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+c PAN
+         CALL histdef(nid_regdyn, "hw2", "North Pacific Histogram", "%",
+     &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32, 
+     &                "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_regdyn, "nh2", "Nb of pixels North Pacific",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+
+         CALL histdef(nid_regdyn, "nht2",
+     &                "Total Nb pixels North Pacific Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c CAL
+         CALL histdef(nid_regdyn, "hw3", "California Histogram", "%",
+     &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32, 
+     &                "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_regdyn, "nh3", 
+     &                "Nb of pixels California Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+
+         CALL histdef(nid_regdyn, "nht3",
+     &                "Total Nb pixels California Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c HAW
+         CALL histdef(nid_regdyn, "hw4", "Hawai Histogram", "%",
+     &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32, 
+     &                "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_regdyn, "nh4", "Nb of pixels Hawai Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+
+         CALL histdef(nid_regdyn, "nht4",
+     &                "Total Nb pixels Hawai Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c WAP
+         CALL histdef(nid_regdyn, "hw5", "Warm Pool Histogram", "%",
+     &                kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega, 32, 
+     &                "ave(X)", zstophy,zout)
+
+         CALL histdef(nid_regdyn, "nh5", "Nb of pixels Warm Pool Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+
+         CALL histdef(nid_regdyn, "nht5",
+     &                "Total Nb pixels Warm Pool Histo",
+     &                "%",kmaxm1,lmaxm1,nhoriRD, iwmax,1,iwmax, komega,
+     &                32,"ave(X)", zstophy,zout)
+c
+         CALL histend(nid_regdyn)
+	 
+	 endif ! is_sequential
+
+      endif ! ok_regdyn
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histday_seri.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histday_seri.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histday_seri.h	(revision 3330)
@@ -0,0 +1,131 @@
+!
+! $Id$
+!
+!ym Ne fonctionnera pas en mode parallele
+      IF (is_sequential) THEN
+      
+      IF (type_run.EQ."AMIP") THEN
+!
+       zstophy = pdtphys
+       zout = ecrit_day
+!
+         idayref = day_ref
+         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+!
+         CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,longitude_deg,zx_lon)
+         DO i = 1, nbp_lon
+            zx_lon(i,1) = longitude_deg(i+1)
+            zx_lon(i,nbp_lat) = longitude_deg(i+1)
+         ENDDO
+         DO ll=1,klev
+            znivsig(ll)=REAL(ll)
+         ENDDO
+         CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,latitude_deg,zx_lat)
+!
+         imin_debut=1 
+         nbpti=1
+         jmin_debut=1 
+         nbptj=1
+!
+         CALL histbeg("histday_seri.nc",  &
+                       nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:), &
+                       imin_debut,nbpti,jmin_debut,nbptj, &
+                       itau_phy, zjulian, dtime, &
+                       nhori, nid_day_seri)
+!
+         CALL histvert(nid_day_seri, "presnivs",  &
+                      "Vertical levels","mb", &
+                       klev, presnivs/100., nvert)
+!
+         CALL histdef(nid_day_seri, "bilTOA",  &
+                      "Net radiation at model top", "W/m2", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32,  &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "bils",  &
+                      "Net downward energy flux at surface","W/m2", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32,  &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "ecin",  &
+                      "Total kinetic energy (per unit area)","J/m2", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+!IM 151004 BEG
+         IF(1.EQ.0) THEN
+!
+         CALL histdef(nid_day_seri, "momang",  &
+                     "Total relative angular momentum (per unit area)", &
+                     "kg/s", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "frictor",  &
+                     "Friction torque (per unit area)", "N/m", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "mountor",  &
+                     "Mountain torque (per unit area)", "N/m", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+         ENDIF !(1.EQ.0) THEN
+!
+         CALL histdef(nid_day_seri, "momang",  &
+                     "Axial angular momentum (per unit area)", &
+                     "kg/s", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "torsfc",  &
+              "Total surface torque (including mountain torque)", "N/m", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+!IM 151004 END        
+!
+         CALL histdef(nid_day_seri, "tamv",  &
+                      "Temperature (mass-weighted vert. ave)", "K", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "psol",  &
+                      "Surface pressure", "Pa", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32,  &
+                      "ave(X)", zstophy,zout)
+!
+         CALL histdef(nid_day_seri, "evap",  &
+                      "Evaporation and sublimation (per unit area)",  &
+                      "kg/(m2*s)", &
+                      nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32,  &
+                      "ave(X)", zstophy,zout)
+!
+!          call histdef(nid_day_seri, 
+!    .         "SnowFrac", 
+!    .         "Snow-covered area ", "%",  
+!    .         nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32,
+!    .         "ave(X)", zstophy,zout)
+!
+!        CALL histdef(nid_day_seri, "snow_depth", 
+!IM 080904  .                "Snow Depth (water equivalent)", "m",
+!IM 191104  .                "Snow Depth (water equivalent)", "kg/m2",
+!    .                "Snow Mass", "kg/m2",
+!    .                nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, 
+!    .               "ave(X)", zstophy,zout)
+!
+           call histdef(nid_day_seri,  &
+               "tsol_"//clnsurf(is_oce),  &
+               "SST over open (ice-free) ocean ", "K",   &
+               nbp_lon,nbp_lat,nhori, 1,1,1, -99, 32, &
+               "ave(X)", zstophy,zout)
+!
+!=================================================================
+!
+         CALL histend(nid_day_seri)
+!
+!=================================================================
+      ENDIF ! fin de test sur type_run.EQ.AMIP
+      
+      ENDIF ! is_sequential
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histrac.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histrac.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_histrac.h	(revision 3330)
@@ -0,0 +1,245 @@
+!
+! $Id $
+!
+  IF (ecrit_tra>0.) THEN
+!$OMP MASTER 
+!!!     CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
+! correction pour l heure initiale                               !jyg 
+!                                                               !jyg 
+      CALL ymds2ju(annee_ref, 1, day_ref, hour, zjulian)         !jyg
+
+     CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,nhori, nid_tra)
+     CALL histvert(nid_tra, "presnivs", "Vertical levels", "Pa",klev, presnivs, nvert,"down")
+
+     zsto = pdtphys
+     zout = ecrit_tra
+     CALL histdef(nid_tra, "phis", "Surface geop. height", "-",   &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,"once",  zsto,zout)
+     CALL histdef(nid_tra, "aire", "Grid area", "-",              &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,"once",  zsto,zout)
+     CALL histdef(nid_tra, "zmasse", "column density of air in cell", &
+          "kg m-2", iim, jj_nb, nhori, klev, 1, klev, nvert, 32, "ave(X)", &
+          zsto,zout)
+! RomP >>>
+     CALL histdef(nid_tra, "sourceBE", "source 7Be", &
+          "at/kgA/s", iim, jj_nb, nhori, klev, 1, klev, nvert, 32, "ave(X)", &
+          zsto,zout)
+! RomP <<<
+
+!TRACEURS
+!----------------
+     DO it = 1,nbtr
+!!        iiq = niadv(it+2)                                                         ! jyg
+        iiq = niadv(it+nqo)                                                         ! jyg
+
+! CONCENTRATIONS
+        CALL histdef(nid_tra, tname(iiq), ttext(iiq), "U/kga",    &
+             iim,jj_nb,nhori, klev,1,klev,nvert, 32,"ave(X)", zsto,zout)
+
+! TD LESSIVAGE
+        IF (lessivage .AND. aerosol(it)) THEN
+           CALL histdef(nid_tra, "fl"//tname(iiq),"Flux "//ttext(iiq), &
+                "at/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_ls_"//tname(iiq),      &
+                "tendance lessivage large scale"// ttext(iiq), "?",&
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_insc_"//tname(iiq),      &
+                "tendance lessivage large scale"// ttext(iiq), "?",&
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_bcscav_"//tname(iiq),      &
+                "tendance lessivage large scale"// ttext(iiq), "?",&
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_evls_"//tname(iiq),      &
+                "tendance lessivage large scale"// ttext(iiq), "?",&
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+                "ave(X)", zsto,zout)
+!  Tracer concentration in LS precipitation at surface
+           CALL histdef(nid_tra, "qpr_ls_"//tname(iiq),       &
+                "concentration in LS precip"// ttext(iiq), "at/kgw", &
+                iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+                "ave(X)", zsto,zout)     
+                 END IF
+
+! TD THERMIQUES
+        IF (iflag_thermals.gt.0) THEN
+           CALL histdef(nid_tra, "d_tr_th_"//tname(iiq),      &
+                "tendance thermique"// ttext(iiq), "?",       &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+                "ave(X)", zsto,zout)
+        ENDIF
+
+! TD CONVECTION
+        IF (iflag_con.GE.2) THEN
+           CALL histdef(nid_tra, "d_tr_cv_"//tname(iiq),   &
+                "tendance convection"// ttext(iiq), "?",   &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+        ENDIF
+
+! RomP >>>
+        IF (iflag_con.EQ.30) THEN
+           CALL histdef(nid_tra, "d_tr_cvMA_"//tname(iiq),   &
+                "tendance convection"// ttext(iiq), "?",&
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_trsp_"//tname(iiq),   &
+                "tendance transport "// ttext(iiq), "at/kga",   &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_sscav_"//tname(iiq),   &
+                "tendance lessivage flux satures "// ttext(iiq), "at/kga",   &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_sat_"//tname(iiq),   &
+                "tendance flux satures "// ttext(iiq), "at/kga",  &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "d_tr_uscav_"//tname(iiq),  &
+                "tendance flux insatures "// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "tr_pr_"//tname(iiq),  &
+                "concentration dans precip"// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "tr_aa_"//tname(iiq),  &
+                "concentration precip issu AA"// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "tr_mel_"//tname(iiq),  &
+                "concentration precip issu melange"// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "tr_di_"//tname(iiq),  &
+                "concentration dans descente insaturee"// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "tr_trspdi_"//tname(iiq),  &
+                "conc descente insaturee MA"// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "zmfd1a_"//tname(iiq),  &
+                "zmfd1a"// ttext(iiq), "_", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "zmfphi2_"//tname(iiq),  &
+                "zmfphi2"// ttext(iiq), "_", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+           CALL histdef(nid_tra, "zmfdam_"//tname(iiq),  &
+                "zmfdam"// ttext(iiq), "_", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,    &
+                "ave(X)", zsto,zout)
+          ENDIF
+! RomP <<<
+           CALL histdef(nid_tra, "dtrdyn_"//tname(iiq),  &
+                "td dyn tra"// ttext(iiq), "at/kga", &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,  &
+                "ave(X)", zsto,zout)
+! TD decroissance radioactive
+           CALL histdef(nid_tra, "d_tr_dec_"//tname(iiq),   &
+                "tendance decroi radio "// ttext(iiq), "",  &
+                iim,jj_nb,nhori, klev,1,klev,nvert, 32,  &
+                "ave(X)", zsto,zout)
+
+! TD COUCHE-LIMITE
+      IF (iflag_vdf_trac>=0) THEN
+        CALL histdef(nid_tra, "d_tr_cl_"//tname(iiq),      &
+             "tendance couche limite"// ttext(iiq), "?",   &
+             iim,jj_nb,nhori, klev,1,klev,nvert, 32,       &
+             "ave(X)", zsto,zout)
+!  Dry deposit (1st layer and surface)
+        CALL histdef(nid_tra, "d_tr_dry_"//tname(iiq),       &
+             "tendancy dry deposit"// ttext(iiq), "at/kga/step", &
+             iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+             "ave(X)", zsto,zout)     
+        CALL histdef(nid_tra, "flux_tr_dry_"//tname(iiq),       &
+             "dry deposit at surf (downward)"// ttext(iiq), "at/m2/step", &
+             iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+             "ave(X)", zsto,zout)     
+      ENDIF
+     ENDDO
+
+     CALL histdef(nid_tra, "Mint", "Mint","",         &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "inst(X)", zout,zout)
+     CALL histdef(nid_tra, "frac_impa", "frac_impa","",         &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "inst(X)", zout,zout)
+     CALL histdef(nid_tra, "frac_nucl", "frac_nucl","",         &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "inst(X)", zout,zout)
+!---------------   
+!
+! VENT (niveau 1)
+     CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",      &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)     
+     CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",      &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+
+! TEMPERATURE DU SOL
+     CALL histdef(nid_tra, "ftsol1", "temper sol", "-",    &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+     CALL histdef(nid_tra, "ftsol2", "temper sol", "-",    &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+     CALL histdef(nid_tra, "ftsol3", "temper sol", "-",    &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst",  zout,zout)
+     CALL histdef(nid_tra, "ftsol4", "temper sol", "-",    &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+
+! NATURE DU SOL
+     CALL histdef(nid_tra, "psrf1", "nature sol", "-",     &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+     CALL histdef(nid_tra, "psrf2", "nature sol", "-",     &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+     CALL histdef(nid_tra, "psrf3", "nature sol", "-",     &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 &
+          "inst(X)",  zout,zout)
+     CALL histdef(nid_tra, "psrf4", "nature sol", "-",     &
+          iim,jj_nb,nhori, 1,1,1, -99, 32,                 & 
+          "inst(X)",  zout,zout)
+! DIVERS
+     CALL histdef(nid_tra, "pplay", "pressure","-",        &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "inst(X)", zout,zout)
+     CALL histdef(nid_tra, "T", "temperature","K",         &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "inst(X)", zout,zout)
+     CALL histdef(nid_tra, "mfu", "flux u mont","-",       &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)
+     CALL histdef(nid_tra, "mfd", "flux u decen","-",      &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)
+     CALL histdef(nid_tra, "en_u", "flux u mont","-",      &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)
+     CALL histdef(nid_tra, "en_d", "flux u mont","-",      &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)
+     CALL histdef(nid_tra, "de_d", "flux u mont","-",      &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)
+     CALL histdef(nid_tra, "de_u", "flux u decen","-",     &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)
+     CALL histdef(nid_tra, "coefh", "turbulent coef","-",  &
+          iim,jj_nb,nhori, klev,1,klev,nvert, 32,          &
+          "ave(X)", zsto,zout)   
+     
+     CALL histend(nid_tra)
+!$OMP END MASTER
+  END IF ! ecrit_tra>0.
+  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_undefSTD.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_undefSTD.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_undefSTD.F90	(revision 3330)
@@ -0,0 +1,85 @@
+
+! $Id$
+
+
+SUBROUTINE ini_undefstd(itap, itapm1)
+  USE dimphy
+  USE phys_state_var_mod ! Variables sauvegardees de la physique
+  USE phys_cal_mod, ONLY: mth_len
+  IMPLICIT NONE
+  include "clesphys.h"
+
+  ! ====================================================================
+
+  ! I. Musat : 09.2004
+
+  ! Initialisation - a des frequences differentes :
+
+  ! 1) des variables moyennees sur la journee "day" ou sur le mois "mth"
+  ! calculees a partir des valeurs "instantannees" de la physique
+
+  ! 2) des variables moyennes mensuelles "NMC" calculees a partir des val.
+  ! toutes les 6 heures
+
+  ! nout=1 !var. journaliere "day" moyenne sur tous les pas de temps
+  ! ! de la physique
+  ! nout=2 !var. mensuelle "mth" moyennee sur tous les pas de temps
+  ! ! de la physique
+  ! nout=3 !var. mensuelle "NMC" moyennee toutes les 6heures
+
+  ! NB: mettre "inst(X)" dans le write_hist*NMC.h !
+  ! ====================================================================
+
+  ! ym #include "dimphy.h"
+  ! variables Input/Output
+  ! INTEGER nlevSTD, klevSTD, itap
+  INTEGER itap, itapm1
+  ! PARAMETER(klevSTD=17)
+  ! REAL dtime
+
+  ! variables locales
+  ! INTEGER i, k, nout, n
+  INTEGER i, k, n
+  ! PARAMETER(nout=3) !nout=1 day/nout=2 mth/nout=3 NMC
+  ! REAL freq_outNMC(nout)
+  REAL un_jour
+  PARAMETER (un_jour=86400.)
+
+  ! variables Output
+  ! REAL tnondef(klon,klevSTD,nout)
+  ! REAL tsumSTD(klon,klevSTD,nout)
+
+  DO n = 1, nout
+
+    ! initialisation variables en debut du mois, de la journee ou des 6h
+
+    IF (n==1 .AND. itap-itapm1==1 .OR. n>1 .AND. mod(itap,nint( &
+        freq_outnmc(n)/dtime))==1) THEN
+      ! print*,'ini_undefSTD n itap',n,itap
+      DO k = 1, nlevstd
+        DO i = 1, klon
+          tnondef(i, k, n) = 0.
+          tsumstd(i, k, n) = 0.
+          usumstd(i, k, n) = 0.
+          vsumstd(i, k, n) = 0.
+          wsumstd(i, k, n) = 0.
+          phisumstd(i, k, n) = 0.
+          qsumstd(i, k, n) = 0.
+          rhsumstd(i, k, n) = 0.
+          uvsumstd(i, k, n) = 0.
+          vqsumstd(i, k, n) = 0.
+          vtsumstd(i, k, n) = 0.
+          wqsumstd(i, k, n) = 0.
+          vphisumstd(i, k, n) = 0.
+          wtsumstd(i, k, n) = 0.
+          u2sumstd(i, k, n) = 0.
+          v2sumstd(i, k, n) = 0.
+          t2sumstd(i, k, n) = 0.
+          o3sumstd(i, k, n) = 0.
+          o3daysumstd(i, k, n) = 0.
+        END DO !i
+      END DO !k
+    END IF !
+  END DO !n
+  RETURN
+END SUBROUTINE ini_undefstd
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_wake.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_wake.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ini_wake.F90	(revision 3330)
@@ -0,0 +1,88 @@
+
+! $Id$
+
+SUBROUTINE ini_wake(wape, fip, it_wape_prescr, wape_prescr, fip_prescr, &
+    alp_bl_prescr, ale_bl_prescr)
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+  ! **************************************************************
+  ! *
+  ! INI_WAKE : variables d'initialisation de la poche    *
+  ! froide, necessaires au declenchement      *
+  ! de la convection.                         *
+  ! *
+  ! *
+  ! **************************************************************
+  ! Arguments
+  ! =========
+  ! Input
+  ! -----
+  ! wape           : valeur de l'energie potentielle de la poche (WAPE)
+  ! dans l'etat initial
+  ! fip            : valeur de la puissance incidente sur le front (FIP)
+  ! dans l'etat initial
+  ! Output
+  ! ------
+  ! it_wape_prescr : nombre de pas de temps pendant lesquels la WAPE
+  ! doit etre imposee.
+  ! wape_prescr    : valeur prescrite de la WAPE.
+  ! fip_prescr     : valeur prescrite de la FIP.
+  ! ale_bl_prescr  : valeur prescrite de la Ale de PBL.
+  ! alp_bl_prescr  : valeur prescrite de la Alp de PBL.
+
+  ! Variables internes
+  ! ==================
+  ! it = nbre de pas de temps lu
+  ! w  = WAPE lue
+  ! f  = FIP lue
+  ! alebl  = Ale de PBL lue
+  ! alpbl  = Alp de PBL lue
+
+  ! declarations
+  REAL wape, fip, wape_prescr, fip_prescr
+  INTEGER it_wape_prescr
+  REAL ale_bl_prescr
+  REAL alp_bl_prescr
+  REAL it
+  REAL w,f,alebl,alpbl
+
+  ! FH A mettre si besoin dans physiq.def
+  ! FH : voir avec JYG
+  it = 0.
+  w = 4.
+  f = 0.1
+  alebl = 4.
+  alpbl = 0.1
+
+  ! CR: on rajoute ale et alp de la PBL precrits
+  OPEN (99, FILE='ini_wake_param.data', FORM='formatted', STATUS='old', &
+    ERR=902)
+  READ (99, *) it
+  READ (99, *) w
+  READ (99, *) f
+  READ (99, *, END=901) alebl
+  READ (99, *, END=901) alpbl
+901 CLOSE (99)
+902 CONTINUE
+
+  WRITE (lunout, *) ' it,wape ', it, wape
+  it_wape_prescr = it
+  IF (w<0) THEN
+    wape_prescr = wape
+    fip_prescr = fip
+  ELSE
+    wape_prescr = w
+    fip_prescr = f
+  END IF
+
+  WRITE (lunout, *) ' alebl, alpbl ', alebl, alpbl
+  ale_bl_prescr = alebl
+  alp_bl_prescr = alpbl
+  PRINT *, 'Initialisation de la poche : WAPE, FIP imposees =', wape_prescr, &
+    fip_prescr
+  PRINT *, '                   pendant ', it_wape_prescr, ' steps'
+
+  PRINT *, 'Initialisation de la BL: ALP, ALE imposees =', alp_bl_prescr, &
+    ale_bl_prescr
+  RETURN
+END SUBROUTINE ini_wake
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/inifis_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/inifis_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/inifis_mod.F90	(revision 3330)
@@ -0,0 +1,80 @@
+! $Id$
+MODULE inifis_mod
+
+CONTAINS
+
+  SUBROUTINE inifis(punjours, prad, pg, pr, pcpp)
+  ! Initialize some physical constants and settings
+  USE print_control_mod, ONLY: init_print_control, lunout
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+  REAL,INTENT(IN) :: prad, pg, pr, pcpp, punjours
+
+  CHARACTER (LEN=20) :: modname = 'inifis'
+  CHARACTER (LEN=80) :: abort_message
+
+  ! Initialize flags lunout, prt_level, debug
+  CALL init_print_control
+
+  ! suphel => initialize some physical constants (orbital parameters,
+  !           geoid, gravity, thermodynamical constants, etc.) in the
+  !           physics
+  CALL suphel
+
+  ! check that physical constants set in 'suphel' are coherent
+  ! with values set in the dynamics:
+  IF (rday/=punjours) THEN
+    WRITE (lunout, *) 'inifis: length of day discrepancy!!!'
+    WRITE (lunout, *) '  in the dynamics punjours=', punjours
+    WRITE (lunout, *) '   but in the physics RDAY=', rday
+    IF (abs(rday-punjours)>0.01*punjours) THEN
+        ! stop here if the relative difference is more than 1%
+      abort_message = 'length of day discrepancy'
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+  END IF
+  IF (rg/=pg) THEN
+    WRITE (lunout, *) 'inifis: gravity discrepancy !!!'
+    WRITE (lunout, *) '     in the dynamics pg=', pg
+    WRITE (lunout, *) '  but in the physics RG=', rg
+    IF (abs(rg-pg)>0.01*pg) THEN
+        ! stop here if the relative difference is more than 1%
+      abort_message = 'gravity discrepancy'
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+  END IF
+  IF (ra/=prad) THEN
+    WRITE (lunout, *) 'inifis: planet radius discrepancy !!!'
+    WRITE (lunout, *) '   in the dynamics prad=', prad
+    WRITE (lunout, *) '  but in the physics RA=', ra
+    IF (abs(ra-prad)>0.01*prad) THEN
+        ! stop here if the relative difference is more than 1%
+      abort_message = 'planet radius discrepancy'
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+  END IF
+  IF (rd/=pr) THEN
+    WRITE (lunout, *) 'inifis: reduced gas constant discrepancy !!!'
+    WRITE (lunout, *) '     in the dynamics pr=', pr
+    WRITE (lunout, *) '  but in the physics RD=', rd
+    IF (abs(rd-pr)>0.01*pr) THEN
+        ! stop here if the relative difference is more than 1%
+      abort_message = 'reduced gas constant discrepancy'
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+  END IF
+  IF (rcpd/=pcpp) THEN
+    WRITE (lunout, *) 'inifis: specific heat discrepancy !!!'
+    WRITE (lunout, *) '     in the dynamics pcpp=', pcpp
+    WRITE (lunout, *) '  but in the physics RCPD=', rcpd
+    IF (abs(rcpd-pcpp)>0.01*pcpp) THEN
+        ! stop here if the relative difference is more than 1%
+      abort_message = 'specific heat discrepancy'
+      CALL abort_physic(modname, abort_message, 1)
+    END IF
+  END IF
+
+  END SUBROUTINE inifis
+  
+END MODULE inifis_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iniorbit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iniorbit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iniorbit.F90	(revision 3330)
@@ -0,0 +1,103 @@
+SUBROUTINE iniorbit(paphelie, pperiheli, pyear_day, pperi_day, pobliq)
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Auteur:
+  ! -------
+  ! Frederic Hourdin      22 Fevrier 1991
+
+  ! Objet:
+  ! ------
+  ! Initialisation du sous programme orbite qui calcule
+  ! a une date donnee de l'annee de duree year_day commencant
+  ! a l'equinoxe de printemps et dont le perihelie se situe
+  ! a la date peri_day, la distance au soleil et la declinaison.
+
+  ! Interface:
+  ! ----------
+  ! - Doit etre appele avant d'utiliser orbite.
+  ! - initialise une partie du common planete.h
+
+  ! Arguments:
+  ! ----------
+
+  ! Input:
+  ! ------
+  ! aphelie       \   aphelie et perihelie de l'orbite
+  ! periheli      /   en millions de kilometres.
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! Declarations:
+  ! -------------
+
+  include "planete.h"
+  include "YOMCST.h"
+
+  ! Arguments:
+  ! ----------
+
+  REAL paphelie, pperiheli, pyear_day, pperi_day, pobliq
+
+  ! Local:
+  ! ------
+
+  REAL zxref, zanom, zz, zx0, zdx, pi
+  INTEGER iter
+
+  ! -----------------------------------------------------------------------
+
+  pi = 2.*asin(1.)
+
+  aphelie = paphelie
+  periheli = pperiheli
+  year_day = pyear_day
+  obliquit = pobliq
+  peri_day = pperi_day
+
+  PRINT *, 'Perihelie en Mkm  ', periheli
+  PRINT *, 'Aphelie  en Mkm   ', aphelie
+  PRINT *, 'obliquite en degres  :', obliquit
+  PRINT *, 'Jours dans l annee : ', year_day
+  PRINT *, 'Date perihelie : ', peri_day
+  unitastr = 149.597870
+  e_elips = (aphelie-periheli)/(periheli+aphelie)
+  p_elips = 0.5*(periheli+aphelie)*(1-e_elips*e_elips)/unitastr
+
+  PRINT *, 'e_elips', e_elips
+  PRINT *, 'p_elips', p_elips
+
+  ! -----------------------------------------------------------------------
+  ! calcul de l'angle polaire et de la distance au soleil :
+  ! -------------------------------------------------------
+
+  ! calcul de l'zanomalie moyenne
+
+  zz = (year_day-pperi_day)/year_day
+  zanom = 2.*pi*(zz-nint(zz))
+  zxref = abs(zanom)
+  PRINT *, 'zanom  ', zanom
+
+  ! resolution de l'equation horaire  zx0 - e * sin (zx0) = zxref
+  ! methode de Newton
+
+  zx0 = zxref + r_ecc*sin(zxref)
+  DO iter = 1, 100
+    zdx = -(zx0-r_ecc*sin(zx0)-zxref)/(1.-r_ecc*cos(zx0))
+    IF (abs(zdx)<=(1.E-12)) GO TO 120
+    zx0 = zx0 + zdx
+  END DO
+120 CONTINUE
+  zx0 = zx0 + zdx
+  IF (zanom<0.) zx0 = -zx0
+  PRINT *, 'zx0   ', zx0
+
+  ! zteta est la longitude solaire
+
+  timeperi = 2.*atan(sqrt((1.+r_ecc)/(1.-r_ecc))*tan(zx0/2.))
+  PRINT *, 'longitude solaire du perihelie timeperi = ', timeperi
+
+  RETURN
+END SUBROUTINE iniorbit
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iniradia.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iniradia.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iniradia.F90	(revision 3330)
@@ -0,0 +1,38 @@
+SUBROUTINE iniradia(klon, klev, pres)
+
+  IMPLICIT NONE
+  ! ======================================================================
+
+  ! Auteur(s) MP Lefebvre        date: 20080827
+
+  ! Objet: initialise le rayonnement RRTM
+  ! ======================================================================
+  ! Arguments:
+
+  ! klon----input-I-nombre de points horizontaux
+  ! klev----input-I-nombre de couches verticales
+  ! pres----input-R-pression pour chaque inter-couche (en Pa)
+  ! ======================================================================
+
+  INTEGER klon
+  INTEGER klev
+  REAL pres(klev+1)
+
+  include "clesphys.h"
+
+  ! CALL suphel     ! initialiser constantes et parametres phys.
+  ! print*,'Physiq: apres suphel '
+#if CPP_RRTM
+  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          ! initialiser le rayonnement RRTM
+     PRINT *, 'iniradia: apres surayolmd '
+  endif
+#endif
+
+  RETURN
+END SUBROUTINE iniradia
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/init_be.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/init_be.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/init_be.F90	(revision 3330)
@@ -0,0 +1,565 @@
+!$Id $
+
+SUBROUTINE init_be(pctsrf,pplay,masktr,tautr,vdeptr,scavtr,srcbe)
+!!!SUBROUTINE init_be(pctsrf,masktr,tautr,vdeptr,scavtr,srcbe)
+
+  USE dimphy
+  USE infotrac_phy, ONLY : nbtr
+  USE indice_sol_mod
+  USE geometry_mod, ONLY : longitude, latitude
+    
+  IMPLICIT NONE 
+!=====================================================================
+! Objet : prescription d'une source de Beryllium 7 
+!         pour 19 niveaux verticaux
+!        (d'apres le diagramme de Lal and Peters, 1967)
+!
+!
+! written by : O. Coindreau (CEA/LDG) 05/2005
+! last modified by : A. Jamelot (LMD/CEA)  04/03/2009 
+!=====================================================================
+
+  INCLUDE "YOMCST.h"
+  INCLUDE "YOECUMF.h" 
+
+!
+! Input Arguments
+!
+  REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf !Pourcentage de sol (f(nature du sol))
+  REAL,DIMENSION(klon,klev), INTENT(IN) :: pplay  ! Pressions en milieu de couches
+!
+! Output Arguments
+!
+  REAL,DIMENSION(klon),INTENT(OUT)      :: masktr ! Masque de l'echange avec la surface (possible => 1 )
+  REAL,INTENT(OUT)                      :: tautr  ! Constante de decroissance radioactive
+  REAL,INTENT(OUT)                      :: vdeptr ! Vitesse de depot sec dans la couche Brownienne
+  REAL,INTENT(OUT)                      :: scavtr ! Coefficient de lessivage
+  REAL,DIMENSION(klon,klev),INTENT(OUT) :: srcbe  ! source volumique de 7Be      
+!
+! Local Variables
+!
+!!!  INTEGER              :: iref      ! numero d'un point oceanique donnant la grille de pression de reference
+  REAL,DIMENSION(klon) :: rlatgeo   ! latitudes geomagnetiques de la grille
+  REAL                 :: glt       ! latitude du pole geomagnetique
+  REAL                 :: glg       ! longitude du pole geomagnetique
+  REAL                 :: latgeo,qcos
+  INTEGER              :: k,i, kref, k2
+  INTEGER              :: nref
+  PARAMETER (nref=39)
+  REAL,DIMENSION(nref), SAVE :: pref      ! grille de pression de reference (bas des couches)
+  DATA pref  /   &
+      101249.99999999994, 100387.17261011522, 99447.35334189111,  98357.43412194174,   &
+      97046.47707771382,  95447.1116450629,   93496.85259615642,  91139.46548240296,   &
+      88326.55568744117,  85019.60710580258,  81192.7404556645,   76836.48366938648,   &
+      71962.81275769137,  66611.56331321516,  60857.914829743604, 54819.84484441629,   &
+      48663.06257114699,  42598.95465845692,  36869.104365898806, 31709.927925633147,  &
+      27296.757208636915, 23682.282929080895, 20766.025578936627, 18336.105961406534,  &
+      16178.04816768436,  14168.286905562818, 12275.719926478887, 10507.798835225762,  &
+      8876.585404909414,  7391.283929569539,  6057.514475749798,  4877.165909157005,   &
+      3848.34936408203,   2965.444753540027,  2219.2391544640013, 1597.15366044666,    &
+      1083.5531161631498, 660.1311067852655,  306.36072267002805 / 
+!$OMP THREADPRIVATE(pref)
+
+  WRITE(*,*)'PASSAGE init_be ...'
+
+! la source est maintenant définie independemment de la valeur de klev.
+!!! Source actuellement definie pour klev = 19 et klev >= 39
+!!  IF (klev /= 19 .AND. klev<39) CALL abort_physic("init_be","Source du be7 necessite klev=19 ou klev>=39",1)
+!!!
+! Definition des constantes
+! -------------------------
+  tautr = 6645000.
+  vdeptr = 1.E-3 
+  scavtr = 0.5 
+!!!!!jyg le 13/03/2013; puis 20/03/2013 : pref est maintenant une table.
+!!!
+!!!   Recherche d'un point rlat=0., rlon=180.
+!!      iref=(klon+1)/2
+!!      DO i = 1,klon
+!!        IF (abs(rlatd(i)) .LT. 0.15 .AND. cos(rlond(i)) .LT. -0.85) iref=i
+!!      ENDDO
+!!!
+!!!   Grille de pression de reference (= approx de sommets de couches)
+!!      pref(1) = pplay(iref,1)+0.5*(pplay(iref,1)-pplay(iref,2))
+!!      DO k = 2,klev
+!!        pref(k) = 0.5*(pplay(iref,k-1)+pplay(iref,k))
+!!      ENDDO
+!!!
+
+  WRITE(*,*) '-------------- SOURCE DE BERYLLIUM ------------------- '
+  WRITE(*,*)'Decroissance (s): ', tautr
+  WRITE(*,*)'Vitesse de depot sec: ',vdeptr
+  WRITE(*,*)'Facteur de lessivage: ',scavtr
+
+  DO i = 1,klon
+     masktr(i) = 0.
+     IF ( NINT(pctsrf(i,1)) .EQ. 1 ) masktr(i) = 1.
+  END DO
+
+! Premiers niveaux: source nulle
+! ------------------------------
+  DO k = 1,6
+     DO i = 1,klon
+        srcbe(i,k) = 0.
+     END DO
+  END DO
+!
+! Pour les autres niveaux:
+! 1-passer des coordonnees geographiques a la latitude geomagnetique
+! 2-prescrire la source de Be (en 10exp5 at/g/s) dans ce repere
+! 3-mettre la source de Be ds la bonne unite (en at/kgA/s)
+!
+  glt =  78.5*rpi/180.
+  glg = -69.0*rpi/180.
+
+  DO i = 1,klon
+     qcos=sin(glt)*sin(latitude(i))
+!!jyg
+!!     qcos=qcos+cos(glt)*cos(latitude(i))*cos(longitude(i)+glg)
+     qcos=qcos+cos(glt)*cos(latitude(i))*cos(longitude(i)-glg)
+!!jyg end
+     IF ( qcos .LT. -1.) qcos = -1.
+     IF ( qcos .GT. 1.)  qcos = 1.
+     rlatgeo(i)=rpi/2.-acos(qcos)
+  ENDDO
+
+!!!===========================
+!!!  Cas 19 niveaux verticaux
+!!!===========================
+!!  IF (klev.eq.19) then
+!!     DO k = 1,klev
+!!        DO i = 1,klon
+!!!!!jyg le 13/03/2013
+!!!
+!!! k est le niveau dans la grille locale
+!!! Determination du niveau kref dans la grille de refernce
+!!      kref = 1
+!!      DO k2 = 1,klev
+!!        IF (pref(k2) .GT. pplay(i,k)) kref=k2
+!!      ENDDO
+!!!!!
+!!           latgeo=(180./rpi)*abs(rlatgeo(i))
+!!           IF ( kref .EQ. 1 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=0.1
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.09
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.07
+!!           END IF
+!!           IF ( kref .EQ. 2 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=0.12
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.1
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.09
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.07
+!!           END IF
+!!           IF ( kref .EQ. 3 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=0.14
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.12
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.1
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.09
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.07
+!!           END IF
+!!           IF ( kref .EQ. 4 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=0.175
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.16
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.14
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.12
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.1
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.09
+!!           END IF
+!!           IF ( kref .EQ. 5 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=0.28
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.26
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.23
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.175
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.14
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.12
+!!           END IF
+!!           IF ( kref .EQ. 6 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=0.56
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.49
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.42
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.28
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.26
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.245
+!!           END IF
+!!           IF ( kref .EQ. 7 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=1.05
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.875
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.7
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.52
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.44
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.385
+!!           END IF
+!!           IF ( kref .EQ. 8 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=2.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=1.8
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=1.5
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=1.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.8
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.75
+!!           END IF
+!!           IF ( kref .EQ. 9 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=4.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=3.5
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=3.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=2.5
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=1.8
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=1.4
+!!           END IF
+!!           IF ( kref .EQ. 10 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=8.5
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=8.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=7.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=4.5
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=3.5
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=3.
+!!           END IF
+!!           IF ( kref .EQ. 11 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=17.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=15.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=11.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=8.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=5.
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=4.
+!!           END IF
+!!           IF ( kref .EQ. 12 ) THEN
+!!              IF (latgeo.GE.50.0) srcbe(i,k)=25.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=22.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=17.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=11.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=7.5
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.
+!!           END IF
+!!           IF ( kref .EQ. 13 ) THEN
+!!              IF (latgeo.GE.60.0) srcbe(i,k)=33.
+!!              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=32.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=30.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=22.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=15.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=11.
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=8.
+!!           END IF
+!!           IF ( kref .EQ. 14 ) THEN
+!!              IF (latgeo.GE.60.0) srcbe(i,k)=48.
+!!              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=45.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=36.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=26.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=17.5
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=12.5
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=10.
+!!           END IF
+!!           IF ( kref .EQ. 15 ) THEN
+!!              IF (latgeo.GE.70.0) srcbe(i,k)=58.
+!!              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=57.
+!!              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=50.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=38.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=25.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=15.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=12.5
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=10.
+!!           END IF
+!!           IF ( kref .EQ. 16 ) THEN
+!!              IF (latgeo.GE.70.0) srcbe(i,k)=70.
+!!              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=65.
+!!              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=50.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=32.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=20.
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=13.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=9.
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.5
+!!           END IF
+!!           IF ( kref .GE. 17 ) THEN
+!!              IF (latgeo.GE.70.0) srcbe(i,k)=80.
+!!              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=70.
+!!              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=45.
+!!              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=27.
+!!              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=17.5
+!!              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=12.
+!!              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=8.
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.
+!!           END IF
+!!        END DO
+!!     END DO
+!!  END IF ! fin de 19 niveaux verticaux
+!!
+!!!!!!  IF (klev .ge. 39) then
+     DO k = 1,klev
+        DO i = 1,klon
+!!!jyg le 13/03/2013
+!
+! k est le niveau dans la grille locale
+! Determination du niveau kref dans la grille de refernce
+      kref = 1
+      DO k2 = 1,nref
+        IF (pref(k2) .GT. pplay(i,k)) kref=k2
+      ENDDO
+!!!
+           latgeo=(180./rpi)*abs(rlatgeo(i))
+           IF ( kref .LE. 4 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.07
+           END IF
+           IF ( kref .EQ. 5 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.1
+              IF (latgeo.GE.20.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.09
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.07
+           END IF
+           IF ( kref .EQ. 6 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.14
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.12
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.1
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.09
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.07
+           END IF
+           IF ( kref .EQ. 7 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.16
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.16
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.14
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.12
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.1
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.09
+           END IF
+           IF ( kref .EQ. 8 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.175
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.16
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.14
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.12
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.1
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.1
+           END IF
+           IF ( kref .EQ. 9 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.245
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.21
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.175
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.14
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.12
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.12
+           END IF
+           IF ( kref .EQ. 10 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.31
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.28
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.245
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.21
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.16
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.14
+           END IF
+           IF ( kref .EQ. 11 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.35
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.3
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.3
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.2
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.18
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.16
+           END IF
+           IF ( kref .EQ. 12 ) THEN
+              IF (latgeo.GE.40.0) srcbe(i,k)=0.5
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.4
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.35
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.3
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.25
+           END IF
+           IF ( kref .EQ. 13 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=0.8
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=0.7
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.6
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.5
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.4
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.35
+           END IF
+           IF ( kref .EQ. 14 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=1.2
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=1.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=0.75
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.6
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.4
+           END IF
+           IF ( kref .EQ. 15 ) THEN
+              IF (latgeo.GE.60.0) srcbe(i,k)=1.75
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=1.8 
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=1.6
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=1.4
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=0.9
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=0.75
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.65
+           END IF
+           IF ( kref .EQ. 16 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=3.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=2.5
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=1.8
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=1.5
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=1.2
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=0.9
+           END IF
+           IF ( kref .EQ. 17 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=4.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=3.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=2.5
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=2.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=1.6
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=1.4
+           END IF
+           IF ( kref .EQ. 18 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=7.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=6.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=4.5
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=3.5
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=3.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=2.
+           END IF
+           IF ( kref .EQ. 19 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=8.5
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=8.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=7.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=4.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=3.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=3.
+           END IF
+           IF ( kref .EQ. 20 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=12.5
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=12.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=8.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=6.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=4.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=3.5
+           END IF
+           IF ( kref .EQ. 21 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=16.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=13.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=10.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=7.5
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=4.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=4.
+           END IF
+           IF ( kref .EQ. 22 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=20.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=17.5
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=12.5
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=9.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=6.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=4.5
+           END IF
+           IF ( kref .EQ. 23 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=25.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=22.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=15.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=10.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=7.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=6.
+           END IF
+           IF ( kref .EQ. 24 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=28.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=26.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=18.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=12.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=8.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.
+           END IF
+           IF ( kref .EQ. 25 ) THEN
+              IF (latgeo.GE.50.0) srcbe(i,k)=33.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=28.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=20.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=14.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=10.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=8.5
+           END IF
+           IF ( kref .EQ. 26 ) THEN
+              IF (latgeo.GE.60.0) srcbe(i,k)=38.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=36.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=32.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=24.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=15.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=11.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=10.
+!!jyg
+!!              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=6.
+!!jyg end
+           END IF
+           IF ( kref .EQ. 27 ) THEN
+              IF (latgeo.GE.60.0) srcbe(i,k)=46.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=44.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=35.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=25.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=16.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=12.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=10.
+           END IF
+           IF ( kref .EQ. 28 ) THEN
+              IF (latgeo.GE.60.0) srcbe(i,k)=53.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=48.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=37.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=25.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=16.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=12.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=10.
+           END IF
+           IF ( kref .EQ. 29 ) THEN
+              IF (latgeo.GE.70.0) srcbe(i,k)=58.
+              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=56.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=50.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=36.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=24.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=15.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=11.5
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=10.
+           END IF
+           IF ( kref .EQ. 30 ) THEN
+              IF (latgeo.GE.70.0) srcbe(i,k)=65.
+              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=60.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=50.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=35.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=22.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=14.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=10.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=9.
+           END IF
+           IF ( kref .EQ. 31 ) THEN
+              IF (latgeo.GE.70.0) srcbe(i,k)=70.
+              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=62.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=48.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=32.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=21.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=13.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=9.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.6
+           END IF
+           IF ( kref .EQ. 32 ) THEN
+              IF (latgeo.GE.70.0) srcbe(i,k)=80.
+              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=60.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=46.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=30.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=17.5
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=11.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=8.
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.4
+           END IF
+           IF ( kref .GE. 33 ) THEN
+              IF (latgeo.GE.70.0) srcbe(i,k)=80.
+              IF (latgeo.GE.60.0 .and. latgeo.LT.70.0) srcbe(i,k)=70.
+              IF (latgeo.GE.50.0 .and. latgeo.LT.60.0) srcbe(i,k)=45.
+              IF (latgeo.GE.40.0 .and. latgeo.LT.50.0) srcbe(i,k)=27.
+              IF (latgeo.GE.30.0 .and. latgeo.LT.40.0) srcbe(i,k)=15.
+              IF (latgeo.GE.20.0 .and. latgeo.LT.30.0) srcbe(i,k)=10.
+              IF (latgeo.GE.10.0 .and. latgeo.LT.20.0) srcbe(i,k)=7.6
+              IF (latgeo.GE.0.0 .and. latgeo.LT.10.0) srcbe(i,k)=7.
+           END IF
+        END DO
+     END DO
+!!!!!!  END IF ! fin de 39 niveaux verticaux
+
+
+!====================================
+! Conversion de la source en U/s/kgA
+!====================================
+  DO k = 1,klev
+     DO i = 1,klon
+       ! La source est  at/min/m3 -> at/s/kgA
+       ! avec une masse volumique de l'air = 1.295 kg/m3
+       ! 1/(60*1.295) = 0.01287
+       srcbe(i,k)=srcbe(i,k)*0.01287
+!!       print *,'  k, srcbe(i,k) ',   &
+!!                  k, srcbe(i,k)
+       ! La source est  at/min/m3 -> at/s/m3
+       ! srcbe(i,k)=srcbe(i,k)*0.0166667
+    END DO
+ END DO
+
+END SUBROUTINE init_be
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/initphysto.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/initphysto.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/initphysto.F90	(revision 3330)
@@ -0,0 +1,206 @@
+!
+! $Id$
+!
+SUBROUTINE initphysto(infile,tstep,t_ops,t_wrt,fileid)
+  
+  USE dimphy
+  USE mod_phys_lmdz_para
+  USE IOIPSL
+  USE iophy
+  USE indice_sol_mod
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev
+  USE time_phylmdz_mod, ONLY: day_ref, annee_ref
+  
+  IMPLICIT NONE
+
+!
+!   Routine d'initialisation des ecritures des fichiers histoires LMDZ
+!   au format IOIPSL
+!
+!   Appels succesifs des routines: histbeg
+!                                  histhori
+!                                  histver
+!                                  histdef
+!                                  histend
+!
+!   Entree:
+!
+!      infile: nom du fichier histoire a creer
+!      day0,anne0: date de reference
+!      tstep: duree du pas de temps en seconde
+!      t_ops: frequence de l'operation pour IOIPSL
+!      t_wrt: frequence d'ecriture sur le fichier
+!
+!   Sortie:
+!      fileid: ID du fichier netcdf cree
+!
+!   L. Fairhead, LMD, 03/99
+!
+! =====================================================================
+
+!   Arguments
+  CHARACTER(len=*), INTENT(IN) :: infile
+  REAL, INTENT(IN)             :: tstep
+  REAL, INTENT(IN)             :: t_ops
+  REAL, INTENT(IN)             :: t_wrt
+  INTEGER, INTENT(OUT)         :: fileid
+
+! Variables locales
+  INTEGER nhoriid, i
+  INTEGER l,k
+  REAL nivsigs(nbp_lev)
+  INTEGER tau0
+  REAL zjulian
+  INTEGER iq
+  INTEGER uhoriid, vhoriid, thoriid, zvertiid
+  INTEGER ii,jj
+  INTEGER zan, idayref
+  LOGICAL ok_sync
+  REAL zx_lon(nbp_lon,nbp_lat), zx_lat(nbp_lon,nbp_lat)
+  CHARACTER(len=12) :: nvar
+
+!  Initialisations
+!
+  ok_sync= .TRUE.
+!
+!  Appel a histbeg: creation du fichier netcdf et initialisations diverses
+!         
+
+  zan = annee_ref
+  idayref = day_ref
+  CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
+  tau0 = 0
+  
+  CALL histbeg_phy(infile,tau0, zjulian, tstep, &
+       nhoriid, fileid)
+
+!$OMP MASTER	
+!  Appel a histvert pour la grille verticale
+!
+  DO l=1,nbp_lev
+     nivsigs(l)=REAL(l)
+  ENDDO
+  
+  CALL histvert(fileid, 'sig_s', 'Niveaux sigma', &
+       'sigma_level', &
+       nbp_lev, nivsigs, zvertiid)
+!
+!  Appels a histdef pour la definition des variables a sauvegarder
+!
+  CALL histdef(fileid, "phis", "Surface geop. height", "-", &
+       nbp_lon,jj_nb,nhoriid, 1,1,1, -99, 32, &
+       "once", t_ops, t_wrt)
+  
+  CALL histdef(fileid, "aire", "Grid area", "-", &
+       nbp_lon,jj_nb,nhoriid, 1,1,1, -99, 32, &
+       "once", t_ops, t_wrt)
+
+  CALL histdef(fileid, "longitudes", "longitudes", "-", &
+       nbp_lon,jj_nb,nhoriid, 1,1,1, -99, 32, &
+       "once", t_ops, t_wrt)
+
+  CALL histdef(fileid, "latitudes", "latitudes", "-", &
+       nbp_lon,jj_nb,nhoriid, 1,1,1, -99, 32, &
+       "once", t_ops, t_wrt)
+! T 
+  CALL histdef(fileid, 't', 'Temperature', 'K', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! mfu 
+  CALL histdef(fileid, 'mfu', 'flx m. pan. mt', 'kg m/s',nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, 'inst(X)', t_ops, t_wrt)
+! mfd 
+  CALL histdef(fileid, 'mfd', 'flx m. pan. des', 'kg m/s',nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! en_u 
+  CALL histdef(fileid, 'en_u', 'flx ent pan mt', 'kg m/s', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, 'inst(X)', t_ops, t_wrt)
+! de_u 
+  CALL histdef(fileid, 'de_u', 'flx det pan mt', 'kg m/s',nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, 'inst(X)', t_ops, t_wrt)
+! en_d 
+  CALL histdef(fileid, 'en_d', 'flx ent pan dt', 'kg m/s', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, 'inst(X)', t_ops, t_wrt)
+! de_d 
+  CALL histdef(fileid, 'de_d', 'flx det pan dt', 'kg m/s', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! coefh
+  CALL histdef(fileid, "coefh", " ", " ", nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, "inst(X)", t_ops, t_wrt)
+! fm_th
+  CALL histdef(fileid, "fm_th", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, "inst(X)", t_ops, t_wrt)
+! en_th
+  CALL histdef(fileid, "en_th", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, "inst(X)", t_ops, t_wrt)
+! frac_impa
+  CALL histdef(fileid, 'frac_impa', ' ', ' ',nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, 'inst(X)', t_ops, t_wrt)
+! frac_nucl
+  CALL histdef(fileid, 'frac_nucl', ' ', ' ',nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid,32, 'inst(X)', t_ops, t_wrt)
+! pyu1
+  CALL histdef(fileid, "pyu1", " ", " ", nbp_lon,jj_nb,nhoriid, &
+       1,1,1, -99, 32, "inst(X)", t_ops, t_wrt)
+! pyv1
+  CALL histdef(fileid, "pyv1", " ", " ", nbp_lon,jj_nb,nhoriid, &
+       1,1,1, -99, 32,"inst(X)", t_ops, t_wrt)    
+! ftsol1
+  CALL histdef(fileid, "ftsol1", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       1, 1,1, -99,32, "inst(X)", t_ops, t_wrt)
+! ftsol2
+  CALL histdef(fileid, "ftsol2", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       1, 1,1, -99,32, "inst(X)", t_ops, t_wrt)
+! ftsol3
+  CALL histdef(fileid, "ftsol3", " ", " ", nbp_lon, jj_nb, nhoriid, &
+       1, 1,1, -99,32, "inst(X)", t_ops, t_wrt)
+! ftsol4
+  CALL histdef(fileid, "ftsol4", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       1, 1,1, -99, 32, "inst(X)", t_ops, t_wrt)
+! psrf1
+  CALL histdef(fileid, "psrf1", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       1, 1, 1, -99,32, "inst(X)", t_ops, t_wrt)
+! psrf2
+  CALL histdef(fileid, "psrf2", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       1, 1, 1, -99, 32, "inst(X)", t_ops, t_wrt)
+! psrf3
+  CALL histdef(fileid, "psrf3", " ", " ",nbp_lon, jj_nb, nhoriid, &
+       1, 1, 1, -99, 32, "inst(X)", t_ops, t_wrt)
+! psrf4
+  CALL histdef(fileid, "psrf4", " ", " ", nbp_lon, jj_nb, nhoriid, &
+       1, 1, 1, -99,32, "inst(X)", t_ops, t_wrt)
+! sh
+  CALL histdef(fileid, 'sh', '', '', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! da
+  CALL histdef(fileid, 'da', '', '', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! mp
+  CALL histdef(fileid, 'mp', '', '', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! upwd
+  CALL histdef(fileid, 'upwd', '', '', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+! dnwd
+  CALL histdef(fileid, 'dnwd', '', '', nbp_lon, jj_nb, nhoriid, &
+       nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+
+! phi
+  DO k=1,nbp_lev
+     IF (k<10) THEN
+        WRITE(nvar,'(i1)') k
+     ELSE IF (k<100) THEN
+        WRITE(nvar,'(i2)') k
+     ELSE
+        WRITE(nvar,'(i3)') k
+     END IF
+     nvar='phi_lev'//trim(nvar)
+     
+     CALL histdef(fileid, nvar, '', '', nbp_lon, jj_nb, nhoriid, &
+          nbp_lev, 1, nbp_lev, zvertiid, 32, 'inst(X)', t_ops, t_wrt)
+  END DO
+
+  CALL histend(fileid)
+  IF (ok_sync) CALL histsync
+!$OMP END MASTER
+	
+END SUBROUTINE initphysto
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/initrrnpb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/initrrnpb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/initrrnpb.F90	(revision 3330)
@@ -0,0 +1,95 @@
+!
+! $Id$
+!
+SUBROUTINE  initrrnpb(ftsol,pctsrf,masktr,fshtr,hsoltr,tautr,vdeptr,scavtr)
+  USE dimphy
+  USE infotrac_phy, ONLY : nbtr
+  USE traclmdz_mod, ONLY : id_rn, id_pb
+  USE indice_sol_mod
+  IMPLICIT NONE
+!======================================================================
+! Auteur(s): AA + CG (LGGE/CNRS) Date 24-06-94
+! Objet: initialisation des constantes des traceurs
+! id_rn : identificateur du traceur radon
+! id_pb : identificateur du traceur plomb
+!======================================================================
+! Arguments:
+! nbtr.............. nombre de vrais traceurs (sans l'eau)
+! ftsol....input-R-  Temperature du sol (Kelvin)
+! pctsrf...input-R-  Nature de sol (pourcentage de sol)
+! masktr...output-R- Masque reservoir de sol traceur (1 = reservoir)
+! fshtr....output-R- Flux surfacique de production dans le reservoir de sol
+! hsoltr...output-R- Epaisseur equivalente du reservoir de sol
+! tautr....output-R- Constante de decroissance radioactive du traceur
+! vdeptr...output-R- Vitesse de depot sec dans la couche Brownienne
+! scavtr...output-R- Coefficient de lessivage
+!======================================================================
+ 
+  REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf
+  REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol
+  REAL,DIMENSION(klon,nbtr),INTENT(OUT) :: masktr
+  REAL,DIMENSION(klon,nbtr),INTENT(OUT) :: fshtr
+  REAL,DIMENSION(nbtr),INTENT(OUT)      :: hsoltr
+  REAL,DIMENSION(nbtr),INTENT(OUT)      :: tautr
+  REAL,DIMENSION(nbtr),INTENT(OUT)      :: vdeptr
+  REAL,DIMENSION(nbtr),INTENT(OUT)      :: scavtr
+  INTEGER                               :: i, it
+  REAL                                  :: s
+
+  CHARACTER (LEN=20) :: modname='initrrnpb'
+  CHARACTER (LEN=80) :: abort_message
+
+!
+! Radon it = id_rn
+!----------------
+  IF (id_rn /= 0) THEN
+     it = id_rn
+     s = 1.E4             ! Source: atome par m2
+     hsoltr(it) = 0.1     ! Hauteur equivalente du reservoir : 
+                          ! 1 m * porosite 0.1
+     tautr(it) = 4.765E5  ! Decroissance du radon, secondes
+     vdeptr(it) = 0.      ! Pas de depot sec pour le radon
+     scavtr(it) = 0.      ! Pas de lessivage pour le radon
+     
+     WRITE(*,*)'-------------- SOURCE DU RADON ------------------------ '
+     WRITE(*,*)'it = ',it
+     WRITE(*,*)'Source : ', s
+     WRITE(*,*)'Hauteur equivalente du reservoir de sol: ',hsoltr(it) 
+     WRITE(*,*)'Decroissance (s): ', tautr(it)
+     WRITE(*,*)'Vitesse de depot sec: ',vdeptr(it) 
+     WRITE(*,*)'Facteur de lessivage: ',scavtr(it)
+
+     DO i = 1,klon
+        masktr(i,it) = 0.
+        IF ( NINT(pctsrf(i,1)) .EQ. 1 ) masktr(i,it) = 1.
+        fshtr(i,it) = s * masktr(i,it)
+     END DO
+
+  END IF ! id_rn /= 0
+
+!
+! 210Pb it = id_pb
+!----------------
+  IF (id_pb /= 0) THEN
+     it = id_pb
+     s = 0.                ! Pas de source 
+     hsoltr(it) = 10.      ! Hauteur equivalente du reservoir 
+                           ! a partir duquel le depot Brownien a lieu
+     tautr(it) = 1.028E9   ! Decroissance du Pb210, secondes
+     vdeptr(it) = 1.E-3    ! 1 mm/s pour le 210Pb
+     scavtr(it) =  .5      ! Lessivage du Pb210
+     DO i = 1,klon
+        masktr(i,it) = 1.  ! Le depot sec peut avoir lieu partout
+        fshtr(i,it) = s * masktr(i,it)
+     END DO
+     WRITE(*,*)'-------------- SOURCE DU PLOMB ------------------------ '
+     WRITE(*,*)'it = ',it
+     WRITE(*,*)'Source : ', s
+     WRITE(*,*)'Hauteur equivalente du reservoir : ',hsoltr(it) 
+     WRITE(*,*)'Decroissance (s): ', tautr(it)
+     WRITE(*,*)'Vitesse de depot sec: ',vdeptr(it) 
+     WRITE(*,*)'Facteur de lessivage: ',scavtr(it)
+     
+  END IF
+     
+END SUBROUTINE initrrnpb
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/interfoce_lim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/interfoce_lim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/interfoce_lim.F90	(revision 3330)
@@ -0,0 +1,289 @@
+!
+! $Header$
+!
+SUBROUTINE interfoce_lim(itime, dtime, jour, &
+     knon, knindex, &
+     debut,  &
+     lmt_sst_p, pctsrf_new_p)
+  
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  USE indice_sol_mod
+  
+  IMPLICIT NONE
+  
+  INCLUDE "netcdf.inc"
+
+! Cette routine sert d'interface entre le modele atmospherique et un fichier
+! de conditions aux limites
+!
+! L. Fairhead 02/2000
+!
+! input:
+!   itime        numero du pas de temps courant
+!   dtime        pas de temps de la physique (en s)
+!   jour         jour a lire dans l'annee
+!   nisurf       index de la surface a traiter (1 = sol continental)
+!   knon         nombre de points dans le domaine a traiter
+!   knindex      index des points de la surface a traiter
+!   klon         taille de la grille
+!   debut        logical: 1er appel a la physique (initialisation)
+!
+! output:
+!   lmt_sst_p      SST lues dans le fichier de CL
+!   pctsrf_new-p   sous-maille fractionnelle
+!
+
+
+! Parametres d'entree
+!****************************************************************************************
+  INTEGER, INTENT(IN)                       :: itime
+  INTEGER, INTENT(IN)                       :: jour
+  INTEGER, INTENT(IN)                       :: knon
+  INTEGER, DIMENSION(klon_loc), INTENT(IN)  :: knindex
+  REAL   , INTENT(IN)                       :: dtime
+  LOGICAL, INTENT(IN)                       :: debut
+  
+! Parametres de sortie
+!****************************************************************************************
+  REAL, INTENT(OUT), DIMENSION(klon_loc)       :: lmt_sst_p
+  REAL, INTENT(OUT), DIMENSION(klon_loc,nbsrf) :: pctsrf_new_p
+
+
+! Variables locales avec l'attribut SAVE
+!****************************************************************************************
+! frequence de lecture des conditions limites (en pas de physique) 
+  INTEGER,SAVE                              :: lmt_pas   
+  !$OMP THREADPRIVATE(lmt_pas)
+! pour indiquer que le jour a lire est deja lu pour une surface precedente
+  LOGICAL,SAVE                              :: deja_lu   
+  !$OMP THREADPRIVATE(deja_lu)
+  INTEGER,SAVE                              :: jour_lu 
+  !$OMP THREADPRIVATE(jour_lu)
+  CHARACTER (len = 20),SAVE                 :: fich ='limit.nc'
+  !$OMP THREADPRIVATE(fich)
+  LOGICAL, SAVE                             :: newlmt = .TRUE.
+  !$OMP THREADPRIVATE(newlmt)
+  LOGICAL, SAVE                             :: check = .FALSE.
+  !$OMP THREADPRIVATE(check)
+  REAL, ALLOCATABLE , SAVE, DIMENSION(:)    :: sst_lu_p
+  !$OMP THREADPRIVATE(sst_lu_p)
+  REAL, ALLOCATABLE , SAVE, DIMENSION(:,:)  :: pct_tmp_p
+  !$OMP THREADPRIVATE(pct_tmp_p)
+
+! Variables locales 
+!****************************************************************************************
+  INTEGER                                   :: nid, nvarid
+  INTEGER                                   :: ii
+  INTEGER                                   :: ierr
+  INTEGER, DIMENSION(2)                     :: start, epais
+  CHARACTER (len = 20)                      :: modname = 'interfoce_lim'
+  CHARACTER (len = 80)                      :: abort_message
+  REAL, DIMENSION(klon_glo,nbsrf)           :: pctsrf_new
+  REAL, DIMENSION(klon_glo,nbsrf)           :: pct_tmp
+  REAL, DIMENSION(klon_glo)                 :: sst_lu
+  REAL, DIMENSION(klon_glo)                 :: nat_lu
+!
+! Fin declaration
+!****************************************************************************************
+
+!****************************************************************************************
+! Start calculation
+!
+!****************************************************************************************
+  IF (debut .AND. .NOT. ALLOCATED(sst_lu_p)) THEN
+     lmt_pas = NINT(86400./dtime * 1.0) ! pour une lecture une fois par jour
+     jour_lu = jour - 1
+     ALLOCATE(sst_lu_p(klon_loc))
+     ALLOCATE(pct_tmp_p(klon_loc,nbsrf))
+  ENDIF
+  
+  IF ((jour - jour_lu) /= 0) deja_lu = .FALSE.
+  
+  IF (check) WRITE(*,*) modname, ' :: jour, jour_lu, deja_lu', jour, jour_lu, deja_lu 
+  IF (check) WRITE(*,*) modname, ' :: itime, lmt_pas ', itime, lmt_pas,dtime
+
+!****************************************************************************************
+! Ouverture et lecture du fichier pour le master process si c'est le bon moment
+!
+!****************************************************************************************
+! Tester d'abord si c'est le moment de lire le fichier
+  IF (MOD(itime-1, lmt_pas) == 0 .AND. .NOT. deja_lu) THEN
+
+!$OMP MASTER
+     IF (is_mpi_root) THEN
+
+        fich = TRIM(fich)
+        ierr = NF_OPEN (fich, NF_NOWRITE,nid)
+        IF (ierr.NE.NF_NOERR) THEN
+           abort_message = 'Pb d''ouverture du fichier de conditions aux limites'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+
+        ! La tranche de donnees a lire:
+
+        start(1) = 1
+        start(2) = jour
+        epais(1) = klon_glo
+        epais(2) = 1
+
+        IF (newlmt) THEN
+           !
+           ! Fraction "ocean" 
+           !
+           ierr = NF_INQ_VARID(nid, 'FOCE', nvarid)
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Le champ <FOCE> est absent'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+#ifdef NC_DOUBLE
+           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_oce))
+#else
+           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_oce))
+#endif
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Lecture echouee pour <FOCE>'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+           !
+           ! Fraction "glace de mer" 
+           !
+           ierr = NF_INQ_VARID(nid, 'FSIC', nvarid)
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Le champ <FSIC> est absent'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+#ifdef NC_DOUBLE
+           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_sic))
+#else
+           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_sic))
+#endif
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Lecture echouee pour <FSIC>'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+           !
+           ! Fraction "terre" 
+           !
+           ierr = NF_INQ_VARID(nid, 'FTER', nvarid)
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Le champ <FTER> est absent'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+#ifdef NC_DOUBLE
+           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_ter))
+#else
+           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_ter))
+#endif
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Lecture echouee pour <FTER>'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+           !
+           ! Fraction "glacier terre" 
+           !
+           ierr = NF_INQ_VARID(nid, 'FLIC', nvarid)
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Le champ <FLIC> est absent'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+#ifdef NC_DOUBLE
+           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais,pct_tmp(1,is_lic))
+#else
+           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais,pct_tmp(1,is_lic))
+#endif
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Lecture echouee pour <FLIC>'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+           !
+        ELSE  ! on en est toujours a rnatur
+           ! 
+           ierr = NF_INQ_VARID(nid, 'NAT', nvarid)
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Le champ <NAT> est absent'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+#ifdef NC_DOUBLE
+           ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais, nat_lu)
+#else
+           ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais, nat_lu)
+#endif
+           IF (ierr /= NF_NOERR) THEN
+              abort_message = 'Lecture echouee pour <NAT>'
+              CALL abort_physic(modname,abort_message,1)
+           ENDIF
+!
+! Remplissage des fractions de surface
+! nat = 0, 1, 2, 3 pour ocean, terre, glacier, seaice
+! 
+           pct_tmp = 0.0
+           DO ii = 1, klon_glo
+              pct_tmp(ii,NINT(nat_lu(ii)) + 1) = 1.
+           ENDDO
+
+!
+!  On se retrouve avec ocean en 1 et terre en 2 alors qu'on veut le contraire
+!
+           pctsrf_new = pct_tmp
+           pctsrf_new (:,2)= pct_tmp (:,1)
+           pctsrf_new (:,1)= pct_tmp (:,2)
+           pct_tmp = pctsrf_new 
+        ENDIF ! fin test sur newlmt
+!
+! Lecture SST
+!
+        ierr = NF_INQ_VARID(nid, 'SST', nvarid)
+        IF (ierr /= NF_NOERR) THEN
+           abort_message = 'Le champ <SST> est absent'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+#ifdef NC_DOUBLE
+        ierr = NF_GET_VARA_DOUBLE(nid,nvarid,start,epais, sst_lu)
+#else
+        ierr = NF_GET_VARA_REAL(nid,nvarid,start,epais, sst_lu)
+#endif
+        IF (ierr /= NF_NOERR) THEN
+           abort_message = 'Lecture echouee pour <SST>'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+          
+!****************************************************************************************
+! Fin de lecture, fermeture de fichier
+!
+!****************************************************************************************
+        ierr = NF_CLOSE(nid)
+     ENDIF ! is_mpi_root
+
+!$OMP END MASTER
+!$OMP BARRIER
+
+
+!****************************************************************************************
+! Distribue les variables sur tous les processus
+!
+!****************************************************************************************
+     CALL Scatter(sst_lu,sst_lu_p)
+     CALL Scatter(pct_tmp(:,is_oce),pct_tmp_p(:,is_oce))
+     CALL Scatter(pct_tmp(:,is_sic),pct_tmp_p(:,is_sic))
+     deja_lu = .TRUE.
+     jour_lu = jour
+  ENDIF
+
+!****************************************************************************************
+! Recopie des variables dans les champs de sortie
+!
+!****************************************************************************************
+  lmt_sst_p = 999999999.
+  
+  DO ii = 1, knon
+     lmt_sst_p(ii) = sst_lu_p(knindex(ii))
+  ENDDO
+  
+  DO ii=1,klon_loc
+     pctsrf_new_p(ii,is_oce)=pct_tmp_p(ii,is_oce)
+     pctsrf_new_p(ii,is_sic)=pct_tmp_p(ii,is_sic)
+  ENDDO
+  
+  
+END SUBROUTINE interfoce_lim
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iophy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iophy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iophy.F90	(revision 3330)
@@ -0,0 +1,1334 @@
+!
+! $Id$
+!
+MODULE iophy
+
+! abd  REAL,private,allocatable,DIMENSION(:),save :: io_lat
+! abd  REAL,private,allocatable,DIMENSION(:),save :: io_lon
+  REAL,ALLOCATABLE,DIMENSION(:),SAVE :: io_lat
+  REAL,ALLOCATABLE,DIMENSION(:),SAVE :: io_lon
+  INTEGER, SAVE :: phys_domain_id
+  INTEGER, SAVE :: npstn
+  INTEGER, ALLOCATABLE, DIMENSION(:), SAVE :: nptabij
+  INTEGER, SAVE :: itau_iophy
+
+!$OMP THREADPRIVATE(itau_iophy)
+
+#ifdef CPP_XIOS
+  INTERFACE histwrite_phy
+    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old,histwrite2d_xios,histwrite3d_xios
+  END INTERFACE
+#else
+  INTERFACE histwrite_phy
+    MODULE PROCEDURE histwrite2d_phy,histwrite3d_phy,histwrite2d_phy_old,histwrite3d_phy_old
+  END INTERFACE
+#endif
+
+  INTERFACE histbeg_phy_all
+    MODULE PROCEDURE histbeg_phy,histbeg_phyxios,histbeg_phy_points
+  END INTERFACE
+
+
+CONTAINS
+
+! ug Routine pour définir itau_iophy depuis phys_output_write_mod:
+  SUBROUTINE set_itau_iophy(ito)
+      IMPLICIT NONE
+      INTEGER, INTENT(IN) :: ito
+      itau_iophy = ito
+  END SUBROUTINE
+
+  SUBROUTINE init_iophy_new(rlat,rlon)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: gather, bcast, &
+                                jj_nb, jj_begin, jj_end, ii_begin, ii_end, &
+                                mpi_size, mpi_rank, klon_mpi, &
+                                is_sequential, is_south_pole_dyn
+  USE mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, klon_glo
+  USE print_control_mod, ONLY: prt_level,lunout 
+#ifdef CPP_IOIPSL
+  USE ioipsl, only: flio_dom_set
+#endif
+#ifdef CPP_XIOS
+  use wxios, only: wxios_domain_param
+#endif
+  IMPLICIT NONE
+    REAL,DIMENSION(klon),INTENT(IN) :: rlon
+    REAL,DIMENSION(klon),INTENT(IN) :: rlat
+
+    REAL,DIMENSION(klon_glo)        :: rlat_glo
+    REAL,DIMENSION(klon_glo)        :: rlon_glo
+    
+    INTEGER,DIMENSION(2) :: ddid
+    INTEGER,DIMENSION(2) :: dsg
+    INTEGER,DIMENSION(2) :: dsl
+    INTEGER,DIMENSION(2) :: dpf
+    INTEGER,DIMENSION(2) :: dpl
+    INTEGER,DIMENSION(2) :: dhs
+    INTEGER,DIMENSION(2) :: dhe 
+    INTEGER :: i    
+    INTEGER :: data_ibegin, data_iend
+
+    CALL gather(rlat,rlat_glo)
+    CALL bcast(rlat_glo)
+    CALL gather(rlon,rlon_glo)
+    CALL bcast(rlon_glo)
+    
+!$OMP MASTER  
+    ALLOCATE(io_lat(nbp_lat))
+    IF (klon_glo == 1) THEN
+      io_lat(1)=rlat_glo(1)
+    ELSE
+      io_lat(1)=rlat_glo(1)
+      io_lat(nbp_lat)=rlat_glo(klon_glo)
+      DO i=2,nbp_lat-1
+        io_lat(i)=rlat_glo(2+(i-2)*nbp_lon)
+      ENDDO
+    ENDIF
+
+    ALLOCATE(io_lon(nbp_lon))
+    IF (klon_glo == 1) THEN
+      io_lon(1)=rlon_glo(1)
+    ELSE 
+      io_lon(1:nbp_lon)=rlon_glo(2:nbp_lon+1)
+    ENDIF
+
+!! (I) dtnb   : total number of domains
+!! (I) dnb    : domain number
+!! (I) did(:) : distributed dimensions identifiers
+!!              (up to 5 dimensions are supported)
+!! (I) dsg(:) : total number of points for each dimension
+!! (I) dsl(:) : local number of points for each dimension
+!! (I) dpf(:) : position of first local point for each dimension
+!! (I) dpl(:) : position of last local point for each dimension
+!! (I) dhs(:) : start halo size for each dimension
+!! (I) dhe(:) : end halo size for each dimension
+!! (C) cdnm   : Model domain definition name.
+!!              The names actually supported are :
+!!              "BOX", "APPLE", "ORANGE".
+!!              These names are case insensitive.
+
+    ddid=(/ 1,2 /)
+    dsg=(/ nbp_lon, nbp_lat /)
+    dsl=(/ nbp_lon, jj_nb /)
+    dpf=(/ 1,jj_begin /)
+    dpl=(/ nbp_lon, jj_end /)
+    dhs=(/ ii_begin-1,0 /)
+    IF (mpi_rank==mpi_size-1) THEN
+      dhe=(/0,0/)
+    ELSE
+      dhe=(/ nbp_lon-ii_end,0 /)  
+    ENDIF
+
+#ifndef CPP_IOIPSL_NO_OUTPUT    
+    CALL flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
+                      'APPLE',phys_domain_id)
+#endif
+#ifdef CPP_XIOS
+    ! Set values for the mask:
+    IF (mpi_rank == 0) THEN
+        data_ibegin = 0
+    ELSE 
+        data_ibegin = ii_begin - 1
+    END IF
+
+    IF (mpi_rank == mpi_size-1) THEN
+        data_iend = nbp_lon
+    ELSE
+        data_iend = ii_end + 1
+    END IF
+
+    if (prt_level>=10) then
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," iibegin=",ii_begin , " ii_end=",ii_end," jjbegin=",jj_begin," jj_nb=",jj_nb," jj_end=",jj_end
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," nbp_lon=",nbp_lon," nbp_lat=",nbp_lat
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," data_ibegin=",data_ibegin," data_iend=",data_iend
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," data_ibegin=",data_ibegin," data_iend=",data_iend
+      write(lunout,*) "init_iophy_new: mpirank=",mpi_rank," is_south_pole=",is_south_pole_dyn
+    endif
+
+    ! Initialize the XIOS domain coreesponding to this process:
+    CALL wxios_domain_param("dom_glo", is_sequential, nbp_lon, jj_nb, nbp_lon, nbp_lat, &
+                            1, nbp_lon, ii_begin, ii_end, jj_begin, jj_end,             &
+                            klon_mpi+2*(nbp_lon-1), data_ibegin, data_iend,             &
+                            io_lat, io_lon,is_south_pole_dyn,mpi_rank)
+#endif
+!$OMP END MASTER
+      
+  END SUBROUTINE init_iophy_new
+
+  SUBROUTINE init_iophy(lat,lon)
+  USE mod_phys_lmdz_para, only: jj_begin, jj_end, ii_begin, ii_end, jj_nb, &
+                                mpi_size, mpi_rank 
+  USE ioipsl, only: flio_dom_set
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  IMPLICIT NONE
+    REAL,DIMENSION(nbp_lon),INTENT(IN) :: lon
+    REAL,DIMENSION(nbp_lat),INTENT(IN) :: lat
+
+    INTEGER,DIMENSION(2) :: ddid
+    INTEGER,DIMENSION(2) :: dsg
+    INTEGER,DIMENSION(2) :: dsl
+    INTEGER,DIMENSION(2) :: dpf
+    INTEGER,DIMENSION(2) :: dpl
+    INTEGER,DIMENSION(2) :: dhs
+    INTEGER,DIMENSION(2) :: dhe 
+
+!$OMP MASTER  
+    allocate(io_lat(nbp_lat))
+    io_lat(:)=lat(:)
+    allocate(io_lon(nbp_lon))
+    io_lon(:)=lon(:)
+   
+    ddid=(/ 1,2 /)
+    dsg=(/ nbp_lon, nbp_lat /)
+    dsl=(/ nbp_lon, jj_nb /)
+    dpf=(/ 1,jj_begin /)
+    dpl=(/ nbp_lon, jj_end /)
+    dhs=(/ ii_begin-1,0 /)
+    if (mpi_rank==mpi_size-1) then
+      dhe=(/0,0/)
+    else
+      dhe=(/ nbp_lon-ii_end,0 /)  
+    endif
+    
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+    call flio_dom_set(mpi_size,mpi_rank,ddid,dsg,dsl,dpf,dpl,dhs,dhe, &
+                      'APPLE',phys_domain_id)
+#endif
+!$OMP END MASTER
+      
+  end SUBROUTINE init_iophy
+
+ SUBROUTINE histbeg_phyxios(name,itau0,zjulian,dtime,ffreq,lev,nhori,nid_day)
+!  USE dimphy
+  USE mod_phys_lmdz_para, only: is_sequential, is_using_mpi, is_mpi_root, &
+                                jj_begin, jj_end, jj_nb
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  use ioipsl, only: histbeg
+#ifdef CPP_XIOS
+  use wxios, only: wxios_add_file
+#endif
+  IMPLICIT NONE
+  include 'clesphys.h'
+    
+    character*(*), INTENT(IN) :: name
+    integer, INTENT(IN) :: itau0
+    REAL,INTENT(IN) :: zjulian
+    REAL,INTENT(IN) :: dtime
+    character(LEN=*), INTENT(IN) :: ffreq
+    INTEGER,INTENT(IN) :: lev
+    integer,intent(out) :: nhori
+    integer,intent(out) :: nid_day
+
+!$OMP MASTER    
+    if (is_sequential) then
+      call histbeg(name,nbp_lon,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
+                   1,nbp_lon,1,jj_nb,itau0, zjulian, dtime, nhori, nid_day)
+    else
+      call histbeg(name,nbp_lon,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
+                   1,nbp_lon,1,jj_nb,itau0, zjulian, dtime, nhori, nid_day,phys_domain_id)
+    endif
+
+#ifdef CPP_XIOS
+    ! ug OMP en chantier...
+    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
+!$OMP END MASTER
+  
+  END SUBROUTINE histbeg_phyxios
+  
+  SUBROUTINE histbeg_phy(name,itau0,zjulian,dtime,nhori,nid_day)
+
+  USE mod_phys_lmdz_para, only: jj_begin, jj_end, jj_nb, is_sequential
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  use ioipsl, only: histbeg
+
+  IMPLICIT NONE
+    
+    character*(*), INTENT(IN) :: name
+    integer, INTENT(IN) :: itau0
+    REAL,INTENT(IN) :: zjulian
+    REAL,INTENT(IN) :: dtime
+    integer,intent(out) :: nhori
+    integer,intent(out) :: nid_day
+
+!$OMP MASTER    
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+    if (is_sequential) then
+      call histbeg(name,nbp_lon,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
+                   1,nbp_lon,1,jj_nb,itau0, zjulian, dtime, nhori, nid_day)
+    else
+      call histbeg(name,nbp_lon,io_lon, jj_nb,io_lat(jj_begin:jj_end), &
+                   1,nbp_lon,1,jj_nb,itau0, zjulian, dtime, nhori, nid_day,phys_domain_id)
+    endif
+#endif
+!$OMP END MASTER
+  
+  END SUBROUTINE histbeg_phy
+
+
+  SUBROUTINE histbeg_phy_points(rlon,rlat,pim,tabij,ipt,jpt, &
+             plon,plat,plon_bounds,plat_bounds, &
+             nname,itau0,zjulian,dtime,nnhori,nnid_day)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: gather, bcast, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                mpi_rank
+  USE mod_grid_phy_lmdz, only: klon_glo, nbp_lon, nbp_lat
+  use ioipsl, only: histbeg
+
+  IMPLICIT NONE
+
+    REAL,DIMENSION(klon),INTENT(IN) :: rlon
+    REAL,DIMENSION(klon),INTENT(IN) :: rlat
+    integer, INTENT(IN) :: itau0
+    REAL,INTENT(IN) :: zjulian
+    REAL,INTENT(IN) :: dtime
+    integer, INTENT(IN) :: pim
+    integer, intent(out) :: nnhori
+    character(len=20), INTENT(IN) :: nname
+    INTEGER, intent(out) :: nnid_day
+    integer :: i
+    REAL,DIMENSION(klon_glo)        :: rlat_glo
+    REAL,DIMENSION(klon_glo)        :: rlon_glo
+    INTEGER, DIMENSION(pim), INTENT(IN)  :: tabij
+    REAL,DIMENSION(pim), INTENT(IN) :: plat, plon
+    INTEGER,DIMENSION(pim), INTENT(IN) :: ipt, jpt
+    REAL,DIMENSION(pim,2), intent(out) :: plat_bounds, plon_bounds
+
+    INTEGER, SAVE :: tabprocbeg, tabprocend
+!$OMP THREADPRIVATE(tabprocbeg, tabprocend)
+    INTEGER :: ip
+    INTEGER, PARAMETER :: nip=1
+    INTEGER :: npproc
+    REAL, allocatable, DIMENSION(:) :: npplat, npplon
+    REAL, allocatable, DIMENSION(:,:) :: npplat_bounds, npplon_bounds
+    REAL, DIMENSION(nbp_lon,nbp_lat) :: zx_lon, zx_lat
+
+    CALL gather(rlat,rlat_glo)
+    CALL bcast(rlat_glo)
+    CALL gather(rlon,rlon_glo)
+    CALL bcast(rlon_glo)
+
+!$OMP MASTER
+    DO i=1,pim
+
+!    print*,'CFMIP_iophy i tabij lon lat',i,tabij(i),plon(i),plat(i)
+
+     plon_bounds(i,1)=rlon_glo(tabij(i)-1)
+     plon_bounds(i,2)=rlon_glo(tabij(i)+1)
+     if(plon_bounds(i,2).LE.0..AND.plon_bounds(i,1).GE.0.) THEN
+      if(rlon_glo(tabij(i)).GE.0.) THEN
+       plon_bounds(i,2)=-1*plon_bounds(i,2)
+      endif
+     endif
+     if(plon_bounds(i,2).GE.0..AND.plon_bounds(i,1).LE.0.) THEN
+      if(rlon_glo(tabij(i)).LE.0.) THEN
+       plon_bounds(i,2)=-1*plon_bounds(i,2)
+      endif
+     endif
+!
+     IF ( tabij(i).LE.nbp_lon) THEN
+      plat_bounds(i,1)=rlat_glo(tabij(i))
+     ELSE
+      plat_bounds(i,1)=rlat_glo(tabij(i)-nbp_lon)
+     ENDIF
+     plat_bounds(i,2)=rlat_glo(tabij(i)+nbp_lon)
+!
+!    print*,'CFMIP_iophy point i lon lon_bds',i,plon_bounds(i,1),rlon_glo(tabij(i)),plon_bounds(i,2) 
+!    print*,'CFMIP_iophy point i lat lat_bds',i,plat_bounds(i,1),rlat_glo(tabij(i)),plat_bounds(i,2) 
+!
+    ENDDO
+    if (is_sequential) then
+
+     npstn=pim
+     IF(.NOT. ALLOCATED(nptabij)) THEN
+      ALLOCATE(nptabij(pim))
+     ENDIF 
+     DO i=1,pim
+      nptabij(i)=tabij(i)
+     ENDDO
+
+       CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon_glo,zx_lon)
+       if ((nbp_lon*nbp_lat).gt.1) then
+       DO i = 1, nbp_lon
+         zx_lon(i,1) = rlon_glo(i+1)
+         zx_lon(i,nbp_lat) = rlon_glo(i+1)
+       ENDDO
+       endif
+       CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat_glo,zx_lat)
+
+    DO i=1,pim
+!    print*,'CFMIP_iophy i tabij lon lat',i,tabij(i),plon(i),plat(i)
+
+     plon_bounds(i,1)=zx_lon(ipt(i)-1,jpt(i))
+     plon_bounds(i,2)=zx_lon(ipt(i)+1,jpt(i))
+
+     if (ipt(i).EQ.1) then
+      plon_bounds(i,1)=zx_lon(nbp_lon,jpt(i))
+      plon_bounds(i,2)=360.+zx_lon(ipt(i)+1,jpt(i))
+     endif
+ 
+     if (ipt(i).EQ.nbp_lon) then
+      plon_bounds(i,2)=360.+zx_lon(1,jpt(i))
+     endif
+
+     plat_bounds(i,1)=zx_lat(ipt(i),jpt(i)-1)
+     plat_bounds(i,2)=zx_lat(ipt(i),jpt(i)+1)
+
+     if (jpt(i).EQ.1) then
+      plat_bounds(i,1)=zx_lat(ipt(i),1)+0.001
+      plat_bounds(i,2)=zx_lat(ipt(i),1)-0.001
+     endif
+ 
+     if (jpt(i).EQ.nbp_lat) then
+      plat_bounds(i,1)=zx_lat(ipt(i),nbp_lat)+0.001
+      plat_bounds(i,2)=zx_lat(ipt(i),nbp_lat)-0.001
+     endif
+!
+!    print*,'CFMIP_iophy point i lon lon_bds',i,plon_bounds(i,1),rlon(tabij(i)),plon_bounds(i,2) 
+!    print*,'CFMIP_iophy point i lat lat_bds',i,plat_bounds(i,1),rlat(tabij(i)),plat_bounds(i,2) 
+!
+    ENDDO
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+     call histbeg(nname,pim,plon,plon_bounds, & 
+                           plat,plat_bounds, &
+                           itau0, zjulian, dtime, nnhori, nnid_day)
+#endif
+    else
+     npproc=0
+     DO ip=1, pim
+      tabprocbeg=klon_mpi_begin
+      tabprocend=klon_mpi_end
+      IF(tabij(ip).GE.tabprocbeg.AND.tabij(ip).LE.tabprocend) THEN
+       npproc=npproc+1
+       npstn=npproc
+      ENDIF 
+     ENDDO
+!    print*,'CFMIP_iophy mpi_rank npstn',mpi_rank,npstn
+     IF(.NOT. ALLOCATED(nptabij)) THEN
+      ALLOCATE(nptabij(npstn))
+      ALLOCATE(npplon(npstn), npplat(npstn))
+      ALLOCATE(npplon_bounds(npstn,2), npplat_bounds(npstn,2))
+     ENDIF
+     npproc=0
+     DO ip=1, pim
+      IF(tabij(ip).GE.tabprocbeg.AND.tabij(ip).LE.tabprocend) THEN
+       npproc=npproc+1
+       nptabij(npproc)=tabij(ip)
+!      print*,'mpi_rank npproc ip plon plat tabij=',mpi_rank,npproc,ip, &
+!      plon(ip),plat(ip),tabij(ip)
+       npplon(npproc)=plon(ip)
+       npplat(npproc)=plat(ip)
+       npplon_bounds(npproc,1)=plon_bounds(ip,1)
+       npplon_bounds(npproc,2)=plon_bounds(ip,2)
+       npplat_bounds(npproc,1)=plat_bounds(ip,1)
+       npplat_bounds(npproc,2)=plat_bounds(ip,2)
+!!!
+!!! print qui sert a reordonner les points stations selon l'ordre CFMIP
+!!! ne pas enlever
+        print*,'iophy_mpi rank ip lon lat',mpi_rank,ip,plon(ip),plat(ip)
+!!!
+      ENDIF
+     ENDDO
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+     call histbeg(nname,npstn,npplon,npplon_bounds, &
+                            npplat,npplat_bounds, &
+                            itau0,zjulian,dtime,nnhori,nnid_day,phys_domain_id)
+#endif
+    endif
+!$OMP END MASTER
+
+  end SUBROUTINE histbeg_phy_points
+
+
+  SUBROUTINE histdef2d_old (iff,lpoint,flag_var,nomvar,titrevar,unitvar)
+
+    USE ioipsl, only: histdef
+    USE mod_phys_lmdz_para, only: jj_nb
+    use phys_output_var_mod, only: type_ecri, zoutm, zdtime_moy, lev_files, &
+                                   nid_files, nhorim, swaero_diag, nfiles
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+
+    INTEGER                          :: iff
+    LOGICAL                          :: lpoint
+    INTEGER, DIMENSION(nfiles)       :: flag_var
+    CHARACTER(LEN=20)                 :: nomvar
+    CHARACTER(LEN=*)                 :: titrevar
+    CHARACTER(LEN=*)                 :: unitvar
+
+    REAL zstophym
+
+    IF (type_ecri(iff)=='inst(X)'.OR.type_ecri(iff)=='once') THEN
+       zstophym=zoutm(iff)
+    ELSE
+       zstophym=zdtime_moy
+    ENDIF
+
+    ! Appel a la lecture des noms et niveau d'ecriture des variables dans output.def
+    CALL conf_physoutputs(nomvar,flag_var)
+
+    IF(.NOT.lpoint) THEN  
+       IF ( flag_var(iff)<=lev_files(iff) ) THEN
+          CALL histdef (nid_files(iff),nomvar,titrevar,unitvar, &
+               nbp_lon,jj_nb,nhorim(iff), 1,1,1, -99, 32, &
+               type_ecri(iff), zstophym,zoutm(iff))                
+       ENDIF
+    ELSE
+       IF ( flag_var(iff)<=lev_files(iff) ) THEN
+          CALL histdef (nid_files(iff),nomvar,titrevar,unitvar, &
+               npstn,1,nhorim(iff), 1,1,1, -99, 32, &
+               type_ecri(iff), zstophym,zoutm(iff))                
+       ENDIF
+    ENDIF
+
+    ! Set swaero_diag=true if at least one of the concerned variables are defined 
+    IF (nomvar=='topswad' .OR. nomvar=='topswai' .OR. nomvar=='solswad' .OR. nomvar=='solswai' ) THEN
+       IF  ( flag_var(iff)<=lev_files(iff) ) THEN
+          swaero_diag=.TRUE.
+       END IF
+    END IF
+  END SUBROUTINE histdef2d_old
+
+
+
+  SUBROUTINE histdef3d_old (iff,lpoint,flag_var,nomvar,titrevar,unitvar)
+
+    USE ioipsl, only: histdef
+    USE dimphy, only: klev
+    USE mod_phys_lmdz_para, only: jj_nb
+    use phys_output_var_mod, only: type_ecri, zoutm, lev_files, nid_files, &
+                                   nhorim, zdtime_moy, levmin, levmax, &
+                                   nvertm, nfiles
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+
+    INTEGER                          :: iff
+    LOGICAL                          :: lpoint
+    INTEGER, DIMENSION(nfiles)       :: flag_var
+    CHARACTER(LEN=20)                 :: nomvar
+    CHARACTER(LEN=*)                 :: titrevar
+    CHARACTER(LEN=*)                 :: unitvar
+
+    REAL zstophym
+
+    ! Appel a la lecture des noms et niveau d'ecriture des variables dans output.def
+    CALL conf_physoutputs(nomvar,flag_var)
+
+    IF (type_ecri(iff)=='inst(X)'.OR.type_ecri(iff)=='once') THEN
+       zstophym=zoutm(iff)
+    ELSE
+       zstophym=zdtime_moy
+    ENDIF
+
+    IF(.NOT.lpoint) THEN
+       IF ( flag_var(iff)<=lev_files(iff) ) THEN
+          CALL histdef (nid_files(iff), nomvar, titrevar, unitvar, &
+               nbp_lon, jj_nb, nhorim(iff), klev, levmin(iff), &
+               levmax(iff)-levmin(iff)+1, nvertm(iff), 32, type_ecri(iff), &
+               zstophym, zoutm(iff))
+       ENDIF
+    ELSE
+       IF ( flag_var(iff)<=lev_files(iff) ) THEN
+          CALL histdef (nid_files(iff), nomvar, titrevar, unitvar, &
+               npstn,1,nhorim(iff), klev, levmin(iff), &
+               levmax(iff)-levmin(iff)+1, nvertm(iff), 32, &
+               type_ecri(iff), zstophym,zoutm(iff))
+       ENDIF
+    ENDIF
+  END SUBROUTINE histdef3d_old
+
+
+
+
+
+
+
+
+  SUBROUTINE histdef2d (iff,var)
+
+    USE ioipsl, only: histdef
+    USE mod_phys_lmdz_para, only: jj_nb
+    use phys_output_var_mod, only: ctrl_out, type_ecri_files, zoutm, zdtime_moy, &
+                                   clef_stations, phys_out_filenames, lev_files, &
+                                   nid_files, nhorim, swaero_diag
+    USE print_control_mod, ONLY: prt_level,lunout 
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+#ifdef CPP_XIOS
+    use wxios, only: wxios_add_field_to_file
+#endif
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+
+    INTEGER                          :: iff
+    TYPE(ctrl_out)                   :: var
+
+    REAL zstophym
+    CHARACTER(LEN=20) :: typeecrit
+
+
+    ! ug On récupère le type écrit de la structure:
+    !       Assez moche, à refaire si meilleure méthode...
+    IF (INDEX(var%type_ecrit(iff), "once") > 0) THEN
+       typeecrit = 'once'
+    ELSE IF(INDEX(var%type_ecrit(iff), "t_min") > 0) THEN
+       typeecrit = 't_min(X)'
+    ELSE IF(INDEX(var%type_ecrit(iff), "t_max") > 0) THEN
+       typeecrit = 't_max(X)'
+    ELSE IF(INDEX(var%type_ecrit(iff), "inst") > 0) THEN
+       typeecrit = 'inst(X)'
+    ELSE
+       typeecrit = type_ecri_files(iff)
+    ENDIF
+
+    IF (typeecrit=='inst(X)'.OR.typeecrit=='once') THEN
+       zstophym=zoutm(iff)
+    ELSE
+       zstophym=zdtime_moy
+    ENDIF
+
+    ! Appel a la lecture des noms et niveau d'ecriture des variables dans output.def
+    CALL conf_physoutputs(var%name, var%flag)
+
+    IF(.NOT.clef_stations(iff)) THEN  
+
+#ifdef CPP_XIOS
+      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_IOIPSL_NO_OUTPUT 
+
+       IF ( var%flag(iff)<=lev_files(iff) ) THEN
+          CALL histdef (nid_files(iff), var%name, var%description, var%unit, &
+               nbp_lon,jj_nb,nhorim(iff), 1,1,1, -99, 32, &
+               typeecrit, zstophym,zoutm(iff))                
+       ENDIF
+    ELSE
+       IF ( var%flag(iff)<=lev_files(iff)) THEN
+          CALL histdef (nid_files(iff), var%name, var%description, var%unit, &
+               npstn,1,nhorim(iff), 1,1,1, -99, 32, &
+               typeecrit, zstophym,zoutm(iff))                
+       ENDIF
+#endif
+    ENDIF
+
+    ! Set swaero_diag=true if at least one of the concerned variables are
+    ! defined
+    !--OB 30/05/2016 use wider set of variables
+    IF ( var%name=='topswad' .OR. var%name=='topswad0' .OR. var%name=='solswad' .OR. var%name=='solswad0' .OR. &
+         var%name=='topswai' .OR. var%name=='solswai'  .OR. ( iflag_rrtm==1 .AND. (                            &
+         var%name=='toplwad' .OR. var%name=='toplwad0' .OR. var%name=='sollwad' .OR. var%name=='sollwad0' .OR. &
+         var%name=='toplwai' .OR. var%name=='sollwai'  ) ) ) THEN
+       IF  ( var%flag(iff)<=lev_files(iff) ) THEN
+          swaero_diag=.TRUE.
+       END IF
+    END IF
+  END SUBROUTINE histdef2d
+
+  SUBROUTINE histdef3d (iff,var)
+
+    USE ioipsl, only: histdef
+    USE dimphy, only: klev
+    USE mod_phys_lmdz_para, only: jj_nb
+    use phys_output_var_mod, only: ctrl_out, type_ecri_files, zoutm, zdtime_moy, &
+                                   clef_stations, phys_out_filenames, lev_files, &
+                                   nid_files, nhorim, swaero_diag, levmin, &
+                                   levmax, nvertm
+    USE print_control_mod, ONLY: prt_level,lunout
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+#ifdef CPP_XIOS
+    use wxios, only: wxios_add_field_to_file
+#endif
+    IMPLICIT NONE
+
+    INCLUDE "clesphys.h"
+
+    INTEGER                          :: iff
+    TYPE(ctrl_out)                   :: var
+
+    REAL zstophym
+    CHARACTER(LEN=20) :: typeecrit
+
+    ! ug On récupère le type écrit de la structure:
+    !       Assez moche, à refaire si meilleure méthode...
+    IF (INDEX(var%type_ecrit(iff), "once") > 0) THEN
+       typeecrit = 'once'
+    ELSE IF(INDEX(var%type_ecrit(iff), "t_min") > 0) THEN
+       typeecrit = 't_min(X)'
+    ELSE IF(INDEX(var%type_ecrit(iff), "t_max") > 0) THEN
+       typeecrit = 't_max(X)'
+    ELSE IF(INDEX(var%type_ecrit(iff), "inst") > 0) THEN
+       typeecrit = 'inst(X)'
+    ELSE
+       typeecrit = type_ecri_files(iff)
+    ENDIF
+
+
+    ! Appel a la lecture des noms et niveau d'ecriture des variables dans output.def
+    CALL conf_physoutputs(var%name,var%flag)
+
+    IF (typeecrit=='inst(X)'.OR.typeecrit=='once') THEN
+       zstophym=zoutm(iff)
+    ELSE
+       zstophym=zdtime_moy
+    ENDIF
+
+    IF(.NOT.clef_stations(iff)) THEN
+
+#ifdef CPP_XIOS
+       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
+          CALL histdef (nid_files(iff), var%name, var%description, var%unit, &
+               nbp_lon, jj_nb, nhorim(iff), klev, levmin(iff), &
+               levmax(iff)-levmin(iff)+1, nvertm(iff), 32, typeecrit, &
+               zstophym, zoutm(iff))
+       ENDIF
+    ELSE
+       IF ( var%flag(iff)<=lev_files(iff)) THEN
+          CALL histdef (nid_files(iff), var%name, var%description, var%unit, &
+               npstn,1,nhorim(iff), klev, levmin(iff), &
+               levmax(iff)-levmin(iff)+1, nvertm(iff), 32, &
+               typeecrit, zstophym,zoutm(iff))
+       ENDIF
+#endif
+    ENDIF
+  END SUBROUTINE histdef3d
+
+  SUBROUTINE conf_physoutputs(nam_var,flag_var)
+!!! Lecture des noms et niveau de sortie des variables dans output.def
+    !   en utilisant les routines getin de IOIPSL  
+    use ioipsl, only: getin
+    use phys_output_var_mod, only: nfiles
+    USE print_control_mod, ONLY: prt_level,lunout
+    IMPLICIT NONE
+
+    CHARACTER(LEN=20)                :: nam_var
+    INTEGER, DIMENSION(nfiles)      :: flag_var
+
+    IF(prt_level>10) WRITE(lunout,*)'Avant getin: nam_var flag_var ',nam_var,flag_var(:)
+    CALL getin('flag_'//nam_var,flag_var)
+    CALL getin('name_'//nam_var,nam_var)
+    IF(prt_level>10) WRITE(lunout,*)'Apres getin: nam_var flag_var ',nam_var,flag_var(:)
+
+  END SUBROUTINE conf_physoutputs
+
+
+ 
+  SUBROUTINE histwrite2d_phy_old(nid,lpoint,name,itau,field)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                jj_nb, klon_mpi
+  USE ioipsl, only: histwrite
+  USE print_control_mod, ONLY: prt_level,lunout
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  IMPLICIT NONE
+    
+    integer,INTENT(IN) :: nid
+    logical,INTENT(IN) :: lpoint 
+    character*(*), INTENT(IN) :: name
+    integer, INTENT(IN) :: itau
+    REAL,DIMENSION(:),INTENT(IN) :: field
+    REAL,DIMENSION(klon_mpi) :: buffer_omp
+    INTEGER, allocatable, DIMENSION(:) :: index2d
+    REAL :: Field2d(nbp_lon,jj_nb)
+
+    integer :: ip
+    REAL,allocatable,DIMENSION(:) :: fieldok
+
+
+    IF (size(field)/=klon) CALL abort_physic('iophy::histwrite2d','Field first DIMENSION not equal to klon',1)
+    
+    CALL Gather_omp(field,buffer_omp)    
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,Field2d)
+    if(.NOT.lpoint) THEN
+     ALLOCATE(index2d(nbp_lon*jj_nb))
+     ALLOCATE(fieldok(nbp_lon*jj_nb))
+     IF (prt_level >= 10) write(lunout,*)'Sending ',name,' to IOIPSL'
+     CALL histwrite(nid,name,itau,Field2d,nbp_lon*jj_nb,index2d)
+     IF (prt_level >= 10) write(lunout,*)'Finished sending ',name,' to IOIPSL'
+    else
+     ALLOCATE(fieldok(npstn))
+     ALLOCATE(index2d(npstn))
+
+     if(is_sequential) then
+!     klon_mpi_begin=1
+!     klon_mpi_end=klon
+      DO ip=1, npstn
+       fieldok(ip)=buffer_omp(nptabij(ip))
+      ENDDO
+     else
+      DO ip=1, npstn
+!     print*,'histwrite2d is_sequential npstn ip name nptabij',npstn,ip,name,nptabij(ip)
+       IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+          nptabij(ip).LE.klon_mpi_end) THEN
+         fieldok(ip)=buffer_omp(nptabij(ip)-klon_mpi_begin+1)
+       ENDIF
+      ENDDO
+     endif
+     IF (prt_level >= 10) write(lunout,*)'Sending ',name,' to IOIPSL'
+     CALL histwrite(nid,name,itau,fieldok,npstn,index2d)
+     IF (prt_level >= 10) write(lunout,*)'Finished sending ',name,' to IOIPSL'
+!
+    endif
+    deallocate(index2d)
+    deallocate(fieldok)
+!$OMP END MASTER   
+
+ 
+  end SUBROUTINE histwrite2d_phy_old
+
+  SUBROUTINE histwrite3d_phy_old(nid,lpoint,name,itau,field)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: Gather_omp, grid1Dto2D_mpi, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                jj_nb, klon_mpi
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  use ioipsl, only: histwrite
+  USE print_control_mod, ONLY: prt_level,lunout
+  IMPLICIT NONE
+    
+    integer,INTENT(IN) :: nid
+    logical,INTENT(IN) :: lpoint
+    character*(*), INTENT(IN) :: name
+    integer, INTENT(IN) :: itau
+    REAL,DIMENSION(:,:),INTENT(IN) :: field  ! --> field(klon,:)
+    REAL,DIMENSION(klon_mpi,size(field,2)) :: buffer_omp
+    REAL :: Field3d(nbp_lon,jj_nb,size(field,2))
+    INTEGER :: ip, n, nlev
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: index3d
+    REAL,allocatable, DIMENSION(:,:) :: fieldok
+
+
+    IF (size(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)
+    nlev=size(field,2)
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,field3d)
+    if(.NOT.lpoint) THEN
+     ALLOCATE(index3d(nbp_lon*jj_nb*nlev))
+     ALLOCATE(fieldok(nbp_lon*jj_nb,nlev))
+     IF (prt_level >= 10) write(lunout,*)'Sending ',name,' to IOIPSL'
+     CALL histwrite(nid,name,itau,Field3d,nbp_lon*jj_nb*nlev,index3d)
+     IF (prt_level >= 10) write(lunout,*)'Finished sending ',name,' to IOIPSL'
+   else
+      nlev=size(field,2)
+      ALLOCATE(index3d(npstn*nlev))
+      ALLOCATE(fieldok(npstn,nlev))
+
+      if(is_sequential) then
+!      klon_mpi_begin=1
+!      klon_mpi_end=klon
+       DO n=1, nlev
+       DO ip=1, npstn
+        fieldok(ip,n)=buffer_omp(nptabij(ip),n)
+       ENDDO
+       ENDDO
+      else
+       DO n=1, nlev
+       DO ip=1, npstn
+        IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+         nptabij(ip).LE.klon_mpi_end) THEN
+         fieldok(ip,n)=buffer_omp(nptabij(ip)-klon_mpi_begin+1,n)
+        ENDIF
+       ENDDO
+       ENDDO
+      endif
+      IF (prt_level >= 10) write(lunout,*)'Sending ',name,' to IOIPSL'
+      CALL histwrite(nid,name,itau,fieldok,npstn*nlev,index3d)
+      IF (prt_level >= 10) write(lunout,*)'Finished sending ',name,' to IOIPSL'
+    endif 
+  deallocate(index3d)
+  deallocate(fieldok)
+!$OMP END MASTER    
+
+  end SUBROUTINE histwrite3d_phy_old
+
+
+
+
+! ug NOUVELLE VERSION DES WRITE AVEC LA BOUCLE DO RENTREE
+  SUBROUTINE histwrite2d_phy(var,field, STD_iff)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: gather_omp, grid1dto2d_mpi, &
+                                jj_nb, klon_mpi, klon_mpi_begin, &
+                                klon_mpi_end, is_sequential
+  USE ioipsl, only: histwrite
+  use phys_output_var_mod, only: ctrl_out, clef_files, lev_files, &
+                                 nfiles, vars_defined, clef_stations, &
+                                 nid_files
+  USE print_control_mod, ONLY: prt_level,lunout
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+#ifdef CPP_XIOS
+  USE xios, only: xios_send_field
+#endif
+
+
+  IMPLICIT NONE
+  include 'clesphys.h'
+
+    TYPE(ctrl_out), INTENT(IN) :: var
+    REAL, DIMENSION(:), INTENT(IN) :: field
+    INTEGER, INTENT(IN), OPTIONAL :: STD_iff ! ug RUSTINE POUR LES STD LEVS.....
+      
+    INTEGER :: iff, iff_beg, iff_end
+    LOGICAL, SAVE  :: firstx
+!$OMP THREADPRIVATE(firstx)
+
+    REAL,DIMENSION(klon_mpi) :: buffer_omp
+    INTEGER, allocatable, DIMENSION(:) :: index2d
+    REAL :: Field2d(nbp_lon,jj_nb)
+
+    INTEGER :: ip
+    REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
+
+    IF (prt_level >= 10) THEN
+      WRITE(lunout,*)'Begin histwrite2d_phy for ',trim(var%name)
+    ENDIF
+! ug RUSTINE POUR LES STD LEVS.....
+      IF (PRESENT(STD_iff)) THEN
+            iff_beg = STD_iff
+            iff_end = STD_iff
+      ELSE
+            iff_beg = 1
+            iff_end = nfiles
+      END IF
+
+  ! On regarde si on est dans la phase de définition ou d'écriture:
+  IF(.NOT.vars_defined) THEN
+!$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
+            CALL histdef2d(iff, var)
+         ENDIF
+      ENDDO
+      ENDIF
+!$OMP END MASTER
+  ELSE
+
+    !Et sinon on.... écrit
+    IF (SIZE(field)/=klon) CALL abort_physic('iophy::histwrite2d_phy','Field first DIMENSION not equal to klon',1)
+    
+    if (prt_level >= 10) then
+      write(lunout,*)"histwrite2d_phy: .not.vars_defined ; time to gather and write ", &
+                     trim(var%name)
+    endif
+    
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,Field2d)
+
+! La boucle sur les fichiers:
+      firstx=.true.
+
+      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_physic ('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 
+
+#ifdef CPP_XIOS
+               IF (firstx) THEN
+                  if (prt_level >= 10) then
+                     write(lunout,*)'Dans iophy histwrite2D,iff,var%name ',&
+                                    iff,trim(var%name)                       
+                     write(lunout,*)"histwrite2d_phy:.NOT.clef_stations(iff)and iff==iff_beg, call xios_send_field"
+                  endif
+                  CALL xios_send_field(var%name, Field2d)
+                  firstx=.false.
+               ENDIF
+#endif
+
+                  IF(.NOT.clef_stations(iff)) THEN
+                        ALLOCATE(index2d(nbp_lon*jj_nb))
+                        ALLOCATE(fieldok(nbp_lon*jj_nb))
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+                        CALL histwrite(nid_files(iff),var%name,itau_iophy,Field2d,nbp_lon*jj_nb,index2d)
+#endif
+!#ifdef CPP_XIOS
+!                        IF (iff == iff_beg) THEN
+!                          if (prt_level >= 10) then
+!                            write(lunout,*)"histwrite2d_phy: .NOT.clef_stations(iff) and iff==iff_beg, call xios_send_field"
+!                          endif
+!                          CALL xios_send_field(var%name, Field2d)
+!                        ENDIF
+!#endif
+                  ELSE 
+                        ALLOCATE(fieldok(npstn))
+                        ALLOCATE(index2d(npstn))
+
+                        IF (is_sequential) THEN
+                          DO ip=1, npstn
+                            fieldok(ip)=buffer_omp(nptabij(ip))
+                          ENDDO
+                        ELSE
+                              DO ip=1, npstn
+                                write(lunout,*)'histwrite2d_phy is_sequential npstn ip namenptabij',npstn,ip,var%name,nptabij(ip)
+                                     IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+                                        nptabij(ip).LE.klon_mpi_end) THEN
+                                       fieldok(ip)=buffer_omp(nptabij(ip)-klon_mpi_begin+1)
+                                     ENDIF
+                              ENDDO
+                       ENDIF ! of IF (is_sequential)
+#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"
+                       endif
+                       CALL histwrite(nid_files(iff),var%name,itau_iophy,fieldok,npstn,index2d)
+#endif
+                  ENDIF ! of IF(.NOT.clef_stations(iff))
+                  
+                deallocate(index2d)
+                deallocate(fieldok)
+            ENDIF !levfiles
+        ENDDO ! of DO iff=iff_beg, iff_end
+      ENDIF
+!$OMP END MASTER   
+  ENDIF ! vars_defined
+  IF (prt_level >= 10) WRITE(lunout,*)'End histwrite2d_phy ',trim(var%name)
+  END SUBROUTINE histwrite2d_phy
+
+
+! ug NOUVELLE VERSION DES WRITE AVEC LA BOUCLE DO RENTREE
+  SUBROUTINE histwrite3d_phy(var, field, STD_iff)
+  USE dimphy, only: klon, klev
+  USE mod_phys_lmdz_para, only: gather_omp, grid1dto2d_mpi, &
+                                jj_nb, klon_mpi, klon_mpi_begin, &
+                                klon_mpi_end, is_sequential
+  USE ioipsl, only: histwrite
+  use phys_output_var_mod, only: ctrl_out, clef_files, lev_files, &
+                                 nfiles, vars_defined, clef_stations, &
+                                 nid_files
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+#ifdef CPP_XIOS
+  USE xios, only: xios_send_field
+#endif
+  USE print_control_mod, ONLY: prt_level,lunout
+
+  IMPLICIT NONE
+  include 'clesphys.h'
+
+    TYPE(ctrl_out), INTENT(IN) :: var
+    REAL, DIMENSION(:,:), INTENT(IN) :: field ! --> field(klon,:)
+    INTEGER, INTENT(IN), OPTIONAL :: STD_iff ! ug RUSTINE POUR LES STD LEVS.....
+      
+    INTEGER :: iff, iff_beg, iff_end
+    LOGICAL, SAVE  :: firstx
+!$OMP THREADPRIVATE(firstx)
+    REAL,DIMENSION(klon_mpi,SIZE(field,2)) :: buffer_omp
+    REAL :: Field3d(nbp_lon,jj_nb,SIZE(field,2))
+    INTEGER :: ip, n, nlev, nlevx
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: index3d
+    REAL,ALLOCATABLE, DIMENSION(:,:) :: fieldok
+
+  IF (prt_level >= 10) write(lunout,*)'Begin histrwrite3d ',var%name
+
+! ug RUSTINE POUR LES STD LEVS.....
+      IF (PRESENT(STD_iff)) THEN
+            iff_beg = STD_iff
+            iff_end = STD_iff
+      ELSE
+            iff_beg = 1
+            iff_end = nfiles
+      END IF
+
+  ! On regarde si on est dans la phase de définition ou d'écriture:
+  IF(.NOT.vars_defined) THEN
+      !Si phase de définition.... on définit
+!$OMP MASTER
+      DO iff=iff_beg, iff_end
+        IF (clef_files(iff)) THEN
+          CALL histdef3d(iff, var)
+        ENDIF
+      ENDDO
+!$OMP END MASTER
+  ELSE
+    !Et sinon on.... écrit
+    IF (SIZE(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)
+    nlev=SIZE(field,2)
+    if (nlev.eq.klev+1) then
+        nlevx=klev
+    else
+        nlevx=nlev
+    endif
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,field3d)
+
+
+! 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_physic ('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
+#ifdef CPP_XIOS
+              IF (firstx) THEN
+                if (prt_level >= 10) then
+                  write(lunout,*)'Dans iophy, histwrite3D iff nlev klev firstx', &
+                                  iff,nlev,klev, firstx                       
+                  write(lunout,*)'histwrite3d_phy: call xios_send_field for ', &
+                                  trim(var%name), ' with iim jjm nlevx = ', &
+                                  nbp_lon,jj_nb,nlevx
+                endif
+                CALL xios_send_field(var%name, Field3d(:,:,1:nlevx))
+                            firstx=.false.
+              ENDIF
+#endif
+                IF (.NOT.clef_stations(iff)) THEN
+                        ALLOCATE(index3d(nbp_lon*jj_nb*nlev))
+                        ALLOCATE(fieldok(nbp_lon*jj_nb,nlev))
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+                        CALL histwrite(nid_files(iff),var%name,itau_iophy,Field3d,nbp_lon*jj_nb*nlev,index3d)
+#endif
+
+!#ifdef CPP_XIOS
+!                        IF (iff == 1) THEN
+!                              CALL xios_send_field(var%name, Field3d(:,:,1:klev))
+!                        ENDIF
+!#endif
+!                        
+                ELSE 
+                        nlev=size(field,2)
+                        ALLOCATE(index3d(npstn*nlev))
+                        ALLOCATE(fieldok(npstn,nlev))
+
+                        IF (is_sequential) THEN
+                              DO n=1, nlev
+                                    DO ip=1, npstn
+                                          fieldok(ip,n)=buffer_omp(nptabij(ip),n)
+                                    ENDDO
+                              ENDDO
+                        ELSE
+                              DO n=1, nlev
+                                    DO ip=1, npstn
+                                                IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+                                                      nptabij(ip).LE.klon_mpi_end) THEN
+                                                fieldok(ip,n)=buffer_omp(nptabij(ip)-klon_mpi_begin+1,n)
+                                          ENDIF
+                                    ENDDO
+                              ENDDO
+                        ENDIF
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+                        CALL histwrite(nid_files(iff),var%name,itau_iophy,fieldok,npstn*nlev,index3d)
+#endif
+                  ENDIF 
+                  deallocate(index3d)
+                  deallocate(fieldok)
+            ENDIF
+      ENDDO
+      ENDIF
+!$OMP END MASTER   
+  ENDIF ! vars_defined
+  IF (prt_level >= 10) write(lunout,*)'End histrwrite3d ',var%name
+  END SUBROUTINE histwrite3d_phy
+  
+
+! VERSION DES HISTWRITE DEDIEES AU TOUT-XIOS-XML DEJA UTILISEE DANS PHYDEV
+#ifdef CPP_XIOS
+  SUBROUTINE histwrite2d_xios(field_name,field)
+  USE dimphy, only: klon
+  USE mod_phys_lmdz_para, only: gather_omp, grid1Dto2D_mpi, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                jj_nb, klon_mpi
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  USE xios, only: xios_send_field
+  USE print_control_mod, ONLY: prt_level,lunout
+
+  IMPLICIT NONE
+
+    CHARACTER(LEN=*), INTENT(IN) :: field_name
+    REAL, DIMENSION(:), INTENT(IN) :: field
+      
+    REAL,DIMENSION(klon_mpi) :: buffer_omp
+    INTEGER, allocatable, DIMENSION(:) :: index2d
+    REAL :: Field2d(nbp_lon,jj_nb)
+
+    INTEGER :: ip
+    REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
+
+    IF (prt_level >= 10) WRITE(lunout,*)'Begin histrwrite2d_xios ',field_name
+
+    !Et sinon on.... écrit
+    IF (SIZE(field)/=klon) CALL abort_physic('iophy::histwrite2d_xios','Field first DIMENSION not equal to klon',1)
+    
+    CALL Gather_omp(field,buffer_omp)    
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,Field2d)
+    
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!ATTENTION, STATIONS PAS GEREES !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !IF(.NOT.clef_stations(iff)) THEN
+    IF (.TRUE.) THEN
+        ALLOCATE(index2d(nbp_lon*jj_nb))
+        ALLOCATE(fieldok(nbp_lon*jj_nb))
+
+
+        CALL xios_send_field(field_name, Field2d)
+
+    ELSE 
+        ALLOCATE(fieldok(npstn))
+        ALLOCATE(index2d(npstn))
+
+        IF (is_sequential) THEN
+            DO ip=1, npstn
+                fieldok(ip)=buffer_omp(nptabij(ip))
+            ENDDO
+        ELSE
+            DO ip=1, npstn
+                PRINT*,'histwrite2d_xios is_sequential npstn ip namenptabij',npstn,ip,field_name,nptabij(ip)
+                IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+                nptabij(ip).LE.klon_mpi_end) THEN
+                    fieldok(ip)=buffer_omp(nptabij(ip)-klon_mpi_begin+1)
+                ENDIF
+            ENDDO
+        ENDIF
+
+    ENDIF
+                  
+    deallocate(index2d)
+    deallocate(fieldok)
+!$OMP END MASTER   
+
+  IF (prt_level >= 10) WRITE(lunout,*)'End histrwrite2d_xios ',field_name
+  END SUBROUTINE histwrite2d_xios
+
+
+! ug NOUVELLE VERSION DES WRITE AVEC LA BOUCLE DO RENTREE
+  SUBROUTINE histwrite3d_xios(field_name, field)
+  USE dimphy, only: klon, klev
+  USE mod_phys_lmdz_para, only: gather_omp, grid1Dto2D_mpi, &
+                                is_sequential, klon_mpi_begin, klon_mpi_end, &
+                                jj_nb, klon_mpi
+  USE xios, only: xios_send_field
+  USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+  USE print_control_mod, ONLY: prt_level,lunout
+
+  IMPLICIT NONE
+
+    CHARACTER(LEN=*), INTENT(IN) :: field_name
+    REAL, DIMENSION(:,:), INTENT(IN) :: field ! --> field(klon,:)
+
+    REAL,DIMENSION(klon_mpi,SIZE(field,2)) :: buffer_omp
+    REAL :: Field3d(nbp_lon,jj_nb,SIZE(field,2))
+    INTEGER :: ip, n, nlev
+    INTEGER, ALLOCATABLE, DIMENSION(:) :: index3d
+    REAL,ALLOCATABLE, DIMENSION(:,:) :: fieldok
+
+  IF (prt_level >= 10) write(lunout,*)'Begin histrwrite3d_xios ',field_name
+
+    !Et on.... écrit
+    IF (SIZE(field,1)/=klon) CALL abort_physic('iophy::histwrite3d','Field first DIMENSION not equal to klon',1)
+    nlev=SIZE(field,2)
+
+
+    CALL Gather_omp(field,buffer_omp)
+!$OMP MASTER
+    CALL grid1Dto2D_mpi(buffer_omp,field3d)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!ATTENTION, STATIONS PAS GEREES !
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !IF (.NOT.clef_stations(iff)) THEN
+    IF(.TRUE.)THEN
+        ALLOCATE(index3d(nbp_lon*jj_nb*nlev))
+        ALLOCATE(fieldok(nbp_lon*jj_nb,nlev))
+        CALL xios_send_field(field_name, Field3d(:,:,1:nlev))
+                        
+    ELSE 
+        nlev=size(field,2)
+        ALLOCATE(index3d(npstn*nlev))
+        ALLOCATE(fieldok(npstn,nlev))
+
+        IF (is_sequential) THEN
+            DO n=1, nlev
+                DO ip=1, npstn
+                    fieldok(ip,n)=buffer_omp(nptabij(ip),n)
+                ENDDO
+            ENDDO
+        ELSE
+            DO n=1, nlev
+                DO ip=1, npstn
+                    IF(nptabij(ip).GE.klon_mpi_begin.AND. &
+                    nptabij(ip).LE.klon_mpi_end) THEN
+                        fieldok(ip,n)=buffer_omp(nptabij(ip)-klon_mpi_begin+1,n)
+                    ENDIF
+                ENDDO
+            ENDDO
+        ENDIF
+    ENDIF 
+    deallocate(index3d)
+    deallocate(fieldok)
+!$OMP END MASTER   
+
+  IF (prt_level >= 10) write(lunout,*)'End histrwrite3d_xios ',field_name
+  END SUBROUTINE histwrite3d_xios
+#endif
+end module iophy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iostart.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iostart.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iostart.F90	(revision 3330)
@@ -0,0 +1,508 @@
+MODULE iostart
+
+PRIVATE
+    INTEGER,SAVE :: nid_start 
+    INTEGER,SAVE :: nid_restart
+    
+    INTEGER,SAVE :: idim1,idim2,idim3,idim4
+    INTEGER,PARAMETER :: length=100
+    
+    INTERFACE get_field
+      MODULE PROCEDURE Get_field_r1,Get_field_r2,Get_field_r3
+    END INTERFACE get_field
+    
+    INTERFACE get_var
+      MODULE PROCEDURE get_var_r0,Get_var_r1,Get_var_r2,Get_var_r3
+    END INTERFACE get_var
+
+    INTERFACE put_field
+      MODULE PROCEDURE put_field_r1,put_field_r2,put_field_r3
+    END INTERFACE put_field
+
+    INTERFACE put_var
+      MODULE PROCEDURE put_var_r0,put_var_r1,put_var_r2,put_var_r3
+    END INTERFACE put_var
+
+    PUBLIC get_field,get_var,put_field,put_var
+    PUBLIC Open_startphy,close_startphy,open_restartphy,close_restartphy
+    
+CONTAINS
+
+  SUBROUTINE Open_startphy(filename)
+  USE netcdf
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: filename
+    INTEGER          :: ierr
+
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      ierr = NF90_OPEN (filename, NF90_NOWRITE,nid_start)
+      IF (ierr.NE.NF90_NOERR) THEN
+        write(6,*)' Pb d''ouverture du fichier '//filename
+        write(6,*)' ierr = ', ierr
+        CALL abort_physic("", "", 1)
+      ENDIF
+    ENDIF
+   
+  END SUBROUTINE Open_startphy
+
+  SUBROUTINE Close_startphy
+  USE netcdf
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+    INTEGER          :: ierr
+
+    IF (is_mpi_root .AND. is_omp_root) THEN
+        ierr = NF90_CLOSE (nid_start)
+    ENDIF
+
+  END SUBROUTINE close_startphy
+
+
+  FUNCTION Inquire_Field(Field_name)
+  USE netcdf
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: Field_name
+    LOGICAL :: inquire_field
+    INTEGER :: varid
+    INTEGER :: ierr
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      ierr=NF90_INQ_VARID(nid_start,Field_name,varid)
+      IF (ierr==NF90_NOERR) THEN
+        Inquire_field=.TRUE.
+      ELSE
+        Inquire_field=.FALSE.
+      ENDIF
+    ENDIF
+
+    CALL bcast(Inquire_field)
+
+  END FUNCTION Inquire_Field
+  
+ 
+  SUBROUTINE Get_Field_r1(field_name,field,found)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN)    :: Field_name
+    REAL,INTENT(INOUT)               :: Field(:)
+    LOGICAL,INTENT(OUT),OPTIONAL   :: found 
+
+    IF (PRESENT(found)) THEN
+      CALL Get_field_rgen(field_name,field,1,found)
+    ELSE
+      CALL Get_field_rgen(field_name,field,1)
+    ENDIF
+      
+  END SUBROUTINE Get_Field_r1
+  
+  SUBROUTINE Get_Field_r2(field_name,field,found)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN)    :: Field_name
+    REAL,INTENT(INOUT)               :: Field(:,:)
+    LOGICAL,INTENT(OUT),OPTIONAL   :: found 
+
+    IF (PRESENT(found)) THEN
+      CALL Get_field_rgen(field_name,field,size(field,2),found)
+    ELSE
+      CALL Get_field_rgen(field_name,field,size(field,2))
+    ENDIF
+
+      
+  END SUBROUTINE Get_Field_r2
+  
+  SUBROUTINE Get_Field_r3(field_name,field,found)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN)    :: Field_name
+    REAL,INTENT(INOUT)               :: Field(:,:,:)
+    LOGICAL,INTENT(OUT),OPTIONAL   :: found 
+
+    IF (PRESENT(found)) THEN
+      CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3),found)
+    ELSE
+      CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3))
+    ENDIF
+      
+  END SUBROUTINE Get_Field_r3
+  
+  SUBROUTINE Get_field_rgen(field_name,field,field_size,found)
+  USE netcdf
+  USE dimphy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: Field_name
+    INTEGER          :: field_size
+    REAL             :: field(klon,field_size)
+    LOGICAL,OPTIONAL :: found
+    
+    REAL    :: field_glo(klon_glo,field_size)
+    LOGICAL :: tmp_found
+    INTEGER :: varid
+    INTEGER :: ierr
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+  
+      ierr=NF90_INQ_VARID(nid_start,Field_name,varid)
+      
+      IF (ierr==NF90_NOERR) THEN
+        CALL body(field_glo)
+        tmp_found=.TRUE.
+      ELSE
+        tmp_found=.FALSE.
+      ENDIF
+    
+    ENDIF
+    
+    CALL bcast(tmp_found)
+
+    IF (tmp_found) THEN
+      CALL scatter(field_glo,field)
+    ENDIF
+    
+    IF (PRESENT(found)) THEN
+      found=tmp_found
+    ELSE
+      IF (.NOT. tmp_found) THEN
+        PRINT*, 'phyetat0: Le champ <'//field_name//'> est absent'
+        call abort_physic("", "", 1)
+      ENDIF
+    ENDIF
+ 
+    
+    CONTAINS
+     
+     SUBROUTINE body(field_glo)
+       REAL :: field_glo(klon_glo*field_size)
+         ierr=NF90_GET_VAR(nid_start,varid,field_glo)
+         IF (ierr/=NF90_NOERR) THEN
+           ! La variable exist dans le fichier mais la lecture a echouee. 
+           PRINT*, 'phyetat0: Lecture echouee pour <'//field_name//'>'
+
+           IF (field_name=='CLWCON' .OR. field_name=='RNEBCON' .OR. field_name=='RATQS') THEN
+              ! Essaye de lire le variable sur surface uniqument, comme fait avant
+              field_glo(:)=0.
+              ierr=NF90_GET_VAR(nid_start,varid,field_glo(1:klon_glo))
+              IF (ierr/=NF90_NOERR) THEN
+                 PRINT*, 'phyetat0: Lecture echouee aussi en 2D pour <'//field_name//'>'
+                 call abort_physic("", "", 1)
+              ELSE
+                 PRINT*, 'phyetat0: La variable <'//field_name//'> lu sur surface seulement'!, selon ancien format, le reste mis a zero'
+              END IF
+           ELSE
+              call abort_physic("", "", 1)
+           ENDIF
+         ENDIF
+
+     END SUBROUTINE body
+
+  END SUBROUTINE Get_field_rgen
+  
+
+  SUBROUTINE get_var_r0(var_name,var,found)
+  IMPLICIT NONE  
+    CHARACTER(LEN=*),INTENT(IN)  :: var_name
+    REAL,INTENT(INOUT)             :: var
+    LOGICAL,OPTIONAL,INTENT(OUT) :: found
+
+    REAL                         :: varout(1)
+    
+    IF (PRESENT(found)) THEN
+      CALL Get_var_rgen(var_name,varout,size(varout),found)
+    ELSE
+      CALL Get_var_rgen(var_name,varout,size(varout))
+    ENDIF
+    var=varout(1)
+ 
+  END SUBROUTINE get_var_r0
+
+  SUBROUTINE get_var_r1(var_name,var,found)
+  IMPLICIT NONE  
+    CHARACTER(LEN=*),INTENT(IN)  :: var_name
+    REAL,INTENT(INOUT)             :: var(:)
+    LOGICAL,OPTIONAL,INTENT(OUT) :: found
+    
+    IF (PRESENT(found)) THEN
+      CALL Get_var_rgen(var_name,var,size(var),found)
+    ELSE
+      CALL Get_var_rgen(var_name,var,size(var))
+    ENDIF
+  
+  END SUBROUTINE get_var_r1
+
+  SUBROUTINE get_var_r2(var_name,var,found)
+  IMPLICIT NONE  
+    CHARACTER(LEN=*),INTENT(IN)  :: var_name
+    REAL,INTENT(OUT)             :: var(:,:)
+    LOGICAL,OPTIONAL,INTENT(OUT) :: found
+    
+    IF (PRESENT(found)) THEN
+      CALL Get_var_rgen(var_name,var,size(var),found)
+    ELSE
+      CALL Get_var_rgen(var_name,var,size(var))
+    ENDIF
+  
+  END SUBROUTINE get_var_r2
+
+  SUBROUTINE get_var_r3(var_name,var,found)
+  IMPLICIT NONE  
+    CHARACTER(LEN=*),INTENT(IN)  :: var_name
+    REAL,INTENT(INOUT)             :: var(:,:,:)
+    LOGICAL,OPTIONAL,INTENT(OUT) :: found
+    
+    IF (PRESENT(found)) THEN
+      CALL Get_var_rgen(var_name,var,size(var),found)
+    ELSE
+      CALL Get_var_rgen(var_name,var,size(var))
+    ENDIF
+  
+  END SUBROUTINE get_var_r3
+
+  SUBROUTINE Get_var_rgen(var_name,var,var_size,found)
+  USE netcdf
+  USE dimphy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: var_name
+    INTEGER          :: var_size
+    REAL             :: var(var_size)
+    LOGICAL,OPTIONAL :: found
+    
+    LOGICAL :: tmp_found
+    INTEGER :: varid
+    INTEGER :: ierr
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+  
+      ierr=NF90_INQ_VARID(nid_start,var_name,varid)
+      
+      IF (ierr==NF90_NOERR) THEN
+        ierr=NF90_GET_VAR(nid_start,varid,var)
+        IF (ierr/=NF90_NOERR) THEN
+          PRINT*, 'phyetat0: Lecture echouee pour <'//var_name//'>'
+          call abort_physic("", "", 1)
+        ENDIF
+        tmp_found=.TRUE.
+      ELSE
+        tmp_found=.FALSE.
+      ENDIF
+    
+    ENDIF
+    
+    CALL bcast(tmp_found)
+
+    IF (tmp_found) THEN
+      CALL bcast(var)
+    ENDIF
+    
+    IF (PRESENT(found)) THEN
+      found=tmp_found
+    ELSE
+      IF (.NOT. tmp_found) THEN
+        PRINT*, 'phyetat0: La variable champ <'//var_name//'> est absente'
+        call abort_physic("", "", 1)
+      ENDIF
+    ENDIF
+
+  END SUBROUTINE Get_var_rgen
+
+
+  SUBROUTINE open_restartphy(filename)
+  USE netcdf
+  USE mod_phys_lmdz_para
+  USE mod_grid_phy_lmdz
+  USE dimphy
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: filename
+    INTEGER                     :: ierr
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      ierr = NF90_CREATE(filename, NF90_CLOBBER, nid_restart)
+      IF (ierr/=NF90_NOERR) THEN
+        write(6,*)' Pb d''ouverture du fichier '//filename
+        write(6,*)' ierr = ', ierr
+        CALL abort_physic("", "", 1)
+      ENDIF
+
+      ierr = NF90_PUT_ATT (nid_restart, NF90_GLOBAL, "title","Fichier redemmarage physique")
+
+      ierr = NF90_DEF_DIM (nid_restart, "index", length, idim1)
+      ierr = NF90_DEF_DIM (nid_restart, "points_physiques", klon_glo, idim2)
+      ierr = NF90_DEF_DIM (nid_restart, "horizon_vertical", klon_glo*klev, idim3)
+      ierr = NF90_DEF_DIM (nid_restart, "horizon_klevp1", klon_glo*klevp1, idim4)
+
+      ierr = NF90_ENDDEF(nid_restart)
+    ENDIF
+
+  END SUBROUTINE open_restartphy
+  
+  SUBROUTINE close_restartphy
+  USE netcdf
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+    INTEGER          :: ierr
+
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      ierr = NF90_CLOSE (nid_restart)
+    ENDIF
+ 
+  END SUBROUTINE close_restartphy
+
+  
+  SUBROUTINE put_field_r1(field_name,title,field)
+  IMPLICIT NONE
+  CHARACTER(LEN=*),INTENT(IN)    :: field_name
+  CHARACTER(LEN=*),INTENT(IN)    :: title
+  REAL,INTENT(IN)                :: field(:)
+  
+    CALL put_field_rgen(field_name,title,field,1)
+  
+  END SUBROUTINE put_field_r1
+
+  SUBROUTINE put_field_r2(field_name,title,field)
+  IMPLICIT NONE
+  CHARACTER(LEN=*),INTENT(IN)    :: field_name
+  CHARACTER(LEN=*),INTENT(IN)    :: title
+  REAL,INTENT(IN)                :: field(:,:)
+  
+    CALL put_field_rgen(field_name,title,field,size(field,2))
+  
+  END SUBROUTINE put_field_r2
+
+  SUBROUTINE put_field_r3(field_name,title,field)
+  IMPLICIT NONE
+  CHARACTER(LEN=*),INTENT(IN)    :: field_name
+  CHARACTER(LEN=*),INTENT(IN)    :: title
+  REAL,INTENT(IN)                :: field(:,:,:)
+  
+    CALL put_field_rgen(field_name,title,field,size(field,2)*size(field,3))
+  
+  END SUBROUTINE put_field_r3
+  
+  SUBROUTINE put_field_rgen(field_name,title,field,field_size)
+  USE netcdf
+  USE dimphy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+  CHARACTER(LEN=*),INTENT(IN)    :: field_name
+  CHARACTER(LEN=*),INTENT(IN)    :: title
+  INTEGER,INTENT(IN)             :: field_size
+  REAL,INTENT(IN)                :: field(klon,field_size)
+  
+  REAL                           :: field_glo(klon_glo,field_size)
+  INTEGER                        :: ierr
+  INTEGER                        :: nvarid
+  INTEGER                        :: idim
+   
+   
+    CALL gather(field,field_glo)
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+
+      IF (field_size==1) THEN
+        idim=idim2
+      ELSE IF (field_size==klev) THEN
+        idim=idim3
+      ELSE IF (field_size==klevp1) THEN
+        idim=idim4
+      ELSE
+        PRINT *, "erreur phyredem : probleme de dimension"
+        CALL abort_physic("", "", 1)
+      ENDIF
+         
+      ierr = NF90_REDEF (nid_restart)
+#ifdef NC_DOUBLE
+      ierr = NF90_DEF_VAR (nid_restart, field_name, NF90_DOUBLE,(/ idim /),nvarid)
+#else
+      ierr = NF90_DEF_VAR (nid_restart, field_name, NF90_FLOAT,(/ idim /),nvarid)
+#endif
+      IF (LEN_TRIM(title) > 0) ierr = NF90_PUT_ATT (nid_restart,nvarid,"title", title)
+      ierr = NF90_ENDDEF(nid_restart)
+      ierr = NF90_PUT_VAR(nid_restart,nvarid,RESHAPE(field_glo,(/klon_glo*field_size/)))
+    ENDIF
+    
+   END SUBROUTINE put_field_rgen  
+  
+   SUBROUTINE put_var_r0(var_name,title,var)
+   IMPLICIT NONE
+     CHARACTER(LEN=*),INTENT(IN) :: var_name
+     CHARACTER(LEN=*),INTENT(IN) :: title
+     REAL,INTENT(IN)             :: var
+     REAL                        :: varin(1)
+     
+     varin(1)=var
+     
+     CALL put_var_rgen(var_name,title,varin,size(varin))
+
+  END SUBROUTINE put_var_r0
+
+
+   SUBROUTINE put_var_r1(var_name,title,var)
+   IMPLICIT NONE
+     CHARACTER(LEN=*),INTENT(IN) :: var_name
+     CHARACTER(LEN=*),INTENT(IN) :: title
+     REAL,INTENT(IN)             :: var(:)
+     
+     CALL put_var_rgen(var_name,title,var,size(var))
+
+  END SUBROUTINE put_var_r1
+ 
+  SUBROUTINE put_var_r2(var_name,title,var)
+   IMPLICIT NONE
+     CHARACTER(LEN=*),INTENT(IN) :: var_name
+     CHARACTER(LEN=*),INTENT(IN) :: title
+     REAL,INTENT(IN)             :: var(:,:)
+     
+     CALL put_var_rgen(var_name,title,var,size(var))
+
+  END SUBROUTINE put_var_r2     
+  
+  SUBROUTINE put_var_r3(var_name,title,var)
+   IMPLICIT NONE
+     CHARACTER(LEN=*),INTENT(IN) :: var_name
+     CHARACTER(LEN=*),INTENT(IN) :: title
+     REAL,INTENT(IN)             :: var(:,:,:)
+     
+     CALL put_var_rgen(var_name,title,var,size(var))
+
+  END SUBROUTINE put_var_r3
+
+  SUBROUTINE put_var_rgen(var_name,title,var,var_size)
+  USE netcdf
+  USE dimphy
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+     CHARACTER(LEN=*),INTENT(IN) :: var_name
+     CHARACTER(LEN=*),INTENT(IN) :: title
+     INTEGER,INTENT(IN)          :: var_size
+     REAL,INTENT(IN)             :: var(var_size)
+     
+     INTEGER :: ierr
+     INTEGER :: nvarid
+         
+    IF (is_mpi_root .AND. is_omp_root) THEN
+
+      IF (var_size/=length) THEN
+        PRINT *, "erreur phyredem : probleme de dimension"
+        call abort_physic("", "", 1)
+      ENDIF
+      
+      ierr = NF90_REDEF (nid_restart)
+
+#ifdef NC_DOUBLE
+      ierr = NF90_DEF_VAR (nid_restart, var_name, NF90_DOUBLE,(/ idim1 /),nvarid)
+#else
+      ierr = NF90_DEF_VAR (nid_restart, var_name, NF90_FLOAT,(/ idim1 /),nvarid)
+#endif
+      IF (LEN_TRIM(title)>0) ierr = NF90_PUT_ATT (nid_restart,nvarid,"title", title)
+      ierr = NF90_ENDDEF(nid_restart)
+     
+      ierr = NF90_PUT_VAR(nid_restart,nvarid,var)
+
+    ENDIF
+    
+  END SUBROUTINE put_var_rgen     
+    
+END MODULE iostart
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd.h	(revision 3330)
@@ -0,0 +1,16 @@
+!=======================================================================
+!
+!   Auteur:  F. Hourdin
+!   -------
+!
+!   Objet:
+!   ------
+!   Light interface for netcdf outputs. can be used outside LMDZ
+!
+!=======================================================================
+
+      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/IPSLCM5A2.1_ISO/libf/phylmd/iotd_ecrit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_ecrit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_ecrit.F90	(revision 3330)
@@ -0,0 +1,180 @@
+      subroutine iotd_ecrit(nom,llm,titre,unite,px)
+
+
+!=======================================================================
+!
+!   Auteur:  F. Hourdin
+!   -------
+!
+!   Objet:
+!   ------
+!   Light interface for netcdf outputs. can be used outside LMDZ
+!
+!=======================================================================
+!-----------------------------------------------------------------------
+!  ----------
+!      nom  : nom de la variable a sortir (chaine de caracteres)
+!      llm  : nombre de couches
+!      titre: titre de la variable (chaine de caracteres)
+!      unite : unite de la variable (chaine de caracteres)
+!      px : variable a sortir
+!
+!=================================================================
+ 
+      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/IPSLCM5A2.1_ISO/libf/phylmd/iotd_fin.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_fin.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_fin.F90	(revision 3330)
@@ -0,0 +1,25 @@
+      SUBROUTINE iotd_fin
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Auteur:  F. Hourdin
+!   -------
+!
+!   Objet:
+!   ------
+!   Light interface for netcdf outputs. can be used outside LMDZ
+!
+!=======================================================================
+
+
+#include "netcdf.inc"
+#include "iotd.h"
+      integer ierr
+
+!   Arguments:
+!   ----------
+
+      ierr=NF_close(nid)
+
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_ini.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_ini.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/iotd_ini.F90	(revision 3330)
@@ -0,0 +1,116 @@
+      SUBROUTINE iotd_ini(fichnom,iim,jjm,llm,prlonv,prlatu,pcoordv)
+      IMPLICIT NONE
+
+!=======================================================================
+!
+!   Auteur:  F. Hourdin
+!   -------
+!
+!   Objet:
+!   ------
+!   Light interface for netcdf outputs. can be used outside LMDZ
+!
+!=======================================================================
+!-----------------------------------------------------------------------
+!   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/IPSLCM5A2.1_ISO/libf/phylmd/isccp_cloud_types.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/isccp_cloud_types.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/isccp_cloud_types.F90	(revision 3330)
@@ -0,0 +1,1611 @@
+
+! $Id $
+
+SUBROUTINE isccp_cloud_types(debug, debugcol, npoints, sunlit, nlev, ncol, &
+    seed, pfull, phalf, qv, cc, conv, dtau_s, dtau_c, top_height, overlap, &
+    tautab, invtau, skt, emsfc_lw, at, dem_s, dem_c, fq_isccp, totalcldarea, &
+    meanptop, meantaucld, boxtau, boxptop)
+
+
+  ! Copyright Steve Klein and Mark Webb 2002 - all rights reserved.
+
+  ! This code is available without charge with the following conditions:
+
+  ! 1. The code is available for scientific purposes and is not for
+  ! commercial use.
+  ! 2. Any improvements you make to the code should be made available
+  ! to the to the authors for incorporation into a future release.
+  ! 3. The code should not be used in any way that brings the authors
+  ! or their employers into disrepute.
+
+  IMPLICIT NONE
+
+  ! NOTE:   the maximum number of levels and columns is set by
+  ! the following parameter statement
+
+  INTEGER ncolprint
+
+  ! -----
+  ! Input
+  ! -----
+
+  INTEGER npoints !  number of model points in the horizontal
+  ! PARAMETER(npoints=6722)
+  INTEGER nlev !  number of model levels in column
+  INTEGER ncol !  number of subcolumns
+
+  INTEGER sunlit(npoints) !  1 for day points, 0 for night time
+
+  INTEGER seed(npoints) !  seed value for random number generator
+  ! !  ( see Numerical Recipes Chapter 7)
+  ! !  It is recommended that the seed is set
+  ! !  to a different value for each model
+  ! !  gridbox it is called on, as it is
+  ! !  possible that the choice of the samec
+  ! !  seed value every time may introduce some
+  ! !  statistical bias in the results, particularly
+  ! !  for low values of NCOL.
+
+  REAL pfull(npoints, nlev) !  pressure of full model levels (Pascals)
+  ! !  pfull(npoints,1)    is    top level of model
+  ! !  pfull(npoints,nlev) is bottom level of model
+
+  REAL phalf(npoints, nlev+1) !  pressure of half model levels (Pascals)
+  ! !  phalf(npoints,1)    is    top       of model
+  ! !  phalf(npoints,nlev+1) is the surface pressure
+
+  REAL qv(npoints, nlev) !  water vapor specific humidity (kg vapor/ kg air)
+  ! !         on full model levels
+
+  REAL cc(npoints, nlev) !  input cloud cover in each model level (fraction)
+  ! !  NOTE:  This is the HORIZONTAL area of each
+  ! !         grid box covered by clouds
+
+  REAL conv(npoints, nlev) !  input convective cloud cover in each model level (fraction)
+  ! !  NOTE:  This is the HORIZONTAL area of each
+  ! !         grid box covered by convective clouds
+
+  REAL dtau_s(npoints, nlev) !  mean 0.67 micron optical depth of stratiform
+  ! !  clouds in each model level
+  ! !  NOTE:  this the cloud optical depth of only the
+  ! !         cloudy part of the grid box, it is not weighted
+  ! !         with the 0 cloud optical depth of the clear
+  ! !         part of the grid box
+
+  REAL dtau_c(npoints, nlev) !  mean 0.67 micron optical depth of convective
+  ! !  clouds in each
+  ! !  model level.  Same note applies as in dtau_s.
+
+  INTEGER overlap !  overlap type
+
+  ! 1=max
+
+  ! 2=rand
+  ! 3=max/rand
+
+  INTEGER top_height !  1 = adjust top height using both a computed
+  ! !  infrared brightness temperature and the visible
+  ! !  optical depth to adjust cloud top pressure. Note
+  ! !  that this calculation is most appropriate to compare
+  ! !  to ISCCP data during sunlit hours.
+  ! !  2 = do not adjust top height, that is cloud top
+  ! !  pressure is the actual cloud top pressure
+  ! !  in the model
+  ! !  3 = adjust top height using only the computed
+  ! !  infrared brightness temperature. Note that this
+  ! !  calculation is most appropriate to compare to ISCCP
+  ! !  IR only algortihm (i.e. you can compare to nighttime
+  ! !  ISCCP data with this option)
+
+  REAL tautab(0:255) !  ISCCP table for converting count value to
+  ! !  optical thickness
+
+  INTEGER invtau(-20:45000) !  ISCCP table for converting optical thickness
+  ! !  to count value
+
+  ! The following input variables are used only if top_height = 1 or
+  ! top_height = 3
+
+  REAL skt(npoints) !  skin Temperature (K)
+  REAL emsfc_lw !  10.5 micron emissivity of surface (fraction)
+  REAL at(npoints, nlev) !  temperature in each model level (K)
+  REAL dem_s(npoints, nlev) !  10.5 micron longwave emissivity of stratiform
+  ! !  clouds in each
+  ! !  model level.  Same note applies as in dtau_s.
+  REAL dem_c(npoints, nlev) !  10.5 micron longwave emissivity of convective
+  ! !  clouds in each
+  ! !  model level.  Same note applies as in dtau_s.
+  ! IM reg.dyn BEG
+  REAL t1, t2
+  ! REAL w(npoints)                   !vertical wind at 500 hPa
+  ! LOGICAL pct_ocean(npoints)        !TRUE if oceanic point, FALSE otherway
+  ! INTEGER iw(npoints) , nw
+  ! REAL wmin, pas_w
+  ! INTEGER k, l, iwmx
+  ! PARAMETER(wmin=-100.,pas_w=10.,iwmx=30)
+  ! REAL fq_dynreg(7,7,iwmx)
+  ! REAL nfq_dynreg(7,7,iwmx)
+  ! LOGICAL pctj(7,7,iwmx)
+  ! IM reg.dyn END
+  ! ------
+  ! Output
+  ! ------
+
+  REAL fq_isccp(npoints, 7, 7) !  the fraction of the model grid box covered by
+  ! !  each of the 49 ISCCP D level cloud types
+
+  REAL totalcldarea(npoints) !  the fraction of model grid box columns
+  ! !  with cloud somewhere in them.  This should
+  ! !  equal the sum over all entries of fq_isccp
+
+
+  ! ! The following three means are averages over the cloudy areas only.  If
+  ! no
+  ! ! clouds are in grid box all three quantities should equal zero.
+
+  REAL meanptop(npoints) !  mean cloud top pressure (mb) - linear averaging
+  ! !  in cloud top pressure.
+
+  REAL meantaucld(npoints) !  mean optical thickness
+  ! !  linear averaging in albedo performed.
+
+  REAL boxtau(npoints, ncol) !  optical thickness in each column
+
+  REAL boxptop(npoints, ncol) !  cloud top pressure (mb) in each column
+
+
+
+  ! ------
+  ! Working variables added when program updated to mimic Mark Webb's PV-Wave
+  ! code
+  ! ------
+
+  REAL frac_out(npoints, ncol, nlev) ! boxes gridbox divided up into
+  ! ! Equivalent of BOX in original version, but
+  ! ! indexed by column then row, rather than
+  ! ! by row then column
+
+  REAL tca(npoints, 0:nlev) ! total cloud cover in each model level (fraction)
+  ! ! with extra layer of zeroes on top
+  ! ! in this version this just contains the values input
+  ! ! from cc but with an extra level
+  REAL cca(npoints, nlev) ! convective cloud cover in each model level (fraction)
+  ! ! from conv
+
+  REAL threshold(npoints, ncol) ! pointer to position in gridbox
+  REAL maxocc(npoints, ncol) ! Flag for max overlapped conv cld
+  REAL maxosc(npoints, ncol) ! Flag for max overlapped strat cld
+
+  REAL boxpos(npoints, ncol) ! ordered pointer to position in gridbox
+
+  REAL threshold_min(npoints, ncol) ! minimum value to define range in with new threshold
+  ! ! is chosen
+
+  REAL dem(npoints, ncol), bb(npoints) !  working variables for 10.5 micron longwave
+  ! !  emissivity in part of
+  ! !  gridbox under consideration
+
+  REAL ran(npoints) ! vector of random numbers
+  REAL ptrop(npoints)
+  REAL attrop(npoints)
+  REAL attropmin(npoints)
+  REAL atmax(npoints)
+  REAL atmin(npoints)
+  REAL btcmin(npoints)
+  REAL transmax(npoints)
+
+  INTEGER i, j, ilev, ibox, itrop(npoints)
+  INTEGER ipres(npoints)
+  INTEGER itau(npoints), ilev2
+  INTEGER acc(nlev, ncol)
+  INTEGER match(npoints, nlev-1)
+  INTEGER nmatch(npoints)
+  INTEGER levmatch(npoints, ncol)
+
+  ! !variables needed for water vapor continuum absorption
+  REAL fluxtop_clrsky(npoints), trans_layers_above_clrsky(npoints)
+  REAL taumin(npoints)
+  REAL dem_wv(npoints, nlev), wtmair, wtmh20, navo, grav, pstd, t0
+  REAL press(npoints), dpress(npoints), atmden(npoints)
+  REAL rvh20(npoints), wk(npoints), rhoave(npoints)
+  REAL rh20s(npoints), rfrgn(npoints)
+  REAL tmpexp(npoints), tauwv(npoints)
+
+  CHARACTER *1 cchar(6), cchar_realtops(6)
+  INTEGER icycle
+  REAL tau(npoints, ncol)
+  LOGICAL box_cloudy(npoints, ncol)
+  REAL tb(npoints, ncol)
+  REAL ptop(npoints, ncol)
+  REAL emcld(npoints, ncol)
+  REAL fluxtop(npoints, ncol)
+  REAL trans_layers_above(npoints, ncol)
+  REAL isccp_taumin, fluxtopinit(npoints), tauir(npoints)
+  REAL meanalbedocld(npoints)
+  REAL albedocld(npoints, ncol)
+  REAL boxarea
+  INTEGER debug ! set to non-zero value to print out inputs
+  ! ! with step debug
+  INTEGER debugcol ! set to non-zero value to print out column
+  ! ! decomposition with step debugcol
+
+  INTEGER index1(npoints), num1, jj
+  REAL rec2p13, tauchk
+
+  CHARACTER *10 ftn09
+
+  DATA isccp_taumin/0.3/
+  DATA cchar/' ', '-', '1', '+', 'I', '+'/
+  DATA cchar_realtops/' ', ' ', '1', '1', 'I', 'I'/
+
+  tauchk = -1.*log(0.9999999)
+  rec2p13 = 1./2.13
+
+  ncolprint = 0
+
+  ! IM
+  ! PRINT*,' isccp_cloud_types npoints=',npoints
+
+  ! if ( debug.ne.0 ) then
+  ! j=1
+  ! write(6,'(a10)') 'j='
+  ! write(6,'(8I10)') j
+  ! write(6,'(a10)') 'debug='
+  ! write(6,'(8I10)') debug
+  ! write(6,'(a10)') 'debugcol='
+  ! write(6,'(8I10)') debugcol
+  ! write(6,'(a10)') 'npoints='
+  ! write(6,'(8I10)') npoints
+  ! write(6,'(a10)') 'nlev='
+  ! write(6,'(8I10)') nlev
+  ! write(6,'(a10)') 'ncol='
+  ! write(6,'(8I10)') ncol
+  ! write(6,'(a10)') 'top_height='
+  ! write(6,'(8I10)') top_height
+  ! write(6,'(a10)') 'overlap='
+  ! write(6,'(8I10)') overlap
+  ! write(6,'(a10)') 'emsfc_lw='
+  ! write(6,'(8f10.2)') emsfc_lw
+  ! write(6,'(a10)') 'tautab='
+  ! write(6,'(8f10.2)') tautab
+  ! write(6,'(a10)') 'invtau(1:100)='
+  ! write(6,'(8i10)') (invtau(i),i=1,100)
+  ! do j=1,npoints,debug
+  ! write(6,'(a10)') 'j='
+  ! write(6,'(8I10)') j
+  ! write(6,'(a10)') 'sunlit='
+  ! write(6,'(8I10)') sunlit(j)
+  ! write(6,'(a10)') 'seed='
+  ! write(6,'(8I10)') seed(j)
+  ! write(6,'(a10)') 'pfull='
+  ! write(6,'(8f10.2)') (pfull(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'phalf='
+  ! write(6,'(8f10.2)') (phalf(j,i),i=1,nlev+1)
+  ! write(6,'(a10)') 'qv='
+  ! write(6,'(8f10.3)') (qv(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'cc='
+  ! write(6,'(8f10.3)') (cc(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'conv='
+  ! write(6,'(8f10.2)') (conv(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'dtau_s='
+  ! write(6,'(8g12.5)') (dtau_s(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'dtau_c='
+  ! write(6,'(8f10.2)') (dtau_c(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'skt='
+  ! write(6,'(8f10.2)') skt(j)
+  ! write(6,'(a10)') 'at='
+  ! write(6,'(8f10.2)') (at(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'dem_s='
+  ! write(6,'(8f10.3)') (dem_s(j,i),i=1,nlev)
+  ! write(6,'(a10)') 'dem_c='
+  ! write(6,'(8f10.2)') (dem_c(j,i),i=1,nlev)
+  ! enddo
+  ! endif
+
+  ! ---------------------------------------------------!
+
+  ! assign 2d tca array using 1d input array cc
+
+  DO j = 1, npoints
+    tca(j, 0) = 0
+  END DO
+
+  DO ilev = 1, nlev
+    DO j = 1, npoints
+      tca(j, ilev) = cc(j, ilev)
+    END DO
+  END DO
+
+  ! assign 2d cca array using 1d input array conv
+
+  DO ilev = 1, nlev
+    ! IM pas besoin        do ibox=1,ncol
+    DO j = 1, npoints
+      cca(j, ilev) = conv(j, ilev)
+    END DO
+    ! IM        enddo
+  END DO
+
+  ! IM
+  ! do j=1, iwmx
+  ! do l=1, 7
+  ! do k=1, 7
+  ! fq_dynreg(k,l,j) =0.
+  ! nfq_dynreg(k,l,j) =0.
+  ! enddo !k
+  ! enddo !l
+  ! enddo !j
+  ! IM
+  ! IM
+  ! if (ncolprint.ne.0) then
+  ! do j=1,npoints,1000
+  ! write(6,'(a10)') 'j='
+  ! write(6,'(8I10)') j
+  ! write (6,'(a)') 'seed:'
+  ! write (6,'(I3.2)') seed(j)
+
+  ! write (6,'(a)') 'tca_pp_rev:'
+  ! write (6,'(8f5.2)')
+  ! &   ((tca(j,ilev)),
+  ! &      ilev=1,nlev)
+
+  ! write (6,'(a)') 'cca_pp_rev:'
+  ! write (6,'(8f5.2)')
+  ! &   ((cca(j,ilev),ibox=1,ncolprint),ilev=1,nlev)
+  ! enddo
+  ! endif
+
+  IF (top_height==1 .OR. top_height==3) THEN
+
+    DO j = 1, npoints
+      ptrop(j) = 5000.
+      atmin(j) = 400.
+      attropmin(j) = 400.
+      atmax(j) = 0.
+      attrop(j) = 120.
+      itrop(j) = 1
+    END DO
+
+    DO ilev = 1, nlev
+      DO j = 1, npoints
+        IF (pfull(j,ilev)<40000. .AND. pfull(j,ilev)>5000. .AND. &
+            at(j,ilev)<attropmin(j)) THEN
+          ptrop(j) = pfull(j, ilev)
+          attropmin(j) = at(j, ilev)
+          attrop(j) = attropmin(j)
+          itrop(j) = ilev
+        END IF
+        IF (at(j,ilev)>atmax(j)) atmax(j) = at(j, ilev)
+        IF (at(j,ilev)<atmin(j)) atmin(j) = at(j, ilev)
+      END DO
+    END DO
+
+  END IF
+
+  ! -----------------------------------------------------!
+
+  ! ---------------------------------------------------!
+
+  ! IM
+  ! do 13 ilev=1,nlev
+  ! num1=0
+  ! do j=1,npoints
+  ! if (cc(j,ilev) .lt. 0. .or. cc(j,ilev) .gt. 1.) then
+  ! num1=num1+1
+  ! index1(num1)=j
+  ! end if
+  ! enddo
+  ! do jj=1,num1
+  ! j=index1(jj)
+  ! write(6,*)  ' error = cloud fraction less than zero'
+  ! write(6,*) ' or '
+  ! write(6,*)  ' error = cloud fraction greater than 1'
+  ! write(6,*) 'value at point ',j,' is ',cc(j,ilev)
+  ! write(6,*) 'level ',ilev
+  ! STOP
+  ! enddo
+  ! num1=0
+  ! do j=1,npoints
+  ! if (conv(j,ilev) .lt. 0. .or. conv(j,ilev) .gt. 1.) then
+  ! num1=num1+1
+  ! index1(num1)=j
+  ! end if
+  ! enddo
+  ! do jj=1,num1
+  ! j=index1(jj)
+  ! write(6,*)
+  ! &           ' error = convective cloud fraction less than zero'
+  ! write(6,*) ' or '
+  ! write(6,*)
+  ! &           ' error = convective cloud fraction greater than 1'
+  ! write(6,*) 'value at point ',j,' is ',conv(j,ilev)
+  ! write(6,*) 'level ',ilev
+  ! STOP
+  ! enddo
+
+  ! num1=0
+  ! do j=1,npoints
+  ! if (dtau_s(j,ilev) .lt. 0.) then
+  ! num1=num1+1
+  ! index1(num1)=j
+  ! end if
+  ! enddo
+  ! do jj=1,num1
+  ! j=index1(jj)
+  ! write(6,*)
+  ! &           ' error = stratiform cloud opt. depth less than zero'
+  ! write(6,*) 'value at point ',j,' is ',dtau_s(j,ilev)
+  ! write(6,*) 'level ',ilev
+  ! STOP
+  ! enddo
+  ! num1=0
+  ! do j=1,npoints
+  ! if (dtau_c(j,ilev) .lt. 0.) then
+  ! num1=num1+1
+  ! index1(num1)=j
+  ! end if
+  ! enddo
+  ! do jj=1,num1
+  ! j=index1(jj)
+  ! write(6,*)
+  ! &           ' error = convective cloud opt. depth less than zero'
+  ! write(6,*) 'value at point ',j,' is ',dtau_c(j,ilev)
+  ! write(6,*) 'level ',ilev
+  ! STOP
+  ! enddo
+
+  ! num1=0
+  ! do j=1,npoints
+  ! if (dem_s(j,ilev) .lt. 0. .or. dem_s(j,ilev) .gt. 1.) then
+  ! num1=num1+1
+  ! index1(num1)=j
+  ! end if
+  ! enddo
+  ! do jj=1,num1
+  ! j=index1(jj)
+  ! write(6,*)
+  ! &           ' error = stratiform cloud emissivity less than zero'
+  ! write(6,*)'or'
+  ! write(6,*)
+  ! &           ' error = stratiform cloud emissivity greater than 1'
+  ! write(6,*) 'value at point ',j,' is ',dem_s(j,ilev)
+  ! write(6,*) 'level ',ilev
+  ! STOP
+  ! enddo
+
+  ! num1=0
+  ! do j=1,npoints
+  ! if (dem_c(j,ilev) .lt. 0. .or. dem_c(j,ilev) .gt. 1.) then
+  ! num1=num1+1
+  ! index1(num1)=j
+  ! end if
+  ! enddo
+  ! do jj=1,num1
+  ! j=index1(jj)
+  ! write(6,*)
+  ! &           ' error = convective cloud emissivity less than zero'
+  ! write(6,*)'or'
+  ! write(6,*)
+  ! &           ' error = convective cloud emissivity greater than 1'
+  ! write (6,*)
+  ! &          'j=',j,'ilev=',ilev,'dem_c(j,ilev) =',dem_c(j,ilev)
+  ! STOP
+  ! enddo
+  ! 13    continue
+
+
+  DO ibox = 1, ncol
+    DO j = 1, npoints
+      boxpos(j, ibox) = (ibox-.5)/ncol
+    END DO
+  END DO
+
+  ! ---------------------------------------------------!
+  ! Initialise working variables
+  ! ---------------------------------------------------!
+
+  ! Initialised frac_out to zero
+
+  DO ilev = 1, nlev
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+        frac_out(j, ibox, ilev) = 0.0
+      END DO
+    END DO
+  END DO
+
+  ! IM
+  ! if (ncolprint.ne.0) then
+  ! write (6,'(a)') 'frac_out_pp_rev:'
+  ! do j=1,npoints,1000
+  ! write(6,'(a10)') 'j='
+  ! write(6,'(8I10)') j
+  ! write (6,'(8f5.2)')
+  ! &     ((frac_out(j,ibox,ilev),ibox=1,ncolprint),ilev=1,nlev)
+
+  ! enddo
+  ! write (6,'(a)') 'ncol:'
+  ! write (6,'(I3)') ncol
+  ! endif
+  ! if (ncolprint.ne.0) then
+  ! write (6,'(a)') 'last_frac_pp:'
+  ! do j=1,npoints,1000
+  ! write(6,'(a10)') 'j='
+  ! write(6,'(8I10)') j
+  ! write (6,'(8f5.2)') (tca(j,0))
+  ! enddo
+  ! endif
+
+  ! ---------------------------------------------------!
+  ! ALLOCATE CLOUD INTO BOXES, FOR NCOLUMNS, NLEVELS
+  ! frac_out is the array that contains the information
+  ! where 0 is no cloud, 1 is a stratiform cloud and 2 is a
+  ! convective cloud
+
+    !loop over vertical levels
+  DO ilev = 1, nlev
+
+    ! Initialise threshold
+
+    IF (ilev==1) THEN
+        ! If max overlap
+      IF (overlap==1) THEN
+          ! select pixels spread evenly
+          ! across the gridbox
+        DO ibox = 1, ncol
+          DO j = 1, npoints
+            threshold(j, ibox) = boxpos(j, ibox)
+          END DO
+        END DO
+      ELSE
+        DO ibox = 1, ncol
+          CALL ran0_vec(npoints, seed, ran)
+            ! select random pixels from the non-convective
+            ! part the gridbox ( some will be converted into
+            ! convective pixels below )
+          DO j = 1, npoints
+            threshold(j, ibox) = cca(j, ilev) + (1-cca(j,ilev))*ran(j)
+          END DO
+        END DO
+      END IF
+      ! IM
+      ! IF (ncolprint.ne.0) then
+      ! write (6,'(a)') 'threshold_nsf2:'
+      ! do j=1,npoints,1000
+      ! write(6,'(a10)') 'j='
+      ! write(6,'(8I10)') j
+      ! write (6,'(8f5.2)') (threshold(j,ibox),ibox=1,ncolprint)
+      ! enddo
+      ! ENDIF
+    END IF
+
+    ! IF (ncolprint.ne.0) then
+    ! write (6,'(a)') 'ilev:'
+    ! write (6,'(I2)') ilev
+    ! ENDIF
+
+    DO ibox = 1, ncol
+
+        ! All versions
+      DO j = 1, npoints
+        IF (boxpos(j,ibox)<=cca(j,ilev)) THEN
+          ! IM REAL           maxocc(j,ibox) = 1
+          maxocc(j, ibox) = 1.0
+        ELSE
+          ! IM REAL           maxocc(j,ibox) = 0
+          maxocc(j, ibox) = 0.0
+        END IF
+      END DO
+
+        ! Max overlap
+      IF (overlap==1) THEN
+        DO j = 1, npoints
+          threshold_min(j, ibox) = cca(j, ilev)
+          ! IM REAL           maxosc(j,ibox)=1
+          maxosc(j, ibox) = 1.0
+        END DO
+      END IF
+
+        ! Random overlap
+      IF (overlap==2) THEN
+        DO j = 1, npoints
+          threshold_min(j, ibox) = cca(j, ilev)
+          ! IM REAL           maxosc(j,ibox)=0
+          maxosc(j, ibox) = 0.0
+        END DO
+      END IF
+
+        ! Max/Random overlap
+      IF (overlap==3) THEN
+        DO j = 1, npoints
+          threshold_min(j, ibox) = max(cca(j,ilev), min(tca(j,ilev-1),tca(j, &
+            ilev)))
+          IF (threshold(j,ibox)<min(tca(j,ilev-1),tca(j, &
+              ilev)) .AND. (threshold(j,ibox)>cca(j,ilev))) THEN
+            ! IM REAL                maxosc(j,ibox)= 1
+            maxosc(j, ibox) = 1.0
+          ELSE
+            ! IM REAL                 maxosc(j,ibox)= 0
+            maxosc(j, ibox) = 0.0
+          END IF
+        END DO
+      END IF
+
+        ! Reset threshold
+      CALL ran0_vec(npoints, seed, ran)
+
+      DO j = 1, npoints
+        threshold(j, ibox) = &       !if max overlapped conv cloud
+          maxocc(j, ibox)*(boxpos(j,ibox)) + &   !else
+          (1-maxocc(j,ibox))*( &     !if max overlapped strat cloud
+          (maxosc(j,ibox))*( &       !threshold=boxpos
+          threshold(j,ibox))+ &      !else
+          (1-maxosc(j,ibox))*( &     !threshold_min=random[thrmin,1]
+          threshold_min(j,ibox)+(1-threshold_min(j,ibox))*ran(j)))
+      END DO
+
+    END DO ! ibox
+
+    ! Fill frac_out with 1's where tca is greater than the threshold
+
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+        IF (tca(j,ilev)>threshold(j,ibox)) THEN
+          ! IM REAL             frac_out(j,ibox,ilev)=1
+          frac_out(j, ibox, ilev) = 1.0
+        ELSE
+          ! IM REAL             frac_out(j,ibox,ilev)=0
+          frac_out(j, ibox, ilev) = 0.0
+        END IF
+      END DO
+    END DO
+
+    ! Code to partition boxes into startiform and convective parts
+    ! goes here
+
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+        IF (threshold(j,ibox)<=cca(j,ilev)) THEN
+            ! = 2 IF threshold le cca(j)
+          ! IM REAL                  frac_out(j,ibox,ilev) = 2
+          frac_out(j, ibox, ilev) = 2.0
+        ELSE
+            ! = the same IF NOT threshold le cca(j)
+          frac_out(j, ibox, ilev) = frac_out(j, ibox, ilev)
+        END IF
+      END DO
+    END DO
+
+    ! Set last_frac to tca at this level, so as to be tca
+    ! from last level next time round
+
+    ! IM
+    ! if (ncolprint.ne.0) then
+
+    ! do j=1,npoints ,1000
+    ! write(6,'(a10)') 'j='
+    ! write(6,'(8I10)') j
+    ! write (6,'(a)') 'last_frac:'
+    ! write (6,'(8f5.2)') (tca(j,ilev-1))
+
+    ! write (6,'(a)') 'cca:'
+    ! write (6,'(8f5.2)') (cca(j,ilev),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'max_overlap_cc:'
+    ! write (6,'(8f5.2)') (maxocc(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'max_overlap_sc:'
+    ! write (6,'(8f5.2)') (maxosc(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'threshold_min_nsf2:'
+    ! write (6,'(8f5.2)') (threshold_min(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'threshold_nsf2:'
+    ! write (6,'(8f5.2)') (threshold(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'frac_out_pp_rev:'
+    ! write (6,'(8f5.2)')
+    ! &       ((frac_out(j,ibox,ilev2),ibox=1,ncolprint),ilev2=1,nlev)
+    ! enddo
+    ! endif
+
+
+  END DO
+
+  ! ---------------------------------------------------!
+
+
+
+  ! ---------------------------------------------------!
+  ! COMPUTE CLOUD OPTICAL DEPTH FOR EACH COLUMN and
+  ! put into vector tau
+
+    !initialize tau and albedocld to zero
+  ! loop over nlev
+  DO ibox = 1, ncol
+    DO j = 1, npoints
+      tau(j, ibox) = 0.
+      albedocld(j, ibox) = 0.
+      boxtau(j, ibox) = 0.
+      boxptop(j, ibox) = 0.
+      box_cloudy(j, ibox) = .FALSE.
+    END DO
+  END DO
+
+    !compute total cloud optical depth for each column
+  DO ilev = 1, nlev
+      !increment tau for each of the boxes
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+        ! IM REAL              if (frac_out(j,ibox,ilev).eq.1) then
+        IF (frac_out(j,ibox,ilev)==1.0) THEN
+          tau(j, ibox) = tau(j, ibox) + dtau_s(j, ilev)
+        END IF
+        ! IM REAL              if (frac_out(j,ibox,ilev).eq.2) then
+        IF (frac_out(j,ibox,ilev)==2.0) THEN
+          tau(j, ibox) = tau(j, ibox) + dtau_c(j, ilev)
+        END IF
+      END DO
+    END DO ! ibox
+  END DO ! ilev
+  ! IM
+  ! if (ncolprint.ne.0) then
+
+  ! do j=1,npoints ,1000
+  ! write(6,'(a10)') 'j='
+  ! write(6,'(8I10)') j
+  ! write(6,'(i2,1X,8(f7.2,1X))')
+  ! &          ilev,
+  ! &          (tau(j,ibox),ibox=1,ncolprint)
+  ! enddo
+  ! endif
+
+  ! ---------------------------------------------------!
+
+
+
+
+  ! ---------------------------------------------------!
+  ! COMPUTE INFRARED BRIGHTNESS TEMPERUATRES
+  ! AND CLOUD TOP TEMPERATURE SATELLITE SHOULD SEE
+
+  ! again this is only done if top_height = 1 or 3
+
+  ! fluxtop is the 10.5 micron radiance at the top of the
+  ! atmosphere
+  ! trans_layers_above is the total transmissivity in the layers
+  ! above the current layer
+  ! fluxtop_clrsky(j) and trans_layers_above_clrsky(j) are the clear
+  ! sky versions of these quantities.
+
+  IF (top_height==1 .OR. top_height==3) THEN
+
+
+      !----------------------------------------------------------------------
+      !
+      !             DO CLEAR SKY RADIANCE CALCULATION FIRST
+      !
+      !compute water vapor continuum emissivity
+      !this treatment follows Schwarkzopf and Ramasamy
+      !JGR 1999,vol 104, pages 9467-9499.
+      !the emissivity is calculated at a wavenumber of 955 cm-1,
+      !or 10.47 microns
+    wtmair = 28.9644
+    wtmh20 = 18.01534
+    navo = 6.023E+23
+    grav = 9.806650E+02
+    pstd = 1.013250E+06
+    t0 = 296.
+    ! IM
+    ! if (ncolprint .ne. 0)
+    ! &         write(6,*)  'ilev   pw (kg/m2)   tauwv(j)      dem_wv'
+    DO ilev = 1, nlev
+      DO j = 1, npoints
+          !press and dpress are dyne/cm2 = Pascals *10
+        press(j) = pfull(j, ilev)*10.
+        dpress(j) = (phalf(j,ilev+1)-phalf(j,ilev))*10
+          !atmden = g/cm2 = kg/m2 / 10
+        atmden(j) = dpress(j)/grav
+        rvh20(j) = qv(j, ilev)*wtmair/wtmh20
+        wk(j) = rvh20(j)*navo*atmden(j)/wtmair
+        rhoave(j) = (press(j)/pstd)*(t0/at(j,ilev))
+        rh20s(j) = rvh20(j)*rhoave(j)
+        rfrgn(j) = rhoave(j) - rh20s(j)
+        tmpexp(j) = exp(-0.02*(at(j,ilev)-t0))
+        tauwv(j) = wk(j)*1.E-20*((0.0224697*rh20s(j)*tmpexp(j))+(3.41817E-7* &
+          rfrgn(j)))*0.98
+        dem_wv(j, ilev) = 1. - exp(-1.*tauwv(j))
+      END DO
+      ! IM
+      ! if (ncolprint .ne. 0) then
+      ! do j=1,npoints ,1000
+      ! write(6,'(a10)') 'j='
+      ! write(6,'(8I10)') j
+      ! write(6,'(i2,1X,3(f8.3,3X))') ilev,
+      ! &           qv(j,ilev)*(phalf(j,ilev+1)-phalf(j,ilev))/(grav/100.),
+      ! &           tauwv(j),dem_wv(j,ilev)
+      ! enddo
+      ! endif
+    END DO
+
+      !initialize variables
+    DO j = 1, npoints
+      fluxtop_clrsky(j) = 0.
+      trans_layers_above_clrsky(j) = 1.
+    END DO
+
+    DO ilev = 1, nlev
+      DO j = 1, npoints
+
+          ! Black body emission at temperature of the layer
+
+        bb(j) = 1/(exp(1307.27/at(j,ilev))-1.)
+          !bb(j)= 5.67e-8*at(j,ilev)**4
+
+          ! increase TOA flux by flux emitted from layer
+          ! times total transmittance in layers above
+
+        fluxtop_clrsky(j) = fluxtop_clrsky(j) + dem_wv(j, ilev)*bb(j)* &
+          trans_layers_above_clrsky(j)
+
+          ! update trans_layers_above with transmissivity
+          ! from this layer for next time around loop
+
+        trans_layers_above_clrsky(j) = trans_layers_above_clrsky(j)* &
+          (1.-dem_wv(j,ilev))
+
+
+      END DO
+      ! IM
+      ! if (ncolprint.ne.0) then
+      ! do j=1,npoints ,1000
+      ! write(6,'(a10)') 'j='
+      ! write(6,'(8I10)') j
+      ! write (6,'(a)') 'ilev:'
+      ! write (6,'(I2)') ilev
+
+      ! write (6,'(a)')
+      ! &        'emiss_layer,100.*bb(j),100.*f,total_trans:'
+      ! write (6,'(4(f7.2,1X))') dem_wv(j,ilev),100.*bb(j),
+      ! &             100.*fluxtop_clrsky(j),trans_layers_above_clrsky(j)
+      ! enddo
+      ! endif
+
+    END DO !loop over level
+
+    DO j = 1, npoints
+        !add in surface emission
+      bb(j) = 1/(exp(1307.27/skt(j))-1.)
+        !bb(j)=5.67e-8*skt(j)**4
+
+      fluxtop_clrsky(j) = fluxtop_clrsky(j) + emsfc_lw*bb(j)* &
+        trans_layers_above_clrsky(j)
+    END DO
+
+    ! IM
+    ! if (ncolprint.ne.0) then
+    ! do j=1,npoints ,1000
+    ! write(6,'(a10)') 'j='
+    ! write(6,'(8I10)') j
+    ! write (6,'(a)') 'id:'
+    ! write (6,'(a)') 'surface'
+
+    ! write (6,'(a)') 'emsfc,100.*bb(j),100.*f,total_trans:'
+    ! write (6,'(4(f7.2,1X))') emsfc_lw,100.*bb(j),
+    ! &      100.*fluxtop_clrsky(j),
+    ! &       trans_layers_above_clrsky(j)
+    ! enddo
+    ! endif
+
+
+      !
+      !           END OF CLEAR SKY CALCULATION
+      !
+      !----------------------------------------------------------------
+
+
+    ! IM
+    ! if (ncolprint.ne.0) then
+
+    ! do j=1,npoints ,1000
+    ! write(6,'(a10)') 'j='
+    ! write(6,'(8I10)') j
+    ! write (6,'(a)') 'ts:'
+    ! write (6,'(8f7.2)') (skt(j),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'ta_rev:'
+    ! write (6,'(8f7.2)')
+    ! &       ((at(j,ilev2),ibox=1,ncolprint),ilev2=1,nlev)
+
+    ! enddo
+    ! endif
+      !loop over columns
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+        fluxtop(j, ibox) = 0.
+        trans_layers_above(j, ibox) = 1.
+      END DO
+    END DO
+
+    DO ilev = 1, nlev
+      DO j = 1, npoints
+          ! Black body emission at temperature of the layer
+
+        bb(j) = 1/(exp(1307.27/at(j,ilev))-1.)
+          !bb(j)= 5.67e-8*at(j,ilev)**4
+      END DO
+
+      DO ibox = 1, ncol
+        DO j = 1, npoints
+
+            ! emissivity for point in this layer
+          ! IM REAL             if (frac_out(j,ibox,ilev).eq.1) then
+          IF (frac_out(j,ibox,ilev)==1.0) THEN
+            dem(j, ibox) = 1. - ((1.-dem_wv(j,ilev))*(1.-dem_s(j,ilev)))
+            ! IM REAL             else if (frac_out(j,ibox,ilev).eq.2) then
+          ELSE IF (frac_out(j,ibox,ilev)==2.0) THEN
+            dem(j, ibox) = 1. - ((1.-dem_wv(j,ilev))*(1.-dem_c(j,ilev)))
+          ELSE
+            dem(j, ibox) = dem_wv(j, ilev)
+          END IF
+
+
+            ! increase TOA flux by flux emitted from layer
+            ! times total transmittance in layers above
+
+          fluxtop(j, ibox) = fluxtop(j, ibox) + dem(j, ibox)*bb(j)* &
+            trans_layers_above(j, ibox)
+
+            ! update trans_layers_above with transmissivity
+            ! from this layer for next time around loop
+
+          trans_layers_above(j, ibox) = trans_layers_above(j, ibox)* &
+            (1.-dem(j,ibox))
+
+        END DO ! j
+      END DO ! ibox
+
+      ! IM
+      ! if (ncolprint.ne.0) then
+      ! do j=1,npoints,1000
+      ! write (6,'(a)') 'ilev:'
+      ! write (6,'(I2)') ilev
+
+      ! write(6,'(a10)') 'j='
+      ! write(6,'(8I10)') j
+      ! write (6,'(a)') 'emiss_layer:'
+      ! write (6,'(8f7.2)') (dem(j,ibox),ibox=1,ncolprint)
+
+      ! write (6,'(a)') '100.*bb(j):'
+      ! write (6,'(8f7.2)') (100.*bb(j),ibox=1,ncolprint)
+
+      ! write (6,'(a)') '100.*f:'
+      ! write (6,'(8f7.2)')
+      ! &         (100.*fluxtop(j,ibox),ibox=1,ncolprint)
+
+      ! write (6,'(a)') 'total_trans:'
+      ! write (6,'(8f7.2)')
+      ! &          (trans_layers_above(j,ibox),ibox=1,ncolprint)
+      ! enddo
+      ! endif
+
+    END DO ! ilev
+
+
+    DO j = 1, npoints
+        !add in surface emission
+      bb(j) = 1/(exp(1307.27/skt(j))-1.)
+        !bb(j)=5.67e-8*skt(j)**4
+    END DO
+
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+
+          !add in surface emission
+
+        fluxtop(j, ibox) = fluxtop(j, ibox) + emsfc_lw*bb(j)* &
+          trans_layers_above(j, ibox)
+
+      END DO
+    END DO
+
+    ! IM
+    ! if (ncolprint.ne.0) then
+
+    ! do j=1,npoints ,1000
+    ! write(6,'(a10)') 'j='
+    ! write(6,'(8I10)') j
+    ! write (6,'(a)') 'id:'
+    ! write (6,'(a)') 'surface'
+
+    ! write (6,'(a)') 'emiss_layer:'
+    ! write (6,'(8f7.2)') (dem(1,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') '100.*bb(j):'
+    ! write (6,'(8f7.2)') (100.*bb(j),ibox=1,ncolprint)
+
+    ! write (6,'(a)') '100.*f:'
+    ! write (6,'(8f7.2)') (100.*fluxtop(j,ibox),ibox=1,ncolprint)
+    ! end do
+    ! endif
+
+      !now that you have the top of atmosphere radiance account
+      !for ISCCP procedures to determine cloud top temperature
+
+      !account for partially transmitting cloud recompute flux
+      !ISCCP would see assuming a single layer cloud
+      !note choice here of 2.13, as it is primarily ice
+      !clouds which have partial emissivity and need the
+      !adjustment performed in this section
+      !
+      !If it turns out that the cloud brightness temperature
+      !is greater than 260K, then the liquid cloud conversion
+      !factor of 2.56 is used.
+      !
+      !Note that this is discussed on pages 85-87 of
+      !the ISCCP D level documentation (Rossow et al. 1996)
+
+    DO j = 1, npoints
+        !compute minimum brightness temperature and optical depth
+      btcmin(j) = 1./(exp(1307.27/(attrop(j)-5.))-1.)
+    END DO
+    DO ibox = 1, ncol
+      DO j = 1, npoints
+        transmax(j) = (fluxtop(j,ibox)-btcmin(j))/(fluxtop_clrsky(j)-btcmin(j &
+          ))
+          !note that the initial setting of tauir(j) is needed so that
+          !tauir(j) has a realistic value should the next if block be
+          !bypassed
+        tauir(j) = tau(j, ibox)*rec2p13
+        taumin(j) = -1.*log(max(min(transmax(j),0.9999999),0.001))
+
+      END DO
+
+      IF (top_height==1) THEN
+        DO j = 1, npoints
+          IF (transmax(j)>0.001 .AND. transmax(j)<=0.9999999) THEN
+            fluxtopinit(j) = fluxtop(j, ibox)
+            tauir(j) = tau(j, ibox)*rec2p13
+          END IF
+        END DO
+        DO icycle = 1, 2
+          DO j = 1, npoints
+            IF (tau(j,ibox)>(tauchk)) THEN
+              IF (transmax(j)>0.001 .AND. transmax(j)<=0.9999999) THEN
+                emcld(j, ibox) = 1. - exp(-1.*tauir(j))
+                fluxtop(j, ibox) = fluxtopinit(j) - ((1.-emcld(j, &
+                  ibox))*fluxtop_clrsky(j))
+                fluxtop(j, ibox) = max(1.E-06, (fluxtop(j,ibox)/emcld(j, &
+                  ibox)))
+                tb(j, ibox) = 1307.27/(log(1.+(1./fluxtop(j,ibox))))
+                IF (tb(j,ibox)>260.) THEN
+                  tauir(j) = tau(j, ibox)/2.56
+                END IF
+              END IF
+            END IF
+          END DO
+        END DO
+
+      END IF
+
+      DO j = 1, npoints
+        IF (tau(j,ibox)>(tauchk)) THEN
+            !cloudy box
+          tb(j, ibox) = 1307.27/(log(1.+(1./fluxtop(j,ibox))))
+          IF (top_height==1 .AND. tauir(j)<taumin(j)) THEN
+            tb(j, ibox) = attrop(j) - 5.
+            tau(j, ibox) = 2.13*taumin(j)
+          END IF
+        ELSE
+            !clear sky brightness temperature
+          tb(j, ibox) = 1307.27/(log(1.+(1./fluxtop_clrsky(j))))
+        END IF
+      END DO ! j
+    END DO ! ibox
+
+    ! IM
+    ! if (ncolprint.ne.0) then
+
+    ! do j=1,npoints,1000
+    ! write(6,'(a10)') 'j='
+    ! write(6,'(8I10)') j
+
+    ! write (6,'(a)') 'attrop:'
+    ! write (6,'(8f7.2)') (attrop(j))
+
+    ! write (6,'(a)') 'btcmin:'
+    ! write (6,'(8f7.2)') (btcmin(j))
+
+    ! write (6,'(a)') 'fluxtop_clrsky*100:'
+    ! write (6,'(8f7.2)')
+    ! &      (100.*fluxtop_clrsky(j))
+
+    ! write (6,'(a)') '100.*f_adj:'
+    ! write (6,'(8f7.2)') (100.*fluxtop(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'transmax:'
+    ! write (6,'(8f7.2)') (transmax(ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'tau:'
+    ! write (6,'(8f7.2)') (tau(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'emcld:'
+    ! write (6,'(8f7.2)') (emcld(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'total_trans:'
+    ! write (6,'(8f7.2)')
+    ! &          (trans_layers_above(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'total_emiss:'
+    ! write (6,'(8f7.2)')
+    ! &          (1.0-trans_layers_above(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'total_trans:'
+    ! write (6,'(8f7.2)')
+    ! &          (trans_layers_above(j,ibox),ibox=1,ncolprint)
+
+    ! write (6,'(a)') 'ppout:'
+    ! write (6,'(8f7.2)') (tb(j,ibox),ibox=1,ncolprint)
+    ! enddo ! j
+    ! endif
+
+  END IF
+
+  ! ---------------------------------------------------!
+
+
+  ! ---------------------------------------------------!
+  ! DETERMINE CLOUD TOP PRESSURE
+
+  ! again the 2 methods differ according to whether
+  ! or not you use the physical cloud top pressure (top_height = 2)
+  ! or the radiatively determined cloud top pressure (top_height = 1 or 3)
+
+
+    !compute cloud top pressure
+  DO ibox = 1, ncol
+      !segregate according to optical thickness
+    IF (top_height==1 .OR. top_height==3) THEN
+        !find level whose temperature
+        !most closely matches brightness temperature
+      DO j = 1, npoints
+        nmatch(j) = 0
+      END DO
+      DO ilev = 1, nlev - 1
+        ! cdir nodep
+        DO j = 1, npoints
+          IF ((at(j,ilev)>=tb(j,ibox) .AND. at(j,ilev+1)<tb(j, &
+              ibox)) .OR. (at(j,ilev)<=tb(j,ibox) .AND. at(j,ilev+1)>tb(j, &
+              ibox))) THEN
+
+            nmatch(j) = nmatch(j) + 1
+            IF (abs(at(j,ilev)-tb(j,ibox))<abs(at(j,ilev+1)-tb(j,ibox))) THEN
+              match(j, nmatch(j)) = ilev
+            ELSE
+              match(j, nmatch(j)) = ilev + 1
+            END IF
+          END IF
+        END DO
+      END DO
+
+      DO j = 1, npoints
+        IF (nmatch(j)>=1) THEN
+          ptop(j, ibox) = pfull(j, match(j,nmatch(j)))
+          levmatch(j, ibox) = match(j, nmatch(j))
+        ELSE
+          IF (tb(j,ibox)<atmin(j)) THEN
+            ptop(j, ibox) = ptrop(j)
+            levmatch(j, ibox) = itrop(j)
+          END IF
+          IF (tb(j,ibox)>atmax(j)) THEN
+            ptop(j, ibox) = pfull(j, nlev)
+            levmatch(j, ibox) = nlev
+          END IF
+        END IF
+      END DO ! j
+
+    ELSE ! if (top_height .eq. 1 .or. top_height .eq. 3)
+
+      DO j = 1, npoints
+        ptop(j, ibox) = 0.
+      END DO
+      DO ilev = 1, nlev
+        DO j = 1, npoints
+          IF ((ptop(j,ibox)==0.) & ! IM  &
+                                   ! .and.(frac_out(j,ibox,ilev) .ne. 0))
+                                   ! then
+              .AND. (frac_out(j,ibox,ilev)/=0.0)) THEN
+            ptop(j, ibox) = pfull(j, ilev)
+            levmatch(j, ibox) = ilev
+          END IF
+        END DO
+      END DO
+    END IF
+
+    DO j = 1, npoints
+      IF (tau(j,ibox)<=(tauchk)) THEN
+        ptop(j, ibox) = 0.
+        levmatch(j, ibox) = 0
+      END IF
+    END DO
+
+  END DO
+
+
+
+  ! ---------------------------------------------------!
+
+
+
+  ! ---------------------------------------------------!
+  ! DETERMINE ISCCP CLOUD TYPE FREQUENCIES
+
+  ! Now that ptop and tau have been determined,
+  ! determine amount of each of the 49 ISCCP cloud
+  ! types
+
+  ! Also compute grid box mean cloud top pressure and
+  ! optical thickness.  The mean cloud top pressure and
+  ! optical thickness are averages over the cloudy
+  ! area only. The mean cloud top pressure is a linear
+  ! average of the cloud top pressures.  The mean cloud
+  ! optical thickness is computed by converting optical
+  ! thickness to an albedo, averaging in albedo units,
+  ! then converting the average albedo back to a mean
+  ! optical thickness.
+
+
+    !compute isccp frequencies
+
+    !reset frequencies
+  DO ilev = 1, 7
+    DO ilev2 = 1, 7
+      DO j = 1, npoints !
+        fq_isccp(j, ilev, ilev2) = 0.
+      END DO
+    END DO
+  END DO
+
+    !reset variables need for averaging cloud properties
+  DO j = 1, npoints
+    totalcldarea(j) = 0.
+    meanalbedocld(j) = 0.
+    meanptop(j) = 0.
+    meantaucld(j) = 0.
+  END DO ! j
+
+  boxarea = 1./real(ncol)
+
+    !determine optical depth category
+  ! IM       do 39 j=1,npoints
+  ! IM       do ibox=1,ncol
+  DO ibox = 1, ncol
+    DO j = 1, npoints
+
+      ! IM
+      ! CALL CPU_time(t1)
+      ! IM
+
+      IF (tau(j,ibox)>(tauchk) .AND. ptop(j,ibox)>0.) THEN
+        box_cloudy(j, ibox) = .TRUE.
+      END IF
+
+      ! IM
+      ! CALL CPU_time(t2)
+      ! print*,'IF tau t2 - t1',t2 - t1
+
+      ! CALL CPU_time(t1)
+      ! IM
+
+      IF (box_cloudy(j,ibox)) THEN
+
+          ! totalcldarea always diagnosed day or night
+        totalcldarea(j) = totalcldarea(j) + boxarea
+
+        IF (sunlit(j)==1) THEN
+
+            ! tau diagnostics only with sunlight
+
+          boxtau(j, ibox) = tau(j, ibox)
+
+            !convert optical thickness to albedo
+          albedocld(j, ibox) = real(invtau(min(nint(100.*tau(j,ibox)), &
+            45000)))
+
+            !contribute to averaging
+          meanalbedocld(j) = meanalbedocld(j) + albedocld(j, ibox)*boxarea
+
+        END IF
+
+      END IF
+
+      ! IM
+      ! CALL CPU_time(t2)
+      ! print*,'IF box_cloudy t2 - t1',t2 - t1
+
+      ! CALL CPU_time(t1)
+      ! IM BEG
+      ! IM           !convert ptop to millibars
+      ptop(j, ibox) = ptop(j, ibox)/100.
+
+      ! IM           !save for output cloud top pressure and optical
+      ! thickness
+      boxptop(j, ibox) = ptop(j, ibox)
+      ! IM END
+
+      ! IM BEG
+        !reset itau(j), ipres(j)
+      itau(j) = 0
+      ipres(j) = 0
+
+      IF (tau(j,ibox)<isccp_taumin) THEN
+        itau(j) = 1
+      ELSE IF (tau(j,ibox)>=isccp_taumin .AND. tau(j,ibox)<1.3) THEN
+        itau(j) = 2
+      ELSE IF (tau(j,ibox)>=1.3 .AND. tau(j,ibox)<3.6) THEN
+        itau(j) = 3
+      ELSE IF (tau(j,ibox)>=3.6 .AND. tau(j,ibox)<9.4) THEN
+        itau(j) = 4
+      ELSE IF (tau(j,ibox)>=9.4 .AND. tau(j,ibox)<23.) THEN
+        itau(j) = 5
+      ELSE IF (tau(j,ibox)>=23. .AND. tau(j,ibox)<60.) THEN
+        itau(j) = 6
+      ELSE IF (tau(j,ibox)>=60.) THEN
+        itau(j) = 7
+      END IF
+
+        !determine cloud top pressure category
+      IF (ptop(j,ibox)>0. .AND. ptop(j,ibox)<180.) THEN
+        ipres(j) = 1
+      ELSE IF (ptop(j,ibox)>=180. .AND. ptop(j,ibox)<310.) THEN
+        ipres(j) = 2
+      ELSE IF (ptop(j,ibox)>=310. .AND. ptop(j,ibox)<440.) THEN
+        ipres(j) = 3
+      ELSE IF (ptop(j,ibox)>=440. .AND. ptop(j,ibox)<560.) THEN
+        ipres(j) = 4
+      ELSE IF (ptop(j,ibox)>=560. .AND. ptop(j,ibox)<680.) THEN
+        ipres(j) = 5
+      ELSE IF (ptop(j,ibox)>=680. .AND. ptop(j,ibox)<800.) THEN
+        ipres(j) = 6
+      ELSE IF (ptop(j,ibox)>=800.) THEN
+        ipres(j) = 7
+      END IF
+      ! IM END
+
+      IF (sunlit(j)==1 .OR. top_height==3) THEN
+
+        ! IM         !convert ptop to millibars
+        ! IM           ptop(j,ibox)=ptop(j,ibox) / 100.
+
+        ! IM         !save for output cloud top pressure and optical
+        ! thickness
+        ! IM             boxptop(j,ibox) = ptop(j,ibox)
+
+        IF (box_cloudy(j,ibox)) THEN
+
+          meanptop(j) = meanptop(j) + ptop(j, ibox)*boxarea
+
+          ! IM             !reset itau(j), ipres(j)
+          ! IM           itau(j) = 0
+          ! IM           ipres(j) = 0
+
+          ! if (tau(j,ibox) .lt. isccp_taumin) then
+          ! itau(j)=1
+          ! else if (tau(j,ibox) .ge. isccp_taumin
+          ! &
+          ! &          .and. tau(j,ibox) .lt. 1.3) then
+          ! itau(j)=2
+          ! else if (tau(j,ibox) .ge. 1.3
+          ! &          .and. tau(j,ibox) .lt. 3.6) then
+          ! itau(j)=3
+          ! else if (tau(j,ibox) .ge. 3.6
+          ! &          .and. tau(j,ibox) .lt. 9.4) then
+          ! itau(j)=4
+          ! else if (tau(j,ibox) .ge. 9.4
+          ! &          .and. tau(j,ibox) .lt. 23.) then
+          ! itau(j)=5
+          ! else if (tau(j,ibox) .ge. 23.
+          ! &          .and. tau(j,ibox) .lt. 60.) then
+          ! itau(j)=6
+          ! else if (tau(j,ibox) .ge. 60.) then
+          ! itau(j)=7
+          ! end if
+
+          ! !determine cloud top pressure category
+          ! if (    ptop(j,ibox) .gt. 0.
+          ! &          .and.ptop(j,ibox) .lt. 180.) then
+          ! ipres(j)=1
+          ! else if(ptop(j,ibox) .ge. 180.
+          ! &          .and.ptop(j,ibox) .lt. 310.) then
+          ! ipres(j)=2
+          ! else if(ptop(j,ibox) .ge. 310.
+          ! &          .and.ptop(j,ibox) .lt. 440.) then
+          ! ipres(j)=3
+          ! else if(ptop(j,ibox) .ge. 440.
+          ! &          .and.ptop(j,ibox) .lt. 560.) then
+          ! ipres(j)=4
+          ! else if(ptop(j,ibox) .ge. 560.
+          ! &          .and.ptop(j,ibox) .lt. 680.) then
+          ! ipres(j)=5
+          ! else if(ptop(j,ibox) .ge. 680.
+          ! &          .and.ptop(j,ibox) .lt. 800.) then
+          ! ipres(j)=6
+          ! else if(ptop(j,ibox) .ge. 800.) then
+          ! ipres(j)=7
+          ! end if
+
+            !update frequencies
+          IF (ipres(j)>0 .AND. itau(j)>0) THEN
+            fq_isccp(j, itau(j), ipres(j)) = fq_isccp(j, itau(j), ipres(j)) + &
+              boxarea
+          END IF
+
+          ! IM calcul stats regime dynamique BEG
+          ! iw(j) = int((w(j)-wmin)/pas_w) +1
+          ! pctj(itau(j),ipres(j),iw(j))=.FALSE.
+          ! !update frequencies W500
+          ! if (pct_ocean(j)) then
+          ! if (ipres(j) .gt. 0.and.itau(j) .gt. 0) then
+          ! if (iw(j) .gt. int(wmin).and.iw(j) .le. iwmx) then
+          ! print*,' ISCCP iw=',iw(j),j
+          ! fq_dynreg(itau(j),ipres(j),iw(j))=
+          ! &          fq_dynreg(itau(j),ipres(j),iw(j))+
+          ! &          boxarea
+          ! &          fq_isccp(j,itau(j),ipres(j))
+          ! pctj(itau(j),ipres(j),iw(j))=.TRUE.
+          ! nfq_dynreg(itau(j),ipres(j),iw(j))=
+          ! &          nfq_dynreg(itau(j),ipres(j),iw(j))+1.
+          ! end if
+          ! end if
+          ! end if
+          ! IM calcul stats regime dynamique END
+        END IF !IM boxcloudy
+
+      END IF !IM sunlit
+
+      ! IM
+      ! CALL CPU_time(t2)
+      ! print*,'IF sunlit boxcloudy t2 - t1',t2 - t1
+      ! IM
+    END DO !IM ibox/j
+
+
+    ! IM ajout stats s/ W500 BEG
+    ! IM ajout stats s/ W500 END
+
+    ! if(j.EQ.6722) then
+    ! print*,' ISCCP',w(j),iw(j),ipres(j),itau(j)
+    ! endif
+
+    ! if (pct_ocean(j)) then
+    ! if (ipres(j) .gt. 0.and.itau(j) .gt. 0) then
+    ! if (iw(j) .gt. int(wmin).and.iw(j) .le. iwmx) then
+    ! if(pctj(itau(j),ipres(j),iw(j))) THEN
+    ! nfq_dynreg(itau(j),ipres(j),iw(j))=
+    ! &    nfq_dynreg(itau(j),ipres(j),iw(j))+1.
+    ! if(itau(j).EQ.4.AND.ipres(j).EQ.2.AND.
+    ! &    iw(j).EQ.10) then
+    ! PRINT*,' isccp AVANT',
+    ! &    nfq_dynreg(itau(j),ipres(j),iw(j)),
+    ! &    fq_dynreg(itau(j),ipres(j),iw(j))
+    ! endif
+    ! endif
+    ! endif
+    ! endif
+    ! endif
+
+  END DO
+    !compute mean cloud properties
+  ! IM j/ibox
+  DO j = 1, npoints
+    IF (totalcldarea(j)>0.) THEN
+      meanptop(j) = meanptop(j)/totalcldarea(j)
+      IF (sunlit(j)==1) THEN
+        meanalbedocld(j) = meanalbedocld(j)/totalcldarea(j)
+        meantaucld(j) = tautab(min(255,max(1,nint(meanalbedocld(j)))))
+      END IF
+    END IF
+  END DO ! j
+
+  ! IM ajout stats s/ W500 BEG
+  ! do nw = 1, iwmx
+  ! do l = 1, 7
+  ! do k = 1, 7
+  ! if (nfq_dynreg(k,l,nw).GT.0.) then
+  ! fq_dynreg(k,l,nw) = fq_dynreg(k,l,nw)/nfq_dynreg(k,l,nw)
+  ! if(k.EQ.4.AND.l.EQ.2.AND.nw.EQ.10) then
+  ! print*,' isccp APRES',nfq_dynreg(k,l,nw),
+  ! &   fq_dynreg(k,l,nw)
+  ! endif
+  ! else
+  ! if(fq_dynreg(k,l,nw).NE.0.) then
+  ! print*,'nfq_dynreg = 0 tau,pc,nw',k,l,nw,fq_dynreg(k,l,nw)
+  ! endif
+  ! fq_dynreg(k,l,nw) = -1.E+20
+  ! nfq_dynreg(k,l,nw) = 1.E+20
+  ! end if
+  ! enddo !k
+  ! enddo !l
+  ! enddo !nw
+  ! IM ajout stats s/ W500 END
+  ! ---------------------------------------------------!
+
+  ! ---------------------------------------------------!
+  ! OPTIONAL PRINTOUT OF DATA TO CHECK PROGRAM
+
+  ! cIM
+  ! if (debugcol.ne.0) then
+
+  ! do j=1,npoints,debugcol
+
+  ! !produce character output
+  ! do ilev=1,nlev
+  ! do ibox=1,ncol
+  ! acc(ilev,ibox)=0
+  ! enddo
+  ! enddo
+
+  ! do ilev=1,nlev
+  ! do ibox=1,ncol
+  ! acc(ilev,ibox)=frac_out(j,ibox,ilev)*2
+  ! if (levmatch(j,ibox) .eq. ilev)
+  ! &                 acc(ilev,ibox)=acc(ilev,ibox)+1
+  ! enddo
+  ! enddo
+
+    !print test
+
+  ! write(ftn09,11) j
+  ! 11        format('ftn09.',i4.4)
+  ! open(9, FILE=ftn09, FORM='FORMATTED')
+
+  ! write(9,'(a1)') ' '
+  ! write(9,'(10i5)')
+  ! &                  (ilev,ilev=5,nlev,5)
+  ! write(9,'(a1)') ' '
+
+  ! do ibox=1,ncol
+  ! write(9,'(40(a1),1x,40(a1))')
+  ! &           (cchar_realtops(acc(ilev,ibox)+1),ilev=1,nlev)
+  ! &           ,(cchar(acc(ilev,ibox)+1),ilev=1,nlev)
+  ! end do
+  ! close(9)
+
+  ! IM
+  ! if (ncolprint.ne.0) then
+  ! write(6,'(a1)') ' '
+  ! write(6,'(a2,1X,5(a7,1X),a50)')
+  ! &                  'ilev',
+  ! &                  'pfull','at',
+  ! &                  'cc*100','dem_s','dtau_s',
+  ! &                  'cchar'
+
+  ! do 4012 ilev=1,nlev
+  ! write(6,'(60i2)') (box(i,ilev),i=1,ncolprint)
+  ! write(6,'(i2,1X,5(f7.2,1X),50(a1))')
+  ! &                  ilev,
+  ! &                  pfull(j,ilev)/100.,at(j,ilev),
+  ! &                  cc(j,ilev)*100.0,dem_s(j,ilev),dtau_s(j,ilev)
+  ! &                  ,(cchar(acc(ilev,ibox)+1),ibox=1,ncolprint)
+  ! 4012           continue
+  ! write (6,'(a)') 'skt(j):'
+  ! write (6,'(8f7.2)') skt(j)
+
+  ! write (6,'(8I7)') (ibox,ibox=1,ncolprint)
+
+  ! write (6,'(a)') 'tau:'
+  ! write (6,'(8f7.2)') (tau(j,ibox),ibox=1,ncolprint)
+
+  ! write (6,'(a)') 'tb:'
+  ! write (6,'(8f7.2)') (tb(j,ibox),ibox=1,ncolprint)
+
+  ! write (6,'(a)') 'ptop:'
+  ! write (6,'(8f7.2)') (ptop(j,ibox),ibox=1,ncolprint)
+  ! endif
+
+  ! enddo
+
+  ! end if
+
+  RETURN
+END SUBROUTINE isccp_cloud_types
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/limit_read_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/limit_read_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/limit_read_mod.F90	(revision 3330)
@@ -0,0 +1,340 @@
+!
+! $Header$
+!
+MODULE limit_read_mod
+!
+! This module reads the fichier "limit.nc" containing fields for surface forcing.
+!
+! Module subroutines :
+!  limit_read_frac    : call limit_read_tot and return the fractions
+!  limit_read_rug_alb : return rugosity and albedo, if coupled ocean call limit_read_tot first
+!  limit_read_sst     : return sea ice temperature   
+!  limit_read_tot     : read limit.nc and store the fields in local modules variables
+!
+  IMPLICIT NONE
+
+  REAL, ALLOCATABLE, DIMENSION(:,:), SAVE, PRIVATE :: pctsrf
+!$OMP THREADPRIVATE(pctsrf)
+  REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: rugos
+!$OMP THREADPRIVATE(rugos)
+  REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: albedo
+!$OMP THREADPRIVATE(albedo)  
+  REAL, ALLOCATABLE, DIMENSION(:),   SAVE, PRIVATE :: sst
+!$OMP THREADPRIVATE(sst)  
+  LOGICAL,SAVE :: read_continents=.FALSE.
+!$OMP THREADPRIVATE(read_continents) 
+
+CONTAINS
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!
+!! Public subroutines :
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE limit_read_frac(itime, dtime, jour, pctsrf_new, is_modified)
+!
+! This subroutine is called from "change_srf_frac" for case of 
+! ocean=force or from ocean_slab_frac for ocean=slab.
+! The fraction for all sub-surfaces at actual time step is returned.
+
+    USE dimphy
+    USE indice_sol_mod
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN) :: itime   ! time step
+    INTEGER, INTENT(IN) :: jour    ! current day
+    REAL   , INTENT(IN) :: dtime   ! length of time step
+  
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon,nbsrf), INTENT(OUT) :: pctsrf_new  ! sub surface fractions
+    LOGICAL, INTENT(OUT)                     :: is_modified ! true if pctsrf is modified at this time step
+
+! End declaration
+!****************************************************************************************
+
+! 1) Read file limit.nc
+    CALL limit_read_tot(itime, dtime, jour, is_modified)
+
+! 2) Return the fraction read in limit_read_tot
+    pctsrf_new(:,:) = pctsrf(:,:)
+    
+  END SUBROUTINE limit_read_frac
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE limit_read_rug_alb(itime, dtime, jour, &
+       knon, knindex, &
+       rugos_out, alb_out)
+!
+! This subroutine is called from surf_land_bucket. 
+! The flag "ok_veget" must can not be true. If coupled run, "ocean=couple"
+! then this routine will call limit_read_tot.
+!
+    USE dimphy
+    USE surface_data
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN) :: itime                     ! numero du pas de temps courant
+    INTEGER, INTENT(IN) :: jour                      ! jour a lire dans l'annee
+    REAL   , INTENT(IN) :: dtime                     ! pas de temps de la physique (en s)
+    INTEGER, INTENT(IN) :: knon                      ! nomber of points on compressed grid
+    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex  ! grid point number for compressed grid
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT) :: rugos_out
+    REAL, DIMENSION(klon), INTENT(OUT) :: alb_out
+    
+! Local variables
+!****************************************************************************************
+    INTEGER :: i
+    LOGICAL :: is_modified
+!****************************************************************************************
+
+IF (type_ocean == 'couple'.OR. &
+         (type_ocean == 'slab' .AND. version_ocean == 'sicINT')) THEN
+       ! limit.nc has not yet been read. Do it now!
+       CALL limit_read_tot(itime, dtime, jour, is_modified)
+    END IF
+
+    DO i=1,knon
+       rugos_out(i) = rugos(knindex(i))
+       alb_out(i)  = albedo(knindex(i))
+    END DO
+
+  END SUBROUTINE limit_read_rug_alb
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE limit_read_sst(knon, knindex, sst_out)
+!
+! This subroutine returns the sea surface temperature already read from limit.nc.
+!
+    USE dimphy, ONLY : klon
+
+    INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
+    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex  ! grid point number for compressed grid
+    REAL, DIMENSION(klon), INTENT(OUT)   :: sst_out
+
+    INTEGER :: i
+
+    DO i = 1, knon
+       sst_out(i) = sst(knindex(i))
+    END DO
+
+  END SUBROUTINE limit_read_sst
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!
+!! Private subroutine :
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE limit_read_tot(itime, dtime, jour, is_modified)
+!
+! Read everything needed from limit.nc
+!
+! 0) Initialize
+! 1) Open the file limit.nc, if it is time
+! 2) Read fraction, if not type_ocean=couple
+! 3) Read sea surface temperature, if not type_ocean=couple
+! 4) Read albedo and rugosity for land surface, only in case of no vegetation model
+! 5) Close file and distribuate variables to all processus
+
+    USE dimphy
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+    USE surface_data, ONLY : type_ocean, ok_veget
+    USE netcdf
+    USE indice_sol_mod
+
+    IMPLICIT NONE
+    
+! In- and ouput arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN) :: itime   ! numero du pas de temps courant
+    INTEGER, INTENT(IN) :: jour    ! jour a lire dans l'annee
+    REAL   , INTENT(IN) :: dtime   ! pas de temps de la physique (en s)
+
+    LOGICAL, INTENT(OUT) :: is_modified  ! true if pctsrf is modified at this time step
+
+! Locals variables with attribute SAVE
+!****************************************************************************************
+! frequence de lecture des conditions limites (en pas de physique) 
+    INTEGER,SAVE                              :: lmt_pas
+!$OMP THREADPRIVATE(lmt_pas) 
+    LOGICAL, SAVE                             :: first_call=.TRUE.
+!$OMP THREADPRIVATE(first_call)  
+    INTEGER, SAVE                             :: jour_lu = -1
+!$OMP THREADPRIVATE(jour_lu)  
+! Locals variables
+!****************************************************************************************
+    INTEGER                                   :: nid, nvarid
+    INTEGER                                   :: ii, ierr
+    INTEGER, DIMENSION(2)                     :: start, epais
+    REAL, DIMENSION(klon_glo,nbsrf)           :: pct_glo  ! fraction at global grid
+    REAL, DIMENSION(klon_glo)                 :: sst_glo  ! sea-surface temperature at global grid
+    REAL, DIMENSION(klon_glo)                 :: rug_glo  ! rugosity at global grid
+    REAL, DIMENSION(klon_glo)                 :: alb_glo  ! albedo at global grid
+    CHARACTER(len=20)                         :: modname='limit_read_mod'     
+
+! End declaration
+!****************************************************************************************
+
+!****************************************************************************************
+! 0) Initialization
+!
+!****************************************************************************************
+    IF (first_call) THEN
+       ! calculate number of time steps for one day
+       lmt_pas = NINT(86400./dtime * 1.0)
+       
+       ! Allocate module save variables
+       IF ( type_ocean /= 'couple' ) THEN
+          ALLOCATE(pctsrf(klon,nbsrf), sst(klon), stat=ierr)
+          IF (ierr /= 0) CALL abort_physic(modname, 'PB in allocating pctsrf and sst',1)
+       END IF
+
+       IF ( .NOT. ok_veget ) THEN
+          ALLOCATE(rugos(klon), albedo(klon), stat=ierr)
+          IF (ierr /= 0) CALL abort_physic(modname, 'PB in allocating rugos and albedo',1)
+       END IF
+
+       first_call=.FALSE.
+    ENDIF
+  
+!****************************************************************************************
+! 1) Open the file limit.nc if it is the right moment to read, once a day.
+!    The file is read only by the master thread of the master mpi process(is_mpi_root)
+!
+!****************************************************************************************
+
+    is_modified = .FALSE.
+    IF (MOD(itime-1, lmt_pas) == 0 .OR. jour_lu /= jour ) THEN   ! time to read
+       jour_lu = jour
+       is_modified = .TRUE.
+!$OMP MASTER  ! Only master thread
+       IF (is_mpi_root) THEN ! Only master processus
+
+          ierr = NF90_OPEN ('limit.nc', NF90_NOWRITE, nid)
+          IF (ierr /= NF90_NOERR) CALL abort_physic(modname,&
+               'Pb d''ouverture du fichier de conditions aux limites',1)
+          
+          ! La tranche de donnees a lire:
+          start(1) = 1
+          start(2) = jour
+          epais(1) = klon_glo
+          epais(2) = 1
+
+
+!****************************************************************************************
+! 2) Read fraction if not type_ocean=couple
+!
+!****************************************************************************************
+
+          IF ( type_ocean /= 'couple') THEN
+!
+! Ocean fraction
+             ierr = NF90_INQ_VARID(nid, 'FOCE', nvarid)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname, 'Le champ <FOCE> est absent',1)
+             
+             ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_oce),start,epais)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FOCE>' ,1)
+!
+! Sea-ice fraction
+             ierr = NF90_INQ_VARID(nid, 'FSIC', nvarid)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <FSIC> est absent',1)
+
+             ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_sic),start,epais)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FSIC>' ,1)
+
+
+! Read land and continentals fraction only if asked for
+             IF (read_continents .OR. itime == 1) THEN
+!
+! Land fraction
+                ierr = NF90_INQ_VARID(nid, 'FTER', nvarid)
+                IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <FTER> est absent',1)
+                
+                ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_ter),start,epais)
+                IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FTER>',1)
+!
+! Continentale ice fraction
+                ierr = NF90_INQ_VARID(nid, 'FLIC', nvarid)
+                IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <FLIC> est absent',1)
+
+                ierr = NF90_GET_VAR(nid,nvarid,pct_glo(:,is_lic),start,epais)
+                IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <FLIC>',1)
+             END IF
+
+          END IF ! type_ocean /= couple
+
+!****************************************************************************************
+! 3) Read sea-surface temperature, if not coupled ocean
+!
+!****************************************************************************************
+          IF ( type_ocean /= 'couple') THEN
+
+             ierr = NF90_INQ_VARID(nid, 'SST', nvarid)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <SST> est absent',1)
+
+             ierr = NF90_GET_VAR(nid,nvarid,sst_glo,start,epais)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <SST>',1)
+          
+          END IF
+
+!****************************************************************************************
+! 4) Read albedo and rugosity for land surface, only in case of no vegetation model
+!
+!****************************************************************************************
+
+          IF (.NOT. ok_veget) THEN
+!
+! Read albedo
+             ierr = NF90_INQ_VARID(nid, 'ALB', nvarid)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <ALB> est absent',1)
+
+             ierr = NF90_GET_VAR(nid,nvarid,alb_glo,start,epais)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <ALB>',1)
+!
+! Read rugosity
+             ierr = NF90_INQ_VARID(nid, 'RUG', nvarid)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Le champ <RUG> est absent',1)
+
+             ierr = NF90_GET_VAR(nid,nvarid,rug_glo,start,epais)
+             IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Lecture echouee pour <RUG>',1)
+
+          END IF
+
+!****************************************************************************************
+! 5) Close file and distribuate variables to all processus
+!
+!****************************************************************************************
+          ierr = NF90_CLOSE(nid)
+          IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Pb when closing file', 1)
+       ENDIF ! is_mpi_root
+
+!$OMP END MASTER
+!$OMP BARRIER
+
+       IF ( type_ocean /= 'couple') THEN
+          CALL Scatter(sst_glo,sst)
+          CALL Scatter(pct_glo(:,is_oce),pctsrf(:,is_oce))
+          CALL Scatter(pct_glo(:,is_sic),pctsrf(:,is_sic))
+          IF (read_continents .OR. itime == 1) THEN
+             CALL Scatter(pct_glo(:,is_ter),pctsrf(:,is_ter))
+             CALL Scatter(pct_glo(:,is_lic),pctsrf(:,is_lic))
+          END IF
+       END IF
+
+       IF (.NOT. ok_veget) THEN
+          CALL Scatter(alb_glo, albedo)
+          CALL Scatter(rug_glo, rugos)
+       END IF
+
+    ENDIF ! time to read
+
+  END SUBROUTINE limit_read_tot
+
+
+END MODULE limit_read_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/limit_slab.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/limit_slab.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/limit_slab.F90	(revision 3330)
@@ -0,0 +1,171 @@
+! $Header$
+
+SUBROUTINE limit_slab(itime, dtime, jour, lmt_bils, diff_sst, diff_siv)
+
+  USE dimphy
+  USE mod_grid_phy_lmdz, ONLY: klon_glo
+  USE mod_phys_lmdz_para
+  USE netcdf 
+  USE indice_sol_mod
+
+  IMPLICIT NONE
+
+  INCLUDE "clesphys.h"
+
+! In- and ouput arguments
+!****************************************************************************************
+  INTEGER, INTENT(IN) :: itime   ! numero du pas de temps courant
+  INTEGER, INTENT(IN) :: jour    ! jour a lire dans l'annee
+  REAL   , INTENT(IN) :: dtime   ! pas de temps de la physique (en s)
+  REAL, DIMENSION(klon), INTENT(OUT) :: lmt_bils, diff_sst, diff_siv
+
+! Locals variables with attribute SAVE
+!****************************************************************************************
+  REAL, DIMENSION(:), ALLOCATABLE, SAVE :: bils_save, diff_sst_save
+  REAL, DIMENSION(:), ALLOCATABLE, SAVE :: diff_siv_save
+!$OMP THREADPRIVATE(bils_save, diff_sst_save, diff_siv_save)
+
+! Locals variables
+!****************************************************************************************
+  INTEGER                  :: lmt_pas   
+  INTEGER                  :: nvarid, nid, ierr, i
+  INTEGER, DIMENSION(2)    :: start, epais 
+  REAL, DIMENSION(klon_glo):: bils_glo, sst_l_glo, sst_lp1_glo, diff_sst_glo
+  REAL, DIMENSION(klon_glo):: siv_l_glo, siv_lp1_glo, diff_siv_glo
+  CHARACTER (len = 20)     :: modname = 'limit_slab'
+  LOGICAL                  :: read_bils,read_sst,read_siv
+
+! End declaration
+!****************************************************************************************
+
+  ! calculate number of time steps for one day
+  lmt_pas = NINT(86400./dtime)
+  
+! Initialize saved variables
+     IF (.NOT. ALLOCATED(bils_save)) THEN
+        ALLOCATE(bils_save(klon), diff_sst_save(klon), diff_siv_save(klon), stat=ierr)
+        IF (ierr /= 0) CALL abort_physic('limit_slab', 'pb in allocation',1)
+     END IF
+
+  ! F. Codron 5/14: add defaults for bils, diff_sst (0)
+  IF (MOD(itime-1, lmt_pas) == 0) THEN   ! time to read
+!$OMP MASTER  ! Only master thread
+     IF (is_mpi_root) THEN ! Only master processus
+        print*,'in limit_slab time to read, itime=',itime
+        read_bils=.TRUE.
+        read_sst=.TRUE.
+        read_siv=.TRUE.
+        
+        ierr = NF90_OPEN ('limit_slab.nc', NF90_NOWRITE, nid)
+        IF (ierr /= NF90_NOERR) THEN
+            PRINT *,'LIMIT_SLAB file not found'
+            read_bils=.FALSE.
+            read_sst=.FALSE.
+            read_siv=.FALSE.
+        ELSE ! read file
+        
+        ! La tranche de donnees a lire:
+        start(1) = 1
+        start(2) = jour
+        epais(1) = klon_glo
+        epais(2) = 1
+
+!****************************************************************************************
+! 2) Read bils and SST/ ice volume tendency
+!
+!****************************************************************************************
+!
+! Read bils_glo
+        ierr = NF90_INQ_VARID(nid, 'BILS_OCE', nvarid)
+        IF (ierr /= NF90_NOERR) THEN
+            read_bils=.FALSE.
+        ELSE
+            ierr = NF90_GET_VAR(nid,nvarid,bils_glo,start,epais)
+            IF (ierr /= NF90_NOERR) read_bils=.FALSE.
+        END IF
+! Read sst_glo for this day
+        ierr = NF90_INQ_VARID(nid, 'SST', nvarid)
+        IF (ierr /= NF90_NOERR)  THEN
+            read_sst=.FALSE.
+        ELSE
+            ierr = NF90_GET_VAR(nid,nvarid,sst_l_glo,start,epais)
+            IF (ierr /= NF90_NOERR) read_sst=.FALSE.
+! Read sst_glo for one day ahead
+            start(2) = jour + 1
+            IF (start(2) > 360) start(2)=1
+            ierr = NF90_GET_VAR(nid,nvarid,sst_lp1_glo,start,epais)
+            IF (ierr /= NF90_NOERR) read_sst=.FALSE.
+        END IF
+
+! Read siv_glo for this day
+        ierr = NF90_INQ_VARID(nid, 'SICV', nvarid)
+        IF (ierr /= NF90_NOERR)  THEN
+            read_siv=.FALSE.
+        ELSE
+            start(2) = jour
+            ierr = NF90_GET_VAR(nid,nvarid,siv_l_glo,start,epais)
+            IF (ierr /= NF90_NOERR) read_siv=.FALSE.
+! Read siv_glo for one day ahead
+            start(2) = jour + 1
+            IF (start(2) > 360) start(2)=1
+            ierr = NF90_GET_VAR(nid,nvarid,siv_lp1_glo,start,epais)
+            IF (ierr /= NF90_NOERR) read_siv=.FALSE.
+        END IF
+
+!****************************************************************************************
+! 5) Close file and distribute variables to all processus
+!
+!****************************************************************************************
+        ierr = NF90_CLOSE(nid)
+        IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Pb when closing file', 1)
+        END IF ! Read File 
+        IF (read_sst) THEN
+! Calculate difference in temperature between this day and one ahead
+            DO i=1, klon_glo
+               diff_sst_glo(i) = sst_lp1_glo(i) - sst_l_glo(i)
+            END DO
+        END IF !read_sst
+        IF (read_siv) THEN
+! Calculate difference in temperature between this day and one ahead
+            DO i=1, klon_glo
+               diff_siv_glo(i) = siv_lp1_glo(i) - siv_l_glo(i)
+            END DO
+        END IF !read_siv
+     ENDIF ! is_mpi_root
+
+!$OMP END MASTER
+!$OMP BARRIER
+       
+! Send fields to all processes
+! Give default values if needed
+     CALL bcast(read_bils)
+     CALL bcast(read_sst)
+     CALL bcast(read_siv)
+     PRINT *,'limit_slab sst',read_sst,'siv',read_siv,'qflux',read_bils
+     IF (read_bils) THEN
+         CALL Scatter(bils_glo, bils_save)
+     ELSE
+         bils_save(:)=0.
+     END IF
+     IF (read_sst) THEN
+         CALL Scatter(diff_sst_glo, diff_sst_save)
+     ELSE
+         diff_sst_save(:)=0.
+     END IF
+     IF (read_siv) THEN
+         CALL Scatter(diff_siv_glo, diff_siv_save)
+     ELSE
+         diff_siv_save(:)=0.
+     END IF
+     
+  ENDIF ! time to read
+
+  lmt_bils(:) = bils_save(:)
+  diff_sst(:) = diff_sst_save(:)
+  diff_siv(:) = diff_siv_save(:)
+! For Debug purpose
+!  PRINT *,'limit_slab sst',MINVAL(diff_sst(:)),MAXVAL(diff_sst(:))
+!  PRINT *,'limit_slab siv',MINVAL(diff_siv(:)),MAXVAL(diff_siv(:))
+!  PRINT *,'limit_slab bils',MINVAL(lmt_bils(:)),MAXVAL(lmt_bils(:))
+
+END SUBROUTINE limit_slab
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/lsc_scav.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/lsc_scav.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/lsc_scav.F90	(revision 3330)
@@ -0,0 +1,300 @@
+!$Id $
+
+SUBROUTINE lsc_scav(pdtime,it,iflag_lscav,  &
+!jyg<
+                    aerosol,  &
+!>jyg
+                    oliq,flxr,flxs,rneb,beta_fisrt,  &
+                    beta_v1,pplay,paprs,t,tr_seri,d_tr_insc,          &
+                    d_tr_bcscav,d_tr_evap,qPrls) 
+  USE ioipsl
+  USE dimphy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  USE traclmdz_mod
+  USE infotrac_phy,ONLY : nbtr
+  USE iophy
+  IMPLICIT NONE 
+!=====================================================================
+! Objet : depot humide (lessivage et evaporation) de traceurs
+! Inspired by routines of Olivier Boucher (mars 1998)
+! author R. Pilon 10 octobre 2012
+! last modification 16/01/2013 (reformulation partie evaporation)
+!=====================================================================
+
+  include "chem.h"
+  include "YOMCST.h"
+  include "YOECUMF.h" 
+
+  REAL,INTENT(IN)                        :: pdtime ! time step (s)
+  INTEGER,INTENT(IN)                     :: it     ! tracer number
+  INTEGER,INTENT(IN)                     :: iflag_lscav ! LS scavenging param:
+!                                             3=Reddy_Boucher2004, 4=3+RPilon.
+  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: flxr     ! flux precipitant de pluie
+  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: flxs     ! flux precipitant de neige
+  REAL,INTENT(IN)                        :: oliq ! contenu en eau liquide dans le nuage (kg/kg)
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: rneb
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay    ! pression
+  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs    ! pression
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: t        ! temperature
+! tracers
+  LOGICAL,DIMENSION(nbtr), INTENT(IN)         :: aerosol
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN)   :: tr_seri        ! q de traceur  
+  REAL,DIMENSION(klon,klev),INTENT(IN)        :: beta_fisrt     ! taux de conversion de l'eau cond
+  REAL,DIMENSION(klon,klev),INTENT(OUT)       :: beta_v1        ! -- (originale version)
+  REAL,DIMENSION(klon)                        :: his_dh         ! tendance de traceur integre verticalement
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)  :: d_tr_insc      ! tendance du traceur 
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)  :: d_tr_bcscav  ! tendance de traceur
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT)  :: d_tr_evap
+  REAL,DIMENSION(klon,nbtr),INTENT(OUT)       :: qPrls      !jyg: concentration tra dans pluie LS a la surf.
+  REAL :: dxin,dxev                              ! tendance temporaire de traceur incloud
+  REAL,DIMENSION(klon,klev) :: dxbc       ! tendance temporaire de traceur bc
+
+
+!  variables locales      
+ LOGICAL,SAVE :: debut=.true.
+!$OMP THREADPRIVATE(debut)
+!
+  REAL,PARAMETER :: henry=1.4  ! constante de Henry en mol/l/atm ~1.4 for gases
+  REAL           :: henry_t    !  constante de Henry a T t  (mol/l/atm)
+  REAL,PARAMETER :: kk=2900.   ! coefficient de dependence en T (K)
+  REAL :: f_a     !  rapport de la phase aqueuse a la phase gazeuse
+  REAL :: beta    !  taux de conversion de l'eau en pluie
+
+  INTEGER :: i, k
+  REAL,DIMENSION(klon,klev)    :: scav  !  water liquid content / fraction aqueuse du constituant
+  REAL,DIMENSION(klon,klev)    :: zrho
+  REAL,DIMENSION(klon,klev)    :: zdz
+  REAL,DIMENSION(klon,klev)    :: zmass ! layer mass
+
+  REAL           :: frac_ev       ! cste pour la reevaporation : dropplet shrinking
+!  frac_ev = frac_gas ou frac_aer
+  REAL,PARAMETER :: frac_gas=1.0  ! cste pour la reevaporation pour les gaz
+  REAL           :: frac_aer      ! cste pour la reevaporation pour les particules
+  REAL,DIMENSION(klon,klev) :: deltaP     ! P(i+1)-P(i)
+  REAL,DIMENSION(klon,klev) :: beta_ev    !  dP/P(i+1)
+
+!  101.325  m3/l x Pa/atm
+!  R        Pa.m3/mol/K
+!   cste de dissolution pour le depot humide
+  REAL,SAVE :: frac_fine_scav
+  REAL,SAVE :: frac_coar_scav
+!$OMP THREADPRIVATE(frac_fine_scav, frac_coar_scav)
+
+! below-cloud scav variables
+! aerosol : alpha_r=0.001, gas 0.001  (Pruppacher & Klett 1967)
+  REAL,SAVE :: alpha_r  !  coefficient d'impaction pour la pluie
+  REAL,SAVE :: alpha_s  !  coefficient d'impaction pour la neige  
+  REAL,SAVE :: R_r      !  mean raindrop radius (m) 
+  REAL,SAVE :: R_s      !  mean snow crystal radius (m)
+!$OMP THREADPRIVATE(alpha_r, alpha_s, R_r, R_s)
+  REAL           :: pr, ps, ice, water
+  real :: conserv
+!
+!!!!!!!!!!!!!!!!!!!! choix lessivage !!!!!!!!!!!!!!!!!!!!!!!!
+!!  logical,save  :: inscav_fisrt
+!!! $OMP THREADPRIVATE(inscav_first)
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  IF (debut) THEN
+!
+!  inscav_fisrt=.true.
+!  call getin('inscav_fisrt',inscav_fisrt)
+!  if(inscav_fisrt) then 
+!   print*,'beta from fisrtilp.F90, beta = (z_cond - z_oliq)/z_cond, inscav_fisrt=',inscav_fisrt
+!  else
+!   print*,'beta from Reddy and Bocuher 2004 (original version), inscav_fisrt=',inscav_fisrt
+!  endif
+!
+      alpha_r=0.001        !  coefficient d'impaction pour la pluie
+      alpha_s=0.01         !  coefficient d'impaction pour la neige  
+      R_r=0.001            !  mean raindrop radius (m) 
+      R_s=0.001            !  mean snow crystal radius (m)
+      frac_fine_scav=0.7
+      frac_coar_scav=0.7
+!     frac_aer=0.5 ~ droplet size shrinks by evap
+      frac_aer=0.5
+!
+      OPEN(99,file='lsc_scav_param.data',status='old', &
+                form='formatted',err=9999)
+      READ(99,*,end=9998)  alpha_r
+      READ(99,*,end=9998)  alpha_s
+      READ(99,*,end=9998)  R_r
+      READ(99,*,end=9998)  R_s
+      READ(99,*,end=9998)  frac_fine_scav
+      READ(99,*,end=9998)  frac_coar_scav
+      READ(99,*,end=9998)  frac_aer
+9998  Continue
+      CLOSE(99)
+9999  Continue
+
+   print*,'alpha_r',alpha_r
+   print*,'alpha_s',alpha_s
+   print*,'R_r',R_r
+   print*,'R_s',R_s
+   print*,'frac_fine_scav',frac_fine_scav
+   print*,'frac_coar_scav',frac_coar_scav
+   print*,'frac_aer ev',frac_aer
+
+!
+  ENDIF !(debut)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!
+! initialization
+  dxin=0.
+  dxev=0.
+  beta_ev=0.
+
+  DO i=1,klon
+   his_dh(i)=0.
+  ENDDO
+
+  DO k=1,klev
+   DO i=1, klon 
+    dxbc(i,k)=0.
+    beta_v1(i,k)=0.
+    deltaP(i,k)=0.
+   ENDDO
+  ENDDO
+
+  DO k=1,klev
+    DO i=1, klon
+     d_tr_insc(i,k,it)=0.
+     d_tr_bcscav(i,k,it)=0.
+     d_tr_evap(i,k,it)=0.
+    ENDDO
+  ENDDO
+
+!  pressure and size of the layer
+  DO k=klev-1, 1, -1
+   DO i=1, klon 
+     zrho(i,k)=pplay(i,k)/t(i,k)/RD   
+     zdz(i,k)=(paprs(i,k)-paprs(i,k+1))/zrho(i,k)/RG
+     zmass(i,k)=(paprs(i,k)-paprs(i,k+1))/RG
+   ENDDO
+  ENDDO
+
+!jyg<
+!!    IF (it.gt.1) THEN                               !  aerosol   
+!! Temporary correction: all non-aerosol tracers are dealt with in the same way.
+!! Should be updated once it has been decided how gases should be dealt with.
+    IF (aerosol(it)) THEN
+!>jyg
+      frac_ev=frac_aer
+    ELSE                                                !  gas
+      frac_ev=frac_gas
+    ENDIF
+
+!jyg<
+!!    IF (it.gt.1) THEN                               !  aerosol   
+    IF (aerosol(it)) THEN
+!>jyg
+     DO k=1, klev
+      DO i=1, klon 
+       scav(i,k)=frac_fine_scav
+      ENDDO 
+     ENDDO
+    ELSE                  ! gas
+     DO k=1, klev
+      DO i=1, klon 
+       henry_t=henry*exp(-kk*(1./298.-1./t(i,k)))    !  mol/l/atm
+       f_a=henry_t/101.325*R*t(i,k)*oliq*zrho(i,k)/rho_water
+       scav(i,k)=f_a/(1.+f_a)
+      ENDDO 
+     ENDDO
+    ENDIF
+
+   DO k=klev-1, 1, -1
+    DO i=1, klon 
+!  incloud scavenging
+!   if(inscav_fisrt) then 
+   if (iflag_lscav .eq. 4) then
+      beta=beta_fisrt(i,k)*rneb(i,k)
+   else
+      beta=flxr(i,k)-flxr(i,k+1)+flxs(i,k)-flxs(i,k+1)
+!      beta=beta/zdz(i,k)/oliq/zrho(i,k)
+      beta=beta/zmass(i,k)/oliq
+      beta=MAX(0.,beta)
+   endif ! (iflag_lscav .eq. 4)
+   beta_v1(i,k)=beta    !! for output
+!
+      dxin=tr_seri(i,k,it)*(exp(-scav(i,k)*beta*pdtime)-1.)
+!      his_dh(i)=his_dh(i)-dxin*zrho(i,k)*zdz(i,k)/pdtime !  kg/m2/s
+      his_dh(i)=his_dh(i)-dxin*zmass(i,k)/pdtime !  kg/m2/s
+      d_tr_insc(i,k,it)=dxin
+
+!  below-cloud impaction
+!jyg<
+!!    IF (it.eq.1) THEN
+    IF (.NOT.aerosol(it)) THEN
+!>jyg
+      d_tr_bcscav(i,k,it)=0.
+    ELSE
+     pr=0.5*(flxr(i,k)+flxr(i,k+1))
+     ps=0.5*(flxs(i,k)+flxs(i,k+1))
+     water=pr*alpha_r/R_r/rho_water
+     ice=ps*alpha_s/R_s/rho_ice
+     dxbc(i,k)=-3./4.*tr_seri(i,k,it)*pdtime*(water+ice)
+!   add tracers from below cloud scav in his_dh
+     his_dh(i)=his_dh(i)-dxbc(i,k)*zmass(i,k)/pdtime !  kg/m2/s
+     d_tr_bcscav(i,k,it)=dxbc(i,k)
+    ENDIF
+
+!  reevaporation
+      deltaP(i,k)=flxr(i,k+1)+flxs(i,k+1)-flxr(i,k)-flxs(i,k)
+      deltaP(i,k)=max(deltaP(i,k),0.)
+
+      if(flxr(i,k+1)+flxs(i,k+1).gt.1.e-16) then
+       beta_ev(i,k)=deltaP(i,k)/(flxr(i,k+1)+flxs(i,k+1))
+      else
+       beta_ev(i,k)=0.
+      endif
+
+      beta_ev(i,k)=max(min(1.,beta_ev(i,k)),0.)
+
+!jyg
+      
+      if(abs(1-(1-frac_ev)*beta_ev(i,k)).gt.1.e-16) then
+! remove tracers from precipitation owing to release by evaporation in his_dh
+!      dxev=frac_ev*beta_ev(i,k)*his_dh(i) *pdtime/(zrho(i,k)*zdz(i,k)) &
+      dxev=frac_ev*beta_ev(i,k)*his_dh(i) *pdtime/(zmass(i,k)) &
+                                      /(1 -(1-frac_ev)*beta_ev(i,k))
+       his_dh(i)=his_dh(i)*(1 - frac_ev*beta_ev(i,k) / (1 -(1-frac_ev)*beta_ev(i,k)))
+      else
+!       dxev=his_dh(i) *pdtime/(zrho(i,k)*zdz(i,k))
+       dxev=his_dh(i) *pdtime/(zmass(i,k))
+       his_dh(i)=0.
+      endif
+!      print*,  k, 'beta_ev',beta_ev
+! remove tracers from precipitation owing to release by evaporation in his_dh
+!!      dxev=frac_ev*deltaP(i,k)*pdtime * his_dh(i) /(zrho(i,k)*zdz(i,k))
+!rplmd
+!!      dxev=frac_ev*deltaP(i,k)*his_dh(i) *pdtime/(zrho(i,k)*zdz(i,k)) &
+!!                                      /max(flxr(i,k)+flxs(i,k),1.e-16)
+
+
+      d_tr_evap(i,k,it)=dxev
+!!     tendency is further added in phytrac x = x + dx
+    ENDDO !!  do i
+   ENDDO  !! do k
+
+!jyg (20130114)
+   DO i = 1,klon
+     qPrls(i,it) = his_dh(i)/max(flxr(i,1)+flxs(i,1),1.e-16)
+   ENDDO
+!jyg end
+
+
+! test de conservation
+      conserv=0.
+!      DO k= klev,1,-1
+!        DO i=1, klon
+!         conserv=conserv+d_tr_insc(i,k,it)*(paprs(i,k)-paprs(i,k+1))/RG &
+!                +d_tr_bcscav(i,k,it)*(paprs(i,k)-paprs(i,k+1))/RG  &
+!                +d_tr_evap(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,'lsc conserv ',conserv,'insc',d_tr_insc(i,k,it),'bc',d_tr_bcscav(i,k,it),'ev',d_tr_evap(i,k,it)
+!       ENDDO
+!     ENDDO
+
+END SUBROUTINE lsc_scav
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/methox.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/methox.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/methox.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phylmd/minmaxqfi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/minmaxqfi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/minmaxqfi.F90	(revision 3330)
@@ -0,0 +1,36 @@
+!
+! $Id$
+!
+SUBROUTINE minmaxqfi(zq,qmin,qmax,comment)
+  USE dimphy
+  USE print_control_mod, ONLY: prt_level
+  IMPLICIT NONE
+
+! Entrees
+  REAL,DIMENSION(klon,klev), INTENT(IN)   :: zq
+  REAL,INTENT(IN)                         :: qmin,qmax
+  CHARACTER(LEN=*),INTENT(IN)             :: comment
+
+! Local  
+  INTEGER,DIMENSION(klon)     :: jadrs 
+  INTEGER                     :: i, jbad, k
+
+  DO k = 1, klev
+     jbad = 0
+     DO i = 1, klon
+        IF (zq(i,k).GT.qmax .OR. zq(i,k).LT.qmin) THEN
+           jbad = jbad + 1
+           jadrs(jbad) = i
+        ENDIF
+     ENDDO
+     IF (jbad.GT.0) THEN
+        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
+  
+END SUBROUTINE minmaxqfi
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/mod_surf_para.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/mod_surf_para.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/mod_surf_para.F90	(revision 3330)
@@ -0,0 +1,351 @@
+MODULE mod_surf_para
+  IMPLICIT NONE
+  
+  INTERFACE gather_surf
+    MODULE PROCEDURE gather_surf_i,gather_surf_r
+  END INTERFACE gather_surf
+  
+  INTERFACE gather_surf_omp
+    MODULE PROCEDURE gather_surf_omp_i,gather_surf_omp_r
+  END INTERFACE gather_surf_omp
+
+  INTERFACE gather_surf_mpi
+    MODULE PROCEDURE gather_surf_mpi_i,gather_surf_mpi_r
+  END INTERFACE gather_surf_mpi
+
+  INTERFACE scatter_surf
+    MODULE PROCEDURE scatter_surf_i,scatter_surf_r
+  END INTERFACE scatter_surf
+  
+  INTERFACE scatter_surf_omp
+    MODULE PROCEDURE scatter_surf_omp_i,scatter_surf_omp_r
+  END INTERFACE scatter_surf_omp
+
+  INTERFACE scatter_surf_mpi
+    MODULE PROCEDURE scatter_surf_mpi_i,scatter_surf_mpi_r
+  END INTERFACE scatter_surf_mpi
+  
+  
+  INTEGER,SAVE             :: knon_omp
+  INTEGER,SAVE             :: knon_omp_begin
+  INTEGER,SAVE             :: knon_omp_end
+!$OMP THREADPRIVATE(knon_omp,knon_omp_begin,knon_omp_end)
+  INTEGER,ALLOCATABLE,SAVE :: knon_omp_para(:)
+  INTEGER,ALLOCATABLE,SAVE :: knon_omp_begin_para(:)
+  INTEGER,ALLOCATABLE,SAVE :: knon_omp_end_para(:)
+  
+  INTEGER,SAVE             :: knon_mpi
+  INTEGER,ALLOCATABLE,SAVE :: knon_mpi_para(:)
+  INTEGER,ALLOCATABLE,SAVE :: knon_mpi_begin_para(:)
+  INTEGER,ALLOCATABLE,SAVE :: knon_mpi_end_para(:)
+  
+  INTEGER,SAVE             :: knon_glo
+  INTEGER,SAVE,ALLOCATABLE :: knon_glo_para(:)  
+  INTEGER,ALLOCATABLE,SAVE :: knon_glo_begin_para(:)
+  INTEGER,ALLOCATABLE,SAVE :: knon_glo_end_para(:)
+  
+  
+CONTAINS
+
+  SUBROUTINE Init_surf_para(knon)
+  USE mod_phys_lmdz_para
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif
+    INTEGER :: knon
+    INTEGER :: i,ierr
+    
+    knon_omp=knon
+    IF (is_omp_root) THEN
+      ALLOCATE(knon_omp_para(0:omp_size-1))
+      ALLOCATE(knon_omp_begin_para(0:omp_size-1))
+      ALLOCATE(knon_omp_end_para(0:omp_size-1))
+    ENDIF
+!$OMP BARRIER
+    knon_omp_para(omp_rank)=knon
+!$OMP BARRIER
+    IF (is_omp_root) THEN 
+      knon_omp_begin_para(0)=1
+      knon_omp_end_para(0)=knon_omp_para(0)
+      DO i=1,omp_size-1
+        knon_omp_begin_para(i)=knon_omp_end_para(i-1)+1
+        knon_omp_end_para(i)=knon_omp_begin_para(i)+knon_omp_para(i)-1
+      ENDDO
+    ENDIF 
+!$OMP BARRIER
+    knon_omp_begin=knon_omp_begin_para(omp_rank)
+    knon_omp_end=knon_omp_end_para(omp_rank)
+!$OMP BARRIER    
+    IF (is_omp_root) THEN
+      knon_mpi=sum(knon_omp_para)
+      ALLOCATE(knon_mpi_para(0:mpi_size-1))
+      ALLOCATE(knon_mpi_begin_para(0:mpi_size-1))
+      ALLOCATE(knon_mpi_end_para(0:mpi_size-1))
+      
+      ALLOCATE(knon_glo_para(0:mpi_size*omp_size-1))
+      ALLOCATE(knon_glo_begin_para(0:mpi_size*omp_size-1))
+      ALLOCATE(knon_glo_end_para(0:mpi_size*omp_size-1))
+      
+      IF (is_using_mpi) THEN
+#ifdef CPP_MPI
+        CALL MPI_ALLGather(knon_mpi,1,MPI_INTEGER,knon_mpi_para,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
+        CALL MPI_ALLGather(knon_omp_para,omp_size,MPI_INTEGER,knon_glo_para,omp_size,MPI_INTEGER,COMM_LMDZ_PHY,ierr)
+#endif
+      ELSE
+        knon_mpi_para(:)=knon_mpi
+        knon_glo_para(:)=knon_omp_para(:)
+      ENDIF     
+      
+      knon_glo=sum(knon_mpi_para(:))
+      
+      knon_mpi_begin_para(0)=1
+      knon_mpi_end_para(0)=knon_mpi_para(0)
+      DO i=1,mpi_size-1
+        knon_mpi_begin_para(i)=knon_mpi_end_para(i-1)+1
+        knon_mpi_end_para(i)=knon_mpi_begin_para(i)+knon_mpi_para(i)-1
+      ENDDO
+      
+      knon_glo_begin_para(0)=1
+      knon_glo_end_para(0)=knon_glo_para(0)
+      DO i=1,mpi_size*omp_size-1
+        knon_glo_begin_para(i)=knon_glo_end_para(i-1)+1
+        knon_glo_end_para(i)= knon_glo_begin_para(i)+knon_glo_para(i)-1
+      ENDDO
+   ENDIF
+!$OMP BARRIER
+
+  END SUBROUTINE Init_surf_para
+
+ 
+  SUBROUTINE Finalize_surf_para
+  USE mod_phys_lmdz_para
+
+!$OMP BARRIER   
+   IF (is_omp_root) THEN
+      DEALLOCATE(knon_omp_para)
+      DEALLOCATE(knon_omp_begin_para)
+      DEALLOCATE(knon_omp_end_para)
+      DEALLOCATE(knon_mpi_para)
+      DEALLOCATE(knon_mpi_begin_para)
+      DEALLOCATE(knon_mpi_end_para)
+      DEALLOCATE(knon_glo_para)  
+      DEALLOCATE(knon_glo_begin_para)
+      DEALLOCATE(knon_glo_end_para)
+    ENDIF
+    
+  END SUBROUTINE Finalize_surf_para
+  
+  
+  SUBROUTINE gather_surf_i(FieldIn, FieldOut)
+  USE mod_phys_lmdz_para
+    INTEGER :: FieldIn(:)
+    INTEGER :: FieldOut(:)
+    INTEGER :: FieldTmp(knon_mpi)
+    
+    CALL gather_surf_omp_i(FieldIn,FieldTmp)
+    IF (is_omp_root) CALL gather_surf_mpi_i(FieldTmp,FieldOut)
+    
+  END SUBROUTINE gather_surf_i
+
+
+  SUBROUTINE gather_surf_omp_i(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+    INTEGER :: FieldIn(:)
+    INTEGER :: FieldOut(:)
+  
+    INTEGER,SAVE,ALLOCATABLE :: Field_tmp(:)
+    
+    IF (is_omp_root) ALLOCATE(Field_tmp(knon_mpi))
+!$OMP BARRIER
+    Field_tmp(knon_omp_begin:knon_omp_end)=FieldIn(:)
+!$OMP BARRIER        
+    IF (is_omp_root) FieldOut(:)=Field_tmp(:)
+!$OMP BARRIER
+    IF (is_omp_root) DEALLOCATE(Field_tmp)
+    
+  END SUBROUTINE  gather_surf_omp_i
+  
+     
+  SUBROUTINE gather_surf_mpi_i(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif
+    INTEGER :: FieldIn(:)
+    INTEGER :: FieldOut(:)
+    INTEGER :: ierr
+    
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
+      CALL MPI_Gatherv(FieldIn,knon_mpi,MPI_INTEGER,                                &
+                       FieldOut,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER, &
+                       mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+    ELSE
+      FieldOut(:)=FieldIn(:)
+    ENDIF
+  
+  END SUBROUTINE gather_surf_mpi_i
+  
+
+
+
+
+  SUBROUTINE gather_surf_r(FieldIn, FieldOut)
+  USE mod_phys_lmdz_para
+    REAL :: FieldIn(:)
+    REAL :: FieldOut(:)
+    REAL :: FieldTmp(knon_mpi)
+    
+    CALL gather_surf_omp_r(FieldIn,FieldTmp)
+    IF (is_omp_root) CALL gather_surf_mpi_r(FieldTmp,FieldOut)
+    
+  END SUBROUTINE gather_surf_r
+
+
+  SUBROUTINE gather_surf_omp_r(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+    REAL :: FieldIn(:)
+    REAL :: FieldOut(:)
+  
+    REAL,SAVE,ALLOCATABLE :: Field_tmp(:)
+    
+    IF (is_omp_root) ALLOCATE(Field_tmp(knon_mpi))
+!$OMP BARRIER
+    Field_tmp(knon_omp_begin:knon_omp_end)=FieldIn(:)
+!$OMP BARRIER        
+    IF (is_omp_root) FieldOut(:)=Field_tmp(:)
+!$OMP BARRIER
+    IF (is_omp_root) DEALLOCATE(Field_tmp)
+    
+  END SUBROUTINE  gather_surf_omp_r
+  
+     
+  SUBROUTINE gather_surf_mpi_r(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif
+    REAL :: FieldIn(:)
+    REAL :: FieldOut(:)
+    REAL :: ierr
+    
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
+      CALL MPI_Gatherv(FieldIn,knon_mpi,MPI_REAL_LMDZ,                                 &
+                       FieldOut,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_REAL_LMDZ,  &
+                       mpi_master,COMM_LMDZ_PHY,ierr)            
+#endif
+    ELSE
+      FieldOut(:)=FieldIn(:)
+    ENDIF
+  
+  END SUBROUTINE gather_surf_mpi_r
+
+
+
+
+  SUBROUTINE scatter_surf_i(FieldIn, FieldOut)
+  USE mod_phys_lmdz_para
+    INTEGER :: FieldIn(:)
+    INTEGER :: FieldOut(:)
+    INTEGER :: FieldTmp(knon_mpi)
+    
+    IF (is_omp_root) CALL scatter_surf_mpi_i(FieldIn,FieldTmp)
+    CALL scatter_surf_omp_i(FieldTmp,FieldOut)
+    
+  END SUBROUTINE scatter_surf_i
+
+
+  SUBROUTINE scatter_surf_omp_i(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+    INTEGER :: FieldIn(:)
+    INTEGER :: FieldOut(:)
+  
+    INTEGER,SAVE,ALLOCATABLE :: Field_tmp(:)
+    
+    IF (is_omp_root) ALLOCATE(Field_tmp(knon_mpi))
+    IF (is_omp_root) Field_tmp(:)=FieldIn(:)
+!$OMP BARRIER        
+    FieldOut(:)=Field_tmp(knon_omp_begin:knon_omp_end)
+!$OMP BARRIER
+    IF (is_omp_root) DEALLOCATE(Field_tmp)
+    
+  END SUBROUTINE  scatter_surf_omp_i
+  
+     
+  SUBROUTINE scatter_surf_mpi_i(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif
+    INTEGER :: FieldIn(:)
+    INTEGER :: FieldOut(:)
+    INTEGER :: ierr
+    
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
+      CALL MPI_Scatterv(FieldIn,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER,   &
+                        FieldOut,knon_mpi,MPI_INTEGER,                                &
+                        mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+    ELSE
+      FieldOut(:)=FieldIn(:)
+    ENDIF
+  
+  END SUBROUTINE scatter_surf_mpi_i
+
+
+
+  SUBROUTINE scatter_surf_r(FieldIn, FieldOut)
+  USE mod_phys_lmdz_para
+    REAL :: FieldIn(:)
+    REAL :: FieldOut(:)
+    REAL :: FieldTmp(knon_mpi)
+    
+    IF (is_omp_root) CALL scatter_surf_mpi_r(FieldIn,FieldTmp)
+    CALL scatter_surf_omp_r(FieldTmp,FieldOut)
+    
+  END SUBROUTINE scatter_surf_r
+
+
+  SUBROUTINE scatter_surf_omp_r(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+    REAL :: FieldIn(:)
+    REAL :: FieldOut(:)
+  
+    INTEGER,SAVE,ALLOCATABLE :: Field_tmp(:)
+    
+    IF (is_omp_root) ALLOCATE(Field_tmp(knon_mpi))
+    IF (is_omp_root) Field_tmp(:)=FieldIn(:)
+!$OMP BARRIER        
+    FieldOut(:)=Field_tmp(knon_omp_begin:knon_omp_end)
+!$OMP BARRIER
+    IF (is_omp_root) DEALLOCATE(Field_tmp)
+    
+  END SUBROUTINE  scatter_surf_omp_r
+  
+     
+  SUBROUTINE scatter_surf_mpi_r(FieldIn,FieldOut)
+  USE mod_phys_lmdz_para
+#ifdef CPP_MPI
+  INCLUDE 'mpif.h'
+#endif
+    REAL :: FieldIn(:)
+    REAL :: FieldOut(:)
+    INTEGER :: ierr
+    
+    IF (is_using_mpi) THEN
+#ifdef CPP_MPI
+      CALL MPI_Scatterv(FieldIn,knon_mpi_para,knon_mpi_begin_para(:)-1,MPI_INTEGER,   &
+                        FieldOut,knon_mpi,MPI_INTEGER,                                &
+                        mpi_master,COMM_LMDZ_PHY,ierr)
+#endif
+    ELSE
+      FieldOut(:)=FieldIn(:)
+    ENDIF
+  
+  END SUBROUTINE scatter_surf_mpi_r
+
+END MODULE mod_surf_para
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/mod_synchro_omp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/mod_synchro_omp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/mod_synchro_omp.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE mod_synchro_omp
+
+    INTEGER,SAVE :: exit_omp  
+
+CONTAINS
+
+  SUBROUTINE Init_synchro_omp
+  USE mod_phys_lmdz_para 
+  IMPLICIT NONE
+
+  CALL omp_barrier
+!$OMP MASTER
+  exit_omp=0
+!$OMP END MASTER    
+  CALL omp_barrier
+
+  END SUBROUTINE Init_Synchro_omp
+  
+  SUBROUTINE Synchro_omp  
+  USE mod_phys_lmdz_para
+  IMPLICIT NONE
+  LOGICAL :: out
+  
+    out=.FALSE.
+!$OMP BARRIER
+!$OMP BARRIER
+!$OMP ATOMIC  
+    exit_omp=exit_omp+1
+!$OMP BARRIER
+!$OMP BARRIER
+    IF (exit_omp==omp_size) THEN
+      out=.TRUE.
+    ENDIF
+    
+    DO WHILE (.NOT. out)
+!$OMP BARRIER
+      IF (exit_omp==omp_size) out=.TRUE.
+!$OMP BARRIER
+    ENDDO
+
+!$OMP BARRIER
+!$OMP MASTER
+    exit_omp=0
+!$OMP END MASTER
+!$OMP BARRIER
+
+    IF (exit_omp/=0) THEN
+      STOP 'synchro_omp'
+    ENDIF
+
+  END SUBROUTINE Synchro_omp
+
+
+END MODULE mod_synchro_omp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/moy_undefSTD.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/moy_undefSTD.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/moy_undefSTD.F90	(revision 3330)
@@ -0,0 +1,147 @@
+
+! $Id$
+
+SUBROUTINE moy_undefstd(itap, itapm1)
+  USE netcdf
+  USE dimphy
+#ifdef CPP_IOIPSL 
+  USE phys_state_var_mod
+#endif
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val
+#endif
+ 
+  USE phys_cal_mod, ONLY: mth_len
+  IMPLICIT NONE
+  include "clesphys.h"
+#ifndef CPP_XIOS 
+  REAL :: missing_val
+#endif
+
+  ! ====================================================================
+
+  ! I. Musat : 09.2004
+
+  ! Moyenne - a des frequences differentes - des valeurs bien definies
+  ! (.NE.missing_val) des variables interpolees a un niveau de
+  ! pression.
+  ! 1) les variables de type "day" (nout=1) ou "mth" (nout=2) sont sommees
+  ! tous les pas de temps de la physique
+
+  ! 2) les variables de type "NMC" (nout=3) sont calculees a partir
+  ! des valeurs instantannees toutes les 6 heures
+
+
+  ! NB: mettre "inst(X)" dans le write_hist*NMC.h !
+  ! ====================================================================
+
+
+  ! variables Input
+  ! INTEGER nlevSTD, klevSTD, itap
+  ! PARAMETER(klevSTD=17)
+  INTEGER itap, itapm1
+
+  ! variables locales
+  ! INTEGER i, k, nout, n
+  ! PARAMETER(nout=3) !nout=1 day/nout=2 mth/nout=3 NMC
+  INTEGER i, k, n
+  ! REAL dtime, freq_outNMC(nout), freq_moyNMC(nout)
+  ! REAL freq_outNMC(nout), freq_calNMC(nout)
+  REAL freq_moynmc(nout)
+
+  ! variables Output
+  ! REAL tnondef(klon,klevSTD,nout)
+  ! REAL tsumSTD(klon,klevSTD,nout)
+
+  REAL un_jour
+  PARAMETER (un_jour=86400.)
+! REAL missing_val
+
+! missing_val = nf90_fill_real
+#ifndef CPP_XIOS
+      missing_val=missing_val_nf90
+#endif
+
+  DO n = 1, nout
+    IF (freq_outnmc(n)<0) THEN
+      freq_moynmc(n) = (mth_len*un_jour)/freq_calnmc(n)
+      ! print*,'moy_undefSTD n freq_out freq_moy =',
+      ! $n,freq_moyNMC(n)
+    ELSE
+      freq_moynmc(n) = freq_outnmc(n)/freq_calnmc(n)
+    END IF
+
+    ! calcul 1 fois pas mois, 1 fois par jour ou toutes les 6h
+
+    IF (n==1 .AND. itap==itapm1 .OR. n>1 .AND. mod(itap,nint(freq_outnmc(n)/ & 
+        dtime))==0) THEN
+
+      ! print*,'moy_undefSTD n itap itapm1',n,itap,itapm1
+
+      DO k = 1, nlevstd
+        DO i = 1, klon
+          IF (tnondef(i,k,n)/=(freq_moynmc(n))) THEN
+            tsumstd(i, k, n) = tsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k,n &
+              ))
+            usumstd(i, k, n) = usumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k,n &
+              ))
+            vsumstd(i, k, n) = vsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k,n &
+              ))
+            wsumstd(i, k, n) = wsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k,n &
+              ))
+            phisumstd(i, k, n) = phisumstd(i, k, n)/ &
+              (freq_moynmc(n)-tnondef(i,k,n))
+            qsumstd(i, k, n) = qsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k,n &
+              ))
+            rhsumstd(i, k, n) = rhsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            uvsumstd(i, k, n) = uvsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            vqsumstd(i, k, n) = vqsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            vtsumstd(i, k, n) = vtsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            wqsumstd(i, k, n) = wqsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            vphisumstd(i, k, n) = vphisumstd(i, k, n)/ &
+              (freq_moynmc(n)-tnondef(i,k,n))
+            wtsumstd(i, k, n) = wtsumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            u2sumstd(i, k, n) = u2sumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            v2sumstd(i, k, n) = v2sumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            t2sumstd(i, k, n) = t2sumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            o3sumstd(i, k, n) = o3sumstd(i, k, n)/(freq_moynmc(n)-tnondef(i,k &
+              ,n))
+            o3daysumstd(i, k, n) = o3daysumstd(i, k, n)/ &
+              (freq_moynmc(n)-tnondef(i,k,n))
+          ELSE
+            tsumstd(i, k, n) = missing_val
+            usumstd(i, k, n) = missing_val
+            vsumstd(i, k, n) = missing_val
+            wsumstd(i, k, n) = missing_val
+            phisumstd(i, k, n) = missing_val
+            qsumstd(i, k, n) = missing_val
+            rhsumstd(i, k, n) = missing_val
+            uvsumstd(i, k, n) = missing_val
+            vqsumstd(i, k, n) = missing_val
+            vtsumstd(i, k, n) = missing_val
+            wqsumstd(i, k, n) = missing_val
+            vphisumstd(i, k, n) = missing_val
+            wtsumstd(i, k, n) = missing_val
+            u2sumstd(i, k, n) = missing_val
+            v2sumstd(i, k, n) = missing_val
+            t2sumstd(i, k, n) = missing_val
+            o3sumstd(i, k, n) = missing_val
+            o3daysumstd(i, k, n) = missing_val
+          END IF !tnondef(i,k,n).NE.(freq_moyNMC(n))
+        END DO !i
+      END DO !k
+    END IF !MOD(itap,NINT(freq_outNMC(n)/dtime)).EQ.0
+
+  END DO !n
+
+  RETURN
+END SUBROUTINE moy_undefstd
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/moyglo_aire.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/moyglo_aire.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/moyglo_aire.F90	(revision 3330)
@@ -0,0 +1,149 @@
+
+! $Header$
+
+SUBROUTINE moyglo_pondaire(nhori, champ, aire, ok_msk, msk, moyglo)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! ==================================================================
+  ! I. Musat, 07.2004
+
+  ! Calcul moyenne globale ponderee par l'aire totale, avec ou sans masque
+
+  ! moyenne = Somme_(champ* aire)/Somme_aire
+
+  ! ==================================================================
+
+  INTEGER i, nhori
+  REAL champ(klon), aire(klon), msk(klon)
+  LOGICAL ok_msk
+  REAL moyglo
+
+  ! var locale
+  REAL airetot
+
+  ! PRINT*,'moyglo_pondaire nhori',nhori
+
+  airetot = 0.
+  moyglo = 0.
+
+  IF (ok_msk) THEN
+    DO i = 1, nhori
+      ! IF(msk(i).EQ.1.) THEN
+      IF (msk(i)>0.) THEN
+
+        ! aire totale
+        airetot = airetot + aire(i)*msk(i)
+
+        ! ponderation par la masse
+        moyglo = moyglo + champ(i)*aire(i)*msk(i)
+      END IF
+    END DO
+
+  ELSE !ok_msk
+    DO i = 1, nhori
+
+      ! aire totale
+      airetot = airetot + aire(i)
+
+      ! ponderation par la masse
+      moyglo = moyglo + champ(i)*aire(i)
+    END DO
+
+  END IF
+
+  ! moyenne ponderee par l'aire
+  moyglo = moyglo/airetot
+
+  RETURN
+END SUBROUTINE moyglo_pondaire
+
+SUBROUTINE moyglo_pondaima(nhori, nvert, champ, aire, pbord, moyglo)
+  USE dimphy
+  IMPLICIT NONE
+  ! ==================================================================
+  ! I. Musat, 07.2004
+
+  ! Calcul moyenne globale ponderee par la masse d'air, divisee par l'aire
+  ! totale avec ou sans masque
+
+  ! moyenne = Somme_(champ* masse_dair)/Somme_aire
+
+  ! ==================================================================
+  include "YOMCST.h"
+  INTEGER i, k, nhori, nvert
+  REAL champ(klon, klev), aire(klon)
+  REAL pbord(klon, klev+1)
+  REAL moyglo
+
+  ! var locale
+  REAL airetot
+
+  ! PRINT*,'moyglo_pondaima RG, nhori, nvert',RG,nhori,nvert
+
+  ! ponderation par la masse
+  moyglo = 0.
+  DO k = 1, nvert
+    DO i = 1, nhori
+      moyglo = moyglo + champ(i, k)*(pbord(i,k)-pbord(i,k+1))/rg*aire(i)
+    END DO
+  END DO
+
+  ! aire totale
+  airetot = 0.
+  DO i = 1, nhori
+    airetot = airetot + aire(i)
+  END DO
+
+  ! moyenne par mettre carre avec ponderation par la masse
+  moyglo = moyglo/airetot
+
+  RETURN
+END SUBROUTINE moyglo_pondaima
+
+SUBROUTINE moyglo_pondmass(nhori, nvert, champ, aire, pbord, moyglo)
+  USE dimphy
+  IMPLICIT NONE
+  ! ==================================================================
+  ! I. Musat, 07.2004
+
+  ! Calcul moyenne globale ponderee par la masse d'air, divisee par la
+  ! masse totale d'air, avec ou sans masque
+
+  ! moyenne = Somme_(champ* masse_dair)/Somme_(masse_dair)
+
+  ! ==================================================================
+  include "YOMCST.h"
+  INTEGER i, k, nhori, nvert
+  REAL champ(klon, klev), aire(klon)
+  REAL pbord(klon, klev+1)
+  REAL moyglo
+
+  ! var locale
+  REAL massetot
+
+  ! PRINT*,'moyglo_pondmass RG, nhori, nvert',RG,nhori,nvert
+
+  ! ponderation par la masse
+  moyglo = 0.
+  DO k = 1, nvert
+    DO i = 1, nhori
+      moyglo = moyglo + champ(i, k)*(pbord(i,k)-pbord(i,k+1))/rg*aire(i)
+    END DO
+  END DO
+
+  ! masse totale
+  massetot = 0.
+  DO k = 1, nvert
+    DO i = 1, nhori
+      massetot = massetot + (pbord(i,k)-pbord(i,k+1))/rg*aire(i)
+    END DO
+  END DO
+
+  ! moyenne par mettre carre avec ponderation par la masse
+  moyglo = moyglo/massetot
+
+  RETURN
+END SUBROUTINE moyglo_pondmass
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/newmicro.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/newmicro.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/newmicro.F90	(revision 3330)
@@ -0,0 +1,639 @@
+! $Id$
+
+
+
+SUBROUTINE newmicro(ok_cdnc, bl95_b0, bl95_b1, paprs, pplay, t, pqlwp, pclc, &
+    pcltau, pclemi, pch, pcl, pcm, pct, pctlwp, xflwp, xfiwp, xflwc, xfiwc, &
+    mass_solu_aero, mass_solu_aero_pi, pcldtaupi, re, fl, reliq, reice, &
+    reliq_pi, reice_pi)
+
+  USE dimphy
+  USE phys_local_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &
+    reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra
+  USE phys_state_var_mod, ONLY: rnebcon, clwcon
+  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910
+  ! O.   Boucher (LMD/CNRS) mise a jour en 201212
+  ! I. Musat (LMD/CNRS) : prise en compte de la meme hypothese de recouvrement
+  !                       pour les nuages que pour le rayonnement rrtm via
+  !                       le parametre novlp de radopt.h : 20160721
+  ! Objet: Calculer epaisseur optique et emmissivite des nuages
+  ! ======================================================================
+  ! Arguments:
+  ! ok_cdnc-input-L-flag pour calculer les rayons a partir des aerosols
+
+  ! t-------input-R-temperature
+  ! pqlwp---input-R-eau liquide nuageuse dans l'atmosphere dans la partie
+  ! nuageuse (kg/kg)
+  ! pclc----input-R-couverture nuageuse pour le rayonnement (0 a 1)
+  ! mass_solu_aero-----input-R-total mass concentration for all soluble
+  ! aerosols[ug/m^3]
+  ! mass_solu_aero_pi--input-R-ditto, pre-industrial value
+
+  ! bl95_b0-input-R-a PARAMETER, may be varied for tests (s-sea, l-land)
+  ! bl95_b1-input-R-a PARAMETER, may be varied for tests (    -"-      )
+
+  ! re------output-R-Cloud droplet effective radius multiplied by fl [um]
+  ! fl------output-R-Denominator to re, introduced to avoid problems in
+  ! the averaging of the output. fl is the fraction of liquid
+  ! water clouds within a grid cell
+
+  ! pcltau--output-R-epaisseur optique des nuages
+  ! pclemi--output-R-emissivite des nuages (0 a 1)
+  ! pcldtaupi-output-R-pre-industrial value of cloud optical thickness,
+
+  ! pcl-output-R-2D low-level cloud cover
+  ! pcm-output-R-2D mid-level cloud cover
+  ! pch-output-R-2D high-level cloud cover
+  ! pct-output-R-2D total cloud cover
+  ! ======================================================================
+
+  include "YOMCST.h"
+  include "nuage.h"
+  include "radepsi.h"
+  include "radopt.h"
+
+  ! choix de l'hypothese de recouvrement nuageuse via radopt.h (IM, 19.07.2016)
+  ! !novlp=1: max-random
+  ! !novlp=2: maximum
+  ! !novlp=3: random
+! LOGICAL random, maximum_random, maximum
+! PARAMETER (random=.FALSE., maximum_random=.TRUE., maximum=.FALSE.)
+
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(FIRST)
+  INTEGER flag_max
+
+  ! threshold PARAMETERs
+  REAL thres_tau, thres_neb
+  PARAMETER (thres_tau=0.3, thres_neb=0.001)
+
+  REAL phase3d(klon, klev)
+  REAL tcc(klon), ftmp(klon), lcc_integrat(klon), height(klon)
+
+  REAL paprs(klon, klev+1)
+  REAL pplay(klon, klev)
+  REAL t(klon, klev)
+  REAL pclc(klon, klev)
+  REAL pqlwp(klon, klev)
+  REAL pcltau(klon, klev)
+  REAL pclemi(klon, klev)
+  REAL pcldtaupi(klon, klev)
+
+  REAL pct(klon)
+  REAL pcl(klon)
+  REAL pcm(klon)
+  REAL pch(klon)
+  REAL pctlwp(klon)
+
+  LOGICAL lo
+
+  ! !Abderr modif JL mail du 19.01.2011 18:31
+  ! REAL cetahb, cetamb
+  ! PARAMETER (cetahb = 0.45, cetamb = 0.80)
+  ! Remplacer
+  ! cetahb*paprs(i,1) par  prmhc
+  ! cetamb*paprs(i,1) par  prlmc
+  REAL prmhc ! Pressure between medium and high level cloud in Pa
+  REAL prlmc ! Pressure between low and medium level cloud in Pa
+  PARAMETER (prmhc=440.*100., prlmc=680.*100.)
+
+  INTEGER i, k
+  REAL xflwp(klon), xfiwp(klon)
+  REAL xflwc(klon, klev), xfiwc(klon, klev)
+
+  REAL radius
+
+  REAL coef_froi, coef_chau
+  PARAMETER (coef_chau=0.13, coef_froi=0.09)
+
+  REAL seuil_neb
+  PARAMETER (seuil_neb=0.001)
+
+! JBM (3/14) nexpo is replaced by exposant_glace
+! INTEGER nexpo ! exponentiel pour glace/eau
+! PARAMETER (nexpo=6)
+! PARAMETER (nexpo=1)
+! if iflag_t_glace=0, the old values are used:
+  REAL, PARAMETER :: t_glace_min_old = 258.
+  REAL, PARAMETER :: t_glace_max_old = 273.13
+
+  REAL rel, tc, rei
+  REAL k_ice0, k_ice, df
+  PARAMETER (k_ice0=0.005) ! units=m2/g
+  PARAMETER (df=1.66) ! diffusivity factor
+
+  ! jq for the aerosol indirect effect
+  ! jq introduced by Johannes Quaas (quaas@lmd.jussieu.fr), 27/11/2003
+  ! jq
+  REAL mass_solu_aero(klon, klev) ! total mass concentration for all soluble aerosols [ug m-3]
+  REAL mass_solu_aero_pi(klon, klev) ! - " - (pre-industrial value)
+  REAL cdnc(klon, klev) ! cloud droplet number concentration [m-3]
+  REAL re(klon, klev) ! cloud droplet effective radius [um]
+  REAL cdnc_pi(klon, klev) ! cloud droplet number concentration [m-3] (pi value)
+  REAL re_pi(klon, klev) ! cloud droplet effective radius [um] (pi value)
+
+  REAL fl(klon, klev) ! xliq * rneb (denominator to re; fraction of liquid water clouds
+  ! within the grid cell)
+
+  LOGICAL ok_cdnc
+  REAL bl95_b0, bl95_b1 ! Parameter in B&L 95-Formula
+
+  ! jq-end
+  ! IM cf. CR:parametres supplementaires
+  REAL zclear(klon)
+  REAL zcloud(klon)
+  REAL zcloudh(klon)
+  REAL zcloudm(klon)
+  REAL zcloudl(klon)
+  REAL rhodz(klon, klev) !--rho*dz pour la couche
+  REAL zrho(klon, klev) !--rho pour la couche
+  REAL dh(klon, klev) !--dz pour la couche
+  REAL zfice(klon, klev)
+  REAL rad_chaud(klon, klev) !--rayon pour les nuages chauds
+  REAL rad_chaud_pi(klon, klev) !--rayon pour les nuages chauds pre-industriels
+  REAL zflwp_var, zfiwp_var
+  REAL d_rei_dt
+
+  ! Abderrahmane oct 2009
+  REAL reliq(klon, klev), reice(klon, klev)
+  REAL reliq_pi(klon, klev), reice_pi(klon, klev)
+
+  ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  ! FH : 2011/05/24
+
+  ! rei = ( rei_max - rei_min ) * T(°C) / 81.4 + rei_max
+  ! to be used for a temperature in celcius T(°C) < 0
+  ! rei=rei_min for T(°C) < -81.4
+
+  ! Calcul de la pente de la relation entre rayon effective des cristaux
+  ! et la température.
+  ! Pour retrouver les résultats numériques de la version d'origine,
+  ! on impose 0.71 quand on est proche de 0.71
+
+  d_rei_dt = (rei_max-rei_min)/81.4
+  IF (abs(d_rei_dt-0.71)<1.E-4) d_rei_dt = 0.71
+  ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  ! Calculer l'epaisseur optique et l'emmissivite des nuages
+  ! IM inversion des DO
+
+  xflwp = 0.D0
+  xfiwp = 0.D0
+  xflwc = 0.D0
+  xfiwc = 0.D0
+
+  reliq = 0.
+  reice = 0.
+  reliq_pi = 0.
+  reice_pi = 0.
+
+  IF (iflag_t_glace.EQ.0) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        ! -layer calculation
+        rhodz(i, k) = (paprs(i,k)-paprs(i,k+1))/rg ! kg/m2
+        zrho(i, k) = pplay(i, k)/t(i, k)/rd ! kg/m3
+        dh(i, k) = rhodz(i, k)/zrho(i, k) ! m
+        ! -Fraction of ice in cloud using a linear transition
+        zfice(i, k) = 1.0 - (t(i,k)-t_glace_min_old)/(t_glace_max_old-t_glace_min_old)
+        zfice(i, k) = min(max(zfice(i,k),0.0), 1.0)
+        ! -IM Total Liquid/Ice water content
+        xflwc(i, k) = (1.-zfice(i,k))*pqlwp(i, k)
+        xfiwc(i, k) = zfice(i, k)*pqlwp(i, k)
+      END DO
+    END DO
+  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
+        rhodz(i, k) = (paprs(i,k)-paprs(i,k+1))/rg ! kg/m2
+        zrho(i, k) = pplay(i, k)/t(i, k)/rd ! kg/m3
+        dh(i, k) = rhodz(i, k)/zrho(i, k) ! m
+        ! -IM Total Liquid/Ice water content
+        xflwc(i, k) = (1.-zfice(i,k))*pqlwp(i, k)
+        xfiwc(i, k) = zfice(i, k)*pqlwp(i, k)
+      END DO
+    END DO
+  ENDIF
+
+  IF (ok_cdnc) THEN
+
+    ! --we compute cloud properties as a function of the aerosol load
+
+    DO k = 1, klev
+      DO i = 1, klon
+
+        ! Formula "D" of Boucher and Lohmann, Tellus, 1995
+        ! Cloud droplet number concentration (CDNC) is restricted
+        ! to be within [20, 1000 cm^3]
+
+        ! --present-day case
+        cdnc(i, k) = 10.**(bl95_b0+bl95_b1*log(max(mass_solu_aero(i,k), &
+          1.E-4))/log(10.))*1.E6 !-m-3
+        cdnc(i, k) = min(1000.E6, max(20.E6,cdnc(i,k)))
+
+        ! --pre-industrial case
+        cdnc_pi(i, k) = 10.**(bl95_b0+bl95_b1*log(max(mass_solu_aero_pi(i,k), &
+          1.E-4))/log(10.))*1.E6 !-m-3
+        cdnc_pi(i, k) = min(1000.E6, max(20.E6,cdnc_pi(i,k)))
+
+        ! --present-day case
+        rad_chaud(i, k) = 1.1*((pqlwp(i,k)*pplay(i, &
+          k)/(rd*t(i,k)))/(4./3*rpi*1000.*cdnc(i,k)))**(1./3.)
+        rad_chaud(i, k) = max(rad_chaud(i,k)*1.E6, 5.)
+
+        ! --pre-industrial case
+        rad_chaud_pi(i, k) = 1.1*((pqlwp(i,k)*pplay(i, &
+          k)/(rd*t(i,k)))/(4./3.*rpi*1000.*cdnc_pi(i,k)))**(1./3.)
+        rad_chaud_pi(i, k) = max(rad_chaud_pi(i,k)*1.E6, 5.)
+
+        ! --pre-industrial case
+        ! --liquid/ice cloud water paths:
+        IF (pclc(i,k)<=seuil_neb) THEN
+
+          pcldtaupi(i, k) = 0.0
+
+        ELSE
+
+          zflwp_var = 1000.*(1.-zfice(i,k))*pqlwp(i, k)/pclc(i, k)* &
+            rhodz(i, k)
+          zfiwp_var = 1000.*zfice(i, k)*pqlwp(i, k)/pclc(i, k)*rhodz(i, k)
+          tc = t(i, k) - 273.15
+          rei = d_rei_dt*tc + rei_max
+          IF (tc<=-81.4) rei = rei_min
+
+          ! -- cloud optical thickness :
+          ! [for liquid clouds, traditional formula,
+          ! for ice clouds, Ebert & Curry (1992)]
+
+          IF (zfiwp_var==0. .OR. rei<=0.) rei = 1.
+          pcldtaupi(i, k) = 3.0/2.0*zflwp_var/rad_chaud_pi(i, k) + &
+            zfiwp_var*(3.448E-03+2.431/rei)
+
+        END IF
+
+      END DO
+    END DO
+
+  ELSE !--not ok_cdnc
+
+    ! -prescribed cloud droplet radius
+
+    DO k = 1, min(3, klev)
+      DO i = 1, klon
+        rad_chaud(i, k) = rad_chau2
+        rad_chaud_pi(i, k) = rad_chau2
+      END DO
+    END DO
+    DO k = min(3, klev) + 1, klev
+      DO i = 1, klon
+        rad_chaud(i, k) = rad_chau1
+        rad_chaud_pi(i, k) = rad_chau1
+      END DO
+    END DO
+
+  END IF !--ok_cdnc
+
+  ! --computation of cloud optical depth and emissivity
+  ! --in the general case
+
+  DO k = 1, klev
+    DO i = 1, klon
+
+      IF (pclc(i,k)<=seuil_neb) THEN
+
+        ! effective cloud droplet radius (microns) for liquid water clouds:
+        ! For output diagnostics cloud droplet effective radius [um]
+        ! we multiply here with f * xl (fraction of liquid water
+        ! clouds in the grid cell) to avoid problems in the averaging of the
+        ! output.
+        ! In the output of IOIPSL, derive the REAL cloud droplet
+        ! effective radius as re/fl
+
+        fl(i, k) = seuil_neb*(1.-zfice(i,k))
+        re(i, k) = rad_chaud(i, k)*fl(i, k)
+        rel = 0.
+        rei = 0.
+        pclc(i, k) = 0.0
+        pcltau(i, k) = 0.0
+        pclemi(i, k) = 0.0
+
+      ELSE
+
+        ! -- liquid/ice cloud water paths:
+
+        zflwp_var = 1000.*(1.-zfice(i,k))*pqlwp(i, k)/pclc(i, k)*rhodz(i, k)
+        zfiwp_var = 1000.*zfice(i, k)*pqlwp(i, k)/pclc(i, k)*rhodz(i, k)
+
+        ! effective cloud droplet radius (microns) for liquid water clouds:
+        ! For output diagnostics cloud droplet effective radius [um]
+        ! we multiply here with f * xl (fraction of liquid water
+        ! clouds in the grid cell) to avoid problems in the averaging of the
+        ! output.
+        ! In the output of IOIPSL, derive the REAL cloud droplet
+        ! effective radius as re/fl
+
+        fl(i, k) = pclc(i, k)*(1.-zfice(i,k))
+        re(i, k) = rad_chaud(i, k)*fl(i, k)
+
+        rel = rad_chaud(i, k)
+
+        ! for ice clouds: as a function of the ambiant temperature
+        ! [formula used by Iacobellis and Somerville (2000), with an
+        ! asymptotical value of 3.5 microns at T<-81.4 C added to be
+        ! consistent with observations of Heymsfield et al. 1986]:
+        ! 2011/05/24 : rei_min = 3.5 becomes a free PARAMETER as well as
+        ! rei_max=61.29
+
+        tc = t(i, k) - 273.15
+        rei = d_rei_dt*tc + rei_max
+        IF (tc<=-81.4) rei = rei_min
+
+        ! -- cloud optical thickness :
+        ! [for liquid clouds, traditional formula,
+        ! for ice clouds, Ebert & Curry (1992)]
+
+        IF (zflwp_var==0.) rel = 1.
+        IF (zfiwp_var==0. .OR. rei<=0.) rei = 1.
+        pcltau(i, k) = 3.0/2.0*(zflwp_var/rel) + zfiwp_var*(3.448E-03+2.431/ &
+          rei)
+
+        ! -- cloud infrared emissivity:
+        ! [the broadband infrared absorption coefficient is PARAMETERized
+        ! as a function of the effective cld droplet radius]
+        ! Ebert and Curry (1992) formula as used by Kiehl & Zender (1995):
+
+        k_ice = k_ice0 + 1.0/rei
+
+        pclemi(i, k) = 1.0 - exp(-coef_chau*zflwp_var-df*k_ice*zfiwp_var)
+
+      END IF
+
+      reice(i, k) = rei
+
+      xflwp(i) = xflwp(i) + xflwc(i, k)*rhodz(i, k)
+      xfiwp(i) = xfiwp(i) + xfiwc(i, k)*rhodz(i, k)
+
+    END DO
+  END DO
+
+  ! --if cloud droplet radius is fixed, then pcldtaupi=pcltau
+
+  IF (.NOT. ok_cdnc) THEN
+    DO k = 1, klev
+      DO i = 1, klon
+        pcldtaupi(i, k) = pcltau(i, k)
+        reice_pi(i, k) = reice(i, k)
+      END DO
+    END DO
+  END IF
+
+  DO k = 1, klev
+    DO i = 1, klon
+      reliq(i, k) = rad_chaud(i, k)
+      reliq_pi(i, k) = rad_chaud_pi(i, k)
+      reice_pi(i, k) = reice(i, k)
+    END DO
+  END DO
+
+  ! COMPUTE CLOUD LIQUID PATH AND TOTAL CLOUDINESS
+  ! IM cf. CR:test: calcul prenant ou non en compte le recouvrement
+  ! initialisations
+
+  DO i = 1, klon
+    zclear(i) = 1.
+    zcloud(i) = 0.
+    zcloudh(i) = 0.
+    zcloudm(i) = 0.
+    zcloudl(i) = 0.
+    pch(i) = 1.0
+    pcm(i) = 1.0
+    pcl(i) = 1.0
+    pctlwp(i) = 0.0
+  END DO
+
+  ! --calculation of liquid water path
+
+  DO k = klev, 1, -1
+    DO i = 1, klon
+      pctlwp(i) = pctlwp(i) + pqlwp(i, k)*rhodz(i, k)
+    END DO
+  END DO
+
+  ! --calculation of cloud properties with cloud overlap
+
+  IF (novlp==1) THEN
+    DO k = klev, 1, -1
+      DO i = 1, klon
+        zclear(i) = zclear(i)*(1.-max(pclc(i,k),zcloud(i)))/(1.-min(real( &
+          zcloud(i),kind=8),1.-zepsec))
+        pct(i) = 1. - zclear(i)
+        IF (paprs(i,k)<prmhc) THEN
+          pch(i) = pch(i)*(1.-max(pclc(i,k),zcloudh(i)))/(1.-min(real(zcloudh &
+            (i),kind=8),1.-zepsec))
+          zcloudh(i) = pclc(i, k)
+        ELSE IF (paprs(i,k)>=prmhc .AND. paprs(i,k)<prlmc) THEN
+          pcm(i) = pcm(i)*(1.-max(pclc(i,k),zcloudm(i)))/(1.-min(real(zcloudm &
+            (i),kind=8),1.-zepsec))
+          zcloudm(i) = pclc(i, k)
+        ELSE IF (paprs(i,k)>=prlmc) THEN
+          pcl(i) = pcl(i)*(1.-max(pclc(i,k),zcloudl(i)))/(1.-min(real(zcloudl &
+            (i),kind=8),1.-zepsec))
+          zcloudl(i) = pclc(i, k)
+        END IF
+        zcloud(i) = pclc(i, k)
+      END DO
+    END DO
+  ELSE IF (novlp==2) THEN
+    DO k = klev, 1, -1
+      DO i = 1, klon
+        zcloud(i) = max(pclc(i,k), zcloud(i))
+        pct(i) = zcloud(i)
+        IF (paprs(i,k)<prmhc) THEN
+          pch(i) = min(pclc(i,k), pch(i))
+        ELSE IF (paprs(i,k)>=prmhc .AND. paprs(i,k)<prlmc) THEN
+          pcm(i) = min(pclc(i,k), pcm(i))
+        ELSE IF (paprs(i,k)>=prlmc) THEN
+          pcl(i) = min(pclc(i,k), pcl(i))
+        END IF
+      END DO
+    END DO
+  ELSE IF (novlp==3) THEN
+    DO k = klev, 1, -1
+      DO i = 1, klon
+        zclear(i) = zclear(i)*(1.-pclc(i,k))
+        pct(i) = 1 - zclear(i)
+        IF (paprs(i,k)<prmhc) THEN
+          pch(i) = pch(i)*(1.0-pclc(i,k))
+        ELSE IF (paprs(i,k)>=prmhc .AND. paprs(i,k)<prlmc) THEN
+          pcm(i) = pcm(i)*(1.0-pclc(i,k))
+        ELSE IF (paprs(i,k)>=prlmc) THEN
+          pcl(i) = pcl(i)*(1.0-pclc(i,k))
+        END IF
+      END DO
+    END DO
+  END IF
+
+  DO i = 1, klon
+    pch(i) = 1. - pch(i)
+    pcm(i) = 1. - pcm(i)
+    pcl(i) = 1. - pcl(i)
+  END DO
+
+  ! ========================================================
+  ! DIAGNOSTICS CALCULATION FOR CMIP5 PROTOCOL
+  ! ========================================================
+  ! change by Nicolas Yan (LSCE)
+  ! Cloud Droplet Number Concentration (CDNC) : 3D variable
+  ! Fractionnal cover by liquid water cloud (LCC3D) : 3D variable
+  ! Cloud Droplet Number Concentration at top of cloud (CLDNCL) : 2D variable
+  ! Droplet effective radius at top of cloud (REFFCLWTOP) : 2D variable
+  ! Fractionnal cover by liquid water at top of clouds (LCC) : 2D variable
+
+  IF (ok_cdnc) THEN
+
+    DO k = 1, klev
+      DO i = 1, klon
+        phase3d(i, k) = 1 - zfice(i, k)
+        IF (pclc(i,k)<=seuil_neb) THEN
+          lcc3d(i, k) = seuil_neb*phase3d(i, k)
+        ELSE
+          lcc3d(i, k) = pclc(i, k)*phase3d(i, k)
+        END IF
+        scdnc(i, k) = lcc3d(i, k)*cdnc(i, k) ! m-3
+      END DO
+    END DO
+
+    DO i = 1, klon
+      lcc(i) = 0.
+      reffclwtop(i) = 0.
+      cldncl(i) = 0.
+      IF (novlp.EQ.3 .OR. novlp.EQ.1) tcc(i) = 1.
+      IF (novlp.EQ.2) tcc(i) = 0.
+    END DO
+
+    DO i = 1, klon
+      DO k = klev - 1, 1, -1 !From TOA down
+
+          ! Test, if the cloud optical depth exceeds the necessary
+          ! threshold:
+
+        IF (pcltau(i,k)>thres_tau .AND. pclc(i,k)>thres_neb) THEN
+
+          IF (novlp.EQ.2) THEN
+            IF (first) THEN
+              WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM'
+              first = .FALSE.
+            END IF
+            flag_max = -1.
+            ftmp(i) = max(tcc(i), pclc(i,k))
+          END IF
+
+          IF (novlp.EQ.3) THEN
+            IF (first) THEN
+              WRITE (*, *) 'Hypothese de recouvrement: RANDOM'
+              first = .FALSE.
+            END IF
+            flag_max = 1.
+            ftmp(i) = tcc(i)*(1-pclc(i,k))
+          END IF
+
+          IF (novlp.EQ.1) THEN
+            IF (first) THEN
+              WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM_ &
+                &                                             &
+                &                                          RANDOM'
+              first = .FALSE.
+            END IF
+            flag_max = 1.
+            ftmp(i) = tcc(i)*(1.-max(pclc(i,k),pclc(i,k+1)))/(1.-min(pclc(i, &
+              k+1),1.-thres_neb))
+          END IF
+          ! Effective radius of cloud droplet at top of cloud (m)
+          reffclwtop(i) = reffclwtop(i) + rad_chaud(i, k)*1.0E-06*phase3d(i, &
+            k)*(tcc(i)-ftmp(i))*flag_max
+          ! CDNC at top of cloud (m-3)
+          cldncl(i) = cldncl(i) + cdnc(i, k)*phase3d(i, k)*(tcc(i)-ftmp(i))* &
+            flag_max
+          ! Liquid Cloud Content at top of cloud
+          lcc(i) = lcc(i) + phase3d(i, k)*(tcc(i)-ftmp(i))*flag_max
+          ! Total Cloud Content at top of cloud
+          tcc(i) = ftmp(i)
+
+        END IF ! is there a visible, not-too-small cloud?
+      END DO ! loop over k
+
+      IF (novlp.EQ.3 .OR. novlp.EQ.1) tcc(i) = 1. - tcc(i)
+
+    END DO ! loop over i
+
+    ! ! Convective and Stratiform Cloud Droplet Effective Radius (REFFCLWC
+    ! REFFCLWS)
+    DO i = 1, klon
+      DO k = 1, klev
+        ! Weight to be used for outputs: eau_liquide*couverture nuageuse
+        lcc3dcon(i, k) = rnebcon(i, k)*phase3d(i, k)*clwcon(i, k) ! eau liquide convective
+        lcc3dstra(i, k) = pclc(i, k)*pqlwp(i, k)*phase3d(i, k)
+        lcc3dstra(i, k) = lcc3dstra(i, k) - lcc3dcon(i, k) ! eau liquide stratiforme
+        lcc3dstra(i, k) = max(lcc3dstra(i,k), 0.0)
+        ! Compute cloud droplet radius as above in meter
+        radius = 1.1*((pqlwp(i,k)*pplay(i,k)/(rd*t(i,k)))/(4./3*rpi*1000.* &
+          cdnc(i,k)))**(1./3.)
+        radius = max(radius, 5.E-6)
+        ! Convective Cloud Droplet Effective Radius (REFFCLWC) : variable 3D
+        reffclwc(i, k) = radius
+        reffclwc(i, k) = reffclwc(i, k)*lcc3dcon(i, k)
+        ! Stratiform Cloud Droplet Effective Radius (REFFCLWS) : variable 3D
+        reffclws(i, k) = radius
+        reffclws(i, k) = reffclws(i, k)*lcc3dstra(i, k)
+      END DO !klev
+    END DO !klon
+
+    ! Column Integrated Cloud Droplet Number (CLDNVI) : variable 2D
+
+    DO i = 1, klon
+      cldnvi(i) = 0.
+      lcc_integrat(i) = 0.
+      height(i) = 0.
+      DO k = 1, klev
+        cldnvi(i) = cldnvi(i) + cdnc(i, k)*lcc3d(i, k)*dh(i, k)
+        lcc_integrat(i) = lcc_integrat(i) + lcc3d(i, k)*dh(i, k)
+        height(i) = height(i) + dh(i, k)
+      END DO ! klev
+      lcc_integrat(i) = lcc_integrat(i)/height(i)
+      IF (lcc_integrat(i)<=1.0E-03) THEN
+        cldnvi(i) = cldnvi(i)*lcc(i)/seuil_neb
+      ELSE
+        cldnvi(i) = cldnvi(i)*lcc(i)/lcc_integrat(i)
+      END IF
+    END DO ! klon
+
+    DO i = 1, klon
+      DO k = 1, klev
+        IF (scdnc(i,k)<=0.0) scdnc(i, k) = 0.0
+        IF (reffclws(i,k)<=0.0) reffclws(i, k) = 0.0
+        IF (reffclwc(i,k)<=0.0) reffclwc(i, k) = 0.0
+        IF (lcc3d(i,k)<=0.0) lcc3d(i, k) = 0.0
+        IF (lcc3dcon(i,k)<=0.0) lcc3dcon(i, k) = 0.0
+        IF (lcc3dstra(i,k)<=0.0) lcc3dstra(i, k) = 0.0
+      END DO
+      IF (reffclwtop(i)<=0.0) reffclwtop(i) = 0.0
+      IF (cldncl(i)<=0.0) cldncl(i) = 0.0
+      IF (cldnvi(i)<=0.0) cldnvi(i) = 0.0
+      IF (lcc(i)<=0.0) lcc(i) = 0.0
+    END DO
+
+  END IF !ok_cdnc
+
+  RETURN
+
+END SUBROUTINE newmicro
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nflxtr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nflxtr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nflxtr.F90	(revision 3330)
@@ -0,0 +1,159 @@
+!
+! $Id $
+!
+SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d,pplay,paprs,x,dx) 
+  USE dimphy
+  IMPLICIT NONE 
+!=====================================================================
+! Objet : Melange convectif de traceurs a partir des flux de masse 
+! Date : 13/12/1996 -- 13/01/97
+! Auteur: O. Boucher (LOA) sur inspiration de Z. X. Li (LMD),
+!         Brinkop et Sausen (1996) et Boucher et al. (1996).
+! ATTENTION : meme si cette routine se veut la plus generale possible, 
+!             elle a herite de certaines notations et conventions du 
+!             schema de Tiedtke (1993).
+! 1. En particulier, les couches sont numerotees de haut en bas !!!
+!    Ceci est valable pour les flux
+!    mais pas pour les entrees x, pplay, paprs !!!!
+! 2. pmfu est positif, pmfd est negatif 
+! 3. Tous les flux d'entrainements et de detrainements sont positifs 
+!    contrairement au schema de Tiedtke d'ou les changements de signe!!!! 
+!=====================================================================
+!
+  include "YOMCST.h"
+  include "YOECUMF.h" 
+
+  REAL,INTENT(IN) :: pdtime  ! pdtphys
+!
+! les flux sont definis au 1/2 niveaux 
+! => pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls
+!
+  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
+
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay ! pression aux couches (bas en haut)
+  REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs ! pression aux 1/2 couches (bas en haut)
+  REAL,DIMENSION(klon,klev),INTENT(IN)   :: x     ! q de traceur (bas en haut) 
+  REAL,DIMENSION(klon,klev),INTENT(INOUT) :: dx   ! tendance de traceur  (bas en haut)
+
+! flux convectifs mais en variables locales
+  REAL,DIMENSION(klon,klev+1) :: zmfu  ! copie de pmfu avec klev+1 = 0
+  REAL,DIMENSION(klon,klev+1) :: zmfd  ! copie de pmfd avec klev+1 = 0
+  REAL,DIMENSION(klon,klev)   :: zen_u
+  REAL,DIMENSION(klon,klev)   :: zde_u
+  REAL,DIMENSION(klon,klev)   :: zen_d
+  REAL,DIMENSION(klon,klev)   :: zde_d
+  REAL                        :: zmfe
+
+! variables locales      
+! les flux de x sont definis aux 1/2 niveaux 
+! xu et xd sont definis aux niveaux complets
+  REAL,DIMENSION(klon,klev)   :: xu      ! q de traceurs dans le panache montant
+  REAL,DIMENSION(klon,klev)   :: xd      ! q de traceurs dans le panache descendant
+  REAL,DIMENSION(klon,klev+1) :: zmfux   ! flux de x dans le panache montant
+  REAL,DIMENSION(klon,klev+1) :: zmfdx   ! flux de x dans le panache descendant
+  REAL,DIMENSION(klon,klev+1) :: zmfex   ! flux de x dans l'environnement 
+  INTEGER                     :: i, k 
+  REAL,PARAMETER              :: zmfmin=1.E-10
+
+! ==============================================
+! Extension des flux UP et DN sur klev+1 niveaux
+! ==============================================
+  DO k=1,klev
+     DO i=1,klon
+        zmfu(i,k)=pmfu(i,k)
+        zmfd(i,k)=pmfd(i,k)
+     ENDDO
+  ENDDO
+  DO i=1,klon
+     zmfu(i,klev+1)=0.
+     zmfd(i,klev+1)=0.
+  ENDDO
+! ==========================================
+! modif pour diagnostiquer les detrainements
+! ==========================================
+!   on privilegie l'ajustement de l'entrainement dans l'ascendance.
+
+  DO k=1, klev
+     DO i=1, klon
+        zen_d(i,k)=pen_d(i,k)
+        zde_u(i,k)=pde_u(i,k)
+        zde_d(i,k) =-zmfd(i,k+1)+zmfd(i,k)+zen_d(i,k)
+        zen_u(i,k) = zmfu(i,k+1)-zmfu(i,k)+zde_u(i,k)
+     ENDDO
+  ENDDO
+! =========================================
+! calcul des flux dans le panache montant
+! =========================================
+!
+! Dans la premiere couche, on prend q comme valeur de qu
+
+  DO i=1, klon
+     zmfux(i,1)=0.0 
+  ENDDO
+
+! Autres couches
+  DO k=1,klev
+     DO i=1, klon
+        IF ((zmfu(i,k+1)+zde_u(i,k)).lt.zmfmin) THEN
+           xu(i,k)=x(i,k)
+        ELSE
+           xu(i,k)=(zmfux(i,k)+zen_u(i,k)*x(i,k))/(zmfu(i,k+1)+zde_u(i,k))
+        ENDIF
+        zmfux(i,k+1)=zmfu(i,k+1)*xu(i,k)
+     ENDDO
+  ENDDO
+! ==========================================
+! calcul des flux dans le panache descendant
+! ==========================================
+   
+  DO i=1, klon
+     zmfdx(i,klev+1)=0.0 
+  ENDDO
+
+  DO k=klev,1,-1
+     DO i=1, klon
+        IF ((zde_d(i,k)-zmfd(i,k)).lt.zmfmin) THEN
+           xd(i,k)=x(i,k)
+        ELSE
+           xd(i,k)=(zmfdx(i,k+1)-zen_d(i,k)*x(i,k))/(zmfd(i,k)-zde_d(i,k))
+        ENDIF
+        zmfdx(i,k)=zmfd(i,k)*xd(i,k)
+     ENDDO
+  ENDDO
+! ===================================================
+! introduction du flux de retour dans l'environnement
+! ===================================================
+
+  DO k=2, klev
+     DO i=1, klon
+        zmfe=-zmfu(i,k)-zmfd(i,k)
+        IF (zmfe.le.0.) then
+           zmfex(i,k)= zmfe*x(i,k)
+        ELSE
+           zmfex(i,k)= zmfe*x(i,k-1)
+        ENDIF
+     ENDDO
+  ENDDO
+
+  DO i=1, klon
+     zmfex(i,1)=0.
+     zmfex(i,klev+1)=0.
+  ENDDO
+! ==========================
+! calcul final des tendances
+! ==========================
+  DO k=1, klev
+     DO i=1, klon
+        dx(i,k)=RG/(paprs(i,k)-paprs(i,k+1))*pdtime*  &
+             ( zmfux(i,k) - zmfux(i,k+1) +            &
+             zmfdx(i,k) - zmfdx(i,k+1) +              &
+             zmfex(i,k) - zmfex(i,k+1) )
+     ENDDO
+  ENDDO
+  
+END SUBROUTINE nflxtr
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nonlocal.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nonlocal.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nonlocal.F90	(revision 3330)
@@ -0,0 +1,407 @@
+
+! $Header$
+
+! ======================================================================
+SUBROUTINE nonlocal(knon, paprs, pplay, tsol, beta, u, v, t, q, cd_h, cd_m, &
+    pcfh, pcfm, cgh, cgq)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Laurent Li (LMD/CNRS), le 30 septembre 1998
+  ! Couche limite non-locale. Adaptation du code du CCM3.
+  ! Code non teste, donc a ne pas utiliser.
+  ! ======================================================================
+  ! Nonlocal scheme that determines eddy diffusivities based on a
+  ! diagnosed boundary layer height and a turbulent velocity scale.
+  ! Also countergradient effects for heat and moisture are included.
+
+  ! For more information, see Holtslag, A.A.M., and B.A. Boville, 1993:
+  ! Local versus nonlocal boundary-layer diffusion in a global climate
+  ! model. J. of Climate, vol. 6, 1825-1842.
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  INTEGER knon ! nombre de points a calculer
+  REAL tsol(klon) ! temperature du sol (K)
+  REAL beta(klon) ! efficacite d'evaporation (entre 0 et 1)
+  REAL paprs(klon, klev+1) ! pression a inter-couche (Pa)
+  REAL pplay(klon, klev) ! pression au milieu de couche (Pa)
+  REAL u(klon, klev) ! vitesse U (m/s)
+  REAL v(klon, klev) ! vitesse V (m/s)
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! vapeur d'eau (kg/kg)
+  REAL cd_h(klon) ! coefficient de friction au sol pour chaleur
+  REAL cd_m(klon) ! coefficient de friction au sol pour vitesse
+
+  INTEGER isommet
+  REAL vk
+  PARAMETER (vk=0.40)
+  REAL ricr
+  PARAMETER (ricr=0.4)
+  REAL fak
+  PARAMETER (fak=8.5)
+  REAL fakn
+  PARAMETER (fakn=7.2)
+  REAL onet
+  PARAMETER (onet=1.0/3.0)
+  REAL t_coup
+  PARAMETER (t_coup=273.15)
+  REAL zkmin
+  PARAMETER (zkmin=0.01)
+  REAL betam
+  PARAMETER (betam=15.0)
+  REAL betah
+  PARAMETER (betah=15.0)
+  REAL betas
+  PARAMETER (betas=5.0)
+  REAL sffrac
+  PARAMETER (sffrac=0.1)
+  REAL binm
+  PARAMETER (binm=betam*sffrac)
+  REAL binh
+  PARAMETER (binh=betah*sffrac)
+  REAL ccon
+  PARAMETER (ccon=fak*sffrac*vk)
+
+  REAL z(klon, klev)
+  REAL pcfm(klon, klev), pcfh(klon, klev)
+
+  INTEGER i, k
+  REAL zxt, zxq, zxu, zxv, zxmod, taux, tauy
+  REAL zx_alf1, zx_alf2 ! parametres pour extrapolation
+  REAL khfs(klon) ! surface kinematic heat flux [mK/s]
+  REAL kqfs(klon) ! sfc kinematic constituent flux [m/s]
+  REAL heatv(klon) ! surface virtual heat flux
+  REAL ustar(klon)
+  REAL rino(klon, klev) ! bulk Richardon no. from level to ref lev
+  LOGICAL unstbl(klon) ! pts w/unstbl pbl (positive virtual ht flx)
+  LOGICAL stblev(klon) ! stable pbl with levels within pbl
+  LOGICAL unslev(klon) ! unstbl pbl with levels within pbl
+  LOGICAL unssrf(klon) ! unstb pbl w/lvls within srf pbl lyr
+  LOGICAL unsout(klon) ! unstb pbl w/lvls in outer pbl lyr
+  LOGICAL check(klon) ! True=>chk if Richardson no.>critcal
+  REAL pblh(klon)
+  REAL cgh(klon, 2:klev) ! counter-gradient term for heat [K/m]
+  REAL cgq(klon, 2:klev) ! counter-gradient term for constituents
+  REAL cgs(klon, 2:klev) ! counter-gradient star (cg/flux)
+  REAL obklen(klon)
+  REAL ztvd, ztvu, zdu2
+  REAL therm(klon) ! thermal virtual temperature excess
+  REAL phiminv(klon) ! inverse phi function for momentum
+  REAL phihinv(klon) ! inverse phi function for heat
+  REAL wm(klon) ! turbulent velocity scale for momentum
+  REAL fak1(klon) ! k*ustar*pblh
+  REAL fak2(klon) ! k*wm*pblh
+  REAL fak3(klon) ! fakn*wstr/wm
+  REAL pblk(klon) ! level eddy diffusivity for momentum
+  REAL pr(klon) ! Prandtl number for eddy diffusivities
+  REAL zl(klon) ! zmzp / Obukhov length
+  REAL zh(klon) ! zmzp / pblh
+  REAL zzh(klon) ! (1-(zmzp/pblh))**2
+  REAL wstr(klon) ! w*, convective velocity scale
+  REAL zm(klon) ! current level height
+  REAL zp(klon) ! current level height + one level up
+  REAL zcor, zdelta, zcvm5, zxqs
+  REAL fac, pblmin, zmzp, term
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  ! Initialisation
+
+  isommet = klev
+
+  DO i = 1, klon
+    pcfh(i, 1) = cd_h(i)
+    pcfm(i, 1) = cd_m(i)
+  END DO
+  DO k = 2, klev
+    DO i = 1, klon
+      pcfh(i, k) = zkmin
+      pcfm(i, k) = zkmin
+      cgs(i, k) = 0.0
+      cgh(i, k) = 0.0
+      cgq(i, k) = 0.0
+    END DO
+  END DO
+
+  ! Calculer les hauteurs de chaque couche
+
+  DO i = 1, knon
+    z(i, 1) = rd*t(i, 1)/(0.5*(paprs(i,1)+pplay(i,1)))*(paprs(i,1)-pplay(i,1) &
+      )/rg
+  END DO
+  DO k = 2, klev
+    DO i = 1, knon
+      z(i, k) = z(i, k-1) + rd*0.5*(t(i,k-1)+t(i,k))/paprs(i, k)*(pplay(i,k-1 &
+        )-pplay(i,k))/rg
+    END DO
+  END DO
+
+  DO i = 1, knon
+    IF (thermcep) THEN
+      zdelta = max(0., sign(1.,rtt-tsol(i)))
+      zcvm5 = r5les*rlvtt*(1.-zdelta) + r5ies*rlstt*zdelta
+      zcvm5 = zcvm5/rcpd/(1.0+rvtmp2*q(i,1))
+      zxqs = r2es*foeew(tsol(i), zdelta)/paprs(i, 1)
+      zxqs = min(0.5, zxqs)
+      zcor = 1./(1.-retv*zxqs)
+      zxqs = zxqs*zcor
+    ELSE
+      IF (tsol(i)<t_coup) THEN
+        zxqs = qsats(tsol(i))/paprs(i, 1)
+      ELSE
+        zxqs = qsatl(tsol(i))/paprs(i, 1)
+      END IF
+    END IF
+    zx_alf1 = 1.0
+    zx_alf2 = 1.0 - zx_alf1
+    zxt = (t(i,1)+z(i,1)*rg/rcpd/(1.+rvtmp2*q(i,1)))*(1.+retv*q(i,1))*zx_alf1 &
+      + (t(i,2)+z(i,2)*rg/rcpd/(1.+rvtmp2*q(i,2)))*(1.+retv*q(i,2))*zx_alf2
+    zxu = u(i, 1)*zx_alf1 + u(i, 2)*zx_alf2
+    zxv = v(i, 1)*zx_alf1 + v(i, 2)*zx_alf2
+    zxq = q(i, 1)*zx_alf1 + q(i, 2)*zx_alf2
+    zxmod = 1.0 + sqrt(zxu**2+zxv**2)
+    khfs(i) = (tsol(i)*(1.+retv*q(i,1))-zxt)*zxmod*cd_h(i)
+    kqfs(i) = (zxqs-zxq)*zxmod*cd_h(i)*beta(i)
+    heatv(i) = khfs(i) + 0.61*zxt*kqfs(i)
+    taux = zxu*zxmod*cd_m(i)
+    tauy = zxv*zxmod*cd_m(i)
+    ustar(i) = sqrt(taux**2+tauy**2)
+    ustar(i) = max(sqrt(ustar(i)), 0.01)
+  END DO
+
+  DO i = 1, knon
+    rino(i, 1) = 0.0
+    check(i) = .TRUE.
+    pblh(i) = z(i, 1)
+    obklen(i) = -t(i, 1)*ustar(i)**3/(rg*vk*heatv(i))
+  END DO
+
+
+  ! PBL height calculation:
+  ! Search for level of pbl. Scan upward until the Richardson number between
+  ! the first level and the current level exceeds the "critical" value.
+
+  fac = 100.0
+  DO k = 1, isommet
+    DO i = 1, knon
+      IF (check(i)) THEN
+        zdu2 = (u(i,k)-u(i,1))**2 + (v(i,k)-v(i,1))**2 + fac*ustar(i)**2
+        zdu2 = max(zdu2, 1.0E-20)
+        ztvd = (t(i,k)+z(i,k)*0.5*rg/rcpd/(1.+rvtmp2*q(i, &
+          k)))*(1.+retv*q(i,k))
+        ztvu = (t(i,1)-z(i,k)*0.5*rg/rcpd/(1.+rvtmp2*q(i, &
+          1)))*(1.+retv*q(i,1))
+        rino(i, k) = (z(i,k)-z(i,1))*rg*(ztvd-ztvu)/(zdu2*0.5*(ztvd+ztvu))
+        IF (rino(i,k)>=ricr) THEN
+          pblh(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(ricr-rino(i,k-1))/(rino(i, &
+            k-1)-rino(i,k))
+          check(i) = .FALSE.
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  ! Set pbl height to maximum value where computation exceeds number of
+  ! layers allowed
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! Improve estimate of pbl height for the unstable points.
+  ! Find unstable points (sensible heat flux is upward):
+
+  DO i = 1, knon
+    IF (heatv(i)>0.) THEN
+      unstbl(i) = .TRUE.
+      check(i) = .TRUE.
+    ELSE
+      unstbl(i) = .FALSE.
+      check(i) = .FALSE.
+    END IF
+  END DO
+
+  ! For the unstable case, compute velocity scale and the
+  ! convective temperature excess:
+
+  DO i = 1, knon
+    IF (check(i)) THEN
+      phiminv(i) = (1.-binm*pblh(i)/obklen(i))**onet
+      wm(i) = ustar(i)*phiminv(i)
+      therm(i) = heatv(i)*fak/wm(i)
+      rino(i, 1) = 0.0
+    END IF
+  END DO
+
+  ! Improve pblh estimate for unstable conditions using the
+  ! convective temperature excess:
+
+  DO k = 1, isommet
+    DO i = 1, knon
+      IF (check(i)) THEN
+        zdu2 = (u(i,k)-u(i,1))**2 + (v(i,k)-v(i,1))**2 + fac*ustar(i)**2
+        zdu2 = max(zdu2, 1.0E-20)
+        ztvd = (t(i,k)+z(i,k)*0.5*rg/rcpd/(1.+rvtmp2*q(i, &
+          k)))*(1.+retv*q(i,k))
+        ztvu = (t(i,1)+therm(i)-z(i,k)*0.5*rg/rcpd/(1.+rvtmp2*q(i, &
+          1)))*(1.+retv*q(i,1))
+        rino(i, k) = (z(i,k)-z(i,1))*rg*(ztvd-ztvu)/(zdu2*0.5*(ztvd+ztvu))
+        IF (rino(i,k)>=ricr) THEN
+          pblh(i) = z(i, k-1) + (z(i,k-1)-z(i,k))*(ricr-rino(i,k-1))/(rino(i, &
+            k-1)-rino(i,k))
+          check(i) = .FALSE.
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! Set pbl height to maximum value where computation exceeds number of
+  ! layers allowed
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! Points for which pblh exceeds number of pbl layers allowed;
+  ! set to maximum
+
+  DO i = 1, knon
+    IF (check(i)) pblh(i) = z(i, isommet)
+  END DO
+
+  ! PBL height must be greater than some minimum mechanical mixing depth
+  ! Several investigators have proposed minimum mechanical mixing depth
+  ! relationships as a function of the local friction velocity, u*.  We
+  ! make use of a linear relationship of the form h = c u* where c=700.
+  ! The scaling arguments that give rise to this relationship most often
+  ! represent the coefficient c as some constant over the local coriolis
+  ! parameter.  Here we make use of the experimental results of Koracin
+  ! and Berkowicz (1988) [BLM, Vol 43] for wich they recommend 0.07/f
+  ! where f was evaluated at 39.5 N and 52 N.  Thus we use a typical mid
+  ! latitude value for f so that c = 0.07/f = 700.
+
+  DO i = 1, knon
+    pblmin = 700.0*ustar(i)
+    pblh(i) = max(pblh(i), pblmin)
+  END DO
+
+  ! pblh is now available; do preparation for diffusivity calculation:
+
+  DO i = 1, knon
+    pblk(i) = 0.0
+    fak1(i) = ustar(i)*pblh(i)*vk
+
+    ! Do additional preparation for unstable cases only, set temperature
+    ! and moisture perturbations depending on stability.
+
+    IF (unstbl(i)) THEN
+      zxt = (t(i,1)-z(i,1)*0.5*rg/rcpd/(1.+rvtmp2*q(i,1)))*(1.+retv*q(i,1))
+      phiminv(i) = (1.-binm*pblh(i)/obklen(i))**onet
+      phihinv(i) = sqrt(1.-binh*pblh(i)/obklen(i))
+      wm(i) = ustar(i)*phiminv(i)
+      fak2(i) = wm(i)*pblh(i)*vk
+      wstr(i) = (heatv(i)*rg*pblh(i)/zxt)**onet
+      fak3(i) = fakn*wstr(i)/wm(i)
+    END IF
+  END DO
+
+  ! Main level loop to compute the diffusivities and
+  ! counter-gradient terms:
+
+  DO k = 2, isommet
+
+    ! Find levels within boundary layer:
+
+    DO i = 1, knon
+      unslev(i) = .FALSE.
+      stblev(i) = .FALSE.
+      zm(i) = z(i, k-1)
+      zp(i) = z(i, k)
+      IF (zkmin==0.0 .AND. zp(i)>pblh(i)) zp(i) = pblh(i)
+      IF (zm(i)<pblh(i)) THEN
+        zmzp = 0.5*(zm(i)+zp(i))
+        zh(i) = zmzp/pblh(i)
+        zl(i) = zmzp/obklen(i)
+        zzh(i) = 0.
+        IF (zh(i)<=1.0) zzh(i) = (1.-zh(i))**2
+
+        ! stblev for points zm < plbh and stable and neutral
+        ! unslev for points zm < plbh and unstable
+
+        IF (unstbl(i)) THEN
+          unslev(i) = .TRUE.
+        ELSE
+          stblev(i) = .TRUE.
+        END IF
+      END IF
+    END DO
+
+    ! Stable and neutral points; set diffusivities; counter-gradient
+    ! terms zero for stable case:
+
+    DO i = 1, knon
+      IF (stblev(i)) THEN
+        IF (zl(i)<=1.) THEN
+          pblk(i) = fak1(i)*zh(i)*zzh(i)/(1.+betas*zl(i))
+        ELSE
+          pblk(i) = fak1(i)*zh(i)*zzh(i)/(betas+zl(i))
+        END IF
+        pcfm(i, k) = pblk(i)
+        pcfh(i, k) = pcfm(i, k)
+      END IF
+    END DO
+
+    ! unssrf, unstable within surface layer of pbl
+    ! unsout, unstable within outer   layer of pbl
+
+    DO i = 1, knon
+      unssrf(i) = .FALSE.
+      unsout(i) = .FALSE.
+      IF (unslev(i)) THEN
+        IF (zh(i)<sffrac) THEN
+          unssrf(i) = .TRUE.
+        ELSE
+          unsout(i) = .TRUE.
+        END IF
+      END IF
+    END DO
+
+    ! Unstable for surface layer; counter-gradient terms zero
+
+    DO i = 1, knon
+      IF (unssrf(i)) THEN
+        term = (1.-betam*zl(i))**onet
+        pblk(i) = fak1(i)*zh(i)*zzh(i)*term
+        pr(i) = term/sqrt(1.-betah*zl(i))
+      END IF
+    END DO
+
+    ! Unstable for outer layer; counter-gradient terms non-zero:
+
+    DO i = 1, knon
+      IF (unsout(i)) THEN
+        pblk(i) = fak2(i)*zh(i)*zzh(i)
+        cgs(i, k) = fak3(i)/(pblh(i)*wm(i))
+        cgh(i, k) = khfs(i)*cgs(i, k)
+        pr(i) = phiminv(i)/phihinv(i) + ccon*fak3(i)/fak
+        cgq(i, k) = kqfs(i)*cgs(i, k)
+      END IF
+    END DO
+
+    ! For all unstable layers, set diffusivities
+
+    DO i = 1, knon
+      IF (unslev(i)) THEN
+        pcfm(i, k) = pblk(i)
+        pcfh(i, k) = pblk(i)/pr(i)
+      END IF
+    END DO
+  END DO ! end of level loop
+
+  RETURN
+END SUBROUTINE nonlocal
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nuage.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nuage.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nuage.F90	(revision 3330)
@@ -0,0 +1,406 @@
+! $Id$
+
+SUBROUTINE nuage(paprs, pplay, t, pqlwp, pclc, pcltau, pclemi, pch, pcl, pcm, &
+    pct, pctlwp, ok_aie, mass_solu_aero, mass_solu_aero_pi, bl95_b0, bl95_b1, &
+    cldtaupi, re, fl)
+  USE dimphy
+  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910
+  ! Objet: Calculer epaisseur optique et emmissivite des nuages
+  ! ======================================================================
+  ! Arguments:
+  ! t-------input-R-temperature
+  ! pqlwp---input-R-eau liquide nuageuse dans l'atmosphere (kg/kg)
+  ! pclc----input-R-couverture nuageuse pour le rayonnement (0 a 1)
+  ! ok_aie--input-L-apply aerosol indirect effect or not
+  ! mass_solu_aero-----input-R-total mass concentration for all soluble
+  ! aerosols[ug/m^3]
+  ! mass_solu_aero_pi--input-R-dito, pre-industrial value
+  ! bl95_b0-input-R-a parameter, may be varied for tests (s-sea, l-land)
+  ! bl95_b1-input-R-a parameter, may be varied for tests (    -"-      )
+
+  ! cldtaupi-output-R-pre-industrial value of cloud optical thickness,
+  ! needed for the diagnostics of the aerosol indirect
+  ! radiative forcing (see radlwsw)
+  ! re------output-R-Cloud droplet effective radius multiplied by fl [um]
+  ! fl------output-R-Denominator to re, introduced to avoid problems in
+  ! the averaging of the output. fl is the fraction of liquid
+  ! water clouds within a grid cell
+
+  ! pcltau--output-R-epaisseur optique des nuages
+  ! pclemi--output-R-emissivite des nuages (0 a 1)
+  ! ======================================================================
+
+  include "YOMCST.h"
+  include "nuage.h" ! JBM 3/14
+
+  REAL paprs(klon, klev+1), pplay(klon, klev)
+  REAL t(klon, klev)
+
+  REAL pclc(klon, klev)
+  REAL pqlwp(klon, klev)
+  REAL pcltau(klon, klev), pclemi(klon, klev)
+
+  REAL pct(klon), pctlwp(klon), pch(klon), pcl(klon), pcm(klon)
+
+  LOGICAL lo
+
+  REAL cetahb, cetamb
+  PARAMETER (cetahb=0.45, cetamb=0.80)
+
+  INTEGER i, k
+  REAL zflwp, zradef, zfice(klon), zmsac
+
+  REAL radius, rad_chaud
+! JBM (3/14) parameters already defined in nuage.h:
+! REAL rad_froid, rad_chau1, rad_chau2
+! PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)
+  ! cc      PARAMETER (rad_chaud=15.0, rad_froid=35.0)
+  ! sintex initial      PARAMETER (rad_chaud=10.0, rad_froid=30.0)
+  REAL coef, coef_froi, coef_chau
+  PARAMETER (coef_chau=0.13, coef_froi=0.09)
+  REAL seuil_neb
+  PARAMETER (seuil_neb=0.001)
+! JBM (3/14) nexpo is replaced by exposant_glace
+! REAL nexpo ! exponentiel pour glace/eau
+! PARAMETER (nexpo=6.)
+  REAL, PARAMETER :: t_glace_min_old = 258.
+  INTEGER, PARAMETER :: exposant_glace_old = 6
+
+
+  ! jq for the aerosol indirect effect
+  ! jq introduced by Johannes Quaas (quaas@lmd.jussieu.fr), 27/11/2003
+  ! jq
+  LOGICAL ok_aie ! Apply AIE or not?
+
+  REAL mass_solu_aero(klon, klev) ! total mass concentration for all soluble aerosols[ug m-3]
+  REAL mass_solu_aero_pi(klon, klev) ! - " - pre-industrial value
+  REAL cdnc(klon, klev) ! cloud droplet number concentration [m-3]
+  REAL re(klon, klev) ! cloud droplet effective radius [um]
+  REAL cdnc_pi(klon, klev) ! cloud droplet number concentration [m-3] (pi value)
+  REAL re_pi(klon, klev) ! cloud droplet effective radius [um] (pi value)
+
+  REAL fl(klon, klev) ! xliq * rneb (denominator to re; fraction of liquid water clouds
+  ! within the grid cell)
+
+  REAL bl95_b0, bl95_b1 ! Parameter in B&L 95-Formula
+
+  REAL cldtaupi(klon, klev) ! pre-industrial cloud opt thickness for diag
+  ! jq-end
+
+  ! cc      PARAMETER (nexpo=1)
+
+  ! Calculer l'epaisseur optique et l'emmissivite des nuages
+
+  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
+      IF (k<=3) rad_chaud = rad_chau2
+
+      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 (ok_aie) THEN
+          ! Formula "D" of Boucher and Lohmann, Tellus, 1995
+          !
+        cdnc(i, k) = 10.**(bl95_b0+bl95_b1*log(max(mass_solu_aero(i,k), &
+          1.E-4))/log(10.))*1.E6 !-m-3
+          ! Cloud droplet number concentration (CDNC) is restricted
+          ! to be within [20, 1000 cm^3]
+          !
+        cdnc(i, k) = min(1000.E6, max(20.E6,cdnc(i,k)))
+        cdnc_pi(i, k) = 10.**(bl95_b0+bl95_b1*log(max(mass_solu_aero_pi(i,k), &
+          1.E-4))/log(10.))*1.E6 !-m-3
+        cdnc_pi(i, k) = min(1000.E6, max(20.E6,cdnc_pi(i,k)))
+          !
+          !
+          ! air density: pplay(i,k) / (RD * zT(i,k))
+          ! factor 1.1: derive effective radius from volume-mean radius
+          ! factor 1000 is the water density
+          ! _chaud means that this is the CDR for liquid water clouds
+          !
+        rad_chaud = 1.1*((pqlwp(i,k)*pplay(i,k)/(rd*t(i,k)))/(4./3.*rpi*1000. &
+          *cdnc(i,k)))**(1./3.)
+          !
+          ! Convert to um. CDR shall be at least 3 um.
+          !
+        rad_chaud = max(rad_chaud*1.E6, 3.)
+
+          ! For output diagnostics
+          !
+          ! Cloud droplet effective radius [um]
+          !
+          ! we multiply here with f * xl (fraction of liquid water
+          ! clouds in the grid cell) to avoid problems in the
+          ! averaging of the output.
+          ! In the output of IOIPSL, derive the real cloud droplet
+          ! effective radius as re/fl
+          !
+        fl(i, k) = pclc(i, k)*(1.-zfice(i))
+        re(i, k) = rad_chaud*fl(i, k)
+
+          ! Pre-industrial cloud opt thickness
+          !
+          ! "radius" is calculated as rad_chaud above (plus the
+          ! ice cloud contribution) but using cdnc_pi instead of
+          ! 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(i)) + rad_froid*zfice(i)
+        cldtaupi(i, k) = 3.0/2.0*zflwp/radius
+      END IF ! ok_aie
+
+      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)
+      lo = (pclc(i,k)<=seuil_neb)
+      IF (lo) pclc(i, k) = 0.0
+      IF (lo) pcltau(i, k) = 0.0
+      IF (lo) pclemi(i, k) = 0.0
+
+      IF (.NOT. ok_aie) cldtaupi(i, k) = pcltau(i, k)
+    END DO
+  END DO
+  ! cc      DO k = 1, klev
+  ! cc      DO i = 1, klon
+  ! cc         t(i,k) = t(i,k)
+  ! cc         pclc(i,k) = MAX( 1.e-5 , pclc(i,k) )
+  ! cc         lo = pclc(i,k) .GT. (2.*1.e-5)
+  ! cc         zflwp = pqlwp(i,k)*1000.*(paprs(i,k)-paprs(i,k+1))
+  ! cc     .          /(rg*pclc(i,k))
+  ! cc         zradef = 10.0 + (1.-sigs(k))*45.0
+  ! cc         pcltau(i,k) = 1.5 * zflwp / zradef
+  ! cc         zfice=1.0-MIN(MAX((t(i,k)-263.)/(273.-263.),0.0),1.0)
+  ! cc         zmsac = 0.13*(1.0-zfice) + 0.08*zfice
+  ! cc         pclemi(i,k) = 1.-EXP(-zmsac*zflwp)
+  ! cc         if (.NOT.lo) pclc(i,k) = 0.0
+  ! cc         if (.NOT.lo) pcltau(i,k) = 0.0
+  ! cc         if (.NOT.lo) pclemi(i,k) = 0.0
+  ! cc      ENDDO
+  ! cc      ENDDO
+  ! ccccc      print*, 'pas de nuage dans le rayonnement'
+  ! ccccc      DO k = 1, klev
+  ! ccccc      DO i = 1, klon
+  ! ccccc         pclc(i,k) = 0.0
+  ! ccccc         pcltau(i,k) = 0.0
+  ! ccccc         pclemi(i,k) = 0.0
+  ! ccccc      ENDDO
+  ! ccccc      ENDDO
+
+  ! COMPUTE CLOUD LIQUID PATH AND TOTAL CLOUDINESS
+
+  DO i = 1, klon
+    pct(i) = 1.0
+    pch(i) = 1.0
+    pcm(i) = 1.0
+    pcl(i) = 1.0
+    pctlwp(i) = 0.0
+  END DO
+
+  DO k = klev, 1, -1
+    DO i = 1, klon
+      pctlwp(i) = pctlwp(i) + pqlwp(i, k)*(paprs(i,k)-paprs(i,k+1))/rg
+      pct(i) = pct(i)*(1.0-pclc(i,k))
+      IF (pplay(i,k)<=cetahb*paprs(i,1)) pch(i) = pch(i)*(1.0-pclc(i,k))
+      IF (pplay(i,k)>cetahb*paprs(i,1) .AND. pplay(i,k)<=cetamb*paprs(i,1)) &
+        pcm(i) = pcm(i)*(1.0-pclc(i,k))
+      IF (pplay(i,k)>cetamb*paprs(i,1)) pcl(i) = pcl(i)*(1.0-pclc(i,k))
+    END DO
+  END DO
+
+  DO i = 1, klon
+    pct(i) = 1. - pct(i)
+    pch(i) = 1. - pch(i)
+    pcm(i) = 1. - pcm(i)
+    pcl(i) = 1. - pcl(i)
+  END DO
+
+  RETURN
+END SUBROUTINE nuage
+SUBROUTINE diagcld1(paprs, pplay, rain, snow, kbot, ktop, diafra, dialiq)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! Laurent Li (LMD/CNRS), le 12 octobre 1998
+  ! (adaptation du code ECMWF)
+
+  ! Dans certains cas, le schema pronostique des nuages n'est
+  ! pas suffisament performant. On a donc besoin de diagnostiquer
+  ! ces nuages. Je dois avouer que c'est une frustration.
+
+  include "YOMCST.h"
+
+  ! Arguments d'entree:
+  REAL paprs(klon, klev+1) ! pression (Pa) a inter-couche
+  REAL pplay(klon, klev) ! pression (Pa) au milieu de couche
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (Kg/Kg)
+  REAL rain(klon) ! pluie convective (kg/m2/s)
+  REAL snow(klon) ! neige convective (kg/m2/s)
+  INTEGER ktop(klon) ! sommet de la convection
+  INTEGER kbot(klon) ! bas de la convection
+
+  ! Arguments de sortie:
+  REAL diafra(klon, klev) ! fraction nuageuse diagnostiquee
+  REAL dialiq(klon, klev) ! eau liquide nuageuse
+
+  ! Constantes ajustables:
+  REAL canva, canvb, canvh
+  PARAMETER (canva=2.0, canvb=0.3, canvh=0.4)
+  REAL cca, ccb, ccc
+  PARAMETER (cca=0.125, ccb=1.5, ccc=0.8)
+  REAL ccfct, ccscal
+  PARAMETER (ccfct=0.400)
+  PARAMETER (ccscal=1.0E+11)
+  REAL cetahb, cetamb
+  PARAMETER (cetahb=0.45, cetamb=0.80)
+  REAL cclwmr
+  PARAMETER (cclwmr=1.E-04)
+  REAL zepscr
+  PARAMETER (zepscr=1.0E-10)
+
+  ! Variables locales:
+  INTEGER i, k
+  REAL zcc(klon)
+
+  ! Initialisation:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      diafra(i, k) = 0.0
+      dialiq(i, k) = 0.0
+    END DO
+  END DO
+
+  DO i = 1, klon ! Calculer la fraction nuageuse
+    zcc(i) = 0.0
+    IF ((rain(i)+snow(i))>0.) THEN
+      zcc(i) = cca*log(max(zepscr,(rain(i)+snow(i))*ccscal)) - ccb
+      zcc(i) = min(ccc, max(0.0,zcc(i)))
+    END IF
+  END DO
+
+  DO i = 1, klon ! pour traiter les enclumes
+    diafra(i, ktop(i)) = max(diafra(i,ktop(i)), zcc(i)*ccfct)
+    IF ((zcc(i)>=canvh) .AND. (pplay(i,ktop(i))<=cetahb*paprs(i, &
+      1))) diafra(i, ktop(i)) = max(diafra(i,ktop(i)), max(zcc( &
+      i)*ccfct,canva*(zcc(i)-canvb)))
+    dialiq(i, ktop(i)) = cclwmr*diafra(i, ktop(i))
+  END DO
+
+  DO k = 1, klev ! nuages convectifs (sauf enclumes)
+    DO i = 1, klon
+      IF (k<ktop(i) .AND. k>=kbot(i)) THEN
+        diafra(i, k) = max(diafra(i,k), zcc(i)*ccfct)
+        dialiq(i, k) = cclwmr*diafra(i, k)
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE diagcld1
+SUBROUTINE diagcld2(paprs, pplay, t, q, diafra, dialiq)
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+
+  ! Arguments d'entree:
+  REAL paprs(klon, klev+1) ! pression (Pa) a inter-couche
+  REAL pplay(klon, klev) ! pression (Pa) au milieu de couche
+  REAL t(klon, klev) ! temperature (K)
+  REAL q(klon, klev) ! humidite specifique (Kg/Kg)
+
+  ! Arguments de sortie:
+  REAL diafra(klon, klev) ! fraction nuageuse diagnostiquee
+  REAL dialiq(klon, klev) ! eau liquide nuageuse
+
+  REAL cetamb
+  PARAMETER (cetamb=0.80)
+  REAL cloia, cloib, cloic, cloid
+  PARAMETER (cloia=1.0E+02, cloib=-10.00, cloic=-0.6, cloid=5.0)
+  ! cc      PARAMETER (CLOIA=1.0E+02, CLOIB=-10.00, CLOIC=-0.9, CLOID=5.0)
+  REAL rgammas
+  PARAMETER (rgammas=0.05)
+  REAL crhl
+  PARAMETER (crhl=0.15)
+  ! cc      PARAMETER (CRHL=0.70)
+  REAL t_coup
+  PARAMETER (t_coup=234.0)
+
+  ! Variables locales:
+  INTEGER i, k, kb, invb(klon)
+  REAL zqs, zrhb, zcll, zdthmin(klon), zdthdp
+  REAL zdelta, zcor
+
+  ! Fonctions thermodynamiques:
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  ! Initialisation:
+
+  DO k = 1, klev
+    DO i = 1, klon
+      diafra(i, k) = 0.0
+      dialiq(i, k) = 0.0
+    END DO
+  END DO
+
+  DO i = 1, klon
+    invb(i) = klev
+    zdthmin(i) = 0.0
+  END DO
+
+  DO k = 2, klev/2 - 1
+    DO i = 1, klon
+      zdthdp = (t(i,k)-t(i,k+1))/(pplay(i,k)-pplay(i,k+1)) - &
+        rd*0.5*(t(i,k)+t(i,k+1))/rcpd/paprs(i, k+1)
+      zdthdp = zdthdp*cloia
+      IF (pplay(i,k)>cetamb*paprs(i,1) .AND. zdthdp<zdthmin(i)) THEN
+        zdthmin(i) = zdthdp
+        invb(i) = k
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    kb = invb(i)
+    IF (thermcep) THEN
+      zdelta = max(0., sign(1.,rtt-t(i,kb)))
+      zqs = r2es*foeew(t(i,kb), zdelta)/pplay(i, kb)
+      zqs = min(0.5, zqs)
+      zcor = 1./(1.-retv*zqs)
+      zqs = zqs*zcor
+    ELSE
+      IF (t(i,kb)<t_coup) THEN
+        zqs = qsats(t(i,kb))/pplay(i, kb)
+      ELSE
+        zqs = qsatl(t(i,kb))/pplay(i, kb)
+      END IF
+    END IF
+    zcll = cloib*zdthmin(i) + cloic
+    zcll = min(1.0, max(0.0,zcll))
+    zrhb = q(i, kb)/zqs
+    IF (zcll>0.0 .AND. zrhb<crhl) zcll = zcll*(1.-(crhl-zrhb)*cloid)
+    zcll = min(1.0, max(0.0,zcll))
+    diafra(i, kb) = max(diafra(i,kb), zcll)
+    dialiq(i, kb) = diafra(i, kb)*rgammas*zqs
+  END DO
+
+  RETURN
+END SUBROUTINE diagcld2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nuage.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nuage.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/nuage.h	(revision 3330)
@@ -0,0 +1,18 @@
+!
+! $Id$
+!
+      REAL rad_froid, rad_chau1, rad_chau2, t_glace_max, t_glace_min
+      REAL exposant_glace
+      REAL rei_min,rei_max
+      REAL tau_cld_cv,coefw_cld_cv
+
+      REAL tmax_fonte_cv
+
+      INTEGER iflag_t_glace, iflag_cloudth_vert, iflag_cld_cv
+
+      common /nuagecom/ rad_froid,rad_chau1, rad_chau2,t_glace_max,     &
+     &                  t_glace_min,exposant_glace,rei_min,rei_max,     &
+     &                  tau_cld_cv,coefw_cld_cv,                        &
+     &                  tmax_fonte_cv,                                  &
+     &                  iflag_t_glace,iflag_cloudth_vert,iflag_cld_cv
+!$OMP THREADPRIVATE(/nuagecom/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/o3_chem_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/o3_chem_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/o3_chem_m.F90	(revision 3330)
@@ -0,0 +1,171 @@
+! $Id$
+module o3_chem_m
+
+  IMPLICIT none
+
+  private o3_prod
+
+contains
+
+  subroutine o3_chem(julien, gmtime, t_seri, zmasse, pdtphys, rlat, rlon, q)
+
+    ! This procedure evolves the ozone mass fraction through a time
+    ! step taking only chemistry into account.
+
+    ! All the 2-dimensional arrays are on the partial "physics" grid.
+    ! Their shape is "(/klon, nbp_lev/)".
+    ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
+
+    use assert_m, only: assert
+    use dimphy, only: klon
+    use regr_pr_comb_coefoz_m, only: c_Mob, a4_mass, a2, r_het_interm
+    use mod_grid_phy_lmdz, only: nbp_lev
+    use nrtype, only: pi
+
+    integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
+    real, intent(in):: gmtime ! heure de la journée en fraction de jour
+    real, intent(in):: t_seri(:, :) ! (klon, nbp_lev) temperature, in K
+
+    real, intent(in):: zmasse(:, :) ! (klon, nbp_lev)
+    ! (column-density of mass of air in a cell, in kg m-2)
+    ! "zmasse(:, k)" is for layer "k".)
+
+    real, intent(in):: pdtphys ! time step for physics, in s
+
+    REAL, intent(in):: rlat(:), rlon(:)
+    ! (longitude and latitude of each horizontal position, in degrees)
+
+    real, intent(inout):: q(:, :) ! (klon, nbp_lev) mass fraction of ozone
+    ! "q(:, k)" is at middle of layer "k".)
+
+    ! Variables local to the procedure:
+    ! (for "pi")
+    integer k
+
+    real c(klon, nbp_lev)
+    ! (constant term during a time step in the net mass production
+    ! rate of ozone by chemistry, per unit mass of air, in s-1)
+    ! "c(:, k)" is at middle of layer "k".)
+
+    real b(klon, nbp_lev)
+    ! (coefficient of "q" in the net mass production
+    ! rate of ozone by chemistry, per unit mass of air, in s-1)
+    ! "b(:, k)" is at middle of layer "k".)
+
+    real dq_o3_chem(klon, nbp_lev)
+    ! (variation of ozone mass fraction due to chemistry during a time step)
+    ! "dq_o3_chem(:, k)" is at middle of layer "k".)
+
+    real earth_long
+    ! (longitude vraie de la Terre dans son orbite solaire, par
+    ! rapport au point vernal (21 mars), en degrés)
+
+    real pmu0(klon) ! mean of cosine of solar zenith angle during "pdtphys"
+    real trash1
+    real trash2(klon)
+
+    !-------------------------------------------------------------
+
+    call assert(klon == (/size(q, 1), size(t_seri, 1), size(zmasse, 1), &
+         size(rlat), size(rlon)/), "o3_chem klon")
+    call assert(nbp_lev == (/size(q, 2), size(t_seri, 2), size(zmasse, 2)/), &
+         "o3_chem nbp_lev")
+
+    c = c_Mob + a4_mass * t_seri
+
+    ! Compute coefficient "b":
+
+    ! Heterogeneous chemistry is only at low temperature:
+    where (t_seri < 195.)
+       b = r_het_interm
+    elsewhere
+       b = 0.
+    end where
+
+    ! Heterogeneous chemistry is only during daytime:
+    call orbite(real(julien), earth_long, trash1)
+    call zenang(earth_long, gmtime, pdtphys, rlat, rlon, pmu0, trash2)
+    forall (k = 1: nbp_lev)
+       where (pmu0 <= cos(87. / 180. * pi)) b(:, k) = 0.
+    end forall
+
+    b = b + a2
+
+    ! Midpoint method:
+
+    ! Trial step to the midpoint:
+    dq_o3_chem = o3_prod(q, zmasse, c, b) * pdtphys  / 2
+    ! "Real" step across the whole interval:
+    dq_o3_chem = o3_prod(q + dq_o3_chem, zmasse, c, b) * pdtphys
+    q = q + dq_o3_chem
+
+    ! Confine the mass fraction:
+    q = min(max(q, 0.), .01)
+
+  end subroutine o3_chem
+
+  !*************************************************
+
+  function o3_prod(q, zmasse, c, b)
+
+    ! This function computes the production rate of ozone by chemistry.
+
+    ! All the 2-dimensional arrays are on the partial "physics" grid.
+    ! Their shape is "(/klon, nbp_lev/)".
+    ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
+
+    use regr_pr_comb_coefoz_m, only: a6_mass
+    use assert_m, only: assert
+    use dimphy, only: klon
+    use mod_grid_phy_lmdz, only: nbp_lev
+
+    real, intent(in):: q(:, :) ! mass fraction of ozone
+    ! "q(:, k)" is at middle of layer "k".)
+
+    real, intent(in):: zmasse(:, :)
+    ! (column-density of mass of air in a layer, in kg m-2)
+    ! ("zmasse(:, k)" is for layer "k".)
+
+    real, intent(in):: c(:, :)
+    ! (constant term during a time step in the net mass production
+    ! rate of ozone by chemistry, per unit mass of air, in s-1)
+    ! "c(:, k)" is at middle of layer "k".)
+
+    real, intent(in):: b(:, :)
+    ! (coefficient of "q" in the net mass production rate of ozone by
+    ! chemistry, per unit mass of air, in s-1)
+    ! ("b(:, k)" is at middle of layer "k".)
+
+    real o3_prod(klon, nbp_lev)
+    ! (net mass production rate of ozone by chemistry, per unit mass
+    ! of air, in s-1)
+    ! ("o3_prod(:, k)" is at middle of layer "k".)
+
+    ! Variables local to the procedure:
+
+    real sigma_mass(klon, nbp_lev)
+    ! (mass column-density of ozone above point, in kg m-2)
+    ! ("sigma_mass(:, k)" is at middle of layer "k".)
+
+    integer k
+
+    !-------------------------------------------------------------------
+
+    call assert(klon == (/size(q, 1), size(zmasse, 1), size(c, 1), &
+         size(b, 1)/), "o3_prod 1")
+    call assert(nbp_lev == (/size(q, 2), size(zmasse, 2), size(c, 2), &
+         size(b, 2)/), "o3_prod 2")
+
+    ! Compute the column-density above the base of layer
+    ! "k", and, as a first approximation, take it as column-density
+    ! above the middle of layer "k":
+    sigma_mass(:, nbp_lev) = zmasse(:, nbp_lev) * q(:, nbp_lev) ! top layer
+    do k =  nbp_lev - 1, 1, -1
+       sigma_mass(:, k) = sigma_mass(:, k+1) + zmasse(:, k) * q(:, k)
+    end do
+
+    o3_prod = c + b * q + a6_mass * sigma_mass
+
+  end function o3_prod
+
+end module o3_chem_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/o3cm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/o3cm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/o3cm.F90	(revision 3330)
@@ -0,0 +1,68 @@
+
+! $Id$
+
+SUBROUTINE o3cm(amb, bmb, sortie, ntab)
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: Ce programme calcule le contenu en ozone "sortie"
+  ! (unite: cm.atm) entre deux niveaux "amb" et "bmb" (unite: mb)
+  ! "ntab" est le nombre d'intervalles pour l'integration, sa
+  ! valeur depend bien sur de l'epaisseur de la couche et de
+  ! la precision qu'on souhaite a obtenir
+  ! ======================================================================
+  REAL amb, bmb, sortie
+  INTEGER ntab
+  ! ======================================================================
+  INTEGER n
+  REAL xtab(500), xa, xb, ya, yb, xincr
+  ! ======================================================================
+  EXTERNAL mbtozm
+  CHARACTER (LEN=20) :: modname = ''
+  CHARACTER (LEN=80) :: abort_message
+  ! ======================================================================
+  ! la fonction en ligne w(x) donne le profil de l'ozone en fonction
+  ! de l'altitude (unite: cm.atm / km)
+  ! (Green 1964, Appl. Opt. 3: 203-208)
+  REAL wp, xp, h, x, w, con
+  PARAMETER (wp=0.218, xp=23.25, h=4.63, con=1.0)
+
+  w(x) = wp/h*exp((x-xp)/h)/(con+exp((x-xp)/h))**2
+  ! ======================================================================
+  IF (ntab>499) THEN
+    abort_message = 'BIG ntab'
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+  xincr = (bmb-amb)/real(ntab)
+  xtab(1) = amb
+  DO n = 2, ntab
+    xtab(n) = xtab(n-1) + xincr
+  END DO
+  xtab(ntab+1) = bmb
+  sortie = 0.0
+  DO n = 1, ntab
+    CALL mbtozm(xtab(n), xa)
+    CALL mbtozm(xtab(n+1), xb)
+    xa = xa/1000.
+    xb = xb/1000.
+    ya = w(xa)
+    yb = w(xb)
+    sortie = sortie + (ya+yb)/2.0*abs(xb-xa)
+  END DO
+  RETURN
+END SUBROUTINE o3cm
+SUBROUTINE mbtozm(rmb, zm)
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS)
+  ! Objet: transformer une hauteur de mb (rmb) en metre (zm)
+  ! ======================================================================
+  REAL rmb, zm
+  ! ======================================================================
+  REAL gama, tzero, pzero, g, r
+  PARAMETER (gama=6.5E-3, tzero=288., pzero=1013.25)
+  PARAMETER (g=9.81, r=287.0)
+
+  zm = tzero/gama*(1.-(rmb/pzero)**(r*gama/g))
+  RETURN
+END SUBROUTINE mbtozm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/oasis.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/oasis.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/oasis.F90	(revision 3330)
@@ -0,0 +1,469 @@
+!
+MODULE oasis
+!
+! This module contains subroutines for initialization, sending and receiving 
+! towards the coupler OASIS3. It also contains some parameters for the coupling.
+!
+! This module should always be compiled. With the coupler OASIS3 available the cpp key
+! CPP_COUPLE should be set and the entier of this file will then be compiled. 
+! In a forced mode CPP_COUPLE should not be defined and the compilation ends before 
+! the CONTAINS, without compiling the subroutines.
+!
+  USE dimphy 
+  USE mod_phys_lmdz_para
+  USE write_field_phy
+
+#ifdef CPP_COUPLE
+! Use of Oasis-MCT coupler 
+#if defined CPP_OMCT
+  USE mod_prism
+! Use of Oasis3 coupler 
+#else 
+  USE mod_prism_proto
+  USE mod_prism_def_partition_proto
+  USE mod_prism_get_proto
+  USE mod_prism_put_proto
+#endif
+#endif
+  
+  IMPLICIT NONE
+  
+  ! Id for fields sent to ocean
+  INTEGER, PARAMETER :: ids_tauxxu = 1
+  INTEGER, PARAMETER :: ids_tauyyu = 2
+  INTEGER, PARAMETER :: ids_tauzzu = 3
+  INTEGER, PARAMETER :: ids_tauxxv = 4
+  INTEGER, PARAMETER :: ids_tauyyv = 5
+  INTEGER, PARAMETER :: ids_tauzzv = 6
+  INTEGER, PARAMETER :: ids_windsp = 7
+  INTEGER, PARAMETER :: ids_shfice = 8
+  INTEGER, PARAMETER :: ids_shfoce = 9
+  INTEGER, PARAMETER :: ids_shftot = 10
+  INTEGER, PARAMETER :: ids_nsfice = 11
+  INTEGER, PARAMETER :: ids_nsfoce = 12
+  INTEGER, PARAMETER :: ids_nsftot = 13
+  INTEGER, PARAMETER :: ids_dflxdt = 14
+  INTEGER, PARAMETER :: ids_totrai = 15
+  INTEGER, PARAMETER :: ids_totsno = 16
+  INTEGER, PARAMETER :: ids_toteva = 17
+  INTEGER, PARAMETER :: ids_icevap = 18
+  INTEGER, PARAMETER :: ids_ocevap = 19
+  INTEGER, PARAMETER :: ids_calvin = 20
+  INTEGER, PARAMETER :: ids_liqrun = 21
+  INTEGER, PARAMETER :: ids_runcoa = 22
+  INTEGER, PARAMETER :: ids_rivflu = 23
+  INTEGER, PARAMETER :: ids_atmco2 = 24
+  INTEGER, PARAMETER :: ids_taumod = 25
+  INTEGER, PARAMETER :: maxsend    = 25  ! Maximum number of fields to send
+  
+  ! Id for fields received from ocean
+  INTEGER, PARAMETER :: idr_sisutw = 1
+  INTEGER, PARAMETER :: idr_icecov = 2
+  INTEGER, PARAMETER :: idr_icealw = 3
+  INTEGER, PARAMETER :: idr_icetem = 4
+  INTEGER, PARAMETER :: idr_curenx = 5
+  INTEGER, PARAMETER :: idr_cureny = 6
+  INTEGER, PARAMETER :: idr_curenz = 7
+  INTEGER, PARAMETER :: idr_oceco2 = 8
+  INTEGER, PARAMETER :: maxrecv    = 8  ! Maximum number of fields to receive
+  
+
+  TYPE, PUBLIC ::   FLD_CPL            ! Type for coupling field information
+     CHARACTER(len = 8) ::   name      ! Name of the coupling field   
+     LOGICAL            ::   action    ! To be exchanged or not
+     INTEGER            ::   nid       ! Id of the field
+  END TYPE FLD_CPL
+
+  TYPE(FLD_CPL), DIMENSION(maxsend), SAVE, PUBLIC :: infosend   ! Information for sending coupling fields
+  TYPE(FLD_CPL), DIMENSION(maxrecv), SAVE, PUBLIC :: inforecv   ! Information for receiving coupling fields
+  
+  LOGICAL,SAVE :: cpl_current
+!$OMP THREADPRIVATE(cpl_current)
+
+#ifdef CPP_COUPLE
+
+CONTAINS
+
+  SUBROUTINE inicma
+!************************************************************************************
+!**** *INICMA*  - Initialize coupled mode communication for atmosphere
+!                 and exchange some initial information with Oasis
+!
+!     Rewrite to take the PRISM/psmile library into account
+!     LF 09/2003
+!
+    USE IOIPSL
+    USE surface_data, ONLY : version_ocean
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
+#ifdef CPP_XIOS
+    USE wxios, ONLY : wxios_context_init 
+#endif
+    USE print_control_mod, ONLY: lunout
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+
+! Local variables
+!************************************************************************************
+    INTEGER                            :: comp_id
+    INTEGER                            :: ierror, il_commlocal
+    INTEGER                            :: il_part_id
+    INTEGER, DIMENSION(3)              :: ig_paral
+    INTEGER, DIMENSION(2)              :: il_var_nodims
+    INTEGER, DIMENSION(4)              :: il_var_actual_shape
+    INTEGER                            :: il_var_type
+    INTEGER                            :: jf
+    CHARACTER (len = 6)                :: clmodnam
+    CHARACTER (len = 20)               :: modname = 'inicma'
+    CHARACTER (len = 80)               :: abort_message 
+    LOGICAL, SAVE                      :: cpl_current_omp
+
+!*    1. Initializations
+!        ---------------
+!************************************************************************************
+    WRITE(lunout,*) ' '
+    WRITE(lunout,*) ' '
+    WRITE(lunout,*) ' ROUTINE INICMA'
+    WRITE(lunout,*) ' **************'
+    WRITE(lunout,*) ' '
+    WRITE(lunout,*) ' '
+
+!
+! Define the model name
+!
+    clmodnam = 'LMDZ'       ! as in $NBMODEL in Cpl/Nam/namcouple.tmp
+
+
+!************************************************************************************
+! Define if coupling ocean currents or not
+!************************************************************************************
+!$OMP MASTER
+    cpl_current_omp = .FALSE.
+    CALL getin('cpl_current', cpl_current_omp)
+!$OMP END MASTER
+!$OMP BARRIER
+    cpl_current = cpl_current_omp
+    WRITE(lunout,*) 'Couple ocean currents, cpl_current = ',cpl_current 
+
+!************************************************************************************
+! Define coupling variables
+!************************************************************************************
+
+! Atmospheric variables to send
+
+!$OMP MASTER
+    infosend(:)%action = .FALSE.
+
+    infosend(ids_tauxxu)%action = .TRUE. ; infosend(ids_tauxxu)%name = 'COTAUXXU'
+    infosend(ids_tauyyu)%action = .TRUE. ; infosend(ids_tauyyu)%name = 'COTAUYYU'
+    infosend(ids_tauzzu)%action = .TRUE. ; infosend(ids_tauzzu)%name = 'COTAUZZU'
+    infosend(ids_tauxxv)%action = .TRUE. ; infosend(ids_tauxxv)%name = 'COTAUXXV'
+    infosend(ids_tauyyv)%action = .TRUE. ; infosend(ids_tauyyv)%name = 'COTAUYYV'
+    infosend(ids_tauzzv)%action = .TRUE. ; infosend(ids_tauzzv)%name = 'COTAUZZV'
+    infosend(ids_windsp)%action = .TRUE. ; infosend(ids_windsp)%name = 'COWINDSP'
+    infosend(ids_shfice)%action = .TRUE. ; infosend(ids_shfice)%name = 'COSHFICE'
+    infosend(ids_nsfice)%action = .TRUE. ; infosend(ids_nsfice)%name = 'CONSFICE'
+    infosend(ids_dflxdt)%action = .TRUE. ; infosend(ids_dflxdt)%name = 'CODFLXDT'
+    infosend(ids_calvin)%action = .TRUE. ; infosend(ids_calvin)%name = 'COCALVIN'
+    
+    IF (version_ocean=='nemo') THEN
+        infosend(ids_shftot)%action = .TRUE. ; infosend(ids_shftot)%name = 'COQSRMIX'
+        infosend(ids_nsftot)%action = .TRUE. ; infosend(ids_nsftot)%name = 'COQNSMIX'
+        infosend(ids_totrai)%action = .TRUE. ; infosend(ids_totrai)%name = 'COTOTRAI'
+        infosend(ids_totsno)%action = .TRUE. ; infosend(ids_totsno)%name = 'COTOTSNO'
+        infosend(ids_toteva)%action = .TRUE. ; infosend(ids_toteva)%name = 'COTOTEVA'
+        infosend(ids_icevap)%action = .TRUE. ; infosend(ids_icevap)%name = 'COICEVAP'
+        infosend(ids_liqrun)%action = .TRUE. ; infosend(ids_liqrun)%name = 'COLIQRUN'
+        infosend(ids_taumod)%action = .TRUE. ; infosend(ids_taumod)%name = 'COTAUMOD'
+        IF (carbon_cycle_cpl) THEN
+            infosend(ids_atmco2)%action = .TRUE. ; infosend(ids_atmco2)%name = 'COATMCO2'
+        ENDIF
+        
+    ELSE IF (version_ocean=='opa8') THEN
+        infosend(ids_shfoce)%action = .TRUE. ; infosend(ids_shfoce)%name = 'COSHFOCE'
+        infosend(ids_nsfoce)%action = .TRUE. ; infosend(ids_nsfoce)%name = 'CONSFOCE'
+        infosend(ids_icevap)%action = .TRUE. ; infosend(ids_icevap)%name = 'COTFSICE'
+        infosend(ids_ocevap)%action = .TRUE. ; infosend(ids_ocevap)%name = 'COTFSOCE'
+        infosend(ids_totrai)%action = .TRUE. ; infosend(ids_totrai)%name = 'COTOLPSU'
+        infosend(ids_totsno)%action = .TRUE. ; infosend(ids_totsno)%name = 'COTOSPSU'
+        infosend(ids_runcoa)%action = .TRUE. ; infosend(ids_runcoa)%name = 'CORUNCOA'
+        infosend(ids_rivflu)%action = .TRUE. ; infosend(ids_rivflu)%name = 'CORIVFLU'
+   ENDIF
+        
+! Oceanic variables to receive
+
+   inforecv(:)%action = .FALSE.
+
+   inforecv(idr_sisutw)%action = .TRUE. ; inforecv(idr_sisutw)%name = 'SISUTESW'
+   inforecv(idr_icecov)%action = .TRUE. ; inforecv(idr_icecov)%name = 'SIICECOV'
+   inforecv(idr_icealw)%action = .TRUE. ; inforecv(idr_icealw)%name = 'SIICEALW'
+   inforecv(idr_icetem)%action = .TRUE. ; inforecv(idr_icetem)%name = 'SIICTEMW'
+   
+   IF (cpl_current ) THEN
+       inforecv(idr_curenx)%action = .TRUE. ; inforecv(idr_curenx)%name = 'CURRENTX'
+       inforecv(idr_cureny)%action = .TRUE. ; inforecv(idr_cureny)%name = 'CURRENTY'
+       inforecv(idr_curenz)%action = .TRUE. ; inforecv(idr_curenz)%name = 'CURRENTZ'
+   ENDIF
+
+   IF (carbon_cycle_cpl ) THEN
+       inforecv(idr_oceco2)%action = .TRUE. ; inforecv(idr_oceco2)%name = 'SICO2FLX'
+   ENDIF
+
+!************************************************************************************
+! Here we go: psmile initialisation
+!************************************************************************************
+    IF (is_sequential) THEN
+       CALL prism_init_comp_proto (comp_id, clmodnam, ierror)
+       
+       IF (ierror .NE. PRISM_Ok) THEN
+          abort_message=' Probleme init dans prism_init_comp '
+          CALL abort_physic(modname,abort_message,1)
+       ELSE
+          WRITE(lunout,*) 'inicma : init psmile ok '
+       ENDIF
+    ENDIF
+
+    CALL prism_get_localcomm_proto (il_commlocal, ierror)
+!************************************************************************************
+! Domain decomposition
+!************************************************************************************
+    ig_paral(1) = 1                            ! apple partition for //
+    ig_paral(2) = (jj_begin-1)*nbp_lon+ii_begin-1  ! offset
+    ig_paral(3) = (jj_end*nbp_lon+ii_end) - (jj_begin*nbp_lon+ii_begin) + 1
+
+    IF (mpi_rank==mpi_size-1) ig_paral(3)=ig_paral(3)+nbp_lon-1
+    WRITE(lunout,*) mpi_rank,'ig_paral--->',ig_paral(2),ig_paral(3)
+    
+    ierror=PRISM_Ok
+    CALL prism_def_partition_proto (il_part_id, ig_paral, ierror)
+
+    IF (ierror .NE. PRISM_Ok) THEN
+       abort_message=' Probleme dans prism_def_partition '
+       CALL abort_physic(modname,abort_message,1)
+    ELSE
+       WRITE(lunout,*) 'inicma : decomposition domaine psmile ok '
+    ENDIF
+
+    il_var_nodims(1) = 2
+    il_var_nodims(2) = 1
+
+    il_var_actual_shape(1) = 1
+    il_var_actual_shape(2) = nbp_lon
+    il_var_actual_shape(3) = 1
+    il_var_actual_shape(4) = nbp_lat
+   
+    il_var_type = PRISM_Real
+
+!************************************************************************************
+! Oceanic Fields to receive
+! Loop over all possible variables
+!************************************************************************************
+    DO jf=1, maxrecv
+       IF (inforecv(jf)%action) THEN
+          CALL prism_def_var_proto(inforecv(jf)%nid, inforecv(jf)%name, il_part_id, &
+               il_var_nodims, PRISM_In, il_var_actual_shape, il_var_type, &
+               ierror)
+          IF (ierror .NE. PRISM_Ok) THEN
+             WRITE(lunout,*) 'inicma : Problem with prism_def_var_proto for field : ',&
+                  inforecv(jf)%name
+             abort_message=' Problem in call to prism_def_var_proto for fields to receive'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+    END DO
+    
+!************************************************************************************
+! Atmospheric Fields to send
+! Loop over all possible variables
+!************************************************************************************
+    DO jf=1,maxsend
+       IF (infosend(jf)%action) THEN
+          CALL prism_def_var_proto(infosend(jf)%nid, infosend(jf)%name, il_part_id, &
+               il_var_nodims, PRISM_Out, il_var_actual_shape, il_var_type, &
+               ierror)
+          IF (ierror .NE. PRISM_Ok) THEN
+             WRITE(lunout,*) 'inicma : Problem with prism_def_var_proto for field : ',&
+                  infosend(jf)%name
+             abort_message=' Problem in call to prism_def_var_proto for fields to send'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+    END DO
+    
+!************************************************************************************
+! End definition
+!************************************************************************************
+    CALL prism_enddef_proto(ierror)
+    IF (ierror .NE. PRISM_Ok) THEN
+       abort_message=' Problem in call to prism_endef_proto'
+       CALL abort_physic(modname,abort_message,1)
+    ELSE
+       WRITE(lunout,*) 'inicma : endef psmile ok '
+    ENDIF
+
+#ifdef CPP_XIOS
+    CALL wxios_context_init()
+#endif
+
+!$OMP END MASTER
+    
+  END SUBROUTINE inicma
+
+!
+!************************************************************************************
+!
+
+  SUBROUTINE fromcpl(ktime, tab_get)
+! ======================================================================
+! L. Fairhead (09/2003) adapted From L.Z.X Li: this subroutine reads the SST 
+! and Sea-Ice provided by the coupler. Adaptation to psmile library
+!======================================================================
+!
+    USE print_control_mod, ONLY: lunout
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+! Input arguments
+!************************************************************************************
+    INTEGER, INTENT(IN)                               ::  ktime
+
+! Output arguments
+!************************************************************************************
+    REAL, DIMENSION(nbp_lon, jj_nb,maxrecv), INTENT(OUT) :: tab_get
+
+! Local variables
+!************************************************************************************
+    INTEGER                       :: ierror, i
+    INTEGER                       :: istart,iend
+    CHARACTER (len = 20)          :: modname = 'fromcpl'
+    CHARACTER (len = 80)          :: abort_message 
+    REAL, DIMENSION(nbp_lon*jj_nb)    :: field
+
+!************************************************************************************
+    WRITE (lunout,*) ' '
+    WRITE (lunout,*) 'Fromcpl: Reading fields from CPL, ktime=',ktime
+    WRITE (lunout,*) ' '
+    
+    istart=ii_begin
+    IF (is_south_pole_dyn) THEN
+       iend=(jj_end-jj_begin)*nbp_lon+nbp_lon
+    ELSE
+       iend=(jj_end-jj_begin)*nbp_lon+ii_end
+    ENDIF
+    
+    DO i = 1, maxrecv
+      IF (inforecv(i)%action .AND. inforecv(i)%nid .NE. -1) THEN
+          field(:) = -99999.
+          CALL prism_get_proto(inforecv(i)%nid, ktime, field(istart:iend), ierror)
+          tab_get(:,:,i) = RESHAPE(field(:),(/nbp_lon,jj_nb/))
+       
+          IF (ierror .NE. PRISM_Ok .AND. ierror.NE.PRISM_Recvd .AND. &
+             ierror.NE.PRISM_FromRest &
+             .AND. ierror.NE.PRISM_Input .AND. ierror.NE.PRISM_RecvOut &
+             .AND. ierror.NE.PRISM_FromRestOut) THEN
+              WRITE (lunout,*)  'Error with receiving filed : ', inforecv(i)%name, ktime   
+              abort_message=' Problem in prism_get_proto '
+              CALL abort_physic(modname,abort_message,1)
+          ENDIF
+      ENDIF
+    END DO
+    
+    
+  END SUBROUTINE fromcpl
+
+!
+!************************************************************************************
+! 
+
+  SUBROUTINE intocpl(ktime, last, tab_put) 
+! ======================================================================
+! L. Fairhead (09/2003) adapted From L.Z.X Li: this subroutine provides the 
+! atmospheric coupling fields to the coupler with the psmile library.
+! IF last time step, writes output fields to binary files.
+! ======================================================================
+!
+! 
+    USE print_control_mod, ONLY: lunout
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+! Input arguments
+!************************************************************************************
+    INTEGER, INTENT(IN)                              :: ktime
+    LOGICAL, INTENT(IN)                              :: last
+    REAL, DIMENSION(nbp_lon, jj_nb, maxsend), INTENT(IN) :: tab_put
+
+! Local variables
+!************************************************************************************
+    LOGICAL                          :: checkout
+    INTEGER                          :: istart,iend
+    INTEGER                          :: wstart,wend
+    INTEGER                          :: ierror, i
+    REAL, DIMENSION(nbp_lon*jj_nb)       :: field
+    CHARACTER (len = 20),PARAMETER   :: modname = 'intocpl'
+    CHARACTER (len = 80)             :: abort_message 
+
+!************************************************************************************
+    checkout=.FALSE.
+
+    WRITE(lunout,*) ' '
+    WRITE(lunout,*) 'Intocpl: sending fields to CPL, ktime= ', ktime
+    WRITE(lunout,*) 'last = ', last
+    WRITE(lunout,*)
+
+
+    istart=ii_begin
+    IF (is_south_pole_dyn) THEN
+       iend=(jj_end-jj_begin)*nbp_lon+nbp_lon
+    ELSE
+       iend=(jj_end-jj_begin)*nbp_lon+ii_end
+    ENDIF
+    
+    IF (checkout) THEN   
+       wstart=istart
+       wend=iend
+       IF (is_north_pole_dyn) wstart=istart+nbp_lon-1
+       IF (is_south_pole_dyn) wend=iend-nbp_lon+1
+       
+       DO i = 1, maxsend
+          IF (infosend(i)%action) THEN
+             field = RESHAPE(tab_put(:,:,i),(/nbp_lon*jj_nb/))
+             CALL writefield_phy(infosend(i)%name,field(wstart:wend),1)
+          END IF
+       END DO
+    END IF
+
+!************************************************************************************
+! PRISM_PUT
+!************************************************************************************
+
+    DO i = 1, maxsend
+      IF (infosend(i)%action .AND. infosend(i)%nid .NE. -1 ) THEN
+          field = RESHAPE(tab_put(:,:,i),(/nbp_lon*jj_nb/))
+          CALL prism_put_proto(infosend(i)%nid, ktime, field(istart:iend), ierror)
+          
+          IF (ierror .NE. PRISM_Ok .AND. ierror.NE.PRISM_Sent .AND. ierror.NE.PRISM_ToRest &
+             .AND. ierror.NE.PRISM_LocTrans .AND. ierror.NE.PRISM_Output .AND. &
+             ierror.NE.PRISM_SentOut .AND. ierror.NE.PRISM_ToRestOut) THEN
+              WRITE (lunout,*) 'Error with sending field :', infosend(i)%name, ktime   
+              abort_message=' Problem in prism_put_proto '
+              CALL abort_physic(modname,abort_message,1)
+          ENDIF
+      ENDIF
+    END DO
+   
+!************************************************************************************
+! Finalize PSMILE for the case is_sequential, if parallel finalization is done 
+! from Finalize_parallel in dyn3dpar/parallel.F90
+!************************************************************************************
+
+    IF (last) THEN
+       IF (is_sequential) THEN 
+          CALL prism_terminate_proto(ierror)
+          IF (ierror .NE. PRISM_Ok) THEN
+             abort_message=' Problem in prism_terminate_proto '
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+    ENDIF
+    
+    
+  END SUBROUTINE intocpl
+
+#endif
+  
+END MODULE oasis
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_albedo.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_albedo.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_albedo.F90	(revision 3330)
@@ -0,0 +1,287 @@
+!
+! $Id$
+!
+
+!     #########
+
+subroutine ocean_albedo(knon,zrmu0,knindex,pwind,SFRWL,alb_dir_new,alb_dif_new)
+
+
+!     ##################################################################
+!
+!!****  *ALBEDO_RS14*  
+!!
+!!    PURPOSE
+!!    -------
+!       computes the direct & diffuse albedo over open water
+!
+!     
+!!**  METHOD
+!!    ------
+!
+!!    EXTERNAL
+!!    --------
+!!
+!!    IMPLICIT ARGUMENTS
+!!    ------------------ 
+!!
+!!      
+!!    REFERENCE
+!!    ---------
+!!
+!!      
+!!    AUTHOR
+!!    ------
+!!	R. Séférian           * Meteo-France *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!!      Original    03/2014
+!                   05/2014 R. Séférian & B. Decharme :: Adaptation to spectral
+!                   computation for diffuse and direct albedo
+!                   08/2014 S. Baek :: for wider wavelength range 200-4000nm and
+!                   adaptation to LMDZ + whitecap effect by Koepke + chrolophyll
+!                   map from climatology file
+!       
+!-------------------------------------------------------------------------------
+!
+!*           DECLARATIONS
+!            ------------
+!
+USE ocean_albedo_para
+use dimphy
+!LF USE PARKIND1  ,ONLY : JPIM     ,JPRB
+use phys_state_var_mod, only : chl_con
+!
+!
+IMPLICIT NONE
+!
+!*      0.1    declarations of arguments
+!              -------------------------
+!
+
+include "clesphys.h"
+
+integer, intent(in) :: knon
+integer, dimension(klon), intent(in) :: knindex
+real, dimension(klon), intent(in) :: zrmu0,pwind
+real, dimension(klon,nsw), intent(out) ::  alb_dir_new,alb_dif_new
+real, dimension(6),intent(in) :: SFRWL
+
+
+!=== LOCAL VARIABLES
+
+REAL, parameter :: XPI=4.*atan(1.)
+
+!
+!*      0.2    declarations of local variables
+!              -------------------------
+!
+REAL, DIMENSION(klon)               :: ZCHL        ! surface chlorophyll
+REAL, DIMENSION(klon,NNWL)               :: ZDIR_ALB    ! direct  ocean surface albedo (spectral)
+REAL, DIMENSION(klon,NNWL)               :: ZSCA_ALB    ! diffuse ocean surface albedo (spectral)
+!
+INTEGER                         :: JI, JWL                  ! indexes
+REAL                            :: ZWL                      ! input parameter: wavelength and diffuse/direct fraction of light
+REAL:: ZSIG, ZREFM, ZXX2, ZR00, ZRR0, ZRRR                        ! computation variables
+REAL:: ZR22, ZUE, ZUE2, ZR11DF, ZALBT, ZFWC                       ! computation variables
+REAL:: ZCHLABS, ZAW, ZBW, ZAP, ZYLMD, ZBP550                      ! computation variables
+REAL:: ZBBP, ZNU, ZHB                                       ! computation variables
+REAL:: ZCOSZEN                                              ! Cosine of the zenith solar angle
+REAL:: ZR11, ZRW, ZRWDF, ZRDF                                   ! 4 components of the OSA
+! new damping coefficient
+REAL:: ZDAMP     
+
+! 
+REAL            :: ZWORK                           ! dummy variable
+! 
+!LF REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!
+!-------------------------------------------------------------------------------
+!
+!
+
+
+
+!
+alb_dir_new(:,:) = 0. 
+alb_dif_new(:,:) = 0. 
+!
+ZDIR_ALB(:,:) = 0. 
+ZSCA_ALB(:,:) = 0.
+!
+!
+
+!ZCHL(:) = CHL_CON!0.05 ! averaged global values for surface chlorophyll
+if(ok_chlorophyll)then
+  do ji=1,knon
+  ZCHL(ji)=CHL_CON(knindex(ji))
+  enddo
+else 
+  ZCHL(:) = 0.05
+endif
+
+
+!
+DO JWL=1,NNWL           ! loop over the wavelength
+!
+  DO JI=1,knon  ! loop over the grid points
+
+
+    !---------------------------------------------------------------------------------
+    ! 0- Compute baseline values
+    !---------------------------------------------------------------------------------
+    
+    ! Get refractive index for the correspoding wavelength
+    ZWL=XAKWL(JWL) !!!----------  wavelength value
+    ZREFM= XAKREFM(JWL) !!!--------- refraction index value
+  
+
+    ! compute the cosine of the solar zenith angle
+!    ZCOSZEN = COS(XPI/2 - PZENITH(JI))
+     ZCOSZEN = zrmu0(knindex(JI))
+    ! Compute sigma derived from wind speed (Cox & Munk reflectance model)
+    ZSIG=SQRT(0.003+0.00512*PWIND(JI))
+
+    
+    !---------------------------------------------------------------------------------
+    ! 1- Compute direct surface albedo (ZR11)
+    !---------------------------------------------------------------------------------
+    !
+    ZXX2=SQRT(1.0-(1.0-ZCOSZEN**2)/ZREFM**2)
+    ZRR0=0.50*(((ZXX2-ZREFM*ZCOSZEN)/(ZXX2+ZREFM*ZCOSZEN))**2 +((ZCOSZEN-ZREFM*ZXX2)/(ZCOSZEN+ZREFM*ZXX2))**2)
+    ZRRR=0.50*(((ZXX2-1.34*ZCOSZEN)/(ZXX2+1.34*ZCOSZEN))**2 +((ZCOSZEN-1.34*ZXX2)/(ZCOSZEN+1.34*ZXX2))**2)
+    ZR11=ZRR0-(0.0152-1.7873*ZCOSZEN+6.8972*ZCOSZEN**2-8.5778*ZCOSZEN**3+4.071*ZSIG-7.6446*ZCOSZEN*ZSIG) &
+        & * EXP(0.1643-7.8409*ZCOSZEN-3.5639*ZCOSZEN**2-2.3588*ZSIG+10.0538*ZCOSZEN*ZSIG)*ZRR0/ZRRR
+    ! 
+    !---------------------------------------------------------------------------------
+    ! 2- Compute surface diffuse albedo (ZRDF)
+    !---------------------------------------------------------------------------------
+    ! Diffuse albedo from Jin et al., 2006 + estimation from diffuse fraction of
+    ! light (relying later on AOD)
+    ZRDF=-0.1482-0.012*ZSIG+0.1609*ZREFM-0.0244*ZSIG*ZREFM ! surface diffuse (Eq 5a-5b)
+   
+    !---------------------------------------------------------------------------------
+    ! *- Determine absorption and backscattering
+    ! coefficients to determine reflectance below the surface (Ro) once for all
+    !
+    ! *.1- Absorption by chlorophyll
+    ZCHLABS= XAKACHL(JWL) 
+    ! *.2- Absorption by seawater 
+    ZAW= XAKAW3(JWL) 
+    ! *.3- Backscattering by seawater
+    ZBW= XAKBW(JWL) 
+    ! *.4- Backscattering by chlorophyll
+    ZYLMD = EXP(0.014*(440.0-ZWL))
+    ZWORK= EXP(LOG(ZCHL(JI))*0.65)
+    ZAP = 0.06*ZCHLABS*ZWORK +0.2*(XAW440+0.06*ZWORK)*ZYLMD
+    ZBP550 = 0.416 * EXP(LOG(ZCHL(JI))*0.766)
+   
+    IF ( ZCHL(JI) > 2. ) THEN
+      ZNU=0.
+    ELSE
+      IF ( ZCHL(JI) > 0.02 ) THEN
+        ZWORK=LOG10(ZCHL(JI))
+        ZNU=0.5*(ZWORK-0.3)
+        ZBBP=(0.002+0.01*(0.5-0.25*ZWORK)*(ZWL/550.)**ZNU)*ZBP550
+      ELSE
+        ZBBP=0.019*(550./ZWL)*ZBP550       !ZBBPf=0.0113 at chl<=0.02
+      ENDIF
+    ENDIF
+   
+    ! Morel-Gentili(1991), Eq (12)
+    ! ZHB=h/(h+2*ZBBPf*(1.-h))        
+    ZHB=0.5*ZBW/(0.5*ZBW+ZBBP)
+   
+    !---------------------------------------------------------------------------------
+    ! 3- Compute direct water-leaving albedo (ZRW)
+    !---------------------------------------------------------------------------------
+    ! Based on Morel & Gentilli 1991 parametrization
+    ZR22=0.48168549-0.014894708*ZSIG-0.20703885*ZSIG**2
+    ! Use Morel 91 formula to compute the direct reflectance
+    ! below the surface
+    ZR00=(0.5*ZBW+ZBBP)/(ZAW+ZAP) *(0.6279-0.2227*ZHB-0.0513*ZHB**2 + (-0.3119+0.2465*ZHB)*ZCOSZEN)
+    ZRW=ZR00*(1.-ZR22)*(1.-ZR11)/(1.-ZR00*ZR22)
+
+    ZRW=ZR00*(1.-ZR22)/(1.-ZR00*ZR22)
+    !---------------------------------------------------------------------------------
+    ! 4- Compute diffuse water-leaving albedo (ZRWDF)
+    !---------------------------------------------------------------------------------
+    ! as previous water-leaving computation but assumes a uniform incidence of
+    ! shortwave at surface (ue)
+    ZUE=0.676               ! equivalent u_unif for diffuse incidence
+    ZUE2=SQRT(1.0-(1.0-ZUE**2)/ZREFM**2)
+    ZRR0=0.50*(((ZUE2-ZREFM*ZUE)/(ZUE2+ZREFM*ZUE))**2 +((ZUE-ZREFM*ZUE2)/(ZUE+ZREFM*ZUE2))**2)
+    ZRRR=0.50*(((ZUE2-1.34*ZUE)/(ZUE2+1.34*ZUE))**2 +((ZUE-1.34*ZUE2)/(ZUE+1.34*ZUE2))**2)
+    ZR11DF=ZRR0-(0.0152-1.7873*ZUE+6.8972*ZUE**2-8.5778*ZUE**3+4.071*ZSIG-7.6446*ZUE*ZSIG) &
+          & * EXP(0.1643-7.8409*ZUE-3.5639*ZUE**2-2.3588*ZSIG+10.0538*ZUE*ZSIG)*ZRR0/ZRRR
+    ! Use Morel 91 formula to compute the diffuse
+    ! reflectance below the surface
+    ZR00=(0.5*ZBW+ZBBP)/(ZAW+ZAP) *(0.6279-0.2227*ZHB-0.0513*ZHB**2 + (-0.3119+0.2465*ZHB)*ZUE)
+    ZRWDF=ZR00*(1.-ZR22)*(1.-ZR11DF)/(1.-ZR00*ZR22)
+   
+    ! original : correction for foam (Eq 16-17)
+    ZFWC=3.97e-4*PWIND(JI)**(1.59) ! Salisbury 2014 eq(2) at 37GHz, value in fraction
+    ! has to be update once we have information from wave model (discussion with G. Madec)
+     
+    ! --------------------------------------------------------------------
+    !  *- OSA estimation
+    ! --------------------------------------------------------------------
+    ! partitionning direct and diffuse albedo
+    !
+
+    ! excluding diffuse albedo ZRW on ZDIR_ALB
+      ZDIR_ALB(JI,JWL) =  XFRWL(JWL) *((1.-ZFWC) * (ZR11+ZRW) +ZFWC*XRWC(JWL))
+      ZSCA_ALB(JI,JWL) =  XFRWL(JWL) *((1.-ZFWC) * (ZRDF+ZRWDF) + ZFWC*XRWC(JWL))
+
+    !  print*,ji,ZFWC,ZDIR_ALB(JI,JWL),ZSCA_ALB(JI,JWL),pwind(ji)
+    ENDDO ! end of the loop over grid points
+
+ENDDO ! ending loop over wavelengths
+
+
+! integral for each nsw band
+
+select case(nsw)
+case(2)
+  do ji=1,knon
+   alb_dir_new(ji,1)=sum(zdir_alb(ji,1:49))/SFRWL(1) ! from 200nm to 680nm 
+   alb_dir_new(ji,2)=sum(zdir_alb(ji,50:381))/SFRWL(2) ! from 690nm to 4000 nm
+
+   alb_dif_new(ji,1)=sum(zsca_alb(ji,1:49))/SFRWL(1) ! from 200nm to 680nm 
+   alb_dif_new(ji,2)=sum(zsca_alb(ji,50:381))/SFRWL(2) ! from 690nm to 4000 nm
+  enddo
+case(4)
+  do ji=1,knon
+   alb_dir_new(ji,1)=sum(zdir_alb(ji,1:49))/SFRWL(1) ! from 200nm to 680nm 
+   alb_dir_new(ji,2)=sum(zdir_alb(ji,50:99))/SFRWL(2) ! from 690nm to 1180 nm
+   alb_dir_new(ji,3)=sum(zdir_alb(ji,100:218))/SFRWL(3) ! from 1190nm to 2370 nm
+   alb_dir_new(ji,4)=sum(zdir_alb(ji,219:381))/SFRWL(4) ! from 2380nm to 4000 nm
+
+   alb_dif_new(ji,1)=sum(zsca_alb(ji,1:49))/SFRWL(1) ! from 200nm to 680nm 
+   alb_dif_new(ji,2)=sum(zsca_alb(ji,50:99))/SFRWL(2) ! from 690nm to 1180 nm
+   alb_dif_new(ji,3)=sum(zsca_alb(ji,100:218))/SFRWL(3) ! from 1190nm to 2370 nm
+   alb_dif_new(ji,4)=sum(zsca_alb(ji,219:381))/SFRWL(4) ! from 2380nm to 4000 nm
+  enddo
+case(6)
+ do ji=1,knon
+   alb_dir_new(ji,1)=sum(zdir_alb(ji,1:5))/SFRWL(1) ! from 200nm to 240nm 
+   alb_dir_new(ji,2)=sum(zdir_alb(ji,6:24))/SFRWL(2) ! from 250nm to 430 nm
+   alb_dir_new(ji,3)=sum(zdir_alb(ji,25:49))/SFRWL(3) ! from 440nm to 680 nm
+   alb_dir_new(ji,4)=sum(zdir_alb(ji,50:99))/SFRWL(4) ! from 690nm to 1180 nm
+   alb_dir_new(ji,5)=sum(zdir_alb(ji,100:218))/SFRWL(5) ! from 1190nm to 2370 nm
+   alb_dir_new(ji,6)=sum(zdir_alb(ji,219:381))/SFRWL(6) ! from 2380nm to 4000 nm
+
+   alb_dif_new(ji,1)=sum(zsca_alb(ji,1:5))/SFRWL(1) ! from 200nm to 240nm 
+   alb_dif_new(ji,2)=sum(zsca_alb(ji,6:24))/SFRWL(2) ! from 250nm to 430 nm
+   alb_dif_new(ji,3)=sum(zsca_alb(ji,25:49))/SFRWL(3) ! from 440nm to 680 nm
+   alb_dif_new(ji,4)=sum(zsca_alb(ji,50:99))/SFRWL(4) ! from 690nm to 1180 nm
+   alb_dif_new(ji,5)=sum(zsca_alb(ji,100:218))/SFRWL(5) ! from 1190nm to 2370 nm
+   alb_dif_new(ji,6)=sum(zsca_alb(ji,219:381))/SFRWL(6) ! from 2380nm to 4000 nm
+ enddo
+end select
+
+
+
+END subroutine ocean_albedo
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_albedo_para.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_albedo_para.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_albedo_para.F90	(revision 3330)
@@ -0,0 +1,646 @@
+!
+! $Id$
+!
+!     ######################
+MODULE ocean_albedo_para
+!     ######################
+!
+!!****  *MOD_DALBEDO_RS14* - declaration of ISBA parameters
+!!
+!!    PURPOSE
+!!    -------
+!       The purpose of this declarative module is to specify  the 
+!     parameters related to direct & diffuse albedo over open water 
+!
+!!
+!!      
+!!
+!!    AUTHOR
+!!    ------
+!!	R. Séférian           * Meteo-France *
+!!
+!!    MODIFICATIONS
+!!    -------------
+!       S. Baek : extention from 200-800nm to 200-40000nm 
+!-------------------------------------------------------------------------------
+!
+!*       0.   DECLARATIONS
+!             ------------
+!
+
+IMPLICIT NONE
+!
+INTEGER, PARAMETER   :: NNWL = 381                ! number of wavelength
+!
+! absorption coefficients for seawater et 440 nm
+REAL, PARAMETER      :: XAW440 =  0.00635
+!
+!! white-caps reflectance (Koepke , 1983 estimation)
+!REAL, PARAMETER      :: XRWC   =  0.55
+!
+! table of wavelength discretization
+REAL, PARAMETER, DIMENSION(NNWL)::  XAKWL= &
+    (/ 200.0, 210.0, 220.0, 230.0, 240.0, 250.0, 260.0, 270.0, 280.0,  &
+    290.0, 300.0, 310.0, 320.0, 330.0, 340.0, 350.0, 360.0, 370.0,            &
+    380.0, 390.0, 400.0, 410.0, 420.0, 430.0, 440.0, 450.0, 460.0,            &
+    470.0, 480.0, 490.0, 500.0, 510.0, 520.0, 530.0, 540.0, 550.0,            &
+    560.0, 570.0, 580.0, 590.0, 600.0, 610.0, 620.0, 630.0, 640.0,            &
+    650.0, 660.0, 670.0, 680.0, 690.0, 700.0, 710.0, 720.0, 730.0,            &
+    740.0, 750.0, 760.0, 770.0, 780.0, 790.0, 800.0, 810.0, 820.0,            &
+    830.0, 840.0, 850.0, 860.0, 870.0, 880.0, 890.0, 900.0, 910.0,            &
+    920.0, 930.0, 940.0, 950.0, 960.0, 970.0, 980.0, 990.0, 1000.0, 1010.0,   &
+    1020.0, 1030.0, 1040.0, 1050.0, 1060.0, 1070.0, 1080.0, 1090.0, 1100.0,   &
+    1110.0, 1120.0, 1130.0, 1140.0, 1150.0, 1160.0, 1170.0, 1180.0, 1190.0,   &
+    1200.0, 1210.0, 1220.0, 1230.0, 1240.0, 1250.0, 1260.0, 1270.0, 1280.0,   &
+    1290.0, 1300.0, 1310.0, 1320.0, 1330.0, 1340.0, 1350.0, 1360.0, 1370.0,   &
+    1380.0, 1390.0, 1400.0, 1410.0, 1420.0, 1430.0, 1440.0, 1450.0, 1460.0,   &
+    1470.0, 1480.0, 1490.0, 1500.0, 1510.0, 1520.0, 1530.0, 1540.0, 1550.0,   &
+    1560.0, 1570.0, 1580.0, 1590.0, 1600.0, 1610.0, 1620.0, 1630.0, 1640.0,   &
+    1650.0, 1660.0, 1670.0, 1680.0, 1690.0, 1700.0, 1710.0, 1720.0, 1730.0,   &
+    1740.0, 1750.0, 1760.0, 1770.0, 1780.0, 1790.0, 1800.0, 1810.0, 1820.0,   &
+    1830.0, 1840.0, 1850.0, 1860.0, 1870.0, 1880.0, 1890.0, 1900.0, 1910.0,   &
+1920.0, 1930.0, 1940.0, 1950.0, 1960.0, 1970.0, 1980.0, 1990.0, 2000.0, 2010.0,& 
+2020.0, 2030.0, 2040.0, 2050.0, 2060.0, 2070.0, 2080.0, 2090.0, 2100.0, 2110.0,&
+2120.0, 2130.0, 2140.0, 2150.0, 2160.0, 2170.0, 2180.0, 2190.0, 2200.0, 2210.0,&
+2220.0, 2230.0, 2240.0, 2250.0, 2260.0, 2270.0, 2280.0, 2290.0, 2300.0, 2310.0,&
+2320.0, 2330.0, 2340.0, 2350.0, 2360.0, 2370.0, 2380.0, 2390.0, 2400.0, 2410.0,&
+2420.0, 2430.0, 2440.0, 2450.0, 2460.0, 2470.0, 2480.0, 2490.0, 2500.0, 2510.0,&
+2520.0, 2530.0, 2540.0, 2550.0, 2560.0, 2570.0, 2580.0, 2590.0, 2600.0, 2610.0,&
+2620.0, 2630.0, 2640.0, 2650.0, 2660.0, 2670.0, 2680.0, 2690.0, 2700.0, 2710.0,&
+2720.0, 2730.0, 2740.0, 2750.0, 2760.0, 2770.0, 2780.0, 2790.0, 2800.0, 2810.0,&
+2820.0, 2830.0, 2840.0, 2850.0, 2860.0, 2870.0, 2880.0, 2890.0, 2900.0, 2910.0,&
+2920.0, 2930.0, 2940.0, 2950.0, 2960.0, 2970.0, 2980.0, 2990.0, 3000.0, 3010.0,&
+3020.0, 3030.0, 3040.0, 3050.0, 3060.0, 3070.0, 3080.0, 3090.0, 3100.0, 3110.0,&
+3120.0, 3130.0, 3140.0, 3150.0, 3160.0, 3170.0, 3180.0, 3190.0, 3200.0, 3210.0,&
+3220.0, 3230.0, 3240.0, 3250.0, 3260.0, 3270.0, 3280.0, 3290.0, 3300.0, 3310.0,&
+3320.0, 3330.0, 3340.0, 3350.0, 3360.0, 3370.0, 3380.0, 3390.0, 3400.0, 3410.0,&
+3420.0, 3430.0, 3440.0, 3450.0, 3460.0, 3470.0, 3480.0, 3490.0, 3500.0, 3510.0,&
+3520.0, 3530.0, 3540.0, 3550.0, 3560.0, 3570.0, 3580.0, 3590.0, 3600.0, 3610.0,&
+3620.0, 3630.0, 3640.0, 3650.0, 3660.0, 3670.0, 3680.0, 3690.0, 3700.0, 3710.0,&
+3720.0, 3730.0, 3740.0, 3750.0, 3760.0, 3770.0, 3780.0, 3790.0, 3800.0, 3810.0,&
+3820.0, 3830.0, 3840.0, 3850.0, 3860.0, 3870.0, 3880.0, 3890.0, 3900.0, 3910.0,&
+3920.0, 3930.0, 3940.0, 3950.0, 3960.0, 3970.0, 3980.0, 3990.0, 4000.0 /) 
+
+
+ 
+!
+! proportion of each wavelength
+REAL, PARAMETER, DIMENSION(NNWL)::  XFRWL= &
+(/0.5399519E-04, 0.2057802E-03, 0.3488387E-03, 0.3841427E-03, 0.2915711E-03, &
+0.4429581E-03, 0.6302387E-03, 0.1970095E-02, 0.6974564E-03, 0.4431792E-02,   &
+0.3095547E-02, 0.4587307E-02, 0.5933870E-02, 0.7488277E-02, 0.7421943E-02,   &
+0.7738869E-02, 0.7155137E-02, 0.8394831E-02, 0.8859162E-02, 0.9190828E-02,   &
+0.1239693E-01, 0.1129138E-01, 0.1294971E-01, 0.8365349E-02, 0.1262541E-01,&
+0.1580203E-01, 0.1503552E-01, 0.1383415E-01, 0.1499867E-01, 0.1479230E-01,&
+0.1368674E-01, 0.1435007E-01, 0.1349511E-01, 0.1438693E-01, 0.1303815E-01,&
+0.1372359E-01, 0.1358356E-01, 0.1303815E-01, 0.1354671E-01, 0.1336245E-01,&
+0.1286863E-01, 0.1255171E-01, 0.1278019E-01, 0.1208001E-01, 0.1189575E-01,&
+0.1183678E-01, 0.1157882E-01, 0.1117345E-01, 0.1099656E-01, 0.1067227E-01,&
+0.1021531E-01, 0.1020794E-01, 0.9809937E-02, 0.9773086E-02, 0.9271902E-02,&
+0.9301383E-02, 0.9117125E-02, 0.8873903E-02, 0.8748608E-02, 0.8534866E-02,&
+0.8416941E-02, 0.8210571E-02, 0.7959980E-02, 0.7834683E-02, 0.7665165E-02,&
+0.7119759E-02, 0.7347503E-02, 0.7183881E-02, 0.7041634E-02, 0.7023945E-02,&
+0.6749768E-02, 0.6571406E-02, 0.6565509E-02, 0.6395254E-02, 0.6219103E-02,&
+0.6168247E-02, 0.6007574E-02, 0.5866062E-02, 0.5709074E-02, 0.5557982E-02,&
+0.5512286E-02, 0.5389938E-02, 0.5189464E-02, 0.5112813E-02, 0.4983095E-02,&
+0.4880646E-02, 0.4728080E-02, 0.4599837E-02, 0.4604259E-02, 0.4568881E-02,&
+0.4453166E-02, 0.4352930E-02, 0.4231319E-02, 0.4166460E-02, 0.4075804E-02,&
+0.4045586E-02, 0.3921027E-02, 0.3888597E-02, 0.3861327E-02, 0.3747823E-02,&
+0.3687387E-02, 0.3598206E-02, 0.3593046E-02, 0.3531872E-02, 0.3429424E-02,&
+0.3408050E-02, 0.3338769E-02, 0.3282018E-02, 0.3210525E-02, 0.3136085E-02,&
+0.3085229E-02, 0.3026266E-02, 0.2959933E-02, 0.2858222E-02, 0.2793363E-02,&
+0.2744719E-02, 0.2707130E-02, 0.2652589E-02, 0.2637849E-02, 0.2584045E-02,&
+0.2525819E-02, 0.2519186E-02, 0.2474227E-02, 0.2400524E-02, 0.2349668E-02,&
+0.2348931E-02, 0.2326083E-02, 0.2286283E-02, 0.2261224E-02, 0.2222161E-02,&
+0.2219213E-02, 0.2172043E-02, 0.2112343E-02, 0.2037902E-02, 0.2012106E-02,&
+0.1999576E-02, 0.1977465E-02, 0.1949458E-02, 0.1953143E-02, 0.1772569E-02,&
+0.1851432E-02, 0.1768884E-02, 0.1746036E-02, 0.1763725E-02, 0.1667173E-02,&
+0.1674544E-02, 0.1654644E-02, 0.1639903E-02, 0.1533033E-02, 0.1551459E-02,&
+0.1520504E-02, 0.1483652E-02, 0.1468911E-02, 0.1462278E-02, 0.1404052E-02,&
+0.1369411E-02, 0.1349511E-02, 0.1320030E-02, 0.1294234E-02, 0.1277282E-02,&
+0.1252223E-02, 0.1242641E-02, 0.1176308E-02, 0.1183679E-02, 0.1151249E-02,&
+0.1139456E-02, 0.1107764E-02, 0.1111449E-02, 0.1077545E-02, 0.1049538E-02,&
+0.1029638E-02, 0.1015634E-02, 0.9824679E-03, 0.9677272E-03, 0.9574086E-03,&
+0.9294013E-03, 0.9294013E-03, 0.9131865E-03, 0.8814940E-03, 0.8829681E-03,&
+0.8623311E-03, 0.8468534E-03, 0.8225312E-03, 0.8004201E-03, 0.7945239E-03,&
+0.7805202E-03, 0.7576721E-03, 0.7392463E-03, 0.7280433E-03, 0.7214100E-03,&
+0.7079960E-03, 0.6925183E-03, 0.6836001E-03, 0.6787357E-03, 0.6694490E-03,&
+0.6601624E-03, 0.6471906E-03, 0.6306809E-03, 0.6262587E-03, 0.6120340E-03,&
+0.6091595E-03, 0.5955244E-03, 0.5894070E-03, 0.5771722E-03, 0.5630211E-03,&
+0.5557982E-03, 0.5469538E-03, 0.5378146E-03, 0.5280857E-03, 0.5240319E-03,&
+0.5124605E-03, 0.5063431E-03, 0.4988254E-03, 0.4876225E-03, 0.4805469E-03,&
+0.4756088E-03, 0.4649218E-03, 0.4577725E-03, 0.4548981E-03, 0.4443585E-03,&
+0.4380937E-03, 0.4349982E-03, 0.4252693E-03, 0.4209945E-03, 0.4156141E-03,&
+0.4025686E-03, 0.4022001E-03, 0.3895231E-03, 0.3815631E-03, 0.3851009E-03,&
+0.3799416E-03, 0.3736400E-03, 0.3673383E-03, 0.3610735E-03, 0.3548087E-03,&
+0.3495758E-03, 0.3443428E-03, 0.3398469E-03, 0.3353510E-03, 0.3319237E-03,&
+0.3284966E-03, 0.3228951E-03, 0.3172936E-03, 0.3138296E-03, 0.3103655E-03,&
+0.3055011E-03, 0.3006366E-03, 0.2965461E-03, 0.2924555E-03, 0.2887335E-03,&
+0.2850115E-03, 0.2811789E-03, 0.2773463E-03, 0.2736611E-03, 0.2699760E-03,&
+0.2656643E-03, 0.2613527E-03, 0.2584782E-03, 0.2556038E-03, 0.2525451E-03,&
+0.2494864E-03, 0.2462434E-03, 0.2430005E-03, 0.2397575E-03, 0.2365146E-03,&
+0.2331979E-03, 0.2298813E-03, 0.2266752E-03, 0.2234690E-03, 0.2211474E-03,&
+0.2188257E-03, 0.2159144E-03, 0.2130031E-03, 0.2103130E-03, 0.2076228E-03,&
+0.2051537E-03, 0.2026847E-03, 0.2001787E-03, 0.1976728E-03, 0.1950932E-03,&
+0.1925136E-03, 0.1901182E-03, 0.1877228E-03, 0.1847010E-03, 0.1816792E-03,&
+0.1800945E-03, 0.1785099E-03, 0.1763725E-03, 0.1742351E-03, 0.1720977E-03,&
+0.1699603E-03, 0.1677492E-03, 0.1655381E-03, 0.1637692E-03, 0.1620003E-03,&
+0.1600103E-03, 0.1580203E-03, 0.1562514E-03, 0.1544826E-03, 0.1527137E-03,&
+0.1509448E-03, 0.1491759E-03, 0.1474070E-03, 0.1456013E-03, 0.1437956E-03,&
+0.1421741E-03, 0.1405526E-03, 0.1387469E-03, 0.1369411E-03, 0.1348774E-03,&
+0.1328137E-03, 0.1315608E-03, 0.1303078E-03, 0.1291654E-03, 0.1280230E-03,&
+0.1265489E-03, 0.1250749E-03, 0.1236745E-03, 0.1222741E-03, 0.1206526E-03,&
+0.1190312E-03, 0.1178888E-03, 0.1167464E-03, 0.1156408E-03, 0.1145353E-03,&
+0.1132823E-03, 0.1120294E-03, 0.1107764E-03, 0.1095234E-03, 0.1084179E-03,&
+0.1073123E-03, 0.1061699E-03, 0.1050275E-03, 0.1038483E-03, 0.1026690E-03,&
+0.1015266E-03, 0.1003842E-03, 0.9935234E-04, 0.9832049E-04, 0.9732549E-04,&
+0.9633049E-04, 0.9537235E-04, 0.9441420E-04, 0.9330864E-04, 0.9220310E-04,&
+0.9113440E-04, 0.9006570E-04, 0.8899700E-04, 0.8792829E-04, 0.8678589E-04,&
+0.8564349E-04, 0.8501700E-04, 0.8439052E-04, 0.8302701E-04, 0.8166349E-04,&
+0.8122127E-04, 0.8077905E-04, 0.8011572E-04, 0.7945239E-04, 0.7867850E-04,&
+0.7790462E-04, 0.7720443E-04, 0.7650425E-04, 0.7580406E-04, 0.7510388E-04,&
+0.7434105E-04, 0.7357822E-04, 0.7283750E-04, 0.7209678E-04, 0.7142239E-04,&
+0.7074801E-04, 0.7011415E-04, 0.6948030E-04, 0.6876537E-04, 0.6805045E-04,&
+0.6730973E-04, 0.6656901E-04, 0.6592411E-04, 0.6527920E-04, 0.6458639E-04,&
+0.6389357E-04 /) 
+
+
+!
+! Table for computing Reflectance just below ocean surface (bounded to 200-800 nm)
+! table of refractive index as function of wavelength
+REAL, PARAMETER, DIMENSION(NNWL)::  XAKREFM= &
+(/ 1.4517,  1.4345,  1.4214,  1.4108,  1.4022,  1.3950,  1.3889,  1.3836,      &
+1.3790,  1.3750,  1.3714,  1.3682,  1.3653,  1.3627,  1.3604,  1.3582,  1.3562,&
+1.3544,  1.3528,  1.3512,  1.3498,  1.3484,  1.3472,  1.3460,  1.3449,  1.3439,&
+1.3429,  1.3420,  1.3411,  1.3402,  1.3394,  1.3387,  1.3379,  1.3372,  1.3366,&
+1.3359,  1.3353,  1.3347,  1.3342,  1.3336,  1.3331,  1.3326,  1.3321,  1.3316,&
+1.3311,  1.3307,  1.3303,  1.3299,  1.3295,  1.3291,  1.3288,  1.3284,  1.3281,&
+1.3278,  1.3275,  1.3272,  1.3269,  1.3266,  1.3264,  1.3261,  1.3259,  1.3256,&
+1.3254,  1.3252,  1.3249,  1.3247,  1.3245,  1.3243,  1.3241,  1.3238,  1.3236,&
+1.3234,  1.3232,  1.3230,  1.3228,  1.3226,  1.3225,  1.3223,  1.3221,  1.3219,&
+1.3217,  1.3215,  1.3213,  1.3211,  1.3210,  1.3208,  1.3206,  1.3204,  1.3202,&
+1.3200,  1.3198,  1.3197,  1.3195,  1.3193,  1.3191,  1.3189,  1.3187,  1.3186,&
+1.3184,  1.3182,  1.3180,  1.3178,  1.3176,  1.3174,  1.3172,  1.3170,  1.3169,&
+1.3167,  1.3165,  1.3163,  1.3161,  1.3159,  1.3156,  1.3154,  1.3152,  1.3150,&
+1.3148,  1.3146,  1.3143,  1.3141,  1.3139,  1.3137,  1.3135,  1.3134,  1.3132,&
+1.3130,  1.3129,  1.3127,  1.3125,  1.3123,  1.3121,  1.3119,  1.3116,  1.3114,&
+1.3111,  1.3109,  1.3106,  1.3104,  1.3101,  1.3099,  1.3096,  1.3094,  1.3091,&
+1.3088,  1.3086,  1.3083,  1.3080,  1.3077,  1.3074,  1.3071,  1.3068,  1.3065,&
+1.3061,  1.3058,  1.3055,  1.3051,  1.3048,  1.3044,  1.3041,  1.3037,  1.3034,&
+1.3030,  1.3026,  1.3022,  1.3017,  1.3013,  1.3007,  1.3002,  1.2998,  1.2995,&
+1.2990,  1.2988,  1.2988,  1.2987,  1.2986,  1.2985,  1.2983,  1.2980,  1.2977,&
+1.2973,  1.2969,  1.2965,  1.2960,  1.2955,  1.2950,  1.2945,  1.2940,  1.2935,&
+1.2929,  1.2924,  1.2918,  1.2913,  1.2907,  1.2901,  1.2895,  1.2889,  1.2883,&
+1.2876,  1.2870,  1.2863,  1.2856,  1.2849,  1.2842,  1.2835,  1.2828,  1.2820,&
+1.2812,  1.2804,  1.2796,  1.2788,  1.2779,  1.2770,  1.2761,  1.2751,  1.2741,&
+1.2731,  1.2721,  1.2711,  1.2699,  1.2688,  1.2676,  1.2664,  1.2652,  1.2639,&
+1.2625,  1.2612,  1.2597,  1.2582,  1.2567,  1.2552,  1.2535,  1.2518,  1.2499,&
+1.2480,  1.2459,  1.2436,  1.2413,  1.2388,  1.2361,  1.2331,  1.2299,  1.2263,&
+1.2223,  1.2182,  1.2140,  1.2091,  1.2034,  1.1973,  1.1910,  1.1850,  1.1780,&
+1.1691,  1.1564,  1.1489,  1.1430,  1.1351,  1.1318,  1.1323,  1.1308,  1.1277,&
+1.1294,  1.1286,  1.1255,  1.1271,  1.1348,  1.1417,  1.1480,  1.1612,  1.1736,&
+1.1847,  1.2008,  1.2177,  1.2336,  1.2505,  1.2678,  1.2840,  1.3007,  1.3149,&
+1.3281,  1.3407,  1.3539,  1.3661,  1.3782,  1.3903,  1.4024,  1.4136,  1.4217,&
+1.4299,  1.4380,  1.4461,  1.4528,  1.4557,  1.4587,  1.4616,  1.4645,  1.4665,&
+1.4655,  1.4645,  1.4634,  1.4624,  1.4613,  1.4589,  1.4566,  1.4543,  1.4519,&
+1.4496,  1.4465,  1.4433,  1.4401,  1.4369,  1.4338,  1.4304,  1.4271,  1.4237,&
+1.4203,  1.4170,  1.4144,  1.4117,  1.4091,  1.4065,  1.4041,  1.4020,  1.3999,&
+1.3977,  1.3956,  1.3936,  1.3916,  1.3897,  1.3879,  1.3860,  1.3841,  1.3824,&
+1.3808,  1.3791,  1.3774,  1.3758,  1.3743,  1.3729,  1.3714,  1.3700,  1.3685,&
+1.3673,  1.3660,  1.3647,  1.3635,  1.3623,  1.3612,  1.3601,  1.3589,  1.3578,&
+1.3568,  1.3558,  1.3548,  1.3538,  1.3528,  1.3519,  1.3510,  1.3501,  1.3493,&
+1.3484,  1.3476,  1.3468,  1.3460,  1.3452,  1.3444,  1.3437,  1.3430,  1.3422,&
+1.3415,  1.3408,  1.3401,  1.3395,  1.3388,  1.3382,  1.3375,  1.3369,  1.3363,&
+1.3357,  1.3351,  1.3345,  1.3339 /)
+
+
+
+
+!
+! table of chlorophyll absorption coefficient as function of wavelength
+REAL, PARAMETER, DIMENSION(NNWL)::  XAKACHL= &
+(/0.4629505E+00, 0.4694205E+00, 0.4758904E+00, 0.4823604E+00, 0.4888304E+00,&
+0.4953003E+00, 0.5017703E+00, 0.5082403E+00, 0.5147102E+00, 0.5211802E+00,&
+0.5276502E+00, 0.5341201E+00, 0.5405901E+00, 0.5470601E+00, 0.5535300E+00,&
+0.5600000E+00, 0.5700000E+00, 0.5900000E+00, 0.6100000E+00, 0.6600000E+00,&
+0.6870000E+00, 0.8280000E+00, 0.9130000E+00, 0.9730000E+00, 0.1000000E+01,&
+0.9440000E+00, 0.9170000E+00, 0.8700000E+00, 0.7980000E+00, 0.7500000E+00,&
+0.6680000E+00, 0.6180000E+00, 0.5280000E+00, 0.4740000E+00, 0.4160000E+00,&
+0.3570000E+00, 0.2940000E+00, 0.2760000E+00, 0.2910000E+00, 0.2820000E+00,&
+0.2360000E+00, 0.2520000E+00, 0.2760000E+00, 0.3170000E+00, 0.3340000E+00,&
+0.3560000E+00, 0.4410000E+00, 0.5950000E+00, 0.5020000E+00, 0.3290000E+00,&
+0.2150000E+00, 0.2150000E+00, 0.2083276E+00, 0.2016552E+00, 0.1949828E+00,&
+0.1883103E+00, 0.1816379E+00, 0.1749655E+00, 0.1682931E+00, 0.1616207E+00,&
+0.1549483E+00, 0.1482759E+00, 0.1416035E+00, 0.1349310E+00, 0.1282586E+00,&
+0.1215862E+00, 0.1149138E+00, 0.1082414E+00, 0.1015690E+00, 0.9489655E-01,&
+0.8822414E-01, 0.8155172E-01, 0.7487931E-01, 0.6820690E-01, 0.6153448E-01,&
+0.5486207E-01, 0.4818965E-01, 0.4151724E-01, 0.3484483E-01, 0.2817241E-01,&
+0.2150000E-01, 0.2143550E-01, 0.2137100E-01, 0.2130650E-01, 0.2124200E-01,&
+0.2117750E-01, 0.2111300E-01, 0.2104850E-01, 0.2098400E-01, 0.2091950E-01,&
+0.2085500E-01, 0.2079050E-01, 0.2072600E-01, 0.2066150E-01, 0.2059700E-01,&
+0.2053250E-01, 0.2046800E-01, 0.2040350E-01, 0.2033900E-01, 0.2027450E-01,&
+0.2021000E-01, 0.2014550E-01, 0.2008100E-01, 0.2001650E-01, 0.1995200E-01,&
+0.1988750E-01, 0.1982300E-01, 0.1975850E-01, 0.1969400E-01, 0.1962950E-01,&
+0.1956500E-01, 0.1950050E-01, 0.1943600E-01, 0.1937150E-01, 0.1930700E-01,&
+0.1924250E-01, 0.1917800E-01, 0.1911350E-01, 0.1904900E-01, 0.1898450E-01,&
+0.1892000E-01, 0.1885550E-01, 0.1879100E-01, 0.1872650E-01, 0.1866200E-01,&
+0.1859750E-01, 0.1853300E-01, 0.1846850E-01, 0.1840400E-01, 0.1833950E-01,&
+0.1827500E-01, 0.1821050E-01, 0.1814600E-01, 0.1808150E-01, 0.1801700E-01,&
+0.1795250E-01, 0.1788800E-01, 0.1782350E-01, 0.1775900E-01, 0.1769450E-01,&
+0.1763000E-01, 0.1756550E-01, 0.1750100E-01, 0.1743650E-01, 0.1737200E-01,&
+0.1730750E-01, 0.1724300E-01, 0.1717850E-01, 0.1711400E-01, 0.1704950E-01,&
+0.1698500E-01, 0.1692050E-01, 0.1685600E-01, 0.1679150E-01, 0.1672700E-01,&
+0.1666250E-01, 0.1659800E-01, 0.1653350E-01, 0.1646900E-01, 0.1640450E-01,&
+0.1634000E-01, 0.1627550E-01, 0.1621100E-01, 0.1614650E-01, 0.1608200E-01,&
+0.1601750E-01, 0.1595300E-01, 0.1588850E-01, 0.1582400E-01, 0.1575950E-01,&
+0.1569500E-01, 0.1563050E-01, 0.1556600E-01, 0.1550150E-01, 0.1543700E-01,&
+0.1537250E-01, 0.1530800E-01, 0.1524350E-01, 0.1517900E-01, 0.1511450E-01,&
+0.1505000E-01, 0.1498550E-01, 0.1492100E-01, 0.1485650E-01, 0.1479200E-01,&
+0.1472750E-01, 0.1466300E-01, 0.1459850E-01, 0.1453400E-01, 0.1446950E-01,&
+0.1440500E-01, 0.1434050E-01, 0.1427600E-01, 0.1421150E-01, 0.1414700E-01,&
+0.1408250E-01, 0.1401800E-01, 0.1395350E-01, 0.1388900E-01, 0.1382450E-01,&
+0.1376000E-01, 0.1369550E-01, 0.1363100E-01, 0.1356650E-01, 0.1350200E-01,&
+0.1343750E-01, 0.1337300E-01, 0.1330850E-01, 0.1324400E-01, 0.1317950E-01,&
+0.1311500E-01, 0.1305050E-01, 0.1298600E-01, 0.1292150E-01, 0.1285700E-01,&
+0.1279250E-01, 0.1272800E-01, 0.1266350E-01, 0.1259900E-01, 0.1253450E-01,&
+0.1247000E-01, 0.1240550E-01, 0.1234100E-01, 0.1227650E-01, 0.1221200E-01,&
+0.1214750E-01, 0.1208300E-01, 0.1201850E-01, 0.1195400E-01, 0.1188950E-01,&
+0.1182500E-01, 0.1176050E-01, 0.1169600E-01, 0.1163150E-01, 0.1156700E-01,&
+0.1150250E-01, 0.1143800E-01, 0.1137350E-01, 0.1130900E-01, 0.1124450E-01,&
+0.1118000E-01, 0.1111550E-01, 0.1105100E-01, 0.1098650E-01, 0.1092200E-01,&
+0.1085750E-01, 0.1079300E-01, 0.1072850E-01, 0.1066400E-01, 0.1059950E-01,&
+0.1053500E-01, 0.1047050E-01, 0.1040600E-01, 0.1034150E-01, 0.1027700E-01,&
+0.1021250E-01, 0.1014800E-01, 0.1008350E-01, 0.1001900E-01, 0.9954500E-02,&
+0.9890000E-02, 0.9825500E-02, 0.9761000E-02, 0.9696500E-02, 0.9632000E-02,&
+0.9567500E-02, 0.9503000E-02, 0.9438500E-02, 0.9374000E-02, 0.9309500E-02,&
+0.9245000E-02, 0.9180500E-02, 0.9116000E-02, 0.9051500E-02, 0.8987000E-02,&
+0.8922500E-02, 0.8858000E-02, 0.8793500E-02, 0.8729000E-02, 0.8664500E-02,&
+0.8600000E-02, 0.8535500E-02, 0.8471000E-02, 0.8406500E-02, 0.8342000E-02,&
+0.8277500E-02, 0.8213000E-02, 0.8148500E-02, 0.8084000E-02, 0.8019500E-02,&
+0.7955000E-02, 0.7890500E-02, 0.7826000E-02, 0.7761500E-02, 0.7697000E-02,&
+0.7632500E-02, 0.7568000E-02, 0.7503500E-02, 0.7439000E-02, 0.7374500E-02,&
+0.7310000E-02, 0.7245500E-02, 0.7181000E-02, 0.7116500E-02, 0.7052000E-02,&
+0.6987500E-02, 0.6923000E-02, 0.6858500E-02, 0.6794000E-02, 0.6729500E-02,&
+0.6665000E-02, 0.6600500E-02, 0.6536000E-02, 0.6471500E-02, 0.6407000E-02,&
+0.6342500E-02, 0.6278000E-02, 0.6213500E-02, 0.6149000E-02, 0.6084500E-02,&
+0.6020000E-02, 0.5955500E-02, 0.5891000E-02, 0.5826500E-02, 0.5762000E-02,&
+0.5697500E-02, 0.5633000E-02, 0.5568500E-02, 0.5504000E-02, 0.5439500E-02,&
+0.5375000E-02, 0.5310500E-02, 0.5246000E-02, 0.5181500E-02, 0.5117000E-02,&
+0.5052500E-02, 0.4988000E-02, 0.4923500E-02, 0.4859000E-02, 0.4794500E-02,&
+0.4730000E-02, 0.4665500E-02, 0.4601000E-02, 0.4536500E-02, 0.4472000E-02,&
+0.4407500E-02, 0.4343000E-02, 0.4278500E-02, 0.4214000E-02, 0.4149500E-02,&
+0.4085000E-02, 0.4020500E-02, 0.3956000E-02, 0.3891500E-02, 0.3827000E-02,&
+0.3762500E-02, 0.3698000E-02, 0.3633500E-02, 0.3569000E-02, 0.3504500E-02,&
+0.3440000E-02, 0.3375500E-02, 0.3311000E-02, 0.3246500E-02, 0.3182000E-02,&
+0.3117500E-02, 0.3053000E-02, 0.2988500E-02, 0.2924000E-02, 0.2859500E-02,&
+0.2795000E-02, 0.2730500E-02, 0.2666000E-02, 0.2601500E-02, 0.2537000E-02,&
+0.2472500E-02, 0.2408000E-02, 0.2343500E-02, 0.2279000E-02, 0.2214500E-02,&
+0.2150000E-02 /)
+
+REAL, PARAMETER, DIMENSION(NNWL)::  XAKACHL2= &
+(/0.7745835E+00,  0.7522619E+00,  0.7299404E+00,  0.7076188E+00, 0.6852972E+00,&
+0.6629756E+00,  0.5767828E+00,  0.5011461E+00,  0.4285168E+00,  0.3946458E+00,&
+0.4330427E+00,  0.5309876E+00,  0.6371105E+00,  0.7297136E+00,  0.7904093E+00,&
+0.8097131E+00,  0.8760642E+00,  0.9381161E+00,  0.9457293E+00,  0.9258360E+00,&
+0.9025422E+00,  0.9252829E+00,  0.9270173E+00,  0.9995731E+00,  0.8171211E+00,&
+0.5353835E+00,  0.5329482E+00,  0.5348938E+00,  0.3804893E+00,  0.2089162E+00,&
+0.1108572E+00,  0.7056972E-01,  0.6340462E-01,  0.7044097E-01,  0.8182860E-01,&
+0.9896376E-01,  0.1267309E+00,  0.1598070E+00,  0.1993082E+00,  0.2502128E+00,&
+0.3026099E+00,  0.3196909E+00,  0.2917686E+00,  0.2666667E+00,  0.3314760E+00,&
+0.5711130E+00,  0.7452133E+00,  0.5497976E+00,  0.2406984E+00,  0.1315954E+00,&
+0.1197734E+00,  0.1258391E+00,  0.1367452E+00,  0.1552781E+00,  0.1936057E+00,&
+0.2571016E+00,  0.3363165E+00,  0.4064784E+00,  0.4289439E+00,  0.3819179E+00,&
+0.2987019E+00,  0.2160145E+00,  0.1343931E+00,  0.6321464E-01,  0.2241001E-01,&
+0.5134957E-02, -0.1242093E-02, -0.2531676E-02, -0.4085609E-02, -0.4713067E-02,&
+-0.5693497E-02, -0.1090849E-01, -0.1407841E-01, -0.1816251E-01, -0.2587014E-01,&
+-0.3565745E-01, -0.4546714E-01, -0.5446691E-01, -0.5650476E-01, -0.5981312E-01,&
+-0.5981312E-01, -0.6451318E-01, -0.4835265E-01, -0.4864828E-01, -0.4876773E-01,&
+-0.4840301E-01, -0.4866588E-01, -0.4836091E-01, -0.4851014E-01, -0.4860595E-01,&
+-0.4852568E-01, -0.4805798E-01, -0.4859427E-01, -0.4795901E-01, -0.4846919E-01,&
+-0.4850669E-01, -0.4854093E-01, -0.4849193E-01, -0.4841270E-01, -0.4855558E-01,&
+-0.4827924E-01, -0.4906723E-01, -0.4822920E-01, -0.4818162E-01, -0.4854826E-01,&
+-0.4875536E-01, -0.4863250E-01, -0.4843162E-01, -0.4836087E-01, -0.4913286E-01,&
+-0.4884187E-01, -0.4864121E-01, -0.4865143E-01, -0.4821299E-01, -0.4880581E-01,&
+-0.4887014E-01, -0.4868441E-01, -0.4861962E-01, -0.4806854E-01, -0.4918258E-01,&
+-0.4813463E-01, -0.4876416E-01, -0.4831872E-01, -0.4867297E-01, -0.4862849E-01,&
+-0.4836460E-01, -0.4858448E-01, -0.4886762E-01, -0.4875397E-01, -0.4863992E-01,&
+-0.4862744E-01, -0.4887019E-01, -0.4816946E-01, -0.4892569E-01, -0.4864310E-01,&
+-0.4881326E-01, -0.4819329E-01, -0.4852681E-01, -0.4803719E-01, -0.4831237E-01,&
+-0.4866472E-01, -0.4815419E-01, -0.4873738E-01, -0.4851730E-01, -0.4848577E-01,&
+-0.4881878E-01, -0.4878175E-01, -0.4839409E-01, -0.4850954E-01, -0.4846783E-01,&
+-0.4847389E-01, -0.4833271E-01, -0.4859281E-01, -0.4863393E-01, -0.4839972E-01,&
+-0.4851298E-01, -0.4831513E-01, -0.4842690E-01, -0.4784760E-01, -0.4914954E-01,&
+-0.4866549E-01, -0.4890948E-01, -0.4834954E-01, -0.4830681E-01, -0.4859897E-01,&
+-0.4838582E-01, -0.4851704E-01, -0.4866422E-01, -0.4881537E-01, -0.4851842E-01,&
+-0.4877209E-01, -0.4873482E-01, -0.4825956E-01, -0.4852063E-01, -0.4867407E-01,&
+-0.4878135E-01, -0.4830102E-01, -0.4826979E-01, -0.4870005E-01, -0.4902764E-01,&
+-0.4871316E-01, -0.4853799E-01, -0.4867663E-01, -0.4823785E-01, -0.4855946E-01,&
+-0.4875993E-01, -0.4846177E-01, -0.4886679E-01, -0.4859700E-01, -0.4809872E-01,&
+-0.4822881E-01, -0.4837712E-01, -0.4855768E-01, -0.4867230E-01, -0.4838317E-01,&
+-0.4876311E-01, -0.4812689E-01, -0.4820772E-01, -0.4904227E-01, -0.4871970E-01,&
+-0.4853304E-01, -0.4859587E-01, -0.4845879E-01, -0.4837155E-01, -0.4874718E-01,&
+-0.4873789E-01, -0.4851343E-01, -0.4851316E-01, -0.4901856E-01, -0.4836449E-01,&
+-0.4880954E-01, -0.4853077E-01, -0.4898909E-01, -0.4812662E-01, -0.4832583E-01,&
+-0.4847423E-01, -0.4846226E-01, -0.4844360E-01, -0.4835512E-01, -0.4893025E-01,&
+-0.4853777E-01, -0.4873621E-01, -0.4832436E-01, -0.4854396E-01, -0.4848187E-01,&
+-0.4850079E-01, -0.4843526E-01, -0.4818938E-01, -0.4874043E-01, -0.4847353E-01,&
+-0.4865320E-01, -0.4853667E-01, -0.4859223E-01, -0.4872705E-01, -0.4821515E-01,&
+-0.4844453E-01, -0.4870005E-01, -0.4881809E-01, -0.4865348E-01, -0.4871232E-01,&
+-0.4859998E-01, -0.4833980E-01, -0.4860161E-01, -0.4839900E-01, -0.4853466E-01,&
+-0.4864573E-01, -0.4863669E-01, -0.4901951E-01, -0.4832310E-01, -0.4890333E-01,&
+-0.4880714E-01, -0.4855986E-01, -0.4852934E-01, -0.4818182E-01, -0.4795438E-01,&
+-0.4834752E-01, -0.4810626E-01, -0.4861891E-01, -0.4872801E-01, -0.4814039E-01,&
+-0.4894429E-01, -0.4881275E-01, -0.4903332E-01, -0.4835438E-01, -0.4865217E-01,&
+-0.4853667E-01, -0.4841790E-01, -0.4869760E-01, -0.4900452E-01, -0.4856053E-01,&
+-0.4825166E-01, -0.4837719E-01, -0.4872088E-01, -0.4873605E-01, -0.4868101E-01,&
+-0.4883375E-01, -0.4870022E-01, -0.4875332E-01, -0.4836111E-01, -0.4863061E-01,&
+-0.4875719E-01, -0.4874192E-01, -0.4847357E-01, -0.4867528E-01, -0.4836407E-01,&
+-0.4828474E-01, -0.4860063E-01, -0.4861546E-01, -0.4864795E-01, -0.4844943E-01,&
+-0.4904242E-01, -0.4843469E-01, -0.4866992E-01, -0.4900254E-01, -0.4864337E-01,&
+-0.4844130E-01, -0.4837940E-01, -0.4855977E-01, -0.4874923E-01, -0.4906257E-01,&
+-0.4864537E-01, -0.4834532E-01, -0.4869347E-01, -0.4858449E-01, -0.4877963E-01,&
+-0.4863986E-01, -0.4848931E-01, -0.4836552E-01, -0.4849740E-01, -0.4887220E-01,&
+-0.4904565E-01, -0.4872388E-01, -0.4810480E-01, -0.4806256E-01, -0.4874242E-01,&
+-0.4819115E-01, -0.4862189E-01, -0.4871701E-01, -0.4839065E-01, -0.4877597E-01,&
+-0.4905847E-01, -0.4861049E-01, -0.4812144E-01, -0.4872767E-01, -0.4891870E-01,&
+-0.4890406E-01, -0.4818467E-01, -0.4847043E-01, -0.4841457E-01, -0.4821321E-01,&
+-0.4847127E-01, -0.4868549E-01, -0.4910397E-01, -0.4863713E-01, -0.4831791E-01,&
+-0.4807175E-01, -0.4877013E-01, -0.4882632E-01, -0.4808306E-01, -0.4848078E-01,&
+-0.4849469E-01, -0.4864521E-01, -0.4823979E-01, -0.4866831E-01, -0.4870176E-01,&
+-0.4837111E-01, -0.4899544E-01, -0.4904284E-01, -0.4913362E-01, -0.4821655E-01,&
+-0.4833322E-01, -0.4831560E-01, -0.4840073E-01, -0.4852060E-01, -0.4897843E-01,&
+-0.4829322E-01, -0.4884781E-01, -0.4827255E-01, -0.4827960E-01, -0.4864042E-01,&
+-0.4828514E-01, -0.4897902E-01, -0.4855954E-01, -0.4855975E-01, -0.4858216E-01,&
+-0.4827806E-01, -0.4847189E-01, -0.4860275E-01, -0.4906456E-01, -0.4853636E-01,&
+-0.4862808E-01, -0.4848551E-01, -0.4869109E-01, -0.4848604E-01, -0.4866388E-01,&
+-0.4846765E-01, -0.4875867E-01, -0.4807435E-01, -0.4867530E-01, -0.4888080E-01,&
+-0.4844930E-01 /)
+
+
+
+
+
+
+
+!
+! table of seawater absorption coefficient as function of wavelength
+REAL, PARAMETER, DIMENSION(NNWL)::  XAKAW3= &
+(/0.3067439E+01, 0.1993737E+01, 0.1309263E+01, 0.9275307E+00, 0.7183294E+00,&
+0.5608010E+00, 0.4552411E+00, 0.3738498E+00, 0.2879400E+00, 0.2145172E+00,&
+0.1415658E+00, 0.1048958E+00, 0.8411996E-01, 0.6814662E-01, 0.5585442E-01,&
+0.4638546E-01, 0.3791143E-01, 0.2984669E-01, 0.2234093E-01, 0.1870175E-01,&
+0.1737227E-01, 0.1609624E-01, 0.1530537E-01, 0.1443961E-01, 0.1437088E-01,&
+0.1480803E-01, 0.1517563E-01, 0.1592806E-01, 0.1743279E-01, 0.1967369E-01,&
+0.2564243E-01, 0.3598580E-01, 0.4703195E-01, 0.5145027E-01, 0.5534469E-01,&
+0.6400512E-01, 0.7030880E-01, 0.8172981E-01, 0.1033439E+00, 0.1638825E+00,&
+0.2387544E+00, 0.2908335E+00, 0.3086321E+00, 0.3193000E+00, 0.3277702E+00,&
+0.3523264E+00, 0.3957919E+00, 0.4326377E+00, 0.4485145E+00, 0.5016078E+00,&
+0.6481431E+00, 0.8408502E+00, 0.1165249E+01, 0.1810640E+01, 0.2364421E+01,&
+0.2479177E+01, 0.2547112E+01, 0.2511108E+01, 0.2356959E+01, 0.2164139E+01,&
+0.2068389E+01, 0.2334173E+01, 0.3101571E+01, 0.3715746E+01, 0.4069374E+01,&
+0.4055130E+01, 0.3662220E+01, 0.3265983E+01, 0.3338288E+01, 0.4351006E+01,&
+0.6776006E+01, 0.1092508E+02, 0.1646968E+02, 0.2292120E+02, 0.2979101E+02,&
+0.3659049E+02, 0.4255537E+02, 0.4581877E+02, 0.4488433E+02, 0.4084045E+02,&
+0.3542173E+02, 0.3008784E+02, 0.2519888E+02, 0.2084002E+02, 0.1709645E+02,&
+0.1405336E+02, 0.1179592E+02, 0.1051821E+02, 0.1084989E+02, 0.1352949E+02,&
+0.1929556E+02, 0.2856379E+02, 0.4045844E+02, 0.5378094E+02, 0.6733270E+02,&
+0.7991512E+02, 0.9045451E+02, 0.9837671E+02, 0.1032324E+03, 0.1045724E+03,&
+0.1024582E+03, 0.9870555E+02, 0.9448188E+02, 0.9066481E+02, 0.8813195E+02,&
+0.8776093E+02, 0.9009315E+02, 0.9432506E+02, 0.9931691E+02, 0.1039289E+03,&
+0.1070213E+03, 0.1091415E+03, 0.1175854E+03, 0.1413362E+03, 0.1893769E+03,&
+0.2706907E+03, 0.3927593E+03, 0.5570592E+03, 0.7635654E+03, 0.1012253E+04,&
+0.1303097E+04, 0.1629710E+04, 0.1960254E+04, 0.2256530E+04, 0.2480335E+04,&
+0.2593472E+04, 0.2570322E+04, 0.2435603E+04, 0.2226617E+04, 0.1980665E+04,&
+0.1735048E+04, 0.1520186E+04, 0.1338970E+04, 0.1187410E+04, 0.1061517E+04,&
+0.9572996E+03, 0.8707689E+03, 0.7979346E+03, 0.7348066E+03, 0.6773950E+03,&
+0.6217097E+03, 0.5658621E+03, 0.5163686E+03, 0.4818471E+03, 0.4709154E+03,&
+0.4921914E+03, 0.5339673E+03, 0.5283995E+03, 0.4879842E+03, 0.4503842E+03,&
+0.4532622E+03, 0.5219655E+03, 0.6325787E+03, 0.7488713E+03, 0.8346125E+03,&
+0.8535717E+03, 0.7823218E+03, 0.6486514E+03, 0.4931527E+03, 0.3564180E+03,&
+0.2790396E+03, 0.2973530E+03, 0.4306661E+03, 0.6940303E+03, 0.1102497E+04,&
+0.1671116E+04, 0.2414941E+04, 0.3349021E+04, 0.4488408E+04, 0.5848154E+04,&
+0.7443309E+04, 0.9216590E+04, 0.1082137E+05, 0.1183869E+05, 0.1184960E+05,&
+0.1078493E+05, 0.9686200E+04, 0.8790378E+04, 0.8045845E+04, 0.7400985E+04,&
+0.6804181E+04, 0.6214741E+04, 0.5635665E+04, 0.5080881E+04, 0.4564313E+04,&
+0.4099888E+04, 0.3697940E+04, 0.3354440E+04, 0.3061767E+04, 0.2812299E+04,&
+0.2598416E+04, 0.2413350E+04, 0.2253741E+04, 0.2117085E+04, 0.2000874E+04,&
+0.1902603E+04, 0.1819767E+04, 0.1749858E+04, 0.1690372E+04, 0.1638801E+04,&
+0.1592640E+04, 0.1555394E+04, 0.1548293E+04, 0.1573317E+04, 0.1626133E+04,&
+0.1702405E+04, 0.1797857E+04, 0.1908438E+04, 0.2030156E+04, 0.2159016E+04,&
+0.2291026E+04, 0.2423482E+04, 0.2558843E+04, 0.2700856E+04, 0.2853272E+04,&
+0.3019837E+04, 0.3204129E+04, 0.3409039E+04, 0.3637285E+04, 0.3891587E+04,&
+0.4174664E+04, 0.4489235E+04, 0.4838020E+04, 0.5223737E+04, 0.5649106E+04,&
+0.6116846E+04, 0.6622627E+04, 0.7133928E+04, 0.7611180E+04, 0.8014812E+04,&
+0.8305254E+04, 0.8466704E+04, 0.8578431E+04, 0.8743467E+04, 0.9064849E+04,&
+0.9645611E+04, 0.1051240E+05, 0.1138630E+05, 0.1191200E+05, 0.1173420E+05,&
+0.1049759E+05, 0.8305364E+04, 0.7094721E+04, 0.9142031E+04, 0.1397930E+05,&
+0.1839416E+05, 0.1986234E+05, 0.1908920E+05, 0.1758752E+05, 0.1687005E+05,&
+0.1844957E+05, 0.2383885E+05, 0.3455066E+05, 0.5209777E+05, 0.7799295E+05,&
+0.1137490E+06, 0.1602886E+06, 0.2161751E+06, 0.2793814E+06, 0.3478807E+06,&
+0.4196461E+06, 0.4928405E+06, 0.5663854E+06, 0.6393920E+06, 0.7109715E+06,&
+0.7802351E+06, 0.8462941E+06, 0.9082596E+06, 0.9652429E+06, 0.1016355E+07,&
+0.1060708E+07, 0.1097549E+07, 0.1126679E+07, 0.1148035E+07, 0.1161554E+07,&
+0.1167173E+07, 0.1164996E+07, 0.1155796E+07, 0.1140514E+07, 0.1120088E+07,&
+0.1095461E+07, 0.1067479E+07, 0.1036628E+07, 0.1003298E+07, 0.9678839E+06,&
+0.9307769E+06, 0.8923695E+06, 0.8530543E+06, 0.8132238E+06, 0.7732703E+06,&
+0.7335864E+06, 0.6945089E+06, 0.6561521E+06, 0.6185746E+06, 0.5818354E+06,&
+0.5459929E+06, 0.5111060E+06, 0.4772333E+06, 0.4444336E+06, 0.4127655E+06,&
+0.3822878E+06, 0.3530592E+06, 0.3251383E+06, 0.2985839E+06, 0.2734547E+06,&
+0.2498094E+06, 0.2277067E+06, 0.2072053E+06, 0.1883639E+06, 0.1712413E+06,&
+0.1558960E+06, 0.1423474E+06, 0.1304565E+06, 0.1200447E+06, 0.1109338E+06,&
+0.1029451E+06, 0.9590033E+05, 0.8962092E+05, 0.8392845E+05, 0.7864446E+05,&
+0.7359050E+05, 0.6862405E+05, 0.6374646E+05, 0.5899502E+05, 0.5440700E+05,&
+0.5001969E+05, 0.4587039E+05, 0.4199638E+05, 0.3843495E+05, 0.3522339E+05,&
+0.3239897E+05, 0.2998538E+05, 0.2795181E+05, 0.2625384E+05, 0.2484704E+05,&
+0.2368700E+05, 0.2272929E+05, 0.2192950E+05, 0.2124319E+05, 0.2062596E+05,&
+0.2003338E+05, 0.1942931E+05, 0.1881074E+05, 0.1818297E+05, 0.1755126E+05,&
+0.1692090E+05, 0.1629717E+05, 0.1568535E+05, 0.1509072E+05, 0.1451856E+05,&
+0.1397415E+05, 0.1346277E+05, 0.1298970E+05, 0.1256022E+05, 0.1217961E+05,&
+0.1185315E+05, 0.1158473E+05, 0.1137272E+05, 0.1121409E+05, 0.1110580E+05,&
+0.1104483E+05, 0.1102816E+05, 0.1105274E+05, 0.1111556E+05, 0.1121359E+05,&
+0.1134380E+05, 0.1150316E+05, 0.1168864E+05, 0.1189722E+05, 0.1212586E+05,&
+0.1237155E+05, 0.1263124E+05, 0.1290192E+05, 0.1318056E+05, 0.1346412E+05,&
+0.1374958E+05, 0.1403392E+05, 0.1431409E+05, 0.1458709E+05, 0.1484987E+05,&
+0.1509941E+05 /)
+
+
+
+!
+! table of seawater backscattering coefficient as function of wavelength
+REAL, PARAMETER, DIMENSION(NNWL)::  XAKBW= &
+(/0.1510000E+00, 0.1190000E+00, 0.9950015E-01, 0.8199944E-01, 0.6850207E-01,&
+0.5749506E-01, 0.4850663E-01, 0.4149505E-01, 0.3530210E-01, 0.3049935E-01,&
+0.2620052E-01, 0.2289856E-01, 0.2000336E-01, 0.1749553E-01, 0.1530325E-01,&
+0.1339897E-01, 0.1199900E-01, 0.1060502E-01, 0.9387780E-02, 0.8416411E-02,&
+0.7587748E-02, 0.6805146E-02, 0.6098530E-02, 0.5500733E-02, 0.4898538E-02,&
+0.4503288E-02, 0.4095613E-02, 0.3703303E-02, 0.3398477E-02, 0.3100964E-02,&
+0.2897666E-02, 0.2608371E-02, 0.2380034E-02, 0.2226757E-02, 0.2080041E-02,&
+0.1908345E-02, 0.1797763E-02, 0.1700603E-02, 0.1599833E-02, 0.1500036E-02,&
+0.1400066E-02, 0.1299673E-02, 0.1201250E-02, 0.1095326E-02, 0.1017446E-02,&
+0.9582712E-03, 0.8559384E-03, 0.7582711E-03, 0.7174466E-03, 0.6953252E-03,&
+0.7012525E-03, 0.6996646E-03, 0.6000893E-03, 0.5999768E-03, 0.6000058E-03,&
+0.4999986E-03, 0.5000004E-03, 0.4999999E-03, 0.4000000E-03, 0.4000000E-03,&
+0.4000000E-03, 0.4000000E-03, 0.3987586E-03, 0.3975172E-03, 0.3962759E-03,&
+0.3950345E-03, 0.3937931E-03, 0.3925517E-03, 0.3913103E-03, 0.3900690E-03,&
+0.3888276E-03, 0.3875862E-03, 0.3863448E-03, 0.3851035E-03, 0.3838621E-03,&
+0.3826207E-03, 0.3813793E-03, 0.3801379E-03, 0.3788965E-03, 0.3776552E-03,&
+0.3764138E-03, 0.3751724E-03, 0.3739310E-03, 0.3726897E-03, 0.3714483E-03,&
+0.3702069E-03, 0.3689655E-03, 0.3677241E-03, 0.3664828E-03, 0.3652414E-03,&
+0.3640000E-03, 0.3627586E-03, 0.3615172E-03, 0.3602759E-03, 0.3590345E-03,&
+0.3577931E-03, 0.3565517E-03, 0.3553103E-03, 0.3540690E-03, 0.3528276E-03,&
+0.3515862E-03, 0.3503448E-03, 0.3491034E-03, 0.3478621E-03, 0.3466207E-03,&
+0.3453793E-03, 0.3441379E-03, 0.3428966E-03, 0.3416552E-03, 0.3404138E-03,&
+0.3391724E-03, 0.3379310E-03, 0.3366896E-03, 0.3354483E-03, 0.3342069E-03,&
+0.3329655E-03, 0.3317241E-03, 0.3304828E-03, 0.3292414E-03, 0.3280000E-03,&
+0.3267586E-03, 0.3255172E-03, 0.3242759E-03, 0.3230345E-03, 0.3217931E-03,&
+0.3205517E-03, 0.3193103E-03, 0.3180690E-03, 0.3168276E-03, 0.3155862E-03,&
+0.3143448E-03, 0.3131035E-03, 0.3118621E-03, 0.3106207E-03, 0.3093793E-03,&
+0.3081379E-03, 0.3068965E-03, 0.3056552E-03, 0.3044138E-03, 0.3031724E-03,&
+0.3019310E-03, 0.3006897E-03, 0.2994483E-03, 0.2982069E-03, 0.2969655E-03,&
+0.2957241E-03, 0.2944828E-03, 0.2932414E-03, 0.2920000E-03, 0.2907586E-03,&
+0.2895173E-03, 0.2882759E-03, 0.2870345E-03, 0.2857931E-03, 0.2845517E-03,&
+0.2833103E-03, 0.2820690E-03, 0.2808276E-03, 0.2795862E-03, 0.2783448E-03,&
+0.2771034E-03, 0.2758621E-03, 0.2746207E-03, 0.2733793E-03, 0.2721379E-03,&
+0.2708966E-03, 0.2696552E-03, 0.2684138E-03, 0.2671724E-03, 0.2659310E-03,&
+0.2646896E-03, 0.2634483E-03, 0.2622069E-03, 0.2609655E-03, 0.2597241E-03,&
+0.2584828E-03, 0.2572414E-03, 0.2560000E-03, 0.2547586E-03, 0.2535172E-03,&
+0.2522759E-03, 0.2510345E-03, 0.2497931E-03, 0.2485517E-03, 0.2473104E-03,&
+0.2460690E-03, 0.2448276E-03, 0.2435862E-03, 0.2423448E-03, 0.2411035E-03,&
+0.2398621E-03, 0.2386207E-03, 0.2373793E-03, 0.2361379E-03, 0.2348965E-03,&
+0.2336552E-03, 0.2324138E-03, 0.2311724E-03, 0.2299310E-03, 0.2286896E-03,&
+0.2274483E-03, 0.2262069E-03, 0.2249655E-03, 0.2237241E-03, 0.2224828E-03,&
+0.2212414E-03, 0.2200000E-03, 0.2187586E-03, 0.2175172E-03, 0.2162759E-03,&
+0.2150345E-03, 0.2137931E-03, 0.2125517E-03, 0.2113103E-03, 0.2100690E-03,&
+0.2088276E-03, 0.2075862E-03, 0.2063448E-03, 0.2051035E-03, 0.2038621E-03,&
+0.2026207E-03, 0.2013793E-03, 0.2001379E-03, 0.1988966E-03, 0.1976552E-03,&
+0.1964138E-03, 0.1951724E-03, 0.1939310E-03, 0.1926897E-03, 0.1914483E-03,&
+0.1902069E-03, 0.1889655E-03, 0.1877241E-03, 0.1864828E-03, 0.1852414E-03,&
+0.1840000E-03, 0.1827586E-03, 0.1815172E-03, 0.1802759E-03, 0.1790345E-03,&
+0.1777931E-03, 0.1765517E-03, 0.1753103E-03, 0.1740690E-03, 0.1728276E-03,&
+0.1715862E-03, 0.1703448E-03, 0.1691034E-03, 0.1678621E-03, 0.1666207E-03,&
+0.1653793E-03, 0.1641379E-03, 0.1628966E-03, 0.1616552E-03, 0.1604138E-03,&
+0.1591724E-03, 0.1579310E-03, 0.1566897E-03, 0.1554483E-03, 0.1542069E-03,&
+0.1529655E-03, 0.1517241E-03, 0.1504828E-03, 0.1492414E-03, 0.1480000E-03,&
+0.1467586E-03, 0.1455172E-03, 0.1442759E-03, 0.1430345E-03, 0.1417931E-03,&
+0.1405517E-03, 0.1393103E-03, 0.1380690E-03, 0.1368276E-03, 0.1355862E-03,&
+0.1343448E-03, 0.1331034E-03, 0.1318621E-03, 0.1306207E-03, 0.1293793E-03,&
+0.1281379E-03, 0.1268966E-03, 0.1256552E-03, 0.1244138E-03, 0.1231724E-03,&
+0.1219310E-03, 0.1206897E-03, 0.1194483E-03, 0.1182069E-03, 0.1169655E-03,&
+0.1157241E-03, 0.1144828E-03, 0.1132414E-03, 0.1120000E-03, 0.1107586E-03,&
+0.1095172E-03, 0.1082759E-03, 0.1070345E-03, 0.1057931E-03, 0.1045517E-03,&
+0.1033103E-03, 0.1020690E-03, 0.1008276E-03, 0.9958621E-04, 0.9834483E-04,&
+0.9710345E-04, 0.9586207E-04, 0.9462069E-04, 0.9337931E-04, 0.9213793E-04,&
+0.9089655E-04, 0.8965517E-04, 0.8841379E-04, 0.8717241E-04, 0.8593103E-04,&
+0.8468966E-04, 0.8344828E-04, 0.8220690E-04, 0.8096552E-04, 0.7972414E-04,&
+0.7848276E-04, 0.7724138E-04, 0.7600000E-04, 0.7475862E-04, 0.7351724E-04,&
+0.7227586E-04, 0.7103448E-04, 0.6979310E-04, 0.6855172E-04, 0.6731034E-04,&
+0.6606896E-04, 0.6482759E-04, 0.6358621E-04, 0.6234483E-04, 0.6110345E-04,&
+0.5986207E-04, 0.5862069E-04, 0.5737931E-04, 0.5613793E-04, 0.5489655E-04,&
+0.5365517E-04, 0.5241379E-04, 0.5117241E-04, 0.4993103E-04, 0.4868966E-04,&
+0.4744828E-04, 0.4620690E-04, 0.4496552E-04, 0.4372414E-04, 0.4248276E-04,&
+0.4124138E-04, 0.4000000E-04, 0.3875862E-04, 0.3751724E-04, 0.3627586E-04,&
+0.3503448E-04, 0.3379311E-04, 0.3255172E-04, 0.3131034E-04, 0.3006897E-04,&
+0.2882759E-04, 0.2758621E-04, 0.2634483E-04, 0.2510345E-04, 0.2386207E-04,&
+0.2262069E-04, 0.2137931E-04, 0.2013793E-04, 0.1889655E-04, 0.1765517E-04,&
+0.1641379E-04, 0.1517241E-04, 0.1393103E-04, 0.1268965E-04, 0.1144828E-04,&
+0.1020690E-04, 0.8965517E-05, 0.7724138E-05, 0.6482759E-05, 0.5241379E-05,&
+0.4000000E-05 /)
+
+! white-caps reflectance (Koepke and Whitlock)
+! Whitlock fit varid 400nm - 2.4nm. set albedo 0 otherwise 
+REAL, PARAMETER, DIMENSION(NNWL)::  XRWC   = &
+(/0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.1986623E+00, 0.1968392E+00, 0.1955961E+00, 0.1941208E+00, 0.1939980E+00,&
+0.1947642E+00, 0.1953830E+00, 0.1965826E+00, 0.1987437E+00, 0.2014820E+00,&
+0.2068586E+00, 0.2125197E+00, 0.2160829E+00, 0.2171109E+00, 0.2178881E+00,&
+0.2192886E+00, 0.2200949E+00, 0.2212391E+00, 0.2227055E+00, 0.2247944E+00,&
+0.2262073E+00, 0.2270383E+00, 0.2273185E+00, 0.2274869E+00, 0.2276210E+00,&
+0.2280129E+00, 0.2287211E+00, 0.2293381E+00, 0.2296089E+00, 0.2305354E+00,&
+0.2332379E+00, 0.2370188E+00, 0.2373674E+00, 0.2314480E+00, 0.2291741E+00,&
+0.2288465E+00, 0.2286684E+00, 0.2287614E+00, 0.2291967E+00, 0.2298426E+00,&
+0.2302154E+00, 0.2292666E+00, 0.2275362E+00, 0.2266957E+00, 0.2263213E+00,&
+0.2263353E+00, 0.2267580E+00, 0.2272800E+00, 0.2271755E+00, 0.2260595E+00,&
+0.2243821E+00, 0.2219912E+00, 0.2188027E+00, 0.2151597E+00, 0.2114653E+00,&
+0.2080255E+00, 0.2051811E+00, 0.2036894E+00, 0.2041120E+00, 0.2059829E+00,&
+0.2086015E+00, 0.2113106E+00, 0.2139111E+00, 0.2163195E+00, 0.2184435E+00,&
+0.2201926E+00, 0.2214916E+00, 0.2222242E+00, 0.2220343E+00, 0.2204943E+00,&
+0.2171906E+00, 0.2121093E+00, 0.2061633E+00, 0.2002262E+00, 0.1948388E+00,&
+0.1903174E+00, 0.1868275E+00, 0.1843590E+00, 0.1829052E+00, 0.1825115E+00,&
+0.1831341E+00, 0.1842591E+00, 0.1855570E+00, 0.1867604E+00, 0.1875755E+00,&
+0.1876960E+00, 0.1869431E+00, 0.1856059E+00, 0.1840741E+00, 0.1827001E+00,&
+0.1818000E+00, 0.1811922E+00, 0.1788437E+00, 0.1727826E+00, 0.1624180E+00,&
+0.1487052E+00, 0.1334511E+00, 0.1185638E+00, 0.1049801E+00, 0.9298412E-01,&
+0.8257660E-01, 0.7379698E-01, 0.6696978E-01, 0.6208307E-01, 0.5897739E-01,&
+0.5756657E-01, 0.5784728E-01, 0.5956322E-01, 0.6253327E-01, 0.6660015E-01,&
+0.7143353E-01, 0.7647427E-01, 0.8148541E-01, 0.8635699E-01, 0.9099500E-01,&
+0.9533520E-01, 0.9935633E-01, 0.1030906E+00, 0.1066306E+00, 0.1101345E+00,&
+0.1138333E+00, 0.1178890E+00, 0.1218228E+00, 0.1247853E+00, 0.1257652E+00,&
+0.1238772E+00, 0.1203841E+00, 0.1208343E+00, 0.1242444E+00, 0.1276640E+00,&
+0.1273930E+00, 0.1213602E+00, 0.1130860E+00, 0.1058152E+00, 0.1011666E+00,&
+0.1002071E+00, 0.1039381E+00, 0.1120040E+00, 0.1237937E+00, 0.1375058E+00,&
+0.1474928E+00, 0.1449352E+00, 0.1295643E+00, 0.1090889E+00, 0.8941860E-01,&
+0.7284467E-01, 0.5983944E-01, 0.5022947E-01, 0.4366299E-01, 0.3977196E-01,&
+0.3822227E-01, 0.3867308E-01, 0.4026759E-01, 0.4166813E-01, 0.4168444E-01,&
+0.4022229E-01, 0.3904642E-01, 0.3841435E-01, 0.3817649E-01, 0.3823472E-01,&
+0.3855810E-01, 0.3919018E-01, 0.4018588E-01, 0.4157600E-01, 0.4335490E-01,&
+0.4545942E-01, 0.4776782E-01, 0.5018748E-01, 0.5264894E-01, 0.5509888E-01,&
+0.5750712E-01, 0.5986086E-01, 0.6212466E-01, 0.6426051E-01, 0.6623940E-01,&
+0.6804333E-01, 0.6966664E-01, 0.7111643E-01, 0.7241227E-01, 0.7358521E-01,&
+0.7467659E-01, 0.7558735E-01, 0.7576417E-01, 0.7514564E-01, 0.7388073E-01,&
+0.7214532E-01, 0.7011285E-01, 0.6793264E-01, 0.6572567E-01, 0.6358425E-01,&
+0.6157472E-01, 0.5972482E-01, 0.5798797E-01, 0.5631501E-01, 0.5467161E-01,&
+0.5303634E-01, 0.5140076E-01, 0.4977145E-01, 0.4816243E-01, 0.4659231E-01,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,&
+0.0000000E+00 /)
+
+
+!
+!--------------------------------------------------------------------------------
+!
+END MODULE 
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_cpl_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_cpl_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_cpl_mod.F90	(revision 3330)
@@ -0,0 +1,365 @@
+!
+! $Id$
+!
+MODULE ocean_cpl_mod
+!
+! This module is used both for the sub-surface ocean and sea-ice for the case of a 
+! coupled model configuration, ocean=couple. 
+!
+
+  IMPLICIT NONE
+  PRIVATE
+
+  PUBLIC :: ocean_cpl_init, ocean_cpl_noice, ocean_cpl_ice
+
+
+!****************************************************************************************
+!
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_cpl_init(dtime, rlon, rlat)
+!
+! Allocate fields for this module and initailize the module mod_cpl
+!
+    USE dimphy,           ONLY : klon
+    USE cpl_mod
+
+! Input arguments
+!*************************************************************************************
+    REAL, INTENT(IN)                  :: dtime
+    REAL, DIMENSION(klon), INTENT(IN) :: rlon, rlat
+
+! Local variables
+!*************************************************************************************
+    INTEGER              :: error
+    CHARACTER (len = 80) :: abort_message
+    CHARACTER (len = 20) :: modname = 'ocean_cpl_init'
+
+! Initialize module cpl_init
+    CALL cpl_init(dtime, rlon, rlat)
+    
+  END SUBROUTINE ocean_cpl_init
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_cpl_noice( &
+       swnet, lwnet, alb1, &
+       windsp, fder_old, &
+       itime, dtime, knon, knindex, &
+       p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, &
+       radsol, snow, agesno, &
+       qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+       tsurf_new, dflux_s, dflux_l)
+
+!
+! This subroutine treats the "open ocean", all grid points that are not entierly covered
+! by ice. The subroutine first receives fields from coupler, then some calculations at 
+! surface is done and finally it sends some fields to the coupler.
+!
+    USE dimphy,           ONLY : klon
+    USE cpl_mod
+    USE calcul_fluxs_mod
+    USE indice_sol_mod
+    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+    USE cpl_mod,             ONLY : gath2cpl
+
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+!    
+! Input arguments  
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: itime, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)     :: knindex
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)        :: swnet
+    REAL, DIMENSION(klon), INTENT(IN)        :: lwnet
+    REAL, DIMENSION(klon), INTENT(IN)        :: alb1   ! albedo in visible SW interval
+    REAL, DIMENSION(klon), INTENT(IN)        :: windsp
+    REAL, DIMENSION(klon), INTENT(IN)        :: fder_old
+    REAL, DIMENSION(klon), INTENT(IN)        :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)        :: cdragh, cdragq, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)        :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)        :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)        :: ps
+    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
+
+! In/Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: radsol
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: snow
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: agesno
+  
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
+  
+
+! Local variables
+!****************************************************************************************
+    INTEGER               :: i, j
+    INTEGER, DIMENSION(1) :: iloc
+    REAL, DIMENSION(klon) :: cal, beta, dif_grnd
+    REAL, DIMENSION(klon) :: fder_new
+    REAL, DIMENSION(klon) :: tsurf_cpl
+    REAL, DIMENSION(klon) :: u0_cpl, v0_cpl
+    REAL, DIMENSION(klon) :: u1_lay, v1_lay
+    LOGICAL               :: check=.FALSE.
+    REAL, DIMENSION(klon) :: sens_prec_liq, sens_prec_sol    
+    REAL, DIMENSION(klon) :: lat_prec_liq, lat_prec_sol    
+
+! End definitions
+!****************************************************************************************
+
+    IF (check) WRITE(*,*)' Entering ocean_cpl_noice'
+
+!****************************************************************************************
+! Receive sea-surface temperature(tsurf_cpl) from coupler
+!
+!****************************************************************************************
+    CALL cpl_receive_ocean_fields(knon, knindex, tsurf_cpl, u0_cpl, v0_cpl)
+
+!****************************************************************************************
+! Calculate fluxes at surface
+!
+!****************************************************************************************
+    cal = 0.
+    beta = 1.
+    dif_grnd = 0.
+    agesno(:) = 0.
+    sens_prec_liq = 0.; sens_prec_sol = 0.; lat_prec_liq = 0.; lat_prec_sol = 0.
+    
+
+    DO i = 1, knon
+       u1_lay(i) = u1(i) - u0_cpl(i)
+       v1_lay(i) = v1(i) - v0_cpl(i)
+    END DO
+
+    CALL calcul_fluxs(knon, is_oce, dtime, &
+         tsurf_cpl, p1lay, cal, beta, cdragh, cdragq, ps, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
+         sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+    do j = 1, knon
+      i = knindex(j)
+      sens_prec_liq_o(i,1) = sens_prec_liq(j)
+      sens_prec_sol_o(i,1) = sens_prec_sol(j)
+      lat_prec_liq_o(i,1) = lat_prec_liq(j)
+      lat_prec_sol_o(i,1) = lat_prec_sol(j)
+    enddo
+
+
+    
+! - Flux calculation at first modele level for U and V
+    CALL calcul_flux_wind(knon, dtime, &
+         u0_cpl, v0_cpl, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)  
+
+!****************************************************************************************
+! Calculate fder : flux derivative (sensible and latente)
+!
+!****************************************************************************************
+    fder_new(:) = fder_old(:) + dflux_s(:) + dflux_l(:)
+    
+    iloc = MAXLOC(fder_new(1:klon))
+    IF (check .AND. fder_new(iloc(1))> 0.) THEN
+       WRITE(*,*)'**** Debug fder****'
+       WRITE(*,*)'max fder(',iloc(1),') = ',fder_new(iloc(1))
+       WRITE(*,*)'fder_old, dflux_s, dflux_l',fder_old(iloc(1)), &
+            dflux_s(iloc(1)), dflux_l(iloc(1))
+    ENDIF
+
+!****************************************************************************************
+! Send and cumulate fields to the coupler
+!
+!****************************************************************************************
+
+    CALL cpl_send_ocean_fields(itime, knon, knindex, &
+         swnet, lwnet, fluxlat, fluxsens, &
+         precip_rain, precip_snow, evap, tsurf_new, fder_new, alb1, flux_u1, flux_v1, windsp&
+         ) 
+!         ,sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+    
+
+  END SUBROUTINE ocean_cpl_noice
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_cpl_ice( &
+       rlon, rlat, swnet, lwnet, alb1, &
+       fder_old, &
+       itime, dtime, knon, knindex, &
+       lafin, &
+       p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, pctsrf, &
+       radsol, snow, qsurf, &
+       alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+       tsurf_new, dflux_s, dflux_l)
+!
+! This subroutine treats the ocean where there is ice. The subroutine first receives 
+! fields from coupler, then some calculations at surface is done and finally sends 
+! some fields to the coupler.
+!    
+    USE dimphy,           ONLY : klon
+    USE cpl_mod
+    USE calcul_fluxs_mod
+    USE indice_sol_mod
+    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: itime, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)     :: knindex
+    LOGICAL, INTENT(IN)                      :: lafin
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)        :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)        :: swnet
+    REAL, DIMENSION(klon), INTENT(IN)        :: lwnet
+    REAL, DIMENSION(klon), INTENT(IN)        :: alb1   ! albedo in visible SW interval
+    REAL, DIMENSION(klon), INTENT(IN)        :: fder_old
+    REAL, DIMENSION(klon), INTENT(IN)        :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)        :: cdragh, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)        :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)        :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)        :: ps
+    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)  :: pctsrf
+
+! In/output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: radsol
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: snow
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new, alb2_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
+  
+
+! Local variables
+!****************************************************************************************
+    INTEGER                 :: i, j
+    INTEGER, DIMENSION(1)   :: iloc
+    LOGICAL                 :: check=.FALSE.
+    REAL, PARAMETER         :: t_grnd=271.35
+    REAL, DIMENSION(klon)   :: cal, beta, dif_grnd
+    REAL, DIMENSION(klon)   :: tsurf_cpl, fder_new
+    REAL, DIMENSION(klon)   :: alb_cpl
+    REAL, DIMENSION(klon)   :: u0, v0
+    REAL, DIMENSION(klon)   :: u1_lay, v1_lay
+    REAL, DIMENSION(klon) :: sens_prec_liq, sens_prec_sol    
+    REAL, DIMENSION(klon) :: lat_prec_liq, lat_prec_sol    
+
+! End definitions
+!****************************************************************************************
+    
+    IF (check) WRITE(*,*)'Entering surface_seaice, knon=',knon 
+
+    sens_prec_liq = 0.; sens_prec_sol = 0.; lat_prec_liq = 0.; lat_prec_sol = 0.
+
+!****************************************************************************************
+! Receive ocean temperature(tsurf_cpl) and albedo(alb_new) from coupler
+!
+!****************************************************************************************
+
+    CALL cpl_receive_seaice_fields(knon, knindex, &
+         tsurf_cpl, alb_cpl, u0, v0)
+
+    alb1_new(1:knon) = alb_cpl(1:knon)
+    alb2_new(1:knon) = alb_cpl(1:knon)    
+
+    
+!****************************************************************************************
+! Calculate fluxes at surface
+!
+!****************************************************************************************
+    cal = 0.
+    dif_grnd = 0.
+    beta = 1.0
+    
+    DO i = 1, knon
+       u1_lay(i) = u1(i) - u0(i)
+       v1_lay(i) = v1(i) - v0(i)
+    END DO
+
+    CALL calcul_fluxs(knon, is_sic, dtime, &
+         tsurf_cpl, p1lay, cal, beta, cdragh, cdragh, ps, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
+         sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+    do j = 1, knon
+      i = knindex(j)
+      sens_prec_liq_o(i,2) = sens_prec_liq(j)
+      sens_prec_sol_o(i,2) = sens_prec_sol(j)
+      lat_prec_liq_o(i,2) = lat_prec_liq(j)
+      lat_prec_sol_o(i,2) = lat_prec_sol(j)
+    enddo
+
+
+! - Flux calculation at first modele level for U and V
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)  
+
+!****************************************************************************************
+! Calculate fder : flux derivative (sensible and latente)
+!
+!****************************************************************************************
+    fder_new(:) = fder_old(:) + dflux_s(:) + dflux_l(:)
+    
+    iloc = MAXLOC(fder_new(1:klon))
+    IF (check .AND. fder_new(iloc(1))> 0.) THEN
+       WRITE(*,*)'**** Debug fder ****'
+       WRITE(*,*)'max fder(',iloc(1),') = ',fder_new(iloc(1))
+       WRITE(*,*)'fder_old, dflux_s, dflux_l',fder_old(iloc(1)), &
+            dflux_s(iloc(1)), dflux_l(iloc(1))
+    ENDIF
+
+!****************************************************************************************
+! Send and cumulate fields to the coupler
+!
+!****************************************************************************************
+
+    CALL cpl_send_seaice_fields(itime, dtime, knon, knindex, &
+       pctsrf, lafin, rlon, rlat, &
+       swnet, lwnet, fluxlat, fluxsens, &
+       precip_rain, precip_snow, evap, tsurf_new, fder_new, alb1, flux_u1, flux_v1 &
+       )
+!      ,sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+
+ 
+
+  END SUBROUTINE ocean_cpl_ice
+!  
+!****************************************************************************************
+!
+END MODULE ocean_cpl_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_forced_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_forced_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_forced_mod.F90	(revision 3330)
@@ -0,0 +1,338 @@
+!
+! $Id$
+!
+MODULE ocean_forced_mod
+!
+! This module is used for both the sub-surfaces ocean and sea-ice for the case of a 
+! forced ocean,  "ocean=force".
+!
+  IMPLICIT NONE
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_forced_noice( &
+       itime, dtime, jour, knon, knindex, &
+       p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, &
+       temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, &
+       radsol, snow, agesno, & 
+       qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+       tsurf_new, dflux_s, dflux_l)
+!
+! This subroutine treats the "open ocean", all grid points that are not entierly covered
+! by ice.
+! The routine receives data from climatologie file limit.nc and does some calculations at the 
+! surface. 
+!
+    USE dimphy
+    USE calcul_fluxs_mod
+    USE limit_read_mod
+    USE mod_grid_phy_lmdz
+    USE indice_sol_mod
+    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)     :: knindex
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)        :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)        :: cdragh, cdragq, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)        :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)        :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)        :: ps
+    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
+
+! In/Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: radsol
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: snow
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: agesno !? put to 0 in ocean
+  
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l
+
+! Local variables
+!****************************************************************************************
+    INTEGER                     :: i, j
+    REAL, DIMENSION(klon)       :: cal, beta, dif_grnd
+    REAL, DIMENSION(klon)       :: alb_neig, tsurf_lim, zx_sl
+    REAL, DIMENSION(klon)       :: u0, v0
+    REAL, DIMENSION(klon)       :: u1_lay, v1_lay
+    LOGICAL                     :: check=.FALSE.
+    REAL, DIMENSION(klon) :: sens_prec_liq, sens_prec_sol    
+    REAL, DIMENSION(klon) :: lat_prec_liq, lat_prec_sol    
+
+!****************************************************************************************
+! Start calculation
+!****************************************************************************************
+    IF (check) WRITE(*,*)' Entering ocean_forced_noice'
+    
+!****************************************************************************************
+! 1)    
+! Read sea-surface temperature from file limit.nc
+!
+!****************************************************************************************
+!--sb:
+!!jyg    if (knon.eq.1) then ! single-column model
+    if (klon_glo.eq.1) then ! single-column model
+      CALL read_tsurf1d(knon,tsurf_lim) ! new
+    else ! GCM
+      CALL limit_read_sst(knon,knindex,tsurf_lim)
+    endif ! knon
+!sb--
+
+!****************************************************************************************
+! 2)
+! Flux calculation
+!
+!****************************************************************************************
+! Set some variables for calcul_fluxs
+    cal = 0.
+    beta = 1.
+    dif_grnd = 0.
+    alb_neig(:) = 0.
+    agesno(:) = 0.
+    sens_prec_liq = 0.; sens_prec_sol = 0.; lat_prec_liq = 0.; lat_prec_sol = 0.
+
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    u1_lay(:) = u1(:) - u0(:)
+    v1_lay(:) = v1(:) - v0(:)
+
+! Calcul de tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l and qsurf
+    CALL calcul_fluxs(knon, is_oce, dtime, &
+         tsurf_lim, p1lay, cal, beta, cdragh, cdragq, ps, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
+         sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+
+    do j = 1, knon
+      i = knindex(j)
+      sens_prec_liq_o(i,1) = sens_prec_liq(j)
+      sens_prec_sol_o(i,1) = sens_prec_sol(j)
+      lat_prec_liq_o(i,1) = lat_prec_liq(j)
+      lat_prec_sol_o(i,1) = lat_prec_sol(j)
+    enddo
+
+
+! - Flux calculation at first modele level for U and V
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)  
+
+  END SUBROUTINE ocean_forced_noice
+!
+!***************************************************************************************
+!
+  SUBROUTINE ocean_forced_ice( &
+       itime, dtime, jour, knon, knindex, &
+       tsurf_in, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, &
+       radsol, snow, qsol, agesno, tsoil, &
+       qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+       tsurf_new, dflux_s, dflux_l)
+!
+! This subroutine treats the ocean where there is ice. 
+! The routine reads data from climatologie file and does flux calculations at the 
+! surface.
+!
+    USE dimphy
+    USE calcul_fluxs_mod
+    USE surface_data,     ONLY : calice, calsno, tau_gl
+    USE limit_read_mod
+    USE fonte_neige_mod,  ONLY : fonte_neige
+    USE indice_sol_mod
+    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+
+!    INCLUDE "indicesol.h"
+    INCLUDE "dimsoil.h"
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                  :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex
+    REAL, INTENT(IN)                     :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)    :: tsurf_in
+    REAL, DIMENSION(klon), INTENT(IN)    :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)    :: cdragh, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)    :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)    :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)    :: ps
+    REAL, DIMENSION(klon), INTENT(IN)    :: u1, v1, gustiness
+
+! In/Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: radsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: snow, qsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: agesno
+    REAL, DIMENSION(klon, nsoilmx), INTENT(INOUT) :: tsoil
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)            :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)            :: alb1_new  ! new albedo in visible SW interval
+    REAL, DIMENSION(klon), INTENT(OUT)            :: alb2_new  ! new albedo in near IR interval
+    REAL, DIMENSION(klon), INTENT(OUT)            :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)            :: flux_u1, flux_v1
+    REAL, DIMENSION(klon), INTENT(OUT)            :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)            :: dflux_s, dflux_l      
+
+! Local variables
+!****************************************************************************************
+    LOGICAL                     :: check=.FALSE.
+    INTEGER                     :: i, j
+    REAL                        :: zfra
+    REAL, PARAMETER             :: t_grnd=271.35
+    REAL, DIMENSION(klon)       :: cal, beta, dif_grnd, capsol
+    REAL, DIMENSION(klon)       :: alb_neig, tsurf_tmp
+    REAL, DIMENSION(klon)       :: soilcap, soilflux
+    REAL, DIMENSION(klon)       :: u0, v0
+    REAL, DIMENSION(klon)       :: u1_lay, v1_lay
+    REAL, DIMENSION(klon)       :: sens_prec_liq, sens_prec_sol    
+    REAL, DIMENSION(klon)       :: lat_prec_liq, lat_prec_sol    
+
+
+!****************************************************************************************
+! Start calculation
+!****************************************************************************************
+    IF (check) WRITE(*,*)'Entering surface_seaice, knon=',knon 
+
+!****************************************************************************************
+! 1) 
+! Flux calculation : tsurf_new, evap, fluxlat, fluxsens, flux_u1, flux_v1
+!                    dflux_s, dflux_l and qsurf
+!****************************************************************************************
+
+    tsurf_tmp(:) = tsurf_in(:)
+
+! calculate the parameters cal, beta, capsol and dif_grnd
+    CALL calbeta(dtime, is_sic, knon, snow, qsol, beta, capsol, dif_grnd)
+
+    
+    IF (soil_model) THEN 
+! update tsoil and calculate soilcap and soilflux
+       CALL soil(dtime, is_sic, knon, snow, tsurf_tmp, tsoil,soilcap, soilflux)
+       cal(1:knon) = RCPD / soilcap(1:knon)
+       radsol(1:knon) = radsol(1:knon)  + soilflux(1:knon)
+       dif_grnd = 1.0 / tau_gl
+    ELSE 
+       dif_grnd = 1.0 / tau_gl
+       cal = RCPD * calice
+       WHERE (snow > 0.0) cal = RCPD * calsno 
+    ENDIF
+
+    beta = 1.0
+    sens_prec_liq = 0.; sens_prec_sol = 0.; lat_prec_liq = 0.; lat_prec_sol = 0.
+
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    u1_lay(:) = u1(:) - u0(:)
+    v1_lay(:) = v1(:) - v0(:)
+    CALL calcul_fluxs(knon, is_sic, dtime, &
+         tsurf_tmp, p1lay, cal, beta, cdragh, cdragh, ps, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
+         sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol)
+    do j = 1, knon
+      i = knindex(j)
+      sens_prec_liq_o(i,2) = sens_prec_liq(j)
+      sens_prec_sol_o(i,2) = sens_prec_sol(j)
+      lat_prec_liq_o(i,2) = lat_prec_liq(j)
+      lat_prec_sol_o(i,2) = lat_prec_sol(j)
+    enddo
+
+! - Flux calculation at first modele level for U and V
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)  
+
+!****************************************************************************************
+! 2)
+! Calculations due to snow and runoff
+!
+!****************************************************************************************
+    CALL fonte_neige( knon, is_sic, knindex, dtime, &
+         tsurf_tmp, precip_rain, precip_snow, &
+         snow, qsol, tsurf_new, evap)
+    
+! Calculation of albedo at snow (alb_neig) and update the age of snow (agesno)
+! 
+    CALL albsno(klon, knon, dtime, agesno(:), alb_neig(:), precip_snow(:))  
+
+    WHERE (snow(1:knon) .LT. 0.0001) agesno(1:knon) = 0.
+
+    alb1_new(:) = 0.0
+    DO i=1, knon
+       zfra = MAX(0.0,MIN(1.0,snow(i)/(snow(i)+10.0)))
+       alb1_new(i) = alb_neig(i) * zfra +  0.6 * (1.0-zfra)
+    ENDDO
+
+    alb2_new(:) = alb1_new(:)
+
+  END SUBROUTINE ocean_forced_ice
+
+!************************************************************************
+! 1D case
+!************************************************************************
+  SUBROUTINE read_tsurf1d(knon,sst_out)
+
+! This subroutine specifies the surface temperature to be used in 1D simulations
+
+      USE dimphy, ONLY : klon
+
+      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
+      REAL, DIMENSION(klon), INTENT(OUT)   :: sst_out  ! tsurf used to force the single-column model
+
+       INTEGER :: i
+! COMMON defined in lmdz1d.F:
+       real ts_cur
+       common /sst_forcing/ts_cur
+
+       DO i = 1, knon
+        sst_out(i) = ts_cur
+       ENDDO
+
+      END SUBROUTINE read_tsurf1d
+
+!
+!************************************************************************
+!
+END MODULE ocean_forced_mod
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_slab_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_slab_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ocean_slab_mod.F90	(revision 3330)
@@ -0,0 +1,701 @@
+!
+MODULE ocean_slab_mod
+!
+! This module is used for both surface ocean and sea-ice when using the slab ocean,
+! "ocean=slab".
+!
+
+  USE dimphy
+  USE indice_sol_mod
+  USE surface_data
+
+  IMPLICIT NONE
+  PRIVATE
+  PUBLIC :: ocean_slab_init, ocean_slab_frac, ocean_slab_noice, ocean_slab_ice
+
+!****************************************************************************************
+! Global saved variables
+!****************************************************************************************
+
+  INTEGER, PRIVATE, SAVE                           :: cpl_pas
+  !$OMP THREADPRIVATE(cpl_pas)
+  REAL, PRIVATE, SAVE                              :: cyang
+  !$OMP THREADPRIVATE(cyang)
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE   :: slabh
+  !$OMP THREADPRIVATE(slabh)
+  REAL, ALLOCATABLE, DIMENSION(:,:), PUBLIC, SAVE   :: tslab
+  !$OMP THREADPRIVATE(tslab)
+  REAL, ALLOCATABLE, DIMENSION(:), PUBLIC, SAVE  :: fsic
+  !$OMP THREADPRIVATE(fsic)
+  REAL, ALLOCATABLE, DIMENSION(:), PUBLIC, SAVE  :: tice
+  !$OMP THREADPRIVATE(tice)
+  REAL, ALLOCATABLE, DIMENSION(:), PUBLIC, SAVE  :: seaice
+  !$OMP THREADPRIVATE(seaice)
+  REAL, ALLOCATABLE, DIMENSION(:), PUBLIC, SAVE  :: slab_bils
+  !$OMP THREADPRIVATE(slab_bils)
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE  :: bils_cum
+  !$OMP THREADPRIVATE(bils_cum)
+  REAL, ALLOCATABLE, DIMENSION(:), PUBLIC, SAVE  :: slab_bilg
+  !$OMP THREADPRIVATE(slab_bilg)
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE  :: bilg_cum
+  !$OMP THREADPRIVATE(bilg_cum)
+
+!****************************************************************************************
+! Parameters (could be read in def file: move to slab_init)
+!****************************************************************************************
+! snow and ice physical characteristics:
+    REAL, PARAMETER :: t_freeze=271.35 ! freezing sea water temp
+    REAL, PARAMETER :: t_melt=273.15   ! melting ice temp
+    REAL, PARAMETER :: sno_den=300. !mean snow density, kg/m3
+    REAL, PARAMETER :: ice_den=917.
+    REAL, PARAMETER :: sea_den=1025.
+    REAL, PARAMETER :: ice_cond=2.17*ice_den !conductivity
+    REAL, PARAMETER :: sno_cond=0.31*sno_den
+    REAL, PARAMETER :: ice_cap=2067.   ! specific heat capacity, snow and ice
+    REAL, PARAMETER :: ice_lat=334000. ! freeze /melt latent heat snow and ice
+
+! control of snow and ice cover & freeze / melt (heights converted to kg/m2)
+    REAL, PARAMETER :: snow_min=0.05*sno_den !critical snow height 5 cm
+    REAL, PARAMETER :: snow_wfact=0.4 ! max fraction of falling snow blown into ocean
+    REAL, PARAMETER :: ice_frac_min=0.001
+    REAL, PARAMETER :: ice_frac_max=1. ! less than 1. if min leads fraction 
+    REAL, PARAMETER :: h_ice_min=0.01*ice_den ! min ice thickness 
+    REAL, PARAMETER :: h_ice_thin=0.15*ice_den ! thin ice thickness 
+    ! below ice_thin, priority is melt lateral / grow height
+    ! ice_thin is also height of new ice
+    REAL, PARAMETER :: h_ice_thick=2.5*ice_den ! thin ice thickness 
+    ! above ice_thick, priority is melt height / grow lateral
+    REAL, PARAMETER :: h_ice_new=1.*ice_den ! max height of new open ocean ice 
+    REAL, PARAMETER :: h_ice_max=10.*ice_den ! max ice height 
+
+! albedo  and radiation parameters
+    REAL, PARAMETER :: alb_sno_min=0.55 !min snow albedo
+    REAL, PARAMETER :: alb_sno_del=0.3  !max snow albedo = min + del
+    REAL, PARAMETER :: alb_ice_dry=0.75 !dry thick ice
+    REAL, PARAMETER :: alb_ice_wet=0.66 !melting thick ice
+    REAL, PARAMETER :: pen_frac=0.3 !fraction of penetrating shortwave (no snow)
+    REAL, PARAMETER :: pen_ext=1.5 !extinction of penetrating shortwave (m-1)
+
+!****************************************************************************************
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_slab_init(dtime, pctsrf_rst)
+  !, seaice_rst etc
+
+    use IOIPSL
+
+    ! For ok_xxx vars (Ekman...)
+    INCLUDE "clesphys.h"
+
+    ! Input variables
+!****************************************************************************************
+    REAL, INTENT(IN)                         :: dtime
+! Variables read from restart file
+    REAL, DIMENSION(klon, nbsrf), INTENT(IN) :: pctsrf_rst
+
+! Local variables
+!****************************************************************************************
+    INTEGER                :: error
+    CHARACTER (len = 80)   :: abort_message
+    CHARACTER (len = 20)   :: modname = 'ocean_slab_intit'
+
+!****************************************************************************************
+! Allocate surface fraction read from restart file
+!****************************************************************************************
+    ALLOCATE(fsic(klon), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation tmp_pctsrf_slab'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    fsic(:)=0.
+    WHERE (1.-zmasq(:)>EPSFRA)
+        fsic(:) = pctsrf_rst(:,is_sic)/(1.-zmasq(:))
+    END WHERE
+
+!****************************************************************************************
+! Allocate saved variables
+!****************************************************************************************
+    ALLOCATE(tslab(klon,nslay), stat=error)
+       IF (error /= 0) CALL abort_physic &
+         (modname,'pb allocation tslab', 1)
+
+    ALLOCATE(slab_bils(klon), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation slab_bils'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    slab_bils(:) = 0.0   
+    ALLOCATE(bils_cum(klon), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation slab_bils_cum'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    bils_cum(:) = 0.0   
+
+    IF (version_ocean=='sicINT') THEN
+        ALLOCATE(slab_bilg(klon), stat = error)
+        IF (error /= 0) THEN
+           abort_message='Pb allocation slab_bilg'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+        slab_bilg(:) = 0.0   
+        ALLOCATE(bilg_cum(klon), stat = error)
+        IF (error /= 0) THEN
+           abort_message='Pb allocation slab_bilg_cum'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+        bilg_cum(:) = 0.0   
+        ALLOCATE(tice(klon), stat = error)
+        IF (error /= 0) THEN
+           abort_message='Pb allocation slab_tice'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+        ALLOCATE(seaice(klon), stat = error)
+        IF (error /= 0) THEN
+           abort_message='Pb allocation slab_seaice'
+           CALL abort_physic(modname,abort_message,1)
+        ENDIF
+    END IF
+
+!****************************************************************************************
+! Define some parameters
+!****************************************************************************************
+! Layer thickness
+    ALLOCATE(slabh(nslay), stat = error)
+    IF (error /= 0) THEN
+       abort_message='Pb allocation slabh'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+    slabh(1)=50.
+! cyang = 1/heat capacity of top layer (rho.c.H)
+    cyang=1/(slabh(1)*4.228e+06)
+
+! cpl_pas periode de couplage avec slab (update tslab, pctsrf)
+! pour un calcul à chaque pas de temps, cpl_pas=1
+    cpl_pas = NINT(86400./dtime * 1.0) ! une fois par jour
+    CALL getin('cpl_pas',cpl_pas)
+    print *,'cpl_pas',cpl_pas
+
+ END SUBROUTINE ocean_slab_init
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_slab_frac(itime, dtime, jour, pctsrf_chg, is_modified)
+
+    USE limit_read_mod
+
+!    INCLUDE "clesphys.h"
+
+! Arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                        :: itime   ! numero du pas de temps courant
+    INTEGER, INTENT(IN)                        :: jour    ! jour a lire dans l'annee
+    REAL   , INTENT(IN)                        :: dtime   ! pas de temps de la physique (en s)
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: pctsrf_chg  ! sub-surface fraction
+    LOGICAL, INTENT(OUT)                       :: is_modified ! true if pctsrf is modified at this time step
+
+! Local variables
+!****************************************************************************************
+
+    IF (version_ocean == 'sicOBS'.OR. version_ocean == 'sicNO') THEN   
+       CALL limit_read_frac(itime, dtime, jour, pctsrf_chg, is_modified)
+    ELSE
+       pctsrf_chg(:,is_oce)=(1.-fsic(:))*(1.-zmasq(:))
+       pctsrf_chg(:,is_sic)=fsic(:)*(1.-zmasq(:))
+       is_modified=.TRUE.
+    END IF
+
+  END SUBROUTINE ocean_slab_frac
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_slab_noice( & 
+       itime, dtime, jour, knon, knindex, &
+       p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, tsurf_in, &
+       radsol, snow, &
+       qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+       tsurf_new, dflux_s, dflux_l, qflux)
+    
+    USE calcul_fluxs_mod
+
+    INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                  :: itime
+    INTEGER, INTENT(IN)                  :: jour
+    INTEGER, INTENT(IN)                  :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex
+    REAL, INTENT(IN)                     :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)    :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)    :: cdragh, cdragq, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)    :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)    :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)    :: ps
+    REAL, DIMENSION(klon), INTENT(IN)    :: u1, v1, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)    :: tsurf_in
+    REAL, DIMENSION(klon), INTENT(INOUT) :: radsol
+
+! In/Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT) :: snow
+    
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)   :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)   :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)   :: flux_u1, flux_v1
+    REAL, DIMENSION(klon), INTENT(OUT)   :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)   :: dflux_s, dflux_l      
+    REAL, DIMENSION(klon), INTENT(OUT)   :: qflux
+
+! Local variables
+!****************************************************************************************
+    INTEGER               :: i,ki
+    ! surface fluxes
+    REAL, DIMENSION(klon) :: cal, beta, dif_grnd
+    ! flux correction
+    REAL, DIMENSION(klon) :: diff_sst, diff_siv, lmt_bils
+    ! surface wind stress
+    REAL, DIMENSION(klon) :: u0, v0
+    REAL, DIMENSION(klon) :: u1_lay, v1_lay
+    ! ice creation
+    REAL                  :: e_freeze, h_new, dfsic
+
+!****************************************************************************************
+! 1) Flux calculation
+!
+!****************************************************************************************
+    cal(:)      = 0.
+    beta(:)     = 1.
+    dif_grnd(:) = 0.
+    
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    u1_lay(:) = u1(:) - u0(:)
+    v1_lay(:) = v1(:) - v0(:)
+
+    CALL calcul_fluxs(knon, is_oce, dtime, &
+         tsurf_in, p1lay, cal, beta, cdragh, cdragq, ps, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
+
+! - Flux calculation at first modele level for U and V
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)  
+
+! Accumulate total fluxes locally
+    slab_bils(:)=0.
+    DO i=1,knon
+        ki=knindex(i)
+        slab_bils(ki)=(1.-fsic(ki))*(fluxlat(i)+fluxsens(i)+radsol(i) &
+                      -precip_snow(i)*ice_lat*(1.+snow_wfact*fsic(ki)))
+        bils_cum(ki)=bils_cum(ki)+slab_bils(ki)
+! Also taux, tauy, saved vars...
+    END DO
+
+!****************************************************************************************
+! 2) Get global variables lmt_bils and diff_sst from file limit_slab.nc
+!
+!****************************************************************************************
+    lmt_bils(:)=0.
+    CALL limit_slab(itime, dtime, jour, lmt_bils, diff_sst, diff_siv) ! global pour un processus
+    ! lmt_bils and diff_sst,siv saved by limit_slab
+    qflux(:)=lmt_bils(:)+diff_sst(:)/cyang/86400.-diff_siv(:)*ice_den*ice_lat/86400.
+    ! qflux = total QFlux correction (in W/m2)
+
+!****************************************************************************************
+! 3) Recalculate new temperature
+!
+!***********************************************o*****************************************
+    tsurf_new=tsurf_in
+    IF (MOD(itime,cpl_pas).EQ.0) THEN ! time to update tslab & fraction
+        ! Compute transport
+        ! Add read QFlux and SST tendency
+        tslab(:,1)=tslab(:,1)+qflux(:)*cyang*dtime*cpl_pas 
+        ! Add cumulated surface fluxes
+        tslab(:,1)=tslab(:,1)+bils_cum(:)*cyang*dtime
+        ! Update surface temperature
+        SELECT CASE(version_ocean)
+        CASE('sicNO')
+            DO i=1,knon
+                ki=knindex(i)
+                tsurf_new(i)=tslab(ki,1)
+            END DO
+        CASE('sicOBS') ! check for sea ice or tslab below freezing
+            DO i=1,knon
+                ki=knindex(i)
+                IF ((tslab(ki,1).LT.t_freeze).OR.(fsic(ki).GT.epsfra)) THEN
+                    tslab(ki,1)=t_freeze
+                END IF
+                tsurf_new(i)=tslab(ki,1)
+            END DO
+        CASE('sicINT')
+            DO i=1,knon
+                ki=knindex(i)
+                IF (fsic(ki).LT.epsfra) THEN ! Free of ice
+                    IF (tslab(ki,1).LT.t_freeze) THEN ! create new ice
+                        ! quantity of new ice formed
+                        e_freeze=(t_freeze-tslab(ki,1))/cyang/ice_lat
+                        ! new ice
+                        tice(ki)=t_freeze
+                        fsic(ki)=MIN(ice_frac_max,e_freeze/h_ice_thin)
+                        IF (fsic(ki).GT.ice_frac_min) THEN
+                            seaice(ki)=MIN(e_freeze/fsic(ki),h_ice_max)
+                            tslab(ki,1)=t_freeze
+                        ELSE
+                            fsic(ki)=0.
+                        END IF
+                        tsurf_new(i)=t_freeze
+                    ELSE
+                        tsurf_new(i)=tslab(ki,1)
+                    END IF 
+                ELSE ! ice present
+                    tsurf_new(i)=t_freeze
+                    IF (tslab(ki,1).LT.t_freeze) THEN ! create new ice
+                        ! quantity of new ice formed over open ocean
+                        e_freeze=(t_freeze-tslab(ki,1))/cyang*(1.-fsic(ki)) &
+                                 /(ice_lat+ice_cap/2.*(t_freeze-tice(ki)))
+                        ! new ice height and fraction
+                        h_new=MIN(h_ice_new,seaice(ki)) ! max new height ice_new
+                        dfsic=MIN(ice_frac_max-fsic(ki),e_freeze/h_new)
+                        h_new=MIN(e_freeze/dfsic,h_ice_max)
+                        ! update tslab to freezing over open ocean only
+                        tslab(ki,1)=tslab(ki,1)*fsic(ki)+t_freeze*(1.-fsic(ki))
+                        ! update sea ice
+                        seaice(ki)=(h_new*dfsic+seaice(ki)*fsic(ki)) &
+                                   /(dfsic+fsic(ki))
+                        fsic(ki)=fsic(ki)+dfsic
+                        ! update snow?
+                    END IF !freezing
+                END IF ! sea ice present
+            END DO
+        END SELECT
+        bils_cum(:)=0.0! clear cumulated fluxes
+    END IF ! coupling time
+  END SUBROUTINE ocean_slab_noice
+!
+!****************************************************************************************
+
+  SUBROUTINE ocean_slab_ice(   &
+       itime, dtime, jour, knon, knindex, &
+       tsurf_in, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, &
+       radsol, snow, qsurf, qsol, agesno, &
+       alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+       tsurf_new, dflux_s, dflux_l, swnet)
+
+   USE calcul_fluxs_mod
+
+   INCLUDE "YOMCST.h"
+   INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                  :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex
+    REAL, INTENT(IN)                     :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)    :: tsurf_in
+    REAL, DIMENSION(klon), INTENT(IN)    :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)    :: cdragh, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)    :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)    :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)    :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)    :: ps
+    REAL, DIMENSION(klon), INTENT(IN)    :: u1, v1, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)    :: swnet
+
+! In/Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: snow, qsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: agesno
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: radsol
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)            :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)            :: alb1_new  ! new albedo in visible SW interval
+    REAL, DIMENSION(klon), INTENT(OUT)            :: alb2_new  ! new albedo in near IR interval
+    REAL, DIMENSION(klon), INTENT(OUT)            :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)            :: flux_u1, flux_v1
+    REAL, DIMENSION(klon), INTENT(OUT)            :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)            :: dflux_s, dflux_l
+
+! Local variables
+!****************************************************************************************
+    INTEGER               :: i,ki
+    REAL, DIMENSION(klon) :: cal, beta, dif_grnd
+    REAL, DIMENSION(klon) :: u0, v0
+    REAL, DIMENSION(klon) :: u1_lay, v1_lay
+    ! intermediate heat fluxes:
+    REAL                  :: f_cond, f_swpen
+    ! for snow/ice albedo:
+    REAL                  :: alb_snow, alb_ice, alb_pond
+    REAL                  :: frac_snow, frac_ice, frac_pond
+    ! for ice melt / freeze
+    REAL                  :: e_melt, snow_evap, h_test
+    ! dhsic, dfsic change in ice mass, fraction.
+    REAL                  :: dhsic, dfsic, frac_mf
+
+!****************************************************************************************
+! 1) Flux calculation
+!****************************************************************************************
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    u1_lay(:) = u1(:) - u0(:)
+    v1_lay(:) = v1(:) - v0(:)
+
+! set beta, cal, compute conduction fluxes inside ice/snow 
+    slab_bilg(:)=0.
+    dif_grnd(:)=0.
+    beta(:) = 1.
+    DO i=1,knon
+    ki=knindex(i)
+        IF (snow(i).GT.snow_min) THEN
+            ! snow-layer heat capacity
+            cal(i)=2.*RCPD/(snow(i)*ice_cap)
+            ! snow conductive flux
+            f_cond=sno_cond*(tice(ki)-tsurf_in(i))/snow(i)
+            ! all shortwave flux absorbed
+            f_swpen=0.
+            ! bottom flux (ice conduction)
+            slab_bilg(ki)=ice_cond*(tice(ki)-t_freeze)/seaice(ki)
+            ! update ice temperature
+            tice(ki)=tice(ki)-2./ice_cap/(snow(i)+seaice(ki)) &
+                     *(slab_bilg(ki)+f_cond)*dtime
+       ELSE ! bare ice
+            ! ice-layer heat capacity
+            cal(i)=2.*RCPD/(seaice(ki)*ice_cap)
+            ! conductive flux
+            f_cond=ice_cond*(t_freeze-tice(ki))/seaice(ki)
+            ! penetrative shortwave flux...
+            f_swpen=swnet(i)*pen_frac*exp(-pen_ext*seaice(ki)/ice_den)
+            slab_bilg(ki)=f_swpen-f_cond
+        END IF
+        radsol(i)=radsol(i)+f_cond-f_swpen
+    END DO
+    ! weight fluxes to ocean by sea ice fraction
+    slab_bilg(:)=slab_bilg(:)*fsic(:)
+
+! calcul_fluxs (sens, lat etc)
+    CALL calcul_fluxs(knon, is_sic, dtime, &
+        tsurf_in, p1lay, cal, beta, cdragh, cdragh, ps, &
+        precip_rain, precip_snow, snow, qsurf,  &
+        radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+        f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+        tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
+    DO i=1,knon 
+        IF (snow(i).LT.snow_min) tice(knindex(i))=tsurf_new(i)
+    END DO
+
+! calcul_flux_wind
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)
+
+!****************************************************************************************
+! 2) Update snow and ice surface
+!****************************************************************************************
+! snow precip
+    DO i=1,knon
+        ki=knindex(i)
+        IF (precip_snow(i) > 0.) THEN
+            snow(i) = snow(i)+precip_snow(i)*dtime*(1.-snow_wfact*(1.-fsic(ki)))
+        END IF
+! snow and ice sublimation
+        IF (evap(i) > 0.) THEN 
+           snow_evap = MIN (snow(i) / dtime, evap(i))
+           snow(i) = snow(i) - snow_evap * dtime
+           snow(i) = MAX(0.0, snow(i))
+           seaice(ki) = MAX(0.0,seaice(ki)-(evap(i)-snow_evap)*dtime)
+        ENDIF
+! Melt / Freeze from above if Tsurf>0
+        IF (tsurf_new(i).GT.t_melt) THEN
+            ! energy available for melting snow (in kg/m2 of snow)
+            e_melt = MIN(MAX(snow(i)*(tsurf_new(i)-t_melt)*ice_cap/2. &
+               /(ice_lat+ice_cap/2.*(t_melt-tice(ki))),0.0),snow(i))
+            ! remove snow
+            IF (snow(i).GT.e_melt) THEN
+                snow(i)=snow(i)-e_melt
+                tsurf_new(i)=t_melt
+            ELSE ! all snow is melted
+                ! add remaining heat flux to ice
+                e_melt=e_melt-snow(i)
+                tice(ki)=tice(ki)+e_melt*ice_lat*2./(ice_cap*seaice(ki))
+                tsurf_new(i)=tice(ki)
+            END IF
+        END IF
+! melt ice from above if Tice>0
+        IF (tice(ki).GT.t_melt) THEN
+            ! quantity of ice melted (kg/m2)
+            e_melt=MAX(seaice(ki)*(tice(ki)-t_melt)*ice_cap/2. & 
+             /(ice_lat+ice_cap/2.*(t_melt-t_freeze)),0.0)
+            ! melt from above, height only
+            dhsic=MIN(seaice(ki)-h_ice_min,e_melt)
+            e_melt=e_melt-dhsic
+            IF (e_melt.GT.0) THEN
+            ! lateral melt if ice too thin
+            dfsic=MAX(fsic(ki)-ice_frac_min,e_melt/h_ice_min*fsic(ki))
+            ! if all melted add remaining heat to ocean
+            e_melt=MAX(0.,e_melt*fsic(ki)-dfsic*h_ice_min)
+            slab_bilg(ki)=slab_bilg(ki)+ e_melt*ice_lat/dtime
+            ! update height and fraction
+            fsic(ki)=fsic(ki)-dfsic
+            END IF
+            seaice(ki)=seaice(ki)-dhsic
+            ! surface temperature at melting point
+            tice(ki)=t_melt
+            tsurf_new(i)=t_melt
+        END IF
+        ! convert snow to ice if below floating line
+        h_test=(seaice(ki)+snow(i))*ice_den-seaice(ki)*sea_den
+        IF (h_test.GT.0.) THEN !snow under water
+            ! extra snow converted to ice (with added frozen sea water)
+            dhsic=h_test/(sea_den-ice_den+sno_den)
+            seaice(ki)=seaice(ki)+dhsic
+            snow(i)=snow(i)-dhsic*sno_den/ice_den
+            ! available energy (freeze sea water + bring to tice)
+            e_melt=dhsic*(1.-sno_den/ice_den)*(ice_lat+ &
+                   ice_cap/2.*(t_freeze-tice(ki)))
+            ! update ice temperature
+            tice(ki)=tice(ki)+2.*e_melt/ice_cap/(snow(i)+seaice(ki))
+        END IF
+    END DO
+
+! New albedo
+    DO i=1,knon
+        ki=knindex(i)
+       ! snow albedo: update snow age
+        IF (snow(i).GT.0.0001) THEN
+             agesno(i)=(agesno(i) + (1.-agesno(i)/50.)*dtime/86400.)&
+                         * EXP(-1.*MAX(0.0,precip_snow(i))*dtime/5.)
+        ELSE
+            agesno(i)=0.0
+        END IF
+        ! snow albedo
+        alb_snow=alb_sno_min+alb_sno_del*EXP(-agesno(i)/50.)
+        ! ice albedo (varies with ice tkickness and temp)
+        alb_ice=MAX(0.0,0.13*LOG(100.*seaice(ki)/ice_den)+0.1)
+        IF (tice(ki).GT.t_freeze-0.01) THEN
+            alb_ice=MIN(alb_ice,alb_ice_wet)
+        ELSE
+            alb_ice=MIN(alb_ice,alb_ice_dry)
+        END IF
+        ! pond albedo
+        alb_pond=0.36-0.1*(2.0+MIN(0.0,MAX(tice(ki)-t_melt,-2.0)))
+        ! pond fraction
+        frac_pond=0.2*(2.0+MIN(0.0,MAX(tice(ki)-t_melt,-2.0)))
+        ! snow fraction
+        frac_snow=MAX(0.0,MIN(1.0-frac_pond,snow(i)/snow_min))
+        ! ice fraction
+        frac_ice=MAX(0.0,1.-frac_pond-frac_snow)
+        ! total albedo
+        alb1_new(i)=alb_snow*frac_snow+alb_ice*frac_ice+alb_pond*frac_pond
+    END DO
+    alb2_new(:) = alb1_new(:)
+
+!****************************************************************************************
+! 3) Recalculate new ocean temperature (add fluxes below ice)
+!    Melt / freeze from below
+!***********************************************o*****************************************
+    !cumul fluxes
+    bilg_cum(:)=bilg_cum(:)+slab_bilg(:)
+    IF (MOD(itime,cpl_pas).EQ.0) THEN ! time to update tslab & fraction
+        ! Add cumulated surface fluxes
+        tslab(:,1)=tslab(:,1)+bilg_cum(:)*cyang*dtime
+        DO i=1,knon
+            ki=knindex(i)
+            ! split lateral/top melt-freeze
+            frac_mf=MIN(1.,MAX(0.,(seaice(ki)-h_ice_thin)/(h_ice_thick-h_ice_thin)))
+            IF (tslab(ki,1).LE.t_freeze) THEN 
+               ! ****** Form new ice from below *******
+               ! quantity of new ice
+                e_melt=(t_freeze-tslab(ki,1))/cyang & 
+                       /(ice_lat+ice_cap/2.*(t_freeze-tice(ki)))
+               ! first increase height to h_thin
+               dhsic=MAX(0.,MIN(h_ice_thin-seaice(ki),e_melt/fsic(ki)))
+               seaice(ki)=dhsic+seaice(ki)
+               e_melt=e_melt-fsic(ki)*dhsic
+               IF (e_melt.GT.0.) THEN
+               ! frac_mf fraction used for lateral increase
+               dfsic=MIN(ice_frac_max-fsic(ki),e_melt*frac_mf/seaice(ki))
+               fsic(ki)=fsic(ki)+dfsic
+               e_melt=e_melt-dfsic*seaice(ki)
+               ! rest used to increase height
+               seaice(ki)=MIN(h_ice_max,seaice(ki)+e_melt/fsic(ki))
+               END IF
+               tslab(ki,1)=t_freeze
+           ELSE ! slab temperature above freezing
+               ! ****** melt ice from below *******
+               ! quantity of melted ice
+               e_melt=(tslab(ki,1)-t_freeze)/cyang & 
+                       /(ice_lat+ice_cap/2.*(tice(ki)-t_freeze))
+               ! first decrease height to h_thick
+               dhsic=MAX(0.,MIN(seaice(ki)-h_ice_thick,e_melt/fsic(ki)))
+               seaice(ki)=seaice(ki)-dhsic
+               e_melt=e_melt-fsic(ki)*dhsic
+               IF (e_melt.GT.0) THEN
+               ! frac_mf fraction used for height decrease
+               dhsic=MAX(0.,MIN(seaice(ki)-h_ice_min,e_melt*frac_mf/fsic(ki)))
+               seaice(ki)=seaice(ki)-dhsic
+               e_melt=e_melt-fsic(ki)*dhsic
+               ! rest used to decrease fraction (up to 0!)
+               dfsic=MIN(fsic(ki),e_melt/seaice(ki))
+               ! keep remaining in ocean
+               e_melt=e_melt-dfsic*seaice(ki)
+               END IF
+               tslab(ki,1)=t_freeze+e_melt*ice_lat*cyang
+               fsic(ki)=fsic(ki)-dfsic
+           END IF
+        END DO
+        bilg_cum(:)=0.
+    END IF ! coupling time
+    
+    !tests fraction glace
+    WHERE (fsic.LT.ice_frac_min)
+        tslab(:,1)=tslab(:,1)-fsic*seaice*ice_lat*cyang
+        tice=t_melt
+        fsic=0.
+        seaice=0.
+    END WHERE
+
+  END SUBROUTINE ocean_slab_ice
+!
+!****************************************************************************************
+!
+  SUBROUTINE ocean_slab_final
+
+!****************************************************************************************
+! Deallocate module variables
+!****************************************************************************************
+    IF (ALLOCATED(tslab)) DEALLOCATE(tslab)
+    IF (ALLOCATED(fsic)) DEALLOCATE(fsic)
+    IF (ALLOCATED(slab_bils)) DEALLOCATE(slab_bils)
+    IF (ALLOCATED(slab_bilg)) DEALLOCATE(slab_bilg)
+    IF (ALLOCATED(bilg_cum)) DEALLOCATE(bilg_cum)
+    IF (ALLOCATED(bils_cum)) DEALLOCATE(bils_cum)
+    IF (ALLOCATED(tslab)) DEALLOCATE(tslab)
+
+  END SUBROUTINE ocean_slab_final
+
+END MODULE ocean_slab_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/open_climoz_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/open_climoz_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/open_climoz_m.F90	(revision 3330)
@@ -0,0 +1,73 @@
+! $Id$
+module open_climoz_m
+
+  implicit none
+
+contains
+
+  subroutine open_climoz(ncid, press_in_edg)
+
+    ! This procedure should be called once per "gcm" run, by a single
+    ! thread of each MPI process.
+    ! The root MPI process opens "climoz_LMDZ.nc", reads the pressure
+    ! levels and broadcasts them to the other processes.
+
+    ! We assume that, in "climoz_LMDZ.nc", the pressure levels are in hPa
+    ! and in strictly ascending order.
+
+    use netcdf95, only: nf95_open, nf95_close, nf95_gw_var, nf95_inq_varid
+    use netcdf, only: nf90_nowrite
+
+    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    use mod_phys_lmdz_mpi_transfert, only: bcast_mpi ! broadcast
+
+    integer, intent(out):: ncid ! of "climoz_LMDZ.nc", OpenMP shared
+
+    real, pointer:: press_in_edg(:)
+    ! edges of pressure intervals for ozone climatology, in Pa, in strictly
+    ! ascending order, OpenMP shared
+
+    ! Variables local to the procedure:
+
+    real, pointer:: plev(:)
+    ! (pressure levels for ozone climatology, converted to Pa, in strictly
+    ! ascending order)
+
+    integer varid ! for NetCDF
+    integer n_plev ! number of pressure levels in the input data
+    integer k
+
+    !---------------------------------------
+
+    print *, "Call sequence information: open_climoz"
+
+    if (is_mpi_root) then
+       call nf95_open("climoz_LMDZ.nc", nf90_nowrite, ncid)
+
+       call nf95_inq_varid(ncid, "plev", varid)
+       call nf95_gw_var(ncid, varid, plev)
+       ! Convert from hPa to Pa because "paprs" and "pplay" are in Pa:
+       plev = plev * 100.
+       n_plev = size(plev)
+    end if
+
+    call bcast_mpi(n_plev)
+    if (.not. is_mpi_root) allocate(plev(n_plev))
+    call bcast_mpi(plev)
+    
+    ! Compute edges of pressure intervals:
+    allocate(press_in_edg(n_plev + 1))
+    if (is_mpi_root) then
+       press_in_edg(1) = 0.
+       ! We choose edges halfway in logarithm:
+       forall (k = 2:n_plev) press_in_edg(k) = sqrt(plev(k - 1) * plev(k))
+       press_in_edg(n_plev + 1) = huge(0.)
+       ! (infinity, but any value guaranteed to be greater than the
+       ! surface pressure would do)
+    end if
+    call bcast_mpi(press_in_edg)
+    deallocate(plev) ! pointer
+
+  end subroutine open_climoz
+
+end module open_climoz_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orbite.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orbite.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orbite.F90	(revision 3330)
@@ -0,0 +1,294 @@
+
+! $Header$
+
+! ======================================================================
+SUBROUTINE orbite(xjour, longi, dist)
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) (adapte du GCM du LMD) date: 19930818
+  ! Objet: pour un jour donne, calculer la longitude vraie de la terre
+  ! (par rapport au point vernal-21 mars) dans son orbite solaire
+  ! calculer aussi la distance terre-soleil (unite astronomique)
+  ! ======================================================================
+  ! Arguments:
+  ! xjour--INPUT--R- jour de l'annee a compter du 1er janvier
+  ! longi--OUTPUT-R- longitude vraie en degres par rapport au point
+  ! vernal (21 mars) en degres
+  ! dist---OUTPUT-R- distance terre-soleil (par rapport a la moyenne)
+  REAL xjour, longi, dist
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! -- Variables dynamiques locales
+  REAL pir, xl, xllp, xee, xse, xlam, dlamm, anm, ranm, anv, ranv
+
+  pir = 4.0*atan(1.0)/180.0
+  xl = r_peri + 180.0
+  xllp = xl*pir
+  xee = r_ecc*r_ecc
+  xse = sqrt(1.0-xee)
+  xlam = (r_ecc/2.0+r_ecc*xee/8.0)*(1.0+xse)*sin(xllp) - &
+    xee/4.0*(0.5+xse)*sin(2.0*xllp) + r_ecc*xee/8.0*(1.0/3.0+xse)*sin(3.0* &
+    xllp)
+  xlam = 2.0*xlam/pir
+  dlamm = xlam + (xjour-81.0)
+  anm = dlamm - xl
+  ranm = anm*pir
+  xee = xee*r_ecc
+  ranv = ranm + (2.0*r_ecc-xee/4.0)*sin(ranm) + 5.0/4.0*r_ecc*r_ecc*sin(2.0* &
+    ranm) + 13.0/12.0*xee*sin(3.0*ranm)
+
+  anv = ranv/pir
+  longi = anv + xl
+
+  dist = (1-r_ecc*r_ecc)/(1+r_ecc*cos(pir*(longi-(r_peri+180.0))))
+  RETURN
+END SUBROUTINE orbite
+! ======================================================================
+SUBROUTINE angle(longi, lati, frac, muzero)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: Calculer la duree d'ensoleillement pour un jour et la hauteur
+  ! du soleil (cosinus de l'angle zinithal) moyenne sur la journee
+  ! ======================================================================
+  ! Arguments:
+  ! longi----INPUT-R- la longitude vraie de la terre dans son plan
+  ! solaire a partir de l'equinoxe de printemps (degre)
+  ! lati-----INPUT-R- la latitude d'un point sur la terre (degre)
+  ! frac-----OUTPUT-R la duree d'ensoleillement dans la journee divisee
+  ! par 24 heures (unite en fraction de 0 a 1)
+  ! muzero---OUTPUT-R la moyenne du cosinus de l'angle zinithal sur
+  ! la journee (0 a 1)
+  ! ======================================================================
+  REAL longi
+  REAL lati(klon), frac(klon), muzero(klon)
+  include "YOMCST.h"
+  REAL lat, omega, lon_sun, lat_sun
+  REAL pi_local, incl
+  INTEGER i
+
+  pi_local = 4.0*atan(1.0)
+  incl = r_incl*pi_local/180.
+
+  lon_sun = longi*pi_local/180.0
+  lat_sun = asin(sin(lon_sun)*sin(incl))
+
+  DO i = 1, klon
+    lat = lati(i)*pi_local/180.0
+
+    IF (lat>=(pi_local/2.+lat_sun) .OR. lat<=(-pi_local/2.+lat_sun)) THEN
+      omega = 0.0 ! nuit polaire
+    ELSE IF (lat>=(pi_local/2.-lat_sun) .OR. lat<=(-pi_local/2.-lat_sun)) &
+        THEN
+      omega = pi_local ! journee polaire
+    ELSE
+      omega = -tan(lat)*tan(lat_sun)
+      omega = acos(omega)
+    END IF
+
+    frac(i) = omega/pi_local
+
+    IF (omega>0.0) THEN
+      muzero(i) = sin(lat)*sin(lat_sun) + cos(lat)*cos(lat_sun)*sin(omega)/ &
+        omega
+    ELSE
+      muzero(i) = 0.0
+    END IF
+  END DO
+
+  RETURN
+END SUBROUTINE angle
+! ====================================================================
+SUBROUTINE zenang(longi, gmtime, pdtrad1, pdtrad2, lat, long, pmu0, frac)
+  USE dimphy
+  IMPLICIT NONE
+  ! =============================================================
+  ! Auteur : O. Boucher (LMD/CNRS)
+  ! d'apres les routines zenith et angle de Z.X. Li
+  ! Objet  : calculer les valeurs moyennes du cos de l'angle zenithal
+  ! et l'ensoleillement moyen entre gmtime1 et gmtime2
+  ! connaissant la declinaison, la latitude et la longitude.
+  ! Rque   : Different de la routine angle en ce sens que zenang
+  ! fournit des moyennes de pmu0 et non des valeurs
+  ! instantanees, du coup frac prend toutes les valeurs
+  ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et 
+  ! gmtime+pdtrad2 avec pdtrad1 et pdtrad2 exprimes en secondes.
+  ! Date   : premiere version le 13 decembre 1994
+  ! revu pour  GCM  le 30 septembre 1996
+  ! revu le 3 septembre 2015 pour les bornes de l'integrale
+  ! ===============================================================
+  ! longi : la longitude vraie de la terre dans son plan
+  ! solaire a partir de l'equinoxe de printemps (degre)
+  ! gmtime : temps universel en fraction de jour
+  ! pdtrad1 : borne inferieure du pas de temps du rayonnement (secondes)
+  ! pdtrad2 : borne inferieure du pas de temps du rayonnement (secondes)
+  ! pdtrad2-pdtrad1 correspond a pdtrad, le pas de temps du rayonnement (secondes)
+  ! lat------INPUT : latitude en degres
+  ! long-----INPUT : longitude en degres
+  ! pmu0-----OUTPUT: angle zenithal moyen entre gmtime+pdtrad1 et gmtime+pdtrad2
+  ! frac-----OUTPUT: ensoleillement moyen entre gmtime+pdtrad1 et gmtime+pdtrad2
+  ! ================================================================
+  include "YOMCST.h"
+  ! ================================================================
+  REAL, INTENT (IN) :: longi, gmtime, pdtrad1, pdtrad2
+  REAL lat(klon), long(klon), pmu0(klon), frac(klon)
+  ! ================================================================
+  INTEGER i
+  REAL gmtime1, gmtime2
+  REAL pi_local, deux_pi_local, incl
+  REAL omega1, omega2, omega
+  ! omega1, omega2 : temps 1 et 2 exprime en radian avec 0 a midi.
+  ! omega : heure en radian du coucher de soleil
+  ! -omega est donc l'heure en radian de lever du soleil
+  REAL omegadeb, omegafin
+  REAL zfrac1, zfrac2, z1_mu, z2_mu
+  REAL lat_sun ! declinaison en radian
+  REAL lon_sun ! longitude solaire en radian
+  REAL latr    ! latitude du pt de grille en radian
+  ! ================================================================
+
+  pi_local = 4.0*atan(1.0)
+  deux_pi_local = 2.0*pi_local
+  incl = r_incl*pi_local/180.
+
+  lon_sun = longi*pi_local/180.0
+  lat_sun = asin(sin(lon_sun)*sin(incl))
+
+  gmtime1 = gmtime*86400. + pdtrad1
+  gmtime2 = gmtime*86400. + pdtrad2
+
+  DO i = 1, klon
+
+    latr = lat(i)*pi_local/180.
+
+    omega = 0.0 !--nuit polaire
+
+    IF (latr>=(pi_local/2.-lat_sun) .OR. latr<=(-pi_local/2.-lat_sun)) THEN
+      omega = pi_local ! journee polaire
+    END IF
+
+    IF (latr<(pi_local/2.+lat_sun) .AND. latr>(-pi_local/2.+lat_sun) .AND. &
+        latr<(pi_local/2.-lat_sun) .AND. latr>(-pi_local/2.-lat_sun)) THEN
+      omega = -tan(latr)*tan(lat_sun)
+      omega = acos(omega)
+    END IF
+
+    omega1 = gmtime1 + long(i)*86400.0/360.0
+    omega1 = omega1/86400.0*deux_pi_local
+    omega1 = mod(omega1+deux_pi_local, deux_pi_local)
+    omega1 = omega1 - pi_local
+
+    omega2 = gmtime2 + long(i)*86400.0/360.0
+    omega2 = omega2/86400.0*deux_pi_local
+    omega2 = mod(omega2+deux_pi_local, deux_pi_local)
+    omega2 = omega2 - pi_local
+
+    IF (omega1<=omega2) THEN !--on est dans la meme journee locale
+
+      IF (omega2<=-omega .OR. omega1>=omega .OR. omega<1E-5) THEN !--nuit
+        frac(i) = 0.0
+        pmu0(i) = 0.0
+      ELSE !--jour+nuit/jour
+        omegadeb = max(-omega, omega1)
+        omegafin = min(omega, omega2)
+        frac(i) = (omegafin-omegadeb)/(omega2-omega1)
+        pmu0(i) = sin(latr)*sin(lat_sun) + cos(latr)*cos(lat_sun)*(sin( &
+          omegafin)-sin(omegadeb))/(omegafin-omegadeb)
+      END IF
+
+    ELSE !---omega1 GT omega2 -- a cheval sur deux journees
+
+      ! -------------------entre omega1 et pi
+      IF (omega1>=omega) THEN !--nuit
+        zfrac1 = 0.0
+        z1_mu = 0.0
+      ELSE !--jour+nuit
+        omegadeb = max(-omega, omega1)
+        omegafin = omega
+        zfrac1 = omegafin - omegadeb
+        z1_mu = sin(latr)*sin(lat_sun) + cos(latr)*cos(lat_sun)*(sin(omegafin &
+          )-sin(omegadeb))/(omegafin-omegadeb)
+      END IF
+      ! ---------------------entre -pi et omega2
+      IF (omega2<=-omega) THEN !--nuit
+        zfrac2 = 0.0
+        z2_mu = 0.0
+      ELSE !--jour+nuit
+        omegadeb = -omega
+        omegafin = min(omega, omega2)
+        zfrac2 = omegafin - omegadeb
+        z2_mu = sin(latr)*sin(lat_sun) + cos(latr)*cos(lat_sun)*(sin(omegafin &
+          )-sin(omegadeb))/(omegafin-omegadeb)
+
+      END IF
+      ! -----------------------moyenne
+      frac(i) = (zfrac1+zfrac2)/(omega2+deux_pi_local-omega1)
+      pmu0(i) = (zfrac1*z1_mu+zfrac2*z2_mu)/max(zfrac1+zfrac2, 1.E-10)
+
+    END IF !---comparaison omega1 et omega2
+
+  END DO
+
+END SUBROUTINE zenang
+! ===================================================================
+SUBROUTINE zenith(longi, gmtime, lat, long, pmu0, fract)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! Auteur(s): Z.X. Li (LMD/ENS)
+
+  ! Objet: calculer le cosinus de l'angle zenithal du soleil en
+  ! connaissant la declinaison du soleil, la latitude et la
+  ! longitude du point sur la terre, et le temps universel
+
+  ! Arguments d'entree:
+  ! longi  : declinaison du soleil (en degres)
+  ! gmtime : temps universel en second qui varie entre 0 et 86400
+  ! lat    : latitude en degres
+  ! long   : longitude en degres
+  ! Arguments de sortie:
+  ! pmu0   : cosinus de l'angle zenithal
+
+  ! ====================================================================
+  include "YOMCST.h"
+  ! ====================================================================
+  REAL longi, gmtime
+  REAL lat(klon), long(klon), pmu0(klon), fract(klon)
+  ! =====================================================================
+  INTEGER n
+  REAL zpi, zpir, omega, zgmtime
+  REAL incl, lat_sun, lon_sun
+  ! ----------------------------------------------------------------------
+  zpi = 4.0*atan(1.0)
+  zpir = zpi/180.0
+  zgmtime = gmtime*86400.
+
+  incl = r_incl*zpir
+
+  lon_sun = longi*zpir
+  lat_sun = asin(sin(lon_sun)*sin(incl))
+
+  ! --initialisation a la nuit
+
+  DO n = 1, klon
+    pmu0(n) = 0.
+    fract(n) = 0.0
+  END DO
+
+  ! 1 degre en longitude = 240 secondes en temps
+
+  DO n = 1, klon
+    omega = zgmtime + long(n)*86400.0/360.0
+    omega = omega/86400.0*2.0*zpi
+    omega = mod(omega+2.0*zpi, 2.0*zpi)
+    omega = omega - zpi
+    pmu0(n) = sin(lat(n)*zpir)*sin(lat_sun) + cos(lat(n)*zpir)*cos(lat_sun)* &
+      cos(omega)
+    pmu0(n) = max(pmu0(n), 0.0)
+    IF (pmu0(n)>1.E-6) fract(n) = 1.0
+  END DO
+
+  RETURN
+END SUBROUTINE zenith
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orografi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orografi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orografi.F90	(revision 3330)
@@ -0,0 +1,1681 @@
+
+! $Id$
+
+SUBROUTINE drag_noro(nlon, nlev, dtime, paprs, pplay, pmea, pstd, psig, pgam, &
+    pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, pvlow, pustr, pvstr, &
+    d_t, d_u, d_v)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): F.Lott (LMD/CNRS) date: 19950201
+  ! Objet: Frottement de la montagne Interface
+  ! ======================================================================
+  ! Arguments:
+  ! dtime---input-R- pas d'integration (s)
+  ! paprs---input-R-pression pour chaque inter-couche (en Pa)
+  ! pplay---input-R-pression pour le mileu de chaque couche (en Pa)
+  ! t-------input-R-temperature (K)
+  ! u-------input-R-vitesse horizontale (m/s)
+  ! v-------input-R-vitesse horizontale (m/s)
+
+  ! d_t-----output-R-increment de la temperature
+  ! d_u-----output-R-increment de la vitesse u
+  ! d_v-----output-R-increment de la vitesse v
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! ARGUMENTS
+
+  INTEGER nlon, nlev
+  REAL dtime
+  REAL paprs(klon, klev+1)
+  REAL pplay(klon, klev)
+  REAL pmea(nlon), pstd(nlon), psig(nlon), pgam(nlon), pthe(nlon)
+  REAL ppic(nlon), pval(nlon)
+  REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
+  REAL t(nlon, nlev), u(nlon, nlev), v(nlon, nlev)
+  REAL d_t(nlon, nlev), d_u(nlon, nlev), d_v(nlon, nlev)
+
+  INTEGER i, k, kgwd, kdx(nlon), ktest(nlon)
+
+  ! Variables locales:
+
+  REAL zgeom(klon, klev)
+  REAL pdtdt(klon, klev), pdudt(klon, klev), pdvdt(klon, klev)
+  REAL pt(klon, klev), pu(klon, klev), pv(klon, klev)
+  REAL papmf(klon, klev), papmh(klon, klev+1)
+
+  ! initialiser les variables de sortie (pour securite)
+
+  DO i = 1, klon
+    pulow(i) = 0.0
+    pvlow(i) = 0.0
+    pustr(i) = 0.0
+    pvstr(i) = 0.0
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_u(i, k) = 0.0
+      d_v(i, k) = 0.0
+      pdudt(i, k) = 0.0
+      pdvdt(i, k) = 0.0
+      pdtdt(i, k) = 0.0
+    END DO
+  END DO
+
+  ! preparer les variables d'entree (attention: l'ordre des niveaux
+  ! verticaux augmente du haut vers le bas)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      pt(i, k) = t(i, klev-k+1)
+      pu(i, k) = u(i, klev-k+1)
+      pv(i, k) = v(i, klev-k+1)
+      papmf(i, k) = pplay(i, klev-k+1)
+    END DO
+  END DO
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      papmh(i, k) = paprs(i, klev-k+2)
+    END DO
+  END DO
+  DO i = 1, klon
+    zgeom(i, klev) = rd*pt(i, klev)*log(papmh(i,klev+1)/papmf(i,klev))
+  END DO
+  DO k = klev - 1, 1, -1
+    DO i = 1, klon
+      zgeom(i, k) = zgeom(i, k+1) + rd*(pt(i,k)+pt(i,k+1))/2.0*log(papmf(i,k+ &
+        1)/papmf(i,k))
+    END DO
+  END DO
+
+  ! appeler la routine principale
+
+  CALL orodrag(klon, klev, kgwd, kdx, ktest, dtime, papmh, papmf, zgeom, pt, &
+    pu, pv, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, pvlow, pdudt, &
+    pdvdt, pdtdt)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_u(i, klev+1-k) = dtime*pdudt(i, k)
+      d_v(i, klev+1-k) = dtime*pdvdt(i, k)
+      d_t(i, klev+1-k) = dtime*pdtdt(i, k)
+      pustr(i) = pustr(i) &        ! IM BUG  .
+                                   ! +rg*pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))
+        +pdudt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+      pvstr(i) = pvstr(i) &        ! IM BUG  .
+                                   ! +rg*pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))
+        +pdvdt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE drag_noro
+SUBROUTINE orodrag(nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, papm1, &
+    pgeom1, ptm1, pum1, pvm1, pmea, pstd, psig, pgamma, ptheta, ppic, pval &
+  ! outputs
+    , pulow, pvlow, pvom, pvol, pte)
+
+  USE dimphy
+  IMPLICIT NONE
+
+
+
+  ! **** *gwdrag* - does the gravity wave parametrization.
+
+  ! purpose.
+  ! --------
+
+  ! this routine computes the physical tendencies of the
+  ! prognostic variables u,v  and t due to  vertical transports by
+  ! subgridscale orographically excited gravity waves
+
+  ! **   interface.
+  ! ----------
+  ! called from *callpar*.
+
+  ! the routine takes its input from the long-term storage:
+  ! u,v,t and p at t-1.
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+  ! ==== outputs ===
+
+  ! implicit arguments :   none
+  ! --------------------
+
+  ! implicit logical (l)
+
+  ! method.
+  ! -------
+
+  ! externals.
+  ! ----------
+  INTEGER ismin, ismax
+  EXTERNAL ismin, ismax
+
+  ! reference.
+  ! ----------
+
+  ! author.
+  ! -------
+  ! m.miller + b.ritter   e.c.m.w.f.     15/06/86.
+
+  ! f.lott + m. miller    e.c.m.w.f.     22/11/94
+  ! -----------------------------------------------------------------------
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   arguments
+  ! ---------
+
+
+  ! ym      integer nlon, nlev, klevm1
+  INTEGER nlon, nlev
+  INTEGER kgwd, jl, ilevp1, jk, ji
+  REAL zdelp, ztemp, zforc, ztend
+  REAL rover, zb, zc, zconb, zabsv
+  REAL zzd1, ratio, zbet, zust, zvst, zdis
+  REAL pte(nlon, nlev), pvol(nlon, nlev), pvom(nlon, nlev), pulow(klon), &
+    pvlow(klon)
+  REAL pum1(nlon, nlev), pvm1(nlon, nlev), ptm1(nlon, nlev), pmea(nlon), &
+    pstd(nlon), psig(nlon), pgamma(nlon), ptheta(nlon), ppic(nlon), &
+    pval(nlon), pgeom1(nlon, nlev), papm1(nlon, nlev), paphm1(nlon, nlev+1)
+
+  INTEGER kdx(nlon), ktest(nlon)
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+  INTEGER isect(klon), icrit(klon), ikcrith(klon), ikenvh(klon), iknu(klon), &
+    iknu2(klon), ikcrit(klon), ikhlim(klon)
+
+  REAL ztau(klon, klev+1), ztauf(klon, klev+1), zstab(klon, klev+1), &
+    zvph(klon, klev+1), zrho(klon, klev+1), zri(klon, klev+1), &
+    zpsi(klon, klev+1), zzdep(klon, klev)
+  REAL zdudt(klon), zdvdt(klon), zdtdt(klon), zdedt(klon), zvidis(klon), &
+    znu(klon), zd1(klon), zd2(klon), zdmod(klon)
+  REAL ztmst, ptsphy, zrtmst
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.    initialization
+  ! --------------
+
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.1   computational constants
+  ! -----------------------
+
+
+  ! ztmst=twodt
+  ! if(nstep.eq.nstart) ztmst=0.5*twodt
+  ! ym      klevm1=klev-1
+  ztmst = ptsphy
+  zrtmst = 1./ztmst
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.3   check whether row contains point for printing
+  ! ---------------------------------------------
+
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.     precompute basic state variables.
+  ! *                ---------- ----- ----- ----------
+  ! *                define low level wind, project winds in plane of
+  ! *                low level wind, determine sector in which to take
+  ! *                the variance and set indicator for critical levels.
+
+
+
+
+  CALL orosetup(nlon, ktest, ikcrit, ikcrith, icrit, ikenvh, iknu, iknu2, &
+    paphm1, papm1, pum1, pvm1, ptm1, pgeom1, pstd, zrho, zri, zstab, ztau, &
+    zvph, zpsi, zzdep, pulow, pvlow, ptheta, pgamma, pmea, ppic, pval, znu, &
+    zd1, zd2, zdmod)
+
+  ! ***********************************************************
+
+
+  ! *         3.      compute low level stresses using subcritical and
+  ! *                 supercritical forms.computes anisotropy coefficient
+  ! *                 as measure of orographic twodimensionality.
+
+
+  CALL gwstress(nlon, nlev, ktest, icrit, ikenvh, iknu, zrho, zstab, zvph, &
+    pstd, psig, pmea, ppic, ztau, pgeom1, zdmod)
+
+  ! *         4.      compute stress profile.
+  ! *                 ------- ------ --------
+
+
+
+  CALL gwprofil(nlon, nlev, kgwd, kdx, ktest, ikcrith, icrit, paphm1, zrho, &
+    zstab, zvph, zri, ztau, zdmod, psig, pstd)
+
+  ! *         5.      compute tendencies.
+  ! *                 -------------------
+
+
+  ! explicit solution at all levels for the gravity wave
+  ! implicit solution for the blocked levels
+
+  DO jl = kidia, kfdia
+    zvidis(jl) = 0.0
+    zdudt(jl) = 0.0
+    zdvdt(jl) = 0.0
+    zdtdt(jl) = 0.0
+  END DO
+
+  ilevp1 = klev + 1
+
+
+  DO jk = 1, klev
+
+
+    ! do 523 jl=1,kgwd
+    ! ji=kdx(jl)
+    ! Modif vectorisation 02/04/2004
+    DO ji = kidia, kfdia
+      IF (ktest(ji)==1) THEN
+
+        zdelp = paphm1(ji, jk+1) - paphm1(ji, jk)
+        ztemp = -rg*(ztau(ji,jk+1)-ztau(ji,jk))/(zvph(ji,ilevp1)*zdelp)
+        zdudt(ji) = (pulow(ji)*zd1(ji)-pvlow(ji)*zd2(ji))*ztemp/zdmod(ji)
+        zdvdt(ji) = (pvlow(ji)*zd1(ji)+pulow(ji)*zd2(ji))*ztemp/zdmod(ji)
+
+        ! controle des overshoots:
+
+        zforc = sqrt(zdudt(ji)**2+zdvdt(ji)**2) + 1.E-12
+        ztend = sqrt(pum1(ji,jk)**2+pvm1(ji,jk)**2)/ztmst + 1.E-12
+        rover = 0.25
+        IF (zforc>=rover*ztend) THEN
+          zdudt(ji) = rover*ztend/zforc*zdudt(ji)
+          zdvdt(ji) = rover*ztend/zforc*zdvdt(ji)
+        END IF
+
+        ! fin du controle des overshoots
+
+        IF (jk>=ikenvh(ji)) THEN
+          zb = 1.0 - 0.18*pgamma(ji) - 0.04*pgamma(ji)**2
+          zc = 0.48*pgamma(ji) + 0.3*pgamma(ji)**2
+          zconb = 2.*ztmst*gkwake*psig(ji)/(4.*pstd(ji))
+          zabsv = sqrt(pum1(ji,jk)**2+pvm1(ji,jk)**2)/2.
+          zzd1 = zb*cos(zpsi(ji,jk))**2 + zc*sin(zpsi(ji,jk))**2
+          ratio = (cos(zpsi(ji,jk))**2+pgamma(ji)*sin(zpsi(ji, &
+            jk))**2)/(pgamma(ji)*cos(zpsi(ji,jk))**2+sin(zpsi(ji,jk))**2)
+          zbet = max(0., 2.-1./ratio)*zconb*zzdep(ji, jk)*zzd1*zabsv
+
+          ! simplement oppose au vent
+
+          zdudt(ji) = -pum1(ji, jk)/ztmst
+          zdvdt(ji) = -pvm1(ji, jk)/ztmst
+
+          ! projection dans la direction de l'axe principal de l'orographie
+          ! mod     zdudt(ji)=-(pum1(ji,jk)*cos(ptheta(ji)*rpi/180.)
+          ! mod *              +pvm1(ji,jk)*sin(ptheta(ji)*rpi/180.))
+          ! mod *              *cos(ptheta(ji)*rpi/180.)/ztmst
+          ! mod     zdvdt(ji)=-(pum1(ji,jk)*cos(ptheta(ji)*rpi/180.)
+          ! mod *              +pvm1(ji,jk)*sin(ptheta(ji)*rpi/180.))
+          ! mod *              *sin(ptheta(ji)*rpi/180.)/ztmst
+          zdudt(ji) = zdudt(ji)*(zbet/(1.+zbet))
+          zdvdt(ji) = zdvdt(ji)*(zbet/(1.+zbet))
+        END IF
+        pvom(ji, jk) = zdudt(ji)
+        pvol(ji, jk) = zdvdt(ji)
+        zust = pum1(ji, jk) + ztmst*zdudt(ji)
+        zvst = pvm1(ji, jk) + ztmst*zdvdt(ji)
+        zdis = 0.5*(pum1(ji,jk)**2+pvm1(ji,jk)**2-zust**2-zvst**2)
+        zdedt(ji) = zdis/ztmst
+        zvidis(ji) = zvidis(ji) + zdis*zdelp
+        zdtdt(ji) = zdedt(ji)/rcpd
+        ! pte(ji,jk)=zdtdt(ji)
+
+        ! ENCORE UN TRUC POUR EVITER LES EXPLOSIONS
+
+        pte(ji, jk) = 0.0
+
+      END IF
+    END DO
+
+  END DO
+
+
+  RETURN
+END SUBROUTINE orodrag
+SUBROUTINE orosetup(nlon, ktest, kkcrit, kkcrith, kcrit, kkenvh, kknu, kknu2, &
+    paphm1, papm1, pum1, pvm1, ptm1, pgeom1, pstd, prho, pri, pstab, ptau, &
+    pvph, ppsi, pzdep, pulow, pvlow, ptheta, pgamma, pmea, ppic, pval, pnu, &
+    pd1, pd2, pdmod)
+
+  ! **** *gwsetup*
+
+  ! purpose.
+  ! --------
+
+  ! **   interface.
+  ! ----------
+  ! from *orodrag*
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+  ! ==== outputs ===
+
+  ! implicit arguments :   none
+  ! --------------------
+
+  ! method.
+  ! -------
+
+
+  ! externals.
+  ! ----------
+
+
+  ! reference.
+  ! ----------
+
+  ! see ecmwf research department documentation of the "i.f.s."
+
+  ! author.
+  ! -------
+
+  ! modifications.
+  ! --------------
+  ! f.lott  for the new-gwdrag scheme november 1993
+
+  ! -----------------------------------------------------------------------
+  USE dimphy
+  IMPLICIT NONE
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   arguments
+  ! ---------
+
+  INTEGER nlon
+  INTEGER jl, jk
+  REAL zdelp
+
+  INTEGER kkcrit(nlon), kkcrith(nlon), kcrit(nlon), ktest(nlon), kkenvh(nlon)
+
+
+  REAL paphm1(nlon, klev+1), papm1(nlon, klev), pum1(nlon, klev), &
+    pvm1(nlon, klev), ptm1(nlon, klev), pgeom1(nlon, klev), &
+    prho(nlon, klev+1), pri(nlon, klev+1), pstab(nlon, klev+1), &
+    ptau(nlon, klev+1), pvph(nlon, klev+1), ppsi(nlon, klev+1), &
+    pzdep(nlon, klev)
+  REAL pulow(nlon), pvlow(nlon), ptheta(nlon), pgamma(nlon), pnu(nlon), &
+    pd1(nlon), pd2(nlon), pdmod(nlon)
+  REAL pstd(nlon), pmea(nlon), ppic(nlon), pval(nlon)
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+
+
+  INTEGER ilevm1, ilevm2, ilevh
+  REAL zcons1, zcons2, zcons3, zhgeo
+  REAL zu, zphi, zvt1, zvt2, zst, zvar, zdwind, zwind
+  REAL zstabm, zstabp, zrhom, zrhop, alpha
+  REAL zggeenv, zggeom1, zgvar
+  LOGICAL lo
+  LOGICAL ll1(klon, klev+1)
+  INTEGER kknu(klon), kknu2(klon), kknub(klon), kknul(klon), kentp(klon), &
+    ncount(klon)
+
+  REAL zhcrit(klon, klev), zvpf(klon, klev), zdp(klon, klev)
+  REAL znorm(klon), zb(klon), zc(klon), zulow(klon), zvlow(klon), znup(klon), &
+    znum(klon)
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.    initialization
+  ! --------------
+
+  ! print *,' entree gwsetup'
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.1   computational constants
+  ! -----------------------
+
+
+  ilevm1 = klev - 1
+  ilevm2 = klev - 2
+  ilevh = klev/3
+
+  zcons1 = 1./rd
+  ! old  zcons2=g**2/cpd
+  zcons2 = rg**2/rcpd
+  ! old  zcons3=1.5*api
+  zcons3 = 1.5*rpi
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.
+  ! --------------
+
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.1     define low level wind, project winds in plane of
+  ! *                 low level wind, determine sector in which to take
+  ! *                 the variance and set indicator for critical levels.
+
+
+
+  DO jl = kidia, kfdia
+    kknu(jl) = klev
+    kknu2(jl) = klev
+    kknub(jl) = klev
+    kknul(jl) = klev
+    pgamma(jl) = max(pgamma(jl), gtsec)
+    ll1(jl, klev+1) = .FALSE.
+  END DO
+
+  ! Ajouter une initialisation (L. Li, le 23fev99):
+
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      ll1(jl, jk) = .FALSE.
+    END DO
+  END DO
+
+  ! *      define top of low level flow
+  ! ----------------------------
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      lo = (paphm1(jl,jk)/paphm1(jl,klev+1)) >= gsigcr
+      IF (lo) THEN
+        kkcrit(jl) = jk
+      END IF
+      zhcrit(jl, jk) = ppic(jl)
+      zhgeo = pgeom1(jl, jk)/rg
+      ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+      IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+        kknu(jl) = jk
+      END IF
+      IF (.NOT. ll1(jl,ilevh)) kknu(jl) = ilevh
+    END DO
+  END DO
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      zhcrit(jl, jk) = ppic(jl) - pval(jl)
+      zhgeo = pgeom1(jl, jk)/rg
+      ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+      IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+        kknu2(jl) = jk
+      END IF
+      IF (.NOT. ll1(jl,ilevh)) kknu2(jl) = ilevh
+    END DO
+  END DO
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      zhcrit(jl, jk) = amax1(ppic(jl)-pmea(jl), pmea(jl)-pval(jl))
+      zhgeo = pgeom1(jl, jk)/rg
+      ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+      IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+        kknub(jl) = jk
+      END IF
+      IF (.NOT. ll1(jl,ilevh)) kknub(jl) = ilevh
+    END DO
+  END DO
+
+  DO jl = kidia, kfdia
+    kknu(jl) = min(kknu(jl), nktopg)
+    kknu2(jl) = min(kknu2(jl), nktopg)
+    kknub(jl) = min(kknub(jl), nktopg)
+    kknul(jl) = klev
+  END DO
+
+  ! c*     initialize various arrays
+
+  DO jl = kidia, kfdia
+    prho(jl, klev+1) = 0.0
+    pstab(jl, klev+1) = 0.0
+    pstab(jl, 1) = 0.0
+    pri(jl, klev+1) = 9999.0
+    ppsi(jl, klev+1) = 0.0
+    pri(jl, 1) = 0.0
+    pvph(jl, 1) = 0.0
+    pulow(jl) = 0.0
+    pvlow(jl) = 0.0
+    zulow(jl) = 0.0
+    zvlow(jl) = 0.0
+    kkcrith(jl) = klev
+    kkenvh(jl) = klev
+    kentp(jl) = klev
+    kcrit(jl) = 1
+    ncount(jl) = 0
+    ll1(jl, klev+1) = .FALSE.
+  END DO
+
+  ! *     define low-level flow
+  ! ---------------------
+
+  DO jk = klev, 2, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zdp(jl, jk) = papm1(jl, jk) - papm1(jl, jk-1)
+        prho(jl, jk) = 2.*paphm1(jl, jk)*zcons1/(ptm1(jl,jk)+ptm1(jl,jk-1))
+        pstab(jl, jk) = 2.*zcons2/(ptm1(jl,jk)+ptm1(jl,jk-1))* &
+          (1.-rcpd*prho(jl,jk)*(ptm1(jl,jk)-ptm1(jl,jk-1))/zdp(jl,jk))
+        pstab(jl, jk) = max(pstab(jl,jk), gssec)
+      END IF
+    END DO
+  END DO
+
+  ! ********************************************************************
+
+  ! *     define blocked flow
+  ! -------------------
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      IF (jk>=kknub(jl) .AND. jk<=kknul(jl)) THEN
+        pulow(jl) = pulow(jl) + pum1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk))
+        pvlow(jl) = pvlow(jl) + pvm1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk))
+      END IF
+    END DO
+  END DO
+  DO jl = kidia, kfdia
+    pulow(jl) = pulow(jl)/(paphm1(jl,kknul(jl)+1)-paphm1(jl,kknub(jl)))
+    pvlow(jl) = pvlow(jl)/(paphm1(jl,kknul(jl)+1)-paphm1(jl,kknub(jl)))
+    znorm(jl) = max(sqrt(pulow(jl)**2+pvlow(jl)**2), gvsec)
+    pvph(jl, klev+1) = znorm(jl)
+  END DO
+
+  ! *******  setup orography axes and define plane of profiles  *******
+
+  DO jl = kidia, kfdia
+    lo = (pulow(jl)<gvsec) .AND. (pulow(jl)>=-gvsec)
+    IF (lo) THEN
+      zu = pulow(jl) + 2.*gvsec
+    ELSE
+      zu = pulow(jl)
+    END IF
+    zphi = atan(pvlow(jl)/zu)
+    ppsi(jl, klev+1) = ptheta(jl)*rpi/180. - zphi
+    zb(jl) = 1. - 0.18*pgamma(jl) - 0.04*pgamma(jl)**2
+    zc(jl) = 0.48*pgamma(jl) + 0.3*pgamma(jl)**2
+    pd1(jl) = zb(jl) - (zb(jl)-zc(jl))*(sin(ppsi(jl,klev+1))**2)
+    pd2(jl) = (zb(jl)-zc(jl))*sin(ppsi(jl,klev+1))*cos(ppsi(jl,klev+1))
+    pdmod(jl) = sqrt(pd1(jl)**2+pd2(jl)**2)
+  END DO
+
+  ! ************ define flow in plane of lowlevel stress *************
+
+  DO jk = 1, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zvt1 = pulow(jl)*pum1(jl, jk) + pvlow(jl)*pvm1(jl, jk)
+        zvt2 = -pvlow(jl)*pum1(jl, jk) + pulow(jl)*pvm1(jl, jk)
+        zvpf(jl, jk) = (zvt1*pd1(jl)+zvt2*pd2(jl))/(znorm(jl)*pdmod(jl))
+      END IF
+      ptau(jl, jk) = 0.0
+      pzdep(jl, jk) = 0.0
+      ppsi(jl, jk) = 0.0
+      ll1(jl, jk) = .FALSE.
+    END DO
+  END DO
+  DO jk = 2, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zdp(jl, jk) = papm1(jl, jk) - papm1(jl, jk-1)
+        pvph(jl, jk) = ((paphm1(jl,jk)-papm1(jl,jk-1))*zvpf(jl,jk)+(papm1(jl, &
+          jk)-paphm1(jl,jk))*zvpf(jl,jk-1))/zdp(jl, jk)
+        IF (pvph(jl,jk)<gvsec) THEN
+          pvph(jl, jk) = gvsec
+          kcrit(jl) = jk
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! *         2.2     brunt-vaisala frequency and density at half levels.
+
+
+  DO jk = ilevh, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk>=(kknub(jl)+1) .AND. jk<=kknul(jl)) THEN
+          zst = zcons2/ptm1(jl, jk)*(1.-rcpd*prho(jl,jk)*(ptm1(jl, &
+            jk)-ptm1(jl,jk-1))/zdp(jl,jk))
+          pstab(jl, klev+1) = pstab(jl, klev+1) + zst*zdp(jl, jk)
+          pstab(jl, klev+1) = max(pstab(jl,klev+1), gssec)
+          prho(jl, klev+1) = prho(jl, klev+1) + paphm1(jl, jk)*2.*zdp(jl, jk) &
+            *zcons1/(ptm1(jl,jk)+ptm1(jl,jk-1))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  DO jl = kidia, kfdia
+    pstab(jl, klev+1) = pstab(jl, klev+1)/(papm1(jl,kknul(jl))-papm1(jl,kknub &
+      (jl)))
+    prho(jl, klev+1) = prho(jl, klev+1)/(papm1(jl,kknul(jl))-papm1(jl,kknub( &
+      jl)))
+    zvar = pstd(jl)
+  END DO
+
+  ! *         2.3     mean flow richardson number.
+  ! *                 and critical height for froude layer
+
+
+  DO jk = 2, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zdwind = max(abs(zvpf(jl,jk)-zvpf(jl,jk-1)), gvsec)
+        pri(jl, jk) = pstab(jl, jk)*(zdp(jl,jk)/(rg*prho(jl,jk)*zdwind))**2
+        pri(jl, jk) = max(pri(jl,jk), grcrit)
+      END IF
+    END DO
+  END DO
+
+
+
+  ! *      define top of 'envelope' layer
+  ! ----------------------------
+
+  DO jl = kidia, kfdia
+    pnu(jl) = 0.0
+    znum(jl) = 0.0
+  END DO
+
+  DO jk = 2, klev - 1
+    DO jl = kidia, kfdia
+
+      IF (ktest(jl)==1) THEN
+
+        IF (jk>=kknub(jl)) THEN
+
+          znum(jl) = pnu(jl)
+          zwind = (pulow(jl)*pum1(jl,jk)+pvlow(jl)*pvm1(jl,jk))/ &
+            max(sqrt(pulow(jl)**2+pvlow(jl)**2), gvsec)
+          zwind = max(sqrt(zwind**2), gvsec)
+          zdelp = paphm1(jl, jk+1) - paphm1(jl, jk)
+          zstabm = sqrt(max(pstab(jl,jk),gssec))
+          zstabp = sqrt(max(pstab(jl,jk+1),gssec))
+          zrhom = prho(jl, jk)
+          zrhop = prho(jl, jk+1)
+          pnu(jl) = pnu(jl) + (zdelp/rg)*((zstabp/zrhop+zstabm/zrhom)/2.)/ &
+            zwind
+          IF ((znum(jl)<=gfrcrit) .AND. (pnu(jl)>gfrcrit) .AND. (kkenvh( &
+            jl)==klev)) kkenvh(jl) = jk
+
+        END IF
+
+      END IF
+
+    END DO
+  END DO
+
+  ! calculation of a dynamical mixing height for the breaking
+  ! of gravity waves:
+
+
+  DO jl = kidia, kfdia
+    znup(jl) = 0.0
+    znum(jl) = 0.0
+  END DO
+
+  DO jk = klev - 1, 2, -1
+    DO jl = kidia, kfdia
+
+      IF (ktest(jl)==1) THEN
+
+        znum(jl) = znup(jl)
+        zwind = (pulow(jl)*pum1(jl,jk)+pvlow(jl)*pvm1(jl,jk))/ &
+          max(sqrt(pulow(jl)**2+pvlow(jl)**2), gvsec)
+        zwind = max(sqrt(zwind**2), gvsec)
+        zdelp = paphm1(jl, jk+1) - paphm1(jl, jk)
+        zstabm = sqrt(max(pstab(jl,jk),gssec))
+        zstabp = sqrt(max(pstab(jl,jk+1),gssec))
+        zrhom = prho(jl, jk)
+        zrhop = prho(jl, jk+1)
+        znup(jl) = znup(jl) + (zdelp/rg)*((zstabp/zrhop+zstabm/zrhom)/2.)/ &
+          zwind
+        IF ((znum(jl)<=rpi/2.) .AND. (znup(jl)>rpi/2.) .AND. (kkcrith( &
+          jl)==klev)) kkcrith(jl) = jk
+
+      END IF
+
+    END DO
+  END DO
+
+  DO jl = kidia, kfdia
+    kkcrith(jl) = min0(kkcrith(jl), kknu2(jl))
+    kkcrith(jl) = max0(kkcrith(jl), ilevh*2)
+  END DO
+
+  ! directional info for flow blocking *************************
+
+  DO jk = ilevh, klev
+    DO jl = kidia, kfdia
+      IF (jk>=kkenvh(jl)) THEN
+        lo = (pum1(jl,jk)<gvsec) .AND. (pum1(jl,jk)>=-gvsec)
+        IF (lo) THEN
+          zu = pum1(jl, jk) + 2.*gvsec
+        ELSE
+          zu = pum1(jl, jk)
+        END IF
+        zphi = atan(pvm1(jl,jk)/zu)
+        ppsi(jl, jk) = ptheta(jl)*rpi/180. - zphi
+      END IF
+    END DO
+  END DO
+  ! forms the vertical 'leakiness' **************************
+
+  alpha = 3.
+
+  DO jk = ilevh, klev
+    DO jl = kidia, kfdia
+      IF (jk>=kkenvh(jl)) THEN
+        zggeenv = amax1(1., (pgeom1(jl,kkenvh(jl))+pgeom1(jl, &
+          kkenvh(jl)-1))/2.)
+        zggeom1 = amax1(pgeom1(jl,jk), 1.)
+        zgvar = amax1(pstd(jl)*rg, 1.)
+        ! mod    pzdep(jl,jk)=sqrt((zggeenv-zggeom1)/(zggeom1+zgvar))
+        pzdep(jl, jk) = (pgeom1(jl,kkenvh(jl)-1)-pgeom1(jl,jk))/ &
+          (pgeom1(jl,kkenvh(jl)-1)-pgeom1(jl,klev))
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE orosetup
+SUBROUTINE gwstress(nlon, nlev, ktest, kcrit, kkenvh, kknu, prho, pstab, &
+    pvph, pstd, psig, pmea, ppic, ptau, pgeom1, pdmod)
+
+  ! **** *gwstress*
+
+  ! purpose.
+  ! --------
+
+  ! **   interface.
+  ! ----------
+  ! call *gwstress*  from *gwdrag*
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+  ! ==== outputs ===
+
+  ! implicit arguments :   none
+  ! --------------------
+
+  ! method.
+  ! -------
+
+
+  ! externals.
+  ! ----------
+
+
+  ! reference.
+  ! ----------
+
+  ! see ecmwf research department documentation of the "i.f.s."
+
+  ! author.
+  ! -------
+
+  ! modifications.
+  ! --------------
+  ! f. lott put the new gwd on ifs      22/11/93
+
+  ! -----------------------------------------------------------------------
+  USE dimphy
+  IMPLICIT NONE
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   arguments
+  ! ---------
+
+  INTEGER nlon, nlev
+  INTEGER kcrit(nlon), ktest(nlon), kkenvh(nlon), kknu(nlon)
+
+  REAL prho(nlon, nlev+1), pstab(nlon, nlev+1), ptau(nlon, nlev+1), &
+    pvph(nlon, nlev+1), pgeom1(nlon, nlev), pstd(nlon)
+
+  REAL psig(nlon)
+  REAL pmea(nlon), ppic(nlon)
+  REAL pdmod(nlon)
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+  INTEGER jl
+  REAL zblock, zvar, zeff
+  LOGICAL lo
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.3   functions
+  ! ---------
+  ! ------------------------------------------------------------------
+
+  ! *         1.    initialization
+  ! --------------
+
+
+  ! *         3.1     gravity wave stress.
+
+
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+
+      ! effective mountain height above the blocked flow
+
+      IF (kkenvh(jl)==klev) THEN
+        zblock = 0.0
+      ELSE
+        zblock = (pgeom1(jl,kkenvh(jl))+pgeom1(jl,kkenvh(jl)+1))/2./rg
+      END IF
+
+      zvar = ppic(jl) - pmea(jl)
+      zeff = amax1(0., zvar-zblock)
+
+      ptau(jl, klev+1) = prho(jl, klev+1)*gkdrag*psig(jl)*zeff**2/4./ &
+        pstd(jl)*pvph(jl, klev+1)*pdmod(jl)*sqrt(pstab(jl,klev+1))
+
+      ! too small value of stress or  low level flow include critical level
+      ! or low level flow:  gravity wave stress nul.
+
+      lo = (ptau(jl,klev+1)<gtsec) .OR. (kcrit(jl)>=kknu(jl)) .OR. &
+        (pvph(jl,klev+1)<gvcrit)
+      ! if(lo) ptau(jl,klev+1)=0.0
+
+    ELSE
+
+      ptau(jl, klev+1) = 0.0
+
+    END IF
+
+  END DO
+
+  RETURN
+END SUBROUTINE gwstress
+SUBROUTINE gwprofil(nlon, nlev, kgwd, kdx, ktest, kkcrith, kcrit, paphm1, &
+    prho, pstab, pvph, pri, ptau, pdmod, psig, pvar)
+
+  ! **** *GWPROFIL*
+
+  ! PURPOSE.
+  ! --------
+
+  ! **   INTERFACE.
+  ! ----------
+  ! FROM *GWDRAG*
+
+  ! EXPLICIT ARGUMENTS :
+  ! --------------------
+  ! ==== INPUTS ===
+  ! ==== OUTPUTS ===
+
+  ! IMPLICIT ARGUMENTS :   NONE
+  ! --------------------
+
+  ! METHOD:
+  ! -------
+  ! THE STRESS PROFILE FOR GRAVITY WAVES IS COMPUTED AS FOLLOWS:
+  ! IT IS CONSTANT (NO GWD) AT THE LEVELS BETWEEN THE GROUND
+  ! AND THE TOP OF THE BLOCKED LAYER (KKENVH).
+  ! IT DECREASES LINEARLY WITH HEIGHTS FROM THE TOP OF THE
+  ! BLOCKED LAYER TO 3*VAROR (kKNU), TO SIMULATES LEE WAVES OR
+  ! NONLINEAR GRAVITY WAVE BREAKING.
+  ! ABOVE IT IS CONSTANT, EXCEPT WHEN THE WAVE ENCOUNTERS A CRITICAL
+  ! LEVEL (KCRIT) OR WHEN IT BREAKS.
+
+
+
+  ! EXTERNALS.
+  ! ----------
+
+
+  ! REFERENCE.
+  ! ----------
+
+  ! SEE ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "I.F.S."
+
+  ! AUTHOR.
+  ! -------
+
+  ! MODIFICATIONS.
+  ! --------------
+  ! PASSAGE OF THE NEW GWDRAG TO I.F.S. (F. LOTT, 22/11/93)
+  ! -----------------------------------------------------------------------
+  USE dimphy
+  IMPLICIT NONE
+
+
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   ARGUMENTS
+  ! ---------
+
+  INTEGER nlon, nlev
+  INTEGER kkcrith(nlon), kcrit(nlon), kdx(nlon), ktest(nlon)
+
+
+  REAL paphm1(nlon, nlev+1), pstab(nlon, nlev+1), prho(nlon, nlev+1), &
+    pvph(nlon, nlev+1), pri(nlon, nlev+1), ptau(nlon, nlev+1)
+
+  REAL pdmod(nlon), psig(nlon), pvar(nlon)
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   LOCAL ARRAYS
+  ! ------------
+
+  INTEGER ilevh, ji, kgwd, jl, jk
+  REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n
+  REAL zdelp, zdelpt
+  REAL zdz2(klon, klev), znorm(klon), zoro(klon)
+  REAL ztau(klon, klev+1)
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.    INITIALIZATION
+  ! --------------
+
+  ! print *,' entree gwprofil'
+
+
+  ! *    COMPUTATIONAL CONSTANTS.
+  ! ------------- ----------
+
+  ilevh = klev/3
+
+  ! DO 400 ji=1,kgwd
+  ! jl=kdx(ji)
+  ! Modif vectorisation 02/04/2004
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      zoro(jl) = psig(jl)*pdmod(jl)/4./max(pvar(jl), 1.0)
+      ztau(jl, klev+1) = ptau(jl, klev+1)
+    END IF
+  END DO
+
+
+  DO jk = klev, 2, -1
+
+    ! *         4.1    CONSTANT WAVE STRESS UNTIL TOP OF THE
+    ! BLOCKING LAYER.
+
+    ! DO 411 ji=1,kgwd
+    ! jl=kdx(ji)
+    ! Modif vectorisation 02/04/2004
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk>kkcrith(jl)) THEN
+          ptau(jl, jk) = ztau(jl, klev+1)
+          ! ENDIF
+          ! IF(JK.EQ.KKCRITH(JL)) THEN
+        ELSE
+          ptau(jl, jk) = grahilo*ztau(jl, klev+1)
+        END IF
+      END IF
+    END DO
+
+    ! *         4.15   CONSTANT SHEAR STRESS UNTIL THE TOP OF THE
+    ! LOW LEVEL FLOW LAYER.
+
+
+    ! *         4.2    WAVE DISPLACEMENT AT NEXT LEVEL.
+
+
+    ! DO 421 ji=1,kgwd
+    ! jl=kdx(ji)
+    ! Modif vectorisation 02/04/2004
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk<kkcrith(jl)) THEN
+          znorm(jl) = gkdrag*prho(jl, jk)*sqrt(pstab(jl,jk))*pvph(jl, jk)* &
+            zoro(jl)
+          zdz2(jl, jk) = ptau(jl, jk+1)/max(znorm(jl), gssec)
+        END IF
+      END IF
+    END DO
+
+    ! *         4.3    WAVE RICHARDSON NUMBER, NEW WAVE DISPLACEMENT
+    ! *                AND STRESS:  BREAKING EVALUATION AND CRITICAL
+    ! LEVEL
+
+
+    ! DO 431 ji=1,kgwd
+    ! jl=Kdx(ji)
+    ! Modif vectorisation 02/04/2004
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+
+        IF (jk<kkcrith(jl)) THEN
+          IF ((ptau(jl,jk+1)<gtsec) .OR. (jk<=kcrit(jl))) THEN
+            ptau(jl, jk) = 0.0
+          ELSE
+            zsqr = sqrt(pri(jl,jk))
+            zalfa = sqrt(pstab(jl,jk)*zdz2(jl,jk))/pvph(jl, jk)
+            zriw = pri(jl, jk)*(1.-zalfa)/(1+zalfa*zsqr)**2
+            IF (zriw<grcrit) THEN
+              zdel = 4./zsqr/grcrit + 1./grcrit**2 + 4./grcrit
+              zb = 1./grcrit + 2./zsqr
+              zalpha = 0.5*(-zb+sqrt(zdel))
+              zdz2n = (pvph(jl,jk)*zalpha)**2/pstab(jl, jk)
+              ptau(jl, jk) = znorm(jl)*zdz2n
+            ELSE
+              ptau(jl, jk) = znorm(jl)*zdz2(jl, jk)
+            END IF
+            ptau(jl, jk) = min(ptau(jl,jk), ptau(jl,jk+1))
+          END IF
+        END IF
+      END IF
+    END DO
+
+  END DO
+
+  ! REORGANISATION OF THE STRESS PROFILE AT LOW LEVEL
+
+  ! DO 530 ji=1,kgwd
+  ! jl=kdx(ji)
+  ! Modif vectorisation 02/04/2004
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      ztau(jl, kkcrith(jl)) = ptau(jl, kkcrith(jl))
+      ztau(jl, nstra) = ptau(jl, nstra)
+    END IF
+  END DO
+
+  DO jk = 1, klev
+
+    ! DO 532 ji=1,kgwd
+    ! jl=kdx(ji)
+    ! Modif vectorisation 02/04/2004
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+
+
+        IF (jk>kkcrith(jl)) THEN
+
+          zdelp = paphm1(jl, jk) - paphm1(jl, klev+1)
+          zdelpt = paphm1(jl, kkcrith(jl)) - paphm1(jl, klev+1)
+          ptau(jl, jk) = ztau(jl, klev+1) + (ztau(jl,kkcrith(jl))-ztau(jl, &
+            klev+1))*zdelp/zdelpt
+
+        END IF
+
+      END IF
+    END DO
+
+    ! REORGANISATION IN THE STRATOSPHERE
+
+    ! DO 533 ji=1,kgwd
+    ! jl=kdx(ji)
+    ! Modif vectorisation 02/04/2004
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+
+
+        IF (jk<nstra) THEN
+
+          zdelp = paphm1(jl, nstra)
+          zdelpt = paphm1(jl, jk)
+          ptau(jl, jk) = ztau(jl, nstra)*zdelpt/zdelp
+
+        END IF
+
+      END IF
+    END DO
+
+    ! REORGANISATION IN THE TROPOSPHERE
+
+    ! DO 534 ji=1,kgwd
+    ! jl=kdx(ji)
+    ! Modif vectorisation 02/04/2004
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+
+
+        IF (jk<kkcrith(jl) .AND. jk>nstra) THEN
+
+          zdelp = paphm1(jl, jk) - paphm1(jl, kkcrith(jl))
+          zdelpt = paphm1(jl, nstra) - paphm1(jl, kkcrith(jl))
+          ptau(jl, jk) = ztau(jl, kkcrith(jl)) + (ztau(jl,nstra)-ztau(jl, &
+            kkcrith(jl)))*zdelp/zdelpt
+
+        END IF
+      END IF
+    END DO
+
+
+  END DO
+
+
+  RETURN
+END SUBROUTINE gwprofil
+SUBROUTINE lift_noro(nlon, nlev, dtime, paprs, pplay, plat, pmea, pstd, ppic, &
+    ktest, t, u, v, pulow, pvlow, pustr, pvstr, d_t, d_u, d_v)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): F.Lott (LMD/CNRS) date: 19950201
+  ! Objet: Frottement de la montagne Interface
+  ! ======================================================================
+  ! Arguments:
+  ! dtime---input-R- pas d'integration (s)
+  ! paprs---input-R-pression pour chaque inter-couche (en Pa)
+  ! pplay---input-R-pression pour le mileu de chaque couche (en Pa)
+  ! t-------input-R-temperature (K)
+  ! u-------input-R-vitesse horizontale (m/s)
+  ! v-------input-R-vitesse horizontale (m/s)
+
+  ! d_t-----output-R-increment de la temperature
+  ! d_u-----output-R-increment de la vitesse u
+  ! d_v-----output-R-increment de la vitesse v
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! ARGUMENTS
+
+  INTEGER nlon, nlev
+  REAL dtime
+  REAL paprs(klon, klev+1)
+  REAL pplay(klon, klev)
+  REAL plat(nlon), pmea(nlon)
+  REAL pstd(nlon)
+  REAL ppic(nlon)
+  REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
+  REAL t(nlon, nlev), u(nlon, nlev), v(nlon, nlev)
+  REAL d_t(nlon, nlev), d_u(nlon, nlev), d_v(nlon, nlev)
+
+  INTEGER i, k, ktest(nlon)
+
+  ! Variables locales:
+
+  REAL zgeom(klon, klev)
+  REAL pdtdt(klon, klev), pdudt(klon, klev), pdvdt(klon, klev)
+  REAL pt(klon, klev), pu(klon, klev), pv(klon, klev)
+  REAL papmf(klon, klev), papmh(klon, klev+1)
+
+  ! initialiser les variables de sortie (pour securite)
+
+  DO i = 1, klon
+    pulow(i) = 0.0
+    pvlow(i) = 0.0
+    pustr(i) = 0.0
+    pvstr(i) = 0.0
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_u(i, k) = 0.0
+      d_v(i, k) = 0.0
+      pdudt(i, k) = 0.0
+      pdvdt(i, k) = 0.0
+      pdtdt(i, k) = 0.0
+    END DO
+  END DO
+
+  ! preparer les variables d'entree (attention: l'ordre des niveaux
+  ! verticaux augmente du haut vers le bas)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      pt(i, k) = t(i, klev-k+1)
+      pu(i, k) = u(i, klev-k+1)
+      pv(i, k) = v(i, klev-k+1)
+      papmf(i, k) = pplay(i, klev-k+1)
+    END DO
+  END DO
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      papmh(i, k) = paprs(i, klev-k+2)
+    END DO
+  END DO
+  DO i = 1, klon
+    zgeom(i, klev) = rd*pt(i, klev)*log(papmh(i,klev+1)/papmf(i,klev))
+  END DO
+  DO k = klev - 1, 1, -1
+    DO i = 1, klon
+      zgeom(i, k) = zgeom(i, k+1) + rd*(pt(i,k)+pt(i,k+1))/2.0*log(papmf(i,k+ &
+        1)/papmf(i,k))
+    END DO
+  END DO
+
+  ! appeler la routine principale
+
+  CALL orolift(klon, klev, ktest, dtime, papmh, zgeom, pt, pu, pv, plat, &
+    pmea, pstd, ppic, pulow, pvlow, pdudt, pdvdt, pdtdt)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_u(i, klev+1-k) = dtime*pdudt(i, k)
+      d_v(i, klev+1-k) = dtime*pdvdt(i, k)
+      d_t(i, klev+1-k) = dtime*pdtdt(i, k)
+      pustr(i) = pustr(i) &        ! IM BUG .
+                                   ! +RG*pdudt(i,k)*(papmh(i,k+1)-papmh(i,k))
+        +pdudt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+      pvstr(i) = pvstr(i) &        ! IM BUG .
+                                   ! +RG*pdvdt(i,k)*(papmh(i,k+1)-papmh(i,k))
+        +pdvdt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE lift_noro
+SUBROUTINE orolift(nlon, nlev, ktest, ptsphy, paphm1, pgeom1, ptm1, pum1, &
+    pvm1, plat, pmea, pvaror, ppic & ! OUTPUTS
+    , pulow, pvlow, pvom, pvol, pte)
+
+
+  ! **** *OROLIFT: SIMULATE THE GEOSTROPHIC LIFT.
+
+  ! PURPOSE.
+  ! --------
+
+  ! **   INTERFACE.
+  ! ----------
+  ! CALLED FROM *lift_noro
+  ! ----------
+
+  ! AUTHOR.
+  ! -------
+  ! F.LOTT  LMD 22/11/95
+
+  USE dimphy
+  IMPLICIT NONE
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   ARGUMENTS
+  ! ---------
+
+
+  INTEGER nlon, nlev
+  REAL pte(nlon, nlev), pvol(nlon, nlev), pvom(nlon, nlev), pulow(nlon), &
+    pvlow(nlon)
+  REAL pum1(nlon, nlev), pvm1(nlon, nlev), ptm1(nlon, nlev), plat(nlon), &
+    pmea(nlon), pvaror(nlon), ppic(nlon), pgeom1(nlon, nlev), &
+    paphm1(nlon, nlev+1)
+
+  INTEGER ktest(nlon)
+  REAL ptsphy
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   LOCAL ARRAYS
+  ! ------------
+  LOGICAL lifthigh
+  ! ym      integer klevm1, jl, ilevh, jk
+  INTEGER jl, ilevh, jk
+  REAL zcons1, ztmst, zrtmst, zpi, zhgeo
+  REAL zdelp, zslow, zsqua, zscav, zbet
+  INTEGER iknub(klon), iknul(klon)
+  LOGICAL ll1(klon, klev+1)
+
+  REAL ztau(klon, klev+1), ztav(klon, klev+1), zrho(klon, klev+1)
+  REAL zdudt(klon), zdvdt(klon)
+  REAL zhcrit(klon, klev)
+  CHARACTER (LEN=20) :: modname = 'orografi'
+  CHARACTER (LEN=80) :: abort_message
+  ! -----------------------------------------------------------------------
+
+  ! *         1.1  INITIALIZATIONS
+  ! ---------------
+
+  lifthigh = .FALSE.
+
+  IF (nlon/=klon .OR. nlev/=klev) THEN
+    abort_message = 'pb dimension'
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+  zcons1 = 1./rd
+  ! ym      KLEVM1=KLEV-1
+  ztmst = ptsphy
+  zrtmst = 1./ztmst
+  zpi = acos(-1.)
+
+  DO jl = kidia, kfdia
+    zrho(jl, klev+1) = 0.0
+    pulow(jl) = 0.0
+    pvlow(jl) = 0.0
+    iknub(jl) = klev
+    iknul(jl) = klev
+    ilevh = klev/3
+    ll1(jl, klev+1) = .FALSE.
+    DO jk = 1, klev
+      pvom(jl, jk) = 0.0
+      pvol(jl, jk) = 0.0
+      pte(jl, jk) = 0.0
+    END DO
+  END DO
+
+
+  ! *         2.1     DEFINE LOW LEVEL WIND, PROJECT WINDS IN PLANE OF
+  ! *                 LOW LEVEL WIND, DETERMINE SECTOR IN WHICH TO TAKE
+  ! *                 THE VARIANCE AND SET INDICATOR FOR CRITICAL LEVELS.
+
+
+
+  DO jk = klev, 1, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zhcrit(jl, jk) = amax1(ppic(jl)-pmea(jl), 100.)
+        zhgeo = pgeom1(jl, jk)/rg
+        ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+        IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+          iknub(jl) = jk
+        END IF
+      END IF
+    END DO
+  END DO
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      iknub(jl) = max(iknub(jl), klev/2)
+      iknul(jl) = max(iknul(jl), 2*klev/3)
+      IF (iknub(jl)>nktopg) iknub(jl) = nktopg
+      IF (iknub(jl)==nktopg) iknul(jl) = klev
+      IF (iknub(jl)==iknul(jl)) iknub(jl) = iknul(jl) - 1
+    END IF
+  END DO
+
+  ! do 2011 jl=kidia,kfdia
+  ! IF(KTEST(JL).EQ.1) THEN
+  ! print *,' iknul= ',iknul(jl),'  iknub=',iknub(jl)
+  ! ENDIF
+  ! 2011 continue
+
+  ! PRINT *,'  DANS OROLIFT: 2010'
+
+  DO jk = klev, 2, -1
+    DO jl = kidia, kfdia
+      zrho(jl, jk) = 2.*paphm1(jl, jk)*zcons1/(ptm1(jl,jk)+ptm1(jl,jk-1))
+    END DO
+  END DO
+  ! PRINT *,'  DANS OROLIFT: 223'
+
+  ! ********************************************************************
+
+  ! *     DEFINE LOW LEVEL FLOW
+  ! -------------------
+  DO jk = klev, 1, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk>=iknub(jl) .AND. jk<=iknul(jl)) THEN
+          pulow(jl) = pulow(jl) + pum1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk) &
+            )
+          pvlow(jl) = pvlow(jl) + pvm1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk) &
+            )
+          zrho(jl, klev+1) = zrho(jl, klev+1) + zrho(jl, jk)*(paphm1(jl,jk+1) &
+            -paphm1(jl,jk))
+        END IF
+      END IF
+    END DO
+  END DO
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      pulow(jl) = pulow(jl)/(paphm1(jl,iknul(jl)+1)-paphm1(jl,iknub(jl)))
+      pvlow(jl) = pvlow(jl)/(paphm1(jl,iknul(jl)+1)-paphm1(jl,iknub(jl)))
+      zrho(jl, klev+1) = zrho(jl, klev+1)/(paphm1(jl,iknul(jl)+1)-paphm1(jl, &
+        iknub(jl)))
+    END IF
+  END DO
+
+  ! ***********************************************************
+
+  ! *         3.      COMPUTE MOUNTAIN LIFT
+
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      ztau(jl, klev+1) = -gklift*zrho(jl, klev+1)*2.*romega* & ! *
+                                                               ! (2*PVAROR(JL)+PMEA(JL))*
+        2*pvaror(jl)*sin(zpi/180.*plat(jl))*pvlow(jl)
+      ztav(jl, klev+1) = gklift*zrho(jl, klev+1)*2.*romega* & ! *
+                                                              ! (2*PVAROR(JL)+PMEA(JL))*
+        2*pvaror(jl)*sin(zpi/180.*plat(jl))*pulow(jl)
+    ELSE
+      ztau(jl, klev+1) = 0.0
+      ztav(jl, klev+1) = 0.0
+    END IF
+  END DO
+
+  ! *         4.      COMPUTE LIFT PROFILE
+  ! *                 --------------------
+
+
+
+  DO jk = 1, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        ztau(jl, jk) = ztau(jl, klev+1)*paphm1(jl, jk)/paphm1(jl, klev+1)
+        ztav(jl, jk) = ztav(jl, klev+1)*paphm1(jl, jk)/paphm1(jl, klev+1)
+      ELSE
+        ztau(jl, jk) = 0.0
+        ztav(jl, jk) = 0.0
+      END IF
+    END DO
+  END DO
+
+
+  ! *         5.      COMPUTE TENDENCIES.
+  ! *                 -------------------
+  IF (lifthigh) THEN
+    ! PRINT *,'  DANS OROLIFT: 500'
+
+    ! EXPLICIT SOLUTION AT ALL LEVELS
+
+    DO jk = 1, klev
+      DO jl = kidia, kfdia
+        IF (ktest(jl)==1) THEN
+          zdelp = paphm1(jl, jk+1) - paphm1(jl, jk)
+          zdudt(jl) = -rg*(ztau(jl,jk+1)-ztau(jl,jk))/zdelp
+          zdvdt(jl) = -rg*(ztav(jl,jk+1)-ztav(jl,jk))/zdelp
+        END IF
+      END DO
+    END DO
+
+    ! PROJECT PERPENDICULARLY TO U NOT TO DESTROY ENERGY
+
+    DO jk = 1, klev
+      DO jl = kidia, kfdia
+        IF (ktest(jl)==1) THEN
+
+          zslow = sqrt(pulow(jl)**2+pvlow(jl)**2)
+          zsqua = amax1(sqrt(pum1(jl,jk)**2+pvm1(jl,jk)**2), gvsec)
+          zscav = -zdudt(jl)*pvm1(jl, jk) + zdvdt(jl)*pum1(jl, jk)
+          IF (zsqua>gvsec) THEN
+            pvom(jl, jk) = -zscav*pvm1(jl, jk)/zsqua**2
+            pvol(jl, jk) = zscav*pum1(jl, jk)/zsqua**2
+          ELSE
+            pvom(jl, jk) = 0.0
+            pvol(jl, jk) = 0.0
+          END IF
+          zsqua = sqrt(pum1(jl,jk)**2+pum1(jl,jk)**2)
+          IF (zsqua<zslow) THEN
+            pvom(jl, jk) = zsqua/zslow*pvom(jl, jk)
+            pvol(jl, jk) = zsqua/zslow*pvol(jl, jk)
+          END IF
+
+        END IF
+      END DO
+    END DO
+
+    ! 6.  LOW LEVEL LIFT, SEMI IMPLICIT:
+    ! ----------------------------------
+
+  ELSE
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        DO jk = klev, iknub(jl), -1
+          zbet = gklift*2.*romega*sin(zpi/180.*plat(jl))*ztmst* &
+            (pgeom1(jl,iknub(jl)-1)-pgeom1(jl,jk))/ &
+            (pgeom1(jl,iknub(jl)-1)-pgeom1(jl,klev))
+          zdudt(jl) = -pum1(jl, jk)/ztmst/(1+zbet**2)
+          zdvdt(jl) = -pvm1(jl, jk)/ztmst/(1+zbet**2)
+          pvom(jl, jk) = zbet**2*zdudt(jl) - zbet*zdvdt(jl)
+          pvol(jl, jk) = zbet*zdudt(jl) + zbet**2*zdvdt(jl)
+        END DO
+      END IF
+    END DO
+
+  END IF
+
+  RETURN
+END SUBROUTINE orolift
+
+
+SUBROUTINE sugwd(nlon, nlev, paprs, pplay)
+  USE dimphy
+  USE mod_phys_lmdz_para
+  USE mod_grid_phy_lmdz
+  ! USE parallel
+
+  ! **** *SUGWD* INITIALIZE COMMON YOEGWD CONTROLLING GRAVITY WAVE DRAG
+
+  ! PURPOSE.
+  ! --------
+  ! INITIALIZE YOEGWD, THE COMMON THAT CONTROLS THE
+  ! GRAVITY WAVE DRAG PARAMETRIZATION.
+
+  ! **   INTERFACE.
+  ! ----------
+  ! CALL *SUGWD* FROM *SUPHEC*
+  ! -----        ------
+
+  ! EXPLICIT ARGUMENTS :
+  ! --------------------
+  ! PSIG        : VERTICAL COORDINATE TABLE
+  ! NLEV        : NUMBER OF MODEL LEVELS
+
+  ! IMPLICIT ARGUMENTS :
+  ! --------------------
+  ! COMMON YOEGWD
+
+  ! METHOD.
+  ! -------
+  ! SEE DOCUMENTATION
+
+  ! EXTERNALS.
+  ! ----------
+  ! NONE
+
+  ! REFERENCE.
+  ! ----------
+  ! ECMWF Research Department documentation of the IFS
+
+  ! AUTHOR.
+  ! -------
+  ! MARTIN MILLER             *ECMWF*
+
+  ! MODIFICATIONS.
+  ! --------------
+  ! ORIGINAL : 90-01-01
+  ! ------------------------------------------------------------------
+  IMPLICIT NONE
+
+  ! -----------------------------------------------------------------
+  include "YOEGWD.h"
+  ! ----------------------------------------------------------------
+
+  INTEGER nlon, nlev, jk
+  REAL paprs(nlon, nlev+1)
+  REAL pplay(nlon, nlev)
+  REAL zpr, zstra, zsigt, zpm1r
+  REAL :: pplay_glo(klon_glo, nlev)
+  REAL :: paprs_glo(klon_glo, nlev+1)
+
+  ! *       1.    SET THE VALUES OF THE PARAMETERS
+  ! --------------------------------
+
+
+  PRINT *, ' DANS SUGWD NLEV=', nlev
+  ghmax = 10000.
+
+  zpr = 100000.
+  zstra = 0.1
+  zsigt = 0.94
+  ! old  ZPR=80000.
+  ! old  ZSIGT=0.85
+
+
+  CALL gather(pplay, pplay_glo)
+  CALL bcast(pplay_glo)
+  CALL gather(paprs, paprs_glo)
+  CALL bcast(paprs_glo)
+
+
+  DO jk = 1, nlev
+    zpm1r = pplay_glo((klon_glo/2)+1, jk)/paprs_glo((klon_glo/2)+1, 1)
+    IF (zpm1r>=zsigt) THEN
+      nktopg = jk
+    END IF
+    zpm1r = pplay_glo((klon_glo/2)+1, jk)/paprs_glo((klon_glo/2)+1, 1)
+    IF (zpm1r>=zstra) THEN
+      nstra = jk
+    END IF
+  END DO
+
+
+
+  ! inversion car dans orodrag on compte les niveaux a l'envers
+  nktopg = nlev - nktopg + 1
+  nstra = nlev - nstra
+  PRINT *, ' DANS SUGWD nktopg=', nktopg
+  PRINT *, ' DANS SUGWD nstra=', nstra
+
+  gsigcr = 0.80
+
+!  Values now specified in run.def, or conf_phys_m.F90
+!  gkdrag = 0.2
+!  grahilo = 1.
+!  grcrit = 0.01
+!  gfrcrit = 1.0
+!  gkwake = 0.50
+! gklift = 0.50
+  gvcrit = 0.0
+
+  ! ----------------------------------------------------------------
+
+  ! *       2.    SET VALUES OF SECURITY PARAMETERS
+  ! ---------------------------------
+
+
+  gvsec = 0.10
+  gssec = 1.E-12
+
+  gtsec = 1.E-07
+
+  ! ----------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE sugwd
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orografi_strato.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orografi_strato.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/orografi_strato.F90	(revision 3330)
@@ -0,0 +1,1896 @@
+SUBROUTINE drag_noro_strato(nlon, nlev, dtime, paprs, pplay, pmea, pstd, &
+    psig, pgam, pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, pvlow, &
+    pustr, pvstr, d_t, d_u, d_v)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): F.Lott (LMD/CNRS) date: 19950201
+  ! Object: Mountain drag interface. Made necessary because:
+  ! 1. in the LMD-GCM Layers are from bottom to top,
+  ! contrary to most European GCM.
+  ! 2. the altitude above ground of each model layers
+  ! needs to be known (variable zgeom)
+  ! ======================================================================
+  ! Explicit Arguments:
+  ! ==================
+  ! nlon----input-I-Total number of horizontal points that get into physics
+  ! nlev----input-I-Number of vertical levels
+  ! dtime---input-R-Time-step (s)
+  ! paprs---input-R-Pressure in semi layers    (Pa)
+  ! pplay---input-R-Pressure model-layers      (Pa)
+  ! t-------input-R-temperature (K)
+  ! u-------input-R-Horizontal wind (m/s)
+  ! v-------input-R-Meridional wind (m/s)
+  ! pmea----input-R-Mean Orography (m)
+  ! pstd----input-R-SSO standard deviation (m)
+  ! psig----input-R-SSO slope
+  ! pgam----input-R-SSO Anisotropy
+  ! pthe----input-R-SSO Angle
+  ! ppic----input-R-SSO Peacks elevation (m)
+  ! pval----input-R-SSO Valleys elevation (m)
+
+  ! kgwd- -input-I: Total nb of points where the orography schemes are active
+  ! ktest--input-I: Flags to indicate active points
+  ! kdx----input-I: Locate the physical location of an active point.
+
+  ! pulow, pvlow -output-R: Low-level wind
+  ! pustr, pvstr -output-R: Surface stress due to SSO drag      (Pa)
+
+  ! d_t-----output-R: T increment
+  ! d_u-----output-R: U increment
+  ! d_v-----output-R: V increment
+
+  ! Implicit Arguments:
+  ! ===================
+
+  ! iim--common-I: Number of longitude intervals
+  ! jjm--common-I: Number of latitude intervals
+  ! klon-common-I: Number of points seen by the physics
+  ! (iim+1)*(jjm+1) for instance
+  ! klev-common-I: Number of vertical layers
+  ! ======================================================================
+  ! Local Variables:
+  ! ================
+
+  ! zgeom-----R: Altitude of layer above ground
+  ! pt, pu, pv --R: t u v from top to bottom
+  ! pdtdt, pdudt, pdvdt --R: t u v tendencies (from top to bottom)
+  ! papmf: pressure at model layer (from top to bottom)
+  ! papmh: pressure at model 1/2 layer (from top to bottom)
+
+  ! ======================================================================
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! ARGUMENTS
+
+  INTEGER nlon, nlev
+  REAL dtime
+  REAL paprs(nlon, nlev+1)
+  REAL pplay(nlon, nlev)
+  REAL pmea(nlon), pstd(nlon), psig(nlon), pgam(nlon), pthe(nlon)
+  REAL ppic(nlon), pval(nlon)
+  REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
+  REAL t(nlon, nlev), u(nlon, nlev), v(nlon, nlev)
+  REAL d_t(nlon, nlev), d_u(nlon, nlev), d_v(nlon, nlev)
+
+  INTEGER i, k, kgwd, kdx(nlon), ktest(nlon)
+
+  ! LOCAL VARIABLES:
+
+  REAL zgeom(klon, klev)
+  REAL pdtdt(klon, klev), pdudt(klon, klev), pdvdt(klon, klev)
+  REAL pt(klon, klev), pu(klon, klev), pv(klon, klev)
+  REAL papmf(klon, klev), papmh(klon, klev+1)
+  CHARACTER (LEN=20) :: modname = 'orografi_strato'
+  CHARACTER (LEN=80) :: abort_message
+
+  ! INITIALIZE OUTPUT VARIABLES
+
+  DO i = 1, klon
+    pulow(i) = 0.0
+    pvlow(i) = 0.0
+    pustr(i) = 0.0
+    pvstr(i) = 0.0
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_u(i, k) = 0.0
+      d_v(i, k) = 0.0
+      pdudt(i, k) = 0.0
+      pdvdt(i, k) = 0.0
+      pdtdt(i, k) = 0.0
+    END DO
+  END DO
+
+  ! PREPARE INPUT VARIABLES FOR ORODRAG (i.e., ORDERED FROM TOP TO BOTTOM)
+  ! CALCULATE LAYERS HEIGHT ABOVE GROUND)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      pt(i, k) = t(i, klev-k+1)
+      pu(i, k) = u(i, klev-k+1)
+      pv(i, k) = v(i, klev-k+1)
+      papmf(i, k) = pplay(i, klev-k+1)
+    END DO
+  END DO
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      papmh(i, k) = paprs(i, klev-k+2)
+    END DO
+  END DO
+  DO i = 1, klon
+    zgeom(i, klev) = rd*pt(i, klev)*log(papmh(i,klev+1)/papmf(i,klev))
+  END DO
+  DO k = klev - 1, 1, -1
+    DO i = 1, klon
+      zgeom(i, k) = zgeom(i, k+1) + rd*(pt(i,k)+pt(i,k+1))/2.0*log(papmf(i,k+ &
+        1)/papmf(i,k))
+    END DO
+  END DO
+
+  ! CALL SSO DRAG ROUTINES
+
+  CALL orodrag_strato(klon, klev, kgwd, kdx, ktest, dtime, papmh, papmf, &
+    zgeom, pt, pu, pv, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, &
+    pvlow, pdudt, pdvdt, pdtdt)
+
+  ! COMPUTE INCREMENTS AND STRESS FROM TENDENCIES
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_u(i, klev+1-k) = dtime*pdudt(i, k)
+      d_v(i, klev+1-k) = dtime*pdvdt(i, k)
+      d_t(i, klev+1-k) = dtime*pdtdt(i, k)
+      pustr(i) = pustr(i) + pdudt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+      pvstr(i) = pvstr(i) + pdvdt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE drag_noro_strato
+
+SUBROUTINE orodrag_strato(nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, &
+    papm1, pgeom1, ptm1, pum1, pvm1, pmea, pstd, psig, pgam, pthe, ppic, pval &
+  ! outputs
+    , pulow, pvlow, pvom, pvol, pte)
+
+  USE dimphy
+  IMPLICIT NONE
+
+
+  ! **** *orodrag* - does the SSO drag  parametrization.
+
+  ! purpose.
+  ! --------
+
+  ! this routine computes the physical tendencies of the
+  ! prognostic variables u,v  and t due to  vertical transports by
+  ! subgridscale orographically excited gravity waves, and to
+  ! low level blocked flow drag.
+
+  ! **   interface.
+  ! ----------
+  ! called from *drag_noro*.
+
+  ! the routine takes its input from the long-term storage:
+  ! u,v,t and p at t-1.
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+  ! nlon----input-I-Total number of horizontal points that get into physics
+  ! nlev----input-I-Number of vertical levels
+
+  ! kgwd- -input-I: Total nb of points where the orography schemes are active
+  ! ktest--input-I: Flags to indicate active points
+  ! kdx----input-I: Locate the physical location of an active point.
+  ! ptsphy--input-R-Time-step (s)
+  ! paphm1--input-R: pressure at model 1/2 layer
+  ! papm1---input-R: pressure at model layer
+  ! pgeom1--input-R: Altitude of layer above ground
+  ! ptm1, pum1, pvm1--R-: t, u and v
+  ! pmea----input-R-Mean Orography (m)
+  ! pstd----input-R-SSO standard deviation (m)
+  ! psig----input-R-SSO slope
+  ! pgam----input-R-SSO Anisotropy
+  ! pthe----input-R-SSO Angle
+  ! ppic----input-R-SSO Peacks elevation (m)
+  ! pval----input-R-SSO Valleys elevation (m)
+
+  INTEGER nlon, nlev, kgwd
+  REAL ptsphy
+
+  ! ==== outputs ===
+  ! pulow, pvlow -output-R: Low-level wind
+
+  ! pte -----output-R: T tendency
+  ! pvom-----output-R: U tendency
+  ! pvol-----output-R: V tendency
+
+
+  ! Implicit Arguments:
+  ! ===================
+
+  ! klon-common-I: Number of points seen by the physics
+  ! klev-common-I: Number of vertical layers
+
+  ! method.
+  ! -------
+
+  ! externals.
+  ! ----------
+  INTEGER ismin, ismax
+  EXTERNAL ismin, ismax
+
+  ! reference.
+  ! ----------
+
+  ! author.
+  ! -------
+  ! m.miller + b.ritter   e.c.m.w.f.     15/06/86.
+
+  ! f.lott + m. miller    e.c.m.w.f.     22/11/94
+  ! -----------------------------------------------------------------------
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   arguments
+  ! ---------
+
+
+  REAL pte(nlon, nlev), pvol(nlon, nlev), pvom(nlon, nlev), pulow(nlon), &
+    pvlow(nlon)
+  REAL pum1(nlon, nlev), pvm1(nlon, nlev), ptm1(nlon, nlev), pmea(nlon), &
+    pstd(nlon), psig(nlon), pgam(nlon), pthe(nlon), ppic(nlon), pval(nlon), &
+    pgeom1(nlon, nlev), papm1(nlon, nlev), paphm1(nlon, nlev+1)
+
+  INTEGER kdx(nlon), ktest(nlon)
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+  INTEGER isect(klon), icrit(klon), ikcrith(klon), ikenvh(klon), iknu(klon), &
+    iknu2(klon), ikcrit(klon), ikhlim(klon)
+
+  REAL ztau(klon, klev+1), zstab(klon, klev+1), zvph(klon, klev+1), &
+    zrho(klon, klev+1), zri(klon, klev+1), zpsi(klon, klev+1), &
+    zzdep(klon, klev)
+  REAL zdudt(klon), zdvdt(klon), zdtdt(klon), zdedt(klon), zvidis(klon), &
+    ztfr(klon), znu(klon), zd1(klon), zd2(klon), zdmod(klon)
+
+
+  ! local quantities:
+
+  INTEGER jl, jk, ji
+  REAL ztmst, zdelp, ztemp, zforc, ztend, rover
+  REAL zb, zc, zconb, zabsv, zzd1, ratio, zbet, zust, zvst, zdis
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.    initialization
+  ! --------------
+
+  ! print *,' in orodrag'
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.1   computational constants
+  ! -----------------------
+
+
+  ! ztmst=twodt
+  ! if(nstep.eq.nstart) ztmst=0.5*twodt
+  ztmst = ptsphy
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.3   check whether row contains point for printing
+  ! ---------------------------------------------
+
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.     precompute basic state variables.
+  ! *                ---------- ----- ----- ----------
+  ! *                define low level wind, project winds in plane of
+  ! *                low level wind, determine sector in which to take
+  ! *                the variance and set indicator for critical levels.
+
+
+
+
+
+  CALL orosetup_strato(nlon, nlev, ktest, ikcrit, ikcrith, icrit, isect, &
+    ikhlim, ikenvh, iknu, iknu2, paphm1, papm1, pum1, pvm1, ptm1, pgeom1, &
+    pstd, zrho, zri, zstab, ztau, zvph, zpsi, zzdep, pulow, pvlow, pthe, &
+    pgam, pmea, ppic, pval, znu, zd1, zd2, zdmod)
+
+  ! ***********************************************************
+
+
+  ! *         3.      compute low level stresses using subcritical and
+  ! *                 supercritical forms.computes anisotropy coefficient
+  ! *                 as measure of orographic twodimensionality.
+
+
+  CALL gwstress_strato(nlon, nlev, ikcrit, isect, ikhlim, ktest, ikcrith, &
+    icrit, ikenvh, iknu, zrho, zstab, zvph, pstd, psig, pmea, ppic, pval, &
+    ztfr, ztau, pgeom1, pgam, zd1, zd2, zdmod, znu)
+
+  ! *         4.      compute stress profile including
+  ! trapped waves, wave breaking,
+  ! linear decay in stratosphere.
+
+
+
+
+  CALL gwprofil_strato(nlon, nlev, kgwd, kdx, ktest, ikcrit, ikcrith, icrit, &
+    ikenvh, iknu, iknu2, paphm1, zrho, zstab, ztfr, zvph, zri, ztau &
+    , zdmod, znu, psig, pgam, pstd, ppic, pval)
+
+  ! *         5.      Compute tendencies from waves stress profile.
+  ! Compute low level blocked flow drag.
+  ! *                 --------------------------------------------
+
+
+
+
+  ! explicit solution at all levels for the gravity wave
+  ! implicit solution for the blocked levels
+
+  DO jl = kidia, kfdia
+    zvidis(jl) = 0.0
+    zdudt(jl) = 0.0
+    zdvdt(jl) = 0.0
+    zdtdt(jl) = 0.0
+  END DO
+
+
+  DO jk = 1, klev
+
+
+    ! WAVE STRESS
+    ! -------------
+
+
+    DO ji = kidia, kfdia
+
+      IF (ktest(ji)==1) THEN
+
+        zdelp = paphm1(ji, jk+1) - paphm1(ji, jk)
+        ztemp = -rg*(ztau(ji,jk+1)-ztau(ji,jk))/(zvph(ji,klev+1)*zdelp)
+
+        zdudt(ji) = (pulow(ji)*zd1(ji)-pvlow(ji)*zd2(ji))*ztemp/zdmod(ji)
+        zdvdt(ji) = (pvlow(ji)*zd1(ji)+pulow(ji)*zd2(ji))*ztemp/zdmod(ji)
+
+        ! Control Overshoots
+
+
+        IF (jk>=nstra) THEN
+          rover = 0.10
+          IF (abs(zdudt(ji))>rover*abs(pum1(ji,jk))/ztmst) zdudt(ji) = rover* &
+            abs(pum1(ji,jk))/ztmst*zdudt(ji)/(abs(zdudt(ji))+1.E-10)
+          IF (abs(zdvdt(ji))>rover*abs(pvm1(ji,jk))/ztmst) zdvdt(ji) = rover* &
+            abs(pvm1(ji,jk))/ztmst*zdvdt(ji)/(abs(zdvdt(ji))+1.E-10)
+        END IF
+
+        rover = 0.25
+        zforc = sqrt(zdudt(ji)**2+zdvdt(ji)**2)
+        ztend = sqrt(pum1(ji,jk)**2+pvm1(ji,jk)**2)/ztmst
+
+        IF (zforc>=rover*ztend) THEN
+          zdudt(ji) = rover*ztend/zforc*zdudt(ji)
+          zdvdt(ji) = rover*ztend/zforc*zdvdt(ji)
+        END IF
+
+        ! BLOCKED FLOW DRAG:
+        ! -----------------
+
+        IF (jk>ikenvh(ji)) THEN
+          zb = 1.0 - 0.18*pgam(ji) - 0.04*pgam(ji)**2
+          zc = 0.48*pgam(ji) + 0.3*pgam(ji)**2
+          zconb = 2.*ztmst*gkwake*psig(ji)/(4.*pstd(ji))
+          zabsv = sqrt(pum1(ji,jk)**2+pvm1(ji,jk)**2)/2.
+          zzd1 = zb*cos(zpsi(ji,jk))**2 + zc*sin(zpsi(ji,jk))**2
+          ratio = (cos(zpsi(ji,jk))**2+pgam(ji)*sin(zpsi(ji, &
+            jk))**2)/(pgam(ji)*cos(zpsi(ji,jk))**2+sin(zpsi(ji,jk))**2)
+          zbet = max(0., 2.-1./ratio)*zconb*zzdep(ji, jk)*zzd1*zabsv
+
+          ! OPPOSED TO THE WIND
+
+          zdudt(ji) = -pum1(ji, jk)/ztmst
+          zdvdt(ji) = -pvm1(ji, jk)/ztmst
+
+          ! PERPENDICULAR TO THE SSO MAIN AXIS:
+
+          ! mod     zdudt(ji)=-(pum1(ji,jk)*cos(pthe(ji)*rpi/180.)
+          ! mod *              +pvm1(ji,jk)*sin(pthe(ji)*rpi/180.))
+          ! mod *              *cos(pthe(ji)*rpi/180.)/ztmst
+          ! mod     zdvdt(ji)=-(pum1(ji,jk)*cos(pthe(ji)*rpi/180.)
+          ! mod *              +pvm1(ji,jk)*sin(pthe(ji)*rpi/180.))
+          ! mod *              *sin(pthe(ji)*rpi/180.)/ztmst
+
+          zdudt(ji) = zdudt(ji)*(zbet/(1.+zbet))
+          zdvdt(ji) = zdvdt(ji)*(zbet/(1.+zbet))
+        END IF
+        pvom(ji, jk) = zdudt(ji)
+        pvol(ji, jk) = zdvdt(ji)
+        zust = pum1(ji, jk) + ztmst*zdudt(ji)
+        zvst = pvm1(ji, jk) + ztmst*zdvdt(ji)
+        zdis = 0.5*(pum1(ji,jk)**2+pvm1(ji,jk)**2-zust**2-zvst**2)
+        zdedt(ji) = zdis/ztmst
+        zvidis(ji) = zvidis(ji) + zdis*zdelp
+        zdtdt(ji) = zdedt(ji)/rcpd
+
+        ! NO TENDENCIES ON TEMPERATURE .....
+
+        ! Instead of, pte(ji,jk)=zdtdt(ji), due to mechanical dissipation
+
+        pte(ji, jk) = 0.0
+
+      END IF
+
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE orodrag_strato
+SUBROUTINE orosetup_strato(nlon, nlev, ktest, kkcrit, kkcrith, kcrit, ksect, &
+    kkhlim, kkenvh, kknu, kknu2, paphm1, papm1, pum1, pvm1, ptm1, pgeom1, &
+    pstd, prho, pri, pstab, ptau, pvph, ppsi, pzdep, pulow, pvlow, ptheta, &
+    pgam, pmea, ppic, pval, pnu, pd1, pd2, pdmod)
+
+  ! **** *gwsetup*
+
+  ! purpose.
+  ! --------
+  ! SET-UP THE ESSENTIAL PARAMETERS OF THE SSO DRAG SCHEME:
+  ! DEPTH OF LOW WBLOCKED LAYER, LOW-LEVEL FLOW, BACKGROUND
+  ! STRATIFICATION.....
+
+  ! **   interface.
+  ! ----------
+  ! from *orodrag*
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+
+  ! nlon----input-I-Total number of horizontal points that get into physics
+  ! nlev----input-I-Number of vertical levels
+  ! ktest--input-I: Flags to indicate active points
+
+  ! ptsphy--input-R-Time-step (s)
+  ! paphm1--input-R: pressure at model 1/2 layer
+  ! papm1---input-R: pressure at model layer
+  ! pgeom1--input-R: Altitude of layer above ground
+  ! ptm1, pum1, pvm1--R-: t, u and v
+  ! pmea----input-R-Mean Orography (m)
+  ! pstd----input-R-SSO standard deviation (m)
+  ! psig----input-R-SSO slope
+  ! pgam----input-R-SSO Anisotropy
+  ! pthe----input-R-SSO Angle
+  ! ppic----input-R-SSO Peacks elevation (m)
+  ! pval----input-R-SSO Valleys elevation (m)
+
+  ! ==== outputs ===
+  ! pulow, pvlow -output-R: Low-level wind
+  ! kkcrit----I-: Security value for top of low level flow
+  ! kcrit-----I-: Critical level
+  ! ksect-----I-: Not used
+  ! kkhlim----I-: Not used
+  ! kkenvh----I-: Top of blocked flow layer
+  ! kknu------I-: Layer that sees mountain peacks
+  ! kknu2-----I-: Layer that sees mountain peacks above mountain mean
+  ! kknub-----I-: Layer that sees mountain mean above valleys
+  ! prho------R-: Density at 1/2 layers
+  ! pri-------R-: Background Richardson Number, Wind shear measured along GW
+  ! stress
+  ! pstab-----R-: Brunt-Vaisala freq. at 1/2 layers
+  ! pvph------R-: Wind in  plan of GW stress, Half levels.
+  ! ppsi------R-: Angle between low level wind and SS0 main axis.
+  ! pd1-------R-| Compared the ratio of the stress
+  ! pd2-------R-| that is along the wind to that Normal to it.
+  ! pdi define the plane of low level stress
+  ! compared to the low level wind.
+  ! see p. 108 Lott & Miller (1997).
+  ! pdmod-----R-: Norme of pdi
+
+  ! === local arrays ===
+
+  ! zvpf------R-: Wind projected in the plan of the low-level stress.
+
+  ! ==== outputs ===
+
+  ! implicit arguments :   none
+  ! --------------------
+
+  ! method.
+  ! -------
+
+
+  ! externals.
+  ! ----------
+
+
+  ! reference.
+  ! ----------
+
+  ! see ecmwf research department documentation of the "i.f.s."
+
+  ! author.
+  ! -------
+
+  ! modifications.
+  ! --------------
+  ! f.lott  for the new-gwdrag scheme november 1993
+
+  ! -----------------------------------------------------------------------
+  USE dimphy
+  IMPLICIT NONE
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   arguments
+  ! ---------
+
+  INTEGER nlon, nlev
+  INTEGER kkcrit(nlon), kkcrith(nlon), kcrit(nlon), ksect(nlon), &
+    kkhlim(nlon), ktest(nlon), kkenvh(nlon)
+
+
+  REAL paphm1(nlon, klev+1), papm1(nlon, klev), pum1(nlon, klev), &
+    pvm1(nlon, klev), ptm1(nlon, klev), pgeom1(nlon, klev), &
+    prho(nlon, klev+1), pri(nlon, klev+1), pstab(nlon, klev+1), &
+    ptau(nlon, klev+1), pvph(nlon, klev+1), ppsi(nlon, klev+1), &
+    pzdep(nlon, klev)
+  REAL pulow(nlon), pvlow(nlon), ptheta(nlon), pgam(nlon), pnu(nlon), &
+    pd1(nlon), pd2(nlon), pdmod(nlon)
+  REAL pstd(nlon), pmea(nlon), ppic(nlon), pval(nlon)
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+
+
+  INTEGER ilevh, jl, jk
+  REAL zcons1, zcons2, zhgeo, zu, zphi
+  REAL zvt1, zvt2, zdwind, zwind, zdelp
+  REAL zstabm, zstabp, zrhom, zrhop
+  LOGICAL lo
+  LOGICAL ll1(klon, klev+1)
+  INTEGER kknu(klon), kknu2(klon), kknub(klon), kknul(klon), kentp(klon), &
+    ncount(klon)
+
+  REAL zhcrit(klon, klev), zvpf(klon, klev), zdp(klon, klev)
+  REAL znorm(klon), zb(klon), zc(klon), zulow(klon), zvlow(klon), znup(klon), &
+    znum(klon)
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.    initialization
+  ! --------------
+
+  ! PRINT *,' in orosetup'
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.1   computational constants
+  ! -----------------------
+
+
+  ilevh = klev/3
+
+  zcons1 = 1./rd
+  zcons2 = rg**2/rcpd
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.
+  ! --------------
+
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.1     define low level wind, project winds in plane of
+  ! *                 low level wind, determine sector in which to take
+  ! *                 the variance and set indicator for critical levels.
+
+
+
+  DO jl = kidia, kfdia
+    kknu(jl) = klev
+    kknu2(jl) = klev
+    kknub(jl) = klev
+    kknul(jl) = klev
+    pgam(jl) = max(pgam(jl), gtsec)
+    ll1(jl, klev+1) = .FALSE.
+  END DO
+
+  ! Ajouter une initialisation (L. Li, le 23fev99):
+
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      ll1(jl, jk) = .FALSE.
+    END DO
+  END DO
+
+  ! *      define top of low level flow
+  ! ----------------------------
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        lo = (paphm1(jl,jk)/paphm1(jl,klev+1)) >= gsigcr
+        IF (lo) THEN
+          kkcrit(jl) = jk
+        END IF
+        zhcrit(jl, jk) = ppic(jl) - pval(jl)
+        zhgeo = pgeom1(jl, jk)/rg
+        ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+        IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+          kknu(jl) = jk
+        END IF
+        IF (.NOT. ll1(jl,ilevh)) kknu(jl) = ilevh
+      END IF
+    END DO
+  END DO
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zhcrit(jl, jk) = ppic(jl) - pmea(jl)
+        zhgeo = pgeom1(jl, jk)/rg
+        ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+        IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+          kknu2(jl) = jk
+        END IF
+        IF (.NOT. ll1(jl,ilevh)) kknu2(jl) = ilevh
+      END IF
+    END DO
+  END DO
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zhcrit(jl, jk) = amin1(ppic(jl)-pmea(jl), pmea(jl)-pval(jl))
+        zhgeo = pgeom1(jl, jk)/rg
+        ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+        IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+          kknub(jl) = jk
+        END IF
+        IF (.NOT. ll1(jl,ilevh)) kknub(jl) = ilevh
+      END IF
+    END DO
+  END DO
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      kknu(jl) = min(kknu(jl), nktopg)
+      kknu2(jl) = min(kknu2(jl), nktopg)
+      kknub(jl) = min(kknub(jl), nktopg)
+      kknul(jl) = klev
+    END IF
+  END DO
+
+  ! c*     initialize various arrays
+
+  DO jl = kidia, kfdia
+    prho(jl, klev+1) = 0.0
+    ! ym correction en attendant mieux
+    prho(jl, 1) = 0.0
+    pstab(jl, klev+1) = 0.0
+    pstab(jl, 1) = 0.0
+    pri(jl, klev+1) = 9999.0
+    ppsi(jl, klev+1) = 0.0
+    pri(jl, 1) = 0.0
+    pvph(jl, 1) = 0.0
+    pvph(jl, klev+1) = 0.0
+    ! ym correction en attendant mieux
+    ! ym      pvph(jl,klev)    =0.0
+    pulow(jl) = 0.0
+    pvlow(jl) = 0.0
+    zulow(jl) = 0.0
+    zvlow(jl) = 0.0
+    kkcrith(jl) = klev
+    kkenvh(jl) = klev
+    kentp(jl) = klev
+    kcrit(jl) = 1
+    ncount(jl) = 0
+    ll1(jl, klev+1) = .FALSE.
+  END DO
+
+  ! *     define flow density and stratification (rho and N2)
+  ! at semi layers.
+  ! -------------------------------------------------------
+
+  DO jk = klev, 2, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zdp(jl, jk) = papm1(jl, jk) - papm1(jl, jk-1)
+        prho(jl, jk) = 2.*paphm1(jl, jk)*zcons1/(ptm1(jl,jk)+ptm1(jl,jk-1))
+        pstab(jl, jk) = 2.*zcons2/(ptm1(jl,jk)+ptm1(jl,jk-1))* &
+          (1.-rcpd*prho(jl,jk)*(ptm1(jl,jk)-ptm1(jl,jk-1))/zdp(jl,jk))
+        pstab(jl, jk) = max(pstab(jl,jk), gssec)
+      END IF
+    END DO
+  END DO
+
+  ! ********************************************************************
+
+  ! *     define Low level flow (between ground and peacks-valleys)
+  ! ---------------------------------------------------------
+  DO jk = klev, ilevh, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk>=kknu2(jl) .AND. jk<=kknul(jl)) THEN
+          pulow(jl) = pulow(jl) + pum1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk) &
+            )
+          pvlow(jl) = pvlow(jl) + pvm1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk) &
+            )
+          pstab(jl, klev+1) = pstab(jl, klev+1) + pstab(jl, jk)*(paphm1(jl,jk &
+            +1)-paphm1(jl,jk))
+          prho(jl, klev+1) = prho(jl, klev+1) + prho(jl, jk)*(paphm1(jl,jk+1) &
+            -paphm1(jl,jk))
+        END IF
+      END IF
+    END DO
+  END DO
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      pulow(jl) = pulow(jl)/(paphm1(jl,kknul(jl)+1)-paphm1(jl,kknu2(jl)))
+      pvlow(jl) = pvlow(jl)/(paphm1(jl,kknul(jl)+1)-paphm1(jl,kknu2(jl)))
+      znorm(jl) = max(sqrt(pulow(jl)**2+pvlow(jl)**2), gvsec)
+      pvph(jl, klev+1) = znorm(jl)
+      pstab(jl, klev+1) = pstab(jl, klev+1)/(paphm1(jl,kknul(jl)+1)-paphm1(jl &
+        ,kknu2(jl)))
+      prho(jl, klev+1) = prho(jl, klev+1)/(paphm1(jl,kknul(jl)+1)-paphm1(jl, &
+        kknu2(jl)))
+    END IF
+  END DO
+
+
+  ! *******  setup orography orientation relative to the low level
+  ! wind and define parameters of the Anisotropic wave stress.
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      lo = (pulow(jl)<gvsec) .AND. (pulow(jl)>=-gvsec)
+      IF (lo) THEN
+        zu = pulow(jl) + 2.*gvsec
+      ELSE
+        zu = pulow(jl)
+      END IF
+      zphi = atan(pvlow(jl)/zu)
+      ppsi(jl, klev+1) = ptheta(jl)*rpi/180. - zphi
+      zb(jl) = 1. - 0.18*pgam(jl) - 0.04*pgam(jl)**2
+      zc(jl) = 0.48*pgam(jl) + 0.3*pgam(jl)**2
+      pd1(jl) = zb(jl) - (zb(jl)-zc(jl))*(sin(ppsi(jl,klev+1))**2)
+      pd2(jl) = (zb(jl)-zc(jl))*sin(ppsi(jl,klev+1))*cos(ppsi(jl,klev+1))
+      pdmod(jl) = sqrt(pd1(jl)**2+pd2(jl)**2)
+    END IF
+  END DO
+
+  ! ************ projet flow in plane of lowlevel stress *************
+  ! ************ Find critical levels...                 *************
+
+  DO jk = 1, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zvt1 = pulow(jl)*pum1(jl, jk) + pvlow(jl)*pvm1(jl, jk)
+        zvt2 = -pvlow(jl)*pum1(jl, jk) + pulow(jl)*pvm1(jl, jk)
+        zvpf(jl, jk) = (zvt1*pd1(jl)+zvt2*pd2(jl))/(znorm(jl)*pdmod(jl))
+      END IF
+      ptau(jl, jk) = 0.0
+      pzdep(jl, jk) = 0.0
+      ppsi(jl, jk) = 0.0
+      ll1(jl, jk) = .FALSE.
+    END DO
+  END DO
+  DO jk = 2, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zdp(jl, jk) = papm1(jl, jk) - papm1(jl, jk-1)
+        pvph(jl, jk) = ((paphm1(jl,jk)-papm1(jl,jk-1))*zvpf(jl,jk)+(papm1(jl, &
+          jk)-paphm1(jl,jk))*zvpf(jl,jk-1))/zdp(jl, jk)
+        IF (pvph(jl,jk)<gvsec) THEN
+          pvph(jl, jk) = gvsec
+          kcrit(jl) = jk
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! *         2.3     mean flow richardson number.
+
+
+  DO jk = 2, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zdwind = max(abs(zvpf(jl,jk)-zvpf(jl,jk-1)), gvsec)
+        pri(jl, jk) = pstab(jl, jk)*(zdp(jl,jk)/(rg*prho(jl,jk)*zdwind))**2
+        pri(jl, jk) = max(pri(jl,jk), grcrit)
+      END IF
+    END DO
+  END DO
+
+
+
+  ! *      define top of 'envelope' layer
+  ! ----------------------------
+
+  DO jl = kidia, kfdia
+    pnu(jl) = 0.0
+    znum(jl) = 0.0
+  END DO
+
+  DO jk = 2, klev - 1
+    DO jl = kidia, kfdia
+
+      IF (ktest(jl)==1) THEN
+
+        IF (jk>=kknu2(jl)) THEN
+
+          znum(jl) = pnu(jl)
+          zwind = (pulow(jl)*pum1(jl,jk)+pvlow(jl)*pvm1(jl,jk))/ &
+            max(sqrt(pulow(jl)**2+pvlow(jl)**2), gvsec)
+          zwind = max(sqrt(zwind**2), gvsec)
+          zdelp = paphm1(jl, jk+1) - paphm1(jl, jk)
+          zstabm = sqrt(max(pstab(jl,jk),gssec))
+          zstabp = sqrt(max(pstab(jl,jk+1),gssec))
+          zrhom = prho(jl, jk)
+          zrhop = prho(jl, jk+1)
+          pnu(jl) = pnu(jl) + (zdelp/rg)*((zstabp/zrhop+zstabm/zrhom)/2.)/ &
+            zwind
+          IF ((znum(jl)<=gfrcrit) .AND. (pnu(jl)>gfrcrit) .AND. (kkenvh( &
+            jl)==klev)) kkenvh(jl) = jk
+
+        END IF
+
+      END IF
+
+    END DO
+  END DO
+
+  ! calculation of a dynamical mixing height for when the waves
+  ! BREAK AT LOW LEVEL: The drag will be repartited over
+  ! a depths that depends on waves vertical wavelength,
+  ! not just between two adjacent model layers.
+  ! of gravity waves:
+
+  DO jl = kidia, kfdia
+    znup(jl) = 0.0
+    znum(jl) = 0.0
+  END DO
+
+  DO jk = klev - 1, 2, -1
+    DO jl = kidia, kfdia
+
+      IF (ktest(jl)==1) THEN
+
+        znum(jl) = znup(jl)
+        zwind = (pulow(jl)*pum1(jl,jk)+pvlow(jl)*pvm1(jl,jk))/ &
+          max(sqrt(pulow(jl)**2+pvlow(jl)**2), gvsec)
+        zwind = max(sqrt(zwind**2), gvsec)
+        zdelp = paphm1(jl, jk+1) - paphm1(jl, jk)
+        zstabm = sqrt(max(pstab(jl,jk),gssec))
+        zstabp = sqrt(max(pstab(jl,jk+1),gssec))
+        zrhom = prho(jl, jk)
+        zrhop = prho(jl, jk+1)
+        znup(jl) = znup(jl) + (zdelp/rg)*((zstabp/zrhop+zstabm/zrhom)/2.)/ &
+          zwind
+        IF ((znum(jl)<=rpi/4.) .AND. (znup(jl)>rpi/4.) .AND. (kkcrith( &
+          jl)==klev)) kkcrith(jl) = jk
+
+      END IF
+
+    END DO
+  END DO
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      kkcrith(jl) = max0(kkcrith(jl), ilevh*2)
+      kkcrith(jl) = max0(kkcrith(jl), kknu(jl))
+      IF (kcrit(jl)>=kkcrith(jl)) kcrit(jl) = 1
+    END IF
+  END DO
+
+  ! directional info for flow blocking *************************
+
+  DO jk = 1, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        lo = (pum1(jl,jk)<gvsec) .AND. (pum1(jl,jk)>=-gvsec)
+        IF (lo) THEN
+          zu = pum1(jl, jk) + 2.*gvsec
+        ELSE
+          zu = pum1(jl, jk)
+        END IF
+        zphi = atan(pvm1(jl,jk)/zu)
+        ppsi(jl, jk) = ptheta(jl)*rpi/180. - zphi
+      END IF
+    END DO
+  END DO
+
+  ! forms the vertical 'leakiness' **************************
+
+  DO jk = ilevh, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        pzdep(jl, jk) = 0
+        IF (jk>=kkenvh(jl) .AND. kkenvh(jl)/=klev) THEN
+          pzdep(jl, jk) = (pgeom1(jl,kkenvh(jl))-pgeom1(jl,jk))/ &
+            (pgeom1(jl,kkenvh(jl))-pgeom1(jl,klev))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE orosetup_strato
+SUBROUTINE gwstress_strato(nlon, nlev, kkcrit, ksect, kkhlim, ktest, kkcrith, &
+    kcrit, kkenvh, kknu, prho, pstab, pvph, pstd, psig, pmea, ppic, pval, &
+    ptfr, ptau, pgeom1, pgamma, pd1, pd2, pdmod, pnu)
+
+  ! **** *gwstress*
+
+  ! purpose.
+  ! --------
+  ! Compute the surface stress due to Gravity Waves, according
+  ! to the Phillips (1979) theory of 3-D flow above
+  ! anisotropic elliptic ridges.
+
+  ! The stress is reduced two account for cut-off flow over
+  ! hill.  The flow only see that part of the ridge located
+  ! above the blocked layer (see zeff).
+
+  ! **   interface.
+  ! ----------
+  ! call *gwstress*  from *gwdrag*
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+  ! ==== outputs ===
+
+  ! implicit arguments :   none
+  ! --------------------
+
+  ! method.
+  ! -------
+
+
+  ! externals.
+  ! ----------
+
+
+  ! reference.
+  ! ----------
+
+  ! LOTT and MILLER (1997)  &  LOTT (1999)
+
+  ! author.
+  ! -------
+
+  ! modifications.
+  ! --------------
+  ! f. lott put the new gwd on ifs      22/11/93
+
+  ! -----------------------------------------------------------------------
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   arguments
+  ! ---------
+
+  INTEGER nlon, nlev
+  INTEGER kkcrit(nlon), kkcrith(nlon), kcrit(nlon), ksect(nlon), &
+    kkhlim(nlon), ktest(nlon), kkenvh(nlon), kknu(nlon)
+
+  REAL prho(nlon, nlev+1), pstab(nlon, nlev+1), ptau(nlon, nlev+1), &
+    pvph(nlon, nlev+1), ptfr(nlon), pgeom1(nlon, nlev), pstd(nlon)
+
+  REAL pd1(nlon), pd2(nlon), pnu(nlon), psig(nlon), pgamma(nlon)
+  REAL pmea(nlon), ppic(nlon), pval(nlon)
+  REAL pdmod(nlon)
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+  ! zeff--real: effective height seen by the flow when there is blocking
+
+  INTEGER jl
+  REAL zeff
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.3   functions
+  ! ---------
+  ! ------------------------------------------------------------------
+
+  ! *         1.    initialization
+  ! --------------
+
+  ! PRINT *,' in gwstress'
+
+  ! *         3.1     gravity wave stress.
+
+
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+
+      ! effective mountain height above the blocked flow
+
+      zeff = ppic(jl) - pval(jl)
+      IF (kkenvh(jl)<klev) THEN
+        zeff = amin1(gfrcrit*pvph(jl,klev+1)/sqrt(pstab(jl,klev+1)), zeff)
+      END IF
+
+
+      ptau(jl, klev+1) = gkdrag*prho(jl, klev+1)*psig(jl)*pdmod(jl)/4./ &
+        pstd(jl)*pvph(jl, klev+1)*sqrt(pstab(jl,klev+1))*zeff**2
+
+
+      ! too small value of stress or  low level flow include critical level
+      ! or low level flow:  gravity wave stress nul.
+
+      ! lo=(ptau(jl,klev+1).lt.gtsec).or.(kcrit(jl).ge.kknu(jl))
+      ! *      .or.(pvph(jl,klev+1).lt.gvcrit)
+      ! if(lo) ptau(jl,klev+1)=0.0
+
+      ! print *,jl,ptau(jl,klev+1)
+
+    ELSE
+
+      ptau(jl, klev+1) = 0.0
+
+    END IF
+
+  END DO
+
+  ! write(21)(ptau(jl,klev+1),jl=kidia,kfdia)
+
+  RETURN
+END SUBROUTINE gwstress_strato
+
+SUBROUTINE gwprofil_strato(nlon, nlev, kgwd, kdx, ktest, kkcrit, kkcrith, &
+    kcrit, kkenvh, kknu, kknu2, paphm1, prho, pstab, ptfr, pvph, pri, ptau, &
+    pdmod, pnu, psig, pgamma, pstd, ppic, pval)
+
+  ! **** *gwprofil*
+
+  ! purpose.
+  ! --------
+
+  ! **   interface.
+  ! ----------
+  ! from *gwdrag*
+
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+
+  ! ==== outputs ===
+
+  ! implicit arguments :   none
+  ! --------------------
+
+  ! method:
+  ! -------
+  ! the stress profile for gravity waves is computed as follows:
+  ! it decreases linearly with heights from the ground
+  ! to the low-level indicated by kkcrith,
+  ! to simulates lee waves or
+  ! low-level gravity wave breaking.
+  ! above it is constant, except when the waves encounter a critical
+  ! level (kcrit) or when they break.
+  ! The stress is also uniformly distributed above the level
+  ! nstra.
+
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   ARGUMENTS
+  ! ---------
+
+  INTEGER nlon, nlev, kgwd
+  INTEGER kkcrit(nlon), kkcrith(nlon), kcrit(nlon), kdx(nlon), ktest(nlon), &
+    kkenvh(nlon), kknu(nlon), kknu2(nlon)
+
+  REAL paphm1(nlon, nlev+1), pstab(nlon, nlev+1), prho(nlon, nlev+1), &
+    pvph(nlon, nlev+1), pri(nlon, nlev+1), ptfr(nlon), ptau(nlon, nlev+1)
+
+  REAL pdmod(nlon), pnu(nlon), psig(nlon), pgamma(nlon), pstd(nlon), &
+    ppic(nlon), pval(nlon)
+
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+  ! ------------
+
+  INTEGER jl, jk
+  REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n, zdelp, zdelpt
+
+  REAL zdz2(klon, klev), znorm(klon), zoro(klon)
+  REAL ztau(klon, klev+1)
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.    INITIALIZATION
+  ! --------------
+
+  ! print *,' entree gwprofil'
+
+
+  ! *    COMPUTATIONAL CONSTANTS.
+  ! ------------- ----------
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      zoro(jl) = psig(jl)*pdmod(jl)/4./pstd(jl)
+      ztau(jl, klev+1) = ptau(jl, klev+1)
+      ! print *,jl,ptau(jl,klev+1)
+      ztau(jl, kkcrith(jl)) = grahilo*ptau(jl, klev+1)
+    END IF
+  END DO
+
+
+  DO jk = klev + 1, 1, -1
+    ! *         4.1    constant shear stress until top of the
+    ! low-level breaking/trapped layer
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk>kkcrith(jl)) THEN
+          zdelp = paphm1(jl, jk) - paphm1(jl, klev+1)
+          zdelpt = paphm1(jl, kkcrith(jl)) - paphm1(jl, klev+1)
+          ptau(jl, jk) = ztau(jl, klev+1) + zdelp/zdelpt*(ztau(jl,kkcrith(jl) &
+            )-ztau(jl,klev+1))
+        ELSE
+          ptau(jl, jk) = ztau(jl, kkcrith(jl))
+        END IF
+      END IF
+    END DO
+
+    ! *         4.15   constant shear stress until the top of the
+    ! low level flow layer.
+
+
+    ! *         4.2    wave displacement at next level.
+
+
+  END DO
+
+
+  ! *         4.4    wave richardson number, new wave displacement
+  ! *                and stress:  breaking evaluation and critical
+  ! level
+
+
+  DO jk = klev, 1, -1
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        znorm(jl) = prho(jl, jk)*sqrt(pstab(jl,jk))*pvph(jl, jk)
+        zdz2(jl, jk) = ptau(jl, jk)/amax1(znorm(jl), gssec)/zoro(jl)
+      END IF
+    END DO
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk<kkcrith(jl)) THEN
+          IF ((ptau(jl,jk+1)<gtsec) .OR. (jk<=kcrit(jl))) THEN
+            ptau(jl, jk) = 0.0
+          ELSE
+            zsqr = sqrt(pri(jl,jk))
+            zalfa = sqrt(pstab(jl,jk)*zdz2(jl,jk))/pvph(jl, jk)
+            zriw = pri(jl, jk)*(1.-zalfa)/(1+zalfa*zsqr)**2
+            IF (zriw<grcrit) THEN
+              ! print *,' breaking!!!',ptau(jl,jk)
+              zdel = 4./zsqr/grcrit + 1./grcrit**2 + 4./grcrit
+              zb = 1./grcrit + 2./zsqr
+              zalpha = 0.5*(-zb+sqrt(zdel))
+              zdz2n = (pvph(jl,jk)*zalpha)**2/pstab(jl, jk)
+              ptau(jl, jk) = znorm(jl)*zdz2n*zoro(jl)
+            END IF
+
+            ptau(jl, jk) = amin1(ptau(jl,jk), ptau(jl,jk+1))
+
+          END IF
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! REORGANISATION OF THE STRESS PROFILE AT LOW LEVEL
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      ztau(jl, kkcrith(jl)-1) = ptau(jl, kkcrith(jl)-1)
+      ztau(jl, nstra) = ptau(jl, nstra)
+    END IF
+  END DO
+
+  DO jk = 1, klev
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+
+        IF (jk>kkcrith(jl)-1) THEN
+
+          zdelp = paphm1(jl, jk) - paphm1(jl, klev+1)
+          zdelpt = paphm1(jl, kkcrith(jl)-1) - paphm1(jl, klev+1)
+          ptau(jl, jk) = ztau(jl, klev+1) + (ztau(jl,kkcrith(jl)-1)-ztau(jl, &
+            klev+1))*zdelp/zdelpt
+
+        END IF
+      END IF
+
+    END DO
+
+    ! REORGANISATION AT THE MODEL TOP....
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+
+        IF (jk<nstra) THEN
+
+          zdelp = paphm1(jl, nstra)
+          zdelpt = paphm1(jl, jk)
+          ptau(jl, jk) = ztau(jl, nstra)*zdelpt/zdelp
+          ! ptau(jl,jk)=ztau(jl,nstra)
+
+        END IF
+
+      END IF
+
+    END DO
+
+
+  END DO
+
+
+123 FORMAT (I4, 1X, 20(F6.3,1X))
+
+
+  RETURN
+END SUBROUTINE gwprofil_strato
+SUBROUTINE lift_noro_strato(nlon, nlev, dtime, paprs, pplay, plat, pmea, &
+    pstd, psig, pgam, pthe, ppic, pval, kgwd, kdx, ktest, t, u, v, pulow, &
+    pvlow, pustr, pvstr, d_t, d_u, d_v)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): F.Lott (LMD/CNRS) date: 19950201
+  ! Object: Mountain lift interface (enhanced vortex stretching).
+  ! Made necessary because:
+  ! 1. in the LMD-GCM Layers are from bottom to top,
+  ! contrary to most European GCM.
+  ! 2. the altitude above ground of each model layers
+  ! needs to be known (variable zgeom)
+  ! ======================================================================
+  ! Explicit Arguments:
+  ! ==================
+  ! nlon----input-I-Total number of horizontal points that get into physics
+  ! nlev----input-I-Number of vertical levels
+  ! dtime---input-R-Time-step (s)
+  ! paprs---input-R-Pressure in semi layers    (Pa)
+  ! pplay---input-R-Pressure model-layers      (Pa)
+  ! t-------input-R-temperature (K)
+  ! u-------input-R-Horizontal wind (m/s)
+  ! v-------input-R-Meridional wind (m/s)
+  ! pmea----input-R-Mean Orography (m)
+  ! pstd----input-R-SSO standard deviation (m)
+  ! psig----input-R-SSO slope
+  ! pgam----input-R-SSO Anisotropy
+  ! pthe----input-R-SSO Angle
+  ! ppic----input-R-SSO Peacks elevation (m)
+  ! pval----input-R-SSO Valleys elevation (m)
+
+  ! kgwd- -input-I: Total nb of points where the orography schemes are active
+  ! ktest--input-I: Flags to indicate active points
+  ! kdx----input-I: Locate the physical location of an active point.
+
+  ! pulow, pvlow -output-R: Low-level wind
+  ! pustr, pvstr -output-R: Surface stress due to SSO drag      (Pa)
+
+  ! d_t-----output-R: T increment
+  ! d_u-----output-R: U increment
+  ! d_v-----output-R: V increment
+
+  ! Implicit Arguments:
+  ! ===================
+
+  ! iim--common-I: Number of longitude intervals
+  ! jjm--common-I: Number of latitude intervals
+  ! klon-common-I: Number of points seen by the physics
+  ! (iim+1)*(jjm+1) for instance
+  ! klev-common-I: Number of vertical layers
+  ! ======================================================================
+  ! Local Variables:
+  ! ================
+
+  ! zgeom-----R: Altitude of layer above ground
+  ! pt, pu, pv --R: t u v from top to bottom
+  ! pdtdt, pdudt, pdvdt --R: t u v tendencies (from top to bottom)
+  ! papmf: pressure at model layer (from top to bottom)
+  ! papmh: pressure at model 1/2 layer (from top to bottom)
+
+  ! ======================================================================
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+
+  ! ARGUMENTS
+
+  INTEGER nlon, nlev
+  REAL dtime
+  REAL paprs(klon, klev+1)
+  REAL pplay(klon, klev)
+  REAL plat(nlon), pmea(nlon)
+  REAL pstd(nlon), psig(nlon), pgam(nlon), pthe(nlon)
+  REAL ppic(nlon), pval(nlon)
+  REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon)
+  REAL t(nlon, nlev), u(nlon, nlev), v(nlon, nlev)
+  REAL d_t(nlon, nlev), d_u(nlon, nlev), d_v(nlon, nlev)
+
+  INTEGER i, k, kgwd, kdx(nlon), ktest(nlon)
+
+  ! Variables locales:
+
+  REAL zgeom(klon, klev)
+  REAL pdtdt(klon, klev), pdudt(klon, klev), pdvdt(klon, klev)
+  REAL pt(klon, klev), pu(klon, klev), pv(klon, klev)
+  REAL papmf(klon, klev), papmh(klon, klev+1)
+
+  ! initialiser les variables de sortie (pour securite)
+
+
+  ! print *,'in lift_noro'
+  DO i = 1, klon
+    pulow(i) = 0.0
+    pvlow(i) = 0.0
+    pustr(i) = 0.0
+    pvstr(i) = 0.0
+  END DO
+  DO k = 1, klev
+    DO i = 1, klon
+      d_t(i, k) = 0.0
+      d_u(i, k) = 0.0
+      d_v(i, k) = 0.0
+      pdudt(i, k) = 0.0
+      pdvdt(i, k) = 0.0
+      pdtdt(i, k) = 0.0
+    END DO
+  END DO
+
+  ! preparer les variables d'entree (attention: l'ordre des niveaux
+  ! verticaux augmente du haut vers le bas)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      pt(i, k) = t(i, klev-k+1)
+      pu(i, k) = u(i, klev-k+1)
+      pv(i, k) = v(i, klev-k+1)
+      papmf(i, k) = pplay(i, klev-k+1)
+    END DO
+  END DO
+  DO k = 1, klev + 1
+    DO i = 1, klon
+      papmh(i, k) = paprs(i, klev-k+2)
+    END DO
+  END DO
+  DO i = 1, klon
+    zgeom(i, klev) = rd*pt(i, klev)*log(papmh(i,klev+1)/papmf(i,klev))
+  END DO
+  DO k = klev - 1, 1, -1
+    DO i = 1, klon
+      zgeom(i, k) = zgeom(i, k+1) + rd*(pt(i,k)+pt(i,k+1))/2.0*log(papmf(i,k+ &
+        1)/papmf(i,k))
+    END DO
+  END DO
+
+  ! appeler la routine principale
+
+
+  CALL orolift_strato(klon, klev, kgwd, kdx, ktest, dtime, papmh, papmf, &
+    zgeom, pt, pu, pv, plat, pmea, pstd, psig, pgam, pthe, ppic, pval, pulow, &
+    pvlow, pdudt, pdvdt, pdtdt)
+
+  DO k = 1, klev
+    DO i = 1, klon
+      d_u(i, klev+1-k) = dtime*pdudt(i, k)
+      d_v(i, klev+1-k) = dtime*pdvdt(i, k)
+      d_t(i, klev+1-k) = dtime*pdtdt(i, k)
+      pustr(i) = pustr(i) + pdudt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+      pvstr(i) = pvstr(i) + pdvdt(i, k)*(papmh(i,k+1)-papmh(i,k))/rg
+    END DO
+  END DO
+
+  ! print *,' out lift_noro'
+
+  RETURN
+END SUBROUTINE lift_noro_strato
+SUBROUTINE orolift_strato(nlon, nlev, kgwd, kdx, ktest, ptsphy, paphm1, &
+    papm1, pgeom1, ptm1, pum1, pvm1, plat, pmea, pstd, psig, pgam, pthe, &
+    ppic, pval &                   ! OUTPUTS
+    , pulow, pvlow, pvom, pvol, pte)
+
+
+  ! **** *OROLIFT: SIMULATE THE GEOSTROPHIC LIFT.
+
+  ! PURPOSE.
+  ! --------
+  ! this routine computes the physical tendencies of the
+  ! prognostic variables u,v  when enhanced vortex stretching
+  ! is needed.
+
+  ! **   INTERFACE.
+  ! ----------
+  ! CALLED FROM *lift_noro
+  ! explicit arguments :
+  ! --------------------
+  ! ==== inputs ===
+  ! nlon----input-I-Total number of horizontal points that get into physics
+  ! nlev----input-I-Number of vertical levels
+
+  ! kgwd- -input-I: Total nb of points where the orography schemes are active
+  ! ktest--input-I: Flags to indicate active points
+  ! kdx----input-I: Locate the physical location of an active point.
+  ! ptsphy--input-R-Time-step (s)
+  ! paphm1--input-R: pressure at model 1/2 layer
+  ! papm1---input-R: pressure at model layer
+  ! pgeom1--input-R: Altitude of layer above ground
+  ! ptm1, pum1, pvm1--R-: t, u and v
+  ! pmea----input-R-Mean Orography (m)
+  ! pstd----input-R-SSO standard deviation (m)
+  ! psig----input-R-SSO slope
+  ! pgam----input-R-SSO Anisotropy
+  ! pthe----input-R-SSO Angle
+  ! ppic----input-R-SSO Peacks elevation (m)
+  ! pval----input-R-SSO Valleys elevation (m)
+  ! plat----input-R-Latitude (degree)
+
+  ! ==== outputs ===
+  ! pulow, pvlow -output-R: Low-level wind
+
+  ! pte -----output-R: T tendency
+  ! pvom-----output-R: U tendency
+  ! pvol-----output-R: V tendency
+
+
+  ! Implicit Arguments:
+  ! ===================
+
+  ! klon-common-I: Number of points seen by the physics
+  ! klev-common-I: Number of vertical layers
+
+
+  ! ----------
+
+  ! AUTHOR.
+  ! -------
+  ! F.LOTT  LMD 22/11/95
+
+  USE dimphy
+  IMPLICIT NONE
+
+
+  include "YOMCST.h"
+  include "YOEGWD.h"
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   ARGUMENTS
+  ! ---------
+
+
+  INTEGER nlon, nlev, kgwd
+  REAL ptsphy
+  REAL pte(nlon, nlev), pvol(nlon, nlev), pvom(nlon, nlev), pulow(nlon), &
+    pvlow(nlon)
+  REAL pum1(nlon, nlev), pvm1(nlon, nlev), ptm1(nlon, nlev), plat(nlon), &
+    pmea(nlon), pstd(nlon), psig(nlon), pgam(nlon), pthe(nlon), ppic(nlon), &
+    pval(nlon), pgeom1(nlon, nlev), papm1(nlon, nlev), paphm1(nlon, nlev+1)
+
+  INTEGER kdx(nlon), ktest(nlon)
+  ! -----------------------------------------------------------------------
+
+  ! *       0.2   local arrays
+
+  INTEGER jl, ilevh, jk
+  REAL zhgeo, zdelp, zslow, zsqua, zscav, zbet
+  ! ------------
+  INTEGER iknub(klon), iknul(klon)
+  LOGICAL ll1(klon, klev+1)
+
+  REAL ztau(klon, klev+1), ztav(klon, klev+1), zrho(klon, klev+1)
+  REAL zdudt(klon), zdvdt(klon)
+  REAL zhcrit(klon, klev)
+
+  LOGICAL lifthigh
+  REAL zcons1, ztmst
+  CHARACTER (LEN=20) :: modname = 'orolift_strato'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.1  initialisations
+  ! ---------------
+
+  lifthigh = .FALSE.
+
+  IF (nlon/=klon .OR. nlev/=klev) THEN
+    abort_message = 'pb dimension'
+    CALL abort_physic(modname, abort_message, 1)
+  END IF
+  zcons1 = 1./rd
+  ztmst = ptsphy
+
+  DO jl = kidia, kfdia
+    zrho(jl, klev+1) = 0.0
+    pulow(jl) = 0.0
+    pvlow(jl) = 0.0
+    iknub(jl) = klev
+    iknul(jl) = klev
+    ilevh = klev/3
+    ll1(jl, klev+1) = .FALSE.
+    DO jk = 1, klev
+      pvom(jl, jk) = 0.0
+      pvol(jl, jk) = 0.0
+      pte(jl, jk) = 0.0
+    END DO
+  END DO
+
+
+  ! *         2.1     DEFINE LOW LEVEL WIND, PROJECT WINDS IN PLANE OF
+  ! *                 LOW LEVEL WIND, DETERMINE SECTOR IN WHICH TO TAKE
+  ! *                 THE VARIANCE AND SET INDICATOR FOR CRITICAL LEVELS.
+
+
+
+  DO jk = klev, 1, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        zhcrit(jl, jk) = amax1(ppic(jl)-pval(jl), 100.)
+        zhgeo = pgeom1(jl, jk)/rg
+        ll1(jl, jk) = (zhgeo>zhcrit(jl,jk))
+        IF (ll1(jl,jk) .NEQV. ll1(jl,jk+1)) THEN
+          iknub(jl) = jk
+        END IF
+      END IF
+    END DO
+  END DO
+
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      iknub(jl) = max(iknub(jl), klev/2)
+      iknul(jl) = max(iknul(jl), 2*klev/3)
+      IF (iknub(jl)>nktopg) iknub(jl) = nktopg
+      IF (iknub(jl)==nktopg) iknul(jl) = klev
+      IF (iknub(jl)==iknul(jl)) iknub(jl) = iknul(jl) - 1
+    END IF
+  END DO
+
+  DO jk = klev, 2, -1
+    DO jl = kidia, kfdia
+      zrho(jl, jk) = 2.*paphm1(jl, jk)*zcons1/(ptm1(jl,jk)+ptm1(jl,jk-1))
+    END DO
+  END DO
+  ! print *,'  dans orolift: 223'
+
+  ! ********************************************************************
+
+  ! *     define low level flow
+  ! -------------------
+  DO jk = klev, 1, -1
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        IF (jk>=iknub(jl) .AND. jk<=iknul(jl)) THEN
+          pulow(jl) = pulow(jl) + pum1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk) &
+            )
+          pvlow(jl) = pvlow(jl) + pvm1(jl, jk)*(paphm1(jl,jk+1)-paphm1(jl,jk) &
+            )
+          zrho(jl, klev+1) = zrho(jl, klev+1) + zrho(jl, jk)*(paphm1(jl,jk+1) &
+            -paphm1(jl,jk))
+        END IF
+      END IF
+    END DO
+  END DO
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      pulow(jl) = pulow(jl)/(paphm1(jl,iknul(jl)+1)-paphm1(jl,iknub(jl)))
+      pvlow(jl) = pvlow(jl)/(paphm1(jl,iknul(jl)+1)-paphm1(jl,iknub(jl)))
+      zrho(jl, klev+1) = zrho(jl, klev+1)/(paphm1(jl,iknul(jl)+1)-paphm1(jl, &
+        iknub(jl)))
+    END IF
+  END DO
+
+  ! ***********************************************************
+
+  ! *         3.      COMPUTE MOUNTAIN LIFT
+
+
+  DO jl = kidia, kfdia
+    IF (ktest(jl)==1) THEN
+      ztau(jl, klev+1) = -gklift*zrho(jl, klev+1)*2.*romega* & ! *
+                                                               ! (2*pstd(jl)+pmea(jl))*
+        2*pstd(jl)*sin(rpi/180.*plat(jl))*pvlow(jl)
+      ztav(jl, klev+1) = gklift*zrho(jl, klev+1)*2.*romega* & ! *
+                                                              ! (2*pstd(jl)+pmea(jl))*
+        2*pstd(jl)*sin(rpi/180.*plat(jl))*pulow(jl)
+    ELSE
+      ztau(jl, klev+1) = 0.0
+      ztav(jl, klev+1) = 0.0
+    END IF
+  END DO
+
+  ! *         4.      COMPUTE LIFT PROFILE
+  ! *                 --------------------
+
+
+
+  DO jk = 1, klev
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        ztau(jl, jk) = ztau(jl, klev+1)*paphm1(jl, jk)/paphm1(jl, klev+1)
+        ztav(jl, jk) = ztav(jl, klev+1)*paphm1(jl, jk)/paphm1(jl, klev+1)
+      ELSE
+        ztau(jl, jk) = 0.0
+        ztav(jl, jk) = 0.0
+      END IF
+    END DO
+  END DO
+
+
+  ! *         5.      COMPUTE TENDENCIES.
+  ! *                 -------------------
+  IF (lifthigh) THEN
+    ! EXPLICIT SOLUTION AT ALL LEVELS
+
+    DO jk = 1, klev
+      DO jl = kidia, kfdia
+        IF (ktest(jl)==1) THEN
+          zdelp = paphm1(jl, jk+1) - paphm1(jl, jk)
+          zdudt(jl) = -rg*(ztau(jl,jk+1)-ztau(jl,jk))/zdelp
+          zdvdt(jl) = -rg*(ztav(jl,jk+1)-ztav(jl,jk))/zdelp
+        END IF
+      END DO
+    END DO
+
+    ! PROJECT PERPENDICULARLY TO U NOT TO DESTROY ENERGY
+
+    DO jk = 1, klev
+      DO jl = kidia, kfdia
+        IF (ktest(jl)==1) THEN
+
+          zslow = sqrt(pulow(jl)**2+pvlow(jl)**2)
+          zsqua = amax1(sqrt(pum1(jl,jk)**2+pvm1(jl,jk)**2), gvsec)
+          zscav = -zdudt(jl)*pvm1(jl, jk) + zdvdt(jl)*pum1(jl, jk)
+          IF (zsqua>gvsec) THEN
+            pvom(jl, jk) = -zscav*pvm1(jl, jk)/zsqua**2
+            pvol(jl, jk) = zscav*pum1(jl, jk)/zsqua**2
+          ELSE
+            pvom(jl, jk) = 0.0
+            pvol(jl, jk) = 0.0
+          END IF
+          zsqua = sqrt(pum1(jl,jk)**2+pum1(jl,jk)**2)
+          IF (zsqua<zslow) THEN
+            pvom(jl, jk) = zsqua/zslow*pvom(jl, jk)
+            pvol(jl, jk) = zsqua/zslow*pvol(jl, jk)
+          END IF
+
+        END IF
+      END DO
+    END DO
+
+    ! 6.  LOW LEVEL LIFT, SEMI IMPLICIT:
+    ! ----------------------------------
+
+  ELSE
+
+    DO jl = kidia, kfdia
+      IF (ktest(jl)==1) THEN
+        DO jk = klev, iknub(jl), -1
+          zbet = gklift*2.*romega*sin(rpi/180.*plat(jl))*ztmst* &
+            (pgeom1(jl,iknub(jl)-1)-pgeom1(jl,jk))/ &
+            (pgeom1(jl,iknub(jl)-1)-pgeom1(jl,klev))
+          zdudt(jl) = -pum1(jl, jk)/ztmst/(1+zbet**2)
+          zdvdt(jl) = -pvm1(jl, jk)/ztmst/(1+zbet**2)
+          pvom(jl, jk) = zbet**2*zdudt(jl) - zbet*zdvdt(jl)
+          pvol(jl, jk) = zbet*zdudt(jl) + zbet**2*zdvdt(jl)
+        END DO
+      END IF
+    END DO
+
+  END IF
+
+  ! print *,' out orolift'
+
+  RETURN
+END SUBROUTINE orolift_strato
+SUBROUTINE sugwd_strato(nlon, nlev, paprs, pplay)
+
+
+  ! **** *SUGWD* INITIALIZE COMMON YOEGWD CONTROLLING GRAVITY WAVE DRAG
+
+  ! PURPOSE.
+  ! --------
+  ! INITIALIZE YOEGWD, THE COMMON THAT CONTROLS THE
+  ! GRAVITY WAVE DRAG PARAMETRIZATION.
+  ! VERY IMPORTANT:
+  ! ______________
+  ! THIS ROUTINE SET_UP THE "TUNABLE PARAMETERS" OF THE
+  ! VARIOUS SSO SCHEMES
+
+  ! **   INTERFACE.
+  ! ----------
+  ! CALL *SUGWD* FROM *SUPHEC*
+  ! -----        ------
+
+  ! EXPLICIT ARGUMENTS :
+  ! --------------------
+  ! PAPRS,PPLAY : Pressure at semi and full model levels
+  ! NLEV        : number of model levels
+  ! NLON        : number of points treated in the physics
+
+  ! IMPLICIT ARGUMENTS :
+  ! --------------------
+  ! COMMON YOEGWD
+  ! -GFRCRIT-R:  Critical Non-dimensional mountain Height
+  ! (HNC in (1),    LOTT 1999)
+  ! -GKWAKE--R:  Bluff-body drag coefficient for low level wake
+  ! (Cd in (2),     LOTT 1999)
+  ! -GRCRIT--R:  Critical Richardson Number
+  ! (Ric, End of first column p791 of LOTT 1999)
+  ! -GKDRAG--R:  Gravity wave drag coefficient
+  ! (G in (3),      LOTT 1999)
+  ! -GKLIFT--R:  Mountain Lift coefficient
+  ! (Cl in (4),     LOTT 1999)
+  ! -GHMAX---R:  Not used
+  ! -GRAHILO-R:  Set-up the trapped waves fraction
+  ! (Beta , End of first column,  LOTT 1999)
+
+  ! -GSIGCR--R:  Security value for blocked flow depth
+  ! -NKTOPG--I:  Security value for blocked flow level
+  ! -nstra----I:  An estimate to qualify the upper levels of
+  ! the model where one wants to impose strees
+  ! profiles
+  ! -GSSECC--R:  Security min value for low-level B-V frequency
+  ! -GTSEC---R:  Security min value for anisotropy and GW stress.
+  ! -GVSEC---R:  Security min value for ulow
+
+
+  ! METHOD.
+  ! -------
+  ! SEE DOCUMENTATION
+
+  ! EXTERNALS.
+  ! ----------
+  ! NONE
+
+  ! REFERENCE.
+  ! ----------
+  ! Lott, 1999: Alleviation of stationary biases in a GCM through...
+  ! Monthly Weather Review, 127, pp 788-801.
+
+  ! AUTHOR.
+  ! -------
+  ! FRANCOIS LOTT        *LMD*
+
+  ! MODIFICATIONS.
+  ! --------------
+  ! ORIGINAL : 90-01-01 (MARTIN MILLER, ECMWF)
+  ! LAST:  99-07-09     (FRANCOIS LOTT,LMD)
+  ! ------------------------------------------------------------------
+  USE dimphy
+  USE mod_phys_lmdz_para
+  USE mod_grid_phy_lmdz
+  IMPLICIT NONE
+
+  ! -----------------------------------------------------------------
+  include "YOEGWD.h"
+  ! ----------------------------------------------------------------
+
+  ! ARGUMENTS
+  INTEGER nlon, nlev
+  REAL paprs(nlon, nlev+1)
+  REAL pplay(nlon, nlev)
+
+  INTEGER jk
+  REAL zpr, ztop, zsigt, zpm1r
+  REAL :: pplay_glo(klon_glo, nlev)
+  REAL :: paprs_glo(klon_glo, nlev+1)
+
+  ! *       1.    SET THE VALUES OF THE PARAMETERS
+  ! --------------------------------
+
+
+  PRINT *, ' DANS SUGWD NLEV=', nlev
+  ghmax = 10000.
+
+  zpr = 100000.
+  ZTOP=0.00005
+  zsigt = 0.94
+  ! old  ZPR=80000.
+  ! old  ZSIGT=0.85
+
+  CALL gather(pplay, pplay_glo)
+  CALL bcast(pplay_glo)
+  CALL gather(paprs, paprs_glo)
+  CALL bcast(paprs_glo)
+
+  DO jk = 1, nlev
+    zpm1r = pplay_glo(klon_glo/2+1, jk)/paprs_glo(klon_glo/2+1, 1)
+    IF (zpm1r>=zsigt) THEN
+      nktopg = jk
+    END IF
+    zpm1r = pplay_glo(klon_glo/2+1, jk)/paprs_glo(klon_glo/2+1, 1)
+    IF (zpm1r>=ztop) THEN
+      nstra = jk
+    END IF
+  END DO
+
+  ! inversion car dans orodrag on compte les niveaux a l'envers
+  nktopg = nlev - nktopg + 1
+  nstra = nlev - nstra
+  PRINT *, ' DANS SUGWD nktopg=', nktopg
+  PRINT *, ' DANS SUGWD nstra=', nstra
+  if (nstra == 0) call abort_physic("sugwd_strato", "no level in stratosphere", 1)
+
+!  Valeurs lues dans les .def, ou attribues dans conf_phys
+  !gkdrag = 0.2   
+  !grahilo = 0.1
+  !grcrit = 1.00
+  !gfrcrit = 0.70
+  !gkwake = 0.40
+  !gklift = 0.25
+
+  gsigcr = 0.80 ! Top of low level flow
+  gvcrit = 0.1
+
+  WRITE (UNIT=6, FMT='('' *** SSO essential constants ***'')')
+  WRITE (UNIT=6, FMT='('' *** SPECIFIED IN SUGWD ***'')')
+  WRITE (UNIT=6, FMT='('' Gravity wave ct '',E13.7,'' '')') gkdrag
+  WRITE (UNIT=6, FMT='('' Trapped/total wave dag '',E13.7,'' '')') grahilo
+  WRITE (UNIT=6, FMT='('' Critical Richardson   = '',E13.7,'' '')') grcrit
+  WRITE (UNIT=6, FMT='('' Critical Froude'',e13.7)') gfrcrit
+  WRITE (UNIT=6, FMT='('' Low level Wake bluff cte'',e13.7)') gkwake
+  WRITE (UNIT=6, FMT='('' Low level lift  cte'',e13.7)') gklift
+
+  ! ----------------------------------------------------------------
+
+  ! *       2.    SET VALUES OF SECURITY PARAMETERS
+  ! ---------------------------------
+
+
+  gvsec = 0.10
+  gssec = 0.0001
+
+  gtsec = 0.00001
+
+  RETURN
+END SUBROUTINE sugwd_strato
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ozonecm_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ozonecm_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ozonecm_m.F90	(revision 3330)
@@ -0,0 +1,97 @@
+! $Header$
+module ozonecm_m
+
+  IMPLICIT NONE
+
+contains
+
+  function ozonecm(rlat, paprs,read_climoz, rjour)
+
+    ! The ozone climatology is based on an analytic formula which fits the
+    ! Krueger and Mintzner (1976) profile, as well as the variations with
+    ! altitude and latitude of the maximum ozone concentrations and the total
+    ! column ozone concentration of Keating and Young (1986). The analytic
+    ! formula have been established by J.-F. Royer (CRNM, Meteo France), who
+    ! also provided us the code.
+
+    ! A. J. Krueger and R. A. Minzner, A Mid-Latitude Ozone Model for the
+    ! 1976 U.S. Standard Atmosphere, J. Geophys. Res., 81, 4477, (1976).
+
+    ! Keating, G. M. and D. F. Young, 1985: Interim reference models for the
+    ! middle atmosphere, Handbook for MAP, vol. 16, 205-229.
+
+    USE dimphy, only: klon, klev
+    use assert_m, only: assert
+
+    REAL, INTENT (IN) :: rlat(:) ! (klon)
+    REAL, INTENT (IN) :: paprs(:, :) ! (klon,klev+1)
+    REAL, INTENT (IN) :: rjour
+    INTEGER, INTENT (IN) :: read_climoz
+
+    REAL ozonecm(klon,klev)
+    ! "ozonecm(j, k)" is the column-density of ozone in cell "(j, k)", that is
+    ! between interface "k" and interface "k + 1", in kDU.
+
+    ! Variables local to the procedure:
+
+    REAL tozon ! equivalent pressure of ozone above interface "k", in Pa
+    real pi, pl
+    INTEGER i, k
+
+    REAL field(klon,klev+1)
+    ! "field(:, k)" is the column-density of ozone between interface
+    ! "k" and the top of the atmosphere (interface "llm + 1"), in kDU.
+
+    real, PARAMETER:: ps=101325.
+    REAL, parameter:: an = 360., zo3q3 = 4E-8
+    REAL, parameter:: dobson_unit = 2.1415E-5 ! in kg m-2
+    REAL gms, zslat,zslat2, zsint, zcost, z, ppm, qpm, a
+    REAL asec, bsec, aprim, zo3a3
+
+    !----------------------------------------------------------
+
+    call assert((/size(rlat), size(paprs, 1)/) == klon, "ozonecm klon")
+    call assert(size(paprs, 2) == klev + 1, "ozonecm klev")
+
+    pi = 4. * atan(1.)
+    DO k = 1, klev
+       DO i = 1, klon
+          zslat = sin(pi / 180. * rlat(i))
+          zslat2=zslat*zslat
+          IF (read_climoz==-1) zslat=0. ! Imposing hemispheric symetry
+          zsint = sin(2 * pi * (rjour + 15.) / an)
+          zcost = cos(2 * pi * (rjour + 15.) / an)
+          z = 0.0531 + zsint * (-0.001595+0.009443*zslat) &
+               + zcost * (-0.001344-0.00346*zslat) &
+               + zslat2 * (.056222 + zslat2 &
+               * (-.037609+.012248*zsint+.00521*zcost+.008890*zslat))
+          zo3a3 = zo3q3/ps/2.
+          z = z - zo3q3*ps
+          gms = z
+          ppm = 800. - 500.*zslat2 - 150.*zcost*zslat
+          qpm = 1.74E-5 - 7.5E-6*zslat2 - 1.7E-6*zcost*zslat
+          bsec = 2650. + 5000.*zslat2
+          a = 4.0*(bsec)**(3./2.)*(ppm)**(3./2.)*(1.0+(bsec/ps)**(3./2.))
+          a = a/(bsec**(3./2.)+ppm**(3./2.))**2
+          aprim = (2.666666*qpm*ppm-a*gms)/(1.0-a)
+          aprim = amax1(0., aprim)
+          asec = (gms-aprim)*(1.0+(bsec/ps)**(3./2.))
+          asec = amax1(0.0, asec)
+          aprim = gms - asec/(1.+(bsec/ps)**(3./2.))
+          pl = paprs(i, k)
+          tozon = aprim / (1. + 3. * (ppm / pl)**2) &
+               + asec / (1. + (bsec / pl)**(3./2.)) + zo3a3 * pl * pl
+          ! Convert from Pa to kDU:
+          field(i, k) = tozon / 9.81 / dobson_unit / 1e3
+       END DO
+    END DO
+
+    field(:,klev+1) = 0.
+    forall (k = 1: klev) ozonecm(:,k) = field(:,k) - field(:,k+1)
+    ozonecm = max(ozonecm, 1e-12)
+
+!    print*,'ozonecm Version2'
+
+  END function ozonecm
+
+end module ozonecm_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/paramlmdz_phy_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/paramlmdz_phy_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/paramlmdz_phy_mod.F90	(revision 3330)
@@ -0,0 +1,237 @@
+MODULE paramLMDZ_phy_mod 
+
+! Olivier 13/07/2016
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+CONTAINS
+
+  SUBROUTINE ini_paramLMDZ_phy(dtime,nid_ctesGCM)
+
+    USE iophy 
+    USE dimphy
+    USE ioipsl, only: histbeg, histvert, histdef, histend, ymds2ju
+    USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
+    USE geometry_mod, ONLY: longitude_deg, latitude_deg
+    USE mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, klon_glo
+    USE time_phylmdz_mod, ONLY: annee_ref, day_ref, itau_phy, pdtphys
+    USE mod_phys_lmdz_transfert_para, ONLY: gather, bcast
+
+    IMPLICIT NONE
+
+    include "clesphys.h"
+    include "YOMCST.h"
+
+    REAL, INTENT(OUT)    :: dtime
+    INTEGER, INTENT(OUT) :: nid_ctesGCM
+
+    REAL,DIMENSION(klon_glo)        :: rlat_glo
+    REAL,DIMENSION(klon_glo)        :: rlon_glo
+    INTEGER i, idayref, ISW, itau_w
+    REAL zstophy, zout
+    REAL zx_lon(nbp_lon,nbp_lat)
+    REAL zx_lat(nbp_lon,nbp_lat)
+
+    CHARACTER*1 ch1
+    INTEGER nhori
+    INTEGER, PARAMETER :: np=1
+
+    REAL zjulian
+    SAVE zjulian
+!$OMP THREADPRIVATE(zjulian)
+
+!IM    Implemente en modes sequentiel et parallele
+
+       CALL gather(latitude_deg,rlat_glo)
+       CALL bcast(rlat_glo)
+       CALL gather(longitude_deg,rlon_glo)
+       CALL bcast(rlon_glo)
+
+!$OMP MASTER
+      IF (is_mpi_root) THEN
+!
+!       zstophy = pdtphys
+!       zout = -1
+!--OB modified for daily output
+       zstophy = 86400.
+       zout = 86400.
+!
+       idayref = day_ref
+       CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+!
+       CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon_glo,zx_lon)
+       IF (nbp_lon.GT.1) THEN
+       DO i = 1, nbp_lon
+         zx_lon(i,1) = rlon_glo(i+1)
+         zx_lon(i,nbp_lat) = rlon_glo(i+1)
+       ENDDO
+       ENDIF
+!
+       CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat_glo,zx_lat)
+!
+       CALL histbeg("paramLMDZ_phy.nc",  &
+                       np,zx_lon(np:np,1), np,zx_lat(1,np:np), &
+                       1,1,1,1, &
+                       itau_phy, zjulian, dtime, &
+                       nhori, nid_ctesGCM)
+!
+       CALL histdef(nid_ctesGCM, "R_ecc",  &
+                      "Excentricite","-", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "R_peri",  &
+                      "Equinoxe","-", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "R_incl",  &
+                      "Inclinaison","deg", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "solaire",  &
+                      "Constante solaire","W/m2", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+#ifdef CPP_RRTM
+       IF (iflag_rrtm.EQ.1) THEN
+         DO ISW=1, NSW
+           WRITE(ch1,'(i1)') ISW
+           CALL histdef(nid_ctesGCM, "rsun"//ch1,  &
+                      "Fraction constante solaire bande "//ch1,"W/m2", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+         ENDDO
+       ENDIF
+#endif
+!
+       CALL histdef(nid_ctesGCM, "co2_ppm",  &
+                      "Concentration du CO2", "ppm", &
+                      1,1,nhori, 1,1,1, -99, 32,  &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "CH4_ppb",  &
+                      "Concentration du CH4", "ppb", &
+                      1,1,nhori, 1,1,1, -99, 32,  &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "N2O_ppb", &
+                      "Concentration du N2O", "ppb", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "CFC11_ppt", &
+                      "Concentration du CFC11", "ppt", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histdef(nid_ctesGCM, "CFC12_ppt", &
+                      "Concentration du CFC12", "ppt", &
+                      1,1,nhori, 1,1,1, -99, 32, &
+                      "ave(X)", zstophy,zout)
+!
+       CALL histend(nid_ctesGCM)
+       
+       ENDIF !(is_mpi_root)
+!$OMP END MASTER
+
+  END SUBROUTINE ini_paramLMDZ_phy
+
+!=================================================================
+
+  SUBROUTINE write_paramLMDZ_phy(itap,nid_ctesGCM,ok_sync)
+
+    USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
+    USE time_phylmdz_mod, ONLY: day_step_phy, annee_ref, itau_phy, start_time
+    USE mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, klon_glo
+
+    USE iophy
+    USE ioipsl, ONLY: histwrite, histsync
+
+#ifdef CPP_RRTM
+    USE YOESW, ONLY : RSUN
+#endif
+
+    IMPLICIT NONE
+
+    include "clesphys.h"
+    include "YOMCST.h"
+
+    INTEGER, INTENT(IN) :: itap, nid_ctesGCM
+    LOGICAL, INTENT(IN) :: ok_sync
+
+    INTEGER itau_w, ISW
+    INTEGER ndex2d(nbp_lon*nbp_lat)
+    REAL :: zx_tmp_0d(1,1)
+    INTEGER, PARAMETER :: np=1
+
+    CHARACTER*1 ch1
+
+!$OMP MASTER
+      IF (is_mpi_root) THEN      
+!
+      ndex2d = 0
+      itau_w = itau_phy + itap + int(start_time * day_step_phy)
+!
+! Variables globales
+!
+      zx_tmp_0d=R_ecc
+      CALL histwrite(nid_ctesGCM,"R_ecc",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=R_peri
+      CALL histwrite(nid_ctesGCM,"R_peri",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=R_incl
+      CALL histwrite(nid_ctesGCM,"R_incl",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=solaire
+      CALL histwrite(nid_ctesGCM,"solaire",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+#ifdef CPP_RRTM
+      IF (iflag_rrtm.EQ.1) THEN
+        DO ISW=1, NSW
+          WRITE(ch1,'(i1)') ISW
+          zx_tmp_0d=RSUN(ISW)
+          CALL histwrite(nid_ctesGCM,"rsun"//ch1,itau_w, &
+                         zx_tmp_0d,np,ndex2d)
+        ENDDO 
+      ENDIF
+#endif
+!
+      zx_tmp_0d=co2_ppm
+      CALL histwrite(nid_ctesGCM,"co2_ppm",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=CH4_ppb
+      CALL histwrite(nid_ctesGCM,"CH4_ppb",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=N2O_ppb
+      CALL histwrite(nid_ctesGCM,"N2O_ppb",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=CFC11_ppt
+      CALL histwrite(nid_ctesGCM,"CFC11_ppt",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+      zx_tmp_0d=CFC12_ppt
+      CALL histwrite(nid_ctesGCM,"CFC12_ppt",itau_w, &
+                     zx_tmp_0d,np,ndex2d)
+!
+!=================================================================
+!
+      IF (ok_sync) THEN
+        call histsync(nid_ctesGCM)
+      ENDIF
+
+      ENDIF !(is_mpi_root) then      
+!$OMP END MASTER
+
+  END SUBROUTINE write_paramLMDZ_phy
+
+END MODULE paramLMDZ_phy_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/pbl_surface_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/pbl_surface_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/pbl_surface_mod.F90	(revision 3330)
@@ -0,0 +1,3141 @@
+!
+! $Id$
+!
+MODULE pbl_surface_mod
+!
+! Planetary Boundary Layer and Surface module
+!
+! This module manage the calculation of turbulent diffusion in the boundary layer 
+! and all interactions towards the differents sub-surfaces.
+!
+!
+  USE dimphy
+  USE mod_phys_lmdz_para,  ONLY : mpi_size
+  USE mod_grid_phy_lmdz,   ONLY : klon_glo
+  USE ioipsl
+  USE surface_data,        ONLY : type_ocean, ok_veget
+  USE surf_land_mod,       ONLY : surf_land
+  USE surf_landice_mod,    ONLY : surf_landice
+  USE surf_ocean_mod,      ONLY : surf_ocean
+  USE surf_seaice_mod,     ONLY : surf_seaice
+  USE cpl_mod,             ONLY : gath2cpl
+  USE climb_hq_mod,        ONLY : climb_hq_down, climb_hq_up
+  USE climb_wind_mod,      ONLY : climb_wind_down, climb_wind_up
+  USE coef_diff_turb_mod,  ONLY : coef_diff_turb
+
+
+  IMPLICIT NONE
+
+! Declaration of variables saved in restart file
+  REAL, ALLOCATABLE, DIMENSION(:), PRIVATE, SAVE     :: fder   ! flux drift
+  !$OMP THREADPRIVATE(fder)
+  REAL, ALLOCATABLE, DIMENSION(:,:), PUBLIC, SAVE   :: snow   ! snow at surface
+  !$OMP THREADPRIVATE(snow)
+  REAL, ALLOCATABLE, DIMENSION(:,:), PRIVATE, SAVE   :: qsurf  ! humidity at surface
+  !$OMP THREADPRIVATE(qsurf)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: ftsoil ! soil temperature
+  !$OMP THREADPRIVATE(ftsoil)
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE pbl_surface_init(fder_rst, snow_rst, qsurf_rst, ftsoil_rst)
+
+! This routine should be called after the restart file has been read.
+! This routine initialize the restart variables and does some validation tests
+! for the index of the different surfaces and tests the choice of type of ocean.
+
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: lunout
+
+    INCLUDE "dimsoil.h"
+ 
+! Input variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(IN)                 :: fder_rst
+    REAL, DIMENSION(klon, nbsrf), INTENT(IN)          :: snow_rst
+    REAL, DIMENSION(klon, nbsrf), INTENT(IN)          :: qsurf_rst
+    REAL, DIMENSION(klon, nsoilmx, nbsrf), INTENT(IN) :: ftsoil_rst
+
+  
+! Local variables
+!****************************************************************************************
+    INTEGER                       :: ierr
+    CHARACTER(len=80)             :: abort_message
+    CHARACTER(len = 20)           :: modname = 'pbl_surface_init'
+    
+
+!****************************************************************************************
+! Allocate and initialize module variables with fields read from restart file.
+!
+!****************************************************************************************    
+    ALLOCATE(fder(klon), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+
+    ALLOCATE(snow(klon,nbsrf), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+
+    ALLOCATE(qsurf(klon,nbsrf), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+
+    ALLOCATE(ftsoil(klon,nsoilmx,nbsrf), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('pbl_surface_init', 'pb in allocation',1)
+
+
+    fder(:)       = fder_rst(:)
+    snow(:,:)     = snow_rst(:,:)
+    qsurf(:,:)    = qsurf_rst(:,:)
+    ftsoil(:,:,:) = ftsoil_rst(:,:,:)
+
+
+!****************************************************************************************
+! Test for sub-surface indices
+!
+!****************************************************************************************
+    IF (is_ter /= 1) THEN 
+      WRITE(lunout,*)" *** Warning ***"
+      WRITE(lunout,*)" is_ter n'est pas le premier surface, is_ter = ",is_ter
+      WRITE(lunout,*)"or on doit commencer par les surfaces continentales"
+      abort_message="voir ci-dessus"
+      CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    IF ( is_oce > is_sic ) THEN
+      WRITE(lunout,*)' *** Warning ***'
+      WRITE(lunout,*)' Pour des raisons de sequencement dans le code'
+      WRITE(lunout,*)' l''ocean doit etre traite avant la banquise'
+      WRITE(lunout,*)' or is_oce = ',is_oce, '> is_sic = ',is_sic
+      abort_message='voir ci-dessus'
+      CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    IF ( is_lic > is_sic ) THEN
+      WRITE(lunout,*)' *** Warning ***'
+      WRITE(lunout,*)' Pour des raisons de sequencement dans le code'
+      WRITE(lunout,*)' la glace contineltalle doit etre traite avant la glace de mer'
+      WRITE(lunout,*)' or is_lic = ',is_lic, '> is_sic = ',is_sic
+      abort_message='voir ci-dessus'
+      CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+!****************************************************************************************
+! Validation of ocean mode
+!
+!****************************************************************************************
+
+    IF (type_ocean /= 'slab  ' .AND. type_ocean /= 'force ' .AND. type_ocean /= 'couple') THEN
+       WRITE(lunout,*)' *** Warning ***'
+       WRITE(lunout,*)'Option couplage pour l''ocean = ', type_ocean
+       abort_message='option pour l''ocean non valable'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+  END SUBROUTINE pbl_surface_init
+!  
+!****************************************************************************************
+!  
+
+  SUBROUTINE pbl_surface( &
+       dtime,     date0,     itap,     jour,          &
+       debut,     lafin,                              &
+       rlon,      rlat,      rugoro,   rmu0,          &
+       zsig,      lwdown_m,  pphi,     cldt,          &
+       rain_f,    snow_f,    solsw_m,  sollw_m,       &
+       gustiness,                                     &
+       t,         q,         u,        v,             &
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+!!       t_x,       q_x,       t_w,      q_w,           &
+       wake_dlt,             wake_dlq,                &
+       wake_cstar,           wake_s,                  &
+!!!
+       pplay,     paprs,     pctsrf,                  &
+       ts,SFRWL,   alb_dir, alb_dif,ustar, u10m, v10m,wstar, &
+       cdragh,    cdragm,   zu1,    zv1,              &
+       alb_dir_m,    alb_dif_m,  zxsens,   zxevap,    &
+       alb3_lic,  runoff,    snowhgt,   qsnow,     to_ice,    sissnow,  &
+       zxtsol,    zxfluxlat, zt2m,     qsat2m,        &
+       d_t,       d_q,       d_u,      d_v, d_t_diss, & 
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+       d_t_w,     d_q_w,                              &
+       d_t_x,     d_q_x,                              & 
+!!       d_wake_dlt,d_wake_dlq,                         &
+       zxsens_x,  zxfluxlat_x,zxsens_w,zxfluxlat_w,   &
+!!!
+!!! nrlmd le 13/06/2011
+       delta_tsurf,wake_dens,cdragh_x,cdragh_w,       &
+       cdragm_x,cdragm_w,kh,kh_x,kh_w,                &
+!!!
+       zcoefh,    zcoefm,    slab_wfbils,             &
+       qsol,    zq2m,      s_pblh,   s_plcl,        &
+!!!
+!!! jyg le 08/02/2012
+       s_pblh_x, s_plcl_x,   s_pblh_w, s_plcl_w,      &
+!!!
+       s_capCL,   s_oliqCL,  s_cteiCL, s_pblT,        &
+       s_therm,   s_trmb1,   s_trmb2,  s_trmb3,       &
+       zustar,zu10m,  zv10m,    fder_print,    &
+       zxqsurf,   rh2m,      zxfluxu,  zxfluxv,       &
+       z0m, z0h,   agesno,  sollw,    solsw,         &
+       d_ts,      evap,    fluxlat,  t2m,           &
+       wfbils,    wfbilo,    flux_t,   flux_u, flux_v,&
+       dflux_t,   dflux_q,   zxsnow,                  &
+!jyg<
+!!       zxfluxt,   zxfluxq,   q2m,      flux_q, tke,   &
+       zxfluxt,   zxfluxq,   q2m,      flux_q, tke_x,   &
+!>jyg
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+!!        tke_x,     tke_w                              &
+       wake_dltke                                     &
+!!!
+                        )
+!****************************************************************************************
+! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
+! Objet: interface de "couche limite" (diffusion verticale)
+!
+!AA REM:
+!AA-----
+!AA Tout ce qui a trait au traceurs est dans phytrac maintenant
+!AA pour l'instant le calcul de la couche limite pour les traceurs
+!AA se fait avec cltrac et ne tient pas compte de la differentiation
+!AA des sous-fraction de sol.
+!AA REM bis :
+!AA----------
+!AA Pour pouvoir extraire les coefficient d'echanges et le vent 
+!AA dans la premiere couche, 3 champs supplementaires ont ete crees
+!AA zcoefh, zu1 et zv1. Pour l'instant nous avons moyenne les valeurs
+!AA de ces trois champs sur les 4 subsurfaces du modele. Dans l'avenir 
+!AA si les informations des subsurfaces doivent etre prises en compte
+!AA il faudra sortir ces memes champs en leur ajoutant une dimension, 
+!AA c'est a dire nbsrf (nbre de subsurface).
+!
+! Arguments:
+!
+! dtime----input-R- interval du temps (secondes)
+! itap-----input-I- numero du pas de temps
+! date0----input-R- jour initial
+! t--------input-R- temperature (K)
+! q--------input-R- vapeur d'eau (kg/kg)
+! u--------input-R- vitesse u
+! v--------input-R- vitesse v
+! wake_dlt-input-R- temperatre difference between (w) and (x) (K)
+! wake_dlq-input-R- humidity difference between (w) and (x) (kg/kg)
+!wake_cstar-input-R- wake gust front speed (m/s)
+! wake_s---input-R- wake fractionnal area
+! ts-------input-R- temperature du sol (en Kelvin)
+! paprs----input-R- pression a intercouche (Pa)
+! pplay----input-R- pression au milieu de couche (Pa)
+! rlat-----input-R- latitude en degree
+! z0m, z0h ----input-R- longeur de rugosite (en m)
+! Martin
+! zsig-----input-R- slope
+! cldt-----input-R- total cloud fraction
+! pphi-----input-R- geopotentiel de chaque couche (g z) (reference sol)
+! Martin
+!
+! d_t------output-R- le changement pour "t"
+! d_q------output-R- le changement pour "q"
+! d_u------output-R- le changement pour "u"
+! d_v------output-R- le changement pour "v"
+! d_ts-----output-R- le changement pour "ts"
+! flux_t---output-R- flux de chaleur sensible (CpT) J/m**2/s (W/m**2)
+!                    (orientation positive vers le bas)
+! tke_x---input/output-R- tke in the (x) region (kg/m**2/s)
+! wake_dltke-input/output-R- tke difference between (w) and (x) (kg/m**2/s)
+! flux_q---output-R- flux de vapeur d'eau (kg/m**2/s)
+! flux_u---output-R- tension du vent X: (kg m/s)/(m**2 s) ou Pascal
+! flux_v---output-R- tension du vent Y: (kg m/s)/(m**2 s) ou Pascal
+! dflux_t--output-R- derive du flux sensible
+! dflux_q--output-R- derive du flux latent
+! zu1------output-R- le vent dans la premiere couche
+! zv1------output-R- le vent dans la premiere couche
+! trmb1----output-R- deep_cape
+! trmb2----output-R- inhibition 
+! trmb3----output-R- Point Omega
+! cteiCL---output-R- Critere d'instab d'entrainmt des nuages de CL
+! plcl-----output-R- Niveau de condensation
+! pblh-----output-R- HCL
+! pblT-----output-R- T au nveau HCL
+!
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
+    USE indice_sol_mod
+    USE time_phylmdz_mod, ONLY: day_ini,annee_ref,itau_phy
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    USE print_control_mod, ONLY: prt_level,lunout
+
+    IMPLICIT NONE
+
+    INCLUDE "dimsoil.h"
+    INCLUDE "YOMCST.h"
+    INCLUDE "YOETHF.h"
+    INCLUDE "FCTTRE.h"
+    INCLUDE "clesphys.h"
+    INCLUDE "compbl.h"
+    INCLUDE "flux_arp.h"
+!****************************************************************************************
+    REAL,                         INTENT(IN)        :: dtime   ! time interval (s)
+    REAL,                         INTENT(IN)        :: date0   ! initial day
+    INTEGER,                      INTENT(IN)        :: itap    ! time step
+    INTEGER,                      INTENT(IN)        :: jour    ! current day of the year
+    LOGICAL,                      INTENT(IN)        :: debut   ! true if first run step
+    LOGICAL,                      INTENT(IN)        :: lafin   ! true if last run step
+    REAL, DIMENSION(klon),        INTENT(IN)        :: rlon    ! longitudes in degrees
+    REAL, DIMENSION(klon),        INTENT(IN)        :: rlat    ! latitudes in degrees
+    REAL, DIMENSION(klon),        INTENT(IN)        :: rugoro  ! rugosity length
+    REAL, DIMENSION(klon),        INTENT(IN)        :: rmu0    ! cosine of solar zenith angle
+    REAL, DIMENSION(klon),        INTENT(IN)        :: rain_f  ! rain fall
+    REAL, DIMENSION(klon),        INTENT(IN)        :: snow_f  ! snow fall
+    REAL, DIMENSION(klon),        INTENT(IN)        :: solsw_m ! net shortwave radiation at mean surface
+    REAL, DIMENSION(klon),        INTENT(IN)        :: sollw_m ! net longwave radiation at mean surface
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t       ! temperature (K)
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: q       ! water vapour (kg/kg)
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: u       ! u speed
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: v       ! v speed
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: pplay   ! mid-layer pression (Pa)
+    REAL, DIMENSION(klon,klev+1), INTENT(IN)        :: paprs   ! pression between layers (Pa) 
+    REAL, DIMENSION(klon, nbsrf), INTENT(IN)        :: pctsrf  ! sub-surface fraction
+! Martin
+    REAL, DIMENSION(klon),        INTENT(IN)        :: zsig    ! slope
+    REAL, DIMENSION(klon),        INTENT(IN)        :: lwdown_m ! downward longwave radiation at mean s    
+    REAL, DIMENSION(klon),        INTENT(IN)        :: gustiness ! gustiness
+
+    REAL, DIMENSION(klon),        INTENT(IN)        :: cldt    ! total cloud fraction
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: pphi    ! geopotential (m2/s2)
+! Martin
+
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t_x       ! Temp\'erature hors poche froide
+!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: t_w       ! Temp\'erature dans la poches froide
+!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: q_x       ! 
+!!    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: q_w       ! Pareil pour l'humidit\'e
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: wake_dlt  !temperature difference between (w) and (x) (K)
+    REAL, DIMENSION(klon,klev),   INTENT(IN)        :: wake_dlq  !humidity difference between (w) and (x) (K)
+    REAL, DIMENSION(klon),        INTENT(IN)        :: wake_s    ! Fraction de poches froides
+    REAL, DIMENSION(klon),        INTENT(IN)        :: wake_cstar! Vitesse d'expansion des poches froides
+    REAL, DIMENSION(klon),        INTENT(IN)        :: wake_dens
+!!!
+
+! Input/Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)     :: ts      ! temperature at surface (K)
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)     :: delta_tsurf !surface temperature difference between
+                                                                   !wake and off-wake regions
+!albedo SB >>>
+    REAL, DIMENSIOn(6),intent(in) :: SFRWL
+    REAL, DIMENSION(klon, nsw, nbsrf), INTENT(INOUT)     :: alb_dir,alb_dif
+!albedo SB <<<
+!jyg Pourquoi ustar et wstar sont-elles INOUT ?
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)     :: ustar   ! u* (m/s)
+    REAL, DIMENSION(klon, nbsrf+1), INTENT(INOUT)   :: wstar   ! w* (m/s)
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)     :: u10m    ! u speed at 10m
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)     :: v10m    ! v speed at 10m
+!jyg<
+!!    REAL, DIMENSION(klon, klev+1, nbsrf+1), INTENT(INOUT) :: tke
+    REAL, DIMENSION(klon, klev+1, nbsrf+1), INTENT(INOUT) :: tke_x
+!>jyg 
+
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+    REAL, DIMENSION(klon, klev+1, nbsrf+1), INTENT(INOUT) :: wake_dltke ! TKE_w - TKE_x
+!!!
+
+! Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragh     ! drag coefficient for T and Q
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragm     ! drag coefficient for wind
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zu1        ! u wind speed in first layer
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zv1        ! v wind speed in first layer
+!albedo SB >>>
+    REAL, DIMENSION(klon, nsw),        INTENT(OUT)       :: alb_dir_m,alb_dif_m
+!albedo SB <<<
+    ! Martin
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: alb3_lic
+    ! Martin
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxsens     ! sensible heat flux at surface with inversed sign 
+                                                                  ! (=> positive sign upwards)
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxevap     ! water vapour flux at surface, positiv upwards
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxtsol     ! temperature at surface, mean for each grid point
+!!! jyg le ???
+    REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_t_w      !   !
+    REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_q_w      !      !  Tendances dans les poches
+    REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_t_x      !   !
+    REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_q_x      !      !  Tendances hors des poches
+!!! jyg
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxfluxlat  ! latent flux, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zt2m       ! temperature at 2m, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: qsat2m
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_t        ! change in temperature 
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_t_diss       ! change in temperature 
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_q        ! change in water vapour
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_u        ! change in u speed
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: d_v        ! change in v speed
+
+    REAL, INTENT(OUT):: zcoefh(:, :, :) ! (klon, klev, nbsrf + 1)
+    ! coef for turbulent diffusion of T and Q, mean for each grid point
+
+    REAL, INTENT(OUT):: zcoefm(:, :, :) ! (klon, klev, nbsrf + 1)
+    ! coef for turbulent diffusion of U and V (?), mean for each grid point
+
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxsens_x   ! Flux sensible hors poche
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxsens_w   ! Flux sensible dans la poche
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxfluxlat_x! Flux latent hors poche
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxfluxlat_w! Flux latent dans la poche
+!!    REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_wake_dlt
+!!    REAL, DIMENSION(klon,klev),   INTENT(OUT)       :: d_wake_dlq
+
+! Output only for diagnostics
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragh_x
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragh_w
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragm_x
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragm_w
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: kh
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: kh_x
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: kh_w
+!!! 
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: slab_wfbils! heat balance at surface only for slab at ocean points
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: qsol     ! water height in the soil (mm)
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zq2m       ! water vapour at 2m, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblh     ! height of the planetary boundary layer(HPBL)
+!!! jyg le 08/02/2012
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblh_x   ! height of the PBL in the off-wake region
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblh_w   ! height of the PBL in the wake region
+!!!
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_plcl     ! condensation level
+!!! jyg le 08/02/2012
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_plcl_x   ! condensation level in the off-wake region
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_plcl_w   ! condensation level in the wake region
+!!!
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_capCL    ! CAPE of PBL
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_oliqCL   ! liquid water intergral of PBL
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_cteiCL   ! cloud top instab. crit. of PBL
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblT     ! temperature at PBLH
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_therm    ! thermal virtual temperature excess
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_trmb1    ! deep cape, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_trmb2    ! inhibition, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: s_trmb3    ! point Omega, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zustar     ! u*
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zu10m      ! u speed at 10m, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zv10m      ! v speed at 10m, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: fder_print ! fder for printing (=fder(i) + dflux_t(i) + dflux_q(i))
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: zxqsurf    ! humidity at surface, mean for each grid point
+    REAL, DIMENSION(klon),        INTENT(OUT)       :: rh2m       ! relative humidity at 2m
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: zxfluxu    ! u wind tension, mean for each grid point
+    REAL, DIMENSION(klon, klev),  INTENT(OUT)       :: zxfluxv    ! v wind tension, mean for each grid point
+    REAL, DIMENSION(klon, nbsrf+1), INTENT(INOUT)     :: z0m,z0h      ! rugosity length (m)
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: agesno   ! age of snow at surface
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: solsw      ! net shortwave radiation at surface 
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: sollw      ! net longwave radiation at surface
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: d_ts       ! change in temperature at surface
+    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: evap     ! evaporation at surface
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: fluxlat    ! latent flux
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: t2m        ! temperature at 2 meter height
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: wfbils     ! heat balance at surface
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: wfbilo     ! water balance at surface
+    REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_t     ! sensible heat flux (CpT) J/m**2/s (W/m**2)
+                                                                  ! positve orientation downwards
+    REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_u     ! u wind tension (kg m/s)/(m**2 s) or Pascal
+    REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_v     ! v wind tension (kg m/s)/(m**2 s) or Pascal
+
+! Output not needed
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: dflux_t    ! change of sensible heat flux 
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: dflux_q    ! change of water vapour flux
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: zxsnow     ! snow at surface, mean for each grid point
+    REAL, DIMENSION(klon, klev), INTENT(OUT)        :: zxfluxt    ! sensible heat flux, mean for each grid point
+    REAL, DIMENSION(klon, klev), INTENT(OUT)        :: zxfluxq    ! water vapour flux, mean for each grid point
+    REAL, DIMENSION(klon, nbsrf),INTENT(OUT)        :: q2m        ! water vapour at 2 meter height
+    REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_q     ! water vapour flux(latent flux) (kg/m**2/s)
+
+! Martin
+! sisvat
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: qsnow      ! snow water content
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: snowhgt    ! snow height
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: to_ice     ! snow passed to ice
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: sissnow    ! snow in snow model
+    REAL, DIMENSION(klon),       INTENT(OUT)        :: runoff     ! runoff on land ice
+! Martin
+
+! Local variables with attribute SAVE
+!****************************************************************************************
+    INTEGER, SAVE                            :: nhoridbg, nidbg   ! variables for IOIPSL
+!$OMP THREADPRIVATE(nhoridbg, nidbg)
+    LOGICAL, SAVE                            :: debugindex=.FALSE.
+!$OMP THREADPRIVATE(debugindex)
+    LOGICAL, SAVE                            :: first_call=.TRUE.
+!$OMP THREADPRIVATE(first_call)
+    CHARACTER(len=8), DIMENSION(nbsrf), SAVE :: cl_surf
+!$OMP THREADPRIVATE(cl_surf)
+
+! Other local variables
+!****************************************************************************************
+    INTEGER                            :: iflag_split 
+    INTEGER                            :: i, k, nsrf 
+    INTEGER                            :: knon, j
+    INTEGER                            :: idayref
+    INTEGER , DIMENSION(klon)          :: ni
+    REAL                               :: yt1_new
+    REAL                               :: zx_alf1, zx_alf2 !valeur ambiante par extrapola
+    REAL                               :: amn, amx
+    REAL                               :: f1 ! fraction de longeurs visibles parmi tout SW intervalle
+    REAL, DIMENSION(klon)              :: r_co2_ppm     ! taux CO2 atmosphere
+    REAL, DIMENSION(klon)              :: yts, yz0m, yz0h, ypct
+!albedo SB >>>
+    REAL, DIMENSION(klon)              :: yalb,yalb_vis
+!albedo SB <<<
+    REAL, DIMENSION(klon)              :: yu1, yv1
+    REAL, DIMENSION(klon)              :: ysnow, yqsurf, yagesno, yqsol
+    REAL, DIMENSION(klon)              :: yrain_f, ysnow_f
+    REAL, DIMENSION(klon)              :: ysolsw, ysollw
+    REAL, DIMENSION(klon)              :: yfder
+    REAL, DIMENSION(klon)              :: yrugoro
+    REAL, DIMENSION(klon)              :: yfluxlat
+    REAL, DIMENSION(klon)              :: y_d_ts
+    REAL, DIMENSION(klon)              :: y_flux_t1, y_flux_q1
+    REAL, DIMENSION(klon)              :: y_dflux_t, y_dflux_q
+    REAL, DIMENSION(klon)              :: y_flux_u1, y_flux_v1
+    REAL, DIMENSION(klon)              :: yt2m, yq2m, yu10m
+    REAL, DIMENSION(klon)              :: yustar
+    REAL, DIMENSION(klon)              :: ywstar
+    REAL, DIMENSION(klon)              :: ywindsp
+    REAL, DIMENSION(klon)              :: yt10m, yq10m
+    REAL, DIMENSION(klon)              :: ypblh
+    REAL, DIMENSION(klon)              :: ylcl
+    REAL, DIMENSION(klon)              :: ycapCL
+    REAL, DIMENSION(klon)              :: yoliqCL
+    REAL, DIMENSION(klon)              :: ycteiCL
+    REAL, DIMENSION(klon)              :: ypblT
+    REAL, DIMENSION(klon)              :: ytherm
+    REAL, DIMENSION(klon)              :: ytrmb1
+    REAL, DIMENSION(klon)              :: ytrmb2
+    REAL, DIMENSION(klon)              :: ytrmb3
+    REAL, DIMENSION(klon)              :: uzon, vmer
+    REAL, DIMENSION(klon)              :: tair1, qair1, tairsol
+    REAL, DIMENSION(klon)              :: psfce, patm
+    REAL, DIMENSION(klon)              :: qairsol, zgeo1, speed, zri1, pref !speed, zri1, pref, added by Fuxing WANG, 04/03/2015
+    REAL, DIMENSION(klon)              :: rugo1
+    REAL, DIMENSION(klon)              :: yfluxsens
+    REAL, DIMENSION(klon)              :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon)              :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon)              :: ypsref
+    REAL, DIMENSION(klon)              :: yevap, ytsurf_new, yalb3_new
+!albedo SB >>>
+    REAL, DIMENSION(klon,nsw)          :: yalb_dir_new, yalb_dif_new
+!albedo SB <<<
+    REAL, DIMENSION(klon)              :: ztsol
+    REAL, DIMENSION(klon)              :: meansqT ! mean square deviation of subsurface temperatures
+    REAL, DIMENSION(klon)              :: alb_m  ! mean albedo for whole SW interval
+    REAL, DIMENSION(klon,klev)         :: y_d_t, y_d_q, y_d_t_diss
+    REAL, DIMENSION(klon,klev)         :: y_d_u, y_d_v
+    REAL, DIMENSION(klon,klev)         :: y_flux_t, y_flux_q
+    REAL, DIMENSION(klon,klev)         :: y_flux_u, y_flux_v
+    REAL, DIMENSION(klon,klev)         :: ycoefh, ycoefm,ycoefq
+    REAL, DIMENSION(klon)              :: ycdragh, ycdragm
+    REAL, DIMENSION(klon,klev)         :: yu, yv
+    REAL, DIMENSION(klon,klev)         :: yt, yq
+    REAL, DIMENSION(klon,klev)         :: ypplay, ydelp
+    REAL, DIMENSION(klon,klev)         :: delp
+    REAL, DIMENSION(klon,klev+1)       :: ypaprs
+    REAL, DIMENSION(klon,klev+1)       :: ytke
+    REAL, DIMENSION(klon,nsoilmx)      :: ytsoil
+    CHARACTER(len=80)                  :: abort_message
+    CHARACTER(len=20)                  :: modname = 'pbl_surface'
+    LOGICAL, PARAMETER                 :: zxli=.FALSE. ! utiliser un jeu de fonctions simples
+    LOGICAL, PARAMETER                 :: check=.FALSE.
+
+!!! nrlmd le 02/05/2011
+!!! jyg le 07/02/2012
+    REAL, DIMENSION(klon)              :: ywake_s, ywake_cstar, ywake_dens
+!!!
+    REAL, DIMENSION(klon,klev+1)       :: ytke_x, ytke_w
+    REAL, DIMENSION(klon,klev+1)       :: ywake_dltke
+    REAL, DIMENSION(klon,klev)         :: yu_x, yv_x, yu_w, yv_w
+    REAL, DIMENSION(klon,klev)         :: yt_x, yq_x, yt_w, yq_w
+    REAL, DIMENSION(klon,klev)         :: ycoefh_x, ycoefm_x, ycoefh_w, ycoefm_w
+    REAL, DIMENSION(klon,klev)         :: ycoefq_x, ycoefq_w
+    REAL, DIMENSION(klon)              :: ycdragh_x, ycdragm_x, ycdragh_w, ycdragm_w
+    REAL, DIMENSION(klon)              :: AcoefH_x, AcoefQ_x, BcoefH_x, BcoefQ_x
+    REAL, DIMENSION(klon)              :: AcoefH_w, AcoefQ_w, BcoefH_w, BcoefQ_w
+    REAL, DIMENSION(klon)              :: AcoefU_x, AcoefV_x, BcoefU_x, BcoefV_x
+    REAL, DIMENSION(klon)              :: AcoefU_w, AcoefV_w, BcoefU_w, BcoefV_w
+    REAL, DIMENSION(klon)              :: y_flux_t1_x, y_flux_q1_x, y_flux_t1_w, y_flux_q1_w
+    REAL, DIMENSION(klon)              :: y_flux_u1_x, y_flux_v1_x, y_flux_u1_w, y_flux_v1_w
+    REAL, DIMENSION(klon,klev)         :: y_flux_t_x, y_flux_q_x, y_flux_t_w, y_flux_q_w
+    REAL, DIMENSION(klon,klev)         :: y_flux_u_x, y_flux_v_x, y_flux_u_w, y_flux_v_w
+    REAL, DIMENSION(klon)              :: yfluxlat_x, yfluxlat_w
+    REAL, DIMENSION(klon,klev)         :: y_d_t_x, y_d_q_x, y_d_t_w, y_d_q_w
+    REAL, DIMENSION(klon,klev)         :: y_d_t_diss_x, y_d_t_diss_w
+    REAL, DIMENSION(klon,klev)         :: d_t_diss_x, d_t_diss_w
+    REAL, DIMENSION(klon,klev)         :: y_d_u_x, y_d_v_x, y_d_u_w, y_d_v_w
+    REAL, DIMENSION(klon, klev, nbsrf) :: flux_t_x, flux_q_x, flux_t_w, flux_q_w
+    REAL, DIMENSION(klon, klev, nbsrf) :: flux_u_x, flux_v_x, flux_u_w, flux_v_w
+    REAL, DIMENSION(klon, nbsrf)       :: fluxlat_x, fluxlat_w
+    REAL, DIMENSION(klon, klev)        :: zxfluxt_x, zxfluxq_x, zxfluxt_w, zxfluxq_w
+    REAL, DIMENSION(klon, klev)        :: zxfluxu_x, zxfluxv_x, zxfluxu_w, zxfluxv_w
+    REAL                               :: zx_qs_surf, zcor_surf, zdelta_surf
+    REAL, DIMENSION(klon)              :: ytsurf_th, yqsatsurf
+    REAL, DIMENSION(klon)              :: ybeta
+    REAL, DIMENSION(klon, klev)        :: d_u_x
+    REAL, DIMENSION(klon, klev)        :: d_u_w
+    REAL, DIMENSION(klon, klev)        :: d_v_x
+    REAL, DIMENSION(klon, klev)        :: d_v_w 
+
+    REAL, DIMENSION(klon,klev)         :: CcoefH, CcoefQ, DcoefH, DcoefQ
+    REAL, DIMENSION(klon,klev)         :: CcoefU, CcoefV, DcoefU, DcoefV
+    REAL, DIMENSION(klon,klev)         :: CcoefH_x, CcoefQ_x, DcoefH_x, DcoefQ_x
+    REAL, DIMENSION(klon,klev)         :: CcoefH_w, CcoefQ_w, DcoefH_w, DcoefQ_w
+    REAL, DIMENSION(klon,klev)         :: CcoefU_x, CcoefV_x, DcoefU_x, DcoefV_x
+    REAL, DIMENSION(klon,klev)         :: CcoefU_w, CcoefV_w, DcoefU_w, DcoefV_w
+    REAL, DIMENSION(klon,klev)         :: Kcoef_hq, Kcoef_m, gama_h, gama_q
+    REAL, DIMENSION(klon,klev)         :: Kcoef_hq_x, Kcoef_m_x, gama_h_x, gama_q_x
+    REAL, DIMENSION(klon,klev)         :: Kcoef_hq_w, Kcoef_m_w, gama_h_w, gama_q_w
+    REAL, DIMENSION(klon)              :: alf_1, alf_2, alf_1_x, alf_2_x, alf_1_w, alf_2_w
+!!!
+!!!jyg le 08/02/2012
+    REAL, DIMENSION(klon, nbsrf)       :: windsp
+!
+    REAL, DIMENSION(klon, nbsrf)       :: t2m_x
+    REAL, DIMENSION(klon, nbsrf)       :: q2m_x
+    REAL, DIMENSION(klon)              :: rh2m_x
+    REAL, DIMENSION(klon)              :: qsat2m_x
+    REAL, DIMENSION(klon, nbsrf)       :: u10m_x
+    REAL, DIMENSION(klon, nbsrf)       :: v10m_x
+    REAL, DIMENSION(klon, nbsrf)       :: ustar_x
+    REAL, DIMENSION(klon, nbsrf)       :: wstar_x
+!              
+    REAL, DIMENSION(klon, nbsrf)       :: pblh_x
+    REAL, DIMENSION(klon, nbsrf)       :: plcl_x
+    REAL, DIMENSION(klon, nbsrf)       :: capCL_x
+    REAL, DIMENSION(klon, nbsrf)       :: oliqCL_x
+    REAL, DIMENSION(klon, nbsrf)       :: cteiCL_x
+    REAL, DIMENSION(klon, nbsrf)       :: pblt_x
+    REAL, DIMENSION(klon, nbsrf)       :: therm_x
+    REAL, DIMENSION(klon, nbsrf)       :: trmb1_x
+    REAL, DIMENSION(klon, nbsrf)       :: trmb2_x
+    REAL, DIMENSION(klon, nbsrf)       :: trmb3_x
+!
+    REAL, DIMENSION(klon, nbsrf)       :: t2m_w
+    REAL, DIMENSION(klon, nbsrf)       :: q2m_w
+    REAL, DIMENSION(klon)              :: rh2m_w
+    REAL, DIMENSION(klon)              :: qsat2m_w
+    REAL, DIMENSION(klon, nbsrf)       :: u10m_w
+    REAL, DIMENSION(klon, nbsrf)       :: v10m_w
+    REAL, DIMENSION(klon, nbsrf)       :: ustar_w
+    REAL, DIMENSION(klon, nbsrf)       :: wstar_w
+!                           
+    REAL, DIMENSION(klon, nbsrf)       :: pblh_w
+    REAL, DIMENSION(klon, nbsrf)       :: plcl_w
+    REAL, DIMENSION(klon, nbsrf)       :: capCL_w
+    REAL, DIMENSION(klon, nbsrf)       :: oliqCL_w
+    REAL, DIMENSION(klon, nbsrf)       :: cteiCL_w
+    REAL, DIMENSION(klon, nbsrf)       :: pblt_w
+    REAL, DIMENSION(klon, nbsrf)       :: therm_w
+    REAL, DIMENSION(klon, nbsrf)       :: trmb1_w
+    REAL, DIMENSION(klon, nbsrf)       :: trmb2_w
+    REAL, DIMENSION(klon, nbsrf)       :: trmb3_w
+!
+    REAL, DIMENSION(klon)       :: yt2m_x
+    REAL, DIMENSION(klon)       :: yq2m_x
+    REAL, DIMENSION(klon)       :: yt10m_x
+    REAL, DIMENSION(klon)       :: yq10m_x
+    REAL, DIMENSION(klon)       :: yu10m_x
+    REAL, DIMENSION(klon)       :: yv10m_x
+    REAL, DIMENSION(klon)       :: yustar_x
+    REAL, DIMENSION(klon)       :: ywstar_x
+!              
+    REAL, DIMENSION(klon)       :: ypblh_x
+    REAL, DIMENSION(klon)       :: ylcl_x
+    REAL, DIMENSION(klon)       :: ycapCL_x
+    REAL, DIMENSION(klon)       :: yoliqCL_x
+    REAL, DIMENSION(klon)       :: ycteiCL_x
+    REAL, DIMENSION(klon)       :: ypblt_x
+    REAL, DIMENSION(klon)       :: ytherm_x
+    REAL, DIMENSION(klon)       :: ytrmb1_x
+    REAL, DIMENSION(klon)       :: ytrmb2_x
+    REAL, DIMENSION(klon)       :: ytrmb3_x
+!
+    REAL, DIMENSION(klon)       :: yt2m_w
+    REAL, DIMENSION(klon)       :: yq2m_w
+    REAL, DIMENSION(klon)       :: yt10m_w
+    REAL, DIMENSION(klon)       :: yq10m_w
+    REAL, DIMENSION(klon)       :: yu10m_w
+    REAL, DIMENSION(klon)       :: yv10m_w
+    REAL, DIMENSION(klon)       :: yustar_w
+    REAL, DIMENSION(klon)       :: ywstar_w
+!                       
+    REAL, DIMENSION(klon)       :: ypblh_w
+    REAL, DIMENSION(klon)       :: ylcl_w
+    REAL, DIMENSION(klon)       :: ycapCL_w
+    REAL, DIMENSION(klon)       :: yoliqCL_w
+    REAL, DIMENSION(klon)       :: ycteiCL_w
+    REAL, DIMENSION(klon)       :: ypblt_w
+    REAL, DIMENSION(klon)       :: ytherm_w
+    REAL, DIMENSION(klon)       :: ytrmb1_w
+    REAL, DIMENSION(klon)       :: ytrmb2_w
+    REAL, DIMENSION(klon)       :: ytrmb3_w
+!
+    REAL, DIMENSION(klon)              :: uzon_x, vmer_x, speed_x, zri1_x, pref_x !speed_x, zri1_x, pref_x, added by Fuxing WANG, 04/03/2015
+    REAL, DIMENSION(klon)              :: zgeo1_x, tair1_x, qair1_x, tairsol_x
+!
+    REAL, DIMENSION(klon)              :: uzon_w, vmer_w, speed_w, zri1_w, pref_w !speed_w, zri1_w, pref_w, added by Fuxing WANG, 04/03/2015
+    REAL, DIMENSION(klon)              :: zgeo1_w, tair1_w, qair1_w, tairsol_w
+
+!!! jyg le 25/03/2013
+!!    Variables intermediaires pour le raccord des deux colonnes \`a la surface
+    REAL   ::   dd_Ch
+    REAL   ::   dd_Cm
+    REAL   ::   dd_Kh
+    REAL   ::   dd_Km
+    REAL   ::   dd_u 
+    REAL   ::   dd_v 
+    REAL   ::   dd_t 
+    REAL   ::   dd_q 
+    REAL   ::   dd_AH
+    REAL   ::   dd_AQ
+    REAL   ::   dd_AU
+    REAL   ::   dd_AV
+    REAL   ::   dd_BH
+    REAL   ::   dd_BQ
+    REAL   ::   dd_BU
+    REAL   ::   dd_BV
+
+    REAL   ::   dd_KHp
+    REAL   ::   dd_KQp
+    REAL   ::   dd_KUp
+    REAL   ::   dd_KVp
+
+!!!
+!!! nrlmd le 13/06/2011
+    REAL, DIMENSION(klon)              :: y_delta_flux_t1, y_delta_flux_q1, y_delta_flux_u1, y_delta_flux_v1
+    REAL, DIMENSION(klon)              :: y_delta_tsurf,delta_coef,tau_eq
+    REAL, PARAMETER                    :: facteur=2./sqrt(3.14)
+    REAL, PARAMETER                    :: effusivity=2000.
+    REAL, DIMENSION(klon)              :: ytsurf_th_x,ytsurf_th_w,yqsatsurf_x,yqsatsurf_w
+    REAL, DIMENSION(klon)              :: ydtsurf_th
+    REAL                               :: zdelta_surf_x,zdelta_surf_w,zx_qs_surf_x,zx_qs_surf_w
+    REAL                               :: zcor_surf_x,zcor_surf_w
+    REAL                               :: mod_wind_x, mod_wind_w
+    REAL                               :: rho1
+    REAL, DIMENSION(klon)              :: Kech_h           ! Coefficient d'echange pour l'energie
+    REAL, DIMENSION(klon)              :: Kech_h_x, Kech_h_w 
+    REAL, DIMENSION(klon)              :: Kech_m
+    REAL, DIMENSION(klon)              :: Kech_m_x, Kech_m_w 
+    REAL, DIMENSION(klon)              :: yts_x,yts_w
+    REAL, DIMENSION(klon)              :: Kech_Hp, Kech_H_xp, Kech_H_wp
+    REAL, DIMENSION(klon)              :: Kech_Qp, Kech_Q_xp, Kech_Q_wp
+    REAL, DIMENSION(klon)              :: Kech_Up, Kech_U_xp, Kech_U_wp
+    REAL, DIMENSION(klon)              :: Kech_Vp, Kech_V_xp, Kech_V_wp
+
+    REAL                               :: vent
+
+
+
+
+!!!
+
+! For debugging with IOIPSL
+    INTEGER, DIMENSION(nbp_lon*nbp_lat)    :: ndexbg
+    REAL                               :: zjulian
+    REAL, DIMENSION(klon)              :: tabindx
+    REAL, DIMENSION(nbp_lon,nbp_lat)         :: zx_lon, zx_lat
+    REAL, DIMENSION(nbp_lon,nbp_lat)         :: debugtab
+
+
+    REAL, DIMENSION(klon,nbsrf)        :: pblh         ! height of the planetary boundary layer
+    REAL, DIMENSION(klon,nbsrf)        :: plcl         ! condensation level
+    REAL, DIMENSION(klon,nbsrf)        :: capCL
+    REAL, DIMENSION(klon,nbsrf)        :: oliqCL
+    REAL, DIMENSION(klon,nbsrf)        :: cteiCL
+    REAL, DIMENSION(klon,nbsrf)        :: pblT
+    REAL, DIMENSION(klon,nbsrf)        :: therm
+    REAL, DIMENSION(klon,nbsrf)        :: trmb1        ! deep cape
+    REAL, DIMENSION(klon,nbsrf)        :: trmb2        ! inhibition
+    REAL, DIMENSION(klon,nbsrf)        :: trmb3        ! point Omega
+    REAL, DIMENSION(klon,nbsrf)        :: zx_rh2m, zx_qsat2m
+    REAL, DIMENSION(klon,nbsrf)        :: zx_t1
+    REAL, DIMENSION(klon, nbsrf)       :: alb          ! mean albedo for whole SW interval
+    REAL, DIMENSION(klon)              :: ylwdown      ! jg : temporary (ysollwdown)
+    REAL, DIMENSION(klon)              :: ygustiness      ! jg : temporary (ysollwdown)
+
+    REAL                               :: zx_qs1, zcor1, zdelta1 
+
+    ! Martin
+    REAL, DIMENSION(klon, nbsrf)       :: sollwd ! net longwave radiation at surface
+    REAL, DIMENSION(klon)              :: ytoice
+    REAL, DIMENSION(klon)              :: ysnowhgt, yqsnow, ysissnow, yrunoff
+    REAL, DIMENSION(klon)              :: yzsig
+    REAL, DIMENSION(klon,klev)         :: ypphi
+    REAL, DIMENSION(klon)              :: ycldt
+    REAL, DIMENSION(klon)              :: yrmu0
+    ! Martin
+
+!****************************************************************************************
+! End of declarations
+!****************************************************************************************
+
+      IF (prt_level >=10) print *,' -> pbl_surface, itap ',itap
+!
+      iflag_split = mod(iflag_pbl_split,2)
+
+!****************************************************************************************
+! 1) Initialisation and validation tests 
+!    Only done first time entering this subroutine
+!
+!****************************************************************************************
+
+    IF (first_call) THEN
+       print*,'PBL SURFACE AVEC GUSTINESS'
+       first_call=.FALSE.
+      
+       ! Initialize ok_flux_surf (for 1D model)
+       if (klon_glo>1) ok_flux_surf=.FALSE.
+       
+       ! Initilize debug IO
+       IF (debugindex .AND. mpi_size==1) THEN 
+          ! initialize IOIPSL output
+          idayref = day_ini
+          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+          CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlon,zx_lon)
+          DO i = 1, nbp_lon
+             zx_lon(i,1) = rlon(i+1)
+             zx_lon(i,nbp_lat) = rlon(i+1)
+          ENDDO
+          CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,rlat,zx_lat)
+          CALL histbeg("sous_index",nbp_lon,zx_lon(:,1),nbp_lat,zx_lat(1,:), &
+               1,nbp_lon,1,nbp_lat, &
+               itau_phy,zjulian,dtime,nhoridbg,nidbg) 
+          ! no vertical axis
+          cl_surf(1)='ter'
+          cl_surf(2)='lic'
+          cl_surf(3)='oce'
+          cl_surf(4)='sic'
+          DO nsrf=1,nbsrf
+             CALL histdef(nidbg, cl_surf(nsrf),cl_surf(nsrf), "-",nbp_lon, &
+                  nbp_lat,nhoridbg, 1, 1, 1, -99, 32, "inst", dtime,dtime) 
+          END DO
+
+          CALL histend(nidbg)
+          CALL histsync(nidbg)
+
+       END IF
+       
+    ENDIF
+          
+!****************************************************************************************
+! Force soil water content to qsol0 if qsol0>0 and VEGET=F (use bucket
+! instead of ORCHIDEE)
+    IF (qsol0>=0.) THEN
+      PRINT*,'WARNING : On impose qsol=',qsol0
+      qsol(:)=qsol0
+    ENDIF
+!****************************************************************************************
+
+!****************************************************************************************
+! 2) Initialization to zero 
+!****************************************************************************************
+!
+! 2a) Initialization of all argument variables with INTENT(OUT)
+!****************************************************************************************
+ cdragh(:)=0. ; cdragm(:)=0.
+ zu1(:)=0. ; zv1(:)=0.
+!albedo SB >>>
+  alb_dir_m=0. ; alb_dif_m=0. ; alb3_lic(:)=0.
+!albedo SB <<<
+ zxsens(:)=0. ; zxevap(:)=0. ; zxtsol(:)=0.
+ d_t_w(:,:)=0. ; d_q_w(:,:)=0. ; d_t_x(:,:)=0. ; d_q_x(:,:)=0.
+ zxfluxlat(:)=0.
+ zt2m(:)=0. ; zq2m(:)=0. ; qsat2m(:)=0. ; rh2m(:)=0.
+ d_t(:,:)=0. ; d_t_diss(:,:)=0. ; d_q(:,:)=0. ; d_u(:,:)=0. ; d_v(:,:)=0.
+ zcoefh(:,:,:)=0. ; zcoefm(:,:,:)=0.
+ zxsens_x(:)=0. ; zxsens_w(:)=0. ; zxfluxlat_x(:)=0. ; zxfluxlat_w(:)=0.
+ cdragh_x(:)=0. ; cdragh_w(:)=0. ; cdragm_x(:)=0. ; cdragm_w(:)=0.
+ kh(:)=0. ; kh_x(:)=0. ; kh_w(:)=0.
+ slab_wfbils(:)=0.
+ s_pblh(:)=0. ; s_pblh_x(:)=0. ; s_pblh_w(:)=0.
+ s_plcl(:)=0. ; s_plcl_x(:)=0. ; s_plcl_w(:)=0.
+ s_capCL(:)=0. ; s_oliqCL(:)=0. ; s_cteiCL(:)=0. ; s_pblT(:)=0.
+ s_therm(:)=0.
+ s_trmb1(:)=0. ; s_trmb2(:)=0. ; s_trmb3(:)=0.
+ zustar(:)=0.
+ zu10m(:)=0. ; zv10m(:)=0.
+ fder_print(:)=0.
+ zxqsurf(:)=0.
+ zxfluxu(:,:)=0. ; zxfluxv(:,:)=0.
+ solsw(:,:)=0. ; sollw(:,:)=0.
+ d_ts(:,:)=0.
+ evap(:,:)=0.
+ fluxlat(:,:)=0.
+ wfbils(:,:)=0. ; wfbilo(:,:)=0.
+ flux_t(:,:,:)=0. ; flux_q(:,:,:)=0. ; flux_u(:,:,:)=0. ; flux_v(:,:,:)=0.
+ dflux_t(:)=0. ; dflux_q(:)=0.
+ zxsnow(:)=0.
+ zxfluxt(:,:)=0. ; zxfluxq(:,:)=0.
+ qsnow(:)=0. ; snowhgt(:)=0. ; to_ice(:)=0. ; sissnow(:)=0.
+ runoff(:)=0.
+    IF (iflag_pbl<20.or.iflag_pbl>=30) THEN
+       zcoefh(:,:,:) = 0.0
+       zcoefh(:,1,:) = 999999. ! zcoefh(:,k=1) should never be used
+       zcoefm(:,:,:) = 0.0
+       zcoefm(:,1,:) = 999999. !
+    ELSE
+      zcoefm(:,:,is_ave)=0.
+      zcoefh(:,:,is_ave)=0.
+    ENDIF
+!!
+!  The components "is_ave" of tke_x and wake_deltke are "OUT" variables
+!jyg<
+!!    tke(:,:,is_ave)=0.
+    tke_x(:,:,is_ave)=0.
+    wake_dltke(:,:,is_ave)=0.
+!>jyg
+!!! jyg le 23/02/2013
+    t2m(:,:)       = 999999.     ! t2m and q2m are meaningfull only over sub-surfaces
+    q2m(:,:)       = 999999.     ! actually present in the grid cell.
+!!!
+    rh2m(:) = 0. ; qsat2m(:) = 0.
+!!!
+!!! jyg le 10/02/2012
+    rh2m_x(:) = 0. ; qsat2m_x(:) = 0. ; rh2m_w(:) = 0. ; qsat2m_w(:) = 0.
+!!!
+
+! 2b) Initialization of all local variables that will be compressed later
+!****************************************************************************************
+!!    cdragh = 0.0  ; cdragm = 0.0     ; dflux_t = 0.0   ; dflux_q = 0.0
+    ypct = 0.0    ; yts = 0.0        ; ysnow = 0.0
+!!    zv1 = 0.0     ; yqsurf = 0.0
+!albedo SB >>>
+    yqsurf = 0.0  ; yalb = 0.0 ; yalb_vis = 0.0
+!albedo SB <<<
+    yrain_f = 0.0 ; ysnow_f = 0.0    ; yfder = 0.0     ; ysolsw = 0.0    
+    ysollw = 0.0  ; yz0m = 0.0 ; yz0h = 0.0    ; yu1 = 0.0    
+    yv1 = 0.0     ; ypaprs = 0.0     ; ypplay = 0.0
+    ydelp = 0.0   ; yu = 0.0         ; yv = 0.0        ; yt = 0.0         
+    yq = 0.0      ; y_dflux_t = 0.0  ; y_dflux_q = 0.0 
+    yrugoro = 0.0 ; ywindsp = 0.0   
+!!    d_ts = 0.0    ; yfluxlat=0.0     ; flux_t = 0.0    ; flux_q = 0.0     
+    yfluxlat=0.0 
+!!    flux_u = 0.0  ; flux_v = 0.0     ; d_t = 0.0       ; d_q = 0.0      
+!!    d_t_diss= 0.0 ;d_u = 0.0     ; d_v = 0.0 
+    yqsol = 0.0    
+    ytherm = 0.0  ; ytke=0.
+    ! Martin
+    ysnowhgt = 0.0; yqsnow = 0.0     ; yrunoff = 0.0   ; ytoice =0.0
+    yalb3_new = 0.0  ; ysissnow = 0.0 
+    ypphi = 0.0   ; ycldt = 0.0      ; yrmu0 = 0.0
+    ! Martin
+
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+    ytke_x=0.     ; ytke_w=0.        ; ywake_dltke=0.
+    y_d_t_x=0.    ; y_d_t_w=0.       ; y_d_q_x=0.      ; y_d_q_w=0.
+!!    d_t_w=0.      ; d_q_w=0.         
+!!    d_t_x=0.      ; d_q_x=0.
+!!    d_wake_dlt=0.    ; d_wake_dlq=0.
+    yfluxlat_x=0. ; yfluxlat_w=0.
+    ywake_s=0.    ; ywake_cstar=0.   ;ywake_dens=0.
+!!!
+!!! nrlmd le 13/06/2011
+    tau_eq=0.     ; delta_coef=0.
+    y_delta_flux_t1=0.
+    ydtsurf_th=0.
+    yts_x=0.      ; yts_w=0.
+    y_delta_tsurf=0.
+!!!
+    ytsoil = 999999. 
+
+
+! 2c) Initialization of all local variables computed within the subsurface loop and used later on
+!****************************************************************************************
+    d_t_diss_x(:,:) = 0. ;        d_t_diss_w(:,:) = 0.
+    d_u_x(:,:)=0. ;               d_u_w(:,:)=0. 
+    d_v_x(:,:)=0. ;               d_v_w(:,:)=0.
+    flux_t_x(:,:,:)=0. ;          flux_t_w(:,:,:)=0. 
+    flux_q_x(:,:,:)=0. ;          flux_q_w(:,:,:)=0.
+!
+!jyg<
+    flux_u_x(:,:,:)=0. ;          flux_u_w(:,:,:)=0.
+    flux_v_x(:,:,:)=0. ;          flux_v_w(:,:,:)=0.
+    fluxlat_x(:,:)=0. ;           fluxlat_w(:,:)=0. 
+!>jyg
+!
+!jyg<
+! pblh,plcl,capCL,cteiCL ... are meaningfull only over sub-surfaces
+! actually present in the grid cell  ==> value set to 999999.
+!                           
+!jyg<
+       ustar(:,:)   = 999999.
+       wstar(:,:)   = 999999.
+       windsp(:,:)  = SQRT(u10m(:,:)**2 + v10m(:,:)**2 )
+       u10m(:,:)    = 999999. 
+       v10m(:,:)    = 999999. 
+!>jyg
+!
+       pblh(:,:)   = 999999.        ! Hauteur de couche limite
+       plcl(:,:)   = 999999.        ! Niveau de condensation de la CLA
+       capCL(:,:)  = 999999.        ! CAPE de couche limite
+       oliqCL(:,:) = 999999.        ! eau_liqu integree de couche limite
+       cteiCL(:,:) = 999999.        ! cloud top instab. crit. couche limite
+       pblt(:,:)   = 999999.        ! T a la Hauteur de couche limite
+       therm(:,:)  = 999999.
+       trmb1(:,:)  = 999999.        ! deep_cape
+       trmb2(:,:)  = 999999.        ! inhibition 
+       trmb3(:,:)  = 999999.        ! Point Omega
+!
+       t2m_x(:,:)    = 999999. 
+       q2m_x(:,:)    = 999999. 
+       ustar_x(:,:)   = 999999.
+       wstar_x(:,:)   = 999999.
+       u10m_x(:,:)   = 999999. 
+       v10m_x(:,:)   = 999999. 
+!                           
+       pblh_x(:,:)   = 999999.      ! Hauteur de couche limite
+       plcl_x(:,:)   = 999999.      ! Niveau de condensation de la CLA
+       capCL_x(:,:)  = 999999.      ! CAPE de couche limite
+       oliqCL_x(:,:) = 999999.      ! eau_liqu integree de couche limite
+       cteiCL_x(:,:) = 999999.      ! cloud top instab. crit. couche limite
+       pblt_x(:,:)   = 999999.      ! T a la Hauteur de couche limite
+       therm_x(:,:)  = 999999.      
+       trmb1_x(:,:)  = 999999.      ! deep_cape
+       trmb2_x(:,:)  = 999999.      ! inhibition 
+       trmb3_x(:,:)  = 999999.      ! Point Omega
+!
+       t2m_w(:,:)    = 999999. 
+       q2m_w(:,:)    = 999999. 
+       ustar_w(:,:)   = 999999.
+       wstar_w(:,:)   = 999999.
+       u10m_w(:,:)   = 999999. 
+       v10m_w(:,:)   = 999999. 
+                           
+       pblh_w(:,:)   = 999999.      ! Hauteur de couche limite
+       plcl_w(:,:)   = 999999.      ! Niveau de condensation de la CLA
+       capCL_w(:,:)  = 999999.      ! CAPE de couche limite
+       oliqCL_w(:,:) = 999999.      ! eau_liqu integree de couche limite
+       cteiCL_w(:,:) = 999999.      ! cloud top instab. crit. couche limite
+       pblt_w(:,:)   = 999999.      ! T a la Hauteur de couche limite
+       therm_w(:,:)  = 999999.      
+       trmb1_w(:,:)  = 999999.      ! deep_cape
+       trmb2_w(:,:)  = 999999.      ! inhibition 
+       trmb3_w(:,:)  = 999999.      ! Point Omega
+!!!      
+!
+!!!
+!****************************************************************************************
+! 3) - Calculate pressure thickness of each layer
+!    - Calculate the wind at first layer
+!    - Mean calculations of albedo
+!    - Calculate net radiance at sub-surface
+!****************************************************************************************
+    DO k = 1, klev
+       DO i = 1, klon
+          delp(i,k) = paprs(i,k)-paprs(i,k+1)
+       ENDDO
+    ENDDO
+
+!****************************************************************************************
+! Test for rugos........ from physiq.. A la fin plutot???
+!
+!****************************************************************************************
+
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          z0m(i,nsrf) = MAX(z0m(i,nsrf),z0min)
+          z0h(i,nsrf) = MAX(z0h(i,nsrf),z0min)
+       ENDDO
+    ENDDO
+
+! Mean calculations of albedo
+!
+! * alb  : mean albedo for whole SW interval
+!
+! Mean albedo for grid point
+! * alb_m  : mean albedo at whole SW interval
+
+    alb_dir_m(:,:) = 0.0
+    alb_dif_m(:,:) = 0.0
+    DO k = 1, nsw
+     DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          alb_dir_m(i,k) = alb_dir_m(i,k) + alb_dir(i,k,nsrf) * pctsrf(i,nsrf)
+          alb_dif_m(i,k) = alb_dif_m(i,k) + alb_dif(i,k,nsrf) * pctsrf(i,nsrf)
+       ENDDO
+     ENDDO
+    ENDDO
+
+! We here suppose the fraction f1 of incoming radiance of visible radiance 
+! as a fraction of all shortwave radiance 
+    f1 = 0.5
+!    f1 = 1    ! put f1=1 to recreate old calculations
+
+!f1 is already included with SFRWL values in each surf files
+    alb=0.0
+    DO k=1,nsw
+      DO nsrf = 1, nbsrf
+        DO i = 1, klon
+            alb(i,nsrf) = alb(i,nsrf) + alb_dir(i,k,nsrf)*SFRWL(k)
+        ENDDO
+      ENDDO
+    ENDDO
+
+    alb_m=0.0
+    DO k = 1,nsw
+      DO i = 1, klon
+        alb_m(i) = alb_m(i) + alb_dir_m(i,k)*SFRWL(k)
+      END DO
+    ENDDO
+!albedo SB <<<
+
+
+
+! Calculation of mean temperature at surface grid points
+    ztsol(:) = 0.0
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          ztsol(i) = ztsol(i) + ts(i,nsrf)*pctsrf(i,nsrf)
+       ENDDO
+    ENDDO
+
+! Linear distrubution on sub-surface of long- and shortwave net radiance
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          sollw(i,nsrf) = sollw_m(i) + 4.0*RSIGMA*ztsol(i)**3 * (ztsol(i)-ts(i,nsrf))
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!         ! Martin
+! Apparently introduced for sisvat but not used
+!         sollwd(i,nsrf)= sollwd_m(i)
+!         ! Martin
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+          solsw(i,nsrf) = solsw_m(i) * (1.-alb(i,nsrf)) / (1.-alb_m(i))
+       ENDDO
+    ENDDO
+!
+!<al1: second order corrections
+!- net = dwn -up; up=sig( T4 + 4sum%T3T' + 6sum%T2T'2 +...)
+   IF (iflag_order2_sollw == 1) THEN
+    meansqT(:) = 0. ! as working buffer
+    DO nsrf = 1, nbsrf
+     DO i = 1, klon
+      meansqT(i) = meansqT(i)+(ts(i,nsrf)-ztsol(i))**2 *pctsrf(i,nsrf)
+     END DO
+    END DO
+    DO nsrf = 1, nbsrf
+     DO i = 1, klon
+      sollw(i,nsrf) = sollw(i,nsrf) &
+                + 6.0*RSIGMA*ztsol(i)**2 *(meansqT(i)-(ztsol(i)-ts(i,nsrf))**2)
+     ENDDO
+    ENDDO
+   ENDIF   ! iflag_order2_sollw == 1
+!>al1
+
+!****************************************************************************************
+! 4) Loop over different surfaces
+!
+! Only points containing a fraction of the sub surface will be treated.
+! 
+!****************************************************************************************
+   
+    loop_nbsrf: DO nsrf = 1, nbsrf
+       IF (prt_level >=10) print *,' Loop nsrf ',nsrf
+
+! Search for index(ni) and size(knon) of domaine to treat
+       ni(:) = 0
+       knon  = 0
+       DO i = 1, klon
+          IF (pctsrf(i,nsrf) > 0.) THEN
+             knon = knon + 1
+             ni(knon) = i
+          ENDIF
+       ENDDO
+
+!!! jyg le 19/08/2012
+!       IF (knon <= 0) THEN
+!         IF (prt_level >= 10) print *,' no grid point for nsrf= ',nsrf
+!         cycle loop_nbsrf
+!       ENDIF
+!!!
+
+       ! write index, with IOIPSL
+       IF (debugindex .AND. mpi_size==1) THEN 
+          tabindx(:)=0.
+          DO i=1,knon
+             tabindx(i)=REAL(i)
+          END DO
+          debugtab(:,:) = 0.
+          ndexbg(:) = 0
+          CALL gath2cpl(tabindx,debugtab,knon,ni)
+          CALL histwrite(nidbg,cl_surf(nsrf),itap,debugtab,nbp_lon*nbp_lat, ndexbg)
+       ENDIF
+       
+!****************************************************************************************
+! 5) Compress variables 
+!
+!****************************************************************************************
+
+       DO j = 1, knon
+          i = ni(j)
+          ypct(j)    = pctsrf(i,nsrf)
+          yts(j)     = ts(i,nsrf)
+          ysnow(j)   = snow(i,nsrf)
+          yqsurf(j)  = qsurf(i,nsrf)
+          yalb(j)    = alb(i,nsrf)
+!albedo SB >>>
+          yalb_vis(j) = alb_dir(i,1,nsrf)
+          if(nsw==6)then
+            yalb_vis(j)=(alb_dir(i,1,nsrf)*SFRWL(1)+alb_dir(i,2,nsrf)*SFRWL(2) &
+              +alb_dir(i,3,nsrf)*SFRWL(3))/(SFRWL(1)+SFRWL(2)+SFRWL(3))
+          endif
+!albedo SB <<<
+          yrain_f(j) = rain_f(i)
+          ysnow_f(j) = snow_f(i)
+          yagesno(j) = agesno(i,nsrf)
+          yfder(j)   = fder(i)
+          ylwdown(j) = lwdown_m(i)
+          ygustiness(j) = gustiness(i)
+          ysolsw(j)  = solsw(i,nsrf)
+          ysollw(j)  = sollw(i,nsrf)
+          yz0m(j)  = z0m(i,nsrf)
+          yz0h(j)  = z0h(i,nsrf)
+          yrugoro(j) = rugoro(i)
+          yu1(j)     = u(i,1)
+          yv1(j)     = v(i,1)
+          ypaprs(j,klev+1) = paprs(i,klev+1)
+!jyg<
+!!          ywindsp(j) = SQRT(u10m(i,nsrf)**2 + v10m(i,nsrf)**2 )
+          ywindsp(j) = windsp(i,nsrf)
+!>jyg
+          ! Martin
+          yzsig(j)   = zsig(i)
+          ycldt(j)   = cldt(i)
+          yrmu0(j)   = rmu0(i)
+          ! Martin
+!!! nrlmd le 13/06/2011
+          y_delta_tsurf(j)=delta_tsurf(i,nsrf)
+!!!
+       END DO
+
+       DO k = 1, klev
+          DO j = 1, knon
+             i = ni(j)
+             ypaprs(j,k) = paprs(i,k)
+             ypplay(j,k) = pplay(i,k)
+             ydelp(j,k)  = delp(i,k)
+          ENDDO
+       ENDDO
+!!! jyg le 07/02/2012 et le 10/04/2013
+        DO k = 1, klev
+          DO j = 1, knon
+             i = ni(j)
+!jyg<
+!!             ytke(j,k)   = tke(i,k,nsrf)
+             ytke(j,k)   = tke_x(i,k,nsrf)
+!>jyg
+             yu(j,k) = u(i,k)
+             yv(j,k) = v(i,k)
+             yt(j,k) = t(i,k)
+             yq(j,k) = q(i,k)
+          ENDDO
+        ENDDO
+!
+       IF (iflag_split .eq.1) THEN
+!!! nrlmd le 02/05/2011
+        DO k = 1, klev
+          DO j = 1, knon
+             i = ni(j)
+             yu_x(j,k) = u(i,k)
+             yv_x(j,k) = v(i,k)
+             yt_x(j,k) = t(i,k)-wake_s(i)*wake_dlt(i,k)
+             yq_x(j,k) = q(i,k)-wake_s(i)*wake_dlq(i,k)
+             yu_w(j,k) = u(i,k)
+             yv_w(j,k) = v(i,k)
+             yt_w(j,k) = t(i,k)+(1.-wake_s(i))*wake_dlt(i,k)
+             yq_w(j,k) = q(i,k)+(1.-wake_s(i))*wake_dlq(i,k)
+!!!
+          ENDDO
+        ENDDO
+!!! nrlmd le 02/05/2011
+        DO k = 1, klev+1
+          DO j = 1, knon
+             i = ni(j)
+!jyg<
+!!             ytke_x(j,k) = tke(i,k,nsrf)-wake_s(i)*wake_dltke(i,k,nsrf)
+!!             ytke_w(j,k) = tke(i,k,nsrf)+(1.-wake_s(i))*wake_dltke(i,k,nsrf)
+!!             ywake_dltke(j,k) = wake_dltke(i,k,nsrf)
+!!             ytke(j,k)     = tke(i,k,nsrf)
+!
+             ytke_x(j,k)      = tke_x(i,k,nsrf)
+             ytke(j,k)        = tke_x(i,k,nsrf)+wake_s(i)*wake_dltke(i,k,nsrf)
+             ytke_w(j,k)      = tke_x(i,k,nsrf)+wake_dltke(i,k,nsrf)
+             ywake_dltke(j,k) = wake_dltke(i,k,nsrf)
+!>jyg
+          ENDDO
+        ENDDO
+!!!
+!!! jyg le 07/02/2012
+        DO j = 1, knon
+          i = ni(j)
+          ywake_s(j)=wake_s(i)
+          ywake_cstar(j)=wake_cstar(i)
+          ywake_dens(j)=wake_dens(i)
+        ENDDO
+!!!
+!!! nrlmd le 13/06/2011
+        DO j=1,knon
+         yts_x(j)=yts(j)-ywake_s(j)*y_delta_tsurf(j)
+         yts_w(j)=yts(j)+(1.-ywake_s(j))*y_delta_tsurf(j)
+        ENDDO
+!!!
+       ENDIF  ! (iflag_split .eq.1)
+!!!
+       DO k = 1, nsoilmx
+          DO j = 1, knon
+             i = ni(j)
+             ytsoil(j,k) = ftsoil(i,k,nsrf)
+          END DO
+       END DO
+       
+       ! qsol(water height in soil) only for bucket continental model
+       IF ( nsrf .EQ. is_ter .AND. .NOT. ok_veget ) THEN 
+          DO j = 1, knon
+             i = ni(j)
+             yqsol(j) = qsol(i)
+          END DO
+       ENDIF
+       
+!****************************************************************************************
+! 6a) Calculate coefficients for turbulent diffusion at surface, cdragh et cdragm.
+!
+!****************************************************************************************
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+!!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012
+! Faire disparaitre les lignes commentees fin 2015 (le temps des tests)
+!       CALL clcdrag( knon, nsrf, ypaprs, ypplay, &
+!           yu(:,1), yv(:,1), yt(:,1), yq(:,1), &
+!           yts, yqsurf, yrugos, &
+!           ycdragm, ycdragh )
+! Fuxing WANG, 04/03/2015, replace the clcdrag by the merged version: cdrag
+        DO i = 1, knon
+!          print*,'PBL ',i,RD
+!          print*,'PBL ',yt(i,1),ypaprs(i,1),ypplay(i,1)
+           zgeo1(i) = RD * yt(i,1) / (0.5*(ypaprs(i,1)+ypplay(i,1))) &
+                * (ypaprs(i,1)-ypplay(i,1))
+           speed(i) = SQRT(yu(i,1)**2+yv(i,1)**2)
+        END DO
+        CALL cdrag(knon, nsrf, &
+            speed, yt(:,1), yq(:,1), zgeo1, ypaprs(:,1),&
+            yts, yqsurf, yz0m, yz0h, &
+            ycdragm, ycdragh, zri1, pref )
+
+! --- 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
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh ', ycdragh
+       ELSE  !(iflag_split .eq.0)
+
+! Faire disparaitre les lignes commentees fin 2015 (le temps des tests)
+!       CALL clcdrag( knon, nsrf, ypaprs, ypplay, &
+!           yu_x(:,1), yv_x(:,1), yt_x(:,1), yq_x(:,1), &
+!           yts_x, yqsurf, yrugos, &
+!           ycdragm_x, ycdragh_x )
+! Fuxing WANG, 04/03/2015, replace the clcdrag by the merged version: cdrag
+        DO i = 1, knon
+           zgeo1_x(i) = RD * yt_x(i,1) / (0.5*(ypaprs(i,1)+ypplay(i,1))) &
+                * (ypaprs(i,1)-ypplay(i,1))
+           speed_x(i) = SQRT(yu_x(i,1)**2+yv_x(i,1)**2)
+        END DO
+        CALL cdrag(knon, nsrf, &
+            speed_x, yt_x(:,1), yq_x(:,1), zgeo1_x, ypaprs(:,1),&
+            yts_x, yqsurf, yz0m, yz0h, &
+            ycdragm_x, ycdragh_x, zri1_x, pref_x )
+
+! --- special Dice. JYG+MPL 25112013
+        IF (ok_prescr_ust) then
+         DO i = 1, knon
+!         print *,'ycdragm_x avant=',ycdragm_x(i)
+          vent= sqrt(yu_x(i,1)*yu_x(i,1)+yv_x(i,1)*yv_x(i,1))
+          ycdragm_x(i) = ust*ust/(1.+vent)/vent
+!         print *,'ycdragm_x ust yu yv apres=',ycdragm_x(i),ust,yu_x(i,1),yv_x(i,1)
+         ENDDO
+        ENDIF
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x
+!
+! Faire disparaitre les lignes commentees fin 2015 (le temps des tests)
+!        CALL clcdrag( knon, nsrf, ypaprs, ypplay, &
+!            yu_w(:,1), yv_w(:,1), yt_w(:,1), yq_w(:,1), &
+!            yts_w, yqsurf, yz0m, &
+!            ycdragm_w, ycdragh_w )
+! Fuxing WANG, 04/03/2015, replace the clcdrag by the merged version: cdrag
+        DO i = 1, knon
+           zgeo1_w(i) = RD * yt_w(i,1) / (0.5*(ypaprs(i,1)+ypplay(i,1))) &
+                * (ypaprs(i,1)-ypplay(i,1))
+           speed_w(i) = SQRT(yu_w(i,1)**2+yv_w(i,1)**2)
+        END DO
+        CALL cdrag(knon, nsrf, &
+            speed_w, yt_w(:,1), yq_w(:,1), zgeo1_w, ypaprs(:,1),&
+            yts_w, yqsurf, yz0m, yz0h, &
+            ycdragm_w, ycdragh_w, zri1_w, pref_w )
+
+! --- special Dice. JYG+MPL 25112013 puis BOMEX
+        IF (ok_prescr_ust) then
+         DO i = 1, knon
+!         print *,'ycdragm_w avant=',ycdragm_w(i)
+          vent= sqrt(yu_w(i,1)*yu_w(i,1)+yv_w(i,1)*yv_w(i,1))
+          ycdragm_w(i) = ust*ust/(1.+vent)/vent
+!         print *,'ycdragm_w ust yu yv apres=',ycdragm_w(i),ust,yu_w(i,1),yv_w(i,1)
+         ENDDO
+        ENDIF
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+       
+
+!****************************************************************************************
+! 6b) Calculate coefficients for turbulent diffusion in the atmosphere, ycoefh et ycoefm.
+!
+!****************************************************************************************
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+!!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012
+      IF (prt_level >=10) THEN
+      print *,' args coef_diff_turb: yu ',  yu  
+      print *,' args coef_diff_turb: yv ',  yv  
+      print *,' args coef_diff_turb: yq ',  yq  
+      print *,' args coef_diff_turb: yt ',  yt  
+      print *,' args coef_diff_turb: yts ', yts  
+      print *,' args coef_diff_turb: yz0m ', yz0m  
+      print *,' args coef_diff_turb: yqsurf ', yqsurf  
+      print *,' args coef_diff_turb: ycdragm ', ycdragm
+      print *,' args coef_diff_turb: ycdragh ', ycdragh
+      print *,' args coef_diff_turb: ytke ', ytke
+       ENDIF
+        CALL coef_diff_turb(dtime, nsrf, knon, ni,  &
+            ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, &
+            ycoefm, ycoefh, ytke)
+       IF (iflag_pbl>=20.AND.iflag_pbl<30) THEN
+! In this case, coef_diff_turb is called for the Cd only
+       DO k = 2, klev
+          DO j = 1, knon
+             i = ni(j)
+             ycoefh(j,k)   = zcoefh(i,k,nsrf)
+             ycoefm(j,k)   = zcoefm(i,k,nsrf)
+          ENDDO
+       ENDDO
+       ENDIF
+        IF (prt_level >=10) print *,'coef_diff_turb -> ycoefh ',ycoefh
+!
+       ELSE  !(iflag_split .eq.0)
+      IF (prt_level >=10) THEN
+      print *,' args coef_diff_turb: yu_x ',  yu_x  
+      print *,' args coef_diff_turb: yv_x ',  yv_x  
+      print *,' args coef_diff_turb: yq_x ',  yq_x  
+      print *,' args coef_diff_turb: yt_x ',  yt_x  
+      print *,' args coef_diff_turb: yts_x ', yts_x  
+      print *,' args coef_diff_turb: yqsurf ', yqsurf  
+      print *,' args coef_diff_turb: ycdragm_x ', ycdragm_x
+      print *,' args coef_diff_turb: ycdragh_x ', ycdragh_x
+      print *,' args coef_diff_turb: ytke_x ', ytke_x
+       ENDIF
+        CALL coef_diff_turb(dtime, nsrf, knon, ni,  &
+            ypaprs, ypplay, yu_x, yv_x, yq_x, yt_x, yts_x, yqsurf, ycdragm_x, &
+            ycoefm_x, ycoefh_x, ytke_x)
+       IF (iflag_pbl>=20.AND.iflag_pbl<30) THEN
+! In this case, coef_diff_turb is called for the Cd only
+       DO k = 2, klev
+          DO j = 1, knon
+             i = ni(j)
+             ycoefh_x(j,k)   = zcoefh(i,k,nsrf)
+             ycoefm_x(j,k)   = zcoefm(i,k,nsrf)
+          ENDDO
+       ENDDO
+       ENDIF
+        IF (prt_level >=10) print *,'coef_diff_turb -> ycoefh_x ',ycoefh_x
+!
+      IF (prt_level >=10) THEN
+      print *,' args coef_diff_turb: yu_w ',  yu_w  
+      print *,' args coef_diff_turb: yv_w ',  yv_w  
+      print *,' args coef_diff_turb: yq_w ',  yq_w  
+      print *,' args coef_diff_turb: yt_w ',  yt_w  
+      print *,' args coef_diff_turb: yts_w ', yts_w  
+      print *,' args coef_diff_turb: yqsurf ', yqsurf  
+      print *,' args coef_diff_turb: ycdragm_w ', ycdragm_w
+      print *,' args coef_diff_turb: ycdragh_w ', ycdragh_w
+      print *,' args coef_diff_turb: ytke_w ', ytke_w
+       ENDIF
+        CALL coef_diff_turb(dtime, nsrf, knon, ni,  &
+            ypaprs, ypplay, yu_w, yv_w, yq_w, yt_w, yts_w, yqsurf, ycdragm_w, &
+            ycoefm_w, ycoefh_w, ytke_w)
+       IF (iflag_pbl>=20.AND.iflag_pbl<30) THEN
+! In this case, coef_diff_turb is called for the Cd only
+       DO k = 2, klev
+          DO j = 1, knon
+             i = ni(j)
+             ycoefh_w(j,k)   = zcoefh(i,k,nsrf)
+             ycoefm_w(j,k)   = zcoefm(i,k,nsrf)
+          ENDDO
+       ENDDO
+       ENDIF
+        IF (prt_level >=10) print *,'coef_diff_turb -> ycoefh_w ',ycoefh_w
+!
+!!!jyg le 10/04/2013
+!!   En attendant de traiter le transport des traceurs dans les poches froides, formule
+!!   arbitraire pour ycoefh et ycoefm
+      DO k = 2,klev
+        DO j = 1,knon
+         ycoefh(j,k) = ycoefh_x(j,k) + ywake_s(j)*(ycoefh_w(j,k) - ycoefh_x(j,k))
+         ycoefm(j,k) = ycoefm_x(j,k) + ywake_s(j)*(ycoefm_w(j,k) - ycoefm_x(j,k))
+        ENDDO
+      ENDDO
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+       
+!****************************************************************************************
+! 
+! 8) "La descente" - "The downhill"
+!  
+!  climb_hq_down and climb_wind_down calculate the coefficients
+!  Ccoef_X et Dcoef_X for X=[H, Q, U, V].
+!  Only the coefficients at surface for H and Q are returned.
+!
+!****************************************************************************************
+
+! - Calculate the coefficients Ccoef_H, Ccoef_Q, Dcoef_H and Dcoef_Q 
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+!!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012
+        CALL climb_hq_down(knon, ycoefh, ypaprs, ypplay, &
+            ydelp, yt, yq, dtime, &
+!!! jyg le 09/05/2011
+            CcoefH, CcoefQ, DcoefH, DcoefQ, &
+            Kcoef_hq, gama_q, gama_h, &
+!!!
+            AcoefH, AcoefQ, BcoefH, BcoefQ)
+       ELSE  !(iflag_split .eq.0)
+        CALL climb_hq_down(knon, ycoefh_x, ypaprs, ypplay, &
+            ydelp, yt_x, yq_x, dtime, &
+!!! nrlmd le 02/05/2011
+            CcoefH_x, CcoefQ_x, DcoefH_x, DcoefQ_x, &
+            Kcoef_hq_x, gama_q_x, gama_h_x, &
+!!!
+            AcoefH_x, AcoefQ_x, BcoefH_x, BcoefQ_x)
+!
+        CALL climb_hq_down(knon, ycoefh_w, ypaprs, ypplay, &
+            ydelp, yt_w, yq_w, dtime, &
+!!! nrlmd le 02/05/2011
+            CcoefH_w, CcoefQ_w, DcoefH_w, DcoefQ_w, &
+            Kcoef_hq_w, gama_q_w, gama_h_w, &
+!!!
+            AcoefH_w, AcoefQ_w, BcoefH_w, BcoefQ_w)
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+! - Calculate the coefficients Ccoef_U, Ccoef_V, Dcoef_U and Dcoef_V
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012
+        CALL climb_wind_down(knon, dtime, ycoefm, ypplay, ypaprs, yt, ydelp, yu, yv, &
+!!! jyg le 09/05/2011
+            CcoefU, CcoefV, DcoefU, DcoefV, &
+            Kcoef_m, alf_1, alf_2, &
+!!!
+            AcoefU, AcoefV, BcoefU, BcoefV)
+       ELSE  ! (iflag_split .eq.0)
+        CALL climb_wind_down(knon, dtime, ycoefm_x, ypplay, ypaprs, yt_x, ydelp, yu_x, yv_x, &
+!!! nrlmd le 02/05/2011
+            CcoefU_x, CcoefV_x, DcoefU_x, DcoefV_x, &
+            Kcoef_m_x, alf_1_x, alf_2_x, &
+!!!
+            AcoefU_x, AcoefV_x, BcoefU_x, BcoefV_x)
+!
+        CALL climb_wind_down(knon, dtime, ycoefm_w, ypplay, ypaprs, yt_w, ydelp, yu_w, yv_w, &
+!!! nrlmd le 02/05/2011
+            CcoefU_w, CcoefV_w, DcoefU_w, DcoefV_w, &
+            Kcoef_m_w, alf_1_w, alf_2_w, &
+!!!
+            AcoefU_w, AcoefV_w, BcoefU_w, BcoefV_w)
+!!!      
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+!****************************************************************************************
+! 9) Small calculations
+!
+!****************************************************************************************
+
+! - Reference pressure is given the values at surface level          
+       ypsref(:) = ypaprs(:,1)  
+
+! - CO2 field on 2D grid to be sent to ORCHIDEE
+!   Transform to compressed field
+       IF (carbon_cycle_cpl) THEN
+          DO i=1,knon
+             r_co2_ppm(i) = co2_send(ni(i))
+          END DO
+       ELSE
+          r_co2_ppm(:) = co2_ppm     ! Constant field
+       END IF
+
+!!! nrlmd le 13/06/2011
+!----- On finit le calcul des coefficients d'\'echange:on multiplie le cdrag par le module du vent et la densit\'e dans la premi\`ere couche 
+!          Kech_h_x(j) = ycdragh_x(j) * &
+!             (1.0+SQRT(yu_x(j,1)**2+yv_x(j,1)**2)) * &
+!             ypplay(j,1)/(RD*yt_x(j,1))
+!          Kech_h_w(j) = ycdragh_w(j) * &
+!             (1.0+SQRT(yu_w(j,1)**2+yv_w(j,1)**2)) * &
+!             ypplay(j,1)/(RD*yt_w(j,1))
+!          Kech_h(j) = (1.-ywake_s(j))*Kech_h_x(j)+ywake_s(j)*Kech_h_w(j)
+! 
+!          Kech_m_x(j) = ycdragm_x(j) * &
+!             (1.0+SQRT(yu_x(j,1)**2+yv_x(j,1)**2)) * &
+!             ypplay(j,1)/(RD*yt_x(j,1))
+!          Kech_m_w(j) = ycdragm_w(j) * &
+!             (1.0+SQRT(yu_w(j,1)**2+yv_w(j,1)**2)) * &
+!             ypplay(j,1)/(RD*yt_w(j,1))
+!          Kech_m(j) = (1.-ywake_s(j))*Kech_m_x(j)+ywake_s(j)*Kech_m_w(j)
+!!!
+
+!!! nrlmd le 02/05/2011  -----------------------On raccorde les 2 colonnes dans la couche 1 
+!----------------------------------------------------------------------------------------
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.1) THEN
+!!!
+!!! jyg le 09/04/2013 ; passage aux nouvelles expressions en differences
+
+        DO j=1,knon
+!
+! Calcul des coefficients d echange
+         mod_wind_x = 1.0+SQRT(yu_x(j,1)**2+yv_x(j,1)**2)
+         mod_wind_w = 1.0+SQRT(yu_w(j,1)**2+yv_w(j,1)**2)
+         rho1 = ypplay(j,1)/(RD*yt(j,1))
+         Kech_h_x(j) = ycdragh_x(j) * mod_wind_x * rho1
+         Kech_h_w(j) = ycdragh_w(j) * mod_wind_w * rho1
+         Kech_m_x(j) = ycdragm_x(j) * mod_wind_x * rho1
+         Kech_m_w(j) = ycdragm_w(j) * mod_wind_w * rho1
+!
+         dd_Kh = Kech_h_w(j) - Kech_h_x(j)
+         dd_Km = Kech_m_w(j) - Kech_m_x(j)
+         IF (prt_level >=10) THEN
+          print *,' mod_wind_x, mod_wind_w ', mod_wind_x, mod_wind_w
+          print *,' rho1 ',rho1
+          print *,' ycdragh_x(j),ycdragm_x(j) ',ycdragh_x(j),ycdragm_x(j)
+          print *,' ycdragh_w(j),ycdragm_w(j) ',ycdragh_w(j),ycdragm_w(j)
+          print *,' dd_Kh: ',dd_KH
+         ENDIF
+!
+         Kech_h(j) = Kech_h_x(j) + ywake_s(j)*dd_Kh
+         Kech_m(j) = Kech_m_x(j) + ywake_s(j)*dd_Km
+!
+! Calcul des coefficients d echange corriges des retroactions
+        Kech_H_xp(j) = Kech_h_x(j)/(1.-BcoefH_x(j)*Kech_h_x(j)*dtime)
+        Kech_H_wp(j) = Kech_h_w(j)/(1.-BcoefH_w(j)*Kech_h_w(j)*dtime)
+        Kech_Q_xp(j) = Kech_h_x(j)/(1.-BcoefQ_x(j)*Kech_h_x(j)*dtime)
+        Kech_Q_wp(j) = Kech_h_w(j)/(1.-BcoefQ_w(j)*Kech_h_w(j)*dtime)
+        Kech_U_xp(j) = Kech_m_x(j)/(1.-BcoefU_x(j)*Kech_m_x(j)*dtime)
+        Kech_U_wp(j) = Kech_m_w(j)/(1.-BcoefU_w(j)*Kech_m_w(j)*dtime)
+        Kech_V_xp(j) = Kech_m_x(j)/(1.-BcoefV_x(j)*Kech_m_x(j)*dtime)
+        Kech_V_wp(j) = Kech_m_w(j)/(1.-BcoefV_w(j)*Kech_m_w(j)*dtime)
+!
+         dd_KHp = Kech_H_wp(j) - Kech_H_xp(j)
+         dd_KQp = Kech_Q_wp(j) - Kech_Q_xp(j)
+         dd_KUp = Kech_U_wp(j) - Kech_U_xp(j)
+         dd_KVp = Kech_V_wp(j) - Kech_V_xp(j)
+!
+        Kech_Hp(j) = Kech_H_xp(j) + ywake_s(j)*dd_KHp
+        Kech_Qp(j) = Kech_Q_xp(j) + ywake_s(j)*dd_KQp
+        Kech_Up(j) = Kech_U_xp(j) + ywake_s(j)*dd_KUp
+        Kech_Vp(j) = Kech_V_xp(j) + ywake_s(j)*dd_KVp
+!
+! Calcul des differences w-x
+       dd_CM = ycdragm_w(j) - ycdragm_x(j)
+       dd_CH = ycdragh_w(j) - ycdragh_x(j)
+       dd_u = yu_w(j,1) - yu_x(j,1)
+       dd_v = yv_w(j,1) - yv_x(j,1)
+       dd_t = yt_w(j,1) - yt_x(j,1)
+       dd_q = yq_w(j,1) - yq_x(j,1)
+       dd_AH = AcoefH_w(j) - AcoefH_x(j)
+       dd_AQ = AcoefQ_w(j) - AcoefQ_x(j)
+       dd_AU = AcoefU_w(j) - AcoefU_x(j)
+       dd_AV = AcoefV_w(j) - AcoefV_x(j)
+       dd_BH = BcoefH_w(j) - BcoefH_x(j)
+       dd_BQ = BcoefQ_w(j) - BcoefQ_x(j)
+       dd_BU = BcoefU_w(j) - BcoefU_x(j)
+       dd_BV = BcoefV_w(j) - BcoefV_x(j)
+!
+       IF (prt_level >=10) THEN
+          print *,'Variables pour la fusion : Kech_H_xp(j)' ,Kech_H_xp(j)
+          print *,'Variables pour la fusion : Kech_H_wp(j)' ,Kech_H_wp(j)
+          print *,'Variables pour la fusion : Kech_Hp(j)' ,Kech_Hp(j)
+          print *,'Variables pour la fusion : Kech_h(j)' ,Kech_h(j)
+       ENDIF
+!
+! Calcul des coef A, B \'equivalents dans la couche 1
+!
+       AcoefH(j) = AcoefH_x(j) + ywake_s(j)*(Kech_H_wp(j)/Kech_Hp(j))*dd_AH
+       AcoefQ(j) = AcoefQ_x(j) + ywake_s(j)*(Kech_Q_wp(j)/Kech_Qp(j))*dd_AQ
+       AcoefU(j) = AcoefU_x(j) + ywake_s(j)*(Kech_U_wp(j)/Kech_Up(j))*dd_AU
+       AcoefV(j) = AcoefV_x(j) + ywake_s(j)*(Kech_V_wp(j)/Kech_Vp(j))*dd_AV
+!
+       BcoefH(j) = BcoefH_x(j) + ywake_s(j)*BcoefH_x(j)*(dd_Kh/Kech_h(j))*(1.+Kech_H_wp(j)/Kech_Hp(j)) &
+                               + ywake_s(j)*(Kech_H_wp(j)/Kech_Hp(j))*(Kech_h_w(j)/Kech_h(j))*dd_BH
+
+       BcoefQ(j) = BcoefQ_x(j) + ywake_s(j)*BcoefQ_x(j)*(dd_Kh/Kech_h(j))*(1.+Kech_Q_wp(j)/Kech_Qp(j)) &
+                               + ywake_s(j)*(Kech_Q_wp(j)/Kech_Qp(j))*(Kech_h_w(j)/Kech_h(j))*dd_BQ
+
+       BcoefU(j) = BcoefU_x(j) + ywake_s(j)*BcoefU_x(j)*(dd_Km/Kech_h(j))*(1.+Kech_U_wp(j)/Kech_Up(j)) &
+                               + ywake_s(j)*(Kech_U_wp(j)/Kech_Up(j))*(Kech_m_w(j)/Kech_m(j))*dd_BU
+
+       BcoefV(j) = BcoefV_x(j) + ywake_s(j)*BcoefV_x(j)*(dd_Km/Kech_h(j))*(1.+Kech_V_wp(j)/Kech_Vp(j)) &
+                               + ywake_s(j)*(Kech_V_wp(j)/Kech_Vp(j))*(Kech_m_w(j)/Kech_m(j))*dd_BV
+
+!
+! Calcul des cdrag \'equivalents dans la couche 
+!
+       ycdragm(j) = ycdragm_x(j) + ywake_s(j)*dd_CM
+       ycdragh(j) = ycdragh_x(j) + ywake_s(j)*dd_CH
+!
+! Calcul de T, q, u et v \'equivalents dans la couche 1
+       yt(j,1) = yt_x(j,1) + ywake_s(j)*(Kech_h_w(j)/Kech_h(j))*dd_t
+       yq(j,1) = yq_x(j,1) + ywake_s(j)*(Kech_h_w(j)/Kech_h(j))*dd_q
+       yu(j,1) = yu_x(j,1) + ywake_s(j)*(Kech_m_w(j)/Kech_m(j))*dd_u
+       yv(j,1) = yv_x(j,1) + ywake_s(j)*(Kech_m_w(j)/Kech_m(j))*dd_v
+
+
+        ENDDO
+!!!
+       ENDIF  ! (iflag_split .eq.1)
+!!!
+
+!****************************************************************************************
+!
+! Calulate t2m and q2m for the case of calculation at land grid points 
+! t2m and q2m are needed as input to ORCHIDEE
+!
+!****************************************************************************************
+       IF (nsrf == is_ter) THEN
+
+          DO i = 1, knon
+             zgeo1(i) = RD * yt(i,1) / (0.5*(ypaprs(i,1)+ypplay(i,1))) &
+                  * (ypaprs(i,1)-ypplay(i,1))
+          END DO
+
+          ! Calculate the temperature et relative humidity at 2m and the wind at 10m 
+          CALL stdlevvar(klon, knon, is_ter, zxli, &
+               yu(:,1), yv(:,1), yt(:,1), yq(:,1), zgeo1, &
+               yts, yqsurf, yz0m, yz0h, ypaprs(:,1), ypplay(:,1), &
+               yt2m, yq2m, yt10m, yq10m, yu10m, yustar)
+          
+       END IF
+
+!****************************************************************************************
+!
+! 10) Switch according to current surface
+!     It is necessary to start with the continental surfaces because the ocean
+!     needs their run-off.
+!
+!****************************************************************************************
+       SELECT CASE(nsrf)
+     
+       CASE(is_ter)
+!          print*,"DEBUGTS",yts(knon/2),ylwdown(knon/2)
+          CALL surf_land(itap, dtime, date0, jour, knon, ni,&
+               rlon, rlat, yrmu0, &
+               debut, lafin, ydelp(:,1), r_co2_ppm, ysolsw, ysollw, yalb, &
+               yts, ypplay(:,1), ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),&
+               AcoefH, AcoefQ, BcoefH, BcoefQ, & 
+               AcoefU, AcoefV, BcoefU, BcoefV, & 
+               ypsref, yu1, yv1, ygustiness, yrugoro, pctsrf, &
+               ylwdown, yq2m, yt2m, &
+               ysnow, yqsol, yagesno, ytsoil, &
+               yz0m, yz0h, SFRWL, yalb_dir_new, yalb_dif_new, yevap, yfluxsens,yfluxlat,&
+               yqsurf, ytsurf_new, y_dflux_t, y_dflux_q, &
+               y_flux_u1, y_flux_v1 )
+               
+! Special DICE MPL 05082013 puis BOMEX
+       IF (ok_prescr_ust) THEN
+          do j=1,knon
+!         ysnow(:)=0.
+!         yqsol(:)=0.
+!         yagesno(:)=50.
+!         ytsoil(:,:)=300.
+!         yz0_new(:)=0.001
+!         yevap(:)=flat/RLVTT
+!         yfluxlat(:)=-flat
+!         yfluxsens(:)=-fsens
+!         yqsurf(:)=0.
+!         ytsurf_new(:)=tg
+!         y_dflux_t(:)=0.
+!         y_dflux_q(:)=0.
+          y_flux_u1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yu(j,1)*ypplay(j,1)/RD/yt(j,1)
+          y_flux_v1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yv(j,1)*ypplay(j,1)/RD/yt(j,1)
+          enddo
+      ENDIF
+
+     
+       CASE(is_lic)
+          ! Martin
+          CALL surf_landice(itap, dtime, knon, ni, &
+               rlon, rlat, debut, lafin, &
+               yrmu0, ylwdown, yalb, ypphi(:,1), &
+               ysolsw, ysollw, yts, ypplay(:,1), &
+               ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),&
+               AcoefH, AcoefQ, BcoefH, BcoefQ, &
+               AcoefU, AcoefV, BcoefU, BcoefV, &
+               ypsref, yu1, yv1, ygustiness, yrugoro, pctsrf, &
+               ysnow, yqsurf, yqsol, yagesno, &
+               ytsoil, yz0m, yz0h, SFRWL, yalb_dir_new, yalb_dif_new, yevap,yfluxsens,yfluxlat, &
+               ytsurf_new, y_dflux_t, y_dflux_q, &
+               yzsig, ycldt, &
+               ysnowhgt, yqsnow, ytoice, ysissnow, &
+               yalb3_new, yrunoff, &
+               y_flux_u1, y_flux_v1)
+
+!jyg<
+!!          alb3_lic(:)=0.
+!>jyg
+          DO j = 1, knon
+             i = ni(j)
+             alb3_lic(i) = yalb3_new(j)
+             snowhgt(i)   = ysnowhgt(j)
+             qsnow(i)     = yqsnow(j)
+             to_ice(i)    = ytoice(j)
+             sissnow(i)   = ysissnow(j)
+             runoff(i)    = yrunoff(j)
+          END DO
+          ! Martin
+! Special DICE MPL 05082013 puis BOMEX MPL 20150410
+       IF (ok_prescr_ust) THEN
+          DO j=1,knon
+          y_flux_u1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yu(j,1)*ypplay(j,1)/RD/yt(j,1)
+          y_flux_v1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yv(j,1)*ypplay(j,1)/RD/yt(j,1)
+          ENDDO
+      ENDIF
+          
+       CASE(is_oce)
+           CALL surf_ocean(rlon, rlat, ysolsw, ysollw, yalb_vis, &
+               ywindsp, rmu0, yfder, yts, &
+               itap, dtime, jour, knon, ni, &
+               ypplay(:,1), zgeo1/RG, ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),&
+               AcoefH, AcoefQ, BcoefH, BcoefQ, &
+               AcoefU, AcoefV, BcoefU, BcoefV, &
+               ypsref, yu1, yv1, ygustiness, yrugoro, pctsrf, &
+               ysnow, yqsurf, yagesno, &
+               yz0m, yz0h, SFRWL,yalb_dir_new, yalb_dif_new, yevap, yfluxsens,yfluxlat,&
+               ytsurf_new, y_dflux_t, y_dflux_q, slab_wfbils, &
+               y_flux_u1, y_flux_v1)
+      IF (prt_level >=10) THEN
+          print *,'arg de surf_ocean: ycdragh ',ycdragh
+          print *,'arg de surf_ocean: ycdragm ',ycdragm
+          print *,'arg de surf_ocean: yt ', yt
+          print *,'arg de surf_ocean: yq ', yq
+          print *,'arg de surf_ocean: yts ', yts
+          print *,'arg de surf_ocean: AcoefH ',AcoefH
+          print *,'arg de surf_ocean: AcoefQ ',AcoefQ
+          print *,'arg de surf_ocean: BcoefH ',BcoefH
+          print *,'arg de surf_ocean: BcoefQ ',BcoefQ
+          print *,'arg de surf_ocean: yevap ',yevap
+          print *,'arg de surf_ocean: yfluxsens ',yfluxsens
+          print *,'arg de surf_ocean: yfluxlat ',yfluxlat
+          print *,'arg de surf_ocean: ytsurf_new ',ytsurf_new
+       ENDIF
+! Special DICE MPL 05082013 puis BOMEX MPL 20150410
+       IF (ok_prescr_ust) THEN
+          DO j=1,knon
+          y_flux_u1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yu(j,1)*ypplay(j,1)/RD/yt(j,1)
+          y_flux_v1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yv(j,1)*ypplay(j,1)/RD/yt(j,1)
+          ENDDO
+      ENDIF
+          
+       CASE(is_sic)
+          CALL surf_seaice( &
+!albedo SB >>>
+               rlon, rlat, ysolsw, ysollw, yalb_vis, yfder, &
+!albedo SB <<<
+               itap, dtime, jour, knon, ni, &
+               lafin, &
+               yts, ypplay(:,1), ycdragh, ycdragm, yrain_f, ysnow_f, yt(:,1), yq(:,1),&
+               AcoefH, AcoefQ, BcoefH, BcoefQ, &
+               AcoefU, AcoefV, BcoefU, BcoefV, &
+               ypsref, yu1, yv1, ygustiness, pctsrf, &
+               ysnow, yqsurf, yqsol, yagesno, ytsoil, &
+!albedo SB >>>
+               yz0m, yz0h, SFRWL, yalb_dir_new, yalb_dif_new, yevap, yfluxsens,yfluxlat,&
+!albedo SB <<<
+               ytsurf_new, y_dflux_t, y_dflux_q, &
+               y_flux_u1, y_flux_v1)
+          
+! Special DICE MPL 05082013 puis BOMEX MPL 20150410
+       IF (ok_prescr_ust) THEN
+          DO j=1,knon
+          y_flux_u1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yu(j,1)*ypplay(j,1)/RD/yt(j,1)
+          y_flux_v1(j)=ycdragm(j)*(1.+sqrt(yu(j,1)*yu(j,1)+yv(j,1)*yv(j,1)))*yv(j,1)*ypplay(j,1)/RD/yt(j,1)
+          ENDDO
+      ENDIF
+
+       CASE DEFAULT
+          WRITE(lunout,*) 'Surface index = ', nsrf
+          abort_message = 'Surface index not valid'
+          CALL abort_physic(modname,abort_message,1)
+       END SELECT
+
+
+!****************************************************************************************
+! 11) - Calcul the increment of surface temperature
+!
+!****************************************************************************************
+
+       if (evap0>=0.) then
+          yevap(:)=evap0
+          yevap(:)=RLVTT*evap0
+       endif
+
+
+       y_d_ts(1:knon)   = ytsurf_new(1:knon) - yts(1:knon)
+ 
+!****************************************************************************************
+!
+! 12) "La remontee" - "The uphill"
+!
+!  The fluxes (y_flux_X) and tendancy (y_d_X) are calculated 
+!  for X=H, Q, U and V, for all vertical levels.
+!
+!****************************************************************************************
+
+!!!
+!!! jyg le 10/04/2013
+!!!
+        IF (ok_flux_surf) THEN
+          IF (prt_level >=10) THEN
+           PRINT *,'pbl_surface: fsens flat RLVTT=',fsens,flat,RLVTT
+          ENDIF
+          y_flux_t1(:) =  fsens
+          y_flux_q1(:) =  flat/RLVTT
+          yfluxlat(:) =  flat
+!
+          IF (iflag_split .eq.0) THEN
+             do j=1,knon
+             Kech_h(j) = ycdragh(j) * (1.0+SQRT(yu(j,1)**2+yv(j,1)**2)) * &
+                  ypplay(j,1)/(RD*yt(j,1))
+             enddo
+          ENDIF ! (iflag_split .eq.0)
+
+          DO j = 1, knon
+            yt1_new=(1./RCPD)*(AcoefH(j)+BcoefH(j)*y_flux_t1(j)*dtime)
+            ytsurf_new(j)=yt1_new-y_flux_t1(j)/(Kech_h(j)*RCPD)
+          ENDDO
+
+          do j=1,knon
+          y_d_ts(j) = ytsurf_new(j) - yts(j) 
+          enddo
+
+        ELSE ! (ok_flux_surf)
+          do j=1,knon
+          y_flux_t1(j) =  yfluxsens(j)
+          y_flux_q1(j) = -yevap(j)
+          enddo
+        ENDIF
+
+       IF (prt_level >=10) THEN
+        DO j=1,knon
+         print*,'y_flux_t1,yfluxlat,wakes' &
+ &             ,  y_flux_t1(j), yfluxlat(j), ywake_s(j)
+         print*,'beta,ytsurf_new', ybeta(j), ytsurf_new(j)
+         print*,'effusivity,facteur,cstar', effusivity, facteur,wake_cstar(j)
+        ENDDO
+       ENDIF
+
+!!! jyg le 07/02/2012 puis le 10/04/2013
+       IF (iflag_split .eq.1) THEN
+!!!
+        DO j=1,knon
+         y_delta_flux_t1(j) = ( Kech_H_wp(j)*Kech_H_xp(j)*(AcoefH_w(j)-AcoefH_x(j)) + &
+                                y_flux_t1(j)*(Kech_H_wp(j)-Kech_H_xp(j)) ) / Kech_Hp(j)
+         y_delta_flux_q1(j) = ( Kech_Q_wp(j)*Kech_Q_xp(j)*(AcoefQ_w(j)-AcoefQ_x(j)) + &
+                                y_flux_q1(j)*(Kech_Q_wp(j)-Kech_Q_xp(j)) ) / Kech_Qp(j)
+         y_delta_flux_u1(j) = ( Kech_U_wp(j)*Kech_U_xp(j)*(AcoefU_w(j)-AcoefU_x(j)) + &
+                                y_flux_u1(j)*(Kech_U_wp(j)-Kech_U_xp(j)) ) / Kech_Up(j)
+         y_delta_flux_v1(j) = ( Kech_V_wp(j)*Kech_V_xp(j)*(AcoefV_w(j)-AcoefV_x(j)) + &
+                                y_flux_v1(j)*(Kech_V_wp(j)-Kech_V_xp(j)) ) / Kech_Vp(j)
+!
+         y_flux_t1_x(j)=y_flux_t1(j) - ywake_s(j)*y_delta_flux_t1(j)
+         y_flux_t1_w(j)=y_flux_t1(j) + (1.-ywake_s(j))*y_delta_flux_t1(j)
+         y_flux_q1_x(j)=y_flux_q1(j) - ywake_s(j)*y_delta_flux_q1(j)
+         y_flux_q1_w(j)=y_flux_q1(j) + (1.-ywake_s(j))*y_delta_flux_q1(j)
+         y_flux_u1_x(j)=y_flux_u1(j) - ywake_s(j)*y_delta_flux_u1(j)
+         y_flux_u1_w(j)=y_flux_u1(j) + (1.-ywake_s(j))*y_delta_flux_u1(j)
+         y_flux_v1_x(j)=y_flux_v1(j) - ywake_s(j)*y_delta_flux_v1(j)
+         y_flux_v1_w(j)=y_flux_v1(j) + (1.-ywake_s(j))*y_delta_flux_v1(j)
+!
+         yfluxlat_x(j)=y_flux_q1_x(j)*RLVTT
+         yfluxlat_w(j)=y_flux_q1_w(j)*RLVTT
+
+        ENDDO
+!
+ 
+!!jyg!!   A reprendre apres reflexion   ===============================================
+!!jyg!!
+!!jyg!!        DO j=1,knon
+!!jyg!!!!! nrlmd le 13/06/2011
+!!jyg!!
+!!jyg!!!----Diffusion dans le sol dans le cas continental seulement
+!!jyg!!       IF (nsrf.eq.is_ter) THEN
+!!jyg!!!----Calcul du coefficient delta_coeff
+!!jyg!!          tau_eq(j)=(ywake_s(j)/2.)*(1./max(wake_cstar(j),0.01))*sqrt(0.4/(3.14*max(wake_dens(j),8e-12)))
+!!jyg!!
+!!jyg!!!          delta_coef(j)=dtime/(effusivity*sqrt(tau_eq(j)))
+!!jyg!!          delta_coef(j)=facteur*sqrt(tau_eq(j))/effusivity
+!!jyg!!!          delta_coef(j)=0.
+!!jyg!!       ELSE 
+!!jyg!!         delta_coef(j)=0.
+!!jyg!!       ENDIF
+!!jyg!!
+!!jyg!!!----Calcul de delta_tsurf
+!!jyg!!         y_delta_tsurf(j)=delta_coef(j)*y_delta_flux_t1(j)
+!!jyg!!
+!!jyg!!!----Si il n'y a pas des poches...
+!!jyg!!         IF (wake_cstar(j).le.0.01) THEN
+!!jyg!!           y_delta_tsurf(j)=0.
+!!jyg!!           y_delta_flux_t1(j)=0.
+!!jyg!!         ENDIF
+!!jyg!!
+!!jyg!!!-----Calcul de ybeta (evap_r\'eelle/evap_potentielle)
+!!jyg!!!!!!! jyg le 23/02/2012
+!!jyg!!!!!!!
+!!jyg!!!!        ybeta(j)=y_flux_q1(j)   /    &
+!!jyg!!!! &        (Kech_h(j)*(yq(j,1)-yqsatsurf(j)))
+!!jyg!!!!!!        ybeta(j)=-1.*yevap(j)   /    &
+!!jyg!!!!!! &        (ywake_s(j)*Kech_h_w(j)*(yq_w(j,1)-yqsatsurf_w(j))+(1.-ywake_s(j))*Kech_h_x(j)*(yq_x(j,1)-yqsatsurf_x(j)))
+!!jyg!!!!!!! fin jyg
+!!jyg!!!!!
+!!jyg!!
+!!jyg!!       ENDDO
+!!jyg!!
+!!jyg!!!!! fin nrlmd le 13/06/2011
+!!jyg!!
+       IF (prt_level >=10) THEN
+        DO j = 1, knon
+         print*,'Chx,Chw,Ch', ycdragh_x(j), ycdragh_w(j), ycdragh(j)
+         print*,'Khx,Khw,Kh', Kech_h_x(j), Kech_h_w(j), Kech_h(j)
+!         print*,'tsurf_x,tsurf_w,tsurf,t1', ytsurf_th_x(j), ytsurf_th_w(j), ytsurf_th(j), yt(j,1)
+         print*,'tsurf_x,t1x,tsurf_w,t1w,tsurf,t1,t1_ancien', &
+ &               ytsurf_th_x(j), yt_x(j,1), ytsurf_th_w(j), yt_w(j,1), ytsurf_th(j), yt(j,1),t(j,1)
+         print*,'qsatsurf,qsatsurf_x,qsatsurf_w', yqsatsurf(j), yqsatsurf_x(j), yqsatsurf_w(j)
+         print*,'delta_coef,delta_flux,delta_tsurf,tau', delta_coef(j), y_delta_flux_t1(j), y_delta_tsurf(j), tau_eq(j) 
+        ENDDO
+
+        DO j=1,knon
+         print*,'fluxT_x, fluxT_w, y_flux_t1, fluxQ_x, fluxQ_w, yfluxlat, wakes' &
+ &             , y_flux_t1_x(j), y_flux_t1_w(j), y_flux_t1(j), y_flux_q1_x(j)*RLVTT, y_flux_q1_w(j)*RLVTT, yfluxlat(j), ywake_s(j)
+         print*,'beta,ytsurf_new,yqsatsurf', ybeta(j), ytsurf_new(j), yqsatsurf(j)
+         print*,'effusivity,facteur,cstar', effusivity, facteur,wake_cstar(j)
+        ENDDO
+       ENDIF
+
+!!! jyg le 07/02/2012
+       ENDIF  ! (iflag_split .eq.1)
+!!!
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+!!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012
+        CALL climb_hq_up(knon, dtime, yt, yq, &
+            y_flux_q1, y_flux_t1, ypaprs, ypplay, &
+!!! jyg le 07/02/2012
+            AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            CcoefH, CcoefQ, DcoefH, DcoefQ, &
+            Kcoef_hq, gama_q, gama_h, &
+!!!
+            y_flux_q(:,:), y_flux_t(:,:), y_d_q(:,:), y_d_t(:,:))    
+       ELSE  !(iflag_split .eq.0)
+        CALL climb_hq_up(knon, dtime, yt_x, yq_x, &
+            y_flux_q1_x, y_flux_t1_x, ypaprs, ypplay, &
+!!! nrlmd le 02/05/2011
+            AcoefH_x, AcoefQ_x, BcoefH_x, BcoefQ_x, &
+            CcoefH_x, CcoefQ_x, DcoefH_x, DcoefQ_x, &
+            Kcoef_hq_x, gama_q_x, gama_h_x, &
+!!!
+            y_flux_q_x(:,:), y_flux_t_x(:,:), y_d_q_x(:,:), y_d_t_x(:,:))    
+!
+       CALL climb_hq_up(knon, dtime, yt_w, yq_w, &
+            y_flux_q1_w, y_flux_t1_w, ypaprs, ypplay, &
+!!! nrlmd le 02/05/2011
+            AcoefH_w, AcoefQ_w, BcoefH_w, BcoefQ_w, &
+            CcoefH_w, CcoefQ_w, DcoefH_w, DcoefQ_w, &
+            Kcoef_hq_w, gama_q_w, gama_h_w, &
+!!!
+            y_flux_q_w(:,:), y_flux_t_w(:,:), y_d_q_w(:,:), y_d_t_w(:,:))    
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+!!! nrlmd & jyg les 02/05/2011, 13/06/2011, 05/02/2012
+        CALL climb_wind_up(knon, dtime, yu, yv, y_flux_u1, y_flux_v1, &
+!!! jyg le 07/02/2012
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            CcoefU, CcoefV, DcoefU, DcoefV, &
+            Kcoef_m, &
+!!!
+            y_flux_u, y_flux_v, y_d_u, y_d_v)
+     y_d_t_diss(:,:)=0.
+     IF (iflag_pbl>=20 .and. iflag_pbl<30) THEN
+        CALL yamada_c(knon,dtime,ypaprs,ypplay &
+    &   ,yu,yv,yt,y_d_u,y_d_v,y_d_t,ycdragm,ytke,ycoefm,ycoefh,ycoefq,y_d_t_diss,yustar &
+    &   ,iflag_pbl,nsrf)
+     ENDIF
+!     print*,'yamada_c OK'
+
+       ELSE  !(iflag_split .eq.0)
+        CALL climb_wind_up(knon, dtime, yu_x, yv_x, y_flux_u1_x, y_flux_v1_x, &
+!!! nrlmd le 02/05/2011
+            AcoefU_x, AcoefV_x, BcoefU_x, BcoefV_x, &
+            CcoefU_x, CcoefV_x, DcoefU_x, DcoefV_x, &
+            Kcoef_m_x, &
+!!!
+            y_flux_u_x, y_flux_v_x, y_d_u_x, y_d_v_x)
+!
+     y_d_t_diss_x(:,:)=0.
+     IF (iflag_pbl>=20 .and. iflag_pbl<30) THEN
+        CALL yamada_c(knon,dtime,ypaprs,ypplay &
+    &   ,yu_x,yv_x,yt_x,y_d_u_x,y_d_v_x,y_d_t_x,ycdragm_x,ytke_x,ycoefm_x,ycoefh_x &
+        ,ycoefq_x,y_d_t_diss_x,yustar_x &
+    &   ,iflag_pbl,nsrf)
+     ENDIF
+!     print*,'yamada_c OK'
+
+        CALL climb_wind_up(knon, dtime, yu_w, yv_w, y_flux_u1_w, y_flux_v1_w, &
+!!! nrlmd le 02/05/2011
+            AcoefU_w, AcoefV_w, BcoefU_w, BcoefV_w, &
+            CcoefU_w, CcoefV_w, DcoefU_w, DcoefV_w, &
+            Kcoef_m_w, &
+!!!
+            y_flux_u_w, y_flux_v_w, y_d_u_w, y_d_v_w)
+!!!
+     y_d_t_diss_w(:,:)=0.
+     IF (iflag_pbl>=20 .and. iflag_pbl<30) THEN
+        CALL yamada_c(knon,dtime,ypaprs,ypplay &
+    &   ,yu_w,yv_w,yt_w,y_d_u_w,y_d_v_w,y_d_t_w,ycdragm_w,ytke_w,ycoefm_w,ycoefh_w &
+        ,ycoefq_w,y_d_t_diss_w,yustar_w &
+    &   ,iflag_pbl,nsrf)
+     ENDIF
+!     print*,'yamada_c OK'
+!
+        IF (prt_level >=10) THEN
+         print *, 'After climbing up, lfuxlat_x, fluxlat_w ', &
+               yfluxlat_x, yfluxlat_w
+        ENDIF
+!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+        DO j = 1, knon
+          y_dflux_t(j) = y_dflux_t(j) * ypct(j)
+          y_dflux_q(j) = y_dflux_q(j) * ypct(j)
+        ENDDO
+
+!****************************************************************************************
+! 13) Transform variables for output format : 
+!     - Decompress
+!     - Multiply with pourcentage of current surface
+!     - Cumulate in global variable
+!
+!****************************************************************************************
+
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+        DO k = 1, klev
+           DO j = 1, knon
+             i = ni(j)
+             y_d_t_diss(j,k)  = y_d_t_diss(j,k) * ypct(j)
+             y_d_t(j,k)  = y_d_t(j,k) * ypct(j)
+             y_d_q(j,k)  = y_d_q(j,k) * ypct(j)
+             y_d_u(j,k)  = y_d_u(j,k) * ypct(j)
+             y_d_v(j,k)  = y_d_v(j,k) * ypct(j)
+
+             flux_t(i,k,nsrf) = y_flux_t(j,k)
+             flux_q(i,k,nsrf) = y_flux_q(j,k)
+             flux_u(i,k,nsrf) = y_flux_u(j,k)
+             flux_v(i,k,nsrf) = y_flux_v(j,k)
+
+
+           ENDDO
+        ENDDO
+
+
+       ELSE  !(iflag_split .eq.0)
+
+! Tendances hors poches
+        DO k = 1, klev
+          DO j = 1, knon
+            i = ni(j)
+            y_d_t_diss_x(j,k)  = y_d_t_diss_x(j,k) * ypct(j)
+            y_d_t_x(j,k)  = y_d_t_x(j,k) * ypct(j)
+            y_d_q_x(j,k)  = y_d_q_x(j,k) * ypct(j)
+            y_d_u_x(j,k)  = y_d_u_x(j,k) * ypct(j)
+            y_d_v_x(j,k)  = y_d_v_x(j,k) * ypct(j)
+
+            flux_t_x(i,k,nsrf) = y_flux_t_x(j,k)
+            flux_q_x(i,k,nsrf) = y_flux_q_x(j,k)
+            flux_u_x(i,k,nsrf) = y_flux_u_x(j,k)
+            flux_v_x(i,k,nsrf) = y_flux_v_x(j,k)
+          ENDDO
+        ENDDO
+
+! Tendances dans les poches
+        DO k = 1, klev
+          DO j = 1, knon
+            i = ni(j)
+            y_d_t_diss_w(j,k)  = y_d_t_diss_w(j,k) * ypct(j)
+            y_d_t_w(j,k)  = y_d_t_w(j,k) * ypct(j)
+            y_d_q_w(j,k)  = y_d_q_w(j,k) * ypct(j)
+            y_d_u_w(j,k)  = y_d_u_w(j,k) * ypct(j)
+            y_d_v_w(j,k)  = y_d_v_w(j,k) * ypct(j)
+
+            flux_t_w(i,k,nsrf) = y_flux_t_w(j,k)
+            flux_q_w(i,k,nsrf) = y_flux_q_w(j,k)
+            flux_u_w(i,k,nsrf) = y_flux_u_w(j,k)
+            flux_v_w(i,k,nsrf) = y_flux_v_w(j,k)
+          ENDDO
+        ENDDO
+
+! Flux, tendances et Tke moyenne dans la maille
+        DO k = 1, klev
+          DO j = 1, knon
+            i = ni(j)
+            flux_t(i,k,nsrf) = flux_t_x(i,k,nsrf)+ywake_s(j)*(flux_t_w(i,k,nsrf)-flux_t_x(i,k,nsrf))
+            flux_q(i,k,nsrf) = flux_q_x(i,k,nsrf)+ywake_s(j)*(flux_q_w(i,k,nsrf)-flux_q_x(i,k,nsrf))
+            flux_u(i,k,nsrf) = flux_u_x(i,k,nsrf)+ywake_s(j)*(flux_u_w(i,k,nsrf)-flux_u_x(i,k,nsrf))
+            flux_v(i,k,nsrf) = flux_v_x(i,k,nsrf)+ywake_s(j)*(flux_v_w(i,k,nsrf)-flux_v_x(i,k,nsrf))
+          ENDDO
+        ENDDO
+        DO j=1,knon
+          yfluxlat(j)=yfluxlat_x(j)+ywake_s(j)*(yfluxlat_w(j)-yfluxlat_x(j))
+        ENDDO
+        IF (prt_level >=10) THEN
+          print *,' nsrf, flux_t(:,1,nsrf), flux_t_x(:,1,nsrf), flux_t_w(:,1,nsrf) ', &
+                    nsrf, flux_t(:,1,nsrf), flux_t_x(:,1,nsrf), flux_t_w(:,1,nsrf)
+        ENDIF
+
+        DO k = 1, klev
+          DO j = 1, knon
+            y_d_t_diss(j,k) = y_d_t_diss_x(j,k)+ywake_s(j)*(y_d_t_diss_w(j,k) -y_d_t_diss_x(j,k))
+            y_d_t(j,k) = y_d_t_x(j,k)+ywake_s(j)*(y_d_t_w(j,k) -y_d_t_x(j,k))
+            y_d_q(j,k) = y_d_q_x(j,k)+ywake_s(j)*(y_d_q_w(j,k) -y_d_q_x(j,k))
+            y_d_u(j,k) = y_d_u_x(j,k)+ywake_s(j)*(y_d_u_w(j,k) -y_d_u_x(j,k))
+            y_d_v(j,k) = y_d_v_x(j,k)+ywake_s(j)*(y_d_v_w(j,k) -y_d_v_x(j,k))
+          ENDDO
+        ENDDO
+
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+!      print*,'Dans pbl OK1'
+
+!jyg<
+!!       evap(:,nsrf) = - flux_q(:,1,nsrf)
+!>jyg
+       DO j = 1, knon
+          i = ni(j)
+          evap(i,nsrf) = - flux_q(i,1,nsrf)                  !jyg
+          d_ts(i,nsrf) = y_d_ts(j)
+!albedo SB >>>
+          do k=1,nsw
+          alb_dir(i,k,nsrf) = yalb_dir_new(j,k)
+          alb_dif(i,k,nsrf) = yalb_dif_new(j,k)
+          enddo
+!albedo SB <<<
+          snow(i,nsrf) = ysnow(j)  
+          qsurf(i,nsrf) = yqsurf(j)
+          z0m(i,nsrf) = yz0m(j)
+          z0h(i,nsrf) = yz0h(j)
+          fluxlat(i,nsrf) = yfluxlat(j)
+          agesno(i,nsrf) = yagesno(j)  
+          cdragh(i) = cdragh(i) + ycdragh(j)*ypct(j)
+          cdragm(i) = cdragm(i) + ycdragm(j)*ypct(j)
+          dflux_t(i) = dflux_t(i) + y_dflux_t(j)
+          dflux_q(i) = dflux_q(i) + y_dflux_q(j)
+       END DO
+
+!      print*,'Dans pbl OK2'
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.1) THEN
+!!!
+!!! nrlmd le 02/05/2011
+        DO j = 1, knon
+          i = ni(j)
+          fluxlat_x(i,nsrf) = yfluxlat_x(j)
+          fluxlat_w(i,nsrf) = yfluxlat_w(j)
+!!!
+!!! nrlmd le 13/06/2011
+          delta_tsurf(i,nsrf)=y_delta_tsurf(j)*ypct(j)
+          cdragh_x(i) = cdragh_x(i) + ycdragh_x(j)*ypct(j)
+          cdragh_w(i) = cdragh_w(i) + ycdragh_w(j)*ypct(j)
+          cdragm_x(i) = cdragm_x(i) + ycdragm_x(j)*ypct(j)
+          cdragm_w(i) = cdragm_w(i) + ycdragm_w(j)*ypct(j)
+          kh(i) = kh(i) + Kech_h(j)*ypct(j)
+          kh_x(i) = kh_x(i) + Kech_h_x(j)*ypct(j)
+          kh_w(i) = kh_w(i) + Kech_h_w(j)*ypct(j)
+!!!
+        END DO
+!!!      
+       ENDIF  ! (iflag_split .eq.1)
+!!!
+!!! nrlmd le 02/05/2011
+!!jyg le 20/02/2011
+!!        tke_x(:,:,nsrf)=0.
+!!        tke_w(:,:,nsrf)=0.
+!!jyg le 20/02/2011
+!!        DO k = 1, klev+1
+!!          DO j = 1, knon
+!!            i = ni(j)
+!!            wake_dltke(i,k,nsrf) = ytke_w(j,k) - ytke_x(j,k)
+!!            tke(i,k,nsrf)   = ytke_x(j,k) + ywake_s(j)*wake_dltke(i,k,nsrf)
+!!          ENDDO
+!!        ENDDO
+!!jyg le 20/02/2011
+!!        DO k = 1, klev+1
+!!          DO j = 1, knon
+!!            i = ni(j)
+!!            tke(i,k,nsrf)=(1.-ywake_s(j))*tke_x(i,k,nsrf)+ywake_s(j)*tke_w(i,k,nsrf)
+!!          ENDDO
+!!        ENDDO
+!!!
+       IF (iflag_split .eq.0) THEN
+        DO k = 2, klev
+           DO j = 1, knon
+              i = ni(j)
+!jyg<
+!!              tke(i,k,nsrf)    = ytke(j,k)
+!!              tke(i,k,is_ave) = tke(i,k,is_ave) + ytke(j,k)*ypct(j)
+              tke_x(i,k,nsrf)    = ytke(j,k)
+              tke_x(i,k,is_ave) = tke_x(i,k,is_ave) + ytke(j,k)*ypct(j)
+!>jyg
+           END DO
+        END DO
+
+       ELSE
+        DO k = 2, klev
+          DO j = 1, knon
+            i = ni(j)
+            wake_dltke(i,k,nsrf) = ytke_w(j,k) - ytke_x(j,k)
+!jyg<
+!!            tke(i,k,nsrf)   = ytke_x(j,k) + ywake_s(j)*wake_dltke(i,k,nsrf)
+!!            tke(i,k,is_ave) = tke(i,k,is_ave) + tke(i,k,nsrf)*ypct(j)
+            tke_x(i,k,nsrf)   = ytke_x(j,k)
+            tke_x(i,k,is_ave)   = tke_x(i,k,is_ave) + tke_x(i,k,nsrf)*ypct(j)
+            wake_dltke(i,k,is_ave)   = wake_dltke(i,k,is_ave) + wake_dltke(i,k,nsrf)*ypct(j)
+
+!>jyg
+          ENDDO
+        ENDDO
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+       DO k = 2, klev
+          DO j = 1, knon
+             i = ni(j)
+             zcoefh(i,k,nsrf) = ycoefh(j,k)
+             zcoefm(i,k,nsrf) = ycoefm(j,k)
+             zcoefh(i,k,is_ave) = zcoefh(i,k,is_ave) + ycoefh(j,k)*ypct(j)
+             zcoefm(i,k,is_ave) = zcoefm(i,k,is_ave) + ycoefm(j,k)*ypct(j)
+          END DO
+       END DO
+
+!      print*,'Dans pbl OK3'
+
+       IF ( nsrf .EQ. is_ter ) THEN 
+          DO j = 1, knon
+             i = ni(j)
+             qsol(i) = yqsol(j)
+          END DO
+       END IF
+       
+!jyg<
+!!       ftsoil(:,:,nsrf) = 0.
+!>jyg
+       DO k = 1, nsoilmx
+          DO j = 1, knon
+             i = ni(j)
+             ftsoil(i, k, nsrf) = ytsoil(j,k)
+          END DO
+       END DO
+       
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.1) THEN
+!!!
+!!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
+        DO k = 1, klev
+          DO j = 1, knon
+           i = ni(j)
+           d_t_diss_x(i,k) = d_t_diss_x(i,k) + y_d_t_diss_x(j,k)
+           d_t_x(i,k) = d_t_x(i,k) + y_d_t_x(j,k)
+           d_q_x(i,k) = d_q_x(i,k) + y_d_q_x(j,k)
+           d_u_x(i,k) = d_u_x(i,k) + y_d_u_x(j,k)
+           d_v_x(i,k) = d_v_x(i,k) + y_d_v_x(j,k)
+!
+           d_t_diss_w(i,k) = d_t_diss_w(i,k) + y_d_t_diss_w(j,k)
+           d_t_w(i,k) = d_t_w(i,k) + y_d_t_w(j,k)
+           d_q_w(i,k) = d_q_w(i,k) + y_d_q_w(j,k)
+           d_u_w(i,k) = d_u_w(i,k) + y_d_u_w(j,k)
+           d_v_w(i,k) = d_v_w(i,k) + y_d_v_w(j,k)
+!
+!!           d_wake_dlt(i,k) = d_wake_dlt(i,k) + y_d_t_w(i,k)-y_d_t_x(i,k)
+!!           d_wake_dlq(i,k) = d_wake_dlq(i,k) + y_d_q_w(i,k)-y_d_q_x(i,k)
+          END DO
+        END DO
+!!!
+       ENDIF  ! (iflag_split .eq.1)
+!!!
+       
+       DO k = 1, klev
+          DO j = 1, knon
+             i = ni(j)
+             d_t_diss(i,k) = d_t_diss(i,k) + y_d_t_diss(j,k)
+             d_t(i,k) = d_t(i,k) + y_d_t(j,k)
+             d_q(i,k) = d_q(i,k) + y_d_q(j,k)
+             d_u(i,k) = d_u(i,k) + y_d_u(j,k)
+             d_v(i,k) = d_v(i,k) + y_d_v(j,k)
+          END DO
+       END DO
+
+!      print*,'Dans pbl OK4'
+
+       IF (prt_level >=10) THEN
+         print *, 'pbl_surface tendencies for w: d_t_w, d_t_x, d_t ', &
+          d_t_w(:,1), d_t_x(:,1), d_t(:,1)
+       ENDIF
+
+!****************************************************************************************
+! 14) Calculate the temperature and relative humidity at 2m and the wind at 10m 
+!     Call HBTM
+!
+!****************************************************************************************
+!!!
+!
+#undef T2m     
+#define T2m     
+#ifdef T2m
+! Calculations of diagnostic t,q at 2m and u, v at 10m
+
+!      print*,'Dans pbl OK41'
+!      print*,'tair1,yt(:,1),y_d_t(:,1)'
+!      print*, tair1,yt(:,1),y_d_t(:,1)
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+        DO j=1, knon
+          uzon(j) = yu(j,1) + y_d_u(j,1)
+          vmer(j) = yv(j,1) + y_d_v(j,1)
+          tair1(j) = yt(j,1) + y_d_t(j,1) + y_d_t_diss(j,1)
+          qair1(j) = yq(j,1) + y_d_q(j,1)
+          zgeo1(j) = RD * tair1(j) / (0.5*(ypaprs(j,1)+ypplay(j,1))) &
+               * (ypaprs(j,1)-ypplay(j,1))
+          tairsol(j) = yts(j) + y_d_ts(j)
+          qairsol(j) = yqsurf(j)
+        END DO
+       ELSE  ! (iflag_split .eq.0)
+        DO j=1, knon
+          uzon_x(j) = yu_x(j,1) + y_d_u_x(j,1)
+          vmer_x(j) = yv_x(j,1) + y_d_v_x(j,1)
+          tair1_x(j) = yt_x(j,1) + y_d_t_x(j,1) + y_d_t_diss_x(j,1)
+          qair1_x(j) = yq_x(j,1) + y_d_q_x(j,1)
+          zgeo1_x(j) = RD * tair1_x(j) / (0.5*(ypaprs(j,1)+ypplay(j,1))) &
+               * (ypaprs(j,1)-ypplay(j,1))
+          tairsol(j) = yts(j) + y_d_ts(j)
+          tairsol_x(j) = tairsol(j) - ywake_s(j)*y_delta_tsurf(j)
+          qairsol(j) = yqsurf(j)
+        END DO
+        DO j=1, knon
+          uzon_w(j) = yu_w(j,1) + y_d_u_w(j,1)
+          vmer_w(j) = yv_w(j,1) + y_d_v_w(j,1)
+          tair1_w(j) = yt_w(j,1) + y_d_t_w(j,1) + y_d_t_diss_w(j,1)
+          qair1_w(j) = yq_w(j,1) + y_d_q_w(j,1)
+          zgeo1_w(j) = RD * tair1_w(j) / (0.5*(ypaprs(j,1)+ypplay(j,1))) &
+               * (ypaprs(j,1)-ypplay(j,1))
+          tairsol_w(j) = tairsol(j) + (1.- ywake_s(j))*y_delta_tsurf(j)
+          qairsol(j) = yqsurf(j)
+        END DO
+!!!      
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+       DO j=1, knon
+          i = ni(j)
+          rugo1(j) = yz0m(j)
+          IF(nsrf.EQ.is_oce) THEN
+             rugo1(j) = z0m(i,nsrf)
+          ENDIF
+          psfce(j)=ypaprs(j,1)
+          patm(j)=ypplay(j,1)
+       END DO
+       
+!      print*,'Dans pbl OK42A'
+!      print*,'tair1,yt(:,1),y_d_t(:,1)'
+!      print*, tair1,yt(:,1),y_d_t(:,1)
+
+! Calculate the temperature et relative humidity at 2m and the wind at 10m 
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+        CALL stdlevvar(klon, knon, nsrf, zxli, &
+            uzon, vmer, tair1, qair1, zgeo1, &
+            tairsol, qairsol, rugo1, rugo1, psfce, patm, &
+            yt2m, yq2m, yt10m, yq10m, yu10m, yustar)
+       ELSE  !(iflag_split .eq.0)
+        CALL stdlevvar(klon, knon, nsrf, zxli, &
+            uzon_x, vmer_x, tair1_x, qair1_x, zgeo1_x, &
+            tairsol_x, qairsol, rugo1, rugo1, psfce, patm, &
+            yt2m_x, yq2m_x, yt10m_x, yq10m_x, yu10m_x, yustar_x)
+        CALL stdlevvar(klon, knon, nsrf, zxli, &
+            uzon_w, vmer_w, tair1_w, qair1_w, zgeo1_w, &
+            tairsol_w, qairsol, rugo1, rugo1, psfce, patm, &
+            yt2m_w, yq2m_w, yt10m_w, yq10m_w, yu10m_w, yustar_w)
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+        DO j=1, knon
+          i = ni(j)
+          t2m(i,nsrf)=yt2m(j)
+          q2m(i,nsrf)=yq2m(j)
+     ! u10m, v10m : composantes du vent a 10m sans spirale de Ekman
+          ustar(i,nsrf)=yustar(j)
+          u10m(i,nsrf)=(yu10m(j) * uzon(j))/SQRT(uzon(j)**2+vmer(j)**2)
+          v10m(i,nsrf)=(yu10m(j) * vmer(j))/SQRT(uzon(j)**2+vmer(j)**2)
+        END DO
+       ELSE  !(iflag_split .eq.0)
+        DO j=1, knon
+          i = ni(j)
+          t2m_x(i,nsrf)=yt2m_x(j)
+          q2m_x(i,nsrf)=yq2m_x(j)
+     ! u10m, v10m : composantes du vent a 10m sans spirale de Ekman
+          ustar_x(i,nsrf)=yustar_x(j)
+          u10m_x(i,nsrf)=(yu10m_x(j) * uzon_x(j))/SQRT(uzon_x(j)**2+vmer_x(j)**2)
+          v10m_x(i,nsrf)=(yu10m_x(j) * vmer_x(j))/SQRT(uzon_x(j)**2+vmer_x(j)**2)
+        END DO
+        DO j=1, knon
+          i = ni(j)
+          t2m_w(i,nsrf)=yt2m_w(j)
+          q2m_w(i,nsrf)=yq2m_w(j)
+     ! u10m, v10m : composantes du vent a 10m sans spirale de Ekman
+          ustar_w(i,nsrf)=yustar_w(j)
+          u10m_w(i,nsrf)=(yu10m_w(j) * uzon_w(j))/SQRT(uzon_w(j)**2+vmer_w(j)**2)
+          v10m_w(i,nsrf)=(yu10m_w(j) * vmer_w(j))/SQRT(uzon_w(j)**2+vmer_w(j)**2)
+!
+          ustar(i,nsrf) = ustar_x(i,nsrf) + wake_s(i)*(ustar_w(i,nsrf)-ustar_x(i,nsrf))
+          u10m(i,nsrf) = u10m_x(i,nsrf) + wake_s(i)*(u10m_w(i,nsrf)-u10m_x(i,nsrf))
+          v10m(i,nsrf) = v10m_x(i,nsrf) + wake_s(i)*(v10m_w(i,nsrf)-v10m_x(i,nsrf))
+        END DO
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+!      print*,'Dans pbl OK43'
+!IM Calcule de l'humidite relative a 2m (rh2m) pour diagnostique
+!IM Ajoute dependance type surface
+       IF (thermcep) THEN
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+          DO j = 1, knon
+             i=ni(j)
+             zdelta1 = MAX(0.,SIGN(1., rtt-yt2m(j) ))
+             zx_qs1  = r2es * FOEEW(yt2m(j),zdelta1)/paprs(i,1)
+             zx_qs1  = MIN(0.5,zx_qs1)
+             zcor1   = 1./(1.-RETV*zx_qs1)
+             zx_qs1  = zx_qs1*zcor1
+             
+             rh2m(i)   = rh2m(i)   + yq2m(j)/zx_qs1 * pctsrf(i,nsrf)
+             qsat2m(i) = qsat2m(i) + zx_qs1  * pctsrf(i,nsrf)
+          END DO
+       ELSE  ! (iflag_split .eq.0)
+          DO j = 1, knon
+             i=ni(j)
+             zdelta1 = MAX(0.,SIGN(1., rtt-yt2m_x(j) ))
+             zx_qs1  = r2es * FOEEW(yt2m_x(j),zdelta1)/paprs(i,1)
+             zx_qs1  = MIN(0.5,zx_qs1)
+             zcor1   = 1./(1.-RETV*zx_qs1)
+             zx_qs1  = zx_qs1*zcor1
+             
+             rh2m_x(i)   = rh2m_x(i)   + yq2m_x(j)/zx_qs1 * pctsrf(i,nsrf)
+             qsat2m_x(i) = qsat2m_x(i) + zx_qs1  * pctsrf(i,nsrf)
+          END DO
+          DO j = 1, knon
+             i=ni(j)
+             zdelta1 = MAX(0.,SIGN(1., rtt-yt2m_w(j) ))
+             zx_qs1  = r2es * FOEEW(yt2m_w(j),zdelta1)/paprs(i,1)
+             zx_qs1  = MIN(0.5,zx_qs1)
+             zcor1   = 1./(1.-RETV*zx_qs1)
+             zx_qs1  = zx_qs1*zcor1
+             
+             rh2m_w(i)   = rh2m_w(i)   + yq2m_w(j)/zx_qs1 * pctsrf(i,nsrf)
+             qsat2m_w(i) = qsat2m_w(i) + zx_qs1  * pctsrf(i,nsrf)
+          END DO
+!!!      
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+       END IF
+!
+       IF (prt_level >=10) THEN
+         print *, 'T2m, q2m, RH2m ', &
+          t2m, q2m, rh2m
+       ENDIF
+
+!   print*,'OK pbl 5'
+!
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+        CALL hbtm(knon, ypaprs, ypplay, &
+            yt2m,yt10m,yq2m,yq10m,yustar,ywstar, &
+            y_flux_t,y_flux_q,yu,yv,yt,yq, &
+            ypblh,ycapCL,yoliqCL,ycteiCL,ypblT, &
+            ytherm,ytrmb1,ytrmb2,ytrmb3,ylcl)
+          IF (prt_level >=10) THEN
+       print *,' Arg. de HBTM: yt2m ',yt2m
+       print *,' Arg. de HBTM: yt10m ',yt10m
+       print *,' Arg. de HBTM: yq2m ',yq2m
+       print *,' Arg. de HBTM: yq10m ',yq10m
+       print *,' Arg. de HBTM: yustar ',yustar
+       print *,' Arg. de HBTM: y_flux_t ',y_flux_t
+       print *,' Arg. de HBTM: y_flux_q ',y_flux_q
+       print *,' Arg. de HBTM: yu ',yu
+       print *,' Arg. de HBTM: yv ',yv
+       print *,' Arg. de HBTM: yt ',yt
+       print *,' Arg. de HBTM: yq ',yq
+          ENDIF
+       ELSE  ! (iflag_split .eq.0)
+        CALL HBTM(knon, ypaprs, ypplay, &
+            yt2m_x,yt10m_x,yq2m_x,yq10m_x,yustar_x,ywstar_x, &
+            y_flux_t_x,y_flux_q_x,yu_x,yv_x,yt_x,yq_x, &
+            ypblh_x,ycapCL_x,yoliqCL_x,ycteiCL_x,ypblT_x, &
+            ytherm_x,ytrmb1_x,ytrmb2_x,ytrmb3_x,ylcl_x)
+          IF (prt_level >=10) THEN
+       print *,' Arg. de HBTM: yt2m_x ',yt2m_x
+       print *,' Arg. de HBTM: yt10m_x ',yt10m_x
+       print *,' Arg. de HBTM: yq2m_x ',yq2m_x
+       print *,' Arg. de HBTM: yq10m_x ',yq10m_x
+       print *,' Arg. de HBTM: yustar_x ',yustar_x
+       print *,' Arg. de HBTM: y_flux_t_x ',y_flux_t_x
+       print *,' Arg. de HBTM: y_flux_q_x ',y_flux_q_x
+       print *,' Arg. de HBTM: yu_x ',yu_x
+       print *,' Arg. de HBTM: yv_x ',yv_x
+       print *,' Arg. de HBTM: yt_x ',yt_x
+       print *,' Arg. de HBTM: yq_x ',yq_x
+          ENDIF
+        CALL HBTM(knon, ypaprs, ypplay, &
+            yt2m_w,yt10m_w,yq2m_w,yq10m_w,yustar_w,ywstar_w, &
+            y_flux_t_w,y_flux_q_w,yu_w,yv_w,yt_w,yq_w, &
+            ypblh_w,ycapCL_w,yoliqCL_w,ycteiCL_w,ypblT_w, &
+            ytherm_w,ytrmb1_w,ytrmb2_w,ytrmb3_w,ylcl_w)
+!!!      
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+       
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+!!!
+        DO j=1, knon
+          i = ni(j)
+          pblh(i,nsrf)   = ypblh(j)
+          wstar(i,nsrf)  = ywstar(j)
+          plcl(i,nsrf)   = ylcl(j)
+          capCL(i,nsrf)  = ycapCL(j)
+          oliqCL(i,nsrf) = yoliqCL(j)
+          cteiCL(i,nsrf) = ycteiCL(j)
+          pblT(i,nsrf)   = ypblT(j)
+          therm(i,nsrf)  = ytherm(j)
+          trmb1(i,nsrf)  = ytrmb1(j)
+          trmb2(i,nsrf)  = ytrmb2(j)
+          trmb3(i,nsrf)  = ytrmb3(j)
+        END DO
+        IF (prt_level >=10) THEN
+          print *, 'After HBTM: pblh ', pblh
+          print *, 'After HBTM: plcl ', plcl
+          print *, 'After HBTM: cteiCL ', cteiCL
+        ENDIF
+       ELSE  !(iflag_split .eq.0)
+        DO j=1, knon
+          i = ni(j)
+          pblh_x(i,nsrf)   = ypblh_x(j)
+          wstar_x(i,nsrf)  = ywstar_x(j)
+          plcl_x(i,nsrf)   = ylcl_x(j)
+          capCL_x(i,nsrf)  = ycapCL_x(j)
+          oliqCL_x(i,nsrf) = yoliqCL_x(j)
+          cteiCL_x(i,nsrf) = ycteiCL_x(j)
+          pblT_x(i,nsrf)   = ypblT_x(j)
+          therm_x(i,nsrf)  = ytherm_x(j)
+          trmb1_x(i,nsrf)  = ytrmb1_x(j)
+          trmb2_x(i,nsrf)  = ytrmb2_x(j)
+          trmb3_x(i,nsrf)  = ytrmb3_x(j)
+        END DO
+        IF (prt_level >=10) THEN
+          print *, 'After HBTM: pblh_x ', pblh_x
+          print *, 'After HBTM: plcl_x ', plcl_x
+          print *, 'After HBTM: cteiCL_x ', cteiCL_x
+        ENDIF
+        DO j=1, knon
+          i = ni(j)
+          pblh_w(i,nsrf)   = ypblh_w(j)
+          wstar_w(i,nsrf)  = ywstar_w(j)
+          plcl_w(i,nsrf)   = ylcl_w(j)
+          capCL_w(i,nsrf)  = ycapCL_w(j)
+          oliqCL_w(i,nsrf) = yoliqCL_w(j)
+          cteiCL_w(i,nsrf) = ycteiCL_w(j)
+          pblT_w(i,nsrf)   = ypblT_w(j)
+          therm_w(i,nsrf)  = ytherm_w(j)
+          trmb1_w(i,nsrf)  = ytrmb1_w(j)
+          trmb2_w(i,nsrf)  = ytrmb2_w(j)
+          trmb3_w(i,nsrf)  = ytrmb3_w(j)
+        END DO
+        IF (prt_level >=10) THEN
+          print *, 'After HBTM: pblh_w ', pblh_w
+          print *, 'After HBTM: plcl_w ', plcl_w
+          print *, 'After HBTM: cteiCL_w ', cteiCL_w
+        ENDIF
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+!   print*,'OK pbl 6'
+#else 
+! T2m not defined
+! No calculation
+       PRINT*,' Warning !!! No T2m calculation. Output is set to zero.'
+#endif
+
+!****************************************************************************************
+! 15) End of loop over different surfaces
+!
+!****************************************************************************************
+    END DO loop_nbsrf
+
+!****************************************************************************************
+! 16) Calculate the mean value over all sub-surfaces for some variables
+!
+!****************************************************************************************
+    
+    z0m(:,nbsrf+1) = 0.0
+    z0h(:,nbsrf+1) = 0.0
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          z0m(i,nbsrf+1) = z0m(i,nbsrf+1) + z0m(i,nsrf)*pctsrf(i,nsrf)
+          z0h(i,nbsrf+1) = z0h(i,nbsrf+1) + z0h(i,nsrf)*pctsrf(i,nsrf)
+       ENDDO
+    ENDDO
+
+!   print*,'OK pbl 7'
+    zxfluxt(:,:) = 0.0 ; zxfluxq(:,:) = 0.0
+    zxfluxu(:,:) = 0.0 ; zxfluxv(:,:) = 0.0
+    zxfluxt_x(:,:) = 0.0 ; zxfluxq_x(:,:) = 0.0
+    zxfluxu_x(:,:) = 0.0 ; zxfluxv_x(:,:) = 0.0
+    zxfluxt_w(:,:) = 0.0 ; zxfluxq_w(:,:) = 0.0
+    zxfluxu_w(:,:) = 0.0 ; zxfluxv_w(:,:) = 0.0
+
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.1) THEN
+!!!
+!!! nrlmd & jyg les 02/05/2011, 05/02/2012
+
+        DO nsrf = 1, nbsrf
+          DO k = 1, klev
+            DO i = 1, klon
+              zxfluxt_x(i,k) = zxfluxt_x(i,k) + flux_t_x(i,k,nsrf) * pctsrf(i,nsrf)
+              zxfluxq_x(i,k) = zxfluxq_x(i,k) + flux_q_x(i,k,nsrf) * pctsrf(i,nsrf)
+              zxfluxu_x(i,k) = zxfluxu_x(i,k) + flux_u_x(i,k,nsrf) * pctsrf(i,nsrf)
+              zxfluxv_x(i,k) = zxfluxv_x(i,k) + flux_v_x(i,k,nsrf) * pctsrf(i,nsrf)
+!
+              zxfluxt_w(i,k) = zxfluxt_w(i,k) + flux_t_w(i,k,nsrf) * pctsrf(i,nsrf)
+              zxfluxq_w(i,k) = zxfluxq_w(i,k) + flux_q_w(i,k,nsrf) * pctsrf(i,nsrf)
+              zxfluxu_w(i,k) = zxfluxu_w(i,k) + flux_u_w(i,k,nsrf) * pctsrf(i,nsrf)
+              zxfluxv_w(i,k) = zxfluxv_w(i,k) + flux_v_w(i,k,nsrf) * pctsrf(i,nsrf)
+            END DO
+          END DO
+        END DO
+
+    DO i = 1, klon
+      zxsens_x(i) = - zxfluxt_x(i,1)
+      zxsens_w(i) = - zxfluxt_w(i,1)
+    END DO
+!!!
+       ENDIF  ! (iflag_split .eq.1)
+!!!
+
+    DO nsrf = 1, nbsrf
+       DO k = 1, klev
+          DO i = 1, klon
+             zxfluxt(i,k) = zxfluxt(i,k) + flux_t(i,k,nsrf) * pctsrf(i,nsrf)
+             zxfluxq(i,k) = zxfluxq(i,k) + flux_q(i,k,nsrf) * pctsrf(i,nsrf)
+             zxfluxu(i,k) = zxfluxu(i,k) + flux_u(i,k,nsrf) * pctsrf(i,nsrf)
+             zxfluxv(i,k) = zxfluxv(i,k) + flux_v(i,k,nsrf) * pctsrf(i,nsrf)
+          END DO
+       END DO
+    END DO
+
+    DO i = 1, klon
+       zxsens(i)     = - zxfluxt(i,1) ! flux de chaleur sensible au sol
+       zxevap(i)     = - zxfluxq(i,1) ! flux d'evaporation au sol
+       fder_print(i) = fder(i) + dflux_t(i) + dflux_q(i)
+    ENDDO
+!!!
+   
+!
+! Incrementer la temperature du sol
+!
+    zxtsol(:) = 0.0  ; zxfluxlat(:) = 0.0
+    zt2m(:) = 0.0    ; zq2m(:) = 0.0 
+    zustar(:)=0.0 ; zu10m(:) = 0.0   ; zv10m(:) = 0.0
+    s_pblh(:) = 0.0  ; s_plcl(:) = 0.0 
+!!! jyg le 07/02/2012
+     s_pblh_x(:) = 0.0  ; s_plcl_x(:) = 0.0 
+     s_pblh_w(:) = 0.0  ; s_plcl_w(:) = 0.0 
+!!!
+    s_capCL(:) = 0.0 ; s_oliqCL(:) = 0.0
+    s_cteiCL(:) = 0.0; s_pblT(:) = 0.0
+    s_therm(:) = 0.0 ; s_trmb1(:) = 0.0
+    s_trmb2(:) = 0.0 ; s_trmb3(:) = 0.0
+    wstar(:,is_ave)=0.
+    
+!   print*,'OK pbl 9'
+    
+!!! nrlmd le 02/05/2011
+    zxfluxlat_x(:) = 0.0  ;  zxfluxlat_w(:) = 0.0
+!!!
+    
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon          
+          ts(i,nsrf) = ts(i,nsrf) + d_ts(i,nsrf)
+          
+          wfbils(i,nsrf) = ( solsw(i,nsrf) + sollw(i,nsrf) &
+               + flux_t(i,1,nsrf) + fluxlat(i,nsrf) ) * pctsrf(i,nsrf)
+          wfbilo(i,nsrf) = (evap(i,nsrf) - (rain_f(i) + snow_f(i))) * &
+               pctsrf(i,nsrf)
+
+          zxtsol(i)    = zxtsol(i)    + ts(i,nsrf)      * pctsrf(i,nsrf)
+          zxfluxlat(i) = zxfluxlat(i) + fluxlat(i,nsrf) * pctsrf(i,nsrf)
+       END DO
+    END DO
+!
+!<al1 order 2 correction to zxtsol, for radiation computations (main atm effect of Ts)
+   IF (iflag_order2_sollw == 1) THEN
+    meansqT(:) = 0. ! as working buffer
+    DO nsrf = 1, nbsrf
+     DO i = 1, klon
+      meansqT(i) = meansqT(i)+(ts(i,nsrf)-zxtsol(i))**2 *pctsrf(i,nsrf)
+     END DO
+    END DO
+    zxtsol(:) = zxtsol(:)+1.5*meansqT(:)/zxtsol(:)
+   ENDIF   ! iflag_order2_sollw == 1
+!>al1
+          
+!!! jyg le 07/02/2012
+       IF (iflag_split .eq.0) THEN
+        DO nsrf = 1, nbsrf
+         DO i = 1, klon          
+          zt2m(i)  = zt2m(i)  + t2m(i,nsrf)  * pctsrf(i,nsrf)
+          zq2m(i)  = zq2m(i)  + q2m(i,nsrf)  * pctsrf(i,nsrf)
+          zustar(i) = zustar(i) + ustar(i,nsrf) * pctsrf(i,nsrf)
+          wstar(i,is_ave)=wstar(i,is_ave)+wstar(i,nsrf)*pctsrf(i,nsrf)
+          zu10m(i) = zu10m(i) + u10m(i,nsrf) * pctsrf(i,nsrf)
+          zv10m(i) = zv10m(i) + v10m(i,nsrf) * pctsrf(i,nsrf)
+
+          s_pblh(i)   = s_pblh(i)   + pblh(i,nsrf)  * pctsrf(i,nsrf)
+          s_plcl(i)   = s_plcl(i)   + plcl(i,nsrf)  * pctsrf(i,nsrf)
+          s_capCL(i)  = s_capCL(i)  + capCL(i,nsrf) * pctsrf(i,nsrf)
+          s_oliqCL(i) = s_oliqCL(i) + oliqCL(i,nsrf)* pctsrf(i,nsrf)
+          s_cteiCL(i) = s_cteiCL(i) + cteiCL(i,nsrf)* pctsrf(i,nsrf)
+          s_pblT(i)   = s_pblT(i)   + pblT(i,nsrf)  * pctsrf(i,nsrf)
+          s_therm(i)  = s_therm(i)  + therm(i,nsrf) * pctsrf(i,nsrf)
+          s_trmb1(i)  = s_trmb1(i)  + trmb1(i,nsrf) * pctsrf(i,nsrf)
+          s_trmb2(i)  = s_trmb2(i)  + trmb2(i,nsrf) * pctsrf(i,nsrf)
+          s_trmb3(i)  = s_trmb3(i)  + trmb3(i,nsrf) * pctsrf(i,nsrf)
+         END DO
+        END DO
+       ELSE  !(iflag_split .eq.0)
+        DO nsrf = 1, nbsrf
+         DO i = 1, klon          
+!!! nrlmd le 02/05/2011
+          zxfluxlat_x(i) = zxfluxlat_x(i) + fluxlat_x(i,nsrf) * pctsrf(i,nsrf)
+          zxfluxlat_w(i) = zxfluxlat_w(i) + fluxlat_w(i,nsrf) * pctsrf(i,nsrf)
+!!!
+!!! jyg le 08/02/2012
+!!  Pour le moment, on sort les valeurs dans (x) et (w) de pblh et de plcl ; 
+!!  pour zt2m, on fait la moyenne surfacique sur les sous-surfaces ;
+!!  pour qsat2m, on fait la moyenne surfacique sur (x) et (w) ;
+!!  pour les autres variables, on sort les valeurs de la region (x).
+          zt2m(i)  = zt2m(i)  + (t2m_x(i,nsrf)+wake_s(i)*(t2m_w(i,nsrf)-t2m_x(i,nsrf))) * pctsrf(i,nsrf)
+          zq2m(i)  = zq2m(i)  + q2m_x(i,nsrf)  * pctsrf(i,nsrf)
+          zustar(i) = zustar(i) + ustar_x(i,nsrf) * pctsrf(i,nsrf)
+          wstar(i,is_ave)=wstar(i,is_ave)+wstar_x(i,nsrf)*pctsrf(i,nsrf)
+          zu10m(i) = zu10m(i) + u10m_x(i,nsrf) * pctsrf(i,nsrf)
+          zv10m(i) = zv10m(i) + v10m_x(i,nsrf) * pctsrf(i,nsrf)
+!
+          s_pblh(i)     = s_pblh(i)     + pblh_x(i,nsrf)  * pctsrf(i,nsrf)
+          s_pblh_x(i)   = s_pblh_x(i)   + pblh_x(i,nsrf)  * pctsrf(i,nsrf)
+          s_pblh_w(i)   = s_pblh_w(i)   + pblh_w(i,nsrf)  * pctsrf(i,nsrf)
+!
+          s_plcl(i)     = s_plcl(i)     + plcl_x(i,nsrf)  * pctsrf(i,nsrf)
+          s_plcl_x(i)   = s_plcl_x(i)   + plcl_x(i,nsrf)  * pctsrf(i,nsrf)
+          s_plcl_w(i)   = s_plcl_w(i)   + plcl_w(i,nsrf)  * pctsrf(i,nsrf)
+!
+          s_capCL(i)  = s_capCL(i)  + capCL_x(i,nsrf) * pctsrf(i,nsrf)
+          s_oliqCL(i) = s_oliqCL(i) + oliqCL_x(i,nsrf)* pctsrf(i,nsrf)
+          s_cteiCL(i) = s_cteiCL(i) + cteiCL_x(i,nsrf)* pctsrf(i,nsrf)
+          s_pblT(i)   = s_pblT(i)   + pblT_x(i,nsrf)  * pctsrf(i,nsrf)
+          s_therm(i)  = s_therm(i)  + therm_x(i,nsrf) * pctsrf(i,nsrf)
+          s_trmb1(i)  = s_trmb1(i)  + trmb1_x(i,nsrf) * pctsrf(i,nsrf)
+          s_trmb2(i)  = s_trmb2(i)  + trmb2_x(i,nsrf) * pctsrf(i,nsrf)
+          s_trmb3(i)  = s_trmb3(i)  + trmb3_x(i,nsrf) * pctsrf(i,nsrf)
+         END DO
+        END DO
+        DO i = 1, klon          
+          qsat2m(i)= qsat2m_x(i)+ wake_s(i)*(qsat2m_x(i)-qsat2m_w(i))
+        END DO
+!!!
+       ENDIF  ! (iflag_split .eq.0)
+!!!
+
+    IF (check) THEN
+       amn=MIN(ts(1,is_ter),1000.)
+       amx=MAX(ts(1,is_ter),-1000.)
+       DO i=2, klon
+          amn=MIN(ts(i,is_ter),amn)
+          amx=MAX(ts(i,is_ter),amx)
+       ENDDO
+       PRINT*,' debut apres d_ts min max ftsol(ts)',itap,amn,amx
+    ENDIF
+
+!jg ?
+!!$!
+!!$! If a sub-surface does not exsist for a grid point, the mean value for all 
+!!$! sub-surfaces is distributed.
+!!$!
+!!$    DO nsrf = 1, nbsrf
+!!$       DO i = 1, klon
+!!$          IF ((pctsrf_new(i,nsrf) .LT. epsfra) .OR. (t2m(i,nsrf).EQ.0.)) THEN
+!!$             ts(i,nsrf)     = zxtsol(i)
+!!$             t2m(i,nsrf)    = zt2m(i)
+!!$             q2m(i,nsrf)    = zq2m(i)
+!!$             u10m(i,nsrf)   = zu10m(i)
+!!$             v10m(i,nsrf)   = zv10m(i)
+!!$
+!!$! Les variables qui suivent sont plus utilise, donc peut-etre pas la peine a les mettre ajour
+!!$             pblh(i,nsrf)   = s_pblh(i)
+!!$             plcl(i,nsrf)   = s_plcl(i)
+!!$             capCL(i,nsrf)  = s_capCL(i)
+!!$             oliqCL(i,nsrf) = s_oliqCL(i) 
+!!$             cteiCL(i,nsrf) = s_cteiCL(i)
+!!$             pblT(i,nsrf)   = s_pblT(i)
+!!$             therm(i,nsrf)  = s_therm(i)
+!!$             trmb1(i,nsrf)  = s_trmb1(i)
+!!$             trmb2(i,nsrf)  = s_trmb2(i)
+!!$             trmb3(i,nsrf)  = s_trmb3(i)
+!!$          ENDIF
+!!$       ENDDO
+!!$    ENDDO
+
+
+    DO i = 1, klon
+       fder(i) = - 4.0*RSIGMA*zxtsol(i)**3 
+    ENDDO
+    
+    zxqsurf(:) = 0.0
+    zxsnow(:)  = 0.0
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          zxqsurf(i) = zxqsurf(i) + qsurf(i,nsrf) * pctsrf(i,nsrf)
+          zxsnow(i)  = zxsnow(i)  + snow(i,nsrf)  * pctsrf(i,nsrf)
+       END DO
+    END DO
+
+! Premier niveau de vent sortie dans physiq.F
+    zu1(:) = u(:,1)
+    zv1(:) = v(:,1)
+
+
+  END SUBROUTINE pbl_surface
+!
+!****************************************************************************************
+!
+  SUBROUTINE pbl_surface_final(fder_rst, snow_rst, qsurf_rst, ftsoil_rst)
+
+    USE indice_sol_mod
+
+    INCLUDE "dimsoil.h"
+
+! Ouput variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)                 :: fder_rst
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)          :: snow_rst
+    REAL, DIMENSION(klon, nbsrf), INTENT(OUT)          :: qsurf_rst
+    REAL, DIMENSION(klon, nsoilmx, nbsrf), INTENT(OUT) :: ftsoil_rst
+
+ 
+!****************************************************************************************
+! Return module variables for writing to restart file
+!
+!****************************************************************************************    
+    fder_rst(:)       = fder(:)
+    snow_rst(:,:)     = snow(:,:)
+    qsurf_rst(:,:)    = qsurf(:,:)
+    ftsoil_rst(:,:,:) = ftsoil(:,:,:)
+
+!****************************************************************************************
+! Deallocate module variables
+!
+!****************************************************************************************
+!   DEALLOCATE(qsol, fder, snow, qsurf, evap, rugos, agesno, ftsoil)
+    IF (ALLOCATED(fder)) DEALLOCATE(fder)
+    IF (ALLOCATED(snow)) DEALLOCATE(snow)
+    IF (ALLOCATED(qsurf)) DEALLOCATE(qsurf)
+    IF (ALLOCATED(ftsoil)) DEALLOCATE(ftsoil)
+
+  END SUBROUTINE pbl_surface_final
+!  
+!****************************************************************************************
+! 
+
+!albedo SB >>>
+SUBROUTINE pbl_surface_newfrac(itime, pctsrf_new, pctsrf_old, &
+     evap, z0m, z0h, agesno,                                  &
+     tsurf,alb_dir,alb_dif, ustar, u10m, v10m, tke)  
+!albedo SB <<<
+    ! Give default values where new fraction has appread
+
+    USE indice_sol_mod
+
+    INCLUDE "dimsoil.h"
+    INCLUDE "clesphys.h"
+    INCLUDE "compbl.h"
+
+! Input variables
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: itime
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf_new, pctsrf_old
+
+! InOutput variables
+!****************************************************************************************
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: tsurf
+!albedo SB >>>
+    REAL, DIMENSION(klon,nsw,nbsrf), INTENT(INOUT)       :: alb_dir, alb_dif 
+    INTEGER :: k
+!albedo SB <<<
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: ustar,u10m, v10m
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: evap, agesno
+    REAL, DIMENSION(klon,nbsrf+1), INTENT(INOUT)        :: z0m,z0h
+    REAL, DIMENSION(klon,klev+1,nbsrf+1), INTENT(INOUT) :: tke
+
+! Local variables
+!****************************************************************************************
+    INTEGER           :: nsrf, nsrf_comp1, nsrf_comp2, nsrf_comp3, i
+    CHARACTER(len=80) :: abort_message
+    CHARACTER(len=20) :: modname = 'pbl_surface_newfrac'
+    INTEGER, DIMENSION(nbsrf) :: nfois=0, mfois=0, pfois=0
+!
+! All at once !! 
+!****************************************************************************************
+    
+    DO nsrf = 1, nbsrf
+       ! First decide complement sub-surfaces
+       SELECT CASE (nsrf)
+       CASE(is_oce)
+          nsrf_comp1=is_sic
+          nsrf_comp2=is_ter
+          nsrf_comp3=is_lic
+       CASE(is_sic)
+          nsrf_comp1=is_oce
+          nsrf_comp2=is_ter
+          nsrf_comp3=is_lic
+       CASE(is_ter)
+          nsrf_comp1=is_lic
+          nsrf_comp2=is_oce
+          nsrf_comp3=is_sic
+       CASE(is_lic)
+          nsrf_comp1=is_ter
+          nsrf_comp2=is_oce
+          nsrf_comp3=is_sic
+       END SELECT
+
+       ! Initialize all new fractions
+       DO i=1, klon
+          IF (pctsrf_new(i,nsrf) > 0. .AND. pctsrf_old(i,nsrf) == 0.) THEN
+             
+             IF (pctsrf_old(i,nsrf_comp1) > 0.) THEN
+                ! Use the complement sub-surface, keeping the continents unchanged
+                qsurf(i,nsrf) = qsurf(i,nsrf_comp1)
+                evap(i,nsrf)  = evap(i,nsrf_comp1)
+                z0m(i,nsrf) = z0m(i,nsrf_comp1)
+                z0h(i,nsrf) = z0h(i,nsrf_comp1)
+                tsurf(i,nsrf) = tsurf(i,nsrf_comp1)
+!albedo SB >>>
+                DO k=1,nsw
+                 alb_dir(i,k,nsrf)=alb_dir(i,k,nsrf_comp1)
+                 alb_dif(i,k,nsrf)=alb_dif(i,k,nsrf_comp1)
+                ENDDO
+!albedo SB <<<
+                ustar(i,nsrf)  = ustar(i,nsrf_comp1)
+                u10m(i,nsrf)  = u10m(i,nsrf_comp1)
+                v10m(i,nsrf)  = v10m(i,nsrf_comp1)
+                if (iflag_pbl > 1) then
+                 tke(i,:,nsrf) = tke(i,:,nsrf_comp1)
+                endif
+                mfois(nsrf) = mfois(nsrf) + 1
+             ELSE
+                ! The continents have changed. The new fraction receives the mean sum of the existent fractions
+                qsurf(i,nsrf) = qsurf(i,nsrf_comp2)*pctsrf_old(i,nsrf_comp2) + qsurf(i,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+                evap(i,nsrf)  = evap(i,nsrf_comp2) *pctsrf_old(i,nsrf_comp2) + evap(i,nsrf_comp3) *pctsrf_old(i,nsrf_comp3)
+                z0m(i,nsrf) = z0m(i,nsrf_comp2)*pctsrf_old(i,nsrf_comp2) + z0m(i,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+                z0h(i,nsrf) = z0h(i,nsrf_comp2)*pctsrf_old(i,nsrf_comp2) + z0h(i,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+                tsurf(i,nsrf) = tsurf(i,nsrf_comp2)*pctsrf_old(i,nsrf_comp2) + tsurf(i,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+!albedo SB >>>
+                DO k=1,nsw
+                 alb_dir(i,k,nsrf)=alb_dir(i,k,nsrf_comp2)*pctsrf_old(i,nsrf_comp2)+&
+                                        alb_dir(i,k,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+                 alb_dif(i,k,nsrf)=alb_dif(i,k,nsrf_comp2)*pctsrf_old(i,nsrf_comp2)+&
+                                        alb_dif(i,k,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+                ENDDO
+!albedo SB <<<
+                ustar(i,nsrf)  = ustar(i,nsrf_comp2) *pctsrf_old(i,nsrf_comp2) + ustar(i,nsrf_comp3) *pctsrf_old(i,nsrf_comp3)
+                u10m(i,nsrf)  = u10m(i,nsrf_comp2) *pctsrf_old(i,nsrf_comp2) + u10m(i,nsrf_comp3) *pctsrf_old(i,nsrf_comp3)
+                v10m(i,nsrf)  = v10m(i,nsrf_comp2) *pctsrf_old(i,nsrf_comp2) + v10m(i,nsrf_comp3) *pctsrf_old(i,nsrf_comp3)
+                if (iflag_pbl > 1) then
+                 tke(i,:,nsrf) = tke(i,:,nsrf_comp2)*pctsrf_old(i,nsrf_comp2) + tke(i,:,nsrf_comp3)*pctsrf_old(i,nsrf_comp3)
+                endif
+            
+                ! Security abort. This option has never been tested. To test, comment the following line.
+!                abort_message='The fraction of the continents have changed!'
+!                CALL abort_physic(modname,abort_message,1)
+                nfois(nsrf) = nfois(nsrf) + 1
+             END IF
+             snow(i,nsrf)     = 0.
+             agesno(i,nsrf)   = 0.
+             ftsoil(i,:,nsrf) = tsurf(i,nsrf)
+          ELSE
+             pfois(nsrf) = pfois(nsrf)+ 1
+          END IF
+       END DO
+       
+    END DO
+
+  END SUBROUTINE pbl_surface_newfrac
+
+!  
+!****************************************************************************************
+!  
+
+END MODULE pbl_surface_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/perturb_radlwsw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/perturb_radlwsw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/perturb_radlwsw.F90	(revision 3330)
@@ -0,0 +1,27 @@
+      SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)
+!
+!Case-specific radiative setup
+!
+      use dimphy
+      IMPLICIT none
+      INCLUDE "flux_arp.h"     
+!
+! Arguments :
+!------------
+      REAL,DIMENSION(klon), INTENT(INOUT) :: zxtsol
+      INTEGER, INTENT(IN)                 :: iflag_radia
+!
+!======================================================================
+!
+      IF (iflag_radia == 2) THEN
+!
+! Iflag_radia = 2 : DICE case : 
+!               on force zxtsol=tg pour le rayonnement (MPL 20130806)
+!Sonia : Cas dice lmdz1d force en flux : on impose Tg pour imposer le LWUP
+!
+        zxtsol(:) =  tg
+      ENDIF
+!
+      RETURN
+      END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyaqua_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyaqua_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyaqua_mod.F90	(revision 3330)
@@ -0,0 +1,981 @@
+MODULE phyaqua_mod
+  ! Routines complementaires pour la physique planetaire.
+  IMPLICIT NONE
+
+CONTAINS
+
+  SUBROUTINE iniaqua(nlon, iflag_phys)
+
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Creation d'un etat initial et de conditions aux limites
+    ! (resp startphy.nc et limit.nc) pour des configurations idealisees
+    ! du modele LMDZ dans sa version terrestre.
+    ! iflag_phys est un parametre qui controle
+    ! iflag_phys = N
+    ! de 100 a 199 : aqua planetes avec SST forcees
+    ! N-100 determine le type de SSTs
+    ! de 200 a 299 : terra planetes avec Ts calcule
+
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+    USE dimphy, ONLY: klon
+    USE geometry_mod, ONLY : latitude
+    USE surface_data, ONLY: type_ocean, ok_veget
+    USE pbl_surface_mod, ONLY: pbl_surface_init
+    USE fonte_neige_mod, ONLY: fonte_neige_init
+    USE phys_state_var_mod
+    USE time_phylmdz_mod, ONLY: day_ref, ndays, pdtphys, &
+                                day_ini,day_end
+    USE indice_sol_mod
+    USE nrtype, ONLY: pi
+    USE ioipsl
+    IMPLICIT NONE
+
+    include "YOMCST.h"
+    include "clesphys.h"
+    include "dimsoil.h"
+
+    INTEGER, INTENT (IN) :: nlon, iflag_phys
+    ! IM ajout latfi, lonfi
+!    REAL, INTENT (IN) :: lonfi(nlon), latfi(nlon)
+
+    INTEGER type_profil, type_aqua
+
+    ! Ajouts initialisation des surfaces
+    REAL :: run_off_lic_0(nlon)
+    REAL :: qsolsrf(nlon, nbsrf), snsrf(nlon, nbsrf)
+    REAL :: tsoil(nlon, nsoilmx, nbsrf)
+    REAL :: tslab(nlon), seaice(nlon)
+    REAL fder(nlon)
+
+
+
+    ! Arguments :
+    ! -----------
+
+    ! integer radpas
+    INTEGER it, unit, i, k, itap
+
+    REAL airefi, zcufi, zcvfi
+
+    REAL rugos, albedo
+    REAL tsurf
+    REAL time, timestep, day, day0
+    REAL qsol_f
+    REAL rugsrel(nlon)
+    ! real zmea(nlon),zstd(nlon),zsig(nlon)
+    ! real zgam(nlon),zthe(nlon),zpic(nlon),zval(nlon)
+    ! real rlon(nlon),rlat(nlon)
+    LOGICAL alb_ocean
+    ! integer demih_pas
+
+    CHARACTER *80 ans, file_forctl, file_fordat, file_start
+    CHARACTER *100 file, var
+    CHARACTER *2 cnbl
+
+    REAL phy_nat(nlon, 360)
+    REAL phy_alb(nlon, 360)
+    REAL phy_sst(nlon, 360)
+    REAL phy_bil(nlon, 360)
+    REAL phy_rug(nlon, 360)
+    REAL phy_ice(nlon, 360)
+    REAL phy_fter(nlon, 360)
+    REAL phy_foce(nlon, 360)
+    REAL phy_fsic(nlon, 360)
+    REAL phy_flic(nlon, 360)
+
+    INTEGER, SAVE :: read_climoz = 0 ! read ozone climatology
+
+    ! intermediate variables to use getin (need to be "save" to be shared by
+    ! all threads)
+    INTEGER, SAVE :: nbapp_rad_omp
+    REAL, SAVE :: co2_ppm_omp, solaire_omp
+    LOGICAL, SAVE :: alb_ocean_omp
+    REAL, SAVE :: rugos_omp
+    ! -------------------------------------------------------------------------
+    ! declaration pour l'appel a phyredem
+    ! -------------------------------------------------------------------------
+
+    ! real pctsrf(nlon,nbsrf),ftsol(nlon,nbsrf)
+    REAL falbe(nlon, nbsrf), falblw(nlon, nbsrf)
+    ! real pbl_tke(nlon,llm,nbsrf)
+    ! real rain_fall(nlon),snow_fall(nlon)
+    ! real solsw(nlon), sollw(nlon),radsol(nlon)
+    ! real t_ancien(nlon,llm),q_ancien(nlon,llm),rnebcon(nlon,llm)
+    ! real ratqs(nlon,llm)
+    ! real clwcon(nlon,llm)
+
+    INTEGER longcles
+    PARAMETER (longcles=20)
+    REAL clesphy0(longcles)
+
+
+    ! -----------------------------------------------------------------------
+    ! dynamial tendencies :
+    ! ---------------------
+
+    INTEGER l, ierr, aslun
+
+!    REAL longitude, latitude
+    REAL paire
+
+!    DATA latitude, longitude/48., 0./
+
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! INITIALISATIONS
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+    ! -----------------------------------------------------------------------
+    ! Initialisations  des constantes
+    ! -------------------------------
+
+
+    type_aqua = iflag_phys/100
+    type_profil = iflag_phys - type_aqua*100
+    PRINT *, 'iniaqua:type_aqua, type_profil', type_aqua, type_profil
+
+    IF (klon/=nlon) THEN
+      WRITE (*, *) 'iniaqua: klon=', klon, ' nlon=', nlon
+      STOP 'probleme de dimensions dans iniaqua'
+    END IF
+    CALL phys_state_var_init(read_climoz)
+
+
+    read_climoz = 0
+    day0 = 217.
+    day = day0
+    it = 0
+    time = 0.
+
+    ! IM ajout latfi, lonfi
+!    rlatd = latfi
+!    rlond = lonfi
+!    rlat = rlatd*180./pi
+!    rlon = rlond*180./pi
+
+    ! -----------------------------------------------------------------------
+    ! initialisations de la physique
+    ! -----------------------------------------------------------------------
+
+    day_ini = day_ref
+    day_end = day_ini + ndays
+!    airefi = 1.
+!    zcufi = 1.
+!    zcvfi = 1.
+    !$OMP MASTER
+    nbapp_rad_omp = 24
+    CALL getin('nbapp_rad', nbapp_rad_omp)
+    !$OMP END MASTER
+    !$OMP BARRIER
+    nbapp_rad = nbapp_rad_omp
+
+    ! ---------------------------------------------------------------------
+    ! Creation des conditions aux limites:
+    ! ------------------------------------
+    ! Initialisations des constantes
+    ! Ajouter les manquants dans planete.def... (albedo etc)
+    !$OMP MASTER
+    co2_ppm_omp = 348.
+    CALL getin('co2_ppm', co2_ppm_omp)
+    solaire_omp = 1365.
+    CALL getin('solaire', solaire_omp)
+    ! CALL getin('albedo',albedo) ! albedo is set below, depending on
+    ! type_aqua
+    alb_ocean_omp = .TRUE.
+    CALL getin('alb_ocean', alb_ocean_omp)
+    !$OMP END MASTER
+    !$OMP BARRIER
+    co2_ppm = co2_ppm_omp
+    WRITE (*, *) 'iniaqua: co2_ppm=', co2_ppm
+    solaire = solaire_omp
+    WRITE (*, *) 'iniaqua: solaire=', solaire
+    alb_ocean = alb_ocean_omp
+    WRITE (*, *) 'iniaqua: alb_ocean=', alb_ocean
+
+    radsol = 0.
+    qsol_f = 10.
+
+    ! Conditions aux limites:
+    ! -----------------------
+
+    qsol(:) = qsol_f
+    rugsrel = 0.0 ! (rugsrel = rugoro)
+    rugoro = 0.0
+    u_ancien = 0.0
+    v_ancien = 0.0
+    agesno = 50.0
+    ! Relief plat
+    zmea = 0.
+    zstd = 0.
+    zsig = 0.
+    zgam = 0.
+    zthe = 0.
+    zpic = 0.
+    zval = 0.
+
+    ! Une seule surface
+    pctsrf = 0.
+    IF (type_aqua==1) THEN
+      rugos = 1.E-4
+      albedo = 0.19
+      pctsrf(:, is_oce) = 1.
+    ELSE IF (type_aqua==2) THEN
+      rugos = 0.03
+      albedo = 0.1
+      pctsrf(:, is_ter) = 1.
+    END IF
+
+    !$OMP MASTER
+    rugos_omp = rugos
+    CALL getin('rugos', rugos_omp)
+    !$OMP END MASTER
+    !$OMP BARRIER
+    rugos = rugos_omp
+    WRITE (*, *) 'iniaqua: rugos=', rugos
+    zmasq(:) = pctsrf(:, is_ter)
+
+    ! pctsrf_pot(:,is_oce) = 1. - zmasq(:)
+    ! pctsrf_pot(:,is_sic) = 1. - zmasq(:)
+
+    ! Si alb_ocean on calcule un albedo oceanique moyen
+    ! if (alb_ocean) then
+    ! Voir pourquoi on avait ca.
+    ! CALL ini_alb_oce(phy_alb)
+    ! else
+    phy_alb(:, :) = albedo ! albedo land only (old value condsurf_jyg=0.3)
+    ! endif !alb_ocean
+
+    DO i = 1, 360
+      ! IM Terraplanete   phy_sst(:,i) = 260.+50.*cos(rlatd(:))**2
+      ! IM ajout calcul profil sst selon le cas considere (cf. FBr)
+
+      phy_nat(:, i) = 1.0 ! 0=ocean libre, 1=land, 2=glacier, 3=banquise
+      phy_bil(:, i) = 1.0 ! ne sert que pour les slab_ocean
+      phy_rug(:, i) = rugos ! longueur rugosite utilisee sur land only
+      phy_ice(:, i) = 0.0 ! fraction de glace (?)
+      phy_fter(:, i) = pctsrf(:, is_ter) ! fraction de glace (?)
+      phy_foce(:, i) = pctsrf(:, is_oce) ! fraction de glace (?)
+      phy_fsic(:, i) = pctsrf(:, is_sic) ! fraction de glace (?)
+      phy_flic(:, i) = pctsrf(:, is_lic) ! fraction de glace (?)
+    END DO
+    ! IM calcul profil sst
+    CALL profil_sst(nlon, latitude, type_profil, phy_sst)
+
+    CALL writelim(klon, phy_nat, phy_alb, phy_sst, phy_bil, phy_rug, phy_ice, &
+      phy_fter, phy_foce, phy_flic, phy_fsic)
+
+
+    ! ---------------------------------------------------------------------
+    ! Ecriture de l'etat initial:
+    ! ---------------------------
+
+
+    ! Ecriture etat initial physique
+
+    timestep = pdtphys
+    radpas = nint(rday/timestep/float(nbapp_rad))
+
+    DO i = 1, longcles
+      clesphy0(i) = 0.
+    END DO
+    clesphy0(1) = float(iflag_con)
+    clesphy0(2) = float(nbapp_rad)
+    ! IF( cycle_diurne  ) clesphy0(3) =  1.
+    clesphy0(3) = 1. ! cycle_diurne
+    clesphy0(4) = 1. ! soil_model
+    clesphy0(5) = 1. ! new_oliq
+    clesphy0(6) = 0. ! ok_orodr
+    clesphy0(7) = 0. ! ok_orolf
+    clesphy0(8) = 0. ! ok_limitvrai
+
+
+    ! =======================================================================
+    ! Profils initiaux
+    ! =======================================================================
+
+    ! On initialise les temperatures de surfaces comme les sst
+    DO i = 1, nlon
+      ftsol(i, :) = phy_sst(i, 1)
+      tsoil(i, :, :) = phy_sst(i, 1)
+      tslab(i) = phy_sst(i, 1)
+    END DO
+
+    falbe(:, :) = albedo
+    falblw(:, :) = albedo
+    rain_fall(:) = 0.
+    snow_fall(:) = 0.
+    solsw(:) = 0.
+    sollw(:) = 0.
+    radsol(:) = 0.
+
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! intialisation bidon mais pas grave
+    t_ancien(:, :) = 0.
+    q_ancien(:, :) = 0.
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    rnebcon = 0.
+    ratqs = 0.
+    clwcon = 0.
+    pbl_tke = 1.E-8
+
+    ! variables supplementaires pour appel a plb_surface_init
+    fder(:) = 0.
+    seaice(:) = 0.
+    run_off_lic_0 = 0.
+    fevap = 0.
+
+
+    ! Initialisations necessaires avant phyredem
+    type_ocean = 'force'
+    CALL fonte_neige_init(run_off_lic_0)
+    qsolsrf(:, :) = qsol(1) ! humidite du sol des sous surface
+    snsrf(:, :) = 0. ! couverture de neige des sous surface
+    z0m(:, :) = rugos ! couverture de neige des sous surface
+    z0h=z0m
+
+
+    CALL pbl_surface_init(fder, snsrf, qsolsrf, tsoil)
+
+    PRINT *, 'iniaqua: before phyredem'
+
+    falb1 = albedo
+    falb2 = albedo
+    zmax0 = 0.
+    f0 = 0.
+    sig1 = 0.
+    w01 = 0.
+    wake_deltat = 0.
+    wake_deltaq = 0.
+    wake_s = 0.
+    wake_cstar = 0.
+    wake_pe = 0.
+    wake_fip = 0.
+    fm_therm = 0.
+    entr_therm = 0.
+    detr_therm = 0.
+
+
+    CALL phyredem('startphy.nc')
+
+    PRINT *, 'iniaqua: after phyredem'
+    CALL phys_state_var_end
+
+    RETURN
+  END SUBROUTINE iniaqua
+
+
+  ! ====================================================================
+  ! ====================================================================
+  SUBROUTINE zenang_an(cycle_diurne, gmtime, rlat, rlon, rmu0, fract)
+    USE dimphy
+    IMPLICIT NONE
+    ! ====================================================================
+    ! =============================================================
+    ! CALL zenang(cycle_diurne,gmtime,rlat,rlon,rmu0,fract)
+    ! Auteur : A. Campoy et F. Hourdin
+    ! Objet  : calculer les valeurs moyennes du cos de l'angle zenithal
+    ! et l'ensoleillement moyen entre gmtime1 et gmtime2
+    ! connaissant la declinaison, la latitude et la longitude.
+
+    ! Dans cette version particuliere, on calcule le rayonnement
+    ! moyen sur l'année à chaque latitude.
+    ! angle zenithal calculé pour obtenir un
+    ! Fit polynomial de  l'ensoleillement moyen au sommet de l'atmosphere
+    ! en moyenne annuelle.
+    ! Spécifique de la terre. Utilisé pour les aqua planetes.
+
+    ! Rque   : Different de la routine angle en ce sens que zenang
+    ! fournit des moyennes de pmu0 et non des valeurs
+    ! instantanees, du coup frac prend toutes les valeurs
+    ! entre 0 et 1.
+    ! Date   : premiere version le 13 decembre 1994
+    ! revu pour  GCM  le 30 septembre 1996
+    ! ===============================================================
+    ! longi----INPUT : la longitude vraie de la terre dans son plan
+    ! solaire a partir de l'equinoxe de printemps (degre)
+    ! gmtime---INPUT : temps universel en fraction de jour
+    ! pdtrad---INPUT : pas de temps du rayonnement (secondes)
+    ! lat------INPUT : latitude en degres
+    ! long-----INPUT : longitude en degres
+    ! pmu0-----OUTPUT: angle zenithal moyen entre gmtime et gmtime+pdtrad
+    ! frac-----OUTPUT: ensoleillement moyen entre gmtime et gmtime+pdtrad
+    ! ================================================================
+    include "YOMCST.h"
+    ! ================================================================
+    LOGICAL cycle_diurne
+    REAL gmtime
+    REAL rlat(klon), rlon(klon), rmu0(klon), fract(klon)
+    ! ================================================================
+    INTEGER i
+    REAL gmtime1, gmtime2
+    REAL pi_local
+
+
+    REAL rmu0m(klon), rmu0a(klon)
+
+
+    pi_local = 4.0*atan(1.0)
+
+    ! ================================================================
+    ! Calcul de l'angle zenithal moyen sur la journee
+    ! ================================================================
+
+    DO i = 1, klon
+      fract(i) = 1.
+      ! Calcule du flux moyen
+      IF (abs(rlat(i))<=28.75) THEN
+        rmu0m(i) = (210.1924+206.6059*cos(0.0174533*rlat(i))**2)/1365.
+      ELSE IF (abs(rlat(i))<=43.75) THEN
+        rmu0m(i) = (187.4562+236.1853*cos(0.0174533*rlat(i))**2)/1365.
+      ELSE IF (abs(rlat(i))<=71.25) THEN
+        rmu0m(i) = (162.4439+284.1192*cos(0.0174533*rlat(i))**2)/1365.
+      ELSE
+        rmu0m(i) = (172.8125+183.7673*cos(0.0174533*rlat(i))**2)/1365.
+      END IF
+    END DO
+
+    ! ================================================================
+    ! Avec ou sans cycle diurne
+    ! ================================================================
+
+    IF (cycle_diurne) THEN
+
+      ! On redecompose flux  au sommet suivant un cycle diurne idealise
+      ! identique a toutes les latitudes.
+
+      DO i = 1, klon
+        rmu0a(i) = 2.*rmu0m(i)*sqrt(2.)*pi_local/(4.-pi_local)
+        rmu0(i) = rmu0a(i)*abs(sin(pi_local*gmtime+pi_local*rlon(i)/360.)) - &
+          rmu0a(i)/sqrt(2.)
+      END DO
+
+      DO i = 1, klon
+        IF (rmu0(i)<=0.) THEN
+          rmu0(i) = 0.
+          fract(i) = 0.
+        ELSE
+          fract(i) = 1.
+        END IF
+      END DO
+
+      ! Affichage de l'angel zenitale
+      ! print*,'************************************'
+      ! print*,'************************************'
+      ! print*,'************************************'
+      ! print*,'latitude=',rlat(i),'longitude=',rlon(i)
+      ! print*,'rmu0m=',rmu0m(i)
+      ! print*,'rmu0a=',rmu0a(i)
+      ! print*,'rmu0=',rmu0(i)
+
+    ELSE
+
+      DO i = 1, klon
+        fract(i) = 0.5
+        rmu0(i) = rmu0m(i)*2.
+      END DO
+
+    END IF
+
+    RETURN
+  END SUBROUTINE zenang_an
+
+  ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE writelim(klon, phy_nat, phy_alb, phy_sst, phy_bil, phy_rug, &
+      phy_ice, phy_fter, phy_foce, phy_flic, phy_fsic)
+
+    USE mod_phys_lmdz_para, ONLY: is_mpi_root, is_omp_root
+    USE mod_grid_phy_lmdz, ONLY: klon_glo
+    USE mod_phys_lmdz_transfert_para, ONLY: gather
+    IMPLICIT NONE
+    include "netcdf.inc"
+
+    INTEGER, INTENT (IN) :: klon
+    REAL, INTENT (IN) :: phy_nat(klon, 360)
+    REAL, INTENT (IN) :: phy_alb(klon, 360)
+    REAL, INTENT (IN) :: phy_sst(klon, 360)
+    REAL, INTENT (IN) :: phy_bil(klon, 360)
+    REAL, INTENT (IN) :: phy_rug(klon, 360)
+    REAL, INTENT (IN) :: phy_ice(klon, 360)
+    REAL, INTENT (IN) :: phy_fter(klon, 360)
+    REAL, INTENT (IN) :: phy_foce(klon, 360)
+    REAL, INTENT (IN) :: phy_flic(klon, 360)
+    REAL, INTENT (IN) :: phy_fsic(klon, 360)
+
+    REAL :: phy_glo(klon_glo, 360) ! temporary variable, to store phy_***(:)
+      ! on the whole physics grid
+    INTEGER :: k
+    INTEGER ierr
+    INTEGER dimfirst(3)
+    INTEGER dimlast(3)
+
+    INTEGER nid, ndim, ntim
+    INTEGER dims(2), debut(2), epais(2)
+    INTEGER id_tim
+    INTEGER id_nat, id_sst, id_bils, id_rug, id_alb
+    INTEGER id_fter, id_foce, id_fsic, id_flic
+
+    IF (is_mpi_root .AND. is_omp_root) THEN
+
+      PRINT *, 'writelim: Ecriture du fichier limit'
+
+      ierr = nf_create('limit.nc', nf_clobber, nid)
+
+      ierr = nf_put_att_text(nid, nf_global, 'title', 30, &
+        'Fichier conditions aux limites')
+      ! !        ierr = NF_DEF_DIM (nid, "points_physiques", klon, ndim)
+      ierr = nf_def_dim(nid, 'points_physiques', klon_glo, ndim)
+      ierr = nf_def_dim(nid, 'time', nf_unlimited, ntim)
+
+      dims(1) = ndim
+      dims(2) = ntim
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'TEMPS', nf_double, 1, ntim, id_tim)
+#else
+      ierr = nf_def_var(nid, 'TEMPS', nf_float, 1, ntim, id_tim)
+#endif
+      ierr = nf_put_att_text(nid, id_tim, 'title', 17, 'Jour dans l annee')
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'NAT', nf_double, 2, dims, id_nat)
+#else
+      ierr = nf_def_var(nid, 'NAT', nf_float, 2, dims, id_nat)
+#endif
+      ierr = nf_put_att_text(nid, id_nat, 'title', 23, &
+        'Nature du sol (0,1,2,3)')
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'SST', nf_double, 2, dims, id_sst)
+#else
+      ierr = nf_def_var(nid, 'SST', nf_float, 2, dims, id_sst)
+#endif
+      ierr = nf_put_att_text(nid, id_sst, 'title', 35, &
+        'Temperature superficielle de la mer')
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'BILS', nf_double, 2, dims, id_bils)
+#else
+      ierr = nf_def_var(nid, 'BILS', nf_float, 2, dims, id_bils)
+#endif
+      ierr = nf_put_att_text(nid, id_bils, 'title', 32, &
+        'Reference flux de chaleur au sol')
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'ALB', nf_double, 2, dims, id_alb)
+#else
+      ierr = nf_def_var(nid, 'ALB', nf_float, 2, dims, id_alb)
+#endif
+      ierr = nf_put_att_text(nid, id_alb, 'title', 19, 'Albedo a la surface')
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'RUG', nf_double, 2, dims, id_rug)
+#else
+      ierr = nf_def_var(nid, 'RUG', nf_float, 2, dims, id_rug)
+#endif
+      ierr = nf_put_att_text(nid, id_rug, 'title', 8, 'Rugosite')
+
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'FTER', nf_double, 2, dims, id_fter)
+#else
+      ierr = nf_def_var(nid, 'FTER', nf_float, 2, dims, id_fter)
+#endif
+      ierr = nf_put_att_text(nid, id_fter, 'title',10,'Frac. Land')
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'FOCE', nf_double, 2, dims, id_foce)
+#else
+      ierr = nf_def_var(nid, 'FOCE', nf_float, 2, dims, id_foce)
+#endif
+      ierr = nf_put_att_text(nid, id_foce, 'title',11,'Frac. Ocean')
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'FSIC', nf_double, 2, dims, id_fsic)
+#else
+      ierr = nf_def_var(nid, 'FSIC', nf_float, 2, dims, id_fsic)
+#endif
+      ierr = nf_put_att_text(nid, id_fsic, 'title',13,'Frac. Sea Ice')
+#ifdef NC_DOUBLE
+      ierr = nf_def_var(nid, 'FLIC', nf_double, 2, dims, id_flic)
+#else
+      ierr = nf_def_var(nid, 'FLIC', nf_float, 2, dims, id_flic)
+#endif
+      ierr = nf_put_att_text(nid, id_flic, 'title',14,'Frac. Land Ice')
+
+      ierr = nf_enddef(nid)
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error: failed to end define mode'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+
+
+      ! write the 'times'
+      DO k = 1, 360
+#ifdef NC_DOUBLE
+        ierr = nf_put_var1_double(nid, id_tim, k, dble(k))
+#else
+        ierr = nf_put_var1_real(nid, id_tim, k, float(k))
+#endif
+        IF (ierr/=nf_noerr) THEN
+          WRITE (*, *) 'writelim error with temps(k),k=', k
+          WRITE (*, *) nf_strerror(ierr)
+        END IF
+      END DO
+
+    END IF ! of if (is_mpi_root.and.is_omp_root)
+
+    ! write the fields, after having collected them on master
+
+    CALL gather(phy_nat, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_nat, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_nat, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_nat'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_sst, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_sst, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_sst, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_sst'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_bil, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_bils, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_bils, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_bil'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_alb, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_alb, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_alb, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_alb'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_rug, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_rug, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_rug, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_rug'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_fter, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_fter, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_fter, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_fter'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_foce, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_foce, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_foce, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_foce'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_fsic, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_fsic, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_fsic, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_fsic'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    CALL gather(phy_flic, phy_glo)
+    IF (is_mpi_root .AND. is_omp_root) THEN
+#ifdef NC_DOUBLE
+      ierr = nf_put_var_double(nid, id_flic, phy_glo)
+#else
+      ierr = nf_put_var_real(nid, id_flic, phy_glo)
+#endif
+      IF (ierr/=nf_noerr) THEN
+        WRITE (*, *) 'writelim error with phy_flic'
+        WRITE (*, *) nf_strerror(ierr)
+      END IF
+    END IF
+
+    ! close file:
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      ierr = nf_close(nid)
+    END IF
+
+  END SUBROUTINE writelim
+
+  ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  SUBROUTINE profil_sst(nlon, rlatd, type_profil, phy_sst)
+    USE dimphy
+    IMPLICIT NONE
+
+    INTEGER nlon, type_profil, i, k, j
+    REAL :: rlatd(nlon), phy_sst(nlon, 360)
+    INTEGER imn, imx, amn, amx, kmn, kmx
+    INTEGER p, pplus, nlat_max
+    PARAMETER (nlat_max=72)
+    REAL x_anom_sst(nlat_max)
+
+    IF (klon/=nlon) STOP 'probleme de dimensions dans iniaqua'
+    WRITE (*, *) ' profil_sst: type_profil=', type_profil
+    DO i = 1, 360
+      ! phy_sst(:,i) = 260.+50.*cos(rlatd(:))**2
+
+      ! Rajout fbrlmd
+
+      IF (type_profil==1) THEN
+        ! Méthode 1 "Control" faible plateau à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 27.*(1-sin(1.5*rlatd(j))**2)
+          ! PI/3=1.047197551
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      END IF
+      IF (type_profil==2) THEN
+        ! Méthode 2 "Flat" fort plateau à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 27.*(1-sin(1.5*rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      END IF
+
+
+      IF (type_profil==3) THEN
+        ! Méthode 3 "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5* &
+            rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==4) THEN
+        ! Méthode 4 : Méthode 3 + SST+2 "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 0.5*29.*(2-sin(1.5*rlatd(j))**2-sin(1.5* &
+            rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==5) THEN
+        ! Méthode 5 : Méthode 3 + +2K "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 2. + 0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5 &
+            *rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273. + 2.
+          END IF
+
+        END DO
+      END IF
+
+      IF (type_profil==6) THEN
+        ! Méthode 6 "cst" valeur constante de SST
+        DO j = 1, klon
+          phy_sst(j, i) = 288.
+        END DO
+      END IF
+
+
+      IF (type_profil==7) THEN
+        ! Méthode 7 "cst" valeur constante de SST +2
+        DO j = 1, klon
+          phy_sst(j, i) = 288. + 2.
+        END DO
+      END IF
+
+      p = 0
+      IF (type_profil==8) THEN
+        ! Méthode 8 profil anomalies SST du modèle couplé AR4
+        DO j = 1, klon
+          IF (rlatd(j)==rlatd(j-1)) THEN
+            phy_sst(j, i) = 273. + x_anom_sst(pplus) + &
+              0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5*rlatd(j))**4)
+            IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+              phy_sst(j, i) = 273. + x_anom_sst(pplus)
+            END IF
+          ELSE
+            p = p + 1
+            pplus = 73 - p
+            phy_sst(j, i) = 273. + x_anom_sst(pplus) + &
+              0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5*rlatd(j))**4)
+            IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+              phy_sst(j, i) = 273. + x_anom_sst(pplus)
+            END IF
+            WRITE (*, *) rlatd(j), x_anom_sst(pplus), phy_sst(j, i)
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==9) THEN
+        ! Méthode 5 : Méthode 3 + -2K "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. - 2. + 0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5 &
+            *rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273. - 2.
+          END IF
+        END DO
+      END IF
+
+
+      IF (type_profil==10) THEN
+        ! Méthode 10 : Méthode 3 + +4K "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 4. + 0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5 &
+            *rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273. + 4.
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==11) THEN
+        ! Méthode 11 : Méthode 3 + 4CO2 "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5* &
+            rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==12) THEN
+        ! Méthode 12 : Méthode 10 + 4CO2 "Qobs" plateau réel à l'Equateur
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 4. + 0.5*27.*(2-sin(1.5*rlatd(j))**2-sin(1.5 &
+            *rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273. + 4.
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==13) THEN
+        ! Méthode 13 "Qmax" plateau réel à l'Equateur augmenté !
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 0.5*29.*(2-sin(1.5*rlatd(j))**2-sin(1.5* &
+            rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      END IF
+
+      IF (type_profil==14) THEN
+        ! Méthode 13 "Qmax2K" plateau réel à l'Equateur augmenté +2K !
+        DO j = 1, klon
+          phy_sst(j, i) = 273. + 2. + 0.5*29.*(2-sin(1.5*rlatd(j))**2-sin(1.5 &
+            *rlatd(j))**4)
+          IF ((rlatd(j)>1.0471975) .OR. (rlatd(j)<-1.0471975)) THEN
+            phy_sst(j, i) = 273.
+          END IF
+        END DO
+      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
+
+    ! IM beg : verif profil SST: phy_sst
+    amn = min(phy_sst(1,1), 1000.)
+    amx = max(phy_sst(1,1), -1000.)
+    imn = 1
+    kmn = 1
+    imx = 1
+    kmx = 1
+    DO k = 1, 360
+      DO i = 2, nlon
+        IF (phy_sst(i,k)<amn) THEN
+          amn = phy_sst(i, k)
+          imn = i
+          kmn = k
+        END IF
+        IF (phy_sst(i,k)>amx) THEN
+          amx = phy_sst(i, k)
+          imx = i
+          kmx = k
+        END IF
+      END DO
+    END DO
+
+    PRINT *, 'profil_sst: imn, kmn, phy_sst(imn,kmn) ', imn, kmn, amn
+    PRINT *, 'profil_sst: imx, kmx, phy_sst(imx,kmx) ', imx, kmx, amx
+    ! IM end : verif profil SST: phy_sst
+
+    RETURN
+  END SUBROUTINE profil_sst
+
+END MODULE phyaqua_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyetat0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyetat0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyetat0.F90	(revision 3330)
@@ -0,0 +1,571 @@
+! $Id$
+
+SUBROUTINE phyetat0 (fichnom, clesphy0, tabcntr0)
+
+  USE dimphy, only: klon, zmasq, klev, nslay
+  USE iophy, ONLY : init_iophy_new
+  USE ocean_cpl_mod,    ONLY : ocean_cpl_init
+  USE fonte_neige_mod,  ONLY : fonte_neige_init
+  USE pbl_surface_mod,  ONLY : pbl_surface_init
+  USE surface_data,     ONLY : type_ocean, version_ocean
+  USE phys_state_var_mod, ONLY : ancien_ok, clwcon, detr_therm, dtime, &
+       qsol, fevap, z0m, z0h, agesno, &
+       du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, &
+       falb_dir, falb_dif, prw_ancien, prlw_ancien, prsw_ancien, &
+       ftsol, pbl_tke, pctsrf, q_ancien, ql_ancien, qs_ancien, radpas, radsol, rain_fall, ratqs, &
+       rnebcon, rugoro, sig1, snow_fall, solaire_etat0, sollw, sollwdown, &
+       solsw, t_ancien, u_ancien, v_ancien, w01, wake_cstar, wake_deltaq, &
+       wake_deltat, wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
+       wake_s, zgam, zmax0, zmea, zpic, zsig, &
+       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, u10m, v10m
+  USE geometry_mod, ONLY : longitude_deg, latitude_deg
+  USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy
+  USE infotrac_phy, only: nbtr, nqo, type_trac, tname, niadv
+  USE traclmdz_mod,    ONLY : traclmdz_from_restart
+  USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl, co2_send
+  USE indice_sol_mod, only: nbsrf, is_ter, epsfra, is_lic, is_oce, is_sic
+  USE ocean_slab_mod, ONLY: tslab, seaice, tice, ocean_slab_init
+  USE time_phylmdz_mod, ONLY: init_iteration, pdtphys, itau_phy
+
+  IMPLICIT none
+  !======================================================================
+  ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
+  ! Objet: Lecture de l'etat initial pour la physique
+  !======================================================================
+  include "netcdf.inc"
+  include "dimsoil.h"
+  include "clesphys.h"
+  include "thermcell.h"
+  include "compbl.h"
+  include "YOMCST.h"
+  !======================================================================
+  CHARACTER*(*) fichnom
+
+  ! les variables globales lues dans le fichier restart
+
+  REAL tsoil(klon, nsoilmx, nbsrf)
+  REAL qsurf(klon, nbsrf)
+  REAL snow(klon, nbsrf)
+  real fder(klon)
+  REAL run_off_lic_0(klon)
+  REAL fractint(klon)
+  REAL trs(klon, nbtr)
+  REAL zts(klon)
+
+  CHARACTER*6 ocean_in
+  LOGICAL ok_veget_in
+
+  INTEGER        longcles
+  PARAMETER    ( longcles = 20 )
+  REAL clesphy0( longcles )
+
+  REAL xmin, xmax
+
+  INTEGER nid, nvarid
+  INTEGER ierr, i, nsrf, isoil , k
+  INTEGER length
+  PARAMETER (length=100)
+  INTEGER it, iiq, isw
+  REAL tab_cntrl(length), tabcntr0(length)
+  CHARACTER*7 str7
+  CHARACTER*2 str2
+  LOGICAL :: found,phyetat0_get,phyetat0_srf
+  REAL :: lon_startphy(klon), lat_startphy(klon)
+
+  ! FH1D
+  !     real iolat(jjm+1)
+  !real iolat(jjm+1-1/(iim*jjm))
+
+  ! Ouvrir le fichier contenant l'etat initial:
+
+  CALL open_startphy(fichnom)
+
+  ! Lecture des parametres de controle:
+
+  CALL get_var("controle", tab_cntrl)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
+  ! Les constantes de la physiques sont lues dans la physique seulement.
+  ! Les egalites du type
+  !             tab_cntrl( 5 )=clesphy0(1)
+  ! sont remplacees par
+  !             clesphy0(1)=tab_cntrl( 5 )
+  ! On inverse aussi la logique.
+  ! On remplit les tab_cntrl avec les parametres lus dans les .def
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  DO i = 1, length
+     tabcntr0( i ) = tab_cntrl( i )
+  ENDDO
+
+  tab_cntrl(1)=pdtphys
+  tab_cntrl(2)=radpas
+
+  ! co2_ppm : value from the previous time step
+  IF (carbon_cycle_tr .OR. carbon_cycle_cpl) THEN
+     co2_ppm = tab_cntrl(3)
+     RCO2    = co2_ppm * 1.0e-06  * 44.011/28.97 
+     ! ELSE : keep value from .def
+  END IF
+
+  ! co2_ppm0 : initial value of atmospheric CO2 (from create_etat0_limit.e .def)
+  co2_ppm0   = tab_cntrl(16)
+
+  solaire_etat0      = tab_cntrl(4)
+  tab_cntrl(5)=iflag_con
+  tab_cntrl(6)=nbapp_rad
+
+  if (cycle_diurne) tab_cntrl( 7) =1.
+  if (soil_model) tab_cntrl( 8) =1.
+  if (new_oliq) tab_cntrl( 9) =1.
+  if (ok_orodr) tab_cntrl(10) =1.
+  if (ok_orolf) tab_cntrl(11) =1.
+  if (ok_limitvrai) tab_cntrl(12) =1.
+
+  itau_phy = tab_cntrl(15)
+
+  clesphy0(1)=tab_cntrl( 5 )
+  clesphy0(2)=tab_cntrl( 6 )
+  clesphy0(3)=tab_cntrl( 7 )
+  clesphy0(4)=tab_cntrl( 8 )
+  clesphy0(5)=tab_cntrl( 9 )
+  clesphy0(6)=tab_cntrl( 10 )
+  clesphy0(7)=tab_cntrl( 11 )
+  clesphy0(8)=tab_cntrl( 12 )
+
+  ! set time iteration
+   CALL init_iteration(itau_phy)
+
+  ! read latitudes and make a sanity check (because already known from dyn)
+  CALL get_field("latitude",lat_startphy)
+  DO i=1,klon
+    IF (ABS(lat_startphy(i)-latitude_deg(i))>=1) THEN
+      WRITE(*,*) "phyetat0: Error! Latitude discrepancy wrt startphy file:",&
+                 " i=",i," lat_startphy(i)=",lat_startphy(i),&
+                 " latitude_deg(i)=",latitude_deg(i)
+      ! This is presumably serious enough to abort run
+      CALL abort_physic("phyetat0","discrepancy in latitudes!",1)
+    ENDIF
+    IF (ABS(lat_startphy(i)-latitude_deg(i))>=0.0001) THEN
+      WRITE(*,*) "phyetat0: Warning! Latitude discrepancy wrt startphy file:",&
+                 " i=",i," lat_startphy(i)=",lat_startphy(i),&
+                 " latitude_deg(i)=",latitude_deg(i)
+    ENDIF
+  ENDDO
+
+  ! read longitudes and make a sanity check (because already known from dyn)
+  CALL get_field("longitude",lon_startphy)
+  DO i=1,klon
+    IF (ABS(lon_startphy(i)-longitude_deg(i))>=1) THEN
+      WRITE(*,*) "phyetat0: Error! Longitude discrepancy wrt startphy file:",&
+                 " i=",i," lon_startphy(i)=",lon_startphy(i),&
+                 " longitude_deg(i)=",longitude_deg(i)
+      ! This is presumably serious enough to abort run
+      CALL abort_physic("phyetat0","discrepancy in longitudes!",1)
+    ENDIF
+    IF (ABS(lon_startphy(i)-longitude_deg(i))>=0.0001) THEN
+      WRITE(*,*) "phyetat0: Warning! Longitude discrepancy wrt startphy file:",&
+                 " i=",i," lon_startphy(i)=",lon_startphy(i),&
+                 " longitude_deg(i)=",longitude_deg(i)
+    ENDIF
+  ENDDO
+
+  ! Lecture du masque terre mer
+
+  CALL get_field("masque", zmasq, found)
+  IF (.NOT. found) THEN
+     PRINT*, 'phyetat0: Le champ <masque> est absent'
+     PRINT *, 'fichier startphy non compatible avec phyetat0'
+  ENDIF
+
+  ! Lecture des fractions pour chaque sous-surface
+
+  ! initialisation des sous-surfaces
+
+  pctsrf = 0.
+
+  ! fraction de terre
+
+  CALL get_field("FTER", pctsrf(:, is_ter), found)
+  IF (.NOT. found) PRINT*, 'phyetat0: Le champ <FTER> est absent'
+
+  ! fraction de glace de terre
+
+  CALL get_field("FLIC", pctsrf(:, is_lic), found)
+  IF (.NOT. found) PRINT*, 'phyetat0: Le champ <FLIC> est absent'
+
+  ! fraction d'ocean
+
+  CALL get_field("FOCE", pctsrf(:, is_oce), found)
+  IF (.NOT. found) PRINT*, 'phyetat0: Le champ <FOCE> est absent'
+
+  ! fraction glace de mer
+
+  CALL get_field("FSIC", pctsrf(:, is_sic), found)
+  IF (.NOT. found) PRINT*, 'phyetat0: Le champ <FSIC> est absent'
+
+  !  Verification de l'adequation entre le masque et les sous-surfaces
+
+  fractint( 1 : klon) = pctsrf(1 : klon, is_ter)  &
+       + pctsrf(1 : klon, is_lic)
+  DO i = 1 , klon
+     IF ( abs(fractint(i) - zmasq(i) ) .GT. EPSFRA ) THEN
+        WRITE(*, *) 'phyetat0: attention fraction terre pas ',  &
+             'coherente ', i, zmasq(i), pctsrf(i, is_ter) &
+             , pctsrf(i, is_lic)
+        WRITE(*, *) 'Je force la coherence zmasq=fractint'
+        zmasq(i) = fractint(i)
+     ENDIF
+  END DO
+  fractint (1 : klon) =  pctsrf(1 : klon, is_oce)  &
+       + pctsrf(1 : klon, is_sic)
+  DO i = 1 , klon
+     IF ( abs( fractint(i) - (1. - zmasq(i))) .GT. EPSFRA ) THEN
+        WRITE(*, *) 'phyetat0 attention fraction ocean pas ',  &
+             'coherente ', i, zmasq(i) , pctsrf(i, is_oce) &
+             , pctsrf(i, is_sic)
+        WRITE(*, *) 'Je force la coherence zmasq=1.-fractint'
+        zmasq(i) = 1. - fractint(i)
+     ENDIF
+  END DO
+
+!===================================================================
+! Lecture des temperatures du sol:
+!===================================================================
+
+  found=phyetat0_get(1,ftsol(:,1),"TS","Surface temperature",283.)
+  IF (found) THEN
+     DO nsrf=2,nbsrf
+        ftsol(:,nsrf)=ftsol(:,1)
+     ENDDO
+  ELSE
+     found=phyetat0_srf(1,ftsol,"TS","Surface temperature",283.)
+  ENDIF
+
+!===================================================================
+  ! Lecture des albedo difus et direct
+!===================================================================
+
+  DO nsrf = 1, nbsrf
+     DO isw=1, nsw
+        IF (isw.GT.99) THEN
+           PRINT*, "Trop de bandes SW"
+           call abort_physic("phyetat0", "", 1)
+        ENDIF
+        WRITE(str2, '(i2.2)') isw
+        found=phyetat0_srf(1,falb_dir(:, isw,:),"A_dir_SW"//str2//"srf","Direct Albedo",0.2)
+        found=phyetat0_srf(1,falb_dif(:, isw,:),"A_dif_SW"//str2//"srf","Direct Albedo",0.2)
+     ENDDO
+  ENDDO
+
+  found=phyetat0_srf(1,u10m,"U10M","u a 10m",0.)
+  found=phyetat0_srf(1,v10m,"V10M","v a 10m",0.)
+
+!===================================================================
+  ! Lecture des temperatures du sol profond:
+!===================================================================
+
+   DO isoil=1, nsoilmx
+        IF (isoil.GT.99) THEN
+           PRINT*, "Trop de couches "
+           call abort_physic("phyetat0", "", 1)
+        ENDIF
+        WRITE(str2,'(i2.2)') isoil
+        found=phyetat0_srf(1,tsoil(:, isoil,:),"Tsoil"//str2//"srf","Temp soil",0.)
+        IF (.NOT. found) THEN
+           PRINT*, "phyetat0: Le champ <Tsoil"//str7//"> est absent"
+           PRINT*, "          Il prend donc la valeur de surface"
+           tsoil(:, isoil, :)=ftsol(:, :)
+        ENDIF
+   ENDDO
+
+!=======================================================================
+! Lecture precipitation/evaporation
+!=======================================================================
+
+  found=phyetat0_srf(1,qsurf,"QS","Near surface hmidity",0.)
+  found=phyetat0_get(1,qsol,"QSOL","Surface hmidity / bucket",0.)
+  found=phyetat0_srf(1,snow,"SNOW","Surface snow",0.)
+  found=phyetat0_srf(1,fevap,"EVAP","evaporation",0.)
+  found=phyetat0_get(1,snow_fall,"snow_f","snow fall",0.)
+  found=phyetat0_get(1,rain_fall,"rain_f","rain fall",0.)
+
+!=======================================================================
+! Radiation
+!=======================================================================
+
+  found=phyetat0_get(1,solsw,"solsw","net SW radiation surf",0.)
+  found=phyetat0_get(1,sollw,"sollw","net LW radiation surf",0.)
+  found=phyetat0_get(1,sollwdown,"sollwdown","down LW radiation surf",0.)
+  IF (.NOT. found) THEN
+     sollwdown = 0. ;  zts=0.
+     do nsrf=1,nbsrf
+        zts(:)=zts(:)+ftsol(:,nsrf)*pctsrf(:,nsrf)
+     enddo
+     sollwdown(:)=sollw(:)+RSIGMA*zts(:)**4
+  ENDIF
+
+  found=phyetat0_get(1,radsol,"RADS","Solar radiation",0.)
+  found=phyetat0_get(1,fder,"fder","Flux derivative",0.) 
+
+
+  ! Lecture de la longueur de rugosite 
+  found=phyetat0_srf(1,z0m,"RUG","Z0m ancien",0.001)
+  IF (found) THEN
+     z0h(:,1:nbsrf)=z0m(:,1:nbsrf)
+  ELSE
+     found=phyetat0_srf(1,z0m,"Z0m","Roughness length, momentum ",0.001)
+     found=phyetat0_srf(1,z0h,"Z0h","Roughness length, enthalpy ",0.001)
+  ENDIF
+
+  ! Lecture de l'age de la neige:
+  found=phyetat0_srf(1,agesno,"AGESNO","SNOW AGE",0.001)
+
+  ancien_ok=.true.
+  ancien_ok=ancien_ok.AND.phyetat0_get(klev,t_ancien,"TANCIEN","TANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(klev,q_ancien,"QANCIEN","QANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(klev,ql_ancien,"QLANCIEN","QLANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(klev,qs_ancien,"QSANCIEN","QSANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(klev,u_ancien,"UANCIEN","UANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(klev,v_ancien,"VANCIEN","VANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(1,prw_ancien,"PRWANCIEN","PRWANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(1,prlw_ancien,"PRLWANCIEN","PRLWANCIEN",0.)
+  ancien_ok=ancien_ok.AND.phyetat0_get(1,prsw_ancien,"PRSWANCIEN","PRSWANCIEN",0.)
+
+  ! Ehouarn: addtional tests to check if t_ancien, q_ancien contain
+  !          dummy values (as is the case when generated by ce0l,
+  !          or by iniaqua)
+  if ( (maxval(q_ancien).eq.minval(q_ancien))       .or. &
+       (maxval(ql_ancien).eq.minval(ql_ancien))     .or. &
+       (maxval(qs_ancien).eq.minval(qs_ancien))     .or. &
+       (maxval(prw_ancien).eq.minval(prw_ancien))   .or. &
+       (maxval(prlw_ancien).eq.minval(prlw_ancien)) .or. &
+       (maxval(prsw_ancien).eq.minval(prsw_ancien)) .or. &
+       (maxval(t_ancien).eq.minval(t_ancien)) ) then
+    ancien_ok=.false.
+  endif
+
+  found=phyetat0_get(klev,clwcon,"CLWCON","CLWCON",0.)
+  found=phyetat0_get(klev,rnebcon,"RNEBCON","RNEBCON",0.)
+  found=phyetat0_get(klev,ratqs,"RATQS","RATQS",0.)
+
+  found=phyetat0_get(1,run_off_lic_0,"RUNOFFLIC0","RUNOFFLIC0",0.)
+
+!==================================
+!  TKE
+!==================================
+!
+  IF (iflag_pbl>1) then
+     found=phyetat0_srf(klev+1,pbl_tke,"TKE","Turb. Kinetic. Energ. ",1.e-8)
+  ENDIF
+
+  IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1 ) then
+    found=phyetat0_srf(klev+1,wake_delta_pbl_tke,"DELTATKE","Del TKE wk/env",0.)
+    found=phyetat0_srf(1,delta_tsurf,"DELTA_TSURF","Delta Ts wk/env ",0.)
+  ENDIF   !(iflag_pbl>1 .AND. iflag_wake>=1 .AND. iflag_pbl_split >=1 )
+
+!==================================
+!  thermiques, poches, convection
+!==================================
+
+! Emanuel
+  found=phyetat0_get(klev,sig1,"sig1","sig1",0.)
+  found=phyetat0_get(klev,w01,"w01","w01",0.)
+
+! Wake
+  found=phyetat0_get(klev,wake_deltat,"WAKE_DELTAT","Delta T wake/env",0.)
+  found=phyetat0_get(klev,wake_deltaq,"WAKE_DELTAQ","Delta hum. wake/env",0.)
+  found=phyetat0_get(1,wake_s,"WAKE_S","WAKE_S",0.)
+  found=phyetat0_get(1,wake_cstar,"WAKE_CSTAR","WAKE_CSTAR",0.)
+  found=phyetat0_get(1,wake_pe,"WAKE_PE","WAKE_PE",0.)
+  found=phyetat0_get(1,wake_fip,"WAKE_FIP","WAKE_FIP",0.)
+
+! Thermiques
+  found=phyetat0_get(1,zmax0,"ZMAX0","ZMAX0",40.)
+  found=phyetat0_get(1,f0,"F0","F0",1.e-5)
+  found=phyetat0_get(klev+1,fm_therm,"FM_THERM","Thermals mass flux",0.)
+  found=phyetat0_get(klev,entr_therm,"ENTR_THERM","Thermals Entrain.",0.)
+  found=phyetat0_get(klev,detr_therm,"DETR_THERM","Thermals Detrain.",0.)
+
+! ALE/ALP
+  found=phyetat0_get(1,ale_bl,"ALE_BL","ALE BL",0.)
+  found=phyetat0_get(1,ale_bl_trig,"ALE_BL_TRIG","ALE BL_TRIG",0.)
+  found=phyetat0_get(1,alp_bl,"ALP_BL","ALP BL",0.)
+
+!===========================================
+  ! Read and send field trs to traclmdz
+!===========================================
+
+  IF (type_trac == 'lmdz') THEN
+     DO it=1, nbtr                                                                  
+!!        iiq=niadv(it+2)                                                           ! jyg
+        iiq=niadv(it+nqo)                                                           ! jyg
+        found=phyetat0_get(1,trs(:,it),"trs_"//tname(iiq), &
+              "Surf trac"//tname(iiq),0.)
+     END DO
+     CALL traclmdz_from_restart(trs)
+
+     IF (carbon_cycle_cpl) THEN
+        ALLOCATE(co2_send(klon), stat=ierr)
+        IF (ierr /= 0) CALL abort_physic('phyetat0', 'pb allocation co2_send', 1)
+        found=phyetat0_get(1,co2_send,"co2_send","co2 send",0.)
+     END IF
+  END IF
+
+!===========================================
+!  ondes de gravite / relief
+!===========================================
+
+!  ondes de gravite non orographiques
+  if (ok_gwd_rando) found = &
+       phyetat0_get(klev,du_gwd_rando,"du_gwd_rando","du_gwd_rando",0.)
+  IF (.not. ok_hines .and. ok_gwd_rando) found &
+       = phyetat0_get(klev,du_gwd_front,"du_gwd_front","du_gwd_front",0.)
+
+!  prise en compte du relief sous-maille
+  found=phyetat0_get(1,zmea,"ZMEA","sub grid orography",0.)
+  found=phyetat0_get(1,zstd,"ZSTD","sub grid orography",0.)
+  found=phyetat0_get(1,zsig,"ZSIG","sub grid orography",0.)
+  found=phyetat0_get(1,zgam,"ZGAM","sub grid orography",0.)
+  found=phyetat0_get(1,zthe,"ZTHE","sub grid orography",0.)
+  found=phyetat0_get(1,zpic,"ZPIC","sub grid orography",0.)
+  found=phyetat0_get(1,zval,"ZVAL","sub grid orography",0.)
+  found=phyetat0_get(1,zmea,"ZMEA","sub grid orography",0.)
+  found=phyetat0_get(1,rugoro,"RUGSREL","sub grid orography",0.)
+
+!===========================================
+! Initialize ocean
+!===========================================
+
+  IF ( type_ocean == 'slab' ) THEN
+      CALL ocean_slab_init(dtime, pctsrf)
+      found=phyetat0_get(nslay,tslab,"tslab","tslab",0.)
+      IF (.NOT. found) THEN 
+          PRINT*, "phyetat0: Le champ <tslab> est absent"
+          PRINT*, "Initialisation a tsol_oce"
+          DO i=1,nslay
+              tslab(:,i)=MAX(ftsol(:,is_oce),271.35)
+          END DO
+      END IF 
+
+      ! Sea ice variables
+      found=phyetat0_get(1,tice,"slab_tice","slab_tice",0.)
+      IF (version_ocean == 'sicINT') THEN
+          IF (.NOT. found) THEN 
+              PRINT*, "phyetat0: Le champ <tice> est absent"
+              PRINT*, "Initialisation a tsol_sic"
+                  tice(:)=ftsol(:,is_sic)
+          END IF 
+          IF (.NOT. found) THEN
+              PRINT*, "phyetat0: Le champ <seaice> est absent"
+              PRINT*, "Initialisation a 0/1m suivant fraction glace"
+              seaice(:)=0.
+              WHERE (pctsrf(:,is_sic).GT.EPSFRA)
+                  seaice=917.
+              END WHERE
+          END IF
+      END IF !sea ice INT
+  END IF ! Slab        
+
+  ! on ferme le fichier
+  CALL close_startphy
+
+  ! Initialize module pbl_surface_mod 
+
+  CALL pbl_surface_init(fder, snow, qsurf, tsoil)
+
+  ! Initialize module ocean_cpl_mod for the case of coupled ocean
+  IF ( type_ocean == 'couple' ) THEN
+     CALL ocean_cpl_init(dtime, longitude_deg, latitude_deg)
+  ENDIF
+
+  CALL init_iophy_new(latitude_deg, longitude_deg)
+
+  ! Initilialize module fonte_neige_mod      
+  CALL fonte_neige_init(run_off_lic_0)
+
+END SUBROUTINE phyetat0
+
+!===================================================================
+FUNCTION phyetat0_get(nlev,field,name,descr,default)
+!===================================================================
+! Lecture d'un champ avec contrôle
+! Function logique dont le resultat indique si la lecture
+! s'est bien passée
+! On donne une valeur par defaut dans le cas contraire
+!===================================================================
+
+USE iostart, ONLY : get_field
+USE dimphy, only: klon 
+USE print_control_mod, ONLY: lunout
+
+IMPLICIT NONE
+
+LOGICAL phyetat0_get
+
+! arguments
+INTEGER,INTENT(IN) :: nlev
+CHARACTER*(*),INTENT(IN) :: name,descr
+REAL,INTENT(IN) :: default
+REAL,DIMENSION(klon,nlev),INTENT(INOUT) :: field
+
+! Local variables
+LOGICAL found
+
+   CALL get_field(name, field, found)
+   IF (.NOT. found) THEN
+     WRITE(lunout,*) "phyetat0: Le champ <",name,"> est absent"
+     WRITE(lunout,*) "Depart legerement fausse. Mais je continue"
+     field(:,:)=default
+   ENDIF
+   WRITE(lunout,*) name, descr, MINval(field),MAXval(field)
+   phyetat0_get=found
+
+RETURN
+END FUNCTION phyetat0_get
+
+!================================================================
+FUNCTION phyetat0_srf(nlev,field,name,descr,default)
+!===================================================================
+! Lecture d'un champ par sous-surface avec contrôle
+! Function logique dont le resultat indique si la lecture
+! s'est bien passée
+! On donne une valeur par defaut dans le cas contraire
+!===================================================================
+
+USE iostart, ONLY : get_field
+USE dimphy, only: klon 
+USE indice_sol_mod, only: nbsrf
+USE print_control_mod, ONLY: lunout
+
+IMPLICIT NONE
+
+LOGICAL phyetat0_srf
+! arguments
+INTEGER,INTENT(IN) :: nlev
+CHARACTER*(*),INTENT(IN) :: name,descr
+REAL,INTENT(IN) :: default
+REAL,DIMENSION(klon,nlev,nbsrf),INTENT(INOUT) :: field
+
+! Local variables
+LOGICAL found,phyetat0_get
+INTEGER nsrf
+CHARACTER*2 str2
+  
+     IF (nbsrf.GT.99) THEN
+        WRITE(lunout,*) "Trop de sous-mailles"
+        call abort_physic("phyetat0", "", 1)
+     ENDIF
+
+     DO nsrf = 1, nbsrf
+        WRITE(str2, '(i2.2)') nsrf
+        found= phyetat0_get(nlev,field(:,:, nsrf), &
+        name//str2,descr//" srf:"//str2,default)
+     ENDDO
+
+     phyetat0_srf=found
+
+RETURN
+END FUNCTION phyetat0_srf
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyredem.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyredem.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phyredem.F90	(revision 3330)
@@ -0,0 +1,373 @@
+SUBROUTINE phyredem (fichnom)
+!
+!-------------------------------------------------------------------------------
+! Author: Z.X. Li (LMD/CNRS), 1993/08/18
+!-------------------------------------------------------------------------------
+! Purpose: Write restart state for physics.
+!-------------------------------------------------------------------------------
+  USE dimphy, ONLY: klon, klev
+  USE fonte_neige_mod,  ONLY : fonte_neige_final
+  USE pbl_surface_mod,  ONLY : pbl_surface_final
+  USE phys_state_var_mod, ONLY: radpas, zmasq, pctsrf, ftsol, falb_dir,      &
+                                falb_dif, qsol, fevap, radsol, solsw, sollw, &
+                                sollwdown, rain_fall, snow_fall, z0m, z0h,   &
+                                agesno, zmea, zstd, zsig, zgam, zthe, zpic,  &
+                                zval, rugoro, t_ancien, q_ancien,            &
+                                prw_ancien, prlw_ancien, prsw_ancien,        &
+                                ql_ancien, qs_ancien,  u_ancien,             &
+                                v_ancien, clwcon, rnebcon, ratqs, pbl_tke,   &
+                                wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
+                                wake_deltat, wake_deltaq, wake_s, wake_cstar,&
+                                wake_pe, wake_fip, fm_therm, entr_therm,     &
+                                detr_therm, Ale_bl, Ale_bl_trig, Alp_bl,     &
+                                du_gwd_rando, du_gwd_front, u10m, v10m
+  USE geometry_mod, ONLY : longitude_deg, latitude_deg
+  USE iostart, ONLY: open_restartphy, close_restartphy, put_field, put_var
+  USE traclmdz_mod, ONLY : traclmdz_to_restart
+  USE infotrac_phy, ONLY: type_trac, niadv, tname, nbtr, nqo
+  USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
+  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
+  USE surface_data, ONLY: type_ocean, version_ocean
+  USE ocean_slab_mod, ONLY : tslab, seaice, tice, fsic
+  USE time_phylmdz_mod, ONLY: annee_ref, day_end, itau_phy, pdtphys
+
+  IMPLICIT none
+
+  include "dimsoil.h"
+  include "clesphys.h"
+  include "thermcell.h"
+  include "compbl.h"
+  !======================================================================
+  CHARACTER*(*) fichnom
+
+  ! les variables globales ecrites dans le fichier restart
+
+  REAL tsoil(klon, nsoilmx, nbsrf)
+  REAL qsurf(klon, nbsrf)
+  REAL snow(klon, nbsrf)
+  real fder(klon)
+  REAL run_off_lic_0(klon)
+  REAL trs(klon, nbtr)
+
+  INTEGER nid, nvarid, idim1, idim2, idim3
+  INTEGER ierr
+  INTEGER length
+  PARAMETER (length=100)
+  REAL tab_cntrl(length)
+
+  INTEGER isoil, nsrf,isw
+  CHARACTER (len=7) :: str7
+  CHARACTER (len=256) :: nam, lnam
+  INTEGER           :: it, iiq
+
+  !======================================================================
+
+  ! Get variables which will be written to restart file from module 
+  ! pbl_surface_mod
+  CALL pbl_surface_final(fder, snow, qsurf,  tsoil)
+
+  ! Get a variable calculated in module fonte_neige_mod
+  CALL fonte_neige_final(run_off_lic_0)
+
+  !======================================================================
+
+  CALL open_restartphy(fichnom)
+
+  DO ierr = 1, length
+     tab_cntrl(ierr) = 0.0
+  ENDDO
+  tab_cntrl(1) = pdtphys
+  tab_cntrl(2) = radpas
+  ! co2_ppm : current value of atmospheric CO2
+  tab_cntrl(3) = co2_ppm
+  tab_cntrl(4) = solaire
+  tab_cntrl(5) = iflag_con
+  tab_cntrl(6) = nbapp_rad
+
+  IF( cycle_diurne ) tab_cntrl( 7 ) = 1.
+  IF(   soil_model ) tab_cntrl( 8 ) = 1.
+  IF(     new_oliq ) tab_cntrl( 9 ) = 1.
+  IF(     ok_orodr ) tab_cntrl(10 ) = 1.
+  IF(     ok_orolf ) tab_cntrl(11 ) = 1.
+
+  tab_cntrl(13) = day_end
+  tab_cntrl(14) = annee_ref
+  tab_cntrl(15) = itau_phy
+
+  ! co2_ppm0 : initial value of atmospheric CO2
+  tab_cntrl(16) = co2_ppm0
+
+  CALL put_var("controle", "Parametres de controle", tab_cntrl)
+
+  CALL put_field("longitude", &
+       "Longitudes de la grille physique", longitude_deg)
+
+  CALL put_field("latitude", "Latitudes de la grille physique", latitude_deg)
+
+  ! PB ajout du masque terre/mer
+
+  CALL put_field("masque", "masque terre mer", zmasq)
+
+  ! BP ajout des fraction de chaque sous-surface
+
+  ! Get last fractions from slab ocean
+  IF (type_ocean == 'slab' .AND. version_ocean == "sicINT") THEN
+      WHERE (1.-zmasq(:).GT.EPSFRA)
+          pctsrf(:,is_oce)=(1.-fsic(:))*(1.-zmasq(:))
+          pctsrf(:,is_sic)=fsic(:)*(1.-zmasq(:))
+      END WHERE
+  END IF
+
+  ! 1. fraction de terre 
+
+  CALL put_field("FTER", "fraction de continent", pctsrf(:, is_ter))
+
+  ! 2. Fraction de glace de terre
+
+  CALL put_field("FLIC", "fraction glace de terre", pctsrf(:, is_lic))
+
+  ! 3. fraction ocean
+
+  CALL put_field("FOCE", "fraction ocean", pctsrf(:, is_oce))
+
+  ! 4. Fraction glace de mer
+
+  CALL put_field("FSIC", "fraction glace mer", pctsrf(:, is_sic))
+
+  IF(nbsrf>99) THEN
+    PRINT*, "Trop de sous-mailles";  CALL abort_physic("phyredem", "", 1)
+  END IF
+  IF(nsoilmx>99) THEN
+    PRINT*, "Trop de sous-surfaces"; CALL abort_physic("phyredem", "", 1)
+  END IF
+  IF(nsw>99) THEN
+    PRINT*, "Trop de bandes"; CALL abort_physic("phyredem", "", 1)
+  END IF
+
+  CALL put_field_srf1("TS","Temperature",ftsol(:,:))
+
+! ================== Albedo =======================================
+  print*,'PHYREDEM NOUVEAU'
+  CALL put_field_srf2("A_dir_SW","Albedo direct",falb_dir(:,:,:))
+  CALL put_field_srf2("A_dif_SW","Albedo diffus",falb_dif(:,:,:))
+
+  CALL put_field_srf1("U10M", "u a 10m", u10m)
+
+  CALL put_field_srf1("V10M", "v a 10m", v10m)
+
+
+! ================== Tsoil =========================================
+  CALL put_field_srf2("Tsoil","Temperature",tsoil(:,:,:))
+
+  CALL put_field_srf1("QS"  , "Humidite",qsurf(:,:))
+
+  CALL put_field     ("QSOL", "Eau dans le sol (mm)", qsol)
+
+  CALL put_field_srf1("EVAP", "Evaporation", fevap(:,:))
+
+  CALL put_field_srf1("SNOW", "Neige", snow(:,:))
+
+  CALL put_field("RADS", "Rayonnement net a la surface", radsol)
+
+  CALL put_field("solsw", "Rayonnement solaire a la surface", solsw)
+
+  CALL put_field("sollw", "Rayonnement IF a la surface", sollw)
+
+  CALL put_field("sollwdown", "Rayonnement down IF a la surface", sollwdown)
+
+  CALL put_field("fder", "Derive de flux", fder)
+
+  CALL put_field("rain_f", "precipitation liquide", rain_fall)
+
+  CALL put_field("snow_f", "precipitation solide", snow_fall)
+
+  CALL put_field_srf1("Z0m", "rugosite", z0m(:,:))
+
+  CALL put_field_srf1("Z0h", "rugosite", z0h(:,:))
+
+  CALL put_field_srf1("AGESNO", "Age de la neige", agesno(:,:))
+
+  CALL put_field("ZMEA", "ZMEA", zmea)
+
+  CALL put_field("ZSTD", "ZSTD", zstd)
+
+  CALL put_field("ZSIG", "ZSIG", zsig)
+
+  CALL put_field("ZGAM", "ZGAM", zgam)
+
+  CALL put_field("ZTHE", "ZTHE", zthe)
+
+  CALL put_field("ZPIC", "ZPIC", zpic)
+
+  CALL put_field("ZVAL", "ZVAL", zval)
+
+  CALL put_field("RUGSREL", "RUGSREL", rugoro)
+
+  CALL put_field("TANCIEN", "TANCIEN", t_ancien)
+
+  CALL put_field("QANCIEN", "QANCIEN", q_ancien)
+
+  CALL put_field("QLANCIEN", "QLANCIEN", ql_ancien)
+
+  CALL put_field("QSANCIEN", "QSANCIEN", qs_ancien)
+
+  CALL put_field("PRWANCIEN", "PRWANCIEN", prw_ancien)
+
+  CALL put_field("PRLWANCIEN", "PRLWANCIEN", prlw_ancien)
+
+  CALL put_field("PRSWANCIEN", "PRSWANCIEN", prsw_ancien)
+
+  CALL put_field("UANCIEN", "UANCIEN", u_ancien)
+
+  CALL put_field("VANCIEN", "VANCIEN", v_ancien)
+
+  CALL put_field("CLWCON", "Eau liquide convective", clwcon)
+
+  CALL put_field("RNEBCON", "Nebulosite convective", rnebcon)
+
+  CALL put_field("RATQS", "Ratqs", ratqs)
+
+  ! run_off_lic_0
+
+  CALL put_field("RUNOFFLIC0", "Runofflic0", run_off_lic_0)
+
+  ! DEB TKE PBL !
+
+  IF (iflag_pbl>1) then
+    CALL put_field_srf3("TKE", "Energ. Cineti. Turb.", &
+         pbl_tke(:,:,:))
+    CALL put_field_srf3("DELTATKE", "Del TKE wk/env.", &
+         wake_delta_pbl_tke(:,:,:))
+  END IF
+
+  ! FIN TKE PBL !
+  !IM ajout zmax0, f0, sig1, w01
+  !IM wake_deltat, wake_deltaq, wake_s, wake_cstar, wake_pe, wake_fip
+
+  CALL put_field("ZMAX0", "ZMAX0", zmax0)
+
+  CALL put_field("F0", "F0", f0)
+
+  CALL put_field("sig1", "sig1 Emanuel", sig1)
+
+  CALL put_field("w01", "w01 Emanuel", w01)
+
+  ! wake_deltat
+  CALL put_field("WAKE_DELTAT", "WAKE_DELTAT", wake_deltat)
+
+  CALL put_field("WAKE_DELTAQ", "WAKE_DELTAQ", wake_deltaq)
+
+  CALL put_field("WAKE_S", "WAKE_S", wake_s)
+
+  CALL put_field("WAKE_CSTAR", "WAKE_CSTAR", wake_cstar)
+
+  CALL put_field("WAKE_PE", "WAKE_PE", wake_pe)
+
+  CALL put_field("WAKE_FIP", "WAKE_FIP", wake_fip)
+
+  ! thermiques
+
+  CALL put_field("FM_THERM", "FM_THERM", fm_therm)
+
+  CALL put_field("ENTR_THERM", "ENTR_THERM", entr_therm)
+
+  CALL put_field("DETR_THERM", "DETR_THERM", detr_therm)
+
+  CALL put_field("ALE_BL", "ALE_BL", Ale_bl)
+
+  CALL put_field("ALE_BL_TRIG", "ALE_BL_TRIG", Ale_bl_trig)
+
+  CALL put_field("ALP_BL", "ALP_BL", Alp_bl)
+
+  ! trs from traclmdz_mod
+  IF (type_trac == 'lmdz') THEN
+     CALL traclmdz_to_restart(trs)
+     DO it=1, nbtr
+!!        iiq=niadv(it+2)                                                           ! jyg
+        iiq=niadv(it+nqo)                                                           ! jyg
+        CALL put_field("trs_"//tname(iiq), "", trs(:, it))
+     END DO
+     IF (carbon_cycle_cpl) THEN
+        IF (.NOT. ALLOCATED(co2_send)) THEN
+           ! This is the case of create_etat0_limit, ce0l
+           ALLOCATE(co2_send(klon))
+           co2_send(:) = co2_ppm0
+        END IF
+        CALL put_field("co2_send", "co2_ppm for coupling", co2_send)
+     END IF
+  END IF
+
+  ! Restart variables for Slab ocean
+  IF (type_ocean == 'slab') THEN
+      CALL put_field("tslab", "Slab ocean temperature", tslab)
+      IF (version_ocean == 'sicINT') THEN
+          CALL put_field("seaice", "Slab seaice (kg/m2)", seaice)
+          CALL put_field("slab_tice", "Slab sea ice temperature", tice)
+      END IF
+  END IF
+
+  if (ok_gwd_rando) call put_field("du_gwd_rando", &
+       "tendency on zonal wind due to flott gravity waves", du_gwd_rando)
+
+  IF (.not. ok_hines .and. ok_gwd_rando) call put_field("du_gwd_front", &
+       "tendency on zonal wind due to acama gravity waves", du_gwd_front)
+
+  CALL close_restartphy
+  !$OMP BARRIER
+
+
+  CONTAINS
+
+
+SUBROUTINE put_field_srf1(nam,lnam,field)
+
+  IMPLICIT NONE
+  CHARACTER(LEN=*),  INTENT(IN) :: nam, lnam
+  REAL,              INTENT(IN) :: field(:,:)
+  CHARACTER(LEN=256) :: nm, lm, str
+  DO nsrf = 1, SIZE(field,2)
+    WRITE(str, '(i2.2)') nsrf
+    nm=TRIM(nam)//TRIM(str)
+    lm=TRIM(lnam)//" de surface No. "//TRIM(str)
+    CALL put_field(nm,lm,field(:,nsrf))
+  END DO
+
+END SUBROUTINE put_field_srf1
+
+
+SUBROUTINE put_field_srf2(nam,lnam,field)
+
+  IMPLICIT NONE
+  CHARACTER(LEN=*),  INTENT(IN) :: nam, lnam
+  REAL,              INTENT(IN) :: field(:,:,:)
+  CHARACTER(LEN=256) :: nm, lm, str
+  DO nsrf = 1, SIZE(field,3)
+    DO isoil=1, SIZE(field,2)
+      WRITE(str, '(i2.2,"srf",i2.2)')isoil,nsrf
+!      WRITE(lunout,*)"PHYREDEM ",TRIM(nam)//TRIM(str)
+      nm=TRIM(nam)//TRIM(str)
+      lm=TRIM(lnam)//" du sol No. "//TRIM(str)
+      CALL put_field(nm,lm,field(:,isoil,nsrf))
+    END DO
+  END DO
+
+END SUBROUTINE put_field_srf2
+
+
+SUBROUTINE put_field_srf3(nam,lnam,field)
+
+  IMPLICIT NONE
+  CHARACTER(LEN=*),  INTENT(IN) :: nam, lnam
+  REAL,              INTENT(IN) :: field(:,:,:)
+  CHARACTER(LEN=256) :: nm, lm, str
+  DO nsrf = 1, SIZE(field,3)
+    WRITE(str, '(i2.2)') nsrf
+    nm=TRIM(nam)//TRIM(str)
+    lm=TRIM(lnam)//TRIM(str)
+    CALL put_field(nm,lm,field(:,1:klev+1,nsrf))
+  END DO
+
+END SUBROUTINE put_field_srf3
+
+
+END SUBROUTINE phyredem
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_cal_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_cal_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_cal_mod.F90	(revision 3330)
@@ -0,0 +1,81 @@
+! $Id:$
+MODULE phys_cal_mod
+! This module contains information on the calendar at the current time step
+
+  INTEGER,SAVE :: year_cur      ! current year
+!$OMP THREADPRIVATE(year_cur)
+  INTEGER,SAVE :: mth_cur       ! current month
+!$OMP THREADPRIVATE(mth_cur)
+  INTEGER,SAVE :: day_cur       ! current day
+!$OMP THREADPRIVATE(day_cur)
+  INTEGER,SAVE :: days_elapsed  ! number of whole days since start of the simulation 
+!$OMP THREADPRIVATE(days_elapsed)
+  INTEGER,SAVE :: mth_len       ! number of days in the current month
+!$OMP THREADPRIVATE(mth_len)
+  INTEGER,SAVE :: year_len      ! number of days in the current year
+!$OMP THREADPRIVATE(year_len)
+  REAL,SAVE    :: hour         ! seconds elapsed (in the current day) since midnight
+!$OMP THREADPRIVATE(hour)
+  REAL,SAVE    :: jD_1jan
+!$OMP THREADPRIVATE(jD_1jan)
+  REAL,SAVE    :: jH_1jan
+!$OMP THREADPRIVATE(jH_1jan)
+  REAL,SAVE    :: xjour
+!$OMP THREADPRIVATE(xjour)
+  REAL,SAVE    :: jD_cur  ! jour courant a l'appel de la physique (jour julien)
+!$OMP THREADPRIVATE(jD_cur)
+  REAL,SAVE    :: jH_cur  ! heure courante a l'appel de la physique (jour julien)
+!$OMP THREADPRIVATE(jH_cur)
+  REAL,SAVE    :: jD_ref  ! jour du demarage de la simulation (jour julien)
+!$OMP THREADPRIVATE(jD_ref)
+ CHARACTER (len=10) :: calend ! type of calendar to use
+                              ! (can be earth_360d, earth_365d or earth_366d)
+!$OMP THREADPRIVATE(calend)
+
+
+CONTAINS
+  
+  SUBROUTINE phys_cal_init(annee_ref,day_ref)
+  USE IOIPSL, ONLY:  ymds2ju
+  USE ioipsl_getin_p_mod, ONLY: getin_p
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: annee_ref
+    INTEGER,INTENT(IN) :: day_ref
+
+    ! Find out which type of calendar we are using
+    calend = 'earth_360d' ! default
+    CALL getin_p("calend",calend)
+     
+    CALL ymds2ju(annee_ref, 1, day_ref, 0., jD_ref)
+    jD_ref=INT(jD_ref)
+  
+  END SUBROUTINE  phys_cal_init
+
+  SUBROUTINE phys_cal_update(julian_date)
+    ! This subroutine updates the module saved variables.
+
+    USE IOIPSL, only: ju2ymds, ymds2ju, ioget_mon_len, ioget_year_len
+    IMPLICIT NONE
+    REAL, INTENT(IN) :: julian_date
+
+    jD_cur=INT(julian_date)
+    jH_cur=julian_date-jD_cur
+    
+    CALL ju2ymds(jD_cur+jH_cur, year_cur, mth_cur, day_cur, hour)
+    CALL ymds2ju(year_cur, 1, 1, 0., jD_1jan)
+    
+    jH_1jan = jD_1jan - int (jD_1jan)
+    jD_1jan = int (jD_1jan) 
+    xjour = jD_cur - jD_1jan
+    days_elapsed = jD_cur - jD_1jan
+
+    ! Get lenght of current month
+    mth_len = ioget_mon_len(year_cur,mth_cur)
+
+    ! Get length of current year
+    year_len = ioget_year_len(year_cur)
+
+  END SUBROUTINE phys_cal_update
+
+END MODULE phys_cal_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_local_var_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_local_var_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_local_var_mod.F90	(revision 3330)
@@ -0,0 +1,826 @@
+!
+! $Id$
+!
+      MODULE phys_local_var_mod
+! Variables locales pour effectuer les appels en serie
+!======================================================================
+!
+!
+!======================================================================
+! Declaration des variables
+
+      REAL, SAVE, ALLOCATABLE :: t_seri(:,:), q_seri(:,:)
+      !$OMP THREADPRIVATE(t_seri, q_seri)
+      REAL, SAVE, ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
+      !$OMP THREADPRIVATE(ql_seri,qs_seri)
+      REAL, SAVE, ALLOCATABLE :: u_seri(:,:), v_seri(:,:)
+      !$OMP THREADPRIVATE(u_seri, v_seri)
+      REAL, SAVE, ALLOCATABLE :: l_mixmin(:,:,:), l_mix(:,:,:)
+      !$OMP THREADPRIVATE(l_mixmin, l_mix)
+
+      REAL, SAVE, ALLOCATABLE :: tr_seri(:,:,:)
+      !$OMP THREADPRIVATE(tr_seri)
+      REAL, SAVE, ALLOCATABLE :: d_t_dyn(:,:), d_q_dyn(:,:)
+      !$OMP THREADPRIVATE(d_t_dyn, d_q_dyn)
+      REAL, SAVE, ALLOCATABLE :: d_ql_dyn(:,:), d_qs_dyn(:,:)
+      !$OMP THREADPRIVATE(d_ql_dyn, d_qs_dyn)
+      REAL, SAVE, ALLOCATABLE :: d_q_dyn2d(:), d_ql_dyn2d(:), d_qs_dyn2d(:)
+      !$OMP THREADPRIVATE(d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d)
+      REAL, SAVE, ALLOCATABLE :: d_u_dyn(:,:), d_v_dyn(:,:)
+      !$OMP THREADPRIVATE(d_u_dyn, d_v_dyn)
+!!!!
+      REAL, SAVE, ALLOCATABLE :: d_tr_dyn(:,:,:)
+      !$OMP THREADPRIVATE(d_tr_dyn)
+!!!!
+      REAL, SAVE, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:)
+      !$OMP THREADPRIVATE(d_t_con,d_q_con)
+      REAL, SAVE, ALLOCATABLE :: d_u_con(:,:),d_v_con(:,:)
+      !$OMP THREADPRIVATE(d_u_con,d_v_con)
+      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(:,:),d_qi_lsc(:,:)
+      !$OMP THREADPRIVATE(d_t_lsc,d_q_lsc,d_ql_lsc,d_qi_lsc)
+      REAL, SAVE, ALLOCATABLE :: d_t_lwr(:,:),d_t_lw0(:,:),d_t_swr(:,:),d_t_sw0(:,:)
+      !$OMP THREADPRIVATE(d_t_lwr,d_t_lw0,d_t_swr,d_t_sw0)
+      REAL, SAVE, ALLOCATABLE :: d_t_ajsb(:,:), d_q_ajsb(:,:)
+      !$OMP THREADPRIVATE(d_t_ajsb, d_q_ajsb)
+      REAL, SAVE, ALLOCATABLE :: d_t_ajs(:,:), d_q_ajs(:,:)
+      !$OMP THREADPRIVATE(d_t_ajs, d_q_ajs)
+      REAL, SAVE, ALLOCATABLE :: d_u_ajs(:,:), d_v_ajs(:,:)
+      !$OMP THREADPRIVATE(d_u_ajs, d_v_ajs)
+!nrlmd<
+      REAL, SAVE, ALLOCATABLE :: d_t_ajs_w(:,:), d_q_ajs_w(:,:)
+      !$OMP THREADPRIVATE(d_t_ajs_w, d_q_ajs_w)
+      REAL, SAVE, ALLOCATABLE :: d_t_ajs_x(:,:), d_q_ajs_x(:,:)
+      !$OMP THREADPRIVATE(d_t_ajs_x, d_q_ajs_x)
+!>nrlmd
+      REAL, SAVE, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:)
+      !$OMP THREADPRIVATE(d_t_eva,d_q_eva)
+      REAL, SAVE, ALLOCATABLE :: d_t_lscst(:,:),d_q_lscst(:,:)
+      !$OMP THREADPRIVATE(d_t_lscst,d_q_lscst)
+      REAL, SAVE, ALLOCATABLE :: d_t_lscth(:,:),d_q_lscth(:,:)
+      !$OMP THREADPRIVATE(d_t_lscth,d_q_lscth)
+      REAL, SAVE, ALLOCATABLE :: plul_th(:),plul_st(:)
+      !$OMP THREADPRIVATE(plul_th,plul_st)
+!tendances dues a oro et lif
+      REAL, SAVE, ALLOCATABLE :: d_t_oli(:,:)
+      !$OMP THREADPRIVATE(d_t_oli)
+      REAL, SAVE, ALLOCATABLE :: d_u_oli(:,:), d_v_oli(:,:)
+      !$OMP THREADPRIVATE(d_u_oli, d_v_oli)
+      REAL, SAVE, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:), d_t_diss(:,:)
+      !$OMP THREADPRIVATE( d_t_vdf, d_q_vdf,d_t_diss)
+      REAL, SAVE, ALLOCATABLE :: d_u_vdf(:,:), d_v_vdf(:,:)
+      !$OMP THREADPRIVATE(d_u_vdf, d_v_vdf)
+!nrlmd+jyg<
+      REAL, SAVE, ALLOCATABLE :: d_t_vdf_w(:,:), d_q_vdf_w(:,:)
+      !$OMP THREADPRIVATE( d_t_vdf_w, d_q_vdf_w)
+      REAL, SAVE, ALLOCATABLE :: d_t_vdf_x(:,:), d_q_vdf_x(:,:)
+      !$OMP THREADPRIVATE( d_t_vdf_x, d_q_vdf_x)
+!>nrlmd+jyg
+      REAL, SAVE, ALLOCATABLE :: d_t_oro(:,:)
+      !$OMP THREADPRIVATE(d_t_oro)
+      REAL, SAVE, ALLOCATABLE :: d_u_oro(:,:), d_v_oro(:,:)
+      !$OMP THREADPRIVATE(d_u_oro, d_v_oro)
+      REAL, SAVE, ALLOCATABLE :: d_t_lif(:,:)
+      !$OMP THREADPRIVATE(d_t_lif)
+      REAL, SAVE, ALLOCATABLE :: d_u_lif(:,:), d_v_lif(:,:)
+      !$OMP THREADPRIVATE(d_u_lif, d_v_lif)
+! Tendances Ondes de G non oro (runs strato).
+      REAL, SAVE, ALLOCATABLE :: du_gwd_hines(:,:)
+      !$OMP THREADPRIVATE(du_gwd_hines)
+      REAL, SAVE, ALLOCATABLE :: dv_gwd_hines(:,:)
+      !$OMP THREADPRIVATE(dv_gwd_hines)
+      REAL, SAVE, ALLOCATABLE :: dv_gwd_rando(:,:)
+      !$OMP THREADPRIVATE(dv_gwd_rando)
+      REAL, SAVE, ALLOCATABLE :: dv_gwd_front(:,:)
+      !$OMP THREADPRIVATE(dv_gwd_front)
+      REAL, SAVE, ALLOCATABLE :: east_gwstress(:,:)
+      !$OMP THREADPRIVATE(east_gwstress)
+      REAL, SAVE, ALLOCATABLE :: west_gwstress(:,:)
+      !$OMP THREADPRIVATE(west_gwstress)
+      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
+      REAL, SAVE, ALLOCATABLE :: d_t_ec(:,:)
+      !$OMP THREADPRIVATE(d_t_ec)
+      REAL, SAVE, ALLOCATABLE :: d_ts(:,:), d_tr(:,:,:)
+      !$OMP THREADPRIVATE(d_ts, d_tr)
+
+! diagnostique pour le rayonnement
+      REAL, SAVE, ALLOCATABLE :: topswad_aero(:),  solswad_aero(:)      ! diag
+      !$OMP THREADPRIVATE(topswad_aero,solswad_aero)
+      REAL, SAVE, ALLOCATABLE :: topswai_aero(:),  solswai_aero(:)      ! diag
+      !$OMP THREADPRIVATE(topswai_aero,solswai_aero)
+      REAL, SAVE, ALLOCATABLE :: topswad0_aero(:), solswad0_aero(:)     ! diag
+      !$OMP THREADPRIVATE(topswad0_aero,solswad0_aero)
+      REAL, SAVE, ALLOCATABLE :: topsw_aero(:,:),  solsw_aero(:,:)      ! diag
+      !$OMP THREADPRIVATE(topsw_aero,solsw_aero)
+      REAL, SAVE, ALLOCATABLE :: topsw0_aero(:,:), solsw0_aero(:,:)     ! diag
+      !$OMP THREADPRIVATE(topsw0_aero,solsw0_aero)
+      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
+      !$OMP THREADPRIVATE(ZLWFT0_i,ZSWFT0_i)
+      REAL, SAVE, ALLOCATABLE :: ZFLDN0(:,:),  ZFLUP0(:,:)      ! diag
+      !$OMP THREADPRIVATE(ZFLDN0,ZFLUP0)
+      REAL, SAVE, ALLOCATABLE :: ZFSDN0(:,:),  ZFSUP0(:,:)      ! diag
+      !$OMP THREADPRIVATE(ZFSDN0,ZFSUP0)
+!
+      REAL, SAVE, ALLOCATABLE :: stratomask(:,:) 
+      !$OMP THREADPRIVATE(stratomask) 
+      REAL, SAVE, ALLOCATABLE :: tausum_aero(:,:,:) 
+      !$OMP THREADPRIVATE(tausum_aero) 
+      REAL, SAVE, ALLOCATABLE :: tau3d_aero(:,:,:,:) 
+      !$OMP THREADPRIVATE(tau3d_aero) 
+      REAL, SAVE, ALLOCATABLE :: scdnc(:,:)
+      !$OMP THREADPRIVATE(scdnc)
+      REAL, SAVE, ALLOCATABLE :: cldncl(:)
+      !$OMP THREADPRIVATE(cldncl)
+      REAL, SAVE, ALLOCATABLE :: reffclwtop(:)
+      !$OMP THREADPRIVATE(reffclwtop)
+      REAL, SAVE, ALLOCATABLE :: lcc(:)
+      !$OMP THREADPRIVATE(lcc)
+      REAL, SAVE, ALLOCATABLE :: reffclws(:,:)
+      !$OMP THREADPRIVATE(reffclws)
+      REAL, SAVE, ALLOCATABLE :: reffclwc(:,:)
+      !$OMP THREADPRIVATE(reffclwc)
+      REAL, SAVE, ALLOCATABLE :: cldnvi(:) 
+      !$OMP THREADPRIVATE(cldnvi)
+      REAL, SAVE, ALLOCATABLE :: lcc3d(:,:)
+      !$OMP THREADPRIVATE(lcc3d)
+      REAL, SAVE, ALLOCATABLE :: lcc3dcon(:,:)
+      !$OMP THREADPRIVATE(lcc3dcon)
+      REAL, SAVE, ALLOCATABLE :: lcc3dstra(:,:)
+      !$OMP THREADPRIVATE(lcc3dstra)
+      REAL, SAVE, ALLOCATABLE :: od550aer(:) 
+      !$OMP THREADPRIVATE(od550aer) 
+      REAL, SAVE, ALLOCATABLE :: absvisaer(:) 
+      !$OMP THREADPRIVATE(absvisaer) 
+      REAL, SAVE, ALLOCATABLE :: od865aer(:) 
+      !$OMP THREADPRIVATE(od865aer) 
+      REAL, SAVE, ALLOCATABLE :: ec550aer(:,:) 
+      !$OMP THREADPRIVATE(ec550aer) 
+      REAL, SAVE, ALLOCATABLE :: od550lt1aer(:) 
+      !$OMP THREADPRIVATE(od550lt1aer) 
+      REAL, SAVE, ALLOCATABLE :: sconcso4(:) 
+      !$OMP THREADPRIVATE(sconcso4) 
+      REAL, SAVE, ALLOCATABLE :: sconcno3(:) 
+      !$OMP THREADPRIVATE(sconcno3) 
+      REAL, SAVE, ALLOCATABLE :: sconcoa(:) 
+      !$OMP THREADPRIVATE(sconcoa) 
+      REAL, SAVE, ALLOCATABLE :: sconcbc(:) 
+      !$OMP THREADPRIVATE(sconcbc) 
+      REAL, SAVE, ALLOCATABLE :: sconcss(:) 
+      !$OMP THREADPRIVATE(sconcss) 
+      REAL, SAVE, ALLOCATABLE :: sconcdust(:) 
+      !$OMP THREADPRIVATE(sconcdust) 
+      REAL, SAVE, ALLOCATABLE :: concso4(:,:) 
+      !$OMP THREADPRIVATE(concso4) 
+      REAL, SAVE, ALLOCATABLE :: concno3(:,:) 
+      !$OMP THREADPRIVATE(concno3) 
+      REAL, SAVE, ALLOCATABLE :: concoa(:,:) 
+      !$OMP THREADPRIVATE(concoa) 
+      REAL, SAVE, ALLOCATABLE :: concbc(:,:) 
+      !$OMP THREADPRIVATE(concbc) 
+      REAL, SAVE, ALLOCATABLE :: concss(:,:) 
+      !$OMP THREADPRIVATE(concss) 
+      REAL, SAVE, ALLOCATABLE :: concdust(:,:) 
+      !$OMP THREADPRIVATE(concdust) 
+      REAL, SAVE, ALLOCATABLE :: loadso4(:) 
+      !$OMP THREADPRIVATE(loadso4) 
+      REAL, SAVE, ALLOCATABLE :: loadoa(:) 
+      !$OMP THREADPRIVATE(loadoa) 
+      REAL, SAVE, ALLOCATABLE :: loadbc(:) 
+      !$OMP THREADPRIVATE(loadbc) 
+      REAL, SAVE, ALLOCATABLE :: loadss(:) 
+      !$OMP THREADPRIVATE(loadss) 
+      REAL, SAVE, ALLOCATABLE :: loaddust(:) 
+      !$OMP THREADPRIVATE(loaddust) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp1(:) 
+      !$OMP THREADPRIVATE(load_tmp1) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp2(:) 
+      !$OMP THREADPRIVATE(load_tmp2) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp3(:) 
+      !$OMP THREADPRIVATE(load_tmp3) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp4(:) 
+      !$OMP THREADPRIVATE(load_tmp4) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp5(:) 
+      !$OMP THREADPRIVATE(load_tmp5) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp6(:) 
+      !$OMP THREADPRIVATE(load_tmp6) 
+      REAL, SAVE, ALLOCATABLE :: load_tmp7(:) 
+      !$OMP THREADPRIVATE(load_tmp7) 
+
+!IM ajout variables CFMIP2/CMIP5
+      REAL,ALLOCATABLE,SAVE :: topswad_aerop(:), solswad_aerop(:)
+!$OMP THREADPRIVATE(topswad_aerop, solswad_aerop)
+      REAL,ALLOCATABLE,SAVE :: topswai_aerop(:), solswai_aerop(:)
+!$OMP THREADPRIVATE(topswai_aerop, solswai_aerop)
+      REAL,ALLOCATABLE,SAVE :: topswad0_aerop(:), solswad0_aerop(:)
+!$OMP THREADPRIVATE(topswad0_aerop, solswad0_aerop)
+      REAL,ALLOCATABLE,SAVE :: topsw_aerop(:,:), topsw0_aerop(:,:)  
+!$OMP THREADPRIVATE(topsw_aerop, topsw0_aerop)
+      REAL,ALLOCATABLE,SAVE :: solsw_aerop(:,:), solsw0_aerop(:,:)
+!$OMP THREADPRIVATE(solsw_aerop, solsw0_aerop)
+      REAL,ALLOCATABLE,SAVE :: topswcf_aerop(:,:), solswcf_aerop(:,:)
+!$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
+      REAL, SAVE, ALLOCATABLE :: tal1(:), pal1(:), pab1(:), pab2(:)
+!$OMP THREADPRIVATE(tal1, pal1, pab1, pab2)
+      REAL, SAVE, ALLOCATABLE :: ptstar(:), pt0(:), slp(:)
+!$OMP THREADPRIVATE(ptstar, pt0, slp)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sens, flwp, fiwp 
+!$OMP THREADPRIVATE(sens, flwp, fiwp)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: ale_wake, alp_wake, bils
+!$OMP THREADPRIVATE(ale_wake, alp_wake, bils)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragm, cdragh
+!$OMP THREADPRIVATE(cdragm, cdragh)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldh, cldl, cldm, cldq, cldt, qsat2m
+!$OMP THREADPRIVATE(cldh, cldl, cldm, cldq, cldt, qsat2m )
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldhjn, cldljn, cldmjn,cldtjn
+!$OMP THREADPRIVATE(cldhjn, cldljn, cldmjn, cldtjn)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt
+!$OMP THREADPRIVATE(JrNt)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, fder, plcl, plfc, prw, prlw, prsw
+!$OMP THREADPRIVATE(dthmin, evap, fder, plcl, plfc, prw, prlw, prsw)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zustar, zu10m, zv10m, rh2m
+!$OMP THREADPRIVATE(zustar, zu10m, zv10m, rh2m)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: s_lcl, s_pblh, s_pblt, s_therm
+!$OMP THREADPRIVATE(s_lcl, s_pblh, s_pblt, s_therm)
+!
+!nrlmd+jyg<
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: s_pblh_x, s_pblh_w
+!$OMP THREADPRIVATE(s_pblh_x, s_pblh_w)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: s_lcl_x, s_lcl_w
+!$OMP THREADPRIVATE(s_lcl_x, s_lcl_w)
+!>nrlmd+jyg
+!
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: slab_wfbils
+!$OMP THREADPRIVATE(slab_wfbils)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: tpot, tpote, ue, uq, ve, vq, zxffonte
+!$OMP THREADPRIVATE(tpot, tpote, ue, uq, ve, vq, zxffonte)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfqcalving
+!$OMP THREADPRIVATE(zxfqcalving)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat, zxtsol, snow_lsc, zxfqfonte
+!$OMP THREADPRIVATE(zxfluxlat, zxtsol, snow_lsc, zxfqfonte)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxrunofflic
+!$OMP THREADPRIVATE(zxrunofflic)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxqsurf, rain_lsc, rain_num
+!$OMP THREADPRIVATE(zxqsurf, rain_lsc, rain_num)
+!
+!jyg+nrlmd<
+!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+!                                                                          c
+!       Declarations liees a la couche limite differentiee w-x             c
+!                                                                          c
+!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sens_x, sens_w
+!$OMP THREADPRIVATE(sens_x, sens_w)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat_x, zxfluxlat_w
+!$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w)
+!jyg<
+!!! Entrées supplémentaires couche-limite
+!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_x, t_w
+!!!$OMP THREADPRIVATE(t_x, t_w)
+!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: q_x, q_w
+!!!$OMP THREADPRIVATE(q_x, q_w)
+!>jyg
+!!! Sorties ferret
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dtvdf_x, dtvdf_w
+!$OMP THREADPRIVATE(dtvdf_x, dtvdf_w)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dqvdf_x, dqvdf_w
+!$OMP THREADPRIVATE(dqvdf_x, dqvdf_w)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: undi_tke, wake_tke
+!$OMP THREADPRIVATE(undi_tke, wake_tke)
+! Variables supplémentaires dans physiq.F relative au splitting de la surface
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: pbl_tke_input
+!$OMP THREADPRIVATE(pbl_tke_input)
+! Entree supplementaire Thermiques :
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_therm, q_therm, u_therm, v_therm
+!$OMP THREADPRIVATE(t_therm, q_therm, u_therm, v_therm)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragh_x, cdragh_w
+!$OMP THREADPRIVATE(cdragh_x, cdragh_w)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragm_x, cdragm_w
+!$OMP THREADPRIVATE(cdragm_x, cdragm_w)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: kh, kh_x, kh_w
+!$OMP THREADPRIVATE(kh, kh_x, kh_w)
+!!!
+!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+!>jyg+nrlmd
+  !
+      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)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: ale_bl_stat,alp_bl_conv,alp_bl_det
+!$OMP THREADPRIVATE(ale_bl_stat,alp_bl_conv,alp_bl_det)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_fluct_m,alp_bl_fluct_tke
+!$OMP THREADPRIVATE(alp_bl_fluct_m,alp_bl_fluct_tke)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_stat, n2, s2
+!$OMP THREADPRIVATE(alp_bl_stat, n2, s2)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: proba_notrig, random_notrig
+!$OMP THREADPRIVATE(proba_notrig, random_notrig)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fsolsw, wfbils, wfbilo
+!$OMP THREADPRIVATE(fsolsw, wfbils, wfbilo)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)  :: t2m, fluxlat, fsollw,evap_pot
+!$OMP THREADPRIVATE(t2m, fluxlat, fsollw,evap_pot)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dnwd, dnwd0, upwd, omega
+!$OMP THREADPRIVATE(dnwd, dnwd0, upwd, omega)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: epmax_diag ! epmax_cape
+!$OMP THREADPRIVATE(epmax_diag)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ep ! epmax_cape
+!$OMP THREADPRIVATE(ep)
+!      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: coefh, coefm, lambda_th
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: lambda_th
+!$OMP THREADPRIVATE(lambda_th)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: cldemi, cldfra, cldtau, fiwc, fl, re, flwc
+!$OMP THREADPRIVATE(cldemi, cldfra, cldtau, fiwc, fl, re, flwc)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq, ref_ice, theta, zphi
+!$OMP THREADPRIVATE(ref_liq, ref_ice, theta, zphi)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq_pi, ref_ice_pi
+!$OMP THREADPRIVATE(ref_liq_pi, ref_ice_pi)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wake_omg, zx_rh
+!$OMP THREADPRIVATE(wake_omg, zx_rh)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: pmflxr, pmflxs, prfl, psfl, fraca
+!$OMP THREADPRIVATE(pmflxr, pmflxs, prfl, psfl, fraca)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: Vprecip, zw2
+!$OMP THREADPRIVATE(Vprecip, zw2)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: pmfd, pmfu
+!$OMP THREADPRIVATE(pmfd, pmfu)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: fluxt, fluxu, fluxv
+!$OMP THREADPRIVATE(fluxt, fluxu, fluxv)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: uwriteSTD, vwriteSTD, wwriteSTD
+!$OMP THREADPRIVATE(uwriteSTD, vwriteSTD, wwriteSTD)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: phiwriteSTD, qwriteSTD, twriteSTD, rhwriteSTD
+!$OMP THREADPRIVATE(phiwriteSTD, qwriteSTD, twriteSTD, rhwriteSTD)
+
+! ug et d'autres encore:
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wdtrainA, wdtrainM
+!$OMP THREADPRIVATE(wdtrainA, wdtrainM)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: beta_prec
+!$OMP THREADPRIVATE(beta_prec)
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb,rnebjn
+!$OMP THREADPRIVATE(rneb,rnebjn)
+
+! variables de sorties MM
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice
+      REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sissnow,runoff,albsol3_lic
+!$OMP THREADPRIVATE(zxsnow,snowhgt,qsnow,to_ice)
+!$OMP THREADPRIVATE(sissnow,runoff,albsol3_lic)
+
+CONTAINS
+
+!======================================================================
+SUBROUTINE phys_local_var_init
+USE dimphy
+USE infotrac_phy, ONLY : nbtr
+USE aero_mod
+USE indice_sol_mod
+USE phys_output_var_mod
+USE phys_state_var_mod
+
+IMPLICIT NONE
+      allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
+      allocate(u_seri(klon,klev),v_seri(klon,klev))
+      allocate(l_mixmin(klon,klev,nbsrf), l_mix(klon,klev,nbsrf))
+      l_mix(:,:,:)=0. ; l_mixmin(:,:,:)=0. ! doit etre initialse car pas toujours remplis
+
+      allocate(tr_seri(klon,klev,nbtr))
+      allocate(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
+      allocate(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev))
+      allocate(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon))
+      allocate(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
+      allocate(d_tr_dyn(klon,klev,nbtr))                   !RomP
+      allocate(d_t_con(klon,klev),d_q_con(klon,klev))
+      allocate(d_u_con(klon,klev),d_v_con(klon,klev))
+      allocate(d_t_wake(klon,klev),d_q_wake(klon,klev))
+      allocate(d_t_lsc(klon,klev),d_q_lsc(klon,klev))
+      allocate(d_t_lwr(klon,klev),d_t_lw0(klon,klev))
+      allocate(d_t_swr(klon,klev),d_t_sw0(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))
+!nrlmd<
+      allocate(d_t_ajs_w(klon,klev),d_q_ajs_w(klon,klev))
+      allocate(d_t_ajs_x(klon,klev),d_q_ajs_x(klon,klev))
+!>nrlmd
+      allocate(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
+      allocate(d_t_eva(klon,klev),d_q_eva(klon,klev))
+      allocate(d_t_lscst(klon,klev),d_q_lscst(klon,klev))
+      allocate(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
+      allocate(plul_st(klon),plul_th(klon))
+      allocate(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
+!nrlmd+jyg<
+      allocate(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
+      allocate(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
+!>nrlmd+jyg
+      allocate(d_u_vdf(klon,klev),d_v_vdf(klon,klev))
+      allocate(d_t_oli(klon,klev),d_t_oro(klon,klev))
+      allocate(d_u_oli(klon,klev),d_v_oli(klon,klev))
+      allocate(d_u_oro(klon,klev),d_v_oro(klon,klev))
+      allocate(d_t_lif(klon,klev),d_t_ec(klon,klev))
+      allocate(d_u_lif(klon,klev),d_v_lif(klon,klev))
+      allocate(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr))
+! Special RRTM
+      allocate(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1))
+      allocate(ZFLUP0(klon,klev+1),ZFSDN0(klon,klev+1),ZFSUP0(klon,klev+1))
+!
+      allocate(topswad_aero(klon), solswad_aero(klon))
+      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(du_gwd_hines(klon,klev),dv_gwd_hines(klon,klev))
+      allocate(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
+      allocate(east_gwstress(klon,klev),west_gwstress(klon,klev))
+      allocate(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)) 
+      allocate(stratomask(klon,klev))
+!--correction mini bug OB
+      allocate(tausum_aero(klon,nwave,naero_tot))
+      allocate(tau3d_aero(klon,klev,nwave,naero_tot)) 
+      allocate(scdnc(klon, klev))
+      allocate(cldncl(klon))
+      allocate(reffclwtop(klon))
+      allocate(lcc(klon))
+      allocate(reffclws(klon, klev))
+      allocate(reffclwc(klon, klev))
+      allocate(cldnvi(klon))
+      allocate(lcc3d(klon, klev))
+      allocate(lcc3dcon(klon, klev))
+      allocate(lcc3dstra(klon, klev))
+      allocate(od550aer(klon))
+      allocate(od865aer(klon))
+      allocate(absvisaer(klon))
+      allocate(ec550aer(klon,klev))
+      allocate(od550lt1aer(klon))
+      allocate(sconcso4(klon))
+      allocate(sconcno3(klon))
+      allocate(sconcoa(klon))
+      allocate(sconcbc(klon))
+      allocate(sconcss(klon))
+      allocate(sconcdust(klon))
+      allocate(concso4(klon,klev))
+      allocate(concno3(klon,klev))
+      allocate(concoa(klon,klev))
+      allocate(concbc(klon,klev))
+      allocate(concss(klon,klev))
+      allocate(concdust(klon,klev))
+      allocate(loadso4(klon))
+      allocate(loadoa(klon))
+      allocate(loadbc(klon))
+      allocate(loadss(klon))
+      allocate(loaddust(klon))
+      allocate(load_tmp1(klon))
+      allocate(load_tmp2(klon))
+      allocate(load_tmp3(klon))
+      allocate(load_tmp4(klon))
+      allocate(load_tmp5(klon))
+      allocate(load_tmp6(klon))
+      allocate(load_tmp7(klon))
+
+!IM ajout variables CFMIP2/CMIP5
+      ALLOCATE(topswad_aerop(klon), solswad_aerop(klon))
+      ALLOCATE(topswai_aerop(klon), solswai_aerop(klon))
+      ALLOCATE(topswad0_aerop(klon), solswad0_aerop(klon))
+      ALLOCATE(topsw_aerop(klon,naero_grp), topsw0_aerop(klon,naero_grp))
+      ALLOCATE(solsw_aerop(klon,naero_grp), solsw0_aerop(klon,naero_grp))
+      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
+
+      ALLOCATE(tal1(klon), pal1(klon), pab1(klon), pab2(klon))
+      ALLOCATE(ptstar(klon),pt0(klon),slp(klon))
+      ALLOCATE(ale_wake(klon), alp_wake(klon), bils(klon))
+      ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon))
+      ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon))
+      ALLOCATE(cldhjn(klon), cldljn(klon), cldmjn(klon), cldtjn(klon))
+      ALLOCATE(JrNt(klon))
+      ALLOCATE(dthmin(klon), evap(klon), fder(klon), plcl(klon), plfc(klon))
+      ALLOCATE(prw(klon), prlw(klon), prsw(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
+      ALLOCATE(s_lcl(klon))
+      ALLOCATE(s_pblh(klon), s_pblt(klon), s_therm(klon))
+!
+!nrlmd+jyg<
+      ALLOCATE(s_pblh_x(klon), s_pblh_w(klon))
+      ALLOCATE(s_lcl_x(klon), s_lcl_w(klon))
+!>nrlmd+jyg
+!
+      ALLOCATE(slab_wfbils(klon), tpot(klon), tpote(klon), ue(klon))
+      ALLOCATE(uq(klon), ve(klon), vq(klon), zxffonte(klon))
+      ALLOCATE(zxfqcalving(klon), zxfluxlat(klon))
+      ALLOCATE(zxtsol(klon), snow_lsc(klon), zxfqfonte(klon), zxqsurf(klon))
+      ALLOCATE(zxrunofflic(klon))
+      ALLOCATE(rain_lsc(klon))
+      ALLOCATE(rain_num(klon))
+!
+      ALLOCATE(sens_x(klon), sens_w(klon))
+      ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon))
+!jyg<
+!!      ALLOCATE(t_x(klon,klev), t_w(klon,klev))
+!!      ALLOCATE(q_x(klon,klev), q_w(klon,klev))
+!>jyg
+      ALLOCATE(dtvdf_x(klon,klev), dtvdf_w(klon,klev))
+      ALLOCATE(dqvdf_x(klon,klev), dqvdf_w(klon,klev))
+      ALLOCATE(undi_tke(klon,klev), wake_tke(klon,klev))
+      ALLOCATE(pbl_tke_input(klon,klev+1,nbsrf))
+      ALLOCATE(t_therm(klon,klev), q_therm(klon,klev),u_therm(klon,klev), v_therm(klon,klev))
+      ALLOCATE(cdragh_x(klon), cdragh_w(klon))
+      ALLOCATE(cdragm_x(klon), cdragm_w(klon))
+      ALLOCATE(kh(klon), kh_x(klon), kh_w(klon))
+!
+      ALLOCATE(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))
+      ALLOCATE(alp_bl_fluct_m(klon), alp_bl_fluct_tke(klon))
+      ALLOCATE(alp_bl_stat(klon), n2(klon), s2(klon))
+      ALLOCATE(proba_notrig(klon), random_notrig(klon))
+
+      ALLOCATE(dnwd(klon, klev), dnwd0(klon, klev))
+!      ALLOCATE(upwd(klon, klev), omega(klon, klev), coefh(klon, klev))
+      ALLOCATE(upwd(klon, klev), omega(klon, klev))
+      ALLOCATE(epmax_diag(klon)) ! epmax_cape
+      ALLOCATE(ep(klon,klev)) ! epmax_cape
+!      ALLOCATE(coefm(klon, klev), lambda_th(klon, klev), cldemi(klon, klev))
+      ALLOCATE(lambda_th(klon, klev), cldemi(klon, klev))
+      ALLOCATE(cldfra(klon, klev), cldtau(klon, klev), fiwc(klon, klev))
+      ALLOCATE(fl(klon, klev), re(klon, klev), flwc(klon, klev))
+      ALLOCATE(ref_liq(klon, klev), ref_ice(klon, klev), theta(klon, klev))
+      ALLOCATE(ref_liq_pi(klon, klev), ref_ice_pi(klon, klev))
+      ALLOCATE(zphi(klon, klev), wake_omg(klon, klev), zx_rh(klon, klev))
+      ALLOCATE(pmfd(klon, klev), pmfu(klon, klev))
+
+      ALLOCATE(t2m(klon, nbsrf), fluxlat(klon, nbsrf))
+      ALLOCATE(fsollw(klon, nbsrf))
+      ALLOCATE(fsolsw(klon, nbsrf), wfbils(klon, nbsrf), wfbilo(klon, nbsrf))
+      ALLOCATE(evap_pot(klon, nbsrf))
+
+      ALLOCATE(pmflxr(klon, klev+1), pmflxs(klon, klev+1), prfl(klon, klev+1))
+      ALLOCATE(psfl(klon, klev+1), fraca(klon, klev+1), Vprecip(klon, klev+1))
+      ALLOCATE(zw2(klon, klev+1))
+
+      ALLOCATE(fluxu(klon, klev, nbsrf), fluxv(klon, klev, nbsrf))
+      ALLOCATE(fluxt(klon, klev, nbsrf))
+
+      ALLOCATE(uwriteSTD(klon,nlevSTD,nfiles), vwriteSTD(klon,nlevSTD,nfiles))
+      ALLOCATE(wwriteSTD(klon,nlevSTD,nfiles), phiwriteSTD(klon,nlevSTD,nfiles))
+      ALLOCATE(qwriteSTD(klon,nlevSTD,nfiles), twriteSTD(klon,nlevSTD,nfiles))
+      ALLOCATE(rhwriteSTD(klon,nlevSTD,nfiles))
+
+! ug et d'autres encore:
+      ALLOCATE(wdtrainA(klon,klev),wdtrainM(klon,klev))
+      ALLOCATE(beta_prec(klon,klev))
+      ALLOCATE(rneb(klon,klev),rnebjn(klon,klev))
+
+
+      ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon))
+      ALLOCATE (sissnow(klon),runoff(klon),albsol3_lic(klon))
+
+
+
+END SUBROUTINE phys_local_var_init
+
+!======================================================================
+SUBROUTINE phys_local_var_end
+USE dimphy
+USE indice_sol_mod
+IMPLICIT NONE
+      deallocate(t_seri,q_seri,ql_seri,qs_seri)
+      deallocate(u_seri,v_seri)
+      deallocate(l_mixmin,l_mix)
+
+      deallocate(tr_seri)
+      deallocate(d_t_dyn,d_q_dyn)
+      deallocate(d_ql_dyn,d_qs_dyn)
+      deallocate(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d)
+      deallocate(d_u_dyn,d_v_dyn)
+      deallocate(d_tr_dyn)                      !RomP
+      deallocate(d_t_con,d_q_con)
+      deallocate(d_u_con,d_v_con)
+      deallocate(d_t_wake,d_q_wake)
+      deallocate(d_t_lsc,d_q_lsc)
+      deallocate(d_t_lwr,d_t_lw0)
+      deallocate(d_t_swr,d_t_sw0)
+      deallocate(d_ql_lsc,d_qi_lsc)
+      deallocate(d_t_ajsb,d_q_ajsb)
+      deallocate(d_t_ajs,d_q_ajs)
+!nrlmd<
+      deallocate(d_t_ajs_w,d_q_ajs_w)
+      deallocate(d_t_ajs_x,d_q_ajs_x)
+!>nrlmd
+      deallocate(d_u_ajs,d_v_ajs)
+      deallocate(d_t_eva,d_q_eva)
+      deallocate(d_t_lscst,d_q_lscst)
+      deallocate(d_t_lscth,d_q_lscth)
+      deallocate(plul_st,plul_th)
+      deallocate(d_t_vdf,d_q_vdf,d_t_diss)
+!nrlmd+jyg<
+      deallocate(d_t_vdf_w,d_q_vdf_w)
+      deallocate(d_t_vdf_x,d_q_vdf_x)
+!>nrlmd+jyg
+      deallocate(d_u_vdf,d_v_vdf)
+      deallocate(d_t_oli,d_t_oro)
+      deallocate(d_u_oli,d_v_oli)
+      deallocate(d_u_oro,d_v_oro)
+      deallocate(d_t_lif,d_t_ec)
+      deallocate(d_u_lif,d_v_lif)
+      deallocate(d_ts, d_tr)
+      deallocate(topswad_aero,solswad_aero)
+      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)
+      deallocate(topswcf_aero,solswcf_aero)
+      deallocate(stratomask) 
+      deallocate(tausum_aero) 
+      deallocate(tau3d_aero) 
+      deallocate(scdnc)
+      deallocate(cldncl)
+      deallocate(reffclwtop)
+      deallocate(lcc)
+      deallocate(reffclws)
+      deallocate(reffclwc)
+      deallocate(cldnvi)
+      deallocate(lcc3d)
+      deallocate(lcc3dcon)
+      deallocate(lcc3dstra)
+      deallocate(od550aer)
+      deallocate(od865aer)
+      deallocate(absvisaer)
+      deallocate(ec550aer)
+      deallocate(od550lt1aer)
+      deallocate(sconcso4) 
+      deallocate(sconcno3) 
+      deallocate(sconcoa) 
+      deallocate(sconcbc) 
+      deallocate(sconcss) 
+      deallocate(sconcdust) 
+      deallocate(concso4) 
+      deallocate(concno3) 
+      deallocate(concoa) 
+      deallocate(concbc) 
+      deallocate(concss) 
+      deallocate(concdust) 
+      deallocate(loadso4) 
+      deallocate(loadoa) 
+      deallocate(loadbc) 
+      deallocate(loadss) 
+      deallocate(loaddust) 
+      deallocate(load_tmp1)
+      deallocate(load_tmp2)
+      deallocate(load_tmp3)
+      deallocate(load_tmp4)
+      deallocate(load_tmp5)
+      deallocate(load_tmp6)
+      deallocate(load_tmp7)
+      deallocate(du_gwd_hines,dv_gwd_hines,d_t_hin)
+      deallocate(d_q_ch4)
+      deallocate(dv_gwd_rando,dv_gwd_front)
+      deallocate(east_gwstress,west_gwstress)
+
+!IM ajout variables CFMIP2/CMIP5
+      deallocate(topswad_aerop, solswad_aerop)
+      deallocate(topswai_aerop, solswai_aerop)
+      deallocate(topswad0_aerop, solswad0_aerop)
+      deallocate(topsw_aerop, topsw0_aerop)
+      deallocate(solsw_aerop, solsw0_aerop)
+      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
+      DEALLOCATE(tal1, pal1, pab1, pab2)
+      DEALLOCATE(ptstar, pt0, slp)
+      DEALLOCATE(ale_wake, alp_wake, bils)
+      DEALLOCATE(cdragm, cdragh, cldh, cldl)
+      DEALLOCATE(cldm, cldq, cldt, qsat2m)
+      DEALLOCATE(cldljn, cldmjn, cldhjn, cldtjn, JrNt)
+      DEALLOCATE(dthmin, evap, fder, plcl, plfc)
+      DEALLOCATE(prw, prlw, prsw, zustar, zu10m, zv10m, rh2m, s_lcl)
+      DEALLOCATE(s_pblh, s_pblt, s_therm)
+!
+!nrlmd+jyg<
+      DEALLOCATE(s_pblh_x, s_pblh_w)
+      DEALLOCATE(s_lcl_x, s_lcl_w)
+!>nrlmd+jyg
+!
+      DEALLOCATE(slab_wfbils, tpot, tpote, ue)
+      DEALLOCATE(uq, ve, vq, zxffonte)
+      DEALLOCATE(zxfqcalving, zxfluxlat)
+      DEALLOCATE(zxrunofflic)
+      DEALLOCATE(zxtsol, snow_lsc, zxfqfonte, zxqsurf)
+      DEALLOCATE(rain_lsc)
+      DEALLOCATE(rain_num)
+!
+      DEALLOCATE(sens_x, sens_w)
+      DEALLOCATE(zxfluxlat_x, zxfluxlat_w)
+!jyg<
+!!      DEALLOCATE(t_x, t_w)
+!!      DEALLOCATE(q_x, q_w)
+!>jyg
+      DEALLOCATE(dtvdf_x, dtvdf_w)
+      DEALLOCATE(dqvdf_x, dqvdf_w)
+      DEALLOCATE(undi_tke, wake_tke)
+      DEALLOCATE(pbl_tke_input)
+      DEALLOCATE(t_therm, q_therm, u_therm, v_therm)
+      DEALLOCATE(cdragh_x, cdragh_w)
+      DEALLOCATE(cdragm_x, cdragm_w)
+      DEALLOCATE(kh, kh_x, kh_w)
+!
+      DEALLOCATE(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)
+      DEALLOCATE(alp_bl_fluct_m,alp_bl_fluct_tke)
+      DEALLOCATE(alp_bl_stat, n2, s2)
+      DEALLOCATE(proba_notrig, random_notrig)
+
+      DEALLOCATE(dnwd, dnwd0)
+!      DEALLOCATE(upwd, omega, coefh)
+      DEALLOCATE(upwd, omega)
+      DEALLOCATE(epmax_diag)
+      DEALLOCATE(ep)
+!      DEALLOCATE(coefm, lambda_th, cldemi)
+      DEALLOCATE(lambda_th, cldemi)
+      DEALLOCATE(cldfra, cldtau, fiwc)
+      DEALLOCATE(fl, re, flwc)
+      DEALLOCATE(ref_liq, ref_ice, theta)
+      DEALLOCATE(ref_liq_pi, ref_ice_pi)
+      DEALLOCATE(zphi, wake_omg, zx_rh)
+      DEALLOCATE(pmfd, pmfu)
+
+      DEALLOCATE(t2m, fluxlat)
+      DEALLOCATE(fsollw, evap_pot)
+      DEALLOCATE(fsolsw, wfbils, wfbilo)
+
+      DEALLOCATE(pmflxr, pmflxs, prfl)
+      DEALLOCATE(psfl, fraca, Vprecip)
+      DEALLOCATE(zw2)
+
+      DEALLOCATE(fluxu, fluxv)
+      DEALLOCATE(fluxt)
+
+      DEALLOCATE(uwriteSTD, vwriteSTD)
+      DEALLOCATE(wwriteSTD, phiwriteSTD)
+      DEALLOCATE(qwriteSTD, twriteSTD, rhwriteSTD)
+
+! ug et d'autres encore:
+      DEALLOCATE(wdtrainA, wdtrainM)
+      DEALLOCATE(beta_prec)
+      DEALLOCATE(rneb)
+      DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
+
+END SUBROUTINE phys_local_var_end
+
+END MODULE phys_local_var_mod 
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_ctrlout_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_ctrlout_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_ctrlout_mod.F90	(revision 3330)
@@ -0,0 +1,1660 @@
+MODULE phys_output_ctrlout_mod
+
+  USE phys_output_var_mod
+  USE indice_sol_mod
+  USE aero_mod
+
+
+
+  IMPLICIT NONE
+      INTEGER, PRIVATE :: i
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!! Definition pour chaque variable du niveau d ecriture dans chaque fichier,
+!! de son nom, de sa description, de son unité et du type d'écriture.
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!/ histmth, histday, histhf, histins /),'!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!  CHARACTER(len=20), dimension(nfiles) :: TEF = type_ecri_files
+
+!!! Comosantes de la coordonnee sigma-hybride
+!!! Ap et Bp
+  TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 /), &
+    'Ap', '', '', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 /), &
+    'Bp', '', '', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11 /), &
+    'Alt', '', '', (/ ('', i=1, 9) /))
+
+!!! 1D
+  TYPE(ctrl_out), SAVE :: o_phis = ctrl_out((/ 1, 1, 10, 5, 1, 1, 11, 11, 11 /), &
+    'phis', 'Surface geop.height', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_aire = ctrl_out((/ 1, 1, 10,  10, 1, 1, 11, 11, 11 /), &
+    'aire', 'Grid area', '-', (/ 'once', 'once', 'once', 'once', 'once', 'once', &
+                                     'once', 'once', 'once' /))
+  TYPE(ctrl_out), SAVE :: o_contfracATM = ctrl_out((/ 10, 1,  1, 10, 10, 10, 11, 11, 11 /), &
+    'contfracATM', '% sfce ter+lic', '-', &
+       (/ 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once', 'once' /)) 
+  TYPE(ctrl_out), SAVE :: o_contfracOR = ctrl_out((/ 10, 1,  10, 10, 10, 10, 11, 11, 11 /), &
+    'contfracOR', '% sfce terre OR', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_aireTER = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'aireTER', 'Grid area CONT', '-', (/ ('', i=1, 9) /))
+
+!!! 2D
+
+! Marine
+
+  TYPE(ctrl_out), SAVE :: o_alt_tropo = ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'alt_tropo','Tropopause pressure','hPa',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_prop_hc = ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_prop_hc','Proportion of high clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_prop_hist = &
+  ctrl_out((/1,1,1,1,1,1,10,10,10/),&
+  'map_prop_hist','Proportion of high ice semi-transp clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_emis_hc = &
+  ctrl_out((/1,1,1,1,1,1,10,10,10/),&
+  'map_emis_hc','Emissivity of high clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_iwp_hc = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_iwp_hc','Ice water path of high clouds','g/m2',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_deltaz_hc = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_deltaz_hc','geom thickness of high clouds','m',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_pcld_hc = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_pcld_hc','cloud pressure of high clouds','hPa',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+   TYPE(ctrl_out), SAVE :: o_map_tcld_hc = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_tcld_hc','cloud temperature of high clouds','K',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+
+  TYPE(ctrl_out), SAVE :: o_map_emis_hist = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_emis_hist','Emissivity of high ice st clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_iwp_hist = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_iwp_hist','Ice water path of high ice st clouds','g/m2',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_deltaz_hist = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_deltaz_hist','geom thickness of high ice st clouds','m',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_rad_hist = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_rad_hist','ice crystals radius in high ice st clouds','µm',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+
+ TYPE(ctrl_out), SAVE :: o_map_emis_Cb = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_emis_Cb','Emissivity of high Cb clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+ TYPE(ctrl_out), SAVE :: o_map_pcld_Cb = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_pcld_Cb','cloud pressure of high Cb clouds','hPa',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+ TYPE(ctrl_out), SAVE :: o_map_tcld_Cb = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_tcld_Cb','cloud temperature of high Cb clouds','K',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+
+ TYPE(ctrl_out), SAVE :: o_map_emis_Anv = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_emis_Anv','Emissivity of high Anv clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+ TYPE(ctrl_out), SAVE :: o_map_pcld_Anv = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_pcld_Anv','cloud pressure of high Anv clouds','hPa',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_tcld_Anv = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_tcld_Anv','cloud temperature of high Anv clouds','K',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_emis_ThCi = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_emis_ThCi','Emissivity of high ThCi clouds',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_pcld_ThCi = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_pcld_ThCi','cloud pressure of high ThCi clouds','hPa',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_tcld_ThCi = &
+  ctrl_out((/10,10,1,10,10,10,10,10,10/),&
+  'map_tcld_ThCi','cloud temperature of high ThCi clouds','K',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+   TYPE(ctrl_out), SAVE :: o_map_ntot = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_ntot','total AIRS cloud fraction',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_hc = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_hc','high clouds AIRS cloud fraction',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_hist = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_hist','high clouds ice st AIRS cloud fraction',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+  TYPE(ctrl_out), SAVE :: o_map_Cb = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_Cb','high clouds Cb AIRS cloud fraction',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+ TYPE(ctrl_out), SAVE :: o_map_ThCi = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_ThCi','high clouds ThCi AIRS cloud fraction',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+ TYPE(ctrl_out), SAVE :: o_map_Anv = &
+  ctrl_out((/1,1,1,1,1,10,10,10,10/),&
+  'map_Anv','high clouds Anv AIRS cloud fraction',' ',&
+   (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)",&
+    "inst(X)", "inst(X)","inst(X)" /))
+
+
+! Fin Marine
+
+  TYPE(ctrl_out), SAVE :: o_flat = ctrl_out((/ 5, 1, 10, 10, 5, 10, 11, 11, 11 /), &
+    'flat', 'Latent heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ptstar = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'ptstar', 'Air Surface Temperature', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pt0 = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'pt0', 'Standard Air Surface Temperature', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_slp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'slp', 'Sea Level Pressure', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tsol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
+    'tsol', 'Surface Temperature', 'K', (/ ('', i=1, 9) /))
+  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((/ 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((/ 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 = (/ &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    't2m_ter', "Temp 2m "//clnsurf(1), "K", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    't2m_lic', "Temp 2m "//clnsurf(2), "K", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    't2m_oce', "Temp 2m "//clnsurf(3), "K", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    't2m_sic', "Temp 2m "//clnsurf(4), "K", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_gusts = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'gusts', 'surface gustiness', 'm2/s2', (/ ('', i=1, 9) /))
+
+  TYPE(ctrl_out), SAVE :: o_wind10m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'wind10m', '10-m wind speed', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wind10max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wind10max', '10m wind speed max', 'm/s', &
+    (/ "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_sicf = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sicf', 'Sea-ice fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_q2m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
+    'q2m', 'Specific humidity 2m', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ustar = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 /), &
+    'ustar', 'Friction velocity', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_u10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
+    'u10m', 'Vent zonal 10m', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_v10m = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
+    'v10m', 'Vent meridien 10m', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_psol = ctrl_out((/ 1, 1, 1, 5, 10, 10, 11, 11, 11 /), &
+    'psol', 'Surface Pressure', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_qsurf = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'qsurf', 'Surface Air humidity', 'kg/kg', (/ ('', i=1, 9) /))
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_ustar_srf     = (/ &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'ustar_ter', &
+      "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'ustar_lic', &
+      "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'ustar_oce', &
+      "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'ustar_sic', &
+      "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(5) :: o_wstar         = (/ &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'wstar_ter', &
+      "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'wstar_lic', &
+      "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'wstar_oce', &
+      "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'wstar_sic', &
+      "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11 /),'wstar', &
+      "w* convective velocity "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10m_srf     = (/ &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'u10m_ter', &
+      "Vent Zonal 10m "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'u10m_lic', &
+      "Vent Zonal 10m "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'u10m_oce', &
+      "Vent Zonal 10m "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'u10m_sic', &
+      "Vent Zonal 10m "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_v10m_srf     = (/ &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'v10m_ter', &
+      "Vent meredien 10m "//clnsurf(1),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'v10m_lic', &
+      "Vent meredien 10m "//clnsurf(2),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'v10m_oce', &
+      "Vent meredien 10m "//clnsurf(3),"m/s", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 6, 10, 10, 10, 10, 11, 11, 11 /),'v10m_sic', &
+      "Vent meredien 10m "//clnsurf(4),"m/s", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_qsol = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'qsol', 'Soil watter content', 'mm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ndayrain = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ndayrain', 'Number of dayrain(liq+sol)', '-', &
+      (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)" /))
+  TYPE(ctrl_out), SAVE :: o_precip = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11 /), &
+    'precip', 'Precip Totale liq+sol', 'kg/(s*m2)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_plul = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'plul', 'Large-scale Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_plun = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'plun', 'Numerical Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pluc = ctrl_out((/ 1, 1, 1, 10, 5, 10, 11, 11, 11 /), &
+    'pluc', 'Convective Precip.', 'kg/(s*m2)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_snow = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 /), &
+    'snow', 'Snow fall', 'kg/(s*m2)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_evap = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'evap', 'Evaporat', 'kg/(s*m2)', (/ ('', i=1, 9) /))
+
+  TYPE(ctrl_out), SAVE :: o_sens_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'sens_rain_oce', 'Sensible heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sens_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'sens_rain_sic', 'Sensible heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sens_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'sens_snow_oce', 'Sensible heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sens_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'sens_snow_sic', 'Sensible heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lat_prec_liq_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'lat_rain_oce', 'Latent heat flux of liquid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lat_prec_liq_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'lat_rain_sic', 'Latent heat flux of liquid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lat_prec_sol_oce = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'lat_snow_oce', 'Latent heat flux of solid prec. over ocean', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lat_prec_sol_sic = ctrl_out((/ 5, 5, 10, 10, 5, 10, 11, 11, 11 /), &
+    'lat_snow_sic', 'Latent heat flux of solid prec. over seaice', 'W/m2', (/ ('', i=1, 9) /))
+
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_evap_srf     = (/ &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'evap_ter', &
+      "evaporation at surface "//clnsurf(1),"kg/(s*m2)", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'evap_lic', &
+      "evaporation at surface "//clnsurf(2),"kg/(s*m2)", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'evap_oce', &
+      "evaporation at surface "//clnsurf(3),"kg/(s*m2)", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'evap_sic', &
+      "evaporation at surface "//clnsurf(4),"kg/(s*m2)", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_msnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'msnow', 'Surface snow amount', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fsnow = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fsnow', 'Surface snow area fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tops = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tops', 'Solar rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tops0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tops0', 'CS Solar rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_topl = ctrl_out((/ 1, 1, 10, 5, 10, 10, 11, 11, 11 /), &
+    'topl', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_topl0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'topl0', 'IR rad. at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWupTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWupTOA', 'SWup at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWupTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWupTOAclr', 'SWup clear sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdnTOA = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWdnTOA', 'SWdn at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdnTOAclr = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWdnTOAclr', 'SWdn clear sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_nettop = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+    'nettop', 'Net dn radiatif flux at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWup200', 'SWup at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWup200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWup200clr', 'SWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWdn200', 'SWdn at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdn200clr = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWdn200clr', 'SWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+
+  ! arajouter
+  !  type(ctrl_out),save :: o_LWupTOA     = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /),'LWupTOA', &
+  !    (/ ('', i=1, 9) /))
+  !  type(ctrl_out),save :: o_LWupTOAclr  = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /),'LWupTOAclr', &
+  !    (/ ('', i=1, 9) /))
+  !  type(ctrl_out),save :: o_LWdnTOA     = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /),'LWdnTOA', &
+  !    (/ ('', i=1, 9) /))
+  !  type(ctrl_out),save :: o_LWdnTOAclr  = ctrl_out((/ 1, 4, 10, 10, 10, 10, 11, 11, 11 /),'LWdnTOAclr', &
+  !    (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWup200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'LWup200', 'LWup at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWup200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'LWup200clr', 'LWup clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWdn200 = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'LWdn200', 'LWdn at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWdn200clr = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'LWdn200clr', 'LWdn clear sky at 200mb', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sols = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sols', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sols0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sols0', 'Solar rad. at surf.', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_soll = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'soll', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_soll0 = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'soll0', 'IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_radsol = ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 /), &
+    'radsol', 'Rayonnement au sol', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'SWupSFC', 'SWup at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'SWupSFCclr', 'SWup clear sky at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdnSFC = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 /), &
+    'SWdnSFC', 'SWdn at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'SWdnSFCclr', 'SWdn clear sky at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWupSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'LWupSFC', 'Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWupSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'LWupSFCclr', 'CS Upwd. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWdnSFC = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'LWdnSFC', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWdnSFCclr = ctrl_out((/ 1, 4, 10, 10, 5, 10, 11, 11, 11 /), &
+    'LWdnSFCclr', 'Down. CS IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_tke = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_tke', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_diss = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_diss', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_ec = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_ec', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_ech = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_ech', 'Surf. total heat flux correction', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_kinetic = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_kinetic', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_enthalp = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_enthalp', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_bils_latent = ctrl_out((/ 1, 2, 10, 5, 10, 10, 11, 11, 11 /), &
+    'bils_latent', 'Surf. total heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sens = ctrl_out((/ 1, 1, 10, 10, 5, 10, 11, 11, 11 /), &
+    'sens', 'Sensible heat flux', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fder = ctrl_out((/ 1, 2, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fder', 'Heat flux derivation', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ffonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ffonte', 'Thermal flux for snow melting', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fqcalving = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fqcalving', 'Ice Calving', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fqfonte = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fqfonte', 'Land ice melt', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_runofflic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'runofflic', 'Land ice melt to ocean', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_taux = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'taux', 'Zonal wind stress', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tauy = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tauy', 'Meridional wind stress', 'Pa', (/ ('', i=1, 9) /))
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_taux_srf = (/           &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'taux_ter',             &
+      "Zonal wind stress"//clnsurf(1), "Pa", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'taux_lic',             &
+      "Zonal wind stress"//clnsurf(2), "Pa", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'taux_oce',             &
+      "Zonal wind stress"//clnsurf(3), "Pa", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'taux_sic',             &
+      "Zonal wind stress"//clnsurf(4), "Pa", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tauy_srf     = (/             &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tauy_ter',                   &
+      "Meridional wind stress "//clnsurf(1),"Pa", (/ ('', i=1, 9) /)),  &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tauy_lic',                   &
+      "Meridional wind stress "//clnsurf(2),"Pa", (/ ('', i=1, 9) /)),  &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tauy_oce',                   &
+      "Meridional wind stress "//clnsurf(3),"Pa", (/ ('', i=1, 9) /)),  &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tauy_sic',                   &
+      "Meridional wind stress "//clnsurf(4),"Pa", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_pourc_srf    = (/ &
+      ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 /),'pourc_ter',      &
+      "% "//clnsurf(1),"%", (/ ('', i=1, 9) /)),            &
+      ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 /),'pourc_lic',      &
+      "% "//clnsurf(2),"%", (/ ('', i=1, 9) /)),            &
+      ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 /),'pourc_oce',      &
+      "% "//clnsurf(3),"%", (/ ('', i=1, 9) /)),            &
+      ctrl_out((/ 1, 7, 10, 10, 10, 10, 11, 11, 11 /),'pourc_sic',      &
+      "% "//clnsurf(4),"%", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_fract_srf    = (/ &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'fract_ter',      &
+      "Fraction "//clnsurf(1),"1", (/ ('', i=1, 9) /)),     &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'fract_lic',      &
+      "Fraction "//clnsurf(2),"1", (/ ('', i=1, 9) /)),     &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'fract_oce',      &
+      "Fraction "//clnsurf(3),"1", (/ ('', i=1, 9) /)),     &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'fract_sic',      &
+      "Fraction "//clnsurf(4),"1", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tsol_srf     = (/ &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tsol_ter',       &
+      "Temperature "//clnsurf(1),"K", (/ ('', i=1, 9) /)),  &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tsol_lic',       &
+      "Temperature "//clnsurf(2),"K", (/ ('', i=1, 9) /)),  &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tsol_oce',       &
+      "Temperature "//clnsurf(3),"K", (/ ('', i=1, 9) /)),  &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'tsol_sic',       &
+      "Temperature "//clnsurf(4),"K", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_evappot_srf  = (/ &
+      ctrl_out((/ 1, 6, 10, 10, 10, 10, 11, 11, 11 /),'evappot_ter',    &
+      "Temperature"//clnsurf(1),"K", (/ ('', i=1, 9) /)),   &
+      ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /),'evappot_lic',    &
+      "Temperature"//clnsurf(2),"K", (/ ('', i=1, 9) /)),   &
+      ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /),'evappot_oce',    &
+      "Temperature"//clnsurf(3),"K", (/ ('', i=1, 9) /)),   &
+      ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /),'evappot_sic',    &
+      "Temperature"//clnsurf(4),"K", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_sens_srf     = (/          &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'sens_ter',                 &
+      "Sensible heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'sens_lic',                 &
+      "Sensible heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'sens_oce',                 &
+      "Sensible heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'sens_sic',                 &
+      "Sensible heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_lat_srf      = (/        &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'lat_ter',                &
+      "Latent heat flux "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'lat_lic',                &
+      "Latent heat flux "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'lat_oce',                &
+      "Latent heat flux "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 6, 10, 7, 10, 10, 11, 11, 11 /),'lat_sic',                &
+      "Latent heat flux "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_flw_srf      = (/ &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'flw_ter',       &
+      "LW "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)),        &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'flw_lic',       &
+      "LW "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)),        &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'flw_oce',       &
+      "LW "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)),        &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'flw_sic',       &
+      "LW "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_fsw_srf      = (/ &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'fsw_ter',       &
+      "SW "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)),        &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'fsw_lic',       &
+      "SW "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)),        &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'fsw_oce',       &
+      "SW "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)),        &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'fsw_sic',       &
+      "SW "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wbils_srf    = (/ &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbils_ter',     &
+      "Bilan sol "//clnsurf(1),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbils_lic',     &
+      "Bilan sol "//clnsurf(2),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbils_oce',     &
+      "Bilan sol "//clnsurf(3),"W/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbils_sic',     &
+      "Bilan sol "//clnsurf(4),"W/m2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_wbilo_srf    = (/      &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbilo_ter',          &
+      "Bilan eau "//clnsurf(1),"kg/(m2*s)", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbilo_lic',          &
+      "Bilan eau "//clnsurf(2),"kg/(m2*s)", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbilo_oce',          &
+      "Bilan eau "//clnsurf(3),"kg/(m2*s)", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'wbilo_sic',          &
+      "Bilan eau "//clnsurf(4),"kg/(m2*s)", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_cdrm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cdrm', 'Momentum drag coef.', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cdrh = ctrl_out((/ 1, 10, 10, 7, 10, 10, 11, 11, 11 /), &
+    'cdrh', 'Heat drag coef.', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldl = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldl', 'Low-level cloudiness', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldm = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldm', 'Mid-level cloudiness', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldh = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldh', 'High-level cloudiness', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldt = ctrl_out((/ 1, 1, 2, 10, 5, 10, 11, 11, 11 /), &
+    'cldt', 'Total cloudiness', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_JrNt = ctrl_out((/ 1, 1, 10, 7, 10, 10, 11, 11, 11 /), &
+    'JrNt', '1 if Day 0 if Night', '-', (/ ('', i=1, 9) /))                                                                                  
+  TYPE(ctrl_out), SAVE :: o_cldhjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldhjn', 'High-level cloudiness Day', '-', (/ ('', i=1, 9) /))                                                                                   
+  TYPE(ctrl_out), SAVE :: o_cldmjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11/), &      
+    'cldmjn', 'Mid-level cloudiness day', '-', (/ ('', i=1, 9) /))                                                           
+  TYPE(ctrl_out), SAVE :: o_cldljn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11/), &       
+    'cldljn', 'Low-level cloudiness day', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldtjn = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11/), &     
+    'cldtjn', 'Total cloudiness day', '-', (/ ('', i=1, 9) /))
+                                                       
+  TYPE(ctrl_out), SAVE :: o_cldq = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldq', 'Cloud liquid water path', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lwp', 'Cloud water path', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_iwp = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'iwp', 'Cloud ice water path', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ue = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ue', 'Zonal energy transport', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ve = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    've', 'Merid energy transport', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_uq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'uq', 'Zonal humidity transport', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_vq = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'vq', 'Merid humidity transport', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cape = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cape', 'Conv avlbl pot ener', 'J/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pbase = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'pbase', 'Cld base pressure', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ptop = ctrl_out((/ 1, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ptop', 'Cld top pressure', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fbase = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fbase', 'Cld base mass flux', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_plcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'plcl', 'Lifting Condensation Level', 'hPa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_plfc = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'plfc', 'Level of Free Convection', 'hPa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wbeff = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wbeff', 'Conv. updraft velocity at LFC (<100)', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_prw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'prw', 'Precipitable water', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_prlw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'prlw', 'Precipitable liquid water', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_prsw = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'prsw', 'Precipitable solid water', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_s_pblh = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    's_pblh', 'Boundary Layer Height', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_s_pblt = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    's_pblt', 't at Boundary Layer Height', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_s_lcl = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    's_lcl', 'Condensation level', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_s_therm = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    's_therm', 'Exces du thermique', 'K', (/ ('', i=1, 9) /))
+  !IM : Les champs suivants (s_capCL, s_oliqCL, s_cteiCL, s_trmb1, s_trmb2, s_trmb3) ne sont pas definis dans HBTM.F
+  ! type(ctrl_out),save :: o_s_capCL      = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'s_capCL', &
+!    (/ ('', i=1, 9) /))
+  ! type(ctrl_out),save :: o_s_oliqCL     = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'s_oliqCL', &
+!    (/ ('', i=1, 9) /))
+  ! type(ctrl_out),save :: o_s_cteiCL     = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'s_cteiCL', &
+!    (/ ('', i=1, 9) /))
+  ! type(ctrl_out),save :: o_s_trmb1      = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'s_trmb1', &
+!    (/ ('', i=1, 9) /))
+  ! type(ctrl_out),save :: o_s_trmb2      = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'s_trmb2', &
+!    (/ ('', i=1, 9) /))
+  ! type(ctrl_out),save :: o_s_trmb3      = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /),'s_trmb3', &
+    !(/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_slab_bils = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'slab_bils', 'flux atmos - slab ponderes foce', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_slab_bilg = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'slab_bilg', 'flux glace - slab ponderes fsic', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_slab_qflux = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'slab_qflux', 'Correction flux slab', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tslab = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tslab', 'Temperature ocean slab', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_slab_tice = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'slab_tice', 'Temperature banquise slab', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_slab_sic = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'seaice', 'Epaisseur banquise slab', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ale_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'ale_bl', 'ALE BL', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp_bl = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_bl', 'ALP BL', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ale_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'ale_wk', 'ALE WK', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp_wk = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_wk', 'ALP WK', 'W/m2', (/ ('', i=1, 9) /))
+!!!
+!nrlmd+jyg<
+  type(ctrl_out),save :: o_dtvdf_x        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtvdf_x', ' dtvdf off_wake','K/s', (/ ('', i=1, 9) /))
+  type(ctrl_out),save :: o_dtvdf_w        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtvdf_w', ' dtvdf within_wake','K/s', (/ ('', i=1, 9) /))
+  type(ctrl_out),save :: o_dqvdf_x        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqvdf_x', ' dqvdf off_wake','kg/kg/s', (/ ('', i=1, 9) /))
+  type(ctrl_out),save :: o_dqvdf_w        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqvdf_w', ' dqvdf within_wake','kg/kg/s', (/ ('', i=1, 9) /))
+!!
+  type(ctrl_out),save :: o_sens_x        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'sens_x', 'sens off_wake', 'W/m2', (/ ('', i=1, 9) /))
+  type(ctrl_out),save :: o_sens_w        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'sens_w', 'sens within_wake', 'W/m2', (/ ('', i=1, 9) /))                                                                                   
+  type(ctrl_out),save :: o_flat_x        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'flat_x', 'flat off_wake', 'W/m2', (/ ('', i=1, 9) /))                                                                                   
+  type(ctrl_out),save :: o_flat_w        = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'flat_w', 'flat within_wake', 'W/m2', (/ ('', i=1, 9) /))
+!!
+  type(ctrl_out),save :: o_delta_tsurf    = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'delta_tsurf', 'Temperature difference (w-x)', 'K', (/ ('', i=1, 9) /))                                                                               
+  type(ctrl_out),save :: o_cdragh_x       = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'cdragh_x', 'cdragh off-wake', '', (/ ('', i=1, 9) /))
+  type(ctrl_out),save :: o_cdragh_w       = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'cdragh_w', 'cdragh within-wake', '', (/ ('', i=1, 9) /))                                                                                  
+  type(ctrl_out),save :: o_cdragm_x       = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'cdragm_x', 'cdragm off-wake', '', (/ ('', i=1, 9) /))
+  type(ctrl_out),save :: o_cdragm_w       = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'cdragm_w', 'cdrgam within-wake', '', (/ ('', i=1, 9) /))                                                                                  
+  type(ctrl_out),save :: o_kh             = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'kh', 'Kh', 'kg/s/m2', (/ ('', i=1, 9) /))                                                                                        
+  type(ctrl_out),save :: o_kh_x           = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'kh_x', 'Kh off-wake', 'kg/s/m2', (/ ('', i=1, 9) /))                                                                                      
+  type(ctrl_out),save :: o_kh_w           = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+'kh_w', 'Kh within-wake', 'kg/s/m2', (/ ('', i=1, 9) /))
+!>nrlmd+jyg
+!!!
+  TYPE(ctrl_out), SAVE :: o_ale = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'ale', 'ALE', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp', 'ALP', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cin = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'cin', 'Convective INhibition', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wape = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'wape', '', 'm2/s2', (/ ('', i=1, 9) /))
+
+!!! nrlmd le 10/04/2012
+
+!-------Spectre de thermiques de type 2 au LCL
+  TYPE(ctrl_out), SAVE :: o_n2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), &
+    'n2', 'Nombre de panaches de type 2', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_s2 = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), &
+    's2', 'Surface moyenne des panaches de type 2', 'm2', (/ ('', i=1, 9) /))
+                                                                             
+!-------Déclenchement stochastique                                           
+  TYPE(ctrl_out), SAVE :: o_proba_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), &
+    'proba_notrig', &
+                         'Probabilite de non-declenchement', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_random_notrig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), &
+    'random_notrig', &
+                         'Tirage aleatoire de non-declenchement', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ale_bl_stat = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), &
+    'ale_bl_stat', &
+       'ALE_BL_STAT', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ale_bl_trig = ctrl_out((/ 1, 6, 6, 6, 10, 10, 11, 11, 11 /), &
+    'ale_bl_trig', &
+       'ALE_BL_STAT + Condition S>Sthreshold', 'm2/s2', (/ ('', i=1, 9) /))
+
+!-------Fermeture statistique
+  TYPE(ctrl_out), SAVE :: o_alp_bl_det = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_bl_det', 'ALP_BL_DET', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_m = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_bl_fluct_m', 'ALP_BL_FLUCT_M', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp_bl_fluct_tke = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_bl_fluct_tke', 'ALP_BL_FLUCT_TKE', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp_bl_conv = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_bl_conv', 'ALP_BL_CONV', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alp_bl_stat = ctrl_out((/ 1, 1, 1, 10, 10, 10, 11, 11, 11 /), &
+    'alp_bl_stat', 'ALP_BL_STAT', 'W/m2', (/ ('', i=1, 9) /))
+
+!!! fin nrlmd le 10/04/2012
+
+  ! Champs interpolles sur des niveaux de pression ??? a faire correctement
+
+  TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_uSTDlevs     = (/                    &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u850', "Zonal wind 850hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u700', "Zonal wind 700hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u500', "Zonal wind 500hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u200', "Zonal wind 200hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u100', "Zonal wind 100hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u50', "Zonal wind 50hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'u10', "Zonal wind 10hPa", "m/s",     &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_vSTDlevs     = (/                     &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v850', "Meridional wind 850hPa", "m/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)),  &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v700', "Meridional wind 700hPa", "m/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)),  &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v500', "Meridional wind 500hPa", "m/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)),  &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v200', "Meridional wind 200hPa", "m/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)),  &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v100', "Meridional wind 100hPa", "m/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)),  &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v50', "Meridional wind 50hPa", "m/s",  &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)),  &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'v10', "Meridional wind 10hPa", "m/s",  &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_wSTDlevs     = (/                    &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w850', "Vertical wind 850hPa", "Pa/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w700', "Vertical wind 700hPa", "Pa/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w500', "Vertical wind 500hPa", "Pa/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w200', "Vertical wind 200hPa", "Pa/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w100', "Vertical wind 100hPa", "Pa/s", &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w50', "Vertical wind 50hPa", "Pa/s",  &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'w10', "Vertical wind 10hPa", "Pa/s",  &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_tSTDlevs     = (/                    &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t850', "Temperature 850hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t700', "Temperature 700hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t500', "Temperature 500hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t200', "Temperature 200hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t100', "Temperature 100hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t50',  "Temperature 50hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'t10',  "Temperature 10hPa", "K",      &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_qSTDlevs     = (/                             &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q850', "Specific humidity 850hPa", &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q700', "Specific humidity 700hPa", &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q500', "Specific humidity 500hPa", &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q200', "Specific humidity 200hPa", &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q100', "Specific humidity 100hPa", &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q50', "Specific humidity 50hPa",  &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'q10', "Specific humidity 10hPa", &
+      "kg/kg", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(7) :: o_zSTDlevs   = (/                           &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z850', "Geopotential height 850hPa",        &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z700', "Geopotential height 700hPa",        &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z500', "Geopotential height 500hPa",        &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z200', "Geopotential height 200hPa",        &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z100', "Geopotential height 100hPa",        &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z50', "Geopotential height 50hPa",         &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)), &
+      ctrl_out((/ 1, 7, 7, 10, 10, 10, 11, 11, 11 /),'z10', "Geopotential height 10hPa",         &
+      "m", (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_t_oce_sic = ctrl_out((/ 1, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    't_oce_sic', 'Temp mixte oce-sic', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_weakinv = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'weakinv', 'Weak inversion', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dthmin = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dthmin', 'dTheta mini', 'K/m', (/ ('', i=1, 9) /))
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10_srf      = (/ &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_ter', "", "", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_lic', "", "", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_oce', "", "", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'u10_sic', "", "", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_v10_srf      = (/ &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_ter', "", "", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_lic', "", "", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_oce', "", "", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'v10_sic', "", "", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_cldtau = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldtau', 'Cloud optical thickness', '1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldemi = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldemi', 'Cloud optical emissivity', '1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rh2m = ctrl_out((/ 5, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rh2m', 'Relative humidity at 2m', '%', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rh2m_min = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rh2m_min', 'Min Relative humidity at 2m', '%',                        &
+      (/ '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_rh2m_max = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rh2m_max', 'Max Relative humidity at 2m', '%',                        &
+      (/ '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_qsat2m = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'qsat2m', 'Saturant humidity at 2m', '%', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tpot = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tpot', 'Surface air potential temperature', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tpote = ctrl_out((/ 10, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tpote', &
+      'Surface air equivalent potential temperature', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tke = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tke ', 'TKE', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tke_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tke_max', 'TKE max', 'm2/s2',                                        &
+      (/ '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, DIMENSION(4) :: o_tke_srf      = (/             &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_ter',       &
+      "Max Turb. Kinetic Energy "//clnsurf(1),"m2/s2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_lic',       &
+      "Max Turb. Kinetic Energy "//clnsurf(2),"m2/s2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_oce',       &
+      "Max Turb. Kinetic Energy "//clnsurf(3),"m2/s2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_sic',       &
+      "Max Turb. Kinetic Energy "//clnsurf(4),"m2/s2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mixmin      = (/             &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_ter',       &
+      "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_lic',       &
+      "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_oce',       &
+      "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_sic',       &
+      "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mix      = (/             &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_ter',       &
+      "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_lic',       &
+      "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_oce',       &
+      "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_sic',       &
+      "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_max_srf  = (/                          &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_max_ter',                &
+      "Max Turb. Kinetic Energy "//clnsurf(1),"-",                                   &
+      (/ "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)" /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_max_lic',                &
+      "Max Turb. Kinetic Energy "//clnsurf(2),"-",                                   &
+      (/ "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)" /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_max_oce',                &
+      "Max Turb. Kinetic Energy "//clnsurf(3),"-",                                   &
+      (/ "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)" /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_max_sic',                &
+      "Max Turb. Kinetic Energy "//clnsurf(4),"-",                                   &
+      (/ "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, DIMENSION(4) :: o_dltpbltke_srf      = (/             &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'dltpbltke_ter',       &
+      "TKE difference (w - x) "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'dltpbltke_lic',       &
+      "TKE difference (w - x) "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'dltpbltke_oce',       &
+      "TKE difference (w - x) "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'dltpbltke_sic',       &
+      "TKE difference (w - x) "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_kz = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'kz', 'Kz melange', 'm2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_kz_max = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'kz_max', 'Kz melange max', 'm2/s',                                  &
+      (/ '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_SWnetOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWnetOR', 'Sfce net SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_SWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'SWdownOR', 'Sfce incident SW radiation OR', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_LWdownOR = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'LWdownOR', 'Sfce incident LW radiation OR', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_snowl = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'snowl', 'Solid Large-scale Precip.', 'kg/(m2*s)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cape_max = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cape_max', 'CAPE max.', 'J/kg',                                       &
+      (/ "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_solldown = ctrl_out((/ 10, 1, 10, 10, 10, 10, 11, 11, 11 /), &
+    'solldown', 'Down. IR rad. at surface', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtsvdfo = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtsvdfo', 'Boundary-layer dTs(o)', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtsvdft = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtsvdft', 'Boundary-layer dTs(t)', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtsvdfg = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtsvdfg', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtsvdfi = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtsvdfi', 'Boundary-layer dTs(g)', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_z0m = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'z0m', 'roughness length, momentum', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_z0h = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'z0h', 'roughness length, enthalpy', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_topswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'topswad', 'ADE at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_topswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'topswad0', 'ADE clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_topswai = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'topswai', 'AIE at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_solswad = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'solswad', 'ADE at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_solswad0 = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'solswad0', 'ADE clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  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 :: 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(3),"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(4),"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(5),"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(6),"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(7),"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(8),"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(9),"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(10),"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(11),"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(12),"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(13),"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(14),"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 /), &
+    'od550aer', 'Total aerosol optical depth at 550nm', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_od865aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'od865aer', 'Total aerosol optical depth at 870nm', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_absvisaer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'absvisaer', 'Absorption aerosol visible optical depth', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_od550lt1aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'od550lt1aer', 'Fine mode optical depth', '-', (/ ('', i=1, 9) /))
+  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) /))
+  TYPE(ctrl_out), SAVE :: o_sconcbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sconcbc', 'Surface Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sconcss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sconcss', 'Surface Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sconcdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'sconcdust', 'Surface Concentration of Dust ', 'kg/m3', (/ ('', i=1, 9) /))
+  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) /))
+  TYPE(ctrl_out), SAVE :: o_concbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'concbc', 'Concentration of Black Carbon ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_concss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'concss', 'Concentration of Sea Salt ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_concdust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'concdust', 'Concentration of Dust ', 'kg/m3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_loadso4 = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'loadso4', 'Column Load of Sulfate ', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_loadoa = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'loadoa', 'Column Load of Organic Aerosol ', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_loadbc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'loadbc', 'Column Load of Black Carbon ', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_loadss = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'loadss', 'Column Load of Sea Salt ', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_loaddust = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'loaddust', 'Column Load of Dust ', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoaas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoaas_nat', 'Natural aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfas_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfas_nat', 'Natural aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoacs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoacs_nat', 'Natural aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfcs_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfcs_nat', 'Natural aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoaas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoaas_ant', 'Anthropogenic aerosol radiative forcing all-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfas_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfas_ant', 'Anthropogenic aerosol radiative forcing all-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoacs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoacs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfcs_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfcs_ant', 'Anthropogenic aerosol radiative forcing clear-sky at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoacf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoacf_nat', 'Natural aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfcf_nat = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfcf_nat', 'Natural aerosol impact on cloud radiative forcing  at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoacf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoacf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfcf_ant = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfcf_ant', 'Anthropogenic aerosol impact on cloud radiative forcing at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swtoacf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swtoacf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at TOA', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_swsrfcf_zero = ctrl_out((/ 4, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'swsrfcf_zero', 'Cloud radiative forcing (allsky-clearsky fluxes) at SRF', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldncl = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldncl', 'CDNC at top of liquid water cloud', 'm-3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_reffclwtop = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'reffclwtop', 'Droplet effective radius at top of liquid water cloud', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_cldnvi = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'cldnvi', 'Column Integrated Cloud Droplet Number', 'm-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lcc = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lcc', 'Cloud liquid fraction at top of cloud', '1', (/ ('', i=1, 9) /))
+
+
+!!!!!!!!!!!!!!!!!!!!!! 3D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
+  TYPE(ctrl_out), SAVE :: o_ec550aer = ctrl_out((/ 2, 6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ec550aer', 'Extinction at 550nm', 'm^-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lwcon', 'Cloud liquid water content', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_iwcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'iwcon', 'Cloud ice water content', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_temp = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 /), &
+    'temp', 'Air temperature', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_theta = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 /), &
+    'theta', 'Potential air temperature', 'K', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ovap = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 /), &
+    'ovap', 'Specific humidity', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ovapinit = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ovapinit', 'Specific humidity (begin of timestep)', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_oliq = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 /), &
+    'oliq', 'Liquid water', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ocond = ctrl_out((/ 2, 3, 4, 10, 10, 10, 11, 11, 11 /), &
+    'ocond', 'Condensed water', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wvapp = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wvapp', '', '', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_geop = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 /), &
+    'geop', 'Geopotential height', 'm2/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_vitu = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11 /), &
+    'vitu', 'Zonal wind', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_vitv = ctrl_out((/ 2, 3, 4, 6, 10, 10, 11, 11, 11 /), &
+    'vitv', 'Meridional wind', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_vitw = ctrl_out((/ 2, 3, 10, 6, 10, 10, 11, 11, 11 /), &
+    'vitw', 'Vertical wind', 'Pa/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pres = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 /), &
+    'pres', 'Air pressure', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_paprs = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 /), &
+    'paprs', 'Air pressure Inter-Couches', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_mass = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 /), &
+    'mass', 'Masse Couches', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_zfull = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 /), &
+    'zfull', 'Altitude of full pressure levels', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_zhalf = ctrl_out((/ 2, 3, 10, 10, 10, 10, 11, 11, 11 /), &
+    'zhalf', 'Altitude of half pressure levels', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rneb = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rneb', 'Cloud fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rnebjn = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11,11 /), &      
+    'rnebjn', 'Cloud fraction in day', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rnebcon = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rnebcon', 'Convective Cloud Fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rnebls = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rnebls', 'LS Cloud fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rhum = ctrl_out((/ 2, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rhum', 'Relative humidity', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ozone = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ozone', 'Ozone mole fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ozone_light = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ozone_daylight', 'Daylight ozone mole fraction', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_upwd = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'upwd', 'saturated updraft', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_epmax_diag = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'epmax', 'epmax en fn cape', 'su', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ep = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ep', 'ep', 'su', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtphy', 'Physics dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqphy', 'Physics dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqphy2d', 'Physics dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlphy', 'Physics dQL', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlphy2d', 'Physics dQL', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqsphy = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqsphy', 'Physics dQS', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqsphy2d = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqsphy2d', 'Physics dQS', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pr_con_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'pr_con_l', 'Convective precipitation lic', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pr_con_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'pr_con_i', 'Convective precipitation ice', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pr_lsc_l = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'pr_lsc_l', 'Large scale precipitation lic', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_pr_lsc_i = ctrl_out((/ 2, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'pr_lsc_i', 'Large scale precipitation ice', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_re = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    're', 'Cloud droplet effective radius', 'um', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fl = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fl', 'Denominator of Cloud droplet effective radius', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_scdnc = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'scdnc', 'Cloud droplet number concentration', 'm-3', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_reffclws = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'reffclws', 'Stratiform Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_reffclwc = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'reffclwc', 'Convective Cloud Droplet Effective Radius (aerosol diags.)', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lcc3d = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lcc3d', 'Cloud liquid fraction', '1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lcc3dcon = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lcc3dcon', 'Convective cloud liquid fraction', '1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lcc3dstra = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lcc3dstra', 'Stratiform cloud liquid fraction', '1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_stratomask = ctrl_out((/ 2,  6, 10, 10, 10, 10, 11, 11, 11 /), &
+    'stratomask', 'Stratospheric fraction', '1', (/ ('', i=1, 9) /))
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_albe_srf     = (/ &
+      ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_ter', "Albedo VIS surf. "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_lic', "Albedo VIS surf. "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_oce', "Albedo VIS surf. "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 7, 10, 7, 10, 10, 11, 11, 11 /),'albe_sic', "Albedo VIS surf. "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_ages_srf     = (/ &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_ter', "Snow age", "day", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_lic', "Snow age", "day", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_oce',"Snow age", "day", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'ages_sic',"Snow age", "day", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_snow_srf     = (/ &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_ter', "Snow", "kg/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_lic', "Snow", "kg/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_oce',"Snow", "kg/m2", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /),'snow_sic',"Snow", "kg/m2", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_z0m_srf     = (/ &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0m_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_z0h_srf     = (/ &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_ter', "Surface roughness "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_lic', "Surface roughness "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_oce', "Surface roughness "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &
+      ctrl_out((/ 3, 6, 10, 10, 10, 10, 11, 11, 11 /),'z0h_sic', "Surface roughness "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)
+
+  TYPE(ctrl_out), SAVE :: o_alb1 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'alb1', 'Surface VIS albedo', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_alb2 = ctrl_out((/ 3, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'alb2', 'Surface Near IR albedo', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_clwcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'clwcon', 'Convective Cloud Liquid water content', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_Ma = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'Ma', 'undilute adiab updraft', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dnwd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dnwd', 'saturated downdraft', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dnwd0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dnwd0', 'unsat. downdraft', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_mc = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'mc', 'Convective mass flux', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ftime_con = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ftime_con', 'Fraction of time convection Occurs', ' ',                 &
+      (/ 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)', 'inst(X)' /))
+  TYPE(ctrl_out), SAVE :: o_dtdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtdyn', 'Dynamics dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqdyn', 'Dynamics dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqdyn2d', 'Dynamics dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqldyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqldyn', 'Dynamics dQL', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqldyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqldyn2d', 'Dynamics dQL', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqsdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqsdyn', 'Dynamics dQS', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqsdyn2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqsdyn2d', 'Dynamics dQS', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dudyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dudyn', 'Dynamics dU', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dvdyn = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dvdyn', 'Dynamics dV', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtcon', 'Convection dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ducon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ducon', 'Convection du', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dvcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dvcon', 'Convection dv', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqcon = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqcon', 'Convection dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqcon2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqcon2d', 'Convection dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtwak', 'Wake dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqwak = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqwak', 'Wake dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqwak2d = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqwak2d', 'Wake dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wake_h = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wake_h', 'wake_h', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wake_s = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wake_s', 'wake_s', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wake_deltat = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wake_deltat', 'wake_deltat', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wake_deltaq = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wake_deltaq', 'wake_deltaq', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wake_omg = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'wake_omg', 'wake_omg', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wdtrainA = ctrl_out((/ 4, 5, 10,  4, 10, 10, 11, 11, 110 /), &
+    'wdtrainA', 'precipitation from AA', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_wdtrainM = ctrl_out((/ 4, 5, 10,  4, 10, 10, 11, 11, 110 /), &
+    'wdtrainM', 'precipitation from mixture', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_Vprecip = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'Vprecip', 'precipitation vertical profile', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ftd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ftd', 'tend temp due aux descentes precip', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_fqd = ctrl_out((/ 4, 5, 10, 10, 10, 10, 11, 11, 11 /), &
+    'fqd', 'tend vap eau due aux descentes precip', '-', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlsc', 'Condensation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlschr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlschr', 'Large-scale condensational heating rate', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlsc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlsc', 'Condensation dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlsc2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlsc2d', 'Condensation dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_beta_prec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'beta_prec', 'LS Conversion rate to prec', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtvdf', 'Boundary-layer dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtdis = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtdis', 'TKE dissipation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqvdf', 'Boundary-layer dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqvdf2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqvdf2d', 'Boundary-layer dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dteva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dteva', 'Reevaporation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqeva = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqeva', 'Reevaporation dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqeva2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqeva2d', 'Reevaporation dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+
+!!!!!!!!!!!!!!!! Specifique thermiques
+  TYPE(ctrl_out), SAVE :: o_dqlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlscth', 'dQ therm.', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlscth2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlscth2d', 'dQ therm.', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlscst', 'dQ strat.', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqlscst2d = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqlscst2d', 'dQ strat.', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlscth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlscth', 'dQ therm.', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlscst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlscst', 'dQ strat.', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_plulth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'plulth', 'Rainfall therm.', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_plulst = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'plulst', 'Rainfall strat.', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lmaxth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lmaxth', "Upper level thermals", "", (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ptconvth = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ptconvth', 'POINTS CONVECTIFS therm.', ' ', (/ ('', i=1, 9) /))
+!!!!!!!!!!!!!!!!!!!!!!!!
+  TYPE(ctrl_out), SAVE :: o_ptconv = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ptconv', 'POINTS CONVECTIFS', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ratqs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ratqs', 'RATQS', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtthe', 'Thermal dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_duthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'duthe', 'Thermal du', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dvthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dvthe', 'Thermal dv', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_f_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'f_th', 'Thermal plume mass flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_e_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'e_th', 'Thermal plume entrainment', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_w_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'w_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_lambda_th = ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'lambda_th', 'Thermal plume vertical velocity', 'm/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ftime_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ftime_th', 'Fraction of time Shallow convection occurs', ' ', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_q_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'q_th', 'Thermal plume total humidity', 'kg/kg', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_a_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'a_th', "Thermal plume fraction", "", (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_d_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'd_th', 'Thermal plume detrainment', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_f0_th = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'f0_th', 'Thermal closure mass flux', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_zmax_th = ctrl_out((/ 4,  4,  4,  5, 10, 10, 11, 11, 11 /), &
+    'zmax_th', 'Thermal plume height', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqthe = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqthe', 'Thermal dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqthe2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqthe2d', 'Thermal dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtajs', 'Dry adjust. dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqajs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqajs', 'Dry adjust. dQ', '(kg/kg)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dqajs2d = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dqajs2d', 'Dry adjust. dQ', '(kg/m2)/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtswr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtswr', 'SW radiation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtsw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtsw0', 'CS SW radiation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlwr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlwr', 'LW radiation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlw0 = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlw0', 'CS LW radiation dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtec = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtec', 'Cinetic dissip dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_duvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'duvdf', 'Boundary-layer dU', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dvvdf = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dvvdf', 'Boundary-layer dV', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_duoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'duoro', 'Orography dU', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dvoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dvoro', 'Orography dV', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dulif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dulif', 'Orography dU', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dvlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dvlif', 'Orography dV', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_du_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'du_gwd_hines', 'Hines GWD dU', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dv_gwd_hines = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dv_gwd_hines', 'Hines GWD dV', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_du_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'du_gwd_front', 'Fronts GWD dU', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dv_gwd_front = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dv_gwd_front', 'Fronts GWD dV', 'm/s2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_east_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'east_gwstress', 'Eastward GW Stress', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_west_gwstress = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'west_gwstress', 'Westward GW Stress', 'Pa', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtoro = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtoro', 'Orography dT', 'K/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dtlif = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dtlif', 'Orography dT', 'K/s', (/ ('', i=1, 9) /))
+  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 &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'du_gwd_rando', &
+       "Random gravity waves dU/dt", "m/s2", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_dv_gwd_rando &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'dv_gwd_rando', &
+       "Random gravity waves dV/dt", "m/s2", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_ustr_gwd_hines &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'ustr_gwd_hines', &
+       "zonal wind stress Hines gravity waves", "Pa", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_vstr_gwd_hines &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'vstr_gwd_hines', &
+       "meridional wind stress Hines gravity waves", "Pa", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_ustr_gwd_front &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'ustr_gwd_front', &
+       "zonal wind stress fronts gravity waves", "Pa", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_vstr_gwd_front &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'vstr_gwd_front', &
+       "meridional wind stress fronts gravity waves", "Pa", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_ustr_gwd_rando &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'ustr_gwd_rando', &
+       "zonal wind stress random gravity waves", "Pa", (/ ('', i=1, 9) /))
+  type(ctrl_out), save:: o_vstr_gwd_rando &
+       = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), 'vstr_gwd_rando', &
+       "meridional wind stress random gravity waves", "Pa", (/ ('', i=1, 9) /))
+
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_trac(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_trac_cum(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_vdf(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_the(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_con(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_lessi_impa(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_lessi_nucl(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_insc(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_bcscav(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_evapls(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_ls(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_trsp(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_sscav(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_sat(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_uscav(:)
+  TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dtr_dry(:)
+
+  TYPE(ctrl_out), SAVE :: o_rsu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsu', 'SW upward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsd', 'SW downward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rlu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rlu', 'LW upward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rld = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rld', 'LW downward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsucs', 'SW CS upward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsdcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsdcs', 'SW CS downward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rlucs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rlucs', 'LW CS upward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rldcs = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rldcs', 'LW CS downward radiation', 'W m-2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tnt = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tnt', 'Tendency of air temperature', 'K s-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tntc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tntc', 'Tendency of air temperature due to Moist Convection', 'K s-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tntr = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tntr', 'Air temperature tendency due to Radiative heating', 'K s-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tntscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /),                  &
+    'tntscpbl', 'Air temperature tendency due to St cloud and precipitation and BL mixing', &
+      'K s-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tnhus = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tnhus', 'Tendency of specific humidity', 's-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tnhusc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tnhusc', 'Tendency of specific humidity due to convection', 's-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_tnhusscpbl = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'tnhusscpbl', 'Tendency of Specific humidity due to ST cl, precip and BL mixing', 's-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_evu = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'evu', 'Eddy viscosity coefficient for Momentum Variables', 'm2 s-1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_h2o = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'h2o', 'Mass Fraction of Water', '1', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_mcd = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'mcd', 'Downdraft COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_dmc = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'dmc', 'Deep COnvective Mass Flux', 'kg/(m2*s)', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ref_liq = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ref_liq', 'Effective radius of convective cloud liquid water particle', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_ref_ice = ctrl_out((/ 4, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'ref_ice', 'Effective radius of startiform cloud ice particle', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsut4co2', 'TOA Out SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rlut4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rlut4co2', 'TOA Out LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsutcs4co2', 'TOA Out CS SW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rlutcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rlutcs4co2', 'TOA Out CS LW in 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsu4co2', 'Upwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rlu4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rlu4co2', 'Upwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsucs4co2', 'Upwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rlucs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rlucs4co2', 'Upwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsd4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsd4co2', 'Downwelling SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rld4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rld4co2', 'Downwelling LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rsdcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rsdcs4co2', 'Downwelling CS SW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_rldcs4co2 = ctrl_out((/ 5, 10, 10, 10, 10, 10, 11, 11, 11 /), &
+    'rldcs4co2', 'Downwelling CS LW 4xCO2 atmosphere', 'W/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_snowsrf = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 /), &
+    'snowsrf', 'Snow mass at surface', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_qsnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 /), &
+    'qsnow', 'Water contained in snow', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_snowhgt = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 /), &
+    'snowhgt', 'Snow height at surface', 'm', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_toice = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 /), &
+    'to_ice', 'Snow passed to ice model', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_sissnow = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 /), &
+    'sissnow', 'Snow in snow model', 'kg/m2', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_runoff = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11 /), &
+    'runoff', 'Run-off rate land ice', 'kg/m2/s', (/ ('', i=1, 9) /))
+  TYPE(ctrl_out), SAVE :: o_albslw3 = ctrl_out((/ 1, 1, 1, 1, 10, 10, 11, 11, 11 /), &
+    'albslw3', 'Surface albedo LW3', '-', (/ ('', i=1, 9) /))
+
+!!!!!!!!!!!!! Sorties niveaux standards de pression NMC 
+  TYPE(ctrl_out), SAVE :: o_tnondef = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'tnondef', 'Undefined value of T', 'K', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_ta = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'ta', 'Air 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_zg  = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'zg', 'Geopotential height', 'm', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_hus = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'hus', 'Specific humidity', '1', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                    
+  TYPE(ctrl_out), SAVE :: o_hur = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'hur', 'Relative humidity', '%', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_ua = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'ua', 'Eastward wind', 'm s-1', (/ "inst(X)", "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_va = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'va', 'Northward wind', 'm s-1', (/ ('', i=1, 9)/))
+  TYPE(ctrl_out), SAVE :: o_wap = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'wap', 'Lagrangian tendency of air pressure', 'Pa s-1', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_psbg = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'psbg', 'Pressure sfce below ground', '%', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_tro3 = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'tro3', 'Ozone mole fraction', '1e-9', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_tro3_daylight = ctrl_out((/ 11, 11, 11, 11, 11, 11, 5, 5, 5 /), &
+       'tro3_daylight', 'Daylight ozone mole fraction', '1e-9', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_uxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'uv', 'uv', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))
+  TYPE(ctrl_out), SAVE :: o_vxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'vxq', 'vxq', 'm/s * (kg/kg)', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                                    
+  TYPE(ctrl_out), SAVE :: o_vxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'vT', 'vT', 'mK/s', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                      
+  TYPE(ctrl_out), SAVE :: o_wxq = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'wq', 'wq', '(Pa/s)*(kg/kg)', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                
+  TYPE(ctrl_out), SAVE :: o_vxphi = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'vphi', 'vphi', 'm2/s', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                 
+  TYPE(ctrl_out), SAVE :: o_wxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'wT', 'wT', '"K*Pa/s', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                     
+  TYPE(ctrl_out), SAVE :: o_uxu = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'u2', 'u2', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                                                                         
+  TYPE(ctrl_out), SAVE :: o_vxv = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'v2', 'v2', 'm2/s2', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                               
+   TYPE(ctrl_out), SAVE :: o_TxT = ctrl_out((/ 11, 11, 11, 11, 11, 11, 6, 6, 6 /), &
+       'T2', 'T2', 'K2', (/ "inst(X)", "inst(X)", "inst(X)", &
+       "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)", "inst(X)"  /))                                                                                  
+
+END MODULE phys_output_ctrlout_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_mod.F90	(revision 3330)
@@ -0,0 +1,578 @@
+! $Id$
+!
+
+MODULE phys_output_mod 
+  USE indice_sol_mod
+  USE phys_output_var_mod
+  USE aero_mod, only : naero_spc,name_aero
+  USE phys_output_write_mod, ONLY : phys_output_write
+  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
+
+! Abderrahmane 12 2007
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!! Ecreture des Sorties du modele dans les fichiers Netcdf :
+! histmth.nc : moyennes mensuelles
+! histday.nc : moyennes journalieres
+! histhf.nc  : moyennes toutes les 3 heures
+! histins.nc : valeurs instantanees
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+CONTAINS
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!! Ouverture des fichier et definition des variable de sortie !!!!!!!!
+  !! histbeg, histvert et histdef
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
+
+  SUBROUTINE phys_output_open(rlon,rlat,pim,tabij,ipt,jpt,plon,plat, &
+       jjmp1,nlevSTD,clevSTD,rlevSTD, dtime, ok_veget, &
+       type_ocean, iflag_pbl,iflag_pbl_split,ok_mensuel,ok_journe, &
+       ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, read_climoz, &
+       phys_out_filestations, &
+       new_aod, aerosol_couple, flag_aerosol_strat, &
+       pdtphys, paprs, pphis, pplay, lmax_th, ptconv, ptconvth, ivap, &
+       d_t, qx, d_qx, zmasse, ok_sync)   
+
+    USE iophy 
+    USE dimphy
+    USE infotrac_phy, ONLY: nqtot, nqo, niadv, tname, ttext
+    USE ioipsl
+    USE phys_cal_mod, only : hour, calend
+    USE mod_phys_lmdz_para
+    USE aero_mod, only : naero_spc,name_aero
+	!Martin
+    USE surface_data, ONLY : ok_snow
+    USE phys_output_ctrlout_mod
+    USE mod_grid_phy_lmdz, only: klon_glo,nbp_lon,nbp_lat
+    USE print_control_mod, ONLY: prt_level,lunout
+    USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, Ahyb, Bhyb
+    USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+    USE wxios
+#endif
+
+    IMPLICIT NONE
+    include "clesphys.h"
+    include "thermcell.h"
+    include "YOMCST.h"
+
+    ! ug Nouveaux arguments n\'ecessaires au histwrite_mod:
+    INTEGER, INTENT(IN)                         :: ivap
+    INTEGER, DIMENSION(klon), INTENT(IN)        :: lmax_th
+    LOGICAL, INTENT(IN)                         :: ok_sync
+    LOGICAL, DIMENSION(klon, klev), INTENT(IN)  :: ptconv, ptconvth
+    REAL, INTENT(IN)                            :: pdtphys
+    REAL, DIMENSION(klon), INTENT(IN)           :: pphis
+    REAL, DIMENSION(klon, klev), INTENT(IN)     :: pplay, d_t
+    REAL, DIMENSION(klon, klev+1), INTENT(IN)   :: paprs
+    REAL, DIMENSION(klon,klev,nqtot), INTENT(IN):: qx, d_qx
+    REAL, DIMENSION(klon, klev), INTENT(IN)      :: zmasse
+
+
+    REAL,DIMENSION(klon),INTENT(IN) :: rlon
+    REAL,DIMENSION(klon),INTENT(IN) :: rlat
+    INTEGER, INTENT(IN)             :: pim
+    INTEGER, DIMENSION(pim)            :: tabij
+    INTEGER,DIMENSION(pim), INTENT(IN) :: ipt, jpt
+    REAL,DIMENSION(pim), INTENT(IN) :: plat, plon
+    REAL,DIMENSION(pim,2) :: plat_bounds, plon_bounds
+
+    INTEGER                               :: jjmp1
+    INTEGER                               :: nlevSTD, radpas
+    LOGICAL                               :: ok_mensuel, ok_journe, ok_hf, ok_instan
+    LOGICAL                               :: ok_LES,ok_ade,ok_aie
+    INTEGER                               :: flag_aerosol_strat
+    LOGICAL                               :: new_aod, aerosol_couple
+    INTEGER, INTENT(IN)::  read_climoz ! read ozone climatology
+    !     Allowed values are 0, 1 and 2
+    !     0: do not read an ozone climatology
+    !     1: read a single ozone climatology that will be used day and night
+    !     2: read two ozone climatologies, the average day and night
+    !     climatology and the daylight climatology
+
+    REAL                                  :: dtime
+    INTEGER                               :: idayref
+    REAL                                  :: zjulian_start, zjulian
+    REAL, DIMENSION(klev)                 :: Alt
+    CHARACTER(LEN=4), DIMENSION(nlevSTD)  :: clevSTD
+    REAL, DIMENSION(nlevSTD)              :: rlevSTD
+    INTEGER                               :: nsrf, k, iq, iiq, iff, i, j, ilev
+    INTEGER                               :: naero
+    LOGICAL                               :: ok_veget
+    INTEGER                               :: iflag_pbl
+    INTEGER                               :: iflag_pbl_split
+    CHARACTER(LEN=4)                      :: bb2
+    CHARACTER(LEN=2)                      :: bb3
+    CHARACTER(LEN=6)                      :: type_ocean
+    INTEGER, DIMENSION(nbp_lon*jjmp1)         ::  ndex2d
+    INTEGER, DIMENSION(nbp_lon*jjmp1*klev)    :: ndex3d
+    INTEGER                               :: imin_ins, imax_ins
+    INTEGER                               :: jmin_ins, jmax_ins
+    INTEGER, DIMENSION(nfiles)            :: phys_out_levmin, phys_out_levmax
+    INTEGER, DIMENSION(nfiles)            :: phys_out_filelevels
+    CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep = (/ 'Default', 'Default', 'Default', 'Default', 'Default', &
+                                                             'Default', 'Default', 'Default', 'Default' /)
+    LOGICAL, DIMENSION(nfiles)            :: phys_out_filekeys
+    LOGICAL, DIMENSION(nfiles)            :: phys_out_filestations
+
+!!!!!!!!!! stockage dans une region limitee pour chaque fichier !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !                 entre [phys_out_lonmin,phys_out_lonmax] et [phys_out_latmin,phys_out_latmax]
+
+    LOGICAL, DIMENSION(nfiles), SAVE  :: phys_out_regfkey       = (/ .FALSE., .FALSE., .FALSE.,  .FALSE., &
+                                                                    .FALSE., .FALSE., .FALSE., .FALSE.,  .FALSE. /)
+    REAL, DIMENSION(nfiles), SAVE     :: phys_out_lonmin        = (/   -180.,   -180.,   -180.,    -180., &
+                                                                     -180.,   -180., -180.,   -180.,    -180. /)
+    REAL, DIMENSION(nfiles), SAVE     :: phys_out_lonmax        = (/    180.,    180.,    180.,     180., &
+                                                                      180.,    180., 180.,    180.,     180. /)
+    REAL, DIMENSION(nfiles), SAVE     :: phys_out_latmin        = (/    -90.,    -90.,    -90.,     -90., &
+                                                                    -90., -90., -90.,    -90.,     -90. /)
+    REAL, DIMENSION(nfiles), SAVE     :: phys_out_latmax        = (/  90.,     90.,     90.,     90., &
+                                                                    90., 90., 90., 90., 90. /)                        
+#ifdef CPP_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
+
+    WRITE(lunout,*) 'Debut phys_output_mod.F90'
+    ! Initialisations (Valeurs par defaut
+
+    IF (.NOT. ALLOCATED(o_trac)) ALLOCATE(o_trac(nqtot))
+    IF (.NOT. ALLOCATED(o_trac_cum)) ALLOCATE(o_trac_cum(nqtot))
+    ALLOCATE(o_dtr_the(nqtot),o_dtr_con(nqtot),o_dtr_lessi_impa(nqtot))
+    ALLOCATE(o_dtr_lessi_nucl(nqtot),o_dtr_insc(nqtot),o_dtr_bcscav(nqtot))
+    ALLOCATE(o_dtr_evapls(nqtot),o_dtr_ls(nqtot),o_dtr_trsp(nqtot))
+    ALLOCATE(o_dtr_sscav(nqtot),o_dtr_sat(nqtot),o_dtr_uscav(nqtot))
+    ALLOCATE(o_dtr_dry(nqtot),o_dtr_vdf(nqtot))
+
+
+    levmax = (/ klev, klev, klev, klev, klev, klev, nlevSTD, nlevSTD, nlevSTD /)
+
+    phys_out_filenames(1) = 'histmth'
+    phys_out_filenames(2) = 'histday'
+    phys_out_filenames(3) = 'histhf6h'
+    phys_out_filenames(4) = 'histhf3h'
+    phys_out_filenames(5) = 'histhf3hm'
+    phys_out_filenames(6) = 'histstn'
+    phys_out_filenames(7) = 'histmthNMC'
+    phys_out_filenames(8) = 'histdayNMC'
+    phys_out_filenames(9) = 'histhfNMC.nc'
+
+    type_ecri(1) = 'ave(X)'
+    type_ecri(2) = 'ave(X)'
+    type_ecri(3) = 'inst(X)'
+    type_ecri(4) = 'inst(X)'
+    type_ecri(5) = 'ave(X)'
+    type_ecri(6) = 'inst(X)'
+    type_ecri(7) = 'inst(X)'
+    type_ecri(8) = 'inst(X)'
+    type_ecri(9) = 'inst(X)'
+
+    clef_files(1) = ok_mensuel
+    clef_files(2) = ok_journe
+    clef_files(3) = ok_hf
+    clef_files(4) = ok_instan
+    clef_files(5) = ok_LES
+    clef_files(6) = ok_instan
+    clef_files(7) = ok_histNMC(1)
+    clef_files(8) = ok_histNMC(2)
+    clef_files(9) = ok_histNMC(3)
+
+    !sortir des fichiers "stations" si clef_stations(:)=.TRUE.
+    clef_stations(1) = .FALSE.
+    clef_stations(2) = .FALSE.
+    clef_stations(3) = .FALSE.
+    clef_stations(4) = .FALSE.
+    clef_stations(5) = .FALSE.
+    clef_stations(6) = .FALSE.
+    clef_stations(7) = .FALSE.
+    clef_stations(8) = .FALSE.
+    clef_stations(9) = .FALSE.
+
+    lev_files(1) = lev_histmth
+    lev_files(2) = lev_histday
+    lev_files(3) = lev_histhf
+    lev_files(4) = lev_histins
+    lev_files(5) = lev_histLES
+    lev_files(6) = lev_histins
+    lev_files(7) = levout_histNMC(1)
+    lev_files(8) = levout_histNMC(2)
+    lev_files(9) = levout_histNMC(3)
+
+    ecrit_files(1) = ecrit_mth
+    ecrit_files(2) = ecrit_day
+    ecrit_files(3) = ecrit_hf
+    ecrit_files(4) = ecrit_ins
+    ecrit_files(5) = ecrit_LES
+    ecrit_files(6) = ecrit_ins
+    ecrit_files(7) = freq_outNMC(1)
+    ecrit_files(8) = freq_outNMC(2)
+    ecrit_files(9) = freq_outNMC(3)
+
+    !! Lectures des parametres de sorties dans physiq.def
+
+    CALL getin('phys_out_regfkey',phys_out_regfkey)
+    CALL getin('phys_out_lonmin',phys_out_lonmin)
+    CALL getin('phys_out_lonmax',phys_out_lonmax)
+    CALL getin('phys_out_latmin',phys_out_latmin)
+    CALL getin('phys_out_latmax',phys_out_latmax)
+    phys_out_levmin(:)=levmin(:)
+    CALL getin('phys_out_levmin',levmin)
+    phys_out_levmax(:)=levmax(:)
+    CALL getin('phys_out_levmax',levmax)
+    CALL getin('phys_out_filenames',phys_out_filenames)
+    phys_out_filekeys(:)=clef_files(:)
+    CALL getin('phys_out_filekeys',clef_files)
+    phys_out_filestations(:)=clef_stations(:)
+    CALL getin('phys_out_filestations',clef_stations)
+    phys_out_filelevels(:)=lev_files(:)
+    CALL getin('phys_out_filelevels',lev_files)
+    CALL getin('phys_out_filetimesteps',chtimestep)
+    phys_out_filetypes(:)=type_ecri(:)
+    CALL getin('phys_out_filetypes',type_ecri)
+
+    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
+    WRITE(lunout,*)'phys_out_latmin=',phys_out_latmin
+    WRITE(lunout,*)'phys_out_latmax=',phys_out_latmax
+    WRITE(lunout,*)'phys_out_filenames=',phys_out_filenames
+    WRITE(lunout,*)'phys_out_filetypes=',type_ecri
+    WRITE(lunout,*)'phys_out_filekeys=',clef_files
+    WRITE(lunout,*)'phys_out_filestations=',clef_stations
+    WRITE(lunout,*)'phys_out_filelevels=',lev_files
+
+! A noter pour
+! l heure initiale - dans les fichiers histoire hist* - on met comme  
+! heure de debut soit la vraie heure (pour le 1D) soit 0h (pour le 3D) 
+! afin d avoir une seule sortie mensuelle par mois lorsque l on tourne 
+! par annee (IM).
+!
+     idayref = day_ref
+     IF (klon_glo==1) THEN
+       ! current_time (used to compute hour) is updated at the begining of
+       ! the physics; to set the correct outputs "initial time" we thus 
+       ! have to use (hour-dtphys).
+         CALL ymds2ju(annee_ref, 1, idayref, hour-pdtphys, zjulian)
+         print *,'phys_output_mod: annee,iday,hour,zjulian=',annee_ref,idayref, hour, zjulian
+     ELSE
+         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+         CALL ymds2ju(annee_ref, 1, day_ini, start_time*rday, zjulian_start)
+     END IF
+
+#ifdef CPP_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 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
+
+!!!!!!!!!!!!!!!!!!!!!!! Boucle sur les fichiers !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Appel de histbeg et histvert pour creer le fichier et les niveaux verticaux !!
+    ! Appel des histbeg pour definir les variables (nom, moy ou inst, freq de sortie ..
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+    zdtime_moy = dtime         ! Frequence ou l on moyenne
+
+    ! Calcul des Ahyb, Bhyb et Alt
+    DO k=1,klev
+       Ahyb(k)=(ap(k)+ap(k+1))/2.
+       Bhyb(k)=(bp(k)+bp(k+1))/2.
+       Alt(k)=log(preff/presnivs(k))*8.
+    ENDDO
+    !          if(prt_level.ge.1) then
+    WRITE(lunout,*)'Ap Hybrid = ',Ahyb(1:klev)
+    WRITE(lunout,*)'Bp Hybrid = ',Bhyb(1:klev)
+    WRITE(lunout,*)'Alt approx des couches pour une haut d echelle de 8km = ',Alt(1:klev)
+    !          endif
+
+  ecrit_files(7) = ecrit_files(1)
+  ecrit_files(8) = ecrit_files(2)
+  ecrit_files(9) = ecrit_files(3)
+
+  DO iff=1,nfiles
+
+       ! Calculate ecrit_files for all files
+      IF ( chtimestep(iff).eq.'Default' ) then
+          ! Par defaut ecrit_files = (ecrit_mensuel ecrit_jour ecrit_hf
+          ! ...)*86400.
+          ecrit_files(iff)=ecrit_files(iff)*86400.
+      ELSE IF (chtimestep(iff).eq.'-1') then
+          PRINT*,'ecrit_files(',iff,') < 0 so IOIPSL work on different'
+          PRINT*,'months length'
+          ecrit_files(iff)=-1.
+      else
+       CALL convers_timesteps(chtimestep(iff),dtime,ecrit_files(iff)) 
+      ENDIF
+
+       WRITE(lunout,*)'ecrit_files(',iff,')= ',ecrit_files(iff)
+       zoutm(iff) = ecrit_files(iff) ! Frequence ou l on ecrit en seconde
+
+
+#ifdef CPP_XIOS
+!!! Ouverture de chaque fichier XIOS !!!!!!!!!!!
+    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:
+    if (prt_level >= 10) then
+      print*,'phys_output_open: Declare vertical axes for each file'
+    endif
+   if (iff.le.6) then
+    CALL wxios_add_vaxis("presnivs", &
+            levmax(iff) - levmin(iff) + 1, presnivs(levmin(iff):levmax(iff)))
+    CALL wxios_add_vaxis("Ahyb", &
+            levmax(iff) - levmin(iff) + 1, Ahyb)
+    CALL wxios_add_vaxis("Bhyb", &
+            levmax(iff) - levmin(iff) + 1, Bhyb)
+    CALL wxios_add_vaxis("Alt", &
+            levmax(iff) - levmin(iff) + 1, Alt)
+   else
+    ! NMC files
+    CALL wxios_add_vaxis("plev", &
+            levmax(iff) - levmin(iff) + 1, rlevSTD(levmin(iff):levmax(iff)))
+   endif
+#endif 
+
+        IF (clef_files(iff)) THEN
+!!!!!!!!!!!!!!!!! Traitement dans le cas ou l'on veut stocker sur un domaine limite !!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          IF (phys_out_regfkey(iff)) then
+             imin_ins=1
+             imax_ins=nbp_lon
+             jmin_ins=1
+             jmax_ins=jjmp1
+
+             ! correction abderr        
+             do i=1,nbp_lon
+                WRITE(lunout,*)'io_lon(i)=',io_lon(i)
+                IF (io_lon(i).le.phys_out_lonmin(iff)) imin_ins=i
+                IF (io_lon(i).le.phys_out_lonmax(iff)) imax_ins=i+1
+             enddo
+
+             do j=1,jjmp1
+                WRITE(lunout,*)'io_lat(j)=',io_lat(j)
+                IF (io_lat(j).ge.phys_out_latmin(iff)) jmax_ins=j+1
+                IF (io_lat(j).ge.phys_out_latmax(iff)) jmin_ins=j
+             enddo
+
+             WRITE(lunout,*)'On stoke le fichier histoire numero ',iff,' sur ', &
+                  imin_ins,imax_ins,jmin_ins,jmax_ins
+             WRITE(lunout,*)'longitudes : ', &
+                  io_lon(imin_ins),io_lon(imax_ins), &
+                  'latitudes : ', &
+                  io_lat(jmax_ins),io_lat(jmin_ins)
+
+             CALL histbeg(phys_out_filenames(iff),nbp_lon,io_lon,jjmp1,io_lat, &
+                  imin_ins,imax_ins-imin_ins+1, &
+                  jmin_ins,jmax_ins-jmin_ins+1, &
+                  itau_phy,zjulian,dtime,nhorim(iff),nid_files(iff))
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+             !IM fichiers stations
+          else IF (clef_stations(iff)) THEN
+
+             if (prt_level >= 10) then
+             WRITE(lunout,*)'phys_output_open: iff=',iff,'  phys_out_filenames(iff)=',phys_out_filenames(iff)
+             endif
+             
+             CALL histbeg_phy_all(rlon,rlat,pim,tabij,ipt,jpt,plon,plat,plon_bounds,plat_bounds, &
+                  phys_out_filenames(iff), &
+                  itau_phy,zjulian,dtime,nhorim(iff),nid_files(iff))
+          else
+             CALL histbeg_phy_all(phys_out_filenames(iff),itau_phy,zjulian,&
+                 dtime,nhorim(iff),nid_files(iff))
+          endif
+
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+          if (iff.le.6) then
+             CALL histvert(nid_files(iff), "presnivs", "Vertical levels", "Pa", &  
+               levmax(iff) - levmin(iff) + 1, &
+               presnivs(levmin(iff):levmax(iff)), nvertm(iff),"down")
+!!!! Composantes de la coordonnee sigma-hybride 
+          CALL histvert(nid_files(iff), "Ahyb","Ahyb comp of Hyb Cord ", "Pa", &
+               levmax(iff) - levmin(iff) + 1,Ahyb,nvertap(iff))
+
+          CALL histvert(nid_files(iff), "Bhyb","Bhyb comp of Hyb Cord", " ", &
+               levmax(iff) - levmin(iff) + 1,Bhyb,nvertbp(iff))
+
+          CALL histvert(nid_files(iff), "Alt","Height approx for scale heigh of 8km at levels", "Km", &                       
+               levmax(iff) - levmin(iff) + 1,Alt,nvertAlt(iff))
+
+          else
+             CALL histvert(nid_files(iff), "plev", "pressure", "Pa", &
+               levmax(iff) - levmin(iff) + 1, &
+              rlevSTD(levmin(iff):levmax(iff)), nvertm(iff), "down")
+          endif
+#endif
+
+     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-nqo) = ctrl_out((/ 4, 5, 5, 5, 10, 10, 11, 11, 11 /), &
+                           tname(iiq),'Tracer '//ttext(iiq), "-",  &
+                           (/ '', '', '', '', '', '', '', '', '' /))
+            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-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-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-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-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-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-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-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-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-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-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-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-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-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-nqo) = ctrl_out((/ 3, 4, 10, 10, 10, 10, 11, 11, 11 /), &
+                               'cum'//tname(iiq),&
+                               'Cumulated tracer '//ttext(iiq), "-", &
+                               (/ '', '', '', '', '', '', '', '', '' /))
+            ENDDO
+      ENDIF
+
+
+   ENDDO !  iff
+
+    ! Updated write frequencies due to phys_out_filetimesteps. 
+    ! Write frequencies are now in seconds.  
+    ecrit_mth = ecrit_files(1)
+    ecrit_day = ecrit_files(2)
+    ecrit_hf  = ecrit_files(3)
+    ecrit_ins = ecrit_files(4)
+    ecrit_LES = ecrit_files(5)
+    ecrit_ins = ecrit_files(6)
+
+    if (prt_level >= 10) then
+      WRITE(lunout,*)'swaero_diag=',swaero_diag
+      WRITE(lunout,*)'phys_output_open: ends here'
+    endif
+
+  end SUBROUTINE phys_output_open
+
+
+
+  SUBROUTINE convers_timesteps(str,dtime,timestep)
+
+    use ioipsl
+    USE phys_cal_mod
+    USE time_phylmdz_mod, ONLY: day_ref, annee_ref
+    USE print_control_mod, ONLY: lunout
+
+    IMPLICIT NONE
+
+    CHARACTER(LEN=20)   :: str
+    CHARACTER(LEN=10)   :: type
+    INTEGER             :: ipos,il
+    real                :: ttt,xxx,timestep,dayseconde,dtime
+    parameter (dayseconde=86400.)
+
+    ipos=scan(str,'0123456789.',.TRUE.)
+    !  
+    il=len_trim(str)
+    WRITE(lunout,*) "ipos = ", ipos
+    WRITE(lunout,*) "il = ", il
+    if (ipos == 0) call abort_physic("convers_timesteps", "bad str", 1)
+    read(str(1:ipos),*) ttt
+    WRITE(lunout,*)ttt
+    type=str(ipos+1:il)
+
+
+    IF ( il == ipos ) then
+       type='day'
+    endif
+
+    IF ( type == 'day'.or.type == 'days'.or.type == 'jours'.or.type == 'jour' ) timestep = ttt * dayseconde
+    IF ( type == 'mounths'.or.type == 'mth'.or.type == 'mois' ) then
+       WRITE(lunout,*)'annee_ref,day_ref mon_len',annee_ref,day_ref,mth_len
+       timestep = ttt * dayseconde * mth_len
+    endif
+    IF ( type == 'hours'.or.type == 'hr'.or.type == 'heurs') timestep = ttt * dayseconde / 24.
+    IF ( type == 'mn'.or.type == 'minutes'  ) timestep = ttt * 60.
+    IF ( type == 's'.or.type == 'sec'.or.type == 'secondes'   ) timestep = ttt
+    IF ( type == 'TS' ) timestep = ttt * dtime
+
+    WRITE(lunout,*)'type =      ',type
+    WRITE(lunout,*)'nb j/h/m =  ',ttt
+    WRITE(lunout,*)'timestep(s)=',timestep
+
+  END SUBROUTINE convers_timesteps
+
+END MODULE phys_output_mod
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_var_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_var_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_var_mod.F90	(revision 3330)
@@ -0,0 +1,177 @@
+!
+! phys_local_var_mod.F90 1327 2010-03-17 15:33:56Z idelkadi $
+
+MODULE phys_output_var_mod
+
+  use dimphy
+  ! Variables outputs pour les ecritures des sorties
+  !======================================================================
+  !
+  !
+  !======================================================================
+  ! Declaration des variables
+
+  REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:)
+  !$OMP THREADPRIVATE(snow_o, zfra_o)
+  INTEGER, SAVE, ALLOCATABLE ::  itau_con(:)       ! Nombre de pas ou rflag <= 1
+  !$OMP THREADPRIVATE(itau_con)
+  REAL, SAVE, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation
+  REAL, SAVE, ALLOCATABLE :: bils_ech(:) ! Contribution of energy conservation
+  REAL, SAVE, ALLOCATABLE :: bils_tke(:) ! Contribution of energy conservation
+  REAL, SAVE, ALLOCATABLE :: bils_diss(:) ! Contribution of energy conservation
+  REAL, SAVE, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic
+  REAL, SAVE, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol
+  REAL, SAVE, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
+  !$OMP THREADPRIVATE(bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
+
+! Marine
+! Variables de sortie du simulateur AIRS
+
+  REAL, SAVE, ALLOCATABLE :: map_prop_hc(:),map_prop_hist(:),alt_tropo(:)
+  !$OMP THREADPRIVATE(map_prop_hc,map_prop_hist,alt_tropo)
+  REAL, SAVE, ALLOCATABLE :: map_emis_hc(:),map_iwp_hc(:),map_deltaz_hc(:), &
+                       map_pcld_hc(:),map_tcld_hc(:)
+  !$OMP THREADPRIVATE(map_emis_hc,map_iwp_hc,map_deltaz_hc,map_pcld_hc,map_tcld_hc)
+  REAL, SAVE, ALLOCATABLE :: map_emis_hist(:),map_iwp_hist(:),map_deltaz_hist(:),map_rad_hist(:)         
+  !$OMP THREADPRIVATE(map_emis_hist,map_iwp_hist,map_deltaz_hist,map_rad_hist)
+  REAL, SAVE, ALLOCATABLE :: map_ntot(:),map_hc(:),map_hist(:)
+  REAL, SAVE, ALLOCATABLE :: map_Cb(:),map_ThCi(:),map_Anv(:)
+  !$OMP THREADPRIVATE(map_ntot,map_hc,map_hist,map_Cb,map_ThCi,map_Anv)
+  REAL, SAVE, ALLOCATABLE :: map_emis_Cb(:),map_pcld_Cb(:),map_tcld_Cb(:)
+  REAL, SAVE, ALLOCATABLE :: map_emis_ThCi(:),map_pcld_ThCi(:),map_tcld_ThCi(:)
+  !$OMP THREADPRIVATE(map_emis_Cb,map_pcld_Cb,map_tcld_Cb,map_emis_ThCi)
+  REAL, SAVE, ALLOCATABLE :: map_emis_Anv(:),map_pcld_Anv(:),map_tcld_Anv(:)
+  !$OMP THREADPRIVATE(map_pcld_ThCi,map_tcld_ThCi,map_emis_Anv,map_pcld_Anv,map_tcld_Anv)              
+   
+
+  ! ug Plein de variables venues de phys_output_mod
+  INTEGER, PARAMETER                           :: nfiles = 9
+  LOGICAL, DIMENSION(nfiles), SAVE             :: clef_files
+  LOGICAL, DIMENSION(nfiles), SAVE             :: clef_stations
+  INTEGER, DIMENSION(nfiles), SAVE             :: lev_files
+  INTEGER, DIMENSION(nfiles), SAVE             :: nid_files
+  INTEGER, DIMENSION(nfiles), SAVE  :: nnid_files
+  !$OMP THREADPRIVATE(clef_files, clef_stations, lev_files,nid_files,nnid_files)
+  INTEGER, DIMENSION(nfiles), SAVE :: nnhorim
+
+  INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm
+  INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt
+  REAL, DIMENSION(nfiles), SAVE                :: zoutm
+  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE   :: type_ecri
+  !$OMP THREADPRIVATE(nnhorim, nhorim, nvertm, zoutm,type_ecri)
+  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: type_ecri_files, phys_out_filetypes
+  !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes)
+  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: phys_out_filenames
+  !$OMP THREADPRIVATE(phys_out_filenames)
+
+  ! swaero_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
+  !--OB: this needs to be set to TRUE by default and changed back to FALSE after first radiation call
+  !--    and corrected back to TRUE based on output requests
+  LOGICAL, SAVE                                :: swaero_diag=.TRUE.
+  !$OMP THREADPRIVATE(swaero_diag)
+
+  INTEGER, SAVE:: levmin(nfiles) = 1
+  INTEGER, SAVE:: levmax(nfiles)
+  !$OMP THREADPRIVATE(levmin, levmax)
+
+  REAL, SAVE                :: zdtime_moy
+  !$OMP THREADPRIVATE(zdtime_moy)
+
+  LOGICAL, SAVE :: vars_defined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
+
+  REAL, allocatable:: zustr_gwd_hines(:), zvstr_gwd_hines(:) ! (klon)
+  REAL, allocatable:: zustr_gwd_front(:), zvstr_gwd_front(:) ! (klon)
+  REAL, allocatable:: zustr_gwd_rando(:), zvstr_gwd_rando(:) ! (klon)
+  !$OMP THREADPRIVATE(zustr_gwd_hines, zvstr_gwd_hines)
+  !$OMP THREADPRIVATE(zustr_gwd_front, zvstr_gwd_front)
+  !$OMP THREADPRIVATE(zustr_gwd_rando, zvstr_gwd_rando)
+
+  TYPE ctrl_out
+     INTEGER,DIMENSION(nfiles)            :: flag
+     CHARACTER(len=20)                    :: name
+     CHARACTER(len=150)                   :: description
+     CHARACTER(len=20)                    :: unit
+     CHARACTER(len=20),DIMENSION(nfiles)  :: type_ecrit
+  END TYPE ctrl_out
+
+  REAL, SAVE, ALLOCATABLE :: sens_prec_liq_o(:,:), sens_prec_sol_o(:,:)
+  REAL, SAVE, ALLOCATABLE :: lat_prec_liq_o(:,:), lat_prec_sol_o(:,:)
+ !$OMP THREADPRIVATE(sens_prec_liq_o, sens_prec_sol_o,lat_prec_liq_o,lat_prec_sol_o)
+
+CONTAINS
+
+  !======================================================================
+  SUBROUTINE phys_output_var_init
+    use dimphy
+
+    IMPLICIT NONE
+
+    include "clesphys.h"
+
+    !------------------------------------------------
+
+    allocate(snow_o(klon), zfra_o(klon))
+    allocate(itau_con(klon))
+    allocate(sens_prec_liq_o(klon,2))
+    allocate(sens_prec_sol_o(klon,2))
+    allocate(lat_prec_liq_o(klon,2))
+    allocate(lat_prec_sol_o(klon,2))
+    sens_prec_liq_o = 0.0 ; sens_prec_sol_o = 0.0
+    lat_prec_liq_o = 0.0 ; lat_prec_sol_o = 0.0
+
+    allocate (bils_ec(klon),bils_ech(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))
+
+! Marine
+! Variables de sortie simulateur AIRS
+
+!     if (ok_airs) then
+      allocate (map_prop_hc(klon),map_prop_hist(klon))
+      allocate (alt_tropo(klon))
+      allocate (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon))
+      allocate (map_pcld_hc(klon),map_tcld_hc(klon))
+      allocate (map_emis_hist(klon),map_iwp_hist(klon),map_deltaz_hist(klon))
+      allocate (map_rad_hist(klon))
+      allocate (map_ntot(klon),map_hc(klon),map_hist(klon))
+      allocate (map_Cb(klon),map_ThCi(klon),map_Anv(klon))
+      allocate (map_emis_Cb(klon),map_pcld_Cb(klon),map_tcld_Cb(klon))
+      allocate (map_emis_ThCi(klon),map_pcld_ThCi(klon),map_tcld_ThCi(klon))
+      allocate (map_emis_Anv(klon),map_pcld_Anv(klon),map_tcld_Anv(klon))
+!     endif
+
+    IF (ok_hines) allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon))
+    IF (.not.ok_hines.and.ok_gwd_rando) &
+                  allocate(zustr_gwd_front(klon), zvstr_gwd_front(klon))
+    IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
+
+  END SUBROUTINE phys_output_var_init
+
+  !======================================================================
+  SUBROUTINE phys_output_var_end
+    use dimphy
+    IMPLICIT NONE
+
+    include "clesphys.h"
+
+    deallocate(snow_o,zfra_o,itau_con)
+    deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
+
+! Marine
+! Variables de sortie simulateur AIRS
+
+ !    if (ok_airs) then
+      deallocate (map_prop_hc,map_prop_hist)
+      deallocate (alt_tropo)
+      deallocate (map_emis_hc,map_iwp_hc,map_deltaz_hc)
+      deallocate (map_pcld_hc,map_tcld_hc)
+      deallocate (map_emis_hist,map_iwp_hist,map_deltaz_hist)
+      deallocate (map_rad_hist)
+      deallocate (map_ntot,map_hc,map_hist)
+      deallocate (map_Cb,map_ThCi,map_Anv)
+      deallocate (map_emis_Cb,map_pcld_Cb,map_tcld_Cb)
+      deallocate (map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi)
+      deallocate (map_emis_Anv,map_pcld_Anv,map_tcld_Anv)
+  !   endif
+
+  END SUBROUTINE phys_output_var_end
+
+END MODULE phys_output_var_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_write_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_write_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_output_write_mod.F90	(revision 3330)
@@ -0,0 +1,1767 @@
+!
+! $Id$
+!
+MODULE phys_output_write_mod
+
+  USE phytrac_mod, ONLY : d_tr_cl, d_tr_th, d_tr_cv, d_tr_lessi_impa, &
+       d_tr_lessi_nucl, d_tr_insc, d_tr_bcscav, d_tr_evapls, d_tr_ls,  &
+       d_tr_trsp, d_tr_sscav, d_tr_sat, d_tr_uscav
+
+  ! Author: Abderrahmane IDELKADI (original include file)
+  ! Author: Laurent FAIRHEAD (transformation to module/subroutine)
+  ! Author: Ulysse GERARD (effective implementation)
+
+CONTAINS 
+
+  ! ug Routine pour définir (los du premier passageà) ET sortir les variables
+  SUBROUTINE phys_output_write(itap, pdtphys, paprs, pphis, &
+       pplay, lmax_th, aerosol_couple,         &
+       ok_ade, ok_aie, ivap, iliq, isol, new_aod, ok_sync, &
+       ptconv, read_climoz, clevSTD, ptconvth, &
+       d_t, qx, d_qx, zmasse, flag_aerosol, flag_aerosol_strat, ok_cdnc)
+
+    ! This subroutine does the actual writing of diagnostics that were
+    ! defined and initialised in phys_output_mod.F90
+
+    USE dimphy, only: klon, klev, klevp1, nslay
+    USE mod_phys_lmdz_para, ONLY: is_north_pole_phy,is_south_pole_phy
+    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
+    USE time_phylmdz_mod, only: day_step_phy, start_time, itau_phy
+    USE phys_output_ctrlout_mod, only: o_phis, o_aire, is_ter, is_lic, is_oce, &
+         is_ave, is_sic, o_contfracATM, o_contfracOR, &
+         o_aireTER, o_flat, o_slp, o_ptstar, o_pt0, 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_gusts, o_sicf, &
+         o_psol, o_mass, o_qsurf, o_qsol, &
+         o_precip, o_ndayrain, o_plul, o_pluc, o_plun, &
+         o_snow, o_msnow, o_fsnow, o_evap, o_ep,o_epmax_diag, & ! epmax_cape
+         o_tops, o_tops0, o_topl, o_topl0, &
+         o_SWupTOA, o_SWupTOAclr, o_SWdnTOA, &
+         o_SWdnTOAclr, o_nettop, o_SWup200, &
+         o_SWup200clr, o_SWdn200, o_SWdn200clr, &
+         o_LWup200, o_LWup200clr, o_LWdn200, &
+         o_LWdn200clr, o_sols, o_sols0, &
+         o_soll, o_radsol, o_soll0, o_SWupSFC, &
+         o_SWupSFCclr, o_SWdnSFC, o_SWdnSFCclr, &
+         o_LWupSFC, o_LWdnSFC, o_LWupSFCclr, &
+         o_LWdnSFCclr, o_bils, o_bils_diss, &
+         o_bils_ec,o_bils_ech, o_bils_tke, o_bils_kinetic, &
+         o_bils_latent, o_bils_enthalp, o_sens, &
+         o_fder, o_ffonte, o_fqcalving, o_fqfonte, o_runofflic, &
+         o_taux, o_tauy, o_snowsrf, o_qsnow, &
+         o_snowhgt, o_toice, o_sissnow, o_runoff, &
+         o_albslw3, o_pourc_srf, o_fract_srf, &
+         o_taux_srf, o_tauy_srf, o_tsol_srf, &
+         o_evappot_srf, o_ustar_srf, o_u10m_srf, &
+         o_v10m_srf, o_t2m_srf, o_evap_srf, &
+         o_sens_srf, o_lat_srf, o_flw_srf, &
+         o_fsw_srf, o_wbils_srf, o_wbilo_srf, &
+         o_tke_srf, o_tke_max_srf,o_dltpbltke_srf, o_wstar, &
+         o_l_mixmin,o_l_mix, &
+         o_cdrm, o_cdrh, o_cldl, o_cldm, o_cldh, &
+         o_cldt, o_JrNt, o_cldljn, o_cldmjn, &
+         o_cldhjn, o_cldtjn, o_cldq, o_lwp, o_iwp, &
+         o_ue, o_ve, o_uq, o_vq, o_cape, o_pbase, &
+         o_ptop, o_fbase, o_plcl, o_plfc, &
+         o_wbeff, o_cape_max, o_upwd, o_ep,o_epmax_diag, o_Ma, &
+         o_dnwd, o_dnwd0, o_ftime_con, o_mc, &
+         o_prw, o_prlw, o_prsw, o_s_pblh, o_s_pblt, o_s_lcl, &
+         o_s_therm, o_uSTDlevs, o_vSTDlevs, &
+         o_wSTDlevs, o_zSTDlevs, o_qSTDlevs, &
+         o_tSTDlevs, epsfra, o_t_oce_sic, &
+         o_ale_bl, o_alp_bl, o_ale_wk, o_alp_wk, &
+         o_dtvdf_x    , o_dtvdf_w    , o_dqvdf_x    , o_dqvdf_w    , &
+         o_sens_x     , o_sens_w     , o_flat_x     , o_flat_w     , &
+         o_delta_tsurf, &
+         o_cdragh_x   , o_cdragh_w   , o_cdragm_x   , o_cdragm_w   , &
+         o_kh         , o_kh_x       , o_kh_w       , &
+         o_ale, o_alp, o_cin, o_WAPE, o_wake_h, &
+         o_wake_s, o_wake_deltat, o_wake_deltaq, &
+         o_wake_omg, o_dtwak, o_dqwak, o_dqwak2d, o_Vprecip, &
+         o_ftd, o_fqd, o_wdtrainA, o_wdtrainM, &
+         o_n2, o_s2, o_proba_notrig, &
+         o_random_notrig, o_ale_bl_stat, &
+         o_ale_bl_trig, o_alp_bl_det, &
+         o_alp_bl_fluct_m, o_alp_bl_fluct_tke, &
+         o_alp_bl_conv, o_alp_bl_stat, &
+         o_slab_qflux, o_tslab, o_slab_bils, &
+         o_slab_bilg, o_slab_sic, o_slab_tice, &
+         o_weakinv, o_dthmin, o_cldtau, &
+         o_cldemi, o_pr_con_l, o_pr_con_i, &
+         o_pr_lsc_l, o_pr_lsc_i, o_re, o_fl, &
+         o_rh2m, o_rh2m_min, o_rh2m_max, &
+         o_qsat2m, o_tpot, o_tpote, o_SWnetOR, &
+         o_SWdownOR, o_LWdownOR, o_snowl, &
+         o_solldown, o_dtsvdfo, o_dtsvdft, &
+         o_dtsvdfg, o_dtsvdfi, o_z0m, o_z0h, o_od550aer, &
+         o_od865aer, o_absvisaer, o_od550lt1aer, &
+         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_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, &
+         o_swsrfas_ant, o_swtoacs_ant, &
+         o_swsrfcs_ant, o_swtoacf_nat, &
+         o_swsrfcf_nat, o_swtoacf_ant, &
+         o_swsrfcs_nat, o_swsrfcf_ant, &
+         o_swtoacf_zero, o_swsrfcf_zero, &
+         o_topswai, o_solswai, o_scdnc, &
+         o_cldncl, o_reffclws, o_reffclwc, o_stratomask,&
+         o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, &
+         o_lcc3dstra, o_reffclwtop, o_ec550aer, &
+         o_lwcon, o_iwcon, o_temp, o_theta, &
+         o_ovapinit, o_ovap, o_oliq, o_ocond, o_geop, &
+         o_vitu, o_vitv, o_vitw, o_pres, o_paprs, &
+         o_zfull, o_zhalf, o_rneb, o_rnebjn, o_rnebcon, &
+         o_rnebls, o_rhum, o_ozone, o_ozone_light, &
+         o_dtphy, o_dqphy, o_dqphy2d, o_dqlphy, o_dqlphy2d, &
+         o_dqsphy, o_dqsphy2d, o_albe_srf, o_z0m_srf, o_z0h_srf, &
+         o_ages_srf, o_snow_srf, o_alb1, o_alb2, o_tke, &
+         o_tke_max, o_kz, o_kz_max, o_clwcon, &
+         o_dtdyn, o_dqdyn, o_dqdyn2d, o_dqldyn, o_dqldyn2d, & 
+         o_dqsdyn, o_dqsdyn2d, o_dudyn, o_dvdyn, &
+         o_dtcon, o_tntc, o_ducon, o_dvcon, &
+         o_dqcon, o_dqcon2d, o_tnhusc, o_tnhusc, o_dtlsc, &
+         o_dtlschr, o_dqlsc, o_dqlsc2d, o_beta_prec, &
+         o_dtlscth, o_dtlscst, o_dqlscth, o_dqlscth2d, &
+         o_dqlscst, o_dqlscst2d, o_plulth, o_plulst, &
+         o_ptconvth, o_lmaxth, o_dtvdf, &
+         o_dtdis, o_dqvdf, o_dqvdf2d, o_dteva, o_dqeva, o_dqeva2d, &
+         o_ptconv, o_ratqs, o_dtthe, & 
+         o_duthe, o_dvthe, o_ftime_th, &
+         o_f_th, o_e_th, o_w_th, o_q_th, &
+         o_a_th, o_d_th, o_f0_th, o_zmax_th, &
+         o_dqthe, o_dqthe2d, o_dtajs, o_dqajs, o_dqajs2d, o_dtswr, &
+         o_dtsw0, o_dtlwr, o_dtlw0, o_dtec, &
+         o_duvdf, o_dvvdf, o_duoro, o_dvoro, &
+         o_dtoro, o_dulif, o_dvlif, o_dtlif, &
+         o_du_gwd_hines, o_dv_gwd_hines, o_dthin, o_dqch4, o_rsu, &
+         o_du_gwd_front, o_dv_gwd_front, &
+         o_east_gwstress, o_west_gwstress, &
+         o_rsd, o_rlu, o_rld, o_rsucs, o_rsdcs, &
+         o_rlucs, o_rldcs, o_tnt, o_tntr, &
+         o_tntscpbl, o_tnhus, o_tnhusscpbl, &
+         o_evu, o_h2o, o_mcd, o_dmc, o_ref_liq, &
+         o_ref_ice, o_rsut4co2, o_rlut4co2, &
+         o_rsutcs4co2, o_rlutcs4co2, o_rsu4co2, &
+         o_rlu4co2, o_rsucs4co2, o_rlucs4co2, &
+         o_rsd4co2, o_rld4co2, o_rsdcs4co2, &
+         o_rldcs4co2, o_tnondef, o_ta, o_zg, &
+         o_hus, o_hur, o_ua, o_va, o_wap, &
+         o_psbg, o_tro3, o_tro3_daylight, &
+         o_uxv, o_vxq, o_vxT, o_wxq, o_vxphi, &
+         o_wxT, o_uxu, o_vxv, o_TxT, o_trac, &
+         o_dtr_vdf, o_dtr_the, o_dtr_con, &
+         o_dtr_lessi_impa, o_dtr_lessi_nucl, &
+         o_dtr_insc, o_dtr_bcscav, o_dtr_evapls, &
+         o_dtr_ls, o_dtr_trsp, o_dtr_sscav, &
+         o_dtr_sat, o_dtr_uscav, o_trac_cum, o_du_gwd_rando, o_dv_gwd_rando, &
+         o_ustr_gwd_hines,o_vstr_gwd_hines,o_ustr_gwd_rando,o_vstr_gwd_rando, &
+         o_ustr_gwd_front,o_vstr_gwd_front, &
+         o_sens_prec_liq_oce, o_sens_prec_liq_sic, &
+         o_sens_prec_sol_oce, o_sens_prec_sol_sic, &
+         o_lat_prec_liq_oce, o_lat_prec_liq_sic, &
+         o_lat_prec_sol_oce, o_lat_prec_sol_sic, &
+! Marine
+         o_map_prop_hc, o_map_prop_hist, o_map_emis_hc, o_map_iwp_hc, &
+         o_map_deltaz_hc, o_map_pcld_hc, o_map_tcld_hc, &
+         o_map_emis_hist, o_map_iwp_hist, o_map_deltaz_hist, &
+         o_map_rad_hist, &
+         o_map_emis_Cb, o_map_pcld_Cb, o_map_tcld_Cb, &
+         o_map_emis_ThCi, o_map_pcld_ThCi, o_map_tcld_ThCi, &
+         o_map_emis_Anv, o_map_pcld_Anv, o_map_tcld_Anv, &
+         o_map_ntot, o_map_hc,o_map_hist,o_map_Cb,o_map_ThCi,o_map_Anv, &
+         o_alt_tropo
+
+
+    USE phys_state_var_mod, only: pctsrf, paire_ter, rain_fall, snow_fall, &
+         qsol, z0m, z0h, fevap, agesno, &
+         nday_rain, rain_con, snow_con, &
+         topsw, toplw, toplw0, swup, swdn, &
+         topsw0, swup0, swdn0, SWup200, SWup200clr, &
+         SWdn200, SWdn200clr, LWup200, LWup200clr, &
+         LWdn200, LWdn200clr, solsw, solsw0, sollw, &
+         radsol, swradcorr, sollw0, sollwdown, sollw, gustiness, &
+         sollwdownclr, lwdn0, ftsol, ustar, u10m, &
+         v10m, pbl_tke, wake_delta_pbl_TKE, &
+         delta_tsurf, &
+         wstar, cape, ema_pcb, ema_pct, &
+         ema_cbmf, Ma, fm_therm, ale_bl, alp_bl, ale, &
+         alp, cin, wake_pe, wake_s, wake_deltat, &
+         wake_deltaq, ftd, fqd, ale_bl_trig, albsol1, &
+         rnebcon, wo, falb1, albsol2, coefh, clwcon0, &
+         ratqs, entr_therm, zqasc, detr_therm, f0, &
+         lwup, lwdn, lwup0, coefm, &
+         swupp, lwupp, swup0p, lwup0p, swdnp, lwdnp, &
+         swdn0p, lwdn0p, tnondef, O3sumSTD, uvsumSTD, &
+         vqsumSTD, vTsumSTD, O3daysumSTD, wqsumSTD, &
+         vphisumSTD, wTsumSTD, u2sumSTD, v2sumSTD, &
+         T2sumSTD, nlevSTD, du_gwd_rando, du_gwd_front, &
+         ulevSTD, vlevSTD, wlevSTD, philevSTD, qlevSTD, tlevSTD, &
+         rhlevSTD, O3STD, O3daySTD, uvSTD, vqSTD, vTSTD, wqSTD, &
+         vphiSTD, wTSTD, u2STD, v2STD, T2STD, missing_val_nf90
+
+    USE phys_local_var_mod, only: zxfluxlat, slp, ptstar, pt0, zxtsol, zt2m, &
+         t2m_min_mon, t2m_max_mon, evap, &
+         l_mixmin,l_mix, &
+         zu10m, zv10m, zq2m, zustar, zxqsurf, &
+         rain_lsc, rain_num, snow_lsc, bils, sens, fder, &
+         zxffonte, zxfqcalving, zxfqfonte, zxrunofflic, fluxu, &
+         fluxv, zxsnow, qsnow, snowhgt, to_ice, &
+         sissnow, runoff, albsol3_lic, evap_pot, &
+         t2m, fluxt, fluxlat, fsollw, fsolsw, &
+         wfbils, wfbilo, cdragm, cdragh, cldl, cldm, &
+         cldh, cldt, JrNt, cldljn, cldmjn, cldhjn, &
+         cldtjn, cldq, flwp, fiwp, ue, ve, uq, vq, &
+         plcl, plfc, wbeff, upwd, dnwd, dnwd0, prw, prlw, prsw, &
+         s_pblh, s_pblt, s_lcl, s_therm, uwriteSTD, &
+         vwriteSTD, wwriteSTD, phiwriteSTD, qwriteSTD, &
+         twriteSTD, ale_wake, alp_wake, &
+         dtvdf_x    ,dtvdf_w    ,dqvdf_x    ,dqvdf_w    , &
+         sens_x     ,sens_w     ,zxfluxlat_x,zxfluxlat_w, &
+         cdragh_x   ,cdragh_w   ,cdragm_x   ,cdragm_w   , &
+         kh         ,kh_x       ,kh_w       , &
+         wake_h, &
+         wake_omg, d_t_wake, d_q_wake, Vprecip, &
+         wdtrainA, wdtrainM, n2, s2, proba_notrig, &
+         random_notrig, ale_bl_stat, &
+         alp_bl_det, alp_bl_fluct_m, alp_bl_conv, &
+         alp_bl_stat, alp_bl_fluct_tke, slab_wfbils, &
+         weak_inversion, dthmin, cldtau, cldemi, &
+         pmflxr, pmflxs, prfl, psfl, re, fl, rh2m, &
+         qsat2m, tpote, tpot, d_ts, od550aer, &
+         od865aer, absvisaer, od550lt1aer, sconcso4, sconcno3, &
+         sconcoa, sconcbc, sconcss, sconcdust, concso4, concno3, &
+         concoa, concbc, concss, concdust, loadso4, &
+         loadoa, loadbc, loadss, loaddust, tausum_aero, &
+         topswad_aero, topswad0_aero, solswad_aero, &
+         solswad0_aero, topsw_aero, solsw_aero, &
+         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, stratomask,&
+         lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop, &
+         ec550aer, flwc, fiwc, t_seri, theta, q_seri, &
+         ql_seri, qs_seri, tr_seri, &
+         zphi, u_seri, v_seri, omega, cldfra, &
+         rneb, rnebjn, zx_rh, d_t_dyn,  & 
+         d_q_dyn,  d_ql_dyn, d_qs_dyn, &
+         d_q_dyn2d,  d_ql_dyn2d, d_qs_dyn2d, &
+         d_u_dyn, d_v_dyn, d_t_con, d_t_ajsb, d_t_ajs, &
+         d_u_ajs, d_v_ajs, &
+         d_u_con, d_v_con, d_q_con, d_q_ajs, d_t_lsc, &
+         d_t_lwr,d_t_lw0,d_t_swr,d_t_sw0, &
+         d_t_eva, d_q_lsc, beta_prec, d_t_lscth, &
+         d_t_lscst, d_q_lscth, d_q_lscst, plul_th, &
+         plul_st, d_t_vdf, d_t_diss, d_q_vdf, d_q_eva, &
+         zw2, fraca, zmax_th, d_q_ajsb, d_t_ec, d_u_vdf, &
+         d_v_vdf, d_u_oro, d_v_oro, d_t_oro, d_u_lif, &
+         d_v_lif, d_t_lif, du_gwd_hines, dv_gwd_hines, d_t_hin, &
+         dv_gwd_rando, dv_gwd_front, &
+         east_gwstress, west_gwstress, &
+         d_q_ch4, pmfd, pmfu, ref_liq, ref_ice, rhwriteSTD, &
+         ep, epmax_diag ! epmax_cape
+
+    USE phys_output_var_mod, only: vars_defined, snow_o, zfra_o, bils_diss, &
+         bils_ec,bils_ech, bils_tke, bils_kinetic, bils_latent, bils_enthalp, &
+         itau_con, nfiles, clef_files, nid_files, &
+         zustr_gwd_hines, zvstr_gwd_hines,zustr_gwd_rando, zvstr_gwd_rando, &
+         zustr_gwd_front, zvstr_gwd_front,     &
+         sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o, &
+! Marine
+         map_prop_hc, map_prop_hist, &
+         map_emis_hc,map_iwp_hc,map_deltaz_hc,&
+         map_pcld_hc,map_tcld_hc,&
+         map_emis_hist,map_iwp_hist,map_deltaz_hist,&
+         map_rad_hist,&
+         map_ntot,map_hc,map_hist,&
+         map_Cb,map_ThCi,map_Anv,&
+         map_emis_Cb,map_pcld_Cb,map_tcld_Cb,&
+         map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi,&
+         map_emis_Anv,map_pcld_Anv,map_tcld_Anv, &
+         alt_tropo
+
+  
+
+    USE ocean_slab_mod, only: tslab, slab_bils, slab_bilg, tice, seaice
+    USE pbl_surface_mod, only: snow
+    USE indice_sol_mod, only: nbsrf
+    USE infotrac_phy, only: nqtot, nqo, type_trac
+    USE geometry_mod, only: cell_area
+    USE surface_data, only: type_ocean, version_ocean, ok_veget, ok_snow
+!    USE aero_mod, only: naero_spc
+    USE aero_mod, only: naero_tot, id_STRAT_phy
+    USE ioipsl, only: histend, histsync
+    USE iophy, only: set_itau_iophy, histwrite_phy
+    USE netcdf, only: nf90_fill_real
+    USE print_control_mod, ONLY: prt_level,lunout
+
+
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+    USE xios, ONLY: xios_update_calendar
+    USE wxios, only: wxios_closedef, missing_val
+#endif
+    USE phys_cal_mod, only : mth_len
+
+
+    IMPLICIT NONE
+
+
+    INCLUDE "clesphys.h"
+    INCLUDE "thermcell.h"
+    INCLUDE "compbl.h"
+    INCLUDE "YOMCST.h"
+
+    ! Input
+    INTEGER :: itap, ivap, iliq, isol, read_climoz
+    INTEGER, DIMENSION(klon) :: lmax_th
+    LOGICAL :: aerosol_couple, ok_sync
+    LOGICAL :: ok_ade, ok_aie, new_aod
+    LOGICAL, DIMENSION(klon, klev) :: ptconv, ptconvth
+    REAL :: pdtphys
+    CHARACTER (LEN=4), DIMENSION(nlevSTD) :: clevSTD
+    REAL, DIMENSION(klon,nlevSTD) :: zx_tmp_fi3d_STD
+    REAL, DIMENSION(klon) :: pphis
+    REAL, DIMENSION(klon, klev) :: pplay, d_t
+    REAL, DIMENSION(klon, klev+1) :: paprs
+    REAL, DIMENSION(klon,klev,nqtot) :: qx, d_qx
+    REAL, DIMENSION(klon, klev) :: zmasse
+    INTEGER :: flag_aerosol_strat
+    INTEGER :: flag_aerosol 
+    LOGICAL :: ok_cdnc
+    REAL, DIMENSION(3) :: freq_moyNMC
+
+    ! Local
+    INTEGER :: itau_w
+    INTEGER :: i, iinit, iinitend=1, iff, iq, nsrf, k, ll, naero
+    REAL, DIMENSION (klon) :: zx_tmp_fi2d
+    REAL, DIMENSION (klon,klev) :: zx_tmp_fi3d, zpt_conv
+    REAL, DIMENSION (klon,klev+1) :: zx_tmp_fi3d1
+    CHARACTER (LEN=4)              :: bb2
+    INTEGER, DIMENSION(nbp_lon*nbp_lat)  :: ndex2d
+    INTEGER, DIMENSION(nbp_lon*nbp_lat*klev) :: ndex3d
+    REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
+!   REAL, PARAMETER :: missing_val=nf90_fill_real
+#ifndef CPP_XIOS
+    REAL :: missing_val
+#endif
+    REAL, PARAMETER :: un_jour=86400.
+
+    ! On calcul le nouveau tau:
+    itau_w = itau_phy + itap 
+    ! On le donne à iophy pour que les histwrite y aient accès:
+    CALL set_itau_iophy(itau_w)
+
+    IF(.NOT.vars_defined) 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
+       !$OMP MASTER
+       IF (vars_defined) THEN
+          if (prt_level >= 10) then
+             write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w
+          endif
+!          CALL xios_update_calendar(itau_w)
+          CALL xios_update_calendar(itap)
+       END IF
+       !$OMP END MASTER
+       !$OMP BARRIER
+#endif
+       ! On procède à l'écriture ou à la définition des nombreuses variables:
+!!! Champs 1D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       CALL histwrite_phy(o_phis, pphis)
+
+       zx_tmp_fi2d = cell_area
+       if (is_north_pole_phy) then
+         zx_tmp_fi2d(1) = cell_area(1)/nbp_lon
+       endif
+       if (is_south_pole_phy) then
+         zx_tmp_fi2d(klon) = cell_area(klon)/nbp_lon
+       endif
+       CALL histwrite_phy(o_aire, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          DO i=1, klon
+             zx_tmp_fi2d(i)=pctsrf(i,is_ter)+pctsrf(i,is_lic)
+          ENDDO
+       ENDIF
+
+       CALL histwrite_phy(o_contfracATM, zx_tmp_fi2d)
+       CALL histwrite_phy(o_contfracOR, pctsrf(:,is_ter))
+       CALL histwrite_phy(o_aireTER, paire_ter)
+!!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Simulateur AIRS
+     IF (ok_airs) then
+      CALL histwrite_phy(o_alt_tropo,alt_tropo)
+ 
+      CALL histwrite_phy(o_map_prop_hc,map_prop_hc)
+      CALL histwrite_phy(o_map_prop_hist,map_prop_hist)
+
+      CALL histwrite_phy(o_map_emis_hc,map_emis_hc)
+      CALL histwrite_phy(o_map_iwp_hc,map_iwp_hc)
+      CALL histwrite_phy(o_map_deltaz_hc,map_deltaz_hc)
+      CALL histwrite_phy(o_map_pcld_hc,map_pcld_hc)
+      CALL histwrite_phy(o_map_tcld_hc,map_tcld_hc)
+
+      CALL histwrite_phy(o_map_emis_hist,map_emis_hist)
+      CALL histwrite_phy(o_map_iwp_hist,map_iwp_hist)
+      CALL histwrite_phy(o_map_deltaz_hist,map_deltaz_hist)
+
+      CALL histwrite_phy(o_map_ntot,map_ntot)
+      CALL histwrite_phy(o_map_hc,map_hc)
+      CALL histwrite_phy(o_map_hist,map_hist)
+
+      CALL histwrite_phy(o_map_Cb,map_Cb)
+      CALL histwrite_phy(o_map_ThCi,map_ThCi)
+      CALL histwrite_phy(o_map_Anv,map_Anv)
+
+      CALL histwrite_phy(o_map_emis_Cb,map_emis_Cb)
+      CALL histwrite_phy(o_map_pcld_Cb,map_pcld_Cb)
+      CALL histwrite_phy(o_map_tcld_Cb,map_tcld_Cb)
+
+      CALL histwrite_phy(o_map_emis_ThCi,map_emis_ThCi)
+      CALL histwrite_phy(o_map_pcld_ThCi,map_pcld_ThCi)
+      CALL histwrite_phy(o_map_tcld_ThCi,map_tcld_ThCi)
+
+      CALL histwrite_phy(o_map_emis_Anv,map_emis_Anv)
+      CALL histwrite_phy(o_map_pcld_Anv,map_pcld_Anv)
+      CALL histwrite_phy(o_map_tcld_Anv,map_tcld_Anv)
+     ENDIF
+
+       CALL histwrite_phy(o_flat, zxfluxlat)
+       CALL histwrite_phy(o_ptstar, ptstar)
+       CALL histwrite_phy(o_pt0, pt0)
+       CALL histwrite_phy(o_slp, slp)
+       CALL histwrite_phy(o_tsol, zxtsol)
+       CALL histwrite_phy(o_t2m, zt2m)
+       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
+          DO i=1, klon
+             zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i))
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_wind10m, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          DO i=1, klon
+             zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i))
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_wind10max, zx_tmp_fi2d)
+
+       CALL histwrite_phy(o_gusts, gustiness)
+
+       IF (vars_defined) THEN
+          DO i = 1, klon
+             zx_tmp_fi2d(i) = pctsrf(i,is_sic)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_sicf, zx_tmp_fi2d)
+       CALL histwrite_phy(o_q2m, zq2m)
+       CALL histwrite_phy(o_ustar, zustar)
+       CALL histwrite_phy(o_u10m, zu10m)
+       CALL histwrite_phy(o_v10m, zv10m)
+
+       IF (vars_defined) THEN
+          DO i = 1, klon
+             zx_tmp_fi2d(i) = paprs(i,1)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_psol, zx_tmp_fi2d)
+       CALL histwrite_phy(o_mass, zmasse)
+       CALL histwrite_phy(o_qsurf, zxqsurf)
+
+       IF (.NOT. ok_veget) THEN
+          CALL histwrite_phy(o_qsol, qsol)
+       ENDIF
+
+       IF (vars_defined) THEN
+          DO i = 1, klon
+             zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
+          ENDDO
+       ENDIF
+
+       CALL histwrite_phy(o_precip, zx_tmp_fi2d)
+       CALL histwrite_phy(o_ndayrain, nday_rain)
+
+       ! epmax_cape:
+!       CALL histwrite_phy(o_epmax_diag, epmax_diag)
+       CALL histwrite_phy(o_ep, ep)
+
+       IF (vars_defined) THEN
+          DO i = 1, klon
+             zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_plul, zx_tmp_fi2d)
+       CALL histwrite_phy(o_plun, rain_num)
+
+       IF (vars_defined) THEN
+          DO i = 1, klon
+             zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_pluc, zx_tmp_fi2d)
+       CALL histwrite_phy(o_snow, snow_fall)
+       CALL histwrite_phy(o_msnow, zxsnow)
+       CALL histwrite_phy(o_fsnow, zfra_o)
+       CALL histwrite_phy(o_evap, evap)
+       CALL histwrite_phy(o_tops, topsw*swradcorr)
+       CALL histwrite_phy(o_tops0, topsw0*swradcorr)
+       CALL histwrite_phy(o_topl, toplw)
+       CALL histwrite_phy(o_topl0, toplw0)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swup(:,klevp1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWupTOA, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swup0(:,klevp1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWupTOAclr, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swdn(:,klevp1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWdnTOA, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swdn0(:,klevp1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWdnTOAclr, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = topsw(:)*swradcorr(:)-toplw(:)
+       ENDIF
+       CALL histwrite_phy(o_nettop, zx_tmp_fi2d)
+       CALL histwrite_phy(o_SWup200, SWup200*swradcorr)
+       CALL histwrite_phy(o_SWup200clr, SWup200clr*swradcorr)
+       CALL histwrite_phy(o_SWdn200, SWdn200*swradcorr)
+       CALL histwrite_phy(o_SWdn200clr, SWdn200clr*swradcorr)
+       CALL histwrite_phy(o_LWup200, LWup200)
+       CALL histwrite_phy(o_LWup200clr, LWup200clr)
+       CALL histwrite_phy(o_LWdn200, LWdn200)
+       CALL histwrite_phy(o_LWdn200clr, LWdn200clr)
+       CALL histwrite_phy(o_sols, solsw*swradcorr)
+       CALL histwrite_phy(o_sols0, solsw0*swradcorr)
+       CALL histwrite_phy(o_soll, sollw)
+       CALL histwrite_phy(o_soll0, sollw0)
+       CALL histwrite_phy(o_radsol, radsol)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swup(:,1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWupSFC, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swup0(:,1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWupSFCclr, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swdn(:,1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWdnSFC, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:) = swdn0(:,1)*swradcorr(:)
+       ENDIF
+       CALL histwrite_phy(o_SWdnSFCclr, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(:)=sollwdown(:)-sollw(:)
+       ENDIF
+       CALL histwrite_phy(o_LWupSFC, zx_tmp_fi2d)
+       CALL histwrite_phy(o_LWdnSFC, sollwdown)
+
+       IF (vars_defined) THEN
+          sollwdownclr(1:klon) = -1.*lwdn0(1:klon,1)
+          zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon)
+       ENDIF
+       CALL histwrite_phy(o_LWupSFCclr, zx_tmp_fi2d)
+       CALL histwrite_phy(o_LWdnSFCclr, sollwdownclr)
+       CALL histwrite_phy(o_bils, bils)
+       CALL histwrite_phy(o_bils_diss, bils_diss)
+       CALL histwrite_phy(o_bils_ec, bils_ec)
+       IF (iflag_ener_conserv>=1) THEN
+         CALL histwrite_phy(o_bils_ech, bils_ech)
+       ENDIF
+       CALL histwrite_phy(o_bils_tke, bils_tke)
+       CALL histwrite_phy(o_bils_kinetic, bils_kinetic)
+       CALL histwrite_phy(o_bils_latent, bils_latent)
+       CALL histwrite_phy(o_bils_enthalp, bils_enthalp)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
+       ENDIF
+       CALL histwrite_phy(o_sens, zx_tmp_fi2d)
+       CALL histwrite_phy(o_fder, fder)
+       CALL histwrite_phy(o_ffonte, zxffonte)
+       CALL histwrite_phy(o_fqcalving, zxfqcalving)
+       CALL histwrite_phy(o_fqfonte, zxfqfonte)
+       CALL histwrite_phy(o_runofflic, zxrunofflic)
+       IF (vars_defined) THEN
+          zx_tmp_fi2d=0.
+          DO nsrf=1,nbsrf
+             zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+pctsrf(:,nsrf)*fluxu(:,1,nsrf)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_taux, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi2d=0.
+          DO nsrf=1,nbsrf
+             zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+pctsrf(:,nsrf)*fluxv(:,1,nsrf)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_tauy, zx_tmp_fi2d)
+
+       IF (ok_snow) THEN
+          CALL histwrite_phy(o_snowsrf, snow_o)
+          CALL histwrite_phy(o_qsnow, qsnow)
+          CALL histwrite_phy(o_snowhgt,snowhgt)
+          CALL histwrite_phy(o_toice,to_ice)
+          CALL histwrite_phy(o_sissnow,sissnow)
+          CALL histwrite_phy(o_runoff,runoff)
+          CALL histwrite_phy(o_albslw3,albsol3_lic)
+       ENDIF
+
+       DO nsrf = 1, nbsrf
+          IF (vars_defined)             zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
+          CALL histwrite_phy(o_pourc_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)           zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
+          CALL histwrite_phy(o_fract_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
+          CALL histwrite_phy(o_taux_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
+          CALL histwrite_phy(o_tauy_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
+          CALL histwrite_phy(o_tsol_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = evap_pot( 1 : klon, nsrf)
+          CALL histwrite_phy(o_evappot_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)       zx_tmp_fi2d(1 : klon) = ustar(1 : klon, nsrf)
+          CALL histwrite_phy(o_ustar_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)       zx_tmp_fi2d(1 : klon) = u10m(1 : klon, nsrf)
+          CALL histwrite_phy(o_u10m_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)       zx_tmp_fi2d(1 : klon) = v10m(1 : klon, nsrf)
+          CALL histwrite_phy(o_v10m_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)       zx_tmp_fi2d(1 : klon) = t2m(1 : klon, nsrf)
+          CALL histwrite_phy(o_t2m_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)       zx_tmp_fi2d(1 : klon) = fevap(1 : klon, nsrf)
+          CALL histwrite_phy(o_evap_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
+          CALL histwrite_phy(o_sens_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
+          CALL histwrite_phy(o_lat_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf)
+          CALL histwrite_phy(o_flw_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf)
+          CALL histwrite_phy(o_fsw_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf)
+          CALL histwrite_phy(o_wbils_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined)         zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf)
+          CALL histwrite_phy(o_wbilo_srf(nsrf), zx_tmp_fi2d)
+
+          IF (iflag_pbl > 1) THEN
+             CALL histwrite_phy(o_tke_srf(nsrf),  pbl_tke(:,1:klev,nsrf))
+             CALL histwrite_phy(o_l_mix(nsrf),  l_mix(:,1:klev,nsrf))
+             CALL histwrite_phy(o_l_mixmin(nsrf),  l_mixmin(:,1:klev,nsrf))
+             CALL histwrite_phy(o_tke_max_srf(nsrf),  pbl_tke(:,1:klev,nsrf))
+          ENDIF
+!jyg<
+          IF (iflag_pbl > 1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) THEN
+             CALL histwrite_phy(o_dltpbltke_srf(nsrf), wake_delta_pbl_TKE(:,1:klev,nsrf))
+          ENDIF
+!>jyg
+
+       ENDDO
+
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = sens_prec_liq_o(1 : klon, 1)
+       CALL histwrite_phy(o_sens_prec_liq_oce, zx_tmp_fi2d)       
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = sens_prec_liq_o(1 : klon, 2)
+       CALL histwrite_phy(o_sens_prec_liq_sic, zx_tmp_fi2d)       
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = sens_prec_sol_o(1 : klon, 1)
+       CALL histwrite_phy(o_sens_prec_sol_oce, zx_tmp_fi2d)       
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = sens_prec_sol_o(1 : klon, 2)
+       CALL histwrite_phy(o_sens_prec_sol_sic, zx_tmp_fi2d)       
+
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = lat_prec_liq_o(1 : klon, 1)
+       CALL histwrite_phy(o_lat_prec_liq_oce, zx_tmp_fi2d)       
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = lat_prec_liq_o(1 : klon, 2)
+       CALL histwrite_phy(o_lat_prec_liq_sic, zx_tmp_fi2d)       
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = lat_prec_sol_o(1 : klon, 1)
+       CALL histwrite_phy(o_lat_prec_sol_oce, zx_tmp_fi2d)       
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = lat_prec_sol_o(1 : klon, 2)
+       CALL histwrite_phy(o_lat_prec_sol_sic, zx_tmp_fi2d)       
+
+       DO nsrf=1,nbsrf+1
+          CALL histwrite_phy(o_wstar(nsrf), wstar(1 : klon, nsrf))
+       ENDDO
+
+       CALL histwrite_phy(o_cdrm, cdragm)
+       CALL histwrite_phy(o_cdrh, cdragh)
+       CALL histwrite_phy(o_cldl, cldl)
+       CALL histwrite_phy(o_cldm, cldm)
+       CALL histwrite_phy(o_cldh, cldh)
+       CALL histwrite_phy(o_cldt, cldt)
+       CALL histwrite_phy(o_JrNt, JrNt)
+       CALL histwrite_phy(o_cldljn, cldl*JrNt)
+       CALL histwrite_phy(o_cldmjn, cldm*JrNt)
+       CALL histwrite_phy(o_cldhjn, cldh*JrNt)
+       CALL histwrite_phy(o_cldtjn, cldt*JrNt)
+       CALL histwrite_phy(o_cldq, cldq)
+       IF (vars_defined)       zx_tmp_fi2d(1:klon) = flwp(1:klon)
+       CALL histwrite_phy(o_lwp, zx_tmp_fi2d)
+       IF (vars_defined)       zx_tmp_fi2d(1:klon) = fiwp(1:klon)
+       CALL histwrite_phy(o_iwp, zx_tmp_fi2d)
+       CALL histwrite_phy(o_ue, ue)
+       CALL histwrite_phy(o_ve, ve)
+       CALL histwrite_phy(o_uq, uq)
+       CALL histwrite_phy(o_vq, vq)
+       IF(iflag_con.GE.3) THEN ! sb
+          CALL histwrite_phy(o_cape, cape)
+          CALL histwrite_phy(o_pbase, ema_pcb)
+          CALL histwrite_phy(o_ptop, ema_pct)
+          CALL histwrite_phy(o_fbase, ema_cbmf)
+          if (iflag_con /= 30) then
+             CALL histwrite_phy(o_plcl, plcl)
+             CALL histwrite_phy(o_plfc, plfc)
+             CALL histwrite_phy(o_wbeff, wbeff)
+          end if
+
+          CALL histwrite_phy(o_cape_max, cape)
+
+          CALL histwrite_phy(o_upwd, upwd)
+          CALL histwrite_phy(o_Ma, Ma)
+          CALL histwrite_phy(o_dnwd, dnwd)
+          CALL histwrite_phy(o_dnwd0, dnwd0)
+          IF (vars_defined)         zx_tmp_fi2d=float(itau_con)/float(itap)
+          CALL histwrite_phy(o_ftime_con, zx_tmp_fi2d)
+          IF (vars_defined) THEN
+             IF(iflag_thermals>=1)THEN
+                zx_tmp_fi3d=dnwd+dnwd0+upwd+fm_therm(:,1:klev)
+             ELSE
+                zx_tmp_fi3d=dnwd+dnwd0+upwd
+             ENDIF
+          ENDIF
+          CALL histwrite_phy(o_mc, zx_tmp_fi3d)
+       ENDIF !iflag_con .GE. 3
+       CALL histwrite_phy(o_prw, prw)
+       CALL histwrite_phy(o_prlw, prlw)
+       CALL histwrite_phy(o_prsw, prsw)
+       CALL histwrite_phy(o_s_pblh, s_pblh)
+       CALL histwrite_phy(o_s_pblt, s_pblt)
+       CALL histwrite_phy(o_s_lcl, s_lcl)
+       CALL histwrite_phy(o_s_therm, s_therm)
+       !IM : Les champs suivants (s_capCL, s_oliqCL, s_cteiCL, s_trmb1, s_trmb2, s_trmb3) ne sont pas definis dans HBTM.F
+       !       IF (o_s_capCL%flag(iff)<=lev_files(iff)) THEN
+       !     CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+       !    $o_s_capCL%name,itau_w,s_capCL)
+       !       ENDIF
+       !       IF (o_s_oliqCL%flag(iff)<=lev_files(iff)) THEN
+       !     CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+       !    $o_s_oliqCL%name,itau_w,s_oliqCL)
+       !       ENDIF
+       !       IF (o_s_cteiCL%flag(iff)<=lev_files(iff)) THEN
+       !     CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+       !    $o_s_cteiCL%name,itau_w,s_cteiCL)
+       !       ENDIF
+       !       IF (o_s_trmb1%flag(iff)<=lev_files(iff)) THEN
+       !     CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+       !    $o_s_trmb1%name,itau_w,s_trmb1)
+       !       ENDIF
+       !       IF (o_s_trmb2%flag(iff)<=lev_files(iff)) THEN
+       !     CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+       !    $o_s_trmb2%name,itau_w,s_trmb2)
+       !       ENDIF
+       !       IF (o_s_trmb3%flag(iff)<=lev_files(iff)) THEN
+       !     CALL histwrite_phy(nid_files(iff),clef_stations(iff),
+       !    $o_s_trmb3%name,itau_w,s_trmb3)
+       !       ENDIF
+
+#ifdef CPP_IOIPSL
+#ifndef CPP_XIOS
+  IF (.NOT.ok_all_xml) THEN
+       ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:
+       ! Champs interpolles sur des niveaux de pression
+       missing_val=missing_val_nf90
+       DO iff=1, nfiles
+          ll=0
+          DO k=1, nlevSTD
+             bb2=clevSTD(k) 
+             IF(bb2.EQ."850".OR.bb2.EQ."700".OR. &
+                  bb2.EQ."500".OR.bb2.EQ."200".OR. &
+                  bb2.EQ."100".OR. &
+                  bb2.EQ."50".OR.bb2.EQ."10") THEN
+
+                ! a refaire correctement !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+                ll=ll+1
+                CALL histwrite_phy(o_uSTDlevs(ll),uwriteSTD(:,k,iff), iff)
+                CALL histwrite_phy(o_vSTDlevs(ll),vwriteSTD(:,k,iff), iff)
+                CALL histwrite_phy(o_wSTDlevs(ll),wwriteSTD(:,k,iff), iff)
+                CALL histwrite_phy(o_zSTDlevs(ll),phiwriteSTD(:,k,iff), iff)
+                CALL histwrite_phy(o_qSTDlevs(ll),qwriteSTD(:,k,iff), iff)
+                CALL histwrite_phy(o_tSTDlevs(ll),twriteSTD(:,k,iff), iff)
+
+             ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.
+          ENDDO
+       ENDDO
+  ENDIF
+#endif
+#endif
+#ifdef CPP_XIOS
+  IF(ok_all_xml) THEN
+!XIOS  CALL xios_get_field_attr("u850",default_value=missing_val)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          ll=0
+          DO k=1, nlevSTD
+             bb2=clevSTD(k) 
+             IF(bb2.EQ."850".OR.bb2.EQ."700".OR. &
+                bb2.EQ."500".OR.bb2.EQ."200".OR. &
+                bb2.EQ."100".OR. &
+                bb2.EQ."50".OR.bb2.EQ."10") THEN
+                ll=ll+1
+                CALL histwrite_phy(o_uSTDlevs(ll),ulevSTD(:,k))
+                CALL histwrite_phy(o_vSTDlevs(ll),vlevSTD(:,k))
+                CALL histwrite_phy(o_wSTDlevs(ll),wlevSTD(:,k))
+                CALL histwrite_phy(o_zSTDlevs(ll),philevSTD(:,k))
+                CALL histwrite_phy(o_qSTDlevs(ll),qlevSTD(:,k))
+                CALL histwrite_phy(o_tSTDlevs(ll),tlevSTD(:,k))
+             ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.
+          ENDDO
+  ENDIF
+#endif
+       IF (vars_defined) THEN
+          DO i=1, klon
+             IF (pctsrf(i,is_oce).GT.epsfra.OR. &
+                  pctsrf(i,is_sic).GT.epsfra) THEN
+                zx_tmp_fi2d(i) = (ftsol(i, is_oce) * pctsrf(i,is_oce)+ &
+                     ftsol(i, is_sic) * pctsrf(i,is_sic))/ &
+                     (pctsrf(i,is_oce)+pctsrf(i,is_sic))
+             ELSE
+                zx_tmp_fi2d(i) = 273.15
+             ENDIF
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_t_oce_sic, zx_tmp_fi2d)
+
+       ! Couplage convection-couche limite
+       IF (iflag_con.GE.3) THEN
+          IF (iflag_coupl>=1) THEN
+             CALL histwrite_phy(o_ale_bl, ale_bl)
+             CALL histwrite_phy(o_alp_bl, alp_bl)
+          ENDIF !iflag_coupl>=1
+       ENDIF !(iflag_con.GE.3)
+       ! Wakes
+       IF (iflag_con.EQ.3) THEN
+          IF (iflag_wake>=1) THEN
+             CALL histwrite_phy(o_ale_wk, ale_wake)
+             CALL histwrite_phy(o_alp_wk, alp_wake)
+             IF (iflag_pbl_split>=1) THEN
+               IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dtvdf_x(1:klon,1:klev)/pdtphys
+               CALL histwrite_phy(o_dtvdf_x    ,zx_tmp_fi3d) 
+               IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dtvdf_w(1:klon,1:klev)/pdtphys
+               CALL histwrite_phy(o_dtvdf_w    ,zx_tmp_fi3d) 
+               IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dqvdf_x(1:klon,1:klev)/pdtphys
+               CALL histwrite_phy(o_dqvdf_x    ,zx_tmp_fi3d) 
+               IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=dqvdf_w(1:klon,1:klev)/pdtphys
+               CALL histwrite_phy(o_dqvdf_w    ,zx_tmp_fi3d) 
+               CALL histwrite_phy(o_sens_x     ,sens_x     ) 
+               CALL histwrite_phy(o_sens_w     ,sens_w     ) 
+               CALL histwrite_phy(o_flat_x     ,zxfluxlat_x) 
+               CALL histwrite_phy(o_flat_w     ,zxfluxlat_w) 
+               CALL histwrite_phy(o_delta_tsurf,delta_tsurf) 
+               CALL histwrite_phy(o_cdragh_x   ,cdragh_x   ) 
+               CALL histwrite_phy(o_cdragh_w   ,cdragh_w   ) 
+               CALL histwrite_phy(o_cdragm_x   ,cdragm_x   ) 
+               CALL histwrite_phy(o_cdragm_w   ,cdragm_w   ) 
+               CALL histwrite_phy(o_kh         ,kh         ) 
+               CALL histwrite_phy(o_kh_x       ,kh_x       ) 
+               CALL histwrite_phy(o_kh_w       ,kh_w       ) 
+             ENDIF   ! (iflag_pbl_split>=1)
+             CALL histwrite_phy(o_ale, ale)
+             CALL histwrite_phy(o_alp, alp)
+             CALL histwrite_phy(o_cin, cin)
+             CALL histwrite_phy(o_WAPE, wake_pe)
+             CALL histwrite_phy(o_wake_h, wake_h)
+             CALL histwrite_phy(o_wake_s, wake_s)
+             CALL histwrite_phy(o_wake_deltat, wake_deltat)
+             CALL histwrite_phy(o_wake_deltaq, wake_deltaq)
+             CALL histwrite_phy(o_wake_omg, wake_omg)
+             IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev) &
+                  /pdtphys
+             CALL histwrite_phy(o_dtwak, zx_tmp_fi3d)
+             IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys
+             CALL histwrite_phy(o_dqwak, zx_tmp_fi3d)
+             CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+             CALL histwrite_phy(o_dqwak2d, zx_tmp_fi2d)
+          ENDIF ! iflag_wake>=1
+          CALL histwrite_phy(o_ftd, ftd)
+          CALL histwrite_phy(o_fqd, fqd)
+       ENDIF !(iflag_con.EQ.3)
+       IF (iflag_con.EQ.3.OR.iflag_con.EQ.30) THEN
+          ! sortie RomP convection descente insaturee iflag_con=30
+          ! etendue a iflag_con=3 (jyg)
+          CALL histwrite_phy(o_Vprecip, Vprecip)
+          CALL histwrite_phy(o_wdtrainA, wdtrainA)
+          CALL histwrite_phy(o_wdtrainM, wdtrainM)
+       ENDIF !(iflag_con.EQ.3.or.iflag_con.EQ.30)
+!!! nrlmd le 10/04/2012
+       IF (iflag_trig_bl>=1) THEN
+          CALL histwrite_phy(o_n2, n2)
+          CALL histwrite_phy(o_s2, s2)
+          CALL histwrite_phy(o_proba_notrig, proba_notrig)
+          CALL histwrite_phy(o_random_notrig, random_notrig)
+          CALL histwrite_phy(o_ale_bl_stat, ale_bl_stat)
+          CALL histwrite_phy(o_ale_bl_trig, ale_bl_trig)
+       ENDIF  !(iflag_trig_bl>=1)
+       IF (iflag_clos_bl>=1) THEN
+          CALL histwrite_phy(o_alp_bl_det, alp_bl_det)
+          CALL histwrite_phy(o_alp_bl_fluct_m, alp_bl_fluct_m)
+          CALL histwrite_phy(o_alp_bl_fluct_tke,  &
+               alp_bl_fluct_tke)
+          CALL histwrite_phy(o_alp_bl_conv, alp_bl_conv)
+          CALL histwrite_phy(o_alp_bl_stat, alp_bl_stat)
+       ENDIF  !(iflag_clos_bl>=1)
+!!! fin nrlmd le 10/04/2012
+       ! Output of slab ocean variables
+       IF (type_ocean=='slab ') THEN
+          CALL histwrite_phy(o_slab_qflux, slab_wfbils)
+          CALL histwrite_phy(o_slab_bils, slab_bils)
+          IF (nslay.EQ.1) THEN
+              zx_tmp_fi2d(:)=tslab(:,1)
+              CALL histwrite_phy(o_tslab, zx_tmp_fi2d)
+          ELSE
+              CALL histwrite_phy(o_tslab, tslab)
+          END IF
+          IF (version_ocean=='sicINT') THEN
+              CALL histwrite_phy(o_slab_bilg, slab_bilg)
+              CALL histwrite_phy(o_slab_tice, tice)
+              CALL histwrite_phy(o_slab_sic, seaice)
+          END IF
+       ENDIF !type_ocean == force/slab
+       CALL histwrite_phy(o_weakinv, weak_inversion)
+       CALL histwrite_phy(o_dthmin, dthmin)
+       CALL histwrite_phy(o_cldtau, cldtau)
+       CALL histwrite_phy(o_cldemi, cldemi)
+       CALL histwrite_phy(o_pr_con_l, pmflxr(:,1:klev))
+       CALL histwrite_phy(o_pr_con_i, pmflxs(:,1:klev))
+       CALL histwrite_phy(o_pr_lsc_l, prfl(:,1:klev))
+       CALL histwrite_phy(o_pr_lsc_i, psfl(:,1:klev))
+       CALL histwrite_phy(o_re, re)
+       CALL histwrite_phy(o_fl, fl)
+       IF (vars_defined) THEN
+          DO i=1, klon
+             zx_tmp_fi2d(i)=MIN(100.,rh2m(i)*100.)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_rh2m, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          DO i=1, klon
+             zx_tmp_fi2d(i)=MIN(100.,rh2m(i)*100.)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_rh2m_min, zx_tmp_fi2d)
+
+       IF (vars_defined) THEN
+          DO i=1, klon
+             zx_tmp_fi2d(i)=MIN(100.,rh2m(i)*100.)
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_rh2m_max, zx_tmp_fi2d)
+
+       CALL histwrite_phy(o_qsat2m, qsat2m)
+       CALL histwrite_phy(o_tpot, tpot)
+       CALL histwrite_phy(o_tpote, tpote)
+       IF (vars_defined) zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
+       CALL histwrite_phy(o_SWnetOR,  zx_tmp_fi2d)
+       IF (vars_defined) zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol1(1:klon))
+       CALL histwrite_phy(o_SWdownOR,  zx_tmp_fi2d)
+       CALL histwrite_phy(o_LWdownOR, sollwdown)
+       CALL histwrite_phy(o_snowl, snow_lsc)
+       CALL histwrite_phy(o_solldown, sollwdown)
+       CALL histwrite_phy(o_dtsvdfo, d_ts(:,is_oce))
+       CALL histwrite_phy(o_dtsvdft, d_ts(:,is_ter))
+       CALL histwrite_phy(o_dtsvdfg,  d_ts(:,is_lic))
+       CALL histwrite_phy(o_dtsvdfi, d_ts(:,is_sic))
+       CALL histwrite_phy(o_z0m, z0m(:,nbsrf+1))
+       CALL histwrite_phy(o_z0h, z0h(:,nbsrf+1))
+       ! OD550 per species
+!--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)
+             CALL histwrite_phy(o_od865aer, od865aer)
+             CALL histwrite_phy(o_absvisaer, absvisaer)
+             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)
+             CALL histwrite_phy(o_sconcss, sconcss)
+             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)
+             CALL histwrite_phy(o_concss, concss)
+             CALL histwrite_phy(o_concdust, concdust)
+             CALL histwrite_phy(o_loadso4, loadso4)
+             CALL histwrite_phy(o_loadoa, loadoa)
+             CALL histwrite_phy(o_loadbc, loadbc)
+             CALL histwrite_phy(o_loadss, loadss)
+             CALL histwrite_phy(o_loaddust, loaddust)
+             !--STRAT AER
+          ENDIF
+          IF (flag_aerosol.GT.0.OR.flag_aerosol_strat.GT.0) THEN
+!             DO naero = 1, naero_spc
+!--correction mini bug OB
+             DO naero = 1, naero_tot
+                CALL histwrite_phy(o_tausumaero(naero), &
+                     tausum_aero(:,2,naero) )
+             END DO
+          ENDIF
+          IF (flag_aerosol_strat.GT.0) THEN
+             CALL histwrite_phy(o_tausumaero_lw, &
+                  tausum_aero(:,6,id_STRAT_phy) )
+          ENDIF
+       ENDIF
+       IF (ok_ade) THEN
+          CALL histwrite_phy(o_topswad, topswad_aero*swradcorr)
+          CALL histwrite_phy(o_topswad0, topswad0_aero*swradcorr)
+          CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
+          CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
+          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
+             zx_tmp_fi2d(:)=topsw_aero(:,1)*swradcorr(:)
+             CALL histwrite_phy(o_swtoaas_nat,zx_tmp_fi2d)
+             zx_tmp_fi2d(:)=solsw_aero(:,1)*swradcorr(:)
+             CALL histwrite_phy(o_swsrfas_nat,zx_tmp_fi2d)
+             zx_tmp_fi2d(:)=topsw0_aero(:,1)*swradcorr(:)
+             CALL histwrite_phy(o_swtoacs_nat,zx_tmp_fi2d)
+             zx_tmp_fi2d(:)=solsw0_aero(:,1)*swradcorr(:)
+             CALL histwrite_phy(o_swsrfcs_nat,zx_tmp_fi2d)
+             !ant
+             zx_tmp_fi2d(:)=topsw_aero(:,2)*swradcorr(:)
+             CALL histwrite_phy(o_swtoaas_ant,zx_tmp_fi2d)
+             zx_tmp_fi2d(:)=solsw_aero(:,2)*swradcorr(:)
+             CALL histwrite_phy(o_swsrfas_ant,zx_tmp_fi2d)
+             zx_tmp_fi2d(:)=topsw0_aero(:,2)*swradcorr(:)
+             CALL histwrite_phy(o_swtoacs_ant,zx_tmp_fi2d)
+             zx_tmp_fi2d(:)=solsw0_aero(:,2)*swradcorr(:)
+             CALL histwrite_phy(o_swsrfcs_ant,zx_tmp_fi2d)
+             !cf
+             if (.not. aerosol_couple) then
+                zx_tmp_fi2d(:)=topswcf_aero(:,1)*swradcorr(:)
+                CALL histwrite_phy(o_swtoacf_nat,zx_tmp_fi2d)
+                zx_tmp_fi2d(:)=solswcf_aero(:,1)*swradcorr(:)
+                CALL histwrite_phy(o_swsrfcf_nat,zx_tmp_fi2d)
+                zx_tmp_fi2d(:)=topswcf_aero(:,2)*swradcorr(:)
+                CALL histwrite_phy(o_swtoacf_ant,zx_tmp_fi2d)
+                zx_tmp_fi2d(:)=solswcf_aero(:,2)*swradcorr(:)
+                CALL histwrite_phy(o_swsrfcf_ant,zx_tmp_fi2d)
+                zx_tmp_fi2d(:)=topswcf_aero(:,3)*swradcorr(:)
+                CALL histwrite_phy(o_swtoacf_zero,zx_tmp_fi2d)
+                zx_tmp_fi2d(:)=solswcf_aero(:,3)*swradcorr(:)
+                CALL histwrite_phy(o_swsrfcf_zero,zx_tmp_fi2d)
+             endif
+          endif ! new_aod
+          !====MS forcing diagnostics
+       ENDIF
+       IF (ok_aie) THEN
+          CALL histwrite_phy(o_topswai, topswai_aero*swradcorr)
+          CALL histwrite_phy(o_solswai, solswai_aero*swradcorr)
+       ENDIF
+       IF (flag_aerosol.GT.0.AND.ok_cdnc) THEN
+          CALL histwrite_phy(o_scdnc, scdnc)
+          CALL histwrite_phy(o_cldncl, cldncl)
+          CALL histwrite_phy(o_reffclws, reffclws)
+          CALL histwrite_phy(o_reffclwc, reffclwc)
+          CALL histwrite_phy(o_cldnvi, cldnvi)
+          CALL histwrite_phy(o_lcc, lcc)
+          CALL histwrite_phy(o_lcc3d, lcc3d)
+          CALL histwrite_phy(o_lcc3dcon, lcc3dcon)
+          CALL histwrite_phy(o_lcc3dstra, lcc3dstra)
+          CALL histwrite_phy(o_reffclwtop, reffclwtop)
+       ENDIF
+       ! Champs 3D:
+       IF (ok_ade .OR. ok_aie) then
+          CALL histwrite_phy(o_ec550aer, ec550aer)
+       ENDIF
+       CALL histwrite_phy(o_lwcon, flwc)
+       CALL histwrite_phy(o_iwcon, fiwc)
+       CALL histwrite_phy(o_temp, t_seri)
+       CALL histwrite_phy(o_theta, theta)
+       CALL histwrite_phy(o_ovapinit, qx(:,:,ivap))
+       CALL histwrite_phy(o_ovap, q_seri)
+       CALL histwrite_phy(o_oliq, ql_seri)
+       CALL histwrite_phy(o_ocond, ql_seri+qs_seri)
+       CALL histwrite_phy(o_geop, zphi)
+       CALL histwrite_phy(o_vitu, u_seri)
+       CALL histwrite_phy(o_vitv, v_seri)
+       CALL histwrite_phy(o_vitw, omega)
+       CALL histwrite_phy(o_pres, pplay)
+       CALL histwrite_phy(o_paprs, paprs(:,1:klev))
+       CALL histwrite_phy(o_zfull,zphi/RG)
+
+       IF (flag_aerosol_strat.EQ.2) THEN
+         CALL histwrite_phy(o_stratomask, stratomask)
+       ENDIF
+      
+       IF (vars_defined)  THEN
+        zx_tmp_fi3d(:,1)= pphis(:)/RG
+        DO k = 2, klev
+         DO i = 1, klon
+            zx_tmp_fi3d(i,k) = zphi(i,k)/RG + &
+                          (zphi(i,k)-zphi(i,k-1))/RG * &
+                          (paprs(i,k)-pplay(i,k))/(pplay(i,k)-pplay(i,k-1))
+         ENDDO
+        ENDDO
+       ENDIF
+       CALL histwrite_phy(o_zhalf, zx_tmp_fi3d)
+       CALL histwrite_phy(o_rneb, cldfra)
+       CALL histwrite_phy(o_rnebcon, rnebcon)
+       CALL histwrite_phy(o_rnebls, rneb)
+       IF (vars_defined)  THEN
+          DO k=1, klev
+             DO i=1, klon
+                zx_tmp_fi3d(i,k)=cldfra(i,k)*JrNt(i)
+             ENDDO
+          ENDDO
+       ENDIF
+       CALL histwrite_phy(o_rnebjn, zx_tmp_fi3d)
+       CALL histwrite_phy(o_rhum, zx_rh)
+       CALL histwrite_phy(o_ozone, &
+            wo(:, :, 1) * dobson_u * 1e3 / zmasse / rmo3 * rmd)
+
+       IF (read_climoz == 2) THEN
+          CALL histwrite_phy(o_ozone_light, &
+               wo(:, :, 2) * dobson_u * 1e3 / zmasse / rmo3 * rmd)
+       ENDIF
+
+       CALL histwrite_phy(o_dtphy, d_t)
+
+       CALL histwrite_phy(o_dqphy,  d_qx(:,:,ivap))
+       CALL water_int(klon,klev,d_qx(:,:,ivap),zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqphy2d,  zx_tmp_fi2d)
+
+       CALL histwrite_phy(o_dqlphy,  d_qx(:,:,iliq))
+       CALL water_int(klon,klev,d_qx(:,:,iliq),zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqlphy2d,  zx_tmp_fi2d)
+
+       IF (nqo.EQ.3) THEN
+       CALL histwrite_phy(o_dqsphy,  d_qx(:,:,isol))
+       CALL water_int(klon,klev,d_qx(:,:,isol),zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqsphy2d,  zx_tmp_fi2d)
+       ELSE 
+       zx_tmp_fi3d=0.0
+       CALL histwrite_phy(o_dqsphy,  zx_tmp_fi3d)
+       zx_tmp_fi2d=0.0
+       CALL histwrite_phy(o_dqsphy2d,  zx_tmp_fi2d)
+       ENDIF
+
+       DO nsrf=1, nbsrf
+          IF (vars_defined) zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf)
+          CALL histwrite_phy(o_albe_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined) zx_tmp_fi2d(1 : klon) = z0m( 1 : klon, nsrf)
+          CALL histwrite_phy(o_z0m_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined) zx_tmp_fi2d(1 : klon) = z0h( 1 : klon, nsrf)
+          CALL histwrite_phy(o_z0h_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined) zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf)
+          CALL histwrite_phy(o_ages_srf(nsrf), zx_tmp_fi2d)
+          IF (vars_defined) zx_tmp_fi2d(1 : klon) = snow( 1 : klon, nsrf)
+          CALL histwrite_phy(o_snow_srf(nsrf), zx_tmp_fi2d)
+       ENDDO !nsrf=1, nbsrf
+       CALL histwrite_phy(o_alb1, albsol1)
+       CALL histwrite_phy(o_alb2, albsol2)
+       !FH Sorties pour la couche limite
+       if (iflag_pbl>1) then
+          zx_tmp_fi3d=0.
+          IF (vars_defined) THEN
+             do nsrf=1,nbsrf
+                do k=1,klev
+                   zx_tmp_fi3d(:,k)=zx_tmp_fi3d(:,k) &
+                        +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
+                enddo
+             enddo
+          ENDIF
+          CALL histwrite_phy(o_tke, zx_tmp_fi3d)
+
+          CALL histwrite_phy(o_tke_max, zx_tmp_fi3d)
+       ENDIF
+
+       CALL histwrite_phy(o_kz, coefh(:,:,is_ave))
+
+       CALL histwrite_phy(o_kz_max, coefh(:,:,is_ave))
+
+       CALL histwrite_phy(o_clwcon, clwcon0)
+       CALL histwrite_phy(o_dtdyn, d_t_dyn)
+
+       CALL histwrite_phy(o_dqdyn, d_q_dyn)
+
+       CALL histwrite_phy(o_dqdyn2d,d_q_dyn2d)
+
+       CALL histwrite_phy(o_dqldyn, d_ql_dyn)
+
+       CALL histwrite_phy(o_dqldyn2d, d_ql_dyn2d)
+
+       CALL histwrite_phy(o_dqsdyn, d_qs_dyn)
+
+       CALL histwrite_phy(o_dqsdyn2d, d_qs_dyn2d)
+
+       CALL histwrite_phy(o_dudyn, d_u_dyn)
+       CALL histwrite_phy(o_dvdyn, d_v_dyn)
+
+       IF (vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_dtcon, zx_tmp_fi3d)
+       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 + &
+                  d_t_ajsb(1:klon,1:klev)/pdtphys
+          ENDIF
+          CALL histwrite_phy(o_tntc, zx_tmp_fi3d)
+       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 + &
+                  d_t_ajs(1:klon,1:klev)/pdtphys + &
+                  d_t_wake(1:klon,1:klev)/pdtphys
+          ENDIF
+          CALL histwrite_phy(o_tntc, zx_tmp_fi3d)
+       endif
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_u_con(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_ducon, zx_tmp_fi3d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_v_con(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dvcon, zx_tmp_fi3d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dqcon, zx_tmp_fi3d)
+       CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqcon2d, zx_tmp_fi2d)
+
+       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.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 + &
+                  d_q_ajs(1:klon,1:klev)/pdtphys + &
+                  d_q_wake(1:klon,1:klev)/pdtphys
+          ENDIF
+          CALL histwrite_phy(o_tnhusc, zx_tmp_fi3d)
+       ENDIF
+
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_lsc(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtlsc, zx_tmp_fi3d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+ &
+            d_t_eva(1:klon,1:klev))/pdtphys
+       CALL histwrite_phy(o_dtlschr, zx_tmp_fi3d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dqlsc, zx_tmp_fi3d)
+       CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqlsc2d, zx_tmp_fi2d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=beta_prec(1:klon,1:klev)
+       CALL histwrite_phy(o_beta_prec, zx_tmp_fi3d)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       ! Sorties specifiques a la separation thermiques/non thermiques
+       if (iflag_thermals>=1) then
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_lscth(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dtlscth, zx_tmp_fi3d)
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_lscst(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dtlscst, zx_tmp_fi3d)
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_lscth(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dqlscth, zx_tmp_fi3d)
+          CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+          CALL histwrite_phy(o_dqlscth2d, zx_tmp_fi2d)
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_lscst(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dqlscst, zx_tmp_fi3d)
+          CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+          CALL histwrite_phy(o_dqlscst2d, zx_tmp_fi2d)
+          CALL histwrite_phy(o_plulth, plul_th)
+          CALL histwrite_phy(o_plulst, plul_st)
+          IF (vars_defined) THEN
+             do k=1,klev
+                do i=1,klon
+                   if (ptconvth(i,k)) then
+                      zx_tmp_fi3d(i,k)=1.
+                   else
+                      zx_tmp_fi3d(i,k)=0.
+                   endif
+                enddo
+             enddo
+          ENDIF
+          CALL histwrite_phy(o_ptconvth, zx_tmp_fi3d)
+          IF (vars_defined) THEN
+             do i=1,klon
+                zx_tmp_fi2d(1:klon)=lmax_th(:)
+             enddo
+          ENDIF
+          CALL histwrite_phy(o_lmaxth, zx_tmp_fi2d)
+       endif ! iflag_thermals>=1
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtvdf, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_diss(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtdis, zx_tmp_fi3d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_vdf(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dqvdf, zx_tmp_fi3d)
+       CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqvdf2d, zx_tmp_fi2d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dteva, zx_tmp_fi3d)
+       IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_eva(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dqeva, zx_tmp_fi3d)
+       CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqeva2d, zx_tmp_fi2d)
+       zpt_conv = 0.
+       WHERE (ptconv) zpt_conv = 1.
+       CALL histwrite_phy(o_ptconv, zpt_conv)
+       CALL histwrite_phy(o_ratqs, ratqs)
+       IF (vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys - &
+               d_t_ajsb(1:klon,1:klev)/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_dtthe, zx_tmp_fi3d)
+       IF (vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_u_ajs(1:klon,1:klev)/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_duthe, zx_tmp_fi3d) 
+       IF (vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_v_ajs(1:klon,1:klev)/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_dvthe, zx_tmp_fi3d)
+
+       IF (iflag_thermals>=1) THEN
+          ! Pour l instant 0 a y reflichir pour les thermiques
+          zx_tmp_fi2d=0. 
+          CALL histwrite_phy(o_ftime_th, zx_tmp_fi2d)
+          CALL histwrite_phy(o_f_th, fm_therm)
+          CALL histwrite_phy(o_e_th, entr_therm)
+          CALL histwrite_phy(o_w_th, zw2)
+          CALL histwrite_phy(o_q_th, zqasc)
+          CALL histwrite_phy(o_a_th, fraca)
+          CALL histwrite_phy(o_d_th, detr_therm)
+          CALL histwrite_phy(o_f0_th, f0)
+          CALL histwrite_phy(o_zmax_th, zmax_th)
+          IF (vars_defined) THEN
+             zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys - &
+                  d_q_ajsb(1:klon,1:klev)/pdtphys
+          ENDIF
+          CALL histwrite_phy(o_dqthe, zx_tmp_fi3d)
+          CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+          CALL histwrite_phy(o_dqthe2d, zx_tmp_fi2d)
+       ENDIF !iflag_thermals
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_ajsb(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtajs, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_ajsb(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dqajs, zx_tmp_fi3d)
+       CALL water_int(klon,klev,zx_tmp_fi3d,zmasse,zx_tmp_fi2d)
+       CALL histwrite_phy(o_dqajs2d, zx_tmp_fi2d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_swr(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtswr, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_sw0(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtsw0, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_lwr(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtlwr, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_lw0(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtlw0, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dtec, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_u_vdf(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_duvdf, zx_tmp_fi3d)
+       IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_v_vdf(1:klon,1:klev)/pdtphys
+       CALL histwrite_phy(o_dvvdf, zx_tmp_fi3d)
+       IF (ok_orodr) THEN
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_u_oro(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_duoro, zx_tmp_fi3d)
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_v_oro(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dvoro, zx_tmp_fi3d)
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_oro(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dtoro, zx_tmp_fi3d)
+       ENDIF
+       IF (ok_orolf) THEN
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_u_lif(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dulif, zx_tmp_fi3d)
+
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_v_lif(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dvlif, zx_tmp_fi3d)
+
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_lif(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dtlif, zx_tmp_fi3d)
+       ENDIF
+
+       IF (ok_hines) THEN
+          CALL histwrite_phy(o_du_gwd_hines, du_gwd_hines/pdtphys)
+          CALL histwrite_phy(o_dv_gwd_hines, dv_gwd_hines/pdtphys)
+          IF(vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_hin(1:klon,1:klev)/pdtphys
+          CALL histwrite_phy(o_dthin, zx_tmp_fi3d)
+          CALL histwrite_phy(o_ustr_gwd_hines, zustr_gwd_hines)
+          CALL histwrite_phy(o_vstr_gwd_hines, zvstr_gwd_hines)
+       end IF
+
+       if (.not. ok_hines .and. ok_gwd_rando) then
+          CALL histwrite_phy(o_du_gwd_front, du_gwd_front / pdtphys)
+          CALL histwrite_phy(o_dv_gwd_front, dv_gwd_front / pdtphys)
+          CALL histwrite_phy(o_ustr_gwd_front, zustr_gwd_front)
+          CALL histwrite_phy(o_vstr_gwd_front, zvstr_gwd_front)
+       ENDIF
+
+       IF (ok_gwd_rando) then
+          CALL histwrite_phy(o_du_gwd_rando, du_gwd_rando / pdtphys)
+          CALL histwrite_phy(o_dv_gwd_rando, dv_gwd_rando / pdtphys)
+          CALL histwrite_phy(o_ustr_gwd_rando, zustr_gwd_rando)
+          CALL histwrite_phy(o_vstr_gwd_rando, zvstr_gwd_rando)
+          CALL histwrite_phy(o_east_gwstress, east_gwstress )
+          CALL histwrite_phy(o_west_gwstress, west_gwstress )
+       end IF
+
+       IF (ok_qch4) then
+          CALL histwrite_phy(o_dqch4, d_q_ch4 / pdtphys)
+       ENDIF
+
+       DO k=1, klevp1
+         zx_tmp_fi3d1(:,k)=swup(:,k)*swradcorr(:)
+       ENDDO
+       CALL histwrite_phy(o_rsu, zx_tmp_fi3d1)
+       DO k=1, klevp1
+         zx_tmp_fi3d1(:,k)=swdn(:,k)*swradcorr(:)
+       ENDDO
+       CALL histwrite_phy(o_rsd, zx_tmp_fi3d1)
+       DO k=1, klevp1
+         zx_tmp_fi3d1(:,k)=swup0(:,k)*swradcorr(:)
+       ENDDO
+       CALL histwrite_phy(o_rsucs, zx_tmp_fi3d1)
+       DO k=1, klevp1
+         zx_tmp_fi3d1(:,k)=swdn0(:,k)*swradcorr(:)
+       ENDDO
+       CALL histwrite_phy(o_rsdcs, zx_tmp_fi3d1)
+
+       CALL histwrite_phy(o_rlu, lwup)
+       CALL histwrite_phy(o_rld, lwdn)
+       CALL histwrite_phy(o_rlucs, lwup0)
+       CALL histwrite_phy(o_rldcs, lwdn0)
+
+       IF(vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_t(1:klon,1:klev)+ &
+               d_t_dyn(1:klon,1:klev)
+       ENDIF
+       CALL histwrite_phy(o_tnt, zx_tmp_fi3d)
+
+       IF(vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_t_swr(1:klon,1:klev)/pdtphys + &
+               d_t_lwr(1:klon,1:klev)/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_tntr, zx_tmp_fi3d)
+       IF(vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)= (d_t_lsc(1:klon,1:klev)+ &
+               d_t_eva(1:klon,1:klev)+ &
+               d_t_vdf(1:klon,1:klev))/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_tntscpbl, zx_tmp_fi3d)
+       IF(vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_qx(1:klon,1:klev,ivap)+ &
+               d_q_dyn(1:klon,1:klev)
+       ENDIF
+       CALL histwrite_phy(o_tnhus, zx_tmp_fi3d)
+       IF(vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys+ &
+               d_q_eva(1:klon,1:klev)/pdtphys
+       ENDIF
+       CALL histwrite_phy(o_tnhusscpbl, zx_tmp_fi3d)
+       CALL histwrite_phy(o_evu, coefm(:,:,is_ave))
+       IF(vars_defined) THEN
+          zx_tmp_fi3d(1:klon,1:klev)=q_seri(1:klon,1:klev)+ &
+               ql_seri(1:klon,1:klev) 
+       ENDIF
+       CALL histwrite_phy(o_h2o, zx_tmp_fi3d)
+       if (iflag_con >= 3) then
+          IF(vars_defined) THEN
+             zx_tmp_fi3d(1:klon,1:klev)=-1 * (dnwd(1:klon,1:klev)+ &
+                  dnwd0(1:klon,1:klev)) 
+          ENDIF
+          CALL histwrite_phy(o_mcd, zx_tmp_fi3d)
+          IF(vars_defined) THEN
+             zx_tmp_fi3d(1:klon,1:klev)=upwd(1:klon,1:klev) + &
+                  dnwd(1:klon,1:klev)+ dnwd0(1:klon,1:klev) 
+          ENDIF
+          CALL histwrite_phy(o_dmc, zx_tmp_fi3d)
+       else if (iflag_con == 2) then
+          CALL histwrite_phy(o_mcd,  pmfd)
+          CALL histwrite_phy(o_dmc,  pmfu + pmfd)
+       end if
+       CALL histwrite_phy(o_ref_liq, ref_liq)
+       CALL histwrite_phy(o_ref_ice, ref_ice)
+       if (RCO2_per.NE.RCO2_act.OR.RCH4_per.NE.RCH4_act.OR. &
+            RN2O_per.NE.RN2O_act.OR.RCFC11_per.NE.RCFC11_act.OR. &
+            RCFC12_per.NE.RCFC12_act) THEN
+          IF(vars_defined) zx_tmp_fi2d(:) = swupp(:,klevp1)*swradcorr(:)
+          CALL histwrite_phy(o_rsut4co2, zx_tmp_fi2d)
+          IF(vars_defined) zx_tmp_fi2d(:) = lwupp(:,klevp1)
+          CALL histwrite_phy(o_rlut4co2, zx_tmp_fi2d)
+          IF(vars_defined) zx_tmp_fi2d(:) = swup0p(:,klevp1)*swradcorr(:)
+          CALL histwrite_phy(o_rsutcs4co2, zx_tmp_fi2d)
+          IF(vars_defined) zx_tmp_fi2d(:) = lwup0p(:,klevp1)
+          CALL histwrite_phy(o_rlutcs4co2, zx_tmp_fi2d)
+          DO k=1, klevp1
+            zx_tmp_fi3d1(:,k)=swupp(:,k)*swradcorr(:)
+          ENDDO
+          CALL histwrite_phy(o_rsu4co2, zx_tmp_fi3d1)
+          DO k=1, klevp1
+            zx_tmp_fi3d1(:,k)=swup0p(:,k)*swradcorr(:)
+          ENDDO
+          CALL histwrite_phy(o_rsucs4co2, zx_tmp_fi3d1)
+          DO k=1, klevp1
+            zx_tmp_fi3d1(:,k)=swdnp(:,k)*swradcorr(:)
+          ENDDO
+          CALL histwrite_phy(o_rsd4co2, zx_tmp_fi3d1)
+          DO k=1, klevp1
+            zx_tmp_fi3d1(:,k)=swdn0p(:,k)*swradcorr(:)
+          ENDDO
+          CALL histwrite_phy(o_rsdcs4co2, zx_tmp_fi3d1)
+          CALL histwrite_phy(o_rlu4co2, lwupp)
+          CALL histwrite_phy(o_rlucs4co2, lwup0p)
+          CALL histwrite_phy(o_rld4co2, lwdnp)
+          CALL histwrite_phy(o_rldcs4co2, lwdn0p)
+       ENDIF
+!!!!!!!!!!!! Sorties niveaux de pression NMC !!!!!!!!!!!!!!!!!!!!
+#ifdef CPP_IOIPSL
+#ifndef CPP_XIOS
+  IF (.NOT.ok_all_xml) THEN 
+       ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:
+       ! Champs interpolles sur des niveaux de pression
+       missing_val=missing_val_nf90
+       DO iff=7, nfiles
+
+          CALL histwrite_phy(o_tnondef,tnondef(:,:,iff-6),iff)
+          CALL histwrite_phy(o_ta,twriteSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_zg,phiwriteSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_hus,qwriteSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_hur,rhwriteSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_ua,uwriteSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_va,vwriteSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_wap,wwriteSTD(:,:,iff-6),iff)
+          IF(vars_defined) THEN
+             DO k=1, nlevSTD
+                DO i=1, klon
+                   IF(tnondef(i,k,iff-6).NE.missing_val) THEN
+                      IF(freq_outNMC(iff-6).LT.0) THEN
+                         freq_moyNMC(iff-6)=(mth_len*un_jour)/freq_calNMC(iff-6)
+                      ELSE
+                         freq_moyNMC(iff-6)=freq_outNMC(iff-6)/freq_calNMC(iff-6)
+                      ENDIF
+                      zx_tmp_fi3d_STD(i,k) = (100.*tnondef(i,k,iff-6))/freq_moyNMC(iff-6)
+                   ELSE
+                      zx_tmp_fi3d_STD(i,k) = missing_val
+                   ENDIF
+                ENDDO
+             ENDDO
+          ENDIF
+          CALL histwrite_phy(o_psbg,zx_tmp_fi3d_STD,iff)
+          IF(vars_defined) THEN
+             DO k=1, nlevSTD
+                DO i=1, klon
+                   IF(O3sumSTD(i,k,iff-6).NE.missing_val) THEN
+                      zx_tmp_fi3d_STD(i,k) = O3sumSTD(i,k,iff-6) * 1.e+9
+                   ELSE
+                      zx_tmp_fi3d_STD(i,k) = missing_val
+                   ENDIF
+                ENDDO
+             ENDDO !k=1, nlevSTD
+          ENDIF
+          CALL histwrite_phy(o_tro3,zx_tmp_fi3d_STD,iff)
+          if (read_climoz == 2) THEN
+             IF(vars_defined) THEN
+                DO k=1, nlevSTD
+                   DO i=1, klon
+                      IF(O3daysumSTD(i,k,iff-6).NE.missing_val) THEN
+                         zx_tmp_fi3d_STD(i,k) = O3daysumSTD(i,k,iff-6) * 1.e+9
+                      ELSE
+                         zx_tmp_fi3d_STD(i,k) = missing_val
+                      ENDIF
+                   ENDDO
+                ENDDO !k=1, nlevSTD
+             ENDIF
+             CALL histwrite_phy(o_tro3_daylight,zx_tmp_fi3d_STD,iff)
+          endif
+          CALL histwrite_phy(o_uxv,uvsumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_vxq,vqsumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_vxT,vTsumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_wxq,wqsumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_vxphi,vphisumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_wxT,wTsumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_uxu,u2sumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_vxv,v2sumSTD(:,:,iff-6),iff)
+          CALL histwrite_phy(o_TxT,T2sumSTD(:,:,iff-6),iff)
+       ENDDO !nfiles
+  ENDIF
+#endif
+#endif
+#ifdef CPP_XIOS
+  IF(ok_all_xml) THEN 
+!      DO iff=7, nfiles
+
+!         CALL histwrite_phy(o_tnondef,tnondef(:,:,3))
+          CALL histwrite_phy(o_ta,tlevSTD(:,:))
+          CALL histwrite_phy(o_zg,philevSTD(:,:))
+          CALL histwrite_phy(o_hus,qlevSTD(:,:))
+          CALL histwrite_phy(o_hur,rhlevSTD(:,:))
+          CALL histwrite_phy(o_ua,ulevSTD(:,:))
+          CALL histwrite_phy(o_va,vlevSTD(:,:))
+          CALL histwrite_phy(o_wap,wlevSTD(:,:))
+!         IF(vars_defined) THEN
+!            DO k=1, nlevSTD
+!               DO i=1, klon
+!                  IF(tnondef(i,k,3).NE.missing_val) THEN
+!                     IF(freq_outNMC(iff-6).LT.0) THEN
+!                        freq_moyNMC(iff-6)=(mth_len*un_jour)/freq_calNMC(iff-6)
+!                     ELSE
+!                        freq_moyNMC(iff-6)=freq_outNMC(iff-6)/freq_calNMC(iff-6)
+!                     ENDIF
+!                     zx_tmp_fi3d_STD(i,k) = (100.*tnondef(i,k,3))/freq_moyNMC(iff-6)
+!                  ELSE
+!                     zx_tmp_fi3d_STD(i,k) = missing_val
+!                  ENDIF
+!               ENDDO
+!            ENDDO
+!         ENDIF
+!         CALL histwrite_phy(o_psbg,zx_tmp_fi3d_STD)
+          IF(vars_defined) THEN
+             DO k=1, nlevSTD
+                DO i=1, klon
+                   IF(O3STD(i,k).NE.missing_val) THEN
+                      zx_tmp_fi3d_STD(i,k) = O3STD(i,k) * 1.e+9
+                   ELSE
+                      zx_tmp_fi3d_STD(i,k) = missing_val
+                   ENDIF
+                ENDDO
+             ENDDO !k=1, nlevSTD
+          ENDIF
+          CALL histwrite_phy(o_tro3,zx_tmp_fi3d_STD)
+          if (read_climoz == 2) THEN
+             IF(vars_defined) THEN
+                DO k=1, nlevSTD
+                   DO i=1, klon
+                      IF(O3daySTD(i,k).NE.missing_val) THEN
+                         zx_tmp_fi3d_STD(i,k) = O3daySTD(i,k) * 1.e+9
+                      ELSE
+                         zx_tmp_fi3d_STD(i,k) = missing_val
+                      ENDIF
+                   ENDDO
+                ENDDO !k=1, nlevSTD
+             ENDIF
+             CALL histwrite_phy(o_tro3_daylight,zx_tmp_fi3d_STD)
+          endif
+          CALL histwrite_phy(o_uxv,uvSTD(:,:))
+          CALL histwrite_phy(o_vxq,vqSTD(:,:))
+          CALL histwrite_phy(o_vxT,vTSTD(:,:))
+          CALL histwrite_phy(o_wxq,wqSTD(:,:))
+          CALL histwrite_phy(o_vxphi,vphiSTD(:,:))
+          CALL histwrite_phy(o_wxT,wTSTD(:,:))
+          CALL histwrite_phy(o_uxu,u2STD(:,:))
+          CALL histwrite_phy(o_vxv,v2STD(:,:))
+          CALL histwrite_phy(o_TxT,T2STD(:,:))
+!      ENDDO !nfiles
+  ENDIF
+#endif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+        IF (nqtot.GE.nqo+1) THEN
+            DO iq=nqo+1,nqtot
+              IF (type_trac == 'lmdz' .OR. type_trac == 'repr') THEN
+
+!jyg<
+!!             CALL histwrite_phy(o_trac(iq-nqo), qx(:,:,iq))
+             CALL histwrite_phy(o_trac(iq-nqo), tr_seri(:,:,iq-nqo))
+!>jyg
+             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
+                DO k=1,klev
+!jyg<
+!!                   zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+zmasse(:,k)*qx(:,k,iq)
+                   zx_tmp_fi2d(:)=zx_tmp_fi2d(:)+zmasse(:,k)*tr_seri(:,k,iq-nqo)
+!>jyg
+                ENDDO
+             ENDIF
+             CALL histwrite_phy(o_trac_cum(iq-nqo), zx_tmp_fi2d)
+             endif
+          ENDDO
+       ENDIF
+
+       IF(.NOT.vars_defined) THEN
+          !$OMP MASTER
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+          DO iff=1,nfiles
+             IF (clef_files(iff)) THEN
+                CALL histend(nid_files(iff))
+                ndex2d = 0
+                ndex3d = 0
+
+             ENDIF ! clef_files
+          ENDDO !  iff
+#endif
+#ifdef CPP_XIOS
+          !On finalise l'initialisation:
+          CALL wxios_closedef()
+#endif
+
+          !$OMP END MASTER
+          !$OMP BARRIER
+          vars_defined = .TRUE.
+
+       END IF
+
+    END DO
+
+    IF(vars_defined) THEN
+       ! On synchronise les fichiers pour IOIPSL
+#ifndef CPP_IOIPSL_NO_OUTPUT 
+       !$OMP MASTER
+       DO iff=1,nfiles
+          IF (ok_sync .AND. clef_files(iff)) THEN
+             CALL histsync(nid_files(iff))
+          ENDIF
+       END DO
+       !$OMP END MASTER
+#endif
+    ENDIF
+
+  END SUBROUTINE phys_output_write
+
+END MODULE phys_output_write_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_state_var_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_state_var_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phys_state_var_mod.F90	(revision 3330)
@@ -0,0 +1,725 @@
+!
+! $Id$
+!
+      MODULE phys_state_var_mod
+! Variables sauvegardees pour le startphy.nc
+!======================================================================
+!
+!
+!======================================================================
+! Declaration des variables
+      USE dimphy
+      USE netcdf, only: nf90_fill_real
+      INTEGER, PARAMETER :: nlevSTD=17
+      INTEGER, PARAMETER :: nlevSTD8=8
+      INTEGER, PARAMETER :: nlevSTD3=3
+      INTEGER, PARAMETER :: nout=3
+      INTEGER, PARAMETER :: napisccp=1
+      INTEGER, SAVE :: radpas
+      REAL, PARAMETER :: missing_val_nf90=nf90_fill_real
+!$OMP THREADPRIVATE(radpas)
+      REAL, SAVE :: dtime, solaire_etat0
+!$OMP THREADPRIVATE(dtime, solaire_etat0)
+
+      REAL, ALLOCATABLE, SAVE :: pctsrf(:,:)
+!$OMP THREADPRIVATE(pctsrf)
+      REAL, ALLOCATABLE, SAVE :: ftsol(:,:)
+!$OMP THREADPRIVATE(ftsol)
+      REAL,ALLOCATABLE,SAVE :: qsol(:),fevap(:,:),z0m(:,:),z0h(:,:),agesno(:,:)
+!$OMP THREADPRIVATE(qsol,fevap,z0m,z0h,agesno)
+!      character(len=6), SAVE :: ocean
+!!!!!!$OMP THREADPRIVATE(ocean)
+!      logical, SAVE :: ok_veget 
+!!!!!!$OMP THREADPRIVATE(ok_veget)
+      REAL, ALLOCATABLE, SAVE :: falb1(:,:), falb2(:,:)
+!$OMP THREADPRIVATE(falb1, falb2)
+
+!albedo SB >>>
+      REAL, ALLOCATABLE, SAVE :: falb_dif(:,:,:), falb_dir(:,:,:)
+      real, allocatable, save :: chl_con(:)
+!$OMP THREADPRIVATE(falb_dir,falb_dif,chl_con)
+!albedo SB <<<
+
+
+      REAL, ALLOCATABLE, SAVE :: rain_fall(:), snow_fall(:)
+!$OMP THREADPRIVATE( rain_fall, snow_fall)
+      REAL, ALLOCATABLE, SAVE :: solsw(:), sollw(:)
+!$OMP THREADPRIVATE(solsw, sollw)
+      REAL, ALLOCATABLE, SAVE :: radsol(:)
+!$OMP THREADPRIVATE(radsol)
+      REAL, ALLOCATABLE, SAVE :: swradcorr(:)
+!$OMP THREADPRIVATE(swradcorr)
+
+!clesphy0 param physiq
+!
+! Parametres de l'Orographie a l'Echelle Sous-Maille (OESM):
+!
+      REAL, ALLOCATABLE, SAVE :: zmea(:), zstd(:), zsig(:), zgam(:)
+!$OMP THREADPRIVATE(zmea, zstd, zsig, zgam)
+      REAL, ALLOCATABLE, SAVE :: zthe(:), zpic(:), zval(:)
+!$OMP THREADPRIVATE(zthe, zpic, zval)
+!     REAL tabcntr0(100)
+      REAL, ALLOCATABLE, SAVE :: rugoro(:)
+!$OMP THREADPRIVATE(rugoro)
+      REAL, ALLOCATABLE, SAVE :: t_ancien(:,:), q_ancien(:,:)
+!$OMP THREADPRIVATE(t_ancien, q_ancien)
+      REAL, ALLOCATABLE, SAVE :: ql_ancien(:,:), qs_ancien(:,:)
+!$OMP THREADPRIVATE(ql_ancien, qs_ancien)
+      REAL, ALLOCATABLE, SAVE :: prw_ancien(:), prlw_ancien(:), prsw_ancien(:)
+!$OMP THREADPRIVATE(prw_ancien, prlw_ancien, prsw_ancien)
+      REAL, ALLOCATABLE, SAVE :: u_ancien(:,:), v_ancien(:,:)
+!$OMP THREADPRIVATE(u_ancien, v_ancien)
+!!! RomP >>>
+      REAL, ALLOCATABLE, SAVE :: tr_ancien(:,:,:)
+!$OMP THREADPRIVATE(tr_ancien)
+!!! RomP <<<
+      LOGICAL, SAVE :: ancien_ok
+!$OMP THREADPRIVATE(ancien_ok)
+      REAL, ALLOCATABLE, SAVE :: clwcon(:,:),rnebcon(:,:)
+!$OMP THREADPRIVATE(clwcon,rnebcon)
+      REAL, ALLOCATABLE, SAVE :: qtc_cv(:,:),sigt_cv(:,:)
+!$OMP THREADPRIVATE(qtc_cv,sigt_cv)
+      REAL, ALLOCATABLE, SAVE :: ratqs(:,:)
+!$OMP THREADPRIVATE(ratqs)
+      REAL, ALLOCATABLE, SAVE :: pbl_tke(:,:,:) ! turb kinetic energy
+      REAL, ALLOCATABLE, SAVE :: coefh(:,:,:) ! Kz enthalpie
+      REAL, ALLOCATABLE, SAVE :: coefm(:,:,:) ! Kz momentum
+!$OMP THREADPRIVATE(pbl_tke, coefh,coefm)
+!nrlmd<
+      REAL, ALLOCATABLE, SAVE :: delta_tsurf(:,:) ! Surface temperature difference inside-outside cold pool
+!$OMP THREADPRIVATE(delta_tsurf)
+!>nrlmd
+      REAL, ALLOCATABLE, SAVE :: zmax0(:), f0(:) ! 
+!$OMP THREADPRIVATE(zmax0,f0)
+      REAL, ALLOCATABLE, SAVE :: sig1(:,:), w01(:,:)
+!$OMP THREADPRIVATE(sig1,w01)
+      REAL, ALLOCATABLE, SAVE :: entr_therm(:,:), fm_therm(:,:)
+!$OMP THREADPRIVATE(entr_therm,fm_therm)
+      REAL, ALLOCATABLE, SAVE :: detr_therm(:,:)
+!$OMP THREADPRIVATE(detr_therm)
+!IM 150408
+!     pour phsystoke avec thermiques
+      REAL,ALLOCATABLE,SAVE :: clwcon0th(:,:),rnebcon0th(:,:)
+!$OMP THREADPRIVATE(clwcon0th,rnebcon0th)
+! radiation outputs
+      REAL,ALLOCATABLE,SAVE :: swdn0(:,:), swdn(:,:)
+!$OMP THREADPRIVATE(swdn0,swdn)
+      REAL,ALLOCATABLE,SAVE :: swup0(:,:), swup(:,:)
+!$OMP THREADPRIVATE(swup0,swup)
+      REAL,ALLOCATABLE,SAVE :: SWdn200clr(:), SWdn200(:)
+!$OMP THREADPRIVATE(SWdn200clr,SWdn200)
+      REAL,ALLOCATABLE,SAVE :: SWup200clr(:), SWup200(:)
+!$OMP THREADPRIVATE(SWup200clr,SWup200)
+      REAL,ALLOCATABLE,SAVE :: lwdn0(:,:), lwdn(:,:)
+!$OMP THREADPRIVATE(lwdn0,lwdn)
+      REAL,ALLOCATABLE,SAVE :: lwup0(:,:), lwup(:,:)
+!$OMP THREADPRIVATE(lwup0,lwup)
+      REAL,ALLOCATABLE,SAVE :: LWdn200clr(:), LWdn200(:)
+!$OMP THREADPRIVATE(LWdn200clr,LWdn200)
+      REAL,ALLOCATABLE,SAVE :: LWup200clr(:), LWup200(:)
+!$OMP THREADPRIVATE(LWup200clr,LWup200)
+      REAL,ALLOCATABLE,SAVE :: LWdnTOA(:), LWdnTOAclr(:)
+!$OMP THREADPRIVATE(LWdnTOA,LWdnTOAclr)
+! pressure level
+      REAL,ALLOCATABLE,SAVE :: tsumSTD(:,:,:)
+!$OMP THREADPRIVATE(tsumSTD)
+      REAL,ALLOCATABLE,SAVE :: usumSTD(:,:,:), vsumSTD(:,:,:)
+!$OMP THREADPRIVATE(usumSTD,vsumSTD)
+      REAL,ALLOCATABLE,SAVE :: wsumSTD(:,:,:), phisumSTD(:,:,:)
+!$OMP THREADPRIVATE(wsumSTD,phisumSTD)
+      REAL,ALLOCATABLE,SAVE :: qsumSTD(:,:,:), rhsumSTD(:,:,:)
+!$OMP THREADPRIVATE(qsumSTD,rhsumSTD)
+      REAL,ALLOCATABLE,SAVE :: tnondef(:,:,:) 
+!$OMP THREADPRIVATE(tnondef)
+      REAL,ALLOCATABLE,SAVE :: uvsumSTD(:,:,:)
+!$OMP THREADPRIVATE(uvsumSTD)
+      REAL,ALLOCATABLE,SAVE :: vqsumSTD(:,:,:)
+!$OMP THREADPRIVATE(vqsumSTD)
+      REAL,ALLOCATABLE,SAVE :: vTsumSTD(:,:,:)
+!$OMP THREADPRIVATE(vTsumSTD)
+      REAL,ALLOCATABLE,SAVE :: wqsumSTD(:,:,:)
+!$OMP THREADPRIVATE(wqsumSTD)
+      REAL,ALLOCATABLE,SAVE :: vphisumSTD(:,:,:)
+!$OMP THREADPRIVATE(vphisumSTD)
+      REAL,ALLOCATABLE,SAVE :: wTsumSTD(:,:,:)
+!$OMP THREADPRIVATE(wTsumSTD)
+      REAL,ALLOCATABLE,SAVE :: u2sumSTD(:,:,:)
+!$OMP THREADPRIVATE(u2sumSTD)
+      REAL,ALLOCATABLE,SAVE :: v2sumSTD(:,:,:)
+!$OMP THREADPRIVATE(v2sumSTD)
+      REAL,ALLOCATABLE,SAVE :: T2sumSTD(:,:,:)
+!$OMP THREADPRIVATE(T2sumSTD)
+      REAL,ALLOCATABLE,SAVE :: O3sumSTD(:,:,:), O3daysumSTD(:,:,:)
+!$OMP THREADPRIVATE(O3sumSTD,O3daysumSTD) 
+!IM begin
+      REAL,ALLOCATABLE,SAVE :: wlevSTD(:,:), ulevSTD(:,:), vlevSTD(:,:)
+!$OMP THREADPRIVATE(wlevSTD,ulevSTD,vlevSTD)
+      REAL,ALLOCATABLE,SAVE :: tlevSTD(:,:), qlevSTD(:,:), rhlevSTD(:,:)
+!$OMP THREADPRIVATE(tlevSTD,qlevSTD,rhlevSTD)
+      REAL,ALLOCATABLE,SAVE :: philevSTD(:,:)
+!$OMP THREADPRIVATE(philevSTD)
+      REAL,ALLOCATABLE,SAVE :: uvSTD(:,:)
+!$OMP THREADPRIVATE(uvSTD)
+      REAL,ALLOCATABLE,SAVE :: vqSTD(:,:)
+!$OMP THREADPRIVATE(vqSTD)
+      REAL,ALLOCATABLE,SAVE :: vTSTD(:,:)
+!$OMP THREADPRIVATE(vTSTD)
+      REAL,ALLOCATABLE,SAVE :: wqSTD(:,:)
+!$OMP THREADPRIVATE(wqSTD)
+      REAL,ALLOCATABLE,SAVE :: vphiSTD(:,:)
+!$OMP THREADPRIVATE(vphiSTD)
+      REAL,ALLOCATABLE,SAVE :: wTSTD(:,:)
+!$OMP THREADPRIVATE(wTSTD)
+      REAL,ALLOCATABLE,SAVE :: u2STD(:,:)
+!$OMP THREADPRIVATE(u2STD)
+      REAL,ALLOCATABLE,SAVE :: v2STD(:,:) 
+!$OMP THREADPRIVATE(v2STD)
+      REAL,ALLOCATABLE,SAVE :: T2STD(:,:)
+!$OMP THREADPRIVATE(T2STD)
+      REAL,ALLOCATABLE,SAVE :: O3STD(:,:), O3daySTD(:,:)
+!$OMP THREADPRIVATE(O3STD,O3daySTD)
+!IM end
+      INTEGER,ALLOCATABLE,SAVE :: seed_old(:,:)
+!$OMP THREADPRIVATE(seed_old)
+      REAL,ALLOCATABLE,SAVE :: zuthe(:),zvthe(:)
+!$OMP THREADPRIVATE(zuthe,zvthe)
+      REAL,ALLOCATABLE,SAVE :: alb_neig(:)
+!$OMP THREADPRIVATE(alb_neig)
+!cloud base mass flux
+      REAL,ALLOCATABLE,SAVE :: ema_cbmf(:)
+!$OMP THREADPRIVATE(ema_cbmf)
+!cloud base pressure & cloud top pressure
+      REAL,ALLOCATABLE,SAVE :: ema_pcb(:), ema_pct(:)
+!$OMP THREADPRIVATE(ema_pcb,ema_pct)
+      REAL,ALLOCATABLE,SAVE :: Ma(:,:)        ! undilute upward mass flux
+!$OMP THREADPRIVATE(Ma)
+      REAL,ALLOCATABLE,SAVE :: qcondc(:,:)    ! in-cld water content from convect
+!$OMP THREADPRIVATE(qcondc)
+      REAL,ALLOCATABLE,SAVE :: wd(:) ! sb
+!$OMP THREADPRIVATE(wd)
+      REAL,ALLOCATABLE,SAVE :: sigd(:)
+!$OMP THREADPRIVATE(sigd)
+!
+      REAL,ALLOCATABLE,SAVE :: cin(:)
+!$OMP THREADPRIVATE(cin)
+! ftd : differential heating between wake and environment
+      REAL,ALLOCATABLE,SAVE :: ftd(:,:)
+!$OMP THREADPRIVATE(ftd)
+! fqd : differential moistening between wake and environment
+      REAL,ALLOCATABLE,SAVE :: fqd(:,:)     
+!$OMP THREADPRIVATE(fqd)
+!34EK
+! -- Variables de controle de ALE et ALP
+!ALE : Energie disponible pour soulevement : utilisee par la 
+!      convection d'Emanuel pour le declenchement et la regulation
+      REAL,ALLOCATABLE,SAVE :: ALE(:)
+!$OMP THREADPRIVATE(ALE)
+!ALP : Puissance  disponible pour soulevement
+      REAL,ALLOCATABLE,SAVE :: ALP(:)
+!$OMP THREADPRIVATE(ALP)
+!
+! nouvelles variables pour le couplage convection-couche limite
+      REAL,ALLOCATABLE,SAVE :: Ale_bl(:)
+!$OMP THREADPRIVATE(Ale_bl)
+      REAL,ALLOCATABLE,SAVE :: Alp_bl(:)
+!$OMP THREADPRIVATE(Alp_bl)
+      INTEGER,ALLOCATABLE,SAVE :: lalim_conv(:)
+!$OMP THREADPRIVATE(lalim_conv)
+      REAL,ALLOCATABLE,SAVE :: wght_th(:,:)
+!$OMP THREADPRIVATE(wght_th)
+!
+! variables de la wake
+! wake_deltat : ecart de temperature avec la zone non perturbee
+! wake_deltaq : ecart d'humidite avec la zone non perturbee
+! wake_Cstar  : vitesse d'etalement de la poche
+! wake_s      : fraction surfacique occupee par la poche froide
+! wake_pe     : wake potential energy - WAPE
+! wake_fip    : Gust Front Impinging power - ALP
+! dt_wake, dq_wake: LS tendencies due to wake
+      REAL,ALLOCATABLE,SAVE :: wake_deltat(:,:)
+!$OMP THREADPRIVATE(wake_deltat)
+      REAL,ALLOCATABLE,SAVE :: wake_deltaq(:,:)
+!$OMP THREADPRIVATE(wake_deltaq)
+      REAL,ALLOCATABLE,SAVE :: wake_Cstar(:)
+!$OMP THREADPRIVATE(wake_Cstar)
+      REAL,ALLOCATABLE,SAVE :: wake_s(:)
+!$OMP THREADPRIVATE(wake_s)
+      REAL,ALLOCATABLE,SAVE :: wake_pe(:)
+!$OMP THREADPRIVATE(wake_pe)
+      REAL,ALLOCATABLE,SAVE :: wake_fip(:)
+!$OMP THREADPRIVATE(wake_fip)
+      REAL,ALLOCATABLE,SAVE :: dt_wake(:,:)
+!$OMP THREADPRIVATE(dt_wake)
+      REAL,ALLOCATABLE,SAVE :: dq_wake(:,:)
+!$OMP THREADPRIVATE(dq_wake)
+!
+!jyg<
+! variables related to the spitting of the PBL between wake and 
+! off-wake regions.
+! wake_delta_pbl_TKE : difference TKE_w - TKE_x
+      REAL,ALLOCATABLE,SAVE :: wake_delta_pbl_TKE(:,:,:)
+!$OMP THREADPRIVATE(wake_delta_pbl_TKE)
+!>jyg
+!
+! pfrac_impa : Produits des coefs lessivage impaction
+! pfrac_nucl : Produits des coefs lessivage nucleation
+! pfrac_1nucl: Produits des coefs lessi nucl (alpha = 1) 
+      REAL,ALLOCATABLE,SAVE :: pfrac_impa(:,:), pfrac_nucl(:,:)
+!$OMP THREADPRIVATE(pfrac_impa,pfrac_nucl)
+      REAL,ALLOCATABLE,SAVE :: pfrac_1nucl(:,:)
+!$OMP THREADPRIVATE(pfrac_1nucl)
+!
+      REAL,ALLOCATABLE,SAVE :: total_rain(:), nday_rain(:)  
+!$OMP THREADPRIVATE(total_rain,nday_rain)
+      REAL,ALLOCATABLE,SAVE :: paire_ter(:)
+!$OMP THREADPRIVATE(paire_ter)
+! albsol1: albedo du sol total pour SW visible
+! albsol2: albedo du sol total pour SW proche IR
+      REAL,ALLOCATABLE,SAVE :: albsol1(:), albsol2(:)
+!$OMP THREADPRIVATE(albsol1,albsol2)
+
+!albedo SB >>>
+      REAL,ALLOCATABLE,SAVE :: albsol_dif(:,:),albsol_dir(:,:)
+!$OMP THREADPRIVATE(albsol_dif,albsol_dir)
+!albedo SB <<<
+
+
+      REAL, ALLOCATABLE, SAVE:: wo(:, :, :)
+      ! column-density of ozone in a layer, in kilo-Dobsons
+      ! Third dimension has size 1 or 2.
+      ! "wo(:, :, 1)" is for the average day-night field, 
+      ! "wo(:, :, 2)" is for daylight time.
+      !$OMP THREADPRIVATE(wo)
+
+! heat : chauffage solaire
+! heat0: chauffage solaire ciel clair
+! cool : refroidissement infrarouge
+! cool0 : refroidissement infrarouge ciel clair
+! sollwdown : downward LW flux at surface
+! sollwdownclr : downward CS LW flux at surface
+! toplwdown : downward CS LW flux at TOA
+! toplwdownclr : downward CS LW flux at TOA
+      REAL,ALLOCATABLE,SAVE :: clwcon0(:,:),rnebcon0(:,:)
+!$OMP THREADPRIVATE(clwcon0,rnebcon0)
+      REAL,ALLOCATABLE,SAVE :: heat(:,:)   
+!$OMP THREADPRIVATE(heat)
+      REAL,ALLOCATABLE,SAVE :: heat0(:,:)
+!$OMP THREADPRIVATE(heat0)
+      REAL,ALLOCATABLE,SAVE :: cool(:,:)
+!$OMP THREADPRIVATE(cool)
+      REAL,ALLOCATABLE,SAVE :: cool0(:,:)
+!$OMP THREADPRIVATE(cool0)
+      REAL,ALLOCATABLE,SAVE :: topsw(:), toplw(:)
+!$OMP THREADPRIVATE(topsw,toplw)
+      REAL,ALLOCATABLE,SAVE :: sollwdown(:)
+!$OMP THREADPRIVATE(sollwdown)
+      REAL,ALLOCATABLE,SAVE :: gustiness(:)
+!$OMP THREADPRIVATE(gustiness)
+      REAL,ALLOCATABLE,SAVE :: sollwdownclr(:)
+!$OMP THREADPRIVATE(sollwdownclr)
+      REAL,ALLOCATABLE,SAVE :: toplwdown(:)
+!$OMP THREADPRIVATE(toplwdown)
+      REAL,ALLOCATABLE,SAVE :: toplwdownclr(:)
+!$OMP THREADPRIVATE(toplwdownclr)
+      REAL,ALLOCATABLE,SAVE :: topsw0(:),toplw0(:),solsw0(:),sollw0(:)
+!$OMP THREADPRIVATE(topsw0,toplw0,solsw0,sollw0)
+      REAL,ALLOCATABLE,SAVE :: albpla(:)
+!$OMP THREADPRIVATE(albpla)
+
+!IM ajout variables CFMIP2/CMIP5
+      REAL,ALLOCATABLE,SAVE :: heatp(:,:), coolp(:,:)
+!$OMP THREADPRIVATE(heatp, coolp)
+      REAL,ALLOCATABLE,SAVE :: heat0p(:,:), cool0p(:,:)
+!$OMP THREADPRIVATE(heat0p, cool0p)
+      REAL,ALLOCATABLE,SAVE :: radsolp(:), topswp(:), toplwp(:)
+!$OMP THREADPRIVATE(radsolp, topswp, toplwp)
+      REAL,ALLOCATABLE,SAVE :: albplap(:)
+!$OMP THREADPRIVATE(albplap)
+      REAL,ALLOCATABLE,SAVE :: solswp(:), sollwp(:)
+!$OMP THREADPRIVATE(solswp, sollwp)
+      REAL,ALLOCATABLE,SAVE :: sollwdownp(:)
+!$OMP THREADPRIVATE(sollwdownp)
+      REAL,ALLOCATABLE,SAVE :: topsw0p(:),toplw0p(:)
+      REAL,ALLOCATABLE,SAVE :: solsw0p(:),sollw0p(:)
+!$OMP THREADPRIVATE(topsw0p,toplw0p,solsw0p,sollw0p)
+      REAL,ALLOCATABLE,SAVE :: lwdn0p(:,:), lwdnp(:,:)
+      REAL,ALLOCATABLE,SAVE :: lwup0p(:,:), lwupp(:,:)
+!$OMP THREADPRIVATE(lwdn0p, lwdnp, lwup0p, lwupp)
+      REAL,ALLOCATABLE,SAVE :: swdn0p(:,:), swdnp(:,:)
+      REAL,ALLOCATABLE,SAVE :: swup0p(:,:), swupp(:,:)
+!$OMP THREADPRIVATE(swdn0p, swdnp, swup0p, swupp)
+
+! pbase : cloud base pressure
+! bbase : cloud base buoyancy
+      REAL,ALLOCATABLE,SAVE :: cape(:)
+!$OMP THREADPRIVATE(cape)
+      REAL,ALLOCATABLE,SAVE :: pbase(:)
+!$OMP THREADPRIVATE(pbase)
+      REAL,ALLOCATABLE,SAVE :: bbase(:)
+!$OMP THREADPRIVATE(bbase)
+!
+      REAL,SAVE,ALLOCATABLE :: zqasc(:,:)
+!$OMP THREADPRIVATE( zqasc)
+      INTEGER,ALLOCATABLE,SAVE :: ibas_con(:), itop_con(:)
+!$OMP THREADPRIVATE(ibas_con,itop_con)
+      REAL,SAVE,ALLOCATABLE :: rain_con(:)
+!$OMP THREADPRIVATE(rain_con)
+      REAL,SAVE,ALLOCATABLE :: snow_con(:)
+!$OMP THREADPRIVATE(snow_con)
+!
+      REAL,SAVE,ALLOCATABLE :: rlonPOS(:)
+!$OMP THREADPRIVATE(rlonPOS)
+      REAL,SAVE,ALLOCATABLE :: newsst(:)
+!$OMP THREADPRIVATE(newsst)
+      REAL,SAVE,ALLOCATABLE :: ustar(:,:),u10m(:,:), v10m(:,:),wstar(:,:)
+!$OMP THREADPRIVATE(ustar,u10m,v10m,wstar)
+!
+! ok_ade=T -ADE=topswad-topsw
+! ok_aie=T ->
+!       ok_ade=T -AIE=topswai-topswad
+!       ok_ade=F -AIE=topswai-topsw
+!
+!topswad, solswad : Aerosol direct effect
+      REAL,SAVE,ALLOCATABLE :: topswad(:), solswad(:)
+!$OMP THREADPRIVATE(topswad,solswad)
+!topswai, solswai : Aerosol indirect effect
+      REAL,SAVE,ALLOCATABLE :: topswai(:), solswai(:)
+!$OMP THREADPRIVATE(topswai,solswai)
+
+      REAL,SAVE,ALLOCATABLE :: tau_aero(:,:,:,:), piz_aero(:,:,:,:), cg_aero(:,:,:,:)
+!$OMP THREADPRIVATE(tau_aero, piz_aero, cg_aero)
+      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)
+
+!!! nrlmd le 10/04/2012
+      REAL,SAVE,ALLOCATABLE :: ale_bl_trig(:)
+!$OMP THREADPRIVATE(ale_bl_trig)
+!!! fin nrlmd le 10/04/2012
+
+      REAL, ALLOCATABLE, SAVE:: du_gwd_rando(:, :), du_gwd_front(:, :)
+      !$OMP THREADPRIVATE(du_gwd_rando, du_gwd_front)
+      ! tendencies on wind due to gravity waves
+
+CONTAINS
+
+!======================================================================
+SUBROUTINE phys_state_var_init(read_climoz)
+USE dimphy
+USE aero_mod
+USE infotrac_phy, ONLY : nbtr
+USE indice_sol_mod
+IMPLICIT NONE
+
+integer, intent(in)::  read_climoz
+! read ozone climatology
+! Allowed values are 0, 1 and 2
+! 0: do not read an ozone climatology
+! 1: read a single ozone climatology that will be used day and night
+! 2: read two ozone climatologies, the average day and night
+! climatology and the daylight climatology
+
+include "clesphys.h"
+
+      ALLOCATE(pctsrf(klon,nbsrf))
+      ALLOCATE(ftsol(klon,nbsrf))
+      ALLOCATE(qsol(klon),fevap(klon,nbsrf))
+      ALLOCATE(z0m(klon,nbsrf+1),z0h(klon,nbsrf+1),agesno(klon,nbsrf))
+      ALLOCATE(falb1(klon,nbsrf))
+      ALLOCATE(falb2(klon,nbsrf))
+!albedo SB >>> 
+      ALLOCATE(falb_dir(klon,nsw,nbsrf),falb_dif(klon,nsw,nbsrf))
+      ALLOCATE(chl_con(klon))
+!albedo SB <<<
+      ALLOCATE(rain_fall(klon))
+      ALLOCATE(snow_fall(klon))
+      ALLOCATE(solsw(klon), sollw(klon))
+      ALLOCATE(radsol(klon))
+      ALLOCATE(swradcorr(klon))
+      ALLOCATE(zmea(klon), zstd(klon), zsig(klon), zgam(klon))
+      ALLOCATE(zthe(klon), zpic(klon), zval(klon))
+
+      ALLOCATE(rugoro(klon))
+      ALLOCATE(t_ancien(klon,klev), q_ancien(klon,klev))
+      ALLOCATE(ql_ancien(klon,klev), qs_ancien(klon,klev))
+      ALLOCATE(prw_ancien(klon), prlw_ancien(klon), prsw_ancien(klon))
+      ALLOCATE(u_ancien(klon,klev), v_ancien(klon,klev))
+!!! Rom P >>>
+      ALLOCATE(tr_ancien(klon,klev,nbtr))
+!!! Rom P <<<
+      ALLOCATE(clwcon(klon,klev),rnebcon(klon,klev))
+      ALLOCATE(qtc_cv(klon,klev),sigt_cv(klon,klev))
+      ALLOCATE(ratqs(klon,klev))
+      ALLOCATE(pbl_tke(klon,klev+1,nbsrf+1))
+!nrlmd<
+      ALLOCATE(delta_tsurf(klon,nbsrf))
+!>nrlmd
+      ALLOCATE(coefh(klon,klev+1,nbsrf+1))
+      ALLOCATE(coefm(klon,klev+1,nbsrf+1))
+      ALLOCATE(zmax0(klon), f0(klon))
+      ALLOCATE(sig1(klon,klev), w01(klon,klev))
+      ALLOCATE(entr_therm(klon,klev), fm_therm(klon,klev+1))
+      ALLOCATE(detr_therm(klon,klev))
+!     pour phsystoke avec thermiques
+      ALLOCATE(clwcon0th(klon,klev),rnebcon0th(klon,klev))
+! radiation outputs
+      ALLOCATE(swdn0(klon,klevp1), swdn(klon,klevp1))
+      ALLOCATE(swup0(klon,klevp1), swup(klon,klevp1))
+      ALLOCATE(lwdn0(klon,klevp1), lwdn(klon,klevp1))
+      ALLOCATE(lwup0(klon,klevp1), lwup(klon,klevp1))
+      ALLOCATE(SWdn200clr(klon), SWdn200(klon))
+      ALLOCATE(SWup200clr(klon), SWup200(klon))
+      ALLOCATE(LWdn200clr(klon), LWdn200(klon))
+      ALLOCATE(LWup200clr(klon), LWup200(klon))
+      ALLOCATE(LWdnTOA(klon), LWdnTOAclr(klon))
+! pressure level
+      ALLOCATE(tsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(usumSTD(klon,nlevSTD,nout), vsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(wsumSTD(klon,nlevSTD,nout), phisumSTD(klon,nlevSTD,nout))
+      ALLOCATE(qsumSTD(klon,nlevSTD,nout), rhsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(tnondef(klon,nlevSTD,nout))
+      ALLOCATE(uvsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(vqsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(vTsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(wqsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(vphisumSTD(klon,nlevSTD,nout))
+      ALLOCATE(wTsumSTD(klon,nlevSTD,nout))
+      ALLOCATE(u2sumSTD(klon,nlevSTD,nout))
+      ALLOCATE(v2sumSTD(klon,nlevSTD,nout))
+      ALLOCATE(T2sumSTD(klon,nlevSTD,nout))
+      ALLOCATE(O3sumSTD(klon,nlevSTD,nout))
+      ALLOCATE(O3daysumSTD(klon,nlevSTD,nout))
+!IM beg
+      ALLOCATE(wlevSTD(klon,nlevSTD), ulevSTD(klon,nlevSTD), vlevSTD(klon,nlevSTD))
+      ALLOCATE(tlevSTD(klon,nlevSTD), qlevSTD(klon,nlevSTD), rhlevSTD(klon,nlevSTD))
+      ALLOCATE(philevSTD(klon,nlevSTD))
+      ALLOCATE(uvSTD(klon,nlevSTD),vqSTD(klon,nlevSTD))
+      ALLOCATE(vTSTD(klon,nlevSTD),wqSTD(klon,nlevSTD))
+      ALLOCATE(vphiSTD(klon,nlevSTD),wTSTD(klon,nlevSTD))
+      ALLOCATE(u2STD(klon,nlevSTD),v2STD(klon,nlevSTD))
+      ALLOCATE(T2STD(klon,nlevSTD))
+      ALLOCATE(O3STD(klon,nlevSTD))
+      ALLOCATE(O3daySTD(klon,nlevSTD))
+!IM end
+      ALLOCATE(seed_old(klon,napisccp))
+      ALLOCATE(zuthe(klon),zvthe(klon))
+      ALLOCATE(alb_neig(klon))
+!cloud base mass flux
+      ALLOCATE(ema_cbmf(klon))
+!cloud base pressure & cloud top pressure
+      ALLOCATE(ema_pcb(klon), ema_pct(klon))
+!
+      ALLOCATE(Ma(klon,klev))
+      ALLOCATE(qcondc(klon,klev))
+      ALLOCATE(wd(klon))
+      ALLOCATE(sigd(klon))
+      ALLOCATE(cin(klon), ALE(klon), ALP(klon))
+      ALLOCATE(ftd(klon,klev), fqd(klon,klev))
+      ALLOCATE(Ale_bl(klon))
+      ALLOCATE(Alp_bl(klon))
+      ALLOCATE(lalim_conv(klon))
+      ALLOCATE(wght_th(klon,klev))
+      ALLOCATE(wake_deltat(klon,klev), wake_deltaq(klon,klev))
+      ALLOCATE(wake_Cstar(klon), wake_s(klon))
+      ALLOCATE(wake_pe(klon), wake_fip(klon))
+      ALLOCATE(dt_wake(klon,klev), dq_wake(klon,klev))
+!jyg<
+      ALLOCATE(wake_delta_pbl_TKE(klon,klev+1,nbsrf+1))
+!>jyg
+      ALLOCATE(pfrac_impa(klon,klev), pfrac_nucl(klon,klev))
+      ALLOCATE(pfrac_1nucl(klon,klev))
+      ALLOCATE(total_rain(klon), nday_rain(klon))
+      ALLOCATE(paire_ter(klon))
+      ALLOCATE(albsol1(klon), albsol2(klon))
+!albedo SB >>>
+      ALLOCATE(albsol_dir(klon,nsw),albsol_dif(klon,nsw))
+!albedo SB <<<
+
+      if (read_climoz <= 1) then
+         ALLOCATE(wo(klon,klev, 1))
+      else
+         ! read_climoz == 2
+         ALLOCATE(wo(klon,klev, 2))
+      end if
+      
+      ALLOCATE(clwcon0(klon,klev),rnebcon0(klon,klev))
+      ALLOCATE(heat(klon,klev), heat0(klon,klev)) 
+      ALLOCATE(cool(klon,klev), cool0(klon,klev))
+      ALLOCATE(topsw(klon), toplw(klon))
+      ALLOCATE(sollwdown(klon), sollwdownclr(klon))
+      ALLOCATE(toplwdown(klon), toplwdownclr(klon))
+      ALLOCATE(topsw0(klon),toplw0(klon),solsw0(klon),sollw0(klon))
+      ALLOCATE(albpla(klon))
+!IM ajout variables CFMIP2/CMIP5
+      ALLOCATE(heatp(klon,klev), coolp(klon,klev))
+      ALLOCATE(heat0p(klon,klev), cool0p(klon,klev))
+      ALLOCATE(radsolp(klon), topswp(klon), toplwp(klon))
+      ALLOCATE(albplap(klon))
+      ALLOCATE(solswp(klon), sollwp(klon))
+      ALLOCATE(gustiness(klon))
+      ALLOCATE(sollwdownp(klon))
+      ALLOCATE(topsw0p(klon),toplw0p(klon))
+      ALLOCATE(solsw0p(klon),sollw0p(klon))
+      ALLOCATE(lwdn0p(klon,klevp1), lwdnp(klon,klevp1))
+      ALLOCATE(lwup0p(klon,klevp1), lwupp(klon,klevp1))
+      ALLOCATE(swdn0p(klon,klevp1), swdnp(klon,klevp1))
+      ALLOCATE(swup0p(klon,klevp1), swupp(klon,klevp1))
+
+      ALLOCATE(cape(klon))
+      ALLOCATE(pbase(klon),bbase(klon))
+      ALLOCATE(zqasc(klon,klev))
+      ALLOCATE(ibas_con(klon), itop_con(klon))
+      ALLOCATE(rain_con(klon), snow_con(klon))
+      ALLOCATE(rlonPOS(klon))
+      ALLOCATE(newsst(klon))
+      ALLOCATE(ustar(klon,nbsrf),u10m(klon,nbsrf), v10m(klon,nbsrf),wstar(klon,nbsrf+1))
+      ALLOCATE(topswad(klon), solswad(klon))
+      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_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))
+
+!!! nrlmd le 10/04/2012
+      ALLOCATE(ale_bl_trig(klon))
+!!! fin nrlmd le 10/04/2012
+      if (ok_gwd_rando) allocate(du_gwd_rando(klon, klev))
+      if (.not. ok_hines .and. ok_gwd_rando) allocate(du_gwd_front(klon, klev))
+
+END SUBROUTINE phys_state_var_init
+
+!======================================================================
+SUBROUTINE phys_state_var_end
+!USE dimphy
+USE indice_sol_mod
+IMPLICIT NONE
+include "clesphys.h"
+
+      deallocate(pctsrf, ftsol, falb1, falb2)
+      deallocate(qsol,fevap,z0m,z0h,agesno)
+      deallocate(rain_fall, snow_fall, solsw, sollw, radsol, swradcorr)
+      deallocate(zmea, zstd, zsig, zgam)
+      deallocate(zthe, zpic, zval)
+      deallocate(rugoro, t_ancien, q_ancien, clwcon, rnebcon)
+      deallocate(qs_ancien, ql_ancien)
+      deallocate(prw_ancien, prlw_ancien, prsw_ancien)
+      deallocate(qtc_cv,sigt_cv)
+      deallocate(u_ancien, v_ancien)
+      deallocate(tr_ancien)                           !RomP
+      deallocate(ratqs, pbl_tke,coefh,coefm)
+!nrlmd<
+      deallocate(delta_tsurf)
+!>nrlmd
+      deallocate(zmax0, f0)
+      deallocate(sig1, w01)
+      deallocate(entr_therm, fm_therm)
+      deallocate(detr_therm)
+      deallocate(clwcon0th, rnebcon0th)
+! radiation outputs
+      deallocate(swdn0, swdn)
+      deallocate(swup0, swup)
+      deallocate(lwdn0, lwdn)
+      deallocate(lwup0, lwup)
+      deallocate(SWdn200clr, SWdn200)
+      deallocate(SWup200clr, SWup200)
+      deallocate(LWdn200clr, LWdn200)
+      deallocate(LWup200clr, LWup200)
+      deallocate(LWdnTOA, LWdnTOAclr)
+! pressure level
+      deallocate(tsumSTD)
+      deallocate(usumSTD, vsumSTD)
+      deallocate(wsumSTD, phisumSTD)
+      deallocate(tnondef)
+      deallocate(qsumSTD, rhsumSTD)
+      deallocate(uvsumSTD)
+      deallocate(vqsumSTD)
+      deallocate(vTsumSTD)
+      deallocate(wqsumSTD)
+      deallocate(vphisumSTD)
+      deallocate(wTsumSTD)
+      deallocate(u2sumSTD)
+      deallocate(v2sumSTD)
+      deallocate(T2sumSTD)
+      deallocate(O3sumSTD)
+      deallocate(O3daysumSTD)
+!IM beg
+      deallocate(wlevSTD,ulevSTD,vlevSTD,tlevSTD,qlevSTD,rhlevSTD,philevSTD)
+      deallocate(uvSTD,vqSTD,vTSTD,wqSTD,vphiSTD,wTSTD,u2STD,v2STD,T2STD,O3STD,O3daySTD)
+!IM end
+      deallocate(seed_old)
+      deallocate(zuthe, zvthe)
+      deallocate(alb_neig)
+      deallocate(ema_cbmf)
+      deallocate(ema_pcb, ema_pct)
+      deallocate(Ma, qcondc)
+      deallocate(wd, sigd)
+      deallocate(cin, ALE, ALP)
+      deallocate(ftd, fqd)
+      deallocate(Ale_bl, Alp_bl)
+      deallocate(lalim_conv, wght_th)
+      deallocate(wake_deltat, wake_deltaq)
+      deallocate(wake_Cstar, wake_s, wake_pe, wake_fip)
+      deallocate(dt_wake, dq_wake)
+!jyg<
+      deallocate(wake_delta_pbl_TKE)
+!>jyg
+      deallocate(pfrac_impa, pfrac_nucl)
+      deallocate(pfrac_1nucl)
+      deallocate(total_rain, nday_rain)
+      deallocate(paire_ter)
+      deallocate(albsol1, albsol2)
+!albedo SB >>>
+      deallocate(albsol_dir,albsol_dif,falb_dir,falb_dif,chl_con)
+!albedo SB <<<
+      deallocate(wo)
+      deallocate(clwcon0,rnebcon0)
+      deallocate(heat, heat0) 
+      deallocate(cool, cool0)
+      deallocate(topsw, toplw)
+      deallocate(sollwdown, sollwdownclr)
+      deallocate(gustiness)
+      deallocate(toplwdown, toplwdownclr)
+      deallocate(topsw0,toplw0,solsw0,sollw0)
+      deallocate(albpla)
+!IM ajout variables CFMIP2/CMIP5
+      deallocate(heatp, coolp)
+      deallocate(heat0p, cool0p)
+      deallocate(radsolp, topswp, toplwp)
+      deallocate(albplap)
+      deallocate(solswp, sollwp)
+      deallocate(sollwdownp)
+      deallocate(topsw0p,toplw0p)
+      deallocate(solsw0p,sollw0p)
+      deallocate(lwdn0p, lwdnp)
+      deallocate(lwup0p, lwupp)
+      deallocate(swdn0p, swdnp)
+      deallocate(swup0p, swupp)
+      deallocate(cape)
+      deallocate(pbase,bbase)
+      deallocate(zqasc)
+      deallocate(ibas_con, itop_con)
+      deallocate(rain_con, snow_con)
+      deallocate(rlonPOS)
+      deallocate(newsst)
+      deallocate(ustar,u10m, v10m,wstar)
+      deallocate(topswad, solswad)
+      deallocate(topswai, solswai)
+      deallocate(tau_aero,piz_aero,cg_aero)
+      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)
+      if (.not. ok_hines .and. ok_gwd_rando) deallocate(du_gwd_front)
+       
+!!! nrlmd le 10/04/2012
+      deallocate(ale_bl_trig)
+!!! fin nrlmd le 10/04/2012
+
+END SUBROUTINE phys_state_var_end
+
+      END MODULE phys_state_var_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/physiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/physiq_mod.F90	(revision 3330)
@@ -0,0 +1,4678 @@
+!
+! $Id$
+!
+!#define IO_DEBUG
+MODULE physiq_mod
+
+  IMPLICIT NONE
+
+CONTAINS
+
+  SUBROUTINE physiq (nlon,nlev, &
+       debut,lafin,pdtphys_, &
+       paprs,pplay,pphi,pphis,presnivs, &
+       u,v,rot,t,qx, &
+       flxmass_w, &
+       d_u, d_v, d_t, d_qx, d_ps)
+
+    USE ioipsl, only: histbeg, histvert, histdef, histend, histsync, &
+         histwrite, ju2ymds, ymds2ju, getin
+    USE geometry_mod, ONLY: cell_area, latitude_deg, longitude_deg
+    USE phys_cal_mod, only: year_len, mth_len, days_elapsed, jh_1jan, &
+         year_cur, mth_cur,jD_cur, jH_cur, jD_ref
+    USE write_field_phy
+    USE dimphy
+    USE infotrac_phy, ONLY: nqtot, nbtr, nqo, type_trac
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo
+    USE mod_phys_lmdz_para
+    USE iophy
+    USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
+    USE phystokenc_mod, ONLY: offline, phystokenc
+    USE time_phylmdz_mod, only: raz_date, day_step_phy, update_time
+    USE vampir
+    USE pbl_surface_mod, ONLY : pbl_surface
+    USE change_srf_frac_mod
+    USE surface_data,     ONLY : type_ocean, ok_veget, ok_snow
+    USE phys_local_var_mod, ONLY: phys_local_var_init, phys_local_var_end, &
+       ! [Variables internes non sauvegardees de la physique]
+       ! Variables locales pour effectuer les appels en serie
+       t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,tr_seri, &
+       ! Dynamic tendencies (diagnostics)
+       d_t_dyn,d_q_dyn,d_ql_dyn,d_qs_dyn,d_u_dyn,d_v_dyn,d_tr_dyn, &
+       d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d, &
+       ! Physic tendencies
+       d_t_con,d_q_con,d_u_con,d_v_con, &
+       d_tr, &                              !! to be removed?? (jyg)
+       d_t_wake,d_q_wake, &
+       d_t_lwr,d_t_lw0,d_t_swr,d_t_sw0, &
+       d_t_ajsb,d_q_ajsb, &
+       d_t_ajs,d_q_ajs,d_u_ajs,d_v_ajs, &
+       d_t_ajs_w,d_q_ajs_w, &
+       d_t_ajs_x,d_q_ajs_x, &
+       !
+       d_t_eva,d_q_eva, &
+       d_t_lsc,d_q_lsc,d_ql_lsc,d_qi_lsc, &
+       d_t_lscst,d_q_lscst, &
+       d_t_lscth,d_q_lscth, &
+       plul_st,plul_th, &
+       !
+       d_t_vdf,d_q_vdf,d_u_vdf,d_v_vdf,d_t_diss, &
+       d_t_vdf_w,d_q_vdf_w, &
+       d_t_vdf_x,d_q_vdf_x, &
+       d_ts, &
+       !
+       d_t_oli,d_u_oli,d_v_oli, &
+       d_t_oro,d_u_oro,d_v_oro, &
+       d_t_lif,d_u_lif,d_v_lif, &
+       d_t_ec, &
+       !
+       du_gwd_hines,dv_gwd_hines,d_t_hin, &
+       dv_gwd_rando,dv_gwd_front, &
+       east_gwstress,west_gwstress, &
+       d_q_ch4, &
+       !  Special RRTM
+       ZLWFT0_i,ZSWFT0_i,ZFLDN0,  &
+       ZFLUP0,ZFSDN0,ZFSUP0,      &
+       !
+       topswad_aero,solswad_aero,   &
+       topswai_aero,solswai_aero,   &
+       topswad0_aero,solswad0_aero, &
+       !LW additional
+       toplwad_aero,sollwad_aero,   &
+       toplwai_aero,sollwai_aero,   &
+       toplwad0_aero,sollwad0_aero, &
+       !
+       topsw_aero,solsw_aero,       &
+       topsw0_aero,solsw0_aero,     &
+       topswcf_aero,solswcf_aero,   &
+       tausum_aero,tau3d_aero,      &
+       !
+       !variables CFMIP2/CMIP5
+       topswad_aerop, solswad_aerop,   &
+       topswai_aerop, solswai_aerop,   &
+       topswad0_aerop, solswad0_aerop, &
+       topsw_aerop, topsw0_aerop,      & 
+       solsw_aerop, solsw0_aerop,      &
+       topswcf_aerop, solswcf_aerop,   &
+       !LW diagnostics
+       toplwad_aerop, sollwad_aerop,   &
+       toplwai_aerop, sollwai_aerop,   &
+       toplwad0_aerop, sollwad0_aerop, &
+       !
+       ptstar, pt0, slp, &
+       !
+       bils, &
+       !
+       cldh, cldl,cldm, cldq, cldt,      &
+       JrNt,                             &
+       dthmin, evap, fder, plcl, plfc,   &
+       prw, prlw, prsw,                  &
+       s_lcl, s_pblh, s_pblt, s_therm,   &
+       cdragm, cdragh,                   &
+       zustar, zu10m, zv10m, rh2m, qsat2m, &
+       zq2m, zt2m, weak_inversion, &
+       zt2m_min_mon, zt2m_max_mon,   &         ! pour calcul_divers.h
+       t2m_min_mon, t2m_max_mon,  &            ! pour calcul_divers.h
+       !
+       s_pblh_x, s_pblh_w, &
+       s_lcl_x, s_lcl_w,   &
+       !
+       slab_wfbils, tpot, tpote,               &
+       ue, uq, ve, vq, zxffonte,               &
+       zxfqcalving, zxfluxlat,                 &
+       zxrunofflic,                            &
+       zxtsol, snow_lsc, zxfqfonte, zxqsurf,   &
+       rain_lsc, rain_num,                     &
+       !
+       sens_x, sens_w, &
+       zxfluxlat_x, zxfluxlat_w, &
+       !
+       dtvdf_x, dtvdf_w, &
+       dqvdf_x, dqvdf_w, &
+       undi_tke, wake_tke, &
+       pbl_tke_input, &
+       t_therm, q_therm, u_therm, v_therm, &
+       cdragh_x, cdragh_w, &
+       cdragm_x, cdragm_w, &
+       kh, kh_x, kh_w, &
+       !
+       ale_wake, alp_wake, & 
+       wake_h, wbeff, zmax_th, &
+       sens, flwp, fiwp,  &
+       ale_bl_stat,alp_bl_conv,alp_bl_det,  &
+       alp_bl_fluct_m,alp_bl_fluct_tke,  &
+       alp_bl_stat, n2, s2,  &
+       proba_notrig, random_notrig,  &
+       !
+       dnwd, dnwd0,  &
+       upwd, omega,  &
+       epmax_diag,  &
+       ep,  &
+       cldemi,  &
+       cldfra, cldtau, fiwc,  &
+       fl, re, flwc,  &
+       ref_liq, ref_ice, theta,  &
+       ref_liq_pi, ref_ice_pi,  &
+       zphi, wake_omg, zx_rh,  &
+       pmfd, pmfu,  &
+       !
+       t2m, fluxlat,  &
+       fsollw, evap_pot,  &
+       fsolsw, wfbils, wfbilo,  &
+       
+       pmflxr, pmflxs, prfl,  &
+       psfl, fraca, Vprecip,  &
+       zw2,  &
+       
+       fluxu, fluxv,  &
+       fluxt,  &
+
+       uwriteSTD, vwriteSTD, &                !pour calcul_STDlev.h
+       wwriteSTD, phiwriteSTD, &              !pour calcul_STDlev.h
+       qwriteSTD, twriteSTD, rhwriteSTD, &    !pour calcul_STDlev.h
+       
+       wdtrainA, wdtrainM,  &
+       beta_prec,  &
+       rneb,  &
+       zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic
+       !
+    USE phys_state_var_mod ! Variables sauvegardees de la physique
+    USE phys_output_var_mod ! Variables pour les ecritures des sorties
+    USE phys_output_write_mod
+    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
+    USE phys_output_mod
+    USE phys_output_ctrlout_mod
+    USE iophy
+    use open_climoz_m, only: open_climoz ! ozone climatology from a file
+    use regr_pr_av_m, only: regr_pr_av
+    use netcdf95, only: nf95_close
+    !IM for NMC files
+    !     use netcdf, only: nf90_fill_real
+    use netcdf
+    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    USE aero_mod
+    use ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
+    use conf_phys_m, only: conf_phys
+    use radlwsw_m, only: radlwsw
+    use phyaqua_mod, only: zenang_an
+    USE time_phylmdz_mod, only: day_step_phy, annee_ref, day_ref, itau_phy, &
+         start_time, pdtphys, day_ini
+    USE tracinca_mod, ONLY: config_inca
+#ifdef CPP_XIOS
+    USE wxios, ONLY: missing_val, missing_val_omp
+    USE xios, ONLY: xios_get_field_attr
+#endif
+#ifdef REPROBUS
+    USE CHEM_REP, ONLY : Init_chem_rep_xjour
+#endif
+    USE indice_sol_mod
+    USE phytrac_mod, ONLY : phytrac
+
+#ifdef CPP_RRTM
+    USE YOERAD, ONLY : NRADLP
+    USE YOESW, ONLY : RSUN
+#endif
+    USE ioipsl_getin_p_mod, ONLY : getin_p
+
+    USE paramLMDZ_phy_mod
+
+    USE cmp_seri_mod
+
+    !IM stations CFMIP
+    USE CFMIP_point_locations
+    use FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
+    use ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
+    USE vertical_layers_mod, only : Ahyb, Bhyb
+    IMPLICIT none
+    !>======================================================================
+    !!
+    !! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
+    !!
+    !! Objet: Moniteur general de la physique du modele
+    !!AA      Modifications quant aux traceurs :
+    !!AA                  -  uniformisation des parametrisations ds phytrac
+    !!AA                  -  stockage des moyennes des champs necessaires
+    !!AA                     en mode traceur off-line 
+    !!======================================================================
+    !!   CLEFS CPP POUR LES IO
+    !!   =====================
+#define histNMC
+    !!======================================================================
+    !!    modif   ( P. Le Van ,  12/10/98 )
+    !!
+    !!  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
+    !! presnivs-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)
+    !! d_ql_dyn-input-R-tendance dynamique pour "ql" (kg/kg/s)
+    !! d_qs_dyn-input-R-tendance dynamique pour "qs" (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
+    !!======================================================================
+    integer jjmp1
+    !  parameter (jjmp1=jjm+1-1/jjm) ! => (jjmp1=nbp_lat-1/(nbp_lat-1))
+    !  integer iip1
+    !  parameter (iip1=iim+1)
+
+    include "regdim.h"
+    include "dimsoil.h"
+    include "clesphys.h"
+    include "thermcell.h"
+    !======================================================================
+    LOGICAL ok_cvl  ! pour activer le nouveau driver pour convection KE
+    PARAMETER (ok_cvl=.TRUE.)
+    LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface
+    PARAMETER (ok_gust=.FALSE.)
+    integer iflag_radia     ! active ou non le rayonnement (MPL)
+    save iflag_radia
+    !$OMP THREADPRIVATE(iflag_radia)
+    !======================================================================
+    LOGICAL check ! Verifier la conservation du modele en eau
+    PARAMETER (check=.FALSE.)
+    LOGICAL ok_stratus ! Ajouter artificiellement les stratus
+    PARAMETER (ok_stratus=.FALSE.)
+    !======================================================================
+    REAL amn, amx
+    INTEGER igout
+    !======================================================================
+    ! Clef controlant l'activation du cycle diurne:
+    ! en attente du codage des cles par Fred
+    INTEGER iflag_cycle_diurne
+    PARAMETER (iflag_cycle_diurne=1)
+    !======================================================================
+    ! Modele thermique du sol, a activer pour le cycle diurne:
+    !cc      LOGICAL soil_model
+    !cc      PARAMETER (soil_model=.FALSE.)
+    !======================================================================
+    ! Dans les versions precedentes, l'eau liquide nuageuse utilisee dans
+    ! le calcul du rayonnement est celle apres la precipitation des nuages.
+    ! Si cette cle new_oliq est activee, ce sera une valeur moyenne entre
+    ! la condensation et la precipitation. Cette cle augmente les impacts
+    ! radiatifs des nuages.
+    !cc      LOGICAL new_oliq
+    !cc      PARAMETER (new_oliq=.FALSE.)
+    !======================================================================
+    ! Clefs controlant deux parametrisations de l'orographie:
+    !c      LOGICAL ok_orodr
+    !cc      PARAMETER (ok_orodr=.FALSE.)
+    !cc      LOGICAL ok_orolf
+    !cc      PARAMETER (ok_orolf=.FALSE.)
+    !======================================================================
+    LOGICAL ok_journe ! sortir le fichier journalier
+    save ok_journe
+    !$OMP THREADPRIVATE(ok_journe)
+    !
+    LOGICAL ok_mensuel ! sortir le fichier mensuel
+    save ok_mensuel
+    !$OMP THREADPRIVATE(ok_mensuel)
+    !
+    LOGICAL ok_instan ! sortir le fichier instantane
+    save ok_instan
+    !$OMP THREADPRIVATE(ok_instan)
+    !
+    LOGICAL ok_LES ! sortir le fichier LES 
+    save ok_LES                            
+    !$OMP THREADPRIVATE(ok_LES)                  
+    !
+    LOGICAL callstats ! sortir le fichier stats 
+    save callstats                            
+    !$OMP THREADPRIVATE(callstats)                  
+    !
+    LOGICAL ok_region ! sortir le fichier regional
+    PARAMETER (ok_region=.FALSE.)
+    !======================================================================
+    real seuil_inversion
+    save seuil_inversion
+    !$OMP THREADPRIVATE(seuil_inversion)
+    integer iflag_ratqs
+    save iflag_ratqs
+    !$OMP THREADPRIVATE(iflag_ratqs)
+    real facteur
+
+    REAL wmax_th(klon)
+    REAL tau_overturning_th(klon)
+
+    integer lmax_th(klon)
+    integer limbas(klon)
+    real ratqscth(klon,klev)
+    real ratqsdiff(klon,klev)
+    real zqsatth(klon,klev)
+
+    !======================================================================
+    !
+    INTEGER ivap          ! indice de traceurs pour vapeur d'eau
+    PARAMETER (ivap=1)
+    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)
+    !
+    !
+    ! Variables argument:
+    !
+    INTEGER nlon
+    INTEGER nlev
+    REAL,INTENT(IN) :: pdtphys_
+    ! NB: pdtphys to be used in physics is in time_phylmdz_mod
+    LOGICAL debut, lafin
+    REAL paprs(klon,klev+1)
+    REAL pplay(klon,klev)
+    REAL pphi(klon,klev)
+    REAL pphis(klon)
+    REAL presnivs(klev)
+    REAL znivsig(klev)
+    real pir
+
+    REAL u(klon,klev)
+    REAL v(klon,klev)
+
+    REAL, intent(in):: rot(klon, klev)
+    ! relative vorticity, in s-1, needed for frontal waves
+
+    REAL t(klon,klev),thetal(klon,klev)
+    ! thetal: ligne suivante a decommenter si vous avez les fichiers
+    !     MPL 20130625
+    ! fth_fonctions.F90 et parkind1.F90
+    ! sinon thetal=theta
+    !     REAL fth_thetae,fth_thetav,fth_thetal
+    REAL qx(klon,klev,nqtot)
+    REAL flxmass_w(klon,klev)
+    REAL d_u(klon,klev)
+    REAL d_v(klon,klev)
+    REAL d_t(klon,klev)
+    REAL d_qx(klon,klev,nqtot)
+    REAL d_ps(klon)
+    ! Variables pour le transport convectif
+    real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
+    real wght_cvfd(klon,klev)
+#ifndef CPP_XIOS
+    REAL, SAVE :: missing_val
+#endif
+    ! Variables pour le lessivage convectif
+    ! RomP >>> 
+    real phi2(klon,klev,klev)
+    real d1a(klon,klev),dam(klon,klev)
+    real ev(klon,klev)
+    real clw(klon,klev),elij(klon,klev,klev)
+    real epmlmMm(klon,klev,klev),eplaMm(klon,klev)
+    ! RomP <<<
+    !IM definition dynamique o_trac dans phys_output_open
+    !      type(ctrl_out) :: o_trac(nqtot)
+
+    ! variables a une pression donnee
+    !
+    include "declare_STDlev.h"
+    !
+    !
+    include "radopt.h"
+    !
+    !
+    INTEGER debug
+    INTEGER n
+    !ym      INTEGER npoints
+    !ym      PARAMETER(npoints=klon) 
+    !
+    INTEGER nregISCtot
+    PARAMETER(nregISCtot=1) 
+    !
+    ! imin_debut, nbpti, jmin_debut, nbptj : parametres pour sorties
+    ! sur 1 region rectangulaire y compris pour 1 point
+    ! imin_debut : indice minimum de i; nbpti : nombre de points en
+    ! direction i (longitude)
+    ! jmin_debut : indice minimum de j; nbptj : nombre de points en
+    ! direction j (latitude)
+    INTEGER imin_debut, nbpti
+    INTEGER jmin_debut, nbptj 
+    !IM: region='3d' <==> sorties en global
+    CHARACTER*3 region
+    PARAMETER(region='3d')
+    logical ok_hf
+    !
+    save ok_hf
+    !$OMP THREADPRIVATE(ok_hf)
+
+    INTEGER,PARAMETER :: longcles=20
+    REAL,SAVE :: clesphy0(longcles)
+    !$OMP THREADPRIVATE(clesphy0)
+    !
+    ! Variables propres a la physique
+    INTEGER itap
+    SAVE itap                   ! compteur pour la physique
+    !$OMP THREADPRIVATE(itap)
+
+    INTEGER, SAVE :: abortphy=0   ! Reprere si on doit arreter en fin de phys
+    !$OMP THREADPRIVATE(abortphy)
+    !
+    REAL,save ::  solarlong0
+    !$OMP THREADPRIVATE(solarlong0)
+
+    !
+    !  Parametres de l'Orographie a l'Echelle Sous-Maille (OESM):
+    !
+    !IM 141004     REAL zulow(klon),zvlow(klon),zustr(klon), zvstr(klon)
+    REAL zulow(klon),zvlow(klon)
+    !
+    INTEGER igwd,idx(klon),itest(klon)
+    !
+    !      REAL,allocatable,save :: run_off_lic_0(:)
+    ! !$OMP THREADPRIVATE(run_off_lic_0)
+    !ym      SAVE run_off_lic_0
+    !KE43
+    ! Variables liees a la convection de K. Emanuel (sb):
+    !
+    REAL bas, top             ! cloud base and top levels
+    SAVE bas
+    SAVE top
+    !$OMP THREADPRIVATE(bas, top)
+    !------------------------------------------------------------------
+    ! Upmost level reached by deep convection and related variable (jyg)
+    !
+    INTEGER izero
+    INTEGER k_upper_cv
+    !------------------------------------------------------------------
+    !
+    !==========================================================================
+    !CR04.12.07: on ajoute les nouvelles variables du nouveau schema
+    !de convection avec poches froides
+    ! Variables li\'ees \`a la poche froide (jyg)
+
+    REAL mip(klon,klev)  ! mass flux shed by the adiab ascent at each level
+    !
+    REAL wape_prescr, fip_prescr
+    INTEGER it_wape_prescr
+    SAVE wape_prescr, fip_prescr, it_wape_prescr
+    !$OMP THREADPRIVATE(wape_prescr, fip_prescr, it_wape_prescr)
+    !
+    ! variables supplementaires de concvl
+    REAL Tconv(klon,klev)
+    REAL sij(klon,klev,klev)
+
+    real, save :: alp_bl_prescr=0.
+    real, save :: ale_bl_prescr=0.
+
+    real, save :: wake_s_min_lsp=0.1
+
+    !$OMP THREADPRIVATE(alp_bl_prescr,ale_bl_prescr)
+    !$OMP THREADPRIVATE(wake_s_min_lsp)
+
+
+    real ok_wk_lsp(klon)
+
+    !RC
+    ! Variables li\'ees \`a la poche froide (jyg et rr)
+    ! Version diagnostique pour l'instant : pas de r\'etroaction sur
+    ! la convection
+
+    REAL t_wake(klon,klev),q_wake(klon,klev) ! wake pour la convection
+
+    REAL wake_dth(klon,klev)        ! wake : temp pot difference
+
+    REAL wake_d_deltat_gw(klon,klev)! wake : delta T tendency due to
+    ! Gravity Wave (/s)
+    REAL wake_omgbdth(klon,klev)    ! Wake : flux of Delta_Theta
+    ! transported by LS omega
+    REAL wake_dp_omgb(klon,klev)    ! Wake : vertical gradient of
+    ! large scale omega
+    REAL wake_dtKE(klon,klev)       ! Wake : differential heating
+    ! (wake - unpertubed) CONV
+    REAL wake_dqKE(klon,klev)       ! Wake : differential moistening
+    ! (wake - unpertubed) CONV
+    REAL wake_dtPBL(klon,klev)      ! Wake : differential heating
+    ! (wake - unpertubed) PBL
+    REAL wake_dqPBL(klon,klev)      ! Wake : differential moistening
+    ! (wake - unpertubed) PBL
+    REAL wake_ddeltat(klon,klev),wake_ddeltaq(klon,klev)
+    REAL wake_dp_deltomg(klon,klev) ! Wake : gradient vertical de wake_omg
+    REAL wake_spread(klon,klev)     ! spreading term in wake_delt
+    !
+    !pourquoi y'a pas de save??
+    !
+    INTEGER wake_k(klon)            ! Wake sommet
+    !
+    REAL t_undi(klon,klev)          ! temperature moyenne dans la zone
+    ! non perturbee
+    REAL q_undi(klon,klev)          ! humidite moyenne dans la zone
+    ! non perturbee
+    !
+    !jyg<
+    !cc      REAL wake_pe(klon)              ! Wake potential energy - WAPE 
+    !>jyg
+
+    REAL wake_gfl(klon)             ! Gust Front Length
+    REAL wake_dens(klon)
+    !
+    !
+    REAL dt_dwn(klon,klev)
+    REAL dq_dwn(klon,klev)
+    REAL wdt_PBL(klon,klev)
+    REAL udt_PBL(klon,klev)
+    REAL wdq_PBL(klon,klev)
+    REAL udq_PBL(klon,klev)
+    REAL M_dwn(klon,klev)
+    REAL M_up(klon,klev)
+    REAL dt_a(klon,klev)
+    REAL dq_a(klon,klev)
+    REAL d_t_adjwk(klon,klev)                !jyg
+    REAL d_q_adjwk(klon,klev)                !jyg
+    LOGICAL,SAVE :: ok_adjwk=.FALSE.
+    !$OMP THREADPRIVATE(ok_adjwk) 
+    REAL,SAVE :: oliqmax=999.
+    !$OMP THREADPRIVATE(oliqmax) 
+    REAL, SAVE :: alp_offset
+    !$OMP THREADPRIVATE(alp_offset)
+
+    ! !!
+    !=================================================================
+    !         PROVISOIRE : DECOUPLAGE PBL/WAKE
+    !         --------------------------------
+    REAL wake_deltat_sav(klon,klev)
+    REAL wake_deltaq_sav(klon,klev)
+    !=================================================================
+
+    !
+    !RR:fin declarations poches froides
+    !==========================================================================
+
+    REAL ztv(klon,klev),ztva(klon,klev)
+    REAL zpspsk(klon,klev)
+    REAL ztla(klon,klev),zqla(klon,klev) 
+    REAL zthl(klon,klev)
+
+    !cc nrlmd le 10/04/2012
+
+    !--------Stochastic Boundary Layer Triggering: ALE_BL--------
+    !---Propri\'et\'es du thermiques au LCL 
+    real zlcl_th(klon)          ! Altitude du LCL calcul\'e
+    ! continument (pcon dans
+    ! thermcell_main.F90)
+    real fraca0(klon)           ! Fraction des thermiques au LCL
+    real w0(klon)               ! Vitesse des thermiques au LCL
+    real w_conv(klon)           ! Vitesse verticale de grande \'echelle au LCL
+    real tke0(klon,klev+1)      ! TKE au d\'ebut du pas de temps
+    real therm_tke_max0(klon)   ! TKE dans les thermiques au LCL 
+    real env_tke_max0(klon)     ! TKE dans l'environnement au LCL 
+
+    !---D\'eclenchement stochastique
+    integer :: tau_trig(klon)
+
+    REAL,SAVE :: random_notrig_max=1.
+    !$OMP THREADPRIVATE(random_notrig_max) 
+
+    !--------Statistical Boundary Layer Closure: ALP_BL--------
+    !---Profils de TKE dans et hors du thermique
+    real therm_tke_max(klon,klev)   ! Profil de TKE dans les thermiques
+    real env_tke_max(klon,klev)     ! Profil de TKE dans l'environnement
+
+
+    !cc fin nrlmd le 10/04/2012
+
+    ! Variables locales pour la couche limite (al1):
+    !
+    !Al1      REAL pblh(klon)           ! Hauteur de couche limite
+    !Al1      SAVE pblh
+    !34EK
+    !
+    ! Variables locales:
+    !
+    !AA
+    !AA  Pour phytrac 
+    REAL u1(klon)             ! vents dans la premiere couche U
+    REAL v1(klon)             ! vents dans la premiere couche V
+
+    !@$$      LOGICAL offline           ! Controle du stockage ds "physique"
+    !@$$      PARAMETER (offline=.false.)
+    !@$$      INTEGER physid
+    REAL frac_impa(klon,klev) ! fractions d'aerosols lessivees (impaction)
+    REAL frac_nucl(klon,klev) ! idem (nucleation)
+    ! RomP >>> 
+    REAL beta_prec_fisrt(klon,klev) ! taux de conv de l'eau cond (fisrt)
+    ! RomP <<<
+
+    REAL          :: calday
+
+    !IM cf FH pour Tiedtke 080604
+    REAL rain_tiedtke(klon),snow_tiedtke(klon)
+    !
+    !IM 050204 END
+    REAL devap(klon) ! evaporation et sa derivee
+    REAL dsens(klon) ! chaleur sensible et sa derivee
+
+    !
+    ! Conditions aux limites
+    !
+    !
+    REAL :: day_since_equinox
+    ! Date de l'equinoxe de printemps
+    INTEGER, parameter :: mth_eq=3, day_eq=21
+    REAL :: jD_eq
+
+    LOGICAL, parameter :: new_orbit = .true.
+
+    !
+    INTEGER lmt_pas
+    SAVE lmt_pas                ! frequence de mise a jour
+    !$OMP THREADPRIVATE(lmt_pas) 
+    real zmasse(klon, nbp_lev),exner(klon, nbp_lev) 
+    !     (column-density of mass of air in a cell, in kg m-2)
+    real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
+
+    !IM sorties
+    REAL un_jour
+    PARAMETER(un_jour=86400.)
+    INTEGER itapm1 !pas de temps de la physique du(es) mois precedents
+    SAVE itapm1    !mis a jour le dernier pas de temps du mois en cours
+    !$OMP THREADPRIVATE(itapm1)
+    !======================================================================
+    !
+    ! Declaration des procedures appelees
+    !
+    EXTERNAL angle     ! calculer angle zenithal du soleil
+    EXTERNAL alboc     ! calculer l'albedo sur ocean
+    EXTERNAL ajsec     ! ajustement sec
+    EXTERNAL conlmd    ! convection (schema LMD)
+    !KE43
+    EXTERNAL conema3  ! convect4.3
+    EXTERNAL fisrtilp  ! schema de condensation a grande echelle (pluie)
+    !AA 
+    ! JBM (3/14) fisrtilp_tr not loaded
+    ! EXTERNAL fisrtilp_tr ! schema de condensation a grande echelle (pluie)
+    !                          ! stockage des coefficients necessaires au
+    !                          ! lessivage OFF-LINE et ON-LINE
+    EXTERNAL hgardfou  ! verifier les temperatures
+    EXTERNAL nuage     ! calculer les proprietes radiatives
+    !C      EXTERNAL o3cm      ! initialiser l'ozone
+    EXTERNAL orbite    ! calculer l'orbite terrestre
+    EXTERNAL phyetat0  ! lire l'etat initial de la physique
+    EXTERNAL phyredem  ! ecrire l'etat de redemarrage de la physique
+    EXTERNAL suphel    ! initialiser certaines constantes
+    EXTERNAL transp    ! transport total de l'eau et de l'energie
+    !IM
+    EXTERNAL haut2bas  !variables de haut en bas
+    EXTERNAL ini_undefSTD  !initialise a 0 une variable a 1 niveau de pression
+    EXTERNAL undefSTD !somme les valeurs definies d'1 var a 1 niveau de pression
+    !     EXTERNAL moy_undefSTD  !moyenne d'1 var a 1 niveau de pression
+    ! EXTERNAL moyglo_aire
+    ! moyenne globale d'1 var ponderee par l'aire de la maille (moyglo_pondaire)
+    ! par la masse/airetot (moyglo_pondaima) et la vraie masse (moyglo_pondmass)
+    !
+    !
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Local variables
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !
+    REAL rhcl(klon,klev)    ! humiditi relative ciel clair
+    REAL dialiq(klon,klev)  ! eau liquide nuageuse
+    REAL diafra(klon,klev)  ! fraction nuageuse
+    REAL cldliq(klon,klev)  ! eau liquide nuageuse
+    !
+    !XXX PB 
+    REAL fluxq(klon,klev, nbsrf)   ! flux turbulent d'humidite
+    !
+    REAL zxfluxt(klon, klev)
+    REAL zxfluxq(klon, klev)
+    REAL zxfluxu(klon, klev)
+    REAL zxfluxv(klon, klev)
+
+    ! Le rayonnement n'est pas calcule tous les pas, il faut donc
+    !                      sauvegarder les sorties du rayonnement
+    !ym      SAVE  heat,cool,albpla,topsw,toplw,solsw,sollw,sollwdown
+    !ym      SAVE  sollwdownclr, toplwdown, toplwdownclr
+    !ym      SAVE  topsw0,toplw0,solsw0,sollw0, heat0, cool0
+    !
+    INTEGER itaprad
+    SAVE itaprad
+    !$OMP THREADPRIVATE(itaprad)
+    !
+    REAL conv_q(klon,klev) ! convergence de l'humidite (kg/kg/s)
+    REAL conv_t(klon,klev) ! convergence de la temperature(K/s)
+
+    !
+    !  REAL zxsnow(klon)
+    REAL zxsnow_dummy(klon)
+    REAL zsav_tsol(klon)
+    !
+    REAL dist, rmu0(klon), fract(klon)
+    REAL zrmu0(klon), zfract(klon)
+    REAL zdtime, zdtime1, zdtime2, zlongi
+    !
+    REAL qcheck
+    REAL z_avant(klon), z_apres(klon), z_factor(klon)
+    LOGICAL zx_ajustq
+    !
+    REAL za, zb
+    REAL zx_t, zx_qs, zdelta, zcor, zlvdcp, zlsdcp
+    real zqsat(klon,klev)
+    !
+    INTEGER i, k, iq, ig, j, nsrf, ll, l, iiq
+    !
+    REAL t_coup
+    PARAMETER (t_coup=234.0)
+
+    !ym A voir plus tard !!
+    !ym      REAL zx_relief(iim,jjmp1)
+    !ym      REAL zx_aire(iim,jjmp1)
+    !
+    ! Grandeurs de sorties
+    REAL s_capCL(klon)
+    REAL s_oliqCL(klon), s_cteiCL(klon)
+    REAL s_trmb1(klon), s_trmb2(klon)
+    REAL s_trmb3(klon)
+    !KE43
+    ! Variables locales pour la convection de K. Emanuel (sb):
+
+    REAL tvp(klon,klev)       ! virtual temp of lifted parcel
+    CHARACTER*40 capemaxcels  !max(CAPE)
+
+    REAL rflag(klon)          ! flag fonctionnement de convect
+    INTEGER iflagctrl(klon)          ! flag fonctionnement de convect
+
+    ! -- convect43:
+    INTEGER ntra              ! nb traceurs pour convect4.3
+    REAL dtvpdt1(klon,klev), dtvpdq1(klon,klev)
+    REAL dplcldt(klon), dplcldr(klon)
+    !?     .     condm_con(klon,klev),conda_con(klon,klev),
+    !?     .     mr_con(klon,klev),ep_con(klon,klev)
+    !?     .    ,sadiab(klon,klev),wadiab(klon,klev)
+    ! --
+    !34EK
+    !
+    ! Variables du changement
+    !
+    ! con: convection
+    ! lsc: condensation a grande echelle (Large-Scale-Condensation)
+    ! ajs: ajustement sec
+    ! eva: evaporation de l'eau liquide nuageuse
+    ! vdf: couche limite (Vertical DiFfusion)
+    !
+    ! tendance nulles
+    REAL, dimension(klon,klev):: du0, dv0, dt0, dq0, dql0, dqi0
+    !
+    ! Flag pour pouvoir ne pas ajouter les tendances. 
+    ! Par defaut, les tendances doivente etre ajoutees et
+    ! flag_inhib_tend = 0
+    ! flag_inhib_tend > 0 : tendances non ajoutees, avec un nombre 
+    ! croissant de print quand la valeur du flag augmente
+    !!! attention, ce flag doit etre change avec prudence !!!
+    INTEGER :: flag_inhib_tend = 0 !  0 is the default value
+!!    INTEGER :: flag_inhib_tend = 2
+
+    !
+    !********************************************************
+    !     declarations
+
+    !********************************************************
+    !IM 081204 END
+    !
+    REAL pen_u(klon,klev), pen_d(klon,klev)
+    REAL pde_u(klon,klev), pde_d(klon,klev)
+    INTEGER kcbot(klon), kctop(klon), kdtop(klon)
+    !
+    REAL ratqsc(klon,klev)
+    real ratqsbas,ratqshaut,tau_ratqs
+    save ratqsbas,ratqshaut,tau_ratqs
+    !$OMP THREADPRIVATE(ratqsbas,ratqshaut,tau_ratqs)
+    REAL, SAVE :: ratqsp0=50000., ratqsdp=20000.
+    !$OMP THREADPRIVATE(ratqsp0, ratqsdp)
+
+    ! Parametres lies au nouveau schema de nuages (SB, PDF)
+    real fact_cldcon
+    real facttemps
+    logical ok_newmicro
+    save ok_newmicro
+    !$OMP THREADPRIVATE(ok_newmicro)
+    !real ref_liq_pi(klon,klev), ref_ice_pi(klon,klev)
+    save fact_cldcon,facttemps
+    !$OMP THREADPRIVATE(fact_cldcon,facttemps)
+
+    integer iflag_cld_th
+    save iflag_cld_th
+    !$OMP THREADPRIVATE(iflag_cld_th)
+    logical ptconv(klon,klev)
+    !IM cf. AM 081204 BEG
+    logical ptconvth(klon,klev)
+    !IM cf. AM 081204 END
+    !
+    ! Variables liees a l'ecriture de la bande histoire physique
+    !
+    !======================================================================
+    !
+
+    !
+    integer itau_w   ! pas de temps ecriture = itap + itau_phy
+    !
+    !
+    ! Variables locales pour effectuer les appels en serie
+    !
+    !IM RH a 2m (la surface)
+    REAL Lheat
+
+    INTEGER        length
+    PARAMETER    ( length = 100 )
+    REAL tabcntr0( length       )
+    !
+    INTEGER ndex2d(nbp_lon*nbp_lat)
+    !IM
+    !
+    !IM AMIP2 BEG
+    REAL moyglo, mountor
+    !IM 141004 BEG
+    REAL zustrdr(klon), zvstrdr(klon)
+    REAL zustrli(klon), zvstrli(klon)
+    REAL zustrph(klon), zvstrph(klon)
+    REAL aam, torsfc
+    !IM 141004 END
+    !IM 190504 BEG
+    INTEGER ij
+    !  INTEGER imp1jmp1
+    !  PARAMETER(imp1jmp1=(iim+1)*jjmp1)
+    !ym A voir plus tard
+    !  REAL zx_tmp((nbp_lon+1)*nbp_lat)
+    !  REAL airedyn(nbp_lon+1,nbp_lat)
+    !IM 190504 END
+    LOGICAL ok_msk
+    REAL msk(klon)
+    !IM 
+    REAL airetot, pi
+    !ym A voir plus tard
+    !ym      REAL zm_wo(jjmp1, klev)
+    !IM AMIP2 END
+    !
+    REAL zx_tmp_fi2d(klon)      ! variable temporaire grille physique
+    REAL zx_tmp_fi3d(klon,klev) ! variable temporaire pour champs 3D 
+    REAL zx_tmp_2d(nbp_lon,nbp_lat)
+    REAL zx_lon(nbp_lon,nbp_lat)
+    REAL zx_lat(nbp_lon,nbp_lat)
+    !
+    INTEGER nid_day_seri, nid_ctesGCM
+    SAVE nid_day_seri, nid_ctesGCM
+    !$OMP THREADPRIVATE(nid_day_seri,nid_ctesGCM)
+    !
+    !IM 280405 BEG
+    !  INTEGER nid_bilKPins, nid_bilKPave
+    !  SAVE nid_bilKPins, nid_bilKPave
+    !  !$OMP THREADPRIVATE(nid_bilKPins, nid_bilKPave)
+    !
+    REAL ve_lay(klon,klev) ! transport meri. de l'energie a chaque niveau vert.
+    REAL vq_lay(klon,klev) ! transport meri. de l'eau a chaque niveau vert.
+    REAL ue_lay(klon,klev) ! transport zonal de l'energie a chaque niveau vert.
+    REAL uq_lay(klon,klev) ! transport zonal de l'eau a chaque niveau vert.
+    !
+    REAL zjulian
+    SAVE zjulian
+!$OMP THREADPRIVATE(zjulian)
+
+    INTEGER nhori, nvert
+    REAL zsto
+    REAL zstophy, zout
+
+    character*20 modname
+    character*80 abort_message
+    logical, save ::  ok_sync, ok_sync_omp
+    !$OMP THREADPRIVATE(ok_sync)
+    real date0
+    integer idayref
+
+    ! essai writephys
+    integer fid_day, fid_mth, fid_ins
+    parameter (fid_ins = 1, fid_day = 2, fid_mth = 3) 
+    integer prof2d_on, prof3d_on, prof2d_av, prof3d_av
+    parameter (prof2d_on = 1, prof3d_on = 2, &
+         prof2d_av = 3, prof3d_av = 4)
+    !     Variables liees au bilan d'energie et d'enthalpi
+    REAL ztsol(klon)
+    REAL      d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec
+    REAL      d_h_vcol_phy
+    REAL      fs_bound, fq_bound
+    SAVE      d_h_vcol_phy
+    !$OMP THREADPRIVATE(d_h_vcol_phy)
+    REAL      zero_v(klon)
+    CHARACTER*40 ztit
+    INTEGER   ip_ebil  ! PRINT level for energy conserv. diag.
+    SAVE      ip_ebil
+    DATA      ip_ebil/0/
+    !$OMP THREADPRIVATE(ip_ebil)
+    INTEGER   if_ebil ! level for energy conserv. dignostics
+    SAVE      if_ebil
+    !$OMP THREADPRIVATE(if_ebil)
+    REAL q2m(klon,nbsrf)  ! humidite a 2m
+
+    !IM: t2m, q2m, ustar, u10m, v10m et t2mincels, t2maxcels
+    CHARACTER*40 t2mincels, t2maxcels       !t2m min., t2m max
+    CHARACTER*40 tinst, tave, typeval
+    REAL cldtaupi(klon,klev) ! Cloud optical thickness for
+    ! pre-industrial (pi) aerosols
+
+
+    ! Aerosol optical properties
+    CHARACTER*4, DIMENSION(naero_grp) :: rfname 
+    REAL, DIMENSION(klon,klev)     :: mass_solu_aero ! total mass
+    ! concentration
+    ! for all soluble
+    ! aerosols[ug/m3]
+    REAL, DIMENSION(klon,klev)     :: mass_solu_aero_pi
+    ! - " - (pre-industrial value)
+
+    ! Parameters
+    LOGICAL ok_ade, ok_aie    ! Apply aerosol (in)direct effects or not
+    LOGICAL ok_cdnc ! ok cloud droplet number concentration (O. Boucher 01-2013)
+    REAL bl95_b0, bl95_b1   ! Parameter in Boucher and Lohmann (1995)
+    SAVE ok_ade, ok_aie, ok_cdnc, bl95_b0, bl95_b1
+    !$OMP THREADPRIVATE(ok_ade, ok_aie, ok_cdnc, bl95_b0, bl95_b1)
+    LOGICAL, SAVE :: aerosol_couple ! true  : calcul des aerosols dans INCA
+    ! false : lecture des aerosol dans un fichier
+    !$OMP THREADPRIVATE(aerosol_couple)    
+    INTEGER, SAVE :: flag_aerosol 
+    !$OMP THREADPRIVATE(flag_aerosol) 
+    LOGICAL, SAVE :: new_aod
+    !$OMP THREADPRIVATE(new_aod) 
+    !
+    !--STRAT AEROSOL
+    INTEGER, SAVE :: flag_aerosol_strat
+    !$OMP THREADPRIVATE(flag_aerosol_strat)
+    !c-fin STRAT AEROSOL
+    !
+    ! Declaration des constantes et des fonctions thermodynamiques
+    !
+    LOGICAL,SAVE :: first=.true.
+    !$OMP THREADPRIVATE(first)
+
+    integer, save::  read_climoz ! read ozone climatology
+    !     (let it keep the default OpenMP shared attribute)
+    !     Allowed values are 0, 1 and 2
+    !     0: do not read an ozone climatology
+    !     1: read a single ozone climatology that will be used day and night
+    !     2: read two ozone climatologies, the average day and night
+    !     climatology and the daylight climatology
+
+    integer, save:: ncid_climoz ! NetCDF file containing ozone climatologies
+    !     (let it keep the default OpenMP shared attribute)
+
+    real, pointer, save:: press_climoz(:)
+    ! (let it keep the default OpenMP shared attribute)
+    ! edges of pressure intervals for ozone climatologies, in Pa, in strictly
+    ! ascending order
+
+    integer, save:: co3i = 0
+    !     time index in NetCDF file of current ozone fields
+    !$OMP THREADPRIVATE(co3i) 
+
+    integer ro3i
+    !     required time index in NetCDF file for the ozone fields, between 1
+    !     and 360
+
+    INTEGER ierr
+    include "YOMCST.h"
+    include "YOETHF.h"
+    include "FCTTRE.h"
+    !IM 100106 BEG : pouvoir sortir les ctes de la physique
+    include "conema3.h"
+    include "fisrtilp.h"
+    include "nuage.h"
+    include "compbl.h"
+    !IM 100106 END : pouvoir sortir les ctes de la physique
+    !
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Declarations pour Simulateur COSP
+    !============================================================
+    real :: mr_ozone(klon,klev)
+
+    !IM stations CFMIP
+    INTEGER, SAVE :: nCFMIP
+    !$OMP THREADPRIVATE(nCFMIP)
+    INTEGER, PARAMETER :: npCFMIP=120
+    INTEGER, ALLOCATABLE, SAVE :: tabCFMIP(:)
+    REAL, ALLOCATABLE, SAVE :: lonCFMIP(:), latCFMIP(:)
+    !$OMP THREADPRIVATE(tabCFMIP, lonCFMIP, latCFMIP) 
+    INTEGER, ALLOCATABLE, SAVE :: tabijGCM(:)
+    REAL, ALLOCATABLE, SAVE :: lonGCM(:), latGCM(:)
+    !$OMP THREADPRIVATE(tabijGCM, lonGCM, latGCM)
+    INTEGER, ALLOCATABLE, SAVE :: iGCM(:), jGCM(:)
+    !$OMP THREADPRIVATE(iGCM, jGCM)
+    logical, dimension(nfiles)            :: phys_out_filestations
+    logical, parameter :: lNMC=.FALSE.
+
+    !IM betaCRF
+    REAL, SAVE :: pfree, beta_pbl, beta_free
+    !$OMP THREADPRIVATE(pfree, beta_pbl, beta_free)
+    REAL, SAVE :: lon1_beta,  lon2_beta, lat1_beta, lat2_beta
+    !$OMP THREADPRIVATE(lon1_beta,  lon2_beta, lat1_beta, lat2_beta)
+    LOGICAL, SAVE :: mskocean_beta
+    !$OMP THREADPRIVATE(mskocean_beta)
+    REAL, dimension(klon, klev) :: beta ! facteur sur cldtaurad et
+    ! cldemirad pour evaluer les
+    ! retros liees aux CRF
+    REAL, dimension(klon, klev) :: cldtaurad   ! epaisseur optique
+    ! pour radlwsw pour
+    ! tester "CRF off"
+    REAL, dimension(klon, klev) :: cldtaupirad ! epaisseur optique
+    ! pour radlwsw pour
+    ! tester "CRF off"
+    REAL, dimension(klon, klev) :: cldemirad   ! emissivite pour
+    ! radlwsw pour tester
+    ! "CRF off"
+    REAL, dimension(klon, klev) :: cldfrarad   ! fraction nuageuse
+
+    INTEGER :: nbtr_tmp ! Number of tracer inside concvl
+    REAL, dimension(klon,klev) :: sh_in ! Specific humidity entering in phytrac
+    REAL, dimension(klon,klev) :: ch_in ! Condensed humidity entering in phytrac (eau liquide)
+    integer iostat
+
+    REAL zzz
+    !albedo SB >>>
+    real,dimension(6),save :: SFRWL
+    !albedo SB <<<
+
+    !--OB variables for mass fixer (hard coded for now)
+    logical, parameter :: mass_fixer=.false.
+    real qql1(klon),qql2(klon),zdz,corrqql
+
+    ! Ehouarn: set value of jjmp1 since it is no longer a "fixed parameter"
+    jjmp1=nbp_lat
+
+    !======================================================================
+    ! Gestion calendrier : mise a jour du module phys_cal_mod
+    !
+    pdtphys=pdtphys_
+    CALL update_time(pdtphys)
+
+    !======================================================================
+    ! Ecriture eventuelle d'un profil verticale en entree de la physique.
+    ! Utilise notamment en 1D mais peut etre active egalement en 3D
+    ! en imposant la valeur de igout.
+    !======================================================================d
+    if (prt_level.ge.1) then
+       igout=klon/2+1/klon
+       write(lunout,*) 'DEBUT DE PHYSIQ !!!!!!!!!!!!!!!!!!!!'
+       write(lunout,*) 'igout, lat, lon ',igout, latitude_deg(igout), &
+            longitude_deg(igout)
+       write(lunout,*) &
+            'nlon,klev,nqtot,debut,lafin, jD_cur, jH_cur,pdtphys'
+       write(lunout,*) &
+            nlon,klev,nqtot,debut,lafin, jD_cur, jH_cur,pdtphys 
+
+       write(lunout,*) 'paprs, play, phi, u, v, t'
+       do k=1,klev
+          write(lunout,*) paprs(igout,k),pplay(igout,k),pphi(igout,k), &
+               u(igout,k),v(igout,k),t(igout,k)
+       enddo
+       write(lunout,*) 'ovap (g/kg),  oliq (g/kg)'
+       do k=1,klev
+          write(lunout,*) qx(igout,k,1)*1000,qx(igout,k,2)*1000.
+       enddo
+    endif
+
+    !======================================================================
+
+    if (first) then 
+
+       !CR:nvelles variables convection/poches froides
+
+       print*, '================================================='
+       print*, 'Allocation des variables locales et sauvegardees'
+       call phys_local_var_init
+       !
+       pasphys=pdtphys
+       !     appel a la lecture du run.def physique
+       call conf_phys(ok_journe, ok_mensuel, &
+            ok_instan, ok_hf, &
+            ok_LES, &
+            callstats, &
+            solarlong0,seuil_inversion, &
+            fact_cldcon, facttemps,ok_newmicro,iflag_radia, &
+            iflag_cld_th,iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, &
+            ok_ade, ok_aie, ok_cdnc, aerosol_couple,  &
+            flag_aerosol, flag_aerosol_strat, new_aod, &
+            bl95_b0, bl95_b1, &
+                                ! nv flags pour la convection et les
+                                ! poches froides
+            read_climoz, &
+            alp_offset)
+       call phys_state_var_init(read_climoz)
+       call phys_output_var_init
+       print*, '================================================='
+       !
+       !CR: check sur le nb de traceurs de l eau
+       if ((iflag_ice_thermo.gt.0).and.(nqo==2)) then
+          WRITE (lunout, *) ' iflag_ice_thermo==1 requires 3 H2O tracers ', &
+               '(H2Ov, H2Ol, H2Oi) but nqo=', nqo, '. Might as well stop here.'
+          STOP
+       endif
+
+       dnwd0=0.0
+       ftd=0.0
+       fqd=0.0
+       cin=0.
+       !ym Attention pbase pas initialise dans concvl !!!!
+       pbase=0
+       !IM 180608
+
+       itau_con=0
+       first=.false.
+
+    endif  ! first
+
+    !ym => necessaire pour iflag_con != 2    
+    pmfd(:,:) = 0.
+    pen_u(:,:) = 0.
+    pen_d(:,:) = 0.
+    pde_d(:,:) = 0.
+    pde_u(:,:) = 0.
+    aam=0.
+    d_t_adjwk(:,:)=0
+    d_q_adjwk(:,:)=0
+
+    alp_bl_conv(:)=0.
+
+    torsfc=0.
+    forall (k=1: nbp_lev) zmasse(:, k) = (paprs(:, k)-paprs(:, k+1)) / rg
+
+    modname = 'physiq'
+    !IM
+    IF (ip_ebil_phy.ge.1) THEN
+       DO i=1,klon
+          zero_v(i)=0.
+       END DO
+    END IF
+
+    IF (debut) THEN
+       CALL suphel ! initialiser constantes et parametres phys.
+       CALL getin_p('random_notrig_max',random_notrig_max)
+       CALL getin_p('ok_adjwk',ok_adjwk)
+       CALL getin_p('oliqmax',oliqmax)
+       CALL getin_p('ratqsp0',ratqsp0)
+       CALL getin_p('ratqsdp',ratqsdp)
+    ENDIF
+
+    if(prt_level.ge.1) print*,'CONVERGENCE PHYSIQUE THERM 1 '
+
+
+    !======================================================================
+    ! Gestion calendrier : mise a jour du module phys_cal_mod
+    !
+    !     CALL phys_cal_update(jD_cur,jH_cur)
+
+    !
+    ! Si c'est le debut, il faut initialiser plusieurs choses
+    !          ********
+    !
+    IF (debut) THEN
+       !rv CRinitialisation de wght_th et lalim_conv pour la
+       !definition de la couche alimentation de la convection a partir
+       !des caracteristiques du thermique
+       wght_th(:,:)=1.
+       lalim_conv(:)=1 
+       !RC
+       ustar(:,:)=0.
+!       u10m(:,:)=0.
+!       v10m(:,:)=0.
+       rain_con(:)=0.
+       snow_con(:)=0.
+       topswai(:)=0.
+       topswad(:)=0.
+       solswai(:)=0.
+       solswad(:)=0.
+
+       wmax_th(:)=0.
+       tau_overturning_th(:)=0.
+
+       IF (type_trac == 'inca') THEN
+          ! jg : initialisation jusqu'au ces variables sont dans restart
+          ccm(:,:,:) = 0.
+          tau_aero(:,:,:,:) = 0.
+          piz_aero(:,:,:,:) = 0.
+          cg_aero(:,:,:,:) = 0.
+
+          config_inca='none' ! default
+          CALL getin_p('config_inca',config_inca)
+
+       ELSE 
+          config_inca='none' ! default
+       END IF
+
+       IF (aerosol_couple .AND. (config_inca /= "aero" &
+            .AND. config_inca /= "aeNP ")) THEN
+          abort_message &
+               = 'if aerosol_couple is activated, config_inca need to be ' &
+               // 'aero or aeNP'
+          CALL abort_physic (modname,abort_message,1)
+       ENDIF
+
+
+
+       rnebcon0(:,:) = 0.0
+       clwcon0(:,:) = 0.0
+       rnebcon(:,:) = 0.0
+       clwcon(:,:) = 0.0
+
+       !IM      
+       IF (ip_ebil_phy.ge.1) d_h_vcol_phy=0.
+       !
+       print*,'iflag_coupl,iflag_clos,iflag_wake', &
+            iflag_coupl,iflag_clos,iflag_wake
+       print*,'iflag_CYCLE_DIURNE', iflag_cycle_diurne
+       !
+       IF (iflag_con.EQ.2.AND.iflag_cld_th.GT.-1) THEN
+          abort_message = 'Tiedtke needs iflag_cld_th=-2 or -1'
+          CALL abort_physic (modname,abort_message,1)
+       ENDIF
+       !
+       !
+       ! Initialiser les compteurs:
+       !
+       itap    = 0
+       itaprad = 0
+
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       !! Un petit travail \`a faire ici.
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+       if (iflag_pbl>1) then
+          PRINT*, "Using method MELLOR&YAMADA" 
+       endif
+
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       ! FH 2008/05/02 changement lie a la lecture de nbapp_rad dans
+       ! phylmd plutot que dyn3d
+       ! Attention : la version precedente n'etait pas tres propre.
+       ! Il se peut qu'il faille prendre une valeur differente de nbapp_rad
+       ! pour obtenir le meme resultat.
+       dtime=pdtphys
+       IF (MOD(INT(86400./dtime),nbapp_rad).EQ.0) THEN
+          radpas = NINT( 86400./dtime/nbapp_rad)
+       ELSE 
+          WRITE(lunout,*) 'le nombre de pas de temps physique doit etre un ', &
+               'multiple de nbapp_rad'
+          WRITE(lunout,*) 'changer nbapp_rad ou alors commenter ce test ', &
+               'mais 1+1<>2'
+          abort_message='nbre de pas de temps physique n est pas multiple ' &
+               // 'de nbapp_rad'
+          call abort_physic(modname,abort_message,1)
+       ENDIF
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+       CALL phyetat0 ("startphy.nc",clesphy0,tabcntr0)
+!jyg<
+       IF (klon_glo==1) THEN
+          pbl_tke(:,:,is_ave) = 0.
+          DO nsrf=1,nbsrf
+            DO k = 1,klev+1
+                 pbl_tke(:,k,is_ave) = pbl_tke(:,k,is_ave) &
+                     +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
+            ENDDO
+          ENDDO
+!>jyg
+       ENDIF
+       !IM begin
+       print*,'physiq: clwcon rnebcon ratqs',clwcon(1,1),rnebcon(1,1) &
+            ,ratqs(1,1)
+       !IM end
+
+
+
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       !
+       ! on remet le calendrier a zero
+       !
+       IF (raz_date .eq. 1) THEN
+          itau_phy = 0
+       ENDIF
+
+       CALL printflag( tabcntr0,radpas,ok_journe, &
+            ok_instan, ok_region )
+       !
+       IF (ABS(dtime-pdtphys).GT.0.001) THEN
+          WRITE(lunout,*) 'Pas physique n est pas correct',dtime, &
+               pdtphys
+          abort_message='Pas physique n est pas correct '
+          !           call abort_physic(modname,abort_message,1)
+          dtime=pdtphys
+       ENDIF
+       IF (nlon .NE. klon) THEN
+          WRITE(lunout,*)'nlon et klon ne sont pas coherents', nlon,  &
+               klon
+          abort_message='nlon et klon ne sont pas coherents'
+          call abort_physic(modname,abort_message,1)
+       ENDIF
+       IF (nlev .NE. klev) THEN
+          WRITE(lunout,*)'nlev et klev ne sont pas coherents', nlev, &
+               klev
+          abort_message='nlev et klev ne sont pas coherents'
+          call abort_physic(modname,abort_message,1)
+       ENDIF
+       !
+       IF (dtime*REAL(radpas).GT.21600..AND.iflag_cycle_diurne.GE.1) THEN 
+          WRITE(lunout,*)'Nbre d appels au rayonnement insuffisant'
+          WRITE(lunout,*)"Au minimum 4 appels par jour si cycle diurne"
+          abort_message='Nbre d appels au rayonnement insuffisant'
+          call abort_physic(modname,abort_message,1)
+       ENDIF
+       WRITE(lunout,*)"Clef pour la convection, iflag_con=", iflag_con
+       WRITE(lunout,*)"Clef pour le driver de la convection, ok_cvl=", &
+            ok_cvl
+       !
+       !KE43
+       ! Initialisation pour la convection de K.E. (sb):
+       IF (iflag_con.GE.3) THEN
+
+          WRITE(lunout,*)"*** Convection de Kerry Emanuel 4.3  "
+          WRITE(lunout,*) &
+               "On va utiliser le melange convectif des traceurs qui"
+          WRITE(lunout,*)"est calcule dans convect4.3"
+          WRITE(lunout,*)" !!! penser aux logical flags de phytrac"
+
+          DO i = 1, klon
+             ema_cbmf(i) = 0.
+             ema_pcb(i)  = 0.
+             ema_pct(i)  = 0.
+             !          ema_workcbmf(i) = 0.
+          ENDDO
+          !IM15/11/02 rajout initialisation ibas_con,itop_con cf. SB =>BEG
+          DO i = 1, klon
+             ibas_con(i) = 1
+             itop_con(i) = 1
+          ENDDO
+          !IM15/11/02 rajout initialisation ibas_con,itop_con cf. SB =>END
+          !================================================================
+          !CR:04.12.07: initialisations poches froides
+          ! Controle de ALE et ALP pour la fermeture convective (jyg)
+          if (iflag_wake>=1) then
+             CALL ini_wake(0.,0.,it_wape_prescr,wape_prescr,fip_prescr &
+                  ,alp_bl_prescr, ale_bl_prescr)
+             ! 11/09/06 rajout initialisation ALE et ALP du wake et PBL(YU)
+             !        print*,'apres ini_wake iflag_cld_th=', iflag_cld_th
+          endif
+
+          !        do i = 1,klon
+          !           Ale_bl(i)=0.
+          !           Alp_bl(i)=0.
+          !        enddo
+
+          !===================================================================
+          !IM stations CFMIP
+          nCFMIP=npCFMIP
+          OPEN(98,file='npCFMIP_param.data',status='old', &
+               form='formatted',iostat=iostat)
+          if (iostat == 0) then
+             READ(98,*,end=998) nCFMIP
+998          CONTINUE
+             CLOSE(98)
+             CONTINUE
+             IF(nCFMIP.GT.npCFMIP) THEN
+                print*,'nCFMIP > npCFMIP : augmenter npCFMIP et recompiler'
+                call abort_physic("physiq", "", 1)
+             else
+                print*,'physiq npCFMIP=',npCFMIP,'nCFMIP=',nCFMIP
+             ENDIF
+
+             !
+             ALLOCATE(tabCFMIP(nCFMIP))
+             ALLOCATE(lonCFMIP(nCFMIP), latCFMIP(nCFMIP))
+             ALLOCATE(tabijGCM(nCFMIP))
+             ALLOCATE(lonGCM(nCFMIP), latGCM(nCFMIP))
+             ALLOCATE(iGCM(nCFMIP), jGCM(nCFMIP))
+             !
+             ! lecture des nCFMIP stations CFMIP, de leur numero 
+             ! et des coordonnees geographiques lonCFMIP, latCFMIP
+             !
+             CALL read_CFMIP_point_locations(nCFMIP, tabCFMIP,  &
+                  lonCFMIP, latCFMIP)
+             !
+             ! identification des
+             ! 1) coordonnees lonGCM, latGCM des points CFMIP dans la
+             ! grille de LMDZ
+             ! 2) indices points tabijGCM de la grille physique 1d sur
+             ! klon points
+             ! 3) indices iGCM, jGCM de la grille physique 2d
+             !
+             CALL LMDZ_CFMIP_point_locations(nCFMIP, lonCFMIP, latCFMIP, &
+                  tabijGCM, lonGCM, latGCM, iGCM, jGCM)
+             !
+          else
+             ALLOCATE(tabijGCM(0))
+             ALLOCATE(lonGCM(0), latGCM(0))
+             ALLOCATE(iGCM(0), jGCM(0))
+          end if
+       else
+          ALLOCATE(tabijGCM(0))
+          ALLOCATE(lonGCM(0), latGCM(0))
+          ALLOCATE(iGCM(0), jGCM(0))
+       ENDIF
+
+       DO i=1,klon
+          rugoro(i) = f_rugoro * MAX(1.0e-05, zstd(i)*zsig(i)/2.0)
+       ENDDO
+
+       !34EK
+       IF (ok_orodr) THEN
+
+          ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          ! FH sans doute a enlever de finitivement ou, si on le
+          ! garde, l'activer justement quand ok_orodr = false.
+          ! ce rugoro est utilise par la couche limite et fait double emploi
+          ! avec les param\'etrisations sp\'ecifiques de Francois Lott.
+          !           DO i=1,klon
+          !             rugoro(i) = MAX(1.0e-05, zstd(i)*zsig(i)/2.0)
+          !           ENDDO
+          ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          IF (ok_strato) THEN
+             CALL SUGWD_strato(klon,klev,paprs,pplay)
+          ELSE
+             CALL SUGWD(klon,klev,paprs,pplay)
+          ENDIF
+
+          DO i=1,klon
+             zuthe(i)=0.
+             zvthe(i)=0.
+             if(zstd(i).gt.10.)then
+                zuthe(i)=(1.-zgam(i))*cos(zthe(i))
+                zvthe(i)=(1.-zgam(i))*sin(zthe(i))
+             endif
+          ENDDO
+       ENDIF
+       !
+       !
+       lmt_pas = NINT(86400./dtime * 1.0)   ! tous les jours
+       WRITE(lunout,*)'La frequence de lecture surface est de ',  &
+            lmt_pas
+       !
+       capemaxcels = 't_max(X)'
+       t2mincels = 't_min(X)'
+       t2maxcels = 't_max(X)'
+       tinst = 'inst(X)'
+       tave = 'ave(X)'
+       !IM cf. AM 081204 BEG
+       write(lunout,*)'AVANT HIST IFLAG_CON=',iflag_con
+       !IM cf. AM 081204 END
+       !
+       !=============================================================
+       !   Initialisation des sorties
+       !=============================================================
+
+#ifdef CPP_IOIPSL
+
+       !$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(longitude_deg,latitude_deg,nCFMIP,tabijGCM, &
+            iGCM,jGCM,lonGCM,latGCM, &
+            jjmp1,nlevSTD,clevSTD,rlevSTD, dtime,ok_veget, &
+            type_ocean,iflag_pbl,iflag_pbl_split,ok_mensuel,ok_journe, &
+            ok_hf,ok_instan,ok_LES,ok_ade,ok_aie,  &
+            read_climoz, phys_out_filestations, &
+            new_aod, aerosol_couple, &
+            flag_aerosol_strat, pdtphys, paprs, pphis,  &
+            pplay, lmax_th, ptconv, ptconvth, ivap,  &
+            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)
+       freq_outNMC(2) = ecrit_files(8)
+       freq_outNMC(3) = ecrit_files(9)
+       WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
+       WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
+       WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
+
+       include "ini_histday_seri.h"
+
+       CALL ini_paramLMDZ_phy(dtime,nid_ctesGCM)
+
+#endif
+       ecrit_reg = ecrit_reg * un_jour
+       ecrit_tra = ecrit_tra * un_jour
+
+       !XXXPB Positionner date0 pour initialisation de ORCHIDEE
+       date0 = jD_ref 
+       WRITE(*,*) 'physiq date0 : ',date0
+       !
+       !
+       !
+       ! Prescrire l'ozone dans l'atmosphere
+       !
+       !
+       !c         DO i = 1, klon
+       !c         DO k = 1, klev
+       !c            CALL o3cm (paprs(i,k)/100.,paprs(i,k+1)/100., wo(i,k),20)
+       !c         ENDDO
+       !c         ENDDO
+       !
+       IF (type_trac == 'inca') THEN
+#ifdef INCA
+          CALL VTe(VTphysiq)
+          CALL VTb(VTinca)
+          calday = REAL(days_elapsed) + jH_cur
+          WRITE(lunout,*) 'initial time chemini', days_elapsed, calday
+
+          CALL chemini(  &
+               rg, &
+               ra, &
+               cell_area, &
+               latitude_deg, &
+               longitude_deg, &
+               presnivs, &
+               calday, &
+               klon, &
+               nqtot, &
+               nqo, &
+               pdtphys, &
+               annee_ref, &
+               year_cur, &
+               day_ref,  &
+               day_ini, &
+               start_time, &
+               itau_phy, &
+               date0, &
+               io_lon, &
+               io_lat)
+
+          CALL VTe(VTinca)
+          CALL VTb(VTphysiq)
+#endif
+       END IF
+       !
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       ! Nouvelle initialisation pour le rayonnement RRTM
+       ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+       call iniradia(klon,klev,paprs(1,1:klev+1))
+
+       !$omp single
+       if (read_climoz >= 1) then
+          call open_climoz(ncid_climoz, press_climoz)
+       END IF
+       !$omp end single
+       !
+       !IM betaCRF
+       pfree=70000. !Pa
+       beta_pbl=1.
+       beta_free=1.
+       lon1_beta=-180.
+       lon2_beta=+180.
+       lat1_beta=90.
+       lat2_beta=-90.
+       mskocean_beta=.FALSE.
+
+       !albedo SB >>>
+       select case(nsw)
+       case(2)
+          SFRWL(1)=0.45538747
+          SFRWL(2)=0.54461211
+       case(4)
+          SFRWL(1)=0.45538747
+          SFRWL(2)=0.32870591
+          SFRWL(3)=0.18568763
+          SFRWL(4)=3.02191470E-02
+       case(6)
+          SFRWL(1)=1.28432794E-03
+          SFRWL(2)=0.12304168
+          SFRWL(3)=0.33106142
+          SFRWL(4)=0.32870591
+          SFRWL(5)=0.18568763
+          SFRWL(6)=3.02191470E-02
+       end select
+
+
+       !albedo SB <<<
+
+       OPEN(99,file='beta_crf.data',status='old', &
+            form='formatted',err=9999)
+       READ(99,*,end=9998) pfree
+       READ(99,*,end=9998) beta_pbl
+       READ(99,*,end=9998) beta_free
+       READ(99,*,end=9998) lon1_beta
+       READ(99,*,end=9998) lon2_beta
+       READ(99,*,end=9998) lat1_beta
+       READ(99,*,end=9998) lat2_beta
+       READ(99,*,end=9998) mskocean_beta
+9998   Continue
+       CLOSE(99)
+9999   Continue
+       WRITE(*,*)'pfree=',pfree
+       WRITE(*,*)'beta_pbl=',beta_pbl
+       WRITE(*,*)'beta_free=',beta_free
+       WRITE(*,*)'lon1_beta=',lon1_beta
+       WRITE(*,*)'lon2_beta=',lon2_beta
+       WRITE(*,*)'lat1_beta=',lat1_beta
+       WRITE(*,*)'lat2_beta=',lat2_beta
+       WRITE(*,*)'mskocean_beta=',mskocean_beta
+    ENDIF
+    !
+    !   ****************     Fin  de   IF ( debut  )   ***************
+    !
+    !
+    ! Incrementer le compteur de la physique
+    !
+    itap   = itap + 1
+    !
+    !
+    ! Update fraction of the sub-surfaces (pctsrf) and 
+    ! initialize, where a new fraction has appeared, all variables depending 
+    ! on the surface fraction.
+    !
+    CALL change_srf_frac(itap, dtime, days_elapsed+1,  &
+         pctsrf, fevap, z0m, z0h, agesno,              &
+         falb_dir, falb_dif, ftsol, ustar, u10m, v10m, pbl_tke)
+
+    ! Update time and other variables in Reprobus
+    IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+       CALL Init_chem_rep_xjour(jD_cur-jD_ref+day_ref)
+       print*,'xjour equivalent rjourvrai',jD_cur-jD_ref+day_ref
+       CALL Rtime(debut)
+#endif
+    END IF
+
+
+    ! Tendances bidons pour les processus qui n'affectent pas certaines
+    ! variables.
+    du0(:,:)=0.
+    dv0(:,:)=0.
+    dt0 = 0.
+    dq0(:,:)=0.
+    dql0(:,:)=0.
+    dqi0(:,:)=0.
+    !
+    ! Mettre a zero des variables de sortie (pour securite)
+    !
+    DO i = 1, klon
+       d_ps(i) = 0.0
+    ENDDO
+    DO k = 1, klev
+       DO i = 1, klon
+          d_t(i,k) = 0.0
+          d_u(i,k) = 0.0
+          d_v(i,k) = 0.0
+       ENDDO
+    ENDDO
+    DO iq = 1, nqtot
+       DO k = 1, klev
+          DO i = 1, klon
+             d_qx(i,k,iq) = 0.0
+          ENDDO
+       ENDDO
+    ENDDO
+    da(:,:)=0.
+    mp(:,:)=0.
+    phi(:,:,:)=0.
+    ! RomP >>>
+    phi2(:,:,:)=0.
+    beta_prec_fisrt(:,:)=0.
+    beta_prec(:,:)=0.
+    epmlmMm(:,:,:)=0.
+    eplaMm(:,:)=0.
+    d1a(:,:)=0.
+    dam(:,:)=0.
+    pmflxr=0.
+    pmflxs=0.
+    ! RomP <<<
+
+    !
+    ! Ne pas affecter les valeurs entrees de u, v, h, et q
+    !
+    DO k = 1, klev
+       DO i = 1, klon
+          t_seri(i,k)  = t(i,k)
+          u_seri(i,k)  = u(i,k)
+          v_seri(i,k)  = v(i,k)
+          q_seri(i,k)  = qx(i,k,ivap)
+          ql_seri(i,k) = qx(i,k,iliq)
+          !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
+    !
+    !--OB mass fixer 
+    IF (mass_fixer) THEN
+    !--store initial water burden
+    qql1(:)=0.0
+    DO k = 1, klev
+      qql1(:)=qql1(:)+(q_seri(:,k)+ql_seri(:,k)+qs_seri(:,k))*zmasse(:,k)
+    ENDDO
+    ENDIF
+    !--fin mass fixer
+
+    tke0(:,:)=pbl_tke(:,:,is_ave)
+    !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-nqo) = qx(i,k,iq)
+             ENDDO
+          ENDDO
+       ENDDO
+    ELSE
+       DO k = 1, klev
+          DO i = 1, klon
+             tr_seri(i,k,1) = 0.0
+          ENDDO
+       ENDDO
+    ENDIF
+    !
+    DO i = 1, klon
+       ztsol(i) = 0.
+    ENDDO
+    DO nsrf = 1, nbsrf
+       DO i = 1, klon
+          ztsol(i) = ztsol(i) + ftsol(i,nsrf)*pctsrf(i,nsrf)
+       ENDDO
+    ENDDO
+    ! Initialize variables used for diagnostic purpose
+    if (flag_inhib_tend .ne. 0) call init_cmp_seri
+    !IM
+    IF (ip_ebil_phy.ge.1) THEN 
+       ztit='after dynamic'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,1,1,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       !     Comme les tendances de la physique sont ajoute dans la dynamique,
+       !     on devrait avoir que la variation d'entalpie par la dynamique
+       !     est egale a la variation de la physique au pas de temps precedent.
+       !     Donc la somme de ces 2 variations devrait etre nulle.
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol+d_h_vcol_phy, d_qt, 0. &
+            , fs_bound, fq_bound )
+    END IF
+
+    ! Diagnostiquer la tendance dynamique
+    !
+    IF (ancien_ok) THEN
+    !
+       d_u_dyn(:,:)  = (u_seri(:,:)-u_ancien(:,:))/dtime
+       d_v_dyn(:,:)  = (v_seri(:,:)-v_ancien(:,:))/dtime
+       d_t_dyn(:,:)  = (t_seri(:,:)-t_ancien(:,:))/dtime
+       d_q_dyn(:,:)  = (q_seri(:,:)-q_ancien(:,:))/dtime
+       d_ql_dyn(:,:) = (ql_seri(:,:)-ql_ancien(:,:))/dtime
+       d_qs_dyn(:,:) = (qs_seri(:,:)-qs_ancien(:,:))/dtime
+       CALL water_int(klon,klev,q_seri,zmasse,zx_tmp_fi2d)
+       d_q_dyn2d(:)=(zx_tmp_fi2d(:)-prw_ancien(:))/dtime
+       CALL water_int(klon,klev,ql_seri,zmasse,zx_tmp_fi2d)
+       d_ql_dyn2d(:)=(zx_tmp_fi2d(:)-prlw_ancien(:))/dtime
+       CALL water_int(klon,klev,qs_seri,zmasse,zx_tmp_fi2d)
+       d_qs_dyn2d(:)=(zx_tmp_fi2d(:)-prsw_ancien(:))/dtime
+       ! !! RomP >>>   td dyn traceur
+       IF (nqtot.GT.nqo) THEN     ! jyg
+          DO iq = nqo+1, nqtot      ! jyg
+              d_tr_dyn(:,:,iq-nqo)=(tr_seri(:,:,iq-nqo)-tr_ancien(:,:,iq-nqo))/dtime ! jyg
+          ENDDO
+       ENDIF
+       ! !! RomP <<<
+    ELSE
+       d_u_dyn(:,:)  = 0.0
+       d_v_dyn(:,:)  = 0.0
+       d_t_dyn(:,:)  = 0.0
+       d_q_dyn(:,:)  = 0.0
+       d_ql_dyn(:,:) = 0.0
+       d_qs_dyn(:,:) = 0.0
+       d_q_dyn2d(:)  = 0.0
+       d_ql_dyn2d(:) = 0.0
+       d_qs_dyn2d(:) = 0.0
+       ! !! RomP >>>   td dyn traceur
+       IF (nqtot.GT.nqo) THEN                                       ! jyg
+          DO iq = nqo+1, nqtot                                      ! jyg
+              d_tr_dyn(:,:,iq-nqo)= 0.0                             ! jyg
+          ENDDO
+       ENDIF
+       ! !! RomP <<<
+       ancien_ok = .TRUE.
+    ENDIF
+    !
+    ! Ajouter le geopotentiel du sol:
+    !
+    DO k = 1, klev
+       DO i = 1, klon
+          zphi(i,k) = pphi(i,k) + pphis(i)
+       ENDDO
+    ENDDO
+    !
+    ! Verifier les temperatures
+    !
+    !IM BEG
+    IF (check) THEN
+       amn=MIN(ftsol(1,is_ter),1000.)
+       amx=MAX(ftsol(1,is_ter),-1000.)
+       DO i=2, klon
+          amn=MIN(ftsol(i,is_ter),amn)
+          amx=MAX(ftsol(i,is_ter),amx)
+       ENDDO
+       !
+       PRINT*,' debut avant hgardfou min max ftsol',itap,amn,amx
+    ENDIF !(check) THEN
+    !IM END
+    !
+    CALL hgardfou(t_seri,ftsol,'debutphy',abortphy)
+    IF (abortphy==1) Print*,'ERROR ABORT hgardfou debutphy'
+
+    !
+    !IM BEG
+    IF (check) THEN
+       amn=MIN(ftsol(1,is_ter),1000.)
+       amx=MAX(ftsol(1,is_ter),-1000.)
+       DO i=2, klon
+          amn=MIN(ftsol(i,is_ter),amn)
+          amx=MAX(ftsol(i,is_ter),amx)
+       ENDDO
+       !
+       PRINT*,' debut apres hgardfou min max ftsol',itap,amn,amx
+    ENDIF !(check) THEN
+    !IM END
+    !
+    ! Mettre en action les conditions aux limites (albedo, sst, etc.).
+    ! Prescrire l'ozone et calculer l'albedo sur l'ocean.
+    !
+    if (read_climoz >= 1) then
+       ! Ozone from a file
+       ! Update required ozone index:
+       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
+       ! error. See documentation.)
+       if (ro3i /= co3i) then
+          ! Update ozone field:
+          if (read_climoz == 1) then
+             call regr_pr_av(ncid_climoz, (/"tro3"/), julien=ro3i, &
+                  press_in_edg=press_climoz, paprs=paprs, v3=wo)
+          else
+             ! read_climoz == 2
+             call regr_pr_av(ncid_climoz, (/"tro3         ", &
+                  "tro3_daylight"/), julien=ro3i, press_in_edg=press_climoz, &
+                  paprs=paprs, v3=wo)
+          end if
+          ! Convert from mole fraction of ozone to column density of ozone in a
+          ! cell, in kDU:
+          forall (l = 1: read_climoz) wo(:, :, l) = wo(:, :, l) * rmo3 / rmd &
+               * zmasse / dobson_u / 1e3
+          ! (By regridding ozone values for LMDZ only once every 360th of
+          ! year, we have already neglected the variation of pressure in one
+          ! 360th of year. So do not recompute "wo" at each time step even if
+          ! "zmasse" changes a little.)
+          co3i = ro3i
+       end if
+    ELSEIF (MOD(itap-1,lmt_pas) == 0) THEN
+       ! Once per day, update ozone from Royer:
+
+       IF (solarlong0<-999.) then
+          ! Generic case with evolvoing season
+          zzz=real(days_elapsed+1)
+       ELSE IF (abs(solarlong0-1000.)<1.e-4) then
+          ! Particular case with annual mean insolation
+          zzz=real(90) ! could be revisited
+          IF (read_climoz/=-1) THEN
+             abort_message ='read_climoz=-1 is recommended when ' &
+                  // 'solarlong0=1000.'
+             CALL abort_physic (modname,abort_message,1)
+          ENDIF
+       ELSE
+          ! Case where the season is imposed with solarlong0
+          zzz=real(90) ! could be revisited
+       ENDIF
+       wo(:,:,1)=ozonecm(latitude_deg, paprs,read_climoz,rjour=zzz)
+    ENDIF
+    !
+    ! Re-evaporer l'eau liquide nuageuse
+    !
+    DO k = 1, klev  ! re-evaporation de l'eau liquide nuageuse
+       DO i = 1, klon
+          zlvdcp=RLVTT/RCPD/(1.0+RVTMP2*q_seri(i,k))
+          !jyg<
+          !  Attention : Arnaud a propose des formules completement differentes
+          !                  A verifier !!!
+          zlsdcp=RLSTT/RCPD/(1.0+RVTMP2*q_seri(i,k))
+          IF (iflag_ice_thermo .EQ. 0) THEN
+             zlsdcp=zlvdcp
+          ENDIF
+          !>jyg
+
+          if (iflag_ice_thermo.eq.0) then   
+             !pas necessaire a priori
+
+             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)
+             t_seri(i,k) = t_seri(i,k) + za
+             q_seri(i,k) = q_seri(i,k) + zb
+             ql_seri(i,k) = 0.0
+             d_t_eva(i,k) = za
+             d_q_eva(i,k) = zb
+
+          else
+
+             !CR: on r\'e-\'evapore 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 \'evapore la glace
+             qs_seri(i,k) = 0.0
+             d_t_eva(i,k) = za
+             d_q_eva(i,k) = zb
+          endif
+
+       ENDDO
+    ENDDO
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after reevap'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,1,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+       !
+    END IF
+
+    !
+    !=========================================================================
+    ! Calculs de l'orbite.
+    ! Necessaires pour le rayonnement et la surface (calcul de l'albedo).
+    ! doit donc etre plac\'e avant radlwsw et pbl_surface
+
+    ! !!   jyg 17 Sep 2010 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    call ymds2ju(year_cur, mth_eq, day_eq,0., jD_eq)
+    day_since_equinox = (jD_cur + jH_cur) - jD_eq
+    !
+    !   choix entre calcul de la longitude solaire vraie ou valeur fixee a 
+    !   solarlong0
+    if (solarlong0<-999.) then
+       if (new_orbit) then
+          ! calcul selon la routine utilisee pour les planetes
+          call solarlong(day_since_equinox, zlongi, dist)
+       else
+          ! calcul selon la routine utilisee pour l'AR4
+          CALL orbite(REAL(days_elapsed+1),zlongi,dist)
+       endif
+    else
+       zlongi=solarlong0  ! longitude solaire vraie
+       dist=1.            ! distance au soleil / moyenne 
+    endif
+    if(prt_level.ge.1)                                                &
+         write(lunout,*)'Longitude solaire ',zlongi,solarlong0,dist
+
+
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Calcul de l'ensoleillement :
+    ! ============================
+    ! Pour une solarlong0=1000., on calcule un ensoleillement moyen sur
+    ! l'annee a partir d'une formule analytique.
+    ! Cet ensoleillement est sym\'etrique autour de l'\'equateur et
+    ! non nul aux poles.
+    IF (abs(solarlong0-1000.)<1.e-4) then
+       call zenang_an(iflag_cycle_diurne.GE.1,jH_cur, &
+            latitude_deg,longitude_deg,rmu0,fract)
+       JrNt = 1.0
+    ELSE
+       ! recode par Olivier Boucher en sept 2015
+       SELECT CASE (iflag_cycle_diurne)
+       CASE(0)  
+          !  Sans cycle diurne
+          CALL angle(zlongi, latitude_deg, fract, rmu0)
+          swradcorr = 1.0
+          JrNt = 1.0
+          zrmu0 = rmu0
+       CASE(1)  
+          !  Avec cycle diurne sans application des poids
+          !  bit comparable a l ancienne formulation cycle_diurne=true
+          !  on integre entre gmtime et gmtime+radpas
+          zdtime=dtime*REAL(radpas) ! pas de temps du rayonnement (s)
+          CALL zenang(zlongi,jH_cur,0.0,zdtime, &
+               latitude_deg,longitude_deg,rmu0,fract)
+          zrmu0 = rmu0
+          swradcorr = 1.0
+          ! Calcul du flag jour-nuit
+          JrNt = 0.0
+          WHERE (fract.GT.0.0) JrNt = 1.0
+       CASE(2)  
+          !  Avec cycle diurne sans application des poids
+          !  On integre entre gmtime-pdtphys et gmtime+pdtphys*(radpas-1)
+          !  Comme cette routine est appele a tous les pas de temps de
+          !  la physique meme si le rayonnement n'est pas appele je
+          !  remonte en arriere les radpas-1 pas de temps
+          !  suivant. Petite ruse avec MOD pour prendre en compte le
+          !  premier pas de temps de la physique pendant lequel
+          !  itaprad=0
+          zdtime1=dtime*REAL(-MOD(itaprad,radpas)-1)      
+          zdtime2=dtime*REAL(radpas-MOD(itaprad,radpas)-1) 
+          CALL zenang(zlongi,jH_cur,zdtime1,zdtime2, &
+               latitude_deg,longitude_deg,rmu0,fract)
+          !
+          ! Calcul des poids
+          !
+          zdtime1=-dtime !--on corrige le rayonnement pour representer le
+          zdtime2=0.0    !--pas de temps de la physique qui se termine
+          CALL zenang(zlongi,jH_cur,zdtime1,zdtime2, &
+               latitude_deg,longitude_deg,zrmu0,zfract)
+          swradcorr = 0.0
+          WHERE (rmu0.GE.1.e-10 .OR. fract.GE.1.e-10) &
+               swradcorr=zfract/fract*zrmu0/rmu0
+          ! Calcul du flag jour-nuit
+          JrNt = 0.0
+          WHERE (zfract.GT.0.0) JrNt = 1.0 
+       END SELECT
+    ENDIF
+
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+    ! Appel au pbl_surface : Planetary Boudary Layer et Surface
+    ! Cela implique tous les interactions des sous-surfaces et la
+    ! partie diffusion turbulent du couche limit.
+    ! 
+    ! Certains varibales de sorties de pbl_surface sont utiliser que pour 
+    ! ecriture des fihiers hist_XXXX.nc, ces sont :
+    !   qsol,      zq2m,      s_pblh,  s_lcl,
+    !   s_capCL,   s_oliqCL,  s_cteiCL,s_pblT,
+    !   s_therm,   s_trmb1,   s_trmb2, s_trmb3,
+    !   zu10m,     zv10m,   fder,
+    !   zxqsurf,   rh2m,      zxfluxu, zxfluxv,
+    !   frugs,     agesno,    fsollw,  fsolsw,
+    !   d_ts,      fevap,     fluxlat, t2m,
+    !   wfbils,    wfbilo,    fluxt,   fluxu, fluxv,
+    !
+    ! Certains ne sont pas utiliser du tout : 
+    !   dsens, devap, zxsnow, zxfluxt, zxfluxq, q2m, fluxq
+    !
+
+    ! Calcul de l'humidite de saturation au niveau du sol
+
+
+
+    if (iflag_pbl/=0) then
+
+       !jyg+nrlmd<
+       IF (prt_level .ge. 2 .and. mod(iflag_pbl_split,2) .eq. 1) THEN
+          print *,'debut du splitting de la PBL'
+       ENDIF
+       ! !!
+       !=================================================================
+       !         PROVISOIRE : DECOUPLAGE PBL/WAKE
+       !         --------------------------------
+       !
+       !!      wake_deltat_sav(:,:)=wake_deltat(:,:)
+       !!      wake_deltaq_sav(:,:)=wake_deltaq(:,:)
+       !!      wake_deltat(:,:)=0.
+       !!      wake_deltaq(:,:)=0.
+       !=================================================================
+       !>jyg+nrlmd
+       !
+       !-------gustiness calculation-------!
+       IF (iflag_gusts==0) THEN
+          gustiness(1:klon)=0
+       ELSE IF (iflag_gusts==1) THEN
+          do i = 1, klon
+             gustiness(i)=f_gust_bl*ale_bl(i)+f_gust_wk*ale_wake(i)
+          enddo
+          ! ELSE IF (iflag_gusts==2) THEN
+          !    do i = 1, klon
+          !       gustiness(i)=f_gust_bl*ale_bl(i)+sigma_wk(i)*f_gust_wk&
+          !           *ale_wake(i) !! need to make sigma_wk accessible here
+          !    enddo
+          ! ELSE IF (iflag_gusts==3) THEN
+          !    do i = 1, klon
+          !       gustiness(i)=f_gust_bl*alp_bl(i)+f_gust_wk*alp_wake(i)
+          !    enddo
+       ENDIF
+
+
+
+       CALL pbl_surface(  &
+            dtime,     date0,     itap,    days_elapsed+1, &
+            debut,     lafin, &
+            longitude_deg, latitude_deg, rugoro,  zrmu0,      &
+            zsig,      sollwdown, pphi,    cldt,      &
+            rain_fall, snow_fall, solsw,   sollw,     &
+            gustiness,                                &
+            t_seri,    q_seri,    u_seri,  v_seri,    &
+                                !nrlmd+jyg<
+            wake_deltat, wake_deltaq, wake_cstar, wake_s, &
+                                !>nrlmd+jyg
+            pplay,     paprs,     pctsrf,             &
+            ftsol,SFRWL,falb_dir,falb_dif,ustar,u10m,v10m,wstar, &
+                                !albedo SB <<<
+            cdragh,    cdragm,  u1,    v1,            &
+                                !albedo SB >>>
+                                ! albsol1,   albsol2,   sens,    evap,      &
+            albsol_dir,   albsol_dif,   sens,    evap,   &  
+                                !albedo SB <<<
+            albsol3_lic,runoff,   snowhgt,   qsnow, to_ice, sissnow, &
+            zxtsol,    zxfluxlat, zt2m,    qsat2m,  &
+            d_t_vdf,   d_q_vdf,   d_u_vdf, d_v_vdf, d_t_diss, &
+                                !nrlmd<
+                                !jyg<
+            d_t_vdf_w, d_q_vdf_w, &
+            d_t_vdf_x, d_q_vdf_x, &
+            sens_x, zxfluxlat_x, sens_w, zxfluxlat_w, &
+                                !>jyg
+            delta_tsurf,wake_dens, &
+            cdragh_x,cdragh_w,cdragm_x,cdragm_w, &
+            kh,kh_x,kh_w, &
+                                !>nrlmd
+            coefh(1:klon,1:klev,1:nbsrf+1), coefm(1:klon,1:klev,1:nbsrf+1), &
+            slab_wfbils,                 &
+            qsol,      zq2m,      s_pblh,  s_lcl, &
+                                !jyg<
+            s_pblh_x, s_lcl_x, s_pblh_w, s_lcl_w, &
+                                !>jyg
+            s_capCL,   s_oliqCL,  s_cteiCL,s_pblT, &
+            s_therm,   s_trmb1,   s_trmb2, s_trmb3, &
+            zustar, zu10m,     zv10m,   fder, &
+            zxqsurf,   rh2m,      zxfluxu, zxfluxv, &
+            z0m, z0h,     agesno,    fsollw,  fsolsw, &
+            d_ts,      fevap,     fluxlat, t2m, &
+            wfbils,    wfbilo,    fluxt,   fluxu,  fluxv, &
+            dsens,     devap,     zxsnow, &
+            zxfluxt,   zxfluxq,   q2m,     fluxq, pbl_tke, &
+                                !nrlmd+jyg<
+            wake_delta_pbl_TKE &
+                                !>nrlmd+jyg
+            )
+       !
+       !=================================================================
+       !         PROVISOIRE : DECOUPLAGE PBL/WAKE
+       !         --------------------------------
+       !
+       !!      wake_deltat(:,:)=wake_deltat_sav(:,:)
+       !!      wake_deltaq(:,:)=wake_deltaq_sav(:,:)
+       !=================================================================
+       !
+       !  Add turbulent diffusion tendency to the wake difference variables
+       IF (mod(iflag_pbl_split,2) .NE. 0) THEN
+          wake_deltat(:,:) = wake_deltat(:,:) + (d_t_vdf_w(:,:)-d_t_vdf_x(:,:))
+          wake_deltaq(:,:) = wake_deltaq(:,:) + (d_q_vdf_w(:,:)-d_q_vdf_x(:,:))
+       ENDIF
+
+
+       !---------------------------------------------------------------------
+       ! ajout des tendances de la diffusion turbulente
+       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,dqi0,paprs,&
+               'vdf',abortphy,flag_inhib_tend)
+       ELSE
+          CALL add_phys_tend &
+               (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,dqi0,paprs,&
+               'vdf',abortphy,flag_inhib_tend)
+       ENDIF
+       !--------------------------------------------------------------------
+
+       if (mydebug) then
+          call writefield_phy('u_seri',u_seri,nbp_lev)
+          call writefield_phy('v_seri',v_seri,nbp_lev)
+          call writefield_phy('t_seri',t_seri,nbp_lev)
+          call writefield_phy('q_seri',q_seri,nbp_lev)
+       endif
+
+
+       !albedo SB >>>
+       albsol1=0.
+       albsol2=0.
+       falb1=0.
+       falb2=0.
+       select case(nsw)
+       case(2)
+          albsol1=albsol_dir(:,1)
+          albsol2=albsol_dir(:,2)
+          falb1=falb_dir(:,1,:)
+          falb2=falb_dir(:,2,:)
+       case(4)
+          albsol1=albsol_dir(:,1)
+          albsol2=albsol_dir(:,2)*SFRWL(2)+albsol_dir(:,3)*SFRWL(3) &
+               +albsol_dir(:,4)*SFRWL(4)
+          albsol2=albsol2/(SFRWL(2)+SFRWL(3)+SFRWL(4))
+          falb1=falb_dir(:,1,:)
+          falb2=falb_dir(:,2,:)*SFRWL(2)+falb_dir(:,3,:)*SFRWL(3) &
+               +falb_dir(:,4,:)*SFRWL(4)
+          falb2=falb2/(SFRWL(2)+SFRWL(3)+SFRWL(4))
+       case(6)
+          albsol1=albsol_dir(:,1)*SFRWL(1)+albsol_dir(:,2)*SFRWL(2) &
+               +albsol_dir(:,3)*SFRWL(3)
+          albsol1=albsol1/(SFRWL(1)+SFRWL(2)+SFRWL(3))
+          albsol2=albsol_dir(:,4)*SFRWL(4)+albsol_dir(:,5)*SFRWL(5) &
+               +albsol_dir(:,6)*SFRWL(6)
+          albsol2=albsol2/(SFRWL(4)+SFRWL(5)+SFRWL(6))
+          falb1=falb_dir(:,1,:)*SFRWL(1)+falb_dir(:,2,:)*SFRWL(2) &
+               +falb_dir(:,3,:)*SFRWL(3)
+          falb1=falb1/(SFRWL(1)+SFRWL(2)+SFRWL(3))
+          falb2=falb_dir(:,4,:)*SFRWL(4)+falb_dir(:,5,:)*SFRWL(5) &
+               +falb_dir(:,6,:)*SFRWL(6)
+          falb2=falb2/(SFRWL(4)+SFRWL(5)+SFRWL(6))
+       end select
+       !albedo SB <<<
+
+
+       CALL evappot(klon,nbsrf,ftsol,pplay(:,1),cdragh, &
+            t_seri(:,1),q_seri(:,1),u_seri(:,1),v_seri(:,1),evap_pot)
+
+
+       IF (ip_ebil_phy.ge.2) THEN 
+          ztit='after surface_main'
+          CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+               , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+               , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+          call diagphy(cell_area,ztit,ip_ebil_phy &
+               , zero_v, zero_v, zero_v, zero_v, sens &
+               , evap  , zero_v, zero_v, ztsol &
+               , d_h_vcol, d_qt, d_ec &
+               , fs_bound, fq_bound )
+       END IF
+
+    ENDIF
+    ! =================================================================== c
+    !   Calcul de Qsat
+
+    DO k = 1, klev
+       DO i = 1, klon
+          zx_t = t_seri(i,k)
+          IF (thermcep) THEN
+             zdelta = MAX(0.,SIGN(1.,rtt-zx_t))
+             zx_qs  = r2es * FOEEW(zx_t,zdelta)/pplay(i,k)
+             zx_qs  = MIN(0.5,zx_qs)
+             zcor   = 1./(1.-retv*zx_qs)
+             zx_qs  = zx_qs*zcor
+          ELSE
+             !!           IF (zx_t.LT.t_coup) THEN             !jyg
+             IF (zx_t.LT.rtt) THEN                  !jyg
+                zx_qs = qsats(zx_t)/pplay(i,k)
+             ELSE
+                zx_qs = qsatl(zx_t)/pplay(i,k)
+             ENDIF
+          ENDIF
+          zqsat(i,k)=zx_qs
+       ENDDO
+    ENDDO
+
+    if (prt_level.ge.1) then
+       write(lunout,*) 'L   qsat (g/kg) avant clouds_gno'
+       write(lunout,'(i4,f15.4)') (k,1000.*zqsat(igout,k),k=1,klev)
+    endif
+    !
+    ! Appeler la convection (au choix)
+    !
+    DO k = 1, klev
+       DO i = 1, klon
+          conv_q(i,k) = d_q_dyn(i,k)  &
+               + d_q_vdf(i,k)/dtime
+          conv_t(i,k) = d_t_dyn(i,k)  &
+               + d_t_vdf(i,k)/dtime
+       ENDDO
+    ENDDO
+    IF (check) THEN
+       za = qcheck(klon,klev,paprs,q_seri,ql_seri,cell_area)
+       WRITE(lunout,*) "avantcon=", za
+    ENDIF
+    zx_ajustq = .FALSE.
+    IF (iflag_con.EQ.2) zx_ajustq=.TRUE.
+    IF (zx_ajustq) THEN
+       DO i = 1, klon
+          z_avant(i) = 0.0
+       ENDDO
+       DO k = 1, klev
+          DO i = 1, klon
+             z_avant(i) = z_avant(i) + (q_seri(i,k)+ql_seri(i,k)) &
+                  *(paprs(i,k)-paprs(i,k+1))/RG
+          ENDDO
+       ENDDO
+    ENDIF
+
+    ! Calcule de vitesse verticale a partir de flux de masse verticale
+    DO k = 1, klev
+       DO i = 1, klon
+          omega(i,k) = RG*flxmass_w(i,k) / cell_area(i)
+       END DO
+    END DO
+    if (prt_level.ge.1) write(lunout,*) 'omega(igout, :) = ', &
+         omega(igout, :)
+
+    IF (iflag_con.EQ.1) THEN
+       abort_message ='reactiver le call conlmd dans physiq.F'
+       CALL abort_physic (modname,abort_message,1)
+       !     CALL conlmd (dtime, paprs, pplay, t_seri, q_seri, conv_q,
+       !    .             d_t_con, d_q_con,
+       !    .             rain_con, snow_con, ibas_con, itop_con)
+    ELSE IF (iflag_con.EQ.2) THEN
+       CALL conflx(dtime, paprs, pplay, t_seri, q_seri, &
+            conv_t, conv_q, -evap, omega, &
+            d_t_con, d_q_con, rain_con, snow_con, &
+            pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
+            kcbot, kctop, kdtop, pmflxr, pmflxs)
+       d_u_con = 0.
+       d_v_con = 0.
+
+       WHERE (rain_con < 0.) rain_con = 0.
+       WHERE (snow_con < 0.) snow_con = 0.
+       DO i = 1, klon
+          ibas_con(i) = klev+1 - kcbot(i)
+          itop_con(i) = klev+1 - kctop(i)
+       ENDDO
+    ELSE IF (iflag_con.GE.3) THEN
+       ! nb of tracers for the KE convection:
+       ! MAF la partie traceurs est faite dans phytrac
+       ! on met ntra=1 pour limiter les appels mais on peut
+       ! supprimer les calculs / ftra.
+       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
+       do k=1,klev
+          do i=1,klon
+             if (iflag_wake>=1) then
+                t_wake(i,k) = t_seri(i,k) &
+                     +(1-wake_s(i))*wake_deltat(i,k)
+                q_wake(i,k) = q_seri(i,k) &
+                     +(1-wake_s(i))*wake_deltaq(i,k)
+                t_undi(i,k) = t_seri(i,k) &
+                     -wake_s(i)*wake_deltat(i,k)
+                q_undi(i,k) = q_seri(i,k) &
+                     -wake_s(i)*wake_deltaq(i,k)
+             else
+                t_wake(i,k) = t_seri(i,k)
+                q_wake(i,k) = q_seri(i,k)
+                t_undi(i,k) = t_seri(i,k)
+                q_undi(i,k) = q_seri(i,k)
+             endif
+          enddo
+       enddo
+       !
+       !jyg<
+       ! Perform dry adiabatic adjustment on wake profile
+       ! The corresponding tendencies are added to the convective tendencies
+       ! after the call to the convective scheme.
+       IF (iflag_wake>=1) then
+          IF (ok_adjwk) THEN
+             limbas(:) = 1
+             CALL ajsec(paprs, pplay, t_wake, q_wake, limbas, &
+                  d_t_adjwk, d_q_adjwk)
+          ENDIF
+          !
+          DO k=1,klev
+             DO i=1,klon
+                IF (wake_s(i) .GT. 1.e-3) THEN
+                   t_wake(i,k) = t_wake(i,k) + d_t_adjwk(i,k)
+                   q_wake(i,k) = q_wake(i,k) + d_q_adjwk(i,k)
+                   wake_deltat(i,k) = wake_deltat(i,k) + d_t_adjwk(i,k)
+                   wake_deltaq(i,k) = wake_deltaq(i,k) + d_q_adjwk(i,k)
+                ENDIF
+             ENDDO
+          ENDDO
+       ENDIF ! (iflag_wake>=1)
+       !>jyg
+       !
+!jyg<
+       CALL alpale( debut, itap, dtime, paprs, omega, t_seri,   &
+                    alp_offset, it_wape_prescr,  wape_prescr, fip_prescr, &
+                    ale_bl_prescr, alp_bl_prescr, &
+                    wake_pe, wake_fip,  &
+                    Ale_bl, Ale_bl_trig, Alp_bl, &
+                    Ale, Alp , Ale_wake, Alp_wake)
+!>jyg
+!
+       ! sb, oct02:
+       ! Schema de convection modularise et vectorise:
+       ! (driver commun aux versions 3 et 4)
+       !
+       IF (ok_cvl) THEN ! new driver for convectL
+          !
+          !jyg<
+          ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+          ! Calculate the upmost level of deep convection loops: k_upper_cv
+          !  (near 22 km)
+          izero = klon/2+1/klon
+          k_upper_cv = klev
+          DO k = klev,1,-1
+             IF (pphi(izero,k) > 22.e4) k_upper_cv = k
+          ENDDO
+          IF (prt_level .ge. 5) THEN
+             Print *, 'upmost level of deep convection loops: k_upper_cv = ', &
+                  k_upper_cv
+          ENDIF
+          !
+          !>jyg
+          IF (type_trac == 'repr') THEN
+             nbtr_tmp=ntra
+          ELSE
+             nbtr_tmp=nbtr
+          END IF
+          !jyg   iflag_con est dans clesphys
+          !c          CALL concvl (iflag_con,iflag_clos,
+          CALL concvl (iflag_clos, &
+               dtime, paprs, pplay, k_upper_cv, t_undi,q_undi, &
+               t_wake,q_wake,wake_s, &
+               u_seri,v_seri,tr_seri,nbtr_tmp, &
+               ALE,ALP, &
+               sig1,w01, &
+               d_t_con,d_q_con,d_u_con,d_v_con,d_tr, &
+               rain_con, snow_con, ibas_con, itop_con, sigd, &
+               ema_cbmf,plcl,plfc,wbeff,upwd,dnwd,dnwd0, &
+               Ma,mip,Vprecip,cape,cin,tvp,Tconv,iflagctrl, &
+               pbase,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr,qcondc,wd, &
+                                ! RomP >>>
+                                !!     .        pmflxr,pmflxs,da,phi,mp,
+                                !!     .        ftd,fqd,lalim_conv,wght_th)
+               pmflxr,pmflxs,da,phi,mp,phi2,d1a,dam,sij,clw,elij, &
+               ftd,fqd,lalim_conv,wght_th, &
+               ev, ep,epmlmMm,eplaMm, &
+               wdtrainA,wdtrainM,wght_cvfd,qtc_cv,sigt_cv, &
+               tau_cld_cv,coefw_cld_cv,epmax_diag)
+          ! RomP <<<
+
+          !IM begin
+          !       print*,'physiq: cin pbase dnwd0 ftd fqd ',cin(1),pbase(1),
+          !    .dnwd0(1,1),ftd(1,1),fqd(1,1)
+          !IM end
+          !IM cf. FH
+          clwcon0=qcondc
+          pmfu(:,:)=upwd(:,:)+dnwd(:,:)
+
+          do i = 1, klon
+             if (iflagctrl(i).le.1) itau_con(i)=itau_con(i)+1
+          enddo
+          !
+          !jyg<
+          !    Add the tendency due to the dry adjustment of the wake profile
+          IF (iflag_wake>=1) THEN
+             DO k=1,klev
+                DO i=1,klon
+                   ftd(i,k) = ftd(i,k) + wake_s(i)*d_t_adjwk(i,k)/dtime
+                   fqd(i,k) = fqd(i,k) + wake_s(i)*d_q_adjwk(i,k)/dtime
+                   d_t_con(i,k) = d_t_con(i,k) + wake_s(i)*d_t_adjwk(i,k)
+                   d_q_con(i,k) = d_q_con(i,k) + wake_s(i)*d_q_adjwk(i,k)
+                ENDDO
+             ENDDO
+          ENDIF
+          !>jyg
+          !
+       ELSE ! ok_cvl
+
+          ! MAF conema3 ne contient pas les traceurs
+          CALL conema3 (dtime, &
+               paprs,pplay,t_seri,q_seri, &
+               u_seri,v_seri,tr_seri,ntra, &
+               sig1,w01, &
+               d_t_con,d_q_con,d_u_con,d_v_con,d_tr, &
+               rain_con, snow_con, ibas_con, itop_con, &
+               upwd,dnwd,dnwd0,bas,top, &
+               Ma,cape,tvp,rflag, &
+               pbase &
+               ,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr &
+               ,clwcon0)
+
+       ENDIF ! ok_cvl
+
+       !
+       ! Correction precip
+       rain_con = rain_con * cvl_corr
+       snow_con = snow_con * cvl_corr
+       !
+
+       IF (.NOT. ok_gust) THEN
+          do i = 1, klon
+             wd(i)=0.0
+          enddo
+       ENDIF
+
+       ! =================================================================== c
+       ! Calcul des proprietes des nuages convectifs
+       !
+
+       !   calcul des proprietes des nuages convectifs
+       clwcon0(:,:)=fact_cldcon*clwcon0(:,:)
+       IF (iflag_cld_cv == 0) THEN
+          call clouds_gno &
+               (klon,klev,q_seri,zqsat,clwcon0,ptconv,ratqsc,rnebcon0)
+       ELSE
+          call clouds_bigauss &
+               (klon,klev,q_seri,zqsat,qtc_cv,sigt_cv,ptconv,ratqsc,rnebcon0)
+       ENDIF
+
+
+       ! =================================================================== c
+
+       DO i = 1, klon
+          itop_con(i) = min(max(itop_con(i),1),klev)
+          ibas_con(i) = min(max(ibas_con(i),1),itop_con(i))
+       ENDDO
+
+       DO i = 1, klon
+          ema_pcb(i)  = paprs(i,ibas_con(i))
+       ENDDO
+       DO i = 1, klon
+          ! L'idicage de itop_con peut cacher un pb potentiel
+          ! FH sous la dictee de JYG, CR
+          ema_pct(i)  = paprs(i,itop_con(i)+1)
+
+          if (itop_con(i).gt.klev-3) then
+             if(prt_level >= 9) then
+                write(lunout,*)'La convection monte trop haut '
+                write(lunout,*)'itop_con(,',i,',)=',itop_con(i)
+             endif
+          endif
+       ENDDO
+    ELSE IF (iflag_con.eq.0) THEN
+       write(lunout,*) 'On n appelle pas la convection'
+       clwcon0=0.
+       rnebcon0=0.
+       d_t_con=0.
+       d_q_con=0.
+       d_u_con=0.
+       d_v_con=0.
+       rain_con=0.
+       snow_con=0.
+       bas=1
+       top=1
+    ELSE
+       WRITE(lunout,*) "iflag_con non-prevu", iflag_con
+       call abort_physic("physiq", "", 1)
+    ENDIF
+
+    !     CALL homogene(paprs, q_seri, d_q_con, u_seri,v_seri,
+    !    .              d_u_con, d_v_con)
+
+    CALL add_phys_tend(d_u_con, d_v_con, d_t_con, d_q_con, dql0, dqi0, paprs, &
+         'convection',abortphy,flag_inhib_tend)
+
+    !-------------------------------------------------------------------------
+
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after convect'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, rain_con, snow_con, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+    END IF
+    !
+    IF (check) THEN
+       za = qcheck(klon,klev,paprs,q_seri,ql_seri,cell_area)
+       WRITE(lunout,*)"aprescon=", za
+       zx_t = 0.0
+       za = 0.0
+       DO i = 1, klon
+          za = za + cell_area(i)/REAL(klon)
+          zx_t = zx_t + (rain_con(i)+ &
+               snow_con(i))*cell_area(i)/REAL(klon)
+       ENDDO
+       zx_t = zx_t/za*dtime
+       WRITE(lunout,*)"Precip=", zx_t
+    ENDIF
+    IF (zx_ajustq) THEN
+       DO i = 1, klon
+          z_apres(i) = 0.0
+       ENDDO
+       DO k = 1, klev
+          DO i = 1, klon
+             z_apres(i) = z_apres(i) + (q_seri(i,k)+ql_seri(i,k)) &
+                  *(paprs(i,k)-paprs(i,k+1))/RG
+          ENDDO
+       ENDDO
+       DO i = 1, klon
+          z_factor(i) = (z_avant(i)-(rain_con(i)+snow_con(i))*dtime) &
+               /z_apres(i)
+       ENDDO
+       DO k = 1, klev
+          DO i = 1, klon
+             IF (z_factor(i).GT.(1.0+1.0E-08) .OR. &
+                  z_factor(i).LT.(1.0-1.0E-08)) THEN
+                q_seri(i,k) = q_seri(i,k) * z_factor(i)
+             ENDIF
+          ENDDO
+       ENDDO
+    ENDIF
+    zx_ajustq=.FALSE.
+
+    !
+    !==========================================================================
+    !RR:Evolution de la poche froide: on ne fait pas de separation wake/env 
+    !pour la couche limite diffuse pour l instant
+    !
+    !
+    ! nrlmd le 22/03/2011---Si on met les poches hors des thermiques
+    ! il faut rajouter cette tendance calcul\'ee hors des poches
+    ! froides
+    !
+    if (iflag_wake>=1) then
+       DO k=1,klev
+          DO i=1,klon
+             dt_dwn(i,k)  = ftd(i,k) 
+             dq_dwn(i,k)  = fqd(i,k) 
+             M_dwn(i,k)   = dnwd0(i,k)
+             M_up(i,k)    = upwd(i,k)
+             dt_a(i,k)    = d_t_con(i,k)/dtime - ftd(i,k) 
+             dq_a(i,k)    = d_q_con(i,k)/dtime - fqd(i,k)
+          ENDDO
+       ENDDO
+       !nrlmd+jyg<
+       DO k=1,klev
+          DO i=1,klon
+             wdt_PBL(i,k) =  0.
+             wdq_PBL(i,k) =  0.
+             udt_PBL(i,k) =  0.
+             udq_PBL(i,k) =  0.
+          ENDDO
+       ENDDO
+       !
+       IF (mod(iflag_pbl_split,2) .EQ. 1) THEN
+          DO k=1,klev
+             DO i=1,klon
+                wdt_PBL(i,k) = wdt_PBL(i,k) + d_t_vdf_w(i,k)/dtime
+                wdq_PBL(i,k) = wdq_PBL(i,k) + d_q_vdf_w(i,k)/dtime
+                udt_PBL(i,k) = udt_PBL(i,k) + d_t_vdf_x(i,k)/dtime
+                udq_PBL(i,k) = udq_PBL(i,k) + d_q_vdf_x(i,k)/dtime
+                !!        dt_dwn(i,k)  = dt_dwn(i,k) + d_t_vdf_w(i,k)/dtime
+                !!        dq_dwn(i,k)  = dq_dwn(i,k) + d_q_vdf_w(i,k)/dtime
+                !!        dt_a  (i,k)    = dt_a(i,k) + d_t_vdf_x(i,k)/dtime
+                !!        dq_a  (i,k)    = dq_a(i,k) + d_q_vdf_x(i,k)/dtime
+             ENDDO
+          ENDDO
+       ENDIF
+       IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+          DO k=1,klev
+             DO i=1,klon
+                !!        dt_dwn(i,k)  = dt_dwn(i,k) + 0.
+                !!        dq_dwn(i,k)  = dq_dwn(i,k) + 0.
+                !!        dt_a(i,k)   = dt_a(i,k)   + d_t_ajs(i,k)/dtime
+                !!        dq_a(i,k)   = dq_a(i,k)   + d_q_ajs(i,k)/dtime
+                udt_PBL(i,k)   = udt_PBL(i,k)   + d_t_ajs(i,k)/dtime
+                udq_PBL(i,k)   = udq_PBL(i,k)   + d_q_ajs(i,k)/dtime
+             ENDDO
+          ENDDO
+       ENDIF
+       !>nrlmd+jyg
+
+       IF (iflag_wake==2) THEN
+          ok_wk_lsp(:)=max(sign(1.,wake_s(:)-wake_s_min_lsp),0.)
+          DO k = 1,klev
+             dt_dwn(:,k)= dt_dwn(:,k)+ &
+                  ok_wk_lsp(:)*(d_t_eva(:,k)+d_t_lsc(:,k))/dtime
+             dq_dwn(:,k)= dq_dwn(:,k)+ &
+                  ok_wk_lsp(:)*(d_q_eva(:,k)+d_q_lsc(:,k))/dtime
+          ENDDO
+       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-\`a-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
+       call calWAKE (paprs,pplay,dtime &
+            ,t_seri,q_seri,omega &
+            ,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, t_undi,q_undi &
+            ,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)
+       !
+       !-----------------------------------------------------------------------
+       ! ajout des tendances des poches froides
+       ! Faire rapidement disparaitre l'ancien dt_wake pour garder un d_t_wake
+       ! coherent avec les autres d_t_...
+       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,dqi0,paprs,'wake', &
+            abortphy,flag_inhib_tend)
+       !------------------------------------------------------------------------
+
+    endif  ! (iflag_wake>=1)
+    !
+    !===================================================================
+    !JYG
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after wake'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+    END IF
+
+    !      print*,'apres callwake iflag_cld_th=', iflag_cld_th
+    !
+    !===================================================================
+    ! Convection seche (thermiques ou ajustement)
+    !===================================================================
+    !
+    call stratocu_if(klon,klev,pctsrf,paprs, pplay,t_seri &
+         ,seuil_inversion,weak_inversion,dthmin)
+
+
+
+    d_t_ajsb(:,:)=0.
+    d_q_ajsb(:,:)=0.
+    d_t_ajs(:,:)=0.
+    d_u_ajs(:,:)=0.
+    d_v_ajs(:,:)=0.
+    d_q_ajs(:,:)=0.
+    clwcon0th(:,:)=0.
+    !
+    !      fm_therm(:,:)=0.
+    !      entr_therm(:,:)=0.
+    !      detr_therm(:,:)=0.
+    !
+    IF(prt_level>9)WRITE(lunout,*) &
+         'AVANT LA CONVECTION SECHE , iflag_thermals=' &
+         ,iflag_thermals,'   nsplit_thermals=',nsplit_thermals
+    if(iflag_thermals<0) then
+       !  Rien
+       !  ====
+       IF(prt_level>9)WRITE(lunout,*)'pas de convection seche'
+
+
+    else
+
+       !  Thermiques
+       !  ==========
+       IF(prt_level>9)WRITE(lunout,*)'JUSTE AVANT , iflag_thermals=' &
+            ,iflag_thermals,'   nsplit_thermals=',nsplit_thermals
+
+
+       !cc nrlmd le 10/04/2012
+       DO k=1,klev+1
+          DO i=1,klon
+             pbl_tke_input(i,k,is_oce)=pbl_tke(i,k,is_oce)
+             pbl_tke_input(i,k,is_ter)=pbl_tke(i,k,is_ter)
+             pbl_tke_input(i,k,is_lic)=pbl_tke(i,k,is_lic)
+             pbl_tke_input(i,k,is_sic)=pbl_tke(i,k,is_sic)
+          ENDDO
+       ENDDO
+       !cc fin nrlmd le 10/04/2012
+
+       if (iflag_thermals>=1) then
+          !jyg<
+          IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+             !  Appel des thermiques avec les profils exterieurs aux poches
+             DO k=1,klev
+                DO i=1,klon
+                   t_therm(i,k) = t_seri(i,k) - wake_s(i)*wake_deltat(i,k)
+                   q_therm(i,k) = q_seri(i,k) - wake_s(i)*wake_deltaq(i,k)
+                   u_therm(i,k) = u_seri(i,k)
+                   v_therm(i,k) = v_seri(i,k)
+                ENDDO
+             ENDDO
+          ELSE
+             !  Appel des thermiques avec les profils moyens
+             DO k=1,klev
+                DO i=1,klon
+                   t_therm(i,k) = t_seri(i,k)
+                   q_therm(i,k) = q_seri(i,k)
+                   u_therm(i,k) = u_seri(i,k)
+                   v_therm(i,k) = v_seri(i,k)
+                ENDDO
+             ENDDO
+          ENDIF
+          !>jyg
+          call calltherm(pdtphys &
+               ,pplay,paprs,pphi,weak_inversion &
+                        ! ,u_seri,v_seri,t_seri,q_seri,zqsat,debut & !jyg
+               ,u_therm,v_therm,t_therm,q_therm,zqsat,debut &  !jyg
+               ,d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs &
+               ,fm_therm,entr_therm,detr_therm &
+               ,zqasc,clwcon0th,lmax_th,ratqscth &
+               ,ratqsdiff,zqsatth &
+                                !on rajoute ale et alp, et les
+                                !caracteristiques de la couche alim
+               ,Ale_bl,Alp_bl,lalim_conv,wght_th, zmax0, f0, zw2,fraca &
+               ,ztv,zpspsk,ztla,zthl &
+                                !cc nrlmd le 10/04/2012
+               ,pbl_tke_input,pctsrf,omega,cell_area &
+               ,zlcl_th,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
+               ,n2,s2,ale_bl_stat &
+               ,therm_tke_max,env_tke_max &
+               ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
+               ,alp_bl_conv,alp_bl_stat &
+                                !cc fin nrlmd le 10/04/2012
+               ,zqla,ztva )
+          !
+          !jyg<
+          IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+             !  Si les thermiques ne sont presents que hors des
+             !  poches, la tendance moyenne associ\'ee doit etre
+             !  multipliee par la fraction surfacique qu'ils couvrent.
+             DO k=1,klev
+                DO i=1,klon
+                   !
+                   wake_deltat(i,k) = wake_deltat(i,k) - d_t_ajs(i,k)
+                   wake_deltaq(i,k) = wake_deltaq(i,k) - d_q_ajs(i,k)
+                   !
+                   !!!t_seri(i,k) = t_therm(i,k) + wake_s(i)*wake_deltat(i,k)
+                   !!!q_seri(i,k) = q_therm(i,k) + wake_s(i)*wake_deltaq(i,k)
+                   !
+                   d_u_ajs(i,k) = d_u_ajs(i,k)*(1.-wake_s(i)) 
+                   d_v_ajs(i,k) = d_v_ajs(i,k)*(1.-wake_s(i)) 
+                   d_t_ajs(i,k) = d_t_ajs(i,k)*(1.-wake_s(i)) 
+                   d_q_ajs(i,k) = d_q_ajs(i,k)*(1.-wake_s(i)) 
+                   !
+                ENDDO
+             ENDDO
+!!!          ELSE
+!!!             DO k=1,klev
+!!!                DO i=1,klon
+!!!                   t_seri(i,k) = t_therm(i,k)
+!!!                   q_seri(i,k) = q_therm(i,k)
+!!!                ENDDO
+!!!             ENDDO
+          ENDIF
+          !
+          CALL add_phys_tend(d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs,  &
+                             dql0,dqi0,paprs,'thermals', abortphy,flag_inhib_tend)
+          !
+          !>jyg
+!jyg<
+!
+          CALL alpale_th( dtime, lmax_th, t_seri, cell_area,  &
+                          cin, s2, n2,  &
+                          ale_bl_trig, ale_bl_stat, ale_bl,  &
+                          alp_bl, alp_bl_stat, &
+                          proba_notrig, random_notrig)
+
+          ! ------------------------------------------------------------------
+          ! Transport de la TKE par les panaches thermiques.
+          ! FH : 2010/02/01
+          !     if (iflag_pbl.eq.10) then
+          !     call thermcell_dtke(klon,klev,nbsrf,pdtphys,fm_therm,entr_therm,
+          !    s           rg,paprs,pbl_tke)
+          !     endif
+          ! -------------------------------------------------------------------
+
+          do i=1,klon
+             !           zmax_th(i)=pphi(i,lmax_th(i))/rg
+             !CR:04/05/12:correction calcul zmax
+             zmax_th(i)=zmax0(i) 
+          enddo
+
+       endif
+
+
+       !  Ajustement sec
+       !  ==============
+
+       ! Dans le cas o\`u on active les thermiques, on fait partir l'ajustement
+       ! a partir du sommet des thermiques.
+       ! Dans le cas contraire, on demarre au niveau 1.
+
+       if (iflag_thermals>=13.or.iflag_thermals<=0) then
+
+          if(iflag_thermals.eq.0) then
+             IF(prt_level>9)WRITE(lunout,*)'ajsec'
+             limbas(:)=1
+          else
+             limbas(:)=lmax_th(:)
+          endif
+
+          ! Attention : le call ajsec_convV2 n'est maintenu que momentanneement
+          ! pour des test de convergence numerique.
+          ! Le nouveau ajsec est a priori mieux, meme pour le cas 
+          ! iflag_thermals = 0 (l'ancienne version peut faire des tendances
+          ! non nulles numeriquement pour des mailles non concernees.
+
+          if (iflag_thermals==0) then
+             ! Calling adjustment alone (but not the thermal plume model)
+             CALL ajsec_convV2(paprs, pplay, t_seri,q_seri &
+                  , d_t_ajsb, d_q_ajsb)
+          else if (iflag_thermals>0) then
+             ! Calling adjustment above the top of thermal plumes
+             CALL ajsec(paprs, pplay, t_seri,q_seri,limbas &
+                  , d_t_ajsb, d_q_ajsb)
+          endif
+
+          !--------------------------------------------------------------------
+          ! ajout des tendances de l'ajustement sec ou des thermiques
+          CALL add_phys_tend(du0,dv0,d_t_ajsb,d_q_ajsb,dql0,dqi0,paprs, &
+               'ajsb',abortphy,flag_inhib_tend)
+          d_t_ajs(:,:)=d_t_ajs(:,:)+d_t_ajsb(:,:)
+          d_q_ajs(:,:)=d_q_ajs(:,:)+d_q_ajsb(:,:)
+
+          !---------------------------------------------------------------------
+
+       endif
+
+    endif
+    !
+    !===================================================================
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after dry_adjust'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+    END IF
+
+
+    !-------------------------------------------------------------------------
+    ! Computation of ratqs, the width (normalized) of the subrid scale 
+    ! water distribution
+    CALL  calcratqs(klon,klev,prt_level,lunout,        &
+         iflag_ratqs,iflag_con,iflag_cld_th,pdtphys,  &
+         ratqsbas,ratqshaut,ratqsp0, ratqsdp, &
+         tau_ratqs,fact_cldcon,   &
+         ptconv,ptconvth,clwcon0th, rnebcon0th,     &
+         paprs,pplay,q_seri,zqsat,fm_therm, &
+         ratqs,ratqsc)
+
+
+    !
+    ! Appeler le processus de condensation a grande echelle
+    ! et le processus de precipitation
+    !-------------------------------------------------------------------------
+    IF (prt_level .GE.10) THEN
+       print *,'itap, ->fisrtilp ',itap
+    ENDIF
+    !
+    CALL fisrtilp(dtime,paprs,pplay, &
+         t_seri, q_seri,ptconv,ratqs, &
+         d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, cldliq, &
+         rain_lsc, snow_lsc, &
+         pfrac_impa, pfrac_nucl, pfrac_1nucl, &
+         frac_impa, frac_nucl, beta_prec_fisrt, &
+         prfl, psfl, rhcl,  &
+         zqasc, fraca,ztv,zpspsk,ztla,zthl,iflag_cld_th, &
+         iflag_ice_thermo)
+    !
+    WHERE (rain_lsc < 0) rain_lsc = 0.
+    WHERE (snow_lsc < 0) snow_lsc = 0.
+
+    CALL add_phys_tend(du0,dv0,d_t_lsc,d_q_lsc,d_ql_lsc,d_qi_lsc,paprs, &
+         'lsc',abortphy,flag_inhib_tend)
+    rain_num(:)=0.
+    DO k = 1, klev  ! re-evaporation de l'eau liquide nuageuse
+       DO i = 1, klon
+          IF (ql_seri(i,k)>oliqmax) THEN
+             rain_num(i)=rain_num(i)+(ql_seri(i,k)-oliqmax)*zmasse(i,k)/pdtphys
+             ql_seri(i,k)=oliqmax
+          ENDIF
+       ENDDO
+    ENDDO
+
+    !---------------------------------------------------------------------------
+    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
+    ENDDO
+    IF (check) THEN
+       za = qcheck(klon,klev,paprs,q_seri,ql_seri,cell_area)
+       WRITE(lunout,*)"apresilp=", za
+       zx_t = 0.0
+       za = 0.0
+       DO i = 1, klon
+          za = za + cell_area(i)/REAL(klon)
+          zx_t = zx_t + (rain_lsc(i) &
+               + snow_lsc(i))*cell_area(i)/REAL(klon)
+       ENDDO
+       zx_t = zx_t/za*dtime
+       WRITE(lunout,*)"Precip=", zx_t
+    ENDIF
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after fisrt'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, rain_lsc, snow_lsc, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+    END IF
+
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    !
+    !-------------------------------------------------------------------
+    !  PRESCRIPTION DES NUAGES POUR LE RAYONNEMENT
+    !-------------------------------------------------------------------
+
+    ! 1. NUAGES CONVECTIFS
+    !
+    !IM cf FH
+    !     IF (iflag_cld_th.eq.-1) THEN ! seulement pour Tiedtke
+    IF (iflag_cld_th.le.-1) THEN ! seulement pour Tiedtke
+       snow_tiedtke=0.
+       !     print*,'avant calcul de la pseudo precip '
+       !     print*,'iflag_cld_th',iflag_cld_th
+       if (iflag_cld_th.eq.-1) then
+          rain_tiedtke=rain_con
+       else
+          !       print*,'calcul de la pseudo precip '
+          rain_tiedtke=0.
+          !         print*,'calcul de la pseudo precip 0'
+          do k=1,klev
+             do i=1,klon
+                if (d_q_con(i,k).lt.0.) then
+                   rain_tiedtke(i)=rain_tiedtke(i)-d_q_con(i,k)/pdtphys &
+                        *(paprs(i,k)-paprs(i,k+1))/rg
+                endif
+             enddo
+          enddo
+       endif
+       !
+       !     call dump2d(iim,jjm,rain_tiedtke(2:klon-1),'PSEUDO PRECIP ')
+       !
+
+       ! Nuages diagnostiques pour Tiedtke
+       CALL diagcld1(paprs,pplay, &
+                                !IM cf FH. rain_con,snow_con,ibas_con,itop_con,
+            rain_tiedtke,snow_tiedtke,ibas_con,itop_con, &
+            diafra,dialiq)
+       DO k = 1, klev
+          DO i = 1, klon
+             IF (diafra(i,k).GT.cldfra(i,k)) THEN
+                cldliq(i,k) = dialiq(i,k)
+                cldfra(i,k) = diafra(i,k)
+             ENDIF
+          ENDDO
+       ENDDO
+
+    ELSE IF (iflag_cld_th.ge.3) THEN
+       !  On prend pour les nuages convectifs le max du calcul de la
+       !  convection et du calcul du pas de temps precedent diminue d'un facteur
+       !  facttemps
+       facteur = pdtphys *facttemps
+       do k=1,klev
+          do i=1,klon
+             rnebcon(i,k)=rnebcon(i,k)*facteur
+             if (rnebcon0(i,k)*clwcon0(i,k).gt.rnebcon(i,k)*clwcon(i,k)) &
+                  then
+                rnebcon(i,k)=rnebcon0(i,k)
+                clwcon(i,k)=clwcon0(i,k)
+             endif
+          enddo
+       enddo
+
+       !   On prend la somme des fractions nuageuses et des contenus en eau
+
+       if (iflag_cld_th>=5) then
+
+          do k=1,klev
+             ptconvth(:,k)=fm_therm(:,k+1)>0.
+          enddo
+
+          if (iflag_coupl==4) then
+
+             ! Dans le cas iflag_coupl==4, on prend la somme des convertures
+             ! convectives et lsc dans la partie des thermiques
+             ! Le controle par iflag_coupl est peut etre provisoire.
+             do k=1,klev
+                do i=1,klon
+                   if (ptconv(i,k).and.ptconvth(i,k)) then
+                      cldliq(i,k)=cldliq(i,k)+rnebcon(i,k)*clwcon(i,k)
+                      cldfra(i,k)=min(cldfra(i,k)+rnebcon(i,k),1.)
+                   else if (ptconv(i,k)) then
+                      cldfra(i,k)=rnebcon(i,k)
+                      cldliq(i,k)=rnebcon(i,k)*clwcon(i,k)
+                   endif
+                enddo
+             enddo
+
+          else if (iflag_coupl==5) then
+             do k=1,klev
+                do i=1,klon
+                   cldfra(i,k)=min(cldfra(i,k)+rnebcon(i,k),1.)
+                   cldliq(i,k)=cldliq(i,k)+rnebcon(i,k)*clwcon(i,k)
+                enddo
+             enddo
+
+          else
+
+             ! Si on est sur un point touche par la convection
+             ! profonde et pas par les thermiques, on prend la
+             ! couverture nuageuse et l'eau nuageuse de la convection
+             ! profonde.
+
+             !IM/FH: 2011/02/23 
+             ! definition des points sur lesquels ls thermiques sont actifs
+
+             do k=1,klev
+                do i=1,klon
+                   if (ptconv(i,k).and. .not. ptconvth(i,k)) then
+                      cldfra(i,k)=rnebcon(i,k)
+                      cldliq(i,k)=rnebcon(i,k)*clwcon(i,k)
+                   endif
+                enddo
+             enddo
+
+          endif
+
+       else
+
+          ! Ancienne version
+          cldfra(:,:)=min(max(cldfra(:,:),rnebcon(:,:)),1.)
+          cldliq(:,:)=cldliq(:,:)+rnebcon(:,:)*clwcon(:,:)
+       endif
+
+    ENDIF
+
+    !     plulsc(:)=0.
+    !     do k=1,klev,-1
+    !        do i=1,klon
+    !              zzz=prfl(:,k)+psfl(:,k)
+    !           if (.not.ptconvth.zzz.gt.0.)
+    !        enddo prfl, psfl,
+    !     enddo
+    !
+    ! 2. NUAGES STARTIFORMES
+    !
+    IF (ok_stratus) THEN
+       CALL diagcld2(paprs,pplay,t_seri,q_seri, diafra,dialiq)
+       DO k = 1, klev
+          DO i = 1, klon
+             IF (diafra(i,k).GT.cldfra(i,k)) THEN
+                cldliq(i,k) = dialiq(i,k)
+                cldfra(i,k) = diafra(i,k)
+             ENDIF
+          ENDDO
+       ENDDO
+    ENDIF
+    !
+    ! Precipitation totale
+    !
+    DO i = 1, klon
+       rain_fall(i) = rain_con(i) + rain_lsc(i)
+       snow_fall(i) = snow_con(i) + snow_lsc(i)
+    ENDDO
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit="after diagcld"
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+    END IF
+    !
+    ! Calculer l'humidite relative pour diagnostique
+    !
+    DO k = 1, klev
+       DO i = 1, klon
+          zx_t = t_seri(i,k)
+          IF (thermcep) THEN
+             !!           if (iflag_ice_thermo.eq.0) then                 !jyg
+             zdelta = MAX(0.,SIGN(1.,rtt-zx_t))
+             !!           else                                            !jyg
+             !!           zdelta = MAX(0.,SIGN(1.,t_glace_min-zx_t))      !jyg
+             !!           endif                                           !jyg
+             zx_qs  = r2es * FOEEW(zx_t,zdelta)/pplay(i,k)
+             zx_qs  = MIN(0.5,zx_qs)
+             zcor   = 1./(1.-retv*zx_qs)
+             zx_qs  = zx_qs*zcor
+          ELSE
+             !!           IF (zx_t.LT.t_coup) THEN             !jyg
+             IF (zx_t.LT.rtt) THEN                  !jyg
+                zx_qs = qsats(zx_t)/pplay(i,k)
+             ELSE
+                zx_qs = qsatl(zx_t)/pplay(i,k)
+             ENDIF
+          ENDIF
+          zx_rh(i,k) = q_seri(i,k)/zx_qs
+          zqsat(i,k)=zx_qs
+       ENDDO
+    ENDDO
+
+    !IM Calcul temp.potentielle a 2m (tpot) et temp. potentielle 
+    !   equivalente a 2m (tpote) pour diagnostique
+    !
+    DO i = 1, klon
+       tpot(i)=zt2m(i)*(100000./paprs(i,1))**RKAPPA
+       IF (thermcep) THEN
+          IF(zt2m(i).LT.RTT) then
+             Lheat=RLSTT
+          ELSE
+             Lheat=RLVTT
+          ENDIF
+       ELSE
+          IF (zt2m(i).LT.RTT) THEN
+             Lheat=RLSTT
+          ELSE
+             Lheat=RLVTT
+          ENDIF
+       ENDIF
+       tpote(i) = tpot(i)*      &
+            EXP((Lheat *qsat2m(i))/(RCPD*zt2m(i)))
+    ENDDO
+
+    IF (type_trac == 'inca') THEN
+#ifdef INCA
+       CALL VTe(VTphysiq)
+       CALL VTb(VTinca)
+       calday = REAL(days_elapsed + 1) + jH_cur
+
+       call chemtime(itap+itau_phy-1, date0, dtime, itap)
+       IF (config_inca == 'aero' .OR. config_inca == 'aeNP') THEN
+          CALL AEROSOL_METEO_CALC( &
+               calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs, &
+               prfl,psfl,pctsrf,cell_area, &
+               latitude_deg,longitude_deg,u10m,v10m)
+       END IF
+
+       zxsnow_dummy(:) = 0.0
+
+       CALL chemhook_begin (calday, &
+            days_elapsed+1, &
+            jH_cur, &
+            pctsrf(1,1), &
+            latitude_deg, &
+            longitude_deg, &
+            cell_area, &
+            paprs, &
+            pplay, &
+            coefh(1:klon,1:klev,is_ave), &
+            pphi, &
+            t_seri, &
+            u, &
+            v, &
+            wo(:, :, 1), &
+            q_seri, &
+            zxtsol, &
+            zxsnow_dummy, &
+            solsw, &
+            albsol1, &
+            rain_fall, &
+            snow_fall, &
+            itop_con, &
+            ibas_con, &
+            cldfra, &
+            nbp_lon, &
+            nbp_lat-1, &
+            tr_seri, &
+            ftsol, &
+            paprs, &
+            cdragh, &
+            cdragm, &
+            pctsrf, &
+            pdtphys, &
+            itap)
+
+       CALL VTe(VTinca)
+       CALL VTb(VTphysiq)
+#endif 
+    END IF !type_trac = inca
+
+
+    !
+    ! Appeler le rayonnement mais calculer tout d'abord l'albedo du sol.
+    !
+    IF (MOD(itaprad,radpas).EQ.0) THEN
+
+       !
+       !jq - introduce the aerosol direct and first indirect radiative forcings
+       !jq - Johannes Quaas, 27/11/2003 (quaas@lmd.jussieu.fr)
+       IF (flag_aerosol .gt. 0) THEN
+          IF (iflag_rrtm .EQ. 0) THEN !--old radiation
+             IF (.NOT. aerosol_couple) THEN
+                !
+                CALL readaerosol_optic( &
+                     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, piz_aero, cg_aero,  &
+                     tausum_aero, tau3d_aero)
+             ENDIF
+          ELSE                       ! RRTM radiation
+             IF (aerosol_couple .AND. config_inca == 'aero' ) THEN
+                abort_message='config_inca=aero et rrtm=1 impossible'
+                call abort_physic(modname,abort_message,1)
+             ELSE
+                !
+#ifdef CPP_RRTM
+                IF (NSW.EQ.6) THEN
+                   !--new aerosol properties
+                   !
+                   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 IF (NSW.EQ.2) THEN 
+                   !--for now we use the old aerosol properties
+                   !
+                   CALL readaerosol_optic( &
+                        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, piz_aero, cg_aero,  &
+                        tausum_aero, tau3d_aero)
+                   !
+                   !--natural aerosols
+                   tau_aero_sw_rrtm(:,:,1,:)=tau_aero(:,:,3,:)
+                   piz_aero_sw_rrtm(:,:,1,:)=piz_aero(:,:,3,:)
+                   cg_aero_sw_rrtm (:,:,1,:)=cg_aero (:,:,3,:)
+                   !--all aerosols
+                   tau_aero_sw_rrtm(:,:,2,:)=tau_aero(:,:,2,:)
+                   piz_aero_sw_rrtm(:,:,2,:)=piz_aero(:,:,2,:)
+                   cg_aero_sw_rrtm (:,:,2,:)=cg_aero (:,:,2,:)
+                ELSE
+                   abort_message='Only NSW=2 or 6 are possible with ' &
+                        // 'aerosols and iflag_rrtm=1'
+                   call abort_physic(modname,abort_message,1)
+                ENDIF
+
+                !--call LW optical properties for tropospheric aerosols 
+                !--only works for INCA aerosol (aerosol_couple = TRUE)
+                CALL aeropt_lw_rrtm(aerosol_couple,paprs,tr_seri)
+                !
+#else
+                abort_message='You should compile with -rrtm if running ' &
+                     // 'with iflag_rrtm=1'
+                call abort_physic(modname,abort_message,1)
+#endif
+                !
+             ENDIF
+          ENDIF
+       ELSE
+          tausum_aero(:,:,:) = 0.
+          IF (iflag_rrtm .EQ. 0) THEN !--old radiation
+             tau_aero(:,:,:,:) = 1.e-15
+             piz_aero(:,:,:,:) = 1.
+             cg_aero(:,:,:,:)  = 0.
+          ELSE
+             tau_aero_sw_rrtm(:,:,:,:) = 1.e-15
+             tau_aero_lw_rrtm(:,:,:,:) = 1.e-15
+             piz_aero_sw_rrtm(:,:,:,:) = 1.0
+             cg_aero_sw_rrtm(:,:,:,:)  = 0.0
+          ENDIF
+       ENDIF
+       !
+       !--STRAT AEROSOL
+       !--updates tausum_aero,tau_aero,piz_aero,cg_aero
+       IF (flag_aerosol_strat.GT.0) THEN
+          IF (prt_level .GE.10) THEN
+             PRINT *,'appel a readaerosolstrat', mth_cur
+          ENDIF
+          IF (iflag_rrtm.EQ.0) THEN
+           IF (flag_aerosol_strat.EQ.1) THEN
+             CALL readaerosolstrato(debut)
+           ELSE
+             abort_message='flag_aerosol_strat must equal 1 for rrtm=0'
+             CALL abort_physic(modname,abort_message,1)
+           ENDIF
+          ELSE
+#ifdef CPP_RRTM
+            IF (flag_aerosol_strat.EQ.1) THEN
+             CALL readaerosolstrato1_rrtm(debut)
+            ELSEIF (flag_aerosol_strat.EQ.2) THEN
+             CALL stratosphere_mask(t_seri, pplay, latitude_deg)
+             CALL readaerosolstrato2_rrtm(debut)
+            ELSE
+             abort_message='flag_aerosol_strat must equal 1 or 2 for rrtm=1'
+             CALL abort_physic(modname,abort_message,1)
+            ENDIF
+#else
+             abort_message='You should compile with -rrtm if running ' &
+                  // 'with iflag_rrtm=1'
+             CALL abort_physic(modname,abort_message,1)
+#endif
+          ENDIF
+       ENDIF
+       !--fin STRAT AEROSOL
+       !     
+
+       ! Calculer les parametres optiques des nuages et quelques
+       ! parametres pour diagnostiques:
+       !
+       IF (aerosol_couple.AND.config_inca=='aero') THEN 
+          mass_solu_aero(:,:)    = ccm(:,:,1) 
+          mass_solu_aero_pi(:,:) = ccm(:,:,2) 
+       END IF
+
+       IF (ok_newmicro) then
+          IF (iflag_rrtm.NE.0) THEN 
+#ifdef CPP_RRTM
+             IF (ok_cdnc.AND.NRADLP.NE.3) THEN
+             abort_message='RRTM choix incoherent NRADLP doit etre egal a 3 ' &
+                  // 'pour ok_cdnc' 
+             CALL abort_physic(modname,abort_message,1)
+             ENDIF
+#else
+
+             abort_message='You should compile with -rrtm if running with '//'iflag_rrtm=1'
+             CALL abort_physic(modname,abort_message,1)
+#endif
+          ENDIF
+          CALL newmicro (ok_cdnc, bl95_b0, bl95_b1, &
+               paprs, pplay, t_seri, cldliq, cldfra, &
+               cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, &
+               flwp, fiwp, flwc, fiwc, &
+               mass_solu_aero, mass_solu_aero_pi, &
+               cldtaupi, re, fl, ref_liq, ref_ice, &
+               ref_liq_pi, ref_ice_pi)
+       ELSE
+          CALL nuage (paprs, pplay, &
+               t_seri, cldliq, cldfra, cldtau, cldemi, &
+               cldh, cldl, cldm, cldt, cldq, &
+               ok_aie, &
+               mass_solu_aero, mass_solu_aero_pi, &
+               bl95_b0, bl95_b1, &
+               cldtaupi, re, fl)
+       ENDIF
+       !
+       !IM betaCRF
+       !
+       cldtaurad   = cldtau
+       cldtaupirad = cldtaupi
+       cldemirad   = cldemi
+       cldfrarad   = cldfra
+
+       !
+       IF (lon1_beta.EQ.-180..AND.lon2_beta.EQ.180..AND. &
+           lat1_beta.EQ.90..AND.lat2_beta.EQ.-90.) THEN
+          !
+          ! global
+          !
+          DO k=1, klev
+             DO i=1, klon
+                IF (pplay(i,k).GE.pfree) THEN
+                   beta(i,k) = beta_pbl
+                ELSE
+                   beta(i,k) = beta_free
+                ENDIF
+                IF (mskocean_beta) THEN
+                   beta(i,k) = beta(i,k) * pctsrf(i,is_oce)
+                ENDIF
+                cldtaurad(i,k)   = cldtau(i,k) * beta(i,k)
+                cldtaupirad(i,k) = cldtaupi(i,k) * beta(i,k)
+                cldemirad(i,k)   = cldemi(i,k) * beta(i,k)
+                cldfrarad(i,k)   = cldfra(i,k) * beta(i,k)
+             ENDDO
+          ENDDO
+          !
+       ELSE
+          !
+          ! regional
+          !
+          DO k=1, klev
+             DO i=1,klon
+                !
+                IF (longitude_deg(i).ge.lon1_beta.AND. &
+                    longitude_deg(i).le.lon2_beta.AND. &
+                    latitude_deg(i).le.lat1_beta.AND.  &
+                    latitude_deg(i).ge.lat2_beta) THEN
+                   IF (pplay(i,k).GE.pfree) THEN
+                      beta(i,k) = beta_pbl
+                   ELSE
+                      beta(i,k) = beta_free
+                   ENDIF
+                   IF (mskocean_beta) THEN
+                      beta(i,k) = beta(i,k) * pctsrf(i,is_oce)
+                   ENDIF
+                   cldtaurad(i,k)   = cldtau(i,k) * beta(i,k)
+                   cldtaupirad(i,k) = cldtaupi(i,k) * beta(i,k)
+                   cldemirad(i,k)   = cldemi(i,k) * beta(i,k)
+                   cldfrarad(i,k)   = cldfra(i,k) * beta(i,k)
+                ENDIF
+             !
+             ENDDO
+          ENDDO
+       !
+       ENDIF
+
+       !lecture de la chlorophylle pour le nouvel albedo de Sunghye Baek 
+       IF (ok_chlorophyll) THEN
+          print*,"-- reading chlorophyll"
+          CALL readchlorophyll(debut)
+       ENDIF
+
+       !
+       !jq - introduce the aerosol direct and first indirect radiative forcings
+       !jq - Johannes Quaas, 27/11/2003 (quaas@lmd.jussieu.fr)
+       IF (flag_aerosol .gt. 0) THEN
+          IF (iflag_rrtm .EQ. 0) THEN !--old radiation
+             IF (.NOT. aerosol_couple) THEN
+                !
+                CALL readaerosol_optic( &
+                     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, piz_aero, cg_aero,  &
+                     tausum_aero, tau3d_aero)
+             ENDIF
+          ELSE                       ! RRTM radiation
+             IF (aerosol_couple .AND. config_inca == 'aero' ) THEN
+                abort_message='config_inca=aero et rrtm=1 impossible'
+                call abort_physic(modname,abort_message,1)
+             ELSE
+                !
+#ifdef CPP_RRTM
+                IF (NSW.EQ.6) THEN
+                   !--new aerosol properties
+                   !
+                   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 IF (NSW.EQ.2) THEN 
+                   !--for now we use the old aerosol properties
+                   !
+                   CALL readaerosol_optic( &
+                        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, piz_aero, cg_aero,  &
+                        tausum_aero, tau3d_aero)
+                   !
+                   !--natural aerosols
+                   tau_aero_sw_rrtm(:,:,1,:)=tau_aero(:,:,3,:)
+                   piz_aero_sw_rrtm(:,:,1,:)=piz_aero(:,:,3,:)
+                   cg_aero_sw_rrtm (:,:,1,:)=cg_aero (:,:,3,:)
+                   !--all aerosols
+                   tau_aero_sw_rrtm(:,:,2,:)=tau_aero(:,:,2,:)
+                   piz_aero_sw_rrtm(:,:,2,:)=piz_aero(:,:,2,:)
+                   cg_aero_sw_rrtm (:,:,2,:)=cg_aero (:,:,2,:)
+                ELSE
+                   abort_message='Only NSW=2 or 6 are possible with ' &
+                        // 'aerosols and iflag_rrtm=1'
+                   call abort_physic(modname,abort_message,1)
+                ENDIF
+
+                !--call LW optical properties for tropospheric aerosols 
+                !--only works for INCA aerosol (aerosol_couple = TRUE)
+                CALL aeropt_lw_rrtm(aerosol_couple,paprs,tr_seri)
+                !
+#else
+                abort_message='You should compile with -rrtm if running ' &
+                     // 'with iflag_rrtm=1'
+                call abort_physic(modname,abort_message,1)
+#endif
+                !
+             ENDIF
+          ENDIF
+       ELSE
+          tausum_aero(:,:,:) = 0.
+          IF (iflag_rrtm .EQ. 0) THEN !--old radiation
+             tau_aero(:,:,:,:) = 1.e-15
+             piz_aero(:,:,:,:) = 1.
+             cg_aero(:,:,:,:)  = 0.
+          ELSE
+             tau_aero_sw_rrtm(:,:,:,:) = 1.e-15
+             tau_aero_lw_rrtm(:,:,:,:) = 1.e-15
+             piz_aero_sw_rrtm(:,:,:,:) = 1.0
+             cg_aero_sw_rrtm(:,:,:,:)  = 0.0
+          ENDIF
+       ENDIF
+       !
+       !--STRAT AEROSOL
+       !--updates tausum_aero,tau_aero,piz_aero,cg_aero
+       IF (flag_aerosol_strat.GT.0) THEN
+          IF (prt_level .GE.10) THEN
+             PRINT *,'appel a readaerosolstrat', mth_cur
+          ENDIF
+          IF (iflag_rrtm.EQ.0) THEN
+           IF (flag_aerosol_strat.EQ.1) THEN
+             CALL readaerosolstrato(debut)
+           ELSE
+             abort_message='flag_aerosol_strat must equal 1 for rrtm=0'
+             call abort_physic(modname,abort_message,1)
+           ENDIF
+          ELSE
+#ifdef CPP_RRTM
+            IF (flag_aerosol_strat.EQ.1) THEN
+             CALL readaerosolstrato1_rrtm(debut)
+            ELSEIF (flag_aerosol_strat.EQ.2) THEN
+             CALL stratosphere_mask(t_seri, pplay, latitude_deg)
+             CALL readaerosolstrato2_rrtm(debut)
+            ELSE
+             abort_message='flag_aerosol_strat must equal 1 or 2 for rrtm=1'
+             call abort_physic(modname,abort_message,1)
+            ENDIF
+#else
+             abort_message='You should compile with -rrtm if running ' &
+                  // 'with iflag_rrtm=1'
+             call abort_physic(modname,abort_message,1)
+#endif
+          ENDIF
+       ENDIF
+       !--fin STRAT AEROSOL
+
+!--if ok_suntime_rrtm we use ancillay data for RSUN 
+!--previous values are therefore overwritten
+!--this is needed for CMIP6 runs
+!--and only possible for new radiation scheme
+       IF (iflag_rrtm.EQ.1.AND.ok_suntime_rrtm) THEN 
+#ifdef CPP_RRTM
+         CALL read_rsun_rrtm(debut)
+#endif
+       ENDIF
+
+       if (mydebug) then
+          call writefield_phy('u_seri',u_seri,nbp_lev)
+          call writefield_phy('v_seri',v_seri,nbp_lev)
+          call writefield_phy('t_seri',t_seri,nbp_lev)
+          call writefield_phy('q_seri',q_seri,nbp_lev)
+       endif
+
+       !
+       !sonia : If Iflag_radia >=2, pertubation of some variables
+       !input to radiation (DICE)
+       !
+       IF (iflag_radia .ge. 2) THEN
+          zsav_tsol (:) = zxtsol(:)
+          call perturb_radlwsw(zxtsol,iflag_radia)
+       ENDIF
+
+       IF (aerosol_couple.AND.config_inca=='aero') THEN 
+#ifdef INCA
+          CALL radlwsw_inca  &
+               (kdlon,kflev,dist, rmu0, fract, solaire, &
+               paprs, pplay,zxtsol,albsol1, albsol2, t_seri,q_seri, &
+               size(wo,3), wo(:, :, 1), &
+               cldfrarad, cldemirad, cldtaurad, &
+               heat,heat0,cool,cool0,albpla, &
+               topsw,toplw,solsw,sollw, &
+               sollwdown, &
+               topsw0,toplw0,solsw0,sollw0, &
+               lwdn0, lwdn, lwup0, lwup,  &
+               swdn0, swdn, swup0, swup, &
+               ok_ade, ok_aie, &
+               tau_aero, piz_aero, cg_aero, &
+               topswad_aero, solswad_aero, &
+               topswad0_aero, solswad0_aero, &
+               topsw_aero, topsw0_aero, &
+               solsw_aero, solsw0_aero, &
+               cldtaupirad, &
+               topswai_aero, solswai_aero)
+#endif
+       ELSE
+          !
+          !IM calcul radiatif pour le cas actuel
+          !
+          RCO2 = RCO2_act
+          RCH4 = RCH4_act
+          RN2O = RN2O_act
+          RCFC11 = RCFC11_act
+          RCFC12 = RCFC12_act
+          !
+          IF (prt_level .GE.10) THEN
+             print *,' ->radlwsw, number 1 '
+          ENDIF
+          !
+          CALL radlwsw &
+               (dist, rmu0, fract,  &
+                                !albedo SB >>>
+                                !      paprs, pplay,zxtsol,albsol1, albsol2,  &
+               paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif,  &
+                                !albedo SB <<<
+               t_seri,q_seri,wo, &
+               cldfrarad, cldemirad, cldtaurad, &
+               ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, flag_aerosol, &
+               flag_aerosol_strat, &
+               tau_aero, piz_aero, cg_aero, &
+               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, &
+               ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
+               heat,heat0,cool,cool0,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, &
+               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)
+
+          !--OB 30/05/2016
+          !--here we return swaero_diag to FALSE
+          !--and histdef will switch it back to TRUE if necessary
+          !--this is necessary to get the right swaero at first step
+          IF (debut) swaero_diag = .FALSE.
+          !
+          !IM 2eme calcul radiatif pour le cas perturbe ou au moins un
+          !IM des taux doit etre different du taux actuel
+          !IM Par defaut on a les taux perturbes egaux aux taux actuels
+          !
+          if (ok_4xCO2atm) then
+             if (RCO2_per.NE.RCO2_act.OR.RCH4_per.NE.RCH4_act.OR. &
+                  RN2O_per.NE.RN2O_act.OR.RCFC11_per.NE.RCFC11_act.OR. &
+                  RCFC12_per.NE.RCFC12_act) THEN
+                !
+                RCO2 = RCO2_per
+                RCH4 = RCH4_per
+                RN2O = RN2O_per
+                RCFC11 = RCFC11_per
+                RCFC12 = RCFC12_per
+                !
+                IF (prt_level .GE.10) THEN
+                   print *,' ->radlwsw, number 2 '
+                ENDIF
+                !
+                CALL radlwsw &
+                     (dist, rmu0, fract,  &
+                                !albedo SB >>>
+                                !      paprs, pplay,zxtsol,albsol1, albsol2,  &
+                     paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, & 
+                                !albedo SB <<<
+                     t_seri,q_seri,wo, &
+                     cldfra, cldemi, cldtau, &
+                     ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, flag_aerosol, &
+                     flag_aerosol_strat, &
+                     tau_aero, piz_aero, cg_aero, &
+                     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, &
+                     ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
+                     heatp,heat0p,coolp,cool0p,albplap, &
+                     topswp,toplwp,solswp,sollwp, &
+                     sollwdownp, &
+                     topsw0p,toplw0p,solsw0p,sollw0p, &
+                     lwdn0p, lwdnp, lwup0p, lwupp,  &
+                     swdn0p, swdnp, swup0p, swupp, &
+                     topswad_aerop, solswad_aerop, &
+                     topswai_aerop, solswai_aerop, &
+                     topswad0_aerop, solswad0_aerop, &
+                     topsw_aerop, topsw0_aerop, &
+                     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)
+             endif
+          endif
+          !
+       ENDIF ! aerosol_couple
+       itaprad = 0
+       !
+       !  If Iflag_radia >=2, reset pertubed variables
+       !
+       IF (iflag_radia .ge. 2) THEN
+          zxtsol(:) = zsav_tsol (:)
+       ENDIF
+    ENDIF ! MOD(itaprad,radpas)
+    itaprad = itaprad + 1
+
+    IF (iflag_radia.eq.0) THEN
+       IF (prt_level.ge.9) THEN
+          PRINT *,'--------------------------------------------------'
+          PRINT *,'>>>> ATTENTION rayonnement desactive pour ce cas'
+          PRINT *,'>>>>           heat et cool mis a zero '
+          PRINT *,'--------------------------------------------------'
+       END IF
+       heat=0.
+       cool=0.
+       sollw=0.   ! MPL 01032011
+       solsw=0.
+       radsol=0.
+       swup=0.    ! MPL 27102011 pour les fichiers AMMA_profiles et AMMA_scalars
+       swup0=0.
+       lwup=0.
+       lwup0=0.
+       lwdn=0.
+       lwdn0=0.
+    END IF
+
+    !
+    ! Calculer radsol a l'exterieur de radlwsw
+    ! pour prendre en compte le cycle diurne
+    ! recode par Olivier Boucher en sept 2015
+    !
+    radsol=solsw*swradcorr+sollw
+
+    if (ok_4xCO2atm) then
+       radsolp=solswp*swradcorr+sollwp
+    endif
+
+    !
+    ! Ajouter la tendance des rayonnements (tous les pas)
+    ! avec une correction pour le cycle diurne dans le SW
+    !
+
+    DO k=1, klev
+       d_t_swr(:,k)=swradcorr(:)*heat(:,k)*dtime/RDAY
+       d_t_sw0(:,k)=swradcorr(:)*heat0(:,k)*dtime/RDAY
+       d_t_lwr(:,k)=-cool(:,k)*dtime/RDAY
+       d_t_lw0(:,k)=-cool0(:,k)*dtime/RDAY
+    ENDDO
+
+    CALL add_phys_tend(du0,dv0,d_t_swr,dq0,dql0,dqi0,paprs,'SW',abortphy,flag_inhib_tend)
+    CALL add_phys_tend(du0,dv0,d_t_lwr,dq0,dql0,dqi0,paprs,'LW',abortphy,flag_inhib_tend)
+
+    !
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after rad'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , topsw, toplw, solsw, sollw, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+    END IF
+    !
+    !
+    ! Calculer l'hydrologie de la surface
+    !
+    !      CALL hydrol(dtime,pctsrf,rain_fall, snow_fall, zxevap,
+    !     .            agesno, ftsol,fqsurf,fsnow, ruis)
+    !
+
+    !
+    ! Calculer le bilan du sol et la derive de temperature (couplage)
+    !
+    DO i = 1, klon
+       !         bils(i) = radsol(i) - sens(i) - evap(i)*RLVTT
+       ! a la demande de JLD
+       bils(i) = radsol(i) - sens(i) + zxfluxlat(i)
+    ENDDO
+    !
+    !moddeblott(jan95)
+    ! Appeler le programme de parametrisation de l'orographie
+    ! a l'echelle sous-maille:
+    !
+    IF (prt_level .GE.10) THEN
+       print *,' call orography ? ', ok_orodr
+    ENDIF
+    !
+    IF (ok_orodr) THEN
+       !
+       !  selection des points pour lesquels le shema est actif:
+       igwd=0
+       DO i=1,klon
+          itest(i)=0
+          !        IF ((zstd(i).gt.10.0)) THEN
+          IF (((zpic(i)-zmea(i)).GT.100.).AND.(zstd(i).GT.10.0)) THEN
+             itest(i)=1
+             igwd=igwd+1
+             idx(igwd)=i
+          ENDIF
+       ENDDO
+       !        igwdim=MAX(1,igwd)
+       !
+       IF (ok_strato) THEN
+
+          CALL drag_noro_strato(klon,klev,dtime,paprs,pplay, &
+               zmea,zstd, zsig, zgam, zthe,zpic,zval, &
+               igwd,idx,itest, &
+               t_seri, u_seri, v_seri, &
+               zulow, zvlow, zustrdr, zvstrdr, &
+               d_t_oro, d_u_oro, d_v_oro)
+
+       ELSE
+          CALL drag_noro(klon,klev,dtime,paprs,pplay, &
+               zmea,zstd, zsig, zgam, zthe,zpic,zval, &
+               igwd,idx,itest, &
+               t_seri, u_seri, v_seri, &
+               zulow, zvlow, zustrdr, zvstrdr, &
+               d_t_oro, d_u_oro, d_v_oro)
+       ENDIF
+       !
+       !  ajout des tendances
+       !-----------------------------------------------------------------------
+       ! ajout des tendances de la trainee de l'orographie
+       CALL add_phys_tend(d_u_oro,d_v_oro,d_t_oro,dq0,dql0,dqi0,paprs,'oro', &
+            abortphy,flag_inhib_tend)
+       !----------------------------------------------------------------------
+       !
+    ENDIF ! fin de test sur ok_orodr
+    !
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    IF (ok_orolf) THEN
+       !
+       !  selection des points pour lesquels le shema est actif:
+       igwd=0
+       DO i=1,klon
+          itest(i)=0
+          IF ((zpic(i)-zmea(i)).GT.100.) THEN
+             itest(i)=1
+             igwd=igwd+1
+             idx(igwd)=i
+          ENDIF
+       ENDDO
+       !        igwdim=MAX(1,igwd)
+       !
+       IF (ok_strato) THEN
+
+          CALL lift_noro_strato(klon,klev,dtime,paprs,pplay, &
+               latitude_deg,zmea,zstd,zpic,zgam,zthe,zpic,zval, &
+               igwd,idx,itest, &
+               t_seri, u_seri, v_seri, &
+               zulow, zvlow, zustrli, zvstrli, &
+               d_t_lif, d_u_lif, d_v_lif               )
+
+       ELSE
+          CALL lift_noro(klon,klev,dtime,paprs,pplay, &
+               latitude_deg,zmea,zstd,zpic, &
+               itest, &
+               t_seri, u_seri, v_seri, &
+               zulow, zvlow, zustrli, zvstrli, &
+               d_t_lif, d_u_lif, d_v_lif)
+       ENDIF
+
+       ! ajout des tendances de la portance de l'orographie
+       CALL add_phys_tend(d_u_lif, d_v_lif, d_t_lif, dq0, dql0, dqi0, paprs, &
+            'lif', abortphy,flag_inhib_tend)
+    ENDIF ! fin de test sur ok_orolf
+
+    IF (ok_hines) then
+       !  HINES GWD PARAMETRIZATION
+       east_gwstress=0.
+       west_gwstress=0.
+       du_gwd_hines=0.
+       dv_gwd_hines=0.
+       CALL hines_gwd(klon, klev, dtime, paprs, pplay, latitude_deg, t_seri, &
+            u_seri, v_seri, zustr_gwd_hines, zvstr_gwd_hines, d_t_hin, &
+            du_gwd_hines, dv_gwd_hines)
+       zustr_gwd_hines=0.
+       zvstr_gwd_hines=0.
+       DO k = 1, klev
+          zustr_gwd_hines(:)=zustr_gwd_hines(:)+ du_gwd_hines(:, k)/dtime &
+               * (paprs(:, k)-paprs(:, k+1))/rg
+          zvstr_gwd_hines(:)=zvstr_gwd_hines(:)+ dv_gwd_hines(:, k)/dtime &
+               * (paprs(:, k)-paprs(:, k+1))/rg
+       ENDDO
+
+       d_t_hin(:, :)=0.
+       CALL add_phys_tend(du_gwd_hines, dv_gwd_hines, d_t_hin, dq0, dql0, &
+            dqi0, paprs, 'hin', abortphy,flag_inhib_tend)
+    ENDIF
+
+    IF (.not. ok_hines .and. ok_gwd_rando) then
+       CALL acama_GWD_rando(DTIME, pplay, latitude_deg, t_seri, u_seri, &
+            v_seri, rot, zustr_gwd_front, zvstr_gwd_front, du_gwd_front, &
+            dv_gwd_front, east_gwstress, west_gwstress)
+       zustr_gwd_front=0.
+       zvstr_gwd_front=0.
+       DO k = 1, klev
+          zustr_gwd_front(:)=zustr_gwd_front(:)+ du_gwd_front(:, k)/dtime &
+               * (paprs(:, k)-paprs(:, k+1))/rg
+          zvstr_gwd_front(:)=zvstr_gwd_front(:)+ dv_gwd_front(:, k)/dtime &
+               * (paprs(:, k)-paprs(:, k+1))/rg
+       ENDDO
+
+       CALL add_phys_tend(du_gwd_front, dv_gwd_front, dt0, dq0, dql0, dqi0, &
+            paprs, 'front_gwd_rando', abortphy,flag_inhib_tend)
+    ENDIF
+
+    if (ok_gwd_rando) then
+       call FLOTT_GWD_rando(DTIME, pplay, t_seri, u_seri, v_seri, &
+            rain_fall + snow_fall, zustr_gwd_rando, zvstr_gwd_rando, &
+            du_gwd_rando, dv_gwd_rando, east_gwstress, west_gwstress)
+       CALL add_phys_tend(du_gwd_rando, dv_gwd_rando, dt0, dq0, dql0, dqi0, &
+            paprs, 'flott_gwd_rando', abortphy,flag_inhib_tend)
+       zustr_gwd_rando=0.
+       zvstr_gwd_rando=0.
+       DO k = 1, klev
+          zustr_gwd_rando(:)=zustr_gwd_rando(:)+ du_gwd_rando(:, k)/dtime &
+               * (paprs(:, k)-paprs(:, k+1))/rg
+          zvstr_gwd_rando(:)=zvstr_gwd_rando(:)+ dv_gwd_rando(:, k)/dtime &
+               * (paprs(:, k)-paprs(:, k+1))/rg
+       ENDDO
+    end if
+
+    ! STRESS NECESSAIRES: TOUTE LA PHYSIQUE
+
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    DO i = 1, klon
+       zustrph(i)=0.
+       zvstrph(i)=0.
+    ENDDO
+    DO k = 1, klev
+       DO i = 1, klon
+          zustrph(i)=zustrph(i)+(u_seri(i,k)-u(i,k))/dtime* &
+               (paprs(i,k)-paprs(i,k+1))/rg
+          zvstrph(i)=zvstrph(i)+(v_seri(i,k)-v(i,k))/dtime* &
+               (paprs(i,k)-paprs(i,k+1))/rg
+       ENDDO
+    ENDDO
+    !
+    !IM calcul composantes axiales du moment angulaire et couple des montagnes
+    !
+    IF (is_sequential .and. ok_orodr) THEN 
+       CALL aaam_bud (27,klon,klev,jD_cur-jD_ref,jH_cur, &
+            ra,rg,romega, &
+            latitude_deg,longitude_deg,pphis, &
+            zustrdr,zustrli,zustrph, &
+            zvstrdr,zvstrli,zvstrph, &
+            paprs,u,v, &
+            aam, torsfc)
+    ENDIF
+    !IM cf. FLott END
+    !IM
+    IF (ip_ebil_phy.ge.2) THEN 
+       ztit='after orography'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,2,2,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , zero_v, zero_v, zero_v, zero_v, zero_v &
+            , zero_v, zero_v, zero_v, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , 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, dqi0, paprs, &
+            'q_ch4', abortphy,flag_inhib_tend)
+    END IF
+    !
+    !
+    !====================================================================
+    ! Interface Simulateur COSP (Calipso, ISCCP, MISR, ..)
+    !====================================================================
+    ! Abderrahmane 24.08.09
+
+    IF (ok_cosp) THEN
+       ! adeclarer 
+#ifdef CPP_COSP
+       IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
+
+          IF (prt_level .GE.10) THEN
+             print*,'freq_cosp',freq_cosp
+          ENDIF
+          mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
+          !       print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=',
+          !     s        ref_liq,ref_ice
+          call phys_cosp(itap,dtime,freq_cosp, &
+               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
+               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, &
+               klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
+               JrNt,ref_liq,ref_ice, &
+               pctsrf(:,is_ter)+pctsrf(:,is_lic), &
+               zu10m,zv10m,pphis, &
+               zphi,paprs(:,1:klev),pplay,zxtsol,t_seri, &
+               qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
+               prfl(:,1:klev),psfl(:,1:klev), &
+               pmflxr(:,1:klev),pmflxs(:,1:klev), &
+               mr_ozone,cldtau, cldemi)
+
+          !     L         calipso2D,calipso3D,cfadlidar,parasolrefl,atb,betamol,
+          !     L          cfaddbze,clcalipso2,dbze,cltlidarradar,
+          !     M          clMISR,
+          !     R          clisccp2,boxtauisccp,boxptopisccp,tclisccp,ctpisccp,
+          !     I          tauisccp,albisccp,meantbisccp,meantbclrisccp)
+
+       ENDIF
+
+#endif
+    ENDIF  !ok_cosp
+
+
+! Marine
+
+  IF (ok_airs) then
+
+  IF (itap.eq.1.or.MOD(itap,NINT(freq_airs/dtime)).EQ.0) THEN
+  write(*,*) 'je vais appeler simu_airs, ok_airs, freq_airs=', &
+     & ok_airs, freq_airs
+  call simu_airs(itap,rneb, t_seri, cldemi, fiwc, ref_ice, pphi, pplay, paprs,&
+     & map_prop_hc,map_prop_hist,&
+     & map_emis_hc,map_iwp_hc,map_deltaz_hc,map_pcld_hc,map_tcld_hc,&
+     & map_emis_Cb,map_pcld_Cb,map_tcld_Cb,&
+     & map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi,&
+     & map_emis_Anv,map_pcld_Anv,map_tcld_Anv,&
+     & map_emis_hist,map_iwp_hist,map_deltaz_hist,map_rad_hist,&
+     & map_ntot,map_hc,map_hist,&
+     & map_Cb,map_ThCi,map_Anv,&
+     & alt_tropo )
+  ENDIF
+
+  ENDIF  ! ok_airs
+
+
+    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    !AA
+    !AA Installation de l'interface online-offline pour traceurs
+    !AA
+    !====================================================================
+    !   Calcul  des tendances traceurs
+    !====================================================================
+    !
+
+    IF (type_trac=='repr') THEN
+       sh_in(:,:) = q_seri(:,:)
+    ELSE
+       sh_in(:,:) = qx(:,:,ivap)
+       ch_in(:,:) = qx(:,:,iliq)
+    END IF
+
+    call phytrac ( &
+         itap,     days_elapsed+1,    jH_cur,   debut, &
+         lafin,    dtime,     u, v,     t, &
+         paprs,    pplay,     pmfu,     pmfd, &
+         pen_u,    pde_u,     pen_d,    pde_d, &
+         cdragh,   coefh(1:klon,1:klev,is_ave),   fm_therm, entr_therm, &
+         u1,       v1,        ftsol,    pctsrf, &
+         zustar,   zu10m,     zv10m, &
+         wstar(:,is_ave),    ale_bl,         ale_wake, &
+         latitude_deg, longitude_deg, &
+         frac_impa,frac_nucl, beta_prec_fisrt,beta_prec, &
+         presnivs, pphis,     pphi,     albsol1, &
+         sh_in,    ch_in,  rhcl,      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
+         ev,       ep,        epmlmMm,  eplaMm, &     !<<RomP
+         dnwd,     aerosol_couple,      flxmass_w, &
+         tau_aero, piz_aero,  cg_aero,  ccm, &
+         rfname, &
+         d_tr_dyn, &                                 !<<RomP
+         tr_seri)
+
+    IF (offline) THEN
+
+       IF (prt_level.ge.9) &
+            print*,'Attention on met a 0 les thermiques pour phystoke'
+       call phystokenc ( &
+            nlon,klev,pdtphys,longitude_deg,latitude_deg, &
+            t,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
+            fm_therm,entr_therm, &
+            cdragh,coefh(1:klon,1:klev,is_ave),u1,v1,ftsol,pctsrf, &
+            frac_impa, frac_nucl, &
+            pphis,cell_area,dtime,itap, &
+            qx(:,:,ivap),da,phi,mp,upwd,dnwd)
+
+
+    ENDIF
+
+    !
+    ! Calculer le transport de l'eau et de l'energie (diagnostique)
+    !
+    CALL transp (paprs,zxtsol, &
+         t_seri, q_seri, u_seri, v_seri, zphi, &
+         ve, vq, ue, uq)
+    !
+    !IM global posePB BEG
+    IF(1.EQ.0) THEN
+       !
+       CALL transp_lay (paprs,zxtsol, &
+            t_seri, q_seri, u_seri, v_seri, zphi, &
+            ve_lay, vq_lay, ue_lay, uq_lay)
+       !
+    ENDIF !(1.EQ.0) THEN
+    !IM global posePB END
+    ! Accumuler les variables a stocker dans les fichiers histoire:
+    !
+
+    !================================================================
+    ! Conversion of kinetic and potential energy into heat, for
+    ! parameterisation of subgrid-scale motions
+    !================================================================
+
+    d_t_ec(:,:)=0.
+    forall (k=1: nbp_lev) exner(:, k) = (pplay(:, k)/paprs(:,1))**RKAPPA
+    CALL ener_conserv(klon,klev,pdtphys,u,v,t,qx(:,:,ivap), &
+         u_seri,v_seri,t_seri,q_seri,pbl_tke(:,:,is_ave)-tke0(:,:), &
+         zmasse,exner,d_t_ec)
+    t_seri(:,:)=t_seri(:,:)+d_t_ec(:,:)
+
+    !IM
+    IF (ip_ebil_phy.ge.1) THEN 
+       ztit='after physic'
+       CALL diagetpq(cell_area,ztit,ip_ebil_phy,1,1,dtime &
+            , t_seri,q_seri,ql_seri,qs_seri,u_seri,v_seri,paprs,pplay &
+            , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
+       !     Comme les tendances de la physique sont ajoute dans la dynamique,
+       !     on devrait avoir que la variation d'entalpie par la dynamique
+       !     est egale a la variation de la physique au pas de temps precedent.
+       !     Donc la somme de ces 2 variations devrait etre nulle.
+
+       call diagphy(cell_area,ztit,ip_ebil_phy &
+            , topsw, toplw, solsw, sollw, sens &
+            , evap, rain_fall, snow_fall, ztsol &
+            , d_h_vcol, d_qt, d_ec &
+            , fs_bound, fq_bound )
+       !
+       d_h_vcol_phy=d_h_vcol
+       !
+    END IF
+    !
+    !=======================================================================
+    !   SORTIES
+    !=======================================================================
+    !
+    !IM initialisation + calculs divers diag AMIP2
+    !
+    include "calcul_divers.h"
+    !
+    !IM Interpolation sur les niveaux de pression du NMC
+    !   -------------------------------------------------
+#ifdef CPP_XIOS
+    !$OMP MASTER
+    !On recupere la valeur de la missing value donnee dans le xml
+    CALL xios_get_field_attr("t850",default_value=missing_val_omp)
+    !         PRINT *,"ARNAUD value missing ",missing_val_omp
+    !$OMP END MASTER
+    !$OMP BARRIER
+    missing_val=missing_val_omp
+#endif
+#ifndef CPP_XIOS
+    missing_val=missing_val_nf90
+#endif
+    !
+    include "calcul_STDlev.h"
+    !
+    ! slp sea level pressure derived from Arpege-IFS : CALL ctstar + CALL pppmer
+    CALL diag_slp(klon,t_seri,paprs,pplay,pphis,ptstar,pt0,slp)
+    !
+    !cc prw  = eau precipitable
+    !   prlw = colonne eau liquide 
+    !   prlw = colonne eau solide
+    prw(:) = 0.
+    prlw(:) = 0.
+    prsw(:) = 0.
+    DO k = 1, klev
+       prw(:)  = prw(:)  + q_seri(:,k)*zmasse(:,k)
+       prlw(:) = prlw(:) + ql_seri(:,k)*zmasse(:,k)
+       prsw(:) = prsw(:) + qs_seri(:,k)*zmasse(:,k)
+    ENDDO
+    !
+    IF (type_trac == 'inca') THEN
+#ifdef INCA
+       CALL VTe(VTphysiq)
+       CALL VTb(VTinca)
+
+       CALL chemhook_end ( &
+            dtime, &
+            pplay, &
+            t_seri, &
+            tr_seri, &
+            nbtr, &
+            paprs, &
+            q_seri, &
+            cell_area, &
+            pphi, &
+            pphis, &
+            zx_rh, &
+            Ahyb, Bhyb)
+
+       CALL VTe(VTinca)
+       CALL VTb(VTphysiq)
+#endif
+    END IF
+
+
+    !
+    ! Convertir les incrementations en tendances
+    !
+    IF (prt_level .GE.10) THEN
+       print *,'Convertir les incrementations en tendances '
+    ENDIF
+    !
+    if (mydebug) then
+       call writefield_phy('u_seri',u_seri,nbp_lev)
+       call writefield_phy('v_seri',v_seri,nbp_lev)
+       call writefield_phy('t_seri',t_seri,nbp_lev)
+       call writefield_phy('q_seri',q_seri,nbp_lev)
+    endif
+
+    DO k = 1, klev
+       DO i = 1, klon
+          d_u(i,k) = ( u_seri(i,k) - u(i,k) ) / dtime
+          d_v(i,k) = ( v_seri(i,k) - v(i,k) ) / dtime
+          d_t(i,k) = ( t_seri(i,k)-t(i,k) ) / dtime
+          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
+    !
+    !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-nqo) - qx(i,k,iq) ) / dtime
+             ENDDO
+          ENDDO
+       ENDDO
+    ENDIF
+    !
+    !IM rajout diagnostiques bilan KP pour analyse MJO par Jun-Ichi Yano
+    !IM global posePB      include "write_bilKP_ins.h"
+    !IM global posePB      include "write_bilKP_ave.h"
+    !
+
+    !--OB mass fixer 
+    !--profile is corrected to force mass conservation of water
+    IF (mass_fixer) THEN
+    qql2(:)=0.0
+    DO k = 1, klev
+      qql2(:)=qql2(:)+(q_seri(:,k)+ql_seri(:,k)+qs_seri(:,k))*zmasse(:,k)
+    ENDDO
+    DO i = 1, klon
+      !--compute ratio of what q+ql should be with conservation to what it is
+      corrqql=(qql1(i)+(evap(i)-rain_fall(i)-snow_fall(i))*pdtphys)/qql2(i)
+      DO k = 1, klev
+        q_seri(i,k) =q_seri(i,k)*corrqql
+        ql_seri(i,k)=ql_seri(i,k)*corrqql
+      ENDDO
+    ENDDO
+    ENDIF
+    !--fin mass fixer
+
+    ! Sauvegarder les valeurs de t et q a la fin de la physique:
+    !
+    u_ancien(:,:)  = u_seri(:,:)
+    v_ancien(:,:)  = v_seri(:,:)
+    t_ancien(:,:)  = t_seri(:,:)
+    q_ancien(:,:)  = q_seri(:,:)
+    ql_ancien(:,:) = ql_seri(:,:)
+    qs_ancien(:,:) = qs_seri(:,:)
+    CALL water_int(klon,klev,q_ancien,zmasse,prw_ancien)
+    CALL water_int(klon,klev,ql_ancien,zmasse,prlw_ancien)
+    CALL water_int(klon,klev,qs_ancien,zmasse,prsw_ancien)
+    ! !! RomP >>>
+    !CR: nb de traceurs eau: nqo
+    IF (nqtot.GT.nqo) THEN
+       DO iq = nqo+1, nqtot
+          tr_ancien(:,:,iq-nqo) = tr_seri(:,:,iq-nqo)
+       ENDDO
+    ENDIF
+    ! !! RomP <<<
+    !==========================================================================
+    ! Sorties des tendances pour un point particulier
+    ! a utiliser en 1D, avec igout=1 ou en 3D sur un point particulier
+    ! pour le debug
+    ! La valeur de igout est attribuee plus haut dans le programme
+    !==========================================================================
+
+    if (prt_level.ge.1) then
+       write(lunout,*) 'FIN DE PHYSIQ !!!!!!!!!!!!!!!!!!!!'
+       write(lunout,*) &
+            'nlon,klev,nqtot,debut,lafin,jD_cur, jH_cur, pdtphys pct tlos'
+       write(lunout,*) &
+            nlon,klev,nqtot,debut,lafin, jD_cur, jH_cur ,pdtphys, &
+            pctsrf(igout,is_ter), pctsrf(igout,is_lic),pctsrf(igout,is_oce), &
+            pctsrf(igout,is_sic)
+       write(lunout,*) 'd_t_dyn,d_t_con,d_t_lsc,d_t_ajsb,d_t_ajs,d_t_eva'
+       do k=1,klev
+          write(lunout,*) d_t_dyn(igout,k),d_t_con(igout,k), &
+               d_t_lsc(igout,k),d_t_ajsb(igout,k),d_t_ajs(igout,k), &
+               d_t_eva(igout,k)
+       enddo
+       write(lunout,*) 'cool,heat'
+       do k=1,klev
+          write(lunout,*) cool(igout,k),heat(igout,k)
+       enddo
+
+       !jyg<     (En attendant de statuer sur le sort de d_t_oli)
+       !jyg!     write(lunout,*) 'd_t_oli,d_t_vdf,d_t_oro,d_t_lif,d_t_ec'
+       !jyg!     do k=1,klev
+       !jyg!        write(lunout,*) d_t_oli(igout,k),d_t_vdf(igout,k), &
+       !jyg!             d_t_oro(igout,k),d_t_lif(igout,k),d_t_ec(igout,k)
+       !jyg!     enddo
+       write(lunout,*) 'd_t_vdf,d_t_oro,d_t_lif,d_t_ec'
+       do k=1,klev
+          write(lunout,*) d_t_vdf(igout,k), &
+               d_t_oro(igout,k),d_t_lif(igout,k),d_t_ec(igout,k)
+       enddo
+       !>jyg
+
+       write(lunout,*) 'd_ps ',d_ps(igout)
+       write(lunout,*) 'd_u, d_v, d_t, d_qx1, d_qx2 '
+       do k=1,klev
+          write(lunout,*) d_u(igout,k),d_v(igout,k),d_t(igout,k), &
+               d_qx(igout,k,1),d_qx(igout,k,2)
+       enddo
+    endif
+
+    !==========================================================================
+
+    !============================================================
+    !   Calcul de la temperature potentielle
+    !============================================================
+    DO k = 1, klev
+       DO i = 1, klon
+          !JYG/IM theta en debut du pas de temps
+          !JYG/IM       theta(i,k)=t(i,k)*(100000./pplay(i,k))**(RD/RCPD)
+          !JYG/IM theta en fin de pas de temps de physique
+          theta(i,k)=t_seri(i,k)*(100000./pplay(i,k))**(RD/RCPD)
+          ! thetal: 2 lignes suivantes a decommenter si vous avez les fichiers
+          !     MPL 20130625
+          ! fth_fonctions.F90 et parkind1.F90
+          ! sinon thetal=theta
+          !       thetal(i,k)=fth_thetal(pplay(i,k),t_seri(i,k),q_seri(i,k),
+          !    :         ql_seri(i,k))
+          thetal(i,k)=theta(i,k)
+       ENDDO
+    ENDDO
+    !
+
+    ! 22.03.04 BEG
+    !=============================================================
+    !   Ecriture des sorties
+    !=============================================================
+#ifdef CPP_IOIPSL
+
+    ! Recupere des varibles calcule dans differents modules
+    ! pour ecriture dans histxxx.nc 
+
+    ! Get some variables from module fonte_neige_mod
+    CALL fonte_neige_get_vars(pctsrf,  &
+         zxfqcalving, zxfqfonte, zxffonte, zxrunofflic)
+
+
+    !=============================================================
+    ! Separation entre thermiques et non thermiques dans les sorties
+    ! de fisrtilp
+    !=============================================================
+
+    if (iflag_thermals>=1) then
+       d_t_lscth=0.
+       d_t_lscst=0.
+       d_q_lscth=0.
+       d_q_lscst=0.
+       do k=1,klev
+          do i=1,klon
+             if (ptconvth(i,k)) then
+                d_t_lscth(i,k)=d_t_eva(i,k)+d_t_lsc(i,k)
+                d_q_lscth(i,k)=d_q_eva(i,k)+d_q_lsc(i,k)
+             else
+                d_t_lscst(i,k)=d_t_eva(i,k)+d_t_lsc(i,k)
+                d_q_lscst(i,k)=d_q_eva(i,k)+d_q_lsc(i,k)
+             endif
+          enddo
+       enddo
+
+       do i=1,klon
+          plul_st(i)=prfl(i,lmax_th(i)+1)+psfl(i,lmax_th(i)+1)
+          plul_th(i)=prfl(i,1)+psfl(i,1)
+       enddo
+    endif
+
+
+    !On effectue les sorties:
+
+    CALL phys_output_write(itap, pdtphys, paprs, pphis,  &
+         pplay, lmax_th, aerosol_couple,                 &
+         ok_ade, ok_aie, ivap, iliq, isol, new_aod,      & 
+         ok_sync, ptconv, read_climoz, clevSTD,          &
+         ptconvth, d_t, qx, d_qx, zmasse,                &
+         flag_aerosol, flag_aerosol_strat, ok_cdnc)
+
+    include "write_histday_seri.h"
+
+    CALL write_paramLMDZ_phy(itap,nid_ctesGCM,ok_sync)
+
+#endif
+
+
+    !====================================================================
+    ! Arret du modele apres hgardfou en cas de detection d'un
+    ! plantage par hgardfou
+    !====================================================================
+
+    IF (abortphy==1) THEN
+       abort_message ='Plantage hgardfou'
+       CALL abort_physic (modname,abort_message,1)
+    ENDIF
+
+    ! 22.03.04 END
+    !
+    !====================================================================
+    ! Si c'est la fin, il faut conserver l'etat de redemarrage
+    !====================================================================
+    !
+
+    IF (lafin) THEN
+       itau_phy = itau_phy + itap
+       CALL phyredem ("restartphy.nc")
+       !         open(97,form="unformatted",file="finbin")
+       !         write(97) u_seri,v_seri,t_seri,q_seri
+       !         close(97)
+       !$OMP MASTER
+       if (read_climoz >= 1) then
+          if (is_mpi_root) then
+             call nf95_close(ncid_climoz)
+          end if
+          deallocate(press_climoz) ! pointer
+       end if
+       !$OMP END MASTER
+    ENDIF
+
+    !      first=.false.
+
+
+  END SUBROUTINE physiq
+
+END MODULE physiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phystokenc_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phystokenc_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phystokenc_mod.F90	(revision 3330)
@@ -0,0 +1,387 @@
+!
+! $Id$
+!
+MODULE phystokenc_mod
+
+  IMPLICIT NONE
+
+  LOGICAL,SAVE :: offline
+!$OMP THREADPRIVATE(offline)
+  INTEGER,SAVE :: istphy
+!$OMP THREADPRIVATE(istphy)
+
+
+CONTAINS
+
+  SUBROUTINE init_phystokenc(offline_dyn,istphy_dyn)
+    IMPLICIT NONE
+    LOGICAL,INTENT(IN) :: offline_dyn
+    INTEGER,INTENT(IN) :: istphy_dyn
+
+    offline=offline_dyn
+    istphy=istphy_dyn
+
+  END SUBROUTINE init_phystokenc
+
+SUBROUTINE phystokenc (nlon,nlev,pdtphys,rlon,rlat, &
+     pt,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
+     pfm_therm,pentr_therm, &
+     cdragh, pcoefh,yu1,yv1,ftsol,pctsrf, &
+     frac_impa,frac_nucl, &
+     pphis,paire,dtime,itap, &
+     psh, pda, pphi, pmp, pupwd, pdnwd)
+  
+  USE ioipsl
+  USE dimphy
+  USE infotrac_phy, ONLY : nqtot
+  USE iophy
+  USE indice_sol_mod
+  USE print_control_mod, ONLY: lunout
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+  
+  IMPLICIT NONE
+  
+!======================================================================
+! Auteur(s) FH
+! Objet: Ecriture des variables pour transport offline
+!
+!======================================================================
+
+! Arguments:
+!
+  REAL,DIMENSION(klon,klev), INTENT(IN)     :: psh   ! humidite specifique
+  REAL,DIMENSION(klon,klev), INTENT(IN)     :: pda
+  REAL,DIMENSION(klon,klev,klev), INTENT(IN):: pphi
+  REAL,DIMENSION(klon,klev), INTENT(IN)     :: pmp
+  REAL,DIMENSION(klon,klev), INTENT(IN)     :: pupwd ! saturated updraft mass flux
+  REAL,DIMENSION(klon,klev), INTENT(IN)     :: pdnwd ! saturated downdraft mass flux
+
+!   EN ENTREE:
+!   ==========
+!
+!   divers:
+!   -------
+!
+  INTEGER nlon ! nombre de points horizontaux
+  INTEGER nlev ! nombre de couches verticales
+  REAL pdtphys ! pas d'integration pour la physique (seconde)
+  INTEGER itap
+  INTEGER, SAVE :: physid
+!$OMP THREADPRIVATE(physid)
+
+!   convection:
+!   -----------
+!
+  REAL pmfu(klon,klev)  ! flux de masse dans le panache montant
+  REAL pmfd(klon,klev)  ! flux de masse dans le panache descendant
+  REAL pen_u(klon,klev) ! flux entraine dans le panache montant
+  REAL pde_u(klon,klev) ! flux detraine dans le panache montant
+  REAL pen_d(klon,klev) ! flux entraine dans le panache descendant
+  REAL pde_d(klon,klev) ! flux detraine dans le panache descendant
+  REAL pt(klon,klev)
+  REAL,ALLOCATABLE,SAVE :: t(:,:)
+!$OMP THREADPRIVATE(t)
+!
+  REAL rlon(klon), rlat(klon), dtime
+  REAL zx_tmp_3d(nbp_lon,nbp_lat,klev),zx_tmp_2d(nbp_lon,nbp_lat)
+
+!   Couche limite:
+!   --------------
+!
+  REAL cdragh(klon)          ! cdrag
+  REAL pcoefh(klon,klev)     ! coeff melange CL
+  REAL pcoefh_buf(klon,klev) ! coeff melange CL + cdrag
+  REAL yv1(klon)
+  REAL yu1(klon),pphis(klon),paire(klon)
+
+!   Les Thermiques : (Abderr 25 11 02)
+!   ---------------
+  REAL, INTENT(IN) ::  pfm_therm(klon,klev+1)
+  REAL pentr_therm(klon,klev)
+  
+  REAL,ALLOCATABLE,SAVE :: entr_therm(:,:)
+  REAL,ALLOCATABLE,SAVE :: fm_therm(:,:)
+!$OMP THREADPRIVATE(entr_therm)
+!$OMP THREADPRIVATE(fm_therm)
+!
+!   Lessivage:
+!   ----------
+!
+  REAL frac_impa(klon,klev)
+  REAL frac_nucl(klon,klev)
+!
+! Arguments necessaires pour les sources et puits de traceur
+!
+  REAL ftsol(klon,nbsrf)  ! Temperature du sol (surf)(Kelvin)
+  REAL pctsrf(klon,nbsrf) ! Pourcentage de sol f(nature du sol)
+!======================================================================
+!
+  INTEGER i, k, kk
+  REAL,ALLOCATABLE,SAVE :: mfu(:,:)  ! flux de masse dans le panache montant
+  REAL,ALLOCATABLE,SAVE :: mfd(:,:)  ! flux de masse dans le panache descendant
+  REAL,ALLOCATABLE,SAVE :: en_u(:,:) ! flux entraine dans le panache montant
+  REAL,ALLOCATABLE,SAVE :: de_u(:,:) ! flux detraine dans le panache montant
+  REAL,ALLOCATABLE,SAVE :: en_d(:,:) ! flux entraine dans le panache descendant
+  REAL,ALLOCATABLE,SAVE :: de_d(:,:) ! flux detraine dans le panache descendant
+  REAL,ALLOCATABLE,SAVE :: coefh(:,:) ! flux detraine dans le panache descendant
+  
+  REAL,ALLOCATABLE,SAVE :: pyu1(:)
+  REAL,ALLOCATABLE,SAVE :: pyv1(:)
+  REAL,ALLOCATABLE,SAVE :: pftsol(:,:)
+  REAL,ALLOCATABLE,SAVE :: ppsrf(:,:)
+!$OMP THREADPRIVATE(mfu,mfd,en_u,de_u,en_d,de_d,coefh)
+!$OMP THREADPRIVATE(pyu1,pyv1,pftsol,ppsrf)
+
+
+  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: sh  
+  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: da
+  REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE   :: phi
+  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: mp
+  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: upwd
+  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: dnwd
+  
+  REAL, SAVE :: dtcum
+  INTEGER, SAVE:: iadvtr=0
+!$OMP THREADPRIVATE(dtcum,iadvtr)
+  REAL zmin,zmax
+  LOGICAL ok_sync
+  CHARACTER(len=12) :: nvar
+  logical, parameter :: lstokenc=.FALSE.
+!
+!======================================================================
+
+  iadvtr=iadvtr+1
+
+! Dans le meme vecteur on recombine le drag et les coeff d'echange
+  pcoefh_buf(:,1)      = cdragh(:)
+  pcoefh_buf(:,2:klev) = pcoefh(:,2:klev)
+  
+  ok_sync = .TRUE.
+
+! Initialization done only once
+!======================================================================
+  IF (iadvtr==1) THEN
+     ALLOCATE( t(klon,klev))
+     ALLOCATE( mfu(klon,klev))  
+     ALLOCATE( mfd(klon,klev))  
+     ALLOCATE( en_u(klon,klev)) 
+     ALLOCATE( de_u(klon,klev)) 
+     ALLOCATE( en_d(klon,klev)) 
+     ALLOCATE( de_d(klon,klev)) 
+     ALLOCATE( coefh(klon,klev)) 
+     ALLOCATE( entr_therm(klon,klev))
+     ALLOCATE( fm_therm(klon,klev))
+     ALLOCATE( pyu1(klon))
+     ALLOCATE( pyv1(klon))
+     ALLOCATE( pftsol(klon,nbsrf))
+     ALLOCATE( ppsrf(klon,nbsrf))
+     
+     ALLOCATE(sh(klon,klev)) 
+     ALLOCATE(da(klon,klev)) 
+     ALLOCATE(phi(klon,klev,klev)) 
+     ALLOCATE(mp(klon,klev)) 
+     ALLOCATE(upwd(klon,klev)) 
+     ALLOCATE(dnwd(klon,klev)) 
+
+     CALL initphysto('phystoke', dtime, dtime*istphy,dtime*istphy,physid)
+     
+     ! Write field phis and aire only once
+     CALL histwrite_phy(physid,lstokenc,"phis",itap,pphis)
+     CALL histwrite_phy(physid,lstokenc,"aire",itap,paire)
+     CALL histwrite_phy(physid,lstokenc,"longitudes",itap,rlon)
+     CALL histwrite_phy(physid,lstokenc,"latitudes",itap,rlat)
+
+  END IF
+  
+  
+! Set to zero cumulating fields
+!======================================================================
+  IF (MOD(iadvtr,istphy)==1.OR.istphy==1) THEN
+     WRITE(lunout,*)'reinitialisation des champs cumules a iadvtr=',iadvtr
+     mfu(:,:)=0.
+     mfd(:,:)=0.
+     en_u(:,:)=0.
+     de_u(:,:)=0.
+     en_d(:,:)=0.
+     de_d(:,:)=0.
+     coefh(:,:)=0.
+     t(:,:)=0.
+     fm_therm(:,:)=0.
+     entr_therm(:,:)=0.
+     pyv1(:)=0.
+     pyu1(:)=0.
+     pftsol(:,:)=0.
+     ppsrf(:,:)=0.
+     sh(:,:)=0.
+     da(:,:)=0.
+     phi(:,:,:)=0.
+     mp(:,:)=0.
+     upwd(:,:)=0.
+     dnwd(:,:)=0.
+     dtcum=0.
+  ENDIF
+  
+
+! Cumulate fields at each time step
+!======================================================================
+  DO k=1,klev
+     DO i=1,klon
+        mfu(i,k)=mfu(i,k)+pmfu(i,k)*pdtphys
+        mfd(i,k)=mfd(i,k)+pmfd(i,k)*pdtphys
+        en_u(i,k)=en_u(i,k)+pen_u(i,k)*pdtphys
+        de_u(i,k)=de_u(i,k)+pde_u(i,k)*pdtphys
+        en_d(i,k)=en_d(i,k)+pen_d(i,k)*pdtphys
+        de_d(i,k)=de_d(i,k)+pde_d(i,k)*pdtphys
+        coefh(i,k)=coefh(i,k)+pcoefh_buf(i,k)*pdtphys
+        t(i,k)=t(i,k)+pt(i,k)*pdtphys
+        fm_therm(i,k)=fm_therm(i,k)+pfm_therm(i,k)*pdtphys
+        entr_therm(i,k)=entr_therm(i,k)+pentr_therm(i,k)*pdtphys
+        sh(i,k) = sh(i,k) + psh(i,k)*pdtphys
+        da(i,k) = da(i,k) + pda(i,k)*pdtphys
+        mp(i,k) = mp(i,k) + pmp(i,k)*pdtphys
+        upwd(i,k) = upwd(i,k) + pupwd(i,k)*pdtphys
+        dnwd(i,k) = dnwd(i,k) + pdnwd(i,k)*pdtphys
+     ENDDO
+  ENDDO
+
+  DO kk=1,klev
+     DO k=1,klev
+        DO i=1,klon
+           phi(i,k,kk) = phi(i,k,kk) + pphi(i,k,kk)*pdtphys
+        END DO
+     END DO
+  END DO
+
+  DO i=1,klon
+     pyv1(i)=pyv1(i)+yv1(i)*pdtphys
+     pyu1(i)=pyu1(i)+yu1(i)*pdtphys
+  END DO
+  DO k=1,nbsrf
+     DO i=1,klon
+        pftsol(i,k)=pftsol(i,k)+ftsol(i,k)*pdtphys
+        ppsrf(i,k)=ppsrf(i,k)+pctsrf(i,k)*pdtphys
+     ENDDO
+  ENDDO
+  
+! Add time step to cumulated time
+  dtcum=dtcum+pdtphys
+  
+
+! Write fields to file, if it is time to do so
+!======================================================================
+  IF(MOD(iadvtr,istphy)==0) THEN 
+
+     ! normalize with time period
+     DO k=1,klev
+        DO i=1,klon
+           mfu(i,k)=mfu(i,k)/dtcum
+           mfd(i,k)=mfd(i,k)/dtcum
+           en_u(i,k)=en_u(i,k)/dtcum
+           de_u(i,k)=de_u(i,k)/dtcum
+           en_d(i,k)=en_d(i,k)/dtcum
+           de_d(i,k)=de_d(i,k)/dtcum
+           coefh(i,k)=coefh(i,k)/dtcum
+           t(i,k)=t(i,k)/dtcum	
+           fm_therm(i,k)=fm_therm(i,k)/dtcum
+           entr_therm(i,k)=entr_therm(i,k)/dtcum
+           sh(i,k)=sh(i,k)/dtcum
+           da(i,k)=da(i,k)/dtcum
+           mp(i,k)=mp(i,k)/dtcum
+           upwd(i,k)=upwd(i,k)/dtcum
+           dnwd(i,k)=dnwd(i,k)/dtcum
+        ENDDO
+     ENDDO
+     DO kk=1,klev
+        DO k=1,klev
+           DO i=1,klon
+              phi(i,k,kk) = phi(i,k,kk)/dtcum
+           END DO
+        END DO
+     END DO
+     DO i=1,klon
+        pyv1(i)=pyv1(i)/dtcum
+        pyu1(i)=pyu1(i)/dtcum
+     END DO
+     DO k=1,nbsrf
+        DO i=1,klon
+           pftsol(i,k)=pftsol(i,k)/dtcum
+           ppsrf(i,k)=ppsrf(i,k)/dtcum
+        ENDDO
+     ENDDO
+
+     ! write fields
+     CALL histwrite_phy(physid,lstokenc,"t",itap,t)
+     CALL histwrite_phy(physid,lstokenc,"mfu",itap,mfu)
+     CALL histwrite_phy(physid,lstokenc,"mfd",itap,mfd)
+     CALL histwrite_phy(physid,lstokenc,"en_u",itap,en_u)
+     CALL histwrite_phy(physid,lstokenc,"de_u",itap,de_u)
+     CALL histwrite_phy(physid,lstokenc,"en_d",itap,en_d)
+     CALL histwrite_phy(physid,lstokenc,"de_d",itap,de_d)
+     CALL histwrite_phy(physid,lstokenc,"coefh",itap,coefh)	
+     CALL histwrite_phy(physid,lstokenc,"fm_th",itap,fm_therm)
+     CALL histwrite_phy(physid,lstokenc,"en_th",itap,entr_therm)
+     CALL histwrite_phy(physid,lstokenc,"frac_impa",itap,frac_impa)
+     CALL histwrite_phy(physid,lstokenc,"frac_nucl",itap,frac_nucl)
+     CALL histwrite_phy(physid,lstokenc,"pyu1",itap,pyu1)
+     CALL histwrite_phy(physid,lstokenc,"pyv1",itap,pyv1)
+     CALL histwrite_phy(physid,lstokenc,"ftsol1",itap,pftsol(:,1))
+     CALL histwrite_phy(physid,lstokenc,"ftsol2",itap,pftsol(:,2))
+     CALL histwrite_phy(physid,lstokenc,"ftsol3",itap,pftsol(:,3))
+     CALL histwrite_phy(physid,lstokenc,"ftsol4",itap,pftsol(:,4))
+     CALL histwrite_phy(physid,lstokenc,"psrf1",itap,ppsrf(:,1))
+     CALL histwrite_phy(physid,lstokenc,"psrf2",itap,ppsrf(:,2))
+     CALL histwrite_phy(physid,lstokenc,"psrf3",itap,ppsrf(:,3))
+     CALL histwrite_phy(physid,lstokenc,"psrf4",itap,ppsrf(:,4))
+     CALL histwrite_phy(physid,lstokenc,"sh",itap,sh)
+     CALL histwrite_phy(physid,lstokenc,"da",itap,da)
+     CALL histwrite_phy(physid,lstokenc,"mp",itap,mp)
+     CALL histwrite_phy(physid,lstokenc,"upwd",itap,upwd)
+     CALL histwrite_phy(physid,lstokenc,"dnwd",itap,dnwd)
+
+
+! phi
+     DO k=1,klev
+        IF (k<10) THEN
+           WRITE(nvar,'(i1)') k
+        ELSE IF (k<100) THEN
+           WRITE(nvar,'(i2)') k
+        ELSE
+           WRITE(nvar,'(i3)') k
+        END IF
+        nvar='phi_lev'//trim(nvar)
+        
+        CALL histwrite_phy(physid,lstokenc,nvar,itap,phi(:,:,k))
+     END DO
+     
+     ! Syncronize file
+!$OMP MASTER
+     IF (ok_sync) CALL histsync(physid)
+!$OMP END MASTER
+     
+     
+     ! Calculate min and max values for some fields (coefficients de lessivage)
+     zmin=1e33
+     zmax=-1e33
+     DO k=1,klev
+        DO i=1,klon
+           zmax=MAX(zmax,frac_nucl(i,k))
+           zmin=MIN(zmin,frac_nucl(i,k))
+        ENDDO
+     ENDDO
+     WRITE(lunout,*)'------ coefs de lessivage (min et max) --------'
+     WRITE(lunout,*)'facteur de nucleation ',zmin,zmax
+     zmin=1e33
+     zmax=-1e33
+     DO k=1,klev
+        DO i=1,klon
+           zmax=MAX(zmax,frac_impa(i,k))
+           zmin=MIN(zmin,frac_impa(i,k))
+        ENDDO
+     ENDDO
+     WRITE(lunout,*)'facteur d impaction ',zmin,zmax
+     
+  ENDIF ! IF(MOD(iadvtr,istphy)==0)
+
+END SUBROUTINE phystokenc
+
+END MODULE phystokenc_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phytrac_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phytrac_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/phytrac_mod.F90	(revision 3330)
@@ -0,0 +1,907 @@
+!$Id$
+MODULE phytrac_mod
+!=================================================================================
+! Interface between the LMDZ physical package and tracer computation.
+! Chemistry modules (INCA, Reprobus or the more specific traclmdz routine)
+! are called from phytrac.
+!
+!======================================================================
+! Auteur(s) FH
+! Objet: Moniteur general des tendances traceurs
+!
+! iflag_vdf_trac : Options for activating transport by vertical diffusion :
+!     1. notmal
+!     0. emission is injected in the first layer only, without diffusion
+!    -1  no emission & no diffusion
+! Modification 2013/07/22 : transformed into a module to pass tendencies to
+!     physics outputs. Additional keys for controling activation of sub processes.
+! Modification R. Pilon 10 octobre 2012 large scale scavenging incloud_scav + bc_scav
+! Modification R. Pilon 01 janvier 2012 transport+scavenging KE scheme : cvltr
+!=================================================================================
+
+!
+! Tracer tendencies, for outputs
+!-------------------------------
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_cl  ! Td couche limite/traceur
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_dec                            !RomP
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_cv  ! Td convection/traceur
+! RomP >>>
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_insc
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_bcscav
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_evapls
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_ls
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_trsp
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_sscav
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_sat
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_uscav
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: qPr,qDi ! concentration tra dans pluie,air descente insaturee
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: qPa,qMel
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: qTrdi,dtrcvMA ! conc traceur descente air insaturee et td convective MA
+! RomP <<<
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_th  ! Td thermique
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_lessi_impa ! Td du lessivage par impaction
+  REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_lessi_nucl ! Td du lessivage par nucleation
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE      :: qPrls      !jyg: concentration tra dans pluie LS a la surf.
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE      :: d_tr_dry ! Td depot sec/traceur (1st layer),ALLOCATABLE,SAVE  jyg
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE      :: flux_tr_dry ! depot sec/traceur (surface),ALLOCATABLE,SAVE    jyg
+
+!$OMP THREADPRIVATE(qPa,qMel,qTrdi,dtrcvMA,d_tr_th,d_tr_lessi_impa,d_tr_lessi_nucl)
+!$OMP THREADPRIVATE(d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav,qPr,qDi)
+!$OMP THREADPRIVATE(d_tr_insc,d_tr_bcscav,d_tr_evapls,d_tr_ls,qPrls)
+!$OMP THREADPRIVATE(d_tr,d_tr_cl,d_tr_dry,flux_tr_dry,d_tr_dec,d_tr_cv)
+
+
+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,        ch, 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_phy, ONLY: nbtr, type_trac, conv_flg, solsym, pbl_flg
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+    USE iophy
+    USE traclmdz_mod
+    USE tracinca_mod
+    USE tracreprobus_mod
+    USE indice_sol_mod
+
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    USE print_control_mod, ONLY: lunout
+    USE aero_mod, ONLY : naero_grp
+
+    IMPLICIT NONE
+
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+    INCLUDE "thermcell.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),INTENT(IN)   :: ch      ! eau liquide
+    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,naero_grp,2),INTENT(IN) :: tau_aero
+    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: piz_aero
+    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: cg_aero
+    CHARACTER(len=4),DIMENSION(naero_grp),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         
+!$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
+!$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
+!$OMP THREADPRIVATE(iflag_vdf_trac,iflag_con_trac,iflag_the_trac)
+
+    LOGICAL,SAVE :: lessivage
+!$OMP THREADPRIVATE(lessivage)
+
+    !RomP >>>
+    INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
+    REAL, SAVE ::   ccntrAA_in,ccntrAA_omp
+    REAL, SAVE ::   ccntrENV_in,ccntrENV_omp
+    REAL, SAVE ::   coefcoli_in,coefcoli_omp
+
+    LOGICAL,SAVE  :: convscav_omp,convscav
+!$OMP THREADPRIVATE(iflag_lscav)
+!$OMP THREADPRIVATE(ccntrAA_in,ccntrENV_in,coefcoli_in)
+!$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.
+          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 = 
+       !
+!$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)
+!$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
+       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)
+       ccntrAA_omp=1
+       ccntrENV_omp=1.
+       coefcoli_omp=0.001
+       call getin('ccntrAA', ccntrAA_omp)
+       call getin('ccntrENV', ccntrENV_omp)
+       call getin('coefcoli', coefcoli_omp)
+!$OMP END MASTER
+!$OMP BARRIER
+       iflag_lscav=iflag_lscav_omp
+       ccntrAA_in=ccntrAA_omp
+       ccntrENV_in=ccntrENV_omp
+       coefcoli_in=coefcoli_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_physic('phytrac', 'pb in allocation 1',1)
+
+       ALLOCATE( aerosol(nbtr), stat=ierr)
+       IF (ierr /= 0) CALL abort_physic('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) =ccntrAA_in    !--a modifier par JYG a lire depuis fichier 
+                   ccntrENV(it)=ccntrENV_in
+                   coefcoli(it)=coefcoli_in
+                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.
+!
+!                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_physic('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"
+#endif
+       !
+       ! 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_physic('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, 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,             ch, 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)      
+
+    CASE('repr')
+       !   -- CHIMIE REPROBUS --
+
+       CALL tracreprobus(pdtphys, gmtime, debutphy, julien, &
+            presnivs, xlat, xlon, pphis, pphi, &
+            t_seri, pplay, paprs, sh , &
+            tr_seri)
+
+    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
+
+                print*,'CV SCAV ',it,ccntrAA(it),ccntrENV(it)
+
+                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
+       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_physic('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
+
+             IF (aerosol(it)) THEN
+             !  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
+
+!jyg<
+!!             CALL lsc_scav(pdtphys,it,iflag_lscav,ql_incl,prfl,psfl,rneb,beta_fisrt,  &
+             CALL lsc_scav(pdtphys,it,iflag_lscav,aerosol,ql_incl,prfl,psfl,rneb,beta_fisrt,  &
+!>jyg
+                  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))
+             ENDIF
+
+          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"
+#endif
+
+  END SUBROUTINE phytrac
+
+END MODULE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/planete.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/planete.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/planete.h	(revision 3330)
@@ -0,0 +1,11 @@
+!-----------------------------------------------------------------------
+! INCLUDE planet.h
+
+      COMMON/planet/aphelie,periheli,year_day,peri_day, obliquit, timeperi,&
+           e_elips,p_elips,unitastr
+
+      REAL aphelie,periheli,year_day,peri_day, obliquit, timeperi,e_elips, &
+           p_elips,unitastr
+
+!-----------------------------------------------------------------------
+!$OMP THREADPRIVATE(/planet/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/plevel.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/plevel.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/plevel.F90	(revision 3330)
@@ -0,0 +1,139 @@
+
+! $Header$
+
+! ================================================================
+! ================================================================
+SUBROUTINE plevel(ilon, ilev, lnew, pgcm, pres, qgcm, qpres)
+  ! ================================================================
+  ! ================================================================
+  USE netcdf
+  USE dimphy
+#ifdef CPP_IOIPSL 
+  USE phys_state_var_mod, ONLY: missing_val_nf90 
+#endif
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val
+#endif
+  IMPLICIT NONE
+
+  ! ================================================================
+
+  ! Interpoler des champs 3-D u, v et g du modele a un niveau de
+  ! pression donnee (pres)
+
+  ! INPUT:  ilon ----- nombre de points
+  ! ilev ----- nombre de couches
+  ! lnew ----- true si on doit reinitialiser les poids
+  ! pgcm ----- pressions modeles
+  ! pres ----- pression vers laquelle on interpolle
+  ! Qgcm ----- champ GCM
+  ! Qpres ---- champ interpolle au niveau pres
+
+  ! ================================================================
+
+  ! arguments :
+  ! -----------
+
+  INTEGER ilon, ilev
+  LOGICAL lnew
+
+  REAL pgcm(ilon, ilev)
+  REAL qgcm(ilon, ilev)
+  REAL pres
+  REAL qpres(ilon)
+
+  ! local :
+  ! -------
+
+  ! ym      INTEGER lt(klon), lb(klon)
+  ! ym      REAL ptop, pbot, aist(klon), aisb(klon)
+
+  ! ym      save lt,lb,ptop,pbot,aist,aisb
+  INTEGER, ALLOCATABLE, SAVE, DIMENSION (:) :: lt, lb
+  REAL, ALLOCATABLE, SAVE, DIMENSION (:) :: aist, aisb
+  !$OMP THREADPRIVATE(lt,lb,aist,aisb)
+  REAL, SAVE :: ptop, pbot
+  !$OMP THREADPRIVATE(ptop, pbot)
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(first)
+  INTEGER i, k
+
+! REAL missing_val
+#ifndef CPP_XIOS
+  REAL :: missing_val
+#endif
+
+! missing_val = nf90_fill_real
+
+#ifndef CPP_XIOS
+      missing_val=missing_val_nf90
+#endif
+
+  IF (first) THEN
+    ALLOCATE (lt(klon), lb(klon), aist(klon), aisb(klon))
+    first = .FALSE.
+  END IF
+
+  ! =====================================================================
+  IF (lnew) THEN
+    ! on r�nitialise les r�ndicages et les poids
+    ! =====================================================================
+
+
+    ! Chercher les 2 couches les plus proches du niveau a obtenir
+
+    ! Eventuellement, faire l'extrapolation a partir des deux couches
+    ! les plus basses ou les deux couches les plus hautes:
+    DO i = 1, klon
+      IF (abs(pres-pgcm(i,ilev))<abs(pres-pgcm(i,1))) THEN
+        lt(i) = ilev ! 2
+        lb(i) = ilev - 1 ! 1
+      ELSE
+        lt(i) = 2
+        lb(i) = 1
+      END IF
+    END DO
+    DO k = 1, ilev - 1
+      DO i = 1, klon
+        pbot = pgcm(i, k)
+        ptop = pgcm(i, k+1)
+        IF (ptop<=pres .AND. pbot>=pres) THEN
+          lt(i) = k + 1
+          lb(i) = k
+        END IF
+      END DO
+    END DO
+
+    ! Interpolation lineaire:
+
+    DO i = 1, klon
+      ! interpolation en logarithme de pression:
+
+      ! ...   Modif . P. Le Van    ( 20/01/98) ....
+      ! Modif Fr��ic Hourdin (3/01/02)
+
+      aist(i) = log(pgcm(i,lb(i))/pres)/log(pgcm(i,lb(i))/pgcm(i,lt(i)))
+      aisb(i) = log(pres/pgcm(i,lt(i)))/log(pgcm(i,lb(i))/pgcm(i,lt(i)))
+    END DO
+
+
+  END IF ! lnew
+
+  ! ======================================================================
+  ! inteprollation
+  ! ======================================================================
+
+  DO i = 1, klon
+    qpres(i) = qgcm(i, lb(i))*aisb(i) + qgcm(i, lt(i))*aist(i)
+  END DO
+
+  ! Je mets les vents a zero quand je rencontre une montagne
+  DO i = 1, klon
+    IF (pgcm(i,1)<pres) THEN
+      qpres(i) = missing_val
+    END IF
+  END DO
+
+
+  RETURN
+END SUBROUTINE plevel
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/plevel_new.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/plevel_new.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/plevel_new.F90	(revision 3330)
@@ -0,0 +1,148 @@
+
+! $Header: /home/cvsroot/LMDZ4/libf/phylmd/plevel.F,v 1.1.1.1.10.1 2006/08/17
+! 15:41:51 fairhead Exp $
+
+! ================================================================
+! ================================================================
+SUBROUTINE plevel_new(ilon, ilev, klevstd, lnew, pgcm, pres, qgcm, qpres)
+  ! ================================================================
+  ! ================================================================
+  USE netcdf
+  USE dimphy
+#ifdef CPP_IOIPSL 
+  USE phys_state_var_mod, ONLY: missing_val_nf90
+#endif
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val
+#endif
+
+  IMPLICIT NONE
+
+  ! ================================================================
+
+  ! Interpoler des champs 3-D u, v et g du modele a un niveau de
+  ! pression donnee (pres)
+
+  ! INPUT:  ilon ----- nombre de points
+  ! ilev ----- nombre de couches
+  ! lnew ----- true si on doit reinitialiser les poids
+  ! pgcm ----- pressions modeles
+  ! pres ----- pression vers laquelle on interpolle
+  ! Qgcm ----- champ GCM
+  ! Qpres ---- champ interpolle au niveau pres
+
+  ! ================================================================
+
+  ! arguments :
+  ! -----------
+
+  INTEGER ilon, ilev, klevstd
+  LOGICAL lnew
+
+  REAL pgcm(ilon, ilev)
+  REAL qgcm(ilon, ilev)
+  REAL pres(klevstd)
+  REAL qpres(ilon, klevstd)
+
+  ! local :
+  ! -------
+
+  ! ym      INTEGER lt(klon), lb(klon)
+  ! ym      REAL ptop, pbot, aist(klon), aisb(klon)
+
+  ! ym      save lt,lb,ptop,pbot,aist,aisb
+  INTEGER, ALLOCATABLE, SAVE, DIMENSION (:, :) :: lt, lb
+  REAL, ALLOCATABLE, SAVE, DIMENSION (:, :) :: aist, aisb
+  !$OMP THREADPRIVATE(lt,lb,aist,aisb)
+  REAL, SAVE :: ptop, pbot
+  !$OMP THREADPRIVATE(ptop, pbot)
+  LOGICAL, SAVE :: first = .TRUE.
+  INTEGER :: nlev
+  !$OMP THREADPRIVATE(first)
+  INTEGER i, k
+
+! REAL missing_val
+#ifndef CPP_XIOS
+  REAL :: missing_val
+#endif
+
+! missing_val = nf90_fill_real
+
+#ifndef CPP_XIOS
+      missing_val=missing_val_nf90
+#endif
+
+  IF (first) THEN
+    ALLOCATE (lt(klon,klevstd), lb(klon,klevstd))
+    ALLOCATE (aist(klon,klevstd), aisb(klon,klevstd))
+    first = .FALSE.
+  END IF
+
+  ! =====================================================================
+  IF (lnew) THEN
+    ! on reinitialise les reindicages et les poids
+    ! =====================================================================
+
+
+    ! Chercher les 2 couches les plus proches du niveau a obtenir
+
+    ! Eventuellement, faire l'extrapolation a partir des deux couches
+    ! les plus basses ou les deux couches les plus hautes:
+
+
+    DO nlev = 1, klevstd
+      DO i = 1, klon
+        IF (abs(pres(nlev)-pgcm(i,ilev))<abs(pres(nlev)-pgcm(i,1))) THEN
+          lt(i, nlev) = ilev ! 2
+          lb(i, nlev) = ilev - 1 ! 1
+        ELSE
+          lt(i, nlev) = 2
+          lb(i, nlev) = 1
+        END IF
+      END DO
+      DO k = 1, ilev - 1
+        DO i = 1, klon
+          pbot = pgcm(i, k)
+          ptop = pgcm(i, k+1)
+          IF (ptop<=pres(nlev) .AND. pbot>=pres(nlev)) THEN
+            lt(i, nlev) = k + 1
+            lb(i, nlev) = k
+          END IF
+        END DO
+      END DO
+
+      ! Interpolation lineaire:
+      DO i = 1, klon
+        ! interpolation en logarithme de pression:
+
+        ! ...   Modif . P. Le Van    ( 20/01/98) ....
+        ! Modif Frederic Hourdin (3/01/02)
+
+        aist(i, nlev) = log(pgcm(i,lb(i,nlev))/pres(nlev))/log(pgcm(i,lb(i, &
+          nlev))/pgcm(i,lt(i,nlev)))
+        aisb(i, nlev) = log(pres(nlev)/pgcm(i,lt(i,nlev)))/log(pgcm(i,lb(i, &
+          nlev))/pgcm(i,lt(i,nlev)))
+      END DO
+    END DO
+
+  END IF ! lnew
+
+  ! ======================================================================
+  ! inteprollation
+  ! ET je mets les vents a zero quand je rencontre une montagne
+  ! ======================================================================
+
+  DO nlev = 1, klevstd
+    DO i = 1, klon
+      IF (pgcm(i,1)<pres(nlev)) THEN
+        qpres(i, nlev) = missing_val
+      ELSE
+        qpres(i, nlev) = qgcm(i, lb(i,nlev))*aisb(i, nlev) + &
+          qgcm(i, lt(i,nlev))*aist(i, nlev)
+      END IF
+    END DO
+  END DO
+
+
+  RETURN
+END SUBROUTINE plevel_new
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/pppmer.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/pppmer.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/pppmer.F90	(revision 3330)
@@ -0,0 +1,161 @@
+SUBROUTINE PPPMER(KPROMA,KSTART,KPROF,PRPRESS,POROG,PTSTAR,PT0,PMSLPPP)
+
+!**** *PPPMER* - POST-PROCESS MSL PRESSURE.
+
+!     PURPOSE.
+!     --------
+!           COMPUTES MSL PRESSURE.
+
+!**   INTERFACE.
+!     ----------
+
+!        *CALL* *PPPMER(KPROMA,KSTART,KPROF,PRPRESS,POROG,PTSTAR,PT0,
+!    S                  PMSLPPP)
+
+!        EXPLICIT ARGUMENTS
+!        --------------------
+
+
+!        KPROMA                    - HORIZONTAL DIMENSION.             (INPUT)
+!        KSTART                    - START OF WORK.                    (INPUT)
+!        KPROF                     - DEPTH OF WORK.                    (INPUT)
+!        PRPRESS(KPROMA)           - SURFACE PRESSURE                  (INPUT)
+!        POROG(KPROMA)             - MODEL OROGRAPHY.                  (INPUT)
+!        PTSTAR(KPROMA)            - SURFACE TEMPERATURE               (INPUT)
+!        PT0(KPROMA)               - STANDARD SURFACE TEMPERATURE      (INPUT)
+!        PMSLPPP(KPROMA)           - POST-PROCESSED MSL PRESSURE       (OUTPUT)
+!        IMPLICIT ARGUMENTS :  CONSTANTS FROM YOMCST,YOMGEM,YOMSTA.
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.  NONE
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        MATS HAMRUD AND PHILIPPE COURTIER  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-01-26
+
+!     E. A-son, J-F Geleyn 920409 Mod. T*, T0 and alpha below surface.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+! USE PARKIND1 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/parkind1.F90.php#parkind1>  ,ONLY : JPIM     ,JPRB
+! USE YOMHOOK 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/module/yomhook.F90.php#yomhook>   ,ONLY : LHOOK,   DR_HOOK
+
+!USE YOMCST, ONLY : RG, RD
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomcst.F90.php#yomcst>   , ONLY : RG
+
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/support/rg.F.php#rg>       ,RD
+! USE YOMSTA 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
+
+  IMPLICIT NONE
+
+include "YOMCST.h"
+!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA
+!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART
+!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF
+ INTEGER,INTENT(IN)    :: KPROMA
+ INTEGER,INTENT(IN)    :: KSTART
+ INTEGER,INTENT(IN)    :: KPROF
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: PRPRESS(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: POROG(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: PTSTAR(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(IN)    :: PT0(KPROMA)
+!IM REAL(KIND=JPRB)   ,INTENT(OUT)   :: PMSLPPP(KPROMA)
+!IM REAL(KIND=JPRB) :: ZTSTAR(KPROMA)
+!IM REAL(KIND=JPRB) :: ZALPHA(KPROMA)
+ REAL,INTENT(IN)    :: PRPRESS(KPROMA)
+ REAL,INTENT(IN)    :: POROG(KPROMA)
+ REAL,INTENT(IN)    :: PTSTAR(KPROMA)
+ REAL,INTENT(IN)    :: PT0(KPROMA)
+ REAL,INTENT(OUT)   :: PMSLPPP(KPROMA)
+ REAL :: ZTSTAR(KPROMA)
+ REAL :: ZALPHA(KPROMA)
+
+!IM INTEGER(KIND=JPIM) :: JL
+ INTEGER :: JL
+
+!IM REAL(KIND=JPRB) :: ZDTDZSG, ZOROG, ZT0, ZTX, ZTY, ZX, ZY, ZY2
+!IM REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ REAL :: ZDTDZSG, ZOROG, ZT0, ZTX, ZTY, ZX, ZY, ZY2
+ REAL :: ZHOOK_HANDLE
+!IM beg
+REAL, PARAMETER                  :: RDTDZ1=-0.0065 !or USE YOMSTA
+!IM end
+
+!     ------------------------------------------------------------------
+
+!*       1.    POST-PROCESS MSL PRESSURE.
+!              --------------------------
+
+!*       1.1   COMPUTATION OF MODIFIED ALPHA AND TSTAR.
+
+!IM IF (LHOOK) CALL DR_HOOK('PPPMER',0,ZHOOK_HANDLE)
+!IM ZTX=290.5_JPRB
+!IM ZTY=255.0_JPRB
+ ZTX=290.5
+ ZTY=255.0
+ ZDTDZSG=-RDTDZ1/RG 
+!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/xrd/support/rg.F.php#rg>
+ DO JL=KSTART,KPROF
+
+   IF(PTSTAR(JL) < ZTY) THEN
+!IM  ZTSTAR(JL)=0.5_JPRB*(ZTY+PTSTAR(JL))
+     ZTSTAR(JL)=0.5*(ZTY+PTSTAR(JL))
+   ELSEIF(PTSTAR(JL) < ZTX) THEN
+     ZTSTAR(JL)=PTSTAR(JL)
+   ELSE
+!IM    ZTSTAR(JL)=0.5_JPRB*(ZTX+PTSTAR(JL))
+     ZTSTAR(JL)=0.5*(ZTX+PTSTAR(JL))
+   ENDIF
+
+   ZT0=ZTSTAR(JL)+ZDTDZSG*POROG(JL)
+   IF(ZTX > ZTSTAR(JL) .AND. ZT0 > ZTX) THEN
+     ZT0=ZTX
+   ELSEIF(ZTX <= ZTSTAR(JL) .AND. ZT0 > ZTSTAR(JL)) THEN
+     ZT0=ZTSTAR(JL)
+   ELSE
+     ZT0=PT0(JL)
+   ENDIF
+
+!IM  ZOROG=SIGN(MAX(1.0_JPRB,ABS(POROG(JL))),POROG(JL))
+   ZOROG=SIGN(MAX(1.0,ABS(POROG(JL))),POROG(JL))
+   ZALPHA(JL)=RD*(ZT0-ZTSTAR(JL))/ZOROG
+ ENDDO
+
+!*       1.2   COMPUTATION OF MSL PRESSURE.
+
+ DO JL=KSTART,KPROF
+!IM  IF (ABS(POROG(JL)) >= 0.001_JPRB) THEN
+   IF (ABS(POROG(JL)) >= 0.001) THEN
+     ZX=POROG(JL)/(RD*ZTSTAR(JL))
+     ZY=ZALPHA(JL)*ZX
+     ZY2=ZY*ZY
+
+!IM    PMSLPPP(JL)=PRPRESS(JL)*EXP(ZX*(1.0_JPRB-0.5_JPRB*ZY+1.0_JPRB/3._JPRB*ZY2))
+     PMSLPPP(JL)=PRPRESS(JL)*EXP(ZX*(1.0-0.5*ZY+1.0/3.*ZY2))
+   ELSE
+     PMSLPPP(JL)=PRPRESS(JL)
+   ENDIF
+ ENDDO
+
+
+!     ------------------------------------------------------------------
+
+!IM IF (LHOOK) CALL DR_HOOK('PPPMER',1,ZHOOK_HANDLE)
+ END SUBROUTINE PPPMER
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/press_coefoz_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/press_coefoz_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/press_coefoz_m.F90	(revision 3330)
@@ -0,0 +1,74 @@
+! $Id$
+module press_coefoz_m
+
+  implicit none
+
+  real, pointer, save:: plev(:)
+  ! (pressure level of Mobidic input data, converted to Pa, in strictly
+  ! ascending order)
+
+  real, allocatable, save:: press_in_edg(:)
+  ! (edges of pressure intervals for Mobidic input data, in Pa, in strictly
+  ! ascending order)
+
+contains
+
+  subroutine press_coefoz
+
+    ! This procedure is called once per "gcm" run.
+    ! A single thread of the root process reads the pressure levels
+    ! from "coefoz_LMDZ.nc" and broadcasts them to the other processes.
+
+    ! We assume that, in "coefoz_LMDZ.nc", the pressure levels are in hPa
+    ! and in strictly ascending order.
+
+    use netcdf95, only: nf95_open, nf95_close, nf95_gw_var, nf95_inq_varid
+    use netcdf, only: nf90_nowrite
+
+    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    use mod_phys_lmdz_mpi_transfert, only: bcast_mpi ! broadcast
+
+    ! Variables local to the procedure:
+    integer ncid, varid ! for NetCDF
+    integer n_plev ! number of pressure levels in the input data
+    integer k
+
+    !---------------------------------------
+
+    !$omp single
+    print *, "Call sequence information: press_coefoz"
+
+    if (is_mpi_root) then
+       call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
+
+       call nf95_inq_varid(ncid, "plev", varid)
+       call nf95_gw_var(ncid, varid, plev)
+       ! Convert from hPa to Pa because "paprs" and "pplay" are in Pa:
+       plev = plev * 100.
+       n_plev = size(plev)
+
+       call nf95_close(ncid)
+    end if
+
+    call bcast_mpi(n_plev)
+    if (.not. is_mpi_root) allocate(plev(n_plev))
+    call bcast_mpi(plev)
+    
+    ! Compute edges of pressure intervals:
+    allocate(press_in_edg(n_plev + 1))
+    if (is_mpi_root) then
+       press_in_edg(1) = 0.
+       ! We choose edges halfway in logarithm:
+       DO k = 2,n_plev
+          press_in_edg(k) = SQRT(plev(k - 1) * plev(k))
+       ENDDO
+       press_in_edg(n_plev + 1) = huge(0.)
+       ! (infinity, but any value guaranteed to be greater than the
+       ! surface pressure would do)
+    end if
+    call bcast_mpi(press_in_edg)
+    !$omp end single
+
+  end subroutine press_coefoz
+
+end module press_coefoz_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/print_debug_phys.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/print_debug_phys.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/print_debug_phys.F90	(revision 3330)
@@ -0,0 +1,21 @@
+SUBROUTINE print_debug_phys (i,debug_lev,text)
+
+USE dimphy, ONLY: klev
+USE phys_local_var_mod, ONLY: u_seri, v_seri, t_seri, q_seri, ql_seri
+USE geometry_mod, ONLY: longitude_deg, latitude_deg
+IMPLICIT NONE
+integer i,debug_lev
+CHARACTER*(*) text
+
+
+integer k
+
+print*,'PLANTAGE POUR LE POINT i=',i,text
+print*,'l    u, v, T, q, ql'
+DO k = 1, klev
+   write(*,'(i3,2f8.4,3f14.4,2e14.2)') k,longitude_deg(i),latitude_deg(i), &
+   u_seri(i,k),v_seri(i,k),t_seri(i,k),q_seri(i,k),ql_seri(i,k)
+ENDDO
+
+RETURN
+END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/printflag.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/printflag.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/printflag.F90	(revision 3330)
@@ -0,0 +1,190 @@
+
+! $Header$
+
+SUBROUTINE printflag(tabcntr0, radpas, ok_journe, ok_instan, ok_region)
+
+
+
+  ! Auteur :  P. Le Van
+
+  IMPLICIT NONE
+
+  REAL tabcntr0(100)
+  LOGICAL cycle_diurn0, soil_model0, new_oliq0, ok_orodr0
+  LOGICAL ok_orolf0, ok_limitvr0
+  LOGICAL ok_journe, ok_instan, ok_region
+  INTEGER radpas, radpas0
+
+  include "clesphys.h"
+
+
+  PRINT 100
+  PRINT *, ' ******************************************************* &
+    &                                                         &
+    &  ************'
+  PRINT *, ' ********   Choix  des principales  cles de la physique &
+    &                                                         &
+    &      *********'
+  PRINT *, ' ******************************************************* &
+    &                                                         &
+    &  ************'
+  PRINT 100
+  PRINT 10, cycle_diurne, soil_model
+  PRINT 100
+
+  IF (iflag_con==1) THEN
+    PRINT *, ' *****           Shema  convection   LMD        &
+      &                                                       &
+      &                   ******'
+  ELSE IF (iflag_con==2) THEN
+    PRINT *, ' *****           Shema  convection  Tiedtke     &
+      &                                                       &
+      &                   ******'
+  ELSE IF (iflag_con>=3) THEN
+    PRINT *, ' *****           Shema  convection    Emanuel   &
+      &                                                       &
+      &                   ******'
+  END IF
+  PRINT 100
+
+  PRINT 11, new_oliq, ok_orodr, ok_orolf
+  PRINT 100
+
+  PRINT 7, ok_limitvrai
+  PRINT 100
+
+  PRINT 12, nbapp_rad
+  PRINT 100
+
+  PRINT 8, radpas
+  PRINT 100
+
+  PRINT 4, ok_journe, ok_instan, ok_region
+  PRINT 100
+  PRINT 100
+
+
+  cycle_diurn0 = .FALSE.
+  soil_model0 = .FALSE.
+  new_oliq0 = .FALSE.
+  ok_orodr0 = .FALSE.
+  ok_orolf0 = .FALSE.
+  ok_limitvr0 = .FALSE.
+
+  IF (tabcntr0(7)==1.) cycle_diurn0 = .TRUE.
+  IF (tabcntr0(8)==1.) soil_model0 = .TRUE.
+  IF (tabcntr0(9)==1.) new_oliq0 = .TRUE.
+  IF (tabcntr0(10)==1.) ok_orodr0 = .TRUE.
+  IF (tabcntr0(11)==1.) ok_orolf0 = .TRUE.
+  IF (tabcntr0(12)==1.) ok_limitvr0 = .TRUE.
+
+  PRINT *, ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ &
+    &                                                         &
+    & $$$$$$$$$$$$$'
+  PRINT 100
+
+  IF (int(tabcntr0(5))/=iflag_con) THEN
+    PRINT 20, int(tabcntr0(5)), iflag_con
+    PRINT 100
+  END IF
+
+  IF (int(tabcntr0(6))/=nbapp_rad) THEN
+    PRINT 21, int(tabcntr0(6)), nbapp_rad
+    ! radpas0  = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) )
+    PRINT 100
+    ! PRINT 22, radpas0, radpas
+    PRINT 100
+  END IF
+
+  IF (cycle_diurn0 .AND. .NOT. cycle_diurne .OR. .NOT. cycle_diurn0 .AND. &
+      cycle_diurne) THEN
+    PRINT 13, cycle_diurn0, cycle_diurne
+    PRINT 100
+  END IF
+
+  IF (soil_model0 .AND. .NOT. soil_model .OR. .NOT. soil_model0 .AND. &
+      soil_model) THEN
+    PRINT 14, soil_model0, soil_model
+    PRINT 100
+  END IF
+
+  IF (new_oliq0 .AND. .NOT. new_oliq .OR. .NOT. new_oliq0 .AND. new_oliq) &
+      THEN
+    PRINT 16, new_oliq0, new_oliq
+    PRINT 100
+  END IF
+
+  IF (ok_orodr0 .AND. .NOT. ok_orodr .OR. .NOT. ok_orodr0 .AND. ok_orodr) &
+      THEN
+    PRINT 15, ok_orodr0, ok_orodr
+    PRINT 100
+  END IF
+
+  IF (ok_orolf0 .AND. .NOT. ok_orolf .OR. .NOT. ok_orolf0 .AND. ok_orolf) &
+      THEN
+    PRINT 17, ok_orolf0, ok_orolf
+    PRINT 100
+  END IF
+
+  IF (ok_limitvr0 .AND. .NOT. ok_limitvrai .OR. .NOT. ok_limitvr0 .AND. &
+      ok_limitvrai) THEN
+    PRINT 18, ok_limitvr0, ok_limitvrai
+    PRINT 100
+  END IF
+
+  PRINT 100
+  PRINT *, ' ******************************************************* &
+    &                                                         &
+    &  ************'
+  PRINT 100
+
+4 FORMAT (2X, 5('*'), '  ok_journe= ', L3, 3X, ',ok_instan = ', L3, 3X, &
+    ',ok_region = ', L3, 3X, 5('*'))
+
+7 FORMAT (2X, 5('*'), 15X, '      ok_limitvrai   = ', L3, 16X, 5('*'))
+
+8 FORMAT (2X, '*****             radpas    =                      ', I4, 6X, &
+    ' *****')
+
+10 FORMAT (2X, 5('*'), '    Cycle_diurne = ', L3, 4X, ', Soil_model = ', L3, &
+    12X, 6('*'))
+
+
+11 FORMAT (2X, 5('*'), '  new_oliq = ', L3, 3X, ', Ok_orodr = ', L3, 3X, &
+    ', Ok_orolf = ', L3, 3X, 5('*'))
+
+
+12 FORMAT (2X, '*****  Nb d appels /jour des routines de rayonn. = ', I4, 6X, &
+    ' *****')
+
+13 FORMAT (2X, '$$$$$$$$   Attention !!  cycle_diurne  different  sur', /1X, &
+    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)
+
+14 FORMAT (2X, '$$$$$$$$   Attention !!    soil_model  different  sur', /1X, &
+    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)
+
+15 FORMAT (2X, '$$$$$$$$   Attention !!      ok_orodr  different  sur', /1X, &
+    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)
+
+16 FORMAT (2X, '$$$$$$$$   Attention !!      new_oliq  different  sur', /1X, &
+    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)
+
+17 FORMAT (2X, '$$$$$$$$   Attention !!      ok_orolf  different  sur', /1X, &
+    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)
+
+18 FORMAT (2X, '$$$$$$$$   Attention !!  ok_limitvrai  different  sur', /1X, &
+    10X, ' startphy = ', L3, 2X, ' et  run.def = ', L3)
+
+20 FORMAT (/2X, '$$$$$$$$   Attention !!    iflag_con  different  sur', /1X, &
+    10X, ' startphy = ', I3, 2X, ' et  run.def = ', I3)
+
+21 FORMAT (2X, '$$$$$$$$   Attention !!     nbapp_rad  different  sur', /1X, &
+    10X, ' startphy = ', I3, 2X, ' et  run.def = ', I3)
+
+22 FORMAT (2X, '$$$$$$$$   Attention !!        radpas  different  sur', /1X, &
+    10X, ' startphy = ', I3, 2X, ' et  run.def = ', I3)
+
+100 FORMAT (/)
+
+  RETURN
+END SUBROUTINE printflag
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/qcheck.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/qcheck.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/qcheck.F90	(revision 3330)
@@ -0,0 +1,29 @@
+FUNCTION qcheck(klon,klev,paprs,q,ql,aire)
+  IMPLICIT none
+  !
+  ! Calculer et imprimer l'eau totale. A utiliser pour verifier
+  ! la conservation de l'eau
+  !
+  include "YOMCST.h"
+  INTEGER,INTENT(IN) :: klon,klev
+  REAL,INTENT(IN) :: paprs(klon,klev+1), q(klon,klev), ql(klon,klev)
+  REAL,INTENT(IN) :: aire(klon)
+  REAL qtotal, zx, qcheck
+  INTEGER i, k
+  !
+  zx = 0.0
+  DO i = 1, klon
+     zx = zx + aire(i)
+  ENDDO
+  qtotal = 0.0
+  DO k = 1, klev
+     DO i = 1, klon
+        qtotal = qtotal + (q(i,k)+ql(i,k)) * aire(i) &
+             *(paprs(i,k)-paprs(i,k+1))/RG
+     ENDDO
+  ENDDO
+  !
+  qcheck = qtotal/zx
+  !
+END FUNCTION qcheck
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.160.98.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.160.98.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.160.98.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=78,kflev=klev) ! 78*199
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.192.143.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.192.143.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.192.143.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+       INTEGER kdlon, kflev
+      PARAMETER (kdlon=10,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.32.24.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.32.24.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.32.24.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=klon,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.48.32.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.48.32.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.48.32.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=149,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.72.46.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.72.46.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.72.46.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=1621,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.96.72.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.96.72.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.96.72.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=487,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.defaut.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.defaut.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.defaut.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=klon,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddim.h	(revision 3330)
@@ -0,0 +1,5 @@
+!
+! $Header$
+!
+      INTEGER kdlon, kflev
+      PARAMETER (kdlon=149,kflev=klev)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddimlw.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddimlw.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/raddimlw.h	(revision 3330)
@@ -0,0 +1,11 @@
+!
+! $Header$
+!
+      INTEGER NUA
+      PARAMETER (NUA=24)
+      INTEGER NTRA
+      PARAMETER (NTRA=15)
+      INTEGER Ninter
+      PARAMETER (Ninter=6)
+      INTEGER NG1, NG1P1
+      PARAMETER (NG1=2, NG1P1=NG1+1)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radepsi.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radepsi.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radepsi.h	(revision 3330)
@@ -0,0 +1,16 @@
+!
+! $Header$
+!
+      REAL(KIND=8) ZEELOG, ZEPSC, ZEPSCO, ZEPSCQ, ZEPSCT, ZEPSCW
+      REAL(KIND=8) ZEPSEC, ZEPSCR
+      PARAMETER (ZEELOG = 1.E-07) !1.e-10 (not good for 32-bit machines)
+      PARAMETER (ZEPSC  = 1.E-20)
+      PARAMETER (ZEPSCO = 1.E-10)
+      PARAMETER (ZEPSCQ = 1.E-10)
+      PARAMETER (ZEPSCT = 1.E-20)
+      PARAMETER (ZEPSCW = 1.E-20)
+      PARAMETER (ZEPSEC = 1.0E-12)
+      PARAMETER (ZEPSCR = 1.0E-10)
+!
+      REAL(KIND=8) REPSCT
+      PARAMETER (REPSCT=1.0E-10)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radiation_AR4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radiation_AR4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radiation_AR4.F90	(revision 3330)
@@ -0,0 +1,5715 @@
+! IM ctes ds clesphys.h   SUBROUTINE SW(PSCT, RCO2, PRMU0, PFRAC,
+SUBROUTINE sw_lmdar4(psct, prmu0, pfrac, ppmb, pdp, ppsol, palbd, palbp, &
+    ptave, pwv, pqs, pozon, paer, pcldsw, ptau, pomega, pcg, pheat, pheat0, &
+    palbpla, ptopsw, psolsw, ptopsw0, psolsw0, zfsup, zfsdn, zfsup0, zfsdn0, &
+    tauae, pizae, cgae, ptaua, pomegaa, ptopswad, psolswad, ptopswai, &
+    psolswai, ok_ade, ok_aie)
+  USE dimphy
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+
+  ! ------------------------------------------------------------------
+
+  ! PURPOSE.
+  ! --------
+
+  ! THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+  ! SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+  ! METHOD.
+  ! -------
+
+  ! 1. COMPUTES ABSORBER AMOUNTS                 (SWU)
+  ! 2. COMPUTES FLUXES IN 1ST SPECTRAL INTERVAL  (SW1S)
+  ! 3. COMPUTES FLUXES IN 2ND SPECTRAL INTERVAL  (SW2S)
+
+  ! 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
+  ! 03-11-27   J. QUAAS Introduce aerosol forcings (based on BOUCHER)
+  ! ------------------------------------------------------------------
+
+  ! * ARGUMENTS:
+
+  REAL (KIND=8) psct ! constante solaire (valeur conseillee: 1370)
+  ! IM ctes ds clesphys.h   REAL(KIND=8) RCO2  ! concentration CO2 (IPCC:
+  ! 353.E-06*44.011/28.97)
+  include "clesphys.h"
+
+  REAL (KIND=8) ppsol(kdlon) ! SURFACE PRESSURE (PA)
+  REAL (KIND=8) pdp(kdlon, kflev) ! LAYER THICKNESS (PA)
+  REAL (KIND=8) ppmb(kdlon, kflev+1) ! HALF-LEVEL PRESSURE (MB)
+
+  REAL (KIND=8) prmu0(kdlon) ! COSINE OF ZENITHAL ANGLE
+  REAL (KIND=8) pfrac(kdlon) ! fraction de la journee
+
+  REAL (KIND=8) ptave(kdlon, kflev) ! LAYER TEMPERATURE (K)
+  REAL (KIND=8) pwv(kdlon, kflev) ! SPECIFIC HUMIDITY (KG/KG)
+  REAL (KIND=8) pqs(kdlon, kflev) ! SATURATED WATER VAPOUR (KG/KG)
+  REAL (KIND=8) pozon(kdlon, kflev) ! OZONE CONCENTRATION (KG/KG)
+  REAL (KIND=8) paer(kdlon, kflev, 5) ! AEROSOLS' OPTICAL THICKNESS
+
+  REAL (KIND=8) palbd(kdlon, 2) ! albedo du sol (lumiere diffuse)
+  REAL (KIND=8) palbp(kdlon, 2) ! albedo du sol (lumiere parallele)
+
+  REAL (KIND=8) pcldsw(kdlon, kflev) ! CLOUD FRACTION
+  REAL (KIND=8) ptau(kdlon, 2, kflev) ! CLOUD OPTICAL THICKNESS
+  REAL (KIND=8) pcg(kdlon, 2, kflev) ! ASYMETRY FACTOR
+  REAL (KIND=8) pomega(kdlon, 2, kflev) ! SINGLE SCATTERING ALBEDO
+
+  REAL (KIND=8) pheat(kdlon, kflev) ! SHORTWAVE HEATING (K/DAY)
+  REAL (KIND=8) pheat0(kdlon, kflev) ! SHORTWAVE HEATING (K/DAY) clear-sky
+  REAL (KIND=8) palbpla(kdlon) ! PLANETARY ALBEDO
+  REAL (KIND=8) ptopsw(kdlon) ! SHORTWAVE FLUX AT T.O.A.
+  REAL (KIND=8) psolsw(kdlon) ! SHORTWAVE FLUX AT SURFACE
+  REAL (KIND=8) ptopsw0(kdlon) ! SHORTWAVE FLUX AT T.O.A. (CLEAR-SKY)
+  REAL (KIND=8) psolsw0(kdlon) ! SHORTWAVE FLUX AT SURFACE (CLEAR-SKY)
+
+  ! * LOCAL VARIABLES:
+
+  REAL, PARAMETER :: dobson_u = 2.1415E-05 ! Dobson unit, in kg m-2
+
+  REAL (KIND=8) zoz(kdlon, kflev)
+  ! column-density of ozone in layer, in kilo-Dobsons
+
+  REAL (KIND=8) zaki(kdlon, 2)
+  REAL (KIND=8) zcld(kdlon, kflev)
+  REAL (KIND=8) zclear(kdlon)
+  REAL (KIND=8) zdsig(kdlon, kflev)
+  REAL (KIND=8) zfact(kdlon)
+  REAL (KIND=8) zfd(kdlon, kflev+1)
+  REAL (KIND=8) zfdown(kdlon, kflev+1)
+  REAL (KIND=8) zfu(kdlon, kflev+1)
+  REAL (KIND=8) zfup(kdlon, kflev+1)
+  REAL (KIND=8) zrmu(kdlon)
+  REAL (KIND=8) zsec(kdlon)
+  REAL (KIND=8) zud(kdlon, 5, kflev+1)
+  REAL (KIND=8) zcldsw0(kdlon, kflev)
+
+  REAL (KIND=8) zfsup(kdlon, kflev+1)
+  REAL (KIND=8) zfsdn(kdlon, kflev+1)
+  REAL (KIND=8) zfsup0(kdlon, kflev+1)
+  REAL (KIND=8) zfsdn0(kdlon, kflev+1)
+
+  INTEGER inu, jl, jk, i, k, kpl1
+
+  INTEGER swpas ! Every swpas steps, sw is calculated
+  PARAMETER (swpas=1)
+
+  INTEGER itapsw
+  LOGICAL appel1er
+  DATA itapsw/0/
+  DATA appel1er/.TRUE./
+  SAVE itapsw, appel1er
+  !$OMP THREADPRIVATE(appel1er)
+  !$OMP THREADPRIVATE(itapsw)
+  ! jq-Introduced for aerosol forcings
+  REAL (KIND=8) flag_aer
+  LOGICAL ok_ade, ok_aie ! use aerosol forcings or not?
+  REAL (KIND=8) tauae(kdlon, kflev, 2) ! aerosol optical properties
+  REAL (KIND=8) pizae(kdlon, kflev, 2) ! (see aeropt.F)
+  REAL (KIND=8) cgae(kdlon, kflev, 2) ! -"-
+  REAL (KIND=8) ptaua(kdlon, 2, kflev) ! CLOUD OPTICAL THICKNESS (pre-industrial value)
+  REAL (KIND=8) pomegaa(kdlon, 2, kflev) ! SINGLE SCATTERING ALBEDO
+  REAL (KIND=8) ptopswad(kdlon) ! SHORTWAVE FLUX AT T.O.A.(+AEROSOL DIR)
+  REAL (KIND=8) psolswad(kdlon) ! SHORTWAVE FLUX AT SURFACE(+AEROSOL DIR)
+  REAL (KIND=8) ptopswai(kdlon) ! SHORTWAVE FLUX AT T.O.A.(+AEROSOL IND)
+  REAL (KIND=8) psolswai(kdlon) ! SHORTWAVE FLUX AT SURFACE(+AEROSOL IND)
+  ! jq - Fluxes including aerosol effects
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zfsupad(:, :)
+  !$OMP THREADPRIVATE(ZFSUPAD)
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zfsdnad(:, :)
+  !$OMP THREADPRIVATE(ZFSDNAD)
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zfsupai(:, :)
+  !$OMP THREADPRIVATE(ZFSUPAI)
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zfsdnai(:, :)
+  !$OMP THREADPRIVATE(ZFSDNAI)
+  LOGICAL initialized
+  ! ym      SAVE ZFSUPAD, ZFSDNAD, ZFSUPAI, ZFSDNAI ! aerosol fluxes
+  ! rv
+  SAVE flag_aer
+  !$OMP THREADPRIVATE(flag_aer)
+  DATA initialized/.FALSE./
+  SAVE initialized
+  !$OMP THREADPRIVATE(initialized)
+  ! jq-end
+  REAL tmp_
+
+  IF (.NOT. initialized) THEN
+    flag_aer = 0.
+    initialized = .TRUE.
+    ALLOCATE (zfsupad(kdlon,kflev+1))
+    ALLOCATE (zfsdnad(kdlon,kflev+1))
+    ALLOCATE (zfsupai(kdlon,kflev+1))
+    ALLOCATE (zfsdnai(kdlon,kflev+1))
+
+    zfsupad(:, :) = 0.
+    zfsdnad(:, :) = 0.
+    zfsupai(:, :) = 0.
+    zfsdnai(:, :) = 0.
+  END IF
+
+  IF (appel1er) THEN
+    WRITE (lunout, *) 'SW calling frequency : ', swpas
+    WRITE (lunout, *) '   In general, it should be 1'
+    appel1er = .FALSE.
+  END IF
+  ! ------------------------------------------------------------------
+  IF (mod(itapsw,swpas)==0) THEN
+
+    tmp_ = 1./(dobson_u*1E3*rg)
+    ! cdir collapse
+    DO jk = 1, kflev
+      DO jl = 1, kdlon
+        zcldsw0(jl, jk) = 0.0
+        zoz(jl, jk) = pozon(jl, jk)*tmp_*pdp(jl, jk)
+      END DO
+    END DO
+
+
+    ! clear-sky:
+    ! IM ctes ds clesphys.h  CALL SWU(PSCT,RCO2,ZCLDSW0,PPMB,PPSOL,
+    CALL swu_lmdar4(psct, zcldsw0, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
+      zaki, zcld, zclear, zdsig, zfact, zrmu, zsec, zud)
+    inu = 1
+    CALL sw1s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, &
+      pcg, zcld, zclear, zcldsw0, zdsig, pomega, zoz, zrmu, zsec, ptau, zud, &
+      zfd, zfu)
+    inu = 2
+    CALL sw2s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, zaki, palbd, &
+      palbp, pcg, zcld, zclear, zcldsw0, zdsig, pomega, zoz, zrmu, zsec, &
+      ptau, zud, pwv, pqs, zfdown, zfup)
+    DO jk = 1, kflev + 1
+      DO jl = 1, kdlon
+        zfsup0(jl, jk) = (zfup(jl,jk)+zfu(jl,jk))*zfact(jl)
+        zfsdn0(jl, jk) = (zfdown(jl,jk)+zfd(jl,jk))*zfact(jl)
+      END DO
+    END DO
+
+    flag_aer = 0.0
+    CALL swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
+      zaki, zcld, zclear, zdsig, zfact, zrmu, zsec, zud)
+    inu = 1
+    CALL sw1s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, &
+      pcg, zcld, zclear, pcldsw, zdsig, pomega, zoz, zrmu, zsec, ptau, zud, &
+      zfd, zfu)
+    inu = 2
+    CALL sw2s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, zaki, palbd, &
+      palbp, pcg, zcld, zclear, pcldsw, zdsig, pomega, zoz, zrmu, zsec, ptau, &
+      zud, pwv, pqs, zfdown, zfup)
+
+    ! cloudy-sky:
+
+    DO jk = 1, kflev + 1
+      DO jl = 1, kdlon
+        zfsup(jl, jk) = (zfup(jl,jk)+zfu(jl,jk))*zfact(jl)
+        zfsdn(jl, jk) = (zfdown(jl,jk)+zfd(jl,jk))*zfact(jl)
+      END DO
+    END DO
+
+
+    IF (ok_ade) THEN
+
+      ! cloudy-sky + aerosol dir OB
+      flag_aer = 1.0
+      CALL swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
+        zaki, zcld, zclear, zdsig, zfact, zrmu, zsec, zud)
+      inu = 1
+      CALL sw1s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, &
+        pcg, zcld, zclear, pcldsw, zdsig, pomega, zoz, zrmu, zsec, ptau, zud, &
+        zfd, zfu)
+      inu = 2
+      CALL sw2s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, zaki, palbd, &
+        palbp, pcg, zcld, zclear, pcldsw, zdsig, pomega, zoz, zrmu, zsec, &
+        ptau, zud, pwv, pqs, zfdown, zfup)
+      DO jk = 1, kflev + 1
+        DO jl = 1, kdlon
+          zfsupad(jl, jk) = zfsup(jl, jk)
+          zfsdnad(jl, jk) = zfsdn(jl, jk)
+          zfsup(jl, jk) = (zfup(jl,jk)+zfu(jl,jk))*zfact(jl)
+          zfsdn(jl, jk) = (zfdown(jl,jk)+zfd(jl,jk))*zfact(jl)
+        END DO
+      END DO
+
+    END IF ! ok_ade
+
+    IF (ok_aie) THEN
+
+      ! jq   cloudy-sky + aerosol direct + aerosol indirect
+      flag_aer = 1.0
+      CALL swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
+        zaki, zcld, zclear, zdsig, zfact, zrmu, zsec, zud)
+      inu = 1
+      CALL sw1s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, &
+        pcg, zcld, zclear, pcldsw, zdsig, pomegaa, zoz, zrmu, zsec, ptaua, &
+        zud, zfd, zfu)
+      inu = 2
+      CALL sw2s_lmdar4(inu, paer, flag_aer, tauae, pizae, cgae, zaki, palbd, &
+        palbp, pcg, zcld, zclear, pcldsw, zdsig, pomegaa, zoz, zrmu, zsec, &
+        ptaua, zud, pwv, pqs, zfdown, zfup)
+      DO jk = 1, kflev + 1
+        DO jl = 1, kdlon
+          zfsupai(jl, jk) = zfsup(jl, jk)
+          zfsdnai(jl, jk) = zfsdn(jl, jk)
+          zfsup(jl, jk) = (zfup(jl,jk)+zfu(jl,jk))*zfact(jl)
+          zfsdn(jl, jk) = (zfdown(jl,jk)+zfd(jl,jk))*zfact(jl)
+        END DO
+      END DO
+    END IF ! ok_aie
+    ! jq -end
+
+    itapsw = 0
+  END IF
+  itapsw = itapsw + 1
+
+  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)
+      pheat0(i, k) = -(zfsup0(i,kpl1)-zfsup0(i,k)) - &
+        (zfsdn0(i,k)-zfsdn0(i,kpl1))
+      pheat0(i, k) = pheat0(i, k)*rday*rg/rcpd/pdp(i, k)
+    END DO
+  END DO
+  DO i = 1, kdlon
+    palbpla(i) = zfsup(i, kflev+1)/(zfsdn(i,kflev+1)+1.0E-20)
+
+    psolsw(i) = zfsdn(i, 1) - zfsup(i, 1)
+    ptopsw(i) = zfsdn(i, kflev+1) - zfsup(i, kflev+1)
+
+    psolsw0(i) = zfsdn0(i, 1) - zfsup0(i, 1)
+    ptopsw0(i) = zfsdn0(i, kflev+1) - zfsup0(i, kflev+1)
+    ! -OB
+    psolswad(i) = zfsdnad(i, 1) - zfsupad(i, 1)
+    ptopswad(i) = zfsdnad(i, kflev+1) - zfsupad(i, kflev+1)
+
+    psolswai(i) = zfsdnai(i, 1) - zfsupai(i, 1)
+    ptopswai(i) = zfsdnai(i, kflev+1) - zfsupai(i, kflev+1)
+    ! -fin
+  END DO
+
+  RETURN
+END SUBROUTINE sw_lmdar4
+
+! IM ctes ds clesphys.h   SUBROUTINE SWU
+! (PSCT,RCO2,PCLDSW,PPMB,PPSOL,PRMU0,PFRAC,
+SUBROUTINE swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
+    paki, pcld, pclear, pdsig, pfact, prmu, psec, pud)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
+    rtdumg, rth2o, rtumg
+  IMPLICIT NONE
+  include "radepsi.h"
+  include "radopt.h"
+  include "YOMCST.h"
+
+  ! * ARGUMENTS:
+
+  REAL (KIND=8) psct
+  ! IM ctes ds clesphys.h   REAL(KIND=8) RCO2
+  include "clesphys.h"
+  REAL (KIND=8) pcldsw(kdlon, kflev)
+  REAL (KIND=8) ppmb(kdlon, kflev+1)
+  REAL (KIND=8) ppsol(kdlon)
+  REAL (KIND=8) prmu0(kdlon)
+  REAL (KIND=8) pfrac(kdlon)
+  REAL (KIND=8) ptave(kdlon, kflev)
+  REAL (KIND=8) pwv(kdlon, kflev)
+
+  REAL (KIND=8) paki(kdlon, 2)
+  REAL (KIND=8) pcld(kdlon, kflev)
+  REAL (KIND=8) pclear(kdlon)
+  REAL (KIND=8) pdsig(kdlon, kflev)
+  REAL (KIND=8) pfact(kdlon)
+  REAL (KIND=8) prmu(kdlon)
+  REAL (KIND=8) psec(kdlon)
+  REAL (KIND=8) pud(kdlon, 5, kflev+1)
+
+  ! * LOCAL VARIABLES:
+
+  INTEGER iind(2)
+  REAL (KIND=8) zc1j(kdlon, kflev+1)
+  REAL (KIND=8) zclear(kdlon)
+  REAL (KIND=8) zcloud(kdlon)
+  REAL (KIND=8) zn175(kdlon)
+  REAL (KIND=8) zn190(kdlon)
+  REAL (KIND=8) zo175(kdlon)
+  REAL (KIND=8) zo190(kdlon)
+  REAL (KIND=8) zsign(kdlon)
+  REAL (KIND=8) zr(kdlon, 2)
+  REAL (KIND=8) zsigo(kdlon)
+  REAL (KIND=8) zud(kdlon, 2)
+  REAL (KIND=8) zrth, zrtu, zwh2o, zdsco2, zdsh2o, zfppw
+  INTEGER jl, jk, jkp1, jkl, jklp1, ja
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.     COMPUTES AMOUNTS OF ABSORBERS
+  ! -----------------------------
+
+
+  iind(1) = 1
+  iind(2) = 2
+
+  ! *         1.1    INITIALIZES QUANTITIES
+  ! ----------------------
+
+
+  DO jl = 1, kdlon
+    pud(jl, 1, kflev+1) = 0.
+    pud(jl, 2, kflev+1) = 0.
+    pud(jl, 3, kflev+1) = 0.
+    pud(jl, 4, kflev+1) = 0.
+    pud(jl, 5, kflev+1) = 0.
+    pfact(jl) = prmu0(jl)*pfrac(jl)*psct
+    prmu(jl) = sqrt(1224.*prmu0(jl)*prmu0(jl)+1.)/35.
+    psec(jl) = 1./prmu(jl)
+    zc1j(jl, kflev+1) = 0.
+  END DO
+
+  ! *          1.3    AMOUNTS OF ABSORBERS
+  ! --------------------
+
+
+  DO jl = 1, kdlon
+    zud(jl, 1) = 0.
+    zud(jl, 2) = 0.
+    zo175(jl) = ppsol(jl)**(zpdumg+1.)
+    zo190(jl) = ppsol(jl)**(zpdh2o+1.)
+    zsigo(jl) = ppsol(jl)
+    zclear(jl) = 1.
+    zcloud(jl) = 0.
+  END DO
+
+  DO jk = 1, kflev
+    jkp1 = jk + 1
+    jkl = kflev + 1 - jk
+    jklp1 = jkl + 1
+    DO jl = 1, kdlon
+      zrth = (rth2o/ptave(jl,jk))**rtdh2o
+      zrtu = (rtumg/ptave(jl,jk))**rtdumg
+      zwh2o = max(pwv(jl,jk), zepscq)
+      zsign(jl) = 100.*ppmb(jl, jkp1)
+      pdsig(jl, jk) = (zsigo(jl)-zsign(jl))/ppsol(jl)
+      zn175(jl) = zsign(jl)**(zpdumg+1.)
+      zn190(jl) = zsign(jl)**(zpdh2o+1.)
+      zdsco2 = zo175(jl) - zn175(jl)
+      zdsh2o = zo190(jl) - zn190(jl)
+      pud(jl, 1, jk) = 1./(10.*rg*(zpdh2o+1.))/(zprh2o**zpdh2o)*zdsh2o*zwh2o* &
+        zrth
+      pud(jl, 2, jk) = 1./(10.*rg*(zpdumg+1.))/(zprumg**zpdumg)*zdsco2*rco2* &
+        zrtu
+      zfppw = 1.6078*zwh2o/(1.+0.608*zwh2o)
+      pud(jl, 4, jk) = pud(jl, 1, jk)*zfppw
+      pud(jl, 5, jk) = pud(jl, 1, jk)*(1.-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)*(1.-max(pcldsw(jl,jkl),zcloud(jl)))/(1.-min( &
+          zcloud(jl),1.-zepsec))
+        zc1j(jl, jkl) = 1.0 - zclear(jl)
+        zcloud(jl) = pcldsw(jl, jkl)
+      ELSE IF (novlp==2) THEN
+        zcloud(jl) = max(pcldsw(jl,jkl), zcloud(jl))
+        zc1j(jl, jkl) = zcloud(jl)
+      ELSE IF (novlp==3) THEN
+        zclear(jl) = zclear(jl)*(1.-pcldsw(jl,jkl))
+        zcloud(jl) = 1.0 - zclear(jl)
+        zc1j(jl, jkl) = zcloud(jl)
+      END IF
+    END DO
+  END DO
+  DO jl = 1, kdlon
+    pclear(jl) = 1. - zc1j(jl, 1)
+  END DO
+  DO jk = 1, kflev
+    DO jl = 1, kdlon
+      IF (pclear(jl)<1.) THEN
+        pcld(jl, jk) = pcldsw(jl, jk)/(1.-pclear(jl))
+      ELSE
+        pcld(jl, jk) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! *         1.4    COMPUTES CLEAR-SKY GREY ABSORPTION COEFFICIENTS
+  ! -----------------------------------------------
+
+
+  DO ja = 1, 2
+    DO jl = 1, kdlon
+      zud(jl, ja) = zud(jl, ja)*psec(jl)
+    END DO
+  END DO
+
+  CALL swtt1_lmdar4(2, 2, iind, zud, zr)
+
+  DO ja = 1, 2
+    DO jl = 1, kdlon
+      paki(jl, ja) = -log(zr(jl,ja))/zud(jl, ja)
+    END DO
+  END DO
+
+
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE swu_lmdar4
+SUBROUTINE sw1s_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, &
+    pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, pud, &
+    pfd, pfu)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: rsun, rray
+  USE infotrac_phy, ONLY: type_trac
+#ifdef REPROBUS
+  USE chem_rep, ONLY: rsuntime, ok_suntime
+#endif
+
+  IMPLICIT NONE
+
+  ! ------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+
+  ! THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+  ! SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+  ! METHOD.
+  ! -------
+
+  ! 1. COMPUTES UPWARD AND DOWNWARD FLUXES CORRESPONDING TO
+  ! CONTINUUM SCATTERING
+  ! 2. MULTIPLY BY OZONE TRANSMISSION FUNCTION
+
+  ! 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
+  ! ------------------------------------------------------------------
+
+  ! * ARGUMENTS:
+
+  INTEGER knu
+  ! -OB
+  REAL (KIND=8) flag_aer
+  REAL (KIND=8) tauae(kdlon, kflev, 2)
+  REAL (KIND=8) pizae(kdlon, kflev, 2)
+  REAL (KIND=8) cgae(kdlon, kflev, 2)
+  REAL (KIND=8) paer(kdlon, kflev, 5)
+  REAL (KIND=8) palbd(kdlon, 2)
+  REAL (KIND=8) palbp(kdlon, 2)
+  REAL (KIND=8) pcg(kdlon, 2, kflev)
+  REAL (KIND=8) pcld(kdlon, kflev)
+  REAL (KIND=8) pcldsw(kdlon, kflev)
+  REAL (KIND=8) pclear(kdlon)
+  REAL (KIND=8) pdsig(kdlon, kflev)
+  REAL (KIND=8) pomega(kdlon, 2, kflev)
+  REAL (KIND=8) poz(kdlon, kflev)
+  REAL (KIND=8) prmu(kdlon)
+  REAL (KIND=8) psec(kdlon)
+  REAL (KIND=8) ptau(kdlon, 2, kflev)
+  REAL (KIND=8) pud(kdlon, 5, kflev+1)
+
+  REAL (KIND=8) pfd(kdlon, kflev+1)
+  REAL (KIND=8) pfu(kdlon, kflev+1)
+
+  ! * LOCAL VARIABLES:
+
+  INTEGER iind(4)
+
+  REAL (KIND=8) zcgaz(kdlon, kflev)
+  REAL (KIND=8) zdiff(kdlon)
+  REAL (KIND=8) zdirf(kdlon)
+  REAL (KIND=8) zpizaz(kdlon, kflev)
+  REAL (KIND=8) zrayl(kdlon)
+  REAL (KIND=8) zray1(kdlon, kflev+1)
+  REAL (KIND=8) zray2(kdlon, kflev+1)
+  REAL (KIND=8) zrefz(kdlon, 2, kflev+1)
+  REAL (KIND=8) zrj(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrj0(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrk(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrk0(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrmue(kdlon, kflev+1)
+  REAL (KIND=8) zrmu0(kdlon, kflev+1)
+  REAL (KIND=8) zr(kdlon, 4)
+  REAL (KIND=8) ztauaz(kdlon, kflev)
+  REAL (KIND=8) ztra1(kdlon, kflev+1)
+  REAL (KIND=8) ztra2(kdlon, kflev+1)
+  REAL (KIND=8) zw(kdlon, 4)
+
+  INTEGER jl, jk, k, jaj, ikm1, ikl
+
+  ! If running with Reporbus, overwrite default values of RSUN.
+  ! Otherwise keep default values from radiation_AR4_param module.
+  IF (type_trac=='repr') THEN
+#ifdef REPROBUS
+    IF (ok_suntime) THEN
+      rsun(1) = rsuntime(1)
+      rsun(2) = rsuntime(2)
+    END IF
+    WRITE (lunout, *) 'RSUN(1): ', rsun(1)
+#endif
+  END IF
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.     FIRST SPECTRAL INTERVAL (0.25-0.68 MICRON)
+  ! ----------------------- ------------------
+
+
+
+  ! *         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+  ! -----------------------------------------
+
+
+  DO jl = 1, kdlon
+    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)))))
+  END DO
+
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.    CONTINUUM SCATTERING CALCULATIONS
+  ! ---------------------------------
+
+
+  ! *         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+  ! --------------------------------
+
+
+  CALL swclr_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, palbp, pdsig, &
+    zrayl, psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, &
+    ztauaz, ztra1, ztra2)
+
+  ! *         2.2   CLOUDY FRACTION OF THE COLUMN
+  ! -----------------------------
+
+
+  CALL swr_lmdar4(knu, palbd, pcg, pcld, pdsig, pomega, zrayl, psec, ptau, &
+    zcgaz, zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, &
+    ztra2)
+
+  ! ------------------------------------------------------------------
+
+  ! *         3.    OZONE ABSORPTION
+  ! ----------------
+
+
+  iind(1) = 1
+  iind(2) = 3
+  iind(3) = 1
+  iind(4) = 3
+
+  ! *         3.1   DOWNWARD FLUXES
+  ! ---------------
+
+
+  jaj = 2
+
+  DO jl = 1, kdlon
+    zw(jl, 1) = 0.
+    zw(jl, 2) = 0.
+    zw(jl, 3) = 0.
+    zw(jl, 4) = 0.
+    pfd(jl, kflev+1) = ((1.-pclear(jl))*zrj(jl,jaj,kflev+1)+pclear(jl)*zrj0( &
+      jl,jaj,kflev+1))*rsun(knu)
+  END DO
+  DO jk = 1, kflev
+    ikl = kflev + 1 - jk
+    DO jl = 1, kdlon
+      zw(jl, 1) = zw(jl, 1) + pud(jl, 1, ikl)/zrmue(jl, ikl)
+      zw(jl, 2) = zw(jl, 2) + poz(jl, ikl)/zrmue(jl, ikl)
+      zw(jl, 3) = zw(jl, 3) + pud(jl, 1, ikl)/zrmu0(jl, ikl)
+      zw(jl, 4) = zw(jl, 4) + poz(jl, ikl)/zrmu0(jl, ikl)
+    END DO
+
+    CALL swtt1_lmdar4(knu, 4, iind, zw, zr)
+
+    DO jl = 1, kdlon
+      zdiff(jl) = zr(jl, 1)*zr(jl, 2)*zrj(jl, jaj, ikl)
+      zdirf(jl) = zr(jl, 3)*zr(jl, 4)*zrj0(jl, jaj, ikl)
+      pfd(jl, ikl) = ((1.-pclear(jl))*zdiff(jl)+pclear(jl)*zdirf(jl))* &
+        rsun(knu)
+    END DO
+  END DO
+
+  ! *         3.2   UPWARD FLUXES
+  ! -------------
+
+
+  DO jl = 1, kdlon
+    pfu(jl, 1) = ((1.-pclear(jl))*zdiff(jl)*palbd(jl,knu)+pclear(jl)*zdirf(jl &
+      )*palbp(jl,knu))*rsun(knu)
+  END DO
+
+  DO jk = 2, kflev + 1
+    ikm1 = jk - 1
+    DO jl = 1, kdlon
+      zw(jl, 1) = zw(jl, 1) + pud(jl, 1, ikm1)*1.66
+      zw(jl, 2) = zw(jl, 2) + poz(jl, ikm1)*1.66
+      zw(jl, 3) = zw(jl, 3) + pud(jl, 1, ikm1)*1.66
+      zw(jl, 4) = zw(jl, 4) + poz(jl, ikm1)*1.66
+    END DO
+
+    CALL swtt1_lmdar4(knu, 4, iind, zw, zr)
+
+    DO jl = 1, kdlon
+      zdiff(jl) = zr(jl, 1)*zr(jl, 2)*zrk(jl, jaj, jk)
+      zdirf(jl) = zr(jl, 3)*zr(jl, 4)*zrk0(jl, jaj, jk)
+      pfu(jl, jk) = ((1.-pclear(jl))*zdiff(jl)+pclear(jl)*zdirf(jl))* &
+        rsun(knu)
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE sw1s_lmdar4
+SUBROUTINE sw2s_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, paki, palbd, &
+    palbp, pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, &
+    pud, pwv, pqs, pfdown, pfup)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: rsun, rray
+  USE infotrac_phy, ONLY: type_trac
+#ifdef REPROBUS
+  USE chem_rep, ONLY: rsuntime, ok_suntime
+#endif
+
+  IMPLICIT NONE
+  include "radepsi.h"
+
+  ! ------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+
+  ! THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN THE
+  ! SECOND SPECTRAL INTERVAL FOLLOWING FOUQUART AND BONNEL (1980).
+
+  ! 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
+
+  ! 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
+  ! ------------------------------------------------------------------
+  ! * ARGUMENTS:
+
+  INTEGER knu
+  ! -OB
+  REAL (KIND=8) flag_aer
+  REAL (KIND=8) tauae(kdlon, kflev, 2)
+  REAL (KIND=8) pizae(kdlon, kflev, 2)
+  REAL (KIND=8) cgae(kdlon, kflev, 2)
+  REAL (KIND=8) paer(kdlon, kflev, 5)
+  REAL (KIND=8) paki(kdlon, 2)
+  REAL (KIND=8) palbd(kdlon, 2)
+  REAL (KIND=8) palbp(kdlon, 2)
+  REAL (KIND=8) pcg(kdlon, 2, kflev)
+  REAL (KIND=8) pcld(kdlon, kflev)
+  REAL (KIND=8) pcldsw(kdlon, kflev)
+  REAL (KIND=8) pclear(kdlon)
+  REAL (KIND=8) pdsig(kdlon, kflev)
+  REAL (KIND=8) pomega(kdlon, 2, kflev)
+  REAL (KIND=8) poz(kdlon, kflev)
+  REAL (KIND=8) pqs(kdlon, kflev)
+  REAL (KIND=8) prmu(kdlon)
+  REAL (KIND=8) psec(kdlon)
+  REAL (KIND=8) ptau(kdlon, 2, kflev)
+  REAL (KIND=8) pud(kdlon, 5, kflev+1)
+  REAL (KIND=8) pwv(kdlon, kflev)
+
+  REAL (KIND=8) pfdown(kdlon, kflev+1)
+  REAL (KIND=8) pfup(kdlon, kflev+1)
+
+  ! * LOCAL VARIABLES:
+
+  INTEGER iind2(2), iind3(3)
+  REAL (KIND=8) zcgaz(kdlon, kflev)
+  REAL (KIND=8) zfd(kdlon, kflev+1)
+  REAL (KIND=8) zfu(kdlon, kflev+1)
+  REAL (KIND=8) zg(kdlon)
+  REAL (KIND=8) zgg(kdlon)
+  REAL (KIND=8) zpizaz(kdlon, kflev)
+  REAL (KIND=8) zrayl(kdlon)
+  REAL (KIND=8) zray1(kdlon, kflev+1)
+  REAL (KIND=8) zray2(kdlon, kflev+1)
+  REAL (KIND=8) zref(kdlon)
+  REAL (KIND=8) zrefz(kdlon, 2, kflev+1)
+  REAL (KIND=8) zre1(kdlon)
+  REAL (KIND=8) zre2(kdlon)
+  REAL (KIND=8) zrj(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrj0(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrk(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrk0(kdlon, 6, kflev+1)
+  REAL (KIND=8) zrl(kdlon, 8)
+  REAL (KIND=8) zrmue(kdlon, kflev+1)
+  REAL (KIND=8) zrmu0(kdlon, kflev+1)
+  REAL (KIND=8) zrmuz(kdlon)
+  REAL (KIND=8) zrneb(kdlon)
+  REAL (KIND=8) zruef(kdlon, 8)
+  REAL (KIND=8) zr1(kdlon)
+  REAL (KIND=8) zr2(kdlon, 2)
+  REAL (KIND=8) zr3(kdlon, 3)
+  REAL (KIND=8) zr4(kdlon)
+  REAL (KIND=8) zr21(kdlon)
+  REAL (KIND=8) zr22(kdlon)
+  REAL (KIND=8) zs(kdlon)
+  REAL (KIND=8) ztauaz(kdlon, kflev)
+  REAL (KIND=8) zto1(kdlon)
+  REAL (KIND=8) ztr(kdlon, 2, kflev+1)
+  REAL (KIND=8) ztra1(kdlon, kflev+1)
+  REAL (KIND=8) ztra2(kdlon, kflev+1)
+  REAL (KIND=8) ztr1(kdlon)
+  REAL (KIND=8) ztr2(kdlon)
+  REAL (KIND=8) zw(kdlon)
+  REAL (KIND=8) zw1(kdlon)
+  REAL (KIND=8) zw2(kdlon, 2)
+  REAL (KIND=8) zw3(kdlon, 3)
+  REAL (KIND=8) zw4(kdlon)
+  REAL (KIND=8) zw5(kdlon)
+
+  INTEGER jl, jk, k, jaj, ikm1, ikl, jn, jabs, jkm1
+  INTEGER jref, jkl, jklp1, jajp, jkki, jkkp4, jn2j, iabs
+  REAL (KIND=8) zrmum1, zwh2o, zcneb, zaa, zbb, zrki, zre11
+
+  ! If running with Reporbus, overwrite default values of RSUN.
+  ! Otherwise keep default values from radiation_AR4_param module.
+  IF (type_trac=='repr') THEN
+#ifdef REPROBUS
+    IF (ok_suntime) THEN
+      rsun(1) = rsuntime(1)
+      rsun(2) = rsuntime(2)
+    END IF
+#endif
+  END IF
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.     SECOND SPECTRAL INTERVAL (0.68-4.00 MICRON)
+  ! -------------------------------------------
+
+
+
+  ! *         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+  ! -----------------------------------------
+
+
+  DO jl = 1, kdlon
+    zrmum1 = 1. - 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)))))
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.    CONTINUUM SCATTERING CALCULATIONS
+  ! ---------------------------------
+
+
+  ! *         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+  ! --------------------------------
+
+
+  CALL swclr_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, palbp, pdsig, &
+    zrayl, psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, &
+    ztauaz, ztra1, ztra2)
+
+  ! *         2.2   CLOUDY FRACTION OF THE COLUMN
+  ! -----------------------------
+
+
+  CALL swr_lmdar4(knu, palbd, pcg, pcld, pdsig, pomega, zrayl, 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 = 1, kdlon
+      zrefz(jl, 2, 1) = palbd(jl, knu)
+      zrefz(jl, 1, 1) = palbd(jl, knu)
+    END DO
+
+    ! *         3.2  INTRODUCING CLOUD EFFECTS
+    ! -------------------------
+
+
+    DO jk = 2, kflev + 1
+      jkm1 = jk - 1
+      ikl = kflev + 1 - jkm1
+      DO jl = 1, kdlon
+        zrneb(jl) = pcld(jl, jkm1)
+        IF (jabs==1 .AND. zrneb(jl)>2.*zeelog) THEN
+          zwh2o = max(pwv(jl,jkm1), zeelog)
+          zcneb = max(zeelog, min(zrneb(jl),1.-zeelog))
+          zbb = pud(jl, jabs, jkm1)*pqs(jl, jkm1)/zwh2o
+          zaa = max((pud(jl,jabs,jkm1)-zcneb*zbb)/(1.-zcneb), zeelog)
+        ELSE
+          zaa = pud(jl, jabs, jkm1)
+          zbb = zaa
+        END IF
+        zrki = paki(jl, jabs)
+        zs(jl) = exp(-zrki*zaa*1.66)
+        zg(jl) = exp(-zrki*zaa/zrmue(jl,jk))
+        ztr1(jl) = 0.
+        zre1(jl) = 0.
+        ztr2(jl) = 0.
+        zre2(jl) = 0.
+
+        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) + (1.-zr22(jl))*zcgaz(jl, jkm1)
+        zw(jl) = zr21(jl)/zto1(jl)
+        zref(jl) = zrefz(jl, 1, jkm1)
+        zrmuz(jl) = zrmue(jl, jk)
+      END DO
+
+      CALL swde_lmdar4(zgg, zref, zrmuz, zto1, zw, zre1, zre2, ztr1, ztr2)
+
+      DO jl = 1, kdlon
+
+        zrefz(jl, 2, jk) = (1.-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)*(1.- &
+          zrneb(jl))
+
+        zrefz(jl, 1, jk) = (1.-zrneb(jl))*(zray1(jl,jkm1)+zrefz(jl,1,jkm1)* &
+          ztra1(jl,jkm1)*ztra2(jl,jkm1)/(1.-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)/(1.-zray2(jl, &
+          jkm1)*zrefz(jl,1,jkm1)))*zg(jl)*(1.-zrneb(jl))
+
+      END DO
+    END DO
+
+    ! *         3.3  REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+    ! -------------------------------------------------
+
+
+    DO jref = 1, 2
+
+      jn = jn + 1
+
+      DO jl = 1, kdlon
+        zrj(jl, jn, kflev+1) = 1.
+        zrk(jl, jn, kflev+1) = zrefz(jl, jref, kflev+1)
+      END DO
+
+      DO jk = 1, kflev
+        jkl = kflev + 1 - jk
+        jklp1 = jkl + 1
+        DO jl = 1, kdlon
+          zre11 = zrj(jl, jn, jklp1)*ztr(jl, jref, jkl)
+          zrj(jl, jn, jkl) = zre11
+          zrk(jl, jn, jkl) = zre11*zrefz(jl, jref, jkl)
+        END DO
+      END DO
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         4.    INVERT GREY AND CONTINUUM FLUXES
+  ! --------------------------------
+
+
+
+  ! *         4.1   UPWARD (ZRK) AND DOWNWARD (ZRJ) PSEUDO-FLUXES
+  ! ---------------------------------------------
+
+
+  DO jk = 1, kflev + 1
+    DO jaj = 1, 5, 2
+      jajp = jaj + 1
+      DO jl = 1, kdlon
+        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), zeelog)
+        zrk(jl, jaj, jk) = max(zrk(jl,jaj,jk), zeelog)
+      END DO
+    END DO
+  END DO
+
+  DO jk = 1, kflev + 1
+    DO jaj = 2, 6, 2
+      DO jl = 1, kdlon
+        zrj(jl, jaj, jk) = max(zrj(jl,jaj,jk), zeelog)
+        zrk(jl, jaj, jk) = max(zrk(jl,jaj,jk), zeelog)
+      END DO
+    END DO
+  END DO
+
+  ! *         4.2    EFFECTIVE ABSORBER AMOUNTS BY INVERSE LAPLACE
+  ! ---------------------------------------------
+
+
+  DO jk = 1, kflev + 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 = 1, kdlon
+          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)
+        END DO
+
+        ! *         4.2.2  TRANSMISSION FUNCTION
+        ! ---------------------
+
+
+        CALL swtt1_lmdar4(knu, 2, iind2, zw2, zr2)
+
+        DO jl = 1, kdlon
+          zrl(jl, jkki) = zr2(jl, 1)
+          zruef(jl, jkki) = zw2(jl, 1)
+          zrl(jl, jkkp4) = zr2(jl, 2)
+          zruef(jl, jkkp4) = zw2(jl, 2)
+        END DO
+
+        jkki = jkki + 1
+      END DO
+    END DO
+
+    ! *         4.3    UPWARD AND DOWNWARD FLUXES WITH H2O AND UMG ABSORPTION
+    ! ------------------------------------------------------
+
+
+    DO jl = 1, kdlon
+      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)
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         5.    MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
+  ! ----------------------------------------
+
+
+
+  ! *         5.1   DOWNWARD FLUXES
+  ! ---------------
+
+
+  jaj = 2
+  iind3(1) = 1
+  iind3(2) = 2
+  iind3(3) = 3
+
+  DO jl = 1, kdlon
+    zw3(jl, 1) = 0.
+    zw3(jl, 2) = 0.
+    zw3(jl, 3) = 0.
+    zw4(jl) = 0.
+    zw5(jl) = 0.
+    zr4(jl) = 1.
+    zfd(jl, kflev+1) = zrj0(jl, jaj, kflev+1)
+  END DO
+  DO jk = 1, kflev
+    ikl = kflev + 1 - jk
+    DO jl = 1, kdlon
+      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)
+    END DO
+
+    CALL swtt1_lmdar4(knu, 3, iind3, zw3, zr3)
+
+    DO jl = 1, kdlon
+      ! 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)
+    END DO
+  END DO
+
+  ! *         5.2   UPWARD FLUXES
+  ! -------------
+
+
+  DO jl = 1, kdlon
+    zfu(jl, 1) = zfd(jl, 1)*palbp(jl, knu)
+  END DO
+
+  DO jk = 2, kflev + 1
+    ikm1 = jk - 1
+    DO jl = 1, kdlon
+      zw3(jl, 1) = zw3(jl, 1) + pud(jl, 1, ikm1)*1.66
+      zw3(jl, 2) = zw3(jl, 2) + pud(jl, 2, ikm1)*1.66
+      zw3(jl, 3) = zw3(jl, 3) + poz(jl, ikm1)*1.66
+      zw4(jl) = zw4(jl) + pud(jl, 4, ikm1)*1.66
+      zw5(jl) = zw5(jl) + pud(jl, 5, ikm1)*1.66
+    END DO
+
+    CALL swtt1_lmdar4(knu, 3, iind3, zw3, zr3)
+
+    DO jl = 1, kdlon
+      ! 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)
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         6.     INTRODUCTION OF OZONE AND H2O CONTINUUM ABSORPTION
+  ! --------------------------------------------------
+
+  iabs = 3
+
+  ! *         6.1    DOWNWARD FLUXES
+  ! ---------------
+
+  DO jl = 1, kdlon
+    zw1(jl) = 0.
+    zw4(jl) = 0.
+    zw5(jl) = 0.
+    zr1(jl) = 0.
+    pfdown(jl, kflev+1) = ((1.-pclear(jl))*pfdown(jl,kflev+1)+pclear(jl)*zfd( &
+      jl,kflev+1))*rsun(knu)
+  END DO
+
+  DO jk = 1, kflev
+    ikl = kflev + 1 - jk
+    DO jl = 1, kdlon
+      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))
+    END DO
+
+    CALL swtt_lmdar4(knu, iabs, zw1, zr1)
+
+    DO jl = 1, kdlon
+      pfdown(jl, ikl) = ((1.-pclear(jl))*zr1(jl)*zr4(jl)*pfdown(jl,ikl)+ &
+        pclear(jl)*zfd(jl,ikl))*rsun(knu)
+    END DO
+  END DO
+
+  ! *         6.2    UPWARD FLUXES
+  ! -------------
+
+  DO jl = 1, kdlon
+    pfup(jl, 1) = ((1.-pclear(jl))*zr1(jl)*zr4(jl)*pfup(jl,1)+pclear(jl)*zfu( &
+      jl,1))*rsun(knu)
+  END DO
+
+  DO jk = 2, kflev + 1
+    ikm1 = jk - 1
+    DO jl = 1, kdlon
+      zw1(jl) = zw1(jl) + poz(jl, ikm1)*1.66
+      zw4(jl) = zw4(jl) + pud(jl, 4, ikm1)*1.66
+      zw5(jl) = zw5(jl) + pud(jl, 5, ikm1)*1.66
+      ! ZR4(JL) = EXP(-RSWCE*ZW4(JL)-RSWCP*ZW5(JL))
+    END DO
+
+    CALL swtt_lmdar4(knu, iabs, zw1, zr1)
+
+    DO jl = 1, kdlon
+      pfup(jl, jk) = ((1.-pclear(jl))*zr1(jl)*zr4(jl)*pfup(jl,jk)+pclear(jl)* &
+        zfu(jl,jk))*rsun(knu)
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE sw2s_lmdar4
+SUBROUTINE swclr_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, palbp, &
+    pdsig, prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, &
+    ptauaz, ptra1, ptra2)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: taua, rpiza, rcga
+  IMPLICIT NONE
+  include "radepsi.h"
+  include "radopt.h"
+
+  ! ------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY IN CASE OF
+  ! CLEAR-SKY COLUMN
+
+  ! 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
+  ! ------------------------------------------------------------------
+  ! * ARGUMENTS:
+
+  INTEGER knu
+  ! -OB
+  REAL (KIND=8) flag_aer
+  REAL (KIND=8) tauae(kdlon, kflev, 2)
+  REAL (KIND=8) pizae(kdlon, kflev, 2)
+  REAL (KIND=8) cgae(kdlon, kflev, 2)
+  REAL (KIND=8) paer(kdlon, kflev, 5)
+  REAL (KIND=8) palbp(kdlon, 2)
+  REAL (KIND=8) pdsig(kdlon, kflev)
+  REAL (KIND=8) prayl(kdlon)
+  REAL (KIND=8) psec(kdlon)
+
+  REAL (KIND=8) pcgaz(kdlon, kflev)
+  REAL (KIND=8) ppizaz(kdlon, kflev)
+  REAL (KIND=8) pray1(kdlon, kflev+1)
+  REAL (KIND=8) pray2(kdlon, kflev+1)
+  REAL (KIND=8) prefz(kdlon, 2, kflev+1)
+  REAL (KIND=8) prj(kdlon, 6, kflev+1)
+  REAL (KIND=8) prk(kdlon, 6, kflev+1)
+  REAL (KIND=8) prmu0(kdlon, kflev+1)
+  REAL (KIND=8) ptauaz(kdlon, kflev)
+  REAL (KIND=8) ptra1(kdlon, kflev+1)
+  REAL (KIND=8) ptra2(kdlon, kflev+1)
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zc0i(kdlon, kflev+1)
+  REAL (KIND=8) zcle0(kdlon, kflev)
+  REAL (KIND=8) zclear(kdlon)
+  REAL (KIND=8) zr21(kdlon)
+  REAL (KIND=8) zr23(kdlon)
+  REAL (KIND=8) zss0(kdlon)
+  REAL (KIND=8) zscat(kdlon)
+  REAL (KIND=8) ztr(kdlon, 2, kflev+1)
+
+  INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in
+  REAL (KIND=8) ztray, zgar, zratio, zff, zfacoa, zcorae
+  REAL (KIND=8) zmue, zgap, zww, zto, zden, zmu1, zden1
+  REAL (KIND=8) zbmu0, zbmu1, zre11
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.    OPTICAL PARAMETERS FOR AEROSOLS AND RAYLEIGH
+  ! --------------------------------------------
+
+
+  ! cdir collapse
+  DO jk = 1, kflev + 1
+    DO ja = 1, 6
+      DO jl = 1, kdlon
+        prj(jl, ja, jk) = 0.
+        prk(jl, ja, jk) = 0.
+      END DO
+    END DO
+  END DO
+
+  DO jk = 1, kflev
+    ! -OB
+    ! DO 104 JL = 1, KDLON
+    ! PCGAZ(JL,JK) = 0.
+    ! PPIZAZ(JL,JK) =  0.
+    ! PTAUAZ(JL,JK) = 0.
+    ! 104  CONTINUE
+    ! -OB
+    ! DO 106 JAE=1,5
+    ! DO 105 JL = 1, KDLON
+    ! PTAUAZ(JL,JK)=PTAUAZ(JL,JK)
+    ! S        +PAER(JL,JK,JAE)*TAUA(KNU,JAE)
+    ! PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL,JK,JAE)
+    ! S        * TAUA(KNU,JAE)*RPIZA(KNU,JAE)
+    ! PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL,JK,JAE)
+    ! S        * TAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)
+    ! 105  CONTINUE
+    ! 106  CONTINUE
+    ! -OB
+    DO jl = 1, kdlon
+      ptauaz(jl, jk) = flag_aer*tauae(jl, jk, knu)
+      ppizaz(jl, jk) = flag_aer*pizae(jl, jk, knu)
+      pcgaz(jl, jk) = flag_aer*cgae(jl, jk, knu)
+    END DO
+
+    IF (flag_aer>0) THEN
+      ! -OB
+      DO jl = 1, kdlon
+        ! 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)*(1.-ppizaz(jl,jk)*zff)
+        pcgaz(jl, jk) = zgar*(1.-zratio)/(1.+zgar)
+        ppizaz(jl, jk) = zratio + (1.-zratio)*ppizaz(jl, jk)*(1.-zff)/(1.- &
+          ppizaz(jl,jk)*zff)
+      END DO
+    ELSE
+      DO jl = 1, kdlon
+        ztray = prayl(jl)*pdsig(jl, jk)
+        ptauaz(jl, jk) = ztray
+        pcgaz(jl, jk) = 0.
+        ppizaz(jl, jk) = 1. - repsct
+      END DO
+    END IF ! check flag_aer
+    ! 107  CONTINUE
+    ! PRINT 9107,JK,((PAER(JL,JK,JAE),JAE=1,5)
+    ! $ ,PTAUAZ(JL,JK),PPIZAZ(JL,JK),PCGAZ(JL,JK),JL=1,KDLON)
+    ! 9107 FORMAT(1X,'SWCLR_107',I3,8E12.5)
+
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+  ! ----------------------------------------------
+
+
+  DO jl = 1, kdlon
+    zr23(jl) = 0.
+    zc0i(jl, kflev+1) = 0.
+    zclear(jl) = 1.
+    zscat(jl) = 0.
+  END DO
+
+  jk = 1
+  jkl = kflev + 1 - jk
+  jklp1 = jkl + 1
+  DO jl = 1, kdlon
+    zfacoa = 1. - ppizaz(jl, jkl)*pcgaz(jl, jkl)*pcgaz(jl, jkl)
+    zcorae = zfacoa*ptauaz(jl, jkl)*psec(jl)
+    zr21(jl) = exp(-zcorae)
+    zss0(jl) = 1. - zr21(jl)
+    zcle0(jl, jkl) = zss0(jl)
+
+    IF (novlp==1) THEN
+      ! * maximum-random
+      zclear(jl) = zclear(jl)*(1.0-max(zss0(jl),zscat(jl)))/ &
+        (1.0-min(zscat(jl),1.-zepsec))
+      zc0i(jl, jkl) = 1.0 - zclear(jl)
+      zscat(jl) = zss0(jl)
+    ELSE IF (novlp==2) THEN
+      ! * maximum
+      zscat(jl) = max(zss0(jl), zscat(jl))
+      zc0i(jl, jkl) = zscat(jl)
+    ELSE IF (novlp==3) THEN
+      ! * random
+      zclear(jl) = zclear(jl)*(1.0-zss0(jl))
+      zscat(jl) = 1.0 - zclear(jl)
+      zc0i(jl, jkl) = zscat(jl)
+    END IF
+  END DO
+
+  DO jk = 2, kflev
+    jkl = kflev + 1 - jk
+    jklp1 = jkl + 1
+    DO jl = 1, kdlon
+      zfacoa = 1. - ppizaz(jl, jkl)*pcgaz(jl, jkl)*pcgaz(jl, jkl)
+      zcorae = zfacoa*ptauaz(jl, jkl)*psec(jl)
+      zr21(jl) = exp(-zcorae)
+      zss0(jl) = 1. - zr21(jl)
+      zcle0(jl, jkl) = zss0(jl)
+
+      IF (novlp==1) THEN
+        ! * maximum-random
+        zclear(jl) = zclear(jl)*(1.0-max(zss0(jl),zscat(jl)))/ &
+          (1.0-min(zscat(jl),1.-zepsec))
+        zc0i(jl, jkl) = 1.0 - zclear(jl)
+        zscat(jl) = zss0(jl)
+      ELSE IF (novlp==2) THEN
+        ! * maximum
+        zscat(jl) = max(zss0(jl), zscat(jl))
+        zc0i(jl, jkl) = zscat(jl)
+      ELSE IF (novlp==3) THEN
+        ! * random
+        zclear(jl) = zclear(jl)*(1.0-zss0(jl))
+        zscat(jl) = 1.0 - zclear(jl)
+        zc0i(jl, jkl) = zscat(jl)
+      END IF
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+  ! -----------------------------------------------
+
+
+  DO jl = 1, kdlon
+    pray1(jl, kflev+1) = 0.
+    pray2(jl, kflev+1) = 0.
+    prefz(jl, 2, 1) = palbp(jl, knu)
+    prefz(jl, 1, 1) = palbp(jl, knu)
+    ptra1(jl, kflev+1) = 1.
+    ptra2(jl, kflev+1) = 1.
+  END DO
+
+  DO jk = 2, kflev + 1
+    jkm1 = jk - 1
+    DO jl = 1, kdlon
+
+      ! ------------------------------------------------------------------
+
+      ! *         3.1  EQUIVALENT ZENITH ANGLE
+      ! -----------------------
+
+
+      zmue = (1.-zc0i(jl,jk))*psec(jl) + zc0i(jl, jk)*1.66
+      prmu0(jl, jk) = 1./zmue
+
+      ! ------------------------------------------------------------------
+
+      ! *         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+      ! ----------------------------------------------------
+
+
+      zgap = pcgaz(jl, jkm1)
+      zbmu0 = 0.5 - 0.75*zgap/zmue
+      zww = ppizaz(jl, jkm1)
+      zto = ptauaz(jl, jkm1)
+      zden = 1. + (1.-zww+zbmu0*zww)*zto*zmue + (1-zww)*(1.-zww+2.*zbmu0*zww) &
+        *zto*zto*zmue*zmue
+      pray1(jl, jkm1) = zbmu0*zww*zto*zmue/zden
+      ptra1(jl, jkm1) = 1./zden
+
+      zmu1 = 0.5
+      zbmu1 = 0.5 - 0.75*zgap*zmu1
+      zden1 = 1. + (1.-zww+zbmu1*zww)*zto/zmu1 + (1-zww)*(1.-zww+2.*zbmu1*zww &
+        )*zto*zto/zmu1/zmu1
+      pray2(jl, jkm1) = zbmu1*zww*zto/zmu1/zden1
+      ptra2(jl, jkm1) = 1./zden1
+
+
+
+      prefz(jl, 1, jk) = (pray1(jl,jkm1)+prefz(jl,1,jkm1)*ptra1(jl,jkm1)* &
+        ptra2(jl,jkm1)/(1.-pray2(jl,jkm1)*prefz(jl,1,jkm1)))
+
+      ztr(jl, 1, jkm1) = (ptra1(jl,jkm1)/(1.-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)
+
+    END DO
+  END DO
+  DO jl = 1, kdlon
+    zmue = (1.-zc0i(jl,1))*psec(jl) + zc0i(jl, 1)*1.66
+    prmu0(jl, 1) = 1./zmue
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+  ! -------------------------------------------------
+
+
+  IF (knu==1) THEN
+    jaj = 2
+    DO jl = 1, kdlon
+      prj(jl, jaj, kflev+1) = 1.
+      prk(jl, jaj, kflev+1) = prefz(jl, 1, kflev+1)
+    END DO
+
+    DO jk = 1, kflev
+      jkl = kflev + 1 - jk
+      jklp1 = jkl + 1
+      DO jl = 1, kdlon
+        zre11 = prj(jl, jaj, jklp1)*ztr(jl, 1, jkl)
+        prj(jl, jaj, jkl) = zre11
+        prk(jl, jaj, jkl) = zre11*prefz(jl, 1, jkl)
+      END DO
+    END DO
+
+  ELSE
+
+    DO jaj = 1, 2
+      DO jl = 1, kdlon
+        prj(jl, jaj, kflev+1) = 1.
+        prk(jl, jaj, kflev+1) = prefz(jl, jaj, kflev+1)
+      END DO
+
+      DO jk = 1, kflev
+        jkl = kflev + 1 - jk
+        jklp1 = jkl + 1
+        DO jl = 1, kdlon
+          zre11 = prj(jl, jaj, jklp1)*ztr(jl, jaj, jkl)
+          prj(jl, jaj, jkl) = zre11
+          prk(jl, jaj, jkl) = zre11*prefz(jl, jaj, jkl)
+        END DO
+      END DO
+    END DO
+
+  END IF
+
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE swclr_lmdar4
+SUBROUTINE swr_lmdar4(knu, palbd, pcg, pcld, pdsig, pomega, prayl, psec, &
+    ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, &
+    ptra2)
+  USE dimphy
+  IMPLICIT NONE
+  include "radepsi.h"
+  include "radopt.h"
+
+  ! ------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY IN CASE OF
+  ! CONTINUUM SCATTERING
+
+  ! METHOD.
+  ! -------
+
+  ! 1. COMPUTES CONTINUUM FLUXES CORRESPONDING TO AEROSOL
+  ! OR/AND RAYLEIGH SCATTERING (NO MOLECULAR GAS ABSORPTION)
+
+  ! 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
+  ! ------------------------------------------------------------------
+  ! * ARGUMENTS:
+
+  INTEGER knu
+  REAL (KIND=8) palbd(kdlon, 2)
+  REAL (KIND=8) pcg(kdlon, 2, kflev)
+  REAL (KIND=8) pcld(kdlon, kflev)
+  REAL (KIND=8) pdsig(kdlon, kflev)
+  REAL (KIND=8) pomega(kdlon, 2, kflev)
+  REAL (KIND=8) prayl(kdlon)
+  REAL (KIND=8) psec(kdlon)
+  REAL (KIND=8) ptau(kdlon, 2, kflev)
+
+  REAL (KIND=8) pray1(kdlon, kflev+1)
+  REAL (KIND=8) pray2(kdlon, kflev+1)
+  REAL (KIND=8) prefz(kdlon, 2, kflev+1)
+  REAL (KIND=8) prj(kdlon, 6, kflev+1)
+  REAL (KIND=8) prk(kdlon, 6, kflev+1)
+  REAL (KIND=8) prmue(kdlon, kflev+1)
+  REAL (KIND=8) pcgaz(kdlon, kflev)
+  REAL (KIND=8) ppizaz(kdlon, kflev)
+  REAL (KIND=8) ptauaz(kdlon, kflev)
+  REAL (KIND=8) ptra1(kdlon, kflev+1)
+  REAL (KIND=8) ptra2(kdlon, kflev+1)
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zc1i(kdlon, kflev+1)
+  REAL (KIND=8) zcleq(kdlon, kflev)
+  REAL (KIND=8) zclear(kdlon)
+  REAL (KIND=8) zcloud(kdlon)
+  REAL (KIND=8) zgg(kdlon)
+  REAL (KIND=8) zref(kdlon)
+  REAL (KIND=8) zre1(kdlon)
+  REAL (KIND=8) zre2(kdlon)
+  REAL (KIND=8) zrmuz(kdlon)
+  REAL (KIND=8) zrneb(kdlon)
+  REAL (KIND=8) zr21(kdlon)
+  REAL (KIND=8) zr22(kdlon)
+  REAL (KIND=8) zr23(kdlon)
+  REAL (KIND=8) zss1(kdlon)
+  REAL (KIND=8) zto1(kdlon)
+  REAL (KIND=8) ztr(kdlon, 2, kflev+1)
+  REAL (KIND=8) ztr1(kdlon)
+  REAL (KIND=8) ztr2(kdlon)
+  REAL (KIND=8) zw(kdlon)
+
+  INTEGER jk, jl, ja, jkl, jklp1, jkm1, jaj
+  REAL (KIND=8) zfacoa, zfacoc, zcorae, zcorcd
+  REAL (KIND=8) zmue, zgap, zww, zto, zden, zden1
+  REAL (KIND=8) zmu1, zre11, zbmu0, zbmu1
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.    INITIALIZATION
+  ! --------------
+
+
+  DO jk = 1, kflev + 1
+    DO ja = 1, 6
+      DO jl = 1, kdlon
+        prj(jl, ja, jk) = 0.
+        prk(jl, ja, jk) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+  ! ----------------------------------------------
+
+
+  DO jl = 1, kdlon
+    zr23(jl) = 0.
+    zc1i(jl, kflev+1) = 0.
+    zclear(jl) = 1.
+    zcloud(jl) = 0.
+  END DO
+
+  jk = 1
+  jkl = kflev + 1 - jk
+  jklp1 = jkl + 1
+  DO jl = 1, kdlon
+    zfacoa = 1. - ppizaz(jl, jkl)*pcgaz(jl, jkl)*pcgaz(jl, jkl)
+    zfacoc = 1. - pomega(jl, knu, jkl)*pcg(jl, knu, jkl)*pcg(jl, knu, jkl)
+    zcorae = zfacoa*ptauaz(jl, jkl)*psec(jl)
+    zcorcd = zfacoc*ptau(jl, knu, jkl)*psec(jl)
+    zr21(jl) = exp(-zcorae)
+    zr22(jl) = exp(-zcorcd)
+    zss1(jl) = pcld(jl, jkl)*(1.0-zr21(jl)*zr22(jl)) + &
+      (1.0-pcld(jl,jkl))*(1.0-zr21(jl))
+    zcleq(jl, jkl) = zss1(jl)
+
+    IF (novlp==1) THEN
+      ! * maximum-random
+      zclear(jl) = zclear(jl)*(1.0-max(zss1(jl),zcloud(jl)))/ &
+        (1.0-min(zcloud(jl),1.-zepsec))
+      zc1i(jl, jkl) = 1.0 - zclear(jl)
+      zcloud(jl) = zss1(jl)
+    ELSE IF (novlp==2) THEN
+      ! * maximum
+      zcloud(jl) = max(zss1(jl), zcloud(jl))
+      zc1i(jl, jkl) = zcloud(jl)
+    ELSE IF (novlp==3) THEN
+      ! * random
+      zclear(jl) = zclear(jl)*(1.0-zss1(jl))
+      zcloud(jl) = 1.0 - zclear(jl)
+      zc1i(jl, jkl) = zcloud(jl)
+    END IF
+  END DO
+
+  DO jk = 2, kflev
+    jkl = kflev + 1 - jk
+    jklp1 = jkl + 1
+    DO jl = 1, kdlon
+      zfacoa = 1. - ppizaz(jl, jkl)*pcgaz(jl, jkl)*pcgaz(jl, jkl)
+      zfacoc = 1. - pomega(jl, knu, jkl)*pcg(jl, knu, jkl)*pcg(jl, knu, jkl)
+      zcorae = zfacoa*ptauaz(jl, jkl)*psec(jl)
+      zcorcd = zfacoc*ptau(jl, knu, jkl)*psec(jl)
+      zr21(jl) = exp(-zcorae)
+      zr22(jl) = exp(-zcorcd)
+      zss1(jl) = pcld(jl, jkl)*(1.0-zr21(jl)*zr22(jl)) + &
+        (1.0-pcld(jl,jkl))*(1.0-zr21(jl))
+      zcleq(jl, jkl) = zss1(jl)
+
+      IF (novlp==1) THEN
+        ! * maximum-random
+        zclear(jl) = zclear(jl)*(1.0-max(zss1(jl),zcloud(jl)))/ &
+          (1.0-min(zcloud(jl),1.-zepsec))
+        zc1i(jl, jkl) = 1.0 - zclear(jl)
+        zcloud(jl) = zss1(jl)
+      ELSE IF (novlp==2) THEN
+        ! * maximum
+        zcloud(jl) = max(zss1(jl), zcloud(jl))
+        zc1i(jl, jkl) = zcloud(jl)
+      ELSE IF (novlp==3) THEN
+        ! * random
+        zclear(jl) = zclear(jl)*(1.0-zss1(jl))
+        zcloud(jl) = 1.0 - zclear(jl)
+        zc1i(jl, jkl) = zcloud(jl)
+      END IF
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+  ! -----------------------------------------------
+
+
+  DO jl = 1, kdlon
+    pray1(jl, kflev+1) = 0.
+    pray2(jl, kflev+1) = 0.
+    prefz(jl, 2, 1) = palbd(jl, knu)
+    prefz(jl, 1, 1) = palbd(jl, knu)
+    ptra1(jl, kflev+1) = 1.
+    ptra2(jl, kflev+1) = 1.
+  END DO
+
+  DO jk = 2, kflev + 1
+    jkm1 = jk - 1
+    DO jl = 1, kdlon
+      zrneb(jl) = pcld(jl, jkm1)
+      zre1(jl) = 0.
+      ztr1(jl) = 0.
+      zre2(jl) = 0.
+      ztr2(jl) = 0.
+
+      ! ------------------------------------------------------------------
+
+      ! *         3.1  EQUIVALENT ZENITH ANGLE
+      ! -----------------------
+
+
+      zmue = (1.-zc1i(jl,jk))*psec(jl) + zc1i(jl, jk)*1.66
+      prmue(jl, jk) = 1./zmue
+
+      ! ------------------------------------------------------------------
+
+      ! *         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+      ! ----------------------------------------------------
+
+
+      zgap = pcgaz(jl, jkm1)
+      zbmu0 = 0.5 - 0.75*zgap/zmue
+      zww = ppizaz(jl, jkm1)
+      zto = ptauaz(jl, jkm1)
+      zden = 1. + (1.-zww+zbmu0*zww)*zto*zmue + (1-zww)*(1.-zww+2.*zbmu0*zww) &
+        *zto*zto*zmue*zmue
+      pray1(jl, jkm1) = zbmu0*zww*zto*zmue/zden
+      ptra1(jl, jkm1) = 1./zden
+      ! PRINT *,' LOOP 342 ** 3 ** JL=',JL,PRAY1(JL,JKM1),PTRA1(JL,JKM1)
+
+      zmu1 = 0.5
+      zbmu1 = 0.5 - 0.75*zgap*zmu1
+      zden1 = 1. + (1.-zww+zbmu1*zww)*zto/zmu1 + (1-zww)*(1.-zww+2.*zbmu1*zww &
+        )*zto*zto/zmu1/zmu1
+      pray2(jl, jkm1) = zbmu1*zww*zto/zmu1/zden1
+      ptra2(jl, jkm1) = 1./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) + (1.-zr22(jl))*pcgaz(jl, jkm1)
+      ! Modif PhD - JJM 19/03/96 pour erreurs arrondis
+      ! machine
+      ! PHD PROTECTION ZW(JL) = ZR21(JL) / ZTO1(JL)
+      IF (zw(jl)==1. .AND. ppizaz(jl,jkm1)==1.) THEN
+        zw(jl) = 1.
+      ELSE
+        zw(jl) = zr21(jl)/zto1(jl)
+      END IF
+      zref(jl) = prefz(jl, 1, jkm1)
+      zrmuz(jl) = prmue(jl, jk)
+    END DO
+
+    CALL swde_lmdar4(zgg, zref, zrmuz, zto1, zw, zre1, zre2, ztr1, ztr2)
+
+    DO jl = 1, kdlon
+
+      prefz(jl, 1, jk) = (1.-zrneb(jl))*(pray1(jl,jkm1)+prefz(jl,1,jkm1)* &
+        ptra1(jl,jkm1)*ptra2(jl,jkm1)/(1.-pray2(jl,jkm1)*prefz(jl,1, &
+        jkm1))) + zrneb(jl)*zre2(jl)
+
+      ztr(jl, 1, jkm1) = zrneb(jl)*ztr2(jl) + (ptra1(jl,jkm1)/(1.-pray2(jl, &
+        jkm1)*prefz(jl,1,jkm1)))*(1.-zrneb(jl))
+
+      prefz(jl, 2, jk) = (1.-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)*(1.-zrneb(jl))
+
+    END DO
+  END DO
+  DO jl = 1, kdlon
+    zmue = (1.-zc1i(jl,1))*psec(jl) + zc1i(jl, 1)*1.66
+    prmue(jl, 1) = 1./zmue
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+  ! -------------------------------------------------
+
+
+  IF (knu==1) THEN
+    jaj = 2
+    DO jl = 1, kdlon
+      prj(jl, jaj, kflev+1) = 1.
+      prk(jl, jaj, kflev+1) = prefz(jl, 1, kflev+1)
+    END DO
+
+    DO jk = 1, kflev
+      jkl = kflev + 1 - jk
+      jklp1 = jkl + 1
+      DO jl = 1, kdlon
+        zre11 = prj(jl, jaj, jklp1)*ztr(jl, 1, jkl)
+        prj(jl, jaj, jkl) = zre11
+        prk(jl, jaj, jkl) = zre11*prefz(jl, 1, jkl)
+      END DO
+    END DO
+
+  ELSE
+
+    DO jaj = 1, 2
+      DO jl = 1, kdlon
+        prj(jl, jaj, kflev+1) = 1.
+        prk(jl, jaj, kflev+1) = prefz(jl, jaj, kflev+1)
+      END DO
+
+      DO jk = 1, kflev
+        jkl = kflev + 1 - jk
+        jklp1 = jkl + 1
+        DO jl = 1, kdlon
+          zre11 = prj(jl, jaj, jklp1)*ztr(jl, jaj, jkl)
+          prj(jl, jaj, jkl) = zre11
+          prk(jl, jaj, jkl) = zre11*prefz(jl, jaj, jkl)
+        END DO
+      END DO
+    END DO
+
+  END IF
+
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE swr_lmdar4
+SUBROUTINE swde_lmdar4(pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! ------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY
+  ! LAYER USING THE DELTA-EDDINGTON'S APPROXIMATION.
+
+  ! METHOD.
+  ! -------
+
+  ! STANDARD DELTA-EDDINGTON LAYER CALCULATIONS.
+
+  ! 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
+  ! ------------------------------------------------------------------
+  ! * ARGUMENTS:
+
+  REAL (KIND=8) pgg(kdlon) ! ASSYMETRY FACTOR
+  REAL (KIND=8) pref(kdlon) ! REFLECTIVITY OF THE UNDERLYING LAYER
+  REAL (KIND=8) prmuz(kdlon) ! COSINE OF SOLAR ZENITH ANGLE
+  REAL (KIND=8) pto1(kdlon) ! OPTICAL THICKNESS
+  REAL (KIND=8) pw(kdlon) ! SINGLE SCATTERING ALBEDO
+  REAL (KIND=8) pre1(kdlon) ! LAYER REFLECTIVITY (NO UNDERLYING-LAYER REFLECTION)
+  REAL (KIND=8) pre2(kdlon) ! LAYER REFLECTIVITY
+  REAL (KIND=8) ptr1(kdlon) ! LAYER TRANSMISSIVITY (NO UNDERLYING-LAYER REFLECTION)
+  REAL (KIND=8) ptr2(kdlon) ! LAYER TRANSMISSIVITY
+
+  ! * LOCAL VARIABLES:
+
+  INTEGER jl
+  REAL (KIND=8) zff, zgp, ztop, zwcp, zdt, zx1, zwm
+  REAL (KIND=8) zrm2, zrk, zx2, zrp, zalpha, zbeta, zarg
+  REAL (KIND=8) zexmu0, zarg2, zexkp, zexkm, zxp2p, zxm2p, zap2b, zam2b
+  REAL (KIND=8) za11, za12, za13, za21, za22, za23
+  REAL (KIND=8) zdena, zc1a, zc2a, zri0a, zri1a
+  REAL (KIND=8) zri0b, zri1b
+  REAL (KIND=8) zb21, zb22, zb23, zdenb, zc1b, zc2b
+  REAL (KIND=8) zri0c, zri1c, zri0d, zri1d
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.      DELTA-EDDINGTON CALCULATIONS
+
+
+  DO jl = 1, kdlon
+    ! *         1.1     SET UP THE DELTA-MODIFIED PARAMETERS
+
+
+    zff = pgg(jl)*pgg(jl)
+    zgp = pgg(jl)/(1.+pgg(jl))
+    ztop = (1.-pw(jl)*zff)*pto1(jl)
+    zwcp = (1-zff)*pw(jl)/(1.-pw(jl)*zff)
+    zdt = 2./3.
+    zx1 = 1. - zwcp*zgp
+    zwm = 1. - zwcp
+    zrm2 = prmuz(jl)*prmuz(jl)
+    zrk = sqrt(3.*zwm*zx1)
+    zx2 = 4.*(1.-zrk*zrk*zrm2)
+    zrp = zrk/zx1
+    zalpha = 3.*zwcp*zrm2*(1.+zgp*zwm)/zx2
+    zbeta = 3.*zwcp*prmuz(jl)*(1.+3.*zgp*zrm2*zwm)/zx2
+    zarg = min(ztop/prmuz(jl), 200._8)
+    zexmu0 = exp(-zarg)
+    zarg2 = min(zrk*ztop, 200._8)
+    zexkp = exp(zarg2)
+    zexkm = 1./zexkp
+    zxp2p = 1. + zdt*zrp
+    zxm2p = 1. - 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)
+
+    ! *         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)
+
+  END DO
+  RETURN
+END SUBROUTINE swde_lmdar4
+SUBROUTINE swtt_lmdar4(knu, ka, pu, ptr)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: apad, bpad, d
+  IMPLICIT NONE
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+  ! ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN THE TWO SPECTRAL
+  ! INTERVALS.
+
+  ! METHOD.
+  ! -------
+
+  ! TRANSMISSION FUNCTION ARE COMPUTED USING PADE APPROXIMANTS
+  ! AND HORNER'S ALGORITHM.
+
+  ! 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
+  ! -----------------------------------------------------------------------
+
+  ! * ARGUMENTS
+
+  INTEGER knu ! INDEX OF THE SPECTRAL INTERVAL
+  INTEGER ka ! INDEX OF THE ABSORBER
+  REAL (KIND=8) pu(kdlon) ! ABSORBER AMOUNT
+
+  REAL (KIND=8) ptr(kdlon) ! TRANSMISSION FUNCTION
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zr1(kdlon), zr2(kdlon)
+  INTEGER jl, i, j
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+
+  DO jl = 1, kdlon
+    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))*(1.-d(knu,ka)) + d(knu, ka)
+  END DO
+
+  RETURN
+END SUBROUTINE swtt_lmdar4
+SUBROUTINE swtt1_lmdar4(knu, kabs, kind, pu, ptr)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: apad, bpad, d
+  IMPLICIT NONE
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+  ! ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN THE TWO SPECTRAL
+  ! INTERVALS.
+
+  ! METHOD.
+  ! -------
+
+  ! TRANSMISSION FUNCTION ARE COMPUTED USING PADE APPROXIMANTS
+  ! AND HORNER'S ALGORITHM.
+
+  ! 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
+  ! -----------------------------------------------------------------------
+  ! * ARGUMENTS:
+
+  INTEGER knu ! INDEX OF THE SPECTRAL INTERVAL
+  INTEGER kabs ! NUMBER OF ABSORBERS
+  INTEGER kind(kabs) ! INDICES OF THE ABSORBERS
+  REAL (KIND=8) pu(kdlon, kabs) ! ABSORBER AMOUNT
+
+  REAL (KIND=8) ptr(kdlon, kabs) ! TRANSMISSION FUNCTION
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zr1(kdlon)
+  REAL (KIND=8) zr2(kdlon)
+  REAL (KIND=8) zu(kdlon)
+  INTEGER jl, ja, i, j, ia
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+
+  DO ja = 1, kabs
+    ia = kind(ja)
+    DO jl = 1, kdlon
+      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))*(1.-d(knu,ia)) + d(knu, ia)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE swtt1_lmdar4
+! IM ctes ds clesphys.h   SUBROUTINE LW(RCO2,RCH4,RN2O,RCFC11,RCFC12,
+SUBROUTINE lw_lmdar4(ppmb, pdp, ppsol, pdt0, pemis, ptl, ptave, pwv, pozon, &
+    paer, pcldld, pcldlu, pview, pcolr, pcolr0, ptoplw, psollw, ptoplw0, &
+    psollw0, psollwdown, &         ! IM  .
+                                   ! psollwdown,psollwdownclr,
+  ! IM  .              ptoplwdown,ptoplwdownclr)
+    plwup, plwdn, plwup0, plwdn0)
+  USE dimphy
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+  include "raddimlw.h"
+  include "YOMCST.h"
+
+  ! -----------------------------------------------------------------------
+  ! 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.
+
+
+  ! 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
+  ! -----------------------------------------------------------------------
+  ! IM ctes ds clesphys.h
+  ! REAL(KIND=8) RCO2   ! CO2 CONCENTRATION (IPCC:353.E-06* 44.011/28.97)
+  ! REAL(KIND=8) RCH4   ! CH4 CONCENTRATION (IPCC: 1.72E-06* 16.043/28.97)
+  ! REAL(KIND=8) RN2O   ! N2O CONCENTRATION (IPCC: 310.E-09* 44.013/28.97)
+  ! REAL(KIND=8) RCFC11 ! CFC11 CONCENTRATION (IPCC: 280.E-12*
+  ! 137.3686/28.97)
+  ! REAL(KIND=8) RCFC12 ! CFC12 CONCENTRATION (IPCC: 484.E-12*
+  ! 120.9140/28.97)
+  include "clesphys.h"
+  REAL (KIND=8) pcldld(kdlon, kflev) ! DOWNWARD EFFECTIVE CLOUD COVER
+  REAL (KIND=8) pcldlu(kdlon, kflev) ! UPWARD EFFECTIVE CLOUD COVER
+  REAL (KIND=8) pdp(kdlon, kflev) ! LAYER PRESSURE THICKNESS (Pa)
+  REAL (KIND=8) pdt0(kdlon) ! SURFACE TEMPERATURE DISCONTINUITY (K)
+  REAL (KIND=8) pemis(kdlon) ! SURFACE EMISSIVITY
+  REAL (KIND=8) ppmb(kdlon, kflev+1) ! HALF LEVEL PRESSURE (mb)
+  REAL (KIND=8) ppsol(kdlon) ! SURFACE PRESSURE (Pa)
+  REAL (KIND=8) pozon(kdlon, kflev) ! O3 mass fraction
+  REAL (KIND=8) ptl(kdlon, kflev+1) ! HALF LEVEL TEMPERATURE (K)
+  REAL (KIND=8) paer(kdlon, kflev, 5) ! OPTICAL THICKNESS OF THE AEROSOLS
+  REAL (KIND=8) ptave(kdlon, kflev) ! LAYER TEMPERATURE (K)
+  REAL (KIND=8) pview(kdlon) ! COSECANT OF VIEWING ANGLE
+  REAL (KIND=8) pwv(kdlon, kflev) ! SPECIFIC HUMIDITY (kg/kg)
+
+  REAL (KIND=8) pcolr(kdlon, kflev) ! LONG-WAVE TENDENCY (K/day)
+  REAL (KIND=8) pcolr0(kdlon, kflev) ! LONG-WAVE TENDENCY (K/day) clear-sky
+  REAL (KIND=8) ptoplw(kdlon) ! LONGWAVE FLUX AT T.O.A.
+  REAL (KIND=8) psollw(kdlon) ! LONGWAVE FLUX AT SURFACE
+  REAL (KIND=8) ptoplw0(kdlon) ! LONGWAVE FLUX AT T.O.A. (CLEAR-SKY)
+  REAL (KIND=8) psollw0(kdlon) ! LONGWAVE FLUX AT SURFACE (CLEAR-SKY)
+  ! Rajout LF
+  REAL (KIND=8) psollwdown(kdlon) ! LONGWAVE downwards flux at surface
+  ! Rajout IM
+  ! IM   real(kind=8) psollwdownclr(kdlon) ! LONGWAVE CS downwards flux at
+  ! surface
+  ! IM   real(kind=8) ptoplwdown(kdlon)    ! LONGWAVE downwards flux at
+  ! T.O.A.
+  ! IM   real(kind=8) ptoplwdownclr(kdlon) ! LONGWAVE CS downwards flux at
+  ! T.O.A.
+  ! IM
+  REAL (KIND=8) plwup(kdlon, kflev+1) ! LW up total sky
+  REAL (KIND=8) plwup0(kdlon, kflev+1) ! LW up clear sky
+  REAL (KIND=8) plwdn(kdlon, kflev+1) ! LW down total sky
+  REAL (KIND=8) plwdn0(kdlon, kflev+1) ! LW down clear sky
+  ! -------------------------------------------------------------------------
+  REAL (KIND=8) zabcu(kdlon, nua, 3*kflev+1)
+
+  REAL (KIND=8) zoz(kdlon, kflev)
+  ! equivalent pressure of ozone in a layer, in Pa
+
+  ! ym      REAL(KIND=8) ZFLUX(KDLON,2,KFLEV+1) ! RADIATIVE FLUXES (1:up;
+  ! 2:down)
+  ! ym      REAL(KIND=8) ZFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES
+  ! ym      REAL(KIND=8) ZBINT(KDLON,KFLEV+1)            ! Intermediate
+  ! variable
+  ! ym      REAL(KIND=8) ZBSUI(KDLON)                    ! Intermediate
+  ! variable
+  ! ym      REAL(KIND=8) ZCTS(KDLON,KFLEV)               ! Intermediate
+  ! variable
+  ! ym      REAL(KIND=8) ZCNTRB(KDLON,KFLEV+1,KFLEV+1)   ! Intermediate
+  ! variable
+  ! ym      SAVE ZFLUX, ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zflux(:, :, :) ! RADIATIVE FLUXES (1:up; 2:down)
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zfluc(:, :, :) ! CLEAR-SKY RADIATIVE FLUXES
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zbint(:, :) ! Intermediate variable
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zbsui(:) ! Intermediate variable
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zcts(:, :) ! Intermediate variable
+  REAL (KIND=8), ALLOCATABLE, SAVE :: zcntrb(:, :, :) ! Intermediate variable
+  !$OMP THREADPRIVATE(ZFLUX, ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB)
+
+  INTEGER ilim, i, k, kpl1
+
+  INTEGER lw0pas ! Every lw0pas steps, clear-sky is done
+  PARAMETER (lw0pas=1)
+  INTEGER lwpas ! Every lwpas steps, cloudy-sky is done
+  PARAMETER (lwpas=1)
+
+  INTEGER itaplw0, itaplw
+  LOGICAL appel1er
+  SAVE appel1er, itaplw0, itaplw
+  !$OMP THREADPRIVATE(appel1er, itaplw0, itaplw)
+  DATA appel1er/.TRUE./
+  DATA itaplw0, itaplw/0, 0/
+
+  ! ------------------------------------------------------------------
+  IF (appel1er) THEN
+    WRITE (lunout, *) 'LW clear-sky calling frequency: ', lw0pas
+    WRITE (lunout, *) 'LW cloudy-sky calling frequency: ', lwpas
+    WRITE (lunout, *) '   In general, they should be 1'
+    ! ym
+    ALLOCATE (zflux(kdlon,2,kflev+1))
+    ALLOCATE (zfluc(kdlon,2,kflev+1))
+    ALLOCATE (zbint(kdlon,kflev+1))
+    ALLOCATE (zbsui(kdlon))
+    ALLOCATE (zcts(kdlon,kflev))
+    ALLOCATE (zcntrb(kdlon,kflev+1,kflev+1))
+    appel1er = .FALSE.
+  END IF
+
+  IF (mod(itaplw0,lw0pas)==0) THEN
+    ! Compute equivalent pressure of ozone from mass fraction:
+    DO k = 1, kflev
+      DO i = 1, kdlon
+        zoz(i, k) = pozon(i, k)*pdp(i, k)
+      END DO
+    END DO
+    ! IM ctes ds clesphys.h   CALL LWU(RCO2,RCH4, RN2O, RCFC11, RCFC12,
+    CALL lwu_lmdar4(paer, pdp, ppmb, ppsol, zoz, ptave, pview, pwv, zabcu)
+    CALL lwbv_lmdar4(ilim, pdp, pdt0, pemis, ppmb, ptl, ptave, zabcu, zfluc, &
+      zbint, zbsui, zcts, zcntrb)
+    itaplw0 = 0
+  END IF
+  itaplw0 = itaplw0 + 1
+
+  IF (mod(itaplw,lwpas)==0) THEN
+    CALL lwc_lmdar4(ilim, pcldld, pcldlu, pemis, zfluc, zbint, zbsui, zcts, &
+      zcntrb, zflux)
+    itaplw = 0
+  END IF
+  itaplw = itaplw + 1
+
+  DO k = 1, kflev
+    kpl1 = k + 1
+    DO i = 1, kdlon
+      pcolr(i, k) = zflux(i, 1, kpl1) + zflux(i, 2, kpl1) - zflux(i, 1, k) - &
+        zflux(i, 2, k)
+      pcolr(i, k) = pcolr(i, k)*rday*rg/rcpd/pdp(i, k)
+      pcolr0(i, k) = zfluc(i, 1, kpl1) + zfluc(i, 2, kpl1) - zfluc(i, 1, k) - &
+        zfluc(i, 2, k)
+      pcolr0(i, k) = pcolr0(i, k)*rday*rg/rcpd/pdp(i, k)
+    END DO
+  END DO
+  DO i = 1, kdlon
+    psollw(i) = -zflux(i, 1, 1) - zflux(i, 2, 1)
+    ptoplw(i) = zflux(i, 1, kflev+1) + zflux(i, 2, kflev+1)
+
+    psollw0(i) = -zfluc(i, 1, 1) - zfluc(i, 2, 1)
+    ptoplw0(i) = zfluc(i, 1, kflev+1) + zfluc(i, 2, kflev+1)
+    psollwdown(i) = -zflux(i, 2, 1)
+
+    ! IM attention aux signes !; LWtop >0, LWdn < 0
+    DO k = 1, kflev + 1
+      plwup(i, k) = zflux(i, 1, k)
+      plwup0(i, k) = zfluc(i, 1, k)
+      plwdn(i, k) = zflux(i, 2, k)
+      plwdn0(i, k) = zfluc(i, 2, k)
+    END DO
+  END DO
+  ! ------------------------------------------------------------------
+  RETURN
+END SUBROUTINE lw_lmdar4
+! IM ctes ds clesphys.h   SUBROUTINE LWU(RCO2, RCH4, RN2O, RCFC11, RCFC12,
+SUBROUTINE lwu_lmdar4(paer, pdp, ppmb, ppsol, poz, ptave, pview, pwv, pabcu)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct
+  USE infotrac_phy, ONLY: type_trac
+#ifdef REPROBUS
+  USE chem_rep, ONLY: rch42d, rn2o2d, rcfc112d, rcfc122d, ok_rtime2d
+#endif
+
+  IMPLICIT NONE
+  include "raddimlw.h"
+  include "YOMCST.h"
+  include "radepsi.h"
+  include "radopt.h"
+
+  ! PURPOSE.
+  ! --------
+  ! COMPUTES ABSORBER AMOUNTS INCLUDING PRESSURE AND
+  ! TEMPERATURE EFFECTS
+
+  ! METHOD.
+  ! -------
+
+  ! 1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+  ! ABSORBERS.
+
+
+  ! 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
+  ! Voigt lines (loop 404 modified) - JJM & PhD - 01/96
+  ! -----------------------------------------------------------------------
+  ! * ARGUMENTS:
+  ! IM ctes ds clesphys.h
+  ! REAL(KIND=8) RCO2
+  ! REAL(KIND=8) RCH4, RN2O, RCFC11, RCFC12
+  include "clesphys.h"
+  REAL (KIND=8) paer(kdlon, kflev, 5)
+  REAL (KIND=8) pdp(kdlon, kflev)
+  REAL (KIND=8) ppmb(kdlon, kflev+1)
+  REAL (KIND=8) ppsol(kdlon)
+  REAL (KIND=8) poz(kdlon, kflev)
+  REAL (KIND=8) ptave(kdlon, kflev)
+  REAL (KIND=8) pview(kdlon)
+  REAL (KIND=8) pwv(kdlon, kflev)
+
+  REAL (KIND=8) pabcu(kdlon, nua, 3*kflev+1) ! EFFECTIVE ABSORBER AMOUNTS
+
+  ! -----------------------------------------------------------------------
+  ! * LOCAL VARIABLES:
+  REAL (KIND=8) zably(kdlon, nua, 3*kflev+1)
+  REAL (KIND=8) zduc(kdlon, 3*kflev+1)
+  REAL (KIND=8) zphio(kdlon)
+  REAL (KIND=8) zpsc2(kdlon)
+  REAL (KIND=8) zpsc3(kdlon)
+  REAL (KIND=8) zpsh1(kdlon)
+  REAL (KIND=8) zpsh2(kdlon)
+  REAL (KIND=8) zpsh3(kdlon)
+  REAL (KIND=8) zpsh4(kdlon)
+  REAL (KIND=8) zpsh5(kdlon)
+  REAL (KIND=8) zpsh6(kdlon)
+  REAL (KIND=8) zpsio(kdlon)
+  REAL (KIND=8) ztcon(kdlon)
+  REAL (KIND=8) zphm6(kdlon)
+  REAL (KIND=8) zpsm6(kdlon)
+  REAL (KIND=8) zphn6(kdlon)
+  REAL (KIND=8) zpsn6(kdlon)
+  REAL (KIND=8) zssig(kdlon, 3*kflev+1)
+  REAL (KIND=8) ztavi(kdlon)
+  REAL (KIND=8) zuaer(kdlon, ninter)
+  REAL (KIND=8) zxoz(kdlon)
+  REAL (KIND=8) zxwv(kdlon)
+
+  INTEGER jl, jk, jkj, jkjr, jkjp, ig1
+  INTEGER jki, jkip1, ja, jj
+  INTEGER jkl, jkp1, jkk, jkjpn
+  INTEGER jae1, jae2, jae3, jae, jjpn
+  INTEGER ir, jc, jcp1
+  REAL (KIND=8) zdpm, zupm, zupmh2o, zupmco2, zupmo3, zu6, zup
+  REAL (KIND=8) zfppw, ztx, ztx2, zzably
+  REAL (KIND=8) zcah1, zcbh1, zcah2, zcbh2, zcah3, zcbh3
+  REAL (KIND=8) zcah4, zcbh4, zcah5, zcbh5, zcah6, zcbh6
+  REAL (KIND=8) zcac8, zcbc8
+  REAL (KIND=8) zalup, zdiff
+
+  REAL (KIND=8) pvgco2, pvgh2o, pvgo3
+
+  REAL (KIND=8) r10e ! DECIMAL/NATURAL LOG.FACTOR
+  PARAMETER (r10e=0.4342945)
+
+  ! -----------------------------------------------------------------------
+
+  IF (levoigt) THEN
+    pvgco2 = 60.
+    pvgh2o = 30.
+    pvgo3 = 400.
+  ELSE
+    pvgco2 = 0.
+    pvgh2o = 0.
+    pvgo3 = 0.
+  END IF
+
+  ! *         2.    PRESSURE OVER GAUSS SUB-LEVELS
+  ! ------------------------------
+
+
+  DO jl = 1, kdlon
+    zssig(jl, 1) = ppmb(jl, 1)*100.
+  END DO
+
+  DO jk = 1, kflev
+    jkj = (jk-1)*ng1p1 + 1
+    jkjr = jkj
+    jkjp = jkj + ng1p1
+    DO jl = 1, kdlon
+      zssig(jl, jkjp) = ppmb(jl, jk+1)*100.
+    END DO
+    DO ig1 = 1, ng1
+      jkj = jkj + 1
+      DO jl = 1, kdlon
+        zssig(jl, jkj) = (zssig(jl,jkjr)+zssig(jl,jkjp))*0.5 + &
+          rt1(ig1)*(zssig(jl,jkjp)-zssig(jl,jkjr))*0.5
+      END DO
+    END DO
+  END DO
+
+  ! -----------------------------------------------------------------------
+
+
+  ! *         4.    PRESSURE THICKNESS AND MEAN PRESSURE OF SUB-LAYERS
+  ! --------------------------------------------------
+
+
+  DO jki = 1, 3*kflev
+    jkip1 = jki + 1
+    DO jl = 1, kdlon
+      zably(jl, 5, jki) = (zssig(jl,jki)+zssig(jl,jkip1))*0.5
+      zably(jl, 3, jki) = (zssig(jl,jki)-zssig(jl,jkip1))/(10.*rg)
+    END DO
+  END DO
+
+  DO jk = 1, kflev
+    jkp1 = jk + 1
+    jkl = kflev + 1 - jk
+    DO jl = 1, kdlon
+      zxwv(jl) = max(pwv(jl,jk), zepscq)
+      zxoz(jl) = max(poz(jl,jk)/pdp(jl,jk), zepsco)
+    END DO
+    jkj = (jk-1)*ng1p1 + 1
+    jkjpn = jkj + ng1
+    DO jkk = jkj, jkjpn
+      DO jl = 1, kdlon
+        zdpm = zably(jl, 3, jkk)
+        zupm = zably(jl, 5, jkk)*zdpm/101325.
+        zupmco2 = (zably(jl,5,jkk)+pvgco2)*zdpm/101325.
+        zupmh2o = (zably(jl,5,jkk)+pvgh2o)*zdpm/101325.
+        zupmo3 = (zably(jl,5,jkk)+pvgo3)*zdpm/101325.
+        zduc(jl, jkk) = zdpm
+        zably(jl, 12, jkk) = zxoz(jl)*zdpm
+        zably(jl, 13, jkk) = zxoz(jl)*zupmo3
+        zu6 = zxwv(jl)*zupm
+        zfppw = 1.6078*zxwv(jl)/(1.+0.608*zxwv(jl))
+        zably(jl, 6, jkk) = zxwv(jl)*zupmh2o
+        zably(jl, 11, jkk) = zu6*zfppw
+        zably(jl, 10, jkk) = zu6*(1.-zfppw)
+        zably(jl, 9, jkk) = rco2*zupmco2
+        zably(jl, 8, jkk) = rco2*zdpm
+      END DO
+    END DO
+  END DO
+
+  ! -----------------------------------------------------------------------
+
+
+  ! *         5.    CUMULATIVE ABSORBER AMOUNTS FROM TOP OF ATMOSPHERE
+  ! --------------------------------------------------
+
+
+  DO ja = 1, nua
+    DO jl = 1, kdlon
+      pabcu(jl, ja, 3*kflev+1) = 0.
+    END DO
+  END DO
+
+  DO jk = 1, kflev
+    jj = (jk-1)*ng1p1 + 1
+    jjpn = jj + ng1
+    jkl = kflev + 1 - jk
+
+    ! *         5.1  CUMULATIVE AEROSOL AMOUNTS FROM TOP OF ATMOSPHERE
+    ! --------------------------------------------------
+
+
+    jae1 = 3*kflev + 1 - jj
+    jae2 = 3*kflev + 1 - (jj+1)
+    jae3 = 3*kflev + 1 - jjpn
+    DO jae = 1, 5
+      DO jl = 1, kdlon
+        zuaer(jl, jae) = (raer(jae,1)*paer(jl,jkl,1)+raer(jae,2)*paer(jl,jkl, &
+          2)+raer(jae,3)*paer(jl,jkl,3)+raer(jae,4)*paer(jl,jkl,4)+ &
+          raer(jae,5)*paer(jl,jkl,5))/(zduc(jl,jae1)+zduc(jl,jae2)+zduc(jl, &
+          jae3))
+      END DO
+    END DO
+
+    ! *         5.2  INTRODUCES TEMPERATURE EFFECTS ON ABSORBER AMOUNTS
+    ! --------------------------------------------------
+
+
+    DO jl = 1, kdlon
+      ztavi(jl) = ptave(jl, jkl)
+      ztcon(jl) = exp(6.08*(296./ztavi(jl)-1.))
+      ztx = ztavi(jl) - tref
+      ztx2 = ztx*ztx
+      zzably = zably(jl, 6, jae1) + zably(jl, 6, jae2) + zably(jl, 6, jae3)
+      zup = min(max(0.5*r10e*log(zzably)+5.,0._8), 6._8)
+      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*ztx-1.13E-6*ztx2)
+      zpsm6(jl) = exp(-5.57E-4*ztx-3.30E-6*ztx2)
+      zphn6(jl) = exp(-3.46E-5*ztx+2.05E-7*ztx2)
+      zpsn6(jl) = exp(3.70E-3*ztx-2.30E-6*ztx2)
+    END DO
+
+    DO jl = 1, kdlon
+      ztavi(jl) = ptave(jl, jkl)
+      ztx = ztavi(jl) - tref
+      ztx2 = ztx*ztx
+      zzably = zably(jl, 9, jae1) + zably(jl, 9, jae2) + zably(jl, 9, jae3)
+      zalup = r10e*log(zzably)
+      zup = max(0._8, 5.0+0.5*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
+
+    DO jkk = jj, jjpn
+      jc = 3*kflev + 1 - jkk
+      jcp1 = jc + 1
+      DO jl = 1, kdlon
+        zdiff = pview(jl)
+        pabcu(jl, 10, jc) = pabcu(jl, 10, jcp1) + zably(jl, 10, jc)*zdiff
+        pabcu(jl, 11, jc) = pabcu(jl, 11, jcp1) + zably(jl, 11, jc)*ztcon(jl) &
+          *zdiff
+
+        pabcu(jl, 12, jc) = pabcu(jl, 12, jcp1) + zably(jl, 12, jc)*zphio(jl) &
+          *zdiff
+        pabcu(jl, 13, jc) = pabcu(jl, 13, jcp1) + zably(jl, 13, jc)*zpsio(jl) &
+          *zdiff
+
+        pabcu(jl, 7, jc) = pabcu(jl, 7, jcp1) + zably(jl, 9, jc)*zpsc2(jl)* &
+          zdiff
+        pabcu(jl, 8, jc) = pabcu(jl, 8, jcp1) + zably(jl, 9, jc)*zpsc3(jl)* &
+          zdiff
+        pabcu(jl, 9, jc) = pabcu(jl, 9, jcp1) + zably(jl, 9, jc)*zpsc3(jl)* &
+          zdiff
+
+        pabcu(jl, 1, jc) = pabcu(jl, 1, jcp1) + zably(jl, 6, jc)*zpsh1(jl)* &
+          zdiff
+        pabcu(jl, 2, jc) = pabcu(jl, 2, jcp1) + zably(jl, 6, jc)*zpsh2(jl)* &
+          zdiff
+        pabcu(jl, 3, jc) = pabcu(jl, 3, jcp1) + zably(jl, 6, jc)*zpsh5(jl)* &
+          zdiff
+        pabcu(jl, 4, jc) = pabcu(jl, 4, jcp1) + zably(jl, 6, jc)*zpsh3(jl)* &
+          zdiff
+        pabcu(jl, 5, jc) = pabcu(jl, 5, jcp1) + zably(jl, 6, jc)*zpsh4(jl)* &
+          zdiff
+        pabcu(jl, 6, jc) = pabcu(jl, 6, jcp1) + zably(jl, 6, 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
+
+
+
+        IF (type_trac=='repr') THEN
+#ifdef REPROBUS
+          IF (ok_rtime2d) THEN
+            pabcu(jl, 19, jc) = pabcu(jl, 19, jcp1) + &
+              zably(jl, 8, jc)*rch42d(jl, jc)/rco2*zphm6(jl)*zdiff
+            pabcu(jl, 20, jc) = pabcu(jl, 20, jcp1) + &
+              zably(jl, 9, jc)*rch42d(jl, jc)/rco2*zpsm6(jl)*zdiff
+            pabcu(jl, 21, jc) = pabcu(jl, 21, jcp1) + &
+              zably(jl, 8, jc)*rn2o2d(jl, jc)/rco2*zphn6(jl)*zdiff
+            pabcu(jl, 22, jc) = pabcu(jl, 22, jcp1) + &
+              zably(jl, 9, jc)*rn2o2d(jl, jc)/rco2*zpsn6(jl)*zdiff
+
+            pabcu(jl, 23, jc) = pabcu(jl, 23, jcp1) + &
+              zably(jl, 8, jc)*rcfc112d(jl, jc)/rco2*zdiff
+            pabcu(jl, 24, jc) = pabcu(jl, 24, jcp1) + &
+              zably(jl, 8, jc)*rcfc122d(jl, jc)/rco2*zdiff
+          ELSE
+              ! Same calculation as for type_trac /= repr
+            pabcu(jl, 19, jc) = pabcu(jl, 19, jcp1) + &
+              zably(jl, 8, jc)*rch4/rco2*zphm6(jl)*zdiff
+            pabcu(jl, 20, jc) = pabcu(jl, 20, jcp1) + &
+              zably(jl, 9, jc)*rch4/rco2*zpsm6(jl)*zdiff
+            pabcu(jl, 21, jc) = pabcu(jl, 21, jcp1) + &
+              zably(jl, 8, jc)*rn2o/rco2*zphn6(jl)*zdiff
+            pabcu(jl, 22, jc) = pabcu(jl, 22, jcp1) + &
+              zably(jl, 9, jc)*rn2o/rco2*zpsn6(jl)*zdiff
+
+            pabcu(jl, 23, jc) = pabcu(jl, 23, jcp1) + &
+              zably(jl, 8, jc)*rcfc11/rco2*zdiff
+            pabcu(jl, 24, jc) = pabcu(jl, 24, jcp1) + &
+              zably(jl, 8, jc)*rcfc12/rco2*zdiff
+          END IF
+#endif
+        ELSE
+          pabcu(jl, 19, jc) = pabcu(jl, 19, jcp1) + &
+            zably(jl, 8, jc)*rch4/rco2*zphm6(jl)*zdiff
+          pabcu(jl, 20, jc) = pabcu(jl, 20, jcp1) + &
+            zably(jl, 9, jc)*rch4/rco2*zpsm6(jl)*zdiff
+          pabcu(jl, 21, jc) = pabcu(jl, 21, jcp1) + &
+            zably(jl, 8, jc)*rn2o/rco2*zphn6(jl)*zdiff
+          pabcu(jl, 22, jc) = pabcu(jl, 22, jcp1) + &
+            zably(jl, 9, jc)*rn2o/rco2*zpsn6(jl)*zdiff
+
+          pabcu(jl, 23, jc) = pabcu(jl, 23, jcp1) + &
+            zably(jl, 8, jc)*rcfc11/rco2*zdiff
+          pabcu(jl, 24, jc) = pabcu(jl, 24, jcp1) + &
+            zably(jl, 8, jc)*rcfc12/rco2*zdiff
+        END IF
+
+      END DO
+    END DO
+
+  END DO
+
+
+  RETURN
+END SUBROUTINE lwu_lmdar4
+SUBROUTINE lwbv_lmdar4(klim, pdp, pdt0, pemis, ppmb, ptl, ptave, pabcu, &
+    pfluc, pbint, pbsui, pcts, pcntrb)
+  USE dimphy
+  IMPLICIT NONE
+  include "raddimlw.h"
+  include "YOMCST.h"
+
+  ! PURPOSE.
+  ! --------
+  ! TO COMPUTE THE PLANCK FUNCTION AND PERFORM THE
+  ! VERTICAL INTEGRATION. SPLIT OUT FROM LW FOR MEMORY
+  ! SAVING
+
+  ! 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.
+
+  ! 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)
+  ! -----------------------------------------------------------------------
+  ! * ARGUMENTS:
+  INTEGER klim
+
+  REAL (KIND=8) pdp(kdlon, kflev)
+  REAL (KIND=8) pdt0(kdlon)
+  REAL (KIND=8) pemis(kdlon)
+  REAL (KIND=8) ppmb(kdlon, kflev+1)
+  REAL (KIND=8) ptl(kdlon, kflev+1)
+  REAL (KIND=8) ptave(kdlon, kflev)
+
+  REAL (KIND=8) pfluc(kdlon, 2, kflev+1)
+
+  REAL (KIND=8) pabcu(kdlon, nua, 3*kflev+1)
+  REAL (KIND=8) pbint(kdlon, kflev+1)
+  REAL (KIND=8) pbsui(kdlon)
+  REAL (KIND=8) pcts(kdlon, kflev)
+  REAL (KIND=8) pcntrb(kdlon, kflev+1, kflev+1)
+
+  ! -------------------------------------------------------------------------
+
+  ! * LOCAL VARIABLES:
+  REAL (KIND=8) zb(kdlon, ninter, kflev+1)
+  REAL (KIND=8) zbsur(kdlon, ninter)
+  REAL (KIND=8) zbtop(kdlon, ninter)
+  REAL (KIND=8) zdbsl(kdlon, ninter, kflev*2)
+  REAL (KIND=8) zga(kdlon, 8, 2, kflev)
+  REAL (KIND=8) zgb(kdlon, 8, 2, kflev)
+  REAL (KIND=8) zgasur(kdlon, 8, 2)
+  REAL (KIND=8) zgbsur(kdlon, 8, 2)
+  REAL (KIND=8) zgatop(kdlon, 8, 2)
+  REAL (KIND=8) zgbtop(kdlon, 8, 2)
+
+  INTEGER nuaer, ntraer
+  ! ------------------------------------------------------------------
+  ! * COMPUTES PLANCK FUNCTIONS:
+  CALL lwb_lmdar4(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, &
+    zga, zgb, zgasur, zgbsur, zgatop, zgbtop)
+  ! ------------------------------------------------------------------
+  ! * PERFORMS THE VERTICAL INTEGRATION:
+  nuaer = nua
+  ntraer = ntra
+  CALL lwv_lmdar4(nuaer, ntraer, klim, pabcu, zb, pbint, pbsui, zbsur, zbtop, &
+    zdbsl, pemis, ppmb, ptave, zga, zgb, zgasur, zgbsur, zgatop, zgbtop, &
+    pcntrb, pcts, pfluc)
+  ! ------------------------------------------------------------------
+  RETURN
+END SUBROUTINE lwbv_lmdar4
+SUBROUTINE lwc_lmdar4(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, &
+    pcts, pcntrb, pflux)
+  USE dimphy
+  IMPLICIT NONE
+  include "radepsi.h"
+  include "radopt.h"
+
+  ! PURPOSE.
+  ! --------
+  ! INTRODUCES CLOUD EFFECTS ON LONGWAVE FLUXES OR
+  ! RADIANCES
+
+  ! EXPLICIT ARGUMENTS :
+  ! --------------------
+  ! ==== INPUTS ===
+  ! PBINT  : (KDLON,0:KFLEV)     ; HALF LEVEL PLANCK FUNCTION
+  ! PBSUIN : (KDLON)             ; SURFACE PLANCK FUNCTION
+  ! PCLDLD : (KDLON,KFLEV)       ; DOWNWARD EFFECTIVE CLOUD FRACTION
+  ! PCLDLU : (KDLON,KFLEV)       ; UPWARD EFFECTIVE CLOUD FRACTION
+  ! PCNTRB : (KDLON,KFLEV+1,KFLEV+1); CLEAR-SKY ENERGY EXCHANGE
+  ! PCTS   : (KDLON,KFLEV)       ; CLEAR-SKY LAYER COOLING-TO-SPACE
+  ! PEMIS  : (KDLON)             ; SURFACE EMISSIVITY
+  ! PFLUC
+  ! ==== OUTPUTS ===
+  ! PFLUX(KDLON,2,KFLEV)         ; RADIATIVE FLUXES :
+  ! 1  ==>  UPWARD   FLUX TOTAL
+  ! 2  ==>  DOWNWARD FLUX TOTAL
+
+  ! 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
+
+  ! 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
+  ! Voigt lines (loop 231 to 233)  - JJM & PhD - 01/96
+  ! -----------------------------------------------------------------------
+  ! * ARGUMENTS:
+  INTEGER klim
+  REAL (KIND=8) pfluc(kdlon, 2, kflev+1) ! CLEAR-SKY RADIATIVE FLUXES
+  REAL (KIND=8) pbint(kdlon, kflev+1) ! HALF LEVEL PLANCK FUNCTION
+  REAL (KIND=8) pbsuin(kdlon) ! SURFACE PLANCK FUNCTION
+  REAL (KIND=8) pcntrb(kdlon, kflev+1, kflev+1) !CLEAR-SKY ENERGY EXCHANGE
+  REAL (KIND=8) pcts(kdlon, kflev) ! CLEAR-SKY LAYER COOLING-TO-SPACE
+
+  REAL (KIND=8) pcldld(kdlon, kflev)
+  REAL (KIND=8) pcldlu(kdlon, kflev)
+  REAL (KIND=8) pemis(kdlon)
+
+  REAL (KIND=8) pflux(kdlon, 2, kflev+1)
+  ! -----------------------------------------------------------------------
+  ! * LOCAL VARIABLES:
+  INTEGER imx(kdlon), imxp(kdlon)
+
+  REAL (KIND=8) zclear(kdlon), zcloud(kdlon), zdnf(kdlon, kflev+1, kflev+1), &
+    zfd(kdlon), zfn10(kdlon), zfu(kdlon), zupf(kdlon, kflev+1, kflev+1)
+  REAL (KIND=8) zclm(kdlon, kflev+1, kflev+1)
+
+  INTEGER jk, jl, imaxc, imx1, imx2, jkj, jkp1, jkm1
+  INTEGER jk1, jk2, jkc, jkcp1, jcloud
+  INTEGER imxm1, imxp1
+  REAL (KIND=8) zcfrac
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.     INITIALIZATION
+  ! --------------
+
+
+  imaxc = 0
+
+  DO jl = 1, kdlon
+    imx(jl) = 0
+    imxp(jl) = 0
+    zcloud(jl) = 0.
+  END DO
+
+  ! *         1.1    SEARCH THE LAYER INDEX OF THE HIGHEST CLOUD
+  ! -------------------------------------------
+
+
+  DO jk = 1, kflev
+    DO jl = 1, kdlon
+      imx1 = imx(jl)
+      imx2 = jk
+      IF (pcldlu(jl,jk)>zepsc) THEN
+        imxp(jl) = imx2
+      ELSE
+        imxp(jl) = imx1
+      END IF
+      imaxc = max(imxp(jl), imaxc)
+      imx(jl) = imxp(jl)
+    END DO
+  END DO
+  ! GM*******
+  imaxc = kflev
+  ! GM*******
+
+  DO jk = 1, kflev + 1
+    DO jl = 1, kdlon
+      pflux(jl, 1, jk) = pfluc(jl, 1, jk)
+      pflux(jl, 2, jk) = pfluc(jl, 2, jk)
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.      EFFECT OF CLOUDINESS ON LONGWAVE FLUXES
+  ! ---------------------------------------
+
+  IF (imaxc>0) THEN
+
+    imxp1 = imaxc + 1
+    imxm1 = imaxc - 1
+
+    ! *         2.0     INITIALIZE TO CLEAR-SKY FLUXES
+    ! ------------------------------
+
+
+    DO jk1 = 1, kflev + 1
+      DO jk2 = 1, kflev + 1
+        DO jl = 1, kdlon
+          zupf(jl, jk2, jk1) = pfluc(jl, 1, jk1)
+          zdnf(jl, jk2, jk1) = pfluc(jl, 2, 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, kflev + 1
+        jkm1 = jk - 1
+        DO jl = 1, kdlon
+          zfu(jl) = 0.
+        END DO
+        IF (jk>jkcp1) THEN
+          DO jkj = jkcp1, jkm1
+            DO jl = 1, kdlon
+              zfu(jl) = zfu(jl) + pcntrb(jl, jk, jkj)
+            END DO
+          END DO
+        END IF
+
+        DO jl = 1, kdlon
+          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 = 1, kdlon
+          zfd(jl) = 0.
+        END DO
+
+        IF (jk<jcloud) THEN
+          DO jkj = jkp1, jcloud
+            DO jl = 1, kdlon
+              zfd(jl) = zfd(jl) + pcntrb(jl, jk, jkj)
+            END DO
+          END DO
+        END IF
+        DO jl = 1, kdlon
+          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, kflev + 1
+      DO jk2 = 1, kflev + 1
+        DO jl = 1, kdlon
+          zclm(jl, jk1, jk2) = 0.
+        END DO
+      END DO
+    END DO
+
+    ! *         2.4     CLOUD COVER BELOW THE LEVEL OF CALCULATION
+    ! ------------------------------------------
+
+
+    DO jk1 = 2, kflev + 1
+      DO jl = 1, kdlon
+        zclear(jl) = 1.
+        zcloud(jl) = 0.
+      END DO
+      DO jk = jk1 - 1, 1, -1
+        DO jl = 1, kdlon
+          IF (novlp==1) THEN
+            ! * maximum-random
+            zclear(jl) = zclear(jl)*(1.0-max(pcldlu(jl, &
+              jk),zcloud(jl)))/(1.0-min(zcloud(jl),1.-zepsec))
+            zclm(jl, jk1, jk) = 1.0 - zclear(jl)
+            zcloud(jl) = pcldlu(jl, jk)
+          ELSE IF (novlp==2) THEN
+            ! * maximum
+            zcloud(jl) = max(zcloud(jl), pcldlu(jl,jk))
+            zclm(jl, jk1, jk) = zcloud(jl)
+          ELSE IF (novlp==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, kflev
+      DO jl = 1, kdlon
+        zclear(jl) = 1.
+        zcloud(jl) = 0.
+      END DO
+      DO jk = jk1, kflev
+        DO jl = 1, kdlon
+          IF (novlp==1) THEN
+            ! * maximum-random
+            zclear(jl) = zclear(jl)*(1.0-max(pcldld(jl, &
+              jk),zcloud(jl)))/(1.0-min(zcloud(jl),1.-zepsec))
+            zclm(jl, jk1, jk) = 1.0 - zclear(jl)
+            zcloud(jl) = pcldld(jl, jk)
+          ELSE IF (novlp==2) THEN
+            ! * maximum
+            zcloud(jl) = max(zcloud(jl), pcldld(jl,jk))
+            zclm(jl, jk1, jk) = zcloud(jl)
+          ELSE IF (novlp==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 = 1, kdlon
+      pflux(jl, 2, kflev+1) = 0.
+    END DO
+
+    DO jk1 = kflev, 1, -1
+
+      ! *                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+      DO jl = 1, kdlon
+        zfd(jl) = (1.-zclm(jl,jk1,kflev))*zdnf(jl, 1, jk1)
+      END DO
+
+      ! *                 CONTRIBUTION FROM ADJACENT CLOUD
+
+      DO jl = 1, kdlon
+        zfd(jl) = zfd(jl) + zclm(jl, jk1, jk1)*zdnf(jl, jk1+1, jk1)
+      END DO
+
+      ! *                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+
+      DO jk = kflev - 1, jk1, -1
+        DO jl = 1, kdlon
+          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 = 1, kdlon
+        pflux(jl, 2, jk1) = zfd(jl)
+      END DO
+
+    END DO
+
+    ! *         3.2     UPWARD FLUX AT THE SURFACE
+    ! --------------------------
+
+
+    DO jl = 1, kdlon
+      pflux(jl, 1, 1) = pemis(jl)*pbsuin(jl) - (1.-pemis(jl))*pflux(jl, 2, 1)
+    END DO
+
+    ! *         3.3     UPWARD FLUXES
+    ! -------------
+
+
+    DO jk1 = 2, kflev + 1
+
+      ! *                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+      DO jl = 1, kdlon
+        zfu(jl) = (1.-zclm(jl,jk1,1))*zupf(jl, 1, jk1)
+      END DO
+
+      ! *                 CONTRIBUTION FROM ADJACENT CLOUD
+
+      DO jl = 1, kdlon
+        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 = 1, kdlon
+          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 = 1, kdlon
+        pflux(jl, 1, jk1) = zfu(jl)
+      END DO
+
+    END DO
+
+
+  END IF
+
+  ! *         2.3     END OF CLOUD EFFECT COMPUTATIONS
+
+
+  IF (.NOT. levoigt) THEN
+    DO jl = 1, kdlon
+      zfn10(jl) = pflux(jl, 1, klim) + pflux(jl, 2, klim)
+    END DO
+    DO jk = klim + 1, kflev + 1
+      DO jl = 1, kdlon
+        zfn10(jl) = zfn10(jl) + pcts(jl, jk-1)
+        pflux(jl, 1, jk) = zfn10(jl)
+        pflux(jl, 2, jk) = 0.0
+      END DO
+    END DO
+  END IF
+
+  RETURN
+END SUBROUTINE lwc_lmdar4
+SUBROUTINE lwb_lmdar4(pdt0, ptave, ptl, pb, pbint, pbsuin, pbsur, pbtop, &
+    pdbsl, pga, pgb, pgasur, pgbsur, pgatop, pgbtop)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: tintp, xp, ga, gb
+  IMPLICIT NONE
+  include "raddimlw.h"
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! COMPUTES PLANCK FUNCTIONS
+
+  ! EXPLICIT ARGUMENTS :
+  ! --------------------
+  ! ==== INPUTS ===
+  ! PDT0   : (KDLON)             ; SURFACE TEMPERATURE DISCONTINUITY
+  ! PTAVE  : (KDLON,KFLEV)       ; TEMPERATURE
+  ! PTL    : (KDLON,0:KFLEV)     ; HALF LEVEL TEMPERATURE
+  ! ==== OUTPUTS ===
+  ! PB     : (KDLON,Ninter,KFLEV+1); SPECTRAL HALF LEVEL PLANCK FUNCTION
+  ! PBINT  : (KDLON,KFLEV+1)     ; HALF LEVEL PLANCK FUNCTION
+  ! PBSUIN : (KDLON)             ; SURFACE PLANCK FUNCTION
+  ! PBSUR  : (KDLON,Ninter)        ; SURFACE SPECTRAL PLANCK FUNCTION
+  ! PBTOP  : (KDLON,Ninter)        ; TOP SPECTRAL PLANCK FUNCTION
+  ! PDBSL  : (KDLON,Ninter,KFLEV*2); SUB-LAYER PLANCK FUNCTION GRADIENT
+  ! PGA    : (KDLON,8,2,KFLEV); dB/dT-weighted LAYER PADE APPROXIMANTS
+  ! PGB    : (KDLON,8,2,KFLEV); dB/dT-weighted LAYER PADE APPROXIMANTS
+  ! PGASUR, PGBSUR (KDLON,8,2)   ; SURFACE PADE APPROXIMANTS
+  ! PGATOP, PGBTOP (KDLON,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
+
+  ! 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
+
+  ! -----------------------------------------------------------------------
+
+  ! ARGUMENTS:
+
+  REAL (KIND=8) pdt0(kdlon)
+  REAL (KIND=8) ptave(kdlon, kflev)
+  REAL (KIND=8) ptl(kdlon, kflev+1)
+
+  REAL (KIND=8) pb(kdlon, ninter, kflev+1) ! SPECTRAL HALF LEVEL PLANCK FUNCTION
+  REAL (KIND=8) pbint(kdlon, kflev+1) ! HALF LEVEL PLANCK FUNCTION
+  REAL (KIND=8) pbsuin(kdlon) ! SURFACE PLANCK FUNCTION
+  REAL (KIND=8) pbsur(kdlon, ninter) ! SURFACE SPECTRAL PLANCK FUNCTION
+  REAL (KIND=8) pbtop(kdlon, ninter) ! TOP SPECTRAL PLANCK FUNCTION
+  REAL (KIND=8) pdbsl(kdlon, ninter, kflev*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT
+  REAL (KIND=8) pga(kdlon, 8, 2, kflev) ! dB/dT-weighted LAYER PADE APPROXIMANTS
+  REAL (KIND=8) pgb(kdlon, 8, 2, kflev) ! dB/dT-weighted LAYER PADE APPROXIMANTS
+  REAL (KIND=8) pgasur(kdlon, 8, 2) ! SURFACE PADE APPROXIMANTS
+  REAL (KIND=8) pgbsur(kdlon, 8, 2) ! SURFACE PADE APPROXIMANTS
+  REAL (KIND=8) pgatop(kdlon, 8, 2) ! T.O.A. PADE APPROXIMANTS
+  REAL (KIND=8) pgbtop(kdlon, 8, 2) ! T.O.A. PADE APPROXIMANTS
+
+  ! -------------------------------------------------------------------------
+  ! *  LOCAL VARIABLES:
+  INTEGER indb(kdlon), inds(kdlon)
+  REAL (KIND=8) zblay(kdlon, kflev), zblev(kdlon, kflev+1)
+  REAL (KIND=8) zres(kdlon), zres2(kdlon), zti(kdlon), zti2(kdlon)
+
+  INTEGER jk, jl, ic, jnu, jf, jg
+  INTEGER jk1, jk2
+  INTEGER k, j, ixtox, indto, ixtx, indt
+  INTEGER indsu, indtp
+  REAL (KIND=8) zdsto1, zdstox, zdst1, zdstx
+
+  ! * Quelques parametres:
+  REAL (KIND=8) tstand
+  PARAMETER (tstand=250.0)
+  REAL (KIND=8) tstp
+  PARAMETER (tstp=12.5)
+  INTEGER mxixt
+  PARAMETER (mxixt=10)
+
+  ! * Used Data Block:
+  ! REAL*8 TINTP(11)
+  ! SAVE TINTP
+  ! c$OMP THREADPRIVATE(TINTP)
+  ! REAL*8 GA(11,16,3), GB(11,16,3)
+  ! SAVE GA, GB
+  ! c$OMP THREADPRIVATE(GA, GB)
+  ! REAL*8 XP(6,6)
+  ! SAVE XP
+  ! c$OMP THREADPRIVATE(XP)
+
+  ! DATA TINTP / 187.5, 200., 212.5, 225., 237.5, 250.,
+  ! S             262.5, 275., 287.5, 300., 312.5 /
+  ! -----------------------------------------------------------------------
+  ! -- 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
+  ! DATA (GA( 1, 1,IC),IC=1,3) /
+  ! S 0.63499072E-02,-0.99506586E-03, 0.00000000E+00/
+  ! DATA (GB( 1, 1,IC),IC=1,3) /
+  ! S 0.63499072E-02, 0.97222852E-01, 0.10000000E+01/
+  ! DATA (GA( 1, 2,IC),IC=1,3) /
+  ! S 0.77266491E-02,-0.11661515E-02, 0.00000000E+00/
+  ! DATA (GB( 1, 2,IC),IC=1,3) /
+  ! S 0.77266491E-02, 0.10681591E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 2, 1,IC),IC=1,3) /
+  ! S 0.65566348E-02,-0.10184169E-02, 0.00000000E+00/
+  ! DATA (GB( 2, 1,IC),IC=1,3) /
+  ! S 0.65566348E-02, 0.98862238E-01, 0.10000000E+01/
+  ! DATA (GA( 2, 2,IC),IC=1,3) /
+  ! S 0.81323287E-02,-0.11886130E-02, 0.00000000E+00/
+  ! DATA (GB( 2, 2,IC),IC=1,3) /
+  ! S 0.81323287E-02, 0.10921298E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 3, 1,IC),IC=1,3) /
+  ! S 0.67849730E-02,-0.10404730E-02, 0.00000000E+00/
+  ! DATA (GB( 3, 1,IC),IC=1,3) /
+  ! S 0.67849730E-02, 0.10061504E+00, 0.10000000E+01/
+  ! DATA (GA( 3, 2,IC),IC=1,3) /
+  ! S 0.86507620E-02,-0.12139929E-02, 0.00000000E+00/
+  ! DATA (GB( 3, 2,IC),IC=1,3) /
+  ! S 0.86507620E-02, 0.11198225E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 4, 1,IC),IC=1,3) /
+  ! S 0.70481947E-02,-0.10621792E-02, 0.00000000E+00/
+  ! DATA (GB( 4, 1,IC),IC=1,3) /
+  ! S 0.70481947E-02, 0.10256222E+00, 0.10000000E+01/
+  ! DATA (GA( 4, 2,IC),IC=1,3) /
+  ! S 0.92776391E-02,-0.12445811E-02, 0.00000000E+00/
+  ! DATA (GB( 4, 2,IC),IC=1,3) /
+  ! S 0.92776391E-02, 0.11487826E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 5, 1,IC),IC=1,3) /
+  ! S 0.73585943E-02,-0.10847662E-02, 0.00000000E+00/
+  ! DATA (GB( 5, 1,IC),IC=1,3) /
+  ! S 0.73585943E-02, 0.10475952E+00, 0.10000000E+01/
+  ! DATA (GA( 5, 2,IC),IC=1,3) /
+  ! S 0.99806312E-02,-0.12807672E-02, 0.00000000E+00/
+  ! DATA (GB( 5, 2,IC),IC=1,3) /
+  ! S 0.99806312E-02, 0.11751113E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 6, 1,IC),IC=1,3) /
+  ! S 0.77242818E-02,-0.11094726E-02, 0.00000000E+00/
+  ! DATA (GB( 6, 1,IC),IC=1,3) /
+  ! S 0.77242818E-02, 0.10720986E+00, 0.10000000E+01/
+  ! DATA (GA( 6, 2,IC),IC=1,3) /
+  ! S 0.10709803E-01,-0.13208251E-02, 0.00000000E+00/
+  ! DATA (GB( 6, 2,IC),IC=1,3) /
+  ! S 0.10709803E-01, 0.11951535E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 7, 1,IC),IC=1,3) /
+  ! S 0.81472693E-02,-0.11372949E-02, 0.00000000E+00/
+  ! DATA (GB( 7, 1,IC),IC=1,3) /
+  ! S 0.81472693E-02, 0.10985370E+00, 0.10000000E+01/
+  ! DATA (GA( 7, 2,IC),IC=1,3) /
+  ! S 0.11414739E-01,-0.13619034E-02, 0.00000000E+00/
+  ! DATA (GB( 7, 2,IC),IC=1,3) /
+  ! S 0.11414739E-01, 0.12069945E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 8, 1,IC),IC=1,3) /
+  ! S 0.86227527E-02,-0.11687683E-02, 0.00000000E+00/
+  ! DATA (GB( 8, 1,IC),IC=1,3) /
+  ! S 0.86227527E-02, 0.11257633E+00, 0.10000000E+01/
+  ! DATA (GA( 8, 2,IC),IC=1,3) /
+  ! S 0.12058772E-01,-0.14014165E-02, 0.00000000E+00/
+  ! DATA (GB( 8, 2,IC),IC=1,3) /
+  ! S 0.12058772E-01, 0.12108524E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 9, 1,IC),IC=1,3) /
+  ! S 0.91396814E-02,-0.12038314E-02, 0.00000000E+00/
+  ! DATA (GB( 9, 1,IC),IC=1,3) /
+  ! S 0.91396814E-02, 0.11522980E+00, 0.10000000E+01/
+  ! DATA (GA( 9, 2,IC),IC=1,3) /
+  ! S 0.12623992E-01,-0.14378639E-02, 0.00000000E+00/
+  ! DATA (GB( 9, 2,IC),IC=1,3) /
+  ! S 0.12623992E-01, 0.12084229E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA(10, 1,IC),IC=1,3) /
+  ! S 0.96825438E-02,-0.12418367E-02, 0.00000000E+00/
+  ! DATA (GB(10, 1,IC),IC=1,3) /
+  ! S 0.96825438E-02, 0.11766343E+00, 0.10000000E+01/
+  ! DATA (GA(10, 2,IC),IC=1,3) /
+  ! S 0.13108146E-01,-0.14708488E-02, 0.00000000E+00/
+  ! DATA (GB(10, 2,IC),IC=1,3) /
+  ! S 0.13108146E-01, 0.12019005E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 1 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA(11, 1,IC),IC=1,3) /
+  ! S 0.10233955E-01,-0.12817135E-02, 0.00000000E+00/
+  ! DATA (GB(11, 1,IC),IC=1,3) /
+  ! S 0.10233955E-01, 0.11975320E+00, 0.10000000E+01/
+  ! DATA (GA(11, 2,IC),IC=1,3) /
+  ! S 0.13518390E-01,-0.15006791E-02, 0.00000000E+00/
+  ! DATA (GB(11, 2,IC),IC=1,3) /
+  ! S 0.13518390E-01, 0.11932684E+00, 0.10000000E+01/
+
+
+
+  ! --- 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
+  ! DATA (GA( 1, 3,IC),IC=1,3) /
+  ! S 0.11644593E+01, 0.41243390E+00, 0.00000000E+00/
+  ! DATA (GB( 1, 3,IC),IC=1,3) /
+  ! S 0.11644593E+01, 0.10346097E+01, 0.10000000E+01/
+  ! DATA (GA( 1, 4,IC),IC=1,3) /
+  ! S 0.12006968E+01, 0.48318936E+00, 0.00000000E+00/
+  ! DATA (GB( 1, 4,IC),IC=1,3) /
+  ! S 0.12006968E+01, 0.10626130E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 2, 3,IC),IC=1,3) /
+  ! S 0.11747203E+01, 0.43407282E+00, 0.00000000E+00/
+  ! DATA (GB( 2, 3,IC),IC=1,3) /
+  ! S 0.11747203E+01, 0.10433655E+01, 0.10000000E+01/
+  ! DATA (GA( 2, 4,IC),IC=1,3) /
+  ! S 0.12108196E+01, 0.50501827E+00, 0.00000000E+00/
+  ! DATA (GB( 2, 4,IC),IC=1,3) /
+  ! S 0.12108196E+01, 0.10716026E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 3, 3,IC),IC=1,3) /
+  ! S 0.11837872E+01, 0.45331413E+00, 0.00000000E+00/
+  ! DATA (GB( 3, 3,IC),IC=1,3) /
+  ! S 0.11837872E+01, 0.10511933E+01, 0.10000000E+01/
+  ! DATA (GA( 3, 4,IC),IC=1,3) /
+  ! S 0.12196717E+01, 0.52409502E+00, 0.00000000E+00/
+  ! DATA (GB( 3, 4,IC),IC=1,3) /
+  ! S 0.12196717E+01, 0.10795108E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 4, 3,IC),IC=1,3) /
+  ! S 0.11918561E+01, 0.47048604E+00, 0.00000000E+00/
+  ! DATA (GB( 4, 3,IC),IC=1,3) /
+  ! S 0.11918561E+01, 0.10582150E+01, 0.10000000E+01/
+  ! DATA (GA( 4, 4,IC),IC=1,3) /
+  ! S 0.12274493E+01, 0.54085277E+00, 0.00000000E+00/
+  ! DATA (GB( 4, 4,IC),IC=1,3) /
+  ! S 0.12274493E+01, 0.10865006E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 5, 3,IC),IC=1,3) /
+  ! S 0.11990757E+01, 0.48586286E+00, 0.00000000E+00/
+  ! DATA (GB( 5, 3,IC),IC=1,3) /
+  ! S 0.11990757E+01, 0.10645317E+01, 0.10000000E+01/
+  ! DATA (GA( 5, 4,IC),IC=1,3) /
+  ! S 0.12343189E+01, 0.55565422E+00, 0.00000000E+00/
+  ! DATA (GB( 5, 4,IC),IC=1,3) /
+  ! S 0.12343189E+01, 0.10927103E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 6, 3,IC),IC=1,3) /
+  ! S 0.12055643E+01, 0.49968044E+00, 0.00000000E+00/
+  ! DATA (GB( 6, 3,IC),IC=1,3) /
+  ! S 0.12055643E+01, 0.10702313E+01, 0.10000000E+01/
+  ! DATA (GA( 6, 4,IC),IC=1,3) /
+  ! S 0.12404147E+01, 0.56878618E+00, 0.00000000E+00/
+  ! DATA (GB( 6, 4,IC),IC=1,3) /
+  ! S 0.12404147E+01, 0.10982489E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 7, 3,IC),IC=1,3) /
+  ! S 0.12114186E+01, 0.51214132E+00, 0.00000000E+00/
+  ! DATA (GB( 7, 3,IC),IC=1,3) /
+  ! S 0.12114186E+01, 0.10753907E+01, 0.10000000E+01/
+  ! DATA (GA( 7, 4,IC),IC=1,3) /
+  ! S 0.12458431E+01, 0.58047395E+00, 0.00000000E+00/
+  ! DATA (GB( 7, 4,IC),IC=1,3) /
+  ! S 0.12458431E+01, 0.11032019E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 8, 3,IC),IC=1,3) /
+  ! S 0.12167192E+01, 0.52341830E+00, 0.00000000E+00/
+  ! DATA (GB( 8, 3,IC),IC=1,3) /
+  ! S 0.12167192E+01, 0.10800762E+01, 0.10000000E+01/
+  ! DATA (GA( 8, 4,IC),IC=1,3) /
+  ! S 0.12506907E+01, 0.59089894E+00, 0.00000000E+00/
+  ! DATA (GB( 8, 4,IC),IC=1,3) /
+  ! S 0.12506907E+01, 0.11076379E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 9, 3,IC),IC=1,3) /
+  ! S 0.12215344E+01, 0.53365803E+00, 0.00000000E+00/
+  ! DATA (GB( 9, 3,IC),IC=1,3) /
+  ! S 0.12215344E+01, 0.10843446E+01, 0.10000000E+01/
+  ! DATA (GA( 9, 4,IC),IC=1,3) /
+  ! S 0.12550299E+01, 0.60021475E+00, 0.00000000E+00/
+  ! DATA (GB( 9, 4,IC),IC=1,3) /
+  ! S 0.12550299E+01, 0.11116160E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA(10, 3,IC),IC=1,3) /
+  ! S 0.12259226E+01, 0.54298448E+00, 0.00000000E+00/
+  ! DATA (GB(10, 3,IC),IC=1,3) /
+  ! S 0.12259226E+01, 0.10882439E+01, 0.10000000E+01/
+  ! DATA (GA(10, 4,IC),IC=1,3) /
+  ! S 0.12589256E+01, 0.60856112E+00, 0.00000000E+00/
+  ! DATA (GB(10, 4,IC),IC=1,3) /
+  ! S 0.12589256E+01, 0.11151910E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA(11, 3,IC),IC=1,3) /
+  ! S 0.12299344E+01, 0.55150227E+00, 0.00000000E+00/
+  ! DATA (GB(11, 3,IC),IC=1,3) /
+  ! S 0.12299344E+01, 0.10918144E+01, 0.10000000E+01/
+  ! DATA (GA(11, 4,IC),IC=1,3) /
+  ! S 0.12624402E+01, 0.61607594E+00, 0.00000000E+00/
+  ! DATA (GB(11, 4,IC),IC=1,3) /
+  ! S 0.12624402E+01, 0.11184188E+01, 0.10000000E+01/
+
+
+
+
+
+
+  ! - 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
+  ! DATA (GA( 1, 7,IC),IC=1,3) /
+  ! S 0.10192131E+02, 0.80737799E+01, 0.00000000E+00/
+  ! DATA (GB( 1, 7,IC),IC=1,3) /
+  ! S 0.10192131E+02, 0.82623280E+01, 0.10000000E+01/
+  ! DATA (GA( 1, 8,IC),IC=1,3) /
+  ! S 0.92439050E+01, 0.77425778E+01, 0.00000000E+00/
+  ! DATA (GB( 1, 8,IC),IC=1,3) /
+  ! S 0.92439050E+01, 0.79342219E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 2, 7,IC),IC=1,3) /
+  ! S 0.97258602E+01, 0.79171158E+01, 0.00000000E+00/
+  ! DATA (GB( 2, 7,IC),IC=1,3) /
+  ! S 0.97258602E+01, 0.81072291E+01, 0.10000000E+01/
+  ! DATA (GA( 2, 8,IC),IC=1,3) /
+  ! S 0.87567422E+01, 0.75443460E+01, 0.00000000E+00/
+  ! DATA (GB( 2, 8,IC),IC=1,3) /
+  ! S 0.87567422E+01, 0.77373458E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 3, 7,IC),IC=1,3) /
+  ! S 0.92992890E+01, 0.77609605E+01, 0.00000000E+00/
+  ! DATA (GB( 3, 7,IC),IC=1,3) /
+  ! S 0.92992890E+01, 0.79523834E+01, 0.10000000E+01/
+  ! DATA (GA( 3, 8,IC),IC=1,3) /
+  ! S 0.83270144E+01, 0.73526151E+01, 0.00000000E+00/
+  ! DATA (GB( 3, 8,IC),IC=1,3) /
+  ! S 0.83270144E+01, 0.75467334E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 4, 7,IC),IC=1,3) /
+  ! S 0.89154021E+01, 0.76087371E+01, 0.00000000E+00/
+  ! DATA (GB( 4, 7,IC),IC=1,3) /
+  ! S 0.89154021E+01, 0.78012527E+01, 0.10000000E+01/
+  ! DATA (GA( 4, 8,IC),IC=1,3) /
+  ! S 0.79528337E+01, 0.71711188E+01, 0.00000000E+00/
+  ! DATA (GB( 4, 8,IC),IC=1,3) /
+  ! S 0.79528337E+01, 0.73661786E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 5, 7,IC),IC=1,3) /
+  ! S 0.85730084E+01, 0.74627112E+01, 0.00000000E+00/
+  ! DATA (GB( 5, 7,IC),IC=1,3) /
+  ! S 0.85730084E+01, 0.76561458E+01, 0.10000000E+01/
+  ! DATA (GA( 5, 8,IC),IC=1,3) /
+  ! S 0.76286839E+01, 0.70015571E+01, 0.00000000E+00/
+  ! DATA (GB( 5, 8,IC),IC=1,3) /
+  ! S 0.76286839E+01, 0.71974319E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 6, 7,IC),IC=1,3) /
+  ! S 0.82685838E+01, 0.73239981E+01, 0.00000000E+00/
+  ! DATA (GB( 6, 7,IC),IC=1,3) /
+  ! S 0.82685838E+01, 0.75182174E+01, 0.10000000E+01/
+  ! DATA (GA( 6, 8,IC),IC=1,3) /
+  ! S 0.73477879E+01, 0.68442532E+01, 0.00000000E+00/
+  ! DATA (GB( 6, 8,IC),IC=1,3) /
+  ! S 0.73477879E+01, 0.70408543E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 7, 7,IC),IC=1,3) /
+  ! S 0.79978921E+01, 0.71929934E+01, 0.00000000E+00/
+  ! DATA (GB( 7, 7,IC),IC=1,3) /
+  ! S 0.79978921E+01, 0.73878952E+01, 0.10000000E+01/
+  ! DATA (GA( 7, 8,IC),IC=1,3) /
+  ! S 0.71035818E+01, 0.66987996E+01, 0.00000000E+00/
+  ! DATA (GB( 7, 8,IC),IC=1,3) /
+  ! S 0.71035818E+01, 0.68960649E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 8, 7,IC),IC=1,3) /
+  ! S 0.77568055E+01, 0.70697065E+01, 0.00000000E+00/
+  ! DATA (GB( 8, 7,IC),IC=1,3) /
+  ! S 0.77568055E+01, 0.72652133E+01, 0.10000000E+01/
+  ! DATA (GA( 8, 8,IC),IC=1,3) /
+  ! S 0.68903312E+01, 0.65644820E+01, 0.00000000E+00/
+  ! DATA (GB( 8, 8,IC),IC=1,3) /
+  ! S 0.68903312E+01, 0.67623672E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 9, 7,IC),IC=1,3) /
+  ! S 0.75416266E+01, 0.69539626E+01, 0.00000000E+00/
+  ! DATA (GB( 9, 7,IC),IC=1,3) /
+  ! S 0.75416266E+01, 0.71500151E+01, 0.10000000E+01/
+  ! DATA (GA( 9, 8,IC),IC=1,3) /
+  ! S 0.67032875E+01, 0.64405267E+01, 0.00000000E+00/
+  ! DATA (GB( 9, 8,IC),IC=1,3) /
+  ! S 0.67032875E+01, 0.66389989E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA(10, 7,IC),IC=1,3) /
+  ! S 0.73491694E+01, 0.68455144E+01, 0.00000000E+00/
+  ! DATA (GB(10, 7,IC),IC=1,3) /
+  ! S 0.73491694E+01, 0.70420667E+01, 0.10000000E+01/
+  ! DATA (GA(10, 8,IC),IC=1,3) /
+  ! S 0.65386461E+01, 0.63262376E+01, 0.00000000E+00/
+  ! DATA (GB(10, 8,IC),IC=1,3) /
+  ! S 0.65386461E+01, 0.65252707E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 3 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA(11, 7,IC),IC=1,3) /
+  ! S 0.71767400E+01, 0.67441020E+01, 0.00000000E+00/
+  ! DATA (GB(11, 7,IC),IC=1,3) /
+  ! S 0.71767400E+01, 0.69411177E+01, 0.10000000E+01/
+  ! DATA (GA(11, 8,IC),IC=1,3) /
+  ! S 0.63934377E+01, 0.62210701E+01, 0.00000000E+00/
+  ! DATA (GB(11, 8,IC),IC=1,3) /
+  ! S 0.63934377E+01, 0.64206412E+01, 0.10000000E+01/
+
+
+  ! -- WATER VAPOR -- 970-1110 CM-1 ----------------------------------------
+
+  ! -- G = 3.6E-03
+
+  ! ----- INTERVAL = 4 ----- T =  187.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 1, 9,IC),IC=1,3) /
+  ! S 0.24870635E+02, 0.10542131E+02, 0.00000000E+00/
+  ! DATA (GB( 1, 9,IC),IC=1,3) /
+  ! S 0.24870635E+02, 0.10656640E+02, 0.10000000E+01/
+  ! DATA (GA( 1,10,IC),IC=1,3) /
+  ! S 0.24586283E+02, 0.10490353E+02, 0.00000000E+00/
+  ! DATA (GB( 1,10,IC),IC=1,3) /
+  ! S 0.24586283E+02, 0.10605856E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 2, 9,IC),IC=1,3) /
+  ! S 0.24725591E+02, 0.10515895E+02, 0.00000000E+00/
+  ! DATA (GB( 2, 9,IC),IC=1,3) /
+  ! S 0.24725591E+02, 0.10630910E+02, 0.10000000E+01/
+  ! DATA (GA( 2,10,IC),IC=1,3) /
+  ! S 0.24441465E+02, 0.10463512E+02, 0.00000000E+00/
+  ! DATA (GB( 2,10,IC),IC=1,3) /
+  ! S 0.24441465E+02, 0.10579514E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 3, 9,IC),IC=1,3) /
+  ! S 0.24600320E+02, 0.10492949E+02, 0.00000000E+00/
+  ! DATA (GB( 3, 9,IC),IC=1,3) /
+  ! S 0.24600320E+02, 0.10608399E+02, 0.10000000E+01/
+  ! DATA (GA( 3,10,IC),IC=1,3) /
+  ! S 0.24311657E+02, 0.10439183E+02, 0.00000000E+00/
+  ! DATA (GB( 3,10,IC),IC=1,3) /
+  ! S 0.24311657E+02, 0.10555632E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 4, 9,IC),IC=1,3) /
+  ! S 0.24487300E+02, 0.10472049E+02, 0.00000000E+00/
+  ! DATA (GB( 4, 9,IC),IC=1,3) /
+  ! S 0.24487300E+02, 0.10587891E+02, 0.10000000E+01/
+  ! DATA (GA( 4,10,IC),IC=1,3) /
+  ! S 0.24196167E+02, 0.10417324E+02, 0.00000000E+00/
+  ! DATA (GB( 4,10,IC),IC=1,3) /
+  ! S 0.24196167E+02, 0.10534169E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 5, 9,IC),IC=1,3) /
+  ! S 0.24384935E+02, 0.10452961E+02, 0.00000000E+00/
+  ! DATA (GB( 5, 9,IC),IC=1,3) /
+  ! S 0.24384935E+02, 0.10569156E+02, 0.10000000E+01/
+  ! DATA (GA( 5,10,IC),IC=1,3) /
+  ! S 0.24093406E+02, 0.10397704E+02, 0.00000000E+00/
+  ! DATA (GB( 5,10,IC),IC=1,3) /
+  ! S 0.24093406E+02, 0.10514900E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 6, 9,IC),IC=1,3) /
+  ! S 0.24292341E+02, 0.10435562E+02, 0.00000000E+00/
+  ! DATA (GB( 6, 9,IC),IC=1,3) /
+  ! S 0.24292341E+02, 0.10552075E+02, 0.10000000E+01/
+  ! DATA (GA( 6,10,IC),IC=1,3) /
+  ! S 0.24001597E+02, 0.10380038E+02, 0.00000000E+00/
+  ! DATA (GB( 6,10,IC),IC=1,3) /
+  ! S 0.24001597E+02, 0.10497547E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 7, 9,IC),IC=1,3) /
+  ! S 0.24208572E+02, 0.10419710E+02, 0.00000000E+00/
+  ! DATA (GB( 7, 9,IC),IC=1,3) /
+  ! S 0.24208572E+02, 0.10536510E+02, 0.10000000E+01/
+  ! DATA (GA( 7,10,IC),IC=1,3) /
+  ! S 0.23919098E+02, 0.10364052E+02, 0.00000000E+00/
+  ! DATA (GB( 7,10,IC),IC=1,3) /
+  ! S 0.23919098E+02, 0.10481842E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 8, 9,IC),IC=1,3) /
+  ! S 0.24132642E+02, 0.10405247E+02, 0.00000000E+00/
+  ! DATA (GB( 8, 9,IC),IC=1,3) /
+  ! S 0.24132642E+02, 0.10522307E+02, 0.10000000E+01/
+  ! DATA (GA( 8,10,IC),IC=1,3) /
+  ! S 0.23844511E+02, 0.10349509E+02, 0.00000000E+00/
+  ! DATA (GB( 8,10,IC),IC=1,3) /
+  ! S 0.23844511E+02, 0.10467553E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA( 9, 9,IC),IC=1,3) /
+  ! S 0.24063614E+02, 0.10392022E+02, 0.00000000E+00/
+  ! DATA (GB( 9, 9,IC),IC=1,3) /
+  ! S 0.24063614E+02, 0.10509317E+02, 0.10000000E+01/
+  ! DATA (GA( 9,10,IC),IC=1,3) /
+  ! S 0.23776708E+02, 0.10336215E+02, 0.00000000E+00/
+  ! DATA (GB( 9,10,IC),IC=1,3) /
+  ! S 0.23776708E+02, 0.10454488E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA(10, 9,IC),IC=1,3) /
+  ! S 0.24000649E+02, 0.10379892E+02, 0.00000000E+00/
+  ! DATA (GB(10, 9,IC),IC=1,3) /
+  ! S 0.24000649E+02, 0.10497402E+02, 0.10000000E+01/
+  ! DATA (GA(10,10,IC),IC=1,3) /
+  ! S 0.23714816E+02, 0.10324018E+02, 0.00000000E+00/
+  ! DATA (GB(10,10,IC),IC=1,3) /
+  ! S 0.23714816E+02, 0.10442501E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   28   37   45
+  ! DATA (GA(11, 9,IC),IC=1,3) /
+  ! S 0.23943021E+02, 0.10368736E+02, 0.00000000E+00/
+  ! DATA (GB(11, 9,IC),IC=1,3) /
+  ! S 0.23943021E+02, 0.10486443E+02, 0.10000000E+01/
+  ! DATA (GA(11,10,IC),IC=1,3) /
+  ! S 0.23658197E+02, 0.10312808E+02, 0.00000000E+00/
+  ! DATA (GB(11,10,IC),IC=1,3) /
+  ! S 0.23658197E+02, 0.10431483E+02, 0.10000000E+01/
+
+
+
+  ! -- 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
+  ! DATA (GA( 1, 5,IC),IC=1,3) /
+  ! S 0.15750172E+00,-0.22159303E-01, 0.00000000E+00/
+  ! DATA (GB( 1, 5,IC),IC=1,3) /
+  ! S 0.15750172E+00, 0.38103212E+00, 0.10000000E+01/
+  ! DATA (GA( 1, 6,IC),IC=1,3) /
+  ! S 0.17770551E+00,-0.24972399E-01, 0.00000000E+00/
+  ! DATA (GB( 1, 6,IC),IC=1,3) /
+  ! S 0.17770551E+00, 0.41646579E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 2, 5,IC),IC=1,3) /
+  ! S 0.16174076E+00,-0.22748917E-01, 0.00000000E+00/
+  ! DATA (GB( 2, 5,IC),IC=1,3) /
+  ! S 0.16174076E+00, 0.38913800E+00, 0.10000000E+01/
+  ! DATA (GA( 2, 6,IC),IC=1,3) /
+  ! S 0.18176757E+00,-0.25537247E-01, 0.00000000E+00/
+  ! DATA (GB( 2, 6,IC),IC=1,3) /
+  ! S 0.18176757E+00, 0.42345095E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 3, 5,IC),IC=1,3) /
+  ! S 0.16548628E+00,-0.23269898E-01, 0.00000000E+00/
+  ! DATA (GB( 3, 5,IC),IC=1,3) /
+  ! S 0.16548628E+00, 0.39613651E+00, 0.10000000E+01/
+  ! DATA (GA( 3, 6,IC),IC=1,3) /
+  ! S 0.18527967E+00,-0.26025624E-01, 0.00000000E+00/
+  ! DATA (GB( 3, 6,IC),IC=1,3) /
+  ! S 0.18527967E+00, 0.42937476E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 4, 5,IC),IC=1,3) /
+  ! S 0.16881124E+00,-0.23732392E-01, 0.00000000E+00/
+  ! DATA (GB( 4, 5,IC),IC=1,3) /
+  ! S 0.16881124E+00, 0.40222421E+00, 0.10000000E+01/
+  ! DATA (GA( 4, 6,IC),IC=1,3) /
+  ! S 0.18833348E+00,-0.26450280E-01, 0.00000000E+00/
+  ! DATA (GB( 4, 6,IC),IC=1,3) /
+  ! S 0.18833348E+00, 0.43444062E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 5, 5,IC),IC=1,3) /
+  ! S 0.17177839E+00,-0.24145123E-01, 0.00000000E+00/
+  ! DATA (GB( 5, 5,IC),IC=1,3) /
+  ! S 0.17177839E+00, 0.40756010E+00, 0.10000000E+01/
+  ! DATA (GA( 5, 6,IC),IC=1,3) /
+  ! S 0.19100108E+00,-0.26821236E-01, 0.00000000E+00/
+  ! DATA (GB( 5, 6,IC),IC=1,3) /
+  ! S 0.19100108E+00, 0.43880316E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 6, 5,IC),IC=1,3) /
+  ! S 0.17443933E+00,-0.24515269E-01, 0.00000000E+00/
+  ! DATA (GB( 6, 5,IC),IC=1,3) /
+  ! S 0.17443933E+00, 0.41226954E+00, 0.10000000E+01/
+  ! DATA (GA( 6, 6,IC),IC=1,3) /
+  ! S 0.19334122E+00,-0.27146657E-01, 0.00000000E+00/
+  ! DATA (GB( 6, 6,IC),IC=1,3) /
+  ! S 0.19334122E+00, 0.44258354E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 7, 5,IC),IC=1,3) /
+  ! S 0.17683622E+00,-0.24848690E-01, 0.00000000E+00/
+  ! DATA (GB( 7, 5,IC),IC=1,3) /
+  ! S 0.17683622E+00, 0.41645142E+00, 0.10000000E+01/
+  ! DATA (GA( 7, 6,IC),IC=1,3) /
+  ! S 0.19540288E+00,-0.27433354E-01, 0.00000000E+00/
+  ! DATA (GB( 7, 6,IC),IC=1,3) /
+  ! S 0.19540288E+00, 0.44587882E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 8, 5,IC),IC=1,3) /
+  ! S 0.17900375E+00,-0.25150210E-01, 0.00000000E+00/
+  ! DATA (GB( 8, 5,IC),IC=1,3) /
+  ! S 0.17900375E+00, 0.42018474E+00, 0.10000000E+01/
+  ! DATA (GA( 8, 6,IC),IC=1,3) /
+  ! S 0.19722732E+00,-0.27687065E-01, 0.00000000E+00/
+  ! DATA (GB( 8, 6,IC),IC=1,3) /
+  ! S 0.19722732E+00, 0.44876776E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 9, 5,IC),IC=1,3) /
+  ! S 0.18097099E+00,-0.25423873E-01, 0.00000000E+00/
+  ! DATA (GB( 9, 5,IC),IC=1,3) /
+  ! S 0.18097099E+00, 0.42353379E+00, 0.10000000E+01/
+  ! DATA (GA( 9, 6,IC),IC=1,3) /
+  ! S 0.19884918E+00,-0.27912608E-01, 0.00000000E+00/
+  ! DATA (GB( 9, 6,IC),IC=1,3) /
+  ! S 0.19884918E+00, 0.45131451E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA(10, 5,IC),IC=1,3) /
+  ! S 0.18276283E+00,-0.25673139E-01, 0.00000000E+00/
+  ! DATA (GB(10, 5,IC),IC=1,3) /
+  ! S 0.18276283E+00, 0.42655211E+00, 0.10000000E+01/
+  ! DATA (GA(10, 6,IC),IC=1,3) /
+  ! S 0.20029696E+00,-0.28113944E-01, 0.00000000E+00/
+  ! DATA (GB(10, 6,IC),IC=1,3) /
+  ! S 0.20029696E+00, 0.45357095E+00, 0.10000000E+01/
+
+  ! ----- INTERVAL = 5 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA(11, 5,IC),IC=1,3) /
+  ! S 0.18440117E+00,-0.25901055E-01, 0.00000000E+00/
+  ! DATA (GB(11, 5,IC),IC=1,3) /
+  ! S 0.18440117E+00, 0.42928533E+00, 0.10000000E+01/
+  ! DATA (GA(11, 6,IC),IC=1,3) /
+  ! S 0.20159300E+00,-0.28294180E-01, 0.00000000E+00/
+  ! DATA (GB(11, 6,IC),IC=1,3) /
+  ! S 0.20159300E+00, 0.45557797E+00, 0.10000000E+01/
+
+
+
+
+  ! - 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
+  ! DATA (GA( 1,11,IC),IC=1,3) /
+  ! S 0.11990218E+02,-0.12823142E+01, 0.00000000E+00/
+  ! DATA (GB( 1,11,IC),IC=1,3) /
+  ! S 0.11990218E+02, 0.26681588E+02, 0.10000000E+01/
+  ! DATA (GA( 1,12,IC),IC=1,3) /
+  ! S 0.79709806E+01,-0.74805226E+00, 0.00000000E+00/
+  ! DATA (GB( 1,12,IC),IC=1,3) /
+  ! S 0.79709806E+01, 0.18377807E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 2,11,IC),IC=1,3) /
+  ! S 0.10904073E+02,-0.10571588E+01, 0.00000000E+00/
+  ! DATA (GB( 2,11,IC),IC=1,3) /
+  ! S 0.10904073E+02, 0.24728346E+02, 0.10000000E+01/
+  ! DATA (GA( 2,12,IC),IC=1,3) /
+  ! S 0.75400737E+01,-0.56252739E+00, 0.00000000E+00/
+  ! DATA (GB( 2,12,IC),IC=1,3) /
+  ! S 0.75400737E+01, 0.17643148E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 3,11,IC),IC=1,3) /
+  ! S 0.89126838E+01,-0.74864953E+00, 0.00000000E+00/
+  ! DATA (GB( 3,11,IC),IC=1,3) /
+  ! S 0.89126838E+01, 0.20551342E+02, 0.10000000E+01/
+  ! DATA (GA( 3,12,IC),IC=1,3) /
+  ! S 0.81804377E+01,-0.46188072E+00, 0.00000000E+00/
+  ! DATA (GB( 3,12,IC),IC=1,3) /
+  ! S 0.81804377E+01, 0.19296161E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 4,11,IC),IC=1,3) /
+  ! S 0.85622405E+01,-0.58705980E+00, 0.00000000E+00/
+  ! DATA (GB( 4,11,IC),IC=1,3) /
+  ! S 0.85622405E+01, 0.19955244E+02, 0.10000000E+01/
+  ! DATA (GA( 4,12,IC),IC=1,3) /
+  ! S 0.10564339E+02,-0.40712065E+00, 0.00000000E+00/
+  ! DATA (GB( 4,12,IC),IC=1,3) /
+  ! S 0.10564339E+02, 0.24951120E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 5,11,IC),IC=1,3) /
+  ! S 0.94892164E+01,-0.49305772E+00, 0.00000000E+00/
+  ! DATA (GB( 5,11,IC),IC=1,3) /
+  ! S 0.94892164E+01, 0.22227100E+02, 0.10000000E+01/
+  ! DATA (GA( 5,12,IC),IC=1,3) /
+  ! S 0.46896789E+02,-0.15295996E+01, 0.00000000E+00/
+  ! DATA (GB( 5,12,IC),IC=1,3) /
+  ! S 0.46896789E+02, 0.10957372E+03, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 6,11,IC),IC=1,3) /
+  ! S 0.13580937E+02,-0.51461431E+00, 0.00000000E+00/
+  ! DATA (GB( 6,11,IC),IC=1,3) /
+  ! S 0.13580937E+02, 0.31770288E+02, 0.10000000E+01/
+  ! DATA (GA( 6,12,IC),IC=1,3) /
+  ! S-0.30926524E+01, 0.43555255E+00, 0.00000000E+00/
+  ! DATA (GB( 6,12,IC),IC=1,3) /
+  ! S-0.30926524E+01,-0.67432659E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 7,11,IC),IC=1,3) /
+  ! S-0.32050918E+03, 0.12373350E+02, 0.00000000E+00/
+  ! DATA (GB( 7,11,IC),IC=1,3) /
+  ! S-0.32050918E+03,-0.74061287E+03, 0.10000000E+01/
+  ! DATA (GA( 7,12,IC),IC=1,3) /
+  ! S 0.85742941E+00, 0.50380874E+00, 0.00000000E+00/
+  ! DATA (GB( 7,12,IC),IC=1,3) /
+  ! S 0.85742941E+00, 0.24550746E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 8,11,IC),IC=1,3) /
+  ! S-0.37133165E+01, 0.44809588E+00, 0.00000000E+00/
+  ! DATA (GB( 8,11,IC),IC=1,3) /
+  ! S-0.37133165E+01,-0.81329826E+01, 0.10000000E+01/
+  ! DATA (GA( 8,12,IC),IC=1,3) /
+  ! S 0.19164038E+01, 0.68537352E+00, 0.00000000E+00/
+  ! DATA (GB( 8,12,IC),IC=1,3) /
+  ! S 0.19164038E+01, 0.49089917E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA( 9,11,IC),IC=1,3) /
+  ! S 0.18890836E+00, 0.46548918E+00, 0.00000000E+00/
+  ! DATA (GB( 9,11,IC),IC=1,3) /
+  ! S 0.18890836E+00, 0.90279822E+00, 0.10000000E+01/
+  ! DATA (GA( 9,12,IC),IC=1,3) /
+  ! S 0.23513199E+01, 0.89437630E+00, 0.00000000E+00/
+  ! DATA (GB( 9,12,IC),IC=1,3) /
+  ! S 0.23513199E+01, 0.59008712E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA(10,11,IC),IC=1,3) /
+  ! S 0.14209226E+01, 0.59121475E+00, 0.00000000E+00/
+  ! DATA (GB(10,11,IC),IC=1,3) /
+  ! S 0.14209226E+01, 0.37532746E+01, 0.10000000E+01/
+  ! DATA (GA(10,12,IC),IC=1,3) /
+  ! S 0.25566644E+01, 0.11127003E+01, 0.00000000E+00/
+  ! DATA (GB(10,12,IC),IC=1,3) /
+  ! S 0.25566644E+01, 0.63532616E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 6 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 35 40 45
+  ! DATA (GA(11,11,IC),IC=1,3) /
+  ! S 0.19817679E+01, 0.74676119E+00, 0.00000000E+00/
+  ! DATA (GB(11,11,IC),IC=1,3) /
+  ! S 0.19817679E+01, 0.50437916E+01, 0.10000000E+01/
+  ! DATA (GA(11,12,IC),IC=1,3) /
+  ! S 0.26555181E+01, 0.13329782E+01, 0.00000000E+00/
+  ! DATA (GB(11,12,IC),IC=1,3) /
+  ! S 0.26555181E+01, 0.65558627E+01, 0.10000000E+01/
+
+
+
+
+
+  ! -- 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
+  ! DATA (GA( 1,13,IC),IC=1,3) /
+  ! S 0.87668459E-01, 0.13845511E+01, 0.00000000E+00/
+  ! DATA (GB( 1,13,IC),IC=1,3) /
+  ! S 0.87668459E-01, 0.23203798E+01, 0.10000000E+01/
+  ! DATA (GA( 1,14,IC),IC=1,3) /
+  ! S 0.74878820E-01, 0.11718758E+01, 0.00000000E+00/
+  ! DATA (GB( 1,14,IC),IC=1,3) /
+  ! S 0.74878820E-01, 0.20206726E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 2,13,IC),IC=1,3) /
+  ! S 0.83754276E-01, 0.13187042E+01, 0.00000000E+00/
+  ! DATA (GB( 2,13,IC),IC=1,3) /
+  ! S 0.83754276E-01, 0.22288925E+01, 0.10000000E+01/
+  ! DATA (GA( 2,14,IC),IC=1,3) /
+  ! S 0.71650966E-01, 0.11216131E+01, 0.00000000E+00/
+  ! DATA (GB( 2,14,IC),IC=1,3) /
+  ! S 0.71650966E-01, 0.19441824E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 3,13,IC),IC=1,3) /
+  ! S 0.80460283E-01, 0.12644396E+01, 0.00000000E+00/
+  ! DATA (GB( 3,13,IC),IC=1,3) /
+  ! S 0.80460283E-01, 0.21515593E+01, 0.10000000E+01/
+  ! DATA (GA( 3,14,IC),IC=1,3) /
+  ! S 0.68979615E-01, 0.10809473E+01, 0.00000000E+00/
+  ! DATA (GB( 3,14,IC),IC=1,3) /
+  ! S 0.68979615E-01, 0.18807257E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 4,13,IC),IC=1,3) /
+  ! S 0.77659686E-01, 0.12191543E+01, 0.00000000E+00/
+  ! DATA (GB( 4,13,IC),IC=1,3) /
+  ! S 0.77659686E-01, 0.20855896E+01, 0.10000000E+01/
+  ! DATA (GA( 4,14,IC),IC=1,3) /
+  ! S 0.66745345E-01, 0.10476396E+01, 0.00000000E+00/
+  ! DATA (GB( 4,14,IC),IC=1,3) /
+  ! S 0.66745345E-01, 0.18275618E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 5,13,IC),IC=1,3) /
+  ! S 0.75257056E-01, 0.11809511E+01, 0.00000000E+00/
+  ! DATA (GB( 5,13,IC),IC=1,3) /
+  ! S 0.75257056E-01, 0.20288489E+01, 0.10000000E+01/
+  ! DATA (GA( 5,14,IC),IC=1,3) /
+  ! S 0.64857571E-01, 0.10200373E+01, 0.00000000E+00/
+  ! DATA (GB( 5,14,IC),IC=1,3) /
+  ! S 0.64857571E-01, 0.17825910E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 6,13,IC),IC=1,3) /
+  ! S 0.73179175E-01, 0.11484154E+01, 0.00000000E+00/
+  ! DATA (GB( 6,13,IC),IC=1,3) /
+  ! S 0.73179175E-01, 0.19796791E+01, 0.10000000E+01/
+  ! DATA (GA( 6,14,IC),IC=1,3) /
+  ! S 0.63248495E-01, 0.99692726E+00, 0.00000000E+00/
+  ! DATA (GB( 6,14,IC),IC=1,3) /
+  ! S 0.63248495E-01, 0.17442308E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 7,13,IC),IC=1,3) /
+  ! S 0.71369063E-01, 0.11204723E+01, 0.00000000E+00/
+  ! DATA (GB( 7,13,IC),IC=1,3) /
+  ! S 0.71369063E-01, 0.19367778E+01, 0.10000000E+01/
+  ! DATA (GA( 7,14,IC),IC=1,3) /
+  ! S 0.61866970E-01, 0.97740923E+00, 0.00000000E+00/
+  ! DATA (GB( 7,14,IC),IC=1,3) /
+  ! S 0.61866970E-01, 0.17112809E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 8,13,IC),IC=1,3) /
+  ! S 0.69781812E-01, 0.10962918E+01, 0.00000000E+00/
+  ! DATA (GB( 8,13,IC),IC=1,3) /
+  ! S 0.69781812E-01, 0.18991112E+01, 0.10000000E+01/
+  ! DATA (GA( 8,14,IC),IC=1,3) /
+  ! S 0.60673632E-01, 0.96080188E+00, 0.00000000E+00/
+  ! DATA (GB( 8,14,IC),IC=1,3) /
+  ! S 0.60673632E-01, 0.16828137E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA( 9,13,IC),IC=1,3) /
+  ! S 0.68381606E-01, 0.10752229E+01, 0.00000000E+00/
+  ! DATA (GB( 9,13,IC),IC=1,3) /
+  ! S 0.68381606E-01, 0.18658501E+01, 0.10000000E+01/
+  ! DATA (GA( 9,14,IC),IC=1,3) /
+  ! S 0.59637277E-01, 0.94657562E+00, 0.00000000E+00/
+  ! DATA (GB( 9,14,IC),IC=1,3) /
+  ! S 0.59637277E-01, 0.16580908E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA(10,13,IC),IC=1,3) /
+  ! S 0.67139539E-01, 0.10567474E+01, 0.00000000E+00/
+  ! DATA (GB(10,13,IC),IC=1,3) /
+  ! S 0.67139539E-01, 0.18363226E+01, 0.10000000E+01/
+  ! DATA (GA(10,14,IC),IC=1,3) /
+  ! S 0.58732178E-01, 0.93430511E+00, 0.00000000E+00/
+  ! DATA (GB(10,14,IC),IC=1,3) /
+  ! S 0.58732178E-01, 0.16365014E+01, 0.10000000E+01/
+
+  ! ----- INTERVAL = 2 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION   1 30 38 45
+  ! DATA (GA(11,13,IC),IC=1,3) /
+  ! S 0.66032012E-01, 0.10404465E+01, 0.00000000E+00/
+  ! DATA (GB(11,13,IC),IC=1,3) /
+  ! S 0.66032012E-01, 0.18099779E+01, 0.10000000E+01/
+  ! DATA (GA(11,14,IC),IC=1,3) /
+  ! S 0.57936092E-01, 0.92363528E+00, 0.00000000E+00/
+  ! DATA (GB(11,14,IC),IC=1,3) /
+  ! S 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
+  ! DATA (GA( 1,15,IC),IC=1,3) /
+  ! S 0.13230067E+02, 0.22042132E+02, 0.00000000E+00/
+  ! DATA (GB( 1,15,IC),IC=1,3) /
+  ! S 0.13230067E+02, 0.22051750E+02, 0.10000000E+01/
+  ! DATA (GA( 1,16,IC),IC=1,3) /
+  ! S 0.13183816E+02, 0.22169501E+02, 0.00000000E+00/
+  ! DATA (GB( 1,16,IC),IC=1,3) /
+  ! S 0.13183816E+02, 0.22178972E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  200.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 2,15,IC),IC=1,3) /
+  ! S 0.13213564E+02, 0.22107298E+02, 0.00000000E+00/
+  ! DATA (GB( 2,15,IC),IC=1,3) /
+  ! S 0.13213564E+02, 0.22116850E+02, 0.10000000E+01/
+  ! DATA (GA( 2,16,IC),IC=1,3) /
+  ! S 0.13189991E+02, 0.22270075E+02, 0.00000000E+00/
+  ! DATA (GB( 2,16,IC),IC=1,3) /
+  ! S 0.13189991E+02, 0.22279484E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  212.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 3,15,IC),IC=1,3) /
+  ! S 0.13209140E+02, 0.22180915E+02, 0.00000000E+00/
+  ! DATA (GB( 3,15,IC),IC=1,3) /
+  ! S 0.13209140E+02, 0.22190410E+02, 0.10000000E+01/
+  ! DATA (GA( 3,16,IC),IC=1,3) /
+  ! S 0.13209485E+02, 0.22379193E+02, 0.00000000E+00/
+  ! DATA (GB( 3,16,IC),IC=1,3) /
+  ! S 0.13209485E+02, 0.22388551E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  225.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 4,15,IC),IC=1,3) /
+  ! S 0.13213894E+02, 0.22259478E+02, 0.00000000E+00/
+  ! DATA (GB( 4,15,IC),IC=1,3) /
+  ! S 0.13213894E+02, 0.22268925E+02, 0.10000000E+01/
+  ! DATA (GA( 4,16,IC),IC=1,3) /
+  ! S 0.13238789E+02, 0.22492992E+02, 0.00000000E+00/
+  ! DATA (GB( 4,16,IC),IC=1,3) /
+  ! S 0.13238789E+02, 0.22502309E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  237.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 5,15,IC),IC=1,3) /
+  ! S 0.13225963E+02, 0.22341039E+02, 0.00000000E+00/
+  ! DATA (GB( 5,15,IC),IC=1,3) /
+  ! S 0.13225963E+02, 0.22350445E+02, 0.10000000E+01/
+  ! DATA (GA( 5,16,IC),IC=1,3) /
+  ! S 0.13275017E+02, 0.22608508E+02, 0.00000000E+00/
+  ! DATA (GB( 5,16,IC),IC=1,3) /
+  ! S 0.13275017E+02, 0.22617792E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  250.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 6,15,IC),IC=1,3) /
+  ! S 0.13243806E+02, 0.22424247E+02, 0.00000000E+00/
+  ! DATA (GB( 6,15,IC),IC=1,3) /
+  ! S 0.13243806E+02, 0.22433617E+02, 0.10000000E+01/
+  ! DATA (GA( 6,16,IC),IC=1,3) /
+  ! S 0.13316096E+02, 0.22723843E+02, 0.00000000E+00/
+  ! DATA (GB( 6,16,IC),IC=1,3) /
+  ! S 0.13316096E+02, 0.22733099E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  262.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 7,15,IC),IC=1,3) /
+  ! S 0.13266104E+02, 0.22508089E+02, 0.00000000E+00/
+  ! DATA (GB( 7,15,IC),IC=1,3) /
+  ! S 0.13266104E+02, 0.22517429E+02, 0.10000000E+01/
+  ! DATA (GA( 7,16,IC),IC=1,3) /
+  ! S 0.13360555E+02, 0.22837837E+02, 0.00000000E+00/
+  ! DATA (GB( 7,16,IC),IC=1,3) /
+  ! S 0.13360555E+02, 0.22847071E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  275.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 8,15,IC),IC=1,3) /
+  ! S 0.13291782E+02, 0.22591771E+02, 0.00000000E+00/
+  ! DATA (GB( 8,15,IC),IC=1,3) /
+  ! S 0.13291782E+02, 0.22601086E+02, 0.10000000E+01/
+  ! DATA (GA( 8,16,IC),IC=1,3) /
+  ! S 0.13407324E+02, 0.22949751E+02, 0.00000000E+00/
+  ! DATA (GB( 8,16,IC),IC=1,3) /
+  ! S 0.13407324E+02, 0.22958967E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  287.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA( 9,15,IC),IC=1,3) /
+  ! S 0.13319961E+02, 0.22674661E+02, 0.00000000E+00/
+  ! DATA (GB( 9,15,IC),IC=1,3) /
+  ! S 0.13319961E+02, 0.22683956E+02, 0.10000000E+01/
+  ! DATA (GA( 9,16,IC),IC=1,3) /
+  ! S 0.13455544E+02, 0.23059032E+02, 0.00000000E+00/
+  ! DATA (GB( 9,16,IC),IC=1,3) /
+  ! S 0.13455544E+02, 0.23068234E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  300.0
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA(10,15,IC),IC=1,3) /
+  ! S 0.13349927E+02, 0.22756246E+02, 0.00000000E+00/
+  ! DATA (GB(10,15,IC),IC=1,3) /
+  ! S 0.13349927E+02, 0.22765522E+02, 0.10000000E+01/
+  ! DATA (GA(10,16,IC),IC=1,3) /
+  ! S 0.13504450E+02, 0.23165146E+02, 0.00000000E+00/
+  ! DATA (GB(10,16,IC),IC=1,3) /
+  ! S 0.13504450E+02, 0.23174336E+02, 0.10000000E+01/
+
+  ! ----- INTERVAL = 4 ----- T =  312.5
+
+  ! -- INDICES FOR PADE APPROXIMATION     1   15   29   45
+  ! DATA (GA(11,15,IC),IC=1,3) /
+  ! S 0.13381108E+02, 0.22836093E+02, 0.00000000E+00/
+  ! DATA (GB(11,15,IC),IC=1,3) /
+  ! S 0.13381108E+02, 0.22845354E+02, 0.10000000E+01/
+  ! DATA (GA(11,16,IC),IC=1,3) /
+  ! S 0.13553282E+02, 0.23267456E+02, 0.00000000E+00/
+  ! DATA (GB(11,16,IC),IC=1,3) /
+  ! S 0.13553282E+02, 0.23276638E+02, 0.10000000E+01/
+
+  ! ------------------------------------------------------------------
+  ! DATA (( XP(  J,K),J=1,6),       K=1,6) /
+  ! S 0.46430621E+02, 0.12928299E+03, 0.20732648E+03,
+  ! S 0.31398411E+03, 0.18373177E+03,-0.11412303E+03,
+  ! S 0.73604774E+02, 0.27887914E+03, 0.27076947E+03,
+  ! S-0.57322111E+02,-0.64742459E+02, 0.87238280E+02,
+  ! S 0.37050866E+02, 0.20498759E+03, 0.37558029E+03,
+  ! S 0.17401171E+03,-0.13350302E+03,-0.37651795E+02,
+  ! S 0.14930141E+02, 0.89161160E+02, 0.17793062E+03,
+  ! S 0.93433860E+02,-0.70646020E+02,-0.26373150E+02,
+  ! S 0.40386780E+02, 0.10855270E+03, 0.50755010E+02,
+  ! S-0.31496190E+02, 0.12791300E+00, 0.18017770E+01,
+  ! S 0.90811926E+01, 0.75073923E+02, 0.24654438E+03,
+  ! S 0.39332612E+03, 0.29385281E+03, 0.89107921E+02 /
+
+
+
+  ! *         1.0     PLANCK FUNCTIONS AND GRADIENTS
+  ! ------------------------------
+
+
+  ! cdir collapse
+  DO jk = 1, kflev + 1
+    DO jl = 1, kdlon
+      pbint(jl, jk) = 0.
+    END DO
+  END DO
+  DO jl = 1, kdlon
+    pbsuin(jl) = 0.
+  END DO
+
+  DO jnu = 1, ninter
+
+    ! *         1.1   LEVELS FROM SURFACE TO KFLEV
+    ! ----------------------------
+
+
+    DO jk = 1, kflev
+      DO jl = 1, kdlon
+        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)
+      END DO
+    END DO
+
+    ! *         1.2   TOP OF THE ATMOSPHERE AND SURFACE
+    ! ---------------------------------
+
+
+    DO jl = 1, kdlon
+      zti(jl) = (ptl(jl,kflev+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, kflev+1) = pbint(jl, kflev+1) + zres(jl)
+      pb(jl, jnu, kflev+1) = zres(jl)
+      zblev(jl, kflev+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, kflev
+      jk2 = 2*jk
+      jk1 = jk2 - 1
+      DO jl = 1, kdlon
+        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 = 1, kdlon
+    zdsto1 = (ptl(jl,kflev+1)-tintp(1))/tstp
+    ixtox = max(1, min(mxixt,int(zdsto1+1.)))
+    zdstox = (ptl(jl,kflev+1)-tintp(ixtox))/tstp
+    IF (zdstox<0.5) THEN
+      indto = ixtox
+    ELSE
+      indto = ixtox + 1
+    END IF
+    indb(jl) = indto
+    zdst1 = (ptl(jl,1)-tintp(1))/tstp
+    ixtx = max(1, min(mxixt,int(zdst1+1.)))
+    zdstx = (ptl(jl,1)-tintp(ixtx))/tstp
+    IF (zdstx<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 = 1, kdlon
+        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, kflev
+    DO jl = 1, kdlon
+      zdst1 = (ptave(jl,jk)-tintp(1))/tstp
+      ixtx = max(1, min(mxixt,int(zdst1+1.)))
+      zdstx = (ptave(jl,jk)-tintp(ixtx))/tstp
+      IF (zdstx<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 = 1, kdlon
+          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 lwb_lmdar4
+SUBROUTINE lwv_lmdar4(kuaer, ktraer, klim, pabcu, pb, pbint, pbsuin, pbsur, &
+    pbtop, pdbsl, pemis, ppmb, ptave, pga, pgb, pgasur, pgbsur, pgatop, &
+    pgbtop, pcntrb, pcts, pfluc)
+  USE dimphy
+  IMPLICIT NONE
+  include "raddimlw.h"
+  include "YOMCST.h"
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! CARRIES OUT THE VERTICAL INTEGRATION TO GIVE LONGWAVE
+  ! FLUXES OR RADIANCES
+
+  ! 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.
+
+  ! 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
+  ! -----------------------------------------------------------------------
+
+  ! * ARGUMENTS:
+  INTEGER kuaer, ktraer, klim
+
+  REAL (KIND=8) pabcu(kdlon, nua, 3*kflev+1) ! EFFECTIVE ABSORBER AMOUNTS
+  REAL (KIND=8) pb(kdlon, ninter, kflev+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+  REAL (KIND=8) pbint(kdlon, kflev+1) ! HALF-LEVEL PLANCK FUNCTIONS
+  REAL (KIND=8) pbsur(kdlon, ninter) ! SURFACE SPECTRAL PLANCK FUNCTION
+  REAL (KIND=8) pbsuin(kdlon) ! SURFACE PLANCK FUNCTION
+  REAL (KIND=8) pbtop(kdlon, ninter) ! T.O.A. SPECTRAL PLANCK FUNCTION
+  REAL (KIND=8) pdbsl(kdlon, ninter, kflev*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT
+  REAL (KIND=8) pemis(kdlon) ! SURFACE EMISSIVITY
+  REAL (KIND=8) ppmb(kdlon, kflev+1) ! HALF-LEVEL PRESSURE (MB)
+  REAL (KIND=8) ptave(kdlon, kflev) ! TEMPERATURE
+  REAL (KIND=8) pga(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgb(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgasur(kdlon, 8, 2) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgbsur(kdlon, 8, 2) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgatop(kdlon, 8, 2) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgbtop(kdlon, 8, 2) ! PADE APPROXIMANTS
+
+  REAL (KIND=8) pcntrb(kdlon, kflev+1, kflev+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX
+  REAL (KIND=8) pcts(kdlon, kflev) ! COOLING-TO-SPACE TERM
+  REAL (KIND=8) pfluc(kdlon, 2, kflev+1) ! CLEAR-SKY RADIATIVE FLUXES
+  ! -----------------------------------------------------------------------
+  ! LOCAL VARIABLES:
+  REAL (KIND=8) zadjd(kdlon, kflev+1)
+  REAL (KIND=8) zadju(kdlon, kflev+1)
+  REAL (KIND=8) zdbdt(kdlon, ninter, kflev)
+  REAL (KIND=8) zdisd(kdlon, kflev+1)
+  REAL (KIND=8) zdisu(kdlon, kflev+1)
+
+  INTEGER jk, jl
+  ! -----------------------------------------------------------------------
+
+  DO jk = 1, kflev + 1
+    DO jl = 1, kdlon
+      zadjd(jl, jk) = 0.
+      zadju(jl, jk) = 0.
+      zdisd(jl, jk) = 0.
+      zdisu(jl, jk) = 0.
+    END DO
+  END DO
+
+  DO jk = 1, kflev
+    DO jl = 1, kdlon
+      pcts(jl, jk) = 0.
+    END DO
+  END DO
+
+  ! * CONTRIBUTION FROM ADJACENT LAYERS
+
+  CALL lwvn_lmdar4(kuaer, ktraer, pabcu, pdbsl, pga, pgb, zadjd, zadju, &
+    pcntrb, zdbdt)
+  ! * CONTRIBUTION FROM DISTANT LAYERS
+
+  CALL lwvd_lmdar4(kuaer, ktraer, pabcu, zdbdt, pga, pgb, pcntrb, zdisd, &
+    zdisu)
+
+  ! * EXCHANGE WITH THE BOUNDARIES
+
+  CALL lwvb_lmdar4(kuaer, ktraer, klim, pabcu, zadjd, zadju, pb, pbint, &
+    pbsuin, pbsur, pbtop, zdisd, zdisu, pemis, ppmb, pga, pgb, pgasur, &
+    pgbsur, pgatop, pgbtop, pcts, pfluc)
+
+
+  RETURN
+END SUBROUTINE lwv_lmdar4
+SUBROUTINE lwvb_lmdar4(kuaer, ktraer, klim, pabcu, padjd, padju, pb, pbint, &
+    pbsui, pbsur, pbtop, pdisd, pdisu, pemis, ppmb, pga, pgb, pgasur, pgbsur, &
+    pgatop, pgbtop, pcts, pfluc)
+  USE dimphy
+  IMPLICIT NONE
+  include "raddimlw.h"
+  include "radopt.h"
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! INTRODUCES THE EFFECTS OF THE BOUNDARIES IN THE VERTICAL
+  ! INTEGRATION
+
+  ! 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
+
+  ! 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
+  ! Voigt lines (loop 2413 to 2427)  - JJM & PhD - 01/96
+  ! -----------------------------------------------------------------------
+
+  ! *       0.1   ARGUMENTS
+  ! ---------
+
+  INTEGER kuaer, ktraer, klim
+
+  REAL (KIND=8) pabcu(kdlon, nua, 3*kflev+1) ! ABSORBER AMOUNTS
+  REAL (KIND=8) padjd(kdlon, kflev+1) ! CONTRIBUTION BY ADJACENT LAYERS
+  REAL (KIND=8) padju(kdlon, kflev+1) ! CONTRIBUTION BY ADJACENT LAYERS
+  REAL (KIND=8) pb(kdlon, ninter, kflev+1) ! SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+  REAL (KIND=8) pbint(kdlon, kflev+1) ! HALF-LEVEL PLANCK FUNCTIONS
+  REAL (KIND=8) pbsur(kdlon, ninter) ! SPECTRAL SURFACE PLANCK FUNCTION
+  REAL (KIND=8) pbsui(kdlon) ! SURFACE PLANCK FUNCTION
+  REAL (KIND=8) pbtop(kdlon, ninter) ! SPECTRAL T.O.A. PLANCK FUNCTION
+  REAL (KIND=8) pdisd(kdlon, kflev+1) ! CONTRIBUTION BY DISTANT LAYERS
+  REAL (KIND=8) pdisu(kdlon, kflev+1) ! CONTRIBUTION BY DISTANT LAYERS
+  REAL (KIND=8) pemis(kdlon) ! SURFACE EMISSIVITY
+  REAL (KIND=8) ppmb(kdlon, kflev+1) ! PRESSURE MB
+  REAL (KIND=8) pga(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgb(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgasur(kdlon, 8, 2) ! SURFACE PADE APPROXIMANTS
+  REAL (KIND=8) pgbsur(kdlon, 8, 2) ! SURFACE PADE APPROXIMANTS
+  REAL (KIND=8) pgatop(kdlon, 8, 2) ! T.O.A. PADE APPROXIMANTS
+  REAL (KIND=8) pgbtop(kdlon, 8, 2) ! T.O.A. PADE APPROXIMANTS
+
+  REAL (KIND=8) pfluc(kdlon, 2, kflev+1) ! CLEAR-SKY RADIATIVE FLUXES
+  REAL (KIND=8) pcts(kdlon, kflev) ! COOLING-TO-SPACE TERM
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zbgnd(kdlon)
+  REAL (KIND=8) zfd(kdlon)
+  REAL (KIND=8) zfn10(kdlon)
+  REAL (KIND=8) zfu(kdlon)
+  REAL (KIND=8) ztt(kdlon, ntra)
+  REAL (KIND=8) ztt1(kdlon, ntra)
+  REAL (KIND=8) ztt2(kdlon, ntra)
+  REAL (KIND=8) zuu(kdlon, nua)
+  REAL (KIND=8) zcnsol(kdlon)
+  REAL (KIND=8) zcntop(kdlon)
+
+  INTEGER jk, jl, ja
+  INTEGER jstra, jstru
+  INTEGER ind1, ind2, ind3, ind4, in, jlim
+  REAL (KIND=8) zctstr
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.    INITIALIZATION
+  ! --------------
+
+
+
+  ! *         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+  ! ---------------------------------
+
+
+  DO ja = 1, ntra
+    DO jl = 1, kdlon
+      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 = 1, kdlon
+      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, kflev
+    in = (jk-1)*ng1p1 + 1
+
+    DO ja = 1, kuaer
+      DO jl = 1, kdlon
+        zuu(jl, ja) = pabcu(jl, ja, in)
+      END DO
+    END DO
+
+
+    CALL lwtt_lmdar4(pgatop(1,1,1), pgbtop(1,1,1), zuu, ztt)
+
+    DO jl = 1, kdlon
+      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)
+      pfluc(jl, 2, jk) = zfd(jl)
+    END DO
+
+  END DO
+
+  jk = kflev + 1
+  in = (jk-1)*ng1p1 + 1
+
+  DO jl = 1, kdlon
+    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)
+    pfluc(jl, 2, jk) = zfd(jl)
+  END DO
+
+  ! *         2.4     COOLING-TO-SPACE OF LAYERS ABOVE 10 HPA
+  ! ---------------------------------------
+
+
+
+  ! *         2.4.1   INITIALIZATION
+  ! --------------
+
+
+  jlim = kflev
+
+  IF (.NOT. levoigt) THEN
+    DO jk = kflev, 1, -1
+      IF (ppmb(1,jk)<10.0) THEN
+        jlim = jk
+      END IF
+    END DO
+  END IF
+  klim = jlim
+
+  IF (.NOT. levoigt) THEN
+    DO ja = 1, ktraer
+      DO jl = 1, kdlon
+        ztt1(jl, ja) = 1.0
+      END DO
+    END DO
+
+    ! *         2.4.2   LOOP OVER LAYERS ABOVE 10 HPA
+    ! -----------------------------
+
+
+    DO jstra = kflev, jlim, -1
+      jstru = (jstra-1)*ng1p1 + 1
+
+      DO ja = 1, kuaer
+        DO jl = 1, kdlon
+          zuu(jl, ja) = pabcu(jl, ja, jstru)
+        END DO
+      END DO
+
+
+      CALL lwtt_lmdar4(pga(1,1,1,jstra), pgb(1,1,1,jstra), zuu, ztt)
+
+      DO jl = 1, kdlon
+        zctstr = (pb(jl,1,jstra)+pb(jl,1,jstra+1))* &
+          (ztt1(jl,1)*ztt1(jl,10)-ztt(jl,1)*ztt(jl,10)) + &
+          (pb(jl,2,jstra)+pb(jl,2,jstra+1))*(ztt1(jl,2)*ztt1(jl,7)*ztt1(jl,11 &
+          )-ztt(jl,2)*ztt(jl,7)*ztt(jl,11)) + (pb(jl,3,jstra)+pb(jl,3,jstra+1 &
+          ))*(ztt1(jl,4)*ztt1(jl,8)*ztt1(jl,12)-ztt(jl,4)*ztt(jl,8)*ztt(jl,12 &
+          )) + (pb(jl,4,jstra)+pb(jl,4,jstra+1))*(ztt1(jl,5)*ztt1(jl,9)*ztt1( &
+          jl,13)-ztt(jl,5)*ztt(jl,9)*ztt(jl,13)) + (pb(jl,5,jstra)+pb(jl,5, &
+          jstra+1))*(ztt1(jl,3)*ztt1(jl,14)-ztt(jl,3)*ztt(jl,14)) + &
+          (pb(jl,6,jstra)+pb(jl,6,jstra+1))*(ztt1(jl,6)*ztt1(jl,15)-ztt(jl,6) &
+          *ztt(jl,15))
+        pcts(jl, jstra) = zctstr*0.5
+      END DO
+      DO ja = 1, ktraer
+        DO jl = 1, kdlon
+          ztt1(jl, ja) = ztt(jl, ja)
+        END DO
+      END DO
+    END DO
+  END IF
+  ! Mise a zero de securite pour PCTS en cas de LEVOIGT
+  IF (levoigt) THEN
+    DO jstra = 1, kflev
+      DO jl = 1, kdlon
+        pcts(jl, jstra) = 0.
+      END DO
+    END DO
+  END IF
+
+  ! *         2.5     EXCHANGE WITH LOWER LIMIT
+  ! -------------------------
+
+
+  DO jl = 1, kdlon
+    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 = 1, kdlon
+    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)
+    pfluc(jl, 1, jk) = zfu(jl)
+  END DO
+
+  DO jk = 2, kflev + 1
+    in = (jk-1)*ng1p1 + 1
+
+
+    DO ja = 1, kuaer
+      DO jl = 1, kdlon
+        zuu(jl, ja) = pabcu(jl, ja, 1) - pabcu(jl, ja, in)
+      END DO
+    END DO
+
+
+    CALL lwtt_lmdar4(pgasur(1,1,1), pgbsur(1,1,1), zuu, ztt)
+
+    DO jl = 1, kdlon
+      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)
+      pfluc(jl, 1, jk) = zfu(jl)
+    END DO
+
+
+  END DO
+
+  ! *         2.7     CLEAR-SKY FLUXES
+  ! ----------------
+
+
+  IF (.NOT. levoigt) THEN
+    DO jl = 1, kdlon
+      zfn10(jl) = pfluc(jl, 1, jlim) + pfluc(jl, 2, jlim)
+    END DO
+    DO jk = jlim + 1, kflev + 1
+      DO jl = 1, kdlon
+        zfn10(jl) = zfn10(jl) + pcts(jl, jk-1)
+        pfluc(jl, 1, jk) = zfn10(jl)
+        pfluc(jl, 2, jk) = 0.
+      END DO
+    END DO
+  END IF
+
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE lwvb_lmdar4
+SUBROUTINE lwvd_lmdar4(kuaer, ktraer, pabcu, pdbdt, pga, pgb, pcntrb, pdisd, &
+    pdisu)
+  USE dimphy
+  IMPLICIT NONE
+  include "raddimlw.h"
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! CARRIES OUT THE VERTICAL INTEGRATION ON THE DISTANT LAYERS
+
+  ! METHOD.
+  ! -------
+
+  ! 1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+  ! CONTRIBUTIONS OF THE DISTANT LAYERS USING TRAPEZOIDAL RULE
+
+  ! 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
+  ! -----------------------------------------------------------------------
+  ! * ARGUMENTS:
+
+  INTEGER kuaer, ktraer
+
+  REAL (KIND=8) pabcu(kdlon, nua, 3*kflev+1) ! ABSORBER AMOUNTS
+  REAL (KIND=8) pdbdt(kdlon, ninter, kflev) ! LAYER PLANCK FUNCTION GRADIENT
+  REAL (KIND=8) pga(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgb(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+
+  REAL (KIND=8) pcntrb(kdlon, kflev+1, kflev+1) ! ENERGY EXCHANGE MATRIX
+  REAL (KIND=8) pdisd(kdlon, kflev+1) !  CONTRIBUTION BY DISTANT LAYERS
+  REAL (KIND=8) pdisu(kdlon, kflev+1) !  CONTRIBUTION BY DISTANT LAYERS
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zglayd(kdlon)
+  REAL (KIND=8) zglayu(kdlon)
+  REAL (KIND=8) ztt(kdlon, ntra)
+  REAL (KIND=8) ztt1(kdlon, ntra)
+  REAL (KIND=8) ztt2(kdlon, ntra)
+
+  INTEGER jl, jk, ja, ikp1, ikn, ikd1, jkj, ikd2
+  INTEGER ikjp1, ikm1, ikj, jlk, iku1, ijkl, iku2
+  INTEGER ind1, ind2, ind3, ind4, itt
+  REAL (KIND=8) zww, zdzxdg, zdzxmg
+
+  ! *         1.    INITIALIZATION
+  ! --------------
+
+
+  ! *         1.1     INITIALIZE LAYER CONTRIBUTIONS
+  ! ------------------------------
+
+
+  DO jk = 1, kflev + 1
+    DO jl = 1, kdlon
+      pdisd(jl, jk) = 0.
+      pdisu(jl, jk) = 0.
+    END DO
+  END DO
+
+  ! *         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+  ! ---------------------------------
+
+
+
+  DO ja = 1, ntra
+    DO jl = 1, kdlon
+      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, kflev - 1
+    ikp1 = jk + 1
+    ikn = (jk-1)*ng1p1 + 1
+    ikd1 = jk*ng1p1 + 1
+
+    CALL lwttm_lmdar4(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, kflev
+      IF (itt==1) THEN
+        itt = 2
+      ELSE
+        itt = 1
+      END IF
+      ikjp1 = jkj + 1
+      ikd2 = jkj*ng1p1 + 1
+
+      IF (itt==1) THEN
+        CALL lwttm_lmdar4(pga(1,1,1,jkj), pgb(1,1,1,jkj), pabcu(1,1,ikn), &
+          pabcu(1,1,ikd2), ztt1)
+      ELSE
+        CALL lwttm_lmdar4(pga(1,1,1,jkj), pgb(1,1,1,jkj), pabcu(1,1,ikn), &
+          pabcu(1,1,ikd2), ztt2)
+      END IF
+
+      DO ja = 1, ktraer
+        DO jl = 1, kdlon
+          ztt(jl, ja) = (ztt1(jl,ja)+ztt2(jl,ja))*0.5
+        END DO
+      END DO
+
+      DO jl = 1, kdlon
+        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, kflev + 1
+    ikn = (jk-1)*ng1p1 + 1
+    ikm1 = jk - 1
+    ikj = jk - 2
+    iku1 = ikj*ng1p1 + 1
+
+
+    CALL lwttm_lmdar4(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
+      END IF
+      ijkl = ikm1 - jlk
+      iku2 = (ijkl-1)*ng1p1 + 1
+
+
+      IF (itt==1) THEN
+        CALL lwttm_lmdar4(pga(1,1,1,ijkl), pgb(1,1,1,ijkl), pabcu(1,1,iku2), &
+          pabcu(1,1,ikn), ztt1)
+      ELSE
+        CALL lwttm_lmdar4(pga(1,1,1,ijkl), pgb(1,1,1,ijkl), pabcu(1,1,iku2), &
+          pabcu(1,1,ikn), ztt2)
+      END IF
+
+      DO ja = 1, ktraer
+        DO jl = 1, kdlon
+          ztt(jl, ja) = (ztt1(jl,ja)+ztt2(jl,ja))*0.5
+        END DO
+      END DO
+
+      DO jl = 1, kdlon
+        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 lwvd_lmdar4
+SUBROUTINE lwvn_lmdar4(kuaer, ktraer, pabcu, pdbsl, pga, pgb, padjd, padju, &
+    pcntrb, pdbdt)
+  USE dimphy
+  USE radiation_ar4_param, ONLY: wg1
+  IMPLICIT NONE
+  include "raddimlw.h"
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! CARRIES OUT THE VERTICAL INTEGRATION ON NEARBY LAYERS
+  ! TO GIVE LONGWAVE FLUXES OR RADIANCES
+
+  ! METHOD.
+  ! -------
+
+  ! 1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+  ! CONTRIBUTIONS OF THE ADJACENT LAYERS USING A GAUSSIAN QUADRATURE
+
+  ! 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
+  ! -----------------------------------------------------------------------
+
+  ! * ARGUMENTS:
+
+  INTEGER kuaer, ktraer
+
+  REAL (KIND=8) pabcu(kdlon, nua, 3*kflev+1) ! ABSORBER AMOUNTS
+  REAL (KIND=8) pdbsl(kdlon, ninter, kflev*2) ! SUB-LAYER PLANCK FUNCTION GRADIENT
+  REAL (KIND=8) pga(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgb(kdlon, 8, 2, kflev) ! PADE APPROXIMANTS
+
+  REAL (KIND=8) padjd(kdlon, kflev+1) ! CONTRIBUTION OF ADJACENT LAYERS
+  REAL (KIND=8) padju(kdlon, kflev+1) ! CONTRIBUTION OF ADJACENT LAYERS
+  REAL (KIND=8) pcntrb(kdlon, kflev+1, kflev+1) ! CLEAR-SKY ENERGY EXCHANGE MATRIX
+  REAL (KIND=8) pdbdt(kdlon, ninter, kflev) !  LAYER PLANCK FUNCTION GRADIENT
+
+  ! * LOCAL ARRAYS:
+
+  REAL (KIND=8) zglayd(kdlon)
+  REAL (KIND=8) zglayu(kdlon)
+  REAL (KIND=8) ztt(kdlon, ntra)
+  REAL (KIND=8) ztt1(kdlon, ntra)
+  REAL (KIND=8) ztt2(kdlon, ntra)
+  REAL (KIND=8) zuu(kdlon, nua)
+
+  INTEGER jk, jl, ja, im12, ind, inu, ixu, jg
+  INTEGER ixd, ibs, idd, imu, jk1, jk2, jnu
+  REAL (KIND=8) zwtr
+
+  ! -----------------------------------------------------------------------
+
+  ! *         1.    INITIALIZATION
+  ! --------------
+
+
+  ! *         1.1     INITIALIZE LAYER CONTRIBUTIONS
+  ! ------------------------------
+
+
+  DO jk = 1, kflev + 1
+    DO jl = 1, kdlon
+      padjd(jl, jk) = 0.
+      padju(jl, jk) = 0.
+    END DO
+  END DO
+
+  ! *         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+  ! ---------------------------------
+
+
+  DO ja = 1, ntra
+    DO jl = 1, kdlon
+      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 = 1, kdlon
+      zuu(jl, ja) = 0.
+    END DO
+  END DO
+
+  ! ------------------------------------------------------------------
+
+  ! *         2.      VERTICAL INTEGRATION
+  ! --------------------
+
+
+
+  ! *         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+  ! ---------------------------------
+
+
+  DO jk = 1, kflev
+    ! *         2.1.1   DOWNWARD LAYERS
+    ! ---------------
+
+
+    im12 = 2*(jk-1)
+    ind = (jk-1)*ng1p1 + 1
+    ixd = ind
+    inu = jk*ng1p1 + 1
+    ixu = ind
+
+    DO jl = 1, kdlon
+      zglayd(jl) = 0.
+      zglayu(jl) = 0.
+    END DO
+
+    DO jg = 1, ng1
+      ibs = im12 + jg
+      idd = ixd + jg
+      DO ja = 1, kuaer
+        DO jl = 1, kdlon
+          zuu(jl, ja) = pabcu(jl, ja, ind) - pabcu(jl, ja, idd)
+        END DO
+      END DO
+
+
+      CALL lwtt_lmdar4(pga(1,1,1,jk), pgb(1,1,1,jk), zuu, ztt)
+
+      DO jl = 1, kdlon
+        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 = 1, kdlon
+          zuu(jl, ja) = pabcu(jl, ja, imu) - pabcu(jl, ja, inu)
+        END DO
+      END DO
+
+
+      CALL lwtt_lmdar4(pga(1,1,1,jk), pgb(1,1,1,jk), zuu, ztt)
+
+      DO jl = 1, kdlon
+        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 = 1, kdlon
+      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, kflev
+    jk2 = 2*jk
+    jk1 = jk2 - 1
+    DO jnu = 1, ninter
+      DO jl = 1, kdlon
+        pdbdt(jl, jnu, jk) = pdbsl(jl, jnu, jk1) + pdbsl(jl, jnu, jk2)
+      END DO
+    END DO
+  END DO
+
+  RETURN
+
+END SUBROUTINE lwvn_lmdar4
+SUBROUTINE lwtt_lmdar4(pga, pgb, puu, ptt)
+  USE dimphy
+  IMPLICIT NONE
+  include "raddimlw.h"
+
+  ! -----------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+  ! ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+  ! INTERVALS.
+
+  ! 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.
+
+  ! 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
+
+  ! -----------------------------------------------------------------------
+  REAL (KIND=8) o1h, o2h
+  PARAMETER (o1h=2230.)
+  PARAMETER (o2h=100.)
+  REAL (KIND=8) rpialf0
+  PARAMETER (rpialf0=2.0)
+
+  ! * ARGUMENTS:
+
+  REAL (KIND=8) puu(kdlon, nua)
+  REAL (KIND=8) ptt(kdlon, ntra)
+  REAL (KIND=8) pga(kdlon, 8, 2)
+  REAL (KIND=8) pgb(kdlon, 8, 2)
+
+  ! * LOCAL VARIABLES:
+
+  REAL (KIND=8) zz, zxd, zxn
+  REAL (KIND=8) zpu, zpu10, zpu11, zpu12, zpu13
+  REAL (KIND=8) zeu, zeu10, zeu11, zeu12, zeu13
+  REAL (KIND=8) zx, zy, zsq1, zsq2, zvxy, zuxy
+  REAL (KIND=8) zaercn, zto1, zto2, zxch4, zych4, zxn2o, zyn2o
+  REAL (KIND=8) zsqn21, zodn21, zsqh42, zodh42
+  REAL (KIND=8) zsqh41, zodh41, zsqn22, zodn22, zttf11, zttf12
+  REAL (KIND=8) zuu11, zuu12, za11, za12
+  INTEGER jl, ja
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+  ! -----------------------------------------------
+
+
+
+  ! cdir collapse
+  DO ja = 1, 8
+    DO jl = 1, kdlon
+      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 = 1, kdlon
+    ptt(jl, 9) = ptt(jl, 8)
+
+    ! -  CONTINUUM ABSORPTION: E- AND P-TYPE
+
+    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
+
+    ! -  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)
+
+    ! -- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+
+    ! * CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+    ! NEXOTIC=1
+    ! IF (NEXOTIC.EQ.1) THEN
+    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
+
+    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 lwtt_lmdar4
+SUBROUTINE lwttm_lmdar4(pga, pgb, puu1, puu2, ptt)
+  USE dimphy
+  IMPLICIT NONE
+  include "raddimlw.h"
+
+  ! ------------------------------------------------------------------
+  ! PURPOSE.
+  ! --------
+  ! THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+  ! ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+  ! INTERVALS.
+
+  ! 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.
+
+  ! 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
+
+  ! -----------------------------------------------------------------------
+  REAL (KIND=8) o1h, o2h
+  PARAMETER (o1h=2230.)
+  PARAMETER (o2h=100.)
+  REAL (KIND=8) rpialf0
+  PARAMETER (rpialf0=2.0)
+
+  ! * ARGUMENTS:
+
+  REAL (KIND=8) pga(kdlon, 8, 2) ! PADE APPROXIMANTS
+  REAL (KIND=8) pgb(kdlon, 8, 2) ! PADE APPROXIMANTS
+  REAL (KIND=8) puu1(kdlon, nua) ! ABSORBER AMOUNTS FROM TOP TO LEVEL 1
+  REAL (KIND=8) puu2(kdlon, nua) ! ABSORBER AMOUNTS FROM TOP TO LEVEL 2
+  REAL (KIND=8) ptt(kdlon, ntra) ! TRANSMISSION FUNCTIONS
+
+  ! * LOCAL VARIABLES:
+
+  INTEGER ja, jl
+  REAL (KIND=8) zz, zxd, zxn
+  REAL (KIND=8) zpu, zpu10, zpu11, zpu12, zpu13
+  REAL (KIND=8) zeu, zeu10, zeu11, zeu12, zeu13
+  REAL (KIND=8) zx, zy, zuxy, zsq1, zsq2, zvxy, zaercn, zto1, zto2
+  REAL (KIND=8) zxch4, zych4, zsqh41, zodh41
+  REAL (KIND=8) zxn2o, zyn2o, zsqn21, zodn21, zsqh42, zodh42
+  REAL (KIND=8) zsqn22, zodn22, za11, zttf11, za12, zttf12
+  REAL (KIND=8) zuu11, zuu12
+
+  ! ------------------------------------------------------------------
+
+  ! *         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+  ! -----------------------------------------------
+
+
+
+
+  ! CDIR ON_ADB(PUU1)
+  ! CDIR ON_ADB(PUU2)
+  ! CDIR COLLAPSE
+  DO ja = 1, 8
+    DO jl = 1, kdlon
+      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 = 1, kdlon
+    ptt(jl, 9) = ptt(jl, 8)
+
+    ! -  CONTINUUM ABSORPTION: E- AND P-TYPE
+
+    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
+
+    ! -  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)
+
+    ! -- 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
+
+    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 lwttm_lmdar4
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radiation_ar4_param.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radiation_ar4_param.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radiation_ar4_param.F90	(revision 3330)
@@ -0,0 +1,241 @@
+MODULE radiation_ar4_param
+
+ REAL(KIND=8), parameter :: ZPDH2O = 0.8
+ REAL(KIND=8), parameter :: ZPDUMG = 0.75
+ REAL(KIND=8), parameter :: ZPRH2O = 30000.0
+ REAL(KIND=8), parameter :: ZPRUMG = 30000.0
+ REAL(KIND=8), parameter :: RTDH2O = 0.40
+ REAL(KIND=8), parameter :: RTDUMG = 0.375
+ REAL(KIND=8), parameter :: RTH2O = 240.0
+ REAL(KIND=8), parameter :: RTUMG = 240.0
+
+ REAL(KIND=8), dimension(2), parameter :: WG1 = (/1.0, 1.0/)
+ REAL(KIND=8), dimension(11), parameter :: TINTP = (/ 187.5, 200., 212.5, 225., 237.5, 250., 262.5, 275., 287.5, 300., 312.5 /)
+
+ real(kind=8), dimension(11,16,3), parameter :: GA = reshape ( (/ &
+ 0.63499072E-02, 0.65566348E-02, 0.67849730E-02, 0.70481947E-02, 0.73585943E-02, 0.77242818E-02, 0.81472693E-02, 0.86227527E-02,&
+ 0.91396814E-02, 0.96825438E-02, 0.10233955E-01, 0.77266491E-02, 0.81323287E-02, 0.86507620E-02, 0.92776391E-02, 0.99806312E-02,&
+ 0.10709803E-01, 0.11414739E-01, 0.12058772E-01, 0.12623992E-01, 0.13108146E-01, 0.13518390E-01, 0.11644593E+01, 0.11747203E+01,&
+ 0.11837872E+01, 0.11918561E+01, 0.11990757E+01, 0.12055643E+01, 0.12114186E+01, 0.12167192E+01, 0.12215344E+01, 0.12259226E+01,&
+ 0.12299344E+01, 0.12006968E+01, 0.12108196E+01, 0.12196717E+01, 0.12274493E+01, 0.12343189E+01, 0.12404147E+01, 0.12458431E+01,&
+ 0.12506907E+01, 0.12550299E+01, 0.12589256E+01, 0.12624402E+01, 0.15750172E+00, 0.16174076E+00, 0.16548628E+00, 0.16881124E+00,&
+ 0.17177839E+00, 0.17443933E+00, 0.17683622E+00, 0.17900375E+00, 0.18097099E+00, 0.18276283E+00, 0.18440117E+00, 0.17770551E+00,&
+ 0.18176757E+00, 0.18527967E+00, 0.18833348E+00, 0.19100108E+00, 0.19334122E+00, 0.19540288E+00, 0.19722732E+00, 0.19884918E+00,&
+ 0.20029696E+00, 0.20159300E+00, 0.10192131E+02, 0.97258602E+01, 0.92992890E+01, 0.89154021E+01, 0.85730084E+01, 0.82685838E+01,&
+ 0.79978921E+01, 0.77568055E+01, 0.75416266E+01, 0.73491694E+01, 0.71767400E+01, 0.92439050E+01, 0.87567422E+01, 0.83270144E+01,&
+ 0.79528337E+01, 0.76286839E+01, 0.73477879E+01, 0.71035818E+01, 0.68903312E+01, 0.67032875E+01, 0.65386461E+01, 0.63934377E+01,&
+ 0.24870635E+02, 0.24725591E+02, 0.24600320E+02, 0.24487300E+02, 0.24384935E+02, 0.24292341E+02, 0.24208572E+02, 0.24132642E+02,&
+ 0.24063614E+02, 0.24000649E+02, 0.23943021E+02, 0.24586283E+02, 0.24441465E+02, 0.24311657E+02, 0.24196167E+02, 0.24093406E+02,&
+ 0.24001597E+02, 0.23919098E+02, 0.23844511E+02, 0.23776708E+02, 0.23714816E+02, 0.23658197E+02, 0.11990218E+02, 0.10904073E+02,&
+ 0.89126838E+01, 0.85622405E+01, 0.94892164E+01, 0.13580937E+02,-0.32050918E+03,-0.37133165E+01, 0.18890836E+00, 0.14209226E+01,&
+ 0.19817679E+01, 0.79709806E+01, 0.75400737E+01, 0.81804377E+01, 0.10564339E+02, 0.46896789E+02,-0.30926524E+01, 0.85742941E+00,&
+ 0.19164038E+01, 0.23513199E+01, 0.25566644E+01, 0.26555181E+01, 0.87668459E-01, 0.83754276E-01, 0.80460283E-01, 0.77659686E-01,&
+ 0.75257056E-01, 0.73179175E-01, 0.71369063E-01, 0.69781812E-01, 0.68381606E-01, 0.67139539E-01, 0.66032012E-01, 0.74878820E-01,&
+ 0.71650966E-01, 0.68979615E-01, 0.66745345E-01, 0.64857571E-01, 0.63248495E-01, 0.61866970E-01, 0.60673632E-01, 0.59637277E-01,&
+ 0.58732178E-01, 0.57936092E-01, 0.13230067E+02, 0.13213564E+02, 0.13209140E+02, 0.13213894E+02, 0.13225963E+02, 0.13243806E+02,&
+ 0.13266104E+02, 0.13291782E+02, 0.13319961E+02, 0.13349927E+02, 0.13381108E+02, 0.13183816E+02, 0.13189991E+02, 0.13209485E+02,&
+ 0.13238789E+02, 0.13275017E+02, 0.13316096E+02, 0.13360555E+02, 0.13407324E+02, 0.13455544E+02, 0.13504450E+02, 0.13553282E+02,&
+-0.99506586E-03,-0.10184169E-02,-0.10404730E-02,-0.10621792E-02,-0.10847662E-02,-0.11094726E-02,-0.11372949E-02,-0.11687683E-02,&
+-0.12038314E-02,-0.12418367E-02,-0.12817135E-02,-0.11661515E-02,-0.11886130E-02,-0.12139929E-02,-0.12445811E-02,-0.12807672E-02,&
+-0.13208251E-02,-0.13619034E-02,-0.14014165E-02,-0.14378639E-02,-0.14708488E-02,-0.15006791E-02, 0.41243390E+00, 0.43407282E+00,&
+ 0.45331413E+00, 0.47048604E+00, 0.48586286E+00, 0.49968044E+00, 0.51214132E+00, 0.52341830E+00, 0.53365803E+00, 0.54298448E+00,&
+ 0.55150227E+00, 0.48318936E+00, 0.50501827E+00, 0.52409502E+00, 0.54085277E+00, 0.55565422E+00, 0.56878618E+00, 0.58047395E+00,&
+ 0.59089894E+00, 0.60021475E+00, 0.60856112E+00, 0.61607594E+00,-0.22159303E-01,-0.22748917E-01,-0.23269898E-01,-0.23732392E-01,&
+-0.24145123E-01,-0.24515269E-01,-0.24848690E-01,-0.25150210E-01,-0.25423873E-01,-0.25673139E-01,-0.25901055E-01,-0.24972399E-01,&
+-0.25537247E-01,-0.26025624E-01,-0.26450280E-01,-0.26821236E-01,-0.27146657E-01,-0.27433354E-01,-0.27687065E-01,-0.27912608E-01,&
+-0.28113944E-01,-0.28294180E-01, 0.80737799E+01, 0.79171158E+01, 0.77609605E+01, 0.76087371E+01, 0.74627112E+01, 0.73239981E+01,&
+ 0.71929934E+01, 0.70697065E+01, 0.69539626E+01, 0.68455144E+01, 0.67441020E+01, 0.77425778E+01, 0.75443460E+01, 0.73526151E+01,&
+ 0.71711188E+01, 0.70015571E+01, 0.68442532E+01, 0.66987996E+01, 0.65644820E+01, 0.64405267E+01, 0.63262376E+01, 0.62210701E+01,&
+ 0.10542131E+02, 0.10515895E+02, 0.10492949E+02, 0.10472049E+02, 0.10452961E+02, 0.10435562E+02, 0.10419710E+02, 0.10405247E+02,&
+ 0.10392022E+02, 0.10379892E+02, 0.10368736E+02, 0.10490353E+02, 0.10463512E+02, 0.10439183E+02, 0.10417324E+02, 0.10397704E+02,&
+ 0.10380038E+02, 0.10364052E+02, 0.10349509E+02, 0.10336215E+02, 0.10324018E+02, 0.10312808E+02,-0.12823142E+01,-0.10571588E+01,&
+-0.74864953E+00,-0.58705980E+00,-0.49305772E+00,-0.51461431E+00, 0.12373350E+02, 0.44809588E+00, 0.46548918E+00, 0.59121475E+00,&
+ 0.74676119E+00,-0.74805226E+00,-0.56252739E+00,-0.46188072E+00,-0.40712065E+00,-0.15295996E+01, 0.43555255E+00, 0.50380874E+00,&
+ 0.68537352E+00, 0.89437630E+00, 0.11127003E+01, 0.13329782E+01, 0.13845511E+01, 0.13187042E+01, 0.12644396E+01, 0.12191543E+01,&
+ 0.11809511E+01, 0.11484154E+01, 0.11204723E+01, 0.10962918E+01, 0.10752229E+01, 0.10567474E+01, 0.10404465E+01, 0.11718758E+01,&
+ 0.11216131E+01, 0.10809473E+01, 0.10476396E+01, 0.10200373E+01, 0.99692726E+00, 0.97740923E+00, 0.96080188E+00, 0.94657562E+00,&
+ 0.93430511E+00, 0.92363528E+00, 0.22042132E+02, 0.22107298E+02, 0.22180915E+02, 0.22259478E+02, 0.22341039E+02, 0.22424247E+02,&
+ 0.22508089E+02, 0.22591771E+02, 0.22674661E+02, 0.22756246E+02, 0.22836093E+02, 0.22169501E+02, 0.22270075E+02, 0.22379193E+02,&
+ 0.22492992E+02, 0.22608508E+02, 0.22723843E+02, 0.22837837E+02, 0.22949751E+02, 0.23059032E+02, 0.23165146E+02, 0.23267456E+02,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00,&
+ 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00, 0.00000000E+00 /) &
+ , (/ 11,16,3 /) )
+
+ real(kind=8), dimension(11,16,3), parameter :: GB = reshape ( (/ &
+ 0.63499072E-02, 0.65566348E-02, 0.67849730E-02, 0.70481947E-02, 0.73585943E-02, 0.77242818E-02, 0.81472693E-02, 0.86227527E-02,&
+ 0.91396814E-02, 0.96825438E-02, 0.10233955E-01, 0.77266491E-02, 0.81323287E-02, 0.86507620E-02, 0.92776391E-02, 0.99806312E-02,&
+ 0.10709803E-01, 0.11414739E-01, 0.12058772E-01, 0.12623992E-01, 0.13108146E-01, 0.13518390E-01, 0.11644593E+01, 0.11747203E+01,&
+ 0.11837872E+01, 0.11918561E+01, 0.11990757E+01, 0.12055643E+01, 0.12114186E+01, 0.12167192E+01, 0.12215344E+01, 0.12259226E+01,&
+ 0.12299344E+01, 0.12006968E+01, 0.12108196E+01, 0.12196717E+01, 0.12274493E+01, 0.12343189E+01, 0.12404147E+01, 0.12458431E+01,&
+ 0.12506907E+01, 0.12550299E+01, 0.12589256E+01, 0.12624402E+01, 0.15750172E+00, 0.16174076E+00, 0.16548628E+00, 0.16881124E+00,&
+ 0.17177839E+00, 0.17443933E+00, 0.17683622E+00, 0.17900375E+00, 0.18097099E+00, 0.18276283E+00, 0.18440117E+00, 0.17770551E+00,&
+ 0.18176757E+00, 0.18527967E+00, 0.18833348E+00, 0.19100108E+00, 0.19334122E+00, 0.19540288E+00, 0.19722732E+00, 0.19884918E+00,&
+ 0.20029696E+00, 0.20159300E+00, 0.10192131E+02, 0.97258602E+01, 0.92992890E+01, 0.89154021E+01, 0.85730084E+01, 0.82685838E+01,&
+ 0.79978921E+01, 0.77568055E+01, 0.75416266E+01, 0.73491694E+01, 0.71767400E+01, 0.92439050E+01, 0.87567422E+01, 0.83270144E+01,&
+ 0.79528337E+01, 0.76286839E+01, 0.73477879E+01, 0.71035818E+01, 0.68903312E+01, 0.67032875E+01, 0.65386461E+01, 0.63934377E+01,&
+ 0.24870635E+02, 0.24725591E+02, 0.24600320E+02, 0.24487300E+02, 0.24384935E+02, 0.24292341E+02, 0.24208572E+02, 0.24132642E+02,&
+ 0.24063614E+02, 0.24000649E+02, 0.23943021E+02, 0.24586283E+02, 0.24441465E+02, 0.24311657E+02, 0.24196167E+02, 0.24093406E+02,&
+ 0.24001597E+02, 0.23919098E+02, 0.23844511E+02, 0.23776708E+02, 0.23714816E+02, 0.23658197E+02, 0.11990218E+02, 0.10904073E+02,&
+ 0.89126838E+01, 0.85622405E+01, 0.94892164E+01, 0.13580937E+02,-0.32050918E+03,-0.37133165E+01, 0.18890836E+00, 0.14209226E+01,&
+ 0.19817679E+01, 0.79709806E+01, 0.75400737E+01, 0.81804377E+01, 0.10564339E+02, 0.46896789E+02,-0.30926524E+01, 0.85742941E+00,&
+ 0.19164038E+01, 0.23513199E+01, 0.25566644E+01, 0.26555181E+01, 0.87668459E-01, 0.83754276E-01, 0.80460283E-01, 0.77659686E-01,&
+ 0.75257056E-01, 0.73179175E-01, 0.71369063E-01, 0.69781812E-01, 0.68381606E-01, 0.67139539E-01, 0.66032012E-01, 0.74878820E-01,&
+ 0.71650966E-01, 0.68979615E-01, 0.66745345E-01, 0.64857571E-01, 0.63248495E-01, 0.61866970E-01, 0.60673632E-01, 0.59637277E-01,&
+ 0.58732178E-01, 0.57936092E-01, 0.13230067E+02, 0.13213564E+02, 0.13209140E+02, 0.13213894E+02, 0.13225963E+02, 0.13243806E+02,&
+ 0.13266104E+02, 0.13291782E+02, 0.13319961E+02, 0.13349927E+02, 0.13381108E+02, 0.13183816E+02, 0.13189991E+02, 0.13209485E+02,&
+ 0.13238789E+02, 0.13275017E+02, 0.13316096E+02, 0.13360555E+02, 0.13407324E+02, 0.13455544E+02, 0.13504450E+02, 0.13553282E+02,&
+ 0.97222852E-01, 0.98862238E-01, 0.10061504E+00, 0.10256222E+00, 0.10475952E+00, 0.10720986E+00, 0.10985370E+00, 0.11257633E+00,&
+ 0.11522980E+00, 0.11766343E+00, 0.11975320E+00, 0.10681591E+00, 0.10921298E+00, 0.11198225E+00, 0.11487826E+00, 0.11751113E+00,&
+ 0.11951535E+00, 0.12069945E+00, 0.12108524E+00, 0.12084229E+00, 0.12019005E+00, 0.11932684E+00, 0.10346097E+01, 0.10433655E+01,&
+ 0.10511933E+01, 0.10582150E+01, 0.10645317E+01, 0.10702313E+01, 0.10753907E+01, 0.10800762E+01, 0.10843446E+01, 0.10882439E+01,&
+ 0.10918144E+01, 0.10626130E+01, 0.10716026E+01, 0.10795108E+01, 0.10865006E+01, 0.10927103E+01, 0.10982489E+01, 0.11032019E+01,&
+ 0.11076379E+01, 0.11116160E+01, 0.11151910E+01, 0.11184188E+01, 0.38103212E+00, 0.38913800E+00, 0.39613651E+00, 0.40222421E+00,&
+ 0.40756010E+00, 0.41226954E+00, 0.41645142E+00, 0.42018474E+00, 0.42353379E+00, 0.42655211E+00, 0.42928533E+00, 0.41646579E+00,&
+ 0.42345095E+00, 0.42937476E+00, 0.43444062E+00, 0.43880316E+00, 0.44258354E+00, 0.44587882E+00, 0.44876776E+00, 0.45131451E+00,&
+ 0.45357095E+00, 0.45557797E+00, 0.82623280E+01, 0.81072291E+01, 0.79523834E+01, 0.78012527E+01, 0.76561458E+01, 0.75182174E+01,&
+ 0.73878952E+01, 0.72652133E+01, 0.71500151E+01, 0.70420667E+01, 0.69411177E+01, 0.79342219E+01, 0.77373458E+01, 0.75467334E+01,&
+ 0.73661786E+01, 0.71974319E+01, 0.70408543E+01, 0.68960649E+01, 0.67623672E+01, 0.66389989E+01, 0.65252707E+01, 0.64206412E+01,&
+ 0.10656640E+02, 0.10630910E+02, 0.10608399E+02, 0.10587891E+02, 0.10569156E+02, 0.10552075E+02, 0.10536510E+02, 0.10522307E+02,&
+ 0.10509317E+02, 0.10497402E+02, 0.10486443E+02, 0.10605856E+02, 0.10579514E+02, 0.10555632E+02, 0.10534169E+02, 0.10514900E+02,&
+ 0.10497547E+02, 0.10481842E+02, 0.10467553E+02, 0.10454488E+02, 0.10442501E+02, 0.10431483E+02, 0.26681588E+02, 0.24728346E+02,&
+ 0.20551342E+02, 0.19955244E+02, 0.22227100E+02, 0.31770288E+02,-0.74061287E+03,-0.81329826E+01, 0.90279822E+00, 0.37532746E+01,&
+ 0.50437916E+01, 0.18377807E+02, 0.17643148E+02, 0.19296161E+02, 0.24951120E+02, 0.10957372E+03,-0.67432659E+01, 0.24550746E+01,&
+ 0.49089917E+01, 0.59008712E+01, 0.63532616E+01, 0.65558627E+01, 0.23203798E+01, 0.22288925E+01, 0.21515593E+01, 0.20855896E+01,&
+ 0.20288489E+01, 0.19796791E+01, 0.19367778E+01, 0.18991112E+01, 0.18658501E+01, 0.18363226E+01, 0.18099779E+01, 0.20206726E+01,&
+ 0.19441824E+01, 0.18807257E+01, 0.18275618E+01, 0.17825910E+01, 0.17442308E+01, 0.17112809E+01, 0.16828137E+01, 0.16580908E+01,&
+ 0.16365014E+01, 0.16175164E+01, 0.22051750E+02, 0.22116850E+02, 0.22190410E+02, 0.22268925E+02, 0.22350445E+02, 0.22433617E+02,&
+ 0.22517429E+02, 0.22601086E+02, 0.22683956E+02, 0.22765522E+02, 0.22845354E+02, 0.22178972E+02, 0.22279484E+02, 0.22388551E+02,&
+ 0.22502309E+02, 0.22617792E+02, 0.22733099E+02, 0.22847071E+02, 0.22958967E+02, 0.23068234E+02, 0.23174336E+02, 0.23276638E+02,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01,&
+ 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01, 0.10000000E+01 /) &
+  , (/ 11,16,3 /) )
+
+      real(kind=8), dimension(6,6), parameter :: XP = reshape ( (/  &
+      0.46430621E+02,  0.12928299E+03,  0.20732648E+03,  0.31398411E+03,  0.18373177E+03, -0.11412303E+03, &
+      0.73604774E+02,  0.27887914E+03,  0.27076947E+03, -0.57322111E+02, -0.64742459E+02,  0.87238280E+02, &
+      0.37050866E+02,  0.20498759E+03,  0.37558029E+03,  0.17401171E+03, -0.13350302E+03, -0.37651795E+02, &
+      0.14930141E+02,  0.89161160E+02,  0.17793062E+03,  0.93433860E+02, -0.70646020E+02, -0.26373150E+02, &
+      0.40386780E+02,  0.10855270E+03,  0.50755010E+02, -0.31496190E+02,  0.12791300E+00,  0.18017770E+01, &
+      0.90811926E+01,  0.75073923E+02,  0.24654438E+03,  0.39332612E+03,  0.29385281E+03,  0.89107921E+02 /) , (/ 6,6 /) )
+
+! If running with Reporbus type_trac=repr, values of RSUN might be overritten in radiation_AR4
+      REAL(KIND=8), dimension(2) :: RSUN = (/ 0.441676 , 0.558324 /)
+      REAL(KIND=8), dimension(2,6), parameter :: RRAY = reshape ( &
+         (/ .428937E-01, .697200E-02,&
+            .890743E+00, .173297E-01,&
+           -.288555E+01,-.850903E-01,&
+            .522744E+01, .248261E+00,&
+           -.469173E+01,-.302031E+00,&
+            .161645E+01, .129662E+00 /) , (/2,6/) )
+
+      REAL(KIND=8), dimension(2,5), parameter :: TAUA = reshape ( &
+      (/ 0.730719, 0.730719, 0.912819, 0.912819, 0.725059, &
+         0.725059, 0.745405, 0.745405, 0.682188, 0.682188 /),(/2,5/) )
+      REAL(KIND=8), dimension(2,5), parameter :: RPIZA = reshape ( &
+      (/ 0.872212, 0.872212, 0.982545, 0.982545, 0.623143,   &
+         0.623143, 0.944887, 0.944887, 0.997975, 0.997975 /),(/2,5/) )
+      REAL(KIND=8), dimension(2,5), parameter :: RCGA = reshape (  &
+      (/ 0.647596, 0.647596, 0.739002, 0.739002, 0.580845,   &
+         0.580845, 0.662657, 0.662657, 0.624246, 0.624246 /),(/2,5/) )
+
+      REAL(KIND=8), dimension(2,3,7), parameter :: APAD = reshape (  &
+          (/ 0.912418292E+05, 0.376655383E-08, 0.000000000E-00,&
+             0.739646016E-08, 0.925887084E-04, 0.410177786E+03,&
+             0.723613782E+05, 0.978576773E-04, 0.000000000E-00,&
+             0.131849595E-03, 0.129353723E-01, 0.672595424E+02,&
+             0.596037057E+04, 0.387714006E+00, 0.000000000E-00,&
+             0.437772681E+00, 0.800821928E+00, 0.000000000E-00,&
+             0.000000000E-00, 0.118461660E+03, 0.000000000E-00,&
+             0.151345118E+03, 0.242715973E+02, 0.000000000E-00,&
+             0.000000000E-00, 0.119079797E+04, 0.000000000E-00,&
+             0.233628890E+04, 0.878331486E+02, 0.000000000E-00,&
+             0.000000000E-00, 0.293353397E+03, 0.000000000E-00,&
+             0.797219934E+03, 0.191559725E+02, 0.000000000E-00,&
+             0.000000000E-00, 0.000000000E+00, 0.000000000E-00,&
+             0.000000000E+00, 0.000000000E+00, 0.000000000E+00 /) , (/2,3,7/) )
+      REAL(KIND=8), dimension(2,3,7), parameter :: BPAD = reshape (  &
+          (/ 0.912418292E+05, 0.376655383E-08, 0.000000000E-00,&
+             0.739646016E-08, 0.925887084E-04, 0.410177786E+03,&
+             0.724555318E+05, 0.979023421E-04, 0.000000000E-00,&
+             0.131861712E-03, 0.131812683E-01, 0.731185438E+02,&
+             0.602593328E+04, 0.388611139E+00, 0.000000000E-00,&
+             0.437949001E+00, 0.812706117E+00, 0.100000000E+01,&
+             0.100000000E+01, 0.120291383E+03, 0.000000000E-00,&
+             0.151692730E+03, 0.249863591E+02, 0.000000000E+00,&
+             0.000000000E-00, 0.130531005E+04, 0.000000000E-00,&
+             0.237071130E+04, 0.931071925E+02, 0.000000000E+00,&
+             0.000000000E-00, 0.415049409E+03, 0.000000000E-00,&
+             0.867914360E+03, 0.252233437E+02, 0.000000000E+00,&
+             0.000000000E-00, 0.100000000E+01, 0.000000000E-00,&
+             0.100000000E+01, 0.100000000E+01, 0.000000000E+00 /) , (/2,3,7/) )
+      REAL(KIND=8), dimension(2,3), parameter :: D = reshape ( &
+       (/ 0.0, 0.0, 0.0, 0.0, 0.0, 0.8 /) , (/2,3/) )
+
+      REAL(KIND=8), parameter :: TREF = 250.0
+      REAL(KIND=8), dimension(2), parameter :: RT1 = (/ -0.577350269, +0.577350269 /)
+      REAL(KIND=8), dimension(5,5), parameter :: RAER= reshape ( &
+        (/ .038520, .037196, .040532, .054934, .038520 &
+         , .12613 , .18313 , .10357 , .064106, .126130 &
+         , .012579, .013649, .018652, .025181, .012579 &
+         , .011890, .016142, .021105, .028908, .011890 &
+         , .013792, .026810, .052203, .066338, .013792 /) , (/5,5/) )
+
+      REAL(KIND=8), dimension(8,3), parameter :: AT= reshape ( &
+       (/ 0.298199E-02,0.143676E-01,0.197861E-01,0.289560E-01,&
+          0.103800E-01,0.868859E-02,0.250073E-03,0.307423E-01,&
+          -.394023E-03,0.366501E-02,0.315541E-02,-.208807E-02,&
+          0.436296E-02,-.972752E-03,0.455875E-03,0.110879E-02,&
+          0.319566E-04,-.160822E-02,-.174547E-02,-.121943E-02,&
+          -.161431E-02,0.000000E-00,0.109242E-03,-.322172E-03 /) , (/8,3/) )
+
+      REAL(KIND=8), dimension(8,3), parameter :: BT= reshape ( &
+       (/ -0.106432E-04,-0.553979E-04,-0.877012E-04,-0.165960E-03,&
+          -0.276744E-04,-0.278412E-04, 0.199846E-05,-0.108482E-03,&
+           0.660324E-06,-0.101701E-04, 0.513302E-04, 0.157704E-03,&
+          -0.327381E-04,-0.713940E-06,-0.216313E-05, 0.258096E-05,&
+           0.174356E-06, 0.920868E-05, 0.523138E-06,-0.146427E-04,&
+           0.127646E-04 ,0.117469E-05, 0.175991E-06,-0.814575E-06 /) , (/8,3/) )
+
+      REAL(KIND=8), dimension(4), parameter :: OCT = (/ -.326E-03, -.102E-05, .137E-02, -.535E-05 /)
+
+ end module radiation_AR4_param
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radio_decay.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radio_decay.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radio_decay.F90	(revision 3330)
@@ -0,0 +1,59 @@
+!
+! $Id $
+!
+SUBROUTINE radio_decay(radio,rnpb,dtime,tautr,tr,d_tr) 
+!
+! Caluclate radioactive decay for all tracers with radio(it)=true
+!
+  USE dimphy
+  USE infotrac_phy, ONLY : nbtr
+  USE traclmdz_mod, ONLY : id_rn, id_pb
+  IMPLICIT NONE
+!-----------------------------------------------------------------------
+! Auteur(s): AA + CG (LGGE/CNRS) Date 24-06-94
+! Objet: Calcul de la tendance radioactive des traceurs type radioelements
+!        Cas particulier pour le couple radon-plomb : Le radon decroit en plomb
+!-----------------------------------------------------------------------
+!
+! Entrees
+!
+  LOGICAL,DIMENSION(nbtr),INTENT(IN)        :: radio ! .true. = traceur radioactif  
+  LOGICAL,INTENT(IN)                        :: rnpb  ! .true. = decroissance RN = source PB
+  REAL,INTENT(IN)                           :: dtime ! Pas de temps physique (secondes)
+  REAL,DIMENSION(nbtr),INTENT(IN)           :: tautr ! Constante de decroissance radioactive
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(IN) :: tr    ! Concentrations traceurs U/kgA
+!
+! Sortie
+!
+  REAL,DIMENSION(klon,klev,nbtr),INTENT(OUT) :: d_tr  ! Tendance de decroissance radioactive
+!
+! Locales
+!
+  INTEGER  :: i,k,it
+
+
+  DO it = 1,nbtr
+     d_tr(:,:,it) = 0.
+     IF ( radio(it) ) THEN
+        IF (tautr(it) .GT. 0.) THEN
+           DO k = 1,klev
+              DO i = 1,klon
+                 d_tr(i,k,it) = - tr(i,k,it) * dtime / tautr(it)
+              END DO
+           END DO
+        END IF
+     END IF
+  END DO
+
+!-------------------------------------------------------
+! Cas particulier radon (id_rn) => plomb (id_pb)
+!-------------------------------------------------------
+  IF ( rnpb ) THEN
+     DO k = 1,klev
+        DO i = 1,klon
+           d_tr(i,k,id_pb) = d_tr(i,k,id_pb) - d_tr(i,k,id_rn)
+        ENDDO
+     ENDDO
+  ENDIF
+
+END SUBROUTINE radio_decay
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radlwsw_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radlwsw_m.F90	(revision 3330)
@@ -0,0 +1,1100 @@
+!
+! $Id$
+!
+module radlwsw_m
+
+  IMPLICIT NONE
+
+contains
+
+SUBROUTINE radlwsw( &
+   dist, rmu0, fract, &
+!albedo SB >>>
+!  paprs, pplay,tsol,alb1, alb2, &
+   paprs, pplay,tsol,SFRWL,alb_dir, alb_dif, &
+!albedo SB <<<
+   t,q,wo,&
+   cldfra, cldemi, cldtaupd,&
+   ok_ade, ok_aie, flag_aerosol,&
+   flag_aerosol_strat,&
+   tau_aero, piz_aero, cg_aero,&
+   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, &
+   ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
+   heat,heat0,cool,cool0,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, &
+   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)
+
+
+
+  USE DIMPHY
+  USE assert_m, ONLY : assert
+  USE infotrac_phy, ONLY : type_trac
+  USE write_field_phy
+#ifdef REPROBUS
+  USE CHEM_REP, ONLY : solaireTIME, ok_SUNTIME, ndimozon
+#endif
+#ifdef CPP_RRTM
+!    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
+! 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
+      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
+      USE aero_mod
+
+  !======================================================================
+  ! 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)
+  ! 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)
+  ! 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?
+  ! flag_aerosol-input-I- aerosol flag from 0 to 6
+  ! flag_aerosol_strat-input-I- use stratospheric aerosols flag (0, 1, 2)
+  ! 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)
+  ! 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
+  !
+  ! --------- RRTM: 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
+  
+  !======================================================================
+  
+  ! ====================================================================
+  ! 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)  :: dist
+  REAL,    INTENT(in)  :: rmu0(KLON), fract(KLON)
+  REAL,    INTENT(in)  :: paprs(KLON,KLEV+1), pplay(KLON,KLEV)
+!albedo SB >>>
+! REAL,    INTENT(in)  :: alb1(KLON), alb2(KLON), tsol(KLON)
+  REAL,    INTENT(in)  :: tsol(KLON)
+  REAL,    INTENT(in) :: alb_dir(KLON,NSW),alb_dif(KLON,NSW)
+  real, intent(in) :: SFRWL(6)
+!albedo SB <<<
+  REAL,    INTENT(in)  :: t(KLON,KLEV), q(KLON,KLEV)
+
+  REAL, INTENT(in):: wo(:, :, :) ! dimension(KLON,KLEV, 1 or 2)
+  ! column-density of ozone in a layer, in kilo-Dobsons
+  ! "wo(:, :, 1)" is for the average day-night field, 
+  ! "wo(:, :, 2)" is for daylight time.
+
+  LOGICAL, INTENT(in)  :: ok_ade, ok_aie                                 ! switches whether to use aerosol direct (indirect) effects or not
+  LOGICAL              :: lldebug
+  INTEGER, INTENT(in)  :: flag_aerosol                                   ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
+  INTEGER, INTENT(in)  :: flag_aerosol_strat                             ! use stratospheric aerosols
+  REAL,    INTENT(in)  :: cldfra(KLON,KLEV), cldemi(KLON,KLEV), cldtaupd(KLON,KLEV)
+  REAL,    INTENT(in)  :: tau_aero(KLON,KLEV,naero_grp,2)                        ! aerosol optical properties (see aeropt.F)
+  REAL,    INTENT(in)  :: piz_aero(KLON,KLEV,naero_grp,2)                        ! aerosol optical properties (see aeropt.F)
+  REAL,    INTENT(in)  :: cg_aero(KLON,KLEV,naero_grp,2)                         ! aerosol optical properties (see aeropt.F)
+!--OB
+  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
+  REAL,    INTENT(in)  :: qsat(klon,klev) ! Variable pour iflag_rrtm=1
+  REAL,    INTENT(in)  :: flwc(klon,klev) ! Variable pour iflag_rrtm=1
+  REAL,    INTENT(in)  :: fiwc(klon,klev) ! Variable pour iflag_rrtm=1
+  REAL,    INTENT(in)  :: ref_liq(klon,klev) ! cloud droplet radius present-day from newmicro
+  REAL,    INTENT(in)  :: ref_ice(klon,klev) ! ice crystal radius   present-day from newmicro
+  REAL,    INTENT(in)  :: ref_liq_pi(klon,klev) ! cloud droplet radius pre-industrial from newmicro
+  REAL,    INTENT(in)  :: ref_ice_pi(klon,klev) ! ice crystal radius   pre-industrial from newmicro
+
+! Output arguments
+  REAL,    INTENT(out) :: heat(KLON,KLEV), cool(KLON,KLEV)
+  REAL,    INTENT(out) :: heat0(KLON,KLEV), cool0(KLON,KLEV)
+  REAL,    INTENT(out) :: 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,    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
+  REAL, DIMENSION(kdlon,9), INTENT(out) :: solsw_aero
+  REAL, DIMENSION(kdlon,9), INTENT(out) :: solsw0_aero
+  REAL, DIMENSION(kdlon,3), INTENT(out) :: topswcf_aero
+  REAL, DIMENSION(kdlon,3), INTENT(out) :: solswcf_aero
+  REAL, DIMENSION(kdlon,kflev+1), INTENT(out) :: ZSWFT0_i
+  REAL, DIMENSION(kdlon,kflev+1), INTENT(out) :: ZLWFT0_i
+
+! Local variables
+  REAL(KIND=8) ZFSUP(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFSDN(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFSUP0(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFSDN0(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFLUP(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFLDN(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFLUP0(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFLDN0(KDLON,KFLEV+1)
+  REAL(KIND=8) zx_alpha1, zx_alpha2
+  INTEGER k, kk, i, j, iof, nb_gr
+  INTEGER ist,iend,ktdia,kmode
+  REAL(KIND=8) PSCT
+  REAL(KIND=8) PALBD(kdlon,2), PALBP(kdlon,2)
+!  MPL 06.01.09: pour RRTM, creation de PALBD_NEW et PALBP_NEW
+! avec NSW en deuxieme dimension       
+  REAL(KIND=8) PALBD_NEW(kdlon,NSW), PALBP_NEW(kdlon,NSW)
+  REAL(KIND=8) PEMIS(kdlon), PDT0(kdlon), PVIEW(kdlon)
+  REAL(KIND=8) PPSOL(kdlon), PDP(kdlon,KLEV)
+  REAL(KIND=8) PTL(kdlon,kflev+1), PPMB(kdlon,kflev+1)
+  REAL(KIND=8) PTAVE(kdlon,kflev)
+  REAL(KIND=8) PWV(kdlon,kflev), PQS(kdlon,kflev)
+
+  real(kind=8) POZON(kdlon, kflev, size(wo, 3)) ! mass fraction of ozone
+  ! "POZON(:, :, 1)" is for the average day-night field, 
+  ! "POZON(:, :, 2)" is for daylight time.
+!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6  
+  REAL(KIND=8) PAER(kdlon,kflev,6)
+  REAL(KIND=8) PCLDLD(kdlon,kflev)
+  REAL(KIND=8) PCLDLU(kdlon,kflev)
+  REAL(KIND=8) PCLDSW(kdlon,kflev)
+  REAL(KIND=8) PTAU(kdlon,2,kflev)
+  REAL(KIND=8) POMEGA(kdlon,2,kflev)
+  REAL(KIND=8) PCG(kdlon,2,kflev)
+  REAL(KIND=8) zfract(kdlon), zrmu0(kdlon), zdist
+  REAL(KIND=8) zheat(kdlon,kflev), zcool(kdlon,kflev)
+  REAL(KIND=8) zheat0(kdlon,kflev), zcool0(kdlon,kflev)
+  REAL(KIND=8) ztopsw(kdlon), ztoplw(kdlon)
+  REAL(KIND=8) zsolsw(kdlon), zsollw(kdlon), zalbpla(kdlon)
+  REAL(KIND=8) zsollwdown(kdlon)
+  REAL(KIND=8) ztopsw0(kdlon), ztoplw0(kdlon)
+  REAL(KIND=8) zsolsw0(kdlon), zsollw0(kdlon)
+  REAL(KIND=8) zznormcp
+  REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2)                     ! aer opt properties
+  REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2)
+  REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2)
+  REAL(KIND=8) PTAUA(kdlon,2,kflev)                         ! present-day value of cloud opt thickness (PTAU is pre-industrial value), local use
+  REAL(KIND=8) POMEGAA(kdlon,2,kflev)                       ! dito for single scatt albedo
+  REAL(KIND=8) ztopswadaero(kdlon), zsolswadaero(kdlon)     ! Aerosol direct forcing at TOAand surface
+  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)
+  REAL(KIND=8) ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3)     
+! real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 deje declare dans physiq.F MPL 20130618
+!MPL input supplementaires pour RECMWFL
+! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg)
+      REAL(KIND=8) GEMU(klon)
+!MPL input RECMWFL: 
+! Tableaux aux niveaux inverses pour respecter convention Arpege
+      REAL(KIND=8) ref_liq_i(klon,klev) ! cloud droplet radius present-day from newmicro (inverted)
+      REAL(KIND=8) ref_ice_i(klon,klev) ! ice crystal radius present-day from newmicro (inverted)
+!--OB
+      REAL(KIND=8) ref_liq_pi_i(klon,klev) ! cloud droplet radius pre-industrial from newmicro (inverted)
+      REAL(KIND=8) ref_ice_pi_i(klon,klev) ! ice crystal radius pre-industrial from newmicro (inverted)
+!--end OB
+      REAL(KIND=8) paprs_i(klon,klev+1)
+      REAL(KIND=8) pplay_i(klon,klev)
+      REAL(KIND=8) cldfra_i(klon,klev)
+      REAL(KIND=8) POZON_i(kdlon,kflev, size(wo, 3)) ! mass fraction of ozone 
+  ! "POZON(:, :, 1)" is for the average day-night field, 
+  ! "POZON(:, :, 2)" is for daylight time.
+!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6      
+      REAL(KIND=8) PAER_i(kdlon,kflev,6)
+      REAL(KIND=8) PDP_i(klon,klev)
+      REAL(KIND=8) t_i(klon,klev),q_i(klon,klev),qsat_i(klon,klev)
+      REAL(KIND=8) flwc_i(klon,klev),fiwc_i(klon,klev)
+!MPL output RECMWFL:
+      REAL(KIND=8) ZEMTD (klon,klev+1),ZEMTD_i (klon,klev+1)       
+      REAL(KIND=8) ZEMTU (klon,klev+1),ZEMTU_i (klon,klev+1)      
+      REAL(KIND=8) ZTRSO (klon,klev+1),ZTRSO_i (klon,klev+1)    
+      REAL(KIND=8) ZTH   (klon,klev+1),ZTH_i   (klon,klev+1)   
+      REAL(KIND=8) ZCTRSO(klon,2)       
+      REAL(KIND=8) ZCEMTR(klon,2)     
+      REAL(KIND=8) ZTRSOD(klon)        
+      REAL(KIND=8) ZLWFC (klon,2)      
+      REAL(KIND=8) ZLWFT (klon,klev+1),ZLWFT_i (klon,klev+1)    
+      REAL(KIND=8) ZSWFC (klon,2)      
+      REAL(KIND=8) ZSWFT (klon,klev+1),ZSWFT_i (klon,klev+1)
+      REAL(KIND=8) ZFLUCDWN_i(klon,klev+1),ZFLUCUP_i(klon,klev+1)
+      REAL(KIND=8) PPIZA_TOT(klon,klev,NSW)
+      REAL(KIND=8) PCGA_TOT(klon,klev,NSW)
+      REAL(KIND=8) PTAU_TOT(klon,klev,NSW)
+      REAL(KIND=8) PPIZA_NAT(klon,klev,NSW)
+      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)
+      REAL(KIND=8) PFSDNN(klon)
+      REAL(KIND=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(KIND=8) ZFLUX_i (klon,2,klev+1)
+      REAL(KIND=8) ZFLUC_i (klon,2,klev+1)
+      REAL(KIND=8) ZFSDWN_i (klon,klev+1)
+      REAL(KIND=8) ZFCDWN_i (klon,klev+1)
+      REAL(KIND=8) ZFSUP_i (klon,klev+1)
+      REAL(KIND=8) ZFCUP_i (klon,klev+1)
+! 3 lignes suivantes a activer pour CCMVAL (MPL 20100412)
+!      REAL(KIND=8) RSUN(3,2)
+!      REAL(KIND=8) SUN(3)
+!      REAL(KIND=8) SUN_FRACT(2)
+  real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
+  CHARACTER (LEN=80) :: abort_message
+  CHARACTER (LEN=80) :: modname='radlwsw_m'
+
+  call assert(size(wo, 1) == klon, size(wo, 2) == klev, "radlwsw wo")
+  ! initialisation
+  ist=1
+  iend=klon
+  ktdia=1
+  kmode=ist 
+  tauaero(:,:,:,:)=0.
+  pizaero(:,:,:,:)=0.
+  cgaero(:,:,:,:)=0.
+  lldebug=.FALSE.
+  
+  !
+  !-------------------------------------------
+  nb_gr = KLON / kdlon
+  IF (nb_gr*kdlon .NE. KLON) THEN
+      PRINT*, "kdlon mauvais:", KLON, kdlon, nb_gr
+      call abort_physic("radlwsw", "", 1)
+  ENDIF
+  IF (kflev .NE. KLEV) THEN
+      PRINT*, "kflev differe de KLEV, kflev, KLEV"
+      call abort_physic("radlwsw", "", 1)
+  ENDIF
+  !-------------------------------------------
+  DO k = 1, KLEV
+    DO i = 1, KLON
+      heat(i,k)=0.
+      cool(i,k)=0.
+      heat0(i,k)=0.
+      cool0(i,k)=0.
+    ENDDO
+  ENDDO
+  !
+  zdist = dist
+  !
+  PSCT = solaire/zdist/zdist
+
+  IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+     if(ok_SUNTIME) PSCT = solaireTIME/zdist/zdist
+     print*,'Constante solaire: ',PSCT*zdist*zdist
+#endif
+  END IF
+
+  DO j = 1, nb_gr
+    iof = kdlon*(j-1)
+    DO i = 1, kdlon
+      zfract(i) = fract(iof+i)
+!     zfract(i) = 1.     !!!!!!  essai MPL 19052010
+      zrmu0(i) = rmu0(iof+i)
+
+
+!albedo SB >>>
+!
+      IF (iflag_rrtm==0) THEN
+!
+        PALBD(i,1)=alb_dif(iof+i,1)
+        PALBD(i,2)=alb_dif(iof+i,2)
+        PALBP(i,1)=alb_dir(iof+i,1)
+        PALBP(i,2)=alb_dir(iof+i,2)
+!
+      ELSEIF (iflag_rrtm==1) THEn
+!
+        DO kk=1,NSW
+          PALBD_NEW(i,kk)=alb_dif(iof+i,kk)
+          PALBP_NEW(i,kk)=alb_dir(iof+i,kk)
+        ENDDO
+!
+      ENDIF
+!albedo SB <<<
+
+
+      PEMIS(i) = 1.0    !!!!! A REVOIR (MPL) 
+      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)
+!       Confert from  column density of ozone in a cell, in kDU, to a mass fraction
+        POZON(i,k, :) = wo(iof+i, k, :) * RG * dobson_u * 1e3 &
+             / (paprs(iof+i, k) - paprs(iof+i, k+1))
+!       A activer pour CCMVAL on prend l'ozone impose (MPL 07042010)
+!       POZON(i,k,:) = wo(i,k,:)  
+!       print *,'RADLWSW: POZON',k, POZON(i,k,1) 
+        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
+
+    IF (type_trac == 'repr') THEN
+#ifdef REPROBUS
+       ndimozon = size(wo, 3)
+       CALL RAD_INTERACTIF(POZON,iof)
+#endif
+    END IF
+
+    !
+    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   !!!!! A REVOIR (MPL)
+        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
+
+!
+!===== iflag_rrtm ================================================
+!      
+    IF (iflag_rrtm == 0) THEN       !!!! remettre 0 juste pour tester l'ancien rayt via rrtm
+!--- Mise a zero des tableaux output du rayonnement LW-AR4 ----------              
+      DO k = 1, kflev+1
+      DO i = 1, kdlon
+!     print *,'RADLWSW: boucle mise a zero i k',i,k
+      ZFLUP(i,k)=0.
+      ZFLDN(i,k)=0.
+      ZFLUP0(i,k)=0.
+      ZFLDN0(i,k)=0.
+      ZLWFT0_i(i,k)=0.
+      ZFLUCUP_i(i,k)=0.
+      ZFLUCDWN_i(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
+       ! Old radiation scheme, used for AR4 runs
+       ! average day-night ozone for longwave
+       CALL LW_LMDAR4(&
+            PPMB, PDP,&
+            PPSOL,PDT0,PEMIS,&
+            PTL, PTAVE, PWV, POZON(:, :, 1), 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.
+      ZSWFT0_i(i,k)=0.
+      ZFCUP_i(i,k)=0.
+      ZFCDWN_i(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
+!     print *,'Avant SW_LMDAR4: PSCT zrmu0 zfract',PSCT, zrmu0, zfract
+       ! daylight ozone, if we have it, for short wave
+       IF (.NOT. new_aod) THEN 
+          ! use old version
+          CALL SW_LMDAR4(PSCT, zrmu0, zfract,&
+               PPMB, PDP, &
+               PPSOL, PALBD, PALBP,&
+               PTAVE, PWV, PQS, POZON(:, :, size(wo, 3)), PAER,&
+               PCLDSW, PTAU, POMEGA, PCG,&
+               zheat, zheat0,&
+               zalbpla,ztopsw,zsolsw,ztopsw0,zsolsw0,&
+               ZFSUP,ZFSDN,ZFSUP0,ZFSDN0,&
+               tauaero(:,:,5,:), pizaero(:,:,5,:), cgaero(:,:,5,:),& 
+               PTAUA, POMEGAA,&
+               ztopswadaero,zsolswadaero,&
+               ztopswaiaero,zsolswaiaero,& 
+               ok_ade, ok_aie) 
+          
+       ELSE ! new_aod=T         
+          CALL SW_AEROAR4(PSCT, zrmu0, zfract,&
+               PPMB, PDP,&
+               PPSOL, PALBD, PALBP,&
+               PTAVE, PWV, PQS, POZON(:, :, size(wo, 3)), 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,&
+               ztopswcf_aero,zsolswcf_aero, & 
+               ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat) 
+       ENDIF
+
+       ZSWFT0_i(:,:) = ZFSDN0(:,:)-ZFSUP0(:,:)
+       ZLWFT0_i(:,:) =-ZFLDN0(:,:)-ZFLUP0(:,:)
+
+       DO i=1,kdlon
+       DO k=1,kflev+1
+!        print *,'iof i k klon klev=',iof,i,k,klon,klev
+         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)
+         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*,'SW_AR4 ZFSDN0 1 , klev:',ZFSDN0(1:klon,1),ZFSDN0(1:klon,klev)
+!          print*,'SW_AR4 swdn0  1 , klev:',swdn0(1:klon,1),swdn0(1:klon,klev)
+!          print*,'SW_AR4 ZFSUP0 1 , klev:',ZFSUP0(1:klon,1),ZFSUP0(1:klon,klev)
+!          print*,'SW_AR4 swup0  1 , klev:',swup0(1:klon,1),swup0(1:klon,klev)
+!          print*,'SW_AR4 ZFSDN  1 , klev:',ZFSDN(1:klon,1) ,ZFSDN(1:klon,klev)
+!          print*,'SW_AR4 ZFSUP  1 , klev:',ZFSUP(1:klon,1) ,ZFSUP(1:klon,klev)
+    ELSE  
+#ifdef CPP_RRTM
+!      if (prt_level.gt.10)write(lunout,*)'CPP_RRTM=.T.' 
+!===== iflag_rrtm=1, on passe dans SW via RECMWFL ===============
+
+      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
+!
+!--OB
+!--aerosol TOT  - anthropogenic+natural
+!--aerosol NAT  - natural only
+!
+      DO i = 1, kdlon
+      DO k = 1, kflev
+      DO kk=1, NSW
+!
+      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
+      ENDDO
+      ENDDO
+!-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
+      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)
+            ref_liq_i(1:klon,k) =ref_liq(1:klon,klev+1-k)
+            ref_ice_i(1:klon,k) =ref_ice(1:klon,klev+1-k)
+!-OB
+            ref_liq_pi_i(1:klon,k) =ref_liq_pi(1:klon,klev+1-k)
+            ref_ice_pi_i(1:klon,k) =ref_ice_pi(1:klon,klev+1-k)
+         enddo
+         do k=1,kflev
+           POZON_i(1:klon,k,:)=POZON(1:klon,kflev+1-k,:)
+!!!            POZON_i(1:klon,k)=POZON(1:klon,k)	    !!! on laisse 1=sol et klev=top 
+!          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/zdist/zdist
+!print*,'+++ radlwsw: solaire ,RII0',solaire,RII0
+!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+! 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_AERO (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,&
+         ref_liq_i, ref_ice_i, &
+         ref_liq_pi_i, ref_ice_pi_i, &   ! rajoute par OB pour diagnostiquer effet indirect
+         ZEMTD_i  , ZEMTU_i , ZTRSO_i ,&
+         ZTH_i    , ZCTRSO  , ZCEMTR  , ZTRSOD  ,&
+         ZLWFC    , ZLWFT_i , ZSWFC   , ZSWFT_i ,&
+         PSFSWDIR , PSFSWDIF, PFSDNN  , PFSDNV  ,&
+         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,&
+         ZTOPSWADAERO,ZSOLSWADAERO,&  ! rajoute par OB pour diagnostics
+         ZTOPSWAD0AERO,ZSOLSWAD0AERO,&
+         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
+            
+!        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_TOT,klev)
+        CALL writefield_phy('pcga_dst',PCGA_TOT,klev)
+        CALL writefield_phy('ptaurel_dst',PTAU_TOT,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_TOT    (KPROMA,KLEV,NSW); Single scattering albedo of total aerosols 
+!  PCGA_TOT     (KPROMA,KLEV,NSW); Assymetry factor for total aerosols 
+!  PTAU_TOT     (KPROMA,KLEV,NSW); Optical depth of total aerosols 
+!  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_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)     ;
+!  PFSDNN       (KPROMA)         ;
+!  PFSDNV       (KPROMA)         ;
+! ---------
+! ---------
+! On retablit l'ordre des niveaux lmd pour les tableaux de sortie
+! D autre part, on multiplie les resultats SW par fract pour etre coherent
+! avec l ancien rayonnement AR4. Si nuit, fract=0 donc pas de 
+! rayonnement SW. (MPL 260609)
+      DO k=0,klev
+         DO i=1,klon
+         ZEMTD(i,k+1)  = ZEMTD_i(i,k+1)
+         ZEMTU(i,k+1)  = ZEMTU_i(i,k+1)
+         ZTRSO(i,k+1)  = ZTRSO_i(i,k+1)
+         ZTH(i,k+1)    = ZTH_i(i,k+1)
+!        ZLWFT(i,k+1)  = ZLWFT_i(i,klev+1-k)
+!        ZSWFT(i,k+1)  = ZSWFT_i(i,klev+1-k)
+         ZFLUP(i,k+1)  = ZFLUX_i(i,1,k+1)
+         ZFLDN(i,k+1)  = ZFLUX_i(i,2,k+1)
+         ZFLUP0(i,k+1) = ZFLUC_i(i,1,k+1)
+         ZFLDN0(i,k+1) = ZFLUC_i(i,2,k+1)
+         ZFSDN(i,k+1)  = ZFSDWN_i(i,k+1)*fract(i)
+         ZFSDN0(i,k+1) = ZFCDWN_i(i,k+1)*fract(i)
+         ZFSUP (i,k+1) = ZFSUP_i(i,k+1)*fract(i)
+         ZFSUP0(i,k+1) = ZFCUP_i(i,k+1)*fract(i)
+!   Nouveau calcul car visiblement ZSWFT et ZSWFC sont nuls dans RRTM cy32
+!   en sortie de radlsw.F90 - MPL 7.01.09
+         ZSWFT(i,k+1)  = (ZFSDWN_i(i,k+1)-ZFSUP_i(i,k+1))*fract(i)
+         ZSWFT0_i(i,k+1) = (ZFCDWN_i(i,k+1)-ZFCUP_i(i,k+1))*fract(i)
+!        WRITE(*,'("FSDN FSUP FCDN FCUP: ",4E12.5)') ZFSDWN_i(i,k+1),&
+!        ZFSUP_i(i,k+1),ZFCDWN_i(i,k+1),ZFCUP_i(i,k+1)
+         ZLWFT(i,k+1) =-ZFLUX_i(i,2,k+1)-ZFLUX_i(i,1,k+1)
+         ZLWFT0_i(i,k+1)=-ZFLUC_i(i,2,k+1)-ZFLUC_i(i,1,k+1)
+!        print *,'FLUX2 FLUX1 FLUC2 FLUC1',ZFLUX_i(i,2,k+1),&
+!    & ZFLUX_i(i,1,k+1),ZFLUC_i(i,2,k+1),ZFLUC_i(i,1,k+1)
+         ENDDO
+      ENDDO
+
+!--ajout OB
+      ZTOPSWADAERO(:) =ZTOPSWADAERO(:) *fract(:)
+      ZSOLSWADAERO(:) =ZSOLSWADAERO(:) *fract(:)
+      ZTOPSWAD0AERO(:)=ZTOPSWAD0AERO(:)*fract(:)
+      ZSOLSWAD0AERO(:)=ZSOLSWAD0AERO(:)*fract(:)
+      ZTOPSWAIAERO(:) =ZTOPSWAIAERO(:) *fract(:)
+      ZSOLSWAIAERO(:) =ZSOLSWAIAERO(:) *fract(:)
+      ZTOPSWCF_AERO(:,1)=ZTOPSWCF_AERO(:,1)*fract(:) 
+      ZTOPSWCF_AERO(:,2)=ZTOPSWCF_AERO(:,2)*fract(:) 
+      ZTOPSWCF_AERO(:,3)=ZTOPSWCF_AERO(:,3)*fract(:) 
+      ZSOLSWCF_AERO(:,1)=ZSOLSWCF_AERO(:,1)*fract(:)
+      ZSOLSWCF_AERO(:,2)=ZSOLSWCF_AERO(:,2)*fract(:)
+      ZSOLSWCF_AERO(:,3)=ZSOLSWCF_AERO(:,3)*fract(:)
+
+!     print*,'SW_RRTM ZFSDN0 1 , klev:',ZFSDN0(1:klon,1),ZFSDN0(1:klon,klev)
+!     print*,'SW_RRTM ZFSUP0 1 , klev:',ZFSUP0(1:klon,1),ZFSUP0(1:klon,klev)
+!     print*,'SW_RRTM ZFSDN  1 , klev:',ZFSDN(1:klon,1),ZFSDN(1:klon,klev)
+!     print*,'SW_RRTM ZFSUP  1 , klev:',ZFSUP(1:klon,1),ZFSUP(1:klon,klev)	
+!     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(i,1)
+!        zsolsw0(i)   = ZFSDN0(i,1)     -ZFSUP0(i,1)
+         ztopsw(i)    = ZSWFT(i,klev+1)
+         ztopsw0(i)   = ZSWFT0_i(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(i,1)
+         ztoplw(i)    = ZLWFT(i,klev+1)*(-1)
+         ztoplw0(i)   = ZLWFT0_i(i,klev+1)*(-1)
+!         
+           IF (fract(i) == 0.) THEN
+!!!!! A REVOIR MPL (20090630) ca n a pas de sens quand fract=0
+! pas plus que dans le sw_AR4
+          zalbpla(i)   = 1.0e+39
+         ELSE
+          zalbpla(i)   = ZFSUP(i,klev+1)/ZFSDN(i,klev+1)
+         ENDIF
+!!! 5 juin 2015
+!!! Correction MP bug RRTM
+         zsollwdown(i)= -1.*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(i,k+1)-ZSWFT0_i(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(i,k)-ZLWFT0_i(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)
+!	   ZFLUCUP_i(i,k)=ZFLUC_i(i,1,k)
+!	   ZFLUCDWN_i(i,k)=ZFLUC_i(i,2,k)	   
+         enddo
+      enddo
+#else
+    abort_message="You should compile with -rrtm if running with iflag_rrtm=1"
+    call abort_physic(modname, abort_message, 1)
+#endif
+    ENDIF ! iflag_rrtm
+!======================================================================
+
+    DO i = 1, kdlon
+      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
+    !-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)
+! MS the following lines seem to be wrong, why is iof on right hand side???
+!          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,:)
+          topsw_aero(iof+i,:) = ztopsw_aero(i,:)
+          topsw0_aero(iof+i,:) = ztopsw0_aero(i,:)
+          solsw_aero(iof+i,:) = zsolsw_aero(i,:)
+          solsw0_aero(iof+i,:) = zsolsw0_aero(i,:)
+          topswcf_aero(iof+i,:) = ztopswcf_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
+        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.
+          !-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
+    IF (ok_aie) THEN
+        DO i = 1, kdlon
+          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
+        DO i = 1, kdlon
+          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
+    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
+
+ ENDDO ! j = 1, nb_gr
+
+END SUBROUTINE radlwsw
+
+end module radlwsw_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radopt.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radopt.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/radopt.h	(revision 3330)
@@ -0,0 +1,9 @@
+!
+! $Header$
+!
+      LOGICAL LEVOIGT
+      PARAMETER (LEVOIGT=.FALSE.)
+      INTEGER NOVLP
+      PARAMETER (NOVLP=1)
+      INTEGER KAER
+      PARAMETER (KAER=0)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ran0_vec.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ran0_vec.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ran0_vec.F90	(revision 3330)
@@ -0,0 +1,34 @@
+
+! $Header$
+
+SUBROUTINE ran0_vec(npoints, idum, ran0)
+
+  ! $Id$
+  ! Platform independent random number generator from
+  ! Numerical Recipies
+  ! Mark Webb July 1999
+
+  IMPLICIT NONE
+
+  INTEGER j, npoints, idum(npoints), ia, im, iq, ir, k(npoints)
+  REAL ran0(npoints), am
+
+  PARAMETER (ia=16807, im=2147483647, am=1.0/im, iq=127773, ir=2836)
+
+  ! do j=1,npoints
+  ! if (idum(j).eq.0) then
+  ! write(6,*) 'idum=',idum
+  ! write(6,*) 'ZERO seed not allowed'
+  ! stop
+  ! endif
+  ! enddo
+
+  DO j = 1, npoints
+    k(j) = idum(j)/iq
+    idum(j) = ia*(idum(j)-k(j)*iq) - ir*k(j)
+    IF (idum(j)<0) idum(j) = idum(j) + im
+    ran0(j) = am*idum(j)
+  END DO
+
+END SUBROUTINE ran0_vec
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_map2D.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_map2D.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_map2D.F90	(revision 3330)
@@ -0,0 +1,79 @@
+SUBROUTINE read_map2D(filename, varname, timestep, inverse, varout)
+! Open file and read one variable for one timestep.
+! Return variable for the given timestep. 
+  USE dimphy
+  USE netcdf
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+  USE print_control_mod, ONLY: lunout
+
+  IMPLICIT NONE
+
+! Input arguments
+  CHARACTER(len=*), INTENT(IN)  :: filename     ! name of file to read
+  CHARACTER(len=*), INTENT(IN)  :: varname      ! name of variable in file
+  INTEGER, INTENT(IN)           :: timestep     ! actual timestep
+  LOGICAL, INTENT(IN)           :: inverse      ! TRUE if latitude needs to be inversed
+! Output argument
+  REAL, DIMENSION(klon), INTENT(OUT) :: varout  ! The variable read from file for the given timestep
+
+! Local variables
+  INTEGER :: j
+  INTEGER :: nid, nvarid, ierr
+  INTEGER, DIMENSION(3) :: start, count
+  CHARACTER(len=20)     :: modname='read_map2D'
+
+  REAL, DIMENSION(nbp_lon,nbp_lat) :: var_glo2D     ! 2D global 
+  REAL, DIMENSION(nbp_lon,nbp_lat) :: var_glo2D_tmp ! 2D global
+  REAL, DIMENSION(klon_glo)        :: var_glo1D     ! 1D global
+
+! Read variable from file. Done by master process MPI and master thread OpenMP
+  IF (is_mpi_root .AND. is_omp_root) THEN
+     ierr = NF90_OPEN(trim(filename), NF90_NOWRITE, nid)
+     IF (ierr /= NF90_NOERR) CALL write_err_mess('Problem in opening file')
+
+     ierr = NF90_INQ_VARID(nid, trim(varname), nvarid)
+     IF (ierr /= NF90_NOERR) CALL write_err_mess('The variable is absent in file')
+     
+     start=(/1,1,timestep/)
+     count=(/nbp_lon,nbp_lat,1/)
+     ierr = NF90_GET_VAR(nid, nvarid, var_glo2D,start,count)
+     IF (ierr /= NF90_NOERR) CALL write_err_mess('Problem in reading varaiable')
+
+     ierr = NF90_CLOSE(nid)
+     IF (ierr /= NF90_NOERR) CALL write_err_mess('Problem in closing file')
+
+     ! Inverse latitude order
+     IF (inverse) THEN
+        var_glo2D_tmp(:,:) = var_glo2D(:,:)
+        DO j=1, nbp_lat
+           var_glo2D(:,j) = var_glo2D_tmp(:,nbp_lat-j+1)
+        END DO
+     END IF
+
+     ! Transform the global field from 2D to 1D
+     CALL grid2Dto1D_glo(var_glo2D,var_glo1D)
+
+     WRITE(lunout,*) 'in read_map2D, filename = ', trim(filename)
+     WRITE(lunout,*) 'in read_map2D, varname  = ', trim(varname)
+     WRITE(lunout,*) 'in read_map2D, timestep = ', timestep
+  ENDIF
+
+! Scatter gloabl 1D variable to all processes
+  CALL scatter(var_glo1D, varout)
+
+  CONTAINS
+    SUBROUTINE write_err_mess(err_mess)
+      USE print_control_mod, ONLY: lunout
+      IMPLICIT NONE
+      CHARACTER(len=*), INTENT(IN) :: err_mess
+      
+      WRITE(lunout,*) 'Error in read_map2D, filename = ', trim(filename)
+      WRITE(lunout,*) 'Error in read_map2D, varname  = ', trim(varname)
+      WRITE(lunout,*) 'Error in read_map2D, timestep = ', timestep
+
+      CALL abort_physic(modname, err_mess, 1)
+
+    END SUBROUTINE write_err_mess
+
+END SUBROUTINE read_map2D
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_pstoke.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_pstoke.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_pstoke.F90	(revision 3330)
@@ -0,0 +1,518 @@
+
+! $Id$
+
+
+
+SUBROUTINE read_pstoke(irec, zrec, zklono, zklevo, airefi, phisfi, t, mfu, &
+    mfd, en_u, de_u, en_d, de_d, coefh, fm_therm, en_therm, frac_impa, &
+    frac_nucl, pyu1, pyv1, ftsol, psrf)
+
+  ! ******************************************************************************
+  ! Frederic HOURDIN, Abderrahmane IDELKADI
+  ! Lecture des parametres physique stockes online necessaires pour
+  ! recalculer offline le transport de traceurs sur une grille 2x plus fine
+  ! que
+  ! celle online
+  ! A FAIRE : une seule routine au lieu de 2 (lectflux, redecoupe)!
+  ! ******************************************************************************
+
+  USE netcdf
+  USE dimphy
+  USE indice_sol_mod
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev
+
+  IMPLICIT NONE
+
+  include "netcdf.inc"
+
+  INTEGER klono, klevo, imo, jmo
+!  PARAMETER (imo=iim/2, jmo=(jjm+1)/2)
+!  PARAMETER (klono=(jmo-1)*imo+2, klevo=llm)
+  REAL :: phisfi(((nbp_lat/2)-1)*(nbp_lon/2)+2) !phisfi(klono)
+  REAL,ALLOCATABLE :: phisfi2(:,:) !phisfi2(imo,jmo+1)
+  REAL,ALLOCATABLE :: airefi2(:,:) !airefi2(imo, jmo+1)
+
+  REAL :: mfu(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) ! mfu(klono, klevo)
+  REAL :: mfd(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) ! mfd(klono, klevo)
+  REAL :: en_u(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !en_u(klono, klevo)
+  REAL :: de_u(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !de_u(klono, klevo)
+  REAL :: en_d(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !en_d(klono, klevo)
+  REAL :: de_d(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !de_d(klono, klevo)
+  REAL :: coefh(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !coefh(klono, klevo)
+  REAL :: fm_therm(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !fm_therm(klono, klevo)
+  REAL :: en_therm(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !en_therm(klono, klevo)
+
+  REAL,ALLOCATABLE :: mfu2(:,:,:) !mfu2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: mfd2(:,:,:) !mfd2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: en_u2(:,:,:) !en_u2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: de_u2(:,:,:) !de_u2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: en_d2(:,:,:) !en_d2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: de_d2(:,:,:) !de_d2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: coefh2(:,:,:) !coefh2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: fm_therm2(:,:,:) !fm_therm2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: en_therm2(:,:,:) !en_therm2(imo, jmo+1, klevo)
+
+  REAL,ALLOCATABLE :: pl(:) !pl(klevo)
+  INTEGER irec
+  INTEGER xid, yid, zid, tid
+  REAL zrec, zklono, zklevo, zim, zjm
+  INTEGER ncrec, ncklono, ncklevo, ncim, ncjm
+
+  REAL :: airefi(((nbp_lat/2)-1)*(nbp_lon/2)+2) !airefi(klono)
+  CHARACTER *20 namedim
+
+  ! !! attention !!
+  ! attention il y a aussi le pb de def klono
+  ! dim de phis??
+
+
+  REAL :: frac_impa(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !frac_impa(klono, klevo)
+  REAL :: frac_nucl(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !frac_nucl(klono, klevo)
+  REAL,ALLOCATABLE :: frac_impa2(:,:,:) !frac_impa2(imo, jmo+1, klevo)
+  REAL,ALLOCATABLE :: frac_nucl2(:,:,:) !frac_nucl2(imo, jmo+1, klevo)
+  REAL :: pyu1(((nbp_lat/2)-1)*(nbp_lon/2)+2) !pyu1(klono)
+  REAL :: pyv1(((nbp_lat/2)-1)*(nbp_lon/2)+2) !pyv1(klono)
+  REAL,ALLOCATABLE :: pyu12(:,:), pyv12(:,:) !pyu12(imo, jmo+1), pyv12(imo, jmo+1)
+  REAL :: ftsol(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !ftsol(klono, nbsrf)
+  REAL :: psrf(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev) !psrf(klono, nbsrf)
+  REAL,ALLOCATABLE :: ftsol1(:),ftsol2(:) !ftsol1(klono), ftsol2(klono)
+  REAL,ALLOCATABLE :: ftsol3(:),ftsol4(:) !ftsol3(klono), ftsol4(klono)
+  REAL,ALLOCATABLE :: psrf1(:), psrf2(:) !psrf1(klono), psrf2(klono)
+  REAL,ALLOCATABLE :: psrf3(:), psrf4(:) !psrf3(klono), psrf4(klono)
+  REAL,ALLOCATABLE :: ftsol12(:,:) !ftsol12(imo, jmo+1)
+  REAL,ALLOCATABLE :: ftsol22(:,:) !ftsol22(imo, jmo+1)
+  REAL,ALLOCATABLE :: ftsol32(:,:) !ftsol32(imo, jmo+1)
+  REAL,ALLOCATABLE :: ftsol42(:,:) !ftsol42(imo, jmo+1)
+  REAL,ALLOCATABLE :: psrf12(:,:) !psrf12(imo, jmo+1)
+  REAL,ALLOCATABLE :: psrf22(:,:) !psrf22(imo, jmo+1)
+  REAL,ALLOCATABLE :: psrf32(:,:) !psrf32(imo, jmo+1)
+  REAL,ALLOCATABLE :: psrf42(:,:) !psrf42(imo, jmo+1)
+  REAL :: t(((nbp_lon/2)-1)*(nbp_lat/2)+2,nbp_lev) !t(klono, klevo)
+  REAL,ALLOCATABLE :: t2(:,:,:) !t2(imo, jmo+1, klevo)
+  INTEGER,SAVE :: ncidp
+  INTEGER,SAVE :: varidt
+  INTEGER,SAVE :: varidmfu, varidmfd, varidps, varidenu, variddeu
+  INTEGER,SAVE :: varidend, varidded, varidch, varidfi, varidfn
+  INTEGER,SAVE :: varidfmth, varidenth
+  INTEGER,SAVE :: varidyu1, varidyv1, varidpl, varidai, varididvt
+  INTEGER,SAVE :: varidfts1, varidfts2, varidfts3, varidfts4
+  INTEGER,SAVE :: varidpsr1, varidpsr2, varidpsr3, varidpsr4
+
+  INTEGER l, i
+  INTEGER start(4), count(4), status
+  REAL rcode
+  LOGICAL,SAVE :: first=.TRUE.
+
+  ! Allocate arrays
+  imo=nbp_lon/2
+  jmo=nbp_lat/2
+  klono=(jmo-1)*imo+2
+  klevo=nbp_lev
+  
+  ALLOCATE(phisfi2(imo,jmo+1))
+  ALLOCATE(airefi2(imo, jmo+1))
+  ALLOCATE(mfu2(imo, jmo+1, klevo))
+  ALLOCATE(mfd2(imo, jmo+1, klevo))
+  ALLOCATE(en_u2(imo, jmo+1, klevo))
+  ALLOCATE(de_u2(imo, jmo+1, klevo))
+  ALLOCATE(en_d2(imo, jmo+1, klevo))
+  ALLOCATE(de_d2(imo, jmo+1, klevo))
+  ALLOCATE(coefh2(imo, jmo+1, klevo))
+  ALLOCATE(fm_therm2(imo, jmo+1, klevo))
+  ALLOCATE(en_therm2(imo, jmo+1, klevo))
+  ALLOCATE(pl(klevo))
+  ALLOCATE(frac_impa2(imo, jmo+1, klevo))
+  ALLOCATE(frac_nucl2(imo, jmo+1, klevo))
+  ALLOCATE(pyu12(imo, jmo+1), pyv12(imo, jmo+1))
+  ALLOCATE(ftsol1(klono), ftsol2(klono))
+  ALLOCATE(ftsol3(klono), ftsol4(klono))
+  ALLOCATE(psrf1(klono), psrf2(klono))
+  ALLOCATE(psrf3(klono), psrf4(klono))
+  ALLOCATE(ftsol12(imo, jmo+1))
+  ALLOCATE(ftsol22(imo, jmo+1))
+  ALLOCATE(ftsol32(imo, jmo+1))
+  ALLOCATE(ftsol42(imo, jmo+1))
+  ALLOCATE(psrf12(imo, jmo+1))
+  ALLOCATE(psrf22(imo, jmo+1))
+  ALLOCATE(psrf32(imo, jmo+1))
+  ALLOCATE(psrf42(imo, jmo+1))
+  ALLOCATE(t2(imo, jmo+1, klevo))
+
+  ! ---------------------------------------------
+  ! Initialisation de la lecture des fichiers
+  ! ---------------------------------------------
+
+  IF (irec==0) THEN
+
+    rcode = nf90_open('phystoke.nc', nf90_nowrite, ncidp)
+
+    rcode = nf90_inq_varid(ncidp, 'phis', varidps)
+    PRINT *, 'ncidp,varidps', ncidp, varidps
+
+    rcode = nf90_inq_varid(ncidp, 'sig_s', varidpl)
+    PRINT *, 'ncidp,varidpl', ncidp, varidpl
+
+    rcode = nf90_inq_varid(ncidp, 'aire', varidai)
+    PRINT *, 'ncidp,varidai', ncidp, varidai
+
+    ! A FAIRE: Es-il necessaire de stocke t?
+    rcode = nf90_inq_varid(ncidp, 't', varidt)
+    PRINT *, 'ncidp,varidt', ncidp, varidt
+
+    rcode = nf90_inq_varid(ncidp, 'mfu', varidmfu)
+    PRINT *, 'ncidp,varidmfu', ncidp, varidmfu
+
+    rcode = nf90_inq_varid(ncidp, 'mfd', varidmfd)
+    PRINT *, 'ncidp,varidmfd', ncidp, varidmfd
+
+    rcode = nf90_inq_varid(ncidp, 'en_u', varidenu)
+    PRINT *, 'ncidp,varidenu', ncidp, varidenu
+
+    rcode = nf90_inq_varid(ncidp, 'de_u', variddeu)
+    PRINT *, 'ncidp,variddeu', ncidp, variddeu
+
+    rcode = nf90_inq_varid(ncidp, 'en_d', varidend)
+    PRINT *, 'ncidp,varidend', ncidp, varidend
+
+    rcode = nf90_inq_varid(ncidp, 'de_d', varidded)
+    PRINT *, 'ncidp,varidded', ncidp, varidded
+
+    rcode = nf90_inq_varid(ncidp, 'coefh', varidch)
+    PRINT *, 'ncidp,varidch', ncidp, varidch
+
+    ! abder (pour thermiques)
+    rcode = nf90_inq_varid(ncidp, 'fm_th', varidfmth)
+    PRINT *, 'ncidp,varidfmth', ncidp, varidfmth
+
+    rcode = nf90_inq_varid(ncidp, 'en_th', varidenth)
+    PRINT *, 'ncidp,varidenth', ncidp, varidenth
+
+    rcode = nf90_inq_varid(ncidp, 'frac_impa', varidfi)
+    PRINT *, 'ncidp,varidfi', ncidp, varidfi
+
+    rcode = nf90_inq_varid(ncidp, 'frac_nucl', varidfn)
+    PRINT *, 'ncidp,varidfn', ncidp, varidfn
+
+    rcode = nf90_inq_varid(ncidp, 'pyu1', varidyu1)
+    PRINT *, 'ncidp,varidyu1', ncidp, varidyu1
+
+    rcode = nf90_inq_varid(ncidp, 'pyv1', varidyv1)
+    PRINT *, 'ncidp,varidyv1', ncidp, varidyv1
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol1', varidfts1)
+    PRINT *, 'ncidp,varidfts1', ncidp, varidfts1
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol2', varidfts2)
+    PRINT *, 'ncidp,varidfts2', ncidp, varidfts2
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol3', varidfts3)
+    PRINT *, 'ncidp,varidfts3', ncidp, varidfts3
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol4', varidfts4)
+    PRINT *, 'ncidp,varidfts4', ncidp, varidfts4
+
+    rcode = nf90_inq_varid(ncidp, 'psrf1', varidpsr1)
+    PRINT *, 'ncidp,varidpsr1', ncidp, varidpsr1
+
+    rcode = nf90_inq_varid(ncidp, 'psrf2', varidpsr2)
+    PRINT *, 'ncidp,varidpsr2', ncidp, varidpsr2
+
+    rcode = nf90_inq_varid(ncidp, 'psrf3', varidpsr3)
+    PRINT *, 'ncidp,varidpsr3', ncidp, varidpsr3
+
+    rcode = nf90_inq_varid(ncidp, 'psrf4', varidpsr4)
+    PRINT *, 'ncidp,varidpsr4', ncidp, varidpsr4
+
+    ! ID pour les dimensions
+
+    status = nf_inq_dimid(ncidp, 'y', yid)
+    status = nf_inq_dimid(ncidp, 'x', xid)
+    status = nf_inq_dimid(ncidp, 'sig_s', zid)
+    status = nf_inq_dimid(ncidp, 'time_counter', tid)
+
+    ! lecture des dimensions
+
+    status = nf_inq_dim(ncidp, yid, namedim, ncjm)
+    status = nf_inq_dim(ncidp, xid, namedim, ncim)
+    status = nf_inq_dim(ncidp, zid, namedim, ncklevo)
+    status = nf_inq_dim(ncidp, tid, namedim, ncrec)
+
+    zrec = ncrec
+    zklevo = ncklevo
+    zim = ncim
+    zjm = ncjm
+
+    zklono = zim*(zjm-2) + 2
+
+    WRITE (*, *) 'read_pstoke : zrec = ', zrec
+    WRITE (*, *) 'read_pstoke : zklevo = ', zklevo
+    WRITE (*, *) 'read_pstoke : zim = ', zim
+    WRITE (*, *) 'read_pstoke : zjm = ', zjm
+    WRITE (*, *) 'read_pstoke : zklono = ', zklono
+
+    ! niveaux de pression
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpl, 1, zklevo, pl)
+#else
+    status = nf_get_vara_real(ncidp, varidpl, 1, zklevo, pl)
+#endif
+
+    ! lecture de aire et phis
+
+    start(1) = 1
+    start(2) = 1
+    start(3) = 1
+    start(4) = 0
+
+    count(1) = zim
+    count(2) = zjm
+    count(3) = 1
+    count(4) = 0
+
+    ! phis
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidps, start, count, phisfi2)
+#else
+    status = nf_get_vara_real(ncidp, varidps, start, count, phisfi2)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, phisfi2, phisfi)
+
+    ! aire
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidai, start, count, airefi2)
+#else
+    status = nf_get_vara_real(ncidp, varidai, start, count, airefi2)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, airefi2, airefi)
+  ELSE
+
+    PRINT *, 'ok1'
+
+    ! ---------------------
+    ! lecture des champs
+    ! ---------------------
+
+    PRINT *, 'WARNING!!! Il n y a pas de test de coherence'
+    PRINT *, 'sur le nombre de niveaux verticaux dans le fichier nc'
+
+    start(1) = 1
+    start(2) = 1
+    start(3) = 1
+    start(4) = irec
+
+    count(1) = zim
+    count(2) = zjm
+    count(3) = zklevo
+    count(4) = 1
+
+
+    ! *** Lessivage******************************************************
+    ! frac_impa
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfi, start, count, frac_impa2)
+#else
+    status = nf_get_vara_real(ncidp, varidfi, start, count, frac_impa2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, frac_impa2, frac_impa)
+
+    ! frac_nucl
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfn, start, count, frac_nucl2)
+#else
+    status = nf_get_vara_real(ncidp, varidfn, start, count, frac_nucl2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, frac_nucl2, frac_nucl)
+
+    ! *** Temperature ******************************************************
+    ! abder t
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidt, start, count, t2)
+#else
+    status = nf_get_vara_real(ncidp, varidt, start, count, t2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, t2, t)
+
+    ! *** Flux pour le calcul de la convection TIEDTK ***********************
+    ! mfu
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidmfu, start, count, mfu2)
+#else
+    status = nf_get_vara_real(ncidp, varidmfu, start, count, mfu2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, mfu2, mfu)
+
+    ! mfd
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidmfd, start, count, mfd2)
+#else
+    status = nf_get_vara_real(ncidp, varidmfd, start, count, mfd2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, mfd2, mfd)
+
+    ! en_u
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidenu, start, count, en_u2)
+#else
+    status = nf_get_vara_real(ncidp, varidenu, start, count, en_u2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, en_u2, en_u)
+
+    ! de_u
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, variddeu, start, count, de_u2)
+#else
+    status = nf_get_vara_real(ncidp, variddeu, start, count, de_u2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, de_u2, de_u)
+
+    ! en_d
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidend, start, count, en_d2)
+#else
+    status = nf_get_vara_real(ncidp, varidend, start, count, en_d2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, en_d2, en_d)
+
+    ! de_d
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidded, start, count, de_d2)
+#else
+    status = nf_get_vara_real(ncidp, varidded, start, count, de_d2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, de_d2, de_d)
+
+    ! **** Coeffecient du mellange
+    ! turbulent**********************************
+    ! coefh
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidch, start, count, coefh2)
+#else
+    status = nf_get_vara_real(ncidp, varidch, start, count, coefh2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, coefh2, coefh)
+
+    ! *** Flux ascendant et entrant pour les
+    ! Thermiques************************
+    ! abder thermiques
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfmth, start, count, fm_therm2)
+#else
+    status = nf_get_vara_real(ncidp, varidfmth, start, count, fm_therm2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, fm_therm2, fm_therm)
+
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidenth, start, count, en_therm2)
+#else
+    status = nf_get_vara_real(ncidp, varidenth, start, count, en_therm2)
+#endif
+    CALL gr_ecrit_fi(klevo, klono, imo, jmo+1, en_therm2, en_therm)
+
+    ! *** Vitesses aux sol
+    ! ******************************************************
+    start(3) = irec
+    start(4) = 0
+    count(3) = 1
+    count(4) = 0
+    ! pyu1
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidyu1, start, count, pyu12)
+#else
+    status = nf_get_vara_real(ncidp, varidyu1, start, count, pyu12)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, pyu12, pyu1)
+
+    ! pyv1
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidyv1, start, count, pyv12)
+#else
+    status = nf_get_vara_real(ncidp, varidyv1, start, count, pyv12)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, pyv12, pyv1)
+
+    ! *** Temperature au sol ********************************************
+    ! ftsol1
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts1, start, count, ftsol12)
+#else
+    status = nf_get_vara_real(ncidp, varidfts1, start, count, ftsol12)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, ftsol12, ftsol1)
+
+    ! ftsol2
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts2, start, count, ftsol22)
+#else
+    status = nf_get_vara_real(ncidp, varidfts2, start, count, ftsol22)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, ftsol22, ftsol2)
+
+    ! ftsol3
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts3, start, count, ftsol32)
+#else
+    status = nf_get_vara_real(ncidp, varidfts3, start, count, ftsol32)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, ftsol32, ftsol3)
+
+    ! ftsol4
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts4, start, count, ftsol42)
+#else
+    status = nf_get_vara_real(ncidp, varidfts4, start, count, ftsol42)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, ftsol42, ftsol4)
+
+    ! *** Nature du sol **************************************************
+    ! psrf1
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr1, start, count, psrf12)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr1, start, count, psrf12)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, psrf12, psrf1)
+
+    ! psrf2
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr2, start, count, psrf22)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr2, start, count, psrf22)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, psrf22, psrf2)
+
+    ! psrf3
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr3, start, count, psrf32)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr3, start, count, psrf32)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, psrf32, psrf3)
+
+    ! psrf4
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr4, start, count, psrf42)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr4, start, count, psrf42)
+#endif
+    CALL gr_ecrit_fi(1, klono, imo, jmo+1, psrf42, psrf4)
+
+    DO i = 1, klono
+
+      psrf(i, 1) = psrf1(i)
+      psrf(i, 2) = psrf2(i)
+      psrf(i, 3) = psrf3(i)
+      psrf(i, 4) = psrf4(i)
+
+      ftsol(i, 1) = ftsol1(i)
+      ftsol(i, 2) = ftsol2(i)
+      ftsol(i, 3) = ftsol3(i)
+      ftsol(i, 4) = ftsol4(i)
+
+    END DO
+
+  END IF
+
+  RETURN
+
+END SUBROUTINE read_pstoke
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_pstoke0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_pstoke0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/read_pstoke0.F90	(revision 3330)
@@ -0,0 +1,536 @@
+
+! $Id$
+
+
+
+SUBROUTINE read_pstoke0(irec, zrec, zkon, zkev, airefi, phisfi, t, mfu, mfd, &
+    en_u, de_u, en_d, de_d, coefh, fm_therm, en_therm, frac_impa, frac_nucl, &
+    pyu1, pyv1, ftsol, psrf)
+
+  ! ******************************************************************************
+  ! Frederic HOURDIN, Abderrahmane IDELKADI
+  ! Lecture des parametres physique stockes online necessaires pour
+  ! recalculer offline le transport des traceurs sur la meme grille que
+  ! online
+  ! A FAIRE : une seule routine au lieu de 2 (lectflux, redecoupe)!
+  ! ******************************************************************************
+
+  USE netcdf
+  USE dimphy
+  USE indice_sol_mod
+  USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev
+
+  IMPLICIT NONE
+
+  include "netcdf.inc"
+
+  INTEGER kon, kev, zkon, zkev
+!  PARAMETER (kon=iim*(jjm-1)+2, kev=llm)
+  REAL :: phisfi(nbp_lon*(nbp_lat-2)+2) !phisfi(kon)
+  REAL,ALLOCATABLE :: phisfi2(:,:) !phisfi2(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: airefi2(:,:) !airefi2(nbp_lon, nbp_lat)
+
+  REAL :: mfu(nbp_lon*(nbp_lat-2)+2,nbp_lev) !mfu(kon, kev)
+  REAL :: mfd(nbp_lon*(nbp_lat-2)+2,nbp_lev) !mfd(kon, kev)
+  REAL :: en_u(nbp_lon*(nbp_lat-2)+2,nbp_lev) !en_u(kon, kev)
+  REAL :: de_u(nbp_lon*(nbp_lat-2)+2,nbp_lev) !de_u(kon, kev)
+  REAL :: en_d(nbp_lon*(nbp_lat-2)+2,nbp_lev) !en_d(kon, kev)
+  REAL :: de_d(nbp_lon*(nbp_lat-2)+2,nbp_lev) !de_d(kon, kev)
+  REAL :: coefh(nbp_lon*(nbp_lat-2)+2,nbp_lev) !coefh(kon, kev)
+
+  ! abd 25 11 02
+  ! Thermiques
+  REAL :: fm_therm(nbp_lon*(nbp_lat-2)+2,nbp_lev) !fm_therm(kon, kev)
+  REAL :: en_therm(nbp_lon*(nbp_lat-2)+2,nbp_lev) !en_therm(kon, kev)
+  REAL :: t(nbp_lon*(nbp_lat-2)+2,nbp_lev) !t(kon, kev)
+
+  REAL,ALLOCATABLE :: mfu2(:,:,:) !mfu2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: mfd2(:,:,:) !mfd2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: en_u2(:,:,:) !en_u2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: de_u2(:,:,:) !de_u2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: en_d2(:,:,:) !en_d2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: de_d2(:,:,:) !de_d2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: coefh2(:,:,:) !coefh2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: t2(:,:,:) !t2(nbp_lon, nbp_lat, kev)
+  ! Thermiques
+  REAL,ALLOCATABLE :: fm_therm2(:,:,:) !fm_therm2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: en_therm2(:,:,:) !en_therm2(nbp_lon, nbp_lat, kev)
+
+  REAL,ALLOCATABLE :: pl(:) !pl(kev)
+  INTEGER irec
+  INTEGER xid, yid, zid, tid
+  INTEGER zrec, zim, zjm
+  INTEGER ncrec, nckon, nckev, ncim, ncjm
+
+  REAL :: airefi(nbp_lon*(nbp_lat-2)+2) !airefi(kon)
+  CHARACTER *20 namedim
+
+  ! !! attention !!
+  ! attention il y a aussi le pb de def kon
+  ! dim de phis??
+
+  REAL :: frac_impa(nbp_lon*(nbp_lat-2)+2,nbp_lev) !frac_impa(kon, kev)
+  REAL :: frac_nucl(nbp_lon*(nbp_lat-2)+2,nbp_lev) !frac_nucl(kon, kev)
+  REAL,ALLOCATABLE :: frac_impa2(:,:,:) !frac_impa2(nbp_lon, nbp_lat, kev)
+  REAL,ALLOCATABLE :: frac_nucl2(:,:,:) !frac_nucl2(nbp_lon, nbp_lat, kev)
+  REAL :: pyu1(nbp_lon*(nbp_lat-2)+2) !pyu1(kon)
+  REAL :: pyv1(nbp_lon*(nbp_lat-2)+2) !pyv1(kon)
+  REAL,ALLOCATABLE :: pyu12(:,:), pyv12(:,:) !pyu12(nbp_lon, nbp_lat), pyv12(nbp_lon, nbp_lat)
+  REAL :: ftsol(nbp_lon*(nbp_lat-2)+2,nbp_lev) !ftsol(kon, nbsrf)
+  REAL :: psrf(nbp_lon*(nbp_lat-2)+2,nbp_lev) !psrf(kon, nbsrf)
+  REAL,ALLOCATABLE :: ftsol1(:),ftsol2(:) !ftsol1(kon), ftsol2(kon)
+  REAL,ALLOCATABLE :: ftsol3(:),ftsol4(:) !ftsol3(kon), ftsol4(kon)
+  REAL,ALLOCATABLE :: psrf1(:), psrf2(:) !psrf1(kon), psrf2(kon)
+  REAL,ALLOCATABLE :: psrf3(:), psrf4(:) !psrf3(kon), psrf4(kon)
+  REAL,ALLOCATABLE :: ftsol12(:,:) !ftsol12(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: ftsol22(:,:) !ftsol22(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: ftsol32(:,:) !ftsol32(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: ftsol42(:,:) !ftsol42(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: psrf12(:,:) !psrf12(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: psrf22(:,:) !psrf22(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: psrf32(:,:) !psrf32(nbp_lon, nbp_lat)
+  REAL,ALLOCATABLE :: psrf42(:,:) !psrf42(nbp_lon, nbp_lat)
+
+  INTEGER,SAVE :: ncidp
+  INTEGER,SAVE :: varidmfu, varidmfd, varidps, varidenu, variddeu
+  INTEGER,SAVE :: varidt
+  INTEGER,SAVE :: varidend, varidded, varidch, varidfi, varidfn
+  ! therm
+  INTEGER,SAVE :: varidfmth, varidenth
+  INTEGER,SAVE :: varidyu1, varidyv1, varidpl, varidai, varididvt
+  INTEGER,SAVE :: varidfts1, varidfts2, varidfts3, varidfts4
+  INTEGER,SAVE :: varidpsr1, varidpsr2, varidpsr3, varidpsr4
+
+  INTEGER l, i
+  INTEGER start(4), count(4), status
+  REAL rcode
+  LOGICAL,SAVE :: first=.TRUE.
+
+  ! Allocate arrays
+  kon=nbp_lon*(nbp_lat-2)+2
+  kev=nbp_lev
+
+  ALLOCATE(phisfi2(nbp_lon, nbp_lat))
+  ALLOCATE(airefi2(nbp_lon, nbp_lat))
+  ALLOCATE(mfu2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(mfd2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(en_u2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(de_u2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(en_d2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(de_d2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(coefh2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(t2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(fm_therm2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(en_therm2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(pl(kev))
+  ALLOCATE(frac_impa2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(frac_nucl2(nbp_lon, nbp_lat, kev))
+  ALLOCATE(pyu12(nbp_lon, nbp_lat), pyv12(nbp_lon, nbp_lat))
+  ALLOCATE(ftsol1(kon), ftsol2(kon))
+  ALLOCATE(ftsol3(kon), ftsol4(kon))
+  ALLOCATE(psrf1(kon), psrf2(kon))
+  ALLOCATE(psrf3(kon), psrf4(kon))
+  ALLOCATE(ftsol12(nbp_lon, nbp_lat))
+  ALLOCATE(ftsol22(nbp_lon, nbp_lat))
+  ALLOCATE(ftsol32(nbp_lon, nbp_lat))
+  ALLOCATE(ftsol42(nbp_lon, nbp_lat))
+  ALLOCATE(psrf12(nbp_lon, nbp_lat))
+  ALLOCATE(psrf22(nbp_lon, nbp_lat))
+  ALLOCATE(psrf32(nbp_lon, nbp_lat))
+  ALLOCATE(psrf42(nbp_lon, nbp_lat))
+
+  ! ---------------------------------------------
+  ! Initialisation de la lecture des fichiers
+  ! ---------------------------------------------
+
+  IF (irec==0) THEN
+
+    rcode = nf90_open('phystoke.nc', nf90_nowrite, ncidp)
+
+    rcode = nf90_inq_varid(ncidp, 'phis', varidps)
+    PRINT *, 'ncidp,varidps', ncidp, varidps
+
+    rcode = nf90_inq_varid(ncidp, 'sig_s', varidpl)
+    PRINT *, 'ncidp,varidpl', ncidp, varidpl
+
+    rcode = nf90_inq_varid(ncidp, 'aire', varidai)
+    PRINT *, 'ncidp,varidai', ncidp, varidai
+
+    rcode = nf90_inq_varid(ncidp, 't', varidt)
+    PRINT *, 'ncidp,varidt', ncidp, varidt
+
+    rcode = nf90_inq_varid(ncidp, 'mfu', varidmfu)
+    PRINT *, 'ncidp,varidmfu', ncidp, varidmfu
+
+    rcode = nf90_inq_varid(ncidp, 'mfd', varidmfd)
+    PRINT *, 'ncidp,varidmfd', ncidp, varidmfd
+
+    rcode = nf90_inq_varid(ncidp, 'en_u', varidenu)
+    PRINT *, 'ncidp,varidenu', ncidp, varidenu
+
+    rcode = nf90_inq_varid(ncidp, 'de_u', variddeu)
+    PRINT *, 'ncidp,variddeu', ncidp, variddeu
+
+    rcode = nf90_inq_varid(ncidp, 'en_d', varidend)
+    PRINT *, 'ncidp,varidend', ncidp, varidend
+
+    rcode = nf90_inq_varid(ncidp, 'de_d', varidded)
+    PRINT *, 'ncidp,varidded', ncidp, varidded
+
+    rcode = nf90_inq_varid(ncidp, 'coefh', varidch)
+    PRINT *, 'ncidp,varidch', ncidp, varidch
+
+    ! Thermiques
+    rcode = nf90_inq_varid(ncidp, 'fm_th', varidfmth)
+    PRINT *, 'ncidp,varidfmth', ncidp, varidfmth
+
+    rcode = nf90_inq_varid(ncidp, 'en_th', varidenth)
+    PRINT *, 'ncidp,varidenth', ncidp, varidenth
+
+    rcode = nf90_inq_varid(ncidp, 'frac_impa', varidfi)
+    PRINT *, 'ncidp,varidfi', ncidp, varidfi
+
+    rcode = nf90_inq_varid(ncidp, 'frac_nucl', varidfn)
+    PRINT *, 'ncidp,varidfn', ncidp, varidfn
+
+    rcode = nf90_inq_varid(ncidp, 'pyu1', varidyu1)
+    PRINT *, 'ncidp,varidyu1', ncidp, varidyu1
+
+    rcode = nf90_inq_varid(ncidp, 'pyv1', varidyv1)
+    PRINT *, 'ncidp,varidyv1', ncidp, varidyv1
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol1', varidfts1)
+    PRINT *, 'ncidp,varidfts1', ncidp, varidfts1
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol2', varidfts2)
+    PRINT *, 'ncidp,varidfts2', ncidp, varidfts2
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol3', varidfts3)
+    PRINT *, 'ncidp,varidfts3', ncidp, varidfts3
+
+    rcode = nf90_inq_varid(ncidp, 'ftsol4', varidfts4)
+    PRINT *, 'ncidp,varidfts4', ncidp, varidfts4
+
+    rcode = nf90_inq_varid(ncidp, 'psrf1', varidpsr1)
+    PRINT *, 'ncidp,varidpsr1', ncidp, varidpsr1
+
+    rcode = nf90_inq_varid(ncidp, 'psrf2', varidpsr2)
+    PRINT *, 'ncidp,varidpsr2', ncidp, varidpsr2
+
+    rcode = nf90_inq_varid(ncidp, 'psrf3', varidpsr3)
+    PRINT *, 'ncidp,varidpsr3', ncidp, varidpsr3
+
+    rcode = nf90_inq_varid(ncidp, 'psrf4', varidpsr4)
+    PRINT *, 'ncidp,varidpsr4', ncidp, varidpsr4
+
+    ! ID pour les dimensions
+
+    status = nf_inq_dimid(ncidp, 'y', yid)
+    status = nf_inq_dimid(ncidp, 'x', xid)
+    status = nf_inq_dimid(ncidp, 'sig_s', zid)
+    status = nf_inq_dimid(ncidp, 'time_counter', tid)
+
+    ! lecture des dimensions
+
+    status = nf_inq_dim(ncidp, yid, namedim, ncjm)
+    status = nf_inq_dim(ncidp, xid, namedim, ncim)
+    status = nf_inq_dim(ncidp, zid, namedim, nckev)
+    status = nf_inq_dim(ncidp, tid, namedim, ncrec)
+
+    zrec = ncrec
+    zkev = nckev
+    zim = ncim
+    zjm = ncjm
+
+    zkon = zim*(zjm-2) + 2
+
+    WRITE (*, *) 'read_pstoke : zrec = ', zrec
+    WRITE (*, *) 'read_pstoke : kev = ', zkev
+    WRITE (*, *) 'read_pstoke : zim = ', zim
+    WRITE (*, *) 'read_pstoke : zjm = ', zjm
+    WRITE (*, *) 'read_pstoke : kon = ', zkon
+
+    ! niveaux de pression
+
+    status = nf_get_vara_real(ncidp, varidpl, 1, kev, pl)
+
+    ! lecture de aire et phis
+
+    start(1) = 1
+    start(2) = 1
+    start(3) = 1
+    start(4) = 0
+
+    count(1) = zim
+    count(2) = zjm
+    count(3) = 1
+    count(4) = 0
+
+
+    ! **** Geopotentiel au sol ***************************************
+    ! phis
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidps, start, count, phisfi2)
+#else
+    status = nf_get_vara_real(ncidp, varidps, start, count, phisfi2)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, phisfi2, phisfi)
+
+    ! **** Aires des mails aux sol ************************************
+    ! aire
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidai, start, count, airefi2)
+#else
+    status = nf_get_vara_real(ncidp, varidai, start, count, airefi2)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, airefi2, airefi)
+  ELSE
+
+    PRINT *, 'ok1'
+
+    ! ---------------------
+    ! lecture des champs
+    ! ---------------------
+
+    PRINT *, 'WARNING!!! Il n y a pas de test de coherence'
+    PRINT *, 'sur le nombre de niveaux verticaux dans le fichier nc'
+
+    start(1) = 1
+    start(2) = 1
+    start(3) = 1
+    start(4) = irec
+
+    count(1) = zim
+    count(2) = zjm
+    count(3) = kev
+    count(4) = 1
+
+    ! **** Temperature ********************************************
+    ! A FAIRE : Es-ce necessaire ?
+
+    ! abder t
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidt, start, count, t2)
+#else
+    status = nf_get_vara_real(ncidp, varidt, start, count, t2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, t2, t)
+
+    ! **** Flux pour la convection (Tiedtk)
+    ! ********************************************
+    ! mfu
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidmfu, start, count, mfu2)
+#else
+    status = nf_get_vara_real(ncidp, varidmfu, start, count, mfu2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, mfu2, mfu)
+
+    ! mfd
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidmfd, start, count, mfd2)
+#else
+    status = nf_get_vara_real(ncidp, varidmfd, start, count, mfd2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, mfd2, mfd)
+
+    ! en_u
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidenu, start, count, en_u2)
+#else
+    status = nf_get_vara_real(ncidp, varidenu, start, count, en_u2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, en_u2, en_u)
+
+    ! de_u
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, variddeu, start, count, de_u2)
+#else
+    status = nf_get_vara_real(ncidp, variddeu, start, count, de_u2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, de_u2, de_u)
+
+    ! en_d
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidend, start, count, en_d2)
+#else
+    status = nf_get_vara_real(ncidp, varidend, start, count, en_d2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, en_d2, en_d)
+
+    ! de_d
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidded, start, count, de_d2)
+#else
+    status = nf_get_vara_real(ncidp, varidded, start, count, de_d2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, de_d2, de_d)
+
+    ! **** Coefficient de mellange turbulent
+    ! *******************************************
+    ! coefh
+    PRINT *, 'LECTURE de coefh a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidch, start, count, coefh2)
+#else
+    status = nf_get_vara_real(ncidp, varidch, start, count, coefh2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, coefh2, coefh)
+    ! call dump2d(iip1,jjp1,coefh2(1,2),'COEFH2READ   ')
+    ! call dump2d(iim ,jjm ,coefh (2,2),'COEFH2READ   ')
+
+    ! **** Flux ascendants et entrant dans le thermique
+    ! **********************************
+    ! Thermiques
+    PRINT *, 'LECTURE de fm_therm a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfmth, start, count, fm_therm2)
+#else
+    status = nf_get_vara_real(ncidp, varidfmth, start, count, fm_therm2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, fm_therm2, fm_therm)
+    PRINT *, 'LECTURE de en_therm a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidenth, start, count, en_therm2)
+#else
+    status = nf_get_vara_real(ncidp, varidenth, start, count, en_therm2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, en_therm2, en_therm)
+
+    ! **** Coefficients de lessivage
+    ! *******************************************
+    ! frac_impa
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfi, start, count, frac_impa2)
+#else
+    status = nf_get_vara_real(ncidp, varidfi, start, count, frac_impa2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, frac_impa2, frac_impa)
+
+    ! frac_nucl
+
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfn, start, count, frac_nucl2)
+#else
+    status = nf_get_vara_real(ncidp, varidfn, start, count, frac_nucl2)
+#endif
+    CALL gr_ecrit_fi(kev, kon, nbp_lon, nbp_lat, frac_nucl2, frac_nucl)
+
+    ! **** Vents aux sol ********************************************
+
+    start(3) = irec
+    start(4) = 0
+    count(3) = 1
+    count(4) = 0
+
+    ! pyu1
+    PRINT *, 'LECTURE de yu1 a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidyu1, start, count, pyu12)
+#else
+    status = nf_get_vara_real(ncidp, varidyu1, start, count, pyu12)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, pyu12, pyu1)
+
+    ! pyv1
+    PRINT *, 'LECTURE de yv1 a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidyv1, start, count, pyv12)
+#else
+    status = nf_get_vara_real(ncidp, varidyv1, start, count, pyv12)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, pyv12, pyv1)
+
+    ! **** Temerature au sol ********************************************
+    ! ftsol1
+    PRINT *, 'LECTURE de ftsol1 a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts1, start, count, ftsol12)
+#else
+    status = nf_get_vara_real(ncidp, varidfts1, start, count, ftsol12)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, ftsol12, ftsol1)
+
+    ! ftsol2
+    PRINT *, 'LECTURE de ftsol2 a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts2, start, count, ftsol22)
+#else
+    status = nf_get_vara_real(ncidp, varidfts2, start, count, ftsol22)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, ftsol22, ftsol2)
+
+    ! ftsol3
+    PRINT *, 'LECTURE de ftsol3 a irec =', irec
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts3, start, count, ftsol32)
+#else
+    status = nf_get_vara_real(ncidp, varidfts3, start, count, ftsol32)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, ftsol32, ftsol3)
+
+    ! ftsol4
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidfts4, start, count, ftsol42)
+#else
+    status = nf_get_vara_real(ncidp, varidfts4, start, count, ftsol42)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, ftsol42, ftsol4)
+
+    ! **** Nature sol ********************************************
+    ! psrf1
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr1, start, count, psrf12)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr1, start, count, psrf12)
+#endif
+    ! call dump2d(iip1-1,jjm+1,psrf12,'PSRF1NC')
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, psrf12, psrf1)
+
+    ! psrf2
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr2, start, count, psrf22)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr2, start, count, psrf22)
+#endif
+    ! call dump2d(iip1-1,jjm+1,psrf22,'PSRF2NC')
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, psrf22, psrf2)
+
+    ! psrf3
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr3, start, count, psrf32)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr3, start, count, psrf32)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, psrf32, psrf3)
+
+    ! psrf4
+#ifdef NC_DOUBLE
+    status = nf_get_vara_double(ncidp, varidpsr4, start, count, psrf42)
+#else
+    status = nf_get_vara_real(ncidp, varidpsr4, start, count, psrf42)
+#endif
+    CALL gr_ecrit_fi(1, kon, nbp_lon, nbp_lat, psrf42, psrf4)
+
+    DO i = 1, kon
+
+      psrf(i, 1) = psrf1(i)
+      psrf(i, 2) = psrf2(i)
+      psrf(i, 3) = psrf3(i)
+      ! test abderr
+      ! print*,'Dans read_pstoke psrf3 =',psrf3(i),i
+      psrf(i, 4) = psrf4(i)
+
+      ftsol(i, 1) = ftsol1(i)
+      ftsol(i, 2) = ftsol2(i)
+      ftsol(i, 3) = ftsol3(i)
+      ftsol(i, 4) = ftsol4(i)
+
+    END DO
+
+  END IF
+
+  RETURN
+
+END SUBROUTINE read_pstoke0
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol.F90	(revision 3330)
@@ -0,0 +1,590 @@
+! $Id$
+!
+MODULE readaerosol_mod
+
+  REAL, SAVE :: not_valid=-333.
+
+CONTAINS
+
+SUBROUTINE readaerosol(name_aero, type, filename, iyr_in, klev_src, pt_ap, pt_b, pt_out, psurf, load)
+
+!****************************************************************************************
+! This routine will read the aersosol from file. 
+!
+! Read a year data with get_aero_fromfile depending on aer_type : 
+! - actuel   : read year 1980
+! - preind   : read natural data
+! - scenario : read one or two years and do eventually linare time interpolation
+!
+! Return pointer, pt_out, to the year read or result from interpolation
+!****************************************************************************************
+  USE dimphy
+  USE print_control_mod, ONLY: lunout
+
+  IMPLICIT NONE
+
+  ! Input arguments
+  CHARACTER(len=7), INTENT(IN) :: name_aero
+  CHARACTER(len=*), INTENT(IN) :: type  ! actuel, annuel, scenario or preind
+  CHARACTER(len=8), INTENT(IN) :: filename
+  INTEGER, INTENT(IN)          :: iyr_in
+
+  ! Output
+  INTEGER, INTENT(OUT)            :: klev_src
+  REAL, POINTER, DIMENSION(:)     :: pt_ap        ! Pointer for describing the vertical levels      
+  REAL, POINTER, DIMENSION(:)     :: pt_b         ! Pointer for describing the vertical levels      
+  REAL, POINTER, DIMENSION(:,:,:) :: pt_out       ! The massvar distributions, DIMENSION(klon, klev_src, 12)
+  REAL, DIMENSION(klon,12), INTENT(OUT) :: psurf  ! Surface pression for 12 months
+  REAL, DIMENSION(klon,12), INTENT(OUT) :: load   ! Aerosol mass load in each column for 12 months
+
+  ! Local variables
+  CHARACTER(len=4)                :: cyear
+  REAL, POINTER, DIMENSION(:,:,:) :: pt_2
+  REAL, DIMENSION(klon,12)        :: psurf2, load2
+  REAL                            :: p0           ! Reference pressure
+  INTEGER                         :: iyr1, iyr2, klev_src2
+  INTEGER                         :: it, k, i
+  LOGICAL, PARAMETER              :: lonlyone=.FALSE.
+
+!****************************************************************************************
+! Read data depending on aer_type
+!
+!****************************************************************************************
+
+  IF (type == 'actuel') THEN
+! Read and return data for year 1980
+!****************************************************************************************
+     cyear='1980'
+     ! get_aero_fromfile returns pt_out allocated and initialized with data for 12 month 
+     ! pt_out has dimensions (klon, klev_src, 12)
+     CALL get_aero_fromfile(name_aero, cyear, filename, klev_src, pt_ap, pt_b, p0, pt_out, psurf, load)
+     
+
+  ELSE IF (type == 'preind') THEN
+! Read and return data from file with suffix .nat
+!****************************************************************************************     
+     cyear='.nat'
+     ! get_aero_fromfile returns pt_out allocated and initialized with data for 12 month 
+     ! pt_out has dimensions (klon, klev_src, 12)
+     CALL get_aero_fromfile(name_aero, cyear, filename, klev_src, pt_ap, pt_b, p0, pt_out, psurf, load)
+     
+  ELSE IF (type == 'annuel') THEN
+! Read and return data from scenario annual files
+!****************************************************************************************     
+     WRITE(cyear,'(I4)') iyr_in
+     WRITE(lunout,*) 'get_aero 3 iyr_in=', iyr_in,'   ',cyear
+     ! get_aero_fromfile returns pt_out allocated and initialized with data for nbr_tsteps month 
+     ! pt_out has dimensions (klon, klev_src, 12)
+     CALL get_aero_fromfile(name_aero, cyear, filename, klev_src, pt_ap, pt_b, p0, pt_out, psurf, load)
+     
+  ELSE IF (type == 'scenario') THEN
+! Read data depending on actual year and interpolate if necessary
+!****************************************************************************************
+     IF (iyr_in .LT. 1850) THEN
+        cyear='.nat'
+        WRITE(lunout,*) 'get_aero 1 iyr_in=', iyr_in,'   ',cyear
+        ! get_aero_fromfile returns pt_out allocated and initialized with data for 12 month 
+        ! pt_out has dimensions (klon, klev_src, 12)
+        CALL get_aero_fromfile(name_aero, cyear, filename, klev_src, pt_ap, pt_b, p0, pt_out, psurf, load)
+        
+     ELSE IF (iyr_in .GE. 2100) THEN
+        cyear='2100'
+        WRITE(lunout,*) 'get_aero 2 iyr_in=', iyr_in,'   ',cyear
+        ! get_aero_fromfile returns pt_out allocated and initialized with data for 12 month 
+        ! pt_out has dimensions (klon, klev_src, 12)
+        CALL get_aero_fromfile(name_aero, cyear, filename, klev_src, pt_ap, pt_b, p0, pt_out, psurf, load)
+        
+     ELSE
+        ! Read data from 2 decades and interpolate to actual year
+        ! a) from actual 10-yr-period
+        IF (iyr_in.LT.1900) THEN
+           iyr1 = 1850
+           iyr2 = 1900
+        ELSE IF (iyr_in.GE.1900.AND.iyr_in.LT.1920) THEN
+           iyr1 = 1900
+           iyr2 = 1920
+        ELSE 
+           iyr1 = INT(iyr_in/10)*10
+           iyr2 = INT(1+iyr_in/10)*10
+        ENDIF
+        
+        WRITE(cyear,'(I4)') iyr1
+        WRITE(lunout,*) 'get_aero 3 iyr_in=', iyr_in,'   ',cyear
+        ! get_aero_fromfile returns pt_out allocated and initialized with data for 12 month 
+        ! pt_out has dimensions (klon, klev_src, 12)
+        CALL get_aero_fromfile(name_aero, cyear, filename, klev_src, pt_ap, pt_b, p0, pt_out, psurf, load)
+        
+        ! If to read two decades:
+        IF (.NOT.lonlyone) THEN 
+           
+           ! b) from the next following one
+           WRITE(cyear,'(I4)') iyr2
+           WRITE(lunout,*) 'get_aero 4 iyr_in=', iyr_in,'   ',cyear
+           
+           NULLIFY(pt_2)
+           ! get_aero_fromfile returns pt_2 allocated and initialized with data for 12 month 
+           ! pt_2 has dimensions (klon, klev_src, 12)
+           CALL get_aero_fromfile(name_aero, cyear, filename, klev_src2, pt_ap, pt_b, p0, pt_2, psurf2, load2)
+           ! Test for same number of vertical levels
+           IF (klev_src /= klev_src2) THEN
+              WRITE(lunout,*) 'Two aerosols files with different number of vertical levels is not allowded'
+              CALL abort_physic('readaersosol','Error in number of vertical levels',1)
+           END IF
+           
+           ! Linare interpolate to the actual year:
+           DO it=1,12
+              DO k=1,klev_src
+                 DO i = 1, klon
+                    pt_out(i,k,it) = &
+                         pt_out(i,k,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * &
+                         (pt_out(i,k,it) - pt_2(i,k,it))
+                 END DO
+              END DO
+
+              DO i = 1, klon
+                 psurf(i,it) = &
+                      psurf(i,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * &
+                      (psurf(i,it) - psurf2(i,it))
+
+                 load(i,it) = &
+                      load(i,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * &
+                      (load(i,it) - load2(i,it))
+              END DO
+           END DO
+
+           ! Deallocate pt_2 no more needed
+           DEALLOCATE(pt_2)
+           
+        END IF ! lonlyone
+     END IF ! iyr_in .LT. 1850
+
+  ELSE
+     WRITE(lunout,*)'This option is not implemented : aer_type = ', type,' name_aero=',name_aero
+     CALL abort_physic('readaerosol','Error : aer_type parameter not accepted',1)
+  END IF ! type
+
+
+END SUBROUTINE readaerosol
+
+
+  SUBROUTINE get_aero_fromfile(varname, cyr, filename, klev_src, pt_ap, pt_b, p0, pt_year, psurf_out, load_out)
+!****************************************************************************************
+! Read 12 month aerosol from file and distribute to local process on physical grid. 
+! Vertical levels, klev_src, may differ from model levels if new file format.
+!
+! For mpi_root and master thread :
+! 1) Open file 
+! 2) Find vertical dimension klev_src
+! 3) Read field month by month
+! 4) Close file  
+! 5) Transform the global field from 2D(nbp_lon,nbp_lat) to 1D(klon_glo)
+!     - Also the levels and the latitudes have to be inversed
+!
+! For all processes and threads :
+! 6) Scatter global field(klon_glo) to local process domain(klon)
+! 7) Test for negative values
+!****************************************************************************************
+
+    USE netcdf
+    USE dimphy
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
+                                 grid2Dto1D_glo
+    USE mod_phys_lmdz_para
+    USE iophy, ONLY : io_lon, io_lat
+    USE print_control_mod, ONLY: lunout
+
+    IMPLICIT NONE
+      
+! Input argumets
+    CHARACTER(len=7), INTENT(IN)          :: varname
+    CHARACTER(len=4), INTENT(IN)          :: cyr
+    CHARACTER(len=8), INTENT(IN)          :: filename
+
+! Output arguments
+    INTEGER, INTENT(OUT)                  :: klev_src     ! Number of vertical levels in file
+    REAL, POINTER, DIMENSION(:)           :: pt_ap        ! Pointer for describing the vertical levels      
+    REAL, POINTER, DIMENSION(:)           :: pt_b         ! Pointer for describing the vertical levels      
+    REAL                                  :: p0           ! Reference pressure value
+    REAL, POINTER, DIMENSION(:,:,:)       :: pt_year      ! Pointer-variabale from file, 12 month, grid : klon,klev_src
+    REAL, DIMENSION(klon,12), INTENT(OUT) :: psurf_out    ! Surface pression for 12 months
+    REAL, DIMENSION(klon,12), INTENT(OUT) :: load_out     ! Aerosol mass load in each column
+    INTEGER                               :: nbr_tsteps   ! number of month in file read
+
+! Local variables
+    CHARACTER(len=30)     :: fname
+    CHARACTER(len=30)     :: cvar
+    INTEGER               :: ncid, dimid, varid
+    INTEGER               :: imth, i, j, k, ierr
+    REAL                  :: npole, spole
+    REAL, ALLOCATABLE, DIMENSION(:,:,:)   :: varmth
+    REAL, ALLOCATABLE, DIMENSION(:,:,:,:) :: varyear       ! Global variable read from file, 12 month
+    REAL, ALLOCATABLE, DIMENSION(:,:,:)   :: varyear_glo1D !(klon_glo, klev_src, 12)
+    REAL, ALLOCATABLE, DIMENSION(:)       :: varktmp
+
+    REAL, DIMENSION(nbp_lon,nbp_lat,12)         :: psurf_glo2D   ! Surface pression for 12 months on dynamics global grid
+    REAL, DIMENSION(klon_glo,12)          :: psurf_glo1D   ! -"- on physical global grid
+    REAL, DIMENSION(nbp_lon,nbp_lat,12)         :: load_glo2D    ! Load for 12 months on dynamics global grid
+    REAL, DIMENSION(klon_glo,12)          :: load_glo1D    ! -"- on physical global grid
+    REAL, DIMENSION(nbp_lon,nbp_lat)            :: vartmp
+    REAL, DIMENSION(nbp_lon)                  :: lon_src              ! longitudes in file
+    REAL, DIMENSION(nbp_lat)                :: lat_src, lat_src_inv ! latitudes in file
+    LOGICAL                               :: new_file             ! true if new file format detected
+    LOGICAL                               :: invert_lat           ! true if the field has to be inverted for latitudes
+
+
+    ! Deallocate pointers
+    IF (ASSOCIATED(pt_ap)) DEALLOCATE(pt_ap)
+    IF (ASSOCIATED(pt_b))  DEALLOCATE(pt_b)
+
+    IF (is_mpi_root .AND. is_omp_root) THEN
+
+! 1) Open file 
+!****************************************************************************************
+! Add suffix to filename
+       fname = trim(filename)//cyr//'.nc'
+  
+       WRITE(lunout,*) 'reading variable ',TRIM(varname),' in file ', TRIM(fname)
+       CALL check_err( nf90_open(TRIM(fname), NF90_NOWRITE, ncid), "pb open "//trim(varname) )
+
+! Test for equal longitudes and latitudes in file and model
+!****************************************************************************************
+       ! Read and test longitudes
+       CALL check_err( nf90_inq_varid(ncid, 'lon', varid),"pb inq lon" )
+       CALL check_err( nf90_get_var(ncid, varid, lon_src(:)),"pb get lon" )
+       
+       IF (maxval(ABS(lon_src - io_lon)) > 0.001) THEN
+          WRITE(lunout,*) 'Problem in longitudes read from file : ',TRIM(fname)
+          WRITE(lunout,*) 'longitudes in file ', TRIM(fname),' : ', lon_src
+          WRITE(lunout,*) 'longitudes in model :', io_lon
+          
+          CALL abort_physic('get_aero_fromfile', 'longitudes are not the same in file and model',1)
+       END IF
+
+       ! Read and test latitudes
+       CALL check_err( nf90_inq_varid(ncid, 'lat', varid),"pb inq lat" )
+       CALL check_err( nf90_get_var(ncid, varid, lat_src(:)),"pb get lat" )
+
+       ! Invert source latitudes
+       DO j = 1, nbp_lat
+          lat_src_inv(j) = lat_src(nbp_lat +1 -j)
+       END DO
+
+       IF (maxval(ABS(lat_src - io_lat)) < 0.001) THEN
+          ! Latitudes are the same
+          invert_lat=.FALSE.
+       ELSE IF (maxval(ABS(lat_src_inv - io_lat)) < 0.001) THEN
+          ! Inverted source latitudes correspond to model latitudes
+          WRITE(lunout,*) 'latitudes will be inverted for file : ',TRIM(fname)
+          invert_lat=.TRUE.
+       ELSE
+          WRITE(lunout,*) 'Problem in latitudes read from file : ',TRIM(fname)
+          WRITE(lunout,*) 'latitudes in file ', TRIM(fname),' : ', lat_src      
+          WRITE(lunout,*) 'latitudes in model :', io_lat
+          CALL abort_physic('get_aero_fromfile', 'latitudes do not correspond between file and model',1)
+       END IF
+
+
+! 2) Check if old or new file is avalabale.
+!    New type of file should contain the dimension 'lev'
+!    Old type of file should contain the dimension 'PRESNIVS'
+!****************************************************************************************
+       ierr = nf90_inq_dimid(ncid, 'lev', dimid) 
+       IF (ierr /= NF90_NOERR) THEN
+          ! Coordinate axe lev not found. Check for presnivs.
+          ierr = nf90_inq_dimid(ncid, 'PRESNIVS', dimid)
+          IF (ierr /= NF90_NOERR) THEN
+             ! Dimension PRESNIVS not found either
+             CALL abort_physic('get_aero_fromfile', 'dimension lev or presnivs not in file',1)
+          ELSE 
+             ! Old file found
+             new_file=.FALSE.
+             WRITE(lunout,*) 'Vertical interpolation for ',TRIM(varname),' will not be done'
+          END IF
+       ELSE
+          ! New file found
+          new_file=.TRUE.
+          WRITE(lunout,*) 'Vertical interpolation for ',TRIM(varname),' will be done'
+       END IF
+       
+! 2) Find vertical dimension klev_src
+!****************************************************************************************
+       CALL check_err( nf90_inquire_dimension(ncid, dimid, len = klev_src),"pb inq dim for PRESNIVS or lev" )
+       
+     ! Allocate variables depending on the number of vertical levels
+       ALLOCATE(varmth(nbp_lon,nbp_lat, klev_src), varyear(nbp_lon,nbp_lat, klev_src, 12), stat=ierr)
+       IF (ierr /= 0) CALL abort_physic('get_aero_fromfile', 'pb in allocation 1',1)
+
+       ALLOCATE(pt_ap(klev_src), pt_b(klev_src), varktmp(klev_src), stat=ierr)
+       IF (ierr /= 0) CALL abort_physic('get_aero_fromfile', 'pb in allocation 2',1)
+
+! 3) Read all variables from file
+!    There is 2 options for the file structure :
+!    new_file=TRUE  : read varyear, ps, pt_ap and pt_b
+!    new_file=FALSE : read varyear month by month
+!****************************************************************************************
+
+       IF (new_file) THEN
+! ++) Check number of month in file opened
+!**************************************************************************************************
+       ierr = nf90_inq_dimid(ncid, 'TIME',dimid)
+       CALL check_err( nf90_inquire_dimension(ncid, dimid, len = nbr_tsteps),"pb inq dim TIME" )
+!       IF (nbr_tsteps /= 12 .AND. nbr_tsteps /= 14) THEN
+       IF (nbr_tsteps /= 12 ) THEN
+    CALL abort_physic('get_aero_fromfile', 'not the right number of months in aerosol file read (should be 12 for the moment)' &
+                     ,1)
+       ENDIF
+
+! ++) Read the aerosol concentration month by month and concatenate to total variable varyear
+!****************************************************************************************
+          ! Get variable id
+          CALL check_err( nf90_inq_varid(ncid, TRIM(varname), varid),"pb inq var "//TRIM(varname) )
+          
+          ! Get the variable
+          CALL check_err( nf90_get_var(ncid, varid, varyear(:,:,:,:)),"pb get var "//TRIM(varname) )
+          
+! ++) Read surface pression, 12 month in one variable
+!****************************************************************************************
+          ! Get variable id
+          CALL check_err( nf90_inq_varid(ncid, "ps", varid),"pb inq var ps" )
+          ! Get the variable
+          CALL check_err( nf90_get_var(ncid, varid, psurf_glo2D),"pb get var ps" )
+          
+! ++) Read mass load, 12 month in one variable
+!****************************************************************************************
+          ! Get variable id
+          CALL check_err( nf90_inq_varid(ncid, "load_"//TRIM(varname), varid) ,"pb inq var load_"//TRIM(varname))
+          ! Get the variable
+          CALL check_err( nf90_get_var(ncid, varid, load_glo2D),"pb get var load_"//TRIM(varname) )
+          
+! ++) Read ap
+!****************************************************************************************
+          ! Get variable id
+          CALL check_err( nf90_inq_varid(ncid, "ap", varid),"pb inq var ap" )
+          ! Get the variable
+          CALL check_err( nf90_get_var(ncid, varid, pt_ap),"pb get var ap" )
+
+! ++) Read b
+!****************************************************************************************
+          ! Get variable id
+          CALL check_err( nf90_inq_varid(ncid, "b", varid),"pb inq var b" )
+          ! Get the variable
+          CALL check_err( nf90_get_var(ncid, varid, pt_b),"pb get var b" )
+
+! ++) Read p0 : reference pressure
+!****************************************************************************************
+          ! Get variable id
+          CALL check_err( nf90_inq_varid(ncid, "p0", varid),"pb inq var p0" )
+          ! Get the variable
+          CALL check_err( nf90_get_var(ncid, varid, p0),"pb get var p0" )
+          
+
+       ELSE  ! old file
+
+! ++) Read the aerosol concentration month by month and concatenate to total variable varyear
+!****************************************************************************************
+          DO imth=1, 12
+             IF (imth.EQ.1) THEN
+                cvar=TRIM(varname)//'JAN'
+             ELSE IF (imth.EQ.2) THEN
+                cvar=TRIM(varname)//'FEB'
+             ELSE IF (imth.EQ.3) THEN
+                cvar=TRIM(varname)//'MAR'
+             ELSE IF (imth.EQ.4) THEN
+                cvar=TRIM(varname)//'APR'
+             ELSE IF (imth.EQ.5) THEN
+                cvar=TRIM(varname)//'MAY'
+             ELSE IF (imth.EQ.6) THEN
+                cvar=TRIM(varname)//'JUN'
+             ELSE IF (imth.EQ.7) THEN
+                cvar=TRIM(varname)//'JUL'
+             ELSE IF (imth.EQ.8) THEN
+                cvar=TRIM(varname)//'AUG'
+             ELSE IF (imth.EQ.9) THEN
+                cvar=TRIM(varname)//'SEP'
+             ELSE IF (imth.EQ.10) THEN
+                cvar=TRIM(varname)//'OCT'
+             ELSE IF (imth.EQ.11) THEN
+                cvar=TRIM(varname)//'NOV'
+             ELSE IF (imth.EQ.12) THEN
+                cvar=TRIM(varname)//'DEC'
+             END IF
+             
+             ! Get variable id
+             CALL check_err( nf90_inq_varid(ncid, TRIM(cvar), varid),"pb inq var "//TRIM(cvar) )
+             
+             ! Get the variable
+             CALL check_err( nf90_get_var(ncid, varid, varmth),"pb get var "//TRIM(cvar) )
+             
+             ! Store in variable for the whole year
+             varyear(:,:,:,imth)=varmth(:,:,:)
+             
+          END DO
+          
+          ! Putting dummy 
+          psurf_glo2D(:,:,:) = not_valid
+          load_glo2D(:,:,:)  = not_valid
+          pt_ap(:) = not_valid
+          pt_b(:)  = not_valid
+
+       END IF
+
+! 4) Close file  
+!****************************************************************************************
+       CALL check_err( nf90_close(ncid),"pb in close" )
+     
+
+! 5) Transform the global field from 2D(nbp_lon,nbp_lat) to 1D(klon_glo)
+!****************************************************************************************
+! Test if vertical levels have to be inversed
+
+       IF ((pt_b(1) < pt_b(klev_src)) .OR. .NOT. new_file) THEN
+!          WRITE(lunout,*) 'Vertical axis in file ',TRIM(fname), ' needs to be inverted'
+!          WRITE(lunout,*) 'before pt_ap = ', pt_ap
+!          WRITE(lunout,*) 'before pt_b = ', pt_b
+          
+          ! Inverse vertical levels for varyear 
+          DO imth=1, 12
+             varmth(:,:,:) = varyear(:,:,:,imth) ! use varmth temporarly
+             DO k=1, klev_src
+                DO j=1, nbp_lat
+                   DO i=1, nbp_lon
+                      varyear(i,j,k,imth) = varmth(i,j,klev_src+1-k)
+                   END DO
+                END DO
+             END DO
+          END DO
+           
+          ! Inverte vertical axes for pt_ap and pt_b
+          varktmp(:) = pt_ap(:)
+          DO k=1, klev_src
+             pt_ap(k) = varktmp(klev_src+1-k)
+          END DO
+
+          varktmp(:) = pt_b(:)
+          DO k=1, klev_src
+             pt_b(k) = varktmp(klev_src+1-k)
+          END DO
+          WRITE(lunout,*) 'after pt_ap = ', pt_ap
+          WRITE(lunout,*) 'after pt_b = ', pt_b
+
+       ELSE 
+          WRITE(lunout,*) 'Vertical axis in file ',TRIM(fname), ' is ok, no vertical inversion is done'
+          WRITE(lunout,*) 'pt_ap = ', pt_ap
+          WRITE(lunout,*) 'pt_b = ', pt_b
+       END IF
+
+!     - Invert latitudes if necessary
+       DO imth=1, 12
+          IF (invert_lat) THEN
+
+             ! Invert latitudes for the variable
+             varmth(:,:,:) = varyear(:,:,:,imth) ! use varmth temporarly
+             DO k=1,klev_src
+                DO j=1,nbp_lat
+                   DO i=1,nbp_lon
+                      varyear(i,j,k,imth) = varmth(i,nbp_lat+1-j,k)
+                   END DO
+                END DO
+             END DO
+             
+             ! Invert latitudes for surface pressure
+             vartmp(:,:) = psurf_glo2D(:,:,imth)
+             DO j=1,nbp_lat
+                DO i=1,nbp_lon
+                   psurf_glo2D(i,j,imth)= vartmp(i,nbp_lat+1-j)
+                END DO
+             END DO
+             
+             ! Invert latitudes for the load
+             vartmp(:,:) = load_glo2D(:,:,imth)
+             DO j=1,nbp_lat
+                DO i=1,nbp_lon
+                   load_glo2D(i,j,imth)= vartmp(i,nbp_lat+1-j)
+                END DO
+             END DO
+          END IF ! invert_lat
+             
+          ! Do zonal mead at poles and distribut at whole first and last latitude
+          DO k=1, klev_src
+             npole=0.  ! North pole, j=1
+             spole=0.  ! South pole, j=nbp_lat        
+             DO i=1,nbp_lon
+                npole = npole + varyear(i,1,k,imth)
+                spole = spole + varyear(i,nbp_lat,k,imth)
+             END DO
+             npole = npole/REAL(nbp_lon)
+             spole = spole/REAL(nbp_lon)
+             varyear(:,1,    k,imth) = npole
+             varyear(:,nbp_lat,k,imth) = spole
+          END DO
+       END DO ! imth
+       
+       ALLOCATE(varyear_glo1D(klon_glo, klev_src, 12), stat=ierr)
+       IF (ierr /= 0) CALL abort_physic('get_aero_fromfile', 'pb in allocation 3',1)
+       
+       ! Transform from 2D to 1D field
+       CALL grid2Dto1D_glo(varyear,varyear_glo1D)
+       CALL grid2Dto1D_glo(psurf_glo2D,psurf_glo1D)
+       CALL grid2Dto1D_glo(load_glo2D,load_glo1D)
+
+    ELSE
+      ALLOCATE(varyear_glo1D(0,0,0))        
+    END IF ! is_mpi_root .AND. is_omp_root
+
+!$OMP BARRIER
+  
+! 6) Distribute to all processes
+!    Scatter global field(klon_glo) to local process domain(klon)
+!    and distribute klev_src to all processes
+!****************************************************************************************
+
+    ! Distribute klev_src
+    CALL bcast(klev_src)
+
+    ! Allocate and distribute pt_ap and pt_b
+    IF (.NOT. ASSOCIATED(pt_ap)) THEN  ! if pt_ap is allocated also pt_b is allocated
+       ALLOCATE(pt_ap(klev_src), pt_b(klev_src), stat=ierr)
+       IF (ierr /= 0) CALL abort_physic('get_aero_fromfile', 'pb in allocation 4',1)
+    END IF
+    CALL bcast(pt_ap)
+    CALL bcast(pt_b)
+
+    ! Allocate space for output pointer variable at local process
+    IF (ASSOCIATED(pt_year)) DEALLOCATE(pt_year)
+    ALLOCATE(pt_year(klon, klev_src, 12), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('get_aero_fromfile', 'pb in allocation 5',1)
+
+    ! Scatter global field to local domain at local process
+    CALL scatter(varyear_glo1D, pt_year)
+    CALL scatter(psurf_glo1D, psurf_out)
+    CALL scatter(load_glo1D,  load_out)
+
+! 7) Test for negative values
+!****************************************************************************************
+    IF (MINVAL(pt_year) < 0.) THEN
+       WRITE(lunout,*) 'Warning! Negative values read from file :', fname
+    END IF
+
+  END SUBROUTINE get_aero_fromfile
+
+
+  SUBROUTINE check_err(status,text)
+    USE netcdf
+    USE print_control_mod, ONLY: lunout
+    IMPLICIT NONE
+
+    INTEGER, INTENT (IN) :: status
+    CHARACTER(len=*), INTENT (IN), OPTIONAL :: text
+
+    IF (status /= NF90_NOERR) THEN
+       WRITE(lunout,*) 'Error in get_aero_fromfile, netcdf error code = ',status
+       IF (PRESENT(text)) THEN
+          WRITE(lunout,*) 'Error in get_aero_fromfile : ',text
+       END IF
+       CALL abort_physic('get_aero_fromfile',trim(nf90_strerror(status)),1)
+    END IF
+
+  END SUBROUTINE check_err
+
+
+END MODULE readaerosol_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol_interp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol_interp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol_interp.F90	(revision 3330)
@@ -0,0 +1,579 @@
+! $Id$
+!
+SUBROUTINE readaerosol_interp(id_aero, itap, pdtphys, r_day, first, pplay, paprs, t_seri, mass_out, pi_mass_out, load_src)
+!
+! This routine will return the mass concentration at actual day(mass_out) and 
+! the pre-industrial values(pi_mass_out) for aerosol corresponding to "id_aero".
+! The mass concentrations for all aerosols are saved in this routine but each
+! call to this routine only treats the aerosol "id_aero".
+!
+! 1) Read in data for the whole year, only at first time step
+! 2) Interpolate to the actual day, only at new day
+! 3) Interpolate to the model vertical grid (target grid), only at new day
+! 4) Test for negative mass values
+
+  USE ioipsl
+  USE dimphy, ONLY : klev,klon
+  USE mod_phys_lmdz_para, ONLY : mpi_rank  
+  USE readaerosol_mod
+  USE aero_mod, ONLY : naero_spc, name_aero
+  USE write_field_phy
+  USE phys_cal_mod
+  USE pres2lev_mod
+  USE print_control_mod, ONLY: lunout
+
+  IMPLICIT NONE
+
+  INCLUDE "YOMCST.h"
+  INCLUDE "chem.h"      
+  INCLUDE "clesphys.h"
+
+!
+! Input:
+!****************************************************************************************
+  INTEGER, INTENT(IN)                    :: id_aero! Identity number for the aerosol to treat
+  INTEGER, INTENT(IN)                    :: itap   ! Physic step count
+  REAL, INTENT(IN)                       :: pdtphys! Physic day step
+  REAL, INTENT(IN)                       :: r_day  ! Day of integration
+  LOGICAL, INTENT(IN)                    :: first  ! First model timestep 
+  REAL, DIMENSION(klon,klev), INTENT(IN) :: pplay  ! pression at model mid-layers
+  REAL, DIMENSION(klon,klev+1),INTENT(IN):: paprs  ! pression between model layers
+  REAL, DIMENSION(klon,klev), INTENT(IN) :: t_seri ! air temperature
+!      
+! Output:      
+!****************************************************************************************
+  REAL, INTENT(OUT) :: mass_out(klon,klev)    ! Mass of aerosol (monthly mean data,from file) [ug AIBCM/m3]
+  REAL, INTENT(OUT) :: pi_mass_out(klon,klev) ! Mass of preindustrial aerosol (monthly mean data,from file) [ug AIBCM/m3]
+  REAL, INTENT(OUT) :: load_src(klon) ! Load of aerosol (monthly mean data,from file) [kg/m3]
+!      
+! Local Variables:
+!****************************************************************************************
+  INTEGER                         :: i, k, ierr
+  INTEGER                         :: iday, iyr, lmt_pas
+!  INTEGER                         :: im, day1, day2, im2
+  INTEGER                         :: im, im2
+  REAL                            :: day1, day2
+  INTEGER                         :: pi_klev_src ! Only for testing purpose
+  INTEGER, SAVE                   :: klev_src    ! Number of vertical levles in source field
+!$OMP THREADPRIVATE(klev_src)
+
+  REAL                              :: zrho      ! Air density [kg/m3]
+  REAL                              :: volm      ! Volyme de melange [kg/kg]
+  REAL, DIMENSION(klon)             :: psurf_day, pi_psurf_day
+  REAL, DIMENSION(klon)             :: pi_load_src  ! Mass load at source grid
+  REAL, DIMENSION(klon)             :: load_tgt, load_tgt_test
+  REAL, DIMENSION(klon,klev)        :: delp ! pressure difference in each model layer
+
+  REAL, ALLOCATABLE, DIMENSION(:,:)            :: pplay_src ! pression mid-layer at source levels
+  REAL, ALLOCATABLE, DIMENSION(:,:)            :: tmp1, tmp2  ! Temporary variables
+  REAL, ALLOCATABLE, DIMENSION(:,:,:,:), SAVE  :: var_year    ! VAR in right dimension for the total year
+  REAL, ALLOCATABLE, DIMENSION(:,:,:,:), SAVE  :: pi_var_year ! pre-industrial VAR, -"-
+!$OMP THREADPRIVATE(var_year,pi_var_year)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:),SAVE     :: var_day     ! VAR interpolated to the actual day and model grid
+  REAL, ALLOCATABLE, DIMENSION(:,:,:),SAVE     :: pi_var_day  ! pre-industrial VAR, -"-
+!$OMP THREADPRIVATE(var_day,pi_var_day)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE    :: psurf_year, pi_psurf_year ! surface pressure for the total year
+!$OMP THREADPRIVATE(psurf_year, pi_psurf_year)
+  REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE    :: load_year, pi_load_year   ! load in the column for the total year
+!$OMP THREADPRIVATE(load_year, pi_load_year)
+
+  REAL, DIMENSION(:,:,:), POINTER   :: pt_tmp      ! Pointer allocated in readaerosol
+  REAL, POINTER, DIMENSION(:), SAVE :: pt_ap, pt_b ! Pointer for describing the vertical levels 
+!$OMP THREADPRIVATE(pt_ap, pt_b)
+  INTEGER, SAVE                     :: nbr_tsteps ! number of time steps in file read
+  REAL, DIMENSION(14), SAVE         :: month_len, month_start, month_mid
+!$OMP THREADPRIVATE(nbr_tsteps, month_len, month_start, month_mid)
+  REAL                              :: jDay
+
+  LOGICAL            :: lnewday      ! Indicates if first time step at a new day
+  LOGICAL            :: OLDNEWDAY
+  LOGICAL,SAVE       :: vert_interp  ! Indicates if vertical interpolation will be done
+  LOGICAL,SAVE       :: debug=.FALSE.! Debugging in this subroutine
+!$OMP THREADPRIVATE(vert_interp, debug)
+  CHARACTER(len=8)      :: type
+  CHARACTER(len=8)      :: filename
+
+
+!****************************************************************************************
+! Initialization
+!
+!****************************************************************************************
+
+! Calculation to find if it is a new day
+
+  IF(mpi_rank == 0 .AND. debug )then
+     PRINT*,'CONTROL PANEL REGARDING TIME STEPING'
+  ENDIF
+
+  ! Use phys_cal_mod
+  iday= day_cur
+  iyr = year_cur
+  im  = mth_cur
+
+!  iday = INT(r_day)
+!  iyr  = iday/360
+!  iday = iday-iyr*360         ! day of the actual year
+!  iyr  = iyr + annee_ref      ! year of the run   
+!  im   = iday/30 +1           ! the actual month
+  CALL ymds2ju(iyr, im, iday, 0., jDay)
+!   CALL ymds2ju(iyr, im, iday-(im-1)*30, 0., jDay)
+
+
+  IF(MOD(itap-1,NINT(86400./pdtphys)) == 0)THEN
+     lnewday=.TRUE.
+  ELSE
+     lnewday=.FALSE.
+  ENDIF
+
+  IF(mpi_rank == 0 .AND. debug)then
+     ! 0.02 is about 0.5/24, namly less than half an hour
+     OLDNEWDAY = (r_day-REAL(iday) < 0.02)
+     ! Once per day, update aerosol fields
+     lmt_pas = NINT(86400./pdtphys)
+     PRINT*,'r_day-REAL(iday) =',r_day-REAL(iday) 
+     PRINT*,'itap =',itap
+     PRINT*,'pdtphys =',pdtphys
+     PRINT*,'lmt_pas =',lmt_pas
+     PRINT*,'iday =',iday
+     PRINT*,'r_day =',r_day
+     PRINT*,'day_cur =',day_cur
+     PRINT*,'mth_cur =',mth_cur
+     PRINT*,'year_cur =',year_cur
+     PRINT*,'NINT(86400./pdtphys) =',NINT(86400./pdtphys)
+     PRINT*,'MOD(0,1) =',MOD(0,1)
+     PRINT*,'lnewday =',lnewday
+     PRINT*,'OLDNEWDAY =',OLDNEWDAY
+  ENDIF
+
+  IF (.NOT. ALLOCATED(var_day)) THEN
+     ALLOCATE( var_day(klon, klev, naero_spc), stat=ierr)
+     IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 1',1)
+     ALLOCATE( pi_var_day(klon, klev, naero_spc), stat=ierr)
+     IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 2',1)
+
+     ALLOCATE( psurf_year(klon, 12, naero_spc), pi_psurf_year(klon, 12, naero_spc), stat=ierr)
+     IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 3',1)
+
+     ALLOCATE( load_year(klon, 12, naero_spc), pi_load_year(klon, 12, naero_spc), stat=ierr)
+     IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 4',1)
+
+     lnewday=.TRUE.
+
+     NULLIFY(pt_ap)
+     NULLIFY(pt_b)
+  END IF
+
+!****************************************************************************************
+! 1) Read in data : corresponding to the actual year and preindustrial data. 
+!    Only for the first day of the year.
+!
+!****************************************************************************************
+  IF ( (first .OR. iday==0) .AND. lnewday ) THEN 
+     NULLIFY(pt_tmp)
+
+     ! Reading values corresponding to the closest year taking into count the choice of aer_type. 
+     ! For aer_type=scenario interpolation between 2 data sets is done in readaerosol.
+     ! If aer_type=mix1, mix2 or mix3, the run type and file name depends on the aerosol.
+     IF (aer_type=='preind' .OR. aer_type=='actuel' .OR. aer_type=='annuel' .OR. aer_type=='scenario') THEN
+        ! Standard case
+        filename='aerosols'
+        type=aer_type
+     ELSE IF (aer_type == 'mix1') THEN
+        ! Special case using a mix of decenal sulfate file and annual aerosols(all aerosols except sulfate)
+        IF (name_aero(id_aero) == 'SO4') THEN
+           filename='so4.run '
+           type='scenario'
+        ELSE
+           filename='aerosols'
+           type='annuel'
+        END IF
+     ELSE  IF (aer_type == 'mix2') THEN
+        ! Special case using a mix of decenal sulfate file and natrual aerosols
+        IF (name_aero(id_aero) == 'SO4') THEN
+           filename='so4.run '
+           type='scenario'
+        ELSE
+           filename='aerosols'
+           type='preind'
+        END IF
+     ELSE  IF (aer_type == 'mix3') THEN
+        ! Special case using a mix of annual sulfate file and natrual aerosols
+        IF (name_aero(id_aero) == 'SO4') THEN
+           filename='aerosols'
+           type='annuel'
+        ELSE
+           filename='aerosols' 
+           type='preind'
+        END IF
+     ELSE
+        CALL abort_physic('readaerosol_interp', 'this aer_type not supported',1)
+     END IF
+
+     CALL readaerosol(name_aero(id_aero), type, filename, iyr, klev_src, pt_ap, pt_b, pt_tmp, &
+          psurf_year(:,:,id_aero), load_year(:,:,id_aero))
+     IF (.NOT. ALLOCATED(var_year)) THEN
+        ALLOCATE(var_year(klon, klev_src, 12, naero_spc), stat=ierr)
+        IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 5',1)
+     END IF
+     var_year(:,:,:,id_aero) = pt_tmp(:,:,:)
+
+     ! Reading values corresponding to the preindustrial concentrations.
+     type='preind'
+     CALL readaerosol(name_aero(id_aero), type, filename, iyr, pi_klev_src, pt_ap, pt_b, pt_tmp, &
+          pi_psurf_year(:,:,id_aero), pi_load_year(:,:,id_aero))
+
+     ! klev_src must be the same in both files. 
+     ! Also supposing pt_ap and pt_b to be the same in the 2 files without testing. 
+     IF (pi_klev_src /= klev_src) THEN
+        WRITE(lunout,*) 'Error! All forcing files for the same aerosol must have the same vertical dimension'
+        WRITE(lunout,*) 'Aerosol : ', name_aero(id_aero)
+        CALL abort_physic('readaerosol_interp','Differnt vertical axes in aerosol forcing files',1)
+     END IF
+
+     IF (.NOT. ALLOCATED(pi_var_year)) THEN
+        ALLOCATE(pi_var_year(klon, klev_src, 12, naero_spc), stat=ierr)
+        IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 6',1)
+     END IF
+     pi_var_year(:,:,:,id_aero) = pt_tmp(:,:,:)
+    
+     IF (debug) THEN
+        CALL writefield_phy('var_year_jan',var_year(:,:,1,id_aero),klev_src)
+        CALL writefield_phy('var_year_dec',var_year(:,:,12,id_aero),klev_src)
+        CALL writefield_phy('psurf_src',psurf_year(:,:,id_aero),1)
+        CALL writefield_phy('pi_psurf_src',pi_psurf_year(:,:,id_aero),1)
+        CALL writefield_phy('load_year_src',load_year(:,:,id_aero),1)
+        CALL writefield_phy('pi_load_year_src',pi_load_year(:,:,id_aero),1)
+     END IF
+
+     ! Pointer no more useful, deallocate. 
+     DEALLOCATE(pt_tmp)
+
+     ! Test if vertical interpolation will be needed.
+     IF (psurf_year(1,1,id_aero)==not_valid .OR. pi_psurf_year(1,1,id_aero)==not_valid ) THEN
+        ! Pressure=not_valid indicates old file format, see module readaerosol
+        vert_interp = .FALSE.
+
+        ! If old file format, both psurf_year and pi_psurf_year must be not_valid
+        IF (  psurf_year(1,1,id_aero) /= pi_psurf_year(1,1,id_aero) ) THEN
+           WRITE(lunout,*) 'Warning! All forcing files for the same aerosol must have the same structure'
+           CALL abort_physic('readaerosol_interp', 'The aerosol files have not the same format',1)
+        END IF
+        
+        IF (klev /= klev_src) THEN
+           WRITE(lunout,*) 'Old format of aerosol file do not allowed vertical interpolation'
+           CALL abort_physic('readaerosol_interp', 'Old aerosol file not possible',1)
+        END IF
+
+     ELSE 
+        vert_interp = .TRUE.
+     END IF
+
+!    Calendar initialisation
+!
+     DO i = 2, 13
+       month_len(i) = REAL(ioget_mon_len(year_cur, i-1))
+       CALL ymds2ju(year_cur, i-1, 1, 0.0, month_start(i))
+     ENDDO
+     month_len(1) = REAL(ioget_mon_len(year_cur-1, 12))
+     CALL ymds2ju(year_cur-1, 12, 1, 0.0, month_start(1))
+     month_len(14) = REAL(ioget_mon_len(year_cur+1, 1))
+     CALL ymds2ju(year_cur+1, 1, 1, 0.0, month_start(14))
+     month_mid(:) = month_start (:) + month_len(:)/2.
+     
+     if (debug) then
+       write(lunout,*)' month_len = ',month_len
+       write(lunout,*)' month_mid = ',month_mid
+     endif
+
+  END IF  ! IF ( (first .OR. iday==0) .AND. lnewday ) THEN 
+  
+!****************************************************************************************
+! - 2) Interpolate to the actual day.
+! - 3) Interpolate to the model vertical grid.
+!
+!****************************************************************************************
+
+  IF (lnewday) THEN ! only if new day
+!****************************************************************************************
+! 2) Interpolate to the actual day
+! 
+!****************************************************************************************
+    ! Find which months and days to use for time interpolation
+     nbr_tsteps = 12
+     IF (nbr_tsteps == 12) then
+       IF (jDay < month_mid(im+1)) THEN
+          im2=im-1
+          day2 = month_mid(im2+1)
+          day1 = month_mid(im+1)
+          IF (im2 <= 0) THEN
+             ! the month is january, thus the month before december
+             im2=12
+          END IF
+       ELSE
+          ! the second half of the month
+          im2=im+1
+          day1 = month_mid(im+1)
+          day2 = month_mid(im2+1)
+          IF (im2 > 12) THEN
+             ! the month is december, the following thus january
+             im2=1
+          ENDIF
+       END IF
+     ELSE IF (nbr_tsteps == 14) then
+       im = im + 1
+       IF (jDay < month_mid(im)) THEN
+          ! in the first half of the month use month before and actual month
+          im2=im-1
+          day2 = month_mid(im2)
+          day1 = month_mid(im)
+       ELSE
+          ! the second half of the month
+          im2=im+1
+          day1 = month_mid(im)
+          day2 = month_mid(im2)
+       END IF
+     ELSE
+       CALL abort_physic('readaerosol_interp', 'number of months undefined',1)
+     ENDIF
+     if (debug) then
+       write(lunout,*)' jDay, day1, day2, im, im2 = ', jDay, day1, day2, im, im2
+     endif
+
+ 
+     ! Time interpolation, still on vertical source grid
+     ALLOCATE(tmp1(klon,klev_src), tmp2(klon,klev_src),stat=ierr)
+     IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 7',1)
+
+     ALLOCATE(pplay_src(klon,klev_src), stat=ierr)
+     IF (ierr /= 0) CALL abort_physic('readaerosol_interp', 'pb in allocation 8',1)
+     
+
+     DO k=1,klev_src
+        DO i=1,klon 
+           tmp1(i,k) = &
+                var_year(i,k,im2,id_aero) - (jDay-day2)/(day1-day2) * &
+                (var_year(i,k,im2,id_aero) - var_year(i,k,im,id_aero))
+           
+           tmp2(i,k) = &
+                pi_var_year(i,k,im2,id_aero) - (jDay-day2)/(day1-day2) * &
+                (pi_var_year(i,k,im2,id_aero) - pi_var_year(i,k,im,id_aero))
+        END DO
+     END DO
+
+     ! Time interpolation for pressure at surface, still on vertical source grid
+     DO i=1,klon 
+        psurf_day(i) = &
+             psurf_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
+             (psurf_year(i,im2,id_aero) - psurf_year(i,im,id_aero))
+        
+        pi_psurf_day(i) = &
+             pi_psurf_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
+             (pi_psurf_year(i,im2,id_aero) - pi_psurf_year(i,im,id_aero))
+     END DO
+
+     ! Time interpolation for the load, still on vertical source grid
+     DO i=1,klon 
+        load_src(i) = &
+             load_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
+             (load_year(i,im2,id_aero) - load_year(i,im,id_aero))
+        
+        pi_load_src(i) = &
+             pi_load_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
+             (pi_load_year(i,im2,id_aero) - pi_load_year(i,im,id_aero))
+     END DO
+
+!****************************************************************************************
+! 3) Interpolate to the model vertical grid (target grid)
+!
+!****************************************************************************************
+
+     IF (vert_interp) THEN
+
+        ! - Interpolate variable tmp1 (on source grid) to var_day (on target grid)
+        !********************************************************************************
+        ! a) calculate pression at vertical levels for the source grid using the
+        !    hybrid-sigma coordinates ap and b and the surface pressure, variables from file.
+        DO k = 1, klev_src
+           DO i = 1, klon
+              pplay_src(i,k)= pt_ap(k) + pt_b(k)*psurf_day(i)
+           END DO
+        END DO
+        
+        IF (debug) THEN
+           CALL writefield_phy('psurf_day_src',psurf_day(:),1)
+           CALL writefield_phy('pplay_src',pplay_src(:,:),klev_src)
+           CALL writefield_phy('pplay',pplay(:,:),klev)
+           CALL writefield_phy('day_src',tmp1,klev_src)
+           CALL writefield_phy('pi_day_src',tmp2,klev_src)
+        END IF
+
+        ! b) vertical interpolation on pressure leveles
+        CALL pres2lev(tmp1(:,:), var_day(:,:,id_aero), klev_src, klev, pplay_src, pplay, &
+             1, klon, .FALSE.)
+        
+        IF (debug) CALL writefield_phy('day_tgt',var_day(:,:,id_aero),klev)
+        
+        ! c) adjust to conserve total aerosol mass load in the vertical pillar
+        !    Calculate the load in the actual pillar and compare with the load
+        !    read from aerosol file.
+        
+        ! Find the pressure difference in each model layer
+        DO k = 1, klev
+           DO i = 1, klon
+              delp(i,k) = paprs(i,k) - paprs (i,k+1)
+           END DO
+        END DO
+
+        ! Find the mass load in the actual pillar, on target grid
+        load_tgt(:) = 0.
+        DO k= 1, klev
+           DO i = 1, klon
+              zrho = pplay(i,k)/t_seri(i,k)/RD       ! [kg/m3]
+              volm = var_day(i,k,id_aero)*1.E-9/zrho ! [kg/kg]
+              load_tgt(i) = load_tgt(i) + 1/RG * volm *delp(i,k)
+           END DO
+        END DO
+        
+        ! Adjust, uniform
+        DO k = 1, klev
+           DO i = 1, klon
+              var_day(i,k,id_aero) = var_day(i,k,id_aero)*load_src(i)/load_tgt(i) 
+           END DO
+        END DO
+        
+        IF (debug) THEN
+           load_tgt_test(:) = 0.
+           DO k= 1, klev
+              DO i = 1, klon
+                 zrho = pplay(i,k)/t_seri(i,k)/RD       ! [kg/m3]
+                 volm = var_day(i,k,id_aero)*1.E-9/zrho ! [kg/kg]
+                 load_tgt_test(i) = load_tgt_test(i) + 1/RG * volm*delp(i,k)
+              END DO
+           END DO
+           
+           CALL writefield_phy('day_tgt2',var_day(:,:,id_aero),klev)
+           CALL writefield_phy('load_tgt',load_tgt(:),1)
+           CALL writefield_phy('load_tgt_test',load_tgt_test(:),1)
+           CALL writefield_phy('load_src',load_src(:),1)
+        END IF
+
+        ! - Interpolate variable tmp2 (source grid) to pi_var_day (target grid)
+        !********************************************************************************
+        ! a) calculate pression at vertical levels at source grid    
+        DO k = 1, klev_src
+           DO i = 1, klon
+              pplay_src(i,k)= pt_ap(k) + pt_b(k)*pi_psurf_day(i)
+           END DO
+        END DO
+
+        IF (debug) THEN
+           CALL writefield_phy('pi_psurf_day_src',pi_psurf_day(:),1)
+           CALL writefield_phy('pi_pplay_src',pplay_src(:,:),klev_src)
+        END IF
+
+        ! b) vertical interpolation on pressure leveles
+        CALL pres2lev(tmp2(:,:), pi_var_day(:,:,id_aero), klev_src, klev, pplay_src, pplay, &
+             1, klon, .FALSE.)
+
+        IF (debug) CALL writefield_phy('pi_day_tgt',pi_var_day(:,:,id_aero),klev)
+
+        ! c) adjust to conserve total aerosol mass load in the vertical pillar
+        !    Calculate the load in the actual pillar and compare with the load
+        !    read from aerosol file.
+
+        ! Find the load in the actual pillar, on target grid
+        load_tgt(:) = 0.
+        DO k = 1, klev
+           DO i = 1, klon
+              zrho = pplay(i,k)/t_seri(i,k)/RD          ! [kg/m3]
+              volm = pi_var_day(i,k,id_aero)*1.E-9/zrho ! [kg/kg]
+              load_tgt(i) = load_tgt(i) + 1/RG * volm * delp(i,k)
+           END DO
+        END DO
+
+        DO k = 1, klev
+           DO i = 1, klon
+              pi_var_day(i,k,id_aero) = pi_var_day(i,k,id_aero)*pi_load_src(i)/load_tgt(i)
+           END DO
+        END DO
+
+        IF (debug) THEN
+           load_tgt_test(:) = 0.
+           DO k = 1, klev
+              DO i = 1, klon
+                 zrho = pplay(i,k)/t_seri(i,k)/RD          ! [kg/m3]
+                 volm = pi_var_day(i,k,id_aero)*1.E-9/zrho ! [kg/kg]
+                 load_tgt_test(i) = load_tgt_test(i) + 1/RG * volm * delp(i,k)
+              END DO
+           END DO
+           CALL writefield_phy('pi_day_tgt2',pi_var_day(:,:,id_aero),klev)
+           CALL writefield_phy('pi_load_tgt',load_tgt(:),1)
+           CALL writefield_phy('pi_load_tgt_test',load_tgt_test(:),1)
+           CALL writefield_phy('pi_load_src',pi_load_src(:),1)
+        END IF
+
+
+     ELSE   ! No vertical interpolation done
+
+        var_day(:,:,id_aero)    = tmp1(:,:)
+        pi_var_day(:,:,id_aero) = tmp2(:,:)
+
+     END IF ! vert_interp
+
+
+     ! Deallocation
+     DEALLOCATE(tmp1, tmp2, pplay_src, stat=ierr)
+
+!****************************************************************************************
+! 4) Test for negative mass values
+!
+!****************************************************************************************
+     IF (MINVAL(var_day(:,:,id_aero)) < 0.) THEN
+        DO k=1,klev
+           DO i=1,klon 
+              ! Test for var_day
+              IF (var_day(i,k,id_aero) < 0.) THEN
+                 IF (jDay-day2 < 0.) WRITE(lunout,*) 'jDay-day2=',jDay-day2
+                 IF (var_year(i,k,im2,id_aero) - var_year(i,k,im,id_aero) < 0.) THEN
+                    WRITE(lunout,*) trim(name_aero(id_aero)),'(i,k,im2)-', &
+                         trim(name_aero(id_aero)),'(i,k,im)=',           &
+                         var_year(i,k,im2,id_aero) - var_year(i,k,im,id_aero)
+                 END IF
+                 WRITE(lunout,*) 'stop for aerosol : ',name_aero(id_aero)
+                 WRITE(lunout,*) 'day1, day2, jDay = ', day1, day2, jDay 
+                 CALL abort_physic('readaerosol_interp','Error in interpolation 1',1)
+              END IF
+           END DO 
+        END DO
+     END IF
+
+     IF (MINVAL(pi_var_day(:,:,id_aero)) < 0. ) THEN
+        DO k=1, klev
+           DO i=1,klon
+              ! Test for pi_var_day
+              IF (pi_var_day(i,k,id_aero) < 0.) THEN
+                 IF (jDay-day2 < 0.) WRITE(lunout,*) 'jDay-day2=',jDay-day2
+                 IF (pi_var_year(i,k,im2,id_aero) - pi_var_year(i,k,im,id_aero) < 0.) THEN
+                    WRITE(lunout,*) trim(name_aero(id_aero)),'(i,k,im2)-', &
+                         trim(name_aero(id_aero)),'(i,k,im)=',           &
+                         pi_var_year(i,k,im2,id_aero) - pi_var_year(i,k,im,id_aero)
+                 END IF
+                 
+                 WRITE(lunout,*) 'stop for aerosol : ',name_aero(id_aero)
+                 CALL abort_physic('readaerosol_interp','Error in interpolation 2',1)
+              END IF
+           END DO
+        END DO
+     END IF
+
+  END IF ! lnewday
+
+!****************************************************************************************
+! Copy output from saved variables
+!
+!****************************************************************************************
+
+  mass_out(:,:)    = var_day(:,:,id_aero) 
+  pi_mass_out(:,:) = pi_var_day(:,:,id_aero)
+  
+END SUBROUTINE readaerosol_interp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol_optic.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol_optic.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosol_optic.F90	(revision 3330)
@@ -0,0 +1,233 @@
+! $Id$
+!
+SUBROUTINE readaerosol_optic(debut, new_aod, flag_aerosol, itap, rjourvrai, &
+     pdtphys, pplay, paprs, t_seri, rhcl, presnivs, &
+     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
+!
+  
+  USE dimphy
+  USE aero_mod
+  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
+
+! Input arguments
+!****************************************************************************************
+  LOGICAL, INTENT(IN)                      :: debut
+  LOGICAL, INTENT(IN)                      :: new_aod
+  INTEGER, INTENT(IN)                      :: flag_aerosol
+  INTEGER, INTENT(IN)                      :: itap
+  REAL, INTENT(IN)                         :: rjourvrai
+  REAL, INTENT(IN)                         :: pdtphys
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+  REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: t_seri
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: rhcl   ! humidite relative ciel clair
+  REAL, DIMENSION(klev), INTENT(IN)        :: presnivs
+
+! 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
+  REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(OUT) :: tau_aero    ! Aerosol optical thickness
+  REAL, DIMENSION(klon,klev,naero_grp,nbands), INTENT(OUT) :: piz_aero    ! Single scattering albedo aerosol
+  REAL, DIMENSION(klon,klev,naero_grp,nbands), 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 mini bug 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
+  REAL, DIMENSION(klon,klev)   :: bcsol_pi
+  REAL, DIMENSION(klon,klev)   :: bcins_pi
+  REAL, DIMENSION(klon,klev)   :: pomsol_pi
+  REAL, DIMENSION(klon,klev)   :: pomins_pi
+  REAL, DIMENSION(klon,klev)   :: cidust_pi
+  REAL, DIMENSION(klon,klev)   :: sscoarse_pi
+  REAL, DIMENSION(klon,klev)   :: sssupco_pi
+  REAL, DIMENSION(klon,klev)   :: ssacu_pi
+  REAL, DIMENSION(klon,klev)   :: pdel
+  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??
+
+  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_phy, 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_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
+
+!
+! 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) = 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
+  m_allaer(:,:,id_ASNO3M_phy) = 0.0
+  m_allaer(:,:,id_CSNO3M_phy) = 0.0
+  m_allaer(:,:,id_CINO3M_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)  = sulfate_pi(:,:)      ! ASSO4M (= SO4) pre-ind
+  m_allaer_pi(:,:,id_CSSO4M_phy)  = 0.                   ! CSSO4M pre-ind
+  m_allaer_pi(:,:,id_SSSSM_phy)   = sssupco_pi(:,:)      ! SSSSM pre-ind
+  m_allaer_pi(:,:,id_ASSSM_phy)   = sscoarse_pi(:,:)     ! CSSSM pre-ind
+  m_allaer_pi(:,:,id_CIDUSTM_phy) = ssacu_pi(:,:)        ! ASSSM pre-ind
+  m_allaer_pi(:,:,id_AIBCM_phy)   = cidust_pi(:,:)       ! CIDUSTM pre-ind
+  m_allaer_pi(:,:,id_AIBCM_phy)   = bcins_pi(:,:)        ! AIBCM pre-ind
+  m_allaer_pi(:,:,id_AIPOMM_phy)  = pomins_pi(:,:)       ! AIPOMM pre-ind
+  m_allaer_pi(:,:,id_ASNO3M_phy) = 0.0
+  m_allaer_pi(:,:,id_CSNO3M_phy) = 0.0
+  m_allaer_pi(:,:,id_CINO3M_phy) = 0.0
+
+!
+! Calculate the total mass of all soluble aersosols
+!
+  mass_solu_aero(:,:)    = sulfate(:,:)    + bcsol(:,:)    + pomsol(:,:) + ssacu(:,:)
+  mass_solu_aero_pi(:,:) = sulfate_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + ssacu_pi(:,:)
+
+!****************************************************************************************
+! 2) Calculate optical properties for the aerosols
+!
+!****************************************************************************************
+  DO k = 1, klev
+     DO i = 1, klon
+        pdel(i,k) = paprs(i,k) - paprs (i,k+1)
+     END DO
+  END DO
+
+  IF (new_aod) THEN 
+
+! RAF delete??     fractnat_allaer(:,:) = 0.
+! RAF fractnat_allaer -> m_allaer_pi
+
+     CALL aeropt_2bands( &
+          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(                    &
+          pdel, m_allaer,                &
+          pdtphys, rhcl, aerindex,       & 
+          flag_aerosol, pplay, t_seri,   &
+          tausum_aero, tau3d_aero, presnivs)
+  ELSE
+
+     CALL aeropt(pplay, paprs, t_seri, sulfate, rhcl, &
+          tau_aero(:,:,id_ASSO4M_phy,:), piz_aero(:,:,id_ASSO4M_phy,:), cg_aero(:,:,id_ASSO4M_phy,:), aerindex)
+     
+  END IF
+
+
+! Diagnostics calculation for CMIP5 protocol
+  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
+
+
+END SUBROUTINE readaerosol_optic
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosolstrato.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosolstrato.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readaerosolstrato.F90	(revision 3330)
@@ -0,0 +1,183 @@
+subroutine readaerosolstrato(debut)
+
+    use netcdf95, only: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
+                        nf95_inq_varid, nf95_open
+    use netcdf, only: nf90_get_var, nf90_noerr, nf90_nowrite
+
+    USE phys_cal_mod, ONLY : mth_cur
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
+                                 grid2dto1d_glo
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
+    USE mod_phys_lmdz_para 
+    USE phys_state_var_mod
+    USE phys_local_var_mod
+    USE aero_mod
+    USE dimphy
+
+    implicit none
+
+    include "YOMCST.h"
+
+! Variable input
+    logical debut
+
+! Variables locales
+    integer n_lat   ! number of latitudes in the input data
+    integer n_lon   ! number of longitudes in the input data
+    integer n_lev   ! number of levels in the input data
+    integer n_month ! number of months in the input data
+    real, pointer:: latitude(:)
+    real, pointer:: longitude(:)
+    real, pointer:: time(:)
+    real, pointer:: lev(:)
+    integer i, k, band, wave
+    integer, save :: mth_pre
+!$OMP THREADPRIVATE(mth_pre)
+
+    real, allocatable, dimension(:,:), save :: tau_aer_strat
+!$OMP THREADPRIVATE(tau_aer_strat)
+
+! Champs reconstitues
+    real, allocatable:: tauaerstrat(:, :, :, :)
+    real, allocatable:: tauaerstrat_mois(:, :, :)
+    real, allocatable:: tauaerstrat_mois_glo(:, :)
+
+! For NetCDF:
+    integer ncid_in  ! IDs for input files
+    integer varid, ncerr
+
+! 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) :: alpha_strat, piz_strat, cg_strat
+    data alpha_strat/0.9922547, 0.7114912 /
+    data piz_strat  /0.9999998, 0.99762493/
+    data cg_strat   /0.73107845,0.73229635/
+    real, dimension(nwave_sw) :: alpha_strat_wave
+    data alpha_strat_wave/3.36780953,3.34667683,3.20444202,3.0293026,2.82108808/
+
+!--------------------------------------------------------
+
+    IF (.not.ALLOCATED(tau_aer_strat)) ALLOCATE(tau_aer_strat(klon,klev))
+
+!--only read file if beginning of run or start of new month
+    IF (debut.OR.mth_cur.NE.mth_pre) THEN
+
+!--only root reads
+    IF (is_mpi_root.AND.is_omp_root) THEN
+
+    IF (nbands.NE.2) THEN 
+        print *,'nbands doit etre egal a 2 dans readaerosolstrat'
+        STOP
+    ENDIF
+
+    CALL nf95_open("taustrat.nc", nf90_nowrite, ncid_in)
+
+    CALL nf95_inq_varid(ncid_in, "LEV", varid)
+    CALL nf95_gw_var(ncid_in, varid, lev)
+    n_lev = size(lev)
+    IF (n_lev.NE.klev) THEN 
+       print *,'Le nombre de niveaux n est pas egal a klev'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "LAT", varid)
+    CALL nf95_gw_var(ncid_in, varid, latitude)
+    n_lat = size(latitude)
+    print *, 'LAT aerosol strato=', n_lat, latitude
+    IF (n_lat.NE.nbp_lat) THEN 
+       print *,'Le nombre de lat n est pas egal a nbp_lat'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "LON", varid)
+    CALL nf95_gw_var(ncid_in, varid, longitude)
+    n_lon = size(longitude)
+    print *, 'LON aerosol strato=', n_lon, longitude
+    IF (n_lon.NE.nbp_lon) THEN 
+       print *,'Le nombre de lon n est pas egal a nbp_lon'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "TIME", varid)
+    CALL nf95_gw_var(ncid_in, varid, time)
+    n_month = size(time)
+    print *, 'TIME aerosol strato=', n_month, time
+    IF (n_month.NE.12) THEN 
+       print *,'Le nombre de month n est pas egal a 12'
+       STOP
+    ENDIF
+
+    IF (.not.ALLOCATED(tauaerstrat))          ALLOCATE(tauaerstrat(n_lon, n_lat, n_lev, n_month))
+    IF (.not.ALLOCATED(tauaerstrat_mois))     ALLOCATE(tauaerstrat_mois(n_lon, n_lat, n_lev))
+    IF (.not.ALLOCATED(tauaerstrat_mois_glo)) ALLOCATE(tauaerstrat_mois_glo(klon_glo, n_lev))
+
+!--reading stratospheric AOD at 550 nm
+    CALL nf95_inq_varid(ncid_in, "TAUSTRAT", varid)
+    ncerr = nf90_get_var(ncid_in, varid, tauaerstrat)
+    print *,'code erreur readaerosolstrato=', ncerr, varid
+
+    CALL nf95_close(ncid_in)
+
+!---select the correct month
+    IF (mth_cur.LT.1.OR.mth_cur.GT.12) THEN
+      print *,'probleme avec le mois dans readaerosolstrat =', mth_cur
+    ENDIF
+    tauaerstrat_mois(:,:,:) = tauaerstrat(:,:,:,mth_cur)
+
+!---reduce to a klon_glo grid 
+    CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo)
+
+    ENDIF !--is_mpi_root and is_omp_root
+
+!$OMP BARRIER
+
+!--scatter on all proc
+    CALL scatter(tauaerstrat_mois_glo,tau_aer_strat)
+
+!--keep memory of previous month
+    mth_pre=mth_cur
+!
+    IF (is_mpi_root.AND.is_omp_root) THEN
+!
+    DEALLOCATE(tauaerstrat)
+    DEALLOCATE(tauaerstrat_mois)
+    DEALLOCATE(tauaerstrat_mois_glo)
+!
+    ENDIF !-is_mpi_root and is_omp_root
+
+!$OMP BARRIER
+
+    ENDIF !--debut ou nouveau mois
+
+!--total vertical aod at the 6 wavelengths
+    DO wave=1, nwave_sw
+    DO k=1, klev
+    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
+
+!--weighted average for cg, piz and tau, adding strat aerosols on top of tropospheric ones
+    DO band=1, nbands
+!--anthropogenic aerosols bands 1 and 2
+    cg_aero(:,:,3,band)  = ( cg_aero(:,:,3,band)*piz_aero(:,:,3,band)*tau_aero(:,:,3,band) +          &
+                             cg_strat(band)*piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /  &
+                             MAX( piz_aero(:,:,3,band)*tau_aero(:,:,3,band) +                         &
+                                  piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:), 1.e-15 )
+    piz_aero(:,:,3,band)  = ( piz_aero(:,:,3,band)*tau_aero(:,:,3,band) +                             &
+                              piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /                &
+                              MAX( tau_aero(:,:,3,band) + alpha_strat(band)*tau_aer_strat(:,:), 1.e-15 )
+    tau_aero(:,:,3,band)  = tau_aero(:,:,3,band) + alpha_strat(band)*tau_aer_strat(:,:)
+!--natural aerosols bands 1 and 2
+    cg_aero(:,:,2,band)  = ( cg_aero(:,:,2,band)*piz_aero(:,:,2,band)*tau_aero(:,:,2,band) +          &
+                             cg_strat(band)*piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /  &
+                             MAX( piz_aero(:,:,2,band)*tau_aero(:,:,2,band) +                         &
+                                  piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:), 1.e-15 )
+    piz_aero(:,:,2,band)  = ( piz_aero(:,:,2,band)*tau_aero(:,:,2,band) +                             & 
+                              piz_strat(band)*alpha_strat(band)*tau_aer_strat(:,:) ) /                &
+                              MAX( tau_aero(:,:,2,band) + alpha_strat(band)*tau_aer_strat(:,:),1.e-15 )
+    tau_aero(:,:,2,band)  = tau_aero(:,:,2,band) + alpha_strat(band)*tau_aer_strat(:,:)
+    ENDDO
+
+end subroutine readaerosolstrato
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readchlorophyll.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readchlorophyll.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/readchlorophyll.F90	(revision 3330)
@@ -0,0 +1,131 @@
+!
+! $Id$
+!
+
+subroutine readchlorophyll(debut)
+
+    use netcdf95, only: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
+                        nf95_inq_varid, nf95_open
+    use netcdf, only: nf90_get_var, nf90_noerr, nf90_nowrite
+
+    USE phys_cal_mod, ONLY : mth_cur
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
+                                 grid2dto1d_glo
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    USE mod_phys_lmdz_para, ONLY: scatter 
+    USE phys_state_var_mod, ONLY: chl_con
+
+    implicit none
+
+    include "YOMCST.h"
+
+! Variable input
+    logical debut
+
+! Variables locales
+    integer n_lat   ! number of latitudes in the input data
+    integer n_lon   ! number of longitudes in the input data
+    integer n_lev   ! number of levels in the input data
+    integer n_month ! number of months in the input data
+    real, pointer:: latitude(:)
+    real, pointer:: longitude(:)
+    real, pointer:: time(:)
+    integer i, k
+    integer, save :: mth_pre
+!$OMP THREADPRIVATE(mth_pre)
+
+! Champs reconstitues
+    real, allocatable:: chlorocon(:, :, :)
+    real, allocatable:: chlorocon_mois(:, :)
+    real, allocatable:: chlorocon_mois_glo(:)
+
+! For NetCDF:
+    integer ncid_in  ! IDs for input files
+    integer varid, ncerr
+
+
+!--------------------------------------------------------
+
+
+!--only read file if beginning of run or start of new month
+    IF (debut.OR.mth_cur.NE.mth_pre) THEN
+
+    IF (is_mpi_root) THEN
+
+
+    CALL nf95_open("chlorophyll.nc", nf90_nowrite, ncid_in)
+
+    CALL nf95_inq_varid(ncid_in, "lon", varid)
+    CALL nf95_gw_var(ncid_in, varid, longitude)
+    n_lon = size(longitude)
+!    print *, 'LON chlorophyll=', n_lon, longitude
+    IF (n_lon.NE.nbp_lon) THEN
+       print *,'Le nombre de lon n est pas egal a nbp_lon'
+       STOP
+    ENDIF
+
+
+    CALL nf95_inq_varid(ncid_in, "lat", varid)
+    CALL nf95_gw_var(ncid_in, varid, latitude)
+    n_lat = size(latitude)
+!    print *, 'LAT chlorophyll=', n_lat, latitude
+    IF (n_lat.NE.nbp_lat) THEN 
+       print *,'Le nombre de lat n est pas egal a jnbp_lat'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "time", varid)
+    CALL nf95_gw_var(ncid_in, varid, time)
+    n_month = size(time)
+!    print *, 'TIME aerosol strato=', n_month, time
+    IF (n_month.NE.12) THEN 
+       print *,'Le nombre de month n est pas egal a 12'
+       STOP
+    ENDIF
+
+    IF (.not.ALLOCATED(chlorocon))          ALLOCATE(chlorocon(n_lon, n_lat, n_month))
+    IF (.not.ALLOCATED(chlorocon_mois))     ALLOCATE(chlorocon_mois(n_lon, n_lat))
+    IF (.not.ALLOCATED(chlorocon_mois_glo)) ALLOCATE(chlorocon_mois_glo(klon_glo))
+
+!--reading stratospheric AOD at 550 nm
+    CALL nf95_inq_varid(ncid_in, "CHL", varid)
+    ncerr = nf90_get_var(ncid_in, varid, chlorocon)
+    print *,'code erreur readchlorophyll=', ncerr, varid
+
+    CALL nf95_close(ncid_in)
+
+!---select the correct month
+    IF (mth_cur.LT.1.OR.mth_cur.GT.12) THEN
+      print *,'probleme avec le mois dans readchlorophyll =', mth_cur
+    ENDIF
+    chlorocon_mois(:,:) = chlorocon(:,:,mth_cur)
+
+!---reduce to a klon_glo grid 
+    CALL grid2dTo1d_glo(chlorocon_mois,chlorocon_mois_glo)
+
+
+    print*,"chrolophyll current month",mth_cur
+    do i=1,klon_glo
+!      if(isnan(chlorocon_mois_glo(i)))then ! isnan() is not in the Fortran standard...
+!      Another way to check for NaN:
+       if(chlorocon_mois_glo(i).ne.chlorocon_mois_glo(i)) then
+         chlorocon_mois_glo(i)=0.
+      endif
+      !print*,"high chl con",i,chlorocon_mois_glo(i)
+    enddo
+
+!    DEALLOCATE(chlorocon)
+!    DEALLOCATE(chlorocon_mois)
+!    DEALLOCATE(chlorocon_mois_glo)
+  
+    ENDIF !--is_mpi_root
+
+!--scatter on all proc
+    CALL scatter(chlorocon_mois_glo,chl_con)
+
+!--keep memory of previous month
+    mth_pre=mth_cur
+
+    ENDIF !--debut ou nouveau mois
+
+end subroutine readchlorophyll
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regdim.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regdim.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regdim.h	(revision 3330)
@@ -0,0 +1,17 @@
+!
+! $Header$
+!
+!     Valid and equivalent for either free source form or fixed source form
+      INTEGER i1_deb, i1_fin
+      INTEGER i2_deb, i2_fin
+!cc      PARAMETER (i1_deb=21, i1_fin=40)
+!cc      PARAMETER (i2_deb=41, i2_fin=44)
+!ccc      PARAMETER (i1_deb=47, i1_fin=77)
+!ccc      PARAMETER (i2_deb=78, i2_fin=79)
+      PARAMETER (i1_deb=16, i1_fin=30)
+      PARAMETER (i2_deb=31, i2_fin=33)
+!
+      INTEGER j_deb, j_fin
+!cc      PARAMETER (j_deb=29, j_fin=61)
+!ccc      PARAMETER (j_deb=21, j_fin=51)
+      PARAMETER (j_deb=18, j_fin=39)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_lat_time_climoz_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_lat_time_climoz_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_lat_time_climoz_m.F90	(revision 3330)
@@ -0,0 +1,450 @@
+! $Id$
+module regr_lat_time_climoz_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+  private
+  public regr_lat_time_climoz
+
+contains
+
+  subroutine regr_lat_time_climoz(read_climoz)
+
+    ! "regr_lat_time_climoz" stands for "regrid latitude time
+    ! climatology ozone".
+
+    ! This procedure reads a climatology of ozone from a NetCDF file,
+    ! regrids it in latitude and time, and writes the regridded field
+    ! to a new NetCDF file.
+
+    ! The input field depends on time, pressure level and latitude.
+
+    ! If the input field has missing values, they must be signaled by
+    ! the "missing_value" attribute.
+
+    ! We assume that the input field is a step function of latitude
+    ! and that the input latitude coordinate gives the centers of steps.
+    ! Regridding in latitude is made by averaging, with a cosine of
+    ! latitude factor.
+    ! The target LMDZ latitude grid is the "scalar" grid: "rlatu".
+    ! The values of "rlatu" are taken to be the centers of intervals.
+
+    ! We assume that in the input file:
+
+    ! -- Latitude is in degrees.
+
+    ! -- Latitude and pressure are strictly monotonic (as all NetCDF
+    ! coordinate variables should be).
+
+    ! -- The time coordinate is in ascending order (even though we do
+    ! not use its values).
+    ! The input file may contain either values for 12 months or values
+    ! for 14 months.
+    ! If there are 14 months then we assume that we have (in that order):
+    ! December, January, February, ..., November, December, January
+
+    ! -- Missing values are contiguous, at the bottom of
+    ! the vertical domain and at the latitudinal boundaries.
+
+    ! If values are all missing at a given latitude and date, then we
+    ! replace those missing values by values at the closest latitude,
+    ! equatorward, with valid values.
+    ! Then, at each latitude and each date, the missing values are replaced
+    ! by the lowest valid value above missing values.
+
+    ! Regridding in time is by linear interpolation.
+    ! Monthly values are processed to get daily values, on the basis
+    ! of a 360-day calendar.
+    ! If there are 14 months, we use the first December value to
+    ! interpolate values between January 1st and mid-January.
+    ! We use the last January value to interpolate values between
+    ! mid-December and end of December.
+    ! If there are only 12 months in the input file then we assume
+    ! periodicity for interpolation at the beginning and at the end of the
+    ! year.
+
+    use mod_grid_phy_lmdz, ONLY : nbp_lat
+    use regr1_conserv_m, only: regr1_conserv
+    use regr3_lint_m, only: regr3_lint
+    use netcdf95, only: handle_err, nf95_close, nf95_get_att, nf95_gw_var, &
+         nf95_inq_dimid, nf95_inq_varid, nf95_inquire_dimension, nf95_open, &
+         nf95_put_var
+    use netcdf, only: nf90_get_att, nf90_get_var, nf90_noerr, nf90_nowrite
+    use assert_m, only: assert
+    use regular_lonlat_mod, only : boundslat_reg, south
+    use nrtype, only: pi
+    use slopes_m, only: slopes
+
+    integer, intent(in):: read_climoz ! read ozone climatology
+    ! Allowed values are 1 and 2
+    ! 1: read a single ozone climatology that will be used day and night
+    ! 2: read two ozone climatologies, the average day and night
+    ! climatology and the daylight climatology
+
+    ! Variables local to the procedure:
+
+    integer n_plev ! number of pressure levels in the input data
+    integer n_lat ! number of latitudes in the input data
+    integer n_month ! number of months in the input data
+
+    real, pointer:: latitude(:)
+    ! (of input data, converted to rad, sorted in strictly ascending order)
+
+    real, allocatable:: sin_lat_in_edg(:)
+    ! (sine of edges of latitude intervals for input data, in rad, in strictly
+    ! ascending order)
+
+    real, pointer:: plev(:)
+    ! pressure levels of input data, sorted in strictly ascending
+    ! order, converted to hPa
+
+    logical desc_lat ! latitude in descending order in the input file
+    logical desc_plev ! pressure levels in descending order in the input file
+
+    real, allocatable:: o3_in(:, :, :, :)
+    ! (n_lat, n_plev, n_month, read_climoz)
+    ! ozone climatologies from the input file
+    ! "o3_in(j, k, :, :)" is at latitude "latitude(j)" and pressure
+    ! level "plev(k)".
+    ! Third dimension is month index, first value may be December or January.
+    ! "o3_in(:, :, :, 1)" is for the day- night average, "o3_in(:, :, :, 2)"
+    ! is for daylight.
+
+    real missing_value
+
+    real, allocatable:: o3_regr_lat(:, :, :, :)
+    ! (nbp_lat, n_plev, 0:13, read_climoz)
+    ! mean of "o3_in" over a latitude interval of LMDZ
+    ! First dimension is latitude interval.
+    ! The latitude interval for "o3_regr_lat(j,:, :, :)" contains "rlatu(j)".
+    ! If "j" is between 2 and "nbp_lat - 1" then the interval is:
+    ! [rlatv(j), rlatv(j-1)]
+    ! If "j" is 1 or "nbp_lat" then the interval is:
+    ! [rlatv(1), pi / 2]
+    ! or:
+    ! [- pi / 2, rlatv(nbp_lat - 1)]
+    ! respectively.
+    ! "o3_regr_lat(:, k, :, :)" is for pressure level "plev(k)".
+    ! Third dimension is month number, 1 for January.
+    ! "o3_regr_lat(:, :, :, 1)" is average day and night,
+    ! "o3_regr_lat(:, :, :, 2)" is for daylight.
+
+    real, allocatable:: o3_out(:, :, :, :)
+    ! (nbp_lat, n_plev, 360, read_climoz)
+    ! regridded ozone climatology
+    ! "o3_out(j, k, l, :)" is at latitude "rlatu(j)", pressure
+    ! level "plev(k)" and date "January 1st 0h" + "tmidday(l)", in a
+    ! 360-day calendar.
+    ! "o3_out(:, :, :, 1)" is average day and night,
+    ! "o3_out(:, :, :, 2)" is for daylight.
+
+    integer j, k, l,m
+
+    ! For NetCDF:
+    integer ncid_in, ncid_out ! IDs for input and output files
+    integer varid_plev, varid_time, varid, ncerr, dimid
+    character(len=80) press_unit ! pressure unit
+
+    integer varid_in(read_climoz), varid_out(read_climoz)
+    ! index 1 is for average ozone day and night, index 2 is for
+    ! daylight ozone.
+
+    real, parameter:: tmidmonth(0:13) = (/(-15. + 30. * l, l = 0, 13)/)
+    ! (time to middle of month, in days since January 1st 0h, in a
+    ! 360-day calendar)
+    ! (We add values -15 and 375 so that, for example, day 3 of the year is
+    ! interpolated between the December and the January value.)
+
+    real, parameter:: tmidday(360) = (/(l + 0.5, l = 0, 359)/)
+    ! (time to middle of day, in days since January 1st 0h, in a
+    ! 360-day calendar)
+
+    !---------------------------------
+
+    print *, "Call sequence information: regr_lat_time_climoz"
+    call assert(read_climoz == 1 .or. read_climoz == 2, "regr_lat_time_climoz")
+
+    call nf95_open("climoz.nc", nf90_nowrite, ncid_in)
+
+    ! Get coordinates from the input file:
+
+    call nf95_inq_varid(ncid_in, "latitude", varid)
+    call nf95_gw_var(ncid_in, varid, latitude)
+    ! Convert from degrees to rad, because we will take the sine of latitude:
+    latitude = latitude / 180. * pi
+    n_lat = size(latitude)
+    ! We need to supply the latitudes to "regr1_conserv" in
+    ! ascending order, so invert order if necessary:
+    desc_lat = latitude(1) > latitude(n_lat)
+    if (desc_lat) latitude = latitude(n_lat:1:-1)
+
+    ! Compute edges of latitude intervals:
+    allocate(sin_lat_in_edg(n_lat + 1))
+    sin_lat_in_edg(1) = - 1.
+    forall (j = 2:n_lat) sin_lat_in_edg(j) = sin((latitude(j - 1) &
+         + latitude(j)) / 2.)
+    sin_lat_in_edg(n_lat + 1) = 1.
+    deallocate(latitude) ! pointer
+
+    call nf95_inq_varid(ncid_in, "plev", varid)
+    call nf95_gw_var(ncid_in, varid, plev)
+    n_plev = size(plev)
+    ! We only need the pressure coordinate to copy it to the output file.
+    ! The program "gcm" will assume that pressure levels are in
+    ! ascending order in the regridded climatology so invert order if
+    ! necessary:
+    desc_plev = plev(1) > plev(n_plev)
+    if (desc_plev) plev = plev(n_plev:1:-1)
+    call nf95_get_att(ncid_in, varid, "units", press_unit)
+    if (press_unit == "Pa") then
+       ! Convert to hPa:
+       plev = plev / 100.
+    elseif (press_unit /= "hPa") then
+       print *, "regr_lat_time_climoz: the only recognized units are Pa " &
+            // "and hPa."
+       stop 1
+    end if
+
+    ! Create the output file and get the variable IDs:
+    call prepare_out(ncid_in, n_plev, ncid_out, varid_out, varid_plev, &
+         varid_time)
+
+    ! Write remaining coordinate variables:
+    call nf95_put_var(ncid_out, varid_plev, plev)
+    call nf95_put_var(ncid_out, varid_time, tmidday)
+
+    deallocate(plev) ! pointer
+
+    ! Get the  number of months:
+    call nf95_inq_dimid(ncid_in, "time", dimid)
+    call nf95_inquire_dimension(ncid_in, dimid, nclen=n_month)
+
+    allocate(o3_in(n_lat, n_plev, n_month, read_climoz))
+
+    call nf95_inq_varid(ncid_in, "tro3", varid_in(1))
+    ncerr = nf90_get_var(ncid_in, varid_in(1), o3_in(:, :, :, 1))
+    call handle_err("regr_lat_time_climoz nf90_get_var tro3", ncerr, ncid_in)
+
+    if (read_climoz == 2) then
+       call nf95_inq_varid(ncid_in, "tro3_daylight", varid_in(2))
+       ncerr = nf90_get_var(ncid_in, varid_in(2), o3_in(:, :, :, 2))
+       call handle_err("regr_lat_time_climoz nf90_get_var tro3_daylight", &
+            ncerr, ncid_in, varid_in(2))
+    end if
+
+    if (desc_lat) o3_in = o3_in(n_lat:1:-1, :, :, :)
+    if (desc_plev) o3_in = o3_in(:, n_plev:1:-1, :, :)
+
+    do m = 1, read_climoz
+       ncerr = nf90_get_att(ncid_in, varid_in(m), "missing_value", &
+            missing_value)
+       if (ncerr == nf90_noerr) then
+          do l = 1, n_month
+             ! Take care of latitudes where values are all missing:
+
+             ! Next to the south pole:
+             j = 1
+             do while (o3_in(j, 1, l, m) == missing_value)
+                j = j + 1
+             end do
+             if (j > 1) o3_in(:j-1, :, l, m) = &
+                  spread(o3_in(j, :, l, m), dim=1, ncopies=j-1)
+             
+             ! Next to the north pole:
+             j = n_lat
+             do while (o3_in(j, 1, l, m) == missing_value)
+                j = j - 1
+             end do
+             if (j < n_lat) o3_in(j+1:, :, l, m) = &
+                  spread(o3_in(j, :, l, m), dim=1, ncopies=n_lat-j)
+
+             ! Take care of missing values at high pressure:
+             do j = 1, n_lat
+                ! Find missing values, starting from top of atmosphere
+                ! and going down.
+                ! We have already taken care of latitudes full of
+                ! missing values so the highest level has a valid value.
+                k = 2
+                do while  (o3_in(j, k, l, m) /= missing_value .and. k < n_plev)
+                   k = k + 1
+                end do
+                ! Replace missing values with the valid value at the
+                ! lowest level above missing values:
+                if (o3_in(j, k, l, m) == missing_value) &
+                     o3_in(j, k:n_plev, l, m) = o3_in(j, k-1, l, m)
+             end do
+          end do
+       else
+          print *, "regr_lat_time_climoz: field ", m, &
+               ", no missing value attribute"
+       end if
+    end do
+
+    call nf95_close(ncid_in)
+
+    allocate(o3_regr_lat(nbp_lat, n_plev, 0:13, read_climoz))
+    allocate(o3_out(nbp_lat, n_plev, 360, read_climoz))
+
+    ! Regrid in latitude:
+    ! We average with respect to sine of latitude, which is
+    ! equivalent to weighting by cosine of latitude:
+    if (n_month == 12) then
+       print *, &
+            "Found 12 months in ozone climatologies, assuming periodicity..."
+       call regr1_conserv(o3_in, xs = sin_lat_in_edg, &
+            xt = (/- 1., sin(boundslat_reg(nbp_lat - 1:1:- 1, south)), 1./), &
+            vt = o3_regr_lat(nbp_lat:1:- 1, :, 1:12, :), &
+            slope = slopes(o3_in, sin_lat_in_edg))
+       ! (invert order of indices in "o3_regr_lat" because "rlatu" is
+       ! in descending order)
+
+       ! Duplicate January and December values, in preparation of time
+       ! interpolation:
+       o3_regr_lat(:, :, 0, :) = o3_regr_lat(:, :, 12, :)
+       o3_regr_lat(:, :, 13, :) = o3_regr_lat(:, :, 1, :)
+    else
+       print *, "Using 14 months in ozone climatologies..."
+       call regr1_conserv(o3_in, xs = sin_lat_in_edg, &
+            xt = (/- 1., sin(boundslat_reg(nbp_lat - 1:1:- 1, south)), 1./), &
+            vt = o3_regr_lat(nbp_lat:1:- 1, :, :, :), &
+            slope = slopes(o3_in, sin_lat_in_edg))
+       ! (invert order of indices in "o3_regr_lat" because "rlatu" is
+       ! in descending order)
+    end if
+
+    ! Regrid in time by linear interpolation:
+    o3_out = regr3_lint(o3_regr_lat, tmidmonth, tmidday)
+
+    ! Write to file:
+    do m = 1, read_climoz
+       call nf95_put_var(ncid_out, varid_out(m), o3_out(nbp_lat:1:-1, :, :, m))
+       ! (The order of "rlatu" is inverted in the output file)
+    end do
+
+    call nf95_close(ncid_out)
+
+  end subroutine regr_lat_time_climoz
+
+  !********************************************
+
+  subroutine prepare_out(ncid_in, n_plev, ncid_out, varid_out, varid_plev, &
+       varid_time)
+
+    ! This subroutine creates the NetCDF output file, defines
+    ! dimensions and variables, and writes one of the coordinate variables.
+
+    use mod_grid_phy_lmdz, ONLY : nbp_lat
+    use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &
+         nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var
+    use netcdf, only: nf90_clobber, nf90_float, nf90_global
+    use nrtype, only: pi
+    use regular_lonlat_mod, only : lat_reg
+
+    integer, intent(in):: ncid_in, n_plev
+    integer, intent(out):: ncid_out, varid_plev, varid_time
+
+    integer, intent(out):: varid_out(:) ! dim(1 or 2)
+    ! "varid_out(1)" is for average ozone day and night,
+    ! "varid_out(2)" is for daylight ozone.
+
+    ! Variables local to the procedure:
+
+    integer ncerr
+    integer dimid_rlatu, dimid_plev, dimid_time
+    integer varid_rlatu
+
+    !---------------------------
+
+    print *, "Call sequence information: prepare_out"
+
+    call nf95_create("climoz_LMDZ.nc", nf90_clobber, ncid_out)
+
+    ! Dimensions:
+    call nf95_def_dim(ncid_out, "time", 360, dimid_time)
+    call nf95_def_dim(ncid_out, "plev", n_plev, dimid_plev)
+    call nf95_def_dim(ncid_out, "rlatu", nbp_lat, dimid_rlatu)
+
+    ! Define coordinate variables:
+
+    call nf95_def_var(ncid_out, "time", nf90_float, dimid_time, varid_time)
+    call nf95_put_att(ncid_out, varid_time, "units", "days since 2000-1-1")
+    call nf95_put_att(ncid_out, varid_time, "calendar", "360_day")
+    call nf95_put_att(ncid_out, varid_time, "standard_name", "time")
+
+    call nf95_def_var(ncid_out, "plev", nf90_float, dimid_plev, varid_plev)
+    call nf95_put_att(ncid_out, varid_plev, "units", "millibar")
+    call nf95_put_att(ncid_out, varid_plev, "standard_name", "air_pressure")
+    call nf95_put_att(ncid_out, varid_plev, "long_name", "air pressure")
+
+    call nf95_def_var(ncid_out, "rlatu", nf90_float, dimid_rlatu, varid_rlatu)
+    call nf95_put_att(ncid_out, varid_rlatu, "units", "degrees_north")
+    call nf95_put_att(ncid_out, varid_rlatu, "standard_name", "latitude")
+
+    ! Define the primary variables:
+
+    call nf95_def_var(ncid_out, "tro3", nf90_float, &
+         (/dimid_rlatu, dimid_plev, dimid_time/), varid_out(1))
+    call nf95_put_att(ncid_out, varid_out(1), "long_name", &
+         "ozone mole fraction")
+    call nf95_put_att(ncid_out, varid_out(1), "standard_name", &
+         "mole_fraction_of_ozone_in_air")
+
+    if (size(varid_out) == 2) then
+       call nf95_def_var(ncid_out, "tro3_daylight", nf90_float, &
+            (/dimid_rlatu, dimid_plev, dimid_time/), varid_out(2))
+       call nf95_put_att(ncid_out, varid_out(2), "long_name", &
+            "ozone mole fraction in daylight")
+    end if
+
+    ! Global attributes:
+
+    ! The following commands, copying attributes, may fail.
+    ! That is OK.
+    ! It should just mean that the attribute is not defined in the input file.
+
+    call nf95_copy_att(ncid_in, nf90_global, "Conventions", ncid_out, &
+         nf90_global, ncerr)
+    call handle_err_copy_att("Conventions")
+
+    call nf95_copy_att(ncid_in, nf90_global, "title", ncid_out, nf90_global, &
+         ncerr)
+    call handle_err_copy_att("title")
+
+    call nf95_copy_att(ncid_in, nf90_global, "institution", ncid_out, &
+         nf90_global, ncerr)
+    call handle_err_copy_att("institution")
+
+    call nf95_copy_att(ncid_in, nf90_global, "source", ncid_out, nf90_global, &
+         ncerr)
+    call handle_err_copy_att("source")
+
+    call nf95_put_att(ncid_out, nf90_global, "comment", "Regridded for LMDZ")
+
+    call nf95_enddef(ncid_out)
+
+    ! Write one of the coordinate variables:
+    call nf95_put_var(ncid_out, varid_rlatu, lat_reg(nbp_lat:1:-1) / pi * 180.)
+    ! (convert from rad to degrees and sort in ascending order)
+
+  contains
+
+    subroutine handle_err_copy_att(att_name)
+
+      use netcdf, only: nf90_noerr, nf90_strerror
+
+      character(len=*), intent(in):: att_name
+
+      !----------------------------------------
+
+      if (ncerr /= nf90_noerr) then
+         print *, "regr_lat_time_climoz_m prepare_out nf95_copy_att " &
+              // att_name // " -- " // trim(nf90_strerror(ncerr))
+      end if
+
+    end subroutine handle_err_copy_att
+
+  end subroutine prepare_out
+
+end module regr_lat_time_climoz_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_lat_time_coefoz_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_lat_time_coefoz_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_lat_time_coefoz_m.F90	(revision 3330)
@@ -0,0 +1,348 @@
+! $Id$
+module regr_lat_time_coefoz_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+  private
+  public regr_lat_time_coefoz
+
+contains
+
+  subroutine regr_lat_time_coefoz
+
+    ! "regr_lat_time_coefoz" stands for "regrid latitude time
+    ! coefficients ozone".
+
+    ! This procedure reads from a NetCDF file coefficients for ozone
+    ! chemistry, regrids them in latitude and time, and writes the
+    ! regridded fields to a new NetCDF file.
+
+    ! The input fields depend on time, pressure level and latitude.
+    ! We assume that the input fields are step functions of latitude.
+    ! Regridding in latitude is made by averaging, with a cosine of
+    ! latitude factor.
+    ! The target LMDZ latitude grid is the "scalar" grid: "rlatu".
+    ! The values of "rlatu" are taken to be the centers of intervals.
+    ! Regridding in time is by linear interpolation.
+    ! Monthly values are processed to get daily values, on the basis
+    ! of a 360-day calendar.
+
+    ! We assume that in the input file:
+    ! -- the latitude is in degrees and strictly monotonic (as all
+    ! NetCDF coordinate variables should be);
+    ! -- time increases from January to December (even though we do
+    ! not use values of the input time coordinate);
+    ! -- pressure is in hPa and in strictly ascending order (even
+    ! though we do not use pressure values here, we write the unit of
+    ! pressure in the NetCDF header, and we will use the assumptions later,
+    ! when we regrid in pressure).
+
+    use mod_grid_phy_lmdz, ONLY : nbp_lat
+    use regr1_conserv_m, only: regr1_conserv
+    use regr3_lint_m, only: regr3_lint
+    use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err, &
+         nf95_put_var, nf95_gw_var
+    use netcdf, only: nf90_nowrite, nf90_get_var
+    use nrtype, only: pi
+    use regular_lonlat_mod, only: boundslat_reg, south
+
+    ! Variables local to the procedure:
+
+    integer ncid_in, ncid_out ! NetCDF IDs for input and output files
+    integer n_plev ! number of pressure levels in the input data
+    integer n_lat! number of latitudes in the input data
+
+    real, pointer:: latitude(:)
+    ! (of input data, converted to rad, sorted in strictly ascending order)
+
+    real, allocatable:: lat_in_edg(:)
+    ! (edges of latitude intervals for input data, in rad, in strictly
+    ! ascending order)
+
+    real, pointer:: plev(:) ! pressure level of input data
+    logical desc_lat ! latitude in descending order in the input file
+
+    real, allocatable:: o3_par_in(:, :, :) ! (n_lat, n_plev, 12)
+    ! (ozone parameter from the input file)
+    ! ("o3_par_in(j, l, month)" is at latitude "latitude(j)" and pressure
+    ! level "plev(l)". "month" is between 1 and 12.)
+
+    real, allocatable:: v_regr_lat(:, :, :) ! (jjm + 1, n_plev, 0:13)
+    ! (mean of a variable "v" over a latitude interval)
+    ! (First dimension is latitude interval.
+    ! The latitude interval for "v_regr_lat(j,:, :)" contains "rlatu(j)".
+    ! If "j" is between 2 and "jjm" then the interval is:
+    ! [rlatv(j), rlatv(j-1)]
+    ! If "j" is 1 or "jjm + 1" then the interval is:
+    ! [rlatv(1), pi / 2]
+    ! or:
+    ! [- pi / 2, rlatv(jjm)]
+    ! respectively.
+    ! "v_regr_lat(:, l, :)" is for pressure level "plev(l)".
+    ! Last dimension is month number.)
+
+    real, allocatable:: o3_par_out(:, :, :) ! (jjm + 1, n_plev, 360)
+    ! (regridded ozone parameter)
+    ! ("o3_par_out(j, l, day)" is at latitude "rlatu(j)", pressure
+    ! level "plev(l)" and date "January 1st 0h" + "tmidday(day)", in a
+    ! 360-day calendar.)
+
+    integer j
+    integer i_v ! index of ozone parameter
+    integer, parameter:: n_o3_param = 8 ! number of ozone parameters
+
+    character(len=11) name_in(n_o3_param)
+    ! (name of NetCDF primary variable in the input file)
+
+    character(len=9) name_out(n_o3_param)
+    ! (name of NetCDF primary variable in the output file)
+
+    integer varid_in(n_o3_param), varid_out(n_o3_param), varid_plev, varid_time
+    integer ncerr, varid
+    ! (for NetCDF)
+
+    real, parameter:: tmidmonth(0:13) = (/(-15. + 30. * j, j = 0, 13)/)
+    ! (time to middle of month, in days since January 1st 0h, in a
+    ! 360-day calendar)
+    ! (We add values -15 and 375 so that, for example, day 3 of the year is
+    ! interpolated between the December and the January value.)
+
+    real, parameter:: tmidday(360) = (/(j + 0.5, j = 0, 359)/)
+    ! (time to middle of day, in days since January 1st 0h, in a
+    ! 360-day calendar)
+
+    !---------------------------------
+
+    print *, "Call sequence information: regr_lat_time_coefoz"
+
+    ! Names of ozone parameters:
+    i_v = 0
+
+    i_v = i_v + 1
+    name_in(i_v) = "P_net"
+    name_out(i_v) = "P_net_Mob"
+
+    i_v = i_v + 1
+    name_in(i_v) = "a2"
+    name_out(i_v) = "a2"
+
+    i_v = i_v + 1
+    name_in(i_v) = "tro3"
+    name_out(i_v) = "r_Mob"
+
+    i_v = i_v + 1
+    name_in(i_v) = "a4"
+    name_out(i_v) = "a4"
+
+    i_v = i_v + 1
+    name_in(i_v) = "temperature"
+    name_out(i_v) = "temp_Mob"
+
+    i_v = i_v + 1
+    name_in(i_v) = "a6"
+    name_out(i_v) = "a6"
+
+    i_v = i_v + 1
+    name_in(i_v) = "Sigma"
+    name_out(i_v) = "Sigma_Mob"
+
+    i_v = i_v + 1
+    name_in(i_v) = "R_Het"
+    name_out(i_v) = "R_Het"
+
+    call nf95_open("coefoz.nc", nf90_nowrite, ncid_in)
+
+    ! Get coordinates from the input file:
+
+    call nf95_inq_varid(ncid_in, "latitude", varid)
+    call nf95_gw_var(ncid_in, varid, latitude)
+    ! Convert from degrees to rad, because "boundslat_reg" is in rad:
+    latitude = latitude / 180. * pi
+    n_lat = size(latitude)
+    ! We need to supply the latitudes to "regr1_conserv" in
+    ! ascending order, so invert order if necessary:
+    desc_lat = latitude(1) > latitude(n_lat)
+    if (desc_lat) latitude = latitude(n_lat:1:-1)
+
+    ! Compute edges of latitude intervals:
+    allocate(lat_in_edg(n_lat + 1))
+    lat_in_edg(1) = - pi / 2
+    forall (j = 2:n_lat) lat_in_edg(j) = (latitude(j - 1) + latitude(j)) / 2
+    lat_in_edg(n_lat + 1) = pi / 2
+    deallocate(latitude) ! pointer
+
+    call nf95_inq_varid(ncid_in, "plev", varid)
+    call nf95_gw_var(ncid_in, varid, plev)
+    n_plev = size(plev)
+    ! (We only need the pressure coordinate to copy it to the output file.)
+
+    ! Get the IDs of ozone parameters in the input file:
+    do i_v = 1, n_o3_param
+       call nf95_inq_varid(ncid_in, trim(name_in(i_v)), varid_in(i_v))
+    end do
+
+    ! Create the output file and get the variable IDs:
+    call prepare_out(ncid_in, varid_in, n_plev, name_out, ncid_out, &
+         varid_out, varid_plev, varid_time)
+
+    ! Write remaining coordinate variables:
+    call nf95_put_var(ncid_out, varid_time, tmidday)
+    call nf95_put_var(ncid_out, varid_plev, plev)
+
+    deallocate(plev) ! pointer
+
+    allocate(o3_par_in(n_lat, n_plev, 12))
+    allocate(v_regr_lat(nbp_lat, n_plev, 0:13))
+    allocate(o3_par_out(nbp_lat, n_plev, 360))
+
+    do i_v = 1, n_o3_param
+       ! Process ozone parameter "name_in(i_v)"
+
+       ncerr = nf90_get_var(ncid_in, varid_in(i_v), o3_par_in)
+       call handle_err("nf90_get_var", ncerr, ncid_in)
+
+       if (desc_lat) o3_par_in = o3_par_in(n_lat:1:-1, :, :)
+
+       ! Regrid in latitude:
+       ! We average with respect to sine of latitude, which is
+       ! equivalent to weighting by cosine of latitude:
+       call regr1_conserv(o3_par_in, xs = sin(lat_in_edg), &
+            xt = (/-1., sin((/boundslat_reg(nbp_lat-1:1:-1,south)/)), 1./), &
+            vt = v_regr_lat(nbp_lat:1:-1, :, 1:12))
+       ! (invert order of indices in "v_regr_lat" because "rlatu" is
+       ! in descending order)
+
+       ! Duplicate January and December values, in preparation of time
+       ! interpolation:
+       v_regr_lat(:, :, 0) = v_regr_lat(:, :, 12)
+       v_regr_lat(:, :, 13) = v_regr_lat(:, :, 1)
+
+       ! Regrid in time by linear interpolation:
+       o3_par_out = regr3_lint(v_regr_lat, tmidmonth, tmidday)
+
+       ! Write to file:
+       call nf95_put_var(ncid_out, varid_out(i_v), &
+            o3_par_out(nbp_lat:1:-1, :, :))
+       ! (The order of "rlatu" is inverted in the output file)
+    end do
+
+    call nf95_close(ncid_out)
+    call nf95_close(ncid_in)
+
+  end subroutine regr_lat_time_coefoz
+
+  !********************************************
+
+  subroutine prepare_out(ncid_in, varid_in, n_plev, name_out, ncid_out, &
+       varid_out, varid_plev, varid_time)
+
+    ! This subroutine creates the NetCDF output file, defines
+    ! dimensions and variables, and writes one of the coordinate variables.
+
+    use mod_grid_phy_lmdz, ONLY : nbp_lat
+    use assert_eq_m, only: assert_eq
+
+    use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &
+         nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var
+    use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global
+    use nrtype, only: pi
+    use regular_lonlat_mod, only : lat_reg
+
+    integer, intent(in):: ncid_in, varid_in(:), n_plev
+    character(len=*), intent(in):: name_out(:) ! of NetCDF variables
+    integer, intent(out):: ncid_out, varid_out(:), varid_plev, varid_time
+
+    ! Variables local to the procedure:
+
+    integer ncerr
+    integer dimid_rlatu, dimid_plev, dimid_time
+    integer varid_rlatu
+    integer i, n_o3_param
+
+    !---------------------------
+
+    print *, "Call sequence information: prepare_out"
+    n_o3_param = assert_eq(size(varid_in), size(varid_out), &
+         size(name_out), "prepare_out") 
+
+    call nf95_create("coefoz_LMDZ.nc", nf90_clobber, ncid_out)
+
+    ! Dimensions:
+    call nf95_def_dim(ncid_out, "time", 360, dimid_time)
+    call nf95_def_dim(ncid_out, "plev", n_plev, dimid_plev)
+    call nf95_def_dim(ncid_out, "rlatu", nbp_lat, dimid_rlatu)
+
+    ! Define coordinate variables:
+
+    call nf95_def_var(ncid_out, "time", nf90_float, dimid_time, varid_time)
+    call nf95_put_att(ncid_out, varid_time, "units", "days since 2000-1-1")
+    call nf95_put_att(ncid_out, varid_time, "calendar", "360_day")
+    call nf95_put_att(ncid_out, varid_time, "standard_name", "time")
+
+    call nf95_def_var(ncid_out, "plev", nf90_float, dimid_plev, varid_plev)
+    call nf95_put_att(ncid_out, varid_plev, "units", "millibar")
+    call nf95_put_att(ncid_out, varid_plev, "standard_name", "air_pressure")
+    call nf95_put_att(ncid_out, varid_plev, "long_name", "air pressure")
+
+    call nf95_def_var(ncid_out, "rlatu", nf90_float, dimid_rlatu, varid_rlatu)
+    call nf95_put_att(ncid_out, varid_rlatu, "units", "degrees_north")
+    call nf95_put_att(ncid_out, varid_rlatu, "standard_name", "latitude")
+
+    ! Define primary variables:
+
+    do i = 1, n_o3_param
+       call nf95_def_var(ncid_out, name_out(i), nf90_float, &
+            (/dimid_rlatu, dimid_plev, dimid_time/), varid_out(i))
+
+       ! The following commands may fail. That is OK. It should just
+       ! mean that the attribute is not defined in the input file.
+
+       ncerr = nf90_copy_att(ncid_in, varid_in(i), "long_name",&
+            & ncid_out, varid_out(i))
+       call handle_err_copy_att("long_name")
+
+       ncerr = nf90_copy_att(ncid_in, varid_in(i), "units", ncid_out,&
+            & varid_out(i))
+       call handle_err_copy_att("units")
+
+       ncerr = nf90_copy_att(ncid_in, varid_in(i), "standard_name", ncid_out,&
+            & varid_out(i))
+       call handle_err_copy_att("standard_name")
+    end do
+
+    ! Global attributes:
+    call nf95_copy_att(ncid_in, nf90_global, "Conventions", ncid_out, &
+         nf90_global)
+    call nf95_copy_att(ncid_in, nf90_global, "title", ncid_out, nf90_global)
+    call nf95_copy_att(ncid_in, nf90_global, "source", ncid_out, nf90_global)
+    call nf95_put_att(ncid_out, nf90_global, "comment", "Regridded for LMDZ")
+
+    call nf95_enddef(ncid_out)
+
+    ! Write one of the coordinate variables:
+    call nf95_put_var(ncid_out, varid_rlatu, lat_reg(nbp_lat:1:-1) / pi * 180.)
+    ! (convert from rad to degrees and sort in ascending order)
+
+  contains
+
+    subroutine handle_err_copy_att(att_name)
+
+      use netcdf, only: nf90_noerr, nf90_strerror
+
+      character(len=*), intent(in):: att_name
+
+      !----------------------------------------
+
+      if (ncerr /= nf90_noerr) then
+         print *, "prepare_out " // trim(name_out(i)) &
+              // " nf90_copy_att " // att_name // " -- " &
+              // trim(nf90_strerror(ncerr))
+      end if
+
+    end subroutine handle_err_copy_att
+
+  end subroutine prepare_out
+
+end module regr_lat_time_coefoz_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_av_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_av_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_av_m.F90	(revision 3330)
@@ -0,0 +1,124 @@
+! $Id$
+module regr_pr_av_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+contains
+
+  subroutine regr_pr_av(ncid, name, julien, press_in_edg, paprs, v3)
+
+    ! "regr_pr_av" stands for "regrid pressure averaging".
+    ! In this procedure:
+    ! -- the root process reads 2D latitude-pressure fields from a
+    !    NetCDF file, at a given day.
+    ! -- the fields are packed to the LMDZ horizontal "physics"
+    !    grid and scattered to all threads of all processes;
+    ! -- in all the threads of all the processes, the fields are regridded in
+    !    pressure to the LMDZ vertical grid.
+    ! We assume that, in the input file, the fields have 3 dimensions:
+    ! latitude, pressure, julian day.
+    ! We assume that the input fields are already on the "rlatu"
+    ! latitudes, except that latitudes are in ascending order in the input
+    ! file.
+    ! We assume that all the inputs fields have the same coordinates.
+
+    ! The target vertical LMDZ grid is the grid of layer boundaries.
+    ! Regridding in pressure is conservative, second order.
+
+    ! All the fields are regridded as a single multi-dimensional array
+    ! so it saves CPU time to call this procedure once for several NetCDF
+    ! variables rather than several times, each time for a single
+    ! NetCDF variable.
+
+    use dimphy, only: klon
+    use netcdf95, only: nf95_inq_varid, handle_err
+    use netcdf, only: nf90_get_var
+    use assert_m, only: assert
+    use assert_eq_m, only: assert_eq
+    use regr1_conserv_m, only: regr1_conserv
+    use slopes_m, only: slopes
+    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
+    use mod_phys_lmdz_transfert_para, only: scatter2d
+    ! (pack to the LMDZ horizontal "physics" grid and scatter)
+
+    integer, intent(in):: ncid ! NetCDF ID of the file
+    character(len=*), intent(in):: name(:) ! of the NetCDF variables
+    integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
+
+    real, intent(in):: press_in_edg(:)
+    ! edges of pressure intervals for input data, in Pa, in strictly
+    ! ascending order
+
+    real, intent(in):: paprs(:, :) ! (klon, llm + 1)
+    ! (pression pour chaque inter-couche, en Pa)
+
+    real, intent(out):: v3(:, :, :) ! (klon, llm, size(name))
+    ! regridded fields on the partial "physics" grid
+    ! "v3(i, k, l)" is at longitude "xlon(i)", latitude
+    ! "xlat(i)", in pressure interval "[paprs(i, k+1), paprs(i, k)]",
+    ! for NetCDF variable "name(l)".
+
+    ! Variables local to the procedure:
+
+    integer varid, ncerr ! for NetCDF
+
+    real  v1(nbp_lon, nbp_lat, size(press_in_edg) - 1, size(name))
+    ! input fields at day "julien", on the global "dynamics" horizontal grid
+    ! First dimension is for longitude.
+    ! The values are the same for all longitudes.
+    ! "v1(:, j, k, l)" is at latitude "rlatu(j)", for
+    ! pressure interval "[press_in_edg(k), press_in_edg(k+1)]" and
+    ! NetCDF variable "name(l)".
+
+    real v2(klon, size(press_in_edg) - 1, size(name))
+    ! fields scattered to the partial "physics" horizontal grid
+    ! "v2(i, k, l)" is at longitude "xlon(i)", latitude "xlat(i)",
+    ! for pressure interval "[press_in_edg(k), press_in_edg(k+1)]" and
+    ! NetCDF variable "name(l)".
+
+    integer i, n_var
+
+    !--------------------------------------------
+
+    call assert(size(v3, 1) == klon, size(v3, 2) == nbp_lev, &
+         "regr_pr_av v3 klon")
+    n_var = assert_eq(size(name), size(v3, 3), "regr_pr_av v3 n_var")
+    call assert(shape(paprs) == (/klon, nbp_lev+1/), "regr_pr_av paprs")
+
+    !$omp master
+    if (is_mpi_root) then
+       do i = 1, n_var
+          call nf95_inq_varid(ncid, trim(name(i)), varid)
+          
+          ! Get data at the right day from the input file:
+          ncerr = nf90_get_var(ncid, varid, v1(1, :, :, i), &
+               start=(/1, 1, julien/))
+          call handle_err("regr_pr_av nf90_get_var " // trim(name(i)), ncerr, &
+               ncid)
+       end do
+       
+       ! Latitudes are in ascending order in the input file while
+       ! "rlatu" is in descending order so we need to invert order:
+       v1(1, :, :, :) = v1(1, nbp_lat:1:-1, :, :)
+
+       ! Duplicate on all longitudes:
+       v1(2:, :, :, :) = spread(v1(1, :, :, :), dim=1, ncopies=nbp_lon-1)
+    end if
+    !$omp end master
+
+    call scatter2d(v1, v2)
+
+    ! Regrid in pressure at each horizontal position:
+    do i = 1, klon
+       call regr1_conserv(v2(i, :, :), press_in_edg, &
+            paprs(i, nbp_lev + 1:1:-1), v3(i, nbp_lev:1:-1, :), &
+            slopes(v2(i, :, :), press_in_edg))
+       ! (invert order of indices because "paprs" is in descending order)
+    end do
+
+  end subroutine regr_pr_av
+
+end module regr_pr_av_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_comb_coefoz_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_comb_coefoz_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_comb_coefoz_m.F90	(revision 3330)
@@ -0,0 +1,163 @@
+! $Id$
+module regr_pr_comb_coefoz_m
+
+  implicit none
+
+  ! The five module variables declared here are on the partial
+  ! "physics" grid.
+  ! The value of each variable for index "(i, k)" is at longitude
+  ! "rlon(i)", latitude "rlat(i)" and middle of layer "k".
+
+  real, allocatable, save:: c_Mob(:, :)
+  ! (sum of Mobidic terms in the net mass production rate of ozone
+  ! by chemistry, per unit mass of air, in s-1)
+
+  real, allocatable, save:: a2(:, :)
+  ! (derivative of mass production rate of ozone per unit mass of
+  ! air with respect to ozone mass fraction, in s-1)
+
+  real, allocatable, save:: a4_mass(:, :)
+  ! (derivative of mass production rate of ozone per unit mass of
+  ! air with respect to temperature, in s-1 K-1)
+
+  real, allocatable, save:: a6_mass(:, :)
+  ! (derivative of mass production rate of ozone per unit mass of
+  ! air with respect to mass column-density of ozone above, in m2 s-1 kg-1)
+
+  real, allocatable, save:: r_het_interm(:, :)
+  ! (net mass production rate by heterogeneous chemistry, per unit
+  ! mass of ozone, corrected for chlorine content and latitude, but
+  ! not for temperature and sun direction, in s-1)
+
+  !$omp threadprivate(c_Mob, a2, a4_mass, a6_mass, r_het_interm)
+
+contains
+
+  subroutine alloc_coefoz
+
+    ! This procedure is called once per run.
+    ! It allocates module variables.
+
+    use dimphy, only: klon
+    use mod_grid_phy_lmdz, only: nbp_lev
+
+    ! Variables local to the procedure:
+
+    !---------------------------------------
+
+    !$omp master
+    print *, "Call sequence information: alloc_coefoz"
+    !$omp end master
+    allocate(c_Mob(klon, nbp_lev), a2(klon, nbp_lev), a4_mass(klon, nbp_lev))
+    allocate(a6_mass(klon, nbp_lev), r_het_interm(klon, nbp_lev))
+
+  end subroutine alloc_coefoz
+
+  !*******************************************************
+
+  subroutine regr_pr_comb_coefoz(julien, rlat, paprs, pplay)
+
+    ! "regr_pr_comb_coefoz" stands for "regrid pressure combine
+    ! coefficients ozone".
+
+    ! In this subroutine:
+    ! -- the master thread of the root process reads from a file all
+    !    eight coefficients for ozone chemistry, at the current day;
+    ! -- the coefficients are packed to the "physics" horizontal grid
+    !    and scattered to all threads of all processes;
+    ! -- in all the threads of all the processes, the coefficients are
+    !    regridded in pressure to the LMDZ vertical grid;
+    ! -- in all the threads of all the processes, the eight
+    !    coefficients are combined to define the five module variables.
+
+    use netcdf95, only: nf95_open, nf95_close
+    use netcdf, only: nf90_nowrite
+    use assert_m, only: assert
+    use dimphy, only: klon
+    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    use regr_pr_av_m, only: regr_pr_av
+    use regr_pr_int_m, only: regr_pr_int
+    use press_coefoz_m, only: press_in_edg, plev
+    use mod_grid_phy_lmdz, only: nbp_lev
+
+    integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
+
+    REAL, intent(in):: rlat(:)
+    ! (latitude on the partial "physics" grid, in degrees)
+
+    real, intent(in):: paprs(:, :) ! (klon, nbp_lev + 1)
+    ! (pression pour chaque inter-couche, en Pa)
+
+    real, intent(in):: pplay(:, :) ! (klon, nbp_lev)
+    ! (pression pour le mileu de chaque couche, en Pa)
+
+    ! Variables local to the procedure:
+
+    integer ncid ! for NetCDF
+
+    real coefoz(klon, nbp_lev, 7)
+    ! (temporary storage for 7 ozone coefficients)
+    ! (On the partial "physics" grid.
+    ! "coefoz(i, k, :)" is at longitude "rlon(i)", latitude "rlat(i)",
+    ! middle of layer "k".)
+
+    real a6(klon, nbp_lev)
+    ! (derivative of "P_net_Mob" with respect to column-density of ozone
+    ! above, in cm2 s-1)
+    ! (On the partial "physics" grid.
+    ! "a6(i, k)" is at longitude "rlon(i)", latitude "rlat(i)",
+    ! middle of layer "k".)
+
+    real, parameter:: amu = 1.6605402e-27 ! atomic mass unit, in kg
+
+    real, parameter:: Clx = 3.8e-9
+    ! (total chlorine content in the upper stratosphere)
+
+    integer k
+
+    !------------------------------------
+
+    !!print *, "Call sequence information: regr_pr_comb_coefoz"
+    call assert((/size(rlat), size(paprs, 1), size(pplay, 1)/) == klon, &
+         "regr_pr_comb_coefoz klon")
+    call assert((/size(paprs, 2) - 1, size(pplay, 2)/) == nbp_lev, &
+         "regr_pr_comb_coefoz nbp_lev")
+
+    !$omp master
+    if (is_mpi_root) call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
+    !$omp end master
+
+    call regr_pr_av(ncid, (/"a2       ", "a4       ", "a6       ", &
+         "P_net_Mob", "r_Mob    ", "temp_Mob ", "R_Het    "/), julien, &
+         press_in_edg, paprs, coefoz)
+    a2 = coefoz(:, :, 1)
+    a4_mass = coefoz(:, :, 2) * 48. / 29.
+
+    ! Compute "a6_mass" avoiding underflow, do not divide by 1e4
+    ! before dividing by molecular mass:
+    a6_mass = coefoz(:, :, 3) / (1e4 * 29. * amu)
+    ! (factor 1e4: conversion from cm2 to m2)
+
+    ! We can overwrite "coefoz(:, :, 1)", which was saved to "a2":
+    call regr_pr_int(ncid, "Sigma_Mob", julien, plev, pplay, top_value=0., &
+         v3=coefoz(:, :, 1))
+
+    ! Combine coefficients to get "c_Mob":
+    c_mob = (coefoz(:, :, 4) - a2 * coefoz(:, :, 5) &
+         - coefoz(:, :, 3) * coefoz(:, :, 1)) * 48. / 29. &
+         - a4_mass * coefoz(:, :, 6)
+
+    r_het_interm = coefoz(:, :, 7)
+    ! Heterogeneous chemistry is only at high latitudes:
+    forall (k = 1: nbp_lev)
+       where (abs(rlat) <= 45.) r_het_interm(:, k) = 0.
+    end forall
+    r_het_interm = r_het_interm * (Clx / 3.8e-9)**2
+
+    !$omp master
+    if (is_mpi_root) call nf95_close(ncid)
+    !$omp end master
+
+  end subroutine regr_pr_comb_coefoz
+
+end module regr_pr_comb_coefoz_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_int_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_int_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_int_m.F90	(revision 3330)
@@ -0,0 +1,105 @@
+! $Id$
+module regr_pr_int_m
+
+  ! Author: Lionel GUEZ
+
+  implicit none
+
+contains
+
+  subroutine regr_pr_int(ncid, name, julien, plev, pplay, top_value, v3)
+
+    ! "regr_pr_int" stands for "regrid pressure interpolation".
+    ! In this procedure:
+    ! -- the root process reads a 2D latitude-pressure field from a
+    !    NetCDF file, at a given day.
+    ! -- the field is packed to the LMDZ horizontal "physics"
+    !    grid and scattered to all threads of all processes;
+    ! -- in all the threads of all the processes, the field is regridded in
+    !    pressure to the LMDZ vertical grid.
+    ! We assume that, in the input file, the field has 3 dimensions:
+    ! latitude, pressure, julian day.
+    ! We assume that latitudes are in ascending order in the input file.
+    ! The target vertical LMDZ grid is the grid of mid-layers.
+    ! Regridding is by linear interpolation.
+
+    use dimphy, only: klon
+    use netcdf95, only: nf95_inq_varid, handle_err
+    use netcdf, only: nf90_get_var
+    use assert_m, only: assert
+    use regr1_lint_m, only: regr1_lint
+    use mod_phys_lmdz_mpi_data, only: is_mpi_root
+    use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
+    use mod_phys_lmdz_transfert_para, only: scatter2d
+    ! (pack to the LMDZ horizontal "physics" grid and scatter)
+
+    integer, intent(in):: ncid ! NetCDF ID of the file
+    character(len=*), intent(in):: name ! of the NetCDF variable
+    integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
+
+    real, intent(in):: plev(:)
+    ! (pressure level of input data, in Pa, in strictly ascending order)
+
+    real, intent(in):: pplay(:, :) ! (klon, nbp_lev)
+    ! (pression pour le mileu de chaque couche, en Pa)
+
+    real, intent(in):: top_value
+    ! (extra value of field at 0 pressure)
+
+    real, intent(out):: v3(:, :) ! (klon, nbp_lev)
+    ! (regridded field on the partial "physics" grid)
+    ! ("v3(i, k)" is at longitude "xlon(i)", latitude
+    ! "xlat(i)", middle of layer "k".)
+
+    ! Variables local to the procedure:
+
+    integer varid, ncerr ! for NetCDF
+
+    real  v1(nbp_lon, nbp_lat, 0:size(plev))
+    ! (input field at day "julien", on the global "dynamics" horizontal grid)
+    ! (First dimension is for longitude.
+    ! The value is the same for all longitudes.
+    ! "v1(:, j, k >=1)" is at latitude "rlatu(j)" and pressure "plev(k)".)
+
+    real v2(klon, 0:size(plev))
+    ! (field scattered to the partial "physics" horizontal grid)
+    ! "v2(i, k >= 1)" is at longitude "xlon(i)", latitude "xlat(i)"
+    ! and pressure "plev(k)".)
+
+    integer i
+
+    !--------------------------------------------
+
+    call assert(shape(v3) == (/klon, nbp_lev/), "regr_pr_int v3")
+    call assert(shape(pplay) == (/klon, nbp_lev/), "regr_pr_int pplay")
+
+    !$omp master
+    if (is_mpi_root) then
+       call nf95_inq_varid(ncid, name, varid)
+
+       ! Get data at the right day from the input file:
+       ncerr = nf90_get_var(ncid, varid, v1(1, :, 1:), start=(/1, 1, julien/))
+       call handle_err("regr_pr_int nf90_get_var " // name, ncerr, ncid)
+       ! Latitudes are in ascending order in the input file while
+       ! "rlatu" is in descending order so we need to invert order:
+       v1(1, :, 1:) = v1(1, nbp_lat:1:-1, 1:)
+
+       ! Complete "v1" with the value at 0 pressure:
+       v1(1, :, 0) = top_value
+
+       ! Duplicate on all longitudes:
+       v1(2:, :, :) = spread(v1(1, :, :), dim=1, ncopies=nbp_lon-1)
+    end if
+    !$omp end master
+
+    call scatter2d(v1, v2)
+
+    ! Regrid in pressure at each horizontal position:
+    do i = 1, klon
+       v3(i, nbp_lev:1:-1) = regr1_lint(v2(i, :), (/0., plev/), pplay(i, nbp_lev:1:-1))
+       ! (invert order of indices because "pplay" is in descending order)
+    end do
+
+  end subroutine regr_pr_int
+
+end module regr_pr_int_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_o3_m.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_o3_m.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/regr_pr_o3_m.F90	(revision 3330)
@@ -0,0 +1,101 @@
+! $Id$
+module regr_pr_o3_m
+
+  implicit none
+
+contains
+
+  subroutine regr_pr_o3(p3d, o3_mob_regr)
+
+    ! "regr_pr_o3" stands for "regrid pressure ozone".
+    ! This procedure reads Mobidic ozone mole fraction from
+    ! "coefoz_LMDZ.nc" at the initial day of the run and regrids it in
+    ! pressure.
+    ! Ozone mole fraction from "coefoz_LMDZ.nc" at the initial day is
+    ! a 2D latitude -- pressure variable.
+    ! The target horizontal LMDZ grid is the "scalar" grid: "rlonv", "rlatu".
+    ! The target vertical LMDZ grid is the grid of layer boundaries.
+    ! We assume that the input variable is already on the LMDZ "rlatu"
+    ! latitude grid.
+    ! The input variable does not depend on longitude, but the
+    ! pressure at LMDZ layers does.
+    ! Therefore, the values on the LMDZ grid do depend on longitude.
+    ! Regridding is by averaging, assuming a step function.
+    ! We assume that, in the input file, the pressure levels are in
+    ! hPa and strictly increasing.
+
+    use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, handle_err
+    use netcdf, only:  nf90_nowrite, nf90_get_var
+    use assert_m, only: assert
+    use regr1_conserv_m, only: regr1_conserv
+    use press_coefoz_m, only: press_in_edg
+    use time_phylmdz_mod, only: day_ref
+    use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
+
+    REAL, intent(in):: p3d(:, :, :) ! pressure at layer interfaces, in Pa
+    ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",
+    ! for interface "l")
+
+    real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm)
+    ! (ozone mole fraction from Mobidic adapted to the LMDZ grid)
+    ! ("o3_mob_regr(i, j, l)" is at longitude "rlonv(i)", latitude
+    ! "rlatu(j)" and pressure level "pls(i, j, l)")
+
+    ! Variables local to the procedure:
+
+    integer ncid, varid, ncerr ! for NetCDF
+    integer i, j
+
+    real r_mob(nbp_lat, size(press_in_edg) - 1)
+    ! (ozone mole fraction from Mobidic at day "day_ref")
+    ! (r_mob(j, k) is at latitude "rlatu(j)", in pressure interval
+    ! "[press_in_edg(k), press_in_edg(k+1)]".)
+
+    !------------------------------------------------------------
+
+    print *, "Call sequence information: regr_pr_o3"
+    call assert(shape(o3_mob_regr) == (/nbp_lon + 1, nbp_lat, nbp_lev/), &
+         "regr_pr_o3 o3_mob_regr")
+    call assert(shape(p3d) == (/nbp_lon + 1, nbp_lat, nbp_lev + 1/), "regr_pr_o3 p3d")
+
+    call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
+
+    call nf95_inq_varid(ncid, "r_Mob", varid)
+    ! Get data at the right day from the input file:
+    ncerr = nf90_get_var(ncid, varid, r_mob, start=(/1, 1, day_ref/))
+    call handle_err("nf90_get_var r_Mob", ncerr)
+    ! Latitudes are in ascending order in the input file while
+    ! "rlatu" is in descending order so we need to invert order:
+    r_mob = r_mob(nbp_lat:1:-1, :)
+
+    call nf95_close(ncid)
+
+    ! Regrid in pressure by averaging a step function of pressure:
+
+    ! Poles:
+    do j = 1, nbp_lat, nbp_lat-1
+       call regr1_conserv(r_mob(j, :), press_in_edg, &
+            p3d(1, j, nbp_lev + 1:1:-1), o3_mob_regr(1, j, nbp_lev:1:-1))
+       ! (invert order of indices because "p3d" is in descending order)
+    end do
+
+    ! Other latitudes:
+    do j = 2, nbp_lat-1
+       do i = 1, nbp_lon
+          call regr1_conserv(r_mob(j, :), press_in_edg, &
+               p3d(i, j, nbp_lev + 1:1:-1), o3_mob_regr(i, j, nbp_lev:1:-1))
+          ! (invert order of indices because "p3d" is in descending order)
+       end do
+    end do
+
+    ! Duplicate pole values on all longitudes:
+    o3_mob_regr(2:, 1, :) = spread(o3_mob_regr(1, 1, :), dim=1, ncopies=nbp_lon)
+    o3_mob_regr(2:, nbp_lat, :) &
+         = spread(o3_mob_regr(1, nbp_lat, :), dim=1, ncopies=nbp_lon)
+
+    ! Duplicate first longitude to last longitude:
+    o3_mob_regr(nbp_lon + 1, 2:nbp_lat-1, :) = o3_mob_regr(1, 2:nbp_lat-1, :)
+
+  end subroutine regr_pr_o3
+
+end module regr_pr_o3_m
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abor1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abor1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abor1.F90	(revision 3330)
@@ -0,0 +1,10 @@
+SUBROUTINE ABOR1(CDTEXT)
+
+IMPLICIT NONE
+
+CHARACTER(LEN=*), INTENT(IN) :: CDTEXT
+
+print*,'ABOR1 CALLED',CDTEXT
+
+return
+end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abor1.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abor1.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abor1.intfb.h	(revision 3330)
@@ -0,0 +1,5 @@
+INTERFACE
+SUBROUTINE ABOR1(CDTEXT)
+CHARACTER(LEN=*) :: CDTEXT
+END SUBROUTINE ABOR1
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abort_trans_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abort_trans_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/abort_trans_mod.F90	(revision 3330)
@@ -0,0 +1,30 @@
+MODULE ABORT_TRANS_MOD
+CONTAINS
+SUBROUTINE ABORT_TRANS(CDTEXT)
+
+USE TPM_GEN  , ONLY : NOUT,NERR
+USE TPM_DISTR, ONLY : NPROC,MYPROC
+!USE MPL_MODULE, ONLY : MPL_ABORT   ! MPL 1.12.08
+USE SDL_MODULE, ONLY : SDL_TRACEBACK, SDL_SRLABORT
+
+IMPLICIT NONE
+
+
+CHARACTER(LEN=*),INTENT(IN) :: CDTEXT
+
+WRITE(NOUT,'(1X,A)') 'ABORT_TRANS CALLED'
+
+WRITE(NOUT,'(1X,A)') CDTEXT
+WRITE(NERR,'(1X,A,1X,I3,1X,A)') 'ABORT! ',MYPROC,CDTEXT
+CLOSE(NOUT)
+IF (NPROC > 1) THEN
+! CALL MPL_ABORT(CDTEXT)  ! MPL 1.12.08
+  CALL ABOR1('DANS ABORT_TRANS_MOD')
+ELSE
+  CALL SDL_TRACEBACK
+  CALL FLUSH(0)
+  CALL SDL_SRLABORT
+ENDIF
+
+END SUBROUTINE ABORT_TRANS
+END MODULE ABORT_TRANS_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90	(revision 3330)
@@ -0,0 +1,415 @@
+!
+! $Id$
+!
+
+SUBROUTINE AEROPT_5WV_RRTM(&
+   pdel, m_allaer, delt, &
+   RHcl, ai, flag_aerosol, &
+   pplay, t_seri, &
+   tausum, tau )
+
+  USE DIMPHY
+  USE aero_mod
+  USE phys_local_var_mod, only: od550aer,od865aer,ec550aer,od550lt1aer
+
+  !
+  !    Yves Balkanski le 12 avril 2006
+  !    Celine Deandreis
+  !    Anne Cozic  Avril 2009
+  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
+  !    Olivier Boucher mars 2014 pour adaptation RRTM
+  !
+  ! Refractive indices for seasalt come from Shettle and Fenn (1979)
+  !
+  ! Refractive indices from water come from Hale and Querry (1973)
+  !
+  ! Refractive indices from Ammonium Sulfate Toon and Pollack (1976)
+  !
+  ! Refractive indices for Dust, internal mixture of minerals coated with 1.5% hematite 
+  ! by Volume (Balkanski et al., 2006)
+  !
+  ! Refractive indices for POM: Kinne (pers. Communication 
+  !
+  ! Refractive index for BC from Shettle and Fenn (1979)
+  !
+  ! Shettle, E. P., & Fenn, R. W. (1979), Models for the aerosols of the lower atmosphere and 
+  ! the effects of humidity variations on their optical properties, U.S. Air Force Geophysics 
+  ! Laboratory Rept. AFGL-TR-79-0214, Hanscomb Air Force Base, MA.
+  !
+  ! Hale, G. M. and M. R. Querry, Optical constants of water in the 200-nm to 200-m 
+  ! wavelength region, Appl. Opt., 12, 555-563, 1973.
+  !
+  ! Toon, O. B. and J. B. Pollack, The optical constants of several atmospheric aerosol species:
+  ! Ammonium sulfate, aluminum oxide, and sodium chloride, J. Geohys. Res., 81, 5733-5748,
+  ! 1976.
+  !
+  ! Balkanski, Y., M. Schulz, T. Claquin And O. Boucher, Reevaluation of mineral aerosol 
+  ! radiative forcings suggests a better agreement with satellite and AERONET data, Atmospheric 
+  ! Chemistry and Physics Discussions., 6, pp 8383-8419, 2006.
+  !
+  IMPLICIT NONE
+  INCLUDE "YOMCST.h"
+  !
+  ! Input arguments:
+  !
+  REAL, DIMENSION(klon,klev), INTENT(in)   :: pdel
+  REAL, INTENT(in)                         :: delt
+  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
+  REAL, DIMENSION(klon,klev), INTENT(in)   :: pplay
+  REAL, DIMENSION(klon,klev), INTENT(in)   :: t_seri
+  !
+  ! Output arguments:
+  !
+  REAL, DIMENSION(klon), INTENT(out)                      :: ai      ! POLDER aerosol index 
+  REAL, DIMENSION(klon,nwave,naero_tot), INTENT(out)      :: tausum
+  REAL, DIMENSION(klon,klev,nwave,naero_tot), INTENT(out) :: tau
+
+  !
+  ! Local
+  !
+  INTEGER, PARAMETER :: las = nwave_sw
+  LOGICAL :: soluble
+  
+  INTEGER :: i, k, m, aerindex
+  INTEGER :: spsol, spinsol, la
+  INTEGER :: RH_num(klon,klev)
+  INTEGER, PARAMETER :: la443 = 1
+  INTEGER, PARAMETER :: la550 = 2
+  INTEGER, PARAMETER :: la670 = 3
+  INTEGER, PARAMETER :: la765 = 4
+  INTEGER, PARAMETER :: la865 = 5
+  INTEGER, PARAMETER :: nbre_RH=12
+  INTEGER, PARAMETER :: naero_soluble=7   !  1- BC soluble; 2- POM soluble; 3- SO4 acc.
+                                          !  4- SO4 coarse; 5 seasalt super-C; 6 seasalt coarse; 7 seasalt acc.
+  INTEGER, PARAMETER :: naero_insoluble=3 !  1- Dust; 2- BC insoluble; 3- POM insoluble
+
+  REAL :: zrho
+
+  REAL, PARAMETER :: RH_tab(nbre_RH)=(/0.,10.,20.,30.,40.,50.,60.,70.,80.,85.,90.,95./)
+  REAL, PARAMETER :: RH_MAX=95.
+  REAL :: delta(klon,klev), rh(klon,klev)
+  REAL :: tau_ae5wv_int   ! Intermediate computation of epaisseur optique aerosol
+  REAL :: od670aer(klon)  ! epaisseur optique aerosol extinction 670 nm
+  REAL :: fac
+  REAL :: zdp1(klon,klev) 
+  INTEGER, ALLOCATABLE, DIMENSION(:)  :: aerosol_name
+  INTEGER :: nb_aer, itau
+  LOGICAL :: ok_itau
+  
+  REAL :: dh(KLON,KLEV)
+  
+   ! Soluble components 1- BC soluble; 2- POM soluble; 3- SO4 acc.; 4- SO4 coarse; 5 seasalt super-coarse; 6 seasalt coarse; 7 seasalt acc.
+  REAL :: alpha_aers_5wv(nbre_RH,las,naero_soluble)   ! Ext. coeff. ** m2/g 
+   ! Insoluble components 1- Dust: 2- BC; 3- POM
+  REAL :: alpha_aeri_5wv(las,naero_insoluble)         ! Ext. coeff. ** m2/g 
+
+  REAL, DIMENSION(klon,klev,naero_tot) :: mass_temp
+  
+  !
+  ! Proprietes optiques
+  !
+  REAL :: fact_RH(nbre_RH)
+  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 
+!                                   le 12 AVRIL 2006 
+!  
+ DATA alpha_aers_5wv/ & 
+                                ! bc soluble 
+       7.930,7.930,7.930,7.930,7.930,7.930,     & 
+       7.930,7.930,10.893,12.618,14.550,16.613, & 
+       7.658,7.658,7.658,7.658,7.658,7.658,     & 
+       7.658,7.658,10.351,11.879,13.642,15.510, & 
+       7.195,7.195,7.195,7.195,7.195,7.195,     & 
+       7.195,7.195,9.551,10.847,12.381,13.994,  & 
+       6.736,6.736,6.736,6.736,6.736,6.736,     & 
+       6.736,6.736,8.818,9.938,11.283,12.687,   & 
+       6.277,6.277,6.277,6.277,6.277,6.277,     & 
+       6.277,6.277,8.123,9.094,10.275,11.501,   & 
+                                ! pom soluble 
+       6.676,6.676,6.676,6.676,6.710,6.934,   & 
+       7.141,7.569,8.034,8.529,9.456,10.511,  & 
+       5.109,5.109,5.109,5.109,5.189,5.535,   & 
+       5.960,6.852,8.008,9.712,12.897,19.676, & 
+       3.718,3.718,3.718,3.718,3.779,4.042,   & 
+       4.364,5.052,5.956,7.314,9.896,15.688,  & 
+       2.849,2.849,2.849,2.849,2.897,3.107,   & 
+       3.365,3.916,4.649,5.760,7.900,12.863,  & 
+       2.229,2.229,2.229,2.229,2.268,2.437,   & 
+       2.645,3.095,3.692,4.608,6.391,10.633,  & 
+                                ! Sulfate (Accumulation) 
+       5.751,6.215,6.690,7.024,7.599,8.195,      & 
+       9.156,10.355,12.660,14.823,18.908,24.508, & 
+       4.320,4.675,5.052,5.375,5.787,6.274,      & 
+       7.066,8.083,10.088,12.003,15.697,21.133,  & 
+       3.079,3.351,3.639,3.886,4.205,4.584,      & 
+       5.206,6.019,7.648,9.234,12.391,17.220,    & 
+       2.336,2.552,2.781,2.979,3.236,3.540,      & 
+       4.046,4.711,6.056,7.388,10.093,14.313,    & 
+       1.777,1.949,2.134,2.292,2.503,2.751,      & 
+       3.166,3.712,4.828,5.949,8.264,11.922,     & 
+                                ! Sulfate (Coarse) 
+       5.751,6.215,6.690,7.024,7.599,8.195,      & 
+       9.156,10.355,12.660,14.823,18.908,24.508, & 
+       4.320,4.675,5.052,5.375,5.787,6.274,      & 
+       7.066,8.083,10.088,12.003,15.697,21.133,  & 
+       3.079,3.351,3.639,3.886,4.205,4.584,      & 
+       5.206,6.019,7.648,9.234,12.391,17.220,    & 
+       2.336,2.552,2.781,2.979,3.236,3.540,      & 
+       4.046,4.711,6.056,7.388,10.093,14.313,    & 
+       1.777,1.949,2.134,2.292,2.503,2.751,      & 
+       3.166,3.712,4.828,5.949,8.264,11.922,     & 
+                           ! seasalt seasalt Super Coarse Soluble (SS)
+        0.218, 0.272, 0.293, 0.316, 0.343, 0.380, &
+        0.429, 0.501, 0.636, 0.755, 0.967, 1.495, & 
+        0.221, 0.275, 0.297, 0.320, 0.348, 0.383, &
+        0.432, 0.509, 0.640, 0.759, 0.972, 1.510, &
+        0.224, 0.279, 0.301, 0.324, 0.352, 0.388, &
+        0.438, 0.514, 0.647, 0.768, 0.985, 1.514, &
+        0.227, 0.282, 0.303, 0.327, 0.356, 0.392, &
+        0.441, 0.518, 0.652, 0.770, 0.987, 1.529, &
+        0.230, 0.285, 0.306, 0.330, 0.359, 0.396, &
+        0.446, 0.522, 0.656, 0.777, 0.993, 1.539, &
+                           ! seasalt seasalt Coarse Soluble (CS)      
+        0.578, 0.706, 0.756, 0.809, 0.876, 0.964, &
+        1.081, 1.256, 1.577, 1.858, 2.366, 3.613, &
+        0.598, 0.725, 0.779, 0.833, 0.898, 0.990, &
+        1.109, 1.290, 1.609, 1.889, 2.398, 3.682, &
+        0.619, 0.750, 0.802, 0.857, 0.927, 1.022, &
+        1.141, 1.328, 1.648, 1.939, 2.455, 3.729, &
+        0.633, 0.767, 0.820, 0.879, 0.948, 1.044, &
+        1.167, 1.353, 1.683, 1.969, 2.491, 3.785, & 
+        0.648, 0.785, 0.838, 0.896, 0.967, 1.066, &
+        1.192, 1.381, 1.714, 2.006, 2.531, 3.836, &
+                           ! seasalt seasalt Accumulation Soluble (AS)
+        4.432, 5.899, 6.505, 7.166, 7.964, 7.962, &
+        9.232,11.257,14.979,18.337,24.223,37.811, &
+        3.298, 4.569, 5.110, 5.709, 6.446, 6.268, &
+        7.396, 9.246,12.787,16.113,22.197,37.136, &
+        2.340, 3.358, 3.803, 4.303, 4.928, 4.696, &
+        5.629, 7.198,10.308,13.342,19.120,34.296, &
+        1.789, 2.626, 2.999, 3.422, 3.955, 3.730, &
+        4.519, 5.864, 8.593,11.319,16.653,31.331, &
+        1.359, 2.037, 2.343, 2.693, 3.139, 2.940, &
+        3.596, 4.729, 7.076, 9.469,14.266,28.043 /
+
+  DATA alpha_aeri_5wv/ &
+                                 ! dust insoluble 
+        0.759, 0.770, 0.775, 0.775, 0.772, & 
+                                 !!jb bc insoluble 
+        11.536,10.033, 8.422, 7.234, 6.270, & 
+                                 ! pom insoluble 
+        5.042, 3.101, 1.890, 1.294, 0.934/ 
+  ! 
+  ! Initialisations
+  ai(:) = 0.
+  tausum(:,:,:) = 0.
+
+  DO k=1, klev
+    DO i=1, klon
+      zrho=pplay(i,k)/t_seri(i,k)/RD                  ! kg/m3
+      dh(i,k)=pdel(i,k)/(RG*zrho)
+!CDIR UNROLL=naero_spc
+      mass_temp(i,k,:) = m_allaer(i,k,:) / zrho / 1.e+9
+      zdp1(i,k)=pdel(i,k)/(RG*delt)     ! air mass auxiliary  variable --> zdp1 [kg/(m^2 *s)]
+    ENDDO
+  ENDDO
+
+  IF (flag_aerosol .EQ. 1) THEN 
+     nb_aer = 2
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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_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_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_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_phy
+  ELSEIF (flag_aerosol .EQ. 6) THEN 
+     nb_aer = 10
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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
+
+  ! 
+  ! Loop over modes, use of precalculated nmd and corresponding sigma
+  !    loop over wavelengths
+  !    for each mass species in mode
+  !      interpolate from Sext to retrieve Sext_at_gridpoint_per_species
+  !      compute optical_thickness_at_gridpoint_per_species
+  !
+  ! Calculations that need to be done since we are not in the subroutines INCA
+  !      
+
+!CDIR ON_ADB(RH_tab)
+!CDIR ON_ADB(fact_RH)
+!CDIR NOVECTOR
+  DO n=1,nbre_RH-1
+    fact_RH(n)=1./(RH_tab(n+1)-RH_tab(n))
+  ENDDO
+   
+  DO k=1, KLEV
+!CDIR ON_ADB(RH_tab)
+!CDIR ON_ADB(fact_RH)
+    DO i=1, KLON
+      rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
+      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
+      delta(i,k)=(rh(i,k)-RH_tab(RH_num(i,k)))*fact_RH(RH_num(i,k))
+    ENDDO
+  ENDDO
+
+!CDIR SHORTLOOP  
+  used_tau(:)=.FALSE.
+    
+  DO m=1,nb_aer   ! tau is only computed for each mass    
+    fac=1.0
+    IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
+        soluble=.TRUE.
+        spsol=1
+    ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
+        soluble=.TRUE.
+        spsol=2 
+    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_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_phy) THEN 
+        soluble=.TRUE.
+        spsol=5
+    ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
+        soluble=.TRUE.
+        spsol=6
+    ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
+        soluble=.TRUE.
+        spsol=7
+    ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
+        soluble=.FALSE.
+        spinsol=1
+    ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
+        soluble=.FALSE.
+        spinsol=2
+    ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
+        soluble=.FALSE.
+        spinsol=3
+    ELSE 
+        CYCLE
+    ENDIF
+
+    IF (soluble) then
+      used_tau(spsol)=.TRUE.
+    ELSE
+      used_tau(naero_soluble+spinsol)=.TRUE.
+    ENDIF
+
+    aerindex=aerosol_name(m)
+
+    DO la=1,las
+
+      IF (soluble) THEN            ! For soluble aerosol
+
+          DO k=1, KLEV
+            DO i=1, KLON
+              tau_ae5wv_int = alpha_aers_5wv(RH_num(i,k),la,spsol)+DELTA(i,k)* &
+                             (alpha_aers_5wv(RH_num(i,k)+1,la,spsol) - & 
+                              alpha_aers_5wv(RH_num(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
+
+        DO k=1, KLEV
+          DO i=1, KLON
+            tau_ae5wv_int = alpha_aeri_5wv(la,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
+
+      ENDIF
+
+    ENDDO   ! Boucle sur les longueurs d'onde
+  ENDDO     ! Boucle sur les masses de traceurs
+
+  DO m=1,naero_tot
+    IF (.NOT.used_tau(m)) tau(:,:,:,m)=0.
+  ENDDO  
+
+  DO i=1, klon
+     od550aer(i)=0.
+     DO m=1,naero_tot
+        od550aer(i)=od550aer(i)+tausum(i,la550,m)
+     END DO
+  END DO
+
+  DO i=1, klon
+     od670aer(i)=0.
+     DO m=1,naero_tot
+        od670aer(i)=od670aer(i)+tausum(i,la670,m)
+     END DO
+  END DO
+
+  DO i=1, klon
+     od865aer(i)=0.
+     DO m=1,naero_tot
+        od865aer(i)=od865aer(i)+tausum(i,la865,m)
+     END DO
+  END DO
+
+  DO i=1, klon
+     DO k=1, KLEV
+        ec550aer(i,k)=0.
+        DO m=1,naero_tot
+           ec550aer(i,k)=ec550aer(i,k)+tau(i,k,la550,m)/dh(i,k)
+        END DO
+     END DO
+  END DO
+  
+  DO i=1, klon
+    ai(i)=-LOG(MAX(od670aer(i),1.e-8)/MAX(od865aer(i),1.e-8))/LOG(670./865.)
+  ENDDO
+
+  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) 
+  
+END SUBROUTINE AEROPT_5WV_RRTM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90	(revision 3330)
@@ -0,0 +1,546 @@
+!
+! $Id$
+!
+SUBROUTINE AEROPT_6BANDS_RRTM ( &
+     pdel, m_allaer, delt, RHcl, &
+     tau_allaer, piz_allaer, &
+     cg_allaer, m_allaer_pi, &
+     flag_aerosol, zrho )
+
+  USE dimphy
+  USE aero_mod
+  USE phys_local_var_mod, only: absvisaer
+
+  !    Yves Balkanski le 12 avril 2006
+  !    Celine Deandreis
+  !    Anne Cozic Avril 2009
+  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
+  !    Olivier Boucher février 2014 pour passage à RRTM
+  !    a partir des propriétés optiques fournies par Yves Balkanski
+  !
+  IMPLICIT NONE
+
+  INCLUDE "YOMCST.h"
+  INCLUDE "clesphys.h"
+
+  !
+  ! Input arguments:
+  !
+  REAL, DIMENSION(klon,klev),     INTENT(in)  :: pdel
+  REAL,                           INTENT(in)  :: delt
+  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)  :: zrho
+  !
+  ! Output arguments:
+  ! 1= total aerosols 
+  ! 2= natural aerosols
+  !
+  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
+
+  !
+  ! Local
+  !
+  LOGICAL ::  soluble
+  INTEGER :: i, k,n, inu, m
+  INTEGER :: spsol, spinsol
+  INTEGER :: RH_num(klon,klev)
+
+  INTEGER, PARAMETER :: nb_level=19 ! number of vertical levels in DATA
+
+  INTEGER, PARAMETER :: naero_soluble=7    ! 1- BC soluble; 2- POM soluble; 3- SO4. acc. 4- SO4 coarse
+                                           ! 5- seasalt super coarse  6- seasalt coarse   7- seasalt acc.
+  INTEGER, PARAMETER :: naero_insoluble=3  ! 1- Dust; 2- BC insoluble; 3- POM insoluble
+
+  INTEGER, PARAMETER :: nbre_RH=12
+  REAL,PARAMETER :: RH_tab(nbre_RH)=(/0.,10.,20.,30.,40.,50.,60.,70.,80.,85.,90.,95./)
+  REAL, PARAMETER :: RH_MAX=95.
+  REAL :: delta(klon,klev), rh(klon,klev)
+  REAL :: tau_ae2b_int   ! Intermediate computation of epaisseur optique aerosol
+  REAL :: piz_ae2b_int   ! Intermediate computation of Single scattering albedo
+  REAL :: cg_ae2b_int    ! Intermediate computation of Assymetry parameter
+  REAL :: Fact_RH(nbre_RH)
+  REAL :: fac
+  REAL :: zdp1(klon,klev) 
+  INTEGER, ALLOCATABLE, DIMENSION(:)   :: aerosol_name
+  INTEGER :: nb_aer
+
+  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
+
+
+  !
+  ! Proprietes optiques
+  !
+  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
+  LOGICAL :: used_aer(naero_tot)
+  REAL :: tmp_var, tmp_var_pi
+
+!***************************************************************************
+!--the order of the soluble   species has to follow the spsol   index below
+!--the order of the insoluble species has to follow the spinsol index below
+
+  DATA alpha_aers_6bands/  & 
+       ! bc soluble AS
+  6.497, 6.497, 6.497, 6.497, 6.497, 7.160, 7.875, 9.356,10.811,10.974,11.149,12.734, &
+  6.497, 6.497, 6.497, 6.497, 6.497, 7.160, 7.875, 9.356,10.811,10.974,11.149,12.734, &
+  5.900, 5.900, 5.900, 5.900, 5.900, 6.502, 7.151, 8.496, 9.818, 9.965,10.124,11.564, &
+  4.284, 4.284, 4.284, 4.284, 4.284, 4.721, 5.193, 6.169, 7.129, 7.236, 7.352, 8.397, &
+  2.163, 2.163, 2.163, 2.163, 2.163, 2.384, 2.622, 3.115, 3.600, 3.654, 3.712, 4.240, &
+  0.966, 0.966, 0.966, 0.966, 0.966, 1.065, 1.171, 1.392, 1.608, 1.632, 1.658, 1.894, &
+       ! pom soluble AS
+  6.443, 6.443, 6.443, 6.443, 6.443, 7.100, 7.809, 9.277,10.721,10.882,11.056,12.628, &
+  6.443, 6.443, 6.443, 6.443, 6.443, 7.100, 7.809, 9.277,10.721,10.882,11.056,12.628, &
+  4.381, 4.381, 4.381, 4.381, 4.381, 4.828, 5.310, 6.309, 7.290, 7.400, 7.518, 8.587, &
+  1.846, 1.846, 1.846, 1.846, 1.846, 2.034, 2.237, 2.658, 3.072, 3.118, 3.168, 3.618, &
+  0.377, 0.377, 0.377, 0.377, 0.377, 0.415, 0.456, 0.542, 0.627, 0.636, 0.646, 0.738, &
+  0.052, 0.052, 0.052, 0.052, 0.052, 0.057, 0.063, 0.075, 0.087, 0.088, 0.089, 0.102, &
+       ! sulfate AS   
+  6.554, 6.554, 6.554, 7.223, 7.931, 8.665, 9.438,10.736,14.275,17.755,17.755,31.722, &
+  6.554, 6.554, 6.554, 7.223, 7.931, 8.665, 9.438,10.736,14.275,17.755,17.755,31.722, &
+  4.381, 4.381, 4.381, 4.828, 5.301, 5.792, 6.309, 7.176, 9.542,11.868,11.868,21.204, &
+  1.727, 1.727, 1.727, 1.903, 2.090, 2.283, 2.487, 2.829, 3.762, 4.679, 4.679, 8.359, &
+  0.312, 0.312, 0.312, 0.344, 0.378, 0.413, 0.450, 0.511, 0.680, 0.846, 0.846, 1.511, &
+  0.121, 0.121, 0.121, 0.134, 0.147, 0.161, 0.175, 0.199, 0.264, 0.329, 0.329, 0.588, &
+       ! sulfate coarse CS
+  0.693, 0.693, 0.693, 0.764, 0.839, 0.917, 0.999, 1.136, 1.510, 1.879, 1.879, 3.356, &
+  0.693, 0.693, 0.693, 0.764, 0.839, 0.917, 0.999, 1.136, 1.510, 1.879, 1.879, 3.356, &
+  0.715, 0.715, 0.715, 0.788, 0.865, 0.945, 1.029, 1.171, 1.557, 1.936, 1.936, 3.459, &
+  0.736, 0.736, 0.736, 0.811, 0.891, 0.973, 1.060, 1.206, 1.603, 1.994, 1.994, 3.563, &
+  0.711, 0.711, 0.711, 0.783, 0.860, 0.939, 1.023, 1.164, 1.548, 1.925, 1.925, 3.439, &
+  0.602, 0.602, 0.602, 0.664, 0.729, 0.796, 0.867, 0.986, 1.312, 1.631, 1.631, 2.915, &
+        ! seasalt seasalt Super Coarse Soluble (SS)
+  0.214, 0.267, 0.287, 0.310, 0.337, 0.373, 0.421, 0.494, 0.625, 0.742, 0.956, 1.480, &
+  0.217, 0.270, 0.291, 0.314, 0.341, 0.377, 0.426, 0.499, 0.632, 0.751, 0.963, 1.490, &
+  0.221, 0.275, 0.297, 0.320, 0.348, 0.384, 0.434, 0.507, 0.642, 0.762, 0.976, 1.506, &
+  0.230, 0.285, 0.308, 0.331, 0.359, 0.396, 0.447, 0.522, 0.658, 0.780, 0.997, 1.536, &
+  0.250, 0.307, 0.330, 0.354, 0.384, 0.424, 0.477, 0.556, 0.696, 0.822, 1.044, 1.592, &
+  0.279, 0.347, 0.373, 0.401, 0.434, 0.478, 0.537, 0.625, 0.781, 0.918, 1.158, 1.744, &
+        ! seasalt seasalt Coarse Soluble (CS)      
+  0.550, 0.676, 0.724, 0.779, 0.841, 0.925, 1.040, 1.213, 1.523, 1.803, 2.306, 3.535, &
+  0.568, 0.695, 0.744, 0.798, 0.863, 0.950, 1.066, 1.240, 1.556, 1.839, 2.342, 3.588, &
+  0.599, 0.727, 0.779, 0.834, 0.901, 0.993, 1.111, 1.290, 1.612, 1.899, 2.411, 3.669, &
+  0.647, 0.786, 0.841, 0.899, 0.969, 1.069, 1.193, 1.384, 1.717, 2.015, 2.543, 3.842, &
+  0.663, 0.825, 0.889, 0.957, 1.038, 1.126, 1.268, 1.483, 1.862, 2.196, 2.780, 4.183, &
+  0.479, 0.644, 0.711, 0.785, 0.873, 0.904, 1.048, 1.275, 1.692, 2.072, 2.753, 4.430, &
+        ! seasalt seasalt Accumulation Soluble (AS)
+  6.128, 7.564, 8.127, 8.723, 9.421,10.014,11.250,13.113,16.320,19.061,23.675,34.158, &
+  5.080, 6.586, 7.197, 7.856, 8.645, 8.820,10.115,12.140,15.775,18.983,24.499,36.993, &
+  3.290, 4.541, 5.073, 5.663, 6.387, 6.227, 7.339, 9.161,12.645,15.918,21.908,36.673, &
+  1.389, 2.066, 2.371, 2.719, 3.161, 2.970, 3.623, 4.747, 7.064, 9.419,14.120,27.565, &
+  0.309, 0.497, 0.587, 0.693, 0.832, 0.777, 0.986, 1.364, 2.207, 3.136, 5.174,12.065, &
+  0.021, 0.037, 0.045, 0.054, 0.067, 0.065, 0.087, 0.129, 0.230, 0.353, 0.654, 1.885  /
+
+  DATA alpha_aeri_6bands/  & 
+       ! dust insoluble CI
+  0.751, 0.751, 0.769, 0.772, 0.672, 0.437, &
+       ! bc insoluble AI
+  6.497, 6.497, 5.900, 4.284, 2.163, 0.966, &
+       ! pom insoluble AI
+  6.443, 6.443, 4.381, 1.846, 0.377, 0.052 /
+
+  DATA cg_aers_6bands/ &
+       ! bc soluble AS
+  0.721, 0.721, 0.721, 0.729, 0.735, 0.741, 0.746, 0.754, 0.762, 0.766, 0.769, 0.775, &
+  0.721, 0.721, 0.721, 0.729, 0.735, 0.741, 0.746, 0.754, 0.762, 0.766, 0.769, 0.775, &
+  0.643, 0.643, 0.643, 0.654, 0.662, 0.670, 0.677, 0.688, 0.698, 0.704, 0.707, 0.715, &
+  0.513, 0.513, 0.513, 0.522, 0.530, 0.536, 0.542, 0.552, 0.560, 0.565, 0.568, 0.575, &
+  0.321, 0.321, 0.321, 0.323, 0.325, 0.327, 0.328, 0.331, 0.333, 0.334, 0.335, 0.337, &
+  0.153, 0.153, 0.153, 0.149, 0.145, 0.142, 0.139, 0.135, 0.130, 0.128, 0.127, 0.123, &
+       ! pom soluble AS
+  0.687, 0.687, 0.687, 0.687, 0.687, 0.700, 0.710, 0.726, 0.736, 0.737, 0.738, 0.745, &
+  0.687, 0.687, 0.687, 0.687, 0.687, 0.700, 0.710, 0.726, 0.736, 0.737, 0.738, 0.745, &
+  0.658, 0.658, 0.658, 0.658, 0.658, 0.667, 0.674, 0.685, 0.692, 0.692, 0.693, 0.698, &
+  0.564, 0.564, 0.564, 0.564, 0.564, 0.566, 0.568, 0.571, 0.573, 0.573, 0.573, 0.574, &
+  0.363, 0.363, 0.363, 0.363, 0.363, 0.360, 0.357, 0.352, 0.350, 0.349, 0.349, 0.347, &
+  0.142, 0.142, 0.142, 0.142, 0.142, 0.139, 0.137, 0.133, 0.131, 0.131, 0.130, 0.129, &
+       ! sulfate AS 
+  0.675, 0.675, 0.675, 0.689, 0.701, 0.711, 0.720, 0.735, 0.748, 0.756, 0.760, 0.771, &
+  0.675, 0.675, 0.675, 0.689, 0.701, 0.711, 0.720, 0.735, 0.748, 0.756, 0.760, 0.771, &
+  0.653, 0.653, 0.653, 0.662, 0.670, 0.676, 0.683, 0.692, 0.701, 0.706, 0.709, 0.716, &
+  0.563, 0.563, 0.563, 0.565, 0.567, 0.569, 0.570, 0.573, 0.575, 0.576, 0.577, 0.579, &
+  0.362, 0.362, 0.362, 0.359, 0.356, 0.354, 0.352, 0.348, 0.345, 0.343, 0.342, 0.340, &
+  0.137, 0.137, 0.137, 0.135, 0.133, 0.132, 0.130, 0.128, 0.126, 0.125, 0.124, 0.122, &
+       ! sulfate coarse CS
+  0.803, 0.803, 0.803, 0.792, 0.783, 0.776, 0.769, 0.758, 0.747, 0.742, 0.738, 0.730, &
+  0.803, 0.803, 0.803, 0.792, 0.783, 0.776, 0.769, 0.758, 0.747, 0.742, 0.738, 0.730, &
+  0.799, 0.799, 0.799, 0.787, 0.777, 0.768, 0.760, 0.747, 0.736, 0.729, 0.725, 0.716, &
+  0.797, 0.797, 0.797, 0.782, 0.770, 0.760, 0.750, 0.735, 0.722, 0.714, 0.709, 0.698, &
+  0.810, 0.810, 0.810, 0.794, 0.781, 0.770, 0.759, 0.743, 0.728, 0.719, 0.714, 0.702, &
+  0.803, 0.803, 0.803, 0.790, 0.779, 0.770, 0.762, 0.748, 0.736, 0.729, 0.725, 0.715, &
+        ! seasalt seasalt Super Coarse Soluble (SS)
+  0.797, 0.800, 0.801, 0.802, 0.804, 0.822, 0.825, 0.828, 0.832, 0.835, 0.838, 0.843, &
+  0.788, 0.792, 0.794, 0.795, 0.796, 0.815, 0.818, 0.822, 0.827, 0.829, 0.833, 0.838, &
+  0.773, 0.778, 0.780, 0.782, 0.783, 0.802, 0.806, 0.811, 0.817, 0.820, 0.825, 0.832, &
+  0.746, 0.753, 0.755, 0.759, 0.760, 0.781, 0.787, 0.792, 0.800, 0.805, 0.811, 0.820, &
+  0.706, 0.714, 0.716, 0.720, 0.722, 0.749, 0.753, 0.761, 0.769, 0.774, 0.783, 0.797, &
+  0.681, 0.682, 0.682, 0.683, 0.684, 0.723, 0.727, 0.732, 0.738, 0.741, 0.748, 0.757, &
+        ! seasalt seasalt Coarse Soluble (CS)      
+  0.756, 0.761, 0.764, 0.766, 0.769, 0.790, 0.793, 0.799, 0.805, 0.810, 0.815, 0.823, &
+  0.736, 0.743, 0.747, 0.749, 0.751, 0.773, 0.778, 0.784, 0.793, 0.797, 0.804, 0.815, &
+  0.712, 0.719, 0.721, 0.725, 0.726, 0.752, 0.758, 0.764, 0.773, 0.779, 0.786, 0.800, &
+  0.690, 0.694, 0.695, 0.698, 0.699, 0.731, 0.738, 0.742, 0.751, 0.756, 0.764, 0.776, &
+  0.682, 0.683, 0.683, 0.683, 0.684, 0.725, 0.729, 0.733, 0.737, 0.740, 0.744, 0.752, &
+  0.669, 0.673, 0.674, 0.675, 0.676, 0.718, 0.724, 0.730, 0.736, 0.739, 0.742, 0.746, &
+        ! seasalt seasalt Accumulation Soluble (AS)
+  0.694, 0.692, 0.692, 0.691, 0.689, 0.737, 0.740, 0.742, 0.742, 0.740, 0.737, 0.731, &
+  0.685, 0.690, 0.691, 0.692, 0.692, 0.735, 0.741, 0.746, 0.750, 0.751, 0.750, 0.744, &
+  0.650, 0.662, 0.666, 0.670, 0.673, 0.710, 0.719, 0.729, 0.741, 0.747, 0.754, 0.757, &
+  0.561, 0.585, 0.593, 0.601, 0.609, 0.637, 0.651, 0.669, 0.691, 0.705, 0.723, 0.745, &
+  0.392, 0.427, 0.439, 0.451, 0.464, 0.480, 0.500, 0.526, 0.563, 0.588, 0.621, 0.671, &
+  0.144, 0.170, 0.179, 0.189, 0.201, 0.207, 0.224, 0.248, 0.285, 0.315, 0.359, 0.439 /
+
+  DATA cg_aeri_6bands/ &
+       ! dust insoluble CI
+  0.718, 0.718, 0.699, 0.661, 0.676, 0.670, &
+       ! bc insoluble AI
+  0.721, 0.721, 0.643, 0.513, 0.321, 0.153, &
+       ! pom insoluble AI
+  0.687, 0.687, 0.658, 0.564, 0.363, 0.142  /
+
+  DATA piz_aers_6bands/&
+       ! bc soluble AS
+  0.460, 0.460, 0.460, 0.460, 0.460, 0.534, 0.594, 0.688, 0.748, 0.754, 0.760, 0.803, &
+  0.460, 0.460, 0.460, 0.460, 0.460, 0.534, 0.594, 0.688, 0.748, 0.754, 0.760, 0.803, &
+  0.445, 0.445, 0.445, 0.445, 0.445, 0.521, 0.583, 0.679, 0.741, 0.747, 0.753, 0.798, &
+  0.394, 0.394, 0.394, 0.394, 0.394, 0.477, 0.545, 0.649, 0.718, 0.724, 0.730, 0.779, &
+  0.267, 0.267, 0.267, 0.267, 0.267, 0.365, 0.446, 0.571, 0.652, 0.660, 0.667, 0.725, &
+  0.121, 0.121, 0.121, 0.121, 0.121, 0.139, 0.155, 0.178, 0.193, 0.195, 0.196, 0.207, &
+       ! pom soluble AS
+  0.973, 0.973, 0.973, 0.973, 0.973, 0.977, 0.980, 0.984, 0.987, 0.988, 0.988, 0.990, &
+  0.973, 0.973, 0.973, 0.973, 0.973, 0.977, 0.980, 0.984, 0.987, 0.988, 0.988, 0.990, &
+  0.972, 0.972, 0.972, 0.972, 0.972, 0.976, 0.979, 0.984, 0.987, 0.987, 0.988, 0.990, &
+  0.940, 0.940, 0.940, 0.940, 0.940, 0.948, 0.955, 0.965, 0.972, 0.973, 0.973, 0.978, &
+  0.816, 0.816, 0.816, 0.816, 0.816, 0.839, 0.859, 0.888, 0.908, 0.910, 0.911, 0.925, &
+  0.663, 0.663, 0.663, 0.663, 0.663, 0.607, 0.562, 0.492, 0.446, 0.441, 0.437, 0.404, &
+       ! sulfate AS
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  0.988, 0.988, 0.988, 0.989, 0.990, 0.990, 0.991, 0.992, 0.993, 0.993, 0.994, 0.994, &
+  0.256, 0.256, 0.256, 0.263, 0.268, 0.273, 0.277, 0.284, 0.290, 0.294, 0.296, 0.301, &
+       ! sulfate coarse CS
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  0.996, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, 0.996, &
+  0.877, 0.877, 0.877, 0.873, 0.870, 0.867, 0.864, 0.860, 0.856, 0.854, 0.852, 0.849, &
+        ! seasalt seasalt Super Coarse Soluble (SS)
+  0.983, 0.982, 0.982, 0.982, 0.982, 0.992, 0.993, 0.994, 0.995, 0.996, 0.997, 0.998, &
+  0.984, 0.983, 0.983, 0.983, 0.983, 0.993, 0.994, 0.995, 0.996, 0.996, 0.997, 0.998, &
+  0.986, 0.985, 0.985, 0.985, 0.984, 0.993, 0.994, 0.995, 0.996, 0.997, 0.997, 0.998, &
+  0.989, 0.988, 0.988, 0.988, 0.987, 0.995, 0.996, 0.996, 0.997, 0.997, 0.998, 0.999, &
+  0.994, 0.993, 0.992, 0.992, 0.992, 0.997, 0.997, 0.998, 0.998, 0.998, 0.999, 0.999, &
+  0.997, 0.997, 0.997, 0.996, 0.996, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 1.000, &
+        ! seasalt seasalt Coarse Soluble (CS)      
+  0.988, 0.987, 0.987, 0.987, 0.986, 0.995, 0.995, 0.996, 0.997, 0.997, 0.998, 0.999, &
+  0.990, 0.989, 0.989, 0.989, 0.989, 0.995, 0.996, 0.997, 0.997, 0.998, 0.998, 0.999, &
+  0.993, 0.992, 0.992, 0.992, 0.991, 0.997, 0.997, 0.997, 0.998, 0.998, 0.998, 0.999, &
+  0.996, 0.995, 0.995, 0.995, 0.994, 0.998, 0.998, 0.998, 0.999, 0.999, 0.999, 0.999, &
+  0.998, 0.997, 0.997, 0.997, 0.997, 0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 1.000, &
+  0.999, 0.998, 0.998, 0.998, 0.998, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, 1.000, &
+        ! seasalt seasalt Accumulation Soluble (AS)
+  0.999, 0.998, 0.998, 0.998, 0.998, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  0.999, 0.999, 0.999, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  0.999, 0.999, 0.999, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  0.999, 0.999, 0.999, 0.999, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, &
+  0.997, 0.998, 0.998, 0.998, 0.998, 0.999, 0.999, 0.999, 1.000, 1.000, 1.000, 1.000, &
+  0.985, 0.989, 0.990, 0.990, 0.991, 0.996, 0.997, 0.998, 0.999, 0.999, 0.999, 1.000 /
+
+  DATA piz_aeri_6bands/ &
+       ! dust insoluble CI
+  0.954, 0.954, 0.965, 0.981, 0.996, 0.990, &
+       ! bc insoluble AI
+  0.460, 0.460, 0.445, 0.394, 0.267, 0.121, &
+       ! pom insoluble AI
+  0.973, 0.973, 0.972, 0.940, 0.816, 0.663 /
+
+!----BEGINNING OF CALCULATIONS
+
+  spsol = 0
+  spinsol = 0 
+  IF (NSW.NE.nbands_sw_rrtm) THEN
+     print *,'Erreur NSW doit etre egal a 6 pour cette routine'
+     stop
+  ENDIF
+
+  DO k=1, klev
+    DO i=1, klon
+!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
+  ENDDO
+
+  IF (flag_aerosol .EQ. 1) THEN 
+     nb_aer = 2
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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_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_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_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_phy
+  ELSEIF (flag_aerosol .EQ. 6) THEN 
+     nb_aer = 10
+     ALLOCATE (aerosol_name(nb_aer)) 
+     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
+
+  !
+  ! loop over modes, use of precalculated nmd and corresponding sigma
+  !    loop over wavelengths
+  !    for each mass species in mode
+  !      interpolate from Sext to retrieve Sext_at_gridpoint_per_species
+  !      compute optical_thickness_at_gridpoint_per_species
+
+!!CDIR ON_ADB(RH_tab)
+!CDIR ON_ADB(fact_RH)
+!CDIR SHORTLOOP
+  DO n=1,nbre_RH-1
+    fact_RH(n)=1./(RH_tab(n+1)-RH_tab(n))
+  ENDDO
+   
+  DO k=1, KLEV
+!CDIR ON_ADB(fact_RH)
+    DO i=1, KLON
+      rh(i,k)=MIN(RHcl(i,k)*100.,RH_MAX)
+      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
+      delta(i,k)=(rh(i,k)-RH_tab(RH_num(i,k)))*fact_RH(RH_num(i,k))
+    ENDDO
+  ENDDO
+
+  used_aer(:)=.FALSE.
+    
+  DO m=1,nb_aer   ! tau is only computed for each mass
+     fac=1.0
+     IF (aerosol_name(m).EQ.id_ASBCM_phy) THEN
+        soluble=.TRUE.
+        spsol=1
+     ELSEIF (aerosol_name(m).EQ.id_ASPOMM_phy) THEN 
+        soluble=.TRUE.
+        spsol=2 
+     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_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_phy) THEN 
+         soluble=.TRUE.
+         spsol=5
+     ELSEIF (aerosol_name(m).EQ.id_CSSSM_phy) THEN 
+         soluble=.TRUE.
+         spsol=6
+     ELSEIF (aerosol_name(m).EQ.id_ASSSM_phy) THEN
+         soluble=.TRUE.
+         spsol=7
+     ELSEIF (aerosol_name(m).EQ.id_CIDUSTM_phy) THEN 
+         soluble=.FALSE.
+         spinsol=1
+     ELSEIF  (aerosol_name(m).EQ.id_AIBCM_phy) THEN 
+         soluble=.FALSE.
+         spinsol=2
+     ELSEIF (aerosol_name(m).EQ.id_AIPOMM_phy) THEN 
+         soluble=.FALSE.
+         spinsol=3
+     ELSE 
+         CYCLE
+     ENDIF
+
+    id=aerosol_name(m)
+    used_aer(id)=.TRUE.
+
+    IF (soluble) THEN
+
+       DO k=1, KLEV
+         DO i=1, KLON
+           tmp_var=mass_temp(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+           tmp_var_pi=mass_temp_pi(i,k,spsol)*1000.*zdp1(i,k)*delt*fac
+
+           DO inu=1,NSW
+
+             tau_ae2b_int= alpha_aers_6bands(RH_num(i,k),inu,spsol)+ & 
+                           delta(i,k)* (alpha_aers_6bands(RH_num(i,k)+1,inu,spsol) - & 
+                           alpha_aers_6bands(RH_num(i,k),inu,spsol))
+                   
+             piz_ae2b_int = piz_aers_6bands(RH_num(i,k),inu,spsol) + & 
+                            delta(i,k)* (piz_aers_6bands(RH_num(i,k)+1,inu,spsol) - & 
+                            piz_aers_6bands(RH_num(i,k),inu,spsol))
+                   
+             cg_ae2b_int = cg_aers_6bands(RH_num(i,k),inu,spsol) + & 
+                           delta(i,k)* (cg_aers_6bands(RH_num(i,k)+1,inu,spsol) - & 
+                           cg_aers_6bands(RH_num(i,k),inu,spsol))
+
+             tau_ae(i,k,id,inu)    = tmp_var*tau_ae2b_int
+             tau_ae_pi(i,k,id,inu) = tmp_var_pi* tau_ae2b_int
+             piz_ae(i,k,id,inu)    = piz_ae2b_int
+             cg_ae(i,k,id,inu)     = cg_ae2b_int
+                      
+           ENDDO
+         ENDDO
+       ENDDO
+        
+     ELSE    ! For all aerosol insoluble components
+
+       DO k=1, KLEV
+         DO i=1, KLON
+           tmp_var=mass_temp(i,k,naero_soluble+ spinsol)*1000.*zdp1(i,k)*delt*fac
+           tmp_var_pi=mass_temp_pi(i,k,naero_soluble+spinsol)*1000.*zdp1(i,k)*delt*fac
+
+           DO inu=1,NSW
+             tau_ae2b_int = alpha_aeri_6bands(inu,spinsol)
+             piz_ae2b_int = piz_aeri_6bands(inu,spinsol)
+             cg_ae2b_int = cg_aeri_6bands(inu,spinsol) 
+
+             tau_ae(i,k,id,inu) = tmp_var*tau_ae2b_int
+             tau_ae_pi(i,k,id,inu) = tmp_var_pi*tau_ae2b_int
+             piz_ae(i,k,id,inu) = piz_ae2b_int
+             cg_ae(i,k,id,inu)= cg_ae2b_int
+           ENDDO
+         ENDDO
+       ENDDO
+
+     ENDIF ! soluble / insoluble
+
+  ENDDO  ! nb_aer  
+
+  DO m=1,naero_tot
+    IF (.NOT. used_aer(m)) THEN
+      tau_ae(:,:,m,:)=0.
+      tau_ae_pi(:,:,m,:)=0.
+      piz_ae(:,:,m,:)=0.
+      cg_ae(:,:,m,:)=0.
+    ENDIF
+  ENDDO
+
+  DO inu=1, NSW 
+     DO k=1, KLEV
+       DO i=1, KLON
+!--anthropogenic aerosol
+         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-15)
+
+         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.01)
+
+         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_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-15)
+
+         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.01)
+
+         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))
+
+        ENDDO
+      ENDDO
+    ENDDO
+   
+!--???????
+  inu=1
+  DO i=1, KLON
+     absvisaer(i)=SUM((1-piz_allaer(i,:,:,inu))*tau_allaer(i,:,:,inu))
+  END DO	
+
+  DEALLOCATE(aerosol_name) 
+
+END SUBROUTINE AEROPT_6BANDS_RRTM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_lw_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_lw_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/aeropt_lw_rrtm.F90	(revision 3330)
@@ -0,0 +1,108 @@
+!
+! aeropt_lw_rrtm.F90 2014-05-13 C. Kleinschmitt
+!                    2016-05-03 O. Boucher 
+!
+! This routine feeds aerosol LW properties to RRTM
+! we only consider absorption (not scattering)
+
+SUBROUTINE AEROPT_LW_RRTM(aerosol_couple,paprs,tr_seri)
+
+  USE dimphy
+  USE aero_mod
+  USE infotrac_phy
+  USE phys_state_var_mod, ONLY : tau_aero_lw_rrtm
+  USE YOERAD, ONLY : NLW
+
+  IMPLICIT NONE
+
+  INCLUDE "YOMCST.h"
+  INCLUDE "clesphys.h"
+  !
+  ! Input arguments:
+  !
+  LOGICAL, INTENT(IN)                         :: aerosol_couple
+  REAL, DIMENSION(klon,klev+1), INTENT(in)    :: paprs
+  REAL, DIMENSION(klon,klev,nbtr), INTENT(in) :: tr_seri
+  !
+  REAL, DIMENSION(klon,klev) :: zdp, mass_temp
+  ! 
+  !
+  INTEGER inu, i, k
+  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
+
+  !
+  !--absorption coefficient for CIDUST
+  REAL:: alpha_abs_CIDUST_16bands(nbands_lw_rrtm)   !--unit m2/g 
+  DATA alpha_abs_CIDUST_16bands /              & 
+       0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 
+       0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0  /
+  !
+  IF (NLW.NE.nbands_lw_rrtm) THEN
+     print *,'Erreur NLW doit etre egal a 16 pour cette routine'
+     stop
+  ENDIF
+  ! 
+  IF (aerosol_couple) THEN 
+  ! 
+      do i=1,nbtr
+      select case(trim(solsym(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
+    !
+    DO k=1, klev
+       zdp(:,k) = (paprs(:,k)-paprs(:,k+1))/RG !--kg/m2
+    ENDDO
+    !
+    !--for now only consider dust
+    mass_temp(:,:)=tr_seri(:,:,id_CIDUSTM)  !--kg/kg
+    !
+    DO inu=1,NLW
+      !
+      !--total aerosol
+      tau_aero_lw_rrtm(:,:,2,inu) = mass_temp(:,:)*zdp(:,:)*1000.*alpha_abs_CIDUST_16bands(inu)
+      !--no aerosol at all
+      tau_aero_lw_rrtm(:,:,1,inu) = 0.0
+      !
+    ENDDO
+    !
+    !--avoid very small values
+    tau_aero_lw_rrtm = MAX(tau_aero_lw_rrtm,1.e-15)
+    ! 
+  ELSE !--not aerosol_couple
+    !
+    !--no LW effects if not coupled to INCA
+    tau_aero_lw_rrtm = 1.e-15
+  ENDIF
+  !
+END SUBROUTINE AEROPT_LW_RRTM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/cpledn_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/cpledn_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/cpledn_mod.F90	(revision 3330)
@@ -0,0 +1,164 @@
+MODULE CPLEDN_MOD
+CONTAINS
+SUBROUTINE CPLEDN(KN,KDBLE,PX,DDX,KFLAG,PW,PXN,DDXN,PXMOD)
+
+!**** *CPLEDN* - Routine to compute the Legendre polynomial of degree N
+
+!     Purpose.
+!     --------
+!           Computes Legendre polynomial of degree N
+
+!**   Interface.
+!     ----------
+!        *CALL* *CPLEDN(KN,KDBLE,PX,DDX,KFLAG,PW,PXN,DDXN,PXMOD)*
+
+!        Explicit arguments :
+!        --------------------
+!              KN       :  Degree of the Legendre polynomial
+!              KDBLE    :  0, single precision
+!                          1, double precision
+!              PX       :  abcissa where the computations are performed
+!              DDX      :  id in double precision
+!              KFLAG    :  When KFLAG.EQ.1 computes the weights
+!              PW       :  Weight of the quadrature at PXN
+!              PXN      :  new abscissa (Newton iteration)
+!              DDXN     :  id in double precision
+!              PXMOD    :  PXN-PX
+
+!        Implicit arguments :
+!        --------------------
+!       None
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+!        None
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        Michel Rochas, 90-08-30 (Lobatto+cleaning)
+!     ------------------------------------------------------------------
+
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARKIND2  ,ONLY : JPRH
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER(KIND=JPIM) :: KDBLE
+INTEGER(KIND=JPIM) :: KFLAG
+INTEGER(KIND=JPIM) :: KN
+
+!     DUMMY REAL SCALARS
+REAL(KIND=JPRB) :: PW
+REAL(KIND=JPRB) :: PX
+REAL(KIND=JPRB) :: PXMOD
+REAL(KIND=JPRB) :: PXN
+
+
+REAL(KIND=JPRH) :: DDX,DDXN,DLX,DLK,DLKM1,DLKM2,DLLDN,DLXN,DLMOD
+REAL(KIND=JPRH) :: DLG,DLGDN
+
+INTEGER(KIND=JPIM), PARAMETER :: JPKS=KIND(PX)
+INTEGER(KIND=JPIM), PARAMETER :: JPKD=KIND(DDX)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: IZN, JN
+
+!     LOCAL REAL SCALARS
+REAL(KIND=JPRB) :: ZG, ZGDN, ZK, ZKM1, ZKM2, ZLDN, ZMOD, ZX, ZXN
+
+
+!      -----------------------------------------------------------------
+
+!*       1. Single precision computations.
+!           ------------------------------
+
+IZN = KN
+
+ZK = 0.0_JPRB
+DLK = 0.0_JPRB
+DLXN = 0.0_JPRB
+IF(KDBLE == 0)THEN
+
+!*       1.1   NEWTON ITERATION STEP.
+
+  ZKM2 = 1
+  ZKM1 = PX
+  ZX   = PX
+  DO JN=2,IZN
+    ZK = (REAL(2*JN-1,JPRB)*ZX*ZKM1-REAL(JN-1,JPRB)*ZKM2)/REAL(JN,JPRB)
+    ZKM2 = ZKM1
+    ZKM1 = ZK
+  ENDDO
+  ZKM1 = ZKM2
+  ZLDN = (REAL(KN,JPRB)*(ZKM1-ZX*ZK))/(1.0_JPRB-ZX*ZX)
+  ZMOD = -ZK/ZLDN
+  ZXN = ZX+ZMOD
+  PXN = ZXN
+  DDXN = REAL(ZXN,JPKD)
+  PXMOD = ZMOD
+
+!     ------------------------------------------------------------------
+
+!*         2.    Double precision computations.
+!                ------------------------------
+
+ELSE
+
+!*       2.1   NEWTON ITERATION STEP.
+
+  DLKM2 = 1.0_JPRB
+  DLKM1 = DDX
+  DLX = DDX
+  DO JN=2,IZN
+    DLK = (REAL(2*JN-1,JPKD)*DLX*DLKM1-REAL(JN-1,JPKD)*DLKM2)/REAL(JN,JPKD)
+    DLKM2 = DLKM1
+    DLKM1 = DLK
+  ENDDO
+  DLKM1 = DLKM2
+  DLLDN = (REAL(KN,JPKD)*(DLKM1-DLX*DLK))/(1.0_JPRB-DLX*DLX)
+  DLMOD = -DLK/DLLDN
+  DLXN = DLX+DLMOD
+  PXN = REAL(DLXN,JPKS)
+  DDXN = DLXN
+  PXMOD = REAL(DLMOD,JPKS)
+ENDIF
+!     ------------------------------------------------------------------
+
+!*         3.    Computes weight.
+!                ----------------
+
+
+IF(KFLAG == 1)THEN
+  DLKM2 = 1.0_JPRB
+  DLKM1 = DLXN
+  DLX = DLXN
+  DO JN=2,IZN
+    DLK = (REAL(2*JN-1,JPKD)*DLX*DLKM1-REAL(JN-1,JPKD)*DLKM2)/REAL(JN,JPKD)
+    DLKM2 = DLKM1
+    DLKM1 = DLK
+  ENDDO
+  DLKM1 = DLKM2
+  PW = REAL((1.0_JPRB-DLX*DLX)/(REAL(KN*KN,JPKD)*DLKM1*DLKM1),JPKS)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE CPLEDN
+END MODULE CPLEDN_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/dates.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/dates.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/dates.F90	(revision 3330)
@@ -0,0 +1,1202 @@
+subroutine dates_demo
+! --------------------------------------------------------------
+!
+! Conseils a l'utilisateur:
+!
+! 1. VOUS COMPILEZ LES ENTIERS EN 32 BITS:
+! Utilisez alors les routines
+! - ecartds: Ecart en secondes entre deux dates.
+! - ecartdj: Ecart en jours entre deux dates.
+! - dapluss: Date dans n secondes.
+! - daplusj: Date dans n jours.
+! - qqmmaa: Conversion d'un entier type AAAAQQMM vers une date en clair.
+! - ijoursem: Jour de la semaine de la date d'entree.
+! - quant: quantieme de l'annee d'une date donnee.
+! Ces routines sont compatibles avec des entiers 32 bits.
+! En effet elles appelent les routines citees ci-dessous, mais avec
+! les parametres subsequents assurant que seuls des entiers
+! representables en 32 bits y soient utilises.
+!
+! 2. VOUS COMPILEZ LES ENTIERS EN 64 BITS:
+! Vous pouvez alors utiliser toutes les routines ci-dessus
+! plus les suivantes, qui traitent des formats de dates
+! en entree/sortie en JOURS, HEURES, MINUTES ou SECONDES:
+! - ecartd: Ecart entre deux dates.
+! - gregod: Conversion Date > Ecart par rapport a une date fixe.
+! - gregoi: Conversion Ecart par rapport a une date fixe > Date.
+! - daplus: Quelle sera la date dans n jours (ou heures, etc...)?
+! - amqhms_vers_dj: Conversion date grégorienne (en 5 entiers et un réel) > date julienne.
+! - dj_vers_amqhms: Conversion date julienne > date grégorienne (en 5 entiers et un réel).
+! - amqhmsree_vers_dj: Conversion date grégorienne (en un seul réel) > date julienne.
+! - dj_vers_amqhmsree: Conversion date julienne > date grégorienne (en un seul réel).
+!
+! --------------------------------------------------------------
+!
+! Définition des dates employées ci-dessous:
+!
+! Date julienne DJ:
+!       Elle est composée d'un réel.
+!       R1: Ce réel croît de 1 tous les jours,
+!               et vaut 2451545.0 le 1er janvier 2000 à 12 UTC.
+!
+! Date grégorienne "en clair" AMQHMS:
+!       Elle est composée de 5 entiers et d'un réel.
+!       E1: Année (4 chiffres!)
+!       E2: Mois
+!       E3: Jour
+!       E4: Heure
+!       E5: Minute
+!       R1: Seconde
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+end
+subroutine date_plus_ech(kan,kmo,kqu,psssss,pstati,cdtit)
+! --------------------------------------------------------------
+! Ecriture en clair d'une date de type BASE 2000.01.15 00:00 +72H VALID 2000.01.18 15:00.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   2000-09, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! kan,kmo,kqu,psssss,pstati
+! En sortie:
+! cdtit
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: kan,kmo,kqu,ihe,imi,imiv,ihev,iquv,imov,ianv,ilze
+REAL(KIND=8) :: psssss,pstati
+REAL(KIND=8) :: zs
+REAL(KIND=8) :: zsssss,zdj,zsv
+REAL(KIND=8) :: zech
+character*200 clzue,clze,clech
+character *(*) cdtit
+!
+!-------------------------------------------------
+! Date de validité.
+!-------------------------------------------------
+!
+zs=0.
+zsssss=psssss/3600.
+ihe=int(zsssss) ! heure de la base.
+zsssss=(zsssss-real(ihe))*60.
+imi=int(zsssss) ! minute de la base.
+zsssss=zsssss-real(imi)
+call amqhms_vers_dj(kan,kmo,kqu,ihe,imi,zs,zdj)
+zdj=zdj+pstati/86400. ! date julienne de validité.
+call dj_vers_amqhms(zdj,ianv,imov,iquv,ihev,imiv,zsv) ! date grégorienne de validité.
+if(pstati < 3600.) then
+!
+!-------------------------------------------------
+! Echéance en minutes.
+!-------------------------------------------------
+!
+	zech=pstati/60. ; clzue='mn'
+elseif(pstati < 259200.) then
+!
+!-------------------------------------------------
+! Echéance en heures.
+!-------------------------------------------------
+!
+	zech=pstati/3600. ; clzue='h'
+else
+!
+!-------------------------------------------------
+! Echéance en jours.
+!-------------------------------------------------
+!
+	zech=pstati/86400. ; clzue='j'
+endif
+!
+! Affichage de l'echeance avec deux chiffres apres la virgule.
+!
+write(clze,fmt='(f9.2)') zech
+!
+! Si l'echeance est voisine d'un entier a mieux que 10**-2 pres,
+! on l'affiche au format entier.
+!
+if(clze(len_trim(clze)-2:len_trim(clze)) == '.00') then
+	clze=clze(1:len_trim(clze)-3)
+endif
+clze=adjustl(clze)
+ilze=len_trim(clze)
+clech=clze(1:ilze)//clzue
+!
+!-------------------------------------------------
+! Titre 3, de type
+! BASE 2000.01.15 00:00 +72H VALID 2000.01.18 15:00.
+!-------------------------------------------------
+!
+if(imi == 0 .and. imiv == 0) then
+!
+!-------------------------------------------------
+! Les minutes de base et validité sont nulles.
+! On ne les affiche pas.
+!-------------------------------------------------
+!
+	write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a)')&
+	&'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,'h UTC + ',clech(1:len_trim(clech))&
+	&,', VALID ',iquv,'.',imov,'.',ianv,' ',ihev,'h UTC'
+else
+!
+!-------------------------------------------------
+! Les minutes de base ou validité sont non nulles.
+! On les affiche.
+!-------------------------------------------------
+!
+	write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,a)')&
+	&'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,':',imi,' UTC + ',clech(1:len_trim(clech))&
+	&,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
+endif
+end
+subroutine datc(kaaaa,kmm,kqq,khh,kmi,kss,kjs,cdjs,cddt)
+! --------------------------------------------------------------
+! **** *datc* Date courante machine.
+! --------------------------------------------------------------
+! Sujet:
+! ------
+! Arguments explicites:
+! ---------------------
+! Arguments implicites:
+! ---------------------
+! Methode:
+! --------
+! Externes:
+! ---------
+! Auteur:   95-05, J.M. Piriou.
+! -------
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! En sortie:
+! kaaaa      annee.
+! kmm      mois.
+! kqq      quantieme.
+! khh      heure.
+! kmi      minute.
+! kss      seconde.
+! kjs      jour de la semaine (0: dimanche, 6 samedi).
+! cdjs      jour de la semaine sur 3 caracteres (Dim, Lun, etc...).
+! cddt      date totale (19950301-Mer-16:56:32).
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: idatat(8)
+INTEGER(KIND=4) :: kjs
+INTEGER(KIND=4) :: kss
+INTEGER(KIND=4) :: kmi
+INTEGER(KIND=4) :: khh
+INTEGER(KIND=4) :: kqq
+INTEGER(KIND=4) :: kmm
+INTEGER(KIND=4) :: kaaaa
+INTEGER(KIND=4) :: iaaaammqq
+INTEGER(KIND=4) :: ijoursem
+REAL(KIND=8) :: zs
+character*200 clgol1,clgol2,clgol3
+character*3 cdjs
+character*(*) cddt
+character*3 cljour(0:6)
+data cljour/'Dim','Lun','Mar','Mer','Jeu','Ven','Sam'/
+!
+!-------------------------------------------------
+! Date courante à la f90.
+!-------------------------------------------------
+!
+clgol1=' '
+clgol2=' '
+clgol3=' '
+call date_and_time(clgol1,clgol2,clgol3,idatat)
+!
+!-------------------------------------------------
+! clgol1 est du type "AAAAMMQQ".
+!-------------------------------------------------
+!
+read(clgol1,fmt='(i4,2i2)') kaaaa,kmm,kqq
+!
+!-------------------------------------------------
+! clgol2 est du type "HHMMSS.SSS".
+!-------------------------------------------------
+!
+read(clgol2,fmt='(2i2)') khh,kmi
+read(clgol2(5:),fmt=*) zs
+kss=nint(zs)
+read(clgol1,fmt='(i8)') iaaaammqq
+!
+!-------------------------------------------------
+! Jour de la semaine.
+!-------------------------------------------------
+!
+kjs=ijoursem(iaaaammqq)
+cdjs=cljour(kjs)
+!
+!-------------------------------------------------
+! Date totale.
+!-------------------------------------------------
+!
+write(cddt,fmt='(i4.4,a,2(i2.2,a),2a,i2.2,a,i2.2,a,i2.2)') &
+&kaaaa,'_',kmm,'_',kqq,'_',cdjs,'_',khh,':',kmi,':',kss
+end
+subroutine amqhms_vers_dj(kaaaa,kmm,kqq,khh,kmn,ps,pdj)
+! --------------------------------------------------------------------------
+! **** *amqhms_vers_dj*
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 1999-08-17, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! kaaaa année (4 chiffres!)
+! kmm   mois
+! kqq   quantième du mois
+! khh   heure
+! kmn   minute
+! ps    seconde
+! En sortie:
+! pdj date julienne associée à la date grégorienne UTC d'entrée
+! --------------------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IDATE1
+INTEGER(KIND=4) :: IDATE2
+INTEGER(KIND=4) :: IECART
+INTEGER(KIND=4) :: KAAAA
+INTEGER(KIND=4) :: KHH
+INTEGER(KIND=4) :: KMM
+INTEGER(KIND=4) :: KMN
+INTEGER(KIND=4) :: KQQ
+REAL(KIND=8) :: PDJ
+REAL(KIND=8) :: PS
+
+idate1=20000101
+idate2=kaaaa*10000+kmm*100+kqq
+!
+!-------------------------------------------------
+! Nombre de jours écoulés entre la date
+! d'entrée à 0h UTC et le 1er janvier 2000 à 0h UTC.
+!-------------------------------------------------
+!
+call ecartdj(idate1,idate2,iecart)
+!
+!-------------------------------------------------
+! Date julienne.
+!-------------------------------------------------
+!
+pdj=2451545.0- 0.5 +real(iecart)+real(khh)/24. &
+& +real(kmn)/1440.+ps/86400.
+end
+subroutine daplus(kdat1,kopt,kdelt,kdat2)
+! --------------------------------------------------------------------------
+! **** *DAPLUS* Quelle sera la date dans n jours (ou heures, etc...)?
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 94-10-31, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! kdat1
+! kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! (cf. GREGOD).
+! kdelt duree a ajouter a kdat1, unite: celle imposee par kopt.
+! En sortie:
+! kdat2 date finale.
+!
+! --------------------------------------------------------------------------
+! Exemple: call DAPLUS(19940503,1,456,ires) fournira
+! dans ires la date au format AAAAMMQQ situee 456 jours apres
+! le 3 mai 1994.
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IGRE
+INTEGER(KIND=4) :: KDAT1
+INTEGER(KIND=4) :: KDAT2
+INTEGER(KIND=4) :: KDELT
+INTEGER(KIND=4) :: KOPT
+call gregod(kdat1,kopt,igre)
+igre=igre+kdelt
+call gregoi(igre,kopt,kdat2)
+end
+subroutine daplusj(k1,kec,k2)
+! --------------------------------------------------------------
+! **** *daplusj* Date dans n jours.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! k1 date de depart au format AAAAMMQQ.
+! kec nombre de jours ecoules.
+! En sortie:
+! k2 date d'arrivee au format AAAAMMQQ.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits ou 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+! -------------------------------------------------
+! Date d'arrivee au jour pres.
+! -------------------------------------------------
+!
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: K1
+INTEGER(KIND=4) :: K2
+INTEGER(KIND=4) :: KEC
+call daplus(k1,1,kec,k2)
+end
+subroutine dapluss(cd1,kec,cd2)
+! --------------------------------------------------------------
+! **** *dapluss* Date dans n secondes.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! cd1 date de depart au format 'AAAAMMQQHHNNSS'.
+! kec nombre de secondes ecoulees.
+! En sortie:
+! cd2 date d'arrivee au format 'AAAAMMQQHHNNSS'.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits,
+! si l'ecart entre les deux dates est inferieur a 2**31 secondes,
+! soit 68 ans!...
+!
+! Au-dela de cette duree, les entiers doivent etre 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IAMQ1
+INTEGER(KIND=4) :: IAMQ2
+INTEGER(KIND=4) :: IDELTA
+INTEGER(KIND=4) :: IECJOURS
+INTEGER(KIND=4) :: IH1
+INTEGER(KIND=4) :: IH2
+INTEGER(KIND=4) :: IM1
+INTEGER(KIND=4) :: IM2
+INTEGER(KIND=4) :: IRESTE
+INTEGER(KIND=4) :: IS1
+INTEGER(KIND=4) :: IS2
+INTEGER(KIND=4) :: ISEC
+INTEGER(KIND=4) :: KEC
+character*(*) cd1,cd2
+!
+! -------------------------------------------------
+! On lit les dates sur des entiers.
+! -------------------------------------------------
+!
+read(cd1,fmt='(i8,3i2)') iamq1,ih1,im1,is1
+!
+! -------------------------------------------------
+! Calculs d'ecarts et de leur partition
+! en multiples de 86400 et sous-multiples.
+! -------------------------------------------------
+!
+isec=ih1*3600+im1*60+is1 ! nombre de secondes ecoulees depuis cd10h.
+idelta=kec+isec ! nombre de secondes entre cd10h et cd2.
+ireste=modulo(idelta,86400) ! nombre de secondes entre cd20h et cd2.
+iecjours=(idelta-ireste)/86400 ! nombre de jours entre cd10h et cd20h.
+!
+! -------------------------------------------------
+! Date d'arrivee au jour pres.
+! -------------------------------------------------
+!
+call daplus(iamq1,1,iecjours,iamq2)
+!
+! -------------------------------------------------
+! Date finale a la seconde pres.
+! -------------------------------------------------
+!
+ih2=ireste/3600
+ireste=ireste-3600*ih2
+im2=ireste/60
+ireste=ireste-60*im2
+is2=ireste
+write(cd2,fmt='(i8,3i2.2)') iamq2,ih2,im2,is2
+end
+subroutine dj_vers_amqhms(pdj,kaaaa,kmm,kqq,khh,kmn,ps)
+! --------------------------------------------------------------------------
+! **** *dj_vers_amqhms*
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 1999-08-17, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! pdj date julienne associée à la date grégorienne UTC d'entrée
+! En sortie:
+! kaaaa année (4 chiffres!)
+! kmm   mois
+! kqq   quantième du mois
+! khh   heure
+! kmn   minute
+! ps    seconde
+! --------------------------------------------------------------------------
+!
+!-------------------------------------------------
+! Nombre de jours entre le 1er janvier 2000 à 0 UTC
+! et la date julienne courante.
+!-------------------------------------------------
+!
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IDATE1
+INTEGER(KIND=4) :: IDATE2
+INTEGER(KIND=4) :: IECART
+INTEGER(KIND=4) :: KAAAA
+INTEGER(KIND=4) :: KHH
+INTEGER(KIND=4) :: KMM
+INTEGER(KIND=4) :: KMN
+INTEGER(KIND=4) :: KNOUV
+INTEGER(KIND=4) :: KQQ
+REAL(KIND=8) :: PDJ
+REAL(KIND=8) :: PS
+REAL(KIND=8) :: ZECART
+REAL(KIND=8) :: ZFRAC
+zecart=pdj-2451544.5
+!
+!-------------------------------------------------
+! Nombre entier de jours.
+!-------------------------------------------------
+!
+zfrac=modulo(zecart, 1._8 )
+iecart=nint(zecart-zfrac)
+!
+!-------------------------------------------------
+! Date grégorienne associée.
+!-------------------------------------------------
+!
+idate1=20000101
+call daplusj(idate1,iecart,idate2)
+kqq=mod(idate2,100)
+knouv=idate2/100
+kmm=mod(knouv,100)
+kaaaa=knouv/100
+!
+!-------------------------------------------------
+! Calcul de des heure, minute et seconde.
+!-------------------------------------------------
+!
+zfrac=(zecart-real(iecart))*24.
+khh=int(zfrac)
+zfrac=(zfrac-real(khh))*60.
+kmn=int(zfrac)
+ps=(zfrac-real(kmn))*60.
+end
+subroutine dj_vers_amqhmsree(pdj,pgrer)
+! --------------------------------------------------------------------------
+! **** **
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 2002-11, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! pdj date julienne
+! En sortie:
+! pgrer date en clair au format AAAAMMQQ.HHMMSS
+! --------------------------------------------------------------------------
+!
+
+IMPLICIT NONE
+REAL(KIND=8), intent(in) :: PDJ
+REAL(KIND=8), intent(out) :: pgrer
+REAL(KIND=8) :: ZS
+INTEGER(KIND=4) :: iaaaa,imm,iqq,ihh,imn
+!
+!-------------------------------------------------
+! Conversion grégorien julien; cible 5 entiers et un réel.
+!-------------------------------------------------
+!
+call dj_vers_amqhms(pdj,iaaaa,imm,iqq,ihh,imn,zs)
+!
+!-------------------------------------------------
+! On passe de ces 5 entiers et un réel à un seul réel.
+!-------------------------------------------------
+!
+pgrer=real(iaaaa)*10000.+real(imm)*100. &
+& + real(iqq)+real(ihh)/100. &
+& + real(imn)/10000.+zs/1.E+06
+end
+subroutine amqhmsree_vers_dj(pgrer,pdj)
+! --------------------------------------------------------------------------
+! **** **
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 2002-11, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! pgrer date en clair au format AAAAMMQQ.HHMMSS
+! En sortie:
+! pdj date julienne associée à la date grégorienne
+! --------------------------------------------------------------------------
+!
+
+IMPLICIT NONE
+REAL(KIND=8), intent(out) :: PDJ
+REAL(KIND=8), intent(in) :: pgrer
+REAL(KIND=8) :: ZS,zloc
+INTEGER(KIND=4) :: iaaaa,imm,iqq,ihh,imn,iloc
+!
+!-------------------------------------------------
+! On passe de cette date grégorienne donnée
+! comme un seul réel à 5 entiers et un réel.
+!-------------------------------------------------
+!
+iloc=int(pgrer)
+iqq=mod(iloc,100)
+iloc=iloc/100
+imm=mod(iloc,100)
+iaaaa=iloc/100
+
+iloc=nint((pgrer-real(int(pgrer)))*1.E+06)
+zs=real(mod(iloc,100))
+iloc=iloc/100
+imn=mod(iloc,100)
+ihh=iloc/100
+!
+!-------------------------------------------------
+! Conversion grégorien julien; cible 5 entiers et un réel.
+!-------------------------------------------------
+!
+call amqhms_vers_dj(iaaaa,imm,iqq,ihh,imn,zs,pdj)
+end
+subroutine ecartd(kdat1,kdat2,kopt,kgre)
+! --------------------------------------------------------------------------
+! **** *ECART* Ecart entre deux dates.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 97-01-09, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree: kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! kdat1 et kdat2 dates au format ci-dessus.
+! En sortie:
+! - si kopt=1 : kgre nombre de jours    entre kdat1 et kdat2
+! - si kopt=2 : kgre nombre d'heures    entre kdat1 et kdat2
+! - si kopt=3 : kgre nombre de minutes  entre kdat1 et kdat2
+! - si kopt=4 : kgre nombre de secondes entre kdat1 et kdat2
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! L'ecart entre les deux dates doit etre inferieur a
+! - 2**31 heures si kopt=2
+! - 2**31 jours si kopt=1
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! L'ecart entre les deux dates doit etre inferieur a
+! - 2**63 secondes si kopt=4
+! - 2**63 minutes si kopt=3
+! - 2**63 heures si kopt=2
+! - 2**63 jours si kopt=1
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IGRE1
+INTEGER(KIND=4) :: IGRE2
+INTEGER(KIND=4) :: KDAT1
+INTEGER(KIND=4) :: KDAT2
+INTEGER(KIND=4) :: KGRE
+INTEGER(KIND=4) :: KOPT
+call gregod(kdat1,kopt,igre1)
+call gregod(kdat2,kopt,igre2)
+kgre=igre2-igre1
+end
+subroutine ecartdj(k1,k2,kec)
+! --------------------------------------------------------------
+! **** *ecartdj* Ecart en jours entre deux dates.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! k1 date de depart au format AAAAMMQQ.
+! k2 date d'arrivee au format AAAAMMQQ.
+! En sortie:
+! kec: nombre de jours entre les deux dates.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits,
+! si l'ecart entre les deux dates est inferieur a 2**31 jours,
+! soit 5879489 ans!...
+!
+! Au-dela de cette duree, les entiers doivent etre 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+! -------------------------------------------------
+! Ecart entre les deux dates au jour pres.
+! -------------------------------------------------
+!
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: K1
+INTEGER(KIND=4) :: K2
+INTEGER(KIND=4) :: KEC
+call ecartd(k1,k2,1,kec)
+end
+subroutine ecartds(cd1,cd2,kec)
+! --------------------------------------------------------------
+! **** *ecartds* Ecart en secondes entre deux dates.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! cd1 date de depart au format 'AAAAMMQQHHNNSS'.
+! cd2 date d'arrivee au format 'AAAAMMQQHHNNSS'.
+! En sortie:
+! kec: nombre de secondes entre les deux dates.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits,
+! si l'ecart entre les deux dates est inferieur a 2**31 secondes,
+! soit 68 ans!...
+!
+! Au-dela de cette duree, les entiers doivent etre 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IAMQ1
+INTEGER(KIND=4) :: IAMQ2
+INTEGER(KIND=4) :: IH1
+INTEGER(KIND=4) :: IH2
+INTEGER(KIND=4) :: IM1
+INTEGER(KIND=4) :: IM2
+INTEGER(KIND=4) :: IS1
+INTEGER(KIND=4) :: IS2
+INTEGER(KIND=4) :: KEC
+INTEGER(KIND=4) :: KECQ
+character*(*) cd1,cd2
+!
+! -------------------------------------------------
+! On lit les dates sur des entiers.
+! -------------------------------------------------
+!
+read(cd1,fmt='(i8,3i2)') iamq1,ih1,im1,is1
+read(cd2,fmt='(i8,3i2)') iamq2,ih2,im2,is2
+!
+! -------------------------------------------------
+! Ecart entre les deux dates au jour pres.
+! -------------------------------------------------
+!
+call ecartd(iamq1,iamq2,1,kecq)
+!
+! -------------------------------------------------
+! Ecart en secondes.
+! -------------------------------------------------
+!
+kec=kecq*86400+(ih2-ih1)*3600+(im2-im1)*60+is2-is1
+end
+subroutine gregod(kdat,kopt,kgre)
+! --------------------------------------------------------------------------
+! **** *GREGOD *  - Conversion Date > Ecart par rapport a une date fixe.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 92-05-27, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree: kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! En sortie:
+! - si kopt=1 : kgre nombre de jours    entre 19000101       et kdat
+! - si kopt=2 : kgre nombre d'heures    entre 1900010100     et kdat
+! - si kopt=3 : kgre nombre de minutes  entre 190001010000   et kdat
+! - si kopt=4 : kgre nombre de secondes entre 19000101000000 et kdat
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: idebm(12)
+INTEGER(KIND=4) :: I0
+INTEGER(KIND=4) :: IA100
+INTEGER(KIND=4) :: IA4
+INTEGER(KIND=4) :: IA400
+INTEGER(KIND=4) :: IAAAA
+INTEGER(KIND=4) :: IBISSEXT
+INTEGER(KIND=4) :: ICONV
+INTEGER(KIND=4) :: IFRJOUR
+INTEGER(KIND=4) :: II
+INTEGER(KIND=4) :: II1
+INTEGER(KIND=4) :: IJOURP
+INTEGER(KIND=4) :: IMM
+INTEGER(KIND=4) :: IN
+INTEGER(KIND=4) :: IN1
+INTEGER(KIND=4) :: IN2
+INTEGER(KIND=4) :: IQQ
+INTEGER(KIND=4) :: KDAT
+INTEGER(KIND=4) :: KGRE
+INTEGER(KIND=4) :: KOPT
+data idebm/0,31,59,90,120,151,181,212,243,273,304,334/
+!
+! --------------------------------------------------------------------------
+! **      1. Calcul du nb de jours separant ki2 du 1er janv 1900
+!
+! *       1.1 Extraction des quantieme, mois et annee
+if(kopt == 1) then
+  ! Date de type AAAAMMQQ
+  iconv=1
+  ifrjour=0
+  ii=kdat
+elseif(kopt == 2) then
+  ! Date de type AAAAMMQQHH
+  iconv=24
+  ifrjour=mod(kdat,100)
+  ii=kdat/100
+elseif(kopt == 3) then
+  ! Date de type AAAAMMQQHHMM
+  iconv=1440
+  ifrjour=mod(kdat,100)
+  ii=kdat/100
+  ifrjour=ifrjour+mod(ii,100)*60
+  ii=ii/100
+elseif(kopt == 4) then
+  ! Date de type AAAAMMQQHHMMSS
+  iconv=86400
+  ifrjour=mod(kdat,100)
+  ii=kdat/100
+  ifrjour=ifrjour+mod(ii,100)*60
+  ii=ii/100
+  ifrjour=ifrjour+mod(ii,100)*3600
+  ii=ii/100
+else
+  ! Cas d'entree erronee de l'utilisateur.
+  print*,'GREGODR/ERREUR: argument kopt errone!...'
+  print*,kopt
+  stop 'call abort'
+endif
+iqq=ii-(ii/100)*100
+in=(ii-iqq)/100
+imm=in-(in/100)*100
+iaaaa=(in-imm)/100
+! *       1.2 L'annee est-elle bissextile?
+! Une annee est bissextile ssi elle est
+! (mult de 4 et non mult de 100) ou (mult de 400)
+iaaaa=iaaaa
+ia400=400*(iaaaa/400)
+ia100=100*(iaaaa/100)
+ia4=4*(iaaaa/4)
+if((iaaaa == ia400).or.((iaaaa == ia4).and.(iaaaa /= ia100)))then
+  ibissext=1
+else
+  ibissext=0
+endif
+if ((ibissext == 1).and.(imm > 2)) then
+  ijourp=1
+else
+  ijourp=0
+endif
+! *       1.3 Nombre de jours ecoules depuis le 1er janv
+if(imm > 12) then
+  print*,'GREGODR/ERREUR: mois errone.'
+  print*,imm
+  stop 'call abort'
+endif
+in2=idebm(imm)+ijourp+iqq-1
+! *       1.4 Calcul du nb de jours separant les 1er janvier de ii et 1900
+i0=1900
+in2=in2+365*(iaaaa-i0)+int((iaaaa-1)/4)-int((i0-1)/4)&
+&-int((iaaaa-1)/100)+int((i0-1)/100)&
+&+int((iaaaa-1)/400)-int((i0-1)/400)
+! --------------------------------------------------------------------------
+! **      2. Calcul du nb de jours separant ii1 du 1er janv 1900
+!
+! *       2.1 Extraction des quantieme, mois et annee
+ii1=19000101
+ii=ii1
+iqq=ii-(ii/100)*100
+in=(ii-iqq)/100
+imm=in-(in/100)*100
+iaaaa=(in-imm)/100
+! *       2.2 L'annee est-elle bissextile?
+! Une annee est bissextile ssi elle est
+! (mult de 4 et non mult de 100) ou (mult de 400)
+iaaaa=iaaaa
+ia400=400*(iaaaa/400)
+ia100=100*(iaaaa/100)
+ia4=4*(iaaaa/4)
+if((iaaaa == ia400).or.((iaaaa == ia4).and.(iaaaa /= ia100)))then
+  ibissext=1
+else
+  ibissext=0
+endif
+if ((ibissext == 1).and.(imm > 2)) then
+  ijourp=1
+else
+  ijourp=0
+endif
+! *       2.3 Nombre de jours ecoules depuis le 1er janv
+in1=idebm(imm)+ijourp+iqq-1
+! *       2.4 Calcul du nb de jours separant les 1er janvier de ii et 1900
+i0=1900
+in1=in1+365*(iaaaa-i0)+int((iaaaa-1)/4)-int((i0-1)/4)&
+&-int((iaaaa-1)/100)+int((i0-1)/100)&
+&+int((iaaaa-1)/400)-int((i0-1)/400)
+! --------------------------------------------------------------------------
+! **      3. Difference in2-in1
+kgre=(in2-in1)*iconv+ifrjour
+end
+subroutine gregoi(kgre,kopt,kdat)
+! --------------------------------------------------------------------------
+! **** *GREGOI *  - Conversion Ecart par rapport a une date fixe > Date.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 92-05-27, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree: kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kgre nombre de jours    entre 19000101       et kdat
+! - si kopt=2 : kgre nombre d'heures    entre 1900010100     et kdat
+! - si kopt=3 : kgre nombre de minutes  entre 190001010000   et kdat
+! - si kopt=4 : kgre nombre de secondes entre 19000101000000 et kdat
+! En sortie:
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: ijours(12)
+INTEGER(KIND=4) :: IA100
+INTEGER(KIND=4) :: IA4
+INTEGER(KIND=4) :: IA400
+INTEGER(KIND=4) :: IAAAA
+INTEGER(KIND=4) :: IBISSEXT
+INTEGER(KIND=4) :: ICONV
+INTEGER(KIND=4) :: IDAT
+INTEGER(KIND=4) :: IEC
+INTEGER(KIND=4) :: IECI
+INTEGER(KIND=4) :: IGII2P
+INTEGER(KIND=4) :: II2P
+INTEGER(KIND=4) :: IMM
+INTEGER(KIND=4) :: IMOD
+INTEGER(KIND=4) :: IQQ
+INTEGER(KIND=4) :: KDAT
+INTEGER(KIND=4) :: KGRE
+INTEGER(KIND=4) :: KOPT
+REAL(KIND=8) :: ZARRDEC
+data ijours/31,28,31,30,31,30,31,31,30,31,30,31/
+! --------------------------------------------------------------------------
+! **   On determine la date approximative d'arrivee en annees decimales
+!
+if(kopt == 1) then
+  ! Date de type AAAAMMQQ
+  iconv=1
+elseif(kopt == 2) then
+  ! Date de type AAAAMMQQHH
+  iconv=24
+elseif(kopt == 3) then
+  ! Date de type AAAAMMQQHHMM
+  iconv=1440
+elseif(kopt == 4) then
+  ! Date de type AAAAMMQQHHMMSS
+  iconv=86400
+else
+  ! Cas d'entree erronee de l'utilisateur.
+  print*,'GREGOI/ERREUR: argument kopt errone!...'
+  print*,kopt
+  stop 'call abort'
+endif
+zarrdec=1900.+(real(kgre)/real(iconv)-5.)/365.2425
+! --------------------------------------------------------------------------
+! **   On determine la date en clair ii2p associee a la date decimale
+!
+iaaaa=int(zarrdec)
+zarrdec=12.*(zarrdec-real(iaaaa))
+imm=int(zarrdec)+1
+zarrdec=28.*(zarrdec-real(imm-1))
+iqq=int(zarrdec)+1
+ii2p=iqq+imm*100+iaaaa*10000
+! --------------------------------------------------------------------------
+! **   On calcule le nombre de jours separant 19000101 de ii2p
+!
+call gregod(ii2p,1,igii2p)
+imod=mod(kgre,iconv)
+if(imod < 0) imod=imod+iconv
+iec=(kgre-imod)/iconv-igii2p
+! --------------------------------------------------------------------------
+! **   On avance de iec jours par rapport a ii2p
+!
+! *       L'annee est-elle bissextile?
+! Une annee est bissextile ssi elle est
+! (mult de 4 et non mult de 100) ou (mult de 400)
+iaaaa=iaaaa
+ia400=400*(iaaaa/400)
+ia100=100*(iaaaa/100)
+ia4=4*(iaaaa/4)
+if((iaaaa == ia400).or.((iaaaa == ia4).and.(iaaaa /= ia100)))then
+  ibissext=1
+else
+  ibissext=0
+endif
+! Si oui, 29 jours en fevrier
+if(ibissext == 1) ijours(2)=29
+! *       Boucle sur les jours
+do ieci=1,iec
+  iqq=iqq+1
+  if(iqq > ijours(imm)) then
+    iqq=1
+    imm=imm+1
+  endif
+  if(imm > 12) then
+    imm=1
+    iaaaa=iaaaa+1
+  endif
+enddo
+! --------------------------------------------------------------------------
+! **   On met en forme la date finale
+!
+idat=iqq+imm*100+iaaaa*10000
+if(kopt == 2) then
+  imod=mod(kgre,iconv)
+  if(imod < 0) imod=imod+iconv
+  idat=idat*100+imod
+elseif(kopt == 3) then
+  imod=mod(kgre,iconv)
+  if(imod < 0) imod=imod+iconv
+  idat=idat*100+imod/60
+  imod=mod(imod,60)
+  idat=idat*100+imod
+elseif(kopt == 4) then
+  imod=mod(kgre,iconv)
+  if(imod < 0) imod=imod+iconv
+  idat=idat*100+imod/3600
+  imod=mod(imod,3600)
+  idat=idat*100+imod/60
+  imod=mod(imod,60)
+  idat=idat*100+imod
+endif
+kdat=idat
+end
+function ijoursem(kdat)
+! --------------------------------------------------------------------------
+! **** *IJOURSEM* Jour de la semaine de la date d'entree.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 94-10-31, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! kdat1 au format AAAAMMQQ
+! En sortie:
+! ijour=0 si dimanche, 1 lundi, ..., 6 samedi.
+! --------------------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IDATDIM
+INTEGER(KIND=4) :: IECART
+INTEGER(KIND=4) :: IGRE
+INTEGER(KIND=4) :: IGREDIM
+INTEGER(KIND=4) :: KDAT
+INTEGER(KIND=4) :: ijoursem
+call gregod(kdat,1,igre)
+idatdim=19941030 ! cette date etait un dimanche.
+call gregod(idatdim,1,igredim)
+iecart=igre-igredim
+ijoursem=modulo(iecart,7)
+end
+subroutine qqmmaa(kdatd,cdresd)
+! --------------------------------------------------------------------------
+! **** *QQMMAA *  - Conversion d'un entier type AAAAQQMM vers une date en clair.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 92-05-27, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IAN
+INTEGER(KIND=4) :: IGRE
+INTEGER(KIND=4) :: ILOC
+INTEGER(KIND=4) :: IMM
+INTEGER(KIND=4) :: IQQ
+INTEGER(KIND=4) :: KDATD
+character*(*) cdresd
+character*03 cljour
+iqq=mod(kdatd,100)
+iloc=kdatd/100
+imm=mod(iloc,100)
+ian=iloc/100
+call gregod(kdatd,1,igre)
+igre=mod(igre,7)
+if(igre == 0) then
+  cljour='Lun'
+elseif(igre == 1) then
+  cljour='Mar'
+elseif(igre == 2) then
+  cljour='Mer'
+elseif(igre == 3) then
+  cljour='Jeu'
+elseif(igre == 4) then
+  cljour='Ven'
+elseif(igre == 5) then
+  cljour='Sam'
+elseif(igre == 6) then
+  cljour='Dim'
+endif
+write(cdresd,fmt='(a3,a1,i2,a1,i2.2,a1,i4.4)')&
+&cljour,' ',iqq,'.',imm,'.',ian
+end
+subroutine quant(kdate,kquant)
+! --------------------------------------------------------------
+! **** *quant* Quantieme de l'annee d'une date donnee.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   1999-04, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! kdate date au format AAAAMMQQ.
+! En sortie:
+! quantieme de l'annee (1 le 1er janvier, 32 le 1er fevrier, etc...)
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IBASE
+INTEGER(KIND=4) :: IEC
+INTEGER(KIND=4) :: KDATE
+INTEGER(KIND=4) :: KQUANT
+ibase=10000*(kdate/10000)+0101 ! 1er janvier de l'annee courante.
+call ecartdj(ibase,kdate,iec)
+kquant=iec+1
+end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/dump2ds.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/dump2ds.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/dump2ds.F	(revision 3330)
@@ -0,0 +1,113 @@
+      SUBROUTINE dump2ds(im,jm,z,nom_z)
+C Copyright (C) 2005 Centre National de la Recherche Scientifique
+c ==================================================================
+c Perform a scatter plot print of big matrices using regular
+c intervals between min and max matrix coefficient values.
+c ==================================================================
+c adapted from LMD3 by Alain Lahellec and retranscipted for LMDZ5
+c NAN et INF ajoute aux plots                           Pat fin 2006
+c ==================================================================
+c Comme dump2d sauf que le signe est préservé, la valeur zero
+c identifiee par un blanc.
+c detection des Infty (= ou -) et NaN (?)
+c ==================================================================
+      IMPLICIT NONE
+      INTEGER im,jm
+      REAL z(im,jm),az
+      CHARACTER*32 jform,jline*1000
+      CHARACTER*1 iform(32)
+      CHARACTER*16 F1000
+      logical zinf,znan,zsign
+      CHARACTER (len=*) :: nom_z
+      INTEGER*4 icheck(2)
+      EQUIVALENCE(az,icheck)
+      EQUIVALENCE(iform,jform)
+      DATA jform/'-@zyxwvutsrqpon NOPQRSTUVWXYZ*+?'/
+      INTEGER i,j,k,imin,imax,jmin,jmax,kzero,kchar(im)
+      REAL zmin,zmax,zllu,zllm
+      write(F1000,'(''(4x,'',I3,''(1H-))'')')im+3
+      DO 10001 i=1,200
+      jline(1+(i-1)*5:5*i)='.    '
+10001 CONTINUE
+10002 zmin=z(1,1)
+      imin=1
+      jmin=1
+      zmax=z(1,1)
+      imax=1
+      jmax=1
+      kzero=0
+      DO 10003 j=1,jm
+      DO 10005 i=1,im
+      IF(.NOT.( z(i,j).GT.zmax))GOTO 10007
+      zmax=z(i,j)
+      imax=i
+      jmax=j
+10007 IF(.NOT.( z(i,j).LT.zmin))GOTO 10009
+      zmin=z(i,j)
+      imin=i
+      jmin=j
+10009 IF(.NOT.( z(i,j).eq.0.))GOTO 10011
+      kzero=kzero+1
+10011 CONTINUE
+10005 CONTINUE
+10006 CONTINUE
+10003 CONTINUE
+10004 zsign=(sign(1.,zmin)*sign(1.,zmax).gt.0.)
+      WRITE(*,*)'>>> dump2ds: ',trim(nom_z)
+      PRINT*,'>>>  ',kzero,' zero values  <<<'
+      IF(.NOT.( ZMin.lt.0.))GOTO 10013
+      PRINT2000,' [MIN:',zmin,'(',imin,',',jmin,') (-@zyxwvutsrqpon NOPQ
+     *RSTUVWXYZ*+) ',zmax,'(',imax,',',jmax,'):MAX]'
+      GOTO 10014
+10013 PRINT2000,' [MIN:',zmin,'(',imin,',',jmin,') ( NOPQRSTUVWXYZ*+) ',
+     *zmax,'(',imax,',',jmax,'):MAX]'
+10014 CONTINUE
+2000  Format(a,1pg11.4,a1,i3,a1,i3,a,1pg11.4,a1,i3,a1,i3,a)
+      IF(.NOT.( zmax.GT.zmin))GOTO 10015
+      zllm=max(abs(zmax),abs(zmin))
+      zllu=min(abs(zmax),abs(zmin))
+      if(im.ge.100)WRITE(*,'(104x,900i1)')(mod(i/100,10),i=100,im)
+      WRITE(*,'(14x,1000i1)')(mod(i/10,10),i=10,im)
+      WRITE(*,'(5x,1009i1)')(mod(i,10),i=1,im)
+      write(*,F1000)
+      zinf=.false.
+      znan=.false.
+      DO 10017 j=1,jm
+      DO 10019 i=1,im
+      az=abs(z(i,j))
+      IF(.NOT.( az.eq.0.))GOTO 10021
+      kchar(i)=16
+      GOTO 10022
+10021 IF(.NOT.((az.ne.0.and.icheck(1).eq.0.and.icheck(2).eq.2146435072))
+     *)GOTO 10023
+      kchar(i)=31
+      zinf=.true.
+      GOTO 10022
+10023 IF(.NOT.((az.ne.0.and.icheck(1).eq.0.and.icheck(2).eq.2146959360))
+     *)GOTO 10024
+      kchar(i)=32
+      znan=.true.
+      GOTO 10022
+10024 IF(.NOT.( zsign))GOTO 10025
+      kchar(i)=NINT(13.*(az-zllu)/(zllm-zllu)+17)
+      GOTO 10026
+10025 kchar(i)=NINT(13.*az/zllm+17)
+10026 CONTINUE
+10022 IF(.NOT.( z(i,j).lt.0.))GOTO 10027
+      kchar(i)=32-kchar(i)
+10027 CONTINUE
+10019 CONTINUE
+10020 WRITE(*,'(1x,i3,''|'',1000a)')j+1,(iform(kchar(i)),i=1,im),'|','| 
+     *'
+10017 CONTINUE
+10018 write(*,F1000)
+      WRITE(*,'(5x,1000i1)')(mod(i,10),i=1,im)
+      WRITE(*,'(14x,1000i1)')(mod(i/10,10),i=10,im)
+      if(im.ge.100)WRITE(*,'(104x,900i1)')(mod(i/100,10),i=100,im)
+      GOTO 10016
+10015 print*,'>>> ZERO MAP  <<<'
+10016 if(zinf)print*,' *** Infty value(s) (+ or -) in map ***'
+      if(znan)print*,' *** NaN value(s) (?) in map ***'
+      print*
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/eq_regions_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/eq_regions_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/eq_regions_mod.F90	(revision 3330)
@@ -0,0 +1,366 @@
+module eq_regions_mod
+!
+!     Purpose.
+!     --------
+!           eq_regions_mod provides the code to perform a high level 
+!           partitioning of the surface of a sphere into regions of
+!           equal area and small diameter.
+!           the type.
+!
+!     Background.
+!     -----------
+!     This Fortran version of eq_regions is a much cut down version of the 
+!     "Recursive Zonal Equal Area (EQ) Sphere Partitioning Toolbox" of the
+!     same name developed by Paul Leopardi at the University of New South Wales. 
+!     This version has been coded specifically for the case of partitioning the 
+!     surface of a sphere or S^dim (where dim=2) as denoted in the original code.
+!     Only a subset of the original eq_regions package has been coded to determine 
+!     the high level distribution of regions on a sphere, as the detailed 
+!     distribution of grid points to each region is left to IFS software.
+!     This is required to take into account the spatial distribution of grid 
+!     points in an IFS gaussian grid and provide an optimal (i.e. exact) 
+!     distribution of grid points over regions.
+!
+!     The following copyright notice for the eq_regions package is included from 
+!     the original MatLab release.
+!
+!     +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!     + Release 1.10 2005-06-26                                                 +
+!     +                                                                         +
+!     + Copyright (c) 2004, 2005, University of New South Wales                 +
+!     +                                                                         +
+!     + Permission is hereby granted, free of charge, to any person obtaining   +
+!     + a copy of this software and associated documentation files (the         +
+!     + "Software"), to deal in the Software without restriction, including     +
+!     + without limitation the rights to use, copy, modify, merge, publish,     +
+!     + distribute, sublicense, and/or sell copies of the Software, and to      +
+!     + permit persons to whom the Software is furnished to do so, subject to   +
+!     + the following conditions:                                               +
+!     +                                                                         +
+!     + The above copyright notice and this permission notice shall be included +
+!     + in all copies or substantial portions of the Software.                  +
+!     +                                                                         +
+!     + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,         +
+!     + EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF      +
+!     + MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  +
+!     + IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY    +
+!     + CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,    +
+!     + TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE       +
+!     + SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                  +
+!     +                                                                         +
+!     +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+!     Author.
+!     -------
+!        George Mozdzynski *ECMWF*
+!
+!     Modifications.
+!     --------------
+!        Original : 2006-04-15
+!
+!--------------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+PRIVATE
+
+PUBLIC eq_regions,l_regions_debug,n_regions_ns,n_regions_ew,n_regions,my_region_ns,my_region_ew
+
+real(kind=jprb) pi
+logical :: l_regions_debug=.false.
+integer(kind=jpim) :: n_regions_ns
+integer(kind=jpim) :: n_regions_ew
+integer(kind=jpim) :: my_region_ns
+integer(kind=jpim) :: my_region_ew
+integer(kind=jpim),allocatable :: n_regions(:)
+
+
+!$OMP THREADPRIVATE(l_regions_debug,my_region_ew,my_region_ns,n_regions_ew,n_regions_ns,pi,n_regions)
+
+CONTAINS
+
+subroutine eq_regions(N)
+!
+! eq_regions uses the zonal equal area sphere partitioning algorithm to partition
+! the surface of a sphere into N regions of equal area and small diameter.
+!
+integer(kind=jpim),intent(in) :: N
+integer(kind=jpim) :: n_collars,j
+real(kind=jprb),allocatable :: r_regions(:)
+real(kind=jprb) :: c_polar
+
+pi=2.0_jprb*asin(1.0_jprb)
+
+n_regions(:)=0
+
+if( N == 1 )then
+
+  !
+  ! We have only one region, which must be the whole sphere.
+  !
+  n_regions(1)=1
+  n_regions_ns=1
+
+else
+
+  !
+  ! Given N, determine c_polar
+  ! the colatitude of the North polar spherical cap.
+  !
+  c_polar = polar_colat(N)
+  !
+  ! Given N, determine the ideal angle for spherical collars.
+  ! Based on N, this ideal angle, and c_polar,
+  ! determine n_collars, the number of collars between the polar caps.
+  !
+  n_collars = num_collars(N,c_polar,ideal_collar_angle(N))
+  n_regions_ns=n_collars+2
+  !
+  ! Given N, c_polar and n_collars, determine r_regions,
+  ! a list of the ideal real number of regions in each collar,
+  ! plus the polar caps.
+  ! The number of elements is n_collars+2.
+  ! r_regions[1] is 1.
+  ! r_regions[n_collars+2] is 1.
+  ! The sum of r_regions is N.
+  allocate(r_regions(n_collars+2))
+  call ideal_region_list(N,c_polar,n_collars,r_regions)
+  !
+  ! Given N and r_regions, determine n_regions, a list of the natural number 
+  ! of regions in each collar and the polar caps.
+  ! This list is as close as possible to r_regions.
+  ! The number of elements is n_collars+2.
+  ! n_regions[1] is 1.
+  ! n_regions[n_collars+2] is 1.
+  ! The sum of n_regions is N.
+  !
+  call round_to_naturals(N,n_collars,r_regions)
+  deallocate(r_regions)
+  if( N /= sum(n_regions(:)) )then
+    write(*,'("eq_regions: N=",I10," sum(n_regions(:))=",I10)')N,sum(n_regions(:))
+    call abor1('eq_regions: N /= sum(n_regions)')
+  endif
+
+endif
+
+if( l_regions_debug )then
+  write(*,'("eq_regions: N=",I6," n_regions_ns=",I4)') N,n_regions_ns
+  do j=1,n_regions_ns
+    write(*,'("eq_regions: n_regions(",I4,")=",I4)') j,n_regions(j)
+  enddo
+endif
+n_regions_ew=maxval(n_regions(:))
+
+return
+end subroutine eq_regions
+
+function num_collars(N,c_polar,a_ideal) result(num_c)
+!
+!NUM_COLLARS The number of collars between the polar caps
+!
+! Given N, an ideal angle, and c_polar,
+! determine n_collars, the number of collars between the polar caps.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb),intent(in) :: a_ideal,c_polar
+integer(kind=jpim) :: num_c
+logical enough
+enough = (N > 2) .and. (a_ideal > 0)
+if( enough )then
+  num_c = max(1,nint((pi-2.*c_polar)/a_ideal))
+else
+  num_c = 0
+endif
+return
+end function num_collars
+
+subroutine ideal_region_list(N,c_polar,n_collars,r_regions)
+!
+!IDEAL_REGION_LIST The ideal real number of regions in each zone
+!
+! List the ideal real number of regions in each collar, plus the polar caps.
+!
+! Given N, c_polar and n_collars, determine r_regions, a list of the ideal real 
+! number of regions in each collar, plus the polar caps.
+! The number of elements is n_collars+2.
+! r_regions[1] is 1.
+! r_regions[n_collars+2] is 1.
+! The sum of r_regions is N.
+!
+integer(kind=jpim),intent(in) :: N,n_collars
+real(kind=jprb),intent(in) :: c_polar
+real(kind=jprb),intent(out) :: r_regions(n_collars+2)
+integer(kind=jpim) :: collar_n
+real(kind=jprb) :: ideal_region_area,ideal_collar_area
+real(kind=jprb) :: a_fitting
+r_regions(:)=0.0_jprb
+r_regions(1) = 1.0_jprb
+if( n_collars > 0 )then
+  !
+  ! Based on n_collars and c_polar, determine a_fitting,
+  ! the collar angle such that n_collars collars fit between the polar caps.
+  !
+  a_fitting = (pi-2.0_jprb*c_polar)/float(n_collars)
+  ideal_region_area = area_of_ideal_region(N)
+  do collar_n=1,n_collars
+    ideal_collar_area = area_of_collar(c_polar+(collar_n-1)*a_fitting, &
+     & c_polar+collar_n*a_fitting)
+    r_regions(1+collar_n) = ideal_collar_area / ideal_region_area
+  enddo
+endif
+r_regions(2+n_collars) = 1.
+return
+end subroutine ideal_region_list
+
+function ideal_collar_angle(N) result(ideal)
+!
+! IDEAL_COLLAR_ANGLE The ideal angle for spherical collars of an EQ partition
+!
+! IDEAL_COLLAR_ANGLE(N) sets ANGLE to the ideal angle for the
+! spherical collars of an EQ partition of the unit sphere S^2 into N regions.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb) :: ideal
+ideal = area_of_ideal_region(N)**(0.5_jprb)
+return
+end function ideal_collar_angle
+
+subroutine round_to_naturals(N,n_collars,r_regions)
+!
+! ROUND_TO_NATURALS Round off a given list of numbers of regions
+!
+! Given N and r_regions, determine n_regions, a list of the natural number 
+! of regions in each collar and the polar caps.
+! This list is as close as possible to r_regions, using rounding.
+! The number of elements is n_collars+2.
+! n_regions[1] is 1.
+! n_regions[n_collars+2] is 1.
+! The sum of n_regions is N.
+!
+integer(kind=jpim),intent(in) :: N,n_collars
+real(kind=jprb),intent(in) :: r_regions(n_collars+2)
+integer(kind=jpim) :: zone_n
+real(kind=jprb) :: discrepancy
+n_regions(1:n_collars+2) = r_regions(:)
+discrepancy = 0.0_jprb
+do zone_n = 1,n_collars+2
+    n_regions(zone_n) = nint(r_regions(zone_n)+discrepancy);
+    discrepancy = discrepancy+r_regions(zone_n)-float(n_regions(zone_n));
+enddo
+return
+end subroutine round_to_naturals
+
+function polar_colat(N) result(polar_c)
+!
+! Given N, determine the colatitude of the North polar spherical cap.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb) :: area
+real(kind=jprb) :: polar_c
+if( N == 1 ) polar_c=pi
+if( N == 2 ) polar_c=pi/2.0_jprb
+if( N > 2 )then
+  area=area_of_ideal_region(N)
+  polar_c=sradius_of_cap(area)
+endif
+return
+end function polar_colat
+
+function area_of_ideal_region(N) result(area)
+!
+! AREA_OF_IDEAL_REGION(N) sets AREA to be the area of one of N equal
+! area regions on S^2, that is 1/N times AREA_OF_SPHERE.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb) :: area_of_sphere
+real(kind=jprb) :: area
+area_of_sphere = (2.0_jprb*pi**1.5_jprb/gamma(1.5_jprb))
+area = area_of_sphere/float(N)
+return
+end function area_of_ideal_region
+
+function sradius_of_cap(area) result(sradius)
+!
+! SRADIUS_OF_CAP(AREA) returns the spherical radius of
+! an S^2 spherical cap of area AREA.
+!
+real(kind=jprb),intent(in) :: area
+real(kind=jprb) :: sradius
+sradius = 2.0_jprb*asin(sqrt(area/pi)/2.0_jprb)
+return
+end function sradius_of_cap
+
+function area_of_collar(a_top, a_bot) result(area)
+!
+! AREA_OF_COLLAR Area of spherical collar
+!
+! AREA_OF_COLLAR(A_TOP, A_BOT) sets AREA to be the area of an S^2 spherical 
+! collar specified by A_TOP, A_BOT, where A_TOP is top (smaller) spherical radius,
+! A_BOT is bottom (larger) spherical radius.
+!
+real(kind=jprb),intent(in) :: a_top,a_bot
+real(kind=jprb) area
+area = area_of_cap(a_bot) - area_of_cap(a_top)
+return
+end function area_of_collar
+
+function area_of_cap(s_cap) result(area)
+!
+! AREA_OF_CAP Area of spherical cap
+!
+! AREA_OF_CAP(S_CAP) sets AREA to be the area of an S^2 spherical
+! cap of spherical radius S_CAP.
+!
+real(kind=jprb),intent(in) :: s_cap
+real(kind=jprb) area
+area = 4.0_jprb*pi * sin(s_cap/2.0_jprb)**2
+return
+end function area_of_cap
+
+function gamma(x) result(gamma_res)
+real(kind=jprb),intent(in) :: x
+real(kind=jprb) :: gamma_res
+real(kind=jprb) :: p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13
+real(kind=jprb) :: w,y
+integer(kind=jpim) :: k,n
+parameter (&
+& p0 =   0.999999999999999990e+00_jprb,&
+& p1 =  -0.422784335098466784e+00_jprb,&
+& p2 =  -0.233093736421782878e+00_jprb,&
+& p3 =   0.191091101387638410e+00_jprb,&
+& p4 =  -0.024552490005641278e+00_jprb,&
+& p5 =  -0.017645244547851414e+00_jprb,&
+& p6 =   0.008023273027855346e+00_jprb)
+parameter (&
+& p7 =  -0.000804329819255744e+00_jprb,&
+& p8 =  -0.000360837876648255e+00_jprb,&
+& p9 =   0.000145596568617526e+00_jprb,&
+& p10 = -0.000017545539395205e+00_jprb,&
+& p11 = -0.000002591225267689e+00_jprb,&
+& p12 =  0.000001337767384067e+00_jprb,&
+& p13 = -0.000000199542863674e+00_jprb)
+n = nint(x - 2)
+w = x - (n + 2)
+y = ((((((((((((p13 * w + p12) * w + p11) * w + p10) *&
+&    w + p9) * w + p8) * w + p7) * w + p6) * w + p5) *&
+&    w + p4) * w + p3) * w + p2) * w + p1) * w + p0
+if (n .gt. 0) then
+  w = x - 1
+  do k = 2, n
+    w = w * (x - k)
+  end do
+else
+  w = 1
+  do k = 0, -n - 1
+    y = y * (x + k)
+  end do
+end if
+gamma_res = w / y
+return
+end function gamma
+
+end module eq_regions_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fctast.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fctast.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fctast.h	(revision 3330)
@@ -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(KIND=JPRB) :: RTETA,REL,REM,RRS,RLLS,RLLLS,RDS,RET
+REAL(KIND=JPRB) :: 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(2.0_JPRB*REL(PTETA))&
+         &+0.0002_JPRB*COS(2.0_JPRB*REL(PTETA))
+RDS(PTETA)=ASIN(SIN(REPSM)*SIN(RLLLS(PTETA)))
+RET(PTETA)=591.8_JPRB*SIN(2.0_JPRB*RLLS(PTETA))-459.4_JPRB*SIN(REM(PTETA))&
+  &+39.5_JPRB*SIN(REM(PTETA))*COS(2.0_JPRB*RLLS(PTETA))&
+  &-12.7_JPRB*SIN(4._JPRB*RLLS(PTETA))-4.8_JPRB*SIN(2.0_JPRB*REM(PTETA))
+!    -------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fcttim.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fcttim.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fcttim.h	(revision 3330)
@@ -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(KIND=JPIM) :: NDD,NMM,NCCAA,NAA,NAMD,NCTH,NZZAA,NZZMM,NCENT,NYEARC,&
+&NCONSTRUCT_DATE
+REAL(KIND=JPRB) :: RJUDAT,RTIME
+INTEGER(KIND=JPIM) :: KGRDAT,KSEC,KAAAA,KMM,KDD,KSS
+INTEGER(KIND=JPIM) :: KCENT,KYEARC,KMONTH,KDAY
+
+NDD(KGRDAT)  =MOD(KGRDAT,100)
+NMM(KGRDAT)  =MOD((KGRDAT-NDD(KGRDAT))/100,100)
+NCCAA(KGRDAT)=KGRDAT/10000
+NAA(KGRDAT)=MOD(NCCAA(KGRDAT),100)
+NAMD(KGRDAT)=MOD(KGRDAT,1000000)
+NCTH(KSEC)=KSEC/3600
+NCENT(KGRDAT)=NCCAA(KGRDAT)/100+MIN(NAA(KGRDAT),1)
+NYEARC(KGRDAT)=NAA(KGRDAT)+100*(1-MIN(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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fcttrm.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fcttrm.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/fcttrm.h	(revision 3330)
@@ -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(KIND=JPRB) :: RLV,RLS,RLF,ESW,ESS,ES
+REAL(KIND=JPRB) :: 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(0.0_JPRB,SIGN(1.0_JPRB,RTT-PTARG)))&
+         &-(RBETW+RBETD*MAX(0.0_JPRB,SIGN(1.0_JPRB,RTT-PTARG)))/PTARG &
+         &-(RGAMW+RGAMD*MAX(0.0_JPRB,SIGN(1.0_JPRB,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(KIND=JPRB) :: FOEW
+REAL(KIND=JPRB) :: 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(KIND=JPRB) :: FODLEW
+FODLEW ( PTARG,PDELARG ) = (&
+      &( RBETW+PDELARG*RBETD )&
+    &- ( RGAMW+PDELARG*RGAMD ) * PTARG )&
+    &/ ( PTARG*PTARG )
+
+!     FONCTION HUMIDITE SPECIFIQUE SATURANTE .
+!        INPUT : PESPFAR = RAPPORT FOEW SUR PRESSION.
+REAL(KIND=JPRB) :: FOQS
+REAL(KIND=JPRB) :: PESPFAR
+FOQS ( PESPFAR ) = PESPFAR / ( 1.0_JPRB+RETV*MAX(0.0_JPRB,&
+    &(1.0_JPRB-PESPFAR)) )
+
+!     FONCTION DERIVEE EN TEMPERATURE DE LA PRECEDENTE (FOQS) .
+!        INPUT : PQSFARG = FOQS
+!                PESPFAR = RAPPORT FOEW SUR PRESSION
+!                PDLEFAR = FODLEW.
+REAL(KIND=JPRB) :: FODQS 
+REAL(KIND=JPRB) :: PQSFARG,PDLEFAR 
+FODQS ( PQSFARG,PESPFAR,PDLEFAR ) = ( PQSFARG &
+   &* (1.0_JPRB-PQSFARG)*PDLEFAR ) / (1.0_JPRB-PESPFAR)
+
+!     FONCTION CHALEUR LATENTE .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL(KIND=JPRB) :: FOLH
+FOLH ( PTARG,PDELARG ) =  RV * (&
+    &( RBETW+PDELARG*RBETD )&
+  &- ( RGAMW+PDELARG*RGAMD ) * PTARG )
+!     ------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gfl_subs.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gfl_subs.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gfl_subs.F90	(revision 3330)
@@ -0,0 +1,871 @@
+MODULE GFL_SUBS
+
+!     Purpose.
+!     --------
+
+!      GFL_SUBS contains routines to do basic manipulatutions of GFL descriptors 
+
+!     Author.
+!     -------
+!     Mats Hamrud(ECMWF)
+
+!     Modifications.
+!     --------------
+!        Original : 2003-03-01
+!        Modifications:
+!        03/07/09 C. Fischer - add Arome/Aladin attributes
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M. Tudor      31-Oct-2003 physics tendencies
+!        Y.Tremolet    03-Mar-2004 Protect *EACT_CLOUD_GFL for multiple calls
+!        Y.Tremolet    12-Mar-2004 Save/falsify GFLC
+!        J.Haseler     10-Oct-2005 Switch for I/O to trajectory  structure
+!        Y. Bouteloup  28-Jan-2005 Add YR (rain !) in DEACT_CLOUD_GFL
+!        20-Feb-2005 J. Vivoda  3TL PC Eulerian scheme, GWADV scheme for PC_FULL 
+!        Y. Bouteloup  25-Dec-2005 Add YS (snow !) in DEACT_CLOUD_GFL
+!        A. Trojakova  29-June-2006 Add YCPF in DEACT_CLOUD_GFL
+!-------------------------------------------------------------------------
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN   , ONLY : NULOUT
+USE TYPE_GFLS ,ONLY : TYPE_GFL_COMP 
+USE YOM_YGFL , ONLY : YGFL,JPGFL,YGFLC,YL,YI,YA,YR,YS,YCPF
+USE YOPHNC   , ONLY : LENCLD2
+USE YOMSLPHY  ,ONLY : MSAVTEND_S
+USE YOMDIM   , ONLY : NFLEVG   ,NFLSUL
+
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+!PUBLIC DEFINE_GFL_COMP,PRINT_GFL,SET_GFL_ATTR,DEACT_CLOUD_GFL,REACT_CLOUD_GFL
+! MPL 10.12.08
+PUBLIC DEFINE_GFL_COMP,PRINT_GFL,SET_GFL_ATTR
+
+! For internal use
+TYPE(TYPE_GFL_COMP),POINTER :: YLASTGFLC ! Pointer to last defined field
+TYPE(TYPE_GFL_COMP),POINTER :: YPTRC     ! Temporary field pointer
+TYPE(TYPE_GFL_COMP)  :: YL_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YI_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YA_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YR_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YS_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YCPF_SAVE ! For saving status of cloud fields
+LOGICAL :: L_CLD_DEACT=.FALSE.
+
+!$OMP THREADPRIVATE(l_cld_deact,ya_save,ycpf_save,yi_save,yl_save,ylastgflc,yptrc,yr_save,ys_save)
+
+#include "abor1.intfb.h"
+
+!-------------------------------------------------------------------------
+CONTAINS
+!-------------------------------------------------------------------------
+
+SUBROUTINE DEFINE_GFL_COMP(YDGFLC,CDNAME,KGRIB,LDGP,KREQIN,PREFVALI, &
+ & LDREQOUT,LDERS,LD5,LDT1,LDGPINGP,LDTRAJIO,LDTHERMACT,PR,PRCP)
+
+!**** *DEFINE_GFL_COMP*  - Setup indivual GFL field
+ 
+!     Purpose.
+!     --------
+!     Basic allocation of GFL descriptor structure (on first call)
+!     Setup basic attributes of individual GFL component
+
+!        Explicit arguments :
+!        --------------------
+
+!        YDGFLC  - field handle
+!        CDNAME  - field ARPEGE name
+!        KGRIB   - GRIB code
+!        LDGP    - if TRUE gridpoint field
+!        KREQIN  - 1 if required in input, 0 if not, -1 if initialised with refernence value
+!        PREFVALI - reference value for initialisation in case NREQIN==-1
+!        LDREQOUT- TRUE if requiered in output
+!        LDERS   - TRUE if derivatives required (only possible for spectral field)
+!        LD5     - TRUE if field needs to be present in trajectory (T5)
+!        LD1     - TRUE if field needs to be present in t+dt array (GFLT1) 
+!        LDTRAJIO- TRUE if field written to/from trajectory structure files
+
+!     Author.
+!     -------
+!      Mats Hamrud  *ECMWF*
+
+!     Modifications.
+!     --------------
+!      Original : 2003-03-01
+!      Modifications:
+!      03/07/09 C. Fischer - add Arome/Aladin attributes
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),TARGET,INTENT(INOUT) :: YDGFLC
+CHARACTER(LEN=16),INTENT(IN) :: CDNAME
+INTEGER(KIND=JPIM),INTENT(IN) :: KGRIB
+INTEGER(KIND=JPIM),INTENT(IN) :: KREQIN
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PREFVALI
+LOGICAL,INTENT(IN)::   LDREQOUT
+LOGICAL,INTENT(IN) ::   LDGP
+LOGICAL,INTENT(IN) ::   LDERS 
+LOGICAL,INTENT(IN) ::   LD5 
+LOGICAL,INTENT(IN) ::   LDT1
+LOGICAL,INTENT(IN),OPTIONAL ::   LDGPINGP
+LOGICAL,INTENT(IN),OPTIONAL ::   LDTRAJIO
+LOGICAL,INTENT(IN),OPTIONAL ::   LDTHERMACT
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PR
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PRCP
+ 
+INTEGER(KIND=JPIM) :: JGFL, ICURFLDPT, ICURFLDPC
+LOGICAL,SAVE :: LLFIRSTCALL = .TRUE.
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!$OMP THREADPRIVATE(llfirstcall)
+
+
+!-------------------------------------------------------------------------
+
+!       1. Initialization of YGFL on first call to this routine
+!          ----------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEFINE_GFL_COMP',0,ZHOOK_HANDLE)
+IF(LLFIRSTCALL) THEN
+  YGFL%NUMFLDS     = 0
+  YGFL%NUMFLDS9    = 0
+  YGFL%NUMFLDS1    = 0
+  YGFL%NUMFLDS5    = 0
+  YGFL%NUMFLDSPHY  = 0
+  YGFL%NUMFLDS_SPL = 0
+  YGFL%NUMFLDS_SL1 = 0
+  YGFL%NUMFLDSPT   = 0
+  YGFL%NUMFLDSPC   = 0
+  YGFL%NDIM        = 0
+  YGFL%NDIM0       = 0
+  YGFL%NDIM9       = 0
+  YGFL%NDIM1       = 0
+  YGFL%NDIM5       = 0
+  YGFL%NDIMSLP     = 0
+  YGFL%NDIM_SPL    = 0
+  YGFL%NDIMPT      = 0
+  YGFL%NDIMPC      = 0
+  YGFL%NDERS       = 0
+  YGFL%NUMSPFLDS   = 0
+  YGFL%NUMGPFLDS   = 0
+  YGFL%NUMSPFLDS1  = 0
+  DO JGFL=1,JPGFL
+    CALL FALSIFY_GFLC(YGFLC(JGFL))
+    YGFLC(JGFL)%MP        = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPL       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPM       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP9       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP9_PH    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP1       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP5       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP5L      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP5M      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPSLP     = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPSP      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP_SPL    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP_SL1    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP_SLX    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPPT      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPPC      = -HUGE(JPGFL)
+  ENDDO
+  NULLIFY(YLASTGFLC)
+  LLFIRSTCALL = .FALSE.
+ENDIF
+
+!-------------------------------------------------------------------------
+
+!      2. Define GFL component
+!         --------------------
+
+!      2.1 Some checks
+IF(LDGP) THEN
+  DO JGFL=1,YGFL%NUMFLDS
+    IF(.NOT. YGFLC(JGFL)%LGP) THEN
+      !        Grid-point fields should be defined before any spectral field 
+      CALL ABOR1('YOMMFL:DEFINE_GFL_COMP:GRIDPOINT BEFORE SPECTRAL')
+    ENDIF
+  ENDDO
+ENDIF
+IF(LDGP) THEN
+  IF(LDERS) THEN
+    !      Derivatives can only be defined for spectral fields
+    CALL ABOR1('YOMMFL:DEFINE_GFL_COMP:DERIVATIVES ONLY WITH SPECTRAL')
+  ENDIF
+ENDIF
+IF(YGFL%NUMFLDS == JPGFL) THEN
+  WRITE(NULOUT,*) ' MAXIMUM NUMBER OF FIELDS ALREADY DEFINED'
+  CALL ABOR1('YOMMFL: EXCEED NUMBER OF FIELDS')
+ENDIF
+
+!      2.2 Define field attributes
+
+ICURFLDPT = YGFL%NUMFLDS+1
+ICURFLDPC = YGFL%NUMFLDS+1
+
+YDGFLC%LACTIVE = .TRUE.
+YDGFLC%CNAME = CDNAME
+YDGFLC%IGRBCODE = KGRIB
+YDGFLC%NREQIN = KREQIN
+IF (PRESENT(PREFVALI)) THEN
+  YDGFLC%REFVALI = PREFVALI
+ENDIF 
+YDGFLC%LREQOUT = LDREQOUT
+YDGFLC%LGP = LDGP
+YDGFLC%LSP= .NOT. YDGFLC%LGP
+YDGFLC%LT5 = LD5
+YDGFLC%LT1 = LDT1
+YDGFLC%LCDERS  = LDERS
+IF(PRESENT(LDGPINGP)) YDGFLC%LGPINGP=LDGPINGP
+IF(PRESENT(LDTRAJIO)) YDGFLC%LTRAJIO=LDTRAJIO
+IF(PRESENT(LDTHERMACT)) YDGFLC%LTHERMACT=LDTHERMACT
+IF(YDGFLC%LTHERMACT) THEN
+  IF(.NOT.PRESENT(PR)) &
+   &CALL ABOR1('GFL_SUBS:DEFINE_GFL_COMPONENT - PR MISSING')
+  IF(.NOT.PRESENT(PRCP)) &
+   &CALL ABOR1('GFL_SUBS:DEFINE_GFL_COMPONENT - PRCP MISSING')
+  YDGFLC%R = PR
+  YDGFLC%RCP = PRCP
+ENDIF
+
+!    2.3  Numbers of fields and dimensions
+YGFL%NUMFLDS = YGFL%NUMFLDS+1
+IF (YDGFLC%LT5) YGFL%NUMFLDS5 = YGFL%NUMFLDS5+1
+
+IF(YDGFLC%LCDERS) THEN
+  YGFL%NDIM = YGFL%NDIM+3
+  YGFL%NDIM0 = YGFL%NDIM0+3
+  YGFL%NDERS = YGFL%NDERS+1
+  IF (YDGFLC%LT5) YGFL%NDIM5 = YGFL%NDIM5+3
+ELSE
+  YGFL%NDIM = YGFL%NDIM+1
+  YGFL%NDIM0 = YGFL%NDIM0+1
+  IF (YDGFLC%LT5) YGFL%NDIM5 = YGFL%NDIM5+1
+ENDIF
+
+IF(YDGFLC%LSP) THEN
+  YGFL%NUMSPFLDS =YGFL%NUMSPFLDS+1
+ELSE
+  YGFL%NUMGPFLDS =YGFL%NUMGPFLDS+1
+ENDIF
+
+IF (YDGFLC%LT1)  THEN
+  YGFL%NUMFLDS1 = YGFL%NUMFLDS1+1
+  YGFL%NDIM1 = YGFL%NDIM1+1
+  IF (YDGFLC%LSP) YGFL%NUMSPFLDS1 =YGFL%NUMSPFLDS1+1
+ENDIF  
+
+!    2.4  Define field "pointers"
+YDGFLC%MP5 = -HUGE(JPGFL)
+IF (YDGFLC%LGP) THEN
+  YDGFLC%MP = YGFL%NDIM0
+  IF (YDGFLC%LT5) YDGFLC%MP5 = YGFL%NDIM5
+ELSE
+  YDGFLC%MP = YGFL%NUMFLDS
+  IF (YDGFLC%LT5) YDGFLC%MP5 = YGFL%NUMFLDS5
+ENDIF
+IF (YDGFLC%LCDERS) THEN
+  YDGFLC%MPM = YDGFLC%MP+YGFL%NDERS
+  YDGFLC%MPL = YDGFLC%MP+2*YGFL%NDERS
+  IF(YDGFLC%LT5) THEN
+    YDGFLC%MP5M = YDGFLC%MP5+YGFL%NDERS
+    YDGFLC%MP5L = YDGFLC%MP5+2*YGFL%NDERS
+  ENDIF
+ELSE
+  YDGFLC%MPL = -HUGE(JPGFL)
+  YDGFLC%MPM = -HUGE(JPGFL)
+  YDGFLC%MP5L = -HUGE(JPGFL)
+  YDGFLC%MP5M = -HUGE(JPGFL)
+ENDIF
+
+IF(YDGFLC%LSP) THEN
+  YDGFLC%MPSP = YGFL%NUMSPFLDS
+ELSE
+  YDGFLC%MPSP = -HUGE(JPGFL)
+ENDIF
+
+IF (YDGFLC%LT1)  THEN
+  YDGFLC%MP1 = YGFL%NUMFLDS1
+ELSE
+  YDGFLC%MP1 = -HUGE(JPGFL)
+ENDIF  
+  
+!      2.6  Possibly reassign pointers (needed for multiple fields with derivatives)
+
+IF(ASSOCIATED(YLASTGFLC)) THEN
+  YPTRC=>YLASTGFLC
+  DO
+    IF(.NOT.LDGP) THEN
+      IF(YPTRC%LCDERS) THEN
+        YPTRC%MPM = YPTRC%MPM+1
+        IF(LDERS)THEN
+          YPTRC%MPL = YPTRC%MPL+2
+        ELSE
+          YPTRC%MPL = YPTRC%MPL+1
+        ENDIF
+      ENDIF
+      WRITE(NULOUT,*)' DEFINE_GFL_COMP:CHECKING ',YPTRC%CNAME
+      WRITE(NULOUT,*)' REASSIGNED MPL=',YPTRC%MPL,' MPM=',YPTRC%MPM
+      IF (YDGFLC%LT5) THEN
+        IF(YPTRC%LT5) THEN
+          IF(YPTRC%LCDERS) THEN
+            YPTRC%MP5M = YPTRC%MP5M+1
+            IF(LDERS)THEN
+              YPTRC%MP5L = YPTRC%MP5L+2
+            ELSE
+              YPTRC%MP5L = YPTRC%MP5L+1
+            ENDIF
+          ENDIF
+          WRITE(NULOUT,*)' REASSIGNED MP5L=',YPTRC%MP5L,' MP5M=',YPTRC%MP5M
+        ENDIF
+      ENDIF
+
+    ENDIF
+    IF(.NOT.ASSOCIATED(YPTRC%PREVIOUS)) EXIT
+    YPTRC=>YPTRC%PREVIOUS
+  ENDDO
+ENDIF
+
+!    2.7  Point to last defined field
+YDGFLC%PREVIOUS=>YLASTGFLC
+YLASTGFLC => YDGFLC
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEFINE_GFL_COMP',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+END SUBROUTINE DEFINE_GFL_COMP
+
+!=========================================================================
+
+SUBROUTINE SET_GFL_ATTR(YDGFLC,LDADV,LDT9,LDPHY,LDPT,LDPC,LDADJUST0,&
+ & LDADJUST1,KCOUPLING,PREFVALC,LDBIPER,CDSLINT)  
+
+!**** *SET_GFL_ATTR* Add attributes to previously setup GFL components
+
+!     Purpose.
+!     --------
+!     Add further attributes to previously setup, by call to DEFINE_GFL_COMP, GFL components
+
+!        Explicit arguments :
+!        --------------------
+!        LDADV   - TRUE if field to be advected
+!        LDT9    - TRUE if field present in t-dt
+!        LDPHY   - TRUE if field updated by physics
+!        LDPT    - TRUE if field present in phy. tend.
+!        LDPC    - TRUE if field in predictor/corrector time stepping treatment (3TL)
+!        LDADJUST0  - TRUE if field to be adjusted at t
+!        LDADJUST1  - TRUE if field to be adjusted at t+dt
+!        KCOUPLING - 1 if field to be coupled, 0 if not, -1 if coupled with REFVALC
+!        REVALC     - refernce value for coupling, used only in case NCOUPLING==-1
+!        LDBIPER    - TRUE if field to be biperiodised
+!        CDSLINT - S.L. interpolator
+
+!     Author.
+!     -------
+!      Mats Hamrud  *ECMWF*
+
+!     Modifications.
+!     --------------
+!      Original : 2003-03-01
+!      Modifications:
+!      03/07/09 C. Fischer - add Arome/Aladin attributes
+!      2004-Nov F. Vana - update of CDSLINT
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),TARGET,INTENT(INOUT) :: YDGFLC
+LOGICAL,INTENT(IN),OPTIONAL :: LDADV
+LOGICAL,INTENT(IN),OPTIONAL :: LDT9 
+LOGICAL,INTENT(IN),OPTIONAL :: LDPHY
+LOGICAL,INTENT(IN),OPTIONAL :: LDPT
+LOGICAL,INTENT(IN),OPTIONAL :: LDPC
+LOGICAL,INTENT(IN),OPTIONAL :: LDADJUST0
+LOGICAL,INTENT(IN),OPTIONAL :: LDADJUST1
+INTEGER(KIND=JPIM),INTENT(IN),OPTIONAL :: KCOUPLING
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PREFVALC
+LOGICAL,INTENT(IN),OPTIONAL :: LDBIPER
+CHARACTER(LEN=12),INTENT(IN),OPTIONAL  :: CDSLINT
+
+INTEGER(KIND=JPIM) :: IGFLPTR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:SET_GFL_ATTR',0,ZHOOK_HANDLE)
+IF(YDGFLC%MP < 1 .OR. YDGFLC%MP > YGFL%NUMFLDS) THEN
+  CALL ABOR1('SET_GFL_ATTR: GFL COMPONENT NOT SET UP')
+ELSE
+  IGFLPTR=YDGFLC%MP
+ENDIF
+
+IF(PRESENT(LDADV)) THEN
+  YDGFLC%LADV = LDADV
+ENDIF
+IF(YDGFLC%LADV) THEN
+  IF(.NOT.YDGFLC%LT1) THEN
+    CALL ABOR1(' GFL field to be advected but LT1=false')
+  ENDIF
+  YGFL%NUMFLDS_SL1 = YGFL%NUMFLDS_SL1+1
+  YDGFLC%MP_SL1 = YGFL%NUMFLDS_SL1
+  YDGFLC%MP_SLX = (YGFL%NUMFLDS_SL1-1)*(NFLEVG+2*NFLSUL)
+ENDIF
+  
+
+! Other timelevels etc.
+
+IF(PRESENT(LDT9)) THEN
+  YDGFLC%LT9 = LDT9
+ENDIF
+IF(YDGFLC%LT9 .AND. YDGFLC%MP9 == -HUGE(JPGFL) ) THEN
+  YGFL%NUMFLDS9 = YGFL%NUMFLDS9+1
+  YGFL%NDIM  = YGFL%NDIM+1
+  YGFL%NDIM9 = YGFL%NDIM9+1
+  YDGFLC%MP9 = YGFL%NDIM0+YGFL%NUMFLDS9
+  YDGFLC%MP9_PH = YDGFLC%MP9
+ELSE
+  YDGFLC%MP9 = YDGFLC%MP
+  YDGFLC%MP9_PH = YDGFLC%MP9
+  WRITE(NULOUT,*) 'WARNING YDGFLC%MP9 = YDGFLC%MP',YDGFLC%MP9,YDGFLC%MP
+ENDIF
+
+IF(PRESENT(LDPHY)) THEN
+  YDGFLC%LPHY = LDPHY
+ENDIF
+IF(YGFL%NUMFLDSPHY == 0)YGFL%NUMFLDSPHY=YGFL%NUMFLDSPHY-MSAVTEND_S
+IF(YDGFLC%MPSLP == -HUGE(JPGFL)) THEN
+  IF(YDGFLC%LPHY) THEN
+    IF(.NOT.YDGFLC%LT1) THEN
+      CALL ABOR1(' GFL field to be modified by physics but LT1=false')
+    ENDIF
+    YGFL%NUMFLDSPHY = YGFL%NUMFLDSPHY+1+MSAVTEND_S
+    YGFL%NDIMSLP = YGFL%NDIMSLP+1+MSAVTEND_S
+    YDGFLC%MPSLP = YGFL%NUMFLDSPHY
+  ENDIF
+ENDIF
+
+IF(PRESENT(LDPT)) THEN
+  YDGFLC%LPT = LDPT
+ENDIF
+IF(YDGFLC%MPPT == -HUGE(JPGFL)) THEN
+  IF(YDGFLC%LPT) THEN
+    YGFL%NUMFLDSPT = YGFL%NUMFLDSPT+1
+    YGFL%NDIMPT = YGFL%NDIMPT+1
+    YDGFLC%MPPT = YGFL%NUMFLDSPT
+  ENDIF
+ENDIF
+IF(PRESENT(LDPC)) THEN
+  YDGFLC%LPC = LDPC
+ENDIF
+IF(YDGFLC%MPPC == -HUGE(JPGFL)) THEN
+  IF(YDGFLC%LPC) THEN
+    YGFL%NUMFLDSPC = YGFL%NUMFLDSPC+1
+    YGFL%NDIMPC = YGFL%NDIMPC+1
+    YDGFLC%MPPC = YGFL%NUMFLDSPC
+  ENDIF
+ENDIF
+
+
+! LAM attributes (do not involve extra dimensioning or pointers)
+
+IF(PRESENT(LDADJUST0)) THEN
+  YDGFLC%LADJUST0 = LDADJUST0
+ENDIF
+IF(PRESENT(LDADJUST1)) THEN
+  YDGFLC%LADJUST1 = LDADJUST1
+ENDIF
+IF(PRESENT(KCOUPLING)) THEN
+  YDGFLC%NCOUPLING = KCOUPLING
+ENDIF
+IF(PRESENT(PREFVALC)) THEN
+  YDGFLC%REFVALC = PREFVALC
+ENDIF
+IF(PRESENT(LDBIPER)) THEN
+  YDGFLC%LBIPER = LDBIPER
+ENDIF
+
+IF(PRESENT(CDSLINT)) THEN
+  YDGFLC%CSLINT=CDSLINT
+  IF(YDGFLC%MP_SPL == -HUGE(JPGFL)) THEN
+    IF(CDSLINT == 'LAITVSPCQM  ') THEN
+      YGFL%NUMFLDS_SPL = YGFL%NUMFLDS_SPL+1
+      YGFL%NDIM_SPL = YGFL%NDIM_SPL+1
+      YDGFLC%MP_SPL = YGFL%NUMFLDS_SPL
+    ENDIF
+  ENDIF
+ENDIF
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:SET_GFL_ATTR',1,ZHOOK_HANDLE)
+
+!     -------------------------------------------------------------------
+END SUBROUTINE SET_GFL_ATTR
+
+!=========================================================================
+
+SUBROUTINE PRINT_GFL
+
+!**** *PRINT_GFL*  - Print GFL attributes
+
+!     -------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:PRINT_GFL',0,ZHOOK_HANDLE)
+WRITE(NULOUT,*) ' ---- GFL COMPONENT ATTRIBUTES ----'
+IF(ASSOCIATED(YLASTGFLC)) THEN
+  YPTRC=>YLASTGFLC
+  DO
+    WRITE(NULOUT,*) ' GFL COMPONENT DEFINED - NAME=',&
+     & YPTRC%CNAME,' GRIBCODE=', YPTRC%IGRBCODE  
+    WRITE(NULOUT,*)' LGP=',YPTRC%LGP,' NREQIN=',YPTRC%NREQIN, &
+     & ' LREQOUT=',YPTRC%LREQOUT,' REFVALI=',YPTRC%REFVALI, &
+     & ' LCDERS=', YPTRC%LCDERS,' LADV=',YPTRC%LADV, &
+     & ' LPHY=',YPTRC%LPHY,' LPT=',YPTRC%LPT,' LPC=',YPTRC%LPC
+    WRITE(NULOUT,*)' LADJUST0=',YPTRC%LADJUST0,' LADJUST1=',YPTRC%LADJUST1,&
+     & ' NCOUPLING=',YPTRC%NCOUPLING,' REFVALC=',YPTRC%REFVALC,&
+     & ' LBIPER=',YPTRC%LBIPER  
+    WRITE(NULOUT,*)' LTRAJIO=',YPTRC%LTRAJIO,' LGPINGP=',YPTRC%LGPINGP
+    WRITE(NULOUT,*)' CSLINT=',YPTRC%CSLINT
+     WRITE(NULOUT,*)'LTHERMACT=',YPTRC%LTHERMACT,&
+      & ' R=',YPTRC%R,' RCP=',YPTRC%RCP
+    WRITE(NULOUT,*)' MP=',YPTRC%MP,' MPL=',YPTRC%MPL,&
+     & ' MPM=',YPTRC%MPM,' MP9=',YPTRC%MP9,' MP1=',YPTRC%MP1,&
+     & ' MP5=',YPTRC%MP5,' MP5L=',YPTRC%MP5L,' MP5M=',YPTRC%MP5M, &
+     & ' MPSLP=',YPTRC%MPSLP,' MPSP=',YPTRC%MPSP,&
+     & ' MPPT=',YPTRC%MPPT, ' MPPC=',YPTRC%MPPC
+    IF(.NOT.ASSOCIATED(YPTRC%PREVIOUS)) EXIT
+    YPTRC=>YPTRC%PREVIOUS
+  ENDDO
+ENDIF
+
+WRITE(NULOUT,*) ' ---- YGFL ATTRIBUTES ----'
+WRITE(NULOUT,*) ' YGFL%NUMFLDS=',YGFL%NUMFLDS,&
+ & ' YGFL%NUMSPFLDS=',YGFL%NUMSPFLDS,' YGFL%NUMGPFLDS=',YGFL%NUMGPFLDS,&
+ & ' YGFL%NDERS=',YGFL%NDERS,' YGFL%NUMFLDSPT=',YGFL%NUMFLDSPT,&
+ & ' YGFL%NUMFLDSPC=',YGFL%NUMFLDSPC 
+WRITE(NULOUT,*) ' YGFL%NUMFLDS_SL1=',YGFL%NUMFLDS_SL1 
+WRITE(NULOUT,*) ' YGFL%NDIM=',YGFL%NDIM,' YGFL%NDIM0=',YGFL%NDIM0,&
+ & ' YGFL%NDIM9=',YGFL%NDIM9,' YGFL%NDIM1=',YGFL%NDIM1,&
+ & ' YGFL%NDIM5=',YGFL%NDIM5,' YGFL%NDIMSLP=',YGFL%NDIMSLP,&
+ & ' YGFL%NDIMPT=',YGFL%NDIMPT,' YGFL%NDIMPC=',YGFL%NDIMPC
+!!$WRITE(NULOUT,*) ' YGFL%CNAMES=',YGFL%CNAMES(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%IGRBCODE=',YGFL%IGRBCODE(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%NREQIN=',YGFL%NREQIN(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%REFVALI=',YGFL%REFVALI(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LREQOUT=',YGFL%LREQOUT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LADV=',YGFL%LADV(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%CSLINT=',YGFL%CSLINT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP=',YGFL%MP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LSP=',YGFL%LSP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPSP=',YGFL%MPSP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LCDERS=',YGFL%LCDERS(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LTRAJIO=',YGFL%LTRAJIO(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPL=',YGFL%MPL(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPM=',YGFL%MPM(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LT9=',YGFL%LT9(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP9=',YGFL%MP9(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LT1=',YGFL%LT1(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP1=',YGFL%MP1(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LT5=',YGFL%LT5(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP5=',YGFL%MP5(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP5L=',YGFL%MP5L(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP5M=',YGFL%MP5M(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LPHY=',YGFL%LPHY(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPSLP=',YGFL%MPSLP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LPT=',YGFL%LPT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPPT=',YGFL%MPPT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LPC=',YGFL%LPC(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPPC=',YGFL%MPPC(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LADJUST0=',YGFL%LADJUST0(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LADJUST1=',YGFL%LADJUST1(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%NCOUPLING=',YGFL%NCOUPLING(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%REFVALC=',YGFL%REFVALC(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LBIPER=',YGFL%LBIPER(1:YGFL%NUMFLDS)
+WRITE(NULOUT,*) ' --------------------------------------------'
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:PRINT_GFL',1,ZHOOK_HANDLE)
+END SUBROUTINE PRINT_GFL
+
+!=========================================================================
+
+!SUBROUTINE DEACT_CLOUD_GFL  ! commente par MPL 10.12.08 (et REACT_CLOUD_GFL)
+!
+!**** *DEACT_CLOUD_GFL* Deactivate prognostic cloud variables
+!
+!     ------------------------------------------------------------------
+!
+!INTEGER(KIND=JPIM) :: JGFL
+!REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!
+!#include "suslb.intfb.h"
+!
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEACT_CLOUD_GFL',0,ZHOOK_HANDLE)
+!
+!IF (.NOT.L_CLD_DEACT .AND. &
+! & (YL%LACTIVE .OR. YI%LACTIVE .OR. &
+! &  YR%LACTIVE .OR. YS%LACTIVE .OR. YA%LACTIVE .OR. YCPF%LACTIVE ) ) THEN
+!  CALL COPY_GFLC_GFLC(YL_SAVE,YL)
+!  CALL COPY_GFLC_GFLC(YI_SAVE,YI)
+!  CALL COPY_GFLC_GFLC(YR_SAVE,YR)
+!  CALL COPY_GFLC_GFLC(YS_SAVE,YS)
+!  CALL COPY_GFLC_GFLC(YA_SAVE,YA)
+!  CALL COPY_GFLC_GFLC(YCPF_SAVE,YCPF)
+!  
+!  IF( .NOT. LENCLD2) THEN
+!    IF (YL%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YI%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YR%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YS%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YA%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YCPF%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!
+!    IF (YL%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YI%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YR%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YS%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YA%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YCPF%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!
+!    CALL FALSIFY_GFLC(YL)
+!    CALL FALSIFY_GFLC(YI)
+!    CALL FALSIFY_GFLC(YR)
+!   CALL FALSIFY_GFLC(YS)
+!   CALL FALSIFY_GFLC(YA)
+!   CALL FALSIFY_GFLC(YCPF)
+! ELSE
+!   CALL NOADVECT_GFLC(YL)
+!   CALL NOADVECT_GFLC(YI)
+!   CALL NOADVECT_GFLC(YR)
+!   CALL NOADVECT_GFLC(YS)
+!   CALL NOADVECT_GFLC(YA)
+!   CALL NOADVECT_GFLC(YCPF)
+! ENDIF
+! YGFL%NUMFLDS_SL1 = 0
+! DO JGFL=1,YGFL%NUMFLDS
+!   YGFLC(JGFL)%MP_SL1 = -HUGE(JPGFL)
+!   IF(YGFLC(JGFL)%LADV) THEN
+!     YGFL%NUMFLDS_SL1 = YGFL%NUMFLDS_SL1+1
+!     YGFLC(JGFL)%MP_SL1 = YGFL%NUMFLDS_SL1
+!     YGFLC(JGFL)%MP_SLX = (YGFLC(JGFL)%MP_SL1-1)*(NFLEVG+2*NFLSUL)
+!   ENDIF
+! ENDDO
+! CALL SUSLB
+!
+! L_CLD_DEACT=.TRUE.
+! WRITE(NULOUT,*)' CLOUD FIELDS DE-ACTIVATAD, YGFL%NUMGPFLDS=', &
+! & YGFL%NUMGPFLDS,' YGFL%NUMFLDS_SL1=', YGFL%NUMFLDS_SL1
+!ENDIF
+!
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEACT_CLOUD_GFL',1,ZHOOK_HANDLE)
+!
+!END SUBROUTINE DEACT_CLOUD_GFL
+!
+!!=========================================================================
+!
+!SUBROUTINE REACT_CLOUD_GFL
+!!**** *REACT_CLOUD_GFL* Reactivate prognostic cloud variables
+!
+!INTEGER(KIND=JPIM) :: JGFL
+!REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!LOGICAL :: LLGPI,LLGPL,LLGPA
+!#include "suslb.intfb.h"
+!!     ------------------------------------------------------------------
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:REACT_CLOUD_GFL',0,ZHOOK_HANDLE)
+!
+!IF (L_CLD_DEACT) THEN
+!  LLGPL = YL%LGP
+!  LLGPI = YI%LGP
+!  LLGPA = YA%LGP
+!  
+!  CALL COPY_GFLC_GFLC(YL,YL_SAVE)
+!  CALL COPY_GFLC_GFLC(YI,YI_SAVE)
+!  CALL COPY_GFLC_GFLC(YA,YA_SAVE)
+!
+!  IF (.NOT. LLGPL .AND. YL%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
+!  IF (.NOT. LLGPI .AND. YI%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
+!  IF (.NOT. LLGPA .AND. YA%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
+!
+!  YGFL%NUMFLDS_SL1 = 0
+!  DO JGFL=1,YGFL%NUMFLDS
+!    YGFLC(JGFL)%MP_SL1 = -HUGE(JPGFL)
+!    IF(YGFLC(JGFL)%LADV) THEN
+!      YGFL%NUMFLDS_SL1 = YGFL%NUMFLDS_SL1+1
+!      YGFLC(JGFL)%MP_SL1 = YGFL%NUMFLDS_SL1
+!      YGFLC(JGFL)%MP_SLX = (YGFLC(JGFL)%MP_SL1-1)*(NFLEVG+2*NFLSUL)
+!    ENDIF
+!  ENDDO
+!  CALL SUSLB
+!
+!  L_CLD_DEACT=.FALSE.
+!  WRITE(NULOUT,*)' CLOUD FIELDS RE-ACTIVATAD, YGFL%NUMGPFLDS=', &
+!  & YGFL%NUMGPFLDS,' YGFL%NUMFLDS_SL1=', YGFL%NUMFLDS_SL1
+!ENDIF
+!
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:REACT_CLOUD_GFL',1,ZHOOK_HANDLE)
+!
+!!     ------------------------------------------------------------------
+!END SUBROUTINE REACT_CLOUD_GFL
+
+!=========================================================================
+
+SUBROUTINE FALSIFY_GFLC(YDGFLC)
+
+!     Purpose.
+!     --------
+!       Set field descriptors to false.
+
+!     Author.
+!     -------
+!      Y. Tremolet
+
+!     Modifications.
+!     --------------
+!      Original : 2004-03-12
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),INTENT(INOUT) :: YDGFLC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:FALSIFY_GFLC',0,ZHOOK_HANDLE)
+YDGFLC%CNAME     = ''
+YDGFLC%IGRBCODE  = -HUGE(JPGFL)
+YDGFLC%LADV      = .FALSE.
+YDGFLC%NREQIN    = 0
+YDGFLC%REFVALI   = 0.0_JPRB
+YDGFLC%LREQOUT   = .FALSE.
+YDGFLC%LGPINGP   = .TRUE.
+YDGFLC%LTRAJIO   = .FALSE.
+YDGFLC%LGP       = .FALSE.
+YDGFLC%LSP       = .FALSE.
+YDGFLC%LCDERS    = .FALSE.
+YDGFLC%LACTIVE   = .FALSE.
+YDGFLC%LTHERMACT = .FALSE.
+YDGFLC%LT9       = .FALSE.
+YDGFLC%LT1       = .FALSE.
+YDGFLC%LT5       = .FALSE.
+YDGFLC%LPHY      = .FALSE.
+YDGFLC%LPT       = .FALSE.
+YDGFLC%LPC       = .FALSE.
+YDGFLC%LADJUST0  = .FALSE.
+YDGFLC%LADJUST1  = .FALSE.
+YDGFLC%NCOUPLING = 0
+YDGFLC%REFVALC   = 0.0_JPRB
+YDGFLC%LBIPER    = .FALSE.
+YDGFLC%CSLINT    = ''
+YDGFLC%R         = 0.0_JPRB
+YDGFLC%RCP       = 0.0_JPRB
+!yt YDGFLC%MP        = -HUGE(JPGFL)
+!yt YDGFLC%MPL       = -HUGE(JPGFL)
+!yt YDGFLC%MPM       = -HUGE(JPGFL)
+!yt YDGFLC%MP9       = -HUGE(JPGFL)
+!yt YDGFLC%MP1       = -HUGE(JPGFL)
+!yt YDGFLC%MP5       = -HUGE(JPGFL)
+!yt YDGFLC%MP5L      = -HUGE(JPGFL)
+!yt YDGFLC%MP5M      = -HUGE(JPGFL)
+!yt YDGFLC%MPSLP     = -HUGE(JPGFL)
+!yt YDGFLC%MPSP      = -HUGE(JPGFL)
+!yt YDGFLC%MP_SPL    = -HUGE(JPGFL)
+!yt;-) YDGFLC%MPPT   = -HUGE(JPGFL)
+!yt;-) YDGFLC%MPPC   = -HUGE(JPGFL)
+!yt NULLIFY(YDGFLC%PREVIOUS)
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:FALSIFY_GFLC',1,ZHOOK_HANDLE)
+
+END SUBROUTINE FALSIFY_GFLC
+!=========================================================================
+
+SUBROUTINE NOADVECT_GFLC(YDGFLC)
+
+!     Purpose.
+!     --------
+!       Switch off advection ect.
+
+!     Author.
+!     -------
+!      Y. Tremolet
+
+!     Modifications.
+!     --------------
+!      Original : 2004-03-12
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),INTENT(INOUT) :: YDGFLC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:NOADVECT_GFLC',0,ZHOOK_HANDLE)
+YDGFLC%LADV      = .FALSE.
+YDGFLC%LCDERS    = .FALSE.
+YDGFLC%LT1       = .FALSE.
+YDGFLC%LT5       = .FALSE.
+YDGFLC%LPHY      = .FALSE.
+YDGFLC%LPT       = .FALSE.
+YDGFLC%LADJUST0  = .FALSE.
+YDGFLC%LADJUST1  = .FALSE.
+YDGFLC%LBIPER    = .FALSE.
+YDGFLC%CSLINT    = ''
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:NOADVECT_GFLC',1,ZHOOK_HANDLE)
+
+END SUBROUTINE NOADVECT_GFLC
+
+!=========================================================================
+
+SUBROUTINE COPY_GFLC_GFLC(YDGFLC1,YDGFLC2)
+
+!     Purpose.
+!     --------
+!       Copy field descriptors.
+
+!     Author.
+!     -------
+!      Y. Tremolet
+
+!     Modifications.
+!     --------------
+!      Original : 2004-03-12
+!-------------------------------------------------------------------------
+
+TYPE (TYPE_GFL_COMP), INTENT(INOUT) :: YDGFLC1
+TYPE (TYPE_GFL_COMP), INTENT(IN)    :: YDGFLC2
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:COPY_GFLC_GFLC',0,ZHOOK_HANDLE)
+YDGFLC1%CNAME     = YDGFLC2%CNAME
+YDGFLC1%IGRBCODE  = YDGFLC2%IGRBCODE
+YDGFLC1%LADV      = YDGFLC2%LADV
+YDGFLC1%NREQIN    = YDGFLC2%NREQIN
+YDGFLC1%REFVALI   = YDGFLC2%REFVALI
+YDGFLC1%LREQOUT   = YDGFLC2%LREQOUT
+YDGFLC1%LGPINGP   = YDGFLC2%LGPINGP
+YDGFLC1%LTRAJIO   = YDGFLC2%LTRAJIO
+YDGFLC1%LGP       = YDGFLC2%LGP
+YDGFLC1%LSP       = YDGFLC2%LSP
+YDGFLC1%LPT       = YDGFLC2%LPT
+YDGFLC1%LPC       = YDGFLC2%LPC
+YDGFLC1%LCDERS    = YDGFLC2%LCDERS
+YDGFLC1%LACTIVE   = YDGFLC2%LACTIVE
+YDGFLC1%LTHERMACT = YDGFLC2%LTHERMACT
+YDGFLC1%LT9       = YDGFLC2%LT9
+YDGFLC1%LT1       = YDGFLC2%LT1
+YDGFLC1%LT5       = YDGFLC2%LT5
+YDGFLC1%LPHY      = YDGFLC2%LPHY
+YDGFLC1%LADJUST0  = YDGFLC2%LADJUST0
+YDGFLC1%LADJUST1  = YDGFLC2%LADJUST1
+YDGFLC1%NCOUPLING = YDGFLC2%NCOUPLING
+YDGFLC1%REFVALC   = YDGFLC2%REFVALC
+YDGFLC1%LBIPER    = YDGFLC2%LBIPER
+YDGFLC1%CSLINT    = YDGFLC2%CSLINT
+YDGFLC1%R         = YDGFLC2%R
+YDGFLC1%RCP       = YDGFLC2%RCP
+YDGFLC1%MP        = YDGFLC2%MP
+YDGFLC1%MPL       = YDGFLC2%MPL
+YDGFLC1%MPM       = YDGFLC2%MPM
+YDGFLC1%MP9       = YDGFLC2%MP9
+YDGFLC1%MP1       = YDGFLC2%MP1
+YDGFLC1%MP5       = YDGFLC2%MP5
+YDGFLC1%MP5L      = YDGFLC2%MP5L
+YDGFLC1%MP5M      = YDGFLC2%MP5M
+YDGFLC1%MPSLP     = YDGFLC2%MPSLP
+YDGFLC1%MP_SPL    = YDGFLC2%MP_SPL
+YDGFLC1%MP_SL1    = YDGFLC2%MP_SL1
+YDGFLC1%MPSP      = YDGFLC2%MPSP
+YDGFLC1%MPPT      = YDGFLC2%MPPT
+YDGFLC1%MPPC      = YDGFLC2%MPPC
+!yt YDGFLC1%PREVIOUS => YDGFLC2%PREVIOUS
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:COPY_GFLC_GFLC',1,ZHOOK_HANDLE)
+
+END SUBROUTINE COPY_GFLC_GFLC
+
+!=========================================================================
+
+END MODULE GFL_SUBS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppre.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppre.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppre.F90	(revision 3330)
@@ -0,0 +1,92 @@
+SUBROUTINE GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
+
+!**** *GPPRE* - Computes half and full level pressure
+
+!     Purpose.
+!     --------
+!           Computes pressures at half and full model levels.
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
+
+!        Explicit arguments :
+!        --------------------
+!                              KPROMA :  dimensioning
+!                              KSTART :  start of work
+!                              KPROF  :  depth of work
+!                              KFLEV     : vert. dimensioning
+!                              PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE
+!                              PRESF(KPROMA,KFLEV)   - FULL LEVEL PRESSURE
+!                              PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate
+!        Implicit arguments :  NONE.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.  None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+!     Half level P:     PHk = Ak + Bk * Ps
+
+!                                PHk*ln(PHk) - PHk-1*ln(PHk-1)
+!     Full level P: ln(PFk) = [ ------------------------------- - 1. ]
+!                                        PHk - PHk-1
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 88-02-04
+!     Erik Andersson  920326: Altered computation of full level pressure
+!     Erik Andersson  930225: Use GPPREH/F.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMGEM   , ONLY : VC       ,VDELB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVAH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVBH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRESF(KPROMA,KFLEV) 
+REAL(KIND=JPRB) ::    ZLNPR(KPROMA,KFLEV) ,  ZALPH (KPROMA,KFLEV)
+REAL(KIND=JPRB) ::    ZDELP(KPROMA,KFLEV) ,  ZRDELP(KPROMA,KFLEV)
+REAL(KIND=JPRB) ::    ZRTGR(KPROMA,KFLEV) ,  ZRPRES(KPROMA,KFLEV)
+REAL(KIND=JPRB) ::    ZRPP (KPROMA,KFLEV)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "gppref.intfb.h"
+#include "gppreh.intfb.h"
+#include "gpxyb.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES HALF AND FULL LEVEL PRESSURES
+!              --------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPRE',0,ZHOOK_HANDLE)
+CALL GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+CALL GPXYB(KPROMA,KSTART,KPROF,KFLEV,VDELB,VC,PRESH,ZDELP,&
+ & ZRDELP,ZLNPR,ZALPH,ZRTGR,ZRPRES,ZRPP)  
+CALL GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,ZALPH,PRESH,PRESF)
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPRE',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPRE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppre.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppre.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppre.intfb.h	(revision 3330)
@@ -0,0 +1,13 @@
+INTERFACE
+SUBROUTINE GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) ,INTENT(IN) :: PVAH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,KFLEV)
+END SUBROUTINE GPPRE
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppref.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppref.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppref.F90	(revision 3330)
@@ -0,0 +1,172 @@
+SUBROUTINE GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PALPH,PRESH,PRESF)
+
+!**** *GPPREF* - Computes full level pressure
+
+!     Purpose.
+!     --------
+!           Computes pressures at half and full model levels.
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPPREF(...)
+
+!        Explicit arguments :
+!        --------------------
+!                              KPROMA :  dimensioning
+!                              KSTART :  start of work
+!                              KPROF  :  depth of work
+!                              KFLEV     : vert. dimensioning
+!                              PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate
+!                              PALPH (KPROMA,KFLEV)  - COEFF OF THE HYDROST
+!                              PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE
+!                              PRESF(KPROMA,KFLEV)   - FULL LEVEL PRESSURE
+!
+!        Implicit arguments :  NONE.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.  None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!                                PHk*ln(PHk) - PHk-1*ln(PHk-1)
+!     Full level P: ln(PFk) = [ ------------------------------- - 1. ]
+!                                        PHk - PHk-1
+
+!     which simplifies to:  PFk = Pk+1/2 * exp(-ALPHA)
+
+!     In case of NDLNPR=1 it becomes even simpler (no need of LAPRXP any
+!     more in principle !) :
+!                           PFk = Pk+1/2 * (1.-ALPHA) except at the top
+!     level :
+!                           PF1 = P1.5 / (2+Cv/R)
+
+!     Author.
+!     -------
+!        Erik Andersson, Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 92-11-23
+!        Modified : 95-01-31 by Radmila Bubnova: correction in the case
+!                            of the other approximation of d (ln p).
+!        Modified : 00-11-22 by Agathe Untch: modifications for vertical
+!                            finite elements
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified : 04-11-15 by K. YESSAD: improve the hierarchy of tests
+!        Modified : 15-Feb-2005 by K. YESSAD: ZTOPPRES becomes TOPPRES
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCT0   , ONLY : LAPRXPK
+USE YOMDYN   , ONLY : NDLNPR
+USE YOMCST   , ONLY : RD       ,RCVD
+USE YOMCVER  , ONLY : LVERTFE
+USE YOMGEM   , ONLY : VAF      ,VBF      ,TOPPRES
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)                  :: PVAH(0:KFLEV) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVBH(0:KFLEV) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALPH(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRESH(KPROMA,0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRESF(KPROMA,KFLEV) 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: IFIRST, JLEV, JLON
+REAL(KIND=JPRB) :: ZMUL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREF',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       1.    Level to begin normal computations
+!              ----------------------------------
+
+! This is introduced to allow the use of GPPREF without the implicit
+! assumption that the top level input for pressure is 0 hPa.
+! This restriction is only necessary in the case of use of NDLNPR=1.
+!
+! LVERTFE : .T./.F. Finite element/conventional vertical discretisation.
+! NDLNPR  : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)).
+!           NDLNPR=1: formulation of delta used in non hydrostatic model,
+! LAPRXPK : way of computing full-levels pressures in primitive equation
+!
+LVERTFE=.TRUE.    !!!!! A REVOIR (MPL) comment faut-il vraiment calculer PRESF ?
+
+IF ((.NOT.LVERTFE).AND.(NDLNPR == 1)) THEN
+  IF(PRESH(KSTART,0) <= TOPPRES)THEN
+    IFIRST=2
+  ELSE
+    IFIRST=1
+    DO JLON=KSTART,KPROF
+      IF(PRESH(JLON,0) <= TOPPRES)THEN
+        IFIRST=2
+        EXIT
+      ENDIF
+    ENDDO
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    COMPUTES FULL LEVEL PRESSURES.
+!              ------------------------------
+
+IF (LVERTFE) THEN
+  DO JLEV=1,KFLEV
+!   print *,'GPPREF: LVERTFE KFLEV KSTART KPROF JLEV',LVERTFE,KFLEV,KSTART,KPROF,JLEV
+    PRESF(KSTART:KPROF,JLEV)=VAF(JLEV)+VBF(JLEV)*PRESH(KSTART:KPROF,KFLEV)  
+  ENDDO
+ELSE
+  IF (NDLNPR == 0) THEN
+    IF (LAPRXPK) THEN
+      DO JLEV=1,KFLEV
+        DO JLON=KSTART,KPROF
+          PRESF(JLON,JLEV)=(PRESH(JLON,JLEV-1)+PRESH(JLON,JLEV))*0.5_JPRB
+        ENDDO
+      ENDDO
+    ELSE
+      DO JLEV=1,KFLEV
+        DO JLON=KSTART,KPROF
+          PRESF(JLON,JLEV)=EXP(-PALPH(JLON,JLEV))*PRESH(JLON,JLEV)
+        ENDDO
+      ENDDO
+    ENDIF
+  ELSEIF (NDLNPR == 1) THEN
+    DO JLEV=IFIRST,KFLEV
+      DO JLON=KSTART,KPROF
+        PRESF(JLON,JLEV)=(1.0_JPRB-PALPH(JLON,JLEV))*PRESH(JLON,JLEV)
+      ENDDO
+    ENDDO
+    ZMUL=1.0_JPRB/(2.0_JPRB+RCVD/RD)
+    DO JLEV=1,IFIRST-1
+      DO JLON=KSTART,KPROF
+        PRESF(JLON,JLEV)=PRESH(JLON,JLEV)*ZMUL
+      ENDDO
+    ENDDO
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREF',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPREF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppref.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppref.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppref.intfb.h	(revision 3330)
@@ -0,0 +1,14 @@
+INTERFACE
+SUBROUTINE GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PALPH,PRESH,PRESF)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) :: PVAH(0:KFLEV)
+REAL(KIND=JPRB) :: PVBH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALPH(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRESH(KPROMA,0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,KFLEV)
+END SUBROUTINE GPPREF
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppreh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppreh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppreh.F90	(revision 3330)
@@ -0,0 +1,76 @@
+SUBROUTINE GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+
+!**** *GPPREH* - Computes half and full level pressure
+
+!     Purpose.
+!     --------
+!           Computes pressures at half and full model levels.
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+
+!        Explicit arguments :
+!        --------------------
+!                              KPROMA :  dimensioning
+!                              KSTART :  start of work
+!                              KPROF  :  depth of work
+!                              KFLEV     : vert. dimensioning
+!                              PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE
+!                              PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate
+!        Implicit arguments :  NONE.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.  None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+!     Half level P:     PHk = Ak + Bk * Ps
+
+!     Author.
+!     -------
+!        Erik Andersson, Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 92-11-23
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVAH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVBH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV) 
+INTEGER(KIND=JPIM) :: JLEV, JLON
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES HALF LEVEL PRESSURES.
+!              ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREH',0,ZHOOK_HANDLE)
+DO JLEV=0,KFLEV-1
+  DO JLON=KSTART,KPROF
+    PRESH(JLON,JLEV)=PVAH(JLEV)+PVBH(JLEV)*PRESH(JLON,KFLEV)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREH',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPREH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppreh.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppreh.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gppreh.intfb.h	(revision 3330)
@@ -0,0 +1,12 @@
+INTERFACE
+SUBROUTINE GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) ,INTENT(IN) :: PVAH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV)
+END SUBROUTINE GPPREH
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gpxyb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gpxyb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gpxyb.F90	(revision 3330)
@@ -0,0 +1,240 @@
+SUBROUTINE GPXYB(KPROMA,KSTART,KPROF,KFLEV,PVDELB,PVC,&
+ & PRES,PDELP,PRDELP,PLNPR,PALPH,PRTGR,&
+ & PRPRES,PRPP)  
+
+!**** *GPXYB* - Computes auxillary arrays
+
+!     Purpose.
+!     --------
+!           COMPUTES AUXILLARY ARRAYS RELATED TO THE HYBRID COORDINATE
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPXYB(..)
+
+!        Explicit arguments :
+!        --------------------
+!     KPROMA : dimensioning
+!     KSTART : start of work
+!     KPROF  : depth of work
+!     KFLEV     : vert. dimensioning
+
+!     PVDELB(KPROMA,0:KFLEV) : related to vert. coordinate        (input)
+!     PVC   (KPROMA,0:KFLEV) :  "     "      "     "    "         (input)
+!     PRES (KPROMA,0:KFLEV)  : HALF LEVEL PRESSURE                (input)
+!     PDELP (KPROMA,KFLEV)   : PRESSURE DIFFERENCE ACROSS LAYERS  (output)
+!     PRDELP(KPROMA,KFLEV)   : THEIR INVERSE                      (output)
+!     PLNPR (KPROMA,KFLEV)   : LOGARITHM OF RATIO OF PRESSURE     (output)
+!     PALPH (KPROMA,KFLEV)   : COEFFICIENTS OF THE HYDROSTATICS   (output)
+!     PRTGR (KPROMA,KFLEV)   : FOR PRES. GRAD. TERM AND ENE. CONV.(output)
+!                              ((rssavnabla prehyd/prehyd)_[layer]
+!                              = prtgr_[layer] * (rssavnabla prehyds))
+!     PRPRES(KPROMA,KFLEV)   : inverse of HALF LEVEL PRESSURE     (output)
+!     PRPP  (KPROMA,KFLEV)   : inverse of PRES(J)*PRES(J-1)       (output)
+
+!        Implicit arguments :  None.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.      None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 88-02-04
+!        Modified : 94-10-11 by Radmila Bubnova: correction in the case
+!                            of the other approximation of d (ln p).
+!        Modified : 99-06-04 Optimisation   D.SALMOND
+!        Modified : 02-03-08 K. YESSAD: consistent discretisations of
+!                    "alpha" (PALPH) and "prtgr" (PRTGR)
+!                    for finite element vertical discretisation
+!                    to allow model to run with MF-physics and DDH.
+!        Modified : 03-07-07 J. Hague:  Replace divides with reciprocal
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified : 15-Feb-2005 by K. YESSAD: ZTOPPRES becomes TOPPRES
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMDYN   , ONLY : NDLNPR   ,RHYDR0
+USE YOMCST   , ONLY : RD       ,RCVD
+USE YOMGEM   , ONLY : VDELA    ,VAF      ,VBF      ,TOPPRES
+USE YOMCVER  , ONLY : LVERTFE
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVDELB(KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVC(KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRES(KPROMA,0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDELP(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRDELP(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PLNPR(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PALPH(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRTGR(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRPRES(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRPP(KPROMA,KFLEV) 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: IFIRST, JLEV, JLON, JJ, JTEMP, JM
+
+REAL(KIND=JPRB) :: ZPRESF
+REAL(KIND=JPRB) :: ZRPRES(KPROMA,2)
+REAL(KIND=JPRB) :: ZPRESFD
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPXYB',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       0.    Level to begin normal computations
+!              ----------------------------------
+
+! This is introduced to allow the use of GPXYB without the implicit
+! assumption that the top level input for pressure is 0 hPa. This
+! is used in the surface observation operators where you do not want
+! to compute geopotential at all model levels.
+! The first block if is for economy (no do loop start up) and the second
+! for safety.
+!print *,'GPXYB: NDLNPR RHYDR0=',NDLNPR,RHYDR0
+TOPPRES=0.1  !!!!! A REVOIR (MPL) 29042010 passe de 0 a 0.1 comme ARPEGE
+IF(PRES(KSTART,0) <= TOPPRES)THEN
+  IFIRST=2
+ELSE
+  IFIRST=1
+  DO JLON=KSTART,KPROF
+    IF(PRES(JLON,0) <= TOPPRES)then
+      IFIRST=2
+      EXIT
+    ENDIF
+  ENDDO
+ENDIF
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES EVERYTHING.
+!              --------------------
+
+!print *,'NDLNPR LVERTFE',NDLNPR,LVERTFE
+IF(NDLNPR == 0) THEN
+
+  IF(LVERTFE) THEN
+    DO JLEV=1,KFLEV
+      DO JLON=KSTART,KPROF
+        PDELP(JLON,JLEV)=VDELA(JLEV) + PVDELB(JLEV)*PRES(JLON,KFLEV)
+        PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+        ZPRESF =VAF(JLEV) + VBF(JLEV)*PRES(JLON,KFLEV)
+        ZPRESFD=1.0_JPRB/ZPRESF
+        PLNPR(JLON,JLEV)=PDELP(JLON,JLEV)*ZPRESFD
+        ! * PRTGR needed for DDH and option LVERCOR=T.
+        !   for finite element vertical discretisation,
+        !   "prtgr_[layer]" is simply B_[layer]/prehyd_[layer]
+        PRTGR (JLON,JLEV)=VBF(JLEV)*ZPRESFD
+        ! * PALPH needed for MF physics:
+        PALPH(JLON,JLEV)=(PRES(JLON,JLEV)-ZPRESF)*ZPRESFD
+      ENDDO
+    ENDDO
+  ELSE
+    JJ=1
+    JM=2
+    DO JLON=KSTART,KPROF
+      ZRPRES(JLON,JM)=1.0_JPRB/PRES(JLON,IFIRST-1)
+    ENDDO
+    DO JLEV=IFIRST,KFLEV
+      DO JLON=KSTART,KPROF
+        ZRPRES(JLON,JJ)=1.0_JPRB/PRES(JLON,JLEV)
+        PDELP (JLON,JLEV)=PRES(JLON,JLEV)-PRES(JLON,JLEV-1)
+        PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+        PLNPR (JLON,JLEV)=LOG(PRES(JLON,JLEV)*ZRPRES(JLON,JM))
+        PRPRES(JLON,JLEV)=ZRPRES(JLON,JJ)
+        PALPH (JLON,JLEV)=1.0_JPRB-PRES(JLON,JLEV-1)*PRDELP(JLON,JLEV)&
+         & *PLNPR(JLON,JLEV)  
+        PRPP  (JLON,JLEV)=ZRPRES(JLON,JJ)*ZRPRES(JLON,JM)
+        PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)&
+         & *(PVDELB(JLEV)+PVC(JLEV)*PLNPR(JLON,JLEV)*PRDELP(JLON,&
+         & JLEV))  
+!       print *,'GPXYB JLEV JLON JJ PRES ZPRES PDELP ', JLEV,JLON,JJ,PRES(JLON,JLEV),ZRPRES(JLON,JJ),PDELP(JLON,JLEV)
+!       print *,'GPXYB JLEV JLON JM PRDELP PLNPR ', JLEV,JLON,JM,PRDELP(JLON,JLEV),PLNPR (JLON,JLEV)
+!       print *,'GPXYB JLEV JLON JJ PRPRES PALPH ', JLEV,JLON,JJ,PRPRES(JLON,JLEV),PALPH (JLON,JLEV)
+!       print *,'GPXYB JLEV JLON PRPP PRTGR PVDELB PVC ', JLEV,JLON,PRPP  (JLON,JLEV),PRTGR (JLON,JLEV),PVDELB(JLEV),PVC(JLEV)
+      ENDDO
+      JTEMP=JM
+      JM=JJ
+      JJ=JTEMP
+    ENDDO
+    DO JLEV=1,IFIRST-1
+      DO JLON=KSTART,KPROF
+        PDELP (JLON,JLEV)=PRES(JLON,JLEV)-PRES(JLON,JLEV-1)
+        PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+        PLNPR (JLON,JLEV)=LOG(PRES(JLON,1)/TOPPRES)
+        PRPRES(JLON,JLEV)=1.0_JPRB/PRES(JLON,1)
+        PALPH (JLON,JLEV)=RHYDR0
+        PRPP  (JLON,JLEV)=1.0_JPRB/(PRES(JLON,1)*TOPPRES)
+        PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)*PVDELB(JLEV)
+      ENDDO
+    ENDDO
+  ENDIF
+
+ELSEIF(NDLNPR == 1) THEN
+  IF(LVERTFE) THEN
+    CALL ABOR1(' LVERTFE=.T. NOT COMPATIBLE WITH NDLNPR == 1')
+  ENDIF
+
+  DO JLEV=IFIRST,KFLEV
+    DO JLON=KSTART,KPROF
+      PDELP (JLON,JLEV)=PRES(JLON,JLEV)-PRES(JLON,JLEV-1)
+      PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+      PRPP  (JLON,JLEV)=1.0_JPRB/(PRES(JLON,JLEV)*PRES(JLON,JLEV-1))
+      PLNPR (JLON,JLEV)=PDELP(JLON,JLEV)*SQRT(PRPP(JLON,JLEV))
+      PALPH (JLON,JLEV)=1.0_JPRB-PRES(JLON,JLEV-1)*PRDELP(JLON,JLEV)&
+       & *PLNPR(JLON,JLEV)  
+      PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)&
+       & *(PVDELB(JLEV)+PVC(JLEV)*PLNPR(JLON,JLEV)*PRDELP(JLON,&
+       & JLEV))  
+      PRPRES(JLON,JLEV)=1.0_JPRB/PRES(JLON,JLEV)
+    ENDDO
+  ENDDO
+
+  DO JLEV=1,IFIRST-1
+    DO JLON=KSTART,KPROF
+      PDELP (JLON,JLEV)=PRES(JLON,JLEV)
+      PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+      PLNPR (JLON,JLEV)=2.0_JPRB+RCVD/RD
+      PALPH (JLON,JLEV)=1.0_JPRB
+      PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)*PVDELB(JLEV)
+      PRPRES(JLON,JLEV)=1.0_JPRB/PRES(JLON,1)
+      PRPP  (JLON,JLEV)=(PLNPR(JLON,JLEV)*PRDELP(JLON,JLEV))**2
+    ENDDO
+  ENDDO
+
+ENDIF
+
+! (PLNPR(JLON,1) AND PRPP(JLON,1) ARE A PRIORI NOT USED LATER)
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPXYB',1,ZHOOK_HANDLE)
+END SUBROUTINE GPXYB
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gpxyb.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gpxyb.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gpxyb.intfb.h	(revision 3330)
@@ -0,0 +1,21 @@
+INTERFACE
+SUBROUTINE GPXYB(KPROMA,KSTART,KPROF,KFLEV,PVDELB,PVC,&
+ & PRES,PDELP,PRDELP,PLNPR,PALPH,PRTGR,&
+ & PRPRES,PRPP) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) ,INTENT(IN) :: PVDELB(KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVC(KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRES(KPROMA,0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDELP(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRDELP(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PLNPR(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PALPH(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRTGR(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRPRES(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRPP(KPROMA,KFLEV)
+END SUBROUTINE GPXYB
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gridpoint_buffers.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gridpoint_buffers.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gridpoint_buffers.F90	(revision 3330)
@@ -0,0 +1,117 @@
+MODULE GRIDPOINT_BUFFERS
+
+!     Purpose.
+!     --------
+!           GRIDPOINT_BUFFERS defines the type "gridpoint buffer",
+!           and the operations to create and destroy instances of
+!           the type.
+
+!     Author.
+!     -------
+!        Mike Fisher *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 1999-11-10
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCT0   , ONLY : NPRINTLEV , LALLOPR
+USE YOMGEM   , ONLY : NGPTOT
+USE YOMLUN   , ONLY : NULOUT
+
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+PUBLIC gridpoint_buffer, &
+ & ALLOCATE_GRIDPOINT_BUFFER, &
+ & ALLOCATED_GRIDPOINT_BUFFER, &
+ & DEALLOCATE_GRIDPOINT_BUFFER  
+
+TYPE gridpoint_buffer 
+CHARACTER(LEN=1), POINTER :: CLNAME(:)
+INTEGER(KIND=JPIM) :: IFIELDS
+INTEGER(KIND=JPIM) :: IDGEN
+INTEGER(KIND=JPIM) :: IDGENL
+INTEGER(KIND=JPIM) :: IBLEN
+INTEGER(KIND=JPIM) :: IPACK
+LOGICAL   :: LFILLED
+REAL(KIND=JPRB),    POINTER :: GPBUF(:)
+END TYPE gridpoint_buffer
+
+#include "abor1.intfb.h"
+
+!-----------------------------------------------------------------------
+
+CONTAINS
+SUBROUTINE ALLOCATE_GRIDPOINT_BUFFER (CDNAME,YDGPBUF,KFIELDS,KPACK, &
+                                &     KGPTOT)
+
+TYPE (gridpoint_buffer),INTENT(OUT)        :: YDGPBUF
+CHARACTER(LEN=*) , INTENT(IN)  :: CDNAME
+INTEGER(KIND=JPIM)        , INTENT(IN)  :: KFIELDS,KPACK
+INTEGER(KIND=JPIM)        , INTENT(IN),OPTIONAL  :: KGPTOT
+
+INTEGER(KIND=JPIM)   ::   J, IGPTOT
+REAL(KIND=JPRB)      :: ZDUM
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:ALLOCATE_GRIDPOINT_BUFFER',0,ZHOOK_HANDLE)
+
+IF(PRESENT(KGPTOT))THEN
+   IGPTOT=KGPTOT
+ELSE
+   IGPTOT=NGPTOT
+ENDIF
+
+ALLOCATE (YDGPBUF%CLNAME(LEN(CDNAME)))
+
+DO J=1,LEN(CDNAME)
+  YDGPBUF%CLNAME(J)  = CDNAME(J:J)
+ENDDO
+
+YDGPBUF%IFIELDS = KFIELDS
+YDGPBUF%IPACK   = KPACK
+
+IF (KPACK > 1) CALL ABOR1('ALLOCATE_GRIDPOINT_BUFFER: KPACK > 1')
+YDGPBUF%IBLEN = IGPTOT  * KFIELDS
+
+ALLOCATE (YDGPBUF%GPBUF(YDGPBUF%IBLEN))
+IF (NPRINTLEV >= 1.OR. LALLOPR) &
+ & WRITE(NULOUT,91) CDNAME,SIZE(YDGPBUF%GPBUF),SHAPE(YDGPBUF%GPBUF)  
+YDGPBUF%GPBUF(:) = HUGE(ZDUM)
+YDGPBUF%LFILLED = .FALSE.
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:ALLOCATE_GRIDPOINT_BUFFER',1,ZHOOK_HANDLE)
+91  FORMAT(1X,'ALLOCATED GRIDPOINT BUFFER ',A,', SIZE=',I8,', SHAPE=',7I8)
+END SUBROUTINE ALLOCATE_GRIDPOINT_BUFFER
+
+SUBROUTINE DEALLOCATE_GRIDPOINT_BUFFER (YDGPBUF)
+TYPE (gridpoint_buffer),INTENT(INOUT) :: YDGPBUF
+INTEGER(KIND=JPIM) :: J
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:DEALLOCATE_GRIDPOINT_BUFFER',0,ZHOOK_HANDLE)
+IF (NPRINTLEV >= 1.OR. LALLOPR) &
+ & WRITE(NULOUT,92) (YDGPBUF%CLNAME(J),J=1,SIZE(YDGPBUF%CLNAME))  
+
+DEALLOCATE (YDGPBUF%GPBUF)
+DEALLOCATE (YDGPBUF%CLNAME)
+YDGPBUF%LFILLED = .FALSE.
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:DEALLOCATE_GRIDPOINT_BUFFER',1,ZHOOK_HANDLE)
+92  FORMAT(1X,'DEALLOCATED GRIDPOINT BUFFER:,',100A1)
+END SUBROUTINE DEALLOCATE_GRIDPOINT_BUFFER
+
+LOGICAL FUNCTION ALLOCATED_GRIDPOINT_BUFFER (YDGPBUF)
+TYPE (gridpoint_buffer),INTENT(IN) :: YDGPBUF
+ALLOCATED_GRIDPOINT_BUFFER =  ASSOCIATED (YDGPBUF%GPBUF)
+END FUNCTION ALLOCATED_GRIDPOINT_BUFFER
+
+END MODULE GRIDPOINT_BUFFERS
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gstats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gstats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/gstats.F90	(revision 3330)
@@ -0,0 +1,309 @@
+SUBROUTINE GSTATS(KNUM,KSWITCH)
+
+!**** *GSTATS*  - Gather timing statistics
+
+!     PURPOSE.
+!     --------
+!       To gather timings for subsequent output by routine STATS_OUTPUT 
+
+
+!**   INTERFACE.
+!     ----------
+!       *CALL* *GSTATS(KNUM,KSWITCH)
+
+!        EXPLICIT ARGUMENTS
+!        --------------------
+!        KNUM - timing event number (for list of already defined events
+!               see routine STATS_OUTPUT)
+!        KSWITCH  - KSWITCH=0 - switch on timer
+!                   KSWITCH=1 - switch off timer
+!                   KSWITCH=2 - suspend timer
+!                   KSWITCH=3 - resume  timer
+
+!        IMPLICIT ARGUMENTS
+!        --------------------
+!        Module YOMSTATS
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.   USER_CLOCK - timing routine
+!     ----------   MPL_BARRIER - syncronization of processors
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        Mats Hamrud ECMWF
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 98-11-15
+!        D.Salmond: 02-02-25  Return if not master thread when called from a 
+!                             parallel region. 
+!        J.Hague:   03-06-11  Memory tracing (for NSTATS_MEM MPI tasks)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB     ,JPIB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOMGSTATS  
+!USE MPL_MODULE   ! MPL 28.11.08
+USE YOMOML
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN) :: KNUM
+INTEGER(KIND=JPIM),INTENT(IN) :: KSWITCH
+
+INTEGER(KIND=JPIM) :: IMOD,ICALL
+INTEGER(KIND=JPIM) :: IIMEM, IIPAG, IIMEMC
+INTEGER(KIND=JPIB) :: IMEM, IMEMH, IMEMS, IMEMC, IPAG, INUM
+INTEGER(KIND=JPIB) :: GETRSS, GETHWM, GETSTK, GETCURHEAP, GETPAG
+EXTERNAL GETRSS, GETHWM, GETSTK, GETCURHEAP, GETPAG
+REAL(KIND=JPRB) :: ZTIMED,ZCLOCK,ZTIME,ZTCPU,ZVCPU
+REAL(KIND=JPRB) :: ZLAST_PAR_TIME
+LOGICAL :: LLFIRST=.TRUE.
+LOGICAL :: LLMFIRST=.TRUE.
+  CHARACTER(LEN=32), SAVE :: CCDESC_DRHOOK(JPMAXSTAT)
+  CHARACTER(LEN=32), SAVE :: CCDESC_BARR(JPMAXSTAT)
+SAVE ZLAST_PAR_TIME
+SAVE IIMEM, IIPAG, IIMEMC
+
+INTEGER(KIND=JPIM),SAVE :: NUM_THREADS
+REAL(KIND=JPRB),ALLOCATABLE,SAVE :: ZHOOK_HANDLE(:)
+REAL(KIND=JPRB),SAVE :: ZHOOK_HANDLE_COMMS, ZHOOK_HANDLE_COMMS1
+REAL(KIND=JPRB),SAVE :: ZHOOK_HANDLE_TRANS
+REAL(KIND=JPRB),SAVE :: ZHOOK_HANDLE_BARR
+CHARACTER*4 CC
+
+INTEGER(KIND=JPIM) :: NMAX_STATS, KULNAM
+
+INTERFACE
+#include "user_clock.h"
+END INTERFACE
+
+! write(0,*) "GSTATS:LSTATS,JPMAXSTAT,LGSTATS_LABEL,KNUM=",LSTATS,JPMAXSTAT,LGSTATS_LABEL,KNUM
+
+IF(LSTATS) THEN
+
+  IF(.NOT.ALLOCATED(ZHOOK_HANDLE))THEN
+    NUM_THREADS=OML_MAX_THREADS()
+    ALLOCATE(ZHOOK_HANDLE(NUM_THREADS))
+  ENDIF
+
+  IF(LGSTATS_LABEL)THEN
+    DO INUM=1,JPMAXSTAT
+      WRITE(CC,'(I4)')INUM
+      CCDESC_BARR(INUM)='>BAR-'//CCDESC(INUM)(1:21)//'('//CC//')'
+    ENDDO
+    DO INUM=1,JPMAXSTAT
+      WRITE(CC,'(I4)')INUM
+!     write(6,*) inum,cctype(inum)
+      IF(CCTYPE(INUM).EQ."TRS".OR.CCTYPE(INUM).EQ.'MP-'.OR.CCTYPE(INUM).EQ.'MPL'&
+                            & .OR.CCTYPE(INUM).EQ.'BAR'.OR.CCTYPE(INUM).EQ.'OMP') THEN
+        CCDESC_DRHOOK(INUM)='>'//CCTYPE(INUM)//'-'//CCDESC(INUM)(1:21)//'('//CC//')'
+      ENDIF
+    ENDDO
+    LGSTATS_LABEL=.FALSE.
+  ENDIF
+!     ------------------------------------------------------------------
+
+!J  IF((KNUM > 1000 .AND.KNUM < 2001).AND.(.NOT.LSTATS_OMP))GOTO 99999
+!J  IF((KNUM > 500  .AND.KNUM < 1001).AND.(.NOT.LSTATS_COMMS))GOTO 99999
+  IF(OML_MY_THREAD() > 1)GOTO 99999
+
+!J  IF(KNUM/=0) THEN
+!J    IF(LSYNCSTATS .AND.(KSWITCH==0.OR. KSWITCH==2)) THEN
+!J      IF(.NOT.OML_IN_PARALLEL().AND. KNUM < 500 )THEN
+!J        IF(LHOOK)CALL DR_HOOK(CCDESC_BARR(KNUM),0,ZHOOK_HANDLE_BARR)
+!J        CALL MPL_BARRIER(CDSTRING='GSTATS:')
+!J        IF(LHOOK)CALL DR_HOOK(CCDESC_BARR(KNUM),1,ZHOOK_HANDLE_BARR)
+!J      ENDIF
+!J    ENDIF
+!J  ENDIF
+
+  IF (LHOOK .AND. (KSWITCH == 0 .OR. KSWITCH == 1)) THEN
+!   write(0,*) "KNUM,SWITCH=",KNUM,KSWITCH
+!   write(0,*) "CCTYPE=",CCTYPE(KNUM)
+!   write(0,*) "CCDESC_DRHOOK=",CCDESC_DRHOOK(KNUM)
+    IF(CCTYPE(KNUM).EQ."TRS")THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_TRANS)
+    ELSEIF(CCTYPE(KNUM).EQ.'MP-')THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_COMMS)
+    ELSEIF(CCTYPE(KNUM).EQ.'MPL'.AND.KNUM.NE.682)THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_COMMS1)
+    ELSEIF(CCTYPE(KNUM).EQ.'OMP')THEN
+!     CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE)
+! MPL 1.12.08 : erreur a la compilation car zhook_handle est un tableau et non un
+! scalaire (PKEY)
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZTIME)
+    ELSEIF(CCTYPE(KNUM).EQ.'BAR')THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_BARR)
+    ENDIF
+  ENDIF
+
+  CALL USER_CLOCK(PELAPSED_TIME=ZCLOCK)
+  IF (LSTATSCPU.OR.KNUM==0) THEN
+    CALL USER_CLOCK(PTOTAL_CP=ZTCPU,PVECTOR_CP=ZVCPU)
+  ELSE
+    ZTCPU = 0.0_JPRB
+    ZVCPU = 0.0_JPRB
+  ENDIF
+
+  IF (LLFIRST) THEN
+
+!   write(0,*) "JPMAXSTAT:2=",JPMAXSTAT
+
+    NCALLS(:) = 0
+    TIMESUM(:) = 0.0_JPRB
+    TIMESQSUM(:) = 0.0_JPRB
+    TIMEMAX(:) = 0.0_JPRB
+    TIMESUMB(:) = 0.0_JPRB
+    TTCPUSUM(:) = 0.0_JPRB
+    TVCPUSUM(:) = 0.0_JPRB
+    TIMELCALL(:) = ZCLOCK
+    CCDESC=""
+    CCTYPE=""
+    NTMEM      = 0
+    NTMEM(:,5) = 99999999
+    IIMEM=0
+    IIPAG=0
+    IIMEMC=0
+    TIME_LAST_CALL = ZCLOCK
+    ZLAST_PAR_TIME=ZCLOCK
+    LLFIRST = .FALSE.
+  ENDIF
+
+  IF(KNUM < 0.OR. KNUM > JPMAXSTAT) CALL ABOR1('GSTATS')
+  IF(KSWITCH == 0.OR. KSWITCH == 1) THEN
+    NCALLS(KNUM) = NCALLS(KNUM)+1
+  ENDIF
+  IMOD = MOD(NCALLS(KNUM),2)
+  IF(.NOT.((KSWITCH == 0.AND. IMOD == 1) .OR.&
+   &(KSWITCH == 2.AND. IMOD == 1) .OR.&
+   &(KSWITCH == 3.AND. IMOD == 1) .OR.&
+   &(KSWITCH == 1.AND. IMOD == 0))) THEN
+    WRITE(JPERR,*) 'KNUM,KSWITCH,IMOD,NCALLS(KNUM)',&
+     &KNUM,KSWITCH,IMOD,NCALLS(KNUM)
+    CALL ABOR1('GSTATS')
+  ENDIF
+
+  IF( KSWITCH == 0 ) THEN
+! Start timing event
+    IF(KNUM < 500) THEN
+      ZTIMED = ZCLOCK-TIME_LAST_CALL
+    ELSE
+      ZTIMED = ZCLOCK - ZLAST_PAR_TIME
+    ENDIF
+    TIMESUMB(KNUM) = TIMESUMB(KNUM)+ZTIMED
+    THISTIME(KNUM) = 0.0_JPRB
+    TIMELCALL(KNUM) = ZCLOCK
+    TTCPULCALL(KNUM) = ZTCPU
+    TVCPULCALL(KNUM) = ZVCPU
+    THISTCPU(KNUM) = 0.0_JPRB
+    THISVCPU(KNUM) = 0.0_JPRB
+    IF(MYPROC_STATS.LE.NSTATS_MEM.AND.MYPROC_STATS.NE.0) THEN
+!     CALL getrss(IMEM)
+!     IMEM = getrss()/1024
+      IPAG = getpag()
+      IMEMH = gethwm()/1024
+      IMEMS = getstk()/1024
+      IMEMC = 0
+      IF(LSTATS_ALLOC) IMEMC = GETCURHEAP()/1024
+      IF(IMEM > IIMEM.OR.IPAG > IIPAG.OR.(LSTATS_ALLOC.AND.(IMEMC.NE.IIMEMC))) THEN
+        IF(LLMFIRST) THEN
+          WRITE(0,*) ".---------------------------------------------------------"
+          WRITE(0,*) "| Memory trace details"
+          WRITE(0,*) "| --------------------"
+          WRITE(0,*) "| Memory examined at each GSTATS call if NSTATS_MEM>0."
+          WRITE(0,*) "| Header for each trace line is:"    
+          WRITE(0,*) "|"
+          WRITE(0,*) "|   RSS_INC: Increase in RSS_MAX (KB)"
+          WRITE(0,*) "|   RSS_MAX: Maximum real working set so far (KB)"
+          WRITE(0,*) "|   HEAP_MX: High Water Mark for heap so far (KB)"
+          WRITE(0,*) "|   STK:     Current Stack usage (KB)"
+          WRITE(0,*) "|   PGS:     Page faults w I/O since last trace line"
+          WRITE(0,*) "|   CALL:    Number of gstats call"
+          WRITE(0,*) "|   HEAP:    Current malloc'd total (KB)"
+          WRITE(0,*) "|" 
+          WRITE(0,*) "| Trace line written for NSTATS_MEM MPI tasks if RSS_MAX"
+          WRITE(0,*) "| RSS_MAX increases, PGS>0, or HEAP changed"
+          WRITE(0,*) "| (if LTATS_ALLOC=.TRUE.)"
+          WRITE(0,*) "`---------------------------------------------------------"
+          WRITE(0,*) ""
+          WRITE(0,'(A10,A5,21X,A7,2A8,A7,A5,A5,A8)') &
+           & "MEMORY    "," KNUM","RSS_INC"," RSS_MAX"," HEAP_MX","    STK", &
+           & "  PGS"," CALL","    HEAP"
+          LLMFIRST=.FALSE.
+        ENDIF
+        WRITE(0,'(A10,I5,1X,A20,1X,I6,2(1X,I7),1X,I6,1X,I4,1X,I4,1X,I7)') &
+             & "MEMORY bfr",KNUM,CCDESC(KNUM),IMEM-IIMEM,IMEM,IMEMH,IMEMS, &
+             & IPAG-IIPAG,(NCALLS(KNUM)+1)/2,IMEMC
+      ENDIF
+      NTMEM(KNUM,2)=IMEM
+      IIMEM=IMEM
+      IIPAG=IPAG
+      IIMEMC=IMEMC
+    ENDIF
+  ELSEIF( KSWITCH == 1 ) THEN
+! Finish timing event
+    ZTIME = THISTIME(KNUM)+(ZCLOCK-TIMELCALL(KNUM))
+    TIMESUM(KNUM) = TIMESUM(KNUM)+ZTIME
+    TIMESQSUM(KNUM) = TIMESQSUM(KNUM)+ZTIME**2
+    TIMEMAX(KNUM) = MAX(TIMEMAX(KNUM),ZTIME)
+    TTCPUSUM(KNUM) = TTCPUSUM(KNUM)+THISTCPU(KNUM)+ZTCPU-TTCPULCALL(KNUM)
+    TVCPUSUM(KNUM) = TVCPUSUM(KNUM)+THISVCPU(KNUM)+ZVCPU-TVCPULCALL(KNUM)
+    IF(MYPROC_STATS.LE.NSTATS_MEM.AND.MYPROC_STATS.NE.0) THEN
+!     CALL getrss(IMEM)
+      IMEM = GETRSS()/1024
+      IPAG = GETPAG()
+      IMEMH = GETHWM()/1024
+      IMEMS = GETSTK()/1024
+      IMEMC = 0
+      IF(LSTATS_ALLOC) IMEMC = GETCURHEAP()/1024
+      IF(IMEM > IIMEM.OR.IPAG > IIPAG.OR.(LSTATS_ALLOC.AND.(IMEMC.NE.IIMEMC))) THEN
+        WRITE(0,'(A10,I5,1X,A20,1X,I6,2(1X,I7),1X,I6,1X,I4,1X,I4,1X,I7)') &
+             & "MEMORY aft ",KNUM,CCDESC(KNUM),IMEM-IIMEM,IMEM,IMEMH,IMEMS, &
+             & IPAG-IIPAG,NCALLS(KNUM)/2,IMEMC
+      ENDIF
+      IIMEM=IMEM
+      IIPAG=IPAG
+      IIMEMC=IMEMC 
+      IMEM=IMEM-NTMEM(KNUM,2)
+      NTMEM(KNUM,4)=NTMEM(KNUM,4)+IMEM
+      IF(IMEM > NTMEM(KNUM,1)) THEN
+        NTMEM(KNUM,1)=IMEM
+        NTMEM(KNUM,3)=NCALLS(KNUM)
+      ENDIF
+      IF(IMEM < NTMEM(KNUM,5)) NTMEM(KNUM,5)=IMEM
+    ENDIF
+  ELSEIF( KSWITCH == 2 ) THEN
+! Suspend timing event
+    ZTIMED = ZCLOCK-TIMELCALL(KNUM)
+    THISTIME(KNUM) = THISTIME(KNUM)+ZTIMED
+    THISTCPU(KNUM) = THISTCPU(KNUM)+ZTCPU-TTCPULCALL(KNUM)
+    THISVCPU(KNUM) = THISVCPU(KNUM)+ZVCPU-TVCPULCALL(KNUM)
+  ELSEIF( KSWITCH == 3 ) THEN
+! Resume timing event
+    TIMELCALL(KNUM) = ZCLOCK
+    TTCPULCALL(KNUM) = ZTCPU
+    TVCPULCALL(KNUM) = ZVCPU
+  ENDIF
+  TIME_LAST_CALL = ZCLOCK
+  IF(KNUM > 500.OR.KNUM == 102.OR.KNUM == 103) ZLAST_PAR_TIME = ZCLOCK
+!   Trace stats
+  NCALLS_TOTAL = NCALLS_TOTAL+1
+  IF (LTRACE_STATS .AND. NCALLS_TOTAL <= NTRACE_STATS) THEN
+    ICALL = NCALLS_TOTAL
+    TIME_TRACE(ICALL) = ZCLOCK
+    NCALL_TRACE(ICALL) = (JPMAXSTAT+1)*KSWITCH+KNUM
+  ENDIF
+
+ENDIF
+
+99999 CONTINUE
+END SUBROUTINE GSTATS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lw.F90	(revision 3330)
@@ -0,0 +1,182 @@
+SUBROUTINE LW &
+ & ( KIDIA, KFDIA , KLON  , KLEV  , KMODE,&
+ & PCCO2, PCLDLD, PCLDLU,&
+ & PDP  , PDT0  , PEMIS , PEMIW,&
+ & PPMB , PQOF  , PTL,&
+ & PAER , PTAVE , PVIEW , PWV,&
+ & 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 ===
+! PEMIT(KLON)                ; SURFACE TOTAL LW EMISSIVITY
+! PFLUX(KLON,2,KLEV+1)       ; RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+! PFLUC(KLON,2,KLEV+1)       ; 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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NUA
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLU(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDT0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQOF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTL(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVIEW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PFLUC(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-------------------------------------------------------------------------
+
+!              ------------
+REAL(KIND=JPRB) :: ZABCU(KLON,NUA,3*KLEV+1)&
+ & ,  ZBINT(KLON,KLEV+1)        , ZBSUI(KLON)&
+ & ,  ZCNTRB(KLON,KLEV+1,KLEV+1)  
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwbv.intfb.h"
+#include "lwc.intfb.h"
+#include "lwu.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!100  CONTINUE
+
+!     ------------------------------------------------------------------
+
+!*         1.1   COMPUTES ABSORBER AMOUNTS
+!                -------------------------
+
+IF (LHOOK) CALL DR_HOOK('LW',0,ZHOOK_HANDLE)
+print *,'	LW: Avant LWU'
+CALL LWU &
+ & (  KIDIA, KFDIA, KLON, KLEV,&
+ & PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV,&
+ & ZABCU &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+!                PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+
+print *,'	LW: Avant LWBV'
+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 *,'	LW: Avant LWC'
+CALL LWC &
+ & ( KIDIA , KFDIA, KLON  , KLEV,&
+ & ZBINT , ZBSUI, PCLDLD, PCLDLU,&
+ & ZCNTRB, PEMIT, PFLUC,&
+ & PFLUX    &
+ & )  
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LW',1,ZHOOK_HANDLE)
+END SUBROUTINE LW
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lw.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lw.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lw.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE LW&
+ & ( KIDIA, KFDIA , KLON , KLEV , KMODE,&
+ & PCCO2, PCLDLD, PCLDLU,&
+ & PDP , PDT0 , PEMIS , PEMIW,&
+ & PPMB , PQOF , PTL,&
+ & PAER , PTAVE , PVIEW , PWV,&
+ & PEMIT, PFLUX , PFLUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NUA
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLU(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQOF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVIEW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PFLUC(KLON,2,KLEV+1)
+END SUBROUTINE LW
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwb.F90	(revision 3330)
@@ -0,0 +1,272 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,PDGA     ,&
+ & PDGB     ,TINTP    ,TSTAND   ,TSTP     ,XP  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDT0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTL(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PB(KLON,NSIL,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBSUR(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBTOP(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDBSL(KLON,NSIL,KLEV*2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGASUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGBSUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGATOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGBTOP(KLON,NIPD,2) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-------------------------------------------------------------------------
+
+!              ------------
+INTEGER(KIND=JPIM) :: INDB(KLON)   , INDS(KLON)
+REAL(KIND=JPRB) :: ZBLAY(KLON,KLEV), ZBLEV(KLON,KLEV+1)&
+ & ,  ZRES(KLON)      , ZRES2(KLON)&
+ & ,  ZTI(KLON)       , ZTI2(KLON)  
+
+INTEGER(KIND=JPIM) :: ILEV2, INDSU, INDT, INDTO, INDTP, INUE, INUS,&
+ & IXTOX, IXTX, JF, JG, JK, JK1, JK2, JL, JNU  
+
+REAL(KIND=JPRB) :: ZDST1, ZDSTO1, ZDSTOX, ZDSTX
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.0     PLANCK FUNCTIONS AND GRADIENTS
+!                  ------------------------------
+
+print *,'dans LWB'
+IF (LHOOK) CALL DR_HOOK('LWB',0,ZHOOK_HANDLE)
+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) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+DO JNU=1,NSIL
+  DO JL=KIDIA,KFDIA
+    PBSUR(JL,JNU)=0.0_JPRB
+    PBTOP(JL,JNU)=0.0_JPRB
+  ENDDO
+  DO JK=1,KLEV
+    DO JL=KIDIA,KFDIA
+      PB(JL,JNU,JK)=0.0_JPRB
+    ENDDO
+  ENDDO
+  DO JK=1,ILEV2
+    DO JL=KIDIA,KFDIA
+      PDBSL(JL,JNU,JK)=0.0_JPRB
+    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( MXIXT, INT( ZDSTO1 + 1.0_JPRB ) ) )
+  ZDSTOX = (PTL(JL,KLEV+1)-TINTP(IXTOX))/TSTP
+  IF (ZDSTOX < 0.5_JPRB) THEN
+    INDTO=IXTOX
+  ELSE
+    INDTO=IXTOX+1
+  ENDIF
+  INDB(JL)=INDTO
+  ZDST1 = (PTL(JL,1)-TINTP(1)) / TSTP
+  IXTX = MAX( 1, MIN( MXIXT, INT( ZDST1 + 1.0_JPRB ) ) )
+  ZDSTX = (PTL(JL,1)-TINTP(IXTX))/TSTP
+  IF (ZDSTX < 0.5_JPRB) 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( MXIXT, INT( ZDST1 + 1.0_JPRB ) ) )
+    ZDSTX = (PTAVE(JL,JK)-TINTP(IXTX))/TSTP
+    IF (ZDSTX < 0.5_JPRB) 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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWB',1,ZHOOK_HANDLE)
+END SUBROUTINE LWB
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwb.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwb.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwb.intfb.h	(revision 3330)
@@ -0,0 +1,31 @@
+INTERFACE
+SUBROUTINE LWB&
+ & ( KIDIA, KFDIA, KLON , KLEV , KMODE,&
+ & PDT0 , PTAVE, PTL,&
+ & PB , PBINT, PBSUR , PBTOP , PDBSL,&
+ & PGA , PGB , PGASUR, PGBSUR, PGATOP, PGBTOP&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : MXIXT ,NSIL ,NIPD ,PDGA ,&
+ & PDGB ,TINTP ,TSTAND ,TSTP ,XP 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PB(KLON,NSIL,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBSUR(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBTOP(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDBSL(KLON,NSIL,KLEV*2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGASUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGBSUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGATOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGBTOP(KLON,NIPD,2)
+END SUBROUTINE LWB
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwbv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwbv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwbv.F90	(revision 3330)
@@ -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)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NUA
+USE YOERDU   , ONLY : NUAER    ,NTRAER
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDT0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTL(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBSUI(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-------------------------------------------------------------------------
+
+!              ------------
+REAL(KIND=JPRB) ::&
+ & 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)  
+
+INTEGER(KIND=JPIM) :: JL, JLW
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwb.intfb.h"
+#include "lwv.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWBV',0,ZHOOK_HANDLE)
+print *,'LWBV: avant LWB'
+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)=0.0_JPRB
+  PBSUI(JL)=0.0_JPRB
+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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWBV',1,ZHOOK_HANDLE)
+END SUBROUTINE LWBV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwbv.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwbv.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwbv.intfb.h	(revision 3330)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE LWBV&
+ & ( KIDIA, KFDIA, KLON , KLEV , KMODE,&
+ & PDT0 , PEMIS, PEMIW,&
+ & PTL , PTAVE,&
+ & PEMIT, PFLUC,&
+ & PABCU, PBINT, PBSUI, PCNTRB&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NUA
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBSUI(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+END SUBROUTINE LWBV
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwc.F90	(revision 3330)
@@ -0,0 +1,420 @@
+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
+!        JJMorcrette 01-02-16 Hogan & Illingworth (2001)'s mixed overlap
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERAD   , ONLY : NOVLP
+USE YOERDI   , ONLY : REPCLC
+USE YOEOVLP  , ONLY : RA1OVLP
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBSUI(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLU(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFLUC(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: 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)  
+
+INTEGER(KIND=JPIM) :: IKCP1, IKM1, IKP1, IMAXC, IMXM1, IMXP1, JCLOUD,&
+ & JK, JK1, JK2, JKJ, JL  
+
+REAL(KIND=JPRB) :: ZALPHA1, ZCFRAC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.     INITIALIZATION
+!                 --------------
+
+!100  CONTINUE
+
+!      print *,' Enter LWC '
+IF (LHOOK) CALL DR_HOOK('LWC',0,ZHOOK_HANDLE)
+DO JL = KIDIA,KFDIA
+  ZCLOUD(JL) = 0.0_JPRB
+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)=0.0_JPRB
+    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)=0.0_JPRB
+    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) = 0.0_JPRB
+    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)=1.0_JPRB
+    ZCLOUD(JL)=0.0_JPRB
+  ENDDO
+
+  DO JK = JK1 - 1 , 1 , -1
+    ZALPHA1=RA1OVLP(KLEV+1-JK)
+    
+    DO JL = KIDIA,KFDIA
+!++MODIFCODE
+      IF ((NOVLP==1).OR.(NOVLP==6).OR.(NOVLP==8)) THEN
+!--MODIFCODE
+!* maximum-random       
+        ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-MAX(PCLDLU(JL,JK),ZCLOUD(JL)))&
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC))  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLU(JL,JK)
+!++MODIFCODE
+      ELSEIF ((NOVLP==2).OR.(NOVLP==7)) THEN
+!--MODIFCODE
+!* maximum      
+        ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLU(JL,JK))
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+!++MODIFCODE
+      ELSEIF ((NOVLP == 3).OR.(NOVLP==5)) THEN
+!--MODIFCODE
+!* random      
+        ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - PCLDLU(JL,JK))
+        ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+        ZCLEAR(JL)=ZCLEAR(JL)*( &
+         & ZALPHA1*(1.0_JPRB-MAX(PCLDLU(JL,JK),ZCLOUD(JL))) &
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC)) &
+         & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-PCLDLU(JL,JK)) )  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - 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)=1.0_JPRB
+    ZCLOUD(JL)=0.0_JPRB
+  ENDDO
+
+  DO JK = JK1 , KLEV
+    ZALPHA1=RA1OVLP(KLEV+1-JK)
+    
+    DO JL = KIDIA,KFDIA
+!++MODIFCODE
+      IF ((NOVLP == 1).OR.(NOVLP==6).OR.(NOVLP==8)) THEN
+!--MODIFCODE
+!* maximum-random       
+        ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-MAX(PCLDLD(JL,JK),ZCLOUD(JL)))&
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC))  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLD(JL,JK)
+!++MODIFCODE
+      ELSEIF ((NOVLP == 2).OR.(NOVLP==7)) THEN
+!--MODIFCODE
+!* maximum      
+        ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLD(JL,JK))
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+!++MODIFCODE
+      ELSEIF ((NOVLP == 3).OR.(NOVLP==5)) THEN
+!--MODIFCODE
+!* random      
+        ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - PCLDLD(JL,JK))
+        ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+        ZCLEAR(JL)=ZCLEAR(JL)*( &
+         & ZALPHA1*(1.0_JPRB-MAX(PCLDLD(JL,JK),ZCLOUD(JL))) &
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC)) &
+         & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB - PCLDLD(JL,JK)) )  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - 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) = 0.0_JPRB
+ENDDO
+
+DO JK1 = KLEV , 1 , -1
+
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+  DO JL = KIDIA,KFDIA
+    ZFD (JL) = (1.0_JPRB - 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)-(1.0_JPRB-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) = (1.0_JPRB - 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'
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWC',1,ZHOOK_HANDLE)
+END SUBROUTINE LWC
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwc.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwc.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwc.intfb.h	(revision 3330)
@@ -0,0 +1,22 @@
+INTERFACE
+SUBROUTINE LWC&
+ & ( KIDIA , KFDIA, KLON , KLEV,&
+ & PBINT , PBSUI, PCLDLD, PCLDLU,&
+ & PCNTRB, PEMIT, PFLUC,&
+ & PFLUX&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBSUI(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLU(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFLUC(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
+END SUBROUTINE LWC
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwtt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwtt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwtt.F90	(revision 3330)
@@ -0,0 +1,199 @@
+!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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+    
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NTRA     ,NUA      ,RPTYPE   ,RETYPE   ,&
+ & RO1H     ,RO2H     ,RPIALF0  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUU(KLON,NUA) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTT(KLON,NTRA) 
+!     ------------------------------------------------------------------
+
+!*        0.1   ARGUMENTS
+!               ---------
+
+INTEGER(KIND=JPIM) :: JA, JL
+
+REAL(KIND=JPRB) :: 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  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!               ------------
+
+!     ------------------------------------------------------------------
+!DIR$ VFUNCTION SQRTHF
+
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWTT',0,ZHOOK_HANDLE)
+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),0.0_JPRB)
+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(1.0_JPRB + RO1H * ZUXY ) - 1.0_JPRB
+  ZSQ2 = SQRT(1.0_JPRB + RO2H * ZUXY ) - 1.0_JPRB
+  ZVXY = RPIALF0 * ZY / (2.0_JPRB * 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(1.0_JPRB + 33.7_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.103_JPRB * ZYCH4 / (2.0_JPRB * 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(1.0_JPRB + 21.3_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.416_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.113_JPRB*ZYCH4)
+  ZSQH42 = SQRT(1.0_JPRB + 400._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.113_JPRB * ZYCH4 / (2.0_JPRB * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.197_JPRB*ZYN2O)
+  ZSQN22 = SQRT(1.0_JPRB + 2000._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.197_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA11 = 2.0_JPRB * PUU(JL,23) * 4.404E+05_JPRB
+  ZTTF11 = 1.0_JPRB - ZA11 * 0.003225_JPRB
+
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA12 = 2.0_JPRB * PUU(JL,24) * 6.7435E+05_JPRB
+  ZTTF12 = 1.0_JPRB - 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
+
+IF (LHOOK) CALL DR_HOOK('LWTT',1,ZHOOK_HANDLE)
+END SUBROUTINE LWTT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwtt.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwtt.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwtt.intfb.h	(revision 3330)
@@ -0,0 +1,14 @@
+INTERFACE
+SUBROUTINE LWTT ( KIDIA, KFDIA, KLON, PGA , PGB, PUU , PTT )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NTRA ,NUA ,RPTYPE ,RETYPE ,&
+ & RO1H ,RO2H ,RPIALF0 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUU(KLON,NUA)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTT(KLON,NTRA)
+END SUBROUTINE LWTT
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwttm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwttm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwttm.F90	(revision 3330)
@@ -0,0 +1,199 @@
+!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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NTRA     ,NUA      ,RPTYPE   ,RETYPE   ,&
+ & RO1H     ,RO2H     ,RPIALF0  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUU1(KLON,NUA) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUU2(KLON,NUA) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTT(KLON,NTRA) 
+!     ------------------------------------------------------------------
+
+!*        0.1   ARGUMENTS
+!               ---------
+
+INTEGER(KIND=JPIM) :: JA, JL
+
+REAL(KIND=JPRB) :: 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  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+!DIR$ VFUNCTION SQRTHF
+
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWTTM',0,ZHOOK_HANDLE)
+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),0.0_JPRB)
+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(1.0_JPRB + RO1H * ZUXY ) - 1.0_JPRB
+  ZSQ2 = SQRT(1.0_JPRB + RO2H * ZUXY ) - 1.0_JPRB
+  ZVXY = RPIALF0 * ZY / (2.0_JPRB * 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(1.0_JPRB + 33.7_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.103_JPRB * ZYCH4 / (2.0_JPRB * 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(1.0_JPRB + 21.3_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.416_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.113_JPRB*ZYCH4)
+  ZSQH42 = SQRT(1.0_JPRB + 400._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.113_JPRB * ZYCH4 / (2.0_JPRB * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.197_JPRB*ZYN2O)
+  ZSQN22 = SQRT(1.0_JPRB + 2000._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.197_JPRB * ZYN2O / (2.0_JPRB * 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 = 1.0_JPRB - 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 = 1.0_JPRB - 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
+
+IF (LHOOK) CALL DR_HOOK('LWTTM',1,ZHOOK_HANDLE)
+END SUBROUTINE LWTTM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwttm.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwttm.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwttm.intfb.h	(revision 3330)
@@ -0,0 +1,15 @@
+INTERFACE
+SUBROUTINE LWTTM ( KIDIA, KFDIA, KLON, PGA , PGB, PUU1 , PUU2 , PTT )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NTRA ,NUA ,RPTYPE ,RETYPE ,&
+ & RO1H ,RO2H ,RPIALF0 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUU1(KLON,NUA)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUU2(KLON,NUA)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTT(KLON,NTRA)
+END SUBROUTINE LWTTM
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwu.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwu.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwu.F90	(revision 3330)
@@ -0,0 +1,345 @@
+!
+! $Id$
+!
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQOF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVIEW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PABCU(KLON,NUA,3*KLEV+1) 
+
+#include "clesphys.h"
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+REAL(KIND=JPRB) :: ZABLY(KLON,7,3*KLEV+1)  , ZDPM(KLON,3*KLEV)&
+ & ,  ZDUC(KLON, 3*KLEV+1)    , ZFACT(KLON)&
+ & ,  ZUPM(KLON,3*KLEV)  
+REAL(KIND=JPRB) :: 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(KIND=JPRB) :: ZSSIG(KLON,3*KLEV+1)    , ZTAVI(KLON)&
+ & ,  ZUAER(KLON,NSIL)        , ZXOZ(KLON) , ZXWV(KLON)  
+
+INTEGER(KIND=JPIM) :: IAE1, IAE2, IAE3, IC, ICP1, IG1, IJ, IJPN,&
+ & IKIP1, IKJ, IKJP, IKJPN, IKJR, IKL, JA, JAE, &
+ & JK, JKI, JKK, JL  
+
+REAL(KIND=JPRB) :: 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  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!-----------------------------------------------------------------------
+
+!*         2.    PRESSURE OVER GAUSS SUB-LEVELS
+!                ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWU',0,ZHOOK_HANDLE)
+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)) * 0.5_JPRB &
+       & + RT1(IG1) * (ZSSIG(JL,IKJP) - ZSSIG(JL,IKJR)) * 0.5_JPRB  
+    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))*0.5_JPRB
+    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) / (1.0_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.0_JPRB-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) = 0.0_JPRB
+  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
+! print *,'IAE1= ',IAE1
+! print *,'IAE2= ',IAE2
+! print *,'IAE3= ',IAE3
+! print *,'KIDIA= ',KIDIA
+! print *,'KFDIA= ',KFDIA
+! print *,'KLEV= ',KLEV
+  DO JAE=1,6
+    DO JL = KIDIA,KFDIA
+!   print *,'JL= ',JL,'-JAE= ',JAE,'-JK= ',JK,'-NSIL= ',NSIL
+      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,6,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)=1.0_JPRB-ZTAVI(JL)/296._JPRB
+    ZTCON(JL)=EXP(6.08_JPRB*(296._JPRB/ZTAVI(JL)-1.0_JPRB))
+!     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( 0.5_JPRB*R10E*LOG( ZZABLY ) + 5._JPRB, 0.0_JPRB), 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( 0.0_JPRB , 5.0_JPRB + 0.5_JPRB * 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( 2.0_JPRB* (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'
+
+
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWU',1,ZHOOK_HANDLE)
+END SUBROUTINE LWU
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwu.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwu.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwu.intfb.h	(revision 3330)
@@ -0,0 +1,25 @@
+INTERFACE
+SUBROUTINE LWU&
+ & ( KIDIA, KFDIA, KLON, KLEV,&
+ & PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV,&
+ & PABCU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NUA ,NG1 ,NG1P1 ,&
+ & ALWT ,BLWT ,RO3T ,RT1 ,TREF ,&
+ & RVGCO2 ,RVGH2O ,RVGO3 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQOF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVIEW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PABCU(KLON,NUA,3*KLEV+1)
+END SUBROUTINE LWU
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwv.F90	(revision 3330)
@@ -0,0 +1,188 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NUA
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTRAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PB(KLON,NSIL,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBSUR(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBTOP(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBSL(KLON,NSIL,KLEV*2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGASUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBSUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGATOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBTOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZADJD(KLON,KLEV+1)  , ZADJU(KLON,KLEV+1)&
+ & ,  ZDBDT(KLON,NSIL,KLEV)&
+ & ,  ZDISD(KLON,KLEV+1)  , ZDISU(KLON,KLEV+1)&
+ & ,  ZDWFSU(KLON,NSIL)  
+
+INTEGER(KIND=JPIM) :: JA, JK, JL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwvb.intfb.h"
+#include "lwvd.intfb.h"
+#include "lwvn.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWV',0,ZHOOK_HANDLE)
+DO JK=1,KLEV+1
+  DO JL=KIDIA,KFDIA
+    ZADJD(JL,JK)=0.0_JPRB
+    ZADJU(JL,JK)=0.0_JPRB
+    ZDISD(JL,JK)=0.0_JPRB
+    ZDISU(JL,JK)=0.0_JPRB
+  ENDDO
+ENDDO
+DO JA=1,NSIL
+  DO JL=KIDIA,KFDIA
+    ZDWFSU(JL,JA)=0.0_JPRB
+  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  &
+ & )  
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWV',1,ZHOOK_HANDLE)
+END SUBROUTINE LWV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwv.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwv.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwv.intfb.h	(revision 3330)
@@ -0,0 +1,34 @@
+INTERFACE
+SUBROUTINE LWV&
+ & ( KIDIA, KFDIA, KLON , KLEV , KUAER , KTRAER,&
+ & PABCU, PB , PBINT, PBSUR, PBTOP , PDBSL,&
+ & PEMIS, PEMIW,&
+ & PGA , PGB , PGASUR,PGBSUR,PGATOP, PGBTOP,&
+ & PCNTRB,PFLUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NUA
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KTRAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PB(KLON,NSIL,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBSUR(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBTOP(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBSL(KLON,NSIL,KLEV*2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGASUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBSUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGATOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBTOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+END SUBROUTINE LWV
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvb.F90	(revision 3330)
@@ -0,0 +1,259 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PADJD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PADJU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PB(KLON,NSIL,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBSUR(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBTOP(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDISD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDISU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGASUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBSUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGATOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBTOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDWFSU(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZBSUR(KLON,NSIL)&
+ & ,  ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)&
+ & ,  ZUU(KLON,NUA) , ZCNSOL(KLON)   , ZCNTOP(KLON)  
+
+INTEGER(KIND=JPIM) :: IN, JA, JK, JL
+
+REAL(KIND=JPRB) :: ZCNTOP1, ZCNTOP2, ZCNTOP3, ZCNTOP4, ZCNTOP5, ZCNTOP6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwtt.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVB',0,ZHOOK_HANDLE)
+DO JA=1,NTRA
+  DO JL=KIDIA,KFDIA
+    ZTT (JL,JA)=1.0_JPRB
+    ZTT1(JL,JA)=1.0_JPRB
+    ZTT2(JL,JA)=1.0_JPRB
+  ENDDO
+ENDDO
+
+DO JA=1,NUA
+  DO JL=KIDIA,KFDIA
+    ZUU(JL,JA)=1.0_JPRB
+  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) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,1)
+  ZBSUR(JL,2)=PBSUR(JL,2)*PEMIS(JL) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,2)
+  ZBSUR(JL,3)=PBSUR(JL,3)*PEMIW(JL) -(1.0_JPRB-PEMIW(JL))*PDWFSU(JL,3)
+  ZBSUR(JL,4)=PBSUR(JL,4)*PEMIW(JL) -(1.0_JPRB-PEMIW(JL))*PDWFSU(JL,4)
+  ZBSUR(JL,5)=PBSUR(JL,5)*PEMIS(JL) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,5)
+  ZBSUR(JL,6)=PBSUR(JL,6)*PEMIS(JL) -(1.0_JPRB-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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVB',1,ZHOOK_HANDLE)
+END SUBROUTINE LWVB
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvb.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvb.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvb.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE LWVB&
+ & ( KIDIA , KFDIA , KLON , KLEV , KUAER,&
+ & PABCU , PADJD , PADJU,&
+ & PB , PBINT , PBSUR , PBTOP,&
+ & PDISD , PDISU , PEMIS , PEMIW,&
+ & PGASUR, PGBSUR, PGATOP, PGBTOP,&
+ & PDWFSU,PFLUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,NG1P1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PADJD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PADJU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PB(KLON,NSIL,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBSUR(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBTOP(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDISD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDISU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGASUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBSUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGATOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBTOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+END SUBROUTINE LWVB
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvd.F90	(revision 3330)
@@ -0,0 +1,278 @@
+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.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTRAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBDT(KLON,NSIL,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDISD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDISU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDWFSU(KLON,NSIL) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)
+
+INTEGER(KIND=JPIM) :: IJKL, IKD1, IKD2, IKJ, IKJP1, IKM1, IKN,&
+ & IKP1, IKU1, IKU2, ITT, JA, JK, JKJ, JL, JLK  
+
+REAL(KIND=JPRB) :: ZWW, ZWW1, ZWW2, ZWW3, ZWW4, ZWW5, ZWW6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwttm.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVD',0,ZHOOK_HANDLE)
+DO JK = 1, KLEV+1
+  DO JL = KIDIA,KFDIA
+    PDISD(JL,JK) = 0.0_JPRB
+    PDISU(JL,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA = 1, NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = 1.0_JPRB
+    ZTT1(JL,JA) = 1.0_JPRB
+    ZTT2(JL,JA) = 1.0_JPRB
+  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))*0.5_JPRB
+      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))*0.5_JPRB
+      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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVD',1,ZHOOK_HANDLE)
+END SUBROUTINE LWVD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvd.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvd.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvd.intfb.h	(revision 3330)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE LWVD&
+ & ( KIDIA, KFDIA, KLON , KLEV , KTRAER,&
+ & PABCU, PDBDT,&
+ & PGA , PGB,&
+ & PCNTRB, PDISD, PDISU, PDWFSU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,NG1P1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KTRAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBDT(KLON,NSIL,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDISD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDISU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
+END SUBROUTINE LWVD
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvn.F90	(revision 3330)
@@ -0,0 +1,238 @@
+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.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,&
+ & NG1      ,NG1P1    ,WG1  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBSL(KLON,NSIL,KLEV*2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PADJD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PADJU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDBDT(KLON,NSIL,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDWFSU(KLON,NSIL) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA),  ZUU(KLON,NUA)
+
+INTEGER(KIND=JPIM) :: IBS, IDD, IM12, IMU, IND, INU, IXD, IXU,&
+ & JA, JG, JK, JK1, JK2, JL, JNU  
+
+REAL(KIND=JPRB) :: ZWTR, ZWTR1, ZWTR2, ZWTR3, ZWTR4, ZWTR5, ZWTR6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwtt.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVN',0,ZHOOK_HANDLE)
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PADJD(JL,JK) = 0.0_JPRB
+    PADJU(JL,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA = 1 , NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = 1.0_JPRB
+    ZTT1(JL,JA) = 1.0_JPRB
+    ZTT2(JL,JA) = 1.0_JPRB
+  ENDDO
+ENDDO
+
+DO JA = 1 , NUA
+  DO JL = KIDIA,KFDIA
+    ZUU(JL,JA) = 0.0_JPRB
+  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) = 0.0_JPRB
+  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
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVN',1,ZHOOK_HANDLE)
+END SUBROUTINE LWVN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvn.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvn.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/lwvn.intfb.h	(revision 3330)
@@ -0,0 +1,25 @@
+INTERFACE
+SUBROUTINE LWVN&
+ & ( KIDIA, KFDIA, KLON , KLEV , KUAER,&
+ & PABCU, PDBSL, PGA , PGB,&
+ & PADJD, PADJU, PCNTRB, PDBDT, PDWFSU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,&
+ & NG1 ,NG1P1 ,WG1 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBSL(KLON,NSIL,KLEV*2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PADJD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PADJU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDBDT(KLON,NSIL,KLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
+END SUBROUTINE LWVN
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/myrecvset_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/myrecvset_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/myrecvset_mod.F90	(revision 3330)
@@ -0,0 +1,74 @@
+MODULE MYRECVSET_MOD
+CONTAINS
+FUNCTION MYRECVSET(KSETS,KMYSET,KSET)
+
+#ifdef DOC
+
+!**** *MYRECVSET* RETURNS SET NUMBER TO SEND TO
+
+!     Purpose.
+!     --------
+!       
+
+!**   Interface.
+!     ----------
+!        ISENDSET = MYRECVSET(KSETS,KMYSET,KSET)
+
+!        Explicit arguments :  
+!        --------------------
+!                  input:   KSETS
+
+!        Implicit arguments :  NONE
+!        --------------------
+!     Method.
+!     -------
+
+!        
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-02-03
+
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM) :: MYRECVSET
+INTEGER(KIND=JPIM),INTENT(IN)  :: KSETS,KMYSET,KSET
+
+
+!     ------------------------------------------------------------------
+
+!*       1.    Check input argument for validity 
+!              ---------------------------------
+
+IF(KSETS < 1 .OR. KMYSET > KSETS .OR. KSET > KSETS-1) THEN
+
+  CALL ABORT_TRANS(' MYRECVSET: INVALID ARGUMENT ')
+
+ELSE
+
+!*       2.    Compute output parameters
+!              -------------------------
+
+  MYRECVSET = MOD(-KSET-1+KMYSET+KSETS,KSETS)+1
+
+ENDIF
+
+END FUNCTION MYRECVSET
+END MODULE MYRECVSET_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/mysendset_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/mysendset_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/mysendset_mod.F90	(revision 3330)
@@ -0,0 +1,72 @@
+MODULE MYSENDSET_MOD
+CONTAINS
+FUNCTION MYSENDSET(KSETS,KMYSET,KSET)
+
+#ifdef DOC
+
+!**** *MYSENDSET* RETURNS SET NUMBER TO SEND TO
+
+!     Purpose.
+!     --------
+!       
+
+!**   Interface.
+!     ----------
+!        ISENDSET = MYSENDSET(KSETS,KMYSET,KSET)
+
+!        Explicit arguments :  
+!        --------------------
+!                  input:   KSETS
+
+!        Implicit arguments :  NONE
+!        --------------------
+!     Method.
+!     -------
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-02-03
+
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM) :: MYSENDSET
+INTEGER(KIND=JPIM),INTENT(IN)  :: KSETS,KMYSET,KSET
+
+
+!     ------------------------------------------------------------------
+
+!*       1.    Check input argument for validity 
+!              ---------------------------------
+
+IF(KSETS < 1 .OR. KMYSET > KSETS .OR. KSET > KSETS-1) THEN
+
+  CALL ABORT_TRANS(' MYSENDSET: INVALID ARGUMENT ')
+
+ELSE
+
+!*       2.    Compute output parameters
+!              -------------------------
+
+  MYSENDSET = MOD(KMYSET+KSET-1,KSETS)+1
+
+ENDIF
+
+END FUNCTION MYSENDSET
+END MODULE MYSENDSET_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naeaer.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naeaer.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naeaer.h	(revision 3330)
@@ -0,0 +1,9 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAEAER/&
+  & LEPAERO  , LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAEREXTR , &
+  & LAERGBUD , LAERNGAT , LAERPRNT , LAERSCAV , LAERSEDIM, LAERSURF , &
+  & LAER6SDIA, &
+  & NTAER    , NTYPAER  , INDBG    , NDDUST   , &
+  & RLATVOL  , RLONVOL  , KSTPDBG
+!     -----------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naephy.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naephy.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naephy.h	(revision 3330)
@@ -0,0 +1,17 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAEPHY/&
+       &LEPHYS, LECOND, LECUMF, LEDCLD, LEEVAP &
+ &,     LEGWDG, LEOZOC, LEQNGT, LERADI, LERADS &
+ &,     LESHCV, LESICE, LESURF, LEVDIF, LE4ALB &
+ &,     LEPCLD, LAGPHY ,LEO3CH, LECO2DIU &
+ &,     LWCOU  ,LWCOU2W, LBUD23,LEMETHOX,LERA40,LERAIN &
+ &,     LVDFTRAC,LMFTRAC,LEOCWA,LEOCCO,LEOCSA,NSTPW &
+ &,     LECURR,RSOUTW ,RNORTW ,RDEGREW &
+ &,     RTHRFRTI &
+!&,     RCLDTOPP &      MPL 24.11.08
+!&,     NPHYINT &       MPL 24.11.08
+ &,     NEPHYS_PCFULL &
+ &,     LEMWAVE
+!     -----------------------------------------------------------------
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naerad.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naerad.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naerad.h	(revision 3330)
@@ -0,0 +1,21 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAERAD/&
+&  LERAD1H, LERADHS, LEPO3RA, LRADLB , LONEWSW &
+&, LCCNL  , LCCNO  , LECSRAD, LRAYL  , LRRTM  , LSRTM  &
+&, LHVOLCA, LNEWAER, LDIFFC , LNOTROAER &
+&, LRADONDEM &
+&, NICEOPT, NLIQOPT, NMCICA , NRADIP , NRADLP &
+&, NAER   , NMODE  , NOZOCL , NINHOM , NLAYINH &
+&, NOVLP  , NLW    , NSW    , NRADFR , NLNGR1H &
+&, NRADPFR, NRADPLA, NRINT  , NRPROMA, NCSRADF &
+&, NRADINT, NRADRES, CRTABLEDIR, CRTABLEFIL &
+&, RCCNSEA, RCCNLND, NPERTAER, NPERTOZ &
+&, RPERTOZ, RLWINHF, RSWINHF, RRe2De  &
+&, RCCO2  , RCCH4  , RCN2O  , RCCFC11, RCCFC12  &
+&, NHINCSOL,LECO2VAR,LHGHG  , NSCEN  &
+&, LEDBUG  &
+&, LUVPROC, LUVTDEP, LUVDBG , NUV    , NUVTIM , NRADUV , RUVLAM, RMUZUV
+!     -----------------------------------------------------------------
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namcape.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namcape.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namcape.h	(revision 3330)
@@ -0,0 +1,1 @@
+NAMELIST/NAMCAPE/ NCAPEITER, NETAPES, GCAPERET, GCAPEPSD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namclop15.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namclop15.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namclop15.h	(revision 3330)
@@ -0,0 +1,3 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMCLOP15/ REFFWIA15
+!     ------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namgem.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namgem.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namgem.h	(revision 3330)
@@ -0,0 +1,5 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMGEM/RMUCEN,RLOCEN,RSTRET,NSTTYP,NHTYP,&
+               &REFLKUO,REFLCAPE,REFLRHC,RNLGINC
+!     ------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namjfh.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namjfh.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namjfh.h	(revision 3330)
@@ -0,0 +1,1 @@
+NAMELIST/NAMJFH/ N_VMASS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy.h	(revision 3330)
@@ -0,0 +1,26 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY/&
+! * GROUPE DES CLES GENERALES.
+  &LMPHYS,LSLC &
+! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
+  &,LCAPE,LCONDWT,LCVCAS,LCVDD,LCVLIS,LCVPP,LHUNEG,LNEIGE &
+  &,LRNUMX,LCLSATUR,LSRCON,LSRCONT,L2PHYS,LRRGUST,LO3ABC,LNEBNXR &
+  &,LFPCOR,LNOIAS,LGLT,LNEWD,LHUCN,LQXRTGH &
+  &,LPROCLD,LEVAPP,LCOLLEC,LNSMLIS,LRELAXT,LRELAXW &
+  &,LAEROSEA,LAEROLAN,LAEROSOO,LAERODES,LAEROVOL,LAEROSUL &
+  &,LSSD,LPHCDPI,LBLVAR &
+  &,LZ0HSREL,LCVPRO,LCDDPRO &
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+  &,CGMIXLEN,LPRGML,LCVRA,LGWD,LGWDC,LNEBCO,LNEBN,LNEBR,LNEBT,LND2DIFF &
+  &,LOZONE,LRAY,LRAYLU,LREWS &
+  &,LRPROX,LRMIX,LRSTAB,LRAUTOEV,LVOIGT,LVFULL,LRTPP,LRTDL,LRAYPL &
+  &,LRAYFM,LRAYFM15,LRRMES,LSFHYD,LSNV,LSOLV,LFGEL,LSTRA,LSTRAS &
+  &,LVDIF,L3MT,LSCMF &
+! * GROUPE DES INDICES DE CALCUL.
+  &,NBITER,NOIR,NDPSFI,NPHYREP,LVGSN,LDIFCONS,LECT,LPTKE,LCVPGY,LPBLE &
+  &,LADJCLD,LCVPPKF,LECTFL,LAJUCV,LNEBGR,LNEBGY,LCVRAV3,LBCCOND &
+  &,LPIL, LSTRAPRO, LNEWSTAT, LPHSPSH, LSMNIMBT, LSMROT, LSMTPS &
+  &,L1DRHCRI, LGWRHCRI, NSMTBOT, NSMDNEB, NPRAG, NPRAC, NPRRI &
+  &,LAUTONEB
+!     ------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy0.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy0.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy0.h	(revision 3330)
@@ -0,0 +1,41 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY0/&
+  &AERCS1,AERCS3,AERCS5,ALMAV,BEDIFV,ECMNP,ETACUT,AHCLPV &
+  &,EDB,EDC,EDD,EVAP,FONT,GALP,GCISMIN,GCCSV,GCVADS,GCVALFA,GCVBETA,GCVMLT &
+  &,GCVNU,GCVPSI,GCVPSIE,GCOMOD &
+  &,GDDEVA,GDDSDE,GPBLHK0,GPBLHRA,GRCVPP,GWDAMP,GWDBC,GWDCCO,GWDCD &
+  &,GWDLT,GWDSE,GWDPROF,GWDVALI,HOBST,HUCOE,HUTIL,HUTIL1,HUTIL2,NPCLO1 &
+  &,NPCLO2,QSSC,QSMIN,QSNEBC,QSNEBS,QSSUSC,QSSUSS,QSSUSV,QSUSXC,QSUSXS &
+  &,QXRAL,QXRDEL,QXRHX,QXRR,QXRTGH,RPHI0,RPHIR &
+  &,RCIN,RCVEVAP,RDTFAC,REVGSL,RTCAPE,RICRLM,RNEGAT,RNLCURV,RRGAMMA,RRSCALE &
+  &,SCO,SENSL &
+  &,SNNBCO,SPNBCO &
+  &,SXNBCO,TCA,TCT,TCW,TENTR,TENTRX,TDDGP,TUDGP,TURB,TVF &
+  &,TYM,UHDIFV,USDMLT,USUPRC,USURIC,USURID,USURIDE,USURICE,USURICL,UTILGUST &
+  &,VCHRNK,VKARMN,VZ0CM,VZIUSTAR0,XNBMAX,XBLM,XMAXLM,XMINLM,XNBMAX,EDK,XKLM &
+  &,ADISE,ADISI,AECLS3,AECLS4,AKN,ALD,ALPHAE,ALPHAT,ECTMIN &
+  &,UCWSTAR,UDECT,USHEARM,UPRETMIN,UPRETMAX &
+  &,ARSCH,ARSCQ,ARSC1,ARSB2,ACBRPHIM,ALMAVE,RICRET,STTBMIN,AGREKE &
+  &,RAUTEFS,RNINTR,RNINTS,RQLCR,RQICRMAX,RQICRMIN,RACCEF,RRIMEF,RAGGEF &
+  &,RHCRIT1,RHCRIT2,RETAMIN,RFACNSM,TFVR,TFVS,RAUTEFR,RAUTSBET,GRHCMOD &
+  &,RQICRT1,RQICRT2,RQICRSN,RQCRNS,RQICVMAX,RQICVMIN,RQLCV,RHEVAP &
+  &,AGRE1,AGRERICR,AJBUMIN,RCOFLM,A0ML_AU,A0ML_AT,A0ML_BU,A0ML_BT &
+  &,NUPTKE,GAMTKE,RCOLL,RFALLL &
+  &,TDDBU,TDDFR,TUDBU,TUDFR,GCVACHI,GCVALMX,GCVADMW,GCVBEE,GCVEEX,ECMNPI &
+  &,GFRIC,GCVSQDN,GCVSQDR,GCVSQDCX,GRRINTE,GRRMINA,GDDBETA,GDDEVF,GDDWPF &
+  &,TENTRD &
+!     For old ACCVIMP
+  &,TENTRVL,TRENTRV &
+!     For TKE scheme 
+  &,UETEPS,UPRECLP &
+  &,ARSC2,ARSCT &
+!     For Grenier (2000) top-PBL entrainment scheme 
+  &,AGRE2,AGREF &
+!     For dry conv. adjustment scheme 
+  &,AJ1MEPS,AJ1PEPS,NAJITER &
+!     For ACCVIMPGY 
+  &,ALFX,TCTC,TVFC,GAMAP1,RKDN,VVN,VVX,FENTRT,HCMIN,FQLIC,FNEBC,FEVAPC &
+!
+  &,RDPHIC,GWBFAUT,RWBF1,RWBF2,RAUITN,RAUITX,RAUIUSTE &
+  &,RSMDNEBX,RSMDTX,NSMTPA,NSMTPB
+!     ------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy1.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy1.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy1.h	(revision 3330)
@@ -0,0 +1,21 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY1/&
+&ALBGLA   , ALBMAX   , ALBMER   , ALBMIN   , ALCRIN   , ALRCN1   ,&
+&ALRCN2   , EA       , EC2REF   , EMCRIN   , EMMGLA   , EMMMER   ,&
+&EWFC     , EWWILT   , GA       , GC1      ,&
+&GC1S1    , GC1S2    , GC1S3    , GC1S4    , GC1Y1    , GTSVAP   ,&
+&GVEGMX   , GLAIMX   , GNEIMX   , GWPIMX   , GCGEL    ,&
+&GC2      , GC2REF   , GC3      , GC31     , GC32     ,&
+&GCZ0H    , GF1      , GF3      , GF4      , GWFC     , GWLEX    ,&
+&GWLMX    , GWWILT   , G1B      ,&
+&G1CGSAT  , G1C1SAT  , G1P      , G1WSAT   , G2B      , G2CGSAT  ,&
+&G2C1SAT  , G2P      , G2WSAT   , G3CGSAT  , GSNC1    , GSNC2    ,&
+&HSOL     , HSOLIWR  , HSOLIT0  , OMTPRO   , OMWPRO   , RC1MAX   ,&
+&RCTGLA   , RCGMAX   , RCTVEG   , RD1      , RD2GLA   , RD2MER   ,&
+&RGL      , RHOMAX   , RHOMIN   , RSMAX    , RTINER   , RZ0GLA   ,&
+&RZ0MER   , RZHZ0G   , RZHZ0M   , TMERGL   , TOEXP    , TOLIN    ,&
+&TREF4    , SODELX   , WCRIN    , WCRINC   , WCRING   , WNEW     ,&
+&WPMX     , WSMX     , XCRINR   , XCRINV   ,&
+&LIMC     , LIMW     , LC1VAP   ,&
+&NTVGLA   , NTVMER   , GCGELS   , GVEGMXS  , GLAIMXS  , GNEIMXS  ,&
+&ALB1     , ALB2     , RLAIMX   , RLAI     ,NCHSP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy2.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy2.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy2.h	(revision 3330)
@@ -0,0 +1,9 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY2/&
+  &XMUCVPP,XMULAF,XDAMP,LMULAF,&
+  &HCLP,&
+  &RIPBLC,&
+  &GZ0RAF,FACRAF,LRAFTUR,&
+  &HTSHM,HTSML
+!     ------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy3.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy3.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namphy3.h	(revision 3330)
@@ -0,0 +1,12 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY3/&
+  &BSFSA,BSFSI,BSFSN,BSFTA,BSFTI,BSFTN,EARRT,EOASA,EOASI,EOASN &
+  &,EOATA,EOATI,EOATN,EODSA,EODSI,EODSN,EODTA,EODTI,EODTN,EORAY &
+  &,GCA,GCB,GCC,GCD4,GCE4,GIREC1,GIREC2,GIREC3,GIREC4 &
+  &,QCO2,QLIMI,QLIP0,RII0,USAA,USAI,USAN,USBA,USBI,USBN,VDP,VNP &
+  &,FCM_DEL_A,FCM_DEL_D,FCM_MU_A,FCM_MU_D,FCM_N_I,FCM_N_L &
+  &,FCM_P_AI,FCM_P_AL,FCM_P_DI,FCM_P_DL,FCM_P_GI,FCM_P_GL &
+  &,FCM_Q_AI,FCM_Q_AL,FCM_Q_DI,FCM_Q_DL,FCM_Q_GI,FCM_Q_GL &
+  &,REXP_NEB
+!     ------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrad15.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrad15.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrad15.h	(revision 3330)
@@ -0,0 +1,9 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAMRAD15/&
+           &LERAD6H15, LERADHS15, LRADAER15, LNEWAER15 &
+ &,         NAER15   , NFLUX15  , NMODE15  &
+ &,         NOVLP15  , NRAD15   , NRADFR15 &
+ &,         NRADPFR15, NRADPLA15, NRINT15 , NRPROMA15 &
+ &,         NRADF2C15, NRADC2F15
+!     -----------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrcoef.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrcoef.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrcoef.h	(revision 3330)
@@ -0,0 +1,6 @@
+!   -----------------------------------------------------------------
+
+NAMELIST/NAMRCOEF/ LRCOEF,LTLADDIA,LGLOBRAD
+
+!   ----------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrgri.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrgri.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namrgri.h	(revision 3330)
@@ -0,0 +1,6 @@
+!-----------------------------------------------------------------------------
+
+NAMELIST/NAMRGRI/NRGRI
+
+!-----------------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namscen.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namscen.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namscen.h	(revision 3330)
@@ -0,0 +1,3 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMSCEN/ XCARDI, XCH4, XN2O, XCFC11, XCFC12, RI0
+!     ------------------------------------------------------------------
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namscm.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namscm.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namscm.h	(revision 3330)
@@ -0,0 +1,5 @@
+NAMELIST/NAMSCM/ &
+& LGSCM, NFRSCM, NSCMTS, NSCM_SPACE_S &
+& , GSCM_LON1, GSCM_LON2, GSCM_LAT1, GSCM_LAT2 &
+& , GSCM_RADIUS, NSCM_ADD_SAMPL
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namtoph.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namtoph.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namtoph.h	(revision 3330)
@@ -0,0 +1,9 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMTOPH/&
+   &ETQSAT,ETDIFU,ETCOEF,ETDRAG,ETCVIM,ETPLUI,ETRADI,ETNEBU &
+  &,ETOZON,ETDRME,ETCOET &
+  &,XDRMUK,XDRMUX,XDRMUP,XDRMTK,XDRMTX,XDRMTP &
+  &,XDRMQK,XDRMQP,RFMESOQ &
+  &,ETAJUC,NTAJUC,RCLX,TPSCLIM
+!     ------------------------------------------------------------------
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namvdoz.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namvdoz.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/namvdoz.h	(revision 3330)
@@ -0,0 +1,11 @@
+!  ---------------------------------------------------------------
+NAMELIST/NAMVDOZ/&
+     &VDHJS,VDHJH,VDHNS,VDHNH &
+    &,VDPJS,VDPJH,VDPNS,VDPNH &
+    &,VDEJS,VDEJH,VDENS,VDENH &
+    &,VDAJS,VDAJH,VDANS,VDANH &
+    &,VDNJS,VDNJH,VDNNS,VDNNH &
+    &,VOZNJ,VOZHS &
+    &,LRDIFOZ,LRDEPOZ
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naphlc.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naphlc.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/naphlc.h	(revision 3330)
@@ -0,0 +1,7 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAPHLC/ LSPHLC, LVDFLC, LSDRLC, LCZDEB, LZMCON, LKEXP &
+               &,LVDFDS, LSDRDS &
+               &,ALPHA, AH0, USTARL, USTARS, ALANDZ0, ASEAZ0
+!     -----------------------------------------------------------------
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/pardim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/pardim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/pardim.F90	(revision 3330)
@@ -0,0 +1,24 @@
+MODULE PARDIM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!     JPMXLE : MAXIMUM NUMBER OF LEVELS
+!     JPMXGL : MAXIMUM NUMBER OF GAUSSIAN LATITUDES 
+
+!     JPFPPYX : Maximum number of fields in catalogue cilipdy
+
+!     JPNULNAM : Fortran unit number used for namelist reading
+
+INTEGER(KIND=JPIM), PARAMETER :: JPMXLE=200
+INTEGER(KIND=JPIM), PARAMETER :: JPMXGL=2056
+INTEGER(KIND=JPIM), PARAMETER :: JPFPPYX=17
+INTEGER(KIND=JPIM), PARAMETER :: JPNULNAM=4
+
+!     ------------------------------------------------------------------
+END MODULE PARDIM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parfpos.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parfpos.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parfpos.F90	(revision 3330)
@@ -0,0 +1,74 @@
+MODULE PARFPOS
+
+USE PARKIND1  ,ONLY : JPIM
+
+USE PARDIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! === basic dimensions for Full POST-PROCESSING ===
+
+!     JPOSDOM : Maximum number of horizontal (sub)domains
+!     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
+
+!     JPOSSCVA: Maximum number of post-processable passive scalars
+!     JPOSPHY : Maximum number of physical fields
+!     JPOSSGP : Maximum number of surface gridpoint 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
+!     JPOSSCVA: Maximum number of passive scalars
+!     JPOSVX2 : Maximum number of free gp/sp upper air fields or extra surface fields
+!     JPOSFSU : Maximum number of free gp/sp surface fields 
+!     JPOS3DF : Maximum number of 3D dynamic fields
+!     JPOS2DF : Maximum number of 2D dynamic fields
+!     JPOSDYN : Maximum number of dynamic fields 
+!     JPOSGHG : Maximum number of post-processable greenhouse gases
+!     JPOSTRAC : Maximum number of post-processable tracers (used for diagnostics only)
+!     JPOSGRG : Maximum number of post-processable reactive gases
+!     JPOSAERO: Maximum number of post-processable aerosols
+
+INTEGER(KIND=JPIM), PARAMETER :: JPOSDOM=15
+INTEGER(KIND=JPIM), PARAMETER :: JPOSLEN=10
+INTEGER(KIND=JPIM), PARAMETER :: JPOSLIS=10
+INTEGER(KIND=JPIM), PARAMETER :: JPOSDIR=180
+INTEGER(KIND=JPIM), PARAMETER :: JPOSLE=JPMXLE
+INTEGER(KIND=JPIM), PARAMETER :: JPOSGL=JPMXGL
+
+INTEGER(KIND=JPIM), PARAMETER :: JPOSCFU=63
+INTEGER(KIND=JPIM), PARAMETER :: JPOSXFU=63
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3P=75
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3H=127
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3TH=75
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3PV=75
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3S=JPOSLE
+INTEGER(KIND=JPIM), PARAMETER :: JPOSSCVA=5
+INTEGER(KIND=JPIM), PARAMETER :: JPOSGHG=3
+INTEGER(KIND=JPIM), PARAMETER :: JPOSTRAC=2
+INTEGER(KIND=JPIM), PARAMETER :: JPOSGRG=5
+INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO=12
+INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO2=2*JPOSAERO
+INTEGER(KIND=JPIM), PARAMETER :: JPOSVX2=70
+! 15 + 2 (Non-Hydro) + 4 (Modis-Albedo) + 3 (ocean T)
+INTEGER(KIND=JPIM), PARAMETER :: JPOSFSU=24
+INTEGER(KIND=JPIM), PARAMETER :: JPOSSGP=157+JPOSVX2+JPOSFSU
+INTEGER(KIND=JPIM), PARAMETER :: JPOSPHY=JPOSSGP+JPOSCFU+JPOSXFU
+INTEGER(KIND=JPIM), PARAMETER :: &
+ & JPOS3DF=63+JPOSSCVA+JPOSVX2+JPOSAERO+JPOSGHG+JPOSGRG+JPOSTRAC
+INTEGER(KIND=JPIM), PARAMETER :: JPOS2DF=63+JPOSFSU+JPOSAERO2
+INTEGER(KIND=JPIM), PARAMETER :: JPOSDYN=JPOS3DF+JPOS2DF
+
+!     ------------------------------------------------------------------
+END MODULE PARFPOS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parkind1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parkind1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parkind1.F90	(revision 3330)
@@ -0,0 +1,33 @@
+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)
+
+!Special integer type to be used for sensative adress calculations
+!should be *8 for a machine with 8byte adressing for optimum performance
+#ifdef ADDRESS64
+INTEGER, PARAMETER :: JPIA = JPIB
+#else
+INTEGER, PARAMETER :: JPIA = JPIM
+#endif
+
+!
+!     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)
+!
+END MODULE PARKIND1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parkind2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parkind2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parkind2.F90	(revision 3330)
@@ -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(31,291)
+#else
+INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
+#endif
+!
+END MODULE PARKIND2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parrint.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parrint.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parrint.F90	(revision 3330)
@@ -0,0 +1,16 @@
+MODULE PARRINT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     PARAMETERS REQUIRED FOR RADIATION INTERPOLATION
+
+INTEGER(KIND=JPIM), PARAMETER :: JPRADCW=2
+INTEGER(KIND=JPIM), PARAMETER :: JPRADCE=2
+INTEGER(KIND=JPIM), PARAMETER :: JPRADCT=JPRADCW+JPRADCE
+INTEGER(KIND=JPIM), PARAMETER :: JPRADFW=1
+INTEGER(KIND=JPIM), PARAMETER :: JPRADFE=1
+END MODULE PARRINT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parrrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parrrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parrrtm.F90	(revision 3330)
@@ -0,0 +1,57 @@
+MODULE PARRRTM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     Parameters relevant to AER's RRTM-LW radiation scheme
+
+!     980714  JJMorcrette
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPLAY  = 100
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPXSEC = 4
+INTEGER(KIND=JPIM), PARAMETER :: JPINPX = 35
+INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 140
+
+INTEGER(KIND=JPIM), PARAMETER :: NG1  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG2  = 14
+INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
+INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
+INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
+INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
+INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
+INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
+INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
+INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
+INTEGER(KIND=JPIM), PARAMETER :: NG16 = 8
+
+INTEGER(KIND=JPIM), PARAMETER :: NGS1  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NGS2  = 22
+INTEGER(KIND=JPIM), PARAMETER :: NGS3  = 38
+INTEGER(KIND=JPIM), PARAMETER :: NGS4  = 52
+INTEGER(KIND=JPIM), PARAMETER :: NGS5  = 68
+INTEGER(KIND=JPIM), PARAMETER :: NGS6  = 76
+INTEGER(KIND=JPIM), PARAMETER :: NGS7  = 88
+INTEGER(KIND=JPIM), PARAMETER :: NGS8  = 96
+INTEGER(KIND=JPIM), PARAMETER :: NGS9  = 108
+INTEGER(KIND=JPIM), PARAMETER :: NGS10 = 114
+INTEGER(KIND=JPIM), PARAMETER :: NGS11 = 122
+INTEGER(KIND=JPIM), PARAMETER :: NGS12 = 130
+INTEGER(KIND=JPIM), PARAMETER :: NGS13 = 134
+INTEGER(KIND=JPIM), PARAMETER :: NGS14 = 136
+INTEGER(KIND=JPIM), PARAMETER :: NGS15 = 138
+
+!     ------------------------------------------------------------------
+END MODULE PARRRTM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parsrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parsrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/parsrtm.F90	(revision 3330)
@@ -0,0 +1,86 @@
+MODULE PARSRTM
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     Parameters relevant to AER's RRTM-SW radiation scheme
+
+!     030224  JJMorcrette
+
+!     Modified for g-point reduction from 224 to 112.  
+!     Swap code below to restore 224 g-point set. 
+!     Mar2004 MJIacono, AER
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPLAY  = 100
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 29
+INTEGER(KIND=JPIM), PARAMETER :: JPSW   = 14
+INTEGER(KIND=JPIM), PARAMETER :: JPB1   = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPB2   = 29
+! Use for 112 g-points
+INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
+! Use for 224 g-points
+!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 224
+
+INTEGER(KIND=JPIM), PARAMETER :: JMCMU  = 32
+INTEGER(KIND=JPIM), PARAMETER :: JMUMU  = 32
+INTEGER(KIND=JPIM), PARAMETER :: JMPHI  = 3
+INTEGER(KIND=JPIM), PARAMETER :: JMXANG = 4
+INTEGER(KIND=JPIM), PARAMETER :: JMXSTR = 16
+
+! Use for 112 g-points
+INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
+INTEGER(KIND=JPIM), PARAMETER :: NG18 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG19 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG20 = 10
+INTEGER(KIND=JPIM), PARAMETER :: NG21 = 10
+INTEGER(KIND=JPIM), PARAMETER :: NG22 = 2
+INTEGER(KIND=JPIM), PARAMETER :: NG23 = 10
+INTEGER(KIND=JPIM), PARAMETER :: NG24 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG25 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG26 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG27 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG28 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG29 = 12
+
+! Use for 224 g-points
+!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 16
+
+INTEGER(KIND=JPIM), PARAMETER :: NGS16 = 0
+INTEGER(KIND=JPIM), PARAMETER :: NGS17 = 16
+INTEGER(KIND=JPIM), PARAMETER :: NGS18 = 32
+INTEGER(KIND=JPIM), PARAMETER :: NGS19 = 48
+INTEGER(KIND=JPIM), PARAMETER :: NGS20 = 64
+INTEGER(KIND=JPIM), PARAMETER :: NGS21 = 80
+INTEGER(KIND=JPIM), PARAMETER :: NGS22 = 96
+INTEGER(KIND=JPIM), PARAMETER :: NGS23 = 112
+INTEGER(KIND=JPIM), PARAMETER :: NGS24 = 128
+INTEGER(KIND=JPIM), PARAMETER :: NGS25 = 144
+INTEGER(KIND=JPIM), PARAMETER :: NGS26 = 160
+INTEGER(KIND=JPIM), PARAMETER :: NGS27 = 176
+INTEGER(KIND=JPIM), PARAMETER :: NGS28 = 192
+INTEGER(KIND=JPIM), PARAMETER :: NGS29 = 208
+
+!     ------------------------------------------------------------------
+END MODULE PARSRTM
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/pe2set_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/pe2set_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/pe2set_mod.F90	(revision 3330)
@@ -0,0 +1,113 @@
+MODULE PE2SET_MOD
+CONTAINS
+SUBROUTINE PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
+
+#ifdef DOC
+
+!**** *PE2SET* - Convert from PE number to set numbers
+
+!     Purpose.
+!     --------
+!        Convert from PE number to set numbers in both
+!                  grid-point space and spectral space
+
+!**   Interface.
+!     ----------
+!        *CALL* *PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
+
+!        Explicit arguments :  
+!        --------------------
+!                  input:   KPE     - integer processor number 
+!                                     in the range 1 .. NPROC
+!                  output:  KPRGPNS - integer A set number in grid space
+!                                     in the range 1 .. NPRGPNS
+!                           KPRGPEW - integer B set number in grid space
+!                                     in the range 1 .. NPRGPEW
+!                           KPRTRW  - integer A set number in spectral space
+!                                     in the range 1 .. NPRTRW 
+!                           KPRTRV  - integer B set number in spectral space
+!                                     in the range 1 .. NPRTRV 
+
+!        Implicit arguments :  YOMMP parameters
+!                              NPRGPNS,NPRGPEW,NPRTRW,NPRTRV,NPROC
+
+!        --------------------
+!     Method.
+!     -------
+
+!        PE allocation order is row oriented (e.g. NPRGPNS or NPRTRW = 4):
+
+!                1  2  3  4 
+!                5  6  7  8 
+!                9 10 11 12 
+!               13 14 15 16 
+!                .  .  .  .
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        David Dent *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 98-08-19
+!        Revision : 98-10-13 row ordering
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DISTR
+USE EQ_REGIONS_MOD
+USE ABORT_TRANS_MOD
+
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPE
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPRGPNS,KPRGPEW,KPRTRW,KPRTRV
+
+INTEGER(KIND=JPIM) :: IPE,JA
+!     ------------------------------------------------------------------
+
+!*       1.    Check input argument for validity 
+!              ---------------------------------
+
+IF(KPE <= 0.OR.KPE > NPROC) THEN
+  WRITE(*,'(A,2I8)') ' PE2SET INVALID ARGUMENT ',KPE,NPROC
+  CALL ABORT_TRANS(' PE2SET INVALID ARGUMENT ')
+
+ELSE
+
+!*       2.    Compute output parameters
+!              -------------------------
+
+  IF( LEQ_REGIONS )THEN
+    KPRGPNS=1
+    IPE=KPE
+    DO JA=1,N_REGIONS_NS
+      IF( IPE > N_REGIONS(JA) )THEN
+        IPE=IPE-N_REGIONS(JA)
+        KPRGPNS=KPRGPNS+1
+        CYCLE
+      ENDIF
+      KPRGPEW=IPE
+      EXIT
+    ENDDO
+  ELSE
+    KPRGPEW=MOD(KPE-1,NPRGPEW)+1
+    KPRGPNS=(KPE-1)/NPRGPEW+1
+  ENDIF
+  KPRTRV =MOD(KPE-1,NPRTRV)+1
+  KPRTRW =(KPE-1)/NPRTRV+1
+
+ENDIF
+
+END SUBROUTINE PE2SET
+END MODULE PE2SET_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/posnam.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/posnam.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/posnam.F90	(revision 3330)
@@ -0,0 +1,108 @@
+SUBROUTINE POSNAM(KULNAM,CDNAML)
+
+!**** *POSNAM* - position namelist file for reading
+
+!     Purpose.
+!     --------
+!     To position namelist file at correct place for reading
+!     namelist CDNAML. Replaces use of Cray specific ability
+!     to skip to the correct namelist.
+
+!**   Interface.
+!     ----------
+!        *CALL* *POSNAM*(..)
+
+!        Explicit arguments :     KULNAM - file unit number (input)
+!        --------------------     CDNAML - namelist name    (input)
+
+!        Implicit arguments :     None
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   None
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 93-06-22
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M.Hamrud      01-Dec-2003 CY28R1 Cleaning
+!      R. El Khatib 04-08-10 Apply norms + proper abort if namelist is missing
+!     --------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULNAM 
+CHARACTER(LEN=*)  ,INTENT(IN)    :: CDNAML 
+
+
+CHARACTER (LEN = 40) ::  CLINE
+CHARACTER (LEN =  1) ::  CLTEST
+
+INTEGER(KIND=JPIM) :: ILEN, IND1, ISTATUS, ISCAN
+REAL(KIND=JPRB)    :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!      -----------------------------------------------------------
+
+!*       1.    POSITION FILE
+!              -------------
+
+IF (LHOOK) CALL DR_HOOK('POSNAM',0,ZHOOK_HANDLE)
+
+CLINE='                                        '
+REWIND(KULNAM)
+ILEN=LEN(CDNAML)
+ISTATUS=0
+ISCAN=0
+print *,'On cherche a lire:',CDNAML
+DO WHILE (ISTATUS==0 .AND. ISCAN==0)
+  READ(KULNAM,'(A)',IOSTAT=ISTATUS) CLINE
+! print *,'CLINE,ISTATUS= ',CLINE,ISTATUS
+  SELECT CASE (ISTATUS)
+  CASE (:-1)
+    CLINE='POSNAM:CANNOT LOCATE '//CDNAML//' '
+    CALL ABOR1(CLINE)
+  CASE (0)
+    IF (INDEX(CLINE(1:10),'&') == 0) THEN
+      ISCAN=0
+    ELSE
+      IND1=INDEX(CLINE,'&'//CDNAML)
+      IF (IND1 == 0) THEN
+        ISCAN=0
+      ELSE
+        CLTEST=CLINE(IND1+ILEN+1:IND1+ILEN+1)
+        IF (   (LGE(CLTEST,'0').AND.LLE(CLTEST,'9')) &
+         & .OR.(LGE(CLTEST,'A').AND.LLE(CLTEST,'Z')) ) THEN
+          ISCAN=0
+        ELSE
+          ISCAN=1
+        ENDIF
+      ENDIF
+    ENDIF
+  CASE (1:)
+    CLINE='POSNAM:READ ERROR IN NAMELIST FILE'
+    CALL ABOR1(CLINE)
+  END SELECT
+ENDDO
+BACKSPACE(KULNAM)
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('POSNAM',1,ZHOOK_HANDLE)
+END SUBROUTINE POSNAM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/posnam.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/posnam.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/posnam.intfb.h	(revision 3330)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE POSNAM(KULNAM,CDNAML)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM
+CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML
+END SUBROUTINE POSNAM
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/radlsw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/radlsw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/radlsw.F90	(revision 3330)
@@ -0,0 +1,1267 @@
+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,&
+ & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
+ & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,&  
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
+ & PTAU_LW,&
+ & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
+
+use write_field_phy
+
+!**** *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
+! PCCNL  : (KLON)            ; CCN CONCENTRATION OVER LAND
+! PCCNO  : (KLON)            ; CCN CONCENTRATION OVER OCEAN
+! PCCO2  :                   ; CONCENTRATION IN CO2 (KG/KG)
+! PCLFR  : (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)       ; OZONE AMOUNT in LAYER (KG/KG*PA)
+! PQ     : (KLON,KLEV)       ; SPECIFIC HUMIDITY KG/KG
+! 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)
+! PTH    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+! PT     : (KLON,KLEV)       ; FULL LEVEL TEMPERATURE
+! PTS    : (KLON)            ; SURFACE TEMPERATURE
+! LDDUST                     ; Dust properties switch
+! 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
+! 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)
+!     ==== 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
+! PPARF  : (KLON)            ; PHOTOSYNTHETICALLY ACTIVE RADIATION
+! PUVDF  : (KLON)            ; UV(-B) RADIATION
+! PPARCF : (KLON)            ; CLEAR-SKY PHOTOSYNTHETICALLY ACTIVE RADIATION
+! PTINCF : (KLON)            ; TOA INCIDENT SOLAR RADIATION 
+! Ajout flux LW et SW montants et descendants, et ciel clair (MPL 19.12.08)
+! PFLUX  : (KLON,2,KLEV+1)   ; LW total sky flux (1=up, 2=down)
+! PFLUC  : (KLON,2,KLEV+1)   ; LW clear sky flux (1=up, 2=down)
+! PFSDN(KLON,KLEV+1)         ; SW total sky flux down
+! PFSUP(KLON,KLEV+1)         ; SW total sky flux up
+! PFSCDN(KLON,KLEV+1)        ; SW clear sky flux down
+! PFSCUP(KLON,KLEV+1)        ; SW clear sky flux up
+
+
+
+!        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
+!        JJMorcrette : 010112 Sun-Rikus ice particle Diameter
+!        JJMorcrette : 010301 cleaning liq/ice cloud optical properties
+!        JJMorcrette : 011005 CCN --> Re liquid water clouds
+!        JJMorcrette : 011108 Safety checks
+!        JJMorcrette : 011108 Safety checks
+!        DJSalmond   : 020211 Check before R-To-R
+!        JJMorcrette : 020901 PAR & UV
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        JJMorcrette : 050402 New sets of optical properties (NB: inactive)
+!        Y.Seity       04-11-18 : add 4 arguments for AROME externalized surface
+!        Y.Seity       05-10-10 : add 3 optional arg. for dust SW properties
+!        JJMorcrette 20060721 PP of clear-sky PAR and TOA incident solar radiation 
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
+!USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NLW, LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
+ & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
+ & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&  
+ & LEDBUG  
+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   ,RFUETB   ,RFUETC  ,RASWCA   ,&
+ & RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF   ,&
+ & RFUAA0   ,RFUAA1   ,RFUBB0   ,RFUBB1   ,RFUBB2   ,&
+ & RFUBB3   ,RFUCC0   ,RFUCC1   ,RFUCC2   ,RFUCC3   ,& 
+ & RLILIA   ,RLILIB  
+USE YOERDU        , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,REPSCW   ,DIFF
+!USE YOETHF        , ONLY : RTICE
+USE YOEPHLI       , ONLY : LPHYLIN
+USE YOERRTWN      , ONLY :                     DELWAVE   ,TOTPLNK   
+
+USE YOMLUN_IFSAUX , ONLY : NULOUT
+USE YOMCT3        , ONLY : NSTEP
+
+IMPLICIT NONE
+
+include "clesphys.h"
+!!include "clesrrtm.h"
+include "YOETHF.h"
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRII0 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCNL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCNO(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLFR(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PLSM(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PMU0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZON(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQIWP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQLWP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KLON,KLEV) 
+REAL(KIND=JPRB)                  :: PQRAIN(KLON,KLEV) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PRAINT(KLON,KLEV) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PNBAS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PNTOP(KLON) 
+LOGICAL           ,INTENT(IN)    :: LRDUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV,NSW)
+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)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFCT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFCS(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLS(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRSOD(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PUVDF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARCF(KLON), PTINCF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIR(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIF(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDN(KLON,KLEV+1)   ! SW total sky flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUP(KLON,KLEV+1)   ! SW total sky flux up
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCDN(KLON,KLEV+1)  ! SW clear sky flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCUP(KLON,KLEV+1)  ! SW clear sky flux up
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+!     ==== COMPUTED IN RADLSW ===
+!     -----------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+!     -----------------------------------------------------------------
+
+!-- ARRAYS FOR LOCAL VARIABLES -----------------------------------------
+
+INTEGER(KIND=JPIM) :: IBAS(KLON)     , ITOP(KLON)
+
+REAL(KIND=JPRB) ::&
+ & 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(KIND=JPRB) ::&
+ & ZCLDLD(KLON,KLEV)  , ZCLDLU(KLON,KLEV)&
+ & , ZCLDSW(KLON,KLEV)  , ZCLD0(KLON,KLEV)&
+ & , ZDT0(KLON)        &
+ & , ZEMIS(KLON)        , ZEMIW(KLON)&
+ & , ZFIWP(KLON)        , ZFLWP(KLON)      , ZFRWP(KLON)&
+ & , ZIWC(KLON)         , ZLWC(KLON)&
+ !cc            , ZRWC(KLON)
+ & , ZMU0(KLON)         , ZOZ(KLON,KLEV)   , ZOZN(KLON,KLEV)&
+ & , ZPMB(KLON,KLEV+1)  , ZPSOL(KLON)&
+ & , ZTAVE (KLON,KLEV)  , ZTL(KLON,KLEV+1)&
+ & , ZVIEW(KLON)  
+REAL(KIND=JPRB) ::&
+ & 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)&  
+ & , ZDIRFS(KLON,NSW)   , ZDIFFS(KLON,NSW)  
+REAL(KIND=JPRB) ::&
+ & ZALFICE(KLON)      , ZGAMICE(KLON)     , ZBICE(KLON)   , ZDESR(KLON)&
+ & , ZRADIP(KLON)       , ZRADLP(KLON)     &
+ !cc           , ZRADRD(KLON)
+ & , ZRAINT(KLON)       , ZRES(KLON)&
+ & , ZTICE(KLON)        , ZEMIT(KLON),  ZBICFU(KLON)&
+ & , ZKICFU(KLON)
+REAL(KIND=JPRB) :: ZSUDU(KLON)   , ZPARF(KLON)       , ZUVDF(KLON), ZPARCF(KLON)
+INTEGER(KIND=JPIM) :: IKL, JK, JKL, JKLP1, JKP1, JL, JNU, JRTM, JSW, INDLAY
+
+REAL(KIND=JPRB) :: ZASYMX, ZDIFFD, ZGI, ZGL, ZGR, ZIWGKG, ZLWGKG,&
+ & ZMSAID, ZMSAIU, ZMSALD, ZMSALU, ZRSAIA, ZRSAID, ZRSAIE, ZRSAIF, ZRSAIG, ZRSALD, &
+ & ZMULTI, ZMULTL, ZOI   , ZOL, &
+ & ZOMGMX, ZOR, ZRMUZ, ZRWGKG, ZTAUD, ZTAUMX, ZTEMPC, &
+ & ZTOI, ZTOL, ZTOR, ZZFIWP, ZZFLWP, ZDPOG, ZPODT  
+
+REAL(KIND=JPRB) :: ZALND, ZASEA, ZD, ZDEN, ZNTOT, ZNUM, ZRATIO, Z1RADI, &
+ & Z1RADL, ZBETAI, ZOMGI, ZOMGP, ZFDEL, ZTCELS, ZFSR, ZAIWC, &
+ & ZBIWC, ZTBLAY, ZADDPLK, ZPLANCK, ZEXTCF, Z1MOMG, &
+ & ZDefRe, ZRefDe, ZVI , ZMABSD 
+
+!REAL(KIND=JPRB) :: ZAVDP(KLON), ZAVTO(KLON), ZSQTO(KLON)
+REAL(KIND=JPRB) :: ZAVTO(KLON), ZSQTO(KLON)
+REAL(KIND=JPRB) :: ZSQUAR(KLON,KLEV), ZVARIA(KLON,KLEV)
+INTEGER(KIND=JPIM) :: IKI, JKI, JEXPLR, JXPLDN
+LOGICAL         :: LLDEBUG
+
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lw.intfb.h"
+#include "rrtm_rrtm_140gp.intfb.h"
+#include "sw.intfb.h"
+
+!     -----------------------------------------------------------------
+
+!*         1.     SET-UP INPUT QUANTITIES FOR RADIATION
+!                 -------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RADLSW',0,ZHOOK_HANDLE)
+
+LLDEBUG=.FALSE.
+ZRefDe = RRe2De
+ZDefRe = 1.0_JPRB / ZRefDe
+
+DO JL = KIDIA,KFDIA
+  ZFCUP(JL,KLEV+1) = 0.0_JPRB
+  ZFCDWN(JL,KLEV+1) = REPLOG
+  ZFSUP(JL,KLEV+1) = 0.0_JPRB
+  ZFSDWN(JL,KLEV+1) = REPLOG
+  PFLUX(JL,1,KLEV+1) = 0.0_JPRB
+  PFLUX(JL,2,KLEV+1) = 0.0_JPRB
+  PFLUC(JL,1,KLEV+1) = 0.0_JPRB
+  PFLUC(JL,2,KLEV+1) = 0.0_JPRB
+  ZFSDNN(JL) = 0.0_JPRB
+  ZFSDNV(JL) = 0.0_JPRB
+  ZFCDNN(JL) = 0.0_JPRB
+  ZFCDNV(JL) = 0.0_JPRB
+  ZFSUPN(JL) = 0.0_JPRB
+  ZFSUPV(JL) = 0.0_JPRB
+  ZFCUPN(JL) = 0.0_JPRB
+  ZFCUPV(JL) = 0.0_JPRB
+  ZPSOL(JL) = PAPH(JL,KLEV+1)
+  ZPMB(JL,1) = ZPSOL(JL) / 100.0_JPRB
+  ZDT0(JL) = PTS(JL) - PTH(JL,KLEV+1)
+  PSUDU(JL) = 0.0_JPRB
+  PPARF(JL) = 0.0_JPRB
+  PPARCF(JL)= 0.0_JPRB
+  PUVDF(JL) = 0.0_JPRB
+  PSFSWDIR(JL,:)=0.0_JPRB
+  PSFSWDIF(JL,:)=0.0_JPRB
+  IBAS(JL) = INT ( 0.01_JPRB + PNBAS(JL) )
+  ITOP(JL) = INT ( 0.01_JPRB + PNTOP(JL) )
+ENDDO
+
+!*         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)
+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.0_JPRB
+
+!-- ZOZ in cm.atm for SW scheme    
+    ZOZ(JL,JK)   = POZON(JL,JKL) * 46.6968_JPRB / RG
+
+    ZCLD0(JL,JK) = 0.0_JPRB
+    ZFCUP(JL,JK) = 0.0_JPRB
+    ZFCDWN(JL,JK) = 0.0_JPRB
+    ZFSUP(JL,JK) = 0.0_JPRB
+    ZFSDWN(JL,JK) = 0.0_JPRB
+    PFLUX(JL,1,JK) = 0.0_JPRB
+    PFLUX(JL,2,JK) = 0.0_JPRB
+    PFLUC(JL,1,JK) = 0.0_JPRB
+    PFLUC(JL,2,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+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.0_JPRB
+ENDDO
+!***
+
+!     ------------------------------------------------------------------
+
+!*         2.     CLOUD AND AEROSOL PARAMETERS
+!                 ----------------------------
+
+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)  = 0.0_JPRB
+      ZOMEGA(JL,JSW,JK)= 1.0_JPRB
+      ZCG(JL,JSW,JK)   = 0.0_JPRB
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZCLDSW(JL,JK)  = 0.0_JPRB
+    ZCLDLD(JL,JK)  = 0.0_JPRB
+    ZCLDLU(JL,JK)  = 0.0_JPRB
+  ENDDO
+
+!          2.2    CLOUD ICE AND LIQUID CONTENT AND PATH
+!                 -------------------------------------
+
+  DO JL = KIDIA,KFDIA
+
+! --- LIQUID WATER CONTENT (g.m-3) AND LIQUID WATER PATH (g.m-2)
+    IF (PCLFR(JL,IKL) > REPSC ) THEN
+      ZLWGKG=MAX(PQLWP(JL,IKL)*1000.0_JPRB,0.0_JPRB)
+      ZIWGKG=MAX(PQIWP(JL,IKL)*1000.0_JPRB,0.0_JPRB)
+      ZLWGKG=ZLWGKG/PCLFR(JL,IKL)
+      ZIWGKG=ZIWGKG/PCLFR(JL,IKL)
+    ELSE
+      ZLWGKG=0.0_JPRB
+      ZIWGKG=0.0_JPRB
+    ENDIF
+    ZRWGKG=0.0_JPRB
+    ZRAINT(JL)=0.0_JPRB
+
+! --- RAIN LIQUID WATER CONTENT (g.m-3) AND LIQUID WATER PATH (g.m-2)
+!    IF (PRAINT(JL,IKL) >= REPSCW) 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
+!    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
+
+  ENDDO
+  DO JL = KIDIA,KFDIA
+! --- EFFECTIVE RADIUS FOR WATER, ICE AND RAIN PARTICLES
+
+! very old parametrization as f(pressure)
+
+    IF (NRADLP == 0) THEN
+!-- very old parametrization as f(pressure) ERA-15
+      ZRADLP(JL)=10.0_JPRB + (100000.0_JPRB-PAP(JL,IKL))*3.5_JPRB
+
+    ELSEIF (NRADLP == 1) THEN
+! simple distinction between land (10) and ocean (13) Zhang and Rossow
+      IF (PLSM(JL) < 0.5_JPRB) THEN
+        ZRADLP(JL)=13.0_JPRB
+      ELSE
+        ZRADLP(JL)=10.0_JPRB
+      ENDIF
+      
+    ELSEIF (NRADLP == 2) THEN
+!--  based on Martin et al., 1994, JAS
+      IF (PLSM(JL) < 0.5_JPRB) THEN
+        IF (LCCNO) THEN
+!          ZASEA=50.0_JPRB
+          ZASEA=PCCNO(JL)
+        ELSE  
+          ZASEA=RCCNSEA
+        ENDIF  
+        ZD=0.33_JPRB
+        ZNTOT=-1.15E-03_JPRB*ZASEA*ZASEA+0.963_JPRB*ZASEA+5.30_JPRB
+      ELSE
+        IF (LCCNL) THEN 
+!          ZALND=900.0_JPRB
+          ZALND=PCCNL(JL)
+        ELSE  
+          ZALND=RCCNLND
+        ENDIF  
+        ZD=0.43_JPRB
+        ZNTOT=-2.10E-04_JPRB*ZALND*ZALND+0.568_JPRB*ZALND-27.9_JPRB
+      ENDIF
+      ZNUM=3.0_JPRB*ZLWC(JL)*(1.0_JPRB+3.0_JPRB*ZD*ZD)**2
+      ZDEN=4.0_JPRB*RPI*ZNTOT*(1.0_JPRB+ZD*ZD)**3
+      IF((ZNUM/ZDEN) > REPLOG)THEN
+        ZRADLP(JL)=100.0_JPRB*EXP(0.333_JPRB*LOG(ZNUM/ZDEN))
+        ZRADLP(JL)=MAX(ZRADLP(JL), 4.0_JPRB)
+        ZRADLP(JL)=MIN(ZRADLP(JL),16.0_JPRB)
+      ELSE
+        ZRADLP(JL)=4.0_JPRB
+      ENDIF
+
+    ELSEIF (NRADLP == 3) THEN  
+! one uses the cloud droplet radius from newmicro
+! IKL or JK ?? - I think IKL but needs to be verified
+        ZRADLP(JL)=PREF_LIQ(JL,IKL)
+    ENDIF  
+
+! ===========================================================
+! ___________________________________________________________
+
+! rain drop from          : unused as ZRAINT is 0.
+!    ZRADRD(JL)=500.0_JPRB*ZRAINT(JL)**0.22_JPRB
+!    IF (ZFLWP(JL).GT.0.) THEN
+!      ZRADRD(JL)=ZRADLP(JL)+ZRADRD(JL)
+!    ENDIF   
+
+  ENDDO
+  DO JL = KIDIA,KFDIA
+
+! diagnosing the ice particle effective radius/diameter
+
+!- 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))    
+
+    IF (NRADIP == 0) THEN
+!-- fixed 40 micron effective radius
+      ZRADIP(JL)= 40.0_JPRB
+      ZDESR(JL) = ZDefRe * ZRADIP(JL)
+      
+    ELSEIF (NRADIP == 1) THEN 
+
+!-- old formulation based on Liou & Ou (1994) temperature (40-130microns)    
+      ZRADIP(JL)=MAX(ZRADIP(JL),40.0_JPRB)
+      ZDESR(JL) = ZDefRe * ZRADIP(JL)
+      
+    ELSEIF (NRADIP == 2) THEN  
+!-- formulation following Jakob, Klein modifications to ice content    
+      ZRADIP(JL)=MAX(ZRADIP(JL),30.0_JPRB)
+      ZRADIP(JL)=MIN(ZRADIP(JL),60.0_JPRB)
+      ZDESR(JL)= ZDefRe * ZRADIP(JL)
+ 
+    ELSEIF (NRADIP == 3  ) THEN
+ 
+!- ice particle effective radius =f(T,IWC) from Sun and Rikus (1999)
+! revised by Sun (2001)
+      IF (ZIWC(JL) > 0.0_JPRB ) THEN
+        ZTEMPC = PT(JL,IKL)-83.15_JPRB
+        ZTCELS = PT(JL,IKL)-RTT
+        ZFSR = 1.2351_JPRB +0.0105_JPRB * ZTCELS
+! Sun, 2001 (corrected from Sun & Rikus, 1999)
+        ZAIWC = 45.8966_JPRB * ZIWC(JL)**0.2214_JPRB
+        ZBIWC = 0.7957_JPRB * ZIWC(JL)**0.2535_JPRB
+        ZDESR(JL) = ZFSR * (ZAIWC + ZBIWC*ZTEMPC)
+!-new        ZDESR(JL) = MIN ( MAX( ZDESR(JL), 30.0_JPRB), 155.0_JPRB)
+        ZDESR(JL) = MIN ( MAX( ZDESR(JL), 45.0_JPRB), 350.0_JPRB)
+        ZRADIP(JL)= ZRefDe * ZDESR(JL)
+      ELSE
+!        ZDESR(JL) = 92.5_JPRB
+        ZDESR(JL) = 80.0_JPRB
+        ZRADIP(JL)= ZRefDe * ZDESR(JL)
+      ENDIF  
+ 
+    ELSEIF (NRADIP == 4  ) THEN
+! one uses the cloud droplet radius from newmicro
+! IKL or JK ?? - I think IKL but needs to be verified
+        ZRADIP(JL)=PREF_ICE(JL,IKL)
+    ENDIF  
+    
+  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=0.0_JPRB
+      ZGL =0.0_JPRB
+      ZOL =0.0_JPRB
+      ZTOI=0.0_JPRB
+      ZGI =0.0_JPRB
+      ZOI =0.0_JPRB
+      ZTOR=0.0_JPRB
+      ZGR =0.0_JPRB
+      ZOR =0.0_JPRB
+      IF (ZFLWP(JL)+ZFIWP(JL)+ZFRWP(JL) > 2.0_JPRB * REPSCW ) THEN
+        IF (ZFLWP(JL) >= REPSCW ) THEN
+          IF (NLIQOPT /= 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)
+!-- NB: RSWINHF is there simply for making the CY29R2 branch bit compatible with 
+! the previous. Should be cleaned when RRTM_SW becomes active
+            ZOL  = RYFWCC(JSW)-RYFWCD(JSW)*EXP(-RYFWCE(JSW)*ZTOL*RSWINHF)
+          ENDIF 
+        ENDIF
+
+        IF (ZFIWP(JL) >= REPSCW ) THEN
+          IF (NICEOPT <= 1) THEN
+!-- SW: Ebert-Curry          
+            ZTOI = ZFIWP(JL)*(REBCUA(JSW)+REBCUB(JSW)/ZRADIP(JL))
+            ZGI  = REBCUE(JSW)+REBCUF(JSW)*ZRADIP(JL)
+            ZOI  = 1.0_JPRB - REBCUC(JSW)-REBCUD(JSW)*ZRADIP(JL)
+            
+          ELSEIF (NICEOPT == 2) THEN  
+!-- SW: Fu-Liou 1993
+            Z1RADI = 1.0_JPRB / ZDESR(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  = 1.0_JPRB - 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.0_JPRB -ZFDEL)*ZOMGP + ZFDEL*3.0_JPRB) / 3.0_JPRB
+            
+          ELSEIF (NICEOPT == 3) THEN  
+!-- SW: Fu 1996
+            Z1RADI = 1.0_JPRB / 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  = 1.0_JPRB - ZOMGI
+            ZGI  = RFUCC0(JSW)+ZDESR(JL)*(RFUCC1(JSW) + ZDESR(JL) &
+             &   *(RFUCC2(JSW)+ZDESR(JL)* RFUCC3(JSW) )) 
+            ZGI  = MIN(1.0_JPRB, ZGI)
+      
+          ENDIF
+        ENDIF
+
+!        IF (ZFRWP(JL) >= REPSCW ) THEN
+!          ZTOR= ZFRWP(JL)*0.003_JPRB * ZRAINT(JL)**(-0.22_JPRB)         
+!          ZOR = 1.0_JPRB - RROMA(JSW)*ZRAINT(JL)**RROMB(JSW)
+!          ZGR = RRASY(JSW)
+!        ENDIF   
+
+!  - 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
+
+! --- 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
+    ENDDO
+  ENDDO
+
+  IF(LLDEBUG) THEN
+   call writefield_phy("radlsw_ztau",ztau(:,1,:),klev)
+  ENDIF
+
+!          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)=0.0_JPRB
+      ZGAMICE(JL)=0.0_JPRB
+      ZBICE(JL)=0.0_JPRB
+      ZTICE(JL)=(PT(JL,IKL)-TSTAND)/TSTAND
+      IF (NICEOPT == 1) THEN
+        ZBICFU(JL)=1.0_JPRB
+      ELSE
+        ZBICFU(JL)=0.0_JPRB
+      ENDIF
+      ZKICFU(JL)=0.0_JPRB
+    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    
+    IF (NICEOPT == 2 .OR. NICEOPT == 3) THEN
+      DO JRTM=1,16
+        DO JL=KIDIA,KFDIA
+          IF (PT(JL,IKL) < 160.0_JPRB) THEN
+            INDLAY=1
+            ZTBLAY =PT(JL,IKL)-160.0_JPRB
+          ELSEIF (PT(JL,IKL) < 339.0_JPRB ) THEN
+            INDLAY=PT(JL,IKL)-159.0_JPRB
+            INDLAY=MAX(INDLAY,1)
+            ZTBLAY =PT(JL,IKL)-INT(PT(JL,IKL))
+          ELSE 
+            INDLAY=180
+            ZTBLAY =PT(JL,IKL)-339.0_JPRB
+          ENDIF
+          ZADDPLK = TOTPLNK(INDLAY+1,JRTM)-TOTPLNK(INDLAY,JRTM)
+          ZPLANCK = DELWAVE(JRTM) * (TOTPLNK(INDLAY,JRTM) + ZTBLAY*ZADDPLK)
+          ZBICFU(JL) = ZBICFU(JL) + ZPLANCK
+        
+          IF (ZIWC(JL) > 0.0_JPRB ) THEN
+            ZRATIO =  1.0_JPRB / ZDESR(JL) 
+            IF (NICEOPT == 2) THEN
+! ice cloud spectral emissivity a la Fu & Liou (1993)
+              ZMABSD = RFULIO(JRTM,1) + ZRATIO &
+               & *(RFULIO(JRTM,2) + ZRATIO*RFULIO(JRTM,3))  
+          
+! ice cloud spectral emissivity a la Fu et al (1998)
+            ELSEIF (NICEOPT == 3) THEN 
+              ZMABSD = RFUETA(JRTM,1) + ZRATIO &
+               & *(RFUETA(JRTM,2) + ZRATIO*RFUETA(JRTM,3))  
+            ENDIF
+            ZKICFU(JL) = ZKICFU(JL)+ ZMABSD*ZPLANCK
+          ENDIF  
+        ENDDO
+      ENDDO
+    ENDIF
+    
+    DO JL = KIDIA,KFDIA
+      ZGAMICE(JL) = ZGAMICE(JL) / ZBICE(JL)
+      ZALFICE(JL) = ZALFICE(JL) / ZBICE(JL)
+      ZKICFU(JL)  = ZKICFU(JL) / ZBICFU(JL)
+      
+      IF (ZFLWP(JL)+ZFIWP(JL) > REPSCW) THEN
+
+        IF (NLIQOPT == 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
+          
+        ENDIF  
+          
+        IF (NICEOPT == 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
+
+        ELSEIF (NICEOPT == 1) THEN
+! ice cloud emissivity a la Ebert & Curry (1992)
+          ZMSAID= 1.66_JPRB*(ZALFICE(JL)+ZGAMICE(JL)/ZRADIP(JL))
+          ZMSAIU= ZMSAID
+          
+        ELSEIF (NICEOPT == 2 .OR. NICEOPT == 3) THEN  
+! ice cloud emissivity a la Fu & Liou (1993) or Fu et al. (1998)
+          ZMSAID= 1.66_JPRB*ZKICFU(JL)
+          ZMSAIU= ZMSAID          
+        ENDIF 
+       
+        IF (NINHOM == 1) THEN
+          ZZFLWP= ZFLWP(JL) * RLWINHF
+          ZZFIWP= ZFIWP(JL) * RLWINHF
+        ELSE
+          ZZFLWP= ZFLWP(JL)
+          ZZFIWP= ZFIWP(JL)
+        ENDIF
+
+! effective cloudiness accounting for condensed water
+        ZCLDLD(JL,JK) = PCLFR(JL,IKL)*(1.0_JPRB-EXP(-ZMSALD*ZZFLWP-ZMSAID* &
+         & ZZFIWP))  
+        ZCLDLU(JL,JK) = PCLFR(JL,IKL)*(1.0_JPRB-EXP(-ZMSALU*ZZFLWP-ZMSAIU* &
+         & ZZFIWP))  
+      ENDIF
+    ENDDO
+
+  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
+
+    DO JRTM=1,16
+      DO JL = KIDIA,KFDIA
+        ZTAUCLD(JL,JK,JRTM) = 0.0_JPRB
+        ZMSALD = 0.0_JPRB
+        ZMSAID = 0.0_JPRB
+        
+        IF (ZFLWP(JL)+ZFIWP(JL) > REPSCW) THEN
+    
+          IF (NLIQOPT == 0 .OR. NLIQOPT >= 3 ) THEN
+! water cloud total emissivity a la Smith and Shi (1992)
+            ZMULTL=1.2_JPRB-0.006_JPRB*ZRADLP(JL)
+            ZRSALD= 0.144_JPRB*ZMULTL / 1.66_JPRB
+            
+          ELSEIF (NLIQOPT == 1) THEN
+! water cloud spectral emissivity a la Savijarvi (1997)
+            ZRSALD= RHSAVI(JRTM,1) + ZRADLP(JL)&
+             & *(RHSAVI(JRTM,2) + ZRADLP(JL)*RHSAVI(JRTM,3))  
+             
+          ELSEIF (NLIQOPT == 2) THEN
+! water cloud spectral emissivity a la Lindner and Li (2000)
+            Z1RADL = 1.0_JPRB / ZRADLP(JL)
+            ZEXTCF = RLILIA(JRTM,1)+ZRADLP(JL)*RLILIA(JRTM,2)+ Z1RADL*&
+             & (RLILIA(JRTM,3) + Z1RADL*(RLILIA(JRTM,4) + Z1RADL*&
+             & RLILIA(JRTM,5) ))  
+            Z1MOMG = RLILIB(JRTM,1) + Z1RADL*RLILIB(JRTM,2) &
+             & + ZRADLP(JL) *(RLILIB(JRTM,3) + ZRADLP(JL)*RLILIB(JRTM,4) )
+            ZRSALD = Z1MOMG * ZEXTCF
+          ENDIF  
+         
+          IF (NICEOPT == 0) THEN
+! ice cloud spectral emissivity a la Smith & Shi (1992)
+            ZMULTI=1.2_JPRB-0.006_JPRB*ZRADIP(JL)
+            ZRSAID= 0.103_JPRB*ZMULTI / 1.66_JPRB
+            
+          ELSEIF (NICEOPT == 1) THEN
+! ice cloud spectral emissivity a la Ebert-Curry (1992)
+            ZRSAID= REBCUH(JRTM)+REBCUG(JRTM)/ZRADIP(JL)
+            
+          ELSEIF (NICEOPT == 2) THEN
+! ice cloud spectral emissivity a la Fu & Liou (1993)
+            Z1RADI = 1.0_JPRB / ZDESR(JL)
+            ZRSAID = RFULIO(JRTM,1) + Z1RADI &
+             & *(RFULIO(JRTM,2) + Z1RADI * RFULIO(JRTM,3))  
+             
+          ELSEIF (NICEOPT == 3) THEN
+! ice cloud spectral emissivity a la Fu et al (1998) including 
+! parametrisation for LW scattering effect  
+            Z1RADI = 1.0_JPRB / ZDESR(JL)
+            ZRSAIE = RFUETA(JRTM,1) + Z1RADI &
+             &*(RFUETA(JRTM,2) + Z1RADI * RFUETA(JRTM,3)) 
+            ZRSAIA = Z1RADI*(RFUETB(JRTM,1) +ZDESR(JL)*( RFUETB(JRTM,2) +ZDESR(JL)*( RFUETB(JRTM,3) +ZDESR(JL)* RFUETB(JRTM,4))))
+            ZRSAIG = RFUETC(JRTM,1) +ZDESR(JL)*( RFUETC(JRTM,2) +ZDESR(JL)*( RFUETC(JRTM,3) +ZDESR(JL)* RFUETC(JRTM,4))) 
+            ZRSAIF = 0.5_JPRB + ZRSAIG*( 0.3738_JPRB + ZRSAIG*( 0.0076_JPRB + ZRSAIG*0.1186_JPRB ) )
+            ZRSAID = (1.0_JPRB - ZRSAIA/ZRSAIE * ZRSAIF) * ZRSAIE
+          ENDIF    
+         
+          ZTAUD = ZRSALD*ZFLWP(JL)+ZRSAID*ZFIWP(JL)
+
+! Diffusivity correction within clouds a la Savijarvi
+          IF (LDIFFC) THEN
+            ZDIFFD=MIN(MAX(1.517_JPRB-0.156_JPRB*LOG(ZTAUD) , 1.0_JPRB), &
+             &     2.0_JPRB)
+          ELSE
+            ZDIFFD=1.66_JPRB
+          ENDIF
+
+          ZTAUCLD(JL,JK,JRTM) = ZTAUD*ZDIFFD
+        ENDIF
+        
+      ENDDO
+    ENDDO
+
+  ENDIF
+
+ENDDO
+
+NUAER = NUA
+NTRAER = NTRA
+
+!     ------------------------------------------------------------------
+! 
+!          2.6    SCALING OF OPTICAL THICKNESS
+!                 SPECTRALLY, ACCOUNTING FOR VERTICAL VARIABILITY
+
+JEXPLR=NLAYINH
+JXPLDN=2*JEXPLR+1
+
+IF (NINHOM == 1) THEN
+!-- simple scaling a la Tiedtke (1996) with RSWINHF in SW and RLWINHF in LW
+  DO JSW=1,NSW
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZTAU(JL,JSW,JK)=ZTAU(JL,JSW,JK) * RSWINHF
+      ENDDO
+    ENDDO
+  ENDDO
+
+  DO JRTM=1,16
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZTAUCLD(JL,JK,JRTM)=ZTAUCLD(JL,JK,JRTM) * RLWINHF
+      ENDDO
+    ENDDO
+  ENDDO
+
+ELSEIF (JEXPLR /= 0) THEN
+  DO JSW=1,NSW
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZSQUAR(JL,JK)=0.0_JPRB
+        ZVARIA(JL,JK)=1.0_JPRB
+      ENDDO
+    ENDDO
+!-- range should be defined from Hogan & Illingworth
+    DO JK=1+JEXPLR,KLEV-JEXPLR
+      DO JL=KIDIA,KFDIA
+!        ZAVDP(JL)=0.0_JPRB
+        ZAVTO(JL)=0.0_JPRB
+        ZSQTO(JL)=0.0_JPRB
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZAVDP(JL)=ZAVDP(JL)+PDP(JL,IKI)/RG
+          ZAVTO(JL)=ZAVTO(JL)+ZTAU(JL,JSW,JKI)
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+!        ZAVTO(JL)=ZAVTO(JL)/ZAVDP(JL)
+        ZAVTO(JL)=ZAVTO(JL)/JXPLDN
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZSQTO(JL)=ZSQTO(JL)+(ZTAU(JL,JSW,JKI)/PDP(JL,IKI)-ZAVTO(JL))**2
+          ZSQTO(JL)=ZSQTO(JL)+(ZTAU(JL,JSW,JKI)-ZAVTO(JL))**2
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+        ZSQTO(JL)=SQRT(ZSQTO(JL)/(JXPLDN*(JXPLDN-1)))
+        IF (ZAVTO(JL) > 0.0_JPRB) THEN
+          ZVARIA(JL,JK)=(ZSQTO(JL)/ZAVTO(JL))**2
+          ZSQUAR(JL,JK)=EXP(-ZVARIA(JL,JK))
+        ELSE
+          ZVARIA(JL,JK)=0.0_JPRB
+          ZSQUAR(JL,JK)=1.0_JPRB
+        ENDIF
+
+!-- scaling a la Barker
+        IF (NINHOM ==2) THEN
+          ZTAU(JL,JSW,JK)=ZTAU(JL,JSW,JK)*ZSQUAR(JL,JK)
+
+!-- scaling a la Cairns et al.
+        ELSEIF (NINHOM == 3) THEN
+          ZVI=ZVARIA(JL,JK) 
+          ZTAU(JL,JSW,JK)  = ZTAU(JL,JSW,JK)/(1.0_JPRB+ZVI)
+          ZOMEGA(JL,JSW,JK)= ZOMEGA(JL,JSW,JK) &
+            &   /(1.0_JPRB + ZVI*(1.0_JPRB-ZOMEGA(JL,JSW,JK) ) )
+          ZCG(JL,JSW,JK)   = ZCG(JL,JSW,JK) &
+            & *(1.0_JPRB+ZVI*(1.0_JPRB-ZOMEGA(JL,JSW,JK))) &
+            & /(1.0_JPRB+ZVI*(1.0_JPRB-ZOMEGA(JL,JSW,JK)*ZCG(JL,JSW,JK)))
+        ENDIF
+      ENDDO
+!      JL=KIDIA
+!      print 9261,JSW,JK,ZTAU(JL,JSW,JK),ZAVTO(JL),ZSQTO(JL),ZVARIA(JL,JK),ZSQUAR(JL,JK)
+9261   format(1x,'Varia1 ',2I3,7F10.4)
+    ENDDO
+  ENDDO
+
+
+  DO JRTM=1,16
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZSQUAR(JL,JK)=0.0_JPRB
+        ZVARIA(JL,JK)=1.0_JPRB
+      ENDDO
+    ENDDO
+!-- range to be defined from Hogan & Illingworth
+    DO JK=1+JEXPLR,KLEV-JEXPLR
+      DO JL=KIDIA,KFDIA
+!        ZAVDP(JL)=0.0_JPRB
+        ZAVTO(JL)=0.0_JPRB
+        ZSQTO(JL)=0.0_JPRB
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZAVDP(JL)=ZAVDP(JL)+PDP(JL,IKI)/RG
+          ZAVTO(JL)=ZAVTO(JL)+ZTAUCLD(JL,JKI,JRTM)
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+!        ZAVTO(JL)=ZAVTO(JL)/ZAVDP(JL)
+        ZAVTO(JL)=ZAVTO(JL)/JXPLDN
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZSQTO(JL)=ZSQTO(JL)+(ZTAUCLD(JL,JKI,JRTM)/PDP(JL,IKI)-ZAVTO(JL))**2
+            ZSQTO(JL)=ZSQTO(JL)+(ZTAUCLD(JL,JKI,JRTM)-ZAVTO(JL))**2
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+        ZSQTO(JL)=SQRT(ZSQTO(JL)/(JXPLDN*(JXPLDN-1)))
+        IF (ZAVTO(JL) > 0.0_JPRB) THEN
+          ZVARIA(JL,JK)=(ZSQTO(JL)/ZAVTO(JL))**2
+          ZSQUAR(JL,JK)=EXP(-ZVARIA(JL,JK))
+        ELSE
+          ZVARIA(JL,JK)=0.0_JPRB
+          ZSQUAR(JL,JK)=1.0_JPRB
+        ENDIF
+
+!-- scaling a la Barker
+        IF (NINHOM ==2) THEN
+          ZTAUCLD(JL,JK,JRTM)=ZTAUCLD(JL,JK,JRTM)*ZSQUAR(JL,JK)
+
+!-- scaling a la Cairns et al.
+        ELSEIF (NINHOM == 3) THEN
+          ZVI=ZVARIA(JL,JK) 
+          ZTAUCLD(JL,JK,JRTM)=ZTAUCLD(JL,JK,JRTM)/(1.0_JPRB+ZVI)
+        ENDIF
+      ENDDO
+!      JL=KIDIA
+!      print 9262,JRTM,JK,ZTAUCLD(JL,JK,JRTM),ZAVTO(JL),ZSQTO(JL),ZVARIA(JL,JK),ZSQUAR(JL,JK)
+9262   format(1x,'Varia2 ',2I3,7F10.4)
+    ENDDO
+  ENDDO
+ENDIF
+
+
+
+!     ------------------------------------------------------------------
+!
+!*         2.7    DIFFUSIVITY FACTOR OR SATELLITE VIEWING ANGLE
+!                 ---------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZVIEW(JL) = DIFF
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.     CALL LONGWAVE RADIATION CODE
+!                 ----------------------------
+
+!*         3.1    FULL LONGWAVE RADIATION COMPUTATIONS
+!                 ------------------------------------
+
+!print *,'RADLSW: LPHYLIN, LRRTM',LPHYLIN, LRRTM
+IF (.NOT.LPHYLIN) THEN
+  IF ( .NOT. LRRTM) THEN
+
+    CALL LW &
+     & ( KIDIA , KFDIA , KLON  , KLEV , KMODE,&
+     & PCCO2 , ZCLDLD, ZCLDLU,&
+     & PDP   , ZDT0  , ZEMIS , ZEMIW,&
+     & ZPMB  , POZON , ZTL,&
+     & PAER  , ZTAVE , ZVIEW , PQ,&
+     & ZEMIT , PFLUX , PFLUC &
+     & )  
+!   print *,'RADLSW: apres CALL LW'
+    IF(LLDEBUG) THEN
+    call writefield_phy('radlsw_flux1',PFLUX(:,1,:),klev+1)
+    call writefield_phy('radlsw_flux2',PFLUX(:,2,:),klev+1)
+    call writefield_phy('radlsw_fluc1',PFLUC(:,1,:),klev+1)
+    call writefield_phy('radlsw_fluc2',PFLUC(:,2,:),klev+1)
+    ENDIF
+
+  ELSE
+
+!*         3.2    FULL LONGWAVE RADIATION COMPUTATIONS - RRTM
+!                 ------------------------------------   ----
+
+!  i)  pass ZOZN (ozone mass mixing ratio) 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
+
+!   print *,'RADLSW: avant CALL RRTM_RRTM_140GP,PAP=',PAP(1,:)
+    CALL RRTM_RRTM_140GP &
+     & ( KIDIA , KFDIA , KLON  , KLEV,&
+     & PAER  , PAPH  , PAP,&
+     & PTS   , PTH   , PT,&
+     & ZEMIS , ZEMIW,&
+     & PQ    , PCCO2 , ZOZN  ,&
+     & ZCLDSW  , ZTAUCLD,&
+     & PTAU_LW,&
+     & ZEMIT , PFLUX , PFLUC , ZTCLEAR )
+!   print *,'RADLSW: apres CALL RRTM_RRTM_140GP'
+
+  ENDIF
+ELSE
+  ZEMIT (:)   = 0.0_JPRB
+  PFLUX(:,:,:)= 0.0_JPRB
+  PFLUC(:,:,:)= 0.0_JPRB
+! print *,'RADLSW: ZEMIT,PFLUX et PFLUC = 0'
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         4.     CALL SHORTWAVE RADIATION CODE
+!                 -----------------------------
+
+ZRMUZ=0.0_JPRB
+DO JL = KIDIA,KFDIA
+  ZRMUZ = MAX (ZRMUZ, ZMU0(JL))
+ENDDO
+
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'(4E15.8)') PRII0,PCCO2,ZPSOL(KIDIA),ZMU0(KIDIA)
+  WRITE(NULOUT,'("ZALBD ",6E15.8)') (ZALBD(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("ZALBP ",6E15.8)') (ZALBP(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("PQ    ",10E12.5)') (PQ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PQS   ",10E12.5)') (PQS(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PDP   ",10E12.5)') (PDP(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZPMB  ",10E12.5)') (ZPMB(KIDIA,JK),JK=1,KLEV+1)
+  WRITE(NULOUT,'("ZTAVE ",10E12.5)') (ZTAVE(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZCLDSW",10E12.5)') (ZCLDSW(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZTAU  ",10E12.5)') ((ZTAU(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZCG   ",10E12.5)') ((ZCG(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOMEGA",10E12.5)') ((ZOMEGA(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOZ   ",10E12.5)') (ZOZ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PAER  ",10E12.5)') ((PAER(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+ENDIF
+
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'(4E15.8)') PRII0,PCCO2,ZPSOL(KIDIA),ZMU0(KIDIA)
+  WRITE(NULOUT,'("ZALBD ",6E15.8)') (ZALBD(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("ZALBP ",6E15.8)') (ZALBP(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("PQ    ",10E12.5)') (PQ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PQS   ",10E12.5)') (PQS(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PDP   ",10E12.5)') (PDP(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZPMB  ",10E12.5)') (ZPMB(KIDIA,JK),JK=1,KLEV+1)
+  WRITE(NULOUT,'("ZTAVE ",10E12.5)') (ZTAVE(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZCLDSW",10E12.5)') (ZCLDSW(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZTAU  ",10E12.5)') ((ZTAU(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZCG   ",10E12.5)') ((ZCG(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOMEGA",10E12.5)') ((ZOMEGA(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOZ   ",10E12.5)') (ZOZ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PAER  ",10E12.5)') ((PAER(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+ENDIF
+CALL SW &
+ & ( KIDIA , KFDIA , KLON  , KLEV  , KAER,&
+ & PRII0 , PCCO2 , ZPSOL , ZALBD , ZALBP , PQ   , PQS,&
+ & ZMU0  , ZCG   , ZCLDSW, PDP   , ZOMEGA, ZOZ  , ZPMB,&
+ & ZTAU  , ZTAVE , PAER,&
+ & PFSDN , PFSUP , PFSCDN, PFSCUP,&
+ & ZFSDNN, ZFSDNV, ZFSUPN, ZFSUPV,&
+ & ZFCDNN, ZFCDNV, ZFCUPN, ZFCUPV,&
+ & ZSUDU , ZUVDF , ZPARF ,ZPARCF, ZDIFFS, ZDIRFS, &
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST&
+   & )
+PFSDNV=ZFSDNV
+PFSDNN=ZFSDNN
+IF (SIZE(PSFSWDIR,2)>1) THEN
+  PSFSWDIR= ZDIRFS
+  PSFSWDIF= ZDIFFS
+ELSE
+  PSFSWDIR (:,1) = ZFSDNV(:) + ZFSDNN(:)
+  PSFSWDIF (:,:) = 0.
+ENDIF
+
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'("ZFSDWN",10E12.5)') (ZFSDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFSUP ",10E12.5)') (ZFSUP (KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCDWN",10E12.5)') (ZFCDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCUP ",10E12.5)') (ZFCUP (KIDIA,JK),JK=1,KLEV)
+  LEDBUG=.FALSE. 
+ENDIF
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'("ZFSDWN",10E12.5)') (ZFSDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFSUP ",10E12.5)') (ZFSUP (KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCDWN",10E12.5)') (ZFCDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCUP ",10E12.5)') (ZFCUP (KIDIA,JK),JK=1,KLEV)
+  LEDBUG=.FALSE. 
+ENDIF
+!     ------------------------------------------------------------------
+
+!*         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
+    PFLS(JL,JKL) = ZFSDWN(JL,JK) - ZFSUP(JL,JK)
+    PFLT(JL,JKL) = - PFLUX(JL,1,JK) - PFLUX(JL,2,JK)
+    PFCS(JL,JKL) = ZFCDWN(JL,JK) - ZFCUP(JL,JK)
+    PFCT(JL,JKL) = - PFLUC(JL,1,JK) - PFLUC(JL,2,JK)
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PFRSOD(JL)=ZFSDWN(JL,1)
+  PEMIT (JL)=ZEMIT (JL)
+  PSUDU (JL)=ZSUDU (JL)
+  PUVDF (JL)=ZUVDF (JL)
+  PPARF (JL)=ZPARF (JL)
+  PPARCF(JL)=ZPARCF(JL)
+  PTINCF(JL)=PRII0 * ZMU0(JL) 
+ENDDO
+!print 9501,(PUVDF(JL),JL=KIDIA,KFDIA)
+9501 format(1x,'RADLSW PUVDF: ',30f6.1)
+!print 9502,(PPARF(JL),JL=KIDIA,KFDIA)
+9502 format(1x,'RADLSW PPARF: ',30f6.1)
+
+!     --------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RADLSW',1,ZHOOK_HANDLE)
+END SUBROUTINE RADLSW
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/radlsw.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/radlsw.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/radlsw.intfb.h	(revision 3330)
@@ -0,0 +1,87 @@
+INTERFACE
+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,&
+ & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
+ & 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 : NLW, LRRTM ,LCCNL ,LCCNO, LDIFFC,&
+ & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
+ & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&
+ & LEDBUG 
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PRII0
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCNL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCNO(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PLSM(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZON(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQLWP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
+REAL(KIND=JPRB) :: PQRAIN(KLON,KLEV)
+REAL(KIND=JPRB) :: PRAINT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PNBAS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PNTOP(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF_LIQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF_ICE(KLON,KLEV)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
+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)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFCS(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLS(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSOD(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON), PTINCF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIR(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIF(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDN(KLON,KLEV+1)   ! SW total sky flux down
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUP(KLON,KLEV+1)   ! SW total sky flux up
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCDN(KLON,KLEV+1)  ! SW clear sky flux down
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCUP(KLON,KLEV+1)  ! SW clear sky flux up
+END SUBROUTINE RADLSW
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rdcset.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rdcset.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rdcset.intfb.h	(revision 3330)
@@ -0,0 +1,65 @@
+INTERFACE
+SUBROUTINE RDCSET(CDSL,KSLWIDEN,KSLWIDES,KSLWIDEW,KSLWIDEE,&
+ & KSLRPTSUR,KSLSPTSUR,&
+ & KDGLG,KDLON,KDGSAG,KDGENG,KDGUXL,KDGUXG,KDGSAL,KDGENL,&
+ & KDSUR1,KDLSUR,KDGSUR,KGPTOT,KGPTOT_CAP,&
+ & KPTRFLOFF,KFRSTLOFF,KYFRSTACTLAT,KYLSTACTLAT,&
+ & KSTA,KONL,KLOENG,KPTRFRSTLAT,KFRSTLAT,KLSTLAT,&
+ & PMU,PSQM2,&
+ & KSLSTA,KSLONL,KSLOFF,KSLEXT,KSLCORE,KASLB1,&
+ & KSLPROCS,KSLMPBUFSZ,KSLRPT,KSLSPT,&
+ & KSLSENDPOS,KSLRECVPOS,KSENDPTR,KRECVPTR,KSLCOMM,KMAP,KMAPLEN) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOMCT0 , ONLY : NPROC ,NPRINTLEV,LOUTPUT ,LMPDIAG ,LALLOPR ,&
+ & LELAM ,N_REGIONS_NS ,N_REGIONS_EW 
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEN
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDES
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEE
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLRPTSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLSPTSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGLG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGSAG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGENG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGSAL
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGENL
+INTEGER(KIND=JPIM),INTENT(IN) :: KGPTOT
+CHARACTER(LEN=2) ,INTENT(IN) :: CDSL
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGUXL
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGUXG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDSUR1
+INTEGER(KIND=JPIM),INTENT(IN) :: KDLSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KGPTOT_CAP
+INTEGER(KIND=JPIM),INTENT(IN) :: KPTRFLOFF
+INTEGER(KIND=JPIM),INTENT(IN) :: KFRSTLOFF
+INTEGER(KIND=JPIM),INTENT(IN) :: KYFRSTACTLAT
+INTEGER(KIND=JPIM),INTENT(IN) :: KYLSTACTLAT
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTA(KDGSAG:KDGENG+N_REGIONS_NS-1,N_REGIONS_EW)
+INTEGER(KIND=JPIM),INTENT(IN) :: KONL(KDGSAG:KDGENG+N_REGIONS_NS-1,N_REGIONS_EW)
+INTEGER(KIND=JPIM),INTENT(IN) :: KLOENG(KDGSAG:KDGENG)
+INTEGER(KIND=JPIM),INTENT(IN) :: KPTRFRSTLAT(N_REGIONS_NS)
+INTEGER(KIND=JPIM),INTENT(IN) :: KFRSTLAT(N_REGIONS_NS)
+INTEGER(KIND=JPIM),INTENT(IN) :: KLSTLAT(N_REGIONS_NS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PMU(KDGSAG:KDGENG)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSQM2(KDGSAG:KDGENG)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLSTA(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLONL(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLOFF(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLEXT(1-KDLON:KDLON+KDLON,1-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLCORE(KGPTOT)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KASLB1
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLPROCS
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLMPBUFSZ
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLRPT
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLSPT
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLSENDPOS(KSLSPTSUR)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLRECVPOS(KSLRPTSUR)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSENDPTR(NPROC+1)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KRECVPTR(NPROC+1)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLCOMM(NPROC)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMAP(4,KDGLG)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMAPLEN
+END SUBROUTINE RDCSET
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/read_rsun_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/read_rsun_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/read_rsun_rrtm.F90	(revision 3330)
@@ -0,0 +1,100 @@
+SUBROUTINE read_rsun_rrtm(debut)
+
+!****************************************************************************************
+! This routine will read the solar constant fraction per band
+!
+! Olivier Boucher with inputs from Marion Marchand 
+!****************************************************************************************
+
+  USE netcdf95, ONLY: nf95_close, nf95_inq_varid, nf95_open, nf95_gw_var
+  USE netcdf, ONLY: nf90_get_var, nf90_noerr, nf90_nowrite
+
+  USE phys_cal_mod, ONLY : day_cur, year_len
+
+  USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
+  USE mod_phys_lmdz_omp_data, ONLY: is_omp_root
+  USE mod_phys_lmdz_para
+
+  USE YOESW    , ONLY : RSUN
+
+  IMPLICIT NONE
+
+  INCLUDE "clesphys.h"
+
+  ! Input arguments
+  LOGICAL, INTENT(IN)          :: debut
+
+! Local variables
+  INTEGER               :: ncid, dimid, varid, ncerr, nbday
+  REAL, POINTER :: wlen(:), time(:)
+  REAL, ALLOCATABLE, SAVE, DIMENSION(:,:)   :: SSI_FRAC
+!$OMP THREADPRIVATE(SSI_FRAC)
+  REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: TSI(:)
+!$OMP THREADPRIVATE(TSI)
+
+  INTEGER, SAVE :: day_pre
+
+!--only one processor reads
+    IF (debut) THEN 
+
+    ALLOCATE(SSI_FRAC(NSW,year_len))
+    ALLOCATE(TSI(year_len))
+
+    IF (is_mpi_root.AND.is_omp_root) THEN
+
+       CALL nf95_open('solarforcing.nc', NF90_NOWRITE, ncid)
+
+       CALL nf95_inq_varid(ncid, 'wlen', varid)
+       CALL nf95_gw_var(ncid, varid, wlen)
+
+       CALL nf95_inq_varid(ncid, 'time', varid)
+       CALL nf95_gw_var(ncid, varid, time)
+
+       IF (NSW.NE.size(wlen)) THEN 
+         PRINT *,'read_rsun_rrtm NSW <> wlen = ',NSW, size(wlen)
+         CALL abort_physic('read_rsun_rrtm','size of SSI is different from NSW',1)
+       ENDIF
+
+       IF (size(time).NE.year_len) THEN 
+         PRINT *,'read_rsun_rrtm time <> year_len = ', size(time), year_len
+         CALL abort_physic('read_rsun_rrtm','time dim should be the number of days in year',1)
+       ENDIF
+
+       CALL nf95_inq_varid(ncid, 'ssi_frac', varid)
+       ncerr = nf90_get_var(ncid, varid, SSI_FRAC)
+
+       CALL nf95_inq_varid(ncid, 'tsi', varid)
+       ncerr = nf90_get_var(ncid, varid, TSI)
+
+       CALL nf95_close(ncid)
+
+       DO nbday=1, year_len
+         IF (ABS(SUM(SSI_FRAC(:,nbday))-1.).GT.1.e-6) THEN 
+           PRINT *,'somme SSI_FRAC=', SUM(SSI_FRAC(:,nbday))
+           CALL abort_physic('read_rsun_rrtm','somme SSI_FRAC <> 1',1)
+         ENDIF
+       ENDDO
+     
+    ENDIF ! is_mpi_root .AND. is_omp_root
+
+!$OMP BARRIER
+    CALL bcast(SSI_FRAC)
+    CALL bcast(TSI)
+
+    ENDIF
+
+!--only read at beginning of month
+    IF (debut.OR.day_cur.NE.day_pre) THEN
+
+!--keep memory of previous month
+      day_pre=day_cur
+
+!--copy 
+      RSUN(:)=SSI_FRAC(:,day_cur)
+      solaire=TSI(day_cur)
+
+      print *,'READ_RSUN_RRTM day=', day_cur,' solaire=', solaire, ' RSUN=', RSUN(1:NSW)
+
+    ENDIF !--fin allocation
+
+END SUBROUTINE read_rsun_rrtm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90	(revision 3330)
@@ -0,0 +1,332 @@
+! $Id$
+!
+SUBROUTINE readaerosol_optic_rrtm(debut, aerosol_couple,  &
+     new_aod, flag_aerosol, itap, rjourvrai, &
+     pdtphys, pplay, paprs, t_seri, rhcl, presnivs, &
+     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
+  !
+
+  USE dimphy
+  USE aero_mod
+  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_phy
+
+  IMPLICIT NONE
+  include "clesphys.h"
+  include "YOMCST.h"
+
+
+  ! Input arguments
+  !****************************************************************************************
+  LOGICAL, INTENT(IN)                      :: debut
+  LOGICAL, INTENT(IN)                      :: aerosol_couple
+  LOGICAL, INTENT(IN)                      :: new_aod
+  INTEGER, INTENT(IN)                      :: flag_aerosol
+  INTEGER, INTENT(IN)                      :: itap
+  REAL, INTENT(IN)                         :: rjourvrai
+  REAL, INTENT(IN)                         :: pdtphys
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: pplay
+  REAL, DIMENSION(klon,klev+1), INTENT(IN) :: paprs
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: t_seri
+  REAL, DIMENSION(klon,klev), INTENT(IN)   :: rhcl   ! humidite relative ciel clair
+  REAL, DIMENSION(klev), INTENT(IN)        :: presnivs
+  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
+  REAL, DIMENSION(klon,klev,2,NSW), INTENT(OUT) :: tau_aero    ! Aerosol optical thickness
+  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_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)   :: 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
+  REAL, DIMENSION(klon,klev)   :: pomsol_pi
+  REAL, DIMENSION(klon,klev)   :: pomins_pi
+  REAL, DIMENSION(klon,klev)   :: cidust_pi
+  REAL, DIMENSION(klon,klev)   :: sscoarse_pi
+  REAL, DIMENSION(klon,klev)   :: sssupco_pi
+  REAL, DIMENSION(klon,klev)   :: ssacu_pi
+  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  
+
+  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
+
+  !--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
+     !
+     do i=1,nbtr
+        select case(trim(solsym(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(:,:) + ssacu(:,:)
+  mass_solu_aero_pi(:,:) = sulfacc_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + nitracc_pi(:,:) + ssacu_pi(:,:) 
+
+  !****************************************************************************************
+  ! 2) Calculate optical properties for the aerosols
+  !
+  !****************************************************************************************
+  DO k = 1, klev
+     DO i = 1, klon
+        pdel(i,k) = paprs(i,k) - paprs (i,k+1)
+     END DO
+  END DO
+
+!--new aerosol properties
+  ! aeropt_6bands for rrtm
+  CALL aeropt_6bands_rrtm( &
+       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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90	(revision 3330)
@@ -0,0 +1,239 @@
+!
+! $Id: readaerosolstrato1_rrtm.F90 2526 2016-05-26 22:13:40Z oboucher $
+!
+subroutine readaerosolstrato1_rrtm(debut)
+
+    use netcdf95, only: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
+                        nf95_inq_varid, nf95_open
+    use netcdf, only: nf90_get_var, nf90_noerr, nf90_nowrite
+
+    USE phys_cal_mod, ONLY : mth_cur
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, grid2dTo1d_glo
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
+    USE mod_phys_lmdz_para 
+    USE phys_state_var_mod
+    USE phys_local_var_mod
+    USE aero_mod
+    USE dimphy
+    USE YOERAD   , ONLY : NLW
+
+    implicit none
+
+    include "YOMCST.h"
+
+! Variable input
+    logical debut
+
+! Variables locales
+    integer n_lat   ! number of latitudes in the input data
+    integer n_lon   ! number of longitudes in the input data
+    integer n_lev   ! number of levels in the input data
+    integer n_month ! number of months in the input data
+    real, pointer:: latitude(:)
+    real, pointer:: longitude(:)
+    real, pointer:: time(:)
+    real, pointer:: lev(:)
+    integer k, band, wave, i
+    integer, save :: mth_pre
+
+    real, allocatable, dimension(:,:), save :: tau_aer_strat
+!$OMP THREADPRIVATE(tau_aer_strat)
+
+! Champs reconstitues
+    real, allocatable:: tauaerstrat(:, :, :, :)
+    real, allocatable:: tauaerstrat_mois(:, :, :)
+    real, allocatable:: tauaerstrat_mois_glo(:, :)
+
+    real, allocatable:: sum_tau_aer_strat(:)
+
+! For NetCDF:
+    integer ncid_in  ! IDs for input files
+    integer varid, ncerr
+
+! Stratospheric aerosols optical properties
+! 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_sw) :: 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 (not normalised by the 550 nm ext coefficient
+    real :: alpha_lw_strat_wave(nwave_lw)
+    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))
+
+!--we only read monthly strat aerosol data
+    IF (debut.OR.mth_cur.NE.mth_pre) THEN
+
+!--only root reads the data
+    IF (is_mpi_root.AND.is_omp_root) THEN
+
+    IF (nbands_sw_rrtm.NE.6) THEN 
+        print *,'nbands_sw_rrtm doit etre egal a 6 dans readaerosolstrat_rrtm'
+        STOP
+    ENDIF
+
+    CALL nf95_open("taustrat.nc", nf90_nowrite, ncid_in)
+
+    CALL nf95_inq_varid(ncid_in, "LEV", varid)
+    CALL nf95_gw_var(ncid_in, varid, lev)
+    n_lev = size(lev)
+    IF (n_lev.NE.klev) THEN 
+       print *,'Le nombre de niveaux n est pas egal a klev'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "LAT", varid)
+    CALL nf95_gw_var(ncid_in, varid, latitude)
+    n_lat = size(latitude)
+    print *, 'LAT aerosol strato=', n_lat, latitude
+    IF (n_lat.NE.nbp_lat) THEN 
+       print *,'Le nombre de lat n est pas egal a nbp_lat'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "LON", varid)
+    CALL nf95_gw_var(ncid_in, varid, longitude)
+    n_lon = size(longitude)
+    print *, 'LON aerosol strato=', n_lon, longitude
+    IF (n_lon.NE.nbp_lon) THEN 
+       print *,'Le nombre de lon n est pas egal a nbp_lon'
+       STOP
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "TIME", varid)
+    CALL nf95_gw_var(ncid_in, varid, time)
+    n_month = size(time)
+    print *, 'TIME aerosol strato=', n_month, time
+    IF (n_month.NE.12) THEN 
+       print *,'Le nombre de month n est pas egal a 12'
+       STOP
+    ENDIF
+
+    ALLOCATE(tauaerstrat(n_lon, n_lat, n_lev, n_month))
+    ALLOCATE(tauaerstrat_mois(n_lon, n_lat, n_lev))
+    ALLOCATE(tauaerstrat_mois_glo(klon_glo, n_lev))
+
+!--reading stratospheric AOD at 550 nm
+    CALL nf95_inq_varid(ncid_in, "TAUSTRAT", varid)
+    ncerr = nf90_get_var(ncid_in, varid, tauaerstrat)
+    print *,'code erreur readaerosolstrato=', ncerr, varid
+
+    CALL nf95_close(ncid_in)
+
+!---select the correct month
+    IF (mth_cur.LT.1.OR.mth_cur.GT.12) THEN
+      print *,'probleme avec le mois dans readaerosolstrat =', mth_cur
+    ENDIF
+    tauaerstrat_mois(:,:,:) = tauaerstrat(:,:,:,mth_cur)
+
+!---reduce to a klon_glo grid 
+    CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo)
+
+    ENDIF !--is_mpi_root and is_omp_root
+
+!$OMP BARRIER
+
+!--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.AND.is_omp_root) THEN
+!
+    DEALLOCATE(tauaerstrat)
+    DEALLOCATE(tauaerstrat_mois)
+    DEALLOCATE(tauaerstrat_mois_glo)
+!
+    ENDIF !--is_mpi_root and is_omp_root
+
+!$OMP BARRIER
+
+    ENDIF !--debut ou nouveau mois
+
+!--total vertical aod at the 5 SW wavelengths
+    DO wave=1, nwave_sw
+    DO k=1, klev
+      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_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 
+
+!--total vertical aod at the 1 LW wavelength
+    DO wave=1, nwave_lw
+    DO k=1, klev
+      tausum_aero(:,nwave_sw+wave,id_STRAT_phy)=tausum_aero(:,nwave_sw+wave,id_STRAT_phy)+ &
+         tau_aer_strat(:,k)*alpha_lw_strat_wave(wave)/alpha_sw_strat_wave(2)
+    ENDDO
+    ENDDO
+
+    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
+
+!--default SSA value if there is no aerosol
+!--to avoid 0 values that seems to cause some problem to RRTM
+    WHERE (tau_aero_sw_rrtm.LT.1.e-14)
+      piz_aero_sw_rrtm = 1.0
+    ENDWHERE
+
+!--in principle this should not be necessary 
+!--as these variables have min values already but just in case
+!--put 1e-15 min value to both SW and LW AOD
+    tau_aero_sw_rrtm = MAX(tau_aero_sw_rrtm,1.e-15)
+    tau_aero_lw_rrtm = MAX(tau_aero_lw_rrtm,1.e-15)
+
+end subroutine readaerosolstrato1_rrtm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90	(revision 3330)
@@ -0,0 +1,345 @@
+!
+! $Id: readaerosolstrato2_rrtm.F90 2526 2016-05-26 22:13:40Z oboucher $
+!
+subroutine readaerosolstrato2_rrtm(debut)
+
+    use netcdf95, only: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
+                        nf95_inq_varid, nf95_open
+    use netcdf, only: nf90_get_var, nf90_noerr, nf90_nowrite
+
+    USE phys_cal_mod, ONLY : mth_cur
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, grid2dTo1d_glo
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
+    USE mod_phys_lmdz_para 
+    USE phys_state_var_mod
+    USE phys_local_var_mod
+    USE aero_mod
+    USE dimphy
+    USE YOERAD   , ONLY : NLW
+
+    implicit none
+
+    include "YOMCST.h"
+    INCLUDE "clesphys.h"
+
+    CHARACTER (len = 80) :: abort_message
+    CHARACTER (LEN=20) :: modname = 'readaerosolstrato2'
+
+! Variable input
+    logical, intent(in) ::  debut
+
+! Variables locales
+    integer n_lat   ! number of latitudes in the input data
+    integer n_lon   ! number of longitudes
+    integer n_lev   ! number of levels in the input data
+    integer n_month ! number of months in the input data
+    integer n_wav   ! number of wavelengths in the input data
+    real, pointer:: latitude(:)
+    real, pointer:: longitude(:)
+    real, pointer:: time(:)
+    real, pointer:: lev(:)
+    real, pointer:: wav(:)
+    integer i,k,wave,band
+    integer, save :: mth_pre
+
+    real, allocatable, dimension(:,:,:), save :: tau_aer_strat
+    real, allocatable, dimension(:,:,:), save :: piz_aer_strat
+    real, allocatable, dimension(:,:,:), save :: cg_aer_strat
+    real, allocatable, dimension(:,:,:), save :: taulw_aer_strat
+!$OMP THREADPRIVATE(tau_aer_strat,piz_aer_strat,cg_aer_strat,taulw_aer_strat)
+
+! Champs reconstitues
+    real, allocatable:: tauaerstrat(:, :, :, :)
+    real, allocatable:: pizaerstrat(:, :, :, :)
+    real, allocatable:: cgaerstrat(:, :, :, :)
+    real, allocatable:: taulwaerstrat(:, :, :, :)
+
+    real, allocatable:: tauaerstrat_mois(:, :, :, :)
+    real, allocatable:: pizaerstrat_mois(:, :, :, :)
+    real, allocatable:: cgaerstrat_mois(:, :, :, :)
+    real, allocatable:: taulwaerstrat_mois(:, :, :, :)
+
+    real, allocatable:: tauaerstrat_mois_glo(:, :, :)
+    real, allocatable:: pizaerstrat_mois_glo(:, :, :)
+    real, allocatable:: cgaerstrat_mois_glo(:, :, :)
+    real, allocatable:: taulwaerstrat_mois_glo(:, :, :)
+
+! For NetCDF:
+    integer ncid_in  ! IDs for input files
+    integer varid, ncerr
+
+!--------------------------------------------------------
+
+    IF (.not.ALLOCATED(tau_aer_strat)) ALLOCATE(tau_aer_strat(klon,klev,NSW))
+    IF (.not.ALLOCATED(piz_aer_strat)) ALLOCATE(piz_aer_strat(klon,klev,NSW))
+    IF (.not.ALLOCATED(cg_aer_strat))  ALLOCATE(cg_aer_strat(klon,klev,NSW))
+
+    IF (.not.ALLOCATED(taulw_aer_strat)) ALLOCATE(taulw_aer_strat(klon,klev,NLW))
+
+!--we only read monthly strat aerosol data
+    IF (debut.OR.mth_cur.NE.mth_pre) THEN
+
+!--only root reads the data
+    IF (is_mpi_root.AND.is_omp_root) THEN
+
+!--check mth_cur
+    IF (mth_cur.LT.1.OR.mth_cur.GT.12) THEN
+      print *,'probleme avec le mois dans readaerosolstrat =', mth_cur
+    ENDIF
+
+!--initialize n_lon as input data is 2D (lat-alt) only
+    n_lon = nbp_lon
+
+!--Starts with SW optical properties
+
+    CALL nf95_open("tauswstrat.2D.nc", nf90_nowrite, ncid_in)
+
+    CALL nf95_inq_varid(ncid_in, "LEV", varid)
+    CALL nf95_gw_var(ncid_in, varid, lev)
+    n_lev = size(lev)
+    IF (n_lev.NE.klev) THEN 
+       abort_message='Le nombre de niveaux n est pas egal a klev'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "LAT", varid)
+    CALL nf95_gw_var(ncid_in, varid, latitude)
+    n_lat = size(latitude)
+    IF (n_lat.NE.nbp_lat) THEN 
+       print *, 'latitude=', n_lat, nbp_lat
+       abort_message='Le nombre de lat n est pas egal a nbp_lat'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "TIME", varid)
+    CALL nf95_gw_var(ncid_in, varid, time)
+    n_month = size(time)
+    IF (n_month.NE.12) THEN 
+       abort_message='Le nombre de month n est pas egal a 12'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "WAV", varid)
+    CALL nf95_gw_var(ncid_in, varid, wav)
+    n_wav = size(wav)
+    print *, 'WAV aerosol strato=', n_wav, wav
+    IF (n_wav.NE.NSW) THEN 
+       abort_message='Le nombre de wav n est pas egal a NSW'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    ALLOCATE(tauaerstrat(n_lat, n_lev, n_wav, n_month))
+    ALLOCATE(pizaerstrat(n_lat, n_lev, n_wav, n_month))
+    ALLOCATE(cgaerstrat(n_lat, n_lev, n_wav, n_month))
+
+    ALLOCATE(tauaerstrat_mois(n_lon, n_lat, n_lev, n_wav))
+    ALLOCATE(pizaerstrat_mois(n_lon, n_lat, n_lev, n_wav))
+    ALLOCATE(cgaerstrat_mois(n_lon, n_lat, n_lev, n_wav))
+
+    ALLOCATE(tauaerstrat_mois_glo(klon_glo, n_lev, n_wav))
+    ALLOCATE(pizaerstrat_mois_glo(klon_glo, n_lev, n_wav))
+    ALLOCATE(cgaerstrat_mois_glo(klon_glo, n_lev, n_wav))
+
+!--reading stratospheric aerosol tau per layer
+    CALL nf95_inq_varid(ncid_in, "TAU_SUN", varid)
+    ncerr = nf90_get_var(ncid_in, varid, tauaerstrat)
+    print *,'code erreur readaerosolstrato=', ncerr, varid
+
+!--reading stratospheric aerosol omega per layer
+    CALL nf95_inq_varid(ncid_in, "OME_SUN", varid)
+    ncerr = nf90_get_var(ncid_in, varid, pizaerstrat)
+    print *,'code erreur readaerosolstrato=', ncerr, varid
+
+!--reading stratospheric aerosol g per layer
+    CALL nf95_inq_varid(ncid_in, "GGG_SUN", varid)
+    ncerr = nf90_get_var(ncid_in, varid, cgaerstrat)
+    print *,'code erreur readaerosolstrato sw=', ncerr, varid
+
+    CALL nf95_close(ncid_in)
+
+!--select the correct month
+!--and copy into 1st longitude
+    tauaerstrat_mois(1,:,:,:) = tauaerstrat(:,:,:,mth_cur)
+    pizaerstrat_mois(1,:,:,:) = pizaerstrat(:,:,:,mth_cur)
+    cgaerstrat_mois(1,:,:,:)  = cgaerstrat(:,:,:,mth_cur)
+
+!--copy longitudes
+    DO i=2, n_lon
+     tauaerstrat_mois(i,:,:,:) = tauaerstrat_mois(1,:,:,:)
+     pizaerstrat_mois(i,:,:,:) = pizaerstrat_mois(1,:,:,:)
+      cgaerstrat_mois(i,:,:,:)  = cgaerstrat_mois(1,:,:,:)
+    ENDDO
+
+!---reduce to a klon_glo grid 
+    DO band=1, NSW
+      CALL grid2dTo1d_glo(tauaerstrat_mois(:,:,:,band),tauaerstrat_mois_glo(:,:,band))
+      CALL grid2dTo1d_glo(pizaerstrat_mois(:,:,:,band),pizaerstrat_mois_glo(:,:,band))
+      CALL grid2dTo1d_glo(cgaerstrat_mois(:,:,:,band),cgaerstrat_mois_glo(:,:,band))
+    ENDDO
+
+!--Now LW optical properties
+!
+    CALL nf95_open("taulwstrat.2D.nc", nf90_nowrite, ncid_in)
+
+    CALL nf95_inq_varid(ncid_in, "LEV", varid)
+    CALL nf95_gw_var(ncid_in, varid, lev)
+    n_lev = size(lev)
+    IF (n_lev.NE.klev) THEN 
+       abort_message='Le nombre de niveaux n est pas egal a klev'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "LAT", varid)
+    CALL nf95_gw_var(ncid_in, varid, latitude)
+    n_lat = size(latitude)
+    IF (n_lat.NE.nbp_lat) THEN 
+       abort_message='Le nombre de lat n est pas egal a nbp_lat'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "TIME", varid)
+    CALL nf95_gw_var(ncid_in, varid, time)
+    n_month = size(time)
+    IF (n_month.NE.12) THEN 
+       abort_message='Le nombre de month n est pas egal a 12'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    CALL nf95_inq_varid(ncid_in, "WAV", varid)
+    CALL nf95_gw_var(ncid_in, varid, wav)
+    n_wav = size(wav)
+    print *, 'WAV aerosol strato=', n_wav, wav
+    IF (n_wav.NE.NLW) THEN 
+       abort_message='Le nombre de wav n est pas egal a NLW'
+       CALL abort_physic(modname,abort_message,1)
+    ENDIF
+
+    ALLOCATE(taulwaerstrat(n_lat, n_lev, n_wav, n_month))
+    ALLOCATE(taulwaerstrat_mois(n_lon, n_lat, n_lev, n_wav))
+    ALLOCATE(taulwaerstrat_mois_glo(klon_glo, n_lev, n_wav))
+
+!--reading stratospheric aerosol lw tau per layer
+    CALL nf95_inq_varid(ncid_in, "TAU_EAR", varid)
+    ncerr = nf90_get_var(ncid_in, varid, taulwaerstrat)
+    print *,'code erreur readaerosolstrato lw=', ncerr, varid
+
+    CALL nf95_close(ncid_in)
+
+!--select the correct month
+!--and copy into 1st longitude
+    taulwaerstrat_mois(1,:,:,:) = taulwaerstrat(:,:,:,mth_cur)
+!--copy longitudes
+    DO i=2, n_lon
+      taulwaerstrat_mois(i,:,:,:) = taulwaerstrat_mois(1,:,:,:)
+    ENDDO
+
+!---reduce to a klon_glo grid 
+    DO band=1, NLW
+      CALL grid2dTo1d_glo(taulwaerstrat_mois(:,:,:,band),taulwaerstrat_mois_glo(:,:,band))
+    ENDDO
+
+    ENDIF !--is_mpi_root and is_omp_root
+
+!$OMP BARRIER
+
+!--keep memory of previous month
+    mth_pre=mth_cur
+
+!--scatter on all proc
+    CALL scatter(tauaerstrat_mois_glo,tau_aer_strat)
+    CALL scatter(pizaerstrat_mois_glo,piz_aer_strat)
+    CALL scatter(cgaerstrat_mois_glo,cg_aer_strat)
+    CALL scatter(taulwaerstrat_mois_glo,taulw_aer_strat)
+
+    IF (is_mpi_root.AND.is_omp_root) THEN
+!
+    DEALLOCATE(tauaerstrat, pizaerstrat, cgaerstrat)
+    DEALLOCATE(tauaerstrat_mois, pizaerstrat_mois, cgaerstrat_mois)
+    DEALLOCATE(tauaerstrat_mois_glo,pizaerstrat_mois_glo,cgaerstrat_mois_glo)
+
+    DEALLOCATE(taulwaerstrat,taulwaerstrat_mois,taulwaerstrat_mois_glo)
+!
+    ENDIF !--is_mpi_root and is_omp_root
+
+!$OMP BARRIER
+
+    ENDIF !--debut ou nouveau mois
+
+!--total vertical aod at the 5 SW wavelengths
+!--for now use band 3 AOD into all 5 wavelengths
+!--it is only a reasonable approximation for 550 nm (wave=2)
+    band=3
+    DO i=1, klon
+    DO k=1, klev
+      IF (stratomask(i,k).GT.0.999999) THEN
+        DO wave=1, nwave_sw
+          tausum_aero(i,wave,id_STRAT_phy)=tausum_aero(i,wave,id_STRAT_phy)+tau_aer_strat(i,k,band)
+        ENDDO
+      ENDIF
+    ENDDO
+    ENDDO
+
+!--weighted average for cg, piz and tau, adding strat aerosols on top of tropospheric ones
+    DO band=1, NSW
+    WHERE (stratomask.GT.0.999999)
+!--anthropogenic aerosols bands 1 to NSW 
+    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_aer_strat(:,:,band)*piz_aer_strat(:,:,band)*tau_aer_strat(:,:,band) ) /              &
+                                MAX( piz_aero_sw_rrtm(:,:,2,band)*tau_aero_sw_rrtm(:,:,2,band) +                             &
+                                     piz_aer_strat(:,:,band)*tau_aer_strat(:,:,band), 1.e-15 )
+    piz_aero_sw_rrtm(:,:,2,band) = ( piz_aero_sw_rrtm(:,:,2,band)*tau_aero_sw_rrtm(:,:,2,band) +                             &
+                                     piz_aer_strat(:,:,band)*tau_aer_strat(:,:,band) ) /                                     &
+                                MAX( tau_aero_sw_rrtm(:,:,2,band) + tau_aer_strat(:,:,band), 1.e-15 )
+    tau_aero_sw_rrtm(:,:,2,band)  = tau_aero_sw_rrtm(:,:,2,band) + tau_aer_strat(:,:,band)
+!--natural aerosols bands 1 to NSW
+    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_aer_strat(:,:,band)*piz_aer_strat(:,:,band)*tau_aer_strat(:,:,band) ) /              &
+                                MAX( piz_aero_sw_rrtm(:,:,1,band)*tau_aero_sw_rrtm(:,:,1,band) +                             &
+                                     piz_aer_strat(:,:,band)*tau_aer_strat(:,:,band), 1.e-15 )
+    piz_aero_sw_rrtm(:,:,1,band) = ( piz_aero_sw_rrtm(:,:,1,band)*tau_aero_sw_rrtm(:,:,1,band) +                             &
+                                     piz_aer_strat(:,:,band)*tau_aer_strat(:,:,band) ) /                                     &
+                                MAX( tau_aero_sw_rrtm(:,:,1,band) + tau_aer_strat(:,:,band), 1.e-15 )
+    tau_aero_sw_rrtm(:,:,1,band)  = tau_aero_sw_rrtm(:,:,1,band) + tau_aer_strat(:,:,band)
+!--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)
+    ENDWHERE
+    ENDDO
+
+!--total vertical aod at 10 um
+!--this is approximated from band 7 of RRTM
+    band=7
+    DO i=1, klon
+    DO k=1, klev
+      IF (stratomask(i,k).GT.0.999999) THEN
+        DO wave=1, nwave_lw
+          tausum_aero(i,nwave_sw+wave,id_STRAT_phy)=tausum_aero(i,nwave_sw+wave,id_STRAT_phy)+taulw_aer_strat(i,k,band)
+        ENDDO
+      ENDIF
+    ENDDO
+    ENDDO
+
+    DO band=1, NLW
+    WHERE (stratomask.GT.0.999999)
+    tau_aero_lw_rrtm(:,:,2,band)  = tau_aero_lw_rrtm(:,:,2,band) + taulw_aer_strat(:,:,band)
+    tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,1,band) + taulw_aer_strat(:,:,band)
+!--no stratospheric aerosols in index 1 for these tests
+!    tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,1,band) 
+    ENDWHERE
+    ENDDO
+
+!--default SSA value if there is no aerosol
+!--to avoid 0 values that seems to cause some problem to RRTM
+    WHERE (tau_aero_sw_rrtm.LT.1.e-14)
+      piz_aero_sw_rrtm = 1.0
+    ENDWHERE
+
+!--in principle this should not be necessary 
+!--as these variables have min values already but just in case
+!--put 1e-15 min value to both SW and LW AOD
+    tau_aero_sw_rrtm = MAX(tau_aero_sw_rrtm,1.e-15)
+    tau_aero_lw_rrtm = MAX(tau_aero_lw_rrtm,1.e-15)
+
+end subroutine readaerosolstrato2_rrtm
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/recmwf_aero.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/recmwf_aero.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/recmwf_aero.F90	(revision 3330)
@@ -0,0 +1,932 @@
+!
+! $Id$
+!
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE RECMWF_AERO (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,&
+!--OB
+ & PREF_LIQ_PI, PREF_ICE_PI,&
+!--fin
+ & PEMTD , PEMTU , PTRSO,&
+ & PTH   , PCTRSO, PCEMTR, PTRSOD,&
+ & PLWFC, PLWFT, PSWFC, PSWFT, PSFSWDIR, PSFSWDIF,&
+ & PFSDNN, PFSDNV,&  
+ & PPIZA_TOT,PCGA_TOT,PTAU_TOT, & 
+!--OB
+ & PPIZA_NAT,PCGA_NAT,PTAU_NAT, & 
+!--fin OB 
+!--C.Kleinschmitt
+ & PTAU_LW_TOT, PTAU_LW_NAT, & 
+!--end
+ & PFLUX,PFLUC,&
+ & PFSDN ,PFSUP , PFSCDN , PFSCUP,&
+!--OB diagnostics
+ & PTOPSWADAERO,PSOLSWADAERO,&
+ & PTOPSWAD0AERO,PSOLSWAD0AERO,&
+ & PTOPSWAIAERO,PSOLSWAIAERO,&
+ & PTOPSWCFAERO,PSOLSWCFAERO,&
+!--LW diagnostics CK
+ & PTOPLWADAERO,PSOLLWADAERO,&
+ & PTOPLWAD0AERO,PSOLLWAD0AERO,&
+ & PTOPLWAIAERO,PSOLLWAIAERO,&
+!..end
+ & ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat)
+!--fin
+
+!**** *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_TOT  : (KPROMA,KLEV,NSW); Single scattering albedo of total aerosol
+! PCGA_TOT   : (KPROMA,KLEV,NSW); Assymetry factor for total aerosol
+! PTAU_TOT: (KPROMA,KLEV,NSW)   ; Optical depth of total aerosol
+! PREF_LIQ (KPROMA,KLEV)        ; Liquid droplet radius (um) - present-day
+! PREF_ICE (KPROMA,KLEV)        ; Ice crystal radius (um) - present-day
+!--OB
+! PREF_LIQ_PI (KPROMA,KLEV)     ; Liquid droplet radius (um) - pre-industrial 
+! PREF_ICE_PI (KPROMA,KLEV)     ; Ice crystal radius (um) - pre-industrial 
+! ok_ade---input-L- apply the Aerosol Direct Effect or not?
+! ok_aie---input-L- apply the Aerosol Indirect Effect or not?
+! flag_aerosol-input-I- aerosol flag from 0 to 6
+! flag_aerosol_strat-input-I- use stratospheric aerosols flag (T/F)
+! PPIZA_NAT  : (KPROMA,KLEV,NSW); Single scattering albedo of natural aerosol
+! 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
+
+!     ==== 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)
+!     Olivier Boucher: added LMD radiation diagnostics 2014-03
+
+!-----------------------------------------------------------------------
+
+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 : NLW, NAER, RCCNLND  ,RCCNSEA  
+USE YOERAD   , ONLY : NAER, RCCNLND  ,RCCNSEA  
+USE YOERDU   , ONLY : REPSCQ
+USE YOMGEM   , ONLY : NGPTOT
+USE YOERDI   , ONLY : RRAE   ,REPCLC    ,REPH2O
+USE YOMARPHY , ONLY : LRDUST 
+USE phys_output_mod, ONLY : swaero_diag
+
+!-----------------------------------------------------------------------
+
+!*       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_TOT(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_TOT(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_TOT(KPROMA,KLEV,NSW)
+!--OB
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_NAT(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_NAT(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_NAT(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)                  :: PPIZA_ZERO(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)                  :: PCGA_ZERO(KPROMA,KLEV,NSW)
+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)
+!--OB
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_LIQ_PI(KPROMA,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE_PI(KPROMA,KLEV)
+LOGICAL, INTENT(in)  :: ok_ade, ok_aie         ! switches whether to use aerosol direct (indirect) effects or not
+INTEGER, INTENT(in)  :: flag_aerosol           ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
+LOGICAL, INTENT(in)  :: flag_aerosol_strat     ! use stratospheric aerosols
+REAL(KIND=JPRB)   ,INTENT(out)   :: PTOPSWADAERO(KPROMA), PSOLSWADAERO(KPROMA)       ! Aerosol direct forcing at TOA and surface
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPSWAD0AERO(KPROMA), PSOLSWAD0AERO(KPROMA)     ! Aerosol direct forcing at TOA and surface
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPSWAIAERO(KPROMA), PSOLSWAIAERO(KPROMA)       ! ditto, indirect
+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) 
+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
+
+!---aerosol radiative diagnostics
+! Key to define the aerosol effect acting on climate
+! OB: AEROSOLFEEDBACK_ACTIVE is now a LOGICAL
+! TRUE: fluxes use natural and/or anthropogenic aerosols according to ok_ade and ok_aie, DEFAULT
+! FALSE: fluxes use no aerosols (case 1) 
+! to be used only for maintaining bit reproducibility with aerosol diagnostics activated
+LOGICAL :: AEROSOLFEEDBACK_ACTIVE = .TRUE.
+
+!OB - Fluxes including aerosol effects
+!              |        direct effect
+!ind effect    | no aerosol  NATural  TOTal
+!standard      |   5
+!natural (PI)  |               1       3     
+!total   (PD)  |               2       4   
+! so we need which case when ?
+! if flag_aerosol is on
+! ok_ade and ok_aie         = 4-2, 4-3 and 4 to proceed
+! ok_ade and not ok_aie     = 3-1 and 3 to proceed
+! not ok_ade and ok_aie     = 2-1 and 2 to proceed
+! not ok_ade and not ok_aie = 1 to proceed
+! therefore the cases have the following corresponding switches
+! 1 = not ok_ade and not ok_aie OR not ok_ade and ok_aie and swaero_diag OR ok_ade and not ok_aie and swaero_diag
+! 2 = not ok_ade and ok_aie OR ok_aie and ok_ade and swaero_diag
+! 3 = ok_ade and not ok_aie OR ok_aie and ok_ade and swaero_diag
+! 4 = ok_ade and ok_aie
+! 5 = no aerosol feedback wanted or no aerosol at all 
+! if they are called in this order then the correct call is used to proceed
+
+REAL(KIND=JPRB) ::  ZFSUP_AERO(KPROMA,KLEV+1,5)
+REAL(KIND=JPRB) ::  ZFSDN_AERO(KPROMA,KLEV+1,5)
+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"
+
+IF (LHOOK) CALL DR_HOOK('RECMWF_AERO',0,ZHOOK_HANDLE)
+IBEG=KST
+IEND=KEND
+
+!*       1.    PREPARATORY WORK
+!              ----------------
+!--OB
+!        1.0    INITIALIZATIONS
+!               --------------
+
+ZFSUP_AERO (:,:,:)=0.
+ZFSDN_AERO (:,:,:)=0.
+ZFSUP0_AERO(:,:,:)=0.
+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
+
+
+!*       1.1    LOCAL CONSTANTS
+!                ---------------
+
+ZRII0=RII0
+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   
+ ENDDO   
+
+!*         4.1     CALL TO ACTUAL RADIATION SCHEME
+!
+!----now we make multiple calls to the radiation according to which 
+!----aerosol flags are on
+
+IF (flag_aerosol .GT. 0 .OR. flag_aerosol_strat) THEN
+
+!--Case 1
+IF ( ( .not. ok_ade .AND. .not. ok_aie ) .OR.             & 
+   & ( .not. ok_ade .AND. ok_aie .AND. swaero_diag ) .OR. & 
+   & ( ok_ade .AND. .not. ok_aie .AND. swaero_diag ) ) THEN
+
+! natural aerosols for direct and indirect effect 
+! PI cloud optical properties
+! use PREF_LIQ_PI and PREF_ICE_PI
+! use NAT aerosol optical properties
+! store fluxes in index 1
+
+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_PI, PREF_ICE_PI,&
+ & ZEMIT , ZFCT   , ZFLT    , ZFCS    , ZFLS  ,&
+ & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
+ & PSFSWDIF,PFSDNN, PFSDNV  ,&  
+ & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PTAU_LW_NAT,PFLUX,PFLUC,&
+ & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+
+!* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
+ZFSUP0_AERO(:,:,1) = PFSCUP(:,:)
+ZFSDN0_AERO(:,:,1) = PFSCDN(:,:)
+
+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 
+
+!--Case 2
+IF ( ( .not. ok_ade .AND. ok_aie ) .OR. & 
+   & ( ok_ade .AND. ok_aie .AND. swaero_diag ) ) THEN
+
+! natural aerosols for direct indirect effect 
+! use NAT aerosol optical properties 
+! PD cloud optical properties
+! use PREF_LIQ and PREF_ICE
+! store fluxes in index 2
+
+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_NAT,PCGA_NAT,PTAU_NAT,PTAU_LW_NAT,PFLUX,PFLUC,&
+ & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+
+!* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
+ZFSUP0_AERO(:,:,2) = PFSCUP(:,:)
+ZFSDN0_AERO(:,:,2) = PFSCDN(:,:)
+
+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      
+
+!--Case 3
+IF ( ( ok_ade .AND. .not. ok_aie ) .OR. &
+   & ( ok_ade .AND. ok_aie .AND. swaero_diag ) ) THEN
+
+! direct effect of total aerosol activated
+! TOT aerosols for direct effect
+! PI cloud optical properties
+! use PREF_LIQ_PI and PREF_ICE_PI
+! STORE fluxes in index 3
+ 
+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_PI, PREF_ICE_PI,&
+ & ZEMIT , ZFCT   , ZFLT    , ZFCS    , ZFLS  ,&
+ & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
+ & PSFSWDIF,PFSDNN, PFSDNV  ,&  
+ & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PTAU_LW_TOT,PFLUX,PFLUC,&
+ & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+
+!* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
+ZFSUP0_AERO(:,:,3) = PFSCUP(:,:)
+ZFSDN0_AERO(:,:,3) = PFSCDN(:,:)
+
+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
+
+!--Case 4
+IF (ok_ade .and. ok_aie) THEN
+
+! total aerosols for direct indirect effect 
+! use TOT aerosol optical properties 
+! PD cloud optical properties
+! use PREF_LIQ and PREF_ICE
+! store fluxes in index 4 
+
+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_TOT,PCGA_TOT,PTAU_TOT,PTAU_LW_TOT,PFLUX,PFLUC,&
+ & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+
+!* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
+ZFSUP0_AERO(:,:,4) = PFSCUP(:,:)
+ZFSDN0_AERO(:,:,4) = PFSCDN(:,:)
+
+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
+
+ENDIF !--if flag_aerosol GT 0 OR flag_aerosol_strat
+
+! case with no aerosols at all is also computed IF ACTIVEFEEDBACK_ACTIVE is false 
+!IF (swaero_diag .OR. .not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 ) THEN    
+IF (.not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 ) THEN    
+
+! ZERO aerosol effect
+! ZERO aerosol optical depth
+! STANDARD cloud optical properties
+! STORE fluxes in index 5
+
+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 ,&
+!--this needs to be changed to fixed cloud optical properties
+ & PREF_LIQ_PI, PREF_ICE_PI,&
+ & ZEMIT , ZFCT   , ZFLT    , ZFCS    , ZFLS  ,&
+ & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
+ & PSFSWDIF,PFSDNN, PFSDNV  ,&  
+ & LRDUST,PPIZA_ZERO,PCGA_ZERO,PTAU_ZERO, PTAU_LW_ZERO,PFLUX,PFLUC,&
+ & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+
+!* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
+ZFSUP0_AERO(:,:,5) = PFSCUP(:,:)
+ZFSDN0_AERO(:,:,5) = PFSCDN(:,:)
+
+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
+
+!*         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
+
+!*  8.0 DIAGNOSTICS
+!---Now we copy back the correct fields to proceed to the next timestep
+
+IF  ( AEROSOLFEEDBACK_ACTIVE .AND. (flag_aerosol .GT. 0 .OR. flag_aerosol_strat) ) THEN
+
+  IF ( ok_ade .and. ok_aie  ) THEN
+    PFSUP(:,:) =    ZFSUP_AERO(:,:,4)
+    PFSDN(:,:) =    ZFSDN_AERO(:,:,4)
+    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
+
+  IF ( ok_ade .and. (.not. ok_aie) )  THEN
+    PFSUP(:,:) =    ZFSUP_AERO(:,:,3)
+    PFSDN(:,:) =    ZFSDN_AERO(:,:,3)
+    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
+
+  IF ( (.not. ok_ade) .and. ok_aie  )  THEN
+    PFSUP(:,:) =    ZFSUP_AERO(:,:,2)
+    PFSDN(:,:) =    ZFSDN_AERO(:,:,2)
+    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
+
+  IF ((.not. ok_ade) .and. (.not. ok_aie)) THEN
+    PFSUP(:,:) =    ZFSUP_AERO(:,:,1)
+    PFSDN(:,:) =    ZFSDN_AERO(:,:,1)
+    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
+
+! The following allows to compute the forcing diagostics without
+! letting the aerosol forcing act on the meteorology
+! SEE logic above
+
+ELSE  !--not AEROSOLFEEDBACK_ACTIVE
+
+    PFSUP(:,:) =    ZFSUP_AERO(:,:,5)
+    PFSDN(:,:) =    ZFSDN_AERO(:,:,5)
+    PFSCUP(:,:) =   ZFSUP0_AERO(:,:,5)
+    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
+
+!OB- HERE CHECK WITH MP IF BOTTOM AND TOP INDICES ARE OK !!!!!!!!!!!!!!!!!!
+! net anthropogenic forcing direct and 1st indirect effect diagnostics
+! 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 -> done by CK (2014-05-23)
+
+IF (flag_aerosol .GT. 0 .OR. flag_aerosol_strat) THEN
+
+IF (ok_ade.AND.ok_aie) THEN
+
+! direct anthropogenic forcing
+     PSOLSWADAERO(:)  = (ZFSDN_AERO(:,1,4)      -ZFSUP_AERO(:,1,4))      -(ZFSDN_AERO(:,1,2)      -ZFSUP_AERO(:,1,2))
+     PTOPSWADAERO(:)  = (ZFSDN_AERO(:,KLEV+1,4) -ZFSUP_AERO(:,KLEV+1,4)) -(ZFSDN_AERO(:,KLEV+1,2) -ZFSUP_AERO(:,KLEV+1,2))
+     PSOLSWAD0AERO(:) = (ZFSDN0_AERO(:,1,4)     -ZFSUP0_AERO(:,1,4))     -(ZFSDN0_AERO(:,1,2)     -ZFSUP0_AERO(:,1,2))
+     PTOPSWAD0AERO(:) = (ZFSDN0_AERO(:,KLEV+1,4)-ZFSUP0_AERO(:,KLEV+1,4))-(ZFSDN0_AERO(:,KLEV+1,2)-ZFSUP0_AERO(:,KLEV+1,2))
+
+! indirect anthropogenic forcing
+     PSOLSWAIAERO(:) = (ZFSDN_AERO(:,1,4)     -ZFSUP_AERO(:,1,4))     -(ZFSDN_AERO(:,1,3)     -ZFSUP_AERO(:,1,3))
+     PTOPSWAIAERO(:) = (ZFSDN_AERO(:,KLEV+1,4)-ZFSUP_AERO(:,KLEV+1,4))-(ZFSDN_AERO(:,KLEV+1,3)-ZFSUP_AERO(:,KLEV+1,3))
+
+! Cloud radiative forcing with natural aerosol for direct effect 
+     PSOLSWCFAERO(:,1) = (ZFSDN_AERO(:,1,2)     -ZFSUP_AERO(:,1,2))     -(ZFSDN0_AERO(:,1,2)     -ZFSUP0_AERO(:,1,2))
+     PTOPSWCFAERO(:,1) = (ZFSDN_AERO(:,KLEV+1,2)-ZFSUP_AERO(:,KLEV+1,2))-(ZFSDN0_AERO(:,KLEV+1,2)-ZFSUP0_AERO(:,KLEV+1,2))
+! Cloud radiative forcing with anthropogenic aerosol for direct effect 
+     PSOLSWCFAERO(:,2) = (ZFSDN_AERO(:,1,4)     -ZFSUP_AERO(:,1,4))     -(ZFSDN0_AERO(:,1,4)     -ZFSUP0_AERO(:,1,4))
+     PTOPSWCFAERO(:,2) = (ZFSDN_AERO(:,KLEV+1,4)-ZFSUP_AERO(:,KLEV+1,4))-(ZFSDN0_AERO(:,KLEV+1,4)-ZFSUP0_AERO(:,KLEV+1,4))
+! Cloud radiative forcing with no direct effect at all 
+     PSOLSWCFAERO(:,3) = 0.0
+     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
+
+IF (ok_ade.AND..NOT.ok_aie) THEN
+
+! direct anthropogenic forcing
+     PSOLSWADAERO(:)  = (ZFSDN_AERO(:,1,3)      -ZFSUP_AERO(:,1,3))      -(ZFSDN_AERO(:,1,1)      -ZFSUP_AERO(:,1,1))
+     PTOPSWADAERO(:)  = (ZFSDN_AERO(:,KLEV+1,3) -ZFSUP_AERO(:,KLEV+1,3)) -(ZFSDN_AERO(:,KLEV+1,1) -ZFSUP_AERO(:,KLEV+1,1))
+     PSOLSWAD0AERO(:) = (ZFSDN0_AERO(:,1,3)     -ZFSUP0_AERO(:,1,3))     -(ZFSDN0_AERO(:,1,1)     -ZFSUP0_AERO(:,1,1))
+     PTOPSWAD0AERO(:) = (ZFSDN0_AERO(:,KLEV+1,3)-ZFSUP0_AERO(:,KLEV+1,3))-(ZFSDN0_AERO(:,KLEV+1,1)-ZFSUP0_AERO(:,KLEV+1,1))
+
+! indirect anthropogenic forcing
+     PSOLSWAIAERO(:) = 0.0
+     PTOPSWAIAERO(:) = 0.0 
+
+! Cloud radiative forcing with natural aerosol for direct effect 
+     PSOLSWCFAERO(:,1) = (ZFSDN_AERO(:,1,1)     -ZFSUP_AERO(:,1,1))     -(ZFSDN0_AERO(:,1,1)     -ZFSUP0_AERO(:,1,1))
+     PTOPSWCFAERO(:,1) = (ZFSDN_AERO(:,KLEV+1,1)-ZFSUP_AERO(:,KLEV+1,1))-(ZFSDN0_AERO(:,KLEV+1,1)-ZFSUP0_AERO(:,KLEV+1,1))
+! Cloud radiative forcing with anthropogenic aerosol for direct effect 
+     PSOLSWCFAERO(:,2) = (ZFSDN_AERO(:,1,3)     -ZFSUP_AERO(:,1,3))     -(ZFSDN0_AERO(:,1,3)     -ZFSUP0_AERO(:,1,3))
+     PTOPSWCFAERO(:,2) = (ZFSDN_AERO(:,KLEV+1,3)-ZFSUP_AERO(:,KLEV+1,3))-(ZFSDN0_AERO(:,KLEV+1,3)-ZFSUP0_AERO(:,KLEV+1,3))
+! Cloud radiative forcing with no direct effect at all 
+     PSOLSWCFAERO(:,3) = 0.0
+     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
+
+IF (.NOT.ok_ade.AND.ok_aie) THEN
+
+! direct anthropogenic forcing
+     PSOLSWADAERO(:)  = 0.0
+     PTOPSWADAERO(:)  = 0.0
+     PSOLSWAD0AERO(:) = 0.0
+     PTOPSWAD0AERO(:) = 0.0
+
+! indirect anthropogenic forcing
+     PSOLSWAIAERO(:) = (ZFSDN_AERO(:,1,2)     -ZFSUP_AERO(:,1,2))     -(ZFSDN_AERO(:,1,1)     -ZFSUP_AERO(:,1,1))
+     PTOPSWAIAERO(:) = (ZFSDN_AERO(:,KLEV+1,2)-ZFSUP_AERO(:,KLEV+1,2))-(ZFSDN_AERO(:,KLEV+1,1)-ZFSUP_AERO(:,KLEV+1,1))
+
+! Cloud radiative forcing with natural aerosol for direct effect 
+     PSOLSWCFAERO(:,1) = (ZFSDN_AERO(:,1,2)     -ZFSUP_AERO(:,1,2))     -(ZFSDN0_AERO(:,1,2)     -ZFSUP0_AERO(:,1,2))
+     PTOPSWCFAERO(:,1) = (ZFSDN_AERO(:,KLEV+1,2)-ZFSUP_AERO(:,KLEV+1,2))-(ZFSDN0_AERO(:,KLEV+1,2)-ZFSUP0_AERO(:,KLEV+1,2))
+! Cloud radiative forcing with anthropogenic aerosol for direct effect 
+     PSOLSWCFAERO(:,2) = 0.0
+     PTOPSWCFAERO(:,2) = 0.0
+! Cloud radiative forcing with no direct effect at all 
+     PSOLSWCFAERO(:,3) = 0.0
+     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
+
+IF (.NOT.ok_ade.AND..NOT.ok_aie) THEN
+
+! direct anthropogenic forcing
+     PSOLSWADAERO(:)  = 0.0
+     PTOPSWADAERO(:)  = 0.0
+     PSOLSWAD0AERO(:) = 0.0
+     PTOPSWAD0AERO(:) = 0.0
+
+! indirect anthropogenic forcing
+     PSOLSWAIAERO(:) = 0.0 
+     PTOPSWAIAERO(:) = 0.0
+
+! Cloud radiative forcing with natural aerosol for direct effect 
+     PSOLSWCFAERO(:,1) = (ZFSDN_AERO(:,1,1)     -ZFSUP_AERO(:,1,1))     -(ZFSDN0_AERO(:,1,1)     -ZFSUP0_AERO(:,1,1))
+     PTOPSWCFAERO(:,1) = (ZFSDN_AERO(:,KLEV+1,1)-ZFSUP_AERO(:,KLEV+1,1))-(ZFSDN0_AERO(:,KLEV+1,1)-ZFSUP0_AERO(:,KLEV+1,1))
+! Cloud radiative forcing with anthropogenic aerosol for direct effect 
+     PSOLSWCFAERO(:,2) = 0.0
+     PTOPSWCFAERO(:,2) = 0.0
+! Cloud radiative forcing with no direct effect at all 
+     PSOLSWCFAERO(:,3) = 0.0
+     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
+
+ENDIF
+
+!IF (swaero_diag .OR. .NOT. AEROSOLFEEDBACK_ACTIVE) THEN
+IF (.NOT. AEROSOLFEEDBACK_ACTIVE) THEN
+! Cloudforcing without aerosol at all
+     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
+
+IF (LHOOK) CALL DR_HOOK('RECMWF_AERO',1,ZHOOK_HANDLE)
+END SUBROUTINE RECMWF_AERO
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb1.F90	(revision 3330)
@@ -0,0 +1,100 @@
+!***************************************************************************
+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)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO1 , ONLY : KAO, KBO, SELFREFO, FORREFO, FRACREFAO,FRACREFBO
+USE YOERRTA1 , ONLY : KA , KB , SELFREF , FORREF , FRACREFA ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB1',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(1)
+  Z_SUMK = 0.0_JPRB
+  Z_SUMF1 = 0.0_JPRB
+  Z_SUMF2 = 0.0_JPRB
+  DO IPR = 1, NGN(IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK = Z_SUMK + FORREFO(IPRSM)*RWGT(IPRSM)
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FORREF(IGC) = Z_SUMK
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(1)
+
+  FREFA(IGC,1) = FRACREFA(IGC)
+  FREFB(IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB1',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb1.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb1.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb1.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB1
+END SUBROUTINE RRTM_CMBGB1
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb10.F90	(revision 3330)
@@ -0,0 +1,78 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB10
+!***************************************************************************
+
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+USE YOERRTA10, ONLY : KA      ,KB       ,FRACREFA    ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB10',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(10)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(9)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(10)
+
+  FREFA(NGS(9)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(9)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB10',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB10
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb10.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb10.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb10.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB10
+END SUBROUTINE RRTM_CMBGB10
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb11.F90	(revision 3330)
@@ -0,0 +1,92 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB11
+!***************************************************************************
+
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+USE YOERRTA11, ONLY : KA      ,KB      ,SELFREF     ,FRACREFA  ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB11',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(11)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(10)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+160)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(11)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(10)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+160)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(11)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(10)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+160)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(11)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(10)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(11)
+
+  FREFA(NGS(10)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(10)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB11',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB11
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb11.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb11.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb11.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB11
+END SUBROUTINE RRTM_CMBGB11
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb12.F90	(revision 3330)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB12
+!***************************************************************************
+
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB12',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(12)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(11)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+176)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(12)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(11)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+176)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(12)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(11)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB12',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB12
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb12.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb12.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb12.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB12
+END SUBROUTINE RRTM_CMBGB12
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb13.F90	(revision 3330)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB13
+!***************************************************************************
+
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB13',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+192)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB13',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB13
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb13.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb13.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb13.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB13
+END SUBROUTINE RRTM_CMBGB13
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb14.F90	(revision 3330)
@@ -0,0 +1,93 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB14
+!***************************************************************************
+
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA14, ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB14',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(14)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(13)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(14)
+
+  FREFA(NGS(13)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(13)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB14',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB14
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb14.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb14.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb14.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB14
+END SUBROUTINE RRTM_CMBGB14
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb15.F90	(revision 3330)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB15
+!***************************************************************************
+
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB15',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(15)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(14)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+224)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(15)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(14)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+224)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(15)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(14)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB15',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB15
+END SUBROUTINE RRTM_CMBGB15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb16.F90	(revision 3330)
@@ -0,0 +1,86 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB16
+!***************************************************************************
+
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB16',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(16)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(15)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+240)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(16)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(15)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+240)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(16)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(15)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB16',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB16
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb16.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb16.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb16.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB16
+END SUBROUTINE RRTM_CMBGB16
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb2.F90	(revision 3330)
@@ -0,0 +1,117 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB2
+!***************************************************************************
+
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO  
+USE YOERRTA2 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB   ,FORREF       
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB2',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(2)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(1)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+16)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(2)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(1)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+16)
+      ENDDO
+!               KBC(JT,JP,IGC) = SUMK
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,13
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(2)
+  Z_SUMK = 0.0_JPRB
+  Z_SUMF = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(1)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK = Z_SUMK + FORREFO(IPRSM)*RWGT(IPRSM+16)
+    Z_SUMF = Z_SUMF + FRACREFBO(IPRSM)
+  ENDDO
+
+  FORREF(IGC) = Z_SUMK
+  FRACREFB(IGC) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB2',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb2.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb2.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb2.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB2
+END SUBROUTINE RRTM_CMBGB2
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb3.F90	(revision 3330)
@@ -0,0 +1,137 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB3
+!***************************************************************************
+
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO  
+USE YOERRTA3 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB   ,FORREF    ,ABSN2OA   ,ABSN2OB  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK, Z_SUMK1, Z_SUMK2, Z_SUMK3
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB3',0,ZHOOK_HANDLE)
+DO JN = 1,10
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    Z_SUMK = 0.0_JPRB
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+32)
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JT)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+    FRACREFA(IGC,JT) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(3)
+  Z_SUMK1= 0.0_JPRB
+  Z_SUMK2= 0.0_JPRB
+  Z_SUMK3= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(2)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK1= Z_SUMK1+ FORREFO(IPRSM)*RWGT(IPRSM+32)
+    Z_SUMK2= Z_SUMK2+ ABSN2OAO(IPRSM)*RWGT(IPRSM+32)
+    Z_SUMK3= Z_SUMK3+ ABSN2OBO(IPRSM)*RWGT(IPRSM+32)
+  ENDDO
+
+  FORREF(IGC) = Z_SUMK1
+  ABSN2OA(IGC) = Z_SUMK2
+  ABSN2OB(IGC) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB3',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb3.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb3.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb3.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB3
+END SUBROUTINE RRTM_CMBGB3
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb4.F90	(revision 3330)
@@ -0,0 +1,128 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB4
+!***************************************************************************
+
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB4',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,6
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,6
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB4',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB4
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb4.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb4.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb4.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB4
+END SUBROUTINE RRTM_CMBGB4
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb5.F90	(revision 3330)
@@ -0,0 +1,142 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB5
+!***************************************************************************
+
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, CCL4O  
+USE YOERRTA5 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB , CCL4  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB5',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(5)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(4)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+64)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(5)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(4)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+64)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(5)
+  Z_SUMK = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(4)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK = Z_SUMK + CCL4O(IPRSM)*RWGT(IPRSM+64)
+  ENDDO
+
+  CCL4(IGC) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB5',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB5
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb5.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb5.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb5.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB5
+END SUBROUTINE RRTM_CMBGB5
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb6.F90	(revision 3330)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB6
+!***************************************************************************
+
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,&
+ & ABSCO2O ,CFC11ADJO,CFC12O  
+USE YOERRTA6 , ONLY : KA      ,SELFREF    ,FRACREFA   ,&
+ & ABSCO2  ,CFC11ADJ ,CFC12  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK, Z_SUMK1, Z_SUMK2, Z_SUMK3
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB6',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(6)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(5)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+80)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(6)
+  Z_SUMF = 0.0_JPRB
+  Z_SUMK1= 0.0_JPRB
+  Z_SUMK2= 0.0_JPRB
+  Z_SUMK3= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(5)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF = Z_SUMF + FRACREFAO(IPRSM)
+    Z_SUMK1= Z_SUMK1+ ABSCO2O(IPRSM)*RWGT(IPRSM+80)
+    Z_SUMK2= Z_SUMK2+ CFC11ADJO(IPRSM)*RWGT(IPRSM+80)
+    Z_SUMK3= Z_SUMK3+ CFC12O(IPRSM)*RWGT(IPRSM+80)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF
+  ABSCO2(IGC) = Z_SUMK1
+  CFC11ADJ(IGC) = Z_SUMK2
+  CFC12(IGC) = Z_SUMK3
+ENDDO
+
+DO IGC = 1,NGC(6)
+
+  FREFA(NGS(5)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(5)+IGC,1) = FRACREFA(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB6',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB6
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb6.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb6.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb6.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB6
+END SUBROUTINE RRTM_CMBGB6
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb7.F90	(revision 3330)
@@ -0,0 +1,121 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB7
+!***************************************************************************
+
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSCO2O  
+USE YOERRTA7 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB , ABSCO2  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB7',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(7)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(6)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+96)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(7)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(6)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+96)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(7)
+  Z_SUMF = 0.0_JPRB
+  Z_SUMK = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(6)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF = Z_SUMF + FRACREFBO(IPRSM)
+    Z_SUMK = Z_SUMK + ABSCO2O(IPRSM)*RWGT(IPRSM+96)
+  ENDDO
+
+  FRACREFB(IGC) = Z_SUMF
+  ABSCO2(IGC) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB7',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB7
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb7.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb7.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb7.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB7
+END SUBROUTINE RRTM_CMBGB7
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb8.F90	(revision 3330)
@@ -0,0 +1,105 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB8
+!***************************************************************************
+
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK, Z_SUMK1, Z_SUMK2, Z_SUMK3, Z_SUMK4, Z_SUMK5, Z_SUMK6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB8',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,7
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 7,59
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(8)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  Z_SUMK1= 0.0_JPRB
+  Z_SUMK2= 0.0_JPRB
+  Z_SUMK3= 0.0_JPRB
+  Z_SUMK4= 0.0_JPRB
+  Z_SUMK5= 0.0_JPRB
+  Z_SUMK6= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(7)+IGC)
+    IPRSM = IPRSM + 1
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+    Z_SUMK1= Z_SUMK1+ ABSCO2AO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK2= Z_SUMK2+ ABSCO2BO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK3= Z_SUMK3+ ABSN2OAO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK4= Z_SUMK4+ ABSN2OBO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK5= Z_SUMK5+ CFC12O(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK6= Z_SUMK6+ CFC22ADJO(IPRSM)*RWGT(IPRSM+112)
+  ENDDO
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+  ABSCO2A(IGC) = Z_SUMK1
+  ABSCO2B(IGC) = Z_SUMK2
+  ABSN2OA(IGC) = Z_SUMK3
+  ABSN2OB(IGC) = Z_SUMK4
+  CFC12(IGC) = Z_SUMK5
+  CFC22ADJ(IGC) = Z_SUMK6
+ENDDO
+
+DO IGC = 1,NGC(8)
+  FREFA(NGS(7)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(7)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB8',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB8
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb8.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb8.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb8.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB8
+END SUBROUTINE RRTM_CMBGB8
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb9.F90	(revision 3330)
@@ -0,0 +1,135 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB9
+!***************************************************************************
+
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSN2OO  
+USE YOERRTA9 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA  ,&
+ & FRACREFB , ABSN2O  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JND, JNDC, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB9',0,ZHOOK_HANDLE)
+DO JN = 1,11
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(9)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(8)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+128)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(9)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(8)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+128)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JN = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      JND = (JN-1)*16
+
+      Z_SUMK = Z_SUMK + ABSN2OO(JND+IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    JNDC = (JN-1)*NGC(9)
+
+    ABSN2O(JNDC+IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(9)
+  Z_SUMF = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(8)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF = Z_SUMF + FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFB(IGC) = Z_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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB9',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB9
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb9.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb9.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_cmbgb9.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB9
+END SUBROUTINE RRTM_CMBGB9
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90	(revision 3330)
@@ -0,0 +1,404 @@
+!
+! $Id$
+!
+!****************** SUBROUTINE RRTM_ECRT_140GP **************************
+
+SUBROUTINE RRTM_ECRT_140GP &
+ & ( K_IPLON, klon , klev, kcld,&
+ & paer , paph , pap,&
+ & pts  , pth  , pt,&
+ & P_ZEMIS, P_ZEMIW,&
+ & 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 )  
+
+!     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
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&
+ & JPINPX  
+USE YOERAD   , ONLY : NLW      ,NOVLP
+USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE YOESW    , ONLY : RAER
+
+!------------------------------Arguments--------------------------------
+
+IMPLICIT NONE
+
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_IPLON 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KCLD 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) ! Aerosol optical thickness
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) ! Interface pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) ! Layer pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) ! Surface temperature (K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) ! Interface temperatures (K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) ! Layer temperature (K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIS(KLON) ! Non-window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIW(KLON) ! Window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) ! H2O specific humidity (mmr)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 ! CO2 mass mixing ratio
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) ! O3 mass mixing ratio
+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
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUCLD(JPLAY,JPBAND) ! Spectral optical thickness
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_WKL(JPINPX,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TBOUND 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_NLAYERS 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SEMISS(JPBAND) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_IREFLECT 
+!      real rch4                       ! CH4 mass mixing ratio
+!      real rn2o                       ! N2O mass mixing ratio
+!      real rcfc11                     ! CFC11 mass mixing ratio
+!      real rcfc12                     ! CFC12 mass mixing ratio
+!- from AER
+!- from PROFILE             
+!- from SURFACE             
+REAL(KIND=JPRB) :: ztauaer(5)
+REAL(KIND=JPRB) :: zc1j(0:klev)               ! total cloud from top and level k
+REAL(KIND=JPRB) :: Z_AMD                  ! Effective molecular weight of dry air (g/mol)
+REAL(KIND=JPRB) :: Z_AMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: Z_AMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: Z_AMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: Z_AMN2O                ! Molecular weight of nitrous oxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMC11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL(KIND=JPRB) :: Z_AMC12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL(KIND=JPRB) :: Z_AVGDRO               ! Avogadro's number (molecules/mole)
+REAL(KIND=JPRB) :: Z_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 Z_AMD   /  28.970_JPRB    /
+data Z_AMW   /  18.0154_JPRB   /
+data Z_AMCO2 /  44.011_JPRB    /
+data Z_AMO   /  47.9982_JPRB   /
+data Z_AMCH4 /  16.043_JPRB    /
+data Z_AMN2O /  44.013_JPRB    /
+data Z_AMC11 / 137.3686_JPRB   /
+data Z_AMC12 / 120.9140_JPRB   /
+data Z_AVGDRO/ 6.02214E23_JPRB /
+data Z_GRAVIT/ 9.80665E02_JPRB /
+
+INTEGER(KIND=JPIM) :: IATM, IMOL, IXMAX, J1, J2, JAE, JB, JK, JL, I_L
+INTEGER(KIND=JPIM) :: I_NMOL, I_NXMOL
+
+REAL(KIND=JPRB) :: Z_AMM, ZCLDLY, ZCLEAR, ZCLOUD, ZEPSEC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+! ***
+
+! *** 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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',0,ZHOOK_HANDLE)
+K_IREFLECT=0
+I_NXMOL=2
+
+DO J1=1,35
+! IXINDX(J1)=0
+  DO J2=1,KLEV
+    P_WKL(J1,J2)=0.0_JPRB 
+  ENDDO
+ENDDO
+!IXINDX(2)=2
+!IXINDX(3)=3
+
+!     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....
+P_SEMISS(1)  = P_ZEMIS(K_IPLON)
+P_SEMISS(2)  = P_ZEMIS(K_IPLON)
+P_SEMISS(3)  = P_ZEMIS(K_IPLON)
+P_SEMISS(4)  = P_ZEMIS(K_IPLON)
+P_SEMISS(5)  = P_ZEMIS(K_IPLON)
+P_SEMISS(6)  = P_ZEMIW(K_IPLON)
+P_SEMISS(7)  = P_ZEMIW(K_IPLON)
+P_SEMISS(8)  = P_ZEMIW(K_IPLON)
+P_SEMISS(9)  = P_ZEMIS(K_IPLON)
+P_SEMISS(10) = P_ZEMIS(K_IPLON)
+P_SEMISS(11) = P_ZEMIS(K_IPLON)
+P_SEMISS(12) = P_ZEMIS(K_IPLON)
+P_SEMISS(13) = P_ZEMIS(K_IPLON)
+P_SEMISS(14) = P_ZEMIS(K_IPLON)
+P_SEMISS(15) = P_ZEMIS(K_IPLON)
+P_SEMISS(16) = P_ZEMIS(K_IPLON)
+
+!     Set surface temperature.  
+
+P_TBOUND = pts(K_IPLON)
+
+!     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.
+
+K_NLAYERS = klev
+I_NMOL = 6
+PZ(0) = paph(K_IPLON,klev+1)/100._JPRB
+P_TZ(0) = pth(K_IPLON,klev+1)
+DO I_L = 1, KLEV
+  PAVEL(I_L) = pap(K_IPLON,KLEV-I_L+1)/100._JPRB
+  P_TAVEL(I_L) = pt(K_IPLON,KLEV-I_L+1)
+  PZ(I_L) = paph(K_IPLON,KLEV-I_L+1)/100._JPRB
+  P_TZ(I_L) = pth(K_IPLON,KLEV-I_L+1)
+  P_WKL(1,I_L) = pq(K_IPLON,KLEV-I_L+1)*Z_AMD/Z_AMW
+  P_WKL(2,I_L) = pcco2*Z_AMD/Z_AMCO2
+  P_WKL(3,I_L) = pozn(K_IPLON,KLEV-I_L+1)*Z_AMD/Z_AMO
+  P_WKL(4,I_L) = rn2o*Z_AMD/Z_AMN2O
+  P_WKL(6,I_L) = rch4*Z_AMD/Z_AMCH4
+  Z_AMM = (1-P_WKL(1,I_L))*Z_AMD + P_WKL(1,I_L)*Z_AMW
+  P_COLDRY(I_L) = (PZ(I_L-1)-PZ(I_L))*1.E3_JPRB*Z_AVGDRO/(Z_GRAVIT*Z_AMM*(1+P_WKL(1,I_L)))
+ENDDO
+
+!- Fill RRTM aerosol arrays with operational ECMWF aerosols,
+!  do the mixing and distribute over the 16 spectral intervals
+
+DO I_L=1,KLEV
+  JK=KLEV-I_L+1
+!       DO JAE=1,5
+  JAE=1
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 1)=ZTAUAER(1)
+  P_TAUAERL(I_L, 2)=ZTAUAER(1)
+  JAE=2
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 3)=ZTAUAER(2)
+  P_TAUAERL(I_L, 4)=ZTAUAER(2)
+  P_TAUAERL(I_L, 5)=ZTAUAER(2)
+  JAE=3
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 6)=ZTAUAER(3)
+  P_TAUAERL(I_L, 8)=ZTAUAER(3)
+  P_TAUAERL(I_L, 9)=ZTAUAER(3)
+  JAE=4
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 7)=ZTAUAER(4)
+  JAE=5
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+!       END DO
+  P_TAUAERL(I_L,10)=ZTAUAER(5)
+  P_TAUAERL(I_L,11)=ZTAUAER(5)
+  P_TAUAERL(I_L,12)=ZTAUAER(5)
+  P_TAUAERL(I_L,13)=ZTAUAER(5)
+  P_TAUAERL(I_L,14)=ZTAUAER(5)
+  P_TAUAERL(I_L,15)=ZTAUAER(5)
+  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
+  DO J1=1,JPXSEC
+    P_WX(J1,J2)=0.0_JPRB
+  ENDDO
+ENDDO
+
+DO I_L = 1, KLEV
+!- Set cross section molecule amounts from ECRT; convert to vmr
+  P_WX(2,I_L) = rcfc11*Z_AMD/Z_AMC11
+  P_WX(3,I_L) = rcfc12*Z_AMD/Z_AMC12
+  P_WX(2,I_L) = P_COLDRY(I_L) * P_WX(2,I_L) * 1.E-20_JPRB
+  P_WX(3,I_L) = P_COLDRY(I_L) * P_WX(3,I_L) * 1.E-20_JPRB
+
+!- 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, I_NMOL
+    P_WKL(IMOL,I_L) = P_COLDRY(I_L) * P_WKL(IMOL,I_L)
+  ENDDO  
+  
+! DO IX = 1,JPXSEC
+! IF (IXINDX(IX)  /=  0) THEN
+!     WX(IXINDX(IX),L) = COLDRY(L) * WX(IX,L) * 1.E-20_JPRB
+! ENDIF
+! END DO  
+
+ENDDO
+
+!- Approximate treatment for various cloud overlaps
+ZCLEAR=1.0_JPRB
+ZCLOUD=0.0_JPRB
+ZC1J(0)=0.0_JPRB
+ZEPSEC=1.E-03_JPRB
+JL=K_IPLON
+
+!++MODIFCODE
+IF ((NOVLP == 1).OR.(NOVLP ==6).OR.(NOVLP ==8)) THEN
+!--MODIFCODE
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLEAR=ZCLEAR &
+       & *(1.0_JPRB-MAX( ZCLDLY , ZCLOUD ))&
+       & /(1.0_JPRB-MIN( ZCLOUD , 1.0_JPRB-ZEPSEC ))  
+      ZCLOUD = ZCLDLY
+      ZC1J(JK)= 1.0_JPRB - ZCLEAR
+    ELSE
+      ZCLDLY=0.0_JPRB
+      ZCLEAR=ZCLEAR &
+       & *(1.0_JPRB-MAX( ZCLDLY , ZCLOUD ))&
+       & /(1.0_JPRB-MIN( ZCLOUD , 1.0_JPRB-ZEPSEC ))  
+      ZCLOUD = ZCLDLY
+      ZC1J(JK)= 1.0_JPRB - ZCLEAR
+    ENDIF
+  ENDDO
+
+!++MODIFCODE
+ELSEIF ((NOVLP == 2).OR.(NOVLP ==7)) THEN
+!--MODIFCODE
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLOUD = MAX( ZCLDLY , ZCLOUD )
+      ZC1J(JK) = ZCLOUD
+    ELSE
+      ZCLDLY=0.0_JPRB
+      ZCLOUD = MAX( ZCLDLY , ZCLOUD )
+      ZC1J(JK) = ZCLOUD
+    ENDIF
+  ENDDO
+
+!++MODIFCODE
+ELSEIF ((NOVLP == 3).OR.(NOVLP ==5)) THEN
+!--MODIFCODE
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLEAR = ZCLEAR * (1.0_JPRB-ZCLDLY)
+      ZCLOUD = 1.0_JPRB - ZCLEAR
+      ZC1J(JK) = ZCLOUD
+    ELSE
+      ZCLDLY=0.0_JPRB
+      ZCLEAR = ZCLEAR * (1.0_JPRB-ZCLDLY)
+      ZCLOUD = 1.0_JPRB - ZCLEAR
+      ZC1J(JK) = ZCLOUD
+    ENDIF
+  ENDDO
+
+ELSEIF (NOVLP == 4) THEN
+
+ENDIF
+PTCLEAR=1.0_JPRB-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  >  1.0_JPRB-ZEPSEC) THEN
+  KCLD=0
+  DO I_L = 1, KLEV
+    P_CLDFRAC(I_L) = 0.0_JPRB
+  ENDDO
+  DO JB=1,JPBAND
+    DO I_L=1,KLEV
+      P_TAUCLD(I_L,JB) = 0.0_JPRB
+    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 I_L=1,KLEV
+    P_CLDFRAC(I_L) = pcldf(K_IPLON,I_L)
+  ENDDO
+  DO JB=1,JPBAND
+    DO I_L=1,KLEV
+      P_TAUCLD(I_L,JB) = ptaucld(K_IPLON,I_L,JB)
+    ENDDO
+  ENDDO
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_ECRT_140GP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h	(revision 3330)
@@ -0,0 +1,54 @@
+INTERFACE 
+SUBROUTINE RRTM_ECRT_140GP &
+ & ( K_IPLON, klon , klev, kcld,&
+ & paer , paph , pap,&
+ & pts  , pth  , pt,&
+ & P_ZEMIS, P_ZEMIW,&
+ & 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
+INTEGER(KIND=JPIM),INTENT(IN) :: K_IPLON
+INTEGER(KIND=JPIM),INTENT(OUT) :: KCLD
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+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)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUCLD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_WKL(JPINPX,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TBOUND
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_NLAYERS
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISS(JPBAND)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_IREFLECT
+END SUBROUTINE RRTM_ECRT_140GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.F90	(revision 3330)
@@ -0,0 +1,157 @@
+SUBROUTINE RRTM_GASABS1A_140GP (KLEV,P_ATR1,P_OD,P_TF1,P_COLDRY,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY    ,JPBAND   ,JPGPT   ,JPXSEC
+USE YOERRTAB , ONLY : TRANS    ,BPADE
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_ATR1(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_OD(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TF1(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)                  :: P_COLO2(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYLOW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+REAL(KIND=JPRB) :: Z_TAU   (JPGPT,JPLAY)
+
+INTEGER(KIND=JPIM) :: IPR, ITR, I_LAY
+
+REAL(KIND=JPRB) :: Z_ODEPTH, Z_SECANG, Z_TF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "rrtm_taumol1.intfb.h"
+#include "rrtm_taumol10.intfb.h"
+#include "rrtm_taumol11.intfb.h"
+#include "rrtm_taumol12.intfb.h"
+#include "rrtm_taumol13.intfb.h"
+#include "rrtm_taumol14.intfb.h"
+#include "rrtm_taumol15.intfb.h"
+#include "rrtm_taumol16.intfb.h"
+#include "rrtm_taumol2.intfb.h"
+#include "rrtm_taumol3.intfb.h"
+#include "rrtm_taumol4.intfb.h"
+#include "rrtm_taumol5.intfb.h"
+#include "rrtm_taumol6.intfb.h"
+#include "rrtm_taumol7.intfb.h"
+#include "rrtm_taumol8.intfb.h"
+#include "rrtm_taumol9.intfb.h"
+
+!- SECANG is equal to the secant of the diffusivity angle.
+IF (LHOOK) CALL DR_HOOK('RRTM_GASABS1A_140GP',0,ZHOOK_HANDLE)
+Z_SECANG = 1.66_JPRB
+
+CALL RRTM_TAUMOL1  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL2  (KLEV,Z_TAU,P_COLDRY,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL3  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL4  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL5  (KLEV,Z_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL6  (KLEV,Z_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL7  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLO3,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL8  (KLEV,Z_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLO3,P_COLN2O,P_CO2MULT,K_LAYSWTCH,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL9  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,P_COLCH4,K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL10 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,PFRAC)  
+CALL RRTM_TAUMOL11 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL12 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL13 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL14 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL15 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL16 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCH4,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!- Loop over g-channels.
+DO I_LAY = 1, KLEV
+  DO IPR = 1, JPGPT
+    Z_ODEPTH = Z_SECANG * Z_TAU(IPR,I_LAY)
+    P_OD(IPR,I_LAY) = Z_ODEPTH
+    Z_ODEPTH=0.5D0*(ABS(Z_ODEPTH)+Z_ODEPTH)
+
+!-- revised code to get the pre-computed transmission
+!          IF (ODEPTH.LE.0.) PRINT*, 'ODEPTH = ',ODEPTH
+!!  IF (ODEPTH <= _ZERO_)THEN
+!!    ATR1(IPR,LAY) = _ONE_ - TRANS(0)
+!!    TF1(IPR,LAY) = _ZERO_
+!!  ELSE
+
+    Z_TF = Z_ODEPTH/(BPADE+Z_ODEPTH)
+    ITR=INT(5.E+03_JPRB*Z_TF+0.5_JPRB)
+    IF (ITR.LT.0) ITR=0     ! MPL 12.12.08
+    P_ATR1(IPR,I_LAY) = 1.0_JPRB - TRANS(ITR)
+    P_TF1(IPR,I_LAY) = Z_TF
+
+!!  ENDIF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RRTM_GASABS1A_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_GASABS1A_140GP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.intfb.h	(revision 3330)
@@ -0,0 +1,39 @@
+INTERFACE
+SUBROUTINE RRTM_GASABS1A_140GP (KLEV,P_ATR1,P_OD,P_TF1,P_COLDRY,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_ATR1(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_OD(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TF1(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYSWTCH
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYLOW
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_GASABS1A_140GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_init_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_init_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_init_140gp.F90	(revision 3330)
@@ -0,0 +1,160 @@
+!***************************************************************************
+SUBROUTINE RRTM_INIT_140GP
+!***************************************************************************
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPGPT
+USE YOERRTWN , ONLY : NG       
+USE YOERRTFTR, ONLY : NGC      ,NGN      ,NGM     , WT
+! Output
+USE YOERRTBG2, ONLY : CORR1    ,CORR2
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: Z_WTSM(JPG)
+
+INTEGER(KIND=JPIM) :: I, IBND, IG, IGC, IGCSM, IND, IPR, IPRSM, IPT
+
+REAL(KIND=JPRB) :: Z_FP, Z_RTFP, Z_WTSUM
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "rrtm_kgb1.intfb.h"
+#include "rrtm_kgb10.intfb.h"
+#include "rrtm_kgb11.intfb.h"
+#include "rrtm_kgb12.intfb.h"
+#include "rrtm_kgb13.intfb.h"
+#include "rrtm_kgb14.intfb.h"
+#include "rrtm_kgb15.intfb.h"
+#include "rrtm_kgb16.intfb.h"
+#include "rrtm_kgb2.intfb.h"
+#include "rrtm_kgb3.intfb.h"
+#include "rrtm_kgb4.intfb.h"
+#include "rrtm_kgb5.intfb.h"
+#include "rrtm_kgb6.intfb.h"
+#include "rrtm_kgb7.intfb.h"
+#include "rrtm_kgb8.intfb.h"
+#include "rrtm_kgb9.intfb.h"
+
+#include "rrtm_cmbgb1.intfb.h"
+#include "rrtm_cmbgb10.intfb.h"
+#include "rrtm_cmbgb11.intfb.h"
+#include "rrtm_cmbgb12.intfb.h"
+#include "rrtm_cmbgb13.intfb.h"
+#include "rrtm_cmbgb14.intfb.h"
+#include "rrtm_cmbgb15.intfb.h"
+#include "rrtm_cmbgb16.intfb.h"
+#include "rrtm_cmbgb2.intfb.h"
+#include "rrtm_cmbgb3.intfb.h"
+#include "rrtm_cmbgb4.intfb.h"
+#include "rrtm_cmbgb5.intfb.h"
+#include "rrtm_cmbgb6.intfb.h"
+#include "rrtm_cmbgb7.intfb.h"
+#include "rrtm_cmbgb8.intfb.h"
+#include "rrtm_cmbgb9.intfb.h"
+
+IF (LHOOK) CALL DR_HOOK('RRTM_INIT_140GP',0,ZHOOK_HANDLE)
+
+! Read the absorption-related coefficients over the 16 x 16 g-points
+
+CALL RRTM_KGB1
+CALL RRTM_KGB2
+CALL RRTM_KGB3
+CALL RRTM_KGB4
+CALL RRTM_KGB5
+CALL RRTM_KGB6
+CALL RRTM_KGB7
+CALL RRTM_KGB8
+CALL RRTM_KGB9
+CALL RRTM_KGB10
+CALL RRTM_KGB11
+CALL RRTM_KGB12
+CALL RRTM_KGB13
+CALL RRTM_KGB14
+CALL RRTM_KGB15
+CALL RRTM_KGB16
+
+!  Calculate lookup tables for functions needed in routine TAUMOL (TAUGB2)
+
+CORR1(0) = 1.0_JPRB
+CORR1(200) = 1.0_JPRB
+CORR2(0) = 1.0_JPRB
+CORR2(200) = 1.0_JPRB
+DO I = 1,199
+  Z_FP = 0.005_JPRB*REAL(I)
+  Z_RTFP = SQRT(Z_FP)
+  CORR1(I) = Z_RTFP/Z_FP
+  CORR2(I) = (1.0_JPRB-Z_RTFP)/(1.0_JPRB-Z_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
+      Z_WTSUM = 0.0_JPRB
+      DO IPR = 1, NGN(IGCSM)
+        IPRSM = IPRSM + 1
+        Z_WTSUM = Z_WTSUM + WT(IPRSM)
+      ENDDO
+      Z_WTSM(IGC) = Z_WTSUM
+    ENDDO
+    DO IG = 1,NG(IBND)
+      IND = (IBND-1)*16 + IG
+      RWGT(IND) = WT(IG)/Z_WTSM(NGM(IND))
+    ENDDO
+  ELSE
+    DO IG = 1,NG(IBND)
+      IGCSM = IGCSM + 1
+      IND = (IBND-1)*16 + IG
+      RWGT(IND) = 1.0_JPRB
+    ENDDO
+  ENDIF
+ENDDO
+
+!  Initialize arrays for combined Planck fraction data.
+
+DO IPT = 1,13
+  DO IPR = 1, JPGPT
+    FREFA(IPR,IPT) = 0.0_JPRB
+    FREFADF(IPR,IPT) = 0.0_JPRB
+  ENDDO
+ENDDO
+DO IPT = 1,6
+  DO IPR = 1, JPGPT
+    FREFB(IPR,IPT) = 0.0_JPRB
+    FREFBDF(IPR,IPT) = 0.0_JPRB
+  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
+
+IF (LHOOK) CALL DR_HOOK('RRTM_INIT_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_INIT_140GP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_init_140gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_init_140gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_init_140gp.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_INIT_140GP
+END SUBROUTINE RRTM_INIT_140GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb1.F90	(revision 3330)
@@ -0,0 +1,2141 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO1 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
+ & FRACREFBO  ,FORREFO  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1',1,ZHOOK_HANDLE)
+
+!-----------------------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART1',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART2',0,ZHOOK_HANDLE)
+
+
+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 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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+!     -----------------------------------------------------------------
+END SUBROUTINE RRTM_KGB1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb1.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb1.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb1.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB1
+END SUBROUTINE RRTM_KGB1
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb10.F90	(revision 3330)
@@ -0,0 +1,2080 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART1',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+END SUBROUTINE RRTM_KGB10
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb10.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb10.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb10.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB10
+END SUBROUTINE RRTM_KGB10
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb11.F90	(revision 3330)
@@ -0,0 +1,2135 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART1',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+END SUBROUTINE RRTM_KGB11
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb11.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb11.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb11.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB11
+END SUBROUTINE RRTM_KGB11
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb12.F90	(revision 3330)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 0.009736757_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB12
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb12.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb12.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb12.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB12
+END SUBROUTINE RRTM_KGB12
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb13.F90	(revision 3330)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 16658.87_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB13
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb13.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb13.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb13.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB13
+END SUBROUTINE RRTM_KGB13
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb14.F90	(revision 3330)
@@ -0,0 +1,2135 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART1',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+END SUBROUTINE RRTM_KGB14
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb14.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb14.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb14.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB14
+END SUBROUTINE RRTM_KGB14
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb15.F90	(revision 3330)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 0.2883201_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB15
+END SUBROUTINE RRTM_KGB15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb16.F90	(revision 3330)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 830.411_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB16
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb16.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb16.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb16.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB16
+END SUBROUTINE RRTM_KGB16
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb2.F90	(revision 3330)
@@ -0,0 +1,2224 @@
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!OCL SCALAR
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO  
+USE YOERRTA2 , ONLY : REFPARAM
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',0,ZHOOK_HANDLE)
+
+
+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 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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+END SUBROUTINE RRTM_KGB2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb2.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb2.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb2.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB2
+END SUBROUTINE RRTM_KGB2
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb3.F90	(revision 3330)
@@ -0,0 +1,11371 @@
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+#ifdef VPP 
+!OPT SCALAR
+#endif
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO  
+USE YOERRTA3 , ONLY :    ETAREF    ,H2OREF     ,&
+ & N2OREF     ,CO2REF     ,STRRAT  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',0,ZHOOK_HANDLE)
+
+
+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( :) = (/&
+ & 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.9875_JPRB,1.0_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/)  
+
+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 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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART13',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART14',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART15',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART16',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART17',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART18',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART19',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART20',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART21',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART22',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART23',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART24',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART25',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART26',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART27',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART28',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART29',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART30',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART31',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART32',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART33',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART34',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART35',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART36',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART37',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART38',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+END SUBROUTINE RRTM_KGB3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb3.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb3.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb3.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB3
+END SUBROUTINE RRTM_KGB3
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb4.F90	(revision 3330)
@@ -0,0 +1,11307 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT1 = 850.577_JPRB
+STRRAT2 = 35.7416_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART13',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART14',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART15',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART16',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART17',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART18',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART19',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART20',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART21',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART22',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART23',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART24',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART25',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART26',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART27',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART28',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART29',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART30',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART31',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART32',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART33',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART34',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART35',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART36',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART37',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART38',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE RRTM_KGB4
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb4.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb4.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb4.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB4
+END SUBROUTINE RRTM_KGB4
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb5.F90	(revision 3330)
@@ -0,0 +1,11311 @@
+#ifdef VPP
+!OCL SCALAR
+#endif
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, CCL4O  
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',0,ZHOOK_HANDLE)
+
+
+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,  0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB     ,&
+ & 0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB      /)  
+
+STRRAT1 = 90.4894_JPRB
+STRRAT2 = 0.900502_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART13',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART14',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART15',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART16',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART17',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART18',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART19',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART20',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART21',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART22',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART23',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART24',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART25',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART26',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART27',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART28',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART29',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART30',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART31',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART32',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART33',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART34',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART35',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART36',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART37',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART38',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE RRTM_KGB5
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb5.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb5.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb5.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB5
+END SUBROUTINE RRTM_KGB5
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb6.F90	(revision 3330)
@@ -0,0 +1,571 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,CFC11ADJO ,&
+ & CFC12O   , ABSCO2O   
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART1',0,ZHOOK_HANDLE)
+
+
+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( :) = (/&
+ & 0.0_JPRB,      0.0_JPRB, 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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+END SUBROUTINE RRTM_KGB6
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb6.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb6.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb6.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB6
+END SUBROUTINE RRTM_KGB6
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb7.F90	(revision 3330)
@@ -0,0 +1,5011 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,ABSCO2O  
+USE YOERRTA7 , ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART1',0,ZHOOK_HANDLE)
+
+
+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 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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART12',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART13',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART14',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART15',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART16',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART17',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE RRTM_KGB7
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb7.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb7.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb7.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB7
+END SUBROUTINE RRTM_KGB7
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb8.F90	(revision 3330)
@@ -0,0 +1,2238 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO8 , ONLY : KAO     ,KBO       ,SELFREFO ,FRACREFAO ,&
+ & FRACREFBO, CFC12O  ,CFC22ADJO ,ABSCO2AO ,ABSCO2BO  ,&
+ & ABSN2OAO , ABSN2OBO  
+USE YOERRTA8 , ONLY : H2OREF  ,N2OREF    ,O3REF
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART1',0,ZHOOK_HANDLE)
+
+
+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, 0.0_JPRB/)  
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+
+END SUBROUTINE RRTM_KGB8
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb8.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb8.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb8.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB8
+END SUBROUTINE RRTM_KGB8
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb9.F90	(revision 3330)
@@ -0,0 +1,5043 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+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
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSN2OO  
+USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART1',0,ZHOOK_HANDLE)
+
+
+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( :) = (/&
+ & 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.96_JPRB,0.99_JPRB,1.0_JPRB/)  
+
+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,0.0_JPRB,0.0_JPRB,&
+ !     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,0.0_JPRB,&
+ !     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,0.0_JPRB/)  
+
+STRRAT = 21.6282_JPRB
+
+!     ------------------------------------------------------------------
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART2',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART3',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART4',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART5',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART6',0,ZHOOK_HANDLE)
+
+
+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/)  
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART7',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART8',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART9',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART10',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART11',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART12',0,ZHOOK_HANDLE)
+
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART13',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART14',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART15',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART16',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART17',0,ZHOOK_HANDLE)
+
+
+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/)  
+
+!     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/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE RRTM_KGB9
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb9.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb9.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_kgb9.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB9
+END SUBROUTINE RRTM_KGB9
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90	(revision 3330)
@@ -0,0 +1,275 @@
+!***************************************************************************
+!                                                                          *
+!                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,&
+ & P_ZEMIS , P_ZEMIW,&
+ & PQ    , PCCO2 , POZN,&
+ & PCLDF , PTAUCLD,&
+ & PTAU_LW,&
+ & 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
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+USE YOERAD    ,ONLY : NLW
+USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPGPT    ,JPLAY    ,&
+ & JPINPX  
+!------------------------------Arguments--------------------------------
+
+! Input arguments
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA ! First atmosphere index
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA ! Last atmosphere index
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) ! Aerosol optical thickness
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) ! Interface pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) ! Layer pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) ! Surface temperature (I_K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) ! Interface temperatures (I_K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) ! Layer temperature (I_K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIS(KLON) ! Non-window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIW(KLON) ! Window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) ! H2O specific humidity (mmr)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 ! CO2 mass mixing ratio
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) ! O3 mass mixing ratio
+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)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTCLEAR(KLON) ! clear-sky fraction of column
+INTEGER(KIND=JPIM) :: ICLDLYR(JPLAY)        ! Cloud indicator
+REAL(KIND=JPRB) :: Z_CLDFRAC(JPLAY)           ! Cloud fraction
+REAL(KIND=JPRB) :: Z_TAUCLD(JPLAY,JPBAND)     ! Spectral optical thickness
+
+REAL(KIND=JPRB) :: Z_ABSS1 (JPGPT*JPLAY)
+REAL(KIND=JPRB) :: Z_ATR1  (JPGPT,JPLAY)
+EQUIVALENCE (Z_ABSS1(1),Z_ATR1(1,1))
+
+REAL(KIND=JPRB) :: Z_OD    (JPGPT,JPLAY)
+
+REAL(KIND=JPRB) :: Z_TAUSF1(JPGPT*JPLAY)
+REAL(KIND=JPRB) :: Z_TF1   (JPGPT,JPLAY)
+EQUIVALENCE (Z_TAUSF1(1),Z_TF1(1,1))
+
+REAL(KIND=JPRB) :: Z_COLDRY(JPLAY)
+REAL(KIND=JPRB) :: Z_WKL(JPINPX,JPLAY)
+
+REAL(KIND=JPRB) :: Z_WX(JPXSEC,JPLAY)         ! Amount of trace gases
+
+REAL(KIND=JPRB) :: Z_CLFNET  (0:JPLAY)
+REAL(KIND=JPRB) :: Z_CLHTR   (0:JPLAY)
+REAL(KIND=JPRB) :: Z_FNET    (0:JPLAY)
+REAL(KIND=JPRB) :: Z_HTR     (0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTDFLUC(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTDFLUX(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTUFLUC(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTUFLUX(0:JPLAY)
+
+INTEGER(KIND=JPIM) :: i, icld, iplon, I_K
+INTEGER(KIND=JPIM) :: ISTART
+INTEGER(KIND=JPIM) :: IEND
+
+REAL(KIND=JPRB) :: Z_FLUXFAC, Z_HEATFAC, Z_PI, ZEPSEC, ZTCLEAR
+
+!- from AER
+REAL(KIND=JPRB) :: Z_TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL(KIND=JPRB) :: Z_FAC00(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC01(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC10(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC11(JPLAY)
+REAL(KIND=JPRB) :: Z_FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER(KIND=JPIM) :: JP(JPLAY)
+INTEGER(KIND=JPIM) :: JT(JPLAY)
+INTEGER(KIND=JPIM) :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL(KIND=JPRB) :: Z_ONEMINUS
+
+!- from PROFDATA             
+REAL(KIND=JPRB) :: Z_COLH2O(JPLAY)
+REAL(KIND=JPRB) :: Z_COLCO2(JPLAY)
+REAL(KIND=JPRB) :: Z_COLO3 (JPLAY)
+REAL(KIND=JPRB) :: Z_COLN2O(JPLAY)
+REAL(KIND=JPRB) :: Z_COLCH4(JPLAY)
+REAL(KIND=JPRB) :: Z_COLO2 (JPLAY)
+REAL(KIND=JPRB) :: Z_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM) :: I_LAYTROP
+INTEGER(KIND=JPIM) :: I_LAYSWTCH
+INTEGER(KIND=JPIM) :: I_LAYLOW
+
+!- from PROFILE             
+REAL(KIND=JPRB) :: Z_PAVEL(JPLAY)
+REAL(KIND=JPRB) :: Z_TAVEL(JPLAY)
+REAL(KIND=JPRB) :: Z_PZ(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TZ(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TBOUND
+INTEGER(KIND=JPIM) :: I_NLAYERS
+
+!- from SELF             
+REAL(KIND=JPRB) :: Z_SELFFAC(JPLAY)
+REAL(KIND=JPRB) :: Z_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: INDSELF(JPLAY)
+
+!- from SP             
+REAL(KIND=JPRB) :: Z_PFRAC(JPGPT,JPLAY)
+
+!- from SURFACE             
+REAL(KIND=JPRB) :: Z_SEMISS(JPBAND)
+REAL(KIND=JPRB) :: Z_SEMISLW
+INTEGER(KIND=JPIM) :: IREFLECT
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "rrtm_ecrt_140gp.intfb.h"
+#include "rrtm_gasabs1a_140gp.intfb.h"
+#include "rrtm_rtrn1a_140gp.intfb.h"
+#include "rrtm_setcoef_140gp.intfb.h"
+
+!     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)
+
+IF (LHOOK) CALL DR_HOOK('RRTM_RRTM_140GP',0,ZHOOK_HANDLE)
+ZEPSEC = 1.E-06_JPRB
+Z_ONEMINUS = 1.0_JPRB - ZEPSEC
+Z_PI = 2.0_JPRB*ASIN(1.0_JPRB)
+Z_FLUXFAC = Z_PI * 2.D4
+Z_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=1.0_JPRB
+
+  CALL RRTM_ECRT_140GP &
+   & ( iplon, klon , klev, icld,&
+   & paer , paph , pap,&
+   & pts  , pth  , pt,&
+   & P_ZEMIS, P_ZEMIW,&
+   & pq   , pcco2, pozn, pcldf, ptaucld, ztclear,&
+   & 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)  
+
+  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. 
+
+  CALL RRTM_SETCOEF_140GP (KLEV,Z_COLDRY,Z_WKL,&
+   & Z_FAC00,Z_FAC01,Z_FAC10,Z_FAC11,Z_FORFAC,JP,JT,JT1,&
+   & Z_COLH2O,Z_COLCO2,Z_COLO3,Z_COLN2O,Z_COLCH4,Z_COLO2,Z_CO2MULT,&
+   & I_LAYTROP,I_LAYSWTCH,I_LAYLOW,Z_PAVEL,Z_TAVEL,Z_SELFFAC,Z_SELFFRAC,INDSELF)  
+
+  CALL RRTM_GASABS1A_140GP (KLEV,Z_ATR1,Z_OD,Z_TF1,Z_COLDRY,Z_WX,&
+   & Z_TAUAERL,Z_FAC00,Z_FAC01,Z_FAC10,Z_FAC11,Z_FORFAC,JP,JT,JT1,Z_ONEMINUS,&
+   & Z_COLH2O,Z_COLCO2,Z_COLO3,Z_COLN2O,Z_COLCH4,Z_COLO2,Z_CO2MULT,&
+   & I_LAYTROP,I_LAYSWTCH,I_LAYLOW,Z_SELFFAC,Z_SELFFRAC,INDSELF,Z_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 I_K = 1, KLEV
+    IF (ICLD == 1.AND.Z_CLDFRAC(I_K) > ZEPSEC) THEN
+      ICLDLYR(I_K) = 1
+    ELSE
+      ICLDLYR(I_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.
+
+  CALL RRTM_RTRN1A_140GP (KLEV,ISTART,IEND,ICLDLYR,Z_CLDFRAC,Z_TAUCLD,Z_ABSS1,&
+   & Z_OD,Z_TAUSF1,Z_CLFNET,Z_CLHTR,Z_FNET,Z_HTR,Z_TOTDFLUC,Z_TOTDFLUX,Z_TOTUFLUC,Z_TOTUFLUX,&
+   & Z_TAVEL,Z_PZ,Z_TZ,Z_TBOUND,Z_PFRAC,Z_SEMISS,Z_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) = Z_SEMISLW
+  DO i = 0, KLEV
+    PFLUC(iplon,1,i+1) =  Z_TOTUFLUC(i)*Z_FLUXFAC
+    PFLUC(iplon,2,i+1) = -Z_TOTDFLUC(i)*Z_FLUXFAC
+    PFLUX(iplon,1,i+1) =  Z_TOTUFLUX(i)*Z_FLUXFAC
+    PFLUX(iplon,2,i+1) = -Z_TOTDFLUX(i)*Z_FLUXFAC
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_RRTM_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_RRTM_140GP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h	(revision 3330)
@@ -0,0 +1,42 @@
+INTERFACE
+SUBROUTINE RRTM_RRTM_140GP &
+ & ( KIDIA , KFDIA , KLON , KLEV,&
+ & PAER  , PAPH  , PAP,&
+ & PTS   , PTH   , PT,&
+ & P_ZEMIS , P_ZEMIW,&
+ & PQ    , PCCO2 , POZN,&
+ & PCLDF , PTAUCLD,&
+ & 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  
+!-NLW in clesphys now OB
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+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)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR(KLON)
+END SUBROUTINE RRTM_RRTM_140GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 3330)
@@ -0,0 +1,899 @@
+SUBROUTINE RRTM_RTRN1A_140GP (KLEV,K_ISTART,K_IEND,K_ICLDLYR,P_CLDFRAC,P_TAUCLD,P_ABSS1,&
+ & P_OD,P_TAUSF1,P_CLFNET,P_CLHTR,P_FNET,P_HTR,P_TOTDFLUC,P_TOTDFLUX,P_TOTUFLUC,P_TOTUFLUX,&
+ & P_TAVEL,PZ,P_TZ,P_TBOUND,PFRAC,P_SEMISS,P_SEMISLW,K_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.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPGPT   ,JPLAY
+USE YOERRTAB , ONLY : BPADE
+USE YOERRTWN , ONLY : TOTPLNK  ,DELWAVE
+USE YOERRTFTR, ONLY : NGB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_ISTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_IEND 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_ICLDLYR(JPLAY) ! Cloud indicator
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDFRAC(JPLAY) ! Cloud fraction
+REAL(KIND=JPRB)                  :: Z_CLDFRAC(JPLAY) ! Cloud fraction
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUCLD(JPLAY,JPBAND) ! Spectral optical thickness
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ABSS1(JPGPT*JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_OD(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUSF1(JPGPT*JPLAY) 
+REAL(KIND=JPRB)                  :: P_CLFNET(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_CLHTR(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FNET(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_HTR(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTDFLUC(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTDFLUX(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTUFLUC(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTUFLUX(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAVEL(JPLAY) 
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TBOUND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRAC(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SEMISS(JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SEMISLW 
+INTEGER(KIND=JPIM)               :: K_IREFLECT ! Argument NOT used
+!- from PROFILE             
+!- from SP             
+!- from SURFACE             
+INTEGER(KIND=JPIM) :: INDLAY(JPLAY),INDLEV(0:JPLAY)
+
+REAL(KIND=JPRB) :: Z_BBU1(JPGPT*JPLAY),Z_BBUTOT1(JPGPT*JPLAY)
+REAL(KIND=JPRB) :: Z_TLAYFRAC(JPLAY),Z_TLEVFRAC(0:JPLAY)
+REAL(KIND=JPRB) :: Z_BGLEV(JPGPT)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_PLVL(JPBAND+1,0:JPLAY),Z_PLAY(JPBAND+1,0:JPLAY),Z_WTNUM(3)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_ODCLDNW(JPGPT,JPLAY)
+REAL(KIND=JPRB) :: Z_SEMIS(JPGPT),Z_RADUEMIT(JPGPT)
+
+REAL(KIND=JPRB) :: Z_RADCLRU1(JPGPT) ,Z_RADCLRD1(JPGPT)
+REAL(KIND=JPRB) :: Z_RADLU1(JPGPT)   ,Z_RADLD1(JPGPT)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_TRNCLD(JPLAY,JPBAND+1)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_ABSCLDNW(JPGPT,JPLAY)
+REAL(KIND=JPRB) :: Z_ATOT1(JPGPT*JPLAY)
+
+REAL(KIND=JPRB) :: Z_SURFEMIS(JPBAND),Z_PLNKEMIT(JPBAND)
+
+! dimension of arrays required for cloud overlap calculations
+
+REAL(KIND=JPRB) :: Z_CLRRADU(jpgpt),Z_CLDRADU(jpgpt),Z_OLDCLD(jpgpt)
+REAL(KIND=JPRB) :: Z_OLDCLR(jpgpt),Z_RAD(jpgpt),Z_FACCLD1(jplay+1),Z_FACCLD2(jplay+1)
+REAL(KIND=JPRB) :: Z_FACCLR1(jplay+1),Z_FACCLR2(jplay+1)
+REAL(KIND=JPRB) :: Z_FACCMB1(jplay+1),Z_FACCMB2(jplay+1)
+REAL(KIND=JPRB) :: Z_FACCLD1D(0:jplay),Z_FACCLD2D(0:jplay),Z_FACCLR1D(0:jplay)
+REAL(KIND=JPRB) :: Z_FACCLR2D(0:jplay),Z_FACCMB1D(0:jplay),Z_FACCMB2D(0:jplay)
+REAL(KIND=JPRB) :: Z_CLRRADD(jpgpt),Z_CLDRADD(jpgpt)
+INTEGER(KIND=JPIM) :: 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)
+
+INTEGER(KIND=JPIM) :: IBAND, ICLDDN, IENT, INDBOUND, INDEX, IPR, I_LAY, I_LEV, I_NBI
+
+REAL(KIND=JPRB) :: Z_BBD, Z_BBDTOT, Z_BGLAY, Z_CLDSRC, Z_DBDTLAY, Z_DBDTLEV,&
+ & Z_DELBGDN, Z_DELBGUP, Z_DRAD1, Z_DRADCL1, Z_FACTOT1, &
+ & Z_FMAX, Z_FMIN, Z_GASSRC, Z_ODSM, Z_PLANKBND, Z_RADCLD, Z_RADD, Z_RADMOD, Z_RAT1, Z_RAT2, Z_SUMPL, &
+ & Z_SUMPLEM, Z_TBNDFRAC, Z_TRNS, Z_TTOT, Z_URAD1, Z_URADCL1, ZEXTAU  
+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
+!  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                 !  
+
+!  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
+
+!--------------------------------------------------------------------------
+
+! CORRECTION PROVISOIRE BUG POTENTIEL MPLFH
+! on initialise le niveau klev+1 de p_cldfrac, tableau surdimensionne
+! a 100 mais apparemment non initialise en klev+1
+Z_CLDFRAC(1:KLEV)=P_CLDFRAC(1:KLEV)
+Z_CLDFRAC(KLEV+1)=0.0_JPRB
+IF (LHOOK) CALL DR_HOOK('RRTM_RTRN1A_140GP',0,ZHOOK_HANDLE)
+Z_WTNUM(1)=0.5_JPRB
+Z_WTNUM(2)=0.0_JPRB
+Z_WTNUM(3)=0.0_JPRB
+
+DO I_LAY = 0, KLEV
+ENDDO
+!-start JJM_000511
+IF (P_TBOUND < 339._JPRB .AND. P_TBOUND >= 160._JPRB ) THEN
+  INDBOUND = P_TBOUND - 159._JPRB
+  Z_TBNDFRAC = P_TBOUND - INT(P_TBOUND)
+ELSEIF (P_TBOUND >= 339._JPRB ) THEN
+  INDBOUND = 180
+  Z_TBNDFRAC = P_TBOUND - 339._JPRB
+ELSEIF (P_TBOUND < 160._JPRB ) THEN
+  INDBOUND = 1
+  Z_TBNDFRAC = P_TBOUND - 160._JPRB
+ENDIF  
+!-end JJM_000511
+  
+DO I_LAY = 0, KLEV
+  P_TOTUFLUC(I_LAY) = 0.0_JPRB
+  P_TOTDFLUC(I_LAY) = 0.0_JPRB
+  P_TOTUFLUX(I_LAY) = 0.0_JPRB
+  P_TOTDFLUX(I_LAY) = 0.0_JPRB
+!-start JJM_000511
+  IF (P_TZ(I_LAY) < 339._JPRB .AND. P_TZ(I_LAY) >= 160._JPRB ) THEN
+    INDLEV(I_LAY) = P_TZ(I_LAY) - 159._JPRB
+    Z_TLEVFRAC(I_LAY) = P_TZ(I_LAY) - INT(P_TZ(I_LAY))
+  ELSEIF (P_TZ(I_LAY) >= 339._JPRB ) THEN
+    INDLEV(I_LAY) = 180
+    Z_TLEVFRAC(I_LAY) = P_TZ(I_LAY) - 339._JPRB
+  ELSEIF (P_TZ(I_LAY) < 160._JPRB ) THEN
+    INDLEV(I_LAY) = 1
+    Z_TLEVFRAC(I_LAY) = P_TZ(I_LAY) - 160._JPRB
+  ENDIF    
+!-end JJM_000511
+ENDDO
+
+!_start_jjm 991209
+DO I_LEV=0,KLEV
+  Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+  Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+  Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+  Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+  Z_FACCMB1(I_LEV+1) = 0.0_JPRB
+  Z_FACCMB2(I_LEV+1) = 0.0_JPRB
+  Z_FACCLD1D(I_LEV) = 0.0_JPRB
+  Z_FACCLD2D(I_LEV) = 0.0_JPRB
+  Z_FACCLR1D(I_LEV) = 0.0_JPRB
+  Z_FACCLR2D(I_LEV) = 0.0_JPRB
+  Z_FACCMB1D(I_LEV) = 0.0_JPRB
+  Z_FACCMB2D(I_LEV) = 0.0_JPRB
+ENDDO  
+
+Z_RAT1 = 0.0_JPRB
+Z_RAT2 = 0.0_JPRB
+
+!_end_jjm 991209
+
+Z_SUMPL   = 0.0_JPRB
+Z_SUMPLEM = 0.0_JPRB
+
+ISTCLD(1) = 1
+ISTCLDD(KLEV) = 1
+
+DO I_LEV = 1, KLEV
+!-- DS_000515
+!-start JJM_000511
+  IF (P_TAVEL(I_LEV) < 339._JPRB .AND. P_TAVEL(I_LEV) >= 160._JPRB ) THEN
+    INDLAY(I_LEV) = P_TAVEL(I_LEV) - 159._JPRB
+    Z_TLAYFRAC(I_LEV) = P_TAVEL(I_LEV) - INT(P_TAVEL(I_LEV))
+  ELSEIF (P_TAVEL(I_LEV) >= 339._JPRB ) THEN
+    INDLAY(I_LEV) = 180
+    Z_TLAYFRAC(I_LEV) = P_TAVEL(I_LEV) - 339._JPRB
+  ELSEIF (P_TAVEL(I_LEV) < 160._JPRB ) THEN
+    INDLAY(I_LEV) = 1
+    Z_TLAYFRAC(I_LEV) = P_TAVEL(I_LEV) - 160._JPRB
+  ENDIF  
+!-end JJM_000511
+ENDDO
+!-- DS_000515
+
+!-- DS_000515
+!OCL SCALAR
+
+DO I_LEV = 1, KLEV
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+
+!mji    
+    ISTCLD(I_LEV+1) = 0
+    IF (I_LEV  ==  KLEV) THEN
+      Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+      Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+!-- DS_000515      
+!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
+      Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+      IF (ISTCLD(I_LEV)  ==  1) THEN
+!mji        ISTCLD(LEV+1) = 0
+        Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+!mji        
+        Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+        IF (Z_CLDFRAC(I_LEV) < 1.0_JPRB) THEN
+          Z_FACCLR2(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))/&
+           & (1.0_JPRB-Z_CLDFRAC(I_LEV))  
+        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))
+!mji
+        IF (Z_CLDFRAC(I_LEV+1)  >  Z_FMAX) THEN
+          Z_FACCLR1(I_LEV+1) = Z_RAT2
+          Z_FACCLR2(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_FMAX)/(1.0_JPRB-Z_FMAX)
+!mji          
+        ELSEIF (Z_CLDFRAC(I_LEV+1) < Z_FMAX) THEN
+          Z_FACCLR1(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))/&
+           & (Z_CLDFRAC(I_LEV-1)-Z_CLDFRAC(I_LEV))  
+          Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+!mji
+        ELSE
+          Z_FACCLR1(I_LEV+1) = Z_RAT2  
+          Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLR1(I_LEV+1) > 0.0_JPRB .OR. Z_FACCLR2(I_LEV+1) > 0.0_JPRB) THEN
+        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
+      Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+      IF (ISTCLD(I_LEV)  ==  1) THEN
+!mji        ISTCLD(LEV+1) = 0
+        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))
+        IF (Z_CLDFRAC(I_LEV+1)  <=  Z_FMIN) THEN
+          Z_FACCLD1(I_LEV+1) = Z_RAT1
+          Z_FACCLD2(I_LEV+1) = (Z_FMIN-Z_CLDFRAC(I_LEV+1))/Z_FMIN
+        ELSE
+          Z_FACCLD1(I_LEV+1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV+1))/&
+           & (Z_CLDFRAC(I_LEV)-Z_FMIN)  
+          Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLD1(I_LEV+1) > 0.0_JPRB .OR. Z_FACCLD2(I_LEV+1) > 0.0_JPRB) THEN
+        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
+
+!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.and.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
+!-- DS_000515
+    ISTCLD(I_LEV+1) = 1
+  ENDIF
+ENDDO
+
+!_start_jjm 991209
+Z_RAT1 = 0.0_JPRB
+Z_RAT2 = 0.0_JPRB
+!_end_jjm 991209
+
+!-- DS_000515
+!OCL SCALAR
+
+DO I_LEV = KLEV, 1, -1
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+!mji
+    ISTCLDD(I_LEV-1) = 0  
+    IF (I_LEV  ==  1) THEN
+      Z_FACCLD1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLD2D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLR1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+      Z_FACCMB1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCMB2D(I_LEV-1) = 0.0_JPRB
+!mji      ISTCLDD(LEV-1) = _ZERO_
+    ELSEIF (Z_CLDFRAC(I_LEV-1)  >=  Z_CLDFRAC(I_LEV)) THEN
+      Z_FACCLD1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLD2D(I_LEV-1) = 0.0_JPRB
+      IF (ISTCLDD(I_LEV)  ==  1) THEN
+!mji        ISTCLDD(LEV-1) = 0
+        Z_FACCLR1D(I_LEV-1) = 0.0_JPRB
+        Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+        IF (Z_CLDFRAC(I_LEV) < 1.0_JPRB) THEN
+          Z_FACCLR2D(I_LEV-1) = (Z_CLDFRAC(I_LEV-1)-Z_CLDFRAC(I_LEV))/&
+           & (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))
+!mji
+        IF (Z_CLDFRAC(I_LEV-1)  >  Z_FMAX) THEN
+          Z_FACCLR1D(I_LEV-1) = Z_RAT2
+          Z_FACCLR2D(I_LEV-1) = (Z_CLDFRAC(I_LEV-1)-Z_FMAX)/(1.0_JPRB-Z_FMAX)
+!mji
+        ELSEIF (Z_CLDFRAC(I_LEV-1) < Z_FMAX) THEN
+          Z_FACCLR1D(I_LEV-1) = (Z_CLDFRAC(I_LEV-1)-Z_CLDFRAC(I_LEV))/&
+           & (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))  
+          Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+!mji
+        ELSE          
+          Z_FACCLR1D(I_LEV-1) = Z_RAT2
+          Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLR1D(I_LEV-1) > 0.0_JPRB .OR. Z_FACCLR2D(I_LEV-1) > 0.0_JPRB)THEN
+        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_FACCLR1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+      IF (ISTCLDD(I_LEV)  ==  1) THEN
+!mji        ISTCLDD(LEV-1) = 0
+        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))
+        IF (Z_CLDFRAC(I_LEV-1)  <=  Z_FMIN) THEN
+          Z_FACCLD1D(I_LEV-1) = Z_RAT1
+          Z_FACCLD2D(I_LEV-1) = (Z_FMIN-Z_CLDFRAC(I_LEV-1))/Z_FMIN
+        ELSE
+          Z_FACCLD1D(I_LEV-1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV-1))/&
+           & (Z_CLDFRAC(I_LEV)-Z_FMIN)  
+          Z_FACCLD2D(I_LEV-1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLD1D(I_LEV-1) > 0.0_JPRB .OR. Z_FACCLD2D(I_LEV-1) > 0.0_JPRB)THEN
+        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
+!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.and.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
+  ENDIF
+ENDDO
+
+!- Loop over frequency bands.
+
+DO IBAND = K_ISTART, K_IEND
+  Z_DBDTLEV = TOTPLNK(INDBOUND+1,IBAND)-TOTPLNK(INDBOUND,IBAND)
+  Z_PLANKBND = DELWAVE(IBAND) * (TOTPLNK(INDBOUND,IBAND) + Z_TBNDFRAC * Z_DBDTLEV)
+  Z_DBDTLEV = TOTPLNK(INDLEV(0)+1,IBAND) -TOTPLNK(INDLEV(0),IBAND)
+!-- DS_000515
+  Z_PLVL(IBAND,0) = DELWAVE(IBAND)&
+   & * (TOTPLNK(INDLEV(0),IBAND) + Z_TLEVFRAC(0)*Z_DBDTLEV)  
+
+  Z_SURFEMIS(IBAND) = P_SEMISS(IBAND)
+  Z_PLNKEMIT(IBAND) = Z_SURFEMIS(IBAND) * Z_PLANKBND
+  Z_SUMPLEM  = Z_SUMPLEM + Z_PLNKEMIT(IBAND)
+  Z_SUMPL    = Z_SUMPL   + Z_PLANKBND
+!--DS
+ENDDO
+!---
+
+!-- DS_000515
+DO I_LEV = 1, KLEV
+  DO IBAND = K_ISTART, K_IEND
+! print *,'RTRN1A: I_LEV JPLAY IBAND INDLAY',I_LEV,JPLAY,IBAND,INDLAY(I_LEV)
+!----              
+!- Calculate the integrated Planck functions for at the
+!  level and layer temperatures.
+!  Compute cloud transmittance for cloudy layers.
+    Z_DBDTLEV = TOTPLNK(INDLEV(I_LEV)+1,IBAND) - TOTPLNK(INDLEV(I_LEV),IBAND)
+    Z_DBDTLAY = TOTPLNK(INDLAY(I_LEV)+1,IBAND) - TOTPLNK(INDLAY(I_LEV),IBAND)
+!-- DS_000515
+    Z_PLAY(IBAND,I_LEV) = DELWAVE(IBAND)&
+     & *(TOTPLNK(INDLAY(I_LEV),IBAND)+Z_TLAYFRAC(I_LEV)*Z_DBDTLAY)  
+    Z_PLVL(IBAND,I_LEV) = DELWAVE(IBAND)&
+     & *(TOTPLNK(INDLEV(I_LEV),IBAND)+Z_TLEVFRAC(I_LEV)*Z_DBDTLEV)  
+    IF (K_ICLDLYR(I_LEV) > 0) THEN
+      ZEXTAU = MIN( P_TAUCLD(I_LEV,IBAND), 200._JPRB)
+      Z_TRNCLD(I_LEV,IBAND) = EXP( -ZEXTAU )
+    ENDIF
+!-- DS_000515
+  ENDDO
+
+ENDDO
+
+P_SEMISLW = Z_SUMPLEM / Z_SUMPL
+
+!--DS
+!O IPR = 1, JPGPT
+! NBI = NGB(IPR)
+! DO LEV =  1 , KLEV
+!-- DS_000515
+!   ZPLAY(IPR,LEV) = PLAY(LEV,NGB(IPR))
+!   ZPLVL(IPR,LEV) = PLVL(LEV-1,NGB(IPR))
+!   ZTAUCLD(IPR,LEV) = TAUCLD(LEV,NGB(IPR))
+!   ZTRNCLD(IPR,LEV) = TRNCLD(LEV,NGB(IPR))
+!-- DS_000515
+! ENDDO
+!NDDO
+!----      
+
+!- For cloudy layers, set cloud parameters for radiative transfer.
+DO I_LEV = 1, KLEV
+  IF (K_ICLDLYR(I_LEV) > 0) THEN
+    DO IPR = 1, JPGPT
+!--DS          
+!            NBI = NGB(IPR)
+      Z_ODCLDNW(IPR,I_LEV) = P_TAUCLD(I_LEV,NGB(IPR))
+      Z_ABSCLDNW(IPR,I_LEV) = 1.0_JPRB - Z_TRNCLD(I_LEV,NGB(IPR))
+!----            
+!            EFCLFRNW(IPR,LEV) = ABSCLDNW(IPR,LEV) * CLDFRAC(LEV)
+    ENDDO
+  ENDIF
+ENDDO
+
+!- Initialize for radiative transfer.
+DO IPR = 1, JPGPT
+  Z_RADCLRD1(IPR) = 0.0_JPRB
+  Z_RADLD1(IPR)   = 0.0_JPRB
+  I_NBI = NGB(IPR)
+  Z_SEMIS(IPR) = Z_SURFEMIS(I_NBI)
+  Z_RADUEMIT(IPR) = PFRAC(IPR,1) * Z_PLNKEMIT(I_NBI)
+!-- DS_000515
+  Z_BGLEV(IPR) = PFRAC(IPR,KLEV) * Z_PLVL(I_NBI,KLEV)
+ENDDO
+
+!- Downward radiative transfer.
+!  *** DRAD1 holds summed radiance for total sky stream
+!  *** DRADCL1 holds summed radiance for clear sky stream
+
+ICLDDN = 0
+DO I_LEV = KLEV, 1, -1
+  Z_DRAD1   = 0.0_JPRB
+  Z_DRADCL1 = 0.0_JPRB
+
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+
+!  *** Cloudy layer
+    ICLDDN = 1
+    IENT = JPGPT * (I_LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!--DS            
+!            NBI = NGB(IPR)
+      Z_BGLAY = PFRAC(IPR,I_LEV) * Z_PLAY(NGB(IPR),I_LEV)
+!----            
+      Z_DELBGUP     = Z_BGLEV(IPR) - Z_BGLAY
+      Z_BBU1(INDEX) = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGUP
+!--DS            
+      Z_BGLEV(IPR) = PFRAC(IPR,I_LEV) * Z_PLVL(NGB(IPR),I_LEV-1)
+!----            
+      Z_DELBGDN = Z_BGLEV(IPR) - Z_BGLAY
+      Z_BBD = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGDN
+!- total-sky downward flux          
+      Z_ODSM = P_OD(IPR,I_LEV) + Z_ODCLDNW(IPR,I_LEV)
+      Z_FACTOT1 = Z_ODSM / (BPADE + Z_ODSM)
+      Z_BBUTOT1(INDEX) = Z_BGLAY + Z_FACTOT1 * Z_DELBGUP
+      Z_ATOT1(INDEX) = P_ABSS1(INDEX) + Z_ABSCLDNW(IPR,I_LEV)&
+       & - P_ABSS1(INDEX) * Z_ABSCLDNW(IPR,I_LEV)  
+      Z_BBDTOT = Z_BGLAY + Z_FACTOT1 * Z_DELBGDN
+      Z_GASSRC = Z_BBD * P_ABSS1(INDEX)
+!***
+      IF (ISTCLDD(I_LEV)  ==  1) THEN
+        Z_CLDRADD(IPR) = Z_CLDFRAC(I_LEV) * Z_RADLD1(IPR)
+        Z_CLRRADD(IPR) = Z_RADLD1(IPR) - Z_CLDRADD(IPR)
+        Z_OLDCLD(IPR) = Z_CLDRADD(IPR)
+        Z_OLDCLR(IPR) = Z_CLRRADD(IPR)
+        Z_RAD(IPR) = 0.0_JPRB
+      ENDIF
+      Z_TTOT = 1.0_JPRB - Z_ATOT1(INDEX)
+      Z_CLDSRC = Z_BBDTOT * Z_ATOT1(INDEX)
+      
+! Separate RT equations for clear and cloudy streams      
+      Z_CLDRADD(IPR) = Z_CLDRADD(IPR) * Z_TTOT + Z_CLDFRAC(I_LEV) * Z_CLDSRC
+      Z_CLRRADD(IPR) = Z_CLRRADD(IPR) * (1.0_JPRB-P_ABSS1(INDEX)) +&
+       & (1.0_JPRB - Z_CLDFRAC(I_LEV)) * Z_GASSRC  
+
+!  Total sky downward radiance
+      Z_RADLD1(IPR) = Z_CLDRADD(IPR) + Z_CLRRADD(IPR)
+      Z_DRAD1 = Z_DRAD1 + Z_RADLD1(IPR)
+      
+!  Clear-sky downward radiance          
+      Z_RADCLRD1(IPR) = Z_RADCLRD1(IPR)+(Z_BBD-Z_RADCLRD1(IPR))*P_ABSS1(INDEX)
+      Z_DRADCL1 = Z_DRADCL1 + Z_RADCLRD1(IPR)
+
+!* Code to account for maximum/random overlap:
+!   Performs RT on the radiance most recently switched between clear and
+!   cloudy streams
+      Z_RADMOD = Z_RAD(IPR) * (Z_FACCLR1D(I_LEV-1) * (1.0_JPRB-P_ABSS1(INDEX)) +&
+       & Z_FACCLD1D(I_LEV-1) *  Z_TTOT) - &
+       & Z_FACCMB1D(I_LEV-1) * Z_GASSRC + &
+       & Z_FACCMB2D(I_LEV-1) * Z_CLDSRC  
+       
+!   Computes what the clear and cloudy streams would have been had no
+!   radiance been switched       
+      Z_OLDCLD(IPR) = Z_CLDRADD(IPR) - Z_RADMOD
+      Z_OLDCLR(IPR) = Z_CLRRADD(IPR) + Z_RADMOD
+      
+!   Computes the radiance to be switched between clear and cloudy.      
+      Z_RAD(IPR) = -Z_RADMOD + Z_FACCLR2D(I_LEV-1)*Z_OLDCLR(IPR) -&
+       & Z_FACCLD2D(I_LEV-1)*Z_OLDCLD(IPR)  
+      Z_CLDRADD(IPR) = Z_CLDRADD(IPR) + Z_RAD(IPR)
+      Z_CLRRADD(IPR) = Z_CLRRADD(IPR) - Z_RAD(IPR)
+!***
+
+    ENDDO
+
+  ELSE
+
+!  *** Clear layer
+!  *** DRAD1 holds summed radiance for total sky stream
+!  *** DRADCL1 holds summed radiance for clear sky stream
+
+    IENT = JPGPT * (I_LEV-1)
+    IF (ICLDDN == 1) THEN
+      DO IPR = 1, JPGPT
+        INDEX = IENT + IPR
+!--DS         
+!           NBI = NGB(IPR)
+        Z_BGLAY = PFRAC(IPR,I_LEV) * Z_PLAY(NGB(IPR),I_LEV)
+!----            
+        Z_DELBGUP     = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBU1(INDEX) = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGUP
+!--DS            
+        Z_BGLEV(IPR) = PFRAC(IPR,I_LEV) * Z_PLVL(NGB(IPR),I_LEV-1)
+!----                      
+        Z_DELBGDN = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBD = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGDN
+        
+!- total-sky downward radiance
+        Z_RADLD1(IPR) = Z_RADLD1(IPR)+(Z_BBD-Z_RADLD1(IPR))*P_ABSS1(INDEX)
+        Z_DRAD1 = Z_DRAD1 + Z_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.
+        Z_RADCLRD1(IPR) = Z_RADCLRD1(IPR)+(Z_BBD-Z_RADCLRD1(IPR))*P_ABSS1(INDEX)
+        Z_DRADCL1 = Z_DRADCL1 + Z_RADCLRD1(IPR)
+      ENDDO
+            
+    ELSE
+        
+      DO IPR = 1, JPGPT
+        INDEX = IENT + IPR
+!--DS         
+!           NBI = NGB(IPR)
+        Z_BGLAY = PFRAC(IPR,I_LEV) * Z_PLAY(NGB(IPR),I_LEV)
+!----            
+        Z_DELBGUP     = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBU1(INDEX) = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGUP
+!--DS            
+        Z_BGLEV(IPR) = PFRAC(IPR,I_LEV) * Z_PLVL(NGB(IPR),I_LEV-1)
+!----                      
+        Z_DELBGDN = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBD = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGDN
+!- total-sky downward flux          
+        Z_RADLD1(IPR) = Z_RADLD1(IPR)+(Z_BBD-Z_RADLD1(IPR))*P_ABSS1(INDEX)
+        Z_DRAD1 = Z_DRAD1 + Z_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.
+        Z_RADCLRD1(IPR) = Z_RADLD1(IPR)
+      ENDDO
+      Z_DRADCL1 = Z_DRAD1
+    ENDIF
+    
+  ENDIF
+
+  P_TOTDFLUC(I_LEV-1) = Z_DRADCL1 * Z_WTNUM(1)
+  P_TOTDFLUX(I_LEV-1) = Z_DRAD1   * Z_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.
+
+Z_URAD1   = 0.0_JPRB
+Z_URADCL1 = 0.0_JPRB
+
+!start JJM_000511
+!IF (IREFLECT  ==  0) THEN
+!- Lambertian reflection.
+DO IPR = 1, JPGPT
+! Clear-sky radiance
+!    RADCLD = _TWO_ * (RADCLRD1(IPR) * WTNUM(1) )
+  Z_RADCLD = Z_RADCLRD1(IPR)
+  Z_RADCLRU1(IPR) = Z_RADUEMIT(IPR) + (1.0_JPRB - Z_SEMIS(IPR)) * Z_RADCLD
+  Z_URADCL1 = Z_URADCL1 + Z_RADCLRU1(IPR)
+
+! Total sky radiance
+!    RADD = _TWO_ * (RADLD1(IPR) * WTNUM(1) )
+  Z_RADD = Z_RADLD1(IPR)
+  Z_RADLU1(IPR) = Z_RADUEMIT(IPR) + (1.0_JPRB - Z_SEMIS(IPR)) * Z_RADD
+  Z_URAD1 = Z_URAD1 + Z_RADLU1(IPR)
+ENDDO
+P_TOTUFLUC(0) = Z_URADCL1 * 0.5_JPRB
+P_TOTUFLUX(0) = Z_URAD1 * 0.5_JPRB
+!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 I_LEV = 1, KLEV
+  Z_URAD1   = 0.0_JPRB
+  Z_URADCL1 = 0.0_JPRB
+
+! Check flag for cloud in current layer
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+
+!- *** Cloudy layer
+    IENT = JPGPT * (I_LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!- total-sky upward flux          
+      Z_GASSRC = Z_BBU1(INDEX) * P_ABSS1(INDEX)
+
+!- If first cloudy layer in sequence, split up radiance into clear and
+!    cloudy streams depending on cloud fraction
+      IF (ISTCLD(I_LEV)  ==  1) THEN
+        Z_CLDRADU(IPR) = Z_CLDFRAC(I_LEV) * Z_RADLU1(IPR)
+        Z_CLRRADU(IPR) = Z_RADLU1(IPR) - Z_CLDRADU(IPR)
+        Z_OLDCLD(IPR) = Z_CLDRADU(IPR)
+        Z_OLDCLR(IPR) = Z_CLRRADU(IPR)
+        Z_RAD(IPR) = 0.0_JPRB
+      ENDIF
+      Z_TTOT = 1.0_JPRB - Z_ATOT1(INDEX)
+      Z_TRNS = 1.0_JPRB - P_ABSS1(INDEX)
+      Z_CLDSRC = Z_BBUTOT1(INDEX) * Z_ATOT1(INDEX)
+
+!- Separate RT equations for clear and cloudy streams      
+      Z_CLDRADU(IPR) = Z_CLDRADU(IPR) * Z_TTOT + Z_CLDFRAC(I_LEV) * Z_CLDSRC
+      Z_CLRRADU(IPR) = Z_CLRRADU(IPR) * Z_TRNS +(1.0_JPRB - Z_CLDFRAC(I_LEV)) * Z_GASSRC
+!***
+
+!- total sky upward flux
+      Z_RADLU1(IPR) = Z_CLDRADU(IPR) + Z_CLRRADU(IPR)
+      Z_URAD1 = Z_URAD1 + Z_RADLU1(IPR)
+      
+!- clear-sky upward flux
+      Z_RADCLRU1(IPR) = Z_RADCLRU1(IPR) + (Z_BBU1(INDEX)-Z_RADCLRU1(IPR))&
+       & *P_ABSS1(INDEX)  
+      Z_URADCL1 = Z_URADCL1 + Z_RADCLRU1(IPR)
+
+!* Code to account for maximum/random overlap:
+!   Performs RT on the radiance most recently switched between clear and
+!   cloudy streams
+      Z_RADMOD = Z_RAD(IPR) * (Z_FACCLR1(I_LEV+1) * Z_TRNS +&
+       & Z_FACCLD1(I_LEV+1) *  Z_TTOT) - &
+       & Z_FACCMB1(I_LEV+1) * Z_GASSRC + &
+       & Z_FACCMB2(I_LEV+1) * Z_CLDSRC  
+       
+!   Computes what the clear and cloudy streams would have been had no
+!   radiance been switched       
+      Z_OLDCLD(IPR) = Z_CLDRADU(IPR) - Z_RADMOD
+      Z_OLDCLR(IPR) = Z_CLRRADU(IPR) + Z_RADMOD
+      
+!   Computes the radiance to be switched between clear and cloudy.      
+      Z_RAD(IPR) = -Z_RADMOD + Z_FACCLR2(I_LEV+1)*Z_OLDCLR(IPR) -&
+       & Z_FACCLD2(I_LEV+1)*Z_OLDCLD(IPR)  
+      Z_CLDRADU(IPR) = Z_CLDRADU(IPR) + Z_RAD(IPR)
+      Z_CLRRADU(IPR) = Z_CLRRADU(IPR) - Z_RAD(IPR)
+!***
+    ENDDO
+
+  ELSE
+
+!- *** Clear layer
+    IENT = JPGPT * (I_LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!- total-sky upward flux          
+      Z_RADLU1(IPR) = Z_RADLU1(IPR)+(Z_BBU1(INDEX)-Z_RADLU1(IPR))*P_ABSS1(INDEX)
+      Z_URAD1 = Z_URAD1 + Z_RADLU1(IPR)
+!- clear-sky upward flux
+!   Upward clear and total sky streams must be separate because surface
+!   reflectance is different for each.
+      Z_RADCLRU1(IPR) = Z_RADCLRU1(IPR)+(Z_BBU1(INDEX)-Z_RADCLRU1(IPR))*P_ABSS1(INDEX)
+      Z_URADCL1 = Z_URADCL1 + Z_RADCLRU1(IPR)
+    ENDDO
+
+  ENDIF
+
+  P_TOTUFLUC(I_LEV) = Z_URADCL1 * Z_WTNUM(1)
+  P_TOTUFLUX(I_LEV) = Z_URAD1   * Z_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) = (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) =(P_TOTUFLUC(LEV) - P_TOTDFLUC(LEV))
+
+!        TOTUFLUX(LEV) = TOTUFLUX(LEV) * FLUXFAC
+!        TOTDFLUX(LEV) = TOTDFLUX(LEV) * FLUXFAC
+!        FNET(LEV) = (P_TOTUFLUX(LEV) - P_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
+
+
+
+IF (LHOOK) CALL DR_HOOK('RRTM_RTRN1A_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_RTRN1A_140GP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h	(revision 3330)
@@ -0,0 +1,33 @@
+INTERFACE
+SUBROUTINE RRTM_RTRN1A_140GP (KLEV,K_ISTART,K_IEND,K_ICLDLYR,P_CLDFRAC,P_TAUCLD,P_ABSS1,&
+ & P_OD,P_TAUSF1,P_CLFNET,P_CLHTR,P_FNET,P_HTR,P_TOTDFLUC,P_TOTDFLUX,P_TOTUFLUC,P_TOTUFLUX,&
+ & P_TAVEL,PZ,P_TZ,P_TBOUND,PFRAC,P_SEMISS,P_SEMISLW,K_IREFLECT) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPBAND ,JPGPT ,JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: K_ISTART
+INTEGER(KIND=JPIM),INTENT(IN) :: K_IEND
+INTEGER(KIND=JPIM),INTENT(IN) :: K_ICLDLYR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUCLD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ABSS1(JPGPT*JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_OD(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUSF1(JPGPT*JPLAY)
+REAL(KIND=JPRB) :: P_CLFNET(0:JPLAY)
+REAL(KIND=JPRB) :: P_CLHTR(0:JPLAY)
+REAL(KIND=JPRB) :: P_FNET(0:JPLAY)
+REAL(KIND=JPRB) :: P_HTR(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUC(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUX(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUC(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUX(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRAC(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SEMISS(JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISLW
+INTEGER(KIND=JPIM) :: K_IREFLECT
+END SUBROUTINE RRTM_RTRN1A_140GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_setcoef_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_setcoef_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_setcoef_140gp.F90	(revision 3330)
@@ -0,0 +1,185 @@
+SUBROUTINE RRTM_SETCOEF_140GP (KLEV,P_COLDRY,P_WKL,&
+ & P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,PAVEL,P_TAVEL,P_SELFFAC,P_SELFFRAC,K_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.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY     ,JPINPX
+USE YOERRTRF , ONLY :       PREFLOG   ,TREF
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WKL(JPINPX,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_LAYTROP 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_LAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_LAYLOW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_INDSELF(JPLAY) 
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from PROFILE             
+!- from SELF             
+INTEGER(KIND=JPIM) :: JP1, I_LAY
+
+REAL(KIND=JPRB) :: Z_CO2REG, Z_COMPFP, Z_FACTOR, Z_FP, Z_FT, Z_FT1, Z_PLOG, Z_SCALEFAC, Z_STPFAC, Z_WATER
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!#include "yoeratm.h"    
+
+IF (LHOOK) CALL DR_HOOK('RRTM_SETCOEF_140GP',0,ZHOOK_HANDLE)
+Z_STPFAC = 296._JPRB/1013._JPRB
+
+K_LAYTROP  = 0
+K_LAYSWTCH = 0
+K_LAYLOW   = 0
+DO I_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.
+  Z_PLOG = LOG(PAVEL(I_LAY))
+  K_JP(I_LAY) = INT(36._JPRB - 5*(Z_PLOG+0.04_JPRB))
+  IF (K_JP(I_LAY)  <  1) THEN
+    K_JP(I_LAY) = 1
+  ELSEIF (K_JP(I_LAY)  >  58) THEN
+    K_JP(I_LAY) = 58
+  ENDIF
+  JP1 = K_JP(I_LAY) + 1
+  Z_FP = 5._JPRB * (PREFLOG(K_JP(I_LAY)) - Z_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.
+
+  K_JT(I_LAY) = INT(3._JPRB + (P_TAVEL(I_LAY)-TREF(K_JP(I_LAY)))/15._JPRB)
+  IF (K_JT(I_LAY)  <  1) THEN
+    K_JT(I_LAY) = 1
+  ELSEIF (K_JT(I_LAY)  >  4) THEN
+    K_JT(I_LAY) = 4
+  ENDIF
+  Z_FT = ((P_TAVEL(I_LAY)-TREF(K_JP(I_LAY)))/15._JPRB) - REAL(K_JT(I_LAY)-3)
+  K_JT1(I_LAY) = INT(3._JPRB + (P_TAVEL(I_LAY)-TREF(JP1))/15._JPRB)
+  IF (K_JT1(I_LAY)  <  1) THEN
+    K_JT1(I_LAY) = 1
+  ELSEIF (K_JT1(I_LAY)  >  4) THEN
+    K_JT1(I_LAY) = 4
+  ENDIF
+  Z_FT1 = ((P_TAVEL(I_LAY)-TREF(JP1))/15._JPRB) - REAL(K_JT1(I_LAY)-3)
+
+  Z_WATER = P_WKL(1,I_LAY)/P_COLDRY(I_LAY)
+  Z_SCALEFAC = PAVEL(I_LAY) * Z_STPFAC / P_TAVEL(I_LAY)
+
+!        If the pressure is less than ~100mb, perform a different
+!        set of species interpolations.
+!         IF (PLOG .LE. 4.56) GO TO 5300
+!--------------------------------------         
+  IF (Z_PLOG  >  4.56_JPRB) THEN
+    K_LAYTROP =  K_LAYTROP + 1
+!        For one band, the "switch" occurs at ~300 mb. 
+    IF (Z_PLOG  >=  5.76_JPRB) K_LAYSWTCH = K_LAYSWTCH + 1
+    IF (Z_PLOG  >=  6.62_JPRB) K_LAYLOW = K_LAYLOW + 1
+
+    P_FORFAC(I_LAY) = Z_SCALEFAC / (1.0_JPRB+Z_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)
+    P_SELFFAC(I_LAY) = Z_WATER * P_FORFAC(I_LAY)
+    Z_FACTOR = (P_TAVEL(I_LAY)-188.0_JPRB)/7.2_JPRB
+    K_INDSELF(I_LAY) = MIN(9, MAX(1, INT(Z_FACTOR)-7))
+    P_SELFFRAC(I_LAY) = Z_FACTOR - REAL(K_INDSELF(I_LAY) + 7)
+
+!        Calculate needed column amounts.
+    P_COLH2O(I_LAY) = 1.E-20_JPRB * P_WKL(1,I_LAY)
+    P_COLCO2(I_LAY) = 1.E-20_JPRB * P_WKL(2,I_LAY)
+    P_COLO3(I_LAY)  = 1.E-20_JPRB * P_WKL(3,I_LAY)
+    P_COLN2O(I_LAY) = 1.E-20_JPRB * P_WKL(4,I_LAY)
+    P_COLCH4(I_LAY) = 1.E-20_JPRB * P_WKL(6,I_LAY)
+    P_COLO2(I_LAY)  = 1.E-20_JPRB * P_WKL(7,I_LAY)
+    IF (P_COLCO2(I_LAY)  ==  0.0_JPRB) P_COLCO2(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLN2O(I_LAY)  ==  0.0_JPRB) P_COLN2O(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLCH4(I_LAY)  ==  0.0_JPRB) P_COLCH4(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+!        Using E = 1334.2 cm-1.
+    Z_CO2REG = 3.55E-24_JPRB * P_COLDRY(I_LAY)
+    P_CO2MULT(I_LAY)= (P_COLCO2(I_LAY) - Z_CO2REG) *&
+     & 272.63_JPRB*EXP(-1919.4_JPRB/P_TAVEL(I_LAY))/(8.7604E-4_JPRB*P_TAVEL(I_LAY))  
+!         GO TO 5400
+!------------------
+  ELSE
+!        Above LAYTROP.
+! 5300    CONTINUE
+
+!        Calculate needed column amounts.
+    P_FORFAC(I_LAY) = Z_SCALEFAC / (1.0_JPRB+Z_WATER)
+
+    P_COLH2O(I_LAY) = 1.E-20_JPRB * P_WKL(1,I_LAY)
+    P_COLCO2(I_LAY) = 1.E-20_JPRB * P_WKL(2,I_LAY)
+    P_COLO3(I_LAY)  = 1.E-20_JPRB * P_WKL(3,I_LAY)
+    P_COLN2O(I_LAY) = 1.E-20_JPRB * P_WKL(4,I_LAY)
+    P_COLCH4(I_LAY) = 1.E-20_JPRB * P_WKL(6,I_LAY)
+    P_COLO2(I_LAY)  = 1.E-20_JPRB * P_WKL(7,I_LAY)
+    IF (P_COLCO2(I_LAY)  ==  0.0_JPRB) P_COLCO2(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLN2O(I_LAY)  ==  0.0_JPRB) P_COLN2O(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLCH4(I_LAY)  ==  0.0_JPRB) P_COLCH4(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    Z_CO2REG = 3.55E-24_JPRB * P_COLDRY(I_LAY)
+    P_CO2MULT(I_LAY)= (P_COLCO2(I_LAY) - Z_CO2REG) *&
+     & 272.63_JPRB*EXP(-1919.4_JPRB/P_TAVEL(I_LAY))/(8.7604E-4_JPRB*P_TAVEL(I_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).
+
+  Z_COMPFP = 1.0_JPRB - Z_FP
+  P_FAC10(I_LAY) = Z_COMPFP * Z_FT
+  P_FAC00(I_LAY) = Z_COMPFP * (1.0_JPRB - Z_FT)
+  P_FAC11(I_LAY) = Z_FP * Z_FT1
+  P_FAC01(I_LAY) = Z_FP * (1.0_JPRB - Z_FT1)
+
+ENDDO
+
+! MT 981104 
+!-- Set LAYLOW for profiles with surface pressure less than 750 hPa. 
+IF (K_LAYLOW == 0) K_LAYLOW=1
+
+IF (LHOOK) CALL DR_HOOK('RRTM_SETCOEF_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_SETCOEF_140GP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_setcoef_140gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_setcoef_140gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_setcoef_140gp.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE RRTM_SETCOEF_140GP (KLEV,P_COLDRY,P_WKL,&
+ & P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,PAVEL,P_TAVEL,P_SELFFAC,P_SELFFRAC,K_INDSELF) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPINPX
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WKL(JPINPX,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_LAYTROP
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_LAYSWTCH
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_LAYLOW
+REAL(KIND=JPRB) ,INTENT(IN) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_INDSELF(JPLAY)
+END SUBROUTINE RRTM_SETCOEF_140GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol1.F90	(revision 3330)
@@ -0,0 +1,241 @@
+!******************************************************************************
+!                                                                             *
+!                  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,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG1
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA1 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+ & FORREF   ,SELFREF   
+
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL1',0,ZHOOK_HANDLE)
+!--ajout OB 
+IF (K_LAYTROP.GT.100) THEN 
+PRINT *,'ATTENTION KLAY_TROP > 100 PROBLEME ARRAY DANS RRTM ON ARRETE'
+STOP
+!--fin ajout OB
+ENDIF
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(1) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(1) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+DO IG = 1, NG1
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515  
+    P_TAU (IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,1)  
+    PFRAC(IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(1) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(1) + 1
+ENDDO
+
+!-- JJM000517
+DO IG = 1, NG1
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM000517
+    P_TAU (IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,1)  
+    PFRAC(IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL1',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol1.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol1.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol1.intfb.h	(revision 3330)
@@ -0,0 +1,25 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL1 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL1
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol10.F90	(revision 3330)
@@ -0,0 +1,97 @@
+!*******************************************************************************
+SUBROUTINE RRTM_TAUMOL10 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,PFRAC)  
+
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG10   ,NGS9
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA10, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,10),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL10',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(10) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(10) + 1
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG10
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+    P_TAU (NGS9+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG)) &
+     & + P_TAUAERL(I_LAY,10)  
+    PFRAC(NGS9+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(10) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(10) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG10
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS9+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)) &
+     & + P_TAUAERL(I_LAY,10)  
+    PFRAC(NGS9+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL10',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL10
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol10.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol10.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol10.intfb.h	(revision 3330)
@@ -0,0 +1,21 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL10 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG10 ,NGS9
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL10
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol11.F90	(revision 3330)
@@ -0,0 +1,106 @@
+!******************************************************************************
+SUBROUTINE RRTM_TAUMOL11 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG11  ,NGS10
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA11, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.
+  
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL11',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(11) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(11) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG11
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515  
+    P_TAU (NGS10+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG))))&
+     & + P_TAUAERL(I_LAY,11)  
+    PFRAC(NGS10+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(11) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(11) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG11
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS10+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)) &
+     & + P_TAUAERL(I_LAY,11)  
+    PFRAC(NGS10+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL11',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL11
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol11.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol11.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol11.intfb.h	(revision 3330)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL11 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG11 ,NGS10
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL11
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol12.F90	(revision 3330)
@@ -0,0 +1,143 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL12 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND  ,JPGPT  ,NG12 ,NGS11
+USE YOERRTWN , ONLY :      NSPA    
+USE YOERRTA12, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.  
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL12',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(12) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(12) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG12
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_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)
+!----
+    P_TAU (NGS11+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY) +1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY) +9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     & ( (1. - Z_FS) *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+9 ,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+9 ,IG))+   &
+     & Z_FS     *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) +  &
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_TAUAERL(I_LAY,12)  
+    PFRAC(NGS11+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG12
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS11+IG,I_LAY) = P_TAUAERL(I_LAY,12)
+    PFRAC(NGS11+IG,I_LAY) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL12',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL12
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol12.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol12.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol12.intfb.h	(revision 3330)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL12 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG12 ,NGS11
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL12
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol13.F90	(revision 3330)
@@ -0,0 +1,142 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL13 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG13  ,NGS12
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA13, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL13',0,ZHOOK_HANDLE)
+DO  I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLN2O(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(13) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(13) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG13
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_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)
+!----
+    P_TAU (NGS12+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     & ( (1. - Z_FS) *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS      *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +    &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_TAUAERL(I_LAY,13)  
+    PFRAC(NGS12+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG13
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS12+IG,I_LAY) = P_TAUAERL(I_LAY,13)
+    PFRAC(NGS12+IG,I_LAY) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL13',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL13
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol13.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol13.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol13.intfb.h	(revision 3330)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL13 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG13 ,NGS12
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL13
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol14.F90	(revision 3330)
@@ -0,0 +1,117 @@
+!******************************************************************************
+SUBROUTINE RRTM_TAUMOL14 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 1999-07-14 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NGS13
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA14, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  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.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL14',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(14) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(14) + 1
+  INDS = K_INDSELF(I_LAY)
+!-- DS_990714  
+!         DO IG = 1, NG14
+  IG=1
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSA(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSA(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSA(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSA(IND1+1,IG) +&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) + &
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG))))&
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFA(IG)
+  IG=2
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSA(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSA(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSA(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSA(IND1+1,IG) +&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) +&
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG))))&
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFA(IG)
+!         END DO
+!-- DS_990714  
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(14) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(14) + 1
+!-- DS_990714  
+!         DO IG = 1, NG14
+  IG=1
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSB(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSB(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSB(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) &
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFB(IG)
+  IG=2
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSB(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSB(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSB(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) &
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFB(IG)
+!         END DO
+!-- DS_990714  
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL14',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL14
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol14.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol14.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol14.intfb.h	(revision 3330)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL14 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NGS13
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL14
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol15.F90	(revision 3330)
@@ -0,0 +1,157 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL15 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 1999-07-14 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NGS14
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA15, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  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. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL15',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLN2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLN2O(I_LAY)/Z_SPECCOMB
+  Z_SPECPARM = MIN(Z_SPECPARM,P_ONEMINUS)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+!-----jjm        
+  Z_FAC000 = (1.0_JPRB - Z_FS) * P_FAC00(I_LAY)
+  Z_FAC010 = (1.0_JPRB - Z_FS) * P_FAC10(I_LAY)
+  Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+  Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+  Z_FAC001 = (1.0_JPRB - Z_FS) * P_FAC01(I_LAY)
+  Z_FAC011 = (1.0_JPRB - Z_FS) * P_FAC11(I_LAY)
+  Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+  Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+!------         
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(15) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(15) + JS
+  INDS = K_INDSELF(I_LAY)
+!-- DS_990714  
+!         DO IG = 1, NG15
+  IG=1
+  P_TAU (NGS14+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1,IG) + 
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+9,IG)) +
+   !     &     Z_FS *  (P_FAC01(I_LAY) * ABSA(IND1+1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) * &
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) + &
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,15)  
+  PFRAC(NGS14+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  IG=2
+  P_TAU (NGS14+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+9,IG)) +
+   !     &     Z_FS *  (P_FAC01(I_LAY) * ABSA(IND1+1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) *&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) +&
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,15)  
+  PFRAC(NGS14+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+
+!         END DO
+!-- DS_990714  
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+!         DO IG = 1, NG15
+!-- DS_990714  
+  IG=1
+  P_TAU (NGS14+IG,I_LAY) = P_TAUAERL(I_LAY,15)
+  PFRAC(NGS14+IG,I_LAY) = 0.0_JPRB
+  IG=2
+  P_TAU (NGS14+IG,I_LAY) = P_TAUAERL(I_LAY,15)
+  PFRAC(NGS14+IG,I_LAY) = 0.0_JPRB
+!-- DS_990714  
+!         END DO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL15',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol15.intfb.h	(revision 3330)
@@ -0,0 +1,27 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL15 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NGS14
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol16.F90	(revision 3330)
@@ -0,0 +1,156 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL16 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCH4,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 1999-07-14 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NGS15
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA16, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  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. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL16',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB
+  Z_SPECPARM = MIN(Z_SPECPARM,P_ONEMINUS)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+!----jjm         
+  Z_FAC000 = (1.0_JPRB - Z_FS) * P_FAC00(I_LAY)
+  Z_FAC010 = (1.0_JPRB - Z_FS) * P_FAC10(I_LAY)
+  Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+  Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+  Z_FAC001 = (1.0_JPRB - Z_FS) * P_FAC01(I_LAY)
+  Z_FAC011 = (1.0_JPRB - Z_FS) * P_FAC11(I_LAY)
+  Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+  Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+!-----         
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(16) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(16) + JS
+  INDS = K_INDSELF(I_LAY)
+!         DO IG = 1, NG16
+!-- DS_990714
+  IG=1
+  P_TAU (NGS15+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0   ,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+ 9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1   ,IG) + 
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+ 9,IG))+
+   !     &    Z_FS * (  P_FAC01(I_LAY) * ABSA(IND1+ 1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+ 1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) * &
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) + &
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,16)  
+  PFRAC(NGS15+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  IG=2
+  P_TAU (NGS15+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0   ,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+ 9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1   ,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+ 9,IG))+
+   !     &    Z_FS * (  P_FAC01(I_LAY) * ABSA(IND1+ 1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+ 1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) *&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) +&
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,16)  
+  PFRAC(NGS15+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+
+!         END DO
+!-- DS_990714
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+!         DO IG = 1, NG16
+!-- DS_990714
+  IG=1
+  P_TAU (NGS15+IG,I_LAY) = P_TAUAERL(I_LAY,16)
+  PFRAC(NGS15+IG,I_LAY) = 0.0_JPRB
+  IG=2
+  P_TAU (NGS15+IG,I_LAY) = P_TAUAERL(I_LAY,16)
+  PFRAC(NGS15+IG,I_LAY) = 0.0_JPRB
+!-- DS_990714
+!         END DO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL16',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL16
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol16.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol16.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol16.intfb.h	(revision 3330)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL16 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCH4,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NGS15
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL16
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol2.F90	(revision 3330)
@@ -0,0 +1,174 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL2 (KLEV,P_TAU,P_COLDRY,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+!     JJMorcrette 2000-07-14 bugfix
+!     Y. Seity    2006-09-26 Nec optimisation
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG2   ,NGS1
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA2 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+ & FORREF   ,SELFREF , REFPARAM  
+USE YOERRTBG2, ONLY : CORR1  ,CORR2
+
+!  Input
+!#include "yoeratm.h"
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+REAL(KIND=JPRB) :: Z_FC00(JPLAY),Z_FC01(JPLAY),Z_FC10(JPLAY),Z_FC11(JPLAY)
+!      REAL TAUAER(JPLAY)
+REAL(KIND=JPRB) :: Z_FRACINT(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY), INDEX(JPLAY)
+
+INTEGER(KIND=JPIM) :: IFP, IFRAC, IG, JFRAC, I_LAY
+
+REAL(KIND=JPRB) :: Z_FP, Z_H2OPARAM, Z_WATER
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL2',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_WATER = 1.E20_JPRB * P_COLH2O(I_LAY) / P_COLDRY(I_LAY)
+  Z_H2OPARAM = Z_WATER/(Z_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))
+  IFRAC=INDEX(I_LAY)
+  IF (Z_H2OPARAM >= REFPARAM(2)) THEN
+          IFRAC=2
+  ELSE
+!cdir unroll=11
+    DO JFRAC = 2, 12
+      IF (Z_H2OPARAM < REFPARAM(JFRAC)) THEN
+         IFRAC=JFRAC+1
+      ENDIF  
+    ENDDO
+  ENDIF  
+  
+!---- JJM_000714
+! set above IFRAC instead of INDEX(I_LAY), store now - NEC jh
+! IFRAC=INDEX(I_LAY)
+  INDEX(I_LAY)=IFRAC
+
+  Z_FRACINT(I_LAY) = (Z_H2OPARAM-REFPARAM(IFRAC))/&
+   & (REFPARAM(IFRAC-1)-REFPARAM(IFRAC))  
+ENDDO
+
+DO I_LAY = 1, K_LAYTROP
+
+  Z_FP = P_FAC11(I_LAY) + P_FAC01(I_LAY)
+  IFP = 2.E2_JPRB*Z_FP+0.5_JPRB
+
+!---MI 981104        
+!       IF (IFP.LE.0) IFP=0
+
+  IFP=MAX(0,IFP)
+
+  Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
+  Z_FC10(I_LAY) = P_FAC10(I_LAY) * CORR2(IFP)
+  Z_FC01(I_LAY) = P_FAC01(I_LAY) * CORR1(IFP)
+  Z_FC11(I_LAY) = P_FAC11(I_LAY) * CORR1(IFP)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(2) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(2) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG2
+  DO I_LAY = 1, K_LAYTROP
+!-- JJM_000714
+    IFRAC=INDEX(I_LAY)  
+!-- DS_000515  
+    P_TAU (NGS1+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (Z_FC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & Z_FC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & Z_FC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & Z_FC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,2)  
+    PFRAC(NGS1+IG,I_LAY) = FRACREFA(IG,IFRAC) + Z_FRACINT(I_LAY) *&
+     & (FRACREFA(IG,IFRAC-1)-FRACREFA(IG,IFRAC))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_FP = P_FAC11(I_LAY) + P_FAC01(I_LAY)
+  IFP = 2.E2_JPRB*Z_FP+0.5_JPRB
+
+!---MI 981104        
+  IF (IFP <= 0) IFP=0
+
+  Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
+  Z_FC10(I_LAY) = P_FAC10(I_LAY) * CORR2(IFP)
+  Z_FC01(I_LAY) = P_FAC01(I_LAY) * CORR1(IFP)
+  Z_FC11(I_LAY) = P_FAC11(I_LAY) * CORR1(IFP)
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(2) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(2) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG2
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS1+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (Z_FC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & Z_FC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & Z_FC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & Z_FC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,2)  
+    PFRAC(NGS1+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL2',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol2.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol2.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol2.intfb.h	(revision 3330)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL2 (KLEV,P_TAU,P_COLDRY,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG2 ,NGS1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL2
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol3.F90	(revision 3330)
@@ -0,0 +1,240 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL3 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG3   ,NGS2
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA3 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+ & FORREF   ,SELFREF , ABSN2OA ,&
+ & ABSN2OB  ,ETAREF ,H2OREF ,N2OREF  , CO2REF  ,&
+ & STRRAT  
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+REAL(KIND=JPRB) :: Z_N2OMULT(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY, I_NS
+
+REAL(KIND=JPRB) :: Z_COLREF1, Z_COLREF2, Z_CURRN2O, Z_FAC000, Z_FAC001,&
+ & Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101, Z_FAC110, Z_FAC111, &
+ & Z_FP, Z_FS, Z_RATIO, Z_SPECMULT, Z_SPECPARM, Z_WCOMB1, &
+ & Z_WCOMB2  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL3',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IF (JS  ==  8) THEN
+    IF (Z_FS  >=  0.9_JPRB) THEN
+      JS = 9
+      Z_FS = 10._JPRB * (Z_FS - 0.9_JPRB)
+    ELSE
+      Z_FS = Z_FS/0.9_JPRB
+    ENDIF
+  ENDIF
+
+  I_NS = JS + INT(Z_FS + 0.5_JPRB)
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(3) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(3) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  IF (I_NS  ==  10) THEN
+    Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+    Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  ELSE
+    Z_WCOMB1 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)))
+    Z_WCOMB2 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)+1))
+  ENDIF
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = Z_SPECCOMB(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG3
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_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)
+!------        
+
+    P_TAU (NGS2+IG,I_LAY) = Z_SPECCOMB(I_LAY) *   &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+11,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+11,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+11,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY),   IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+10,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+11,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG))&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + Z_N2OMULT(I_LAY) * ABSN2OA(IG) &
+     & + P_TAUAERL(I_LAY,3)  
+    PFRAC(NGS2+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 4._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  I_NS = JS + INT(Z_FS + 0.5_JPRB)
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(3) + JS
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(3) + JS
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  IF (I_NS  ==  5) THEN
+    Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+    Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  ELSE
+    Z_WCOMB1 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)))
+    Z_WCOMB2 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)+1))
+  ENDIF
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = Z_SPECCOMB(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_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
+    P_TAU (NGS2+IG,I_LAY) = Z_SPECCOMB(I_LAY) *   &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+5,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +    &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+5,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+6,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)+1,IG) +   &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+6,IG)))   &
+     !     &(Z_FAC000 * ABSB(IND0(I_LAY)  ,IG) +&
+     !     & Z_FAC100 * ABSB(IND0(I_LAY)+1,IG) +&
+     !     & Z_FAC010 * ABSB(IND0(I_LAY)+5,IG) +&
+     !     & Z_FAC110 * ABSB(IND0(I_LAY)+6,IG) +&
+     !     & Z_FAC001 * ABSB(IND1(I_LAY)  ,IG) +&
+     !     & Z_FAC101 * ABSB(IND1(I_LAY)+1,IG) +&
+     !     & Z_FAC011 * ABSB(IND1(I_LAY)+5,IG) +&
+     !     & Z_FAC111 * ABSB(IND1(I_LAY)+6,IG))&
+     !-- DS_000515
+     & + P_COLH2O(I_LAY)*P_FORFAC(I_LAY)*FORREF(IG) &
+     & + Z_N2OMULT(I_LAY) * ABSN2OB(IG)&
+     & + P_TAUAERL(I_LAY,3)  
+    PFRAC(NGS2+IG,I_LAY) = FRACREFB(IG,JS) + Z_FS *&
+     & (FRACREFB(IG,JS+1) - FRACREFB(IG,JS))  
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL3',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol3.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol3.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol3.intfb.h	(revision 3330)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL3 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG3 ,NGS2
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL3
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol4.F90	(revision 3330)
@@ -0,0 +1,197 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL4 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG4   ,NGS3
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA4 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF,STRRAT1 , STRRAT2
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)                  :: P_FORFAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL4',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT1*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(4) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(4) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG4
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_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)
+!---
+
+    P_TAU (NGS3+IG,I_LAY) = Z_SPECCOMB(I_LAY) *    &
+     !-- DS_000515
+     & ((1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_TAUAERL(I_LAY,4)  
+    PFRAC(NGS3+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_SPECCOMB(I_LAY) = P_COLO3(I_LAY) + STRRAT2*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 4._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IF (JS  >  1) THEN
+    JS = JS + 1
+  ELSEIF (Z_FS  >=  0.0024_JPRB) THEN
+    JS = 2
+    Z_FS = (Z_FS - 0.0024_JPRB)/0.9976_JPRB
+  ELSE
+    JS = 1
+    Z_FS = Z_FS/0.0024_JPRB
+  ENDIF
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(4) + JS
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(4) + JS
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_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
+    P_TAU (NGS3+IG,I_LAY) = Z_SPECCOMB(I_LAY) *   &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+6,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +    &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+6,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+7,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)+1,IG) +   &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+7,IG)))   &
+     !     &(Z_FAC000 * ABSB(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSB(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSB(IND0(I_LAY)+ 6,IG) +&
+     !     & Z_FAC110 * ABSB(IND0(I_LAY)+ 7,IG) +&
+     !     & Z_FAC001 * ABSB(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSB(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSB(IND1(I_LAY)+ 6,IG) +&
+     !     & Z_FAC111 * ABSB(IND1(I_LAY)+ 7,IG))&
+     !-- DS_000515
+     & + P_TAUAERL(I_LAY,4)  
+    PFRAC(NGS3+IG,I_LAY) = FRACREFB(IG,JS) + Z_FS *&
+     & (FRACREFB(IG,JS+1) - FRACREFB(IG,JS))  
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL4',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL4
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol4.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol4.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol4.intfb.h	(revision 3330)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL4 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG4 ,NGS3
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL4
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol5.F90	(revision 3330)
@@ -0,0 +1,191 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL5 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2, P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG5   ,NGS4
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA5 , ONLY : ABSA   ,ABSB   ,CCL4   , FRACREFA, FRACREFB,SELFREF,STRRAT1, STRRAT2
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)                  :: P_FORFAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL5',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT1*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(5) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(5) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_LAY)
+  DO IG = 1, NG5
+!---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)
+!-----         
+
+    P_TAU (NGS4+IG,I_LAY) = Z_SPECCOMB(I_LAY) *    &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_WX(1,I_LAY) * CCL4(IG)&
+     & + P_TAUAERL(I_LAY,5)  
+    PFRAC(NGS4+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_SPECCOMB(I_LAY) = P_COLO3(I_LAY) + STRRAT2*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 4._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(5) + JS
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(5) + JS
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+ENDDO
+
+!----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 I_LAY = K_LAYTROP+1, KLEV
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_LAY)
+  DO IG = 1, NG5
+!-- DS_000515
+    P_TAU (NGS4+IG,I_LAY) = Z_SPECCOMB(I_LAY) *    &
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+5,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +    &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+5,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+6,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)+1,IG) +   &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+6,IG)))   &
+     !     &(Z_FAC000 * ABSB(IND0(I_LAY)  ,IG) +&
+     !     & Z_FAC100 * ABSB(IND0(I_LAY)+1,IG) +&
+     !     & Z_FAC010 * ABSB(IND0(I_LAY)+5,IG) +&
+     !     & Z_FAC110 * ABSB(IND0(I_LAY)+6,IG) +&
+     !     & Z_FAC001 * ABSB(IND1(I_LAY)  ,IG) +&
+     !     & Z_FAC101 * ABSB(IND1(I_LAY)+1,IG) +&
+     !     & Z_FAC011 * ABSB(IND1(I_LAY)+5,IG) +&
+     !     & Z_FAC111 * ABSB(IND1(I_LAY)+6,IG))&
+     !-- DS_000515
+     & + P_WX(1,I_LAY) * CCL4(IG)&
+     & + P_TAUAERL(I_LAY,5)  
+    PFRAC(NGS4+IG,I_LAY) = FRACREFB(IG,JS) + Z_FS *&
+     & (FRACREFB(IG,JS+1) - FRACREFB(IG,JS))  
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL5',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL5
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol5.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol5.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol5.intfb.h	(revision 3330)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL5 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2, P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC ,NG5 ,NGS4
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL5
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol6.F90	(revision 3330)
@@ -0,0 +1,106 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL6 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG6   ,NGS5
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA6 , ONLY : ABSA   ,ABSCO2 ,CFC11ADJ , CFC12  ,&
+ & FRACREFA,SELFREF  
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL6',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(6) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(6) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG6
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515  
+    P_TAU (NGS5+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY)*&
+     & (SELFREF(INDS(I_LAY)+1,IG)-SELFREF(INDS(I_LAY),IG))))&
+     & + P_WX(2,I_LAY) * CFC11ADJ(IG)&
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_CO2MULT(I_LAY) * ABSCO2(IG)&
+     & + P_TAUAERL(I_LAY,6)  
+    PFRAC(NGS5+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+!     Nothing important goes on above LAYTROP in this band.
+!-- JJM_000517
+DO IG = 1, NG6
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS5+IG,I_LAY) = 0.0_JPRB &
+     & + P_WX(2,I_LAY) * CFC11ADJ(IG)&
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_TAUAERL(I_LAY,6)  
+    PFRAC(NGS5+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL6',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL6
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol6.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol6.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol6.intfb.h	(revision 3330)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL6 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC ,NG6 ,NGS5
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL6
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol7.F90	(revision 3330)
@@ -0,0 +1,155 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL7 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLO3,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG7   ,NGS6
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA7 , ONLY : ABSA   ,ABSB   ,ABSCO2 ,FRACREFA ,FRACREFB,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      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.
+  
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL7',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLO3(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*Z_SPECPARM
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(7) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(7) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG7
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_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)
+!-----
+
+    P_TAU (NGS6+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_CO2MULT(I_LAY) * ABSCO2(IG)&
+     & + P_TAUAERL(I_LAY,7)  
+    PFRAC(NGS6+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(7) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(7) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG7
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS6+IG,I_LAY) = P_COLO3(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG))&
+     & + P_CO2MULT(I_LAY) * ABSCO2(IG)&
+     & + P_TAUAERL(I_LAY,7)  
+    PFRAC(NGS6+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL7',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL7
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol7.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol7.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol7.intfb.h	(revision 3330)
@@ -0,0 +1,27 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL7 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLO3,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG7 ,NGS6
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL7
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol8.F90	(revision 3330)
@@ -0,0 +1,138 @@
+!*******************************************************************************
+SUBROUTINE RRTM_TAUMOL8 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLO3,P_COLN2O,P_CO2MULT,K_LAYSWTCH,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG8   ,NGS7
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA8 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF,ABSCO2A , ABSCO2B ,&
+ & ABSN2OA , ABSN2OB,CFC12  ,CFC22ADJ, H2OREF  ,&
+ & N2OREF  , O3REF  
+
+!  Input
+!#include "yoeratm.h"
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYSWTCH 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!      REAL TAUAER(JPLAY)
+REAL(KIND=JPRB) :: Z_N2OMULT(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+
+REAL(KIND=JPRB) :: Z_COLREF1, Z_COLREF2, Z_CURRN2O, Z_FP, Z_RATIO, Z_WCOMB1, Z_WCOMB2
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,8),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL8',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYSWTCH
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(8) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(8) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+  Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = P_COLH2O(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG8
+  DO I_LAY = 1, K_LAYSWTCH
+!-- DS_000515
+    P_TAU (NGS7+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG))))&
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_WX(4,I_LAY) * CFC22ADJ(IG)&
+     & + P_CO2MULT(I_LAY) * ABSCO2A(IG)&
+     & + Z_N2OMULT(I_LAY) * ABSN2OA(IG)&
+     & + P_TAUAERL(I_LAY,8)  
+    PFRAC(NGS7+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYSWTCH+1, KLEV
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-7)*5+(K_JT(I_LAY)-1))*NSPB(8) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-6)*5+(K_JT1(I_LAY)-1))*NSPB(8) + 1
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  Z_WCOMB1 = 1.0_JPRB/O3REF(K_JP(I_LAY))
+  Z_WCOMB2 = 1.0_JPRB/O3REF(K_JP(I_LAY)+1)
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = P_COLO3(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG8
+  DO I_LAY = K_LAYSWTCH+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS7+IG,I_LAY) = P_COLO3(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)) &
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_WX(4,I_LAY) * CFC22ADJ(IG)&
+     & + P_CO2MULT(I_LAY) * ABSCO2B(IG)&
+     & + Z_N2OMULT(I_LAY) * ABSN2OB(IG)&
+     & + P_TAUAERL(I_LAY,8)  
+    PFRAC(NGS7+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL8',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL8
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol8.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol8.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol8.intfb.h	(revision 3330)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL8 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLO3,P_COLN2O,P_CO2MULT,K_LAYSWTCH,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC ,NG8 ,NGS7
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYSWTCH
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL8
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol9.F90	(revision 3330)
@@ -0,0 +1,198 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL9 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,P_COLCH4,K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG9   ,NGS8
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA9 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF,ABSN2O  , CH4REF  ,&
+ & ETAREF  , H2OREF ,N2OREF ,STRRAT  
+
+!  Input
+!#include "yoeratm.h"
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYLOW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: JFRAC(JPLAY)
+REAL(KIND=JPRB) :: Z_FFRAC(JPLAY),ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY),IIOFF(JPLAY)
+
+!      REAL TAUAER(JPLAY)
+REAL(KIND=JPRB) :: Z_N2OMULT(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, IOFF, JS, I_LAY, I_NS
+
+REAL(KIND=JPRB) :: Z_COLREF1, Z_COLREF2, Z_CURRN2O, Z_FAC000, Z_FAC001,&
+ & Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101, Z_FAC110, Z_FAC111, &
+ & Z_FP, Z_FS, Z_RATIO, Z_SPECMULT, Z_SPECPARM, Z_WCOMB1, &
+ & Z_WCOMB2  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,9),TAUAER)
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL9',0,ZHOOK_HANDLE)
+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 I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  JFRAC(I_LAY) = JS
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  Z_FFRAC(I_LAY) = Z_FS
+  IF (JS  ==  8) THEN
+    IF (Z_FS <= 0.68_JPRB) THEN
+      Z_FS = Z_FS/0.68_JPRB
+    ELSEIF (Z_FS  <=  0.92_JPRB) THEN
+      JS = JS + 1
+      Z_FS = (Z_FS-0.68_JPRB)/0.24_JPRB
+    ELSE
+      JS = JS + 2
+      Z_FS = (Z_FS-0.92_JPRB)/0.08_JPRB
+    ENDIF
+  ELSEIF (JS  == 9) THEN
+    JS = 10
+    Z_FS = 1.0_JPRB
+    JFRAC(I_LAY) = 8
+    Z_FFRAC(I_LAY) = 1.0_JPRB
+  ENDIF
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  I_NS = JS + INT(Z_FS + 0.5_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(9) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(9) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  IF (I_LAY  ==  K_LAYLOW) IOFF = NG9
+  IF (I_LAY  ==  K_LAYSWTCH) IOFF = 2*NG9
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  IF (I_NS  ==  11) THEN
+    Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+    Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  ELSE
+    Z_WCOMB1 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CH4REF(K_JP(I_LAY)))
+    Z_WCOMB2 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CH4REF(K_JP(I_LAY)+1))
+  ENDIF
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = Z_SPECCOMB(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+
+  ZFS(I_LAY)=Z_FS
+  IIOFF(I_LAY)=IOFF
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG9
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    IOFF=IIOFF(I_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)
+!------         
+
+    P_TAU (NGS8+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+11,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+12,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+11,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+12,IG))+&
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+11,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+11,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+12,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+12,IG))) + &
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + Z_N2OMULT(I_LAY) * ABSN2O(IG+IOFF)&
+     & + P_TAUAERL(I_LAY,9)  
+    PFRAC(NGS8+IG,I_LAY) = FRACREFA(IG,JFRAC(I_LAY)) + Z_FFRAC(I_LAY) *&
+     & (FRACREFA(IG,JFRAC(I_LAY)+1) - FRACREFA(IG,JFRAC(I_LAY)))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(9) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(9) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG9
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS8+IG,I_LAY) = P_COLCH4(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG))&
+     & + P_TAUAERL(I_LAY,9)  
+    PFRAC(NGS8+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL9',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL9
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol9.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol9.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/rrtm_taumol9.intfb.h	(revision 3330)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL9 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,P_COLCH4,K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG9 ,NGS8
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYSWTCH
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYLOW
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL9
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sdl_module.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sdl_module.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sdl_module.F90	(revision 3330)
@@ -0,0 +1,136 @@
+MODULE SDL_MODULE
+
+!    Interface between user applications and system-dependent intrinsic
+!    routines, provided by the computer vendors.
+
+!    All routines which wish to call these routines must contain:
+!    USE SDL_MODULE
+
+! Author :
+! ------
+!   11-Apr-2005 R. El Khatib  *METEO-FRANCE*
+!   26-Apr-2006 S.T.Saarinen  Dr.Hook trace, calls to EC_RAISE, Intel/ifort traceback
+
+USE PARKIND1  ,ONLY : JPIM  ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK ,DR_HOOK
+USE YOMOML, ONLY : OML_MY_THREAD
+
+IMPLICIT NONE
+
+SAVE
+
+PRIVATE
+
+INTEGER, parameter :: SIGABRT = 6 ! Hardcoded
+
+PUBLIC :: SDL_SRLABORT, SDL_DISABORT, SDL_TRACEBACK
+
+CONTAINS
+
+!-----------------------------------------------------------------------------
+SUBROUTINE SDL_TRACEBACK(KTID)
+
+! Purpose :
+! -------
+!   Traceback
+
+!   KTID : thread 
+
+INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL :: KTID
+CALL ABOR1('DANS SDL_TRACEBACK')   ! MPL 8.12.08 et commente toute la suite
+!INTEGER(KIND=JPIM) ITID, IPRINT_OPTION, ILEVEL
+!#ifdef NECSX
+!CHARACTER(LEN=*), PARAMETER :: CLNECMSG = '*** Calling NEC traceback ***'
+!#endif
+!
+!IF (PRESENT(KTID)) THEN
+!  ITID = KTID
+!ELSE
+!  ITID = OML_MY_THREAD()
+!ENDIF
+!
+!IF (LHOOK) THEN
+!  IPRINT_OPTION = 2
+!  ILEVEL = 0
+!  CALL C_DRHOOK_PRINT(0, ITID, IPRINT_OPTION, ILEVEL) ! from drhook.c
+!ENDIF
+!
+!#ifdef VPP
+!  CALL ERRTRA
+!  IF (PRESENT(KTID)) CALL SLEEP(28)
+!#elif RS6K
+!  WRITE(0,*)'SDL_TRACEBACK: Calling XL_TRBK, THRD = ',ITID
+!  CALL XL__TRBK()
+!  WRITE(0,*)'SDL_TRACEBACK: Done XL_TRBK, THRD = ',ITID
+!#elif __INTEL_COMPILER
+!  WRITE(0,*)'SDL_TRACEBACK: Calling INTEL_TRBK, THRD = ',ITID
+!  CALL INTEL_TRBK() ! See ifsaux/utilities/gentrbk.F90
+!  WRITE(0,*)'SDL_TRACEBACK: Done INTEL_TRBK, THRD = ',ITID
+!#elif defined(LINUX) || defined(SUN4)
+!  WRITE(0,*)'SDL_TRACEBACK: Calling LINUX_TRBK, THRD = ',ITID
+!  CALL LINUX_TRBK() ! See ifsaux/utilities/linuxtrbk.c
+!  WRITE(0,*)'SDL_TRACEBACK: Done LINUX_TRBK, THRD = ',ITID
+!#elif defined(NECSX)
+!  WRITE(0,*)'SDL_TRACEBACK: Calling NEC/MESPUT, THRD = ',ITID
+!  CALL MESPUT(CLNECMSG, LEN(CLNECMSG), 1)
+!  WRITE(0,*)'SDL_TRACEBACK: Done NEC/MESPUT, THRD = ',ITID
+!#else
+!  WRITE(0,*)'SDL_TRACEBACK: No proper traceback implemented.'
+!  ! A traceback using dbx-debugger, if available AND 
+!  ! activated via 'export DBXDEBUGGER=1'
+!  WRITE(0,*)'SDL_TRACEBACK: Calling DBX_TRBK, THRD = ',ITID
+!  CALL DBX_TRBK() ! See ifsaux/utilities/linuxtrbk.c
+!  WRITE(0,*)'SDL_TRACEBACK: Done DBX_TRBK, THRD = ',ITID
+!  ! A traceback using gdb-debugger, if available AND 
+!  ! activated via 'export GDBDEBUGGER=1'
+!  WRITE(0,*)'SDL_TRACEBACK: Calling GDB_TRBK, THRD = ',ITID
+!  CALL GDB_TRBK() ! See ifsaux/utilities/linuxtrbk.c
+!  WRITE(0,*)'SDL_TRACEBACK: Done GDB_TRBK, THRD = ',ITID
+!#endif
+
+END SUBROUTINE SDL_TRACEBACK
+!-----------------------------------------------------------------------------
+SUBROUTINE SDL_SRLABORT
+
+! Purpose :
+! -------
+!   To abort in serial environment
+
+!CALL EC_RAISE(SIGABRT)  ! EC_RAISE remplace par ABOR1 MPL 8.12.08
+CALL ABOR1('DANS SRLABORT')
+STOP 'SDL_SRLABORT'
+
+END SUBROUTINE SDL_SRLABORT
+!-----------------------------------------------------------------------------
+SUBROUTINE SDL_DISABORT(KCOMM)
+
+! Purpose :
+! -------
+!   To abort in distributed environment
+
+!   KCOMM : communicator
+
+INTEGER(KIND=JPIM), INTENT(IN) :: KCOMM
+
+INTEGER(KIND=JPIM) :: IRETURN_CODE,IERROR
+
+!MPL 4.12.08
+!#ifdef VPP
+!
+!CALL VPP_ABORT()
+!
+!#else
+!
+!IRETURN_CODE=1
+!CALL MPI_ABORT(KCOMM,IRETURN_CODE,IERROR)
+
+!#endif
+
+!CALL EC_RAISE(SIGABRT) ! In case ever ends up here
+CALL ABOR1('DANS SRLDISABORT')   ! EC_RAISE remplace par ABOR1 MPL 8.12.08
+STOP 'SDL_DISABORT'
+
+END SUBROUTINE SDL_DISABORT
+!-----------------------------------------------------------------------------
+
+END MODULE SDL_MODULE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/seapre.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/seapre.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/seapre.F90	(revision 3330)
@@ -0,0 +1,68 @@
+SUBROUTINE SEAPRE(PARA,KPARA,PSTPRE,KLEV)
+
+!**** *SEAPRE*   - Search corresponding level to input pressure
+
+!     Purpose.
+!     --------
+!           Serach corresponding level of the model to an input pressure
+!           through standard atmosphere.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SEAPRE(PARA,KPARA,PSTPRE,KLEV)
+
+!        Explicit arguments :
+!        --------------------
+!        PARA  : Pressure                           (input)
+!        KPARA  : Level                              (output)
+!        PSTPRE : Standard atmosphere                (input)
+!        KLEV   : Number of level of the model       (input)
+
+!        Implicit arguments :
+!        --------------------
+!        none
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        A. Lasserre-Bigorry
+
+!     Modifications.
+!     --------------
+!        Original : 91-06-10
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PARA 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KPARA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSTPRE(KLEV) 
+INTEGER(KIND=JPIM) :: JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!*      1.  SEARCH OF CORRESPONDING LEVEL
+!           -----------------------------
+IF (LHOOK) CALL DR_HOOK('SEAPRE',0,ZHOOK_HANDLE)
+KPARA=KLEV
+DO JLEV=KLEV,1,-1
+  IF(PARA <= PSTPRE(JLEV)) KPARA=JLEV
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('SEAPRE',1,ZHOOK_HANDLE)
+END SUBROUTINE SEAPRE
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/seapre.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/seapre.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/seapre.intfb.h	(revision 3330)
@@ -0,0 +1,9 @@
+INTERFACE
+SUBROUTINE SEAPRE(PARA,KPARA,PSTPRE,KLEV)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PARA
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPARA
+REAL(KIND=JPRB) ,INTENT(IN) :: PSTPRE(KLEV)
+END SUBROUTINE SEAPRE
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set2pe_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set2pe_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set2pe_mod.F90	(revision 3330)
@@ -0,0 +1,121 @@
+MODULE SET2PE_MOD
+CONTAINS
+SUBROUTINE SET2PE(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
+
+#ifdef DOC
+
+!**** *SET2PE* - Convert from set numbers to PE number
+
+!     Purpose.
+!     --------
+!        Convert from set numbers in either grid-point space or spectral space
+!        to PE number
+
+!**   Interface.
+!     ----------
+!        *CALL* *SET2PE(KPRGPNS,KPRGPEW,KPRTRW,KPRTRV,KPE)
+
+!        Explicit arguments :  
+!        --------------------
+
+!                  input :  KPRGPNS - integer A set number in grid space
+!                                     in the range 1 .. NPRGPNS
+!                           KPRGPEW - integer B set number in grid space
+!                                     in the range 1 .. NPRGPEW
+!                           KPRTRW  - integer A set number in spectral space
+!                                     in the range 1 .. NPRTRW 
+!                           KPRTRV  - integer B set number in spectral space
+!                                     in the range 1 .. NPRTRV 
+!                  output:  KPE     - integer processor number 
+!                                     in the range 1 .. NPROC
+
+!                  Normally, one pair of input set numbers will be set to zero
+!                  SET2PE will compute KPE from the first pair if they are valid numbers.
+!                  else from the other pair,
+
+!        Implicit arguments :  YOMMP parameters
+!                              NPRGPNS,NPRGPEW,NPRTRW,NPRTRV,NPROC
+
+!        --------------------
+!     Method.
+!     -------
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        David Dent *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 98-08-19
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DISTR
+USE EQ_REGIONS_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM),INTENT(IN) :: KPRGPNS,KPRGPEW,KPRTRW,KPRTRV
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KPE
+
+INTEGER(KIND=JPIM) :: IPE,JA
+!     ------------------------------------------------------------------
+
+!*       1.    Choose from input parameters
+!              ----------------------------
+
+IF(KPRGPNS > 0.AND.KPRGPEW > 0) THEN
+
+  IF( LEQ_REGIONS )THEN
+    IF( KPRGPNS > N_REGIONS_NS )THEN
+      WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRGPNS,N_REGIONS_NS
+      CALL ABOR1(' SET2PE INVALID ARGUMENT ')
+    ENDIF
+    IF( KPRGPEW > N_REGIONS(KPRGPNS) )THEN
+      WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRGPEW,N_REGIONS(KPRGPNS)
+      CALL ABOR1(' SET2PE INVALID ARGUMENT ')
+    ENDIF
+    KPE=0
+    DO JA=1,KPRGPNS-1
+      KPE=KPE+N_REGIONS(JA)
+    ENDDO
+    KPE=KPE+KPRGPEW    
+  ELSE
+    IF(KPRGPNS <= NPRGPNS.AND.KPRGPEW <= NPRGPEW) THEN
+
+!*       2.    Grid-space set values supplied
+!              ------------------------------
+
+      KPE=(KPRGPNS-1)*NPRGPEW + KPRGPEW
+    ELSE
+      WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRGPNS,KPRGPEW
+      CALL ABORT_TRANS(' SET2PE INVALID ARGUMENT ')
+    ENDIF
+  ENDIF
+
+ELSE
+
+!*       3.    Spectral space set values supplied
+!              ----------------------------------
+
+  IF(KPRTRW <= NPRTRW.AND.KPRTRV <= NPRTRV) THEN
+    KPE=(KPRTRW-1)*NPRTRV + KPRTRV
+  ELSE
+    WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRTRW,KPRTRV
+    CALL ABORT_TRANS(' SET2PE INVALID ARGUMENT ')
+  ENDIF
+
+ENDIF
+
+END SUBROUTINE SET2PE
+END MODULE SET2PE_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set99.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set99.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set99.F	(revision 3330)
@@ -0,0 +1,59 @@
+      SUBROUTINE SET99(TRIGS,IFAX,N)
+      REAL             TRIGS(N)
+      INTEGER IFAX(*),JFAX(10),NLFAX(7)
+C
+C     SUBROUTINE 'SET99' - COMPUTES FACTORS OF N & TRIGONOMETRIC
+C     FUNCTIONS REQUIRED BY FFT99 & FFT991
+C
+      SAVE NLFAX
+C
+      DATA NLFAX/6,8,5,4,3,2,1/
+C
+      IXXX=1
+C
+      DEL=4.0E0*ASIN(1.0E0)/FLOAT(N)
+      NIL=0
+      NHL=(N/2)-1
+      DO 10 K=NIL,NHL
+      ANGLE=FLOAT(K)*DEL
+      TRIGS(2*K+1)=COS(ANGLE)
+      TRIGS(2*K+2)=SIN(ANGLE)
+   10 CONTINUE
+C
+C     FIND FACTORS OF N (8,6,5,4,3,2; ONLY ONE 8 ALLOWED)
+C     LOOK FOR SIXES FIRST, STORE FACTORS IN DESCENDING ORDER
+      NU=N
+      IFAC=6
+      K=0
+      IL=1
+   20 CONTINUE
+      IF (MOD(NU,IFAC).NE.0) GO TO 30
+      K=K+1
+      JFAX(K)=IFAC
+      IF (IFAC.NE.8) GO TO 25
+      IF (K.EQ.1) GO TO 25
+      JFAX(1)=8
+      JFAX(K)=6
+   25 CONTINUE
+      NU=NU/IFAC
+      IF (NU.EQ.1) GO TO 50
+      IF (IFAC.NE.8) GO TO 20
+   30 CONTINUE
+      IL=IL+1
+      IFAC=NLFAX(IL)
+      IF (IFAC.GT.1) GO TO 20
+C
+      WRITE(6,40) N
+   40 FORMAT(4H1N =,I4,27H - CONTAINS ILLEGAL FACTORS)
+      RETURN
+C
+C     NOW REVERSE ORDER OF FACTORS
+   50 CONTINUE
+      NFAX=K
+      IFAX(1)=NFAX
+      DO 60 I=1,NFAX
+      IFAX(NFAX+2-I)=JFAX(I)
+   60 CONTINUE
+      IFAX(10)=N
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set_resol_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set_resol_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/set_resol_mod.F90	(revision 3330)
@@ -0,0 +1,44 @@
+MODULE SET_RESOL_MOD
+CONTAINS
+SUBROUTINE SET_RESOL(KRESOL)
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_TRANS
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FIELDS
+USE TPM_FFT
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+! Declaration of arguments
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL
+
+! Local varaibles
+INTEGER(KIND=JPIM) :: IRESOL
+
+!     ------------------------------------------------------------------
+
+IRESOL = 1
+IF(PRESENT(KRESOL)) THEN
+  IF(KRESOL < 1 .OR. KRESOL > NMAX_RESOL) THEN
+    WRITE(NOUT,*)'SET_RESOL: UNKNOWN RESOLUTION ',KRESOL,NMAX_RESOL
+    CALL ABORT_TRANS('SET_RESOL:KRESOL < 1 .OR. KRESOL > NMAX_RESOL')
+  ENDIF
+  IRESOL = KRESOL
+ENDIF
+IF(IRESOL /= NCUR_RESOL) THEN
+  NCUR_RESOL = IRESOL 
+  R => DIM_RESOL(NCUR_RESOL)
+  F => FIELDS_RESOL(NCUR_RESOL)
+  G => GEOM_RESOL(NCUR_RESOL)
+  D => DISTR_RESOL(NCUR_RESOL)
+  T => FFT_RESOL(NCUR_RESOL)
+ENDIF
+
+END SUBROUTINE SET_RESOL
+END MODULE SET_RESOL_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_dims_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_dims_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_dims_mod.F90	(revision 3330)
@@ -0,0 +1,37 @@
+MODULE SETUP_DIMS_MOD
+CONTAINS
+SUBROUTINE SETUP_DIMS
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DIM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JM,JN,ISPOLEG
+
+!     ------------------------------------------------------------------
+
+ISPOLEG = 0
+DO JM=0,R%NSMAX
+  DO JN=JM,R%NTMAX+1
+    ISPOLEG = ISPOLEG+1
+  ENDDO
+ENDDO
+R%NSPOLEG = ISPOLEG
+
+R%NSPEC_G = (R%NSMAX+1)*(R%NSMAX+2)/2
+R%NSPEC2_G = R%NSPEC_G*2
+
+R%NDGNH = (R%NDGL+1)/2
+
+R%NLEI1 = R%NSMAX+4+MOD(R%NSMAX+4+1,2)
+R%NLEI3 = R%NDGNH+MOD(R%NDGNH+2,2)
+
+R%NLED3 = R%NTMAX+2+MOD(R%NTMAX+3,2)
+R%NLED4 = R%NTMAX+3+MOD(R%NTMAX+4,2)
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SETUP_DIMS
+END MODULE SETUP_DIMS_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_geom_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_geom_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_geom_mod.F90	(revision 3330)
@@ -0,0 +1,79 @@
+MODULE SETUP_GEOM_MOD
+CONTAINS
+SUBROUTINE SETUP_GEOM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_FIELDS
+USE TPM_GEOMETRY
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZSQM2(R%NDGL)
+INTEGER(KIND=JPIM) :: IDGLU(0:R%NSMAX,R%NDGNH)
+INTEGER(KIND=JPIM) :: JGL,JM
+
+LOGICAL    :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SETUP_GEOM ==='
+
+ALLOCATE (G%NMEN(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'G%NMEN   ',SIZE(G%NMEN   ),SHAPE(G%NMEN   )
+
+IF (G%LREDUCED_GRID) THEN
+  IF (G%LINEAR_GRID) THEN
+    ZSQM2(:) = 0.0_JPRB
+  ELSE
+    ZSQM2(:) = F%R1MU2(:)
+  ENDIF
+  G%NMEN(1) = MIN(R%NSMAX,INT(REAL(G%NLOEN(1)-1,JPRB)/(2.0_JPRB+ZSQM2(1))))
+  DO JGL=2,R%NDGNH
+    G%NMEN(JGL) = MIN(R%NSMAX,MAX(G%NMEN(JGL-1),&
+     &INT(REAL(G%NLOEN(JGL)-1,JPRB)/(2.0_JPRB+ ZSQM2(JGL)))))
+  ENDDO
+  !       * SOUTHERN HEMISPHERE :
+  G%NMEN(R%NDGL) = MIN(R%NSMAX,INT(REAL(G%NLOEN(R%NDGL)-1,JPRB)/(2.0_JPRB+ZSQM2(R%NDGL))))
+  DO JGL=R%NDGL-1, R%NDGNH+1, -1
+    G%NMEN(JGL) = MIN(R%NSMAX,MAX(G%NMEN(JGL+1),&
+     &INT(REAL(G%NLOEN(JGL)-1,JPRB)/(2.0_JPRB+ ZSQM2(JGL)))))
+  ENDDO
+  
+ELSE
+  G%NMEN(:) = R%NSMAX
+ENDIF
+IF(LLP1) THEN
+  WRITE(NOUT,FMT='('' (JGL,G%NLOEN,G%NMEN) '')')
+  WRITE(NOUT,FMT='(8(1X,''('',I4,I4,I4,'')''))')&
+   &(JGL,G%NLOEN(JGL),G%NMEN(JGL),JGL=1,R%NDGL)
+ENDIF
+ALLOCATE(G%NDGLU(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'G%NDGLU   ',SIZE(G%NDGLU   ),SHAPE(G%NDGLU   )
+IDGLU(:,:) = 0
+G%NDGLU(:) = 0
+DO JGL=1,R%NDGNH
+  DO JM=0,G%NMEN(JGL)
+    IDGLU(JM,JGL) = 1
+  ENDDO
+ENDDO
+DO JM=0,R%NSMAX
+  DO JGL=1,R%NDGNH
+    G%NDGLU(JM) = G%NDGLU(JM)+IDGLU(JM,JGL)
+  ENDDO
+ENDDO
+IF(LLP1) THEN
+    WRITE(NOUT,FMT='('' (JM,G%NDGLU) '')')
+  WRITE(NOUT,FMT='(10(1X,''('',I4,I4,'')''))')&
+   &(JM,G%NDGLU(JM),JM=0,R%NSMAX)
+ENDIF
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SETUP_GEOM
+END MODULE SETUP_GEOM_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_trans.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_trans.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_trans.F90	(revision 3330)
@@ -0,0 +1,228 @@
+SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KLOEN,LDLINEAR_GRID,LDSPLIT,&
+&KAPSETS,KTMAX,KRESOL)
+
+!**** *SETUP_TRANS* - Setup transform package for specific resolution
+
+!     Purpose.
+!     --------
+!     To setup for making spectral transforms. Each call to this routine
+!     creates a new resolution up to a maximum of NMAX_RESOL set up in
+!     SETUP_TRANS0. You need to call SETUP_TRANS0 before this routine can
+!     be called.
+
+!**   Interface.
+!     ----------
+!     CALL SETUP_TRANS(...)
+
+!     Explicit arguments : KLOEN,LDLINEAR_GRID,LDSPLIT,KAPSETS are optional arguments
+!     -------------------- 
+!     KSMAX - spectral truncation required
+!     KDGL  - number of Gaussian latitudes
+!     KLOEN(:) - number of points on each Gaussian latitude [2*KDGL]
+!     LDSPLIT - true if split latitudes in grid-point space [false]
+!     LDLINEAR_GRID - true if linear grid
+!     KAPSETS - Number of apple sets in the distribution [0]
+!     KTMAX - truncation order for tendencies?
+!     KRESOL - the resolution identifier
+
+!     KSMAX,KDGL,KTMAX and KLOEN are GLOBAL variables desribing the resolution
+!     in spectral and grid-point space
+
+!     LDSPLIT and KAPSETS describe the distribution among processors of
+!     grid-point data and has no relevance if you are using a single processor
+ 
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL   - set resolution
+!     ----------  SETUP_DIMS  - setup distribution independent dimensions
+!                 SUMP_TRANS_PRELEG - first part of setup of distr. environment
+!                 SULEG - Compute Legandre polonomial and Gaussian 
+!                         Latitudes and Weights
+!                 SETUP_GEOM - Compute arrays related to grid-point geometry
+!                 SUMP_TRANS - Second part of setup of distributed environment
+!                 SUFFT - setup for FFT
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+!ifndef INTERFACE
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FIELDS
+USE TPM_FFT
+
+USE SET_RESOL_MOD
+USE SETUP_DIMS_MOD
+USE SUMP_TRANS_MOD
+USE SUMP_TRANS_PRELEG_MOD
+USE SULEG_MOD
+USE SETUP_GEOM_MOD
+USE SUFFT_MOD
+USE ABORT_TRANS_MOD
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!endif INTERFACE
+
+IMPLICIT NONE
+
+! Dummy arguments
+
+INTEGER(KIND=JPIM) ,INTENT(IN) :: KSMAX,KDGL
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KLOEN(:)
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDLINEAR_GRID
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDSPLIT
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KAPSETS
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KTMAX
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(OUT):: KRESOL
+
+!ifndef INTERFACE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JGL
+
+LOGICAL :: LLP1,LLP2
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SETUP_TRANS',0,ZHOOK_HANDLE)
+
+IF(MSETUP0 /= 1) THEN
+  CALL ABORT_TRANS('SETUP_TRANS: SETUP_TRANS0 HAS TO BE CALLED BEFORE SETUP_TRANS')
+ENDIF
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SETUP_TRANS ==='
+
+! Allocate resolution dependent structures
+IF(.NOT. ALLOCATED(DIM_RESOL)) THEN
+  NDEF_RESOL = 1
+  ALLOCATE(DIM_RESOL(NMAX_RESOL))
+  ALLOCATE(FIELDS_RESOL(NMAX_RESOL))
+  ALLOCATE(GEOM_RESOL(NMAX_RESOL))
+  ALLOCATE(DISTR_RESOL(NMAX_RESOL))
+  ALLOCATE(FFT_RESOL(NMAX_RESOL))
+ELSE
+  NDEF_RESOL = NDEF_RESOL+1
+  IF(NDEF_RESOL > NMAX_RESOL) THEN
+    CALL ABORT_TRANS('SETUP_TRANS:NDEF_RESOL > NMAX_RESOL')
+  ENDIF
+ENDIF
+
+IF (PRESENT(KRESOL)) THEN
+  KRESOL=NDEF_RESOL
+ENDIF
+
+! Point at structures due to be initialized
+CALL SET_RESOL(NDEF_RESOL)
+
+IF(LLP1) WRITE(NOUT,*) '=== DEFINING RESOLUTION ',NCUR_RESOL
+
+
+
+! Defaults for optional arguments
+
+
+G%LREDUCED_GRID = .FALSE.
+G%LINEAR_GRID = .FALSE.
+D%LSPLIT = .FALSE.
+D%NAPSETS = 0
+
+! NON-OPTIONAL ARGUMENTS
+R%NSMAX = KSMAX
+R%NDGL  = KDGL
+R%NDLON = 2*KDGL
+
+IF (KDGL <= 0 .OR. MOD(KDGL,2) /= 0) THEN
+  CALL ABORT_TRANS ('SETUP_TRANS: KDGL IS NOT A POSITIVE, EVEN NUMBER')
+ENDIF
+
+! Optional arguments
+
+ALLOCATE(G%NLOEN(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'NLOEN   ',SIZE(G%NLOEN   ),SHAPE(G%NLOEN   )
+IF(PRESENT(KLOEN)) THEN
+  DO JGL=1,R%NDGL
+    IF(KLOEN(JGL) /= R%NDLON) THEN
+      G%LREDUCED_GRID = .TRUE.
+      EXIT
+    ENDIF
+  ENDDO
+ENDIF
+
+IF (G%LREDUCED_GRID) THEN
+  G%NLOEN(:) = KLOEN(1:R%NDGL)
+ELSE
+  G%NLOEN(:) = R%NDLON
+ENDIF
+
+IF(PRESENT(LDSPLIT)) THEN
+  D%LSPLIT = LDSPLIT
+ENDIF
+
+IF(PRESENT(KAPSETS)) THEN
+  D%NAPSETS = KAPSETS
+ENDIF
+
+IF(PRESENT(KTMAX)) THEN
+  R%NTMAX = KTMAX
+ELSE
+  R%NTMAX = R%NSMAX
+ENDIF
+IF(R%NTMAX /= R%NSMAX) THEN
+  !This SHOULD work but I don't know how to test it /MH
+  CALL ABORT_TRANS('SETUP_TRANS:R%NTMAX /= R%NSMAX HAS NOT BEEN VALIDATED')
+ENDIF
+!Temporary?
+IF(PRESENT(LDLINEAR_GRID)) THEN
+  G%LINEAR_GRID = LDLINEAR_GRID
+ELSEIF(R%NSMAX > (R%NDLON+3)/3) THEN
+  G%LINEAR_GRID = .TRUE.
+ENDIF  
+
+!     Setup resolution dependent structures
+!     -------------------------------------
+
+! Setup distribution independent dimensions
+CALL SETUP_DIMS
+
+! First part of setup of distributed environment
+CALL SUMP_TRANS_PRELEG
+
+! Compute Legandre polonomial and Gaussian Latitudes and Weights
+CALL SULEG
+
+!CALL GSTATS(1802,0) MPL 2.12.08
+! Compute arrays related to grid-point geometry
+CALL SETUP_GEOM
+
+! Second part of setup of distributed environment
+CALL SUMP_TRANS
+
+! Initialize Fast Fourier Transform package
+CALL SUFFT
+!CALL GSTATS(1802,1)  MPL 2.12.08
+
+
+IF (LHOOK) CALL DR_HOOK('SETUP_TRANS',1,ZHOOK_HANDLE)
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+!endif INTERFACE
+
+END SUBROUTINE SETUP_TRANS
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_trans.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_trans.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/setup_trans.h	(revision 3330)
@@ -0,0 +1,73 @@
+SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KLOEN,LDLINEAR_GRID,LDSPLIT,&
+&KAPSETS,KTMAX,KRESOL)
+
+!**** *SETUP_TRANS* - Setup transform package for specific resolution
+
+!     Purpose.
+!     --------
+!     To setup for making spectral transforms. Each call to this routine
+!     creates a new resolution up to a maximum of NMAX_RESOL set up in
+!     SETUP_TRANS0. You need to call SETUP_TRANS0 before this routine can
+!     be called.
+
+!**   Interface.
+!     ----------
+!     CALL SETUP_TRANS(...)
+
+!     Explicit arguments : KLOEN,LDLINEAR_GRID,LDSPLIT,KAPSETS are optional arguments
+!     --------------------
+!     KSMAX - spectral truncation required
+!     KDGL  - number of Gaussian latitudes
+!     KLOEN(:) - number of points on each Gaussian latitude [2*KDGL]
+!     LDSPLIT - true if split latitudes in grid-point space [false]
+!     LDLINEAR_GRID - true if linear grid
+!     KAPSETS - Number of apple sets in the distribution [0]
+!     KTMAX - truncation order for tendencies?
+!     KRESOL - the resolution identifier
+
+!     KSMAX,KDGL,KTMAX and KLOEN are GLOBAL variables desribing the resolution
+!     in spectral and grid-point space
+
+!     LDSPLIT and KAPSETS describe the distribution among processors of
+!     grid-point data and has no relevance if you are using a single processor
+
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL   - set resolution
+!     ----------  SETUP_DIMS  - setup distribution independent dimensions
+!                 SUMP_TRANS_PRELEG - first part of setup of distr. environment
+!                 SULEG - Compute Legandre polonomial and Gaussian
+!                         Latitudes and Weights
+!                 SETUP_GEOM - Compute arrays related to grid-point geometry
+!                 SUMP_TRANS - Second part of setup of distributed environment
+!                 SUFFT - setup for FFT
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+! Dummy arguments
+
+INTEGER(KIND=JPIM) ,INTENT(IN) :: KSMAX,KDGL
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KLOEN(:)
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDLINEAR_GRID
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDSPLIT
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KAPSETS
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KTMAX
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(OUT):: KRESOL
+
+
+END SUBROUTINE SETUP_TRANS
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cldprop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cldprop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cldprop.F90	(revision 3330)
@@ -0,0 +1,340 @@
+SUBROUTINE SRTM_CLDPROP &
+ & ( KLEV, K_ICLDATM, K_INFLAG, K_ICEFLAG, K_LIQFLAG, K_NSTR,&
+ & P_CLDFRAC, P_CLDDAT1, P_CLDDAT2, P_CLDDAT3, P_CLDDAT4, P_CLDDATMOM,&
+ & P_TAUCLDORIG, P_TAUCLOUD, P_SSACLOUD, P_XMOM &
+ & )  
+
+!  path:      $Source: /storm/rc1/cvsroot/rc/rrtm_sw/src/cldprop_sw.f,v $
+!  author:    $Author: jdelamer $
+!  revision:  $Revision: 2.6 $
+!  created:   $Date: 2002/04/04 18:29:47 $
+
+!  PURPOSE:  COMPUTE THE CLOUD OPTICAL DEPTH(S) FOR EACH CLOUDY
+!  LAYER.  NOTE:  ONLY INFLAG = 0 AND INFLAG=2/LIQFLAG=1,
+!  ICEFLAG=3
+!  (HU & STAMNES, Q. FU) ARE IMPLEMENTED.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM ,  ONLY : JPLAY, JPBAND, JPB1, JPB2
+USE YOESRTOP,  ONLY : EXTLIQ1, SSALIQ1, ASYLIQ1 &
+ & , EXTICE3, SSAICE3, ASYICE3, FDLICE3 &
+ & , FDELTA , EXTCOICE, SSACOICE, GICE, FORWICE &
+ & , EXTCOLIQ, SSACOLIQ, GLIQ, FORWLIQ  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+!-- real arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_ICLDATM 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INFLAG 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_ICEFLAG 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LIQFLAG 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_NSTR 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDFRAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDATMOM(0:16,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: P_TAUCLDORIG(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: P_TAUCLOUD(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SSACLOUD(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_XMOM(0:16,JPLAY,JPBAND) 
+!-- integer arguments
+
+!-- real locals
+REAL(KIND=JPRB) :: Z_EPS
+REAL(KIND=JPRB) :: Z_TAUCLDORIG_A, Z_FFP, Z_FFP1, Z_FFPSSA, Z_SSACLOUD_A, Z_TAUCLOUD_A
+REAL(KIND=JPRB) :: Z_CWP, Z_FICE, Z_RADICE, Z_FACTOR, Z_FINT, Z_FLIQ, Z_RADLIQ
+REAL(KIND=JPRB) :: Z_TAUICEORIG, Z_SCATICE, Z_SSAICE, Z_TAUICE &
+ & , Z_TAULIQORIG, Z_SCATLIQ, Z_SSALIQ, Z_TAULIQ  
+
+!-- integer locals
+INTEGER(KIND=JPIM) :: I_NCBANDS, I_NLAYERS
+INTEGER(KIND=JPIM) :: IB, IB1, IB2, I_LAY, ISTR , INDEX
+INTEGER(KIND=JPIM) :: I_NDBUG
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ 
+!     INCLUDE 'param.f'
+
+!      COMMON /CONTROL/   IAER, NSTR, IOUT, ISTART, IEND, ICLD 
+
+!      COMMON /PROFILE/   NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),
+!     &                   PZ(0:MXLAY),TZ(0:MXLAY)
+
+!      COMMON /CLOUDIN/   INFLAG,CLDDAT1(MXLAY),CLDDAT2(MXLAY),
+!     &                   ICEFLAG,LIQFLAG,CLDDAT3(MXLAY),CLDDAT4(MXLAY),
+!     &                   CLDDATMOM(0:16,MXLAY)
+
+!      COMMON /CLOUDDAT/  NCBANDS,CLDFRAC(MXLAY),
+!     &     TAUCLOUD(MXLAY,NBANDS),SSACLOUD(MXLAY,NBANDS),
+!     &     XMOM(0:16,MXLAY,NBANDS),TAUCLDORIG(MXLAY,NBANDS)
+
+!      COMMON /HVERSN/    HVRRTM,HVRRTR,HVRATM,HVRSET,HVRTAU,
+!     *                   HVDUM1(4),HVRUTL,HVREXT,
+!     *                   HVRD1M,HVRR1M,HVREPK,HVRLPK,HVRAER,HVRBKA,
+!     *                   HVRBKB,HVRCLD,HVRDIS,HVRLAM,HVRPAR
+
+!      CHARACTER*15 HVRRTM,HVRRTR,HVRATM,HVRSET,HVRTAU,
+!     *            HVDUM1,HVRUTL,HVREXT,
+!     *            HVRD1M,HVRR1M,HVREPK,HVRLPK,HVRAER,HVRBKA,
+!     *            HVRBKB,HVRCLD,HVRDIS,HVRLAM,HVRPAR
+
+!      DIMENSION ABSICE0(2), ABSICE1(2,5), ABSICE2(40,16)
+!      DIMENSION ABSLIQ1(58,16)
+
+!      DIMENSION ABSCOICE(NBANDS), ABSCOLIQ(NBANDS)
+!      DIMENSION EXTCOLIQ(NBANDS),SSACOLIQ(NBANDS),GLIQ(NBANDS)
+!      DIMENSION EXTCOICE(NBANDS),SSACOICE(NBANDS),GICE(NBANDS)
+!      DIMENSION FORWLIQ(NBANDS),FORWICE(NBANDS)
+
+! Added for SW
+!      DIMENSION EXTLIQ1(58,NBANDS), SSALIQ1(58,NBANDS), 
+!     &     ASYLIQ1(58,NBANDS)
+!      DIMENSION EXTICE3(27,NBANDS), SSAICE3(27,NBANDS),
+!     &     ASYICE3(27,NBANDS),FDLICE3(28,NBANDS)
+!      DIMENSION FDELTA(NBANDS)
+
+!DATA EPS /1.E-6/
+
+! HVRCLD = '$Revision: 2.6 $'
+
+IF (LHOOK) CALL DR_HOOK('SRTM_CLDPROP',0,ZHOOK_HANDLE)
+Z_EPS = 1.E-06_JPRB
+I_NDBUG = 3
+
+K_ICLDATM = 0
+I_NCBANDS = 29
+I_NLAYERS = KLEV
+IB1     = JPB1
+IB2     = JPB2
+
+IF (I_NDBUG <= 2) THEN
+  print *,'cldprop before loop K_INFLAG, K_ICEFLAG, K_LIQFLAG:',K_INFLAG,K_ICEFLAG,K_LIQFLAG,IB1,IB2
+ENDIF
+
+DO I_LAY = 1, I_NLAYERS
+
+  IF (P_CLDFRAC(I_LAY) >= Z_EPS) THEN
+    K_ICLDATM = 1
+
+    IF (I_NDBUG <= 2) THEN
+      print 9101,I_LAY,K_ICLDATM,P_CLDFRAC(I_LAY),P_CLDDAT1(I_LAY),P_CLDDAT2(I_LAY),P_CLDDAT3(I_LAY)&
+       & ,P_CLDDAT4(I_LAY),(P_CLDDATMOM(ISTR,I_LAY),ISTR=0,K_NSTR)  
+      9101  format(1x,'Cld :',2I3,f7.4,7E12.5)
+    ENDIF
+
+!   Ice clouds and water clouds combined.
+    IF (K_INFLAG == 0) THEN
+      Z_TAUCLDORIG_A = P_CLDDAT1(I_LAY)
+      Z_FFP = P_CLDDATMOM(K_NSTR,I_LAY)
+      Z_FFP1 = 1.0 - Z_FFP
+      Z_FFPSSA = 1.0 - Z_FFP * P_CLDDAT2(I_LAY)
+      Z_SSACLOUD_A = Z_FFP1*P_CLDDAT2(I_LAY)/Z_FFPSSA
+      Z_TAUCLOUD_A = Z_FFPSSA*Z_TAUCLDORIG_A
+
+!       DO IB = 16,NBANDS
+      DO IB = IB1 , IB2
+        P_TAUCLDORIG(I_LAY,IB) = Z_TAUCLDORIG_A
+        P_SSACLOUD(I_LAY,IB) = Z_SSACLOUD_A
+        P_TAUCLOUD(I_LAY,IB) = Z_TAUCLOUD_A
+
+        DO ISTR = 0,K_NSTR
+          P_XMOM(ISTR,I_LAY,IB) = (P_CLDDATMOM(ISTR,I_LAY) - Z_FFP)/ &
+           & (Z_FFP1)  
+        ENDDO
+      ENDDO
+
+!   Separate treatement of ice clouds and water clouds.
+    ELSEIF(K_INFLAG == 2) THEN       
+      Z_CWP = P_CLDDAT1(I_LAY)
+      Z_FICE = P_CLDDAT2(I_LAY)
+      Z_RADICE = P_CLDDAT3(I_LAY)
+
+      IF (I_NDBUG <= 1) THEN
+        print 9102,I_LAY,Z_CWP,Z_FICE,Z_RADICE
+        9102     format(1x,'A',I3,3E13.6)
+      ENDIF
+
+!   Calculation of absorption coefficients due to ice clouds.
+      IF (Z_FICE == 0.0) THEN
+!         NCBANDS = 29
+!         DO IB = 16, NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOICE(IB) = 0.0_JPRB
+          SSACOICE(IB) = 1.0_JPRB
+          GICE(IB)     = 1.0_JPRB
+          FORWICE(IB)  = 0.0_JPRB
+
+          IF (I_NDBUG <= 1) THEN
+            print 9103,I_LAY,Z_FICE,Z_CWP,Z_RADICE,IB,EXTCOICE(IB),SSACOICE(IB),GICE(IB),FORWICE(IB)
+            9103         format(1x,'B',I3,F6.3,2E13.6,I3,4E12.5)
+          ENDIF
+
+        ENDDO
+
+      ELSEIF (K_ICEFLAG == 3) THEN
+        IF (Z_RADICE < 10.0 .OR. Z_RADICE > 140.0) STOP 'ICE EFFECTIVE SIZE OUT OF BOUNDS'
+!         NCBANDS = 29
+        Z_FACTOR = (Z_RADICE - 5._JPRB)/5._JPRB
+        INDEX = INT(Z_FACTOR)
+        IF (INDEX == 27) INDEX = 26
+        Z_FINT = Z_FACTOR - REAL(INDEX)
+
+!         DO IB=16,NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOICE(IB) = Z_FICE * (EXTICE3(INDEX,IB) + Z_FINT * &
+           & (EXTICE3(INDEX+1,IB) - EXTICE3(INDEX,IB)))  
+          SSACOICE(IB) = SSAICE3(INDEX,IB) + Z_FINT * &
+           & (SSAICE3(INDEX+1,IB) - SSAICE3(INDEX,IB))  
+          GICE(IB) = ASYICE3(INDEX,IB) + Z_FINT * &
+           & (ASYICE3(INDEX+1,IB) - ASYICE3(INDEX,IB))  
+          FDELTA(IB) = FDLICE3(INDEX,IB) + Z_FINT * &
+           & (FDLICE3(INDEX+1,IB) - FDLICE3(INDEX,IB))  
+          if (fdelta(ib) < 0.0) STOP 'FDELTA LESS THAN 0.0'
+          if (fdelta(ib) > 1.0) STOP 'FDELTA GT THAN 1.0'                     
+          FORWICE(IB) = FDELTA(IB) + 0.5 / SSACOICE(IB)
+! See Fu 1996 p. 2067 
+          IF (FORWICE(IB) > GICE(IB)) FORWICE(IB) = GICE(IB)
+! Check to ensure all calculated quantities are within physical limits.
+          if (extcoice(ib) < 0.0_JPRB) STOP 'ICE EXTINCTION LESS THAN 0.0'
+          if (ssacoice(ib) > 1.0_JPRB) STOP 'ICE SSA GRTR THAN 1.0'
+          if (ssacoice(ib) < 0.0_JPRB) STOP 'ICE SSA LESS THAN 0.0'
+          if (gice(ib) > 1.0_JPRB) STOP 'ICE ASYM GRTR THAN 1.0'
+          if (gice(ib) < 0.0_JPRB) STOP 'ICE ASYM LESS THAN 0.0'
+
+          IF (I_NDBUG <= 1) THEN
+            print 9104,I_LAY,Z_FICE,Z_CWP,Z_RADICE,IB,EXTCOICE(IB),SSACOICE(IB),GICE(IB),FORWICE(IB),FDELTA(IB)
+            9104         format(1x,'C',I3,F5.3,2E13.6,I3,5E12.5)
+          ENDIF
+
+        ENDDO
+      ENDIF
+      print *,'end of ice computations for I_LAY=',I_LAY
+                  
+!  Calculation of absorption coefficients due to water clouds.
+      Z_FLIQ = 1. - Z_FICE
+      IF (Z_FLIQ == 0.0) THEN
+!         NCBANDS = 29
+!         DO IB = 16, NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOLIQ(IB) = 0.0
+          SSACOLIQ(IB) = 1.0
+          GLIQ(IB) = 1.0
+          FORWLIQ(IB) = 0.0
+
+          IF (I_NDBUG <= 1) THEN
+            print 9105,I_LAY,Z_FLIQ,Z_CWP,IB,EXTCOLIQ(IB),SSACOLIQ(IB),GLIQ(IB),FORWLIQ(IB)
+            9105         format(1x,'D',I3,F5.3,1E13.6,I3,4E12.5)
+          ENDIF
+
+        ENDDO
+
+      ELSEIF (K_LIQFLAG == 1) THEN
+        Z_RADLIQ = P_CLDDAT4(I_LAY)
+        IF (Z_RADLIQ < 1.5 .OR. Z_RADLIQ > 60.) STOP 'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
+        INDEX = INT(Z_RADLIQ - 1.5)
+        IF (INDEX == 0) INDEX = 1
+        IF (INDEX == 58) INDEX = 57
+        Z_FINT = Z_RADLIQ - 1.5 - REAL(INDEX)
+!         NCBANDS = 29
+
+!         DO IB = 16, NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOLIQ(IB) = Z_FLIQ * (EXTLIQ1(INDEX,IB) + Z_FINT * &
+           & (EXTLIQ1(INDEX+1,IB) - (EXTLIQ1(INDEX,IB))))  
+          SSACOLIQ(IB) = SSALIQ1(INDEX,IB) + Z_FINT * &
+           & (SSALIQ1(INDEX+1,IB) - SSALIQ1(INDEX,IB))  
+          GLIQ(IB) = ASYLIQ1(INDEX,IB) + Z_FINT * &
+           & (ASYLIQ1(INDEX+1,IB) - ASYLIQ1(INDEX,IB))  
+          FORWLIQ(IB) = GLIQ(IB)**K_NSTR
+! Check to ensure all calculated quantities are within physical limits.
+          if (extcoliq(ib) < 0.0_JPRB) STOP 'LIQUID EXTINCTION LESS THAN 0.0'
+          if (ssacoliq(ib) > 1.0_JPRB) STOP 'LIQUID SSA GRTR THAN 1.0'
+          if (ssacoliq(ib) < 0.0_JPRB) STOP 'LIQUID SSA LESS THAN 0.0'
+          if (gliq(ib) > 1.0_JPRB) STOP 'LIQUID ASYM GRTR THAN 1.0'
+          if (gliq(ib) < 0.0_JPRB) STOP 'LIQUID ASYM LESS THAN 0.0'
+
+          IF (I_NDBUG <= 1) THEN
+            print 9106,I_LAY,Z_FLIQ,Z_CWP,Z_RADLIQ,IB,EXTCOLIQ(IB),SSACOLIQ(IB),GLIQ(IB),FORWLIQ(IB)
+            9106         format(1x,'E',I3,F5.3,2E13.6,I3,5E12.5)
+          ENDIF
+
+        ENDDO
+      ENDIF
+
+      IF (I_NDBUG <= 1) THEN
+        print *,'end of liquid water computations for I_LAY=',I_LAY
+      ENDIF
+
+!       DO IB = 16, NCBANDS
+      DO IB = IB1 , IB2
+        Z_TAULIQORIG = Z_CWP * EXTCOLIQ(IB)
+        Z_TAUICEORIG = Z_CWP * EXTCOICE(IB)
+        P_TAUCLDORIG(I_LAY,IB) = Z_TAULIQORIG + Z_TAUICEORIG
+
+        IF (I_NDBUG <= 1) THEN
+          print 9107,IB,Z_TAULIQORIG,Z_TAUICEORIG,P_TAUCLDORIG(I_LAY,IB),Z_CWP &
+           & ,EXTCOLIQ(IB),EXTCOICE(IB),SSACOLIQ(IB),SSACOICE(IB) &
+           & ,FORWLIQ(IB),FORWICE(IB)  
+          9107       format(1x,'F',I3,10E12.5)
+        ENDIF
+
+        Z_SSALIQ = SSACOLIQ(IB) * (1. - FORWLIQ(IB)) / &
+         & (1. - FORWLIQ(IB) * SSACOLIQ(IB))  
+        Z_TAULIQ =  (1. - FORWLIQ(IB) * SSACOLIQ(IB)) * &
+         & Z_TAULIQORIG  
+        Z_SSAICE = SSACOICE(IB) * (1. - FORWICE(IB)) / &
+         & (1. - FORWICE(IB) * SSACOICE(IB))  
+        Z_TAUICE =  (1. - FORWICE(IB) * SSACOICE(IB)) * &
+         & Z_TAUICEORIG  
+        Z_SCATLIQ = Z_SSALIQ * Z_TAULIQ
+        Z_SCATICE = Z_SSAICE * Z_TAUICE
+        P_TAUCLOUD(I_LAY,IB) = Z_TAULIQ + Z_TAUICE
+        P_SSACLOUD(I_LAY,IB) = (Z_SCATLIQ + Z_SCATICE) / &
+         & P_TAUCLOUD(I_LAY,IB)  
+        P_XMOM(0,I_LAY,IB) = 1.0
+
+        IF (I_NDBUG <= 1) THEN
+          print 9108,IB,Z_TAULIQORIG,Z_TAUICEORIG,Z_SSALIQ,Z_TAULIQ,Z_SCATLIQ,Z_SSAICE,Z_TAUICE,Z_SCATICE
+          9108       format(1x,'G',I3,8E13.6)
+        ENDIF
+
+        DO ISTR = 1, K_NSTR
+!This commented code is the standard method for delta-m scaling. In accordance
+!  with the 1996 Fu paper, equation A.3, the moments for ice were calculated
+!  as in the uncommented code.
+!                     XMOM(ISTR,LAY,IB) = (SCATLIQ *  &
+!     &                    (GLIQ(IB)**ISTR - FORWLIQ(IB)) / &
+!     &                    (1. - FORWLIQ(IB)) &
+!     &                    + SCATICE * &
+!     &                    (GICE(IB)**ISTR - FORWICE(IB)) /  &
+!     &                    (1. - FORWICE(IB)))/(SCATLIQ + SCATICE)
+
+          P_XMOM(ISTR,I_LAY,IB) = (1.0/(Z_SCATLIQ+Z_SCATICE))* &
+           & (Z_SCATLIQ*(GLIQ(IB)**ISTR - FORWLIQ(IB)) / &
+           & (1. - FORWLIQ(IB)) &
+           & + Z_SCATICE * &
+           & ((gice(ib)-forwice(ib))/(1.0-forwice(ib)))**ISTR)  
+        ENDDO
+      ENDDO
+
+    ENDIF
+
+  ENDIF
+
+ENDDO
+
+IF (I_NDBUG <= 1) THEN
+  print *,'about to leave SRTM_CLDPROP'
+ENDIF
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CLDPROP',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CLDPROP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cldprop.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cldprop.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cldprop.intfb.h	(revision 3330)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE SRTM_CLDPROP&
+ & ( KLEV, K_ICLDATM, K_INFLAG, K_ICEFLAG, K_LIQFLAG, K_NSTR,&
+ & P_CLDFRAC, P_CLDDAT1, P_CLDDAT2, P_CLDDAT3, P_CLDDAT4, P_CLDDATMOM,&
+ & P_TAUCLDORIG, P_TAUCLOUD, P_SSACLOUD, P_XMOM&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPBAND, JPB1, JPB2
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_ICLDATM
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INFLAG
+INTEGER(KIND=JPIM),INTENT(IN) :: K_ICEFLAG
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LIQFLAG
+INTEGER(KIND=JPIM),INTENT(IN) :: K_NSTR
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDATMOM(0:16,JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: P_TAUCLDORIG(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: P_TAUCLOUD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SSACLOUD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_XMOM(0:16,JPLAY,JPBAND)
+END SUBROUTINE SRTM_CLDPROP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb16.F90	(revision 3330)
@@ -0,0 +1,103 @@
+SUBROUTINE SRTM_CMBGB16
+
+!
+!  Original version:       Michael J. Iacono; July, 1998
+!  Revision for RRTM_SW:   Michael J. Iacono; November, 2002
+!  Revision for RRTMG_SW:  Michael J. Iacono; December, 2003
+!
+!  The subroutines CMBGB16->CMBGB29 input the absorption coefficient
+!  data for each band, which are defined for 16 g-points and 14 spectral
+!  bands. The data are combined with appropriate weighting following the
+!  g-point mapping arrays specified in RRTMG_SW_INIT.  Solar source 
+!  function data in array SFLUXREF are combined without weighting.  All
+!  g-point reduced data are put into new arrays for use in RRTMG_SW.
+!
+!  BAND 16:  2600-3250 cm-1 (low key- H2O,CH4; high key - CH4)
+!
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGN, RWGT
+USE YOESRTA16, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB16',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(1)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(1)
+  ZSUMF = 0.
+  DO IPR = 1, NGN(IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF = ZSUMF + SFLUXREF(IPRSM)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB16',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB16
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb16.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb16.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb16.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB16
+END SUBROUTINE SRTM_CMBGB16
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb17.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb17.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb17.F90	(revision 3330)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_CMBGB17
+
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA17, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB17',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(2)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(1)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+16)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(2)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(1)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KB(JN,JT,JP,IPRSM)*RWGT(IPRSM+16)
+        ENDDO
+        KBC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB17',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB17
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb17.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb17.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb17.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB17
+END SUBROUTINE SRTM_CMBGB17
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb18.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb18.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb18.F90	(revision 3330)
@@ -0,0 +1,92 @@
+SUBROUTINE SRTM_CMBGB18
+
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA18, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB18',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(3)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(2)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+32)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+32)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+32)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB18',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB18
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb18.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb18.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb18.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB18
+END SUBROUTINE SRTM_CMBGB18
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb19.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb19.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb19.F90	(revision 3330)
@@ -0,0 +1,92 @@
+SUBROUTINE SRTM_CMBGB19
+
+!     BAND 19:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA19, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB19',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(4)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(3)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+48)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB19',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB19
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb19.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb19.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb19.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB19
+END SUBROUTINE SRTM_CMBGB19
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb20.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb20.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb20.F90	(revision 3330)
@@ -0,0 +1,89 @@
+SUBROUTINE SRTM_CMBGB20
+
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA20, ONLY : KA, KB, SELFREF, FORREF, ABSCH4, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, ABSCH4C, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB20',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(5)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(4)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+64)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(5)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(4)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+64)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(5)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(4)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + ABSCH4(IPRSM)*RWGT(IPRSM+64)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  ABSCH4C(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB20',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB20
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb20.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb20.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb20.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB20
+END SUBROUTINE SRTM_CMBGB20
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb21.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb21.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb21.F90	(revision 3330)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_CMBGB21
+
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA21, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB21',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(6)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(5)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+80)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(6)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(5)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KB(JN,JT,JP,IPRSM)*RWGT(IPRSM+80)
+        ENDDO
+        KBC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB21',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB21
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb21.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb21.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb21.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB21
+END SUBROUTINE SRTM_CMBGB21
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb22.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb22.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb22.F90	(revision 3330)
@@ -0,0 +1,92 @@
+SUBROUTINE SRTM_CMBGB22
+
+!     BAND 22:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA22, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB22',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(7)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(6)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+96)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(7)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(6)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+96)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB22',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB22
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb22.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb22.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb22.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB22
+END SUBROUTINE SRTM_CMBGB22
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb23.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb23.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb23.F90	(revision 3330)
@@ -0,0 +1,77 @@
+SUBROUTINE SRTM_CMBGB23
+
+!     BAND 23:  8050-12850 cm-1 (low - H2O; high - nothing)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA23, ONLY : KA, SELFREF, FORREF, SFLUXREF, RAYL, &
+                    & KAC, SELFREFC, FORREFC, SFLUXREFC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB23',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(8)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(7)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + RAYL(IPRSM)*RWGT(IPRSM+112)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  RAYLC(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB23',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB23
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb23.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb23.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb23.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB23
+END SUBROUTINE SRTM_CMBGB23
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb24.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb24.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb24.F90	(revision 3330)
@@ -0,0 +1,113 @@
+SUBROUTINE SRTM_CMBGB24
+
+!     BAND 24:  12850-16000 cm-1 (low - H2O,O2; high - O2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA24, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & ABSO3A, ABSO3B, RAYLA, RAYLB, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC, &
+                    & ABSO3AC, ABSO3BC, RAYLAC, RAYLBC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2, ZSUMF3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB24',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(9)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(8)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+128)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(9)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(8)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+128)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(9)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  ZSUMF3 = 0.
+  DO IPR = 1, NGN(NGS(8)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + RAYLB(IPRSM)*RWGT(IPRSM+128)
+    ZSUMF2 = ZSUMF2 + ABSO3A(IPRSM)*RWGT(IPRSM+128)
+    ZSUMF3 = ZSUMF3 + ABSO3B(IPRSM)*RWGT(IPRSM+128)
+  ENDDO
+  RAYLBC(IGC) = ZSUMF1
+  ABSO3AC(IGC) = ZSUMF2
+  ABSO3BC(IGC) = ZSUMF3
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    ZSUMF1 = 0.
+    ZSUMF2 = 0.
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM,JP)
+      ZSUMF2 = ZSUMF2 + RAYLA(IPRSM,JP)*RWGT(IPRSM+128)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF1
+    RAYLAC(IGC,JP) = ZSUMF2
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB24',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB24
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb24.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb24.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb24.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB24
+END SUBROUTINE SRTM_CMBGB24
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb25.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb25.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb25.F90	(revision 3330)
@@ -0,0 +1,59 @@
+SUBROUTINE SRTM_CMBGB25
+
+!     BAND 25:  16000-22650 cm-1 (low - H2O; high - nothing)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA25, ONLY : KA, SFLUXREF, ABSO3A, ABSO3B, RAYL, &
+                    & KAC, SFLUXREFC, ABSO3AC, ABSO3BC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2, ZSUMF3, ZSUMF4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB25',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(10)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  ZSUMF3 = 0.
+  ZSUMF4 = 0.
+  DO IPR = 1, NGN(NGS(9)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + ABSO3A(IPRSM)*RWGT(IPRSM+144)
+    ZSUMF3 = ZSUMF3 + ABSO3B(IPRSM)*RWGT(IPRSM+144)
+    ZSUMF4 = ZSUMF4 + RAYL(IPRSM)*RWGT(IPRSM+144)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  ABSO3AC(IGC) = ZSUMF2
+  ABSO3BC(IGC) = ZSUMF3
+  RAYLC(IGC) = ZSUMF4
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB25',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB25
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb25.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb25.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb25.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB25
+END SUBROUTINE SRTM_CMBGB25
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb26.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb26.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb26.F90	(revision 3330)
@@ -0,0 +1,39 @@
+SUBROUTINE SRTM_CMBGB26
+
+!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA26, ONLY : SFLUXREF, RAYL, &
+                    & SFLUXREFC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB26',0,ZHOOK_HANDLE)
+
+IPRSM = 0
+DO IGC = 1,NGC(11)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(10)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + RAYL(IPRSM)*RWGT(IPRSM+160)
+    ZSUMF2 = ZSUMF2 + SFLUXREF(IPRSM)
+  ENDDO
+  RAYLC(IGC) = ZSUMF1
+  SFLUXREFC(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB26',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB26
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb26.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb26.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb26.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB26
+END SUBROUTINE SRTM_CMBGB26
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb27.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb27.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb27.F90	(revision 3330)
@@ -0,0 +1,65 @@
+SUBROUTINE SRTM_CMBGB27
+
+!     BAND 27:  29000-38000 cm-1 (low - O3; high - O3)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA27, ONLY : KA, KB, SFLUXREF, RAYL, &
+                    & KAC, KBC, SFLUXREFC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB27',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(12)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(11)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+176)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(12)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(11)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+176)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(12)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(11)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + RAYL(IPRSM)*RWGT(IPRSM+176)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  RAYLC(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB27',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB27
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb27.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb27.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb27.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB27
+END SUBROUTINE SRTM_CMBGB27
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb28.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb28.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb28.F90	(revision 3330)
@@ -0,0 +1,70 @@
+SUBROUTINE SRTM_CMBGB28
+
+!     BAND 28:  38000-50000 cm-1 (low - O3,O2; high - O3,O2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA28, ONLY : KA, KB, SFLUXREF, &
+                    & KAC, KBC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB28',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KB(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+        KBC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB28',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB28
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb28.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb28.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb28.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB28
+END SUBROUTINE SRTM_CMBGB28
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb29.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb29.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb29.F90	(revision 3330)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_CMBGB29
+
+!     BAND 29:  820-2600 cm-1 (low - H2O; high - CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA29, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & ABSH2O, ABSCO2, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC, &
+                    & ABSH2OC, ABSCO2C
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2, ZSUMF3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB29',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(14)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  ZSUMF3 = 0.
+  DO IPR = 1, NGN(NGS(13)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + ABSCO2(IPRSM)*RWGT(IPRSM+208)
+    ZSUMF3 = ZSUMF3 + ABSH2O(IPRSM)*RWGT(IPRSM+208)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  ABSCO2C(IGC) = ZSUMF2
+  ABSH2OC(IGC) = ZSUMF3
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB29',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB29
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb29.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb29.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_cmbgb29.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB29
+END SUBROUTINE SRTM_CMBGB29
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_init.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_init.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_init.F90	(revision 3330)
@@ -0,0 +1,136 @@
+SUBROUTINE SRTM_INIT
+
+!-- read in the basic coefficients to configure RRTM_SW
+!- creates module YOESRTWN with BG, NSPA, NSPB, WAVENUM1, WAVENUM2,
+!  DELWAVE, PREF, PREFLOG, TREF
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE PARSRTM  , ONLY : JPG, JPSW
+USE YOESRTWN , ONLY : NG, NGM, WT, NGC, NGN, RWGT, WTSM
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: IGC, IGCSM, IBND, IG, IND, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZWTSUM
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "susrtm.intfb.h"
+#include "srtm_kgb16.intfb.h"
+#include "srtm_kgb17.intfb.h"
+#include "srtm_kgb18.intfb.h"
+#include "srtm_kgb19.intfb.h"
+#include "srtm_kgb20.intfb.h"
+#include "srtm_kgb21.intfb.h"
+#include "srtm_kgb22.intfb.h"
+#include "srtm_kgb23.intfb.h"
+#include "srtm_kgb24.intfb.h"
+#include "srtm_kgb25.intfb.h"
+#include "srtm_kgb26.intfb.h"
+#include "srtm_kgb27.intfb.h"
+#include "srtm_kgb28.intfb.h"
+#include "srtm_kgb29.intfb.h"
+!#include "susrtop.intfb.h"
+
+#include "srtm_cmbgb16.intfb.h"
+#include "srtm_cmbgb17.intfb.h"
+#include "srtm_cmbgb18.intfb.h"
+#include "srtm_cmbgb19.intfb.h"
+#include "srtm_cmbgb20.intfb.h"
+#include "srtm_cmbgb21.intfb.h"
+#include "srtm_cmbgb22.intfb.h"
+#include "srtm_cmbgb23.intfb.h"
+#include "srtm_cmbgb24.intfb.h"
+#include "srtm_cmbgb25.intfb.h"
+#include "srtm_cmbgb26.intfb.h"
+#include "srtm_cmbgb27.intfb.h"
+#include "srtm_cmbgb28.intfb.h"
+#include "srtm_cmbgb29.intfb.h"
+
+IF (LHOOK) CALL DR_HOOK('SRTM_INIT',0,ZHOOK_HANDLE)
+
+CALL SUSRTM
+
+!-- read in the molecular absorption coefficients
+
+CALL SRTM_KGB16
+CALL SRTM_KGB17
+CALL SRTM_KGB18
+CALL SRTM_KGB19
+CALL SRTM_KGB20
+CALL SRTM_KGB21
+CALL SRTM_KGB22
+CALL SRTM_KGB23
+CALL SRTM_KGB24
+CALL SRTM_KGB25
+CALL SRTM_KGB26
+CALL SRTM_KGB27
+CALL SRTM_KGB28
+CALL SRTM_KGB29
+
+!-- read in the cloud optical properties
+!- creates module YOESRTOP with EXTLIQ1, SSALIQ1, ASYLIQ1, 
+!  EXTICE3, SSAICE3, ASYICE3, FDLICE3  
+
+!-- RRTM_SW cloud optical properties are not used
+!   SRTM_CLDPROP is not called
+!   no need to call SUSRTOP
+
+!CALL SUSRTOP ( -1 )
+
+
+!Mike Iacono 20050804
+!-- Perform g-point reduction from 16 per band (224 total points) to
+!-- a band dependent number (112 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,JPSW
+  IPRSM = 0
+  IF (NGC(IBND) < JPG) THEN
+    DO IGC = 1,NGC(IBND)
+      IGCSM = IGCSM + 1
+      ZWTSUM = 0.
+      DO IPR = 1, NGN(IGCSM)
+        IPRSM = IPRSM + 1
+        ZWTSUM = ZWTSUM + WT(IPRSM)
+      ENDDO
+      WTSM(IGC) = ZWTSUM
+    ENDDO
+
+    DO IG = 1,NG(IBND+15)
+      IND = (IBND-1)*JPG + IG
+      RWGT(IND) = WT(IG)/WTSM(NGM(IND))
+    ENDDO
+  ELSE
+    DO IG = 1,NG(IBND+15)
+      IGCSM = IGCSM + 1
+      IND = (IBND-1)*JPG + IG
+      RWGT(IND) = 1.0
+    ENDDO
+  ENDIF
+ENDDO
+
+CALL SRTM_CMBGB16
+CALL SRTM_CMBGB17
+CALL SRTM_CMBGB18
+CALL SRTM_CMBGB19
+CALL SRTM_CMBGB20
+CALL SRTM_CMBGB21
+CALL SRTM_CMBGB22
+CALL SRTM_CMBGB23
+CALL SRTM_CMBGB24
+CALL SRTM_CMBGB25
+CALL SRTM_CMBGB26
+CALL SRTM_CMBGB27
+CALL SRTM_CMBGB28
+CALL SRTM_CMBGB29
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_INIT',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_INIT
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_init.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_init.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_init.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_INIT
+END SUBROUTINE SRTM_INIT
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb16.F90	(revision 3330)
@@ -0,0 +1,4990 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB16
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA16, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT1 &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF = (/ &
+ & 1.92269_JPRB    , 1.72844_JPRB    , 1.64326_JPRB    , 1.58451_JPRB     &
+ & , 1.44031_JPRB    , 1.25108_JPRB    , 1.02724_JPRB    , 0.776759_JPRB    &
+ & , 0.534444_JPRB   , 5.87755E-02_JPRB, 4.86706E-02_JPRB, 3.87989E-02_JPRB &
+ & , 2.84532E-02_JPRB, 1.82431E-02_JPRB, 6.92320E-03_JPRB, 9.70770E-04_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 2925 cm-1.
+RAYL = 2.91E-10_JPRB
+
+STRRAT1 = 252.131_JPRB
+
+LAYREFFR = 18
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.15349E-04_JPRB,0.89162E-04_JPRB,0.97706E-04_JPRB,0.96973E-04_JPRB,0.90703E-04_JPRB, &
+ & 0.80393E-04_JPRB,0.67242E-04_JPRB,0.50804E-04_JPRB,0.23334E-04_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.16138E-04_JPRB,0.89235E-04_JPRB,0.97696E-04_JPRB,0.96116E-04_JPRB,0.89625E-04_JPRB, &
+ & 0.79382E-04_JPRB,0.66587E-04_JPRB,0.50583E-04_JPRB,0.24342E-04_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.16801E-04_JPRB,0.89390E-04_JPRB,0.97492E-04_JPRB,0.95146E-04_JPRB,0.88483E-04_JPRB, &
+ & 0.78325E-04_JPRB,0.65873E-04_JPRB,0.50342E-04_JPRB,0.25245E-04_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.17584E-04_JPRB,0.89321E-04_JPRB,0.97141E-04_JPRB,0.93952E-04_JPRB,0.87141E-04_JPRB, &
+ & 0.77126E-04_JPRB,0.65068E-04_JPRB,0.49985E-04_JPRB,0.26046E-04_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.18258E-04_JPRB,0.89204E-04_JPRB,0.96602E-04_JPRB,0.92773E-04_JPRB,0.85832E-04_JPRB, &
+ & 0.76015E-04_JPRB,0.64318E-04_JPRB,0.49612E-04_JPRB,0.26697E-04_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.12783E-04_JPRB,0.77013E-04_JPRB,0.85056E-04_JPRB,0.84160E-04_JPRB,0.79021E-04_JPRB, &
+ & 0.70101E-04_JPRB,0.58520E-04_JPRB,0.44007E-04_JPRB,0.19895E-04_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.13452E-04_JPRB,0.77084E-04_JPRB,0.84929E-04_JPRB,0.83386E-04_JPRB,0.78122E-04_JPRB, &
+ & 0.69293E-04_JPRB,0.57974E-04_JPRB,0.43855E-04_JPRB,0.20713E-04_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.14066E-04_JPRB,0.77185E-04_JPRB,0.84612E-04_JPRB,0.82498E-04_JPRB,0.77177E-04_JPRB, &
+ & 0.68443E-04_JPRB,0.57444E-04_JPRB,0.43722E-04_JPRB,0.21494E-04_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.14678E-04_JPRB,0.76996E-04_JPRB,0.83962E-04_JPRB,0.81526E-04_JPRB,0.76049E-04_JPRB, &
+ & 0.67485E-04_JPRB,0.56822E-04_JPRB,0.43530E-04_JPRB,0.22200E-04_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.15258E-04_JPRB,0.76788E-04_JPRB,0.82821E-04_JPRB,0.80320E-04_JPRB,0.74845E-04_JPRB, &
+ & 0.66487E-04_JPRB,0.56144E-04_JPRB,0.43262E-04_JPRB,0.22757E-04_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.10474E-04_JPRB,0.66144E-04_JPRB,0.73703E-04_JPRB,0.72701E-04_JPRB,0.68638E-04_JPRB, &
+ & 0.60826E-04_JPRB,0.50854E-04_JPRB,0.37989E-04_JPRB,0.17743E-04_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.11024E-04_JPRB,0.66096E-04_JPRB,0.73447E-04_JPRB,0.72029E-04_JPRB,0.67858E-04_JPRB, &
+ & 0.60163E-04_JPRB,0.50424E-04_JPRB,0.37886E-04_JPRB,0.18519E-04_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.11534E-04_JPRB,0.65974E-04_JPRB,0.72795E-04_JPRB,0.71229E-04_JPRB,0.67005E-04_JPRB, &
+ & 0.59442E-04_JPRB,0.49950E-04_JPRB,0.37779E-04_JPRB,0.19184E-04_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.12091E-04_JPRB,0.65752E-04_JPRB,0.72003E-04_JPRB,0.70357E-04_JPRB,0.66129E-04_JPRB, &
+ & 0.58718E-04_JPRB,0.49503E-04_JPRB,0.37690E-04_JPRB,0.19788E-04_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.12560E-04_JPRB,0.65678E-04_JPRB,0.71013E-04_JPRB,0.69266E-04_JPRB,0.65076E-04_JPRB, &
+ & 0.57873E-04_JPRB,0.48947E-04_JPRB,0.37519E-04_JPRB,0.20290E-04_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.85236E-05_JPRB,0.56692E-04_JPRB,0.63625E-04_JPRB,0.62567E-04_JPRB,0.59412E-04_JPRB, &
+ & 0.52601E-04_JPRB,0.43957E-04_JPRB,0.32602E-04_JPRB,0.16862E-04_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.89886E-05_JPRB,0.56512E-04_JPRB,0.63288E-04_JPRB,0.61902E-04_JPRB,0.58733E-04_JPRB, &
+ & 0.52036E-04_JPRB,0.43629E-04_JPRB,0.32592E-04_JPRB,0.17543E-04_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.94085E-05_JPRB,0.56287E-04_JPRB,0.62588E-04_JPRB,0.61197E-04_JPRB,0.58020E-04_JPRB, &
+ & 0.51469E-04_JPRB,0.43247E-04_JPRB,0.32567E-04_JPRB,0.18199E-04_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.98830E-05_JPRB,0.55998E-04_JPRB,0.61716E-04_JPRB,0.60485E-04_JPRB,0.57250E-04_JPRB, &
+ & 0.50840E-04_JPRB,0.42842E-04_JPRB,0.32520E-04_JPRB,0.18771E-04_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.10278E-04_JPRB,0.55929E-04_JPRB,0.61011E-04_JPRB,0.59745E-04_JPRB,0.56462E-04_JPRB, &
+ & 0.50254E-04_JPRB,0.42468E-04_JPRB,0.32457E-04_JPRB,0.19296E-04_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.68852E-05_JPRB,0.48282E-04_JPRB,0.54761E-04_JPRB,0.53543E-04_JPRB,0.51345E-04_JPRB, &
+ & 0.45380E-04_JPRB,0.37794E-04_JPRB,0.27880E-04_JPRB,0.14959E-04_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.72830E-05_JPRB,0.48206E-04_JPRB,0.54379E-04_JPRB,0.52923E-04_JPRB,0.50723E-04_JPRB, &
+ & 0.44903E-04_JPRB,0.37536E-04_JPRB,0.27938E-04_JPRB,0.15841E-04_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.76436E-05_JPRB,0.47928E-04_JPRB,0.53597E-04_JPRB,0.52299E-04_JPRB,0.50061E-04_JPRB, &
+ & 0.44426E-04_JPRB,0.37240E-04_JPRB,0.27962E-04_JPRB,0.16760E-04_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.80055E-05_JPRB,0.47625E-04_JPRB,0.52896E-04_JPRB,0.51678E-04_JPRB,0.49302E-04_JPRB, &
+ & 0.43902E-04_JPRB,0.36930E-04_JPRB,0.27968E-04_JPRB,0.17586E-04_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.83555E-05_JPRB,0.47486E-04_JPRB,0.52258E-04_JPRB,0.51112E-04_JPRB,0.48444E-04_JPRB, &
+ & 0.43409E-04_JPRB,0.36652E-04_JPRB,0.27966E-04_JPRB,0.18270E-04_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.55363E-05_JPRB,0.40995E-04_JPRB,0.46991E-04_JPRB,0.45840E-04_JPRB,0.44200E-04_JPRB, &
+ & 0.38984E-04_JPRB,0.32341E-04_JPRB,0.23743E-04_JPRB,0.12825E-04_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.58741E-05_JPRB,0.40851E-04_JPRB,0.46490E-04_JPRB,0.45277E-04_JPRB,0.43651E-04_JPRB, &
+ & 0.38565E-04_JPRB,0.32141E-04_JPRB,0.23813E-04_JPRB,0.13671E-04_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.61821E-05_JPRB,0.40643E-04_JPRB,0.45850E-04_JPRB,0.44728E-04_JPRB,0.42924E-04_JPRB, &
+ & 0.38164E-04_JPRB,0.31920E-04_JPRB,0.23858E-04_JPRB,0.14647E-04_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.64614E-05_JPRB,0.40329E-04_JPRB,0.45202E-04_JPRB,0.44163E-04_JPRB,0.42054E-04_JPRB, &
+ & 0.37723E-04_JPRB,0.31679E-04_JPRB,0.23886E-04_JPRB,0.15533E-04_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.67675E-05_JPRB,0.40137E-04_JPRB,0.44578E-04_JPRB,0.43574E-04_JPRB,0.41267E-04_JPRB, &
+ & 0.37271E-04_JPRB,0.31420E-04_JPRB,0.23883E-04_JPRB,0.16436E-04_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.44217E-05_JPRB,0.34626E-04_JPRB,0.39970E-04_JPRB,0.39080E-04_JPRB,0.37744E-04_JPRB, &
+ & 0.33237E-04_JPRB,0.27507E-04_JPRB,0.20074E-04_JPRB,0.11007E-04_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.47104E-05_JPRB,0.34494E-04_JPRB,0.39592E-04_JPRB,0.38568E-04_JPRB,0.37283E-04_JPRB, &
+ & 0.32875E-04_JPRB,0.27342E-04_JPRB,0.20149E-04_JPRB,0.11834E-04_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.49764E-05_JPRB,0.34300E-04_JPRB,0.39007E-04_JPRB,0.38074E-04_JPRB,0.36415E-04_JPRB, &
+ & 0.32528E-04_JPRB,0.27158E-04_JPRB,0.20213E-04_JPRB,0.12801E-04_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.52135E-05_JPRB,0.34067E-04_JPRB,0.38449E-04_JPRB,0.37591E-04_JPRB,0.35661E-04_JPRB, &
+ & 0.32173E-04_JPRB,0.26959E-04_JPRB,0.20265E-04_JPRB,0.13763E-04_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.54275E-05_JPRB,0.33832E-04_JPRB,0.37875E-04_JPRB,0.37057E-04_JPRB,0.35065E-04_JPRB, &
+ & 0.31800E-04_JPRB,0.26760E-04_JPRB,0.20278E-04_JPRB,0.14677E-04_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.35317E-05_JPRB,0.29115E-04_JPRB,0.33824E-04_JPRB,0.33370E-04_JPRB,0.32237E-04_JPRB, &
+ & 0.28331E-04_JPRB,0.23362E-04_JPRB,0.16932E-04_JPRB,0.96086E-05_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.37854E-05_JPRB,0.29084E-04_JPRB,0.33632E-04_JPRB,0.32929E-04_JPRB,0.31805E-04_JPRB, &
+ & 0.28018E-04_JPRB,0.23236E-04_JPRB,0.17006E-04_JPRB,0.10621E-04_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.40127E-05_JPRB,0.28935E-04_JPRB,0.33190E-04_JPRB,0.32483E-04_JPRB,0.30936E-04_JPRB, &
+ & 0.27716E-04_JPRB,0.23074E-04_JPRB,0.17087E-04_JPRB,0.11657E-04_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.42184E-05_JPRB,0.28732E-04_JPRB,0.32711E-04_JPRB,0.32042E-04_JPRB,0.30351E-04_JPRB, &
+ & 0.27404E-04_JPRB,0.22906E-04_JPRB,0.17140E-04_JPRB,0.12504E-04_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.44040E-05_JPRB,0.28488E-04_JPRB,0.32207E-04_JPRB,0.31581E-04_JPRB,0.29852E-04_JPRB, &
+ & 0.27086E-04_JPRB,0.22740E-04_JPRB,0.17166E-04_JPRB,0.13401E-04_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.28004E-05_JPRB,0.24421E-04_JPRB,0.28507E-04_JPRB,0.28270E-04_JPRB,0.27415E-04_JPRB, &
+ & 0.24038E-04_JPRB,0.19759E-04_JPRB,0.14209E-04_JPRB,0.88498E-05_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.30342E-05_JPRB,0.24385E-04_JPRB,0.28391E-04_JPRB,0.27999E-04_JPRB,0.26969E-04_JPRB, &
+ & 0.23770E-04_JPRB,0.19651E-04_JPRB,0.14288E-04_JPRB,0.10048E-04_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.32304E-05_JPRB,0.24304E-04_JPRB,0.28136E-04_JPRB,0.27602E-04_JPRB,0.26246E-04_JPRB, &
+ & 0.23508E-04_JPRB,0.19517E-04_JPRB,0.14360E-04_JPRB,0.11188E-04_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.34049E-05_JPRB,0.24160E-04_JPRB,0.27731E-04_JPRB,0.27211E-04_JPRB,0.25756E-04_JPRB, &
+ & 0.23246E-04_JPRB,0.19380E-04_JPRB,0.14426E-04_JPRB,0.12319E-04_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.35648E-05_JPRB,0.23940E-04_JPRB,0.27283E-04_JPRB,0.26806E-04_JPRB,0.25320E-04_JPRB, &
+ & 0.22960E-04_JPRB,0.19234E-04_JPRB,0.14451E-04_JPRB,0.13506E-04_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.22115E-05_JPRB,0.20358E-04_JPRB,0.23898E-04_JPRB,0.23781E-04_JPRB,0.23142E-04_JPRB, &
+ & 0.20260E-04_JPRB,0.16593E-04_JPRB,0.11876E-04_JPRB,0.77665E-05_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.24264E-05_JPRB,0.20362E-04_JPRB,0.23820E-04_JPRB,0.23569E-04_JPRB,0.22708E-04_JPRB, &
+ & 0.20037E-04_JPRB,0.16524E-04_JPRB,0.11954E-04_JPRB,0.90216E-05_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.26002E-05_JPRB,0.20303E-04_JPRB,0.23663E-04_JPRB,0.23295E-04_JPRB,0.22132E-04_JPRB, &
+ & 0.19806E-04_JPRB,0.16414E-04_JPRB,0.12011E-04_JPRB,0.10379E-04_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.27486E-05_JPRB,0.20198E-04_JPRB,0.23357E-04_JPRB,0.22943E-04_JPRB,0.21707E-04_JPRB, &
+ & 0.19580E-04_JPRB,0.16298E-04_JPRB,0.12060E-04_JPRB,0.11771E-04_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.28881E-05_JPRB,0.20019E-04_JPRB,0.22982E-04_JPRB,0.22584E-04_JPRB,0.21296E-04_JPRB, &
+ & 0.19341E-04_JPRB,0.16164E-04_JPRB,0.12088E-04_JPRB,0.13279E-04_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.18320E-05_JPRB,0.16927E-04_JPRB,0.19968E-04_JPRB,0.19856E-04_JPRB,0.19352E-04_JPRB, &
+ & 0.16934E-04_JPRB,0.13866E-04_JPRB,0.99116E-05_JPRB,0.67134E-05_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.20049E-05_JPRB,0.16927E-04_JPRB,0.19853E-04_JPRB,0.19674E-04_JPRB,0.18853E-04_JPRB, &
+ & 0.16739E-04_JPRB,0.13797E-04_JPRB,0.99757E-05_JPRB,0.78968E-05_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.21502E-05_JPRB,0.16866E-04_JPRB,0.19704E-04_JPRB,0.19448E-04_JPRB,0.18441E-04_JPRB, &
+ & 0.16541E-04_JPRB,0.13705E-04_JPRB,0.10023E-04_JPRB,0.91593E-05_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.22714E-05_JPRB,0.16777E-04_JPRB,0.19465E-04_JPRB,0.19143E-04_JPRB,0.18062E-04_JPRB, &
+ & 0.16347E-04_JPRB,0.13601E-04_JPRB,0.10057E-04_JPRB,0.10536E-04_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.23867E-05_JPRB,0.16634E-04_JPRB,0.19123E-04_JPRB,0.18829E-04_JPRB,0.17732E-04_JPRB, &
+ & 0.16132E-04_JPRB,0.13484E-04_JPRB,0.10082E-04_JPRB,0.12018E-04_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.15169E-05_JPRB,0.14042E-04_JPRB,0.16626E-04_JPRB,0.16552E-04_JPRB,0.16148E-04_JPRB, &
+ & 0.14121E-04_JPRB,0.11557E-04_JPRB,0.82558E-05_JPRB,0.56116E-05_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.16576E-05_JPRB,0.14051E-04_JPRB,0.16515E-04_JPRB,0.16389E-04_JPRB,0.15651E-04_JPRB, &
+ & 0.13956E-04_JPRB,0.11498E-04_JPRB,0.83065E-05_JPRB,0.66756E-05_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.17786E-05_JPRB,0.13996E-04_JPRB,0.16382E-04_JPRB,0.16200E-04_JPRB,0.15335E-04_JPRB, &
+ & 0.13791E-04_JPRB,0.11414E-04_JPRB,0.83396E-05_JPRB,0.78609E-05_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.18784E-05_JPRB,0.13920E-04_JPRB,0.16173E-04_JPRB,0.15944E-04_JPRB,0.15016E-04_JPRB, &
+ & 0.13612E-04_JPRB,0.11321E-04_JPRB,0.83696E-05_JPRB,0.90657E-05_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.19730E-05_JPRB,0.13808E-04_JPRB,0.15876E-04_JPRB,0.15671E-04_JPRB,0.14704E-04_JPRB, &
+ & 0.13425E-04_JPRB,0.11218E-04_JPRB,0.83846E-05_JPRB,0.10342E-04_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.12548E-05_JPRB,0.11622E-04_JPRB,0.13817E-04_JPRB,0.13765E-04_JPRB,0.13366E-04_JPRB, &
+ & 0.11761E-04_JPRB,0.96214E-05_JPRB,0.68586E-05_JPRB,0.46815E-05_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.13720E-05_JPRB,0.11638E-04_JPRB,0.13707E-04_JPRB,0.13640E-04_JPRB,0.13007E-04_JPRB, &
+ & 0.11624E-04_JPRB,0.95672E-05_JPRB,0.68978E-05_JPRB,0.55831E-05_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.14716E-05_JPRB,0.11595E-04_JPRB,0.13603E-04_JPRB,0.13476E-04_JPRB,0.12728E-04_JPRB, &
+ & 0.11474E-04_JPRB,0.94883E-05_JPRB,0.69284E-05_JPRB,0.65694E-05_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.15544E-05_JPRB,0.11533E-04_JPRB,0.13432E-04_JPRB,0.13265E-04_JPRB,0.12450E-04_JPRB, &
+ & 0.11320E-04_JPRB,0.94054E-05_JPRB,0.69510E-05_JPRB,0.75699E-05_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.16324E-05_JPRB,0.11450E-04_JPRB,0.13177E-04_JPRB,0.13030E-04_JPRB,0.12193E-04_JPRB, &
+ & 0.11159E-04_JPRB,0.93157E-05_JPRB,0.69543E-05_JPRB,0.86449E-05_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.10905E-03_JPRB,0.19084E-03_JPRB,0.20069E-03_JPRB,0.19832E-03_JPRB,0.18610E-03_JPRB, &
+ & 0.17089E-03_JPRB,0.14990E-03_JPRB,0.11759E-03_JPRB,0.64675E-04_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.11105E-03_JPRB,0.18952E-03_JPRB,0.19885E-03_JPRB,0.19823E-03_JPRB,0.18675E-03_JPRB, &
+ & 0.17126E-03_JPRB,0.15098E-03_JPRB,0.11929E-03_JPRB,0.67071E-04_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.11276E-03_JPRB,0.18853E-03_JPRB,0.19769E-03_JPRB,0.19892E-03_JPRB,0.18804E-03_JPRB, &
+ & 0.17228E-03_JPRB,0.15234E-03_JPRB,0.12104E-03_JPRB,0.69562E-04_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.11331E-03_JPRB,0.18716E-03_JPRB,0.19673E-03_JPRB,0.19862E-03_JPRB,0.18922E-03_JPRB, &
+ & 0.17345E-03_JPRB,0.15364E-03_JPRB,0.12287E-03_JPRB,0.72145E-04_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.11374E-03_JPRB,0.18626E-03_JPRB,0.19656E-03_JPRB,0.19857E-03_JPRB,0.19062E-03_JPRB, &
+ & 0.17445E-03_JPRB,0.15373E-03_JPRB,0.12483E-03_JPRB,0.74697E-04_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.94458E-04_JPRB,0.16650E-03_JPRB,0.17483E-03_JPRB,0.17491E-03_JPRB,0.16501E-03_JPRB, &
+ & 0.15069E-03_JPRB,0.13359E-03_JPRB,0.10498E-03_JPRB,0.55352E-04_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.96121E-04_JPRB,0.16557E-03_JPRB,0.17383E-03_JPRB,0.17514E-03_JPRB,0.16597E-03_JPRB, &
+ & 0.15082E-03_JPRB,0.13480E-03_JPRB,0.10677E-03_JPRB,0.57531E-04_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.97581E-04_JPRB,0.16494E-03_JPRB,0.17349E-03_JPRB,0.17480E-03_JPRB,0.16726E-03_JPRB, &
+ & 0.15206E-03_JPRB,0.13520E-03_JPRB,0.10844E-03_JPRB,0.59621E-04_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.98152E-04_JPRB,0.16427E-03_JPRB,0.17323E-03_JPRB,0.17471E-03_JPRB,0.16812E-03_JPRB, &
+ & 0.15352E-03_JPRB,0.13523E-03_JPRB,0.11008E-03_JPRB,0.61894E-04_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.98081E-04_JPRB,0.16346E-03_JPRB,0.17334E-03_JPRB,0.17481E-03_JPRB,0.16845E-03_JPRB, &
+ & 0.15496E-03_JPRB,0.13612E-03_JPRB,0.11175E-03_JPRB,0.64159E-04_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.80988E-04_JPRB,0.14444E-03_JPRB,0.15236E-03_JPRB,0.15355E-03_JPRB,0.14515E-03_JPRB, &
+ & 0.13201E-03_JPRB,0.11827E-03_JPRB,0.92843E-04_JPRB,0.47818E-04_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.82627E-04_JPRB,0.14399E-03_JPRB,0.15198E-03_JPRB,0.15308E-03_JPRB,0.14622E-03_JPRB, &
+ & 0.13285E-03_JPRB,0.11829E-03_JPRB,0.94579E-04_JPRB,0.49498E-04_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.83666E-04_JPRB,0.14365E-03_JPRB,0.15183E-03_JPRB,0.15300E-03_JPRB,0.14704E-03_JPRB, &
+ & 0.13418E-03_JPRB,0.11832E-03_JPRB,0.96259E-04_JPRB,0.51225E-04_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.84164E-04_JPRB,0.14362E-03_JPRB,0.15205E-03_JPRB,0.15285E-03_JPRB,0.14764E-03_JPRB, &
+ & 0.13590E-03_JPRB,0.11954E-03_JPRB,0.97885E-04_JPRB,0.52990E-04_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.84014E-04_JPRB,0.14269E-03_JPRB,0.15214E-03_JPRB,0.15331E-03_JPRB,0.14865E-03_JPRB, &
+ & 0.13747E-03_JPRB,0.12089E-03_JPRB,0.99389E-04_JPRB,0.54936E-04_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.69055E-04_JPRB,0.12498E-03_JPRB,0.13260E-03_JPRB,0.13427E-03_JPRB,0.12748E-03_JPRB, &
+ & 0.11593E-03_JPRB,0.10318E-03_JPRB,0.81535E-04_JPRB,0.43344E-04_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.70374E-04_JPRB,0.12479E-03_JPRB,0.13217E-03_JPRB,0.13387E-03_JPRB,0.12823E-03_JPRB, &
+ & 0.11702E-03_JPRB,0.10316E-03_JPRB,0.83059E-04_JPRB,0.44577E-04_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.71321E-04_JPRB,0.12483E-03_JPRB,0.13205E-03_JPRB,0.13371E-03_JPRB,0.12866E-03_JPRB, &
+ & 0.11820E-03_JPRB,0.10422E-03_JPRB,0.84648E-04_JPRB,0.45880E-04_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.71712E-04_JPRB,0.12475E-03_JPRB,0.13249E-03_JPRB,0.13379E-03_JPRB,0.12934E-03_JPRB, &
+ & 0.11960E-03_JPRB,0.10551E-03_JPRB,0.86238E-04_JPRB,0.47243E-04_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.71917E-04_JPRB,0.12433E-03_JPRB,0.13275E-03_JPRB,0.13434E-03_JPRB,0.13049E-03_JPRB, &
+ & 0.12131E-03_JPRB,0.10676E-03_JPRB,0.87830E-04_JPRB,0.48641E-04_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.58527E-04_JPRB,0.10840E-03_JPRB,0.11507E-03_JPRB,0.11730E-03_JPRB,0.11099E-03_JPRB, &
+ & 0.10118E-03_JPRB,0.89566E-04_JPRB,0.71122E-04_JPRB,0.43658E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 5, 2) = (/ &
+ & 0.59798E-04_JPRB,0.10799E-03_JPRB,0.11447E-03_JPRB,0.11692E-03_JPRB,0.11189E-03_JPRB, &
+ & 0.10224E-03_JPRB,0.90255E-04_JPRB,0.72476E-04_JPRB,0.44361E-04_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.60601E-04_JPRB,0.10799E-03_JPRB,0.11464E-03_JPRB,0.11677E-03_JPRB,0.11225E-03_JPRB, &
+ & 0.10358E-03_JPRB,0.91122E-04_JPRB,0.73922E-04_JPRB,0.45004E-04_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.60971E-04_JPRB,0.10798E-03_JPRB,0.11486E-03_JPRB,0.11681E-03_JPRB,0.11304E-03_JPRB, &
+ & 0.10512E-03_JPRB,0.91981E-04_JPRB,0.75441E-04_JPRB,0.45782E-04_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.61166E-04_JPRB,0.10769E-03_JPRB,0.11529E-03_JPRB,0.11740E-03_JPRB,0.11428E-03_JPRB, &
+ & 0.10674E-03_JPRB,0.93329E-04_JPRB,0.76963E-04_JPRB,0.46781E-04_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.49298E-04_JPRB,0.93665E-04_JPRB,0.99302E-04_JPRB,0.10166E-03_JPRB,0.96125E-04_JPRB, &
+ & 0.87991E-04_JPRB,0.77830E-04_JPRB,0.61651E-04_JPRB,0.45761E-04_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.50498E-04_JPRB,0.93479E-04_JPRB,0.98966E-04_JPRB,0.10139E-03_JPRB,0.96705E-04_JPRB, &
+ & 0.89173E-04_JPRB,0.78227E-04_JPRB,0.62850E-04_JPRB,0.46039E-04_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.51269E-04_JPRB,0.93203E-04_JPRB,0.98973E-04_JPRB,0.10127E-03_JPRB,0.97298E-04_JPRB, &
+ & 0.90362E-04_JPRB,0.78802E-04_JPRB,0.64157E-04_JPRB,0.46346E-04_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.51588E-04_JPRB,0.93137E-04_JPRB,0.99162E-04_JPRB,0.10129E-03_JPRB,0.98592E-04_JPRB, &
+ & 0.91554E-04_JPRB,0.79929E-04_JPRB,0.65574E-04_JPRB,0.46727E-04_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.51597E-04_JPRB,0.92792E-04_JPRB,0.99458E-04_JPRB,0.10170E-03_JPRB,0.99448E-04_JPRB, &
+ & 0.92834E-04_JPRB,0.81330E-04_JPRB,0.66366E-04_JPRB,0.47183E-04_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.41246E-04_JPRB,0.80496E-04_JPRB,0.85316E-04_JPRB,0.87435E-04_JPRB,0.82542E-04_JPRB, &
+ & 0.75819E-04_JPRB,0.67022E-04_JPRB,0.53111E-04_JPRB,0.48352E-04_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.42332E-04_JPRB,0.80236E-04_JPRB,0.84984E-04_JPRB,0.87173E-04_JPRB,0.83192E-04_JPRB, &
+ & 0.76872E-04_JPRB,0.67154E-04_JPRB,0.54235E-04_JPRB,0.49203E-04_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.43069E-04_JPRB,0.79969E-04_JPRB,0.85117E-04_JPRB,0.87191E-04_JPRB,0.83963E-04_JPRB, &
+ & 0.78027E-04_JPRB,0.67911E-04_JPRB,0.55423E-04_JPRB,0.50036E-04_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.43347E-04_JPRB,0.79762E-04_JPRB,0.85176E-04_JPRB,0.87282E-04_JPRB,0.84970E-04_JPRB, &
+ & 0.78971E-04_JPRB,0.69097E-04_JPRB,0.56659E-04_JPRB,0.50699E-04_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.43381E-04_JPRB,0.79473E-04_JPRB,0.85320E-04_JPRB,0.87550E-04_JPRB,0.85526E-04_JPRB, &
+ & 0.80111E-04_JPRB,0.70399E-04_JPRB,0.56992E-04_JPRB,0.51218E-04_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.34402E-04_JPRB,0.69256E-04_JPRB,0.73264E-04_JPRB,0.74907E-04_JPRB,0.70733E-04_JPRB, &
+ & 0.65058E-04_JPRB,0.57123E-04_JPRB,0.45547E-04_JPRB,0.49061E-04_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.35394E-04_JPRB,0.68938E-04_JPRB,0.72891E-04_JPRB,0.74693E-04_JPRB,0.71198E-04_JPRB, &
+ & 0.66010E-04_JPRB,0.57419E-04_JPRB,0.46585E-04_JPRB,0.51368E-04_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.36086E-04_JPRB,0.68637E-04_JPRB,0.72875E-04_JPRB,0.74679E-04_JPRB,0.72090E-04_JPRB, &
+ & 0.66902E-04_JPRB,0.58282E-04_JPRB,0.47622E-04_JPRB,0.51837E-04_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.36445E-04_JPRB,0.68326E-04_JPRB,0.72869E-04_JPRB,0.74856E-04_JPRB,0.72765E-04_JPRB, &
+ & 0.67827E-04_JPRB,0.59362E-04_JPRB,0.48483E-04_JPRB,0.52297E-04_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.36483E-04_JPRB,0.68010E-04_JPRB,0.72961E-04_JPRB,0.75096E-04_JPRB,0.73241E-04_JPRB, &
+ & 0.68587E-04_JPRB,0.60512E-04_JPRB,0.48784E-04_JPRB,0.53745E-04_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.28433E-04_JPRB,0.59232E-04_JPRB,0.62701E-04_JPRB,0.63901E-04_JPRB,0.60103E-04_JPRB, &
+ & 0.55141E-04_JPRB,0.48531E-04_JPRB,0.38847E-04_JPRB,0.54662E-04_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.29405E-04_JPRB,0.58918E-04_JPRB,0.62216E-04_JPRB,0.63604E-04_JPRB,0.60633E-04_JPRB, &
+ & 0.55830E-04_JPRB,0.48918E-04_JPRB,0.39795E-04_JPRB,0.56459E-04_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.30040E-04_JPRB,0.58597E-04_JPRB,0.61986E-04_JPRB,0.63627E-04_JPRB,0.61357E-04_JPRB, &
+ & 0.56779E-04_JPRB,0.49706E-04_JPRB,0.40729E-04_JPRB,0.58698E-04_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.30412E-04_JPRB,0.58268E-04_JPRB,0.61940E-04_JPRB,0.63690E-04_JPRB,0.61916E-04_JPRB, &
+ & 0.57700E-04_JPRB,0.50677E-04_JPRB,0.41137E-04_JPRB,0.60426E-04_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.30517E-04_JPRB,0.57913E-04_JPRB,0.61982E-04_JPRB,0.63808E-04_JPRB,0.62307E-04_JPRB, &
+ & 0.58353E-04_JPRB,0.51602E-04_JPRB,0.41668E-04_JPRB,0.61933E-04_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.23291E-04_JPRB,0.50308E-04_JPRB,0.53243E-04_JPRB,0.54258E-04_JPRB,0.50787E-04_JPRB, &
+ & 0.46509E-04_JPRB,0.41036E-04_JPRB,0.32969E-04_JPRB,0.63749E-04_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.24304E-04_JPRB,0.50027E-04_JPRB,0.52858E-04_JPRB,0.54035E-04_JPRB,0.51457E-04_JPRB, &
+ & 0.47117E-04_JPRB,0.41427E-04_JPRB,0.33795E-04_JPRB,0.67891E-04_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.24884E-04_JPRB,0.49658E-04_JPRB,0.52484E-04_JPRB,0.53877E-04_JPRB,0.52001E-04_JPRB, &
+ & 0.47908E-04_JPRB,0.42080E-04_JPRB,0.34652E-04_JPRB,0.71374E-04_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.25245E-04_JPRB,0.49329E-04_JPRB,0.52369E-04_JPRB,0.53861E-04_JPRB,0.52353E-04_JPRB, &
+ & 0.48763E-04_JPRB,0.42918E-04_JPRB,0.34903E-04_JPRB,0.73983E-04_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.25399E-04_JPRB,0.49019E-04_JPRB,0.52344E-04_JPRB,0.53920E-04_JPRB,0.52702E-04_JPRB, &
+ & 0.49354E-04_JPRB,0.43795E-04_JPRB,0.35336E-04_JPRB,0.76874E-04_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.19464E-04_JPRB,0.42428E-04_JPRB,0.44774E-04_JPRB,0.45764E-04_JPRB,0.43065E-04_JPRB, &
+ & 0.39257E-04_JPRB,0.34681E-04_JPRB,0.28149E-04_JPRB,0.56538E-04_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.20274E-04_JPRB,0.42118E-04_JPRB,0.44484E-04_JPRB,0.45525E-04_JPRB,0.43594E-04_JPRB, &
+ & 0.39908E-04_JPRB,0.35109E-04_JPRB,0.28880E-04_JPRB,0.61143E-04_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.20723E-04_JPRB,0.41781E-04_JPRB,0.44183E-04_JPRB,0.45345E-04_JPRB,0.43968E-04_JPRB, &
+ & 0.40542E-04_JPRB,0.35722E-04_JPRB,0.29427E-04_JPRB,0.66428E-04_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.20986E-04_JPRB,0.41469E-04_JPRB,0.44005E-04_JPRB,0.45299E-04_JPRB,0.44240E-04_JPRB, &
+ & 0.41204E-04_JPRB,0.36501E-04_JPRB,0.29565E-04_JPRB,0.70536E-04_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.21088E-04_JPRB,0.41122E-04_JPRB,0.44008E-04_JPRB,0.45344E-04_JPRB,0.44427E-04_JPRB, &
+ & 0.41695E-04_JPRB,0.37345E-04_JPRB,0.29974E-04_JPRB,0.74164E-04_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.16205E-04_JPRB,0.35661E-04_JPRB,0.37585E-04_JPRB,0.38332E-04_JPRB,0.36196E-04_JPRB, &
+ & 0.33054E-04_JPRB,0.29216E-04_JPRB,0.23917E-04_JPRB,0.49111E-04_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.16873E-04_JPRB,0.35314E-04_JPRB,0.37290E-04_JPRB,0.38165E-04_JPRB,0.36667E-04_JPRB, &
+ & 0.33618E-04_JPRB,0.29598E-04_JPRB,0.24536E-04_JPRB,0.53408E-04_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.17216E-04_JPRB,0.35012E-04_JPRB,0.37013E-04_JPRB,0.37971E-04_JPRB,0.36937E-04_JPRB, &
+ & 0.34200E-04_JPRB,0.30188E-04_JPRB,0.24727E-04_JPRB,0.56692E-04_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.17409E-04_JPRB,0.34711E-04_JPRB,0.36851E-04_JPRB,0.37885E-04_JPRB,0.37053E-04_JPRB, &
+ & 0.34609E-04_JPRB,0.30881E-04_JPRB,0.24937E-04_JPRB,0.60809E-04_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.17480E-04_JPRB,0.34362E-04_JPRB,0.36830E-04_JPRB,0.37891E-04_JPRB,0.37213E-04_JPRB, &
+ & 0.35045E-04_JPRB,0.31524E-04_JPRB,0.25269E-04_JPRB,0.65163E-04_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.13457E-04_JPRB,0.29884E-04_JPRB,0.31446E-04_JPRB,0.32052E-04_JPRB,0.30374E-04_JPRB, &
+ & 0.27733E-04_JPRB,0.24511E-04_JPRB,0.20198E-04_JPRB,0.41009E-04_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.14007E-04_JPRB,0.29560E-04_JPRB,0.31187E-04_JPRB,0.31882E-04_JPRB,0.30716E-04_JPRB, &
+ & 0.28181E-04_JPRB,0.24877E-04_JPRB,0.20737E-04_JPRB,0.44661E-04_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.14280E-04_JPRB,0.29273E-04_JPRB,0.30932E-04_JPRB,0.31685E-04_JPRB,0.30856E-04_JPRB, &
+ & 0.28687E-04_JPRB,0.25310E-04_JPRB,0.20664E-04_JPRB,0.47397E-04_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.14434E-04_JPRB,0.28982E-04_JPRB,0.30751E-04_JPRB,0.31601E-04_JPRB,0.30957E-04_JPRB, &
+ & 0.28945E-04_JPRB,0.25864E-04_JPRB,0.20868E-04_JPRB,0.50575E-04_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.14483E-04_JPRB,0.28660E-04_JPRB,0.30711E-04_JPRB,0.31533E-04_JPRB,0.31075E-04_JPRB, &
+ & 0.29320E-04_JPRB,0.26408E-04_JPRB,0.21257E-04_JPRB,0.54097E-04_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.22536E-03_JPRB,0.32037E-03_JPRB,0.33781E-03_JPRB,0.34273E-03_JPRB,0.33729E-03_JPRB, &
+ & 0.32075E-03_JPRB,0.29153E-03_JPRB,0.24856E-03_JPRB,0.16410E-03_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.22342E-03_JPRB,0.32281E-03_JPRB,0.34293E-03_JPRB,0.34673E-03_JPRB,0.34167E-03_JPRB, &
+ & 0.32688E-03_JPRB,0.29787E-03_JPRB,0.25566E-03_JPRB,0.17029E-03_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.22157E-03_JPRB,0.32559E-03_JPRB,0.34865E-03_JPRB,0.35164E-03_JPRB,0.34805E-03_JPRB, &
+ & 0.33353E-03_JPRB,0.30505E-03_JPRB,0.26380E-03_JPRB,0.17749E-03_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.21986E-03_JPRB,0.32894E-03_JPRB,0.35375E-03_JPRB,0.35845E-03_JPRB,0.35514E-03_JPRB, &
+ & 0.33992E-03_JPRB,0.31266E-03_JPRB,0.27259E-03_JPRB,0.18209E-03_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.21815E-03_JPRB,0.33282E-03_JPRB,0.35982E-03_JPRB,0.36699E-03_JPRB,0.36319E-03_JPRB, &
+ & 0.34849E-03_JPRB,0.32265E-03_JPRB,0.28174E-03_JPRB,0.18630E-03_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.19541E-03_JPRB,0.28383E-03_JPRB,0.30057E-03_JPRB,0.30208E-03_JPRB,0.29811E-03_JPRB, &
+ & 0.28614E-03_JPRB,0.25813E-03_JPRB,0.22172E-03_JPRB,0.14533E-03_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.19410E-03_JPRB,0.28606E-03_JPRB,0.30502E-03_JPRB,0.30638E-03_JPRB,0.30342E-03_JPRB, &
+ & 0.29123E-03_JPRB,0.26438E-03_JPRB,0.22759E-03_JPRB,0.15063E-03_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.19280E-03_JPRB,0.28892E-03_JPRB,0.31031E-03_JPRB,0.31345E-03_JPRB,0.30930E-03_JPRB, &
+ & 0.29708E-03_JPRB,0.27075E-03_JPRB,0.23476E-03_JPRB,0.15387E-03_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.19169E-03_JPRB,0.29226E-03_JPRB,0.31596E-03_JPRB,0.32060E-03_JPRB,0.31687E-03_JPRB, &
+ & 0.30282E-03_JPRB,0.27961E-03_JPRB,0.24147E-03_JPRB,0.15653E-03_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.19047E-03_JPRB,0.29594E-03_JPRB,0.32186E-03_JPRB,0.32831E-03_JPRB,0.32510E-03_JPRB, &
+ & 0.31022E-03_JPRB,0.28786E-03_JPRB,0.24847E-03_JPRB,0.16195E-03_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.16871E-03_JPRB,0.24969E-03_JPRB,0.26468E-03_JPRB,0.26465E-03_JPRB,0.26214E-03_JPRB, &
+ & 0.25247E-03_JPRB,0.22732E-03_JPRB,0.19530E-03_JPRB,0.12777E-03_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.16793E-03_JPRB,0.25161E-03_JPRB,0.26876E-03_JPRB,0.26973E-03_JPRB,0.26695E-03_JPRB, &
+ & 0.25688E-03_JPRB,0.23244E-03_JPRB,0.20054E-03_JPRB,0.12972E-03_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.16733E-03_JPRB,0.25378E-03_JPRB,0.27385E-03_JPRB,0.27612E-03_JPRB,0.27305E-03_JPRB, &
+ & 0.26119E-03_JPRB,0.23922E-03_JPRB,0.20542E-03_JPRB,0.13061E-03_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.16706E-03_JPRB,0.25676E-03_JPRB,0.27970E-03_JPRB,0.28379E-03_JPRB,0.28013E-03_JPRB, &
+ & 0.26708E-03_JPRB,0.24668E-03_JPRB,0.21081E-03_JPRB,0.13394E-03_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.16637E-03_JPRB,0.26037E-03_JPRB,0.28504E-03_JPRB,0.29050E-03_JPRB,0.28611E-03_JPRB, &
+ & 0.27355E-03_JPRB,0.25260E-03_JPRB,0.21670E-03_JPRB,0.13844E-03_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.14579E-03_JPRB,0.21908E-03_JPRB,0.23187E-03_JPRB,0.23162E-03_JPRB,0.22921E-03_JPRB, &
+ & 0.22070E-03_JPRB,0.19997E-03_JPRB,0.17094E-03_JPRB,0.11198E-03_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.14542E-03_JPRB,0.22095E-03_JPRB,0.23576E-03_JPRB,0.23659E-03_JPRB,0.23393E-03_JPRB, &
+ & 0.22421E-03_JPRB,0.20413E-03_JPRB,0.17485E-03_JPRB,0.11080E-03_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.14519E-03_JPRB,0.22277E-03_JPRB,0.24039E-03_JPRB,0.24264E-03_JPRB,0.23941E-03_JPRB, &
+ & 0.22826E-03_JPRB,0.20957E-03_JPRB,0.17862E-03_JPRB,0.11236E-03_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.14504E-03_JPRB,0.22526E-03_JPRB,0.24523E-03_JPRB,0.24877E-03_JPRB,0.24473E-03_JPRB, &
+ & 0.23381E-03_JPRB,0.21512E-03_JPRB,0.18339E-03_JPRB,0.11577E-03_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.14497E-03_JPRB,0.22869E-03_JPRB,0.25070E-03_JPRB,0.25513E-03_JPRB,0.25076E-03_JPRB, &
+ & 0.23990E-03_JPRB,0.22117E-03_JPRB,0.18804E-03_JPRB,0.11947E-03_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.12609E-03_JPRB,0.19125E-03_JPRB,0.20302E-03_JPRB,0.20235E-03_JPRB,0.20038E-03_JPRB, &
+ & 0.19210E-03_JPRB,0.17493E-03_JPRB,0.14918E-03_JPRB,0.95914E-04_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.12575E-03_JPRB,0.19304E-03_JPRB,0.20668E-03_JPRB,0.20708E-03_JPRB,0.20395E-03_JPRB, &
+ & 0.19513E-03_JPRB,0.17862E-03_JPRB,0.15191E-03_JPRB,0.95952E-04_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.12572E-03_JPRB,0.19504E-03_JPRB,0.21070E-03_JPRB,0.21227E-03_JPRB,0.20862E-03_JPRB, &
+ & 0.19877E-03_JPRB,0.18323E-03_JPRB,0.15540E-03_JPRB,0.98040E-04_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.12578E-03_JPRB,0.19736E-03_JPRB,0.21498E-03_JPRB,0.21770E-03_JPRB,0.21305E-03_JPRB, &
+ & 0.20380E-03_JPRB,0.18766E-03_JPRB,0.15949E-03_JPRB,0.10020E-03_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.12588E-03_JPRB,0.20051E-03_JPRB,0.21971E-03_JPRB,0.22313E-03_JPRB,0.21848E-03_JPRB, &
+ & 0.20915E-03_JPRB,0.19284E-03_JPRB,0.16321E-03_JPRB,0.10267E-03_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.10863E-03_JPRB,0.16576E-03_JPRB,0.17695E-03_JPRB,0.17678E-03_JPRB,0.17469E-03_JPRB, &
+ & 0.16678E-03_JPRB,0.15163E-03_JPRB,0.12940E-03_JPRB,0.89550E-04_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.10863E-03_JPRB,0.16706E-03_JPRB,0.18030E-03_JPRB,0.18081E-03_JPRB,0.17775E-03_JPRB, &
+ & 0.16938E-03_JPRB,0.15534E-03_JPRB,0.13148E-03_JPRB,0.89670E-04_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.10855E-03_JPRB,0.16916E-03_JPRB,0.18384E-03_JPRB,0.18538E-03_JPRB,0.18134E-03_JPRB, &
+ & 0.17272E-03_JPRB,0.15912E-03_JPRB,0.13459E-03_JPRB,0.90520E-04_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.10855E-03_JPRB,0.17152E-03_JPRB,0.18761E-03_JPRB,0.18997E-03_JPRB,0.18510E-03_JPRB, &
+ & 0.17711E-03_JPRB,0.16286E-03_JPRB,0.13757E-03_JPRB,0.91792E-04_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.10853E-03_JPRB,0.17415E-03_JPRB,0.19152E-03_JPRB,0.19450E-03_JPRB,0.18955E-03_JPRB, &
+ & 0.18160E-03_JPRB,0.16658E-03_JPRB,0.14151E-03_JPRB,0.94030E-04_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.92930E-04_JPRB,0.14283E-03_JPRB,0.15332E-03_JPRB,0.15365E-03_JPRB,0.15192E-03_JPRB, &
+ & 0.14476E-03_JPRB,0.13092E-03_JPRB,0.11095E-03_JPRB,0.91877E-04_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.92984E-04_JPRB,0.14401E-03_JPRB,0.15614E-03_JPRB,0.15721E-03_JPRB,0.15413E-03_JPRB, &
+ & 0.14688E-03_JPRB,0.13443E-03_JPRB,0.11315E-03_JPRB,0.90405E-04_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.92945E-04_JPRB,0.14573E-03_JPRB,0.15905E-03_JPRB,0.16110E-03_JPRB,0.15737E-03_JPRB, &
+ & 0.14983E-03_JPRB,0.13738E-03_JPRB,0.11591E-03_JPRB,0.89977E-04_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.93035E-04_JPRB,0.14787E-03_JPRB,0.16239E-03_JPRB,0.16472E-03_JPRB,0.16084E-03_JPRB, &
+ & 0.15371E-03_JPRB,0.14051E-03_JPRB,0.11827E-03_JPRB,0.90955E-04_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.92985E-04_JPRB,0.15023E-03_JPRB,0.16593E-03_JPRB,0.16877E-03_JPRB,0.16496E-03_JPRB, &
+ & 0.15743E-03_JPRB,0.14348E-03_JPRB,0.12221E-03_JPRB,0.92269E-04_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.79600E-04_JPRB,0.12290E-03_JPRB,0.13269E-03_JPRB,0.13322E-03_JPRB,0.13145E-03_JPRB, &
+ & 0.12540E-03_JPRB,0.11354E-03_JPRB,0.94559E-04_JPRB,0.10796E-03_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.79683E-04_JPRB,0.12390E-03_JPRB,0.13495E-03_JPRB,0.13633E-03_JPRB,0.13351E-03_JPRB, &
+ & 0.12708E-03_JPRB,0.11620E-03_JPRB,0.96898E-04_JPRB,0.10854E-03_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.79630E-04_JPRB,0.12537E-03_JPRB,0.13745E-03_JPRB,0.13937E-03_JPRB,0.13626E-03_JPRB, &
+ & 0.12970E-03_JPRB,0.11867E-03_JPRB,0.99068E-04_JPRB,0.10974E-03_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.79625E-04_JPRB,0.12719E-03_JPRB,0.14027E-03_JPRB,0.14234E-03_JPRB,0.13941E-03_JPRB, &
+ & 0.13283E-03_JPRB,0.12113E-03_JPRB,0.10155E-03_JPRB,0.11075E-03_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.79589E-04_JPRB,0.12914E-03_JPRB,0.14322E-03_JPRB,0.14575E-03_JPRB,0.14305E-03_JPRB, &
+ & 0.13597E-03_JPRB,0.12361E-03_JPRB,0.10505E-03_JPRB,0.11038E-03_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.67917E-04_JPRB,0.10525E-03_JPRB,0.11421E-03_JPRB,0.11510E-03_JPRB,0.11341E-03_JPRB, &
+ & 0.10850E-03_JPRB,0.97945E-04_JPRB,0.80197E-04_JPRB,0.13259E-03_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.67928E-04_JPRB,0.10625E-03_JPRB,0.11606E-03_JPRB,0.11762E-03_JPRB,0.11532E-03_JPRB, &
+ & 0.11035E-03_JPRB,0.10017E-03_JPRB,0.82394E-04_JPRB,0.13427E-03_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.67856E-04_JPRB,0.10744E-03_JPRB,0.11824E-03_JPRB,0.11998E-03_JPRB,0.11756E-03_JPRB, &
+ & 0.11235E-03_JPRB,0.10203E-03_JPRB,0.84408E-04_JPRB,0.13461E-03_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.67768E-04_JPRB,0.10890E-03_JPRB,0.12070E-03_JPRB,0.12262E-03_JPRB,0.12012E-03_JPRB, &
+ & 0.11456E-03_JPRB,0.10420E-03_JPRB,0.86916E-04_JPRB,0.13504E-03_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.67707E-04_JPRB,0.11054E-03_JPRB,0.12323E-03_JPRB,0.12567E-03_JPRB,0.12318E-03_JPRB, &
+ & 0.11694E-03_JPRB,0.10644E-03_JPRB,0.89648E-04_JPRB,0.13829E-03_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.57658E-04_JPRB,0.89812E-04_JPRB,0.97774E-04_JPRB,0.98825E-04_JPRB,0.97412E-04_JPRB, &
+ & 0.93433E-04_JPRB,0.84119E-04_JPRB,0.68026E-04_JPRB,0.20137E-03_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.57461E-04_JPRB,0.90575E-04_JPRB,0.99228E-04_JPRB,0.10076E-03_JPRB,0.98930E-04_JPRB, &
+ & 0.94984E-04_JPRB,0.86081E-04_JPRB,0.70085E-04_JPRB,0.20178E-03_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.57397E-04_JPRB,0.91666E-04_JPRB,0.10122E-03_JPRB,0.10281E-03_JPRB,0.10088E-03_JPRB, &
+ & 0.96688E-04_JPRB,0.87695E-04_JPRB,0.72010E-04_JPRB,0.20052E-03_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.57291E-04_JPRB,0.92869E-04_JPRB,0.10334E-03_JPRB,0.10517E-03_JPRB,0.10317E-03_JPRB, &
+ & 0.98293E-04_JPRB,0.89394E-04_JPRB,0.74251E-04_JPRB,0.20103E-03_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.57126E-04_JPRB,0.94072E-04_JPRB,0.10545E-03_JPRB,0.10789E-03_JPRB,0.10579E-03_JPRB, &
+ & 0.10034E-03_JPRB,0.91420E-04_JPRB,0.76761E-04_JPRB,0.20035E-03_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.48600E-04_JPRB,0.76535E-04_JPRB,0.83721E-04_JPRB,0.84782E-04_JPRB,0.83379E-04_JPRB, &
+ & 0.80481E-04_JPRB,0.72441E-04_JPRB,0.58503E-04_JPRB,0.20926E-03_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.48356E-04_JPRB,0.77272E-04_JPRB,0.85067E-04_JPRB,0.86588E-04_JPRB,0.84928E-04_JPRB, &
+ & 0.81803E-04_JPRB,0.74015E-04_JPRB,0.60222E-04_JPRB,0.21110E-03_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.48180E-04_JPRB,0.78198E-04_JPRB,0.86939E-04_JPRB,0.88416E-04_JPRB,0.86712E-04_JPRB, &
+ & 0.83176E-04_JPRB,0.75535E-04_JPRB,0.61973E-04_JPRB,0.20823E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 4,11, 3) = (/ &
+ & 0.48042E-04_JPRB,0.79160E-04_JPRB,0.88776E-04_JPRB,0.90704E-04_JPRB,0.88934E-04_JPRB, &
+ & 0.84522E-04_JPRB,0.76983E-04_JPRB,0.64264E-04_JPRB,0.20745E-03_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.47901E-04_JPRB,0.80171E-04_JPRB,0.90395E-04_JPRB,0.92950E-04_JPRB,0.91253E-04_JPRB, &
+ & 0.86364E-04_JPRB,0.78675E-04_JPRB,0.66159E-04_JPRB,0.20642E-03_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.40769E-04_JPRB,0.64775E-04_JPRB,0.71240E-04_JPRB,0.72409E-04_JPRB,0.71085E-04_JPRB, &
+ & 0.68679E-04_JPRB,0.61925E-04_JPRB,0.50009E-04_JPRB,0.19056E-03_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.40486E-04_JPRB,0.65479E-04_JPRB,0.72574E-04_JPRB,0.73906E-04_JPRB,0.72438E-04_JPRB, &
+ & 0.69693E-04_JPRB,0.63286E-04_JPRB,0.51717E-04_JPRB,0.19000E-03_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.40313E-04_JPRB,0.66212E-04_JPRB,0.74137E-04_JPRB,0.75686E-04_JPRB,0.74201E-04_JPRB, &
+ & 0.70781E-04_JPRB,0.64554E-04_JPRB,0.53372E-04_JPRB,0.19242E-03_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.40107E-04_JPRB,0.66938E-04_JPRB,0.75524E-04_JPRB,0.77664E-04_JPRB,0.76142E-04_JPRB, &
+ & 0.72280E-04_JPRB,0.65894E-04_JPRB,0.55174E-04_JPRB,0.19382E-03_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.39910E-04_JPRB,0.67782E-04_JPRB,0.76780E-04_JPRB,0.79463E-04_JPRB,0.78210E-04_JPRB, &
+ & 0.73902E-04_JPRB,0.67292E-04_JPRB,0.56789E-04_JPRB,0.19106E-03_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.34103E-04_JPRB,0.54622E-04_JPRB,0.60315E-04_JPRB,0.61417E-04_JPRB,0.60332E-04_JPRB, &
+ & 0.58110E-04_JPRB,0.52537E-04_JPRB,0.42612E-04_JPRB,0.15955E-03_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.33853E-04_JPRB,0.55148E-04_JPRB,0.61492E-04_JPRB,0.62745E-04_JPRB,0.61577E-04_JPRB, &
+ & 0.59061E-04_JPRB,0.53702E-04_JPRB,0.43873E-04_JPRB,0.15892E-03_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.33647E-04_JPRB,0.55699E-04_JPRB,0.62687E-04_JPRB,0.64355E-04_JPRB,0.63160E-04_JPRB, &
+ & 0.60072E-04_JPRB,0.54954E-04_JPRB,0.45643E-04_JPRB,0.16047E-03_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.33430E-04_JPRB,0.56291E-04_JPRB,0.63770E-04_JPRB,0.65844E-04_JPRB,0.64844E-04_JPRB, &
+ & 0.61457E-04_JPRB,0.56064E-04_JPRB,0.47101E-04_JPRB,0.16125E-03_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.33186E-04_JPRB,0.56947E-04_JPRB,0.64747E-04_JPRB,0.67352E-04_JPRB,0.66508E-04_JPRB, &
+ & 0.62903E-04_JPRB,0.57307E-04_JPRB,0.48379E-04_JPRB,0.16021E-03_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.36602E-03_JPRB,0.52858E-03_JPRB,0.59251E-03_JPRB,0.61027E-03_JPRB,0.60893E-03_JPRB, &
+ & 0.58987E-03_JPRB,0.55560E-03_JPRB,0.49855E-03_JPRB,0.38105E-03_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.36935E-03_JPRB,0.53570E-03_JPRB,0.60138E-03_JPRB,0.62341E-03_JPRB,0.62297E-03_JPRB, &
+ & 0.60228E-03_JPRB,0.56872E-03_JPRB,0.51035E-03_JPRB,0.39106E-03_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.37348E-03_JPRB,0.54590E-03_JPRB,0.61238E-03_JPRB,0.63855E-03_JPRB,0.63820E-03_JPRB, &
+ & 0.61734E-03_JPRB,0.58475E-03_JPRB,0.52206E-03_JPRB,0.40317E-03_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.37665E-03_JPRB,0.55373E-03_JPRB,0.62261E-03_JPRB,0.65120E-03_JPRB,0.65250E-03_JPRB, &
+ & 0.63373E-03_JPRB,0.59840E-03_JPRB,0.53517E-03_JPRB,0.41639E-03_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.38076E-03_JPRB,0.56302E-03_JPRB,0.63456E-03_JPRB,0.66611E-03_JPRB,0.66857E-03_JPRB, &
+ & 0.65240E-03_JPRB,0.61521E-03_JPRB,0.55178E-03_JPRB,0.43702E-03_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.32225E-03_JPRB,0.47151E-03_JPRB,0.53262E-03_JPRB,0.55192E-03_JPRB,0.54706E-03_JPRB, &
+ & 0.52658E-03_JPRB,0.49569E-03_JPRB,0.43958E-03_JPRB,0.31739E-03_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.32532E-03_JPRB,0.47816E-03_JPRB,0.54076E-03_JPRB,0.56222E-03_JPRB,0.55834E-03_JPRB, &
+ & 0.53879E-03_JPRB,0.50612E-03_JPRB,0.44777E-03_JPRB,0.32763E-03_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.32941E-03_JPRB,0.48729E-03_JPRB,0.55083E-03_JPRB,0.57497E-03_JPRB,0.57312E-03_JPRB, &
+ & 0.55394E-03_JPRB,0.51991E-03_JPRB,0.45969E-03_JPRB,0.33942E-03_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.33303E-03_JPRB,0.49510E-03_JPRB,0.56036E-03_JPRB,0.58720E-03_JPRB,0.58669E-03_JPRB, &
+ & 0.56974E-03_JPRB,0.53255E-03_JPRB,0.47385E-03_JPRB,0.35453E-03_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.33657E-03_JPRB,0.50290E-03_JPRB,0.57014E-03_JPRB,0.59917E-03_JPRB,0.59997E-03_JPRB, &
+ & 0.58475E-03_JPRB,0.54777E-03_JPRB,0.48909E-03_JPRB,0.36980E-03_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.28263E-03_JPRB,0.41968E-03_JPRB,0.47376E-03_JPRB,0.49297E-03_JPRB,0.48633E-03_JPRB, &
+ & 0.46530E-03_JPRB,0.43654E-03_JPRB,0.38496E-03_JPRB,0.26217E-03_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.28517E-03_JPRB,0.42528E-03_JPRB,0.48017E-03_JPRB,0.50148E-03_JPRB,0.49564E-03_JPRB, &
+ & 0.47634E-03_JPRB,0.44517E-03_JPRB,0.39228E-03_JPRB,0.27386E-03_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.28805E-03_JPRB,0.43254E-03_JPRB,0.48769E-03_JPRB,0.51075E-03_JPRB,0.50628E-03_JPRB, &
+ & 0.48940E-03_JPRB,0.45557E-03_JPRB,0.40274E-03_JPRB,0.28527E-03_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.29156E-03_JPRB,0.44130E-03_JPRB,0.49824E-03_JPRB,0.52245E-03_JPRB,0.52001E-03_JPRB, &
+ & 0.50355E-03_JPRB,0.46711E-03_JPRB,0.41540E-03_JPRB,0.29729E-03_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.29453E-03_JPRB,0.44828E-03_JPRB,0.50753E-03_JPRB,0.53257E-03_JPRB,0.53321E-03_JPRB, &
+ & 0.51645E-03_JPRB,0.48189E-03_JPRB,0.42882E-03_JPRB,0.30960E-03_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.24709E-03_JPRB,0.37040E-03_JPRB,0.41811E-03_JPRB,0.43692E-03_JPRB,0.42924E-03_JPRB, &
+ & 0.40974E-03_JPRB,0.38217E-03_JPRB,0.33504E-03_JPRB,0.21956E-03_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.24935E-03_JPRB,0.37531E-03_JPRB,0.42359E-03_JPRB,0.44356E-03_JPRB,0.43669E-03_JPRB, &
+ & 0.41955E-03_JPRB,0.39063E-03_JPRB,0.34337E-03_JPRB,0.23257E-03_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.25192E-03_JPRB,0.38183E-03_JPRB,0.43049E-03_JPRB,0.45130E-03_JPRB,0.44572E-03_JPRB, &
+ & 0.43016E-03_JPRB,0.39919E-03_JPRB,0.35274E-03_JPRB,0.24051E-03_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.25420E-03_JPRB,0.38887E-03_JPRB,0.43864E-03_JPRB,0.46020E-03_JPRB,0.45692E-03_JPRB, &
+ & 0.44111E-03_JPRB,0.40882E-03_JPRB,0.36219E-03_JPRB,0.24966E-03_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.25772E-03_JPRB,0.39769E-03_JPRB,0.44993E-03_JPRB,0.47213E-03_JPRB,0.47068E-03_JPRB, &
+ & 0.45426E-03_JPRB,0.42157E-03_JPRB,0.37400E-03_JPRB,0.25930E-03_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.21574E-03_JPRB,0.32603E-03_JPRB,0.36644E-03_JPRB,0.38307E-03_JPRB,0.37721E-03_JPRB, &
+ & 0.36018E-03_JPRB,0.33363E-03_JPRB,0.29143E-03_JPRB,0.18896E-03_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.21778E-03_JPRB,0.33044E-03_JPRB,0.37107E-03_JPRB,0.38833E-03_JPRB,0.38426E-03_JPRB, &
+ & 0.36797E-03_JPRB,0.34054E-03_JPRB,0.29920E-03_JPRB,0.19816E-03_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.22015E-03_JPRB,0.33584E-03_JPRB,0.37735E-03_JPRB,0.39513E-03_JPRB,0.39228E-03_JPRB, &
+ & 0.37720E-03_JPRB,0.34842E-03_JPRB,0.30654E-03_JPRB,0.20383E-03_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.22252E-03_JPRB,0.34167E-03_JPRB,0.38484E-03_JPRB,0.40343E-03_JPRB,0.40251E-03_JPRB, &
+ & 0.38567E-03_JPRB,0.35760E-03_JPRB,0.31401E-03_JPRB,0.21178E-03_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.22604E-03_JPRB,0.34964E-03_JPRB,0.39509E-03_JPRB,0.41443E-03_JPRB,0.41465E-03_JPRB, &
+ & 0.39685E-03_JPRB,0.36847E-03_JPRB,0.32400E-03_JPRB,0.21929E-03_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.18783E-03_JPRB,0.28666E-03_JPRB,0.32037E-03_JPRB,0.33351E-03_JPRB,0.32945E-03_JPRB, &
+ & 0.31516E-03_JPRB,0.29066E-03_JPRB,0.25263E-03_JPRB,0.16238E-03_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.18921E-03_JPRB,0.29078E-03_JPRB,0.32423E-03_JPRB,0.33799E-03_JPRB,0.33536E-03_JPRB, &
+ & 0.32156E-03_JPRB,0.29643E-03_JPRB,0.25941E-03_JPRB,0.16831E-03_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.19117E-03_JPRB,0.29487E-03_JPRB,0.32978E-03_JPRB,0.34375E-03_JPRB,0.34274E-03_JPRB, &
+ & 0.32907E-03_JPRB,0.30344E-03_JPRB,0.26560E-03_JPRB,0.17389E-03_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.19356E-03_JPRB,0.29979E-03_JPRB,0.33631E-03_JPRB,0.35135E-03_JPRB,0.35098E-03_JPRB, &
+ & 0.33648E-03_JPRB,0.31108E-03_JPRB,0.27199E-03_JPRB,0.18056E-03_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.19643E-03_JPRB,0.30567E-03_JPRB,0.34396E-03_JPRB,0.35996E-03_JPRB,0.36067E-03_JPRB, &
+ & 0.34559E-03_JPRB,0.32056E-03_JPRB,0.28009E-03_JPRB,0.18507E-03_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.16233E-03_JPRB,0.25159E-03_JPRB,0.28051E-03_JPRB,0.29071E-03_JPRB,0.28724E-03_JPRB, &
+ & 0.27399E-03_JPRB,0.25257E-03_JPRB,0.21995E-03_JPRB,0.15053E-03_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.16394E-03_JPRB,0.25497E-03_JPRB,0.28374E-03_JPRB,0.29454E-03_JPRB,0.29203E-03_JPRB, &
+ & 0.28002E-03_JPRB,0.25781E-03_JPRB,0.22523E-03_JPRB,0.15467E-03_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.16554E-03_JPRB,0.25862E-03_JPRB,0.28837E-03_JPRB,0.29946E-03_JPRB,0.29804E-03_JPRB, &
+ & 0.28580E-03_JPRB,0.26386E-03_JPRB,0.23003E-03_JPRB,0.15858E-03_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.16755E-03_JPRB,0.26275E-03_JPRB,0.29380E-03_JPRB,0.30624E-03_JPRB,0.30499E-03_JPRB, &
+ & 0.29233E-03_JPRB,0.27029E-03_JPRB,0.23539E-03_JPRB,0.16161E-03_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.17007E-03_JPRB,0.26765E-03_JPRB,0.30035E-03_JPRB,0.31353E-03_JPRB,0.31332E-03_JPRB, &
+ & 0.30019E-03_JPRB,0.27871E-03_JPRB,0.24192E-03_JPRB,0.16587E-03_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.14021E-03_JPRB,0.21983E-03_JPRB,0.24557E-03_JPRB,0.25394E-03_JPRB,0.25027E-03_JPRB, &
+ & 0.23769E-03_JPRB,0.21853E-03_JPRB,0.19056E-03_JPRB,0.17210E-03_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.14181E-03_JPRB,0.22244E-03_JPRB,0.24837E-03_JPRB,0.25730E-03_JPRB,0.25433E-03_JPRB, &
+ & 0.24284E-03_JPRB,0.22361E-03_JPRB,0.19448E-03_JPRB,0.16707E-03_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.14344E-03_JPRB,0.22578E-03_JPRB,0.25216E-03_JPRB,0.26169E-03_JPRB,0.25950E-03_JPRB, &
+ & 0.24760E-03_JPRB,0.22868E-03_JPRB,0.19861E-03_JPRB,0.16518E-03_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.14524E-03_JPRB,0.22935E-03_JPRB,0.25652E-03_JPRB,0.26715E-03_JPRB,0.26554E-03_JPRB, &
+ & 0.25327E-03_JPRB,0.23470E-03_JPRB,0.20360E-03_JPRB,0.16514E-03_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.14752E-03_JPRB,0.23348E-03_JPRB,0.26209E-03_JPRB,0.27316E-03_JPRB,0.27225E-03_JPRB, &
+ & 0.26056E-03_JPRB,0.24203E-03_JPRB,0.20916E-03_JPRB,0.16671E-03_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.12008E-03_JPRB,0.19084E-03_JPRB,0.21359E-03_JPRB,0.22137E-03_JPRB,0.21826E-03_JPRB, &
+ & 0.20646E-03_JPRB,0.18855E-03_JPRB,0.16443E-03_JPRB,0.31379E-03_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.12170E-03_JPRB,0.19281E-03_JPRB,0.21619E-03_JPRB,0.22414E-03_JPRB,0.22156E-03_JPRB, &
+ & 0.21036E-03_JPRB,0.19272E-03_JPRB,0.16751E-03_JPRB,0.30810E-03_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.12341E-03_JPRB,0.19553E-03_JPRB,0.21930E-03_JPRB,0.22810E-03_JPRB,0.22604E-03_JPRB, &
+ & 0.21457E-03_JPRB,0.19724E-03_JPRB,0.17093E-03_JPRB,0.30579E-03_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.12515E-03_JPRB,0.19866E-03_JPRB,0.22306E-03_JPRB,0.23273E-03_JPRB,0.23128E-03_JPRB, &
+ & 0.22000E-03_JPRB,0.20255E-03_JPRB,0.17520E-03_JPRB,0.30468E-03_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.12711E-03_JPRB,0.20244E-03_JPRB,0.22780E-03_JPRB,0.23779E-03_JPRB,0.23723E-03_JPRB, &
+ & 0.22672E-03_JPRB,0.20873E-03_JPRB,0.18006E-03_JPRB,0.30071E-03_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.10239E-03_JPRB,0.16495E-03_JPRB,0.18568E-03_JPRB,0.19287E-03_JPRB,0.19038E-03_JPRB, &
+ & 0.17962E-03_JPRB,0.16274E-03_JPRB,0.14112E-03_JPRB,0.46281E-03_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.10386E-03_JPRB,0.16652E-03_JPRB,0.18791E-03_JPRB,0.19539E-03_JPRB,0.19307E-03_JPRB, &
+ & 0.18291E-03_JPRB,0.16628E-03_JPRB,0.14354E-03_JPRB,0.46032E-03_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.10550E-03_JPRB,0.16884E-03_JPRB,0.19060E-03_JPRB,0.19863E-03_JPRB,0.19685E-03_JPRB, &
+ & 0.18669E-03_JPRB,0.17045E-03_JPRB,0.14674E-03_JPRB,0.45882E-03_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.10710E-03_JPRB,0.17185E-03_JPRB,0.19377E-03_JPRB,0.20238E-03_JPRB,0.20140E-03_JPRB, &
+ & 0.19164E-03_JPRB,0.17544E-03_JPRB,0.15076E-03_JPRB,0.45556E-03_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.10887E-03_JPRB,0.17528E-03_JPRB,0.19755E-03_JPRB,0.20663E-03_JPRB,0.20650E-03_JPRB, &
+ & 0.19756E-03_JPRB,0.18068E-03_JPRB,0.15495E-03_JPRB,0.45295E-03_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.87454E-04_JPRB,0.14214E-03_JPRB,0.16093E-03_JPRB,0.16784E-03_JPRB,0.16634E-03_JPRB, &
+ & 0.15750E-03_JPRB,0.14233E-03_JPRB,0.12157E-03_JPRB,0.50227E-03_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.89026E-04_JPRB,0.14363E-03_JPRB,0.16297E-03_JPRB,0.17024E-03_JPRB,0.16905E-03_JPRB, &
+ & 0.16052E-03_JPRB,0.14560E-03_JPRB,0.12384E-03_JPRB,0.48800E-03_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.90456E-04_JPRB,0.14595E-03_JPRB,0.16534E-03_JPRB,0.17342E-03_JPRB,0.17281E-03_JPRB, &
+ & 0.16441E-03_JPRB,0.14965E-03_JPRB,0.12699E-03_JPRB,0.48638E-03_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.91788E-04_JPRB,0.14885E-03_JPRB,0.16823E-03_JPRB,0.17680E-03_JPRB,0.17688E-03_JPRB, &
+ & 0.16911E-03_JPRB,0.15409E-03_JPRB,0.13060E-03_JPRB,0.48097E-03_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.92958E-04_JPRB,0.15220E-03_JPRB,0.17197E-03_JPRB,0.18085E-03_JPRB,0.18150E-03_JPRB, &
+ & 0.17440E-03_JPRB,0.15892E-03_JPRB,0.13466E-03_JPRB,0.48115E-03_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.74228E-04_JPRB,0.12171E-03_JPRB,0.13828E-03_JPRB,0.14464E-03_JPRB,0.14381E-03_JPRB, &
+ & 0.13674E-03_JPRB,0.12370E-03_JPRB,0.10454E-03_JPRB,0.48263E-03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.75542E-04_JPRB,0.12330E-03_JPRB,0.13992E-03_JPRB,0.14688E-03_JPRB,0.14666E-03_JPRB, &
+ & 0.13981E-03_JPRB,0.12694E-03_JPRB,0.10662E-03_JPRB,0.46961E-03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.76696E-04_JPRB,0.12551E-03_JPRB,0.14218E-03_JPRB,0.14964E-03_JPRB,0.14989E-03_JPRB, &
+ & 0.14346E-03_JPRB,0.13058E-03_JPRB,0.10986E-03_JPRB,0.45986E-03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.77769E-04_JPRB,0.12821E-03_JPRB,0.14505E-03_JPRB,0.15276E-03_JPRB,0.15361E-03_JPRB, &
+ & 0.14764E-03_JPRB,0.13466E-03_JPRB,0.11322E-03_JPRB,0.45064E-03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.78633E-04_JPRB,0.13113E-03_JPRB,0.14863E-03_JPRB,0.15667E-03_JPRB,0.15783E-03_JPRB, &
+ & 0.15249E-03_JPRB,0.13915E-03_JPRB,0.11696E-03_JPRB,0.45257E-03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.62659E-04_JPRB,0.10388E-03_JPRB,0.11828E-03_JPRB,0.12392E-03_JPRB,0.12371E-03_JPRB, &
+ & 0.11811E-03_JPRB,0.10712E-03_JPRB,0.89769E-04_JPRB,0.40925E-03_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.63709E-04_JPRB,0.10546E-03_JPRB,0.11986E-03_JPRB,0.12594E-03_JPRB,0.12627E-03_JPRB, &
+ & 0.12095E-03_JPRB,0.11006E-03_JPRB,0.92053E-04_JPRB,0.39852E-03_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.64717E-04_JPRB,0.10750E-03_JPRB,0.12189E-03_JPRB,0.12839E-03_JPRB,0.12907E-03_JPRB, &
+ & 0.12414E-03_JPRB,0.11317E-03_JPRB,0.94939E-04_JPRB,0.39013E-03_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.65465E-04_JPRB,0.10983E-03_JPRB,0.12464E-03_JPRB,0.13149E-03_JPRB,0.13253E-03_JPRB, &
+ & 0.12801E-03_JPRB,0.11693E-03_JPRB,0.98001E-04_JPRB,0.38349E-03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.66137E-04_JPRB,0.11222E-03_JPRB,0.12786E-03_JPRB,0.13517E-03_JPRB,0.13652E-03_JPRB, &
+ & 0.13219E-03_JPRB,0.12093E-03_JPRB,0.10155E-03_JPRB,0.38305E-03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.60998E-03_JPRB,0.92357E-03_JPRB,0.10463E-02_JPRB,0.11196E-02_JPRB,0.11571E-02_JPRB, &
+ & 0.11569E-02_JPRB,0.11152E-02_JPRB,0.10342E-02_JPRB,0.80721E-03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.61496E-03_JPRB,0.93510E-03_JPRB,0.10604E-02_JPRB,0.11361E-02_JPRB,0.11777E-02_JPRB, &
+ & 0.11834E-02_JPRB,0.11457E-02_JPRB,0.10708E-02_JPRB,0.83732E-03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.62454E-03_JPRB,0.95002E-03_JPRB,0.10819E-02_JPRB,0.11594E-02_JPRB,0.12038E-02_JPRB, &
+ & 0.12158E-02_JPRB,0.11823E-02_JPRB,0.11158E-02_JPRB,0.87187E-03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.63013E-03_JPRB,0.96444E-03_JPRB,0.11010E-02_JPRB,0.11847E-02_JPRB,0.12326E-02_JPRB, &
+ & 0.12499E-02_JPRB,0.12239E-02_JPRB,0.11623E-02_JPRB,0.91505E-03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.63867E-03_JPRB,0.98562E-03_JPRB,0.11276E-02_JPRB,0.12151E-02_JPRB,0.12673E-02_JPRB, &
+ & 0.12886E-02_JPRB,0.12687E-02_JPRB,0.12127E-02_JPRB,0.95931E-03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.54006E-03_JPRB,0.82110E-03_JPRB,0.93517E-03_JPRB,0.10086E-02_JPRB,0.10436E-02_JPRB, &
+ & 0.10473E-02_JPRB,0.10071E-02_JPRB,0.92435E-03_JPRB,0.69632E-03_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.54512E-03_JPRB,0.83214E-03_JPRB,0.94586E-03_JPRB,0.10224E-02_JPRB,0.10616E-02_JPRB, &
+ & 0.10697E-02_JPRB,0.10360E-02_JPRB,0.95897E-03_JPRB,0.72282E-03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.55430E-03_JPRB,0.84713E-03_JPRB,0.96481E-03_JPRB,0.10423E-02_JPRB,0.10850E-02_JPRB, &
+ & 0.10972E-02_JPRB,0.10691E-02_JPRB,0.99640E-03_JPRB,0.75512E-03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.56089E-03_JPRB,0.86369E-03_JPRB,0.98575E-03_JPRB,0.10648E-02_JPRB,0.11112E-02_JPRB, &
+ & 0.11281E-02_JPRB,0.11049E-02_JPRB,0.10361E-02_JPRB,0.79150E-03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.56701E-03_JPRB,0.88105E-03_JPRB,0.10081E-02_JPRB,0.10898E-02_JPRB,0.11420E-02_JPRB, &
+ & 0.11626E-02_JPRB,0.11406E-02_JPRB,0.10780E-02_JPRB,0.83023E-03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.47586E-03_JPRB,0.72781E-03_JPRB,0.83369E-03_JPRB,0.89860E-03_JPRB,0.93234E-03_JPRB, &
+ & 0.93626E-03_JPRB,0.89909E-03_JPRB,0.81585E-03_JPRB,0.59036E-03_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.48035E-03_JPRB,0.73757E-03_JPRB,0.84502E-03_JPRB,0.91276E-03_JPRB,0.94800E-03_JPRB, &
+ & 0.95536E-03_JPRB,0.92668E-03_JPRB,0.84501E-03_JPRB,0.61080E-03_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.48667E-03_JPRB,0.74941E-03_JPRB,0.86058E-03_JPRB,0.92996E-03_JPRB,0.96794E-03_JPRB, &
+ & 0.97737E-03_JPRB,0.95368E-03_JPRB,0.87646E-03_JPRB,0.63872E-03_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.49637E-03_JPRB,0.76538E-03_JPRB,0.87882E-03_JPRB,0.95073E-03_JPRB,0.99190E-03_JPRB, &
+ & 0.10051E-02_JPRB,0.98438E-03_JPRB,0.91070E-03_JPRB,0.66866E-03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.50269E-03_JPRB,0.78028E-03_JPRB,0.89635E-03_JPRB,0.97198E-03_JPRB,0.10179E-02_JPRB, &
+ & 0.10338E-02_JPRB,0.10130E-02_JPRB,0.94553E-03_JPRB,0.70095E-03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.41745E-03_JPRB,0.64505E-03_JPRB,0.73966E-03_JPRB,0.79761E-03_JPRB,0.82752E-03_JPRB, &
+ & 0.82878E-03_JPRB,0.79470E-03_JPRB,0.71636E-03_JPRB,0.49987E-03_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.42212E-03_JPRB,0.65318E-03_JPRB,0.75017E-03_JPRB,0.80979E-03_JPRB,0.84194E-03_JPRB, &
+ & 0.84473E-03_JPRB,0.81717E-03_JPRB,0.73865E-03_JPRB,0.51625E-03_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.42808E-03_JPRB,0.66407E-03_JPRB,0.76314E-03_JPRB,0.82416E-03_JPRB,0.85814E-03_JPRB, &
+ & 0.86375E-03_JPRB,0.83972E-03_JPRB,0.76440E-03_JPRB,0.53894E-03_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.43544E-03_JPRB,0.67737E-03_JPRB,0.77911E-03_JPRB,0.84222E-03_JPRB,0.87777E-03_JPRB, &
+ & 0.88583E-03_JPRB,0.86479E-03_JPRB,0.79362E-03_JPRB,0.56271E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 4, 5) = (/ &
+ & 0.44549E-03_JPRB,0.69330E-03_JPRB,0.79686E-03_JPRB,0.86274E-03_JPRB,0.90103E-03_JPRB, &
+ & 0.91189E-03_JPRB,0.89184E-03_JPRB,0.82416E-03_JPRB,0.58887E-03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.36593E-03_JPRB,0.56942E-03_JPRB,0.65432E-03_JPRB,0.70354E-03_JPRB,0.72916E-03_JPRB, &
+ & 0.72850E-03_JPRB,0.69713E-03_JPRB,0.62558E-03_JPRB,0.42621E-03_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.37099E-03_JPRB,0.57654E-03_JPRB,0.66395E-03_JPRB,0.71472E-03_JPRB,0.74107E-03_JPRB, &
+ & 0.74240E-03_JPRB,0.71535E-03_JPRB,0.64376E-03_JPRB,0.43884E-03_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.37647E-03_JPRB,0.58652E-03_JPRB,0.67530E-03_JPRB,0.72837E-03_JPRB,0.75654E-03_JPRB, &
+ & 0.75759E-03_JPRB,0.73402E-03_JPRB,0.66546E-03_JPRB,0.45630E-03_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.38311E-03_JPRB,0.59837E-03_JPRB,0.68871E-03_JPRB,0.74328E-03_JPRB,0.77277E-03_JPRB, &
+ & 0.77677E-03_JPRB,0.75490E-03_JPRB,0.68962E-03_JPRB,0.47449E-03_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.39217E-03_JPRB,0.61368E-03_JPRB,0.70480E-03_JPRB,0.76178E-03_JPRB,0.79297E-03_JPRB, &
+ & 0.79889E-03_JPRB,0.77761E-03_JPRB,0.71542E-03_JPRB,0.49580E-03_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.32055E-03_JPRB,0.49922E-03_JPRB,0.57435E-03_JPRB,0.61868E-03_JPRB,0.63931E-03_JPRB, &
+ & 0.63779E-03_JPRB,0.60689E-03_JPRB,0.54327E-03_JPRB,0.36282E-03_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.32502E-03_JPRB,0.50520E-03_JPRB,0.58251E-03_JPRB,0.62835E-03_JPRB,0.64977E-03_JPRB, &
+ & 0.64920E-03_JPRB,0.62209E-03_JPRB,0.55837E-03_JPRB,0.37399E-03_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.33055E-03_JPRB,0.51462E-03_JPRB,0.59267E-03_JPRB,0.63972E-03_JPRB,0.66253E-03_JPRB, &
+ & 0.66213E-03_JPRB,0.63802E-03_JPRB,0.57660E-03_JPRB,0.38710E-03_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.33647E-03_JPRB,0.52569E-03_JPRB,0.60454E-03_JPRB,0.65260E-03_JPRB,0.67645E-03_JPRB, &
+ & 0.67638E-03_JPRB,0.65560E-03_JPRB,0.59667E-03_JPRB,0.40130E-03_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.34306E-03_JPRB,0.53846E-03_JPRB,0.61820E-03_JPRB,0.66796E-03_JPRB,0.69284E-03_JPRB, &
+ & 0.69400E-03_JPRB,0.67340E-03_JPRB,0.61700E-03_JPRB,0.41923E-03_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.28149E-03_JPRB,0.43644E-03_JPRB,0.49974E-03_JPRB,0.53938E-03_JPRB,0.55701E-03_JPRB, &
+ & 0.55579E-03_JPRB,0.52736E-03_JPRB,0.47001E-03_JPRB,0.31306E-03_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.28528E-03_JPRB,0.44207E-03_JPRB,0.50655E-03_JPRB,0.54763E-03_JPRB,0.56691E-03_JPRB, &
+ & 0.56439E-03_JPRB,0.53930E-03_JPRB,0.48247E-03_JPRB,0.32173E-03_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.29004E-03_JPRB,0.45020E-03_JPRB,0.51518E-03_JPRB,0.55741E-03_JPRB,0.57771E-03_JPRB, &
+ & 0.57585E-03_JPRB,0.55263E-03_JPRB,0.49748E-03_JPRB,0.33090E-03_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.29568E-03_JPRB,0.46070E-03_JPRB,0.52625E-03_JPRB,0.56864E-03_JPRB,0.58962E-03_JPRB, &
+ & 0.58944E-03_JPRB,0.56702E-03_JPRB,0.51458E-03_JPRB,0.34232E-03_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.30178E-03_JPRB,0.47274E-03_JPRB,0.53886E-03_JPRB,0.58253E-03_JPRB,0.60354E-03_JPRB, &
+ & 0.60454E-03_JPRB,0.58225E-03_JPRB,0.53128E-03_JPRB,0.35470E-03_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.24786E-03_JPRB,0.38205E-03_JPRB,0.43403E-03_JPRB,0.46727E-03_JPRB,0.48302E-03_JPRB, &
+ & 0.48227E-03_JPRB,0.45812E-03_JPRB,0.40611E-03_JPRB,0.30468E-03_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.25026E-03_JPRB,0.38705E-03_JPRB,0.43948E-03_JPRB,0.47351E-03_JPRB,0.49158E-03_JPRB, &
+ & 0.49003E-03_JPRB,0.46771E-03_JPRB,0.41673E-03_JPRB,0.30992E-03_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.25464E-03_JPRB,0.39453E-03_JPRB,0.44681E-03_JPRB,0.48211E-03_JPRB,0.50112E-03_JPRB, &
+ & 0.49992E-03_JPRB,0.47844E-03_JPRB,0.42901E-03_JPRB,0.31626E-03_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.25978E-03_JPRB,0.40390E-03_JPRB,0.45683E-03_JPRB,0.49220E-03_JPRB,0.51134E-03_JPRB, &
+ & 0.51141E-03_JPRB,0.48898E-03_JPRB,0.44238E-03_JPRB,0.32406E-03_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.26514E-03_JPRB,0.41428E-03_JPRB,0.46827E-03_JPRB,0.50433E-03_JPRB,0.52333E-03_JPRB, &
+ & 0.52414E-03_JPRB,0.50147E-03_JPRB,0.45619E-03_JPRB,0.33317E-03_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.21824E-03_JPRB,0.33786E-03_JPRB,0.37946E-03_JPRB,0.40535E-03_JPRB,0.41752E-03_JPRB, &
+ & 0.41661E-03_JPRB,0.39611E-03_JPRB,0.34986E-03_JPRB,0.52178E-03_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.22059E-03_JPRB,0.34230E-03_JPRB,0.38410E-03_JPRB,0.41056E-03_JPRB,0.42477E-03_JPRB, &
+ & 0.42372E-03_JPRB,0.40485E-03_JPRB,0.35866E-03_JPRB,0.50681E-03_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.22400E-03_JPRB,0.34814E-03_JPRB,0.39039E-03_JPRB,0.41748E-03_JPRB,0.43284E-03_JPRB, &
+ & 0.43220E-03_JPRB,0.41363E-03_JPRB,0.36885E-03_JPRB,0.49302E-03_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.22873E-03_JPRB,0.35603E-03_JPRB,0.39905E-03_JPRB,0.42659E-03_JPRB,0.44174E-03_JPRB, &
+ & 0.44167E-03_JPRB,0.42288E-03_JPRB,0.37972E-03_JPRB,0.48294E-03_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.23347E-03_JPRB,0.36495E-03_JPRB,0.40893E-03_JPRB,0.43763E-03_JPRB,0.45181E-03_JPRB, &
+ & 0.45234E-03_JPRB,0.43347E-03_JPRB,0.39120E-03_JPRB,0.47762E-03_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.19122E-03_JPRB,0.29954E-03_JPRB,0.33486E-03_JPRB,0.35474E-03_JPRB,0.36349E-03_JPRB, &
+ & 0.36120E-03_JPRB,0.34300E-03_JPRB,0.30153E-03_JPRB,0.10818E-02_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.19375E-03_JPRB,0.30331E-03_JPRB,0.33858E-03_JPRB,0.35959E-03_JPRB,0.36963E-03_JPRB, &
+ & 0.36736E-03_JPRB,0.35033E-03_JPRB,0.30927E-03_JPRB,0.10683E-02_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.19685E-03_JPRB,0.30858E-03_JPRB,0.34410E-03_JPRB,0.36599E-03_JPRB,0.37648E-03_JPRB, &
+ & 0.37420E-03_JPRB,0.35748E-03_JPRB,0.31737E-03_JPRB,0.10704E-02_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.20091E-03_JPRB,0.31499E-03_JPRB,0.35151E-03_JPRB,0.37400E-03_JPRB,0.38421E-03_JPRB, &
+ & 0.38207E-03_JPRB,0.36506E-03_JPRB,0.32617E-03_JPRB,0.10743E-02_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.20539E-03_JPRB,0.32294E-03_JPRB,0.36050E-03_JPRB,0.38325E-03_JPRB,0.39308E-03_JPRB, &
+ & 0.39074E-03_JPRB,0.37406E-03_JPRB,0.33544E-03_JPRB,0.10696E-02_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.16667E-03_JPRB,0.26520E-03_JPRB,0.29671E-03_JPRB,0.31441E-03_JPRB,0.32093E-03_JPRB, &
+ & 0.31659E-03_JPRB,0.30045E-03_JPRB,0.26340E-03_JPRB,0.11835E-02_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.16885E-03_JPRB,0.26948E-03_JPRB,0.30096E-03_JPRB,0.31914E-03_JPRB,0.32661E-03_JPRB, &
+ & 0.32210E-03_JPRB,0.30657E-03_JPRB,0.27004E-03_JPRB,0.11814E-02_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.17223E-03_JPRB,0.27439E-03_JPRB,0.30661E-03_JPRB,0.32470E-03_JPRB,0.33272E-03_JPRB, &
+ & 0.32842E-03_JPRB,0.31227E-03_JPRB,0.27654E-03_JPRB,0.11630E-02_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.17618E-03_JPRB,0.28049E-03_JPRB,0.31365E-03_JPRB,0.33181E-03_JPRB,0.33965E-03_JPRB, &
+ & 0.33555E-03_JPRB,0.31903E-03_JPRB,0.28400E-03_JPRB,0.11485E-02_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.18103E-03_JPRB,0.28752E-03_JPRB,0.32181E-03_JPRB,0.34031E-03_JPRB,0.34776E-03_JPRB, &
+ & 0.34353E-03_JPRB,0.32710E-03_JPRB,0.29221E-03_JPRB,0.11367E-02_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.14364E-03_JPRB,0.23191E-03_JPRB,0.26011E-03_JPRB,0.27602E-03_JPRB,0.28230E-03_JPRB, &
+ & 0.27753E-03_JPRB,0.26259E-03_JPRB,0.22940E-03_JPRB,0.11242E-02_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.14586E-03_JPRB,0.23578E-03_JPRB,0.26464E-03_JPRB,0.28074E-03_JPRB,0.28728E-03_JPRB, &
+ & 0.28268E-03_JPRB,0.26740E-03_JPRB,0.23511E-03_JPRB,0.11131E-02_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.14908E-03_JPRB,0.24042E-03_JPRB,0.27020E-03_JPRB,0.28659E-03_JPRB,0.29280E-03_JPRB, &
+ & 0.28866E-03_JPRB,0.27254E-03_JPRB,0.24089E-03_JPRB,0.10996E-02_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.15297E-03_JPRB,0.24595E-03_JPRB,0.27661E-03_JPRB,0.29313E-03_JPRB,0.29926E-03_JPRB, &
+ & 0.29513E-03_JPRB,0.27870E-03_JPRB,0.24706E-03_JPRB,0.10965E-02_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.15735E-03_JPRB,0.25242E-03_JPRB,0.28422E-03_JPRB,0.30069E-03_JPRB,0.30695E-03_JPRB, &
+ & 0.30241E-03_JPRB,0.28613E-03_JPRB,0.25425E-03_JPRB,0.10839E-02_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.12345E-03_JPRB,0.20108E-03_JPRB,0.22674E-03_JPRB,0.24086E-03_JPRB,0.24638E-03_JPRB, &
+ & 0.24238E-03_JPRB,0.22876E-03_JPRB,0.19931E-03_JPRB,0.96895E-03_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.12581E-03_JPRB,0.20480E-03_JPRB,0.23117E-03_JPRB,0.24535E-03_JPRB,0.25104E-03_JPRB, &
+ & 0.24702E-03_JPRB,0.23303E-03_JPRB,0.20421E-03_JPRB,0.96294E-03_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.12856E-03_JPRB,0.20921E-03_JPRB,0.23606E-03_JPRB,0.25076E-03_JPRB,0.25631E-03_JPRB, &
+ & 0.25243E-03_JPRB,0.23816E-03_JPRB,0.20920E-03_JPRB,0.95736E-03_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.13210E-03_JPRB,0.21428E-03_JPRB,0.24223E-03_JPRB,0.25691E-03_JPRB,0.26218E-03_JPRB, &
+ & 0.25847E-03_JPRB,0.24400E-03_JPRB,0.21468E-03_JPRB,0.95389E-03_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.13599E-03_JPRB,0.22037E-03_JPRB,0.24914E-03_JPRB,0.26391E-03_JPRB,0.26911E-03_JPRB, &
+ & 0.26543E-03_JPRB,0.25095E-03_JPRB,0.22101E-03_JPRB,0.94116E-03_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.10602E-02_JPRB,0.17123E-02_JPRB,0.20157E-02_JPRB,0.22277E-02_JPRB,0.23726E-02_JPRB, &
+ & 0.24628E-02_JPRB,0.25069E-02_JPRB,0.24686E-02_JPRB,0.20168E-02_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.10672E-02_JPRB,0.17270E-02_JPRB,0.20414E-02_JPRB,0.22652E-02_JPRB,0.24211E-02_JPRB, &
+ & 0.25212E-02_JPRB,0.25704E-02_JPRB,0.25272E-02_JPRB,0.20646E-02_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.10788E-02_JPRB,0.17509E-02_JPRB,0.20769E-02_JPRB,0.23112E-02_JPRB,0.24814E-02_JPRB, &
+ & 0.25914E-02_JPRB,0.26418E-02_JPRB,0.25942E-02_JPRB,0.21193E-02_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.10874E-02_JPRB,0.17764E-02_JPRB,0.21176E-02_JPRB,0.23585E-02_JPRB,0.25381E-02_JPRB, &
+ & 0.26622E-02_JPRB,0.27175E-02_JPRB,0.26689E-02_JPRB,0.21851E-02_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.11018E-02_JPRB,0.18090E-02_JPRB,0.21640E-02_JPRB,0.24172E-02_JPRB,0.26051E-02_JPRB, &
+ & 0.27415E-02_JPRB,0.28075E-02_JPRB,0.27566E-02_JPRB,0.22604E-02_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.95075E-03_JPRB,0.15355E-02_JPRB,0.17976E-02_JPRB,0.19766E-02_JPRB,0.21006E-02_JPRB, &
+ & 0.21710E-02_JPRB,0.21998E-02_JPRB,0.21663E-02_JPRB,0.17568E-02_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.96010E-03_JPRB,0.15501E-02_JPRB,0.18242E-02_JPRB,0.20112E-02_JPRB,0.21419E-02_JPRB, &
+ & 0.22180E-02_JPRB,0.22475E-02_JPRB,0.22135E-02_JPRB,0.17960E-02_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.97337E-03_JPRB,0.15726E-02_JPRB,0.18580E-02_JPRB,0.20531E-02_JPRB,0.21905E-02_JPRB, &
+ & 0.22742E-02_JPRB,0.23072E-02_JPRB,0.22697E-02_JPRB,0.18409E-02_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.98600E-03_JPRB,0.15975E-02_JPRB,0.18942E-02_JPRB,0.20984E-02_JPRB,0.22403E-02_JPRB, &
+ & 0.23334E-02_JPRB,0.23735E-02_JPRB,0.23328E-02_JPRB,0.18922E-02_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.99685E-03_JPRB,0.16266E-02_JPRB,0.19353E-02_JPRB,0.21493E-02_JPRB,0.22931E-02_JPRB, &
+ & 0.23955E-02_JPRB,0.24466E-02_JPRB,0.24068E-02_JPRB,0.19548E-02_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.85253E-03_JPRB,0.13731E-02_JPRB,0.15966E-02_JPRB,0.17555E-02_JPRB,0.18660E-02_JPRB, &
+ & 0.19267E-02_JPRB,0.19415E-02_JPRB,0.18992E-02_JPRB,0.15125E-02_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.86131E-03_JPRB,0.13853E-02_JPRB,0.16172E-02_JPRB,0.17827E-02_JPRB,0.18992E-02_JPRB, &
+ & 0.19616E-02_JPRB,0.19781E-02_JPRB,0.19388E-02_JPRB,0.15472E-02_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.87215E-03_JPRB,0.13990E-02_JPRB,0.16433E-02_JPRB,0.18151E-02_JPRB,0.19357E-02_JPRB, &
+ & 0.20044E-02_JPRB,0.20244E-02_JPRB,0.19864E-02_JPRB,0.15842E-02_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.88704E-03_JPRB,0.14261E-02_JPRB,0.16795E-02_JPRB,0.18576E-02_JPRB,0.19802E-02_JPRB, &
+ & 0.20536E-02_JPRB,0.20804E-02_JPRB,0.20410E-02_JPRB,0.16256E-02_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.89758E-03_JPRB,0.14527E-02_JPRB,0.17171E-02_JPRB,0.19025E-02_JPRB,0.20236E-02_JPRB, &
+ & 0.21045E-02_JPRB,0.21413E-02_JPRB,0.21023E-02_JPRB,0.16764E-02_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.76168E-03_JPRB,0.12206E-02_JPRB,0.14175E-02_JPRB,0.15588E-02_JPRB,0.16575E-02_JPRB, &
+ & 0.17098E-02_JPRB,0.17134E-02_JPRB,0.16603E-02_JPRB,0.12974E-02_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.76958E-03_JPRB,0.12314E-02_JPRB,0.14342E-02_JPRB,0.15807E-02_JPRB,0.16847E-02_JPRB, &
+ & 0.17400E-02_JPRB,0.17442E-02_JPRB,0.16938E-02_JPRB,0.13260E-02_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.78002E-03_JPRB,0.12481E-02_JPRB,0.14573E-02_JPRB,0.16092E-02_JPRB,0.17173E-02_JPRB, &
+ & 0.17771E-02_JPRB,0.17830E-02_JPRB,0.17337E-02_JPRB,0.13577E-02_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.79261E-03_JPRB,0.12694E-02_JPRB,0.14861E-02_JPRB,0.16420E-02_JPRB,0.17536E-02_JPRB, &
+ & 0.18179E-02_JPRB,0.18286E-02_JPRB,0.17776E-02_JPRB,0.13930E-02_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.80905E-03_JPRB,0.12930E-02_JPRB,0.15216E-02_JPRB,0.16835E-02_JPRB,0.17969E-02_JPRB, &
+ & 0.18651E-02_JPRB,0.18829E-02_JPRB,0.18324E-02_JPRB,0.14370E-02_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.67567E-03_JPRB,0.10847E-02_JPRB,0.12673E-02_JPRB,0.13865E-02_JPRB,0.14678E-02_JPRB, &
+ & 0.15102E-02_JPRB,0.15099E-02_JPRB,0.14466E-02_JPRB,0.11079E-02_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.68234E-03_JPRB,0.10948E-02_JPRB,0.12810E-02_JPRB,0.14048E-02_JPRB,0.14909E-02_JPRB, &
+ & 0.15364E-02_JPRB,0.15351E-02_JPRB,0.14749E-02_JPRB,0.11322E-02_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.69172E-03_JPRB,0.11094E-02_JPRB,0.12954E-02_JPRB,0.14275E-02_JPRB,0.15177E-02_JPRB, &
+ & 0.15693E-02_JPRB,0.15680E-02_JPRB,0.15069E-02_JPRB,0.11581E-02_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.70397E-03_JPRB,0.11284E-02_JPRB,0.13174E-02_JPRB,0.14563E-02_JPRB,0.15501E-02_JPRB, &
+ & 0.16053E-02_JPRB,0.16071E-02_JPRB,0.15445E-02_JPRB,0.11891E-02_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.72110E-03_JPRB,0.11540E-02_JPRB,0.13487E-02_JPRB,0.14917E-02_JPRB,0.15891E-02_JPRB, &
+ & 0.16474E-02_JPRB,0.16536E-02_JPRB,0.15913E-02_JPRB,0.12262E-02_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.59508E-03_JPRB,0.96565E-03_JPRB,0.11271E-02_JPRB,0.12321E-02_JPRB,0.12935E-02_JPRB, &
+ & 0.13263E-02_JPRB,0.13235E-02_JPRB,0.12583E-02_JPRB,0.94318E-03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.60163E-03_JPRB,0.97555E-03_JPRB,0.11390E-02_JPRB,0.12428E-02_JPRB,0.13136E-02_JPRB, &
+ & 0.13483E-02_JPRB,0.13443E-02_JPRB,0.12812E-02_JPRB,0.96040E-03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.61035E-03_JPRB,0.98842E-03_JPRB,0.11551E-02_JPRB,0.12623E-02_JPRB,0.13370E-02_JPRB, &
+ & 0.13759E-02_JPRB,0.13716E-02_JPRB,0.13073E-02_JPRB,0.98049E-03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.62216E-03_JPRB,0.10038E-02_JPRB,0.11750E-02_JPRB,0.12870E-02_JPRB,0.13646E-02_JPRB, &
+ & 0.14087E-02_JPRB,0.14042E-02_JPRB,0.13389E-02_JPRB,0.10049E-02_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.63568E-03_JPRB,0.10246E-02_JPRB,0.11986E-02_JPRB,0.13152E-02_JPRB,0.13969E-02_JPRB, &
+ & 0.14439E-02_JPRB,0.14425E-02_JPRB,0.13760E-02_JPRB,0.10351E-02_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.52222E-03_JPRB,0.85609E-03_JPRB,0.99991E-03_JPRB,0.10870E-02_JPRB,0.11353E-02_JPRB, &
+ & 0.11602E-02_JPRB,0.11537E-02_JPRB,0.10909E-02_JPRB,0.79969E-03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.52839E-03_JPRB,0.86572E-03_JPRB,0.10120E-02_JPRB,0.11011E-02_JPRB,0.11521E-02_JPRB, &
+ & 0.11786E-02_JPRB,0.11705E-02_JPRB,0.11093E-02_JPRB,0.81421E-03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.53695E-03_JPRB,0.87703E-03_JPRB,0.10261E-02_JPRB,0.11177E-02_JPRB,0.11714E-02_JPRB, &
+ & 0.12016E-02_JPRB,0.11930E-02_JPRB,0.11309E-02_JPRB,0.83157E-03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.54734E-03_JPRB,0.89105E-03_JPRB,0.10435E-02_JPRB,0.11340E-02_JPRB,0.11954E-02_JPRB, &
+ & 0.12276E-02_JPRB,0.12204E-02_JPRB,0.11559E-02_JPRB,0.85189E-03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.56071E-03_JPRB,0.90902E-03_JPRB,0.10648E-02_JPRB,0.11575E-02_JPRB,0.12234E-02_JPRB, &
+ & 0.12571E-02_JPRB,0.12523E-02_JPRB,0.11865E-02_JPRB,0.87630E-03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.45809E-03_JPRB,0.75296E-03_JPRB,0.88022E-03_JPRB,0.95530E-03_JPRB,0.99775E-03_JPRB, &
+ & 0.10107E-02_JPRB,0.99991E-03_JPRB,0.94255E-03_JPRB,0.69349E-03_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.46457E-03_JPRB,0.76241E-03_JPRB,0.89241E-03_JPRB,0.96833E-03_JPRB,0.10107E-02_JPRB, &
+ & 0.10258E-02_JPRB,0.10136E-02_JPRB,0.95735E-03_JPRB,0.70413E-03_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.47249E-03_JPRB,0.77258E-03_JPRB,0.90578E-03_JPRB,0.98260E-03_JPRB,0.10233E-02_JPRB, &
+ & 0.10448E-02_JPRB,0.10324E-02_JPRB,0.97481E-03_JPRB,0.71522E-03_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.48263E-03_JPRB,0.78537E-03_JPRB,0.92183E-03_JPRB,0.10012E-02_JPRB,0.10427E-02_JPRB, &
+ & 0.10663E-02_JPRB,0.10558E-02_JPRB,0.99531E-03_JPRB,0.72922E-03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.49501E-03_JPRB,0.80218E-03_JPRB,0.94059E-03_JPRB,0.10219E-02_JPRB,0.10669E-02_JPRB, &
+ & 0.10907E-02_JPRB,0.10824E-02_JPRB,0.10204E-02_JPRB,0.74659E-03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.40630E-03_JPRB,0.65697E-03_JPRB,0.76693E-03_JPRB,0.83253E-03_JPRB,0.86881E-03_JPRB, &
+ & 0.87661E-03_JPRB,0.86393E-03_JPRB,0.81158E-03_JPRB,0.85763E-03_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.41166E-03_JPRB,0.66657E-03_JPRB,0.77941E-03_JPRB,0.84564E-03_JPRB,0.88174E-03_JPRB, &
+ & 0.88952E-03_JPRB,0.87488E-03_JPRB,0.82351E-03_JPRB,0.84633E-03_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.41847E-03_JPRB,0.67680E-03_JPRB,0.79185E-03_JPRB,0.85875E-03_JPRB,0.89476E-03_JPRB, &
+ & 0.90456E-03_JPRB,0.89101E-03_JPRB,0.83833E-03_JPRB,0.84017E-03_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.42661E-03_JPRB,0.68815E-03_JPRB,0.80637E-03_JPRB,0.87435E-03_JPRB,0.91036E-03_JPRB, &
+ & 0.92205E-03_JPRB,0.90961E-03_JPRB,0.85502E-03_JPRB,0.83895E-03_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.43776E-03_JPRB,0.70278E-03_JPRB,0.82329E-03_JPRB,0.89247E-03_JPRB,0.92828E-03_JPRB, &
+ & 0.94238E-03_JPRB,0.93168E-03_JPRB,0.87536E-03_JPRB,0.84088E-03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.36854E-03_JPRB,0.57908E-03_JPRB,0.66869E-03_JPRB,0.72258E-03_JPRB,0.75231E-03_JPRB, &
+ & 0.75942E-03_JPRB,0.74383E-03_JPRB,0.69709E-03_JPRB,0.20395E-02_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.37298E-03_JPRB,0.58711E-03_JPRB,0.68015E-03_JPRB,0.73349E-03_JPRB,0.76293E-03_JPRB, &
+ & 0.77052E-03_JPRB,0.75338E-03_JPRB,0.70798E-03_JPRB,0.19202E-02_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.37876E-03_JPRB,0.59595E-03_JPRB,0.69100E-03_JPRB,0.74575E-03_JPRB,0.77497E-03_JPRB, &
+ & 0.78295E-03_JPRB,0.76740E-03_JPRB,0.72017E-03_JPRB,0.18161E-02_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.38615E-03_JPRB,0.60708E-03_JPRB,0.70373E-03_JPRB,0.75914E-03_JPRB,0.78952E-03_JPRB, &
+ & 0.79663E-03_JPRB,0.78331E-03_JPRB,0.73385E-03_JPRB,0.17247E-02_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.39564E-03_JPRB,0.62052E-03_JPRB,0.71856E-03_JPRB,0.77512E-03_JPRB,0.80699E-03_JPRB, &
+ & 0.81444E-03_JPRB,0.80141E-03_JPRB,0.75081E-03_JPRB,0.16568E-02_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.33320E-03_JPRB,0.52088E-03_JPRB,0.59646E-03_JPRB,0.63812E-03_JPRB,0.65660E-03_JPRB, &
+ & 0.65900E-03_JPRB,0.64138E-03_JPRB,0.60020E-03_JPRB,0.25696E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 2,11, 6) = (/ &
+ & 0.33882E-03_JPRB,0.52942E-03_JPRB,0.60584E-03_JPRB,0.64728E-03_JPRB,0.66639E-03_JPRB, &
+ & 0.66995E-03_JPRB,0.65115E-03_JPRB,0.61030E-03_JPRB,0.24243E-02_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.34516E-03_JPRB,0.53993E-03_JPRB,0.61579E-03_JPRB,0.65783E-03_JPRB,0.67758E-03_JPRB, &
+ & 0.68193E-03_JPRB,0.66413E-03_JPRB,0.62169E-03_JPRB,0.23408E-02_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.35301E-03_JPRB,0.55124E-03_JPRB,0.62753E-03_JPRB,0.66999E-03_JPRB,0.69148E-03_JPRB, &
+ & 0.69508E-03_JPRB,0.67858E-03_JPRB,0.63426E-03_JPRB,0.22732E-02_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.36214E-03_JPRB,0.56453E-03_JPRB,0.64151E-03_JPRB,0.68481E-03_JPRB,0.70755E-03_JPRB, &
+ & 0.71086E-03_JPRB,0.69483E-03_JPRB,0.64938E-03_JPRB,0.21869E-02_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.29653E-03_JPRB,0.46559E-03_JPRB,0.53073E-03_JPRB,0.56520E-03_JPRB,0.57894E-03_JPRB, &
+ & 0.57686E-03_JPRB,0.55698E-03_JPRB,0.51584E-03_JPRB,0.26304E-02_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.30188E-03_JPRB,0.47447E-03_JPRB,0.54017E-03_JPRB,0.57406E-03_JPRB,0.58804E-03_JPRB, &
+ & 0.58653E-03_JPRB,0.56630E-03_JPRB,0.52472E-03_JPRB,0.24930E-02_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.30861E-03_JPRB,0.48517E-03_JPRB,0.55102E-03_JPRB,0.58380E-03_JPRB,0.59890E-03_JPRB, &
+ & 0.59725E-03_JPRB,0.57721E-03_JPRB,0.53486E-03_JPRB,0.23834E-02_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.31637E-03_JPRB,0.49701E-03_JPRB,0.56299E-03_JPRB,0.59618E-03_JPRB,0.61191E-03_JPRB, &
+ & 0.60936E-03_JPRB,0.58930E-03_JPRB,0.54649E-03_JPRB,0.22824E-02_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.32604E-03_JPRB,0.51148E-03_JPRB,0.57604E-03_JPRB,0.61103E-03_JPRB,0.62611E-03_JPRB, &
+ & 0.62412E-03_JPRB,0.60375E-03_JPRB,0.56026E-03_JPRB,0.22084E-02_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.26154E-03_JPRB,0.41366E-03_JPRB,0.47019E-03_JPRB,0.50056E-03_JPRB,0.51140E-03_JPRB, &
+ & 0.50695E-03_JPRB,0.48611E-03_JPRB,0.44348E-03_JPRB,0.22773E-02_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.26669E-03_JPRB,0.42267E-03_JPRB,0.47957E-03_JPRB,0.51009E-03_JPRB,0.52067E-03_JPRB, &
+ & 0.51611E-03_JPRB,0.49506E-03_JPRB,0.45138E-03_JPRB,0.21516E-02_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.27302E-03_JPRB,0.43290E-03_JPRB,0.49082E-03_JPRB,0.52081E-03_JPRB,0.53105E-03_JPRB, &
+ & 0.52578E-03_JPRB,0.50476E-03_JPRB,0.46026E-03_JPRB,0.20522E-02_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.28114E-03_JPRB,0.44552E-03_JPRB,0.50271E-03_JPRB,0.53316E-03_JPRB,0.54314E-03_JPRB, &
+ & 0.53754E-03_JPRB,0.51555E-03_JPRB,0.47096E-03_JPRB,0.19694E-02_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.29046E-03_JPRB,0.45904E-03_JPRB,0.51716E-03_JPRB,0.54751E-03_JPRB,0.55727E-03_JPRB, &
+ & 0.55147E-03_JPRB,0.52828E-03_JPRB,0.48333E-03_JPRB,0.19102E-02_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.21025E-02_JPRB,0.35934E-02_JPRB,0.44505E-02_JPRB,0.51294E-02_JPRB,0.56565E-02_JPRB, &
+ & 0.60638E-02_JPRB,0.63051E-02_JPRB,0.63060E-02_JPRB,0.53132E-02_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.21147E-02_JPRB,0.36363E-02_JPRB,0.45228E-02_JPRB,0.52203E-02_JPRB,0.57590E-02_JPRB, &
+ & 0.61627E-02_JPRB,0.64080E-02_JPRB,0.64123E-02_JPRB,0.54186E-02_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.21423E-02_JPRB,0.36907E-02_JPRB,0.46129E-02_JPRB,0.53384E-02_JPRB,0.58809E-02_JPRB, &
+ & 0.62832E-02_JPRB,0.65320E-02_JPRB,0.65359E-02_JPRB,0.55396E-02_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.21655E-02_JPRB,0.37303E-02_JPRB,0.46928E-02_JPRB,0.54454E-02_JPRB,0.60067E-02_JPRB, &
+ & 0.64159E-02_JPRB,0.66758E-02_JPRB,0.66776E-02_JPRB,0.56738E-02_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.22041E-02_JPRB,0.37865E-02_JPRB,0.47900E-02_JPRB,0.55720E-02_JPRB,0.61575E-02_JPRB, &
+ & 0.65795E-02_JPRB,0.68426E-02_JPRB,0.68332E-02_JPRB,0.58218E-02_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.19184E-02_JPRB,0.32868E-02_JPRB,0.40037E-02_JPRB,0.45520E-02_JPRB,0.49723E-02_JPRB, &
+ & 0.52862E-02_JPRB,0.54779E-02_JPRB,0.54778E-02_JPRB,0.44696E-02_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.19302E-02_JPRB,0.33258E-02_JPRB,0.40693E-02_JPRB,0.46336E-02_JPRB,0.50634E-02_JPRB, &
+ & 0.53829E-02_JPRB,0.55797E-02_JPRB,0.55784E-02_JPRB,0.45568E-02_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.19586E-02_JPRB,0.33762E-02_JPRB,0.41518E-02_JPRB,0.47383E-02_JPRB,0.51749E-02_JPRB, &
+ & 0.54993E-02_JPRB,0.56986E-02_JPRB,0.56923E-02_JPRB,0.46572E-02_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.19876E-02_JPRB,0.34214E-02_JPRB,0.42297E-02_JPRB,0.48395E-02_JPRB,0.52957E-02_JPRB, &
+ & 0.56305E-02_JPRB,0.58340E-02_JPRB,0.58219E-02_JPRB,0.47733E-02_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.20222E-02_JPRB,0.34660E-02_JPRB,0.43057E-02_JPRB,0.49428E-02_JPRB,0.54286E-02_JPRB, &
+ & 0.57769E-02_JPRB,0.59846E-02_JPRB,0.59651E-02_JPRB,0.49022E-02_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.17389E-02_JPRB,0.29833E-02_JPRB,0.35894E-02_JPRB,0.40314E-02_JPRB,0.43535E-02_JPRB, &
+ & 0.45848E-02_JPRB,0.47251E-02_JPRB,0.47273E-02_JPRB,0.37675E-02_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.17511E-02_JPRB,0.30210E-02_JPRB,0.36487E-02_JPRB,0.40996E-02_JPRB,0.44314E-02_JPRB, &
+ & 0.46730E-02_JPRB,0.48141E-02_JPRB,0.48126E-02_JPRB,0.38333E-02_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.17713E-02_JPRB,0.30646E-02_JPRB,0.37133E-02_JPRB,0.41800E-02_JPRB,0.45216E-02_JPRB, &
+ & 0.47732E-02_JPRB,0.49178E-02_JPRB,0.49079E-02_JPRB,0.39121E-02_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.18058E-02_JPRB,0.31149E-02_JPRB,0.37889E-02_JPRB,0.42777E-02_JPRB,0.46349E-02_JPRB, &
+ & 0.48925E-02_JPRB,0.50383E-02_JPRB,0.50219E-02_JPRB,0.40071E-02_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.18379E-02_JPRB,0.31573E-02_JPRB,0.38545E-02_JPRB,0.43660E-02_JPRB,0.47479E-02_JPRB, &
+ & 0.50186E-02_JPRB,0.51717E-02_JPRB,0.51483E-02_JPRB,0.41141E-02_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.15760E-02_JPRB,0.26881E-02_JPRB,0.32116E-02_JPRB,0.35706E-02_JPRB,0.38258E-02_JPRB, &
+ & 0.39911E-02_JPRB,0.40833E-02_JPRB,0.40813E-02_JPRB,0.32298E-02_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.15813E-02_JPRB,0.27249E-02_JPRB,0.32627E-02_JPRB,0.36295E-02_JPRB,0.38889E-02_JPRB, &
+ & 0.40640E-02_JPRB,0.41571E-02_JPRB,0.41534E-02_JPRB,0.32787E-02_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.16001E-02_JPRB,0.27603E-02_JPRB,0.33193E-02_JPRB,0.36971E-02_JPRB,0.39631E-02_JPRB, &
+ & 0.41442E-02_JPRB,0.42435E-02_JPRB,0.42324E-02_JPRB,0.33394E-02_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.16258E-02_JPRB,0.28020E-02_JPRB,0.33780E-02_JPRB,0.37750E-02_JPRB,0.40494E-02_JPRB, &
+ & 0.42369E-02_JPRB,0.43436E-02_JPRB,0.43281E-02_JPRB,0.34138E-02_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.16664E-02_JPRB,0.28640E-02_JPRB,0.34503E-02_JPRB,0.38637E-02_JPRB,0.41572E-02_JPRB, &
+ & 0.43540E-02_JPRB,0.44611E-02_JPRB,0.44376E-02_JPRB,0.34982E-02_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.14233E-02_JPRB,0.24061E-02_JPRB,0.28484E-02_JPRB,0.31675E-02_JPRB,0.33803E-02_JPRB, &
+ & 0.35027E-02_JPRB,0.35528E-02_JPRB,0.35417E-02_JPRB,0.27814E-02_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.14350E-02_JPRB,0.24395E-02_JPRB,0.28937E-02_JPRB,0.32168E-02_JPRB,0.34318E-02_JPRB, &
+ & 0.35619E-02_JPRB,0.36148E-02_JPRB,0.35990E-02_JPRB,0.28208E-02_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.14521E-02_JPRB,0.24725E-02_JPRB,0.29512E-02_JPRB,0.32733E-02_JPRB,0.34917E-02_JPRB, &
+ & 0.36258E-02_JPRB,0.36856E-02_JPRB,0.36654E-02_JPRB,0.28719E-02_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.14701E-02_JPRB,0.25117E-02_JPRB,0.30081E-02_JPRB,0.33364E-02_JPRB,0.35619E-02_JPRB, &
+ & 0.37016E-02_JPRB,0.37673E-02_JPRB,0.37455E-02_JPRB,0.29344E-02_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.15037E-02_JPRB,0.25667E-02_JPRB,0.30753E-02_JPRB,0.34136E-02_JPRB,0.36518E-02_JPRB, &
+ & 0.37975E-02_JPRB,0.38648E-02_JPRB,0.38367E-02_JPRB,0.30050E-02_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.12833E-02_JPRB,0.21397E-02_JPRB,0.25249E-02_JPRB,0.27989E-02_JPRB,0.29941E-02_JPRB, &
+ & 0.30943E-02_JPRB,0.31134E-02_JPRB,0.30718E-02_JPRB,0.23837E-02_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.12955E-02_JPRB,0.21689E-02_JPRB,0.25640E-02_JPRB,0.28465E-02_JPRB,0.30386E-02_JPRB, &
+ & 0.31442E-02_JPRB,0.31666E-02_JPRB,0.31216E-02_JPRB,0.24190E-02_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.13128E-02_JPRB,0.22001E-02_JPRB,0.26092E-02_JPRB,0.28949E-02_JPRB,0.30875E-02_JPRB, &
+ & 0.31967E-02_JPRB,0.32254E-02_JPRB,0.31772E-02_JPRB,0.24633E-02_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.13321E-02_JPRB,0.22373E-02_JPRB,0.26583E-02_JPRB,0.29483E-02_JPRB,0.31454E-02_JPRB, &
+ & 0.32584E-02_JPRB,0.32916E-02_JPRB,0.32451E-02_JPRB,0.25158E-02_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.13570E-02_JPRB,0.22801E-02_JPRB,0.27142E-02_JPRB,0.30110E-02_JPRB,0.32147E-02_JPRB, &
+ & 0.33324E-02_JPRB,0.33699E-02_JPRB,0.33240E-02_JPRB,0.25751E-02_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.11500E-02_JPRB,0.18956E-02_JPRB,0.22352E-02_JPRB,0.24771E-02_JPRB,0.26462E-02_JPRB, &
+ & 0.27285E-02_JPRB,0.27284E-02_JPRB,0.26574E-02_JPRB,0.20286E-02_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.11641E-02_JPRB,0.19221E-02_JPRB,0.22681E-02_JPRB,0.25137E-02_JPRB,0.26876E-02_JPRB, &
+ & 0.27741E-02_JPRB,0.27762E-02_JPRB,0.27013E-02_JPRB,0.20553E-02_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.11813E-02_JPRB,0.19513E-02_JPRB,0.23065E-02_JPRB,0.25547E-02_JPRB,0.27305E-02_JPRB, &
+ & 0.28210E-02_JPRB,0.28261E-02_JPRB,0.27499E-02_JPRB,0.20900E-02_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.12020E-02_JPRB,0.19854E-02_JPRB,0.23499E-02_JPRB,0.26064E-02_JPRB,0.27813E-02_JPRB, &
+ & 0.28738E-02_JPRB,0.28824E-02_JPRB,0.28095E-02_JPRB,0.21311E-02_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.12251E-02_JPRB,0.20252E-02_JPRB,0.23984E-02_JPRB,0.26618E-02_JPRB,0.28401E-02_JPRB, &
+ & 0.29374E-02_JPRB,0.29496E-02_JPRB,0.28780E-02_JPRB,0.21792E-02_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.10232E-02_JPRB,0.16906E-02_JPRB,0.19769E-02_JPRB,0.21832E-02_JPRB,0.23202E-02_JPRB, &
+ & 0.23917E-02_JPRB,0.23852E-02_JPRB,0.22950E-02_JPRB,0.17101E-02_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.10391E-02_JPRB,0.17050E-02_JPRB,0.20071E-02_JPRB,0.22179E-02_JPRB,0.23606E-02_JPRB, &
+ & 0.24337E-02_JPRB,0.24284E-02_JPRB,0.23335E-02_JPRB,0.17331E-02_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.10558E-02_JPRB,0.17304E-02_JPRB,0.20412E-02_JPRB,0.22560E-02_JPRB,0.24048E-02_JPRB, &
+ & 0.24767E-02_JPRB,0.24718E-02_JPRB,0.23758E-02_JPRB,0.17638E-02_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.10757E-02_JPRB,0.17611E-02_JPRB,0.20788E-02_JPRB,0.22974E-02_JPRB,0.24509E-02_JPRB, &
+ & 0.25242E-02_JPRB,0.25220E-02_JPRB,0.24275E-02_JPRB,0.17981E-02_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.10980E-02_JPRB,0.17974E-02_JPRB,0.21207E-02_JPRB,0.23464E-02_JPRB,0.25025E-02_JPRB, &
+ & 0.25827E-02_JPRB,0.25792E-02_JPRB,0.24843E-02_JPRB,0.18371E-02_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.89817E-03_JPRB,0.14995E-02_JPRB,0.17424E-02_JPRB,0.19141E-02_JPRB,0.20277E-02_JPRB, &
+ & 0.20847E-02_JPRB,0.20717E-02_JPRB,0.19779E-02_JPRB,0.16529E-02_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.91497E-03_JPRB,0.15202E-02_JPRB,0.17713E-02_JPRB,0.19473E-02_JPRB,0.20642E-02_JPRB, &
+ & 0.21241E-02_JPRB,0.21112E-02_JPRB,0.20125E-02_JPRB,0.16590E-02_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.93269E-03_JPRB,0.15411E-02_JPRB,0.18029E-02_JPRB,0.19839E-02_JPRB,0.21017E-02_JPRB, &
+ & 0.21633E-02_JPRB,0.21507E-02_JPRB,0.20494E-02_JPRB,0.16738E-02_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.95304E-03_JPRB,0.15646E-02_JPRB,0.18368E-02_JPRB,0.20225E-02_JPRB,0.21451E-02_JPRB, &
+ & 0.22062E-02_JPRB,0.21951E-02_JPRB,0.20930E-02_JPRB,0.16939E-02_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.97498E-03_JPRB,0.15941E-02_JPRB,0.18742E-02_JPRB,0.20657E-02_JPRB,0.21958E-02_JPRB, &
+ & 0.22577E-02_JPRB,0.22448E-02_JPRB,0.21409E-02_JPRB,0.17176E-02_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.79262E-03_JPRB,0.13163E-02_JPRB,0.15328E-02_JPRB,0.16707E-02_JPRB,0.17648E-02_JPRB, &
+ & 0.18068E-02_JPRB,0.17935E-02_JPRB,0.17058E-02_JPRB,0.29700E-02_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.80762E-03_JPRB,0.13411E-02_JPRB,0.15596E-02_JPRB,0.17027E-02_JPRB,0.18000E-02_JPRB, &
+ & 0.18435E-02_JPRB,0.18291E-02_JPRB,0.17355E-02_JPRB,0.28651E-02_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.82251E-03_JPRB,0.13646E-02_JPRB,0.15856E-02_JPRB,0.17370E-02_JPRB,0.18349E-02_JPRB, &
+ & 0.18799E-02_JPRB,0.18643E-02_JPRB,0.17669E-02_JPRB,0.27637E-02_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.84077E-03_JPRB,0.13892E-02_JPRB,0.16170E-02_JPRB,0.17747E-02_JPRB,0.18736E-02_JPRB, &
+ & 0.19201E-02_JPRB,0.19036E-02_JPRB,0.18042E-02_JPRB,0.26870E-02_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.86106E-03_JPRB,0.14180E-02_JPRB,0.16516E-02_JPRB,0.18147E-02_JPRB,0.19171E-02_JPRB, &
+ & 0.19660E-02_JPRB,0.19468E-02_JPRB,0.18451E-02_JPRB,0.26342E-02_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.72744E-03_JPRB,0.11669E-02_JPRB,0.13481E-02_JPRB,0.14590E-02_JPRB,0.15393E-02_JPRB, &
+ & 0.15747E-02_JPRB,0.15610E-02_JPRB,0.14772E-02_JPRB,0.38429E-02_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.73930E-03_JPRB,0.11904E-02_JPRB,0.13759E-02_JPRB,0.14894E-02_JPRB,0.15715E-02_JPRB, &
+ & 0.16066E-02_JPRB,0.15925E-02_JPRB,0.15038E-02_JPRB,0.36308E-02_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.75350E-03_JPRB,0.12120E-02_JPRB,0.14044E-02_JPRB,0.15240E-02_JPRB,0.16053E-02_JPRB, &
+ & 0.16390E-02_JPRB,0.16251E-02_JPRB,0.15339E-02_JPRB,0.34122E-02_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.76930E-03_JPRB,0.12355E-02_JPRB,0.14324E-02_JPRB,0.15603E-02_JPRB,0.16424E-02_JPRB, &
+ & 0.16774E-02_JPRB,0.16611E-02_JPRB,0.15677E-02_JPRB,0.32391E-02_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.78824E-03_JPRB,0.12645E-02_JPRB,0.14660E-02_JPRB,0.15998E-02_JPRB,0.16846E-02_JPRB, &
+ & 0.17204E-02_JPRB,0.17007E-02_JPRB,0.16046E-02_JPRB,0.31291E-02_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.66909E-03_JPRB,0.10517E-02_JPRB,0.11921E-02_JPRB,0.12822E-02_JPRB,0.13379E-02_JPRB, &
+ & 0.13630E-02_JPRB,0.13492E-02_JPRB,0.12752E-02_JPRB,0.39255E-02_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.68372E-03_JPRB,0.10717E-02_JPRB,0.12175E-02_JPRB,0.13089E-02_JPRB,0.13666E-02_JPRB, &
+ & 0.13913E-02_JPRB,0.13783E-02_JPRB,0.12999E-02_JPRB,0.37011E-02_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.69881E-03_JPRB,0.10912E-02_JPRB,0.12439E-02_JPRB,0.13402E-02_JPRB,0.13970E-02_JPRB, &
+ & 0.14222E-02_JPRB,0.14099E-02_JPRB,0.13279E-02_JPRB,0.35002E-02_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.71487E-03_JPRB,0.11132E-02_JPRB,0.12732E-02_JPRB,0.13738E-02_JPRB,0.14317E-02_JPRB, &
+ & 0.14583E-02_JPRB,0.14439E-02_JPRB,0.13590E-02_JPRB,0.33360E-02_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.73461E-03_JPRB,0.11382E-02_JPRB,0.13053E-02_JPRB,0.14102E-02_JPRB,0.14713E-02_JPRB, &
+ & 0.14974E-02_JPRB,0.14808E-02_JPRB,0.13924E-02_JPRB,0.31844E-02_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.61282E-03_JPRB,0.95575E-03_JPRB,0.10730E-02_JPRB,0.11388E-02_JPRB,0.11718E-02_JPRB, &
+ & 0.11795E-02_JPRB,0.11618E-02_JPRB,0.10974E-02_JPRB,0.34089E-02_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.62765E-03_JPRB,0.97500E-03_JPRB,0.10966E-02_JPRB,0.11619E-02_JPRB,0.11959E-02_JPRB, &
+ & 0.12054E-02_JPRB,0.11876E-02_JPRB,0.11206E-02_JPRB,0.32141E-02_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.64409E-03_JPRB,0.99523E-03_JPRB,0.11197E-02_JPRB,0.11873E-02_JPRB,0.12235E-02_JPRB, &
+ & 0.12347E-02_JPRB,0.12163E-02_JPRB,0.11468E-02_JPRB,0.30396E-02_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.66230E-03_JPRB,0.10180E-02_JPRB,0.11464E-02_JPRB,0.12161E-02_JPRB,0.12557E-02_JPRB, &
+ & 0.12667E-02_JPRB,0.12475E-02_JPRB,0.11749E-02_JPRB,0.28911E-02_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.68383E-03_JPRB,0.10452E-02_JPRB,0.11767E-02_JPRB,0.12484E-02_JPRB,0.12902E-02_JPRB, &
+ & 0.13021E-02_JPRB,0.12822E-02_JPRB,0.12049E-02_JPRB,0.27576E-02_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.59073E-02_JPRB,0.94320E-02_JPRB,0.12084E-01_JPRB,0.14049E-01_JPRB,0.15571E-01_JPRB, &
+ & 0.16640E-01_JPRB,0.17123E-01_JPRB,0.16625E-01_JPRB,0.14851E-01_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.60213E-02_JPRB,0.95565E-02_JPRB,0.12218E-01_JPRB,0.14200E-01_JPRB,0.15736E-01_JPRB, &
+ & 0.16810E-01_JPRB,0.17290E-01_JPRB,0.16722E-01_JPRB,0.14969E-01_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.61698E-02_JPRB,0.97176E-02_JPRB,0.12383E-01_JPRB,0.14381E-01_JPRB,0.15939E-01_JPRB, &
+ & 0.17010E-01_JPRB,0.17476E-01_JPRB,0.16866E-01_JPRB,0.15129E-01_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.62862E-02_JPRB,0.98624E-02_JPRB,0.12544E-01_JPRB,0.14586E-01_JPRB,0.16163E-01_JPRB, &
+ & 0.17225E-01_JPRB,0.17690E-01_JPRB,0.17043E-01_JPRB,0.15322E-01_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.64346E-02_JPRB,0.10033E-01_JPRB,0.12746E-01_JPRB,0.14817E-01_JPRB,0.16408E-01_JPRB, &
+ & 0.17481E-01_JPRB,0.17940E-01_JPRB,0.17253E-01_JPRB,0.15543E-01_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.53740E-02_JPRB,0.87218E-02_JPRB,0.11053E-01_JPRB,0.12810E-01_JPRB,0.14176E-01_JPRB, &
+ & 0.15120E-01_JPRB,0.15546E-01_JPRB,0.15059E-01_JPRB,0.12919E-01_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.54730E-02_JPRB,0.88522E-02_JPRB,0.11203E-01_JPRB,0.12984E-01_JPRB,0.14363E-01_JPRB, &
+ & 0.15303E-01_JPRB,0.15712E-01_JPRB,0.15177E-01_JPRB,0.13038E-01_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.56074E-02_JPRB,0.90112E-02_JPRB,0.11386E-01_JPRB,0.13184E-01_JPRB,0.14577E-01_JPRB, &
+ & 0.15506E-01_JPRB,0.15908E-01_JPRB,0.15341E-01_JPRB,0.13193E-01_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.57291E-02_JPRB,0.91663E-02_JPRB,0.11581E-01_JPRB,0.13408E-01_JPRB,0.14805E-01_JPRB, &
+ & 0.15738E-01_JPRB,0.16140E-01_JPRB,0.15527E-01_JPRB,0.13373E-01_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.58374E-02_JPRB,0.93237E-02_JPRB,0.11790E-01_JPRB,0.13642E-01_JPRB,0.15063E-01_JPRB, &
+ & 0.16008E-01_JPRB,0.16391E-01_JPRB,0.15740E-01_JPRB,0.13573E-01_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.49151E-02_JPRB,0.80083E-02_JPRB,0.10006E-01_JPRB,0.11528E-01_JPRB,0.12727E-01_JPRB, &
+ & 0.13551E-01_JPRB,0.13911E-01_JPRB,0.13469E-01_JPRB,0.11070E-01_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.50045E-02_JPRB,0.81384E-02_JPRB,0.10158E-01_JPRB,0.11712E-01_JPRB,0.12918E-01_JPRB, &
+ & 0.13727E-01_JPRB,0.14078E-01_JPRB,0.13598E-01_JPRB,0.11182E-01_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.51018E-02_JPRB,0.82774E-02_JPRB,0.10333E-01_JPRB,0.11906E-01_JPRB,0.13128E-01_JPRB, &
+ & 0.13932E-01_JPRB,0.14276E-01_JPRB,0.13758E-01_JPRB,0.11318E-01_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.52290E-02_JPRB,0.84457E-02_JPRB,0.10545E-01_JPRB,0.12130E-01_JPRB,0.13362E-01_JPRB, &
+ & 0.14179E-01_JPRB,0.14506E-01_JPRB,0.13944E-01_JPRB,0.11475E-01_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.53219E-02_JPRB,0.86004E-02_JPRB,0.10753E-01_JPRB,0.12365E-01_JPRB,0.13624E-01_JPRB, &
+ & 0.14443E-01_JPRB,0.14743E-01_JPRB,0.14150E-01_JPRB,0.11664E-01_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.44996E-02_JPRB,0.73324E-02_JPRB,0.89976E-02_JPRB,0.10282E-01_JPRB,0.11291E-01_JPRB, &
+ & 0.11989E-01_JPRB,0.12308E-01_JPRB,0.11915E-01_JPRB,0.94610E-02_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.45903E-02_JPRB,0.74608E-02_JPRB,0.91511E-02_JPRB,0.10467E-01_JPRB,0.11476E-01_JPRB, &
+ & 0.12168E-01_JPRB,0.12474E-01_JPRB,0.12040E-01_JPRB,0.95583E-02_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.46786E-02_JPRB,0.75960E-02_JPRB,0.93200E-02_JPRB,0.10651E-01_JPRB,0.11685E-01_JPRB, &
+ & 0.12375E-01_JPRB,0.12662E-01_JPRB,0.12197E-01_JPRB,0.96836E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 4, 8) = (/ &
+ & 0.47771E-02_JPRB,0.77407E-02_JPRB,0.95085E-02_JPRB,0.10860E-01_JPRB,0.11915E-01_JPRB, &
+ & 0.12611E-01_JPRB,0.12868E-01_JPRB,0.12374E-01_JPRB,0.98243E-02_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.48920E-02_JPRB,0.79194E-02_JPRB,0.97305E-02_JPRB,0.11107E-01_JPRB,0.12174E-01_JPRB, &
+ & 0.12866E-01_JPRB,0.13096E-01_JPRB,0.12573E-01_JPRB,0.99978E-02_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.41203E-02_JPRB,0.67057E-02_JPRB,0.80820E-02_JPRB,0.91247E-02_JPRB,0.99321E-02_JPRB, &
+ & 0.10510E-01_JPRB,0.10783E-01_JPRB,0.10430E-01_JPRB,0.81020E-02_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.41993E-02_JPRB,0.68279E-02_JPRB,0.82322E-02_JPRB,0.92959E-02_JPRB,0.10115E-01_JPRB, &
+ & 0.10684E-01_JPRB,0.10936E-01_JPRB,0.10557E-01_JPRB,0.81860E-02_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.42833E-02_JPRB,0.69588E-02_JPRB,0.83884E-02_JPRB,0.94726E-02_JPRB,0.10319E-01_JPRB, &
+ & 0.10879E-01_JPRB,0.11113E-01_JPRB,0.10704E-01_JPRB,0.82915E-02_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.43800E-02_JPRB,0.70975E-02_JPRB,0.85585E-02_JPRB,0.96769E-02_JPRB,0.10538E-01_JPRB, &
+ & 0.11098E-01_JPRB,0.11307E-01_JPRB,0.10873E-01_JPRB,0.84082E-02_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.44913E-02_JPRB,0.72638E-02_JPRB,0.87668E-02_JPRB,0.99106E-02_JPRB,0.10776E-01_JPRB, &
+ & 0.11337E-01_JPRB,0.11521E-01_JPRB,0.11061E-01_JPRB,0.85492E-02_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.37432E-02_JPRB,0.61135E-02_JPRB,0.72507E-02_JPRB,0.80822E-02_JPRB,0.86984E-02_JPRB, &
+ & 0.91424E-02_JPRB,0.93607E-02_JPRB,0.90800E-02_JPRB,0.69637E-02_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.38232E-02_JPRB,0.62277E-02_JPRB,0.73923E-02_JPRB,0.82383E-02_JPRB,0.88666E-02_JPRB, &
+ & 0.93013E-02_JPRB,0.95051E-02_JPRB,0.91939E-02_JPRB,0.70311E-02_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.39028E-02_JPRB,0.63516E-02_JPRB,0.75330E-02_JPRB,0.84072E-02_JPRB,0.90542E-02_JPRB, &
+ & 0.94860E-02_JPRB,0.96693E-02_JPRB,0.93306E-02_JPRB,0.71143E-02_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.39917E-02_JPRB,0.64850E-02_JPRB,0.76893E-02_JPRB,0.85935E-02_JPRB,0.92562E-02_JPRB, &
+ & 0.96859E-02_JPRB,0.98481E-02_JPRB,0.94821E-02_JPRB,0.72080E-02_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.40851E-02_JPRB,0.66256E-02_JPRB,0.78694E-02_JPRB,0.87911E-02_JPRB,0.94733E-02_JPRB, &
+ & 0.99019E-02_JPRB,0.10042E-01_JPRB,0.96464E-02_JPRB,0.73211E-02_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.33812E-02_JPRB,0.55475E-02_JPRB,0.65017E-02_JPRB,0.71556E-02_JPRB,0.76235E-02_JPRB, &
+ & 0.79451E-02_JPRB,0.81101E-02_JPRB,0.78877E-02_JPRB,0.60070E-02_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.34581E-02_JPRB,0.56575E-02_JPRB,0.66301E-02_JPRB,0.72977E-02_JPRB,0.77709E-02_JPRB, &
+ & 0.80903E-02_JPRB,0.82426E-02_JPRB,0.79917E-02_JPRB,0.60625E-02_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.35355E-02_JPRB,0.57759E-02_JPRB,0.67602E-02_JPRB,0.74532E-02_JPRB,0.79395E-02_JPRB, &
+ & 0.82549E-02_JPRB,0.83890E-02_JPRB,0.81121E-02_JPRB,0.61274E-02_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.36191E-02_JPRB,0.58987E-02_JPRB,0.69034E-02_JPRB,0.76219E-02_JPRB,0.81209E-02_JPRB, &
+ & 0.84343E-02_JPRB,0.85495E-02_JPRB,0.82395E-02_JPRB,0.62026E-02_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.37084E-02_JPRB,0.60308E-02_JPRB,0.70671E-02_JPRB,0.77977E-02_JPRB,0.83160E-02_JPRB, &
+ & 0.86266E-02_JPRB,0.87205E-02_JPRB,0.83802E-02_JPRB,0.62947E-02_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.30376E-02_JPRB,0.49774E-02_JPRB,0.58172E-02_JPRB,0.63470E-02_JPRB,0.67038E-02_JPRB, &
+ & 0.69396E-02_JPRB,0.70412E-02_JPRB,0.68509E-02_JPRB,0.51374E-02_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.31099E-02_JPRB,0.50996E-02_JPRB,0.59344E-02_JPRB,0.64736E-02_JPRB,0.68367E-02_JPRB, &
+ & 0.70701E-02_JPRB,0.71564E-02_JPRB,0.69425E-02_JPRB,0.51813E-02_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.31853E-02_JPRB,0.52155E-02_JPRB,0.60541E-02_JPRB,0.66147E-02_JPRB,0.69858E-02_JPRB, &
+ & 0.72120E-02_JPRB,0.72858E-02_JPRB,0.70465E-02_JPRB,0.52319E-02_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.32663E-02_JPRB,0.53312E-02_JPRB,0.61863E-02_JPRB,0.67654E-02_JPRB,0.71468E-02_JPRB, &
+ & 0.73677E-02_JPRB,0.74252E-02_JPRB,0.71560E-02_JPRB,0.52932E-02_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.33510E-02_JPRB,0.54583E-02_JPRB,0.63345E-02_JPRB,0.69235E-02_JPRB,0.73170E-02_JPRB, &
+ & 0.75339E-02_JPRB,0.75720E-02_JPRB,0.72770E-02_JPRB,0.53726E-02_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.27168E-02_JPRB,0.44406E-02_JPRB,0.51768E-02_JPRB,0.56339E-02_JPRB,0.59208E-02_JPRB, &
+ & 0.60958E-02_JPRB,0.61438E-02_JPRB,0.59554E-02_JPRB,0.42511E-02_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.27853E-02_JPRB,0.45486E-02_JPRB,0.52870E-02_JPRB,0.57491E-02_JPRB,0.60397E-02_JPRB, &
+ & 0.62076E-02_JPRB,0.62421E-02_JPRB,0.60358E-02_JPRB,0.42982E-02_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.28572E-02_JPRB,0.46609E-02_JPRB,0.53998E-02_JPRB,0.58755E-02_JPRB,0.61719E-02_JPRB, &
+ & 0.63300E-02_JPRB,0.63536E-02_JPRB,0.61272E-02_JPRB,0.43479E-02_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.29351E-02_JPRB,0.47766E-02_JPRB,0.55244E-02_JPRB,0.60103E-02_JPRB,0.63121E-02_JPRB, &
+ & 0.64656E-02_JPRB,0.64718E-02_JPRB,0.62231E-02_JPRB,0.44012E-02_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.30174E-02_JPRB,0.49013E-02_JPRB,0.56608E-02_JPRB,0.61542E-02_JPRB,0.64584E-02_JPRB, &
+ & 0.66094E-02_JPRB,0.65960E-02_JPRB,0.63252E-02_JPRB,0.44655E-02_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.24055E-02_JPRB,0.39503E-02_JPRB,0.45833E-02_JPRB,0.49951E-02_JPRB,0.52507E-02_JPRB, &
+ & 0.53857E-02_JPRB,0.53791E-02_JPRB,0.51629E-02_JPRB,0.55379E-02_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.24728E-02_JPRB,0.40487E-02_JPRB,0.46867E-02_JPRB,0.51042E-02_JPRB,0.53576E-02_JPRB, &
+ & 0.54844E-02_JPRB,0.54704E-02_JPRB,0.52383E-02_JPRB,0.55398E-02_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.25454E-02_JPRB,0.41511E-02_JPRB,0.48010E-02_JPRB,0.52206E-02_JPRB,0.54751E-02_JPRB, &
+ & 0.55927E-02_JPRB,0.55711E-02_JPRB,0.53216E-02_JPRB,0.55501E-02_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.26224E-02_JPRB,0.42542E-02_JPRB,0.49201E-02_JPRB,0.53438E-02_JPRB,0.55977E-02_JPRB, &
+ & 0.57114E-02_JPRB,0.56753E-02_JPRB,0.54074E-02_JPRB,0.55558E-02_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.27039E-02_JPRB,0.43672E-02_JPRB,0.50470E-02_JPRB,0.54750E-02_JPRB,0.57276E-02_JPRB, &
+ & 0.58363E-02_JPRB,0.57849E-02_JPRB,0.54996E-02_JPRB,0.55710E-02_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.21256E-02_JPRB,0.35221E-02_JPRB,0.40853E-02_JPRB,0.44612E-02_JPRB,0.46874E-02_JPRB, &
+ & 0.47866E-02_JPRB,0.47389E-02_JPRB,0.44975E-02_JPRB,0.66135E-02_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.21937E-02_JPRB,0.36149E-02_JPRB,0.41854E-02_JPRB,0.45677E-02_JPRB,0.47907E-02_JPRB, &
+ & 0.48833E-02_JPRB,0.48291E-02_JPRB,0.45707E-02_JPRB,0.65729E-02_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.22650E-02_JPRB,0.37098E-02_JPRB,0.42933E-02_JPRB,0.46764E-02_JPRB,0.49020E-02_JPRB, &
+ & 0.49895E-02_JPRB,0.49234E-02_JPRB,0.46462E-02_JPRB,0.65598E-02_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.23425E-02_JPRB,0.38113E-02_JPRB,0.44107E-02_JPRB,0.47931E-02_JPRB,0.50165E-02_JPRB, &
+ & 0.51000E-02_JPRB,0.50211E-02_JPRB,0.47251E-02_JPRB,0.65419E-02_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.24251E-02_JPRB,0.39222E-02_JPRB,0.45344E-02_JPRB,0.49164E-02_JPRB,0.51382E-02_JPRB, &
+ & 0.52156E-02_JPRB,0.51233E-02_JPRB,0.48118E-02_JPRB,0.65404E-02_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.19014E-02_JPRB,0.31169E-02_JPRB,0.36336E-02_JPRB,0.39642E-02_JPRB,0.41602E-02_JPRB, &
+ & 0.42352E-02_JPRB,0.41726E-02_JPRB,0.39183E-02_JPRB,0.68121E-02_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.19605E-02_JPRB,0.32068E-02_JPRB,0.37314E-02_JPRB,0.40676E-02_JPRB,0.42627E-02_JPRB, &
+ & 0.43333E-02_JPRB,0.42591E-02_JPRB,0.39851E-02_JPRB,0.67229E-02_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.20227E-02_JPRB,0.33010E-02_JPRB,0.38333E-02_JPRB,0.41743E-02_JPRB,0.43708E-02_JPRB, &
+ & 0.44355E-02_JPRB,0.43461E-02_JPRB,0.40520E-02_JPRB,0.66419E-02_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.20945E-02_JPRB,0.34006E-02_JPRB,0.39411E-02_JPRB,0.42851E-02_JPRB,0.44804E-02_JPRB, &
+ & 0.45405E-02_JPRB,0.44353E-02_JPRB,0.41230E-02_JPRB,0.65948E-02_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.21695E-02_JPRB,0.35114E-02_JPRB,0.40581E-02_JPRB,0.44020E-02_JPRB,0.45960E-02_JPRB, &
+ & 0.46501E-02_JPRB,0.45319E-02_JPRB,0.42045E-02_JPRB,0.65716E-02_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.17348E-02_JPRB,0.27575E-02_JPRB,0.32033E-02_JPRB,0.34905E-02_JPRB,0.36669E-02_JPRB, &
+ & 0.37299E-02_JPRB,0.36615E-02_JPRB,0.34092E-02_JPRB,0.62173E-02_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.17868E-02_JPRB,0.28403E-02_JPRB,0.32978E-02_JPRB,0.35924E-02_JPRB,0.37684E-02_JPRB, &
+ & 0.38248E-02_JPRB,0.37430E-02_JPRB,0.34686E-02_JPRB,0.61248E-02_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.18438E-02_JPRB,0.29272E-02_JPRB,0.33982E-02_JPRB,0.36985E-02_JPRB,0.38711E-02_JPRB, &
+ & 0.39210E-02_JPRB,0.38240E-02_JPRB,0.35286E-02_JPRB,0.60637E-02_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.19066E-02_JPRB,0.30192E-02_JPRB,0.35016E-02_JPRB,0.38072E-02_JPRB,0.39764E-02_JPRB, &
+ & 0.40199E-02_JPRB,0.39089E-02_JPRB,0.35954E-02_JPRB,0.60138E-02_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.19732E-02_JPRB,0.31237E-02_JPRB,0.36129E-02_JPRB,0.39207E-02_JPRB,0.40892E-02_JPRB, &
+ & 0.41240E-02_JPRB,0.40022E-02_JPRB,0.36721E-02_JPRB,0.59944E-02_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.41219E-01_JPRB,0.41795E-01_JPRB,0.46848E-01_JPRB,0.50877E-01_JPRB,0.53437E-01_JPRB, &
+ & 0.54488E-01_JPRB,0.53560E-01_JPRB,0.50235E-01_JPRB,0.51545E-01_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.42156E-01_JPRB,0.42406E-01_JPRB,0.47180E-01_JPRB,0.51006E-01_JPRB,0.53354E-01_JPRB, &
+ & 0.54221E-01_JPRB,0.53185E-01_JPRB,0.49897E-01_JPRB,0.51289E-01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.43082E-01_JPRB,0.43034E-01_JPRB,0.47543E-01_JPRB,0.51133E-01_JPRB,0.53289E-01_JPRB, &
+ & 0.53978E-01_JPRB,0.52866E-01_JPRB,0.49591E-01_JPRB,0.51083E-01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.43908E-01_JPRB,0.43606E-01_JPRB,0.47876E-01_JPRB,0.51241E-01_JPRB,0.53225E-01_JPRB, &
+ & 0.53768E-01_JPRB,0.52555E-01_JPRB,0.49365E-01_JPRB,0.51010E-01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.44717E-01_JPRB,0.44169E-01_JPRB,0.48160E-01_JPRB,0.51395E-01_JPRB,0.53206E-01_JPRB, &
+ & 0.53607E-01_JPRB,0.52301E-01_JPRB,0.49268E-01_JPRB,0.51108E-01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.38280E-01_JPRB,0.40368E-01_JPRB,0.46271E-01_JPRB,0.50387E-01_JPRB,0.53287E-01_JPRB, &
+ & 0.54294E-01_JPRB,0.53147E-01_JPRB,0.49359E-01_JPRB,0.49444E-01_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.39278E-01_JPRB,0.41016E-01_JPRB,0.46659E-01_JPRB,0.50565E-01_JPRB,0.53249E-01_JPRB, &
+ & 0.54064E-01_JPRB,0.52823E-01_JPRB,0.49016E-01_JPRB,0.49210E-01_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.40252E-01_JPRB,0.41678E-01_JPRB,0.47048E-01_JPRB,0.50745E-01_JPRB,0.53223E-01_JPRB, &
+ & 0.53871E-01_JPRB,0.52519E-01_JPRB,0.48730E-01_JPRB,0.49081E-01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.41132E-01_JPRB,0.42274E-01_JPRB,0.47387E-01_JPRB,0.50925E-01_JPRB,0.53214E-01_JPRB, &
+ & 0.53693E-01_JPRB,0.52217E-01_JPRB,0.48559E-01_JPRB,0.49102E-01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.41937E-01_JPRB,0.42806E-01_JPRB,0.47675E-01_JPRB,0.51115E-01_JPRB,0.53221E-01_JPRB, &
+ & 0.53535E-01_JPRB,0.52007E-01_JPRB,0.48511E-01_JPRB,0.49285E-01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.35016E-01_JPRB,0.38740E-01_JPRB,0.45035E-01_JPRB,0.49481E-01_JPRB,0.52517E-01_JPRB, &
+ & 0.53496E-01_JPRB,0.52191E-01_JPRB,0.48044E-01_JPRB,0.46584E-01_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.36031E-01_JPRB,0.39393E-01_JPRB,0.45463E-01_JPRB,0.49713E-01_JPRB,0.52514E-01_JPRB, &
+ & 0.53329E-01_JPRB,0.51912E-01_JPRB,0.47725E-01_JPRB,0.46413E-01_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.36991E-01_JPRB,0.40024E-01_JPRB,0.45863E-01_JPRB,0.49943E-01_JPRB,0.52531E-01_JPRB, &
+ & 0.53167E-01_JPRB,0.51622E-01_JPRB,0.47472E-01_JPRB,0.46354E-01_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.37902E-01_JPRB,0.40620E-01_JPRB,0.46253E-01_JPRB,0.50181E-01_JPRB,0.52583E-01_JPRB, &
+ & 0.53007E-01_JPRB,0.51384E-01_JPRB,0.47335E-01_JPRB,0.46441E-01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.38707E-01_JPRB,0.41126E-01_JPRB,0.46598E-01_JPRB,0.50384E-01_JPRB,0.52633E-01_JPRB, &
+ & 0.52879E-01_JPRB,0.51240E-01_JPRB,0.47311E-01_JPRB,0.46661E-01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.31672E-01_JPRB,0.36966E-01_JPRB,0.43365E-01_JPRB,0.48073E-01_JPRB,0.51081E-01_JPRB, &
+ & 0.52063E-01_JPRB,0.50596E-01_JPRB,0.46210E-01_JPRB,0.43228E-01_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.32685E-01_JPRB,0.37616E-01_JPRB,0.43827E-01_JPRB,0.48349E-01_JPRB,0.51147E-01_JPRB, &
+ & 0.51967E-01_JPRB,0.50386E-01_JPRB,0.45960E-01_JPRB,0.43137E-01_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.33628E-01_JPRB,0.38241E-01_JPRB,0.44270E-01_JPRB,0.48639E-01_JPRB,0.51209E-01_JPRB, &
+ & 0.51848E-01_JPRB,0.50172E-01_JPRB,0.45771E-01_JPRB,0.43147E-01_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.34503E-01_JPRB,0.38804E-01_JPRB,0.44698E-01_JPRB,0.48896E-01_JPRB,0.51278E-01_JPRB, &
+ & 0.51724E-01_JPRB,0.50016E-01_JPRB,0.45686E-01_JPRB,0.43281E-01_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.35339E-01_JPRB,0.39319E-01_JPRB,0.45124E-01_JPRB,0.49160E-01_JPRB,0.51368E-01_JPRB, &
+ & 0.51672E-01_JPRB,0.49945E-01_JPRB,0.45702E-01_JPRB,0.43520E-01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.28453E-01_JPRB,0.34915E-01_JPRB,0.41400E-01_JPRB,0.46104E-01_JPRB,0.49014E-01_JPRB, &
+ & 0.49952E-01_JPRB,0.48370E-01_JPRB,0.43932E-01_JPRB,0.39569E-01_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.29434E-01_JPRB,0.35588E-01_JPRB,0.41893E-01_JPRB,0.46437E-01_JPRB,0.49144E-01_JPRB, &
+ & 0.49919E-01_JPRB,0.48254E-01_JPRB,0.43775E-01_JPRB,0.39548E-01_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.30340E-01_JPRB,0.36236E-01_JPRB,0.42373E-01_JPRB,0.46769E-01_JPRB,0.49255E-01_JPRB, &
+ & 0.49873E-01_JPRB,0.48133E-01_JPRB,0.43667E-01_JPRB,0.39610E-01_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.31178E-01_JPRB,0.36810E-01_JPRB,0.42835E-01_JPRB,0.47061E-01_JPRB,0.49370E-01_JPRB, &
+ & 0.49827E-01_JPRB,0.48071E-01_JPRB,0.43623E-01_JPRB,0.39779E-01_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.31999E-01_JPRB,0.37346E-01_JPRB,0.43284E-01_JPRB,0.47361E-01_JPRB,0.49516E-01_JPRB, &
+ & 0.49857E-01_JPRB,0.48088E-01_JPRB,0.43666E-01_JPRB,0.40037E-01_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.25421E-01_JPRB,0.32626E-01_JPRB,0.39116E-01_JPRB,0.43609E-01_JPRB,0.46371E-01_JPRB, &
+ & 0.47186E-01_JPRB,0.45634E-01_JPRB,0.41276E-01_JPRB,0.35722E-01_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.26347E-01_JPRB,0.33315E-01_JPRB,0.39629E-01_JPRB,0.44004E-01_JPRB,0.46570E-01_JPRB, &
+ & 0.47251E-01_JPRB,0.45602E-01_JPRB,0.41217E-01_JPRB,0.35770E-01_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.27211E-01_JPRB,0.33965E-01_JPRB,0.40142E-01_JPRB,0.44371E-01_JPRB,0.46737E-01_JPRB, &
+ & 0.47271E-01_JPRB,0.45579E-01_JPRB,0.41184E-01_JPRB,0.35883E-01_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.28013E-01_JPRB,0.34546E-01_JPRB,0.40641E-01_JPRB,0.44704E-01_JPRB,0.46903E-01_JPRB, &
+ & 0.47305E-01_JPRB,0.45608E-01_JPRB,0.41201E-01_JPRB,0.36071E-01_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.28777E-01_JPRB,0.35080E-01_JPRB,0.41083E-01_JPRB,0.45018E-01_JPRB,0.47083E-01_JPRB, &
+ & 0.47404E-01_JPRB,0.45685E-01_JPRB,0.41273E-01_JPRB,0.36328E-01_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.22628E-01_JPRB,0.30290E-01_JPRB,0.36520E-01_JPRB,0.40736E-01_JPRB,0.43195E-01_JPRB, &
+ & 0.43894E-01_JPRB,0.42478E-01_JPRB,0.38357E-01_JPRB,0.31858E-01_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.23496E-01_JPRB,0.30981E-01_JPRB,0.37071E-01_JPRB,0.41159E-01_JPRB,0.43459E-01_JPRB, &
+ & 0.44039E-01_JPRB,0.42534E-01_JPRB,0.38366E-01_JPRB,0.31954E-01_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.24311E-01_JPRB,0.31616E-01_JPRB,0.37614E-01_JPRB,0.41552E-01_JPRB,0.43690E-01_JPRB, &
+ & 0.44135E-01_JPRB,0.42598E-01_JPRB,0.38398E-01_JPRB,0.32112E-01_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.25081E-01_JPRB,0.32194E-01_JPRB,0.38124E-01_JPRB,0.41906E-01_JPRB,0.43917E-01_JPRB, &
+ & 0.44249E-01_JPRB,0.42700E-01_JPRB,0.38476E-01_JPRB,0.32312E-01_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.25796E-01_JPRB,0.32737E-01_JPRB,0.38583E-01_JPRB,0.42251E-01_JPRB,0.44147E-01_JPRB, &
+ & 0.44425E-01_JPRB,0.42840E-01_JPRB,0.38587E-01_JPRB,0.32545E-01_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.20122E-01_JPRB,0.27995E-01_JPRB,0.33719E-01_JPRB,0.37485E-01_JPRB,0.39621E-01_JPRB, &
+ & 0.40226E-01_JPRB,0.38971E-01_JPRB,0.35214E-01_JPRB,0.28110E-01_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.20930E-01_JPRB,0.28671E-01_JPRB,0.34304E-01_JPRB,0.37966E-01_JPRB,0.39957E-01_JPRB, &
+ & 0.40447E-01_JPRB,0.39124E-01_JPRB,0.35304E-01_JPRB,0.28246E-01_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.21692E-01_JPRB,0.29291E-01_JPRB,0.34870E-01_JPRB,0.38392E-01_JPRB,0.40254E-01_JPRB, &
+ & 0.40624E-01_JPRB,0.39266E-01_JPRB,0.35403E-01_JPRB,0.28424E-01_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.22396E-01_JPRB,0.29880E-01_JPRB,0.35388E-01_JPRB,0.38779E-01_JPRB,0.40528E-01_JPRB, &
+ & 0.40815E-01_JPRB,0.39436E-01_JPRB,0.35538E-01_JPRB,0.28597E-01_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.23064E-01_JPRB,0.30402E-01_JPRB,0.35848E-01_JPRB,0.39151E-01_JPRB,0.40824E-01_JPRB, &
+ & 0.41057E-01_JPRB,0.39639E-01_JPRB,0.35669E-01_JPRB,0.28823E-01_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.17909E-01_JPRB,0.25709E-01_JPRB,0.30840E-01_JPRB,0.34036E-01_JPRB,0.35851E-01_JPRB, &
+ & 0.36360E-01_JPRB,0.35282E-01_JPRB,0.31947E-01_JPRB,0.24003E-01_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.18652E-01_JPRB,0.26369E-01_JPRB,0.31431E-01_JPRB,0.34542E-01_JPRB,0.36244E-01_JPRB, &
+ & 0.36648E-01_JPRB,0.35513E-01_JPRB,0.32109E-01_JPRB,0.24164E-01_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.19344E-01_JPRB,0.26986E-01_JPRB,0.31997E-01_JPRB,0.35005E-01_JPRB,0.36599E-01_JPRB, &
+ & 0.36904E-01_JPRB,0.35718E-01_JPRB,0.32277E-01_JPRB,0.24318E-01_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.19991E-01_JPRB,0.27565E-01_JPRB,0.32506E-01_JPRB,0.35425E-01_JPRB,0.36934E-01_JPRB, &
+ & 0.37163E-01_JPRB,0.35949E-01_JPRB,0.32440E-01_JPRB,0.24470E-01_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.20615E-01_JPRB,0.28069E-01_JPRB,0.32961E-01_JPRB,0.35817E-01_JPRB,0.37281E-01_JPRB, &
+ & 0.37462E-01_JPRB,0.36191E-01_JPRB,0.32591E-01_JPRB,0.24688E-01_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.16038E-01_JPRB,0.23520E-01_JPRB,0.27944E-01_JPRB,0.30612E-01_JPRB,0.32108E-01_JPRB, &
+ & 0.32531E-01_JPRB,0.31594E-01_JPRB,0.28710E-01_JPRB,0.19040E-01_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.16702E-01_JPRB,0.24155E-01_JPRB,0.28537E-01_JPRB,0.31140E-01_JPRB,0.32544E-01_JPRB, &
+ & 0.32858E-01_JPRB,0.31863E-01_JPRB,0.28938E-01_JPRB,0.19154E-01_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.17329E-01_JPRB,0.24747E-01_JPRB,0.29094E-01_JPRB,0.31618E-01_JPRB,0.32949E-01_JPRB, &
+ & 0.33160E-01_JPRB,0.32119E-01_JPRB,0.29151E-01_JPRB,0.19214E-01_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.17922E-01_JPRB,0.25302E-01_JPRB,0.29595E-01_JPRB,0.32058E-01_JPRB,0.33330E-01_JPRB, &
+ & 0.33472E-01_JPRB,0.32385E-01_JPRB,0.29320E-01_JPRB,0.19269E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 5,10, 9) = (/ &
+ & 0.18489E-01_JPRB,0.25799E-01_JPRB,0.30045E-01_JPRB,0.32466E-01_JPRB,0.33700E-01_JPRB, &
+ & 0.33812E-01_JPRB,0.32629E-01_JPRB,0.29481E-01_JPRB,0.19405E-01_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.14687E-01_JPRB,0.21702E-01_JPRB,0.25384E-01_JPRB,0.27570E-01_JPRB,0.28760E-01_JPRB, &
+ & 0.29017E-01_JPRB,0.28178E-01_JPRB,0.25716E-01_JPRB,0.20195E-01_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.15274E-01_JPRB,0.22296E-01_JPRB,0.25944E-01_JPRB,0.28087E-01_JPRB,0.29202E-01_JPRB, &
+ & 0.29352E-01_JPRB,0.28471E-01_JPRB,0.25960E-01_JPRB,0.20265E-01_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.15835E-01_JPRB,0.22836E-01_JPRB,0.26465E-01_JPRB,0.28550E-01_JPRB,0.29611E-01_JPRB, &
+ & 0.29694E-01_JPRB,0.28754E-01_JPRB,0.26152E-01_JPRB,0.20296E-01_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.16357E-01_JPRB,0.23338E-01_JPRB,0.26927E-01_JPRB,0.28982E-01_JPRB,0.29998E-01_JPRB, &
+ & 0.30045E-01_JPRB,0.29008E-01_JPRB,0.26312E-01_JPRB,0.20131E-01_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.16879E-01_JPRB,0.23791E-01_JPRB,0.27359E-01_JPRB,0.29394E-01_JPRB,0.30387E-01_JPRB, &
+ & 0.30372E-01_JPRB,0.29268E-01_JPRB,0.26507E-01_JPRB,0.20180E-01_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.13435E-01_JPRB,0.19917E-01_JPRB,0.22947E-01_JPRB,0.24741E-01_JPRB,0.25656E-01_JPRB, &
+ & 0.25762E-01_JPRB,0.25010E-01_JPRB,0.22879E-01_JPRB,0.21935E-01_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.13973E-01_JPRB,0.20460E-01_JPRB,0.23475E-01_JPRB,0.25221E-01_JPRB,0.26084E-01_JPRB, &
+ & 0.26126E-01_JPRB,0.25297E-01_JPRB,0.23091E-01_JPRB,0.22096E-01_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.14481E-01_JPRB,0.20956E-01_JPRB,0.23951E-01_JPRB,0.25665E-01_JPRB,0.26486E-01_JPRB, &
+ & 0.26478E-01_JPRB,0.25558E-01_JPRB,0.23263E-01_JPRB,0.22257E-01_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.14966E-01_JPRB,0.21408E-01_JPRB,0.24388E-01_JPRB,0.26079E-01_JPRB,0.26872E-01_JPRB, &
+ & 0.26802E-01_JPRB,0.25814E-01_JPRB,0.23444E-01_JPRB,0.22244E-01_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.15448E-01_JPRB,0.21834E-01_JPRB,0.24813E-01_JPRB,0.26492E-01_JPRB,0.27230E-01_JPRB, &
+ & 0.27128E-01_JPRB,0.26103E-01_JPRB,0.23676E-01_JPRB,0.22318E-01_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.12253E-01_JPRB,0.18169E-01_JPRB,0.20712E-01_JPRB,0.22143E-01_JPRB,0.22829E-01_JPRB, &
+ & 0.22840E-01_JPRB,0.22092E-01_JPRB,0.20210E-01_JPRB,0.22350E-01_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.12752E-01_JPRB,0.18675E-01_JPRB,0.21188E-01_JPRB,0.22590E-01_JPRB,0.23242E-01_JPRB, &
+ & 0.23184E-01_JPRB,0.22356E-01_JPRB,0.20395E-01_JPRB,0.22569E-01_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.13220E-01_JPRB,0.19134E-01_JPRB,0.21627E-01_JPRB,0.23007E-01_JPRB,0.23621E-01_JPRB, &
+ & 0.23502E-01_JPRB,0.22612E-01_JPRB,0.20571E-01_JPRB,0.22750E-01_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.13675E-01_JPRB,0.19566E-01_JPRB,0.22044E-01_JPRB,0.23405E-01_JPRB,0.23969E-01_JPRB, &
+ & 0.23813E-01_JPRB,0.22875E-01_JPRB,0.20780E-01_JPRB,0.22726E-01_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.14122E-01_JPRB,0.19976E-01_JPRB,0.22454E-01_JPRB,0.23786E-01_JPRB,0.24318E-01_JPRB, &
+ & 0.24140E-01_JPRB,0.23183E-01_JPRB,0.21041E-01_JPRB,0.22784E-01_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.14776E+00_JPRB,0.13250E+00_JPRB,0.11877E+00_JPRB,0.11907E+00_JPRB,0.11538E+00_JPRB, &
+ & 0.11234E+00_JPRB,0.10926E+00_JPRB,0.11039E+00_JPRB,0.12102E+00_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.14758E+00_JPRB,0.13180E+00_JPRB,0.11760E+00_JPRB,0.11720E+00_JPRB,0.11379E+00_JPRB, &
+ & 0.11206E+00_JPRB,0.10856E+00_JPRB,0.11029E+00_JPRB,0.12093E+00_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.14691E+00_JPRB,0.13078E+00_JPRB,0.11629E+00_JPRB,0.11563E+00_JPRB,0.11248E+00_JPRB, &
+ & 0.11149E+00_JPRB,0.10785E+00_JPRB,0.11040E+00_JPRB,0.12104E+00_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.14609E+00_JPRB,0.12985E+00_JPRB,0.11503E+00_JPRB,0.11426E+00_JPRB,0.11150E+00_JPRB, &
+ & 0.11061E+00_JPRB,0.10739E+00_JPRB,0.11031E+00_JPRB,0.12092E+00_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.14529E+00_JPRB,0.12911E+00_JPRB,0.11448E+00_JPRB,0.11310E+00_JPRB,0.11058E+00_JPRB, &
+ & 0.10959E+00_JPRB,0.10721E+00_JPRB,0.11007E+00_JPRB,0.12050E+00_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.14616E+00_JPRB,0.13131E+00_JPRB,0.12350E+00_JPRB,0.12510E+00_JPRB,0.11934E+00_JPRB, &
+ & 0.11762E+00_JPRB,0.11417E+00_JPRB,0.11460E+00_JPRB,0.12626E+00_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.14607E+00_JPRB,0.13063E+00_JPRB,0.12202E+00_JPRB,0.12312E+00_JPRB,0.11789E+00_JPRB, &
+ & 0.11742E+00_JPRB,0.11363E+00_JPRB,0.11470E+00_JPRB,0.12636E+00_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.14577E+00_JPRB,0.12991E+00_JPRB,0.12074E+00_JPRB,0.12132E+00_JPRB,0.11671E+00_JPRB, &
+ & 0.11676E+00_JPRB,0.11334E+00_JPRB,0.11448E+00_JPRB,0.12602E+00_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.14549E+00_JPRB,0.12948E+00_JPRB,0.11982E+00_JPRB,0.11971E+00_JPRB,0.11561E+00_JPRB, &
+ & 0.11583E+00_JPRB,0.11311E+00_JPRB,0.11380E+00_JPRB,0.12515E+00_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.14518E+00_JPRB,0.12921E+00_JPRB,0.11930E+00_JPRB,0.11856E+00_JPRB,0.11453E+00_JPRB, &
+ & 0.11499E+00_JPRB,0.11278E+00_JPRB,0.11303E+00_JPRB,0.12425E+00_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.14318E+00_JPRB,0.12893E+00_JPRB,0.12918E+00_JPRB,0.12942E+00_JPRB,0.12491E+00_JPRB, &
+ & 0.12238E+00_JPRB,0.11842E+00_JPRB,0.11706E+00_JPRB,0.12892E+00_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.14362E+00_JPRB,0.12877E+00_JPRB,0.12794E+00_JPRB,0.12738E+00_JPRB,0.12367E+00_JPRB, &
+ & 0.12214E+00_JPRB,0.11818E+00_JPRB,0.11730E+00_JPRB,0.12892E+00_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.14392E+00_JPRB,0.12859E+00_JPRB,0.12673E+00_JPRB,0.12555E+00_JPRB,0.12238E+00_JPRB, &
+ & 0.12154E+00_JPRB,0.11804E+00_JPRB,0.11693E+00_JPRB,0.12825E+00_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.14418E+00_JPRB,0.12858E+00_JPRB,0.12588E+00_JPRB,0.12406E+00_JPRB,0.12111E+00_JPRB, &
+ & 0.12100E+00_JPRB,0.11768E+00_JPRB,0.11605E+00_JPRB,0.12723E+00_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.14433E+00_JPRB,0.12868E+00_JPRB,0.12520E+00_JPRB,0.12307E+00_JPRB,0.11981E+00_JPRB, &
+ & 0.12050E+00_JPRB,0.11702E+00_JPRB,0.11519E+00_JPRB,0.12642E+00_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.13900E+00_JPRB,0.12627E+00_JPRB,0.13262E+00_JPRB,0.13246E+00_JPRB,0.13018E+00_JPRB, &
+ & 0.12656E+00_JPRB,0.12207E+00_JPRB,0.11856E+00_JPRB,0.12927E+00_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.13981E+00_JPRB,0.12631E+00_JPRB,0.13168E+00_JPRB,0.13063E+00_JPRB,0.12928E+00_JPRB, &
+ & 0.12634E+00_JPRB,0.12180E+00_JPRB,0.11842E+00_JPRB,0.12888E+00_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.14055E+00_JPRB,0.12635E+00_JPRB,0.13064E+00_JPRB,0.12886E+00_JPRB,0.12826E+00_JPRB, &
+ & 0.12591E+00_JPRB,0.12147E+00_JPRB,0.11781E+00_JPRB,0.12798E+00_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.14115E+00_JPRB,0.12659E+00_JPRB,0.12979E+00_JPRB,0.12765E+00_JPRB,0.12712E+00_JPRB, &
+ & 0.12539E+00_JPRB,0.12094E+00_JPRB,0.11686E+00_JPRB,0.12709E+00_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.14205E+00_JPRB,0.12716E+00_JPRB,0.12897E+00_JPRB,0.12678E+00_JPRB,0.12607E+00_JPRB, &
+ & 0.12463E+00_JPRB,0.12022E+00_JPRB,0.11611E+00_JPRB,0.12648E+00_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.13267E+00_JPRB,0.12451E+00_JPRB,0.13264E+00_JPRB,0.13467E+00_JPRB,0.13410E+00_JPRB, &
+ & 0.12976E+00_JPRB,0.12532E+00_JPRB,0.11842E+00_JPRB,0.12663E+00_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.13391E+00_JPRB,0.12448E+00_JPRB,0.13222E+00_JPRB,0.13349E+00_JPRB,0.13365E+00_JPRB, &
+ & 0.12967E+00_JPRB,0.12478E+00_JPRB,0.11793E+00_JPRB,0.12610E+00_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.13513E+00_JPRB,0.12441E+00_JPRB,0.13150E+00_JPRB,0.13226E+00_JPRB,0.13285E+00_JPRB, &
+ & 0.12935E+00_JPRB,0.12414E+00_JPRB,0.11714E+00_JPRB,0.12535E+00_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.13635E+00_JPRB,0.12468E+00_JPRB,0.13071E+00_JPRB,0.13132E+00_JPRB,0.13192E+00_JPRB, &
+ & 0.12883E+00_JPRB,0.12325E+00_JPRB,0.11628E+00_JPRB,0.12465E+00_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.13765E+00_JPRB,0.12523E+00_JPRB,0.12989E+00_JPRB,0.13067E+00_JPRB,0.13104E+00_JPRB, &
+ & 0.12778E+00_JPRB,0.12230E+00_JPRB,0.11574E+00_JPRB,0.12447E+00_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.12480E+00_JPRB,0.12304E+00_JPRB,0.13086E+00_JPRB,0.13535E+00_JPRB,0.13580E+00_JPRB, &
+ & 0.13244E+00_JPRB,0.12684E+00_JPRB,0.11687E+00_JPRB,0.12150E+00_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.12631E+00_JPRB,0.12320E+00_JPRB,0.13089E+00_JPRB,0.13488E+00_JPRB,0.13591E+00_JPRB, &
+ & 0.13240E+00_JPRB,0.12644E+00_JPRB,0.11610E+00_JPRB,0.12096E+00_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.12783E+00_JPRB,0.12334E+00_JPRB,0.13031E+00_JPRB,0.13415E+00_JPRB,0.13555E+00_JPRB, &
+ & 0.13212E+00_JPRB,0.12571E+00_JPRB,0.11517E+00_JPRB,0.12033E+00_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.12946E+00_JPRB,0.12375E+00_JPRB,0.12962E+00_JPRB,0.13360E+00_JPRB,0.13480E+00_JPRB, &
+ & 0.13147E+00_JPRB,0.12458E+00_JPRB,0.11440E+00_JPRB,0.12012E+00_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.13098E+00_JPRB,0.12424E+00_JPRB,0.12926E+00_JPRB,0.13328E+00_JPRB,0.13390E+00_JPRB, &
+ & 0.13035E+00_JPRB,0.12352E+00_JPRB,0.11410E+00_JPRB,0.12034E+00_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.11587E+00_JPRB,0.11977E+00_JPRB,0.12827E+00_JPRB,0.13413E+00_JPRB,0.13637E+00_JPRB, &
+ & 0.13338E+00_JPRB,0.12607E+00_JPRB,0.11369E+00_JPRB,0.11422E+00_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.11755E+00_JPRB,0.12008E+00_JPRB,0.12851E+00_JPRB,0.13433E+00_JPRB,0.13653E+00_JPRB, &
+ & 0.13350E+00_JPRB,0.12579E+00_JPRB,0.11303E+00_JPRB,0.11384E+00_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.11925E+00_JPRB,0.12045E+00_JPRB,0.12827E+00_JPRB,0.13401E+00_JPRB,0.13627E+00_JPRB, &
+ & 0.13335E+00_JPRB,0.12531E+00_JPRB,0.11227E+00_JPRB,0.11342E+00_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.12111E+00_JPRB,0.12107E+00_JPRB,0.12798E+00_JPRB,0.13385E+00_JPRB,0.13564E+00_JPRB, &
+ & 0.13268E+00_JPRB,0.12424E+00_JPRB,0.11167E+00_JPRB,0.11355E+00_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.12285E+00_JPRB,0.12168E+00_JPRB,0.12798E+00_JPRB,0.13376E+00_JPRB,0.13482E+00_JPRB, &
+ & 0.13151E+00_JPRB,0.12334E+00_JPRB,0.11149E+00_JPRB,0.11415E+00_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.10591E+00_JPRB,0.11393E+00_JPRB,0.12456E+00_JPRB,0.13177E+00_JPRB,0.13532E+00_JPRB, &
+ & 0.13189E+00_JPRB,0.12388E+00_JPRB,0.10965E+00_JPRB,0.10563E+00_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.10784E+00_JPRB,0.11446E+00_JPRB,0.12497E+00_JPRB,0.13191E+00_JPRB,0.13527E+00_JPRB, &
+ & 0.13206E+00_JPRB,0.12372E+00_JPRB,0.10901E+00_JPRB,0.10541E+00_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.10982E+00_JPRB,0.11499E+00_JPRB,0.12496E+00_JPRB,0.13190E+00_JPRB,0.13491E+00_JPRB, &
+ & 0.13198E+00_JPRB,0.12329E+00_JPRB,0.10836E+00_JPRB,0.10528E+00_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.11183E+00_JPRB,0.11569E+00_JPRB,0.12499E+00_JPRB,0.13184E+00_JPRB,0.13435E+00_JPRB, &
+ & 0.13149E+00_JPRB,0.12252E+00_JPRB,0.10787E+00_JPRB,0.10590E+00_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.11351E+00_JPRB,0.11638E+00_JPRB,0.12535E+00_JPRB,0.13176E+00_JPRB,0.13360E+00_JPRB, &
+ & 0.13054E+00_JPRB,0.12191E+00_JPRB,0.10801E+00_JPRB,0.10661E+00_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.95227E-01_JPRB,0.10714E+00_JPRB,0.11944E+00_JPRB,0.12826E+00_JPRB,0.13131E+00_JPRB, &
+ & 0.12801E+00_JPRB,0.11973E+00_JPRB,0.10506E+00_JPRB,0.96127E-01_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.97380E-01_JPRB,0.10792E+00_JPRB,0.12010E+00_JPRB,0.12848E+00_JPRB,0.13131E+00_JPRB, &
+ & 0.12823E+00_JPRB,0.11988E+00_JPRB,0.10446E+00_JPRB,0.96013E-01_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.99589E-01_JPRB,0.10861E+00_JPRB,0.12043E+00_JPRB,0.12826E+00_JPRB,0.13099E+00_JPRB, &
+ & 0.12821E+00_JPRB,0.11964E+00_JPRB,0.10385E+00_JPRB,0.96337E-01_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.10172E+00_JPRB,0.10937E+00_JPRB,0.12073E+00_JPRB,0.12822E+00_JPRB,0.13048E+00_JPRB, &
+ & 0.12786E+00_JPRB,0.11915E+00_JPRB,0.10369E+00_JPRB,0.97324E-01_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.10340E+00_JPRB,0.11015E+00_JPRB,0.12136E+00_JPRB,0.12832E+00_JPRB,0.12998E+00_JPRB, &
+ & 0.12724E+00_JPRB,0.11892E+00_JPRB,0.10410E+00_JPRB,0.97908E-01_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.84549E-01_JPRB,0.10005E+00_JPRB,0.11370E+00_JPRB,0.12280E+00_JPRB,0.12503E+00_JPRB, &
+ & 0.12157E+00_JPRB,0.11395E+00_JPRB,0.99558E-01_JPRB,0.78463E-01_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.86895E-01_JPRB,0.10114E+00_JPRB,0.11438E+00_JPRB,0.12270E+00_JPRB,0.12494E+00_JPRB, &
+ & 0.12211E+00_JPRB,0.11447E+00_JPRB,0.98932E-01_JPRB,0.78293E-01_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.89280E-01_JPRB,0.10200E+00_JPRB,0.11501E+00_JPRB,0.12255E+00_JPRB,0.12466E+00_JPRB, &
+ & 0.12232E+00_JPRB,0.11449E+00_JPRB,0.98490E-01_JPRB,0.78963E-01_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.91373E-01_JPRB,0.10297E+00_JPRB,0.11555E+00_JPRB,0.12264E+00_JPRB,0.12433E+00_JPRB, &
+ & 0.12211E+00_JPRB,0.11429E+00_JPRB,0.98808E-01_JPRB,0.79894E-01_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.93116E-01_JPRB,0.10381E+00_JPRB,0.11616E+00_JPRB,0.12299E+00_JPRB,0.12420E+00_JPRB, &
+ & 0.12176E+00_JPRB,0.11463E+00_JPRB,0.99400E-01_JPRB,0.79228E-01_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.75544E-01_JPRB,0.93054E-01_JPRB,0.10724E+00_JPRB,0.11489E+00_JPRB,0.11666E+00_JPRB, &
+ & 0.11411E+00_JPRB,0.10739E+00_JPRB,0.92708E-01_JPRB,0.54552E-01_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.77908E-01_JPRB,0.94287E-01_JPRB,0.10808E+00_JPRB,0.11471E+00_JPRB,0.11661E+00_JPRB, &
+ & 0.11478E+00_JPRB,0.10772E+00_JPRB,0.92504E-01_JPRB,0.54848E-01_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.80077E-01_JPRB,0.95473E-01_JPRB,0.10868E+00_JPRB,0.11491E+00_JPRB,0.11655E+00_JPRB, &
+ & 0.11482E+00_JPRB,0.10782E+00_JPRB,0.93001E-01_JPRB,0.55769E-01_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.81960E-01_JPRB,0.96566E-01_JPRB,0.10943E+00_JPRB,0.11546E+00_JPRB,0.11672E+00_JPRB, &
+ & 0.11473E+00_JPRB,0.10831E+00_JPRB,0.93879E-01_JPRB,0.57926E-01_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.83450E-01_JPRB,0.97453E-01_JPRB,0.11008E+00_JPRB,0.11599E+00_JPRB,0.11716E+00_JPRB, &
+ & 0.11515E+00_JPRB,0.10911E+00_JPRB,0.94288E-01_JPRB,0.57746E-01_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.67513E-01_JPRB,0.86189E-01_JPRB,0.99369E-01_JPRB,0.10520E+00_JPRB,0.10724E+00_JPRB, &
+ & 0.10586E+00_JPRB,0.99242E-01_JPRB,0.85556E-01_JPRB,0.53156E-01_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.69613E-01_JPRB,0.87484E-01_JPRB,0.10007E+00_JPRB,0.10560E+00_JPRB,0.10749E+00_JPRB, &
+ & 0.10614E+00_JPRB,0.99761E-01_JPRB,0.86270E-01_JPRB,0.51781E-01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.71469E-01_JPRB,0.88722E-01_JPRB,0.10094E+00_JPRB,0.10629E+00_JPRB,0.10784E+00_JPRB, &
+ & 0.10630E+00_JPRB,0.10046E+00_JPRB,0.87349E-01_JPRB,0.51450E-01_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.73024E-01_JPRB,0.89773E-01_JPRB,0.10183E+00_JPRB,0.10713E+00_JPRB,0.10860E+00_JPRB, &
+ & 0.10686E+00_JPRB,0.10138E+00_JPRB,0.88130E-01_JPRB,0.52601E-01_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.74303E-01_JPRB,0.90696E-01_JPRB,0.10259E+00_JPRB,0.10797E+00_JPRB,0.10971E+00_JPRB, &
+ & 0.10792E+00_JPRB,0.10184E+00_JPRB,0.88445E-01_JPRB,0.51152E-01_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.60529E-01_JPRB,0.79607E-01_JPRB,0.90318E-01_JPRB,0.95428E-01_JPRB,0.97408E-01_JPRB, &
+ & 0.96227E-01_JPRB,0.90699E-01_JPRB,0.78779E-01_JPRB,0.52832E-01_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.62276E-01_JPRB,0.80870E-01_JPRB,0.91247E-01_JPRB,0.96259E-01_JPRB,0.97934E-01_JPRB, &
+ & 0.96714E-01_JPRB,0.91680E-01_JPRB,0.79941E-01_JPRB,0.52303E-01_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.63790E-01_JPRB,0.81933E-01_JPRB,0.92274E-01_JPRB,0.97270E-01_JPRB,0.98880E-01_JPRB, &
+ & 0.97553E-01_JPRB,0.92636E-01_JPRB,0.80918E-01_JPRB,0.51576E-01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.65028E-01_JPRB,0.82921E-01_JPRB,0.93287E-01_JPRB,0.98387E-01_JPRB,0.10023E+00_JPRB, &
+ & 0.98785E-01_JPRB,0.93367E-01_JPRB,0.81491E-01_JPRB,0.53387E-01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.66150E-01_JPRB,0.83739E-01_JPRB,0.94354E-01_JPRB,0.99696E-01_JPRB,0.10169E+00_JPRB, &
+ & 0.99901E-01_JPRB,0.93863E-01_JPRB,0.81907E-01_JPRB,0.52837E-01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.20407E+00_JPRB,0.18071E+00_JPRB,0.16029E+00_JPRB,0.15138E+00_JPRB,0.14997E+00_JPRB, &
+ & 0.13984E+00_JPRB,0.13275E+00_JPRB,0.14129E+00_JPRB,0.15399E+00_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.20135E+00_JPRB,0.17935E+00_JPRB,0.15932E+00_JPRB,0.15017E+00_JPRB,0.14962E+00_JPRB, &
+ & 0.13862E+00_JPRB,0.13266E+00_JPRB,0.14117E+00_JPRB,0.15393E+00_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.19936E+00_JPRB,0.17801E+00_JPRB,0.15787E+00_JPRB,0.14825E+00_JPRB,0.14805E+00_JPRB, &
+ & 0.13791E+00_JPRB,0.13257E+00_JPRB,0.14065E+00_JPRB,0.15357E+00_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.19744E+00_JPRB,0.17636E+00_JPRB,0.15587E+00_JPRB,0.14600E+00_JPRB,0.14568E+00_JPRB, &
+ & 0.13759E+00_JPRB,0.13216E+00_JPRB,0.14003E+00_JPRB,0.15311E+00_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.19560E+00_JPRB,0.17445E+00_JPRB,0.15370E+00_JPRB,0.14366E+00_JPRB,0.14353E+00_JPRB, &
+ & 0.13719E+00_JPRB,0.13142E+00_JPRB,0.13943E+00_JPRB,0.15271E+00_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.21063E+00_JPRB,0.18653E+00_JPRB,0.16583E+00_JPRB,0.16261E+00_JPRB,0.15745E+00_JPRB, &
+ & 0.14703E+00_JPRB,0.14143E+00_JPRB,0.14831E+00_JPRB,0.16307E+00_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.20807E+00_JPRB,0.18515E+00_JPRB,0.16450E+00_JPRB,0.16174E+00_JPRB,0.15680E+00_JPRB, &
+ & 0.14604E+00_JPRB,0.14115E+00_JPRB,0.14798E+00_JPRB,0.16304E+00_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.20581E+00_JPRB,0.18338E+00_JPRB,0.16244E+00_JPRB,0.15978E+00_JPRB,0.15520E+00_JPRB, &
+ & 0.14566E+00_JPRB,0.14067E+00_JPRB,0.14768E+00_JPRB,0.16312E+00_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.20347E+00_JPRB,0.18119E+00_JPRB,0.16010E+00_JPRB,0.15745E+00_JPRB,0.15333E+00_JPRB, &
+ & 0.14529E+00_JPRB,0.14007E+00_JPRB,0.14753E+00_JPRB,0.16343E+00_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.20115E+00_JPRB,0.17885E+00_JPRB,0.15773E+00_JPRB,0.15483E+00_JPRB,0.15150E+00_JPRB, &
+ & 0.14453E+00_JPRB,0.13948E+00_JPRB,0.14731E+00_JPRB,0.16359E+00_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.21616E+00_JPRB,0.19157E+00_JPRB,0.17353E+00_JPRB,0.17142E+00_JPRB,0.16301E+00_JPRB, &
+ & 0.15566E+00_JPRB,0.14998E+00_JPRB,0.15514E+00_JPRB,0.17145E+00_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.21408E+00_JPRB,0.19026E+00_JPRB,0.17182E+00_JPRB,0.17122E+00_JPRB,0.16252E+00_JPRB, &
+ & 0.15476E+00_JPRB,0.14939E+00_JPRB,0.15448E+00_JPRB,0.17139E+00_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.21163E+00_JPRB,0.18824E+00_JPRB,0.16950E+00_JPRB,0.16996E+00_JPRB,0.16151E+00_JPRB, &
+ & 0.15419E+00_JPRB,0.14882E+00_JPRB,0.15406E+00_JPRB,0.17163E+00_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.20914E+00_JPRB,0.18593E+00_JPRB,0.16692E+00_JPRB,0.16757E+00_JPRB,0.16029E+00_JPRB, &
+ & 0.15344E+00_JPRB,0.14837E+00_JPRB,0.15392E+00_JPRB,0.17198E+00_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.20701E+00_JPRB,0.18381E+00_JPRB,0.16453E+00_JPRB,0.16472E+00_JPRB,0.15897E+00_JPRB, &
+ & 0.15236E+00_JPRB,0.14801E+00_JPRB,0.15351E+00_JPRB,0.17179E+00_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.21862E+00_JPRB,0.19379E+00_JPRB,0.18221E+00_JPRB,0.17807E+00_JPRB,0.16954E+00_JPRB, &
+ & 0.16407E+00_JPRB,0.15829E+00_JPRB,0.16056E+00_JPRB,0.17755E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 4,11) = (/ &
+ & 0.21705E+00_JPRB,0.19285E+00_JPRB,0.18086E+00_JPRB,0.17812E+00_JPRB,0.16909E+00_JPRB, &
+ & 0.16313E+00_JPRB,0.15767E+00_JPRB,0.16003E+00_JPRB,0.17784E+00_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.21534E+00_JPRB,0.19129E+00_JPRB,0.17879E+00_JPRB,0.17719E+00_JPRB,0.16821E+00_JPRB, &
+ & 0.16252E+00_JPRB,0.15706E+00_JPRB,0.15944E+00_JPRB,0.17796E+00_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.21357E+00_JPRB,0.18961E+00_JPRB,0.17644E+00_JPRB,0.17503E+00_JPRB,0.16720E+00_JPRB, &
+ & 0.16179E+00_JPRB,0.15644E+00_JPRB,0.15869E+00_JPRB,0.17755E+00_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.21192E+00_JPRB,0.18796E+00_JPRB,0.17436E+00_JPRB,0.17237E+00_JPRB,0.16599E+00_JPRB, &
+ & 0.16096E+00_JPRB,0.15564E+00_JPRB,0.15746E+00_JPRB,0.17656E+00_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.21793E+00_JPRB,0.19325E+00_JPRB,0.18965E+00_JPRB,0.18402E+00_JPRB,0.17692E+00_JPRB, &
+ & 0.17250E+00_JPRB,0.16494E+00_JPRB,0.16474E+00_JPRB,0.18189E+00_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.21706E+00_JPRB,0.19287E+00_JPRB,0.18835E+00_JPRB,0.18355E+00_JPRB,0.17627E+00_JPRB, &
+ & 0.17161E+00_JPRB,0.16474E+00_JPRB,0.16398E+00_JPRB,0.18195E+00_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.21612E+00_JPRB,0.19181E+00_JPRB,0.18687E+00_JPRB,0.18213E+00_JPRB,0.17553E+00_JPRB, &
+ & 0.17088E+00_JPRB,0.16425E+00_JPRB,0.16313E+00_JPRB,0.18152E+00_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.21478E+00_JPRB,0.19045E+00_JPRB,0.18500E+00_JPRB,0.18018E+00_JPRB,0.17440E+00_JPRB, &
+ & 0.16996E+00_JPRB,0.16342E+00_JPRB,0.16188E+00_JPRB,0.18054E+00_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.21350E+00_JPRB,0.18909E+00_JPRB,0.18333E+00_JPRB,0.17782E+00_JPRB,0.17309E+00_JPRB, &
+ & 0.16916E+00_JPRB,0.16213E+00_JPRB,0.16034E+00_JPRB,0.17917E+00_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.21342E+00_JPRB,0.19093E+00_JPRB,0.19390E+00_JPRB,0.18953E+00_JPRB,0.18412E+00_JPRB, &
+ & 0.17932E+00_JPRB,0.17133E+00_JPRB,0.16726E+00_JPRB,0.18355E+00_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.21345E+00_JPRB,0.19062E+00_JPRB,0.19295E+00_JPRB,0.18836E+00_JPRB,0.18309E+00_JPRB, &
+ & 0.17848E+00_JPRB,0.17069E+00_JPRB,0.16650E+00_JPRB,0.18323E+00_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.21341E+00_JPRB,0.18999E+00_JPRB,0.19180E+00_JPRB,0.18672E+00_JPRB,0.18231E+00_JPRB, &
+ & 0.17805E+00_JPRB,0.16996E+00_JPRB,0.16523E+00_JPRB,0.18230E+00_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.21278E+00_JPRB,0.18888E+00_JPRB,0.19035E+00_JPRB,0.18488E+00_JPRB,0.18150E+00_JPRB, &
+ & 0.17740E+00_JPRB,0.16888E+00_JPRB,0.16361E+00_JPRB,0.18086E+00_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.21199E+00_JPRB,0.18788E+00_JPRB,0.18853E+00_JPRB,0.18312E+00_JPRB,0.18053E+00_JPRB, &
+ & 0.17647E+00_JPRB,0.16753E+00_JPRB,0.16185E+00_JPRB,0.17942E+00_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.20554E+00_JPRB,0.18880E+00_JPRB,0.19483E+00_JPRB,0.19351E+00_JPRB,0.18975E+00_JPRB, &
+ & 0.18476E+00_JPRB,0.17703E+00_JPRB,0.16712E+00_JPRB,0.18079E+00_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.20652E+00_JPRB,0.18855E+00_JPRB,0.19393E+00_JPRB,0.19243E+00_JPRB,0.18938E+00_JPRB, &
+ & 0.18427E+00_JPRB,0.17598E+00_JPRB,0.16627E+00_JPRB,0.18028E+00_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.20722E+00_JPRB,0.18798E+00_JPRB,0.19279E+00_JPRB,0.19112E+00_JPRB,0.18883E+00_JPRB, &
+ & 0.18376E+00_JPRB,0.17458E+00_JPRB,0.16493E+00_JPRB,0.17920E+00_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.20704E+00_JPRB,0.18700E+00_JPRB,0.19152E+00_JPRB,0.18972E+00_JPRB,0.18818E+00_JPRB, &
+ & 0.18325E+00_JPRB,0.17326E+00_JPRB,0.16331E+00_JPRB,0.17789E+00_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.20670E+00_JPRB,0.18595E+00_JPRB,0.18990E+00_JPRB,0.18822E+00_JPRB,0.18756E+00_JPRB, &
+ & 0.18244E+00_JPRB,0.17179E+00_JPRB,0.16146E+00_JPRB,0.17654E+00_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.19482E+00_JPRB,0.18644E+00_JPRB,0.19372E+00_JPRB,0.19534E+00_JPRB,0.19341E+00_JPRB, &
+ & 0.18978E+00_JPRB,0.17991E+00_JPRB,0.16480E+00_JPRB,0.17385E+00_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.19645E+00_JPRB,0.18662E+00_JPRB,0.19286E+00_JPRB,0.19499E+00_JPRB,0.19364E+00_JPRB, &
+ & 0.18939E+00_JPRB,0.17872E+00_JPRB,0.16377E+00_JPRB,0.17323E+00_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.19752E+00_JPRB,0.18632E+00_JPRB,0.19176E+00_JPRB,0.19416E+00_JPRB,0.19361E+00_JPRB, &
+ & 0.18898E+00_JPRB,0.17730E+00_JPRB,0.16248E+00_JPRB,0.17231E+00_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.19786E+00_JPRB,0.18535E+00_JPRB,0.19058E+00_JPRB,0.19340E+00_JPRB,0.19352E+00_JPRB, &
+ & 0.18844E+00_JPRB,0.17582E+00_JPRB,0.16092E+00_JPRB,0.17110E+00_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.19827E+00_JPRB,0.18472E+00_JPRB,0.18922E+00_JPRB,0.19254E+00_JPRB,0.19302E+00_JPRB, &
+ & 0.18739E+00_JPRB,0.17431E+00_JPRB,0.15936E+00_JPRB,0.17034E+00_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.18199E+00_JPRB,0.18200E+00_JPRB,0.19084E+00_JPRB,0.19456E+00_JPRB,0.19545E+00_JPRB, &
+ & 0.19216E+00_JPRB,0.18018E+00_JPRB,0.16033E+00_JPRB,0.16333E+00_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.18402E+00_JPRB,0.18227E+00_JPRB,0.19032E+00_JPRB,0.19515E+00_JPRB,0.19643E+00_JPRB, &
+ & 0.19212E+00_JPRB,0.17883E+00_JPRB,0.15954E+00_JPRB,0.16306E+00_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.18527E+00_JPRB,0.18204E+00_JPRB,0.18956E+00_JPRB,0.19541E+00_JPRB,0.19690E+00_JPRB, &
+ & 0.19201E+00_JPRB,0.17754E+00_JPRB,0.15865E+00_JPRB,0.16240E+00_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.18597E+00_JPRB,0.18146E+00_JPRB,0.18866E+00_JPRB,0.19510E+00_JPRB,0.19689E+00_JPRB, &
+ & 0.19145E+00_JPRB,0.17626E+00_JPRB,0.15729E+00_JPRB,0.16157E+00_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.18701E+00_JPRB,0.18150E+00_JPRB,0.18776E+00_JPRB,0.19449E+00_JPRB,0.19637E+00_JPRB, &
+ & 0.19035E+00_JPRB,0.17490E+00_JPRB,0.15605E+00_JPRB,0.16154E+00_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.16786E+00_JPRB,0.17459E+00_JPRB,0.18572E+00_JPRB,0.19196E+00_JPRB,0.19497E+00_JPRB, &
+ & 0.19093E+00_JPRB,0.17775E+00_JPRB,0.15445E+00_JPRB,0.12845E+00_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.16990E+00_JPRB,0.17470E+00_JPRB,0.18604E+00_JPRB,0.19354E+00_JPRB,0.19670E+00_JPRB, &
+ & 0.19124E+00_JPRB,0.17643E+00_JPRB,0.15415E+00_JPRB,0.12953E+00_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.17115E+00_JPRB,0.17447E+00_JPRB,0.18577E+00_JPRB,0.19420E+00_JPRB,0.19734E+00_JPRB, &
+ & 0.19133E+00_JPRB,0.17544E+00_JPRB,0.15343E+00_JPRB,0.13019E+00_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.17256E+00_JPRB,0.17421E+00_JPRB,0.18540E+00_JPRB,0.19426E+00_JPRB,0.19741E+00_JPRB, &
+ & 0.19105E+00_JPRB,0.17463E+00_JPRB,0.15245E+00_JPRB,0.13135E+00_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.17411E+00_JPRB,0.17469E+00_JPRB,0.18532E+00_JPRB,0.19400E+00_JPRB,0.19690E+00_JPRB, &
+ & 0.19024E+00_JPRB,0.17373E+00_JPRB,0.15177E+00_JPRB,0.13443E+00_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.15326E+00_JPRB,0.16530E+00_JPRB,0.17933E+00_JPRB,0.18873E+00_JPRB,0.19204E+00_JPRB, &
+ & 0.18645E+00_JPRB,0.17157E+00_JPRB,0.14842E+00_JPRB,0.10906E+00_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.15510E+00_JPRB,0.16508E+00_JPRB,0.18002E+00_JPRB,0.19054E+00_JPRB,0.19337E+00_JPRB, &
+ & 0.18697E+00_JPRB,0.17132E+00_JPRB,0.14823E+00_JPRB,0.10821E+00_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.15695E+00_JPRB,0.16517E+00_JPRB,0.18033E+00_JPRB,0.19125E+00_JPRB,0.19395E+00_JPRB, &
+ & 0.18719E+00_JPRB,0.17114E+00_JPRB,0.14748E+00_JPRB,0.10735E+00_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.15884E+00_JPRB,0.16584E+00_JPRB,0.18066E+00_JPRB,0.19107E+00_JPRB,0.19386E+00_JPRB, &
+ & 0.18714E+00_JPRB,0.17083E+00_JPRB,0.14679E+00_JPRB,0.10767E+00_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.16065E+00_JPRB,0.16693E+00_JPRB,0.18136E+00_JPRB,0.19090E+00_JPRB,0.19313E+00_JPRB, &
+ & 0.18652E+00_JPRB,0.17043E+00_JPRB,0.14693E+00_JPRB,0.10852E+00_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.13812E+00_JPRB,0.15482E+00_JPRB,0.17200E+00_JPRB,0.18322E+00_JPRB,0.18516E+00_JPRB, &
+ & 0.17855E+00_JPRB,0.16404E+00_JPRB,0.14149E+00_JPRB,0.85521E-01_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.14024E+00_JPRB,0.15523E+00_JPRB,0.17295E+00_JPRB,0.18464E+00_JPRB,0.18616E+00_JPRB, &
+ & 0.17947E+00_JPRB,0.16474E+00_JPRB,0.14107E+00_JPRB,0.84251E-01_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.14232E+00_JPRB,0.15625E+00_JPRB,0.17374E+00_JPRB,0.18482E+00_JPRB,0.18666E+00_JPRB, &
+ & 0.18015E+00_JPRB,0.16507E+00_JPRB,0.14067E+00_JPRB,0.83221E-01_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.14452E+00_JPRB,0.15760E+00_JPRB,0.17483E+00_JPRB,0.18482E+00_JPRB,0.18644E+00_JPRB, &
+ & 0.18031E+00_JPRB,0.16530E+00_JPRB,0.14085E+00_JPRB,0.83052E-01_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.14659E+00_JPRB,0.15898E+00_JPRB,0.17608E+00_JPRB,0.18496E+00_JPRB,0.18608E+00_JPRB, &
+ & 0.18007E+00_JPRB,0.16596E+00_JPRB,0.14156E+00_JPRB,0.86150E-01_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.12335E+00_JPRB,0.14397E+00_JPRB,0.16332E+00_JPRB,0.17403E+00_JPRB,0.17485E+00_JPRB, &
+ & 0.16858E+00_JPRB,0.15532E+00_JPRB,0.13315E+00_JPRB,0.86982E-01_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.12553E+00_JPRB,0.14531E+00_JPRB,0.16473E+00_JPRB,0.17477E+00_JPRB,0.17593E+00_JPRB, &
+ & 0.16998E+00_JPRB,0.15639E+00_JPRB,0.13322E+00_JPRB,0.83311E-01_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.12788E+00_JPRB,0.14705E+00_JPRB,0.16612E+00_JPRB,0.17511E+00_JPRB,0.17644E+00_JPRB, &
+ & 0.17090E+00_JPRB,0.15730E+00_JPRB,0.13374E+00_JPRB,0.80969E-01_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.13027E+00_JPRB,0.14889E+00_JPRB,0.16746E+00_JPRB,0.17569E+00_JPRB,0.17660E+00_JPRB, &
+ & 0.17136E+00_JPRB,0.15852E+00_JPRB,0.13468E+00_JPRB,0.79671E-01_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.13255E+00_JPRB,0.15069E+00_JPRB,0.16867E+00_JPRB,0.17661E+00_JPRB,0.17696E+00_JPRB, &
+ & 0.17204E+00_JPRB,0.15992E+00_JPRB,0.13520E+00_JPRB,0.81334E-01_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.28721E+00_JPRB,0.25323E+00_JPRB,0.21917E+00_JPRB,0.19050E+00_JPRB,0.18439E+00_JPRB, &
+ & 0.17842E+00_JPRB,0.17156E+00_JPRB,0.18245E+00_JPRB,0.20075E+00_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.28561E+00_JPRB,0.25177E+00_JPRB,0.21845E+00_JPRB,0.19052E+00_JPRB,0.18309E+00_JPRB, &
+ & 0.17638E+00_JPRB,0.16966E+00_JPRB,0.18096E+00_JPRB,0.19965E+00_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.28230E+00_JPRB,0.24910E+00_JPRB,0.21697E+00_JPRB,0.19014E+00_JPRB,0.18233E+00_JPRB, &
+ & 0.17414E+00_JPRB,0.16821E+00_JPRB,0.18034E+00_JPRB,0.19910E+00_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.27834E+00_JPRB,0.24592E+00_JPRB,0.21540E+00_JPRB,0.18935E+00_JPRB,0.18163E+00_JPRB, &
+ & 0.17186E+00_JPRB,0.16739E+00_JPRB,0.18033E+00_JPRB,0.19922E+00_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.27434E+00_JPRB,0.24303E+00_JPRB,0.21391E+00_JPRB,0.18803E+00_JPRB,0.18019E+00_JPRB, &
+ & 0.17025E+00_JPRB,0.16693E+00_JPRB,0.18042E+00_JPRB,0.19937E+00_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.29623E+00_JPRB,0.26097E+00_JPRB,0.22609E+00_JPRB,0.20293E+00_JPRB,0.20182E+00_JPRB, &
+ & 0.19085E+00_JPRB,0.18240E+00_JPRB,0.19397E+00_JPRB,0.21604E+00_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.29432E+00_JPRB,0.25931E+00_JPRB,0.22539E+00_JPRB,0.20142E+00_JPRB,0.20026E+00_JPRB, &
+ & 0.18828E+00_JPRB,0.18057E+00_JPRB,0.19299E+00_JPRB,0.21521E+00_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.29132E+00_JPRB,0.25712E+00_JPRB,0.22457E+00_JPRB,0.20070E+00_JPRB,0.19917E+00_JPRB, &
+ & 0.18573E+00_JPRB,0.17946E+00_JPRB,0.19254E+00_JPRB,0.21482E+00_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.28797E+00_JPRB,0.25474E+00_JPRB,0.22345E+00_JPRB,0.19986E+00_JPRB,0.19780E+00_JPRB, &
+ & 0.18370E+00_JPRB,0.17875E+00_JPRB,0.19238E+00_JPRB,0.21459E+00_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.28466E+00_JPRB,0.25242E+00_JPRB,0.22205E+00_JPRB,0.19838E+00_JPRB,0.19562E+00_JPRB, &
+ & 0.18242E+00_JPRB,0.17806E+00_JPRB,0.19203E+00_JPRB,0.21421E+00_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.30561E+00_JPRB,0.26889E+00_JPRB,0.23295E+00_JPRB,0.21956E+00_JPRB,0.21717E+00_JPRB, &
+ & 0.20307E+00_JPRB,0.19524E+00_JPRB,0.20742E+00_JPRB,0.23388E+00_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.30324E+00_JPRB,0.26704E+00_JPRB,0.23237E+00_JPRB,0.21738E+00_JPRB,0.21493E+00_JPRB, &
+ & 0.20036E+00_JPRB,0.19375E+00_JPRB,0.20659E+00_JPRB,0.23304E+00_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.30058E+00_JPRB,0.26531E+00_JPRB,0.23190E+00_JPRB,0.21598E+00_JPRB,0.21300E+00_JPRB, &
+ & 0.19790E+00_JPRB,0.19244E+00_JPRB,0.20627E+00_JPRB,0.23259E+00_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.29826E+00_JPRB,0.26386E+00_JPRB,0.23125E+00_JPRB,0.21516E+00_JPRB,0.21099E+00_JPRB, &
+ & 0.19626E+00_JPRB,0.19135E+00_JPRB,0.20570E+00_JPRB,0.23176E+00_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.29569E+00_JPRB,0.26204E+00_JPRB,0.22972E+00_JPRB,0.21357E+00_JPRB,0.20846E+00_JPRB, &
+ & 0.19500E+00_JPRB,0.19003E+00_JPRB,0.20504E+00_JPRB,0.23084E+00_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.31580E+00_JPRB,0.27765E+00_JPRB,0.24256E+00_JPRB,0.23825E+00_JPRB,0.23010E+00_JPRB, &
+ & 0.21605E+00_JPRB,0.20908E+00_JPRB,0.22073E+00_JPRB,0.25027E+00_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.31385E+00_JPRB,0.27619E+00_JPRB,0.24143E+00_JPRB,0.23561E+00_JPRB,0.22732E+00_JPRB, &
+ & 0.21355E+00_JPRB,0.20732E+00_JPRB,0.21997E+00_JPRB,0.24945E+00_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.31115E+00_JPRB,0.27450E+00_JPRB,0.24049E+00_JPRB,0.23383E+00_JPRB,0.22480E+00_JPRB, &
+ & 0.21136E+00_JPRB,0.20583E+00_JPRB,0.21971E+00_JPRB,0.24898E+00_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.30851E+00_JPRB,0.27268E+00_JPRB,0.23896E+00_JPRB,0.23220E+00_JPRB,0.22243E+00_JPRB, &
+ & 0.20992E+00_JPRB,0.20459E+00_JPRB,0.21945E+00_JPRB,0.24850E+00_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.30578E+00_JPRB,0.27071E+00_JPRB,0.23717E+00_JPRB,0.23033E+00_JPRB,0.22018E+00_JPRB, &
+ & 0.20870E+00_JPRB,0.20353E+00_JPRB,0.21927E+00_JPRB,0.24814E+00_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.32525E+00_JPRB,0.28587E+00_JPRB,0.25583E+00_JPRB,0.25377E+00_JPRB,0.24260E+00_JPRB, &
+ & 0.22945E+00_JPRB,0.22249E+00_JPRB,0.23280E+00_JPRB,0.26422E+00_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.32339E+00_JPRB,0.28450E+00_JPRB,0.25406E+00_JPRB,0.25143E+00_JPRB,0.23950E+00_JPRB, &
+ & 0.22738E+00_JPRB,0.22044E+00_JPRB,0.23211E+00_JPRB,0.26348E+00_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.32075E+00_JPRB,0.28298E+00_JPRB,0.25200E+00_JPRB,0.24974E+00_JPRB,0.23665E+00_JPRB, &
+ & 0.22565E+00_JPRB,0.21882E+00_JPRB,0.23178E+00_JPRB,0.26317E+00_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.31838E+00_JPRB,0.28134E+00_JPRB,0.24992E+00_JPRB,0.24807E+00_JPRB,0.23442E+00_JPRB, &
+ & 0.22435E+00_JPRB,0.21780E+00_JPRB,0.23180E+00_JPRB,0.26307E+00_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.31581E+00_JPRB,0.27952E+00_JPRB,0.24774E+00_JPRB,0.24618E+00_JPRB,0.23239E+00_JPRB, &
+ & 0.22315E+00_JPRB,0.21723E+00_JPRB,0.23168E+00_JPRB,0.26269E+00_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.33335E+00_JPRB,0.29286E+00_JPRB,0.27107E+00_JPRB,0.26707E+00_JPRB,0.25627E+00_JPRB, &
+ & 0.24388E+00_JPRB,0.23516E+00_JPRB,0.24254E+00_JPRB,0.27495E+00_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.33185E+00_JPRB,0.29196E+00_JPRB,0.26927E+00_JPRB,0.26528E+00_JPRB,0.25338E+00_JPRB, &
+ & 0.24199E+00_JPRB,0.23321E+00_JPRB,0.24178E+00_JPRB,0.27452E+00_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.32960E+00_JPRB,0.29070E+00_JPRB,0.26757E+00_JPRB,0.26387E+00_JPRB,0.25062E+00_JPRB, &
+ & 0.24015E+00_JPRB,0.23158E+00_JPRB,0.24188E+00_JPRB,0.27485E+00_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.32714E+00_JPRB,0.28920E+00_JPRB,0.26543E+00_JPRB,0.26229E+00_JPRB,0.24828E+00_JPRB, &
+ & 0.23863E+00_JPRB,0.23085E+00_JPRB,0.24191E+00_JPRB,0.27476E+00_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.32443E+00_JPRB,0.28722E+00_JPRB,0.26300E+00_JPRB,0.25993E+00_JPRB,0.24627E+00_JPRB, &
+ & 0.23716E+00_JPRB,0.23011E+00_JPRB,0.24150E+00_JPRB,0.27410E+00_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.33805E+00_JPRB,0.29686E+00_JPRB,0.28577E+00_JPRB,0.27897E+00_JPRB,0.26998E+00_JPRB, &
+ & 0.25892E+00_JPRB,0.24589E+00_JPRB,0.25046E+00_JPRB,0.28292E+00_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.33717E+00_JPRB,0.29673E+00_JPRB,0.28505E+00_JPRB,0.27748E+00_JPRB,0.26727E+00_JPRB, &
+ & 0.25668E+00_JPRB,0.24439E+00_JPRB,0.24991E+00_JPRB,0.28315E+00_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.33582E+00_JPRB,0.29639E+00_JPRB,0.28414E+00_JPRB,0.27664E+00_JPRB,0.26503E+00_JPRB, &
+ & 0.25454E+00_JPRB,0.24355E+00_JPRB,0.24982E+00_JPRB,0.28339E+00_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.33418E+00_JPRB,0.29565E+00_JPRB,0.28243E+00_JPRB,0.27502E+00_JPRB,0.26319E+00_JPRB, &
+ & 0.25262E+00_JPRB,0.24314E+00_JPRB,0.24937E+00_JPRB,0.28297E+00_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.33223E+00_JPRB,0.29432E+00_JPRB,0.28036E+00_JPRB,0.27276E+00_JPRB,0.26126E+00_JPRB, &
+ & 0.25114E+00_JPRB,0.24223E+00_JPRB,0.24874E+00_JPRB,0.28224E+00_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.33811E+00_JPRB,0.29881E+00_JPRB,0.29770E+00_JPRB,0.29087E+00_JPRB,0.28271E+00_JPRB, &
+ & 0.27088E+00_JPRB,0.25606E+00_JPRB,0.25702E+00_JPRB,0.28869E+00_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.33858E+00_JPRB,0.29933E+00_JPRB,0.29817E+00_JPRB,0.28968E+00_JPRB,0.28063E+00_JPRB, &
+ & 0.26913E+00_JPRB,0.25508E+00_JPRB,0.25647E+00_JPRB,0.28886E+00_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.33853E+00_JPRB,0.29979E+00_JPRB,0.29803E+00_JPRB,0.28900E+00_JPRB,0.27895E+00_JPRB, &
+ & 0.26698E+00_JPRB,0.25454E+00_JPRB,0.25561E+00_JPRB,0.28857E+00_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.33786E+00_JPRB,0.29958E+00_JPRB,0.29705E+00_JPRB,0.28721E+00_JPRB,0.27754E+00_JPRB, &
+ & 0.26522E+00_JPRB,0.25386E+00_JPRB,0.25480E+00_JPRB,0.28812E+00_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.33672E+00_JPRB,0.29874E+00_JPRB,0.29538E+00_JPRB,0.28492E+00_JPRB,0.27593E+00_JPRB, &
+ & 0.26422E+00_JPRB,0.25288E+00_JPRB,0.25337E+00_JPRB,0.28657E+00_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.33304E+00_JPRB,0.29965E+00_JPRB,0.30451E+00_JPRB,0.30108E+00_JPRB,0.29380E+00_JPRB, &
+ & 0.28100E+00_JPRB,0.26620E+00_JPRB,0.26062E+00_JPRB,0.28923E+00_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.33493E+00_JPRB,0.30099E+00_JPRB,0.30590E+00_JPRB,0.30051E+00_JPRB,0.29241E+00_JPRB, &
+ & 0.27971E+00_JPRB,0.26553E+00_JPRB,0.25927E+00_JPRB,0.28890E+00_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.33639E+00_JPRB,0.30210E+00_JPRB,0.30672E+00_JPRB,0.29976E+00_JPRB,0.29135E+00_JPRB, &
+ & 0.27789E+00_JPRB,0.26459E+00_JPRB,0.25779E+00_JPRB,0.28847E+00_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.33691E+00_JPRB,0.30238E+00_JPRB,0.30636E+00_JPRB,0.29831E+00_JPRB,0.29055E+00_JPRB, &
+ & 0.27684E+00_JPRB,0.26372E+00_JPRB,0.25629E+00_JPRB,0.28756E+00_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.33680E+00_JPRB,0.30184E+00_JPRB,0.30474E+00_JPRB,0.29664E+00_JPRB,0.28906E+00_JPRB, &
+ & 0.27593E+00_JPRB,0.26250E+00_JPRB,0.25436E+00_JPRB,0.28576E+00_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.32265E+00_JPRB,0.29931E+00_JPRB,0.30809E+00_JPRB,0.30788E+00_JPRB,0.30155E+00_JPRB, &
+ & 0.29032E+00_JPRB,0.27398E+00_JPRB,0.25958E+00_JPRB,0.28232E+00_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.32643E+00_JPRB,0.30217E+00_JPRB,0.30992E+00_JPRB,0.30804E+00_JPRB,0.30109E+00_JPRB, &
+ & 0.28947E+00_JPRB,0.27364E+00_JPRB,0.25761E+00_JPRB,0.28165E+00_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.32903E+00_JPRB,0.30409E+00_JPRB,0.31077E+00_JPRB,0.30846E+00_JPRB,0.30095E+00_JPRB, &
+ & 0.28833E+00_JPRB,0.27259E+00_JPRB,0.25601E+00_JPRB,0.28124E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 4,10,12) = (/ &
+ & 0.33021E+00_JPRB,0.30472E+00_JPRB,0.31062E+00_JPRB,0.30777E+00_JPRB,0.30050E+00_JPRB, &
+ & 0.28725E+00_JPRB,0.27132E+00_JPRB,0.25418E+00_JPRB,0.28034E+00_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.33035E+00_JPRB,0.30379E+00_JPRB,0.30948E+00_JPRB,0.30647E+00_JPRB,0.29984E+00_JPRB, &
+ & 0.28648E+00_JPRB,0.26959E+00_JPRB,0.25216E+00_JPRB,0.27891E+00_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.31092E+00_JPRB,0.29828E+00_JPRB,0.30944E+00_JPRB,0.31067E+00_JPRB,0.30618E+00_JPRB, &
+ & 0.29698E+00_JPRB,0.27822E+00_JPRB,0.25367E+00_JPRB,0.20521E+00_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.31508E+00_JPRB,0.30179E+00_JPRB,0.31084E+00_JPRB,0.31247E+00_JPRB,0.30712E+00_JPRB, &
+ & 0.29665E+00_JPRB,0.27717E+00_JPRB,0.25137E+00_JPRB,0.20791E+00_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.31745E+00_JPRB,0.30351E+00_JPRB,0.31148E+00_JPRB,0.31329E+00_JPRB,0.30764E+00_JPRB, &
+ & 0.29592E+00_JPRB,0.27601E+00_JPRB,0.24946E+00_JPRB,0.21041E+00_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.31864E+00_JPRB,0.30345E+00_JPRB,0.31137E+00_JPRB,0.31328E+00_JPRB,0.30818E+00_JPRB, &
+ & 0.29525E+00_JPRB,0.27444E+00_JPRB,0.24795E+00_JPRB,0.21312E+00_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.31936E+00_JPRB,0.30268E+00_JPRB,0.31034E+00_JPRB,0.31260E+00_JPRB,0.30827E+00_JPRB, &
+ & 0.29465E+00_JPRB,0.27259E+00_JPRB,0.24615E+00_JPRB,0.21621E+00_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.29534E+00_JPRB,0.29381E+00_JPRB,0.30706E+00_JPRB,0.31081E+00_JPRB,0.30893E+00_JPRB, &
+ & 0.29961E+00_JPRB,0.27811E+00_JPRB,0.24533E+00_JPRB,0.16496E+00_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.29914E+00_JPRB,0.29664E+00_JPRB,0.30890E+00_JPRB,0.31347E+00_JPRB,0.31102E+00_JPRB, &
+ & 0.29958E+00_JPRB,0.27683E+00_JPRB,0.24361E+00_JPRB,0.16812E+00_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.30164E+00_JPRB,0.29790E+00_JPRB,0.30986E+00_JPRB,0.31529E+00_JPRB,0.31277E+00_JPRB, &
+ & 0.29960E+00_JPRB,0.27547E+00_JPRB,0.24230E+00_JPRB,0.17163E+00_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.30318E+00_JPRB,0.29799E+00_JPRB,0.30963E+00_JPRB,0.31596E+00_JPRB,0.31358E+00_JPRB, &
+ & 0.29964E+00_JPRB,0.27410E+00_JPRB,0.24090E+00_JPRB,0.17207E+00_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.30462E+00_JPRB,0.29774E+00_JPRB,0.30883E+00_JPRB,0.31580E+00_JPRB,0.31382E+00_JPRB, &
+ & 0.29942E+00_JPRB,0.27289E+00_JPRB,0.23940E+00_JPRB,0.17248E+00_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.27646E+00_JPRB,0.28482E+00_JPRB,0.30092E+00_JPRB,0.30845E+00_JPRB,0.30839E+00_JPRB, &
+ & 0.29721E+00_JPRB,0.27391E+00_JPRB,0.23566E+00_JPRB,0.13145E+00_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.28013E+00_JPRB,0.28703E+00_JPRB,0.30330E+00_JPRB,0.31210E+00_JPRB,0.31152E+00_JPRB, &
+ & 0.29799E+00_JPRB,0.27265E+00_JPRB,0.23501E+00_JPRB,0.13680E+00_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.28251E+00_JPRB,0.28781E+00_JPRB,0.30455E+00_JPRB,0.31430E+00_JPRB,0.31342E+00_JPRB, &
+ & 0.29883E+00_JPRB,0.27192E+00_JPRB,0.23420E+00_JPRB,0.14031E+00_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.28473E+00_JPRB,0.28806E+00_JPRB,0.30532E+00_JPRB,0.31558E+00_JPRB,0.31478E+00_JPRB, &
+ & 0.29964E+00_JPRB,0.27140E+00_JPRB,0.23324E+00_JPRB,0.14138E+00_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.28731E+00_JPRB,0.28885E+00_JPRB,0.30563E+00_JPRB,0.31603E+00_JPRB,0.31529E+00_JPRB, &
+ & 0.30003E+00_JPRB,0.27073E+00_JPRB,0.23300E+00_JPRB,0.14291E+00_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.39331E+00_JPRB,0.34536E+00_JPRB,0.29823E+00_JPRB,0.25200E+00_JPRB,0.22257E+00_JPRB, &
+ & 0.22153E+00_JPRB,0.23263E+00_JPRB,0.25940E+00_JPRB,0.28372E+00_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.38484E+00_JPRB,0.33824E+00_JPRB,0.29242E+00_JPRB,0.24772E+00_JPRB,0.21768E+00_JPRB, &
+ & 0.21972E+00_JPRB,0.23098E+00_JPRB,0.25833E+00_JPRB,0.28173E+00_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.37910E+00_JPRB,0.33360E+00_JPRB,0.28884E+00_JPRB,0.24475E+00_JPRB,0.21421E+00_JPRB, &
+ & 0.21744E+00_JPRB,0.22823E+00_JPRB,0.25633E+00_JPRB,0.27932E+00_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.37406E+00_JPRB,0.32956E+00_JPRB,0.28576E+00_JPRB,0.24212E+00_JPRB,0.21151E+00_JPRB, &
+ & 0.21463E+00_JPRB,0.22480E+00_JPRB,0.25354E+00_JPRB,0.27637E+00_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.36968E+00_JPRB,0.32602E+00_JPRB,0.28272E+00_JPRB,0.24026E+00_JPRB,0.20970E+00_JPRB, &
+ & 0.21134E+00_JPRB,0.22163E+00_JPRB,0.25081E+00_JPRB,0.27385E+00_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.41602E+00_JPRB,0.36529E+00_JPRB,0.31527E+00_JPRB,0.26672E+00_JPRB,0.24637E+00_JPRB, &
+ & 0.24718E+00_JPRB,0.25604E+00_JPRB,0.28585E+00_JPRB,0.31850E+00_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.40830E+00_JPRB,0.35891E+00_JPRB,0.31022E+00_JPRB,0.26338E+00_JPRB,0.24193E+00_JPRB, &
+ & 0.24484E+00_JPRB,0.25382E+00_JPRB,0.28396E+00_JPRB,0.31574E+00_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.40220E+00_JPRB,0.35391E+00_JPRB,0.30635E+00_JPRB,0.26042E+00_JPRB,0.23856E+00_JPRB, &
+ & 0.24224E+00_JPRB,0.25030E+00_JPRB,0.28140E+00_JPRB,0.31256E+00_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.39708E+00_JPRB,0.34976E+00_JPRB,0.30310E+00_JPRB,0.25764E+00_JPRB,0.23590E+00_JPRB, &
+ & 0.23895E+00_JPRB,0.24655E+00_JPRB,0.27840E+00_JPRB,0.30929E+00_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.39199E+00_JPRB,0.34559E+00_JPRB,0.29962E+00_JPRB,0.25559E+00_JPRB,0.23369E+00_JPRB, &
+ & 0.23517E+00_JPRB,0.24316E+00_JPRB,0.27577E+00_JPRB,0.30660E+00_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.43911E+00_JPRB,0.38551E+00_JPRB,0.33254E+00_JPRB,0.28548E+00_JPRB,0.27501E+00_JPRB, &
+ & 0.27158E+00_JPRB,0.27806E+00_JPRB,0.30961E+00_JPRB,0.34942E+00_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.43165E+00_JPRB,0.37930E+00_JPRB,0.32763E+00_JPRB,0.28158E+00_JPRB,0.27135E+00_JPRB, &
+ & 0.26881E+00_JPRB,0.27489E+00_JPRB,0.30725E+00_JPRB,0.34620E+00_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.42551E+00_JPRB,0.37419E+00_JPRB,0.32362E+00_JPRB,0.27772E+00_JPRB,0.26799E+00_JPRB, &
+ & 0.26571E+00_JPRB,0.27096E+00_JPRB,0.30422E+00_JPRB,0.34240E+00_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.42038E+00_JPRB,0.37000E+00_JPRB,0.32049E+00_JPRB,0.27494E+00_JPRB,0.26498E+00_JPRB, &
+ & 0.26183E+00_JPRB,0.26698E+00_JPRB,0.30136E+00_JPRB,0.33931E+00_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.41446E+00_JPRB,0.36533E+00_JPRB,0.31734E+00_JPRB,0.27304E+00_JPRB,0.26234E+00_JPRB, &
+ & 0.25777E+00_JPRB,0.26380E+00_JPRB,0.29913E+00_JPRB,0.33705E+00_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.46241E+00_JPRB,0.40571E+00_JPRB,0.34961E+00_JPRB,0.30954E+00_JPRB,0.30425E+00_JPRB, &
+ & 0.29507E+00_JPRB,0.29890E+00_JPRB,0.33301E+00_JPRB,0.37827E+00_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.45465E+00_JPRB,0.39923E+00_JPRB,0.34450E+00_JPRB,0.30510E+00_JPRB,0.30124E+00_JPRB, &
+ & 0.29145E+00_JPRB,0.29516E+00_JPRB,0.32984E+00_JPRB,0.37410E+00_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.44872E+00_JPRB,0.39432E+00_JPRB,0.34072E+00_JPRB,0.30104E+00_JPRB,0.29841E+00_JPRB, &
+ & 0.28758E+00_JPRB,0.29090E+00_JPRB,0.32641E+00_JPRB,0.36986E+00_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.44350E+00_JPRB,0.39014E+00_JPRB,0.33810E+00_JPRB,0.29814E+00_JPRB,0.29548E+00_JPRB, &
+ & 0.28294E+00_JPRB,0.28676E+00_JPRB,0.32342E+00_JPRB,0.36667E+00_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.43828E+00_JPRB,0.38609E+00_JPRB,0.33570E+00_JPRB,0.29627E+00_JPRB,0.29269E+00_JPRB, &
+ & 0.27870E+00_JPRB,0.28357E+00_JPRB,0.32115E+00_JPRB,0.36426E+00_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.48784E+00_JPRB,0.42784E+00_JPRB,0.36835E+00_JPRB,0.33984E+00_JPRB,0.33294E+00_JPRB, &
+ & 0.31846E+00_JPRB,0.32126E+00_JPRB,0.35651E+00_JPRB,0.40621E+00_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.48030E+00_JPRB,0.42153E+00_JPRB,0.36340E+00_JPRB,0.33519E+00_JPRB,0.32973E+00_JPRB, &
+ & 0.31380E+00_JPRB,0.31683E+00_JPRB,0.35311E+00_JPRB,0.40187E+00_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.47411E+00_JPRB,0.41636E+00_JPRB,0.35974E+00_JPRB,0.33136E+00_JPRB,0.32664E+00_JPRB, &
+ & 0.30892E+00_JPRB,0.31220E+00_JPRB,0.34964E+00_JPRB,0.39763E+00_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.46883E+00_JPRB,0.41227E+00_JPRB,0.35745E+00_JPRB,0.32776E+00_JPRB,0.32317E+00_JPRB, &
+ & 0.30393E+00_JPRB,0.30777E+00_JPRB,0.34651E+00_JPRB,0.39440E+00_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.46388E+00_JPRB,0.40844E+00_JPRB,0.35543E+00_JPRB,0.32520E+00_JPRB,0.31964E+00_JPRB, &
+ & 0.29971E+00_JPRB,0.30439E+00_JPRB,0.34429E+00_JPRB,0.39205E+00_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.51535E+00_JPRB,0.45180E+00_JPRB,0.39162E+00_JPRB,0.37322E+00_JPRB,0.36050E+00_JPRB, &
+ & 0.34300E+00_JPRB,0.34505E+00_JPRB,0.38137E+00_JPRB,0.43538E+00_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.50781E+00_JPRB,0.44545E+00_JPRB,0.38586E+00_JPRB,0.36868E+00_JPRB,0.35573E+00_JPRB, &
+ & 0.33760E+00_JPRB,0.34025E+00_JPRB,0.37783E+00_JPRB,0.43095E+00_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.50139E+00_JPRB,0.44011E+00_JPRB,0.38148E+00_JPRB,0.36480E+00_JPRB,0.35183E+00_JPRB, &
+ & 0.33217E+00_JPRB,0.33546E+00_JPRB,0.37434E+00_JPRB,0.42674E+00_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.49657E+00_JPRB,0.43636E+00_JPRB,0.37891E+00_JPRB,0.36116E+00_JPRB,0.34800E+00_JPRB, &
+ & 0.32704E+00_JPRB,0.33102E+00_JPRB,0.37152E+00_JPRB,0.42385E+00_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.49171E+00_JPRB,0.43263E+00_JPRB,0.37693E+00_JPRB,0.35827E+00_JPRB,0.34376E+00_JPRB, &
+ & 0.32320E+00_JPRB,0.32782E+00_JPRB,0.36976E+00_JPRB,0.42188E+00_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.54162E+00_JPRB,0.47464E+00_JPRB,0.41834E+00_JPRB,0.40782E+00_JPRB,0.38721E+00_JPRB, &
+ & 0.36824E+00_JPRB,0.37067E+00_JPRB,0.40670E+00_JPRB,0.46460E+00_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.53535E+00_JPRB,0.46937E+00_JPRB,0.41220E+00_JPRB,0.40296E+00_JPRB,0.38145E+00_JPRB, &
+ & 0.36278E+00_JPRB,0.36581E+00_JPRB,0.40309E+00_JPRB,0.46013E+00_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.52914E+00_JPRB,0.46429E+00_JPRB,0.40710E+00_JPRB,0.39788E+00_JPRB,0.37673E+00_JPRB, &
+ & 0.35819E+00_JPRB,0.36078E+00_JPRB,0.40008E+00_JPRB,0.45678E+00_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.52440E+00_JPRB,0.46050E+00_JPRB,0.40384E+00_JPRB,0.39374E+00_JPRB,0.37204E+00_JPRB, &
+ & 0.35371E+00_JPRB,0.35616E+00_JPRB,0.39775E+00_JPRB,0.45424E+00_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.52017E+00_JPRB,0.45722E+00_JPRB,0.40132E+00_JPRB,0.39030E+00_JPRB,0.36733E+00_JPRB, &
+ & 0.34991E+00_JPRB,0.35252E+00_JPRB,0.39600E+00_JPRB,0.45213E+00_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.56560E+00_JPRB,0.49547E+00_JPRB,0.44792E+00_JPRB,0.43980E+00_JPRB,0.41568E+00_JPRB, &
+ & 0.39571E+00_JPRB,0.39516E+00_JPRB,0.42687E+00_JPRB,0.48767E+00_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.55986E+00_JPRB,0.49068E+00_JPRB,0.44130E+00_JPRB,0.43344E+00_JPRB,0.40921E+00_JPRB, &
+ & 0.39033E+00_JPRB,0.39006E+00_JPRB,0.42429E+00_JPRB,0.48458E+00_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.55439E+00_JPRB,0.48622E+00_JPRB,0.43604E+00_JPRB,0.42727E+00_JPRB,0.40340E+00_JPRB, &
+ & 0.38637E+00_JPRB,0.38517E+00_JPRB,0.42255E+00_JPRB,0.48243E+00_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.55085E+00_JPRB,0.48344E+00_JPRB,0.43251E+00_JPRB,0.42285E+00_JPRB,0.39791E+00_JPRB, &
+ & 0.38219E+00_JPRB,0.38096E+00_JPRB,0.42076E+00_JPRB,0.48039E+00_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.54722E+00_JPRB,0.48060E+00_JPRB,0.42969E+00_JPRB,0.41964E+00_JPRB,0.39283E+00_JPRB, &
+ & 0.37840E+00_JPRB,0.37699E+00_JPRB,0.41955E+00_JPRB,0.47894E+00_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.58672E+00_JPRB,0.51388E+00_JPRB,0.47909E+00_JPRB,0.46769E+00_JPRB,0.44479E+00_JPRB, &
+ & 0.42421E+00_JPRB,0.41694E+00_JPRB,0.44339E+00_JPRB,0.50662E+00_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.58159E+00_JPRB,0.50951E+00_JPRB,0.47213E+00_JPRB,0.46028E+00_JPRB,0.43736E+00_JPRB, &
+ & 0.41895E+00_JPRB,0.41246E+00_JPRB,0.44257E+00_JPRB,0.50550E+00_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.57736E+00_JPRB,0.50610E+00_JPRB,0.46657E+00_JPRB,0.45431E+00_JPRB,0.43100E+00_JPRB, &
+ & 0.41543E+00_JPRB,0.40868E+00_JPRB,0.44206E+00_JPRB,0.50480E+00_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.57459E+00_JPRB,0.50394E+00_JPRB,0.46330E+00_JPRB,0.44994E+00_JPRB,0.42562E+00_JPRB, &
+ & 0.41143E+00_JPRB,0.40432E+00_JPRB,0.44089E+00_JPRB,0.50333E+00_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.57136E+00_JPRB,0.50148E+00_JPRB,0.46136E+00_JPRB,0.44665E+00_JPRB,0.42115E+00_JPRB, &
+ & 0.40792E+00_JPRB,0.40001E+00_JPRB,0.43966E+00_JPRB,0.50186E+00_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.60279E+00_JPRB,0.52914E+00_JPRB,0.50725E+00_JPRB,0.49385E+00_JPRB,0.47296E+00_JPRB, &
+ & 0.45056E+00_JPRB,0.43650E+00_JPRB,0.45649E+00_JPRB,0.52069E+00_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.59826E+00_JPRB,0.52452E+00_JPRB,0.50048E+00_JPRB,0.48635E+00_JPRB,0.46511E+00_JPRB, &
+ & 0.44618E+00_JPRB,0.43278E+00_JPRB,0.45737E+00_JPRB,0.52170E+00_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.59590E+00_JPRB,0.52228E+00_JPRB,0.49610E+00_JPRB,0.47997E+00_JPRB,0.45903E+00_JPRB, &
+ & 0.44309E+00_JPRB,0.42962E+00_JPRB,0.45759E+00_JPRB,0.52208E+00_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.59454E+00_JPRB,0.52120E+00_JPRB,0.49388E+00_JPRB,0.47548E+00_JPRB,0.45447E+00_JPRB, &
+ & 0.44006E+00_JPRB,0.42512E+00_JPRB,0.45631E+00_JPRB,0.52061E+00_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.59357E+00_JPRB,0.52070E+00_JPRB,0.49246E+00_JPRB,0.47250E+00_JPRB,0.45028E+00_JPRB, &
+ & 0.43610E+00_JPRB,0.42114E+00_JPRB,0.45529E+00_JPRB,0.51951E+00_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.60887E+00_JPRB,0.53839E+00_JPRB,0.52807E+00_JPRB,0.51587E+00_JPRB,0.49623E+00_JPRB, &
+ & 0.47362E+00_JPRB,0.45440E+00_JPRB,0.46645E+00_JPRB,0.53001E+00_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.60756E+00_JPRB,0.53578E+00_JPRB,0.52411E+00_JPRB,0.50806E+00_JPRB,0.48992E+00_JPRB, &
+ & 0.47089E+00_JPRB,0.45204E+00_JPRB,0.46808E+00_JPRB,0.53215E+00_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.60793E+00_JPRB,0.53524E+00_JPRB,0.52214E+00_JPRB,0.50280E+00_JPRB,0.48540E+00_JPRB, &
+ & 0.46881E+00_JPRB,0.44770E+00_JPRB,0.46764E+00_JPRB,0.53195E+00_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.60970E+00_JPRB,0.53618E+00_JPRB,0.52106E+00_JPRB,0.49960E+00_JPRB,0.48160E+00_JPRB, &
+ & 0.46481E+00_JPRB,0.44371E+00_JPRB,0.46667E+00_JPRB,0.53096E+00_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.61038E+00_JPRB,0.53650E+00_JPRB,0.52014E+00_JPRB,0.49804E+00_JPRB,0.47818E+00_JPRB, &
+ & 0.45984E+00_JPRB,0.44017E+00_JPRB,0.46579E+00_JPRB,0.53008E+00_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.60957E+00_JPRB,0.54609E+00_JPRB,0.54565E+00_JPRB,0.53521E+00_JPRB,0.51779E+00_JPRB, &
+ & 0.49593E+00_JPRB,0.47189E+00_JPRB,0.47309E+00_JPRB,0.46983E+00_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.61214E+00_JPRB,0.54625E+00_JPRB,0.54367E+00_JPRB,0.52921E+00_JPRB,0.51339E+00_JPRB, &
+ & 0.49443E+00_JPRB,0.46946E+00_JPRB,0.47371E+00_JPRB,0.47545E+00_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.61642E+00_JPRB,0.54787E+00_JPRB,0.54269E+00_JPRB,0.52579E+00_JPRB,0.50981E+00_JPRB, &
+ & 0.49118E+00_JPRB,0.46605E+00_JPRB,0.47265E+00_JPRB,0.47706E+00_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.62028E+00_JPRB,0.54980E+00_JPRB,0.54303E+00_JPRB,0.52440E+00_JPRB,0.50697E+00_JPRB, &
+ & 0.48619E+00_JPRB,0.46182E+00_JPRB,0.47123E+00_JPRB,0.48084E+00_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.62175E+00_JPRB,0.55026E+00_JPRB,0.54305E+00_JPRB,0.52373E+00_JPRB,0.50407E+00_JPRB, &
+ & 0.48153E+00_JPRB,0.45738E+00_JPRB,0.46998E+00_JPRB,0.48415E+00_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.60459E+00_JPRB,0.55304E+00_JPRB,0.55845E+00_JPRB,0.55195E+00_JPRB,0.53769E+00_JPRB, &
+ & 0.51606E+00_JPRB,0.48661E+00_JPRB,0.47383E+00_JPRB,0.40484E+00_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.61134E+00_JPRB,0.55569E+00_JPRB,0.55809E+00_JPRB,0.54885E+00_JPRB,0.53426E+00_JPRB, &
+ & 0.51450E+00_JPRB,0.48473E+00_JPRB,0.47289E+00_JPRB,0.40823E+00_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.61890E+00_JPRB,0.55963E+00_JPRB,0.55924E+00_JPRB,0.54802E+00_JPRB,0.53230E+00_JPRB, &
+ & 0.51039E+00_JPRB,0.48075E+00_JPRB,0.47078E+00_JPRB,0.41355E+00_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.62388E+00_JPRB,0.56213E+00_JPRB,0.56099E+00_JPRB,0.54740E+00_JPRB,0.52999E+00_JPRB, &
+ & 0.50582E+00_JPRB,0.47603E+00_JPRB,0.46901E+00_JPRB,0.41977E+00_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.62688E+00_JPRB,0.56314E+00_JPRB,0.56152E+00_JPRB,0.54685E+00_JPRB,0.52723E+00_JPRB, &
+ & 0.50138E+00_JPRB,0.47115E+00_JPRB,0.46700E+00_JPRB,0.42405E+00_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.52445E+00_JPRB,0.46003E+00_JPRB,0.39566E+00_JPRB,0.33139E+00_JPRB,0.26995E+00_JPRB, &
+ & 0.25837E+00_JPRB,0.28528E+00_JPRB,0.32819E+00_JPRB,0.35568E+00_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.51513E+00_JPRB,0.45183E+00_JPRB,0.38858E+00_JPRB,0.32553E+00_JPRB,0.26784E+00_JPRB, &
+ & 0.25515E+00_JPRB,0.28229E+00_JPRB,0.32456E+00_JPRB,0.35149E+00_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.50548E+00_JPRB,0.44334E+00_JPRB,0.38125E+00_JPRB,0.32054E+00_JPRB,0.26590E+00_JPRB, &
+ & 0.25305E+00_JPRB,0.28136E+00_JPRB,0.32218E+00_JPRB,0.34858E+00_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.49563E+00_JPRB,0.43466E+00_JPRB,0.37374E+00_JPRB,0.31559E+00_JPRB,0.26350E+00_JPRB, &
+ & 0.25115E+00_JPRB,0.28088E+00_JPRB,0.32077E+00_JPRB,0.34651E+00_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.48636E+00_JPRB,0.42650E+00_JPRB,0.36724E+00_JPRB,0.31119E+00_JPRB,0.26146E+00_JPRB, &
+ & 0.24908E+00_JPRB,0.27907E+00_JPRB,0.31920E+00_JPRB,0.34392E+00_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.56575E+00_JPRB,0.49609E+00_JPRB,0.42647E+00_JPRB,0.35691E+00_JPRB,0.29788E+00_JPRB, &
+ & 0.29937E+00_JPRB,0.33584E+00_JPRB,0.38701E+00_JPRB,0.42822E+00_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.55481E+00_JPRB,0.48648E+00_JPRB,0.41819E+00_JPRB,0.35023E+00_JPRB,0.29393E+00_JPRB, &
+ & 0.29578E+00_JPRB,0.33190E+00_JPRB,0.38233E+00_JPRB,0.42282E+00_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.54468E+00_JPRB,0.47756E+00_JPRB,0.41048E+00_JPRB,0.34498E+00_JPRB,0.29076E+00_JPRB, &
+ & 0.29330E+00_JPRB,0.33000E+00_JPRB,0.37899E+00_JPRB,0.41892E+00_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.53444E+00_JPRB,0.46857E+00_JPRB,0.40281E+00_JPRB,0.34010E+00_JPRB,0.28772E+00_JPRB, &
+ & 0.29117E+00_JPRB,0.32899E+00_JPRB,0.37674E+00_JPRB,0.41581E+00_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.52472E+00_JPRB,0.46000E+00_JPRB,0.39601E+00_JPRB,0.33543E+00_JPRB,0.28544E+00_JPRB, &
+ & 0.28841E+00_JPRB,0.32728E+00_JPRB,0.37488E+00_JPRB,0.41300E+00_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.61401E+00_JPRB,0.53826E+00_JPRB,0.46254E+00_JPRB,0.38687E+00_JPRB,0.33653E+00_JPRB, &
+ & 0.34874E+00_JPRB,0.39278E+00_JPRB,0.45331E+00_JPRB,0.51178E+00_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.60181E+00_JPRB,0.52754E+00_JPRB,0.45329E+00_JPRB,0.37917E+00_JPRB,0.33018E+00_JPRB, &
+ & 0.34432E+00_JPRB,0.38762E+00_JPRB,0.44735E+00_JPRB,0.50487E+00_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.59018E+00_JPRB,0.51732E+00_JPRB,0.44448E+00_JPRB,0.37278E+00_JPRB,0.32516E+00_JPRB, &
+ & 0.34086E+00_JPRB,0.38493E+00_JPRB,0.44336E+00_JPRB,0.50014E+00_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.57893E+00_JPRB,0.50743E+00_JPRB,0.43595E+00_JPRB,0.36714E+00_JPRB,0.32113E+00_JPRB, &
+ & 0.33824E+00_JPRB,0.38315E+00_JPRB,0.44016E+00_JPRB,0.49598E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 3,14) = (/ &
+ & 0.56842E+00_JPRB,0.49818E+00_JPRB,0.42822E+00_JPRB,0.36203E+00_JPRB,0.31748E+00_JPRB, &
+ & 0.33494E+00_JPRB,0.38145E+00_JPRB,0.43774E+00_JPRB,0.49238E+00_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.66683E+00_JPRB,0.58444E+00_JPRB,0.50208E+00_JPRB,0.41977E+00_JPRB,0.38494E+00_JPRB, &
+ & 0.40485E+00_JPRB,0.45417E+00_JPRB,0.52508E+00_JPRB,0.59839E+00_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.65354E+00_JPRB,0.57275E+00_JPRB,0.49199E+00_JPRB,0.41128E+00_JPRB,0.37591E+00_JPRB, &
+ & 0.39916E+00_JPRB,0.44835E+00_JPRB,0.51820E+00_JPRB,0.59043E+00_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.64071E+00_JPRB,0.56148E+00_JPRB,0.48227E+00_JPRB,0.40388E+00_JPRB,0.36879E+00_JPRB, &
+ & 0.39404E+00_JPRB,0.44465E+00_JPRB,0.51320E+00_JPRB,0.58464E+00_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.62844E+00_JPRB,0.55070E+00_JPRB,0.47297E+00_JPRB,0.39753E+00_JPRB,0.36329E+00_JPRB, &
+ & 0.39017E+00_JPRB,0.44183E+00_JPRB,0.50881E+00_JPRB,0.57888E+00_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.61748E+00_JPRB,0.54106E+00_JPRB,0.46467E+00_JPRB,0.39213E+00_JPRB,0.35832E+00_JPRB, &
+ & 0.38631E+00_JPRB,0.43926E+00_JPRB,0.50522E+00_JPRB,0.57403E+00_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.72260E+00_JPRB,0.63317E+00_JPRB,0.54375E+00_JPRB,0.45913E+00_JPRB,0.43732E+00_JPRB, &
+ & 0.46505E+00_JPRB,0.51783E+00_JPRB,0.59954E+00_JPRB,0.68564E+00_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.70858E+00_JPRB,0.62085E+00_JPRB,0.53314E+00_JPRB,0.44897E+00_JPRB,0.42823E+00_JPRB, &
+ & 0.45720E+00_JPRB,0.51115E+00_JPRB,0.59162E+00_JPRB,0.67653E+00_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.69539E+00_JPRB,0.60926E+00_JPRB,0.52314E+00_JPRB,0.43994E+00_JPRB,0.42099E+00_JPRB, &
+ & 0.45017E+00_JPRB,0.50656E+00_JPRB,0.58542E+00_JPRB,0.66941E+00_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.68235E+00_JPRB,0.59780E+00_JPRB,0.51326E+00_JPRB,0.43281E+00_JPRB,0.41557E+00_JPRB, &
+ & 0.44468E+00_JPRB,0.50258E+00_JPRB,0.57996E+00_JPRB,0.66206E+00_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.67018E+00_JPRB,0.58711E+00_JPRB,0.50404E+00_JPRB,0.42628E+00_JPRB,0.41131E+00_JPRB, &
+ & 0.43975E+00_JPRB,0.49863E+00_JPRB,0.57477E+00_JPRB,0.65556E+00_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.77964E+00_JPRB,0.68298E+00_JPRB,0.58633E+00_JPRB,0.50766E+00_JPRB,0.49641E+00_JPRB, &
+ & 0.52605E+00_JPRB,0.58161E+00_JPRB,0.67425E+00_JPRB,0.77212E+00_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.76589E+00_JPRB,0.67092E+00_JPRB,0.57596E+00_JPRB,0.49531E+00_JPRB,0.48834E+00_JPRB, &
+ & 0.51573E+00_JPRB,0.57361E+00_JPRB,0.66493E+00_JPRB,0.76124E+00_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.75251E+00_JPRB,0.65917E+00_JPRB,0.56583E+00_JPRB,0.48459E+00_JPRB,0.48115E+00_JPRB, &
+ & 0.50704E+00_JPRB,0.56757E+00_JPRB,0.65686E+00_JPRB,0.75182E+00_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.73905E+00_JPRB,0.64728E+00_JPRB,0.55554E+00_JPRB,0.47565E+00_JPRB,0.47497E+00_JPRB, &
+ & 0.50004E+00_JPRB,0.56191E+00_JPRB,0.64957E+00_JPRB,0.74243E+00_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.72636E+00_JPRB,0.63608E+00_JPRB,0.54581E+00_JPRB,0.46758E+00_JPRB,0.47009E+00_JPRB, &
+ & 0.49349E+00_JPRB,0.55635E+00_JPRB,0.64252E+00_JPRB,0.73397E+00_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.84113E+00_JPRB,0.73668E+00_JPRB,0.63225E+00_JPRB,0.56459E+00_JPRB,0.56168E+00_JPRB, &
+ & 0.58736E+00_JPRB,0.64476E+00_JPRB,0.74759E+00_JPRB,0.85655E+00_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.82630E+00_JPRB,0.72365E+00_JPRB,0.62103E+00_JPRB,0.55091E+00_JPRB,0.55367E+00_JPRB, &
+ & 0.57467E+00_JPRB,0.63457E+00_JPRB,0.73605E+00_JPRB,0.84323E+00_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.81279E+00_JPRB,0.71173E+00_JPRB,0.61068E+00_JPRB,0.53944E+00_JPRB,0.54564E+00_JPRB, &
+ & 0.56363E+00_JPRB,0.62610E+00_JPRB,0.72557E+00_JPRB,0.83073E+00_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.79922E+00_JPRB,0.69978E+00_JPRB,0.60035E+00_JPRB,0.52974E+00_JPRB,0.53833E+00_JPRB, &
+ & 0.55444E+00_JPRB,0.61857E+00_JPRB,0.71625E+00_JPRB,0.81942E+00_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.78598E+00_JPRB,0.68814E+00_JPRB,0.59031E+00_JPRB,0.52130E+00_JPRB,0.53249E+00_JPRB, &
+ & 0.54592E+00_JPRB,0.61225E+00_JPRB,0.70842E+00_JPRB,0.80994E+00_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.90865E+00_JPRB,0.79552E+00_JPRB,0.68301E+00_JPRB,0.62894E+00_JPRB,0.62980E+00_JPRB, &
+ & 0.64956E+00_JPRB,0.70917E+00_JPRB,0.82179E+00_JPRB,0.94167E+00_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.89327E+00_JPRB,0.78202E+00_JPRB,0.67089E+00_JPRB,0.61713E+00_JPRB,0.62095E+00_JPRB, &
+ & 0.63402E+00_JPRB,0.69617E+00_JPRB,0.80717E+00_JPRB,0.92484E+00_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.87903E+00_JPRB,0.76952E+00_JPRB,0.66001E+00_JPRB,0.60628E+00_JPRB,0.61235E+00_JPRB, &
+ & 0.62019E+00_JPRB,0.68531E+00_JPRB,0.79440E+00_JPRB,0.90974E+00_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.86460E+00_JPRB,0.75687E+00_JPRB,0.64914E+00_JPRB,0.59649E+00_JPRB,0.60349E+00_JPRB, &
+ & 0.60828E+00_JPRB,0.67580E+00_JPRB,0.78318E+00_JPRB,0.89639E+00_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.85091E+00_JPRB,0.74488E+00_JPRB,0.63886E+00_JPRB,0.58665E+00_JPRB,0.59566E+00_JPRB, &
+ & 0.59754E+00_JPRB,0.66827E+00_JPRB,0.77422E+00_JPRB,0.88585E+00_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.98149E+00_JPRB,0.85912E+00_JPRB,0.74373E+00_JPRB,0.70295E+00_JPRB,0.70214E+00_JPRB, &
+ & 0.71285E+00_JPRB,0.77237E+00_JPRB,0.89352E+00_JPRB,0.10239E+01_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.96640E+00_JPRB,0.84589E+00_JPRB,0.73081E+00_JPRB,0.69152E+00_JPRB,0.69170E+00_JPRB, &
+ & 0.69439E+00_JPRB,0.75605E+00_JPRB,0.87558E+00_JPRB,0.10032E+01_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.95188E+00_JPRB,0.83316E+00_JPRB,0.71892E+00_JPRB,0.68080E+00_JPRB,0.68028E+00_JPRB, &
+ & 0.67751E+00_JPRB,0.74271E+00_JPRB,0.86004E+00_JPRB,0.98493E+00_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.93737E+00_JPRB,0.82045E+00_JPRB,0.70700E+00_JPRB,0.67076E+00_JPRB,0.66785E+00_JPRB, &
+ & 0.66265E+00_JPRB,0.73184E+00_JPRB,0.84775E+00_JPRB,0.97055E+00_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.92346E+00_JPRB,0.80828E+00_JPRB,0.69536E+00_JPRB,0.66047E+00_JPRB,0.65652E+00_JPRB, &
+ & 0.65000E+00_JPRB,0.72388E+00_JPRB,0.83863E+00_JPRB,0.95986E+00_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.10577E+01_JPRB,0.92576E+00_JPRB,0.81364E+00_JPRB,0.78190E+00_JPRB,0.77617E+00_JPRB, &
+ & 0.77603E+00_JPRB,0.83269E+00_JPRB,0.96109E+00_JPRB,0.11008E+01_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.10450E+01_JPRB,0.91463E+00_JPRB,0.80097E+00_JPRB,0.77046E+00_JPRB,0.76182E+00_JPRB, &
+ & 0.75411E+00_JPRB,0.81384E+00_JPRB,0.94032E+00_JPRB,0.10769E+01_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.10312E+01_JPRB,0.90248E+00_JPRB,0.78812E+00_JPRB,0.75969E+00_JPRB,0.74632E+00_JPRB, &
+ & 0.73436E+00_JPRB,0.79822E+00_JPRB,0.92300E+00_JPRB,0.10571E+01_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.10164E+01_JPRB,0.88956E+00_JPRB,0.77444E+00_JPRB,0.74952E+00_JPRB,0.73099E+00_JPRB, &
+ & 0.71729E+00_JPRB,0.78702E+00_JPRB,0.91062E+00_JPRB,0.10426E+01_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.10010E+01_JPRB,0.87610E+00_JPRB,0.76045E+00_JPRB,0.73747E+00_JPRB,0.71669E+00_JPRB, &
+ & 0.70419E+00_JPRB,0.77819E+00_JPRB,0.90060E+00_JPRB,0.10309E+01_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.11332E+01_JPRB,0.99169E+00_JPRB,0.88520E+00_JPRB,0.85938E+00_JPRB,0.84171E+00_JPRB, &
+ & 0.82777E+00_JPRB,0.88045E+00_JPRB,0.10119E+01_JPRB,0.11581E+01_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.11221E+01_JPRB,0.98196E+00_JPRB,0.87210E+00_JPRB,0.84745E+00_JPRB,0.82287E+00_JPRB, &
+ & 0.80383E+00_JPRB,0.86097E+00_JPRB,0.99198E+00_JPRB,0.11355E+01_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.11079E+01_JPRB,0.96953E+00_JPRB,0.85745E+00_JPRB,0.83492E+00_JPRB,0.80465E+00_JPRB, &
+ & 0.78293E+00_JPRB,0.84710E+00_JPRB,0.97731E+00_JPRB,0.11185E+01_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.10888E+01_JPRB,0.95287E+00_JPRB,0.84018E+00_JPRB,0.82112E+00_JPRB,0.78666E+00_JPRB, &
+ & 0.76752E+00_JPRB,0.83583E+00_JPRB,0.96514E+00_JPRB,0.11044E+01_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.10701E+01_JPRB,0.93668E+00_JPRB,0.82311E+00_JPRB,0.80490E+00_JPRB,0.77024E+00_JPRB, &
+ & 0.75616E+00_JPRB,0.82679E+00_JPRB,0.95569E+00_JPRB,0.10935E+01_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.12101E+01_JPRB,0.10589E+01_JPRB,0.96254E+00_JPRB,0.93478E+00_JPRB,0.90424E+00_JPRB, &
+ & 0.88111E+00_JPRB,0.92612E+00_JPRB,0.10566E+01_JPRB,0.12084E+01_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.11952E+01_JPRB,0.10459E+01_JPRB,0.94639E+00_JPRB,0.91979E+00_JPRB,0.88299E+00_JPRB, &
+ & 0.85667E+00_JPRB,0.90737E+00_JPRB,0.10393E+01_JPRB,0.11885E+01_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.11758E+01_JPRB,0.10290E+01_JPRB,0.92827E+00_JPRB,0.90412E+00_JPRB,0.86234E+00_JPRB, &
+ & 0.83719E+00_JPRB,0.89320E+00_JPRB,0.10260E+01_JPRB,0.11732E+01_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.11552E+01_JPRB,0.10111E+01_JPRB,0.90821E+00_JPRB,0.88659E+00_JPRB,0.84346E+00_JPRB, &
+ & 0.82327E+00_JPRB,0.88324E+00_JPRB,0.10165E+01_JPRB,0.11624E+01_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.11370E+01_JPRB,0.99527E+00_JPRB,0.88941E+00_JPRB,0.86803E+00_JPRB,0.82686E+00_JPRB, &
+ & 0.81098E+00_JPRB,0.87502E+00_JPRB,0.10085E+01_JPRB,0.11531E+01_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.12761E+01_JPRB,0.11169E+01_JPRB,0.10366E+01_JPRB,0.10056E+01_JPRB,0.96619E+00_JPRB, &
+ & 0.93741E+00_JPRB,0.96971E+00_JPRB,0.10971E+01_JPRB,0.12455E+01_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.12590E+01_JPRB,0.11018E+01_JPRB,0.10193E+01_JPRB,0.98827E+00_JPRB,0.94401E+00_JPRB, &
+ & 0.91331E+00_JPRB,0.95200E+00_JPRB,0.10824E+01_JPRB,0.12321E+01_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.12382E+01_JPRB,0.10836E+01_JPRB,0.99864E+00_JPRB,0.96922E+00_JPRB,0.92237E+00_JPRB, &
+ & 0.89570E+00_JPRB,0.94013E+00_JPRB,0.10732E+01_JPRB,0.12212E+01_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.12192E+01_JPRB,0.10671E+01_JPRB,0.97718E+00_JPRB,0.94975E+00_JPRB,0.90316E+00_JPRB, &
+ & 0.88110E+00_JPRB,0.93100E+00_JPRB,0.10658E+01_JPRB,0.12124E+01_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.12013E+01_JPRB,0.10515E+01_JPRB,0.95818E+00_JPRB,0.93022E+00_JPRB,0.88690E+00_JPRB, &
+ & 0.86844E+00_JPRB,0.92401E+00_JPRB,0.10605E+01_JPRB,0.12064E+01_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.70834E+00_JPRB,0.62203E+00_JPRB,0.53582E+00_JPRB,0.44981E+00_JPRB,0.36430E+00_JPRB, &
+ & 0.30456E+00_JPRB,0.33772E+00_JPRB,0.39113E+00_JPRB,0.42417E+00_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.69132E+00_JPRB,0.60682E+00_JPRB,0.52239E+00_JPRB,0.43815E+00_JPRB,0.35442E+00_JPRB, &
+ & 0.29618E+00_JPRB,0.32847E+00_JPRB,0.37897E+00_JPRB,0.41053E+00_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.67551E+00_JPRB,0.59273E+00_JPRB,0.51002E+00_JPRB,0.42746E+00_JPRB,0.34540E+00_JPRB, &
+ & 0.29170E+00_JPRB,0.32190E+00_JPRB,0.37054E+00_JPRB,0.40056E+00_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.65954E+00_JPRB,0.57855E+00_JPRB,0.49762E+00_JPRB,0.41681E+00_JPRB,0.33774E+00_JPRB, &
+ & 0.29058E+00_JPRB,0.31932E+00_JPRB,0.36553E+00_JPRB,0.39416E+00_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.64426E+00_JPRB,0.56502E+00_JPRB,0.48582E+00_JPRB,0.40671E+00_JPRB,0.33237E+00_JPRB, &
+ & 0.29156E+00_JPRB,0.32280E+00_JPRB,0.36526E+00_JPRB,0.39257E+00_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.79278E+00_JPRB,0.69566E+00_JPRB,0.59863E+00_JPRB,0.50180E+00_JPRB,0.40547E+00_JPRB, &
+ & 0.36074E+00_JPRB,0.40858E+00_JPRB,0.47363E+00_JPRB,0.52463E+00_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.77384E+00_JPRB,0.67879E+00_JPRB,0.58381E+00_JPRB,0.48896E+00_JPRB,0.39453E+00_JPRB, &
+ & 0.34912E+00_JPRB,0.39677E+00_JPRB,0.45884E+00_JPRB,0.50797E+00_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.75601E+00_JPRB,0.66296E+00_JPRB,0.56995E+00_JPRB,0.47701E+00_JPRB,0.38437E+00_JPRB, &
+ & 0.34005E+00_JPRB,0.38826E+00_JPRB,0.44800E+00_JPRB,0.49524E+00_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.73809E+00_JPRB,0.64708E+00_JPRB,0.55610E+00_JPRB,0.46517E+00_JPRB,0.37616E+00_JPRB, &
+ & 0.33560E+00_JPRB,0.38277E+00_JPRB,0.44095E+00_JPRB,0.48660E+00_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.72001E+00_JPRB,0.63111E+00_JPRB,0.54222E+00_JPRB,0.45336E+00_JPRB,0.36992E+00_JPRB, &
+ & 0.33536E+00_JPRB,0.38227E+00_JPRB,0.43734E+00_JPRB,0.48144E+00_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.88640E+00_JPRB,0.77731E+00_JPRB,0.66826E+00_JPRB,0.55931E+00_JPRB,0.45077E+00_JPRB, &
+ & 0.42993E+00_JPRB,0.49594E+00_JPRB,0.57510E+00_JPRB,0.65079E+00_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.86545E+00_JPRB,0.75870E+00_JPRB,0.65198E+00_JPRB,0.54530E+00_JPRB,0.43919E+00_JPRB, &
+ & 0.41467E+00_JPRB,0.48152E+00_JPRB,0.55764E+00_JPRB,0.63093E+00_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.84484E+00_JPRB,0.74046E+00_JPRB,0.63609E+00_JPRB,0.53174E+00_JPRB,0.42841E+00_JPRB, &
+ & 0.40263E+00_JPRB,0.47018E+00_JPRB,0.54358E+00_JPRB,0.61450E+00_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.82484E+00_JPRB,0.72279E+00_JPRB,0.62074E+00_JPRB,0.51870E+00_JPRB,0.41933E+00_JPRB, &
+ & 0.39440E+00_JPRB,0.46214E+00_JPRB,0.53355E+00_JPRB,0.60235E+00_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.80403E+00_JPRB,0.70444E+00_JPRB,0.60484E+00_JPRB,0.50526E+00_JPRB,0.41249E+00_JPRB, &
+ & 0.39177E+00_JPRB,0.45674E+00_JPRB,0.52614E+00_JPRB,0.59324E+00_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.98775E+00_JPRB,0.86568E+00_JPRB,0.74362E+00_JPRB,0.62157E+00_JPRB,0.50893E+00_JPRB, &
+ & 0.51227E+00_JPRB,0.60104E+00_JPRB,0.69710E+00_JPRB,0.79722E+00_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.96448E+00_JPRB,0.84510E+00_JPRB,0.72572E+00_JPRB,0.60634E+00_JPRB,0.49496E+00_JPRB, &
+ & 0.49365E+00_JPRB,0.58337E+00_JPRB,0.67615E+00_JPRB,0.77326E+00_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.94121E+00_JPRB,0.82456E+00_JPRB,0.70790E+00_JPRB,0.59124E+00_JPRB,0.48214E+00_JPRB, &
+ & 0.47977E+00_JPRB,0.56920E+00_JPRB,0.65880E+00_JPRB,0.75281E+00_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.91776E+00_JPRB,0.80389E+00_JPRB,0.69002E+00_JPRB,0.57613E+00_JPRB,0.47050E+00_JPRB, &
+ & 0.47009E+00_JPRB,0.55863E+00_JPRB,0.64595E+00_JPRB,0.73761E+00_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.89560E+00_JPRB,0.78437E+00_JPRB,0.67314E+00_JPRB,0.56190E+00_JPRB,0.46260E+00_JPRB, &
+ & 0.46419E+00_JPRB,0.55009E+00_JPRB,0.63560E+00_JPRB,0.72526E+00_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.10958E+01_JPRB,0.95999E+00_JPRB,0.82419E+00_JPRB,0.68839E+00_JPRB,0.58904E+00_JPRB, &
+ & 0.60909E+00_JPRB,0.72523E+00_JPRB,0.84139E+00_JPRB,0.96623E+00_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.10697E+01_JPRB,0.93701E+00_JPRB,0.80427E+00_JPRB,0.67151E+00_JPRB,0.56892E+00_JPRB, &
+ & 0.58963E+00_JPRB,0.70431E+00_JPRB,0.81667E+00_JPRB,0.93800E+00_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.10434E+01_JPRB,0.91377E+00_JPRB,0.78415E+00_JPRB,0.65453E+00_JPRB,0.55082E+00_JPRB, &
+ & 0.57510E+00_JPRB,0.68668E+00_JPRB,0.79542E+00_JPRB,0.91311E+00_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.10167E+01_JPRB,0.89033E+00_JPRB,0.76393E+00_JPRB,0.63753E+00_JPRB,0.53477E+00_JPRB, &
+ & 0.56392E+00_JPRB,0.67291E+00_JPRB,0.77892E+00_JPRB,0.89383E+00_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.99271E+00_JPRB,0.86922E+00_JPRB,0.74573E+00_JPRB,0.62224E+00_JPRB,0.52129E+00_JPRB, &
+ & 0.55503E+00_JPRB,0.66157E+00_JPRB,0.76538E+00_JPRB,0.87797E+00_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.12165E+01_JPRB,0.10653E+01_JPRB,0.91421E+00_JPRB,0.76309E+00_JPRB,0.68684E+00_JPRB, &
+ & 0.72751E+00_JPRB,0.87072E+00_JPRB,0.10104E+01_JPRB,0.11626E+01_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.11851E+01_JPRB,0.10377E+01_JPRB,0.89038E+00_JPRB,0.74302E+00_JPRB,0.66078E+00_JPRB, &
+ & 0.70740E+00_JPRB,0.84652E+00_JPRB,0.98180E+00_JPRB,0.11298E+01_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.11540E+01_JPRB,0.10104E+01_JPRB,0.86680E+00_JPRB,0.72322E+00_JPRB,0.63673E+00_JPRB, &
+ & 0.69046E+00_JPRB,0.82558E+00_JPRB,0.95705E+00_JPRB,0.11007E+01_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.11233E+01_JPRB,0.98347E+00_JPRB,0.84364E+00_JPRB,0.70381E+00_JPRB,0.61623E+00_JPRB, &
+ & 0.67656E+00_JPRB,0.80855E+00_JPRB,0.93682E+00_JPRB,0.10775E+01_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.10954E+01_JPRB,0.95895E+00_JPRB,0.82254E+00_JPRB,0.68614E+00_JPRB,0.59850E+00_JPRB, &
+ & 0.66513E+00_JPRB,0.79440E+00_JPRB,0.92006E+00_JPRB,0.10579E+01_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.13516E+01_JPRB,0.11834E+01_JPRB,0.10152E+01_JPRB,0.84752E+00_JPRB,0.80189E+00_JPRB, &
+ & 0.86751E+00_JPRB,0.10388E+01_JPRB,0.12059E+01_JPRB,0.13885E+01_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.13129E+01_JPRB,0.11495E+01_JPRB,0.98601E+00_JPRB,0.82254E+00_JPRB,0.76801E+00_JPRB, &
+ & 0.84476E+00_JPRB,0.10112E+01_JPRB,0.11733E+01_JPRB,0.13510E+01_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.12754E+01_JPRB,0.11166E+01_JPRB,0.95771E+00_JPRB,0.79885E+00_JPRB,0.73832E+00_JPRB, &
+ & 0.82499E+00_JPRB,0.98705E+00_JPRB,0.11448E+01_JPRB,0.13179E+01_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.12391E+01_JPRB,0.10847E+01_JPRB,0.93032E+00_JPRB,0.77593E+00_JPRB,0.71267E+00_JPRB, &
+ & 0.80837E+00_JPRB,0.96685E+00_JPRB,0.11210E+01_JPRB,0.12906E+01_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.12065E+01_JPRB,0.10561E+01_JPRB,0.90576E+00_JPRB,0.75539E+00_JPRB,0.69035E+00_JPRB, &
+ & 0.79409E+00_JPRB,0.94938E+00_JPRB,0.11005E+01_JPRB,0.12668E+01_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.14988E+01_JPRB,0.13122E+01_JPRB,0.11257E+01_JPRB,0.95045E+00_JPRB,0.92736E+00_JPRB, &
+ & 0.10268E+01_JPRB,0.12293E+01_JPRB,0.14274E+01_JPRB,0.16436E+01_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.14532E+01_JPRB,0.12722E+01_JPRB,0.10913E+01_JPRB,0.91652E+00_JPRB,0.88763E+00_JPRB, &
+ & 0.10018E+01_JPRB,0.11994E+01_JPRB,0.13921E+01_JPRB,0.16030E+01_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.14089E+01_JPRB,0.12334E+01_JPRB,0.10579E+01_JPRB,0.88636E+00_JPRB,0.85277E+00_JPRB, &
+ & 0.97910E+00_JPRB,0.11719E+01_JPRB,0.13598E+01_JPRB,0.15656E+01_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.13671E+01_JPRB,0.11967E+01_JPRB,0.10263E+01_JPRB,0.85849E+00_JPRB,0.82373E+00_JPRB, &
+ & 0.95955E+00_JPRB,0.11482E+01_JPRB,0.13320E+01_JPRB,0.15338E+01_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.13292E+01_JPRB,0.11635E+01_JPRB,0.99774E+00_JPRB,0.83411E+00_JPRB,0.79958E+00_JPRB, &
+ & 0.94221E+00_JPRB,0.11271E+01_JPRB,0.13073E+01_JPRB,0.15052E+01_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.16562E+01_JPRB,0.14500E+01_JPRB,0.12437E+01_JPRB,0.10742E+01_JPRB,0.10651E+01_JPRB, &
+ & 0.12070E+01_JPRB,0.14445E+01_JPRB,0.16775E+01_JPRB,0.19311E+01_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.16034E+01_JPRB,0.14036E+01_JPRB,0.12039E+01_JPRB,0.10312E+01_JPRB,0.10206E+01_JPRB, &
+ & 0.11791E+01_JPRB,0.14116E+01_JPRB,0.16391E+01_JPRB,0.18869E+01_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.15525E+01_JPRB,0.13590E+01_JPRB,0.11655E+01_JPRB,0.99233E+00_JPRB,0.98476E+00_JPRB, &
+ & 0.11530E+01_JPRB,0.13804E+01_JPRB,0.16026E+01_JPRB,0.18449E+01_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.15047E+01_JPRB,0.13171E+01_JPRB,0.11295E+01_JPRB,0.95737E+00_JPRB,0.95592E+00_JPRB, &
+ & 0.11301E+01_JPRB,0.13529E+01_JPRB,0.15703E+01_JPRB,0.18077E+01_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.14611E+01_JPRB,0.12789E+01_JPRB,0.10967E+01_JPRB,0.92635E+00_JPRB,0.93256E+00_JPRB, &
+ & 0.11088E+01_JPRB,0.13272E+01_JPRB,0.15403E+01_JPRB,0.17730E+01_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.18225E+01_JPRB,0.15953E+01_JPRB,0.13682E+01_JPRB,0.12131E+01_JPRB,0.12195E+01_JPRB, &
+ & 0.14041E+01_JPRB,0.16789E+01_JPRB,0.19504E+01_JPRB,0.22442E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 2,10,15) = (/ &
+ & 0.17586E+01_JPRB,0.15393E+01_JPRB,0.13201E+01_JPRB,0.11608E+01_JPRB,0.11760E+01_JPRB, &
+ & 0.13729E+01_JPRB,0.16424E+01_JPRB,0.19078E+01_JPRB,0.21951E+01_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.16992E+01_JPRB,0.14873E+01_JPRB,0.12754E+01_JPRB,0.11134E+01_JPRB,0.11408E+01_JPRB, &
+ & 0.13430E+01_JPRB,0.16073E+01_JPRB,0.18666E+01_JPRB,0.21480E+01_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.16453E+01_JPRB,0.14401E+01_JPRB,0.12349E+01_JPRB,0.10705E+01_JPRB,0.11101E+01_JPRB, &
+ & 0.13157E+01_JPRB,0.15751E+01_JPRB,0.18293E+01_JPRB,0.21045E+01_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.15976E+01_JPRB,0.13983E+01_JPRB,0.11990E+01_JPRB,0.10350E+01_JPRB,0.10845E+01_JPRB, &
+ & 0.12900E+01_JPRB,0.15444E+01_JPRB,0.17936E+01_JPRB,0.20634E+01_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.19716E+01_JPRB,0.17256E+01_JPRB,0.14797E+01_JPRB,0.13408E+01_JPRB,0.13798E+01_JPRB, &
+ & 0.16011E+01_JPRB,0.19108E+01_JPRB,0.22209E+01_JPRB,0.25534E+01_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.18980E+01_JPRB,0.16613E+01_JPRB,0.14245E+01_JPRB,0.12841E+01_JPRB,0.13393E+01_JPRB, &
+ & 0.15661E+01_JPRB,0.18703E+01_JPRB,0.21736E+01_JPRB,0.24991E+01_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.18334E+01_JPRB,0.16046E+01_JPRB,0.13758E+01_JPRB,0.12346E+01_JPRB,0.13019E+01_JPRB, &
+ & 0.15332E+01_JPRB,0.18320E+01_JPRB,0.21288E+01_JPRB,0.24477E+01_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.17833E+01_JPRB,0.15608E+01_JPRB,0.13382E+01_JPRB,0.11928E+01_JPRB,0.12697E+01_JPRB, &
+ & 0.15019E+01_JPRB,0.17959E+01_JPRB,0.20867E+01_JPRB,0.23990E+01_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.17385E+01_JPRB,0.15215E+01_JPRB,0.13045E+01_JPRB,0.11584E+01_JPRB,0.12412E+01_JPRB, &
+ & 0.14723E+01_JPRB,0.17610E+01_JPRB,0.20462E+01_JPRB,0.23526E+01_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.21322E+01_JPRB,0.18661E+01_JPRB,0.16009E+01_JPRB,0.14913E+01_JPRB,0.15626E+01_JPRB, &
+ & 0.18065E+01_JPRB,0.21498E+01_JPRB,0.24997E+01_JPRB,0.28719E+01_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.20605E+01_JPRB,0.18033E+01_JPRB,0.15462E+01_JPRB,0.14346E+01_JPRB,0.15183E+01_JPRB, &
+ & 0.17679E+01_JPRB,0.21055E+01_JPRB,0.24481E+01_JPRB,0.28126E+01_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.20007E+01_JPRB,0.17509E+01_JPRB,0.15011E+01_JPRB,0.13841E+01_JPRB,0.14777E+01_JPRB, &
+ & 0.17312E+01_JPRB,0.20634E+01_JPRB,0.23990E+01_JPRB,0.27564E+01_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.19501E+01_JPRB,0.17066E+01_JPRB,0.14631E+01_JPRB,0.13415E+01_JPRB,0.14420E+01_JPRB, &
+ & 0.16956E+01_JPRB,0.20218E+01_JPRB,0.23506E+01_JPRB,0.27007E+01_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.19023E+01_JPRB,0.16648E+01_JPRB,0.14272E+01_JPRB,0.13048E+01_JPRB,0.14093E+01_JPRB, &
+ & 0.16619E+01_JPRB,0.19834E+01_JPRB,0.23060E+01_JPRB,0.26492E+01_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.23283E+01_JPRB,0.20376E+01_JPRB,0.17570E+01_JPRB,0.16678E+01_JPRB,0.17574E+01_JPRB, &
+ & 0.20182E+01_JPRB,0.23943E+01_JPRB,0.27850E+01_JPRB,0.31979E+01_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.22552E+01_JPRB,0.19735E+01_JPRB,0.16974E+01_JPRB,0.16068E+01_JPRB,0.17079E+01_JPRB, &
+ & 0.19757E+01_JPRB,0.23460E+01_JPRB,0.27289E+01_JPRB,0.31334E+01_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.21945E+01_JPRB,0.19204E+01_JPRB,0.16488E+01_JPRB,0.15544E+01_JPRB,0.16639E+01_JPRB, &
+ & 0.19336E+01_JPRB,0.22972E+01_JPRB,0.26723E+01_JPRB,0.30681E+01_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.21377E+01_JPRB,0.18706E+01_JPRB,0.16045E+01_JPRB,0.15082E+01_JPRB,0.16235E+01_JPRB, &
+ & 0.18922E+01_JPRB,0.22504E+01_JPRB,0.26179E+01_JPRB,0.30055E+01_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.20822E+01_JPRB,0.18221E+01_JPRB,0.15623E+01_JPRB,0.14670E+01_JPRB,0.15845E+01_JPRB, &
+ & 0.18531E+01_JPRB,0.22061E+01_JPRB,0.25663E+01_JPRB,0.29464E+01_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.84891E+00_JPRB,0.74682E+00_JPRB,0.64540E+00_JPRB,0.54510E+00_JPRB,0.44671E+00_JPRB, &
+ & 0.34895E+00_JPRB,0.38105E+00_JPRB,0.44177E+00_JPRB,0.47725E+00_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.82292E+00_JPRB,0.72425E+00_JPRB,0.62615E+00_JPRB,0.52904E+00_JPRB,0.43334E+00_JPRB, &
+ & 0.33791E+00_JPRB,0.37758E+00_JPRB,0.43769E+00_JPRB,0.47292E+00_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.79766E+00_JPRB,0.70221E+00_JPRB,0.60725E+00_JPRB,0.51315E+00_JPRB,0.42001E+00_JPRB, &
+ & 0.32708E+00_JPRB,0.37351E+00_JPRB,0.43297E+00_JPRB,0.46789E+00_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.77341E+00_JPRB,0.68098E+00_JPRB,0.58899E+00_JPRB,0.49774E+00_JPRB,0.40711E+00_JPRB, &
+ & 0.31834E+00_JPRB,0.36899E+00_JPRB,0.42775E+00_JPRB,0.46227E+00_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.74989E+00_JPRB,0.66035E+00_JPRB,0.57119E+00_JPRB,0.48264E+00_JPRB,0.39437E+00_JPRB, &
+ & 0.32430E+00_JPRB,0.36416E+00_JPRB,0.42216E+00_JPRB,0.45636E+00_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.98489E+00_JPRB,0.86457E+00_JPRB,0.74461E+00_JPRB,0.62525E+00_JPRB,0.50699E+00_JPRB, &
+ & 0.39502E+00_JPRB,0.46270E+00_JPRB,0.53626E+00_JPRB,0.59246E+00_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.95110E+00_JPRB,0.83523E+00_JPRB,0.71967E+00_JPRB,0.60464E+00_JPRB,0.49055E+00_JPRB, &
+ & 0.38714E+00_JPRB,0.45775E+00_JPRB,0.53066E+00_JPRB,0.58669E+00_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.91868E+00_JPRB,0.80699E+00_JPRB,0.69557E+00_JPRB,0.58461E+00_JPRB,0.47447E+00_JPRB, &
+ & 0.38030E+00_JPRB,0.45287E+00_JPRB,0.52498E+00_JPRB,0.58057E+00_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.88783E+00_JPRB,0.78006E+00_JPRB,0.67253E+00_JPRB,0.56540E+00_JPRB,0.45894E+00_JPRB, &
+ & 0.37426E+00_JPRB,0.44739E+00_JPRB,0.51869E+00_JPRB,0.57355E+00_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.85824E+00_JPRB,0.75420E+00_JPRB,0.65037E+00_JPRB,0.54691E+00_JPRB,0.44407E+00_JPRB, &
+ & 0.37572E+00_JPRB,0.44151E+00_JPRB,0.51192E+00_JPRB,0.56619E+00_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.11382E+01_JPRB,0.99791E+00_JPRB,0.85785E+00_JPRB,0.71816E+00_JPRB,0.57913E+00_JPRB, &
+ & 0.47378E+00_JPRB,0.56732E+00_JPRB,0.65745E+00_JPRB,0.74321E+00_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.10944E+01_JPRB,0.95984E+00_JPRB,0.82550E+00_JPRB,0.69149E+00_JPRB,0.55807E+00_JPRB, &
+ & 0.46534E+00_JPRB,0.55716E+00_JPRB,0.64588E+00_JPRB,0.73020E+00_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.10534E+01_JPRB,0.92416E+00_JPRB,0.79509E+00_JPRB,0.66633E+00_JPRB,0.53808E+00_JPRB, &
+ & 0.45863E+00_JPRB,0.54915E+00_JPRB,0.63663E+00_JPRB,0.71995E+00_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.10141E+01_JPRB,0.88986E+00_JPRB,0.76582E+00_JPRB,0.64206E+00_JPRB,0.51870E+00_JPRB, &
+ & 0.45265E+00_JPRB,0.54212E+00_JPRB,0.62853E+00_JPRB,0.71089E+00_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.97757E+00_JPRB,0.85802E+00_JPRB,0.73862E+00_JPRB,0.61943E+00_JPRB,0.50068E+00_JPRB, &
+ & 0.44732E+00_JPRB,0.53486E+00_JPRB,0.62017E+00_JPRB,0.70154E+00_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.13027E+01_JPRB,0.11412E+01_JPRB,0.97988E+00_JPRB,0.81881E+00_JPRB,0.65819E+00_JPRB, &
+ & 0.58495E+00_JPRB,0.70040E+00_JPRB,0.81176E+00_JPRB,0.92845E+00_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.12473E+01_JPRB,0.10931E+01_JPRB,0.93894E+00_JPRB,0.78506E+00_JPRB,0.63160E+00_JPRB, &
+ & 0.57073E+00_JPRB,0.68340E+00_JPRB,0.79216E+00_JPRB,0.90610E+00_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.11956E+01_JPRB,0.10481E+01_JPRB,0.90063E+00_JPRB,0.75344E+00_JPRB,0.60663E+00_JPRB, &
+ & 0.55958E+00_JPRB,0.67003E+00_JPRB,0.77669E+00_JPRB,0.88836E+00_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.11480E+01_JPRB,0.10066E+01_JPRB,0.86532E+00_JPRB,0.72426E+00_JPRB,0.58351E+00_JPRB, &
+ & 0.54965E+00_JPRB,0.65819E+00_JPRB,0.76307E+00_JPRB,0.87291E+00_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.11042E+01_JPRB,0.96837E+00_JPRB,0.83267E+00_JPRB,0.69709E+00_JPRB,0.56180E+00_JPRB, &
+ & 0.54039E+00_JPRB,0.64710E+00_JPRB,0.75045E+00_JPRB,0.85825E+00_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.14755E+01_JPRB,0.12919E+01_JPRB,0.11084E+01_JPRB,0.92503E+00_JPRB,0.74199E+00_JPRB, &
+ & 0.72656E+00_JPRB,0.86992E+00_JPRB,0.10084E+01_JPRB,0.11593E+01_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.14077E+01_JPRB,0.12330E+01_JPRB,0.10584E+01_JPRB,0.88396E+00_JPRB,0.70985E+00_JPRB, &
+ & 0.70337E+00_JPRB,0.84221E+00_JPRB,0.97628E+00_JPRB,0.11223E+01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.13473E+01_JPRB,0.11805E+01_JPRB,0.10138E+01_JPRB,0.84723E+00_JPRB,0.68084E+00_JPRB, &
+ & 0.68573E+00_JPRB,0.82117E+00_JPRB,0.95190E+00_JPRB,0.10943E+01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.12931E+01_JPRB,0.11332E+01_JPRB,0.97336E+00_JPRB,0.81358E+00_JPRB,0.65399E+00_JPRB, &
+ & 0.67083E+00_JPRB,0.80321E+00_JPRB,0.93120E+00_JPRB,0.10704E+01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.12425E+01_JPRB,0.10889E+01_JPRB,0.93535E+00_JPRB,0.78185E+00_JPRB,0.62849E+00_JPRB, &
+ & 0.65706E+00_JPRB,0.78689E+00_JPRB,0.91252E+00_JPRB,0.10486E+01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.16632E+01_JPRB,0.14561E+01_JPRB,0.12491E+01_JPRB,0.10422E+01_JPRB,0.83545E+00_JPRB, &
+ & 0.90592E+00_JPRB,0.10850E+01_JPRB,0.12579E+01_JPRB,0.14491E+01_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.15885E+01_JPRB,0.13911E+01_JPRB,0.11938E+01_JPRB,0.99649E+00_JPRB,0.79932E+00_JPRB, &
+ & 0.87105E+00_JPRB,0.10430E+01_JPRB,0.12092E+01_JPRB,0.13933E+01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.15219E+01_JPRB,0.13330E+01_JPRB,0.11441E+01_JPRB,0.95525E+00_JPRB,0.76651E+00_JPRB, &
+ & 0.84460E+00_JPRB,0.10114E+01_JPRB,0.11726E+01_JPRB,0.13510E+01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.14602E+01_JPRB,0.12790E+01_JPRB,0.10978E+01_JPRB,0.91668E+00_JPRB,0.73549E+00_JPRB, &
+ & 0.82233E+00_JPRB,0.98468E+00_JPRB,0.11417E+01_JPRB,0.13152E+01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.14027E+01_JPRB,0.12286E+01_JPRB,0.10546E+01_JPRB,0.88053E+00_JPRB,0.70846E+00_JPRB, &
+ & 0.80220E+00_JPRB,0.96072E+00_JPRB,0.11140E+01_JPRB,0.12832E+01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.18802E+01_JPRB,0.16460E+01_JPRB,0.14119E+01_JPRB,0.11779E+01_JPRB,0.95036E+00_JPRB, &
+ & 0.11297E+01_JPRB,0.13528E+01_JPRB,0.15688E+01_JPRB,0.18094E+01_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.17989E+01_JPRB,0.15751E+01_JPRB,0.13512E+01_JPRB,0.11274E+01_JPRB,0.91055E+00_JPRB, &
+ & 0.10797E+01_JPRB,0.12930E+01_JPRB,0.14993E+01_JPRB,0.17294E+01_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.17245E+01_JPRB,0.15100E+01_JPRB,0.12954E+01_JPRB,0.10809E+01_JPRB,0.87508E+00_JPRB, &
+ & 0.10422E+01_JPRB,0.12481E+01_JPRB,0.14473E+01_JPRB,0.16693E+01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.16543E+01_JPRB,0.14485E+01_JPRB,0.12427E+01_JPRB,0.10370E+01_JPRB,0.84724E+00_JPRB, &
+ & 0.10105E+01_JPRB,0.12102E+01_JPRB,0.14035E+01_JPRB,0.16185E+01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.15884E+01_JPRB,0.13908E+01_JPRB,0.11932E+01_JPRB,0.99569E+00_JPRB,0.82331E+00_JPRB, &
+ & 0.98227E+00_JPRB,0.11764E+01_JPRB,0.13643E+01_JPRB,0.15734E+01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.21327E+01_JPRB,0.18670E+01_JPRB,0.16012E+01_JPRB,0.13355E+01_JPRB,0.11430E+01_JPRB, &
+ & 0.14062E+01_JPRB,0.16843E+01_JPRB,0.19535E+01_JPRB,0.22540E+01_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.20434E+01_JPRB,0.17888E+01_JPRB,0.15342E+01_JPRB,0.12796E+01_JPRB,0.10891E+01_JPRB, &
+ & 0.13377E+01_JPRB,0.16020E+01_JPRB,0.18582E+01_JPRB,0.21442E+01_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.19592E+01_JPRB,0.17151E+01_JPRB,0.14711E+01_JPRB,0.12270E+01_JPRB,0.10443E+01_JPRB, &
+ & 0.12854E+01_JPRB,0.15395E+01_JPRB,0.17855E+01_JPRB,0.20605E+01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.18795E+01_JPRB,0.16454E+01_JPRB,0.14112E+01_JPRB,0.11771E+01_JPRB,0.10093E+01_JPRB, &
+ & 0.12418E+01_JPRB,0.14873E+01_JPRB,0.17251E+01_JPRB,0.19905E+01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.18040E+01_JPRB,0.15793E+01_JPRB,0.13546E+01_JPRB,0.11298E+01_JPRB,0.97893E+00_JPRB, &
+ & 0.12029E+01_JPRB,0.14409E+01_JPRB,0.16715E+01_JPRB,0.19284E+01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.24263E+01_JPRB,0.21237E+01_JPRB,0.18212E+01_JPRB,0.15186E+01_JPRB,0.14038E+01_JPRB, &
+ & 0.17468E+01_JPRB,0.20923E+01_JPRB,0.24275E+01_JPRB,0.28010E+01_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.23266E+01_JPRB,0.20365E+01_JPRB,0.17464E+01_JPRB,0.14563E+01_JPRB,0.13334E+01_JPRB, &
+ & 0.16567E+01_JPRB,0.19843E+01_JPRB,0.23023E+01_JPRB,0.26565E+01_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.22311E+01_JPRB,0.19529E+01_JPRB,0.16747E+01_JPRB,0.13965E+01_JPRB,0.12741E+01_JPRB, &
+ & 0.15855E+01_JPRB,0.18989E+01_JPRB,0.22031E+01_JPRB,0.25421E+01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.21400E+01_JPRB,0.18731E+01_JPRB,0.16063E+01_JPRB,0.13394E+01_JPRB,0.12261E+01_JPRB, &
+ & 0.15261E+01_JPRB,0.18280E+01_JPRB,0.21210E+01_JPRB,0.24473E+01_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.20537E+01_JPRB,0.17976E+01_JPRB,0.15415E+01_JPRB,0.12854E+01_JPRB,0.11844E+01_JPRB, &
+ & 0.14739E+01_JPRB,0.17653E+01_JPRB,0.20482E+01_JPRB,0.23631E+01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.27556E+01_JPRB,0.24117E+01_JPRB,0.20679E+01_JPRB,0.17241E+01_JPRB,0.17250E+01_JPRB, &
+ & 0.21531E+01_JPRB,0.25793E+01_JPRB,0.29930E+01_JPRB,0.34529E+01_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.26436E+01_JPRB,0.23137E+01_JPRB,0.19838E+01_JPRB,0.16540E+01_JPRB,0.16343E+01_JPRB, &
+ & 0.20375E+01_JPRB,0.24406E+01_JPRB,0.28326E+01_JPRB,0.32672E+01_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.25350E+01_JPRB,0.22187E+01_JPRB,0.19024E+01_JPRB,0.15861E+01_JPRB,0.15582E+01_JPRB, &
+ & 0.19443E+01_JPRB,0.23290E+01_JPRB,0.27026E+01_JPRB,0.31178E+01_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.24300E+01_JPRB,0.21267E+01_JPRB,0.18235E+01_JPRB,0.15203E+01_JPRB,0.14955E+01_JPRB, &
+ & 0.18662E+01_JPRB,0.22353E+01_JPRB,0.25942E+01_JPRB,0.29924E+01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.23355E+01_JPRB,0.20440E+01_JPRB,0.17526E+01_JPRB,0.14611E+01_JPRB,0.14399E+01_JPRB, &
+ & 0.17966E+01_JPRB,0.21521E+01_JPRB,0.24975E+01_JPRB,0.28809E+01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.30736E+01_JPRB,0.26899E+01_JPRB,0.23062E+01_JPRB,0.19287E+01_JPRB,0.20594E+01_JPRB, &
+ & 0.25707E+01_JPRB,0.30796E+01_JPRB,0.35755E+01_JPRB,0.41218E+01_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.29458E+01_JPRB,0.25780E+01_JPRB,0.22102E+01_JPRB,0.18490E+01_JPRB,0.19506E+01_JPRB, &
+ & 0.24353E+01_JPRB,0.29176E+01_JPRB,0.33867E+01_JPRB,0.39048E+01_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.28287E+01_JPRB,0.24755E+01_JPRB,0.21223E+01_JPRB,0.17723E+01_JPRB,0.18621E+01_JPRB, &
+ & 0.23252E+01_JPRB,0.27855E+01_JPRB,0.32334E+01_JPRB,0.37281E+01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.27181E+01_JPRB,0.23787E+01_JPRB,0.20393E+01_JPRB,0.17010E+01_JPRB,0.17848E+01_JPRB, &
+ & 0.22284E+01_JPRB,0.26698E+01_JPRB,0.30991E+01_JPRB,0.35730E+01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.26214E+01_JPRB,0.22941E+01_JPRB,0.19667E+01_JPRB,0.16394E+01_JPRB,0.17149E+01_JPRB, &
+ & 0.21409E+01_JPRB,0.25649E+01_JPRB,0.29778E+01_JPRB,0.34326E+01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.34457E+01_JPRB,0.30154E+01_JPRB,0.25850E+01_JPRB,0.22002E+01_JPRB,0.24421E+01_JPRB, &
+ & 0.30491E+01_JPRB,0.36532E+01_JPRB,0.42422E+01_JPRB,0.48881E+01_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.33132E+01_JPRB,0.28993E+01_JPRB,0.24855E+01_JPRB,0.21037E+01_JPRB,0.23175E+01_JPRB, &
+ & 0.28938E+01_JPRB,0.34673E+01_JPRB,0.40262E+01_JPRB,0.46397E+01_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.31843E+01_JPRB,0.27866E+01_JPRB,0.23888E+01_JPRB,0.20132E+01_JPRB,0.22107E+01_JPRB, &
+ & 0.27603E+01_JPRB,0.33070E+01_JPRB,0.38403E+01_JPRB,0.44248E+01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.30610E+01_JPRB,0.26787E+01_JPRB,0.22963E+01_JPRB,0.19289E+01_JPRB,0.21145E+01_JPRB, &
+ & 0.26402E+01_JPRB,0.31632E+01_JPRB,0.36735E+01_JPRB,0.42326E+01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.29533E+01_JPRB,0.25844E+01_JPRB,0.22155E+01_JPRB,0.18569E+01_JPRB,0.20264E+01_JPRB, &
+ & 0.25300E+01_JPRB,0.30314E+01_JPRB,0.35205E+01_JPRB,0.40560E+01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.38898E+01_JPRB,0.34039E+01_JPRB,0.29179E+01_JPRB,0.25320E+01_JPRB,0.28809E+01_JPRB, &
+ & 0.35965E+01_JPRB,0.43091E+01_JPRB,0.50055E+01_JPRB,0.57650E+01_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.37371E+01_JPRB,0.32702E+01_JPRB,0.28033E+01_JPRB,0.24146E+01_JPRB,0.27330E+01_JPRB, &
+ & 0.34120E+01_JPRB,0.40886E+01_JPRB,0.47494E+01_JPRB,0.54692E+01_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.35846E+01_JPRB,0.31367E+01_JPRB,0.26889E+01_JPRB,0.23047E+01_JPRB,0.26019E+01_JPRB, &
+ & 0.32482E+01_JPRB,0.38921E+01_JPRB,0.45212E+01_JPRB,0.52066E+01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.34450E+01_JPRB,0.30146E+01_JPRB,0.25842E+01_JPRB,0.22048E+01_JPRB,0.24829E+01_JPRB, &
+ & 0.31006E+01_JPRB,0.37153E+01_JPRB,0.43162E+01_JPRB,0.49694E+01_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.33226E+01_JPRB,0.29075E+01_JPRB,0.24923E+01_JPRB,0.21144E+01_JPRB,0.23741E+01_JPRB, &
+ & 0.29651E+01_JPRB,0.35532E+01_JPRB,0.41282E+01_JPRB,0.47532E+01_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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.78344E-03_JPRB,0.81478E-03_JPRB,0.83713E-03_JPRB,0.85265E-03_JPRB,0.85991E-03_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.65374E-03_JPRB,0.67963E-03_JPRB,0.69840E-03_JPRB,0.71131E-03_JPRB,0.71719E-03_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.55587E-03_JPRB,0.57751E-03_JPRB,0.59343E-03_JPRB,0.60410E-03_JPRB,0.60993E-03_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.48145E-03_JPRB,0.49780E-03_JPRB,0.51251E-03_JPRB,0.52093E-03_JPRB,0.52706E-03_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.42610E-03_JPRB,0.43577E-03_JPRB,0.44892E-03_JPRB,0.45812E-03_JPRB,0.46352E-03_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.38503E-03_JPRB,0.38849E-03_JPRB,0.40094E-03_JPRB,0.41067E-03_JPRB,0.41529E-03_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.35025E-03_JPRB,0.34902E-03_JPRB,0.35803E-03_JPRB,0.36759E-03_JPRB,0.37429E-03_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.30557E-03_JPRB,0.30381E-03_JPRB,0.30983E-03_JPRB,0.31782E-03_JPRB,0.32429E-03_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.26346E-03_JPRB,0.26127E-03_JPRB,0.26616E-03_JPRB,0.27270E-03_JPRB,0.27830E-03_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.22630E-03_JPRB,0.22463E-03_JPRB,0.22867E-03_JPRB,0.23419E-03_JPRB,0.23829E-03_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.19498E-03_JPRB,0.19376E-03_JPRB,0.19644E-03_JPRB,0.20096E-03_JPRB,0.20404E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART12',0,ZHOOK_HANDLE)
+
+
+KB(:,24, 1) = (/ &
+ & 0.16839E-03_JPRB,0.16687E-03_JPRB,0.16820E-03_JPRB,0.17215E-03_JPRB,0.17490E-03_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.14494E-03_JPRB,0.14347E-03_JPRB,0.14334E-03_JPRB,0.14728E-03_JPRB,0.14954E-03_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.12363E-03_JPRB,0.12241E-03_JPRB,0.12233E-03_JPRB,0.12518E-03_JPRB,0.12767E-03_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.10560E-03_JPRB,0.10482E-03_JPRB,0.10446E-03_JPRB,0.10681E-03_JPRB,0.10897E-03_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.90453E-04_JPRB,0.89921E-04_JPRB,0.89199E-04_JPRB,0.91278E-04_JPRB,0.93235E-04_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.77854E-04_JPRB,0.77467E-04_JPRB,0.76947E-04_JPRB,0.77977E-04_JPRB,0.79713E-04_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.67346E-04_JPRB,0.67074E-04_JPRB,0.66981E-04_JPRB,0.67340E-04_JPRB,0.68453E-04_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.58739E-04_JPRB,0.58583E-04_JPRB,0.58517E-04_JPRB,0.58421E-04_JPRB,0.59277E-04_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.51671E-04_JPRB,0.51476E-04_JPRB,0.51254E-04_JPRB,0.51199E-04_JPRB,0.51510E-04_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.45523E-04_JPRB,0.45406E-04_JPRB,0.45028E-04_JPRB,0.44849E-04_JPRB,0.44977E-04_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.40256E-04_JPRB,0.40062E-04_JPRB,0.39751E-04_JPRB,0.39416E-04_JPRB,0.39181E-04_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.35762E-04_JPRB,0.35429E-04_JPRB,0.35245E-04_JPRB,0.34916E-04_JPRB,0.34484E-04_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.31776E-04_JPRB,0.31666E-04_JPRB,0.31200E-04_JPRB,0.31013E-04_JPRB,0.30768E-04_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.26934E-04_JPRB,0.26971E-04_JPRB,0.26615E-04_JPRB,0.26355E-04_JPRB,0.26214E-04_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.22652E-04_JPRB,0.22874E-04_JPRB,0.22686E-04_JPRB,0.22466E-04_JPRB,0.22266E-04_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.18970E-04_JPRB,0.19273E-04_JPRB,0.19385E-04_JPRB,0.19198E-04_JPRB,0.19016E-04_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.15533E-04_JPRB,0.15831E-04_JPRB,0.15964E-04_JPRB,0.15836E-04_JPRB,0.15700E-04_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.12668E-04_JPRB,0.12826E-04_JPRB,0.12999E-04_JPRB,0.13018E-04_JPRB,0.12872E-04_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.10356E-04_JPRB,0.10475E-04_JPRB,0.10620E-04_JPRB,0.10666E-04_JPRB,0.10580E-04_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.83551E-05_JPRB,0.84490E-05_JPRB,0.85217E-05_JPRB,0.86140E-05_JPRB,0.86044E-05_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.66829E-05_JPRB,0.68022E-05_JPRB,0.68791E-05_JPRB,0.69429E-05_JPRB,0.69314E-05_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.53860E-05_JPRB,0.54494E-05_JPRB,0.55341E-05_JPRB,0.55544E-05_JPRB,0.55761E-05_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.43207E-05_JPRB,0.43601E-05_JPRB,0.44477E-05_JPRB,0.44761E-05_JPRB,0.44727E-05_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.34852E-05_JPRB,0.34924E-05_JPRB,0.35555E-05_JPRB,0.35928E-05_JPRB,0.35957E-05_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.27913E-05_JPRB,0.28024E-05_JPRB,0.28395E-05_JPRB,0.28713E-05_JPRB,0.28836E-05_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.22267E-05_JPRB,0.22549E-05_JPRB,0.22736E-05_JPRB,0.22769E-05_JPRB,0.23083E-05_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.17814E-05_JPRB,0.18056E-05_JPRB,0.18272E-05_JPRB,0.18178E-05_JPRB,0.18340E-05_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.14202E-05_JPRB,0.14390E-05_JPRB,0.14605E-05_JPRB,0.14515E-05_JPRB,0.14607E-05_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.11328E-05_JPRB,0.11511E-05_JPRB,0.11629E-05_JPRB,0.11627E-05_JPRB,0.11618E-05_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.90478E-06_JPRB,0.91291E-06_JPRB,0.92251E-06_JPRB,0.92910E-06_JPRB,0.92898E-06_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.71737E-06_JPRB,0.72444E-06_JPRB,0.73271E-06_JPRB,0.73646E-06_JPRB,0.74079E-06_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.56522E-06_JPRB,0.57444E-06_JPRB,0.57690E-06_JPRB,0.58444E-06_JPRB,0.59006E-06_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.44522E-06_JPRB,0.45152E-06_JPRB,0.45592E-06_JPRB,0.46208E-06_JPRB,0.46721E-06_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.35045E-06_JPRB,0.35432E-06_JPRB,0.36035E-06_JPRB,0.36444E-06_JPRB,0.36942E-06_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.27513E-06_JPRB,0.27793E-06_JPRB,0.28330E-06_JPRB,0.28729E-06_JPRB,0.29229E-06_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.21608E-06_JPRB,0.21966E-06_JPRB,0.22301E-06_JPRB,0.22740E-06_JPRB,0.23129E-06_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.41669E-02_JPRB,0.42141E-02_JPRB,0.42434E-02_JPRB,0.42683E-02_JPRB,0.42755E-02_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.34875E-02_JPRB,0.35201E-02_JPRB,0.35377E-02_JPRB,0.35547E-02_JPRB,0.35629E-02_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.29417E-02_JPRB,0.29682E-02_JPRB,0.29797E-02_JPRB,0.29877E-02_JPRB,0.29948E-02_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.25072E-02_JPRB,0.25337E-02_JPRB,0.25373E-02_JPRB,0.25423E-02_JPRB,0.25464E-02_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.21640E-02_JPRB,0.21948E-02_JPRB,0.21974E-02_JPRB,0.21951E-02_JPRB,0.21930E-02_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.18910E-02_JPRB,0.19229E-02_JPRB,0.19301E-02_JPRB,0.19201E-02_JPRB,0.19153E-02_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.16495E-02_JPRB,0.16848E-02_JPRB,0.16944E-02_JPRB,0.16885E-02_JPRB,0.16779E-02_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.14018E-02_JPRB,0.14333E-02_JPRB,0.14424E-02_JPRB,0.14394E-02_JPRB,0.14287E-02_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.11832E-02_JPRB,0.12125E-02_JPRB,0.12189E-02_JPRB,0.12151E-02_JPRB,0.12082E-02_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.99669E-03_JPRB,0.10233E-02_JPRB,0.10268E-02_JPRB,0.10250E-02_JPRB,0.10191E-02_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.83734E-03_JPRB,0.86220E-03_JPRB,0.86642E-03_JPRB,0.86487E-03_JPRB,0.86054E-03_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.70349E-03_JPRB,0.72654E-03_JPRB,0.73243E-03_JPRB,0.73077E-03_JPRB,0.72754E-03_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.59070E-03_JPRB,0.61044E-03_JPRB,0.61929E-03_JPRB,0.61773E-03_JPRB,0.61583E-03_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.49716E-03_JPRB,0.51139E-03_JPRB,0.52115E-03_JPRB,0.52139E-03_JPRB,0.52023E-03_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.41822E-03_JPRB,0.42737E-03_JPRB,0.43808E-03_JPRB,0.43978E-03_JPRB,0.43884E-03_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.35061E-03_JPRB,0.35848E-03_JPRB,0.36841E-03_JPRB,0.37095E-03_JPRB,0.37053E-03_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.29391E-03_JPRB,0.30227E-03_JPRB,0.30912E-03_JPRB,0.31376E-03_JPRB,0.31382E-03_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.24878E-03_JPRB,0.25551E-03_JPRB,0.25990E-03_JPRB,0.26493E-03_JPRB,0.26717E-03_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.21146E-03_JPRB,0.21606E-03_JPRB,0.21973E-03_JPRB,0.22385E-03_JPRB,0.22711E-03_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.17989E-03_JPRB,0.18248E-03_JPRB,0.18678E-03_JPRB,0.18914E-03_JPRB,0.19265E-03_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.15377E-03_JPRB,0.15569E-03_JPRB,0.15798E-03_JPRB,0.16109E-03_JPRB,0.16313E-03_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.13129E-03_JPRB,0.13289E-03_JPRB,0.13431E-03_JPRB,0.13679E-03_JPRB,0.13869E-03_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.11225E-03_JPRB,0.11370E-03_JPRB,0.11480E-03_JPRB,0.11616E-03_JPRB,0.11774E-03_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.96722E-04_JPRB,0.97093E-04_JPRB,0.98641E-04_JPRB,0.99964E-04_JPRB,0.10029E-03_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.81278E-04_JPRB,0.81350E-04_JPRB,0.82442E-04_JPRB,0.83555E-04_JPRB,0.83990E-04_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.68481E-04_JPRB,0.68398E-04_JPRB,0.68899E-04_JPRB,0.69737E-04_JPRB,0.70187E-04_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.57588E-04_JPRB,0.57895E-04_JPRB,0.57814E-04_JPRB,0.58095E-04_JPRB,0.58861E-04_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.47541E-04_JPRB,0.47609E-04_JPRB,0.47587E-04_JPRB,0.47727E-04_JPRB,0.48149E-04_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.39099E-04_JPRB,0.39119E-04_JPRB,0.39164E-04_JPRB,0.39161E-04_JPRB,0.39530E-04_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.32129E-04_JPRB,0.32067E-04_JPRB,0.32113E-04_JPRB,0.32128E-04_JPRB,0.32332E-04_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.26339E-04_JPRB,0.26195E-04_JPRB,0.26218E-04_JPRB,0.26313E-04_JPRB,0.26301E-04_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.21510E-04_JPRB,0.21341E-04_JPRB,0.21297E-04_JPRB,0.21378E-04_JPRB,0.21395E-04_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.17530E-04_JPRB,0.17454E-04_JPRB,0.17341E-04_JPRB,0.17352E-04_JPRB,0.17454E-04_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.14267E-04_JPRB,0.14213E-04_JPRB,0.14118E-04_JPRB,0.14076E-04_JPRB,0.14192E-04_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.11510E-04_JPRB,0.11593E-04_JPRB,0.11522E-04_JPRB,0.11431E-04_JPRB,0.11494E-04_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.92607E-05_JPRB,0.93963E-05_JPRB,0.93931E-05_JPRB,0.93302E-05_JPRB,0.93175E-05_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.74566E-05_JPRB,0.75640E-05_JPRB,0.76551E-05_JPRB,0.76195E-05_JPRB,0.75706E-05_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.60069E-05_JPRB,0.60789E-05_JPRB,0.61866E-05_JPRB,0.62136E-05_JPRB,0.61878E-05_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.48719E-05_JPRB,0.49189E-05_JPRB,0.49852E-05_JPRB,0.50599E-05_JPRB,0.50406E-05_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.39542E-05_JPRB,0.39622E-05_JPRB,0.40023E-05_JPRB,0.40853E-05_JPRB,0.41134E-05_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.31898E-05_JPRB,0.32108E-05_JPRB,0.32348E-05_JPRB,0.32873E-05_JPRB,0.33341E-05_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.25786E-05_JPRB,0.26009E-05_JPRB,0.26192E-05_JPRB,0.26504E-05_JPRB,0.26983E-05_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.20942E-05_JPRB,0.21017E-05_JPRB,0.21274E-05_JPRB,0.21442E-05_JPRB,0.21775E-05_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.16959E-05_JPRB,0.17018E-05_JPRB,0.17251E-05_JPRB,0.17374E-05_JPRB,0.17575E-05_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.13662E-05_JPRB,0.13805E-05_JPRB,0.13926E-05_JPRB,0.14091E-05_JPRB,0.14210E-05_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.10989E-05_JPRB,0.11199E-05_JPRB,0.11269E-05_JPRB,0.11436E-05_JPRB,0.11502E-05_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.88647E-06_JPRB,0.91054E-06_JPRB,0.91770E-06_JPRB,0.92872E-06_JPRB,0.93619E-06_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.91432E-02_JPRB,0.90907E-02_JPRB,0.90565E-02_JPRB,0.89984E-02_JPRB,0.89385E-02_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.76455E-02_JPRB,0.75988E-02_JPRB,0.75709E-02_JPRB,0.75150E-02_JPRB,0.74448E-02_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.64231E-02_JPRB,0.63826E-02_JPRB,0.63449E-02_JPRB,0.62999E-02_JPRB,0.62412E-02_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.54475E-02_JPRB,0.53998E-02_JPRB,0.53630E-02_JPRB,0.53153E-02_JPRB,0.52574E-02_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.46876E-02_JPRB,0.46363E-02_JPRB,0.45869E-02_JPRB,0.45398E-02_JPRB,0.44911E-02_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.40806E-02_JPRB,0.40265E-02_JPRB,0.39670E-02_JPRB,0.39185E-02_JPRB,0.38714E-02_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.35897E-02_JPRB,0.35272E-02_JPRB,0.34695E-02_JPRB,0.34174E-02_JPRB,0.33721E-02_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.30557E-02_JPRB,0.30003E-02_JPRB,0.29518E-02_JPRB,0.29027E-02_JPRB,0.28623E-02_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.25840E-02_JPRB,0.25346E-02_JPRB,0.24907E-02_JPRB,0.24530E-02_JPRB,0.24134E-02_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.21784E-02_JPRB,0.21342E-02_JPRB,0.20972E-02_JPRB,0.20639E-02_JPRB,0.20310E-02_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.18415E-02_JPRB,0.17987E-02_JPRB,0.17683E-02_JPRB,0.17405E-02_JPRB,0.17162E-02_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.15599E-02_JPRB,0.15210E-02_JPRB,0.14940E-02_JPRB,0.14715E-02_JPRB,0.14516E-02_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.13214E-02_JPRB,0.12882E-02_JPRB,0.12631E-02_JPRB,0.12449E-02_JPRB,0.12269E-02_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11148E-02_JPRB,0.10885E-02_JPRB,0.10663E-02_JPRB,0.10485E-02_JPRB,0.10339E-02_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.94180E-03_JPRB,0.92291E-03_JPRB,0.90201E-03_JPRB,0.88582E-03_JPRB,0.87360E-03_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.79929E-03_JPRB,0.78315E-03_JPRB,0.76525E-03_JPRB,0.75093E-03_JPRB,0.73943E-03_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.68110E-03_JPRB,0.66580E-03_JPRB,0.65234E-03_JPRB,0.63866E-03_JPRB,0.62757E-03_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.57975E-03_JPRB,0.56820E-03_JPRB,0.55835E-03_JPRB,0.54581E-03_JPRB,0.53624E-03_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.49551E-03_JPRB,0.48804E-03_JPRB,0.47841E-03_JPRB,0.46871E-03_JPRB,0.45833E-03_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.42572E-03_JPRB,0.42052E-03_JPRB,0.41099E-03_JPRB,0.40377E-03_JPRB,0.39554E-03_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.36528E-03_JPRB,0.36135E-03_JPRB,0.35701E-03_JPRB,0.34948E-03_JPRB,0.34456E-03_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.31415E-03_JPRB,0.31283E-03_JPRB,0.30989E-03_JPRB,0.30612E-03_JPRB,0.30054E-03_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.27352E-03_JPRB,0.27102E-03_JPRB,0.26979E-03_JPRB,0.26826E-03_JPRB,0.26448E-03_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.23967E-03_JPRB,0.23742E-03_JPRB,0.23456E-03_JPRB,0.23474E-03_JPRB,0.23316E-03_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.20338E-03_JPRB,0.20142E-03_JPRB,0.19919E-03_JPRB,0.19875E-03_JPRB,0.19818E-03_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.17257E-03_JPRB,0.17079E-03_JPRB,0.16890E-03_JPRB,0.16818E-03_JPRB,0.16767E-03_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.14733E-03_JPRB,0.14508E-03_JPRB,0.14396E-03_JPRB,0.14263E-03_JPRB,0.14203E-03_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.12225E-03_JPRB,0.12069E-03_JPRB,0.11949E-03_JPRB,0.11833E-03_JPRB,0.11808E-03_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.10097E-03_JPRB,0.10002E-03_JPRB,0.98765E-04_JPRB,0.97895E-04_JPRB,0.97754E-04_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.83346E-04_JPRB,0.82796E-04_JPRB,0.81713E-04_JPRB,0.81007E-04_JPRB,0.80814E-04_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.68346E-04_JPRB,0.68043E-04_JPRB,0.67367E-04_JPRB,0.66543E-04_JPRB,0.66059E-04_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.55818E-04_JPRB,0.55703E-04_JPRB,0.55284E-04_JPRB,0.54584E-04_JPRB,0.54239E-04_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.45332E-04_JPRB,0.45541E-04_JPRB,0.45337E-04_JPRB,0.44929E-04_JPRB,0.44433E-04_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.36748E-04_JPRB,0.37223E-04_JPRB,0.37146E-04_JPRB,0.36884E-04_JPRB,0.36439E-04_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.29601E-04_JPRB,0.30289E-04_JPRB,0.30405E-04_JPRB,0.30257E-04_JPRB,0.29929E-04_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.23826E-04_JPRB,0.24579E-04_JPRB,0.24815E-04_JPRB,0.24762E-04_JPRB,0.24572E-04_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.19377E-04_JPRB,0.19814E-04_JPRB,0.20191E-04_JPRB,0.20227E-04_JPRB,0.20080E-04_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.15665E-04_JPRB,0.15965E-04_JPRB,0.16366E-04_JPRB,0.16467E-04_JPRB,0.16386E-04_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.12631E-04_JPRB,0.12915E-04_JPRB,0.13203E-04_JPRB,0.13389E-04_JPRB,0.13403E-04_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.10160E-04_JPRB,0.10402E-04_JPRB,0.10609E-04_JPRB,0.10858E-04_JPRB,0.10900E-04_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.81514E-05_JPRB,0.83717E-05_JPRB,0.85717E-05_JPRB,0.87255E-05_JPRB,0.88490E-05_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.65924E-05_JPRB,0.67623E-05_JPRB,0.69218E-05_JPRB,0.70363E-05_JPRB,0.71744E-05_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.53378E-05_JPRB,0.54823E-05_JPRB,0.56002E-05_JPRB,0.57079E-05_JPRB,0.58136E-05_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.43093E-05_JPRB,0.44306E-05_JPRB,0.45341E-05_JPRB,0.46443E-05_JPRB,0.47053E-05_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.34880E-05_JPRB,0.35826E-05_JPRB,0.36738E-05_JPRB,0.37492E-05_JPRB,0.38094E-05_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.28214E-05_JPRB,0.28911E-05_JPRB,0.29636E-05_JPRB,0.30269E-05_JPRB,0.30943E-05_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.23049E-05_JPRB,0.23610E-05_JPRB,0.24232E-05_JPRB,0.24708E-05_JPRB,0.25266E-05_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.16886E-01_JPRB,0.17177E-01_JPRB,0.17415E-01_JPRB,0.17613E-01_JPRB,0.17771E-01_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.14297E-01_JPRB,0.14572E-01_JPRB,0.14791E-01_JPRB,0.14925E-01_JPRB,0.15051E-01_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.12142E-01_JPRB,0.12342E-01_JPRB,0.12507E-01_JPRB,0.12640E-01_JPRB,0.12754E-01_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.10284E-01_JPRB,0.10422E-01_JPRB,0.10545E-01_JPRB,0.10662E-01_JPRB,0.10740E-01_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.87377E-02_JPRB,0.88415E-02_JPRB,0.89329E-02_JPRB,0.90175E-02_JPRB,0.90716E-02_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.74766E-02_JPRB,0.75366E-02_JPRB,0.76038E-02_JPRB,0.76818E-02_JPRB,0.77135E-02_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.64241E-02_JPRB,0.64546E-02_JPRB,0.65027E-02_JPRB,0.65449E-02_JPRB,0.65755E-02_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.54390E-02_JPRB,0.54528E-02_JPRB,0.54854E-02_JPRB,0.55046E-02_JPRB,0.55309E-02_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.45856E-02_JPRB,0.45888E-02_JPRB,0.46080E-02_JPRB,0.46219E-02_JPRB,0.46381E-02_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.38581E-02_JPRB,0.38555E-02_JPRB,0.38631E-02_JPRB,0.38756E-02_JPRB,0.38888E-02_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.32522E-02_JPRB,0.32442E-02_JPRB,0.32437E-02_JPRB,0.32522E-02_JPRB,0.32616E-02_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.27421E-02_JPRB,0.27302E-02_JPRB,0.27267E-02_JPRB,0.27311E-02_JPRB,0.27351E-02_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.23082E-02_JPRB,0.22984E-02_JPRB,0.22916E-02_JPRB,0.22928E-02_JPRB,0.22950E-02_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.19386E-02_JPRB,0.19299E-02_JPRB,0.19241E-02_JPRB,0.19234E-02_JPRB,0.19234E-02_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.16295E-02_JPRB,0.16227E-02_JPRB,0.16172E-02_JPRB,0.16132E-02_JPRB,0.16138E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,28, 4) = (/ &
+ & 0.13714E-02_JPRB,0.13653E-02_JPRB,0.13589E-02_JPRB,0.13555E-02_JPRB,0.13562E-02_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.11583E-02_JPRB,0.11513E-02_JPRB,0.11440E-02_JPRB,0.11416E-02_JPRB,0.11458E-02_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.98213E-03_JPRB,0.97362E-03_JPRB,0.96774E-03_JPRB,0.96738E-03_JPRB,0.97898E-03_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.83694E-03_JPRB,0.82733E-03_JPRB,0.82506E-03_JPRB,0.82584E-03_JPRB,0.83454E-03_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.71631E-03_JPRB,0.70972E-03_JPRB,0.70944E-03_JPRB,0.70782E-03_JPRB,0.71382E-03_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.62056E-03_JPRB,0.61607E-03_JPRB,0.61112E-03_JPRB,0.60974E-03_JPRB,0.61416E-03_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.54260E-03_JPRB,0.53530E-03_JPRB,0.53018E-03_JPRB,0.53196E-03_JPRB,0.53190E-03_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.47557E-03_JPRB,0.47060E-03_JPRB,0.46470E-03_JPRB,0.46463E-03_JPRB,0.46278E-03_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.42108E-03_JPRB,0.41716E-03_JPRB,0.41356E-03_JPRB,0.41052E-03_JPRB,0.40671E-03_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.36059E-03_JPRB,0.35753E-03_JPRB,0.35465E-03_JPRB,0.35204E-03_JPRB,0.34625E-03_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.30926E-03_JPRB,0.30682E-03_JPRB,0.30403E-03_JPRB,0.30126E-03_JPRB,0.29597E-03_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.26586E-03_JPRB,0.26397E-03_JPRB,0.26023E-03_JPRB,0.25654E-03_JPRB,0.25399E-03_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.22228E-03_JPRB,0.22028E-03_JPRB,0.21711E-03_JPRB,0.21418E-03_JPRB,0.21203E-03_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.18516E-03_JPRB,0.18277E-03_JPRB,0.18056E-03_JPRB,0.17797E-03_JPRB,0.17615E-03_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.15367E-03_JPRB,0.15191E-03_JPRB,0.15012E-03_JPRB,0.14803E-03_JPRB,0.14667E-03_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.12696E-03_JPRB,0.12546E-03_JPRB,0.12398E-03_JPRB,0.12239E-03_JPRB,0.12042E-03_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.10470E-03_JPRB,0.10323E-03_JPRB,0.10199E-03_JPRB,0.10082E-03_JPRB,0.99093E-04_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.86543E-04_JPRB,0.84786E-04_JPRB,0.83972E-04_JPRB,0.82789E-04_JPRB,0.81392E-04_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.71529E-04_JPRB,0.69963E-04_JPRB,0.68982E-04_JPRB,0.67996E-04_JPRB,0.66867E-04_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.59457E-04_JPRB,0.57707E-04_JPRB,0.56668E-04_JPRB,0.55899E-04_JPRB,0.54959E-04_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.49467E-04_JPRB,0.47679E-04_JPRB,0.46593E-04_JPRB,0.45887E-04_JPRB,0.45090E-04_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.40766E-04_JPRB,0.39435E-04_JPRB,0.38281E-04_JPRB,0.37548E-04_JPRB,0.37003E-04_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.33628E-04_JPRB,0.32753E-04_JPRB,0.31623E-04_JPRB,0.30893E-04_JPRB,0.30385E-04_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.27865E-04_JPRB,0.27055E-04_JPRB,0.26162E-04_JPRB,0.25458E-04_JPRB,0.24898E-04_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.22934E-04_JPRB,0.22328E-04_JPRB,0.21731E-04_JPRB,0.20990E-04_JPRB,0.20456E-04_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.18846E-04_JPRB,0.18445E-04_JPRB,0.17912E-04_JPRB,0.17357E-04_JPRB,0.16833E-04_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.15388E-04_JPRB,0.15212E-04_JPRB,0.14808E-04_JPRB,0.14414E-04_JPRB,0.13935E-04_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.12598E-04_JPRB,0.12543E-04_JPRB,0.12261E-04_JPRB,0.11957E-04_JPRB,0.11571E-04_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.10381E-04_JPRB,0.10344E-04_JPRB,0.10166E-04_JPRB,0.98775E-05_JPRB,0.96020E-05_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.85457E-05_JPRB,0.84639E-05_JPRB,0.83932E-05_JPRB,0.81757E-05_JPRB,0.79545E-05_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.70397E-05_JPRB,0.69486E-05_JPRB,0.69316E-05_JPRB,0.67696E-05_JPRB,0.65859E-05_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.58257E-05_JPRB,0.57596E-05_JPRB,0.57448E-05_JPRB,0.56300E-05_JPRB,0.54831E-05_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.33040E-01_JPRB,0.33623E-01_JPRB,0.34360E-01_JPRB,0.35360E-01_JPRB,0.36383E-01_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.28634E-01_JPRB,0.29145E-01_JPRB,0.29913E-01_JPRB,0.30773E-01_JPRB,0.31595E-01_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.24852E-01_JPRB,0.25387E-01_JPRB,0.26038E-01_JPRB,0.26736E-01_JPRB,0.27406E-01_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.21426E-01_JPRB,0.21995E-01_JPRB,0.22531E-01_JPRB,0.23082E-01_JPRB,0.23575E-01_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.18563E-01_JPRB,0.19011E-01_JPRB,0.19492E-01_JPRB,0.19940E-01_JPRB,0.20337E-01_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.16067E-01_JPRB,0.16476E-01_JPRB,0.16902E-01_JPRB,0.17235E-01_JPRB,0.17579E-01_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.13911E-01_JPRB,0.14318E-01_JPRB,0.14657E-01_JPRB,0.14999E-01_JPRB,0.15265E-01_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.11889E-01_JPRB,0.12220E-01_JPRB,0.12522E-01_JPRB,0.12793E-01_JPRB,0.13028E-01_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.10107E-01_JPRB,0.10365E-01_JPRB,0.10626E-01_JPRB,0.10840E-01_JPRB,0.11030E-01_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.85828E-02_JPRB,0.88037E-02_JPRB,0.90066E-02_JPRB,0.91828E-02_JPRB,0.93108E-02_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.72873E-02_JPRB,0.74698E-02_JPRB,0.76229E-02_JPRB,0.77606E-02_JPRB,0.78812E-02_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.61731E-02_JPRB,0.63486E-02_JPRB,0.64551E-02_JPRB,0.65686E-02_JPRB,0.66826E-02_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.52349E-02_JPRB,0.53827E-02_JPRB,0.54728E-02_JPRB,0.55581E-02_JPRB,0.56691E-02_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.44343E-02_JPRB,0.45615E-02_JPRB,0.46303E-02_JPRB,0.47140E-02_JPRB,0.48058E-02_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.37566E-02_JPRB,0.38599E-02_JPRB,0.39250E-02_JPRB,0.39996E-02_JPRB,0.40739E-02_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.31898E-02_JPRB,0.32700E-02_JPRB,0.33284E-02_JPRB,0.33863E-02_JPRB,0.34483E-02_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.27069E-02_JPRB,0.27638E-02_JPRB,0.28173E-02_JPRB,0.28668E-02_JPRB,0.29159E-02_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.22952E-02_JPRB,0.23414E-02_JPRB,0.23862E-02_JPRB,0.24319E-02_JPRB,0.25045E-02_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.19469E-02_JPRB,0.19866E-02_JPRB,0.20269E-02_JPRB,0.20617E-02_JPRB,0.21285E-02_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.16569E-02_JPRB,0.16912E-02_JPRB,0.17225E-02_JPRB,0.17537E-02_JPRB,0.18151E-02_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.14159E-02_JPRB,0.14407E-02_JPRB,0.14672E-02_JPRB,0.14987E-02_JPRB,0.15568E-02_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.12124E-02_JPRB,0.12314E-02_JPRB,0.12565E-02_JPRB,0.13096E-02_JPRB,0.13455E-02_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.10402E-02_JPRB,0.10574E-02_JPRB,0.10852E-02_JPRB,0.11323E-02_JPRB,0.11671E-02_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.89606E-03_JPRB,0.91393E-03_JPRB,0.93957E-03_JPRB,0.98258E-03_JPRB,0.10142E-02_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.75556E-03_JPRB,0.77347E-03_JPRB,0.79494E-03_JPRB,0.83337E-03_JPRB,0.86466E-03_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.63793E-03_JPRB,0.65386E-03_JPRB,0.67373E-03_JPRB,0.70925E-03_JPRB,0.73610E-03_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.53995E-03_JPRB,0.55394E-03_JPRB,0.57091E-03_JPRB,0.59316E-03_JPRB,0.62725E-03_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.44830E-03_JPRB,0.46041E-03_JPRB,0.47605E-03_JPRB,0.49517E-03_JPRB,0.52406E-03_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.37113E-03_JPRB,0.38143E-03_JPRB,0.39555E-03_JPRB,0.41230E-03_JPRB,0.43648E-03_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.30743E-03_JPRB,0.31617E-03_JPRB,0.32840E-03_JPRB,0.34246E-03_JPRB,0.36323E-03_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.25237E-03_JPRB,0.25981E-03_JPRB,0.27013E-03_JPRB,0.28179E-03_JPRB,0.29414E-03_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.20643E-03_JPRB,0.21247E-03_JPRB,0.22138E-03_JPRB,0.23093E-03_JPRB,0.24175E-03_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.16882E-03_JPRB,0.17379E-03_JPRB,0.18072E-03_JPRB,0.18917E-03_JPRB,0.19837E-03_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.13808E-03_JPRB,0.14140E-03_JPRB,0.14740E-03_JPRB,0.15462E-03_JPRB,0.16243E-03_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.11262E-03_JPRB,0.11523E-03_JPRB,0.12010E-03_JPRB,0.12571E-03_JPRB,0.13225E-03_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.91738E-04_JPRB,0.93816E-04_JPRB,0.97414E-04_JPRB,0.10204E-03_JPRB,0.10733E-03_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.74533E-04_JPRB,0.76356E-04_JPRB,0.78756E-04_JPRB,0.82697E-04_JPRB,0.86848E-04_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.60870E-04_JPRB,0.62211E-04_JPRB,0.64031E-04_JPRB,0.67056E-04_JPRB,0.70590E-04_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.49547E-04_JPRB,0.50786E-04_JPRB,0.52181E-04_JPRB,0.54428E-04_JPRB,0.57574E-04_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.40457E-04_JPRB,0.41364E-04_JPRB,0.42403E-04_JPRB,0.44095E-04_JPRB,0.46746E-04_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.33032E-04_JPRB,0.33540E-04_JPRB,0.34449E-04_JPRB,0.35762E-04_JPRB,0.37780E-04_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.27201E-04_JPRB,0.27411E-04_JPRB,0.28166E-04_JPRB,0.29168E-04_JPRB,0.30744E-04_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.22471E-04_JPRB,0.22532E-04_JPRB,0.23075E-04_JPRB,0.23887E-04_JPRB,0.25092E-04_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.18480E-04_JPRB,0.18516E-04_JPRB,0.18857E-04_JPRB,0.19555E-04_JPRB,0.20483E-04_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.15198E-04_JPRB,0.15262E-04_JPRB,0.15424E-04_JPRB,0.15989E-04_JPRB,0.16742E-04_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.12523E-04_JPRB,0.12562E-04_JPRB,0.12648E-04_JPRB,0.13089E-04_JPRB,0.13686E-04_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.10416E-04_JPRB,0.10433E-04_JPRB,0.10536E-04_JPRB,0.10919E-04_JPRB,0.11421E-04_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.69718E-01_JPRB,0.71167E-01_JPRB,0.72961E-01_JPRB,0.74885E-01_JPRB,0.77322E-01_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.62182E-01_JPRB,0.63649E-01_JPRB,0.65193E-01_JPRB,0.67193E-01_JPRB,0.69746E-01_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.55177E-01_JPRB,0.56711E-01_JPRB,0.58414E-01_JPRB,0.60422E-01_JPRB,0.62756E-01_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.48867E-01_JPRB,0.50234E-01_JPRB,0.52023E-01_JPRB,0.54055E-01_JPRB,0.56254E-01_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.43174E-01_JPRB,0.44610E-01_JPRB,0.46287E-01_JPRB,0.48302E-01_JPRB,0.50389E-01_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.38339E-01_JPRB,0.39749E-01_JPRB,0.41335E-01_JPRB,0.43237E-01_JPRB,0.45123E-01_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.34315E-01_JPRB,0.35543E-01_JPRB,0.37065E-01_JPRB,0.38754E-01_JPRB,0.40597E-01_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.30036E-01_JPRB,0.31291E-01_JPRB,0.32637E-01_JPRB,0.34202E-01_JPRB,0.35839E-01_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.26135E-01_JPRB,0.27343E-01_JPRB,0.28574E-01_JPRB,0.30000E-01_JPRB,0.31460E-01_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.22750E-01_JPRB,0.23832E-01_JPRB,0.25080E-01_JPRB,0.26299E-01_JPRB,0.27580E-01_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.19795E-01_JPRB,0.20915E-01_JPRB,0.22028E-01_JPRB,0.23060E-01_JPRB,0.24140E-01_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.17353E-01_JPRB,0.18346E-01_JPRB,0.19305E-01_JPRB,0.20238E-01_JPRB,0.21103E-01_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.15226E-01_JPRB,0.16064E-01_JPRB,0.16955E-01_JPRB,0.17722E-01_JPRB,0.18477E-01_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.13309E-01_JPRB,0.14087E-01_JPRB,0.14848E-01_JPRB,0.15498E-01_JPRB,0.16180E-01_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.11623E-01_JPRB,0.12295E-01_JPRB,0.12913E-01_JPRB,0.13525E-01_JPRB,0.14113E-01_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.10147E-01_JPRB,0.10710E-01_JPRB,0.11240E-01_JPRB,0.11795E-01_JPRB,0.12384E-01_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.87968E-02_JPRB,0.92904E-02_JPRB,0.97797E-02_JPRB,0.10288E-01_JPRB,0.10828E-01_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.76490E-02_JPRB,0.80771E-02_JPRB,0.85219E-02_JPRB,0.90152E-02_JPRB,0.97888E-02_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.66330E-02_JPRB,0.70376E-02_JPRB,0.74659E-02_JPRB,0.79113E-02_JPRB,0.86622E-02_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.58073E-02_JPRB,0.61697E-02_JPRB,0.65754E-02_JPRB,0.70309E-02_JPRB,0.77115E-02_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.51062E-02_JPRB,0.54682E-02_JPRB,0.58582E-02_JPRB,0.62737E-02_JPRB,0.69163E-02_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.45302E-02_JPRB,0.48855E-02_JPRB,0.52639E-02_JPRB,0.58227E-02_JPRB,0.62719E-02_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.40254E-02_JPRB,0.43599E-02_JPRB,0.47158E-02_JPRB,0.52732E-02_JPRB,0.57228E-02_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.35647E-02_JPRB,0.38837E-02_JPRB,0.42167E-02_JPRB,0.47705E-02_JPRB,0.52032E-02_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.30730E-02_JPRB,0.33561E-02_JPRB,0.36823E-02_JPRB,0.41868E-02_JPRB,0.45932E-02_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.26407E-02_JPRB,0.29052E-02_JPRB,0.32061E-02_JPRB,0.36781E-02_JPRB,0.40664E-02_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.22667E-02_JPRB,0.25156E-02_JPRB,0.28017E-02_JPRB,0.31173E-02_JPRB,0.36136E-02_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.19056E-02_JPRB,0.21267E-02_JPRB,0.23879E-02_JPRB,0.26789E-02_JPRB,0.31309E-02_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.15967E-02_JPRB,0.17952E-02_JPRB,0.20263E-02_JPRB,0.22865E-02_JPRB,0.27062E-02_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.13343E-02_JPRB,0.15081E-02_JPRB,0.17167E-02_JPRB,0.19538E-02_JPRB,0.23416E-02_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.10981E-02_JPRB,0.12492E-02_JPRB,0.14292E-02_JPRB,0.16430E-02_JPRB,0.19013E-02_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.89464E-03_JPRB,0.10267E-02_JPRB,0.11827E-02_JPRB,0.13698E-02_JPRB,0.16046E-02_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.72683E-03_JPRB,0.83985E-03_JPRB,0.97469E-03_JPRB,0.11376E-02_JPRB,0.13459E-02_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.58610E-03_JPRB,0.68242E-03_JPRB,0.79873E-03_JPRB,0.94079E-03_JPRB,0.11248E-02_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.46823E-03_JPRB,0.54958E-03_JPRB,0.64876E-03_JPRB,0.77111E-03_JPRB,0.93276E-03_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.37202E-03_JPRB,0.44089E-03_JPRB,0.52431E-03_JPRB,0.62811E-03_JPRB,0.76979E-03_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.29424E-03_JPRB,0.35087E-03_JPRB,0.42017E-03_JPRB,0.50926E-03_JPRB,0.63166E-03_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.23381E-03_JPRB,0.28036E-03_JPRB,0.33854E-03_JPRB,0.41547E-03_JPRB,0.52066E-03_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.18542E-03_JPRB,0.22410E-03_JPRB,0.27211E-03_JPRB,0.33806E-03_JPRB,0.42775E-03_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.14646E-03_JPRB,0.17824E-03_JPRB,0.21799E-03_JPRB,0.27400E-03_JPRB,0.34964E-03_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.11499E-03_JPRB,0.14049E-03_JPRB,0.17412E-03_JPRB,0.22038E-03_JPRB,0.28435E-03_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.91160E-04_JPRB,0.11217E-03_JPRB,0.13972E-03_JPRB,0.17793E-03_JPRB,0.23213E-03_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.72474E-04_JPRB,0.89606E-04_JPRB,0.11228E-03_JPRB,0.14368E-03_JPRB,0.18928E-03_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.57463E-04_JPRB,0.71291E-04_JPRB,0.89786E-04_JPRB,0.11554E-03_JPRB,0.15352E-03_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.45287E-04_JPRB,0.56571E-04_JPRB,0.71524E-04_JPRB,0.92319E-04_JPRB,0.12382E-03_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.35841E-04_JPRB,0.44939E-04_JPRB,0.57025E-04_JPRB,0.73710E-04_JPRB,0.99673E-04_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.29941E-04_JPRB,0.37721E-04_JPRB,0.48119E-04_JPRB,0.62420E-04_JPRB,0.85059E-04_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.16189E+00_JPRB,0.16561E+00_JPRB,0.16999E+00_JPRB,0.17514E+00_JPRB,0.18068E+00_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.14981E+00_JPRB,0.15416E+00_JPRB,0.15917E+00_JPRB,0.16420E+00_JPRB,0.16989E+00_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.13875E+00_JPRB,0.14297E+00_JPRB,0.14757E+00_JPRB,0.15249E+00_JPRB,0.15852E+00_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.12672E+00_JPRB,0.13073E+00_JPRB,0.13523E+00_JPRB,0.14037E+00_JPRB,0.14640E+00_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.11530E+00_JPRB,0.11958E+00_JPRB,0.12450E+00_JPRB,0.12975E+00_JPRB,0.13596E+00_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.10572E+00_JPRB,0.11005E+00_JPRB,0.11482E+00_JPRB,0.12031E+00_JPRB,0.12674E+00_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.97798E-01_JPRB,0.10221E+00_JPRB,0.10713E+00_JPRB,0.11251E+00_JPRB,0.11882E+00_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.88438E-01_JPRB,0.93059E-01_JPRB,0.98290E-01_JPRB,0.10406E+00_JPRB,0.11034E+00_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.79615E-01_JPRB,0.84383E-01_JPRB,0.89776E-01_JPRB,0.95707E-01_JPRB,0.10218E+00_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.71663E-01_JPRB,0.76568E-01_JPRB,0.81968E-01_JPRB,0.88106E-01_JPRB,0.94703E-01_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.64729E-01_JPRB,0.69601E-01_JPRB,0.75178E-01_JPRB,0.81445E-01_JPRB,0.88072E-01_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.58713E-01_JPRB,0.63692E-01_JPRB,0.69398E-01_JPRB,0.75609E-01_JPRB,0.82402E-01_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.53422E-01_JPRB,0.58504E-01_JPRB,0.64255E-01_JPRB,0.70582E-01_JPRB,0.77266E-01_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.48884E-01_JPRB,0.53907E-01_JPRB,0.59754E-01_JPRB,0.66093E-01_JPRB,0.72781E-01_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.44782E-01_JPRB,0.49959E-01_JPRB,0.55649E-01_JPRB,0.61937E-01_JPRB,0.68517E-01_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.41164E-01_JPRB,0.46305E-01_JPRB,0.52009E-01_JPRB,0.58205E-01_JPRB,0.64389E-01_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.37976E-01_JPRB,0.43033E-01_JPRB,0.48696E-01_JPRB,0.54470E-01_JPRB,0.60707E-01_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.35210E-01_JPRB,0.40258E-01_JPRB,0.45653E-01_JPRB,0.51435E-01_JPRB,0.59091E-01_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.32774E-01_JPRB,0.37557E-01_JPRB,0.43028E-01_JPRB,0.48762E-01_JPRB,0.56208E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,32, 7) = (/ &
+ & 0.30628E-01_JPRB,0.35555E-01_JPRB,0.40840E-01_JPRB,0.46513E-01_JPRB,0.53917E-01_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.29120E-01_JPRB,0.33908E-01_JPRB,0.39209E-01_JPRB,0.44801E-01_JPRB,0.52179E-01_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.27843E-01_JPRB,0.32610E-01_JPRB,0.37873E-01_JPRB,0.45101E-01_JPRB,0.51127E-01_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.26429E-01_JPRB,0.31201E-01_JPRB,0.36480E-01_JPRB,0.43796E-01_JPRB,0.49886E-01_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.24910E-01_JPRB,0.29603E-01_JPRB,0.34935E-01_JPRB,0.42317E-01_JPRB,0.48474E-01_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.22623E-01_JPRB,0.27186E-01_JPRB,0.32364E-01_JPRB,0.39709E-01_JPRB,0.45895E-01_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.20536E-01_JPRB,0.25035E-01_JPRB,0.30138E-01_JPRB,0.37341E-01_JPRB,0.43584E-01_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.18744E-01_JPRB,0.23143E-01_JPRB,0.28133E-01_JPRB,0.33754E-01_JPRB,0.41569E-01_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.16632E-01_JPRB,0.20751E-01_JPRB,0.25556E-01_JPRB,0.30972E-01_JPRB,0.38593E-01_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.14671E-01_JPRB,0.18541E-01_JPRB,0.23110E-01_JPRB,0.28292E-01_JPRB,0.35702E-01_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.12909E-01_JPRB,0.16573E-01_JPRB,0.20901E-01_JPRB,0.25885E-01_JPRB,0.32997E-01_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.11155E-01_JPRB,0.14521E-01_JPRB,0.18561E-01_JPRB,0.23268E-01_JPRB,0.28558E-01_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.95144E-02_JPRB,0.12576E-01_JPRB,0.16313E-01_JPRB,0.20662E-01_JPRB,0.25638E-01_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.80643E-02_JPRB,0.10847E-01_JPRB,0.14290E-01_JPRB,0.18347E-01_JPRB,0.23034E-01_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.67589E-02_JPRB,0.92659E-02_JPRB,0.12372E-01_JPRB,0.16082E-01_JPRB,0.20456E-01_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.55482E-02_JPRB,0.77474E-02_JPRB,0.10528E-01_JPRB,0.13920E-01_JPRB,0.17966E-01_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.45013E-02_JPRB,0.64175E-02_JPRB,0.88907E-02_JPRB,0.11958E-01_JPRB,0.15638E-01_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.36173E-02_JPRB,0.52743E-02_JPRB,0.74530E-02_JPRB,0.10200E-01_JPRB,0.13544E-01_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.29073E-02_JPRB,0.43372E-02_JPRB,0.62514E-02_JPRB,0.87078E-02_JPRB,0.11757E-01_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.23200E-02_JPRB,0.35429E-02_JPRB,0.52236E-02_JPRB,0.74160E-02_JPRB,0.10190E-01_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.18398E-02_JPRB,0.28704E-02_JPRB,0.43321E-02_JPRB,0.62743E-02_JPRB,0.87585E-02_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.14394E-02_JPRB,0.22999E-02_JPRB,0.35535E-02_JPRB,0.52615E-02_JPRB,0.74854E-02_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.11368E-02_JPRB,0.18545E-02_JPRB,0.29326E-02_JPRB,0.44372E-02_JPRB,0.64347E-02_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.89467E-03_JPRB,0.14935E-02_JPRB,0.24197E-02_JPRB,0.37410E-02_JPRB,0.55222E-02_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.69687E-03_JPRB,0.11894E-02_JPRB,0.19763E-02_JPRB,0.31286E-02_JPRB,0.47149E-02_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.53791E-03_JPRB,0.93747E-03_JPRB,0.15990E-02_JPRB,0.25976E-02_JPRB,0.39986E-02_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.41410E-03_JPRB,0.73971E-03_JPRB,0.12907E-02_JPRB,0.21482E-02_JPRB,0.33858E-02_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.35405E-03_JPRB,0.64717E-03_JPRB,0.11503E-02_JPRB,0.19466E-02_JPRB,0.31094E-02_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.45516E+00_JPRB,0.46955E+00_JPRB,0.48450E+00_JPRB,0.50029E+00_JPRB,0.51769E+00_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.43991E+00_JPRB,0.45312E+00_JPRB,0.46646E+00_JPRB,0.48116E+00_JPRB,0.49718E+00_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.42871E+00_JPRB,0.44246E+00_JPRB,0.45762E+00_JPRB,0.47406E+00_JPRB,0.49132E+00_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.40699E+00_JPRB,0.42153E+00_JPRB,0.43710E+00_JPRB,0.45468E+00_JPRB,0.47435E+00_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.38538E+00_JPRB,0.39940E+00_JPRB,0.41418E+00_JPRB,0.43146E+00_JPRB,0.45140E+00_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.36235E+00_JPRB,0.37741E+00_JPRB,0.39391E+00_JPRB,0.41121E+00_JPRB,0.43054E+00_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.34180E+00_JPRB,0.35677E+00_JPRB,0.37295E+00_JPRB,0.39070E+00_JPRB,0.41121E+00_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.31818E+00_JPRB,0.33243E+00_JPRB,0.34824E+00_JPRB,0.36683E+00_JPRB,0.38832E+00_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.29454E+00_JPRB,0.30892E+00_JPRB,0.32519E+00_JPRB,0.34434E+00_JPRB,0.36621E+00_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.27292E+00_JPRB,0.28819E+00_JPRB,0.30567E+00_JPRB,0.32553E+00_JPRB,0.34730E+00_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.25455E+00_JPRB,0.27053E+00_JPRB,0.28810E+00_JPRB,0.30845E+00_JPRB,0.33065E+00_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.23920E+00_JPRB,0.25523E+00_JPRB,0.27293E+00_JPRB,0.29370E+00_JPRB,0.31644E+00_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.22572E+00_JPRB,0.24152E+00_JPRB,0.26024E+00_JPRB,0.28092E+00_JPRB,0.30402E+00_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.21333E+00_JPRB,0.23053E+00_JPRB,0.24913E+00_JPRB,0.27069E+00_JPRB,0.29445E+00_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.20216E+00_JPRB,0.22006E+00_JPRB,0.23987E+00_JPRB,0.26172E+00_JPRB,0.28552E+00_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.19243E+00_JPRB,0.21106E+00_JPRB,0.23162E+00_JPRB,0.25373E+00_JPRB,0.27880E+00_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.18399E+00_JPRB,0.20352E+00_JPRB,0.22446E+00_JPRB,0.24815E+00_JPRB,0.27383E+00_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.17696E+00_JPRB,0.19707E+00_JPRB,0.21934E+00_JPRB,0.24428E+00_JPRB,0.27560E+00_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.17154E+00_JPRB,0.19276E+00_JPRB,0.21622E+00_JPRB,0.24297E+00_JPRB,0.27512E+00_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.16864E+00_JPRB,0.19074E+00_JPRB,0.21586E+00_JPRB,0.24341E+00_JPRB,0.27678E+00_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.16705E+00_JPRB,0.19103E+00_JPRB,0.21725E+00_JPRB,0.24571E+00_JPRB,0.27988E+00_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.16718E+00_JPRB,0.19214E+00_JPRB,0.21923E+00_JPRB,0.25236E+00_JPRB,0.28358E+00_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.16615E+00_JPRB,0.19194E+00_JPRB,0.21973E+00_JPRB,0.25386E+00_JPRB,0.28528E+00_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.16355E+00_JPRB,0.18981E+00_JPRB,0.21857E+00_JPRB,0.25318E+00_JPRB,0.28503E+00_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.15644E+00_JPRB,0.18272E+00_JPRB,0.21137E+00_JPRB,0.24627E+00_JPRB,0.27830E+00_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.14985E+00_JPRB,0.17574E+00_JPRB,0.20437E+00_JPRB,0.23950E+00_JPRB,0.27160E+00_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.14373E+00_JPRB,0.16918E+00_JPRB,0.19762E+00_JPRB,0.22814E+00_JPRB,0.26522E+00_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.13479E+00_JPRB,0.15968E+00_JPRB,0.18756E+00_JPRB,0.21775E+00_JPRB,0.25463E+00_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.12605E+00_JPRB,0.15045E+00_JPRB,0.17752E+00_JPRB,0.20726E+00_JPRB,0.24367E+00_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.11784E+00_JPRB,0.14153E+00_JPRB,0.16784E+00_JPRB,0.19712E+00_JPRB,0.23353E+00_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.10839E+00_JPRB,0.13122E+00_JPRB,0.15696E+00_JPRB,0.18528E+00_JPRB,0.21641E+00_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.98772E-01_JPRB,0.12078E+00_JPRB,0.14549E+00_JPRB,0.17313E+00_JPRB,0.20344E+00_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.89757E-01_JPRB,0.11096E+00_JPRB,0.13484E+00_JPRB,0.16135E+00_JPRB,0.19086E+00_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.80754E-01_JPRB,0.10111E+00_JPRB,0.12397E+00_JPRB,0.14951E+00_JPRB,0.17812E+00_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.71551E-01_JPRB,0.90848E-01_JPRB,0.11265E+00_JPRB,0.13712E+00_JPRB,0.16456E+00_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.63023E-01_JPRB,0.81188E-01_JPRB,0.10192E+00_JPRB,0.12530E+00_JPRB,0.15155E+00_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.55112E-01_JPRB,0.71966E-01_JPRB,0.91627E-01_JPRB,0.11386E+00_JPRB,0.13887E+00_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.48148E-01_JPRB,0.63904E-01_JPRB,0.82545E-01_JPRB,0.10380E+00_JPRB,0.12775E+00_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.42077E-01_JPRB,0.56742E-01_JPRB,0.74219E-01_JPRB,0.94436E-01_JPRB,0.11735E+00_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.36406E-01_JPRB,0.49929E-01_JPRB,0.66400E-01_JPRB,0.85557E-01_JPRB,0.10751E+00_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.31162E-01_JPRB,0.43645E-01_JPRB,0.58971E-01_JPRB,0.77049E-01_JPRB,0.97772E-01_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.26848E-01_JPRB,0.38389E-01_JPRB,0.52700E-01_JPRB,0.69937E-01_JPRB,0.89664E-01_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.23145E-01_JPRB,0.33793E-01_JPRB,0.47177E-01_JPRB,0.63590E-01_JPRB,0.82440E-01_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.19764E-01_JPRB,0.29522E-01_JPRB,0.42050E-01_JPRB,0.57472E-01_JPRB,0.75623E-01_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.16713E-01_JPRB,0.25602E-01_JPRB,0.37259E-01_JPRB,0.51705E-01_JPRB,0.68976E-01_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.14134E-01_JPRB,0.22215E-01_JPRB,0.32983E-01_JPRB,0.46579E-01_JPRB,0.62982E-01_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.13103E-01_JPRB,0.20874E-01_JPRB,0.31397E-01_JPRB,0.44700E-01_JPRB,0.60881E-01_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.30563E+01_JPRB,0.31744E+01_JPRB,0.32842E+01_JPRB,0.33901E+01_JPRB,0.34937E+01_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.27752E+01_JPRB,0.28869E+01_JPRB,0.29933E+01_JPRB,0.30958E+01_JPRB,0.31932E+01_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.25099E+01_JPRB,0.26164E+01_JPRB,0.27185E+01_JPRB,0.28161E+01_JPRB,0.29094E+01_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.23062E+01_JPRB,0.23985E+01_JPRB,0.24887E+01_JPRB,0.25791E+01_JPRB,0.26657E+01_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.21996E+01_JPRB,0.22783E+01_JPRB,0.23521E+01_JPRB,0.24248E+01_JPRB,0.25028E+01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.22125E+01_JPRB,0.22932E+01_JPRB,0.23665E+01_JPRB,0.24375E+01_JPRB,0.25051E+01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.22641E+01_JPRB,0.23491E+01_JPRB,0.24239E+01_JPRB,0.24973E+01_JPRB,0.25657E+01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.22472E+01_JPRB,0.23357E+01_JPRB,0.24204E+01_JPRB,0.24964E+01_JPRB,0.25675E+01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.21851E+01_JPRB,0.22830E+01_JPRB,0.23690E+01_JPRB,0.24562E+01_JPRB,0.25370E+01_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.21175E+01_JPRB,0.22142E+01_JPRB,0.23108E+01_JPRB,0.24049E+01_JPRB,0.24949E+01_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.20447E+01_JPRB,0.21452E+01_JPRB,0.22435E+01_JPRB,0.23385E+01_JPRB,0.24298E+01_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.19721E+01_JPRB,0.20737E+01_JPRB,0.21717E+01_JPRB,0.22760E+01_JPRB,0.23715E+01_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.18957E+01_JPRB,0.20036E+01_JPRB,0.21100E+01_JPRB,0.22176E+01_JPRB,0.23221E+01_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.18288E+01_JPRB,0.19378E+01_JPRB,0.20515E+01_JPRB,0.21609E+01_JPRB,0.22728E+01_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.17692E+01_JPRB,0.18810E+01_JPRB,0.19951E+01_JPRB,0.21151E+01_JPRB,0.22361E+01_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.17168E+01_JPRB,0.18338E+01_JPRB,0.19558E+01_JPRB,0.20789E+01_JPRB,0.22051E+01_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.16702E+01_JPRB,0.17936E+01_JPRB,0.19235E+01_JPRB,0.20524E+01_JPRB,0.21850E+01_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.16394E+01_JPRB,0.17677E+01_JPRB,0.19029E+01_JPRB,0.20369E+01_JPRB,0.21882E+01_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.16228E+01_JPRB,0.17523E+01_JPRB,0.18896E+01_JPRB,0.20262E+01_JPRB,0.21815E+01_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.16178E+01_JPRB,0.17489E+01_JPRB,0.18859E+01_JPRB,0.20233E+01_JPRB,0.21838E+01_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.16221E+01_JPRB,0.17529E+01_JPRB,0.18876E+01_JPRB,0.20327E+01_JPRB,0.21960E+01_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.16321E+01_JPRB,0.17688E+01_JPRB,0.19069E+01_JPRB,0.20650E+01_JPRB,0.22191E+01_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.16388E+01_JPRB,0.17830E+01_JPRB,0.19261E+01_JPRB,0.20887E+01_JPRB,0.22365E+01_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.16423E+01_JPRB,0.17895E+01_JPRB,0.19390E+01_JPRB,0.21032E+01_JPRB,0.22561E+01_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.16080E+01_JPRB,0.17565E+01_JPRB,0.19076E+01_JPRB,0.20741E+01_JPRB,0.22287E+01_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.15745E+01_JPRB,0.17245E+01_JPRB,0.18721E+01_JPRB,0.20419E+01_JPRB,0.21969E+01_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.15386E+01_JPRB,0.16919E+01_JPRB,0.18410E+01_JPRB,0.19923E+01_JPRB,0.21638E+01_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.14840E+01_JPRB,0.16355E+01_JPRB,0.17855E+01_JPRB,0.19337E+01_JPRB,0.21026E+01_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.14260E+01_JPRB,0.15758E+01_JPRB,0.17241E+01_JPRB,0.18746E+01_JPRB,0.20398E+01_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.13688E+01_JPRB,0.15162E+01_JPRB,0.16646E+01_JPRB,0.18157E+01_JPRB,0.19780E+01_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.13011E+01_JPRB,0.14473E+01_JPRB,0.15936E+01_JPRB,0.17402E+01_JPRB,0.18823E+01_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.12278E+01_JPRB,0.13710E+01_JPRB,0.15157E+01_JPRB,0.16568E+01_JPRB,0.17952E+01_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.11558E+01_JPRB,0.12957E+01_JPRB,0.14361E+01_JPRB,0.15731E+01_JPRB,0.17094E+01_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.10820E+01_JPRB,0.12147E+01_JPRB,0.13532E+01_JPRB,0.14890E+01_JPRB,0.16181E+01_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.10024E+01_JPRB,0.11346E+01_JPRB,0.12669E+01_JPRB,0.14002E+01_JPRB,0.15260E+01_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.92524E+00_JPRB,0.10524E+01_JPRB,0.11804E+01_JPRB,0.13068E+01_JPRB,0.14296E+01_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.84698E+00_JPRB,0.96805E+00_JPRB,0.10902E+01_JPRB,0.12100E+01_JPRB,0.13299E+01_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.78084E+00_JPRB,0.89928E+00_JPRB,0.10161E+01_JPRB,0.11323E+01_JPRB,0.12472E+01_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.72222E+00_JPRB,0.83480E+00_JPRB,0.94748E+00_JPRB,0.10626E+01_JPRB,0.11740E+01_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.66260E+00_JPRB,0.77045E+00_JPRB,0.88348E+00_JPRB,0.99181E+00_JPRB,0.10995E+01_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.60516E+00_JPRB,0.71083E+00_JPRB,0.81698E+00_JPRB,0.91863E+00_JPRB,0.10219E+01_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.56176E+00_JPRB,0.66472E+00_JPRB,0.77054E+00_JPRB,0.87249E+00_JPRB,0.97306E+00_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.52563E+00_JPRB,0.63037E+00_JPRB,0.73497E+00_JPRB,0.83878E+00_JPRB,0.93923E+00_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.49056E+00_JPRB,0.59429E+00_JPRB,0.69788E+00_JPRB,0.80509E+00_JPRB,0.90615E+00_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.45575E+00_JPRB,0.55861E+00_JPRB,0.66303E+00_JPRB,0.76942E+00_JPRB,0.87211E+00_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.42419E+00_JPRB,0.52609E+00_JPRB,0.63048E+00_JPRB,0.73708E+00_JPRB,0.84331E+00_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.42340E+00_JPRB,0.52953E+00_JPRB,0.63843E+00_JPRB,0.74879E+00_JPRB,0.86046E+00_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.14973E+02_JPRB,0.15466E+02_JPRB,0.15907E+02_JPRB,0.16294E+02_JPRB,0.16648E+02_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.13327E+02_JPRB,0.13717E+02_JPRB,0.14036E+02_JPRB,0.14348E+02_JPRB,0.14658E+02_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.12219E+02_JPRB,0.12428E+02_JPRB,0.12649E+02_JPRB,0.12810E+02_JPRB,0.12959E+02_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.11245E+02_JPRB,0.11501E+02_JPRB,0.11701E+02_JPRB,0.11817E+02_JPRB,0.11948E+02_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.96706E+01_JPRB,0.99707E+01_JPRB,0.10257E+02_JPRB,0.10540E+02_JPRB,0.10718E+02_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.83018E+01_JPRB,0.83446E+01_JPRB,0.84207E+01_JPRB,0.85262E+01_JPRB,0.86783E+01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.82250E+01_JPRB,0.81929E+01_JPRB,0.82337E+01_JPRB,0.82572E+01_JPRB,0.83177E+01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.81684E+01_JPRB,0.81782E+01_JPRB,0.82244E+01_JPRB,0.82765E+01_JPRB,0.82985E+01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.82586E+01_JPRB,0.83055E+01_JPRB,0.84017E+01_JPRB,0.83815E+01_JPRB,0.83594E+01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.83686E+01_JPRB,0.84604E+01_JPRB,0.85363E+01_JPRB,0.84786E+01_JPRB,0.84786E+01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.84301E+01_JPRB,0.85903E+01_JPRB,0.87569E+01_JPRB,0.87953E+01_JPRB,0.87965E+01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.85690E+01_JPRB,0.88097E+01_JPRB,0.90359E+01_JPRB,0.90994E+01_JPRB,0.92201E+01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.87852E+01_JPRB,0.90719E+01_JPRB,0.92672E+01_JPRB,0.94098E+01_JPRB,0.95600E+01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.88651E+01_JPRB,0.92334E+01_JPRB,0.94525E+01_JPRB,0.97256E+01_JPRB,0.98986E+01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.88645E+01_JPRB,0.92932E+01_JPRB,0.96152E+01_JPRB,0.98392E+01_JPRB,0.10037E+02_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.88548E+01_JPRB,0.93070E+01_JPRB,0.96176E+01_JPRB,0.99813E+01_JPRB,0.10238E+02_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.88198E+01_JPRB,0.92265E+01_JPRB,0.96024E+01_JPRB,0.99285E+01_JPRB,0.10232E+02_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.87818E+01_JPRB,0.92083E+01_JPRB,0.95579E+01_JPRB,0.98976E+01_JPRB,0.10208E+02_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.86036E+01_JPRB,0.90621E+01_JPRB,0.94967E+01_JPRB,0.98500E+01_JPRB,0.10159E+02_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.84748E+01_JPRB,0.89960E+01_JPRB,0.94428E+01_JPRB,0.98336E+01_JPRB,0.10196E+02_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.84172E+01_JPRB,0.89420E+01_JPRB,0.94383E+01_JPRB,0.98344E+01_JPRB,0.10060E+02_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.84605E+01_JPRB,0.89751E+01_JPRB,0.94683E+01_JPRB,0.98852E+01_JPRB,0.10023E+02_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.84589E+01_JPRB,0.89233E+01_JPRB,0.94002E+01_JPRB,0.98511E+01_JPRB,0.10024E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,36,10) = (/ &
+ & 0.84558E+01_JPRB,0.89580E+01_JPRB,0.93747E+01_JPRB,0.98030E+01_JPRB,0.10000E+02_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.82385E+01_JPRB,0.87614E+01_JPRB,0.91541E+01_JPRB,0.95514E+01_JPRB,0.97363E+01_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.80132E+01_JPRB,0.84437E+01_JPRB,0.89304E+01_JPRB,0.92902E+01_JPRB,0.94811E+01_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.78203E+01_JPRB,0.81981E+01_JPRB,0.85539E+01_JPRB,0.89689E+01_JPRB,0.90927E+01_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.75978E+01_JPRB,0.79610E+01_JPRB,0.82423E+01_JPRB,0.86095E+01_JPRB,0.88190E+01_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.73029E+01_JPRB,0.76481E+01_JPRB,0.79708E+01_JPRB,0.82445E+01_JPRB,0.84426E+01_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.70166E+01_JPRB,0.73754E+01_JPRB,0.76378E+01_JPRB,0.78862E+01_JPRB,0.80985E+01_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.66293E+01_JPRB,0.69504E+01_JPRB,0.72276E+01_JPRB,0.75120E+01_JPRB,0.77099E+01_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.62312E+01_JPRB,0.65696E+01_JPRB,0.68647E+01_JPRB,0.71226E+01_JPRB,0.73305E+01_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.58229E+01_JPRB,0.61620E+01_JPRB,0.64682E+01_JPRB,0.67341E+01_JPRB,0.69070E+01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.53657E+01_JPRB,0.57492E+01_JPRB,0.60377E+01_JPRB,0.63031E+01_JPRB,0.64992E+01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.50350E+01_JPRB,0.53678E+01_JPRB,0.56656E+01_JPRB,0.59201E+01_JPRB,0.61262E+01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.46566E+01_JPRB,0.49901E+01_JPRB,0.52633E+01_JPRB,0.54964E+01_JPRB,0.57537E+01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.42801E+01_JPRB,0.46217E+01_JPRB,0.49093E+01_JPRB,0.51104E+01_JPRB,0.53644E+01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.39613E+01_JPRB,0.43120E+01_JPRB,0.45848E+01_JPRB,0.48588E+01_JPRB,0.50774E+01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.37006E+01_JPRB,0.40662E+01_JPRB,0.43615E+01_JPRB,0.46264E+01_JPRB,0.48701E+01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.34485E+01_JPRB,0.37934E+01_JPRB,0.40667E+01_JPRB,0.43544E+01_JPRB,0.46481E+01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.31594E+01_JPRB,0.35032E+01_JPRB,0.37934E+01_JPRB,0.41156E+01_JPRB,0.44077E+01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.29800E+01_JPRB,0.33284E+01_JPRB,0.36333E+01_JPRB,0.39624E+01_JPRB,0.42528E+01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.28569E+01_JPRB,0.32159E+01_JPRB,0.35391E+01_JPRB,0.38186E+01_JPRB,0.41402E+01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.26907E+01_JPRB,0.31071E+01_JPRB,0.34476E+01_JPRB,0.36941E+01_JPRB,0.40212E+01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.25638E+01_JPRB,0.29869E+01_JPRB,0.33345E+01_JPRB,0.36081E+01_JPRB,0.38859E+01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.24665E+01_JPRB,0.28708E+01_JPRB,0.32402E+01_JPRB,0.35331E+01_JPRB,0.37851E+01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.25432E+01_JPRB,0.29855E+01_JPRB,0.33662E+01_JPRB,0.37020E+01_JPRB,0.39522E+01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.31099E+02_JPRB,0.31647E+02_JPRB,0.32241E+02_JPRB,0.32842E+02_JPRB,0.33417E+02_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.27698E+02_JPRB,0.28253E+02_JPRB,0.28859E+02_JPRB,0.29460E+02_JPRB,0.30083E+02_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.24330E+02_JPRB,0.24945E+02_JPRB,0.25542E+02_JPRB,0.26234E+02_JPRB,0.26922E+02_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.21190E+02_JPRB,0.21758E+02_JPRB,0.22384E+02_JPRB,0.23019E+02_JPRB,0.23628E+02_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.18967E+02_JPRB,0.19413E+02_JPRB,0.19858E+02_JPRB,0.20261E+02_JPRB,0.20672E+02_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.16374E+02_JPRB,0.16952E+02_JPRB,0.17497E+02_JPRB,0.17964E+02_JPRB,0.18478E+02_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.13248E+02_JPRB,0.13545E+02_JPRB,0.13847E+02_JPRB,0.14297E+02_JPRB,0.14705E+02_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.12757E+02_JPRB,0.12785E+02_JPRB,0.12667E+02_JPRB,0.12601E+02_JPRB,0.12612E+02_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.12844E+02_JPRB,0.12624E+02_JPRB,0.12433E+02_JPRB,0.12193E+02_JPRB,0.12175E+02_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.12738E+02_JPRB,0.12567E+02_JPRB,0.12225E+02_JPRB,0.12063E+02_JPRB,0.11980E+02_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.12815E+02_JPRB,0.12660E+02_JPRB,0.12272E+02_JPRB,0.12108E+02_JPRB,0.12066E+02_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.13079E+02_JPRB,0.12972E+02_JPRB,0.12651E+02_JPRB,0.12388E+02_JPRB,0.12367E+02_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.13341E+02_JPRB,0.13256E+02_JPRB,0.13023E+02_JPRB,0.12848E+02_JPRB,0.12659E+02_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.13512E+02_JPRB,0.13453E+02_JPRB,0.13443E+02_JPRB,0.13113E+02_JPRB,0.13141E+02_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.13706E+02_JPRB,0.13750E+02_JPRB,0.13824E+02_JPRB,0.13564E+02_JPRB,0.13665E+02_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.13979E+02_JPRB,0.14080E+02_JPRB,0.14203E+02_JPRB,0.13858E+02_JPRB,0.13981E+02_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.13934E+02_JPRB,0.14086E+02_JPRB,0.14156E+02_JPRB,0.14057E+02_JPRB,0.14114E+02_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.13981E+02_JPRB,0.13996E+02_JPRB,0.13975E+02_JPRB,0.14010E+02_JPRB,0.14196E+02_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.13896E+02_JPRB,0.13857E+02_JPRB,0.13654E+02_JPRB,0.13807E+02_JPRB,0.13871E+02_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.13655E+02_JPRB,0.13646E+02_JPRB,0.13416E+02_JPRB,0.13538E+02_JPRB,0.13488E+02_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.13398E+02_JPRB,0.13279E+02_JPRB,0.13235E+02_JPRB,0.13164E+02_JPRB,0.13195E+02_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.13280E+02_JPRB,0.13155E+02_JPRB,0.13035E+02_JPRB,0.13095E+02_JPRB,0.13023E+02_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.13174E+02_JPRB,0.13038E+02_JPRB,0.12951E+02_JPRB,0.12819E+02_JPRB,0.12932E+02_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.13159E+02_JPRB,0.12953E+02_JPRB,0.12943E+02_JPRB,0.12899E+02_JPRB,0.13077E+02_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.12968E+02_JPRB,0.12722E+02_JPRB,0.12741E+02_JPRB,0.12684E+02_JPRB,0.12881E+02_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.12648E+02_JPRB,0.12436E+02_JPRB,0.12390E+02_JPRB,0.12534E+02_JPRB,0.12593E+02_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.12145E+02_JPRB,0.12036E+02_JPRB,0.12198E+02_JPRB,0.12171E+02_JPRB,0.12374E+02_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.11784E+02_JPRB,0.11714E+02_JPRB,0.11852E+02_JPRB,0.11995E+02_JPRB,0.12020E+02_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.11419E+02_JPRB,0.11429E+02_JPRB,0.11554E+02_JPRB,0.11799E+02_JPRB,0.11809E+02_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.11076E+02_JPRB,0.11047E+02_JPRB,0.11287E+02_JPRB,0.11460E+02_JPRB,0.11610E+02_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.10635E+02_JPRB,0.10772E+02_JPRB,0.10970E+02_JPRB,0.11110E+02_JPRB,0.11339E+02_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.10081E+02_JPRB,0.10347E+02_JPRB,0.10495E+02_JPRB,0.10710E+02_JPRB,0.10998E+02_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.95493E+01_JPRB,0.97720E+01_JPRB,0.10013E+02_JPRB,0.10318E+02_JPRB,0.10626E+02_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.91901E+01_JPRB,0.92815E+01_JPRB,0.95285E+01_JPRB,0.99399E+01_JPRB,0.10216E+02_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.86762E+01_JPRB,0.88384E+01_JPRB,0.91370E+01_JPRB,0.95143E+01_JPRB,0.99290E+01_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.80969E+01_JPRB,0.84350E+01_JPRB,0.87222E+01_JPRB,0.91427E+01_JPRB,0.95881E+01_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.74881E+01_JPRB,0.78692E+01_JPRB,0.82390E+01_JPRB,0.88564E+01_JPRB,0.92509E+01_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.70193E+01_JPRB,0.74373E+01_JPRB,0.79400E+01_JPRB,0.84415E+01_JPRB,0.90721E+01_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.66370E+01_JPRB,0.71214E+01_JPRB,0.76381E+01_JPRB,0.81180E+01_JPRB,0.89263E+01_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.62242E+01_JPRB,0.68097E+01_JPRB,0.73447E+01_JPRB,0.79515E+01_JPRB,0.88951E+01_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.58238E+01_JPRB,0.63775E+01_JPRB,0.69942E+01_JPRB,0.79247E+01_JPRB,0.89454E+01_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.55499E+01_JPRB,0.61225E+01_JPRB,0.67115E+01_JPRB,0.76390E+01_JPRB,0.86771E+01_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.53976E+01_JPRB,0.59288E+01_JPRB,0.64661E+01_JPRB,0.72387E+01_JPRB,0.82482E+01_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.52864E+01_JPRB,0.57486E+01_JPRB,0.62663E+01_JPRB,0.68889E+01_JPRB,0.78153E+01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.51174E+01_JPRB,0.55624E+01_JPRB,0.60808E+01_JPRB,0.66051E+01_JPRB,0.73800E+01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.49368E+01_JPRB,0.54350E+01_JPRB,0.59533E+01_JPRB,0.64218E+01_JPRB,0.70057E+01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.50812E+01_JPRB,0.56369E+01_JPRB,0.60928E+01_JPRB,0.64990E+01_JPRB,0.70265E+01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.69704E+02_JPRB,0.70627E+02_JPRB,0.71228E+02_JPRB,0.71788E+02_JPRB,0.72437E+02_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.64379E+02_JPRB,0.65225E+02_JPRB,0.66016E+02_JPRB,0.66901E+02_JPRB,0.67785E+02_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.58655E+02_JPRB,0.59644E+02_JPRB,0.60731E+02_JPRB,0.61788E+02_JPRB,0.62973E+02_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.53041E+02_JPRB,0.54211E+02_JPRB,0.55406E+02_JPRB,0.56764E+02_JPRB,0.58230E+02_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.47145E+02_JPRB,0.48549E+02_JPRB,0.50104E+02_JPRB,0.51815E+02_JPRB,0.53646E+02_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.41118E+02_JPRB,0.42628E+02_JPRB,0.44372E+02_JPRB,0.46307E+02_JPRB,0.48319E+02_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.35042E+02_JPRB,0.36608E+02_JPRB,0.38443E+02_JPRB,0.40582E+02_JPRB,0.43018E+02_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.28625E+02_JPRB,0.30224E+02_JPRB,0.32288E+02_JPRB,0.34780E+02_JPRB,0.37414E+02_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.24017E+02_JPRB,0.25409E+02_JPRB,0.27330E+02_JPRB,0.29600E+02_JPRB,0.32108E+02_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.21793E+02_JPRB,0.22620E+02_JPRB,0.24096E+02_JPRB,0.26102E+02_JPRB,0.28497E+02_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.21413E+02_JPRB,0.21831E+02_JPRB,0.22594E+02_JPRB,0.23606E+02_JPRB,0.25745E+02_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.21009E+02_JPRB,0.21418E+02_JPRB,0.22293E+02_JPRB,0.23189E+02_JPRB,0.24234E+02_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.21184E+02_JPRB,0.21661E+02_JPRB,0.22476E+02_JPRB,0.23334E+02_JPRB,0.24471E+02_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.21853E+02_JPRB,0.22488E+02_JPRB,0.23205E+02_JPRB,0.24024E+02_JPRB,0.25192E+02_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.22275E+02_JPRB,0.22928E+02_JPRB,0.23659E+02_JPRB,0.24768E+02_JPRB,0.25734E+02_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.22649E+02_JPRB,0.23413E+02_JPRB,0.24091E+02_JPRB,0.25549E+02_JPRB,0.26436E+02_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.22704E+02_JPRB,0.23483E+02_JPRB,0.24191E+02_JPRB,0.25460E+02_JPRB,0.26653E+02_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.22666E+02_JPRB,0.23444E+02_JPRB,0.24530E+02_JPRB,0.25500E+02_JPRB,0.26652E+02_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.22235E+02_JPRB,0.23247E+02_JPRB,0.24248E+02_JPRB,0.25076E+02_JPRB,0.26466E+02_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.22226E+02_JPRB,0.22827E+02_JPRB,0.24083E+02_JPRB,0.25139E+02_JPRB,0.26181E+02_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.22210E+02_JPRB,0.22941E+02_JPRB,0.24126E+02_JPRB,0.25269E+02_JPRB,0.26783E+02_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.22243E+02_JPRB,0.23077E+02_JPRB,0.24337E+02_JPRB,0.25761E+02_JPRB,0.27799E+02_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.22396E+02_JPRB,0.23583E+02_JPRB,0.24898E+02_JPRB,0.26594E+02_JPRB,0.29392E+02_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.22982E+02_JPRB,0.24125E+02_JPRB,0.25363E+02_JPRB,0.27311E+02_JPRB,0.30508E+02_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.22918E+02_JPRB,0.23937E+02_JPRB,0.25281E+02_JPRB,0.27602E+02_JPRB,0.31235E+02_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.22758E+02_JPRB,0.23720E+02_JPRB,0.25240E+02_JPRB,0.28261E+02_JPRB,0.32012E+02_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.22553E+02_JPRB,0.23629E+02_JPRB,0.25559E+02_JPRB,0.29164E+02_JPRB,0.32971E+02_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.21913E+02_JPRB,0.23010E+02_JPRB,0.25397E+02_JPRB,0.28931E+02_JPRB,0.33000E+02_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.21428E+02_JPRB,0.22543E+02_JPRB,0.25193E+02_JPRB,0.28521E+02_JPRB,0.32655E+02_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.20806E+02_JPRB,0.22057E+02_JPRB,0.24895E+02_JPRB,0.28307E+02_JPRB,0.32344E+02_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.20230E+02_JPRB,0.21402E+02_JPRB,0.24438E+02_JPRB,0.27778E+02_JPRB,0.31742E+02_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.19439E+02_JPRB,0.20816E+02_JPRB,0.24038E+02_JPRB,0.27280E+02_JPRB,0.31112E+02_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.18615E+02_JPRB,0.20644E+02_JPRB,0.23787E+02_JPRB,0.26906E+02_JPRB,0.30508E+02_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.17932E+02_JPRB,0.20436E+02_JPRB,0.23444E+02_JPRB,0.26514E+02_JPRB,0.30043E+02_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.17388E+02_JPRB,0.20062E+02_JPRB,0.22865E+02_JPRB,0.25992E+02_JPRB,0.29187E+02_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.17144E+02_JPRB,0.19562E+02_JPRB,0.22419E+02_JPRB,0.25556E+02_JPRB,0.28578E+02_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.16956E+02_JPRB,0.19439E+02_JPRB,0.22133E+02_JPRB,0.25135E+02_JPRB,0.28141E+02_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.16529E+02_JPRB,0.19034E+02_JPRB,0.21605E+02_JPRB,0.24563E+02_JPRB,0.27331E+02_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.15953E+02_JPRB,0.18522E+02_JPRB,0.21071E+02_JPRB,0.23856E+02_JPRB,0.26389E+02_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.15476E+02_JPRB,0.18037E+02_JPRB,0.20576E+02_JPRB,0.23092E+02_JPRB,0.25303E+02_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.14987E+02_JPRB,0.17619E+02_JPRB,0.20150E+02_JPRB,0.22182E+02_JPRB,0.24323E+02_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.14316E+02_JPRB,0.16769E+02_JPRB,0.19340E+02_JPRB,0.21295E+02_JPRB,0.23328E+02_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.13478E+02_JPRB,0.15723E+02_JPRB,0.18284E+02_JPRB,0.20497E+02_JPRB,0.22282E+02_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.12615E+02_JPRB,0.14717E+02_JPRB,0.17222E+02_JPRB,0.19626E+02_JPRB,0.21412E+02_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.11789E+02_JPRB,0.13910E+02_JPRB,0.16111E+02_JPRB,0.18559E+02_JPRB,0.20605E+02_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.10935E+02_JPRB,0.12994E+02_JPRB,0.15023E+02_JPRB,0.17386E+02_JPRB,0.19630E+02_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.10847E+02_JPRB,0.11985E+02_JPRB,0.13699E+02_JPRB,0.15922E+02_JPRB,0.18130E+02_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.15243E+03_JPRB,0.15414E+03_JPRB,0.15604E+03_JPRB,0.15731E+03_JPRB,0.15805E+03_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.15017E+03_JPRB,0.15285E+03_JPRB,0.15509E+03_JPRB,0.15662E+03_JPRB,0.15764E+03_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.14701E+03_JPRB,0.15032E+03_JPRB,0.15250E+03_JPRB,0.15435E+03_JPRB,0.15583E+03_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.14269E+03_JPRB,0.14580E+03_JPRB,0.14857E+03_JPRB,0.15094E+03_JPRB,0.15306E+03_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.13670E+03_JPRB,0.14035E+03_JPRB,0.14376E+03_JPRB,0.14689E+03_JPRB,0.14976E+03_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.13015E+03_JPRB,0.13455E+03_JPRB,0.13871E+03_JPRB,0.14263E+03_JPRB,0.14625E+03_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.12287E+03_JPRB,0.12845E+03_JPRB,0.13370E+03_JPRB,0.13836E+03_JPRB,0.14277E+03_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.11516E+03_JPRB,0.12176E+03_JPRB,0.12807E+03_JPRB,0.13396E+03_JPRB,0.13973E+03_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.10676E+03_JPRB,0.11461E+03_JPRB,0.12196E+03_JPRB,0.12926E+03_JPRB,0.13605E+03_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.98495E+02_JPRB,0.10775E+03_JPRB,0.11663E+03_JPRB,0.12493E+03_JPRB,0.13260E+03_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.89816E+02_JPRB,0.10015E+03_JPRB,0.11065E+03_JPRB,0.12084E+03_JPRB,0.12951E+03_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.82797E+02_JPRB,0.93590E+02_JPRB,0.10444E+03_JPRB,0.11545E+03_JPRB,0.12590E+03_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.77256E+02_JPRB,0.88067E+02_JPRB,0.99408E+02_JPRB,0.11069E+03_JPRB,0.12164E+03_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.73787E+02_JPRB,0.84230E+02_JPRB,0.95403E+02_JPRB,0.10719E+03_JPRB,0.11797E+03_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.72626E+02_JPRB,0.82623E+02_JPRB,0.93417E+02_JPRB,0.10482E+03_JPRB,0.11588E+03_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.72289E+02_JPRB,0.81705E+02_JPRB,0.92658E+02_JPRB,0.10355E+03_JPRB,0.11467E+03_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.73831E+02_JPRB,0.83248E+02_JPRB,0.93801E+02_JPRB,0.10474E+03_JPRB,0.11551E+03_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.76016E+02_JPRB,0.86113E+02_JPRB,0.95367E+02_JPRB,0.10651E+03_JPRB,0.11733E+03_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.80058E+02_JPRB,0.89705E+02_JPRB,0.99793E+02_JPRB,0.10982E+03_JPRB,0.12052E+03_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.85064E+02_JPRB,0.94860E+02_JPRB,0.10434E+03_JPRB,0.11401E+03_JPRB,0.12404E+03_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.90655E+02_JPRB,0.10081E+03_JPRB,0.10992E+03_JPRB,0.11933E+03_JPRB,0.12788E+03_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.95857E+02_JPRB,0.10597E+03_JPRB,0.11520E+03_JPRB,0.12356E+03_JPRB,0.13127E+03_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.99393E+02_JPRB,0.11014E+03_JPRB,0.12003E+03_JPRB,0.12794E+03_JPRB,0.13407E+03_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.10100E+03_JPRB,0.11220E+03_JPRB,0.12221E+03_JPRB,0.13085E+03_JPRB,0.13724E+03_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.10052E+03_JPRB,0.11217E+03_JPRB,0.12302E+03_JPRB,0.13127E+03_JPRB,0.13704E+03_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.10046E+03_JPRB,0.11273E+03_JPRB,0.12310E+03_JPRB,0.13118E+03_JPRB,0.13742E+03_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.10122E+03_JPRB,0.11326E+03_JPRB,0.12361E+03_JPRB,0.13081E+03_JPRB,0.13784E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,40,13) = (/ &
+ & 0.10000E+03_JPRB,0.11180E+03_JPRB,0.12195E+03_JPRB,0.12930E+03_JPRB,0.13636E+03_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.98394E+02_JPRB,0.11024E+03_JPRB,0.11969E+03_JPRB,0.12788E+03_JPRB,0.13497E+03_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.97071E+02_JPRB,0.10823E+03_JPRB,0.11769E+03_JPRB,0.12630E+03_JPRB,0.13330E+03_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.94820E+02_JPRB,0.10592E+03_JPRB,0.11514E+03_JPRB,0.12393E+03_JPRB,0.13107E+03_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.92475E+02_JPRB,0.10313E+03_JPRB,0.11198E+03_JPRB,0.12120E+03_JPRB,0.12869E+03_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.90255E+02_JPRB,0.99678E+02_JPRB,0.10888E+03_JPRB,0.11824E+03_JPRB,0.12634E+03_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.87084E+02_JPRB,0.96376E+02_JPRB,0.10582E+03_JPRB,0.11496E+03_JPRB,0.12350E+03_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.83116E+02_JPRB,0.92026E+02_JPRB,0.10209E+03_JPRB,0.11120E+03_JPRB,0.12020E+03_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.78845E+02_JPRB,0.88316E+02_JPRB,0.97984E+02_JPRB,0.10729E+03_JPRB,0.11639E+03_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.74841E+02_JPRB,0.84389E+02_JPRB,0.93907E+02_JPRB,0.10286E+03_JPRB,0.11277E+03_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.71259E+02_JPRB,0.80370E+02_JPRB,0.89851E+02_JPRB,0.99011E+02_JPRB,0.10882E+03_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.67667E+02_JPRB,0.76332E+02_JPRB,0.85552E+02_JPRB,0.95111E+02_JPRB,0.10517E+03_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.64036E+02_JPRB,0.72373E+02_JPRB,0.81228E+02_JPRB,0.91458E+02_JPRB,0.10109E+03_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.60531E+02_JPRB,0.68539E+02_JPRB,0.77029E+02_JPRB,0.87314E+02_JPRB,0.97171E+02_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.57169E+02_JPRB,0.65298E+02_JPRB,0.73473E+02_JPRB,0.83504E+02_JPRB,0.93303E+02_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.53955E+02_JPRB,0.61813E+02_JPRB,0.70099E+02_JPRB,0.79656E+02_JPRB,0.89859E+02_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.50772E+02_JPRB,0.58658E+02_JPRB,0.66829E+02_JPRB,0.76079E+02_JPRB,0.86127E+02_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.47708E+02_JPRB,0.55213E+02_JPRB,0.63250E+02_JPRB,0.72545E+02_JPRB,0.82495E+02_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.45026E+02_JPRB,0.52243E+02_JPRB,0.60123E+02_JPRB,0.69281E+02_JPRB,0.79017E+02_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.42111E+02_JPRB,0.50365E+02_JPRB,0.58368E+02_JPRB,0.67832E+02_JPRB,0.76877E+02_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.32174E+03_JPRB,0.31744E+03_JPRB,0.31218E+03_JPRB,0.30740E+03_JPRB,0.30288E+03_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.33593E+03_JPRB,0.33142E+03_JPRB,0.32669E+03_JPRB,0.32231E+03_JPRB,0.31834E+03_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.34823E+03_JPRB,0.34389E+03_JPRB,0.34037E+03_JPRB,0.33690E+03_JPRB,0.33355E+03_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.35878E+03_JPRB,0.35631E+03_JPRB,0.35376E+03_JPRB,0.35105E+03_JPRB,0.34819E+03_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.36906E+03_JPRB,0.36793E+03_JPRB,0.36636E+03_JPRB,0.36433E+03_JPRB,0.36182E+03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.37817E+03_JPRB,0.37835E+03_JPRB,0.37763E+03_JPRB,0.37618E+03_JPRB,0.37389E+03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.38585E+03_JPRB,0.38729E+03_JPRB,0.38746E+03_JPRB,0.38655E+03_JPRB,0.38433E+03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.39236E+03_JPRB,0.39495E+03_JPRB,0.39589E+03_JPRB,0.39530E+03_JPRB,0.39330E+03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.39808E+03_JPRB,0.40159E+03_JPRB,0.40312E+03_JPRB,0.40280E+03_JPRB,0.40090E+03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.40338E+03_JPRB,0.40757E+03_JPRB,0.40933E+03_JPRB,0.40908E+03_JPRB,0.40708E+03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.40834E+03_JPRB,0.41282E+03_JPRB,0.41463E+03_JPRB,0.41442E+03_JPRB,0.41222E+03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.41280E+03_JPRB,0.41739E+03_JPRB,0.41916E+03_JPRB,0.41879E+03_JPRB,0.41631E+03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.41635E+03_JPRB,0.42140E+03_JPRB,0.42295E+03_JPRB,0.42231E+03_JPRB,0.41948E+03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.41887E+03_JPRB,0.42439E+03_JPRB,0.42613E+03_JPRB,0.42509E+03_JPRB,0.42199E+03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.42034E+03_JPRB,0.42637E+03_JPRB,0.42837E+03_JPRB,0.42723E+03_JPRB,0.42380E+03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.42191E+03_JPRB,0.42841E+03_JPRB,0.43008E+03_JPRB,0.42870E+03_JPRB,0.42501E+03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.42351E+03_JPRB,0.42979E+03_JPRB,0.43162E+03_JPRB,0.42986E+03_JPRB,0.42579E+03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.42461E+03_JPRB,0.42985E+03_JPRB,0.43291E+03_JPRB,0.43068E+03_JPRB,0.42610E+03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.42505E+03_JPRB,0.43017E+03_JPRB,0.43191E+03_JPRB,0.43099E+03_JPRB,0.42603E+03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.42362E+03_JPRB,0.42860E+03_JPRB,0.43041E+03_JPRB,0.42915E+03_JPRB,0.42555E+03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.42123E+03_JPRB,0.42505E+03_JPRB,0.42663E+03_JPRB,0.42551E+03_JPRB,0.42290E+03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.41773E+03_JPRB,0.42082E+03_JPRB,0.42178E+03_JPRB,0.42110E+03_JPRB,0.41858E+03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.41435E+03_JPRB,0.41544E+03_JPRB,0.41491E+03_JPRB,0.41443E+03_JPRB,0.41216E+03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.41009E+03_JPRB,0.41065E+03_JPRB,0.40988E+03_JPRB,0.40756E+03_JPRB,0.40367E+03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.40889E+03_JPRB,0.40948E+03_JPRB,0.40755E+03_JPRB,0.40547E+03_JPRB,0.40195E+03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.40736E+03_JPRB,0.40781E+03_JPRB,0.40666E+03_JPRB,0.40322E+03_JPRB,0.39939E+03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.40514E+03_JPRB,0.40605E+03_JPRB,0.40431E+03_JPRB,0.40166E+03_JPRB,0.39666E+03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.40543E+03_JPRB,0.40633E+03_JPRB,0.40490E+03_JPRB,0.40260E+03_JPRB,0.39791E+03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.40503E+03_JPRB,0.40615E+03_JPRB,0.40599E+03_JPRB,0.40348E+03_JPRB,0.39947E+03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.40408E+03_JPRB,0.40664E+03_JPRB,0.40681E+03_JPRB,0.40441E+03_JPRB,0.40107E+03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.40250E+03_JPRB,0.40659E+03_JPRB,0.40791E+03_JPRB,0.40633E+03_JPRB,0.40362E+03_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.40121E+03_JPRB,0.40653E+03_JPRB,0.40934E+03_JPRB,0.40832E+03_JPRB,0.40616E+03_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.39928E+03_JPRB,0.40669E+03_JPRB,0.41014E+03_JPRB,0.41010E+03_JPRB,0.40849E+03_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.39656E+03_JPRB,0.40551E+03_JPRB,0.41027E+03_JPRB,0.41167E+03_JPRB,0.41068E+03_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.39317E+03_JPRB,0.40403E+03_JPRB,0.40985E+03_JPRB,0.41273E+03_JPRB,0.41264E+03_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.38915E+03_JPRB,0.40116E+03_JPRB,0.40932E+03_JPRB,0.41346E+03_JPRB,0.41469E+03_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.38398E+03_JPRB,0.39755E+03_JPRB,0.40789E+03_JPRB,0.41416E+03_JPRB,0.41577E+03_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.37757E+03_JPRB,0.39396E+03_JPRB,0.40616E+03_JPRB,0.41381E+03_JPRB,0.41707E+03_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.37117E+03_JPRB,0.38987E+03_JPRB,0.40415E+03_JPRB,0.41318E+03_JPRB,0.41740E+03_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.36408E+03_JPRB,0.38505E+03_JPRB,0.40161E+03_JPRB,0.41151E+03_JPRB,0.41801E+03_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.35611E+03_JPRB,0.37948E+03_JPRB,0.39824E+03_JPRB,0.40994E+03_JPRB,0.41764E+03_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.34712E+03_JPRB,0.37341E+03_JPRB,0.39425E+03_JPRB,0.40798E+03_JPRB,0.41739E+03_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.33857E+03_JPRB,0.36757E+03_JPRB,0.38995E+03_JPRB,0.40583E+03_JPRB,0.41654E+03_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.32949E+03_JPRB,0.36056E+03_JPRB,0.38492E+03_JPRB,0.40281E+03_JPRB,0.41532E+03_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.31954E+03_JPRB,0.35312E+03_JPRB,0.37997E+03_JPRB,0.39944E+03_JPRB,0.41349E+03_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.30943E+03_JPRB,0.34518E+03_JPRB,0.37428E+03_JPRB,0.39571E+03_JPRB,0.41155E+03_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.30628E+03_JPRB,0.34259E+03_JPRB,0.37284E+03_JPRB,0.39463E+03_JPRB,0.41220E+03_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.58702E+03_JPRB,0.56862E+03_JPRB,0.55331E+03_JPRB,0.53896E+03_JPRB,0.52495E+03_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.64037E+03_JPRB,0.62129E+03_JPRB,0.60436E+03_JPRB,0.58772E+03_JPRB,0.57127E+03_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.69642E+03_JPRB,0.67640E+03_JPRB,0.65677E+03_JPRB,0.63714E+03_JPRB,0.61752E+03_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.75408E+03_JPRB,0.73150E+03_JPRB,0.70834E+03_JPRB,0.68512E+03_JPRB,0.66206E+03_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.81156E+03_JPRB,0.78496E+03_JPRB,0.75773E+03_JPRB,0.73064E+03_JPRB,0.70441E+03_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.86684E+03_JPRB,0.83552E+03_JPRB,0.80425E+03_JPRB,0.77370E+03_JPRB,0.74441E+03_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.91879E+03_JPRB,0.88284E+03_JPRB,0.84773E+03_JPRB,0.81356E+03_JPRB,0.78105E+03_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.96599E+03_JPRB,0.92558E+03_JPRB,0.88651E+03_JPRB,0.84884E+03_JPRB,0.81303E+03_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.10076E+04_JPRB,0.96291E+03_JPRB,0.92009E+03_JPRB,0.87920E+03_JPRB,0.84047E+03_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.10401E+04_JPRB,0.99157E+03_JPRB,0.94567E+03_JPRB,0.90208E+03_JPRB,0.86095E+03_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.10659E+04_JPRB,0.10143E+04_JPRB,0.96587E+03_JPRB,0.91983E+03_JPRB,0.87686E+03_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.10857E+04_JPRB,0.10316E+04_JPRB,0.98077E+03_JPRB,0.93285E+03_JPRB,0.88829E+03_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.10994E+04_JPRB,0.10434E+04_JPRB,0.99070E+03_JPRB,0.94138E+03_JPRB,0.89569E+03_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.11072E+04_JPRB,0.10495E+04_JPRB,0.99578E+03_JPRB,0.94553E+03_JPRB,0.89886E+03_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.11107E+04_JPRB,0.10519E+04_JPRB,0.99732E+03_JPRB,0.94654E+03_JPRB,0.89932E+03_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.11104E+04_JPRB,0.10510E+04_JPRB,0.99596E+03_JPRB,0.94493E+03_JPRB,0.89744E+03_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.11068E+04_JPRB,0.10472E+04_JPRB,0.99206E+03_JPRB,0.94099E+03_JPRB,0.89320E+03_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.11008E+04_JPRB,0.10413E+04_JPRB,0.98636E+03_JPRB,0.93544E+03_JPRB,0.88772E+03_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.10926E+04_JPRB,0.10334E+04_JPRB,0.97895E+03_JPRB,0.92827E+03_JPRB,0.88094E+03_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.10829E+04_JPRB,0.10242E+04_JPRB,0.97015E+03_JPRB,0.91986E+03_JPRB,0.87315E+03_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.10718E+04_JPRB,0.10140E+04_JPRB,0.96048E+03_JPRB,0.91059E+03_JPRB,0.86462E+03_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.10622E+04_JPRB,0.10049E+04_JPRB,0.95198E+03_JPRB,0.90258E+03_JPRB,0.85725E+03_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.10576E+04_JPRB,0.10006E+04_JPRB,0.94772E+03_JPRB,0.89854E+03_JPRB,0.85365E+03_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.10589E+04_JPRB,0.10017E+04_JPRB,0.94880E+03_JPRB,0.89934E+03_JPRB,0.85436E+03_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.10689E+04_JPRB,0.10108E+04_JPRB,0.95721E+03_JPRB,0.90723E+03_JPRB,0.86136E+03_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.10792E+04_JPRB,0.10202E+04_JPRB,0.96581E+03_JPRB,0.91534E+03_JPRB,0.86861E+03_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.10893E+04_JPRB,0.10294E+04_JPRB,0.97432E+03_JPRB,0.92308E+03_JPRB,0.87586E+03_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.11025E+04_JPRB,0.10445E+04_JPRB,0.98826E+03_JPRB,0.93598E+03_JPRB,0.88770E+03_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.11189E+04_JPRB,0.10606E+04_JPRB,0.10030E+04_JPRB,0.94969E+03_JPRB,0.90027E+03_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.11355E+04_JPRB,0.10769E+04_JPRB,0.10180E+04_JPRB,0.96359E+03_JPRB,0.91305E+03_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.11585E+04_JPRB,0.10971E+04_JPRB,0.10364E+04_JPRB,0.98067E+03_JPRB,0.92886E+03_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.11827E+04_JPRB,0.11193E+04_JPRB,0.10568E+04_JPRB,0.99947E+03_JPRB,0.94636E+03_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.12075E+04_JPRB,0.11422E+04_JPRB,0.10778E+04_JPRB,0.10187E+04_JPRB,0.96421E+03_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.12357E+04_JPRB,0.11671E+04_JPRB,0.11007E+04_JPRB,0.10396E+04_JPRB,0.98362E+03_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.12667E+04_JPRB,0.11958E+04_JPRB,0.11271E+04_JPRB,0.10639E+04_JPRB,0.10059E+04_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.12983E+04_JPRB,0.12254E+04_JPRB,0.11543E+04_JPRB,0.10888E+04_JPRB,0.10288E+04_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.13304E+04_JPRB,0.12559E+04_JPRB,0.11825E+04_JPRB,0.11147E+04_JPRB,0.10526E+04_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.13621E+04_JPRB,0.12852E+04_JPRB,0.12096E+04_JPRB,0.11397E+04_JPRB,0.10755E+04_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.13919E+04_JPRB,0.13140E+04_JPRB,0.12368E+04_JPRB,0.11648E+04_JPRB,0.10985E+04_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.14222E+04_JPRB,0.13432E+04_JPRB,0.12647E+04_JPRB,0.11905E+04_JPRB,0.11221E+04_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.14531E+04_JPRB,0.13729E+04_JPRB,0.12932E+04_JPRB,0.12171E+04_JPRB,0.11465E+04_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.14842E+04_JPRB,0.14002E+04_JPRB,0.13197E+04_JPRB,0.12421E+04_JPRB,0.11696E+04_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.15120E+04_JPRB,0.14267E+04_JPRB,0.13453E+04_JPRB,0.12667E+04_JPRB,0.11922E+04_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.15401E+04_JPRB,0.14538E+04_JPRB,0.13712E+04_JPRB,0.12915E+04_JPRB,0.12155E+04_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.15682E+04_JPRB,0.14811E+04_JPRB,0.13973E+04_JPRB,0.13167E+04_JPRB,0.12393E+04_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.15949E+04_JPRB,0.15073E+04_JPRB,0.14224E+04_JPRB,0.13410E+04_JPRB,0.12625E+04_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.16055E+04_JPRB,0.15180E+04_JPRB,0.14326E+04_JPRB,0.13507E+04_JPRB,0.12718E+04_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.98069E+03_JPRB,0.94212E+03_JPRB,0.90378E+03_JPRB,0.86861E+03_JPRB,0.83780E+03_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.11010E+04_JPRB,0.10540E+04_JPRB,0.10095E+04_JPRB,0.96975E+03_JPRB,0.93339E+03_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.12287E+04_JPRB,0.11714E+04_JPRB,0.11195E+04_JPRB,0.10736E+04_JPRB,0.10305E+04_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.13596E+04_JPRB,0.12909E+04_JPRB,0.12306E+04_JPRB,0.11762E+04_JPRB,0.11252E+04_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.14895E+04_JPRB,0.14091E+04_JPRB,0.13394E+04_JPRB,0.12751E+04_JPRB,0.12151E+04_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.16148E+04_JPRB,0.15230E+04_JPRB,0.14425E+04_JPRB,0.13683E+04_JPRB,0.12989E+04_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.17336E+04_JPRB,0.16302E+04_JPRB,0.15375E+04_JPRB,0.14530E+04_JPRB,0.13744E+04_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.18405E+04_JPRB,0.17248E+04_JPRB,0.16208E+04_JPRB,0.15267E+04_JPRB,0.14397E+04_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.19359E+04_JPRB,0.18083E+04_JPRB,0.16938E+04_JPRB,0.15909E+04_JPRB,0.14962E+04_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.20085E+04_JPRB,0.18707E+04_JPRB,0.17478E+04_JPRB,0.16373E+04_JPRB,0.15366E+04_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.20648E+04_JPRB,0.19188E+04_JPRB,0.17890E+04_JPRB,0.16725E+04_JPRB,0.15672E+04_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.21054E+04_JPRB,0.19528E+04_JPRB,0.18178E+04_JPRB,0.16967E+04_JPRB,0.15881E+04_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.21318E+04_JPRB,0.19742E+04_JPRB,0.18353E+04_JPRB,0.17113E+04_JPRB,0.16005E+04_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.21433E+04_JPRB,0.19836E+04_JPRB,0.18416E+04_JPRB,0.17161E+04_JPRB,0.16044E+04_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.21445E+04_JPRB,0.19835E+04_JPRB,0.18409E+04_JPRB,0.17145E+04_JPRB,0.16033E+04_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.21374E+04_JPRB,0.19764E+04_JPRB,0.18336E+04_JPRB,0.17081E+04_JPRB,0.15978E+04_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.21225E+04_JPRB,0.19618E+04_JPRB,0.18208E+04_JPRB,0.16961E+04_JPRB,0.15894E+04_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.21033E+04_JPRB,0.19434E+04_JPRB,0.18039E+04_JPRB,0.16808E+04_JPRB,0.15775E+04_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.20779E+04_JPRB,0.19206E+04_JPRB,0.17837E+04_JPRB,0.16635E+04_JPRB,0.15631E+04_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.20491E+04_JPRB,0.18949E+04_JPRB,0.17612E+04_JPRB,0.16447E+04_JPRB,0.15471E+04_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.20177E+04_JPRB,0.18682E+04_JPRB,0.17367E+04_JPRB,0.16246E+04_JPRB,0.15302E+04_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.19905E+04_JPRB,0.18445E+04_JPRB,0.17155E+04_JPRB,0.16076E+04_JPRB,0.15146E+04_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.19774E+04_JPRB,0.18329E+04_JPRB,0.17061E+04_JPRB,0.16001E+04_JPRB,0.15070E+04_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.19799E+04_JPRB,0.18350E+04_JPRB,0.17079E+04_JPRB,0.16017E+04_JPRB,0.15083E+04_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.20051E+04_JPRB,0.18569E+04_JPRB,0.17271E+04_JPRB,0.16176E+04_JPRB,0.15230E+04_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.20315E+04_JPRB,0.18800E+04_JPRB,0.17473E+04_JPRB,0.16343E+04_JPRB,0.15379E+04_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.20576E+04_JPRB,0.19026E+04_JPRB,0.17672E+04_JPRB,0.16508E+04_JPRB,0.15527E+04_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.21013E+04_JPRB,0.19405E+04_JPRB,0.18004E+04_JPRB,0.16787E+04_JPRB,0.15771E+04_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.21482E+04_JPRB,0.19814E+04_JPRB,0.18363E+04_JPRB,0.17091E+04_JPRB,0.16029E+04_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.21964E+04_JPRB,0.20236E+04_JPRB,0.18732E+04_JPRB,0.17410E+04_JPRB,0.16295E+04_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.22568E+04_JPRB,0.20769E+04_JPRB,0.19193E+04_JPRB,0.17816E+04_JPRB,0.16630E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,44,16) = (/ &
+ & 0.23247E+04_JPRB,0.21362E+04_JPRB,0.19712E+04_JPRB,0.18270E+04_JPRB,0.17012E+04_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.23959E+04_JPRB,0.21983E+04_JPRB,0.20252E+04_JPRB,0.18744E+04_JPRB,0.17420E+04_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.24748E+04_JPRB,0.22670E+04_JPRB,0.20858E+04_JPRB,0.19269E+04_JPRB,0.17884E+04_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.25688E+04_JPRB,0.23479E+04_JPRB,0.21568E+04_JPRB,0.19886E+04_JPRB,0.18424E+04_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.26704E+04_JPRB,0.24334E+04_JPRB,0.22313E+04_JPRB,0.20542E+04_JPRB,0.18994E+04_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.27805E+04_JPRB,0.25238E+04_JPRB,0.23096E+04_JPRB,0.21232E+04_JPRB,0.19594E+04_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.28920E+04_JPRB,0.26151E+04_JPRB,0.23873E+04_JPRB,0.21911E+04_JPRB,0.20186E+04_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.30093E+04_JPRB,0.27098E+04_JPRB,0.24666E+04_JPRB,0.22601E+04_JPRB,0.20794E+04_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.31338E+04_JPRB,0.28121E+04_JPRB,0.25503E+04_JPRB,0.23323E+04_JPRB,0.21428E+04_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.32663E+04_JPRB,0.29228E+04_JPRB,0.26405E+04_JPRB,0.24086E+04_JPRB,0.22095E+04_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.33958E+04_JPRB,0.30317E+04_JPRB,0.27288E+04_JPRB,0.24819E+04_JPRB,0.22731E+04_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.35272E+04_JPRB,0.31418E+04_JPRB,0.28194E+04_JPRB,0.25560E+04_JPRB,0.23371E+04_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.36664E+04_JPRB,0.32577E+04_JPRB,0.29162E+04_JPRB,0.26350E+04_JPRB,0.24040E+04_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.38139E+04_JPRB,0.33808E+04_JPRB,0.30193E+04_JPRB,0.27188E+04_JPRB,0.24736E+04_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.39629E+04_JPRB,0.35038E+04_JPRB,0.31229E+04_JPRB,0.28034E+04_JPRB,0.25431E+04_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.40252E+04_JPRB,0.35562E+04_JPRB,0.31659E+04_JPRB,0.28393E+04_JPRB,0.25724E+04_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.525585E-05_JPRB, 0.527618E-05_JPRB, 0.746929E-04_JPRB /)
+FORREF(:, 2) = (/ 0.794660E-05_JPRB, 0.136902E-04_JPRB, 0.849878E-04_JPRB /)
+FORREF(:, 3) = (/ 0.197099E-04_JPRB, 0.733094E-04_JPRB, 0.121687E-03_JPRB /)
+FORREF(:, 4) = (/ 0.148274E-03_JPRB, 0.169776E-03_JPRB, 0.164848E-03_JPRB /)
+FORREF(:, 5) = (/ 0.230296E-03_JPRB, 0.210384E-03_JPRB, 0.182028E-03_JPRB /)
+FORREF(:, 6) = (/ 0.280575E-03_JPRB, 0.259217E-03_JPRB, 0.196080E-03_JPRB /)
+FORREF(:, 7) = (/ 0.329034E-03_JPRB, 0.291575E-03_JPRB, 0.207044E-03_JPRB /)
+FORREF(:, 8) = (/ 0.349989E-03_JPRB, 0.323471E-03_JPRB, 0.225712E-03_JPRB /)
+FORREF(:, 9) = (/ 0.366097E-03_JPRB, 0.321519E-03_JPRB, 0.253150E-03_JPRB /)
+FORREF(:,10) = (/ 0.383589E-03_JPRB, 0.355314E-03_JPRB, 0.262555E-03_JPRB /)
+FORREF(:,11) = (/ 0.375933E-03_JPRB, 0.372443E-03_JPRB, 0.261313E-03_JPRB /)
+FORREF(:,12) = (/ 0.370652E-03_JPRB, 0.382366E-03_JPRB, 0.250070E-03_JPRB /)
+FORREF(:,13) = (/ 0.375092E-03_JPRB, 0.379542E-03_JPRB, 0.265794E-03_JPRB /)
+FORREF(:,14) = (/ 0.389705E-03_JPRB, 0.384274E-03_JPRB, 0.322135E-03_JPRB /)
+FORREF(:,15) = (/ 0.372084E-03_JPRB, 0.390422E-03_JPRB, 0.370035E-03_JPRB /)
+FORREF(:,16) = (/ 0.437802E-03_JPRB, 0.373406E-03_JPRB, 0.373222E-03_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.126758E-02_JPRB, 0.105253E-02_JPRB, 0.873963E-03_JPRB, 0.725690E-03_JPRB, 0.602573E-03_JPRB, &
+ & 0.500344E-03_JPRB, 0.415458E-03_JPRB, 0.344973E-03_JPRB, 0.286447E-03_JPRB, 0.237849E-03_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.144006E-02_JPRB, 0.118514E-02_JPRB, 0.975351E-03_JPRB, 0.802697E-03_JPRB, 0.660606E-03_JPRB, &
+ & 0.543667E-03_JPRB, 0.447429E-03_JPRB, 0.368226E-03_JPRB, 0.303044E-03_JPRB, 0.249400E-03_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.294018E-02_JPRB, 0.227428E-02_JPRB, 0.175920E-02_JPRB, 0.136077E-02_JPRB, 0.105258E-02_JPRB, &
+ & 0.814189E-03_JPRB, 0.629789E-03_JPRB, 0.487153E-03_JPRB, 0.376821E-03_JPRB, 0.291478E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.395290E-02_JPRB, 0.348405E-02_JPRB, 0.307081E-02_JPRB, 0.270658E-02_JPRB, 0.238556E-02_JPRB, &
+ & 0.210261E-02_JPRB, 0.185322E-02_JPRB, 0.163341E-02_JPRB, 0.143967E-02_JPRB, 0.126891E-02_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.419122E-02_JPRB, 0.385638E-02_JPRB, 0.354829E-02_JPRB, 0.326481E-02_JPRB, 0.300398E-02_JPRB, &
+ & 0.276399E-02_JPRB, 0.254317E-02_JPRB, 0.234000E-02_JPRB, 0.215305E-02_JPRB, 0.198104E-02_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.495659E-02_JPRB, 0.456777E-02_JPRB, 0.420945E-02_JPRB, 0.387924E-02_JPRB, 0.357494E-02_JPRB, &
+ & 0.329450E-02_JPRB, 0.303606E-02_JPRB, 0.279790E-02_JPRB, 0.257842E-02_JPRB, 0.237615E-02_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.526981E-02_JPRB, 0.490687E-02_JPRB, 0.456893E-02_JPRB, 0.425426E-02_JPRB, 0.396126E-02_JPRB, &
+ & 0.368844E-02_JPRB, 0.343441E-02_JPRB, 0.319788E-02_JPRB, 0.297764E-02_JPRB, 0.277256E-02_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.575426E-02_JPRB, 0.531597E-02_JPRB, 0.491106E-02_JPRB, 0.453699E-02_JPRB, 0.419141E-02_JPRB, &
+ & 0.387216E-02_JPRB, 0.357722E-02_JPRB, 0.330475E-02_JPRB, 0.305303E-02_JPRB, 0.282048E-02_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.549881E-02_JPRB, 0.514328E-02_JPRB, 0.481074E-02_JPRB, 0.449970E-02_JPRB, 0.420877E-02_JPRB, &
+ & 0.393665E-02_JPRB, 0.368213E-02_JPRB, 0.344406E-02_JPRB, 0.322138E-02_JPRB, 0.301310E-02_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.605357E-02_JPRB, 0.561246E-02_JPRB, 0.520349E-02_JPRB, 0.482432E-02_JPRB, 0.447278E-02_JPRB, &
+ & 0.414686E-02_JPRB, 0.384469E-02_JPRB, 0.356453E-02_JPRB, 0.330479E-02_JPRB, 0.306398E-02_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.640504E-02_JPRB, 0.587858E-02_JPRB, 0.539540E-02_JPRB, 0.495194E-02_JPRB, 0.454492E-02_JPRB, &
+ & 0.417136E-02_JPRB, 0.382850E-02_JPRB, 0.351382E-02_JPRB, 0.322501E-02_JPRB, 0.295993E-02_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.677803E-02_JPRB, 0.615625E-02_JPRB, 0.559152E-02_JPRB, 0.507859E-02_JPRB, 0.461271E-02_JPRB, &
+ & 0.418957E-02_JPRB, 0.380524E-02_JPRB, 0.345617E-02_JPRB, 0.313913E-02_JPRB, 0.285116E-02_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.690347E-02_JPRB, 0.627003E-02_JPRB, 0.569472E-02_JPRB, 0.517219E-02_JPRB, 0.469761E-02_JPRB, &
+ & 0.426658E-02_JPRB, 0.387509E-02_JPRB, 0.351953E-02_JPRB, 0.319659E-02_JPRB, 0.290328E-02_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.692680E-02_JPRB, 0.632795E-02_JPRB, 0.578087E-02_JPRB, 0.528109E-02_JPRB, 0.482452E-02_JPRB, &
+ & 0.440742E-02_JPRB, 0.402638E-02_JPRB, 0.367828E-02_JPRB, 0.336028E-02_JPRB, 0.306977E-02_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.754894E-02_JPRB, 0.681481E-02_JPRB, 0.615207E-02_JPRB, 0.555378E-02_JPRB, 0.501367E-02_JPRB, &
+ & 0.452609E-02_JPRB, 0.408593E-02_JPRB, 0.368857E-02_JPRB, 0.332986E-02_JPRB, 0.300603E-02_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.760689E-02_JPRB, 0.709755E-02_JPRB, 0.662232E-02_JPRB, 0.617891E-02_JPRB, 0.576519E-02_JPRB, &
+ & 0.537917E-02_JPRB, 0.501899E-02_JPRB, 0.468293E-02_JPRB, 0.436938E-02_JPRB, 0.407682E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB16
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb16.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb16.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb16.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB16
+END SUBROUTINE SRTM_KGB16
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb17.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb17.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb17.F90	(revision 3330)
@@ -0,0 +1,11280 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB17
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O, CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA17, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 3.15613_JPRB  ,  3.03449_JPRB  ,  2.92069_JPRB  ,  2.63874_JPRB   , &
+ & 2.34581_JPRB  ,  2.06999_JPRB  ,  1.70906_JPRB  ,  1.29085_JPRB   , &
+ & 0.874851_JPRB ,  0.0955392_JPRB,  0.0787813_JPRB,  0.0621951_JPRB , &
+ & 0.0459076_JPRB,  0.0294129_JPRB,  0.0110387_JPRB,  0.00159668_JPRB /)  
+  
+SFLUXREF(:,2) = (/ &
+ & 2.83147_JPRB  ,  2.95919_JPRB  ,  2.96674_JPRB  ,  2.77677_JPRB   , &
+ & 2.46826_JPRB  ,  2.11481_JPRB  ,  1.73243_JPRB  ,  1.30279_JPRB   , &
+ & 0.882714_JPRB ,  0.0962350_JPRB,  0.0802122_JPRB,  0.0636194_JPRB , &
+ & 0.0472620_JPRB,  0.0299051_JPRB,  0.0110785_JPRB,  0.00159668_JPRB /)  
+  
+SFLUXREF(:,3) = (/ &
+ & 2.82300_JPRB  ,  2.94845_JPRB  ,  2.95887_JPRB  ,  2.77593_JPRB   , &
+ & 2.47096_JPRB  ,  2.12596_JPRB  ,  1.73847_JPRB  ,  1.30796_JPRB   , &
+ & 0.884395_JPRB ,  0.0966936_JPRB,  0.0801996_JPRB,  0.0640199_JPRB , &
+ & 0.0472803_JPRB,  0.0300515_JPRB,  0.0112366_JPRB,  0.00160814_JPRB /)  
+  
+SFLUXREF(:,4) = (/ &
+ & 2.81715_JPRB  ,  2.93789_JPRB  ,  2.95091_JPRB  ,  2.77046_JPRB   , &
+ & 2.47716_JPRB  ,  2.13591_JPRB  ,  1.74365_JPRB  ,  1.31277_JPRB   , &
+ & 0.887443_JPRB ,  0.0967016_JPRB,  0.0803391_JPRB,  0.0642442_JPRB , &
+ & 0.0472909_JPRB,  0.0300720_JPRB,  0.0114817_JPRB,  0.00161875_JPRB /)  
+  
+SFLUXREF(:,5) = (/ &
+ & 2.82335_JPRB  ,  2.93168_JPRB  ,  2.91455_JPRB  ,  2.75213_JPRB   , &
+ & 2.49168_JPRB  ,  2.14408_JPRB  ,  1.75726_JPRB  ,  1.32401_JPRB   , &
+ & 0.893644_JPRB ,  0.0969523_JPRB,  0.0805197_JPRB,  0.0639936_JPRB , &
+ & 0.0475099_JPRB,  0.0305667_JPRB,  0.0115372_JPRB,  0.00161875_JPRB /)  
+     
+!     Rayleigh extinction coefficient at v = 3625 cm-1.
+RAYL = 6.86E-10_JPRB
+
+STRRAT = 0.364641_JPRB
+
+LAYREFFR = 30
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.11134E-05_JPRB,0.32092E-03_JPRB,0.55663E-03_JPRB,0.78227E-03_JPRB,0.99421E-03_JPRB, &
+ & 0.12045E-02_JPRB,0.14116E-02_JPRB,0.16069E-02_JPRB,0.19330E-02_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.10544E-05_JPRB,0.35434E-03_JPRB,0.61480E-03_JPRB,0.86424E-03_JPRB,0.11055E-02_JPRB, &
+ & 0.13431E-02_JPRB,0.15754E-02_JPRB,0.17951E-02_JPRB,0.21280E-02_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.98345E-06_JPRB,0.38989E-03_JPRB,0.67747E-03_JPRB,0.95289E-03_JPRB,0.12196E-02_JPRB, &
+ & 0.14864E-02_JPRB,0.17449E-02_JPRB,0.19897E-02_JPRB,0.23564E-02_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.95017E-06_JPRB,0.42582E-03_JPRB,0.74419E-03_JPRB,0.10463E-02_JPRB,0.13424E-02_JPRB, &
+ & 0.16353E-02_JPRB,0.19215E-02_JPRB,0.21939E-02_JPRB,0.25993E-02_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.91870E-06_JPRB,0.46371E-03_JPRB,0.81394E-03_JPRB,0.11464E-02_JPRB,0.14715E-02_JPRB, &
+ & 0.17937E-02_JPRB,0.21072E-02_JPRB,0.24077E-02_JPRB,0.28540E-02_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.94184E-06_JPRB,0.26532E-03_JPRB,0.46157E-03_JPRB,0.63776E-03_JPRB,0.81087E-03_JPRB, &
+ & 0.97728E-03_JPRB,0.11419E-02_JPRB,0.12991E-02_JPRB,0.15121E-02_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.89060E-06_JPRB,0.29417E-03_JPRB,0.50967E-03_JPRB,0.70759E-03_JPRB,0.90203E-03_JPRB, &
+ & 0.10920E-02_JPRB,0.12764E-02_JPRB,0.14544E-02_JPRB,0.16795E-02_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.82720E-06_JPRB,0.32361E-03_JPRB,0.56124E-03_JPRB,0.78299E-03_JPRB,0.99718E-03_JPRB, &
+ & 0.12094E-02_JPRB,0.14172E-02_JPRB,0.16165E-02_JPRB,0.18637E-02_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.78842E-06_JPRB,0.35495E-03_JPRB,0.61684E-03_JPRB,0.86176E-03_JPRB,0.10995E-02_JPRB, &
+ & 0.13345E-02_JPRB,0.15652E-02_JPRB,0.17856E-02_JPRB,0.20621E-02_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.76610E-06_JPRB,0.38728E-03_JPRB,0.67538E-03_JPRB,0.94613E-03_JPRB,0.12082E-02_JPRB, &
+ & 0.14675E-02_JPRB,0.17206E-02_JPRB,0.19640E-02_JPRB,0.22720E-02_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.79663E-06_JPRB,0.21369E-03_JPRB,0.37088E-03_JPRB,0.51222E-03_JPRB,0.64549E-03_JPRB, &
+ & 0.77322E-03_JPRB,0.89939E-03_JPRB,0.10205E-02_JPRB,0.11568E-02_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.75955E-06_JPRB,0.23780E-03_JPRB,0.41153E-03_JPRB,0.56901E-03_JPRB,0.72009E-03_JPRB, &
+ & 0.86735E-03_JPRB,0.10092E-02_JPRB,0.11476E-02_JPRB,0.12913E-02_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.71692E-06_JPRB,0.26276E-03_JPRB,0.45488E-03_JPRB,0.62922E-03_JPRB,0.79836E-03_JPRB, &
+ & 0.96259E-03_JPRB,0.11236E-02_JPRB,0.12796E-02_JPRB,0.14398E-02_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.66348E-06_JPRB,0.28896E-03_JPRB,0.50221E-03_JPRB,0.69411E-03_JPRB,0.88226E-03_JPRB, &
+ & 0.10658E-02_JPRB,0.12456E-02_JPRB,0.14191E-02_JPRB,0.15991E-02_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.64013E-06_JPRB,0.31643E-03_JPRB,0.55166E-03_JPRB,0.76434E-03_JPRB,0.97216E-03_JPRB, &
+ & 0.11745E-02_JPRB,0.13731E-02_JPRB,0.15657E-02_JPRB,0.17671E-02_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.66217E-06_JPRB,0.16966E-03_JPRB,0.29358E-03_JPRB,0.40688E-03_JPRB,0.51114E-03_JPRB, &
+ & 0.60739E-03_JPRB,0.70191E-03_JPRB,0.79446E-03_JPRB,0.88832E-03_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.64111E-06_JPRB,0.18902E-03_JPRB,0.32742E-03_JPRB,0.45364E-03_JPRB,0.57086E-03_JPRB, &
+ & 0.68401E-03_JPRB,0.79116E-03_JPRB,0.89507E-03_JPRB,0.99655E-03_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.60729E-06_JPRB,0.21007E-03_JPRB,0.36354E-03_JPRB,0.50354E-03_JPRB,0.63459E-03_JPRB, &
+ & 0.76113E-03_JPRB,0.88473E-03_JPRB,0.10035E-02_JPRB,0.11163E-02_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.57250E-06_JPRB,0.23203E-03_JPRB,0.40245E-03_JPRB,0.55758E-03_JPRB,0.70295E-03_JPRB, &
+ & 0.84515E-03_JPRB,0.98379E-03_JPRB,0.11165E-02_JPRB,0.12444E-02_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.53524E-06_JPRB,0.25529E-03_JPRB,0.44399E-03_JPRB,0.61564E-03_JPRB,0.77626E-03_JPRB, &
+ & 0.93405E-03_JPRB,0.10892E-02_JPRB,0.12369E-02_JPRB,0.13795E-02_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.55112E-06_JPRB,0.13422E-03_JPRB,0.23166E-03_JPRB,0.32119E-03_JPRB,0.40265E-03_JPRB, &
+ & 0.47812E-03_JPRB,0.54797E-03_JPRB,0.61873E-03_JPRB,0.68912E-03_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.53669E-06_JPRB,0.14990E-03_JPRB,0.25949E-03_JPRB,0.35886E-03_JPRB,0.45239E-03_JPRB, &
+ & 0.53936E-03_JPRB,0.61894E-03_JPRB,0.69718E-03_JPRB,0.77732E-03_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.51495E-06_JPRB,0.16706E-03_JPRB,0.28960E-03_JPRB,0.40020E-03_JPRB,0.50461E-03_JPRB, &
+ & 0.60249E-03_JPRB,0.69677E-03_JPRB,0.78464E-03_JPRB,0.87334E-03_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.48633E-06_JPRB,0.18543E-03_JPRB,0.32159E-03_JPRB,0.44499E-03_JPRB,0.56095E-03_JPRB, &
+ & 0.67055E-03_JPRB,0.77575E-03_JPRB,0.87717E-03_JPRB,0.97694E-03_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.45162E-06_JPRB,0.20472E-03_JPRB,0.35591E-03_JPRB,0.49350E-03_JPRB,0.62163E-03_JPRB, &
+ & 0.74253E-03_JPRB,0.86247E-03_JPRB,0.97518E-03_JPRB,0.10864E-02_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.45055E-06_JPRB,0.10556E-03_JPRB,0.18176E-03_JPRB,0.25137E-03_JPRB,0.31438E-03_JPRB, &
+ & 0.37363E-03_JPRB,0.42759E-03_JPRB,0.47883E-03_JPRB,0.53437E-03_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.44502E-06_JPRB,0.11814E-03_JPRB,0.20383E-03_JPRB,0.28162E-03_JPRB,0.35547E-03_JPRB, &
+ & 0.42261E-03_JPRB,0.48340E-03_JPRB,0.54066E-03_JPRB,0.60352E-03_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.43066E-06_JPRB,0.13217E-03_JPRB,0.22836E-03_JPRB,0.31552E-03_JPRB,0.39762E-03_JPRB, &
+ & 0.47493E-03_JPRB,0.54543E-03_JPRB,0.61066E-03_JPRB,0.68176E-03_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.41116E-06_JPRB,0.14733E-03_JPRB,0.25472E-03_JPRB,0.35204E-03_JPRB,0.44334E-03_JPRB, &
+ & 0.52997E-03_JPRB,0.60966E-03_JPRB,0.68622E-03_JPRB,0.76607E-03_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.38748E-06_JPRB,0.16344E-03_JPRB,0.28281E-03_JPRB,0.39173E-03_JPRB,0.49305E-03_JPRB, &
+ & 0.58880E-03_JPRB,0.67954E-03_JPRB,0.76485E-03_JPRB,0.85401E-03_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.36582E-06_JPRB,0.82958E-04_JPRB,0.14210E-03_JPRB,0.19574E-03_JPRB,0.24440E-03_JPRB, &
+ & 0.29039E-03_JPRB,0.33281E-03_JPRB,0.37177E-03_JPRB,0.42178E-03_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.36707E-06_JPRB,0.92909E-04_JPRB,0.15977E-03_JPRB,0.22034E-03_JPRB,0.27742E-03_JPRB, &
+ & 0.32955E-03_JPRB,0.37727E-03_JPRB,0.41956E-03_JPRB,0.47859E-03_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.35787E-06_JPRB,0.10432E-03_JPRB,0.17930E-03_JPRB,0.24769E-03_JPRB,0.31155E-03_JPRB, &
+ & 0.37242E-03_JPRB,0.42699E-03_JPRB,0.47474E-03_JPRB,0.54083E-03_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.34482E-06_JPRB,0.11685E-03_JPRB,0.20055E-03_JPRB,0.27725E-03_JPRB,0.34866E-03_JPRB, &
+ & 0.41677E-03_JPRB,0.47903E-03_JPRB,0.53518E-03_JPRB,0.60812E-03_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.32598E-06_JPRB,0.13001E-03_JPRB,0.22341E-03_JPRB,0.30900E-03_JPRB,0.38919E-03_JPRB, &
+ & 0.46465E-03_JPRB,0.53467E-03_JPRB,0.59926E-03_JPRB,0.67733E-03_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.29834E-06_JPRB,0.65009E-04_JPRB,0.11183E-03_JPRB,0.15200E-03_JPRB,0.18969E-03_JPRB, &
+ & 0.22517E-03_JPRB,0.25832E-03_JPRB,0.28730E-03_JPRB,0.33955E-03_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.29745E-06_JPRB,0.72872E-04_JPRB,0.12482E-03_JPRB,0.17221E-03_JPRB,0.21583E-03_JPRB, &
+ & 0.25596E-03_JPRB,0.29328E-03_JPRB,0.32520E-03_JPRB,0.38620E-03_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.29421E-06_JPRB,0.82036E-04_JPRB,0.14010E-03_JPRB,0.19344E-03_JPRB,0.24362E-03_JPRB, &
+ & 0.29071E-03_JPRB,0.33308E-03_JPRB,0.36867E-03_JPRB,0.43901E-03_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.28596E-06_JPRB,0.92256E-04_JPRB,0.15738E-03_JPRB,0.21752E-03_JPRB,0.27325E-03_JPRB, &
+ & 0.32643E-03_JPRB,0.37578E-03_JPRB,0.41710E-03_JPRB,0.49358E-03_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.27296E-06_JPRB,0.10320E-03_JPRB,0.17598E-03_JPRB,0.24339E-03_JPRB,0.30591E-03_JPRB, &
+ & 0.36505E-03_JPRB,0.42061E-03_JPRB,0.46872E-03_JPRB,0.54993E-03_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.24259E-06_JPRB,0.50626E-04_JPRB,0.86945E-04_JPRB,0.11778E-03_JPRB,0.14692E-03_JPRB, &
+ & 0.17431E-03_JPRB,0.20057E-03_JPRB,0.22131E-03_JPRB,0.29919E-03_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.24058E-06_JPRB,0.56966E-04_JPRB,0.97467E-04_JPRB,0.13405E-03_JPRB,0.16750E-03_JPRB, &
+ & 0.19814E-03_JPRB,0.22739E-03_JPRB,0.25281E-03_JPRB,0.34022E-03_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.24091E-06_JPRB,0.64324E-04_JPRB,0.10971E-03_JPRB,0.15061E-03_JPRB,0.18996E-03_JPRB, &
+ & 0.22580E-03_JPRB,0.25885E-03_JPRB,0.28694E-03_JPRB,0.38045E-03_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.23550E-06_JPRB,0.72451E-04_JPRB,0.12345E-03_JPRB,0.16991E-03_JPRB,0.21362E-03_JPRB, &
+ & 0.25484E-03_JPRB,0.29341E-03_JPRB,0.32523E-03_JPRB,0.42836E-03_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.22696E-06_JPRB,0.81351E-04_JPRB,0.13839E-03_JPRB,0.19090E-03_JPRB,0.23986E-03_JPRB, &
+ & 0.28608E-03_JPRB,0.32910E-03_JPRB,0.36639E-03_JPRB,0.47925E-03_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.19679E-06_JPRB,0.39760E-04_JPRB,0.68052E-04_JPRB,0.92295E-04_JPRB,0.11498E-03_JPRB, &
+ & 0.13656E-03_JPRB,0.15604E-03_JPRB,0.17171E-03_JPRB,0.29679E-03_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.19567E-06_JPRB,0.44847E-04_JPRB,0.76829E-04_JPRB,0.10518E-03_JPRB,0.13102E-03_JPRB, &
+ & 0.15509E-03_JPRB,0.17764E-03_JPRB,0.19843E-03_JPRB,0.32863E-03_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.19574E-06_JPRB,0.50565E-04_JPRB,0.86466E-04_JPRB,0.11878E-03_JPRB,0.14920E-03_JPRB, &
+ & 0.17698E-03_JPRB,0.20258E-03_JPRB,0.22526E-03_JPRB,0.36959E-03_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.19262E-06_JPRB,0.57124E-04_JPRB,0.97546E-04_JPRB,0.13398E-03_JPRB,0.16803E-03_JPRB, &
+ & 0.20046E-03_JPRB,0.23022E-03_JPRB,0.25578E-03_JPRB,0.41543E-03_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.18747E-06_JPRB,0.64264E-04_JPRB,0.10971E-03_JPRB,0.15086E-03_JPRB,0.18923E-03_JPRB, &
+ & 0.22565E-03_JPRB,0.25934E-03_JPRB,0.28921E-03_JPRB,0.46463E-03_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.16015E-06_JPRB,0.33025E-04_JPRB,0.56562E-04_JPRB,0.76625E-04_JPRB,0.95645E-04_JPRB, &
+ & 0.11358E-03_JPRB,0.12955E-03_JPRB,0.14269E-03_JPRB,0.27545E-03_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.15918E-06_JPRB,0.37148E-04_JPRB,0.63775E-04_JPRB,0.87600E-04_JPRB,0.10897E-03_JPRB, &
+ & 0.12893E-03_JPRB,0.14756E-03_JPRB,0.16465E-03_JPRB,0.30799E-03_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.15897E-06_JPRB,0.41993E-04_JPRB,0.72040E-04_JPRB,0.98928E-04_JPRB,0.12433E-03_JPRB, &
+ & 0.14733E-03_JPRB,0.16824E-03_JPRB,0.18694E-03_JPRB,0.34340E-03_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.15578E-06_JPRB,0.47441E-04_JPRB,0.81426E-04_JPRB,0.11165E-03_JPRB,0.13985E-03_JPRB, &
+ & 0.16673E-03_JPRB,0.19156E-03_JPRB,0.21268E-03_JPRB,0.38176E-03_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.15210E-06_JPRB,0.53398E-04_JPRB,0.91657E-04_JPRB,0.12592E-03_JPRB,0.15769E-03_JPRB, &
+ & 0.18781E-03_JPRB,0.21569E-03_JPRB,0.24069E-03_JPRB,0.42228E-03_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.13021E-06_JPRB,0.27272E-04_JPRB,0.46832E-04_JPRB,0.63511E-04_JPRB,0.79205E-04_JPRB, &
+ & 0.93949E-04_JPRB,0.10719E-03_JPRB,0.11827E-03_JPRB,0.23944E-03_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.12930E-06_JPRB,0.30686E-04_JPRB,0.52925E-04_JPRB,0.72782E-04_JPRB,0.90527E-04_JPRB, &
+ & 0.10708E-03_JPRB,0.12236E-03_JPRB,0.13620E-03_JPRB,0.27121E-03_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.12900E-06_JPRB,0.34723E-04_JPRB,0.59867E-04_JPRB,0.82205E-04_JPRB,0.10326E-03_JPRB, &
+ & 0.12238E-03_JPRB,0.13958E-03_JPRB,0.15498E-03_JPRB,0.29930E-03_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.12648E-06_JPRB,0.39252E-04_JPRB,0.67618E-04_JPRB,0.92949E-04_JPRB,0.11636E-03_JPRB, &
+ & 0.13835E-03_JPRB,0.15924E-03_JPRB,0.17653E-03_JPRB,0.33050E-03_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.12299E-06_JPRB,0.44213E-04_JPRB,0.76244E-04_JPRB,0.10488E-03_JPRB,0.13135E-03_JPRB, &
+ & 0.15601E-03_JPRB,0.17902E-03_JPRB,0.19976E-03_JPRB,0.36579E-03_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.10554E-06_JPRB,0.22388E-04_JPRB,0.38597E-04_JPRB,0.52378E-04_JPRB,0.65404E-04_JPRB, &
+ & 0.77567E-04_JPRB,0.88543E-04_JPRB,0.97801E-04_JPRB,0.19599E-03_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.10480E-06_JPRB,0.25181E-04_JPRB,0.43670E-04_JPRB,0.60205E-04_JPRB,0.74883E-04_JPRB, &
+ & 0.88605E-04_JPRB,0.10117E-03_JPRB,0.11242E-03_JPRB,0.22146E-03_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.10429E-06_JPRB,0.28530E-04_JPRB,0.49422E-04_JPRB,0.68039E-04_JPRB,0.85435E-04_JPRB, &
+ & 0.10136E-03_JPRB,0.11557E-03_JPRB,0.12828E-03_JPRB,0.24447E-03_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.10232E-06_JPRB,0.32301E-04_JPRB,0.55797E-04_JPRB,0.76948E-04_JPRB,0.96447E-04_JPRB, &
+ & 0.11462E-03_JPRB,0.13166E-03_JPRB,0.14616E-03_JPRB,0.26999E-03_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.99014E-07_JPRB,0.36394E-04_JPRB,0.62994E-04_JPRB,0.86946E-04_JPRB,0.10900E-03_JPRB, &
+ & 0.12937E-03_JPRB,0.14833E-03_JPRB,0.16540E-03_JPRB,0.29916E-03_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.23488E-04_JPRB,0.16684E-02_JPRB,0.29575E-02_JPRB,0.40083E-02_JPRB,0.49953E-02_JPRB, &
+ & 0.59021E-02_JPRB,0.67446E-02_JPRB,0.76008E-02_JPRB,0.87032E-02_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.25156E-04_JPRB,0.18462E-02_JPRB,0.32711E-02_JPRB,0.45008E-02_JPRB,0.56182E-02_JPRB, &
+ & 0.66287E-02_JPRB,0.75909E-02_JPRB,0.85558E-02_JPRB,0.97543E-02_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.27084E-04_JPRB,0.20325E-02_JPRB,0.36034E-02_JPRB,0.49992E-02_JPRB,0.62796E-02_JPRB, &
+ & 0.74134E-02_JPRB,0.84994E-02_JPRB,0.95694E-02_JPRB,0.10847E-01_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.28147E-04_JPRB,0.22347E-02_JPRB,0.39628E-02_JPRB,0.55005E-02_JPRB,0.69453E-02_JPRB, &
+ & 0.82429E-02_JPRB,0.94699E-02_JPRB,0.10660E-01_JPRB,0.11991E-01_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.28719E-04_JPRB,0.24475E-02_JPRB,0.43369E-02_JPRB,0.60360E-02_JPRB,0.76183E-02_JPRB, &
+ & 0.90878E-02_JPRB,0.10493E-01_JPRB,0.11805E-01_JPRB,0.13204E-01_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.20947E-04_JPRB,0.14015E-02_JPRB,0.24728E-02_JPRB,0.33676E-02_JPRB,0.41801E-02_JPRB, &
+ & 0.49244E-02_JPRB,0.55787E-02_JPRB,0.62206E-02_JPRB,0.69741E-02_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.22352E-04_JPRB,0.15535E-02_JPRB,0.27396E-02_JPRB,0.37870E-02_JPRB,0.47121E-02_JPRB, &
+ & 0.55571E-02_JPRB,0.62892E-02_JPRB,0.70132E-02_JPRB,0.78092E-02_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.23882E-04_JPRB,0.17213E-02_JPRB,0.30345E-02_JPRB,0.42020E-02_JPRB,0.52782E-02_JPRB, &
+ & 0.62285E-02_JPRB,0.70556E-02_JPRB,0.78819E-02_JPRB,0.87330E-02_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.24650E-04_JPRB,0.18954E-02_JPRB,0.33384E-02_JPRB,0.46336E-02_JPRB,0.58333E-02_JPRB, &
+ & 0.69311E-02_JPRB,0.78751E-02_JPRB,0.88149E-02_JPRB,0.96911E-02_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.25136E-04_JPRB,0.20806E-02_JPRB,0.36641E-02_JPRB,0.50966E-02_JPRB,0.64193E-02_JPRB, &
+ & 0.76281E-02_JPRB,0.87403E-02_JPRB,0.97943E-02_JPRB,0.10704E-01_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.17720E-04_JPRB,0.11414E-02_JPRB,0.20045E-02_JPRB,0.27288E-02_JPRB,0.33891E-02_JPRB, &
+ & 0.39755E-02_JPRB,0.44967E-02_JPRB,0.49389E-02_JPRB,0.53858E-02_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.19087E-04_JPRB,0.12745E-02_JPRB,0.22336E-02_JPRB,0.30841E-02_JPRB,0.38333E-02_JPRB, &
+ & 0.44983E-02_JPRB,0.50895E-02_JPRB,0.55930E-02_JPRB,0.60666E-02_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.20125E-04_JPRB,0.14178E-02_JPRB,0.24795E-02_JPRB,0.34278E-02_JPRB,0.43106E-02_JPRB, &
+ & 0.50607E-02_JPRB,0.57280E-02_JPRB,0.63092E-02_JPRB,0.68285E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 3, 2) = (/ &
+ & 0.20895E-04_JPRB,0.15666E-02_JPRB,0.27348E-02_JPRB,0.37934E-02_JPRB,0.47769E-02_JPRB, &
+ & 0.56621E-02_JPRB,0.64046E-02_JPRB,0.70864E-02_JPRB,0.76026E-02_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.21508E-04_JPRB,0.17251E-02_JPRB,0.30153E-02_JPRB,0.41809E-02_JPRB,0.52689E-02_JPRB, &
+ & 0.62462E-02_JPRB,0.71125E-02_JPRB,0.79104E-02_JPRB,0.84389E-02_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.14661E-04_JPRB,0.92261E-03_JPRB,0.16088E-02_JPRB,0.21788E-02_JPRB,0.26956E-02_JPRB, &
+ & 0.31612E-02_JPRB,0.35626E-02_JPRB,0.38878E-02_JPRB,0.41525E-02_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.15607E-04_JPRB,0.10329E-02_JPRB,0.17973E-02_JPRB,0.24735E-02_JPRB,0.30696E-02_JPRB, &
+ & 0.35953E-02_JPRB,0.40511E-02_JPRB,0.44162E-02_JPRB,0.46990E-02_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.16559E-04_JPRB,0.11550E-02_JPRB,0.20019E-02_JPRB,0.27577E-02_JPRB,0.34625E-02_JPRB, &
+ & 0.40662E-02_JPRB,0.45831E-02_JPRB,0.49995E-02_JPRB,0.53073E-02_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.17263E-04_JPRB,0.12794E-02_JPRB,0.22184E-02_JPRB,0.30614E-02_JPRB,0.38510E-02_JPRB, &
+ & 0.45664E-02_JPRB,0.51532E-02_JPRB,0.56290E-02_JPRB,0.59436E-02_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.17895E-04_JPRB,0.14130E-02_JPRB,0.24526E-02_JPRB,0.33805E-02_JPRB,0.42622E-02_JPRB, &
+ & 0.50556E-02_JPRB,0.57489E-02_JPRB,0.63094E-02_JPRB,0.66256E-02_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.11885E-04_JPRB,0.74888E-03_JPRB,0.12826E-02_JPRB,0.17258E-02_JPRB,0.21346E-02_JPRB, &
+ & 0.24972E-02_JPRB,0.28046E-02_JPRB,0.30606E-02_JPRB,0.32323E-02_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.12452E-04_JPRB,0.84084E-03_JPRB,0.14380E-02_JPRB,0.19698E-02_JPRB,0.24386E-02_JPRB, &
+ & 0.28536E-02_JPRB,0.32075E-02_JPRB,0.34937E-02_JPRB,0.36562E-02_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.13439E-04_JPRB,0.94272E-03_JPRB,0.16065E-02_JPRB,0.22079E-02_JPRB,0.27660E-02_JPRB, &
+ & 0.32389E-02_JPRB,0.36440E-02_JPRB,0.39673E-02_JPRB,0.41393E-02_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.14053E-04_JPRB,0.10473E-02_JPRB,0.17899E-02_JPRB,0.24603E-02_JPRB,0.30861E-02_JPRB, &
+ & 0.36521E-02_JPRB,0.41156E-02_JPRB,0.44825E-02_JPRB,0.46529E-02_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.14586E-04_JPRB,0.11585E-02_JPRB,0.19886E-02_JPRB,0.27257E-02_JPRB,0.34272E-02_JPRB, &
+ & 0.40599E-02_JPRB,0.46115E-02_JPRB,0.50286E-02_JPRB,0.52085E-02_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.94872E-05_JPRB,0.59793E-03_JPRB,0.10210E-02_JPRB,0.13572E-02_JPRB,0.16716E-02_JPRB, &
+ & 0.19512E-02_JPRB,0.21890E-02_JPRB,0.23827E-02_JPRB,0.25347E-02_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.10060E-04_JPRB,0.67400E-03_JPRB,0.11432E-02_JPRB,0.15564E-02_JPRB,0.19188E-02_JPRB, &
+ & 0.22389E-02_JPRB,0.25161E-02_JPRB,0.27308E-02_JPRB,0.28770E-02_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.10743E-04_JPRB,0.75948E-03_JPRB,0.12806E-02_JPRB,0.17551E-02_JPRB,0.21862E-02_JPRB, &
+ & 0.25545E-02_JPRB,0.28729E-02_JPRB,0.31149E-02_JPRB,0.32716E-02_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.11322E-04_JPRB,0.85134E-03_JPRB,0.14320E-02_JPRB,0.19630E-02_JPRB,0.24514E-02_JPRB, &
+ & 0.28930E-02_JPRB,0.32578E-02_JPRB,0.35375E-02_JPRB,0.36912E-02_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.11755E-04_JPRB,0.94611E-03_JPRB,0.15986E-02_JPRB,0.21804E-02_JPRB,0.27291E-02_JPRB, &
+ & 0.32306E-02_JPRB,0.36695E-02_JPRB,0.39913E-02_JPRB,0.41439E-02_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.75931E-05_JPRB,0.47130E-03_JPRB,0.81211E-03_JPRB,0.10658E-02_JPRB,0.13004E-02_JPRB, &
+ & 0.15175E-02_JPRB,0.17002E-02_JPRB,0.18473E-02_JPRB,0.19861E-02_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.80724E-05_JPRB,0.53358E-03_JPRB,0.91163E-03_JPRB,0.12261E-02_JPRB,0.15014E-02_JPRB, &
+ & 0.17483E-02_JPRB,0.19612E-02_JPRB,0.21201E-02_JPRB,0.22591E-02_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.84404E-05_JPRB,0.60517E-03_JPRB,0.10236E-02_JPRB,0.13887E-02_JPRB,0.17204E-02_JPRB, &
+ & 0.20031E-02_JPRB,0.22497E-02_JPRB,0.24321E-02_JPRB,0.25823E-02_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.90511E-05_JPRB,0.68037E-03_JPRB,0.11475E-02_JPRB,0.15596E-02_JPRB,0.19402E-02_JPRB, &
+ & 0.22789E-02_JPRB,0.25633E-02_JPRB,0.27753E-02_JPRB,0.29247E-02_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.94405E-05_JPRB,0.76103E-03_JPRB,0.12836E-02_JPRB,0.17422E-02_JPRB,0.21698E-02_JPRB, &
+ & 0.25585E-02_JPRB,0.28989E-02_JPRB,0.31444E-02_JPRB,0.33016E-02_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.58080E-05_JPRB,0.36782E-03_JPRB,0.63516E-03_JPRB,0.83799E-03_JPRB,0.10119E-02_JPRB, &
+ & 0.11754E-02_JPRB,0.13161E-02_JPRB,0.14382E-02_JPRB,0.15837E-02_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.63156E-05_JPRB,0.41909E-03_JPRB,0.71974E-03_JPRB,0.96952E-03_JPRB,0.11711E-02_JPRB, &
+ & 0.13617E-02_JPRB,0.15234E-02_JPRB,0.16441E-02_JPRB,0.18118E-02_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.66776E-05_JPRB,0.47829E-03_JPRB,0.81150E-03_JPRB,0.11056E-02_JPRB,0.13493E-02_JPRB, &
+ & 0.15646E-02_JPRB,0.17524E-02_JPRB,0.18937E-02_JPRB,0.20698E-02_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.70582E-05_JPRB,0.54017E-03_JPRB,0.91330E-03_JPRB,0.12434E-02_JPRB,0.15411E-02_JPRB, &
+ & 0.17884E-02_JPRB,0.20057E-02_JPRB,0.21704E-02_JPRB,0.23548E-02_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.74902E-05_JPRB,0.60717E-03_JPRB,0.10267E-02_JPRB,0.13908E-02_JPRB,0.17231E-02_JPRB, &
+ & 0.20285E-02_JPRB,0.22810E-02_JPRB,0.24710E-02_JPRB,0.26631E-02_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.45061E-05_JPRB,0.28626E-03_JPRB,0.49448E-03_JPRB,0.65317E-03_JPRB,0.79081E-03_JPRB, &
+ & 0.91066E-03_JPRB,0.10182E-02_JPRB,0.11107E-02_JPRB,0.14592E-02_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.49392E-05_JPRB,0.32734E-03_JPRB,0.56558E-03_JPRB,0.76077E-03_JPRB,0.91846E-03_JPRB, &
+ & 0.10578E-02_JPRB,0.11776E-02_JPRB,0.12720E-02_JPRB,0.16778E-02_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.52580E-05_JPRB,0.37522E-03_JPRB,0.63845E-03_JPRB,0.87805E-03_JPRB,0.10619E-02_JPRB, &
+ & 0.12194E-02_JPRB,0.13606E-02_JPRB,0.14680E-02_JPRB,0.19259E-02_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.54991E-05_JPRB,0.42659E-03_JPRB,0.72103E-03_JPRB,0.98756E-03_JPRB,0.12163E-02_JPRB, &
+ & 0.14007E-02_JPRB,0.15647E-02_JPRB,0.16900E-02_JPRB,0.21772E-02_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.58769E-05_JPRB,0.48199E-03_JPRB,0.81466E-03_JPRB,0.11072E-02_JPRB,0.13684E-02_JPRB, &
+ & 0.15984E-02_JPRB,0.17887E-02_JPRB,0.19333E-02_JPRB,0.24331E-02_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.34154E-05_JPRB,0.22534E-03_JPRB,0.38788E-03_JPRB,0.51113E-03_JPRB,0.62194E-03_JPRB, &
+ & 0.71432E-03_JPRB,0.79743E-03_JPRB,0.86289E-03_JPRB,0.14758E-02_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.38085E-05_JPRB,0.25832E-03_JPRB,0.44748E-03_JPRB,0.59835E-03_JPRB,0.72514E-03_JPRB, &
+ & 0.83284E-03_JPRB,0.91941E-03_JPRB,0.99583E-03_JPRB,0.17358E-02_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.41578E-05_JPRB,0.29655E-03_JPRB,0.50553E-03_JPRB,0.69511E-03_JPRB,0.84107E-03_JPRB, &
+ & 0.96374E-03_JPRB,0.10666E-02_JPRB,0.11478E-02_JPRB,0.19625E-02_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.43917E-05_JPRB,0.33908E-03_JPRB,0.57351E-03_JPRB,0.78640E-03_JPRB,0.96862E-03_JPRB, &
+ & 0.11109E-02_JPRB,0.12309E-02_JPRB,0.13266E-02_JPRB,0.22103E-02_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.45446E-05_JPRB,0.38548E-03_JPRB,0.64883E-03_JPRB,0.88401E-03_JPRB,0.10952E-02_JPRB, &
+ & 0.12706E-02_JPRB,0.14136E-02_JPRB,0.15239E-02_JPRB,0.24754E-02_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.27604E-05_JPRB,0.18848E-03_JPRB,0.32532E-03_JPRB,0.42949E-03_JPRB,0.52350E-03_JPRB, &
+ & 0.60084E-03_JPRB,0.66640E-03_JPRB,0.72070E-03_JPRB,0.13692E-02_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.30908E-05_JPRB,0.21679E-03_JPRB,0.37259E-03_JPRB,0.50366E-03_JPRB,0.61074E-03_JPRB, &
+ & 0.70158E-03_JPRB,0.77271E-03_JPRB,0.83037E-03_JPRB,0.15689E-02_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.33674E-05_JPRB,0.24965E-03_JPRB,0.42244E-03_JPRB,0.58353E-03_JPRB,0.70923E-03_JPRB, &
+ & 0.81330E-03_JPRB,0.89750E-03_JPRB,0.96131E-03_JPRB,0.17971E-02_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.35568E-05_JPRB,0.28602E-03_JPRB,0.48044E-03_JPRB,0.65868E-03_JPRB,0.81816E-03_JPRB, &
+ & 0.93857E-03_JPRB,0.10357E-02_JPRB,0.11119E-02_JPRB,0.20509E-02_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.36921E-05_JPRB,0.32484E-03_JPRB,0.54623E-03_JPRB,0.74475E-03_JPRB,0.92307E-03_JPRB, &
+ & 0.10758E-02_JPRB,0.11895E-02_JPRB,0.12777E-02_JPRB,0.23253E-02_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.22272E-05_JPRB,0.15807E-03_JPRB,0.27163E-03_JPRB,0.35935E-03_JPRB,0.43781E-03_JPRB, &
+ & 0.50321E-03_JPRB,0.55776E-03_JPRB,0.60046E-03_JPRB,0.11852E-02_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.24898E-05_JPRB,0.18201E-03_JPRB,0.31004E-03_JPRB,0.42206E-03_JPRB,0.51226E-03_JPRB, &
+ & 0.58824E-03_JPRB,0.64919E-03_JPRB,0.69291E-03_JPRB,0.13623E-02_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.27021E-05_JPRB,0.20958E-03_JPRB,0.35322E-03_JPRB,0.48676E-03_JPRB,0.59587E-03_JPRB, &
+ & 0.68364E-03_JPRB,0.75527E-03_JPRB,0.80436E-03_JPRB,0.15654E-02_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.28526E-05_JPRB,0.24038E-03_JPRB,0.40262E-03_JPRB,0.55096E-03_JPRB,0.68671E-03_JPRB, &
+ & 0.79103E-03_JPRB,0.87211E-03_JPRB,0.93124E-03_JPRB,0.17898E-02_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.29899E-05_JPRB,0.27289E-03_JPRB,0.45904E-03_JPRB,0.62448E-03_JPRB,0.77496E-03_JPRB, &
+ & 0.90212E-03_JPRB,0.10018E-02_JPRB,0.10706E-02_JPRB,0.20265E-02_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.17576E-05_JPRB,0.13151E-03_JPRB,0.22518E-03_JPRB,0.29890E-03_JPRB,0.36398E-03_JPRB, &
+ & 0.41884E-03_JPRB,0.46505E-03_JPRB,0.50086E-03_JPRB,0.97916E-03_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.19524E-05_JPRB,0.15189E-03_JPRB,0.25686E-03_JPRB,0.35123E-03_JPRB,0.42723E-03_JPRB, &
+ & 0.49061E-03_JPRB,0.54293E-03_JPRB,0.57815E-03_JPRB,0.11260E-02_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.21134E-05_JPRB,0.17558E-03_JPRB,0.29382E-03_JPRB,0.40457E-03_JPRB,0.49777E-03_JPRB, &
+ & 0.57153E-03_JPRB,0.63185E-03_JPRB,0.67213E-03_JPRB,0.12960E-02_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.22681E-05_JPRB,0.20106E-03_JPRB,0.33583E-03_JPRB,0.45977E-03_JPRB,0.57094E-03_JPRB, &
+ & 0.66275E-03_JPRB,0.73149E-03_JPRB,0.77799E-03_JPRB,0.14856E-02_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.23940E-05_JPRB,0.22853E-03_JPRB,0.38323E-03_JPRB,0.52126E-03_JPRB,0.64684E-03_JPRB, &
+ & 0.75455E-03_JPRB,0.84115E-03_JPRB,0.89575E-03_JPRB,0.16816E-02_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.87154E-04_JPRB,0.70456E-02_JPRB,0.11624E-01_JPRB,0.16007E-01_JPRB,0.20277E-01_JPRB, &
+ & 0.24349E-01_JPRB,0.27902E-01_JPRB,0.30956E-01_JPRB,0.33159E-01_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.92678E-04_JPRB,0.75324E-02_JPRB,0.12552E-01_JPRB,0.17444E-01_JPRB,0.21967E-01_JPRB, &
+ & 0.26250E-01_JPRB,0.30241E-01_JPRB,0.33348E-01_JPRB,0.36164E-01_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.97955E-04_JPRB,0.80153E-02_JPRB,0.13502E-01_JPRB,0.18812E-01_JPRB,0.23862E-01_JPRB, &
+ & 0.28480E-01_JPRB,0.32511E-01_JPRB,0.35713E-01_JPRB,0.38349E-01_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.10404E-03_JPRB,0.84724E-02_JPRB,0.14429E-01_JPRB,0.20136E-01_JPRB,0.25672E-01_JPRB, &
+ & 0.30688E-01_JPRB,0.35011E-01_JPRB,0.38379E-01_JPRB,0.40673E-01_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.11110E-03_JPRB,0.89123E-02_JPRB,0.15343E-01_JPRB,0.21479E-01_JPRB,0.27290E-01_JPRB, &
+ & 0.32751E-01_JPRB,0.37455E-01_JPRB,0.40931E-01_JPRB,0.42463E-01_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.73214E-04_JPRB,0.61410E-02_JPRB,0.10125E-01_JPRB,0.13650E-01_JPRB,0.17158E-01_JPRB, &
+ & 0.20627E-01_JPRB,0.23628E-01_JPRB,0.26251E-01_JPRB,0.27481E-01_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.77936E-04_JPRB,0.65751E-02_JPRB,0.10966E-01_JPRB,0.14877E-01_JPRB,0.18693E-01_JPRB, &
+ & 0.22272E-01_JPRB,0.25630E-01_JPRB,0.28395E-01_JPRB,0.29894E-01_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.83061E-04_JPRB,0.69828E-02_JPRB,0.11774E-01_JPRB,0.16068E-01_JPRB,0.20317E-01_JPRB, &
+ & 0.24244E-01_JPRB,0.27748E-01_JPRB,0.30432E-01_JPRB,0.31851E-01_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.88564E-04_JPRB,0.73985E-02_JPRB,0.12581E-01_JPRB,0.17226E-01_JPRB,0.21842E-01_JPRB, &
+ & 0.26177E-01_JPRB,0.29969E-01_JPRB,0.32748E-01_JPRB,0.33805E-01_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.94933E-04_JPRB,0.77988E-02_JPRB,0.13372E-01_JPRB,0.18367E-01_JPRB,0.23323E-01_JPRB, &
+ & 0.27928E-01_JPRB,0.31964E-01_JPRB,0.35013E-01_JPRB,0.35327E-01_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.60947E-04_JPRB,0.52436E-02_JPRB,0.86174E-02_JPRB,0.11520E-01_JPRB,0.14231E-01_JPRB, &
+ & 0.17027E-01_JPRB,0.19469E-01_JPRB,0.21634E-01_JPRB,0.21981E-01_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.64921E-04_JPRB,0.55975E-02_JPRB,0.93512E-02_JPRB,0.12526E-01_JPRB,0.15516E-01_JPRB, &
+ & 0.18471E-01_JPRB,0.21270E-01_JPRB,0.23512E-01_JPRB,0.24114E-01_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.69521E-04_JPRB,0.59648E-02_JPRB,0.10060E-01_JPRB,0.13582E-01_JPRB,0.16903E-01_JPRB, &
+ & 0.20177E-01_JPRB,0.23055E-01_JPRB,0.25380E-01_JPRB,0.25822E-01_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.74348E-04_JPRB,0.63104E-02_JPRB,0.10767E-01_JPRB,0.14599E-01_JPRB,0.18273E-01_JPRB, &
+ & 0.21836E-01_JPRB,0.24984E-01_JPRB,0.27358E-01_JPRB,0.27450E-01_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.79780E-04_JPRB,0.66671E-02_JPRB,0.11458E-01_JPRB,0.15590E-01_JPRB,0.19579E-01_JPRB, &
+ & 0.23358E-01_JPRB,0.26806E-01_JPRB,0.29335E-01_JPRB,0.28786E-01_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.50799E-04_JPRB,0.44148E-02_JPRB,0.72225E-02_JPRB,0.96483E-02_JPRB,0.11767E-01_JPRB, &
+ & 0.13828E-01_JPRB,0.15844E-01_JPRB,0.17588E-01_JPRB,0.17391E-01_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.54227E-04_JPRB,0.47231E-02_JPRB,0.78527E-02_JPRB,0.10493E-01_JPRB,0.12835E-01_JPRB, &
+ & 0.15126E-01_JPRB,0.17466E-01_JPRB,0.19219E-01_JPRB,0.19351E-01_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.58151E-04_JPRB,0.50277E-02_JPRB,0.84823E-02_JPRB,0.11418E-01_JPRB,0.13969E-01_JPRB, &
+ & 0.16576E-01_JPRB,0.18903E-01_JPRB,0.20840E-01_JPRB,0.20853E-01_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.62433E-04_JPRB,0.53372E-02_JPRB,0.90813E-02_JPRB,0.12325E-01_JPRB,0.15163E-01_JPRB, &
+ & 0.17971E-01_JPRB,0.20590E-01_JPRB,0.22529E-01_JPRB,0.22273E-01_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.66852E-04_JPRB,0.56429E-02_JPRB,0.96836E-02_JPRB,0.13189E-01_JPRB,0.16280E-01_JPRB, &
+ & 0.19312E-01_JPRB,0.22136E-01_JPRB,0.24263E-01_JPRB,0.23466E-01_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.42593E-04_JPRB,0.36760E-02_JPRB,0.59913E-02_JPRB,0.79812E-02_JPRB,0.97729E-02_JPRB, &
+ & 0.11265E-01_JPRB,0.12874E-01_JPRB,0.14150E-01_JPRB,0.13651E-01_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.45779E-04_JPRB,0.39344E-02_JPRB,0.65401E-02_JPRB,0.87030E-02_JPRB,0.10650E-01_JPRB, &
+ & 0.12374E-01_JPRB,0.14135E-01_JPRB,0.15529E-01_JPRB,0.15507E-01_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.48868E-04_JPRB,0.42013E-02_JPRB,0.70859E-02_JPRB,0.94912E-02_JPRB,0.11609E-01_JPRB, &
+ & 0.13557E-01_JPRB,0.15381E-01_JPRB,0.16993E-01_JPRB,0.16785E-01_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.52509E-04_JPRB,0.44674E-02_JPRB,0.76022E-02_JPRB,0.10271E-01_JPRB,0.12630E-01_JPRB, &
+ & 0.14736E-01_JPRB,0.16830E-01_JPRB,0.18387E-01_JPRB,0.18040E-01_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.56196E-04_JPRB,0.47381E-02_JPRB,0.81005E-02_JPRB,0.11026E-01_JPRB,0.13586E-01_JPRB, &
+ & 0.15940E-01_JPRB,0.18160E-01_JPRB,0.19920E-01_JPRB,0.19092E-01_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.36112E-04_JPRB,0.30316E-02_JPRB,0.49038E-02_JPRB,0.65325E-02_JPRB,0.79606E-02_JPRB, &
+ & 0.91706E-02_JPRB,0.10285E-01_JPRB,0.11252E-01_JPRB,0.10556E-01_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.38502E-04_JPRB,0.32575E-02_JPRB,0.53855E-02_JPRB,0.71302E-02_JPRB,0.87200E-02_JPRB, &
+ & 0.10138E-01_JPRB,0.11319E-01_JPRB,0.12504E-01_JPRB,0.12109E-01_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.41070E-04_JPRB,0.34869E-02_JPRB,0.58643E-02_JPRB,0.78020E-02_JPRB,0.95232E-02_JPRB, &
+ & 0.11081E-01_JPRB,0.12413E-01_JPRB,0.13700E-01_JPRB,0.13350E-01_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.44034E-04_JPRB,0.37142E-02_JPRB,0.62924E-02_JPRB,0.84867E-02_JPRB,0.10400E-01_JPRB, &
+ & 0.12091E-01_JPRB,0.13614E-01_JPRB,0.14850E-01_JPRB,0.14396E-01_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.47021E-04_JPRB,0.39387E-02_JPRB,0.67171E-02_JPRB,0.91319E-02_JPRB,0.11231E-01_JPRB, &
+ & 0.13129E-01_JPRB,0.14745E-01_JPRB,0.16155E-01_JPRB,0.15392E-01_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.30001E-04_JPRB,0.24884E-02_JPRB,0.39787E-02_JPRB,0.53262E-02_JPRB,0.64254E-02_JPRB, &
+ & 0.74422E-02_JPRB,0.82418E-02_JPRB,0.87651E-02_JPRB,0.83241E-02_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.32067E-04_JPRB,0.26831E-02_JPRB,0.43873E-02_JPRB,0.58009E-02_JPRB,0.70881E-02_JPRB, &
+ & 0.82303E-02_JPRB,0.91115E-02_JPRB,0.99530E-02_JPRB,0.95843E-02_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.34414E-04_JPRB,0.28762E-02_JPRB,0.47981E-02_JPRB,0.63650E-02_JPRB,0.77555E-02_JPRB, &
+ & 0.90130E-02_JPRB,0.10051E-01_JPRB,0.10944E-01_JPRB,0.10687E-01_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.36543E-04_JPRB,0.30749E-02_JPRB,0.51697E-02_JPRB,0.69549E-02_JPRB,0.84939E-02_JPRB, &
+ & 0.98621E-02_JPRB,0.11012E-01_JPRB,0.11950E-01_JPRB,0.11596E-01_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.38986E-04_JPRB,0.32672E-02_JPRB,0.55268E-02_JPRB,0.74950E-02_JPRB,0.92206E-02_JPRB, &
+ & 0.10750E-01_JPRB,0.11970E-01_JPRB,0.13029E-01_JPRB,0.12461E-01_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.24718E-04_JPRB,0.20304E-02_JPRB,0.32253E-02_JPRB,0.42957E-02_JPRB,0.51621E-02_JPRB, &
+ & 0.59477E-02_JPRB,0.65543E-02_JPRB,0.67901E-02_JPRB,0.66578E-02_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.26226E-04_JPRB,0.22027E-02_JPRB,0.35528E-02_JPRB,0.46844E-02_JPRB,0.57463E-02_JPRB, &
+ & 0.66070E-02_JPRB,0.73566E-02_JPRB,0.79086E-02_JPRB,0.76807E-02_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.28095E-04_JPRB,0.23614E-02_JPRB,0.38960E-02_JPRB,0.51529E-02_JPRB,0.62773E-02_JPRB, &
+ & 0.72919E-02_JPRB,0.81475E-02_JPRB,0.87344E-02_JPRB,0.86509E-02_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.29856E-04_JPRB,0.25346E-02_JPRB,0.42180E-02_JPRB,0.56507E-02_JPRB,0.68867E-02_JPRB, &
+ & 0.79948E-02_JPRB,0.89169E-02_JPRB,0.96226E-02_JPRB,0.94212E-02_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.31432E-04_JPRB,0.26989E-02_JPRB,0.45288E-02_JPRB,0.61158E-02_JPRB,0.75231E-02_JPRB, &
+ & 0.87319E-02_JPRB,0.97447E-02_JPRB,0.10470E-01_JPRB,0.10172E-01_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.20151E-04_JPRB,0.16622E-02_JPRB,0.26102E-02_JPRB,0.34345E-02_JPRB,0.41518E-02_JPRB, &
+ & 0.47356E-02_JPRB,0.51198E-02_JPRB,0.52901E-02_JPRB,0.55608E-02_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.21290E-04_JPRB,0.18112E-02_JPRB,0.28622E-02_JPRB,0.37770E-02_JPRB,0.46098E-02_JPRB, &
+ & 0.52825E-02_JPRB,0.58719E-02_JPRB,0.62115E-02_JPRB,0.64287E-02_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.22604E-04_JPRB,0.19483E-02_JPRB,0.31536E-02_JPRB,0.41418E-02_JPRB,0.50513E-02_JPRB, &
+ & 0.58883E-02_JPRB,0.65199E-02_JPRB,0.70000E-02_JPRB,0.71641E-02_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.24039E-04_JPRB,0.20909E-02_JPRB,0.34321E-02_JPRB,0.45633E-02_JPRB,0.55575E-02_JPRB, &
+ & 0.64453E-02_JPRB,0.71800E-02_JPRB,0.77062E-02_JPRB,0.77821E-02_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.25275E-04_JPRB,0.22325E-02_JPRB,0.36976E-02_JPRB,0.49727E-02_JPRB,0.60945E-02_JPRB, &
+ & 0.70632E-02_JPRB,0.78696E-02_JPRB,0.84048E-02_JPRB,0.84571E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 1,10, 3) = (/ &
+ & 0.16520E-04_JPRB,0.13579E-02_JPRB,0.21217E-02_JPRB,0.27650E-02_JPRB,0.33209E-02_JPRB, &
+ & 0.37657E-02_JPRB,0.40263E-02_JPRB,0.41632E-02_JPRB,0.59019E-02_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.17307E-04_JPRB,0.14868E-02_JPRB,0.23230E-02_JPRB,0.30616E-02_JPRB,0.37000E-02_JPRB, &
+ & 0.42629E-02_JPRB,0.46958E-02_JPRB,0.48956E-02_JPRB,0.64729E-02_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.18210E-04_JPRB,0.16086E-02_JPRB,0.25635E-02_JPRB,0.33480E-02_JPRB,0.40827E-02_JPRB, &
+ & 0.47590E-02_JPRB,0.52424E-02_JPRB,0.56088E-02_JPRB,0.71072E-02_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.19263E-04_JPRB,0.17308E-02_JPRB,0.28038E-02_JPRB,0.37016E-02_JPRB,0.44933E-02_JPRB, &
+ & 0.52114E-02_JPRB,0.58224E-02_JPRB,0.62053E-02_JPRB,0.76445E-02_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.20450E-04_JPRB,0.18514E-02_JPRB,0.30286E-02_JPRB,0.40569E-02_JPRB,0.49417E-02_JPRB, &
+ & 0.57292E-02_JPRB,0.63809E-02_JPRB,0.68162E-02_JPRB,0.81800E-02_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.13743E-04_JPRB,0.11544E-02_JPRB,0.18005E-02_JPRB,0.23380E-02_JPRB,0.28127E-02_JPRB, &
+ & 0.32019E-02_JPRB,0.34184E-02_JPRB,0.35137E-02_JPRB,0.55132E-02_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.14314E-04_JPRB,0.12648E-02_JPRB,0.19811E-02_JPRB,0.25794E-02_JPRB,0.31283E-02_JPRB, &
+ & 0.35835E-02_JPRB,0.39635E-02_JPRB,0.41524E-02_JPRB,0.60640E-02_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.14980E-04_JPRB,0.13667E-02_JPRB,0.21846E-02_JPRB,0.28316E-02_JPRB,0.34390E-02_JPRB, &
+ & 0.40069E-02_JPRB,0.44283E-02_JPRB,0.47282E-02_JPRB,0.65662E-02_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.15843E-04_JPRB,0.14691E-02_JPRB,0.23844E-02_JPRB,0.31346E-02_JPRB,0.37915E-02_JPRB, &
+ & 0.43926E-02_JPRB,0.49108E-02_JPRB,0.52431E-02_JPRB,0.70521E-02_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.16801E-04_JPRB,0.15709E-02_JPRB,0.25738E-02_JPRB,0.34250E-02_JPRB,0.41781E-02_JPRB, &
+ & 0.48258E-02_JPRB,0.53776E-02_JPRB,0.57400E-02_JPRB,0.74913E-02_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.11265E-04_JPRB,0.97473E-03_JPRB,0.15190E-02_JPRB,0.19779E-02_JPRB,0.23708E-02_JPRB, &
+ & 0.27002E-02_JPRB,0.28954E-02_JPRB,0.29689E-02_JPRB,0.49052E-02_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.11703E-04_JPRB,0.10660E-02_JPRB,0.16806E-02_JPRB,0.21742E-02_JPRB,0.26370E-02_JPRB, &
+ & 0.30184E-02_JPRB,0.33461E-02_JPRB,0.35081E-02_JPRB,0.53515E-02_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.12275E-04_JPRB,0.11524E-02_JPRB,0.18532E-02_JPRB,0.24014E-02_JPRB,0.28932E-02_JPRB, &
+ & 0.33615E-02_JPRB,0.37332E-02_JPRB,0.39759E-02_JPRB,0.57806E-02_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.12963E-04_JPRB,0.12405E-02_JPRB,0.20200E-02_JPRB,0.26573E-02_JPRB,0.31978E-02_JPRB, &
+ & 0.36904E-02_JPRB,0.41225E-02_JPRB,0.44151E-02_JPRB,0.61956E-02_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.13696E-04_JPRB,0.13266E-02_JPRB,0.21814E-02_JPRB,0.28939E-02_JPRB,0.35284E-02_JPRB, &
+ & 0.40629E-02_JPRB,0.45191E-02_JPRB,0.48283E-02_JPRB,0.65800E-02_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.91179E-05_JPRB,0.81531E-03_JPRB,0.12754E-02_JPRB,0.16598E-02_JPRB,0.19900E-02_JPRB, &
+ & 0.22634E-02_JPRB,0.24441E-02_JPRB,0.24984E-02_JPRB,0.40576E-02_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.95039E-05_JPRB,0.89093E-03_JPRB,0.14150E-02_JPRB,0.18287E-02_JPRB,0.22143E-02_JPRB, &
+ & 0.25329E-02_JPRB,0.28092E-02_JPRB,0.29546E-02_JPRB,0.44374E-02_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.99762E-05_JPRB,0.96494E-03_JPRB,0.15625E-02_JPRB,0.20288E-02_JPRB,0.24319E-02_JPRB, &
+ & 0.28108E-02_JPRB,0.31373E-02_JPRB,0.33177E-02_JPRB,0.48094E-02_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.10509E-04_JPRB,0.10398E-02_JPRB,0.16996E-02_JPRB,0.22443E-02_JPRB,0.26925E-02_JPRB, &
+ & 0.30942E-02_JPRB,0.34481E-02_JPRB,0.37003E-02_JPRB,0.51550E-02_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.11033E-04_JPRB,0.11134E-02_JPRB,0.18372E-02_JPRB,0.24408E-02_JPRB,0.29682E-02_JPRB, &
+ & 0.34114E-02_JPRB,0.37859E-02_JPRB,0.40424E-02_JPRB,0.54893E-02_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.25564E-03_JPRB,0.23940E-01_JPRB,0.41535E-01_JPRB,0.56276E-01_JPRB,0.68561E-01_JPRB, &
+ & 0.78630E-01_JPRB,0.86993E-01_JPRB,0.91794E-01_JPRB,0.84229E-01_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.29194E-03_JPRB,0.25170E-01_JPRB,0.43659E-01_JPRB,0.59016E-01_JPRB,0.72302E-01_JPRB, &
+ & 0.83167E-01_JPRB,0.91739E-01_JPRB,0.96774E-01_JPRB,0.86838E-01_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.33934E-03_JPRB,0.26430E-01_JPRB,0.45835E-01_JPRB,0.61922E-01_JPRB,0.75614E-01_JPRB, &
+ & 0.87285E-01_JPRB,0.96606E-01_JPRB,0.10156E+00_JPRB,0.90084E-01_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.38871E-03_JPRB,0.27733E-01_JPRB,0.48058E-01_JPRB,0.64973E-01_JPRB,0.79090E-01_JPRB, &
+ & 0.91156E-01_JPRB,0.10084E+00_JPRB,0.10589E+00_JPRB,0.92583E-01_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.44473E-03_JPRB,0.29028E-01_JPRB,0.50287E-01_JPRB,0.68010E-01_JPRB,0.82805E-01_JPRB, &
+ & 0.95193E-01_JPRB,0.10492E+00_JPRB,0.10995E+00_JPRB,0.95419E-01_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.23400E-03_JPRB,0.20753E-01_JPRB,0.35742E-01_JPRB,0.48709E-01_JPRB,0.59548E-01_JPRB, &
+ & 0.68206E-01_JPRB,0.75045E-01_JPRB,0.78915E-01_JPRB,0.70180E-01_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.26775E-03_JPRB,0.21832E-01_JPRB,0.37611E-01_JPRB,0.51156E-01_JPRB,0.62768E-01_JPRB, &
+ & 0.72267E-01_JPRB,0.79422E-01_JPRB,0.83262E-01_JPRB,0.72735E-01_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.30033E-03_JPRB,0.22961E-01_JPRB,0.39618E-01_JPRB,0.53774E-01_JPRB,0.65773E-01_JPRB, &
+ & 0.75819E-01_JPRB,0.83532E-01_JPRB,0.87496E-01_JPRB,0.75459E-01_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.34366E-03_JPRB,0.24116E-01_JPRB,0.41597E-01_JPRB,0.56506E-01_JPRB,0.68944E-01_JPRB, &
+ & 0.79231E-01_JPRB,0.87245E-01_JPRB,0.91336E-01_JPRB,0.77669E-01_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.39179E-03_JPRB,0.25289E-01_JPRB,0.43575E-01_JPRB,0.59282E-01_JPRB,0.72132E-01_JPRB, &
+ & 0.82956E-01_JPRB,0.91038E-01_JPRB,0.94937E-01_JPRB,0.80272E-01_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.20730E-03_JPRB,0.18044E-01_JPRB,0.30227E-01_JPRB,0.41206E-01_JPRB,0.50626E-01_JPRB, &
+ & 0.58095E-01_JPRB,0.63725E-01_JPRB,0.66721E-01_JPRB,0.57780E-01_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.24007E-03_JPRB,0.18972E-01_JPRB,0.31883E-01_JPRB,0.43486E-01_JPRB,0.53572E-01_JPRB, &
+ & 0.61742E-01_JPRB,0.67489E-01_JPRB,0.70552E-01_JPRB,0.60009E-01_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.26931E-03_JPRB,0.19934E-01_JPRB,0.33681E-01_JPRB,0.45775E-01_JPRB,0.56255E-01_JPRB, &
+ & 0.64869E-01_JPRB,0.71254E-01_JPRB,0.74232E-01_JPRB,0.62350E-01_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.30064E-03_JPRB,0.20965E-01_JPRB,0.35448E-01_JPRB,0.48199E-01_JPRB,0.59036E-01_JPRB, &
+ & 0.67921E-01_JPRB,0.74594E-01_JPRB,0.77689E-01_JPRB,0.64410E-01_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.33967E-03_JPRB,0.21972E-01_JPRB,0.37192E-01_JPRB,0.50676E-01_JPRB,0.61884E-01_JPRB, &
+ & 0.71207E-01_JPRB,0.77888E-01_JPRB,0.80947E-01_JPRB,0.66667E-01_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.18201E-03_JPRB,0.15595E-01_JPRB,0.25372E-01_JPRB,0.34431E-01_JPRB,0.42401E-01_JPRB, &
+ & 0.48915E-01_JPRB,0.53613E-01_JPRB,0.55953E-01_JPRB,0.47727E-01_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.20883E-03_JPRB,0.16422E-01_JPRB,0.26851E-01_JPRB,0.36481E-01_JPRB,0.45074E-01_JPRB, &
+ & 0.52078E-01_JPRB,0.56860E-01_JPRB,0.59287E-01_JPRB,0.49553E-01_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.23874E-03_JPRB,0.17285E-01_JPRB,0.28425E-01_JPRB,0.38514E-01_JPRB,0.47542E-01_JPRB, &
+ & 0.54904E-01_JPRB,0.60284E-01_JPRB,0.62561E-01_JPRB,0.51595E-01_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.26707E-03_JPRB,0.18200E-01_JPRB,0.30007E-01_JPRB,0.40613E-01_JPRB,0.49982E-01_JPRB, &
+ & 0.57662E-01_JPRB,0.63231E-01_JPRB,0.65666E-01_JPRB,0.53450E-01_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.30102E-03_JPRB,0.19113E-01_JPRB,0.31552E-01_JPRB,0.42805E-01_JPRB,0.52535E-01_JPRB, &
+ & 0.60559E-01_JPRB,0.66195E-01_JPRB,0.68549E-01_JPRB,0.55415E-01_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.15801E-03_JPRB,0.13295E-01_JPRB,0.21524E-01_JPRB,0.28666E-01_JPRB,0.35142E-01_JPRB, &
+ & 0.40757E-01_JPRB,0.44715E-01_JPRB,0.46740E-01_JPRB,0.39384E-01_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.17994E-03_JPRB,0.14057E-01_JPRB,0.22786E-01_JPRB,0.30487E-01_JPRB,0.37563E-01_JPRB, &
+ & 0.43509E-01_JPRB,0.47676E-01_JPRB,0.49638E-01_JPRB,0.40849E-01_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.20535E-03_JPRB,0.14811E-01_JPRB,0.24116E-01_JPRB,0.32266E-01_JPRB,0.39764E-01_JPRB, &
+ & 0.46122E-01_JPRB,0.50669E-01_JPRB,0.52413E-01_JPRB,0.42683E-01_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.23511E-03_JPRB,0.15598E-01_JPRB,0.25481E-01_JPRB,0.34103E-01_JPRB,0.41924E-01_JPRB, &
+ & 0.48592E-01_JPRB,0.53283E-01_JPRB,0.55235E-01_JPRB,0.44335E-01_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.26640E-03_JPRB,0.16402E-01_JPRB,0.26844E-01_JPRB,0.36000E-01_JPRB,0.44180E-01_JPRB, &
+ & 0.51086E-01_JPRB,0.55918E-01_JPRB,0.57796E-01_JPRB,0.45991E-01_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.13805E-03_JPRB,0.11222E-01_JPRB,0.18125E-01_JPRB,0.23877E-01_JPRB,0.28939E-01_JPRB, &
+ & 0.33506E-01_JPRB,0.36944E-01_JPRB,0.38672E-01_JPRB,0.32335E-01_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.15439E-03_JPRB,0.11883E-01_JPRB,0.19262E-01_JPRB,0.25521E-01_JPRB,0.31068E-01_JPRB, &
+ & 0.35882E-01_JPRB,0.39589E-01_JPRB,0.41132E-01_JPRB,0.33684E-01_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.17561E-03_JPRB,0.12558E-01_JPRB,0.20409E-01_JPRB,0.27033E-01_JPRB,0.33056E-01_JPRB, &
+ & 0.38260E-01_JPRB,0.42155E-01_JPRB,0.43639E-01_JPRB,0.35175E-01_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.19967E-03_JPRB,0.13236E-01_JPRB,0.21628E-01_JPRB,0.28554E-01_JPRB,0.34939E-01_JPRB, &
+ & 0.40459E-01_JPRB,0.44550E-01_JPRB,0.46147E-01_JPRB,0.36643E-01_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.23117E-03_JPRB,0.13936E-01_JPRB,0.22836E-01_JPRB,0.30183E-01_JPRB,0.36909E-01_JPRB, &
+ & 0.42652E-01_JPRB,0.46864E-01_JPRB,0.48440E-01_JPRB,0.37992E-01_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.11987E-03_JPRB,0.93983E-02_JPRB,0.15130E-01_JPRB,0.19808E-01_JPRB,0.23796E-01_JPRB, &
+ & 0.27285E-01_JPRB,0.30176E-01_JPRB,0.31906E-01_JPRB,0.26193E-01_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.13164E-03_JPRB,0.99743E-02_JPRB,0.16118E-01_JPRB,0.21319E-01_JPRB,0.25600E-01_JPRB, &
+ & 0.29404E-01_JPRB,0.32485E-01_JPRB,0.33909E-01_JPRB,0.27439E-01_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.14862E-03_JPRB,0.10559E-01_JPRB,0.17124E-01_JPRB,0.22674E-01_JPRB,0.27373E-01_JPRB, &
+ & 0.31501E-01_JPRB,0.34705E-01_JPRB,0.36112E-01_JPRB,0.28667E-01_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.16941E-03_JPRB,0.11142E-01_JPRB,0.18163E-01_JPRB,0.23992E-01_JPRB,0.29023E-01_JPRB, &
+ & 0.33461E-01_JPRB,0.36882E-01_JPRB,0.38288E-01_JPRB,0.29990E-01_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.19444E-03_JPRB,0.11740E-01_JPRB,0.19231E-01_JPRB,0.25410E-01_JPRB,0.30702E-01_JPRB, &
+ & 0.35380E-01_JPRB,0.38933E-01_JPRB,0.40325E-01_JPRB,0.31163E-01_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.10266E-03_JPRB,0.78132E-02_JPRB,0.12495E-01_JPRB,0.16294E-01_JPRB,0.19552E-01_JPRB, &
+ & 0.22203E-01_JPRB,0.24522E-01_JPRB,0.26158E-01_JPRB,0.21477E-01_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.11308E-03_JPRB,0.82996E-02_JPRB,0.13385E-01_JPRB,0.17650E-01_JPRB,0.21113E-01_JPRB, &
+ & 0.24026E-01_JPRB,0.26424E-01_JPRB,0.27779E-01_JPRB,0.22661E-01_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.12431E-03_JPRB,0.88118E-02_JPRB,0.14254E-01_JPRB,0.18852E-01_JPRB,0.22717E-01_JPRB, &
+ & 0.25822E-01_JPRB,0.28352E-01_JPRB,0.29667E-01_JPRB,0.23674E-01_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.14146E-03_JPRB,0.93080E-02_JPRB,0.15152E-01_JPRB,0.20013E-01_JPRB,0.24158E-01_JPRB, &
+ & 0.27569E-01_JPRB,0.30306E-01_JPRB,0.31495E-01_JPRB,0.24838E-01_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.16275E-03_JPRB,0.98287E-02_JPRB,0.16080E-01_JPRB,0.21227E-01_JPRB,0.25592E-01_JPRB, &
+ & 0.29226E-01_JPRB,0.32075E-01_JPRB,0.33357E-01_JPRB,0.25887E-01_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.85797E-04_JPRB,0.64412E-02_JPRB,0.10231E-01_JPRB,0.13327E-01_JPRB,0.15923E-01_JPRB, &
+ & 0.18103E-01_JPRB,0.19903E-01_JPRB,0.21189E-01_JPRB,0.17975E-01_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.94370E-04_JPRB,0.68514E-02_JPRB,0.11041E-01_JPRB,0.14472E-01_JPRB,0.17298E-01_JPRB, &
+ & 0.19661E-01_JPRB,0.21421E-01_JPRB,0.22631E-01_JPRB,0.18990E-01_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.10603E-03_JPRB,0.72870E-02_JPRB,0.11786E-01_JPRB,0.15570E-01_JPRB,0.18710E-01_JPRB, &
+ & 0.21195E-01_JPRB,0.23092E-01_JPRB,0.24157E-01_JPRB,0.19934E-01_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.11819E-03_JPRB,0.77217E-02_JPRB,0.12559E-01_JPRB,0.16589E-01_JPRB,0.19991E-01_JPRB, &
+ & 0.22738E-01_JPRB,0.24769E-01_JPRB,0.25771E-01_JPRB,0.20946E-01_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.13500E-03_JPRB,0.81624E-02_JPRB,0.13346E-01_JPRB,0.17610E-01_JPRB,0.21227E-01_JPRB, &
+ & 0.24140E-01_JPRB,0.26339E-01_JPRB,0.27388E-01_JPRB,0.21819E-01_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.73275E-04_JPRB,0.53147E-02_JPRB,0.83832E-02_JPRB,0.10890E-01_JPRB,0.12998E-01_JPRB, &
+ & 0.14772E-01_JPRB,0.16237E-01_JPRB,0.17165E-01_JPRB,0.15972E-01_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.80303E-04_JPRB,0.56594E-02_JPRB,0.90964E-02_JPRB,0.11869E-01_JPRB,0.14181E-01_JPRB, &
+ & 0.16065E-01_JPRB,0.17493E-01_JPRB,0.18447E-01_JPRB,0.17075E-01_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.88821E-04_JPRB,0.60286E-02_JPRB,0.97491E-02_JPRB,0.12852E-01_JPRB,0.15387E-01_JPRB, &
+ & 0.17394E-01_JPRB,0.18909E-01_JPRB,0.19708E-01_JPRB,0.18078E-01_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.10142E-03_JPRB,0.63962E-02_JPRB,0.10392E-01_JPRB,0.13730E-01_JPRB,0.16522E-01_JPRB, &
+ & 0.18771E-01_JPRB,0.20308E-01_JPRB,0.21096E-01_JPRB,0.19037E-01_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.11405E-03_JPRB,0.67754E-02_JPRB,0.11065E-01_JPRB,0.14605E-01_JPRB,0.17581E-01_JPRB, &
+ & 0.19991E-01_JPRB,0.21687E-01_JPRB,0.22458E-01_JPRB,0.19875E-01_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.64517E-04_JPRB,0.45135E-02_JPRB,0.71165E-02_JPRB,0.92384E-02_JPRB,0.10998E-01_JPRB, &
+ & 0.12474E-01_JPRB,0.13700E-01_JPRB,0.14388E-01_JPRB,0.14631E-01_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.71535E-04_JPRB,0.48070E-02_JPRB,0.77137E-02_JPRB,0.10092E-01_JPRB,0.12023E-01_JPRB, &
+ & 0.13623E-01_JPRB,0.14792E-01_JPRB,0.15449E-01_JPRB,0.15481E-01_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.79504E-04_JPRB,0.51199E-02_JPRB,0.82600E-02_JPRB,0.10911E-01_JPRB,0.13076E-01_JPRB, &
+ & 0.14755E-01_JPRB,0.16002E-01_JPRB,0.16546E-01_JPRB,0.16298E-01_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.90433E-04_JPRB,0.54351E-02_JPRB,0.88101E-02_JPRB,0.11647E-01_JPRB,0.14018E-01_JPRB, &
+ & 0.15922E-01_JPRB,0.17206E-01_JPRB,0.17715E-01_JPRB,0.16991E-01_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.10146E-03_JPRB,0.57596E-02_JPRB,0.93865E-02_JPRB,0.12407E-01_JPRB,0.14922E-01_JPRB, &
+ & 0.16951E-01_JPRB,0.18384E-01_JPRB,0.18893E-01_JPRB,0.17666E-01_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.56913E-04_JPRB,0.38361E-02_JPRB,0.60238E-02_JPRB,0.78101E-02_JPRB,0.92943E-02_JPRB, &
+ & 0.10515E-01_JPRB,0.11514E-01_JPRB,0.12051E-01_JPRB,0.12708E-01_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.62984E-04_JPRB,0.40886E-02_JPRB,0.65153E-02_JPRB,0.85464E-02_JPRB,0.10168E-01_JPRB, &
+ & 0.11498E-01_JPRB,0.12452E-01_JPRB,0.12938E-01_JPRB,0.13473E-01_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.70588E-04_JPRB,0.43561E-02_JPRB,0.69761E-02_JPRB,0.92137E-02_JPRB,0.11068E-01_JPRB, &
+ & 0.12482E-01_JPRB,0.13497E-01_JPRB,0.13892E-01_JPRB,0.14090E-01_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.79556E-04_JPRB,0.46222E-02_JPRB,0.74472E-02_JPRB,0.98382E-02_JPRB,0.11852E-01_JPRB, &
+ & 0.13461E-01_JPRB,0.14539E-01_JPRB,0.14868E-01_JPRB,0.14684E-01_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.89330E-04_JPRB,0.49037E-02_JPRB,0.79332E-02_JPRB,0.10492E-01_JPRB,0.12613E-01_JPRB, &
+ & 0.14331E-01_JPRB,0.15523E-01_JPRB,0.15867E-01_JPRB,0.15266E-01_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.49040E-04_JPRB,0.32470E-02_JPRB,0.50782E-02_JPRB,0.65813E-02_JPRB,0.78254E-02_JPRB, &
+ & 0.88398E-02_JPRB,0.96483E-02_JPRB,0.10090E-01_JPRB,0.10614E-01_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.54225E-04_JPRB,0.34616E-02_JPRB,0.54906E-02_JPRB,0.71951E-02_JPRB,0.85711E-02_JPRB, &
+ & 0.96781E-02_JPRB,0.10460E-01_JPRB,0.10840E-01_JPRB,0.11206E-01_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.61136E-04_JPRB,0.36878E-02_JPRB,0.58777E-02_JPRB,0.77458E-02_JPRB,0.93183E-02_JPRB, &
+ & 0.10528E-01_JPRB,0.11347E-01_JPRB,0.11684E-01_JPRB,0.11730E-01_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.68788E-04_JPRB,0.39213E-02_JPRB,0.62791E-02_JPRB,0.82774E-02_JPRB,0.99761E-02_JPRB, &
+ & 0.11332E-01_JPRB,0.12247E-01_JPRB,0.12495E-01_JPRB,0.12250E-01_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.77427E-04_JPRB,0.41640E-02_JPRB,0.66890E-02_JPRB,0.88358E-02_JPRB,0.10624E-01_JPRB, &
+ & 0.12069E-01_JPRB,0.13064E-01_JPRB,0.13341E-01_JPRB,0.12730E-01_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.69098E-02_JPRB,0.84650E-01_JPRB,0.13006E+00_JPRB,0.16652E+00_JPRB,0.19608E+00_JPRB, &
+ & 0.21975E+00_JPRB,0.23496E+00_JPRB,0.23277E+00_JPRB,0.18007E+00_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.78200E-02_JPRB,0.89279E-01_JPRB,0.13630E+00_JPRB,0.17409E+00_JPRB,0.20398E+00_JPRB, &
+ & 0.22718E+00_JPRB,0.24129E+00_JPRB,0.23750E+00_JPRB,0.18438E+00_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.89787E-02_JPRB,0.94428E-01_JPRB,0.14296E+00_JPRB,0.18170E+00_JPRB,0.21205E+00_JPRB, &
+ & 0.23450E+00_JPRB,0.24726E+00_JPRB,0.24172E+00_JPRB,0.18878E+00_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.10426E-01_JPRB,0.10003E+00_JPRB,0.15009E+00_JPRB,0.18943E+00_JPRB,0.22015E+00_JPRB, &
+ & 0.24206E+00_JPRB,0.25341E+00_JPRB,0.24571E+00_JPRB,0.19325E+00_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.12209E-01_JPRB,0.10603E+00_JPRB,0.15781E+00_JPRB,0.19756E+00_JPRB,0.22832E+00_JPRB, &
+ & 0.24963E+00_JPRB,0.25957E+00_JPRB,0.24958E+00_JPRB,0.19748E+00_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.64020E-02_JPRB,0.74597E-01_JPRB,0.11458E+00_JPRB,0.14581E+00_JPRB,0.17103E+00_JPRB, &
+ & 0.19105E+00_JPRB,0.20412E+00_JPRB,0.20133E+00_JPRB,0.15242E+00_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.72586E-02_JPRB,0.78857E-01_JPRB,0.12024E+00_JPRB,0.15257E+00_JPRB,0.17796E+00_JPRB, &
+ & 0.19765E+00_JPRB,0.20972E+00_JPRB,0.20548E+00_JPRB,0.15620E+00_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.82903E-02_JPRB,0.83602E-01_JPRB,0.12623E+00_JPRB,0.15931E+00_JPRB,0.18512E+00_JPRB, &
+ & 0.20423E+00_JPRB,0.21503E+00_JPRB,0.20937E+00_JPRB,0.15993E+00_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.94578E-02_JPRB,0.88668E-01_JPRB,0.13277E+00_JPRB,0.16635E+00_JPRB,0.19233E+00_JPRB, &
+ & 0.21098E+00_JPRB,0.22050E+00_JPRB,0.21294E+00_JPRB,0.16397E+00_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.10865E-01_JPRB,0.94113E-01_JPRB,0.13987E+00_JPRB,0.17375E+00_JPRB,0.19975E+00_JPRB, &
+ & 0.21771E+00_JPRB,0.22592E+00_JPRB,0.21639E+00_JPRB,0.16745E+00_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.56943E-02_JPRB,0.64084E-01_JPRB,0.99294E-01_JPRB,0.12614E+00_JPRB,0.14746E+00_JPRB, &
+ & 0.16414E+00_JPRB,0.17503E+00_JPRB,0.17255E+00_JPRB,0.12738E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 3, 5) = (/ &
+ & 0.64702E-02_JPRB,0.67967E-01_JPRB,0.10427E+00_JPRB,0.13197E+00_JPRB,0.15350E+00_JPRB, &
+ & 0.16985E+00_JPRB,0.18008E+00_JPRB,0.17631E+00_JPRB,0.13087E+00_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.74200E-02_JPRB,0.72252E-01_JPRB,0.10956E+00_JPRB,0.13801E+00_JPRB,0.15978E+00_JPRB, &
+ & 0.17567E+00_JPRB,0.18476E+00_JPRB,0.17977E+00_JPRB,0.13421E+00_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.84907E-02_JPRB,0.76772E-01_JPRB,0.11539E+00_JPRB,0.14427E+00_JPRB,0.16615E+00_JPRB, &
+ & 0.18168E+00_JPRB,0.18947E+00_JPRB,0.18300E+00_JPRB,0.13761E+00_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.97078E-02_JPRB,0.81671E-01_JPRB,0.12172E+00_JPRB,0.15082E+00_JPRB,0.17277E+00_JPRB, &
+ & 0.18769E+00_JPRB,0.19427E+00_JPRB,0.18608E+00_JPRB,0.14067E+00_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.48829E-02_JPRB,0.54383E-01_JPRB,0.85075E-01_JPRB,0.10815E+00_JPRB,0.12638E+00_JPRB, &
+ & 0.14020E+00_JPRB,0.14903E+00_JPRB,0.14670E+00_JPRB,0.10614E+00_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.55740E-02_JPRB,0.57779E-01_JPRB,0.89436E-01_JPRB,0.11323E+00_JPRB,0.13160E+00_JPRB, &
+ & 0.14514E+00_JPRB,0.15349E+00_JPRB,0.15027E+00_JPRB,0.10949E+00_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.64015E-02_JPRB,0.61546E-01_JPRB,0.94139E-01_JPRB,0.11850E+00_JPRB,0.13701E+00_JPRB, &
+ & 0.15017E+00_JPRB,0.15757E+00_JPRB,0.15344E+00_JPRB,0.11257E+00_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.73719E-02_JPRB,0.65521E-01_JPRB,0.99232E-01_JPRB,0.12403E+00_JPRB,0.14259E+00_JPRB, &
+ & 0.15541E+00_JPRB,0.16175E+00_JPRB,0.15634E+00_JPRB,0.11557E+00_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.84789E-02_JPRB,0.69810E-01_JPRB,0.10478E+00_JPRB,0.12985E+00_JPRB,0.14840E+00_JPRB, &
+ & 0.16071E+00_JPRB,0.16597E+00_JPRB,0.15910E+00_JPRB,0.11833E+00_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.41357E-02_JPRB,0.45878E-01_JPRB,0.71866E-01_JPRB,0.92130E-01_JPRB,0.10772E+00_JPRB, &
+ & 0.11935E+00_JPRB,0.12627E+00_JPRB,0.12382E+00_JPRB,0.88490E-01_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.47278E-02_JPRB,0.48809E-01_JPRB,0.75724E-01_JPRB,0.96485E-01_JPRB,0.11218E+00_JPRB, &
+ & 0.12363E+00_JPRB,0.13023E+00_JPRB,0.12723E+00_JPRB,0.91646E-01_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.54234E-02_JPRB,0.52108E-01_JPRB,0.79925E-01_JPRB,0.10105E+00_JPRB,0.11684E+00_JPRB, &
+ & 0.12795E+00_JPRB,0.13389E+00_JPRB,0.13024E+00_JPRB,0.94384E-01_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.62672E-02_JPRB,0.55647E-01_JPRB,0.84438E-01_JPRB,0.10591E+00_JPRB,0.12167E+00_JPRB, &
+ & 0.13255E+00_JPRB,0.13759E+00_JPRB,0.13288E+00_JPRB,0.97037E-01_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.72387E-02_JPRB,0.59393E-01_JPRB,0.89326E-01_JPRB,0.11102E+00_JPRB,0.12680E+00_JPRB, &
+ & 0.13723E+00_JPRB,0.14128E+00_JPRB,0.13530E+00_JPRB,0.99585E-01_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.34820E-02_JPRB,0.38455E-01_JPRB,0.60106E-01_JPRB,0.77515E-01_JPRB,0.91143E-01_JPRB, &
+ & 0.10094E+00_JPRB,0.10649E+00_JPRB,0.10403E+00_JPRB,0.73509E-01_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.39507E-02_JPRB,0.40927E-01_JPRB,0.63402E-01_JPRB,0.81240E-01_JPRB,0.94968E-01_JPRB, &
+ & 0.10469E+00_JPRB,0.11001E+00_JPRB,0.10717E+00_JPRB,0.76426E-01_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.45266E-02_JPRB,0.43726E-01_JPRB,0.67041E-01_JPRB,0.85234E-01_JPRB,0.98911E-01_JPRB, &
+ & 0.10845E+00_JPRB,0.11329E+00_JPRB,0.10996E+00_JPRB,0.78861E-01_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.52242E-02_JPRB,0.46807E-01_JPRB,0.70939E-01_JPRB,0.89547E-01_JPRB,0.10312E+00_JPRB, &
+ & 0.11247E+00_JPRB,0.11653E+00_JPRB,0.11237E+00_JPRB,0.81250E-01_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.60449E-02_JPRB,0.50083E-01_JPRB,0.75175E-01_JPRB,0.94041E-01_JPRB,0.10760E+00_JPRB, &
+ & 0.11657E+00_JPRB,0.11980E+00_JPRB,0.11449E+00_JPRB,0.83549E-01_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.28711E-02_JPRB,0.32523E-01_JPRB,0.49971E-01_JPRB,0.64597E-01_JPRB,0.76360E-01_JPRB, &
+ & 0.84918E-01_JPRB,0.89523E-01_JPRB,0.87200E-01_JPRB,0.60618E-01_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.32550E-02_JPRB,0.34614E-01_JPRB,0.52803E-01_JPRB,0.67740E-01_JPRB,0.79713E-01_JPRB, &
+ & 0.88207E-01_JPRB,0.92681E-01_JPRB,0.90060E-01_JPRB,0.63331E-01_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.37263E-02_JPRB,0.36968E-01_JPRB,0.55904E-01_JPRB,0.71153E-01_JPRB,0.83143E-01_JPRB, &
+ & 0.91509E-01_JPRB,0.95607E-01_JPRB,0.92564E-01_JPRB,0.65595E-01_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.42953E-02_JPRB,0.39538E-01_JPRB,0.59281E-01_JPRB,0.74912E-01_JPRB,0.86822E-01_JPRB, &
+ & 0.94956E-01_JPRB,0.98438E-01_JPRB,0.94728E-01_JPRB,0.67680E-01_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.49788E-02_JPRB,0.42264E-01_JPRB,0.62953E-01_JPRB,0.78842E-01_JPRB,0.90742E-01_JPRB, &
+ & 0.98510E-01_JPRB,0.10129E+00_JPRB,0.96641E-01_JPRB,0.69746E-01_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.23480E-02_JPRB,0.27230E-01_JPRB,0.41671E-01_JPRB,0.53565E-01_JPRB,0.63436E-01_JPRB, &
+ & 0.70999E-01_JPRB,0.75020E-01_JPRB,0.72906E-01_JPRB,0.49386E-01_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.26517E-02_JPRB,0.29065E-01_JPRB,0.44017E-01_JPRB,0.56225E-01_JPRB,0.66341E-01_JPRB, &
+ & 0.73935E-01_JPRB,0.77879E-01_JPRB,0.75468E-01_JPRB,0.51750E-01_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.30285E-02_JPRB,0.31112E-01_JPRB,0.46598E-01_JPRB,0.59161E-01_JPRB,0.69302E-01_JPRB, &
+ & 0.76809E-01_JPRB,0.80439E-01_JPRB,0.77729E-01_JPRB,0.53904E-01_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.34816E-02_JPRB,0.33348E-01_JPRB,0.49448E-01_JPRB,0.62380E-01_JPRB,0.72502E-01_JPRB, &
+ & 0.79786E-01_JPRB,0.82887E-01_JPRB,0.79683E-01_JPRB,0.55731E-01_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.40444E-02_JPRB,0.35730E-01_JPRB,0.52545E-01_JPRB,0.65794E-01_JPRB,0.75878E-01_JPRB, &
+ & 0.82889E-01_JPRB,0.85379E-01_JPRB,0.81391E-01_JPRB,0.57509E-01_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.19247E-02_JPRB,0.22630E-01_JPRB,0.34752E-01_JPRB,0.44387E-01_JPRB,0.52455E-01_JPRB, &
+ & 0.58833E-01_JPRB,0.62468E-01_JPRB,0.60719E-01_JPRB,0.41880E-01_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.21557E-02_JPRB,0.24204E-01_JPRB,0.36750E-01_JPRB,0.46636E-01_JPRB,0.54976E-01_JPRB, &
+ & 0.61421E-01_JPRB,0.65052E-01_JPRB,0.62994E-01_JPRB,0.44010E-01_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.24477E-02_JPRB,0.25958E-01_JPRB,0.38981E-01_JPRB,0.49108E-01_JPRB,0.57526E-01_JPRB, &
+ & 0.63907E-01_JPRB,0.67351E-01_JPRB,0.65038E-01_JPRB,0.45929E-01_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.28196E-02_JPRB,0.27882E-01_JPRB,0.41431E-01_JPRB,0.51802E-01_JPRB,0.60249E-01_JPRB, &
+ & 0.66480E-01_JPRB,0.69467E-01_JPRB,0.66788E-01_JPRB,0.47555E-01_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.32654E-02_JPRB,0.29939E-01_JPRB,0.44072E-01_JPRB,0.54714E-01_JPRB,0.63163E-01_JPRB, &
+ & 0.69207E-01_JPRB,0.71600E-01_JPRB,0.68328E-01_JPRB,0.49077E-01_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.16200E-02_JPRB,0.18814E-01_JPRB,0.28911E-01_JPRB,0.37025E-01_JPRB,0.43479E-01_JPRB, &
+ & 0.48691E-01_JPRB,0.51767E-01_JPRB,0.50517E-01_JPRB,0.36565E-01_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.18031E-02_JPRB,0.20150E-01_JPRB,0.30632E-01_JPRB,0.38967E-01_JPRB,0.45609E-01_JPRB, &
+ & 0.50940E-01_JPRB,0.54046E-01_JPRB,0.52515E-01_JPRB,0.38425E-01_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.20232E-02_JPRB,0.21640E-01_JPRB,0.32572E-01_JPRB,0.41079E-01_JPRB,0.47788E-01_JPRB, &
+ & 0.53101E-01_JPRB,0.56114E-01_JPRB,0.54338E-01_JPRB,0.40162E-01_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.23038E-02_JPRB,0.23298E-01_JPRB,0.34703E-01_JPRB,0.43393E-01_JPRB,0.50110E-01_JPRB, &
+ & 0.55298E-01_JPRB,0.57982E-01_JPRB,0.55873E-01_JPRB,0.41782E-01_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.26649E-02_JPRB,0.25073E-01_JPRB,0.36983E-01_JPRB,0.45868E-01_JPRB,0.52617E-01_JPRB, &
+ & 0.57641E-01_JPRB,0.59833E-01_JPRB,0.57222E-01_JPRB,0.43243E-01_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.14241E-02_JPRB,0.16065E-01_JPRB,0.24586E-01_JPRB,0.31465E-01_JPRB,0.36963E-01_JPRB, &
+ & 0.41093E-01_JPRB,0.43617E-01_JPRB,0.42673E-01_JPRB,0.32343E-01_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.15878E-02_JPRB,0.17268E-01_JPRB,0.26144E-01_JPRB,0.33169E-01_JPRB,0.38816E-01_JPRB, &
+ & 0.42988E-01_JPRB,0.45546E-01_JPRB,0.44327E-01_JPRB,0.34054E-01_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.18003E-02_JPRB,0.18609E-01_JPRB,0.27888E-01_JPRB,0.35066E-01_JPRB,0.40717E-01_JPRB, &
+ & 0.44861E-01_JPRB,0.47277E-01_JPRB,0.45845E-01_JPRB,0.35562E-01_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.20513E-02_JPRB,0.20069E-01_JPRB,0.29794E-01_JPRB,0.37147E-01_JPRB,0.42781E-01_JPRB, &
+ & 0.46774E-01_JPRB,0.48869E-01_JPRB,0.47106E-01_JPRB,0.36881E-01_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.23610E-02_JPRB,0.21636E-01_JPRB,0.31786E-01_JPRB,0.39341E-01_JPRB,0.44964E-01_JPRB, &
+ & 0.48832E-01_JPRB,0.50478E-01_JPRB,0.48237E-01_JPRB,0.38136E-01_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.12367E-02_JPRB,0.13664E-01_JPRB,0.20841E-01_JPRB,0.26619E-01_JPRB,0.31258E-01_JPRB, &
+ & 0.34766E-01_JPRB,0.36665E-01_JPRB,0.35873E-01_JPRB,0.27811E-01_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.13898E-02_JPRB,0.14747E-01_JPRB,0.22238E-01_JPRB,0.28134E-01_JPRB,0.32876E-01_JPRB, &
+ & 0.36392E-01_JPRB,0.38286E-01_JPRB,0.37257E-01_JPRB,0.29212E-01_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.15822E-02_JPRB,0.15920E-01_JPRB,0.23808E-01_JPRB,0.29830E-01_JPRB,0.34558E-01_JPRB, &
+ & 0.38014E-01_JPRB,0.39728E-01_JPRB,0.38493E-01_JPRB,0.30517E-01_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.18117E-02_JPRB,0.17195E-01_JPRB,0.25479E-01_JPRB,0.31664E-01_JPRB,0.36378E-01_JPRB, &
+ & 0.39675E-01_JPRB,0.41098E-01_JPRB,0.39553E-01_JPRB,0.31705E-01_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.20996E-02_JPRB,0.18567E-01_JPRB,0.27225E-01_JPRB,0.33571E-01_JPRB,0.38302E-01_JPRB, &
+ & 0.41437E-01_JPRB,0.42501E-01_JPRB,0.40525E-01_JPRB,0.32748E-01_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.10606E-02_JPRB,0.11594E-01_JPRB,0.17616E-01_JPRB,0.22456E-01_JPRB,0.26337E-01_JPRB, &
+ & 0.29282E-01_JPRB,0.30831E-01_JPRB,0.30037E-01_JPRB,0.23251E-01_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.11975E-02_JPRB,0.12541E-01_JPRB,0.18850E-01_JPRB,0.23795E-01_JPRB,0.27745E-01_JPRB, &
+ & 0.30676E-01_JPRB,0.32191E-01_JPRB,0.31186E-01_JPRB,0.24461E-01_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.13686E-02_JPRB,0.13557E-01_JPRB,0.20236E-01_JPRB,0.25287E-01_JPRB,0.29224E-01_JPRB, &
+ & 0.32085E-01_JPRB,0.33411E-01_JPRB,0.32190E-01_JPRB,0.25539E-01_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.15787E-02_JPRB,0.14655E-01_JPRB,0.21685E-01_JPRB,0.26887E-01_JPRB,0.30821E-01_JPRB, &
+ & 0.33533E-01_JPRB,0.34581E-01_JPRB,0.33091E-01_JPRB,0.26483E-01_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.18422E-02_JPRB,0.15847E-01_JPRB,0.23201E-01_JPRB,0.28535E-01_JPRB,0.32486E-01_JPRB, &
+ & 0.35059E-01_JPRB,0.35791E-01_JPRB,0.33942E-01_JPRB,0.27340E-01_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.11257E+00_JPRB,0.31731E+00_JPRB,0.42139E+00_JPRB,0.49121E+00_JPRB,0.53179E+00_JPRB, &
+ & 0.54416E+00_JPRB,0.52879E+00_JPRB,0.48565E+00_JPRB,0.38185E+00_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.12995E+00_JPRB,0.33757E+00_JPRB,0.44079E+00_JPRB,0.50693E+00_JPRB,0.54374E+00_JPRB, &
+ & 0.55231E+00_JPRB,0.53411E+00_JPRB,0.48973E+00_JPRB,0.38664E+00_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.14899E+00_JPRB,0.35787E+00_JPRB,0.45940E+00_JPRB,0.52235E+00_JPRB,0.55490E+00_JPRB, &
+ & 0.56009E+00_JPRB,0.53945E+00_JPRB,0.49411E+00_JPRB,0.39028E+00_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.16946E+00_JPRB,0.37848E+00_JPRB,0.47747E+00_JPRB,0.53692E+00_JPRB,0.56497E+00_JPRB, &
+ & 0.56760E+00_JPRB,0.54484E+00_JPRB,0.49832E+00_JPRB,0.39391E+00_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.19143E+00_JPRB,0.39915E+00_JPRB,0.49476E+00_JPRB,0.55039E+00_JPRB,0.57468E+00_JPRB, &
+ & 0.57486E+00_JPRB,0.55036E+00_JPRB,0.50307E+00_JPRB,0.39756E+00_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.97091E-01_JPRB,0.28037E+00_JPRB,0.37054E+00_JPRB,0.43162E+00_JPRB,0.46715E+00_JPRB, &
+ & 0.47740E+00_JPRB,0.46327E+00_JPRB,0.42557E+00_JPRB,0.32833E+00_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.11208E+00_JPRB,0.29815E+00_JPRB,0.38764E+00_JPRB,0.44615E+00_JPRB,0.47841E+00_JPRB, &
+ & 0.48513E+00_JPRB,0.46886E+00_JPRB,0.42998E+00_JPRB,0.33260E+00_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.12856E+00_JPRB,0.31599E+00_JPRB,0.40420E+00_JPRB,0.45996E+00_JPRB,0.48848E+00_JPRB, &
+ & 0.49285E+00_JPRB,0.47441E+00_JPRB,0.43431E+00_JPRB,0.33632E+00_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.14648E+00_JPRB,0.33425E+00_JPRB,0.42020E+00_JPRB,0.47262E+00_JPRB,0.49778E+00_JPRB, &
+ & 0.50015E+00_JPRB,0.47996E+00_JPRB,0.43890E+00_JPRB,0.33965E+00_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.16579E+00_JPRB,0.35250E+00_JPRB,0.43554E+00_JPRB,0.48445E+00_JPRB,0.50655E+00_JPRB, &
+ & 0.50702E+00_JPRB,0.48572E+00_JPRB,0.44375E+00_JPRB,0.34330E+00_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.80654E-01_JPRB,0.24334E+00_JPRB,0.32145E+00_JPRB,0.37485E+00_JPRB,0.40615E+00_JPRB, &
+ & 0.41488E+00_JPRB,0.40284E+00_JPRB,0.37005E+00_JPRB,0.27897E+00_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.93334E-01_JPRB,0.25889E+00_JPRB,0.33665E+00_JPRB,0.38799E+00_JPRB,0.41628E+00_JPRB, &
+ & 0.42254E+00_JPRB,0.40845E+00_JPRB,0.37420E+00_JPRB,0.28281E+00_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.10735E+00_JPRB,0.27449E+00_JPRB,0.35143E+00_JPRB,0.40015E+00_JPRB,0.42551E+00_JPRB, &
+ & 0.42981E+00_JPRB,0.41382E+00_JPRB,0.37871E+00_JPRB,0.28619E+00_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.12265E+00_JPRB,0.29043E+00_JPRB,0.36548E+00_JPRB,0.41153E+00_JPRB,0.43393E+00_JPRB, &
+ & 0.43649E+00_JPRB,0.41932E+00_JPRB,0.38340E+00_JPRB,0.28955E+00_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.13925E+00_JPRB,0.30659E+00_JPRB,0.37895E+00_JPRB,0.42211E+00_JPRB,0.44187E+00_JPRB, &
+ & 0.44276E+00_JPRB,0.42490E+00_JPRB,0.38830E+00_JPRB,0.29282E+00_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.65986E-01_JPRB,0.20968E+00_JPRB,0.27746E+00_JPRB,0.32321E+00_JPRB,0.35021E+00_JPRB, &
+ & 0.35817E+00_JPRB,0.34816E+00_JPRB,0.31914E+00_JPRB,0.23714E+00_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.76550E-01_JPRB,0.22318E+00_JPRB,0.29094E+00_JPRB,0.33486E+00_JPRB,0.35941E+00_JPRB, &
+ & 0.36546E+00_JPRB,0.35341E+00_JPRB,0.32318E+00_JPRB,0.24040E+00_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.88349E-01_JPRB,0.23676E+00_JPRB,0.30387E+00_JPRB,0.34562E+00_JPRB,0.36786E+00_JPRB, &
+ & 0.37204E+00_JPRB,0.35871E+00_JPRB,0.32765E+00_JPRB,0.24343E+00_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.10129E+00_JPRB,0.25065E+00_JPRB,0.31610E+00_JPRB,0.35574E+00_JPRB,0.37546E+00_JPRB, &
+ & 0.37811E+00_JPRB,0.36390E+00_JPRB,0.33220E+00_JPRB,0.24649E+00_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.11540E+00_JPRB,0.26489E+00_JPRB,0.32784E+00_JPRB,0.36504E+00_JPRB,0.38250E+00_JPRB, &
+ & 0.38387E+00_JPRB,0.36919E+00_JPRB,0.33697E+00_JPRB,0.24943E+00_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.53393E-01_JPRB,0.18000E+00_JPRB,0.23883E+00_JPRB,0.27751E+00_JPRB,0.30053E+00_JPRB, &
+ & 0.30742E+00_JPRB,0.29898E+00_JPRB,0.27383E+00_JPRB,0.20106E+00_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.62233E-01_JPRB,0.19175E+00_JPRB,0.25050E+00_JPRB,0.28777E+00_JPRB,0.30898E+00_JPRB, &
+ & 0.31400E+00_JPRB,0.30389E+00_JPRB,0.27769E+00_JPRB,0.20390E+00_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.72177E-01_JPRB,0.20364E+00_JPRB,0.26165E+00_JPRB,0.29741E+00_JPRB,0.31640E+00_JPRB, &
+ & 0.31996E+00_JPRB,0.30876E+00_JPRB,0.28174E+00_JPRB,0.20671E+00_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.83134E-01_JPRB,0.21576E+00_JPRB,0.27227E+00_JPRB,0.30617E+00_JPRB,0.32319E+00_JPRB, &
+ & 0.32542E+00_JPRB,0.31353E+00_JPRB,0.28599E+00_JPRB,0.20956E+00_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.95090E-01_JPRB,0.22815E+00_JPRB,0.28259E+00_JPRB,0.31429E+00_JPRB,0.32943E+00_JPRB, &
+ & 0.33059E+00_JPRB,0.31837E+00_JPRB,0.29043E+00_JPRB,0.21220E+00_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.42433E-01_JPRB,0.15317E+00_JPRB,0.20425E+00_JPRB,0.23740E+00_JPRB,0.25663E+00_JPRB, &
+ & 0.26234E+00_JPRB,0.25512E+00_JPRB,0.23364E+00_JPRB,0.16949E+00_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.49749E-01_JPRB,0.16341E+00_JPRB,0.21435E+00_JPRB,0.24646E+00_JPRB,0.26413E+00_JPRB, &
+ & 0.26825E+00_JPRB,0.25968E+00_JPRB,0.23716E+00_JPRB,0.17204E+00_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.58017E-01_JPRB,0.17381E+00_JPRB,0.22409E+00_JPRB,0.25485E+00_JPRB,0.27073E+00_JPRB, &
+ & 0.27356E+00_JPRB,0.26405E+00_JPRB,0.24070E+00_JPRB,0.17477E+00_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.67231E-01_JPRB,0.18439E+00_JPRB,0.23345E+00_JPRB,0.26240E+00_JPRB,0.27677E+00_JPRB, &
+ & 0.27839E+00_JPRB,0.26819E+00_JPRB,0.24459E+00_JPRB,0.17741E+00_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.77316E-01_JPRB,0.19517E+00_JPRB,0.24253E+00_JPRB,0.26953E+00_JPRB,0.28221E+00_JPRB, &
+ & 0.28296E+00_JPRB,0.27246E+00_JPRB,0.24867E+00_JPRB,0.17984E+00_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.33835E-01_JPRB,0.12894E+00_JPRB,0.17377E+00_JPRB,0.20223E+00_JPRB,0.21858E+00_JPRB, &
+ & 0.22305E+00_JPRB,0.21661E+00_JPRB,0.19799E+00_JPRB,0.14234E+00_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.39495E-01_JPRB,0.13775E+00_JPRB,0.18255E+00_JPRB,0.21017E+00_JPRB,0.22506E+00_JPRB, &
+ & 0.22828E+00_JPRB,0.22063E+00_JPRB,0.20115E+00_JPRB,0.14469E+00_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.46213E-01_JPRB,0.14677E+00_JPRB,0.19104E+00_JPRB,0.21747E+00_JPRB,0.23085E+00_JPRB, &
+ & 0.23293E+00_JPRB,0.22444E+00_JPRB,0.20438E+00_JPRB,0.14721E+00_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.53881E-01_JPRB,0.15604E+00_JPRB,0.19912E+00_JPRB,0.22407E+00_JPRB,0.23606E+00_JPRB, &
+ & 0.23711E+00_JPRB,0.22803E+00_JPRB,0.20793E+00_JPRB,0.14967E+00_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.62313E-01_JPRB,0.16559E+00_JPRB,0.20703E+00_JPRB,0.23032E+00_JPRB,0.24086E+00_JPRB, &
+ & 0.24109E+00_JPRB,0.23183E+00_JPRB,0.21164E+00_JPRB,0.15187E+00_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.27294E-01_JPRB,0.10784E+00_JPRB,0.14673E+00_JPRB,0.17152E+00_JPRB,0.18541E+00_JPRB, &
+ & 0.18896E+00_JPRB,0.18302E+00_JPRB,0.16686E+00_JPRB,0.11892E+00_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.31945E-01_JPRB,0.11533E+00_JPRB,0.15437E+00_JPRB,0.17841E+00_JPRB,0.19097E+00_JPRB, &
+ & 0.19348E+00_JPRB,0.18650E+00_JPRB,0.16969E+00_JPRB,0.12123E+00_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.37290E-01_JPRB,0.12309E+00_JPRB,0.16174E+00_JPRB,0.18467E+00_JPRB,0.19597E+00_JPRB, &
+ & 0.19753E+00_JPRB,0.18983E+00_JPRB,0.17262E+00_JPRB,0.12344E+00_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.43331E-01_JPRB,0.13110E+00_JPRB,0.16878E+00_JPRB,0.19044E+00_JPRB,0.20053E+00_JPRB, &
+ & 0.20117E+00_JPRB,0.19304E+00_JPRB,0.17581E+00_JPRB,0.12571E+00_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.50086E-01_JPRB,0.13937E+00_JPRB,0.17577E+00_JPRB,0.19586E+00_JPRB,0.20476E+00_JPRB, &
+ & 0.20472E+00_JPRB,0.19647E+00_JPRB,0.17915E+00_JPRB,0.12770E+00_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.21763E-01_JPRB,0.89580E-01_JPRB,0.12270E+00_JPRB,0.14431E+00_JPRB,0.15639E+00_JPRB, &
+ & 0.15936E+00_JPRB,0.15421E+00_JPRB,0.14030E+00_JPRB,0.10042E+00_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.25609E-01_JPRB,0.95974E-01_JPRB,0.12925E+00_JPRB,0.15030E+00_JPRB,0.16119E+00_JPRB, &
+ & 0.16326E+00_JPRB,0.15719E+00_JPRB,0.14283E+00_JPRB,0.10252E+00_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.30067E-01_JPRB,0.10261E+00_JPRB,0.13551E+00_JPRB,0.15572E+00_JPRB,0.16552E+00_JPRB, &
+ & 0.16675E+00_JPRB,0.16007E+00_JPRB,0.14539E+00_JPRB,0.10448E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 9, 6) = (/ &
+ & 0.35097E-01_JPRB,0.10949E+00_JPRB,0.14161E+00_JPRB,0.16075E+00_JPRB,0.16947E+00_JPRB, &
+ & 0.16997E+00_JPRB,0.16297E+00_JPRB,0.14823E+00_JPRB,0.10645E+00_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.40711E-01_JPRB,0.11658E+00_JPRB,0.14773E+00_JPRB,0.16552E+00_JPRB,0.17324E+00_JPRB, &
+ & 0.17317E+00_JPRB,0.16604E+00_JPRB,0.15112E+00_JPRB,0.10826E+00_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.17370E-01_JPRB,0.74466E-01_JPRB,0.10240E+00_JPRB,0.12053E+00_JPRB,0.13126E+00_JPRB, &
+ & 0.13417E+00_JPRB,0.12989E+00_JPRB,0.11790E+00_JPRB,0.87103E-01_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.20536E-01_JPRB,0.79866E-01_JPRB,0.10796E+00_JPRB,0.12568E+00_JPRB,0.13547E+00_JPRB, &
+ & 0.13755E+00_JPRB,0.13244E+00_JPRB,0.12017E+00_JPRB,0.88680E-01_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.24274E-01_JPRB,0.85524E-01_JPRB,0.11324E+00_JPRB,0.13036E+00_JPRB,0.13925E+00_JPRB, &
+ & 0.14055E+00_JPRB,0.13491E+00_JPRB,0.12243E+00_JPRB,0.90062E-01_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.28508E-01_JPRB,0.91420E-01_JPRB,0.11852E+00_JPRB,0.13467E+00_JPRB,0.14267E+00_JPRB, &
+ & 0.14339E+00_JPRB,0.13748E+00_JPRB,0.12487E+00_JPRB,0.91240E-01_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.33217E-01_JPRB,0.97522E-01_JPRB,0.12382E+00_JPRB,0.13886E+00_JPRB,0.14603E+00_JPRB, &
+ & 0.14625E+00_JPRB,0.14015E+00_JPRB,0.12740E+00_JPRB,0.92631E-01_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.14918E-01_JPRB,0.64249E-01_JPRB,0.87193E-01_JPRB,0.10225E+00_JPRB,0.11107E+00_JPRB, &
+ & 0.11380E+00_JPRB,0.11017E+00_JPRB,0.99775E-01_JPRB,0.75883E-01_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.17707E-01_JPRB,0.68887E-01_JPRB,0.91783E-01_JPRB,0.10653E+00_JPRB,0.11454E+00_JPRB, &
+ & 0.11659E+00_JPRB,0.11231E+00_JPRB,0.10178E+00_JPRB,0.77400E-01_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.20985E-01_JPRB,0.73723E-01_JPRB,0.96290E-01_JPRB,0.11038E+00_JPRB,0.11765E+00_JPRB, &
+ & 0.11911E+00_JPRB,0.11446E+00_JPRB,0.10377E+00_JPRB,0.78827E-01_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.24698E-01_JPRB,0.78820E-01_JPRB,0.10085E+00_JPRB,0.11403E+00_JPRB,0.12064E+00_JPRB, &
+ & 0.12159E+00_JPRB,0.11674E+00_JPRB,0.10593E+00_JPRB,0.80678E-01_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.28798E-01_JPRB,0.84087E-01_JPRB,0.10545E+00_JPRB,0.11772E+00_JPRB,0.12367E+00_JPRB, &
+ & 0.12416E+00_JPRB,0.11916E+00_JPRB,0.10818E+00_JPRB,0.82090E-01_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.12778E-01_JPRB,0.55028E-01_JPRB,0.74326E-01_JPRB,0.86458E-01_JPRB,0.93690E-01_JPRB, &
+ & 0.95887E-01_JPRB,0.92996E-01_JPRB,0.84239E-01_JPRB,0.65531E-01_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.15226E-01_JPRB,0.59056E-01_JPRB,0.78180E-01_JPRB,0.90004E-01_JPRB,0.96562E-01_JPRB, &
+ & 0.98210E-01_JPRB,0.94824E-01_JPRB,0.85996E-01_JPRB,0.67232E-01_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.18073E-01_JPRB,0.63328E-01_JPRB,0.81993E-01_JPRB,0.93245E-01_JPRB,0.99175E-01_JPRB, &
+ & 0.10034E+00_JPRB,0.96751E-01_JPRB,0.87779E-01_JPRB,0.68728E-01_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.21287E-01_JPRB,0.67814E-01_JPRB,0.85944E-01_JPRB,0.96446E-01_JPRB,0.10181E+00_JPRB, &
+ & 0.10253E+00_JPRB,0.98787E-01_JPRB,0.89700E-01_JPRB,0.70024E-01_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.24810E-01_JPRB,0.72405E-01_JPRB,0.89913E-01_JPRB,0.99700E-01_JPRB,0.10454E+00_JPRB, &
+ & 0.10492E+00_JPRB,0.10099E+00_JPRB,0.91662E-01_JPRB,0.71222E-01_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.10897E-01_JPRB,0.46824E-01_JPRB,0.63070E-01_JPRB,0.73198E-01_JPRB,0.78826E-01_JPRB, &
+ & 0.80547E-01_JPRB,0.78087E-01_JPRB,0.70945E-01_JPRB,0.55427E-01_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.13037E-01_JPRB,0.50331E-01_JPRB,0.66369E-01_JPRB,0.76169E-01_JPRB,0.81229E-01_JPRB, &
+ & 0.82485E-01_JPRB,0.79688E-01_JPRB,0.72492E-01_JPRB,0.56776E-01_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.15498E-01_JPRB,0.54103E-01_JPRB,0.69687E-01_JPRB,0.78968E-01_JPRB,0.83486E-01_JPRB, &
+ & 0.84334E-01_JPRB,0.81403E-01_JPRB,0.74109E-01_JPRB,0.57973E-01_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.18239E-01_JPRB,0.58007E-01_JPRB,0.73146E-01_JPRB,0.81751E-01_JPRB,0.85842E-01_JPRB, &
+ & 0.86346E-01_JPRB,0.83244E-01_JPRB,0.75789E-01_JPRB,0.59123E-01_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.21231E-01_JPRB,0.61947E-01_JPRB,0.76584E-01_JPRB,0.84579E-01_JPRB,0.88268E-01_JPRB, &
+ & 0.88508E-01_JPRB,0.85245E-01_JPRB,0.77486E-01_JPRB,0.60191E-01_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.71609E+00_JPRB,0.10081E+01_JPRB,0.11118E+01_JPRB,0.11603E+01_JPRB,0.11765E+01_JPRB, &
+ & 0.11643E+01_JPRB,0.11202E+01_JPRB,0.10296E+01_JPRB,0.82502E+00_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.75920E+00_JPRB,0.10292E+01_JPRB,0.11252E+01_JPRB,0.11685E+01_JPRB,0.11822E+01_JPRB, &
+ & 0.11684E+01_JPRB,0.11228E+01_JPRB,0.10318E+01_JPRB,0.83157E+00_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.79807E+00_JPRB,0.10500E+01_JPRB,0.11397E+01_JPRB,0.11794E+01_JPRB,0.11904E+01_JPRB, &
+ & 0.11740E+01_JPRB,0.11264E+01_JPRB,0.10343E+01_JPRB,0.83726E+00_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.83183E+00_JPRB,0.10700E+01_JPRB,0.11548E+01_JPRB,0.11918E+01_JPRB,0.12010E+01_JPRB, &
+ & 0.11815E+01_JPRB,0.11313E+01_JPRB,0.10364E+01_JPRB,0.84249E+00_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.86161E+00_JPRB,0.10887E+01_JPRB,0.11706E+01_JPRB,0.12061E+01_JPRB,0.12126E+01_JPRB, &
+ & 0.11904E+01_JPRB,0.11363E+01_JPRB,0.10383E+01_JPRB,0.84713E+00_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.62079E+00_JPRB,0.89078E+00_JPRB,0.98349E+00_JPRB,0.10275E+01_JPRB,0.10413E+01_JPRB, &
+ & 0.10318E+01_JPRB,0.99528E+00_JPRB,0.92037E+00_JPRB,0.72464E+00_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.65800E+00_JPRB,0.91114E+00_JPRB,0.99789E+00_JPRB,0.10381E+01_JPRB,0.10488E+01_JPRB, &
+ & 0.10378E+01_JPRB,0.99952E+00_JPRB,0.92364E+00_JPRB,0.73140E+00_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.69092E+00_JPRB,0.93058E+00_JPRB,0.10122E+01_JPRB,0.10502E+01_JPRB,0.10590E+01_JPRB, &
+ & 0.10454E+01_JPRB,0.10054E+01_JPRB,0.92699E+00_JPRB,0.73764E+00_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.71970E+00_JPRB,0.94840E+00_JPRB,0.10270E+01_JPRB,0.10636E+01_JPRB,0.10709E+01_JPRB, &
+ & 0.10547E+01_JPRB,0.10116E+01_JPRB,0.93021E+00_JPRB,0.74329E+00_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.74579E+00_JPRB,0.96581E+00_JPRB,0.10421E+01_JPRB,0.10781E+01_JPRB,0.10844E+01_JPRB, &
+ & 0.10644E+01_JPRB,0.10185E+01_JPRB,0.93369E+00_JPRB,0.74789E+00_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.52823E+00_JPRB,0.77783E+00_JPRB,0.86297E+00_JPRB,0.90265E+00_JPRB,0.91464E+00_JPRB, &
+ & 0.90839E+00_JPRB,0.87923E+00_JPRB,0.81632E+00_JPRB,0.63067E+00_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.56021E+00_JPRB,0.79652E+00_JPRB,0.87677E+00_JPRB,0.91375E+00_JPRB,0.92363E+00_JPRB, &
+ & 0.91571E+00_JPRB,0.88529E+00_JPRB,0.82096E+00_JPRB,0.63740E+00_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.58848E+00_JPRB,0.81389E+00_JPRB,0.89039E+00_JPRB,0.92584E+00_JPRB,0.93460E+00_JPRB, &
+ & 0.92486E+00_JPRB,0.89232E+00_JPRB,0.82527E+00_JPRB,0.64377E+00_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.61369E+00_JPRB,0.83008E+00_JPRB,0.90459E+00_JPRB,0.93860E+00_JPRB,0.94727E+00_JPRB, &
+ & 0.93485E+00_JPRB,0.89989E+00_JPRB,0.82959E+00_JPRB,0.64921E+00_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.63687E+00_JPRB,0.84580E+00_JPRB,0.91897E+00_JPRB,0.95268E+00_JPRB,0.96085E+00_JPRB, &
+ & 0.94565E+00_JPRB,0.90780E+00_JPRB,0.83380E+00_JPRB,0.65367E+00_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.44508E+00_JPRB,0.67351E+00_JPRB,0.75154E+00_JPRB,0.78756E+00_JPRB,0.79977E+00_JPRB, &
+ & 0.79563E+00_JPRB,0.77123E+00_JPRB,0.71868E+00_JPRB,0.54794E+00_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.47271E+00_JPRB,0.69026E+00_JPRB,0.76424E+00_JPRB,0.79840E+00_JPRB,0.80928E+00_JPRB, &
+ & 0.80400E+00_JPRB,0.77859E+00_JPRB,0.72416E+00_JPRB,0.55496E+00_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.49708E+00_JPRB,0.70580E+00_JPRB,0.77670E+00_JPRB,0.80989E+00_JPRB,0.82043E+00_JPRB, &
+ & 0.81421E+00_JPRB,0.78653E+00_JPRB,0.72918E+00_JPRB,0.56105E+00_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.51921E+00_JPRB,0.72040E+00_JPRB,0.78970E+00_JPRB,0.82209E+00_JPRB,0.83296E+00_JPRB, &
+ & 0.82477E+00_JPRB,0.79492E+00_JPRB,0.73435E+00_JPRB,0.56612E+00_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.53991E+00_JPRB,0.73468E+00_JPRB,0.80284E+00_JPRB,0.83540E+00_JPRB,0.84599E+00_JPRB, &
+ & 0.83588E+00_JPRB,0.80349E+00_JPRB,0.73920E+00_JPRB,0.57048E+00_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.37413E+00_JPRB,0.58022E+00_JPRB,0.65026E+00_JPRB,0.68370E+00_JPRB,0.69632E+00_JPRB, &
+ & 0.69319E+00_JPRB,0.67239E+00_JPRB,0.62755E+00_JPRB,0.47517E+00_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.39785E+00_JPRB,0.59500E+00_JPRB,0.66160E+00_JPRB,0.69388E+00_JPRB,0.70581E+00_JPRB, &
+ & 0.70224E+00_JPRB,0.68037E+00_JPRB,0.63372E+00_JPRB,0.48187E+00_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.41894E+00_JPRB,0.60858E+00_JPRB,0.67282E+00_JPRB,0.70454E+00_JPRB,0.71693E+00_JPRB, &
+ & 0.71249E+00_JPRB,0.68889E+00_JPRB,0.63962E+00_JPRB,0.48765E+00_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.43810E+00_JPRB,0.62138E+00_JPRB,0.68416E+00_JPRB,0.71639E+00_JPRB,0.72873E+00_JPRB, &
+ & 0.72302E+00_JPRB,0.69785E+00_JPRB,0.64510E+00_JPRB,0.49243E+00_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.45627E+00_JPRB,0.63437E+00_JPRB,0.69610E+00_JPRB,0.72855E+00_JPRB,0.74096E+00_JPRB, &
+ & 0.73385E+00_JPRB,0.70672E+00_JPRB,0.65052E+00_JPRB,0.49657E+00_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.31382E+00_JPRB,0.49799E+00_JPRB,0.55977E+00_JPRB,0.58971E+00_JPRB,0.60230E+00_JPRB, &
+ & 0.60065E+00_JPRB,0.58267E+00_JPRB,0.54392E+00_JPRB,0.40911E+00_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.33427E+00_JPRB,0.51077E+00_JPRB,0.56976E+00_JPRB,0.59903E+00_JPRB,0.61148E+00_JPRB, &
+ & 0.60961E+00_JPRB,0.59093E+00_JPRB,0.55057E+00_JPRB,0.41554E+00_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.35247E+00_JPRB,0.52249E+00_JPRB,0.57948E+00_JPRB,0.60895E+00_JPRB,0.62185E+00_JPRB, &
+ & 0.61942E+00_JPRB,0.59984E+00_JPRB,0.55707E+00_JPRB,0.42096E+00_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.36909E+00_JPRB,0.53360E+00_JPRB,0.58950E+00_JPRB,0.61977E+00_JPRB,0.63265E+00_JPRB, &
+ & 0.62957E+00_JPRB,0.60872E+00_JPRB,0.56306E+00_JPRB,0.42549E+00_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.38489E+00_JPRB,0.54511E+00_JPRB,0.60025E+00_JPRB,0.63086E+00_JPRB,0.64395E+00_JPRB, &
+ & 0.63979E+00_JPRB,0.61739E+00_JPRB,0.56897E+00_JPRB,0.42951E+00_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.26224E+00_JPRB,0.42663E+00_JPRB,0.48031E+00_JPRB,0.50651E+00_JPRB,0.51797E+00_JPRB, &
+ & 0.51738E+00_JPRB,0.50230E+00_JPRB,0.46824E+00_JPRB,0.34967E+00_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.28013E+00_JPRB,0.43764E+00_JPRB,0.48906E+00_JPRB,0.51485E+00_JPRB,0.52656E+00_JPRB, &
+ & 0.52602E+00_JPRB,0.51065E+00_JPRB,0.47517E+00_JPRB,0.35569E+00_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.29592E+00_JPRB,0.44770E+00_JPRB,0.49758E+00_JPRB,0.52367E+00_JPRB,0.53583E+00_JPRB, &
+ & 0.53525E+00_JPRB,0.51944E+00_JPRB,0.48175E+00_JPRB,0.36089E+00_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.31035E+00_JPRB,0.45721E+00_JPRB,0.50658E+00_JPRB,0.53311E+00_JPRB,0.54562E+00_JPRB, &
+ & 0.54468E+00_JPRB,0.52799E+00_JPRB,0.48800E+00_JPRB,0.36523E+00_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.32410E+00_JPRB,0.46702E+00_JPRB,0.51628E+00_JPRB,0.54315E+00_JPRB,0.55572E+00_JPRB, &
+ & 0.55402E+00_JPRB,0.53619E+00_JPRB,0.49402E+00_JPRB,0.36906E+00_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.21802E+00_JPRB,0.36523E+00_JPRB,0.41109E+00_JPRB,0.43388E+00_JPRB,0.44363E+00_JPRB, &
+ & 0.44316E+00_JPRB,0.43058E+00_JPRB,0.40065E+00_JPRB,0.29668E+00_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.23315E+00_JPRB,0.37455E+00_JPRB,0.41894E+00_JPRB,0.44116E+00_JPRB,0.45154E+00_JPRB, &
+ & 0.45134E+00_JPRB,0.43880E+00_JPRB,0.40751E+00_JPRB,0.30231E+00_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.24686E+00_JPRB,0.38301E+00_JPRB,0.42637E+00_JPRB,0.44889E+00_JPRB,0.45978E+00_JPRB, &
+ & 0.45969E+00_JPRB,0.44700E+00_JPRB,0.41408E+00_JPRB,0.30721E+00_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.25967E+00_JPRB,0.39102E+00_JPRB,0.43427E+00_JPRB,0.45708E+00_JPRB,0.46833E+00_JPRB, &
+ & 0.46819E+00_JPRB,0.45488E+00_JPRB,0.42031E+00_JPRB,0.31131E+00_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.27188E+00_JPRB,0.39949E+00_JPRB,0.44272E+00_JPRB,0.46608E+00_JPRB,0.47706E+00_JPRB, &
+ & 0.47653E+00_JPRB,0.46230E+00_JPRB,0.42618E+00_JPRB,0.31504E+00_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.18022E+00_JPRB,0.31183E+00_JPRB,0.35120E+00_JPRB,0.37079E+00_JPRB,0.37884E+00_JPRB, &
+ & 0.37804E+00_JPRB,0.36693E+00_JPRB,0.34063E+00_JPRB,0.24612E+00_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.19307E+00_JPRB,0.31966E+00_JPRB,0.35801E+00_JPRB,0.37712E+00_JPRB,0.38585E+00_JPRB, &
+ & 0.38558E+00_JPRB,0.37468E+00_JPRB,0.34716E+00_JPRB,0.25138E+00_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.20463E+00_JPRB,0.32683E+00_JPRB,0.36444E+00_JPRB,0.38387E+00_JPRB,0.39308E+00_JPRB, &
+ & 0.39294E+00_JPRB,0.38210E+00_JPRB,0.35364E+00_JPRB,0.25593E+00_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.21550E+00_JPRB,0.33367E+00_JPRB,0.37119E+00_JPRB,0.39103E+00_JPRB,0.40042E+00_JPRB, &
+ & 0.40039E+00_JPRB,0.38916E+00_JPRB,0.35964E+00_JPRB,0.25996E+00_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.22607E+00_JPRB,0.34108E+00_JPRB,0.37860E+00_JPRB,0.39875E+00_JPRB,0.40805E+00_JPRB, &
+ & 0.40762E+00_JPRB,0.39578E+00_JPRB,0.36518E+00_JPRB,0.26360E+00_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.14867E+00_JPRB,0.26554E+00_JPRB,0.29985E+00_JPRB,0.31657E+00_JPRB,0.32318E+00_JPRB, &
+ & 0.32201E+00_JPRB,0.31162E+00_JPRB,0.28815E+00_JPRB,0.21732E+00_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.15961E+00_JPRB,0.27217E+00_JPRB,0.30555E+00_JPRB,0.32206E+00_JPRB,0.32938E+00_JPRB, &
+ & 0.32864E+00_JPRB,0.31877E+00_JPRB,0.29424E+00_JPRB,0.22230E+00_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.16940E+00_JPRB,0.27829E+00_JPRB,0.31116E+00_JPRB,0.32786E+00_JPRB,0.33559E+00_JPRB, &
+ & 0.33509E+00_JPRB,0.32534E+00_JPRB,0.30046E+00_JPRB,0.22643E+00_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.17863E+00_JPRB,0.28410E+00_JPRB,0.31692E+00_JPRB,0.33409E+00_JPRB,0.34189E+00_JPRB, &
+ & 0.34154E+00_JPRB,0.33152E+00_JPRB,0.30607E+00_JPRB,0.23022E+00_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.18774E+00_JPRB,0.29050E+00_JPRB,0.32341E+00_JPRB,0.34075E+00_JPRB,0.34846E+00_JPRB, &
+ & 0.34771E+00_JPRB,0.33731E+00_JPRB,0.31120E+00_JPRB,0.23340E+00_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.12627E+00_JPRB,0.22669E+00_JPRB,0.25719E+00_JPRB,0.27172E+00_JPRB,0.27732E+00_JPRB, &
+ & 0.27601E+00_JPRB,0.26659E+00_JPRB,0.24512E+00_JPRB,0.18584E+00_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.13516E+00_JPRB,0.23214E+00_JPRB,0.26193E+00_JPRB,0.27653E+00_JPRB,0.28265E+00_JPRB, &
+ & 0.28160E+00_JPRB,0.27265E+00_JPRB,0.25095E+00_JPRB,0.18968E+00_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.14321E+00_JPRB,0.23722E+00_JPRB,0.26679E+00_JPRB,0.28162E+00_JPRB,0.28797E+00_JPRB, &
+ & 0.28724E+00_JPRB,0.27822E+00_JPRB,0.25645E+00_JPRB,0.19293E+00_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.15107E+00_JPRB,0.24247E+00_JPRB,0.27199E+00_JPRB,0.28706E+00_JPRB,0.29346E+00_JPRB, &
+ & 0.29269E+00_JPRB,0.28343E+00_JPRB,0.26131E+00_JPRB,0.19541E+00_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.15896E+00_JPRB,0.24837E+00_JPRB,0.27786E+00_JPRB,0.29309E+00_JPRB,0.29929E+00_JPRB, &
+ & 0.29804E+00_JPRB,0.28838E+00_JPRB,0.26594E+00_JPRB,0.19802E+00_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.10682E+00_JPRB,0.19256E+00_JPRB,0.21863E+00_JPRB,0.23192E+00_JPRB,0.23695E+00_JPRB, &
+ & 0.23560E+00_JPRB,0.22744E+00_JPRB,0.20844E+00_JPRB,0.16014E+00_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.11409E+00_JPRB,0.19699E+00_JPRB,0.22274E+00_JPRB,0.23606E+00_JPRB,0.24149E+00_JPRB, &
+ & 0.24040E+00_JPRB,0.23256E+00_JPRB,0.21367E+00_JPRB,0.16300E+00_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.12093E+00_JPRB,0.20128E+00_JPRB,0.22702E+00_JPRB,0.24050E+00_JPRB,0.24609E+00_JPRB, &
+ & 0.24521E+00_JPRB,0.23721E+00_JPRB,0.21831E+00_JPRB,0.16579E+00_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.12767E+00_JPRB,0.20601E+00_JPRB,0.23174E+00_JPRB,0.24542E+00_JPRB,0.25091E+00_JPRB, &
+ & 0.24990E+00_JPRB,0.24163E+00_JPRB,0.22258E+00_JPRB,0.16866E+00_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.13446E+00_JPRB,0.21151E+00_JPRB,0.23730E+00_JPRB,0.25089E+00_JPRB,0.25608E+00_JPRB, &
+ & 0.25469E+00_JPRB,0.24607E+00_JPRB,0.22668E+00_JPRB,0.17141E+00_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.90556E-01_JPRB,0.16301E+00_JPRB,0.18506E+00_JPRB,0.19633E+00_JPRB,0.20124E+00_JPRB, &
+ & 0.20042E+00_JPRB,0.19353E+00_JPRB,0.17713E+00_JPRB,0.13589E+00_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.96629E-01_JPRB,0.16667E+00_JPRB,0.18855E+00_JPRB,0.19991E+00_JPRB,0.20512E+00_JPRB, &
+ & 0.20458E+00_JPRB,0.19781E+00_JPRB,0.18150E+00_JPRB,0.13866E+00_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.10246E+00_JPRB,0.17045E+00_JPRB,0.19232E+00_JPRB,0.20386E+00_JPRB,0.20916E+00_JPRB, &
+ & 0.20868E+00_JPRB,0.20175E+00_JPRB,0.18546E+00_JPRB,0.14157E+00_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.10831E+00_JPRB,0.17481E+00_JPRB,0.19664E+00_JPRB,0.20827E+00_JPRB,0.21340E+00_JPRB, &
+ & 0.21278E+00_JPRB,0.20565E+00_JPRB,0.18920E+00_JPRB,0.14421E+00_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.11418E+00_JPRB,0.17993E+00_JPRB,0.20190E+00_JPRB,0.21347E+00_JPRB,0.21830E+00_JPRB, &
+ & 0.21718E+00_JPRB,0.20964E+00_JPRB,0.19280E+00_JPRB,0.14715E+00_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.20844E+01_JPRB,0.23344E+01_JPRB,0.25576E+01_JPRB,0.26701E+01_JPRB,0.27010E+01_JPRB, &
+ & 0.26681E+01_JPRB,0.25683E+01_JPRB,0.23655E+01_JPRB,0.20810E+01_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.20807E+01_JPRB,0.23304E+01_JPRB,0.25489E+01_JPRB,0.26611E+01_JPRB,0.26920E+01_JPRB, &
+ & 0.26609E+01_JPRB,0.25647E+01_JPRB,0.23645E+01_JPRB,0.20859E+01_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.20877E+01_JPRB,0.23342E+01_JPRB,0.25477E+01_JPRB,0.26548E+01_JPRB,0.26843E+01_JPRB, &
+ & 0.26541E+01_JPRB,0.25605E+01_JPRB,0.23637E+01_JPRB,0.20903E+01_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.21052E+01_JPRB,0.23454E+01_JPRB,0.25520E+01_JPRB,0.26529E+01_JPRB,0.26778E+01_JPRB, &
+ & 0.26478E+01_JPRB,0.25565E+01_JPRB,0.23630E+01_JPRB,0.20935E+01_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.21303E+01_JPRB,0.23633E+01_JPRB,0.25619E+01_JPRB,0.26546E+01_JPRB,0.26749E+01_JPRB, &
+ & 0.26429E+01_JPRB,0.25542E+01_JPRB,0.23619E+01_JPRB,0.20958E+01_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.18120E+01_JPRB,0.21101E+01_JPRB,0.23204E+01_JPRB,0.24266E+01_JPRB,0.24657E+01_JPRB, &
+ & 0.24469E+01_JPRB,0.23702E+01_JPRB,0.21931E+01_JPRB,0.18669E+01_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.18187E+01_JPRB,0.21137E+01_JPRB,0.23188E+01_JPRB,0.24223E+01_JPRB,0.24620E+01_JPRB, &
+ & 0.24436E+01_JPRB,0.23687E+01_JPRB,0.21944E+01_JPRB,0.18726E+01_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.18356E+01_JPRB,0.21255E+01_JPRB,0.23256E+01_JPRB,0.24232E+01_JPRB,0.24590E+01_JPRB, &
+ & 0.24407E+01_JPRB,0.23674E+01_JPRB,0.21960E+01_JPRB,0.18776E+01_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.18614E+01_JPRB,0.21447E+01_JPRB,0.23386E+01_JPRB,0.24287E+01_JPRB,0.24595E+01_JPRB, &
+ & 0.24387E+01_JPRB,0.23672E+01_JPRB,0.21970E+01_JPRB,0.18816E+01_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.18927E+01_JPRB,0.21683E+01_JPRB,0.23579E+01_JPRB,0.24392E+01_JPRB,0.24636E+01_JPRB, &
+ & 0.24407E+01_JPRB,0.23665E+01_JPRB,0.21974E+01_JPRB,0.18864E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 1, 3, 8) = (/ &
+ & 0.15702E+01_JPRB,0.18942E+01_JPRB,0.20837E+01_JPRB,0.21854E+01_JPRB,0.22324E+01_JPRB, &
+ & 0.22266E+01_JPRB,0.21649E+01_JPRB,0.20134E+01_JPRB,0.16617E+01_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.15827E+01_JPRB,0.19038E+01_JPRB,0.20886E+01_JPRB,0.21865E+01_JPRB,0.22329E+01_JPRB, &
+ & 0.22266E+01_JPRB,0.21649E+01_JPRB,0.20167E+01_JPRB,0.16695E+01_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.16046E+01_JPRB,0.19213E+01_JPRB,0.21019E+01_JPRB,0.21942E+01_JPRB,0.22360E+01_JPRB, &
+ & 0.22271E+01_JPRB,0.21665E+01_JPRB,0.20195E+01_JPRB,0.16762E+01_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.16329E+01_JPRB,0.19443E+01_JPRB,0.21213E+01_JPRB,0.22070E+01_JPRB,0.22424E+01_JPRB, &
+ & 0.22311E+01_JPRB,0.21683E+01_JPRB,0.20214E+01_JPRB,0.16830E+01_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.16658E+01_JPRB,0.19717E+01_JPRB,0.21452E+01_JPRB,0.22251E+01_JPRB,0.22530E+01_JPRB, &
+ & 0.22371E+01_JPRB,0.21708E+01_JPRB,0.20238E+01_JPRB,0.16904E+01_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.13564E+01_JPRB,0.16869E+01_JPRB,0.18550E+01_JPRB,0.19537E+01_JPRB,0.20049E+01_JPRB, &
+ & 0.20085E+01_JPRB,0.19601E+01_JPRB,0.18287E+01_JPRB,0.14756E+01_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.13720E+01_JPRB,0.17000E+01_JPRB,0.18655E+01_JPRB,0.19607E+01_JPRB,0.20100E+01_JPRB, &
+ & 0.20105E+01_JPRB,0.19622E+01_JPRB,0.18339E+01_JPRB,0.14854E+01_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.13952E+01_JPRB,0.17204E+01_JPRB,0.18837E+01_JPRB,0.19740E+01_JPRB,0.20182E+01_JPRB, &
+ & 0.20154E+01_JPRB,0.19654E+01_JPRB,0.18384E+01_JPRB,0.14948E+01_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.14229E+01_JPRB,0.17461E+01_JPRB,0.19072E+01_JPRB,0.19926E+01_JPRB,0.20303E+01_JPRB, &
+ & 0.20234E+01_JPRB,0.19691E+01_JPRB,0.18420E+01_JPRB,0.15040E+01_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.14534E+01_JPRB,0.17751E+01_JPRB,0.19345E+01_JPRB,0.20154E+01_JPRB,0.20467E+01_JPRB, &
+ & 0.20337E+01_JPRB,0.19742E+01_JPRB,0.18465E+01_JPRB,0.15131E+01_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.11675E+01_JPRB,0.14906E+01_JPRB,0.16422E+01_JPRB,0.17364E+01_JPRB,0.17875E+01_JPRB, &
+ & 0.17970E+01_JPRB,0.17582E+01_JPRB,0.16459E+01_JPRB,0.13057E+01_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.11839E+01_JPRB,0.15062E+01_JPRB,0.16573E+01_JPRB,0.17483E+01_JPRB,0.17956E+01_JPRB, &
+ & 0.18020E+01_JPRB,0.17623E+01_JPRB,0.16529E+01_JPRB,0.13176E+01_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.12061E+01_JPRB,0.15281E+01_JPRB,0.16790E+01_JPRB,0.17660E+01_JPRB,0.18082E+01_JPRB, &
+ & 0.18106E+01_JPRB,0.17678E+01_JPRB,0.16587E+01_JPRB,0.13289E+01_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.12311E+01_JPRB,0.15549E+01_JPRB,0.17048E+01_JPRB,0.17877E+01_JPRB,0.18250E+01_JPRB, &
+ & 0.18222E+01_JPRB,0.17742E+01_JPRB,0.16644E+01_JPRB,0.13398E+01_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.12582E+01_JPRB,0.15836E+01_JPRB,0.17338E+01_JPRB,0.18131E+01_JPRB,0.18457E+01_JPRB, &
+ & 0.18359E+01_JPRB,0.17826E+01_JPRB,0.16710E+01_JPRB,0.13507E+01_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.99981E+00_JPRB,0.13080E+01_JPRB,0.14477E+01_JPRB,0.15356E+01_JPRB,0.15829E+01_JPRB, &
+ & 0.15936E+01_JPRB,0.15636E+01_JPRB,0.14683E+01_JPRB,0.11482E+01_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.10151E+01_JPRB,0.13251E+01_JPRB,0.14655E+01_JPRB,0.15504E+01_JPRB,0.15941E+01_JPRB, &
+ & 0.16015E+01_JPRB,0.15698E+01_JPRB,0.14767E+01_JPRB,0.11619E+01_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.10344E+01_JPRB,0.13476E+01_JPRB,0.14887E+01_JPRB,0.15702E+01_JPRB,0.16097E+01_JPRB, &
+ & 0.16130E+01_JPRB,0.15772E+01_JPRB,0.14847E+01_JPRB,0.11743E+01_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.10560E+01_JPRB,0.13735E+01_JPRB,0.15155E+01_JPRB,0.15939E+01_JPRB,0.16293E+01_JPRB, &
+ & 0.16276E+01_JPRB,0.15870E+01_JPRB,0.14924E+01_JPRB,0.11864E+01_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.10794E+01_JPRB,0.13996E+01_JPRB,0.15438E+01_JPRB,0.16205E+01_JPRB,0.16521E+01_JPRB, &
+ & 0.16451E+01_JPRB,0.15991E+01_JPRB,0.15003E+01_JPRB,0.11982E+01_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.85239E+00_JPRB,0.11419E+01_JPRB,0.12714E+01_JPRB,0.13507E+01_JPRB,0.13930E+01_JPRB, &
+ & 0.14039E+01_JPRB,0.13790E+01_JPRB,0.12971E+01_JPRB,0.10034E+01_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.86542E+00_JPRB,0.11591E+01_JPRB,0.12898E+01_JPRB,0.13670E+01_JPRB,0.14062E+01_JPRB, &
+ & 0.14139E+01_JPRB,0.13871E+01_JPRB,0.13072E+01_JPRB,0.10179E+01_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.88108E+00_JPRB,0.11809E+01_JPRB,0.13130E+01_JPRB,0.13880E+01_JPRB,0.14241E+01_JPRB, &
+ & 0.14278E+01_JPRB,0.13975E+01_JPRB,0.13172E+01_JPRB,0.10310E+01_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.89900E+00_JPRB,0.12041E+01_JPRB,0.13390E+01_JPRB,0.14123E+01_JPRB,0.14455E+01_JPRB, &
+ & 0.14453E+01_JPRB,0.14105E+01_JPRB,0.13266E+01_JPRB,0.10434E+01_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.91862E+00_JPRB,0.12279E+01_JPRB,0.13649E+01_JPRB,0.14386E+01_JPRB,0.14692E+01_JPRB, &
+ & 0.14664E+01_JPRB,0.14254E+01_JPRB,0.13367E+01_JPRB,0.10558E+01_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.72497E+00_JPRB,0.99201E+00_JPRB,0.11107E+01_JPRB,0.11813E+01_JPRB,0.12195E+01_JPRB, &
+ & 0.12285E+01_JPRB,0.12058E+01_JPRB,0.11359E+01_JPRB,0.87110E+00_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.73517E+00_JPRB,0.10086E+01_JPRB,0.11285E+01_JPRB,0.11988E+01_JPRB,0.12342E+01_JPRB, &
+ & 0.12405E+01_JPRB,0.12160E+01_JPRB,0.11479E+01_JPRB,0.88568E+00_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.74752E+00_JPRB,0.10285E+01_JPRB,0.11507E+01_JPRB,0.12198E+01_JPRB,0.12532E+01_JPRB, &
+ & 0.12570E+01_JPRB,0.12289E+01_JPRB,0.11589E+01_JPRB,0.89927E+00_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.76213E+00_JPRB,0.10489E+01_JPRB,0.11747E+01_JPRB,0.12436E+01_JPRB,0.12757E+01_JPRB, &
+ & 0.12769E+01_JPRB,0.12445E+01_JPRB,0.11700E+01_JPRB,0.91203E+00_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.77854E+00_JPRB,0.10697E+01_JPRB,0.11980E+01_JPRB,0.12679E+01_JPRB,0.13002E+01_JPRB, &
+ & 0.12994E+01_JPRB,0.12621E+01_JPRB,0.11816E+01_JPRB,0.92392E+00_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.61682E+00_JPRB,0.85841E+00_JPRB,0.96403E+00_JPRB,0.10272E+01_JPRB,0.10606E+01_JPRB, &
+ & 0.10679E+01_JPRB,0.10472E+01_JPRB,0.98715E+00_JPRB,0.74825E+00_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.62415E+00_JPRB,0.87401E+00_JPRB,0.98140E+00_JPRB,0.10446E+01_JPRB,0.10763E+01_JPRB, &
+ & 0.10811E+01_JPRB,0.10593E+01_JPRB,0.10003E+01_JPRB,0.76294E+00_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.63387E+00_JPRB,0.89104E+00_JPRB,0.10022E+01_JPRB,0.10651E+01_JPRB,0.10962E+01_JPRB, &
+ & 0.10997E+01_JPRB,0.10740E+01_JPRB,0.10120E+01_JPRB,0.77659E+00_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.64542E+00_JPRB,0.90872E+00_JPRB,0.10230E+01_JPRB,0.10878E+01_JPRB,0.11188E+01_JPRB, &
+ & 0.11207E+01_JPRB,0.10911E+01_JPRB,0.10243E+01_JPRB,0.78905E+00_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.65900E+00_JPRB,0.92674E+00_JPRB,0.10436E+01_JPRB,0.11103E+01_JPRB,0.11424E+01_JPRB, &
+ & 0.11435E+01_JPRB,0.11102E+01_JPRB,0.10375E+01_JPRB,0.80034E+00_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.52547E+00_JPRB,0.74220E+00_JPRB,0.83433E+00_JPRB,0.88890E+00_JPRB,0.91741E+00_JPRB, &
+ & 0.92336E+00_JPRB,0.90538E+00_JPRB,0.85311E+00_JPRB,0.64696E+00_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.53064E+00_JPRB,0.75604E+00_JPRB,0.85107E+00_JPRB,0.90584E+00_JPRB,0.93361E+00_JPRB, &
+ & 0.93836E+00_JPRB,0.91861E+00_JPRB,0.86626E+00_JPRB,0.66062E+00_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.53809E+00_JPRB,0.77037E+00_JPRB,0.86942E+00_JPRB,0.92562E+00_JPRB,0.95409E+00_JPRB, &
+ & 0.95774E+00_JPRB,0.93423E+00_JPRB,0.87871E+00_JPRB,0.67391E+00_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.54734E+00_JPRB,0.78576E+00_JPRB,0.88734E+00_JPRB,0.94634E+00_JPRB,0.97611E+00_JPRB, &
+ & 0.97890E+00_JPRB,0.95253E+00_JPRB,0.89191E+00_JPRB,0.68526E+00_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.55842E+00_JPRB,0.80129E+00_JPRB,0.90542E+00_JPRB,0.96675E+00_JPRB,0.99781E+00_JPRB, &
+ & 0.10013E+01_JPRB,0.97253E+00_JPRB,0.90597E+00_JPRB,0.69583E+00_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.44902E+00_JPRB,0.64641E+00_JPRB,0.72682E+00_JPRB,0.77295E+00_JPRB,0.79679E+00_JPRB, &
+ & 0.80095E+00_JPRB,0.78478E+00_JPRB,0.73880E+00_JPRB,0.57500E+00_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.45343E+00_JPRB,0.65819E+00_JPRB,0.74259E+00_JPRB,0.79030E+00_JPRB,0.81509E+00_JPRB, &
+ & 0.81866E+00_JPRB,0.79960E+00_JPRB,0.75137E+00_JPRB,0.58784E+00_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.45968E+00_JPRB,0.67094E+00_JPRB,0.75812E+00_JPRB,0.80898E+00_JPRB,0.83522E+00_JPRB, &
+ & 0.83854E+00_JPRB,0.81711E+00_JPRB,0.76461E+00_JPRB,0.59939E+00_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.46764E+00_JPRB,0.68418E+00_JPRB,0.77402E+00_JPRB,0.82711E+00_JPRB,0.85518E+00_JPRB, &
+ & 0.85968E+00_JPRB,0.83634E+00_JPRB,0.77859E+00_JPRB,0.60954E+00_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.47750E+00_JPRB,0.69798E+00_JPRB,0.79021E+00_JPRB,0.84534E+00_JPRB,0.87480E+00_JPRB, &
+ & 0.88011E+00_JPRB,0.85595E+00_JPRB,0.79269E+00_JPRB,0.61896E+00_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.38252E+00_JPRB,0.56123E+00_JPRB,0.63221E+00_JPRB,0.67207E+00_JPRB,0.69191E+00_JPRB, &
+ & 0.69451E+00_JPRB,0.67853E+00_JPRB,0.63671E+00_JPRB,0.49624E+00_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.38610E+00_JPRB,0.57152E+00_JPRB,0.64559E+00_JPRB,0.68857E+00_JPRB,0.70992E+00_JPRB, &
+ & 0.71250E+00_JPRB,0.69440E+00_JPRB,0.64948E+00_JPRB,0.50772E+00_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.39135E+00_JPRB,0.58251E+00_JPRB,0.65953E+00_JPRB,0.70459E+00_JPRB,0.72793E+00_JPRB, &
+ & 0.73188E+00_JPRB,0.71251E+00_JPRB,0.66314E+00_JPRB,0.51771E+00_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.39838E+00_JPRB,0.59406E+00_JPRB,0.67357E+00_JPRB,0.72066E+00_JPRB,0.74570E+00_JPRB, &
+ & 0.75075E+00_JPRB,0.73108E+00_JPRB,0.67696E+00_JPRB,0.52680E+00_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.40785E+00_JPRB,0.60628E+00_JPRB,0.68802E+00_JPRB,0.73685E+00_JPRB,0.76342E+00_JPRB, &
+ & 0.76842E+00_JPRB,0.74857E+00_JPRB,0.69135E+00_JPRB,0.53408E+00_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.32297E+00_JPRB,0.48556E+00_JPRB,0.54760E+00_JPRB,0.58350E+00_JPRB,0.60079E+00_JPRB, &
+ & 0.60116E+00_JPRB,0.58518E+00_JPRB,0.54699E+00_JPRB,0.42276E+00_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.32591E+00_JPRB,0.49445E+00_JPRB,0.55963E+00_JPRB,0.59764E+00_JPRB,0.61654E+00_JPRB, &
+ & 0.61844E+00_JPRB,0.60149E+00_JPRB,0.55973E+00_JPRB,0.43280E+00_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.33057E+00_JPRB,0.50405E+00_JPRB,0.57184E+00_JPRB,0.61186E+00_JPRB,0.63239E+00_JPRB, &
+ & 0.63557E+00_JPRB,0.61864E+00_JPRB,0.57305E+00_JPRB,0.44151E+00_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.33705E+00_JPRB,0.51427E+00_JPRB,0.58428E+00_JPRB,0.62614E+00_JPRB,0.64825E+00_JPRB, &
+ & 0.65175E+00_JPRB,0.63492E+00_JPRB,0.58689E+00_JPRB,0.44893E+00_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.34636E+00_JPRB,0.52544E+00_JPRB,0.59740E+00_JPRB,0.64055E+00_JPRB,0.66342E+00_JPRB, &
+ & 0.66736E+00_JPRB,0.65002E+00_JPRB,0.60055E+00_JPRB,0.45487E+00_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.72991E+01_JPRB,0.69722E+01_JPRB,0.72863E+01_JPRB,0.75002E+01_JPRB,0.75688E+01_JPRB, &
+ & 0.74622E+01_JPRB,0.71020E+01_JPRB,0.65825E+01_JPRB,0.69144E+01_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.72210E+01_JPRB,0.69084E+01_JPRB,0.72319E+01_JPRB,0.74567E+01_JPRB,0.75409E+01_JPRB, &
+ & 0.74459E+01_JPRB,0.71001E+01_JPRB,0.65930E+01_JPRB,0.69213E+01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.71481E+01_JPRB,0.68475E+01_JPRB,0.71760E+01_JPRB,0.74130E+01_JPRB,0.75097E+01_JPRB, &
+ & 0.74266E+01_JPRB,0.70905E+01_JPRB,0.65992E+01_JPRB,0.69258E+01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.70810E+01_JPRB,0.67891E+01_JPRB,0.71222E+01_JPRB,0.73713E+01_JPRB,0.74785E+01_JPRB, &
+ & 0.74023E+01_JPRB,0.70766E+01_JPRB,0.66037E+01_JPRB,0.69303E+01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.70205E+01_JPRB,0.67342E+01_JPRB,0.70686E+01_JPRB,0.73258E+01_JPRB,0.74436E+01_JPRB, &
+ & 0.73740E+01_JPRB,0.70585E+01_JPRB,0.66060E+01_JPRB,0.69339E+01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.68023E+01_JPRB,0.66845E+01_JPRB,0.71435E+01_JPRB,0.74293E+01_JPRB,0.75528E+01_JPRB, &
+ & 0.74805E+01_JPRB,0.71383E+01_JPRB,0.65087E+01_JPRB,0.66425E+01_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.67309E+01_JPRB,0.66228E+01_JPRB,0.70899E+01_JPRB,0.73862E+01_JPRB,0.75243E+01_JPRB, &
+ & 0.74671E+01_JPRB,0.71358E+01_JPRB,0.65240E+01_JPRB,0.66588E+01_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.66680E+01_JPRB,0.65659E+01_JPRB,0.70365E+01_JPRB,0.73443E+01_JPRB,0.74954E+01_JPRB, &
+ & 0.74486E+01_JPRB,0.71260E+01_JPRB,0.65367E+01_JPRB,0.66745E+01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.66136E+01_JPRB,0.65139E+01_JPRB,0.69841E+01_JPRB,0.73016E+01_JPRB,0.74627E+01_JPRB, &
+ & 0.74252E+01_JPRB,0.71129E+01_JPRB,0.65455E+01_JPRB,0.66889E+01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.65687E+01_JPRB,0.64706E+01_JPRB,0.69322E+01_JPRB,0.72576E+01_JPRB,0.74266E+01_JPRB, &
+ & 0.73967E+01_JPRB,0.70986E+01_JPRB,0.65510E+01_JPRB,0.67011E+01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.62554E+01_JPRB,0.63717E+01_JPRB,0.69259E+01_JPRB,0.72750E+01_JPRB,0.74339E+01_JPRB, &
+ & 0.73812E+01_JPRB,0.70638E+01_JPRB,0.63830E+01_JPRB,0.62738E+01_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.61935E+01_JPRB,0.63130E+01_JPRB,0.68741E+01_JPRB,0.72340E+01_JPRB,0.74081E+01_JPRB, &
+ & 0.73723E+01_JPRB,0.70661E+01_JPRB,0.64055E+01_JPRB,0.63017E+01_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.61417E+01_JPRB,0.62609E+01_JPRB,0.68234E+01_JPRB,0.71924E+01_JPRB,0.73793E+01_JPRB, &
+ & 0.73559E+01_JPRB,0.70613E+01_JPRB,0.64217E+01_JPRB,0.63259E+01_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.61027E+01_JPRB,0.62184E+01_JPRB,0.67754E+01_JPRB,0.71518E+01_JPRB,0.73493E+01_JPRB, &
+ & 0.73341E+01_JPRB,0.70537E+01_JPRB,0.64352E+01_JPRB,0.63471E+01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.60751E+01_JPRB,0.61846E+01_JPRB,0.67335E+01_JPRB,0.71090E+01_JPRB,0.73143E+01_JPRB, &
+ & 0.73100E+01_JPRB,0.70431E+01_JPRB,0.64459E+01_JPRB,0.63674E+01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.56712E+01_JPRB,0.60174E+01_JPRB,0.66407E+01_JPRB,0.70308E+01_JPRB,0.72054E+01_JPRB, &
+ & 0.71700E+01_JPRB,0.68768E+01_JPRB,0.62076E+01_JPRB,0.58601E+01_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.56177E+01_JPRB,0.59637E+01_JPRB,0.65912E+01_JPRB,0.69914E+01_JPRB,0.71823E+01_JPRB, &
+ & 0.71644E+01_JPRB,0.68840E+01_JPRB,0.62360E+01_JPRB,0.58965E+01_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.55798E+01_JPRB,0.59204E+01_JPRB,0.65459E+01_JPRB,0.69532E+01_JPRB,0.71589E+01_JPRB, &
+ & 0.71503E+01_JPRB,0.68872E+01_JPRB,0.62571E+01_JPRB,0.59275E+01_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.55576E+01_JPRB,0.58874E+01_JPRB,0.65057E+01_JPRB,0.69160E+01_JPRB,0.71305E+01_JPRB, &
+ & 0.71327E+01_JPRB,0.68860E+01_JPRB,0.62738E+01_JPRB,0.59560E+01_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.55509E+01_JPRB,0.58664E+01_JPRB,0.64735E+01_JPRB,0.68799E+01_JPRB,0.70989E+01_JPRB, &
+ & 0.71129E+01_JPRB,0.68803E+01_JPRB,0.62864E+01_JPRB,0.59817E+01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.50748E+01_JPRB,0.56236E+01_JPRB,0.62897E+01_JPRB,0.66937E+01_JPRB,0.68773E+01_JPRB, &
+ & 0.68583E+01_JPRB,0.65966E+01_JPRB,0.59739E+01_JPRB,0.54247E+01_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.50332E+01_JPRB,0.55772E+01_JPRB,0.62435E+01_JPRB,0.66588E+01_JPRB,0.68602E+01_JPRB, &
+ & 0.68553E+01_JPRB,0.66099E+01_JPRB,0.60056E+01_JPRB,0.54668E+01_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.50094E+01_JPRB,0.55429E+01_JPRB,0.62032E+01_JPRB,0.66264E+01_JPRB,0.68392E+01_JPRB, &
+ & 0.68457E+01_JPRB,0.66198E+01_JPRB,0.60291E+01_JPRB,0.55024E+01_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.50054E+01_JPRB,0.55221E+01_JPRB,0.61728E+01_JPRB,0.65959E+01_JPRB,0.68138E+01_JPRB, &
+ & 0.68347E+01_JPRB,0.66239E+01_JPRB,0.60504E+01_JPRB,0.55378E+01_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.50196E+01_JPRB,0.55140E+01_JPRB,0.61502E+01_JPRB,0.65696E+01_JPRB,0.67880E+01_JPRB, &
+ & 0.68224E+01_JPRB,0.66232E+01_JPRB,0.60661E+01_JPRB,0.55660E+01_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.44929E+01_JPRB,0.51985E+01_JPRB,0.58791E+01_JPRB,0.62757E+01_JPRB,0.64716E+01_JPRB, &
+ & 0.64669E+01_JPRB,0.62368E+01_JPRB,0.56853E+01_JPRB,0.49792E+01_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.44612E+01_JPRB,0.51596E+01_JPRB,0.58385E+01_JPRB,0.62487E+01_JPRB,0.64570E+01_JPRB, &
+ & 0.64678E+01_JPRB,0.62575E+01_JPRB,0.57196E+01_JPRB,0.50244E+01_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.44521E+01_JPRB,0.51348E+01_JPRB,0.58071E+01_JPRB,0.62248E+01_JPRB,0.64383E+01_JPRB, &
+ & 0.64639E+01_JPRB,0.62747E+01_JPRB,0.57459E+01_JPRB,0.50676E+01_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.44651E+01_JPRB,0.51248E+01_JPRB,0.57862E+01_JPRB,0.62029E+01_JPRB,0.64206E+01_JPRB, &
+ & 0.64594E+01_JPRB,0.62829E+01_JPRB,0.57703E+01_JPRB,0.51061E+01_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.44974E+01_JPRB,0.51321E+01_JPRB,0.57769E+01_JPRB,0.61847E+01_JPRB,0.64045E+01_JPRB, &
+ & 0.64518E+01_JPRB,0.62850E+01_JPRB,0.57880E+01_JPRB,0.51383E+01_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.39405E+01_JPRB,0.47599E+01_JPRB,0.54183E+01_JPRB,0.58070E+01_JPRB,0.60002E+01_JPRB, &
+ & 0.60137E+01_JPRB,0.58231E+01_JPRB,0.53430E+01_JPRB,0.45395E+01_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.39200E+01_JPRB,0.47279E+01_JPRB,0.53865E+01_JPRB,0.57866E+01_JPRB,0.59900E+01_JPRB, &
+ & 0.60178E+01_JPRB,0.58493E+01_JPRB,0.53803E+01_JPRB,0.45897E+01_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.39243E+01_JPRB,0.47128E+01_JPRB,0.53651E+01_JPRB,0.57689E+01_JPRB,0.59779E+01_JPRB, &
+ & 0.60210E+01_JPRB,0.58689E+01_JPRB,0.54093E+01_JPRB,0.46370E+01_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.39509E+01_JPRB,0.47158E+01_JPRB,0.53566E+01_JPRB,0.57541E+01_JPRB,0.59686E+01_JPRB, &
+ & 0.60221E+01_JPRB,0.58794E+01_JPRB,0.54360E+01_JPRB,0.46801E+01_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.39997E+01_JPRB,0.47365E+01_JPRB,0.53625E+01_JPRB,0.57480E+01_JPRB,0.59641E+01_JPRB, &
+ & 0.60191E+01_JPRB,0.58864E+01_JPRB,0.54567E+01_JPRB,0.47154E+01_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.34277E+01_JPRB,0.43224E+01_JPRB,0.49312E+01_JPRB,0.53036E+01_JPRB,0.54930E+01_JPRB, &
+ & 0.55228E+01_JPRB,0.53766E+01_JPRB,0.49651E+01_JPRB,0.41155E+01_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.34174E+01_JPRB,0.42976E+01_JPRB,0.49104E+01_JPRB,0.52883E+01_JPRB,0.54862E+01_JPRB, &
+ & 0.55322E+01_JPRB,0.54048E+01_JPRB,0.50049E+01_JPRB,0.41706E+01_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.34328E+01_JPRB,0.42901E+01_JPRB,0.49000E+01_JPRB,0.52782E+01_JPRB,0.54821E+01_JPRB, &
+ & 0.55409E+01_JPRB,0.54257E+01_JPRB,0.50383E+01_JPRB,0.42218E+01_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.34724E+01_JPRB,0.43054E+01_JPRB,0.49030E+01_JPRB,0.52739E+01_JPRB,0.54825E+01_JPRB, &
+ & 0.55468E+01_JPRB,0.54402E+01_JPRB,0.50678E+01_JPRB,0.42656E+01_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.35331E+01_JPRB,0.43394E+01_JPRB,0.49199E+01_JPRB,0.52816E+01_JPRB,0.54871E+01_JPRB, &
+ & 0.55512E+01_JPRB,0.54505E+01_JPRB,0.50918E+01_JPRB,0.43035E+01_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.29643E+01_JPRB,0.38841E+01_JPRB,0.44459E+01_JPRB,0.47885E+01_JPRB,0.49734E+01_JPRB, &
+ & 0.50221E+01_JPRB,0.49131E+01_JPRB,0.45659E+01_JPRB,0.37057E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 9, 9) = (/ &
+ & 0.29616E+01_JPRB,0.38662E+01_JPRB,0.44298E+01_JPRB,0.47788E+01_JPRB,0.49743E+01_JPRB, &
+ & 0.50365E+01_JPRB,0.49428E+01_JPRB,0.46088E+01_JPRB,0.37656E+01_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.29848E+01_JPRB,0.38693E+01_JPRB,0.44274E+01_JPRB,0.47752E+01_JPRB,0.49768E+01_JPRB, &
+ & 0.50477E+01_JPRB,0.49663E+01_JPRB,0.46464E+01_JPRB,0.38194E+01_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.30329E+01_JPRB,0.38944E+01_JPRB,0.44404E+01_JPRB,0.47824E+01_JPRB,0.49850E+01_JPRB, &
+ & 0.50582E+01_JPRB,0.49851E+01_JPRB,0.46790E+01_JPRB,0.38645E+01_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.31033E+01_JPRB,0.39395E+01_JPRB,0.44689E+01_JPRB,0.48029E+01_JPRB,0.49990E+01_JPRB, &
+ & 0.50689E+01_JPRB,0.50004E+01_JPRB,0.47030E+01_JPRB,0.39063E+01_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.25528E+01_JPRB,0.34541E+01_JPRB,0.39652E+01_JPRB,0.42831E+01_JPRB,0.44659E+01_JPRB, &
+ & 0.45285E+01_JPRB,0.44509E+01_JPRB,0.41587E+01_JPRB,0.32612E+01_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.25575E+01_JPRB,0.34458E+01_JPRB,0.39558E+01_JPRB,0.42802E+01_JPRB,0.44723E+01_JPRB, &
+ & 0.45451E+01_JPRB,0.44820E+01_JPRB,0.42051E+01_JPRB,0.33240E+01_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.25883E+01_JPRB,0.34607E+01_JPRB,0.39625E+01_JPRB,0.42854E+01_JPRB,0.44811E+01_JPRB, &
+ & 0.45602E+01_JPRB,0.45090E+01_JPRB,0.42460E+01_JPRB,0.33785E+01_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.26435E+01_JPRB,0.34963E+01_JPRB,0.39867E+01_JPRB,0.43038E+01_JPRB,0.44956E+01_JPRB, &
+ & 0.45761E+01_JPRB,0.45312E+01_JPRB,0.42799E+01_JPRB,0.34270E+01_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.27203E+01_JPRB,0.35517E+01_JPRB,0.40270E+01_JPRB,0.43344E+01_JPRB,0.45189E+01_JPRB, &
+ & 0.45941E+01_JPRB,0.45504E+01_JPRB,0.43065E+01_JPRB,0.34705E+01_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.21958E+01_JPRB,0.30498E+01_JPRB,0.35059E+01_JPRB,0.38049E+01_JPRB,0.39876E+01_JPRB, &
+ & 0.40622E+01_JPRB,0.40123E+01_JPRB,0.37729E+01_JPRB,0.28786E+01_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.22177E+01_JPRB,0.30598E+01_JPRB,0.35116E+01_JPRB,0.38116E+01_JPRB,0.39989E+01_JPRB, &
+ & 0.40819E+01_JPRB,0.40442E+01_JPRB,0.38191E+01_JPRB,0.29389E+01_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.22647E+01_JPRB,0.30907E+01_JPRB,0.35359E+01_JPRB,0.38306E+01_JPRB,0.40167E+01_JPRB, &
+ & 0.41020E+01_JPRB,0.40724E+01_JPRB,0.38578E+01_JPRB,0.29915E+01_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.23337E+01_JPRB,0.31425E+01_JPRB,0.35763E+01_JPRB,0.38632E+01_JPRB,0.40437E+01_JPRB, &
+ & 0.41245E+01_JPRB,0.40973E+01_JPRB,0.38902E+01_JPRB,0.30386E+01_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.24135E+01_JPRB,0.32120E+01_JPRB,0.36330E+01_JPRB,0.39077E+01_JPRB,0.40797E+01_JPRB, &
+ & 0.41526E+01_JPRB,0.41204E+01_JPRB,0.39195E+01_JPRB,0.30818E+01_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.18956E+01_JPRB,0.26861E+01_JPRB,0.30931E+01_JPRB,0.33674E+01_JPRB,0.35425E+01_JPRB, &
+ & 0.36210E+01_JPRB,0.35899E+01_JPRB,0.33921E+01_JPRB,0.25824E+01_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.19314E+01_JPRB,0.27108E+01_JPRB,0.31141E+01_JPRB,0.33855E+01_JPRB,0.35620E+01_JPRB, &
+ & 0.36450E+01_JPRB,0.36224E+01_JPRB,0.34362E+01_JPRB,0.26351E+01_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.19899E+01_JPRB,0.27565E+01_JPRB,0.31515E+01_JPRB,0.34177E+01_JPRB,0.35909E+01_JPRB, &
+ & 0.36718E+01_JPRB,0.36517E+01_JPRB,0.34743E+01_JPRB,0.26837E+01_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.20599E+01_JPRB,0.28211E+01_JPRB,0.32055E+01_JPRB,0.34628E+01_JPRB,0.36291E+01_JPRB, &
+ & 0.37038E+01_JPRB,0.36800E+01_JPRB,0.35081E+01_JPRB,0.27286E+01_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.21342E+01_JPRB,0.28994E+01_JPRB,0.32752E+01_JPRB,0.35201E+01_JPRB,0.36745E+01_JPRB, &
+ & 0.37420E+01_JPRB,0.37112E+01_JPRB,0.35392E+01_JPRB,0.27703E+01_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.16403E+01_JPRB,0.23651E+01_JPRB,0.27290E+01_JPRB,0.29746E+01_JPRB,0.31326E+01_JPRB, &
+ & 0.32080E+01_JPRB,0.31891E+01_JPRB,0.30274E+01_JPRB,0.23307E+01_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.16863E+01_JPRB,0.24025E+01_JPRB,0.27611E+01_JPRB,0.30044E+01_JPRB,0.31618E+01_JPRB, &
+ & 0.32369E+01_JPRB,0.32226E+01_JPRB,0.30700E+01_JPRB,0.23815E+01_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.17455E+01_JPRB,0.24598E+01_JPRB,0.28102E+01_JPRB,0.30475E+01_JPRB,0.32007E+01_JPRB, &
+ & 0.32722E+01_JPRB,0.32554E+01_JPRB,0.31073E+01_JPRB,0.24291E+01_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.18100E+01_JPRB,0.25311E+01_JPRB,0.28759E+01_JPRB,0.31035E+01_JPRB,0.32472E+01_JPRB, &
+ & 0.33131E+01_JPRB,0.32901E+01_JPRB,0.31417E+01_JPRB,0.24730E+01_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.18736E+01_JPRB,0.26085E+01_JPRB,0.29527E+01_JPRB,0.31711E+01_JPRB,0.33027E+01_JPRB, &
+ & 0.33589E+01_JPRB,0.33290E+01_JPRB,0.31763E+01_JPRB,0.25126E+01_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.19065E+02_JPRB,0.16899E+02_JPRB,0.15643E+02_JPRB,0.15578E+02_JPRB,0.15043E+02_JPRB, &
+ & 0.14288E+02_JPRB,0.13684E+02_JPRB,0.14703E+02_JPRB,0.16312E+02_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.18912E+02_JPRB,0.16761E+02_JPRB,0.15514E+02_JPRB,0.15480E+02_JPRB,0.14973E+02_JPRB, &
+ & 0.14273E+02_JPRB,0.13717E+02_JPRB,0.14749E+02_JPRB,0.16352E+02_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.18728E+02_JPRB,0.16596E+02_JPRB,0.15380E+02_JPRB,0.15367E+02_JPRB,0.14915E+02_JPRB, &
+ & 0.14240E+02_JPRB,0.13761E+02_JPRB,0.14772E+02_JPRB,0.16373E+02_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.18544E+02_JPRB,0.16434E+02_JPRB,0.15250E+02_JPRB,0.15223E+02_JPRB,0.14839E+02_JPRB, &
+ & 0.14214E+02_JPRB,0.13761E+02_JPRB,0.14749E+02_JPRB,0.16351E+02_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.18333E+02_JPRB,0.16256E+02_JPRB,0.15122E+02_JPRB,0.15098E+02_JPRB,0.14749E+02_JPRB, &
+ & 0.14176E+02_JPRB,0.13735E+02_JPRB,0.14720E+02_JPRB,0.16309E+02_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.19359E+02_JPRB,0.17148E+02_JPRB,0.16419E+02_JPRB,0.16424E+02_JPRB,0.16006E+02_JPRB, &
+ & 0.15375E+02_JPRB,0.14545E+02_JPRB,0.15202E+02_JPRB,0.16997E+02_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.19172E+02_JPRB,0.16980E+02_JPRB,0.16267E+02_JPRB,0.16317E+02_JPRB,0.15911E+02_JPRB, &
+ & 0.15334E+02_JPRB,0.14618E+02_JPRB,0.15283E+02_JPRB,0.17084E+02_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.18973E+02_JPRB,0.16804E+02_JPRB,0.16126E+02_JPRB,0.16185E+02_JPRB,0.15827E+02_JPRB, &
+ & 0.15302E+02_JPRB,0.14664E+02_JPRB,0.15280E+02_JPRB,0.17092E+02_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.18751E+02_JPRB,0.16617E+02_JPRB,0.15988E+02_JPRB,0.16055E+02_JPRB,0.15738E+02_JPRB, &
+ & 0.15272E+02_JPRB,0.14654E+02_JPRB,0.15237E+02_JPRB,0.17035E+02_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.18520E+02_JPRB,0.16417E+02_JPRB,0.15855E+02_JPRB,0.15950E+02_JPRB,0.15639E+02_JPRB, &
+ & 0.15219E+02_JPRB,0.14617E+02_JPRB,0.15192E+02_JPRB,0.16961E+02_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.19263E+02_JPRB,0.17075E+02_JPRB,0.17060E+02_JPRB,0.17120E+02_JPRB,0.16883E+02_JPRB, &
+ & 0.16381E+02_JPRB,0.15414E+02_JPRB,0.15455E+02_JPRB,0.17398E+02_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.19059E+02_JPRB,0.16894E+02_JPRB,0.16898E+02_JPRB,0.17000E+02_JPRB,0.16773E+02_JPRB, &
+ & 0.16323E+02_JPRB,0.15500E+02_JPRB,0.15491E+02_JPRB,0.17437E+02_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.18835E+02_JPRB,0.16708E+02_JPRB,0.16745E+02_JPRB,0.16865E+02_JPRB,0.16669E+02_JPRB, &
+ & 0.16285E+02_JPRB,0.15530E+02_JPRB,0.15496E+02_JPRB,0.17423E+02_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.18600E+02_JPRB,0.16513E+02_JPRB,0.16588E+02_JPRB,0.16744E+02_JPRB,0.16560E+02_JPRB, &
+ & 0.16244E+02_JPRB,0.15515E+02_JPRB,0.15476E+02_JPRB,0.17372E+02_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.18358E+02_JPRB,0.16312E+02_JPRB,0.16416E+02_JPRB,0.16627E+02_JPRB,0.16462E+02_JPRB, &
+ & 0.16172E+02_JPRB,0.15490E+02_JPRB,0.15433E+02_JPRB,0.17293E+02_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.18801E+02_JPRB,0.16888E+02_JPRB,0.17351E+02_JPRB,0.17638E+02_JPRB,0.17654E+02_JPRB, &
+ & 0.17241E+02_JPRB,0.16305E+02_JPRB,0.15458E+02_JPRB,0.17321E+02_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.18579E+02_JPRB,0.16692E+02_JPRB,0.17197E+02_JPRB,0.17496E+02_JPRB,0.17520E+02_JPRB, &
+ & 0.17188E+02_JPRB,0.16384E+02_JPRB,0.15486E+02_JPRB,0.17346E+02_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.18342E+02_JPRB,0.16488E+02_JPRB,0.17035E+02_JPRB,0.17349E+02_JPRB,0.17380E+02_JPRB, &
+ & 0.17158E+02_JPRB,0.16385E+02_JPRB,0.15526E+02_JPRB,0.17367E+02_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.18091E+02_JPRB,0.16279E+02_JPRB,0.16863E+02_JPRB,0.17208E+02_JPRB,0.17266E+02_JPRB, &
+ & 0.17103E+02_JPRB,0.16355E+02_JPRB,0.15560E+02_JPRB,0.17358E+02_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.17836E+02_JPRB,0.16059E+02_JPRB,0.16677E+02_JPRB,0.17068E+02_JPRB,0.17166E+02_JPRB, &
+ & 0.17011E+02_JPRB,0.16312E+02_JPRB,0.15578E+02_JPRB,0.17344E+02_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.17961E+02_JPRB,0.16659E+02_JPRB,0.17334E+02_JPRB,0.17976E+02_JPRB,0.18171E+02_JPRB, &
+ & 0.17832E+02_JPRB,0.16966E+02_JPRB,0.15432E+02_JPRB,0.16855E+02_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.17714E+02_JPRB,0.16442E+02_JPRB,0.17178E+02_JPRB,0.17800E+02_JPRB,0.18030E+02_JPRB, &
+ & 0.17804E+02_JPRB,0.17004E+02_JPRB,0.15487E+02_JPRB,0.16904E+02_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.17470E+02_JPRB,0.16231E+02_JPRB,0.17012E+02_JPRB,0.17636E+02_JPRB,0.17902E+02_JPRB, &
+ & 0.17774E+02_JPRB,0.16959E+02_JPRB,0.15590E+02_JPRB,0.16987E+02_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.17221E+02_JPRB,0.16002E+02_JPRB,0.16835E+02_JPRB,0.17477E+02_JPRB,0.17804E+02_JPRB, &
+ & 0.17680E+02_JPRB,0.16923E+02_JPRB,0.15646E+02_JPRB,0.17004E+02_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.16955E+02_JPRB,0.15778E+02_JPRB,0.16648E+02_JPRB,0.17325E+02_JPRB,0.17709E+02_JPRB, &
+ & 0.17576E+02_JPRB,0.16895E+02_JPRB,0.15664E+02_JPRB,0.17027E+02_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.16796E+02_JPRB,0.16241E+02_JPRB,0.17123E+02_JPRB,0.18098E+02_JPRB,0.18345E+02_JPRB, &
+ & 0.18145E+02_JPRB,0.17297E+02_JPRB,0.15317E+02_JPRB,0.16076E+02_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.16561E+02_JPRB,0.16019E+02_JPRB,0.16973E+02_JPRB,0.17901E+02_JPRB,0.18253E+02_JPRB, &
+ & 0.18123E+02_JPRB,0.17284E+02_JPRB,0.15411E+02_JPRB,0.16194E+02_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.16307E+02_JPRB,0.15790E+02_JPRB,0.16801E+02_JPRB,0.17722E+02_JPRB,0.18189E+02_JPRB, &
+ & 0.18068E+02_JPRB,0.17217E+02_JPRB,0.15556E+02_JPRB,0.16309E+02_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.16045E+02_JPRB,0.15571E+02_JPRB,0.16615E+02_JPRB,0.17565E+02_JPRB,0.18113E+02_JPRB, &
+ & 0.17968E+02_JPRB,0.17201E+02_JPRB,0.15625E+02_JPRB,0.16374E+02_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.15792E+02_JPRB,0.15350E+02_JPRB,0.16424E+02_JPRB,0.17437E+02_JPRB,0.17997E+02_JPRB, &
+ & 0.17869E+02_JPRB,0.17203E+02_JPRB,0.15664E+02_JPRB,0.16420E+02_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.15441E+02_JPRB,0.15555E+02_JPRB,0.16836E+02_JPRB,0.17857E+02_JPRB,0.18265E+02_JPRB, &
+ & 0.18114E+02_JPRB,0.17249E+02_JPRB,0.15143E+02_JPRB,0.15078E+02_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.15190E+02_JPRB,0.15341E+02_JPRB,0.16649E+02_JPRB,0.17679E+02_JPRB,0.18211E+02_JPRB, &
+ & 0.18098E+02_JPRB,0.17215E+02_JPRB,0.15278E+02_JPRB,0.15251E+02_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.14946E+02_JPRB,0.15122E+02_JPRB,0.16458E+02_JPRB,0.17534E+02_JPRB,0.18165E+02_JPRB, &
+ & 0.18029E+02_JPRB,0.17165E+02_JPRB,0.15443E+02_JPRB,0.15389E+02_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.14700E+02_JPRB,0.14908E+02_JPRB,0.16252E+02_JPRB,0.17424E+02_JPRB,0.18072E+02_JPRB, &
+ & 0.17929E+02_JPRB,0.17187E+02_JPRB,0.15518E+02_JPRB,0.15458E+02_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.14445E+02_JPRB,0.14710E+02_JPRB,0.16048E+02_JPRB,0.17304E+02_JPRB,0.17932E+02_JPRB, &
+ & 0.17873E+02_JPRB,0.17206E+02_JPRB,0.15573E+02_JPRB,0.15541E+02_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.13963E+02_JPRB,0.14641E+02_JPRB,0.16339E+02_JPRB,0.17287E+02_JPRB,0.17853E+02_JPRB, &
+ & 0.17712E+02_JPRB,0.16836E+02_JPRB,0.14867E+02_JPRB,0.13958E+02_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.13720E+02_JPRB,0.14441E+02_JPRB,0.16121E+02_JPRB,0.17175E+02_JPRB,0.17806E+02_JPRB, &
+ & 0.17701E+02_JPRB,0.16817E+02_JPRB,0.15013E+02_JPRB,0.14139E+02_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.13475E+02_JPRB,0.14253E+02_JPRB,0.15918E+02_JPRB,0.17071E+02_JPRB,0.17741E+02_JPRB, &
+ & 0.17634E+02_JPRB,0.16820E+02_JPRB,0.15155E+02_JPRB,0.14269E+02_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.13235E+02_JPRB,0.14056E+02_JPRB,0.15727E+02_JPRB,0.16983E+02_JPRB,0.17630E+02_JPRB, &
+ & 0.17564E+02_JPRB,0.16869E+02_JPRB,0.15238E+02_JPRB,0.14383E+02_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.13009E+02_JPRB,0.13855E+02_JPRB,0.15556E+02_JPRB,0.16857E+02_JPRB,0.17508E+02_JPRB, &
+ & 0.17529E+02_JPRB,0.16912E+02_JPRB,0.15302E+02_JPRB,0.14496E+02_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.12422E+02_JPRB,0.13743E+02_JPRB,0.15496E+02_JPRB,0.16530E+02_JPRB,0.17068E+02_JPRB, &
+ & 0.16944E+02_JPRB,0.16119E+02_JPRB,0.14360E+02_JPRB,0.12852E+02_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.12195E+02_JPRB,0.13543E+02_JPRB,0.15328E+02_JPRB,0.16447E+02_JPRB,0.17000E+02_JPRB, &
+ & 0.16934E+02_JPRB,0.16148E+02_JPRB,0.14484E+02_JPRB,0.13012E+02_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.11972E+02_JPRB,0.13354E+02_JPRB,0.15163E+02_JPRB,0.16359E+02_JPRB,0.16940E+02_JPRB, &
+ & 0.16900E+02_JPRB,0.16191E+02_JPRB,0.14599E+02_JPRB,0.13152E+02_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.11752E+02_JPRB,0.13166E+02_JPRB,0.15011E+02_JPRB,0.16249E+02_JPRB,0.16842E+02_JPRB, &
+ & 0.16880E+02_JPRB,0.16254E+02_JPRB,0.14688E+02_JPRB,0.13295E+02_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.11542E+02_JPRB,0.12972E+02_JPRB,0.14878E+02_JPRB,0.16107E+02_JPRB,0.16750E+02_JPRB, &
+ & 0.16884E+02_JPRB,0.16301E+02_JPRB,0.14790E+02_JPRB,0.13417E+02_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.10883E+02_JPRB,0.12799E+02_JPRB,0.14471E+02_JPRB,0.15523E+02_JPRB,0.15963E+02_JPRB, &
+ & 0.15867E+02_JPRB,0.15188E+02_JPRB,0.13687E+02_JPRB,0.11830E+02_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.10669E+02_JPRB,0.12615E+02_JPRB,0.14351E+02_JPRB,0.15423E+02_JPRB,0.15920E+02_JPRB, &
+ & 0.15883E+02_JPRB,0.15251E+02_JPRB,0.13796E+02_JPRB,0.11997E+02_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.10461E+02_JPRB,0.12417E+02_JPRB,0.14235E+02_JPRB,0.15340E+02_JPRB,0.15857E+02_JPRB, &
+ & 0.15885E+02_JPRB,0.15315E+02_JPRB,0.13895E+02_JPRB,0.12154E+02_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.10271E+02_JPRB,0.12218E+02_JPRB,0.14109E+02_JPRB,0.15234E+02_JPRB,0.15808E+02_JPRB, &
+ & 0.15905E+02_JPRB,0.15383E+02_JPRB,0.14000E+02_JPRB,0.12311E+02_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.10108E+02_JPRB,0.12035E+02_JPRB,0.13977E+02_JPRB,0.15117E+02_JPRB,0.15764E+02_JPRB, &
+ & 0.15927E+02_JPRB,0.15450E+02_JPRB,0.14121E+02_JPRB,0.12430E+02_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.93334E+01_JPRB,0.11625E+02_JPRB,0.13302E+02_JPRB,0.14226E+02_JPRB,0.14663E+02_JPRB, &
+ & 0.14671E+02_JPRB,0.14179E+02_JPRB,0.12958E+02_JPRB,0.10939E+02_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.91435E+01_JPRB,0.11452E+02_JPRB,0.13192E+02_JPRB,0.14163E+02_JPRB,0.14640E+02_JPRB, &
+ & 0.14697E+02_JPRB,0.14256E+02_JPRB,0.13072E+02_JPRB,0.11104E+02_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.89744E+01_JPRB,0.11286E+02_JPRB,0.13068E+02_JPRB,0.14085E+02_JPRB,0.14619E+02_JPRB, &
+ & 0.14728E+02_JPRB,0.14326E+02_JPRB,0.13192E+02_JPRB,0.11276E+02_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.88386E+01_JPRB,0.11134E+02_JPRB,0.12957E+02_JPRB,0.14008E+02_JPRB,0.14602E+02_JPRB, &
+ & 0.14761E+02_JPRB,0.14404E+02_JPRB,0.13322E+02_JPRB,0.11423E+02_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.88280E+01_JPRB,0.11011E+02_JPRB,0.12844E+02_JPRB,0.13942E+02_JPRB,0.14584E+02_JPRB, &
+ & 0.14790E+02_JPRB,0.14494E+02_JPRB,0.13437E+02_JPRB,0.11537E+02_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.79516E+01_JPRB,0.10418E+02_JPRB,0.11985E+02_JPRB,0.12856E+02_JPRB,0.13326E+02_JPRB, &
+ & 0.13448E+02_JPRB,0.13142E+02_JPRB,0.12163E+02_JPRB,0.97408E+01_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.78004E+01_JPRB,0.10286E+02_JPRB,0.11886E+02_JPRB,0.12812E+02_JPRB,0.13327E+02_JPRB, &
+ & 0.13488E+02_JPRB,0.13229E+02_JPRB,0.12301E+02_JPRB,0.99474E+01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.76847E+01_JPRB,0.10169E+02_JPRB,0.11799E+02_JPRB,0.12768E+02_JPRB,0.13325E+02_JPRB, &
+ & 0.13529E+02_JPRB,0.13323E+02_JPRB,0.12442E+02_JPRB,0.10130E+02_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.76979E+01_JPRB,0.10072E+02_JPRB,0.11716E+02_JPRB,0.12735E+02_JPRB,0.13318E+02_JPRB, &
+ & 0.13569E+02_JPRB,0.13422E+02_JPRB,0.12581E+02_JPRB,0.10272E+02_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.78582E+01_JPRB,0.10030E+02_JPRB,0.11643E+02_JPRB,0.12707E+02_JPRB,0.13325E+02_JPRB, &
+ & 0.13613E+02_JPRB,0.13505E+02_JPRB,0.12682E+02_JPRB,0.10410E+02_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.68077E+01_JPRB,0.92695E+01_JPRB,0.10647E+02_JPRB,0.11513E+02_JPRB,0.12044E+02_JPRB, &
+ & 0.12269E+02_JPRB,0.12092E+02_JPRB,0.11295E+02_JPRB,0.85103E+01_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.67020E+01_JPRB,0.91675E+01_JPRB,0.10585E+02_JPRB,0.11489E+02_JPRB,0.12056E+02_JPRB, &
+ & 0.12329E+02_JPRB,0.12198E+02_JPRB,0.11449E+02_JPRB,0.87111E+01_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.67136E+01_JPRB,0.90765E+01_JPRB,0.10537E+02_JPRB,0.11473E+02_JPRB,0.12065E+02_JPRB, &
+ & 0.12379E+02_JPRB,0.12312E+02_JPRB,0.11602E+02_JPRB,0.88718E+01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.68715E+01_JPRB,0.90508E+01_JPRB,0.10490E+02_JPRB,0.11454E+02_JPRB,0.12087E+02_JPRB, &
+ & 0.12433E+02_JPRB,0.12413E+02_JPRB,0.11728E+02_JPRB,0.90172E+01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.71183E+01_JPRB,0.91466E+01_JPRB,0.10479E+02_JPRB,0.11436E+02_JPRB,0.12120E+02_JPRB, &
+ & 0.12489E+02_JPRB,0.12478E+02_JPRB,0.11826E+02_JPRB,0.91846E+01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.25290E+02_JPRB,0.22378E+02_JPRB,0.19682E+02_JPRB,0.19092E+02_JPRB,0.18401E+02_JPRB, &
+ & 0.17330E+02_JPRB,0.17194E+02_JPRB,0.19513E+02_JPRB,0.21546E+02_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.25153E+02_JPRB,0.22251E+02_JPRB,0.19574E+02_JPRB,0.19002E+02_JPRB,0.18309E+02_JPRB, &
+ & 0.17346E+02_JPRB,0.17168E+02_JPRB,0.19469E+02_JPRB,0.21516E+02_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.24990E+02_JPRB,0.22108E+02_JPRB,0.19457E+02_JPRB,0.18891E+02_JPRB,0.18197E+02_JPRB, &
+ & 0.17344E+02_JPRB,0.17153E+02_JPRB,0.19435E+02_JPRB,0.21516E+02_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.24785E+02_JPRB,0.21926E+02_JPRB,0.19312E+02_JPRB,0.18774E+02_JPRB,0.18111E+02_JPRB, &
+ & 0.17300E+02_JPRB,0.17168E+02_JPRB,0.19426E+02_JPRB,0.21524E+02_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.24562E+02_JPRB,0.21729E+02_JPRB,0.19145E+02_JPRB,0.18657E+02_JPRB,0.18043E+02_JPRB, &
+ & 0.17239E+02_JPRB,0.17190E+02_JPRB,0.19400E+02_JPRB,0.21517E+02_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.26738E+02_JPRB,0.23635E+02_JPRB,0.21164E+02_JPRB,0.20882E+02_JPRB,0.20133E+02_JPRB, &
+ & 0.18952E+02_JPRB,0.18391E+02_JPRB,0.20397E+02_JPRB,0.22752E+02_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.26579E+02_JPRB,0.23493E+02_JPRB,0.21026E+02_JPRB,0.20770E+02_JPRB,0.20046E+02_JPRB, &
+ & 0.18924E+02_JPRB,0.18351E+02_JPRB,0.20302E+02_JPRB,0.22673E+02_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.26369E+02_JPRB,0.23304E+02_JPRB,0.20847E+02_JPRB,0.20634E+02_JPRB,0.19955E+02_JPRB, &
+ & 0.18867E+02_JPRB,0.18355E+02_JPRB,0.20274E+02_JPRB,0.22643E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2,11) = (/ &
+ & 0.26147E+02_JPRB,0.23108E+02_JPRB,0.20663E+02_JPRB,0.20491E+02_JPRB,0.19870E+02_JPRB, &
+ & 0.18790E+02_JPRB,0.18365E+02_JPRB,0.20271E+02_JPRB,0.22638E+02_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.25876E+02_JPRB,0.22867E+02_JPRB,0.20457E+02_JPRB,0.20308E+02_JPRB,0.19788E+02_JPRB, &
+ & 0.18723E+02_JPRB,0.18359E+02_JPRB,0.20242E+02_JPRB,0.22612E+02_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.27801E+02_JPRB,0.24558E+02_JPRB,0.22625E+02_JPRB,0.22456E+02_JPRB,0.21766E+02_JPRB, &
+ & 0.20723E+02_JPRB,0.19785E+02_JPRB,0.21193E+02_JPRB,0.23811E+02_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.27586E+02_JPRB,0.24366E+02_JPRB,0.22444E+02_JPRB,0.22341E+02_JPRB,0.21670E+02_JPRB, &
+ & 0.20651E+02_JPRB,0.19732E+02_JPRB,0.21163E+02_JPRB,0.23778E+02_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.27362E+02_JPRB,0.24166E+02_JPRB,0.22236E+02_JPRB,0.22200E+02_JPRB,0.21575E+02_JPRB, &
+ & 0.20557E+02_JPRB,0.19718E+02_JPRB,0.21155E+02_JPRB,0.23783E+02_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.27084E+02_JPRB,0.23919E+02_JPRB,0.22013E+02_JPRB,0.22018E+02_JPRB,0.21471E+02_JPRB, &
+ & 0.20457E+02_JPRB,0.19708E+02_JPRB,0.21136E+02_JPRB,0.23769E+02_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.26795E+02_JPRB,0.23666E+02_JPRB,0.21794E+02_JPRB,0.21827E+02_JPRB,0.21355E+02_JPRB, &
+ & 0.20374E+02_JPRB,0.19655E+02_JPRB,0.21092E+02_JPRB,0.23724E+02_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.28327E+02_JPRB,0.25026E+02_JPRB,0.23910E+02_JPRB,0.23720E+02_JPRB,0.23265E+02_JPRB, &
+ & 0.22396E+02_JPRB,0.21086E+02_JPRB,0.21859E+02_JPRB,0.24649E+02_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.28095E+02_JPRB,0.24816E+02_JPRB,0.23683E+02_JPRB,0.23594E+02_JPRB,0.23156E+02_JPRB, &
+ & 0.22304E+02_JPRB,0.21023E+02_JPRB,0.21873E+02_JPRB,0.24674E+02_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.27817E+02_JPRB,0.24569E+02_JPRB,0.23454E+02_JPRB,0.23446E+02_JPRB,0.23031E+02_JPRB, &
+ & 0.22182E+02_JPRB,0.21022E+02_JPRB,0.21878E+02_JPRB,0.24680E+02_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.27525E+02_JPRB,0.24310E+02_JPRB,0.23220E+02_JPRB,0.23268E+02_JPRB,0.22908E+02_JPRB, &
+ & 0.22090E+02_JPRB,0.21022E+02_JPRB,0.21824E+02_JPRB,0.24620E+02_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.27191E+02_JPRB,0.24023E+02_JPRB,0.22996E+02_JPRB,0.23072E+02_JPRB,0.22769E+02_JPRB, &
+ & 0.22022E+02_JPRB,0.20982E+02_JPRB,0.21737E+02_JPRB,0.24514E+02_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.28259E+02_JPRB,0.25014E+02_JPRB,0.24907E+02_JPRB,0.24706E+02_JPRB,0.24642E+02_JPRB, &
+ & 0.23918E+02_JPRB,0.22330E+02_JPRB,0.22219E+02_JPRB,0.25091E+02_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.27993E+02_JPRB,0.24771E+02_JPRB,0.24666E+02_JPRB,0.24596E+02_JPRB,0.24487E+02_JPRB, &
+ & 0.23818E+02_JPRB,0.22348E+02_JPRB,0.22269E+02_JPRB,0.25149E+02_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.27691E+02_JPRB,0.24499E+02_JPRB,0.24421E+02_JPRB,0.24432E+02_JPRB,0.24340E+02_JPRB, &
+ & 0.23705E+02_JPRB,0.22420E+02_JPRB,0.22242E+02_JPRB,0.25109E+02_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.27357E+02_JPRB,0.24214E+02_JPRB,0.24178E+02_JPRB,0.24253E+02_JPRB,0.24191E+02_JPRB, &
+ & 0.23642E+02_JPRB,0.22422E+02_JPRB,0.22174E+02_JPRB,0.25030E+02_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.27008E+02_JPRB,0.23916E+02_JPRB,0.23935E+02_JPRB,0.24063E+02_JPRB,0.24020E+02_JPRB, &
+ & 0.23572E+02_JPRB,0.22355E+02_JPRB,0.22132E+02_JPRB,0.24957E+02_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.27627E+02_JPRB,0.24841E+02_JPRB,0.25414E+02_JPRB,0.25513E+02_JPRB,0.25788E+02_JPRB, &
+ & 0.25161E+02_JPRB,0.23567E+02_JPRB,0.22384E+02_JPRB,0.25091E+02_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.27317E+02_JPRB,0.24550E+02_JPRB,0.25165E+02_JPRB,0.25384E+02_JPRB,0.25578E+02_JPRB, &
+ & 0.25083E+02_JPRB,0.23662E+02_JPRB,0.22423E+02_JPRB,0.25102E+02_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.26994E+02_JPRB,0.24259E+02_JPRB,0.24926E+02_JPRB,0.25206E+02_JPRB,0.25391E+02_JPRB, &
+ & 0.25015E+02_JPRB,0.23758E+02_JPRB,0.22363E+02_JPRB,0.25025E+02_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.26640E+02_JPRB,0.23945E+02_JPRB,0.24692E+02_JPRB,0.25002E+02_JPRB,0.25193E+02_JPRB, &
+ & 0.24973E+02_JPRB,0.23733E+02_JPRB,0.22328E+02_JPRB,0.24965E+02_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.26265E+02_JPRB,0.23625E+02_JPRB,0.24446E+02_JPRB,0.24785E+02_JPRB,0.25037E+02_JPRB, &
+ & 0.24906E+02_JPRB,0.23659E+02_JPRB,0.22352E+02_JPRB,0.24965E+02_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.26430E+02_JPRB,0.24581E+02_JPRB,0.25439E+02_JPRB,0.26140E+02_JPRB,0.26524E+02_JPRB, &
+ & 0.25974E+02_JPRB,0.24552E+02_JPRB,0.22441E+02_JPRB,0.24498E+02_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.26105E+02_JPRB,0.24263E+02_JPRB,0.25225E+02_JPRB,0.25974E+02_JPRB,0.26315E+02_JPRB, &
+ & 0.25946E+02_JPRB,0.24677E+02_JPRB,0.22471E+02_JPRB,0.24490E+02_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.25752E+02_JPRB,0.23938E+02_JPRB,0.24996E+02_JPRB,0.25749E+02_JPRB,0.26113E+02_JPRB, &
+ & 0.25925E+02_JPRB,0.24758E+02_JPRB,0.22442E+02_JPRB,0.24454E+02_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.25389E+02_JPRB,0.23609E+02_JPRB,0.24761E+02_JPRB,0.25499E+02_JPRB,0.25940E+02_JPRB, &
+ & 0.25913E+02_JPRB,0.24720E+02_JPRB,0.22473E+02_JPRB,0.24475E+02_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.25010E+02_JPRB,0.23260E+02_JPRB,0.24510E+02_JPRB,0.25262E+02_JPRB,0.25804E+02_JPRB, &
+ & 0.25811E+02_JPRB,0.24640E+02_JPRB,0.22547E+02_JPRB,0.24534E+02_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.24762E+02_JPRB,0.23997E+02_JPRB,0.25209E+02_JPRB,0.26467E+02_JPRB,0.26748E+02_JPRB, &
+ & 0.26365E+02_JPRB,0.25094E+02_JPRB,0.22357E+02_JPRB,0.23406E+02_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.24421E+02_JPRB,0.23672E+02_JPRB,0.24981E+02_JPRB,0.26217E+02_JPRB,0.26595E+02_JPRB, &
+ & 0.26375E+02_JPRB,0.25195E+02_JPRB,0.22435E+02_JPRB,0.23453E+02_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.24067E+02_JPRB,0.23336E+02_JPRB,0.24754E+02_JPRB,0.25956E+02_JPRB,0.26455E+02_JPRB, &
+ & 0.26361E+02_JPRB,0.25241E+02_JPRB,0.22458E+02_JPRB,0.23475E+02_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.23691E+02_JPRB,0.22996E+02_JPRB,0.24502E+02_JPRB,0.25698E+02_JPRB,0.26330E+02_JPRB, &
+ & 0.26343E+02_JPRB,0.25197E+02_JPRB,0.22533E+02_JPRB,0.23575E+02_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.23311E+02_JPRB,0.22660E+02_JPRB,0.24234E+02_JPRB,0.25450E+02_JPRB,0.26215E+02_JPRB, &
+ & 0.26209E+02_JPRB,0.25123E+02_JPRB,0.22642E+02_JPRB,0.23709E+02_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.22800E+02_JPRB,0.23011E+02_JPRB,0.24799E+02_JPRB,0.26181E+02_JPRB,0.26533E+02_JPRB, &
+ & 0.26301E+02_JPRB,0.25044E+02_JPRB,0.22077E+02_JPRB,0.21907E+02_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.22436E+02_JPRB,0.22697E+02_JPRB,0.24546E+02_JPRB,0.25945E+02_JPRB,0.26460E+02_JPRB, &
+ & 0.26314E+02_JPRB,0.25122E+02_JPRB,0.22204E+02_JPRB,0.22029E+02_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.22079E+02_JPRB,0.22367E+02_JPRB,0.24295E+02_JPRB,0.25706E+02_JPRB,0.26370E+02_JPRB, &
+ & 0.26288E+02_JPRB,0.25162E+02_JPRB,0.22314E+02_JPRB,0.22151E+02_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.21719E+02_JPRB,0.22029E+02_JPRB,0.24017E+02_JPRB,0.25487E+02_JPRB,0.26273E+02_JPRB, &
+ & 0.26217E+02_JPRB,0.25110E+02_JPRB,0.22435E+02_JPRB,0.22334E+02_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.21341E+02_JPRB,0.21707E+02_JPRB,0.23702E+02_JPRB,0.25282E+02_JPRB,0.26159E+02_JPRB, &
+ & 0.26086E+02_JPRB,0.25065E+02_JPRB,0.22578E+02_JPRB,0.22506E+02_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.20601E+02_JPRB,0.21678E+02_JPRB,0.24058E+02_JPRB,0.25352E+02_JPRB,0.25931E+02_JPRB, &
+ & 0.25718E+02_JPRB,0.24432E+02_JPRB,0.21607E+02_JPRB,0.20262E+02_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.20254E+02_JPRB,0.21345E+02_JPRB,0.23796E+02_JPRB,0.25183E+02_JPRB,0.25875E+02_JPRB, &
+ & 0.25691E+02_JPRB,0.24508E+02_JPRB,0.21774E+02_JPRB,0.20445E+02_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.19899E+02_JPRB,0.21048E+02_JPRB,0.23494E+02_JPRB,0.25000E+02_JPRB,0.25800E+02_JPRB, &
+ & 0.25662E+02_JPRB,0.24533E+02_JPRB,0.21922E+02_JPRB,0.20638E+02_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.19544E+02_JPRB,0.20766E+02_JPRB,0.23207E+02_JPRB,0.24826E+02_JPRB,0.25686E+02_JPRB, &
+ & 0.25593E+02_JPRB,0.24527E+02_JPRB,0.22085E+02_JPRB,0.20832E+02_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.19193E+02_JPRB,0.20470E+02_JPRB,0.22936E+02_JPRB,0.24673E+02_JPRB,0.25544E+02_JPRB, &
+ & 0.25480E+02_JPRB,0.24537E+02_JPRB,0.22218E+02_JPRB,0.21044E+02_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.18170E+02_JPRB,0.20155E+02_JPRB,0.22721E+02_JPRB,0.24145E+02_JPRB,0.24798E+02_JPRB, &
+ & 0.24559E+02_JPRB,0.23403E+02_JPRB,0.20895E+02_JPRB,0.18740E+02_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.17830E+02_JPRB,0.19860E+02_JPRB,0.22479E+02_JPRB,0.24018E+02_JPRB,0.24721E+02_JPRB, &
+ & 0.24556E+02_JPRB,0.23466E+02_JPRB,0.21069E+02_JPRB,0.18949E+02_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.17496E+02_JPRB,0.19576E+02_JPRB,0.22242E+02_JPRB,0.23886E+02_JPRB,0.24621E+02_JPRB, &
+ & 0.24529E+02_JPRB,0.23525E+02_JPRB,0.21231E+02_JPRB,0.19147E+02_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.17168E+02_JPRB,0.19292E+02_JPRB,0.22005E+02_JPRB,0.23734E+02_JPRB,0.24514E+02_JPRB, &
+ & 0.24476E+02_JPRB,0.23580E+02_JPRB,0.21376E+02_JPRB,0.19368E+02_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.16844E+02_JPRB,0.19013E+02_JPRB,0.21771E+02_JPRB,0.23570E+02_JPRB,0.24390E+02_JPRB, &
+ & 0.24440E+02_JPRB,0.23651E+02_JPRB,0.21517E+02_JPRB,0.19612E+02_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.15762E+02_JPRB,0.18615E+02_JPRB,0.21133E+02_JPRB,0.22639E+02_JPRB,0.23214E+02_JPRB, &
+ & 0.23022E+02_JPRB,0.22060E+02_JPRB,0.19958E+02_JPRB,0.17314E+02_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.15455E+02_JPRB,0.18341E+02_JPRB,0.20944E+02_JPRB,0.22510E+02_JPRB,0.23148E+02_JPRB, &
+ & 0.23042E+02_JPRB,0.22164E+02_JPRB,0.20127E+02_JPRB,0.17543E+02_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.15156E+02_JPRB,0.18068E+02_JPRB,0.20768E+02_JPRB,0.22374E+02_JPRB,0.23084E+02_JPRB, &
+ & 0.23060E+02_JPRB,0.22257E+02_JPRB,0.20275E+02_JPRB,0.17770E+02_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.14865E+02_JPRB,0.17794E+02_JPRB,0.20582E+02_JPRB,0.22237E+02_JPRB,0.23018E+02_JPRB, &
+ & 0.23079E+02_JPRB,0.22350E+02_JPRB,0.20427E+02_JPRB,0.18026E+02_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.14612E+02_JPRB,0.17534E+02_JPRB,0.20399E+02_JPRB,0.22086E+02_JPRB,0.22956E+02_JPRB, &
+ & 0.23112E+02_JPRB,0.22443E+02_JPRB,0.20607E+02_JPRB,0.18280E+02_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.13517E+02_JPRB,0.16914E+02_JPRB,0.19425E+02_JPRB,0.20790E+02_JPRB,0.21367E+02_JPRB, &
+ & 0.21315E+02_JPRB,0.20607E+02_JPRB,0.18871E+02_JPRB,0.15967E+02_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.13249E+02_JPRB,0.16688E+02_JPRB,0.19279E+02_JPRB,0.20693E+02_JPRB,0.21344E+02_JPRB, &
+ & 0.21372E+02_JPRB,0.20725E+02_JPRB,0.19043E+02_JPRB,0.16217E+02_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.12994E+02_JPRB,0.16467E+02_JPRB,0.19108E+02_JPRB,0.20602E+02_JPRB,0.21343E+02_JPRB, &
+ & 0.21436E+02_JPRB,0.20839E+02_JPRB,0.19212E+02_JPRB,0.16494E+02_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.12784E+02_JPRB,0.16250E+02_JPRB,0.18951E+02_JPRB,0.20506E+02_JPRB,0.21335E+02_JPRB, &
+ & 0.21503E+02_JPRB,0.20961E+02_JPRB,0.19415E+02_JPRB,0.16770E+02_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.12734E+02_JPRB,0.16049E+02_JPRB,0.18819E+02_JPRB,0.20438E+02_JPRB,0.21329E+02_JPRB, &
+ & 0.21573E+02_JPRB,0.21104E+02_JPRB,0.19623E+02_JPRB,0.16983E+02_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.32549E+02_JPRB,0.28774E+02_JPRB,0.25031E+02_JPRB,0.22926E+02_JPRB,0.22117E+02_JPRB, &
+ & 0.21695E+02_JPRB,0.23417E+02_JPRB,0.26761E+02_JPRB,0.29694E+02_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.32499E+02_JPRB,0.28739E+02_JPRB,0.25006E+02_JPRB,0.22835E+02_JPRB,0.22088E+02_JPRB, &
+ & 0.21560E+02_JPRB,0.23253E+02_JPRB,0.26542E+02_JPRB,0.29377E+02_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.32407E+02_JPRB,0.28660E+02_JPRB,0.24923E+02_JPRB,0.22714E+02_JPRB,0.22014E+02_JPRB, &
+ & 0.21461E+02_JPRB,0.23148E+02_JPRB,0.26398E+02_JPRB,0.29117E+02_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.32260E+02_JPRB,0.28512E+02_JPRB,0.24788E+02_JPRB,0.22590E+02_JPRB,0.21881E+02_JPRB, &
+ & 0.21430E+02_JPRB,0.23071E+02_JPRB,0.26295E+02_JPRB,0.28961E+02_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.32039E+02_JPRB,0.28307E+02_JPRB,0.24614E+02_JPRB,0.22444E+02_JPRB,0.21715E+02_JPRB, &
+ & 0.21428E+02_JPRB,0.22979E+02_JPRB,0.26201E+02_JPRB,0.28821E+02_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.35951E+02_JPRB,0.31737E+02_JPRB,0.27558E+02_JPRB,0.25749E+02_JPRB,0.24746E+02_JPRB, &
+ & 0.23905E+02_JPRB,0.24887E+02_JPRB,0.28459E+02_JPRB,0.31791E+02_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.35862E+02_JPRB,0.31672E+02_JPRB,0.27501E+02_JPRB,0.25642E+02_JPRB,0.24725E+02_JPRB, &
+ & 0.23810E+02_JPRB,0.24734E+02_JPRB,0.28277E+02_JPRB,0.31526E+02_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.35737E+02_JPRB,0.31562E+02_JPRB,0.27401E+02_JPRB,0.25522E+02_JPRB,0.24641E+02_JPRB, &
+ & 0.23751E+02_JPRB,0.24591E+02_JPRB,0.28127E+02_JPRB,0.31321E+02_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.35534E+02_JPRB,0.31380E+02_JPRB,0.27248E+02_JPRB,0.25379E+02_JPRB,0.24498E+02_JPRB, &
+ & 0.23724E+02_JPRB,0.24485E+02_JPRB,0.28006E+02_JPRB,0.31168E+02_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.35285E+02_JPRB,0.31161E+02_JPRB,0.27065E+02_JPRB,0.25222E+02_JPRB,0.24328E+02_JPRB, &
+ & 0.23689E+02_JPRB,0.24406E+02_JPRB,0.27908E+02_JPRB,0.31060E+02_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.39089E+02_JPRB,0.34457E+02_JPRB,0.30041E+02_JPRB,0.28724E+02_JPRB,0.27574E+02_JPRB, &
+ & 0.26213E+02_JPRB,0.26498E+02_JPRB,0.30215E+02_JPRB,0.33960E+02_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.38998E+02_JPRB,0.34382E+02_JPRB,0.29952E+02_JPRB,0.28581E+02_JPRB,0.27562E+02_JPRB, &
+ & 0.26150E+02_JPRB,0.26309E+02_JPRB,0.29980E+02_JPRB,0.33662E+02_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.38820E+02_JPRB,0.34217E+02_JPRB,0.29804E+02_JPRB,0.28424E+02_JPRB,0.27473E+02_JPRB, &
+ & 0.26126E+02_JPRB,0.26176E+02_JPRB,0.29817E+02_JPRB,0.33458E+02_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.38594E+02_JPRB,0.34019E+02_JPRB,0.29631E+02_JPRB,0.28264E+02_JPRB,0.27343E+02_JPRB, &
+ & 0.26103E+02_JPRB,0.26063E+02_JPRB,0.29657E+02_JPRB,0.33303E+02_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.38290E+02_JPRB,0.33755E+02_JPRB,0.29411E+02_JPRB,0.28094E+02_JPRB,0.27189E+02_JPRB, &
+ & 0.26048E+02_JPRB,0.25993E+02_JPRB,0.29534E+02_JPRB,0.33212E+02_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.41846E+02_JPRB,0.36848E+02_JPRB,0.32642E+02_JPRB,0.31752E+02_JPRB,0.30348E+02_JPRB, &
+ & 0.28783E+02_JPRB,0.28429E+02_JPRB,0.31940E+02_JPRB,0.36003E+02_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.41706E+02_JPRB,0.36722E+02_JPRB,0.32481E+02_JPRB,0.31589E+02_JPRB,0.30346E+02_JPRB, &
+ & 0.28731E+02_JPRB,0.28275E+02_JPRB,0.31704E+02_JPRB,0.35716E+02_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.41502E+02_JPRB,0.36539E+02_JPRB,0.32269E+02_JPRB,0.31417E+02_JPRB,0.30279E+02_JPRB, &
+ & 0.28696E+02_JPRB,0.28151E+02_JPRB,0.31470E+02_JPRB,0.35494E+02_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.41217E+02_JPRB,0.36286E+02_JPRB,0.32033E+02_JPRB,0.31226E+02_JPRB,0.30155E+02_JPRB, &
+ & 0.28647E+02_JPRB,0.28039E+02_JPRB,0.31307E+02_JPRB,0.35368E+02_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.40876E+02_JPRB,0.35985E+02_JPRB,0.31743E+02_JPRB,0.31019E+02_JPRB,0.30013E+02_JPRB, &
+ & 0.28553E+02_JPRB,0.27986E+02_JPRB,0.31205E+02_JPRB,0.35294E+02_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.43995E+02_JPRB,0.38706E+02_JPRB,0.35200E+02_JPRB,0.34595E+02_JPRB,0.33005E+02_JPRB, &
+ & 0.31594E+02_JPRB,0.30727E+02_JPRB,0.33547E+02_JPRB,0.37840E+02_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.43792E+02_JPRB,0.38521E+02_JPRB,0.34965E+02_JPRB,0.34413E+02_JPRB,0.33017E+02_JPRB, &
+ & 0.31523E+02_JPRB,0.30579E+02_JPRB,0.33292E+02_JPRB,0.37593E+02_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.43530E+02_JPRB,0.38288E+02_JPRB,0.34710E+02_JPRB,0.34215E+02_JPRB,0.32953E+02_JPRB, &
+ & 0.31452E+02_JPRB,0.30422E+02_JPRB,0.33082E+02_JPRB,0.37437E+02_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.43192E+02_JPRB,0.37991E+02_JPRB,0.34400E+02_JPRB,0.33987E+02_JPRB,0.32832E+02_JPRB, &
+ & 0.31362E+02_JPRB,0.30341E+02_JPRB,0.32970E+02_JPRB,0.37357E+02_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.42817E+02_JPRB,0.37661E+02_JPRB,0.34079E+02_JPRB,0.33725E+02_JPRB,0.32688E+02_JPRB, &
+ & 0.31220E+02_JPRB,0.30292E+02_JPRB,0.32861E+02_JPRB,0.37270E+02_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.45371E+02_JPRB,0.39886E+02_JPRB,0.37563E+02_JPRB,0.36985E+02_JPRB,0.35582E+02_JPRB, &
+ & 0.34395E+02_JPRB,0.32997E+02_JPRB,0.34724E+02_JPRB,0.39202E+02_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.45116E+02_JPRB,0.39656E+02_JPRB,0.37269E+02_JPRB,0.36794E+02_JPRB,0.35596E+02_JPRB, &
+ & 0.34289E+02_JPRB,0.32827E+02_JPRB,0.34552E+02_JPRB,0.39098E+02_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.44794E+02_JPRB,0.39373E+02_JPRB,0.36959E+02_JPRB,0.36575E+02_JPRB,0.35485E+02_JPRB, &
+ & 0.34189E+02_JPRB,0.32665E+02_JPRB,0.34424E+02_JPRB,0.39024E+02_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.44425E+02_JPRB,0.39049E+02_JPRB,0.36596E+02_JPRB,0.36352E+02_JPRB,0.35337E+02_JPRB, &
+ & 0.34032E+02_JPRB,0.32591E+02_JPRB,0.34348E+02_JPRB,0.38980E+02_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.43987E+02_JPRB,0.38666E+02_JPRB,0.36218E+02_JPRB,0.36087E+02_JPRB,0.35122E+02_JPRB, &
+ & 0.33853E+02_JPRB,0.32536E+02_JPRB,0.34232E+02_JPRB,0.38883E+02_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.45829E+02_JPRB,0.40296E+02_JPRB,0.39507E+02_JPRB,0.38911E+02_JPRB,0.38052E+02_JPRB, &
+ & 0.37051E+02_JPRB,0.34926E+02_JPRB,0.35286E+02_JPRB,0.39874E+02_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.45523E+02_JPRB,0.40015E+02_JPRB,0.39164E+02_JPRB,0.38712E+02_JPRB,0.37995E+02_JPRB, &
+ & 0.36879E+02_JPRB,0.34780E+02_JPRB,0.35237E+02_JPRB,0.39916E+02_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.45143E+02_JPRB,0.39672E+02_JPRB,0.38788E+02_JPRB,0.38484E+02_JPRB,0.37843E+02_JPRB, &
+ & 0.36693E+02_JPRB,0.34674E+02_JPRB,0.35202E+02_JPRB,0.39935E+02_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.44711E+02_JPRB,0.39294E+02_JPRB,0.38380E+02_JPRB,0.38261E+02_JPRB,0.37608E+02_JPRB, &
+ & 0.36475E+02_JPRB,0.34639E+02_JPRB,0.35181E+02_JPRB,0.39952E+02_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.44229E+02_JPRB,0.38875E+02_JPRB,0.37956E+02_JPRB,0.37973E+02_JPRB,0.37347E+02_JPRB, &
+ & 0.36293E+02_JPRB,0.34620E+02_JPRB,0.35062E+02_JPRB,0.39846E+02_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.45335E+02_JPRB,0.40267E+02_JPRB,0.40744E+02_JPRB,0.40443E+02_JPRB,0.40247E+02_JPRB, &
+ & 0.39223E+02_JPRB,0.36584E+02_JPRB,0.35367E+02_JPRB,0.39844E+02_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.44955E+02_JPRB,0.39893E+02_JPRB,0.40398E+02_JPRB,0.40216E+02_JPRB,0.40115E+02_JPRB, &
+ & 0.39023E+02_JPRB,0.36582E+02_JPRB,0.35440E+02_JPRB,0.40008E+02_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.44529E+02_JPRB,0.39492E+02_JPRB,0.39985E+02_JPRB,0.39979E+02_JPRB,0.39873E+02_JPRB, &
+ & 0.38831E+02_JPRB,0.36587E+02_JPRB,0.35498E+02_JPRB,0.40121E+02_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.44061E+02_JPRB,0.39061E+02_JPRB,0.39564E+02_JPRB,0.39715E+02_JPRB,0.39565E+02_JPRB, &
+ & 0.38623E+02_JPRB,0.36619E+02_JPRB,0.35513E+02_JPRB,0.40138E+02_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.43543E+02_JPRB,0.38605E+02_JPRB,0.39136E+02_JPRB,0.39437E+02_JPRB,0.39265E+02_JPRB, &
+ & 0.38474E+02_JPRB,0.36637E+02_JPRB,0.35396E+02_JPRB,0.40011E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 1, 9,12) = (/ &
+ & 0.43909E+02_JPRB,0.39954E+02_JPRB,0.41167E+02_JPRB,0.41626E+02_JPRB,0.41945E+02_JPRB, &
+ & 0.40736E+02_JPRB,0.38077E+02_JPRB,0.35393E+02_JPRB,0.39221E+02_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.43480E+02_JPRB,0.39498E+02_JPRB,0.40786E+02_JPRB,0.41338E+02_JPRB,0.41733E+02_JPRB, &
+ & 0.40609E+02_JPRB,0.38181E+02_JPRB,0.35523E+02_JPRB,0.39397E+02_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.43002E+02_JPRB,0.39038E+02_JPRB,0.40373E+02_JPRB,0.41094E+02_JPRB,0.41410E+02_JPRB, &
+ & 0.40471E+02_JPRB,0.38255E+02_JPRB,0.35563E+02_JPRB,0.39462E+02_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.42479E+02_JPRB,0.38560E+02_JPRB,0.39995E+02_JPRB,0.40806E+02_JPRB,0.41101E+02_JPRB, &
+ & 0.40341E+02_JPRB,0.38344E+02_JPRB,0.35573E+02_JPRB,0.39457E+02_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.41942E+02_JPRB,0.38060E+02_JPRB,0.39621E+02_JPRB,0.40473E+02_JPRB,0.40785E+02_JPRB, &
+ & 0.40226E+02_JPRB,0.38369E+02_JPRB,0.35494E+02_JPRB,0.39400E+02_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.41598E+02_JPRB,0.39277E+02_JPRB,0.40964E+02_JPRB,0.42358E+02_JPRB,0.42727E+02_JPRB, &
+ & 0.41605E+02_JPRB,0.39147E+02_JPRB,0.35243E+02_JPRB,0.37755E+02_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.41110E+02_JPRB,0.38804E+02_JPRB,0.40573E+02_JPRB,0.42061E+02_JPRB,0.42547E+02_JPRB, &
+ & 0.41580E+02_JPRB,0.39298E+02_JPRB,0.35367E+02_JPRB,0.37893E+02_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.40607E+02_JPRB,0.38301E+02_JPRB,0.40218E+02_JPRB,0.41774E+02_JPRB,0.42273E+02_JPRB, &
+ & 0.41520E+02_JPRB,0.39406E+02_JPRB,0.35478E+02_JPRB,0.38009E+02_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.40087E+02_JPRB,0.37793E+02_JPRB,0.39835E+02_JPRB,0.41418E+02_JPRB,0.42009E+02_JPRB, &
+ & 0.41467E+02_JPRB,0.39471E+02_JPRB,0.35532E+02_JPRB,0.38110E+02_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.39528E+02_JPRB,0.37276E+02_JPRB,0.39445E+02_JPRB,0.41009E+02_JPRB,0.41755E+02_JPRB, &
+ & 0.41409E+02_JPRB,0.39460E+02_JPRB,0.35536E+02_JPRB,0.38153E+02_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.38423E+02_JPRB,0.37785E+02_JPRB,0.40246E+02_JPRB,0.42229E+02_JPRB,0.42700E+02_JPRB, &
+ & 0.41861E+02_JPRB,0.39594E+02_JPRB,0.34991E+02_JPRB,0.35642E+02_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.37903E+02_JPRB,0.37296E+02_JPRB,0.39841E+02_JPRB,0.41927E+02_JPRB,0.42539E+02_JPRB, &
+ & 0.41882E+02_JPRB,0.39751E+02_JPRB,0.35170E+02_JPRB,0.35883E+02_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.37383E+02_JPRB,0.36809E+02_JPRB,0.39442E+02_JPRB,0.41575E+02_JPRB,0.42342E+02_JPRB, &
+ & 0.41911E+02_JPRB,0.39809E+02_JPRB,0.35335E+02_JPRB,0.36101E+02_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.36841E+02_JPRB,0.36301E+02_JPRB,0.39055E+02_JPRB,0.41199E+02_JPRB,0.42145E+02_JPRB, &
+ & 0.41876E+02_JPRB,0.39854E+02_JPRB,0.35442E+02_JPRB,0.36276E+02_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.36274E+02_JPRB,0.35783E+02_JPRB,0.38676E+02_JPRB,0.40833E+02_JPRB,0.41945E+02_JPRB, &
+ & 0.41808E+02_JPRB,0.39839E+02_JPRB,0.35539E+02_JPRB,0.36455E+02_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.34828E+02_JPRB,0.35770E+02_JPRB,0.39099E+02_JPRB,0.41221E+02_JPRB,0.41958E+02_JPRB, &
+ & 0.41456E+02_JPRB,0.39253E+02_JPRB,0.34461E+02_JPRB,0.33246E+02_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.34304E+02_JPRB,0.35295E+02_JPRB,0.38700E+02_JPRB,0.40987E+02_JPRB,0.41846E+02_JPRB, &
+ & 0.41525E+02_JPRB,0.39359E+02_JPRB,0.34698E+02_JPRB,0.33560E+02_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.33784E+02_JPRB,0.34798E+02_JPRB,0.38311E+02_JPRB,0.40707E+02_JPRB,0.41743E+02_JPRB, &
+ & 0.41505E+02_JPRB,0.39465E+02_JPRB,0.34925E+02_JPRB,0.33882E+02_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.33241E+02_JPRB,0.34324E+02_JPRB,0.37917E+02_JPRB,0.40393E+02_JPRB,0.41632E+02_JPRB, &
+ & 0.41461E+02_JPRB,0.39554E+02_JPRB,0.35117E+02_JPRB,0.34172E+02_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.32710E+02_JPRB,0.33867E+02_JPRB,0.37489E+02_JPRB,0.40112E+02_JPRB,0.41490E+02_JPRB, &
+ & 0.41392E+02_JPRB,0.39590E+02_JPRB,0.35312E+02_JPRB,0.34501E+02_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.30997E+02_JPRB,0.33431E+02_JPRB,0.37385E+02_JPRB,0.39653E+02_JPRB,0.40610E+02_JPRB, &
+ & 0.40222E+02_JPRB,0.38101E+02_JPRB,0.33638E+02_JPRB,0.30845E+02_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.30492E+02_JPRB,0.32952E+02_JPRB,0.37042E+02_JPRB,0.39451E+02_JPRB,0.40583E+02_JPRB, &
+ & 0.40257E+02_JPRB,0.38272E+02_JPRB,0.33940E+02_JPRB,0.31245E+02_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.29985E+02_JPRB,0.32520E+02_JPRB,0.36699E+02_JPRB,0.39235E+02_JPRB,0.40521E+02_JPRB, &
+ & 0.40274E+02_JPRB,0.38447E+02_JPRB,0.34242E+02_JPRB,0.31622E+02_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.29485E+02_JPRB,0.32102E+02_JPRB,0.36327E+02_JPRB,0.39047E+02_JPRB,0.40416E+02_JPRB, &
+ & 0.40299E+02_JPRB,0.38596E+02_JPRB,0.34522E+02_JPRB,0.32000E+02_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.29016E+02_JPRB,0.31685E+02_JPRB,0.35962E+02_JPRB,0.38852E+02_JPRB,0.40311E+02_JPRB, &
+ & 0.40331E+02_JPRB,0.38749E+02_JPRB,0.34802E+02_JPRB,0.32433E+02_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.40414E+02_JPRB,0.35530E+02_JPRB,0.30727E+02_JPRB,0.26813E+02_JPRB,0.26498E+02_JPRB, &
+ & 0.27724E+02_JPRB,0.32451E+02_JPRB,0.37296E+02_JPRB,0.40920E+02_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.40378E+02_JPRB,0.35506E+02_JPRB,0.30718E+02_JPRB,0.26787E+02_JPRB,0.26360E+02_JPRB, &
+ & 0.27557E+02_JPRB,0.32109E+02_JPRB,0.36904E+02_JPRB,0.40512E+02_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.40288E+02_JPRB,0.35435E+02_JPRB,0.30689E+02_JPRB,0.26758E+02_JPRB,0.26294E+02_JPRB, &
+ & 0.27365E+02_JPRB,0.31721E+02_JPRB,0.36448E+02_JPRB,0.40077E+02_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.40152E+02_JPRB,0.35337E+02_JPRB,0.30607E+02_JPRB,0.26666E+02_JPRB,0.26235E+02_JPRB, &
+ & 0.27137E+02_JPRB,0.31350E+02_JPRB,0.36026E+02_JPRB,0.39605E+02_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.39996E+02_JPRB,0.35209E+02_JPRB,0.30500E+02_JPRB,0.26544E+02_JPRB,0.26176E+02_JPRB, &
+ & 0.26906E+02_JPRB,0.31054E+02_JPRB,0.35676E+02_JPRB,0.39227E+02_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.46201E+02_JPRB,0.40631E+02_JPRB,0.35149E+02_JPRB,0.31004E+02_JPRB,0.30338E+02_JPRB, &
+ & 0.30975E+02_JPRB,0.35648E+02_JPRB,0.41032E+02_JPRB,0.45728E+02_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.46189E+02_JPRB,0.40616E+02_JPRB,0.35151E+02_JPRB,0.30920E+02_JPRB,0.30181E+02_JPRB, &
+ & 0.30854E+02_JPRB,0.35321E+02_JPRB,0.40601E+02_JPRB,0.45258E+02_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.46107E+02_JPRB,0.40548E+02_JPRB,0.35109E+02_JPRB,0.30814E+02_JPRB,0.30060E+02_JPRB, &
+ & 0.30665E+02_JPRB,0.34964E+02_JPRB,0.40159E+02_JPRB,0.44756E+02_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.45964E+02_JPRB,0.40421E+02_JPRB,0.35002E+02_JPRB,0.30664E+02_JPRB,0.29967E+02_JPRB, &
+ & 0.30436E+02_JPRB,0.34636E+02_JPRB,0.39757E+02_JPRB,0.44299E+02_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.45779E+02_JPRB,0.40257E+02_JPRB,0.34861E+02_JPRB,0.30500E+02_JPRB,0.29866E+02_JPRB, &
+ & 0.30215E+02_JPRB,0.34343E+02_JPRB,0.39421E+02_JPRB,0.43898E+02_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.52493E+02_JPRB,0.46184E+02_JPRB,0.39933E+02_JPRB,0.35707E+02_JPRB,0.34547E+02_JPRB, &
+ & 0.34524E+02_JPRB,0.38680E+02_JPRB,0.44581E+02_JPRB,0.50362E+02_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.52499E+02_JPRB,0.46190E+02_JPRB,0.39958E+02_JPRB,0.35613E+02_JPRB,0.34342E+02_JPRB, &
+ & 0.34438E+02_JPRB,0.38422E+02_JPRB,0.44213E+02_JPRB,0.49916E+02_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.52430E+02_JPRB,0.46141E+02_JPRB,0.39924E+02_JPRB,0.35477E+02_JPRB,0.34202E+02_JPRB, &
+ & 0.34294E+02_JPRB,0.38128E+02_JPRB,0.43804E+02_JPRB,0.49438E+02_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.52296E+02_JPRB,0.46021E+02_JPRB,0.39821E+02_JPRB,0.35288E+02_JPRB,0.34063E+02_JPRB, &
+ & 0.34077E+02_JPRB,0.37857E+02_JPRB,0.43466E+02_JPRB,0.49020E+02_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.52087E+02_JPRB,0.45828E+02_JPRB,0.39654E+02_JPRB,0.35060E+02_JPRB,0.33889E+02_JPRB, &
+ & 0.33876E+02_JPRB,0.37613E+02_JPRB,0.43182E+02_JPRB,0.48640E+02_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.58998E+02_JPRB,0.51894E+02_JPRB,0.44809E+02_JPRB,0.40767E+02_JPRB,0.39196E+02_JPRB, &
+ & 0.38349E+02_JPRB,0.41490E+02_JPRB,0.47820E+02_JPRB,0.54353E+02_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.58998E+02_JPRB,0.51911E+02_JPRB,0.44850E+02_JPRB,0.40692E+02_JPRB,0.38973E+02_JPRB, &
+ & 0.38281E+02_JPRB,0.41275E+02_JPRB,0.47479E+02_JPRB,0.53941E+02_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.58946E+02_JPRB,0.51872E+02_JPRB,0.44826E+02_JPRB,0.40545E+02_JPRB,0.38818E+02_JPRB, &
+ & 0.38152E+02_JPRB,0.41007E+02_JPRB,0.47151E+02_JPRB,0.53507E+02_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.58797E+02_JPRB,0.51741E+02_JPRB,0.44719E+02_JPRB,0.40328E+02_JPRB,0.38647E+02_JPRB, &
+ & 0.37950E+02_JPRB,0.40768E+02_JPRB,0.46871E+02_JPRB,0.53108E+02_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.58578E+02_JPRB,0.51549E+02_JPRB,0.44555E+02_JPRB,0.40074E+02_JPRB,0.38419E+02_JPRB, &
+ & 0.37769E+02_JPRB,0.40542E+02_JPRB,0.46625E+02_JPRB,0.52790E+02_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.65454E+02_JPRB,0.57537E+02_JPRB,0.49631E+02_JPRB,0.46171E+02_JPRB,0.44093E+02_JPRB, &
+ & 0.42375E+02_JPRB,0.44216E+02_JPRB,0.50929E+02_JPRB,0.58021E+02_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.65480E+02_JPRB,0.57591E+02_JPRB,0.49679E+02_JPRB,0.46047E+02_JPRB,0.43916E+02_JPRB, &
+ & 0.42317E+02_JPRB,0.44023E+02_JPRB,0.50643E+02_JPRB,0.57621E+02_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.65404E+02_JPRB,0.57534E+02_JPRB,0.49633E+02_JPRB,0.45875E+02_JPRB,0.43765E+02_JPRB, &
+ & 0.42200E+02_JPRB,0.43791E+02_JPRB,0.50364E+02_JPRB,0.57215E+02_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.65236E+02_JPRB,0.57393E+02_JPRB,0.49518E+02_JPRB,0.45648E+02_JPRB,0.43596E+02_JPRB, &
+ & 0.42013E+02_JPRB,0.43533E+02_JPRB,0.50076E+02_JPRB,0.56838E+02_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.64960E+02_JPRB,0.57155E+02_JPRB,0.49326E+02_JPRB,0.45390E+02_JPRB,0.43392E+02_JPRB, &
+ & 0.41855E+02_JPRB,0.43285E+02_JPRB,0.49832E+02_JPRB,0.56537E+02_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.71553E+02_JPRB,0.62830E+02_JPRB,0.54580E+02_JPRB,0.51897E+02_JPRB,0.49249E+02_JPRB, &
+ & 0.46670E+02_JPRB,0.47221E+02_JPRB,0.54164E+02_JPRB,0.61741E+02_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.71559E+02_JPRB,0.62858E+02_JPRB,0.54547E+02_JPRB,0.51727E+02_JPRB,0.49114E+02_JPRB, &
+ & 0.46626E+02_JPRB,0.47093E+02_JPRB,0.53907E+02_JPRB,0.61336E+02_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.71474E+02_JPRB,0.62796E+02_JPRB,0.54422E+02_JPRB,0.51491E+02_JPRB,0.49001E+02_JPRB, &
+ & 0.46518E+02_JPRB,0.46873E+02_JPRB,0.53599E+02_JPRB,0.60908E+02_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.71253E+02_JPRB,0.62620E+02_JPRB,0.54248E+02_JPRB,0.51208E+02_JPRB,0.48873E+02_JPRB, &
+ & 0.46377E+02_JPRB,0.46595E+02_JPRB,0.53243E+02_JPRB,0.60469E+02_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.70931E+02_JPRB,0.62354E+02_JPRB,0.53993E+02_JPRB,0.50888E+02_JPRB,0.48719E+02_JPRB, &
+ & 0.46222E+02_JPRB,0.46318E+02_JPRB,0.52946E+02_JPRB,0.60113E+02_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.76995E+02_JPRB,0.67566E+02_JPRB,0.59542E+02_JPRB,0.57607E+02_JPRB,0.54461E+02_JPRB, &
+ & 0.51316E+02_JPRB,0.50984E+02_JPRB,0.57643E+02_JPRB,0.65674E+02_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.76958E+02_JPRB,0.67548E+02_JPRB,0.59397E+02_JPRB,0.57376E+02_JPRB,0.54369E+02_JPRB, &
+ & 0.51326E+02_JPRB,0.50889E+02_JPRB,0.57330E+02_JPRB,0.65196E+02_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.76815E+02_JPRB,0.67433E+02_JPRB,0.59207E+02_JPRB,0.57127E+02_JPRB,0.54289E+02_JPRB, &
+ & 0.51287E+02_JPRB,0.50622E+02_JPRB,0.56904E+02_JPRB,0.64662E+02_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.76535E+02_JPRB,0.67198E+02_JPRB,0.58948E+02_JPRB,0.56779E+02_JPRB,0.54224E+02_JPRB, &
+ & 0.51158E+02_JPRB,0.50286E+02_JPRB,0.56459E+02_JPRB,0.64124E+02_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.76156E+02_JPRB,0.66876E+02_JPRB,0.58634E+02_JPRB,0.56401E+02_JPRB,0.54096E+02_JPRB, &
+ & 0.50976E+02_JPRB,0.49973E+02_JPRB,0.56129E+02_JPRB,0.63785E+02_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.81421E+02_JPRB,0.71418E+02_JPRB,0.64455E+02_JPRB,0.62977E+02_JPRB,0.59643E+02_JPRB, &
+ & 0.56434E+02_JPRB,0.55164E+02_JPRB,0.60758E+02_JPRB,0.69127E+02_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.81348E+02_JPRB,0.71366E+02_JPRB,0.64215E+02_JPRB,0.62779E+02_JPRB,0.59582E+02_JPRB, &
+ & 0.56462E+02_JPRB,0.55001E+02_JPRB,0.60346E+02_JPRB,0.68584E+02_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.81121E+02_JPRB,0.71177E+02_JPRB,0.63909E+02_JPRB,0.62467E+02_JPRB,0.59508E+02_JPRB, &
+ & 0.56437E+02_JPRB,0.54668E+02_JPRB,0.59898E+02_JPRB,0.68043E+02_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.80795E+02_JPRB,0.70901E+02_JPRB,0.63558E+02_JPRB,0.62070E+02_JPRB,0.59450E+02_JPRB, &
+ & 0.56283E+02_JPRB,0.54317E+02_JPRB,0.59470E+02_JPRB,0.67583E+02_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.80315E+02_JPRB,0.70489E+02_JPRB,0.63126E+02_JPRB,0.61649E+02_JPRB,0.59298E+02_JPRB, &
+ & 0.56050E+02_JPRB,0.54007E+02_JPRB,0.59179E+02_JPRB,0.67330E+02_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.84526E+02_JPRB,0.74114E+02_JPRB,0.69139E+02_JPRB,0.67766E+02_JPRB,0.64700E+02_JPRB, &
+ & 0.61791E+02_JPRB,0.59295E+02_JPRB,0.62885E+02_JPRB,0.71468E+02_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.84370E+02_JPRB,0.73989E+02_JPRB,0.68856E+02_JPRB,0.67565E+02_JPRB,0.64593E+02_JPRB, &
+ & 0.61811E+02_JPRB,0.59181E+02_JPRB,0.62666E+02_JPRB,0.71181E+02_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.84053E+02_JPRB,0.73721E+02_JPRB,0.68457E+02_JPRB,0.67233E+02_JPRB,0.64524E+02_JPRB, &
+ & 0.61778E+02_JPRB,0.58870E+02_JPRB,0.62384E+02_JPRB,0.70849E+02_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.83638E+02_JPRB,0.73367E+02_JPRB,0.67980E+02_JPRB,0.66820E+02_JPRB,0.64408E+02_JPRB, &
+ & 0.61582E+02_JPRB,0.58561E+02_JPRB,0.62049E+02_JPRB,0.70550E+02_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.83125E+02_JPRB,0.72897E+02_JPRB,0.67415E+02_JPRB,0.66418E+02_JPRB,0.64238E+02_JPRB, &
+ & 0.61304E+02_JPRB,0.58306E+02_JPRB,0.61805E+02_JPRB,0.70366E+02_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.86099E+02_JPRB,0.75664E+02_JPRB,0.73052E+02_JPRB,0.71784E+02_JPRB,0.69581E+02_JPRB, &
+ & 0.67013E+02_JPRB,0.63079E+02_JPRB,0.64019E+02_JPRB,0.72668E+02_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.85793E+02_JPRB,0.75364E+02_JPRB,0.72621E+02_JPRB,0.71506E+02_JPRB,0.69364E+02_JPRB, &
+ & 0.66992E+02_JPRB,0.63098E+02_JPRB,0.64105E+02_JPRB,0.72738E+02_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.85391E+02_JPRB,0.74983E+02_JPRB,0.72119E+02_JPRB,0.71136E+02_JPRB,0.69201E+02_JPRB, &
+ & 0.66897E+02_JPRB,0.62939E+02_JPRB,0.63964E+02_JPRB,0.72620E+02_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.84829E+02_JPRB,0.74472E+02_JPRB,0.71563E+02_JPRB,0.70768E+02_JPRB,0.69027E+02_JPRB, &
+ & 0.66600E+02_JPRB,0.62760E+02_JPRB,0.63750E+02_JPRB,0.72497E+02_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.84210E+02_JPRB,0.73923E+02_JPRB,0.70963E+02_JPRB,0.70409E+02_JPRB,0.68788E+02_JPRB, &
+ & 0.66285E+02_JPRB,0.62604E+02_JPRB,0.63643E+02_JPRB,0.72460E+02_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.85661E+02_JPRB,0.75976E+02_JPRB,0.75616E+02_JPRB,0.74895E+02_JPRB,0.73796E+02_JPRB, &
+ & 0.71450E+02_JPRB,0.66595E+02_JPRB,0.64723E+02_JPRB,0.72988E+02_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.85212E+02_JPRB,0.75487E+02_JPRB,0.75133E+02_JPRB,0.74528E+02_JPRB,0.73552E+02_JPRB, &
+ & 0.71413E+02_JPRB,0.66688E+02_JPRB,0.64835E+02_JPRB,0.73147E+02_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.84633E+02_JPRB,0.74907E+02_JPRB,0.74581E+02_JPRB,0.74183E+02_JPRB,0.73356E+02_JPRB, &
+ & 0.71194E+02_JPRB,0.66687E+02_JPRB,0.64831E+02_JPRB,0.73292E+02_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.83975E+02_JPRB,0.74286E+02_JPRB,0.73943E+02_JPRB,0.73830E+02_JPRB,0.73088E+02_JPRB, &
+ & 0.70916E+02_JPRB,0.66610E+02_JPRB,0.64920E+02_JPRB,0.73470E+02_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.83246E+02_JPRB,0.73605E+02_JPRB,0.73209E+02_JPRB,0.73386E+02_JPRB,0.72735E+02_JPRB, &
+ & 0.70587E+02_JPRB,0.66523E+02_JPRB,0.64950E+02_JPRB,0.73537E+02_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.83352E+02_JPRB,0.75282E+02_JPRB,0.76925E+02_JPRB,0.77365E+02_JPRB,0.77206E+02_JPRB, &
+ & 0.74850E+02_JPRB,0.69716E+02_JPRB,0.65048E+02_JPRB,0.72181E+02_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.82736E+02_JPRB,0.74597E+02_JPRB,0.76403E+02_JPRB,0.76949E+02_JPRB,0.76971E+02_JPRB, &
+ & 0.74863E+02_JPRB,0.69929E+02_JPRB,0.65330E+02_JPRB,0.72664E+02_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.82054E+02_JPRB,0.73916E+02_JPRB,0.75743E+02_JPRB,0.76528E+02_JPRB,0.76666E+02_JPRB, &
+ & 0.74738E+02_JPRB,0.70022E+02_JPRB,0.65629E+02_JPRB,0.73075E+02_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.81316E+02_JPRB,0.73173E+02_JPRB,0.75030E+02_JPRB,0.76061E+02_JPRB,0.76286E+02_JPRB, &
+ & 0.74512E+02_JPRB,0.70083E+02_JPRB,0.65825E+02_JPRB,0.73345E+02_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.80516E+02_JPRB,0.72378E+02_JPRB,0.74331E+02_JPRB,0.75554E+02_JPRB,0.75785E+02_JPRB, &
+ & 0.74233E+02_JPRB,0.70124E+02_JPRB,0.65929E+02_JPRB,0.73501E+02_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.79408E+02_JPRB,0.73858E+02_JPRB,0.76980E+02_JPRB,0.78869E+02_JPRB,0.79397E+02_JPRB, &
+ & 0.77263E+02_JPRB,0.72263E+02_JPRB,0.65338E+02_JPRB,0.70604E+02_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.78716E+02_JPRB,0.73093E+02_JPRB,0.76326E+02_JPRB,0.78426E+02_JPRB,0.79146E+02_JPRB, &
+ & 0.77408E+02_JPRB,0.72561E+02_JPRB,0.65807E+02_JPRB,0.71230E+02_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.77962E+02_JPRB,0.72251E+02_JPRB,0.75686E+02_JPRB,0.77926E+02_JPRB,0.78867E+02_JPRB, &
+ & 0.77356E+02_JPRB,0.72810E+02_JPRB,0.66137E+02_JPRB,0.71698E+02_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.77177E+02_JPRB,0.71385E+02_JPRB,0.75042E+02_JPRB,0.77408E+02_JPRB,0.78464E+02_JPRB, &
+ & 0.77172E+02_JPRB,0.73006E+02_JPRB,0.66333E+02_JPRB,0.72067E+02_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.76340E+02_JPRB,0.70519E+02_JPRB,0.74355E+02_JPRB,0.76889E+02_JPRB,0.78015E+02_JPRB, &
+ & 0.76988E+02_JPRB,0.73079E+02_JPRB,0.66485E+02_JPRB,0.72407E+02_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.51404E+02_JPRB,0.45212E+02_JPRB,0.39078E+02_JPRB,0.32978E+02_JPRB,0.31213E+02_JPRB, &
+ & 0.35689E+02_JPRB,0.42239E+02_JPRB,0.49109E+02_JPRB,0.53555E+02_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.51456E+02_JPRB,0.45263E+02_JPRB,0.39085E+02_JPRB,0.32975E+02_JPRB,0.31034E+02_JPRB, &
+ & 0.35237E+02_JPRB,0.41756E+02_JPRB,0.48531E+02_JPRB,0.52877E+02_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.51419E+02_JPRB,0.45226E+02_JPRB,0.39013E+02_JPRB,0.32932E+02_JPRB,0.30826E+02_JPRB, &
+ & 0.34871E+02_JPRB,0.41372E+02_JPRB,0.48070E+02_JPRB,0.52319E+02_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.51315E+02_JPRB,0.45122E+02_JPRB,0.38925E+02_JPRB,0.32886E+02_JPRB,0.30643E+02_JPRB, &
+ & 0.34565E+02_JPRB,0.41054E+02_JPRB,0.47690E+02_JPRB,0.51853E+02_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.51134E+02_JPRB,0.44958E+02_JPRB,0.38787E+02_JPRB,0.32819E+02_JPRB,0.30476E+02_JPRB, &
+ & 0.34330E+02_JPRB,0.40799E+02_JPRB,0.47384E+02_JPRB,0.51513E+02_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.59575E+02_JPRB,0.52343E+02_JPRB,0.45168E+02_JPRB,0.38156E+02_JPRB,0.36549E+02_JPRB, &
+ & 0.40798E+02_JPRB,0.48433E+02_JPRB,0.56320E+02_JPRB,0.62499E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2,14) = (/ &
+ & 0.59656E+02_JPRB,0.52415E+02_JPRB,0.45196E+02_JPRB,0.38159E+02_JPRB,0.36356E+02_JPRB, &
+ & 0.40232E+02_JPRB,0.47806E+02_JPRB,0.55603E+02_JPRB,0.61692E+02_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.59635E+02_JPRB,0.52395E+02_JPRB,0.45146E+02_JPRB,0.38116E+02_JPRB,0.36139E+02_JPRB, &
+ & 0.39805E+02_JPRB,0.47339E+02_JPRB,0.55046E+02_JPRB,0.61068E+02_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.59522E+02_JPRB,0.52285E+02_JPRB,0.45051E+02_JPRB,0.38066E+02_JPRB,0.35889E+02_JPRB, &
+ & 0.39470E+02_JPRB,0.46981E+02_JPRB,0.54621E+02_JPRB,0.60592E+02_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.59307E+02_JPRB,0.52094E+02_JPRB,0.44889E+02_JPRB,0.37960E+02_JPRB,0.35677E+02_JPRB, &
+ & 0.39216E+02_JPRB,0.46687E+02_JPRB,0.54268E+02_JPRB,0.60193E+02_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.68809E+02_JPRB,0.60397E+02_JPRB,0.52025E+02_JPRB,0.44161E+02_JPRB,0.42701E+02_JPRB, &
+ & 0.46667E+02_JPRB,0.55520E+02_JPRB,0.64493E+02_JPRB,0.72669E+02_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.68924E+02_JPRB,0.60499E+02_JPRB,0.52098E+02_JPRB,0.44133E+02_JPRB,0.42521E+02_JPRB, &
+ & 0.45966E+02_JPRB,0.54732E+02_JPRB,0.63594E+02_JPRB,0.71705E+02_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.68950E+02_JPRB,0.60531E+02_JPRB,0.52101E+02_JPRB,0.44100E+02_JPRB,0.42285E+02_JPRB, &
+ & 0.45418E+02_JPRB,0.54095E+02_JPRB,0.62883E+02_JPRB,0.70919E+02_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.68857E+02_JPRB,0.60434E+02_JPRB,0.52014E+02_JPRB,0.44041E+02_JPRB,0.42031E+02_JPRB, &
+ & 0.45005E+02_JPRB,0.53564E+02_JPRB,0.62291E+02_JPRB,0.70247E+02_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.68666E+02_JPRB,0.60265E+02_JPRB,0.51871E+02_JPRB,0.43942E+02_JPRB,0.41842E+02_JPRB, &
+ & 0.44690E+02_JPRB,0.53134E+02_JPRB,0.61806E+02_JPRB,0.69686E+02_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.79311E+02_JPRB,0.69561E+02_JPRB,0.59881E+02_JPRB,0.51276E+02_JPRB,0.49761E+02_JPRB, &
+ & 0.53193E+02_JPRB,0.63396E+02_JPRB,0.73656E+02_JPRB,0.83652E+02_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.79511E+02_JPRB,0.69736E+02_JPRB,0.60019E+02_JPRB,0.51173E+02_JPRB,0.49594E+02_JPRB, &
+ & 0.52466E+02_JPRB,0.62461E+02_JPRB,0.72578E+02_JPRB,0.82426E+02_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.79562E+02_JPRB,0.69789E+02_JPRB,0.60043E+02_JPRB,0.51075E+02_JPRB,0.49346E+02_JPRB, &
+ & 0.51847E+02_JPRB,0.61639E+02_JPRB,0.71632E+02_JPRB,0.81369E+02_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.79512E+02_JPRB,0.69733E+02_JPRB,0.59989E+02_JPRB,0.50979E+02_JPRB,0.49088E+02_JPRB, &
+ & 0.51360E+02_JPRB,0.60947E+02_JPRB,0.70836E+02_JPRB,0.80468E+02_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.79325E+02_JPRB,0.69569E+02_JPRB,0.59854E+02_JPRB,0.50871E+02_JPRB,0.48882E+02_JPRB, &
+ & 0.50991E+02_JPRB,0.60362E+02_JPRB,0.70161E+02_JPRB,0.79701E+02_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.91112E+02_JPRB,0.79892E+02_JPRB,0.68781E+02_JPRB,0.59496E+02_JPRB,0.57988E+02_JPRB, &
+ & 0.60415E+02_JPRB,0.71595E+02_JPRB,0.83227E+02_JPRB,0.94854E+02_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.91447E+02_JPRB,0.80173E+02_JPRB,0.69023E+02_JPRB,0.59416E+02_JPRB,0.57743E+02_JPRB, &
+ & 0.59673E+02_JPRB,0.70483E+02_JPRB,0.81942E+02_JPRB,0.93394E+02_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.91583E+02_JPRB,0.80288E+02_JPRB,0.69106E+02_JPRB,0.59276E+02_JPRB,0.57416E+02_JPRB, &
+ & 0.59035E+02_JPRB,0.69528E+02_JPRB,0.80829E+02_JPRB,0.92131E+02_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.91566E+02_JPRB,0.80257E+02_JPRB,0.69073E+02_JPRB,0.59136E+02_JPRB,0.57092E+02_JPRB, &
+ & 0.58527E+02_JPRB,0.68724E+02_JPRB,0.79885E+02_JPRB,0.91053E+02_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.91390E+02_JPRB,0.80104E+02_JPRB,0.68937E+02_JPRB,0.58973E+02_JPRB,0.56776E+02_JPRB, &
+ & 0.58107E+02_JPRB,0.68079E+02_JPRB,0.79072E+02_JPRB,0.90122E+02_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.10419E+03_JPRB,0.91394E+02_JPRB,0.78656E+02_JPRB,0.68916E+02_JPRB,0.67128E+02_JPRB, &
+ & 0.68461E+02_JPRB,0.79894E+02_JPRB,0.92926E+02_JPRB,0.10607E+03_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.10463E+03_JPRB,0.91782E+02_JPRB,0.79002E+02_JPRB,0.68819E+02_JPRB,0.66845E+02_JPRB, &
+ & 0.67738E+02_JPRB,0.78628E+02_JPRB,0.91458E+02_JPRB,0.10440E+03_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.10486E+03_JPRB,0.91970E+02_JPRB,0.79156E+02_JPRB,0.68698E+02_JPRB,0.66470E+02_JPRB, &
+ & 0.67066E+02_JPRB,0.77628E+02_JPRB,0.90242E+02_JPRB,0.10302E+03_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.10494E+03_JPRB,0.92025E+02_JPRB,0.79207E+02_JPRB,0.68555E+02_JPRB,0.66081E+02_JPRB, &
+ & 0.66543E+02_JPRB,0.76843E+02_JPRB,0.89253E+02_JPRB,0.10189E+03_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.10481E+03_JPRB,0.91892E+02_JPRB,0.79105E+02_JPRB,0.68344E+02_JPRB,0.65668E+02_JPRB, &
+ & 0.66109E+02_JPRB,0.76190E+02_JPRB,0.88386E+02_JPRB,0.10090E+03_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.11850E+03_JPRB,0.10394E+03_JPRB,0.89423E+02_JPRB,0.79509E+02_JPRB,0.77207E+02_JPRB, &
+ & 0.77196E+02_JPRB,0.87943E+02_JPRB,0.10236E+03_JPRB,0.11694E+03_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.11905E+03_JPRB,0.10443E+03_JPRB,0.89864E+02_JPRB,0.79528E+02_JPRB,0.76905E+02_JPRB, &
+ & 0.76494E+02_JPRB,0.86650E+02_JPRB,0.10078E+03_JPRB,0.11515E+03_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.11939E+03_JPRB,0.10473E+03_JPRB,0.90115E+02_JPRB,0.79401E+02_JPRB,0.76523E+02_JPRB, &
+ & 0.75853E+02_JPRB,0.85715E+02_JPRB,0.99595E+02_JPRB,0.11380E+03_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.11951E+03_JPRB,0.10484E+03_JPRB,0.90222E+02_JPRB,0.79220E+02_JPRB,0.76090E+02_JPRB, &
+ & 0.75405E+02_JPRB,0.85022E+02_JPRB,0.98653E+02_JPRB,0.11271E+03_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.11942E+03_JPRB,0.10476E+03_JPRB,0.90169E+02_JPRB,0.78976E+02_JPRB,0.75607E+02_JPRB, &
+ & 0.75018E+02_JPRB,0.84352E+02_JPRB,0.97783E+02_JPRB,0.11167E+03_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.13381E+03_JPRB,0.11735E+03_JPRB,0.10095E+03_JPRB,0.91226E+02_JPRB,0.88188E+02_JPRB, &
+ & 0.86379E+02_JPRB,0.95828E+02_JPRB,0.11155E+03_JPRB,0.12755E+03_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.13446E+03_JPRB,0.11794E+03_JPRB,0.10145E+03_JPRB,0.91271E+02_JPRB,0.87947E+02_JPRB, &
+ & 0.85766E+02_JPRB,0.94652E+02_JPRB,0.11006E+03_JPRB,0.12583E+03_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.13492E+03_JPRB,0.11834E+03_JPRB,0.10180E+03_JPRB,0.91233E+02_JPRB,0.87619E+02_JPRB, &
+ & 0.85228E+02_JPRB,0.93811E+02_JPRB,0.10892E+03_JPRB,0.12452E+03_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.13505E+03_JPRB,0.11846E+03_JPRB,0.10192E+03_JPRB,0.91090E+02_JPRB,0.87150E+02_JPRB, &
+ & 0.84887E+02_JPRB,0.93111E+02_JPRB,0.10797E+03_JPRB,0.12337E+03_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.13500E+03_JPRB,0.11844E+03_JPRB,0.10192E+03_JPRB,0.90797E+02_JPRB,0.86626E+02_JPRB, &
+ & 0.84570E+02_JPRB,0.92421E+02_JPRB,0.10710E+03_JPRB,0.12226E+03_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.14952E+03_JPRB,0.13110E+03_JPRB,0.11316E+03_JPRB,0.10410E+03_JPRB,0.99927E+02_JPRB, &
+ & 0.96074E+02_JPRB,0.10374E+03_JPRB,0.12067E+03_JPRB,0.13801E+03_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.15028E+03_JPRB,0.13179E+03_JPRB,0.11360E+03_JPRB,0.10415E+03_JPRB,0.99870E+02_JPRB, &
+ & 0.95589E+02_JPRB,0.10257E+03_JPRB,0.11912E+03_JPRB,0.13623E+03_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.15082E+03_JPRB,0.13227E+03_JPRB,0.11392E+03_JPRB,0.10405E+03_JPRB,0.99571E+02_JPRB, &
+ & 0.95189E+02_JPRB,0.10182E+03_JPRB,0.11803E+03_JPRB,0.13496E+03_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.15103E+03_JPRB,0.13247E+03_JPRB,0.11403E+03_JPRB,0.10385E+03_JPRB,0.99126E+02_JPRB, &
+ & 0.94980E+02_JPRB,0.10122E+03_JPRB,0.11720E+03_JPRB,0.13388E+03_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.15094E+03_JPRB,0.13245E+03_JPRB,0.11401E+03_JPRB,0.10348E+03_JPRB,0.98550E+02_JPRB, &
+ & 0.94746E+02_JPRB,0.10055E+03_JPRB,0.11636E+03_JPRB,0.13276E+03_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.16524E+03_JPRB,0.14486E+03_JPRB,0.12594E+03_JPRB,0.11785E+03_JPRB,0.11225E+03_JPRB, &
+ & 0.10654E+03_JPRB,0.11202E+03_JPRB,0.12965E+03_JPRB,0.14829E+03_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.16610E+03_JPRB,0.14564E+03_JPRB,0.12636E+03_JPRB,0.11787E+03_JPRB,0.11233E+03_JPRB, &
+ & 0.10630E+03_JPRB,0.11093E+03_JPRB,0.12811E+03_JPRB,0.14653E+03_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.16659E+03_JPRB,0.14608E+03_JPRB,0.12656E+03_JPRB,0.11769E+03_JPRB,0.11214E+03_JPRB, &
+ & 0.10609E+03_JPRB,0.11032E+03_JPRB,0.12713E+03_JPRB,0.14532E+03_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.16681E+03_JPRB,0.14630E+03_JPRB,0.12659E+03_JPRB,0.11736E+03_JPRB,0.11169E+03_JPRB, &
+ & 0.10597E+03_JPRB,0.10973E+03_JPRB,0.12629E+03_JPRB,0.14416E+03_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.16671E+03_JPRB,0.14623E+03_JPRB,0.12639E+03_JPRB,0.11688E+03_JPRB,0.11111E+03_JPRB, &
+ & 0.10576E+03_JPRB,0.10909E+03_JPRB,0.12542E+03_JPRB,0.14303E+03_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.18065E+03_JPRB,0.15832E+03_JPRB,0.13903E+03_JPRB,0.13201E+03_JPRB,0.12519E+03_JPRB, &
+ & 0.11820E+03_JPRB,0.12047E+03_JPRB,0.13760E+03_JPRB,0.15739E+03_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.18131E+03_JPRB,0.15893E+03_JPRB,0.13916E+03_JPRB,0.13183E+03_JPRB,0.12520E+03_JPRB, &
+ & 0.11800E+03_JPRB,0.11979E+03_JPRB,0.13660E+03_JPRB,0.15612E+03_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.18162E+03_JPRB,0.15925E+03_JPRB,0.13912E+03_JPRB,0.13145E+03_JPRB,0.12487E+03_JPRB, &
+ & 0.11789E+03_JPRB,0.11922E+03_JPRB,0.13566E+03_JPRB,0.15481E+03_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.18161E+03_JPRB,0.15927E+03_JPRB,0.13888E+03_JPRB,0.13091E+03_JPRB,0.12432E+03_JPRB, &
+ & 0.11770E+03_JPRB,0.11858E+03_JPRB,0.13462E+03_JPRB,0.15350E+03_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.18129E+03_JPRB,0.15901E+03_JPRB,0.13849E+03_JPRB,0.13027E+03_JPRB,0.12371E+03_JPRB, &
+ & 0.11738E+03_JPRB,0.11800E+03_JPRB,0.13378E+03_JPRB,0.15248E+03_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.19439E+03_JPRB,0.17031E+03_JPRB,0.15181E+03_JPRB,0.14577E+03_JPRB,0.13828E+03_JPRB, &
+ & 0.13070E+03_JPRB,0.12972E+03_JPRB,0.14546E+03_JPRB,0.16618E+03_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.19483E+03_JPRB,0.17073E+03_JPRB,0.15156E+03_JPRB,0.14543E+03_JPRB,0.13812E+03_JPRB, &
+ & 0.13043E+03_JPRB,0.12913E+03_JPRB,0.14443E+03_JPRB,0.16476E+03_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.19494E+03_JPRB,0.17087E+03_JPRB,0.15124E+03_JPRB,0.14493E+03_JPRB,0.13771E+03_JPRB, &
+ & 0.13020E+03_JPRB,0.12847E+03_JPRB,0.14330E+03_JPRB,0.16335E+03_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.19474E+03_JPRB,0.17073E+03_JPRB,0.15078E+03_JPRB,0.14425E+03_JPRB,0.13718E+03_JPRB, &
+ & 0.12986E+03_JPRB,0.12779E+03_JPRB,0.14240E+03_JPRB,0.16229E+03_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.19420E+03_JPRB,0.17029E+03_JPRB,0.15011E+03_JPRB,0.14337E+03_JPRB,0.13666E+03_JPRB, &
+ & 0.12942E+03_JPRB,0.12725E+03_JPRB,0.14171E+03_JPRB,0.16147E+03_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.20562E+03_JPRB,0.18014E+03_JPRB,0.16395E+03_JPRB,0.15885E+03_JPRB,0.15131E+03_JPRB, &
+ & 0.14344E+03_JPRB,0.13928E+03_JPRB,0.15201E+03_JPRB,0.17336E+03_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.20583E+03_JPRB,0.18034E+03_JPRB,0.16346E+03_JPRB,0.15844E+03_JPRB,0.15102E+03_JPRB, &
+ & 0.14310E+03_JPRB,0.13867E+03_JPRB,0.15101E+03_JPRB,0.17210E+03_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.20579E+03_JPRB,0.18034E+03_JPRB,0.16282E+03_JPRB,0.15782E+03_JPRB,0.15051E+03_JPRB, &
+ & 0.14271E+03_JPRB,0.13803E+03_JPRB,0.15026E+03_JPRB,0.17119E+03_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.20539E+03_JPRB,0.18002E+03_JPRB,0.16199E+03_JPRB,0.15696E+03_JPRB,0.15005E+03_JPRB, &
+ & 0.14226E+03_JPRB,0.13746E+03_JPRB,0.14977E+03_JPRB,0.17061E+03_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.20471E+03_JPRB,0.17946E+03_JPRB,0.16101E+03_JPRB,0.15580E+03_JPRB,0.14942E+03_JPRB, &
+ & 0.14163E+03_JPRB,0.13685E+03_JPRB,0.14922E+03_JPRB,0.16998E+03_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.61110E+02_JPRB,0.53539E+02_JPRB,0.46005E+02_JPRB,0.38902E+02_JPRB,0.35970E+02_JPRB, &
+ & 0.43986E+02_JPRB,0.52608E+02_JPRB,0.61157E+02_JPRB,0.65911E+02_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.61315E+02_JPRB,0.53717E+02_JPRB,0.46235E+02_JPRB,0.39083E+02_JPRB,0.35687E+02_JPRB, &
+ & 0.43381E+02_JPRB,0.51871E+02_JPRB,0.60290E+02_JPRB,0.64963E+02_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.61422E+02_JPRB,0.53821E+02_JPRB,0.46411E+02_JPRB,0.39188E+02_JPRB,0.35438E+02_JPRB, &
+ & 0.42839E+02_JPRB,0.51205E+02_JPRB,0.59514E+02_JPRB,0.64157E+02_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.61394E+02_JPRB,0.53877E+02_JPRB,0.46504E+02_JPRB,0.39222E+02_JPRB,0.35189E+02_JPRB, &
+ & 0.42365E+02_JPRB,0.50625E+02_JPRB,0.58813E+02_JPRB,0.63464E+02_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.61322E+02_JPRB,0.53865E+02_JPRB,0.46511E+02_JPRB,0.39177E+02_JPRB,0.34939E+02_JPRB, &
+ & 0.41926E+02_JPRB,0.50070E+02_JPRB,0.58152E+02_JPRB,0.62761E+02_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.73139E+02_JPRB,0.64054E+02_JPRB,0.54971E+02_JPRB,0.46172E+02_JPRB,0.42554E+02_JPRB, &
+ & 0.52369E+02_JPRB,0.62683E+02_JPRB,0.72904E+02_JPRB,0.80226E+02_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.73363E+02_JPRB,0.64250E+02_JPRB,0.55203E+02_JPRB,0.46423E+02_JPRB,0.42168E+02_JPRB, &
+ & 0.51668E+02_JPRB,0.61839E+02_JPRB,0.71917E+02_JPRB,0.79110E+02_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.73487E+02_JPRB,0.64383E+02_JPRB,0.55429E+02_JPRB,0.46632E+02_JPRB,0.41828E+02_JPRB, &
+ & 0.50986E+02_JPRB,0.61016E+02_JPRB,0.70950E+02_JPRB,0.78048E+02_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.73536E+02_JPRB,0.64501E+02_JPRB,0.55558E+02_JPRB,0.46729E+02_JPRB,0.41557E+02_JPRB, &
+ & 0.50314E+02_JPRB,0.60204E+02_JPRB,0.70005E+02_JPRB,0.77009E+02_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.73500E+02_JPRB,0.64509E+02_JPRB,0.55582E+02_JPRB,0.46709E+02_JPRB,0.41283E+02_JPRB, &
+ & 0.49695E+02_JPRB,0.59450E+02_JPRB,0.69119E+02_JPRB,0.76024E+02_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.87361E+02_JPRB,0.76491E+02_JPRB,0.65621E+02_JPRB,0.54890E+02_JPRB,0.50598E+02_JPRB, &
+ & 0.62297E+02_JPRB,0.74612E+02_JPRB,0.86825E+02_JPRB,0.97550E+02_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.87685E+02_JPRB,0.76774E+02_JPRB,0.65885E+02_JPRB,0.55188E+02_JPRB,0.50206E+02_JPRB, &
+ & 0.61585E+02_JPRB,0.73754E+02_JPRB,0.85807E+02_JPRB,0.96409E+02_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.87844E+02_JPRB,0.76919E+02_JPRB,0.66106E+02_JPRB,0.55413E+02_JPRB,0.49812E+02_JPRB, &
+ & 0.60785E+02_JPRB,0.72789E+02_JPRB,0.84689E+02_JPRB,0.95141E+02_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.87889E+02_JPRB,0.77037E+02_JPRB,0.66247E+02_JPRB,0.55541E+02_JPRB,0.49446E+02_JPRB, &
+ & 0.60010E+02_JPRB,0.71857E+02_JPRB,0.83593E+02_JPRB,0.93898E+02_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.87858E+02_JPRB,0.77051E+02_JPRB,0.66285E+02_JPRB,0.55583E+02_JPRB,0.49097E+02_JPRB, &
+ & 0.59241E+02_JPRB,0.70929E+02_JPRB,0.82513E+02_JPRB,0.92686E+02_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.10387E+03_JPRB,0.90929E+02_JPRB,0.77989E+02_JPRB,0.65095E+02_JPRB,0.60436E+02_JPRB, &
+ & 0.74039E+02_JPRB,0.88717E+02_JPRB,0.10327E+03_JPRB,0.11725E+03_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.10441E+03_JPRB,0.91405E+02_JPRB,0.78408E+02_JPRB,0.65545E+02_JPRB,0.59926E+02_JPRB, &
+ & 0.73070E+02_JPRB,0.87549E+02_JPRB,0.10190E+03_JPRB,0.11570E+03_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.10471E+03_JPRB,0.91680E+02_JPRB,0.78722E+02_JPRB,0.65845E+02_JPRB,0.59509E+02_JPRB, &
+ & 0.72264E+02_JPRB,0.86581E+02_JPRB,0.10076E+03_JPRB,0.11440E+03_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.10486E+03_JPRB,0.91873E+02_JPRB,0.78926E+02_JPRB,0.66032E+02_JPRB,0.59086E+02_JPRB, &
+ & 0.71381E+02_JPRB,0.85514E+02_JPRB,0.99526E+02_JPRB,0.11299E+03_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.10483E+03_JPRB,0.91879E+02_JPRB,0.78952E+02_JPRB,0.66063E+02_JPRB,0.58651E+02_JPRB, &
+ & 0.70432E+02_JPRB,0.84377E+02_JPRB,0.98185E+02_JPRB,0.11148E+03_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.12314E+03_JPRB,0.10778E+03_JPRB,0.92429E+02_JPRB,0.77074E+02_JPRB,0.72086E+02_JPRB, &
+ & 0.87688E+02_JPRB,0.10511E+03_JPRB,0.12238E+03_JPRB,0.13959E+03_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.12380E+03_JPRB,0.10836E+03_JPRB,0.92922E+02_JPRB,0.77571E+02_JPRB,0.71572E+02_JPRB, &
+ & 0.86586E+02_JPRB,0.10378E+03_JPRB,0.12082E+03_JPRB,0.13782E+03_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.12423E+03_JPRB,0.10877E+03_JPRB,0.93351E+02_JPRB,0.77983E+02_JPRB,0.71097E+02_JPRB, &
+ & 0.85507E+02_JPRB,0.10249E+03_JPRB,0.11931E+03_JPRB,0.13609E+03_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.12450E+03_JPRB,0.10905E+03_JPRB,0.93631E+02_JPRB,0.78238E+02_JPRB,0.70653E+02_JPRB, &
+ & 0.84488E+02_JPRB,0.10126E+03_JPRB,0.11788E+03_JPRB,0.13445E+03_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.12453E+03_JPRB,0.10910E+03_JPRB,0.93684E+02_JPRB,0.78289E+02_JPRB,0.70179E+02_JPRB, &
+ & 0.83403E+02_JPRB,0.99954E+02_JPRB,0.11636E+03_JPRB,0.13271E+03_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.14538E+03_JPRB,0.12724E+03_JPRB,0.10910E+03_JPRB,0.90962E+02_JPRB,0.85931E+02_JPRB, &
+ & 0.10354E+03_JPRB,0.12413E+03_JPRB,0.14456E+03_JPRB,0.16524E+03_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.14625E+03_JPRB,0.12800E+03_JPRB,0.10975E+03_JPRB,0.91547E+02_JPRB,0.85303E+02_JPRB, &
+ & 0.10223E+03_JPRB,0.12256E+03_JPRB,0.14271E+03_JPRB,0.16313E+03_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.14683E+03_JPRB,0.12855E+03_JPRB,0.11028E+03_JPRB,0.92053E+02_JPRB,0.84796E+02_JPRB, &
+ & 0.10095E+03_JPRB,0.12102E+03_JPRB,0.14092E+03_JPRB,0.16108E+03_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.14716E+03_JPRB,0.12887E+03_JPRB,0.11059E+03_JPRB,0.92330E+02_JPRB,0.84296E+02_JPRB, &
+ & 0.99657E+02_JPRB,0.11947E+03_JPRB,0.13910E+03_JPRB,0.15900E+03_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.14726E+03_JPRB,0.12897E+03_JPRB,0.11069E+03_JPRB,0.92414E+02_JPRB,0.83857E+02_JPRB, &
+ & 0.98384E+02_JPRB,0.11794E+03_JPRB,0.13732E+03_JPRB,0.15696E+03_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.17053E+03_JPRB,0.14925E+03_JPRB,0.12796E+03_JPRB,0.10716E+03_JPRB,0.10213E+03_JPRB, &
+ & 0.12188E+03_JPRB,0.14615E+03_JPRB,0.17020E+03_JPRB,0.19480E+03_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.17172E+03_JPRB,0.15029E+03_JPRB,0.12885E+03_JPRB,0.10758E+03_JPRB,0.10144E+03_JPRB, &
+ & 0.12029E+03_JPRB,0.14423E+03_JPRB,0.16798E+03_JPRB,0.19224E+03_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.17251E+03_JPRB,0.15103E+03_JPRB,0.12955E+03_JPRB,0.10811E+03_JPRB,0.10086E+03_JPRB, &
+ & 0.11869E+03_JPRB,0.14231E+03_JPRB,0.16572E+03_JPRB,0.18967E+03_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.17303E+03_JPRB,0.15150E+03_JPRB,0.12997E+03_JPRB,0.10845E+03_JPRB,0.10032E+03_JPRB, &
+ & 0.11701E+03_JPRB,0.14029E+03_JPRB,0.16338E+03_JPRB,0.18697E+03_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.17326E+03_JPRB,0.15170E+03_JPRB,0.13015E+03_JPRB,0.10860E+03_JPRB,0.99828E+02_JPRB, &
+ & 0.11540E+03_JPRB,0.13837E+03_JPRB,0.16114E+03_JPRB,0.18440E+03_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.19897E+03_JPRB,0.17412E+03_JPRB,0.14927E+03_JPRB,0.12609E+03_JPRB,0.12102E+03_JPRB, &
+ & 0.14307E+03_JPRB,0.17149E+03_JPRB,0.19971E+03_JPRB,0.22868E+03_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.20045E+03_JPRB,0.17541E+03_JPRB,0.15039E+03_JPRB,0.12643E+03_JPRB,0.12014E+03_JPRB, &
+ & 0.14095E+03_JPRB,0.16896E+03_JPRB,0.19679E+03_JPRB,0.22532E+03_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.20144E+03_JPRB,0.17633E+03_JPRB,0.15122E+03_JPRB,0.12673E+03_JPRB,0.11946E+03_JPRB, &
+ & 0.13885E+03_JPRB,0.16646E+03_JPRB,0.19386E+03_JPRB,0.22200E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8,15) = (/ &
+ & 0.20212E+03_JPRB,0.17694E+03_JPRB,0.15175E+03_JPRB,0.12692E+03_JPRB,0.11890E+03_JPRB, &
+ & 0.13670E+03_JPRB,0.16392E+03_JPRB,0.19092E+03_JPRB,0.21864E+03_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.20244E+03_JPRB,0.17722E+03_JPRB,0.15200E+03_JPRB,0.12703E+03_JPRB,0.11832E+03_JPRB, &
+ & 0.13474E+03_JPRB,0.16157E+03_JPRB,0.18819E+03_JPRB,0.21551E+03_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.23120E+03_JPRB,0.20232E+03_JPRB,0.17344E+03_JPRB,0.14797E+03_JPRB,0.14299E+03_JPRB, &
+ & 0.16694E+03_JPRB,0.20011E+03_JPRB,0.23304E+03_JPRB,0.26690E+03_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.23311E+03_JPRB,0.20399E+03_JPRB,0.17488E+03_JPRB,0.14825E+03_JPRB,0.14181E+03_JPRB, &
+ & 0.16424E+03_JPRB,0.19689E+03_JPRB,0.22930E+03_JPRB,0.26259E+03_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.23434E+03_JPRB,0.20510E+03_JPRB,0.17587E+03_JPRB,0.14844E+03_JPRB,0.14100E+03_JPRB, &
+ & 0.16150E+03_JPRB,0.19359E+03_JPRB,0.22546E+03_JPRB,0.25821E+03_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.23518E+03_JPRB,0.20584E+03_JPRB,0.17651E+03_JPRB,0.14849E+03_JPRB,0.14028E+03_JPRB, &
+ & 0.15873E+03_JPRB,0.19031E+03_JPRB,0.22162E+03_JPRB,0.25383E+03_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.23553E+03_JPRB,0.20616E+03_JPRB,0.17678E+03_JPRB,0.14839E+03_JPRB,0.13959E+03_JPRB, &
+ & 0.15626E+03_JPRB,0.18736E+03_JPRB,0.21823E+03_JPRB,0.24993E+03_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.26766E+03_JPRB,0.23422E+03_JPRB,0.20086E+03_JPRB,0.17305E+03_JPRB,0.16820E+03_JPRB, &
+ & 0.19275E+03_JPRB,0.23109E+03_JPRB,0.26916E+03_JPRB,0.30826E+03_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.26991E+03_JPRB,0.23619E+03_JPRB,0.20254E+03_JPRB,0.17334E+03_JPRB,0.16673E+03_JPRB, &
+ & 0.18936E+03_JPRB,0.22702E+03_JPRB,0.26442E+03_JPRB,0.30283E+03_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.27155E+03_JPRB,0.23766E+03_JPRB,0.20381E+03_JPRB,0.17344E+03_JPRB,0.16570E+03_JPRB, &
+ & 0.18588E+03_JPRB,0.22280E+03_JPRB,0.25950E+03_JPRB,0.29719E+03_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.27254E+03_JPRB,0.23853E+03_JPRB,0.20456E+03_JPRB,0.17332E+03_JPRB,0.16480E+03_JPRB, &
+ & 0.18267E+03_JPRB,0.21887E+03_JPRB,0.25495E+03_JPRB,0.29197E+03_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.27304E+03_JPRB,0.23896E+03_JPRB,0.20491E+03_JPRB,0.17301E+03_JPRB,0.16390E+03_JPRB, &
+ & 0.17979E+03_JPRB,0.21534E+03_JPRB,0.25082E+03_JPRB,0.28725E+03_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.31010E+03_JPRB,0.27147E+03_JPRB,0.23291E+03_JPRB,0.20181E+03_JPRB,0.19592E+03_JPRB, &
+ & 0.21861E+03_JPRB,0.26152E+03_JPRB,0.30466E+03_JPRB,0.34889E+03_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.31237E+03_JPRB,0.27343E+03_JPRB,0.23463E+03_JPRB,0.20183E+03_JPRB,0.19444E+03_JPRB, &
+ & 0.21467E+03_JPRB,0.25634E+03_JPRB,0.29864E+03_JPRB,0.34194E+03_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.31396E+03_JPRB,0.27478E+03_JPRB,0.23578E+03_JPRB,0.20169E+03_JPRB,0.19320E+03_JPRB, &
+ & 0.21082E+03_JPRB,0.25169E+03_JPRB,0.29321E+03_JPRB,0.33575E+03_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.31491E+03_JPRB,0.27559E+03_JPRB,0.23646E+03_JPRB,0.20134E+03_JPRB,0.19199E+03_JPRB, &
+ & 0.20744E+03_JPRB,0.24738E+03_JPRB,0.28820E+03_JPRB,0.33002E+03_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.31516E+03_JPRB,0.27581E+03_JPRB,0.23662E+03_JPRB,0.20063E+03_JPRB,0.19065E+03_JPRB, &
+ & 0.20428E+03_JPRB,0.24308E+03_JPRB,0.28319E+03_JPRB,0.32426E+03_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.35746E+03_JPRB,0.31300E+03_JPRB,0.26858E+03_JPRB,0.23433E+03_JPRB,0.22701E+03_JPRB, &
+ & 0.24649E+03_JPRB,0.29230E+03_JPRB,0.34058E+03_JPRB,0.38993E+03_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.35965E+03_JPRB,0.31492E+03_JPRB,0.27026E+03_JPRB,0.23392E+03_JPRB,0.22536E+03_JPRB, &
+ & 0.24218E+03_JPRB,0.28684E+03_JPRB,0.33421E+03_JPRB,0.38264E+03_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.36096E+03_JPRB,0.31606E+03_JPRB,0.27127E+03_JPRB,0.23331E+03_JPRB,0.22367E+03_JPRB, &
+ & 0.23821E+03_JPRB,0.28173E+03_JPRB,0.32828E+03_JPRB,0.37584E+03_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.36159E+03_JPRB,0.31657E+03_JPRB,0.27171E+03_JPRB,0.23251E+03_JPRB,0.22182E+03_JPRB, &
+ & 0.23456E+03_JPRB,0.27669E+03_JPRB,0.32238E+03_JPRB,0.36910E+03_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.36141E+03_JPRB,0.31636E+03_JPRB,0.27153E+03_JPRB,0.23134E+03_JPRB,0.21976E+03_JPRB, &
+ & 0.23095E+03_JPRB,0.27160E+03_JPRB,0.31644E+03_JPRB,0.36227E+03_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.40931E+03_JPRB,0.35842E+03_JPRB,0.30758E+03_JPRB,0.27041E+03_JPRB,0.26133E+03_JPRB, &
+ & 0.27679E+03_JPRB,0.32393E+03_JPRB,0.37751E+03_JPRB,0.43213E+03_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.41124E+03_JPRB,0.36013E+03_JPRB,0.30908E+03_JPRB,0.26935E+03_JPRB,0.25923E+03_JPRB, &
+ & 0.27218E+03_JPRB,0.31806E+03_JPRB,0.37065E+03_JPRB,0.42432E+03_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.41214E+03_JPRB,0.36093E+03_JPRB,0.30979E+03_JPRB,0.26811E+03_JPRB,0.25684E+03_JPRB, &
+ & 0.26794E+03_JPRB,0.31214E+03_JPRB,0.36375E+03_JPRB,0.41639E+03_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.41225E+03_JPRB,0.36102E+03_JPRB,0.30989E+03_JPRB,0.26655E+03_JPRB,0.25418E+03_JPRB, &
+ & 0.26378E+03_JPRB,0.30615E+03_JPRB,0.35676E+03_JPRB,0.40836E+03_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.41130E+03_JPRB,0.36017E+03_JPRB,0.30917E+03_JPRB,0.26471E+03_JPRB,0.25127E+03_JPRB, &
+ & 0.25962E+03_JPRB,0.30054E+03_JPRB,0.35018E+03_JPRB,0.40087E+03_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.66783E+02_JPRB,0.58494E+02_JPRB,0.50207E+02_JPRB,0.41922E+02_JPRB,0.39207E+02_JPRB, &
+ & 0.48837E+02_JPRB,0.58441E+02_JPRB,0.67973E+02_JPRB,0.73684E+02_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.66987E+02_JPRB,0.58663E+02_JPRB,0.50340E+02_JPRB,0.42083E+02_JPRB,0.39992E+02_JPRB, &
+ & 0.49756E+02_JPRB,0.59507E+02_JPRB,0.69167E+02_JPRB,0.75232E+02_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.67128E+02_JPRB,0.58776E+02_JPRB,0.50426E+02_JPRB,0.42412E+02_JPRB,0.40738E+02_JPRB, &
+ & 0.50635E+02_JPRB,0.60514E+02_JPRB,0.70320E+02_JPRB,0.76487E+02_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.67159E+02_JPRB,0.58797E+02_JPRB,0.50435E+02_JPRB,0.42709E+02_JPRB,0.41336E+02_JPRB, &
+ & 0.51345E+02_JPRB,0.61329E+02_JPRB,0.71239E+02_JPRB,0.77474E+02_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.67048E+02_JPRB,0.58698E+02_JPRB,0.50349E+02_JPRB,0.42916E+02_JPRB,0.41806E+02_JPRB, &
+ & 0.51893E+02_JPRB,0.61955E+02_JPRB,0.71939E+02_JPRB,0.78212E+02_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.80817E+02_JPRB,0.70771E+02_JPRB,0.60724E+02_JPRB,0.50680E+02_JPRB,0.46121E+02_JPRB, &
+ & 0.57561E+02_JPRB,0.68978E+02_JPRB,0.80276E+02_JPRB,0.88125E+02_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.81120E+02_JPRB,0.71031E+02_JPRB,0.60942E+02_JPRB,0.50856E+02_JPRB,0.46531E+02_JPRB, &
+ & 0.58009E+02_JPRB,0.69466E+02_JPRB,0.80811E+02_JPRB,0.88902E+02_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.81295E+02_JPRB,0.71179E+02_JPRB,0.61065E+02_JPRB,0.50952E+02_JPRB,0.47046E+02_JPRB, &
+ & 0.58603E+02_JPRB,0.70144E+02_JPRB,0.81568E+02_JPRB,0.89842E+02_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.81302E+02_JPRB,0.71181E+02_JPRB,0.61061E+02_JPRB,0.50998E+02_JPRB,0.47535E+02_JPRB, &
+ & 0.59172E+02_JPRB,0.70788E+02_JPRB,0.82285E+02_JPRB,0.90723E+02_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.81254E+02_JPRB,0.71123E+02_JPRB,0.60992E+02_JPRB,0.51150E+02_JPRB,0.47959E+02_JPRB, &
+ & 0.59657E+02_JPRB,0.71327E+02_JPRB,0.82908E+02_JPRB,0.91460E+02_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.97635E+02_JPRB,0.85483E+02_JPRB,0.73330E+02_JPRB,0.61179E+02_JPRB,0.56207E+02_JPRB, &
+ & 0.70215E+02_JPRB,0.84188E+02_JPRB,0.98014E+02_JPRB,0.10988E+03_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.98163E+02_JPRB,0.85943E+02_JPRB,0.73724E+02_JPRB,0.61504E+02_JPRB,0.55633E+02_JPRB, &
+ & 0.69472E+02_JPRB,0.83276E+02_JPRB,0.96935E+02_JPRB,0.10869E+03_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.98472E+02_JPRB,0.86211E+02_JPRB,0.73951E+02_JPRB,0.61693E+02_JPRB,0.55697E+02_JPRB, &
+ & 0.69495E+02_JPRB,0.83260E+02_JPRB,0.96885E+02_JPRB,0.10871E+03_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.98535E+02_JPRB,0.86265E+02_JPRB,0.73995E+02_JPRB,0.61728E+02_JPRB,0.55937E+02_JPRB, &
+ & 0.69749E+02_JPRB,0.83530E+02_JPRB,0.97171E+02_JPRB,0.10906E+03_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.98433E+02_JPRB,0.86165E+02_JPRB,0.73899E+02_JPRB,0.61635E+02_JPRB,0.56204E+02_JPRB, &
+ & 0.70040E+02_JPRB,0.83840E+02_JPRB,0.97500E+02_JPRB,0.10946E+03_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.11801E+03_JPRB,0.10331E+03_JPRB,0.88600E+02_JPRB,0.73894E+02_JPRB,0.68841E+02_JPRB, &
+ & 0.86008E+02_JPRB,0.10313E+03_JPRB,0.12007E+03_JPRB,0.13623E+03_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.11855E+03_JPRB,0.10378E+03_JPRB,0.89007E+02_JPRB,0.74235E+02_JPRB,0.68009E+02_JPRB, &
+ & 0.84957E+02_JPRB,0.10186E+03_JPRB,0.11859E+03_JPRB,0.13456E+03_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.11911E+03_JPRB,0.10427E+03_JPRB,0.89430E+02_JPRB,0.74590E+02_JPRB,0.67220E+02_JPRB, &
+ & 0.83955E+02_JPRB,0.10065E+03_JPRB,0.11716E+03_JPRB,0.13292E+03_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.11932E+03_JPRB,0.10446E+03_JPRB,0.89591E+02_JPRB,0.74725E+02_JPRB,0.66996E+02_JPRB, &
+ & 0.83620E+02_JPRB,0.10020E+03_JPRB,0.11661E+03_JPRB,0.13231E+03_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.11933E+03_JPRB,0.10445E+03_JPRB,0.89579E+02_JPRB,0.74708E+02_JPRB,0.67016E+02_JPRB, &
+ & 0.83607E+02_JPRB,0.10016E+03_JPRB,0.11655E+03_JPRB,0.13223E+03_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.14253E+03_JPRB,0.12475E+03_JPRB,0.10698E+03_JPRB,0.89200E+02_JPRB,0.84755E+02_JPRB, &
+ & 0.10590E+03_JPRB,0.12699E+03_JPRB,0.14785E+03_JPRB,0.16865E+03_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.14325E+03_JPRB,0.12539E+03_JPRB,0.10752E+03_JPRB,0.89655E+02_JPRB,0.83145E+02_JPRB, &
+ & 0.10388E+03_JPRB,0.12456E+03_JPRB,0.14501E+03_JPRB,0.16542E+03_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.14383E+03_JPRB,0.12589E+03_JPRB,0.10795E+03_JPRB,0.90019E+02_JPRB,0.82092E+02_JPRB, &
+ & 0.10255E+03_JPRB,0.12296E+03_JPRB,0.14315E+03_JPRB,0.16327E+03_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.14418E+03_JPRB,0.12620E+03_JPRB,0.10822E+03_JPRB,0.90248E+02_JPRB,0.81037E+02_JPRB, &
+ & 0.10121E+03_JPRB,0.12133E+03_JPRB,0.14124E+03_JPRB,0.16108E+03_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.14437E+03_JPRB,0.12637E+03_JPRB,0.10836E+03_JPRB,0.90358E+02_JPRB,0.80556E+02_JPRB, &
+ & 0.10057E+03_JPRB,0.12052E+03_JPRB,0.14027E+03_JPRB,0.15994E+03_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.17174E+03_JPRB,0.15031E+03_JPRB,0.12887E+03_JPRB,0.10744E+03_JPRB,0.10459E+03_JPRB, &
+ & 0.13069E+03_JPRB,0.15672E+03_JPRB,0.18250E+03_JPRB,0.20866E+03_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.17281E+03_JPRB,0.15124E+03_JPRB,0.12968E+03_JPRB,0.10811E+03_JPRB,0.10205E+03_JPRB, &
+ & 0.12751E+03_JPRB,0.15290E+03_JPRB,0.17802E+03_JPRB,0.20356E+03_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.17366E+03_JPRB,0.15199E+03_JPRB,0.13032E+03_JPRB,0.10865E+03_JPRB,0.10020E+03_JPRB, &
+ & 0.12519E+03_JPRB,0.15010E+03_JPRB,0.17475E+03_JPRB,0.19982E+03_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.17410E+03_JPRB,0.15237E+03_JPRB,0.13065E+03_JPRB,0.10893E+03_JPRB,0.98757E+02_JPRB, &
+ & 0.12337E+03_JPRB,0.14792E+03_JPRB,0.17221E+03_JPRB,0.19689E+03_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.17426E+03_JPRB,0.15251E+03_JPRB,0.13077E+03_JPRB,0.10903E+03_JPRB,0.97456E+02_JPRB, &
+ & 0.12171E+03_JPRB,0.14591E+03_JPRB,0.16984E+03_JPRB,0.19419E+03_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.20639E+03_JPRB,0.18062E+03_JPRB,0.15485E+03_JPRB,0.12907E+03_JPRB,0.12889E+03_JPRB, &
+ & 0.16105E+03_JPRB,0.19314E+03_JPRB,0.22488E+03_JPRB,0.25751E+03_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.20793E+03_JPRB,0.18197E+03_JPRB,0.15600E+03_JPRB,0.13004E+03_JPRB,0.12536E+03_JPRB, &
+ & 0.15664E+03_JPRB,0.18784E+03_JPRB,0.21870E+03_JPRB,0.25043E+03_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.20918E+03_JPRB,0.18307E+03_JPRB,0.15695E+03_JPRB,0.13084E+03_JPRB,0.12258E+03_JPRB, &
+ & 0.15317E+03_JPRB,0.18368E+03_JPRB,0.21386E+03_JPRB,0.24487E+03_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.20994E+03_JPRB,0.18373E+03_JPRB,0.15753E+03_JPRB,0.13132E+03_JPRB,0.12024E+03_JPRB, &
+ & 0.15023E+03_JPRB,0.18014E+03_JPRB,0.20974E+03_JPRB,0.24016E+03_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.21017E+03_JPRB,0.18393E+03_JPRB,0.15770E+03_JPRB,0.13147E+03_JPRB,0.11817E+03_JPRB, &
+ & 0.14763E+03_JPRB,0.17700E+03_JPRB,0.20610E+03_JPRB,0.23592E+03_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.24808E+03_JPRB,0.21709E+03_JPRB,0.18610E+03_JPRB,0.15511E+03_JPRB,0.15824E+03_JPRB, &
+ & 0.19773E+03_JPRB,0.23715E+03_JPRB,0.27617E+03_JPRB,0.31647E+03_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.24976E+03_JPRB,0.21856E+03_JPRB,0.18737E+03_JPRB,0.15617E+03_JPRB,0.15364E+03_JPRB, &
+ & 0.19198E+03_JPRB,0.23024E+03_JPRB,0.26808E+03_JPRB,0.30723E+03_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.25153E+03_JPRB,0.22011E+03_JPRB,0.18870E+03_JPRB,0.15729E+03_JPRB,0.14986E+03_JPRB, &
+ & 0.18726E+03_JPRB,0.22456E+03_JPRB,0.26146E+03_JPRB,0.29964E+03_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.25266E+03_JPRB,0.22111E+03_JPRB,0.18956E+03_JPRB,0.15801E+03_JPRB,0.14651E+03_JPRB, &
+ & 0.18308E+03_JPRB,0.21955E+03_JPRB,0.25564E+03_JPRB,0.29297E+03_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.25306E+03_JPRB,0.22146E+03_JPRB,0.18986E+03_JPRB,0.15826E+03_JPRB,0.14346E+03_JPRB, &
+ & 0.17924E+03_JPRB,0.21492E+03_JPRB,0.25024E+03_JPRB,0.28677E+03_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.29758E+03_JPRB,0.26040E+03_JPRB,0.22322E+03_JPRB,0.18603E+03_JPRB,0.19348E+03_JPRB, &
+ & 0.24177E+03_JPRB,0.28996E+03_JPRB,0.33765E+03_JPRB,0.38707E+03_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.29980E+03_JPRB,0.26234E+03_JPRB,0.22489E+03_JPRB,0.18744E+03_JPRB,0.18763E+03_JPRB, &
+ & 0.23446E+03_JPRB,0.28116E+03_JPRB,0.32742E+03_JPRB,0.37536E+03_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.30182E+03_JPRB,0.26412E+03_JPRB,0.22641E+03_JPRB,0.18871E+03_JPRB,0.18264E+03_JPRB, &
+ & 0.22823E+03_JPRB,0.27370E+03_JPRB,0.31874E+03_JPRB,0.36539E+03_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.30335E+03_JPRB,0.26546E+03_JPRB,0.22757E+03_JPRB,0.18968E+03_JPRB,0.17814E+03_JPRB, &
+ & 0.22260E+03_JPRB,0.26695E+03_JPRB,0.31086E+03_JPRB,0.35637E+03_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.30399E+03_JPRB,0.26602E+03_JPRB,0.22805E+03_JPRB,0.19008E+03_JPRB,0.17393E+03_JPRB, &
+ & 0.21734E+03_JPRB,0.26062E+03_JPRB,0.30347E+03_JPRB,0.34789E+03_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.35657E+03_JPRB,0.31201E+03_JPRB,0.26745E+03_JPRB,0.22289E+03_JPRB,0.23471E+03_JPRB, &
+ & 0.29329E+03_JPRB,0.35175E+03_JPRB,0.40960E+03_JPRB,0.46960E+03_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.35941E+03_JPRB,0.31450E+03_JPRB,0.26959E+03_JPRB,0.22468E+03_JPRB,0.22747E+03_JPRB, &
+ & 0.28425E+03_JPRB,0.34089E+03_JPRB,0.39700E+03_JPRB,0.45514E+03_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.36173E+03_JPRB,0.31654E+03_JPRB,0.27134E+03_JPRB,0.22614E+03_JPRB,0.22110E+03_JPRB, &
+ & 0.27628E+03_JPRB,0.33132E+03_JPRB,0.38584E+03_JPRB,0.44234E+03_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.36337E+03_JPRB,0.31797E+03_JPRB,0.27257E+03_JPRB,0.22717E+03_JPRB,0.21518E+03_JPRB, &
+ & 0.26889E+03_JPRB,0.32246E+03_JPRB,0.37553E+03_JPRB,0.43052E+03_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.36404E+03_JPRB,0.31855E+03_JPRB,0.27307E+03_JPRB,0.22759E+03_JPRB,0.20959E+03_JPRB, &
+ & 0.26189E+03_JPRB,0.31406E+03_JPRB,0.36572E+03_JPRB,0.41925E+03_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.42778E+03_JPRB,0.37432E+03_JPRB,0.32086E+03_JPRB,0.26740E+03_JPRB,0.27872E+03_JPRB, &
+ & 0.34830E+03_JPRB,0.41771E+03_JPRB,0.48646E+03_JPRB,0.55765E+03_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.43110E+03_JPRB,0.37723E+03_JPRB,0.32336E+03_JPRB,0.26948E+03_JPRB,0.27023E+03_JPRB, &
+ & 0.33769E+03_JPRB,0.40499E+03_JPRB,0.47168E+03_JPRB,0.54065E+03_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.43351E+03_JPRB,0.37933E+03_JPRB,0.32516E+03_JPRB,0.27099E+03_JPRB,0.26235E+03_JPRB, &
+ & 0.32784E+03_JPRB,0.39315E+03_JPRB,0.45790E+03_JPRB,0.52488E+03_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.43444E+03_JPRB,0.38015E+03_JPRB,0.32587E+03_JPRB,0.27158E+03_JPRB,0.25502E+03_JPRB, &
+ & 0.31866E+03_JPRB,0.38217E+03_JPRB,0.44507E+03_JPRB,0.51019E+03_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.43455E+03_JPRB,0.38025E+03_JPRB,0.32595E+03_JPRB,0.27165E+03_JPRB,0.24835E+03_JPRB, &
+ & 0.31008E+03_JPRB,0.37185E+03_JPRB,0.43305E+03_JPRB,0.49635E+03_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.51115E+03_JPRB,0.44727E+03_JPRB,0.38338E+03_JPRB,0.31950E+03_JPRB,0.32868E+03_JPRB, &
+ & 0.41075E+03_JPRB,0.49264E+03_JPRB,0.57375E+03_JPRB,0.65765E+03_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.51481E+03_JPRB,0.45047E+03_JPRB,0.38614E+03_JPRB,0.32180E+03_JPRB,0.31846E+03_JPRB, &
+ & 0.39795E+03_JPRB,0.47726E+03_JPRB,0.55589E+03_JPRB,0.63715E+03_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.51667E+03_JPRB,0.45210E+03_JPRB,0.38753E+03_JPRB,0.32296E+03_JPRB,0.30906E+03_JPRB, &
+ & 0.38614E+03_JPRB,0.46310E+03_JPRB,0.53942E+03_JPRB,0.61825E+03_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.51678E+03_JPRB,0.45219E+03_JPRB,0.38761E+03_JPRB,0.32303E+03_JPRB,0.30046E+03_JPRB, &
+ & 0.37494E+03_JPRB,0.44968E+03_JPRB,0.52372E+03_JPRB,0.60018E+03_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.51600E+03_JPRB,0.45151E+03_JPRB,0.38702E+03_JPRB,0.32254E+03_JPRB,0.29255E+03_JPRB, &
+ & 0.36403E+03_JPRB,0.43655E+03_JPRB,0.50852E+03_JPRB,0.58277E+03_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.60779E+03_JPRB,0.53183E+03_JPRB,0.45587E+03_JPRB,0.37990E+03_JPRB,0.38498E+03_JPRB, &
+ & 0.48109E+03_JPRB,0.57702E+03_JPRB,0.67207E+03_JPRB,0.77032E+03_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.61089E+03_JPRB,0.53454E+03_JPRB,0.45819E+03_JPRB,0.38184E+03_JPRB,0.37288E+03_JPRB, &
+ & 0.46566E+03_JPRB,0.55850E+03_JPRB,0.65053E+03_JPRB,0.74557E+03_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.61168E+03_JPRB,0.53523E+03_JPRB,0.45878E+03_JPRB,0.38233E+03_JPRB,0.36190E+03_JPRB, &
+ & 0.45112E+03_JPRB,0.54103E+03_JPRB,0.63023E+03_JPRB,0.72223E+03_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.61073E+03_JPRB,0.53440E+03_JPRB,0.45807E+03_JPRB,0.38174E+03_JPRB,0.35168E+03_JPRB, &
+ & 0.43693E+03_JPRB,0.52405E+03_JPRB,0.61044E+03_JPRB,0.69951E+03_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.60852E+03_JPRB,0.53247E+03_JPRB,0.45641E+03_JPRB,0.38036E+03_JPRB,0.34198E+03_JPRB, &
+ & 0.42302E+03_JPRB,0.50734E+03_JPRB,0.59097E+03_JPRB,0.67714E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     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.
+!     -----------------------------------------------------------------
+
+KB(:, 1,13, 1) = (/ &
+ & 0.10554E-06_JPRB,0.38596E-04_JPRB,0.65402E-04_JPRB,0.88540E-04_JPRB,0.19601E-03_JPRB /)  
+KB(:, 2,13, 1) = (/ &
+ & 0.10479E-06_JPRB,0.43672E-04_JPRB,0.74889E-04_JPRB,0.10118E-03_JPRB,0.22146E-03_JPRB /)  
+KB(:, 3,13, 1) = (/ &
+ & 0.10429E-06_JPRB,0.49418E-04_JPRB,0.85429E-04_JPRB,0.11557E-03_JPRB,0.24448E-03_JPRB /)  
+KB(:, 4,13, 1) = (/ &
+ & 0.10232E-06_JPRB,0.55802E-04_JPRB,0.96459E-04_JPRB,0.13167E-03_JPRB,0.27001E-03_JPRB /)  
+KB(:, 5,13, 1) = (/ &
+ & 0.99013E-07_JPRB,0.62996E-04_JPRB,0.10900E-03_JPRB,0.14834E-03_JPRB,0.29917E-03_JPRB /)  
+KB(:, 1,14, 1) = (/ &
+ & 0.85136E-07_JPRB,0.31943E-04_JPRB,0.54402E-04_JPRB,0.73887E-04_JPRB,0.15895E-03_JPRB /)  
+KB(:, 2,14, 1) = (/ &
+ & 0.84597E-07_JPRB,0.36196E-04_JPRB,0.62429E-04_JPRB,0.84479E-04_JPRB,0.17749E-03_JPRB /)  
+KB(:, 3,14, 1) = (/ &
+ & 0.83629E-07_JPRB,0.40982E-04_JPRB,0.71126E-04_JPRB,0.96573E-04_JPRB,0.19740E-03_JPRB /)  
+KB(:, 4,14, 1) = (/ &
+ & 0.82310E-07_JPRB,0.46344E-04_JPRB,0.80458E-04_JPRB,0.10984E-03_JPRB,0.21847E-03_JPRB /)  
+KB(:, 5,14, 1) = (/ &
+ & 0.78709E-07_JPRB,0.52252E-04_JPRB,0.90989E-04_JPRB,0.12394E-03_JPRB,0.24281E-03_JPRB /)  
+KB(:, 1,15, 1) = (/ &
+ & 0.68497E-07_JPRB,0.26393E-04_JPRB,0.45164E-04_JPRB,0.61570E-04_JPRB,0.12493E-03_JPRB /)  
+KB(:, 2,15, 1) = (/ &
+ & 0.68062E-07_JPRB,0.29936E-04_JPRB,0.51919E-04_JPRB,0.70387E-04_JPRB,0.13953E-03_JPRB /)  
+KB(:, 3,15, 1) = (/ &
+ & 0.66766E-07_JPRB,0.33863E-04_JPRB,0.59056E-04_JPRB,0.80693E-04_JPRB,0.15653E-03_JPRB /)  
+KB(:, 4,15, 1) = (/ &
+ & 0.65636E-07_JPRB,0.38294E-04_JPRB,0.66885E-04_JPRB,0.91555E-04_JPRB,0.17510E-03_JPRB /)  
+KB(:, 5,15, 1) = (/ &
+ & 0.62711E-07_JPRB,0.43189E-04_JPRB,0.75756E-04_JPRB,0.10355E-03_JPRB,0.19439E-03_JPRB /)  
+KB(:, 1,16, 1) = (/ &
+ & 0.55083E-07_JPRB,0.21761E-04_JPRB,0.37484E-04_JPRB,0.51301E-04_JPRB,0.97875E-04_JPRB /)  
+KB(:, 2,16, 1) = (/ &
+ & 0.54095E-07_JPRB,0.24670E-04_JPRB,0.43084E-04_JPRB,0.58639E-04_JPRB,0.10996E-03_JPRB /)  
+KB(:, 3,16, 1) = (/ &
+ & 0.53340E-07_JPRB,0.27925E-04_JPRB,0.48976E-04_JPRB,0.67234E-04_JPRB,0.12415E-03_JPRB /)  
+KB(:, 4,16, 1) = (/ &
+ & 0.51412E-07_JPRB,0.31588E-04_JPRB,0.55576E-04_JPRB,0.76352E-04_JPRB,0.13939E-03_JPRB /)  
+KB(:, 5,16, 1) = (/ &
+ & 0.49341E-07_JPRB,0.35677E-04_JPRB,0.62937E-04_JPRB,0.86363E-04_JPRB,0.15543E-03_JPRB /)  
+KB(:, 1,17, 1) = (/ &
+ & 0.44022E-07_JPRB,0.17963E-04_JPRB,0.31102E-04_JPRB,0.42604E-04_JPRB,0.78290E-04_JPRB /)  
+KB(:, 2,17, 1) = (/ &
+ & 0.43167E-07_JPRB,0.20382E-04_JPRB,0.35754E-04_JPRB,0.48875E-04_JPRB,0.87941E-04_JPRB /)  
+KB(:, 3,17, 1) = (/ &
+ & 0.42210E-07_JPRB,0.23091E-04_JPRB,0.40674E-04_JPRB,0.56059E-04_JPRB,0.99257E-04_JPRB /)  
+KB(:, 4,17, 1) = (/ &
+ & 0.40402E-07_JPRB,0.26125E-04_JPRB,0.46162E-04_JPRB,0.63586E-04_JPRB,0.11166E-03_JPRB /)  
+KB(:, 5,17, 1) = (/ &
+ & 0.38532E-07_JPRB,0.29494E-04_JPRB,0.52327E-04_JPRB,0.71960E-04_JPRB,0.12480E-03_JPRB /)  
+KB(:, 1,18, 1) = (/ &
+ & 0.34937E-07_JPRB,0.14903E-04_JPRB,0.25868E-04_JPRB,0.35503E-04_JPRB,0.63368E-04_JPRB /)  
+KB(:, 2,18, 1) = (/ &
+ & 0.34308E-07_JPRB,0.16923E-04_JPRB,0.29781E-04_JPRB,0.40789E-04_JPRB,0.71115E-04_JPRB /)  
+KB(:, 3,18, 1) = (/ &
+ & 0.32995E-07_JPRB,0.19171E-04_JPRB,0.33872E-04_JPRB,0.46810E-04_JPRB,0.80302E-04_JPRB /)  
+KB(:, 4,18, 1) = (/ &
+ & 0.31654E-07_JPRB,0.21679E-04_JPRB,0.38468E-04_JPRB,0.53048E-04_JPRB,0.90431E-04_JPRB /)  
+KB(:, 5,18, 1) = (/ &
+ & 0.30282E-07_JPRB,0.24491E-04_JPRB,0.43596E-04_JPRB,0.60078E-04_JPRB,0.10133E-03_JPRB /)  
+KB(:, 1,19, 1) = (/ &
+ & 0.27971E-07_JPRB,0.12385E-04_JPRB,0.21549E-04_JPRB,0.29618E-04_JPRB,0.51732E-04_JPRB /)  
+KB(:, 2,19, 1) = (/ &
+ & 0.27128E-07_JPRB,0.14042E-04_JPRB,0.24826E-04_JPRB,0.34047E-04_JPRB,0.58064E-04_JPRB /)  
+KB(:, 3,19, 1) = (/ &
+ & 0.26018E-07_JPRB,0.15920E-04_JPRB,0.28221E-04_JPRB,0.39072E-04_JPRB,0.65495E-04_JPRB /)  
+KB(:, 4,19, 1) = (/ &
+ & 0.24717E-07_JPRB,0.18017E-04_JPRB,0.32056E-04_JPRB,0.44285E-04_JPRB,0.73859E-04_JPRB /)  
+KB(:, 5,19, 1) = (/ &
+ & 0.23859E-07_JPRB,0.20360E-04_JPRB,0.36341E-04_JPRB,0.50170E-04_JPRB,0.82944E-04_JPRB /)  
+KB(:, 1,20, 1) = (/ &
+ & 0.22529E-07_JPRB,0.10336E-04_JPRB,0.17999E-04_JPRB,0.24776E-04_JPRB,0.42602E-04_JPRB /)  
+KB(:, 2,20, 1) = (/ &
+ & 0.21733E-07_JPRB,0.11685E-04_JPRB,0.20769E-04_JPRB,0.28503E-04_JPRB,0.47833E-04_JPRB /)  
+KB(:, 3,20, 1) = (/ &
+ & 0.20791E-07_JPRB,0.13280E-04_JPRB,0.23571E-04_JPRB,0.32654E-04_JPRB,0.53995E-04_JPRB /)  
+KB(:, 4,20, 1) = (/ &
+ & 0.19663E-07_JPRB,0.15029E-04_JPRB,0.26788E-04_JPRB,0.37066E-04_JPRB,0.60944E-04_JPRB /)  
+KB(:, 5,20, 1) = (/ &
+ & 0.19169E-07_JPRB,0.16975E-04_JPRB,0.30353E-04_JPRB,0.41996E-04_JPRB,0.68344E-04_JPRB /)  
+KB(:, 1,21, 1) = (/ &
+ & 0.18148E-07_JPRB,0.86039E-05_JPRB,0.15041E-04_JPRB,0.20717E-04_JPRB,0.35143E-04_JPRB /)  
+KB(:, 2,21, 1) = (/ &
+ & 0.17465E-07_JPRB,0.97287E-05_JPRB,0.17348E-04_JPRB,0.23862E-04_JPRB,0.39508E-04_JPRB /)  
+KB(:, 3,21, 1) = (/ &
+ & 0.16537E-07_JPRB,0.11073E-04_JPRB,0.19687E-04_JPRB,0.27271E-04_JPRB,0.44652E-04_JPRB /)  
+KB(:, 4,21, 1) = (/ &
+ & 0.15860E-07_JPRB,0.12526E-04_JPRB,0.22388E-04_JPRB,0.31015E-04_JPRB,0.50269E-04_JPRB /)  
+KB(:, 5,21, 1) = (/ &
+ & 0.15452E-07_JPRB,0.14158E-04_JPRB,0.25339E-04_JPRB,0.35141E-04_JPRB,0.56327E-04_JPRB /)  
+KB(:, 1,22, 1) = (/ &
+ & 0.14542E-07_JPRB,0.71807E-05_JPRB,0.12682E-04_JPRB,0.17473E-04_JPRB,0.29179E-04_JPRB /)  
+KB(:, 2,22, 1) = (/ &
+ & 0.13967E-07_JPRB,0.81574E-05_JPRB,0.14550E-04_JPRB,0.20147E-04_JPRB,0.32795E-04_JPRB /)  
+KB(:, 3,22, 1) = (/ &
+ & 0.13241E-07_JPRB,0.92839E-05_JPRB,0.16547E-04_JPRB,0.22971E-04_JPRB,0.37036E-04_JPRB /)  
+KB(:, 4,22, 1) = (/ &
+ & 0.12746E-07_JPRB,0.10522E-04_JPRB,0.18840E-04_JPRB,0.26114E-04_JPRB,0.41617E-04_JPRB /)  
+KB(:, 5,22, 1) = (/ &
+ & 0.12426E-07_JPRB,0.11886E-04_JPRB,0.21313E-04_JPRB,0.29604E-04_JPRB,0.46709E-04_JPRB /)  
+KB(:, 1,23, 1) = (/ &
+ & 0.11724E-07_JPRB,0.60196E-05_JPRB,0.10703E-04_JPRB,0.14753E-04_JPRB,0.24143E-04_JPRB /)  
+KB(:, 2,23, 1) = (/ &
+ & 0.11124E-07_JPRB,0.68499E-05_JPRB,0.12233E-04_JPRB,0.17009E-04_JPRB,0.27147E-04_JPRB /)  
+KB(:, 3,23, 1) = (/ &
+ & 0.10552E-07_JPRB,0.77897E-05_JPRB,0.13927E-04_JPRB,0.19362E-04_JPRB,0.30661E-04_JPRB /)  
+KB(:, 4,23, 1) = (/ &
+ & 0.10213E-07_JPRB,0.88398E-05_JPRB,0.15850E-04_JPRB,0.22024E-04_JPRB,0.34519E-04_JPRB /)  
+KB(:, 5,23, 1) = (/ &
+ & 0.99627E-08_JPRB,0.99755E-05_JPRB,0.17919E-04_JPRB,0.24944E-04_JPRB,0.38730E-04_JPRB /)  
+KB(:, 1,24, 1) = (/ &
+ & 0.93835E-08_JPRB,0.50505E-05_JPRB,0.90298E-05_JPRB,0.12450E-04_JPRB,0.19940E-04_JPRB /)  
+KB(:, 2,24, 1) = (/ &
+ & 0.88722E-08_JPRB,0.57494E-05_JPRB,0.10287E-04_JPRB,0.14351E-04_JPRB,0.22450E-04_JPRB /)  
+KB(:, 3,24, 1) = (/ &
+ & 0.84719E-08_JPRB,0.65374E-05_JPRB,0.11727E-04_JPRB,0.16329E-04_JPRB,0.25378E-04_JPRB /)  
+KB(:, 4,24, 1) = (/ &
+ & 0.81924E-08_JPRB,0.74186E-05_JPRB,0.13334E-04_JPRB,0.18567E-04_JPRB,0.28560E-04_JPRB /)  
+KB(:, 5,24, 1) = (/ &
+ & 0.79194E-08_JPRB,0.83719E-05_JPRB,0.15056E-04_JPRB,0.21003E-04_JPRB,0.31990E-04_JPRB /)  
+KB(:, 1,25, 1) = (/ &
+ & 0.74535E-08_JPRB,0.42437E-05_JPRB,0.76220E-05_JPRB,0.10523E-04_JPRB,0.16531E-04_JPRB /)  
+KB(:, 2,25, 1) = (/ &
+ & 0.70516E-08_JPRB,0.48300E-05_JPRB,0.86667E-05_JPRB,0.12089E-04_JPRB,0.18616E-04_JPRB /)  
+KB(:, 3,25, 1) = (/ &
+ & 0.67746E-08_JPRB,0.54941E-05_JPRB,0.98927E-05_JPRB,0.13790E-04_JPRB,0.21024E-04_JPRB /)  
+KB(:, 4,25, 1) = (/ &
+ & 0.65375E-08_JPRB,0.62357E-05_JPRB,0.11233E-04_JPRB,0.15662E-04_JPRB,0.23642E-04_JPRB /)  
+KB(:, 5,25, 1) = (/ &
+ & 0.63001E-08_JPRB,0.70282E-05_JPRB,0.12669E-04_JPRB,0.17695E-04_JPRB,0.26478E-04_JPRB /)  
+KB(:, 1,26, 1) = (/ &
+ & 0.59520E-08_JPRB,0.35739E-05_JPRB,0.64350E-05_JPRB,0.89330E-05_JPRB,0.13754E-04_JPRB /)  
+KB(:, 2,26, 1) = (/ &
+ & 0.56644E-08_JPRB,0.40797E-05_JPRB,0.73291E-05_JPRB,0.10228E-04_JPRB,0.15489E-04_JPRB /)  
+KB(:, 3,26, 1) = (/ &
+ & 0.54229E-08_JPRB,0.46366E-05_JPRB,0.83664E-05_JPRB,0.11659E-04_JPRB,0.17486E-04_JPRB /)  
+KB(:, 4,26, 1) = (/ &
+ & 0.52155E-08_JPRB,0.52546E-05_JPRB,0.94829E-05_JPRB,0.13246E-04_JPRB,0.19643E-04_JPRB /)  
+KB(:, 5,26, 1) = (/ &
+ & 0.50026E-08_JPRB,0.59134E-05_JPRB,0.10676E-04_JPRB,0.14933E-04_JPRB,0.21979E-04_JPRB /)  
+KB(:, 1,27, 1) = (/ &
+ & 0.47347E-08_JPRB,0.30117E-05_JPRB,0.54223E-05_JPRB,0.75810E-05_JPRB,0.11424E-04_JPRB /)  
+KB(:, 2,27, 1) = (/ &
+ & 0.45215E-08_JPRB,0.34421E-05_JPRB,0.61959E-05_JPRB,0.86619E-05_JPRB,0.12884E-04_JPRB /)  
+KB(:, 3,27, 1) = (/ &
+ & 0.43334E-08_JPRB,0.39143E-05_JPRB,0.70702E-05_JPRB,0.98761E-05_JPRB,0.14543E-04_JPRB /)  
+KB(:, 4,27, 1) = (/ &
+ & 0.41350E-08_JPRB,0.44275E-05_JPRB,0.80005E-05_JPRB,0.11195E-04_JPRB,0.16319E-04_JPRB /)  
+KB(:, 5,27, 1) = (/ &
+ & 0.39653E-08_JPRB,0.49769E-05_JPRB,0.89931E-05_JPRB,0.12598E-04_JPRB,0.18160E-04_JPRB /)  
+KB(:, 1,28, 1) = (/ &
+ & 0.37948E-08_JPRB,0.25415E-05_JPRB,0.45819E-05_JPRB,0.64336E-05_JPRB,0.94956E-05_JPRB /)  
+KB(:, 2,28, 1) = (/ &
+ & 0.36083E-08_JPRB,0.29038E-05_JPRB,0.52426E-05_JPRB,0.73400E-05_JPRB,0.10719E-04_JPRB /)  
+KB(:, 3,28, 1) = (/ &
+ & 0.34418E-08_JPRB,0.33017E-05_JPRB,0.59733E-05_JPRB,0.83575E-05_JPRB,0.12066E-04_JPRB /)  
+KB(:, 4,28, 1) = (/ &
+ & 0.32636E-08_JPRB,0.37297E-05_JPRB,0.67493E-05_JPRB,0.94558E-05_JPRB,0.13468E-04_JPRB /)  
+KB(:, 5,28, 1) = (/ &
+ & 0.31340E-08_JPRB,0.41873E-05_JPRB,0.75759E-05_JPRB,0.10620E-04_JPRB,0.14953E-04_JPRB /)  
+KB(:, 1,29, 1) = (/ &
+ & 0.30121E-08_JPRB,0.21536E-05_JPRB,0.38841E-05_JPRB,0.54491E-05_JPRB,0.79090E-05_JPRB /)  
+KB(:, 2,29, 1) = (/ &
+ & 0.28775E-08_JPRB,0.24557E-05_JPRB,0.44467E-05_JPRB,0.62247E-05_JPRB,0.89148E-05_JPRB /)  
+KB(:, 3,29, 1) = (/ &
+ & 0.27196E-08_JPRB,0.27900E-05_JPRB,0.50543E-05_JPRB,0.70782E-05_JPRB,0.99943E-05_JPRB /)  
+KB(:, 4,29, 1) = (/ &
+ & 0.25798E-08_JPRB,0.31473E-05_JPRB,0.57011E-05_JPRB,0.79936E-05_JPRB,0.11135E-04_JPRB /)  
+KB(:, 5,29, 1) = (/ &
+ & 0.24785E-08_JPRB,0.35287E-05_JPRB,0.63894E-05_JPRB,0.89624E-05_JPRB,0.12357E-04_JPRB /)  
+KB(:, 1,30, 1) = (/ &
+ & 0.24034E-08_JPRB,0.18231E-05_JPRB,0.32945E-05_JPRB,0.46183E-05_JPRB,0.65837E-05_JPRB /)  
+KB(:, 2,30, 1) = (/ &
+ & 0.22702E-08_JPRB,0.20766E-05_JPRB,0.37671E-05_JPRB,0.52735E-05_JPRB,0.73875E-05_JPRB /)  
+KB(:, 3,30, 1) = (/ &
+ & 0.21551E-08_JPRB,0.23559E-05_JPRB,0.42744E-05_JPRB,0.59932E-05_JPRB,0.82665E-05_JPRB /)  
+KB(:, 4,30, 1) = (/ &
+ & 0.20397E-08_JPRB,0.26541E-05_JPRB,0.48137E-05_JPRB,0.67549E-05_JPRB,0.92071E-05_JPRB /)  
+KB(:, 5,30, 1) = (/ &
+ & 0.19208E-08_JPRB,0.29711E-05_JPRB,0.53880E-05_JPRB,0.75598E-05_JPRB,0.10211E-04_JPRB /)  
+KB(:, 1,31, 1) = (/ &
+ & 0.19116E-08_JPRB,0.15454E-05_JPRB,0.27957E-05_JPRB,0.39228E-05_JPRB,0.54664E-05_JPRB /)  
+KB(:, 2,31, 1) = (/ &
+ & 0.18045E-08_JPRB,0.17579E-05_JPRB,0.31938E-05_JPRB,0.44780E-05_JPRB,0.61205E-05_JPRB /)  
+KB(:, 3,31, 1) = (/ &
+ & 0.17015E-08_JPRB,0.19911E-05_JPRB,0.36167E-05_JPRB,0.50753E-05_JPRB,0.68523E-05_JPRB /)  
+KB(:, 4,31, 1) = (/ &
+ & 0.16042E-08_JPRB,0.22393E-05_JPRB,0.40666E-05_JPRB,0.57094E-05_JPRB,0.76260E-05_JPRB /)  
+KB(:, 5,31, 1) = (/ &
+ & 0.15189E-08_JPRB,0.25035E-05_JPRB,0.45439E-05_JPRB,0.63785E-05_JPRB,0.84562E-05_JPRB /)  
+KB(:, 1,32, 1) = (/ &
+ & 0.15134E-08_JPRB,0.13080E-05_JPRB,0.23763E-05_JPRB,0.33360E-05_JPRB,0.45382E-05_JPRB /)  
+KB(:, 2,32, 1) = (/ &
+ & 0.14254E-08_JPRB,0.14886E-05_JPRB,0.27086E-05_JPRB,0.37995E-05_JPRB,0.50938E-05_JPRB /)  
+KB(:, 3,32, 1) = (/ &
+ & 0.13478E-08_JPRB,0.16831E-05_JPRB,0.30605E-05_JPRB,0.42971E-05_JPRB,0.56933E-05_JPRB /)  
+KB(:, 4,32, 1) = (/ &
+ & 0.12726E-08_JPRB,0.18904E-05_JPRB,0.34353E-05_JPRB,0.48247E-05_JPRB,0.63353E-05_JPRB /)  
+KB(:, 5,32, 1) = (/ &
+ & 0.12027E-08_JPRB,0.21098E-05_JPRB,0.38318E-05_JPRB,0.53809E-05_JPRB,0.70302E-05_JPRB /)  
+KB(:, 1,33, 1) = (/ &
+ & 0.12024E-08_JPRB,0.11084E-05_JPRB,0.20193E-05_JPRB,0.28310E-05_JPRB,0.37849E-05_JPRB /)  
+KB(:, 2,33, 1) = (/ &
+ & 0.11338E-08_JPRB,0.12605E-05_JPRB,0.22949E-05_JPRB,0.32221E-05_JPRB,0.42458E-05_JPRB /)  
+KB(:, 3,33, 1) = (/ &
+ & 0.10678E-08_JPRB,0.14231E-05_JPRB,0.25881E-05_JPRB,0.36365E-05_JPRB,0.47460E-05_JPRB /)  
+KB(:, 4,33, 1) = (/ &
+ & 0.10052E-08_JPRB,0.15963E-05_JPRB,0.29010E-05_JPRB,0.40728E-05_JPRB,0.52804E-05_JPRB /)  
+KB(:, 5,33, 1) = (/ &
+ & 0.95946E-09_JPRB,0.17779E-05_JPRB,0.32301E-05_JPRB,0.45381E-05_JPRB,0.58547E-05_JPRB /)  
+KB(:, 1,34, 1) = (/ &
+ & 0.95750E-09_JPRB,0.93665E-06_JPRB,0.17068E-05_JPRB,0.23954E-05_JPRB,0.31611E-05_JPRB /)  
+KB(:, 2,34, 1) = (/ &
+ & 0.89991E-09_JPRB,0.10636E-05_JPRB,0.19366E-05_JPRB,0.27209E-05_JPRB,0.35440E-05_JPRB /)  
+KB(:, 3,34, 1) = (/ &
+ & 0.84944E-09_JPRB,0.11994E-05_JPRB,0.21804E-05_JPRB,0.30651E-05_JPRB,0.39600E-05_JPRB /)  
+KB(:, 4,34, 1) = (/ &
+ & 0.80863E-09_JPRB,0.13431E-05_JPRB,0.24406E-05_JPRB,0.34285E-05_JPRB,0.44045E-05_JPRB /)  
+KB(:, 5,34, 1) = (/ &
+ & 0.76697E-09_JPRB,0.14937E-05_JPRB,0.27138E-05_JPRB,0.38153E-05_JPRB,0.48739E-05_JPRB /)  
+KB(:, 1,35, 1) = (/ &
+ & 0.76931E-09_JPRB,0.78145E-06_JPRB,0.14243E-05_JPRB,0.20004E-05_JPRB,0.26088E-05_JPRB /)  
+KB(:, 2,35, 1) = (/ &
+ & 0.72554E-09_JPRB,0.88652E-06_JPRB,0.16140E-05_JPRB,0.22684E-05_JPRB,0.29255E-05_JPRB /)  
+KB(:, 3,35, 1) = (/ &
+ & 0.68677E-09_JPRB,0.99872E-06_JPRB,0.18159E-05_JPRB,0.25537E-05_JPRB,0.32672E-05_JPRB /)  
+KB(:, 4,35, 1) = (/ &
+ & 0.64986E-09_JPRB,0.11178E-05_JPRB,0.20312E-05_JPRB,0.28542E-05_JPRB,0.36304E-05_JPRB /)  
+KB(:, 5,35, 1) = (/ &
+ & 0.62177E-09_JPRB,0.12420E-05_JPRB,0.22566E-05_JPRB,0.31737E-05_JPRB,0.40187E-05_JPRB /)  
+KB(:, 1,36, 1) = (/ &
+ & 0.62245E-09_JPRB,0.64235E-06_JPRB,0.11709E-05_JPRB,0.16445E-05_JPRB,0.21213E-05_JPRB /)  
+KB(:, 2,36, 1) = (/ &
+ & 0.58696E-09_JPRB,0.72876E-06_JPRB,0.13266E-05_JPRB,0.18646E-05_JPRB,0.23798E-05_JPRB /)  
+KB(:, 3,36, 1) = (/ &
+ & 0.55693E-09_JPRB,0.82089E-06_JPRB,0.14927E-05_JPRB,0.20991E-05_JPRB,0.26600E-05_JPRB /)  
+KB(:, 4,36, 1) = (/ &
+ & 0.52934E-09_JPRB,0.91874E-06_JPRB,0.16695E-05_JPRB,0.23457E-05_JPRB,0.29575E-05_JPRB /)  
+KB(:, 5,36, 1) = (/ &
+ & 0.50585E-09_JPRB,0.10210E-05_JPRB,0.18549E-05_JPRB,0.26085E-05_JPRB,0.32758E-05_JPRB /)  
+KB(:, 1,37, 1) = (/ &
+ & 0.51156E-09_JPRB,0.51872E-06_JPRB,0.94550E-06_JPRB,0.13287E-05_JPRB,0.17089E-05_JPRB /)  
+KB(:, 2,37, 1) = (/ &
+ & 0.48258E-09_JPRB,0.58908E-06_JPRB,0.10722E-05_JPRB,0.15079E-05_JPRB,0.19187E-05_JPRB /)  
+KB(:, 3,37, 1) = (/ &
+ & 0.45694E-09_JPRB,0.66421E-06_JPRB,0.12078E-05_JPRB,0.16992E-05_JPRB,0.21456E-05_JPRB /)  
+KB(:, 4,37, 1) = (/ &
+ & 0.43502E-09_JPRB,0.74408E-06_JPRB,0.13520E-05_JPRB,0.19000E-05_JPRB,0.23876E-05_JPRB /)  
+KB(:, 5,37, 1) = (/ &
+ & 0.41517E-09_JPRB,0.82758E-06_JPRB,0.15034E-05_JPRB,0.21146E-05_JPRB,0.26473E-05_JPRB /)  
+KB(:, 1,38, 1) = (/ &
+ & 0.42094E-09_JPRB,0.41837E-06_JPRB,0.76260E-06_JPRB,0.10719E-05_JPRB,0.13756E-05_JPRB /)  
+KB(:, 2,38, 1) = (/ &
+ & 0.39700E-09_JPRB,0.47557E-06_JPRB,0.86572E-06_JPRB,0.12180E-05_JPRB,0.15462E-05_JPRB /)  
+KB(:, 3,38, 1) = (/ &
+ & 0.37563E-09_JPRB,0.53684E-06_JPRB,0.97613E-06_JPRB,0.13738E-05_JPRB,0.17289E-05_JPRB /)  
+KB(:, 4,38, 1) = (/ &
+ & 0.35783E-09_JPRB,0.60193E-06_JPRB,0.10936E-05_JPRB,0.15374E-05_JPRB,0.19252E-05_JPRB /)  
+KB(:, 5,38, 1) = (/ &
+ & 0.34107E-09_JPRB,0.67014E-06_JPRB,0.12173E-05_JPRB,0.17127E-05_JPRB,0.21369E-05_JPRB /)  
+KB(:, 1,39, 1) = (/ &
+ & 0.34635E-09_JPRB,0.33732E-06_JPRB,0.61492E-06_JPRB,0.86447E-06_JPRB,0.11055E-05_JPRB /)  
+KB(:, 2,39, 1) = (/ &
+ & 0.32654E-09_JPRB,0.38383E-06_JPRB,0.69869E-06_JPRB,0.98355E-06_JPRB,0.12440E-05_JPRB /)  
+KB(:, 3,39, 1) = (/ &
+ & 0.30909E-09_JPRB,0.43371E-06_JPRB,0.78869E-06_JPRB,0.11105E-05_JPRB,0.13924E-05_JPRB /)  
+KB(:, 4,39, 1) = (/ &
+ & 0.29425E-09_JPRB,0.48681E-06_JPRB,0.88446E-06_JPRB,0.12433E-05_JPRB,0.15526E-05_JPRB /)  
+KB(:, 5,39, 1) = (/ &
+ & 0.28000E-09_JPRB,0.54256E-06_JPRB,0.98550E-06_JPRB,0.13868E-05_JPRB,0.17238E-05_JPRB /)  
+KB(:, 1,40, 1) = (/ &
+ & 0.28731E-09_JPRB,0.26843E-06_JPRB,0.48915E-06_JPRB,0.68810E-06_JPRB,0.87867E-06_JPRB /)  
+KB(:, 2,40, 1) = (/ &
+ & 0.27089E-09_JPRB,0.30600E-06_JPRB,0.55698E-06_JPRB,0.78430E-06_JPRB,0.99075E-06_JPRB /)  
+KB(:, 3,40, 1) = (/ &
+ & 0.25607E-09_JPRB,0.34624E-06_JPRB,0.62966E-06_JPRB,0.88677E-06_JPRB,0.11107E-05_JPRB /)  
+KB(:, 4,40, 1) = (/ &
+ & 0.24372E-09_JPRB,0.38926E-06_JPRB,0.70732E-06_JPRB,0.99430E-06_JPRB,0.12402E-05_JPRB /)  
+KB(:, 5,40, 1) = (/ &
+ & 0.23176E-09_JPRB,0.43465E-06_JPRB,0.78943E-06_JPRB,0.11107E-05_JPRB,0.13787E-05_JPRB /)  
+KB(:, 1,41, 1) = (/ &
+ & 0.23903E-09_JPRB,0.21323E-06_JPRB,0.38855E-06_JPRB,0.54701E-06_JPRB,0.69781E-06_JPRB /)  
+KB(:, 2,41, 1) = (/ &
+ & 0.22487E-09_JPRB,0.24332E-06_JPRB,0.44328E-06_JPRB,0.62397E-06_JPRB,0.78774E-06_JPRB /)  
+KB(:, 3,41, 1) = (/ &
+ & 0.21236E-09_JPRB,0.27581E-06_JPRB,0.50170E-06_JPRB,0.70664E-06_JPRB,0.88427E-06_JPRB /)  
+KB(:, 4,41, 1) = (/ &
+ & 0.20204E-09_JPRB,0.31066E-06_JPRB,0.56435E-06_JPRB,0.79384E-06_JPRB,0.98899E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,41, 1) = (/ &
+ & 0.19209E-09_JPRB,0.34753E-06_JPRB,0.63119E-06_JPRB,0.88787E-06_JPRB,0.11007E-05_JPRB /)  
+KB(:, 1,42, 1) = (/ &
+ & 0.19868E-09_JPRB,0.16950E-06_JPRB,0.30885E-06_JPRB,0.43426E-06_JPRB,0.55336E-06_JPRB /)  
+KB(:, 2,42, 1) = (/ &
+ & 0.18681E-09_JPRB,0.19338E-06_JPRB,0.35250E-06_JPRB,0.49622E-06_JPRB,0.62628E-06_JPRB /)  
+KB(:, 3,42, 1) = (/ &
+ & 0.17649E-09_JPRB,0.21963E-06_JPRB,0.39950E-06_JPRB,0.56269E-06_JPRB,0.70396E-06_JPRB /)  
+KB(:, 4,42, 1) = (/ &
+ & 0.16753E-09_JPRB,0.24778E-06_JPRB,0.45013E-06_JPRB,0.63342E-06_JPRB,0.78770E-06_JPRB /)  
+KB(:, 5,42, 1) = (/ &
+ & 0.15930E-09_JPRB,0.27772E-06_JPRB,0.50439E-06_JPRB,0.70945E-06_JPRB,0.87783E-06_JPRB /)  
+KB(:, 1,43, 1) = (/ &
+ & 0.16577E-09_JPRB,0.13332E-06_JPRB,0.24323E-06_JPRB,0.34184E-06_JPRB,0.43594E-06_JPRB /)  
+KB(:, 2,43, 1) = (/ &
+ & 0.15597E-09_JPRB,0.15245E-06_JPRB,0.27801E-06_JPRB,0.39130E-06_JPRB,0.49460E-06_JPRB /)  
+KB(:, 3,43, 1) = (/ &
+ & 0.14721E-09_JPRB,0.17354E-06_JPRB,0.31584E-06_JPRB,0.44499E-06_JPRB,0.55705E-06_JPRB /)  
+KB(:, 4,43, 1) = (/ &
+ & 0.13936E-09_JPRB,0.19625E-06_JPRB,0.35661E-06_JPRB,0.50189E-06_JPRB,0.62398E-06_JPRB /)  
+KB(:, 5,43, 1) = (/ &
+ & 0.13255E-09_JPRB,0.22044E-06_JPRB,0.40034E-06_JPRB,0.56308E-06_JPRB,0.69634E-06_JPRB /)  
+KB(:, 1,44, 1) = (/ &
+ & 0.13861E-09_JPRB,0.10445E-06_JPRB,0.19058E-06_JPRB,0.26841E-06_JPRB,0.34233E-06_JPRB /)  
+KB(:, 2,44, 1) = (/ &
+ & 0.13027E-09_JPRB,0.11974E-06_JPRB,0.21836E-06_JPRB,0.30744E-06_JPRB,0.38897E-06_JPRB /)  
+KB(:, 3,44, 1) = (/ &
+ & 0.12290E-09_JPRB,0.13662E-06_JPRB,0.24864E-06_JPRB,0.35065E-06_JPRB,0.43916E-06_JPRB /)  
+KB(:, 4,44, 1) = (/ &
+ & 0.11611E-09_JPRB,0.15484E-06_JPRB,0.28155E-06_JPRB,0.39627E-06_JPRB,0.49273E-06_JPRB /)  
+KB(:, 5,44, 1) = (/ &
+ & 0.11042E-09_JPRB,0.17431E-06_JPRB,0.31666E-06_JPRB,0.44540E-06_JPRB,0.55087E-06_JPRB /)  
+KB(:, 1,45, 1) = (/ &
+ & 0.11581E-09_JPRB,0.81915E-07_JPRB,0.14915E-06_JPRB,0.21140E-06_JPRB,0.26987E-06_JPRB /)  
+KB(:, 2,45, 1) = (/ &
+ & 0.10906E-09_JPRB,0.94077E-07_JPRB,0.17143E-06_JPRB,0.24173E-06_JPRB,0.30586E-06_JPRB /)  
+KB(:, 3,45, 1) = (/ &
+ & 0.10254E-09_JPRB,0.10745E-06_JPRB,0.19582E-06_JPRB,0.27606E-06_JPRB,0.34593E-06_JPRB /)  
+KB(:, 4,45, 1) = (/ &
+ & 0.96757E-10_JPRB,0.12205E-06_JPRB,0.22201E-06_JPRB,0.31271E-06_JPRB,0.38876E-06_JPRB /)  
+KB(:, 5,45, 1) = (/ &
+ & 0.91979E-10_JPRB,0.13772E-06_JPRB,0.25015E-06_JPRB,0.35208E-06_JPRB,0.43561E-06_JPRB /)  
+KB(:, 1,46, 1) = (/ &
+ & 0.96889E-10_JPRB,0.64116E-07_JPRB,0.11708E-06_JPRB,0.16455E-06_JPRB,0.21036E-06_JPRB /)  
+KB(:, 2,46, 1) = (/ &
+ & 0.91281E-10_JPRB,0.73641E-07_JPRB,0.13436E-06_JPRB,0.18895E-06_JPRB,0.23951E-06_JPRB /)  
+KB(:, 3,46, 1) = (/ &
+ & 0.85830E-10_JPRB,0.84161E-07_JPRB,0.15360E-06_JPRB,0.21643E-06_JPRB,0.27176E-06_JPRB /)  
+KB(:, 4,46, 1) = (/ &
+ & 0.81048E-10_JPRB,0.95867E-07_JPRB,0.17447E-06_JPRB,0.24582E-06_JPRB,0.30613E-06_JPRB /)  
+KB(:, 5,46, 1) = (/ &
+ & 0.76712E-10_JPRB,0.10844E-06_JPRB,0.19706E-06_JPRB,0.27743E-06_JPRB,0.34329E-06_JPRB /)  
+KB(:, 1,47, 1) = (/ &
+ & 0.81516E-10_JPRB,0.49698E-07_JPRB,0.90596E-07_JPRB,0.12727E-06_JPRB,0.16313E-06_JPRB /)  
+KB(:, 2,47, 1) = (/ &
+ & 0.76609E-10_JPRB,0.57132E-07_JPRB,0.10433E-06_JPRB,0.14694E-06_JPRB,0.18672E-06_JPRB /)  
+KB(:, 3,47, 1) = (/ &
+ & 0.71975E-10_JPRB,0.65534E-07_JPRB,0.11955E-06_JPRB,0.16850E-06_JPRB,0.21215E-06_JPRB /)  
+KB(:, 4,47, 1) = (/ &
+ & 0.67908E-10_JPRB,0.74829E-07_JPRB,0.13619E-06_JPRB,0.19209E-06_JPRB,0.23959E-06_JPRB /)  
+KB(:, 5,47, 1) = (/ &
+ & 0.64117E-10_JPRB,0.84872E-07_JPRB,0.15433E-06_JPRB,0.21733E-06_JPRB,0.26915E-06_JPRB /)  
+KB(:, 1,48, 1) = (/ &
+ & 0.68429E-10_JPRB,0.38715E-07_JPRB,0.69854E-07_JPRB,0.98377E-07_JPRB,0.12619E-06_JPRB /)  
+KB(:, 2,48, 1) = (/ &
+ & 0.64236E-10_JPRB,0.44375E-07_JPRB,0.80895E-07_JPRB,0.11471E-06_JPRB,0.14604E-06_JPRB /)  
+KB(:, 3,48, 1) = (/ &
+ & 0.60510E-10_JPRB,0.51025E-07_JPRB,0.92977E-07_JPRB,0.13123E-06_JPRB,0.16542E-06_JPRB /)  
+KB(:, 4,48, 1) = (/ &
+ & 0.56851E-10_JPRB,0.58345E-07_JPRB,0.10633E-06_JPRB,0.14991E-06_JPRB,0.18745E-06_JPRB /)  
+KB(:, 5,48, 1) = (/ &
+ & 0.53674E-10_JPRB,0.66346E-07_JPRB,0.12070E-06_JPRB,0.17001E-06_JPRB,0.21095E-06_JPRB /)  
+KB(:, 1,49, 1) = (/ &
+ & 0.57387E-10_JPRB,0.29800E-07_JPRB,0.53817E-07_JPRB,0.75906E-07_JPRB,0.97710E-07_JPRB /)  
+KB(:, 2,49, 1) = (/ &
+ & 0.53960E-10_JPRB,0.34500E-07_JPRB,0.63205E-07_JPRB,0.88655E-07_JPRB,0.11310E-06_JPRB /)  
+KB(:, 3,49, 1) = (/ &
+ & 0.50740E-10_JPRB,0.39684E-07_JPRB,0.72502E-07_JPRB,0.10193E-06_JPRB,0.12892E-06_JPRB /)  
+KB(:, 4,49, 1) = (/ &
+ & 0.47710E-10_JPRB,0.45418E-07_JPRB,0.82941E-07_JPRB,0.11692E-06_JPRB,0.14649E-06_JPRB /)  
+KB(:, 5,49, 1) = (/ &
+ & 0.45050E-10_JPRB,0.51797E-07_JPRB,0.94320E-07_JPRB,0.13296E-06_JPRB,0.16526E-06_JPRB /)  
+KB(:, 1,50, 1) = (/ &
+ & 0.48010E-10_JPRB,0.22999E-07_JPRB,0.41682E-07_JPRB,0.58975E-07_JPRB,0.75898E-07_JPRB /)  
+KB(:, 2,50, 1) = (/ &
+ & 0.45282E-10_JPRB,0.26917E-07_JPRB,0.48929E-07_JPRB,0.68765E-07_JPRB,0.87983E-07_JPRB /)  
+KB(:, 3,50, 1) = (/ &
+ & 0.42531E-10_JPRB,0.30879E-07_JPRB,0.56406E-07_JPRB,0.79593E-07_JPRB,0.10109E-06_JPRB /)  
+KB(:, 4,50, 1) = (/ &
+ & 0.40002E-10_JPRB,0.35470E-07_JPRB,0.64706E-07_JPRB,0.91312E-07_JPRB,0.11473E-06_JPRB /)  
+KB(:, 5,50, 1) = (/ &
+ & 0.37674E-10_JPRB,0.40542E-07_JPRB,0.73834E-07_JPRB,0.10412E-06_JPRB,0.12967E-06_JPRB /)  
+KB(:, 1,51, 1) = (/ &
+ & 0.40094E-10_JPRB,0.17810E-07_JPRB,0.32412E-07_JPRB,0.45985E-07_JPRB,0.59041E-07_JPRB /)  
+KB(:, 2,51, 1) = (/ &
+ & 0.37901E-10_JPRB,0.21013E-07_JPRB,0.37921E-07_JPRB,0.53479E-07_JPRB,0.68479E-07_JPRB /)  
+KB(:, 3,51, 1) = (/ &
+ & 0.35584E-10_JPRB,0.24100E-07_JPRB,0.43988E-07_JPRB,0.62409E-07_JPRB,0.79311E-07_JPRB /)  
+KB(:, 4,51, 1) = (/ &
+ & 0.33516E-10_JPRB,0.27737E-07_JPRB,0.50544E-07_JPRB,0.71436E-07_JPRB,0.89912E-07_JPRB /)  
+KB(:, 5,51, 1) = (/ &
+ & 0.31503E-10_JPRB,0.31738E-07_JPRB,0.57889E-07_JPRB,0.81591E-07_JPRB,0.10195E-06_JPRB /)  
+KB(:, 1,52, 1) = (/ &
+ & 0.33462E-10_JPRB,0.13829E-07_JPRB,0.25227E-07_JPRB,0.35498E-07_JPRB,0.45793E-07_JPRB /)  
+KB(:, 2,52, 1) = (/ &
+ & 0.31703E-10_JPRB,0.16272E-07_JPRB,0.29393E-07_JPRB,0.41476E-07_JPRB,0.53340E-07_JPRB /)  
+KB(:, 3,52, 1) = (/ &
+ & 0.29856E-10_JPRB,0.18836E-07_JPRB,0.34537E-07_JPRB,0.48490E-07_JPRB,0.61791E-07_JPRB /)  
+KB(:, 4,52, 1) = (/ &
+ & 0.28038E-10_JPRB,0.21684E-07_JPRB,0.39578E-07_JPRB,0.55751E-07_JPRB,0.70422E-07_JPRB /)  
+KB(:, 5,52, 1) = (/ &
+ & 0.26375E-10_JPRB,0.24824E-07_JPRB,0.45389E-07_JPRB,0.63898E-07_JPRB,0.80071E-07_JPRB /)  
+KB(:, 1,53, 1) = (/ &
+ & 0.27859E-10_JPRB,0.10757E-07_JPRB,0.19436E-07_JPRB,0.27368E-07_JPRB,0.35401E-07_JPRB /)  
+KB(:, 2,53, 1) = (/ &
+ & 0.26482E-10_JPRB,0.12575E-07_JPRB,0.22786E-07_JPRB,0.32275E-07_JPRB,0.41504E-07_JPRB /)  
+KB(:, 3,53, 1) = (/ &
+ & 0.25013E-10_JPRB,0.14718E-07_JPRB,0.26786E-07_JPRB,0.37657E-07_JPRB,0.48150E-07_JPRB /)  
+KB(:, 4,53, 1) = (/ &
+ & 0.23481E-10_JPRB,0.16890E-07_JPRB,0.30875E-07_JPRB,0.43561E-07_JPRB,0.55284E-07_JPRB /)  
+KB(:, 5,53, 1) = (/ &
+ & 0.22103E-10_JPRB,0.19405E-07_JPRB,0.35435E-07_JPRB,0.50046E-07_JPRB,0.62824E-07_JPRB /)  
+KB(:, 1,54, 1) = (/ &
+ & 0.23262E-10_JPRB,0.83534E-08_JPRB,0.15033E-07_JPRB,0.21142E-07_JPRB,0.27491E-07_JPRB /)  
+KB(:, 2,54, 1) = (/ &
+ & 0.22075E-10_JPRB,0.97821E-08_JPRB,0.17791E-07_JPRB,0.25298E-07_JPRB,0.32447E-07_JPRB /)  
+KB(:, 3,54, 1) = (/ &
+ & 0.20887E-10_JPRB,0.11541E-07_JPRB,0.20852E-07_JPRB,0.29392E-07_JPRB,0.37643E-07_JPRB /)  
+KB(:, 4,54, 1) = (/ &
+ & 0.19629E-10_JPRB,0.13228E-07_JPRB,0.24164E-07_JPRB,0.34330E-07_JPRB,0.43622E-07_JPRB /)  
+KB(:, 5,54, 1) = (/ &
+ & 0.18475E-10_JPRB,0.15233E-07_JPRB,0.27779E-07_JPRB,0.39304E-07_JPRB,0.49432E-07_JPRB /)  
+KB(:, 1,55, 1) = (/ &
+ & 0.19360E-10_JPRB,0.64888E-08_JPRB,0.11644E-07_JPRB,0.16387E-07_JPRB,0.21340E-07_JPRB /)  
+KB(:, 2,55, 1) = (/ &
+ & 0.18372E-10_JPRB,0.76367E-08_JPRB,0.13947E-07_JPRB,0.19672E-07_JPRB,0.25401E-07_JPRB /)  
+KB(:, 3,55, 1) = (/ &
+ & 0.17421E-10_JPRB,0.90083E-08_JPRB,0.16275E-07_JPRB,0.22971E-07_JPRB,0.29522E-07_JPRB /)  
+KB(:, 4,55, 1) = (/ &
+ & 0.16413E-10_JPRB,0.10402E-07_JPRB,0.19081E-07_JPRB,0.26854E-07_JPRB,0.34233E-07_JPRB /)  
+KB(:, 5,55, 1) = (/ &
+ & 0.15417E-10_JPRB,0.11984E-07_JPRB,0.21835E-07_JPRB,0.30856E-07_JPRB,0.38954E-07_JPRB /)  
+KB(:, 1,56, 1) = (/ &
+ & 0.16094E-10_JPRB,0.50174E-08_JPRB,0.90283E-08_JPRB,0.12718E-07_JPRB,0.16576E-07_JPRB /)  
+KB(:, 2,56, 1) = (/ &
+ & 0.15265E-10_JPRB,0.59747E-08_JPRB,0.10850E-07_JPRB,0.15297E-07_JPRB,0.19783E-07_JPRB /)  
+KB(:, 3,56, 1) = (/ &
+ & 0.14515E-10_JPRB,0.70142E-08_JPRB,0.12699E-07_JPRB,0.17960E-07_JPRB,0.23171E-07_JPRB /)  
+KB(:, 4,56, 1) = (/ &
+ & 0.13715E-10_JPRB,0.81626E-08_JPRB,0.14940E-07_JPRB,0.20994E-07_JPRB,0.26865E-07_JPRB /)  
+KB(:, 5,56, 1) = (/ &
+ & 0.12880E-10_JPRB,0.94054E-08_JPRB,0.17206E-07_JPRB,0.24221E-07_JPRB,0.30739E-07_JPRB /)  
+KB(:, 1,57, 1) = (/ &
+ & 0.13368E-10_JPRB,0.38838E-08_JPRB,0.69991E-08_JPRB,0.98372E-08_JPRB,0.12821E-07_JPRB /)  
+KB(:, 2,57, 1) = (/ &
+ & 0.12743E-10_JPRB,0.46751E-08_JPRB,0.84243E-08_JPRB,0.11856E-07_JPRB,0.15406E-07_JPRB /)  
+KB(:, 3,57, 1) = (/ &
+ & 0.12087E-10_JPRB,0.54642E-08_JPRB,0.99295E-08_JPRB,0.14069E-07_JPRB,0.18144E-07_JPRB /)  
+KB(:, 4,57, 1) = (/ &
+ & 0.11442E-10_JPRB,0.64461E-08_JPRB,0.11657E-07_JPRB,0.16407E-07_JPRB,0.21072E-07_JPRB /)  
+KB(:, 5,57, 1) = (/ &
+ & 0.10759E-10_JPRB,0.73711E-08_JPRB,0.13478E-07_JPRB,0.19106E-07_JPRB,0.24314E-07_JPRB /)  
+KB(:, 1,58, 1) = (/ &
+ & 0.11081E-10_JPRB,0.30148E-08_JPRB,0.54165E-08_JPRB,0.76421E-08_JPRB,0.99496E-08_JPRB /)  
+KB(:, 2,58, 1) = (/ &
+ & 0.10598E-10_JPRB,0.36337E-08_JPRB,0.65375E-08_JPRB,0.92041E-08_JPRB,0.12025E-07_JPRB /)  
+KB(:, 3,58, 1) = (/ &
+ & 0.10052E-10_JPRB,0.42712E-08_JPRB,0.77841E-08_JPRB,0.11053E-07_JPRB,0.14306E-07_JPRB /)  
+KB(:, 4,58, 1) = (/ &
+ & 0.95308E-11_JPRB,0.50429E-08_JPRB,0.91133E-08_JPRB,0.12865E-07_JPRB,0.16554E-07_JPRB /)  
+KB(:, 5,58, 1) = (/ &
+ & 0.89795E-11_JPRB,0.57979E-08_JPRB,0.10615E-07_JPRB,0.15051E-07_JPRB,0.19216E-07_JPRB /)  
+KB(:, 1,59, 1) = (/ &
+ & 0.91194E-11_JPRB,0.24214E-08_JPRB,0.43496E-08_JPRB,0.61531E-08_JPRB,0.80136E-08_JPRB /)  
+KB(:, 2,59, 1) = (/ &
+ & 0.87287E-11_JPRB,0.29232E-08_JPRB,0.52535E-08_JPRB,0.73966E-08_JPRB,0.96830E-08_JPRB /)  
+KB(:, 3,59, 1) = (/ &
+ & 0.82765E-11_JPRB,0.34412E-08_JPRB,0.62788E-08_JPRB,0.88992E-08_JPRB,0.11534E-07_JPRB /)  
+KB(:, 4,59, 1) = (/ &
+ & 0.78605E-11_JPRB,0.40632E-08_JPRB,0.73454E-08_JPRB,0.10382E-07_JPRB,0.13372E-07_JPRB /)  
+KB(:, 5,59, 1) = (/ &
+ & 0.74127E-11_JPRB,0.46801E-08_JPRB,0.85910E-08_JPRB,0.12137E-07_JPRB,0.15530E-07_JPRB /)  
+KB(:, 1,13, 2) = (/ &
+ & 0.17576E-05_JPRB,0.22518E-03_JPRB,0.36398E-03_JPRB,0.46505E-03_JPRB,0.97920E-03_JPRB /)  
+KB(:, 2,13, 2) = (/ &
+ & 0.19522E-05_JPRB,0.25688E-03_JPRB,0.42724E-03_JPRB,0.54293E-03_JPRB,0.11261E-02_JPRB /)  
+KB(:, 3,13, 2) = (/ &
+ & 0.21134E-05_JPRB,0.29382E-03_JPRB,0.49778E-03_JPRB,0.63186E-03_JPRB,0.12961E-02_JPRB /)  
+KB(:, 4,13, 2) = (/ &
+ & 0.22680E-05_JPRB,0.33585E-03_JPRB,0.57095E-03_JPRB,0.73149E-03_JPRB,0.14857E-02_JPRB /)  
+KB(:, 5,13, 2) = (/ &
+ & 0.23939E-05_JPRB,0.38326E-03_JPRB,0.64688E-03_JPRB,0.84120E-03_JPRB,0.16815E-02_JPRB /)  
+KB(:, 1,14, 2) = (/ &
+ & 0.13866E-05_JPRB,0.18816E-03_JPRB,0.30541E-03_JPRB,0.39082E-03_JPRB,0.80614E-03_JPRB /)  
+KB(:, 2,14, 2) = (/ &
+ & 0.14825E-05_JPRB,0.21525E-03_JPRB,0.35906E-03_JPRB,0.45772E-03_JPRB,0.92976E-03_JPRB /)  
+KB(:, 3,14, 2) = (/ &
+ & 0.16428E-05_JPRB,0.24664E-03_JPRB,0.41891E-03_JPRB,0.53341E-03_JPRB,0.10689E-02_JPRB /)  
+KB(:, 4,14, 2) = (/ &
+ & 0.17807E-05_JPRB,0.28218E-03_JPRB,0.48021E-03_JPRB,0.61861E-03_JPRB,0.12236E-02_JPRB /)  
+KB(:, 5,14, 2) = (/ &
+ & 0.18685E-05_JPRB,0.32204E-03_JPRB,0.54385E-03_JPRB,0.71223E-03_JPRB,0.13844E-02_JPRB /)  
+KB(:, 1,15, 2) = (/ &
+ & 0.10483E-05_JPRB,0.15699E-03_JPRB,0.25571E-03_JPRB,0.32803E-03_JPRB,0.65873E-03_JPRB /)  
+KB(:, 2,15, 2) = (/ &
+ & 0.11310E-05_JPRB,0.18016E-03_JPRB,0.30071E-03_JPRB,0.38534E-03_JPRB,0.75916E-03_JPRB /)  
+KB(:, 3,15, 2) = (/ &
+ & 0.12330E-05_JPRB,0.20672E-03_JPRB,0.35181E-03_JPRB,0.44940E-03_JPRB,0.87041E-03_JPRB /)  
+KB(:, 4,15, 2) = (/ &
+ & 0.13426E-05_JPRB,0.23650E-03_JPRB,0.40292E-03_JPRB,0.52246E-03_JPRB,0.99445E-03_JPRB /)  
+KB(:, 5,15, 2) = (/ &
+ & 0.14514E-05_JPRB,0.26979E-03_JPRB,0.45684E-03_JPRB,0.60195E-03_JPRB,0.11173E-02_JPRB /)  
+KB(:, 1,16, 2) = (/ &
+ & 0.80663E-06_JPRB,0.13098E-03_JPRB,0.21382E-03_JPRB,0.27539E-03_JPRB,0.53727E-03_JPRB /)  
+KB(:, 2,16, 2) = (/ &
+ & 0.85747E-06_JPRB,0.15058E-03_JPRB,0.25201E-03_JPRB,0.32406E-03_JPRB,0.61573E-03_JPRB /)  
+KB(:, 3,16, 2) = (/ &
+ & 0.92435E-06_JPRB,0.17283E-03_JPRB,0.29542E-03_JPRB,0.37879E-03_JPRB,0.70140E-03_JPRB /)  
+KB(:, 4,16, 2) = (/ &
+ & 0.99747E-06_JPRB,0.19793E-03_JPRB,0.33807E-03_JPRB,0.44076E-03_JPRB,0.79468E-03_JPRB /)  
+KB(:, 5,16, 2) = (/ &
+ & 0.10819E-05_JPRB,0.22582E-03_JPRB,0.38354E-03_JPRB,0.50663E-03_JPRB,0.88980E-03_JPRB /)  
+KB(:, 1,17, 2) = (/ &
+ & 0.61772E-06_JPRB,0.10941E-03_JPRB,0.17926E-03_JPRB,0.23144E-03_JPRB,0.43554E-03_JPRB /)  
+KB(:, 2,17, 2) = (/ &
+ & 0.65718E-06_JPRB,0.12576E-03_JPRB,0.21174E-03_JPRB,0.27275E-03_JPRB,0.49750E-03_JPRB /)  
+KB(:, 3,17, 2) = (/ &
+ & 0.69949E-06_JPRB,0.14461E-03_JPRB,0.24852E-03_JPRB,0.31937E-03_JPRB,0.56462E-03_JPRB /)  
+KB(:, 4,17, 2) = (/ &
+ & 0.75387E-06_JPRB,0.16580E-03_JPRB,0.28374E-03_JPRB,0.37213E-03_JPRB,0.63507E-03_JPRB /)  
+KB(:, 5,17, 2) = (/ &
+ & 0.79715E-06_JPRB,0.18926E-03_JPRB,0.32236E-03_JPRB,0.42588E-03_JPRB,0.70728E-03_JPRB /)  
+KB(:, 1,18, 2) = (/ &
+ & 0.47188E-06_JPRB,0.91952E-04_JPRB,0.15100E-03_JPRB,0.19495E-03_JPRB,0.35543E-03_JPRB /)  
+KB(:, 2,18, 2) = (/ &
+ & 0.50937E-06_JPRB,0.10513E-03_JPRB,0.17852E-03_JPRB,0.22999E-03_JPRB,0.40250E-03_JPRB /)  
+KB(:, 3,18, 2) = (/ &
+ & 0.54206E-06_JPRB,0.12130E-03_JPRB,0.20959E-03_JPRB,0.26979E-03_JPRB,0.45662E-03_JPRB /)  
+KB(:, 4,18, 2) = (/ &
+ & 0.57328E-06_JPRB,0.13936E-03_JPRB,0.23815E-03_JPRB,0.31451E-03_JPRB,0.51113E-03_JPRB /)  
+KB(:, 5,18, 2) = (/ &
+ & 0.61077E-06_JPRB,0.15916E-03_JPRB,0.27075E-03_JPRB,0.35967E-03_JPRB,0.57076E-03_JPRB /)  
+KB(:, 1,19, 2) = (/ &
+ & 0.36005E-06_JPRB,0.76984E-04_JPRB,0.12743E-03_JPRB,0.16422E-03_JPRB,0.28885E-03_JPRB /)  
+KB(:, 2,19, 2) = (/ &
+ & 0.38988E-06_JPRB,0.88029E-04_JPRB,0.15067E-03_JPRB,0.19396E-03_JPRB,0.32854E-03_JPRB /)  
+KB(:, 3,19, 2) = (/ &
+ & 0.41989E-06_JPRB,0.10172E-03_JPRB,0.17539E-03_JPRB,0.22784E-03_JPRB,0.37045E-03_JPRB /)  
+KB(:, 4,19, 2) = (/ &
+ & 0.44092E-06_JPRB,0.11727E-03_JPRB,0.20004E-03_JPRB,0.26592E-03_JPRB,0.41598E-03_JPRB /)  
+KB(:, 5,19, 2) = (/ &
+ & 0.46883E-06_JPRB,0.13386E-03_JPRB,0.22769E-03_JPRB,0.30285E-03_JPRB,0.46550E-03_JPRB /)  
+KB(:, 1,20, 2) = (/ &
+ & 0.27908E-06_JPRB,0.64450E-04_JPRB,0.10795E-03_JPRB,0.13889E-03_JPRB,0.23878E-03_JPRB /)  
+KB(:, 2,20, 2) = (/ &
+ & 0.30934E-06_JPRB,0.74187E-04_JPRB,0.12773E-03_JPRB,0.16417E-03_JPRB,0.27017E-03_JPRB /)  
+KB(:, 3,20, 2) = (/ &
+ & 0.33086E-06_JPRB,0.85801E-04_JPRB,0.14782E-03_JPRB,0.19307E-03_JPRB,0.30508E-03_JPRB /)  
+KB(:, 4,20, 2) = (/ &
+ & 0.35058E-06_JPRB,0.98861E-04_JPRB,0.16868E-03_JPRB,0.22508E-03_JPRB,0.34249E-03_JPRB /)  
+KB(:, 5,20, 2) = (/ &
+ & 0.37069E-06_JPRB,0.11306E-03_JPRB,0.19188E-03_JPRB,0.25601E-03_JPRB,0.38519E-03_JPRB /)  
+KB(:, 1,21, 2) = (/ &
+ & 0.22418E-06_JPRB,0.54095E-04_JPRB,0.91414E-04_JPRB,0.11757E-03_JPRB,0.19697E-03_JPRB /)  
+KB(:, 2,21, 2) = (/ &
+ & 0.24559E-06_JPRB,0.62567E-04_JPRB,0.10819E-03_JPRB,0.13908E-03_JPRB,0.22284E-03_JPRB /)  
+KB(:, 3,21, 2) = (/ &
+ & 0.26169E-06_JPRB,0.72383E-04_JPRB,0.12481E-03_JPRB,0.16368E-03_JPRB,0.25205E-03_JPRB /)  
+KB(:, 4,21, 2) = (/ &
+ & 0.27885E-06_JPRB,0.83446E-04_JPRB,0.14258E-03_JPRB,0.18910E-03_JPRB,0.28386E-03_JPRB /)  
+KB(:, 5,21, 2) = (/ &
+ & 0.29344E-06_JPRB,0.95540E-04_JPRB,0.16198E-03_JPRB,0.21609E-03_JPRB,0.31947E-03_JPRB /)  
+KB(:, 1,22, 2) = (/ &
+ & 0.17941E-06_JPRB,0.45830E-04_JPRB,0.78176E-04_JPRB,0.10061E-03_JPRB,0.16313E-03_JPRB /)  
+KB(:, 2,22, 2) = (/ &
+ & 0.19397E-06_JPRB,0.53139E-04_JPRB,0.92556E-04_JPRB,0.11901E-03_JPRB,0.18482E-03_JPRB /)  
+KB(:, 3,22, 2) = (/ &
+ & 0.20707E-06_JPRB,0.61593E-04_JPRB,0.10579E-03_JPRB,0.14008E-03_JPRB,0.20965E-03_JPRB /)  
+KB(:, 4,22, 2) = (/ &
+ & 0.22071E-06_JPRB,0.71016E-04_JPRB,0.12100E-03_JPRB,0.16128E-03_JPRB,0.23661E-03_JPRB /)  
+KB(:, 5,22, 2) = (/ &
+ & 0.23148E-06_JPRB,0.81286E-04_JPRB,0.13795E-03_JPRB,0.18401E-03_JPRB,0.26580E-03_JPRB /)  
+KB(:, 1,23, 2) = (/ &
+ & 0.14291E-06_JPRB,0.38825E-04_JPRB,0.66866E-04_JPRB,0.86140E-04_JPRB,0.13511E-03_JPRB /)  
+KB(:, 2,23, 2) = (/ &
+ & 0.15179E-06_JPRB,0.45135E-04_JPRB,0.78450E-04_JPRB,0.10194E-03_JPRB,0.15369E-03_JPRB /)  
+KB(:, 3,23, 2) = (/ &
+ & 0.16326E-06_JPRB,0.52399E-04_JPRB,0.89919E-04_JPRB,0.12001E-03_JPRB,0.17441E-03_JPRB /)  
+KB(:, 4,23, 2) = (/ &
+ & 0.17307E-06_JPRB,0.60440E-04_JPRB,0.10293E-03_JPRB,0.13735E-03_JPRB,0.19668E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,23, 2) = (/ &
+ & 0.18137E-06_JPRB,0.69189E-04_JPRB,0.11759E-03_JPRB,0.15651E-03_JPRB,0.21998E-03_JPRB /)  
+KB(:, 1,24, 2) = (/ &
+ & 0.11245E-06_JPRB,0.32862E-04_JPRB,0.57166E-04_JPRB,0.73828E-04_JPRB,0.11185E-03_JPRB /)  
+KB(:, 2,24, 2) = (/ &
+ & 0.11958E-06_JPRB,0.38281E-04_JPRB,0.66635E-04_JPRB,0.87390E-04_JPRB,0.12740E-03_JPRB /)  
+KB(:, 3,24, 2) = (/ &
+ & 0.12702E-06_JPRB,0.44519E-04_JPRB,0.76606E-04_JPRB,0.10190E-03_JPRB,0.14418E-03_JPRB /)  
+KB(:, 4,24, 2) = (/ &
+ & 0.13467E-06_JPRB,0.51373E-04_JPRB,0.87622E-04_JPRB,0.11700E-03_JPRB,0.16205E-03_JPRB /)  
+KB(:, 5,24, 2) = (/ &
+ & 0.14120E-06_JPRB,0.58874E-04_JPRB,0.10019E-03_JPRB,0.13348E-03_JPRB,0.18188E-03_JPRB /)  
+KB(:, 1,25, 2) = (/ &
+ & 0.88242E-07_JPRB,0.27950E-04_JPRB,0.49010E-04_JPRB,0.63434E-04_JPRB,0.92877E-04_JPRB /)  
+KB(:, 2,25, 2) = (/ &
+ & 0.94383E-07_JPRB,0.32610E-04_JPRB,0.56690E-04_JPRB,0.75114E-04_JPRB,0.10531E-03_JPRB /)  
+KB(:, 3,25, 2) = (/ &
+ & 0.99712E-07_JPRB,0.37929E-04_JPRB,0.65204E-04_JPRB,0.87113E-04_JPRB,0.11931E-03_JPRB /)  
+KB(:, 4,25, 2) = (/ &
+ & 0.10473E-06_JPRB,0.43778E-04_JPRB,0.74805E-04_JPRB,0.99950E-04_JPRB,0.13427E-03_JPRB /)  
+KB(:, 5,25, 2) = (/ &
+ & 0.10988E-06_JPRB,0.50229E-04_JPRB,0.85598E-04_JPRB,0.11406E-03_JPRB,0.15050E-03_JPRB /)  
+KB(:, 1,26, 2) = (/ &
+ & 0.69696E-07_JPRB,0.23895E-04_JPRB,0.42166E-04_JPRB,0.54733E-04_JPRB,0.77146E-04_JPRB /)  
+KB(:, 2,26, 2) = (/ &
+ & 0.74390E-07_JPRB,0.27921E-04_JPRB,0.48387E-04_JPRB,0.64817E-04_JPRB,0.87607E-04_JPRB /)  
+KB(:, 3,26, 2) = (/ &
+ & 0.78856E-07_JPRB,0.32497E-04_JPRB,0.55692E-04_JPRB,0.74691E-04_JPRB,0.99387E-04_JPRB /)  
+KB(:, 4,26, 2) = (/ &
+ & 0.83253E-07_JPRB,0.37491E-04_JPRB,0.64130E-04_JPRB,0.85609E-04_JPRB,0.11193E-03_JPRB /)  
+KB(:, 5,26, 2) = (/ &
+ & 0.87675E-07_JPRB,0.43011E-04_JPRB,0.73398E-04_JPRB,0.97828E-04_JPRB,0.12574E-03_JPRB /)  
+KB(:, 1,27, 2) = (/ &
+ & 0.54619E-07_JPRB,0.20469E-04_JPRB,0.35869E-04_JPRB,0.47259E-04_JPRB,0.64151E-04_JPRB /)  
+KB(:, 2,27, 2) = (/ &
+ & 0.58657E-07_JPRB,0.23925E-04_JPRB,0.41468E-04_JPRB,0.55499E-04_JPRB,0.72911E-04_JPRB /)  
+KB(:, 3,27, 2) = (/ &
+ & 0.62532E-07_JPRB,0.27839E-04_JPRB,0.47735E-04_JPRB,0.63985E-04_JPRB,0.82955E-04_JPRB /)  
+KB(:, 4,27, 2) = (/ &
+ & 0.66184E-07_JPRB,0.32141E-04_JPRB,0.55001E-04_JPRB,0.73456E-04_JPRB,0.93567E-04_JPRB /)  
+KB(:, 5,27, 2) = (/ &
+ & 0.69305E-07_JPRB,0.36605E-04_JPRB,0.62968E-04_JPRB,0.83938E-04_JPRB,0.10517E-03_JPRB /)  
+KB(:, 1,28, 2) = (/ &
+ & 0.43348E-07_JPRB,0.17476E-04_JPRB,0.30692E-04_JPRB,0.40803E-04_JPRB,0.53271E-04_JPRB /)  
+KB(:, 2,28, 2) = (/ &
+ & 0.46348E-07_JPRB,0.20496E-04_JPRB,0.35498E-04_JPRB,0.47629E-04_JPRB,0.60809E-04_JPRB /)  
+KB(:, 3,28, 2) = (/ &
+ & 0.49507E-07_JPRB,0.23857E-04_JPRB,0.40974E-04_JPRB,0.54947E-04_JPRB,0.69222E-04_JPRB /)  
+KB(:, 4,28, 2) = (/ &
+ & 0.52419E-07_JPRB,0.27560E-04_JPRB,0.47205E-04_JPRB,0.63044E-04_JPRB,0.78123E-04_JPRB /)  
+KB(:, 5,28, 2) = (/ &
+ & 0.54842E-07_JPRB,0.31094E-04_JPRB,0.54028E-04_JPRB,0.72116E-04_JPRB,0.87834E-04_JPRB /)  
+KB(:, 1,29, 2) = (/ &
+ & 0.34480E-07_JPRB,0.15027E-04_JPRB,0.26268E-04_JPRB,0.35358E-04_JPRB,0.44711E-04_JPRB /)  
+KB(:, 2,29, 2) = (/ &
+ & 0.36985E-07_JPRB,0.17638E-04_JPRB,0.30405E-04_JPRB,0.40938E-04_JPRB,0.51054E-04_JPRB /)  
+KB(:, 3,29, 2) = (/ &
+ & 0.39476E-07_JPRB,0.20512E-04_JPRB,0.35237E-04_JPRB,0.47207E-04_JPRB,0.58034E-04_JPRB /)  
+KB(:, 4,29, 2) = (/ &
+ & 0.41650E-07_JPRB,0.23694E-04_JPRB,0.40586E-04_JPRB,0.54286E-04_JPRB,0.65708E-04_JPRB /)  
+KB(:, 5,29, 2) = (/ &
+ & 0.43693E-07_JPRB,0.26438E-04_JPRB,0.46467E-04_JPRB,0.62035E-04_JPRB,0.73872E-04_JPRB /)  
+KB(:, 1,30, 2) = (/ &
+ & 0.27402E-07_JPRB,0.12932E-04_JPRB,0.22585E-04_JPRB,0.30365E-04_JPRB,0.37471E-04_JPRB /)  
+KB(:, 2,30, 2) = (/ &
+ & 0.29377E-07_JPRB,0.15183E-04_JPRB,0.26158E-04_JPRB,0.35195E-04_JPRB,0.42867E-04_JPRB /)  
+KB(:, 3,30, 2) = (/ &
+ & 0.31353E-07_JPRB,0.17658E-04_JPRB,0.30343E-04_JPRB,0.40606E-04_JPRB,0.48858E-04_JPRB /)  
+KB(:, 4,30, 2) = (/ &
+ & 0.33056E-07_JPRB,0.20286E-04_JPRB,0.34924E-04_JPRB,0.46735E-04_JPRB,0.55329E-04_JPRB /)  
+KB(:, 5,30, 2) = (/ &
+ & 0.34673E-07_JPRB,0.22451E-04_JPRB,0.39717E-04_JPRB,0.53329E-04_JPRB,0.62151E-04_JPRB /)  
+KB(:, 1,31, 2) = (/ &
+ & 0.21716E-07_JPRB,0.11156E-04_JPRB,0.19427E-04_JPRB,0.26169E-04_JPRB,0.31512E-04_JPRB /)  
+KB(:, 2,31, 2) = (/ &
+ & 0.23313E-07_JPRB,0.13091E-04_JPRB,0.22568E-04_JPRB,0.30377E-04_JPRB,0.36216E-04_JPRB /)  
+KB(:, 3,31, 2) = (/ &
+ & 0.24803E-07_JPRB,0.15221E-04_JPRB,0.26157E-04_JPRB,0.35050E-04_JPRB,0.41256E-04_JPRB /)  
+KB(:, 4,31, 2) = (/ &
+ & 0.26260E-07_JPRB,0.17277E-04_JPRB,0.30091E-04_JPRB,0.40288E-04_JPRB,0.46693E-04_JPRB /)  
+KB(:, 5,31, 2) = (/ &
+ & 0.27334E-07_JPRB,0.19159E-04_JPRB,0.33773E-04_JPRB,0.45892E-04_JPRB,0.52314E-04_JPRB /)  
+KB(:, 1,32, 2) = (/ &
+ & 0.17123E-07_JPRB,0.96453E-05_JPRB,0.16688E-04_JPRB,0.22528E-04_JPRB,0.26648E-04_JPRB /)  
+KB(:, 2,32, 2) = (/ &
+ & 0.18489E-07_JPRB,0.11305E-04_JPRB,0.19464E-04_JPRB,0.26137E-04_JPRB,0.30617E-04_JPRB /)  
+KB(:, 3,32, 2) = (/ &
+ & 0.19621E-07_JPRB,0.13143E-04_JPRB,0.22554E-04_JPRB,0.30238E-04_JPRB,0.34876E-04_JPRB /)  
+KB(:, 4,32, 2) = (/ &
+ & 0.20653E-07_JPRB,0.14698E-04_JPRB,0.25928E-04_JPRB,0.34712E-04_JPRB,0.39398E-04_JPRB /)  
+KB(:, 5,32, 2) = (/ &
+ & 0.21500E-07_JPRB,0.16315E-04_JPRB,0.28651E-04_JPRB,0.39302E-04_JPRB,0.44097E-04_JPRB /)  
+KB(:, 1,33, 2) = (/ &
+ & 0.13414E-07_JPRB,0.83355E-05_JPRB,0.14409E-04_JPRB,0.19461E-04_JPRB,0.22582E-04_JPRB /)  
+KB(:, 2,33, 2) = (/ &
+ & 0.14456E-07_JPRB,0.97647E-05_JPRB,0.16818E-04_JPRB,0.22578E-04_JPRB,0.25923E-04_JPRB /)  
+KB(:, 3,33, 2) = (/ &
+ & 0.15416E-07_JPRB,0.11250E-04_JPRB,0.19451E-04_JPRB,0.26119E-04_JPRB,0.29482E-04_JPRB /)  
+KB(:, 4,33, 2) = (/ &
+ & 0.16184E-07_JPRB,0.12520E-04_JPRB,0.22064E-04_JPRB,0.29911E-04_JPRB,0.33230E-04_JPRB /)  
+KB(:, 5,33, 2) = (/ &
+ & 0.16861E-07_JPRB,0.13810E-04_JPRB,0.24332E-04_JPRB,0.33363E-04_JPRB,0.37135E-04_JPRB /)  
+KB(:, 1,34, 2) = (/ &
+ & 0.10575E-07_JPRB,0.71786E-05_JPRB,0.12407E-04_JPRB,0.16719E-04_JPRB,0.19158E-04_JPRB /)  
+KB(:, 2,34, 2) = (/ &
+ & 0.11328E-07_JPRB,0.84093E-05_JPRB,0.14457E-04_JPRB,0.19433E-04_JPRB,0.21940E-04_JPRB /)  
+KB(:, 3,34, 2) = (/ &
+ & 0.12049E-07_JPRB,0.95860E-05_JPRB,0.16718E-04_JPRB,0.22425E-04_JPRB,0.24932E-04_JPRB /)  
+KB(:, 4,34, 2) = (/ &
+ & 0.12689E-07_JPRB,0.10655E-04_JPRB,0.18771E-04_JPRB,0.25647E-04_JPRB,0.28065E-04_JPRB /)  
+KB(:, 5,34, 2) = (/ &
+ & 0.13241E-07_JPRB,0.11703E-04_JPRB,0.20628E-04_JPRB,0.28184E-04_JPRB,0.31323E-04_JPRB /)  
+KB(:, 1,35, 2) = (/ &
+ & 0.82489E-08_JPRB,0.60850E-05_JPRB,0.10505E-04_JPRB,0.14140E-04_JPRB,0.16004E-04_JPRB /)  
+KB(:, 2,35, 2) = (/ &
+ & 0.88532E-08_JPRB,0.71306E-05_JPRB,0.12250E-04_JPRB,0.16463E-04_JPRB,0.18333E-04_JPRB /)  
+KB(:, 3,35, 2) = (/ &
+ & 0.93468E-08_JPRB,0.80269E-05_JPRB,0.14158E-04_JPRB,0.18989E-04_JPRB,0.20835E-04_JPRB /)  
+KB(:, 4,35, 2) = (/ &
+ & 0.98478E-08_JPRB,0.89450E-05_JPRB,0.15691E-04_JPRB,0.21576E-04_JPRB,0.23428E-04_JPRB /)  
+KB(:, 5,35, 2) = (/ &
+ & 0.10332E-07_JPRB,0.98354E-05_JPRB,0.17293E-04_JPRB,0.23618E-04_JPRB,0.26128E-04_JPRB /)  
+KB(:, 1,36, 2) = (/ &
+ & 0.63951E-08_JPRB,0.50545E-05_JPRB,0.87378E-05_JPRB,0.11778E-04_JPRB,0.13176E-04_JPRB /)  
+KB(:, 2,36, 2) = (/ &
+ & 0.68252E-08_JPRB,0.59348E-05_JPRB,0.10193E-04_JPRB,0.13730E-04_JPRB,0.15104E-04_JPRB /)  
+KB(:, 3,36, 2) = (/ &
+ & 0.72445E-08_JPRB,0.66480E-05_JPRB,0.11783E-04_JPRB,0.15832E-04_JPRB,0.17160E-04_JPRB /)  
+KB(:, 4,36, 2) = (/ &
+ & 0.75871E-08_JPRB,0.73960E-05_JPRB,0.13005E-04_JPRB,0.17866E-04_JPRB,0.19295E-04_JPRB /)  
+KB(:, 5,36, 2) = (/ &
+ & 0.79075E-08_JPRB,0.81558E-05_JPRB,0.14306E-04_JPRB,0.19617E-04_JPRB,0.21532E-04_JPRB /)  
+KB(:, 1,37, 2) = (/ &
+ & 0.50574E-08_JPRB,0.41215E-05_JPRB,0.71249E-05_JPRB,0.95923E-05_JPRB,0.10686E-04_JPRB /)  
+KB(:, 2,37, 2) = (/ &
+ & 0.53967E-08_JPRB,0.48518E-05_JPRB,0.83286E-05_JPRB,0.11206E-04_JPRB,0.12269E-04_JPRB /)  
+KB(:, 3,37, 2) = (/ &
+ & 0.57517E-08_JPRB,0.54411E-05_JPRB,0.96383E-05_JPRB,0.12942E-04_JPRB,0.13958E-04_JPRB /)  
+KB(:, 4,37, 2) = (/ &
+ & 0.60273E-08_JPRB,0.60590E-05_JPRB,0.10644E-04_JPRB,0.14619E-04_JPRB,0.15714E-04_JPRB /)  
+KB(:, 5,37, 2) = (/ &
+ & 0.62775E-08_JPRB,0.66900E-05_JPRB,0.11723E-04_JPRB,0.16077E-04_JPRB,0.17560E-04_JPRB /)  
+KB(:, 1,38, 2) = (/ &
+ & 0.39948E-08_JPRB,0.33535E-05_JPRB,0.57976E-05_JPRB,0.77989E-05_JPRB,0.86548E-05_JPRB /)  
+KB(:, 2,38, 2) = (/ &
+ & 0.42642E-08_JPRB,0.39584E-05_JPRB,0.67932E-05_JPRB,0.91290E-05_JPRB,0.99507E-05_JPRB /)  
+KB(:, 3,38, 2) = (/ &
+ & 0.45529E-08_JPRB,0.44478E-05_JPRB,0.78746E-05_JPRB,0.10563E-04_JPRB,0.11338E-04_JPRB /)  
+KB(:, 4,38, 2) = (/ &
+ & 0.47911E-08_JPRB,0.49592E-05_JPRB,0.87019E-05_JPRB,0.11950E-04_JPRB,0.12783E-04_JPRB /)  
+KB(:, 5,38, 2) = (/ &
+ & 0.49959E-08_JPRB,0.54820E-05_JPRB,0.95964E-05_JPRB,0.13155E-04_JPRB,0.14308E-04_JPRB /)  
+KB(:, 1,39, 2) = (/ &
+ & 0.31607E-08_JPRB,0.27260E-05_JPRB,0.47143E-05_JPRB,0.63381E-05_JPRB,0.70094E-05_JPRB /)  
+KB(:, 2,39, 2) = (/ &
+ & 0.33771E-08_JPRB,0.32263E-05_JPRB,0.55352E-05_JPRB,0.74322E-05_JPRB,0.80695E-05_JPRB /)  
+KB(:, 3,39, 2) = (/ &
+ & 0.35907E-08_JPRB,0.36316E-05_JPRB,0.64256E-05_JPRB,0.86133E-05_JPRB,0.92019E-05_JPRB /)  
+KB(:, 4,39, 2) = (/ &
+ & 0.37920E-08_JPRB,0.40555E-05_JPRB,0.71128E-05_JPRB,0.97677E-05_JPRB,0.10392E-04_JPRB /)  
+KB(:, 5,39, 2) = (/ &
+ & 0.39687E-08_JPRB,0.44882E-05_JPRB,0.78499E-05_JPRB,0.10753E-04_JPRB,0.11647E-04_JPRB /)  
+KB(:, 1,40, 2) = (/ &
+ & 0.25137E-08_JPRB,0.21782E-05_JPRB,0.37700E-05_JPRB,0.50636E-05_JPRB,0.55872E-05_JPRB /)  
+KB(:, 2,40, 2) = (/ &
+ & 0.26953E-08_JPRB,0.25872E-05_JPRB,0.44411E-05_JPRB,0.59538E-05_JPRB,0.64693E-05_JPRB /)  
+KB(:, 3,40, 2) = (/ &
+ & 0.28738E-08_JPRB,0.29415E-05_JPRB,0.51697E-05_JPRB,0.69217E-05_JPRB,0.73806E-05_JPRB /)  
+KB(:, 4,40, 2) = (/ &
+ & 0.30365E-08_JPRB,0.32887E-05_JPRB,0.57574E-05_JPRB,0.79115E-05_JPRB,0.83547E-05_JPRB /)  
+KB(:, 5,40, 2) = (/ &
+ & 0.31827E-08_JPRB,0.36391E-05_JPRB,0.63730E-05_JPRB,0.87114E-05_JPRB,0.93854E-05_JPRB /)  
+KB(:, 1,41, 2) = (/ &
+ & 0.20049E-08_JPRB,0.17350E-05_JPRB,0.30089E-05_JPRB,0.40342E-05_JPRB,0.44437E-05_JPRB /)  
+KB(:, 2,41, 2) = (/ &
+ & 0.21522E-08_JPRB,0.20685E-05_JPRB,0.35532E-05_JPRB,0.47542E-05_JPRB,0.51577E-05_JPRB /)  
+KB(:, 3,41, 2) = (/ &
+ & 0.22978E-08_JPRB,0.23716E-05_JPRB,0.41490E-05_JPRB,0.55459E-05_JPRB,0.59029E-05_JPRB /)  
+KB(:, 4,41, 2) = (/ &
+ & 0.24277E-08_JPRB,0.26608E-05_JPRB,0.46585E-05_JPRB,0.63928E-05_JPRB,0.67015E-05_JPRB /)  
+KB(:, 5,41, 2) = (/ &
+ & 0.25592E-08_JPRB,0.29434E-05_JPRB,0.51614E-05_JPRB,0.70376E-05_JPRB,0.75472E-05_JPRB /)  
+KB(:, 1,42, 2) = (/ &
+ & 0.16007E-08_JPRB,0.13793E-05_JPRB,0.23939E-05_JPRB,0.32203E-05_JPRB,0.35347E-05_JPRB /)  
+KB(:, 2,42, 2) = (/ &
+ & 0.17182E-08_JPRB,0.16509E-05_JPRB,0.28388E-05_JPRB,0.37950E-05_JPRB,0.41069E-05_JPRB /)  
+KB(:, 3,42, 2) = (/ &
+ & 0.18364E-08_JPRB,0.19058E-05_JPRB,0.33250E-05_JPRB,0.44386E-05_JPRB,0.47169E-05_JPRB /)  
+KB(:, 4,42, 2) = (/ &
+ & 0.19459E-08_JPRB,0.21436E-05_JPRB,0.37676E-05_JPRB,0.51389E-05_JPRB,0.53710E-05_JPRB /)  
+KB(:, 5,42, 2) = (/ &
+ & 0.20555E-08_JPRB,0.23781E-05_JPRB,0.41722E-05_JPRB,0.56915E-05_JPRB,0.60613E-05_JPRB /)  
+KB(:, 1,43, 2) = (/ &
+ & 0.12763E-08_JPRB,0.10855E-05_JPRB,0.18842E-05_JPRB,0.25355E-05_JPRB,0.27894E-05_JPRB /)  
+KB(:, 2,43, 2) = (/ &
+ & 0.13693E-08_JPRB,0.13038E-05_JPRB,0.22434E-05_JPRB,0.29991E-05_JPRB,0.32452E-05_JPRB /)  
+KB(:, 3,43, 2) = (/ &
+ & 0.14669E-08_JPRB,0.15227E-05_JPRB,0.26394E-05_JPRB,0.35195E-05_JPRB,0.37403E-05_JPRB /)  
+KB(:, 4,43, 2) = (/ &
+ & 0.15621E-08_JPRB,0.17145E-05_JPRB,0.30188E-05_JPRB,0.40881E-05_JPRB,0.42757E-05_JPRB /)  
+KB(:, 5,43, 2) = (/ &
+ & 0.16467E-08_JPRB,0.19093E-05_JPRB,0.33481E-05_JPRB,0.45768E-05_JPRB,0.48357E-05_JPRB /)  
+KB(:, 1,44, 2) = (/ &
+ & 0.10164E-08_JPRB,0.84908E-06_JPRB,0.14741E-05_JPRB,0.19864E-05_JPRB,0.21744E-05_JPRB /)  
+KB(:, 2,44, 2) = (/ &
+ & 0.10926E-08_JPRB,0.10232E-05_JPRB,0.17642E-05_JPRB,0.23536E-05_JPRB,0.25562E-05_JPRB /)  
+KB(:, 3,44, 2) = (/ &
+ & 0.11717E-08_JPRB,0.12156E-05_JPRB,0.20836E-05_JPRB,0.27750E-05_JPRB,0.29547E-05_JPRB /)  
+KB(:, 4,44, 2) = (/ &
+ & 0.12502E-08_JPRB,0.13671E-05_JPRB,0.24149E-05_JPRB,0.32374E-05_JPRB,0.33856E-05_JPRB /)  
+KB(:, 5,44, 2) = (/ &
+ & 0.13204E-08_JPRB,0.15290E-05_JPRB,0.26801E-05_JPRB,0.36631E-05_JPRB,0.38430E-05_JPRB /)  
+KB(:, 1,45, 2) = (/ &
+ & 0.80967E-09_JPRB,0.66247E-06_JPRB,0.11525E-05_JPRB,0.15557E-05_JPRB,0.16911E-05_JPRB /)  
+KB(:, 2,45, 2) = (/ &
+ & 0.87091E-09_JPRB,0.80114E-06_JPRB,0.13838E-05_JPRB,0.18457E-05_JPRB,0.20071E-05_JPRB /)  
+KB(:, 3,45, 2) = (/ &
+ & 0.93471E-09_JPRB,0.96063E-06_JPRB,0.16414E-05_JPRB,0.21862E-05_JPRB,0.23357E-05_JPRB /)  
+KB(:, 4,45, 2) = (/ &
+ & 0.99996E-09_JPRB,0.10898E-05_JPRB,0.19287E-05_JPRB,0.25587E-05_JPRB,0.26765E-05_JPRB /)  
+KB(:, 5,45, 2) = (/ &
+ & 0.10594E-08_JPRB,0.12255E-05_JPRB,0.21437E-05_JPRB,0.29239E-05_JPRB,0.30491E-05_JPRB /)  
+KB(:, 1,46, 2) = (/ &
+ & 0.64438E-09_JPRB,0.51408E-06_JPRB,0.89692E-06_JPRB,0.12176E-05_JPRB,0.13094E-05_JPRB /)  
+KB(:, 2,46, 2) = (/ &
+ & 0.69338E-09_JPRB,0.62335E-06_JPRB,0.10783E-05_JPRB,0.14408E-05_JPRB,0.15697E-05_JPRB /)  
+KB(:, 3,46, 2) = (/ &
+ & 0.74249E-09_JPRB,0.75197E-06_JPRB,0.12859E-05_JPRB,0.17116E-05_JPRB,0.18286E-05_JPRB /)  
+KB(:, 4,46, 2) = (/ &
+ & 0.79710E-09_JPRB,0.86785E-06_JPRB,0.15182E-05_JPRB,0.20117E-05_JPRB,0.21072E-05_JPRB /)  
+KB(:, 5,46, 2) = (/ &
+ & 0.84966E-09_JPRB,0.97923E-06_JPRB,0.17156E-05_JPRB,0.23354E-05_JPRB,0.24096E-05_JPRB /)  
+KB(:, 1,47, 2) = (/ &
+ & 0.51236E-09_JPRB,0.39483E-06_JPRB,0.69100E-06_JPRB,0.94871E-06_JPRB,0.10050E-05_JPRB /)  
+KB(:, 2,47, 2) = (/ &
+ & 0.55075E-09_JPRB,0.48075E-06_JPRB,0.83326E-06_JPRB,0.11171E-05_JPRB,0.12169E-05_JPRB /)  
+KB(:, 3,47, 2) = (/ &
+ & 0.59153E-09_JPRB,0.58279E-06_JPRB,0.99922E-06_JPRB,0.13307E-05_JPRB,0.14227E-05_JPRB /)  
+KB(:, 4,47, 2) = (/ &
+ & 0.63485E-09_JPRB,0.68347E-06_JPRB,0.11845E-05_JPRB,0.15696E-05_JPRB,0.16474E-05_JPRB /)  
+KB(:, 5,47, 2) = (/ &
+ & 0.67833E-09_JPRB,0.77359E-06_JPRB,0.13593E-05_JPRB,0.18329E-05_JPRB,0.18933E-05_JPRB /)  
+KB(:, 1,48, 2) = (/ &
+ & 0.40749E-09_JPRB,0.30162E-06_JPRB,0.53408E-06_JPRB,0.72777E-06_JPRB,0.76768E-06_JPRB /)  
+KB(:, 2,48, 2) = (/ &
+ & 0.43682E-09_JPRB,0.36975E-06_JPRB,0.64201E-06_JPRB,0.86174E-06_JPRB,0.93334E-06_JPRB /)  
+KB(:, 3,48, 2) = (/ &
+ & 0.46981E-09_JPRB,0.45015E-06_JPRB,0.77460E-06_JPRB,0.10306E-05_JPRB,0.11092E-05_JPRB /)  
+KB(:, 4,48, 2) = (/ &
+ & 0.50302E-09_JPRB,0.53912E-06_JPRB,0.92171E-06_JPRB,0.12225E-05_JPRB,0.12874E-05_JPRB /)  
+KB(:, 5,48, 2) = (/ &
+ & 0.53999E-09_JPRB,0.61013E-06_JPRB,0.10790E-05_JPRB,0.14334E-05_JPRB,0.14828E-05_JPRB /)  
+KB(:, 1,49, 2) = (/ &
+ & 0.32288E-09_JPRB,0.23115E-06_JPRB,0.41625E-06_JPRB,0.55318E-06_JPRB,0.58476E-06_JPRB /)  
+KB(:, 2,49, 2) = (/ &
+ & 0.34731E-09_JPRB,0.28355E-06_JPRB,0.49493E-06_JPRB,0.66850E-06_JPRB,0.71600E-06_JPRB /)  
+KB(:, 3,49, 2) = (/ &
+ & 0.37310E-09_JPRB,0.34682E-06_JPRB,0.59820E-06_JPRB,0.79617E-06_JPRB,0.85985E-06_JPRB /)  
+KB(:, 4,49, 2) = (/ &
+ & 0.39975E-09_JPRB,0.42034E-06_JPRB,0.71527E-06_JPRB,0.95046E-06_JPRB,0.10041E-05_JPRB /)  
+KB(:, 5,49, 2) = (/ &
+ & 0.42970E-09_JPRB,0.48341E-06_JPRB,0.84829E-06_JPRB,0.11191E-05_JPRB,0.11582E-05_JPRB /)  
+KB(:, 1,50, 2) = (/ &
+ & 0.25646E-09_JPRB,0.17743E-06_JPRB,0.32423E-06_JPRB,0.42175E-06_JPRB,0.44754E-06_JPRB /)  
+KB(:, 2,50, 2) = (/ &
+ & 0.27669E-09_JPRB,0.21856E-06_JPRB,0.38220E-06_JPRB,0.52102E-06_JPRB,0.55141E-06_JPRB /)  
+KB(:, 3,50, 2) = (/ &
+ & 0.29654E-09_JPRB,0.26808E-06_JPRB,0.46375E-06_JPRB,0.61921E-06_JPRB,0.67025E-06_JPRB /)  
+KB(:, 4,50, 2) = (/ &
+ & 0.31872E-09_JPRB,0.32662E-06_JPRB,0.55687E-06_JPRB,0.73985E-06_JPRB,0.78291E-06_JPRB /)  
+KB(:, 5,50, 2) = (/ &
+ & 0.34198E-09_JPRB,0.38136E-06_JPRB,0.66385E-06_JPRB,0.87591E-06_JPRB,0.90771E-06_JPRB /)  
+KB(:, 1,51, 2) = (/ &
+ & 0.20472E-09_JPRB,0.13694E-06_JPRB,0.24726E-06_JPRB,0.32216E-06_JPRB,0.34229E-06_JPRB /)  
+KB(:, 2,51, 2) = (/ &
+ & 0.22054E-09_JPRB,0.16842E-06_JPRB,0.29646E-06_JPRB,0.40635E-06_JPRB,0.42402E-06_JPRB /)  
+KB(:, 3,51, 2) = (/ &
+ & 0.23653E-09_JPRB,0.20731E-06_JPRB,0.35913E-06_JPRB,0.48027E-06_JPRB,0.51714E-06_JPRB /)  
+KB(:, 4,51, 2) = (/ &
+ & 0.25402E-09_JPRB,0.25379E-06_JPRB,0.43377E-06_JPRB,0.57689E-06_JPRB,0.61228E-06_JPRB /)  
+KB(:, 5,51, 2) = (/ &
+ & 0.27233E-09_JPRB,0.30202E-06_JPRB,0.51940E-06_JPRB,0.68626E-06_JPRB,0.71146E-06_JPRB /)  
+KB(:, 1,52, 2) = (/ &
+ & 0.16428E-09_JPRB,0.10687E-06_JPRB,0.18803E-06_JPRB,0.24517E-06_JPRB,0.26090E-06_JPRB /)  
+KB(:, 2,52, 2) = (/ &
+ & 0.17520E-09_JPRB,0.12978E-06_JPRB,0.23025E-06_JPRB,0.31106E-06_JPRB,0.32512E-06_JPRB /)  
+KB(:, 3,52, 2) = (/ &
+ & 0.18865E-09_JPRB,0.15994E-06_JPRB,0.27726E-06_JPRB,0.37261E-06_JPRB,0.39888E-06_JPRB /)  
+KB(:, 4,52, 2) = (/ &
+ & 0.20265E-09_JPRB,0.19670E-06_JPRB,0.33708E-06_JPRB,0.44845E-06_JPRB,0.47779E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,52, 2) = (/ &
+ & 0.21711E-09_JPRB,0.23739E-06_JPRB,0.40528E-06_JPRB,0.53668E-06_JPRB,0.55828E-06_JPRB /)  
+KB(:, 1,53, 2) = (/ &
+ & 0.13206E-09_JPRB,0.82677E-07_JPRB,0.14284E-06_JPRB,0.18640E-06_JPRB,0.19898E-06_JPRB /)  
+KB(:, 2,53, 2) = (/ &
+ & 0.13938E-09_JPRB,0.99597E-07_JPRB,0.18095E-06_JPRB,0.23725E-06_JPRB,0.24911E-06_JPRB /)  
+KB(:, 3,53, 2) = (/ &
+ & 0.15056E-09_JPRB,0.12309E-06_JPRB,0.21494E-06_JPRB,0.29026E-06_JPRB,0.30720E-06_JPRB /)  
+KB(:, 4,53, 2) = (/ &
+ & 0.16136E-09_JPRB,0.15205E-06_JPRB,0.26147E-06_JPRB,0.34774E-06_JPRB,0.37331E-06_JPRB /)  
+KB(:, 5,53, 2) = (/ &
+ & 0.17318E-09_JPRB,0.18547E-06_JPRB,0.31566E-06_JPRB,0.41857E-06_JPRB,0.43649E-06_JPRB /)  
+KB(:, 1,54, 2) = (/ &
+ & 0.10628E-09_JPRB,0.63529E-07_JPRB,0.10938E-06_JPRB,0.14285E-06_JPRB,0.15281E-06_JPRB /)  
+KB(:, 2,54, 2) = (/ &
+ & 0.11181E-09_JPRB,0.77068E-07_JPRB,0.14036E-06_JPRB,0.18201E-06_JPRB,0.19163E-06_JPRB /)  
+KB(:, 3,54, 2) = (/ &
+ & 0.11992E-09_JPRB,0.95387E-07_JPRB,0.16692E-06_JPRB,0.22878E-06_JPRB,0.23824E-06_JPRB /)  
+KB(:, 4,54, 2) = (/ &
+ & 0.12900E-09_JPRB,0.11809E-06_JPRB,0.20406E-06_JPRB,0.27163E-06_JPRB,0.29078E-06_JPRB /)  
+KB(:, 5,54, 2) = (/ &
+ & 0.13828E-09_JPRB,0.14510E-06_JPRB,0.24678E-06_JPRB,0.32753E-06_JPRB,0.34217E-06_JPRB /)  
+KB(:, 1,55, 2) = (/ &
+ & 0.85664E-10_JPRB,0.48444E-07_JPRB,0.83932E-07_JPRB,0.10950E-06_JPRB,0.11785E-06_JPRB /)  
+KB(:, 2,55, 2) = (/ &
+ & 0.89999E-10_JPRB,0.59885E-07_JPRB,0.10776E-06_JPRB,0.14023E-06_JPRB,0.14763E-06_JPRB /)  
+KB(:, 3,55, 2) = (/ &
+ & 0.95836E-10_JPRB,0.73941E-07_JPRB,0.13023E-06_JPRB,0.17876E-06_JPRB,0.18426E-06_JPRB /)  
+KB(:, 4,55, 2) = (/ &
+ & 0.10323E-09_JPRB,0.91791E-07_JPRB,0.15882E-06_JPRB,0.21202E-06_JPRB,0.22611E-06_JPRB /)  
+KB(:, 5,55, 2) = (/ &
+ & 0.11081E-09_JPRB,0.11336E-06_JPRB,0.19316E-06_JPRB,0.25647E-06_JPRB,0.26918E-06_JPRB /)  
+KB(:, 1,56, 2) = (/ &
+ & 0.69093E-10_JPRB,0.36832E-07_JPRB,0.64123E-07_JPRB,0.84030E-07_JPRB,0.90974E-07_JPRB /)  
+KB(:, 2,56, 2) = (/ &
+ & 0.72433E-10_JPRB,0.47084E-07_JPRB,0.82613E-07_JPRB,0.10758E-06_JPRB,0.11346E-06_JPRB /)  
+KB(:, 3,56, 2) = (/ &
+ & 0.76616E-10_JPRB,0.57388E-07_JPRB,0.10182E-06_JPRB,0.13768E-06_JPRB,0.14224E-06_JPRB /)  
+KB(:, 4,56, 2) = (/ &
+ & 0.82709E-10_JPRB,0.71294E-07_JPRB,0.12355E-06_JPRB,0.16530E-06_JPRB,0.17549E-06_JPRB /)  
+KB(:, 5,56, 2) = (/ &
+ & 0.88636E-10_JPRB,0.88445E-07_JPRB,0.15094E-06_JPRB,0.20067E-06_JPRB,0.21118E-06_JPRB /)  
+KB(:, 1,57, 2) = (/ &
+ & 0.55980E-10_JPRB,0.28018E-07_JPRB,0.48867E-07_JPRB,0.64857E-07_JPRB,0.70055E-07_JPRB /)  
+KB(:, 2,57, 2) = (/ &
+ & 0.58397E-10_JPRB,0.36620E-07_JPRB,0.63232E-07_JPRB,0.82428E-07_JPRB,0.87457E-07_JPRB /)  
+KB(:, 3,57, 2) = (/ &
+ & 0.61509E-10_JPRB,0.44446E-07_JPRB,0.80512E-07_JPRB,0.10580E-06_JPRB,0.10988E-06_JPRB /)  
+KB(:, 4,57, 2) = (/ &
+ & 0.66015E-10_JPRB,0.55222E-07_JPRB,0.96401E-07_JPRB,0.12935E-06_JPRB,0.13614E-06_JPRB /)  
+KB(:, 5,57, 2) = (/ &
+ & 0.70976E-10_JPRB,0.68821E-07_JPRB,0.11780E-06_JPRB,0.15632E-06_JPRB,0.16586E-06_JPRB /)  
+KB(:, 1,58, 2) = (/ &
+ & 0.45722E-10_JPRB,0.21506E-07_JPRB,0.37326E-07_JPRB,0.50333E-07_JPRB,0.54855E-07_JPRB /)  
+KB(:, 2,58, 2) = (/ &
+ & 0.47090E-10_JPRB,0.28249E-07_JPRB,0.48612E-07_JPRB,0.63442E-07_JPRB,0.67550E-07_JPRB /)  
+KB(:, 3,58, 2) = (/ &
+ & 0.49550E-10_JPRB,0.34430E-07_JPRB,0.62769E-07_JPRB,0.81509E-07_JPRB,0.84917E-07_JPRB /)  
+KB(:, 4,58, 2) = (/ &
+ & 0.52817E-10_JPRB,0.42958E-07_JPRB,0.75173E-07_JPRB,0.10204E-06_JPRB,0.10603E-06_JPRB /)  
+KB(:, 5,58, 2) = (/ &
+ & 0.56864E-10_JPRB,0.53637E-07_JPRB,0.92044E-07_JPRB,0.12229E-06_JPRB,0.13011E-06_JPRB /)  
+KB(:, 1,59, 2) = (/ &
+ & 0.37496E-10_JPRB,0.17255E-07_JPRB,0.29967E-07_JPRB,0.40394E-07_JPRB,0.44059E-07_JPRB /)  
+KB(:, 2,59, 2) = (/ &
+ & 0.38367E-10_JPRB,0.22782E-07_JPRB,0.39144E-07_JPRB,0.51019E-07_JPRB,0.54404E-07_JPRB /)  
+KB(:, 3,59, 2) = (/ &
+ & 0.40346E-10_JPRB,0.27842E-07_JPRB,0.50692E-07_JPRB,0.65716E-07_JPRB,0.68440E-07_JPRB /)  
+KB(:, 4,59, 2) = (/ &
+ & 0.42908E-10_JPRB,0.34761E-07_JPRB,0.60846E-07_JPRB,0.82834E-07_JPRB,0.85713E-07_JPRB /)  
+KB(:, 5,59, 2) = (/ &
+ & 0.46213E-10_JPRB,0.43467E-07_JPRB,0.74626E-07_JPRB,0.99144E-07_JPRB,0.10518E-06_JPRB /)  
+KB(:, 1,13, 3) = (/ &
+ & 0.91180E-05_JPRB,0.12754E-02_JPRB,0.19900E-02_JPRB,0.24440E-02_JPRB,0.40576E-02_JPRB /)  
+KB(:, 2,13, 3) = (/ &
+ & 0.95037E-05_JPRB,0.14150E-02_JPRB,0.22145E-02_JPRB,0.28094E-02_JPRB,0.44375E-02_JPRB /)  
+KB(:, 3,13, 3) = (/ &
+ & 0.99757E-05_JPRB,0.15626E-02_JPRB,0.24320E-02_JPRB,0.31375E-02_JPRB,0.48097E-02_JPRB /)  
+KB(:, 4,13, 3) = (/ &
+ & 0.10508E-04_JPRB,0.16997E-02_JPRB,0.26926E-02_JPRB,0.34483E-02_JPRB,0.51554E-02_JPRB /)  
+KB(:, 5,13, 3) = (/ &
+ & 0.11033E-04_JPRB,0.18373E-02_JPRB,0.29684E-02_JPRB,0.37861E-02_JPRB,0.54896E-02_JPRB /)  
+KB(:, 1,14, 3) = (/ &
+ & 0.73209E-05_JPRB,0.10727E-02_JPRB,0.16787E-02_JPRB,0.20881E-02_JPRB,0.33041E-02_JPRB /)  
+KB(:, 2,14, 3) = (/ &
+ & 0.76795E-05_JPRB,0.11937E-02_JPRB,0.18683E-02_JPRB,0.23616E-02_JPRB,0.36246E-02_JPRB /)  
+KB(:, 3,14, 3) = (/ &
+ & 0.80417E-05_JPRB,0.13177E-02_JPRB,0.20567E-02_JPRB,0.26465E-02_JPRB,0.39438E-02_JPRB /)  
+KB(:, 4,14, 3) = (/ &
+ & 0.84296E-05_JPRB,0.14317E-02_JPRB,0.22826E-02_JPRB,0.29022E-02_JPRB,0.42368E-02_JPRB /)  
+KB(:, 5,14, 3) = (/ &
+ & 0.88950E-05_JPRB,0.15495E-02_JPRB,0.25084E-02_JPRB,0.31901E-02_JPRB,0.44992E-02_JPRB /)  
+KB(:, 1,15, 3) = (/ &
+ & 0.58275E-05_JPRB,0.89895E-03_JPRB,0.14161E-02_JPRB,0.17760E-02_JPRB,0.26508E-02_JPRB /)  
+KB(:, 2,15, 3) = (/ &
+ & 0.61166E-05_JPRB,0.10025E-02_JPRB,0.15706E-02_JPRB,0.19893E-02_JPRB,0.29219E-02_JPRB /)  
+KB(:, 3,15, 3) = (/ &
+ & 0.64340E-05_JPRB,0.11055E-02_JPRB,0.17375E-02_JPRB,0.22237E-02_JPRB,0.31718E-02_JPRB /)  
+KB(:, 4,15, 3) = (/ &
+ & 0.67501E-05_JPRB,0.12028E-02_JPRB,0.19291E-02_JPRB,0.24433E-02_JPRB,0.34015E-02_JPRB /)  
+KB(:, 5,15, 3) = (/ &
+ & 0.70843E-05_JPRB,0.13034E-02_JPRB,0.21152E-02_JPRB,0.26892E-02_JPRB,0.36350E-02_JPRB /)  
+KB(:, 1,16, 3) = (/ &
+ & 0.45776E-05_JPRB,0.75233E-03_JPRB,0.11906E-02_JPRB,0.14957E-02_JPRB,0.21076E-02_JPRB /)  
+KB(:, 2,16, 3) = (/ &
+ & 0.48262E-05_JPRB,0.84051E-03_JPRB,0.13192E-02_JPRB,0.16780E-02_JPRB,0.23267E-02_JPRB /)  
+KB(:, 3,16, 3) = (/ &
+ & 0.51024E-05_JPRB,0.92603E-03_JPRB,0.14653E-02_JPRB,0.18671E-02_JPRB,0.25242E-02_JPRB /)  
+KB(:, 4,16, 3) = (/ &
+ & 0.53856E-05_JPRB,0.10093E-02_JPRB,0.16288E-02_JPRB,0.20599E-02_JPRB,0.27134E-02_JPRB /)  
+KB(:, 5,16, 3) = (/ &
+ & 0.56625E-05_JPRB,0.10939E-02_JPRB,0.17834E-02_JPRB,0.22693E-02_JPRB,0.29092E-02_JPRB /)  
+KB(:, 1,17, 3) = (/ &
+ & 0.35978E-05_JPRB,0.63055E-03_JPRB,0.10001E-02_JPRB,0.12618E-02_JPRB,0.16759E-02_JPRB /)  
+KB(:, 2,17, 3) = (/ &
+ & 0.38090E-05_JPRB,0.70519E-03_JPRB,0.11080E-02_JPRB,0.14142E-02_JPRB,0.18563E-02_JPRB /)  
+KB(:, 3,17, 3) = (/ &
+ & 0.40365E-05_JPRB,0.77593E-03_JPRB,0.12352E-02_JPRB,0.15692E-02_JPRB,0.20215E-02_JPRB /)  
+KB(:, 4,17, 3) = (/ &
+ & 0.42692E-05_JPRB,0.84648E-03_JPRB,0.13753E-02_JPRB,0.17361E-02_JPRB,0.21882E-02_JPRB /)  
+KB(:, 5,17, 3) = (/ &
+ & 0.45325E-05_JPRB,0.91815E-03_JPRB,0.15031E-02_JPRB,0.19156E-02_JPRB,0.23511E-02_JPRB /)  
+KB(:, 1,18, 3) = (/ &
+ & 0.28577E-05_JPRB,0.52923E-03_JPRB,0.84060E-03_JPRB,0.10641E-02_JPRB,0.13524E-02_JPRB /)  
+KB(:, 2,18, 3) = (/ &
+ & 0.30189E-05_JPRB,0.59275E-03_JPRB,0.93264E-03_JPRB,0.11925E-02_JPRB,0.15051E-02_JPRB /)  
+KB(:, 3,18, 3) = (/ &
+ & 0.31971E-05_JPRB,0.65140E-03_JPRB,0.10422E-02_JPRB,0.13174E-02_JPRB,0.16413E-02_JPRB /)  
+KB(:, 4,18, 3) = (/ &
+ & 0.33981E-05_JPRB,0.71144E-03_JPRB,0.11594E-02_JPRB,0.14613E-02_JPRB,0.17851E-02_JPRB /)  
+KB(:, 5,18, 3) = (/ &
+ & 0.36127E-05_JPRB,0.77200E-03_JPRB,0.12685E-02_JPRB,0.16164E-02_JPRB,0.19166E-02_JPRB /)  
+KB(:, 1,19, 3) = (/ &
+ & 0.22832E-05_JPRB,0.44489E-03_JPRB,0.70523E-03_JPRB,0.89150E-03_JPRB,0.11054E-02_JPRB /)  
+KB(:, 2,19, 3) = (/ &
+ & 0.24005E-05_JPRB,0.49860E-03_JPRB,0.78596E-03_JPRB,0.10033E-02_JPRB,0.12310E-02_JPRB /)  
+KB(:, 3,19, 3) = (/ &
+ & 0.25465E-05_JPRB,0.54746E-03_JPRB,0.88096E-03_JPRB,0.11084E-02_JPRB,0.13479E-02_JPRB /)  
+KB(:, 4,19, 3) = (/ &
+ & 0.27167E-05_JPRB,0.59760E-03_JPRB,0.97685E-03_JPRB,0.12305E-02_JPRB,0.14668E-02_JPRB /)  
+KB(:, 5,19, 3) = (/ &
+ & 0.28927E-05_JPRB,0.64844E-03_JPRB,0.10695E-02_JPRB,0.13632E-02_JPRB,0.15746E-02_JPRB /)  
+KB(:, 1,20, 3) = (/ &
+ & 0.18426E-05_JPRB,0.37567E-03_JPRB,0.59276E-03_JPRB,0.75002E-03_JPRB,0.91159E-03_JPRB /)  
+KB(:, 2,20, 3) = (/ &
+ & 0.19324E-05_JPRB,0.42049E-03_JPRB,0.66376E-03_JPRB,0.84304E-03_JPRB,0.10175E-02_JPRB /)  
+KB(:, 3,20, 3) = (/ &
+ & 0.20563E-05_JPRB,0.46104E-03_JPRB,0.74561E-03_JPRB,0.93568E-03_JPRB,0.11153E-02_JPRB /)  
+KB(:, 4,20, 3) = (/ &
+ & 0.21952E-05_JPRB,0.50302E-03_JPRB,0.82491E-03_JPRB,0.10410E-02_JPRB,0.12131E-02_JPRB /)  
+KB(:, 5,20, 3) = (/ &
+ & 0.23429E-05_JPRB,0.54570E-03_JPRB,0.90324E-03_JPRB,0.11512E-02_JPRB,0.13002E-02_JPRB /)  
+KB(:, 1,21, 3) = (/ &
+ & 0.14914E-05_JPRB,0.31727E-03_JPRB,0.49879E-03_JPRB,0.63141E-03_JPRB,0.75480E-03_JPRB /)  
+KB(:, 2,21, 3) = (/ &
+ & 0.15711E-05_JPRB,0.35367E-03_JPRB,0.56105E-03_JPRB,0.70859E-03_JPRB,0.84278E-03_JPRB /)  
+KB(:, 3,21, 3) = (/ &
+ & 0.16720E-05_JPRB,0.38776E-03_JPRB,0.63122E-03_JPRB,0.79066E-03_JPRB,0.92492E-03_JPRB /)  
+KB(:, 4,21, 3) = (/ &
+ & 0.17830E-05_JPRB,0.42327E-03_JPRB,0.69655E-03_JPRB,0.88311E-03_JPRB,0.10041E-02_JPRB /)  
+KB(:, 5,21, 3) = (/ &
+ & 0.19065E-05_JPRB,0.45905E-03_JPRB,0.76238E-03_JPRB,0.97320E-03_JPRB,0.10767E-02_JPRB /)  
+KB(:, 1,22, 3) = (/ &
+ & 0.12007E-05_JPRB,0.26976E-03_JPRB,0.42316E-03_JPRB,0.53750E-03_JPRB,0.62747E-03_JPRB /)  
+KB(:, 2,22, 3) = (/ &
+ & 0.12744E-05_JPRB,0.29880E-03_JPRB,0.47840E-03_JPRB,0.60094E-03_JPRB,0.70134E-03_JPRB /)  
+KB(:, 3,22, 3) = (/ &
+ & 0.13572E-05_JPRB,0.32813E-03_JPRB,0.53672E-03_JPRB,0.67341E-03_JPRB,0.76916E-03_JPRB /)  
+KB(:, 4,22, 3) = (/ &
+ & 0.14459E-05_JPRB,0.35761E-03_JPRB,0.59154E-03_JPRB,0.75421E-03_JPRB,0.83371E-03_JPRB /)  
+KB(:, 5,22, 3) = (/ &
+ & 0.15538E-05_JPRB,0.38792E-03_JPRB,0.64663E-03_JPRB,0.82877E-03_JPRB,0.89529E-03_JPRB /)  
+KB(:, 1,23, 3) = (/ &
+ & 0.96861E-06_JPRB,0.22918E-03_JPRB,0.36015E-03_JPRB,0.45719E-03_JPRB,0.52404E-03_JPRB /)  
+KB(:, 2,23, 3) = (/ &
+ & 0.10336E-05_JPRB,0.25321E-03_JPRB,0.40834E-03_JPRB,0.51161E-03_JPRB,0.58351E-03_JPRB /)  
+KB(:, 3,23, 3) = (/ &
+ & 0.10985E-05_JPRB,0.27767E-03_JPRB,0.45571E-03_JPRB,0.57459E-03_JPRB,0.63985E-03_JPRB /)  
+KB(:, 4,23, 3) = (/ &
+ & 0.11768E-05_JPRB,0.30252E-03_JPRB,0.50195E-03_JPRB,0.64190E-03_JPRB,0.69303E-03_JPRB /)  
+KB(:, 5,23, 3) = (/ &
+ & 0.12615E-05_JPRB,0.32794E-03_JPRB,0.54831E-03_JPRB,0.70579E-03_JPRB,0.74540E-03_JPRB /)  
+KB(:, 1,24, 3) = (/ &
+ & 0.77560E-06_JPRB,0.19437E-03_JPRB,0.30748E-03_JPRB,0.38828E-03_JPRB,0.43529E-03_JPRB /)  
+KB(:, 2,24, 3) = (/ &
+ & 0.82580E-06_JPRB,0.21438E-03_JPRB,0.34835E-03_JPRB,0.43617E-03_JPRB,0.48373E-03_JPRB /)  
+KB(:, 3,24, 3) = (/ &
+ & 0.88200E-06_JPRB,0.23492E-03_JPRB,0.38680E-03_JPRB,0.49169E-03_JPRB,0.53189E-03_JPRB /)  
+KB(:, 4,24, 3) = (/ &
+ & 0.94947E-06_JPRB,0.25573E-03_JPRB,0.42635E-03_JPRB,0.54641E-03_JPRB,0.57637E-03_JPRB /)  
+KB(:, 5,24, 3) = (/ &
+ & 0.10182E-05_JPRB,0.27745E-03_JPRB,0.46607E-03_JPRB,0.60046E-03_JPRB,0.61998E-03_JPRB /)  
+KB(:, 1,25, 3) = (/ &
+ & 0.61963E-06_JPRB,0.16454E-03_JPRB,0.26284E-03_JPRB,0.33016E-03_JPRB,0.36284E-03_JPRB /)  
+KB(:, 2,25, 3) = (/ &
+ & 0.66146E-06_JPRB,0.18162E-03_JPRB,0.29714E-03_JPRB,0.37315E-03_JPRB,0.40370E-03_JPRB /)  
+KB(:, 3,25, 3) = (/ &
+ & 0.71111E-06_JPRB,0.19882E-03_JPRB,0.32942E-03_JPRB,0.42130E-03_JPRB,0.44382E-03_JPRB /)  
+KB(:, 4,25, 3) = (/ &
+ & 0.76573E-06_JPRB,0.21663E-03_JPRB,0.36228E-03_JPRB,0.46640E-03_JPRB,0.48052E-03_JPRB /)  
+KB(:, 5,25, 3) = (/ &
+ & 0.82100E-06_JPRB,0.23503E-03_JPRB,0.39627E-03_JPRB,0.51132E-03_JPRB,0.51776E-03_JPRB /)  
+KB(:, 1,26, 3) = (/ &
+ & 0.49718E-06_JPRB,0.13982E-03_JPRB,0.22523E-03_JPRB,0.28275E-03_JPRB,0.30558E-03_JPRB /)  
+KB(:, 2,26, 3) = (/ &
+ & 0.53365E-06_JPRB,0.15431E-03_JPRB,0.25368E-03_JPRB,0.32044E-03_JPRB,0.33895E-03_JPRB /)  
+KB(:, 3,26, 3) = (/ &
+ & 0.57705E-06_JPRB,0.16884E-03_JPRB,0.28082E-03_JPRB,0.36019E-03_JPRB,0.37173E-03_JPRB /)  
+KB(:, 4,26, 3) = (/ &
+ & 0.62061E-06_JPRB,0.18393E-03_JPRB,0.30865E-03_JPRB,0.39866E-03_JPRB,0.40243E-03_JPRB /)  
+KB(:, 5,26, 3) = (/ &
+ & 0.66427E-06_JPRB,0.19968E-03_JPRB,0.33757E-03_JPRB,0.43663E-03_JPRB,0.43309E-03_JPRB /)  
+KB(:, 1,27, 3) = (/ &
+ & 0.39961E-06_JPRB,0.11889E-03_JPRB,0.19361E-03_JPRB,0.24270E-03_JPRB,0.25693E-03_JPRB /)  
+KB(:, 2,27, 3) = (/ &
+ & 0.43136E-06_JPRB,0.13100E-03_JPRB,0.21632E-03_JPRB,0.27591E-03_JPRB,0.28463E-03_JPRB /)  
+KB(:, 3,27, 3) = (/ &
+ & 0.46490E-06_JPRB,0.14333E-03_JPRB,0.23966E-03_JPRB,0.30849E-03_JPRB,0.31106E-03_JPRB /)  
+KB(:, 4,27, 3) = (/ &
+ & 0.50009E-06_JPRB,0.15630E-03_JPRB,0.26346E-03_JPRB,0.34083E-03_JPRB,0.33713E-03_JPRB /)  
+KB(:, 5,27, 3) = (/ &
+ & 0.53808E-06_JPRB,0.16999E-03_JPRB,0.28768E-03_JPRB,0.37323E-03_JPRB,0.36279E-03_JPRB /)  
+KB(:, 1,28, 3) = (/ &
+ & 0.31986E-06_JPRB,0.10106E-03_JPRB,0.16585E-03_JPRB,0.20891E-03_JPRB,0.21558E-03_JPRB /)  
+KB(:, 2,28, 3) = (/ &
+ & 0.34540E-06_JPRB,0.11119E-03_JPRB,0.18500E-03_JPRB,0.23760E-03_JPRB,0.23854E-03_JPRB /)  
+KB(:, 3,28, 3) = (/ &
+ & 0.37226E-06_JPRB,0.12183E-03_JPRB,0.20456E-03_JPRB,0.26419E-03_JPRB,0.26053E-03_JPRB /)  
+KB(:, 4,28, 3) = (/ &
+ & 0.40317E-06_JPRB,0.13290E-03_JPRB,0.22487E-03_JPRB,0.29156E-03_JPRB,0.28262E-03_JPRB /)  
+KB(:, 5,28, 3) = (/ &
+ & 0.43271E-06_JPRB,0.14482E-03_JPRB,0.24541E-03_JPRB,0.31934E-03_JPRB,0.30419E-03_JPRB /)  
+KB(:, 1,29, 3) = (/ &
+ & 0.25677E-06_JPRB,0.86060E-04_JPRB,0.14206E-03_JPRB,0.18023E-03_JPRB,0.18141E-03_JPRB /)  
+KB(:, 2,29, 3) = (/ &
+ & 0.27736E-06_JPRB,0.94677E-04_JPRB,0.15841E-03_JPRB,0.20378E-03_JPRB,0.20088E-03_JPRB /)  
+KB(:, 3,29, 3) = (/ &
+ & 0.30104E-06_JPRB,0.10372E-03_JPRB,0.17515E-03_JPRB,0.22663E-03_JPRB,0.21921E-03_JPRB /)  
+KB(:, 4,29, 3) = (/ &
+ & 0.32584E-06_JPRB,0.11340E-03_JPRB,0.19232E-03_JPRB,0.24953E-03_JPRB,0.23789E-03_JPRB /)  
+KB(:, 5,29, 3) = (/ &
+ & 0.34891E-06_JPRB,0.12368E-03_JPRB,0.20976E-03_JPRB,0.27364E-03_JPRB,0.25570E-03_JPRB /)  
+KB(:, 1,30, 3) = (/ &
+ & 0.20556E-06_JPRB,0.73274E-04_JPRB,0.12170E-03_JPRB,0.15588E-03_JPRB,0.15312E-03_JPRB /)  
+KB(:, 2,30, 3) = (/ &
+ & 0.22376E-06_JPRB,0.80651E-04_JPRB,0.13568E-03_JPRB,0.17524E-03_JPRB,0.16948E-03_JPRB /)  
+KB(:, 3,30, 3) = (/ &
+ & 0.24313E-06_JPRB,0.88481E-04_JPRB,0.14992E-03_JPRB,0.19447E-03_JPRB,0.18477E-03_JPRB /)  
+KB(:, 4,30, 3) = (/ &
+ & 0.26233E-06_JPRB,0.96824E-04_JPRB,0.16458E-03_JPRB,0.21409E-03_JPRB,0.20027E-03_JPRB /)  
+KB(:, 5,30, 3) = (/ &
+ & 0.28249E-06_JPRB,0.10580E-03_JPRB,0.17987E-03_JPRB,0.23435E-03_JPRB,0.21532E-03_JPRB /)  
+KB(:, 1,31, 3) = (/ &
+ & 0.16553E-06_JPRB,0.62536E-04_JPRB,0.10457E-03_JPRB,0.13443E-03_JPRB,0.12968E-03_JPRB /)  
+KB(:, 2,31, 3) = (/ &
+ & 0.18078E-06_JPRB,0.68863E-04_JPRB,0.11643E-03_JPRB,0.15060E-03_JPRB,0.14304E-03_JPRB /)  
+KB(:, 3,31, 3) = (/ &
+ & 0.19619E-06_JPRB,0.75670E-04_JPRB,0.12864E-03_JPRB,0.16681E-03_JPRB,0.15615E-03_JPRB /)  
+KB(:, 4,31, 3) = (/ &
+ & 0.21158E-06_JPRB,0.82899E-04_JPRB,0.14114E-03_JPRB,0.18385E-03_JPRB,0.16911E-03_JPRB /)  
+KB(:, 5,31, 3) = (/ &
+ & 0.22915E-06_JPRB,0.90629E-04_JPRB,0.15456E-03_JPRB,0.20099E-03_JPRB,0.18146E-03_JPRB /)  
+KB(:, 1,32, 3) = (/ &
+ & 0.13380E-06_JPRB,0.53407E-04_JPRB,0.89930E-04_JPRB,0.11591E-03_JPRB,0.11005E-03_JPRB /)  
+KB(:, 2,32, 3) = (/ &
+ & 0.14604E-06_JPRB,0.58887E-04_JPRB,0.10001E-03_JPRB,0.12963E-03_JPRB,0.12107E-03_JPRB /)  
+KB(:, 3,32, 3) = (/ &
+ & 0.15848E-06_JPRB,0.64790E-04_JPRB,0.11040E-03_JPRB,0.14349E-03_JPRB,0.13230E-03_JPRB /)  
+KB(:, 4,32, 3) = (/ &
+ & 0.17190E-06_JPRB,0.71169E-04_JPRB,0.12125E-03_JPRB,0.15792E-03_JPRB,0.14297E-03_JPRB /)  
+KB(:, 5,32, 3) = (/ &
+ & 0.18587E-06_JPRB,0.77792E-04_JPRB,0.13292E-03_JPRB,0.17265E-03_JPRB,0.15308E-03_JPRB /)  
+KB(:, 1,33, 3) = (/ &
+ & 0.10830E-06_JPRB,0.45686E-04_JPRB,0.77339E-04_JPRB,0.99867E-04_JPRB,0.93562E-04_JPRB /)  
+KB(:, 2,33, 3) = (/ &
+ & 0.11765E-06_JPRB,0.50526E-04_JPRB,0.85959E-04_JPRB,0.11153E-03_JPRB,0.10269E-03_JPRB /)  
+KB(:, 3,33, 3) = (/ &
+ & 0.12824E-06_JPRB,0.55627E-04_JPRB,0.94900E-04_JPRB,0.12354E-03_JPRB,0.11205E-03_JPRB /)  
+KB(:, 4,33, 3) = (/ &
+ & 0.13958E-06_JPRB,0.61158E-04_JPRB,0.10440E-03_JPRB,0.13573E-03_JPRB,0.12099E-03_JPRB /)  
+KB(:, 5,33, 3) = (/ &
+ & 0.15078E-06_JPRB,0.66909E-04_JPRB,0.11431E-03_JPRB,0.14861E-03_JPRB,0.12918E-03_JPRB /)  
+KB(:, 1,34, 3) = (/ &
+ & 0.87537E-07_JPRB,0.39073E-04_JPRB,0.66330E-04_JPRB,0.85860E-04_JPRB,0.79296E-04_JPRB /)  
+KB(:, 2,34, 3) = (/ &
+ & 0.95270E-07_JPRB,0.43282E-04_JPRB,0.73743E-04_JPRB,0.95733E-04_JPRB,0.87082E-04_JPRB /)  
+KB(:, 3,34, 3) = (/ &
+ & 0.10423E-06_JPRB,0.47701E-04_JPRB,0.81447E-04_JPRB,0.10609E-03_JPRB,0.94857E-04_JPRB /)  
+KB(:, 4,34, 3) = (/ &
+ & 0.11348E-06_JPRB,0.52484E-04_JPRB,0.89624E-04_JPRB,0.11638E-03_JPRB,0.10211E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,34, 3) = (/ &
+ & 0.12289E-06_JPRB,0.57431E-04_JPRB,0.98122E-04_JPRB,0.12760E-03_JPRB,0.10866E-03_JPRB /)  
+KB(:, 1,35, 3) = (/ &
+ & 0.69891E-07_JPRB,0.33129E-04_JPRB,0.56323E-04_JPRB,0.73036E-04_JPRB,0.66568E-04_JPRB /)  
+KB(:, 2,35, 3) = (/ &
+ & 0.76465E-07_JPRB,0.36724E-04_JPRB,0.62627E-04_JPRB,0.81520E-04_JPRB,0.73176E-04_JPRB /)  
+KB(:, 3,35, 3) = (/ &
+ & 0.83833E-07_JPRB,0.40619E-04_JPRB,0.69293E-04_JPRB,0.90161E-04_JPRB,0.79548E-04_JPRB /)  
+KB(:, 4,35, 3) = (/ &
+ & 0.91436E-07_JPRB,0.44671E-04_JPRB,0.76362E-04_JPRB,0.99075E-04_JPRB,0.85497E-04_JPRB /)  
+KB(:, 5,35, 3) = (/ &
+ & 0.99263E-07_JPRB,0.48886E-04_JPRB,0.83550E-04_JPRB,0.10849E-03_JPRB,0.90720E-04_JPRB /)  
+KB(:, 1,36, 3) = (/ &
+ & 0.55080E-07_JPRB,0.27796E-04_JPRB,0.47261E-04_JPRB,0.61299E-04_JPRB,0.55237E-04_JPRB /)  
+KB(:, 2,36, 3) = (/ &
+ & 0.60562E-07_JPRB,0.30850E-04_JPRB,0.52635E-04_JPRB,0.68515E-04_JPRB,0.60794E-04_JPRB /)  
+KB(:, 3,36, 3) = (/ &
+ & 0.66440E-07_JPRB,0.34200E-04_JPRB,0.58298E-04_JPRB,0.75847E-04_JPRB,0.66097E-04_JPRB /)  
+KB(:, 4,36, 3) = (/ &
+ & 0.72913E-07_JPRB,0.37650E-04_JPRB,0.64310E-04_JPRB,0.83530E-04_JPRB,0.71032E-04_JPRB /)  
+KB(:, 5,36, 3) = (/ &
+ & 0.79545E-07_JPRB,0.41216E-04_JPRB,0.70397E-04_JPRB,0.91304E-04_JPRB,0.75193E-04_JPRB /)  
+KB(:, 1,37, 3) = (/ &
+ & 0.43644E-07_JPRB,0.22997E-04_JPRB,0.39088E-04_JPRB,0.50714E-04_JPRB,0.45374E-04_JPRB /)  
+KB(:, 2,37, 3) = (/ &
+ & 0.48182E-07_JPRB,0.25585E-04_JPRB,0.43661E-04_JPRB,0.56813E-04_JPRB,0.50057E-04_JPRB /)  
+KB(:, 3,37, 3) = (/ &
+ & 0.53067E-07_JPRB,0.28429E-04_JPRB,0.48465E-04_JPRB,0.63020E-04_JPRB,0.54490E-04_JPRB /)  
+KB(:, 4,37, 3) = (/ &
+ & 0.58349E-07_JPRB,0.31365E-04_JPRB,0.53603E-04_JPRB,0.69516E-04_JPRB,0.58585E-04_JPRB /)  
+KB(:, 5,37, 3) = (/ &
+ & 0.63727E-07_JPRB,0.34398E-04_JPRB,0.58710E-04_JPRB,0.76032E-04_JPRB,0.62046E-04_JPRB /)  
+KB(:, 1,38, 3) = (/ &
+ & 0.34661E-07_JPRB,0.19003E-04_JPRB,0.32295E-04_JPRB,0.41898E-04_JPRB,0.37207E-04_JPRB /)  
+KB(:, 2,38, 3) = (/ &
+ & 0.38414E-07_JPRB,0.21200E-04_JPRB,0.36170E-04_JPRB,0.47045E-04_JPRB,0.41150E-04_JPRB /)  
+KB(:, 3,38, 3) = (/ &
+ & 0.42378E-07_JPRB,0.23605E-04_JPRB,0.40247E-04_JPRB,0.52306E-04_JPRB,0.44872E-04_JPRB /)  
+KB(:, 4,38, 3) = (/ &
+ & 0.46598E-07_JPRB,0.26110E-04_JPRB,0.44620E-04_JPRB,0.57800E-04_JPRB,0.48293E-04_JPRB /)  
+KB(:, 5,38, 3) = (/ &
+ & 0.50995E-07_JPRB,0.28683E-04_JPRB,0.48935E-04_JPRB,0.63250E-04_JPRB,0.51155E-04_JPRB /)  
+KB(:, 1,39, 3) = (/ &
+ & 0.27545E-07_JPRB,0.15700E-04_JPRB,0.26661E-04_JPRB,0.34603E-04_JPRB,0.30487E-04_JPRB /)  
+KB(:, 2,39, 3) = (/ &
+ & 0.30553E-07_JPRB,0.17568E-04_JPRB,0.29948E-04_JPRB,0.38935E-04_JPRB,0.33813E-04_JPRB /)  
+KB(:, 3,39, 3) = (/ &
+ & 0.33772E-07_JPRB,0.19601E-04_JPRB,0.33411E-04_JPRB,0.43403E-04_JPRB,0.36922E-04_JPRB /)  
+KB(:, 4,39, 3) = (/ &
+ & 0.37164E-07_JPRB,0.21726E-04_JPRB,0.37113E-04_JPRB,0.48030E-04_JPRB,0.39771E-04_JPRB /)  
+KB(:, 5,39, 3) = (/ &
+ & 0.40795E-07_JPRB,0.23901E-04_JPRB,0.40765E-04_JPRB,0.52607E-04_JPRB,0.42152E-04_JPRB /)  
+KB(:, 1,40, 3) = (/ &
+ & 0.21852E-07_JPRB,0.12819E-04_JPRB,0.21757E-04_JPRB,0.28221E-04_JPRB,0.24745E-04_JPRB /)  
+KB(:, 2,40, 3) = (/ &
+ & 0.24207E-07_JPRB,0.14395E-04_JPRB,0.24527E-04_JPRB,0.31867E-04_JPRB,0.27502E-04_JPRB /)  
+KB(:, 3,40, 3) = (/ &
+ & 0.26806E-07_JPRB,0.16092E-04_JPRB,0.27462E-04_JPRB,0.35646E-04_JPRB,0.30145E-04_JPRB /)  
+KB(:, 4,40, 3) = (/ &
+ & 0.29612E-07_JPRB,0.17894E-04_JPRB,0.30572E-04_JPRB,0.39527E-04_JPRB,0.32543E-04_JPRB /)  
+KB(:, 5,40, 3) = (/ &
+ & 0.32577E-07_JPRB,0.19746E-04_JPRB,0.33672E-04_JPRB,0.43399E-04_JPRB,0.34556E-04_JPRB /)  
+KB(:, 1,41, 3) = (/ &
+ & 0.17336E-07_JPRB,0.10441E-04_JPRB,0.17695E-04_JPRB,0.22954E-04_JPRB,0.20042E-04_JPRB /)  
+KB(:, 2,41, 3) = (/ &
+ & 0.19187E-07_JPRB,0.11771E-04_JPRB,0.20025E-04_JPRB,0.26029E-04_JPRB,0.22346E-04_JPRB /)  
+KB(:, 3,41, 3) = (/ &
+ & 0.21311E-07_JPRB,0.13190E-04_JPRB,0.22516E-04_JPRB,0.29201E-04_JPRB,0.24577E-04_JPRB /)  
+KB(:, 4,41, 3) = (/ &
+ & 0.23597E-07_JPRB,0.14712E-04_JPRB,0.25122E-04_JPRB,0.32466E-04_JPRB,0.26584E-04_JPRB /)  
+KB(:, 5,41, 3) = (/ &
+ & 0.25958E-07_JPRB,0.16280E-04_JPRB,0.27744E-04_JPRB,0.35762E-04_JPRB,0.28295E-04_JPRB /)  
+KB(:, 1,42, 3) = (/ &
+ & 0.13752E-07_JPRB,0.84970E-05_JPRB,0.14379E-04_JPRB,0.18640E-04_JPRB,0.16205E-04_JPRB /)  
+KB(:, 2,42, 3) = (/ &
+ & 0.15240E-07_JPRB,0.96082E-05_JPRB,0.16325E-04_JPRB,0.21225E-04_JPRB,0.18124E-04_JPRB /)  
+KB(:, 3,42, 3) = (/ &
+ & 0.16924E-07_JPRB,0.10802E-04_JPRB,0.18430E-04_JPRB,0.23896E-04_JPRB,0.20024E-04_JPRB /)  
+KB(:, 4,42, 3) = (/ &
+ & 0.18767E-07_JPRB,0.12087E-04_JPRB,0.20609E-04_JPRB,0.26651E-04_JPRB,0.21698E-04_JPRB /)  
+KB(:, 5,42, 3) = (/ &
+ & 0.20666E-07_JPRB,0.13409E-04_JPRB,0.22837E-04_JPRB,0.29427E-04_JPRB,0.23153E-04_JPRB /)  
+KB(:, 1,43, 3) = (/ &
+ & 0.10827E-07_JPRB,0.68624E-05_JPRB,0.11586E-04_JPRB,0.14999E-04_JPRB,0.12975E-04_JPRB /)  
+KB(:, 2,43, 3) = (/ &
+ & 0.12030E-07_JPRB,0.77847E-05_JPRB,0.13205E-04_JPRB,0.17164E-04_JPRB,0.14605E-04_JPRB /)  
+KB(:, 3,43, 3) = (/ &
+ & 0.13352E-07_JPRB,0.87779E-05_JPRB,0.14974E-04_JPRB,0.19410E-04_JPRB,0.16231E-04_JPRB /)  
+KB(:, 4,43, 3) = (/ &
+ & 0.14829E-07_JPRB,0.98620E-05_JPRB,0.16795E-04_JPRB,0.21751E-04_JPRB,0.17634E-04_JPRB /)  
+KB(:, 5,43, 3) = (/ &
+ & 0.16396E-07_JPRB,0.10975E-04_JPRB,0.18682E-04_JPRB,0.24066E-04_JPRB,0.18879E-04_JPRB /)  
+KB(:, 1,44, 3) = (/ &
+ & 0.85731E-08_JPRB,0.55132E-05_JPRB,0.92862E-05_JPRB,0.12000E-04_JPRB,0.10347E-04_JPRB /)  
+KB(:, 2,44, 3) = (/ &
+ & 0.95033E-08_JPRB,0.62816E-05_JPRB,0.10629E-04_JPRB,0.13817E-04_JPRB,0.11712E-04_JPRB /)  
+KB(:, 3,44, 3) = (/ &
+ & 0.10537E-07_JPRB,0.70964E-05_JPRB,0.12108E-04_JPRB,0.15700E-04_JPRB,0.13095E-04_JPRB /)  
+KB(:, 4,44, 3) = (/ &
+ & 0.11722E-07_JPRB,0.80120E-05_JPRB,0.13621E-04_JPRB,0.17679E-04_JPRB,0.14296E-04_JPRB /)  
+KB(:, 5,44, 3) = (/ &
+ & 0.12991E-07_JPRB,0.89457E-05_JPRB,0.15220E-04_JPRB,0.19614E-04_JPRB,0.15350E-04_JPRB /)  
+KB(:, 1,45, 3) = (/ &
+ & 0.67515E-08_JPRB,0.44212E-05_JPRB,0.74244E-05_JPRB,0.95776E-05_JPRB,0.82429E-05_JPRB /)  
+KB(:, 2,45, 3) = (/ &
+ & 0.74999E-08_JPRB,0.50603E-05_JPRB,0.85360E-05_JPRB,0.11095E-04_JPRB,0.93791E-05_JPRB /)  
+KB(:, 3,45, 3) = (/ &
+ & 0.83182E-08_JPRB,0.57411E-05_JPRB,0.97686E-05_JPRB,0.12667E-04_JPRB,0.10528E-04_JPRB /)  
+KB(:, 4,45, 3) = (/ &
+ & 0.92526E-08_JPRB,0.64942E-05_JPRB,0.11028E-04_JPRB,0.14328E-04_JPRB,0.11566E-04_JPRB /)  
+KB(:, 5,45, 3) = (/ &
+ & 0.10269E-07_JPRB,0.72769E-05_JPRB,0.12375E-04_JPRB,0.15964E-04_JPRB,0.12472E-04_JPRB /)  
+KB(:, 1,46, 3) = (/ &
+ & 0.53031E-08_JPRB,0.35301E-05_JPRB,0.59050E-05_JPRB,0.75965E-05_JPRB,0.65452E-05_JPRB /)  
+KB(:, 2,46, 3) = (/ &
+ & 0.58907E-08_JPRB,0.40561E-05_JPRB,0.68233E-05_JPRB,0.88621E-05_JPRB,0.74771E-05_JPRB /)  
+KB(:, 3,46, 3) = (/ &
+ & 0.65422E-08_JPRB,0.46270E-05_JPRB,0.78393E-05_JPRB,0.10169E-04_JPRB,0.84370E-05_JPRB /)  
+KB(:, 4,46, 3) = (/ &
+ & 0.72669E-08_JPRB,0.52433E-05_JPRB,0.89061E-05_JPRB,0.11563E-04_JPRB,0.93268E-05_JPRB /)  
+KB(:, 5,46, 3) = (/ &
+ & 0.80880E-08_JPRB,0.58967E-05_JPRB,0.10016E-04_JPRB,0.12930E-04_JPRB,0.10106E-04_JPRB /)  
+KB(:, 1,47, 3) = (/ &
+ & 0.41459E-08_JPRB,0.27965E-05_JPRB,0.46529E-05_JPRB,0.59648E-05_JPRB,0.51552E-05_JPRB /)  
+KB(:, 2,47, 3) = (/ &
+ & 0.46324E-08_JPRB,0.32253E-05_JPRB,0.54100E-05_JPRB,0.70094E-05_JPRB,0.59110E-05_JPRB /)  
+KB(:, 3,47, 3) = (/ &
+ & 0.51433E-08_JPRB,0.37014E-05_JPRB,0.62395E-05_JPRB,0.80976E-05_JPRB,0.67100E-05_JPRB /)  
+KB(:, 4,47, 3) = (/ &
+ & 0.57045E-08_JPRB,0.42091E-05_JPRB,0.71381E-05_JPRB,0.92537E-05_JPRB,0.74896E-05_JPRB /)  
+KB(:, 5,47, 3) = (/ &
+ & 0.63526E-08_JPRB,0.47541E-05_JPRB,0.80573E-05_JPRB,0.10428E-04_JPRB,0.81540E-05_JPRB /)  
+KB(:, 1,48, 3) = (/ &
+ & 0.32549E-08_JPRB,0.22089E-05_JPRB,0.36571E-05_JPRB,0.46663E-05_JPRB,0.40387E-05_JPRB /)  
+KB(:, 2,48, 3) = (/ &
+ & 0.36192E-08_JPRB,0.25581E-05_JPRB,0.42752E-05_JPRB,0.55265E-05_JPRB,0.46582E-05_JPRB /)  
+KB(:, 3,48, 3) = (/ &
+ & 0.40215E-08_JPRB,0.29515E-05_JPRB,0.49553E-05_JPRB,0.64327E-05_JPRB,0.53236E-05_JPRB /)  
+KB(:, 4,48, 3) = (/ &
+ & 0.44736E-08_JPRB,0.33690E-05_JPRB,0.57015E-05_JPRB,0.73859E-05_JPRB,0.59960E-05_JPRB /)  
+KB(:, 5,48, 3) = (/ &
+ & 0.49760E-08_JPRB,0.38276E-05_JPRB,0.64596E-05_JPRB,0.83844E-05_JPRB,0.65647E-05_JPRB /)  
+KB(:, 1,49, 3) = (/ &
+ & 0.25432E-08_JPRB,0.17390E-05_JPRB,0.28607E-05_JPRB,0.36438E-05_JPRB,0.31425E-05_JPRB /)  
+KB(:, 2,49, 3) = (/ &
+ & 0.28364E-08_JPRB,0.20219E-05_JPRB,0.33698E-05_JPRB,0.43412E-05_JPRB,0.36654E-05_JPRB /)  
+KB(:, 3,49, 3) = (/ &
+ & 0.31601E-08_JPRB,0.23472E-05_JPRB,0.39232E-05_JPRB,0.50964E-05_JPRB,0.42142E-05_JPRB /)  
+KB(:, 4,49, 3) = (/ &
+ & 0.35101E-08_JPRB,0.26948E-05_JPRB,0.45429E-05_JPRB,0.58797E-05_JPRB,0.47715E-05_JPRB /)  
+KB(:, 5,49, 3) = (/ &
+ & 0.38989E-08_JPRB,0.30718E-05_JPRB,0.51731E-05_JPRB,0.67190E-05_JPRB,0.52720E-05_JPRB /)  
+KB(:, 1,50, 3) = (/ &
+ & 0.20093E-08_JPRB,0.13704E-05_JPRB,0.22373E-05_JPRB,0.28375E-05_JPRB,0.24550E-05_JPRB /)  
+KB(:, 2,50, 3) = (/ &
+ & 0.22270E-08_JPRB,0.16020E-05_JPRB,0.26626E-05_JPRB,0.34144E-05_JPRB,0.28963E-05_JPRB /)  
+KB(:, 3,50, 3) = (/ &
+ & 0.24797E-08_JPRB,0.18686E-05_JPRB,0.31131E-05_JPRB,0.40348E-05_JPRB,0.33398E-05_JPRB /)  
+KB(:, 4,50, 3) = (/ &
+ & 0.27614E-08_JPRB,0.21593E-05_JPRB,0.36199E-05_JPRB,0.46856E-05_JPRB,0.38019E-05_JPRB /)  
+KB(:, 5,50, 3) = (/ &
+ & 0.30674E-08_JPRB,0.24699E-05_JPRB,0.41517E-05_JPRB,0.53844E-05_JPRB,0.42322E-05_JPRB /)  
+KB(:, 1,51, 3) = (/ &
+ & 0.15907E-08_JPRB,0.10803E-05_JPRB,0.17518E-05_JPRB,0.22064E-05_JPRB,0.19254E-05_JPRB /)  
+KB(:, 2,51, 3) = (/ &
+ & 0.17509E-08_JPRB,0.12691E-05_JPRB,0.21000E-05_JPRB,0.26794E-05_JPRB,0.22832E-05_JPRB /)  
+KB(:, 3,51, 3) = (/ &
+ & 0.19509E-08_JPRB,0.14861E-05_JPRB,0.24726E-05_JPRB,0.31957E-05_JPRB,0.26418E-05_JPRB /)  
+KB(:, 4,51, 3) = (/ &
+ & 0.21703E-08_JPRB,0.17284E-05_JPRB,0.28838E-05_JPRB,0.37325E-05_JPRB,0.30257E-05_JPRB /)  
+KB(:, 5,51, 3) = (/ &
+ & 0.24124E-08_JPRB,0.19844E-05_JPRB,0.33305E-05_JPRB,0.43128E-05_JPRB,0.34015E-05_JPRB /)  
+KB(:, 1,52, 3) = (/ &
+ & 0.12564E-08_JPRB,0.84669E-06_JPRB,0.13717E-05_JPRB,0.17147E-05_JPRB,0.14947E-05_JPRB /)  
+KB(:, 2,52, 3) = (/ &
+ & 0.13794E-08_JPRB,0.10024E-05_JPRB,0.16523E-05_JPRB,0.20993E-05_JPRB,0.17870E-05_JPRB /)  
+KB(:, 3,52, 3) = (/ &
+ & 0.15320E-08_JPRB,0.11790E-05_JPRB,0.19577E-05_JPRB,0.25220E-05_JPRB,0.20845E-05_JPRB /)  
+KB(:, 4,52, 3) = (/ &
+ & 0.17130E-08_JPRB,0.13791E-05_JPRB,0.22952E-05_JPRB,0.29677E-05_JPRB,0.24040E-05_JPRB /)  
+KB(:, 5,52, 3) = (/ &
+ & 0.19041E-08_JPRB,0.15914E-05_JPRB,0.26635E-05_JPRB,0.34439E-05_JPRB,0.27247E-05_JPRB /)  
+KB(:, 1,53, 3) = (/ &
+ & 0.99523E-09_JPRB,0.66219E-06_JPRB,0.10632E-05_JPRB,0.13341E-05_JPRB,0.11550E-05_JPRB /)  
+KB(:, 2,53, 3) = (/ &
+ & 0.10903E-08_JPRB,0.79022E-06_JPRB,0.12914E-05_JPRB,0.16401E-05_JPRB,0.13929E-05_JPRB /)  
+KB(:, 3,53, 3) = (/ &
+ & 0.12082E-08_JPRB,0.93266E-06_JPRB,0.15445E-05_JPRB,0.19841E-05_JPRB,0.16452E-05_JPRB /)  
+KB(:, 4,53, 3) = (/ &
+ & 0.13437E-08_JPRB,0.10969E-05_JPRB,0.18212E-05_JPRB,0.23517E-05_JPRB,0.19029E-05_JPRB /)  
+KB(:, 5,53, 3) = (/ &
+ & 0.14972E-08_JPRB,0.12734E-05_JPRB,0.21276E-05_JPRB,0.27431E-05_JPRB,0.21722E-05_JPRB /)  
+KB(:, 1,54, 3) = (/ &
+ & 0.78782E-09_JPRB,0.51993E-06_JPRB,0.82752E-06_JPRB,0.10421E-05_JPRB,0.88632E-06_JPRB /)  
+KB(:, 2,54, 3) = (/ &
+ & 0.86642E-09_JPRB,0.62440E-06_JPRB,0.10138E-05_JPRB,0.12820E-05_JPRB,0.10958E-05_JPRB /)  
+KB(:, 3,54, 3) = (/ &
+ & 0.95141E-09_JPRB,0.74051E-06_JPRB,0.12221E-05_JPRB,0.15626E-05_JPRB,0.13014E-05_JPRB /)  
+KB(:, 4,54, 3) = (/ &
+ & 0.10622E-08_JPRB,0.87438E-06_JPRB,0.14481E-05_JPRB,0.18675E-05_JPRB,0.15138E-05_JPRB /)  
+KB(:, 5,54, 3) = (/ &
+ & 0.11829E-08_JPRB,0.10217E-05_JPRB,0.17025E-05_JPRB,0.21900E-05_JPRB,0.17349E-05_JPRB /)  
+KB(:, 1,55, 3) = (/ &
+ & 0.62734E-09_JPRB,0.40844E-06_JPRB,0.64675E-06_JPRB,0.81168E-06_JPRB,0.68015E-06_JPRB /)  
+KB(:, 2,55, 3) = (/ &
+ & 0.68670E-09_JPRB,0.49437E-06_JPRB,0.79822E-06_JPRB,0.10031E-05_JPRB,0.85955E-06_JPRB /)  
+KB(:, 3,55, 3) = (/ &
+ & 0.75551E-09_JPRB,0.58813E-06_JPRB,0.96640E-06_JPRB,0.12305E-05_JPRB,0.10290E-05_JPRB /)  
+KB(:, 4,55, 3) = (/ &
+ & 0.83896E-09_JPRB,0.69762E-06_JPRB,0.11529E-05_JPRB,0.14845E-05_JPRB,0.12025E-05_JPRB /)  
+KB(:, 5,55, 3) = (/ &
+ & 0.93727E-09_JPRB,0.81992E-06_JPRB,0.13618E-05_JPRB,0.17489E-05_JPRB,0.13856E-05_JPRB /)  
+KB(:, 1,56, 3) = (/ &
+ & 0.50214E-09_JPRB,0.32028E-06_JPRB,0.50524E-06_JPRB,0.63147E-06_JPRB,0.51903E-06_JPRB /)  
+KB(:, 2,56, 3) = (/ &
+ & 0.54775E-09_JPRB,0.38841E-06_JPRB,0.62589E-06_JPRB,0.78445E-06_JPRB,0.67099E-06_JPRB /)  
+KB(:, 3,56, 3) = (/ &
+ & 0.59971E-09_JPRB,0.46602E-06_JPRB,0.76356E-06_JPRB,0.96978E-06_JPRB,0.80912E-06_JPRB /)  
+KB(:, 4,56, 3) = (/ &
+ & 0.66466E-09_JPRB,0.55509E-06_JPRB,0.91533E-06_JPRB,0.11766E-05_JPRB,0.95284E-06_JPRB /)  
+KB(:, 5,56, 3) = (/ &
+ & 0.73931E-09_JPRB,0.65625E-06_JPRB,0.10864E-05_JPRB,0.13946E-05_JPRB,0.11055E-05_JPRB /)  
+KB(:, 1,57, 3) = (/ &
+ & 0.40171E-09_JPRB,0.25009E-06_JPRB,0.39211E-06_JPRB,0.49250E-06_JPRB,0.39332E-06_JPRB /)  
+KB(:, 2,57, 3) = (/ &
+ & 0.43379E-09_JPRB,0.30473E-06_JPRB,0.48932E-06_JPRB,0.61342E-06_JPRB,0.52076E-06_JPRB /)  
+KB(:, 3,57, 3) = (/ &
+ & 0.47729E-09_JPRB,0.36874E-06_JPRB,0.59978E-06_JPRB,0.76246E-06_JPRB,0.63556E-06_JPRB /)  
+KB(:, 4,57, 3) = (/ &
+ & 0.52454E-09_JPRB,0.44075E-06_JPRB,0.72488E-06_JPRB,0.93079E-06_JPRB,0.75448E-06_JPRB /)  
+KB(:, 5,57, 3) = (/ &
+ & 0.58546E-09_JPRB,0.52389E-06_JPRB,0.86565E-06_JPRB,0.11107E-05_JPRB,0.87858E-06_JPRB /)  
+KB(:, 1,58, 3) = (/ &
+ & 0.32222E-09_JPRB,0.19536E-06_JPRB,0.30484E-06_JPRB,0.38123E-06_JPRB,0.29798E-06_JPRB /)  
+KB(:, 2,58, 3) = (/ &
+ & 0.34550E-09_JPRB,0.24003E-06_JPRB,0.38206E-06_JPRB,0.48033E-06_JPRB,0.40193E-06_JPRB /)  
+KB(:, 3,58, 3) = (/ &
+ & 0.37930E-09_JPRB,0.29179E-06_JPRB,0.47226E-06_JPRB,0.59938E-06_JPRB,0.50056E-06_JPRB /)  
+KB(:, 4,58, 3) = (/ &
+ & 0.41675E-09_JPRB,0.35035E-06_JPRB,0.57500E-06_JPRB,0.73642E-06_JPRB,0.59836E-06_JPRB /)  
+KB(:, 5,58, 3) = (/ &
+ & 0.46320E-09_JPRB,0.41854E-06_JPRB,0.69041E-06_JPRB,0.88548E-06_JPRB,0.70003E-06_JPRB /)  
+KB(:, 1,59, 3) = (/ &
+ & 0.26166E-09_JPRB,0.15868E-06_JPRB,0.24697E-06_JPRB,0.30892E-06_JPRB,0.23964E-06_JPRB /)  
+KB(:, 2,59, 3) = (/ &
+ & 0.28095E-09_JPRB,0.19552E-06_JPRB,0.31068E-06_JPRB,0.39037E-06_JPRB,0.32469E-06_JPRB /)  
+KB(:, 3,59, 3) = (/ &
+ & 0.30730E-09_JPRB,0.23856E-06_JPRB,0.38554E-06_JPRB,0.48902E-06_JPRB,0.40738E-06_JPRB /)  
+KB(:, 4,59, 3) = (/ &
+ & 0.33781E-09_JPRB,0.28749E-06_JPRB,0.47157E-06_JPRB,0.60286E-06_JPRB,0.48803E-06_JPRB /)  
+KB(:, 5,59, 3) = (/ &
+ & 0.37526E-09_JPRB,0.34439E-06_JPRB,0.56789E-06_JPRB,0.72742E-06_JPRB,0.57238E-06_JPRB /)  
+KB(:, 1,13, 4) = (/ &
+ & 0.49038E-04_JPRB,0.50781E-02_JPRB,0.78254E-02_JPRB,0.96484E-02_JPRB,0.10614E-01_JPRB /)  
+KB(:, 2,13, 4) = (/ &
+ & 0.54225E-04_JPRB,0.54905E-02_JPRB,0.85710E-02_JPRB,0.10460E-01_JPRB,0.11206E-01_JPRB /)  
+KB(:, 3,13, 4) = (/ &
+ & 0.61134E-04_JPRB,0.58773E-02_JPRB,0.93183E-02_JPRB,0.11347E-01_JPRB,0.11729E-01_JPRB /)  
+KB(:, 4,13, 4) = (/ &
+ & 0.68793E-04_JPRB,0.62794E-02_JPRB,0.99768E-02_JPRB,0.12248E-01_JPRB,0.12250E-01_JPRB /)  
+KB(:, 5,13, 4) = (/ &
+ & 0.77429E-04_JPRB,0.66893E-02_JPRB,0.10624E-01_JPRB,0.13064E-01_JPRB,0.12730E-01_JPRB /)  
+KB(:, 1,14, 4) = (/ &
+ & 0.40706E-04_JPRB,0.43045E-02_JPRB,0.66240E-02_JPRB,0.81227E-02_JPRB,0.87105E-02_JPRB /)  
+KB(:, 2,14, 4) = (/ &
+ & 0.45789E-04_JPRB,0.46404E-02_JPRB,0.72547E-02_JPRB,0.88508E-02_JPRB,0.92183E-02_JPRB /)  
+KB(:, 3,14, 4) = (/ &
+ & 0.51359E-04_JPRB,0.49670E-02_JPRB,0.78649E-02_JPRB,0.95928E-02_JPRB,0.96590E-02_JPRB /)  
+KB(:, 4,14, 4) = (/ &
+ & 0.58448E-04_JPRB,0.53112E-02_JPRB,0.84165E-02_JPRB,0.10356E-01_JPRB,0.10085E-01_JPRB /)  
+KB(:, 5,14, 4) = (/ &
+ & 0.66585E-04_JPRB,0.56590E-02_JPRB,0.89770E-02_JPRB,0.11022E-01_JPRB,0.10540E-01_JPRB /)  
+KB(:, 1,15, 4) = (/ &
+ & 0.33161E-04_JPRB,0.36374E-02_JPRB,0.56007E-02_JPRB,0.68408E-02_JPRB,0.70399E-02_JPRB /)  
+KB(:, 2,15, 4) = (/ &
+ & 0.37316E-04_JPRB,0.39145E-02_JPRB,0.61318E-02_JPRB,0.74812E-02_JPRB,0.74533E-02_JPRB /)  
+KB(:, 3,15, 4) = (/ &
+ & 0.42184E-04_JPRB,0.41949E-02_JPRB,0.66272E-02_JPRB,0.81097E-02_JPRB,0.78393E-02_JPRB /)  
+KB(:, 4,15, 4) = (/ &
+ & 0.48249E-04_JPRB,0.44861E-02_JPRB,0.70934E-02_JPRB,0.87330E-02_JPRB,0.82262E-02_JPRB /)  
+KB(:, 5,15, 4) = (/ &
+ & 0.54912E-04_JPRB,0.47829E-02_JPRB,0.75688E-02_JPRB,0.92830E-02_JPRB,0.86058E-02_JPRB /)  
+KB(:, 1,16, 4) = (/ &
+ & 0.26598E-04_JPRB,0.30649E-02_JPRB,0.47323E-02_JPRB,0.57742E-02_JPRB,0.56644E-02_JPRB /)  
+KB(:, 2,16, 4) = (/ &
+ & 0.30096E-04_JPRB,0.32950E-02_JPRB,0.51778E-02_JPRB,0.63145E-02_JPRB,0.60193E-02_JPRB /)  
+KB(:, 3,16, 4) = (/ &
+ & 0.34085E-04_JPRB,0.35350E-02_JPRB,0.55806E-02_JPRB,0.68447E-02_JPRB,0.63708E-02_JPRB /)  
+KB(:, 4,16, 4) = (/ &
+ & 0.38919E-04_JPRB,0.37831E-02_JPRB,0.59719E-02_JPRB,0.73465E-02_JPRB,0.67088E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,16, 4) = (/ &
+ & 0.44492E-04_JPRB,0.40393E-02_JPRB,0.63750E-02_JPRB,0.78120E-02_JPRB,0.70249E-02_JPRB /)  
+KB(:, 1,17, 4) = (/ &
+ & 0.21449E-04_JPRB,0.25756E-02_JPRB,0.39936E-02_JPRB,0.48662E-02_JPRB,0.46205E-02_JPRB /)  
+KB(:, 2,17, 4) = (/ &
+ & 0.24103E-04_JPRB,0.27706E-02_JPRB,0.43619E-02_JPRB,0.53164E-02_JPRB,0.49202E-02_JPRB /)  
+KB(:, 3,17, 4) = (/ &
+ & 0.27451E-04_JPRB,0.29765E-02_JPRB,0.46959E-02_JPRB,0.57632E-02_JPRB,0.52122E-02_JPRB /)  
+KB(:, 4,17, 4) = (/ &
+ & 0.31381E-04_JPRB,0.31884E-02_JPRB,0.50222E-02_JPRB,0.61735E-02_JPRB,0.54790E-02_JPRB /)  
+KB(:, 5,17, 4) = (/ &
+ & 0.35953E-04_JPRB,0.34099E-02_JPRB,0.53645E-02_JPRB,0.65659E-02_JPRB,0.57419E-02_JPRB /)  
+KB(:, 1,18, 4) = (/ &
+ & 0.17468E-04_JPRB,0.21642E-02_JPRB,0.33642E-02_JPRB,0.40972E-02_JPRB,0.37921E-02_JPRB /)  
+KB(:, 2,18, 4) = (/ &
+ & 0.19506E-04_JPRB,0.23308E-02_JPRB,0.36683E-02_JPRB,0.44696E-02_JPRB,0.40385E-02_JPRB /)  
+KB(:, 3,18, 4) = (/ &
+ & 0.22326E-04_JPRB,0.25072E-02_JPRB,0.39454E-02_JPRB,0.48507E-02_JPRB,0.42773E-02_JPRB /)  
+KB(:, 4,18, 4) = (/ &
+ & 0.25558E-04_JPRB,0.26901E-02_JPRB,0.42240E-02_JPRB,0.51855E-02_JPRB,0.45000E-02_JPRB /)  
+KB(:, 5,18, 4) = (/ &
+ & 0.29519E-04_JPRB,0.28816E-02_JPRB,0.45135E-02_JPRB,0.55168E-02_JPRB,0.47259E-02_JPRB /)  
+KB(:, 1,19, 4) = (/ &
+ & 0.14162E-04_JPRB,0.18165E-02_JPRB,0.28311E-02_JPRB,0.34491E-02_JPRB,0.31263E-02_JPRB /)  
+KB(:, 2,19, 4) = (/ &
+ & 0.15880E-04_JPRB,0.19594E-02_JPRB,0.30792E-02_JPRB,0.37577E-02_JPRB,0.33277E-02_JPRB /)  
+KB(:, 3,19, 4) = (/ &
+ & 0.18250E-04_JPRB,0.21124E-02_JPRB,0.33110E-02_JPRB,0.40717E-02_JPRB,0.35255E-02_JPRB /)  
+KB(:, 4,19, 4) = (/ &
+ & 0.20948E-04_JPRB,0.22711E-02_JPRB,0.35512E-02_JPRB,0.43541E-02_JPRB,0.37114E-02_JPRB /)  
+KB(:, 5,19, 4) = (/ &
+ & 0.24279E-04_JPRB,0.24360E-02_JPRB,0.37972E-02_JPRB,0.46336E-02_JPRB,0.39063E-02_JPRB /)  
+KB(:, 1,20, 4) = (/ &
+ & 0.11677E-04_JPRB,0.15268E-02_JPRB,0.23854E-02_JPRB,0.29054E-02_JPRB,0.25927E-02_JPRB /)  
+KB(:, 2,20, 4) = (/ &
+ & 0.13127E-04_JPRB,0.16502E-02_JPRB,0.25884E-02_JPRB,0.31642E-02_JPRB,0.27584E-02_JPRB /)  
+KB(:, 3,20, 4) = (/ &
+ & 0.15145E-04_JPRB,0.17827E-02_JPRB,0.27854E-02_JPRB,0.34198E-02_JPRB,0.29228E-02_JPRB /)  
+KB(:, 4,20, 4) = (/ &
+ & 0.17426E-04_JPRB,0.19208E-02_JPRB,0.29919E-02_JPRB,0.36563E-02_JPRB,0.30836E-02_JPRB /)  
+KB(:, 5,20, 4) = (/ &
+ & 0.20187E-04_JPRB,0.20638E-02_JPRB,0.32027E-02_JPRB,0.38955E-02_JPRB,0.32517E-02_JPRB /)  
+KB(:, 1,21, 4) = (/ &
+ & 0.96248E-05_JPRB,0.12839E-02_JPRB,0.20069E-02_JPRB,0.24439E-02_JPRB,0.21521E-02_JPRB /)  
+KB(:, 2,21, 4) = (/ &
+ & 0.10884E-04_JPRB,0.13905E-02_JPRB,0.21753E-02_JPRB,0.26634E-02_JPRB,0.22901E-02_JPRB /)  
+KB(:, 3,21, 4) = (/ &
+ & 0.12576E-04_JPRB,0.15057E-02_JPRB,0.23430E-02_JPRB,0.28714E-02_JPRB,0.24271E-02_JPRB /)  
+KB(:, 4,21, 4) = (/ &
+ & 0.14492E-04_JPRB,0.16245E-02_JPRB,0.25229E-02_JPRB,0.30709E-02_JPRB,0.25653E-02_JPRB /)  
+KB(:, 5,21, 4) = (/ &
+ & 0.16785E-04_JPRB,0.17487E-02_JPRB,0.27053E-02_JPRB,0.32769E-02_JPRB,0.27041E-02_JPRB /)  
+KB(:, 1,22, 4) = (/ &
+ & 0.78987E-05_JPRB,0.10841E-02_JPRB,0.16963E-02_JPRB,0.20646E-02_JPRB,0.17920E-02_JPRB /)  
+KB(:, 2,22, 4) = (/ &
+ & 0.90688E-05_JPRB,0.11783E-02_JPRB,0.18364E-02_JPRB,0.22523E-02_JPRB,0.19054E-02_JPRB /)  
+KB(:, 3,22, 4) = (/ &
+ & 0.10436E-04_JPRB,0.12776E-02_JPRB,0.19832E-02_JPRB,0.24220E-02_JPRB,0.20200E-02_JPRB /)  
+KB(:, 4,22, 4) = (/ &
+ & 0.12051E-04_JPRB,0.13800E-02_JPRB,0.21391E-02_JPRB,0.25904E-02_JPRB,0.21364E-02_JPRB /)  
+KB(:, 5,22, 4) = (/ &
+ & 0.13992E-04_JPRB,0.14877E-02_JPRB,0.22983E-02_JPRB,0.27690E-02_JPRB,0.22519E-02_JPRB /)  
+KB(:, 1,23, 4) = (/ &
+ & 0.65143E-05_JPRB,0.91629E-03_JPRB,0.14337E-02_JPRB,0.17468E-02_JPRB,0.14890E-02_JPRB /)  
+KB(:, 2,23, 4) = (/ &
+ & 0.75295E-05_JPRB,0.99880E-03_JPRB,0.15532E-02_JPRB,0.19017E-02_JPRB,0.15844E-02_JPRB /)  
+KB(:, 3,23, 4) = (/ &
+ & 0.86172E-05_JPRB,0.10843E-02_JPRB,0.16828E-02_JPRB,0.20454E-02_JPRB,0.16822E-02_JPRB /)  
+KB(:, 4,23, 4) = (/ &
+ & 0.10017E-04_JPRB,0.11729E-02_JPRB,0.18176E-02_JPRB,0.21912E-02_JPRB,0.17800E-02_JPRB /)  
+KB(:, 5,23, 4) = (/ &
+ & 0.11640E-04_JPRB,0.12668E-02_JPRB,0.19549E-02_JPRB,0.23447E-02_JPRB,0.18765E-02_JPRB /)  
+KB(:, 1,24, 4) = (/ &
+ & 0.53432E-05_JPRB,0.77571E-03_JPRB,0.12114E-02_JPRB,0.14805E-02_JPRB,0.12372E-02_JPRB /)  
+KB(:, 2,24, 4) = (/ &
+ & 0.61515E-05_JPRB,0.84718E-03_JPRB,0.13153E-02_JPRB,0.16078E-02_JPRB,0.13181E-02_JPRB /)  
+KB(:, 3,24, 4) = (/ &
+ & 0.70923E-05_JPRB,0.92024E-03_JPRB,0.14293E-02_JPRB,0.17300E-02_JPRB,0.13989E-02_JPRB /)  
+KB(:, 4,24, 4) = (/ &
+ & 0.82684E-05_JPRB,0.99740E-03_JPRB,0.15447E-02_JPRB,0.18573E-02_JPRB,0.14811E-02_JPRB /)  
+KB(:, 5,24, 4) = (/ &
+ & 0.96268E-05_JPRB,0.10789E-02_JPRB,0.16627E-02_JPRB,0.19892E-02_JPRB,0.15621E-02_JPRB /)  
+KB(:, 1,25, 4) = (/ &
+ & 0.43932E-05_JPRB,0.65898E-03_JPRB,0.10259E-02_JPRB,0.12568E-02_JPRB,0.10287E-02_JPRB /)  
+KB(:, 2,25, 4) = (/ &
+ & 0.50483E-05_JPRB,0.71973E-03_JPRB,0.11174E-02_JPRB,0.13610E-02_JPRB,0.10973E-02_JPRB /)  
+KB(:, 3,25, 4) = (/ &
+ & 0.58527E-05_JPRB,0.78269E-03_JPRB,0.12157E-02_JPRB,0.14658E-02_JPRB,0.11648E-02_JPRB /)  
+KB(:, 4,25, 4) = (/ &
+ & 0.68258E-05_JPRB,0.84968E-03_JPRB,0.13158E-02_JPRB,0.15774E-02_JPRB,0.12354E-02_JPRB /)  
+KB(:, 5,25, 4) = (/ &
+ & 0.79780E-05_JPRB,0.92093E-03_JPRB,0.14171E-02_JPRB,0.16917E-02_JPRB,0.13029E-02_JPRB /)  
+KB(:, 1,26, 4) = (/ &
+ & 0.36349E-05_JPRB,0.56139E-03_JPRB,0.87232E-03_JPRB,0.10671E-02_JPRB,0.85747E-03_JPRB /)  
+KB(:, 2,26, 4) = (/ &
+ & 0.41763E-05_JPRB,0.61307E-03_JPRB,0.95284E-03_JPRB,0.11559E-02_JPRB,0.91640E-03_JPRB /)  
+KB(:, 3,26, 4) = (/ &
+ & 0.48643E-05_JPRB,0.66769E-03_JPRB,0.10377E-02_JPRB,0.12480E-02_JPRB,0.97417E-03_JPRB /)  
+KB(:, 4,26, 4) = (/ &
+ & 0.56806E-05_JPRB,0.72618E-03_JPRB,0.11238E-02_JPRB,0.13443E-02_JPRB,0.10341E-02_JPRB /)  
+KB(:, 5,26, 4) = (/ &
+ & 0.66574E-05_JPRB,0.78791E-03_JPRB,0.12118E-02_JPRB,0.14426E-02_JPRB,0.10908E-02_JPRB /)  
+KB(:, 1,27, 4) = (/ &
+ & 0.29849E-05_JPRB,0.47845E-03_JPRB,0.74324E-03_JPRB,0.90695E-03_JPRB,0.71654E-03_JPRB /)  
+KB(:, 2,27, 4) = (/ &
+ & 0.34528E-05_JPRB,0.52305E-03_JPRB,0.81407E-03_JPRB,0.98348E-03_JPRB,0.76622E-03_JPRB /)  
+KB(:, 3,27, 4) = (/ &
+ & 0.40386E-05_JPRB,0.57067E-03_JPRB,0.88635E-03_JPRB,0.10643E-02_JPRB,0.81617E-03_JPRB /)  
+KB(:, 4,27, 4) = (/ &
+ & 0.47349E-05_JPRB,0.62159E-03_JPRB,0.96045E-03_JPRB,0.11476E-02_JPRB,0.86667E-03_JPRB /)  
+KB(:, 5,27, 4) = (/ &
+ & 0.55504E-05_JPRB,0.67486E-03_JPRB,0.10373E-02_JPRB,0.12327E-02_JPRB,0.91437E-03_JPRB /)  
+KB(:, 1,28, 4) = (/ &
+ & 0.24474E-05_JPRB,0.40819E-03_JPRB,0.63469E-03_JPRB,0.77184E-03_JPRB,0.59959E-03_JPRB /)  
+KB(:, 2,28, 4) = (/ &
+ & 0.28527E-05_JPRB,0.44694E-03_JPRB,0.69550E-03_JPRB,0.83809E-03_JPRB,0.64151E-03_JPRB /)  
+KB(:, 3,28, 4) = (/ &
+ & 0.33444E-05_JPRB,0.48804E-03_JPRB,0.75797E-03_JPRB,0.90921E-03_JPRB,0.68464E-03_JPRB /)  
+KB(:, 4,28, 4) = (/ &
+ & 0.39332E-05_JPRB,0.53229E-03_JPRB,0.82174E-03_JPRB,0.98103E-03_JPRB,0.72680E-03_JPRB /)  
+KB(:, 5,28, 4) = (/ &
+ & 0.46245E-05_JPRB,0.57864E-03_JPRB,0.88872E-03_JPRB,0.10544E-02_JPRB,0.76723E-03_JPRB /)  
+KB(:, 1,29, 4) = (/ &
+ & 0.20253E-05_JPRB,0.34921E-03_JPRB,0.54365E-03_JPRB,0.65865E-03_JPRB,0.50331E-03_JPRB /)  
+KB(:, 2,29, 4) = (/ &
+ & 0.23720E-05_JPRB,0.38278E-03_JPRB,0.59577E-03_JPRB,0.71729E-03_JPRB,0.53864E-03_JPRB /)  
+KB(:, 3,29, 4) = (/ &
+ & 0.27945E-05_JPRB,0.41887E-03_JPRB,0.64907E-03_JPRB,0.77823E-03_JPRB,0.57581E-03_JPRB /)  
+KB(:, 4,29, 4) = (/ &
+ & 0.32936E-05_JPRB,0.45699E-03_JPRB,0.70481E-03_JPRB,0.84074E-03_JPRB,0.61089E-03_JPRB /)  
+KB(:, 5,29, 4) = (/ &
+ & 0.38881E-05_JPRB,0.49757E-03_JPRB,0.76325E-03_JPRB,0.90356E-03_JPRB,0.64564E-03_JPRB /)  
+KB(:, 1,30, 4) = (/ &
+ & 0.16797E-05_JPRB,0.29918E-03_JPRB,0.46598E-03_JPRB,0.56316E-03_JPRB,0.42270E-03_JPRB /)  
+KB(:, 2,30, 4) = (/ &
+ & 0.19764E-05_JPRB,0.32839E-03_JPRB,0.51076E-03_JPRB,0.61439E-03_JPRB,0.45306E-03_JPRB /)  
+KB(:, 3,30, 4) = (/ &
+ & 0.23384E-05_JPRB,0.35985E-03_JPRB,0.55686E-03_JPRB,0.66712E-03_JPRB,0.48445E-03_JPRB /)  
+KB(:, 4,30, 4) = (/ &
+ & 0.27662E-05_JPRB,0.39302E-03_JPRB,0.60525E-03_JPRB,0.72092E-03_JPRB,0.51425E-03_JPRB /)  
+KB(:, 5,30, 4) = (/ &
+ & 0.32687E-05_JPRB,0.42837E-03_JPRB,0.65610E-03_JPRB,0.77570E-03_JPRB,0.54396E-03_JPRB /)  
+KB(:, 1,31, 4) = (/ &
+ & 0.13991E-05_JPRB,0.25687E-03_JPRB,0.39996E-03_JPRB,0.48307E-03_JPRB,0.35570E-03_JPRB /)  
+KB(:, 2,31, 4) = (/ &
+ & 0.16564E-05_JPRB,0.28246E-03_JPRB,0.43858E-03_JPRB,0.52743E-03_JPRB,0.38211E-03_JPRB /)  
+KB(:, 3,31, 4) = (/ &
+ & 0.19660E-05_JPRB,0.30971E-03_JPRB,0.47856E-03_JPRB,0.57309E-03_JPRB,0.40826E-03_JPRB /)  
+KB(:, 4,31, 4) = (/ &
+ & 0.23334E-05_JPRB,0.33881E-03_JPRB,0.52066E-03_JPRB,0.61919E-03_JPRB,0.43367E-03_JPRB /)  
+KB(:, 5,31, 4) = (/ &
+ & 0.27587E-05_JPRB,0.36964E-03_JPRB,0.56499E-03_JPRB,0.66660E-03_JPRB,0.45969E-03_JPRB /)  
+KB(:, 1,32, 4) = (/ &
+ & 0.11711E-05_JPRB,0.22102E-03_JPRB,0.34394E-03_JPRB,0.41512E-03_JPRB,0.29980E-03_JPRB /)  
+KB(:, 2,32, 4) = (/ &
+ & 0.13928E-05_JPRB,0.24337E-03_JPRB,0.37713E-03_JPRB,0.45351E-03_JPRB,0.32253E-03_JPRB /)  
+KB(:, 3,32, 4) = (/ &
+ & 0.16589E-05_JPRB,0.26704E-03_JPRB,0.41202E-03_JPRB,0.49272E-03_JPRB,0.34442E-03_JPRB /)  
+KB(:, 4,32, 4) = (/ &
+ & 0.19740E-05_JPRB,0.29261E-03_JPRB,0.44855E-03_JPRB,0.53274E-03_JPRB,0.36633E-03_JPRB /)  
+KB(:, 5,32, 4) = (/ &
+ & 0.23323E-05_JPRB,0.31973E-03_JPRB,0.48726E-03_JPRB,0.57383E-03_JPRB,0.38915E-03_JPRB /)  
+KB(:, 1,33, 4) = (/ &
+ & 0.98300E-06_JPRB,0.19047E-03_JPRB,0.29592E-03_JPRB,0.35739E-03_JPRB,0.25303E-03_JPRB /)  
+KB(:, 2,33, 4) = (/ &
+ & 0.11751E-05_JPRB,0.20983E-03_JPRB,0.32474E-03_JPRB,0.39043E-03_JPRB,0.27259E-03_JPRB /)  
+KB(:, 3,33, 4) = (/ &
+ & 0.14027E-05_JPRB,0.23065E-03_JPRB,0.35505E-03_JPRB,0.42405E-03_JPRB,0.29120E-03_JPRB /)  
+KB(:, 4,33, 4) = (/ &
+ & 0.16692E-05_JPRB,0.25302E-03_JPRB,0.38699E-03_JPRB,0.45888E-03_JPRB,0.31018E-03_JPRB /)  
+KB(:, 5,33, 4) = (/ &
+ & 0.19716E-05_JPRB,0.27715E-03_JPRB,0.42119E-03_JPRB,0.49468E-03_JPRB,0.32989E-03_JPRB /)  
+KB(:, 1,34, 4) = (/ &
+ & 0.82915E-06_JPRB,0.16396E-03_JPRB,0.25433E-03_JPRB,0.30700E-03_JPRB,0.21406E-03_JPRB /)  
+KB(:, 2,34, 4) = (/ &
+ & 0.99352E-06_JPRB,0.18083E-03_JPRB,0.27935E-03_JPRB,0.33552E-03_JPRB,0.23048E-03_JPRB /)  
+KB(:, 3,34, 4) = (/ &
+ & 0.11877E-05_JPRB,0.19915E-03_JPRB,0.30578E-03_JPRB,0.36455E-03_JPRB,0.24659E-03_JPRB /)  
+KB(:, 4,34, 4) = (/ &
+ & 0.14139E-05_JPRB,0.21886E-03_JPRB,0.33384E-03_JPRB,0.39476E-03_JPRB,0.26317E-03_JPRB /)  
+KB(:, 5,34, 4) = (/ &
+ & 0.16670E-05_JPRB,0.24021E-03_JPRB,0.36390E-03_JPRB,0.42603E-03_JPRB,0.28005E-03_JPRB /)  
+KB(:, 1,35, 4) = (/ &
+ & 0.68670E-06_JPRB,0.13979E-03_JPRB,0.21673E-03_JPRB,0.26161E-03_JPRB,0.17974E-03_JPRB /)  
+KB(:, 2,35, 4) = (/ &
+ & 0.82437E-06_JPRB,0.15448E-03_JPRB,0.23846E-03_JPRB,0.28611E-03_JPRB,0.19377E-03_JPRB /)  
+KB(:, 3,35, 4) = (/ &
+ & 0.98649E-06_JPRB,0.17044E-03_JPRB,0.26139E-03_JPRB,0.31132E-03_JPRB,0.20765E-03_JPRB /)  
+KB(:, 4,35, 4) = (/ &
+ & 0.11740E-05_JPRB,0.18773E-03_JPRB,0.28609E-03_JPRB,0.33740E-03_JPRB,0.22197E-03_JPRB /)  
+KB(:, 5,35, 4) = (/ &
+ & 0.13833E-05_JPRB,0.20652E-03_JPRB,0.31233E-03_JPRB,0.36449E-03_JPRB,0.23658E-03_JPRB /)  
+KB(:, 1,36, 4) = (/ &
+ & 0.55564E-06_JPRB,0.11786E-03_JPRB,0.18283E-03_JPRB,0.22089E-03_JPRB,0.14951E-03_JPRB /)  
+KB(:, 2,36, 4) = (/ &
+ & 0.66731E-06_JPRB,0.13053E-03_JPRB,0.20151E-03_JPRB,0.24189E-03_JPRB,0.16146E-03_JPRB /)  
+KB(:, 3,36, 4) = (/ &
+ & 0.80048E-06_JPRB,0.14432E-03_JPRB,0.22154E-03_JPRB,0.26364E-03_JPRB,0.17348E-03_JPRB /)  
+KB(:, 4,36, 4) = (/ &
+ & 0.95195E-06_JPRB,0.15937E-03_JPRB,0.24310E-03_JPRB,0.28609E-03_JPRB,0.18577E-03_JPRB /)  
+KB(:, 5,36, 4) = (/ &
+ & 0.11217E-05_JPRB,0.17580E-03_JPRB,0.26601E-03_JPRB,0.30949E-03_JPRB,0.19850E-03_JPRB /)  
+KB(:, 1,37, 4) = (/ &
+ & 0.44526E-06_JPRB,0.98334E-04_JPRB,0.15236E-03_JPRB,0.18395E-03_JPRB,0.12369E-03_JPRB /)  
+KB(:, 2,37, 4) = (/ &
+ & 0.53551E-06_JPRB,0.10927E-03_JPRB,0.16837E-03_JPRB,0.20194E-03_JPRB,0.13387E-03_JPRB /)  
+KB(:, 3,37, 4) = (/ &
+ & 0.64307E-06_JPRB,0.12110E-03_JPRB,0.18556E-03_JPRB,0.22059E-03_JPRB,0.14418E-03_JPRB /)  
+KB(:, 4,37, 4) = (/ &
+ & 0.76688E-06_JPRB,0.13411E-03_JPRB,0.20414E-03_JPRB,0.23985E-03_JPRB,0.15477E-03_JPRB /)  
+KB(:, 5,37, 4) = (/ &
+ & 0.90591E-06_JPRB,0.14842E-03_JPRB,0.22405E-03_JPRB,0.25996E-03_JPRB,0.16566E-03_JPRB /)  
+KB(:, 1,38, 4) = (/ &
+ & 0.35630E-06_JPRB,0.81991E-04_JPRB,0.12690E-03_JPRB,0.15312E-03_JPRB,0.10226E-03_JPRB /)  
+KB(:, 2,38, 4) = (/ &
+ & 0.42911E-06_JPRB,0.91391E-04_JPRB,0.14064E-03_JPRB,0.16849E-03_JPRB,0.11095E-03_JPRB /)  
+KB(:, 3,38, 4) = (/ &
+ & 0.51583E-06_JPRB,0.10163E-03_JPRB,0.15538E-03_JPRB,0.18448E-03_JPRB,0.11977E-03_JPRB /)  
+KB(:, 4,38, 4) = (/ &
+ & 0.61654E-06_JPRB,0.11287E-03_JPRB,0.17138E-03_JPRB,0.20101E-03_JPRB,0.12884E-03_JPRB /)  
+KB(:, 5,38, 4) = (/ &
+ & 0.73028E-06_JPRB,0.12530E-03_JPRB,0.18862E-03_JPRB,0.21826E-03_JPRB,0.13816E-03_JPRB /)  
+KB(:, 1,39, 4) = (/ &
+ & 0.28455E-06_JPRB,0.68362E-04_JPRB,0.10572E-03_JPRB,0.12747E-03_JPRB,0.84494E-04_JPRB /)  
+KB(:, 2,39, 4) = (/ &
+ & 0.34313E-06_JPRB,0.76413E-04_JPRB,0.11751E-03_JPRB,0.14060E-03_JPRB,0.91905E-04_JPRB /)  
+KB(:, 3,39, 4) = (/ &
+ & 0.41305E-06_JPRB,0.85299E-04_JPRB,0.13016E-03_JPRB,0.15431E-03_JPRB,0.99463E-04_JPRB /)  
+KB(:, 4,39, 4) = (/ &
+ & 0.49466E-06_JPRB,0.95047E-04_JPRB,0.14396E-03_JPRB,0.16851E-03_JPRB,0.10725E-03_JPRB /)  
+KB(:, 5,39, 4) = (/ &
+ & 0.58721E-06_JPRB,0.10583E-03_JPRB,0.15886E-03_JPRB,0.18332E-03_JPRB,0.11516E-03_JPRB /)  
+KB(:, 1,40, 4) = (/ &
+ & 0.22416E-06_JPRB,0.56451E-04_JPRB,0.87192E-04_JPRB,0.10503E-03_JPRB,0.69299E-04_JPRB /)  
+KB(:, 2,40, 4) = (/ &
+ & 0.27058E-06_JPRB,0.63325E-04_JPRB,0.97241E-04_JPRB,0.11625E-03_JPRB,0.75635E-04_JPRB /)  
+KB(:, 3,40, 4) = (/ &
+ & 0.32640E-06_JPRB,0.70942E-04_JPRB,0.10801E-03_JPRB,0.12792E-03_JPRB,0.82061E-04_JPRB /)  
+KB(:, 4,40, 4) = (/ &
+ & 0.39178E-06_JPRB,0.79381E-04_JPRB,0.11985E-03_JPRB,0.14005E-03_JPRB,0.88722E-04_JPRB /)  
+KB(:, 5,40, 4) = (/ &
+ & 0.46694E-06_JPRB,0.88673E-04_JPRB,0.13261E-03_JPRB,0.15274E-03_JPRB,0.95437E-04_JPRB /)  
+KB(:, 1,41, 4) = (/ &
+ & 0.17620E-06_JPRB,0.46495E-04_JPRB,0.71829E-04_JPRB,0.86351E-04_JPRB,0.56701E-04_JPRB /)  
+KB(:, 2,41, 4) = (/ &
+ & 0.21295E-06_JPRB,0.52383E-04_JPRB,0.80380E-04_JPRB,0.95937E-04_JPRB,0.62100E-04_JPRB /)  
+KB(:, 3,41, 4) = (/ &
+ & 0.25720E-06_JPRB,0.58900E-04_JPRB,0.89548E-04_JPRB,0.10594E-03_JPRB,0.67568E-04_JPRB /)  
+KB(:, 4,41, 4) = (/ &
+ & 0.30957E-06_JPRB,0.66136E-04_JPRB,0.99643E-04_JPRB,0.11623E-03_JPRB,0.73280E-04_JPRB /)  
+KB(:, 5,41, 4) = (/ &
+ & 0.37003E-06_JPRB,0.74203E-04_JPRB,0.11061E-03_JPRB,0.12707E-03_JPRB,0.78979E-04_JPRB /)  
+KB(:, 1,42, 4) = (/ &
+ & 0.13843E-06_JPRB,0.38238E-04_JPRB,0.59124E-04_JPRB,0.70982E-04_JPRB,0.46331E-04_JPRB /)  
+KB(:, 2,42, 4) = (/ &
+ & 0.16726E-06_JPRB,0.43269E-04_JPRB,0.66424E-04_JPRB,0.79125E-04_JPRB,0.50956E-04_JPRB /)  
+KB(:, 3,42, 4) = (/ &
+ & 0.20232E-06_JPRB,0.48870E-04_JPRB,0.74247E-04_JPRB,0.87661E-04_JPRB,0.55561E-04_JPRB /)  
+KB(:, 4,42, 4) = (/ &
+ & 0.24408E-06_JPRB,0.55119E-04_JPRB,0.82827E-04_JPRB,0.96453E-04_JPRB,0.60447E-04_JPRB /)  
+KB(:, 5,42, 4) = (/ &
+ & 0.29276E-06_JPRB,0.62028E-04_JPRB,0.92221E-04_JPRB,0.10570E-03_JPRB,0.65281E-04_JPRB /)  
+KB(:, 1,43, 4) = (/ &
+ & 0.10793E-06_JPRB,0.31191E-04_JPRB,0.48305E-04_JPRB,0.57948E-04_JPRB,0.37666E-04_JPRB /)  
+KB(:, 2,43, 4) = (/ &
+ & 0.13017E-06_JPRB,0.35465E-04_JPRB,0.54489E-04_JPRB,0.64841E-04_JPRB,0.41556E-04_JPRB /)  
+KB(:, 3,43, 4) = (/ &
+ & 0.15771E-06_JPRB,0.40235E-04_JPRB,0.61176E-04_JPRB,0.72082E-04_JPRB,0.45452E-04_JPRB /)  
+KB(:, 4,43, 4) = (/ &
+ & 0.19064E-06_JPRB,0.45599E-04_JPRB,0.68488E-04_JPRB,0.79576E-04_JPRB,0.49593E-04_JPRB /)  
+KB(:, 5,43, 4) = (/ &
+ & 0.22944E-06_JPRB,0.51552E-04_JPRB,0.76431E-04_JPRB,0.87462E-04_JPRB,0.53715E-04_JPRB /)  
+KB(:, 1,44, 4) = (/ &
+ & 0.83879E-07_JPRB,0.25325E-04_JPRB,0.39297E-04_JPRB,0.47118E-04_JPRB,0.30510E-04_JPRB /)  
+KB(:, 2,44, 4) = (/ &
+ & 0.10087E-06_JPRB,0.28920E-04_JPRB,0.44532E-04_JPRB,0.52929E-04_JPRB,0.33772E-04_JPRB /)  
+KB(:, 3,44, 4) = (/ &
+ & 0.12238E-06_JPRB,0.32977E-04_JPRB,0.50189E-04_JPRB,0.59075E-04_JPRB,0.37069E-04_JPRB /)  
+KB(:, 4,44, 4) = (/ &
+ & 0.14813E-06_JPRB,0.37556E-04_JPRB,0.56451E-04_JPRB,0.65448E-04_JPRB,0.40567E-04_JPRB /)  
+KB(:, 5,44, 4) = (/ &
+ & 0.17874E-06_JPRB,0.42672E-04_JPRB,0.63196E-04_JPRB,0.72159E-04_JPRB,0.44085E-04_JPRB /)  
+KB(:, 1,45, 4) = (/ &
+ & 0.65261E-07_JPRB,0.20516E-04_JPRB,0.31895E-04_JPRB,0.38279E-04_JPRB,0.24650E-04_JPRB /)  
+KB(:, 2,45, 4) = (/ &
+ & 0.78145E-07_JPRB,0.23540E-04_JPRB,0.36319E-04_JPRB,0.43161E-04_JPRB,0.27390E-04_JPRB /)  
+KB(:, 3,45, 4) = (/ &
+ & 0.94805E-07_JPRB,0.26962E-04_JPRB,0.41134E-04_JPRB,0.48357E-04_JPRB,0.30190E-04_JPRB /)  
+KB(:, 4,45, 4) = (/ &
+ & 0.11490E-06_JPRB,0.30858E-04_JPRB,0.46429E-04_JPRB,0.53785E-04_JPRB,0.33136E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART18',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,45, 4) = (/ &
+ & 0.13905E-06_JPRB,0.35210E-04_JPRB,0.52216E-04_JPRB,0.59482E-04_JPRB,0.36122E-04_JPRB /)  
+KB(:, 1,46, 4) = (/ &
+ & 0.50668E-07_JPRB,0.16526E-04_JPRB,0.25752E-04_JPRB,0.30954E-04_JPRB,0.19817E-04_JPRB /)  
+KB(:, 2,46, 4) = (/ &
+ & 0.60361E-07_JPRB,0.19058E-04_JPRB,0.29471E-04_JPRB,0.35060E-04_JPRB,0.22123E-04_JPRB /)  
+KB(:, 3,46, 4) = (/ &
+ & 0.73101E-07_JPRB,0.21937E-04_JPRB,0.33569E-04_JPRB,0.39461E-04_JPRB,0.24498E-04_JPRB /)  
+KB(:, 4,46, 4) = (/ &
+ & 0.88747E-07_JPRB,0.25222E-04_JPRB,0.38048E-04_JPRB,0.44039E-04_JPRB,0.26973E-04_JPRB /)  
+KB(:, 5,46, 4) = (/ &
+ & 0.10762E-06_JPRB,0.28932E-04_JPRB,0.42964E-04_JPRB,0.48871E-04_JPRB,0.29499E-04_JPRB /)  
+KB(:, 1,47, 4) = (/ &
+ & 0.39185E-07_JPRB,0.13207E-04_JPRB,0.20626E-04_JPRB,0.24835E-04_JPRB,0.15826E-04_JPRB /)  
+KB(:, 2,47, 4) = (/ &
+ & 0.46335E-07_JPRB,0.15303E-04_JPRB,0.23722E-04_JPRB,0.28277E-04_JPRB,0.17762E-04_JPRB /)  
+KB(:, 3,47, 4) = (/ &
+ & 0.55896E-07_JPRB,0.17703E-04_JPRB,0.27162E-04_JPRB,0.31976E-04_JPRB,0.19780E-04_JPRB /)  
+KB(:, 4,47, 4) = (/ &
+ & 0.67962E-07_JPRB,0.20451E-04_JPRB,0.30940E-04_JPRB,0.35867E-04_JPRB,0.21834E-04_JPRB /)  
+KB(:, 5,47, 4) = (/ &
+ & 0.82535E-07_JPRB,0.23583E-04_JPRB,0.35128E-04_JPRB,0.39933E-04_JPRB,0.23972E-04_JPRB /)  
+KB(:, 1,48, 4) = (/ &
+ & 0.30435E-07_JPRB,0.10528E-04_JPRB,0.16458E-04_JPRB,0.19871E-04_JPRB,0.12630E-04_JPRB /)  
+KB(:, 2,48, 4) = (/ &
+ & 0.35657E-07_JPRB,0.12255E-04_JPRB,0.19034E-04_JPRB,0.22757E-04_JPRB,0.14230E-04_JPRB /)  
+KB(:, 3,48, 4) = (/ &
+ & 0.42777E-07_JPRB,0.14241E-04_JPRB,0.21916E-04_JPRB,0.25856E-04_JPRB,0.15916E-04_JPRB /)  
+KB(:, 4,48, 4) = (/ &
+ & 0.51977E-07_JPRB,0.16531E-04_JPRB,0.25094E-04_JPRB,0.29142E-04_JPRB,0.17632E-04_JPRB /)  
+KB(:, 5,48, 4) = (/ &
+ & 0.63246E-07_JPRB,0.19162E-04_JPRB,0.28631E-04_JPRB,0.32586E-04_JPRB,0.19447E-04_JPRB /)  
+KB(:, 1,49, 4) = (/ &
+ & 0.23722E-07_JPRB,0.83656E-05_JPRB,0.13088E-04_JPRB,0.15834E-04_JPRB,0.10060E-04_JPRB /)  
+KB(:, 2,49, 4) = (/ &
+ & 0.27509E-07_JPRB,0.97869E-05_JPRB,0.15227E-04_JPRB,0.18252E-04_JPRB,0.11363E-04_JPRB /)  
+KB(:, 3,49, 4) = (/ &
+ & 0.32769E-07_JPRB,0.11426E-04_JPRB,0.17628E-04_JPRB,0.20853E-04_JPRB,0.12767E-04_JPRB /)  
+KB(:, 4,49, 4) = (/ &
+ & 0.39719E-07_JPRB,0.13326E-04_JPRB,0.20285E-04_JPRB,0.23637E-04_JPRB,0.14223E-04_JPRB /)  
+KB(:, 5,49, 4) = (/ &
+ & 0.48415E-07_JPRB,0.15524E-04_JPRB,0.23268E-04_JPRB,0.26530E-04_JPRB,0.15739E-04_JPRB /)  
+KB(:, 1,50, 4) = (/ &
+ & 0.18623E-07_JPRB,0.66620E-05_JPRB,0.10425E-04_JPRB,0.12634E-04_JPRB,0.80132E-05_JPRB /)  
+KB(:, 2,50, 4) = (/ &
+ & 0.21393E-07_JPRB,0.78264E-05_JPRB,0.12188E-04_JPRB,0.14643E-04_JPRB,0.90757E-05_JPRB /)  
+KB(:, 3,50, 4) = (/ &
+ & 0.25281E-07_JPRB,0.91787E-05_JPRB,0.14186E-04_JPRB,0.16825E-04_JPRB,0.10247E-04_JPRB /)  
+KB(:, 4,50, 4) = (/ &
+ & 0.30530E-07_JPRB,0.10758E-04_JPRB,0.16419E-04_JPRB,0.19178E-04_JPRB,0.11482E-04_JPRB /)  
+KB(:, 5,50, 4) = (/ &
+ & 0.37213E-07_JPRB,0.12593E-04_JPRB,0.18920E-04_JPRB,0.21643E-04_JPRB,0.12749E-04_JPRB /)  
+KB(:, 1,51, 4) = (/ &
+ & 0.14681E-07_JPRB,0.53043E-05_JPRB,0.82956E-05_JPRB,0.10064E-04_JPRB,0.63669E-05_JPRB /)  
+KB(:, 2,51, 4) = (/ &
+ & 0.16717E-07_JPRB,0.62508E-05_JPRB,0.97501E-05_JPRB,0.11737E-04_JPRB,0.72473E-05_JPRB /)  
+KB(:, 3,51, 4) = (/ &
+ & 0.19587E-07_JPRB,0.73643E-05_JPRB,0.11400E-04_JPRB,0.13558E-04_JPRB,0.82290E-05_JPRB /)  
+KB(:, 4,51, 4) = (/ &
+ & 0.23555E-07_JPRB,0.86748E-05_JPRB,0.13268E-04_JPRB,0.15537E-04_JPRB,0.92634E-05_JPRB /)  
+KB(:, 5,51, 4) = (/ &
+ & 0.28671E-07_JPRB,0.10209E-04_JPRB,0.15379E-04_JPRB,0.17635E-04_JPRB,0.10316E-04_JPRB /)  
+KB(:, 1,52, 4) = (/ &
+ & 0.11626E-07_JPRB,0.42149E-05_JPRB,0.65740E-05_JPRB,0.79835E-05_JPRB,0.50595E-05_JPRB /)  
+KB(:, 2,52, 4) = (/ &
+ & 0.13102E-07_JPRB,0.49884E-05_JPRB,0.77758E-05_JPRB,0.93846E-05_JPRB,0.57856E-05_JPRB /)  
+KB(:, 3,52, 4) = (/ &
+ & 0.15208E-07_JPRB,0.58955E-05_JPRB,0.91392E-05_JPRB,0.10898E-04_JPRB,0.65937E-05_JPRB /)  
+KB(:, 4,52, 4) = (/ &
+ & 0.18174E-07_JPRB,0.69758E-05_JPRB,0.10692E-04_JPRB,0.12554E-04_JPRB,0.74564E-05_JPRB /)  
+KB(:, 5,52, 4) = (/ &
+ & 0.22057E-07_JPRB,0.82505E-05_JPRB,0.12462E-04_JPRB,0.14331E-04_JPRB,0.83301E-05_JPRB /)  
+KB(:, 1,53, 4) = (/ &
+ & 0.92130E-08_JPRB,0.33378E-05_JPRB,0.51998E-05_JPRB,0.63006E-05_JPRB,0.40097E-05_JPRB /)  
+KB(:, 2,53, 4) = (/ &
+ & 0.10298E-07_JPRB,0.39704E-05_JPRB,0.61839E-05_JPRB,0.74775E-05_JPRB,0.46077E-05_JPRB /)  
+KB(:, 3,53, 4) = (/ &
+ & 0.11831E-07_JPRB,0.47088E-05_JPRB,0.73062E-05_JPRB,0.87345E-05_JPRB,0.52620E-05_JPRB /)  
+KB(:, 4,53, 4) = (/ &
+ & 0.14030E-07_JPRB,0.55942E-05_JPRB,0.85921E-05_JPRB,0.10119E-04_JPRB,0.59838E-05_JPRB /)  
+KB(:, 5,53, 4) = (/ &
+ & 0.16970E-07_JPRB,0.66447E-05_JPRB,0.10063E-04_JPRB,0.11620E-04_JPRB,0.67208E-05_JPRB /)  
+KB(:, 1,54, 4) = (/ &
+ & 0.73443E-08_JPRB,0.26498E-05_JPRB,0.41229E-05_JPRB,0.49788E-05_JPRB,0.31929E-05_JPRB /)  
+KB(:, 2,54, 4) = (/ &
+ & 0.81453E-08_JPRB,0.31689E-05_JPRB,0.49320E-05_JPRB,0.59701E-05_JPRB,0.36706E-05_JPRB /)  
+KB(:, 3,54, 4) = (/ &
+ & 0.92853E-08_JPRB,0.37746E-05_JPRB,0.58561E-05_JPRB,0.70139E-05_JPRB,0.42105E-05_JPRB /)  
+KB(:, 4,54, 4) = (/ &
+ & 0.10913E-07_JPRB,0.44986E-05_JPRB,0.69192E-05_JPRB,0.81733E-05_JPRB,0.48081E-05_JPRB /)  
+KB(:, 5,54, 4) = (/ &
+ & 0.13151E-07_JPRB,0.53689E-05_JPRB,0.81469E-05_JPRB,0.94377E-05_JPRB,0.54320E-05_JPRB /)  
+KB(:, 1,55, 4) = (/ &
+ & 0.58690E-08_JPRB,0.21056E-05_JPRB,0.32710E-05_JPRB,0.39362E-05_JPRB,0.25357E-05_JPRB /)  
+KB(:, 2,55, 4) = (/ &
+ & 0.64824E-08_JPRB,0.25292E-05_JPRB,0.39335E-05_JPRB,0.47652E-05_JPRB,0.29266E-05_JPRB /)  
+KB(:, 3,55, 4) = (/ &
+ & 0.73195E-08_JPRB,0.30260E-05_JPRB,0.46942E-05_JPRB,0.56346E-05_JPRB,0.33700E-05_JPRB /)  
+KB(:, 4,55, 4) = (/ &
+ & 0.85298E-08_JPRB,0.36216E-05_JPRB,0.55727E-05_JPRB,0.65990E-05_JPRB,0.38662E-05_JPRB /)  
+KB(:, 5,55, 4) = (/ &
+ & 0.10227E-07_JPRB,0.43366E-05_JPRB,0.65935E-05_JPRB,0.76627E-05_JPRB,0.43889E-05_JPRB /)  
+KB(:, 1,56, 4) = (/ &
+ & 0.46879E-08_JPRB,0.16674E-05_JPRB,0.25848E-05_JPRB,0.30992E-05_JPRB,0.20097E-05_JPRB /)  
+KB(:, 2,56, 4) = (/ &
+ & 0.51579E-08_JPRB,0.20145E-05_JPRB,0.31307E-05_JPRB,0.37875E-05_JPRB,0.23304E-05_JPRB /)  
+KB(:, 3,56, 4) = (/ &
+ & 0.57829E-08_JPRB,0.24199E-05_JPRB,0.37529E-05_JPRB,0.45119E-05_JPRB,0.26962E-05_JPRB /)  
+KB(:, 4,56, 4) = (/ &
+ & 0.66817E-08_JPRB,0.29092E-05_JPRB,0.44788E-05_JPRB,0.53142E-05_JPRB,0.31037E-05_JPRB /)  
+KB(:, 5,56, 4) = (/ &
+ & 0.79548E-08_JPRB,0.34985E-05_JPRB,0.53248E-05_JPRB,0.62066E-05_JPRB,0.35387E-05_JPRB /)  
+KB(:, 1,57, 4) = (/ &
+ & 0.37487E-08_JPRB,0.13177E-05_JPRB,0.20362E-05_JPRB,0.24278E-05_JPRB,0.15888E-05_JPRB /)  
+KB(:, 2,57, 4) = (/ &
+ & 0.41132E-08_JPRB,0.16006E-05_JPRB,0.24863E-05_JPRB,0.30001E-05_JPRB,0.18530E-05_JPRB /)  
+KB(:, 3,57, 4) = (/ &
+ & 0.45796E-08_JPRB,0.19301E-05_JPRB,0.29957E-05_JPRB,0.36053E-05_JPRB,0.21515E-05_JPRB /)  
+KB(:, 4,57, 4) = (/ &
+ & 0.52447E-08_JPRB,0.23301E-05_JPRB,0.35902E-05_JPRB,0.42690E-05_JPRB,0.24844E-05_JPRB /)  
+KB(:, 5,57, 4) = (/ &
+ & 0.61952E-08_JPRB,0.28175E-05_JPRB,0.42894E-05_JPRB,0.50133E-05_JPRB,0.28503E-05_JPRB /)  
+KB(:, 1,58, 4) = (/ &
+ & 0.30053E-08_JPRB,0.10419E-05_JPRB,0.16034E-05_JPRB,0.19071E-05_JPRB,0.12550E-05_JPRB /)  
+KB(:, 2,58, 4) = (/ &
+ & 0.32906E-08_JPRB,0.12717E-05_JPRB,0.19750E-05_JPRB,0.23751E-05_JPRB,0.14761E-05_JPRB /)  
+KB(:, 3,58, 4) = (/ &
+ & 0.36412E-08_JPRB,0.15413E-05_JPRB,0.23950E-05_JPRB,0.28817E-05_JPRB,0.17173E-05_JPRB /)  
+KB(:, 4,58, 4) = (/ &
+ & 0.41327E-08_JPRB,0.18673E-05_JPRB,0.28800E-05_JPRB,0.34301E-05_JPRB,0.19893E-05_JPRB /)  
+KB(:, 5,58, 4) = (/ &
+ & 0.48448E-08_JPRB,0.22699E-05_JPRB,0.34559E-05_JPRB,0.40496E-05_JPRB,0.22938E-05_JPRB /)  
+KB(:, 1,59, 4) = (/ &
+ & 0.24517E-08_JPRB,0.85367E-06_JPRB,0.13121E-05_JPRB,0.15587E-05_JPRB,0.10209E-05_JPRB /)  
+KB(:, 2,59, 4) = (/ &
+ & 0.26814E-08_JPRB,0.10459E-05_JPRB,0.16241E-05_JPRB,0.19505E-05_JPRB,0.12067E-05_JPRB /)  
+KB(:, 3,59, 4) = (/ &
+ & 0.29604E-08_JPRB,0.12726E-05_JPRB,0.19786E-05_JPRB,0.23765E-05_JPRB,0.14071E-05_JPRB /)  
+KB(:, 4,59, 4) = (/ &
+ & 0.33490E-08_JPRB,0.15486E-05_JPRB,0.23884E-05_JPRB,0.28393E-05_JPRB,0.16353E-05_JPRB /)  
+KB(:, 5,59, 4) = (/ &
+ & 0.39177E-08_JPRB,0.18923E-05_JPRB,0.28751E-05_JPRB,0.33648E-05_JPRB,0.18896E-05_JPRB /)  
+KB(:, 1,13, 5) = (/ &
+ & 0.10606E-02_JPRB,0.17616E-01_JPRB,0.26337E-01_JPRB,0.30832E-01_JPRB,0.23250E-01_JPRB /)  
+KB(:, 2,13, 5) = (/ &
+ & 0.11975E-02_JPRB,0.18851E-01_JPRB,0.27746E-01_JPRB,0.32191E-01_JPRB,0.24461E-01_JPRB /)  
+KB(:, 3,13, 5) = (/ &
+ & 0.13686E-02_JPRB,0.20236E-01_JPRB,0.29224E-01_JPRB,0.33409E-01_JPRB,0.25538E-01_JPRB /)  
+KB(:, 4,13, 5) = (/ &
+ & 0.15788E-02_JPRB,0.21686E-01_JPRB,0.30822E-01_JPRB,0.34581E-01_JPRB,0.26483E-01_JPRB /)  
+KB(:, 5,13, 5) = (/ &
+ & 0.18422E-02_JPRB,0.23201E-01_JPRB,0.32485E-01_JPRB,0.35791E-01_JPRB,0.27339E-01_JPRB /)  
+KB(:, 1,14, 5) = (/ &
+ & 0.90299E-03_JPRB,0.14939E-01_JPRB,0.22235E-01_JPRB,0.25969E-01_JPRB,0.19459E-01_JPRB /)  
+KB(:, 2,14, 5) = (/ &
+ & 0.10276E-02_JPRB,0.16043E-01_JPRB,0.23464E-01_JPRB,0.27102E-01_JPRB,0.20418E-01_JPRB /)  
+KB(:, 3,14, 5) = (/ &
+ & 0.11848E-02_JPRB,0.17244E-01_JPRB,0.24766E-01_JPRB,0.28137E-01_JPRB,0.21279E-01_JPRB /)  
+KB(:, 4,14, 5) = (/ &
+ & 0.13763E-02_JPRB,0.18494E-01_JPRB,0.26159E-01_JPRB,0.29141E-01_JPRB,0.22035E-01_JPRB /)  
+KB(:, 5,14, 5) = (/ &
+ & 0.16087E-02_JPRB,0.19801E-01_JPRB,0.27586E-01_JPRB,0.30208E-01_JPRB,0.22712E-01_JPRB /)  
+KB(:, 1,15, 5) = (/ &
+ & 0.76169E-03_JPRB,0.12657E-01_JPRB,0.18744E-01_JPRB,0.21807E-01_JPRB,0.16155E-01_JPRB /)  
+KB(:, 2,15, 5) = (/ &
+ & 0.87429E-03_JPRB,0.13622E-01_JPRB,0.19820E-01_JPRB,0.22753E-01_JPRB,0.16908E-01_JPRB /)  
+KB(:, 3,15, 5) = (/ &
+ & 0.10153E-02_JPRB,0.14650E-01_JPRB,0.20967E-01_JPRB,0.23637E-01_JPRB,0.17597E-01_JPRB /)  
+KB(:, 4,15, 5) = (/ &
+ & 0.11860E-02_JPRB,0.15728E-01_JPRB,0.22159E-01_JPRB,0.24521E-01_JPRB,0.18236E-01_JPRB /)  
+KB(:, 5,15, 5) = (/ &
+ & 0.13940E-02_JPRB,0.16855E-01_JPRB,0.23377E-01_JPRB,0.25442E-01_JPRB,0.18800E-01_JPRB /)  
+KB(:, 1,16, 5) = (/ &
+ & 0.63979E-03_JPRB,0.10716E-01_JPRB,0.15782E-01_JPRB,0.18280E-01_JPRB,0.13330E-01_JPRB /)  
+KB(:, 2,16, 5) = (/ &
+ & 0.73992E-03_JPRB,0.11550E-01_JPRB,0.16721E-01_JPRB,0.19074E-01_JPRB,0.13955E-01_JPRB /)  
+KB(:, 3,16, 5) = (/ &
+ & 0.86535E-03_JPRB,0.12432E-01_JPRB,0.17715E-01_JPRB,0.19835E-01_JPRB,0.14519E-01_JPRB /)  
+KB(:, 4,16, 5) = (/ &
+ & 0.10180E-02_JPRB,0.13358E-01_JPRB,0.18733E-01_JPRB,0.20612E-01_JPRB,0.15053E-01_JPRB /)  
+KB(:, 5,16, 5) = (/ &
+ & 0.12020E-02_JPRB,0.14330E-01_JPRB,0.19780E-01_JPRB,0.21390E-01_JPRB,0.15523E-01_JPRB /)  
+KB(:, 1,17, 5) = (/ &
+ & 0.53827E-03_JPRB,0.90675E-02_JPRB,0.13282E-01_JPRB,0.15310E-01_JPRB,0.11002E-01_JPRB /)  
+KB(:, 2,17, 5) = (/ &
+ & 0.62733E-03_JPRB,0.97818E-02_JPRB,0.14093E-01_JPRB,0.15985E-01_JPRB,0.11517E-01_JPRB /)  
+KB(:, 3,17, 5) = (/ &
+ & 0.73894E-03_JPRB,0.10536E-01_JPRB,0.14937E-01_JPRB,0.16642E-01_JPRB,0.11982E-01_JPRB /)  
+KB(:, 4,17, 5) = (/ &
+ & 0.87471E-03_JPRB,0.11329E-01_JPRB,0.15813E-01_JPRB,0.17308E-01_JPRB,0.12431E-01_JPRB /)  
+KB(:, 5,17, 5) = (/ &
+ & 0.10369E-02_JPRB,0.12167E-01_JPRB,0.16717E-01_JPRB,0.17966E-01_JPRB,0.12833E-01_JPRB /)  
+KB(:, 1,18, 5) = (/ &
+ & 0.45632E-03_JPRB,0.76631E-02_JPRB,0.11175E-01_JPRB,0.12821E-01_JPRB,0.91007E-02_JPRB /)  
+KB(:, 2,18, 5) = (/ &
+ & 0.53618E-03_JPRB,0.82741E-02_JPRB,0.11867E-01_JPRB,0.13402E-01_JPRB,0.95284E-02_JPRB /)  
+KB(:, 3,18, 5) = (/ &
+ & 0.63520E-03_JPRB,0.89179E-02_JPRB,0.12591E-01_JPRB,0.13960E-01_JPRB,0.99227E-02_JPRB /)  
+KB(:, 4,18, 5) = (/ &
+ & 0.75513E-03_JPRB,0.95966E-02_JPRB,0.13345E-01_JPRB,0.14529E-01_JPRB,0.10294E-01_JPRB /)  
+KB(:, 5,18, 5) = (/ &
+ & 0.89828E-03_JPRB,0.10325E-01_JPRB,0.14127E-01_JPRB,0.15082E-01_JPRB,0.10637E-01_JPRB /)  
+KB(:, 1,19, 5) = (/ &
+ & 0.38782E-03_JPRB,0.64686E-02_JPRB,0.93947E-02_JPRB,0.10738E-01_JPRB,0.75366E-02_JPRB /)  
+KB(:, 2,19, 5) = (/ &
+ & 0.45826E-03_JPRB,0.69872E-02_JPRB,0.99878E-02_JPRB,0.11230E-01_JPRB,0.78920E-02_JPRB /)  
+KB(:, 3,19, 5) = (/ &
+ & 0.54544E-03_JPRB,0.75386E-02_JPRB,0.10613E-01_JPRB,0.11706E-01_JPRB,0.82219E-02_JPRB /)  
+KB(:, 4,19, 5) = (/ &
+ & 0.65085E-03_JPRB,0.81243E-02_JPRB,0.11261E-01_JPRB,0.12183E-01_JPRB,0.85447E-02_JPRB /)  
+KB(:, 5,19, 5) = (/ &
+ & 0.77601E-03_JPRB,0.87598E-02_JPRB,0.11933E-01_JPRB,0.12660E-01_JPRB,0.88388E-02_JPRB /)  
+KB(:, 1,20, 5) = (/ &
+ & 0.33304E-03_JPRB,0.54623E-02_JPRB,0.79028E-02_JPRB,0.89960E-02_JPRB,0.62635E-02_JPRB /)  
+KB(:, 2,20, 5) = (/ &
+ & 0.39553E-03_JPRB,0.59055E-02_JPRB,0.84155E-02_JPRB,0.94111E-02_JPRB,0.65613E-02_JPRB /)  
+KB(:, 3,20, 5) = (/ &
+ & 0.47180E-03_JPRB,0.63779E-02_JPRB,0.89500E-02_JPRB,0.98172E-02_JPRB,0.68459E-02_JPRB /)  
+KB(:, 4,20, 5) = (/ &
+ & 0.56453E-03_JPRB,0.68862E-02_JPRB,0.95048E-02_JPRB,0.10225E-01_JPRB,0.71246E-02_JPRB /)  
+KB(:, 5,20, 5) = (/ &
+ & 0.67486E-03_JPRB,0.74411E-02_JPRB,0.10082E-01_JPRB,0.10637E-01_JPRB,0.73786E-02_JPRB /)  
+KB(:, 1,21, 5) = (/ &
+ & 0.28693E-03_JPRB,0.46180E-02_JPRB,0.66504E-02_JPRB,0.75379E-02_JPRB,0.52071E-02_JPRB /)  
+KB(:, 2,21, 5) = (/ &
+ & 0.34180E-03_JPRB,0.49948E-02_JPRB,0.70898E-02_JPRB,0.78866E-02_JPRB,0.54645E-02_JPRB /)  
+KB(:, 3,21, 5) = (/ &
+ & 0.40811E-03_JPRB,0.54006E-02_JPRB,0.75474E-02_JPRB,0.82331E-02_JPRB,0.57127E-02_JPRB /)  
+KB(:, 4,21, 5) = (/ &
+ & 0.48873E-03_JPRB,0.58434E-02_JPRB,0.80212E-02_JPRB,0.85844E-02_JPRB,0.59470E-02_JPRB /)  
+KB(:, 5,21, 5) = (/ &
+ & 0.58593E-03_JPRB,0.63260E-02_JPRB,0.85182E-02_JPRB,0.89408E-02_JPRB,0.61662E-02_JPRB /)  
+KB(:, 1,22, 5) = (/ &
+ & 0.24974E-03_JPRB,0.39240E-02_JPRB,0.56208E-02_JPRB,0.63345E-02_JPRB,0.43431E-02_JPRB /)  
+KB(:, 2,22, 5) = (/ &
+ & 0.29749E-03_JPRB,0.42526E-02_JPRB,0.59996E-02_JPRB,0.66266E-02_JPRB,0.45624E-02_JPRB /)  
+KB(:, 3,22, 5) = (/ &
+ & 0.35608E-03_JPRB,0.46047E-02_JPRB,0.63919E-02_JPRB,0.69259E-02_JPRB,0.47738E-02_JPRB /)  
+KB(:, 4,22, 5) = (/ &
+ & 0.42699E-03_JPRB,0.49920E-02_JPRB,0.67993E-02_JPRB,0.72276E-02_JPRB,0.49714E-02_JPRB /)  
+KB(:, 5,22, 5) = (/ &
+ & 0.51198E-03_JPRB,0.54166E-02_JPRB,0.72302E-02_JPRB,0.75387E-02_JPRB,0.51660E-02_JPRB /)  
+KB(:, 1,23, 5) = (/ &
+ & 0.21716E-03_JPRB,0.33375E-02_JPRB,0.47528E-02_JPRB,0.53238E-02_JPRB,0.36258E-02_JPRB /)  
+KB(:, 2,23, 5) = (/ &
+ & 0.25886E-03_JPRB,0.36243E-02_JPRB,0.50797E-02_JPRB,0.55740E-02_JPRB,0.38107E-02_JPRB /)  
+KB(:, 3,23, 5) = (/ &
+ & 0.31026E-03_JPRB,0.39353E-02_JPRB,0.54169E-02_JPRB,0.58309E-02_JPRB,0.39876E-02_JPRB /)  
+KB(:, 4,23, 5) = (/ &
+ & 0.37235E-03_JPRB,0.42757E-02_JPRB,0.57711E-02_JPRB,0.60911E-02_JPRB,0.41586E-02_JPRB /)  
+KB(:, 5,23, 5) = (/ &
+ & 0.44568E-03_JPRB,0.46463E-02_JPRB,0.61476E-02_JPRB,0.63633E-02_JPRB,0.43277E-02_JPRB /)  
+KB(:, 1,24, 5) = (/ &
+ & 0.18738E-03_JPRB,0.28412E-02_JPRB,0.40251E-02_JPRB,0.44754E-02_JPRB,0.30232E-02_JPRB /)  
+KB(:, 2,24, 5) = (/ &
+ & 0.22422E-03_JPRB,0.30930E-02_JPRB,0.43062E-02_JPRB,0.46921E-02_JPRB,0.31788E-02_JPRB /)  
+KB(:, 3,24, 5) = (/ &
+ & 0.26942E-03_JPRB,0.33694E-02_JPRB,0.45983E-02_JPRB,0.49126E-02_JPRB,0.33287E-02_JPRB /)  
+KB(:, 4,24, 5) = (/ &
+ & 0.32317E-03_JPRB,0.36702E-02_JPRB,0.49092E-02_JPRB,0.51393E-02_JPRB,0.34771E-02_JPRB /)  
+KB(:, 5,24, 5) = (/ &
+ & 0.38638E-03_JPRB,0.39951E-02_JPRB,0.52385E-02_JPRB,0.53815E-02_JPRB,0.36232E-02_JPRB /)  
+KB(:, 1,25, 5) = (/ &
+ & 0.16224E-03_JPRB,0.24232E-02_JPRB,0.34141E-02_JPRB,0.37661E-02_JPRB,0.25262E-02_JPRB /)  
+KB(:, 2,25, 5) = (/ &
+ & 0.19465E-03_JPRB,0.26463E-02_JPRB,0.36575E-02_JPRB,0.39541E-02_JPRB,0.26577E-02_JPRB /)  
+KB(:, 3,25, 5) = (/ &
+ & 0.23391E-03_JPRB,0.28936E-02_JPRB,0.39130E-02_JPRB,0.41446E-02_JPRB,0.27841E-02_JPRB /)  
+KB(:, 4,25, 5) = (/ &
+ & 0.28044E-03_JPRB,0.31598E-02_JPRB,0.41853E-02_JPRB,0.43442E-02_JPRB,0.29098E-02_JPRB /)  
+KB(:, 5,25, 5) = (/ &
+ & 0.33483E-03_JPRB,0.34437E-02_JPRB,0.44735E-02_JPRB,0.45625E-02_JPRB,0.30351E-02_JPRB /)  
+KB(:, 1,26, 5) = (/ &
+ & 0.14132E-03_JPRB,0.20737E-02_JPRB,0.29036E-02_JPRB,0.31762E-02_JPRB,0.21157E-02_JPRB /)  
+KB(:, 2,26, 5) = (/ &
+ & 0.16977E-03_JPRB,0.22743E-02_JPRB,0.31152E-02_JPRB,0.33382E-02_JPRB,0.22258E-02_JPRB /)  
+KB(:, 3,26, 5) = (/ &
+ & 0.20409E-03_JPRB,0.24947E-02_JPRB,0.33401E-02_JPRB,0.35048E-02_JPRB,0.23338E-02_JPRB /)  
+KB(:, 4,26, 5) = (/ &
+ & 0.24472E-03_JPRB,0.27297E-02_JPRB,0.35798E-02_JPRB,0.36835E-02_JPRB,0.24421E-02_JPRB /)  
+KB(:, 5,26, 5) = (/ &
+ & 0.29131E-03_JPRB,0.29804E-02_JPRB,0.38308E-02_JPRB,0.38797E-02_JPRB,0.25500E-02_JPRB /)  
+KB(:, 1,27, 5) = (/ &
+ & 0.12293E-03_JPRB,0.17797E-02_JPRB,0.24725E-02_JPRB,0.26822E-02_JPRB,0.17718E-02_JPRB /)  
+KB(:, 2,27, 5) = (/ &
+ & 0.14789E-03_JPRB,0.19595E-02_JPRB,0.26584E-02_JPRB,0.28222E-02_JPRB,0.18655E-02_JPRB /)  
+KB(:, 3,27, 5) = (/ &
+ & 0.17790E-03_JPRB,0.21552E-02_JPRB,0.28584E-02_JPRB,0.29695E-02_JPRB,0.19589E-02_JPRB /)  
+KB(:, 4,27, 5) = (/ &
+ & 0.21315E-03_JPRB,0.23624E-02_JPRB,0.30688E-02_JPRB,0.31309E-02_JPRB,0.20520E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART19',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,27, 5) = (/ &
+ & 0.25285E-03_JPRB,0.25825E-02_JPRB,0.32876E-02_JPRB,0.33068E-02_JPRB,0.21445E-02_JPRB /)  
+KB(:, 1,28, 5) = (/ &
+ & 0.10657E-03_JPRB,0.15319E-02_JPRB,0.21096E-02_JPRB,0.22678E-02_JPRB,0.14844E-02_JPRB /)  
+KB(:, 2,28, 5) = (/ &
+ & 0.12856E-03_JPRB,0.16920E-02_JPRB,0.22743E-02_JPRB,0.23899E-02_JPRB,0.15639E-02_JPRB /)  
+KB(:, 3,28, 5) = (/ &
+ & 0.15471E-03_JPRB,0.18636E-02_JPRB,0.24511E-02_JPRB,0.25221E-02_JPRB,0.16436E-02_JPRB /)  
+KB(:, 4,28, 5) = (/ &
+ & 0.18512E-03_JPRB,0.20472E-02_JPRB,0.26364E-02_JPRB,0.26681E-02_JPRB,0.17238E-02_JPRB /)  
+KB(:, 5,28, 5) = (/ &
+ & 0.21872E-03_JPRB,0.22411E-02_JPRB,0.28270E-02_JPRB,0.28260E-02_JPRB,0.18048E-02_JPRB /)  
+KB(:, 1,29, 5) = (/ &
+ & 0.92876E-04_JPRB,0.13237E-02_JPRB,0.18049E-02_JPRB,0.19214E-02_JPRB,0.12471E-02_JPRB /)  
+KB(:, 2,29, 5) = (/ &
+ & 0.11226E-03_JPRB,0.14659E-02_JPRB,0.19518E-02_JPRB,0.20295E-02_JPRB,0.13143E-02_JPRB /)  
+KB(:, 3,29, 5) = (/ &
+ & 0.13519E-03_JPRB,0.16171E-02_JPRB,0.21089E-02_JPRB,0.21498E-02_JPRB,0.13833E-02_JPRB /)  
+KB(:, 4,29, 5) = (/ &
+ & 0.16102E-03_JPRB,0.17778E-02_JPRB,0.22703E-02_JPRB,0.22810E-02_JPRB,0.14528E-02_JPRB /)  
+KB(:, 5,29, 5) = (/ &
+ & 0.18981E-03_JPRB,0.19484E-02_JPRB,0.24374E-02_JPRB,0.24249E-02_JPRB,0.15236E-02_JPRB /)  
+KB(:, 1,30, 5) = (/ &
+ & 0.80828E-04_JPRB,0.11471E-02_JPRB,0.15486E-02_JPRB,0.16307E-02_JPRB,0.10482E-02_JPRB /)  
+KB(:, 2,30, 5) = (/ &
+ & 0.98063E-04_JPRB,0.12718E-02_JPRB,0.16797E-02_JPRB,0.17287E-02_JPRB,0.11053E-02_JPRB /)  
+KB(:, 3,30, 5) = (/ &
+ & 0.11772E-03_JPRB,0.14050E-02_JPRB,0.18177E-02_JPRB,0.18379E-02_JPRB,0.11648E-02_JPRB /)  
+KB(:, 4,30, 5) = (/ &
+ & 0.13981E-03_JPRB,0.15469E-02_JPRB,0.19589E-02_JPRB,0.19565E-02_JPRB,0.12258E-02_JPRB /)  
+KB(:, 5,30, 5) = (/ &
+ & 0.16446E-03_JPRB,0.16947E-02_JPRB,0.21055E-02_JPRB,0.20874E-02_JPRB,0.12885E-02_JPRB /)  
+KB(:, 1,31, 5) = (/ &
+ & 0.70539E-04_JPRB,0.99621E-03_JPRB,0.13325E-02_JPRB,0.13879E-02_JPRB,0.88220E-03_JPRB /)  
+KB(:, 2,31, 5) = (/ &
+ & 0.85589E-04_JPRB,0.11063E-02_JPRB,0.14492E-02_JPRB,0.14776E-02_JPRB,0.93113E-03_JPRB /)  
+KB(:, 3,31, 5) = (/ &
+ & 0.10244E-03_JPRB,0.12240E-02_JPRB,0.15701E-02_JPRB,0.15764E-02_JPRB,0.98237E-03_JPRB /)  
+KB(:, 4,31, 5) = (/ &
+ & 0.12151E-03_JPRB,0.13488E-02_JPRB,0.16942E-02_JPRB,0.16846E-02_JPRB,0.10364E-02_JPRB /)  
+KB(:, 5,31, 5) = (/ &
+ & 0.14245E-03_JPRB,0.14753E-02_JPRB,0.18229E-02_JPRB,0.18042E-02_JPRB,0.10910E-02_JPRB /)  
+KB(:, 1,32, 5) = (/ &
+ & 0.61598E-04_JPRB,0.86708E-03_JPRB,0.11506E-02_JPRB,0.11857E-02_JPRB,0.74396E-03_JPRB /)  
+KB(:, 2,32, 5) = (/ &
+ & 0.74698E-04_JPRB,0.96443E-03_JPRB,0.12533E-02_JPRB,0.12673E-02_JPRB,0.78590E-03_JPRB /)  
+KB(:, 3,32, 5) = (/ &
+ & 0.89092E-04_JPRB,0.10684E-02_JPRB,0.13590E-02_JPRB,0.13571E-02_JPRB,0.83090E-03_JPRB /)  
+KB(:, 4,32, 5) = (/ &
+ & 0.10537E-03_JPRB,0.11766E-02_JPRB,0.14682E-02_JPRB,0.14560E-02_JPRB,0.87827E-03_JPRB /)  
+KB(:, 5,32, 5) = (/ &
+ & 0.12327E-03_JPRB,0.12850E-02_JPRB,0.15813E-02_JPRB,0.15643E-02_JPRB,0.92599E-03_JPRB /)  
+KB(:, 1,33, 5) = (/ &
+ & 0.53748E-04_JPRB,0.75629E-03_JPRB,0.99595E-03_JPRB,0.10163E-02_JPRB,0.62809E-03_JPRB /)  
+KB(:, 2,33, 5) = (/ &
+ & 0.64972E-04_JPRB,0.84265E-03_JPRB,0.10856E-02_JPRB,0.10908E-02_JPRB,0.66416E-03_JPRB /)  
+KB(:, 3,33, 5) = (/ &
+ & 0.77386E-04_JPRB,0.93397E-03_JPRB,0.11787E-02_JPRB,0.11727E-02_JPRB,0.70387E-03_JPRB /)  
+KB(:, 4,33, 5) = (/ &
+ & 0.91138E-04_JPRB,0.10266E-02_JPRB,0.12749E-02_JPRB,0.12630E-02_JPRB,0.74507E-03_JPRB /)  
+KB(:, 5,33, 5) = (/ &
+ & 0.10640E-03_JPRB,0.11189E-02_JPRB,0.13738E-02_JPRB,0.13608E-02_JPRB,0.78830E-03_JPRB /)  
+KB(:, 1,34, 5) = (/ &
+ & 0.46667E-04_JPRB,0.65884E-03_JPRB,0.86049E-03_JPRB,0.87214E-03_JPRB,0.53099E-03_JPRB /)  
+KB(:, 2,34, 5) = (/ &
+ & 0.56263E-04_JPRB,0.73490E-03_JPRB,0.93900E-03_JPRB,0.93946E-03_JPRB,0.56278E-03_JPRB /)  
+KB(:, 3,34, 5) = (/ &
+ & 0.66853E-04_JPRB,0.81383E-03_JPRB,0.10209E-02_JPRB,0.10142E-02_JPRB,0.59776E-03_JPRB /)  
+KB(:, 4,34, 5) = (/ &
+ & 0.78598E-04_JPRB,0.89314E-03_JPRB,0.11054E-02_JPRB,0.10963E-02_JPRB,0.63419E-03_JPRB /)  
+KB(:, 5,34, 5) = (/ &
+ & 0.91503E-04_JPRB,0.97193E-03_JPRB,0.11927E-02_JPRB,0.11840E-02_JPRB,0.67320E-03_JPRB /)  
+KB(:, 1,35, 5) = (/ &
+ & 0.39599E-04_JPRB,0.56866E-03_JPRB,0.73803E-03_JPRB,0.74491E-03_JPRB,0.44688E-03_JPRB /)  
+KB(:, 2,35, 5) = (/ &
+ & 0.47677E-04_JPRB,0.63490E-03_JPRB,0.80685E-03_JPRB,0.80540E-03_JPRB,0.47466E-03_JPRB /)  
+KB(:, 3,35, 5) = (/ &
+ & 0.56630E-04_JPRB,0.70279E-03_JPRB,0.87860E-03_JPRB,0.87332E-03_JPRB,0.50476E-03_JPRB /)  
+KB(:, 4,35, 5) = (/ &
+ & 0.66506E-04_JPRB,0.77061E-03_JPRB,0.95262E-03_JPRB,0.94676E-03_JPRB,0.53730E-03_JPRB /)  
+KB(:, 5,35, 5) = (/ &
+ & 0.77343E-04_JPRB,0.83870E-03_JPRB,0.10295E-02_JPRB,0.10250E-02_JPRB,0.57200E-03_JPRB /)  
+KB(:, 1,36, 5) = (/ &
+ & 0.32767E-04_JPRB,0.48523E-03_JPRB,0.62751E-03_JPRB,0.63183E-03_JPRB,0.37353E-03_JPRB /)  
+KB(:, 2,36, 5) = (/ &
+ & 0.39450E-04_JPRB,0.54261E-03_JPRB,0.68744E-03_JPRB,0.68587E-03_JPRB,0.39744E-03_JPRB /)  
+KB(:, 3,36, 5) = (/ &
+ & 0.46861E-04_JPRB,0.60093E-03_JPRB,0.74977E-03_JPRB,0.74623E-03_JPRB,0.42315E-03_JPRB /)  
+KB(:, 4,36, 5) = (/ &
+ & 0.54956E-04_JPRB,0.65916E-03_JPRB,0.81469E-03_JPRB,0.81158E-03_JPRB,0.45144E-03_JPRB /)  
+KB(:, 5,36, 5) = (/ &
+ & 0.63908E-04_JPRB,0.71820E-03_JPRB,0.88212E-03_JPRB,0.88103E-03_JPRB,0.48165E-03_JPRB /)  
+KB(:, 1,37, 5) = (/ &
+ & 0.26734E-04_JPRB,0.40754E-03_JPRB,0.52645E-03_JPRB,0.53014E-03_JPRB,0.31118E-03_JPRB /)  
+KB(:, 2,37, 5) = (/ &
+ & 0.32273E-04_JPRB,0.45661E-03_JPRB,0.57825E-03_JPRB,0.57766E-03_JPRB,0.33206E-03_JPRB /)  
+KB(:, 3,37, 5) = (/ &
+ & 0.38488E-04_JPRB,0.50697E-03_JPRB,0.63245E-03_JPRB,0.63058E-03_JPRB,0.35476E-03_JPRB /)  
+KB(:, 4,37, 5) = (/ &
+ & 0.45228E-04_JPRB,0.55706E-03_JPRB,0.68918E-03_JPRB,0.68809E-03_JPRB,0.37944E-03_JPRB /)  
+KB(:, 5,37, 5) = (/ &
+ & 0.52675E-04_JPRB,0.60808E-03_JPRB,0.74794E-03_JPRB,0.74934E-03_JPRB,0.40598E-03_JPRB /)  
+KB(:, 1,38, 5) = (/ &
+ & 0.21751E-04_JPRB,0.34209E-03_JPRB,0.44146E-03_JPRB,0.44458E-03_JPRB,0.25920E-03_JPRB /)  
+KB(:, 2,38, 5) = (/ &
+ & 0.26326E-04_JPRB,0.38415E-03_JPRB,0.48603E-03_JPRB,0.48632E-03_JPRB,0.27730E-03_JPRB /)  
+KB(:, 3,38, 5) = (/ &
+ & 0.31515E-04_JPRB,0.42736E-03_JPRB,0.53325E-03_JPRB,0.53262E-03_JPRB,0.29714E-03_JPRB /)  
+KB(:, 4,38, 5) = (/ &
+ & 0.37219E-04_JPRB,0.47064E-03_JPRB,0.58263E-03_JPRB,0.58321E-03_JPRB,0.31890E-03_JPRB /)  
+KB(:, 5,38, 5) = (/ &
+ & 0.43344E-04_JPRB,0.51493E-03_JPRB,0.63402E-03_JPRB,0.63729E-03_JPRB,0.34212E-03_JPRB /)  
+KB(:, 1,39, 5) = (/ &
+ & 0.17643E-04_JPRB,0.28717E-03_JPRB,0.37020E-03_JPRB,0.37288E-03_JPRB,0.21580E-03_JPRB /)  
+KB(:, 2,39, 5) = (/ &
+ & 0.21418E-04_JPRB,0.32343E-03_JPRB,0.40871E-03_JPRB,0.40953E-03_JPRB,0.23151E-03_JPRB /)  
+KB(:, 3,39, 5) = (/ &
+ & 0.25725E-04_JPRB,0.36044E-03_JPRB,0.44966E-03_JPRB,0.45005E-03_JPRB,0.24880E-03_JPRB /)  
+KB(:, 4,39, 5) = (/ &
+ & 0.30479E-04_JPRB,0.39785E-03_JPRB,0.49263E-03_JPRB,0.49445E-03_JPRB,0.26783E-03_JPRB /)  
+KB(:, 5,39, 5) = (/ &
+ & 0.35653E-04_JPRB,0.43646E-03_JPRB,0.53771E-03_JPRB,0.54230E-03_JPRB,0.28822E-03_JPRB /)  
+KB(:, 1,40, 5) = (/ &
+ & 0.14102E-04_JPRB,0.23814E-03_JPRB,0.30730E-03_JPRB,0.30981E-03_JPRB,0.17864E-03_JPRB /)  
+KB(:, 2,40, 5) = (/ &
+ & 0.17187E-04_JPRB,0.26934E-03_JPRB,0.34039E-03_JPRB,0.34146E-03_JPRB,0.19234E-03_JPRB /)  
+KB(:, 3,40, 5) = (/ &
+ & 0.20739E-04_JPRB,0.30130E-03_JPRB,0.37571E-03_JPRB,0.37672E-03_JPRB,0.20737E-03_JPRB /)  
+KB(:, 4,40, 5) = (/ &
+ & 0.24670E-04_JPRB,0.33333E-03_JPRB,0.41283E-03_JPRB,0.41538E-03_JPRB,0.22408E-03_JPRB /)  
+KB(:, 5,40, 5) = (/ &
+ & 0.29046E-04_JPRB,0.36694E-03_JPRB,0.45216E-03_JPRB,0.45729E-03_JPRB,0.24187E-03_JPRB /)  
+KB(:, 1,41, 5) = (/ &
+ & 0.11221E-04_JPRB,0.19710E-03_JPRB,0.25465E-03_JPRB,0.25696E-03_JPRB,0.14773E-03_JPRB /)  
+KB(:, 2,41, 5) = (/ &
+ & 0.13747E-04_JPRB,0.22390E-03_JPRB,0.28305E-03_JPRB,0.28413E-03_JPRB,0.15955E-03_JPRB /)  
+KB(:, 3,41, 5) = (/ &
+ & 0.16649E-04_JPRB,0.25145E-03_JPRB,0.31346E-03_JPRB,0.31467E-03_JPRB,0.17269E-03_JPRB /)  
+KB(:, 4,41, 5) = (/ &
+ & 0.19899E-04_JPRB,0.27935E-03_JPRB,0.34563E-03_JPRB,0.34845E-03_JPRB,0.18718E-03_JPRB /)  
+KB(:, 5,41, 5) = (/ &
+ & 0.23568E-04_JPRB,0.30830E-03_JPRB,0.37974E-03_JPRB,0.38512E-03_JPRB,0.20281E-03_JPRB /)  
+KB(:, 1,42, 5) = (/ &
+ & 0.89147E-05_JPRB,0.16314E-03_JPRB,0.21088E-03_JPRB,0.21294E-03_JPRB,0.12205E-03_JPRB /)  
+KB(:, 2,42, 5) = (/ &
+ & 0.10957E-04_JPRB,0.18596E-03_JPRB,0.23523E-03_JPRB,0.23628E-03_JPRB,0.13225E-03_JPRB /)  
+KB(:, 3,42, 5) = (/ &
+ & 0.13327E-04_JPRB,0.20974E-03_JPRB,0.26134E-03_JPRB,0.26263E-03_JPRB,0.14356E-03_JPRB /)  
+KB(:, 4,42, 5) = (/ &
+ & 0.16005E-04_JPRB,0.23378E-03_JPRB,0.28925E-03_JPRB,0.29202E-03_JPRB,0.15621E-03_JPRB /)  
+KB(:, 5,42, 5) = (/ &
+ & 0.19038E-04_JPRB,0.25914E-03_JPRB,0.31897E-03_JPRB,0.32415E-03_JPRB,0.16982E-03_JPRB /)  
+KB(:, 1,43, 5) = (/ &
+ & 0.69995E-05_JPRB,0.13405E-03_JPRB,0.17338E-03_JPRB,0.17535E-03_JPRB,0.10036E-03_JPRB /)  
+KB(:, 2,43, 5) = (/ &
+ & 0.86406E-05_JPRB,0.15345E-03_JPRB,0.19416E-03_JPRB,0.19514E-03_JPRB,0.10910E-03_JPRB /)  
+KB(:, 3,43, 5) = (/ &
+ & 0.10556E-04_JPRB,0.17373E-03_JPRB,0.21659E-03_JPRB,0.21767E-03_JPRB,0.11887E-03_JPRB /)  
+KB(:, 4,43, 5) = (/ &
+ & 0.12739E-04_JPRB,0.19445E-03_JPRB,0.24053E-03_JPRB,0.24311E-03_JPRB,0.12980E-03_JPRB /)  
+KB(:, 5,43, 5) = (/ &
+ & 0.15232E-04_JPRB,0.21640E-03_JPRB,0.26645E-03_JPRB,0.27107E-03_JPRB,0.14169E-03_JPRB /)  
+KB(:, 1,44, 5) = (/ &
+ & 0.54712E-05_JPRB,0.10970E-03_JPRB,0.14195E-03_JPRB,0.14386E-03_JPRB,0.82260E-04_JPRB /)  
+KB(:, 2,44, 5) = (/ &
+ & 0.67644E-05_JPRB,0.12612E-03_JPRB,0.15963E-03_JPRB,0.16061E-03_JPRB,0.89727E-04_JPRB /)  
+KB(:, 3,44, 5) = (/ &
+ & 0.82973E-05_JPRB,0.14348E-03_JPRB,0.17878E-03_JPRB,0.17975E-03_JPRB,0.98122E-04_JPRB /)  
+KB(:, 4,44, 5) = (/ &
+ & 0.10082E-04_JPRB,0.16132E-03_JPRB,0.19952E-03_JPRB,0.20155E-03_JPRB,0.10755E-03_JPRB /)  
+KB(:, 5,44, 5) = (/ &
+ & 0.12107E-04_JPRB,0.18008E-03_JPRB,0.22179E-03_JPRB,0.22576E-03_JPRB,0.11787E-03_JPRB /)  
+KB(:, 1,45, 5) = (/ &
+ & 0.42767E-05_JPRB,0.89680E-04_JPRB,0.11611E-03_JPRB,0.11781E-03_JPRB,0.67338E-04_JPRB /)  
+KB(:, 2,45, 5) = (/ &
+ & 0.52860E-05_JPRB,0.10360E-03_JPRB,0.13107E-03_JPRB,0.13203E-03_JPRB,0.73722E-04_JPRB /)  
+KB(:, 3,45, 5) = (/ &
+ & 0.65107E-05_JPRB,0.11838E-03_JPRB,0.14735E-03_JPRB,0.14829E-03_JPRB,0.80852E-04_JPRB /)  
+KB(:, 4,45, 5) = (/ &
+ & 0.79501E-05_JPRB,0.13374E-03_JPRB,0.16520E-03_JPRB,0.16693E-03_JPRB,0.88969E-04_JPRB /)  
+KB(:, 5,45, 5) = (/ &
+ & 0.95937E-05_JPRB,0.14993E-03_JPRB,0.18456E-03_JPRB,0.18781E-03_JPRB,0.97897E-04_JPRB /)  
+KB(:, 1,46, 5) = (/ &
+ & 0.33226E-05_JPRB,0.72918E-04_JPRB,0.94635E-04_JPRB,0.96069E-04_JPRB,0.54912E-04_JPRB /)  
+KB(:, 2,46, 5) = (/ &
+ & 0.41185E-05_JPRB,0.84705E-04_JPRB,0.10726E-03_JPRB,0.10809E-03_JPRB,0.60325E-04_JPRB /)  
+KB(:, 3,46, 5) = (/ &
+ & 0.50796E-05_JPRB,0.97414E-04_JPRB,0.12106E-03_JPRB,0.12184E-03_JPRB,0.66415E-04_JPRB /)  
+KB(:, 4,46, 5) = (/ &
+ & 0.62311E-05_JPRB,0.11055E-03_JPRB,0.13625E-03_JPRB,0.13772E-03_JPRB,0.73354E-04_JPRB /)  
+KB(:, 5,46, 5) = (/ &
+ & 0.75594E-05_JPRB,0.12439E-03_JPRB,0.15297E-03_JPRB,0.15569E-03_JPRB,0.80972E-04_JPRB /)  
+KB(:, 1,47, 5) = (/ &
+ & 0.25507E-05_JPRB,0.58753E-04_JPRB,0.76599E-04_JPRB,0.77798E-04_JPRB,0.44508E-04_JPRB /)  
+KB(:, 2,47, 5) = (/ &
+ & 0.31800E-05_JPRB,0.68679E-04_JPRB,0.87240E-04_JPRB,0.87843E-04_JPRB,0.49115E-04_JPRB /)  
+KB(:, 3,47, 5) = (/ &
+ & 0.39273E-05_JPRB,0.79497E-04_JPRB,0.98871E-04_JPRB,0.99421E-04_JPRB,0.54249E-04_JPRB /)  
+KB(:, 4,47, 5) = (/ &
+ & 0.48346E-05_JPRB,0.90782E-04_JPRB,0.11173E-03_JPRB,0.11282E-03_JPRB,0.60113E-04_JPRB /)  
+KB(:, 5,47, 5) = (/ &
+ & 0.58995E-05_JPRB,0.10267E-03_JPRB,0.12592E-03_JPRB,0.12815E-03_JPRB,0.66656E-04_JPRB /)  
+KB(:, 1,48, 5) = (/ &
+ & 0.19539E-05_JPRB,0.47174E-04_JPRB,0.61874E-04_JPRB,0.62916E-04_JPRB,0.35973E-04_JPRB /)  
+KB(:, 2,48, 5) = (/ &
+ & 0.24452E-05_JPRB,0.55575E-04_JPRB,0.70853E-04_JPRB,0.71238E-04_JPRB,0.39898E-04_JPRB /)  
+KB(:, 3,48, 5) = (/ &
+ & 0.30402E-05_JPRB,0.64783E-04_JPRB,0.80633E-04_JPRB,0.80921E-04_JPRB,0.44214E-04_JPRB /)  
+KB(:, 4,48, 5) = (/ &
+ & 0.37390E-05_JPRB,0.74439E-04_JPRB,0.91498E-04_JPRB,0.92208E-04_JPRB,0.49162E-04_JPRB /)  
+KB(:, 5,48, 5) = (/ &
+ & 0.45836E-05_JPRB,0.84608E-04_JPRB,0.10358E-03_JPRB,0.10531E-03_JPRB,0.54702E-04_JPRB /)  
+KB(:, 1,49, 5) = (/ &
+ & 0.14940E-05_JPRB,0.37716E-04_JPRB,0.49829E-04_JPRB,0.50804E-04_JPRB,0.28987E-04_JPRB /)  
+KB(:, 2,49, 5) = (/ &
+ & 0.18758E-05_JPRB,0.44777E-04_JPRB,0.57392E-04_JPRB,0.57697E-04_JPRB,0.32317E-04_JPRB /)  
+KB(:, 3,49, 5) = (/ &
+ & 0.23413E-05_JPRB,0.52604E-04_JPRB,0.65608E-04_JPRB,0.65748E-04_JPRB,0.35946E-04_JPRB /)  
+KB(:, 4,49, 5) = (/ &
+ & 0.28961E-05_JPRB,0.60891E-04_JPRB,0.74824E-04_JPRB,0.75182E-04_JPRB,0.40099E-04_JPRB /)  
+KB(:, 5,49, 5) = (/ &
+ & 0.35524E-05_JPRB,0.69587E-04_JPRB,0.85068E-04_JPRB,0.86295E-04_JPRB,0.44804E-04_JPRB /)  
+KB(:, 1,50, 5) = (/ &
+ & 0.11500E-05_JPRB,0.30169E-04_JPRB,0.40157E-04_JPRB,0.41069E-04_JPRB,0.23362E-04_JPRB /)  
+KB(:, 2,50, 5) = (/ &
+ & 0.14453E-05_JPRB,0.36089E-04_JPRB,0.46549E-04_JPRB,0.46799E-04_JPRB,0.26193E-04_JPRB /)  
+KB(:, 3,50, 5) = (/ &
+ & 0.18129E-05_JPRB,0.42735E-04_JPRB,0.53474E-04_JPRB,0.53514E-04_JPRB,0.29249E-04_JPRB /)  
+KB(:, 4,50, 5) = (/ &
+ & 0.22529E-05_JPRB,0.49843E-04_JPRB,0.61234E-04_JPRB,0.61404E-04_JPRB,0.32748E-04_JPRB /)  
+KB(:, 5,50, 5) = (/ &
+ & 0.27762E-05_JPRB,0.57328E-04_JPRB,0.70027E-04_JPRB,0.70783E-04_JPRB,0.36712E-04_JPRB /)  
+KB(:, 1,51, 5) = (/ &
+ & 0.88851E-06_JPRB,0.24095E-04_JPRB,0.32303E-04_JPRB,0.33210E-04_JPRB,0.18805E-04_JPRB /)  
+KB(:, 2,51, 5) = (/ &
+ & 0.11177E-05_JPRB,0.29082E-04_JPRB,0.37705E-04_JPRB,0.37944E-04_JPRB,0.21209E-04_JPRB /)  
+KB(:, 3,51, 5) = (/ &
+ & 0.14060E-05_JPRB,0.34667E-04_JPRB,0.43578E-04_JPRB,0.43570E-04_JPRB,0.23792E-04_JPRB /)  
+KB(:, 4,51, 5) = (/ &
+ & 0.17539E-05_JPRB,0.40739E-04_JPRB,0.50114E-04_JPRB,0.50172E-04_JPRB,0.26720E-04_JPRB /)  
+KB(:, 5,51, 5) = (/ &
+ & 0.21729E-05_JPRB,0.47224E-04_JPRB,0.57598E-04_JPRB,0.58070E-04_JPRB,0.30079E-04_JPRB /)  
+KB(:, 1,52, 5) = (/ &
+ & 0.68525E-06_JPRB,0.19178E-04_JPRB,0.25896E-04_JPRB,0.26809E-04_JPRB,0.15097E-04_JPRB /)  
+KB(:, 2,52, 5) = (/ &
+ & 0.86301E-06_JPRB,0.23336E-04_JPRB,0.30434E-04_JPRB,0.30713E-04_JPRB,0.17120E-04_JPRB /)  
+KB(:, 3,52, 5) = (/ &
+ & 0.10889E-05_JPRB,0.28028E-04_JPRB,0.35422E-04_JPRB,0.35397E-04_JPRB,0.19301E-04_JPRB /)  
+KB(:, 4,52, 5) = (/ &
+ & 0.13649E-05_JPRB,0.33187E-04_JPRB,0.40954E-04_JPRB,0.40921E-04_JPRB,0.21752E-04_JPRB /)  
+KB(:, 5,52, 5) = (/ &
+ & 0.16982E-05_JPRB,0.38747E-04_JPRB,0.47260E-04_JPRB,0.47557E-04_JPRB,0.24588E-04_JPRB /)  
+KB(:, 1,53, 5) = (/ &
+ & 0.52809E-06_JPRB,0.15206E-04_JPRB,0.20688E-04_JPRB,0.21592E-04_JPRB,0.12084E-04_JPRB /)  
+KB(:, 2,53, 5) = (/ &
+ & 0.66493E-06_JPRB,0.18647E-04_JPRB,0.24479E-04_JPRB,0.24819E-04_JPRB,0.13781E-04_JPRB /)  
+KB(:, 3,53, 5) = (/ &
+ & 0.84102E-06_JPRB,0.22574E-04_JPRB,0.28683E-04_JPRB,0.28690E-04_JPRB,0.15621E-04_JPRB /)  
+KB(:, 4,53, 5) = (/ &
+ & 0.10585E-05_JPRB,0.26955E-04_JPRB,0.33364E-04_JPRB,0.33298E-04_JPRB,0.17677E-04_JPRB /)  
+KB(:, 5,53, 5) = (/ &
+ & 0.13239E-05_JPRB,0.31710E-04_JPRB,0.38733E-04_JPRB,0.38864E-04_JPRB,0.20049E-04_JPRB /)  
+KB(:, 1,54, 5) = (/ &
+ & 0.40969E-06_JPRB,0.12093E-04_JPRB,0.16564E-04_JPRB,0.17421E-04_JPRB,0.96882E-05_JPRB /)  
+KB(:, 2,54, 5) = (/ &
+ & 0.51569E-06_JPRB,0.14937E-04_JPRB,0.19734E-04_JPRB,0.20094E-04_JPRB,0.11112E-04_JPRB /)  
+KB(:, 3,54, 5) = (/ &
+ & 0.65296E-06_JPRB,0.18229E-04_JPRB,0.23282E-04_JPRB,0.23321E-04_JPRB,0.12664E-04_JPRB /)  
+KB(:, 4,54, 5) = (/ &
+ & 0.82573E-06_JPRB,0.21950E-04_JPRB,0.27231E-04_JPRB,0.27150E-04_JPRB,0.14393E-04_JPRB /)  
+KB(:, 5,54, 5) = (/ &
+ & 0.10373E-05_JPRB,0.26013E-04_JPRB,0.31791E-04_JPRB,0.31828E-04_JPRB,0.16379E-04_JPRB /)  
+KB(:, 1,55, 5) = (/ &
+ & 0.31928E-06_JPRB,0.96162E-05_JPRB,0.13257E-04_JPRB,0.14053E-04_JPRB,0.77741E-05_JPRB /)  
+KB(:, 2,55, 5) = (/ &
+ & 0.40112E-06_JPRB,0.11963E-04_JPRB,0.15906E-04_JPRB,0.16257E-04_JPRB,0.89578E-05_JPRB /)  
+KB(:, 3,55, 5) = (/ &
+ & 0.50816E-06_JPRB,0.14717E-04_JPRB,0.18886E-04_JPRB,0.18947E-04_JPRB,0.10262E-04_JPRB /)  
+KB(:, 4,55, 5) = (/ &
+ & 0.64465E-06_JPRB,0.17864E-04_JPRB,0.22207E-04_JPRB,0.22155E-04_JPRB,0.11715E-04_JPRB /)  
+KB(:, 5,55, 5) = (/ &
+ & 0.81328E-06_JPRB,0.21326E-04_JPRB,0.26076E-04_JPRB,0.26061E-04_JPRB,0.13376E-04_JPRB /)  
+KB(:, 1,56, 5) = (/ &
+ & 0.24829E-06_JPRB,0.76204E-05_JPRB,0.10578E-04_JPRB,0.11309E-04_JPRB,0.62208E-05_JPRB /)  
+KB(:, 2,56, 5) = (/ &
+ & 0.31176E-06_JPRB,0.95488E-05_JPRB,0.12780E-04_JPRB,0.13125E-04_JPRB,0.72013E-05_JPRB /)  
+KB(:, 3,56, 5) = (/ &
+ & 0.39506E-06_JPRB,0.11850E-04_JPRB,0.15279E-04_JPRB,0.15348E-04_JPRB,0.82947E-05_JPRB /)  
+KB(:, 4,56, 5) = (/ &
+ & 0.50266E-06_JPRB,0.14492E-04_JPRB,0.18074E-04_JPRB,0.18040E-04_JPRB,0.95153E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART20',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,56, 5) = (/ &
+ & 0.63638E-06_JPRB,0.17442E-04_JPRB,0.21336E-04_JPRB,0.21310E-04_JPRB,0.10904E-04_JPRB /)  
+KB(:, 1,57, 5) = (/ &
+ & 0.19302E-06_JPRB,0.60187E-05_JPRB,0.84162E-05_JPRB,0.90799E-05_JPRB,0.49649E-05_JPRB /)  
+KB(:, 2,57, 5) = (/ &
+ & 0.24222E-06_JPRB,0.75959E-05_JPRB,0.10233E-04_JPRB,0.10570E-04_JPRB,0.57701E-05_JPRB /)  
+KB(:, 3,57, 5) = (/ &
+ & 0.30688E-06_JPRB,0.95080E-05_JPRB,0.12318E-04_JPRB,0.12403E-04_JPRB,0.66913E-05_JPRB /)  
+KB(:, 4,57, 5) = (/ &
+ & 0.39089E-06_JPRB,0.11719E-04_JPRB,0.14670E-04_JPRB,0.14644E-04_JPRB,0.77166E-05_JPRB /)  
+KB(:, 5,57, 5) = (/ &
+ & 0.49674E-06_JPRB,0.14214E-04_JPRB,0.17402E-04_JPRB,0.17382E-04_JPRB,0.88727E-05_JPRB /)  
+KB(:, 1,58, 5) = (/ &
+ & 0.15046E-06_JPRB,0.47663E-05_JPRB,0.66998E-05_JPRB,0.72908E-05_JPRB,0.39631E-05_JPRB /)  
+KB(:, 2,58, 5) = (/ &
+ & 0.18856E-06_JPRB,0.60459E-05_JPRB,0.81908E-05_JPRB,0.85206E-05_JPRB,0.46270E-05_JPRB /)  
+KB(:, 3,58, 5) = (/ &
+ & 0.23869E-06_JPRB,0.76302E-05_JPRB,0.99245E-05_JPRB,0.10023E-04_JPRB,0.53977E-05_JPRB /)  
+KB(:, 4,58, 5) = (/ &
+ & 0.30459E-06_JPRB,0.94767E-05_JPRB,0.11911E-04_JPRB,0.11894E-04_JPRB,0.62579E-05_JPRB /)  
+KB(:, 5,58, 5) = (/ &
+ & 0.38820E-06_JPRB,0.11588E-04_JPRB,0.14205E-04_JPRB,0.14182E-04_JPRB,0.72226E-05_JPRB /)  
+KB(:, 1,59, 5) = (/ &
+ & 0.12212E-06_JPRB,0.39332E-05_JPRB,0.55230E-05_JPRB,0.60094E-05_JPRB,0.32499E-05_JPRB /)  
+KB(:, 2,59, 5) = (/ &
+ & 0.15324E-06_JPRB,0.50178E-05_JPRB,0.67879E-05_JPRB,0.70566E-05_JPRB,0.38108E-05_JPRB /)  
+KB(:, 3,59, 5) = (/ &
+ & 0.19418E-06_JPRB,0.63678E-05_JPRB,0.82647E-05_JPRB,0.83443E-05_JPRB,0.44672E-05_JPRB /)  
+KB(:, 4,59, 5) = (/ &
+ & 0.24820E-06_JPRB,0.79543E-05_JPRB,0.99670E-05_JPRB,0.99518E-05_JPRB,0.52027E-05_JPRB /)  
+KB(:, 5,59, 5) = (/ &
+ & 0.31740E-06_JPRB,0.97704E-05_JPRB,0.11964E-04_JPRB,0.11938E-04_JPRB,0.60278E-05_JPRB /)  
+KB(:, 1,13, 6) = (/ &
+ & 0.10896E-01_JPRB,0.63076E-01_JPRB,0.78831E-01_JPRB,0.78091E-01_JPRB,0.55428E-01_JPRB /)  
+KB(:, 2,13, 6) = (/ &
+ & 0.13036E-01_JPRB,0.66370E-01_JPRB,0.81226E-01_JPRB,0.79692E-01_JPRB,0.56778E-01_JPRB /)  
+KB(:, 3,13, 6) = (/ &
+ & 0.15498E-01_JPRB,0.69685E-01_JPRB,0.83483E-01_JPRB,0.81400E-01_JPRB,0.57975E-01_JPRB /)  
+KB(:, 4,13, 6) = (/ &
+ & 0.18239E-01_JPRB,0.73147E-01_JPRB,0.85845E-01_JPRB,0.83249E-01_JPRB,0.59127E-01_JPRB /)  
+KB(:, 5,13, 6) = (/ &
+ & 0.21232E-01_JPRB,0.76581E-01_JPRB,0.88266E-01_JPRB,0.85245E-01_JPRB,0.60192E-01_JPRB /)  
+KB(:, 1,14, 6) = (/ &
+ & 0.94274E-02_JPRB,0.53526E-01_JPRB,0.66496E-01_JPRB,0.65527E-01_JPRB,0.46374E-01_JPRB /)  
+KB(:, 2,14, 6) = (/ &
+ & 0.11284E-01_JPRB,0.56390E-01_JPRB,0.68527E-01_JPRB,0.66955E-01_JPRB,0.47524E-01_JPRB /)  
+KB(:, 3,14, 6) = (/ &
+ & 0.13394E-01_JPRB,0.59305E-01_JPRB,0.70546E-01_JPRB,0.68479E-01_JPRB,0.48560E-01_JPRB /)  
+KB(:, 4,14, 6) = (/ &
+ & 0.15751E-01_JPRB,0.62293E-01_JPRB,0.72634E-01_JPRB,0.70165E-01_JPRB,0.49587E-01_JPRB /)  
+KB(:, 5,14, 6) = (/ &
+ & 0.18326E-01_JPRB,0.65240E-01_JPRB,0.74773E-01_JPRB,0.71967E-01_JPRB,0.50492E-01_JPRB /)  
+KB(:, 1,15, 6) = (/ &
+ & 0.81352E-02_JPRB,0.45294E-01_JPRB,0.55939E-01_JPRB,0.54933E-01_JPRB,0.38471E-01_JPRB /)  
+KB(:, 2,15, 6) = (/ &
+ & 0.97406E-02_JPRB,0.47797E-01_JPRB,0.57705E-01_JPRB,0.56201E-01_JPRB,0.39475E-01_JPRB /)  
+KB(:, 3,15, 6) = (/ &
+ & 0.11542E-01_JPRB,0.50349E-01_JPRB,0.59500E-01_JPRB,0.57588E-01_JPRB,0.40391E-01_JPRB /)  
+KB(:, 4,15, 6) = (/ &
+ & 0.13568E-01_JPRB,0.52924E-01_JPRB,0.61342E-01_JPRB,0.59116E-01_JPRB,0.41250E-01_JPRB /)  
+KB(:, 5,15, 6) = (/ &
+ & 0.15789E-01_JPRB,0.55427E-01_JPRB,0.63250E-01_JPRB,0.60727E-01_JPRB,0.42016E-01_JPRB /)  
+KB(:, 1,16, 6) = (/ &
+ & 0.70159E-02_JPRB,0.38272E-01_JPRB,0.46984E-01_JPRB,0.46002E-01_JPRB,0.31818E-01_JPRB /)  
+KB(:, 2,16, 6) = (/ &
+ & 0.83846E-02_JPRB,0.40476E-01_JPRB,0.48519E-01_JPRB,0.47148E-01_JPRB,0.32640E-01_JPRB /)  
+KB(:, 3,16, 6) = (/ &
+ & 0.99392E-02_JPRB,0.42699E-01_JPRB,0.50118E-01_JPRB,0.48421E-01_JPRB,0.33435E-01_JPRB /)  
+KB(:, 4,16, 6) = (/ &
+ & 0.11675E-01_JPRB,0.44875E-01_JPRB,0.51760E-01_JPRB,0.49780E-01_JPRB,0.34161E-01_JPRB /)  
+KB(:, 5,16, 6) = (/ &
+ & 0.13584E-01_JPRB,0.46992E-01_JPRB,0.53405E-01_JPRB,0.51224E-01_JPRB,0.34855E-01_JPRB /)  
+KB(:, 1,17, 6) = (/ &
+ & 0.60402E-02_JPRB,0.32343E-01_JPRB,0.39419E-01_JPRB,0.38482E-01_JPRB,0.26323E-01_JPRB /)  
+KB(:, 2,17, 6) = (/ &
+ & 0.72134E-02_JPRB,0.34265E-01_JPRB,0.40783E-01_JPRB,0.39523E-01_JPRB,0.27045E-01_JPRB /)  
+KB(:, 3,17, 6) = (/ &
+ & 0.85415E-02_JPRB,0.36157E-01_JPRB,0.42200E-01_JPRB,0.40657E-01_JPRB,0.27733E-01_JPRB /)  
+KB(:, 4,17, 6) = (/ &
+ & 0.10023E-01_JPRB,0.37979E-01_JPRB,0.43620E-01_JPRB,0.41877E-01_JPRB,0.28354E-01_JPRB /)  
+KB(:, 5,17, 6) = (/ &
+ & 0.11662E-01_JPRB,0.39775E-01_JPRB,0.45034E-01_JPRB,0.43161E-01_JPRB,0.28989E-01_JPRB /)  
+KB(:, 1,18, 6) = (/ &
+ & 0.51905E-02_JPRB,0.27334E-01_JPRB,0.33081E-01_JPRB,0.32183E-01_JPRB,0.21845E-01_JPRB /)  
+KB(:, 2,18, 6) = (/ &
+ & 0.61907E-02_JPRB,0.28996E-01_JPRB,0.34295E-01_JPRB,0.33127E-01_JPRB,0.22456E-01_JPRB /)  
+KB(:, 3,18, 6) = (/ &
+ & 0.73283E-02_JPRB,0.30572E-01_JPRB,0.35522E-01_JPRB,0.34131E-01_JPRB,0.23047E-01_JPRB /)  
+KB(:, 4,18, 6) = (/ &
+ & 0.85960E-02_JPRB,0.32113E-01_JPRB,0.36725E-01_JPRB,0.35202E-01_JPRB,0.23589E-01_JPRB /)  
+KB(:, 5,18, 6) = (/ &
+ & 0.10011E-01_JPRB,0.33654E-01_JPRB,0.37950E-01_JPRB,0.36339E-01_JPRB,0.24154E-01_JPRB /)  
+KB(:, 1,19, 6) = (/ &
+ & 0.44474E-02_JPRB,0.23093E-01_JPRB,0.27758E-01_JPRB,0.26913E-01_JPRB,0.18159E-01_JPRB /)  
+KB(:, 2,19, 6) = (/ &
+ & 0.53019E-02_JPRB,0.24497E-01_JPRB,0.28826E-01_JPRB,0.27764E-01_JPRB,0.18694E-01_JPRB /)  
+KB(:, 3,19, 6) = (/ &
+ & 0.62735E-02_JPRB,0.25825E-01_JPRB,0.29864E-01_JPRB,0.28669E-01_JPRB,0.19187E-01_JPRB /)  
+KB(:, 4,19, 6) = (/ &
+ & 0.73683E-02_JPRB,0.27139E-01_JPRB,0.30890E-01_JPRB,0.29627E-01_JPRB,0.19650E-01_JPRB /)  
+KB(:, 5,19, 6) = (/ &
+ & 0.85933E-02_JPRB,0.28467E-01_JPRB,0.31975E-01_JPRB,0.30634E-01_JPRB,0.20138E-01_JPRB /)  
+KB(:, 1,20, 6) = (/ &
+ & 0.38215E-02_JPRB,0.19522E-01_JPRB,0.23307E-01_JPRB,0.22532E-01_JPRB,0.15180E-01_JPRB /)  
+KB(:, 2,20, 6) = (/ &
+ & 0.45489E-02_JPRB,0.20697E-01_JPRB,0.24217E-01_JPRB,0.23292E-01_JPRB,0.15626E-01_JPRB /)  
+KB(:, 3,20, 6) = (/ &
+ & 0.53838E-02_JPRB,0.21827E-01_JPRB,0.25099E-01_JPRB,0.24107E-01_JPRB,0.16039E-01_JPRB /)  
+KB(:, 4,20, 6) = (/ &
+ & 0.63294E-02_JPRB,0.22947E-01_JPRB,0.25996E-01_JPRB,0.24951E-01_JPRB,0.16431E-01_JPRB /)  
+KB(:, 5,20, 6) = (/ &
+ & 0.73910E-02_JPRB,0.24098E-01_JPRB,0.26969E-01_JPRB,0.25840E-01_JPRB,0.16861E-01_JPRB /)  
+KB(:, 1,21, 6) = (/ &
+ & 0.32849E-02_JPRB,0.16485E-01_JPRB,0.19564E-01_JPRB,0.18873E-01_JPRB,0.12724E-01_JPRB /)  
+KB(:, 2,21, 6) = (/ &
+ & 0.39093E-02_JPRB,0.17476E-01_JPRB,0.20333E-01_JPRB,0.19553E-01_JPRB,0.13080E-01_JPRB /)  
+KB(:, 3,21, 6) = (/ &
+ & 0.46257E-02_JPRB,0.18440E-01_JPRB,0.21099E-01_JPRB,0.20272E-01_JPRB,0.13424E-01_JPRB /)  
+KB(:, 4,21, 6) = (/ &
+ & 0.54436E-02_JPRB,0.19400E-01_JPRB,0.21897E-01_JPRB,0.21018E-01_JPRB,0.13774E-01_JPRB /)  
+KB(:, 5,21, 6) = (/ &
+ & 0.63568E-02_JPRB,0.20406E-01_JPRB,0.22777E-01_JPRB,0.21806E-01_JPRB,0.14153E-01_JPRB /)  
+KB(:, 1,22, 6) = (/ &
+ & 0.28524E-02_JPRB,0.13970E-01_JPRB,0.16464E-01_JPRB,0.15855E-01_JPRB,0.10647E-01_JPRB /)  
+KB(:, 2,22, 6) = (/ &
+ & 0.33998E-02_JPRB,0.14799E-01_JPRB,0.17121E-01_JPRB,0.16464E-01_JPRB,0.10957E-01_JPRB /)  
+KB(:, 3,22, 6) = (/ &
+ & 0.40218E-02_JPRB,0.15618E-01_JPRB,0.17789E-01_JPRB,0.17098E-01_JPRB,0.11264E-01_JPRB /)  
+KB(:, 4,22, 6) = (/ &
+ & 0.47350E-02_JPRB,0.16459E-01_JPRB,0.18512E-01_JPRB,0.17761E-01_JPRB,0.11585E-01_JPRB /)  
+KB(:, 5,22, 6) = (/ &
+ & 0.55269E-02_JPRB,0.17342E-01_JPRB,0.19306E-01_JPRB,0.18466E-01_JPRB,0.11905E-01_JPRB /)  
+KB(:, 1,23, 6) = (/ &
+ & 0.24776E-02_JPRB,0.11832E-01_JPRB,0.13862E-01_JPRB,0.13338E-01_JPRB,0.89101E-02_JPRB /)  
+KB(:, 2,23, 6) = (/ &
+ & 0.29594E-02_JPRB,0.12532E-01_JPRB,0.14430E-01_JPRB,0.13874E-01_JPRB,0.91836E-02_JPRB /)  
+KB(:, 3,23, 6) = (/ &
+ & 0.35060E-02_JPRB,0.13237E-01_JPRB,0.15025E-01_JPRB,0.14435E-01_JPRB,0.94582E-02_JPRB /)  
+KB(:, 4,23, 6) = (/ &
+ & 0.41276E-02_JPRB,0.13976E-01_JPRB,0.15673E-01_JPRB,0.15028E-01_JPRB,0.97462E-02_JPRB /)  
+KB(:, 5,23, 6) = (/ &
+ & 0.48108E-02_JPRB,0.14761E-01_JPRB,0.16387E-01_JPRB,0.15666E-01_JPRB,0.10041E-01_JPRB /)  
+KB(:, 1,24, 6) = (/ &
+ & 0.21553E-02_JPRB,0.10022E-01_JPRB,0.11681E-01_JPRB,0.11233E-01_JPRB,0.74484E-02_JPRB /)  
+KB(:, 2,24, 6) = (/ &
+ & 0.25764E-02_JPRB,0.10621E-01_JPRB,0.12176E-01_JPRB,0.11709E-01_JPRB,0.76914E-02_JPRB /)  
+KB(:, 3,24, 6) = (/ &
+ & 0.30587E-02_JPRB,0.11236E-01_JPRB,0.12711E-01_JPRB,0.12208E-01_JPRB,0.79451E-02_JPRB /)  
+KB(:, 4,24, 6) = (/ &
+ & 0.36022E-02_JPRB,0.11891E-01_JPRB,0.13293E-01_JPRB,0.12744E-01_JPRB,0.82033E-02_JPRB /)  
+KB(:, 5,24, 6) = (/ &
+ & 0.41914E-02_JPRB,0.12593E-01_JPRB,0.13939E-01_JPRB,0.13324E-01_JPRB,0.84674E-02_JPRB /)  
+KB(:, 1,25, 6) = (/ &
+ & 0.18796E-02_JPRB,0.85000E-02_JPRB,0.98543E-02_JPRB,0.94788E-02_JPRB,0.62281E-02_JPRB /)  
+KB(:, 2,25, 6) = (/ &
+ & 0.22512E-02_JPRB,0.90173E-02_JPRB,0.10293E-01_JPRB,0.99015E-02_JPRB,0.64465E-02_JPRB /)  
+KB(:, 3,25, 6) = (/ &
+ & 0.26761E-02_JPRB,0.95606E-02_JPRB,0.10772E-01_JPRB,0.10351E-01_JPRB,0.66771E-02_JPRB /)  
+KB(:, 4,25, 6) = (/ &
+ & 0.31512E-02_JPRB,0.10144E-01_JPRB,0.11303E-01_JPRB,0.10838E-01_JPRB,0.69100E-02_JPRB /)  
+KB(:, 5,25, 6) = (/ &
+ & 0.36575E-02_JPRB,0.10772E-01_JPRB,0.11893E-01_JPRB,0.11363E-01_JPRB,0.71526E-02_JPRB /)  
+KB(:, 1,26, 6) = (/ &
+ & 0.16486E-02_JPRB,0.72263E-02_JPRB,0.83293E-02_JPRB,0.80207E-02_JPRB,0.52267E-02_JPRB /)  
+KB(:, 2,26, 6) = (/ &
+ & 0.19790E-02_JPRB,0.76783E-02_JPRB,0.87239E-02_JPRB,0.83966E-02_JPRB,0.54266E-02_JPRB /)  
+KB(:, 3,26, 6) = (/ &
+ & 0.23552E-02_JPRB,0.81632E-02_JPRB,0.91606E-02_JPRB,0.88030E-02_JPRB,0.56340E-02_JPRB /)  
+KB(:, 4,26, 6) = (/ &
+ & 0.27655E-02_JPRB,0.86841E-02_JPRB,0.96465E-02_JPRB,0.92463E-02_JPRB,0.58421E-02_JPRB /)  
+KB(:, 5,26, 6) = (/ &
+ & 0.32014E-02_JPRB,0.92461E-02_JPRB,0.10190E-01_JPRB,0.97263E-02_JPRB,0.60618E-02_JPRB /)  
+KB(:, 1,27, 6) = (/ &
+ & 0.14479E-02_JPRB,0.61551E-02_JPRB,0.70548E-02_JPRB,0.67980E-02_JPRB,0.43916E-02_JPRB /)  
+KB(:, 2,27, 6) = (/ &
+ & 0.17422E-02_JPRB,0.65560E-02_JPRB,0.74109E-02_JPRB,0.71369E-02_JPRB,0.45703E-02_JPRB /)  
+KB(:, 3,27, 6) = (/ &
+ & 0.20711E-02_JPRB,0.69878E-02_JPRB,0.78116E-02_JPRB,0.75081E-02_JPRB,0.47565E-02_JPRB /)  
+KB(:, 4,27, 6) = (/ &
+ & 0.24273E-02_JPRB,0.74543E-02_JPRB,0.82596E-02_JPRB,0.79125E-02_JPRB,0.49414E-02_JPRB /)  
+KB(:, 5,27, 6) = (/ &
+ & 0.28006E-02_JPRB,0.79622E-02_JPRB,0.87633E-02_JPRB,0.83523E-02_JPRB,0.51438E-02_JPRB /)  
+KB(:, 1,28, 6) = (/ &
+ & 0.12757E-02_JPRB,0.52552E-02_JPRB,0.59880E-02_JPRB,0.57731E-02_JPRB,0.36940E-02_JPRB /)  
+KB(:, 2,28, 6) = (/ &
+ & 0.15355E-02_JPRB,0.56117E-02_JPRB,0.63148E-02_JPRB,0.60828E-02_JPRB,0.38537E-02_JPRB /)  
+KB(:, 3,28, 6) = (/ &
+ & 0.18209E-02_JPRB,0.60000E-02_JPRB,0.66831E-02_JPRB,0.64236E-02_JPRB,0.40153E-02_JPRB /)  
+KB(:, 4,28, 6) = (/ &
+ & 0.21272E-02_JPRB,0.64202E-02_JPRB,0.70979E-02_JPRB,0.67923E-02_JPRB,0.41811E-02_JPRB /)  
+KB(:, 5,28, 6) = (/ &
+ & 0.24474E-02_JPRB,0.68778E-02_JPRB,0.75643E-02_JPRB,0.71983E-02_JPRB,0.43640E-02_JPRB /)  
+KB(:, 1,29, 6) = (/ &
+ & 0.11295E-02_JPRB,0.45004E-02_JPRB,0.50997E-02_JPRB,0.49184E-02_JPRB,0.31153E-02_JPRB /)  
+KB(:, 2,29, 6) = (/ &
+ & 0.13559E-02_JPRB,0.48180E-02_JPRB,0.54010E-02_JPRB,0.52034E-02_JPRB,0.32572E-02_JPRB /)  
+KB(:, 3,29, 6) = (/ &
+ & 0.16033E-02_JPRB,0.51685E-02_JPRB,0.57423E-02_JPRB,0.55151E-02_JPRB,0.33997E-02_JPRB /)  
+KB(:, 4,29, 6) = (/ &
+ & 0.18647E-02_JPRB,0.55488E-02_JPRB,0.61280E-02_JPRB,0.58545E-02_JPRB,0.35531E-02_JPRB /)  
+KB(:, 5,29, 6) = (/ &
+ & 0.21368E-02_JPRB,0.59683E-02_JPRB,0.65578E-02_JPRB,0.62309E-02_JPRB,0.37192E-02_JPRB /)  
+KB(:, 1,30, 6) = (/ &
+ & 0.10010E-02_JPRB,0.38621E-02_JPRB,0.43580E-02_JPRB,0.42036E-02_JPRB,0.26325E-02_JPRB /)  
+KB(:, 2,30, 6) = (/ &
+ & 0.11967E-02_JPRB,0.41511E-02_JPRB,0.46366E-02_JPRB,0.44656E-02_JPRB,0.27570E-02_JPRB /)  
+KB(:, 3,30, 6) = (/ &
+ & 0.14096E-02_JPRB,0.44678E-02_JPRB,0.49534E-02_JPRB,0.47515E-02_JPRB,0.28856E-02_JPRB /)  
+KB(:, 4,30, 6) = (/ &
+ & 0.16325E-02_JPRB,0.48140E-02_JPRB,0.53117E-02_JPRB,0.50685E-02_JPRB,0.30242E-02_JPRB /)  
+KB(:, 5,30, 6) = (/ &
+ & 0.18599E-02_JPRB,0.52016E-02_JPRB,0.57103E-02_JPRB,0.54169E-02_JPRB,0.31738E-02_JPRB /)  
+KB(:, 1,31, 6) = (/ &
+ & 0.88685E-03_JPRB,0.33266E-02_JPRB,0.37394E-02_JPRB,0.36064E-02_JPRB,0.22280E-02_JPRB /)  
+KB(:, 2,31, 6) = (/ &
+ & 0.10569E-02_JPRB,0.35897E-02_JPRB,0.39964E-02_JPRB,0.38465E-02_JPRB,0.23389E-02_JPRB /)  
+KB(:, 3,31, 6) = (/ &
+ & 0.12382E-02_JPRB,0.38779E-02_JPRB,0.42920E-02_JPRB,0.41135E-02_JPRB,0.24573E-02_JPRB /)  
+KB(:, 4,31, 6) = (/ &
+ & 0.14278E-02_JPRB,0.41961E-02_JPRB,0.46258E-02_JPRB,0.44080E-02_JPRB,0.25818E-02_JPRB /)  
+KB(:, 5,31, 6) = (/ &
+ & 0.16136E-02_JPRB,0.45547E-02_JPRB,0.50001E-02_JPRB,0.47313E-02_JPRB,0.27214E-02_JPRB /)  
+KB(:, 1,32, 6) = (/ &
+ & 0.78559E-03_JPRB,0.28763E-02_JPRB,0.32195E-02_JPRB,0.31059E-02_JPRB,0.18911E-02_JPRB /)  
+KB(:, 2,32, 6) = (/ &
+ & 0.93178E-03_JPRB,0.31157E-02_JPRB,0.34609E-02_JPRB,0.33287E-02_JPRB,0.19930E-02_JPRB /)  
+KB(:, 3,32, 6) = (/ &
+ & 0.10867E-02_JPRB,0.33798E-02_JPRB,0.37377E-02_JPRB,0.35772E-02_JPRB,0.21006E-02_JPRB /)  
+KB(:, 4,32, 6) = (/ &
+ & 0.12446E-02_JPRB,0.36754E-02_JPRB,0.40497E-02_JPRB,0.38517E-02_JPRB,0.22158E-02_JPRB /)  
+KB(:, 5,32, 6) = (/ &
+ & 0.13936E-02_JPRB,0.40072E-02_JPRB,0.44007E-02_JPRB,0.41538E-02_JPRB,0.23413E-02_JPRB /)  
+KB(:, 1,33, 6) = (/ &
+ & 0.69486E-03_JPRB,0.24959E-02_JPRB,0.27846E-02_JPRB,0.26858E-02_JPRB,0.16103E-02_JPRB /)  
+KB(:, 2,33, 6) = (/ &
+ & 0.82037E-03_JPRB,0.27142E-02_JPRB,0.30117E-02_JPRB,0.28933E-02_JPRB,0.17041E-02_JPRB /)  
+KB(:, 3,33, 6) = (/ &
+ & 0.95137E-03_JPRB,0.29589E-02_JPRB,0.32703E-02_JPRB,0.31258E-02_JPRB,0.18033E-02_JPRB /)  
+KB(:, 4,33, 6) = (/ &
+ & 0.10800E-02_JPRB,0.32345E-02_JPRB,0.35641E-02_JPRB,0.33810E-02_JPRB,0.19089E-02_JPRB /)  
+KB(:, 5,33, 6) = (/ &
+ & 0.11986E-02_JPRB,0.35406E-02_JPRB,0.38943E-02_JPRB,0.36682E-02_JPRB,0.20234E-02_JPRB /)  
+KB(:, 1,34, 6) = (/ &
+ & 0.61032E-03_JPRB,0.21671E-02_JPRB,0.24134E-02_JPRB,0.23268E-02_JPRB,0.13754E-02_JPRB /)  
+KB(:, 2,34, 6) = (/ &
+ & 0.71748E-03_JPRB,0.23678E-02_JPRB,0.26264E-02_JPRB,0.25207E-02_JPRB,0.14624E-02_JPRB /)  
+KB(:, 3,34, 6) = (/ &
+ & 0.82600E-03_JPRB,0.25947E-02_JPRB,0.28697E-02_JPRB,0.27368E-02_JPRB,0.15523E-02_JPRB /)  
+KB(:, 4,34, 6) = (/ &
+ & 0.92939E-03_JPRB,0.28495E-02_JPRB,0.31449E-02_JPRB,0.29773E-02_JPRB,0.16488E-02_JPRB /)  
+KB(:, 5,34, 6) = (/ &
+ & 0.10239E-02_JPRB,0.31299E-02_JPRB,0.34552E-02_JPRB,0.32520E-02_JPRB,0.17543E-02_JPRB /)  
+KB(:, 1,35, 6) = (/ &
+ & 0.52678E-03_JPRB,0.18713E-02_JPRB,0.20838E-02_JPRB,0.20082E-02_JPRB,0.11717E-02_JPRB /)  
+KB(:, 2,35, 6) = (/ &
+ & 0.61674E-03_JPRB,0.20541E-02_JPRB,0.22811E-02_JPRB,0.21873E-02_JPRB,0.12500E-02_JPRB /)  
+KB(:, 3,35, 6) = (/ &
+ & 0.70570E-03_JPRB,0.22625E-02_JPRB,0.25066E-02_JPRB,0.23870E-02_JPRB,0.13326E-02_JPRB /)  
+KB(:, 4,35, 6) = (/ &
+ & 0.78855E-03_JPRB,0.24971E-02_JPRB,0.27629E-02_JPRB,0.26134E-02_JPRB,0.14204E-02_JPRB /)  
+KB(:, 5,35, 6) = (/ &
+ & 0.86492E-03_JPRB,0.27499E-02_JPRB,0.30514E-02_JPRB,0.28766E-02_JPRB,0.15154E-02_JPRB /)  
+KB(:, 1,36, 6) = (/ &
+ & 0.44569E-03_JPRB,0.16031E-02_JPRB,0.17868E-02_JPRB,0.17221E-02_JPRB,0.99240E-03_JPRB /)  
+KB(:, 2,36, 6) = (/ &
+ & 0.52055E-03_JPRB,0.17679E-02_JPRB,0.19674E-02_JPRB,0.18854E-02_JPRB,0.10623E-02_JPRB /)  
+KB(:, 3,36, 6) = (/ &
+ & 0.59380E-03_JPRB,0.19567E-02_JPRB,0.21742E-02_JPRB,0.20700E-02_JPRB,0.11368E-02_JPRB /)  
+KB(:, 4,36, 6) = (/ &
+ & 0.66114E-03_JPRB,0.21690E-02_JPRB,0.24093E-02_JPRB,0.22827E-02_JPRB,0.12171E-02_JPRB /)  
+KB(:, 5,36, 6) = (/ &
+ & 0.72347E-03_JPRB,0.23953E-02_JPRB,0.26735E-02_JPRB,0.25294E-02_JPRB,0.13028E-02_JPRB /)  
+KB(:, 1,37, 6) = (/ &
+ & 0.36881E-03_JPRB,0.13558E-02_JPRB,0.15140E-02_JPRB,0.14605E-02_JPRB,0.83527E-03_JPRB /)  
+KB(:, 2,37, 6) = (/ &
+ & 0.43070E-03_JPRB,0.15018E-02_JPRB,0.16759E-02_JPRB,0.16073E-02_JPRB,0.89749E-03_JPRB /)  
+KB(:, 3,37, 6) = (/ &
+ & 0.49122E-03_JPRB,0.16697E-02_JPRB,0.18620E-02_JPRB,0.17747E-02_JPRB,0.96428E-03_JPRB /)  
+KB(:, 4,37, 6) = (/ &
+ & 0.54687E-03_JPRB,0.18590E-02_JPRB,0.20742E-02_JPRB,0.19690E-02_JPRB,0.10365E-02_JPRB /)  
+KB(:, 5,37, 6) = (/ &
+ & 0.59826E-03_JPRB,0.20615E-02_JPRB,0.23143E-02_JPRB,0.21948E-02_JPRB,0.11140E-02_JPRB /)  
+KB(:, 1,38, 6) = (/ &
+ & 0.30472E-03_JPRB,0.11463E-02_JPRB,0.12827E-02_JPRB,0.12387E-02_JPRB,0.70293E-03_JPRB /)  
+KB(:, 2,38, 6) = (/ &
+ & 0.35606E-03_JPRB,0.12755E-02_JPRB,0.14277E-02_JPRB,0.13705E-02_JPRB,0.75844E-03_JPRB /)  
+KB(:, 3,38, 6) = (/ &
+ & 0.40587E-03_JPRB,0.14248E-02_JPRB,0.15948E-02_JPRB,0.15225E-02_JPRB,0.81832E-03_JPRB /)  
+KB(:, 4,38, 6) = (/ &
+ & 0.45170E-03_JPRB,0.15929E-02_JPRB,0.17869E-02_JPRB,0.16996E-02_JPRB,0.88272E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART21',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,38, 6) = (/ &
+ & 0.49447E-03_JPRB,0.17743E-02_JPRB,0.20049E-02_JPRB,0.19060E-02_JPRB,0.95296E-03_JPRB /)  
+KB(:, 1,39, 6) = (/ &
+ & 0.25159E-03_JPRB,0.96943E-03_JPRB,0.10877E-02_JPRB,0.10513E-02_JPRB,0.59159E-03_JPRB /)  
+KB(:, 2,39, 6) = (/ &
+ & 0.29433E-03_JPRB,0.10839E-02_JPRB,0.12173E-02_JPRB,0.11700E-02_JPRB,0.64088E-03_JPRB /)  
+KB(:, 3,39, 6) = (/ &
+ & 0.33554E-03_JPRB,0.12164E-02_JPRB,0.13675E-02_JPRB,0.13079E-02_JPRB,0.69454E-03_JPRB /)  
+KB(:, 4,39, 6) = (/ &
+ & 0.37315E-03_JPRB,0.13660E-02_JPRB,0.15416E-02_JPRB,0.14697E-02_JPRB,0.75241E-03_JPRB /)  
+KB(:, 5,39, 6) = (/ &
+ & 0.40840E-03_JPRB,0.15291E-02_JPRB,0.17396E-02_JPRB,0.16583E-02_JPRB,0.81566E-03_JPRB /)  
+KB(:, 1,40, 6) = (/ &
+ & 0.20445E-03_JPRB,0.81104E-03_JPRB,0.91201E-03_JPRB,0.88303E-03_JPRB,0.49462E-03_JPRB /)  
+KB(:, 2,40, 6) = (/ &
+ & 0.24013E-03_JPRB,0.91062E-03_JPRB,0.10259E-02_JPRB,0.98834E-03_JPRB,0.53806E-03_JPRB /)  
+KB(:, 3,40, 6) = (/ &
+ & 0.27454E-03_JPRB,0.10267E-02_JPRB,0.11591E-02_JPRB,0.11112E-02_JPRB,0.58582E-03_JPRB /)  
+KB(:, 4,40, 6) = (/ &
+ & 0.30609E-03_JPRB,0.11586E-02_JPRB,0.13148E-02_JPRB,0.12564E-02_JPRB,0.63733E-03_JPRB /)  
+KB(:, 5,40, 6) = (/ &
+ & 0.33521E-03_JPRB,0.13038E-02_JPRB,0.14932E-02_JPRB,0.14267E-02_JPRB,0.69406E-03_JPRB /)  
+KB(:, 1,41, 6) = (/ &
+ & 0.16568E-03_JPRB,0.67706E-03_JPRB,0.76339E-03_JPRB,0.74014E-03_JPRB,0.41311E-03_JPRB /)  
+KB(:, 2,41, 6) = (/ &
+ & 0.19545E-03_JPRB,0.76370E-03_JPRB,0.86317E-03_JPRB,0.83349E-03_JPRB,0.45126E-03_JPRB /)  
+KB(:, 3,41, 6) = (/ &
+ & 0.22429E-03_JPRB,0.86513E-03_JPRB,0.98057E-03_JPRB,0.94284E-03_JPRB,0.49336E-03_JPRB /)  
+KB(:, 4,41, 6) = (/ &
+ & 0.25075E-03_JPRB,0.98100E-03_JPRB,0.11192E-02_JPRB,0.10723E-02_JPRB,0.53916E-03_JPRB /)  
+KB(:, 5,41, 6) = (/ &
+ & 0.27523E-03_JPRB,0.11101E-02_JPRB,0.12797E-02_JPRB,0.12259E-02_JPRB,0.58980E-03_JPRB /)  
+KB(:, 1,42, 6) = (/ &
+ & 0.13464E-03_JPRB,0.56478E-03_JPRB,0.63846E-03_JPRB,0.61972E-03_JPRB,0.34485E-03_JPRB /)  
+KB(:, 2,42, 6) = (/ &
+ & 0.15918E-03_JPRB,0.64002E-03_JPRB,0.72573E-03_JPRB,0.70212E-03_JPRB,0.37807E-03_JPRB /)  
+KB(:, 3,42, 6) = (/ &
+ & 0.18309E-03_JPRB,0.72866E-03_JPRB,0.82914E-03_JPRB,0.79959E-03_JPRB,0.41541E-03_JPRB /)  
+KB(:, 4,42, 6) = (/ &
+ & 0.20534E-03_JPRB,0.83063E-03_JPRB,0.95224E-03_JPRB,0.91510E-03_JPRB,0.45609E-03_JPRB /)  
+KB(:, 5,42, 6) = (/ &
+ & 0.22591E-03_JPRB,0.94536E-03_JPRB,0.10960E-02_JPRB,0.10535E-02_JPRB,0.50132E-03_JPRB /)  
+KB(:, 1,43, 6) = (/ &
+ & 0.10834E-03_JPRB,0.46763E-03_JPRB,0.52964E-03_JPRB,0.51479E-03_JPRB,0.28641E-03_JPRB /)  
+KB(:, 2,43, 6) = (/ &
+ & 0.12878E-03_JPRB,0.53191E-03_JPRB,0.60529E-03_JPRB,0.58655E-03_JPRB,0.31538E-03_JPRB /)  
+KB(:, 3,43, 6) = (/ &
+ & 0.14877E-03_JPRB,0.60848E-03_JPRB,0.69517E-03_JPRB,0.67233E-03_JPRB,0.34781E-03_JPRB /)  
+KB(:, 4,43, 6) = (/ &
+ & 0.16739E-03_JPRB,0.69818E-03_JPRB,0.80315E-03_JPRB,0.77433E-03_JPRB,0.38376E-03_JPRB /)  
+KB(:, 5,43, 6) = (/ &
+ & 0.18458E-03_JPRB,0.79951E-03_JPRB,0.93071E-03_JPRB,0.89755E-03_JPRB,0.42371E-03_JPRB /)  
+KB(:, 1,44, 6) = (/ &
+ & 0.86770E-04_JPRB,0.38551E-03_JPRB,0.43712E-03_JPRB,0.42544E-03_JPRB,0.23710E-03_JPRB /)  
+KB(:, 2,44, 6) = (/ &
+ & 0.10382E-03_JPRB,0.44040E-03_JPRB,0.50222E-03_JPRB,0.48753E-03_JPRB,0.26235E-03_JPRB /)  
+KB(:, 3,44, 6) = (/ &
+ & 0.12059E-03_JPRB,0.50571E-03_JPRB,0.58013E-03_JPRB,0.56233E-03_JPRB,0.29036E-03_JPRB /)  
+KB(:, 4,44, 6) = (/ &
+ & 0.13632E-03_JPRB,0.58391E-03_JPRB,0.67429E-03_JPRB,0.65221E-03_JPRB,0.32192E-03_JPRB /)  
+KB(:, 5,44, 6) = (/ &
+ & 0.15073E-03_JPRB,0.67339E-03_JPRB,0.78624E-03_JPRB,0.76086E-03_JPRB,0.35732E-03_JPRB /)  
+KB(:, 1,45, 6) = (/ &
+ & 0.69317E-04_JPRB,0.31724E-03_JPRB,0.36001E-03_JPRB,0.35090E-03_JPRB,0.19579E-03_JPRB /)  
+KB(:, 2,45, 6) = (/ &
+ & 0.83569E-04_JPRB,0.36417E-03_JPRB,0.41579E-03_JPRB,0.40435E-03_JPRB,0.21781E-03_JPRB /)  
+KB(:, 3,45, 6) = (/ &
+ & 0.97725E-04_JPRB,0.42014E-03_JPRB,0.48329E-03_JPRB,0.46938E-03_JPRB,0.24226E-03_JPRB /)  
+KB(:, 4,45, 6) = (/ &
+ & 0.11101E-03_JPRB,0.48745E-03_JPRB,0.56520E-03_JPRB,0.54804E-03_JPRB,0.26965E-03_JPRB /)  
+KB(:, 5,45, 6) = (/ &
+ & 0.12310E-03_JPRB,0.56606E-03_JPRB,0.66327E-03_JPRB,0.64374E-03_JPRB,0.30080E-03_JPRB /)  
+KB(:, 1,46, 6) = (/ &
+ & 0.55030E-04_JPRB,0.26007E-03_JPRB,0.29522E-03_JPRB,0.28798E-03_JPRB,0.16098E-03_JPRB /)  
+KB(:, 2,46, 6) = (/ &
+ & 0.66908E-04_JPRB,0.29981E-03_JPRB,0.34235E-03_JPRB,0.33361E-03_JPRB,0.18009E-03_JPRB /)  
+KB(:, 3,46, 6) = (/ &
+ & 0.78894E-04_JPRB,0.34737E-03_JPRB,0.40028E-03_JPRB,0.38969E-03_JPRB,0.20138E-03_JPRB /)  
+KB(:, 4,46, 6) = (/ &
+ & 0.90228E-04_JPRB,0.40507E-03_JPRB,0.47110E-03_JPRB,0.45796E-03_JPRB,0.22525E-03_JPRB /)  
+KB(:, 5,46, 6) = (/ &
+ & 0.10044E-03_JPRB,0.47380E-03_JPRB,0.55673E-03_JPRB,0.54149E-03_JPRB,0.25231E-03_JPRB /)  
+KB(:, 1,47, 6) = (/ &
+ & 0.43131E-04_JPRB,0.21132E-03_JPRB,0.23992E-03_JPRB,0.23430E-03_JPRB,0.13147E-03_JPRB /)  
+KB(:, 2,47, 6) = (/ &
+ & 0.53026E-04_JPRB,0.24489E-03_JPRB,0.27966E-03_JPRB,0.27282E-03_JPRB,0.14794E-03_JPRB /)  
+KB(:, 3,47, 6) = (/ &
+ & 0.63179E-04_JPRB,0.28502E-03_JPRB,0.32837E-03_JPRB,0.32046E-03_JPRB,0.16642E-03_JPRB /)  
+KB(:, 4,47, 6) = (/ &
+ & 0.72849E-04_JPRB,0.33391E-03_JPRB,0.38868E-03_JPRB,0.37909E-03_JPRB,0.18727E-03_JPRB /)  
+KB(:, 5,47, 6) = (/ &
+ & 0.81641E-04_JPRB,0.39308E-03_JPRB,0.46293E-03_JPRB,0.45114E-03_JPRB,0.21071E-03_JPRB /)  
+KB(:, 1,48, 6) = (/ &
+ & 0.33560E-04_JPRB,0.17139E-03_JPRB,0.19468E-03_JPRB,0.19001E-03_JPRB,0.10710E-03_JPRB /)  
+KB(:, 2,48, 6) = (/ &
+ & 0.41736E-04_JPRB,0.19942E-03_JPRB,0.22765E-03_JPRB,0.22235E-03_JPRB,0.12121E-03_JPRB /)  
+KB(:, 3,48, 6) = (/ &
+ & 0.50371E-04_JPRB,0.23319E-03_JPRB,0.26893E-03_JPRB,0.26280E-03_JPRB,0.13718E-03_JPRB /)  
+KB(:, 4,48, 6) = (/ &
+ & 0.58779E-04_JPRB,0.27466E-03_JPRB,0.31973E-03_JPRB,0.31295E-03_JPRB,0.15543E-03_JPRB /)  
+KB(:, 5,48, 6) = (/ &
+ & 0.66247E-04_JPRB,0.32531E-03_JPRB,0.38347E-03_JPRB,0.37465E-03_JPRB,0.17582E-03_JPRB /)  
+KB(:, 1,49, 6) = (/ &
+ & 0.25958E-04_JPRB,0.13895E-03_JPRB,0.15751E-03_JPRB,0.15378E-03_JPRB,0.86997E-04_JPRB /)  
+KB(:, 2,49, 6) = (/ &
+ & 0.32663E-04_JPRB,0.16210E-03_JPRB,0.18496E-03_JPRB,0.18058E-03_JPRB,0.99003E-04_JPRB /)  
+KB(:, 3,49, 6) = (/ &
+ & 0.39912E-04_JPRB,0.19033E-03_JPRB,0.21954E-03_JPRB,0.21463E-03_JPRB,0.11278E-03_JPRB /)  
+KB(:, 4,49, 6) = (/ &
+ & 0.47146E-04_JPRB,0.22536E-03_JPRB,0.26252E-03_JPRB,0.25743E-03_JPRB,0.12854E-03_JPRB /)  
+KB(:, 5,49, 6) = (/ &
+ & 0.53714E-04_JPRB,0.26879E-03_JPRB,0.31652E-03_JPRB,0.31040E-03_JPRB,0.14638E-03_JPRB /)  
+KB(:, 1,50, 6) = (/ &
+ & 0.20123E-04_JPRB,0.11283E-03_JPRB,0.12763E-03_JPRB,0.12462E-03_JPRB,0.70722E-04_JPRB /)  
+KB(:, 2,50, 6) = (/ &
+ & 0.25601E-04_JPRB,0.13215E-03_JPRB,0.15042E-03_JPRB,0.14697E-03_JPRB,0.80931E-04_JPRB /)  
+KB(:, 3,50, 6) = (/ &
+ & 0.31614E-04_JPRB,0.15574E-03_JPRB,0.17957E-03_JPRB,0.17552E-03_JPRB,0.92734E-04_JPRB /)  
+KB(:, 4,50, 6) = (/ &
+ & 0.37764E-04_JPRB,0.18520E-03_JPRB,0.21596E-03_JPRB,0.21200E-03_JPRB,0.10641E-03_JPRB /)  
+KB(:, 5,50, 6) = (/ &
+ & 0.43463E-04_JPRB,0.22248E-03_JPRB,0.26195E-03_JPRB,0.25758E-03_JPRB,0.12203E-03_JPRB /)  
+KB(:, 1,51, 6) = (/ &
+ & 0.15566E-04_JPRB,0.91692E-04_JPRB,0.10348E-03_JPRB,0.10093E-03_JPRB,0.57420E-04_JPRB /)  
+KB(:, 2,51, 6) = (/ &
+ & 0.20041E-04_JPRB,0.10771E-03_JPRB,0.12230E-03_JPRB,0.11952E-03_JPRB,0.66019E-04_JPRB /)  
+KB(:, 3,51, 6) = (/ &
+ & 0.25022E-04_JPRB,0.12757E-03_JPRB,0.14670E-03_JPRB,0.14349E-03_JPRB,0.76182E-04_JPRB /)  
+KB(:, 4,51, 6) = (/ &
+ & 0.30196E-04_JPRB,0.15226E-03_JPRB,0.17772E-03_JPRB,0.17429E-03_JPRB,0.87954E-04_JPRB /)  
+KB(:, 5,51, 6) = (/ &
+ & 0.35140E-04_JPRB,0.18405E-03_JPRB,0.21697E-03_JPRB,0.21356E-03_JPRB,0.10162E-03_JPRB /)  
+KB(:, 1,52, 6) = (/ &
+ & 0.11977E-04_JPRB,0.74321E-04_JPRB,0.83777E-04_JPRB,0.81525E-04_JPRB,0.46492E-04_JPRB /)  
+KB(:, 2,52, 6) = (/ &
+ & 0.15618E-04_JPRB,0.87662E-04_JPRB,0.99315E-04_JPRB,0.96995E-04_JPRB,0.53744E-04_JPRB /)  
+KB(:, 3,52, 6) = (/ &
+ & 0.19731E-04_JPRB,0.10434E-03_JPRB,0.11957E-03_JPRB,0.11696E-03_JPRB,0.62355E-04_JPRB /)  
+KB(:, 4,52, 6) = (/ &
+ & 0.24071E-04_JPRB,0.12514E-03_JPRB,0.14574E-03_JPRB,0.14300E-03_JPRB,0.72491E-04_JPRB /)  
+KB(:, 5,52, 6) = (/ &
+ & 0.28292E-04_JPRB,0.15185E-03_JPRB,0.17919E-03_JPRB,0.17642E-03_JPRB,0.84356E-04_JPRB /)  
+KB(:, 1,53, 6) = (/ &
+ & 0.91836E-05_JPRB,0.60131E-04_JPRB,0.67720E-04_JPRB,0.65649E-04_JPRB,0.37522E-04_JPRB /)  
+KB(:, 2,53, 6) = (/ &
+ & 0.12113E-04_JPRB,0.71192E-04_JPRB,0.80457E-04_JPRB,0.78425E-04_JPRB,0.43599E-04_JPRB /)  
+KB(:, 3,53, 6) = (/ &
+ & 0.15471E-04_JPRB,0.85141E-04_JPRB,0.97276E-04_JPRB,0.95110E-04_JPRB,0.50903E-04_JPRB /)  
+KB(:, 4,53, 6) = (/ &
+ & 0.19102E-04_JPRB,0.10263E-03_JPRB,0.11918E-03_JPRB,0.11694E-03_JPRB,0.59553E-04_JPRB /)  
+KB(:, 5,53, 6) = (/ &
+ & 0.22693E-04_JPRB,0.12514E-03_JPRB,0.14755E-03_JPRB,0.14527E-03_JPRB,0.69812E-04_JPRB /)  
+KB(:, 1,54, 6) = (/ &
+ & 0.70721E-05_JPRB,0.48764E-04_JPRB,0.54926E-04_JPRB,0.53041E-04_JPRB,0.30337E-04_JPRB /)  
+KB(:, 2,54, 6) = (/ &
+ & 0.94270E-05_JPRB,0.57982E-04_JPRB,0.65461E-04_JPRB,0.63579E-04_JPRB,0.35439E-04_JPRB /)  
+KB(:, 3,54, 6) = (/ &
+ & 0.12173E-04_JPRB,0.69671E-04_JPRB,0.79433E-04_JPRB,0.77530E-04_JPRB,0.41618E-04_JPRB /)  
+KB(:, 4,54, 6) = (/ &
+ & 0.15195E-04_JPRB,0.84502E-04_JPRB,0.97826E-04_JPRB,0.96029E-04_JPRB,0.49017E-04_JPRB /)  
+KB(:, 5,54, 6) = (/ &
+ & 0.18243E-04_JPRB,0.10358E-03_JPRB,0.12196E-03_JPRB,0.12023E-03_JPRB,0.57880E-04_JPRB /)  
+KB(:, 1,55, 6) = (/ &
+ & 0.54549E-05_JPRB,0.39521E-04_JPRB,0.44580E-04_JPRB,0.42901E-04_JPRB,0.24523E-04_JPRB /)  
+KB(:, 2,55, 6) = (/ &
+ & 0.73474E-05_JPRB,0.47258E-04_JPRB,0.53311E-04_JPRB,0.51627E-04_JPRB,0.28799E-04_JPRB /)  
+KB(:, 3,55, 6) = (/ &
+ & 0.95818E-05_JPRB,0.57041E-04_JPRB,0.64957E-04_JPRB,0.63210E-04_JPRB,0.34015E-04_JPRB /)  
+KB(:, 4,55, 6) = (/ &
+ & 0.12078E-04_JPRB,0.69528E-04_JPRB,0.80422E-04_JPRB,0.78845E-04_JPRB,0.40325E-04_JPRB /)  
+KB(:, 5,55, 6) = (/ &
+ & 0.14658E-04_JPRB,0.85891E-04_JPRB,0.10087E-03_JPRB,0.99485E-04_JPRB,0.47973E-04_JPRB /)  
+KB(:, 1,56, 6) = (/ &
+ & 0.41972E-05_JPRB,0.31935E-04_JPRB,0.36125E-04_JPRB,0.34628E-04_JPRB,0.19758E-04_JPRB /)  
+KB(:, 2,56, 6) = (/ &
+ & 0.56951E-05_JPRB,0.38357E-04_JPRB,0.43303E-04_JPRB,0.41823E-04_JPRB,0.23341E-04_JPRB /)  
+KB(:, 3,56, 6) = (/ &
+ & 0.75109E-05_JPRB,0.46586E-04_JPRB,0.52984E-04_JPRB,0.51438E-04_JPRB,0.27705E-04_JPRB /)  
+KB(:, 4,56, 6) = (/ &
+ & 0.95701E-05_JPRB,0.57135E-04_JPRB,0.66020E-04_JPRB,0.64513E-04_JPRB,0.33090E-04_JPRB /)  
+KB(:, 5,56, 6) = (/ &
+ & 0.11741E-04_JPRB,0.70996E-04_JPRB,0.83348E-04_JPRB,0.82172E-04_JPRB,0.39639E-04_JPRB /)  
+KB(:, 1,57, 6) = (/ &
+ & 0.32187E-05_JPRB,0.25710E-04_JPRB,0.29175E-04_JPRB,0.27903E-04_JPRB,0.15874E-04_JPRB /)  
+KB(:, 2,57, 6) = (/ &
+ & 0.44067E-05_JPRB,0.31037E-04_JPRB,0.35094E-04_JPRB,0.33812E-04_JPRB,0.18857E-04_JPRB /)  
+KB(:, 3,57, 6) = (/ &
+ & 0.58663E-05_JPRB,0.37889E-04_JPRB,0.43100E-04_JPRB,0.41766E-04_JPRB,0.22502E-04_JPRB /)  
+KB(:, 4,57, 6) = (/ &
+ & 0.75519E-05_JPRB,0.46817E-04_JPRB,0.54053E-04_JPRB,0.52634E-04_JPRB,0.27030E-04_JPRB /)  
+KB(:, 5,57, 6) = (/ &
+ & 0.93649E-05_JPRB,0.58529E-04_JPRB,0.68705E-04_JPRB,0.67601E-04_JPRB,0.32661E-04_JPRB /)  
+KB(:, 1,58, 6) = (/ &
+ & 0.24696E-05_JPRB,0.20698E-04_JPRB,0.23574E-04_JPRB,0.22507E-04_JPRB,0.12764E-04_JPRB /)  
+KB(:, 2,58, 6) = (/ &
+ & 0.34175E-05_JPRB,0.25141E-04_JPRB,0.28438E-04_JPRB,0.27351E-04_JPRB,0.15243E-04_JPRB /)  
+KB(:, 3,58, 6) = (/ &
+ & 0.45825E-05_JPRB,0.30855E-04_JPRB,0.35092E-04_JPRB,0.33951E-04_JPRB,0.18275E-04_JPRB /)  
+KB(:, 4,58, 6) = (/ &
+ & 0.59665E-05_JPRB,0.38392E-04_JPRB,0.44239E-04_JPRB,0.43055E-04_JPRB,0.22112E-04_JPRB /)  
+KB(:, 5,58, 6) = (/ &
+ & 0.74784E-05_JPRB,0.48383E-04_JPRB,0.56772E-04_JPRB,0.55657E-04_JPRB,0.26900E-04_JPRB /)  
+KB(:, 1,59, 6) = (/ &
+ & 0.20113E-05_JPRB,0.17223E-04_JPRB,0.19628E-04_JPRB,0.18772E-04_JPRB,0.10576E-04_JPRB /)  
+KB(:, 2,59, 6) = (/ &
+ & 0.27973E-05_JPRB,0.21075E-04_JPRB,0.23849E-04_JPRB,0.22960E-04_JPRB,0.12702E-04_JPRB /)  
+KB(:, 3,59, 6) = (/ &
+ & 0.37714E-05_JPRB,0.26064E-04_JPRB,0.29696E-04_JPRB,0.28726E-04_JPRB,0.15326E-04_JPRB /)  
+KB(:, 4,59, 6) = (/ &
+ & 0.49189E-05_JPRB,0.32724E-04_JPRB,0.37808E-04_JPRB,0.36791E-04_JPRB,0.18710E-04_JPRB /)  
+KB(:, 5,59, 6) = (/ &
+ & 0.61850E-05_JPRB,0.41676E-04_JPRB,0.49043E-04_JPRB,0.48051E-04_JPRB,0.22936E-04_JPRB /)  
+KB(:, 1,13, 7) = (/ &
+ & 0.90574E-01_JPRB,0.18508E+00_JPRB,0.20125E+00_JPRB,0.19353E+00_JPRB,0.13590E+00_JPRB /)  
+KB(:, 2,13, 7) = (/ &
+ & 0.96633E-01_JPRB,0.18856E+00_JPRB,0.20514E+00_JPRB,0.19781E+00_JPRB,0.13867E+00_JPRB /)  
+KB(:, 3,13, 7) = (/ &
+ & 0.10246E+00_JPRB,0.19231E+00_JPRB,0.20916E+00_JPRB,0.20175E+00_JPRB,0.14157E+00_JPRB /)  
+KB(:, 4,13, 7) = (/ &
+ & 0.10831E+00_JPRB,0.19664E+00_JPRB,0.21340E+00_JPRB,0.20566E+00_JPRB,0.14422E+00_JPRB /)  
+KB(:, 5,13, 7) = (/ &
+ & 0.11418E+00_JPRB,0.20190E+00_JPRB,0.21829E+00_JPRB,0.20964E+00_JPRB,0.14715E+00_JPRB /)  
+KB(:, 1,14, 7) = (/ &
+ & 0.76731E-01_JPRB,0.15637E+00_JPRB,0.17031E+00_JPRB,0.16454E+00_JPRB,0.11471E+00_JPRB /)  
+KB(:, 2,14, 7) = (/ &
+ & 0.81853E-01_JPRB,0.15935E+00_JPRB,0.17367E+00_JPRB,0.16809E+00_JPRB,0.11738E+00_JPRB /)  
+KB(:, 3,14, 7) = (/ &
+ & 0.86939E-01_JPRB,0.16284E+00_JPRB,0.17719E+00_JPRB,0.17151E+00_JPRB,0.11993E+00_JPRB /)  
+KB(:, 4,14, 7) = (/ &
+ & 0.91985E-01_JPRB,0.16698E+00_JPRB,0.18115E+00_JPRB,0.17500E+00_JPRB,0.12254E+00_JPRB /)  
+KB(:, 5,14, 7) = (/ &
+ & 0.97005E-01_JPRB,0.17199E+00_JPRB,0.18590E+00_JPRB,0.17860E+00_JPRB,0.12524E+00_JPRB /)  
+KB(:, 1,15, 7) = (/ &
+ & 0.64796E-01_JPRB,0.13180E+00_JPRB,0.14379E+00_JPRB,0.13927E+00_JPRB,0.96282E-01_JPRB /)  
+KB(:, 2,15, 7) = (/ &
+ & 0.69175E-01_JPRB,0.13451E+00_JPRB,0.14669E+00_JPRB,0.14230E+00_JPRB,0.98702E-01_JPRB /)  
+KB(:, 3,15, 7) = (/ &
+ & 0.73574E-01_JPRB,0.13779E+00_JPRB,0.14991E+00_JPRB,0.14533E+00_JPRB,0.10111E+00_JPRB /)  
+KB(:, 4,15, 7) = (/ &
+ & 0.77907E-01_JPRB,0.14175E+00_JPRB,0.15375E+00_JPRB,0.14848E+00_JPRB,0.10336E+00_JPRB /)  
+KB(:, 5,15, 7) = (/ &
+ & 0.82082E-01_JPRB,0.14644E+00_JPRB,0.15826E+00_JPRB,0.15192E+00_JPRB,0.10558E+00_JPRB /)  
+KB(:, 1,16, 7) = (/ &
+ & 0.54603E-01_JPRB,0.11092E+00_JPRB,0.12113E+00_JPRB,0.11747E+00_JPRB,0.80564E-01_JPRB /)  
+KB(:, 2,16, 7) = (/ &
+ & 0.58392E-01_JPRB,0.11343E+00_JPRB,0.12376E+00_JPRB,0.12011E+00_JPRB,0.82662E-01_JPRB /)  
+KB(:, 3,16, 7) = (/ &
+ & 0.62149E-01_JPRB,0.11652E+00_JPRB,0.12680E+00_JPRB,0.12283E+00_JPRB,0.84744E-01_JPRB /)  
+KB(:, 4,16, 7) = (/ &
+ & 0.65779E-01_JPRB,0.12031E+00_JPRB,0.13049E+00_JPRB,0.12576E+00_JPRB,0.86806E-01_JPRB /)  
+KB(:, 5,16, 7) = (/ &
+ & 0.69275E-01_JPRB,0.12462E+00_JPRB,0.13474E+00_JPRB,0.12909E+00_JPRB,0.88592E-01_JPRB /)  
+KB(:, 1,17, 7) = (/ &
+ & 0.46019E-01_JPRB,0.93276E-01_JPRB,0.10182E+00_JPRB,0.98886E-01_JPRB,0.67386E-01_JPRB /)  
+KB(:, 2,17, 7) = (/ &
+ & 0.49257E-01_JPRB,0.95617E-01_JPRB,0.10427E+00_JPRB,0.10122E+00_JPRB,0.69214E-01_JPRB /)  
+KB(:, 3,17, 7) = (/ &
+ & 0.52438E-01_JPRB,0.98544E-01_JPRB,0.10723E+00_JPRB,0.10369E+00_JPRB,0.71047E-01_JPRB /)  
+KB(:, 4,17, 7) = (/ &
+ & 0.55444E-01_JPRB,0.10204E+00_JPRB,0.11074E+00_JPRB,0.10647E+00_JPRB,0.72809E-01_JPRB /)  
+KB(:, 5,17, 7) = (/ &
+ & 0.58360E-01_JPRB,0.10585E+00_JPRB,0.11469E+00_JPRB,0.10967E+00_JPRB,0.74297E-01_JPRB /)  
+KB(:, 1,18, 7) = (/ &
+ & 0.38789E-01_JPRB,0.78385E-01_JPRB,0.85426E-01_JPRB,0.83127E-01_JPRB,0.56424E-01_JPRB /)  
+KB(:, 2,18, 7) = (/ &
+ & 0.41550E-01_JPRB,0.80626E-01_JPRB,0.87775E-01_JPRB,0.85216E-01_JPRB,0.58103E-01_JPRB /)  
+KB(:, 3,18, 7) = (/ &
+ & 0.44172E-01_JPRB,0.83391E-01_JPRB,0.90633E-01_JPRB,0.87547E-01_JPRB,0.59665E-01_JPRB /)  
+KB(:, 4,18, 7) = (/ &
+ & 0.46672E-01_JPRB,0.86541E-01_JPRB,0.93910E-01_JPRB,0.90224E-01_JPRB,0.61155E-01_JPRB /)  
+KB(:, 5,18, 7) = (/ &
+ & 0.49119E-01_JPRB,0.89890E-01_JPRB,0.97478E-01_JPRB,0.93171E-01_JPRB,0.62440E-01_JPRB /)  
+KB(:, 1,19, 7) = (/ &
+ & 0.32688E-01_JPRB,0.65866E-01_JPRB,0.71699E-01_JPRB,0.69831E-01_JPRB,0.47341E-01_JPRB /)  
+KB(:, 2,19, 7) = (/ &
+ & 0.34993E-01_JPRB,0.67987E-01_JPRB,0.73938E-01_JPRB,0.71758E-01_JPRB,0.48787E-01_JPRB /)  
+KB(:, 3,19, 7) = (/ &
+ & 0.37158E-01_JPRB,0.70566E-01_JPRB,0.76608E-01_JPRB,0.73972E-01_JPRB,0.50204E-01_JPRB /)  
+KB(:, 4,19, 7) = (/ &
+ & 0.39257E-01_JPRB,0.73365E-01_JPRB,0.79594E-01_JPRB,0.76458E-01_JPRB,0.51459E-01_JPRB /)  
+KB(:, 5,19, 7) = (/ &
+ & 0.41326E-01_JPRB,0.76343E-01_JPRB,0.82757E-01_JPRB,0.79138E-01_JPRB,0.52598E-01_JPRB /)  
+KB(:, 1,20, 7) = (/ &
+ & 0.27557E-01_JPRB,0.55396E-01_JPRB,0.60366E-01_JPRB,0.58674E-01_JPRB,0.39775E-01_JPRB /)  
+KB(:, 2,20, 7) = (/ &
+ & 0.29458E-01_JPRB,0.57423E-01_JPRB,0.62478E-01_JPRB,0.60497E-01_JPRB,0.41091E-01_JPRB /)  
+KB(:, 3,20, 7) = (/ &
+ & 0.31261E-01_JPRB,0.59745E-01_JPRB,0.64927E-01_JPRB,0.62579E-01_JPRB,0.42317E-01_JPRB /)  
+KB(:, 4,20, 7) = (/ &
+ & 0.33046E-01_JPRB,0.62240E-01_JPRB,0.67549E-01_JPRB,0.64853E-01_JPRB,0.43439E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART22',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,20, 7) = (/ &
+ & 0.34818E-01_JPRB,0.64890E-01_JPRB,0.70320E-01_JPRB,0.67290E-01_JPRB,0.44513E-01_JPRB /)  
+KB(:, 1,21, 7) = (/ &
+ & 0.23194E-01_JPRB,0.46662E-01_JPRB,0.50879E-01_JPRB,0.49331E-01_JPRB,0.33429E-01_JPRB /)  
+KB(:, 2,21, 7) = (/ &
+ & 0.24776E-01_JPRB,0.48529E-01_JPRB,0.52871E-01_JPRB,0.51054E-01_JPRB,0.34590E-01_JPRB /)  
+KB(:, 3,21, 7) = (/ &
+ & 0.26303E-01_JPRB,0.50578E-01_JPRB,0.55098E-01_JPRB,0.52980E-01_JPRB,0.35684E-01_JPRB /)  
+KB(:, 4,21, 7) = (/ &
+ & 0.27810E-01_JPRB,0.52793E-01_JPRB,0.57429E-01_JPRB,0.55052E-01_JPRB,0.36688E-01_JPRB /)  
+KB(:, 5,21, 7) = (/ &
+ & 0.29323E-01_JPRB,0.55187E-01_JPRB,0.59853E-01_JPRB,0.57245E-01_JPRB,0.37657E-01_JPRB /)  
+KB(:, 1,22, 7) = (/ &
+ & 0.19600E-01_JPRB,0.39448E-01_JPRB,0.43057E-01_JPRB,0.41623E-01_JPRB,0.28169E-01_JPRB /)  
+KB(:, 2,22, 7) = (/ &
+ & 0.20910E-01_JPRB,0.41135E-01_JPRB,0.44924E-01_JPRB,0.43250E-01_JPRB,0.29188E-01_JPRB /)  
+KB(:, 3,22, 7) = (/ &
+ & 0.22195E-01_JPRB,0.42970E-01_JPRB,0.46916E-01_JPRB,0.45021E-01_JPRB,0.30138E-01_JPRB /)  
+KB(:, 4,22, 7) = (/ &
+ & 0.23466E-01_JPRB,0.44963E-01_JPRB,0.48978E-01_JPRB,0.46906E-01_JPRB,0.31021E-01_JPRB /)  
+KB(:, 5,22, 7) = (/ &
+ & 0.24791E-01_JPRB,0.47151E-01_JPRB,0.51143E-01_JPRB,0.48901E-01_JPRB,0.31919E-01_JPRB /)  
+KB(:, 1,23, 7) = (/ &
+ & 0.16563E-01_JPRB,0.33405E-01_JPRB,0.36517E-01_JPRB,0.35235E-01_JPRB,0.23758E-01_JPRB /)  
+KB(:, 2,23, 7) = (/ &
+ & 0.17634E-01_JPRB,0.34920E-01_JPRB,0.38215E-01_JPRB,0.36726E-01_JPRB,0.24656E-01_JPRB /)  
+KB(:, 3,23, 7) = (/ &
+ & 0.18715E-01_JPRB,0.36571E-01_JPRB,0.39976E-01_JPRB,0.38337E-01_JPRB,0.25473E-01_JPRB /)  
+KB(:, 4,23, 7) = (/ &
+ & 0.19810E-01_JPRB,0.38397E-01_JPRB,0.41828E-01_JPRB,0.40046E-01_JPRB,0.26273E-01_JPRB /)  
+KB(:, 5,23, 7) = (/ &
+ & 0.20990E-01_JPRB,0.40406E-01_JPRB,0.43840E-01_JPRB,0.41881E-01_JPRB,0.27068E-01_JPRB /)  
+KB(:, 1,24, 7) = (/ &
+ & 0.13980E-01_JPRB,0.28346E-01_JPRB,0.31027E-01_JPRB,0.29909E-01_JPRB,0.20058E-01_JPRB /)  
+KB(:, 2,24, 7) = (/ &
+ & 0.14874E-01_JPRB,0.29707E-01_JPRB,0.32546E-01_JPRB,0.31266E-01_JPRB,0.20839E-01_JPRB /)  
+KB(:, 3,24, 7) = (/ &
+ & 0.15797E-01_JPRB,0.31204E-01_JPRB,0.34123E-01_JPRB,0.32728E-01_JPRB,0.21557E-01_JPRB /)  
+KB(:, 4,24, 7) = (/ &
+ & 0.16758E-01_JPRB,0.32875E-01_JPRB,0.35824E-01_JPRB,0.34296E-01_JPRB,0.22274E-01_JPRB /)  
+KB(:, 5,24, 7) = (/ &
+ & 0.17809E-01_JPRB,0.34737E-01_JPRB,0.37711E-01_JPRB,0.35981E-01_JPRB,0.22992E-01_JPRB /)  
+KB(:, 1,25, 7) = (/ &
+ & 0.11798E-01_JPRB,0.24110E-01_JPRB,0.26426E-01_JPRB,0.25457E-01_JPRB,0.16985E-01_JPRB /)  
+KB(:, 2,25, 7) = (/ &
+ & 0.12561E-01_JPRB,0.25347E-01_JPRB,0.27781E-01_JPRB,0.26691E-01_JPRB,0.17655E-01_JPRB /)  
+KB(:, 3,25, 7) = (/ &
+ & 0.13359E-01_JPRB,0.26711E-01_JPRB,0.29222E-01_JPRB,0.28026E-01_JPRB,0.18302E-01_JPRB /)  
+KB(:, 4,25, 7) = (/ &
+ & 0.14208E-01_JPRB,0.28241E-01_JPRB,0.30806E-01_JPRB,0.29472E-01_JPRB,0.18949E-01_JPRB /)  
+KB(:, 5,25, 7) = (/ &
+ & 0.15157E-01_JPRB,0.29980E-01_JPRB,0.32597E-01_JPRB,0.31029E-01_JPRB,0.19596E-01_JPRB /)  
+KB(:, 1,26, 7) = (/ &
+ & 0.99745E-02_JPRB,0.20581E-01_JPRB,0.22580E-01_JPRB,0.21746E-01_JPRB,0.14432E-01_JPRB /)  
+KB(:, 2,26, 7) = (/ &
+ & 0.10633E-01_JPRB,0.21703E-01_JPRB,0.23807E-01_JPRB,0.22873E-01_JPRB,0.15014E-01_JPRB /)  
+KB(:, 3,26, 7) = (/ &
+ & 0.11328E-01_JPRB,0.22948E-01_JPRB,0.25141E-01_JPRB,0.24108E-01_JPRB,0.15588E-01_JPRB /)  
+KB(:, 4,26, 7) = (/ &
+ & 0.12091E-01_JPRB,0.24380E-01_JPRB,0.26636E-01_JPRB,0.25439E-01_JPRB,0.16180E-01_JPRB /)  
+KB(:, 5,26, 7) = (/ &
+ & 0.12943E-01_JPRB,0.26016E-01_JPRB,0.28335E-01_JPRB,0.26899E-01_JPRB,0.16787E-01_JPRB /)  
+KB(:, 1,27, 7) = (/ &
+ & 0.84424E-02_JPRB,0.17603E-01_JPRB,0.19348E-01_JPRB,0.18632E-01_JPRB,0.12275E-01_JPRB /)  
+KB(:, 2,27, 7) = (/ &
+ & 0.90172E-02_JPRB,0.18627E-01_JPRB,0.20475E-01_JPRB,0.19670E-01_JPRB,0.12796E-01_JPRB /)  
+KB(:, 3,27, 7) = (/ &
+ & 0.96344E-02_JPRB,0.19791E-01_JPRB,0.21724E-01_JPRB,0.20817E-01_JPRB,0.13316E-01_JPRB /)  
+KB(:, 4,27, 7) = (/ &
+ & 0.10319E-01_JPRB,0.21143E-01_JPRB,0.23141E-01_JPRB,0.22059E-01_JPRB,0.13859E-01_JPRB /)  
+KB(:, 5,27, 7) = (/ &
+ & 0.11083E-01_JPRB,0.22688E-01_JPRB,0.24742E-01_JPRB,0.23449E-01_JPRB,0.14418E-01_JPRB /)  
+KB(:, 1,28, 7) = (/ &
+ & 0.71594E-02_JPRB,0.15094E-01_JPRB,0.16638E-01_JPRB,0.16016E-01_JPRB,0.10452E-01_JPRB /)  
+KB(:, 2,28, 7) = (/ &
+ & 0.76603E-02_JPRB,0.16043E-01_JPRB,0.17678E-01_JPRB,0.16989E-01_JPRB,0.10928E-01_JPRB /)  
+KB(:, 3,28, 7) = (/ &
+ & 0.82161E-02_JPRB,0.17148E-01_JPRB,0.18856E-01_JPRB,0.18055E-01_JPRB,0.11409E-01_JPRB /)  
+KB(:, 4,28, 7) = (/ &
+ & 0.88297E-02_JPRB,0.18429E-01_JPRB,0.20193E-01_JPRB,0.19234E-01_JPRB,0.11908E-01_JPRB /)  
+KB(:, 5,28, 7) = (/ &
+ & 0.95210E-02_JPRB,0.19896E-01_JPRB,0.21697E-01_JPRB,0.20565E-01_JPRB,0.12423E-01_JPRB /)  
+KB(:, 1,29, 7) = (/ &
+ & 0.60865E-02_JPRB,0.12992E-01_JPRB,0.14367E-01_JPRB,0.13830E-01_JPRB,0.89337E-02_JPRB /)  
+KB(:, 2,29, 7) = (/ &
+ & 0.65273E-02_JPRB,0.13894E-01_JPRB,0.15342E-01_JPRB,0.14741E-01_JPRB,0.93649E-02_JPRB /)  
+KB(:, 3,29, 7) = (/ &
+ & 0.70278E-02_JPRB,0.14949E-01_JPRB,0.16457E-01_JPRB,0.15746E-01_JPRB,0.98158E-02_JPRB /)  
+KB(:, 4,29, 7) = (/ &
+ & 0.75858E-02_JPRB,0.16169E-01_JPRB,0.17720E-01_JPRB,0.16877E-01_JPRB,0.10273E-01_JPRB /)  
+KB(:, 5,29, 7) = (/ &
+ & 0.82154E-02_JPRB,0.17564E-01_JPRB,0.19150E-01_JPRB,0.18159E-01_JPRB,0.10745E-01_JPRB /)  
+KB(:, 1,30, 7) = (/ &
+ & 0.51820E-02_JPRB,0.11236E-01_JPRB,0.12459E-01_JPRB,0.12000E-01_JPRB,0.76507E-02_JPRB /)  
+KB(:, 2,30, 7) = (/ &
+ & 0.55811E-02_JPRB,0.12098E-01_JPRB,0.13380E-01_JPRB,0.12854E-01_JPRB,0.80497E-02_JPRB /)  
+KB(:, 3,30, 7) = (/ &
+ & 0.60310E-02_JPRB,0.13108E-01_JPRB,0.14440E-01_JPRB,0.13813E-01_JPRB,0.84648E-02_JPRB /)  
+KB(:, 4,30, 7) = (/ &
+ & 0.65404E-02_JPRB,0.14273E-01_JPRB,0.15644E-01_JPRB,0.14905E-01_JPRB,0.88882E-02_JPRB /)  
+KB(:, 5,30, 7) = (/ &
+ & 0.71170E-02_JPRB,0.15597E-01_JPRB,0.17012E-01_JPRB,0.16134E-01_JPRB,0.93248E-02_JPRB /)  
+KB(:, 1,31, 7) = (/ &
+ & 0.44272E-02_JPRB,0.97757E-02_JPRB,0.10859E-01_JPRB,0.10467E-01_JPRB,0.65734E-02_JPRB /)  
+KB(:, 2,31, 7) = (/ &
+ & 0.47878E-02_JPRB,0.10603E-01_JPRB,0.11740E-01_JPRB,0.11277E-01_JPRB,0.69415E-02_JPRB /)  
+KB(:, 3,31, 7) = (/ &
+ & 0.51963E-02_JPRB,0.11572E-01_JPRB,0.12753E-01_JPRB,0.12201E-01_JPRB,0.73188E-02_JPRB /)  
+KB(:, 4,31, 7) = (/ &
+ & 0.56609E-02_JPRB,0.12684E-01_JPRB,0.13904E-01_JPRB,0.13252E-01_JPRB,0.77091E-02_JPRB /)  
+KB(:, 5,31, 7) = (/ &
+ & 0.61977E-02_JPRB,0.13944E-01_JPRB,0.15244E-01_JPRB,0.14424E-01_JPRB,0.81161E-02_JPRB /)  
+KB(:, 1,32, 7) = (/ &
+ & 0.37962E-02_JPRB,0.85614E-02_JPRB,0.95233E-02_JPRB,0.91812E-02_JPRB,0.56658E-02_JPRB /)  
+KB(:, 2,32, 7) = (/ &
+ & 0.41228E-02_JPRB,0.93595E-02_JPRB,0.10368E-01_JPRB,0.99574E-02_JPRB,0.60000E-02_JPRB /)  
+KB(:, 3,32, 7) = (/ &
+ & 0.44947E-02_JPRB,0.10287E-01_JPRB,0.11338E-01_JPRB,0.10850E-01_JPRB,0.63462E-02_JPRB /)  
+KB(:, 4,32, 7) = (/ &
+ & 0.49244E-02_JPRB,0.11349E-01_JPRB,0.12467E-01_JPRB,0.11857E-01_JPRB,0.67069E-02_JPRB /)  
+KB(:, 5,32, 7) = (/ &
+ & 0.54252E-02_JPRB,0.12554E-01_JPRB,0.13767E-01_JPRB,0.12983E-01_JPRB,0.70910E-02_JPRB /)  
+KB(:, 1,33, 7) = (/ &
+ & 0.32656E-02_JPRB,0.75519E-02_JPRB,0.84026E-02_JPRB,0.81028E-02_JPRB,0.48937E-02_JPRB /)  
+KB(:, 2,33, 7) = (/ &
+ & 0.35630E-02_JPRB,0.83178E-02_JPRB,0.92157E-02_JPRB,0.88531E-02_JPRB,0.52004E-02_JPRB /)  
+KB(:, 3,33, 7) = (/ &
+ & 0.39050E-02_JPRB,0.92063E-02_JPRB,0.10168E-01_JPRB,0.97125E-02_JPRB,0.55156E-02_JPRB /)  
+KB(:, 4,33, 7) = (/ &
+ & 0.43055E-02_JPRB,0.10227E-01_JPRB,0.11270E-01_JPRB,0.10682E-01_JPRB,0.58516E-02_JPRB /)  
+KB(:, 5,33, 7) = (/ &
+ & 0.47651E-02_JPRB,0.11396E-01_JPRB,0.12524E-01_JPRB,0.11769E-01_JPRB,0.62091E-02_JPRB /)  
+KB(:, 1,34, 7) = (/ &
+ & 0.28105E-02_JPRB,0.66873E-02_JPRB,0.74405E-02_JPRB,0.71742E-02_JPRB,0.42413E-02_JPRB /)  
+KB(:, 2,34, 7) = (/ &
+ & 0.30819E-02_JPRB,0.74197E-02_JPRB,0.82328E-02_JPRB,0.78962E-02_JPRB,0.45189E-02_JPRB /)  
+KB(:, 3,34, 7) = (/ &
+ & 0.33974E-02_JPRB,0.82731E-02_JPRB,0.91582E-02_JPRB,0.87214E-02_JPRB,0.48133E-02_JPRB /)  
+KB(:, 4,34, 7) = (/ &
+ & 0.37682E-02_JPRB,0.92558E-02_JPRB,0.10225E-01_JPRB,0.96550E-02_JPRB,0.51300E-02_JPRB /)  
+KB(:, 5,34, 7) = (/ &
+ & 0.41836E-02_JPRB,0.10408E-01_JPRB,0.11429E-01_JPRB,0.10709E-01_JPRB,0.54671E-02_JPRB /)  
+KB(:, 1,35, 7) = (/ &
+ & 0.24038E-02_JPRB,0.58948E-02_JPRB,0.65709E-02_JPRB,0.63304E-02_JPRB,0.36544E-02_JPRB /)  
+KB(:, 2,35, 7) = (/ &
+ & 0.26483E-02_JPRB,0.65885E-02_JPRB,0.73295E-02_JPRB,0.70175E-02_JPRB,0.39080E-02_JPRB /)  
+KB(:, 3,35, 7) = (/ &
+ & 0.29372E-02_JPRB,0.74016E-02_JPRB,0.82197E-02_JPRB,0.78032E-02_JPRB,0.41855E-02_JPRB /)  
+KB(:, 4,35, 7) = (/ &
+ & 0.32728E-02_JPRB,0.83531E-02_JPRB,0.92365E-02_JPRB,0.86973E-02_JPRB,0.44777E-02_JPRB /)  
+KB(:, 5,35, 7) = (/ &
+ & 0.36421E-02_JPRB,0.94681E-02_JPRB,0.10387E-01_JPRB,0.97145E-02_JPRB,0.47967E-02_JPRB /)  
+KB(:, 1,36, 7) = (/ &
+ & 0.20373E-02_JPRB,0.51550E-02_JPRB,0.57662E-02_JPRB,0.55498E-02_JPRB,0.31231E-02_JPRB /)  
+KB(:, 2,36, 7) = (/ &
+ & 0.22554E-02_JPRB,0.58057E-02_JPRB,0.64818E-02_JPRB,0.61953E-02_JPRB,0.33549E-02_JPRB /)  
+KB(:, 3,36, 7) = (/ &
+ & 0.25127E-02_JPRB,0.65796E-02_JPRB,0.73228E-02_JPRB,0.69361E-02_JPRB,0.36112E-02_JPRB /)  
+KB(:, 4,36, 7) = (/ &
+ & 0.28104E-02_JPRB,0.74827E-02_JPRB,0.82833E-02_JPRB,0.77843E-02_JPRB,0.38823E-02_JPRB /)  
+KB(:, 5,36, 7) = (/ &
+ & 0.31359E-02_JPRB,0.85467E-02_JPRB,0.93763E-02_JPRB,0.87575E-02_JPRB,0.41812E-02_JPRB /)  
+KB(:, 1,37, 7) = (/ &
+ & 0.17035E-02_JPRB,0.44466E-02_JPRB,0.49856E-02_JPRB,0.47970E-02_JPRB,0.26734E-02_JPRB /)  
+KB(:, 2,37, 7) = (/ &
+ & 0.18934E-02_JPRB,0.50433E-02_JPRB,0.56462E-02_JPRB,0.53907E-02_JPRB,0.28873E-02_JPRB /)  
+KB(:, 3,37, 7) = (/ &
+ & 0.21171E-02_JPRB,0.57558E-02_JPRB,0.64223E-02_JPRB,0.60783E-02_JPRB,0.31233E-02_JPRB /)  
+KB(:, 4,37, 7) = (/ &
+ & 0.23767E-02_JPRB,0.65938E-02_JPRB,0.73141E-02_JPRB,0.68717E-02_JPRB,0.33760E-02_JPRB /)  
+KB(:, 5,37, 7) = (/ &
+ & 0.26616E-02_JPRB,0.75860E-02_JPRB,0.83359E-02_JPRB,0.77859E-02_JPRB,0.36530E-02_JPRB /)  
+KB(:, 1,38, 7) = (/ &
+ & 0.14234E-02_JPRB,0.38379E-02_JPRB,0.43139E-02_JPRB,0.41486E-02_JPRB,0.22904E-02_JPRB /)  
+KB(:, 2,38, 7) = (/ &
+ & 0.15875E-02_JPRB,0.43850E-02_JPRB,0.49236E-02_JPRB,0.46956E-02_JPRB,0.24873E-02_JPRB /)  
+KB(:, 3,38, 7) = (/ &
+ & 0.17824E-02_JPRB,0.50419E-02_JPRB,0.56400E-02_JPRB,0.53338E-02_JPRB,0.27024E-02_JPRB /)  
+KB(:, 4,38, 7) = (/ &
+ & 0.20080E-02_JPRB,0.58195E-02_JPRB,0.64682E-02_JPRB,0.60767E-02_JPRB,0.29386E-02_JPRB /)  
+KB(:, 5,38, 7) = (/ &
+ & 0.22567E-02_JPRB,0.67445E-02_JPRB,0.74253E-02_JPRB,0.69357E-02_JPRB,0.31979E-02_JPRB /)  
+KB(:, 1,39, 7) = (/ &
+ & 0.11890E-02_JPRB,0.33180E-02_JPRB,0.37396E-02_JPRB,0.35935E-02_JPRB,0.19623E-02_JPRB /)  
+KB(:, 2,39, 7) = (/ &
+ & 0.13309E-02_JPRB,0.38204E-02_JPRB,0.43017E-02_JPRB,0.40980E-02_JPRB,0.21427E-02_JPRB /)  
+KB(:, 3,39, 7) = (/ &
+ & 0.14997E-02_JPRB,0.44279E-02_JPRB,0.49653E-02_JPRB,0.46926E-02_JPRB,0.23415E-02_JPRB /)  
+KB(:, 4,39, 7) = (/ &
+ & 0.16956E-02_JPRB,0.51508E-02_JPRB,0.57361E-02_JPRB,0.53891E-02_JPRB,0.25595E-02_JPRB /)  
+KB(:, 5,39, 7) = (/ &
+ & 0.19128E-02_JPRB,0.60136E-02_JPRB,0.66353E-02_JPRB,0.61975E-02_JPRB,0.28034E-02_JPRB /)  
+KB(:, 1,40, 7) = (/ &
+ & 0.98185E-03_JPRB,0.28304E-02_JPRB,0.31989E-02_JPRB,0.30741E-02_JPRB,0.16759E-02_JPRB /)  
+KB(:, 2,40, 7) = (/ &
+ & 0.11018E-02_JPRB,0.32825E-02_JPRB,0.37073E-02_JPRB,0.35318E-02_JPRB,0.18412E-02_JPRB /)  
+KB(:, 3,40, 7) = (/ &
+ & 0.12459E-02_JPRB,0.38338E-02_JPRB,0.43125E-02_JPRB,0.40771E-02_JPRB,0.20230E-02_JPRB /)  
+KB(:, 4,40, 7) = (/ &
+ & 0.14138E-02_JPRB,0.44950E-02_JPRB,0.50204E-02_JPRB,0.47198E-02_JPRB,0.22264E-02_JPRB /)  
+KB(:, 5,40, 7) = (/ &
+ & 0.16015E-02_JPRB,0.52867E-02_JPRB,0.58524E-02_JPRB,0.54701E-02_JPRB,0.24538E-02_JPRB /)  
+KB(:, 1,41, 7) = (/ &
+ & 0.80888E-03_JPRB,0.24101E-02_JPRB,0.27302E-02_JPRB,0.26250E-02_JPRB,0.14285E-02_JPRB /)  
+KB(:, 2,41, 7) = (/ &
+ & 0.91042E-03_JPRB,0.28166E-02_JPRB,0.31895E-02_JPRB,0.30396E-02_JPRB,0.15812E-02_JPRB /)  
+KB(:, 3,41, 7) = (/ &
+ & 0.10323E-02_JPRB,0.33144E-02_JPRB,0.37392E-02_JPRB,0.35375E-02_JPRB,0.17482E-02_JPRB /)  
+KB(:, 4,41, 7) = (/ &
+ & 0.11757E-02_JPRB,0.39172E-02_JPRB,0.43885E-02_JPRB,0.41290E-02_JPRB,0.19366E-02_JPRB /)  
+KB(:, 5,41, 7) = (/ &
+ & 0.13368E-02_JPRB,0.46417E-02_JPRB,0.51571E-02_JPRB,0.48237E-02_JPRB,0.21455E-02_JPRB /)  
+KB(:, 1,42, 7) = (/ &
+ & 0.66584E-03_JPRB,0.20506E-02_JPRB,0.23294E-02_JPRB,0.22418E-02_JPRB,0.12147E-02_JPRB /)  
+KB(:, 2,42, 7) = (/ &
+ & 0.75117E-03_JPRB,0.24164E-02_JPRB,0.27427E-02_JPRB,0.26163E-02_JPRB,0.13552E-02_JPRB /)  
+KB(:, 3,42, 7) = (/ &
+ & 0.85464E-03_JPRB,0.28657E-02_JPRB,0.32419E-02_JPRB,0.30702E-02_JPRB,0.15103E-02_JPRB /)  
+KB(:, 4,42, 7) = (/ &
+ & 0.97690E-03_JPRB,0.34148E-02_JPRB,0.38374E-02_JPRB,0.36136E-02_JPRB,0.16836E-02_JPRB /)  
+KB(:, 5,42, 7) = (/ &
+ & 0.11154E-02_JPRB,0.40777E-02_JPRB,0.45486E-02_JPRB,0.42564E-02_JPRB,0.18765E-02_JPRB /)  
+KB(:, 1,43, 7) = (/ &
+ & 0.54468E-03_JPRB,0.17260E-02_JPRB,0.19662E-02_JPRB,0.18963E-02_JPRB,0.10278E-02_JPRB /)  
+KB(:, 2,43, 7) = (/ &
+ & 0.61495E-03_JPRB,0.20517E-02_JPRB,0.23339E-02_JPRB,0.22307E-02_JPRB,0.11544E-02_JPRB /)  
+KB(:, 3,43, 7) = (/ &
+ & 0.70090E-03_JPRB,0.24526E-02_JPRB,0.27821E-02_JPRB,0.26393E-02_JPRB,0.12972E-02_JPRB /)  
+KB(:, 4,43, 7) = (/ &
+ & 0.80460E-03_JPRB,0.29460E-02_JPRB,0.33228E-02_JPRB,0.31329E-02_JPRB,0.14583E-02_JPRB /)  
+KB(:, 5,43, 7) = (/ &
+ & 0.92296E-03_JPRB,0.35462E-02_JPRB,0.39738E-02_JPRB,0.37220E-02_JPRB,0.16369E-02_JPRB /)  
+KB(:, 1,44, 7) = (/ &
+ & 0.44364E-03_JPRB,0.14437E-02_JPRB,0.16496E-02_JPRB,0.15952E-02_JPRB,0.86540E-03_JPRB /)  
+KB(:, 2,44, 7) = (/ &
+ & 0.50199E-03_JPRB,0.17304E-02_JPRB,0.19739E-02_JPRB,0.18912E-02_JPRB,0.97937E-03_JPRB /)  
+KB(:, 3,44, 7) = (/ &
+ & 0.57242E-03_JPRB,0.20860E-02_JPRB,0.23731E-02_JPRB,0.22565E-02_JPRB,0.11106E-02_JPRB /)  
+KB(:, 4,44, 7) = (/ &
+ & 0.65930E-03_JPRB,0.25283E-02_JPRB,0.28613E-02_JPRB,0.27024E-02_JPRB,0.12573E-02_JPRB /)  
+KB(:, 5,44, 7) = (/ &
+ & 0.75974E-03_JPRB,0.30673E-02_JPRB,0.34531E-02_JPRB,0.32379E-02_JPRB,0.14238E-02_JPRB /)  
+KB(:, 1,45, 7) = (/ &
+ & 0.36129E-03_JPRB,0.12055E-02_JPRB,0.13811E-02_JPRB,0.13394E-02_JPRB,0.72668E-03_JPRB /)  
+KB(:, 2,45, 7) = (/ &
+ & 0.40925E-03_JPRB,0.14558E-02_JPRB,0.16660E-02_JPRB,0.16003E-02_JPRB,0.82937E-03_JPRB /)  
+KB(:, 3,45, 7) = (/ &
+ & 0.46755E-03_JPRB,0.17705E-02_JPRB,0.20201E-02_JPRB,0.19260E-02_JPRB,0.94755E-03_JPRB /)  
+KB(:, 4,45, 7) = (/ &
+ & 0.53937E-03_JPRB,0.21654E-02_JPRB,0.24593E-02_JPRB,0.23275E-02_JPRB,0.10822E-02_JPRB /)  
+KB(:, 5,45, 7) = (/ &
+ & 0.62400E-03_JPRB,0.26505E-02_JPRB,0.29965E-02_JPRB,0.28141E-02_JPRB,0.12345E-02_JPRB /)  
+KB(:, 1,46, 7) = (/ &
+ & 0.29308E-03_JPRB,0.99917E-03_JPRB,0.11483E-02_JPRB,0.11175E-02_JPRB,0.60699E-03_JPRB /)  
+KB(:, 2,46, 7) = (/ &
+ & 0.33256E-03_JPRB,0.12167E-02_JPRB,0.13963E-02_JPRB,0.13454E-02_JPRB,0.69810E-03_JPRB /)  
+KB(:, 3,46, 7) = (/ &
+ & 0.38031E-03_JPRB,0.14933E-02_JPRB,0.17091E-02_JPRB,0.16341E-02_JPRB,0.80431E-03_JPRB /)  
+KB(:, 4,46, 7) = (/ &
+ & 0.43974E-03_JPRB,0.18423E-02_JPRB,0.21003E-02_JPRB,0.19926E-02_JPRB,0.92607E-03_JPRB /)  
+KB(:, 5,46, 7) = (/ &
+ & 0.51042E-03_JPRB,0.22760E-02_JPRB,0.25842E-02_JPRB,0.24318E-02_JPRB,0.10656E-02_JPRB /)  
+KB(:, 1,47, 7) = (/ &
+ & 0.23621E-03_JPRB,0.81920E-03_JPRB,0.94415E-03_JPRB,0.92230E-03_JPRB,0.50239E-03_JPRB /)  
+KB(:, 2,47, 7) = (/ &
+ & 0.26847E-03_JPRB,0.10045E-02_JPRB,0.11560E-02_JPRB,0.11182E-02_JPRB,0.58268E-03_JPRB /)  
+KB(:, 3,47, 7) = (/ &
+ & 0.30727E-03_JPRB,0.12442E-02_JPRB,0.14284E-02_JPRB,0.13701E-02_JPRB,0.67654E-03_JPRB /)  
+KB(:, 4,47, 7) = (/ &
+ & 0.35565E-03_JPRB,0.15479E-02_JPRB,0.17727E-02_JPRB,0.16866E-02_JPRB,0.78602E-03_JPRB /)  
+KB(:, 5,47, 7) = (/ &
+ & 0.41455E-03_JPRB,0.19320E-02_JPRB,0.22031E-02_JPRB,0.20787E-02_JPRB,0.91297E-03_JPRB /)  
+KB(:, 1,48, 7) = (/ &
+ & 0.19056E-03_JPRB,0.66912E-03_JPRB,0.77329E-03_JPRB,0.75810E-03_JPRB,0.41434E-03_JPRB /)  
+KB(:, 2,48, 7) = (/ &
+ & 0.21662E-03_JPRB,0.82638E-03_JPRB,0.95404E-03_JPRB,0.92602E-03_JPRB,0.48448E-03_JPRB /)  
+KB(:, 3,48, 7) = (/ &
+ & 0.24805E-03_JPRB,0.10324E-02_JPRB,0.11883E-02_JPRB,0.11443E-02_JPRB,0.56714E-03_JPRB /)  
+KB(:, 4,48, 7) = (/ &
+ & 0.28732E-03_JPRB,0.12967E-02_JPRB,0.14909E-02_JPRB,0.14226E-02_JPRB,0.66465E-03_JPRB /)  
+KB(:, 5,48, 7) = (/ &
+ & 0.33598E-03_JPRB,0.16339E-02_JPRB,0.18720E-02_JPRB,0.17712E-02_JPRB,0.77925E-03_JPRB /)  
+KB(:, 1,49, 7) = (/ &
+ & 0.15370E-03_JPRB,0.54435E-03_JPRB,0.63072E-03_JPRB,0.62031E-03_JPRB,0.34039E-03_JPRB /)  
+KB(:, 2,49, 7) = (/ &
+ & 0.17493E-03_JPRB,0.67703E-03_JPRB,0.78385E-03_JPRB,0.76375E-03_JPRB,0.40110E-03_JPRB /)  
+KB(:, 3,49, 7) = (/ &
+ & 0.20006E-03_JPRB,0.85331E-03_JPRB,0.98454E-03_JPRB,0.95185E-03_JPRB,0.47334E-03_JPRB /)  
+KB(:, 4,49, 7) = (/ &
+ & 0.23184E-03_JPRB,0.10822E-02_JPRB,0.12482E-02_JPRB,0.11953E-02_JPRB,0.56021E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART23',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,49, 7) = (/ &
+ & 0.27201E-03_JPRB,0.13761E-02_JPRB,0.15848E-02_JPRB,0.15038E-02_JPRB,0.66336E-03_JPRB /)  
+KB(:, 1,50, 7) = (/ &
+ & 0.12445E-03_JPRB,0.44363E-03_JPRB,0.51558E-03_JPRB,0.50858E-03_JPRB,0.27983E-03_JPRB /)  
+KB(:, 2,50, 7) = (/ &
+ & 0.14173E-03_JPRB,0.55572E-03_JPRB,0.64516E-03_JPRB,0.63048E-03_JPRB,0.33240E-03_JPRB /)  
+KB(:, 3,50, 7) = (/ &
+ & 0.16225E-03_JPRB,0.70658E-03_JPRB,0.81789E-03_JPRB,0.79296E-03_JPRB,0.39601E-03_JPRB /)  
+KB(:, 4,50, 7) = (/ &
+ & 0.18768E-03_JPRB,0.90539E-03_JPRB,0.10468E-02_JPRB,0.10060E-02_JPRB,0.47285E-03_JPRB /)  
+KB(:, 5,50, 7) = (/ &
+ & 0.22071E-03_JPRB,0.11624E-02_JPRB,0.13446E-02_JPRB,0.12795E-02_JPRB,0.56523E-03_JPRB /)  
+KB(:, 1,51, 7) = (/ &
+ & 0.10079E-03_JPRB,0.36142E-03_JPRB,0.42089E-03_JPRB,0.41617E-03_JPRB,0.23042E-03_JPRB /)  
+KB(:, 2,51, 7) = (/ &
+ & 0.11508E-03_JPRB,0.45540E-03_JPRB,0.53023E-03_JPRB,0.51983E-03_JPRB,0.27489E-03_JPRB /)  
+KB(:, 3,51, 7) = (/ &
+ & 0.13183E-03_JPRB,0.58426E-03_JPRB,0.67873E-03_JPRB,0.65942E-03_JPRB,0.33073E-03_JPRB /)  
+KB(:, 4,51, 7) = (/ &
+ & 0.15243E-03_JPRB,0.75694E-03_JPRB,0.87652E-03_JPRB,0.84573E-03_JPRB,0.39869E-03_JPRB /)  
+KB(:, 5,51, 7) = (/ &
+ & 0.17921E-03_JPRB,0.98295E-03_JPRB,0.11402E-02_JPRB,0.10885E-02_JPRB,0.48140E-03_JPRB /)  
+KB(:, 1,52, 7) = (/ &
+ & 0.81556E-04_JPRB,0.29363E-03_JPRB,0.34244E-03_JPRB,0.33921E-03_JPRB,0.18905E-03_JPRB /)  
+KB(:, 2,52, 7) = (/ &
+ & 0.93358E-04_JPRB,0.37204E-03_JPRB,0.43415E-03_JPRB,0.42707E-03_JPRB,0.22730E-03_JPRB /)  
+KB(:, 3,52, 7) = (/ &
+ & 0.10711E-03_JPRB,0.48125E-03_JPRB,0.56095E-03_JPRB,0.54625E-03_JPRB,0.27517E-03_JPRB /)  
+KB(:, 4,52, 7) = (/ &
+ & 0.12382E-03_JPRB,0.62999E-03_JPRB,0.73195E-03_JPRB,0.70815E-03_JPRB,0.33506E-03_JPRB /)  
+KB(:, 5,52, 7) = (/ &
+ & 0.14564E-03_JPRB,0.82786E-03_JPRB,0.96258E-03_JPRB,0.92197E-03_JPRB,0.40847E-03_JPRB /)  
+KB(:, 1,53, 7) = (/ &
+ & 0.65849E-04_JPRB,0.23779E-03_JPRB,0.27734E-03_JPRB,0.27519E-03_JPRB,0.15433E-03_JPRB /)  
+KB(:, 2,53, 7) = (/ &
+ & 0.75546E-04_JPRB,0.30303E-03_JPRB,0.35410E-03_JPRB,0.34952E-03_JPRB,0.18741E-03_JPRB /)  
+KB(:, 3,53, 7) = (/ &
+ & 0.86880E-04_JPRB,0.39464E-03_JPRB,0.46133E-03_JPRB,0.45049E-03_JPRB,0.22844E-03_JPRB /)  
+KB(:, 4,53, 7) = (/ &
+ & 0.10061E-03_JPRB,0.52205E-03_JPRB,0.60866E-03_JPRB,0.59002E-03_JPRB,0.28045E-03_JPRB /)  
+KB(:, 5,53, 7) = (/ &
+ & 0.11837E-03_JPRB,0.69424E-03_JPRB,0.80911E-03_JPRB,0.77763E-03_JPRB,0.34549E-03_JPRB /)  
+KB(:, 1,54, 7) = (/ &
+ & 0.53194E-04_JPRB,0.19358E-03_JPRB,0.22554E-03_JPRB,0.22386E-03_JPRB,0.12634E-03_JPRB /)  
+KB(:, 2,54, 7) = (/ &
+ & 0.61356E-04_JPRB,0.24774E-03_JPRB,0.28991E-03_JPRB,0.28698E-03_JPRB,0.15485E-03_JPRB /)  
+KB(:, 3,54, 7) = (/ &
+ & 0.70732E-04_JPRB,0.32546E-03_JPRB,0.38104E-03_JPRB,0.37325E-03_JPRB,0.19067E-03_JPRB /)  
+KB(:, 4,54, 7) = (/ &
+ & 0.81989E-04_JPRB,0.43475E-03_JPRB,0.50842E-03_JPRB,0.49348E-03_JPRB,0.23573E-03_JPRB /)  
+KB(:, 5,54, 7) = (/ &
+ & 0.96606E-04_JPRB,0.58491E-03_JPRB,0.68358E-03_JPRB,0.65848E-03_JPRB,0.29331E-03_JPRB /)  
+KB(:, 1,55, 7) = (/ &
+ & 0.42968E-04_JPRB,0.15774E-03_JPRB,0.18351E-03_JPRB,0.18209E-03_JPRB,0.10325E-03_JPRB /)  
+KB(:, 2,55, 7) = (/ &
+ & 0.49757E-04_JPRB,0.20300E-03_JPRB,0.23752E-03_JPRB,0.23563E-03_JPRB,0.12786E-03_JPRB /)  
+KB(:, 3,55, 7) = (/ &
+ & 0.57602E-04_JPRB,0.26853E-03_JPRB,0.31476E-03_JPRB,0.30938E-03_JPRB,0.15908E-03_JPRB /)  
+KB(:, 4,55, 7) = (/ &
+ & 0.66944E-04_JPRB,0.36215E-03_JPRB,0.42458E-03_JPRB,0.41285E-03_JPRB,0.19867E-03_JPRB /)  
+KB(:, 5,55, 7) = (/ &
+ & 0.78909E-04_JPRB,0.49332E-03_JPRB,0.57794E-03_JPRB,0.55775E-03_JPRB,0.24929E-03_JPRB /)  
+KB(:, 1,56, 7) = (/ &
+ & 0.34572E-04_JPRB,0.12819E-03_JPRB,0.14868E-03_JPRB,0.14747E-03_JPRB,0.84103E-04_JPRB /)  
+KB(:, 2,56, 7) = (/ &
+ & 0.40234E-04_JPRB,0.16586E-03_JPRB,0.19409E-03_JPRB,0.19266E-03_JPRB,0.10511E-03_JPRB /)  
+KB(:, 3,56, 7) = (/ &
+ & 0.46756E-04_JPRB,0.22079E-03_JPRB,0.25905E-03_JPRB,0.25536E-03_JPRB,0.13228E-03_JPRB /)  
+KB(:, 4,56, 7) = (/ &
+ & 0.54583E-04_JPRB,0.30103E-03_JPRB,0.35315E-03_JPRB,0.34421E-03_JPRB,0.16708E-03_JPRB /)  
+KB(:, 5,56, 7) = (/ &
+ & 0.64414E-04_JPRB,0.41471E-03_JPRB,0.48701E-03_JPRB,0.47045E-03_JPRB,0.21139E-03_JPRB /)  
+KB(:, 1,57, 7) = (/ &
+ & 0.27768E-04_JPRB,0.10391E-03_JPRB,0.12029E-03_JPRB,0.11888E-03_JPRB,0.68178E-04_JPRB /)  
+KB(:, 2,57, 7) = (/ &
+ & 0.32463E-04_JPRB,0.13502E-03_JPRB,0.15785E-03_JPRB,0.15684E-03_JPRB,0.86073E-04_JPRB /)  
+KB(:, 3,57, 7) = (/ &
+ & 0.37880E-04_JPRB,0.18114E-03_JPRB,0.21255E-03_JPRB,0.20984E-03_JPRB,0.10949E-03_JPRB /)  
+KB(:, 4,57, 7) = (/ &
+ & 0.44374E-04_JPRB,0.24914E-03_JPRB,0.29262E-03_JPRB,0.28609E-03_JPRB,0.14004E-03_JPRB /)  
+KB(:, 5,57, 7) = (/ &
+ & 0.52560E-04_JPRB,0.34723E-03_JPRB,0.40853E-03_JPRB,0.39531E-03_JPRB,0.17907E-03_JPRB /)  
+KB(:, 1,58, 7) = (/ &
+ & 0.22293E-04_JPRB,0.84410E-04_JPRB,0.97318E-04_JPRB,0.95954E-04_JPRB,0.55246E-04_JPRB /)  
+KB(:, 2,58, 7) = (/ &
+ & 0.26200E-04_JPRB,0.11013E-03_JPRB,0.12878E-03_JPRB,0.12778E-03_JPRB,0.70434E-04_JPRB /)  
+KB(:, 3,58, 7) = (/ &
+ & 0.30694E-04_JPRB,0.14878E-03_JPRB,0.17475E-03_JPRB,0.17269E-03_JPRB,0.90681E-04_JPRB /)  
+KB(:, 4,58, 7) = (/ &
+ & 0.36071E-04_JPRB,0.20666E-03_JPRB,0.24284E-03_JPRB,0.23795E-03_JPRB,0.11731E-03_JPRB /)  
+KB(:, 5,58, 7) = (/ &
+ & 0.42845E-04_JPRB,0.29161E-03_JPRB,0.34322E-03_JPRB,0.33267E-03_JPRB,0.15208E-03_JPRB /)  
+KB(:, 1,59, 7) = (/ &
+ & 0.18430E-04_JPRB,0.71706E-04_JPRB,0.82601E-04_JPRB,0.81289E-04_JPRB,0.46584E-04_JPRB /)  
+KB(:, 2,59, 7) = (/ &
+ & 0.21734E-04_JPRB,0.94599E-04_JPRB,0.11060E-03_JPRB,0.10958E-03_JPRB,0.60168E-04_JPRB /)  
+KB(:, 3,59, 7) = (/ &
+ & 0.25561E-04_JPRB,0.12924E-03_JPRB,0.15196E-03_JPRB,0.15008E-03_JPRB,0.78430E-04_JPRB /)  
+KB(:, 4,59, 7) = (/ &
+ & 0.30185E-04_JPRB,0.18220E-03_JPRB,0.21420E-03_JPRB,0.20980E-03_JPRB,0.10280E-03_JPRB /)  
+KB(:, 5,59, 7) = (/ &
+ & 0.36067E-04_JPRB,0.26061E-03_JPRB,0.30710E-03_JPRB,0.29739E-03_JPRB,0.13531E-03_JPRB /)  
+KB(:, 1,13, 8) = (/ &
+ & 0.32299E+00_JPRB,0.54760E+00_JPRB,0.60079E+00_JPRB,0.58517E+00_JPRB,0.42276E+00_JPRB /)  
+KB(:, 2,13, 8) = (/ &
+ & 0.32594E+00_JPRB,0.55963E+00_JPRB,0.61653E+00_JPRB,0.60147E+00_JPRB,0.43281E+00_JPRB /)  
+KB(:, 3,13, 8) = (/ &
+ & 0.33056E+00_JPRB,0.57182E+00_JPRB,0.63236E+00_JPRB,0.61863E+00_JPRB,0.44149E+00_JPRB /)  
+KB(:, 4,13, 8) = (/ &
+ & 0.33706E+00_JPRB,0.58426E+00_JPRB,0.64822E+00_JPRB,0.63489E+00_JPRB,0.44893E+00_JPRB /)  
+KB(:, 5,13, 8) = (/ &
+ & 0.34635E+00_JPRB,0.59739E+00_JPRB,0.66343E+00_JPRB,0.65003E+00_JPRB,0.45486E+00_JPRB /)  
+KB(:, 1,14, 8) = (/ &
+ & 0.27185E+00_JPRB,0.47396E+00_JPRB,0.52087E+00_JPRB,0.50518E+00_JPRB,0.35898E+00_JPRB /)  
+KB(:, 2,14, 8) = (/ &
+ & 0.27455E+00_JPRB,0.48454E+00_JPRB,0.53473E+00_JPRB,0.52058E+00_JPRB,0.36725E+00_JPRB /)  
+KB(:, 3,14, 8) = (/ &
+ & 0.27878E+00_JPRB,0.49523E+00_JPRB,0.54876E+00_JPRB,0.53556E+00_JPRB,0.37477E+00_JPRB /)  
+KB(:, 4,14, 8) = (/ &
+ & 0.28540E+00_JPRB,0.50660E+00_JPRB,0.56244E+00_JPRB,0.54948E+00_JPRB,0.38095E+00_JPRB /)  
+KB(:, 5,14, 8) = (/ &
+ & 0.29474E+00_JPRB,0.51876E+00_JPRB,0.57592E+00_JPRB,0.56255E+00_JPRB,0.38660E+00_JPRB /)  
+KB(:, 1,15, 8) = (/ &
+ & 0.22818E+00_JPRB,0.40825E+00_JPRB,0.45003E+00_JPRB,0.43582E+00_JPRB,0.30350E+00_JPRB /)  
+KB(:, 2,15, 8) = (/ &
+ & 0.23074E+00_JPRB,0.41749E+00_JPRB,0.46220E+00_JPRB,0.44930E+00_JPRB,0.31064E+00_JPRB /)  
+KB(:, 3,15, 8) = (/ &
+ & 0.23510E+00_JPRB,0.42737E+00_JPRB,0.47434E+00_JPRB,0.46202E+00_JPRB,0.31696E+00_JPRB /)  
+KB(:, 4,15, 8) = (/ &
+ & 0.24186E+00_JPRB,0.43783E+00_JPRB,0.48637E+00_JPRB,0.47387E+00_JPRB,0.32265E+00_JPRB /)  
+KB(:, 5,15, 8) = (/ &
+ & 0.25121E+00_JPRB,0.44943E+00_JPRB,0.49855E+00_JPRB,0.48519E+00_JPRB,0.32816E+00_JPRB /)  
+KB(:, 1,16, 8) = (/ &
+ & 0.19120E+00_JPRB,0.34975E+00_JPRB,0.38732E+00_JPRB,0.37509E+00_JPRB,0.25617E+00_JPRB /)  
+KB(:, 2,16, 8) = (/ &
+ & 0.19385E+00_JPRB,0.35826E+00_JPRB,0.39799E+00_JPRB,0.38666E+00_JPRB,0.26259E+00_JPRB /)  
+KB(:, 3,16, 8) = (/ &
+ & 0.19846E+00_JPRB,0.36727E+00_JPRB,0.40872E+00_JPRB,0.39750E+00_JPRB,0.26815E+00_JPRB /)  
+KB(:, 4,16, 8) = (/ &
+ & 0.20537E+00_JPRB,0.37712E+00_JPRB,0.41954E+00_JPRB,0.40777E+00_JPRB,0.27330E+00_JPRB /)  
+KB(:, 5,16, 8) = (/ &
+ & 0.21427E+00_JPRB,0.38868E+00_JPRB,0.43071E+00_JPRB,0.41784E+00_JPRB,0.27853E+00_JPRB /)  
+KB(:, 1,17, 8) = (/ &
+ & 0.15988E+00_JPRB,0.29854E+00_JPRB,0.33180E+00_JPRB,0.32201E+00_JPRB,0.21611E+00_JPRB /)  
+KB(:, 2,17, 8) = (/ &
+ & 0.16279E+00_JPRB,0.30628E+00_JPRB,0.34129E+00_JPRB,0.33188E+00_JPRB,0.22162E+00_JPRB /)  
+KB(:, 3,17, 8) = (/ &
+ & 0.16763E+00_JPRB,0.31463E+00_JPRB,0.35085E+00_JPRB,0.34122E+00_JPRB,0.22664E+00_JPRB /)  
+KB(:, 4,17, 8) = (/ &
+ & 0.17444E+00_JPRB,0.32432E+00_JPRB,0.36068E+00_JPRB,0.35032E+00_JPRB,0.23161E+00_JPRB /)  
+KB(:, 5,17, 8) = (/ &
+ & 0.18274E+00_JPRB,0.33609E+00_JPRB,0.37140E+00_JPRB,0.35944E+00_JPRB,0.23665E+00_JPRB /)  
+KB(:, 1,18, 8) = (/ &
+ & 0.13352E+00_JPRB,0.25404E+00_JPRB,0.28330E+00_JPRB,0.27577E+00_JPRB,0.18225E+00_JPRB /)  
+KB(:, 2,18, 8) = (/ &
+ & 0.13667E+00_JPRB,0.26103E+00_JPRB,0.29171E+00_JPRB,0.28431E+00_JPRB,0.18712E+00_JPRB /)  
+KB(:, 3,18, 8) = (/ &
+ & 0.14164E+00_JPRB,0.26910E+00_JPRB,0.30030E+00_JPRB,0.29254E+00_JPRB,0.19176E+00_JPRB /)  
+KB(:, 4,18, 8) = (/ &
+ & 0.14809E+00_JPRB,0.27886E+00_JPRB,0.30959E+00_JPRB,0.30073E+00_JPRB,0.19637E+00_JPRB /)  
+KB(:, 5,18, 8) = (/ &
+ & 0.15551E+00_JPRB,0.29050E+00_JPRB,0.32020E+00_JPRB,0.30930E+00_JPRB,0.20115E+00_JPRB /)  
+KB(:, 1,19, 8) = (/ &
+ & 0.11177E+00_JPRB,0.21580E+00_JPRB,0.24136E+00_JPRB,0.23552E+00_JPRB,0.15392E+00_JPRB /)  
+KB(:, 2,19, 8) = (/ &
+ & 0.11504E+00_JPRB,0.22243E+00_JPRB,0.24890E+00_JPRB,0.24304E+00_JPRB,0.15833E+00_JPRB /)  
+KB(:, 3,19, 8) = (/ &
+ & 0.11975E+00_JPRB,0.23031E+00_JPRB,0.25687E+00_JPRB,0.25048E+00_JPRB,0.16244E+00_JPRB /)  
+KB(:, 4,19, 8) = (/ &
+ & 0.12553E+00_JPRB,0.23994E+00_JPRB,0.26588E+00_JPRB,0.25812E+00_JPRB,0.16671E+00_JPRB /)  
+KB(:, 5,19, 8) = (/ &
+ & 0.13204E+00_JPRB,0.25107E+00_JPRB,0.27639E+00_JPRB,0.26629E+00_JPRB,0.17110E+00_JPRB /)  
+KB(:, 1,20, 8) = (/ &
+ & 0.93818E-01_JPRB,0.18336E+00_JPRB,0.20533E+00_JPRB,0.20083E+00_JPRB,0.13063E+00_JPRB /)  
+KB(:, 2,20, 8) = (/ &
+ & 0.97153E-01_JPRB,0.18975E+00_JPRB,0.21222E+00_JPRB,0.20754E+00_JPRB,0.13445E+00_JPRB /)  
+KB(:, 3,20, 8) = (/ &
+ & 0.10157E+00_JPRB,0.19759E+00_JPRB,0.21989E+00_JPRB,0.21439E+00_JPRB,0.13819E+00_JPRB /)  
+KB(:, 4,20, 8) = (/ &
+ & 0.10656E+00_JPRB,0.20692E+00_JPRB,0.22885E+00_JPRB,0.22170E+00_JPRB,0.14200E+00_JPRB /)  
+KB(:, 5,20, 8) = (/ &
+ & 0.11217E+00_JPRB,0.21741E+00_JPRB,0.23914E+00_JPRB,0.22972E+00_JPRB,0.14595E+00_JPRB /)  
+KB(:, 1,21, 8) = (/ &
+ & 0.78864E-01_JPRB,0.15581E+00_JPRB,0.17467E+00_JPRB,0.17111E+00_JPRB,0.11093E+00_JPRB /)  
+KB(:, 2,21, 8) = (/ &
+ & 0.82115E-01_JPRB,0.16213E+00_JPRB,0.18114E+00_JPRB,0.17722E+00_JPRB,0.11448E+00_JPRB /)  
+KB(:, 3,21, 8) = (/ &
+ & 0.86091E-01_JPRB,0.16989E+00_JPRB,0.18858E+00_JPRB,0.18368E+00_JPRB,0.11795E+00_JPRB /)  
+KB(:, 4,21, 8) = (/ &
+ & 0.90544E-01_JPRB,0.17883E+00_JPRB,0.19740E+00_JPRB,0.19075E+00_JPRB,0.12140E+00_JPRB /)  
+KB(:, 5,21, 8) = (/ &
+ & 0.95531E-01_JPRB,0.18857E+00_JPRB,0.20719E+00_JPRB,0.19872E+00_JPRB,0.12494E+00_JPRB /)  
+KB(:, 1,22, 8) = (/ &
+ & 0.66536E-01_JPRB,0.13293E+00_JPRB,0.14913E+00_JPRB,0.14618E+00_JPRB,0.94429E-01_JPRB /)  
+KB(:, 2,22, 8) = (/ &
+ & 0.69639E-01_JPRB,0.13931E+00_JPRB,0.15537E+00_JPRB,0.15187E+00_JPRB,0.97680E-01_JPRB /)  
+KB(:, 3,22, 8) = (/ &
+ & 0.73194E-01_JPRB,0.14688E+00_JPRB,0.16282E+00_JPRB,0.15805E+00_JPRB,0.10087E+00_JPRB /)  
+KB(:, 4,22, 8) = (/ &
+ & 0.77205E-01_JPRB,0.15536E+00_JPRB,0.17135E+00_JPRB,0.16503E+00_JPRB,0.10414E+00_JPRB /)  
+KB(:, 5,22, 8) = (/ &
+ & 0.81667E-01_JPRB,0.16427E+00_JPRB,0.18066E+00_JPRB,0.17291E+00_JPRB,0.10744E+00_JPRB /)  
+KB(:, 1,23, 8) = (/ &
+ & 0.56261E-01_JPRB,0.11383E+00_JPRB,0.12760E+00_JPRB,0.12512E+00_JPRB,0.80559E-01_JPRB /)  
+KB(:, 2,23, 8) = (/ &
+ & 0.59086E-01_JPRB,0.12014E+00_JPRB,0.13384E+00_JPRB,0.13048E+00_JPRB,0.83485E-01_JPRB /)  
+KB(:, 3,23, 8) = (/ &
+ & 0.62281E-01_JPRB,0.12738E+00_JPRB,0.14121E+00_JPRB,0.13648E+00_JPRB,0.86460E-01_JPRB /)  
+KB(:, 4,23, 8) = (/ &
+ & 0.65906E-01_JPRB,0.13517E+00_JPRB,0.14937E+00_JPRB,0.14336E+00_JPRB,0.89462E-01_JPRB /)  
+KB(:, 5,23, 8) = (/ &
+ & 0.69998E-01_JPRB,0.14335E+00_JPRB,0.15807E+00_JPRB,0.15098E+00_JPRB,0.92588E-01_JPRB /)  
+KB(:, 1,24, 8) = (/ &
+ & 0.47642E-01_JPRB,0.97933E-01_JPRB,0.10963E+00_JPRB,0.10742E+00_JPRB,0.68750E-01_JPRB /)  
+KB(:, 2,24, 8) = (/ &
+ & 0.50193E-01_JPRB,0.10399E+00_JPRB,0.11587E+00_JPRB,0.11258E+00_JPRB,0.71432E-01_JPRB /)  
+KB(:, 3,24, 8) = (/ &
+ & 0.53085E-01_JPRB,0.11077E+00_JPRB,0.12298E+00_JPRB,0.11845E+00_JPRB,0.74194E-01_JPRB /)  
+KB(:, 4,24, 8) = (/ &
+ & 0.56384E-01_JPRB,0.11795E+00_JPRB,0.13070E+00_JPRB,0.12512E+00_JPRB,0.76973E-01_JPRB /)  
+KB(:, 5,24, 8) = (/ &
+ & 0.60174E-01_JPRB,0.12555E+00_JPRB,0.13879E+00_JPRB,0.13237E+00_JPRB,0.79920E-01_JPRB /)  
+KB(:, 1,25, 8) = (/ &
+ & 0.40432E-01_JPRB,0.84645E-01_JPRB,0.94724E-01_JPRB,0.92637E-01_JPRB,0.58805E-01_JPRB /)  
+KB(:, 2,25, 8) = (/ &
+ & 0.42748E-01_JPRB,0.90409E-01_JPRB,0.10079E+00_JPRB,0.97654E-01_JPRB,0.61289E-01_JPRB /)  
+KB(:, 3,25, 8) = (/ &
+ & 0.45392E-01_JPRB,0.96682E-01_JPRB,0.10756E+00_JPRB,0.10341E+00_JPRB,0.63818E-01_JPRB /)  
+KB(:, 4,25, 8) = (/ &
+ & 0.48438E-01_JPRB,0.10335E+00_JPRB,0.11478E+00_JPRB,0.10978E+00_JPRB,0.66481E-01_JPRB /)  
+KB(:, 5,25, 8) = (/ &
+ & 0.52019E-01_JPRB,0.11050E+00_JPRB,0.12234E+00_JPRB,0.11664E+00_JPRB,0.69209E-01_JPRB /)  
+KB(:, 1,26, 8) = (/ &
+ & 0.34430E-01_JPRB,0.73567E-01_JPRB,0.82349E-01_JPRB,0.80341E-01_JPRB,0.50485E-01_JPRB /)  
+KB(:, 2,26, 8) = (/ &
+ & 0.36558E-01_JPRB,0.78997E-01_JPRB,0.88163E-01_JPRB,0.85293E-01_JPRB,0.52835E-01_JPRB /)  
+KB(:, 3,26, 8) = (/ &
+ & 0.39009E-01_JPRB,0.84818E-01_JPRB,0.94521E-01_JPRB,0.90851E-01_JPRB,0.55181E-01_JPRB /)  
+KB(:, 4,26, 8) = (/ &
+ & 0.41876E-01_JPRB,0.91074E-01_JPRB,0.10127E+00_JPRB,0.96922E-01_JPRB,0.57644E-01_JPRB /)  
+KB(:, 5,26, 8) = (/ &
+ & 0.45294E-01_JPRB,0.97874E-01_JPRB,0.10841E+00_JPRB,0.10340E+00_JPRB,0.60258E-01_JPRB /)  
+KB(:, 1,27, 8) = (/ &
+ & 0.29418E-01_JPRB,0.64289E-01_JPRB,0.71984E-01_JPRB,0.70112E-01_JPRB,0.43514E-01_JPRB /)  
+KB(:, 2,27, 8) = (/ &
+ & 0.31367E-01_JPRB,0.69333E-01_JPRB,0.77500E-01_JPRB,0.74945E-01_JPRB,0.45654E-01_JPRB /)  
+KB(:, 3,27, 8) = (/ &
+ & 0.33650E-01_JPRB,0.74779E-01_JPRB,0.83451E-01_JPRB,0.80284E-01_JPRB,0.47838E-01_JPRB /)  
+KB(:, 4,27, 8) = (/ &
+ & 0.36373E-01_JPRB,0.80698E-01_JPRB,0.89803E-01_JPRB,0.86035E-01_JPRB,0.50188E-01_JPRB /)  
+KB(:, 5,27, 8) = (/ &
+ & 0.39625E-01_JPRB,0.87227E-01_JPRB,0.96605E-01_JPRB,0.92163E-01_JPRB,0.52661E-01_JPRB /)  
+KB(:, 1,28, 8) = (/ &
+ & 0.25206E-01_JPRB,0.56436E-01_JPRB,0.63282E-01_JPRB,0.61571E-01_JPRB,0.37602E-01_JPRB /)  
+KB(:, 2,28, 8) = (/ &
+ & 0.27009E-01_JPRB,0.61147E-01_JPRB,0.68481E-01_JPRB,0.66237E-01_JPRB,0.39562E-01_JPRB /)  
+KB(:, 3,28, 8) = (/ &
+ & 0.29150E-01_JPRB,0.66302E-01_JPRB,0.74074E-01_JPRB,0.71341E-01_JPRB,0.41601E-01_JPRB /)  
+KB(:, 4,28, 8) = (/ &
+ & 0.31750E-01_JPRB,0.71955E-01_JPRB,0.80104E-01_JPRB,0.76785E-01_JPRB,0.43794E-01_JPRB /)  
+KB(:, 5,28, 8) = (/ &
+ & 0.34834E-01_JPRB,0.78268E-01_JPRB,0.86662E-01_JPRB,0.82632E-01_JPRB,0.46193E-01_JPRB /)  
+KB(:, 1,29, 8) = (/ &
+ & 0.21672E-01_JPRB,0.49821E-01_JPRB,0.55985E-01_JPRB,0.54431E-01_JPRB,0.32677E-01_JPRB /)  
+KB(:, 2,29, 8) = (/ &
+ & 0.23360E-01_JPRB,0.54257E-01_JPRB,0.60871E-01_JPRB,0.58918E-01_JPRB,0.34453E-01_JPRB /)  
+KB(:, 3,29, 8) = (/ &
+ & 0.25420E-01_JPRB,0.59159E-01_JPRB,0.66168E-01_JPRB,0.63765E-01_JPRB,0.36398E-01_JPRB /)  
+KB(:, 4,29, 8) = (/ &
+ & 0.27908E-01_JPRB,0.64629E-01_JPRB,0.71935E-01_JPRB,0.68977E-01_JPRB,0.38490E-01_JPRB /)  
+KB(:, 5,29, 8) = (/ &
+ & 0.30843E-01_JPRB,0.70791E-01_JPRB,0.78323E-01_JPRB,0.74610E-01_JPRB,0.40747E-01_JPRB /)  
+KB(:, 1,30, 8) = (/ &
+ & 0.18703E-01_JPRB,0.44236E-01_JPRB,0.49819E-01_JPRB,0.48423E-01_JPRB,0.28503E-01_JPRB /)  
+KB(:, 2,30, 8) = (/ &
+ & 0.20315E-01_JPRB,0.48445E-01_JPRB,0.54425E-01_JPRB,0.52720E-01_JPRB,0.30174E-01_JPRB /)  
+KB(:, 3,30, 8) = (/ &
+ & 0.22307E-01_JPRB,0.53163E-01_JPRB,0.59481E-01_JPRB,0.57359E-01_JPRB,0.32018E-01_JPRB /)  
+KB(:, 4,30, 8) = (/ &
+ & 0.24687E-01_JPRB,0.58495E-01_JPRB,0.65064E-01_JPRB,0.62368E-01_JPRB,0.34022E-01_JPRB /)  
+KB(:, 5,30, 8) = (/ &
+ & 0.27510E-01_JPRB,0.64597E-01_JPRB,0.71352E-01_JPRB,0.67860E-01_JPRB,0.36243E-01_JPRB /)  
+KB(:, 1,31, 8) = (/ &
+ & 0.16227E-01_JPRB,0.39546E-01_JPRB,0.44613E-01_JPRB,0.43384E-01_JPRB,0.24947E-01_JPRB /)  
+KB(:, 2,31, 8) = (/ &
+ & 0.17791E-01_JPRB,0.43576E-01_JPRB,0.49010E-01_JPRB,0.47501E-01_JPRB,0.26577E-01_JPRB /)  
+KB(:, 3,31, 8) = (/ &
+ & 0.19720E-01_JPRB,0.48163E-01_JPRB,0.53877E-01_JPRB,0.51962E-01_JPRB,0.28347E-01_JPRB /)  
+KB(:, 4,31, 8) = (/ &
+ & 0.22010E-01_JPRB,0.53419E-01_JPRB,0.59368E-01_JPRB,0.56842E-01_JPRB,0.30326E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART24',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,31, 8) = (/ &
+ & 0.24778E-01_JPRB,0.59533E-01_JPRB,0.65582E-01_JPRB,0.62279E-01_JPRB,0.32464E-01_JPRB /)  
+KB(:, 1,32, 8) = (/ &
+ & 0.14168E-01_JPRB,0.35610E-01_JPRB,0.40228E-01_JPRB,0.39145E-01_JPRB,0.21998E-01_JPRB /)  
+KB(:, 2,32, 8) = (/ &
+ & 0.15701E-01_JPRB,0.39518E-01_JPRB,0.44455E-01_JPRB,0.43108E-01_JPRB,0.23551E-01_JPRB /)  
+KB(:, 3,32, 8) = (/ &
+ & 0.17568E-01_JPRB,0.44028E-01_JPRB,0.49228E-01_JPRB,0.47442E-01_JPRB,0.25303E-01_JPRB /)  
+KB(:, 4,32, 8) = (/ &
+ & 0.19822E-01_JPRB,0.49274E-01_JPRB,0.54644E-01_JPRB,0.52269E-01_JPRB,0.27219E-01_JPRB /)  
+KB(:, 5,32, 8) = (/ &
+ & 0.22492E-01_JPRB,0.55429E-01_JPRB,0.60878E-01_JPRB,0.57696E-01_JPRB,0.29289E-01_JPRB /)  
+KB(:, 1,33, 8) = (/ &
+ & 0.12469E-01_JPRB,0.32321E-01_JPRB,0.36548E-01_JPRB,0.35586E-01_JPRB,0.19535E-01_JPRB /)  
+KB(:, 2,33, 8) = (/ &
+ & 0.13967E-01_JPRB,0.36160E-01_JPRB,0.40670E-01_JPRB,0.39414E-01_JPRB,0.21057E-01_JPRB /)  
+KB(:, 3,33, 8) = (/ &
+ & 0.15804E-01_JPRB,0.40646E-01_JPRB,0.45371E-01_JPRB,0.43697E-01_JPRB,0.22748E-01_JPRB /)  
+KB(:, 4,33, 8) = (/ &
+ & 0.18007E-01_JPRB,0.45935E-01_JPRB,0.50790E-01_JPRB,0.48504E-01_JPRB,0.24589E-01_JPRB /)  
+KB(:, 5,33, 8) = (/ &
+ & 0.20583E-01_JPRB,0.52117E-01_JPRB,0.57083E-01_JPRB,0.53949E-01_JPRB,0.26612E-01_JPRB /)  
+KB(:, 1,34, 8) = (/ &
+ & 0.11030E-01_JPRB,0.29462E-01_JPRB,0.33333E-01_JPRB,0.32457E-01_JPRB,0.17441E-01_JPRB /)  
+KB(:, 2,34, 8) = (/ &
+ & 0.12485E-01_JPRB,0.33252E-01_JPRB,0.37374E-01_JPRB,0.36203E-01_JPRB,0.18902E-01_JPRB /)  
+KB(:, 3,34, 8) = (/ &
+ & 0.14284E-01_JPRB,0.37735E-01_JPRB,0.42039E-01_JPRB,0.40449E-01_JPRB,0.20533E-01_JPRB /)  
+KB(:, 4,34, 8) = (/ &
+ & 0.16406E-01_JPRB,0.43050E-01_JPRB,0.47473E-01_JPRB,0.45250E-01_JPRB,0.22315E-01_JPRB /)  
+KB(:, 5,34, 8) = (/ &
+ & 0.18889E-01_JPRB,0.49221E-01_JPRB,0.53838E-01_JPRB,0.50709E-01_JPRB,0.24295E-01_JPRB /)  
+KB(:, 1,35, 8) = (/ &
+ & 0.97045E-02_JPRB,0.26765E-01_JPRB,0.30294E-01_JPRB,0.29494E-01_JPRB,0.15527E-01_JPRB /)  
+KB(:, 2,35, 8) = (/ &
+ & 0.11116E-01_JPRB,0.30471E-01_JPRB,0.34237E-01_JPRB,0.33156E-01_JPRB,0.16936E-01_JPRB /)  
+KB(:, 3,35, 8) = (/ &
+ & 0.12833E-01_JPRB,0.34908E-01_JPRB,0.38827E-01_JPRB,0.37335E-01_JPRB,0.18494E-01_JPRB /)  
+KB(:, 4,35, 8) = (/ &
+ & 0.14851E-01_JPRB,0.40160E-01_JPRB,0.44228E-01_JPRB,0.42095E-01_JPRB,0.20230E-01_JPRB /)  
+KB(:, 5,35, 8) = (/ &
+ & 0.17220E-01_JPRB,0.46275E-01_JPRB,0.50600E-01_JPRB,0.47524E-01_JPRB,0.22137E-01_JPRB /)  
+KB(:, 1,36, 8) = (/ &
+ & 0.84787E-02_JPRB,0.24131E-01_JPRB,0.27339E-01_JPRB,0.26619E-01_JPRB,0.13756E-01_JPRB /)  
+KB(:, 2,36, 8) = (/ &
+ & 0.98033E-02_JPRB,0.27706E-01_JPRB,0.31147E-01_JPRB,0.30166E-01_JPRB,0.15106E-01_JPRB /)  
+KB(:, 3,36, 8) = (/ &
+ & 0.11407E-01_JPRB,0.32015E-01_JPRB,0.35610E-01_JPRB,0.34239E-01_JPRB,0.16593E-01_JPRB /)  
+KB(:, 4,36, 8) = (/ &
+ & 0.13302E-01_JPRB,0.37140E-01_JPRB,0.40907E-01_JPRB,0.38904E-01_JPRB,0.18257E-01_JPRB /)  
+KB(:, 5,36, 8) = (/ &
+ & 0.15537E-01_JPRB,0.43129E-01_JPRB,0.47182E-01_JPRB,0.44236E-01_JPRB,0.20074E-01_JPRB /)  
+KB(:, 1,37, 8) = (/ &
+ & 0.72685E-02_JPRB,0.21392E-01_JPRB,0.24301E-01_JPRB,0.23679E-01_JPRB,0.12087E-01_JPRB /)  
+KB(:, 2,37, 8) = (/ &
+ & 0.84733E-02_JPRB,0.24759E-01_JPRB,0.27898E-01_JPRB,0.27046E-01_JPRB,0.13342E-01_JPRB /)  
+KB(:, 3,37, 8) = (/ &
+ & 0.99353E-02_JPRB,0.28848E-01_JPRB,0.32152E-01_JPRB,0.30940E-01_JPRB,0.14748E-01_JPRB /)  
+KB(:, 4,37, 8) = (/ &
+ & 0.11673E-01_JPRB,0.33734E-01_JPRB,0.37224E-01_JPRB,0.35422E-01_JPRB,0.16319E-01_JPRB /)  
+KB(:, 5,37, 8) = (/ &
+ & 0.13740E-01_JPRB,0.39481E-01_JPRB,0.43256E-01_JPRB,0.40566E-01_JPRB,0.18049E-01_JPRB /)  
+KB(:, 1,38, 8) = (/ &
+ & 0.62326E-02_JPRB,0.18999E-01_JPRB,0.21644E-01_JPRB,0.21103E-01_JPRB,0.10629E-01_JPRB /)  
+KB(:, 2,38, 8) = (/ &
+ & 0.73269E-02_JPRB,0.22170E-01_JPRB,0.25042E-01_JPRB,0.24299E-01_JPRB,0.11807E-01_JPRB /)  
+KB(:, 3,38, 8) = (/ &
+ & 0.86586E-02_JPRB,0.26045E-01_JPRB,0.29098E-01_JPRB,0.28019E-01_JPRB,0.13138E-01_JPRB /)  
+KB(:, 4,38, 8) = (/ &
+ & 0.10254E-01_JPRB,0.30699E-01_JPRB,0.33952E-01_JPRB,0.32316E-01_JPRB,0.14621E-01_JPRB /)  
+KB(:, 5,38, 8) = (/ &
+ & 0.12168E-01_JPRB,0.36211E-01_JPRB,0.39748E-01_JPRB,0.37288E-01_JPRB,0.16263E-01_JPRB /)  
+KB(:, 1,39, 8) = (/ &
+ & 0.53522E-02_JPRB,0.16925E-01_JPRB,0.19337E-01_JPRB,0.18863E-01_JPRB,0.93697E-02_JPRB /)  
+KB(:, 2,39, 8) = (/ &
+ & 0.63437E-02_JPRB,0.19916E-01_JPRB,0.22555E-01_JPRB,0.21900E-01_JPRB,0.10477E-01_JPRB /)  
+KB(:, 3,39, 8) = (/ &
+ & 0.75600E-02_JPRB,0.23590E-01_JPRB,0.26428E-01_JPRB,0.25453E-01_JPRB,0.11732E-01_JPRB /)  
+KB(:, 4,39, 8) = (/ &
+ & 0.90277E-02_JPRB,0.28027E-01_JPRB,0.31081E-01_JPRB,0.29581E-01_JPRB,0.13140E-01_JPRB /)  
+KB(:, 5,39, 8) = (/ &
+ & 0.10804E-01_JPRB,0.33325E-01_JPRB,0.36655E-01_JPRB,0.34396E-01_JPRB,0.14714E-01_JPRB /)  
+KB(:, 1,40, 8) = (/ &
+ & 0.45183E-02_JPRB,0.14862E-01_JPRB,0.17043E-01_JPRB,0.16640E-01_JPRB,0.81906E-02_JPRB /)  
+KB(:, 2,40, 8) = (/ &
+ & 0.53964E-02_JPRB,0.17630E-01_JPRB,0.20043E-01_JPRB,0.19482E-01_JPRB,0.92335E-02_JPRB /)  
+KB(:, 3,40, 8) = (/ &
+ & 0.64835E-02_JPRB,0.21041E-01_JPRB,0.23674E-01_JPRB,0.22821E-01_JPRB,0.10400E-01_JPRB /)  
+KB(:, 4,40, 8) = (/ &
+ & 0.78100E-02_JPRB,0.25197E-01_JPRB,0.28056E-01_JPRB,0.26733E-01_JPRB,0.11718E-01_JPRB /)  
+KB(:, 5,40, 8) = (/ &
+ & 0.94310E-02_JPRB,0.30203E-01_JPRB,0.33322E-01_JPRB,0.31321E-01_JPRB,0.13209E-01_JPRB /)  
+KB(:, 1,41, 8) = (/ &
+ & 0.38020E-02_JPRB,0.13035E-01_JPRB,0.15007E-01_JPRB,0.14665E-01_JPRB,0.71645E-02_JPRB /)  
+KB(:, 2,41, 8) = (/ &
+ & 0.45796E-02_JPRB,0.15592E-01_JPRB,0.17802E-01_JPRB,0.17320E-01_JPRB,0.81332E-02_JPRB /)  
+KB(:, 3,41, 8) = (/ &
+ & 0.55464E-02_JPRB,0.18749E-01_JPRB,0.21191E-01_JPRB,0.20448E-01_JPRB,0.92312E-02_JPRB /)  
+KB(:, 4,41, 8) = (/ &
+ & 0.67408E-02_JPRB,0.22629E-01_JPRB,0.25309E-01_JPRB,0.24143E-01_JPRB,0.10458E-01_JPRB /)  
+KB(:, 5,41, 8) = (/ &
+ & 0.82155E-02_JPRB,0.27347E-01_JPRB,0.30277E-01_JPRB,0.28506E-01_JPRB,0.11871E-01_JPRB /)  
+KB(:, 1,42, 8) = (/ &
+ & 0.31962E-02_JPRB,0.11444E-01_JPRB,0.13229E-01_JPRB,0.12937E-01_JPRB,0.62788E-02_JPRB /)  
+KB(:, 2,42, 8) = (/ &
+ & 0.38815E-02_JPRB,0.13798E-01_JPRB,0.15822E-01_JPRB,0.15407E-01_JPRB,0.71774E-02_JPRB /)  
+KB(:, 3,42, 8) = (/ &
+ & 0.47422E-02_JPRB,0.16722E-01_JPRB,0.18990E-01_JPRB,0.18339E-01_JPRB,0.81986E-02_JPRB /)  
+KB(:, 4,42, 8) = (/ &
+ & 0.58154E-02_JPRB,0.20342E-01_JPRB,0.22857E-01_JPRB,0.21830E-01_JPRB,0.93594E-02_JPRB /)  
+KB(:, 5,42, 8) = (/ &
+ & 0.71546E-02_JPRB,0.24787E-01_JPRB,0.27545E-01_JPRB,0.25973E-01_JPRB,0.10684E-01_JPRB /)  
+KB(:, 1,43, 8) = (/ &
+ & 0.26542E-02_JPRB,0.99421E-02_JPRB,0.11545E-01_JPRB,0.11297E-01_JPRB,0.54681E-02_JPRB /)  
+KB(:, 2,43, 8) = (/ &
+ & 0.32467E-02_JPRB,0.12085E-01_JPRB,0.13926E-01_JPRB,0.13575E-01_JPRB,0.63017E-02_JPRB /)  
+KB(:, 3,43, 8) = (/ &
+ & 0.40037E-02_JPRB,0.14758E-01_JPRB,0.16848E-01_JPRB,0.16296E-01_JPRB,0.72434E-02_JPRB /)  
+KB(:, 4,43, 8) = (/ &
+ & 0.49534E-02_JPRB,0.18094E-01_JPRB,0.20438E-01_JPRB,0.19556E-01_JPRB,0.83354E-02_JPRB /)  
+KB(:, 5,43, 8) = (/ &
+ & 0.61525E-02_JPRB,0.22230E-01_JPRB,0.24817E-01_JPRB,0.23450E-01_JPRB,0.95751E-02_JPRB /)  
+KB(:, 1,44, 8) = (/ &
+ & 0.21881E-02_JPRB,0.85857E-02_JPRB,0.10019E-01_JPRB,0.98043E-02_JPRB,0.47456E-02_JPRB /)  
+KB(:, 2,44, 8) = (/ &
+ & 0.26937E-02_JPRB,0.10525E-01_JPRB,0.12192E-01_JPRB,0.11898E-01_JPRB,0.55168E-02_JPRB /)  
+KB(:, 3,44, 8) = (/ &
+ & 0.33531E-02_JPRB,0.12952E-01_JPRB,0.14870E-01_JPRB,0.14408E-01_JPRB,0.63938E-02_JPRB /)  
+KB(:, 4,44, 8) = (/ &
+ & 0.41916E-02_JPRB,0.16016E-01_JPRB,0.18187E-01_JPRB,0.17441E-01_JPRB,0.73995E-02_JPRB /)  
+KB(:, 5,44, 8) = (/ &
+ & 0.52529E-02_JPRB,0.19825E-01_JPRB,0.22245E-01_JPRB,0.21074E-01_JPRB,0.85693E-02_JPRB /)  
+KB(:, 1,45, 8) = (/ &
+ & 0.17974E-02_JPRB,0.74036E-02_JPRB,0.86819E-02_JPRB,0.84949E-02_JPRB,0.41100E-02_JPRB /)  
+KB(:, 2,45, 8) = (/ &
+ & 0.22283E-02_JPRB,0.91556E-02_JPRB,0.10664E-01_JPRB,0.10414E-01_JPRB,0.48257E-02_JPRB /)  
+KB(:, 3,45, 8) = (/ &
+ & 0.27993E-02_JPRB,0.11360E-01_JPRB,0.13115E-01_JPRB,0.12731E-01_JPRB,0.56423E-02_JPRB /)  
+KB(:, 4,45, 8) = (/ &
+ & 0.35358E-02_JPRB,0.14164E-01_JPRB,0.16170E-01_JPRB,0.15543E-01_JPRB,0.65867E-02_JPRB /)  
+KB(:, 5,45, 8) = (/ &
+ & 0.44762E-02_JPRB,0.17671E-01_JPRB,0.19928E-01_JPRB,0.18931E-01_JPRB,0.76725E-02_JPRB /)  
+KB(:, 1,46, 8) = (/ &
+ & 0.14666E-02_JPRB,0.63443E-02_JPRB,0.74710E-02_JPRB,0.73099E-02_JPRB,0.35540E-02_JPRB /)  
+KB(:, 2,46, 8) = (/ &
+ & 0.18286E-02_JPRB,0.79140E-02_JPRB,0.92719E-02_JPRB,0.90588E-02_JPRB,0.41981E-02_JPRB /)  
+KB(:, 3,46, 8) = (/ &
+ & 0.23196E-02_JPRB,0.99089E-02_JPRB,0.11508E-01_JPRB,0.11192E-01_JPRB,0.49656E-02_JPRB /)  
+KB(:, 4,46, 8) = (/ &
+ & 0.29575E-02_JPRB,0.12451E-01_JPRB,0.14296E-01_JPRB,0.13779E-01_JPRB,0.58441E-02_JPRB /)  
+KB(:, 5,46, 8) = (/ &
+ & 0.37842E-02_JPRB,0.15662E-01_JPRB,0.17758E-01_JPRB,0.16921E-01_JPRB,0.68660E-02_JPRB /)  
+KB(:, 1,47, 8) = (/ &
+ & 0.11822E-02_JPRB,0.53700E-02_JPRB,0.63483E-02_JPRB,0.62090E-02_JPRB,0.30500E-02_JPRB /)  
+KB(:, 2,47, 8) = (/ &
+ & 0.14817E-02_JPRB,0.67616E-02_JPRB,0.79678E-02_JPRB,0.77874E-02_JPRB,0.36317E-02_JPRB /)  
+KB(:, 3,47, 8) = (/ &
+ & 0.18918E-02_JPRB,0.85392E-02_JPRB,0.99818E-02_JPRB,0.97254E-02_JPRB,0.43248E-02_JPRB /)  
+KB(:, 4,47, 8) = (/ &
+ & 0.24382E-02_JPRB,0.10820E-01_JPRB,0.12503E-01_JPRB,0.12088E-01_JPRB,0.51477E-02_JPRB /)  
+KB(:, 5,47, 8) = (/ &
+ & 0.31533E-02_JPRB,0.13725E-01_JPRB,0.15656E-01_JPRB,0.14970E-01_JPRB,0.61000E-02_JPRB /)  
+KB(:, 1,48, 8) = (/ &
+ & 0.94906E-03_JPRB,0.45298E-02_JPRB,0.53706E-02_JPRB,0.52506E-02_JPRB,0.26162E-02_JPRB /)  
+KB(:, 2,48, 8) = (/ &
+ & 0.11965E-02_JPRB,0.57597E-02_JPRB,0.68213E-02_JPRB,0.66698E-02_JPRB,0.31403E-02_JPRB /)  
+KB(:, 3,48, 8) = (/ &
+ & 0.15369E-02_JPRB,0.73380E-02_JPRB,0.86368E-02_JPRB,0.84246E-02_JPRB,0.37687E-02_JPRB /)  
+KB(:, 4,48, 8) = (/ &
+ & 0.20008E-02_JPRB,0.93814E-02_JPRB,0.10911E-01_JPRB,0.10580E-01_JPRB,0.45213E-02_JPRB /)  
+KB(:, 5,48, 8) = (/ &
+ & 0.26159E-02_JPRB,0.12002E-01_JPRB,0.13774E-01_JPRB,0.13221E-01_JPRB,0.54142E-02_JPRB /)  
+KB(:, 1,49, 8) = (/ &
+ & 0.75913E-03_JPRB,0.38043E-02_JPRB,0.45203E-02_JPRB,0.44181E-02_JPRB,0.22379E-02_JPRB /)  
+KB(:, 2,49, 8) = (/ &
+ & 0.96097E-03_JPRB,0.48899E-02_JPRB,0.58138E-02_JPRB,0.56878E-02_JPRB,0.27098E-02_JPRB /)  
+KB(:, 3,49, 8) = (/ &
+ & 0.12447E-02_JPRB,0.62895E-02_JPRB,0.74501E-02_JPRB,0.72727E-02_JPRB,0.32859E-02_JPRB /)  
+KB(:, 4,49, 8) = (/ &
+ & 0.16322E-02_JPRB,0.81122E-02_JPRB,0.94989E-02_JPRB,0.92349E-02_JPRB,0.39720E-02_JPRB /)  
+KB(:, 5,49, 8) = (/ &
+ & 0.21597E-02_JPRB,0.10470E-01_JPRB,0.12092E-01_JPRB,0.11650E-01_JPRB,0.47938E-02_JPRB /)  
+KB(:, 1,50, 8) = (/ &
+ & 0.60949E-03_JPRB,0.32009E-02_JPRB,0.38080E-02_JPRB,0.37204E-02_JPRB,0.19148E-02_JPRB /)  
+KB(:, 2,50, 8) = (/ &
+ & 0.77332E-03_JPRB,0.41637E-02_JPRB,0.49658E-02_JPRB,0.48588E-02_JPRB,0.23498E-02_JPRB /)  
+KB(:, 3,50, 8) = (/ &
+ & 0.10099E-02_JPRB,0.54095E-02_JPRB,0.64416E-02_JPRB,0.62938E-02_JPRB,0.28713E-02_JPRB /)  
+KB(:, 4,50, 8) = (/ &
+ & 0.13353E-02_JPRB,0.70417E-02_JPRB,0.83004E-02_JPRB,0.80844E-02_JPRB,0.35114E-02_JPRB /)  
+KB(:, 5,50, 8) = (/ &
+ & 0.17873E-02_JPRB,0.91691E-02_JPRB,0.10658E-01_JPRB,0.10303E-01_JPRB,0.42641E-02_JPRB /)  
+KB(:, 1,51, 8) = (/ &
+ & 0.48960E-03_JPRB,0.26873E-02_JPRB,0.32008E-02_JPRB,0.31259E-02_JPRB,0.16378E-02_JPRB /)  
+KB(:, 2,51, 8) = (/ &
+ & 0.62187E-03_JPRB,0.35423E-02_JPRB,0.42349E-02_JPRB,0.41443E-02_JPRB,0.20325E-02_JPRB /)  
+KB(:, 3,51, 8) = (/ &
+ & 0.81788E-03_JPRB,0.46529E-02_JPRB,0.55656E-02_JPRB,0.54424E-02_JPRB,0.25164E-02_JPRB /)  
+KB(:, 4,51, 8) = (/ &
+ & 0.10935E-02_JPRB,0.61155E-02_JPRB,0.72565E-02_JPRB,0.70765E-02_JPRB,0.31007E-02_JPRB /)  
+KB(:, 5,51, 8) = (/ &
+ & 0.14776E-02_JPRB,0.80416E-02_JPRB,0.94087E-02_JPRB,0.91197E-02_JPRB,0.38085E-02_JPRB /)  
+KB(:, 1,52, 8) = (/ &
+ & 0.39302E-03_JPRB,0.22435E-02_JPRB,0.26754E-02_JPRB,0.26122E-02_JPRB,0.13898E-02_JPRB /)  
+KB(:, 2,52, 8) = (/ &
+ & 0.49889E-03_JPRB,0.30006E-02_JPRB,0.35943E-02_JPRB,0.35172E-02_JPRB,0.17532E-02_JPRB /)  
+KB(:, 3,52, 8) = (/ &
+ & 0.65922E-03_JPRB,0.39906E-02_JPRB,0.47901E-02_JPRB,0.46880E-02_JPRB,0.21980E-02_JPRB /)  
+KB(:, 4,52, 8) = (/ &
+ & 0.89075E-03_JPRB,0.52980E-02_JPRB,0.63237E-02_JPRB,0.61748E-02_JPRB,0.27412E-02_JPRB /)  
+KB(:, 5,52, 8) = (/ &
+ & 0.12150E-02_JPRB,0.70312E-02_JPRB,0.82837E-02_JPRB,0.80497E-02_JPRB,0.33956E-02_JPRB /)  
+KB(:, 1,53, 8) = (/ &
+ & 0.31533E-03_JPRB,0.18598E-02_JPRB,0.22216E-02_JPRB,0.21690E-02_JPRB,0.11705E-02_JPRB /)  
+KB(:, 2,53, 8) = (/ &
+ & 0.39919E-03_JPRB,0.25290E-02_JPRB,0.30338E-02_JPRB,0.29679E-02_JPRB,0.15051E-02_JPRB /)  
+KB(:, 3,53, 8) = (/ &
+ & 0.52958E-03_JPRB,0.34096E-02_JPRB,0.41030E-02_JPRB,0.40189E-02_JPRB,0.19137E-02_JPRB /)  
+KB(:, 4,53, 8) = (/ &
+ & 0.72147E-03_JPRB,0.45756E-02_JPRB,0.54894E-02_JPRB,0.53678E-02_JPRB,0.24147E-02_JPRB /)  
+KB(:, 5,53, 8) = (/ &
+ & 0.99563E-03_JPRB,0.61321E-02_JPRB,0.72739E-02_JPRB,0.70826E-02_JPRB,0.30286E-02_JPRB /)  
+KB(:, 1,54, 8) = (/ &
+ & 0.25434E-03_JPRB,0.15477E-02_JPRB,0.18502E-02_JPRB,0.18075E-02_JPRB,0.98891E-03_JPRB /)  
+KB(:, 2,54, 8) = (/ &
+ & 0.32221E-03_JPRB,0.21398E-02_JPRB,0.25708E-02_JPRB,0.25148E-02_JPRB,0.12935E-02_JPRB /)  
+KB(:, 3,54, 8) = (/ &
+ & 0.42775E-03_JPRB,0.29272E-02_JPRB,0.35315E-02_JPRB,0.34599E-02_JPRB,0.16741E-02_JPRB /)  
+KB(:, 4,54, 8) = (/ &
+ & 0.58762E-03_JPRB,0.39761E-02_JPRB,0.47907E-02_JPRB,0.46896E-02_JPRB,0.21376E-02_JPRB /)  
+KB(:, 5,54, 8) = (/ &
+ & 0.82053E-03_JPRB,0.53824E-02_JPRB,0.64244E-02_JPRB,0.62664E-02_JPRB,0.27173E-02_JPRB /)  
+KB(:, 1,55, 8) = (/ &
+ & 0.20618E-03_JPRB,0.12866E-02_JPRB,0.15400E-02_JPRB,0.15055E-02_JPRB,0.83572E-03_JPRB /)  
+KB(:, 2,55, 8) = (/ &
+ & 0.26059E-03_JPRB,0.18094E-02_JPRB,0.21787E-02_JPRB,0.21302E-02_JPRB,0.11090E-02_JPRB /)  
+KB(:, 3,55, 8) = (/ &
+ & 0.34651E-03_JPRB,0.25140E-02_JPRB,0.30392E-02_JPRB,0.29780E-02_JPRB,0.14628E-02_JPRB /)  
+KB(:, 4,55, 8) = (/ &
+ & 0.47882E-03_JPRB,0.34608E-02_JPRB,0.41831E-02_JPRB,0.41003E-02_JPRB,0.18992E-02_JPRB /)  
+KB(:, 5,55, 8) = (/ &
+ & 0.67671E-03_JPRB,0.47331E-02_JPRB,0.56817E-02_JPRB,0.55503E-02_JPRB,0.24360E-02_JPRB /)  
+KB(:, 1,56, 8) = (/ &
+ & 0.16681E-03_JPRB,0.10621E-02_JPRB,0.12728E-02_JPRB,0.12461E-02_JPRB,0.70162E-03_JPRB /)  
+KB(:, 2,56, 8) = (/ &
+ & 0.21064E-03_JPRB,0.15213E-02_JPRB,0.18350E-02_JPRB,0.17945E-02_JPRB,0.94828E-03_JPRB /)  
+KB(:, 3,56, 8) = (/ &
+ & 0.28028E-03_JPRB,0.21500E-02_JPRB,0.26045E-02_JPRB,0.25521E-02_JPRB,0.12721E-02_JPRB /)  
+KB(:, 4,56, 8) = (/ &
+ & 0.38906E-03_JPRB,0.30029E-02_JPRB,0.36387E-02_JPRB,0.35710E-02_JPRB,0.16833E-02_JPRB /)  
+KB(:, 5,56, 8) = (/ &
+ & 0.55568E-03_JPRB,0.41534E-02_JPRB,0.50111E-02_JPRB,0.49027E-02_JPRB,0.21849E-02_JPRB /)  
+KB(:, 1,57, 8) = (/ &
+ & 0.13484E-03_JPRB,0.87168E-03_JPRB,0.10444E-02_JPRB,0.10248E-02_JPRB,0.58516E-03_JPRB /)  
+KB(:, 2,57, 8) = (/ &
+ & 0.17007E-03_JPRB,0.12717E-02_JPRB,0.15360E-02_JPRB,0.15024E-02_JPRB,0.80805E-03_JPRB /)  
+KB(:, 3,57, 8) = (/ &
+ & 0.22603E-03_JPRB,0.18296E-02_JPRB,0.22211E-02_JPRB,0.21757E-02_JPRB,0.11006E-02_JPRB /)  
+KB(:, 4,57, 8) = (/ &
+ & 0.31565E-03_JPRB,0.25963E-02_JPRB,0.31531E-02_JPRB,0.30959E-02_JPRB,0.14851E-02_JPRB /)  
+KB(:, 5,57, 8) = (/ &
+ & 0.45417E-03_JPRB,0.36365E-02_JPRB,0.44058E-02_JPRB,0.43157E-02_JPRB,0.19625E-02_JPRB /)  
+KB(:, 1,58, 8) = (/ &
+ & 0.10938E-03_JPRB,0.71449E-03_JPRB,0.85655E-03_JPRB,0.84240E-03_JPRB,0.48772E-03_JPRB /)  
+KB(:, 2,58, 8) = (/ &
+ & 0.13752E-03_JPRB,0.10624E-02_JPRB,0.12849E-02_JPRB,0.12583E-02_JPRB,0.68689E-03_JPRB /)  
+KB(:, 3,58, 8) = (/ &
+ & 0.18307E-03_JPRB,0.15572E-02_JPRB,0.18954E-02_JPRB,0.18566E-02_JPRB,0.95344E-03_JPRB /)  
+KB(:, 4,58, 8) = (/ &
+ & 0.25673E-03_JPRB,0.22481E-02_JPRB,0.27363E-02_JPRB,0.26877E-02_JPRB,0.13079E-02_JPRB /)  
+KB(:, 5,58, 8) = (/ &
+ & 0.37230E-03_JPRB,0.31921E-02_JPRB,0.38812E-02_JPRB,0.38070E-02_JPRB,0.17570E-02_JPRB /)  
+KB(:, 1,59, 8) = (/ &
+ & 0.92153E-04_JPRB,0.62798E-03_JPRB,0.75374E-03_JPRB,0.74243E-03_JPRB,0.43161E-03_JPRB /)  
+KB(:, 2,59, 8) = (/ &
+ & 0.11676E-03_JPRB,0.95019E-03_JPRB,0.11525E-02_JPRB,0.11296E-02_JPRB,0.61959E-03_JPRB /)  
+KB(:, 3,59, 8) = (/ &
+ & 0.15687E-03_JPRB,0.14168E-02_JPRB,0.17285E-02_JPRB,0.16938E-02_JPRB,0.87468E-03_JPRB /)  
+KB(:, 4,59, 8) = (/ &
+ & 0.22278E-03_JPRB,0.20743E-02_JPRB,0.25302E-02_JPRB,0.24863E-02_JPRB,0.12161E-02_JPRB /)  
+KB(:, 5,59, 8) = (/ &
+ & 0.32724E-03_JPRB,0.29797E-02_JPRB,0.36313E-02_JPRB,0.35664E-02_JPRB,0.16577E-02_JPRB /)  
+KB(:, 1,13, 9) = (/ &
+ & 0.16403E+01_JPRB,0.27290E+01_JPRB,0.31326E+01_JPRB,0.31890E+01_JPRB,0.23307E+01_JPRB /)  
+KB(:, 2,13, 9) = (/ &
+ & 0.16862E+01_JPRB,0.27611E+01_JPRB,0.31617E+01_JPRB,0.32226E+01_JPRB,0.23816E+01_JPRB /)  
+KB(:, 3,13, 9) = (/ &
+ & 0.17455E+01_JPRB,0.28101E+01_JPRB,0.32005E+01_JPRB,0.32552E+01_JPRB,0.24291E+01_JPRB /)  
+KB(:, 4,13, 9) = (/ &
+ & 0.18100E+01_JPRB,0.28758E+01_JPRB,0.32471E+01_JPRB,0.32901E+01_JPRB,0.24729E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART25',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,13, 9) = (/ &
+ & 0.18736E+01_JPRB,0.29528E+01_JPRB,0.33027E+01_JPRB,0.33291E+01_JPRB,0.25126E+01_JPRB /)  
+KB(:, 1,14, 9) = (/ &
+ & 0.14276E+01_JPRB,0.24116E+01_JPRB,0.27645E+01_JPRB,0.28207E+01_JPRB,0.20786E+01_JPRB /)  
+KB(:, 2,14, 9) = (/ &
+ & 0.14761E+01_JPRB,0.24553E+01_JPRB,0.28027E+01_JPRB,0.28564E+01_JPRB,0.21275E+01_JPRB /)  
+KB(:, 3,14, 9) = (/ &
+ & 0.15303E+01_JPRB,0.25161E+01_JPRB,0.28501E+01_JPRB,0.28940E+01_JPRB,0.21750E+01_JPRB /)  
+KB(:, 4,14, 9) = (/ &
+ & 0.15845E+01_JPRB,0.25879E+01_JPRB,0.29061E+01_JPRB,0.29354E+01_JPRB,0.22167E+01_JPRB /)  
+KB(:, 5,14, 9) = (/ &
+ & 0.16378E+01_JPRB,0.26632E+01_JPRB,0.29707E+01_JPRB,0.29827E+01_JPRB,0.22552E+01_JPRB /)  
+KB(:, 1,15, 9) = (/ &
+ & 0.12454E+01_JPRB,0.21329E+01_JPRB,0.24382E+01_JPRB,0.24839E+01_JPRB,0.18332E+01_JPRB /)  
+KB(:, 2,15, 9) = (/ &
+ & 0.12895E+01_JPRB,0.21869E+01_JPRB,0.24841E+01_JPRB,0.25234E+01_JPRB,0.18816E+01_JPRB /)  
+KB(:, 3,15, 9) = (/ &
+ & 0.13344E+01_JPRB,0.22528E+01_JPRB,0.25385E+01_JPRB,0.25663E+01_JPRB,0.19251E+01_JPRB /)  
+KB(:, 4,15, 9) = (/ &
+ & 0.13794E+01_JPRB,0.23234E+01_JPRB,0.26021E+01_JPRB,0.26153E+01_JPRB,0.19652E+01_JPRB /)  
+KB(:, 5,15, 9) = (/ &
+ & 0.14250E+01_JPRB,0.23931E+01_JPRB,0.26727E+01_JPRB,0.26688E+01_JPRB,0.20043E+01_JPRB /)  
+KB(:, 1,16, 9) = (/ &
+ & 0.10848E+01_JPRB,0.18880E+01_JPRB,0.21511E+01_JPRB,0.21813E+01_JPRB,0.16071E+01_JPRB /)  
+KB(:, 2,16, 9) = (/ &
+ & 0.11214E+01_JPRB,0.19471E+01_JPRB,0.22027E+01_JPRB,0.22246E+01_JPRB,0.16520E+01_JPRB /)  
+KB(:, 3,16, 9) = (/ &
+ & 0.11587E+01_JPRB,0.20122E+01_JPRB,0.22636E+01_JPRB,0.22737E+01_JPRB,0.16924E+01_JPRB /)  
+KB(:, 4,16, 9) = (/ &
+ & 0.11968E+01_JPRB,0.20768E+01_JPRB,0.23313E+01_JPRB,0.23282E+01_JPRB,0.17327E+01_JPRB /)  
+KB(:, 5,16, 9) = (/ &
+ & 0.12369E+01_JPRB,0.21393E+01_JPRB,0.24028E+01_JPRB,0.23861E+01_JPRB,0.17713E+01_JPRB /)  
+KB(:, 1,17, 9) = (/ &
+ & 0.94054E+00_JPRB,0.16727E+01_JPRB,0.18972E+01_JPRB,0.19128E+01_JPRB,0.14046E+01_JPRB /)  
+KB(:, 2,17, 9) = (/ &
+ & 0.97101E+00_JPRB,0.17314E+01_JPRB,0.19542E+01_JPRB,0.19610E+01_JPRB,0.14464E+01_JPRB /)  
+KB(:, 3,17, 9) = (/ &
+ & 0.10024E+01_JPRB,0.17905E+01_JPRB,0.20183E+01_JPRB,0.20147E+01_JPRB,0.14867E+01_JPRB /)  
+KB(:, 4,17, 9) = (/ &
+ & 0.10357E+01_JPRB,0.18485E+01_JPRB,0.20868E+01_JPRB,0.20722E+01_JPRB,0.15247E+01_JPRB /)  
+KB(:, 5,17, 9) = (/ &
+ & 0.10722E+01_JPRB,0.19059E+01_JPRB,0.21551E+01_JPRB,0.21344E+01_JPRB,0.15620E+01_JPRB /)  
+KB(:, 1,18, 9) = (/ &
+ & 0.81293E+00_JPRB,0.14815E+01_JPRB,0.16736E+01_JPRB,0.16776E+01_JPRB,0.12272E+01_JPRB /)  
+KB(:, 2,18, 9) = (/ &
+ & 0.83847E+00_JPRB,0.15352E+01_JPRB,0.17337E+01_JPRB,0.17293E+01_JPRB,0.12665E+01_JPRB /)  
+KB(:, 3,18, 9) = (/ &
+ & 0.86557E+00_JPRB,0.15883E+01_JPRB,0.17983E+01_JPRB,0.17854E+01_JPRB,0.13052E+01_JPRB /)  
+KB(:, 4,18, 9) = (/ &
+ & 0.89549E+00_JPRB,0.16413E+01_JPRB,0.18633E+01_JPRB,0.18465E+01_JPRB,0.13420E+01_JPRB /)  
+KB(:, 5,18, 9) = (/ &
+ & 0.92973E+00_JPRB,0.16952E+01_JPRB,0.19268E+01_JPRB,0.19102E+01_JPRB,0.13778E+01_JPRB /)  
+KB(:, 1,19, 9) = (/ &
+ & 0.70038E+00_JPRB,0.13093E+01_JPRB,0.14779E+01_JPRB,0.14733E+01_JPRB,0.10709E+01_JPRB /)  
+KB(:, 2,19, 9) = (/ &
+ & 0.72263E+00_JPRB,0.13577E+01_JPRB,0.15381E+01_JPRB,0.15268E+01_JPRB,0.11090E+01_JPRB /)  
+KB(:, 3,19, 9) = (/ &
+ & 0.74709E+00_JPRB,0.14065E+01_JPRB,0.15995E+01_JPRB,0.15853E+01_JPRB,0.11457E+01_JPRB /)  
+KB(:, 4,19, 9) = (/ &
+ & 0.77505E+00_JPRB,0.14562E+01_JPRB,0.16599E+01_JPRB,0.16467E+01_JPRB,0.11819E+01_JPRB /)  
+KB(:, 5,19, 9) = (/ &
+ & 0.80778E+00_JPRB,0.15082E+01_JPRB,0.17205E+01_JPRB,0.17095E+01_JPRB,0.12170E+01_JPRB /)  
+KB(:, 1,20, 9) = (/ &
+ & 0.60096E+00_JPRB,0.11549E+01_JPRB,0.13070E+01_JPRB,0.12966E+01_JPRB,0.93504E+00_JPRB /)  
+KB(:, 2,20, 9) = (/ &
+ & 0.62117E+00_JPRB,0.11996E+01_JPRB,0.13644E+01_JPRB,0.13518E+01_JPRB,0.97145E+00_JPRB /)  
+KB(:, 3,20, 9) = (/ &
+ & 0.64437E+00_JPRB,0.12456E+01_JPRB,0.14215E+01_JPRB,0.14105E+01_JPRB,0.10075E+01_JPRB /)  
+KB(:, 4,20, 9) = (/ &
+ & 0.67172E+00_JPRB,0.12935E+01_JPRB,0.14792E+01_JPRB,0.14711E+01_JPRB,0.10425E+01_JPRB /)  
+KB(:, 5,20, 9) = (/ &
+ & 0.70425E+00_JPRB,0.13447E+01_JPRB,0.15379E+01_JPRB,0.15320E+01_JPRB,0.10771E+01_JPRB /)  
+KB(:, 1,21, 9) = (/ &
+ & 0.51409E+00_JPRB,0.10184E+01_JPRB,0.11562E+01_JPRB,0.11440E+01_JPRB,0.81589E+00_JPRB /)  
+KB(:, 2,21, 9) = (/ &
+ & 0.53296E+00_JPRB,0.10604E+01_JPRB,0.12096E+01_JPRB,0.11991E+01_JPRB,0.85095E+00_JPRB /)  
+KB(:, 3,21, 9) = (/ &
+ & 0.55527E+00_JPRB,0.11043E+01_JPRB,0.12638E+01_JPRB,0.12567E+01_JPRB,0.88570E+00_JPRB /)  
+KB(:, 4,21, 9) = (/ &
+ & 0.58243E+00_JPRB,0.11512E+01_JPRB,0.13194E+01_JPRB,0.13151E+01_JPRB,0.92023E+00_JPRB /)  
+KB(:, 5,21, 9) = (/ &
+ & 0.61501E+00_JPRB,0.12017E+01_JPRB,0.13771E+01_JPRB,0.13737E+01_JPRB,0.95470E+00_JPRB /)  
+KB(:, 1,22, 9) = (/ &
+ & 0.44038E+00_JPRB,0.90186E+00_JPRB,0.10262E+01_JPRB,0.10153E+01_JPRB,0.71382E+00_JPRB /)  
+KB(:, 2,22, 9) = (/ &
+ & 0.45853E+00_JPRB,0.94198E+00_JPRB,0.10770E+01_JPRB,0.10695E+01_JPRB,0.74736E+00_JPRB /)  
+KB(:, 3,22, 9) = (/ &
+ & 0.48068E+00_JPRB,0.98449E+00_JPRB,0.11290E+01_JPRB,0.11248E+01_JPRB,0.78150E+00_JPRB /)  
+KB(:, 4,22, 9) = (/ &
+ & 0.50812E+00_JPRB,0.10306E+01_JPRB,0.11833E+01_JPRB,0.11809E+01_JPRB,0.81518E+00_JPRB /)  
+KB(:, 5,22, 9) = (/ &
+ & 0.54141E+00_JPRB,0.10817E+01_JPRB,0.12405E+01_JPRB,0.12383E+01_JPRB,0.84849E+00_JPRB /)  
+KB(:, 1,23, 9) = (/ &
+ & 0.37767E+00_JPRB,0.80078E+00_JPRB,0.91306E+00_JPRB,0.90433E+00_JPRB,0.62612E+00_JPRB /)  
+KB(:, 2,23, 9) = (/ &
+ & 0.39558E+00_JPRB,0.83957E+00_JPRB,0.96154E+00_JPRB,0.95658E+00_JPRB,0.65837E+00_JPRB /)  
+KB(:, 3,23, 9) = (/ &
+ & 0.41794E+00_JPRB,0.88149E+00_JPRB,0.10123E+01_JPRB,0.10097E+01_JPRB,0.69117E+00_JPRB /)  
+KB(:, 4,23, 9) = (/ &
+ & 0.44579E+00_JPRB,0.92784E+00_JPRB,0.10657E+01_JPRB,0.10643E+01_JPRB,0.72352E+00_JPRB /)  
+KB(:, 5,23, 9) = (/ &
+ & 0.47930E+00_JPRB,0.97981E+00_JPRB,0.11229E+01_JPRB,0.11209E+01_JPRB,0.75697E+00_JPRB /)  
+KB(:, 1,24, 9) = (/ &
+ & 0.32501E+00_JPRB,0.71314E+00_JPRB,0.81551E+00_JPRB,0.80817E+00_JPRB,0.55055E+00_JPRB /)  
+KB(:, 2,24, 9) = (/ &
+ & 0.34301E+00_JPRB,0.75171E+00_JPRB,0.86229E+00_JPRB,0.85830E+00_JPRB,0.58144E+00_JPRB /)  
+KB(:, 3,24, 9) = (/ &
+ & 0.36572E+00_JPRB,0.79385E+00_JPRB,0.91196E+00_JPRB,0.91014E+00_JPRB,0.61242E+00_JPRB /)  
+KB(:, 4,24, 9) = (/ &
+ & 0.39391E+00_JPRB,0.84084E+00_JPRB,0.96525E+00_JPRB,0.96386E+00_JPRB,0.64468E+00_JPRB /)  
+KB(:, 5,24, 9) = (/ &
+ & 0.42682E+00_JPRB,0.89378E+00_JPRB,0.10230E+01_JPRB,0.10202E+01_JPRB,0.67755E+00_JPRB /)  
+KB(:, 1,25, 9) = (/ &
+ & 0.28120E+00_JPRB,0.63782E+00_JPRB,0.73197E+00_JPRB,0.72532E+00_JPRB,0.48624E+00_JPRB /)  
+KB(:, 2,25, 9) = (/ &
+ & 0.29939E+00_JPRB,0.67672E+00_JPRB,0.77772E+00_JPRB,0.77395E+00_JPRB,0.51566E+00_JPRB /)  
+KB(:, 3,25, 9) = (/ &
+ & 0.32259E+00_JPRB,0.71969E+00_JPRB,0.82682E+00_JPRB,0.82484E+00_JPRB,0.54562E+00_JPRB /)  
+KB(:, 4,25, 9) = (/ &
+ & 0.35054E+00_JPRB,0.76785E+00_JPRB,0.88040E+00_JPRB,0.87836E+00_JPRB,0.57709E+00_JPRB /)  
+KB(:, 5,25, 9) = (/ &
+ & 0.38231E+00_JPRB,0.82200E+00_JPRB,0.93896E+00_JPRB,0.93503E+00_JPRB,0.60997E+00_JPRB /)  
+KB(:, 1,26, 9) = (/ &
+ & 0.24516E+00_JPRB,0.57415E+00_JPRB,0.66146E+00_JPRB,0.65501E+00_JPRB,0.43198E+00_JPRB /)  
+KB(:, 2,26, 9) = (/ &
+ & 0.26380E+00_JPRB,0.61364E+00_JPRB,0.70651E+00_JPRB,0.70261E+00_JPRB,0.46025E+00_JPRB /)  
+KB(:, 3,26, 9) = (/ &
+ & 0.28716E+00_JPRB,0.65790E+00_JPRB,0.75577E+00_JPRB,0.75300E+00_JPRB,0.48987E+00_JPRB /)  
+KB(:, 4,26, 9) = (/ &
+ & 0.31438E+00_JPRB,0.70747E+00_JPRB,0.80990E+00_JPRB,0.80672E+00_JPRB,0.52086E+00_JPRB /)  
+KB(:, 5,26, 9) = (/ &
+ & 0.34509E+00_JPRB,0.76331E+00_JPRB,0.86957E+00_JPRB,0.86437E+00_JPRB,0.55315E+00_JPRB /)  
+KB(:, 1,27, 9) = (/ &
+ & 0.21544E+00_JPRB,0.52037E+00_JPRB,0.60144E+00_JPRB,0.59535E+00_JPRB,0.38600E+00_JPRB /)  
+KB(:, 2,27, 9) = (/ &
+ & 0.23456E+00_JPRB,0.56067E+00_JPRB,0.64661E+00_JPRB,0.64229E+00_JPRB,0.41342E+00_JPRB /)  
+KB(:, 3,27, 9) = (/ &
+ & 0.25766E+00_JPRB,0.60633E+00_JPRB,0.69633E+00_JPRB,0.69257E+00_JPRB,0.44235E+00_JPRB /)  
+KB(:, 4,27, 9) = (/ &
+ & 0.28405E+00_JPRB,0.65751E+00_JPRB,0.75133E+00_JPRB,0.74692E+00_JPRB,0.47298E+00_JPRB /)  
+KB(:, 5,27, 9) = (/ &
+ & 0.31370E+00_JPRB,0.71529E+00_JPRB,0.81234E+00_JPRB,0.80601E+00_JPRB,0.50534E+00_JPRB /)  
+KB(:, 1,28, 9) = (/ &
+ & 0.19107E+00_JPRB,0.47529E+00_JPRB,0.55077E+00_JPRB,0.54503E+00_JPRB,0.34666E+00_JPRB /)  
+KB(:, 2,28, 9) = (/ &
+ & 0.21041E+00_JPRB,0.51675E+00_JPRB,0.59653E+00_JPRB,0.59172E+00_JPRB,0.37350E+00_JPRB /)  
+KB(:, 3,28, 9) = (/ &
+ & 0.23301E+00_JPRB,0.56364E+00_JPRB,0.64698E+00_JPRB,0.64221E+00_JPRB,0.40186E+00_JPRB /)  
+KB(:, 4,28, 9) = (/ &
+ & 0.25866E+00_JPRB,0.61667E+00_JPRB,0.70320E+00_JPRB,0.69763E+00_JPRB,0.43205E+00_JPRB /)  
+KB(:, 5,28, 9) = (/ &
+ & 0.28710E+00_JPRB,0.67650E+00_JPRB,0.76586E+00_JPRB,0.75834E+00_JPRB,0.46367E+00_JPRB /)  
+KB(:, 1,29, 9) = (/ &
+ & 0.17112E+00_JPRB,0.43830E+00_JPRB,0.50881E+00_JPRB,0.50311E+00_JPRB,0.31371E+00_JPRB /)  
+KB(:, 2,29, 9) = (/ &
+ & 0.19046E+00_JPRB,0.48081E+00_JPRB,0.55535E+00_JPRB,0.54996E+00_JPRB,0.34018E+00_JPRB /)  
+KB(:, 3,29, 9) = (/ &
+ & 0.21264E+00_JPRB,0.52926E+00_JPRB,0.60692E+00_JPRB,0.60125E+00_JPRB,0.36829E+00_JPRB /)  
+KB(:, 4,29, 9) = (/ &
+ & 0.23734E+00_JPRB,0.58428E+00_JPRB,0.66473E+00_JPRB,0.65816E+00_JPRB,0.39807E+00_JPRB /)  
+KB(:, 5,29, 9) = (/ &
+ & 0.26483E+00_JPRB,0.64604E+00_JPRB,0.72961E+00_JPRB,0.72085E+00_JPRB,0.42916E+00_JPRB /)  
+KB(:, 1,30, 9) = (/ &
+ & 0.15474E+00_JPRB,0.40804E+00_JPRB,0.47416E+00_JPRB,0.46844E+00_JPRB,0.28591E+00_JPRB /)  
+KB(:, 2,30, 9) = (/ &
+ & 0.17385E+00_JPRB,0.45175E+00_JPRB,0.52179E+00_JPRB,0.51582E+00_JPRB,0.31208E+00_JPRB /)  
+KB(:, 3,30, 9) = (/ &
+ & 0.19550E+00_JPRB,0.50197E+00_JPRB,0.57484E+00_JPRB,0.56852E+00_JPRB,0.33963E+00_JPRB /)  
+KB(:, 4,30, 9) = (/ &
+ & 0.21942E+00_JPRB,0.55897E+00_JPRB,0.63459E+00_JPRB,0.62718E+00_JPRB,0.36926E+00_JPRB /)  
+KB(:, 5,30, 9) = (/ &
+ & 0.24626E+00_JPRB,0.62254E+00_JPRB,0.70206E+00_JPRB,0.69222E+00_JPRB,0.40317E+00_JPRB /)  
+KB(:, 1,31, 9) = (/ &
+ & 0.14123E+00_JPRB,0.38383E+00_JPRB,0.44627E+00_JPRB,0.44042E+00_JPRB,0.26282E+00_JPRB /)  
+KB(:, 2,31, 9) = (/ &
+ & 0.16008E+00_JPRB,0.42905E+00_JPRB,0.49523E+00_JPRB,0.48891E+00_JPRB,0.28832E+00_JPRB /)  
+KB(:, 3,31, 9) = (/ &
+ & 0.18115E+00_JPRB,0.48120E+00_JPRB,0.55018E+00_JPRB,0.54338E+00_JPRB,0.31669E+00_JPRB /)  
+KB(:, 4,31, 9) = (/ &
+ & 0.20456E+00_JPRB,0.54014E+00_JPRB,0.61227E+00_JPRB,0.60422E+00_JPRB,0.34861E+00_JPRB /)  
+KB(:, 5,31, 9) = (/ &
+ & 0.23090E+00_JPRB,0.60549E+00_JPRB,0.68253E+00_JPRB,0.67193E+00_JPRB,0.38334E+00_JPRB /)  
+KB(:, 1,32, 9) = (/ &
+ & 0.13011E+00_JPRB,0.36494E+00_JPRB,0.42434E+00_JPRB,0.41840E+00_JPRB,0.24343E+00_JPRB /)  
+KB(:, 2,32, 9) = (/ &
+ & 0.14859E+00_JPRB,0.41192E+00_JPRB,0.47502E+00_JPRB,0.46846E+00_JPRB,0.27034E+00_JPRB /)  
+KB(:, 3,32, 9) = (/ &
+ & 0.16925E+00_JPRB,0.46604E+00_JPRB,0.53210E+00_JPRB,0.52502E+00_JPRB,0.30012E+00_JPRB /)  
+KB(:, 4,32, 9) = (/ &
+ & 0.19229E+00_JPRB,0.52692E+00_JPRB,0.59693E+00_JPRB,0.58841E+00_JPRB,0.33258E+00_JPRB /)  
+KB(:, 5,32, 9) = (/ &
+ & 0.21839E+00_JPRB,0.59419E+00_JPRB,0.67028E+00_JPRB,0.65920E+00_JPRB,0.36819E+00_JPRB /)  
+KB(:, 1,33, 9) = (/ &
+ & 0.12092E+00_JPRB,0.35074E+00_JPRB,0.40776E+00_JPRB,0.40175E+00_JPRB,0.22934E+00_JPRB /)  
+KB(:, 2,33, 9) = (/ &
+ & 0.13904E+00_JPRB,0.39967E+00_JPRB,0.46044E+00_JPRB,0.45383E+00_JPRB,0.25698E+00_JPRB /)  
+KB(:, 3,33, 9) = (/ &
+ & 0.15944E+00_JPRB,0.45574E+00_JPRB,0.51998E+00_JPRB,0.51285E+00_JPRB,0.28727E+00_JPRB /)  
+KB(:, 4,33, 9) = (/ &
+ & 0.18230E+00_JPRB,0.51859E+00_JPRB,0.58782E+00_JPRB,0.57914E+00_JPRB,0.32052E+00_JPRB /)  
+KB(:, 5,33, 9) = (/ &
+ & 0.20843E+00_JPRB,0.58793E+00_JPRB,0.66452E+00_JPRB,0.65307E+00_JPRB,0.35723E+00_JPRB /)  
+KB(:, 1,34, 9) = (/ &
+ & 0.11270E+00_JPRB,0.33906E+00_JPRB,0.39419E+00_JPRB,0.38828E+00_JPRB,0.21761E+00_JPRB /)  
+KB(:, 2,34, 9) = (/ &
+ & 0.13054E+00_JPRB,0.38970E+00_JPRB,0.44887E+00_JPRB,0.44251E+00_JPRB,0.24563E+00_JPRB /)  
+KB(:, 3,34, 9) = (/ &
+ & 0.15070E+00_JPRB,0.44751E+00_JPRB,0.51092E+00_JPRB,0.50399E+00_JPRB,0.27652E+00_JPRB /)  
+KB(:, 4,34, 9) = (/ &
+ & 0.17349E+00_JPRB,0.51224E+00_JPRB,0.58169E+00_JPRB,0.57301E+00_JPRB,0.31064E+00_JPRB /)  
+KB(:, 5,34, 9) = (/ &
+ & 0.19973E+00_JPRB,0.58363E+00_JPRB,0.66163E+00_JPRB,0.64989E+00_JPRB,0.34860E+00_JPRB /)  
+KB(:, 1,35, 9) = (/ &
+ & 0.10431E+00_JPRB,0.32621E+00_JPRB,0.37969E+00_JPRB,0.37421E+00_JPRB,0.20589E+00_JPRB /)  
+KB(:, 2,35, 9) = (/ &
+ & 0.12172E+00_JPRB,0.37794E+00_JPRB,0.43594E+00_JPRB,0.43005E+00_JPRB,0.23415E+00_JPRB /)  
+KB(:, 3,35, 9) = (/ &
+ & 0.14155E+00_JPRB,0.43696E+00_JPRB,0.49993E+00_JPRB,0.49338E+00_JPRB,0.26546E+00_JPRB /)  
+KB(:, 4,35, 9) = (/ &
+ & 0.16416E+00_JPRB,0.50303E+00_JPRB,0.57285E+00_JPRB,0.56442E+00_JPRB,0.30031E+00_JPRB /)  
+KB(:, 5,35, 9) = (/ &
+ & 0.19033E+00_JPRB,0.57592E+00_JPRB,0.65509E+00_JPRB,0.64342E+00_JPRB,0.33926E+00_JPRB /)  
+KB(:, 1,36, 9) = (/ &
+ & 0.95441E-01_JPRB,0.31093E+00_JPRB,0.36283E+00_JPRB,0.35795E+00_JPRB,0.19348E+00_JPRB /)  
+KB(:, 2,36, 9) = (/ &
+ & 0.11226E+00_JPRB,0.36299E+00_JPRB,0.41996E+00_JPRB,0.41468E+00_JPRB,0.22173E+00_JPRB /)  
+KB(:, 3,36, 9) = (/ &
+ & 0.13160E+00_JPRB,0.42251E+00_JPRB,0.48508E+00_JPRB,0.47906E+00_JPRB,0.25327E+00_JPRB /)  
+KB(:, 4,36, 9) = (/ &
+ & 0.15379E+00_JPRB,0.48924E+00_JPRB,0.55909E+00_JPRB,0.55119E+00_JPRB,0.28853E+00_JPRB /)  
+KB(:, 5,36, 9) = (/ &
+ & 0.17959E+00_JPRB,0.56298E+00_JPRB,0.64257E+00_JPRB,0.63136E+00_JPRB,0.32808E+00_JPRB /)  
+KB(:, 1,37, 9) = (/ &
+ & 0.85477E-01_JPRB,0.29072E+00_JPRB,0.34067E+00_JPRB,0.33658E+00_JPRB,0.17886E+00_JPRB /)  
+KB(:, 2,37, 9) = (/ &
+ & 0.10144E+00_JPRB,0.34200E+00_JPRB,0.39763E+00_JPRB,0.39300E+00_JPRB,0.20669E+00_JPRB /)  
+KB(:, 3,37, 9) = (/ &
+ & 0.11996E+00_JPRB,0.40095E+00_JPRB,0.46252E+00_JPRB,0.45719E+00_JPRB,0.23796E+00_JPRB /)  
+KB(:, 4,37, 9) = (/ &
+ & 0.14137E+00_JPRB,0.46732E+00_JPRB,0.53621E+00_JPRB,0.52913E+00_JPRB,0.27304E+00_JPRB /)  
+KB(:, 5,37, 9) = (/ &
+ & 0.16629E+00_JPRB,0.54086E+00_JPRB,0.61939E+00_JPRB,0.60918E+00_JPRB,0.31246E+00_JPRB /)  
+KB(:, 1,38, 9) = (/ &
+ & 0.76626E-01_JPRB,0.27223E+00_JPRB,0.32047E+00_JPRB,0.31724E+00_JPRB,0.16576E+00_JPRB /)  
+KB(:, 2,38, 9) = (/ &
+ & 0.91774E-01_JPRB,0.32273E+00_JPRB,0.37721E+00_JPRB,0.37319E+00_JPRB,0.19315E+00_JPRB /)  
+KB(:, 3,38, 9) = (/ &
+ & 0.10950E+00_JPRB,0.38104E+00_JPRB,0.44177E+00_JPRB,0.43708E+00_JPRB,0.22413E+00_JPRB /)  
+KB(:, 4,38, 9) = (/ &
+ & 0.13015E+00_JPRB,0.44697E+00_JPRB,0.51498E+00_JPRB,0.50870E+00_JPRB,0.25903E+00_JPRB /)  
+KB(:, 5,38, 9) = (/ &
+ & 0.15424E+00_JPRB,0.52018E+00_JPRB,0.59766E+00_JPRB,0.58842E+00_JPRB,0.29827E+00_JPRB /)  
+KB(:, 1,39, 9) = (/ &
+ & 0.68857E-01_JPRB,0.25564E+00_JPRB,0.30247E+00_JPRB,0.30005E+00_JPRB,0.15419E+00_JPRB /)  
+KB(:, 2,39, 9) = (/ &
+ & 0.83231E-01_JPRB,0.30541E+00_JPRB,0.35891E+00_JPRB,0.35551E+00_JPRB,0.18117E+00_JPRB /)  
+KB(:, 3,39, 9) = (/ &
+ & 0.10022E+00_JPRB,0.36305E+00_JPRB,0.42306E+00_JPRB,0.41901E+00_JPRB,0.21190E+00_JPRB /)  
+KB(:, 4,39, 9) = (/ &
+ & 0.12015E+00_JPRB,0.42854E+00_JPRB,0.49574E+00_JPRB,0.49023E+00_JPRB,0.24662E+00_JPRB /)  
+KB(:, 5,39, 9) = (/ &
+ & 0.14353E+00_JPRB,0.50140E+00_JPRB,0.57784E+00_JPRB,0.56950E+00_JPRB,0.28564E+00_JPRB /)  
+KB(:, 1,40, 9) = (/ &
+ & 0.60721E-01_JPRB,0.23607E+00_JPRB,0.28098E+00_JPRB,0.27949E+00_JPRB,0.14134E+00_JPRB /)  
+KB(:, 2,40, 9) = (/ &
+ & 0.74142E-01_JPRB,0.28436E+00_JPRB,0.33629E+00_JPRB,0.33356E+00_JPRB,0.16758E+00_JPRB /)  
+KB(:, 3,40, 9) = (/ &
+ & 0.90161E-01_JPRB,0.34051E+00_JPRB,0.39918E+00_JPRB,0.39576E+00_JPRB,0.19765E+00_JPRB /)  
+KB(:, 4,40, 9) = (/ &
+ & 0.10909E+00_JPRB,0.40469E+00_JPRB,0.47035E+00_JPRB,0.46571E+00_JPRB,0.23173E+00_JPRB /)  
+KB(:, 5,40, 9) = (/ &
+ & 0.13146E+00_JPRB,0.47643E+00_JPRB,0.55083E+00_JPRB,0.54364E+00_JPRB,0.27006E+00_JPRB /)  
+KB(:, 1,41, 9) = (/ &
+ & 0.53403E-01_JPRB,0.21760E+00_JPRB,0.26060E+00_JPRB,0.26004E+00_JPRB,0.12944E+00_JPRB /)  
+KB(:, 2,41, 9) = (/ &
+ & 0.65918E-01_JPRB,0.26438E+00_JPRB,0.31466E+00_JPRB,0.31265E+00_JPRB,0.15490E+00_JPRB /)  
+KB(:, 3,41, 9) = (/ &
+ & 0.80936E-01_JPRB,0.31888E+00_JPRB,0.37609E+00_JPRB,0.37327E+00_JPRB,0.18421E+00_JPRB /)  
+KB(:, 4,41, 9) = (/ &
+ & 0.98889E-01_JPRB,0.38155E+00_JPRB,0.44565E+00_JPRB,0.44176E+00_JPRB,0.21756E+00_JPRB /)  
+KB(:, 5,41, 9) = (/ &
+ & 0.12024E+00_JPRB,0.45195E+00_JPRB,0.52424E+00_JPRB,0.51812E+00_JPRB,0.25511E+00_JPRB /)  
+KB(:, 1,42, 9) = (/ &
+ & 0.46980E-01_JPRB,0.20072E+00_JPRB,0.24188E+00_JPRB,0.24222E+00_JPRB,0.11863E+00_JPRB /)  
+KB(:, 2,42, 9) = (/ &
+ & 0.58572E-01_JPRB,0.24586E+00_JPRB,0.29443E+00_JPRB,0.29314E+00_JPRB,0.14330E+00_JPRB /)  
+KB(:, 3,42, 9) = (/ &
+ & 0.72653E-01_JPRB,0.29875E+00_JPRB,0.35445E+00_JPRB,0.35212E+00_JPRB,0.17184E+00_JPRB /)  
+KB(:, 4,42, 9) = (/ &
+ & 0.89663E-01_JPRB,0.35979E+00_JPRB,0.42236E+00_JPRB,0.41911E+00_JPRB,0.20443E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART26',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,42, 9) = (/ &
+ & 0.11004E+00_JPRB,0.42873E+00_JPRB,0.49904E+00_JPRB,0.49389E+00_JPRB,0.24118E+00_JPRB /)  
+KB(:, 1,43, 9) = (/ &
+ & 0.40748E-01_JPRB,0.18301E+00_JPRB,0.22189E+00_JPRB,0.22309E+00_JPRB,0.10752E+00_JPRB /)  
+KB(:, 2,43, 9) = (/ &
+ & 0.51357E-01_JPRB,0.22603E+00_JPRB,0.27246E+00_JPRB,0.27198E+00_JPRB,0.13119E+00_JPRB /)  
+KB(:, 3,43, 9) = (/ &
+ & 0.64381E-01_JPRB,0.27684E+00_JPRB,0.33058E+00_JPRB,0.32881E+00_JPRB,0.15875E+00_JPRB /)  
+KB(:, 4,43, 9) = (/ &
+ & 0.80299E-01_JPRB,0.33572E+00_JPRB,0.39639E+00_JPRB,0.39376E+00_JPRB,0.19029E+00_JPRB /)  
+KB(:, 5,43, 9) = (/ &
+ & 0.99551E-01_JPRB,0.40267E+00_JPRB,0.47065E+00_JPRB,0.46647E+00_JPRB,0.22598E+00_JPRB /)  
+KB(:, 1,44, 9) = (/ &
+ & 0.35065E-01_JPRB,0.16586E+00_JPRB,0.20221E+00_JPRB,0.20417E+00_JPRB,0.96831E-01_JPRB /)  
+KB(:, 2,44, 9) = (/ &
+ & 0.44686E-01_JPRB,0.20650E+00_JPRB,0.25055E+00_JPRB,0.25097E+00_JPRB,0.11942E+00_JPRB /)  
+KB(:, 3,44, 9) = (/ &
+ & 0.56631E-01_JPRB,0.25500E+00_JPRB,0.30652E+00_JPRB,0.30540E+00_JPRB,0.14585E+00_JPRB /)  
+KB(:, 4,44, 9) = (/ &
+ & 0.71442E-01_JPRB,0.31160E+00_JPRB,0.37021E+00_JPRB,0.36812E+00_JPRB,0.17630E+00_JPRB /)  
+KB(:, 5,44, 9) = (/ &
+ & 0.89487E-01_JPRB,0.37611E+00_JPRB,0.44177E+00_JPRB,0.43843E+00_JPRB,0.21076E+00_JPRB /)  
+KB(:, 1,45, 9) = (/ &
+ & 0.30099E-01_JPRB,0.15014E+00_JPRB,0.18399E+00_JPRB,0.18651E+00_JPRB,0.87081E-01_JPRB /)  
+KB(:, 2,45, 9) = (/ &
+ & 0.38792E-01_JPRB,0.18842E+00_JPRB,0.23006E+00_JPRB,0.23134E+00_JPRB,0.10857E+00_JPRB /)  
+KB(:, 3,45, 9) = (/ &
+ & 0.49706E-01_JPRB,0.23455E+00_JPRB,0.28377E+00_JPRB,0.28337E+00_JPRB,0.13385E+00_JPRB /)  
+KB(:, 4,45, 9) = (/ &
+ & 0.63416E-01_JPRB,0.28880E+00_JPRB,0.34526E+00_JPRB,0.34365E+00_JPRB,0.16313E+00_JPRB /)  
+KB(:, 5,45, 9) = (/ &
+ & 0.80320E-01_JPRB,0.35087E+00_JPRB,0.41430E+00_JPRB,0.41165E+00_JPRB,0.19641E+00_JPRB /)  
+KB(:, 1,46, 9) = (/ &
+ & 0.25615E-01_JPRB,0.13501E+00_JPRB,0.16621E+00_JPRB,0.16909E+00_JPRB,0.77761E-01_JPRB /)  
+KB(:, 2,46, 9) = (/ &
+ & 0.33396E-01_JPRB,0.17087E+00_JPRB,0.20986E+00_JPRB,0.21193E+00_JPRB,0.98069E-01_JPRB /)  
+KB(:, 3,46, 9) = (/ &
+ & 0.43320E-01_JPRB,0.21451E+00_JPRB,0.26120E+00_JPRB,0.26156E+00_JPRB,0.12212E+00_JPRB /)  
+KB(:, 4,46, 9) = (/ &
+ & 0.55857E-01_JPRB,0.26606E+00_JPRB,0.32018E+00_JPRB,0.31908E+00_JPRB,0.15012E+00_JPRB /)  
+KB(:, 5,46, 9) = (/ &
+ & 0.71564E-01_JPRB,0.32546E+00_JPRB,0.38657E+00_JPRB,0.38454E+00_JPRB,0.18211E+00_JPRB /)  
+KB(:, 1,47, 9) = (/ &
+ & 0.21470E-01_JPRB,0.11984E+00_JPRB,0.14813E+00_JPRB,0.15126E+00_JPRB,0.68564E-01_JPRB /)  
+KB(:, 2,47, 9) = (/ &
+ & 0.28327E-01_JPRB,0.15313E+00_JPRB,0.18908E+00_JPRB,0.19182E+00_JPRB,0.87445E-01_JPRB /)  
+KB(:, 3,47, 9) = (/ &
+ & 0.37186E-01_JPRB,0.19381E+00_JPRB,0.23756E+00_JPRB,0.23882E+00_JPRB,0.11016E+00_JPRB /)  
+KB(:, 4,47, 9) = (/ &
+ & 0.48514E-01_JPRB,0.24239E+00_JPRB,0.29373E+00_JPRB,0.29331E+00_JPRB,0.13670E+00_JPRB /)  
+KB(:, 5,47, 9) = (/ &
+ & 0.62915E-01_JPRB,0.29879E+00_JPRB,0.35729E+00_JPRB,0.35580E+00_JPRB,0.16718E+00_JPRB /)  
+KB(:, 1,48, 9) = (/ &
+ & 0.17915E-01_JPRB,0.10594E+00_JPRB,0.13153E+00_JPRB,0.13471E+00_JPRB,0.60247E-01_JPRB /)  
+KB(:, 2,48, 9) = (/ &
+ & 0.23922E-01_JPRB,0.13687E+00_JPRB,0.16982E+00_JPRB,0.17297E+00_JPRB,0.77702E-01_JPRB /)  
+KB(:, 3,48, 9) = (/ &
+ & 0.31789E-01_JPRB,0.17464E+00_JPRB,0.21543E+00_JPRB,0.21754E+00_JPRB,0.99032E-01_JPRB /)  
+KB(:, 4,48, 9) = (/ &
+ & 0.41975E-01_JPRB,0.22024E+00_JPRB,0.26872E+00_JPRB,0.26906E+00_JPRB,0.12414E+00_JPRB /)  
+KB(:, 5,48, 9) = (/ &
+ & 0.55099E-01_JPRB,0.27366E+00_JPRB,0.32950E+00_JPRB,0.32848E+00_JPRB,0.15313E+00_JPRB /)  
+KB(:, 1,49, 9) = (/ &
+ & 0.14883E-01_JPRB,0.93224E-01_JPRB,0.11635E+00_JPRB,0.11939E+00_JPRB,0.52749E-01_JPRB /)  
+KB(:, 2,49, 9) = (/ &
+ & 0.20112E-01_JPRB,0.12194E+00_JPRB,0.15191E+00_JPRB,0.15532E+00_JPRB,0.68811E-01_JPRB /)  
+KB(:, 3,49, 9) = (/ &
+ & 0.27052E-01_JPRB,0.15700E+00_JPRB,0.19473E+00_JPRB,0.19754E+00_JPRB,0.88692E-01_JPRB /)  
+KB(:, 4,49, 9) = (/ &
+ & 0.36170E-01_JPRB,0.19958E+00_JPRB,0.24512E+00_JPRB,0.24626E+00_JPRB,0.11239E+00_JPRB /)  
+KB(:, 5,49, 9) = (/ &
+ & 0.48053E-01_JPRB,0.24998E+00_JPRB,0.30305E+00_JPRB,0.30260E+00_JPRB,0.13992E+00_JPRB /)  
+KB(:, 1,50, 9) = (/ &
+ & 0.12401E-01_JPRB,0.82224E-01_JPRB,0.10323E+00_JPRB,0.10603E+00_JPRB,0.46388E-01_JPRB /)  
+KB(:, 2,50, 9) = (/ &
+ & 0.16961E-01_JPRB,0.10896E+00_JPRB,0.13629E+00_JPRB,0.13978E+00_JPRB,0.61130E-01_JPRB /)  
+KB(:, 3,50, 9) = (/ &
+ & 0.23097E-01_JPRB,0.14168E+00_JPRB,0.17654E+00_JPRB,0.17982E+00_JPRB,0.79649E-01_JPRB /)  
+KB(:, 4,50, 9) = (/ &
+ & 0.31266E-01_JPRB,0.18143E+00_JPRB,0.22418E+00_JPRB,0.22611E+00_JPRB,0.10201E+00_JPRB /)  
+KB(:, 5,50, 9) = (/ &
+ & 0.42049E-01_JPRB,0.22900E+00_JPRB,0.27939E+00_JPRB,0.27959E+00_JPRB,0.12818E+00_JPRB /)  
+KB(:, 1,51, 9) = (/ &
+ & 0.10311E-01_JPRB,0.72407E-01_JPRB,0.91543E-01_JPRB,0.94015E-01_JPRB,0.40739E-01_JPRB /)  
+KB(:, 2,51, 9) = (/ &
+ & 0.14299E-01_JPRB,0.97301E-01_JPRB,0.12223E+00_JPRB,0.12566E+00_JPRB,0.54336E-01_JPRB /)  
+KB(:, 3,51, 9) = (/ &
+ & 0.19709E-01_JPRB,0.12788E+00_JPRB,0.16001E+00_JPRB,0.16354E+00_JPRB,0.71514E-01_JPRB /)  
+KB(:, 4,51, 9) = (/ &
+ & 0.27010E-01_JPRB,0.16504E+00_JPRB,0.20502E+00_JPRB,0.20766E+00_JPRB,0.92576E-01_JPRB /)  
+KB(:, 5,51, 9) = (/ &
+ & 0.36820E-01_JPRB,0.20996E+00_JPRB,0.25769E+00_JPRB,0.25854E+00_JPRB,0.11743E+00_JPRB /)  
+KB(:, 1,52, 9) = (/ &
+ & 0.85238E-02_JPRB,0.63439E-01_JPRB,0.80796E-01_JPRB,0.82950E-01_JPRB,0.35726E-01_JPRB /)  
+KB(:, 2,52, 9) = (/ &
+ & 0.12004E-01_JPRB,0.86535E-01_JPRB,0.10929E+00_JPRB,0.11252E+00_JPRB,0.48201E-01_JPRB /)  
+KB(:, 3,52, 9) = (/ &
+ & 0.16756E-01_JPRB,0.11511E+00_JPRB,0.14456E+00_JPRB,0.14824E+00_JPRB,0.64036E-01_JPRB /)  
+KB(:, 4,52, 9) = (/ &
+ & 0.23247E-01_JPRB,0.14984E+00_JPRB,0.18701E+00_JPRB,0.19020E+00_JPRB,0.83745E-01_JPRB /)  
+KB(:, 5,52, 9) = (/ &
+ & 0.32110E-01_JPRB,0.19199E+00_JPRB,0.23699E+00_JPRB,0.23857E+00_JPRB,0.10729E+00_JPRB /)  
+KB(:, 1,53, 9) = (/ &
+ & 0.70021E-02_JPRB,0.55279E-01_JPRB,0.70908E-01_JPRB,0.72826E-01_JPRB,0.31267E-01_JPRB /)  
+KB(:, 2,53, 9) = (/ &
+ & 0.10022E-01_JPRB,0.76605E-01_JPRB,0.97337E-01_JPRB,0.10026E+00_JPRB,0.42555E-01_JPRB /)  
+KB(:, 3,53, 9) = (/ &
+ & 0.14186E-01_JPRB,0.10324E+00_JPRB,0.13015E+00_JPRB,0.13384E+00_JPRB,0.57176E-01_JPRB /)  
+KB(:, 4,53, 9) = (/ &
+ & 0.19924E-01_JPRB,0.13568E+00_JPRB,0.17006E+00_JPRB,0.17360E+00_JPRB,0.75508E-01_JPRB /)  
+KB(:, 5,53, 9) = (/ &
+ & 0.27873E-01_JPRB,0.17508E+00_JPRB,0.21734E+00_JPRB,0.21965E+00_JPRB,0.97730E-01_JPRB /)  
+KB(:, 1,54, 9) = (/ &
+ & 0.57827E-02_JPRB,0.48416E-01_JPRB,0.62508E-01_JPRB,0.64310E-01_JPRB,0.27618E-01_JPRB /)  
+KB(:, 2,54, 9) = (/ &
+ & 0.84043E-02_JPRB,0.68151E-01_JPRB,0.87167E-01_JPRB,0.89761E-01_JPRB,0.37874E-01_JPRB /)  
+KB(:, 3,54, 9) = (/ &
+ & 0.12088E-01_JPRB,0.93069E-01_JPRB,0.11782E+00_JPRB,0.12138E+00_JPRB,0.51418E-01_JPRB /)  
+KB(:, 4,54, 9) = (/ &
+ & 0.17188E-01_JPRB,0.12356E+00_JPRB,0.15542E+00_JPRB,0.15914E+00_JPRB,0.68446E-01_JPRB /)  
+KB(:, 5,54, 9) = (/ &
+ & 0.24356E-01_JPRB,0.16057E+00_JPRB,0.20027E+00_JPRB,0.20317E+00_JPRB,0.89427E-01_JPRB /)  
+KB(:, 1,55, 9) = (/ &
+ & 0.47829E-02_JPRB,0.42445E-01_JPRB,0.55108E-01_JPRB,0.56879E-01_JPRB,0.24415E-01_JPRB /)  
+KB(:, 2,55, 9) = (/ &
+ & 0.70515E-02_JPRB,0.60688E-01_JPRB,0.78130E-01_JPRB,0.80430E-01_JPRB,0.33849E-01_JPRB /)  
+KB(:, 3,55, 9) = (/ &
+ & 0.10307E-01_JPRB,0.83954E-01_JPRB,0.10678E+00_JPRB,0.11014E+00_JPRB,0.46263E-01_JPRB /)  
+KB(:, 4,55, 9) = (/ &
+ & 0.14854E-01_JPRB,0.11267E+00_JPRB,0.14216E+00_JPRB,0.14598E+00_JPRB,0.62158E-01_JPRB /)  
+KB(:, 5,55, 9) = (/ &
+ & 0.21317E-01_JPRB,0.14754E+00_JPRB,0.18474E+00_JPRB,0.18809E+00_JPRB,0.81914E-01_JPRB /)  
+KB(:, 1,56, 9) = (/ &
+ & 0.39349E-02_JPRB,0.37013E-01_JPRB,0.48295E-01_JPRB,0.50091E-01_JPRB,0.21529E-01_JPRB /)  
+KB(:, 2,56, 9) = (/ &
+ & 0.58808E-02_JPRB,0.53785E-01_JPRB,0.69695E-01_JPRB,0.71776E-01_JPRB,0.30144E-01_JPRB /)  
+KB(:, 3,56, 9) = (/ &
+ & 0.87470E-02_JPRB,0.75476E-01_JPRB,0.96519E-01_JPRB,0.99590E-01_JPRB,0.41605E-01_JPRB /)  
+KB(:, 4,56, 9) = (/ &
+ & 0.12799E-01_JPRB,0.10247E+00_JPRB,0.12972E+00_JPRB,0.13354E+00_JPRB,0.56396E-01_JPRB /)  
+KB(:, 5,56, 9) = (/ &
+ & 0.18597E-01_JPRB,0.13533E+00_JPRB,0.17007E+00_JPRB,0.17370E+00_JPRB,0.74854E-01_JPRB /)  
+KB(:, 1,57, 9) = (/ &
+ & 0.32237E-02_JPRB,0.32103E-01_JPRB,0.42068E-01_JPRB,0.43893E-01_JPRB,0.18889E-01_JPRB /)  
+KB(:, 2,57, 9) = (/ &
+ & 0.48776E-02_JPRB,0.47453E-01_JPRB,0.61873E-01_JPRB,0.63812E-01_JPRB,0.26899E-01_JPRB /)  
+KB(:, 3,57, 9) = (/ &
+ & 0.73816E-02_JPRB,0.67586E-01_JPRB,0.86956E-01_JPRB,0.89701E-01_JPRB,0.37405E-01_JPRB /)  
+KB(:, 4,57, 9) = (/ &
+ & 0.10984E-01_JPRB,0.92907E-01_JPRB,0.11806E+00_JPRB,0.12175E+00_JPRB,0.51002E-01_JPRB /)  
+KB(:, 5,57, 9) = (/ &
+ & 0.16168E-01_JPRB,0.12385E+00_JPRB,0.15617E+00_JPRB,0.15996E+00_JPRB,0.68253E-01_JPRB /)  
+KB(:, 1,58, 9) = (/ &
+ & 0.26462E-02_JPRB,0.27879E-01_JPRB,0.36685E-01_JPRB,0.38484E-01_JPRB,0.16601E-01_JPRB /)  
+KB(:, 2,58, 9) = (/ &
+ & 0.40522E-02_JPRB,0.41929E-01_JPRB,0.54967E-01_JPRB,0.56858E-01_JPRB,0.24050E-01_JPRB /)  
+KB(:, 3,58, 9) = (/ &
+ & 0.62364E-02_JPRB,0.60609E-01_JPRB,0.78458E-01_JPRB,0.80919E-01_JPRB,0.33657E-01_JPRB /)  
+KB(:, 4,58, 9) = (/ &
+ & 0.94512E-02_JPRB,0.84383E-01_JPRB,0.10769E+00_JPRB,0.11117E+00_JPRB,0.46338E-01_JPRB /)  
+KB(:, 5,58, 9) = (/ &
+ & 0.14101E-01_JPRB,0.11363E+00_JPRB,0.14367E+00_JPRB,0.14755E+00_JPRB,0.62487E-01_JPRB /)  
+KB(:, 1,59, 9) = (/ &
+ & 0.23375E-02_JPRB,0.26104E-01_JPRB,0.34483E-01_JPRB,0.36273E-01_JPRB,0.15643E-01_JPRB /)  
+KB(:, 2,59, 9) = (/ &
+ & 0.36353E-02_JPRB,0.39676E-01_JPRB,0.52191E-01_JPRB,0.54098E-01_JPRB,0.22879E-01_JPRB /)  
+KB(:, 3,59, 9) = (/ &
+ & 0.56781E-02_JPRB,0.57810E-01_JPRB,0.75085E-01_JPRB,0.77452E-01_JPRB,0.32253E-01_JPRB /)  
+KB(:, 4,59, 9) = (/ &
+ & 0.87345E-02_JPRB,0.80998E-01_JPRB,0.10362E+00_JPRB,0.10701E+00_JPRB,0.44587E-01_JPRB /)  
+KB(:, 5,59, 9) = (/ &
+ & 0.13202E-01_JPRB,0.10960E+00_JPRB,0.13878E+00_JPRB,0.14268E+00_JPRB,0.60173E-01_JPRB /)  
+KB(:, 1,13,10) = (/ &
+ & 0.68082E+01_JPRB,0.10647E+02_JPRB,0.12044E+02_JPRB,0.12092E+02_JPRB,0.85097E+01_JPRB /)  
+KB(:, 2,13,10) = (/ &
+ & 0.67019E+01_JPRB,0.10585E+02_JPRB,0.12055E+02_JPRB,0.12198E+02_JPRB,0.87119E+01_JPRB /)  
+KB(:, 3,13,10) = (/ &
+ & 0.67137E+01_JPRB,0.10536E+02_JPRB,0.12063E+02_JPRB,0.12312E+02_JPRB,0.88714E+01_JPRB /)  
+KB(:, 4,13,10) = (/ &
+ & 0.68713E+01_JPRB,0.10489E+02_JPRB,0.12087E+02_JPRB,0.12413E+02_JPRB,0.90170E+01_JPRB /)  
+KB(:, 5,13,10) = (/ &
+ & 0.71185E+01_JPRB,0.10479E+02_JPRB,0.12121E+02_JPRB,0.12479E+02_JPRB,0.91853E+01_JPRB /)  
+KB(:, 1,14,10) = (/ &
+ & 0.58410E+01_JPRB,0.94018E+01_JPRB,0.10846E+02_JPRB,0.11035E+02_JPRB,0.76674E+01_JPRB /)  
+KB(:, 2,14,10) = (/ &
+ & 0.58467E+01_JPRB,0.93735E+01_JPRB,0.10875E+02_JPRB,0.11156E+02_JPRB,0.78256E+01_JPRB /)  
+KB(:, 3,14,10) = (/ &
+ & 0.59984E+01_JPRB,0.93438E+01_JPRB,0.10908E+02_JPRB,0.11271E+02_JPRB,0.79426E+01_JPRB /)  
+KB(:, 4,14,10) = (/ &
+ & 0.62373E+01_JPRB,0.93563E+01_JPRB,0.10953E+02_JPRB,0.11364E+02_JPRB,0.81071E+01_JPRB /)  
+KB(:, 5,14,10) = (/ &
+ & 0.65135E+01_JPRB,0.94809E+01_JPRB,0.10997E+02_JPRB,0.11429E+02_JPRB,0.82861E+01_JPRB /)  
+KB(:, 1,15,10) = (/ &
+ & 0.50343E+01_JPRB,0.83265E+01_JPRB,0.97137E+01_JPRB,0.99946E+01_JPRB,0.69930E+01_JPRB /)  
+KB(:, 2,15,10) = (/ &
+ & 0.51660E+01_JPRB,0.83107E+01_JPRB,0.97594E+01_JPRB,0.10123E+02_JPRB,0.71240E+01_JPRB /)  
+KB(:, 3,15,10) = (/ &
+ & 0.53903E+01_JPRB,0.83316E+01_JPRB,0.98216E+01_JPRB,0.10239E+02_JPRB,0.72628E+01_JPRB /)  
+KB(:, 4,15,10) = (/ &
+ & 0.56415E+01_JPRB,0.84645E+01_JPRB,0.98856E+01_JPRB,0.10324E+02_JPRB,0.74229E+01_JPRB /)  
+KB(:, 5,15,10) = (/ &
+ & 0.58842E+01_JPRB,0.87055E+01_JPRB,0.99631E+01_JPRB,0.10400E+02_JPRB,0.75908E+01_JPRB /)  
+KB(:, 1,16,10) = (/ &
+ & 0.44015E+01_JPRB,0.74103E+01_JPRB,0.86530E+01_JPRB,0.90071E+01_JPRB,0.63301E+01_JPRB /)  
+KB(:, 2,16,10) = (/ &
+ & 0.45955E+01_JPRB,0.74391E+01_JPRB,0.87237E+01_JPRB,0.91359E+01_JPRB,0.64715E+01_JPRB /)  
+KB(:, 3,16,10) = (/ &
+ & 0.48140E+01_JPRB,0.75662E+01_JPRB,0.88065E+01_JPRB,0.92379E+01_JPRB,0.66426E+01_JPRB /)  
+KB(:, 4,16,10) = (/ &
+ & 0.50318E+01_JPRB,0.77981E+01_JPRB,0.89101E+01_JPRB,0.93283E+01_JPRB,0.68095E+01_JPRB /)  
+KB(:, 5,16,10) = (/ &
+ & 0.52436E+01_JPRB,0.80914E+01_JPRB,0.90522E+01_JPRB,0.94292E+01_JPRB,0.69717E+01_JPRB /)  
+KB(:, 1,17,10) = (/ &
+ & 0.38938E+01_JPRB,0.65976E+01_JPRB,0.77151E+01_JPRB,0.80672E+01_JPRB,0.57119E+01_JPRB /)  
+KB(:, 2,17,10) = (/ &
+ & 0.40781E+01_JPRB,0.67171E+01_JPRB,0.78068E+01_JPRB,0.81879E+01_JPRB,0.58706E+01_JPRB /)  
+KB(:, 3,17,10) = (/ &
+ & 0.42641E+01_JPRB,0.69435E+01_JPRB,0.79191E+01_JPRB,0.82934E+01_JPRB,0.60296E+01_JPRB /)  
+KB(:, 4,17,10) = (/ &
+ & 0.44480E+01_JPRB,0.72305E+01_JPRB,0.80762E+01_JPRB,0.84106E+01_JPRB,0.62012E+01_JPRB /)  
+KB(:, 5,17,10) = (/ &
+ & 0.46308E+01_JPRB,0.75237E+01_JPRB,0.83037E+01_JPRB,0.85418E+01_JPRB,0.63775E+01_JPRB /)  
+KB(:, 1,18,10) = (/ &
+ & 0.34407E+01_JPRB,0.58963E+01_JPRB,0.69001E+01_JPRB,0.71891E+01_JPRB,0.51366E+01_JPRB /)  
+KB(:, 2,18,10) = (/ &
+ & 0.35988E+01_JPRB,0.61068E+01_JPRB,0.70120E+01_JPRB,0.73051E+01_JPRB,0.52912E+01_JPRB /)  
+KB(:, 3,18,10) = (/ &
+ & 0.37577E+01_JPRB,0.63853E+01_JPRB,0.71752E+01_JPRB,0.74336E+01_JPRB,0.54376E+01_JPRB /)  
+KB(:, 4,18,10) = (/ &
+ & 0.39161E+01_JPRB,0.66726E+01_JPRB,0.74020E+01_JPRB,0.75773E+01_JPRB,0.56097E+01_JPRB /)  
+KB(:, 5,18,10) = (/ &
+ & 0.40711E+01_JPRB,0.69480E+01_JPRB,0.76793E+01_JPRB,0.77395E+01_JPRB,0.57994E+01_JPRB /)  
+KB(:, 1,19,10) = (/ &
+ & 0.30222E+01_JPRB,0.53136E+01_JPRB,0.61695E+01_JPRB,0.63815E+01_JPRB,0.46248E+01_JPRB /)  
+KB(:, 2,19,10) = (/ &
+ & 0.31568E+01_JPRB,0.55745E+01_JPRB,0.63303E+01_JPRB,0.65186E+01_JPRB,0.47653E+01_JPRB /)  
+KB(:, 3,19,10) = (/ &
+ & 0.32936E+01_JPRB,0.58515E+01_JPRB,0.65536E+01_JPRB,0.66691E+01_JPRB,0.49110E+01_JPRB /)  
+KB(:, 4,19,10) = (/ &
+ & 0.34320E+01_JPRB,0.61200E+01_JPRB,0.68298E+01_JPRB,0.68431E+01_JPRB,0.50671E+01_JPRB /)  
+KB(:, 5,19,10) = (/ &
+ & 0.35717E+01_JPRB,0.63810E+01_JPRB,0.71341E+01_JPRB,0.70485E+01_JPRB,0.52482E+01_JPRB /)  
+KB(:, 1,20,10) = (/ &
+ & 0.26646E+01_JPRB,0.48341E+01_JPRB,0.55294E+01_JPRB,0.56818E+01_JPRB,0.41697E+01_JPRB /)  
+KB(:, 2,20,10) = (/ &
+ & 0.27751E+01_JPRB,0.50933E+01_JPRB,0.57470E+01_JPRB,0.58376E+01_JPRB,0.43064E+01_JPRB /)  
+KB(:, 3,20,10) = (/ &
+ & 0.28895E+01_JPRB,0.53454E+01_JPRB,0.60203E+01_JPRB,0.60166E+01_JPRB,0.44569E+01_JPRB /)  
+KB(:, 4,20,10) = (/ &
+ & 0.30071E+01_JPRB,0.55962E+01_JPRB,0.63194E+01_JPRB,0.62235E+01_JPRB,0.46038E+01_JPRB /)  
+KB(:, 5,20,10) = (/ &
+ & 0.31278E+01_JPRB,0.58505E+01_JPRB,0.66184E+01_JPRB,0.64780E+01_JPRB,0.47569E+01_JPRB /)  
+KB(:, 1,21,10) = (/ &
+ & 0.23601E+01_JPRB,0.44020E+01_JPRB,0.49905E+01_JPRB,0.50776E+01_JPRB,0.37561E+01_JPRB /)  
+KB(:, 2,21,10) = (/ &
+ & 0.24527E+01_JPRB,0.46408E+01_JPRB,0.52514E+01_JPRB,0.52563E+01_JPRB,0.39021E+01_JPRB /)  
+KB(:, 3,21,10) = (/ &
+ & 0.25482E+01_JPRB,0.48775E+01_JPRB,0.55424E+01_JPRB,0.54642E+01_JPRB,0.40531E+01_JPRB /)  
+KB(:, 4,21,10) = (/ &
+ & 0.26469E+01_JPRB,0.51183E+01_JPRB,0.58389E+01_JPRB,0.57185E+01_JPRB,0.42025E+01_JPRB /)  
+KB(:, 5,21,10) = (/ &
+ & 0.27509E+01_JPRB,0.53673E+01_JPRB,0.61341E+01_JPRB,0.60025E+01_JPRB,0.43477E+01_JPRB /)  
+KB(:, 1,22,10) = (/ &
+ & 0.20933E+01_JPRB,0.40130E+01_JPRB,0.45530E+01_JPRB,0.45722E+01_JPRB,0.33997E+01_JPRB /)  
+KB(:, 2,22,10) = (/ &
+ & 0.21774E+01_JPRB,0.42389E+01_JPRB,0.48339E+01_JPRB,0.47801E+01_JPRB,0.35503E+01_JPRB /)  
+KB(:, 3,22,10) = (/ &
+ & 0.22636E+01_JPRB,0.44688E+01_JPRB,0.51214E+01_JPRB,0.50286E+01_JPRB,0.36916E+01_JPRB /)  
+KB(:, 4,22,10) = (/ &
+ & 0.23497E+01_JPRB,0.47085E+01_JPRB,0.54112E+01_JPRB,0.53109E+01_JPRB,0.38464E+01_JPRB /)  
+KB(:, 5,22,10) = (/ &
+ & 0.24400E+01_JPRB,0.49544E+01_JPRB,0.57104E+01_JPRB,0.56159E+01_JPRB,0.40026E+01_JPRB /)  
+KB(:, 1,23,10) = (/ &
+ & 0.18483E+01_JPRB,0.36572E+01_JPRB,0.41816E+01_JPRB,0.41476E+01_JPRB,0.30773E+01_JPRB /)  
+KB(:, 2,23,10) = (/ &
+ & 0.19296E+01_JPRB,0.38779E+01_JPRB,0.44582E+01_JPRB,0.43906E+01_JPRB,0.32324E+01_JPRB /)  
+KB(:, 3,23,10) = (/ &
+ & 0.20105E+01_JPRB,0.41090E+01_JPRB,0.47398E+01_JPRB,0.46676E+01_JPRB,0.33790E+01_JPRB /)  
+KB(:, 4,23,10) = (/ &
+ & 0.20922E+01_JPRB,0.43460E+01_JPRB,0.50319E+01_JPRB,0.49689E+01_JPRB,0.35381E+01_JPRB /)  
+KB(:, 5,23,10) = (/ &
+ & 0.21812E+01_JPRB,0.45942E+01_JPRB,0.53379E+01_JPRB,0.52907E+01_JPRB,0.36872E+01_JPRB /)  
+KB(:, 1,24,10) = (/ &
+ & 0.16291E+01_JPRB,0.33480E+01_JPRB,0.38514E+01_JPRB,0.38051E+01_JPRB,0.27880E+01_JPRB /)  
+KB(:, 2,24,10) = (/ &
+ & 0.17053E+01_JPRB,0.35635E+01_JPRB,0.41240E+01_JPRB,0.40716E+01_JPRB,0.29407E+01_JPRB /)  
+KB(:, 3,24,10) = (/ &
+ & 0.17841E+01_JPRB,0.37930E+01_JPRB,0.44076E+01_JPRB,0.43668E+01_JPRB,0.31035E+01_JPRB /)  
+KB(:, 4,24,10) = (/ &
+ & 0.18670E+01_JPRB,0.40349E+01_JPRB,0.47044E+01_JPRB,0.46831E+01_JPRB,0.32549E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART27',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,24,10) = (/ &
+ & 0.19687E+01_JPRB,0.42837E+01_JPRB,0.50178E+01_JPRB,0.50123E+01_JPRB,0.34093E+01_JPRB /)  
+KB(:, 1,25,10) = (/ &
+ & 0.14342E+01_JPRB,0.30870E+01_JPRB,0.35616E+01_JPRB,0.35262E+01_JPRB,0.25309E+01_JPRB /)  
+KB(:, 2,25,10) = (/ &
+ & 0.15073E+01_JPRB,0.32988E+01_JPRB,0.38348E+01_JPRB,0.38083E+01_JPRB,0.26935E+01_JPRB /)  
+KB(:, 3,25,10) = (/ &
+ & 0.15855E+01_JPRB,0.35267E+01_JPRB,0.41227E+01_JPRB,0.41156E+01_JPRB,0.28544E+01_JPRB /)  
+KB(:, 4,25,10) = (/ &
+ & 0.16765E+01_JPRB,0.37674E+01_JPRB,0.44270E+01_JPRB,0.44387E+01_JPRB,0.30112E+01_JPRB /)  
+KB(:, 5,25,10) = (/ &
+ & 0.17969E+01_JPRB,0.40179E+01_JPRB,0.47482E+01_JPRB,0.47807E+01_JPRB,0.31986E+01_JPRB /)  
+KB(:, 1,26,10) = (/ &
+ & 0.12644E+01_JPRB,0.28734E+01_JPRB,0.33145E+01_JPRB,0.33023E+01_JPRB,0.23207E+01_JPRB /)  
+KB(:, 2,26,10) = (/ &
+ & 0.13357E+01_JPRB,0.30796E+01_JPRB,0.35932E+01_JPRB,0.35956E+01_JPRB,0.24777E+01_JPRB /)  
+KB(:, 3,26,10) = (/ &
+ & 0.14174E+01_JPRB,0.33035E+01_JPRB,0.38863E+01_JPRB,0.39081E+01_JPRB,0.26420E+01_JPRB /)  
+KB(:, 4,26,10) = (/ &
+ & 0.15234E+01_JPRB,0.35430E+01_JPRB,0.41997E+01_JPRB,0.42431E+01_JPRB,0.28241E+01_JPRB /)  
+KB(:, 5,26,10) = (/ &
+ & 0.16603E+01_JPRB,0.37959E+01_JPRB,0.45341E+01_JPRB,0.45996E+01_JPRB,0.30401E+01_JPRB /)  
+KB(:, 1,27,10) = (/ &
+ & 0.11180E+01_JPRB,0.26923E+01_JPRB,0.31092E+01_JPRB,0.31181E+01_JPRB,0.21320E+01_JPRB /)  
+KB(:, 2,27,10) = (/ &
+ & 0.11893E+01_JPRB,0.28981E+01_JPRB,0.33903E+01_JPRB,0.34176E+01_JPRB,0.22961E+01_JPRB /)  
+KB(:, 3,27,10) = (/ &
+ & 0.12805E+01_JPRB,0.31184E+01_JPRB,0.36930E+01_JPRB,0.37398E+01_JPRB,0.24775E+01_JPRB /)  
+KB(:, 4,27,10) = (/ &
+ & 0.14017E+01_JPRB,0.33577E+01_JPRB,0.40190E+01_JPRB,0.40909E+01_JPRB,0.26920E+01_JPRB /)  
+KB(:, 5,27,10) = (/ &
+ & 0.15494E+01_JPRB,0.36148E+01_JPRB,0.43685E+01_JPRB,0.44626E+01_JPRB,0.29161E+01_JPRB /)  
+KB(:, 1,28,10) = (/ &
+ & 0.99411E+00_JPRB,0.25422E+01_JPRB,0.29403E+01_JPRB,0.29678E+01_JPRB,0.19736E+01_JPRB /)  
+KB(:, 2,28,10) = (/ &
+ & 0.10693E+01_JPRB,0.27468E+01_JPRB,0.32278E+01_JPRB,0.32747E+01_JPRB,0.21580E+01_JPRB /)  
+KB(:, 3,28,10) = (/ &
+ & 0.11727E+01_JPRB,0.29677E+01_JPRB,0.35410E+01_JPRB,0.36136E+01_JPRB,0.23718E+01_JPRB /)  
+KB(:, 4,28,10) = (/ &
+ & 0.13040E+01_JPRB,0.32092E+01_JPRB,0.38816E+01_JPRB,0.39808E+01_JPRB,0.25959E+01_JPRB /)  
+KB(:, 5,28,10) = (/ &
+ & 0.14604E+01_JPRB,0.34721E+01_JPRB,0.42472E+01_JPRB,0.43708E+01_JPRB,0.28373E+01_JPRB /)  
+KB(:, 1,29,10) = (/ &
+ & 0.89294E+00_JPRB,0.24188E+01_JPRB,0.28058E+01_JPRB,0.28515E+01_JPRB,0.18636E+01_JPRB /)  
+KB(:, 2,29,10) = (/ &
+ & 0.97544E+00_JPRB,0.26259E+01_JPRB,0.31039E+01_JPRB,0.31712E+01_JPRB,0.20699E+01_JPRB /)  
+KB(:, 3,29,10) = (/ &
+ & 0.10880E+01_JPRB,0.28493E+01_JPRB,0.34305E+01_JPRB,0.35278E+01_JPRB,0.22886E+01_JPRB /)  
+KB(:, 4,29,10) = (/ &
+ & 0.12277E+01_JPRB,0.30947E+01_JPRB,0.37862E+01_JPRB,0.39124E+01_JPRB,0.25256E+01_JPRB /)  
+KB(:, 5,29,10) = (/ &
+ & 0.13896E+01_JPRB,0.33676E+01_JPRB,0.41685E+01_JPRB,0.43225E+01_JPRB,0.27864E+01_JPRB /)  
+KB(:, 1,30,10) = (/ &
+ & 0.81230E+00_JPRB,0.23190E+01_JPRB,0.27059E+01_JPRB,0.27666E+01_JPRB,0.17929E+01_JPRB /)  
+KB(:, 2,30,10) = (/ &
+ & 0.90285E+00_JPRB,0.25306E+01_JPRB,0.30146E+01_JPRB,0.31051E+01_JPRB,0.20049E+01_JPRB /)  
+KB(:, 3,30,10) = (/ &
+ & 0.10223E+01_JPRB,0.27572E+01_JPRB,0.33560E+01_JPRB,0.34779E+01_JPRB,0.22359E+01_JPRB /)  
+KB(:, 4,30,10) = (/ &
+ & 0.11675E+01_JPRB,0.30101E+01_JPRB,0.37284E+01_JPRB,0.38827E+01_JPRB,0.24866E+01_JPRB /)  
+KB(:, 5,30,10) = (/ &
+ & 0.13337E+01_JPRB,0.32968E+01_JPRB,0.41265E+01_JPRB,0.43099E+01_JPRB,0.27369E+01_JPRB /)  
+KB(:, 1,31,10) = (/ &
+ & 0.75110E+00_JPRB,0.22419E+01_JPRB,0.26379E+01_JPRB,0.27157E+01_JPRB,0.17433E+01_JPRB /)  
+KB(:, 2,31,10) = (/ &
+ & 0.84809E+00_JPRB,0.24579E+01_JPRB,0.29592E+01_JPRB,0.30730E+01_JPRB,0.19665E+01_JPRB /)  
+KB(:, 3,31,10) = (/ &
+ & 0.97252E+00_JPRB,0.26914E+01_JPRB,0.33168E+01_JPRB,0.34645E+01_JPRB,0.22008E+01_JPRB /)  
+KB(:, 4,31,10) = (/ &
+ & 0.11219E+01_JPRB,0.29550E+01_JPRB,0.37069E+01_JPRB,0.38878E+01_JPRB,0.24456E+01_JPRB /)  
+KB(:, 5,31,10) = (/ &
+ & 0.12926E+01_JPRB,0.32597E+01_JPRB,0.41224E+01_JPRB,0.43304E+01_JPRB,0.27059E+01_JPRB /)  
+KB(:, 1,32,10) = (/ &
+ & 0.70499E+00_JPRB,0.21846E+01_JPRB,0.25985E+01_JPRB,0.26966E+01_JPRB,0.17143E+01_JPRB /)  
+KB(:, 2,32,10) = (/ &
+ & 0.80768E+00_JPRB,0.24067E+01_JPRB,0.29356E+01_JPRB,0.30726E+01_JPRB,0.19337E+01_JPRB /)  
+KB(:, 3,32,10) = (/ &
+ & 0.93561E+00_JPRB,0.26499E+01_JPRB,0.33107E+01_JPRB,0.34825E+01_JPRB,0.21698E+01_JPRB /)  
+KB(:, 4,32,10) = (/ &
+ & 0.10894E+01_JPRB,0.29281E+01_JPRB,0.37179E+01_JPRB,0.39220E+01_JPRB,0.24264E+01_JPRB /)  
+KB(:, 5,32,10) = (/ &
+ & 0.12637E+01_JPRB,0.32525E+01_JPRB,0.41500E+01_JPRB,0.43764E+01_JPRB,0.26992E+01_JPRB /)  
+KB(:, 1,33,10) = (/ &
+ & 0.67118E+00_JPRB,0.21457E+01_JPRB,0.25854E+01_JPRB,0.27057E+01_JPRB,0.16861E+01_JPRB /)  
+KB(:, 2,33,10) = (/ &
+ & 0.77795E+00_JPRB,0.23758E+01_JPRB,0.29404E+01_JPRB,0.30997E+01_JPRB,0.19111E+01_JPRB /)  
+KB(:, 3,33,10) = (/ &
+ & 0.91001E+00_JPRB,0.26325E+01_JPRB,0.33337E+01_JPRB,0.35269E+01_JPRB,0.21600E+01_JPRB /)  
+KB(:, 4,33,10) = (/ &
+ & 0.10674E+01_JPRB,0.29280E+01_JPRB,0.37566E+01_JPRB,0.39787E+01_JPRB,0.24291E+01_JPRB /)  
+KB(:, 5,33,10) = (/ &
+ & 0.12452E+01_JPRB,0.32737E+01_JPRB,0.42022E+01_JPRB,0.44428E+01_JPRB,0.27130E+01_JPRB /)  
+KB(:, 1,34,10) = (/ &
+ & 0.64347E+00_JPRB,0.21163E+01_JPRB,0.25854E+01_JPRB,0.27260E+01_JPRB,0.16632E+01_JPRB /)  
+KB(:, 2,34,10) = (/ &
+ & 0.75313E+00_JPRB,0.23563E+01_JPRB,0.29579E+01_JPRB,0.31342E+01_JPRB,0.18999E+01_JPRB /)  
+KB(:, 3,34,10) = (/ &
+ & 0.88833E+00_JPRB,0.26269E+01_JPRB,0.33662E+01_JPRB,0.35749E+01_JPRB,0.21605E+01_JPRB /)  
+KB(:, 4,34,10) = (/ &
+ & 0.10487E+01_JPRB,0.29401E+01_JPRB,0.38003E+01_JPRB,0.40358E+01_JPRB,0.24405E+01_JPRB /)  
+KB(:, 5,34,10) = (/ &
+ & 0.12301E+01_JPRB,0.33056E+01_JPRB,0.42553E+01_JPRB,0.45073E+01_JPRB,0.27333E+01_JPRB /)  
+KB(:, 1,35,10) = (/ &
+ & 0.61333E+00_JPRB,0.20804E+01_JPRB,0.25725E+01_JPRB,0.27255E+01_JPRB,0.16337E+01_JPRB /)  
+KB(:, 2,35,10) = (/ &
+ & 0.72416E+00_JPRB,0.23301E+01_JPRB,0.29566E+01_JPRB,0.31440E+01_JPRB,0.18805E+01_JPRB /)  
+KB(:, 3,35,10) = (/ &
+ & 0.85987E+00_JPRB,0.26111E+01_JPRB,0.33740E+01_JPRB,0.35934E+01_JPRB,0.21502E+01_JPRB /)  
+KB(:, 4,35,10) = (/ &
+ & 0.10212E+01_JPRB,0.29378E+01_JPRB,0.38159E+01_JPRB,0.40603E+01_JPRB,0.24378E+01_JPRB /)  
+KB(:, 5,35,10) = (/ &
+ & 0.12063E+01_JPRB,0.33167E+01_JPRB,0.42768E+01_JPRB,0.45362E+01_JPRB,0.27369E+01_JPRB /)  
+KB(:, 1,36,10) = (/ &
+ & 0.57858E+00_JPRB,0.20318E+01_JPRB,0.25343E+01_JPRB,0.26932E+01_JPRB,0.15911E+01_JPRB /)  
+KB(:, 2,36,10) = (/ &
+ & 0.68823E+00_JPRB,0.22888E+01_JPRB,0.29242E+01_JPRB,0.31171E+01_JPRB,0.18445E+01_JPRB /)  
+KB(:, 3,36,10) = (/ &
+ & 0.82172E+00_JPRB,0.25765E+01_JPRB,0.33460E+01_JPRB,0.35706E+01_JPRB,0.21205E+01_JPRB /)  
+KB(:, 4,36,10) = (/ &
+ & 0.98227E+00_JPRB,0.29099E+01_JPRB,0.37920E+01_JPRB,0.40410E+01_JPRB,0.24128E+01_JPRB /)  
+KB(:, 5,36,10) = (/ &
+ & 0.11693E+01_JPRB,0.32947E+01_JPRB,0.42558E+01_JPRB,0.45198E+01_JPRB,0.27160E+01_JPRB /)  
+KB(:, 1,37,10) = (/ &
+ & 0.53405E+00_JPRB,0.19558E+01_JPRB,0.24506E+01_JPRB,0.26071E+01_JPRB,0.15218E+01_JPRB /)  
+KB(:, 2,37,10) = (/ &
+ & 0.63968E+00_JPRB,0.22170E+01_JPRB,0.28388E+01_JPRB,0.30310E+01_JPRB,0.17770E+01_JPRB /)  
+KB(:, 3,37,10) = (/ &
+ & 0.76779E+00_JPRB,0.25049E+01_JPRB,0.32599E+01_JPRB,0.34842E+01_JPRB,0.20552E+01_JPRB /)  
+KB(:, 4,37,10) = (/ &
+ & 0.92384E+00_JPRB,0.28358E+01_JPRB,0.37058E+01_JPRB,0.39557E+01_JPRB,0.23490E+01_JPRB /)  
+KB(:, 5,37,10) = (/ &
+ & 0.11094E+01_JPRB,0.32175E+01_JPRB,0.41691E+01_JPRB,0.44348E+01_JPRB,0.26544E+01_JPRB /)  
+KB(:, 1,38,10) = (/ &
+ & 0.49328E+00_JPRB,0.18861E+01_JPRB,0.23724E+01_JPRB,0.25236E+01_JPRB,0.14577E+01_JPRB /)  
+KB(:, 2,38,10) = (/ &
+ & 0.59575E+00_JPRB,0.21506E+01_JPRB,0.27570E+01_JPRB,0.29471E+01_JPRB,0.17138E+01_JPRB /)  
+KB(:, 3,38,10) = (/ &
+ & 0.71877E+00_JPRB,0.24381E+01_JPRB,0.31760E+01_JPRB,0.33985E+01_JPRB,0.19934E+01_JPRB /)  
+KB(:, 4,38,10) = (/ &
+ & 0.87044E+00_JPRB,0.27651E+01_JPRB,0.36203E+01_JPRB,0.38701E+01_JPRB,0.22879E+01_JPRB /)  
+KB(:, 5,38,10) = (/ &
+ & 0.10541E+01_JPRB,0.31424E+01_JPRB,0.40835E+01_JPRB,0.43497E+01_JPRB,0.25942E+01_JPRB /)  
+KB(:, 1,39,10) = (/ &
+ & 0.45633E+00_JPRB,0.18232E+01_JPRB,0.23004E+01_JPRB,0.24453E+01_JPRB,0.13998E+01_JPRB /)  
+KB(:, 2,39,10) = (/ &
+ & 0.55664E+00_JPRB,0.20902E+01_JPRB,0.26810E+01_JPRB,0.28682E+01_JPRB,0.16563E+01_JPRB /)  
+KB(:, 3,39,10) = (/ &
+ & 0.67511E+00_JPRB,0.23775E+01_JPRB,0.30973E+01_JPRB,0.33174E+01_JPRB,0.19363E+01_JPRB /)  
+KB(:, 4,39,10) = (/ &
+ & 0.82312E+00_JPRB,0.27002E+01_JPRB,0.35399E+01_JPRB,0.37881E+01_JPRB,0.22310E+01_JPRB /)  
+KB(:, 5,39,10) = (/ &
+ & 0.10047E+01_JPRB,0.30719E+01_JPRB,0.40016E+01_JPRB,0.42681E+01_JPRB,0.25376E+01_JPRB /)  
+KB(:, 1,40,10) = (/ &
+ & 0.41369E+00_JPRB,0.17392E+01_JPRB,0.21979E+01_JPRB,0.23287E+01_JPRB,0.13226E+01_JPRB /)  
+KB(:, 2,40,10) = (/ &
+ & 0.51051E+00_JPRB,0.20064E+01_JPRB,0.25693E+01_JPRB,0.27492E+01_JPRB,0.15756E+01_JPRB /)  
+KB(:, 3,40,10) = (/ &
+ & 0.62337E+00_JPRB,0.22909E+01_JPRB,0.29791E+01_JPRB,0.31928E+01_JPRB,0.18532E+01_JPRB /)  
+KB(:, 4,40,10) = (/ &
+ & 0.76463E+00_JPRB,0.26052E+01_JPRB,0.34168E+01_JPRB,0.36603E+01_JPRB,0.21464E+01_JPRB /)  
+KB(:, 5,40,10) = (/ &
+ & 0.94032E+00_JPRB,0.29656E+01_JPRB,0.38751E+01_JPRB,0.41396E+01_JPRB,0.24517E+01_JPRB /)  
+KB(:, 1,41,10) = (/ &
+ & 0.37354E+00_JPRB,0.16561E+01_JPRB,0.20963E+01_JPRB,0.22111E+01_JPRB,0.12469E+01_JPRB /)  
+KB(:, 2,41,10) = (/ &
+ & 0.46665E+00_JPRB,0.19239E+01_JPRB,0.24587E+01_JPRB,0.26289E+01_JPRB,0.14959E+01_JPRB /)  
+KB(:, 3,41,10) = (/ &
+ & 0.57545E+00_JPRB,0.22047E+01_JPRB,0.28597E+01_JPRB,0.30659E+01_JPRB,0.17694E+01_JPRB /)  
+KB(:, 4,41,10) = (/ &
+ & 0.70985E+00_JPRB,0.25106E+01_JPRB,0.32912E+01_JPRB,0.35291E+01_JPRB,0.20606E+01_JPRB /)  
+KB(:, 5,41,10) = (/ &
+ & 0.87840E+00_JPRB,0.28591E+01_JPRB,0.37457E+01_JPRB,0.40073E+01_JPRB,0.23640E+01_JPRB /)  
+KB(:, 1,42,10) = (/ &
+ & 0.33676E+00_JPRB,0.15772E+01_JPRB,0.19999E+01_JPRB,0.20973E+01_JPRB,0.11755E+01_JPRB /)  
+KB(:, 2,42,10) = (/ &
+ & 0.42603E+00_JPRB,0.18429E+01_JPRB,0.23518E+01_JPRB,0.25105E+01_JPRB,0.14196E+01_JPRB /)  
+KB(:, 3,42,10) = (/ &
+ & 0.53169E+00_JPRB,0.21211E+01_JPRB,0.27440E+01_JPRB,0.29424E+01_JPRB,0.16886E+01_JPRB /)  
+KB(:, 4,42,10) = (/ &
+ & 0.65992E+00_JPRB,0.24200E+01_JPRB,0.31691E+01_JPRB,0.34004E+01_JPRB,0.19770E+01_JPRB /)  
+KB(:, 5,42,10) = (/ &
+ & 0.82123E+00_JPRB,0.27572E+01_JPRB,0.36189E+01_JPRB,0.38764E+01_JPRB,0.22780E+01_JPRB /)  
+KB(:, 1,43,10) = (/ &
+ & 0.29880E+00_JPRB,0.14855E+01_JPRB,0.18883E+01_JPRB,0.19649E+01_JPRB,0.10947E+01_JPRB /)  
+KB(:, 2,43,10) = (/ &
+ & 0.38323E+00_JPRB,0.17495E+01_JPRB,0.22289E+01_JPRB,0.23704E+01_JPRB,0.13324E+01_JPRB /)  
+KB(:, 3,43,10) = (/ &
+ & 0.48519E+00_JPRB,0.20243E+01_JPRB,0.26093E+01_JPRB,0.27970E+01_JPRB,0.15948E+01_JPRB /)  
+KB(:, 4,43,10) = (/ &
+ & 0.60690E+00_JPRB,0.23164E+01_JPRB,0.30260E+01_JPRB,0.32477E+01_JPRB,0.18788E+01_JPRB /)  
+KB(:, 5,43,10) = (/ &
+ & 0.75876E+00_JPRB,0.26404E+01_JPRB,0.34692E+01_JPRB,0.37199E+01_JPRB,0.21767E+01_JPRB /)  
+KB(:, 1,44,10) = (/ &
+ & 0.26234E+00_JPRB,0.13896E+01_JPRB,0.17735E+01_JPRB,0.18283E+01_JPRB,0.10125E+01_JPRB /)  
+KB(:, 2,44,10) = (/ &
+ & 0.34133E+00_JPRB,0.16516E+01_JPRB,0.21029E+01_JPRB,0.22231E+01_JPRB,0.12426E+01_JPRB /)  
+KB(:, 3,44,10) = (/ &
+ & 0.43896E+00_JPRB,0.19234E+01_JPRB,0.24698E+01_JPRB,0.26446E+01_JPRB,0.14975E+01_JPRB /)  
+KB(:, 4,44,10) = (/ &
+ & 0.55556E+00_JPRB,0.22104E+01_JPRB,0.28764E+01_JPRB,0.30872E+01_JPRB,0.17758E+01_JPRB /)  
+KB(:, 5,44,10) = (/ &
+ & 0.69720E+00_JPRB,0.25211E+01_JPRB,0.33108E+01_JPRB,0.35530E+01_JPRB,0.20699E+01_JPRB /)  
+KB(:, 1,45,10) = (/ &
+ & 0.22932E+00_JPRB,0.12967E+01_JPRB,0.16617E+01_JPRB,0.16976E+01_JPRB,0.93402E+00_JPRB /)  
+KB(:, 2,45,10) = (/ &
+ & 0.30290E+00_JPRB,0.15560E+01_JPRB,0.19824E+01_JPRB,0.20804E+01_JPRB,0.11566E+01_JPRB /)  
+KB(:, 3,45,10) = (/ &
+ & 0.39581E+00_JPRB,0.18251E+01_JPRB,0.23356E+01_JPRB,0.24949E+01_JPRB,0.14039E+01_JPRB /)  
+KB(:, 4,45,10) = (/ &
+ & 0.50777E+00_JPRB,0.21068E+01_JPRB,0.27305E+01_JPRB,0.29300E+01_JPRB,0.16755E+01_JPRB /)  
+KB(:, 5,45,10) = (/ &
+ & 0.64060E+00_JPRB,0.24073E+01_JPRB,0.31565E+01_JPRB,0.33892E+01_JPRB,0.19653E+01_JPRB /)  
+KB(:, 1,46,10) = (/ &
+ & 0.19825E+00_JPRB,0.12020E+01_JPRB,0.15457E+01_JPRB,0.15662E+01_JPRB,0.85464E+00_JPRB /)  
+KB(:, 2,46,10) = (/ &
+ & 0.26591E+00_JPRB,0.14563E+01_JPRB,0.18595E+01_JPRB,0.19337E+01_JPRB,0.10694E+01_JPRB /)  
+KB(:, 3,46,10) = (/ &
+ & 0.35343E+00_JPRB,0.17232E+01_JPRB,0.22000E+01_JPRB,0.23390E+01_JPRB,0.13083E+01_JPRB /)  
+KB(:, 4,46,10) = (/ &
+ & 0.46053E+00_JPRB,0.19999E+01_JPRB,0.25801E+01_JPRB,0.27669E+01_JPRB,0.15716E+01_JPRB /)  
+KB(:, 5,46,10) = (/ &
+ & 0.58556E+00_JPRB,0.22922E+01_JPRB,0.29962E+01_JPRB,0.32174E+01_JPRB,0.18560E+01_JPRB /)  
+KB(:, 1,47,10) = (/ &
+ & 0.16836E+00_JPRB,0.11008E+01_JPRB,0.14194E+01_JPRB,0.14270E+01_JPRB,0.77061E+00_JPRB /)  
+KB(:, 2,47,10) = (/ &
+ & 0.22922E+00_JPRB,0.13473E+01_JPRB,0.17277E+01_JPRB,0.17767E+01_JPRB,0.97668E+00_JPRB /)  
+KB(:, 3,47,10) = (/ &
+ & 0.31004E+00_JPRB,0.16106E+01_JPRB,0.20551E+01_JPRB,0.21688E+01_JPRB,0.12060E+01_JPRB /)  
+KB(:, 4,47,10) = (/ &
+ & 0.41110E+00_JPRB,0.18840E+01_JPRB,0.24189E+01_JPRB,0.25893E+01_JPRB,0.14598E+01_JPRB /)  
+KB(:, 5,47,10) = (/ &
+ & 0.52932E+00_JPRB,0.21690E+01_JPRB,0.28216E+01_JPRB,0.30298E+01_JPRB,0.17368E+01_JPRB /)  
+KB(:, 1,48,10) = (/ &
+ & 0.14220E+00_JPRB,0.10041E+01_JPRB,0.12957E+01_JPRB,0.12963E+01_JPRB,0.69114E+00_JPRB /)  
+KB(:, 2,48,10) = (/ &
+ & 0.19626E+00_JPRB,0.12419E+01_JPRB,0.15985E+01_JPRB,0.16273E+01_JPRB,0.88794E+00_JPRB /)  
+KB(:, 3,48,10) = (/ &
+ & 0.27002E+00_JPRB,0.15006E+01_JPRB,0.19169E+01_JPRB,0.20039E+01_JPRB,0.11083E+01_JPRB /)  
+KB(:, 4,48,10) = (/ &
+ & 0.36488E+00_JPRB,0.17700E+01_JPRB,0.22644E+01_JPRB,0.24151E+01_JPRB,0.13523E+01_JPRB /)  
+KB(:, 5,48,10) = (/ &
+ & 0.47701E+00_JPRB,0.20494E+01_JPRB,0.26525E+01_JPRB,0.28466E+01_JPRB,0.16205E+01_JPRB /)  
+KB(:, 1,49,10) = (/ &
+ & 0.11950E+00_JPRB,0.91234E+00_JPRB,0.11755E+01_JPRB,0.11741E+01_JPRB,0.61611E+00_JPRB /)  
+KB(:, 2,49,10) = (/ &
+ & 0.16698E+00_JPRB,0.11406E+01_JPRB,0.14723E+01_JPRB,0.14860E+01_JPRB,0.80337E+00_JPRB /)  
+KB(:, 3,49,10) = (/ &
+ & 0.23352E+00_JPRB,0.13921E+01_JPRB,0.17842E+01_JPRB,0.18450E+01_JPRB,0.10147E+01_JPRB /)  
+KB(:, 4,49,10) = (/ &
+ & 0.32154E+00_JPRB,0.16580E+01_JPRB,0.21177E+01_JPRB,0.22439E+01_JPRB,0.12490E+01_JPRB /)  
+KB(:, 5,49,10) = (/ &
+ & 0.42774E+00_JPRB,0.19330E+01_JPRB,0.24891E+01_JPRB,0.26683E+01_JPRB,0.15078E+01_JPRB /)  
+KB(:, 1,50,10) = (/ &
+ & 0.10087E+00_JPRB,0.83065E+00_JPRB,0.10669E+01_JPRB,0.10674E+01_JPRB,0.54936E+00_JPRB /)  
+KB(:, 2,50,10) = (/ &
+ & 0.14237E+00_JPRB,0.10490E+01_JPRB,0.13561E+01_JPRB,0.13605E+01_JPRB,0.72778E+00_JPRB /)  
+KB(:, 3,50,10) = (/ &
+ & 0.20234E+00_JPRB,0.12926E+01_JPRB,0.16630E+01_JPRB,0.17021E+01_JPRB,0.93055E+00_JPRB /)  
+KB(:, 4,50,10) = (/ &
+ & 0.28362E+00_JPRB,0.15546E+01_JPRB,0.19861E+01_JPRB,0.20879E+01_JPRB,0.11563E+01_JPRB /)  
+KB(:, 5,50,10) = (/ &
+ & 0.38392E+00_JPRB,0.18265E+01_JPRB,0.23423E+01_JPRB,0.25044E+01_JPRB,0.14058E+01_JPRB /)  
+KB(:, 1,51,10) = (/ &
+ & 0.85305E-01_JPRB,0.75516E+00_JPRB,0.96600E+00_JPRB,0.96989E+00_JPRB,0.48900E+00_JPRB /)  
+KB(:, 2,51,10) = (/ &
+ & 0.12119E+00_JPRB,0.96396E+00_JPRB,0.12458E+01_JPRB,0.12458E+01_JPRB,0.65803E+00_JPRB /)  
+KB(:, 3,51,10) = (/ &
+ & 0.17492E+00_JPRB,0.11993E+01_JPRB,0.15474E+01_JPRB,0.15706E+01_JPRB,0.85222E+00_JPRB /)  
+KB(:, 4,51,10) = (/ &
+ & 0.24953E+00_JPRB,0.14559E+01_JPRB,0.18635E+01_JPRB,0.19410E+01_JPRB,0.10697E+01_JPRB /)  
+KB(:, 5,51,10) = (/ &
+ & 0.34420E+00_JPRB,0.17250E+01_JPRB,0.22062E+01_JPRB,0.23483E+01_JPRB,0.13105E+01_JPRB /)  
+KB(:, 1,52,10) = (/ &
+ & 0.72122E-01_JPRB,0.68398E+00_JPRB,0.87088E+00_JPRB,0.87737E+00_JPRB,0.43154E+00_JPRB /)  
+KB(:, 2,52,10) = (/ &
+ & 0.10277E+00_JPRB,0.88315E+00_JPRB,0.11388E+01_JPRB,0.11383E+01_JPRB,0.59136E+00_JPRB /)  
+KB(:, 3,52,10) = (/ &
+ & 0.15043E+00_JPRB,0.11094E+01_JPRB,0.14345E+01_JPRB,0.14453E+01_JPRB,0.77736E+00_JPRB /)  
+KB(:, 4,52,10) = (/ &
+ & 0.21816E+00_JPRB,0.13587E+01_JPRB,0.17451E+01_JPRB,0.17993E+01_JPRB,0.98663E+00_JPRB /)  
+KB(:, 5,52,10) = (/ &
+ & 0.30639E+00_JPRB,0.16242E+01_JPRB,0.20759E+01_JPRB,0.21951E+01_JPRB,0.12188E+01_JPRB /)  
+KB(:, 1,53,10) = (/ &
+ & 0.60992E-01_JPRB,0.61681E+00_JPRB,0.78096E+00_JPRB,0.78801E+00_JPRB,0.37771E+00_JPRB /)  
+KB(:, 2,53,10) = (/ &
+ & 0.86893E-01_JPRB,0.80591E+00_JPRB,0.10354E+01_JPRB,0.10374E+01_JPRB,0.52892E+00_JPRB /)  
+KB(:, 3,53,10) = (/ &
+ & 0.12844E+00_JPRB,0.10223E+01_JPRB,0.13228E+01_JPRB,0.13263E+01_JPRB,0.70557E+00_JPRB /)  
+KB(:, 4,53,10) = (/ &
+ & 0.18962E+00_JPRB,0.12639E+01_JPRB,0.16288E+01_JPRB,0.16633E+01_JPRB,0.90648E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART28',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,53,10) = (/ &
+ & 0.27104E+00_JPRB,0.15253E+01_JPRB,0.19505E+01_JPRB,0.20457E+01_JPRB,0.11304E+01_JPRB /)  
+KB(:, 1,54,10) = (/ &
+ & 0.52146E-01_JPRB,0.55862E+00_JPRB,0.70341E+00_JPRB,0.70953E+00_JPRB,0.33141E+00_JPRB /)  
+KB(:, 2,54,10) = (/ &
+ & 0.74252E-01_JPRB,0.73817E+00_JPRB,0.94468E+00_JPRB,0.94968E+00_JPRB,0.47420E+00_JPRB /)  
+KB(:, 3,54,10) = (/ &
+ & 0.11046E+00_JPRB,0.94583E+00_JPRB,0.12229E+01_JPRB,0.12232E+01_JPRB,0.64224E+00_JPRB /)  
+KB(:, 4,54,10) = (/ &
+ & 0.16584E+00_JPRB,0.11796E+01_JPRB,0.15239E+01_JPRB,0.15447E+01_JPRB,0.83594E+00_JPRB /)  
+KB(:, 5,54,10) = (/ &
+ & 0.24084E+00_JPRB,0.14356E+01_JPRB,0.18395E+01_JPRB,0.19125E+01_JPRB,0.10521E+01_JPRB /)  
+KB(:, 1,55,10) = (/ &
+ & 0.44769E-01_JPRB,0.50580E+00_JPRB,0.63367E+00_JPRB,0.63830E+00_JPRB,0.29171E+00_JPRB /)  
+KB(:, 2,55,10) = (/ &
+ & 0.63801E-01_JPRB,0.67695E+00_JPRB,0.86251E+00_JPRB,0.86950E+00_JPRB,0.42385E+00_JPRB /)  
+KB(:, 3,55,10) = (/ &
+ & 0.95281E-01_JPRB,0.87561E+00_JPRB,0.11296E+01_JPRB,0.11298E+01_JPRB,0.58465E+00_JPRB /)  
+KB(:, 4,55,10) = (/ &
+ & 0.14509E+00_JPRB,0.11012E+01_JPRB,0.14250E+01_JPRB,0.14355E+01_JPRB,0.77056E+00_JPRB /)  
+KB(:, 5,55,10) = (/ &
+ & 0.21402E+00_JPRB,0.13506E+01_JPRB,0.17360E+01_JPRB,0.17888E+01_JPRB,0.97966E+00_JPRB /)  
+KB(:, 1,56,10) = (/ &
+ & 0.38303E-01_JPRB,0.45495E+00_JPRB,0.56826E+00_JPRB,0.57046E+00_JPRB,0.25591E+00_JPRB /)  
+KB(:, 2,56,10) = (/ &
+ & 0.54762E-01_JPRB,0.61846E+00_JPRB,0.78411E+00_JPRB,0.79150E+00_JPRB,0.37700E+00_JPRB /)  
+KB(:, 3,56,10) = (/ &
+ & 0.82009E-01_JPRB,0.80830E+00_JPRB,0.10394E+01_JPRB,0.10417E+01_JPRB,0.52950E+00_JPRB /)  
+KB(:, 4,56,10) = (/ &
+ & 0.12621E+00_JPRB,0.10253E+01_JPRB,0.13275E+01_JPRB,0.13316E+01_JPRB,0.70721E+00_JPRB /)  
+KB(:, 5,56,10) = (/ &
+ & 0.18937E+00_JPRB,0.12680E+01_JPRB,0.16344E+01_JPRB,0.16700E+01_JPRB,0.90979E+00_JPRB /)  
+KB(:, 1,57,10) = (/ &
+ & 0.32632E-01_JPRB,0.40611E+00_JPRB,0.50731E+00_JPRB,0.50659E+00_JPRB,0.22496E+00_JPRB /)  
+KB(:, 2,57,10) = (/ &
+ & 0.47019E-01_JPRB,0.56304E+00_JPRB,0.71002E+00_JPRB,0.71651E+00_JPRB,0.33305E+00_JPRB /)  
+KB(:, 3,57,10) = (/ &
+ & 0.70456E-01_JPRB,0.74361E+00_JPRB,0.95266E+00_JPRB,0.95775E+00_JPRB,0.47635E+00_JPRB /)  
+KB(:, 4,57,10) = (/ &
+ & 0.10937E+00_JPRB,0.95229E+00_JPRB,0.12322E+01_JPRB,0.12329E+01_JPRB,0.64711E+00_JPRB /)  
+KB(:, 5,57,10) = (/ &
+ & 0.16675E+00_JPRB,0.11875E+01_JPRB,0.15342E+01_JPRB,0.15565E+01_JPRB,0.84216E+00_JPRB /)  
+KB(:, 1,58,10) = (/ &
+ & 0.27856E-01_JPRB,0.36188E+00_JPRB,0.45369E+00_JPRB,0.45016E+00_JPRB,0.19835E+00_JPRB /)  
+KB(:, 2,58,10) = (/ &
+ & 0.40581E-01_JPRB,0.51273E+00_JPRB,0.64353E+00_JPRB,0.64865E+00_JPRB,0.29546E+00_JPRB /)  
+KB(:, 3,58,10) = (/ &
+ & 0.60914E-01_JPRB,0.68524E+00_JPRB,0.87436E+00_JPRB,0.88146E+00_JPRB,0.42903E+00_JPRB /)  
+KB(:, 4,58,10) = (/ &
+ & 0.95154E-01_JPRB,0.88582E+00_JPRB,0.11439E+01_JPRB,0.11441E+01_JPRB,0.59161E+00_JPRB /)  
+KB(:, 5,58,10) = (/ &
+ & 0.14715E+00_JPRB,0.11133E+01_JPRB,0.14407E+01_JPRB,0.14528E+01_JPRB,0.77938E+00_JPRB /)  
+KB(:, 1,59,10) = (/ &
+ & 0.25371E-01_JPRB,0.34461E+00_JPRB,0.43295E+00_JPRB,0.42860E+00_JPRB,0.18805E+00_JPRB /)  
+KB(:, 2,59,10) = (/ &
+ & 0.37551E-01_JPRB,0.49296E+00_JPRB,0.61778E+00_JPRB,0.62208E+00_JPRB,0.28092E+00_JPRB /)  
+KB(:, 3,59,10) = (/ &
+ & 0.57031E-01_JPRB,0.66239E+00_JPRB,0.84380E+00_JPRB,0.85137E+00_JPRB,0.40984E+00_JPRB /)  
+KB(:, 4,59,10) = (/ &
+ & 0.89730E-01_JPRB,0.85967E+00_JPRB,0.11090E+01_JPRB,0.11096E+01_JPRB,0.56882E+00_JPRB /)  
+KB(:, 5,59,10) = (/ &
+ & 0.13959E+00_JPRB,0.10839E+01_JPRB,0.14035E+01_JPRB,0.14125E+01_JPRB,0.75487E+00_JPRB /)  
+KB(:, 1,13,11) = (/ &
+ & 0.13518E+02_JPRB,0.19426E+02_JPRB,0.21368E+02_JPRB,0.20607E+02_JPRB,0.15967E+02_JPRB /)  
+KB(:, 2,13,11) = (/ &
+ & 0.13249E+02_JPRB,0.19278E+02_JPRB,0.21345E+02_JPRB,0.20725E+02_JPRB,0.16218E+02_JPRB /)  
+KB(:, 3,13,11) = (/ &
+ & 0.12991E+02_JPRB,0.19106E+02_JPRB,0.21344E+02_JPRB,0.20838E+02_JPRB,0.16493E+02_JPRB /)  
+KB(:, 4,13,11) = (/ &
+ & 0.12783E+02_JPRB,0.18953E+02_JPRB,0.21337E+02_JPRB,0.20959E+02_JPRB,0.16769E+02_JPRB /)  
+KB(:, 5,13,11) = (/ &
+ & 0.12735E+02_JPRB,0.18820E+02_JPRB,0.21328E+02_JPRB,0.21104E+02_JPRB,0.16982E+02_JPRB /)  
+KB(:, 1,14,11) = (/ &
+ & 0.11504E+02_JPRB,0.17534E+02_JPRB,0.19457E+02_JPRB,0.19131E+02_JPRB,0.14625E+02_JPRB /)  
+KB(:, 2,14,11) = (/ &
+ & 0.11281E+02_JPRB,0.17396E+02_JPRB,0.19491E+02_JPRB,0.19271E+02_JPRB,0.14939E+02_JPRB /)  
+KB(:, 3,14,11) = (/ &
+ & 0.11112E+02_JPRB,0.17290E+02_JPRB,0.19527E+02_JPRB,0.19415E+02_JPRB,0.15255E+02_JPRB /)  
+KB(:, 4,14,11) = (/ &
+ & 0.11115E+02_JPRB,0.17213E+02_JPRB,0.19560E+02_JPRB,0.19580E+02_JPRB,0.15504E+02_JPRB /)  
+KB(:, 5,14,11) = (/ &
+ & 0.11342E+02_JPRB,0.17139E+02_JPRB,0.19615E+02_JPRB,0.19759E+02_JPRB,0.15706E+02_JPRB /)  
+KB(:, 1,15,11) = (/ &
+ & 0.98170E+01_JPRB,0.15599E+02_JPRB,0.17627E+02_JPRB,0.17666E+02_JPRB,0.13354E+02_JPRB /)  
+KB(:, 2,15,11) = (/ &
+ & 0.96747E+01_JPRB,0.15533E+02_JPRB,0.17695E+02_JPRB,0.17842E+02_JPRB,0.13687E+02_JPRB /)  
+KB(:, 3,15,11) = (/ &
+ & 0.96984E+01_JPRB,0.15502E+02_JPRB,0.17755E+02_JPRB,0.18036E+02_JPRB,0.14004E+02_JPRB /)  
+KB(:, 4,15,11) = (/ &
+ & 0.99522E+01_JPRB,0.15480E+02_JPRB,0.17829E+02_JPRB,0.18235E+02_JPRB,0.14263E+02_JPRB /)  
+KB(:, 5,15,11) = (/ &
+ & 0.10344E+02_JPRB,0.15525E+02_JPRB,0.17929E+02_JPRB,0.18418E+02_JPRB,0.14475E+02_JPRB /)  
+KB(:, 1,16,11) = (/ &
+ & 0.84332E+01_JPRB,0.13806E+02_JPRB,0.15926E+02_JPRB,0.16215E+02_JPRB,0.12224E+02_JPRB /)  
+KB(:, 2,16,11) = (/ &
+ & 0.84583E+01_JPRB,0.13805E+02_JPRB,0.16021E+02_JPRB,0.16437E+02_JPRB,0.12556E+02_JPRB /)  
+KB(:, 3,16,11) = (/ &
+ & 0.87066E+01_JPRB,0.13823E+02_JPRB,0.16108E+02_JPRB,0.16660E+02_JPRB,0.12834E+02_JPRB /)  
+KB(:, 4,16,11) = (/ &
+ & 0.90827E+01_JPRB,0.13924E+02_JPRB,0.16226E+02_JPRB,0.16883E+02_JPRB,0.13078E+02_JPRB /)  
+KB(:, 5,16,11) = (/ &
+ & 0.95263E+01_JPRB,0.14156E+02_JPRB,0.16382E+02_JPRB,0.17079E+02_JPRB,0.13334E+02_JPRB /)  
+KB(:, 1,17,11) = (/ &
+ & 0.73068E+01_JPRB,0.12252E+02_JPRB,0.14341E+02_JPRB,0.14810E+02_JPRB,0.11129E+02_JPRB /)  
+KB(:, 2,17,11) = (/ &
+ & 0.75295E+01_JPRB,0.12291E+02_JPRB,0.14463E+02_JPRB,0.15052E+02_JPRB,0.11439E+02_JPRB /)  
+KB(:, 3,17,11) = (/ &
+ & 0.78853E+01_JPRB,0.12405E+02_JPRB,0.14606E+02_JPRB,0.15309E+02_JPRB,0.11729E+02_JPRB /)  
+KB(:, 4,17,11) = (/ &
+ & 0.83040E+01_JPRB,0.12643E+02_JPRB,0.14776E+02_JPRB,0.15548E+02_JPRB,0.12006E+02_JPRB /)  
+KB(:, 5,17,11) = (/ &
+ & 0.87123E+01_JPRB,0.13039E+02_JPRB,0.14982E+02_JPRB,0.15762E+02_JPRB,0.12286E+02_JPRB /)  
+KB(:, 1,18,11) = (/ &
+ & 0.64287E+01_JPRB,0.10933E+02_JPRB,0.12879E+02_JPRB,0.13451E+02_JPRB,0.10053E+02_JPRB /)  
+KB(:, 2,18,11) = (/ &
+ & 0.67446E+01_JPRB,0.11039E+02_JPRB,0.13041E+02_JPRB,0.13740E+02_JPRB,0.10377E+02_JPRB /)  
+KB(:, 3,18,11) = (/ &
+ & 0.71271E+01_JPRB,0.11266E+02_JPRB,0.13222E+02_JPRB,0.14018E+02_JPRB,0.10699E+02_JPRB /)  
+KB(:, 4,18,11) = (/ &
+ & 0.75067E+01_JPRB,0.11650E+02_JPRB,0.13455E+02_JPRB,0.14263E+02_JPRB,0.11011E+02_JPRB /)  
+KB(:, 5,18,11) = (/ &
+ & 0.78797E+01_JPRB,0.12144E+02_JPRB,0.13766E+02_JPRB,0.14517E+02_JPRB,0.11323E+02_JPRB /)  
+KB(:, 1,19,11) = (/ &
+ & 0.57165E+01_JPRB,0.98198E+01_JPRB,0.11563E+02_JPRB,0.12210E+02_JPRB,0.90287E+01_JPRB /)  
+KB(:, 2,19,11) = (/ &
+ & 0.60504E+01_JPRB,0.10030E+02_JPRB,0.11759E+02_JPRB,0.12511E+02_JPRB,0.93771E+01_JPRB /)  
+KB(:, 3,19,11) = (/ &
+ & 0.63872E+01_JPRB,0.10390E+02_JPRB,0.12004E+02_JPRB,0.12787E+02_JPRB,0.97382E+01_JPRB /)  
+KB(:, 4,19,11) = (/ &
+ & 0.67262E+01_JPRB,0.10858E+02_JPRB,0.12325E+02_JPRB,0.13071E+02_JPRB,0.10100E+02_JPRB /)  
+KB(:, 5,19,11) = (/ &
+ & 0.70630E+01_JPRB,0.11396E+02_JPRB,0.12720E+02_JPRB,0.13371E+02_JPRB,0.10433E+02_JPRB /)  
+KB(:, 1,20,11) = (/ &
+ & 0.51077E+01_JPRB,0.88680E+01_JPRB,0.10415E+02_JPRB,0.11053E+02_JPRB,0.80963E+01_JPRB /)  
+KB(:, 2,20,11) = (/ &
+ & 0.54017E+01_JPRB,0.92107E+01_JPRB,0.10662E+02_JPRB,0.11361E+02_JPRB,0.84758E+01_JPRB /)  
+KB(:, 3,20,11) = (/ &
+ & 0.57015E+01_JPRB,0.96698E+01_JPRB,0.10982E+02_JPRB,0.11668E+02_JPRB,0.88481E+01_JPRB /)  
+KB(:, 4,20,11) = (/ &
+ & 0.60041E+01_JPRB,0.10196E+02_JPRB,0.11384E+02_JPRB,0.12000E+02_JPRB,0.92376E+01_JPRB /)  
+KB(:, 5,20,11) = (/ &
+ & 0.63106E+01_JPRB,0.10732E+02_JPRB,0.11884E+02_JPRB,0.12349E+02_JPRB,0.96255E+01_JPRB /)  
+KB(:, 1,21,11) = (/ &
+ & 0.45414E+01_JPRB,0.80841E+01_JPRB,0.94333E+01_JPRB,0.10001E+02_JPRB,0.72987E+01_JPRB /)  
+KB(:, 2,21,11) = (/ &
+ & 0.48060E+01_JPRB,0.85169E+01_JPRB,0.97399E+01_JPRB,0.10324E+02_JPRB,0.76799E+01_JPRB /)  
+KB(:, 3,21,11) = (/ &
+ & 0.50754E+01_JPRB,0.90311E+01_JPRB,0.10134E+02_JPRB,0.10673E+02_JPRB,0.80692E+01_JPRB /)  
+KB(:, 4,21,11) = (/ &
+ & 0.53489E+01_JPRB,0.95660E+01_JPRB,0.10626E+02_JPRB,0.11046E+02_JPRB,0.84671E+01_JPRB /)  
+KB(:, 5,21,11) = (/ &
+ & 0.56226E+01_JPRB,0.10100E+02_JPRB,0.11188E+02_JPRB,0.11467E+02_JPRB,0.88878E+01_JPRB /)  
+KB(:, 1,22,11) = (/ &
+ & 0.40512E+01_JPRB,0.74537E+01_JPRB,0.86113E+01_JPRB,0.90760E+01_JPRB,0.66406E+01_JPRB /)  
+KB(:, 2,22,11) = (/ &
+ & 0.42861E+01_JPRB,0.79455E+01_JPRB,0.89988E+01_JPRB,0.94326E+01_JPRB,0.70298E+01_JPRB /)  
+KB(:, 3,22,11) = (/ &
+ & 0.45284E+01_JPRB,0.84723E+01_JPRB,0.94806E+01_JPRB,0.98282E+01_JPRB,0.74365E+01_JPRB /)  
+KB(:, 4,22,11) = (/ &
+ & 0.47765E+01_JPRB,0.90022E+01_JPRB,0.10036E+02_JPRB,0.10267E+02_JPRB,0.78530E+01_JPRB /)  
+KB(:, 5,22,11) = (/ &
+ & 0.50273E+01_JPRB,0.95375E+01_JPRB,0.10644E+02_JPRB,0.10762E+02_JPRB,0.82925E+01_JPRB /)  
+KB(:, 1,23,11) = (/ &
+ & 0.36272E+01_JPRB,0.69345E+01_JPRB,0.79292E+01_JPRB,0.82821E+01_JPRB,0.60862E+01_JPRB /)  
+KB(:, 2,23,11) = (/ &
+ & 0.38324E+01_JPRB,0.74412E+01_JPRB,0.84058E+01_JPRB,0.86779E+01_JPRB,0.64814E+01_JPRB /)  
+KB(:, 3,23,11) = (/ &
+ & 0.40496E+01_JPRB,0.79556E+01_JPRB,0.89497E+01_JPRB,0.91277E+01_JPRB,0.69031E+01_JPRB /)  
+KB(:, 4,23,11) = (/ &
+ & 0.42736E+01_JPRB,0.84881E+01_JPRB,0.95512E+01_JPRB,0.96353E+01_JPRB,0.73423E+01_JPRB /)  
+KB(:, 5,23,11) = (/ &
+ & 0.45008E+01_JPRB,0.90231E+01_JPRB,0.10199E+02_JPRB,0.10196E+02_JPRB,0.78107E+01_JPRB /)  
+KB(:, 1,24,11) = (/ &
+ & 0.32617E+01_JPRB,0.64927E+01_JPRB,0.73814E+01_JPRB,0.76204E+01_JPRB,0.56351E+01_JPRB /)  
+KB(:, 2,24,11) = (/ &
+ & 0.34455E+01_JPRB,0.69864E+01_JPRB,0.79146E+01_JPRB,0.80668E+01_JPRB,0.60482E+01_JPRB /)  
+KB(:, 3,24,11) = (/ &
+ & 0.36375E+01_JPRB,0.74982E+01_JPRB,0.85124E+01_JPRB,0.85688E+01_JPRB,0.64793E+01_JPRB /)  
+KB(:, 4,24,11) = (/ &
+ & 0.38361E+01_JPRB,0.80253E+01_JPRB,0.91530E+01_JPRB,0.91384E+01_JPRB,0.69488E+01_JPRB /)  
+KB(:, 5,24,11) = (/ &
+ & 0.40434E+01_JPRB,0.85770E+01_JPRB,0.98249E+01_JPRB,0.97701E+01_JPRB,0.74392E+01_JPRB /)  
+KB(:, 1,25,11) = (/ &
+ & 0.29504E+01_JPRB,0.60996E+01_JPRB,0.69378E+01_JPRB,0.70933E+01_JPRB,0.52696E+01_JPRB /)  
+KB(:, 2,25,11) = (/ &
+ & 0.31134E+01_JPRB,0.65859E+01_JPRB,0.75193E+01_JPRB,0.75874E+01_JPRB,0.56908E+01_JPRB /)  
+KB(:, 3,25,11) = (/ &
+ & 0.32850E+01_JPRB,0.70991E+01_JPRB,0.81583E+01_JPRB,0.81455E+01_JPRB,0.61504E+01_JPRB /)  
+KB(:, 4,25,11) = (/ &
+ & 0.34639E+01_JPRB,0.76357E+01_JPRB,0.88289E+01_JPRB,0.87766E+01_JPRB,0.66391E+01_JPRB /)  
+KB(:, 5,25,11) = (/ &
+ & 0.36575E+01_JPRB,0.82031E+01_JPRB,0.95335E+01_JPRB,0.94728E+01_JPRB,0.71181E+01_JPRB /)  
+KB(:, 1,26,11) = (/ &
+ & 0.26785E+01_JPRB,0.57592E+01_JPRB,0.65944E+01_JPRB,0.66793E+01_JPRB,0.49659E+01_JPRB /)  
+KB(:, 2,26,11) = (/ &
+ & 0.28303E+01_JPRB,0.62512E+01_JPRB,0.72180E+01_JPRB,0.72292E+01_JPRB,0.54158E+01_JPRB /)  
+KB(:, 3,26,11) = (/ &
+ & 0.29845E+01_JPRB,0.67700E+01_JPRB,0.78853E+01_JPRB,0.78517E+01_JPRB,0.58929E+01_JPRB /)  
+KB(:, 4,26,11) = (/ &
+ & 0.31498E+01_JPRB,0.73218E+01_JPRB,0.85892E+01_JPRB,0.85405E+01_JPRB,0.63779E+01_JPRB /)  
+KB(:, 5,26,11) = (/ &
+ & 0.33365E+01_JPRB,0.79095E+01_JPRB,0.93260E+01_JPRB,0.92876E+01_JPRB,0.68593E+01_JPRB /)  
+KB(:, 1,27,11) = (/ &
+ & 0.24381E+01_JPRB,0.54719E+01_JPRB,0.63296E+01_JPRB,0.63699E+01_JPRB,0.47378E+01_JPRB /)  
+KB(:, 2,27,11) = (/ &
+ & 0.25833E+01_JPRB,0.59706E+01_JPRB,0.69839E+01_JPRB,0.69809E+01_JPRB,0.52024E+01_JPRB /)  
+KB(:, 3,27,11) = (/ &
+ & 0.27276E+01_JPRB,0.65032E+01_JPRB,0.76823E+01_JPRB,0.76623E+01_JPRB,0.56849E+01_JPRB /)  
+KB(:, 4,27,11) = (/ &
+ & 0.28843E+01_JPRB,0.70768E+01_JPRB,0.84223E+01_JPRB,0.83973E+01_JPRB,0.61613E+01_JPRB /)  
+KB(:, 5,27,11) = (/ &
+ & 0.30776E+01_JPRB,0.76837E+01_JPRB,0.91929E+01_JPRB,0.91871E+01_JPRB,0.66697E+01_JPRB /)  
+KB(:, 1,28,11) = (/ &
+ & 0.22238E+01_JPRB,0.52366E+01_JPRB,0.61335E+01_JPRB,0.61574E+01_JPRB,0.45705E+01_JPRB /)  
+KB(:, 2,28,11) = (/ &
+ & 0.23648E+01_JPRB,0.57451E+01_JPRB,0.68151E+01_JPRB,0.68266E+01_JPRB,0.50347E+01_JPRB /)  
+KB(:, 3,28,11) = (/ &
+ & 0.25067E+01_JPRB,0.62980E+01_JPRB,0.75460E+01_JPRB,0.75548E+01_JPRB,0.55064E+01_JPRB /)  
+KB(:, 4,28,11) = (/ &
+ & 0.26680E+01_JPRB,0.68930E+01_JPRB,0.83223E+01_JPRB,0.83308E+01_JPRB,0.60103E+01_JPRB /)  
+KB(:, 5,28,11) = (/ &
+ & 0.28763E+01_JPRB,0.75234E+01_JPRB,0.91269E+01_JPRB,0.91547E+01_JPRB,0.65443E+01_JPRB /)  
+KB(:, 1,29,11) = (/ &
+ & 0.20343E+01_JPRB,0.50540E+01_JPRB,0.60021E+01_JPRB,0.60360E+01_JPRB,0.44306E+01_JPRB /)  
+KB(:, 2,29,11) = (/ &
+ & 0.21732E+01_JPRB,0.55785E+01_JPRB,0.67134E+01_JPRB,0.67544E+01_JPRB,0.48924E+01_JPRB /)  
+KB(:, 3,29,11) = (/ &
+ & 0.23217E+01_JPRB,0.61554E+01_JPRB,0.74828E+01_JPRB,0.75217E+01_JPRB,0.53899E+01_JPRB /)  
+KB(:, 4,29,11) = (/ &
+ & 0.24991E+01_JPRB,0.67727E+01_JPRB,0.82943E+01_JPRB,0.83341E+01_JPRB,0.59211E+01_JPRB /)  
+KB(:, 5,29,11) = (/ &
+ & 0.27298E+01_JPRB,0.74309E+01_JPRB,0.91294E+01_JPRB,0.91877E+01_JPRB,0.64776E+01_JPRB /)  
+KB(:, 1,30,11) = (/ &
+ & 0.18678E+01_JPRB,0.49203E+01_JPRB,0.59291E+01_JPRB,0.59875E+01_JPRB,0.43204E+01_JPRB /)  
+KB(:, 2,30,11) = (/ &
+ & 0.20102E+01_JPRB,0.54667E+01_JPRB,0.66747E+01_JPRB,0.67430E+01_JPRB,0.48026E+01_JPRB /)  
+KB(:, 3,30,11) = (/ &
+ & 0.21719E+01_JPRB,0.60682E+01_JPRB,0.74827E+01_JPRB,0.75477E+01_JPRB,0.53281E+01_JPRB /)  
+KB(:, 4,30,11) = (/ &
+ & 0.23720E+01_JPRB,0.67126E+01_JPRB,0.83252E+01_JPRB,0.83910E+01_JPRB,0.58826E+01_JPRB /)  
+KB(:, 5,30,11) = (/ &
+ & 0.26264E+01_JPRB,0.73977E+01_JPRB,0.91870E+01_JPRB,0.92723E+01_JPRB,0.64598E+01_JPRB /)  
+KB(:, 1,31,11) = (/ &
+ & 0.17244E+01_JPRB,0.48370E+01_JPRB,0.59156E+01_JPRB,0.60001E+01_JPRB,0.42555E+01_JPRB /)  
+KB(:, 2,31,11) = (/ &
+ & 0.18755E+01_JPRB,0.54107E+01_JPRB,0.66999E+01_JPRB,0.67904E+01_JPRB,0.47644E+01_JPRB /)  
+KB(:, 3,31,11) = (/ &
+ & 0.20573E+01_JPRB,0.60363E+01_JPRB,0.75402E+01_JPRB,0.76274E+01_JPRB,0.53155E+01_JPRB /)  
+KB(:, 4,31,11) = (/ &
+ & 0.22829E+01_JPRB,0.67094E+01_JPRB,0.84079E+01_JPRB,0.84962E+01_JPRB,0.58901E+01_JPRB /)  
+KB(:, 5,31,11) = (/ &
+ & 0.25590E+01_JPRB,0.74195E+01_JPRB,0.92909E+01_JPRB,0.93994E+01_JPRB,0.64871E+01_JPRB /)  
+KB(:, 1,32,11) = (/ &
+ & 0.16069E+01_JPRB,0.48030E+01_JPRB,0.59579E+01_JPRB,0.60639E+01_JPRB,0.42356E+01_JPRB /)  
+KB(:, 2,32,11) = (/ &
+ & 0.17705E+01_JPRB,0.54037E+01_JPRB,0.67788E+01_JPRB,0.68874E+01_JPRB,0.47712E+01_JPRB /)  
+KB(:, 3,32,11) = (/ &
+ & 0.19742E+01_JPRB,0.60574E+01_JPRB,0.76448E+01_JPRB,0.77491E+01_JPRB,0.53434E+01_JPRB /)  
+KB(:, 4,32,11) = (/ &
+ & 0.22247E+01_JPRB,0.67560E+01_JPRB,0.85310E+01_JPRB,0.86385E+01_JPRB,0.59381E+01_JPRB /)  
+KB(:, 5,32,11) = (/ &
+ & 0.25238E+01_JPRB,0.74880E+01_JPRB,0.94292E+01_JPRB,0.95570E+01_JPRB,0.65497E+01_JPRB /)  
+KB(:, 1,33,11) = (/ &
+ & 0.15128E+01_JPRB,0.48140E+01_JPRB,0.60501E+01_JPRB,0.61714E+01_JPRB,0.42550E+01_JPRB /)  
+KB(:, 2,33,11) = (/ &
+ & 0.16946E+01_JPRB,0.54417E+01_JPRB,0.69000E+01_JPRB,0.70212E+01_JPRB,0.48155E+01_JPRB /)  
+KB(:, 3,33,11) = (/ &
+ & 0.19206E+01_JPRB,0.61213E+01_JPRB,0.77839E+01_JPRB,0.79020E+01_JPRB,0.54069E+01_JPRB /)  
+KB(:, 4,33,11) = (/ &
+ & 0.21946E+01_JPRB,0.68422E+01_JPRB,0.86827E+01_JPRB,0.88075E+01_JPRB,0.60169E+01_JPRB /)  
+KB(:, 5,33,11) = (/ &
+ & 0.25173E+01_JPRB,0.75913E+01_JPRB,0.95924E+01_JPRB,0.97373E+01_JPRB,0.66398E+01_JPRB /)  
+KB(:, 1,34,11) = (/ &
+ & 0.14356E+01_JPRB,0.48418E+01_JPRB,0.61495E+01_JPRB,0.62828E+01_JPRB,0.42896E+01_JPRB /)  
+KB(:, 2,34,11) = (/ &
+ & 0.16357E+01_JPRB,0.54935E+01_JPRB,0.70184E+01_JPRB,0.71516E+01_JPRB,0.48691E+01_JPRB /)  
+KB(:, 3,34,11) = (/ &
+ & 0.18838E+01_JPRB,0.61957E+01_JPRB,0.79151E+01_JPRB,0.80457E+01_JPRB,0.54742E+01_JPRB /)  
+KB(:, 4,34,11) = (/ &
+ & 0.21788E+01_JPRB,0.69325E+01_JPRB,0.88256E+01_JPRB,0.89643E+01_JPRB,0.60956E+01_JPRB /)  
+KB(:, 5,34,11) = (/ &
+ & 0.25238E+01_JPRB,0.76930E+01_JPRB,0.97439E+01_JPRB,0.99021E+01_JPRB,0.67264E+01_JPRB /)  
+KB(:, 1,35,11) = (/ &
+ & 0.13620E+01_JPRB,0.48400E+01_JPRB,0.61911E+01_JPRB,0.63341E+01_JPRB,0.42950E+01_JPRB /)  
+KB(:, 2,35,11) = (/ &
+ & 0.15765E+01_JPRB,0.55077E+01_JPRB,0.70717E+01_JPRB,0.72149E+01_JPRB,0.48872E+01_JPRB /)  
+KB(:, 3,35,11) = (/ &
+ & 0.18416E+01_JPRB,0.62238E+01_JPRB,0.79778E+01_JPRB,0.81173E+01_JPRB,0.55014E+01_JPRB /)  
+KB(:, 4,35,11) = (/ &
+ & 0.21528E+01_JPRB,0.69694E+01_JPRB,0.88951E+01_JPRB,0.90430E+01_JPRB,0.61304E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART29',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,35,11) = (/ &
+ & 0.25135E+01_JPRB,0.77370E+01_JPRB,0.98191E+01_JPRB,0.99865E+01_JPRB,0.67662E+01_JPRB /)  
+KB(:, 1,36,11) = (/ &
+ & 0.12836E+01_JPRB,0.47892E+01_JPRB,0.61549E+01_JPRB,0.63050E+01_JPRB,0.42540E+01_JPRB /)  
+KB(:, 2,36,11) = (/ &
+ & 0.15070E+01_JPRB,0.54649E+01_JPRB,0.70416E+01_JPRB,0.71923E+01_JPRB,0.48536E+01_JPRB /)  
+KB(:, 3,36,11) = (/ &
+ & 0.17830E+01_JPRB,0.61872E+01_JPRB,0.79531E+01_JPRB,0.80994E+01_JPRB,0.54734E+01_JPRB /)  
+KB(:, 4,36,11) = (/ &
+ & 0.21055E+01_JPRB,0.69369E+01_JPRB,0.88745E+01_JPRB,0.90288E+01_JPRB,0.61066E+01_JPRB /)  
+KB(:, 5,36,11) = (/ &
+ & 0.24754E+01_JPRB,0.77090E+01_JPRB,0.98023E+01_JPRB,0.99759E+01_JPRB,0.67459E+01_JPRB /)  
+KB(:, 1,37,11) = (/ &
+ & 0.11878E+01_JPRB,0.46541E+01_JPRB,0.59975E+01_JPRB,0.61531E+01_JPRB,0.41357E+01_JPRB /)  
+KB(:, 2,37,11) = (/ &
+ & 0.14114E+01_JPRB,0.53279E+01_JPRB,0.68836E+01_JPRB,0.70407E+01_JPRB,0.47366E+01_JPRB /)  
+KB(:, 3,37,11) = (/ &
+ & 0.16907E+01_JPRB,0.60488E+01_JPRB,0.77961E+01_JPRB,0.79492E+01_JPRB,0.53587E+01_JPRB /)  
+KB(:, 4,37,11) = (/ &
+ & 0.20171E+01_JPRB,0.67987E+01_JPRB,0.87214E+01_JPRB,0.88782E+01_JPRB,0.59931E+01_JPRB /)  
+KB(:, 5,37,11) = (/ &
+ & 0.23879E+01_JPRB,0.75721E+01_JPRB,0.96505E+01_JPRB,0.98263E+01_JPRB,0.66346E+01_JPRB /)  
+KB(:, 1,38,11) = (/ &
+ & 0.11019E+01_JPRB,0.45241E+01_JPRB,0.58411E+01_JPRB,0.60015E+01_JPRB,0.40206E+01_JPRB /)  
+KB(:, 2,38,11) = (/ &
+ & 0.13240E+01_JPRB,0.51938E+01_JPRB,0.67248E+01_JPRB,0.68881E+01_JPRB,0.46215E+01_JPRB /)  
+KB(:, 3,38,11) = (/ &
+ & 0.16050E+01_JPRB,0.59127E+01_JPRB,0.76377E+01_JPRB,0.77969E+01_JPRB,0.52444E+01_JPRB /)  
+KB(:, 4,38,11) = (/ &
+ & 0.19344E+01_JPRB,0.66614E+01_JPRB,0.85656E+01_JPRB,0.87241E+01_JPRB,0.58797E+01_JPRB /)  
+KB(:, 5,38,11) = (/ &
+ & 0.23053E+01_JPRB,0.74352E+01_JPRB,0.94961E+01_JPRB,0.96730E+01_JPRB,0.65232E+01_JPRB /)  
+KB(:, 1,39,11) = (/ &
+ & 0.10261E+01_JPRB,0.44035E+01_JPRB,0.56925E+01_JPRB,0.58571E+01_JPRB,0.39130E+01_JPRB /)  
+KB(:, 2,39,11) = (/ &
+ & 0.12458E+01_JPRB,0.50694E+01_JPRB,0.65735E+01_JPRB,0.67411E+01_JPRB,0.45130E+01_JPRB /)  
+KB(:, 3,39,11) = (/ &
+ & 0.15281E+01_JPRB,0.57844E+01_JPRB,0.74853E+01_JPRB,0.76497E+01_JPRB,0.51353E+01_JPRB /)  
+KB(:, 4,39,11) = (/ &
+ & 0.18590E+01_JPRB,0.65310E+01_JPRB,0.84139E+01_JPRB,0.85752E+01_JPRB,0.57711E+01_JPRB /)  
+KB(:, 5,39,11) = (/ &
+ & 0.22296E+01_JPRB,0.73031E+01_JPRB,0.93461E+01_JPRB,0.95233E+01_JPRB,0.64155E+01_JPRB /)  
+KB(:, 1,40,11) = (/ &
+ & 0.94020E+00_JPRB,0.42252E+01_JPRB,0.54618E+01_JPRB,0.56305E+01_JPRB,0.37514E+01_JPRB /)  
+KB(:, 2,40,11) = (/ &
+ & 0.11510E+01_JPRB,0.48808E+01_JPRB,0.63359E+01_JPRB,0.65051E+01_JPRB,0.43464E+01_JPRB /)  
+KB(:, 3,40,11) = (/ &
+ & 0.14267E+01_JPRB,0.55865E+01_JPRB,0.72429E+01_JPRB,0.74116E+01_JPRB,0.49659E+01_JPRB /)  
+KB(:, 4,40,11) = (/ &
+ & 0.17534E+01_JPRB,0.63284E+01_JPRB,0.81706E+01_JPRB,0.83346E+01_JPRB,0.56004E+01_JPRB /)  
+KB(:, 5,40,11) = (/ &
+ & 0.21196E+01_JPRB,0.70954E+01_JPRB,0.91038E+01_JPRB,0.92790E+01_JPRB,0.62443E+01_JPRB /)  
+KB(:, 1,41,11) = (/ &
+ & 0.86129E+00_JPRB,0.40457E+01_JPRB,0.52264E+01_JPRB,0.53976E+01_JPRB,0.35879E+01_JPRB /)  
+KB(:, 2,41,11) = (/ &
+ & 0.10633E+01_JPRB,0.46915E+01_JPRB,0.60924E+01_JPRB,0.62635E+01_JPRB,0.41768E+01_JPRB /)  
+KB(:, 3,41,11) = (/ &
+ & 0.13283E+01_JPRB,0.53845E+01_JPRB,0.69926E+01_JPRB,0.71649E+01_JPRB,0.47921E+01_JPRB /)  
+KB(:, 4,41,11) = (/ &
+ & 0.16485E+01_JPRB,0.61201E+01_JPRB,0.79175E+01_JPRB,0.80844E+01_JPRB,0.54240E+01_JPRB /)  
+KB(:, 5,41,11) = (/ &
+ & 0.20093E+01_JPRB,0.68812E+01_JPRB,0.88522E+01_JPRB,0.90249E+01_JPRB,0.60668E+01_JPRB /)  
+KB(:, 1,42,11) = (/ &
+ & 0.79123E+00_JPRB,0.38735E+01_JPRB,0.49960E+01_JPRB,0.51699E+01_JPRB,0.34287E+01_JPRB /)  
+KB(:, 2,42,11) = (/ &
+ & 0.98295E+00_JPRB,0.45072E+01_JPRB,0.58533E+01_JPRB,0.60254E+01_JPRB,0.40109E+01_JPRB /)  
+KB(:, 3,42,11) = (/ &
+ & 0.12364E+01_JPRB,0.51876E+01_JPRB,0.67459E+01_JPRB,0.69214E+01_JPRB,0.46212E+01_JPRB /)  
+KB(:, 4,42,11) = (/ &
+ & 0.15484E+01_JPRB,0.59150E+01_JPRB,0.76665E+01_JPRB,0.78373E+01_JPRB,0.52503E+01_JPRB /)  
+KB(:, 5,42,11) = (/ &
+ & 0.19026E+01_JPRB,0.66716E+01_JPRB,0.86018E+01_JPRB,0.87728E+01_JPRB,0.58915E+01_JPRB /)  
+KB(:, 1,43,11) = (/ &
+ & 0.71984E+00_JPRB,0.36729E+01_JPRB,0.47235E+01_JPRB,0.48975E+01_JPRB,0.32397E+01_JPRB /)  
+KB(:, 2,43,11) = (/ &
+ & 0.89808E+00_JPRB,0.42916E+01_JPRB,0.55697E+01_JPRB,0.57443E+01_JPRB,0.38153E+01_JPRB /)  
+KB(:, 3,43,11) = (/ &
+ & 0.11360E+01_JPRB,0.49574E+01_JPRB,0.64519E+01_JPRB,0.66289E+01_JPRB,0.44184E+01_JPRB /)  
+KB(:, 4,43,11) = (/ &
+ & 0.14345E+01_JPRB,0.56728E+01_JPRB,0.73660E+01_JPRB,0.75410E+01_JPRB,0.50437E+01_JPRB /)  
+KB(:, 5,43,11) = (/ &
+ & 0.17793E+01_JPRB,0.64228E+01_JPRB,0.82999E+01_JPRB,0.84705E+01_JPRB,0.56823E+01_JPRB /)  
+KB(:, 1,44,11) = (/ &
+ & 0.65285E+00_JPRB,0.34667E+01_JPRB,0.44372E+01_JPRB,0.46082E+01_JPRB,0.30399E+01_JPRB /)  
+KB(:, 2,44,11) = (/ &
+ & 0.81657E+00_JPRB,0.40674E+01_JPRB,0.52701E+01_JPRB,0.54466E+01_JPRB,0.36094E+01_JPRB /)  
+KB(:, 3,44,11) = (/ &
+ & 0.10370E+01_JPRB,0.47171E+01_JPRB,0.61405E+01_JPRB,0.63175E+01_JPRB,0.42038E+01_JPRB /)  
+KB(:, 4,44,11) = (/ &
+ & 0.13194E+01_JPRB,0.54184E+01_JPRB,0.70473E+01_JPRB,0.72248E+01_JPRB,0.48237E+01_JPRB /)  
+KB(:, 5,44,11) = (/ &
+ & 0.16514E+01_JPRB,0.61584E+01_JPRB,0.79760E+01_JPRB,0.81477E+01_JPRB,0.54581E+01_JPRB /)  
+KB(:, 1,45,11) = (/ &
+ & 0.59324E+00_JPRB,0.32687E+01_JPRB,0.41610E+01_JPRB,0.43270E+01_JPRB,0.28437E+01_JPRB /)  
+KB(:, 2,45,11) = (/ &
+ & 0.74292E+00_JPRB,0.38502E+01_JPRB,0.49754E+01_JPRB,0.51525E+01_JPRB,0.34081E+01_JPRB /)  
+KB(:, 3,45,11) = (/ &
+ & 0.94606E+00_JPRB,0.44838E+01_JPRB,0.58347E+01_JPRB,0.60112E+01_JPRB,0.39932E+01_JPRB /)  
+KB(:, 4,45,11) = (/ &
+ & 0.12103E+01_JPRB,0.51691E+01_JPRB,0.67312E+01_JPRB,0.69113E+01_JPRB,0.46063E+01_JPRB /)  
+KB(:, 5,45,11) = (/ &
+ & 0.15283E+01_JPRB,0.58970E+01_JPRB,0.76529E+01_JPRB,0.78283E+01_JPRB,0.52365E+01_JPRB /)  
+KB(:, 1,46,11) = (/ &
+ & 0.53665E+00_JPRB,0.30665E+01_JPRB,0.38788E+01_JPRB,0.40344E+01_JPRB,0.26396E+01_JPRB /)  
+KB(:, 2,46,11) = (/ &
+ & 0.67326E+00_JPRB,0.36275E+01_JPRB,0.46685E+01_JPRB,0.48445E+01_JPRB,0.31970E+01_JPRB /)  
+KB(:, 3,46,11) = (/ &
+ & 0.85964E+00_JPRB,0.42450E+01_JPRB,0.55161E+01_JPRB,0.56940E+01_JPRB,0.37742E+01_JPRB /)  
+KB(:, 4,46,11) = (/ &
+ & 0.11026E+01_JPRB,0.49112E+01_JPRB,0.63992E+01_JPRB,0.65795E+01_JPRB,0.43785E+01_JPRB /)  
+KB(:, 5,46,11) = (/ &
+ & 0.14030E+01_JPRB,0.56247E+01_JPRB,0.73128E+01_JPRB,0.74918E+01_JPRB,0.50037E+01_JPRB /)  
+KB(:, 1,47,11) = (/ &
+ & 0.47965E+00_JPRB,0.28512E+01_JPRB,0.35773E+01_JPRB,0.37190E+01_JPRB,0.24179E+01_JPRB /)  
+KB(:, 2,47,11) = (/ &
+ & 0.60499E+00_JPRB,0.33895E+01_JPRB,0.43353E+01_JPRB,0.45070E+01_JPRB,0.29653E+01_JPRB /)  
+KB(:, 3,47,11) = (/ &
+ & 0.77211E+00_JPRB,0.39857E+01_JPRB,0.51656E+01_JPRB,0.53439E+01_JPRB,0.35346E+01_JPRB /)  
+KB(:, 4,47,11) = (/ &
+ & 0.99280E+00_JPRB,0.46320E+01_JPRB,0.60346E+01_JPRB,0.62138E+01_JPRB,0.41278E+01_JPRB /)  
+KB(:, 5,47,11) = (/ &
+ & 0.12711E+01_JPRB,0.53272E+01_JPRB,0.69377E+01_JPRB,0.71189E+01_JPRB,0.47464E+01_JPRB /)  
+KB(:, 1,48,11) = (/ &
+ & 0.42651E+00_JPRB,0.26445E+01_JPRB,0.32894E+01_JPRB,0.34148E+01_JPRB,0.22033E+01_JPRB /)  
+KB(:, 2,48,11) = (/ &
+ & 0.54388E+00_JPRB,0.31611E+01_JPRB,0.40161E+01_JPRB,0.41791E+01_JPRB,0.27373E+01_JPRB /)  
+KB(:, 3,48,11) = (/ &
+ & 0.69368E+00_JPRB,0.37347E+01_JPRB,0.48206E+01_JPRB,0.49989E+01_JPRB,0.32997E+01_JPRB /)  
+KB(:, 4,48,11) = (/ &
+ & 0.89279E+00_JPRB,0.43620E+01_JPRB,0.56767E+01_JPRB,0.58554E+01_JPRB,0.38822E+01_JPRB /)  
+KB(:, 5,48,11) = (/ &
+ & 0.11484E+01_JPRB,0.50369E+01_JPRB,0.65668E+01_JPRB,0.67495E+01_JPRB,0.44918E+01_JPRB /)  
+KB(:, 1,49,11) = (/ &
+ & 0.37713E+00_JPRB,0.24439E+01_JPRB,0.30160E+01_JPRB,0.31206E+01_JPRB,0.19976E+01_JPRB /)  
+KB(:, 2,49,11) = (/ &
+ & 0.48766E+00_JPRB,0.29434E+01_JPRB,0.37104E+01_JPRB,0.38599E+01_JPRB,0.25143E+01_JPRB /)  
+KB(:, 3,49,11) = (/ &
+ & 0.62407E+00_JPRB,0.34939E+01_JPRB,0.44847E+01_JPRB,0.46596E+01_JPRB,0.30680E+01_JPRB /)  
+KB(:, 4,49,11) = (/ &
+ & 0.80298E+00_JPRB,0.41006E+01_JPRB,0.53255E+01_JPRB,0.55049E+01_JPRB,0.36413E+01_JPRB /)  
+KB(:, 5,49,11) = (/ &
+ & 0.10353E+01_JPRB,0.47554E+01_JPRB,0.62010E+01_JPRB,0.63820E+01_JPRB,0.42407E+01_JPRB /)  
+KB(:, 1,50,11) = (/ &
+ & 0.33334E+00_JPRB,0.22573E+01_JPRB,0.27730E+01_JPRB,0.28537E+01_JPRB,0.18141E+01_JPRB /)  
+KB(:, 2,50,11) = (/ &
+ & 0.43824E+00_JPRB,0.27477E+01_JPRB,0.34359E+01_JPRB,0.35712E+01_JPRB,0.23112E+01_JPRB /)  
+KB(:, 3,50,11) = (/ &
+ & 0.56555E+00_JPRB,0.32767E+01_JPRB,0.41807E+01_JPRB,0.43497E+01_JPRB,0.28540E+01_JPRB /)  
+KB(:, 4,50,11) = (/ &
+ & 0.72662E+00_JPRB,0.38631E+01_JPRB,0.50003E+01_JPRB,0.51798E+01_JPRB,0.34206E+01_JPRB /)  
+KB(:, 5,50,11) = (/ &
+ & 0.93811E+00_JPRB,0.44998E+01_JPRB,0.58635E+01_JPRB,0.60433E+01_JPRB,0.40092E+01_JPRB /)  
+KB(:, 1,51,11) = (/ &
+ & 0.29344E+00_JPRB,0.20792E+01_JPRB,0.25493E+01_JPRB,0.26045E+01_JPRB,0.16447E+01_JPRB /)  
+KB(:, 2,51,11) = (/ &
+ & 0.39320E+00_JPRB,0.25633E+01_JPRB,0.31811E+01_JPRB,0.32996E+01_JPRB,0.21202E+01_JPRB /)  
+KB(:, 3,51,11) = (/ &
+ & 0.51335E+00_JPRB,0.30739E+01_JPRB,0.38968E+01_JPRB,0.40554E+01_JPRB,0.26493E+01_JPRB /)  
+KB(:, 4,51,11) = (/ &
+ & 0.65991E+00_JPRB,0.36396E+01_JPRB,0.46910E+01_JPRB,0.48692E+01_JPRB,0.32095E+01_JPRB /)  
+KB(:, 5,51,11) = (/ &
+ & 0.85305E+00_JPRB,0.42602E+01_JPRB,0.55428E+01_JPRB,0.57227E+01_JPRB,0.37890E+01_JPRB /)  
+KB(:, 1,52,11) = (/ &
+ & 0.25634E+00_JPRB,0.19065E+01_JPRB,0.23373E+01_JPRB,0.23675E+01_JPRB,0.14849E+01_JPRB /)  
+KB(:, 2,52,11) = (/ &
+ & 0.35085E+00_JPRB,0.23832E+01_JPRB,0.29380E+01_JPRB,0.30363E+01_JPRB,0.19379E+01_JPRB /)  
+KB(:, 3,52,11) = (/ &
+ & 0.46463E+00_JPRB,0.28806E+01_JPRB,0.36245E+01_JPRB,0.37705E+01_JPRB,0.24499E+01_JPRB /)  
+KB(:, 4,52,11) = (/ &
+ & 0.60014E+00_JPRB,0.34247E+01_JPRB,0.43901E+01_JPRB,0.45644E+01_JPRB,0.30013E+01_JPRB /)  
+KB(:, 5,52,11) = (/ &
+ & 0.77502E+00_JPRB,0.40268E+01_JPRB,0.52264E+01_JPRB,0.54064E+01_JPRB,0.35729E+01_JPRB /)  
+KB(:, 1,53,11) = (/ &
+ & 0.22198E+00_JPRB,0.17382E+01_JPRB,0.21355E+01_JPRB,0.21443E+01_JPRB,0.13321E+01_JPRB /)  
+KB(:, 2,53,11) = (/ &
+ & 0.31088E+00_JPRB,0.22037E+01_JPRB,0.27070E+01_JPRB,0.27809E+01_JPRB,0.17631E+01_JPRB /)  
+KB(:, 3,53,11) = (/ &
+ & 0.41868E+00_JPRB,0.26937E+01_JPRB,0.33628E+01_JPRB,0.34937E+01_JPRB,0.22551E+01_JPRB /)  
+KB(:, 4,53,11) = (/ &
+ & 0.54590E+00_JPRB,0.32172E+01_JPRB,0.40994E+01_JPRB,0.42669E+01_JPRB,0.27950E+01_JPRB /)  
+KB(:, 5,53,11) = (/ &
+ & 0.70382E+00_JPRB,0.37993E+01_JPRB,0.49134E+01_JPRB,0.50934E+01_JPRB,0.33609E+01_JPRB /)  
+KB(:, 1,54,11) = (/ &
+ & 0.19279E+00_JPRB,0.15884E+01_JPRB,0.19576E+01_JPRB,0.19516E+01_JPRB,0.11991E+01_JPRB /)  
+KB(:, 2,54,11) = (/ &
+ & 0.27614E+00_JPRB,0.20423E+01_JPRB,0.25053E+01_JPRB,0.25559E+01_JPRB,0.16106E+01_JPRB /)  
+KB(:, 3,54,11) = (/ &
+ & 0.37900E+00_JPRB,0.25264E+01_JPRB,0.31323E+01_JPRB,0.32473E+01_JPRB,0.20825E+01_JPRB /)  
+KB(:, 4,54,11) = (/ &
+ & 0.49954E+00_JPRB,0.30344E+01_JPRB,0.38425E+01_JPRB,0.39994E+01_JPRB,0.26090E+01_JPRB /)  
+KB(:, 5,54,11) = (/ &
+ & 0.64483E+00_JPRB,0.35967E+01_JPRB,0.46320E+01_JPRB,0.48104E+01_JPRB,0.31683E+01_JPRB /)  
+KB(:, 1,55,11) = (/ &
+ & 0.16752E+00_JPRB,0.14506E+01_JPRB,0.17924E+01_JPRB,0.17780E+01_JPRB,0.10766E+01_JPRB /)  
+KB(:, 2,55,11) = (/ &
+ & 0.24546E+00_JPRB,0.18924E+01_JPRB,0.23215E+01_JPRB,0.23502E+01_JPRB,0.14718E+01_JPRB /)  
+KB(:, 3,55,11) = (/ &
+ & 0.34282E+00_JPRB,0.23686E+01_JPRB,0.29203E+01_JPRB,0.30171E+01_JPRB,0.19238E+01_JPRB /)  
+KB(:, 4,55,11) = (/ &
+ & 0.45751E+00_JPRB,0.28657E+01_JPRB,0.36048E+01_JPRB,0.37504E+01_JPRB,0.24347E+01_JPRB /)  
+KB(:, 5,55,11) = (/ &
+ & 0.59345E+00_JPRB,0.34091E+01_JPRB,0.43692E+01_JPRB,0.45436E+01_JPRB,0.29860E+01_JPRB /)  
+KB(:, 1,56,11) = (/ &
+ & 0.14442E+00_JPRB,0.13191E+01_JPRB,0.16307E+01_JPRB,0.16158E+01_JPRB,0.95966E+00_JPRB /)  
+KB(:, 2,56,11) = (/ &
+ & 0.21629E+00_JPRB,0.17456E+01_JPRB,0.21454E+01_JPRB,0.21553E+01_JPRB,0.13384E+01_JPRB /)  
+KB(:, 3,56,11) = (/ &
+ & 0.30838E+00_JPRB,0.22117E+01_JPRB,0.27184E+01_JPRB,0.27939E+01_JPRB,0.17710E+01_JPRB /)  
+KB(:, 4,56,11) = (/ &
+ & 0.41780E+00_JPRB,0.27024E+01_JPRB,0.33761E+01_JPRB,0.35083E+01_JPRB,0.22647E+01_JPRB /)  
+KB(:, 5,56,11) = (/ &
+ & 0.54633E+00_JPRB,0.32277E+01_JPRB,0.41153E+01_JPRB,0.42835E+01_JPRB,0.28057E+01_JPRB /)  
+KB(:, 1,57,11) = (/ &
+ & 0.12369E+00_JPRB,0.11942E+01_JPRB,0.14751E+01_JPRB,0.14660E+01_JPRB,0.84794E+00_JPRB /)  
+KB(:, 2,57,11) = (/ &
+ & 0.18943E+00_JPRB,0.16025E+01_JPRB,0.19752E+01_JPRB,0.19706E+01_JPRB,0.12104E+01_JPRB /)  
+KB(:, 3,57,11) = (/ &
+ & 0.27580E+00_JPRB,0.20577E+01_JPRB,0.25253E+01_JPRB,0.25785E+01_JPRB,0.16249E+01_JPRB /)  
+KB(:, 4,57,11) = (/ &
+ & 0.38015E+00_JPRB,0.25425E+01_JPRB,0.31554E+01_JPRB,0.32724E+01_JPRB,0.20995E+01_JPRB /)  
+KB(:, 5,57,11) = (/ &
+ & 0.50220E+00_JPRB,0.30528E+01_JPRB,0.38694E+01_JPRB,0.40275E+01_JPRB,0.26279E+01_JPRB /)  
+KB(:, 1,58,11) = (/ &
+ & 0.10619E+00_JPRB,0.10815E+01_JPRB,0.13338E+01_JPRB,0.13340E+01_JPRB,0.74924E+00_JPRB /)  
+KB(:, 2,58,11) = (/ &
+ & 0.16586E+00_JPRB,0.14713E+01_JPRB,0.18183E+01_JPRB,0.18047E+01_JPRB,0.10933E+01_JPRB /)  
+KB(:, 3,58,11) = (/ &
+ & 0.24668E+00_JPRB,0.19150E+01_JPRB,0.23498E+01_JPRB,0.23824E+01_JPRB,0.14931E+01_JPRB /)  
+KB(:, 4,58,11) = (/ &
+ & 0.34613E+00_JPRB,0.23936E+01_JPRB,0.29542E+01_JPRB,0.30545E+01_JPRB,0.19489E+01_JPRB /)  
+KB(:, 5,58,11) = (/ &
+ & 0.46251E+00_JPRB,0.28928E+01_JPRB,0.36439E+01_JPRB,0.37914E+01_JPRB,0.24628E+01_JPRB /)  
+KB(:, 1,59,11) = (/ &
+ & 0.98781E-01_JPRB,0.10374E+01_JPRB,0.12790E+01_JPRB,0.12834E+01_JPRB,0.71091E+00_JPRB /)  
+KB(:, 2,59,11) = (/ &
+ & 0.15643E+00_JPRB,0.14199E+01_JPRB,0.17560E+01_JPRB,0.17406E+01_JPRB,0.10475E+01_JPRB /)  
+KB(:, 3,59,11) = (/ &
+ & 0.23512E+00_JPRB,0.18585E+01_JPRB,0.22815E+01_JPRB,0.23061E+01_JPRB,0.14408E+01_JPRB /)  
+KB(:, 4,59,11) = (/ &
+ & 0.33250E+00_JPRB,0.23338E+01_JPRB,0.28755E+01_JPRB,0.29686E+01_JPRB,0.18898E+01_JPRB /)  
+KB(:, 5,59,11) = (/ &
+ & 0.44697E+00_JPRB,0.28298E+01_JPRB,0.35555E+01_JPRB,0.36984E+01_JPRB,0.23975E+01_JPRB /)  
+KB(:, 1,13,12) = (/ &
+ & 0.30998E+02_JPRB,0.37385E+02_JPRB,0.40609E+02_JPRB,0.38100E+02_JPRB,0.30845E+02_JPRB /)  
+KB(:, 2,13,12) = (/ &
+ & 0.30490E+02_JPRB,0.37042E+02_JPRB,0.40582E+02_JPRB,0.38272E+02_JPRB,0.31245E+02_JPRB /)  
+KB(:, 3,13,12) = (/ &
+ & 0.29985E+02_JPRB,0.36701E+02_JPRB,0.40520E+02_JPRB,0.38445E+02_JPRB,0.31621E+02_JPRB /)  
+KB(:, 4,13,12) = (/ &
+ & 0.29490E+02_JPRB,0.36329E+02_JPRB,0.40415E+02_JPRB,0.38594E+02_JPRB,0.32000E+02_JPRB /)  
+KB(:, 5,13,12) = (/ &
+ & 0.29015E+02_JPRB,0.35959E+02_JPRB,0.40312E+02_JPRB,0.38750E+02_JPRB,0.32433E+02_JPRB /)  
+KB(:, 1,14,12) = (/ &
+ & 0.27110E+02_JPRB,0.35184E+02_JPRB,0.38617E+02_JPRB,0.36399E+02_JPRB,0.28635E+02_JPRB /)  
+KB(:, 2,14,12) = (/ &
+ & 0.26641E+02_JPRB,0.34930E+02_JPRB,0.38606E+02_JPRB,0.36649E+02_JPRB,0.29079E+02_JPRB /)  
+KB(:, 3,14,12) = (/ &
+ & 0.26184E+02_JPRB,0.34642E+02_JPRB,0.38568E+02_JPRB,0.36926E+02_JPRB,0.29498E+02_JPRB /)  
+KB(:, 4,14,12) = (/ &
+ & 0.25751E+02_JPRB,0.34348E+02_JPRB,0.38555E+02_JPRB,0.37188E+02_JPRB,0.29949E+02_JPRB /)  
+KB(:, 5,14,12) = (/ &
+ & 0.25340E+02_JPRB,0.34077E+02_JPRB,0.38568E+02_JPRB,0.37453E+02_JPRB,0.30433E+02_JPRB /)  
+KB(:, 1,15,12) = (/ &
+ & 0.23379E+02_JPRB,0.32658E+02_JPRB,0.36083E+02_JPRB,0.34396E+02_JPRB,0.26632E+02_JPRB /)  
+KB(:, 2,15,12) = (/ &
+ & 0.22961E+02_JPRB,0.32462E+02_JPRB,0.36143E+02_JPRB,0.34739E+02_JPRB,0.27099E+02_JPRB /)  
+KB(:, 3,15,12) = (/ &
+ & 0.22574E+02_JPRB,0.32277E+02_JPRB,0.36234E+02_JPRB,0.35089E+02_JPRB,0.27554E+02_JPRB /)  
+KB(:, 4,15,12) = (/ &
+ & 0.22226E+02_JPRB,0.32107E+02_JPRB,0.36368E+02_JPRB,0.35457E+02_JPRB,0.28061E+02_JPRB /)  
+KB(:, 5,15,12) = (/ &
+ & 0.22052E+02_JPRB,0.31945E+02_JPRB,0.36473E+02_JPRB,0.35860E+02_JPRB,0.28623E+02_JPRB /)  
+KB(:, 1,16,12) = (/ &
+ & 0.19977E+02_JPRB,0.29953E+02_JPRB,0.33281E+02_JPRB,0.32282E+02_JPRB,0.24730E+02_JPRB /)  
+KB(:, 2,16,12) = (/ &
+ & 0.19633E+02_JPRB,0.29859E+02_JPRB,0.33454E+02_JPRB,0.32701E+02_JPRB,0.25245E+02_JPRB /)  
+KB(:, 3,16,12) = (/ &
+ & 0.19340E+02_JPRB,0.29766E+02_JPRB,0.33693E+02_JPRB,0.33152E+02_JPRB,0.25800E+02_JPRB /)  
+KB(:, 4,16,12) = (/ &
+ & 0.19247E+02_JPRB,0.29689E+02_JPRB,0.33933E+02_JPRB,0.33616E+02_JPRB,0.26378E+02_JPRB /)  
+KB(:, 5,16,12) = (/ &
+ & 0.19403E+02_JPRB,0.29623E+02_JPRB,0.34160E+02_JPRB,0.34111E+02_JPRB,0.26924E+02_JPRB /)  
+KB(:, 1,17,12) = (/ &
+ & 0.17051E+02_JPRB,0.27143E+02_JPRB,0.30473E+02_JPRB,0.30161E+02_JPRB,0.22931E+02_JPRB /)  
+KB(:, 2,17,12) = (/ &
+ & 0.16797E+02_JPRB,0.27123E+02_JPRB,0.30776E+02_JPRB,0.30670E+02_JPRB,0.23518E+02_JPRB /)  
+KB(:, 3,17,12) = (/ &
+ & 0.16741E+02_JPRB,0.27141E+02_JPRB,0.31121E+02_JPRB,0.31186E+02_JPRB,0.24127E+02_JPRB /)  
+KB(:, 4,17,12) = (/ &
+ & 0.16948E+02_JPRB,0.27189E+02_JPRB,0.31472E+02_JPRB,0.31736E+02_JPRB,0.24729E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART30',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,17,12) = (/ &
+ & 0.17485E+02_JPRB,0.27288E+02_JPRB,0.31858E+02_JPRB,0.32324E+02_JPRB,0.25297E+02_JPRB /)  
+KB(:, 1,18,12) = (/ &
+ & 0.14597E+02_JPRB,0.24342E+02_JPRB,0.27826E+02_JPRB,0.28130E+02_JPRB,0.21245E+02_JPRB /)  
+KB(:, 2,18,12) = (/ &
+ & 0.14547E+02_JPRB,0.24446E+02_JPRB,0.28237E+02_JPRB,0.28704E+02_JPRB,0.21885E+02_JPRB /)  
+KB(:, 3,18,12) = (/ &
+ & 0.14765E+02_JPRB,0.24583E+02_JPRB,0.28672E+02_JPRB,0.29288E+02_JPRB,0.22535E+02_JPRB /)  
+KB(:, 4,18,12) = (/ &
+ & 0.15315E+02_JPRB,0.24794E+02_JPRB,0.29147E+02_JPRB,0.29934E+02_JPRB,0.23159E+02_JPRB /)  
+KB(:, 5,18,12) = (/ &
+ & 0.16067E+02_JPRB,0.25143E+02_JPRB,0.29634E+02_JPRB,0.30628E+02_JPRB,0.23749E+02_JPRB /)  
+KB(:, 1,19,12) = (/ &
+ & 0.12640E+02_JPRB,0.21753E+02_JPRB,0.25384E+02_JPRB,0.26151E+02_JPRB,0.19661E+02_JPRB /)  
+KB(:, 2,19,12) = (/ &
+ & 0.12835E+02_JPRB,0.21949E+02_JPRB,0.25878E+02_JPRB,0.26810E+02_JPRB,0.20358E+02_JPRB /)  
+KB(:, 3,19,12) = (/ &
+ & 0.13356E+02_JPRB,0.22229E+02_JPRB,0.26410E+02_JPRB,0.27515E+02_JPRB,0.21037E+02_JPRB /)  
+KB(:, 4,19,12) = (/ &
+ & 0.14056E+02_JPRB,0.22664E+02_JPRB,0.26964E+02_JPRB,0.28265E+02_JPRB,0.21685E+02_JPRB /)  
+KB(:, 5,19,12) = (/ &
+ & 0.14855E+02_JPRB,0.23244E+02_JPRB,0.27571E+02_JPRB,0.29046E+02_JPRB,0.22336E+02_JPRB /)  
+KB(:, 1,20,12) = (/ &
+ & 0.11082E+02_JPRB,0.19491E+02_JPRB,0.23194E+02_JPRB,0.24313E+02_JPRB,0.18232E+02_JPRB /)  
+KB(:, 2,20,12) = (/ &
+ & 0.11562E+02_JPRB,0.19787E+02_JPRB,0.23755E+02_JPRB,0.25073E+02_JPRB,0.18946E+02_JPRB /)  
+KB(:, 3,20,12) = (/ &
+ & 0.12224E+02_JPRB,0.20238E+02_JPRB,0.24350E+02_JPRB,0.25880E+02_JPRB,0.19650E+02_JPRB /)  
+KB(:, 4,20,12) = (/ &
+ & 0.12987E+02_JPRB,0.20868E+02_JPRB,0.25012E+02_JPRB,0.26726E+02_JPRB,0.20347E+02_JPRB /)  
+KB(:, 5,20,12) = (/ &
+ & 0.13788E+02_JPRB,0.21712E+02_JPRB,0.25741E+02_JPRB,0.27588E+02_JPRB,0.21074E+02_JPRB /)  
+KB(:, 1,21,12) = (/ &
+ & 0.98833E+01_JPRB,0.17574E+02_JPRB,0.21209E+02_JPRB,0.22623E+02_JPRB,0.16925E+02_JPRB /)  
+KB(:, 2,21,12) = (/ &
+ & 0.10489E+02_JPRB,0.18010E+02_JPRB,0.21858E+02_JPRB,0.23471E+02_JPRB,0.17666E+02_JPRB /)  
+KB(:, 3,21,12) = (/ &
+ & 0.11209E+02_JPRB,0.18622E+02_JPRB,0.22555E+02_JPRB,0.24382E+02_JPRB,0.18394E+02_JPRB /)  
+KB(:, 4,21,12) = (/ &
+ & 0.11974E+02_JPRB,0.19474E+02_JPRB,0.23320E+02_JPRB,0.25315E+02_JPRB,0.19156E+02_JPRB /)  
+KB(:, 5,21,12) = (/ &
+ & 0.12743E+02_JPRB,0.20530E+02_JPRB,0.24213E+02_JPRB,0.26280E+02_JPRB,0.19957E+02_JPRB /)  
+KB(:, 1,22,12) = (/ &
+ & 0.89432E+01_JPRB,0.16023E+02_JPRB,0.19521E+02_JPRB,0.21142E+02_JPRB,0.15785E+02_JPRB /)  
+KB(:, 2,22,12) = (/ &
+ & 0.96012E+01_JPRB,0.16615E+02_JPRB,0.20251E+02_JPRB,0.22105E+02_JPRB,0.16565E+02_JPRB /)  
+KB(:, 3,22,12) = (/ &
+ & 0.10308E+02_JPRB,0.17429E+02_JPRB,0.21053E+02_JPRB,0.23102E+02_JPRB,0.17352E+02_JPRB /)  
+KB(:, 4,22,12) = (/ &
+ & 0.11034E+02_JPRB,0.18474E+02_JPRB,0.21986E+02_JPRB,0.24140E+02_JPRB,0.18184E+02_JPRB /)  
+KB(:, 5,22,12) = (/ &
+ & 0.11779E+02_JPRB,0.19675E+02_JPRB,0.23025E+02_JPRB,0.25198E+02_JPRB,0.19053E+02_JPRB /)  
+KB(:, 1,23,12) = (/ &
+ & 0.81558E+01_JPRB,0.14793E+02_JPRB,0.18088E+02_JPRB,0.19855E+02_JPRB,0.14800E+02_JPRB /)  
+KB(:, 2,23,12) = (/ &
+ & 0.87957E+01_JPRB,0.15543E+02_JPRB,0.18895E+02_JPRB,0.20923E+02_JPRB,0.15621E+02_JPRB /)  
+KB(:, 3,23,12) = (/ &
+ & 0.94593E+01_JPRB,0.16540E+02_JPRB,0.19849E+02_JPRB,0.22025E+02_JPRB,0.16480E+02_JPRB /)  
+KB(:, 4,23,12) = (/ &
+ & 0.10153E+02_JPRB,0.17706E+02_JPRB,0.20923E+02_JPRB,0.23160E+02_JPRB,0.17388E+02_JPRB /)  
+KB(:, 5,23,12) = (/ &
+ & 0.10876E+02_JPRB,0.18993E+02_JPRB,0.22113E+02_JPRB,0.24310E+02_JPRB,0.18322E+02_JPRB /)  
+KB(:, 1,24,12) = (/ &
+ & 0.74526E+01_JPRB,0.13830E+02_JPRB,0.16894E+02_JPRB,0.18769E+02_JPRB,0.13959E+02_JPRB /)  
+KB(:, 2,24,12) = (/ &
+ & 0.80517E+01_JPRB,0.14766E+02_JPRB,0.17833E+02_JPRB,0.19936E+02_JPRB,0.14836E+02_JPRB /)  
+KB(:, 3,24,12) = (/ &
+ & 0.86841E+01_JPRB,0.15873E+02_JPRB,0.18916E+02_JPRB,0.21150E+02_JPRB,0.15773E+02_JPRB /)  
+KB(:, 4,24,12) = (/ &
+ & 0.93535E+01_JPRB,0.17122E+02_JPRB,0.20131E+02_JPRB,0.22383E+02_JPRB,0.16742E+02_JPRB /)  
+KB(:, 5,24,12) = (/ &
+ & 0.10068E+02_JPRB,0.18482E+02_JPRB,0.21482E+02_JPRB,0.23634E+02_JPRB,0.17753E+02_JPRB /)  
+KB(:, 1,25,12) = (/ &
+ & 0.68105E+01_JPRB,0.13122E+02_JPRB,0.15953E+02_JPRB,0.17890E+02_JPRB,0.13264E+02_JPRB /)  
+KB(:, 2,25,12) = (/ &
+ & 0.73796E+01_JPRB,0.14193E+02_JPRB,0.17028E+02_JPRB,0.19160E+02_JPRB,0.14211E+02_JPRB /)  
+KB(:, 3,25,12) = (/ &
+ & 0.79883E+01_JPRB,0.15386E+02_JPRB,0.18237E+02_JPRB,0.20473E+02_JPRB,0.15219E+02_JPRB /)  
+KB(:, 4,25,12) = (/ &
+ & 0.86473E+01_JPRB,0.16702E+02_JPRB,0.19605E+02_JPRB,0.21810E+02_JPRB,0.16257E+02_JPRB /)  
+KB(:, 5,25,12) = (/ &
+ & 0.93513E+01_JPRB,0.18139E+02_JPRB,0.21087E+02_JPRB,0.23158E+02_JPRB,0.17339E+02_JPRB /)  
+KB(:, 1,26,12) = (/ &
+ & 0.62530E+01_JPRB,0.12619E+02_JPRB,0.15260E+02_JPRB,0.17241E+02_JPRB,0.12729E+02_JPRB /)  
+KB(:, 2,26,12) = (/ &
+ & 0.67955E+01_JPRB,0.13786E+02_JPRB,0.16460E+02_JPRB,0.18602E+02_JPRB,0.13751E+02_JPRB /)  
+KB(:, 3,26,12) = (/ &
+ & 0.73876E+01_JPRB,0.15061E+02_JPRB,0.17816E+02_JPRB,0.20014E+02_JPRB,0.14821E+02_JPRB /)  
+KB(:, 4,26,12) = (/ &
+ & 0.80374E+01_JPRB,0.16453E+02_JPRB,0.19314E+02_JPRB,0.21444E+02_JPRB,0.15933E+02_JPRB /)  
+KB(:, 5,26,12) = (/ &
+ & 0.87427E+01_JPRB,0.17956E+02_JPRB,0.20909E+02_JPRB,0.22878E+02_JPRB,0.17080E+02_JPRB /)  
+KB(:, 1,27,12) = (/ &
+ & 0.57700E+01_JPRB,0.12257E+02_JPRB,0.14782E+02_JPRB,0.16780E+02_JPRB,0.12335E+02_JPRB /)  
+KB(:, 2,27,12) = (/ &
+ & 0.62864E+01_JPRB,0.13513E+02_JPRB,0.16114E+02_JPRB,0.18231E+02_JPRB,0.13431E+02_JPRB /)  
+KB(:, 3,27,12) = (/ &
+ & 0.68675E+01_JPRB,0.14868E+02_JPRB,0.17601E+02_JPRB,0.19730E+02_JPRB,0.14565E+02_JPRB /)  
+KB(:, 4,27,12) = (/ &
+ & 0.75138E+01_JPRB,0.16329E+02_JPRB,0.19199E+02_JPRB,0.21244E+02_JPRB,0.15742E+02_JPRB /)  
+KB(:, 5,27,12) = (/ &
+ & 0.82289E+01_JPRB,0.17883E+02_JPRB,0.20886E+02_JPRB,0.22748E+02_JPRB,0.16940E+02_JPRB /)  
+KB(:, 1,28,12) = (/ &
+ & 0.53548E+01_JPRB,0.12024E+02_JPRB,0.14494E+02_JPRB,0.16490E+02_JPRB,0.12074E+02_JPRB /)  
+KB(:, 2,28,12) = (/ &
+ & 0.58567E+01_JPRB,0.13364E+02_JPRB,0.15954E+02_JPRB,0.18023E+02_JPRB,0.13231E+02_JPRB /)  
+KB(:, 3,28,12) = (/ &
+ & 0.64249E+01_JPRB,0.14793E+02_JPRB,0.17548E+02_JPRB,0.19599E+02_JPRB,0.14431E+02_JPRB /)  
+KB(:, 4,28,12) = (/ &
+ & 0.70763E+01_JPRB,0.16306E+02_JPRB,0.19232E+02_JPRB,0.21185E+02_JPRB,0.15664E+02_JPRB /)  
+KB(:, 5,28,12) = (/ &
+ & 0.78108E+01_JPRB,0.17913E+02_JPRB,0.20999E+02_JPRB,0.22748E+02_JPRB,0.16904E+02_JPRB /)  
+KB(:, 1,29,12) = (/ &
+ & 0.50045E+01_JPRB,0.11918E+02_JPRB,0.14389E+02_JPRB,0.16363E+02_JPRB,0.11938E+02_JPRB /)  
+KB(:, 2,29,12) = (/ &
+ & 0.55030E+01_JPRB,0.13334E+02_JPRB,0.15959E+02_JPRB,0.17970E+02_JPRB,0.13155E+02_JPRB /)  
+KB(:, 3,29,12) = (/ &
+ & 0.60662E+01_JPRB,0.14820E+02_JPRB,0.17638E+02_JPRB,0.19611E+02_JPRB,0.14408E+02_JPRB /)  
+KB(:, 4,29,12) = (/ &
+ & 0.67325E+01_JPRB,0.16392E+02_JPRB,0.19392E+02_JPRB,0.21253E+02_JPRB,0.15686E+02_JPRB /)  
+KB(:, 5,29,12) = (/ &
+ & 0.74925E+01_JPRB,0.18044E+02_JPRB,0.21206E+02_JPRB,0.22856E+02_JPRB,0.16965E+02_JPRB /)  
+KB(:, 1,30,12) = (/ &
+ & 0.47172E+01_JPRB,0.11917E+02_JPRB,0.14428E+02_JPRB,0.16368E+02_JPRB,0.11903E+02_JPRB /)  
+KB(:, 2,30,12) = (/ &
+ & 0.52125E+01_JPRB,0.13400E+02_JPRB,0.16089E+02_JPRB,0.18040E+02_JPRB,0.13179E+02_JPRB /)  
+KB(:, 3,30,12) = (/ &
+ & 0.57884E+01_JPRB,0.14940E+02_JPRB,0.17829E+02_JPRB,0.19728E+02_JPRB,0.14475E+02_JPRB /)  
+KB(:, 4,30,12) = (/ &
+ & 0.64722E+01_JPRB,0.16556E+02_JPRB,0.19636E+02_JPRB,0.21408E+02_JPRB,0.15787E+02_JPRB /)  
+KB(:, 5,30,12) = (/ &
+ & 0.72704E+01_JPRB,0.18251E+02_JPRB,0.21479E+02_JPRB,0.23035E+02_JPRB,0.17093E+02_JPRB /)  
+KB(:, 1,31,12) = (/ &
+ & 0.44858E+01_JPRB,0.12017E+02_JPRB,0.14590E+02_JPRB,0.16495E+02_JPRB,0.11969E+02_JPRB /)  
+KB(:, 2,31,12) = (/ &
+ & 0.49908E+01_JPRB,0.13550E+02_JPRB,0.16315E+02_JPRB,0.18215E+02_JPRB,0.13287E+02_JPRB /)  
+KB(:, 3,31,12) = (/ &
+ & 0.55864E+01_JPRB,0.15140E+02_JPRB,0.18101E+02_JPRB,0.19933E+02_JPRB,0.14620E+02_JPRB /)  
+KB(:, 4,31,12) = (/ &
+ & 0.63024E+01_JPRB,0.16801E+02_JPRB,0.19948E+02_JPRB,0.21636E+02_JPRB,0.15956E+02_JPRB /)  
+KB(:, 5,31,12) = (/ &
+ & 0.71504E+01_JPRB,0.18530E+02_JPRB,0.21815E+02_JPRB,0.23280E+02_JPRB,0.17277E+02_JPRB /)  
+KB(:, 1,32,12) = (/ &
+ & 0.43064E+01_JPRB,0.12199E+02_JPRB,0.14841E+02_JPRB,0.16712E+02_JPRB,0.12112E+02_JPRB /)  
+KB(:, 2,32,12) = (/ &
+ & 0.48346E+01_JPRB,0.13779E+02_JPRB,0.16613E+02_JPRB,0.18463E+02_JPRB,0.13462E+02_JPRB /)  
+KB(:, 3,32,12) = (/ &
+ & 0.54614E+01_JPRB,0.15404E+02_JPRB,0.18438E+02_JPRB,0.20209E+02_JPRB,0.14821E+02_JPRB /)  
+KB(:, 4,32,12) = (/ &
+ & 0.62177E+01_JPRB,0.17102E+02_JPRB,0.20311E+02_JPRB,0.21920E+02_JPRB,0.16172E+02_JPRB /)  
+KB(:, 5,32,12) = (/ &
+ & 0.71259E+01_JPRB,0.18855E+02_JPRB,0.22195E+02_JPRB,0.23574E+02_JPRB,0.17506E+02_JPRB /)  
+KB(:, 1,33,12) = (/ &
+ & 0.41801E+01_JPRB,0.12450E+02_JPRB,0.15154E+02_JPRB,0.16994E+02_JPRB,0.12315E+02_JPRB /)  
+KB(:, 2,33,12) = (/ &
+ & 0.47391E+01_JPRB,0.14064E+02_JPRB,0.16963E+02_JPRB,0.18765E+02_JPRB,0.13689E+02_JPRB /)  
+KB(:, 3,33,12) = (/ &
+ & 0.54061E+01_JPRB,0.15717E+02_JPRB,0.18820E+02_JPRB,0.20527E+02_JPRB,0.15064E+02_JPRB /)  
+KB(:, 4,33,12) = (/ &
+ & 0.62146E+01_JPRB,0.17442E+02_JPRB,0.20711E+02_JPRB,0.22242E+02_JPRB,0.16420E+02_JPRB /)  
+KB(:, 5,33,12) = (/ &
+ & 0.71827E+01_JPRB,0.19219E+02_JPRB,0.22608E+02_JPRB,0.23903E+02_JPRB,0.17762E+02_JPRB /)  
+KB(:, 1,34,12) = (/ &
+ & 0.40887E+01_JPRB,0.12691E+02_JPRB,0.15451E+02_JPRB,0.17259E+02_JPRB,0.12512E+02_JPRB /)  
+KB(:, 2,34,12) = (/ &
+ & 0.46819E+01_JPRB,0.14330E+02_JPRB,0.17288E+02_JPRB,0.19046E+02_JPRB,0.13902E+02_JPRB /)  
+KB(:, 3,34,12) = (/ &
+ & 0.53890E+01_JPRB,0.16007E+02_JPRB,0.19166E+02_JPRB,0.20816E+02_JPRB,0.15287E+02_JPRB /)  
+KB(:, 4,34,12) = (/ &
+ & 0.62486E+01_JPRB,0.17752E+02_JPRB,0.21067E+02_JPRB,0.22532E+02_JPRB,0.16650E+02_JPRB /)  
+KB(:, 5,34,12) = (/ &
+ & 0.72682E+01_JPRB,0.19545E+02_JPRB,0.22972E+02_JPRB,0.24194E+02_JPRB,0.17995E+02_JPRB /)  
+KB(:, 1,35,12) = (/ &
+ & 0.39916E+01_JPRB,0.12809E+02_JPRB,0.15601E+02_JPRB,0.17383E+02_JPRB,0.12605E+02_JPRB /)  
+KB(:, 2,35,12) = (/ &
+ & 0.46112E+01_JPRB,0.14460E+02_JPRB,0.17457E+02_JPRB,0.19181E+02_JPRB,0.14005E+02_JPRB /)  
+KB(:, 3,35,12) = (/ &
+ & 0.53474E+01_JPRB,0.16154E+02_JPRB,0.19347E+02_JPRB,0.20958E+02_JPRB,0.15398E+02_JPRB /)  
+KB(:, 4,35,12) = (/ &
+ & 0.62430E+01_JPRB,0.17913E+02_JPRB,0.21258E+02_JPRB,0.22679E+02_JPRB,0.16764E+02_JPRB /)  
+KB(:, 5,35,12) = (/ &
+ & 0.72953E+01_JPRB,0.19716E+02_JPRB,0.23169E+02_JPRB,0.24345E+02_JPRB,0.18113E+02_JPRB /)  
+KB(:, 1,36,12) = (/ &
+ & 0.38696E+01_JPRB,0.12768E+02_JPRB,0.15571E+02_JPRB,0.17332E+02_JPRB,0.12565E+02_JPRB /)  
+KB(:, 2,36,12) = (/ &
+ & 0.45034E+01_JPRB,0.14429E+02_JPRB,0.17436E+02_JPRB,0.19141E+02_JPRB,0.13973E+02_JPRB /)  
+KB(:, 3,36,12) = (/ &
+ & 0.52555E+01_JPRB,0.16128E+02_JPRB,0.19333E+02_JPRB,0.20927E+02_JPRB,0.15372E+02_JPRB /)  
+KB(:, 4,36,12) = (/ &
+ & 0.61640E+01_JPRB,0.17893E+02_JPRB,0.21249E+02_JPRB,0.22656E+02_JPRB,0.16743E+02_JPRB /)  
+KB(:, 5,36,12) = (/ &
+ & 0.72295E+01_JPRB,0.19702E+02_JPRB,0.23168E+02_JPRB,0.24329E+02_JPRB,0.18096E+02_JPRB /)  
+KB(:, 1,37,12) = (/ &
+ & 0.36883E+01_JPRB,0.12493E+02_JPRB,0.15274E+02_JPRB,0.17021E+02_JPRB,0.12322E+02_JPRB /)  
+KB(:, 2,37,12) = (/ &
+ & 0.43193E+01_JPRB,0.14156E+02_JPRB,0.17140E+02_JPRB,0.18841E+02_JPRB,0.13739E+02_JPRB /)  
+KB(:, 3,37,12) = (/ &
+ & 0.50636E+01_JPRB,0.15852E+02_JPRB,0.19039E+02_JPRB,0.20638E+02_JPRB,0.15145E+02_JPRB /)  
+KB(:, 4,37,12) = (/ &
+ & 0.59573E+01_JPRB,0.17616E+02_JPRB,0.20958E+02_JPRB,0.22386E+02_JPRB,0.16525E+02_JPRB /)  
+KB(:, 5,37,12) = (/ &
+ & 0.70089E+01_JPRB,0.19421E+02_JPRB,0.22881E+02_JPRB,0.24071E+02_JPRB,0.17883E+02_JPRB /)  
+KB(:, 1,38,12) = (/ &
+ & 0.35253E+01_JPRB,0.12215E+02_JPRB,0.14971E+02_JPRB,0.16706E+02_JPRB,0.12079E+02_JPRB /)  
+KB(:, 2,38,12) = (/ &
+ & 0.41507E+01_JPRB,0.13877E+02_JPRB,0.16837E+02_JPRB,0.18535E+02_JPRB,0.13501E+02_JPRB /)  
+KB(:, 3,38,12) = (/ &
+ & 0.48852E+01_JPRB,0.15572E+02_JPRB,0.18736E+02_JPRB,0.20342E+02_JPRB,0.14913E+02_JPRB /)  
+KB(:, 4,38,12) = (/ &
+ & 0.57613E+01_JPRB,0.17329E+02_JPRB,0.20656E+02_JPRB,0.22106E+02_JPRB,0.16300E+02_JPRB /)  
+KB(:, 5,38,12) = (/ &
+ & 0.67957E+01_JPRB,0.19130E+02_JPRB,0.22581E+02_JPRB,0.23804E+02_JPRB,0.17665E+02_JPRB /)  
+KB(:, 1,39,12) = (/ &
+ & 0.33825E+01_JPRB,0.11947E+02_JPRB,0.14676E+02_JPRB,0.16402E+02_JPRB,0.11843E+02_JPRB /)  
+KB(:, 2,39,12) = (/ &
+ & 0.39997E+01_JPRB,0.13607E+02_JPRB,0.16542E+02_JPRB,0.18237E+02_JPRB,0.13271E+02_JPRB /)  
+KB(:, 3,39,12) = (/ &
+ & 0.47242E+01_JPRB,0.15300E+02_JPRB,0.18440E+02_JPRB,0.20053E+02_JPRB,0.14687E+02_JPRB /)  
+KB(:, 4,39,12) = (/ &
+ & 0.55821E+01_JPRB,0.17050E+02_JPRB,0.20362E+02_JPRB,0.21831E+02_JPRB,0.16081E+02_JPRB /)  
+KB(:, 5,39,12) = (/ &
+ & 0.65965E+01_JPRB,0.18849E+02_JPRB,0.22289E+02_JPRB,0.23541E+02_JPRB,0.17452E+02_JPRB /)  
+KB(:, 1,40,12) = (/ &
+ & 0.31990E+01_JPRB,0.11518E+02_JPRB,0.14197E+02_JPRB,0.15916E+02_JPRB,0.11466E+02_JPRB /)  
+KB(:, 2,40,12) = (/ &
+ & 0.37954E+01_JPRB,0.13171E+02_JPRB,0.16060E+02_JPRB,0.17759E+02_JPRB,0.12898E+02_JPRB /)  
+KB(:, 3,40,12) = (/ &
+ & 0.44984E+01_JPRB,0.14859E+02_JPRB,0.17955E+02_JPRB,0.19586E+02_JPRB,0.14321E+02_JPRB /)  
+KB(:, 4,40,12) = (/ &
+ & 0.53220E+01_JPRB,0.16595E+02_JPRB,0.19875E+02_JPRB,0.21381E+02_JPRB,0.15725E+02_JPRB /)  
+KB(:, 5,40,12) = (/ &
+ & 0.62999E+01_JPRB,0.18387E+02_JPRB,0.21803E+02_JPRB,0.23109E+02_JPRB,0.17102E+02_JPRB /)  
+KB(:, 1,41,12) = (/ &
+ & 0.30240E+01_JPRB,0.11079E+02_JPRB,0.13703E+02_JPRB,0.15411E+02_JPRB,0.11075E+02_JPRB /)  
+KB(:, 2,41,12) = (/ &
+ & 0.35998E+01_JPRB,0.12722E+02_JPRB,0.15561E+02_JPRB,0.17259E+02_JPRB,0.12509E+02_JPRB /)  
+KB(:, 3,41,12) = (/ &
+ & 0.42766E+01_JPRB,0.14402E+02_JPRB,0.17450E+02_JPRB,0.19096E+02_JPRB,0.13938E+02_JPRB /)  
+KB(:, 4,41,12) = (/ &
+ & 0.50663E+01_JPRB,0.16123E+02_JPRB,0.19365E+02_JPRB,0.20905E+02_JPRB,0.15352E+02_JPRB /)  
+KB(:, 5,41,12) = (/ &
+ & 0.60051E+01_JPRB,0.17908E+02_JPRB,0.21295E+02_JPRB,0.22653E+02_JPRB,0.16735E+02_JPRB /)  
+KB(:, 1,42,12) = (/ &
+ & 0.28652E+01_JPRB,0.10648E+02_JPRB,0.13219E+02_JPRB,0.14913E+02_JPRB,0.10689E+02_JPRB /)  
+KB(:, 2,42,12) = (/ &
+ & 0.34153E+01_JPRB,0.12278E+02_JPRB,0.15063E+02_JPRB,0.16761E+02_JPRB,0.12121E+02_JPRB /)  
+KB(:, 3,42,12) = (/ &
+ & 0.40672E+01_JPRB,0.13952E+02_JPRB,0.16947E+02_JPRB,0.18606E+02_JPRB,0.13557E+02_JPRB /)  
+KB(:, 4,42,12) = (/ &
+ & 0.48264E+01_JPRB,0.15661E+02_JPRB,0.18858E+02_JPRB,0.20426E+02_JPRB,0.14977E+02_JPRB /)  
+KB(:, 5,42,12) = (/ &
+ & 0.57266E+01_JPRB,0.17431E+02_JPRB,0.20787E+02_JPRB,0.22197E+02_JPRB,0.16370E+02_JPRB /)  
+KB(:, 1,43,12) = (/ &
+ & 0.26870E+01_JPRB,0.10134E+02_JPRB,0.12642E+02_JPRB,0.14316E+02_JPRB,0.10228E+02_JPRB /)  
+KB(:, 2,43,12) = (/ &
+ & 0.32108E+01_JPRB,0.11745E+02_JPRB,0.14465E+02_JPRB,0.16161E+02_JPRB,0.11657E+02_JPRB /)  
+KB(:, 3,43,12) = (/ &
+ & 0.38308E+01_JPRB,0.13408E+02_JPRB,0.16340E+02_JPRB,0.18012E+02_JPRB,0.13095E+02_JPRB /)  
+KB(:, 4,43,12) = (/ &
+ & 0.45569E+01_JPRB,0.15107E+02_JPRB,0.18246E+02_JPRB,0.19843E+02_JPRB,0.14521E+02_JPRB /)  
+KB(:, 5,43,12) = (/ &
+ & 0.54100E+01_JPRB,0.16859E+02_JPRB,0.20173E+02_JPRB,0.21637E+02_JPRB,0.15927E+02_JPRB /)  
+KB(:, 1,44,12) = (/ &
+ & 0.25051E+01_JPRB,0.95885E+01_JPRB,0.12032E+02_JPRB,0.13682E+02_JPRB,0.97372E+01_JPRB /)  
+KB(:, 2,44,12) = (/ &
+ & 0.30054E+01_JPRB,0.11180E+02_JPRB,0.13825E+02_JPRB,0.15517E+02_JPRB,0.11159E+02_JPRB /)  
+KB(:, 3,44,12) = (/ &
+ & 0.35923E+01_JPRB,0.12828E+02_JPRB,0.15690E+02_JPRB,0.17372E+02_JPRB,0.12597E+02_JPRB /)  
+KB(:, 4,44,12) = (/ &
+ & 0.42861E+01_JPRB,0.14518E+02_JPRB,0.17591E+02_JPRB,0.19215E+02_JPRB,0.14031E+02_JPRB /)  
+KB(:, 5,44,12) = (/ &
+ & 0.50891E+01_JPRB,0.16248E+02_JPRB,0.19511E+02_JPRB,0.21026E+02_JPRB,0.15447E+02_JPRB /)  
+KB(:, 1,45,12) = (/ &
+ & 0.23284E+01_JPRB,0.90519E+01_JPRB,0.11435E+02_JPRB,0.13049E+02_JPRB,0.92487E+01_JPRB /)  
+KB(:, 2,45,12) = (/ &
+ & 0.28153E+01_JPRB,0.10623E+02_JPRB,0.13197E+02_JPRB,0.14880E+02_JPRB,0.10666E+02_JPRB /)  
+KB(:, 3,45,12) = (/ &
+ & 0.33686E+01_JPRB,0.12254E+02_JPRB,0.15046E+02_JPRB,0.16733E+02_JPRB,0.12101E+02_JPRB /)  
+KB(:, 4,45,12) = (/ &
+ & 0.40279E+01_JPRB,0.13936E+02_JPRB,0.16938E+02_JPRB,0.18583E+02_JPRB,0.13540E+02_JPRB /)  
+KB(:, 5,45,12) = (/ &
+ & 0.47894E+01_JPRB,0.15648E+02_JPRB,0.18852E+02_JPRB,0.20408E+02_JPRB,0.14963E+02_JPRB /)  
+KB(:, 1,46,12) = (/ &
+ & 0.21477E+01_JPRB,0.84947E+01_JPRB,0.10808E+02_JPRB,0.12382E+02_JPRB,0.87316E+01_JPRB /)  
+KB(:, 2,46,12) = (/ &
+ & 0.26237E+01_JPRB,0.10040E+02_JPRB,0.12543E+02_JPRB,0.14206E+02_JPRB,0.10145E+02_JPRB /)  
+KB(:, 3,46,12) = (/ &
+ & 0.31493E+01_JPRB,0.11653E+02_JPRB,0.14367E+02_JPRB,0.16054E+02_JPRB,0.11575E+02_JPRB /)  
+KB(:, 4,46,12) = (/ &
+ & 0.37687E+01_JPRB,0.13319E+02_JPRB,0.16247E+02_JPRB,0.17910E+02_JPRB,0.13015E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART31',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,46,12) = (/ &
+ & 0.44919E+01_JPRB,0.15018E+02_JPRB,0.18154E+02_JPRB,0.19746E+02_JPRB,0.14446E+02_JPRB /)  
+KB(:, 1,47,12) = (/ &
+ & 0.19539E+01_JPRB,0.78866E+01_JPRB,0.10121E+02_JPRB,0.11642E+02_JPRB,0.81629E+01_JPRB /)  
+KB(:, 2,47,12) = (/ &
+ & 0.24188E+01_JPRB,0.94011E+01_JPRB,0.11827E+02_JPRB,0.13461E+02_JPRB,0.95671E+01_JPRB /)  
+KB(:, 3,47,12) = (/ &
+ & 0.29183E+01_JPRB,0.10990E+02_JPRB,0.13614E+02_JPRB,0.15297E+02_JPRB,0.10990E+02_JPRB /)  
+KB(:, 4,47,12) = (/ &
+ & 0.34981E+01_JPRB,0.12636E+02_JPRB,0.15480E+02_JPRB,0.17155E+02_JPRB,0.12429E+02_JPRB /)  
+KB(:, 5,47,12) = (/ &
+ & 0.41787E+01_JPRB,0.14323E+02_JPRB,0.17378E+02_JPRB,0.19005E+02_JPRB,0.13866E+02_JPRB /)  
+KB(:, 1,48,12) = (/ &
+ & 0.17686E+01_JPRB,0.73016E+01_JPRB,0.94471E+01_JPRB,0.10908E+02_JPRB,0.76062E+01_JPRB /)  
+KB(:, 2,48,12) = (/ &
+ & 0.22191E+01_JPRB,0.87750E+01_JPRB,0.11125E+02_JPRB,0.12718E+02_JPRB,0.89921E+01_JPRB /)  
+KB(:, 3,48,12) = (/ &
+ & 0.27045E+01_JPRB,0.10336E+02_JPRB,0.12878E+02_JPRB,0.14548E+02_JPRB,0.10409E+02_JPRB /)  
+KB(:, 4,48,12) = (/ &
+ & 0.32460E+01_JPRB,0.11962E+02_JPRB,0.14721E+02_JPRB,0.16399E+02_JPRB,0.11843E+02_JPRB /)  
+KB(:, 5,48,12) = (/ &
+ & 0.38847E+01_JPRB,0.13635E+02_JPRB,0.16605E+02_JPRB,0.18256E+02_JPRB,0.13285E+02_JPRB /)  
+KB(:, 1,49,12) = (/ &
+ & 0.15926E+01_JPRB,0.67448E+01_JPRB,0.87885E+01_JPRB,0.10183E+02_JPRB,0.70558E+01_JPRB /)  
+KB(:, 2,49,12) = (/ &
+ & 0.20265E+01_JPRB,0.81616E+01_JPRB,0.10434E+02_JPRB,0.11978E+02_JPRB,0.84210E+01_JPRB /)  
+KB(:, 3,49,12) = (/ &
+ & 0.24995E+01_JPRB,0.96943E+01_JPRB,0.12158E+02_JPRB,0.13804E+02_JPRB,0.98335E+01_JPRB /)  
+KB(:, 4,49,12) = (/ &
+ & 0.30106E+01_JPRB,0.11296E+02_JPRB,0.13964E+02_JPRB,0.15645E+02_JPRB,0.11261E+02_JPRB /)  
+KB(:, 5,49,12) = (/ &
+ & 0.36091E+01_JPRB,0.12953E+02_JPRB,0.15838E+02_JPRB,0.17505E+02_JPRB,0.12701E+02_JPRB /)  
+KB(:, 1,50,12) = (/ &
+ & 0.14367E+01_JPRB,0.62503E+01_JPRB,0.81839E+01_JPRB,0.95114E+01_JPRB,0.65470E+01_JPRB /)  
+KB(:, 2,50,12) = (/ &
+ & 0.18513E+01_JPRB,0.76037E+01_JPRB,0.97986E+01_JPRB,0.11290E+02_JPRB,0.78962E+01_JPRB /)  
+KB(:, 3,50,12) = (/ &
+ & 0.23123E+01_JPRB,0.91032E+01_JPRB,0.11496E+02_JPRB,0.13108E+02_JPRB,0.92947E+01_JPRB /)  
+KB(:, 4,50,12) = (/ &
+ & 0.28056E+01_JPRB,0.10680E+02_JPRB,0.13267E+02_JPRB,0.14942E+02_JPRB,0.10716E+02_JPRB /)  
+KB(:, 5,50,12) = (/ &
+ & 0.33664E+01_JPRB,0.12318E+02_JPRB,0.15124E+02_JPRB,0.16800E+02_JPRB,0.12153E+02_JPRB /)  
+KB(:, 1,51,12) = (/ &
+ & 0.12944E+01_JPRB,0.57936E+01_JPRB,0.76117E+01_JPRB,0.88742E+01_JPRB,0.60642E+01_JPRB /)  
+KB(:, 2,51,12) = (/ &
+ & 0.16888E+01_JPRB,0.70852E+01_JPRB,0.91933E+01_JPRB,0.10628E+02_JPRB,0.73944E+01_JPRB /)  
+KB(:, 3,51,12) = (/ &
+ & 0.21353E+01_JPRB,0.85416E+01_JPRB,0.10863E+02_JPRB,0.12436E+02_JPRB,0.87735E+01_JPRB /)  
+KB(:, 4,51,12) = (/ &
+ & 0.26169E+01_JPRB,0.10093E+02_JPRB,0.12607E+02_JPRB,0.14266E+02_JPRB,0.10192E+02_JPRB /)  
+KB(:, 5,51,12) = (/ &
+ & 0.31479E+01_JPRB,0.11711E+02_JPRB,0.14438E+02_JPRB,0.16116E+02_JPRB,0.11624E+02_JPRB /)  
+KB(:, 1,52,12) = (/ &
+ & 0.11616E+01_JPRB,0.53570E+01_JPRB,0.70533E+01_JPRB,0.82560E+01_JPRB,0.55953E+01_JPRB /)  
+KB(:, 2,52,12) = (/ &
+ & 0.15340E+01_JPRB,0.65899E+01_JPRB,0.86019E+01_JPRB,0.99750E+01_JPRB,0.68982E+01_JPRB /)  
+KB(:, 3,52,12) = (/ &
+ & 0.19643E+01_JPRB,0.79903E+01_JPRB,0.10241E+02_JPRB,0.11768E+02_JPRB,0.82604E+01_JPRB /)  
+KB(:, 4,52,12) = (/ &
+ & 0.24347E+01_JPRB,0.95157E+01_JPRB,0.11958E+02_JPRB,0.13593E+02_JPRB,0.96707E+01_JPRB /)  
+KB(:, 5,52,12) = (/ &
+ & 0.29410E+01_JPRB,0.11112E+02_JPRB,0.13756E+02_JPRB,0.15434E+02_JPRB,0.11097E+02_JPRB /)  
+KB(:, 1,53,12) = (/ &
+ & 0.10377E+01_JPRB,0.49398E+01_JPRB,0.65141E+01_JPRB,0.76518E+01_JPRB,0.51386E+01_JPRB /)  
+KB(:, 2,53,12) = (/ &
+ & 0.13876E+01_JPRB,0.61188E+01_JPRB,0.80207E+01_JPRB,0.93291E+01_JPRB,0.64095E+01_JPRB /)  
+KB(:, 3,53,12) = (/ &
+ & 0.17987E+01_JPRB,0.74567E+01_JPRB,0.96292E+01_JPRB,0.11104E+02_JPRB,0.77562E+01_JPRB /)  
+KB(:, 4,53,12) = (/ &
+ & 0.22559E+01_JPRB,0.89467E+01_JPRB,0.11320E+02_JPRB,0.12921E+02_JPRB,0.91504E+01_JPRB /)  
+KB(:, 5,53,12) = (/ &
+ & 0.27477E+01_JPRB,0.10518E+02_JPRB,0.13086E+02_JPRB,0.14756E+02_JPRB,0.10571E+02_JPRB /)  
+KB(:, 1,54,12) = (/ &
+ & 0.93266E+00_JPRB,0.45754E+01_JPRB,0.60420E+01_JPRB,0.71108E+01_JPRB,0.47321E+01_JPRB /)  
+KB(:, 2,54,12) = (/ &
+ & 0.12608E+01_JPRB,0.57055E+01_JPRB,0.75003E+01_JPRB,0.87512E+01_JPRB,0.59717E+01_JPRB /)  
+KB(:, 3,54,12) = (/ &
+ & 0.16525E+01_JPRB,0.69875E+01_JPRB,0.90782E+01_JPRB,0.10501E+02_JPRB,0.72982E+01_JPRB /)  
+KB(:, 4,54,12) = (/ &
+ & 0.20962E+01_JPRB,0.84351E+01_JPRB,0.10744E+02_JPRB,0.12308E+02_JPRB,0.86747E+01_JPRB /)  
+KB(:, 5,54,12) = (/ &
+ & 0.25775E+01_JPRB,0.99827E+01_JPRB,0.12485E+02_JPRB,0.14138E+02_JPRB,0.10092E+02_JPRB /)  
+KB(:, 1,55,12) = (/ &
+ & 0.84048E+00_JPRB,0.42428E+01_JPRB,0.56145E+01_JPRB,0.66054E+01_JPRB,0.43544E+01_JPRB /)  
+KB(:, 2,55,12) = (/ &
+ & 0.11472E+01_JPRB,0.53270E+01_JPRB,0.70144E+01_JPRB,0.82122E+01_JPRB,0.55615E+01_JPRB /)  
+KB(:, 3,55,12) = (/ &
+ & 0.15181E+01_JPRB,0.65556E+01_JPRB,0.85601E+01_JPRB,0.99280E+01_JPRB,0.68631E+01_JPRB /)  
+KB(:, 4,55,12) = (/ &
+ & 0.19474E+01_JPRB,0.79524E+01_JPRB,0.10198E+02_JPRB,0.11721E+02_JPRB,0.82252E+01_JPRB /)  
+KB(:, 5,55,12) = (/ &
+ & 0.24188E+01_JPRB,0.94776E+01_JPRB,0.11916E+02_JPRB,0.13548E+02_JPRB,0.96351E+01_JPRB /)  
+KB(:, 1,56,12) = (/ &
+ & 0.75447E+00_JPRB,0.39270E+01_JPRB,0.52064E+01_JPRB,0.61093E+01_JPRB,0.39870E+01_JPRB /)  
+KB(:, 2,56,12) = (/ &
+ & 0.10395E+01_JPRB,0.49623E+01_JPRB,0.65429E+01_JPRB,0.76840E+01_JPRB,0.51623E+01_JPRB /)  
+KB(:, 3,56,12) = (/ &
+ & 0.13908E+01_JPRB,0.61440E+01_JPRB,0.80522E+01_JPRB,0.93640E+01_JPRB,0.64360E+01_JPRB /)  
+KB(:, 4,56,12) = (/ &
+ & 0.18031E+01_JPRB,0.74859E+01_JPRB,0.96627E+01_JPRB,0.11140E+02_JPRB,0.77842E+01_JPRB /)  
+KB(:, 5,56,12) = (/ &
+ & 0.22626E+01_JPRB,0.89798E+01_JPRB,0.11358E+02_JPRB,0.12960E+02_JPRB,0.91800E+01_JPRB /)  
+KB(:, 1,57,12) = (/ &
+ & 0.67513E+00_JPRB,0.36336E+01_JPRB,0.48180E+01_JPRB,0.56247E+01_JPRB,0.36284E+01_JPRB /)  
+KB(:, 2,57,12) = (/ &
+ & 0.93951E+00_JPRB,0.46135E+01_JPRB,0.60910E+01_JPRB,0.71671E+01_JPRB,0.47736E+01_JPRB /)  
+KB(:, 3,57,12) = (/ &
+ & 0.12699E+01_JPRB,0.57481E+01_JPRB,0.75541E+01_JPRB,0.88107E+01_JPRB,0.60168E+01_JPRB /)  
+KB(:, 4,57,12) = (/ &
+ & 0.16637E+01_JPRB,0.70362E+01_JPRB,0.91351E+01_JPRB,0.10564E+02_JPRB,0.73465E+01_JPRB /)  
+KB(:, 5,57,12) = (/ &
+ & 0.21102E+01_JPRB,0.84904E+01_JPRB,0.10807E+02_JPRB,0.12374E+02_JPRB,0.87256E+01_JPRB /)  
+KB(:, 1,58,12) = (/ &
+ & 0.60371E+00_JPRB,0.33725E+01_JPRB,0.44640E+01_JPRB,0.51801E+01_JPRB,0.32968E+01_JPRB /)  
+KB(:, 2,58,12) = (/ &
+ & 0.85131E+00_JPRB,0.42951E+01_JPRB,0.56822E+01_JPRB,0.66873E+01_JPRB,0.44155E+01_JPRB /)  
+KB(:, 3,58,12) = (/ &
+ & 0.11611E+01_JPRB,0.53867E+01_JPRB,0.70919E+01_JPRB,0.82985E+01_JPRB,0.56282E+01_JPRB /)  
+KB(:, 4,58,12) = (/ &
+ & 0.15366E+01_JPRB,0.66258E+01_JPRB,0.86445E+01_JPRB,0.10022E+02_JPRB,0.69358E+01_JPRB /)  
+KB(:, 5,58,12) = (/ &
+ & 0.19698E+01_JPRB,0.80329E+01_JPRB,0.10290E+02_JPRB,0.11819E+02_JPRB,0.83004E+01_JPRB /)  
+KB(:, 1,59,12) = (/ &
+ & 0.57552E+00_JPRB,0.32717E+01_JPRB,0.43250E+01_JPRB,0.50045E+01_JPRB,0.31668E+01_JPRB /)  
+KB(:, 2,59,12) = (/ &
+ & 0.81716E+00_JPRB,0.41713E+01_JPRB,0.55225E+01_JPRB,0.64964E+01_JPRB,0.42740E+01_JPRB /)  
+KB(:, 3,59,12) = (/ &
+ & 0.11190E+01_JPRB,0.52446E+01_JPRB,0.69091E+01_JPRB,0.80966E+01_JPRB,0.54744E+01_JPRB /)  
+KB(:, 4,59,12) = (/ &
+ & 0.14869E+01_JPRB,0.64659E+01_JPRB,0.84502E+01_JPRB,0.98065E+01_JPRB,0.67716E+01_JPRB /)  
+KB(:, 5,59,12) = (/ &
+ & 0.19139E+01_JPRB,0.78535E+01_JPRB,0.10085E+02_JPRB,0.11598E+02_JPRB,0.81311E+01_JPRB /)  
+KB(:, 1,13,13) = (/ &
+ & 0.79406E+02_JPRB,0.76977E+02_JPRB,0.79398E+02_JPRB,0.72265E+02_JPRB,0.70608E+02_JPRB /)  
+KB(:, 2,13,13) = (/ &
+ & 0.78716E+02_JPRB,0.76325E+02_JPRB,0.79145E+02_JPRB,0.72561E+02_JPRB,0.71233E+02_JPRB /)  
+KB(:, 3,13,13) = (/ &
+ & 0.77960E+02_JPRB,0.75684E+02_JPRB,0.78864E+02_JPRB,0.72811E+02_JPRB,0.71703E+02_JPRB /)  
+KB(:, 4,13,13) = (/ &
+ & 0.77172E+02_JPRB,0.75038E+02_JPRB,0.78462E+02_JPRB,0.73003E+02_JPRB,0.72067E+02_JPRB /)  
+KB(:, 5,13,13) = (/ &
+ & 0.76342E+02_JPRB,0.74357E+02_JPRB,0.78015E+02_JPRB,0.73077E+02_JPRB,0.72406E+02_JPRB /)  
+KB(:, 1,14,13) = (/ &
+ & 0.74002E+02_JPRB,0.75964E+02_JPRB,0.80244E+02_JPRB,0.73931E+02_JPRB,0.67973E+02_JPRB /)  
+KB(:, 2,14,13) = (/ &
+ & 0.73259E+02_JPRB,0.75350E+02_JPRB,0.80187E+02_JPRB,0.74373E+02_JPRB,0.68671E+02_JPRB /)  
+KB(:, 3,14,13) = (/ &
+ & 0.72511E+02_JPRB,0.74741E+02_JPRB,0.79998E+02_JPRB,0.74718E+02_JPRB,0.69297E+02_JPRB /)  
+KB(:, 4,14,13) = (/ &
+ & 0.71760E+02_JPRB,0.74129E+02_JPRB,0.79694E+02_JPRB,0.74933E+02_JPRB,0.69925E+02_JPRB /)  
+KB(:, 5,14,13) = (/ &
+ & 0.70963E+02_JPRB,0.73482E+02_JPRB,0.79282E+02_JPRB,0.75062E+02_JPRB,0.70592E+02_JPRB /)  
+KB(:, 1,15,13) = (/ &
+ & 0.67727E+02_JPRB,0.74204E+02_JPRB,0.79973E+02_JPRB,0.74524E+02_JPRB,0.64503E+02_JPRB /)  
+KB(:, 2,15,13) = (/ &
+ & 0.66995E+02_JPRB,0.73663E+02_JPRB,0.80067E+02_JPRB,0.75070E+02_JPRB,0.65404E+02_JPRB /)  
+KB(:, 3,15,13) = (/ &
+ & 0.66299E+02_JPRB,0.73080E+02_JPRB,0.80001E+02_JPRB,0.75489E+02_JPRB,0.66341E+02_JPRB /)  
+KB(:, 4,15,13) = (/ &
+ & 0.65584E+02_JPRB,0.72498E+02_JPRB,0.79808E+02_JPRB,0.75814E+02_JPRB,0.67293E+02_JPRB /)  
+KB(:, 5,15,13) = (/ &
+ & 0.64881E+02_JPRB,0.71894E+02_JPRB,0.79644E+02_JPRB,0.76073E+02_JPRB,0.68159E+02_JPRB /)  
+KB(:, 1,16,13) = (/ &
+ & 0.60910E+02_JPRB,0.71706E+02_JPRB,0.78658E+02_JPRB,0.73971E+02_JPRB,0.60740E+02_JPRB /)  
+KB(:, 2,16,13) = (/ &
+ & 0.60264E+02_JPRB,0.71204E+02_JPRB,0.78897E+02_JPRB,0.74647E+02_JPRB,0.61882E+02_JPRB /)  
+KB(:, 3,16,13) = (/ &
+ & 0.59646E+02_JPRB,0.70743E+02_JPRB,0.78998E+02_JPRB,0.75253E+02_JPRB,0.63062E+02_JPRB /)  
+KB(:, 4,16,13) = (/ &
+ & 0.59033E+02_JPRB,0.70274E+02_JPRB,0.79093E+02_JPRB,0.75819E+02_JPRB,0.64263E+02_JPRB /)  
+KB(:, 5,16,13) = (/ &
+ & 0.58482E+02_JPRB,0.69838E+02_JPRB,0.79175E+02_JPRB,0.76359E+02_JPRB,0.65453E+02_JPRB /)  
+KB(:, 1,17,13) = (/ &
+ & 0.53962E+02_JPRB,0.68666E+02_JPRB,0.76384E+02_JPRB,0.72467E+02_JPRB,0.57058E+02_JPRB /)  
+KB(:, 2,17,13) = (/ &
+ & 0.53430E+02_JPRB,0.68393E+02_JPRB,0.76843E+02_JPRB,0.73413E+02_JPRB,0.58438E+02_JPRB /)  
+KB(:, 3,17,13) = (/ &
+ & 0.52920E+02_JPRB,0.68105E+02_JPRB,0.77273E+02_JPRB,0.74323E+02_JPRB,0.59869E+02_JPRB /)  
+KB(:, 4,17,13) = (/ &
+ & 0.52483E+02_JPRB,0.67847E+02_JPRB,0.77698E+02_JPRB,0.75214E+02_JPRB,0.61307E+02_JPRB /)  
+KB(:, 5,17,13) = (/ &
+ & 0.52082E+02_JPRB,0.67535E+02_JPRB,0.78034E+02_JPRB,0.76077E+02_JPRB,0.62785E+02_JPRB /)  
+KB(:, 1,18,13) = (/ &
+ & 0.47235E+02_JPRB,0.65232E+02_JPRB,0.73440E+02_JPRB,0.70305E+02_JPRB,0.53676E+02_JPRB /)  
+KB(:, 2,18,13) = (/ &
+ & 0.46798E+02_JPRB,0.65205E+02_JPRB,0.74239E+02_JPRB,0.71589E+02_JPRB,0.55262E+02_JPRB /)  
+KB(:, 3,18,13) = (/ &
+ & 0.46439E+02_JPRB,0.65179E+02_JPRB,0.75037E+02_JPRB,0.72870E+02_JPRB,0.56922E+02_JPRB /)  
+KB(:, 4,18,13) = (/ &
+ & 0.46165E+02_JPRB,0.65077E+02_JPRB,0.75787E+02_JPRB,0.74113E+02_JPRB,0.58606E+02_JPRB /)  
+KB(:, 5,18,13) = (/ &
+ & 0.46076E+02_JPRB,0.64950E+02_JPRB,0.76497E+02_JPRB,0.75319E+02_JPRB,0.60364E+02_JPRB /)  
+KB(:, 1,19,13) = (/ &
+ & 0.40875E+02_JPRB,0.61443E+02_JPRB,0.70167E+02_JPRB,0.67815E+02_JPRB,0.50666E+02_JPRB /)  
+KB(:, 2,19,13) = (/ &
+ & 0.40599E+02_JPRB,0.61754E+02_JPRB,0.71348E+02_JPRB,0.69451E+02_JPRB,0.52443E+02_JPRB /)  
+KB(:, 3,19,13) = (/ &
+ & 0.40423E+02_JPRB,0.61971E+02_JPRB,0.72494E+02_JPRB,0.71103E+02_JPRB,0.54265E+02_JPRB /)  
+KB(:, 4,19,13) = (/ &
+ & 0.40489E+02_JPRB,0.62135E+02_JPRB,0.73624E+02_JPRB,0.72723E+02_JPRB,0.56176E+02_JPRB /)  
+KB(:, 5,19,13) = (/ &
+ & 0.40909E+02_JPRB,0.62251E+02_JPRB,0.74691E+02_JPRB,0.74287E+02_JPRB,0.58151E+02_JPRB /)  
+KB(:, 1,20,13) = (/ &
+ & 0.35203E+02_JPRB,0.57554E+02_JPRB,0.66740E+02_JPRB,0.65266E+02_JPRB,0.47986E+02_JPRB /)  
+KB(:, 2,20,13) = (/ &
+ & 0.35059E+02_JPRB,0.58164E+02_JPRB,0.68281E+02_JPRB,0.67270E+02_JPRB,0.49928E+02_JPRB /)  
+KB(:, 3,20,13) = (/ &
+ & 0.35179E+02_JPRB,0.58679E+02_JPRB,0.69865E+02_JPRB,0.69298E+02_JPRB,0.51957E+02_JPRB /)  
+KB(:, 4,20,13) = (/ &
+ & 0.35687E+02_JPRB,0.59136E+02_JPRB,0.71375E+02_JPRB,0.71295E+02_JPRB,0.54068E+02_JPRB /)  
+KB(:, 5,20,13) = (/ &
+ & 0.36572E+02_JPRB,0.59563E+02_JPRB,0.72814E+02_JPRB,0.73197E+02_JPRB,0.56184E+02_JPRB /)  
+KB(:, 1,21,13) = (/ &
+ & 0.30294E+02_JPRB,0.53730E+02_JPRB,0.63335E+02_JPRB,0.62843E+02_JPRB,0.45639E+02_JPRB /)  
+KB(:, 2,21,13) = (/ &
+ & 0.30407E+02_JPRB,0.54622E+02_JPRB,0.65309E+02_JPRB,0.65230E+02_JPRB,0.47736E+02_JPRB /)  
+KB(:, 3,21,13) = (/ &
+ & 0.30898E+02_JPRB,0.55470E+02_JPRB,0.67283E+02_JPRB,0.67630E+02_JPRB,0.49955E+02_JPRB /)  
+KB(:, 4,21,13) = (/ &
+ & 0.31814E+02_JPRB,0.56234E+02_JPRB,0.69205E+02_JPRB,0.69979E+02_JPRB,0.52223E+02_JPRB /)  
+KB(:, 5,21,13) = (/ &
+ & 0.33171E+02_JPRB,0.57002E+02_JPRB,0.70988E+02_JPRB,0.72170E+02_JPRB,0.54507E+02_JPRB /)  
+KB(:, 1,22,13) = (/ &
+ & 0.26203E+02_JPRB,0.50178E+02_JPRB,0.60369E+02_JPRB,0.60883E+02_JPRB,0.43752E+02_JPRB /)  
+KB(:, 2,22,13) = (/ &
+ & 0.26668E+02_JPRB,0.51399E+02_JPRB,0.62731E+02_JPRB,0.63628E+02_JPRB,0.46055E+02_JPRB /)  
+KB(:, 3,22,13) = (/ &
+ & 0.27573E+02_JPRB,0.52567E+02_JPRB,0.65094E+02_JPRB,0.66337E+02_JPRB,0.48427E+02_JPRB /)  
+KB(:, 4,22,13) = (/ &
+ & 0.28933E+02_JPRB,0.53710E+02_JPRB,0.67379E+02_JPRB,0.68992E+02_JPRB,0.50840E+02_JPRB /)  
+KB(:, 5,22,13) = (/ &
+ & 0.30713E+02_JPRB,0.54842E+02_JPRB,0.69500E+02_JPRB,0.71453E+02_JPRB,0.53313E+02_JPRB /)  
+KB(:, 1,23,13) = (/ &
+ & 0.22949E+02_JPRB,0.47062E+02_JPRB,0.57786E+02_JPRB,0.59287E+02_JPRB,0.42207E+02_JPRB /)  
+KB(:, 2,23,13) = (/ &
+ & 0.23779E+02_JPRB,0.48563E+02_JPRB,0.60567E+02_JPRB,0.62337E+02_JPRB,0.44709E+02_JPRB /)  
+KB(:, 3,23,13) = (/ &
+ & 0.25087E+02_JPRB,0.50088E+02_JPRB,0.63282E+02_JPRB,0.65361E+02_JPRB,0.47224E+02_JPRB /)  
+KB(:, 4,23,13) = (/ &
+ & 0.26833E+02_JPRB,0.51601E+02_JPRB,0.65861E+02_JPRB,0.68253E+02_JPRB,0.49790E+02_JPRB /)  
+KB(:, 5,23,13) = (/ &
+ & 0.28975E+02_JPRB,0.53148E+02_JPRB,0.68312E+02_JPRB,0.70979E+02_JPRB,0.52442E+02_JPRB /)  
+KB(:, 1,24,13) = (/ &
+ & 0.20450E+02_JPRB,0.44418E+02_JPRB,0.55719E+02_JPRB,0.58070E+02_JPRB,0.41028E+02_JPRB /)  
+KB(:, 2,24,13) = (/ &
+ & 0.21647E+02_JPRB,0.46218E+02_JPRB,0.58860E+02_JPRB,0.61413E+02_JPRB,0.43697E+02_JPRB /)  
+KB(:, 3,24,13) = (/ &
+ & 0.23313E+02_JPRB,0.48082E+02_JPRB,0.61856E+02_JPRB,0.64696E+02_JPRB,0.46357E+02_JPRB /)  
+KB(:, 4,24,13) = (/ &
+ & 0.25383E+02_JPRB,0.49987E+02_JPRB,0.64735E+02_JPRB,0.67792E+02_JPRB,0.49079E+02_JPRB /)  
+KB(:, 5,24,13) = (/ &
+ & 0.27788E+02_JPRB,0.51882E+02_JPRB,0.67449E+02_JPRB,0.70725E+02_JPRB,0.51885E+02_JPRB /)  
+KB(:, 1,25,13) = (/ &
+ & 0.18632E+02_JPRB,0.42267E+02_JPRB,0.54194E+02_JPRB,0.57249E+02_JPRB,0.40189E+02_JPRB /)  
+KB(:, 2,25,13) = (/ &
+ & 0.20151E+02_JPRB,0.44393E+02_JPRB,0.57583E+02_JPRB,0.60858E+02_JPRB,0.43004E+02_JPRB /)  
+KB(:, 3,25,13) = (/ &
+ & 0.22101E+02_JPRB,0.46593E+02_JPRB,0.60865E+02_JPRB,0.64337E+02_JPRB,0.45809E+02_JPRB /)  
+KB(:, 4,25,13) = (/ &
+ & 0.24391E+02_JPRB,0.48836E+02_JPRB,0.63984E+02_JPRB,0.67613E+02_JPRB,0.48696E+02_JPRB /)  
+KB(:, 5,25,13) = (/ &
+ & 0.26959E+02_JPRB,0.50995E+02_JPRB,0.66882E+02_JPRB,0.70682E+02_JPRB,0.51602E+02_JPRB /)  
+KB(:, 1,26,13) = (/ &
+ & 0.17370E+02_JPRB,0.40657E+02_JPRB,0.53173E+02_JPRB,0.56858E+02_JPRB,0.39692E+02_JPRB /)  
+KB(:, 2,26,13) = (/ &
+ & 0.19155E+02_JPRB,0.43087E+02_JPRB,0.56801E+02_JPRB,0.60671E+02_JPRB,0.42632E+02_JPRB /)  
+KB(:, 3,26,13) = (/ &
+ & 0.21292E+02_JPRB,0.45598E+02_JPRB,0.60302E+02_JPRB,0.64290E+02_JPRB,0.45592E+02_JPRB /)  
+KB(:, 4,26,13) = (/ &
+ & 0.23727E+02_JPRB,0.48098E+02_JPRB,0.63591E+02_JPRB,0.67690E+02_JPRB,0.48603E+02_JPRB /)  
+KB(:, 5,26,13) = (/ &
+ & 0.26455E+02_JPRB,0.50493E+02_JPRB,0.66616E+02_JPRB,0.70861E+02_JPRB,0.51588E+02_JPRB /)  
+KB(:, 1,27,13) = (/ &
+ & 0.16499E+02_JPRB,0.39533E+02_JPRB,0.52563E+02_JPRB,0.56787E+02_JPRB,0.39461E+02_JPRB /)  
+KB(:, 2,27,13) = (/ &
+ & 0.18462E+02_JPRB,0.42240E+02_JPRB,0.56391E+02_JPRB,0.60738E+02_JPRB,0.42525E+02_JPRB /)  
+KB(:, 3,27,13) = (/ &
+ & 0.20737E+02_JPRB,0.45009E+02_JPRB,0.60060E+02_JPRB,0.64459E+02_JPRB,0.45612E+02_JPRB /)  
+KB(:, 4,27,13) = (/ &
+ & 0.23336E+02_JPRB,0.47712E+02_JPRB,0.63452E+02_JPRB,0.67944E+02_JPRB,0.48705E+02_JPRB /)  
+KB(:, 5,27,13) = (/ &
+ & 0.26215E+02_JPRB,0.50322E+02_JPRB,0.66583E+02_JPRB,0.71174E+02_JPRB,0.51756E+02_JPRB /)  
+KB(:, 1,28,13) = (/ &
+ & 0.15882E+02_JPRB,0.38845E+02_JPRB,0.52318E+02_JPRB,0.56965E+02_JPRB,0.39468E+02_JPRB /)  
+KB(:, 2,28,13) = (/ &
+ & 0.17994E+02_JPRB,0.41785E+02_JPRB,0.56289E+02_JPRB,0.61007E+02_JPRB,0.42649E+02_JPRB /)  
+KB(:, 3,28,13) = (/ &
+ & 0.20424E+02_JPRB,0.44749E+02_JPRB,0.60052E+02_JPRB,0.64808E+02_JPRB,0.45826E+02_JPRB /)  
+KB(:, 4,28,13) = (/ &
+ & 0.23178E+02_JPRB,0.47630E+02_JPRB,0.63526E+02_JPRB,0.68347E+02_JPRB,0.48967E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART32',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,28,13) = (/ &
+ & 0.26217E+02_JPRB,0.50385E+02_JPRB,0.66714E+02_JPRB,0.71584E+02_JPRB,0.52071E+02_JPRB /)  
+KB(:, 1,29,13) = (/ &
+ & 0.15496E+02_JPRB,0.38533E+02_JPRB,0.52388E+02_JPRB,0.57377E+02_JPRB,0.39687E+02_JPRB /)  
+KB(:, 2,29,13) = (/ &
+ & 0.17758E+02_JPRB,0.41667E+02_JPRB,0.56458E+02_JPRB,0.61470E+02_JPRB,0.42963E+02_JPRB /)  
+KB(:, 3,29,13) = (/ &
+ & 0.20345E+02_JPRB,0.44782E+02_JPRB,0.60267E+02_JPRB,0.65320E+02_JPRB,0.46203E+02_JPRB /)  
+KB(:, 4,29,13) = (/ &
+ & 0.23257E+02_JPRB,0.47788E+02_JPRB,0.63789E+02_JPRB,0.68865E+02_JPRB,0.49378E+02_JPRB /)  
+KB(:, 5,29,13) = (/ &
+ & 0.26442E+02_JPRB,0.50623E+02_JPRB,0.67004E+02_JPRB,0.72085E+02_JPRB,0.52513E+02_JPRB /)  
+KB(:, 1,30,13) = (/ &
+ & 0.15305E+02_JPRB,0.38520E+02_JPRB,0.52687E+02_JPRB,0.57942E+02_JPRB,0.40075E+02_JPRB /)  
+KB(:, 2,30,13) = (/ &
+ & 0.17725E+02_JPRB,0.41787E+02_JPRB,0.56809E+02_JPRB,0.62069E+02_JPRB,0.43408E+02_JPRB /)  
+KB(:, 3,30,13) = (/ &
+ & 0.20471E+02_JPRB,0.45011E+02_JPRB,0.60646E+02_JPRB,0.65935E+02_JPRB,0.46678E+02_JPRB /)  
+KB(:, 4,30,13) = (/ &
+ & 0.23532E+02_JPRB,0.48109E+02_JPRB,0.64191E+02_JPRB,0.69457E+02_JPRB,0.49879E+02_JPRB /)  
+KB(:, 5,30,13) = (/ &
+ & 0.26835E+02_JPRB,0.50980E+02_JPRB,0.67409E+02_JPRB,0.72648E+02_JPRB,0.53041E+02_JPRB /)  
+KB(:, 1,31,13) = (/ &
+ & 0.15319E+02_JPRB,0.38759E+02_JPRB,0.53187E+02_JPRB,0.58637E+02_JPRB,0.40597E+02_JPRB /)  
+KB(:, 2,31,13) = (/ &
+ & 0.17890E+02_JPRB,0.42121E+02_JPRB,0.57326E+02_JPRB,0.62778E+02_JPRB,0.43969E+02_JPRB /)  
+KB(:, 3,31,13) = (/ &
+ & 0.20784E+02_JPRB,0.45419E+02_JPRB,0.61174E+02_JPRB,0.66627E+02_JPRB,0.47246E+02_JPRB /)  
+KB(:, 4,31,13) = (/ &
+ & 0.23963E+02_JPRB,0.48555E+02_JPRB,0.64709E+02_JPRB,0.70119E+02_JPRB,0.50470E+02_JPRB /)  
+KB(:, 5,31,13) = (/ &
+ & 0.27377E+02_JPRB,0.51448E+02_JPRB,0.67912E+02_JPRB,0.73265E+02_JPRB,0.53642E+02_JPRB /)  
+KB(:, 1,32,13) = (/ &
+ & 0.15518E+02_JPRB,0.39176E+02_JPRB,0.53833E+02_JPRB,0.59441E+02_JPRB,0.41231E+02_JPRB /)  
+KB(:, 2,32,13) = (/ &
+ & 0.18219E+02_JPRB,0.42608E+02_JPRB,0.57967E+02_JPRB,0.63575E+02_JPRB,0.44614E+02_JPRB /)  
+KB(:, 3,32,13) = (/ &
+ & 0.21240E+02_JPRB,0.45958E+02_JPRB,0.61807E+02_JPRB,0.67376E+02_JPRB,0.47899E+02_JPRB /)  
+KB(:, 4,32,13) = (/ &
+ & 0.24535E+02_JPRB,0.49103E+02_JPRB,0.65323E+02_JPRB,0.70819E+02_JPRB,0.51129E+02_JPRB /)  
+KB(:, 5,32,13) = (/ &
+ & 0.28030E+02_JPRB,0.51991E+02_JPRB,0.68477E+02_JPRB,0.73912E+02_JPRB,0.54297E+02_JPRB /)  
+KB(:, 1,33,13) = (/ &
+ & 0.15857E+02_JPRB,0.39728E+02_JPRB,0.54587E+02_JPRB,0.60326E+02_JPRB,0.41934E+02_JPRB /)  
+KB(:, 2,33,13) = (/ &
+ & 0.18681E+02_JPRB,0.43207E+02_JPRB,0.58700E+02_JPRB,0.64428E+02_JPRB,0.45312E+02_JPRB /)  
+KB(:, 3,33,13) = (/ &
+ & 0.21817E+02_JPRB,0.46584E+02_JPRB,0.62510E+02_JPRB,0.68164E+02_JPRB,0.48601E+02_JPRB /)  
+KB(:, 4,33,13) = (/ &
+ & 0.25208E+02_JPRB,0.49716E+02_JPRB,0.65986E+02_JPRB,0.71546E+02_JPRB,0.51832E+02_JPRB /)  
+KB(:, 5,33,13) = (/ &
+ & 0.28769E+02_JPRB,0.52588E+02_JPRB,0.69085E+02_JPRB,0.74576E+02_JPRB,0.54996E+02_JPRB /)  
+KB(:, 1,34,13) = (/ &
+ & 0.16218E+02_JPRB,0.40255E+02_JPRB,0.55264E+02_JPRB,0.61104E+02_JPRB,0.42563E+02_JPRB /)  
+KB(:, 2,34,13) = (/ &
+ & 0.19136E+02_JPRB,0.43775E+02_JPRB,0.59363E+02_JPRB,0.65173E+02_JPRB,0.45933E+02_JPRB /)  
+KB(:, 3,34,13) = (/ &
+ & 0.22367E+02_JPRB,0.47148E+02_JPRB,0.63138E+02_JPRB,0.68848E+02_JPRB,0.49223E+02_JPRB /)  
+KB(:, 4,34,13) = (/ &
+ & 0.25824E+02_JPRB,0.50264E+02_JPRB,0.66569E+02_JPRB,0.72180E+02_JPRB,0.52454E+02_JPRB /)  
+KB(:, 5,34,13) = (/ &
+ & 0.29432E+02_JPRB,0.53119E+02_JPRB,0.69617E+02_JPRB,0.75149E+02_JPRB,0.55607E+02_JPRB /)  
+KB(:, 1,35,13) = (/ &
+ & 0.16382E+02_JPRB,0.40509E+02_JPRB,0.55591E+02_JPRB,0.61512E+02_JPRB,0.42891E+02_JPRB /)  
+KB(:, 2,35,13) = (/ &
+ & 0.19362E+02_JPRB,0.44056E+02_JPRB,0.59682E+02_JPRB,0.65556E+02_JPRB,0.46259E+02_JPRB /)  
+KB(:, 3,35,13) = (/ &
+ & 0.22646E+02_JPRB,0.47437E+02_JPRB,0.63450E+02_JPRB,0.69212E+02_JPRB,0.49551E+02_JPRB /)  
+KB(:, 4,35,13) = (/ &
+ & 0.26140E+02_JPRB,0.50553E+02_JPRB,0.66864E+02_JPRB,0.72519E+02_JPRB,0.52785E+02_JPRB /)  
+KB(:, 5,35,13) = (/ &
+ & 0.29778E+02_JPRB,0.53403E+02_JPRB,0.69889E+02_JPRB,0.75460E+02_JPRB,0.55937E+02_JPRB /)  
+KB(:, 1,36,13) = (/ &
+ & 0.16282E+02_JPRB,0.40412E+02_JPRB,0.55499E+02_JPRB,0.61489E+02_JPRB,0.42866E+02_JPRB /)  
+KB(:, 2,36,13) = (/ &
+ & 0.19286E+02_JPRB,0.43996E+02_JPRB,0.59618E+02_JPRB,0.65550E+02_JPRB,0.46244E+02_JPRB /)  
+KB(:, 3,36,13) = (/ &
+ & 0.22586E+02_JPRB,0.47399E+02_JPRB,0.63406E+02_JPRB,0.69212E+02_JPRB,0.49542E+02_JPRB /)  
+KB(:, 4,36,13) = (/ &
+ & 0.26096E+02_JPRB,0.50533E+02_JPRB,0.66829E+02_JPRB,0.72526E+02_JPRB,0.52781E+02_JPRB /)  
+KB(:, 5,36,13) = (/ &
+ & 0.29750E+02_JPRB,0.53407E+02_JPRB,0.69875E+02_JPRB,0.75478E+02_JPRB,0.55943E+02_JPRB /)  
+KB(:, 1,37,13) = (/ &
+ & 0.15776E+02_JPRB,0.39797E+02_JPRB,0.54788E+02_JPRB,0.60844E+02_JPRB,0.42332E+02_JPRB /)  
+KB(:, 2,37,13) = (/ &
+ & 0.18757E+02_JPRB,0.43418E+02_JPRB,0.58970E+02_JPRB,0.64965E+02_JPRB,0.45736E+02_JPRB /)  
+KB(:, 3,37,13) = (/ &
+ & 0.22032E+02_JPRB,0.46879E+02_JPRB,0.62830E+02_JPRB,0.68697E+02_JPRB,0.49053E+02_JPRB /)  
+KB(:, 4,37,13) = (/ &
+ & 0.25533E+02_JPRB,0.50076E+02_JPRB,0.66324E+02_JPRB,0.72072E+02_JPRB,0.52311E+02_JPRB /)  
+KB(:, 5,37,13) = (/ &
+ & 0.29180E+02_JPRB,0.52997E+02_JPRB,0.69437E+02_JPRB,0.75080E+02_JPRB,0.55481E+02_JPRB /)  
+KB(:, 1,38,13) = (/ &
+ & 0.15271E+02_JPRB,0.39166E+02_JPRB,0.54054E+02_JPRB,0.60165E+02_JPRB,0.41777E+02_JPRB /)  
+KB(:, 2,38,13) = (/ &
+ & 0.18227E+02_JPRB,0.42823E+02_JPRB,0.58302E+02_JPRB,0.64350E+02_JPRB,0.45207E+02_JPRB /)  
+KB(:, 3,38,13) = (/ &
+ & 0.21473E+02_JPRB,0.46333E+02_JPRB,0.62224E+02_JPRB,0.68144E+02_JPRB,0.48540E+02_JPRB /)  
+KB(:, 4,38,13) = (/ &
+ & 0.24954E+02_JPRB,0.49588E+02_JPRB,0.65790E+02_JPRB,0.71578E+02_JPRB,0.51811E+02_JPRB /)  
+KB(:, 5,38,13) = (/ &
+ & 0.28592E+02_JPRB,0.52564E+02_JPRB,0.68973E+02_JPRB,0.74653E+02_JPRB,0.55000E+02_JPRB /)  
+KB(:, 1,39,13) = (/ &
+ & 0.14788E+02_JPRB,0.38557E+02_JPRB,0.53339E+02_JPRB,0.59493E+02_JPRB,0.41232E+02_JPRB /)  
+KB(:, 2,39,13) = (/ &
+ & 0.17725E+02_JPRB,0.42239E+02_JPRB,0.57643E+02_JPRB,0.63735E+02_JPRB,0.44689E+02_JPRB /)  
+KB(:, 3,39,13) = (/ &
+ & 0.20936E+02_JPRB,0.45800E+02_JPRB,0.61629E+02_JPRB,0.67599E+02_JPRB,0.48036E+02_JPRB /)  
+KB(:, 4,39,13) = (/ &
+ & 0.24393E+02_JPRB,0.49102E+02_JPRB,0.65258E+02_JPRB,0.71089E+02_JPRB,0.51322E+02_JPRB /)  
+KB(:, 5,39,13) = (/ &
+ & 0.28020E+02_JPRB,0.52130E+02_JPRB,0.68507E+02_JPRB,0.74225E+02_JPRB,0.54528E+02_JPRB /)  
+KB(:, 1,40,13) = (/ &
+ & 0.14035E+02_JPRB,0.37576E+02_JPRB,0.52178E+02_JPRB,0.58374E+02_JPRB,0.40328E+02_JPRB /)  
+KB(:, 2,40,13) = (/ &
+ & 0.16933E+02_JPRB,0.41290E+02_JPRB,0.56557E+02_JPRB,0.62694E+02_JPRB,0.43829E+02_JPRB /)  
+KB(:, 3,40,13) = (/ &
+ & 0.20073E+02_JPRB,0.44909E+02_JPRB,0.60638E+02_JPRB,0.66668E+02_JPRB,0.47203E+02_JPRB /)  
+KB(:, 4,40,13) = (/ &
+ & 0.23486E+02_JPRB,0.48287E+02_JPRB,0.64365E+02_JPRB,0.70250E+02_JPRB,0.50504E+02_JPRB /)  
+KB(:, 5,40,13) = (/ &
+ & 0.27084E+02_JPRB,0.51393E+02_JPRB,0.67719E+02_JPRB,0.73485E+02_JPRB,0.53736E+02_JPRB /)  
+KB(:, 1,41,13) = (/ &
+ & 0.13270E+02_JPRB,0.36551E+02_JPRB,0.50952E+02_JPRB,0.57187E+02_JPRB,0.39381E+02_JPRB /)  
+KB(:, 2,41,13) = (/ &
+ & 0.16132E+02_JPRB,0.40293E+02_JPRB,0.55396E+02_JPRB,0.61573E+02_JPRB,0.42921E+02_JPRB /)  
+KB(:, 3,41,13) = (/ &
+ & 0.19195E+02_JPRB,0.43957E+02_JPRB,0.59575E+02_JPRB,0.65658E+02_JPRB,0.46320E+02_JPRB /)  
+KB(:, 4,41,13) = (/ &
+ & 0.22552E+02_JPRB,0.47415E+02_JPRB,0.63413E+02_JPRB,0.69340E+02_JPRB,0.49639E+02_JPRB /)  
+KB(:, 5,41,13) = (/ &
+ & 0.26115E+02_JPRB,0.50603E+02_JPRB,0.66868E+02_JPRB,0.72675E+02_JPRB,0.52897E+02_JPRB /)  
+KB(:, 1,42,13) = (/ &
+ & 0.12533E+02_JPRB,0.35537E+02_JPRB,0.49715E+02_JPRB,0.55979E+02_JPRB,0.38430E+02_JPRB /)  
+KB(:, 2,42,13) = (/ &
+ & 0.15340E+02_JPRB,0.39292E+02_JPRB,0.54229E+02_JPRB,0.60445E+02_JPRB,0.42004E+02_JPRB /)  
+KB(:, 3,42,13) = (/ &
+ & 0.18342E+02_JPRB,0.42991E+02_JPRB,0.58494E+02_JPRB,0.64631E+02_JPRB,0.45437E+02_JPRB /)  
+KB(:, 4,42,13) = (/ &
+ & 0.21634E+02_JPRB,0.46527E+02_JPRB,0.62435E+02_JPRB,0.68417E+02_JPRB,0.48777E+02_JPRB /)  
+KB(:, 5,42,13) = (/ &
+ & 0.25154E+02_JPRB,0.49791E+02_JPRB,0.65989E+02_JPRB,0.71836E+02_JPRB,0.52054E+02_JPRB /)  
+KB(:, 1,43,13) = (/ &
+ & 0.11668E+02_JPRB,0.34309E+02_JPRB,0.48203E+02_JPRB,0.54498E+02_JPRB,0.37270E+02_JPRB /)  
+KB(:, 2,43,13) = (/ &
+ & 0.14402E+02_JPRB,0.38082E+02_JPRB,0.52797E+02_JPRB,0.59048E+02_JPRB,0.40873E+02_JPRB /)  
+KB(:, 3,43,13) = (/ &
+ & 0.17344E+02_JPRB,0.41812E+02_JPRB,0.57160E+02_JPRB,0.63341E+02_JPRB,0.44355E+02_JPRB /)  
+KB(:, 4,43,13) = (/ &
+ & 0.20545E+02_JPRB,0.45427E+02_JPRB,0.61209E+02_JPRB,0.67260E+02_JPRB,0.47724E+02_JPRB /)  
+KB(:, 5,43,13) = (/ &
+ & 0.24007E+02_JPRB,0.48779E+02_JPRB,0.64893E+02_JPRB,0.70794E+02_JPRB,0.51019E+02_JPRB /)  
+KB(:, 1,44,13) = (/ &
+ & 0.10777E+02_JPRB,0.32982E+02_JPRB,0.46555E+02_JPRB,0.52865E+02_JPRB,0.36017E+02_JPRB /)  
+KB(:, 2,44,13) = (/ &
+ & 0.13422E+02_JPRB,0.36774E+02_JPRB,0.51234E+02_JPRB,0.57518E+02_JPRB,0.39647E+02_JPRB /)  
+KB(:, 3,44,13) = (/ &
+ & 0.16301E+02_JPRB,0.40529E+02_JPRB,0.55688E+02_JPRB,0.61909E+02_JPRB,0.43184E+02_JPRB /)  
+KB(:, 4,44,13) = (/ &
+ & 0.19410E+02_JPRB,0.44205E+02_JPRB,0.59841E+02_JPRB,0.65956E+02_JPRB,0.46575E+02_JPRB /)  
+KB(:, 5,44,13) = (/ &
+ & 0.22792E+02_JPRB,0.47657E+02_JPRB,0.63668E+02_JPRB,0.69623E+02_JPRB,0.49898E+02_JPRB /)  
+KB(:, 1,45,13) = (/ &
+ & 0.99376E+01_JPRB,0.31658E+02_JPRB,0.44891E+02_JPRB,0.51201E+02_JPRB,0.34758E+02_JPRB /)  
+KB(:, 2,45,13) = (/ &
+ & 0.12468E+02_JPRB,0.35468E+02_JPRB,0.49648E+02_JPRB,0.55955E+02_JPRB,0.38412E+02_JPRB /)  
+KB(:, 3,45,13) = (/ &
+ & 0.15282E+02_JPRB,0.39240E+02_JPRB,0.54182E+02_JPRB,0.60441E+02_JPRB,0.41991E+02_JPRB /)  
+KB(:, 4,45,13) = (/ &
+ & 0.18307E+02_JPRB,0.42958E+02_JPRB,0.58447E+02_JPRB,0.64617E+02_JPRB,0.45427E+02_JPRB /)  
+KB(:, 5,45,13) = (/ &
+ & 0.21602E+02_JPRB,0.46508E+02_JPRB,0.62404E+02_JPRB,0.68417E+02_JPRB,0.48775E+02_JPRB /)  
+KB(:, 1,46,13) = (/ &
+ & 0.90997E+01_JPRB,0.30250E+02_JPRB,0.43114E+02_JPRB,0.49420E+02_JPRB,0.33417E+02_JPRB /)  
+KB(:, 2,46,13) = (/ &
+ & 0.11497E+02_JPRB,0.34076E+02_JPRB,0.47932E+02_JPRB,0.54263E+02_JPRB,0.37087E+02_JPRB /)  
+KB(:, 3,46,13) = (/ &
+ & 0.14229E+02_JPRB,0.37865E+02_JPRB,0.52547E+02_JPRB,0.58836E+02_JPRB,0.40705E+02_JPRB /)  
+KB(:, 4,46,13) = (/ &
+ & 0.17178E+02_JPRB,0.41613E+02_JPRB,0.56930E+02_JPRB,0.63142E+02_JPRB,0.44193E+02_JPRB /)  
+KB(:, 5,46,13) = (/ &
+ & 0.20366E+02_JPRB,0.45251E+02_JPRB,0.61008E+02_JPRB,0.67091E+02_JPRB,0.47569E+02_JPRB /)  
+KB(:, 1,47,13) = (/ &
+ & 0.82326E+01_JPRB,0.28698E+02_JPRB,0.41131E+02_JPRB,0.47406E+02_JPRB,0.31895E+02_JPRB /)  
+KB(:, 2,47,13) = (/ &
+ & 0.10467E+02_JPRB,0.32516E+02_JPRB,0.45987E+02_JPRB,0.52322E+02_JPRB,0.35605E+02_JPRB /)  
+KB(:, 3,47,13) = (/ &
+ & 0.13084E+02_JPRB,0.36324E+02_JPRB,0.50700E+02_JPRB,0.57015E+02_JPRB,0.39250E+02_JPRB /)  
+KB(:, 4,47,13) = (/ &
+ & 0.15956E+02_JPRB,0.40097E+02_JPRB,0.55181E+02_JPRB,0.61437E+02_JPRB,0.42802E+02_JPRB /)  
+KB(:, 5,47,13) = (/ &
+ & 0.19031E+02_JPRB,0.43799E+02_JPRB,0.59396E+02_JPRB,0.65543E+02_JPRB,0.46212E+02_JPRB /)  
+KB(:, 1,48,13) = (/ &
+ & 0.74393E+01_JPRB,0.27161E+02_JPRB,0.39157E+02_JPRB,0.45343E+02_JPRB,0.30350E+02_JPRB /)  
+KB(:, 2,48,13) = (/ &
+ & 0.95049E+01_JPRB,0.30953E+02_JPRB,0.44020E+02_JPRB,0.50347E+02_JPRB,0.34113E+02_JPRB /)  
+KB(:, 3,48,13) = (/ &
+ & 0.11978E+02_JPRB,0.34782E+02_JPRB,0.48813E+02_JPRB,0.55151E+02_JPRB,0.37782E+02_JPRB /)  
+KB(:, 4,48,13) = (/ &
+ & 0.14764E+02_JPRB,0.38570E+02_JPRB,0.53387E+02_JPRB,0.59681E+02_JPRB,0.41384E+02_JPRB /)  
+KB(:, 5,48,13) = (/ &
+ & 0.17748E+02_JPRB,0.42312E+02_JPRB,0.57728E+02_JPRB,0.63933E+02_JPRB,0.44844E+02_JPRB /)  
+KB(:, 1,49,13) = (/ &
+ & 0.67167E+01_JPRB,0.25650E+02_JPRB,0.37197E+02_JPRB,0.43247E+02_JPRB,0.28796E+02_JPRB /)  
+KB(:, 2,49,13) = (/ &
+ & 0.86101E+01_JPRB,0.29402E+02_JPRB,0.42045E+02_JPRB,0.48354E+02_JPRB,0.32610E+02_JPRB /)  
+KB(:, 3,49,13) = (/ &
+ & 0.10926E+02_JPRB,0.33234E+02_JPRB,0.46891E+02_JPRB,0.53243E+02_JPRB,0.36305E+02_JPRB /)  
+KB(:, 4,49,13) = (/ &
+ & 0.13605E+02_JPRB,0.37035E+02_JPRB,0.51562E+02_JPRB,0.57884E+02_JPRB,0.39936E+02_JPRB /)  
+KB(:, 5,49,13) = (/ &
+ & 0.16513E+02_JPRB,0.40804E+02_JPRB,0.56010E+02_JPRB,0.62260E+02_JPRB,0.43466E+02_JPRB /)  
+KB(:, 1,50,13) = (/ &
+ & 0.60927E+01_JPRB,0.24264E+02_JPRB,0.35366E+02_JPRB,0.41271E+02_JPRB,0.27331E+02_JPRB /)  
+KB(:, 2,50,13) = (/ &
+ & 0.78376E+01_JPRB,0.27958E+02_JPRB,0.40194E+02_JPRB,0.46451E+02_JPRB,0.31176E+02_JPRB /)  
+KB(:, 3,50,13) = (/ &
+ & 0.99975E+01_JPRB,0.31777E+02_JPRB,0.45061E+02_JPRB,0.51408E+02_JPRB,0.34914E+02_JPRB /)  
+KB(:, 4,50,13) = (/ &
+ & 0.12552E+02_JPRB,0.35595E+02_JPRB,0.49816E+02_JPRB,0.56159E+02_JPRB,0.38569E+02_JPRB /)  
+KB(:, 5,50,13) = (/ &
+ & 0.15384E+02_JPRB,0.39379E+02_JPRB,0.54352E+02_JPRB,0.60637E+02_JPRB,0.42153E+02_JPRB /)  
+KB(:, 1,51,13) = (/ &
+ & 0.55303E+01_JPRB,0.22951E+02_JPRB,0.33599E+02_JPRB,0.39341E+02_JPRB,0.25901E+02_JPRB /)  
+KB(:, 2,51,13) = (/ &
+ & 0.71468E+01_JPRB,0.26574E+02_JPRB,0.38412E+02_JPRB,0.44565E+02_JPRB,0.29771E+02_JPRB /)  
+KB(:, 3,51,13) = (/ &
+ & 0.91530E+01_JPRB,0.30360E+02_JPRB,0.43274E+02_JPRB,0.49608E+02_JPRB,0.33559E+02_JPRB /)  
+KB(:, 4,51,13) = (/ &
+ & 0.11570E+02_JPRB,0.34196E+02_JPRB,0.48091E+02_JPRB,0.54457E+02_JPRB,0.37233E+02_JPRB /)  
+KB(:, 5,51,13) = (/ &
+ & 0.14322E+02_JPRB,0.37996E+02_JPRB,0.52708E+02_JPRB,0.59018E+02_JPRB,0.40851E+02_JPRB /)  
+KB(:, 1,52,13) = (/ &
+ & 0.50134E+01_JPRB,0.21673E+02_JPRB,0.31833E+02_JPRB,0.37382E+02_JPRB,0.24463E+02_JPRB /)  
+KB(:, 2,52,13) = (/ &
+ & 0.65135E+01_JPRB,0.25216E+02_JPRB,0.36639E+02_JPRB,0.42658E+02_JPRB,0.28359E+02_JPRB /)  
+KB(:, 3,52,13) = (/ &
+ & 0.83642E+01_JPRB,0.28959E+02_JPRB,0.41485E+02_JPRB,0.47797E+02_JPRB,0.32187E+02_JPRB /)  
+KB(:, 4,52,13) = (/ &
+ & 0.10636E+02_JPRB,0.32789E+02_JPRB,0.46344E+02_JPRB,0.52709E+02_JPRB,0.35895E+02_JPRB /)  
+KB(:, 5,52,13) = (/ &
+ & 0.13285E+02_JPRB,0.36604E+02_JPRB,0.51047E+02_JPRB,0.57380E+02_JPRB,0.39540E+02_JPRB /)  
+KB(:, 1,53,13) = (/ &
+ & 0.45376E+01_JPRB,0.20438E+02_JPRB,0.30067E+02_JPRB,0.35396E+02_JPRB,0.23001E+02_JPRB /)  
+KB(:, 2,53,13) = (/ &
+ & 0.59241E+01_JPRB,0.23884E+02_JPRB,0.34872E+02_JPRB,0.40744E+02_JPRB,0.26941E+02_JPRB /)  
+KB(:, 3,53,13) = (/ &
+ & 0.76354E+01_JPRB,0.27568E+02_JPRB,0.39698E+02_JPRB,0.45939E+02_JPRB,0.30794E+02_JPRB /)  
+KB(:, 4,53,13) = (/ &
+ & 0.97536E+01_JPRB,0.31378E+02_JPRB,0.44569E+02_JPRB,0.50924E+02_JPRB,0.34545E+02_JPRB /)  
+KB(:, 5,53,13) = (/ &
+ & 0.12275E+02_JPRB,0.35210E+02_JPRB,0.49348E+02_JPRB,0.55701E+02_JPRB,0.38212E+02_JPRB /)  
+KB(:, 1,54,13) = (/ &
+ & 0.41389E+01_JPRB,0.19353E+02_JPRB,0.28454E+02_JPRB,0.33563E+02_JPRB,0.21647E+02_JPRB /)  
+KB(:, 2,54,13) = (/ &
+ & 0.54194E+01_JPRB,0.22692E+02_JPRB,0.33259E+02_JPRB,0.38976E+02_JPRB,0.25632E+02_JPRB /)  
+KB(:, 3,54,13) = (/ &
+ & 0.70164E+01_JPRB,0.26307E+02_JPRB,0.38072E+02_JPRB,0.44208E+02_JPRB,0.29508E+02_JPRB /)  
+KB(:, 4,54,13) = (/ &
+ & 0.89936E+01_JPRB,0.30086E+02_JPRB,0.42934E+02_JPRB,0.49276E+02_JPRB,0.33306E+02_JPRB /)  
+KB(:, 5,54,13) = (/ &
+ & 0.11387E+02_JPRB,0.33931E+02_JPRB,0.47765E+02_JPRB,0.54132E+02_JPRB,0.36987E+02_JPRB /)  
+KB(:, 1,55,13) = (/ &
+ & 0.37927E+01_JPRB,0.18358E+02_JPRB,0.26927E+02_JPRB,0.31801E+02_JPRB,0.20350E+02_JPRB /)  
+KB(:, 2,55,13) = (/ &
+ & 0.49755E+01_JPRB,0.21582E+02_JPRB,0.31711E+02_JPRB,0.37250E+02_JPRB,0.24368E+02_JPRB /)  
+KB(:, 3,55,13) = (/ &
+ & 0.64669E+01_JPRB,0.25119E+02_JPRB,0.36517E+02_JPRB,0.42532E+02_JPRB,0.28268E+02_JPRB /)  
+KB(:, 4,55,13) = (/ &
+ & 0.83082E+01_JPRB,0.28857E+02_JPRB,0.41362E+02_JPRB,0.47679E+02_JPRB,0.32095E+02_JPRB /)  
+KB(:, 5,55,13) = (/ &
+ & 0.10573E+02_JPRB,0.32695E+02_JPRB,0.46225E+02_JPRB,0.52593E+02_JPRB,0.35810E+02_JPRB /)  
+KB(:, 1,56,13) = (/ &
+ & 0.34680E+01_JPRB,0.17374E+02_JPRB,0.25413E+02_JPRB,0.30039E+02_JPRB,0.19069E+02_JPRB /)  
+KB(:, 2,56,13) = (/ &
+ & 0.45601E+01_JPRB,0.20503E+02_JPRB,0.30163E+02_JPRB,0.35509E+02_JPRB,0.23088E+02_JPRB /)  
+KB(:, 3,56,13) = (/ &
+ & 0.59518E+01_JPRB,0.23956E+02_JPRB,0.34971E+02_JPRB,0.40858E+02_JPRB,0.27027E+02_JPRB /)  
+KB(:, 4,56,13) = (/ &
+ & 0.76711E+01_JPRB,0.27642E+02_JPRB,0.39801E+02_JPRB,0.46057E+02_JPRB,0.30878E+02_JPRB /)  
+KB(:, 5,56,13) = (/ &
+ & 0.98017E+01_JPRB,0.31462E+02_JPRB,0.44674E+02_JPRB,0.51031E+02_JPRB,0.34630E+02_JPRB /)  
+KB(:, 1,57,13) = (/ &
+ & 0.31571E+01_JPRB,0.16389E+02_JPRB,0.23903E+02_JPRB,0.28270E+02_JPRB,0.17802E+02_JPRB /)  
+KB(:, 2,57,13) = (/ &
+ & 0.41775E+01_JPRB,0.19466E+02_JPRB,0.28628E+02_JPRB,0.33765E+02_JPRB,0.21796E+02_JPRB /)  
+KB(:, 3,57,13) = (/ &
+ & 0.54676E+01_JPRB,0.22817E+02_JPRB,0.33433E+02_JPRB,0.39170E+02_JPRB,0.25777E+02_JPRB /)  
+KB(:, 4,57,13) = (/ &
+ & 0.70767E+01_JPRB,0.26436E+02_JPRB,0.38248E+02_JPRB,0.44404E+02_JPRB,0.29650E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART33',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,57,13) = (/ &
+ & 0.90728E+01_JPRB,0.30224E+02_JPRB,0.43110E+02_JPRB,0.49455E+02_JPRB,0.33445E+02_JPRB /)  
+KB(:, 1,58,13) = (/ &
+ & 0.28749E+01_JPRB,0.15464E+02_JPRB,0.22485E+02_JPRB,0.26596E+02_JPRB,0.16612E+02_JPRB /)  
+KB(:, 2,58,13) = (/ &
+ & 0.38438E+01_JPRB,0.18517E+02_JPRB,0.27179E+02_JPRB,0.32099E+02_JPRB,0.20568E+02_JPRB /)  
+KB(:, 3,58,13) = (/ &
+ & 0.50410E+01_JPRB,0.21758E+02_JPRB,0.31967E+02_JPRB,0.37546E+02_JPRB,0.24584E+02_JPRB /)  
+KB(:, 4,58,13) = (/ &
+ & 0.65535E+01_JPRB,0.25311E+02_JPRB,0.36779E+02_JPRB,0.42823E+02_JPRB,0.28478E+02_JPRB /)  
+KB(:, 5,58,13) = (/ &
+ & 0.84187E+01_JPRB,0.29065E+02_JPRB,0.41628E+02_JPRB,0.47951E+02_JPRB,0.32304E+02_JPRB /)  
+KB(:, 1,59,13) = (/ &
+ & 0.27657E+01_JPRB,0.15098E+02_JPRB,0.21927E+02_JPRB,0.25930E+02_JPRB,0.16137E+02_JPRB /)  
+KB(:, 2,59,13) = (/ &
+ & 0.37163E+01_JPRB,0.18141E+02_JPRB,0.26603E+02_JPRB,0.31433E+02_JPRB,0.20078E+02_JPRB /)  
+KB(:, 3,59,13) = (/ &
+ & 0.48770E+01_JPRB,0.21342E+02_JPRB,0.31379E+02_JPRB,0.36884E+02_JPRB,0.24100E+02_JPRB /)  
+KB(:, 4,59,13) = (/ &
+ & 0.63518E+01_JPRB,0.24865E+02_JPRB,0.36188E+02_JPRB,0.42182E+02_JPRB,0.28007E+02_JPRB /)  
+KB(:, 5,59,13) = (/ &
+ & 0.81684E+01_JPRB,0.28600E+02_JPRB,0.41035E+02_JPRB,0.47343E+02_JPRB,0.31847E+02_JPRB /)  
+KB(:, 1,13,14) = (/ &
+ & 0.20563E+03_JPRB,0.16395E+03_JPRB,0.15131E+03_JPRB,0.13928E+03_JPRB,0.17336E+03_JPRB /)  
+KB(:, 2,13,14) = (/ &
+ & 0.20583E+03_JPRB,0.16346E+03_JPRB,0.15102E+03_JPRB,0.13867E+03_JPRB,0.17209E+03_JPRB /)  
+KB(:, 3,13,14) = (/ &
+ & 0.20579E+03_JPRB,0.16282E+03_JPRB,0.15051E+03_JPRB,0.13803E+03_JPRB,0.17119E+03_JPRB /)  
+KB(:, 4,13,14) = (/ &
+ & 0.20538E+03_JPRB,0.16198E+03_JPRB,0.15005E+03_JPRB,0.13746E+03_JPRB,0.17062E+03_JPRB /)  
+KB(:, 5,13,14) = (/ &
+ & 0.20471E+03_JPRB,0.16100E+03_JPRB,0.14942E+03_JPRB,0.13685E+03_JPRB,0.16998E+03_JPRB /)  
+KB(:, 1,14,14) = (/ &
+ & 0.21387E+03_JPRB,0.17486E+03_JPRB,0.16410E+03_JPRB,0.14896E+03_JPRB,0.17926E+03_JPRB /)  
+KB(:, 2,14,14) = (/ &
+ & 0.21398E+03_JPRB,0.17407E+03_JPRB,0.16354E+03_JPRB,0.14849E+03_JPRB,0.17872E+03_JPRB /)  
+KB(:, 3,14,14) = (/ &
+ & 0.21371E+03_JPRB,0.17306E+03_JPRB,0.16300E+03_JPRB,0.14796E+03_JPRB,0.17838E+03_JPRB /)  
+KB(:, 4,14,14) = (/ &
+ & 0.21320E+03_JPRB,0.17193E+03_JPRB,0.16238E+03_JPRB,0.14748E+03_JPRB,0.17807E+03_JPRB /)  
+KB(:, 5,14,14) = (/ &
+ & 0.21239E+03_JPRB,0.17062E+03_JPRB,0.16158E+03_JPRB,0.14661E+03_JPRB,0.17726E+03_JPRB /)  
+KB(:, 1,15,14) = (/ &
+ & 0.21868E+03_JPRB,0.18392E+03_JPRB,0.17597E+03_JPRB,0.15877E+03_JPRB,0.18409E+03_JPRB /)  
+KB(:, 2,15,14) = (/ &
+ & 0.21861E+03_JPRB,0.18285E+03_JPRB,0.17533E+03_JPRB,0.15845E+03_JPRB,0.18413E+03_JPRB /)  
+KB(:, 3,15,14) = (/ &
+ & 0.21838E+03_JPRB,0.18168E+03_JPRB,0.17469E+03_JPRB,0.15814E+03_JPRB,0.18423E+03_JPRB /)  
+KB(:, 4,15,14) = (/ &
+ & 0.21785E+03_JPRB,0.18028E+03_JPRB,0.17392E+03_JPRB,0.15747E+03_JPRB,0.18391E+03_JPRB /)  
+KB(:, 5,15,14) = (/ &
+ & 0.21714E+03_JPRB,0.17881E+03_JPRB,0.17281E+03_JPRB,0.15644E+03_JPRB,0.18337E+03_JPRB /)  
+KB(:, 1,16,14) = (/ &
+ & 0.21989E+03_JPRB,0.19090E+03_JPRB,0.18666E+03_JPRB,0.16823E+03_JPRB,0.18717E+03_JPRB /)  
+KB(:, 2,16,14) = (/ &
+ & 0.22000E+03_JPRB,0.18989E+03_JPRB,0.18604E+03_JPRB,0.16822E+03_JPRB,0.18797E+03_JPRB /)  
+KB(:, 3,16,14) = (/ &
+ & 0.21982E+03_JPRB,0.18856E+03_JPRB,0.18533E+03_JPRB,0.16794E+03_JPRB,0.18851E+03_JPRB /)  
+KB(:, 4,16,14) = (/ &
+ & 0.21954E+03_JPRB,0.18709E+03_JPRB,0.18432E+03_JPRB,0.16715E+03_JPRB,0.18854E+03_JPRB /)  
+KB(:, 5,16,14) = (/ &
+ & 0.21898E+03_JPRB,0.18542E+03_JPRB,0.18303E+03_JPRB,0.16600E+03_JPRB,0.18839E+03_JPRB /)  
+KB(:, 1,17,14) = (/ &
+ & 0.21793E+03_JPRB,0.19596E+03_JPRB,0.19603E+03_JPRB,0.17703E+03_JPRB,0.18857E+03_JPRB /)  
+KB(:, 2,17,14) = (/ &
+ & 0.21821E+03_JPRB,0.19492E+03_JPRB,0.19548E+03_JPRB,0.17725E+03_JPRB,0.19023E+03_JPRB /)  
+KB(:, 3,17,14) = (/ &
+ & 0.21850E+03_JPRB,0.19369E+03_JPRB,0.19462E+03_JPRB,0.17701E+03_JPRB,0.19133E+03_JPRB /)  
+KB(:, 4,17,14) = (/ &
+ & 0.21855E+03_JPRB,0.19221E+03_JPRB,0.19343E+03_JPRB,0.17616E+03_JPRB,0.19194E+03_JPRB /)  
+KB(:, 5,17,14) = (/ &
+ & 0.21839E+03_JPRB,0.19057E+03_JPRB,0.19206E+03_JPRB,0.17490E+03_JPRB,0.19225E+03_JPRB /)  
+KB(:, 1,18,14) = (/ &
+ & 0.21311E+03_JPRB,0.19935E+03_JPRB,0.20385E+03_JPRB,0.18492E+03_JPRB,0.18864E+03_JPRB /)  
+KB(:, 2,18,14) = (/ &
+ & 0.21399E+03_JPRB,0.19838E+03_JPRB,0.20339E+03_JPRB,0.18536E+03_JPRB,0.19117E+03_JPRB /)  
+KB(:, 3,18,14) = (/ &
+ & 0.21477E+03_JPRB,0.19727E+03_JPRB,0.20251E+03_JPRB,0.18517E+03_JPRB,0.19296E+03_JPRB /)  
+KB(:, 4,18,14) = (/ &
+ & 0.21537E+03_JPRB,0.19602E+03_JPRB,0.20131E+03_JPRB,0.18433E+03_JPRB,0.19426E+03_JPRB /)  
+KB(:, 5,18,14) = (/ &
+ & 0.21594E+03_JPRB,0.19460E+03_JPRB,0.19989E+03_JPRB,0.18299E+03_JPRB,0.19511E+03_JPRB /)  
+KB(:, 1,19,14) = (/ &
+ & 0.20628E+03_JPRB,0.20131E+03_JPRB,0.21018E+03_JPRB,0.19181E+03_JPRB,0.18780E+03_JPRB /)  
+KB(:, 2,19,14) = (/ &
+ & 0.20786E+03_JPRB,0.20061E+03_JPRB,0.20985E+03_JPRB,0.19249E+03_JPRB,0.19117E+03_JPRB /)  
+KB(:, 3,19,14) = (/ &
+ & 0.20939E+03_JPRB,0.19978E+03_JPRB,0.20915E+03_JPRB,0.19245E+03_JPRB,0.19379E+03_JPRB /)  
+KB(:, 4,19,14) = (/ &
+ & 0.21078E+03_JPRB,0.19876E+03_JPRB,0.20808E+03_JPRB,0.19159E+03_JPRB,0.19578E+03_JPRB /)  
+KB(:, 5,19,14) = (/ &
+ & 0.21196E+03_JPRB,0.19762E+03_JPRB,0.20666E+03_JPRB,0.19020E+03_JPRB,0.19726E+03_JPRB /)  
+KB(:, 1,20,14) = (/ &
+ & 0.19806E+03_JPRB,0.20215E+03_JPRB,0.21525E+03_JPRB,0.19781E+03_JPRB,0.18646E+03_JPRB /)  
+KB(:, 2,20,14) = (/ &
+ & 0.20054E+03_JPRB,0.20180E+03_JPRB,0.21527E+03_JPRB,0.19874E+03_JPRB,0.19072E+03_JPRB /)  
+KB(:, 3,20,14) = (/ &
+ & 0.20298E+03_JPRB,0.20132E+03_JPRB,0.21478E+03_JPRB,0.19877E+03_JPRB,0.19413E+03_JPRB /)  
+KB(:, 4,20,14) = (/ &
+ & 0.20522E+03_JPRB,0.20070E+03_JPRB,0.21384E+03_JPRB,0.19793E+03_JPRB,0.19681E+03_JPRB /)  
+KB(:, 5,20,14) = (/ &
+ & 0.20725E+03_JPRB,0.19975E+03_JPRB,0.21249E+03_JPRB,0.19659E+03_JPRB,0.19899E+03_JPRB /)  
+KB(:, 1,21,14) = (/ &
+ & 0.18919E+03_JPRB,0.20217E+03_JPRB,0.21942E+03_JPRB,0.20291E+03_JPRB,0.18499E+03_JPRB /)  
+KB(:, 2,21,14) = (/ &
+ & 0.19268E+03_JPRB,0.20239E+03_JPRB,0.21974E+03_JPRB,0.20415E+03_JPRB,0.19012E+03_JPRB /)  
+KB(:, 3,21,14) = (/ &
+ & 0.19609E+03_JPRB,0.20231E+03_JPRB,0.21947E+03_JPRB,0.20425E+03_JPRB,0.19432E+03_JPRB /)  
+KB(:, 4,21,14) = (/ &
+ & 0.19926E+03_JPRB,0.20201E+03_JPRB,0.21866E+03_JPRB,0.20346E+03_JPRB,0.19770E+03_JPRB /)  
+KB(:, 5,21,14) = (/ &
+ & 0.20224E+03_JPRB,0.20136E+03_JPRB,0.21742E+03_JPRB,0.20212E+03_JPRB,0.20044E+03_JPRB /)  
+KB(:, 1,22,14) = (/ &
+ & 0.18064E+03_JPRB,0.20182E+03_JPRB,0.22276E+03_JPRB,0.20740E+03_JPRB,0.18409E+03_JPRB /)  
+KB(:, 2,22,14) = (/ &
+ & 0.18513E+03_JPRB,0.20253E+03_JPRB,0.22341E+03_JPRB,0.20876E+03_JPRB,0.18988E+03_JPRB /)  
+KB(:, 3,22,14) = (/ &
+ & 0.18951E+03_JPRB,0.20287E+03_JPRB,0.22329E+03_JPRB,0.20890E+03_JPRB,0.19474E+03_JPRB /)  
+KB(:, 4,22,14) = (/ &
+ & 0.19368E+03_JPRB,0.20283E+03_JPRB,0.22259E+03_JPRB,0.20812E+03_JPRB,0.19869E+03_JPRB /)  
+KB(:, 5,22,14) = (/ &
+ & 0.19752E+03_JPRB,0.20248E+03_JPRB,0.22143E+03_JPRB,0.20676E+03_JPRB,0.20185E+03_JPRB /)  
+KB(:, 1,23,14) = (/ &
+ & 0.17261E+03_JPRB,0.20129E+03_JPRB,0.22560E+03_JPRB,0.21126E+03_JPRB,0.18360E+03_JPRB /)  
+KB(:, 2,23,14) = (/ &
+ & 0.17813E+03_JPRB,0.20255E+03_JPRB,0.22645E+03_JPRB,0.21277E+03_JPRB,0.18993E+03_JPRB /)  
+KB(:, 3,23,14) = (/ &
+ & 0.18347E+03_JPRB,0.20322E+03_JPRB,0.22649E+03_JPRB,0.21288E+03_JPRB,0.19534E+03_JPRB /)  
+KB(:, 4,23,14) = (/ &
+ & 0.18858E+03_JPRB,0.20345E+03_JPRB,0.22593E+03_JPRB,0.21211E+03_JPRB,0.19972E+03_JPRB /)  
+KB(:, 5,23,14) = (/ &
+ & 0.19325E+03_JPRB,0.20330E+03_JPRB,0.22470E+03_JPRB,0.21066E+03_JPRB,0.20314E+03_JPRB /)  
+KB(:, 1,24,14) = (/ &
+ & 0.16550E+03_JPRB,0.20079E+03_JPRB,0.22797E+03_JPRB,0.21459E+03_JPRB,0.18352E+03_JPRB /)  
+KB(:, 2,24,14) = (/ &
+ & 0.17199E+03_JPRB,0.20247E+03_JPRB,0.22899E+03_JPRB,0.21614E+03_JPRB,0.19031E+03_JPRB /)  
+KB(:, 3,24,14) = (/ &
+ & 0.17829E+03_JPRB,0.20349E+03_JPRB,0.22920E+03_JPRB,0.21621E+03_JPRB,0.19610E+03_JPRB /)  
+KB(:, 4,24,14) = (/ &
+ & 0.18424E+03_JPRB,0.20395E+03_JPRB,0.22865E+03_JPRB,0.21544E+03_JPRB,0.20080E+03_JPRB /)  
+KB(:, 5,24,14) = (/ &
+ & 0.18966E+03_JPRB,0.20393E+03_JPRB,0.22735E+03_JPRB,0.21388E+03_JPRB,0.20437E+03_JPRB /)  
+KB(:, 1,25,14) = (/ &
+ & 0.15949E+03_JPRB,0.20048E+03_JPRB,0.22999E+03_JPRB,0.21758E+03_JPRB,0.18395E+03_JPRB /)  
+KB(:, 2,25,14) = (/ &
+ & 0.16698E+03_JPRB,0.20247E+03_JPRB,0.23119E+03_JPRB,0.21903E+03_JPRB,0.19108E+03_JPRB /)  
+KB(:, 3,25,14) = (/ &
+ & 0.17411E+03_JPRB,0.20370E+03_JPRB,0.23144E+03_JPRB,0.21904E+03_JPRB,0.19711E+03_JPRB /)  
+KB(:, 4,25,14) = (/ &
+ & 0.18088E+03_JPRB,0.20435E+03_JPRB,0.23082E+03_JPRB,0.21817E+03_JPRB,0.20192E+03_JPRB /)  
+KB(:, 5,25,14) = (/ &
+ & 0.18710E+03_JPRB,0.20450E+03_JPRB,0.22950E+03_JPRB,0.21648E+03_JPRB,0.20559E+03_JPRB /)  
+KB(:, 1,26,14) = (/ &
+ & 0.15479E+03_JPRB,0.20038E+03_JPRB,0.23181E+03_JPRB,0.22016E+03_JPRB,0.18490E+03_JPRB /)  
+KB(:, 2,26,14) = (/ &
+ & 0.16322E+03_JPRB,0.20258E+03_JPRB,0.23307E+03_JPRB,0.22145E+03_JPRB,0.19222E+03_JPRB /)  
+KB(:, 3,26,14) = (/ &
+ & 0.17119E+03_JPRB,0.20401E+03_JPRB,0.23326E+03_JPRB,0.22140E+03_JPRB,0.19831E+03_JPRB /)  
+KB(:, 4,26,14) = (/ &
+ & 0.17866E+03_JPRB,0.20478E+03_JPRB,0.23259E+03_JPRB,0.22038E+03_JPRB,0.20315E+03_JPRB /)  
+KB(:, 5,26,14) = (/ &
+ & 0.18553E+03_JPRB,0.20498E+03_JPRB,0.23122E+03_JPRB,0.21854E+03_JPRB,0.20685E+03_JPRB /)  
+KB(:, 1,27,14) = (/ &
+ & 0.15143E+03_JPRB,0.20049E+03_JPRB,0.23344E+03_JPRB,0.22241E+03_JPRB,0.18615E+03_JPRB /)  
+KB(:, 2,27,14) = (/ &
+ & 0.16070E+03_JPRB,0.20279E+03_JPRB,0.23465E+03_JPRB,0.22352E+03_JPRB,0.19353E+03_JPRB /)  
+KB(:, 3,27,14) = (/ &
+ & 0.16932E+03_JPRB,0.20430E+03_JPRB,0.23473E+03_JPRB,0.22331E+03_JPRB,0.19960E+03_JPRB /)  
+KB(:, 4,27,14) = (/ &
+ & 0.17737E+03_JPRB,0.20518E+03_JPRB,0.23402E+03_JPRB,0.22212E+03_JPRB,0.20440E+03_JPRB /)  
+KB(:, 5,27,14) = (/ &
+ & 0.18472E+03_JPRB,0.20537E+03_JPRB,0.23257E+03_JPRB,0.22015E+03_JPRB,0.20807E+03_JPRB /)  
+KB(:, 1,28,14) = (/ &
+ & 0.14935E+03_JPRB,0.20078E+03_JPRB,0.23487E+03_JPRB,0.22436E+03_JPRB,0.18762E+03_JPRB /)  
+KB(:, 2,28,14) = (/ &
+ & 0.15926E+03_JPRB,0.20312E+03_JPRB,0.23597E+03_JPRB,0.22523E+03_JPRB,0.19491E+03_JPRB /)  
+KB(:, 3,28,14) = (/ &
+ & 0.16839E+03_JPRB,0.20467E+03_JPRB,0.23597E+03_JPRB,0.22484E+03_JPRB,0.20092E+03_JPRB /)  
+KB(:, 4,28,14) = (/ &
+ & 0.17687E+03_JPRB,0.20554E+03_JPRB,0.23516E+03_JPRB,0.22345E+03_JPRB,0.20562E+03_JPRB /)  
+KB(:, 5,28,14) = (/ &
+ & 0.18453E+03_JPRB,0.20570E+03_JPRB,0.23357E+03_JPRB,0.22135E+03_JPRB,0.20921E+03_JPRB /)  
+KB(:, 1,29,14) = (/ &
+ & 0.14844E+03_JPRB,0.20117E+03_JPRB,0.23614E+03_JPRB,0.22601E+03_JPRB,0.18927E+03_JPRB /)  
+KB(:, 2,29,14) = (/ &
+ & 0.15878E+03_JPRB,0.20350E+03_JPRB,0.23707E+03_JPRB,0.22664E+03_JPRB,0.19642E+03_JPRB /)  
+KB(:, 3,29,14) = (/ &
+ & 0.16829E+03_JPRB,0.20505E+03_JPRB,0.23696E+03_JPRB,0.22601E+03_JPRB,0.20229E+03_JPRB /)  
+KB(:, 4,29,14) = (/ &
+ & 0.17702E+03_JPRB,0.20585E+03_JPRB,0.23602E+03_JPRB,0.22445E+03_JPRB,0.20685E+03_JPRB /)  
+KB(:, 5,29,14) = (/ &
+ & 0.18487E+03_JPRB,0.20599E+03_JPRB,0.23430E+03_JPRB,0.22220E+03_JPRB,0.21031E+03_JPRB /)  
+KB(:, 1,30,14) = (/ &
+ & 0.14841E+03_JPRB,0.20165E+03_JPRB,0.23724E+03_JPRB,0.22742E+03_JPRB,0.19101E+03_JPRB /)  
+KB(:, 2,30,14) = (/ &
+ & 0.15903E+03_JPRB,0.20395E+03_JPRB,0.23798E+03_JPRB,0.22774E+03_JPRB,0.19796E+03_JPRB /)  
+KB(:, 3,30,14) = (/ &
+ & 0.16878E+03_JPRB,0.20543E+03_JPRB,0.23774E+03_JPRB,0.22689E+03_JPRB,0.20367E+03_JPRB /)  
+KB(:, 4,30,14) = (/ &
+ & 0.17765E+03_JPRB,0.20614E+03_JPRB,0.23662E+03_JPRB,0.22515E+03_JPRB,0.20804E+03_JPRB /)  
+KB(:, 5,30,14) = (/ &
+ & 0.18556E+03_JPRB,0.20626E+03_JPRB,0.23478E+03_JPRB,0.22274E+03_JPRB,0.21133E+03_JPRB /)  
+KB(:, 1,31,14) = (/ &
+ & 0.14910E+03_JPRB,0.20219E+03_JPRB,0.23816E+03_JPRB,0.22857E+03_JPRB,0.19280E+03_JPRB /)  
+KB(:, 2,31,14) = (/ &
+ & 0.15987E+03_JPRB,0.20442E+03_JPRB,0.23873E+03_JPRB,0.22860E+03_JPRB,0.19955E+03_JPRB /)  
+KB(:, 3,31,14) = (/ &
+ & 0.16974E+03_JPRB,0.20578E+03_JPRB,0.23830E+03_JPRB,0.22751E+03_JPRB,0.20503E+03_JPRB /)  
+KB(:, 4,31,14) = (/ &
+ & 0.17870E+03_JPRB,0.20640E+03_JPRB,0.23703E+03_JPRB,0.22559E+03_JPRB,0.20917E+03_JPRB /)  
+KB(:, 5,31,14) = (/ &
+ & 0.18656E+03_JPRB,0.20647E+03_JPRB,0.23504E+03_JPRB,0.22303E+03_JPRB,0.21232E+03_JPRB /)  
+KB(:, 1,32,14) = (/ &
+ & 0.15031E+03_JPRB,0.20279E+03_JPRB,0.23897E+03_JPRB,0.22949E+03_JPRB,0.19459E+03_JPRB /)  
+KB(:, 2,32,14) = (/ &
+ & 0.16119E+03_JPRB,0.20489E+03_JPRB,0.23931E+03_JPRB,0.22922E+03_JPRB,0.20113E+03_JPRB /)  
+KB(:, 3,32,14) = (/ &
+ & 0.17110E+03_JPRB,0.20610E+03_JPRB,0.23869E+03_JPRB,0.22791E+03_JPRB,0.20634E+03_JPRB /)  
+KB(:, 4,32,14) = (/ &
+ & 0.18002E+03_JPRB,0.20662E+03_JPRB,0.23723E+03_JPRB,0.22582E+03_JPRB,0.21029E+03_JPRB /)  
+KB(:, 5,32,14) = (/ &
+ & 0.18777E+03_JPRB,0.20659E+03_JPRB,0.23510E+03_JPRB,0.22308E+03_JPRB,0.21322E+03_JPRB /)  
+KB(:, 1,33,14) = (/ &
+ & 0.15197E+03_JPRB,0.20341E+03_JPRB,0.23965E+03_JPRB,0.23019E+03_JPRB,0.19639E+03_JPRB /)  
+KB(:, 2,33,14) = (/ &
+ & 0.16285E+03_JPRB,0.20534E+03_JPRB,0.23976E+03_JPRB,0.22964E+03_JPRB,0.20267E+03_JPRB /)  
+KB(:, 3,33,14) = (/ &
+ & 0.17270E+03_JPRB,0.20638E+03_JPRB,0.23893E+03_JPRB,0.22811E+03_JPRB,0.20758E+03_JPRB /)  
+KB(:, 4,33,14) = (/ &
+ & 0.18151E+03_JPRB,0.20680E+03_JPRB,0.23727E+03_JPRB,0.22584E+03_JPRB,0.21132E+03_JPRB /)  
+KB(:, 5,33,14) = (/ &
+ & 0.18912E+03_JPRB,0.20665E+03_JPRB,0.23500E+03_JPRB,0.22296E+03_JPRB,0.21406E+03_JPRB /)  
+KB(:, 1,34,14) = (/ &
+ & 0.15352E+03_JPRB,0.20391E+03_JPRB,0.24014E+03_JPRB,0.23069E+03_JPRB,0.19790E+03_JPRB /)  
+KB(:, 2,34,14) = (/ &
+ & 0.16437E+03_JPRB,0.20566E+03_JPRB,0.24006E+03_JPRB,0.22992E+03_JPRB,0.20396E+03_JPRB /)  
+KB(:, 3,34,14) = (/ &
+ & 0.17416E+03_JPRB,0.20662E+03_JPRB,0.23907E+03_JPRB,0.22823E+03_JPRB,0.20863E+03_JPRB /)  
+KB(:, 4,34,14) = (/ &
+ & 0.18285E+03_JPRB,0.20695E+03_JPRB,0.23728E+03_JPRB,0.22580E+03_JPRB,0.21218E+03_JPRB /)  
+KB(:, 5,34,14) = (/ &
+ & 0.19033E+03_JPRB,0.20667E+03_JPRB,0.23487E+03_JPRB,0.22280E+03_JPRB,0.21474E+03_JPRB /)  
+KB(:, 1,35,14) = (/ &
+ & 0.15421E+03_JPRB,0.20418E+03_JPRB,0.24052E+03_JPRB,0.23110E+03_JPRB,0.19876E+03_JPRB /)  
+KB(:, 2,35,14) = (/ &
+ & 0.16507E+03_JPRB,0.20586E+03_JPRB,0.24033E+03_JPRB,0.23020E+03_JPRB,0.20468E+03_JPRB /)  
+KB(:, 3,35,14) = (/ &
+ & 0.17486E+03_JPRB,0.20677E+03_JPRB,0.23924E+03_JPRB,0.22841E+03_JPRB,0.20923E+03_JPRB /)  
+KB(:, 4,35,14) = (/ &
+ & 0.18350E+03_JPRB,0.20705E+03_JPRB,0.23737E+03_JPRB,0.22589E+03_JPRB,0.21269E+03_JPRB /)  
+KB(:, 5,35,14) = (/ &
+ & 0.19094E+03_JPRB,0.20669E+03_JPRB,0.23489E+03_JPRB,0.22281E+03_JPRB,0.21514E+03_JPRB /)  
+KB(:, 1,36,14) = (/ &
+ & 0.15381E+03_JPRB,0.20424E+03_JPRB,0.24080E+03_JPRB,0.23145E+03_JPRB,0.19888E+03_JPRB /)  
+KB(:, 2,36,14) = (/ &
+ & 0.16478E+03_JPRB,0.20592E+03_JPRB,0.24060E+03_JPRB,0.23055E+03_JPRB,0.20484E+03_JPRB /)  
+KB(:, 3,36,14) = (/ &
+ & 0.17464E+03_JPRB,0.20684E+03_JPRB,0.23950E+03_JPRB,0.22874E+03_JPRB,0.20938E+03_JPRB /)  
+KB(:, 4,36,14) = (/ &
+ & 0.18336E+03_JPRB,0.20715E+03_JPRB,0.23762E+03_JPRB,0.22618E+03_JPRB,0.21284E+03_JPRB /)  
+KB(:, 5,36,14) = (/ &
+ & 0.19086E+03_JPRB,0.20678E+03_JPRB,0.23514E+03_JPRB,0.22311E+03_JPRB,0.21532E+03_JPRB /)  
+KB(:, 1,37,14) = (/ &
+ & 0.15177E+03_JPRB,0.20394E+03_JPRB,0.24096E+03_JPRB,0.23178E+03_JPRB,0.19802E+03_JPRB /)  
+KB(:, 2,37,14) = (/ &
+ & 0.16298E+03_JPRB,0.20578E+03_JPRB,0.24091E+03_JPRB,0.23102E+03_JPRB,0.20416E+03_JPRB /)  
+KB(:, 3,37,14) = (/ &
+ & 0.17307E+03_JPRB,0.20681E+03_JPRB,0.23994E+03_JPRB,0.22934E+03_JPRB,0.20893E+03_JPRB /)  
+KB(:, 4,37,14) = (/ &
+ & 0.18204E+03_JPRB,0.20721E+03_JPRB,0.23818E+03_JPRB,0.22688E+03_JPRB,0.21255E+03_JPRB /)  
+KB(:, 5,37,14) = (/ &
+ & 0.18973E+03_JPRB,0.20695E+03_JPRB,0.23573E+03_JPRB,0.22383E+03_JPRB,0.21516E+03_JPRB /)  
+KB(:, 1,38,14) = (/ &
+ & 0.14968E+03_JPRB,0.20359E+03_JPRB,0.24104E+03_JPRB,0.23202E+03_JPRB,0.19703E+03_JPRB /)  
+KB(:, 2,38,14) = (/ &
+ & 0.16113E+03_JPRB,0.20560E+03_JPRB,0.24116E+03_JPRB,0.23143E+03_JPRB,0.20341E+03_JPRB /)  
+KB(:, 3,38,14) = (/ &
+ & 0.17144E+03_JPRB,0.20674E+03_JPRB,0.24033E+03_JPRB,0.22988E+03_JPRB,0.20838E+03_JPRB /)  
+KB(:, 4,38,14) = (/ &
+ & 0.18063E+03_JPRB,0.20724E+03_JPRB,0.23866E+03_JPRB,0.22752E+03_JPRB,0.21216E+03_JPRB /)  
+KB(:, 5,38,14) = (/ &
+ & 0.18855E+03_JPRB,0.20710E+03_JPRB,0.23632E+03_JPRB,0.22453E+03_JPRB,0.21493E+03_JPRB /)  
+KB(:, 1,39,14) = (/ &
+ & 0.14764E+03_JPRB,0.20322E+03_JPRB,0.24106E+03_JPRB,0.23220E+03_JPRB,0.19604E+03_JPRB /)  
+KB(:, 2,39,14) = (/ &
+ & 0.15932E+03_JPRB,0.20540E+03_JPRB,0.24137E+03_JPRB,0.23180E+03_JPRB,0.20262E+03_JPRB /)  
+KB(:, 3,39,14) = (/ &
+ & 0.16984E+03_JPRB,0.20665E+03_JPRB,0.24065E+03_JPRB,0.23036E+03_JPRB,0.20781E+03_JPRB /)  
+KB(:, 4,39,14) = (/ &
+ & 0.17923E+03_JPRB,0.20725E+03_JPRB,0.23910E+03_JPRB,0.22810E+03_JPRB,0.21175E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART34',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,39,14) = (/ &
+ & 0.18737E+03_JPRB,0.20722E+03_JPRB,0.23684E+03_JPRB,0.22517E+03_JPRB,0.21467E+03_JPRB /)  
+KB(:, 1,40,14) = (/ &
+ & 0.14438E+03_JPRB,0.20254E+03_JPRB,0.24092E+03_JPRB,0.23225E+03_JPRB,0.19425E+03_JPRB /)  
+KB(:, 2,40,14) = (/ &
+ & 0.15633E+03_JPRB,0.20498E+03_JPRB,0.24152E+03_JPRB,0.23217E+03_JPRB,0.20115E+03_JPRB /)  
+KB(:, 3,40,14) = (/ &
+ & 0.16718E+03_JPRB,0.20642E+03_JPRB,0.24105E+03_JPRB,0.23096E+03_JPRB,0.20672E+03_JPRB /)  
+KB(:, 4,40,14) = (/ &
+ & 0.17690E+03_JPRB,0.20720E+03_JPRB,0.23969E+03_JPRB,0.22887E+03_JPRB,0.21093E+03_JPRB /)  
+KB(:, 5,40,14) = (/ &
+ & 0.18539E+03_JPRB,0.20733E+03_JPRB,0.23758E+03_JPRB,0.22609E+03_JPRB,0.21411E+03_JPRB /)  
+KB(:, 1,41,14) = (/ &
+ & 0.14093E+03_JPRB,0.20170E+03_JPRB,0.24062E+03_JPRB,0.23214E+03_JPRB,0.19226E+03_JPRB /)  
+KB(:, 2,41,14) = (/ &
+ & 0.15309E+03_JPRB,0.20441E+03_JPRB,0.24155E+03_JPRB,0.23243E+03_JPRB,0.19951E+03_JPRB /)  
+KB(:, 3,41,14) = (/ &
+ & 0.16434E+03_JPRB,0.20613E+03_JPRB,0.24136E+03_JPRB,0.23149E+03_JPRB,0.20545E+03_JPRB /)  
+KB(:, 4,41,14) = (/ &
+ & 0.17439E+03_JPRB,0.20709E+03_JPRB,0.24022E+03_JPRB,0.22963E+03_JPRB,0.21000E+03_JPRB /)  
+KB(:, 5,41,14) = (/ &
+ & 0.18325E+03_JPRB,0.20739E+03_JPRB,0.23829E+03_JPRB,0.22700E+03_JPRB,0.21344E+03_JPRB /)  
+KB(:, 1,42,14) = (/ &
+ & 0.13742E+03_JPRB,0.20072E+03_JPRB,0.24018E+03_JPRB,0.23188E+03_JPRB,0.19017E+03_JPRB /)  
+KB(:, 2,42,14) = (/ &
+ & 0.14987E+03_JPRB,0.20381E+03_JPRB,0.24151E+03_JPRB,0.23260E+03_JPRB,0.19778E+03_JPRB /)  
+KB(:, 3,42,14) = (/ &
+ & 0.16144E+03_JPRB,0.20580E+03_JPRB,0.24159E+03_JPRB,0.23194E+03_JPRB,0.20408E+03_JPRB /)  
+KB(:, 4,42,14) = (/ &
+ & 0.17182E+03_JPRB,0.20693E+03_JPRB,0.24068E+03_JPRB,0.23030E+03_JPRB,0.20897E+03_JPRB /)  
+KB(:, 5,42,14) = (/ &
+ & 0.18101E+03_JPRB,0.20739E+03_JPRB,0.23894E+03_JPRB,0.22785E+03_JPRB,0.21269E+03_JPRB /)  
+KB(:, 1,43,14) = (/ &
+ & 0.13316E+03_JPRB,0.19946E+03_JPRB,0.23952E+03_JPRB,0.23134E+03_JPRB,0.18746E+03_JPRB /)  
+KB(:, 2,43,14) = (/ &
+ & 0.14590E+03_JPRB,0.20299E+03_JPRB,0.24131E+03_JPRB,0.23265E+03_JPRB,0.19555E+03_JPRB /)  
+KB(:, 3,43,14) = (/ &
+ & 0.15782E+03_JPRB,0.20531E+03_JPRB,0.24176E+03_JPRB,0.23237E+03_JPRB,0.20228E+03_JPRB /)  
+KB(:, 4,43,14) = (/ &
+ & 0.16860E+03_JPRB,0.20666E+03_JPRB,0.24113E+03_JPRB,0.23099E+03_JPRB,0.20761E+03_JPRB /)  
+KB(:, 5,43,14) = (/ &
+ & 0.17818E+03_JPRB,0.20733E+03_JPRB,0.23964E+03_JPRB,0.22878E+03_JPRB,0.21166E+03_JPRB /)  
+KB(:, 1,44,14) = (/ &
+ & 0.12851E+03_JPRB,0.19793E+03_JPRB,0.23860E+03_JPRB,0.23051E+03_JPRB,0.18440E+03_JPRB /)  
+KB(:, 2,44,14) = (/ &
+ & 0.14156E+03_JPRB,0.20195E+03_JPRB,0.24092E+03_JPRB,0.23249E+03_JPRB,0.19298E+03_JPRB /)  
+KB(:, 3,44,14) = (/ &
+ & 0.15381E+03_JPRB,0.20468E+03_JPRB,0.24182E+03_JPRB,0.23268E+03_JPRB,0.20015E+03_JPRB /)  
+KB(:, 4,44,14) = (/ &
+ & 0.16494E+03_JPRB,0.20625E+03_JPRB,0.24148E+03_JPRB,0.23163E+03_JPRB,0.20597E+03_JPRB /)  
+KB(:, 5,44,14) = (/ &
+ & 0.17499E+03_JPRB,0.20719E+03_JPRB,0.24029E+03_JPRB,0.22969E+03_JPRB,0.21043E+03_JPRB /)  
+KB(:, 1,45,14) = (/ &
+ & 0.12377E+03_JPRB,0.19622E+03_JPRB,0.23745E+03_JPRB,0.22938E+03_JPRB,0.18114E+03_JPRB /)  
+KB(:, 2,45,14) = (/ &
+ & 0.13713E+03_JPRB,0.20074E+03_JPRB,0.24035E+03_JPRB,0.23210E+03_JPRB,0.19024E+03_JPRB /)  
+KB(:, 3,45,14) = (/ &
+ & 0.14969E+03_JPRB,0.20389E+03_JPRB,0.24171E+03_JPRB,0.23283E+03_JPRB,0.19787E+03_JPRB /)  
+KB(:, 4,45,14) = (/ &
+ & 0.16122E+03_JPRB,0.20580E+03_JPRB,0.24172E+03_JPRB,0.23215E+03_JPRB,0.20417E+03_JPRB /)  
+KB(:, 5,45,14) = (/ &
+ & 0.17169E+03_JPRB,0.20697E+03_JPRB,0.24085E+03_JPRB,0.23051E+03_JPRB,0.20907E+03_JPRB /)  
+KB(:, 1,46,14) = (/ &
+ & 0.11871E+03_JPRB,0.19418E+03_JPRB,0.23600E+03_JPRB,0.22790E+03_JPRB,0.17747E+03_JPRB /)  
+KB(:, 2,46,14) = (/ &
+ & 0.13231E+03_JPRB,0.19929E+03_JPRB,0.23954E+03_JPRB,0.23143E+03_JPRB,0.18712E+03_JPRB /)  
+KB(:, 3,46,14) = (/ &
+ & 0.14514E+03_JPRB,0.20288E+03_JPRB,0.24138E+03_JPRB,0.23280E+03_JPRB,0.19526E+03_JPRB /)  
+KB(:, 4,46,14) = (/ &
+ & 0.15711E+03_JPRB,0.20523E+03_JPRB,0.24187E+03_JPRB,0.23257E+03_JPRB,0.20207E+03_JPRB /)  
+KB(:, 5,46,14) = (/ &
+ & 0.16802E+03_JPRB,0.20664E+03_JPRB,0.24132E+03_JPRB,0.23126E+03_JPRB,0.20749E+03_JPRB /)  
+KB(:, 1,47,14) = (/ &
+ & 0.11295E+03_JPRB,0.19159E+03_JPRB,0.23398E+03_JPRB,0.22588E+03_JPRB,0.17313E+03_JPRB /)  
+KB(:, 2,47,14) = (/ &
+ & 0.12683E+03_JPRB,0.19741E+03_JPRB,0.23835E+03_JPRB,0.23031E+03_JPRB,0.18342E+03_JPRB /)  
+KB(:, 3,47,14) = (/ &
+ & 0.13999E+03_JPRB,0.20159E+03_JPRB,0.24085E+03_JPRB,0.23253E+03_JPRB,0.19217E+03_JPRB /)  
+KB(:, 4,47,14) = (/ &
+ & 0.15234E+03_JPRB,0.20442E+03_JPRB,0.24186E+03_JPRB,0.23286E+03_JPRB,0.19949E+03_JPRB /)  
+KB(:, 5,47,14) = (/ &
+ & 0.16373E+03_JPRB,0.20618E+03_JPRB,0.24169E+03_JPRB,0.23194E+03_JPRB,0.20549E+03_JPRB /)  
+KB(:, 1,48,14) = (/ &
+ & 0.10712E+03_JPRB,0.18871E+03_JPRB,0.23159E+03_JPRB,0.22347E+03_JPRB,0.16850E+03_JPRB /)  
+KB(:, 2,48,14) = (/ &
+ & 0.12124E+03_JPRB,0.19529E+03_JPRB,0.23687E+03_JPRB,0.22882E+03_JPRB,0.17946E+03_JPRB /)  
+KB(:, 3,48,14) = (/ &
+ & 0.13473E+03_JPRB,0.20007E+03_JPRB,0.24005E+03_JPRB,0.23191E+03_JPRB,0.18883E+03_JPRB /)  
+KB(:, 4,48,14) = (/ &
+ & 0.14742E+03_JPRB,0.20342E+03_JPRB,0.24164E+03_JPRB,0.23294E+03_JPRB,0.19670E+03_JPRB /)  
+KB(:, 5,48,14) = (/ &
+ & 0.15928E+03_JPRB,0.20562E+03_JPRB,0.24192E+03_JPRB,0.23247E+03_JPRB,0.20325E+03_JPRB /)  
+KB(:, 1,49,14) = (/ &
+ & 0.10120E+03_JPRB,0.18550E+03_JPRB,0.22880E+03_JPRB,0.22071E+03_JPRB,0.16363E+03_JPRB /)  
+KB(:, 2,49,14) = (/ &
+ & 0.11556E+03_JPRB,0.19285E+03_JPRB,0.23504E+03_JPRB,0.22697E+03_JPRB,0.17524E+03_JPRB /)  
+KB(:, 3,49,14) = (/ &
+ & 0.12932E+03_JPRB,0.19832E+03_JPRB,0.23901E+03_JPRB,0.23097E+03_JPRB,0.18524E+03_JPRB /)  
+KB(:, 4,49,14) = (/ &
+ & 0.14238E+03_JPRB,0.20226E+03_JPRB,0.24120E+03_JPRB,0.23278E+03_JPRB,0.19370E+03_JPRB /)  
+KB(:, 5,49,14) = (/ &
+ & 0.15460E+03_JPRB,0.20488E+03_JPRB,0.24199E+03_JPRB,0.23283E+03_JPRB,0.20078E+03_JPRB /)  
+KB(:, 1,50,14) = (/ &
+ & 0.95603E+02_JPRB,0.18216E+03_JPRB,0.22576E+03_JPRB,0.21768E+03_JPRB,0.15878E+03_JPRB /)  
+KB(:, 2,50,14) = (/ &
+ & 0.11015E+03_JPRB,0.19031E+03_JPRB,0.23298E+03_JPRB,0.22490E+03_JPRB,0.17105E+03_JPRB /)  
+KB(:, 3,50,14) = (/ &
+ & 0.12415E+03_JPRB,0.19646E+03_JPRB,0.23775E+03_JPRB,0.22975E+03_JPRB,0.18166E+03_JPRB /)  
+KB(:, 4,50,14) = (/ &
+ & 0.13752E+03_JPRB,0.20094E+03_JPRB,0.24058E+03_JPRB,0.23236E+03_JPRB,0.19069E+03_JPRB /)  
+KB(:, 5,50,14) = (/ &
+ & 0.15007E+03_JPRB,0.20403E+03_JPRB,0.24187E+03_JPRB,0.23299E+03_JPRB,0.19826E+03_JPRB /)  
+KB(:, 1,51,14) = (/ &
+ & 0.90137E+02_JPRB,0.17868E+03_JPRB,0.22240E+03_JPRB,0.21442E+03_JPRB,0.15384E+03_JPRB /)  
+KB(:, 2,51,14) = (/ &
+ & 0.10484E+03_JPRB,0.18757E+03_JPRB,0.23066E+03_JPRB,0.22258E+03_JPRB,0.16677E+03_JPRB /)  
+KB(:, 3,51,14) = (/ &
+ & 0.11907E+03_JPRB,0.19442E+03_JPRB,0.23628E+03_JPRB,0.22824E+03_JPRB,0.17796E+03_JPRB /)  
+KB(:, 4,51,14) = (/ &
+ & 0.13269E+03_JPRB,0.19948E+03_JPRB,0.23976E+03_JPRB,0.23167E+03_JPRB,0.18756E+03_JPRB /)  
+KB(:, 5,51,14) = (/ &
+ & 0.14552E+03_JPRB,0.20302E+03_JPRB,0.24154E+03_JPRB,0.23296E+03_JPRB,0.19565E+03_JPRB /)  
+KB(:, 1,52,14) = (/ &
+ & 0.84690E+02_JPRB,0.17496E+03_JPRB,0.21864E+03_JPRB,0.21080E+03_JPRB,0.14862E+03_JPRB /)  
+KB(:, 2,52,14) = (/ &
+ & 0.99471E+02_JPRB,0.18453E+03_JPRB,0.22798E+03_JPRB,0.21992E+03_JPRB,0.16225E+03_JPRB /)  
+KB(:, 3,52,14) = (/ &
+ & 0.11391E+03_JPRB,0.19213E+03_JPRB,0.23451E+03_JPRB,0.22644E+03_JPRB,0.17406E+03_JPRB /)  
+KB(:, 4,52,14) = (/ &
+ & 0.12777E+03_JPRB,0.19781E+03_JPRB,0.23872E+03_JPRB,0.23070E+03_JPRB,0.18424E+03_JPRB /)  
+KB(:, 5,52,14) = (/ &
+ & 0.14091E+03_JPRB,0.20189E+03_JPRB,0.24107E+03_JPRB,0.23273E+03_JPRB,0.19286E+03_JPRB /)  
+KB(:, 1,53,14) = (/ &
+ & 0.79262E+02_JPRB,0.17095E+03_JPRB,0.21436E+03_JPRB,0.20681E+03_JPRB,0.14317E+03_JPRB /)  
+KB(:, 2,53,14) = (/ &
+ & 0.94047E+02_JPRB,0.18126E+03_JPRB,0.22494E+03_JPRB,0.21690E+03_JPRB,0.15748E+03_JPRB /)  
+KB(:, 3,53,14) = (/ &
+ & 0.10865E+03_JPRB,0.18958E+03_JPRB,0.23241E+03_JPRB,0.22434E+03_JPRB,0.16994E+03_JPRB /)  
+KB(:, 4,53,14) = (/ &
+ & 0.12274E+03_JPRB,0.19595E+03_JPRB,0.23742E+03_JPRB,0.22941E+03_JPRB,0.18070E+03_JPRB /)  
+KB(:, 5,53,14) = (/ &
+ & 0.13618E+03_JPRB,0.20056E+03_JPRB,0.24040E+03_JPRB,0.23224E+03_JPRB,0.18988E+03_JPRB /)  
+KB(:, 1,54,14) = (/ &
+ & 0.74312E+02_JPRB,0.16701E+03_JPRB,0.21000E+03_JPRB,0.20283E+03_JPRB,0.13801E+03_JPRB /)  
+KB(:, 2,54,14) = (/ &
+ & 0.89059E+02_JPRB,0.17802E+03_JPRB,0.22177E+03_JPRB,0.21381E+03_JPRB,0.15289E+03_JPRB /)  
+KB(:, 3,54,14) = (/ &
+ & 0.10379E+03_JPRB,0.18701E+03_JPRB,0.23021E+03_JPRB,0.22214E+03_JPRB,0.16595E+03_JPRB /)  
+KB(:, 4,54,14) = (/ &
+ & 0.11808E+03_JPRB,0.19403E+03_JPRB,0.23602E+03_JPRB,0.22797E+03_JPRB,0.17728E+03_JPRB /)  
+KB(:, 5,54,14) = (/ &
+ & 0.13174E+03_JPRB,0.19918E+03_JPRB,0.23961E+03_JPRB,0.23155E+03_JPRB,0.18697E+03_JPRB /)  
+KB(:, 1,55,14) = (/ &
+ & 0.69615E+02_JPRB,0.16296E+03_JPRB,0.20540E+03_JPRB,0.19866E+03_JPRB,0.13288E+03_JPRB /)  
+KB(:, 2,55,14) = (/ &
+ & 0.84276E+02_JPRB,0.17466E+03_JPRB,0.21835E+03_JPRB,0.21056E+03_JPRB,0.14828E+03_JPRB /)  
+KB(:, 3,55,14) = (/ &
+ & 0.99066E+02_JPRB,0.18433E+03_JPRB,0.22782E+03_JPRB,0.21977E+03_JPRB,0.16197E+03_JPRB /)  
+KB(:, 4,55,14) = (/ &
+ & 0.11354E+03_JPRB,0.19199E+03_JPRB,0.23442E+03_JPRB,0.22636E+03_JPRB,0.17383E+03_JPRB /)  
+KB(:, 5,55,14) = (/ &
+ & 0.12741E+03_JPRB,0.19770E+03_JPRB,0.23866E+03_JPRB,0.23065E+03_JPRB,0.18403E+03_JPRB /)  
+KB(:, 1,56,14) = (/ &
+ & 0.64944E+02_JPRB,0.15877E+03_JPRB,0.20044E+03_JPRB,0.19421E+03_JPRB,0.12762E+03_JPRB /)  
+KB(:, 2,56,14) = (/ &
+ & 0.79524E+02_JPRB,0.17114E+03_JPRB,0.21461E+03_JPRB,0.20707E+03_JPRB,0.14351E+03_JPRB /)  
+KB(:, 3,56,14) = (/ &
+ & 0.94323E+02_JPRB,0.18144E+03_JPRB,0.22514E+03_JPRB,0.21711E+03_JPRB,0.15778E+03_JPRB /)  
+KB(:, 4,56,14) = (/ &
+ & 0.10894E+03_JPRB,0.18976E+03_JPRB,0.23257E+03_JPRB,0.22452E+03_JPRB,0.17022E+03_JPRB /)  
+KB(:, 5,56,14) = (/ &
+ & 0.12301E+03_JPRB,0.19605E+03_JPRB,0.23752E+03_JPRB,0.22954E+03_JPRB,0.18094E+03_JPRB /)  
+KB(:, 1,57,14) = (/ &
+ & 0.60353E+02_JPRB,0.15431E+03_JPRB,0.19514E+03_JPRB,0.18945E+03_JPRB,0.12225E+03_JPRB /)  
+KB(:, 2,57,14) = (/ &
+ & 0.74815E+02_JPRB,0.16742E+03_JPRB,0.21049E+03_JPRB,0.20329E+03_JPRB,0.13860E+03_JPRB /)  
+KB(:, 3,57,14) = (/ &
+ & 0.89567E+02_JPRB,0.17837E+03_JPRB,0.22214E+03_JPRB,0.21419E+03_JPRB,0.15343E+03_JPRB /)  
+KB(:, 4,57,14) = (/ &
+ & 0.10431E+03_JPRB,0.18733E+03_JPRB,0.23050E+03_JPRB,0.22244E+03_JPRB,0.16644E+03_JPRB /)  
+KB(:, 5,57,14) = (/ &
+ & 0.11856E+03_JPRB,0.19423E+03_JPRB,0.23618E+03_JPRB,0.22816E+03_JPRB,0.17767E+03_JPRB /)  
+KB(:, 1,58,14) = (/ &
+ & 0.56098E+02_JPRB,0.14991E+03_JPRB,0.18980E+03_JPRB,0.18465E+03_JPRB,0.11706E+03_JPRB /)  
+KB(:, 2,58,14) = (/ &
+ & 0.70377E+02_JPRB,0.16367E+03_JPRB,0.20622E+03_JPRB,0.19942E+03_JPRB,0.13378E+03_JPRB /)  
+KB(:, 3,58,14) = (/ &
+ & 0.85049E+02_JPRB,0.17528E+03_JPRB,0.21902E+03_JPRB,0.21119E+03_JPRB,0.14910E+03_JPRB /)  
+KB(:, 4,58,14) = (/ &
+ & 0.99857E+02_JPRB,0.18482E+03_JPRB,0.22827E+03_JPRB,0.22022E+03_JPRB,0.16268E+03_JPRB /)  
+KB(:, 5,58,14) = (/ &
+ & 0.11428E+03_JPRB,0.19233E+03_JPRB,0.23470E+03_JPRB,0.22666E+03_JPRB,0.17444E+03_JPRB /)  
+KB(:, 1,59,14) = (/ &
+ & 0.54418E+02_JPRB,0.14809E+03_JPRB,0.18754E+03_JPRB,0.18261E+03_JPRB,0.11495E+03_JPRB /)  
+KB(:, 2,59,14) = (/ &
+ & 0.68598E+02_JPRB,0.16210E+03_JPRB,0.20441E+03_JPRB,0.19778E+03_JPRB,0.13180E+03_JPRB /)  
+KB(:, 3,59,14) = (/ &
+ & 0.83246E+02_JPRB,0.17398E+03_JPRB,0.21768E+03_JPRB,0.20993E+03_JPRB,0.14733E+03_JPRB /)  
+KB(:, 4,59,14) = (/ &
+ & 0.98055E+02_JPRB,0.18375E+03_JPRB,0.22732E+03_JPRB,0.21927E+03_JPRB,0.16113E+03_JPRB /)  
+KB(:, 5,59,14) = (/ &
+ & 0.11255E+03_JPRB,0.19153E+03_JPRB,0.23406E+03_JPRB,0.22601E+03_JPRB,0.17310E+03_JPRB /)  
+KB(:, 1,13,15) = (/ &
+ & 0.40932E+03_JPRB,0.30758E+03_JPRB,0.26133E+03_JPRB,0.32395E+03_JPRB,0.43211E+03_JPRB /)  
+KB(:, 2,13,15) = (/ &
+ & 0.41123E+03_JPRB,0.30908E+03_JPRB,0.25921E+03_JPRB,0.31805E+03_JPRB,0.42431E+03_JPRB /)  
+KB(:, 3,13,15) = (/ &
+ & 0.41219E+03_JPRB,0.30983E+03_JPRB,0.25685E+03_JPRB,0.31214E+03_JPRB,0.41639E+03_JPRB /)  
+KB(:, 4,13,15) = (/ &
+ & 0.41228E+03_JPRB,0.30991E+03_JPRB,0.25419E+03_JPRB,0.30614E+03_JPRB,0.40836E+03_JPRB /)  
+KB(:, 5,13,15) = (/ &
+ & 0.41130E+03_JPRB,0.30917E+03_JPRB,0.25126E+03_JPRB,0.30055E+03_JPRB,0.40088E+03_JPRB /)  
+KB(:, 1,14,15) = (/ &
+ & 0.46527E+03_JPRB,0.34966E+03_JPRB,0.29823E+03_JPRB,0.35533E+03_JPRB,0.47402E+03_JPRB /)  
+KB(:, 2,14,15) = (/ &
+ & 0.46656E+03_JPRB,0.35065E+03_JPRB,0.29540E+03_JPRB,0.34864E+03_JPRB,0.46510E+03_JPRB /)  
+KB(:, 3,14,15) = (/ &
+ & 0.46685E+03_JPRB,0.35090E+03_JPRB,0.29209E+03_JPRB,0.34189E+03_JPRB,0.45610E+03_JPRB /)  
+KB(:, 4,14,15) = (/ &
+ & 0.46575E+03_JPRB,0.35012E+03_JPRB,0.28845E+03_JPRB,0.33526E+03_JPRB,0.44716E+03_JPRB /)  
+KB(:, 5,14,15) = (/ &
+ & 0.46388E+03_JPRB,0.34873E+03_JPRB,0.28457E+03_JPRB,0.32965E+03_JPRB,0.43950E+03_JPRB /)  
+KB(:, 1,15,15) = (/ &
+ & 0.52376E+03_JPRB,0.39388E+03_JPRB,0.33756E+03_JPRB,0.38636E+03_JPRB,0.51543E+03_JPRB /)  
+KB(:, 2,15,15) = (/ &
+ & 0.52445E+03_JPRB,0.39416E+03_JPRB,0.33368E+03_JPRB,0.37892E+03_JPRB,0.50548E+03_JPRB /)  
+KB(:, 3,15,15) = (/ &
+ & 0.52345E+03_JPRB,0.39343E+03_JPRB,0.32922E+03_JPRB,0.37141E+03_JPRB,0.49535E+03_JPRB /)  
+KB(:, 4,15,15) = (/ &
+ & 0.52134E+03_JPRB,0.39188E+03_JPRB,0.32434E+03_JPRB,0.36468E+03_JPRB,0.48621E+03_JPRB /)  
+KB(:, 5,15,15) = (/ &
+ & 0.51791E+03_JPRB,0.38933E+03_JPRB,0.31931E+03_JPRB,0.35855E+03_JPRB,0.47766E+03_JPRB /)  
+KB(:, 1,16,15) = (/ &
+ & 0.58401E+03_JPRB,0.43962E+03_JPRB,0.37845E+03_JPRB,0.41772E+03_JPRB,0.55681E+03_JPRB /)  
+KB(:, 2,16,15) = (/ &
+ & 0.58308E+03_JPRB,0.43844E+03_JPRB,0.37324E+03_JPRB,0.40927E+03_JPRB,0.54538E+03_JPRB /)  
+KB(:, 3,16,15) = (/ &
+ & 0.58094E+03_JPRB,0.43662E+03_JPRB,0.36730E+03_JPRB,0.40107E+03_JPRB,0.53429E+03_JPRB /)  
+KB(:, 4,16,15) = (/ &
+ & 0.57721E+03_JPRB,0.43385E+03_JPRB,0.36102E+03_JPRB,0.39367E+03_JPRB,0.52421E+03_JPRB /)  
+KB(:, 5,16,15) = (/ &
+ & 0.57218E+03_JPRB,0.43010E+03_JPRB,0.35444E+03_JPRB,0.38654E+03_JPRB,0.51433E+03_JPRB /)  
+KB(:, 1,17,15) = (/ &
+ & 0.64407E+03_JPRB,0.48569E+03_JPRB,0.41994E+03_JPRB,0.44912E+03_JPRB,0.59692E+03_JPRB /)  
+KB(:, 2,17,15) = (/ &
+ & 0.64180E+03_JPRB,0.48304E+03_JPRB,0.41300E+03_JPRB,0.43957E+03_JPRB,0.58409E+03_JPRB /)  
+KB(:, 3,17,15) = (/ &
+ & 0.63774E+03_JPRB,0.47951E+03_JPRB,0.40543E+03_JPRB,0.43048E+03_JPRB,0.57188E+03_JPRB /)  
+KB(:, 4,17,15) = (/ &
+ & 0.63221E+03_JPRB,0.47511E+03_JPRB,0.39752E+03_JPRB,0.42195E+03_JPRB,0.56041E+03_JPRB /)  
+KB(:, 5,17,15) = (/ &
+ & 0.62531E+03_JPRB,0.46997E+03_JPRB,0.38917E+03_JPRB,0.41353E+03_JPRB,0.54901E+03_JPRB /)  
+KB(:, 1,18,15) = (/ &
+ & 0.70302E+03_JPRB,0.53125E+03_JPRB,0.46110E+03_JPRB,0.48015E+03_JPRB,0.63499E+03_JPRB /)  
+KB(:, 2,18,15) = (/ &
+ & 0.69876E+03_JPRB,0.52681E+03_JPRB,0.45218E+03_JPRB,0.46935E+03_JPRB,0.62082E+03_JPRB /)  
+KB(:, 3,18,15) = (/ &
+ & 0.69273E+03_JPRB,0.52130E+03_JPRB,0.44272E+03_JPRB,0.45897E+03_JPRB,0.60731E+03_JPRB /)  
+KB(:, 4,18,15) = (/ &
+ & 0.68529E+03_JPRB,0.51514E+03_JPRB,0.43287E+03_JPRB,0.44907E+03_JPRB,0.59416E+03_JPRB /)  
+KB(:, 5,18,15) = (/ &
+ & 0.67604E+03_JPRB,0.50804E+03_JPRB,0.42255E+03_JPRB,0.43929E+03_JPRB,0.58117E+03_JPRB /)  
+KB(:, 1,19,15) = (/ &
+ & 0.75927E+03_JPRB,0.57536E+03_JPRB,0.50097E+03_JPRB,0.51007E+03_JPRB,0.67027E+03_JPRB /)  
+KB(:, 2,19,15) = (/ &
+ & 0.75290E+03_JPRB,0.56864E+03_JPRB,0.48996E+03_JPRB,0.49791E+03_JPRB,0.65476E+03_JPRB /)  
+KB(:, 3,19,15) = (/ &
+ & 0.74466E+03_JPRB,0.56117E+03_JPRB,0.47832E+03_JPRB,0.48599E+03_JPRB,0.63995E+03_JPRB /)  
+KB(:, 4,19,15) = (/ &
+ & 0.73483E+03_JPRB,0.55286E+03_JPRB,0.46627E+03_JPRB,0.47459E+03_JPRB,0.62519E+03_JPRB /)  
+KB(:, 5,19,15) = (/ &
+ & 0.72353E+03_JPRB,0.54375E+03_JPRB,0.45395E+03_JPRB,0.46331E+03_JPRB,0.61054E+03_JPRB /)  
+KB(:, 1,20,15) = (/ &
+ & 0.81171E+03_JPRB,0.61670E+03_JPRB,0.53858E+03_JPRB,0.53802E+03_JPRB,0.70226E+03_JPRB /)  
+KB(:, 2,20,15) = (/ &
+ & 0.80307E+03_JPRB,0.60788E+03_JPRB,0.52517E+03_JPRB,0.52417E+03_JPRB,0.68550E+03_JPRB /)  
+KB(:, 3,20,15) = (/ &
+ & 0.79257E+03_JPRB,0.59823E+03_JPRB,0.51114E+03_JPRB,0.51080E+03_JPRB,0.66917E+03_JPRB /)  
+KB(:, 4,20,15) = (/ &
+ & 0.78036E+03_JPRB,0.58759E+03_JPRB,0.49687E+03_JPRB,0.49775E+03_JPRB,0.65285E+03_JPRB /)  
+KB(:, 5,20,15) = (/ &
+ & 0.76671E+03_JPRB,0.57649E+03_JPRB,0.48237E+03_JPRB,0.48486E+03_JPRB,0.63647E+03_JPRB /)  
+KB(:, 1,21,15) = (/ &
+ & 0.85929E+03_JPRB,0.65464E+03_JPRB,0.57309E+03_JPRB,0.56354E+03_JPRB,0.73074E+03_JPRB /)  
+KB(:, 2,21,15) = (/ &
+ & 0.84853E+03_JPRB,0.64350E+03_JPRB,0.55721E+03_JPRB,0.54790E+03_JPRB,0.71267E+03_JPRB /)  
+KB(:, 3,21,15) = (/ &
+ & 0.83578E+03_JPRB,0.63172E+03_JPRB,0.54090E+03_JPRB,0.53299E+03_JPRB,0.69483E+03_JPRB /)  
+KB(:, 4,21,15) = (/ &
+ & 0.82132E+03_JPRB,0.61900E+03_JPRB,0.52438E+03_JPRB,0.51831E+03_JPRB,0.67689E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART35',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,21,15) = (/ &
+ & 0.80511E+03_JPRB,0.60568E+03_JPRB,0.50774E+03_JPRB,0.50398E+03_JPRB,0.65894E+03_JPRB /)  
+KB(:, 1,22,15) = (/ &
+ & 0.90088E+03_JPRB,0.68794E+03_JPRB,0.60297E+03_JPRB,0.58517E+03_JPRB,0.75429E+03_JPRB /)  
+KB(:, 2,22,15) = (/ &
+ & 0.88795E+03_JPRB,0.67453E+03_JPRB,0.58458E+03_JPRB,0.56794E+03_JPRB,0.73512E+03_JPRB /)  
+KB(:, 3,22,15) = (/ &
+ & 0.87296E+03_JPRB,0.66047E+03_JPRB,0.56607E+03_JPRB,0.55151E+03_JPRB,0.71573E+03_JPRB /)  
+KB(:, 4,22,15) = (/ &
+ & 0.85602E+03_JPRB,0.64569E+03_JPRB,0.54736E+03_JPRB,0.53534E+03_JPRB,0.69633E+03_JPRB /)  
+KB(:, 5,22,15) = (/ &
+ & 0.83763E+03_JPRB,0.63042E+03_JPRB,0.52879E+03_JPRB,0.51959E+03_JPRB,0.67694E+03_JPRB /)  
+KB(:, 1,23,15) = (/ &
+ & 0.93708E+03_JPRB,0.71670E+03_JPRB,0.62868E+03_JPRB,0.60370E+03_JPRB,0.77407E+03_JPRB /)  
+KB(:, 2,23,15) = (/ &
+ & 0.92204E+03_JPRB,0.70111E+03_JPRB,0.60797E+03_JPRB,0.58479E+03_JPRB,0.75367E+03_JPRB /)  
+KB(:, 3,23,15) = (/ &
+ & 0.90485E+03_JPRB,0.68501E+03_JPRB,0.58723E+03_JPRB,0.56696E+03_JPRB,0.73284E+03_JPRB /)  
+KB(:, 4,23,15) = (/ &
+ & 0.88551E+03_JPRB,0.66835E+03_JPRB,0.56656E+03_JPRB,0.54939E+03_JPRB,0.71207E+03_JPRB /)  
+KB(:, 5,23,15) = (/ &
+ & 0.86499E+03_JPRB,0.65129E+03_JPRB,0.54624E+03_JPRB,0.53240E+03_JPRB,0.69156E+03_JPRB /)  
+KB(:, 1,24,15) = (/ &
+ & 0.96776E+03_JPRB,0.74092E+03_JPRB,0.64997E+03_JPRB,0.61898E+03_JPRB,0.79010E+03_JPRB /)  
+KB(:, 2,24,15) = (/ &
+ & 0.95072E+03_JPRB,0.72338E+03_JPRB,0.62717E+03_JPRB,0.59867E+03_JPRB,0.76855E+03_JPRB /)  
+KB(:, 3,24,15) = (/ &
+ & 0.93122E+03_JPRB,0.70539E+03_JPRB,0.60446E+03_JPRB,0.57944E+03_JPRB,0.74652E+03_JPRB /)  
+KB(:, 4,24,15) = (/ &
+ & 0.90993E+03_JPRB,0.68704E+03_JPRB,0.58213E+03_JPRB,0.56067E+03_JPRB,0.72451E+03_JPRB /)  
+KB(:, 5,24,15) = (/ &
+ & 0.88757E+03_JPRB,0.66845E+03_JPRB,0.56030E+03_JPRB,0.54254E+03_JPRB,0.70312E+03_JPRB /)  
+KB(:, 1,25,15) = (/ &
+ & 0.99329E+03_JPRB,0.76073E+03_JPRB,0.66706E+03_JPRB,0.63101E+03_JPRB,0.80276E+03_JPRB /)  
+KB(:, 2,25,15) = (/ &
+ & 0.97397E+03_JPRB,0.74138E+03_JPRB,0.64231E+03_JPRB,0.60949E+03_JPRB,0.78003E+03_JPRB /)  
+KB(:, 3,25,15) = (/ &
+ & 0.95257E+03_JPRB,0.72186E+03_JPRB,0.61798E+03_JPRB,0.58904E+03_JPRB,0.75681E+03_JPRB /)  
+KB(:, 4,25,15) = (/ &
+ & 0.92942E+03_JPRB,0.70193E+03_JPRB,0.59417E+03_JPRB,0.56923E+03_JPRB,0.73392E+03_JPRB /)  
+KB(:, 5,25,15) = (/ &
+ & 0.90532E+03_JPRB,0.68191E+03_JPRB,0.57100E+03_JPRB,0.55015E+03_JPRB,0.71169E+03_JPRB /)  
+KB(:, 1,26,15) = (/ &
+ & 0.10136E+04_JPRB,0.77623E+03_JPRB,0.67983E+03_JPRB,0.63982E+03_JPRB,0.81189E+03_JPRB /)  
+KB(:, 2,26,15) = (/ &
+ & 0.99212E+03_JPRB,0.75536E+03_JPRB,0.65345E+03_JPRB,0.61726E+03_JPRB,0.78804E+03_JPRB /)  
+KB(:, 3,26,15) = (/ &
+ & 0.96906E+03_JPRB,0.73441E+03_JPRB,0.62784E+03_JPRB,0.59585E+03_JPRB,0.76400E+03_JPRB /)  
+KB(:, 4,26,15) = (/ &
+ & 0.94442E+03_JPRB,0.71314E+03_JPRB,0.60278E+03_JPRB,0.57514E+03_JPRB,0.74031E+03_JPRB /)  
+KB(:, 5,26,15) = (/ &
+ & 0.91870E+03_JPRB,0.69199E+03_JPRB,0.57850E+03_JPRB,0.55532E+03_JPRB,0.71748E+03_JPRB /)  
+KB(:, 1,27,15) = (/ &
+ & 0.10295E+04_JPRB,0.78816E+03_JPRB,0.68910E+03_JPRB,0.64601E+03_JPRB,0.81822E+03_JPRB /)  
+KB(:, 2,27,15) = (/ &
+ & 0.10061E+04_JPRB,0.76604E+03_JPRB,0.66144E+03_JPRB,0.62260E+03_JPRB,0.79343E+03_JPRB /)  
+KB(:, 3,27,15) = (/ &
+ & 0.98153E+03_JPRB,0.74373E+03_JPRB,0.63470E+03_JPRB,0.60041E+03_JPRB,0.76875E+03_JPRB /)  
+KB(:, 4,27,15) = (/ &
+ & 0.95548E+03_JPRB,0.72130E+03_JPRB,0.60866E+03_JPRB,0.57907E+03_JPRB,0.74456E+03_JPRB /)  
+KB(:, 5,27,15) = (/ &
+ & 0.92838E+03_JPRB,0.69916E+03_JPRB,0.58347E+03_JPRB,0.55864E+03_JPRB,0.72113E+03_JPRB /)  
+KB(:, 1,28,15) = (/ &
+ & 0.10413E+04_JPRB,0.79681E+03_JPRB,0.69534E+03_JPRB,0.64995E+03_JPRB,0.82220E+03_JPRB /)  
+KB(:, 2,28,15) = (/ &
+ & 0.10164E+04_JPRB,0.77357E+03_JPRB,0.66667E+03_JPRB,0.62595E+03_JPRB,0.79680E+03_JPRB /)  
+KB(:, 3,28,15) = (/ &
+ & 0.99062E+03_JPRB,0.75026E+03_JPRB,0.63903E+03_JPRB,0.60314E+03_JPRB,0.77147E+03_JPRB /)  
+KB(:, 4,28,15) = (/ &
+ & 0.96323E+03_JPRB,0.72694E+03_JPRB,0.61220E+03_JPRB,0.58130E+03_JPRB,0.74687E+03_JPRB /)  
+KB(:, 5,28,15) = (/ &
+ & 0.93489E+03_JPRB,0.70393E+03_JPRB,0.58636E+03_JPRB,0.56041E+03_JPRB,0.72308E+03_JPRB /)  
+KB(:, 1,29,15) = (/ &
+ & 0.10495E+04_JPRB,0.80260E+03_JPRB,0.69878E+03_JPRB,0.65184E+03_JPRB,0.82409E+03_JPRB /)  
+KB(:, 2,29,15) = (/ &
+ & 0.10235E+04_JPRB,0.77841E+03_JPRB,0.66934E+03_JPRB,0.62739E+03_JPRB,0.79811E+03_JPRB /)  
+KB(:, 3,29,15) = (/ &
+ & 0.99642E+03_JPRB,0.75425E+03_JPRB,0.64103E+03_JPRB,0.60412E+03_JPRB,0.77230E+03_JPRB /)  
+KB(:, 4,29,15) = (/ &
+ & 0.96796E+03_JPRB,0.73025E+03_JPRB,0.61357E+03_JPRB,0.58189E+03_JPRB,0.74741E+03_JPRB /)  
+KB(:, 5,29,15) = (/ &
+ & 0.93857E+03_JPRB,0.70654E+03_JPRB,0.58732E+03_JPRB,0.56077E+03_JPRB,0.72335E+03_JPRB /)  
+KB(:, 1,30,15) = (/ &
+ & 0.10549E+04_JPRB,0.80614E+03_JPRB,0.70001E+03_JPRB,0.65202E+03_JPRB,0.82418E+03_JPRB /)  
+KB(:, 2,30,15) = (/ &
+ & 0.10278E+04_JPRB,0.78108E+03_JPRB,0.67004E+03_JPRB,0.62730E+03_JPRB,0.79771E+03_JPRB /)  
+KB(:, 3,30,15) = (/ &
+ & 0.99966E+03_JPRB,0.75628E+03_JPRB,0.64121E+03_JPRB,0.60374E+03_JPRB,0.77172E+03_JPRB /)  
+KB(:, 4,30,15) = (/ &
+ & 0.97021E+03_JPRB,0.73170E+03_JPRB,0.61335E+03_JPRB,0.58130E+03_JPRB,0.74664E+03_JPRB /)  
+KB(:, 5,30,15) = (/ &
+ & 0.94007E+03_JPRB,0.70743E+03_JPRB,0.58676E+03_JPRB,0.55999E+03_JPRB,0.72234E+03_JPRB /)  
+KB(:, 1,31,15) = (/ &
+ & 0.10577E+04_JPRB,0.80741E+03_JPRB,0.69925E+03_JPRB,0.65081E+03_JPRB,0.82281E+03_JPRB /)  
+KB(:, 2,31,15) = (/ &
+ & 0.10297E+04_JPRB,0.78182E+03_JPRB,0.66894E+03_JPRB,0.62588E+03_JPRB,0.79605E+03_JPRB /)  
+KB(:, 3,31,15) = (/ &
+ & 0.10005E+04_JPRB,0.75649E+03_JPRB,0.63976E+03_JPRB,0.60219E+03_JPRB,0.76987E+03_JPRB /)  
+KB(:, 4,31,15) = (/ &
+ & 0.97028E+03_JPRB,0.73149E+03_JPRB,0.61167E+03_JPRB,0.57962E+03_JPRB,0.74468E+03_JPRB /)  
+KB(:, 5,31,15) = (/ &
+ & 0.93951E+03_JPRB,0.70673E+03_JPRB,0.58494E+03_JPRB,0.55830E+03_JPRB,0.72033E+03_JPRB /)  
+KB(:, 1,32,15) = (/ &
+ & 0.10585E+04_JPRB,0.80706E+03_JPRB,0.69697E+03_JPRB,0.64853E+03_JPRB,0.82034E+03_JPRB /)  
+KB(:, 2,32,15) = (/ &
+ & 0.10295E+04_JPRB,0.78094E+03_JPRB,0.66639E+03_JPRB,0.62348E+03_JPRB,0.79329E+03_JPRB /)  
+KB(:, 3,32,15) = (/ &
+ & 0.99955E+03_JPRB,0.75528E+03_JPRB,0.63700E+03_JPRB,0.59969E+03_JPRB,0.76700E+03_JPRB /)  
+KB(:, 4,32,15) = (/ &
+ & 0.96864E+03_JPRB,0.72996E+03_JPRB,0.60885E+03_JPRB,0.57712E+03_JPRB,0.74178E+03_JPRB /)  
+KB(:, 5,32,15) = (/ &
+ & 0.93737E+03_JPRB,0.70488E+03_JPRB,0.58204E+03_JPRB,0.55579E+03_JPRB,0.71738E+03_JPRB /)  
+KB(:, 1,33,15) = (/ &
+ & 0.10575E+04_JPRB,0.80530E+03_JPRB,0.69345E+03_JPRB,0.64529E+03_JPRB,0.81678E+03_JPRB /)  
+KB(:, 2,33,15) = (/ &
+ & 0.10278E+04_JPRB,0.77890E+03_JPRB,0.66278E+03_JPRB,0.62027E+03_JPRB,0.78965E+03_JPRB /)  
+KB(:, 3,33,15) = (/ &
+ & 0.99704E+03_JPRB,0.75290E+03_JPRB,0.63324E+03_JPRB,0.59645E+03_JPRB,0.76337E+03_JPRB /)  
+KB(:, 4,33,15) = (/ &
+ & 0.96555E+03_JPRB,0.72726E+03_JPRB,0.60509E+03_JPRB,0.57394E+03_JPRB,0.73813E+03_JPRB /)  
+KB(:, 5,33,15) = (/ &
+ & 0.93393E+03_JPRB,0.70207E+03_JPRB,0.57839E+03_JPRB,0.55267E+03_JPRB,0.71377E+03_JPRB /)  
+KB(:, 1,34,15) = (/ &
+ & 0.10561E+04_JPRB,0.80340E+03_JPRB,0.69012E+03_JPRB,0.64228E+03_JPRB,0.81344E+03_JPRB /)  
+KB(:, 2,34,15) = (/ &
+ & 0.10257E+04_JPRB,0.77677E+03_JPRB,0.65936E+03_JPRB,0.61726E+03_JPRB,0.78628E+03_JPRB /)  
+KB(:, 3,34,15) = (/ &
+ & 0.99442E+03_JPRB,0.75053E+03_JPRB,0.62978E+03_JPRB,0.59351E+03_JPRB,0.76009E+03_JPRB /)  
+KB(:, 4,34,15) = (/ &
+ & 0.96258E+03_JPRB,0.72472E+03_JPRB,0.60168E+03_JPRB,0.57104E+03_JPRB,0.73478E+03_JPRB /)  
+KB(:, 5,34,15) = (/ &
+ & 0.93053E+03_JPRB,0.69938E+03_JPRB,0.57499E+03_JPRB,0.54984E+03_JPRB,0.71051E+03_JPRB /)  
+KB(:, 1,35,15) = (/ &
+ & 0.10564E+04_JPRB,0.80326E+03_JPRB,0.68907E+03_JPRB,0.64121E+03_JPRB,0.81221E+03_JPRB /)  
+KB(:, 2,35,15) = (/ &
+ & 0.10257E+04_JPRB,0.77646E+03_JPRB,0.65819E+03_JPRB,0.61612E+03_JPRB,0.78498E+03_JPRB /)  
+KB(:, 3,35,15) = (/ &
+ & 0.99396E+03_JPRB,0.74998E+03_JPRB,0.62850E+03_JPRB,0.59231E+03_JPRB,0.75874E+03_JPRB /)  
+KB(:, 4,35,15) = (/ &
+ & 0.96182E+03_JPRB,0.72398E+03_JPRB,0.60037E+03_JPRB,0.56987E+03_JPRB,0.73339E+03_JPRB /)  
+KB(:, 5,35,15) = (/ &
+ & 0.92945E+03_JPRB,0.69852E+03_JPRB,0.57362E+03_JPRB,0.54864E+03_JPRB,0.70910E+03_JPRB /)  
+KB(:, 1,36,15) = (/ &
+ & 0.10593E+04_JPRB,0.80545E+03_JPRB,0.69086E+03_JPRB,0.64252E+03_JPRB,0.81357E+03_JPRB /)  
+KB(:, 2,36,15) = (/ &
+ & 0.10283E+04_JPRB,0.77842E+03_JPRB,0.65978E+03_JPRB,0.61726E+03_JPRB,0.78619E+03_JPRB /)  
+KB(:, 3,36,15) = (/ &
+ & 0.99627E+03_JPRB,0.75174E+03_JPRB,0.62993E+03_JPRB,0.59335E+03_JPRB,0.75988E+03_JPRB /)  
+KB(:, 4,36,15) = (/ &
+ & 0.96386E+03_JPRB,0.72553E+03_JPRB,0.60161E+03_JPRB,0.57080E+03_JPRB,0.73443E+03_JPRB /)  
+KB(:, 5,36,15) = (/ &
+ & 0.93134E+03_JPRB,0.69996E+03_JPRB,0.57477E+03_JPRB,0.54947E+03_JPRB,0.71003E+03_JPRB /)  
+KB(:, 1,37,15) = (/ &
+ & 0.10662E+04_JPRB,0.81134E+03_JPRB,0.69713E+03_JPRB,0.64751E+03_JPRB,0.81885E+03_JPRB /)  
+KB(:, 2,37,15) = (/ &
+ & 0.10351E+04_JPRB,0.78402E+03_JPRB,0.66565E+03_JPRB,0.62189E+03_JPRB,0.79122E+03_JPRB /)  
+KB(:, 3,37,15) = (/ &
+ & 0.10030E+04_JPRB,0.75714E+03_JPRB,0.63542E+03_JPRB,0.59764E+03_JPRB,0.76460E+03_JPRB /)  
+KB(:, 4,37,15) = (/ &
+ & 0.97042E+03_JPRB,0.73071E+03_JPRB,0.60674E+03_JPRB,0.57477E+03_JPRB,0.73895E+03_JPRB /)  
+KB(:, 5,37,15) = (/ &
+ & 0.93771E+03_JPRB,0.70485E+03_JPRB,0.57959E+03_JPRB,0.55322E+03_JPRB,0.71431E+03_JPRB /)  
+KB(:, 1,38,15) = (/ &
+ & 0.10729E+04_JPRB,0.81713E+03_JPRB,0.70342E+03_JPRB,0.65252E+03_JPRB,0.82415E+03_JPRB /)  
+KB(:, 2,38,15) = (/ &
+ & 0.10416E+04_JPRB,0.78952E+03_JPRB,0.67152E+03_JPRB,0.62655E+03_JPRB,0.79626E+03_JPRB /)  
+KB(:, 3,38,15) = (/ &
+ & 0.10096E+04_JPRB,0.76249E+03_JPRB,0.64098E+03_JPRB,0.60198E+03_JPRB,0.76937E+03_JPRB /)  
+KB(:, 4,38,15) = (/ &
+ & 0.97695E+03_JPRB,0.73588E+03_JPRB,0.61197E+03_JPRB,0.57883E+03_JPRB,0.74352E+03_JPRB /)  
+KB(:, 5,38,15) = (/ &
+ & 0.94411E+03_JPRB,0.70978E+03_JPRB,0.58447E+03_JPRB,0.55704E+03_JPRB,0.71866E+03_JPRB /)  
+KB(:, 1,39,15) = (/ &
+ & 0.10791E+04_JPRB,0.82257E+03_JPRB,0.70938E+03_JPRB,0.65729E+03_JPRB,0.82913E+03_JPRB /)  
+KB(:, 2,39,15) = (/ &
+ & 0.10479E+04_JPRB,0.79481E+03_JPRB,0.67717E+03_JPRB,0.63099E+03_JPRB,0.80105E+03_JPRB /)  
+KB(:, 3,39,15) = (/ &
+ & 0.10158E+04_JPRB,0.76754E+03_JPRB,0.64630E+03_JPRB,0.60614E+03_JPRB,0.77394E+03_JPRB /)  
+KB(:, 4,39,15) = (/ &
+ & 0.98307E+03_JPRB,0.74076E+03_JPRB,0.61694E+03_JPRB,0.58271E+03_JPRB,0.74789E+03_JPRB /)  
+KB(:, 5,39,15) = (/ &
+ & 0.95013E+03_JPRB,0.71446E+03_JPRB,0.58917E+03_JPRB,0.56072E+03_JPRB,0.72285E+03_JPRB /)  
+KB(:, 1,40,15) = (/ &
+ & 0.10882E+04_JPRB,0.83071E+03_JPRB,0.71862E+03_JPRB,0.66478E+03_JPRB,0.83689E+03_JPRB /)  
+KB(:, 2,40,15) = (/ &
+ & 0.10571E+04_JPRB,0.80265E+03_JPRB,0.68589E+03_JPRB,0.63804E+03_JPRB,0.80862E+03_JPRB /)  
+KB(:, 3,40,15) = (/ &
+ & 0.10251E+04_JPRB,0.77527E+03_JPRB,0.65462E+03_JPRB,0.61278E+03_JPRB,0.78119E+03_JPRB /)  
+KB(:, 4,40,15) = (/ &
+ & 0.99232E+03_JPRB,0.74818E+03_JPRB,0.62475E+03_JPRB,0.58893E+03_JPRB,0.75487E+03_JPRB /)  
+KB(:, 5,40,15) = (/ &
+ & 0.95932E+03_JPRB,0.72168E+03_JPRB,0.59655E+03_JPRB,0.56653E+03_JPRB,0.72946E+03_JPRB /)  
+KB(:, 1,41,15) = (/ &
+ & 0.10971E+04_JPRB,0.83901E+03_JPRB,0.72823E+03_JPRB,0.67265E+03_JPRB,0.84493E+03_JPRB /)  
+KB(:, 2,41,15) = (/ &
+ & 0.10663E+04_JPRB,0.81071E+03_JPRB,0.69500E+03_JPRB,0.64543E+03_JPRB,0.81648E+03_JPRB /)  
+KB(:, 3,41,15) = (/ &
+ & 0.10345E+04_JPRB,0.78315E+03_JPRB,0.66331E+03_JPRB,0.61971E+03_JPRB,0.78878E+03_JPRB /)  
+KB(:, 4,41,15) = (/ &
+ & 0.10019E+04_JPRB,0.75590E+03_JPRB,0.63295E+03_JPRB,0.59541E+03_JPRB,0.76210E+03_JPRB /)  
+KB(:, 5,41,15) = (/ &
+ & 0.96878E+03_JPRB,0.72921E+03_JPRB,0.60428E+03_JPRB,0.57260E+03_JPRB,0.73637E+03_JPRB /)  
+KB(:, 1,42,15) = (/ &
+ & 0.11058E+04_JPRB,0.84736E+03_JPRB,0.73795E+03_JPRB,0.68059E+03_JPRB,0.85278E+03_JPRB /)  
+KB(:, 2,42,15) = (/ &
+ & 0.10754E+04_JPRB,0.81879E+03_JPRB,0.70412E+03_JPRB,0.65281E+03_JPRB,0.82432E+03_JPRB /)  
+KB(:, 3,42,15) = (/ &
+ & 0.10438E+04_JPRB,0.79093E+03_JPRB,0.67198E+03_JPRB,0.62664E+03_JPRB,0.79629E+03_JPRB /)  
+KB(:, 4,42,15) = (/ &
+ & 0.10112E+04_JPRB,0.76353E+03_JPRB,0.64116E+03_JPRB,0.60189E+03_JPRB,0.76925E+03_JPRB /)  
+KB(:, 5,42,15) = (/ &
+ & 0.97804E+03_JPRB,0.73660E+03_JPRB,0.61202E+03_JPRB,0.57870E+03_JPRB,0.74332E+03_JPRB /)  
+KB(:, 1,43,15) = (/ &
+ & 0.11158E+04_JPRB,0.85717E+03_JPRB,0.74955E+03_JPRB,0.69024E+03_JPRB,0.86217E+03_JPRB /)  
+KB(:, 2,43,15) = (/ &
+ & 0.10861E+04_JPRB,0.82836E+03_JPRB,0.71518E+03_JPRB,0.66177E+03_JPRB,0.83370E+03_JPRB /)  
+KB(:, 3,43,15) = (/ &
+ & 0.10546E+04_JPRB,0.80021E+03_JPRB,0.68243E+03_JPRB,0.63507E+03_JPRB,0.80541E+03_JPRB /)  
+KB(:, 4,43,15) = (/ &
+ & 0.10222E+04_JPRB,0.77261E+03_JPRB,0.65115E+03_JPRB,0.60984E+03_JPRB,0.77795E+03_JPRB /)  
+KB(:, 5,43,15) = (/ &
+ & 0.98916E+03_JPRB,0.74551E+03_JPRB,0.62143E+03_JPRB,0.58614E+03_JPRB,0.75171E+03_JPRB /)  
+KB(:, 1,44,15) = (/ &
+ & 0.11264E+04_JPRB,0.86786E+03_JPRB,0.76217E+03_JPRB,0.70088E+03_JPRB,0.87207E+03_JPRB /)  
+KB(:, 2,44,15) = (/ &
+ & 0.10970E+04_JPRB,0.83855E+03_JPRB,0.72711E+03_JPRB,0.67158E+03_JPRB,0.84381E+03_JPRB /)  
+KB(:, 3,44,15) = (/ &
+ & 0.10660E+04_JPRB,0.81015E+03_JPRB,0.69375E+03_JPRB,0.64429E+03_JPRB,0.81530E+03_JPRB /)  
+KB(:, 4,44,15) = (/ &
+ & 0.10339E+04_JPRB,0.78245E+03_JPRB,0.66207E+03_JPRB,0.61859E+03_JPRB,0.78750E+03_JPRB /)  
+KB(:, 5,44,15) = (/ &
+ & 0.10010E+04_JPRB,0.75506E+03_JPRB,0.63169E+03_JPRB,0.59432E+03_JPRB,0.76086E+03_JPRB /)  
+KB(:, 1,45,15) = (/ &
+ & 0.11364E+04_JPRB,0.87855E+03_JPRB,0.77494E+03_JPRB,0.71181E+03_JPRB,0.88191E+03_JPRB /)  
+KB(:, 2,45,15) = (/ &
+ & 0.11078E+04_JPRB,0.84885E+03_JPRB,0.73921E+03_JPRB,0.68154E+03_JPRB,0.85373E+03_JPRB /)  
+KB(:, 3,45,15) = (/ &
+ & 0.10773E+04_JPRB,0.82021E+03_JPRB,0.70525E+03_JPRB,0.65361E+03_JPRB,0.82516E+03_JPRB /)  
+KB(:, 4,45,15) = (/ &
+ & 0.10454E+04_JPRB,0.79218E+03_JPRB,0.67305E+03_JPRB,0.62740E+03_JPRB,0.79708E+03_JPRB /)  
+KB(:, 5,45,15) = (/ &
+ & 0.10127E+04_JPRB,0.76466E+03_JPRB,0.64208E+03_JPRB,0.60256E+03_JPRB,0.76997E+03_JPRB /)  
+KB(:, 1,46,15) = (/ &
+ & 0.11465E+04_JPRB,0.88995E+03_JPRB,0.78864E+03_JPRB,0.72357E+03_JPRB,0.89218E+03_JPRB /)  
+KB(:, 2,46,15) = (/ &
+ & 0.11189E+04_JPRB,0.85981E+03_JPRB,0.75227E+03_JPRB,0.69242E+03_JPRB,0.86430E+03_JPRB /)  
+KB(:, 3,46,15) = (/ &
+ & 0.10889E+04_JPRB,0.83077E+03_JPRB,0.71764E+03_JPRB,0.66370E+03_JPRB,0.83569E+03_JPRB /)  
+KB(:, 4,46,15) = (/ &
+ & 0.10574E+04_JPRB,0.80253E+03_JPRB,0.68479E+03_JPRB,0.63689E+03_JPRB,0.80730E+03_JPRB /)  
+KB(:, 5,46,15) = (/ &
+ & 0.10249E+04_JPRB,0.77483E+03_JPRB,0.65332E+03_JPRB,0.61153E+03_JPRB,0.77982E+03_JPRB /)  
+KB(:, 1,47,15) = (/ &
+ & 0.11573E+04_JPRB,0.90286E+03_JPRB,0.80421E+03_JPRB,0.73669E+03_JPRB,0.90313E+03_JPRB /)  
+KB(:, 2,47,15) = (/ &
+ & 0.11308E+04_JPRB,0.87219E+03_JPRB,0.76703E+03_JPRB,0.70495E+03_JPRB,0.87583E+03_JPRB /)  
+KB(:, 3,47,15) = (/ &
+ & 0.11017E+04_JPRB,0.84272E+03_JPRB,0.73168E+03_JPRB,0.67524E+03_JPRB,0.84747E+03_JPRB /)  
+KB(:, 4,47,15) = (/ &
+ & 0.10706E+04_JPRB,0.81413E+03_JPRB,0.69808E+03_JPRB,0.64772E+03_JPRB,0.81886E+03_JPRB /)  
+KB(:, 5,47,15) = (/ &
+ & 0.10385E+04_JPRB,0.78623E+03_JPRB,0.66606E+03_JPRB,0.62176E+03_JPRB,0.79095E+03_JPRB /)  
+KB(:, 1,48,15) = (/ &
+ & 0.11675E+04_JPRB,0.91580E+03_JPRB,0.81991E+03_JPRB,0.74998E+03_JPRB,0.91375E+03_JPRB /)  
+KB(:, 2,48,15) = (/ &
+ & 0.11421E+04_JPRB,0.88462E+03_JPRB,0.78203E+03_JPRB,0.71783E+03_JPRB,0.88726E+03_JPRB /)  
+KB(:, 3,48,15) = (/ &
+ & 0.11139E+04_JPRB,0.85471E+03_JPRB,0.74597E+03_JPRB,0.68710E+03_JPRB,0.85917E+03_JPRB /)  
+KB(:, 4,48,15) = (/ &
+ & 0.10836E+04_JPRB,0.82582E+03_JPRB,0.71165E+03_JPRB,0.65875E+03_JPRB,0.83052E+03_JPRB /)  
+KB(:, 5,48,15) = (/ &
+ & 0.10518E+04_JPRB,0.79762E+03_JPRB,0.67897E+03_JPRB,0.63216E+03_JPRB,0.80224E+03_JPRB /)  
+KB(:, 1,49,15) = (/ &
+ & 0.11770E+04_JPRB,0.92887E+03_JPRB,0.83589E+03_JPRB,0.76347E+03_JPRB,0.92401E+03_JPRB /)  
+KB(:, 2,49,15) = (/ &
+ & 0.11531E+04_JPRB,0.89735E+03_JPRB,0.79736E+03_JPRB,0.73085E+03_JPRB,0.89839E+03_JPRB /)  
+KB(:, 3,49,15) = (/ &
+ & 0.11259E+04_JPRB,0.86690E+03_JPRB,0.76049E+03_JPRB,0.69928E+03_JPRB,0.87069E+03_JPRB /)  
+KB(:, 4,49,15) = (/ &
+ & 0.10963E+04_JPRB,0.83754E+03_JPRB,0.72543E+03_JPRB,0.67003E+03_JPRB,0.84223E+03_JPRB /)  
+KB(:, 5,49,15) = (/ &
+ & 0.10650E+04_JPRB,0.80903E+03_JPRB,0.69202E+03_JPRB,0.64278E+03_JPRB,0.81363E+03_JPRB /)  
+KB(:, 1,50,15) = (/ &
+ & 0.11850E+04_JPRB,0.94106E+03_JPRB,0.85114E+03_JPRB,0.77623E+03_JPRB,0.93320E+03_JPRB /)  
+KB(:, 2,50,15) = (/ &
+ & 0.11628E+04_JPRB,0.90935E+03_JPRB,0.81191E+03_JPRB,0.74315E+03_JPRB,0.90846E+03_JPRB /)  
+KB(:, 3,50,15) = (/ &
+ & 0.11368E+04_JPRB,0.87848E+03_JPRB,0.77441E+03_JPRB,0.71118E+03_JPRB,0.88145E+03_JPRB /)  
+KB(:, 4,50,15) = (/ &
+ & 0.11080E+04_JPRB,0.84872E+03_JPRB,0.73862E+03_JPRB,0.68089E+03_JPRB,0.85311E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART36',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,50,15) = (/ &
+ & 0.10771E+04_JPRB,0.81987E+03_JPRB,0.70453E+03_JPRB,0.65297E+03_JPRB,0.82446E+03_JPRB /)  
+KB(:, 1,51,15) = (/ &
+ & 0.11923E+04_JPRB,0.95283E+03_JPRB,0.86626E+03_JPRB,0.78865E+03_JPRB,0.94170E+03_JPRB /)  
+KB(:, 2,51,15) = (/ &
+ & 0.11717E+04_JPRB,0.92110E+03_JPRB,0.82616E+03_JPRB,0.75525E+03_JPRB,0.91794E+03_JPRB /)  
+KB(:, 3,51,15) = (/ &
+ & 0.11468E+04_JPRB,0.88978E+03_JPRB,0.78804E+03_JPRB,0.72292E+03_JPRB,0.89168E+03_JPRB /)  
+KB(:, 4,51,15) = (/ &
+ & 0.11189E+04_JPRB,0.85951E+03_JPRB,0.75159E+03_JPRB,0.69174E+03_JPRB,0.86368E+03_JPRB /)  
+KB(:, 5,51,15) = (/ &
+ & 0.10888E+04_JPRB,0.83043E+03_JPRB,0.71698E+03_JPRB,0.66309E+03_JPRB,0.83504E+03_JPRB /)  
+KB(:, 1,52,15) = (/ &
+ & 0.11987E+04_JPRB,0.96448E+03_JPRB,0.88155E+03_JPRB,0.80101E+03_JPRB,0.94976E+03_JPRB /)  
+KB(:, 2,52,15) = (/ &
+ & 0.11799E+04_JPRB,0.93288E+03_JPRB,0.84067E+03_JPRB,0.76742E+03_JPRB,0.92694E+03_JPRB /)  
+KB(:, 3,52,15) = (/ &
+ & 0.11564E+04_JPRB,0.90125E+03_JPRB,0.80189E+03_JPRB,0.73467E+03_JPRB,0.90155E+03_JPRB /)  
+KB(:, 4,52,15) = (/ &
+ & 0.11296E+04_JPRB,0.87065E+03_JPRB,0.76482E+03_JPRB,0.70289E+03_JPRB,0.87401E+03_JPRB /)  
+KB(:, 5,52,15) = (/ &
+ & 0.11001E+04_JPRB,0.84107E+03_JPRB,0.72948E+03_JPRB,0.67337E+03_JPRB,0.84559E+03_JPRB /)  
+KB(:, 1,53,15) = (/ &
+ & 0.12042E+04_JPRB,0.97597E+03_JPRB,0.89729E+03_JPRB,0.81334E+03_JPRB,0.95716E+03_JPRB /)  
+KB(:, 2,53,15) = (/ &
+ & 0.11876E+04_JPRB,0.94467E+03_JPRB,0.85557E+03_JPRB,0.77990E+03_JPRB,0.93591E+03_JPRB /)  
+KB(:, 3,53,15) = (/ &
+ & 0.11657E+04_JPRB,0.91285E+03_JPRB,0.81605E+03_JPRB,0.74663E+03_JPRB,0.91125E+03_JPRB /)  
+KB(:, 4,53,15) = (/ &
+ & 0.11399E+04_JPRB,0.88179E+03_JPRB,0.77830E+03_JPRB,0.71447E+03_JPRB,0.88437E+03_JPRB /)  
+KB(:, 5,53,15) = (/ &
+ & 0.11113E+04_JPRB,0.85189E+03_JPRB,0.74233E+03_JPRB,0.68396E+03_JPRB,0.85611E+03_JPRB /)  
+KB(:, 1,54,15) = (/ &
+ & 0.12085E+04_JPRB,0.98643E+03_JPRB,0.91208E+03_JPRB,0.82462E+03_JPRB,0.96332E+03_JPRB /)  
+KB(:, 2,54,15) = (/ &
+ & 0.11940E+04_JPRB,0.95533E+03_JPRB,0.86934E+03_JPRB,0.79114E+03_JPRB,0.94342E+03_JPRB /)  
+KB(:, 3,54,15) = (/ &
+ & 0.11737E+04_JPRB,0.92362E+03_JPRB,0.82909E+03_JPRB,0.75767E+03_JPRB,0.91977E+03_JPRB /)  
+KB(:, 4,54,15) = (/ &
+ & 0.11490E+04_JPRB,0.89214E+03_JPRB,0.79079E+03_JPRB,0.72522E+03_JPRB,0.89369E+03_JPRB /)  
+KB(:, 5,54,15) = (/ &
+ & 0.11212E+04_JPRB,0.86180E+03_JPRB,0.75420E+03_JPRB,0.69390E+03_JPRB,0.86571E+03_JPRB /)  
+KB(:, 1,55,15) = (/ &
+ & 0.12111E+04_JPRB,0.99597E+03_JPRB,0.92635E+03_JPRB,0.83534E+03_JPRB,0.96856E+03_JPRB /)  
+KB(:, 2,55,15) = (/ &
+ & 0.11993E+04_JPRB,0.96550E+03_JPRB,0.88281E+03_JPRB,0.80196E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 3,55,15) = (/ &
+ & 0.11808E+04_JPRB,0.93390E+03_JPRB,0.84185E+03_JPRB,0.76841E+03_JPRB,0.92774E+03_JPRB /)  
+KB(:, 4,55,15) = (/ &
+ & 0.11574E+04_JPRB,0.90226E+03_JPRB,0.80305E+03_JPRB,0.73557E+03_JPRB,0.90236E+03_JPRB /)  
+KB(:, 5,55,15) = (/ &
+ & 0.11305E+04_JPRB,0.87151E+03_JPRB,0.76581E+03_JPRB,0.70377E+03_JPRB,0.87482E+03_JPRB /)  
+KB(:, 1,56,15) = (/ &
+ & 0.12133E+04_JPRB,0.10055E+04_JPRB,0.94091E+03_JPRB,0.84599E+03_JPRB,0.97308E+03_JPRB /)  
+KB(:, 2,56,15) = (/ &
+ & 0.12041E+04_JPRB,0.97555E+03_JPRB,0.89660E+03_JPRB,0.81280E+03_JPRB,0.95684E+03_JPRB /)  
+KB(:, 3,56,15) = (/ &
+ & 0.11875E+04_JPRB,0.94422E+03_JPRB,0.85482E+03_JPRB,0.77921E+03_JPRB,0.93538E+03_JPRB /)  
+KB(:, 4,56,15) = (/ &
+ & 0.11654E+04_JPRB,0.91235E+03_JPRB,0.81536E+03_JPRB,0.74599E+03_JPRB,0.91077E+03_JPRB /)  
+KB(:, 5,56,15) = (/ &
+ & 0.11395E+04_JPRB,0.88125E+03_JPRB,0.77756E+03_JPRB,0.71383E+03_JPRB,0.88381E+03_JPRB /)  
+KB(:, 1,57,15) = (/ &
+ & 0.12144E+04_JPRB,0.10149E+04_JPRB,0.95530E+03_JPRB,0.85635E+03_JPRB,0.97654E+03_JPRB /)  
+KB(:, 2,57,15) = (/ &
+ & 0.12082E+04_JPRB,0.98553E+03_JPRB,0.91069E+03_JPRB,0.82360E+03_JPRB,0.96286E+03_JPRB /)  
+KB(:, 3,57,15) = (/ &
+ & 0.11936E+04_JPRB,0.95436E+03_JPRB,0.86797E+03_JPRB,0.78997E+03_JPRB,0.94263E+03_JPRB /)  
+KB(:, 4,57,15) = (/ &
+ & 0.11730E+04_JPRB,0.92261E+03_JPRB,0.82779E+03_JPRB,0.75653E+03_JPRB,0.91896E+03_JPRB /)  
+KB(:, 5,57,15) = (/ &
+ & 0.11481E+04_JPRB,0.89107E+03_JPRB,0.78949E+03_JPRB,0.72412E+03_JPRB,0.89274E+03_JPRB /)  
+KB(:, 1,58,15) = (/ &
+ & 0.12146E+04_JPRB,0.10236E+04_JPRB,0.96889E+03_JPRB,0.86606E+03_JPRB,0.97897E+03_JPRB /)  
+KB(:, 2,58,15) = (/ &
+ & 0.12111E+04_JPRB,0.99468E+03_JPRB,0.92419E+03_JPRB,0.83372E+03_JPRB,0.96790E+03_JPRB /)  
+KB(:, 3,58,15) = (/ &
+ & 0.11988E+04_JPRB,0.96400E+03_JPRB,0.88060E+03_JPRB,0.80022E+03_JPRB,0.94932E+03_JPRB /)  
+KB(:, 4,58,15) = (/ &
+ & 0.11798E+04_JPRB,0.93230E+03_JPRB,0.83979E+03_JPRB,0.76663E+03_JPRB,0.92647E+03_JPRB /)  
+KB(:, 5,58,15) = (/ &
+ & 0.11561E+04_JPRB,0.90059E+03_JPRB,0.80102E+03_JPRB,0.73388E+03_JPRB,0.90094E+03_JPRB /)  
+KB(:, 1,59,15) = (/ &
+ & 0.12143E+04_JPRB,0.10270E+04_JPRB,0.97431E+03_JPRB,0.86988E+03_JPRB,0.97963E+03_JPRB /)  
+KB(:, 2,59,15) = (/ &
+ & 0.12120E+04_JPRB,0.99826E+03_JPRB,0.92964E+03_JPRB,0.83774E+03_JPRB,0.96974E+03_JPRB /)  
+KB(:, 3,59,15) = (/ &
+ & 0.12008E+04_JPRB,0.96785E+03_JPRB,0.88575E+03_JPRB,0.80426E+03_JPRB,0.95182E+03_JPRB /)  
+KB(:, 4,59,15) = (/ &
+ & 0.11824E+04_JPRB,0.93625E+03_JPRB,0.84468E+03_JPRB,0.77075E+03_JPRB,0.92946E+03_JPRB /)  
+KB(:, 5,59,15) = (/ &
+ & 0.11592E+04_JPRB,0.90444E+03_JPRB,0.80567E+03_JPRB,0.73781E+03_JPRB,0.90417E+03_JPRB /)  
+KB(:, 1,13,16) = (/ &
+ & 0.60786E+03_JPRB,0.45592E+03_JPRB,0.38499E+03_JPRB,0.57704E+03_JPRB,0.77025E+03_JPRB /)  
+KB(:, 2,13,16) = (/ &
+ & 0.61089E+03_JPRB,0.45819E+03_JPRB,0.37289E+03_JPRB,0.55854E+03_JPRB,0.74550E+03_JPRB /)  
+KB(:, 3,13,16) = (/ &
+ & 0.61169E+03_JPRB,0.45879E+03_JPRB,0.36189E+03_JPRB,0.54102E+03_JPRB,0.72223E+03_JPRB /)  
+KB(:, 4,13,16) = (/ &
+ & 0.61079E+03_JPRB,0.45811E+03_JPRB,0.35169E+03_JPRB,0.52404E+03_JPRB,0.69950E+03_JPRB /)  
+KB(:, 5,13,16) = (/ &
+ & 0.60850E+03_JPRB,0.45639E+03_JPRB,0.34199E+03_JPRB,0.50729E+03_JPRB,0.67716E+03_JPRB /)  
+KB(:, 1,14,16) = (/ &
+ & 0.71905E+03_JPRB,0.53931E+03_JPRB,0.44704E+03_JPRB,0.66948E+03_JPRB,0.89363E+03_JPRB /)  
+KB(:, 2,14,16) = (/ &
+ & 0.71950E+03_JPRB,0.53965E+03_JPRB,0.43274E+03_JPRB,0.64598E+03_JPRB,0.86230E+03_JPRB /)  
+KB(:, 3,14,16) = (/ &
+ & 0.71818E+03_JPRB,0.53865E+03_JPRB,0.41969E+03_JPRB,0.62353E+03_JPRB,0.83220E+03_JPRB /)  
+KB(:, 4,14,16) = (/ &
+ & 0.71532E+03_JPRB,0.53651E+03_JPRB,0.40717E+03_JPRB,0.60193E+03_JPRB,0.80343E+03_JPRB /)  
+KB(:, 5,14,16) = (/ &
+ & 0.71008E+03_JPRB,0.53258E+03_JPRB,0.39527E+03_JPRB,0.58080E+03_JPRB,0.77521E+03_JPRB /)  
+KB(:, 1,15,16) = (/ &
+ & 0.84339E+03_JPRB,0.63256E+03_JPRB,0.51534E+03_JPRB,0.76897E+03_JPRB,0.10264E+04_JPRB /)  
+KB(:, 2,15,16) = (/ &
+ & 0.84056E+03_JPRB,0.63042E+03_JPRB,0.49783E+03_JPRB,0.73927E+03_JPRB,0.98670E+03_JPRB /)  
+KB(:, 3,15,16) = (/ &
+ & 0.83549E+03_JPRB,0.62663E+03_JPRB,0.48183E+03_JPRB,0.71056E+03_JPRB,0.94836E+03_JPRB /)  
+KB(:, 4,15,16) = (/ &
+ & 0.82865E+03_JPRB,0.62150E+03_JPRB,0.46649E+03_JPRB,0.68266E+03_JPRB,0.91115E+03_JPRB /)  
+KB(:, 5,15,16) = (/ &
+ & 0.81975E+03_JPRB,0.61483E+03_JPRB,0.45195E+03_JPRB,0.65670E+03_JPRB,0.87636E+03_JPRB /)  
+KB(:, 1,16,16) = (/ &
+ & 0.97910E+03_JPRB,0.73434E+03_JPRB,0.58857E+03_JPRB,0.87272E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 2,16,16) = (/ &
+ & 0.97153E+03_JPRB,0.72866E+03_JPRB,0.56721E+03_JPRB,0.83540E+03_JPRB,0.11150E+04_JPRB /)  
+KB(:, 3,16,16) = (/ &
+ & 0.96129E+03_JPRB,0.72098E+03_JPRB,0.54742E+03_JPRB,0.79937E+03_JPRB,0.10667E+04_JPRB /)  
+KB(:, 4,16,16) = (/ &
+ & 0.94880E+03_JPRB,0.71161E+03_JPRB,0.52876E+03_JPRB,0.76497E+03_JPRB,0.10209E+04_JPRB /)  
+KB(:, 5,16,16) = (/ &
+ & 0.93421E+03_JPRB,0.70067E+03_JPRB,0.51082E+03_JPRB,0.73352E+03_JPRB,0.97881E+03_JPRB /)  
+KB(:, 1,17,16) = (/ &
+ & 0.11229E+04_JPRB,0.84221E+03_JPRB,0.66547E+03_JPRB,0.97911E+03_JPRB,0.13066E+04_JPRB /)  
+KB(:, 2,17,16) = (/ &
+ & 0.11091E+04_JPRB,0.83187E+03_JPRB,0.63930E+03_JPRB,0.93226E+03_JPRB,0.12440E+04_JPRB /)  
+KB(:, 3,17,16) = (/ &
+ & 0.10923E+04_JPRB,0.81922E+03_JPRB,0.61539E+03_JPRB,0.88802E+03_JPRB,0.11849E+04_JPRB /)  
+KB(:, 4,17,16) = (/ &
+ & 0.10728E+04_JPRB,0.80459E+03_JPRB,0.59256E+03_JPRB,0.84691E+03_JPRB,0.11301E+04_JPRB /)  
+KB(:, 5,17,16) = (/ &
+ & 0.10515E+04_JPRB,0.78865E+03_JPRB,0.57044E+03_JPRB,0.80936E+03_JPRB,0.10799E+04_JPRB /)  
+KB(:, 1,18,16) = (/ &
+ & 0.12716E+04_JPRB,0.95370E+03_JPRB,0.74447E+03_JPRB,0.10843E+04_JPRB,0.14469E+04_JPRB /)  
+KB(:, 2,18,16) = (/ &
+ & 0.12500E+04_JPRB,0.93749E+03_JPRB,0.71274E+03_JPRB,0.10272E+04_JPRB,0.13706E+04_JPRB /)  
+KB(:, 3,18,16) = (/ &
+ & 0.12251E+04_JPRB,0.91883E+03_JPRB,0.68394E+03_JPRB,0.97432E+03_JPRB,0.13000E+04_JPRB /)  
+KB(:, 4,18,16) = (/ &
+ & 0.11973E+04_JPRB,0.89795E+03_JPRB,0.65609E+03_JPRB,0.92626E+03_JPRB,0.12359E+04_JPRB /)  
+KB(:, 5,18,16) = (/ &
+ & 0.11679E+04_JPRB,0.87596E+03_JPRB,0.62959E+03_JPRB,0.88232E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 1,19,16) = (/ &
+ & 0.14213E+04_JPRB,0.10659E+04_JPRB,0.82299E+03_JPRB,0.11854E+04_JPRB,0.15817E+04_JPRB /)  
+KB(:, 2,19,16) = (/ &
+ & 0.13899E+04_JPRB,0.10424E+04_JPRB,0.78536E+03_JPRB,0.11181E+04_JPRB,0.14919E+04_JPRB /)  
+KB(:, 3,19,16) = (/ &
+ & 0.13555E+04_JPRB,0.10166E+04_JPRB,0.75067E+03_JPRB,0.10563E+04_JPRB,0.14093E+04_JPRB /)  
+KB(:, 4,19,16) = (/ &
+ & 0.13187E+04_JPRB,0.98902E+03_JPRB,0.71751E+03_JPRB,0.10008E+04_JPRB,0.13351E+04_JPRB /)  
+KB(:, 5,19,16) = (/ &
+ & 0.12809E+04_JPRB,0.96067E+03_JPRB,0.68653E+03_JPRB,0.95065E+03_JPRB,0.12682E+04_JPRB /)  
+KB(:, 1,20,16) = (/ &
+ & 0.15671E+04_JPRB,0.11753E+04_JPRB,0.89787E+03_JPRB,0.12782E+04_JPRB,0.17052E+04_JPRB /)  
+KB(:, 2,20,16) = (/ &
+ & 0.15245E+04_JPRB,0.11434E+04_JPRB,0.85373E+03_JPRB,0.12013E+04_JPRB,0.16026E+04_JPRB /)  
+KB(:, 3,20,16) = (/ &
+ & 0.14795E+04_JPRB,0.11097E+04_JPRB,0.81323E+03_JPRB,0.11307E+04_JPRB,0.15085E+04_JPRB /)  
+KB(:, 4,20,16) = (/ &
+ & 0.14333E+04_JPRB,0.10750E+04_JPRB,0.77488E+03_JPRB,0.10684E+04_JPRB,0.14252E+04_JPRB /)  
+KB(:, 5,20,16) = (/ &
+ & 0.13861E+04_JPRB,0.10396E+04_JPRB,0.73891E+03_JPRB,0.10119E+04_JPRB,0.13498E+04_JPRB /)  
+KB(:, 1,21,16) = (/ &
+ & 0.17057E+04_JPRB,0.12793E+04_JPRB,0.96840E+03_JPRB,0.13620E+04_JPRB,0.18170E+04_JPRB /)  
+KB(:, 2,21,16) = (/ &
+ & 0.16509E+04_JPRB,0.12382E+04_JPRB,0.91726E+03_JPRB,0.12758E+04_JPRB,0.17018E+04_JPRB /)  
+KB(:, 3,21,16) = (/ &
+ & 0.15947E+04_JPRB,0.11960E+04_JPRB,0.87064E+03_JPRB,0.11975E+04_JPRB,0.15973E+04_JPRB /)  
+KB(:, 4,21,16) = (/ &
+ & 0.15386E+04_JPRB,0.11540E+04_JPRB,0.82723E+03_JPRB,0.11286E+04_JPRB,0.15054E+04_JPRB /)  
+KB(:, 5,21,16) = (/ &
+ & 0.14823E+04_JPRB,0.11117E+04_JPRB,0.78614E+03_JPRB,0.10661E+04_JPRB,0.14220E+04_JPRB /)  
+KB(:, 1,22,16) = (/ &
+ & 0.18293E+04_JPRB,0.13720E+04_JPRB,0.10288E+04_JPRB,0.14300E+04_JPRB,0.19074E+04_JPRB /)  
+KB(:, 2,22,16) = (/ &
+ & 0.17617E+04_JPRB,0.13213E+04_JPRB,0.97120E+03_JPRB,0.13351E+04_JPRB,0.17808E+04_JPRB /)  
+KB(:, 3,22,16) = (/ &
+ & 0.16944E+04_JPRB,0.12708E+04_JPRB,0.91894E+03_JPRB,0.12506E+04_JPRB,0.16681E+04_JPRB /)  
+KB(:, 4,22,16) = (/ &
+ & 0.16287E+04_JPRB,0.12215E+04_JPRB,0.87041E+03_JPRB,0.11757E+04_JPRB,0.15681E+04_JPRB /)  
+KB(:, 5,22,16) = (/ &
+ & 0.15635E+04_JPRB,0.11726E+04_JPRB,0.82499E+03_JPRB,0.11083E+04_JPRB,0.14783E+04_JPRB /)  
+KB(:, 1,23,16) = (/ &
+ & 0.19373E+04_JPRB,0.14530E+04_JPRB,0.10803E+04_JPRB,0.14855E+04_JPRB,0.19814E+04_JPRB /)  
+KB(:, 2,23,16) = (/ &
+ & 0.18577E+04_JPRB,0.13933E+04_JPRB,0.10171E+04_JPRB,0.13836E+04_JPRB,0.18455E+04_JPRB /)  
+KB(:, 3,23,16) = (/ &
+ & 0.17799E+04_JPRB,0.13350E+04_JPRB,0.95955E+03_JPRB,0.12936E+04_JPRB,0.17253E+04_JPRB /)  
+KB(:, 4,23,16) = (/ &
+ & 0.17053E+04_JPRB,0.12790E+04_JPRB,0.90643E+03_JPRB,0.12138E+04_JPRB,0.16189E+04_JPRB /)  
+KB(:, 5,23,16) = (/ &
+ & 0.16318E+04_JPRB,0.12239E+04_JPRB,0.85742E+03_JPRB,0.11422E+04_JPRB,0.15233E+04_JPRB /)  
+KB(:, 1,24,16) = (/ &
+ & 0.20285E+04_JPRB,0.15214E+04_JPRB,0.11229E+04_JPRB,0.15287E+04_JPRB,0.20389E+04_JPRB /)  
+KB(:, 2,24,16) = (/ &
+ & 0.19379E+04_JPRB,0.14534E+04_JPRB,0.10546E+04_JPRB,0.14215E+04_JPRB,0.18958E+04_JPRB /)  
+KB(:, 3,24,16) = (/ &
+ & 0.18509E+04_JPRB,0.13882E+04_JPRB,0.99252E+03_JPRB,0.13268E+04_JPRB,0.17696E+04_JPRB /)  
+KB(:, 4,24,16) = (/ &
+ & 0.17680E+04_JPRB,0.13260E+04_JPRB,0.93542E+03_JPRB,0.12431E+04_JPRB,0.16579E+04_JPRB /)  
+KB(:, 5,24,16) = (/ &
+ & 0.16872E+04_JPRB,0.12654E+04_JPRB,0.88318E+03_JPRB,0.11679E+04_JPRB,0.15576E+04_JPRB /)  
+KB(:, 1,25,16) = (/ &
+ & 0.21022E+04_JPRB,0.15767E+04_JPRB,0.11562E+04_JPRB,0.15596E+04_JPRB,0.20800E+04_JPRB /)  
+KB(:, 2,25,16) = (/ &
+ & 0.20021E+04_JPRB,0.15016E+04_JPRB,0.10837E+04_JPRB,0.14483E+04_JPRB,0.19315E+04_JPRB /)  
+KB(:, 3,25,16) = (/ &
+ & 0.19072E+04_JPRB,0.14304E+04_JPRB,0.10177E+04_JPRB,0.13507E+04_JPRB,0.18013E+04_JPRB /)  
+KB(:, 4,25,16) = (/ &
+ & 0.18172E+04_JPRB,0.13629E+04_JPRB,0.95761E+03_JPRB,0.12639E+04_JPRB,0.16854E+04_JPRB /)  
+KB(:, 5,25,16) = (/ &
+ & 0.17302E+04_JPRB,0.12976E+04_JPRB,0.90262E+03_JPRB,0.11861E+04_JPRB,0.15818E+04_JPRB /)  
+KB(:, 1,26,16) = (/ &
+ & 0.21584E+04_JPRB,0.16188E+04_JPRB,0.11798E+04_JPRB,0.15785E+04_JPRB,0.21051E+04_JPRB /)  
+KB(:, 2,26,16) = (/ &
+ & 0.20504E+04_JPRB,0.15378E+04_JPRB,0.11040E+04_JPRB,0.14649E+04_JPRB,0.19536E+04_JPRB /)  
+KB(:, 3,26,16) = (/ &
+ & 0.19488E+04_JPRB,0.14616E+04_JPRB,0.10351E+04_JPRB,0.13650E+04_JPRB,0.18204E+04_JPRB /)  
+KB(:, 4,26,16) = (/ &
+ & 0.18527E+04_JPRB,0.13896E+04_JPRB,0.97267E+03_JPRB,0.12762E+04_JPRB,0.17019E+04_JPRB /)  
+KB(:, 5,26,16) = (/ &
+ & 0.17609E+04_JPRB,0.13206E+04_JPRB,0.91583E+03_JPRB,0.11969E+04_JPRB,0.15961E+04_JPRB /)  
+KB(:, 1,27,16) = (/ &
+ & 0.21995E+04_JPRB,0.16496E+04_JPRB,0.11960E+04_JPRB,0.15887E+04_JPRB,0.21185E+04_JPRB /)  
+KB(:, 2,27,16) = (/ &
+ & 0.20852E+04_JPRB,0.15639E+04_JPRB,0.11175E+04_JPRB,0.14736E+04_JPRB,0.19651E+04_JPRB /)  
+KB(:, 3,27,16) = (/ &
+ & 0.19784E+04_JPRB,0.14838E+04_JPRB,0.10466E+04_JPRB,0.13723E+04_JPRB,0.18300E+04_JPRB /)  
+KB(:, 4,27,16) = (/ &
+ & 0.18776E+04_JPRB,0.14082E+04_JPRB,0.98231E+03_JPRB,0.12823E+04_JPRB,0.17101E+04_JPRB /)  
+KB(:, 5,27,16) = (/ &
+ & 0.17820E+04_JPRB,0.13365E+04_JPRB,0.92416E+03_JPRB,0.12022E+04_JPRB,0.16031E+04_JPRB /)  
+KB(:, 1,28,16) = (/ &
+ & 0.22274E+04_JPRB,0.16706E+04_JPRB,0.12052E+04_JPRB,0.15913E+04_JPRB,0.21220E+04_JPRB /)  
+KB(:, 2,28,16) = (/ &
+ & 0.21084E+04_JPRB,0.15813E+04_JPRB,0.11251E+04_JPRB,0.14757E+04_JPRB,0.19679E+04_JPRB /)  
+KB(:, 3,28,16) = (/ &
+ & 0.19974E+04_JPRB,0.14981E+04_JPRB,0.10528E+04_JPRB,0.13738E+04_JPRB,0.18320E+04_JPRB /)  
+KB(:, 4,28,16) = (/ &
+ & 0.18930E+04_JPRB,0.14198E+04_JPRB,0.98736E+03_JPRB,0.12834E+04_JPRB,0.17114E+04_JPRB /)  
+KB(:, 5,28,16) = (/ &
+ & 0.17945E+04_JPRB,0.13459E+04_JPRB,0.92826E+03_JPRB,0.12029E+04_JPRB,0.16040E+04_JPRB /)  
+KB(:, 1,29,16) = (/ &
+ & 0.22434E+04_JPRB,0.16825E+04_JPRB,0.12082E+04_JPRB,0.15868E+04_JPRB,0.21160E+04_JPRB /)  
+KB(:, 2,29,16) = (/ &
+ & 0.21209E+04_JPRB,0.15907E+04_JPRB,0.11272E+04_JPRB,0.14716E+04_JPRB,0.19623E+04_JPRB /)  
+KB(:, 3,29,16) = (/ &
+ & 0.20069E+04_JPRB,0.15052E+04_JPRB,0.10541E+04_JPRB,0.13700E+04_JPRB,0.18268E+04_JPRB /)  
+KB(:, 4,29,16) = (/ &
+ & 0.18999E+04_JPRB,0.14249E+04_JPRB,0.98819E+03_JPRB,0.12798E+04_JPRB,0.17065E+04_JPRB /)  
+KB(:, 5,29,16) = (/ &
+ & 0.17996E+04_JPRB,0.13497E+04_JPRB,0.92869E+03_JPRB,0.11992E+04_JPRB,0.15991E+04_JPRB /)  
+KB(:, 1,30,16) = (/ &
+ & 0.22495E+04_JPRB,0.16871E+04_JPRB,0.12065E+04_JPRB,0.15776E+04_JPRB,0.21036E+04_JPRB /)  
+KB(:, 2,30,16) = (/ &
+ & 0.21251E+04_JPRB,0.15938E+04_JPRB,0.11251E+04_JPRB,0.14633E+04_JPRB,0.19512E+04_JPRB /)  
+KB(:, 3,30,16) = (/ &
+ & 0.20091E+04_JPRB,0.15068E+04_JPRB,0.10517E+04_JPRB,0.13621E+04_JPRB,0.18163E+04_JPRB /)  
+KB(:, 4,30,16) = (/ &
+ & 0.19004E+04_JPRB,0.14253E+04_JPRB,0.98584E+03_JPRB,0.12727E+04_JPRB,0.16970E+04_JPRB /)  
+KB(:, 5,30,16) = (/ &
+ & 0.17984E+04_JPRB,0.13488E+04_JPRB,0.92610E+03_JPRB,0.11928E+04_JPRB,0.15905E+04_JPRB /)  
+KB(:, 1,31,16) = (/ &
+ & 0.22474E+04_JPRB,0.16855E+04_JPRB,0.12005E+04_JPRB,0.15635E+04_JPRB,0.20848E+04_JPRB /)  
+KB(:, 2,31,16) = (/ &
+ & 0.21214E+04_JPRB,0.15910E+04_JPRB,0.11192E+04_JPRB,0.14507E+04_JPRB,0.19344E+04_JPRB /)  
+KB(:, 3,31,16) = (/ &
+ & 0.20043E+04_JPRB,0.15033E+04_JPRB,0.10461E+04_JPRB,0.13510E+04_JPRB,0.18015E+04_JPRB /)  
+KB(:, 4,31,16) = (/ &
+ & 0.18948E+04_JPRB,0.14211E+04_JPRB,0.98049E+03_JPRB,0.12625E+04_JPRB,0.16835E+04_JPRB /)  
+KB(:, 5,31,16) = (/ &
+ & 0.17922E+04_JPRB,0.13441E+04_JPRB,0.92102E+03_JPRB,0.11837E+04_JPRB,0.15784E+04_JPRB /)  
+KB(:, 1,32,16) = (/ &
+ & 0.22387E+04_JPRB,0.16790E+04_JPRB,0.11913E+04_JPRB,0.15463E+04_JPRB,0.20617E+04_JPRB /)  
+KB(:, 2,32,16) = (/ &
+ & 0.21117E+04_JPRB,0.15838E+04_JPRB,0.11104E+04_JPRB,0.14353E+04_JPRB,0.19138E+04_JPRB /)  
+KB(:, 3,32,16) = (/ &
+ & 0.19944E+04_JPRB,0.14958E+04_JPRB,0.10381E+04_JPRB,0.13373E+04_JPRB,0.17831E+04_JPRB /)  
+KB(:, 4,32,16) = (/ &
+ & 0.18846E+04_JPRB,0.14135E+04_JPRB,0.97304E+03_JPRB,0.12502E+04_JPRB,0.16670E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART37',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,32,16) = (/ &
+ & 0.17818E+04_JPRB,0.13363E+04_JPRB,0.91392E+03_JPRB,0.11724E+04_JPRB,0.15633E+04_JPRB /)  
+KB(:, 1,33,16) = (/ &
+ & 0.22243E+04_JPRB,0.16682E+04_JPRB,0.11793E+04_JPRB,0.15266E+04_JPRB,0.20355E+04_JPRB /)  
+KB(:, 2,33,16) = (/ &
+ & 0.20975E+04_JPRB,0.15731E+04_JPRB,0.10994E+04_JPRB,0.14177E+04_JPRB,0.18903E+04_JPRB /)  
+KB(:, 3,33,16) = (/ &
+ & 0.19805E+04_JPRB,0.14854E+04_JPRB,0.10282E+04_JPRB,0.13217E+04_JPRB,0.17623E+04_JPRB /)  
+KB(:, 4,33,16) = (/ &
+ & 0.18707E+04_JPRB,0.14030E+04_JPRB,0.96384E+03_JPRB,0.12361E+04_JPRB,0.16482E+04_JPRB /)  
+KB(:, 5,33,16) = (/ &
+ & 0.17684E+04_JPRB,0.13263E+04_JPRB,0.90541E+03_JPRB,0.11600E+04_JPRB,0.15467E+04_JPRB /)  
+KB(:, 1,34,16) = (/ &
+ & 0.22110E+04_JPRB,0.16582E+04_JPRB,0.11687E+04_JPRB,0.15094E+04_JPRB,0.20126E+04_JPRB /)  
+KB(:, 2,34,16) = (/ &
+ & 0.20843E+04_JPRB,0.15632E+04_JPRB,0.10894E+04_JPRB,0.14021E+04_JPRB,0.18696E+04_JPRB /)  
+KB(:, 3,34,16) = (/ &
+ & 0.19675E+04_JPRB,0.14756E+04_JPRB,0.10193E+04_JPRB,0.13079E+04_JPRB,0.17439E+04_JPRB /)  
+KB(:, 4,34,16) = (/ &
+ & 0.18579E+04_JPRB,0.13934E+04_JPRB,0.95559E+03_JPRB,0.12238E+04_JPRB,0.16318E+04_JPRB /)  
+KB(:, 5,34,16) = (/ &
+ & 0.17560E+04_JPRB,0.13170E+04_JPRB,0.89776E+03_JPRB,0.11489E+04_JPRB,0.15318E+04_JPRB /)  
+KB(:, 1,35,16) = (/ &
+ & 0.22070E+04_JPRB,0.16552E+04_JPRB,0.11645E+04_JPRB,0.15017E+04_JPRB,0.20024E+04_JPRB /)  
+KB(:, 2,35,16) = (/ &
+ & 0.20800E+04_JPRB,0.15600E+04_JPRB,0.10855E+04_JPRB,0.13953E+04_JPRB,0.18605E+04_JPRB /)  
+KB(:, 3,35,16) = (/ &
+ & 0.19630E+04_JPRB,0.14722E+04_JPRB,0.10157E+04_JPRB,0.13017E+04_JPRB,0.17356E+04_JPRB /)  
+KB(:, 4,35,16) = (/ &
+ & 0.18532E+04_JPRB,0.13899E+04_JPRB,0.95221E+03_JPRB,0.12182E+04_JPRB,0.16243E+04_JPRB /)  
+KB(:, 5,35,16) = (/ &
+ & 0.17512E+04_JPRB,0.13134E+04_JPRB,0.89456E+03_JPRB,0.11438E+04_JPRB,0.15251E+04_JPRB /)  
+KB(:, 1,36,16) = (/ &
+ & 0.22146E+04_JPRB,0.16609E+04_JPRB,0.11681E+04_JPRB,0.15050E+04_JPRB,0.20067E+04_JPRB /)  
+KB(:, 2,36,16) = (/ &
+ & 0.20867E+04_JPRB,0.15651E+04_JPRB,0.10887E+04_JPRB,0.13982E+04_JPRB,0.18642E+04_JPRB /)  
+KB(:, 3,36,16) = (/ &
+ & 0.19689E+04_JPRB,0.14767E+04_JPRB,0.10184E+04_JPRB,0.13041E+04_JPRB,0.17389E+04_JPRB /)  
+KB(:, 4,36,16) = (/ &
+ & 0.18582E+04_JPRB,0.13937E+04_JPRB,0.95458E+03_JPRB,0.12204E+04_JPRB,0.16272E+04_JPRB /)  
+KB(:, 5,36,16) = (/ &
+ & 0.17557E+04_JPRB,0.13168E+04_JPRB,0.89664E+03_JPRB,0.11458E+04_JPRB,0.15277E+04_JPRB /)  
+KB(:, 1,37,16) = (/ &
+ & 0.22411E+04_JPRB,0.16809E+04_JPRB,0.11837E+04_JPRB,0.15248E+04_JPRB,0.20331E+04_JPRB /)  
+KB(:, 2,37,16) = (/ &
+ & 0.21106E+04_JPRB,0.15830E+04_JPRB,0.11025E+04_JPRB,0.14155E+04_JPRB,0.18873E+04_JPRB /)  
+KB(:, 3,37,16) = (/ &
+ & 0.19909E+04_JPRB,0.14932E+04_JPRB,0.10307E+04_JPRB,0.13195E+04_JPRB,0.17594E+04_JPRB /)  
+KB(:, 4,37,16) = (/ &
+ & 0.18783E+04_JPRB,0.14088E+04_JPRB,0.96559E+03_JPRB,0.12340E+04_JPRB,0.16453E+04_JPRB /)  
+KB(:, 5,37,16) = (/ &
+ & 0.17743E+04_JPRB,0.13307E+04_JPRB,0.90666E+03_JPRB,0.11578E+04_JPRB,0.15438E+04_JPRB /)  
+KB(:, 1,38,16) = (/ &
+ & 0.22677E+04_JPRB,0.17008E+04_JPRB,0.11995E+04_JPRB,0.15451E+04_JPRB,0.20601E+04_JPRB /)  
+KB(:, 2,38,16) = (/ &
+ & 0.21347E+04_JPRB,0.16010E+04_JPRB,0.11166E+04_JPRB,0.14334E+04_JPRB,0.19112E+04_JPRB /)  
+KB(:, 3,38,16) = (/ &
+ & 0.20130E+04_JPRB,0.15097E+04_JPRB,0.10432E+04_JPRB,0.13353E+04_JPRB,0.17805E+04_JPRB /)  
+KB(:, 4,38,16) = (/ &
+ & 0.18989E+04_JPRB,0.14242E+04_JPRB,0.97692E+03_JPRB,0.12480E+04_JPRB,0.16640E+04_JPRB /)  
+KB(:, 5,38,16) = (/ &
+ & 0.17929E+04_JPRB,0.13447E+04_JPRB,0.91684E+03_JPRB,0.11704E+04_JPRB,0.15605E+04_JPRB /)  
+KB(:, 1,39,16) = (/ &
+ & 0.22932E+04_JPRB,0.17199E+04_JPRB,0.12149E+04_JPRB,0.15649E+04_JPRB,0.20865E+04_JPRB /)  
+KB(:, 2,39,16) = (/ &
+ & 0.21580E+04_JPRB,0.16185E+04_JPRB,0.11304E+04_JPRB,0.14510E+04_JPRB,0.19346E+04_JPRB /)  
+KB(:, 3,39,16) = (/ &
+ & 0.20342E+04_JPRB,0.15257E+04_JPRB,0.10554E+04_JPRB,0.13508E+04_JPRB,0.18011E+04_JPRB /)  
+KB(:, 4,39,16) = (/ &
+ & 0.19186E+04_JPRB,0.14389E+04_JPRB,0.98789E+03_JPRB,0.12618E+04_JPRB,0.16825E+04_JPRB /)  
+KB(:, 5,39,16) = (/ &
+ & 0.18110E+04_JPRB,0.13582E+04_JPRB,0.92676E+03_JPRB,0.11826E+04_JPRB,0.15768E+04_JPRB /)  
+KB(:, 1,40,16) = (/ &
+ & 0.23330E+04_JPRB,0.17497E+04_JPRB,0.12394E+04_JPRB,0.15975E+04_JPRB,0.21300E+04_JPRB /)  
+KB(:, 2,40,16) = (/ &
+ & 0.21946E+04_JPRB,0.16460E+04_JPRB,0.11524E+04_JPRB,0.14797E+04_JPRB,0.19730E+04_JPRB /)  
+KB(:, 3,40,16) = (/ &
+ & 0.20673E+04_JPRB,0.15505E+04_JPRB,0.10747E+04_JPRB,0.13759E+04_JPRB,0.18346E+04_JPRB /)  
+KB(:, 4,40,16) = (/ &
+ & 0.19494E+04_JPRB,0.14621E+04_JPRB,0.10054E+04_JPRB,0.12842E+04_JPRB,0.17123E+04_JPRB /)  
+KB(:, 5,40,16) = (/ &
+ & 0.18395E+04_JPRB,0.13796E+04_JPRB,0.94264E+03_JPRB,0.12026E+04_JPRB,0.16034E+04_JPRB /)  
+KB(:, 1,41,16) = (/ &
+ & 0.23748E+04_JPRB,0.17811E+04_JPRB,0.12653E+04_JPRB,0.16323E+04_JPRB,0.21765E+04_JPRB /)  
+KB(:, 2,41,16) = (/ &
+ & 0.22335E+04_JPRB,0.16751E+04_JPRB,0.11760E+04_JPRB,0.15106E+04_JPRB,0.20142E+04_JPRB /)  
+KB(:, 3,41,16) = (/ &
+ & 0.21020E+04_JPRB,0.15765E+04_JPRB,0.10953E+04_JPRB,0.14029E+04_JPRB,0.18706E+04_JPRB /)  
+KB(:, 4,41,16) = (/ &
+ & 0.19818E+04_JPRB,0.14863E+04_JPRB,0.10239E+04_JPRB,0.13082E+04_JPRB,0.17443E+04_JPRB /)  
+KB(:, 5,41,16) = (/ &
+ & 0.18696E+04_JPRB,0.14022E+04_JPRB,0.95944E+03_JPRB,0.12238E+04_JPRB,0.16317E+04_JPRB /)  
+KB(:, 1,42,16) = (/ &
+ & 0.24183E+04_JPRB,0.18137E+04_JPRB,0.12922E+04_JPRB,0.16686E+04_JPRB,0.22248E+04_JPRB /)  
+KB(:, 2,42,16) = (/ &
+ & 0.22718E+04_JPRB,0.17039E+04_JPRB,0.11997E+04_JPRB,0.15420E+04_JPRB,0.20561E+04_JPRB /)  
+KB(:, 3,42,16) = (/ &
+ & 0.21373E+04_JPRB,0.16030E+04_JPRB,0.11164E+04_JPRB,0.14305E+04_JPRB,0.19073E+04_JPRB /)  
+KB(:, 4,42,16) = (/ &
+ & 0.20143E+04_JPRB,0.15107E+04_JPRB,0.10428E+04_JPRB,0.13327E+04_JPRB,0.17770E+04_JPRB /)  
+KB(:, 5,42,16) = (/ &
+ & 0.18998E+04_JPRB,0.14249E+04_JPRB,0.97647E+03_JPRB,0.12457E+04_JPRB,0.16610E+04_JPRB /)  
+KB(:, 1,43,16) = (/ &
+ & 0.24703E+04_JPRB,0.18528E+04_JPRB,0.13249E+04_JPRB,0.17136E+04_JPRB,0.22848E+04_JPRB /)  
+KB(:, 2,43,16) = (/ &
+ & 0.23188E+04_JPRB,0.17391E+04_JPRB,0.12289E+04_JPRB,0.15811E+04_JPRB,0.21082E+04_JPRB /)  
+KB(:, 3,43,16) = (/ &
+ & 0.21803E+04_JPRB,0.16352E+04_JPRB,0.11426E+04_JPRB,0.14651E+04_JPRB,0.19535E+04_JPRB /)  
+KB(:, 4,43,16) = (/ &
+ & 0.20539E+04_JPRB,0.15404E+04_JPRB,0.10659E+04_JPRB,0.13633E+04_JPRB,0.18177E+04_JPRB /)  
+KB(:, 5,43,16) = (/ &
+ & 0.19367E+04_JPRB,0.14525E+04_JPRB,0.99744E+03_JPRB,0.12728E+04_JPRB,0.16970E+04_JPRB /)  
+KB(:, 1,44,16) = (/ &
+ & 0.25274E+04_JPRB,0.18956E+04_JPRB,0.13612E+04_JPRB,0.17642E+04_JPRB,0.23522E+04_JPRB /)  
+KB(:, 2,44,16) = (/ &
+ & 0.23706E+04_JPRB,0.17780E+04_JPRB,0.12614E+04_JPRB,0.16248E+04_JPRB,0.21664E+04_JPRB /)  
+KB(:, 3,44,16) = (/ &
+ & 0.22278E+04_JPRB,0.16708E+04_JPRB,0.11717E+04_JPRB,0.15040E+04_JPRB,0.20053E+04_JPRB /)  
+KB(:, 4,44,16) = (/ &
+ & 0.20979E+04_JPRB,0.15734E+04_JPRB,0.10920E+04_JPRB,0.13972E+04_JPRB,0.18630E+04_JPRB /)  
+KB(:, 5,44,16) = (/ &
+ & 0.19771E+04_JPRB,0.14828E+04_JPRB,0.10207E+04_JPRB,0.13030E+04_JPRB,0.17374E+04_JPRB /)  
+KB(:, 1,45,16) = (/ &
+ & 0.25859E+04_JPRB,0.19394E+04_JPRB,0.13990E+04_JPRB,0.18173E+04_JPRB,0.24231E+04_JPRB /)  
+KB(:, 2,45,16) = (/ &
+ & 0.24239E+04_JPRB,0.18179E+04_JPRB,0.12948E+04_JPRB,0.16708E+04_JPRB,0.22278E+04_JPRB /)  
+KB(:, 3,45,16) = (/ &
+ & 0.22761E+04_JPRB,0.17071E+04_JPRB,0.12017E+04_JPRB,0.15441E+04_JPRB,0.20588E+04_JPRB /)  
+KB(:, 4,45,16) = (/ &
+ & 0.21421E+04_JPRB,0.16066E+04_JPRB,0.11186E+04_JPRB,0.14324E+04_JPRB,0.19099E+04_JPRB /)  
+KB(:, 5,45,16) = (/ &
+ & 0.20183E+04_JPRB,0.15137E+04_JPRB,0.10446E+04_JPRB,0.13343E+04_JPRB,0.17791E+04_JPRB /)  
+KB(:, 1,46,16) = (/ &
+ & 0.26504E+04_JPRB,0.19878E+04_JPRB,0.14409E+04_JPRB,0.18767E+04_JPRB,0.25023E+04_JPRB /)  
+KB(:, 2,46,16) = (/ &
+ & 0.24823E+04_JPRB,0.18617E+04_JPRB,0.13316E+04_JPRB,0.17220E+04_JPRB,0.22960E+04_JPRB /)  
+KB(:, 3,46,16) = (/ &
+ & 0.23297E+04_JPRB,0.17473E+04_JPRB,0.12351E+04_JPRB,0.15885E+04_JPRB,0.21180E+04_JPRB /)  
+KB(:, 4,46,16) = (/ &
+ & 0.21905E+04_JPRB,0.16429E+04_JPRB,0.11482E+04_JPRB,0.14718E+04_JPRB,0.19624E+04_JPRB /)  
+KB(:, 5,46,16) = (/ &
+ & 0.20627E+04_JPRB,0.15470E+04_JPRB,0.10708E+04_JPRB,0.13689E+04_JPRB,0.18252E+04_JPRB /)  
+KB(:, 1,47,16) = (/ &
+ & 0.27247E+04_JPRB,0.20435E+04_JPRB,0.14902E+04_JPRB,0.19477E+04_JPRB,0.25969E+04_JPRB /)  
+KB(:, 2,47,16) = (/ &
+ & 0.25493E+04_JPRB,0.19120E+04_JPRB,0.13747E+04_JPRB,0.17822E+04_JPRB,0.23763E+04_JPRB /)  
+KB(:, 3,47,16) = (/ &
+ & 0.23907E+04_JPRB,0.17930E+04_JPRB,0.12733E+04_JPRB,0.16405E+04_JPRB,0.21874E+04_JPRB /)  
+KB(:, 4,47,16) = (/ &
+ & 0.22466E+04_JPRB,0.16850E+04_JPRB,0.11827E+04_JPRB,0.15177E+04_JPRB,0.20235E+04_JPRB /)  
+KB(:, 5,47,16) = (/ &
+ & 0.21136E+04_JPRB,0.15852E+04_JPRB,0.11012E+04_JPRB,0.14091E+04_JPRB,0.18788E+04_JPRB /)  
+KB(:, 1,48,16) = (/ &
+ & 0.28012E+04_JPRB,0.21009E+04_JPRB,0.15426E+04_JPRB,0.20233E+04_JPRB,0.26978E+04_JPRB /)  
+KB(:, 2,48,16) = (/ &
+ & 0.26190E+04_JPRB,0.19642E+04_JPRB,0.14199E+04_JPRB,0.18460E+04_JPRB,0.24614E+04_JPRB /)  
+KB(:, 3,48,16) = (/ &
+ & 0.24541E+04_JPRB,0.18406E+04_JPRB,0.13132E+04_JPRB,0.16956E+04_JPRB,0.22609E+04_JPRB /)  
+KB(:, 4,48,16) = (/ &
+ & 0.23037E+04_JPRB,0.17278E+04_JPRB,0.12184E+04_JPRB,0.15658E+04_JPRB,0.20877E+04_JPRB /)  
+KB(:, 5,48,16) = (/ &
+ & 0.21661E+04_JPRB,0.16246E+04_JPRB,0.11331E+04_JPRB,0.14514E+04_JPRB,0.19352E+04_JPRB /)  
+KB(:, 1,49,16) = (/ &
+ & 0.28818E+04_JPRB,0.21613E+04_JPRB,0.15982E+04_JPRB,0.21038E+04_JPRB,0.28050E+04_JPRB /)  
+KB(:, 2,49,16) = (/ &
+ & 0.26914E+04_JPRB,0.20185E+04_JPRB,0.14674E+04_JPRB,0.19143E+04_JPRB,0.25524E+04_JPRB /)  
+KB(:, 3,49,16) = (/ &
+ & 0.25196E+04_JPRB,0.18897E+04_JPRB,0.13550E+04_JPRB,0.17541E+04_JPRB,0.23389E+04_JPRB /)  
+KB(:, 4,49,16) = (/ &
+ & 0.23632E+04_JPRB,0.17724E+04_JPRB,0.12557E+04_JPRB,0.16163E+04_JPRB,0.21550E+04_JPRB /)  
+KB(:, 5,49,16) = (/ &
+ & 0.22208E+04_JPRB,0.16656E+04_JPRB,0.11666E+04_JPRB,0.14961E+04_JPRB,0.19948E+04_JPRB /)  
+KB(:, 1,50,16) = (/ &
+ & 0.29612E+04_JPRB,0.22209E+04_JPRB,0.16532E+04_JPRB,0.21839E+04_JPRB,0.29118E+04_JPRB /)  
+KB(:, 2,50,16) = (/ &
+ & 0.27615E+04_JPRB,0.20712E+04_JPRB,0.15149E+04_JPRB,0.19827E+04_JPRB,0.26437E+04_JPRB /)  
+KB(:, 3,50,16) = (/ &
+ & 0.25830E+04_JPRB,0.19373E+04_JPRB,0.13961E+04_JPRB,0.18120E+04_JPRB,0.24160E+04_JPRB /)  
+KB(:, 4,50,16) = (/ &
+ & 0.24210E+04_JPRB,0.18157E+04_JPRB,0.12921E+04_JPRB,0.16664E+04_JPRB,0.22218E+04_JPRB /)  
+KB(:, 5,50,16) = (/ &
+ & 0.22734E+04_JPRB,0.17051E+04_JPRB,0.11994E+04_JPRB,0.15401E+04_JPRB,0.20534E+04_JPRB /)  
+KB(:, 1,51,16) = (/ &
+ & 0.30414E+04_JPRB,0.22810E+04_JPRB,0.17098E+04_JPRB,0.22662E+04_JPRB,0.30216E+04_JPRB /)  
+KB(:, 2,51,16) = (/ &
+ & 0.28321E+04_JPRB,0.21241E+04_JPRB,0.15635E+04_JPRB,0.20530E+04_JPRB,0.27374E+04_JPRB /)  
+KB(:, 3,51,16) = (/ &
+ & 0.26473E+04_JPRB,0.19855E+04_JPRB,0.14379E+04_JPRB,0.18712E+04_JPRB,0.24950E+04_JPRB /)  
+KB(:, 4,51,16) = (/ &
+ & 0.24793E+04_JPRB,0.18595E+04_JPRB,0.13289E+04_JPRB,0.17174E+04_JPRB,0.22898E+04_JPRB /)  
+KB(:, 5,51,16) = (/ &
+ & 0.23268E+04_JPRB,0.17451E+04_JPRB,0.12327E+04_JPRB,0.15846E+04_JPRB,0.21128E+04_JPRB /)  
+KB(:, 1,52,16) = (/ &
+ & 0.31248E+04_JPRB,0.23436E+04_JPRB,0.17703E+04_JPRB,0.23534E+04_JPRB,0.31379E+04_JPRB /)  
+KB(:, 2,52,16) = (/ &
+ & 0.29063E+04_JPRB,0.21797E+04_JPRB,0.16147E+04_JPRB,0.21274E+04_JPRB,0.28366E+04_JPRB /)  
+KB(:, 3,52,16) = (/ &
+ & 0.27134E+04_JPRB,0.20351E+04_JPRB,0.14818E+04_JPRB,0.19344E+04_JPRB,0.25793E+04_JPRB /)  
+KB(:, 4,52,16) = (/ &
+ & 0.25389E+04_JPRB,0.19042E+04_JPRB,0.13672E+04_JPRB,0.17712E+04_JPRB,0.23616E+04_JPRB /)  
+KB(:, 5,52,16) = (/ &
+ & 0.23814E+04_JPRB,0.17860E+04_JPRB,0.12669E+04_JPRB,0.16310E+04_JPRB,0.21746E+04_JPRB /)  
+KB(:, 1,53,16) = (/ &
+ & 0.32126E+04_JPRB,0.24095E+04_JPRB,0.18346E+04_JPRB,0.24459E+04_JPRB,0.32612E+04_JPRB /)  
+KB(:, 2,53,16) = (/ &
+ & 0.29838E+04_JPRB,0.22378E+04_JPRB,0.16687E+04_JPRB,0.22061E+04_JPRB,0.29415E+04_JPRB /)  
+KB(:, 3,53,16) = (/ &
+ & 0.27817E+04_JPRB,0.20863E+04_JPRB,0.15283E+04_JPRB,0.20017E+04_JPRB,0.26689E+04_JPRB /)  
+KB(:, 4,53,16) = (/ &
+ & 0.26009E+04_JPRB,0.19507E+04_JPRB,0.14074E+04_JPRB,0.18280E+04_JPRB,0.24374E+04_JPRB /)  
+KB(:, 5,53,16) = (/ &
+ & 0.24377E+04_JPRB,0.18283E+04_JPRB,0.13025E+04_JPRB,0.16802E+04_JPRB,0.22403E+04_JPRB /)  
+KB(:, 1,54,16) = (/ &
+ & 0.32965E+04_JPRB,0.24725E+04_JPRB,0.18972E+04_JPRB,0.25356E+04_JPRB,0.33807E+04_JPRB /)  
+KB(:, 2,54,16) = (/ &
+ & 0.30576E+04_JPRB,0.22932E+04_JPRB,0.17211E+04_JPRB,0.22822E+04_JPRB,0.30430E+04_JPRB /)  
+KB(:, 3,54,16) = (/ &
+ & 0.28468E+04_JPRB,0.21351E+04_JPRB,0.15733E+04_JPRB,0.20668E+04_JPRB,0.27558E+04_JPRB /)  
+KB(:, 4,54,16) = (/ &
+ & 0.26600E+04_JPRB,0.19950E+04_JPRB,0.14459E+04_JPRB,0.18829E+04_JPRB,0.25105E+04_JPRB /)  
+KB(:, 5,54,16) = (/ &
+ & 0.24912E+04_JPRB,0.18684E+04_JPRB,0.13364E+04_JPRB,0.17275E+04_JPRB,0.23034E+04_JPRB /)  
+KB(:, 1,55,16) = (/ &
+ & 0.33833E+04_JPRB,0.25376E+04_JPRB,0.19611E+04_JPRB,0.26264E+04_JPRB,0.35019E+04_JPRB /)  
+KB(:, 2,55,16) = (/ &
+ & 0.31321E+04_JPRB,0.23491E+04_JPRB,0.17750E+04_JPRB,0.23596E+04_JPRB,0.31462E+04_JPRB /)  
+KB(:, 3,55,16) = (/ &
+ & 0.29119E+04_JPRB,0.21839E+04_JPRB,0.16184E+04_JPRB,0.21327E+04_JPRB,0.28435E+04_JPRB /)  
+KB(:, 4,55,16) = (/ &
+ & 0.27182E+04_JPRB,0.20386E+04_JPRB,0.14848E+04_JPRB,0.19390E+04_JPRB,0.25853E+04_JPRB /)  
+KB(:, 5,55,16) = (/ &
+ & 0.25438E+04_JPRB,0.19078E+04_JPRB,0.13702E+04_JPRB,0.17749E+04_JPRB,0.23665E+04_JPRB /)  
+KB(:, 1,56,16) = (/ &
+ & 0.34732E+04_JPRB,0.26050E+04_JPRB,0.20286E+04_JPRB,0.27221E+04_JPRB,0.36294E+04_JPRB /)  
+KB(:, 2,56,16) = (/ &
+ & 0.32087E+04_JPRB,0.24066E+04_JPRB,0.18312E+04_JPRB,0.24406E+04_JPRB,0.32540E+04_JPRB /)  
+KB(:, 3,56,16) = (/ &
+ & 0.29798E+04_JPRB,0.22348E+04_JPRB,0.16657E+04_JPRB,0.22014E+04_JPRB,0.29353E+04_JPRB /)  
+KB(:, 4,56,16) = (/ &
+ & 0.27779E+04_JPRB,0.20834E+04_JPRB,0.15255E+04_JPRB,0.19978E+04_JPRB,0.26637E+04_JPRB /)  
+KB(:, 5,56,16) = (/ &
+ & 0.25980E+04_JPRB,0.19485E+04_JPRB,0.14055E+04_JPRB,0.18247E+04_JPRB,0.24330E+04_JPRB /)  
+KB(:, 1,57,16) = (/ &
+ & 0.35673E+04_JPRB,0.26755E+04_JPRB,0.21006E+04_JPRB,0.28229E+04_JPRB,0.37639E+04_JPRB /)  
+KB(:, 2,57,16) = (/ &
+ & 0.32883E+04_JPRB,0.24663E+04_JPRB,0.18907E+04_JPRB,0.25257E+04_JPRB,0.33676E+04_JPRB /)  
+KB(:, 3,57,16) = (/ &
+ & 0.30500E+04_JPRB,0.22875E+04_JPRB,0.17155E+04_JPRB,0.22739E+04_JPRB,0.30319E+04_JPRB /)  
+KB(:, 4,57,16) = (/ &
+ & 0.28394E+04_JPRB,0.21295E+04_JPRB,0.15682E+04_JPRB,0.20597E+04_JPRB,0.27463E+04_JPRB /)  
+KB(:, 5,57,16) = (/ &
+ & 0.26543E+04_JPRB,0.19907E+04_JPRB,0.14421E+04_JPRB,0.18768E+04_JPRB,0.25025E+04_JPRB /)  
+KB(:, 1,58,16) = (/ &
+ & 0.36607E+04_JPRB,0.27457E+04_JPRB,0.21738E+04_JPRB,0.29233E+04_JPRB,0.38978E+04_JPRB /)  
+KB(:, 2,58,16) = (/ &
+ & 0.33686E+04_JPRB,0.25266E+04_JPRB,0.19501E+04_JPRB,0.26108E+04_JPRB,0.34810E+04_JPRB /)  
+KB(:, 3,58,16) = (/ &
+ & 0.31191E+04_JPRB,0.23393E+04_JPRB,0.17656E+04_JPRB,0.23462E+04_JPRB,0.31282E+04_JPRB /)  
+KB(:, 4,58,16) = (/ &
+ & 0.29009E+04_JPRB,0.21757E+04_JPRB,0.16107E+04_JPRB,0.21213E+04_JPRB,0.28285E+04_JPRB /)  
+KB(:, 5,58,16) = (/ &
+ & 0.27090E+04_JPRB,0.20318E+04_JPRB,0.14784E+04_JPRB,0.19292E+04_JPRB,0.25722E+04_JPRB /)  
+KB(:, 1,59,16) = (/ &
+ & 0.36992E+04_JPRB,0.27745E+04_JPRB,0.22044E+04_JPRB,0.29651E+04_JPRB,0.39534E+04_JPRB /)  
+KB(:, 2,59,16) = (/ &
+ & 0.34022E+04_JPRB,0.25517E+04_JPRB,0.19749E+04_JPRB,0.26461E+04_JPRB,0.35281E+04_JPRB /)  
+KB(:, 3,59,16) = (/ &
+ & 0.31476E+04_JPRB,0.23607E+04_JPRB,0.17864E+04_JPRB,0.23762E+04_JPRB,0.31682E+04_JPRB /)  
+KB(:, 4,59,16) = (/ &
+ & 0.29259E+04_JPRB,0.21945E+04_JPRB,0.16281E+04_JPRB,0.21469E+04_JPRB,0.28626E+04_JPRB /)  
+KB(:, 5,59,16) = (/ &
+ & 0.27315E+04_JPRB,0.20486E+04_JPRB,0.14936E+04_JPRB,0.19510E+04_JPRB,0.26013E+04_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.553258E-03_JPRB, 0.555486E-03_JPRB, 0.601339E-03_JPRB, 0.708280E-03_JPRB /)
+FORREF(:, 2) = (/ 0.158558E-02_JPRB, 0.162957E-02_JPRB, 0.204991E-02_JPRB, 0.475881E-02_JPRB /)
+FORREF(:, 3) = (/ 0.772542E-02_JPRB, 0.784562E-02_JPRB, 0.111979E-01_JPRB, 0.229016E-01_JPRB /)
+FORREF(:, 4) = (/ 0.255097E-01_JPRB, 0.256272E-01_JPRB, 0.270691E-01_JPRB, 0.259505E-01_JPRB /)
+FORREF(:, 5) = (/ 0.323263E-01_JPRB, 0.324495E-01_JPRB, 0.305535E-01_JPRB, 0.263993E-01_JPRB /)
+FORREF(:, 6) = (/ 0.346920E-01_JPRB, 0.348255E-01_JPRB, 0.323586E-01_JPRB, 0.276357E-01_JPRB /)
+FORREF(:, 7) = (/ 0.366509E-01_JPRB, 0.366412E-01_JPRB, 0.344434E-01_JPRB, 0.319223E-01_JPRB /)
+FORREF(:, 8) = (/ 0.378451E-01_JPRB, 0.375341E-01_JPRB, 0.374369E-01_JPRB, 0.320334E-01_JPRB /)
+FORREF(:, 9) = (/ 0.407348E-01_JPRB, 0.396203E-01_JPRB, 0.393988E-01_JPRB, 0.318343E-01_JPRB /)
+FORREF(:,10) = (/ 0.433035E-01_JPRB, 0.426488E-01_JPRB, 0.408085E-01_JPRB, 0.332749E-01_JPRB /)
+FORREF(:,11) = (/ 0.428254E-01_JPRB, 0.441151E-01_JPRB, 0.408887E-01_JPRB, 0.327077E-01_JPRB /)
+FORREF(:,12) = (/ 0.443226E-01_JPRB, 0.446690E-01_JPRB, 0.404676E-01_JPRB, 0.350492E-01_JPRB /)
+FORREF(:,13) = (/ 0.466103E-01_JPRB, 0.460809E-01_JPRB, 0.401286E-01_JPRB, 0.370427E-01_JPRB /)
+FORREF(:,14) = (/ 0.483928E-01_JPRB, 0.477284E-01_JPRB, 0.380684E-01_JPRB, 0.387940E-01_JPRB /)
+FORREF(:,15) = (/ 0.506987E-01_JPRB, 0.490016E-01_JPRB, 0.467069E-01_JPRB, 0.368998E-01_JPRB /)
+FORREF(:,16) = (/ 0.510836E-01_JPRB, 0.522771E-01_JPRB, 0.500130E-01_JPRB, 0.483406E-01_JPRB /)
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART38',0,ZHOOK_HANDLE)
+
+
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.160537E-01_JPRB, 0.149038E-01_JPRB, 0.138363E-01_JPRB, 0.128452E-01_JPRB, 0.119251E-01_JPRB, &
+ & 0.110709E-01_JPRB, 0.102779E-01_JPRB, 0.954175E-02_JPRB, 0.885829E-02_JPRB, 0.822379E-02_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.365753E-01_JPRB, 0.342267E-01_JPRB, 0.320288E-01_JPRB, 0.299720E-01_JPRB, 0.280474E-01_JPRB, &
+ & 0.262463E-01_JPRB, 0.245609E-01_JPRB, 0.229837E-01_JPRB, 0.215078E-01_JPRB, 0.201267E-01_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.127419E+00_JPRB, 0.118553E+00_JPRB, 0.110304E+00_JPRB, 0.102629E+00_JPRB, 0.954883E-01_JPRB, &
+ & 0.888442E-01_JPRB, 0.826624E-01_JPRB, 0.769107E-01_JPRB, 0.715593E-01_JPRB, 0.665802E-01_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.378687E+00_JPRB, 0.348961E+00_JPRB, 0.321568E+00_JPRB, 0.296325E+00_JPRB, 0.273064E+00_JPRB, &
+ & 0.251629E+00_JPRB, 0.231876E+00_JPRB, 0.213674E+00_JPRB, 0.196901E+00_JPRB, 0.181444E+00_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.472822E+00_JPRB, 0.435018E+00_JPRB, 0.400236E+00_JPRB, 0.368236E+00_JPRB, 0.338794E+00_JPRB, &
+ & 0.311706E+00_JPRB, 0.286783E+00_JPRB, 0.263854E+00_JPRB, 0.242757E+00_JPRB, 0.223348E+00_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.505620E+00_JPRB, 0.465050E+00_JPRB, 0.427736E+00_JPRB, 0.393416E+00_JPRB, 0.361849E+00_JPRB, &
+ & 0.332815E+00_JPRB, 0.306111E+00_JPRB, 0.281550E+00_JPRB, 0.258959E+00_JPRB, 0.238181E+00_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.530488E+00_JPRB, 0.487993E+00_JPRB, 0.448902E+00_JPRB, 0.412943E+00_JPRB, 0.379864E+00_JPRB, &
+ & 0.349434E+00_JPRB, 0.321443E+00_JPRB, 0.295694E+00_JPRB, 0.272007E+00_JPRB, 0.250218E+00_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.540222E+00_JPRB, 0.497746E+00_JPRB, 0.458610E+00_JPRB, 0.422551E+00_JPRB, 0.389327E+00_JPRB, &
+ & 0.358716E+00_JPRB, 0.330511E+00_JPRB, 0.304524E+00_JPRB, 0.280580E+00_JPRB, 0.258519E+00_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.565727E+00_JPRB, 0.522899E+00_JPRB, 0.483313E+00_JPRB, 0.446724E+00_JPRB, 0.412905E+00_JPRB, &
+ & 0.381646E+00_JPRB, 0.352753E+00_JPRB, 0.326048E+00_JPRB, 0.301365E+00_JPRB, 0.278550E+00_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.610122E+00_JPRB, 0.562337E+00_JPRB, 0.518295E+00_JPRB, 0.477702E+00_JPRB, 0.440289E+00_JPRB, &
+ & 0.405806E+00_JPRB, 0.374023E+00_JPRB, 0.344730E+00_JPRB, 0.317730E+00_JPRB, 0.292846E+00_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.645176E+00_JPRB, 0.588957E+00_JPRB, 0.537636E+00_JPRB, 0.490788E+00_JPRB, 0.448022E+00_JPRB, &
+ & 0.408982E+00_JPRB, 0.373344E+00_JPRB, 0.340812E+00_JPRB, 0.311114E+00_JPRB, 0.284004E+00_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.651737E+00_JPRB, 0.596547E+00_JPRB, 0.546031E+00_JPRB, 0.499792E+00_JPRB, 0.457469E+00_JPRB, &
+ & 0.418730E+00_JPRB, 0.383272E+00_JPRB, 0.350816E+00_JPRB, 0.321108E+00_JPRB, 0.293916E+00_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.661086E+00_JPRB, 0.607954E+00_JPRB, 0.559093E+00_JPRB, 0.514159E+00_JPRB, 0.472836E+00_JPRB, &
+ & 0.434834E+00_JPRB, 0.399886E+00_JPRB, 0.367747E+00_JPRB, 0.338191E+00_JPRB, 0.311011E+00_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.692554E+00_JPRB, 0.635574E+00_JPRB, 0.583282E+00_JPRB, 0.535293E+00_JPRB, 0.491251E+00_JPRB, &
+ & 0.450834E+00_JPRB, 0.413741E+00_JPRB, 0.379701E+00_JPRB, 0.348461E+00_JPRB, 0.319791E+00_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.714646E+00_JPRB, 0.657179E+00_JPRB, 0.604334E+00_JPRB, 0.555737E+00_JPRB, 0.511049E+00_JPRB, &
+ & 0.469954E+00_JPRB, 0.432164E+00_JPRB, 0.397412E+00_JPRB, 0.365455E+00_JPRB, 0.336068E+00_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.782126E+00_JPRB, 0.710682E+00_JPRB, 0.645764E+00_JPRB, 0.586776E+00_JPRB, 0.533177E+00_JPRB, &
+ & 0.484473E+00_JPRB, 0.440219E+00_JPRB, 0.400007E+00_JPRB, 0.363468E+00_JPRB, 0.330266E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE SRTM_KGB17
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb17.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb17.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb17.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB17
+END SUBROUTINE SRTM_KGB17
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb18.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb18.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb18.F90	(revision 3330)
@@ -0,0 +1,5030 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB18
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA18, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 3.65840_JPRB    , 3.54375_JPRB    , 3.34481_JPRB    , 3.10534_JPRB    , &
+ & 2.79879_JPRB    , 2.42841_JPRB    , 1.98748_JPRB    , 1.49377_JPRB    , &
+ & 1.00196_JPRB    , 0.108342_JPRB   , 8.95099E-02_JPRB, 7.05199E-02_JPRB, &
+ & 5.16432E-02_JPRB, 3.27635E-02_JPRB, 1.25133E-02_JPRB, 1.73001E-03_JPRB /)    
+SFLUXREF(:,2) = (/ &
+ & 3.86372_JPRB    , 3.48521_JPRB    , 3.30790_JPRB    , 3.08103_JPRB    , &
+ & 2.77552_JPRB    , 2.40722_JPRB    , 1.97307_JPRB    , 1.48023_JPRB    , &
+ & 0.993055_JPRB   , 0.107691_JPRB   , 8.84430E-02_JPRB, 6.99354E-02_JPRB, &
+ & 5.07881E-02_JPRB, 3.24121E-02_JPRB, 1.19442E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 3.90370_JPRB    , 3.50657_JPRB    , 3.30629_JPRB    , 3.06046_JPRB    , &
+ & 2.76982_JPRB    , 2.39907_JPRB    , 1.96358_JPRB    , 1.47458_JPRB    , &
+ & 0.988475_JPRB   , 0.106698_JPRB   , 8.75242E-02_JPRB, 6.85898E-02_JPRB, &
+ & 5.04798E-02_JPRB, 3.13718E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 3.93165_JPRB    , 3.52058_JPRB    , 3.31346_JPRB    , 3.04944_JPRB    , &
+ & 2.76074_JPRB    , 2.39433_JPRB    , 1.95556_JPRB    , 1.46712_JPRB    , &
+ & 0.984056_JPRB   , 0.105885_JPRB   , 8.73062E-02_JPRB, 6.84054E-02_JPRB, &
+ & 4.87443E-02_JPRB, 2.99295E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 3.94082_JPRB    , 3.55221_JPRB    , 3.31863_JPRB    , 3.04730_JPRB    , &
+ & 2.74918_JPRB    , 2.38328_JPRB    , 1.95212_JPRB    , 1.45889_JPRB    , &
+ & 0.978888_JPRB   , 0.105102_JPRB   , 8.65732E-02_JPRB, 6.74563E-02_JPRB, &
+ & 4.76592E-02_JPRB, 2.91017E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,6) = (/ &
+ & 3.94198_JPRB    , 3.58743_JPRB    , 3.32106_JPRB    , 3.05866_JPRB    , &
+ & 2.74115_JPRB    , 2.36939_JPRB    , 1.94305_JPRB    , 1.45180_JPRB    , &
+ & 0.971784_JPRB   , 1.04045E-01_JPRB, 8.53731E-02_JPRB, 6.60654E-02_JPRB, &
+ & 4.63228E-02_JPRB, 2.91016E-02_JPRB, 1.09552E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,7) = (/ &
+ & 3.93596_JPRB    , 3.63366_JPRB    , 3.33144_JPRB    , 3.06252_JPRB    , &
+ & 2.74054_JPRB    , 2.35492_JPRB    , 1.92769_JPRB    , 1.44300_JPRB    , &
+ & 0.961809_JPRB   , 1.02867E-01_JPRB, 8.34164E-02_JPRB, 6.41005E-02_JPRB, &
+ & 4.61826E-02_JPRB, 2.91006E-02_JPRB, 1.09553E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,8) = (/ &
+ & 3.92520_JPRB    , 3.69078_JPRB    , 3.35656_JPRB    , 3.07055_JPRB    , &
+ & 2.73862_JPRB    , 2.34430_JPRB    , 1.90187_JPRB    , 1.42242_JPRB    , &
+ & 0.946676_JPRB   , 9.96302E-02_JPRB, 8.14421E-02_JPRB, 6.38622E-02_JPRB, &
+ & 4.61794E-02_JPRB, 2.91017E-02_JPRB, 1.09553E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,9) = (/ &
+ & 3.80721_JPRB    , 3.74437_JPRB    , 3.50205_JPRB    , 3.18009_JPRB    , &
+ & 2.75757_JPRB    , 2.29188_JPRB    , 1.84382_JPRB    , 1.35694_JPRB    , &
+ & 0.914040_JPRB   , 9.86811E-02_JPRB, 8.14321E-02_JPRB, 6.38541E-02_JPRB, &
+ & 4.61795E-02_JPRB, 2.90960E-02_JPRB, 1.09613E-02_JPRB, 1.57612E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 4325 cm-1.
+RAYL = 1.39E-09_JPRB
+
+STRRAT = 38.9589_JPRB
+
+LAYREFFR = 6
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.14813E-04_JPRB,0.39842E-04_JPRB,0.43362E-04_JPRB,0.43095E-04_JPRB,0.39811E-04_JPRB, &
+ & 0.34994E-04_JPRB,0.28984E-04_JPRB,0.20609E-04_JPRB,0.18845E-05_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.14432E-04_JPRB,0.38749E-04_JPRB,0.42119E-04_JPRB,0.41834E-04_JPRB,0.38900E-04_JPRB, &
+ & 0.34365E-04_JPRB,0.28571E-04_JPRB,0.20503E-04_JPRB,0.14715E-05_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.13969E-04_JPRB,0.37666E-04_JPRB,0.40942E-04_JPRB,0.40703E-04_JPRB,0.37982E-04_JPRB, &
+ & 0.33731E-04_JPRB,0.28158E-04_JPRB,0.20351E-04_JPRB,0.10842E-05_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.13367E-04_JPRB,0.36605E-04_JPRB,0.39729E-04_JPRB,0.39529E-04_JPRB,0.37033E-04_JPRB, &
+ & 0.33096E-04_JPRB,0.27690E-04_JPRB,0.20154E-04_JPRB,0.78702E-06_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.12765E-04_JPRB,0.35584E-04_JPRB,0.38536E-04_JPRB,0.38361E-04_JPRB,0.36073E-04_JPRB, &
+ & 0.32384E-04_JPRB,0.27242E-04_JPRB,0.19932E-04_JPRB,0.58296E-06_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.12299E-04_JPRB,0.34179E-04_JPRB,0.37405E-04_JPRB,0.37535E-04_JPRB,0.34714E-04_JPRB, &
+ & 0.30335E-04_JPRB,0.24892E-04_JPRB,0.17524E-04_JPRB,0.13301E-05_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.12064E-04_JPRB,0.33225E-04_JPRB,0.36357E-04_JPRB,0.36512E-04_JPRB,0.33870E-04_JPRB, &
+ & 0.29789E-04_JPRB,0.24578E-04_JPRB,0.17435E-04_JPRB,0.10217E-05_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.11697E-04_JPRB,0.32301E-04_JPRB,0.35316E-04_JPRB,0.35481E-04_JPRB,0.33049E-04_JPRB, &
+ & 0.29226E-04_JPRB,0.24233E-04_JPRB,0.17304E-04_JPRB,0.72152E-06_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.11209E-04_JPRB,0.31395E-04_JPRB,0.34263E-04_JPRB,0.34436E-04_JPRB,0.32173E-04_JPRB, &
+ & 0.28610E-04_JPRB,0.23847E-04_JPRB,0.17161E-04_JPRB,0.51787E-06_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.10706E-04_JPRB,0.30496E-04_JPRB,0.33311E-04_JPRB,0.33396E-04_JPRB,0.31295E-04_JPRB, &
+ & 0.28002E-04_JPRB,0.23445E-04_JPRB,0.16971E-04_JPRB,0.40230E-06_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.10271E-04_JPRB,0.29273E-04_JPRB,0.32049E-04_JPRB,0.32365E-04_JPRB,0.29857E-04_JPRB, &
+ & 0.26171E-04_JPRB,0.21352E-04_JPRB,0.14814E-04_JPRB,0.80470E-06_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.10058E-04_JPRB,0.28458E-04_JPRB,0.31196E-04_JPRB,0.31440E-04_JPRB,0.29133E-04_JPRB, &
+ & 0.25640E-04_JPRB,0.21056E-04_JPRB,0.14756E-04_JPRB,0.53010E-06_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.98172E-05_JPRB,0.27651E-04_JPRB,0.30352E-04_JPRB,0.30609E-04_JPRB,0.28396E-04_JPRB, &
+ & 0.25110E-04_JPRB,0.20730E-04_JPRB,0.14655E-04_JPRB,0.38652E-06_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.94577E-05_JPRB,0.26874E-04_JPRB,0.29475E-04_JPRB,0.29749E-04_JPRB,0.27669E-04_JPRB, &
+ & 0.24553E-04_JPRB,0.20400E-04_JPRB,0.14536E-04_JPRB,0.33236E-06_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.90508E-05_JPRB,0.26128E-04_JPRB,0.28631E-04_JPRB,0.28834E-04_JPRB,0.26952E-04_JPRB, &
+ & 0.24015E-04_JPRB,0.20045E-04_JPRB,0.14382E-04_JPRB,0.30659E-06_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.86081E-05_JPRB,0.24897E-04_JPRB,0.27317E-04_JPRB,0.27632E-04_JPRB,0.25465E-04_JPRB, &
+ & 0.22328E-04_JPRB,0.18112E-04_JPRB,0.12468E-04_JPRB,0.39286E-06_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.83793E-05_JPRB,0.24273E-04_JPRB,0.26590E-04_JPRB,0.26865E-04_JPRB,0.24876E-04_JPRB, &
+ & 0.21867E-04_JPRB,0.17849E-04_JPRB,0.12420E-04_JPRB,0.32266E-06_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.82296E-05_JPRB,0.23584E-04_JPRB,0.25869E-04_JPRB,0.26155E-04_JPRB,0.24255E-04_JPRB, &
+ & 0.21403E-04_JPRB,0.17579E-04_JPRB,0.12338E-04_JPRB,0.30775E-06_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.79731E-05_JPRB,0.22915E-04_JPRB,0.25166E-04_JPRB,0.25435E-04_JPRB,0.23627E-04_JPRB, &
+ & 0.20917E-04_JPRB,0.17282E-04_JPRB,0.12242E-04_JPRB,0.30418E-06_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.76553E-05_JPRB,0.22259E-04_JPRB,0.24440E-04_JPRB,0.24673E-04_JPRB,0.23003E-04_JPRB, &
+ & 0.20437E-04_JPRB,0.16984E-04_JPRB,0.12112E-04_JPRB,0.30638E-06_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.72259E-05_JPRB,0.21089E-04_JPRB,0.23177E-04_JPRB,0.23419E-04_JPRB,0.21584E-04_JPRB, &
+ & 0.18926E-04_JPRB,0.15251E-04_JPRB,0.10417E-04_JPRB,0.25170E-06_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.70215E-05_JPRB,0.20567E-04_JPRB,0.22541E-04_JPRB,0.22788E-04_JPRB,0.21102E-04_JPRB, &
+ & 0.18526E-04_JPRB,0.15049E-04_JPRB,0.10379E-04_JPRB,0.25958E-06_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.68490E-05_JPRB,0.20018E-04_JPRB,0.21938E-04_JPRB,0.22206E-04_JPRB,0.20579E-04_JPRB, &
+ & 0.18139E-04_JPRB,0.14806E-04_JPRB,0.10313E-04_JPRB,0.26666E-06_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.66973E-05_JPRB,0.19444E-04_JPRB,0.21340E-04_JPRB,0.21615E-04_JPRB,0.20070E-04_JPRB, &
+ & 0.17728E-04_JPRB,0.14554E-04_JPRB,0.10239E-04_JPRB,0.28589E-06_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.64808E-05_JPRB,0.18883E-04_JPRB,0.20738E-04_JPRB,0.20994E-04_JPRB,0.19546E-04_JPRB, &
+ & 0.17304E-04_JPRB,0.14306E-04_JPRB,0.10148E-04_JPRB,0.30886E-06_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.60727E-05_JPRB,0.17794E-04_JPRB,0.19609E-04_JPRB,0.19769E-04_JPRB,0.18228E-04_JPRB, &
+ & 0.15946E-04_JPRB,0.12793E-04_JPRB,0.86559E-05_JPRB,0.18559E-06_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.58949E-05_JPRB,0.17390E-04_JPRB,0.19059E-04_JPRB,0.19244E-04_JPRB,0.17820E-04_JPRB, &
+ & 0.15647E-04_JPRB,0.12626E-04_JPRB,0.86354E-05_JPRB,0.19544E-06_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.57268E-05_JPRB,0.16935E-04_JPRB,0.18564E-04_JPRB,0.18724E-04_JPRB,0.17402E-04_JPRB, &
+ & 0.15304E-04_JPRB,0.12433E-04_JPRB,0.85882E-05_JPRB,0.22033E-06_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.56243E-05_JPRB,0.16459E-04_JPRB,0.18054E-04_JPRB,0.18263E-04_JPRB,0.16984E-04_JPRB, &
+ & 0.14971E-04_JPRB,0.12215E-04_JPRB,0.85268E-05_JPRB,0.25072E-06_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.54584E-05_JPRB,0.15984E-04_JPRB,0.17548E-04_JPRB,0.17773E-04_JPRB,0.16551E-04_JPRB, &
+ & 0.14601E-04_JPRB,0.12004E-04_JPRB,0.84568E-05_JPRB,0.28110E-06_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.50624E-05_JPRB,0.14963E-04_JPRB,0.16482E-04_JPRB,0.16611E-04_JPRB,0.15339E-04_JPRB, &
+ & 0.13333E-04_JPRB,0.10656E-04_JPRB,0.71570E-05_JPRB,0.13453E-06_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.49428E-05_JPRB,0.14636E-04_JPRB,0.16040E-04_JPRB,0.16181E-04_JPRB,0.14992E-04_JPRB, &
+ & 0.13144E-04_JPRB,0.10533E-04_JPRB,0.71532E-05_JPRB,0.15620E-06_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.47955E-05_JPRB,0.14256E-04_JPRB,0.15611E-04_JPRB,0.15735E-04_JPRB,0.14643E-04_JPRB, &
+ & 0.12865E-04_JPRB,0.10390E-04_JPRB,0.71248E-05_JPRB,0.18571E-06_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.46743E-05_JPRB,0.13876E-04_JPRB,0.15213E-04_JPRB,0.15342E-04_JPRB,0.14293E-04_JPRB, &
+ & 0.12576E-04_JPRB,0.10215E-04_JPRB,0.70735E-05_JPRB,0.21382E-06_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.45708E-05_JPRB,0.13473E-04_JPRB,0.14782E-04_JPRB,0.14947E-04_JPRB,0.13933E-04_JPRB, &
+ & 0.12274E-04_JPRB,0.10036E-04_JPRB,0.70177E-05_JPRB,0.24419E-06_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.42289E-05_JPRB,0.12528E-04_JPRB,0.13817E-04_JPRB,0.13922E-04_JPRB,0.12867E-04_JPRB, &
+ & 0.11126E-04_JPRB,0.88468E-05_JPRB,0.59010E-05_JPRB,0.10600E-06_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.41319E-05_JPRB,0.12286E-04_JPRB,0.13480E-04_JPRB,0.13582E-04_JPRB,0.12584E-04_JPRB, &
+ & 0.10973E-04_JPRB,0.87644E-05_JPRB,0.59049E-05_JPRB,0.12951E-06_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.40317E-05_JPRB,0.11996E-04_JPRB,0.13116E-04_JPRB,0.13206E-04_JPRB,0.12295E-04_JPRB, &
+ & 0.10786E-04_JPRB,0.86537E-05_JPRB,0.58898E-05_JPRB,0.15731E-06_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.39107E-05_JPRB,0.11666E-04_JPRB,0.12771E-04_JPRB,0.12870E-04_JPRB,0.12010E-04_JPRB, &
+ & 0.10546E-04_JPRB,0.85244E-05_JPRB,0.58536E-05_JPRB,0.18716E-06_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.38384E-05_JPRB,0.11346E-04_JPRB,0.12435E-04_JPRB,0.12549E-04_JPRB,0.11706E-04_JPRB, &
+ & 0.10289E-04_JPRB,0.83756E-05_JPRB,0.58104E-05_JPRB,0.21679E-06_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.35240E-05_JPRB,0.10418E-04_JPRB,0.11558E-04_JPRB,0.11687E-04_JPRB,0.10748E-04_JPRB, &
+ & 0.92305E-05_JPRB,0.73198E-05_JPRB,0.48514E-05_JPRB,0.10176E-06_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.34478E-05_JPRB,0.10296E-04_JPRB,0.11296E-04_JPRB,0.11369E-04_JPRB,0.10532E-04_JPRB, &
+ & 0.91375E-05_JPRB,0.72737E-05_JPRB,0.48639E-05_JPRB,0.12695E-06_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.33718E-05_JPRB,0.10068E-04_JPRB,0.10996E-04_JPRB,0.11063E-04_JPRB,0.10290E-04_JPRB, &
+ & 0.89957E-05_JPRB,0.71844E-05_JPRB,0.48583E-05_JPRB,0.15482E-06_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.32801E-05_JPRB,0.97990E-05_JPRB,0.10712E-04_JPRB,0.10762E-04_JPRB,0.10056E-04_JPRB, &
+ & 0.88255E-05_JPRB,0.70907E-05_JPRB,0.48364E-05_JPRB,0.18123E-06_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.31960E-05_JPRB,0.95350E-05_JPRB,0.10427E-04_JPRB,0.10501E-04_JPRB,0.98056E-05_JPRB, &
+ & 0.86157E-05_JPRB,0.69723E-05_JPRB,0.48010E-05_JPRB,0.20738E-06_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.29197E-05_JPRB,0.86183E-05_JPRB,0.96100E-05_JPRB,0.97448E-05_JPRB,0.89187E-05_JPRB, &
+ & 0.76354E-05_JPRB,0.60318E-05_JPRB,0.39733E-05_JPRB,0.10310E-06_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.28677E-05_JPRB,0.85565E-05_JPRB,0.94191E-05_JPRB,0.94682E-05_JPRB,0.87653E-05_JPRB, &
+ & 0.75725E-05_JPRB,0.60089E-05_JPRB,0.39956E-05_JPRB,0.12951E-06_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.28036E-05_JPRB,0.84121E-05_JPRB,0.91902E-05_JPRB,0.92251E-05_JPRB,0.85811E-05_JPRB, &
+ & 0.74653E-05_JPRB,0.59452E-05_JPRB,0.39967E-05_JPRB,0.15684E-06_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.27420E-05_JPRB,0.82035E-05_JPRB,0.89440E-05_JPRB,0.89748E-05_JPRB,0.83817E-05_JPRB, &
+ & 0.73422E-05_JPRB,0.58725E-05_JPRB,0.39844E-05_JPRB,0.18564E-06_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.26596E-05_JPRB,0.79739E-05_JPRB,0.87074E-05_JPRB,0.87508E-05_JPRB,0.81784E-05_JPRB, &
+ & 0.71781E-05_JPRB,0.57815E-05_JPRB,0.39569E-05_JPRB,0.21476E-06_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.23988E-05_JPRB,0.71135E-05_JPRB,0.79121E-05_JPRB,0.80118E-05_JPRB,0.73370E-05_JPRB, &
+ & 0.62844E-05_JPRB,0.49610E-05_JPRB,0.32641E-05_JPRB,0.91697E-07_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.23552E-05_JPRB,0.70587E-05_JPRB,0.77519E-05_JPRB,0.77821E-05_JPRB,0.72113E-05_JPRB, &
+ & 0.62297E-05_JPRB,0.49407E-05_JPRB,0.32815E-05_JPRB,0.11307E-06_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.23046E-05_JPRB,0.69367E-05_JPRB,0.75662E-05_JPRB,0.75790E-05_JPRB,0.70631E-05_JPRB, &
+ & 0.61409E-05_JPRB,0.48867E-05_JPRB,0.32812E-05_JPRB,0.13715E-06_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.22557E-05_JPRB,0.67632E-05_JPRB,0.73640E-05_JPRB,0.73772E-05_JPRB,0.68972E-05_JPRB, &
+ & 0.60381E-05_JPRB,0.48254E-05_JPRB,0.32705E-05_JPRB,0.16436E-06_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.21899E-05_JPRB,0.65748E-05_JPRB,0.71695E-05_JPRB,0.71946E-05_JPRB,0.67295E-05_JPRB, &
+ & 0.59022E-05_JPRB,0.47488E-05_JPRB,0.32476E-05_JPRB,0.19025E-06_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.19699E-05_JPRB,0.58670E-05_JPRB,0.65075E-05_JPRB,0.65808E-05_JPRB,0.60300E-05_JPRB, &
+ & 0.51665E-05_JPRB,0.40749E-05_JPRB,0.26788E-05_JPRB,0.77100E-07_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.19348E-05_JPRB,0.58146E-05_JPRB,0.63730E-05_JPRB,0.63891E-05_JPRB,0.59260E-05_JPRB, &
+ & 0.51196E-05_JPRB,0.40577E-05_JPRB,0.26926E-05_JPRB,0.95693E-07_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.18947E-05_JPRB,0.57134E-05_JPRB,0.62207E-05_JPRB,0.62238E-05_JPRB,0.58090E-05_JPRB, &
+ & 0.50459E-05_JPRB,0.40113E-05_JPRB,0.26916E-05_JPRB,0.11572E-06_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.18552E-05_JPRB,0.55709E-05_JPRB,0.60522E-05_JPRB,0.60611E-05_JPRB,0.56693E-05_JPRB, &
+ & 0.49594E-05_JPRB,0.39606E-05_JPRB,0.26824E-05_JPRB,0.13797E-06_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.18040E-05_JPRB,0.54137E-05_JPRB,0.58935E-05_JPRB,0.59096E-05_JPRB,0.55294E-05_JPRB, &
+ & 0.48443E-05_JPRB,0.38977E-05_JPRB,0.26633E-05_JPRB,0.15884E-06_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.16167E-05_JPRB,0.48272E-05_JPRB,0.53475E-05_JPRB,0.53983E-05_JPRB,0.49503E-05_JPRB, &
+ & 0.42413E-05_JPRB,0.33431E-05_JPRB,0.21956E-05_JPRB,0.61381E-07_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.15895E-05_JPRB,0.47809E-05_JPRB,0.52342E-05_JPRB,0.52409E-05_JPRB,0.48652E-05_JPRB, &
+ & 0.42021E-05_JPRB,0.33263E-05_JPRB,0.22072E-05_JPRB,0.76382E-07_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.15582E-05_JPRB,0.46982E-05_JPRB,0.51055E-05_JPRB,0.51058E-05_JPRB,0.47716E-05_JPRB, &
+ & 0.41406E-05_JPRB,0.32886E-05_JPRB,0.22058E-05_JPRB,0.93083E-07_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.15242E-05_JPRB,0.45831E-05_JPRB,0.49696E-05_JPRB,0.49735E-05_JPRB,0.46534E-05_JPRB, &
+ & 0.40678E-05_JPRB,0.32469E-05_JPRB,0.21969E-05_JPRB,0.11211E-06_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.14859E-05_JPRB,0.44492E-05_JPRB,0.48392E-05_JPRB,0.48479E-05_JPRB,0.45378E-05_JPRB, &
+ & 0.39689E-05_JPRB,0.31933E-05_JPRB,0.21813E-05_JPRB,0.12970E-06_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.10138E-03_JPRB,0.20456E-03_JPRB,0.22117E-03_JPRB,0.21948E-03_JPRB,0.20805E-03_JPRB, &
+ & 0.18373E-03_JPRB,0.14999E-03_JPRB,0.95382E-04_JPRB,0.33213E-05_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.10141E-03_JPRB,0.20889E-03_JPRB,0.22456E-03_JPRB,0.22223E-03_JPRB,0.20912E-03_JPRB, &
+ & 0.18467E-03_JPRB,0.15060E-03_JPRB,0.95713E-04_JPRB,0.28479E-05_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.10125E-03_JPRB,0.21223E-03_JPRB,0.22712E-03_JPRB,0.22388E-03_JPRB,0.20983E-03_JPRB, &
+ & 0.18513E-03_JPRB,0.15100E-03_JPRB,0.95881E-04_JPRB,0.26338E-05_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.10105E-03_JPRB,0.21442E-03_JPRB,0.22863E-03_JPRB,0.22421E-03_JPRB,0.21046E-03_JPRB, &
+ & 0.18540E-03_JPRB,0.15060E-03_JPRB,0.95798E-04_JPRB,0.27638E-05_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.10040E-03_JPRB,0.21612E-03_JPRB,0.22899E-03_JPRB,0.22416E-03_JPRB,0.21046E-03_JPRB, &
+ & 0.18570E-03_JPRB,0.15001E-03_JPRB,0.95569E-04_JPRB,0.29313E-05_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.89639E-04_JPRB,0.17797E-03_JPRB,0.19284E-03_JPRB,0.18986E-03_JPRB,0.17824E-03_JPRB, &
+ & 0.15789E-03_JPRB,0.12906E-03_JPRB,0.83524E-04_JPRB,0.23926E-05_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.89499E-04_JPRB,0.18144E-03_JPRB,0.19563E-03_JPRB,0.19227E-03_JPRB,0.17941E-03_JPRB, &
+ & 0.15844E-03_JPRB,0.12961E-03_JPRB,0.83632E-04_JPRB,0.21969E-05_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.89411E-04_JPRB,0.18401E-03_JPRB,0.19753E-03_JPRB,0.19350E-03_JPRB,0.17999E-03_JPRB, &
+ & 0.15883E-03_JPRB,0.12989E-03_JPRB,0.83577E-04_JPRB,0.23158E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.88841E-04_JPRB,0.18541E-03_JPRB,0.19872E-03_JPRB,0.19398E-03_JPRB,0.18053E-03_JPRB, &
+ & 0.15907E-03_JPRB,0.12972E-03_JPRB,0.83396E-04_JPRB,0.23760E-05_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.87949E-04_JPRB,0.18659E-03_JPRB,0.19902E-03_JPRB,0.19407E-03_JPRB,0.18073E-03_JPRB, &
+ & 0.15910E-03_JPRB,0.12937E-03_JPRB,0.83120E-04_JPRB,0.25247E-05_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.77466E-04_JPRB,0.15264E-03_JPRB,0.16704E-03_JPRB,0.16342E-03_JPRB,0.15300E-03_JPRB, &
+ & 0.13499E-03_JPRB,0.11007E-03_JPRB,0.71881E-04_JPRB,0.17839E-05_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.77483E-04_JPRB,0.15611E-03_JPRB,0.16950E-03_JPRB,0.16551E-03_JPRB,0.15408E-03_JPRB, &
+ & 0.13580E-03_JPRB,0.11055E-03_JPRB,0.72020E-04_JPRB,0.18564E-05_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.77142E-04_JPRB,0.15867E-03_JPRB,0.17112E-03_JPRB,0.16672E-03_JPRB,0.15481E-03_JPRB, &
+ & 0.13616E-03_JPRB,0.11077E-03_JPRB,0.71922E-04_JPRB,0.20228E-05_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.76460E-04_JPRB,0.16058E-03_JPRB,0.17186E-03_JPRB,0.16717E-03_JPRB,0.15519E-03_JPRB, &
+ & 0.13641E-03_JPRB,0.11060E-03_JPRB,0.71775E-04_JPRB,0.21717E-05_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.75510E-04_JPRB,0.16158E-03_JPRB,0.17210E-03_JPRB,0.16730E-03_JPRB,0.15521E-03_JPRB, &
+ & 0.13649E-03_JPRB,0.11022E-03_JPRB,0.71516E-04_JPRB,0.23140E-05_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.65931E-04_JPRB,0.12940E-03_JPRB,0.14295E-03_JPRB,0.14005E-03_JPRB,0.13095E-03_JPRB, &
+ & 0.11494E-03_JPRB,0.93656E-04_JPRB,0.61167E-04_JPRB,0.17094E-05_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.66090E-04_JPRB,0.13269E-03_JPRB,0.14542E-03_JPRB,0.14233E-03_JPRB,0.13201E-03_JPRB, &
+ & 0.11558E-03_JPRB,0.93975E-04_JPRB,0.61436E-04_JPRB,0.18527E-05_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.65630E-04_JPRB,0.13532E-03_JPRB,0.14717E-03_JPRB,0.14364E-03_JPRB,0.13266E-03_JPRB, &
+ & 0.11604E-03_JPRB,0.94126E-04_JPRB,0.61467E-04_JPRB,0.19576E-05_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.64971E-04_JPRB,0.13708E-03_JPRB,0.14818E-03_JPRB,0.14427E-03_JPRB,0.13304E-03_JPRB, &
+ & 0.11616E-03_JPRB,0.94152E-04_JPRB,0.61334E-04_JPRB,0.20614E-05_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.64122E-04_JPRB,0.13834E-03_JPRB,0.14864E-03_JPRB,0.14451E-03_JPRB,0.13312E-03_JPRB, &
+ & 0.11638E-03_JPRB,0.93955E-04_JPRB,0.61162E-04_JPRB,0.21640E-05_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.55594E-04_JPRB,0.10830E-03_JPRB,0.12068E-03_JPRB,0.11865E-03_JPRB,0.11127E-03_JPRB, &
+ & 0.97925E-04_JPRB,0.79208E-04_JPRB,0.51842E-04_JPRB,0.15954E-05_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.55669E-04_JPRB,0.11117E-03_JPRB,0.12299E-03_JPRB,0.12091E-03_JPRB,0.11248E-03_JPRB, &
+ & 0.98643E-04_JPRB,0.79433E-04_JPRB,0.52127E-04_JPRB,0.16966E-05_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.55430E-04_JPRB,0.11345E-03_JPRB,0.12478E-03_JPRB,0.12235E-03_JPRB,0.11332E-03_JPRB, &
+ & 0.99117E-04_JPRB,0.79823E-04_JPRB,0.52286E-04_JPRB,0.18304E-05_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.54800E-04_JPRB,0.11543E-03_JPRB,0.12601E-03_JPRB,0.12304E-03_JPRB,0.11389E-03_JPRB, &
+ & 0.99346E-04_JPRB,0.79935E-04_JPRB,0.52275E-04_JPRB,0.19479E-05_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.54027E-04_JPRB,0.11665E-03_JPRB,0.12660E-03_JPRB,0.12339E-03_JPRB,0.11410E-03_JPRB, &
+ & 0.99535E-04_JPRB,0.79840E-04_JPRB,0.52168E-04_JPRB,0.20583E-05_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.46500E-04_JPRB,0.89887E-04_JPRB,0.10048E-03_JPRB,0.99161E-04_JPRB,0.93136E-04_JPRB, &
+ & 0.82279E-04_JPRB,0.66872E-04_JPRB,0.43617E-04_JPRB,0.14730E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.46632E-04_JPRB,0.92444E-04_JPRB,0.10271E-03_JPRB,0.10123E-03_JPRB,0.94559E-04_JPRB, &
+ & 0.83135E-04_JPRB,0.67204E-04_JPRB,0.44046E-04_JPRB,0.16215E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.46490E-04_JPRB,0.94415E-04_JPRB,0.10446E-03_JPRB,0.10269E-03_JPRB,0.95387E-04_JPRB, &
+ & 0.83676E-04_JPRB,0.67579E-04_JPRB,0.44279E-04_JPRB,0.17358E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.46004E-04_JPRB,0.96190E-04_JPRB,0.10570E-03_JPRB,0.10346E-03_JPRB,0.95883E-04_JPRB, &
+ & 0.84038E-04_JPRB,0.67753E-04_JPRB,0.44348E-04_JPRB,0.18096E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.45362E-04_JPRB,0.97511E-04_JPRB,0.10645E-03_JPRB,0.10384E-03_JPRB,0.96197E-04_JPRB, &
+ & 0.84347E-04_JPRB,0.67758E-04_JPRB,0.44305E-04_JPRB,0.18882E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.38597E-04_JPRB,0.74019E-04_JPRB,0.82882E-04_JPRB,0.81807E-04_JPRB,0.76936E-04_JPRB, &
+ & 0.68278E-04_JPRB,0.55744E-04_JPRB,0.36507E-04_JPRB,0.13400E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.38728E-04_JPRB,0.76353E-04_JPRB,0.85030E-04_JPRB,0.83822E-04_JPRB,0.78523E-04_JPRB, &
+ & 0.69221E-04_JPRB,0.56199E-04_JPRB,0.36932E-04_JPRB,0.14766E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.38688E-04_JPRB,0.78164E-04_JPRB,0.86691E-04_JPRB,0.85269E-04_JPRB,0.79424E-04_JPRB, &
+ & 0.69849E-04_JPRB,0.56507E-04_JPRB,0.37211E-04_JPRB,0.16077E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.38399E-04_JPRB,0.79654E-04_JPRB,0.87882E-04_JPRB,0.86145E-04_JPRB,0.79917E-04_JPRB, &
+ & 0.70214E-04_JPRB,0.56698E-04_JPRB,0.37302E-04_JPRB,0.17365E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.37899E-04_JPRB,0.81012E-04_JPRB,0.88706E-04_JPRB,0.86589E-04_JPRB,0.80259E-04_JPRB, &
+ & 0.70429E-04_JPRB,0.56810E-04_JPRB,0.37287E-04_JPRB,0.18595E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.31959E-04_JPRB,0.60671E-04_JPRB,0.67963E-04_JPRB,0.67053E-04_JPRB,0.63057E-04_JPRB, &
+ & 0.56287E-04_JPRB,0.46187E-04_JPRB,0.30298E-04_JPRB,0.12071E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.32062E-04_JPRB,0.62753E-04_JPRB,0.69892E-04_JPRB,0.68941E-04_JPRB,0.64624E-04_JPRB, &
+ & 0.57187E-04_JPRB,0.46566E-04_JPRB,0.30687E-04_JPRB,0.13582E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.32098E-04_JPRB,0.64435E-04_JPRB,0.71423E-04_JPRB,0.70359E-04_JPRB,0.65646E-04_JPRB, &
+ & 0.57882E-04_JPRB,0.46897E-04_JPRB,0.30993E-04_JPRB,0.15217E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.31956E-04_JPRB,0.65758E-04_JPRB,0.72650E-04_JPRB,0.71275E-04_JPRB,0.66275E-04_JPRB, &
+ & 0.58298E-04_JPRB,0.47100E-04_JPRB,0.31079E-04_JPRB,0.16794E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.31584E-04_JPRB,0.66916E-04_JPRB,0.73502E-04_JPRB,0.71819E-04_JPRB,0.66611E-04_JPRB, &
+ & 0.58505E-04_JPRB,0.47243E-04_JPRB,0.31088E-04_JPRB,0.18250E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.26355E-04_JPRB,0.49472E-04_JPRB,0.55415E-04_JPRB,0.54584E-04_JPRB,0.51361E-04_JPRB, &
+ & 0.46135E-04_JPRB,0.38027E-04_JPRB,0.24983E-04_JPRB,0.13549E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.26472E-04_JPRB,0.51302E-04_JPRB,0.57165E-04_JPRB,0.56417E-04_JPRB,0.52936E-04_JPRB, &
+ & 0.47048E-04_JPRB,0.38417E-04_JPRB,0.25347E-04_JPRB,0.14941E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.26545E-04_JPRB,0.52866E-04_JPRB,0.58563E-04_JPRB,0.57776E-04_JPRB,0.53988E-04_JPRB, &
+ & 0.47706E-04_JPRB,0.38739E-04_JPRB,0.25638E-04_JPRB,0.16563E-05_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.26469E-04_JPRB,0.54105E-04_JPRB,0.59749E-04_JPRB,0.58746E-04_JPRB,0.54668E-04_JPRB, &
+ & 0.48161E-04_JPRB,0.38970E-04_JPRB,0.25744E-04_JPRB,0.18262E-05_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.26248E-04_JPRB,0.55079E-04_JPRB,0.60619E-04_JPRB,0.59317E-04_JPRB,0.55099E-04_JPRB, &
+ & 0.48435E-04_JPRB,0.39115E-04_JPRB,0.25778E-04_JPRB,0.20238E-05_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.21631E-04_JPRB,0.40297E-04_JPRB,0.45170E-04_JPRB,0.44298E-04_JPRB,0.41876E-04_JPRB, &
+ & 0.37690E-04_JPRB,0.31212E-04_JPRB,0.20552E-04_JPRB,0.16328E-05_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.21814E-04_JPRB,0.41896E-04_JPRB,0.46681E-04_JPRB,0.46065E-04_JPRB,0.43227E-04_JPRB, &
+ & 0.38608E-04_JPRB,0.31614E-04_JPRB,0.20857E-04_JPRB,0.18610E-05_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.21864E-04_JPRB,0.43247E-04_JPRB,0.47945E-04_JPRB,0.47327E-04_JPRB,0.44273E-04_JPRB, &
+ & 0.39201E-04_JPRB,0.31894E-04_JPRB,0.21119E-04_JPRB,0.20775E-05_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.21835E-04_JPRB,0.44386E-04_JPRB,0.48986E-04_JPRB,0.48228E-04_JPRB,0.44916E-04_JPRB, &
+ & 0.39637E-04_JPRB,0.32093E-04_JPRB,0.21228E-04_JPRB,0.22541E-05_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.21728E-04_JPRB,0.45263E-04_JPRB,0.49804E-04_JPRB,0.48818E-04_JPRB,0.45409E-04_JPRB, &
+ & 0.39950E-04_JPRB,0.32269E-04_JPRB,0.21290E-04_JPRB,0.24525E-05_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.17823E-04_JPRB,0.33378E-04_JPRB,0.37337E-04_JPRB,0.36619E-04_JPRB,0.34598E-04_JPRB, &
+ & 0.31113E-04_JPRB,0.25761E-04_JPRB,0.16956E-04_JPRB,0.15042E-05_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.17970E-04_JPRB,0.34679E-04_JPRB,0.38589E-04_JPRB,0.38065E-04_JPRB,0.35695E-04_JPRB, &
+ & 0.31869E-04_JPRB,0.26044E-04_JPRB,0.17214E-04_JPRB,0.16847E-05_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.17997E-04_JPRB,0.35791E-04_JPRB,0.39619E-04_JPRB,0.39097E-04_JPRB,0.36539E-04_JPRB, &
+ & 0.32374E-04_JPRB,0.26298E-04_JPRB,0.17428E-04_JPRB,0.18887E-05_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.17967E-04_JPRB,0.36717E-04_JPRB,0.40463E-04_JPRB,0.39821E-04_JPRB,0.37071E-04_JPRB, &
+ & 0.32716E-04_JPRB,0.26461E-04_JPRB,0.17496E-04_JPRB,0.20546E-05_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.17868E-04_JPRB,0.37423E-04_JPRB,0.41124E-04_JPRB,0.40304E-04_JPRB,0.37473E-04_JPRB, &
+ & 0.32971E-04_JPRB,0.26612E-04_JPRB,0.17532E-04_JPRB,0.22240E-05_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.14665E-04_JPRB,0.27605E-04_JPRB,0.30811E-04_JPRB,0.30250E-04_JPRB,0.28525E-04_JPRB, &
+ & 0.25644E-04_JPRB,0.21186E-04_JPRB,0.13955E-04_JPRB,0.12588E-05_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.14775E-04_JPRB,0.28655E-04_JPRB,0.31851E-04_JPRB,0.31408E-04_JPRB,0.29418E-04_JPRB, &
+ & 0.26261E-04_JPRB,0.21430E-04_JPRB,0.14172E-04_JPRB,0.14181E-05_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.14799E-04_JPRB,0.29571E-04_JPRB,0.32687E-04_JPRB,0.32242E-04_JPRB,0.30093E-04_JPRB, &
+ & 0.26683E-04_JPRB,0.21636E-04_JPRB,0.14338E-04_JPRB,0.15619E-05_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.14777E-04_JPRB,0.30325E-04_JPRB,0.33371E-04_JPRB,0.32826E-04_JPRB,0.30553E-04_JPRB, &
+ & 0.26945E-04_JPRB,0.21775E-04_JPRB,0.14380E-04_JPRB,0.16917E-05_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.14685E-04_JPRB,0.30904E-04_JPRB,0.33907E-04_JPRB,0.33214E-04_JPRB,0.30875E-04_JPRB, &
+ & 0.27158E-04_JPRB,0.21883E-04_JPRB,0.14414E-04_JPRB,0.18423E-05_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.12044E-04_JPRB,0.22772E-04_JPRB,0.25375E-04_JPRB,0.24926E-04_JPRB,0.23458E-04_JPRB, &
+ & 0.21059E-04_JPRB,0.17387E-04_JPRB,0.11457E-04_JPRB,0.99122E-06_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.12128E-04_JPRB,0.23637E-04_JPRB,0.26249E-04_JPRB,0.25842E-04_JPRB,0.24187E-04_JPRB, &
+ & 0.21582E-04_JPRB,0.17590E-04_JPRB,0.11636E-04_JPRB,0.11037E-05_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.12152E-04_JPRB,0.24386E-04_JPRB,0.26910E-04_JPRB,0.26531E-04_JPRB,0.24731E-04_JPRB, &
+ & 0.21923E-04_JPRB,0.17760E-04_JPRB,0.11755E-04_JPRB,0.12026E-05_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.12130E-04_JPRB,0.24996E-04_JPRB,0.27464E-04_JPRB,0.27006E-04_JPRB,0.25113E-04_JPRB, &
+ & 0.22138E-04_JPRB,0.17874E-04_JPRB,0.11797E-04_JPRB,0.13028E-05_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.12050E-04_JPRB,0.25474E-04_JPRB,0.27895E-04_JPRB,0.27297E-04_JPRB,0.25373E-04_JPRB, &
+ & 0.22302E-04_JPRB,0.17948E-04_JPRB,0.11817E-04_JPRB,0.14010E-05_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.36823E-03_JPRB,0.49613E-03_JPRB,0.51817E-03_JPRB,0.50538E-03_JPRB,0.45711E-03_JPRB, &
+ & 0.39605E-03_JPRB,0.31486E-03_JPRB,0.21474E-03_JPRB,0.10932E-04_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.37008E-03_JPRB,0.50778E-03_JPRB,0.53361E-03_JPRB,0.51778E-03_JPRB,0.46995E-03_JPRB, &
+ & 0.40629E-03_JPRB,0.32309E-03_JPRB,0.21878E-03_JPRB,0.11421E-04_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.36989E-03_JPRB,0.51812E-03_JPRB,0.54699E-03_JPRB,0.52922E-03_JPRB,0.48036E-03_JPRB, &
+ & 0.41559E-03_JPRB,0.32965E-03_JPRB,0.22226E-03_JPRB,0.12395E-04_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.36721E-03_JPRB,0.52763E-03_JPRB,0.55746E-03_JPRB,0.53957E-03_JPRB,0.48891E-03_JPRB, &
+ & 0.42313E-03_JPRB,0.33545E-03_JPRB,0.22588E-03_JPRB,0.13515E-04_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.36313E-03_JPRB,0.53652E-03_JPRB,0.56680E-03_JPRB,0.54791E-03_JPRB,0.49664E-03_JPRB, &
+ & 0.42907E-03_JPRB,0.34043E-03_JPRB,0.22916E-03_JPRB,0.14734E-04_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.32411E-03_JPRB,0.42815E-03_JPRB,0.44725E-03_JPRB,0.43813E-03_JPRB,0.40150E-03_JPRB, &
+ & 0.34871E-03_JPRB,0.27912E-03_JPRB,0.18929E-03_JPRB,0.80741E-05_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.32567E-03_JPRB,0.43786E-03_JPRB,0.46069E-03_JPRB,0.45027E-03_JPRB,0.41319E-03_JPRB, &
+ & 0.35819E-03_JPRB,0.28635E-03_JPRB,0.19325E-03_JPRB,0.87340E-05_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.32429E-03_JPRB,0.44638E-03_JPRB,0.47228E-03_JPRB,0.46074E-03_JPRB,0.42272E-03_JPRB, &
+ & 0.36602E-03_JPRB,0.29201E-03_JPRB,0.19653E-03_JPRB,0.96110E-05_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.32137E-03_JPRB,0.45531E-03_JPRB,0.48142E-03_JPRB,0.46951E-03_JPRB,0.42996E-03_JPRB, &
+ & 0.37250E-03_JPRB,0.29709E-03_JPRB,0.19974E-03_JPRB,0.10697E-04_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.31776E-03_JPRB,0.46207E-03_JPRB,0.48880E-03_JPRB,0.47659E-03_JPRB,0.43551E-03_JPRB, &
+ & 0.37776E-03_JPRB,0.30138E-03_JPRB,0.20274E-03_JPRB,0.11704E-04_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.28488E-03_JPRB,0.36767E-03_JPRB,0.38081E-03_JPRB,0.37438E-03_JPRB,0.34525E-03_JPRB, &
+ & 0.30150E-03_JPRB,0.24332E-03_JPRB,0.16415E-03_JPRB,0.63970E-05_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.28539E-03_JPRB,0.37509E-03_JPRB,0.39196E-03_JPRB,0.38510E-03_JPRB,0.35566E-03_JPRB, &
+ & 0.30998E-03_JPRB,0.24963E-03_JPRB,0.16766E-03_JPRB,0.72006E-05_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.28397E-03_JPRB,0.38215E-03_JPRB,0.40156E-03_JPRB,0.39428E-03_JPRB,0.36418E-03_JPRB, &
+ & 0.31727E-03_JPRB,0.25446E-03_JPRB,0.17107E-03_JPRB,0.79574E-05_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.28134E-03_JPRB,0.38867E-03_JPRB,0.40959E-03_JPRB,0.40230E-03_JPRB,0.37093E-03_JPRB, &
+ & 0.32301E-03_JPRB,0.25898E-03_JPRB,0.17447E-03_JPRB,0.87131E-05_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.27886E-03_JPRB,0.39360E-03_JPRB,0.41642E-03_JPRB,0.40852E-03_JPRB,0.37609E-03_JPRB, &
+ & 0.32740E-03_JPRB,0.26312E-03_JPRB,0.17737E-03_JPRB,0.94704E-05_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.24923E-03_JPRB,0.31555E-03_JPRB,0.32423E-03_JPRB,0.31731E-03_JPRB,0.29410E-03_JPRB, &
+ & 0.25671E-03_JPRB,0.20762E-03_JPRB,0.14074E-03_JPRB,0.55877E-05_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.24977E-03_JPRB,0.32120E-03_JPRB,0.33372E-03_JPRB,0.32657E-03_JPRB,0.30295E-03_JPRB, &
+ & 0.26472E-03_JPRB,0.21303E-03_JPRB,0.14396E-03_JPRB,0.61575E-05_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.24865E-03_JPRB,0.32668E-03_JPRB,0.34180E-03_JPRB,0.33446E-03_JPRB,0.31033E-03_JPRB, &
+ & 0.27144E-03_JPRB,0.21777E-03_JPRB,0.14714E-03_JPRB,0.67916E-05_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.24709E-03_JPRB,0.33133E-03_JPRB,0.34841E-03_JPRB,0.34134E-03_JPRB,0.31600E-03_JPRB, &
+ & 0.27647E-03_JPRB,0.22179E-03_JPRB,0.15016E-03_JPRB,0.74653E-05_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.24455E-03_JPRB,0.33491E-03_JPRB,0.35388E-03_JPRB,0.34708E-03_JPRB,0.32069E-03_JPRB, &
+ & 0.28005E-03_JPRB,0.22522E-03_JPRB,0.15242E-03_JPRB,0.81619E-05_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.21526E-03_JPRB,0.27115E-03_JPRB,0.27505E-03_JPRB,0.26802E-03_JPRB,0.24968E-03_JPRB, &
+ & 0.21690E-03_JPRB,0.17481E-03_JPRB,0.11906E-03_JPRB,0.50850E-05_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.21611E-03_JPRB,0.27621E-03_JPRB,0.28298E-03_JPRB,0.27620E-03_JPRB,0.25722E-03_JPRB, &
+ & 0.22411E-03_JPRB,0.18004E-03_JPRB,0.12197E-03_JPRB,0.55738E-05_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.21583E-03_JPRB,0.28060E-03_JPRB,0.28955E-03_JPRB,0.28282E-03_JPRB,0.26346E-03_JPRB, &
+ & 0.23005E-03_JPRB,0.18415E-03_JPRB,0.12451E-03_JPRB,0.60864E-05_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.21446E-03_JPRB,0.28363E-03_JPRB,0.29469E-03_JPRB,0.28896E-03_JPRB,0.26860E-03_JPRB, &
+ & 0.23435E-03_JPRB,0.18768E-03_JPRB,0.12690E-03_JPRB,0.66417E-05_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.21217E-03_JPRB,0.28626E-03_JPRB,0.29929E-03_JPRB,0.29370E-03_JPRB,0.27250E-03_JPRB, &
+ & 0.23763E-03_JPRB,0.19073E-03_JPRB,0.12909E-03_JPRB,0.72122E-05_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.18262E-03_JPRB,0.23112E-03_JPRB,0.23388E-03_JPRB,0.22681E-03_JPRB,0.21062E-03_JPRB, &
+ & 0.18196E-03_JPRB,0.14634E-03_JPRB,0.99707E-04_JPRB,0.48078E-05_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.18393E-03_JPRB,0.23591E-03_JPRB,0.24094E-03_JPRB,0.23364E-03_JPRB,0.21663E-03_JPRB, &
+ & 0.18814E-03_JPRB,0.15114E-03_JPRB,0.10205E-03_JPRB,0.52252E-05_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.18379E-03_JPRB,0.23984E-03_JPRB,0.24676E-03_JPRB,0.23956E-03_JPRB,0.22221E-03_JPRB, &
+ & 0.19356E-03_JPRB,0.15489E-03_JPRB,0.10434E-03_JPRB,0.56405E-05_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.18270E-03_JPRB,0.24258E-03_JPRB,0.25102E-03_JPRB,0.24458E-03_JPRB,0.22685E-03_JPRB, &
+ & 0.19771E-03_JPRB,0.15805E-03_JPRB,0.10655E-03_JPRB,0.60728E-05_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.18067E-03_JPRB,0.24446E-03_JPRB,0.25467E-03_JPRB,0.24894E-03_JPRB,0.23051E-03_JPRB, &
+ & 0.20056E-03_JPRB,0.16088E-03_JPRB,0.10844E-03_JPRB,0.65160E-05_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.15269E-03_JPRB,0.19407E-03_JPRB,0.19640E-03_JPRB,0.19073E-03_JPRB,0.17715E-03_JPRB, &
+ & 0.15224E-03_JPRB,0.12181E-03_JPRB,0.83302E-04_JPRB,0.45185E-05_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.15450E-03_JPRB,0.19834E-03_JPRB,0.20246E-03_JPRB,0.19675E-03_JPRB,0.18242E-03_JPRB, &
+ & 0.15776E-03_JPRB,0.12610E-03_JPRB,0.85306E-04_JPRB,0.49315E-05_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.15459E-03_JPRB,0.20178E-03_JPRB,0.20759E-03_JPRB,0.20176E-03_JPRB,0.18737E-03_JPRB, &
+ & 0.16233E-03_JPRB,0.12951E-03_JPRB,0.87417E-04_JPRB,0.53491E-05_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.15368E-03_JPRB,0.20410E-03_JPRB,0.21160E-03_JPRB,0.20623E-03_JPRB,0.19161E-03_JPRB, &
+ & 0.16603E-03_JPRB,0.13246E-03_JPRB,0.89237E-04_JPRB,0.57562E-05_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.15207E-03_JPRB,0.20567E-03_JPRB,0.21458E-03_JPRB,0.20991E-03_JPRB,0.19525E-03_JPRB, &
+ & 0.16906E-03_JPRB,0.13481E-03_JPRB,0.90932E-04_JPRB,0.61659E-05_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.12672E-03_JPRB,0.16159E-03_JPRB,0.16329E-03_JPRB,0.15821E-03_JPRB,0.14746E-03_JPRB, &
+ & 0.12624E-03_JPRB,0.10116E-03_JPRB,0.69306E-04_JPRB,0.46652E-05_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.12853E-03_JPRB,0.16539E-03_JPRB,0.16859E-03_JPRB,0.16359E-03_JPRB,0.15208E-03_JPRB, &
+ & 0.13120E-03_JPRB,0.10513E-03_JPRB,0.71005E-04_JPRB,0.51392E-05_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.12901E-03_JPRB,0.16841E-03_JPRB,0.17301E-03_JPRB,0.16813E-03_JPRB,0.15614E-03_JPRB, &
+ & 0.13532E-03_JPRB,0.10829E-03_JPRB,0.72863E-04_JPRB,0.55244E-05_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.12833E-03_JPRB,0.17058E-03_JPRB,0.17652E-03_JPRB,0.17184E-03_JPRB,0.15971E-03_JPRB, &
+ & 0.13867E-03_JPRB,0.11087E-03_JPRB,0.74475E-04_JPRB,0.58193E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.12715E-03_JPRB,0.17197E-03_JPRB,0.17918E-03_JPRB,0.17513E-03_JPRB,0.16292E-03_JPRB, &
+ & 0.14144E-03_JPRB,0.11301E-03_JPRB,0.75965E-04_JPRB,0.61705E-05_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.10428E-03_JPRB,0.13348E-03_JPRB,0.13462E-03_JPRB,0.12995E-03_JPRB,0.12158E-03_JPRB, &
+ & 0.10379E-03_JPRB,0.83005E-04_JPRB,0.57371E-04_JPRB,0.55965E-05_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.10619E-03_JPRB,0.13710E-03_JPRB,0.13932E-03_JPRB,0.13469E-03_JPRB,0.12538E-03_JPRB, &
+ & 0.10800E-03_JPRB,0.86632E-04_JPRB,0.58954E-04_JPRB,0.61961E-05_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.10690E-03_JPRB,0.13978E-03_JPRB,0.14315E-03_JPRB,0.13877E-03_JPRB,0.12885E-03_JPRB, &
+ & 0.11169E-03_JPRB,0.89643E-04_JPRB,0.60568E-04_JPRB,0.68526E-05_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.10668E-03_JPRB,0.14178E-03_JPRB,0.14626E-03_JPRB,0.14213E-03_JPRB,0.13207E-03_JPRB, &
+ & 0.11468E-03_JPRB,0.91984E-04_JPRB,0.62070E-04_JPRB,0.75122E-05_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.10582E-03_JPRB,0.14316E-03_JPRB,0.14873E-03_JPRB,0.14501E-03_JPRB,0.13471E-03_JPRB, &
+ & 0.11704E-03_JPRB,0.93876E-04_JPRB,0.63388E-04_JPRB,0.80761E-05_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.85476E-04_JPRB,0.10982E-03_JPRB,0.11034E-03_JPRB,0.10643E-03_JPRB,0.99702E-04_JPRB, &
+ & 0.84967E-04_JPRB,0.68008E-04_JPRB,0.47229E-04_JPRB,0.66145E-05_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.87242E-04_JPRB,0.11322E-03_JPRB,0.11463E-03_JPRB,0.11045E-03_JPRB,0.10293E-03_JPRB, &
+ & 0.88580E-04_JPRB,0.71113E-04_JPRB,0.48631E-04_JPRB,0.75452E-05_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.88111E-04_JPRB,0.11563E-03_JPRB,0.11792E-03_JPRB,0.11404E-03_JPRB,0.10587E-03_JPRB, &
+ & 0.91877E-04_JPRB,0.73790E-04_JPRB,0.50044E-04_JPRB,0.84881E-05_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.88200E-04_JPRB,0.11743E-03_JPRB,0.12065E-03_JPRB,0.11708E-03_JPRB,0.10870E-03_JPRB, &
+ & 0.94480E-04_JPRB,0.75897E-04_JPRB,0.51384E-04_JPRB,0.95136E-05_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.87583E-04_JPRB,0.11871E-03_JPRB,0.12292E-03_JPRB,0.11954E-03_JPRB,0.11103E-03_JPRB, &
+ & 0.96523E-04_JPRB,0.77526E-04_JPRB,0.52518E-04_JPRB,0.10532E-04_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.70556E-04_JPRB,0.91428E-04_JPRB,0.91867E-04_JPRB,0.88463E-04_JPRB,0.82846E-04_JPRB, &
+ & 0.70774E-04_JPRB,0.56632E-04_JPRB,0.39167E-04_JPRB,0.61872E-05_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.71933E-04_JPRB,0.94182E-04_JPRB,0.95269E-04_JPRB,0.91646E-04_JPRB,0.85383E-04_JPRB, &
+ & 0.73738E-04_JPRB,0.59219E-04_JPRB,0.40474E-04_JPRB,0.69965E-05_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.72567E-04_JPRB,0.96098E-04_JPRB,0.97927E-04_JPRB,0.94606E-04_JPRB,0.87837E-04_JPRB, &
+ & 0.76370E-04_JPRB,0.61326E-04_JPRB,0.41633E-04_JPRB,0.78235E-05_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.72529E-04_JPRB,0.97532E-04_JPRB,0.10011E-03_JPRB,0.97076E-04_JPRB,0.90134E-04_JPRB, &
+ & 0.78428E-04_JPRB,0.63016E-04_JPRB,0.42754E-04_JPRB,0.87904E-05_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.71990E-04_JPRB,0.98552E-04_JPRB,0.10193E-03_JPRB,0.99080E-04_JPRB,0.92091E-04_JPRB, &
+ & 0.80068E-04_JPRB,0.64349E-04_JPRB,0.43674E-04_JPRB,0.98011E-05_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.58072E-04_JPRB,0.75815E-04_JPRB,0.76168E-04_JPRB,0.73252E-04_JPRB,0.68521E-04_JPRB, &
+ & 0.58748E-04_JPRB,0.47029E-04_JPRB,0.32430E-04_JPRB,0.51838E-05_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.59149E-04_JPRB,0.78005E-04_JPRB,0.78889E-04_JPRB,0.75853E-04_JPRB,0.70691E-04_JPRB, &
+ & 0.61160E-04_JPRB,0.49105E-04_JPRB,0.33572E-04_JPRB,0.58669E-05_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.59615E-04_JPRB,0.79572E-04_JPRB,0.81043E-04_JPRB,0.78301E-04_JPRB,0.72716E-04_JPRB, &
+ & 0.63265E-04_JPRB,0.50777E-04_JPRB,0.34506E-04_JPRB,0.66464E-05_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.59506E-04_JPRB,0.80712E-04_JPRB,0.82811E-04_JPRB,0.80321E-04_JPRB,0.74571E-04_JPRB, &
+ & 0.64935E-04_JPRB,0.52165E-04_JPRB,0.35447E-04_JPRB,0.74412E-05_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.59067E-04_JPRB,0.81520E-04_JPRB,0.84288E-04_JPRB,0.81977E-04_JPRB,0.76172E-04_JPRB, &
+ & 0.66259E-04_JPRB,0.53281E-04_JPRB,0.36178E-04_JPRB,0.82465E-05_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.47640E-04_JPRB,0.62583E-04_JPRB,0.62887E-04_JPRB,0.60485E-04_JPRB,0.56559E-04_JPRB, &
+ & 0.48624E-04_JPRB,0.38904E-04_JPRB,0.26773E-04_JPRB,0.40582E-05_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.48498E-04_JPRB,0.64379E-04_JPRB,0.65087E-04_JPRB,0.62641E-04_JPRB,0.58377E-04_JPRB, &
+ & 0.50572E-04_JPRB,0.40566E-04_JPRB,0.27717E-04_JPRB,0.46616E-05_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.48844E-04_JPRB,0.65656E-04_JPRB,0.66851E-04_JPRB,0.64628E-04_JPRB,0.60042E-04_JPRB, &
+ & 0.52254E-04_JPRB,0.41917E-04_JPRB,0.28510E-04_JPRB,0.53204E-05_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.48722E-04_JPRB,0.66574E-04_JPRB,0.68303E-04_JPRB,0.66300E-04_JPRB,0.61547E-04_JPRB, &
+ & 0.53614E-04_JPRB,0.43058E-04_JPRB,0.29254E-04_JPRB,0.59442E-05_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.48355E-04_JPRB,0.67217E-04_JPRB,0.69511E-04_JPRB,0.67651E-04_JPRB,0.62864E-04_JPRB, &
+ & 0.54712E-04_JPRB,0.43998E-04_JPRB,0.29875E-04_JPRB,0.66436E-05_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.85387E-03_JPRB,0.97268E-03_JPRB,0.95201E-03_JPRB,0.89226E-03_JPRB,0.81465E-03_JPRB, &
+ & 0.69707E-03_JPRB,0.54829E-03_JPRB,0.35882E-03_JPRB,0.37920E-04_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.85496E-03_JPRB,0.98746E-03_JPRB,0.97188E-03_JPRB,0.91775E-03_JPRB,0.83529E-03_JPRB, &
+ & 0.71649E-03_JPRB,0.56376E-03_JPRB,0.37061E-03_JPRB,0.43155E-04_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.85154E-03_JPRB,0.99908E-03_JPRB,0.98969E-03_JPRB,0.94014E-03_JPRB,0.85604E-03_JPRB, &
+ & 0.73379E-03_JPRB,0.57832E-03_JPRB,0.38183E-03_JPRB,0.48702E-04_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.84606E-03_JPRB,0.10090E-02_JPRB,0.10068E-02_JPRB,0.95944E-03_JPRB,0.87434E-03_JPRB, &
+ & 0.74975E-03_JPRB,0.59243E-03_JPRB,0.39188E-03_JPRB,0.54022E-04_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.84061E-03_JPRB,0.10171E-02_JPRB,0.10218E-02_JPRB,0.97684E-03_JPRB,0.88906E-03_JPRB, &
+ & 0.76345E-03_JPRB,0.60471E-03_JPRB,0.40180E-03_JPRB,0.59778E-04_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.76106E-03_JPRB,0.86763E-03_JPRB,0.84620E-03_JPRB,0.79337E-03_JPRB,0.72368E-03_JPRB, &
+ & 0.62633E-03_JPRB,0.49168E-03_JPRB,0.32346E-03_JPRB,0.31322E-04_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.76153E-03_JPRB,0.88148E-03_JPRB,0.86349E-03_JPRB,0.81559E-03_JPRB,0.74480E-03_JPRB, &
+ & 0.64448E-03_JPRB,0.50635E-03_JPRB,0.33430E-03_JPRB,0.35566E-04_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.75977E-03_JPRB,0.89195E-03_JPRB,0.87871E-03_JPRB,0.83605E-03_JPRB,0.76286E-03_JPRB, &
+ & 0.66127E-03_JPRB,0.51959E-03_JPRB,0.34472E-03_JPRB,0.39705E-04_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.75771E-03_JPRB,0.89987E-03_JPRB,0.89406E-03_JPRB,0.85530E-03_JPRB,0.78123E-03_JPRB, &
+ & 0.67612E-03_JPRB,0.53221E-03_JPRB,0.35447E-03_JPRB,0.44266E-04_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.75289E-03_JPRB,0.90657E-03_JPRB,0.90771E-03_JPRB,0.87200E-03_JPRB,0.79715E-03_JPRB, &
+ & 0.68926E-03_JPRB,0.54382E-03_JPRB,0.36372E-03_JPRB,0.48708E-04_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.66893E-03_JPRB,0.76246E-03_JPRB,0.74334E-03_JPRB,0.69752E-03_JPRB,0.63501E-03_JPRB, &
+ & 0.55362E-03_JPRB,0.43455E-03_JPRB,0.28843E-03_JPRB,0.24260E-04_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.67118E-03_JPRB,0.77588E-03_JPRB,0.75944E-03_JPRB,0.71710E-03_JPRB,0.65461E-03_JPRB, &
+ & 0.57122E-03_JPRB,0.44991E-03_JPRB,0.29906E-03_JPRB,0.27434E-04_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.67218E-03_JPRB,0.78505E-03_JPRB,0.77328E-03_JPRB,0.73497E-03_JPRB,0.67286E-03_JPRB, &
+ & 0.58718E-03_JPRB,0.46375E-03_JPRB,0.30933E-03_JPRB,0.30808E-04_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.67058E-03_JPRB,0.79242E-03_JPRB,0.78627E-03_JPRB,0.75181E-03_JPRB,0.68946E-03_JPRB, &
+ & 0.60183E-03_JPRB,0.47532E-03_JPRB,0.31743E-03_JPRB,0.34324E-04_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.66467E-03_JPRB,0.79822E-03_JPRB,0.79776E-03_JPRB,0.76779E-03_JPRB,0.70481E-03_JPRB, &
+ & 0.61510E-03_JPRB,0.48553E-03_JPRB,0.32526E-03_JPRB,0.37905E-04_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.58297E-03_JPRB,0.66020E-03_JPRB,0.64337E-03_JPRB,0.60610E-03_JPRB,0.55222E-03_JPRB, &
+ & 0.48338E-03_JPRB,0.38154E-03_JPRB,0.25537E-03_JPRB,0.20054E-04_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.58616E-03_JPRB,0.67311E-03_JPRB,0.65764E-03_JPRB,0.62362E-03_JPRB,0.56996E-03_JPRB, &
+ & 0.49939E-03_JPRB,0.39657E-03_JPRB,0.26418E-03_JPRB,0.22457E-04_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.58719E-03_JPRB,0.68291E-03_JPRB,0.67014E-03_JPRB,0.63926E-03_JPRB,0.58703E-03_JPRB, &
+ & 0.51453E-03_JPRB,0.40976E-03_JPRB,0.27280E-03_JPRB,0.24974E-04_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.58451E-03_JPRB,0.68925E-03_JPRB,0.68144E-03_JPRB,0.65410E-03_JPRB,0.60312E-03_JPRB, &
+ & 0.52903E-03_JPRB,0.42147E-03_JPRB,0.28096E-03_JPRB,0.27613E-04_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.57885E-03_JPRB,0.69369E-03_JPRB,0.69153E-03_JPRB,0.66725E-03_JPRB,0.61666E-03_JPRB, &
+ & 0.54114E-03_JPRB,0.43123E-03_JPRB,0.28907E-03_JPRB,0.30243E-04_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.50639E-03_JPRB,0.56897E-03_JPRB,0.55412E-03_JPRB,0.52127E-03_JPRB,0.47341E-03_JPRB, &
+ & 0.41669E-03_JPRB,0.33293E-03_JPRB,0.22215E-03_JPRB,0.17057E-04_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.51065E-03_JPRB,0.58111E-03_JPRB,0.56740E-03_JPRB,0.53642E-03_JPRB,0.48970E-03_JPRB, &
+ & 0.43166E-03_JPRB,0.34671E-03_JPRB,0.23111E-03_JPRB,0.19191E-04_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.51131E-03_JPRB,0.58923E-03_JPRB,0.57802E-03_JPRB,0.54989E-03_JPRB,0.50519E-03_JPRB, &
+ & 0.44520E-03_JPRB,0.35867E-03_JPRB,0.23955E-03_JPRB,0.21238E-04_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.50888E-03_JPRB,0.59432E-03_JPRB,0.58700E-03_JPRB,0.56238E-03_JPRB,0.51899E-03_JPRB, &
+ & 0.45787E-03_JPRB,0.36960E-03_JPRB,0.24733E-03_JPRB,0.23442E-04_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.50411E-03_JPRB,0.59804E-03_JPRB,0.59497E-03_JPRB,0.57342E-03_JPRB,0.53158E-03_JPRB, &
+ & 0.46924E-03_JPRB,0.37886E-03_JPRB,0.25450E-03_JPRB,0.25756E-04_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.43673E-03_JPRB,0.48782E-03_JPRB,0.47499E-03_JPRB,0.44629E-03_JPRB,0.40354E-03_JPRB, &
+ & 0.35457E-03_JPRB,0.28605E-03_JPRB,0.19086E-03_JPRB,0.14702E-04_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.44102E-03_JPRB,0.49831E-03_JPRB,0.48639E-03_JPRB,0.45943E-03_JPRB,0.41879E-03_JPRB, &
+ & 0.36808E-03_JPRB,0.29802E-03_JPRB,0.19985E-03_JPRB,0.16471E-04_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.44221E-03_JPRB,0.50518E-03_JPRB,0.49538E-03_JPRB,0.47075E-03_JPRB,0.43183E-03_JPRB, &
+ & 0.37995E-03_JPRB,0.30882E-03_JPRB,0.20763E-03_JPRB,0.18420E-04_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.44017E-03_JPRB,0.50994E-03_JPRB,0.50323E-03_JPRB,0.48141E-03_JPRB,0.44360E-03_JPRB, &
+ & 0.39116E-03_JPRB,0.31844E-03_JPRB,0.21460E-03_JPRB,0.20473E-04_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.43656E-03_JPRB,0.51249E-03_JPRB,0.51000E-03_JPRB,0.49068E-03_JPRB,0.45425E-03_JPRB, &
+ & 0.40107E-03_JPRB,0.32653E-03_JPRB,0.22109E-03_JPRB,0.22600E-04_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.37627E-03_JPRB,0.41525E-03_JPRB,0.40365E-03_JPRB,0.37923E-03_JPRB,0.34257E-03_JPRB, &
+ & 0.30147E-03_JPRB,0.24324E-03_JPRB,0.16094E-03_JPRB,0.13400E-04_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.38051E-03_JPRB,0.42489E-03_JPRB,0.41400E-03_JPRB,0.39067E-03_JPRB,0.35555E-03_JPRB, &
+ & 0.31257E-03_JPRB,0.25353E-03_JPRB,0.16947E-03_JPRB,0.14905E-04_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.38196E-03_JPRB,0.43154E-03_JPRB,0.42169E-03_JPRB,0.40035E-03_JPRB,0.36703E-03_JPRB, &
+ & 0.32311E-03_JPRB,0.26291E-03_JPRB,0.17672E-03_JPRB,0.16566E-04_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.38108E-03_JPRB,0.43587E-03_JPRB,0.42809E-03_JPRB,0.40890E-03_JPRB,0.37694E-03_JPRB, &
+ & 0.33246E-03_JPRB,0.27094E-03_JPRB,0.18305E-03_JPRB,0.18352E-04_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.37854E-03_JPRB,0.43889E-03_JPRB,0.43402E-03_JPRB,0.41697E-03_JPRB,0.38532E-03_JPRB, &
+ & 0.34074E-03_JPRB,0.27816E-03_JPRB,0.18873E-03_JPRB,0.20220E-04_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.31968E-03_JPRB,0.35301E-03_JPRB,0.34310E-03_JPRB,0.32206E-03_JPRB,0.28904E-03_JPRB, &
+ & 0.25356E-03_JPRB,0.20523E-03_JPRB,0.13432E-03_JPRB,0.13548E-04_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.32386E-03_JPRB,0.36229E-03_JPRB,0.35288E-03_JPRB,0.33214E-03_JPRB,0.30033E-03_JPRB, &
+ & 0.26345E-03_JPRB,0.21374E-03_JPRB,0.14198E-03_JPRB,0.14966E-04_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.32521E-03_JPRB,0.36848E-03_JPRB,0.35986E-03_JPRB,0.34056E-03_JPRB,0.31042E-03_JPRB, &
+ & 0.27222E-03_JPRB,0.22115E-03_JPRB,0.14841E-03_JPRB,0.16278E-04_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.32527E-03_JPRB,0.37258E-03_JPRB,0.36553E-03_JPRB,0.34811E-03_JPRB,0.31916E-03_JPRB, &
+ & 0.28034E-03_JPRB,0.22837E-03_JPRB,0.15443E-03_JPRB,0.17614E-04_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.32272E-03_JPRB,0.37533E-03_JPRB,0.37025E-03_JPRB,0.35438E-03_JPRB,0.32632E-03_JPRB, &
+ & 0.28740E-03_JPRB,0.23484E-03_JPRB,0.15952E-03_JPRB,0.19075E-04_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.26794E-03_JPRB,0.29655E-03_JPRB,0.28851E-03_JPRB,0.27155E-03_JPRB,0.24290E-03_JPRB, &
+ & 0.21182E-03_JPRB,0.17187E-03_JPRB,0.11158E-03_JPRB,0.16893E-04_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.27215E-03_JPRB,0.30477E-03_JPRB,0.29765E-03_JPRB,0.28075E-03_JPRB,0.25336E-03_JPRB, &
+ & 0.22120E-03_JPRB,0.17858E-03_JPRB,0.11794E-03_JPRB,0.18576E-04_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.27400E-03_JPRB,0.31061E-03_JPRB,0.30447E-03_JPRB,0.28836E-03_JPRB,0.26224E-03_JPRB, &
+ & 0.22886E-03_JPRB,0.18474E-03_JPRB,0.12372E-03_JPRB,0.20056E-04_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.27385E-03_JPRB,0.31424E-03_JPRB,0.30923E-03_JPRB,0.29477E-03_JPRB,0.26977E-03_JPRB, &
+ & 0.23554E-03_JPRB,0.19093E-03_JPRB,0.12884E-03_JPRB,0.21321E-04_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.27196E-03_JPRB,0.31647E-03_JPRB,0.31308E-03_JPRB,0.30006E-03_JPRB,0.27604E-03_JPRB, &
+ & 0.24191E-03_JPRB,0.19649E-03_JPRB,0.13352E-03_JPRB,0.22611E-04_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.22255E-03_JPRB,0.24716E-03_JPRB,0.24087E-03_JPRB,0.22672E-03_JPRB,0.20216E-03_JPRB, &
+ & 0.17582E-03_JPRB,0.14339E-03_JPRB,0.92528E-04_JPRB,0.22471E-04_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.22663E-03_JPRB,0.25429E-03_JPRB,0.24908E-03_JPRB,0.23506E-03_JPRB,0.21167E-03_JPRB, &
+ & 0.18377E-03_JPRB,0.14910E-03_JPRB,0.97972E-04_JPRB,0.24536E-04_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.22867E-03_JPRB,0.25963E-03_JPRB,0.25532E-03_JPRB,0.24169E-03_JPRB,0.21923E-03_JPRB, &
+ & 0.19067E-03_JPRB,0.15458E-03_JPRB,0.10293E-03_JPRB,0.26453E-04_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.22853E-03_JPRB,0.26273E-03_JPRB,0.25960E-03_JPRB,0.24704E-03_JPRB,0.22549E-03_JPRB, &
+ & 0.19679E-03_JPRB,0.15968E-03_JPRB,0.10728E-03_JPRB,0.28383E-04_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.22704E-03_JPRB,0.26469E-03_JPRB,0.26259E-03_JPRB,0.25141E-03_JPRB,0.23080E-03_JPRB, &
+ & 0.20216E-03_JPRB,0.16433E-03_JPRB,0.11116E-03_JPRB,0.30111E-04_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.18570E-03_JPRB,0.20791E-03_JPRB,0.20310E-03_JPRB,0.19106E-03_JPRB,0.17066E-03_JPRB, &
+ & 0.14797E-03_JPRB,0.12097E-03_JPRB,0.78704E-04_JPRB,0.20720E-04_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.18868E-03_JPRB,0.21356E-03_JPRB,0.20969E-03_JPRB,0.19807E-03_JPRB,0.17821E-03_JPRB, &
+ & 0.15434E-03_JPRB,0.12584E-03_JPRB,0.83179E-04_JPRB,0.23268E-04_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.18972E-03_JPRB,0.21732E-03_JPRB,0.21447E-03_JPRB,0.20305E-03_JPRB,0.18416E-03_JPRB, &
+ & 0.15993E-03_JPRB,0.13006E-03_JPRB,0.87134E-04_JPRB,0.25781E-04_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.18929E-03_JPRB,0.21955E-03_JPRB,0.21771E-03_JPRB,0.20711E-03_JPRB,0.18907E-03_JPRB, &
+ & 0.16493E-03_JPRB,0.13420E-03_JPRB,0.90699E-04_JPRB,0.28181E-04_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.18766E-03_JPRB,0.22095E-03_JPRB,0.21987E-03_JPRB,0.21045E-03_JPRB,0.19312E-03_JPRB, &
+ & 0.16934E-03_JPRB,0.13812E-03_JPRB,0.93840E-04_JPRB,0.30489E-04_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.15409E-03_JPRB,0.17399E-03_JPRB,0.17010E-03_JPRB,0.16002E-03_JPRB,0.14311E-03_JPRB, &
+ & 0.12376E-03_JPRB,0.10121E-03_JPRB,0.66428E-04_JPRB,0.17813E-04_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.15599E-03_JPRB,0.17831E-03_JPRB,0.17521E-03_JPRB,0.16554E-03_JPRB,0.14890E-03_JPRB, &
+ & 0.12881E-03_JPRB,0.10527E-03_JPRB,0.69964E-04_JPRB,0.19918E-04_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.15661E-03_JPRB,0.18119E-03_JPRB,0.17892E-03_JPRB,0.16934E-03_JPRB,0.15365E-03_JPRB, &
+ & 0.13338E-03_JPRB,0.10864E-03_JPRB,0.73142E-04_JPRB,0.22121E-04_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.15608E-03_JPRB,0.18293E-03_JPRB,0.18145E-03_JPRB,0.17254E-03_JPRB,0.15743E-03_JPRB, &
+ & 0.13747E-03_JPRB,0.11209E-03_JPRB,0.75971E-04_JPRB,0.24425E-04_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.15453E-03_JPRB,0.18383E-03_JPRB,0.18309E-03_JPRB,0.17510E-03_JPRB,0.16067E-03_JPRB, &
+ & 0.14102E-03_JPRB,0.11529E-03_JPRB,0.78607E-04_JPRB,0.26791E-04_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.12705E-03_JPRB,0.14485E-03_JPRB,0.14155E-03_JPRB,0.13312E-03_JPRB,0.11914E-03_JPRB, &
+ & 0.10299E-03_JPRB,0.84416E-04_JPRB,0.55598E-04_JPRB,0.14429E-04_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.12843E-03_JPRB,0.14822E-03_JPRB,0.14555E-03_JPRB,0.13748E-03_JPRB,0.12377E-03_JPRB, &
+ & 0.10702E-03_JPRB,0.87520E-04_JPRB,0.58405E-04_JPRB,0.16147E-04_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.12875E-03_JPRB,0.15043E-03_JPRB,0.14850E-03_JPRB,0.14053E-03_JPRB,0.12752E-03_JPRB, &
+ & 0.11081E-03_JPRB,0.90348E-04_JPRB,0.60934E-04_JPRB,0.17992E-04_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.12822E-03_JPRB,0.15175E-03_JPRB,0.15049E-03_JPRB,0.14301E-03_JPRB,0.13059E-03_JPRB, &
+ & 0.11413E-03_JPRB,0.93171E-04_JPRB,0.63296E-04_JPRB,0.19888E-04_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.12684E-03_JPRB,0.15239E-03_JPRB,0.15179E-03_JPRB,0.14511E-03_JPRB,0.13320E-03_JPRB, &
+ & 0.11702E-03_JPRB,0.95786E-04_JPRB,0.65468E-04_JPRB,0.21706E-04_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.16451E-02_JPRB,0.17375E-02_JPRB,0.16665E-02_JPRB,0.15396E-02_JPRB,0.13696E-02_JPRB, &
+ & 0.11731E-02_JPRB,0.92753E-03_JPRB,0.61159E-03_JPRB,0.14680E-03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.16450E-02_JPRB,0.17591E-02_JPRB,0.16954E-02_JPRB,0.15711E-02_JPRB,0.14087E-02_JPRB, &
+ & 0.12092E-02_JPRB,0.95859E-03_JPRB,0.63308E-03_JPRB,0.16131E-03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.16396E-02_JPRB,0.17762E-02_JPRB,0.17200E-02_JPRB,0.16012E-02_JPRB,0.14448E-02_JPRB, &
+ & 0.12424E-02_JPRB,0.98862E-03_JPRB,0.65400E-03_JPRB,0.17365E-03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.16299E-02_JPRB,0.17875E-02_JPRB,0.17415E-02_JPRB,0.16313E-02_JPRB,0.14788E-02_JPRB, &
+ & 0.12751E-02_JPRB,0.10161E-02_JPRB,0.67524E-03_JPRB,0.18499E-03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.16127E-02_JPRB,0.17946E-02_JPRB,0.17629E-02_JPRB,0.16594E-02_JPRB,0.15119E-02_JPRB, &
+ & 0.13059E-02_JPRB,0.10419E-02_JPRB,0.69511E-03_JPRB,0.19999E-03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.15084E-02_JPRB,0.15931E-02_JPRB,0.15186E-02_JPRB,0.13958E-02_JPRB,0.12369E-02_JPRB, &
+ & 0.10500E-02_JPRB,0.83688E-03_JPRB,0.55465E-03_JPRB,0.11914E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.15115E-02_JPRB,0.16146E-02_JPRB,0.15457E-02_JPRB,0.14241E-02_JPRB,0.12724E-02_JPRB, &
+ & 0.10844E-02_JPRB,0.86669E-03_JPRB,0.57603E-03_JPRB,0.13037E-03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.15084E-02_JPRB,0.16309E-02_JPRB,0.15669E-02_JPRB,0.14522E-02_JPRB,0.13074E-02_JPRB, &
+ & 0.11181E-02_JPRB,0.89787E-03_JPRB,0.59657E-03_JPRB,0.13918E-03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.14965E-02_JPRB,0.16419E-02_JPRB,0.15861E-02_JPRB,0.14781E-02_JPRB,0.13385E-02_JPRB, &
+ & 0.11507E-02_JPRB,0.92569E-03_JPRB,0.61596E-03_JPRB,0.15053E-03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.14804E-02_JPRB,0.16493E-02_JPRB,0.16042E-02_JPRB,0.15021E-02_JPRB,0.13704E-02_JPRB, &
+ & 0.11804E-02_JPRB,0.95044E-03_JPRB,0.63472E-03_JPRB,0.16410E-03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.13707E-02_JPRB,0.14436E-02_JPRB,0.13706E-02_JPRB,0.12561E-02_JPRB,0.11093E-02_JPRB, &
+ & 0.93534E-03_JPRB,0.74505E-03_JPRB,0.49303E-03_JPRB,0.93388E-04_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.13760E-02_JPRB,0.14666E-02_JPRB,0.13986E-02_JPRB,0.12850E-02_JPRB,0.11416E-02_JPRB, &
+ & 0.96700E-03_JPRB,0.77192E-03_JPRB,0.51430E-03_JPRB,0.10062E-03_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.13732E-02_JPRB,0.14839E-02_JPRB,0.14208E-02_JPRB,0.13112E-02_JPRB,0.11718E-02_JPRB, &
+ & 0.99814E-03_JPRB,0.79899E-03_JPRB,0.53404E-03_JPRB,0.10964E-03_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.13644E-02_JPRB,0.14939E-02_JPRB,0.14404E-02_JPRB,0.13346E-02_JPRB,0.12002E-02_JPRB, &
+ & 0.10295E-02_JPRB,0.82532E-03_JPRB,0.55285E-03_JPRB,0.12023E-03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.13512E-02_JPRB,0.15024E-02_JPRB,0.14568E-02_JPRB,0.13559E-02_JPRB,0.12266E-02_JPRB, &
+ & 0.10592E-02_JPRB,0.85085E-03_JPRB,0.57058E-03_JPRB,0.13064E-03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.12336E-02_JPRB,0.12968E-02_JPRB,0.12255E-02_JPRB,0.11189E-02_JPRB,0.98785E-03_JPRB, &
+ & 0.83184E-03_JPRB,0.66033E-03_JPRB,0.43467E-03_JPRB,0.70047E-04_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.12419E-02_JPRB,0.13192E-02_JPRB,0.12543E-02_JPRB,0.11482E-02_JPRB,0.10189E-02_JPRB, &
+ & 0.86315E-03_JPRB,0.68559E-03_JPRB,0.45559E-03_JPRB,0.76629E-04_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.12416E-02_JPRB,0.13349E-02_JPRB,0.12771E-02_JPRB,0.11745E-02_JPRB,0.10469E-02_JPRB, &
+ & 0.89182E-03_JPRB,0.71110E-03_JPRB,0.47551E-03_JPRB,0.84761E-04_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.12342E-02_JPRB,0.13470E-02_JPRB,0.12958E-02_JPRB,0.11964E-02_JPRB,0.10726E-02_JPRB, &
+ & 0.91965E-03_JPRB,0.73487E-03_JPRB,0.49419E-03_JPRB,0.93979E-04_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.12238E-02_JPRB,0.13566E-02_JPRB,0.13110E-02_JPRB,0.12168E-02_JPRB,0.10976E-02_JPRB, &
+ & 0.94731E-03_JPRB,0.75866E-03_JPRB,0.51080E-03_JPRB,0.10249E-03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.10970E-02_JPRB,0.11491E-02_JPRB,0.10850E-02_JPRB,0.99037E-03_JPRB,0.87478E-03_JPRB, &
+ & 0.73644E-03_JPRB,0.58168E-03_JPRB,0.38673E-03_JPRB,0.55328E-04_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.11051E-02_JPRB,0.11716E-02_JPRB,0.11129E-02_JPRB,0.10196E-02_JPRB,0.90431E-03_JPRB, &
+ & 0.76445E-03_JPRB,0.60553E-03_JPRB,0.40600E-03_JPRB,0.61413E-04_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.11053E-02_JPRB,0.11877E-02_JPRB,0.11365E-02_JPRB,0.10446E-02_JPRB,0.92981E-03_JPRB, &
+ & 0.79114E-03_JPRB,0.62919E-03_JPRB,0.42419E-03_JPRB,0.68340E-04_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.11000E-02_JPRB,0.12008E-02_JPRB,0.11557E-02_JPRB,0.10648E-02_JPRB,0.95310E-03_JPRB, &
+ & 0.81721E-03_JPRB,0.65273E-03_JPRB,0.44128E-03_JPRB,0.75425E-04_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.10930E-02_JPRB,0.12101E-02_JPRB,0.11704E-02_JPRB,0.10855E-02_JPRB,0.97521E-03_JPRB, &
+ & 0.84232E-03_JPRB,0.67516E-03_JPRB,0.45733E-03_JPRB,0.82112E-04_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.96254E-03_JPRB,0.10041E-02_JPRB,0.94496E-03_JPRB,0.86305E-03_JPRB,0.76515E-03_JPRB, &
+ & 0.64666E-03_JPRB,0.50949E-03_JPRB,0.34237E-03_JPRB,0.45743E-04_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.97168E-03_JPRB,0.10257E-02_JPRB,0.97306E-03_JPRB,0.89241E-03_JPRB,0.79300E-03_JPRB, &
+ & 0.67315E-03_JPRB,0.53212E-03_JPRB,0.35953E-03_JPRB,0.50936E-04_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.97307E-03_JPRB,0.10417E-02_JPRB,0.99540E-03_JPRB,0.91663E-03_JPRB,0.81739E-03_JPRB, &
+ & 0.69764E-03_JPRB,0.55388E-03_JPRB,0.37625E-03_JPRB,0.56704E-04_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.97112E-03_JPRB,0.10538E-02_JPRB,0.10130E-02_JPRB,0.93600E-03_JPRB,0.83875E-03_JPRB, &
+ & 0.72048E-03_JPRB,0.57540E-03_JPRB,0.39219E-03_JPRB,0.62214E-04_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.96524E-03_JPRB,0.10634E-02_JPRB,0.10272E-02_JPRB,0.95339E-03_JPRB,0.85814E-03_JPRB, &
+ & 0.74256E-03_JPRB,0.59649E-03_JPRB,0.40723E-03_JPRB,0.68154E-04_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.83977E-03_JPRB,0.87150E-03_JPRB,0.81798E-03_JPRB,0.74510E-03_JPRB,0.66073E-03_JPRB, &
+ & 0.55889E-03_JPRB,0.44038E-03_JPRB,0.30023E-03_JPRB,0.39438E-04_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.84860E-03_JPRB,0.89183E-03_JPRB,0.84311E-03_JPRB,0.77202E-03_JPRB,0.68677E-03_JPRB, &
+ & 0.58412E-03_JPRB,0.46261E-03_JPRB,0.31513E-03_JPRB,0.44026E-04_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.85156E-03_JPRB,0.90640E-03_JPRB,0.86357E-03_JPRB,0.79472E-03_JPRB,0.70843E-03_JPRB, &
+ & 0.60616E-03_JPRB,0.48333E-03_JPRB,0.32962E-03_JPRB,0.48169E-04_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.84996E-03_JPRB,0.91804E-03_JPRB,0.88000E-03_JPRB,0.81332E-03_JPRB,0.72741E-03_JPRB, &
+ & 0.62668E-03_JPRB,0.50295E-03_JPRB,0.34425E-03_JPRB,0.52632E-04_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.84411E-03_JPRB,0.92502E-03_JPRB,0.89195E-03_JPRB,0.82771E-03_JPRB,0.74479E-03_JPRB, &
+ & 0.64630E-03_JPRB,0.52177E-03_JPRB,0.35838E-03_JPRB,0.57490E-04_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.72566E-03_JPRB,0.75029E-03_JPRB,0.70410E-03_JPRB,0.64085E-03_JPRB,0.56881E-03_JPRB, &
+ & 0.48163E-03_JPRB,0.37585E-03_JPRB,0.26029E-03_JPRB,0.35173E-04_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.73526E-03_JPRB,0.76878E-03_JPRB,0.72724E-03_JPRB,0.66569E-03_JPRB,0.59239E-03_JPRB, &
+ & 0.50357E-03_JPRB,0.39670E-03_JPRB,0.27234E-03_JPRB,0.38442E-04_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.73942E-03_JPRB,0.78240E-03_JPRB,0.74617E-03_JPRB,0.68580E-03_JPRB,0.61175E-03_JPRB, &
+ & 0.52308E-03_JPRB,0.41633E-03_JPRB,0.28548E-03_JPRB,0.42620E-04_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.73787E-03_JPRB,0.79331E-03_JPRB,0.76108E-03_JPRB,0.70193E-03_JPRB,0.62821E-03_JPRB, &
+ & 0.54092E-03_JPRB,0.43381E-03_JPRB,0.29821E-03_JPRB,0.47013E-04_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.73365E-03_JPRB,0.79895E-03_JPRB,0.77125E-03_JPRB,0.71463E-03_JPRB,0.64295E-03_JPRB, &
+ & 0.55753E-03_JPRB,0.45033E-03_JPRB,0.31091E-03_JPRB,0.51519E-04_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.62112E-03_JPRB,0.63900E-03_JPRB,0.60071E-03_JPRB,0.54641E-03_JPRB,0.48585E-03_JPRB, &
+ & 0.41219E-03_JPRB,0.31988E-03_JPRB,0.22088E-03_JPRB,0.39225E-04_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.63089E-03_JPRB,0.65678E-03_JPRB,0.62144E-03_JPRB,0.56855E-03_JPRB,0.50663E-03_JPRB, &
+ & 0.43158E-03_JPRB,0.33912E-03_JPRB,0.23261E-03_JPRB,0.43145E-04_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.63630E-03_JPRB,0.67023E-03_JPRB,0.63841E-03_JPRB,0.58635E-03_JPRB,0.52398E-03_JPRB, &
+ & 0.44876E-03_JPRB,0.35619E-03_JPRB,0.24341E-03_JPRB,0.47182E-04_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.63678E-03_JPRB,0.68001E-03_JPRB,0.65143E-03_JPRB,0.60045E-03_JPRB,0.53807E-03_JPRB, &
+ & 0.46446E-03_JPRB,0.37160E-03_JPRB,0.25517E-03_JPRB,0.51310E-04_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.63384E-03_JPRB,0.68558E-03_JPRB,0.66049E-03_JPRB,0.61133E-03_JPRB,0.55067E-03_JPRB, &
+ & 0.47828E-03_JPRB,0.38622E-03_JPRB,0.26607E-03_JPRB,0.55652E-04_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.52818E-03_JPRB,0.54302E-03_JPRB,0.51109E-03_JPRB,0.46524E-03_JPRB,0.41303E-03_JPRB, &
+ & 0.35089E-03_JPRB,0.27050E-03_JPRB,0.18719E-03_JPRB,0.51897E-04_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.53874E-03_JPRB,0.56000E-03_JPRB,0.52974E-03_JPRB,0.48429E-03_JPRB,0.43151E-03_JPRB, &
+ & 0.36826E-03_JPRB,0.28749E-03_JPRB,0.19624E-03_JPRB,0.57480E-04_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.54407E-03_JPRB,0.57298E-03_JPRB,0.54499E-03_JPRB,0.50007E-03_JPRB,0.44685E-03_JPRB, &
+ & 0.38282E-03_JPRB,0.30218E-03_JPRB,0.20623E-03_JPRB,0.63250E-04_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.54510E-03_JPRB,0.58221E-03_JPRB,0.55605E-03_JPRB,0.51259E-03_JPRB,0.45923E-03_JPRB, &
+ & 0.39550E-03_JPRB,0.31547E-03_JPRB,0.21632E-03_JPRB,0.68339E-04_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.54335E-03_JPRB,0.58744E-03_JPRB,0.56412E-03_JPRB,0.52185E-03_JPRB,0.47008E-03_JPRB, &
+ & 0.40728E-03_JPRB,0.32798E-03_JPRB,0.22618E-03_JPRB,0.72964E-04_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.44901E-03_JPRB,0.46427E-03_JPRB,0.43915E-03_JPRB,0.40187E-03_JPRB,0.35719E-03_JPRB, &
+ & 0.30380E-03_JPRB,0.23427E-03_JPRB,0.15956E-03_JPRB,0.52228E-04_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.45685E-03_JPRB,0.47845E-03_JPRB,0.45475E-03_JPRB,0.41772E-03_JPRB,0.37275E-03_JPRB, &
+ & 0.31798E-03_JPRB,0.24772E-03_JPRB,0.16817E-03_JPRB,0.56979E-04_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.46005E-03_JPRB,0.48879E-03_JPRB,0.46665E-03_JPRB,0.43038E-03_JPRB,0.38526E-03_JPRB, &
+ & 0.32982E-03_JPRB,0.25983E-03_JPRB,0.17707E-03_JPRB,0.61788E-04_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.46029E-03_JPRB,0.49540E-03_JPRB,0.47547E-03_JPRB,0.44015E-03_JPRB,0.39539E-03_JPRB, &
+ & 0.34025E-03_JPRB,0.27087E-03_JPRB,0.18596E-03_JPRB,0.66537E-04_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.45760E-03_JPRB,0.49879E-03_JPRB,0.48175E-03_JPRB,0.44812E-03_JPRB,0.40429E-03_JPRB, &
+ & 0.34971E-03_JPRB,0.28105E-03_JPRB,0.19422E-03_JPRB,0.70982E-04_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.37789E-03_JPRB,0.39359E-03_JPRB,0.37439E-03_JPRB,0.34335E-03_JPRB,0.30516E-03_JPRB, &
+ & 0.25987E-03_JPRB,0.20136E-03_JPRB,0.13616E-03_JPRB,0.47471E-04_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.38345E-03_JPRB,0.40460E-03_JPRB,0.38678E-03_JPRB,0.35616E-03_JPRB,0.31793E-03_JPRB, &
+ & 0.27155E-03_JPRB,0.21219E-03_JPRB,0.14366E-03_JPRB,0.51576E-04_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.38556E-03_JPRB,0.41241E-03_JPRB,0.39583E-03_JPRB,0.36622E-03_JPRB,0.32808E-03_JPRB, &
+ & 0.28132E-03_JPRB,0.22259E-03_JPRB,0.15133E-03_JPRB,0.55529E-04_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.38464E-03_JPRB,0.41687E-03_JPRB,0.40247E-03_JPRB,0.37394E-03_JPRB,0.33650E-03_JPRB, &
+ & 0.28994E-03_JPRB,0.23157E-03_JPRB,0.15870E-03_JPRB,0.59557E-04_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.38119E-03_JPRB,0.41880E-03_JPRB,0.40725E-03_JPRB,0.38009E-03_JPRB,0.34354E-03_JPRB, &
+ & 0.29781E-03_JPRB,0.23974E-03_JPRB,0.16572E-03_JPRB,0.63195E-04_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.31518E-03_JPRB,0.33080E-03_JPRB,0.31644E-03_JPRB,0.29051E-03_JPRB,0.25824E-03_JPRB, &
+ & 0.21997E-03_JPRB,0.17074E-03_JPRB,0.11585E-03_JPRB,0.39419E-04_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.31945E-03_JPRB,0.33947E-03_JPRB,0.32620E-03_JPRB,0.30064E-03_JPRB,0.26839E-03_JPRB, &
+ & 0.22968E-03_JPRB,0.17999E-03_JPRB,0.12241E-03_JPRB,0.42717E-04_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.32042E-03_JPRB,0.34518E-03_JPRB,0.33311E-03_JPRB,0.30844E-03_JPRB,0.27653E-03_JPRB, &
+ & 0.23733E-03_JPRB,0.18840E-03_JPRB,0.12892E-03_JPRB,0.45799E-04_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.31877E-03_JPRB,0.34829E-03_JPRB,0.33813E-03_JPRB,0.31466E-03_JPRB,0.28316E-03_JPRB, &
+ & 0.24429E-03_JPRB,0.19577E-03_JPRB,0.13500E-03_JPRB,0.49095E-04_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.31533E-03_JPRB,0.34943E-03_JPRB,0.34164E-03_JPRB,0.31953E-03_JPRB,0.28883E-03_JPRB, &
+ & 0.25064E-03_JPRB,0.20247E-03_JPRB,0.14079E-03_JPRB,0.52225E-04_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.30073E-02_JPRB,0.30215E-02_JPRB,0.28549E-02_JPRB,0.26145E-02_JPRB,0.23223E-02_JPRB, &
+ & 0.19698E-02_JPRB,0.15631E-02_JPRB,0.10671E-02_JPRB,0.34349E-03_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.30045E-02_JPRB,0.30464E-02_JPRB,0.29000E-02_JPRB,0.26682E-02_JPRB,0.23795E-02_JPRB, &
+ & 0.20320E-02_JPRB,0.16241E-02_JPRB,0.11180E-02_JPRB,0.37241E-03_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.29924E-02_JPRB,0.30694E-02_JPRB,0.29376E-02_JPRB,0.27170E-02_JPRB,0.24327E-02_JPRB, &
+ & 0.20955E-02_JPRB,0.16828E-02_JPRB,0.11692E-02_JPRB,0.41183E-03_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.29732E-02_JPRB,0.30875E-02_JPRB,0.29723E-02_JPRB,0.27617E-02_JPRB,0.24862E-02_JPRB, &
+ & 0.21555E-02_JPRB,0.17426E-02_JPRB,0.12186E-02_JPRB,0.45672E-03_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.29511E-02_JPRB,0.31004E-02_JPRB,0.30014E-02_JPRB,0.28043E-02_JPRB,0.25375E-02_JPRB, &
+ & 0.22174E-02_JPRB,0.18018E-02_JPRB,0.12656E-02_JPRB,0.49848E-03_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.28011E-02_JPRB,0.28061E-02_JPRB,0.26513E-02_JPRB,0.24171E-02_JPRB,0.21391E-02_JPRB, &
+ & 0.18145E-02_JPRB,0.14290E-02_JPRB,0.97808E-03_JPRB,0.28283E-03_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.28038E-02_JPRB,0.28333E-02_JPRB,0.26971E-02_JPRB,0.24708E-02_JPRB,0.21906E-02_JPRB, &
+ & 0.18715E-02_JPRB,0.14859E-02_JPRB,0.10236E-02_JPRB,0.31088E-03_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.27978E-02_JPRB,0.28587E-02_JPRB,0.27386E-02_JPRB,0.25159E-02_JPRB,0.22406E-02_JPRB, &
+ & 0.19256E-02_JPRB,0.15398E-02_JPRB,0.10695E-02_JPRB,0.34605E-03_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.27864E-02_JPRB,0.28782E-02_JPRB,0.27737E-02_JPRB,0.25561E-02_JPRB,0.22888E-02_JPRB, &
+ & 0.19778E-02_JPRB,0.15963E-02_JPRB,0.11144E-02_JPRB,0.38043E-03_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.27682E-02_JPRB,0.28941E-02_JPRB,0.28027E-02_JPRB,0.25952E-02_JPRB,0.23337E-02_JPRB, &
+ & 0.20308E-02_JPRB,0.16518E-02_JPRB,0.11583E-02_JPRB,0.41249E-03_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.26013E-02_JPRB,0.25925E-02_JPRB,0.24368E-02_JPRB,0.22059E-02_JPRB,0.19447E-02_JPRB, &
+ & 0.16443E-02_JPRB,0.12895E-02_JPRB,0.88356E-03_JPRB,0.22980E-03_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.26118E-02_JPRB,0.26228E-02_JPRB,0.24826E-02_JPRB,0.22596E-02_JPRB,0.19971E-02_JPRB, &
+ & 0.16971E-02_JPRB,0.13425E-02_JPRB,0.92292E-03_JPRB,0.25666E-03_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.26121E-02_JPRB,0.26511E-02_JPRB,0.25221E-02_JPRB,0.23045E-02_JPRB,0.20442E-02_JPRB, &
+ & 0.17465E-02_JPRB,0.13937E-02_JPRB,0.96423E-03_JPRB,0.28307E-03_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.26050E-02_JPRB,0.26757E-02_JPRB,0.25536E-02_JPRB,0.23446E-02_JPRB,0.20883E-02_JPRB, &
+ & 0.17925E-02_JPRB,0.14453E-02_JPRB,0.10074E-02_JPRB,0.30818E-03_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.25933E-02_JPRB,0.26944E-02_JPRB,0.25823E-02_JPRB,0.23794E-02_JPRB,0.21318E-02_JPRB, &
+ & 0.18378E-02_JPRB,0.14965E-02_JPRB,0.10492E-02_JPRB,0.33812E-03_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.24078E-02_JPRB,0.23894E-02_JPRB,0.22370E-02_JPRB,0.20125E-02_JPRB,0.17599E-02_JPRB, &
+ & 0.14763E-02_JPRB,0.11554E-02_JPRB,0.78494E-03_JPRB,0.18813E-03_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.24225E-02_JPRB,0.24253E-02_JPRB,0.22813E-02_JPRB,0.20638E-02_JPRB,0.18093E-02_JPRB, &
+ & 0.15251E-02_JPRB,0.12031E-02_JPRB,0.82373E-03_JPRB,0.21030E-03_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.24294E-02_JPRB,0.24564E-02_JPRB,0.23198E-02_JPRB,0.21085E-02_JPRB,0.18532E-02_JPRB, &
+ & 0.15708E-02_JPRB,0.12482E-02_JPRB,0.86229E-03_JPRB,0.23129E-03_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.24309E-02_JPRB,0.24808E-02_JPRB,0.23546E-02_JPRB,0.21467E-02_JPRB,0.18923E-02_JPRB, &
+ & 0.16129E-02_JPRB,0.12944E-02_JPRB,0.90119E-03_JPRB,0.25224E-03_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.24223E-02_JPRB,0.24983E-02_JPRB,0.23839E-02_JPRB,0.21783E-02_JPRB,0.19305E-02_JPRB, &
+ & 0.16540E-02_JPRB,0.13401E-02_JPRB,0.94049E-03_JPRB,0.27779E-03_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.22071E-02_JPRB,0.21851E-02_JPRB,0.20436E-02_JPRB,0.18357E-02_JPRB,0.15952E-02_JPRB, &
+ & 0.13304E-02_JPRB,0.10307E-02_JPRB,0.69163E-03_JPRB,0.14983E-03_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.22284E-02_JPRB,0.22243E-02_JPRB,0.20887E-02_JPRB,0.18839E-02_JPRB,0.16450E-02_JPRB, &
+ & 0.13762E-02_JPRB,0.10736E-02_JPRB,0.72602E-03_JPRB,0.16732E-03_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.22426E-02_JPRB,0.22593E-02_JPRB,0.21270E-02_JPRB,0.19281E-02_JPRB,0.16889E-02_JPRB, &
+ & 0.14169E-02_JPRB,0.11148E-02_JPRB,0.76201E-03_JPRB,0.18420E-03_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.22476E-02_JPRB,0.22863E-02_JPRB,0.21609E-02_JPRB,0.19676E-02_JPRB,0.17258E-02_JPRB, &
+ & 0.14525E-02_JPRB,0.11537E-02_JPRB,0.79815E-03_JPRB,0.20325E-03_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.22399E-02_JPRB,0.23048E-02_JPRB,0.21912E-02_JPRB,0.19974E-02_JPRB,0.17586E-02_JPRB, &
+ & 0.14880E-02_JPRB,0.11934E-02_JPRB,0.83564E-03_JPRB,0.22470E-03_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.20075E-02_JPRB,0.19795E-02_JPRB,0.18447E-02_JPRB,0.16541E-02_JPRB,0.14341E-02_JPRB, &
+ & 0.11951E-02_JPRB,0.92238E-03_JPRB,0.60660E-03_JPRB,0.12381E-03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.20344E-02_JPRB,0.20227E-02_JPRB,0.18912E-02_JPRB,0.17028E-02_JPRB,0.14828E-02_JPRB, &
+ & 0.12404E-02_JPRB,0.96234E-03_JPRB,0.63833E-03_JPRB,0.13822E-03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.20513E-02_JPRB,0.20598E-02_JPRB,0.19311E-02_JPRB,0.17466E-02_JPRB,0.15267E-02_JPRB, &
+ & 0.12805E-02_JPRB,0.99815E-03_JPRB,0.66987E-03_JPRB,0.15138E-03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.20576E-02_JPRB,0.20878E-02_JPRB,0.19661E-02_JPRB,0.17857E-02_JPRB,0.15647E-02_JPRB, &
+ & 0.13147E-02_JPRB,0.10319E-02_JPRB,0.70266E-03_JPRB,0.16753E-03_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.20521E-02_JPRB,0.21067E-02_JPRB,0.19938E-02_JPRB,0.18157E-02_JPRB,0.15969E-02_JPRB, &
+ & 0.13475E-02_JPRB,0.10644E-02_JPRB,0.73524E-03_JPRB,0.18430E-03_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.17951E-02_JPRB,0.17708E-02_JPRB,0.16476E-02_JPRB,0.14764E-02_JPRB,0.12769E-02_JPRB, &
+ & 0.10613E-02_JPRB,0.82141E-03_JPRB,0.53387E-03_JPRB,0.10356E-03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.18257E-02_JPRB,0.18161E-02_JPRB,0.16970E-02_JPRB,0.15264E-02_JPRB,0.13250E-02_JPRB, &
+ & 0.11052E-02_JPRB,0.85771E-03_JPRB,0.56341E-03_JPRB,0.11419E-03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.18457E-02_JPRB,0.18541E-02_JPRB,0.17382E-02_JPRB,0.15700E-02_JPRB,0.13685E-02_JPRB, &
+ & 0.11444E-02_JPRB,0.89062E-03_JPRB,0.59265E-03_JPRB,0.12737E-03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.18534E-02_JPRB,0.18833E-02_JPRB,0.17713E-02_JPRB,0.16066E-02_JPRB,0.14063E-02_JPRB, &
+ & 0.11787E-02_JPRB,0.92220E-03_JPRB,0.62067E-03_JPRB,0.14148E-03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.18508E-02_JPRB,0.19025E-02_JPRB,0.17986E-02_JPRB,0.16377E-02_JPRB,0.14382E-02_JPRB, &
+ & 0.12095E-02_JPRB,0.95313E-03_JPRB,0.64883E-03_JPRB,0.15624E-03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.15853E-02_JPRB,0.15606E-02_JPRB,0.14491E-02_JPRB,0.13005E-02_JPRB,0.11253E-02_JPRB, &
+ & 0.93388E-03_JPRB,0.72631E-03_JPRB,0.46832E-03_JPRB,0.90402E-04_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.16191E-02_JPRB,0.16074E-02_JPRB,0.14980E-02_JPRB,0.13497E-02_JPRB,0.11730E-02_JPRB, &
+ & 0.97691E-03_JPRB,0.76027E-03_JPRB,0.49835E-03_JPRB,0.10124E-03_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.16393E-02_JPRB,0.16464E-02_JPRB,0.15392E-02_JPRB,0.13927E-02_JPRB,0.12147E-02_JPRB, &
+ & 0.10153E-02_JPRB,0.79129E-03_JPRB,0.52537E-03_JPRB,0.11276E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.16487E-02_JPRB,0.16729E-02_JPRB,0.15721E-02_JPRB,0.14286E-02_JPRB,0.12504E-02_JPRB, &
+ & 0.10480E-02_JPRB,0.82072E-03_JPRB,0.55187E-03_JPRB,0.12515E-03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.16472E-02_JPRB,0.16924E-02_JPRB,0.15977E-02_JPRB,0.14588E-02_JPRB,0.12817E-02_JPRB, &
+ & 0.10777E-02_JPRB,0.84873E-03_JPRB,0.57800E-03_JPRB,0.13784E-03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.13936E-02_JPRB,0.13674E-02_JPRB,0.12635E-02_JPRB,0.11331E-02_JPRB,0.97871E-03_JPRB, &
+ & 0.81331E-03_JPRB,0.63480E-03_JPRB,0.40910E-03_JPRB,0.92222E-04_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.14271E-02_JPRB,0.14126E-02_JPRB,0.13114E-02_JPRB,0.11804E-02_JPRB,0.10248E-02_JPRB, &
+ & 0.85405E-03_JPRB,0.66828E-03_JPRB,0.43677E-03_JPRB,0.10207E-03_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.14461E-02_JPRB,0.14478E-02_JPRB,0.13500E-02_JPRB,0.12219E-02_JPRB,0.10647E-02_JPRB, &
+ & 0.89058E-03_JPRB,0.69816E-03_JPRB,0.46305E-03_JPRB,0.11262E-03_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.14547E-02_JPRB,0.14726E-02_JPRB,0.13807E-02_JPRB,0.12557E-02_JPRB,0.10996E-02_JPRB, &
+ & 0.92247E-03_JPRB,0.72520E-03_JPRB,0.48654E-03_JPRB,0.12376E-03_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.14563E-02_JPRB,0.14902E-02_JPRB,0.14046E-02_JPRB,0.12841E-02_JPRB,0.11288E-02_JPRB, &
+ & 0.95105E-03_JPRB,0.75065E-03_JPRB,0.51065E-03_JPRB,0.13556E-03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.12161E-02_JPRB,0.11928E-02_JPRB,0.11004E-02_JPRB,0.98725E-03_JPRB,0.85318E-03_JPRB, &
+ & 0.70775E-03_JPRB,0.55081E-03_JPRB,0.35481E-03_JPRB,0.12422E-03_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.12463E-02_JPRB,0.12352E-02_JPRB,0.11444E-02_JPRB,0.10316E-02_JPRB,0.89480E-03_JPRB, &
+ & 0.74560E-03_JPRB,0.58282E-03_JPRB,0.38195E-03_JPRB,0.13273E-03_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.12646E-02_JPRB,0.12662E-02_JPRB,0.11796E-02_JPRB,0.10687E-02_JPRB,0.93096E-03_JPRB, &
+ & 0.77883E-03_JPRB,0.61138E-03_JPRB,0.40526E-03_JPRB,0.14193E-03_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.12733E-02_JPRB,0.12880E-02_JPRB,0.12074E-02_JPRB,0.10979E-02_JPRB,0.96169E-03_JPRB, &
+ & 0.80809E-03_JPRB,0.63689E-03_JPRB,0.42724E-03_JPRB,0.15291E-03_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.12740E-02_JPRB,0.13044E-02_JPRB,0.12293E-02_JPRB,0.11231E-02_JPRB,0.98752E-03_JPRB, &
+ & 0.83380E-03_JPRB,0.66030E-03_JPRB,0.44847E-03_JPRB,0.16460E-03_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.10656E-02_JPRB,0.10497E-02_JPRB,0.96881E-03_JPRB,0.87108E-03_JPRB,0.75627E-03_JPRB, &
+ & 0.62893E-03_JPRB,0.48955E-03_JPRB,0.31741E-03_JPRB,0.13016E-03_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.10879E-02_JPRB,0.10821E-02_JPRB,0.10046E-02_JPRB,0.90804E-03_JPRB,0.79130E-03_JPRB, &
+ & 0.66235E-03_JPRB,0.51807E-03_JPRB,0.34003E-03_JPRB,0.13779E-03_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.11001E-02_JPRB,0.11057E-02_JPRB,0.10327E-02_JPRB,0.93770E-03_JPRB,0.82120E-03_JPRB, &
+ & 0.69087E-03_JPRB,0.54346E-03_JPRB,0.36047E-03_JPRB,0.14411E-03_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.11047E-02_JPRB,0.11226E-02_JPRB,0.10548E-02_JPRB,0.96212E-03_JPRB,0.84667E-03_JPRB, &
+ & 0.71575E-03_JPRB,0.56548E-03_JPRB,0.37954E-03_JPRB,0.15311E-03_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.11028E-02_JPRB,0.11345E-02_JPRB,0.10715E-02_JPRB,0.98143E-03_JPRB,0.86845E-03_JPRB, &
+ & 0.73791E-03_JPRB,0.58600E-03_JPRB,0.39874E-03_JPRB,0.16257E-03_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.92541E-03_JPRB,0.91485E-03_JPRB,0.84575E-03_JPRB,0.76287E-03_JPRB,0.66530E-03_JPRB, &
+ & 0.55435E-03_JPRB,0.43055E-03_JPRB,0.28106E-03_JPRB,0.11779E-03_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.94153E-03_JPRB,0.94015E-03_JPRB,0.87425E-03_JPRB,0.79221E-03_JPRB,0.69422E-03_JPRB, &
+ & 0.58249E-03_JPRB,0.45555E-03_JPRB,0.30043E-03_JPRB,0.12541E-03_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.95043E-03_JPRB,0.95859E-03_JPRB,0.89645E-03_JPRB,0.81618E-03_JPRB,0.71892E-03_JPRB, &
+ & 0.60660E-03_JPRB,0.47691E-03_JPRB,0.31810E-03_JPRB,0.13086E-03_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.95300E-03_JPRB,0.97180E-03_JPRB,0.91414E-03_JPRB,0.83540E-03_JPRB,0.73965E-03_JPRB, &
+ & 0.62755E-03_JPRB,0.49627E-03_JPRB,0.33494E-03_JPRB,0.13792E-03_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.94924E-03_JPRB,0.98033E-03_JPRB,0.92629E-03_JPRB,0.85073E-03_JPRB,0.75722E-03_JPRB, &
+ & 0.64562E-03_JPRB,0.51410E-03_JPRB,0.35114E-03_JPRB,0.14650E-03_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.79344E-03_JPRB,0.78971E-03_JPRB,0.73267E-03_JPRB,0.66405E-03_JPRB,0.58083E-03_JPRB, &
+ & 0.48392E-03_JPRB,0.37549E-03_JPRB,0.24569E-03_JPRB,0.97034E-04_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.80574E-03_JPRB,0.81004E-03_JPRB,0.75547E-03_JPRB,0.68809E-03_JPRB,0.60484E-03_JPRB, &
+ & 0.50707E-03_JPRB,0.39618E-03_JPRB,0.26227E-03_JPRB,0.10267E-03_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.81227E-03_JPRB,0.82486E-03_JPRB,0.77408E-03_JPRB,0.70758E-03_JPRB,0.62511E-03_JPRB, &
+ & 0.52731E-03_JPRB,0.41439E-03_JPRB,0.27759E-03_JPRB,0.10742E-03_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.81298E-03_JPRB,0.83538E-03_JPRB,0.78743E-03_JPRB,0.72262E-03_JPRB,0.64193E-03_JPRB, &
+ & 0.54449E-03_JPRB,0.43080E-03_JPRB,0.29211E-03_JPRB,0.11325E-03_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.80893E-03_JPRB,0.84184E-03_JPRB,0.79706E-03_JPRB,0.73516E-03_JPRB,0.65638E-03_JPRB, &
+ & 0.55984E-03_JPRB,0.44607E-03_JPRB,0.30621E-03_JPRB,0.12059E-03_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.54732E-02_JPRB,0.53034E-02_JPRB,0.49969E-02_JPRB,0.45431E-02_JPRB,0.40134E-02_JPRB, &
+ & 0.34010E-02_JPRB,0.26972E-02_JPRB,0.18637E-02_JPRB,0.96692E-03_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.54607E-02_JPRB,0.53367E-02_JPRB,0.50546E-02_JPRB,0.46321E-02_JPRB,0.41099E-02_JPRB, &
+ & 0.34970E-02_JPRB,0.27999E-02_JPRB,0.19729E-02_JPRB,0.11063E-02_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.54405E-02_JPRB,0.53637E-02_JPRB,0.51145E-02_JPRB,0.47117E-02_JPRB,0.41981E-02_JPRB, &
+ & 0.35927E-02_JPRB,0.29070E-02_JPRB,0.20850E-02_JPRB,0.12360E-02_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.54052E-02_JPRB,0.53858E-02_JPRB,0.51679E-02_JPRB,0.47829E-02_JPRB,0.42844E-02_JPRB, &
+ & 0.36942E-02_JPRB,0.30161E-02_JPRB,0.22030E-02_JPRB,0.13785E-02_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.53549E-02_JPRB,0.54029E-02_JPRB,0.52131E-02_JPRB,0.48529E-02_JPRB,0.43733E-02_JPRB, &
+ & 0.37946E-02_JPRB,0.31262E-02_JPRB,0.23268E-02_JPRB,0.15336E-02_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.52482E-02_JPRB,0.50940E-02_JPRB,0.47786E-02_JPRB,0.43454E-02_JPRB,0.38186E-02_JPRB, &
+ & 0.32129E-02_JPRB,0.25325E-02_JPRB,0.17227E-02_JPRB,0.80430E-03_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.52403E-02_JPRB,0.51313E-02_JPRB,0.48370E-02_JPRB,0.44315E-02_JPRB,0.39109E-02_JPRB, &
+ & 0.33052E-02_JPRB,0.26254E-02_JPRB,0.18226E-02_JPRB,0.90614E-03_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.52188E-02_JPRB,0.51614E-02_JPRB,0.48948E-02_JPRB,0.45073E-02_JPRB,0.39963E-02_JPRB, &
+ & 0.33961E-02_JPRB,0.27198E-02_JPRB,0.19222E-02_JPRB,0.10146E-02_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.51826E-02_JPRB,0.51837E-02_JPRB,0.49460E-02_JPRB,0.45770E-02_JPRB,0.40791E-02_JPRB, &
+ & 0.34891E-02_JPRB,0.28146E-02_JPRB,0.20278E-02_JPRB,0.11325E-02_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.51359E-02_JPRB,0.51960E-02_JPRB,0.49902E-02_JPRB,0.46430E-02_JPRB,0.41602E-02_JPRB, &
+ & 0.35811E-02_JPRB,0.29127E-02_JPRB,0.21431E-02_JPRB,0.12633E-02_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.49876E-02_JPRB,0.48388E-02_JPRB,0.45133E-02_JPRB,0.40992E-02_JPRB,0.35901E-02_JPRB, &
+ & 0.30030E-02_JPRB,0.23527E-02_JPRB,0.15765E-02_JPRB,0.64714E-03_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.49850E-02_JPRB,0.48808E-02_JPRB,0.45736E-02_JPRB,0.41821E-02_JPRB,0.36790E-02_JPRB, &
+ & 0.30941E-02_JPRB,0.24388E-02_JPRB,0.16655E-02_JPRB,0.72927E-03_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.49660E-02_JPRB,0.49117E-02_JPRB,0.46346E-02_JPRB,0.42593E-02_JPRB,0.37631E-02_JPRB, &
+ & 0.31820E-02_JPRB,0.25243E-02_JPRB,0.17543E-02_JPRB,0.81771E-03_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.49361E-02_JPRB,0.49307E-02_JPRB,0.46909E-02_JPRB,0.43285E-02_JPRB,0.38459E-02_JPRB, &
+ & 0.32679E-02_JPRB,0.26083E-02_JPRB,0.18450E-02_JPRB,0.91578E-03_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.48943E-02_JPRB,0.49413E-02_JPRB,0.47366E-02_JPRB,0.43959E-02_JPRB,0.39239E-02_JPRB, &
+ & 0.33496E-02_JPRB,0.26941E-02_JPRB,0.19416E-02_JPRB,0.10197E-02_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.46848E-02_JPRB,0.45423E-02_JPRB,0.42109E-02_JPRB,0.38147E-02_JPRB,0.33318E-02_JPRB, &
+ & 0.27806E-02_JPRB,0.21628E-02_JPRB,0.14435E-02_JPRB,0.52019E-03_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.46885E-02_JPRB,0.45846E-02_JPRB,0.42767E-02_JPRB,0.38967E-02_JPRB,0.34228E-02_JPRB, &
+ & 0.28698E-02_JPRB,0.22469E-02_JPRB,0.15180E-02_JPRB,0.58537E-03_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.46784E-02_JPRB,0.46158E-02_JPRB,0.43389E-02_JPRB,0.39718E-02_JPRB,0.35088E-02_JPRB, &
+ & 0.29561E-02_JPRB,0.23285E-02_JPRB,0.15932E-02_JPRB,0.65783E-03_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.46546E-02_JPRB,0.46379E-02_JPRB,0.43907E-02_JPRB,0.40421E-02_JPRB,0.35928E-02_JPRB, &
+ & 0.30394E-02_JPRB,0.24053E-02_JPRB,0.16703E-02_JPRB,0.73788E-03_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.46218E-02_JPRB,0.46560E-02_JPRB,0.44359E-02_JPRB,0.41109E-02_JPRB,0.36691E-02_JPRB, &
+ & 0.31156E-02_JPRB,0.24821E-02_JPRB,0.17515E-02_JPRB,0.82261E-03_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.43680E-02_JPRB,0.42271E-02_JPRB,0.38928E-02_JPRB,0.35080E-02_JPRB,0.30576E-02_JPRB, &
+ & 0.25405E-02_JPRB,0.19725E-02_JPRB,0.13117E-02_JPRB,0.42455E-03_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.43836E-02_JPRB,0.42742E-02_JPRB,0.39603E-02_JPRB,0.35901E-02_JPRB,0.31440E-02_JPRB, &
+ & 0.26294E-02_JPRB,0.20540E-02_JPRB,0.13812E-02_JPRB,0.47676E-03_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.43831E-02_JPRB,0.43074E-02_JPRB,0.40201E-02_JPRB,0.36636E-02_JPRB,0.32261E-02_JPRB, &
+ & 0.27164E-02_JPRB,0.21330E-02_JPRB,0.14464E-02_JPRB,0.53568E-03_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.43690E-02_JPRB,0.43343E-02_JPRB,0.40742E-02_JPRB,0.37289E-02_JPRB,0.33089E-02_JPRB, &
+ & 0.28017E-02_JPRB,0.22054E-02_JPRB,0.15130E-02_JPRB,0.59880E-03_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.43473E-02_JPRB,0.43575E-02_JPRB,0.41195E-02_JPRB,0.37951E-02_JPRB,0.33885E-02_JPRB, &
+ & 0.28774E-02_JPRB,0.22767E-02_JPRB,0.15816E-02_JPRB,0.66710E-03_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.40714E-02_JPRB,0.39122E-02_JPRB,0.35777E-02_JPRB,0.32091E-02_JPRB,0.27872E-02_JPRB, &
+ & 0.22994E-02_JPRB,0.17735E-02_JPRB,0.11790E-02_JPRB,0.33561E-03_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.40973E-02_JPRB,0.39625E-02_JPRB,0.36472E-02_JPRB,0.32877E-02_JPRB,0.28694E-02_JPRB, &
+ & 0.23826E-02_JPRB,0.18515E-02_JPRB,0.12426E-02_JPRB,0.37756E-03_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.41108E-02_JPRB,0.40033E-02_JPRB,0.37116E-02_JPRB,0.33595E-02_JPRB,0.29464E-02_JPRB, &
+ & 0.24646E-02_JPRB,0.19290E-02_JPRB,0.13037E-02_JPRB,0.42584E-03_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.41078E-02_JPRB,0.40382E-02_JPRB,0.37677E-02_JPRB,0.34232E-02_JPRB,0.30216E-02_JPRB, &
+ & 0.25463E-02_JPRB,0.20016E-02_JPRB,0.13624E-02_JPRB,0.47733E-03_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.40964E-02_JPRB,0.40666E-02_JPRB,0.38151E-02_JPRB,0.34890E-02_JPRB,0.30973E-02_JPRB, &
+ & 0.26200E-02_JPRB,0.20705E-02_JPRB,0.14239E-02_JPRB,0.53330E-03_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.37806E-02_JPRB,0.36256E-02_JPRB,0.32982E-02_JPRB,0.29389E-02_JPRB,0.25345E-02_JPRB, &
+ & 0.20760E-02_JPRB,0.15879E-02_JPRB,0.10489E-02_JPRB,0.28018E-03_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.38204E-02_JPRB,0.36872E-02_JPRB,0.33713E-02_JPRB,0.30154E-02_JPRB,0.26103E-02_JPRB, &
+ & 0.21557E-02_JPRB,0.16619E-02_JPRB,0.11071E-02_JPRB,0.31519E-03_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.38460E-02_JPRB,0.37374E-02_JPRB,0.34369E-02_JPRB,0.30817E-02_JPRB,0.26834E-02_JPRB, &
+ & 0.22319E-02_JPRB,0.17344E-02_JPRB,0.11636E-02_JPRB,0.35270E-03_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.38578E-02_JPRB,0.37771E-02_JPRB,0.34946E-02_JPRB,0.31444E-02_JPRB,0.27541E-02_JPRB, &
+ & 0.23067E-02_JPRB,0.18034E-02_JPRB,0.12192E-02_JPRB,0.39298E-03_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.38608E-02_JPRB,0.38134E-02_JPRB,0.35421E-02_JPRB,0.32035E-02_JPRB,0.28239E-02_JPRB, &
+ & 0.23777E-02_JPRB,0.18670E-02_JPRB,0.12748E-02_JPRB,0.43632E-03_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.34769E-02_JPRB,0.33291E-02_JPRB,0.30196E-02_JPRB,0.26781E-02_JPRB,0.23024E-02_JPRB, &
+ & 0.18824E-02_JPRB,0.14244E-02_JPRB,0.92897E-03_JPRB,0.24101E-03_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.35239E-02_JPRB,0.33972E-02_JPRB,0.30964E-02_JPRB,0.27587E-02_JPRB,0.23816E-02_JPRB, &
+ & 0.19578E-02_JPRB,0.14914E-02_JPRB,0.98181E-03_JPRB,0.27130E-03_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.35607E-02_JPRB,0.34526E-02_JPRB,0.31656E-02_JPRB,0.28309E-02_JPRB,0.24544E-02_JPRB, &
+ & 0.20284E-02_JPRB,0.15562E-02_JPRB,0.10333E-02_JPRB,0.30255E-03_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.35844E-02_JPRB,0.35023E-02_JPRB,0.32271E-02_JPRB,0.28968E-02_JPRB,0.25226E-02_JPRB, &
+ & 0.20957E-02_JPRB,0.16188E-02_JPRB,0.10830E-02_JPRB,0.33737E-03_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.35961E-02_JPRB,0.35446E-02_JPRB,0.32825E-02_JPRB,0.29568E-02_JPRB,0.25866E-02_JPRB, &
+ & 0.21594E-02_JPRB,0.16782E-02_JPRB,0.11324E-02_JPRB,0.37448E-03_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.31490E-02_JPRB,0.30162E-02_JPRB,0.27350E-02_JPRB,0.24183E-02_JPRB,0.20753E-02_JPRB, &
+ & 0.16954E-02_JPRB,0.12750E-02_JPRB,0.82561E-03_JPRB,0.24776E-03_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.32098E-02_JPRB,0.30913E-02_JPRB,0.28147E-02_JPRB,0.25006E-02_JPRB,0.21544E-02_JPRB, &
+ & 0.17699E-02_JPRB,0.13387E-02_JPRB,0.87243E-03_JPRB,0.27735E-03_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.32582E-02_JPRB,0.31563E-02_JPRB,0.28883E-02_JPRB,0.25742E-02_JPRB,0.22278E-02_JPRB, &
+ & 0.18394E-02_JPRB,0.14003E-02_JPRB,0.91830E-03_JPRB,0.30712E-03_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.32928E-02_JPRB,0.32146E-02_JPRB,0.29543E-02_JPRB,0.26421E-02_JPRB,0.22954E-02_JPRB, &
+ & 0.19038E-02_JPRB,0.14592E-02_JPRB,0.96296E-03_JPRB,0.33982E-03_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.33113E-02_JPRB,0.32637E-02_JPRB,0.30129E-02_JPRB,0.27034E-02_JPRB,0.23582E-02_JPRB, &
+ & 0.19652E-02_JPRB,0.15140E-02_JPRB,0.10071E-02_JPRB,0.37422E-03_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.28236E-02_JPRB,0.26993E-02_JPRB,0.24463E-02_JPRB,0.21584E-02_JPRB,0.18515E-02_JPRB, &
+ & 0.15144E-02_JPRB,0.11396E-02_JPRB,0.73456E-03_JPRB,0.30599E-03_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.28929E-02_JPRB,0.27796E-02_JPRB,0.25302E-02_JPRB,0.22416E-02_JPRB,0.19311E-02_JPRB, &
+ & 0.15864E-02_JPRB,0.12002E-02_JPRB,0.77955E-03_JPRB,0.32947E-03_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.29497E-02_JPRB,0.28523E-02_JPRB,0.26078E-02_JPRB,0.23174E-02_JPRB,0.20043E-02_JPRB, &
+ & 0.16542E-02_JPRB,0.12577E-02_JPRB,0.82291E-03_JPRB,0.35529E-03_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.29901E-02_JPRB,0.29165E-02_JPRB,0.26763E-02_JPRB,0.23877E-02_JPRB,0.20731E-02_JPRB, &
+ & 0.17177E-02_JPRB,0.13124E-02_JPRB,0.86431E-03_JPRB,0.38167E-03_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.30139E-02_JPRB,0.29672E-02_JPRB,0.27348E-02_JPRB,0.24509E-02_JPRB,0.21349E-02_JPRB, &
+ & 0.17760E-02_JPRB,0.13646E-02_JPRB,0.90496E-03_JPRB,0.40993E-03_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.25422E-02_JPRB,0.24347E-02_JPRB,0.22108E-02_JPRB,0.19505E-02_JPRB,0.16727E-02_JPRB, &
+ & 0.13714E-02_JPRB,0.10368E-02_JPRB,0.66936E-03_JPRB,0.31350E-03_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.26126E-02_JPRB,0.25184E-02_JPRB,0.22944E-02_JPRB,0.20307E-02_JPRB,0.17483E-02_JPRB, &
+ & 0.14377E-02_JPRB,0.10928E-02_JPRB,0.71181E-03_JPRB,0.33782E-03_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.26690E-02_JPRB,0.25901E-02_JPRB,0.23690E-02_JPRB,0.21043E-02_JPRB,0.18188E-02_JPRB, &
+ & 0.15016E-02_JPRB,0.11462E-02_JPRB,0.75188E-03_JPRB,0.35774E-03_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.27048E-02_JPRB,0.26504E-02_JPRB,0.24329E-02_JPRB,0.21704E-02_JPRB,0.18832E-02_JPRB, &
+ & 0.15599E-02_JPRB,0.11973E-02_JPRB,0.79054E-03_JPRB,0.37720E-03_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.27241E-02_JPRB,0.26964E-02_JPRB,0.24876E-02_JPRB,0.22289E-02_JPRB,0.19396E-02_JPRB, &
+ & 0.16131E-02_JPRB,0.12459E-02_JPRB,0.82843E-03_JPRB,0.39980E-03_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.22863E-02_JPRB,0.21916E-02_JPRB,0.19903E-02_JPRB,0.17560E-02_JPRB,0.15053E-02_JPRB, &
+ & 0.12361E-02_JPRB,0.93929E-03_JPRB,0.60469E-03_JPRB,0.28176E-03_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.23519E-02_JPRB,0.22705E-02_JPRB,0.20691E-02_JPRB,0.18315E-02_JPRB,0.15760E-02_JPRB, &
+ & 0.12985E-02_JPRB,0.99139E-03_JPRB,0.64462E-03_JPRB,0.30471E-03_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.23974E-02_JPRB,0.23352E-02_JPRB,0.21377E-02_JPRB,0.19000E-02_JPRB,0.16408E-02_JPRB, &
+ & 0.13574E-02_JPRB,0.10412E-02_JPRB,0.68214E-03_JPRB,0.32553E-03_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.24260E-02_JPRB,0.23879E-02_JPRB,0.21943E-02_JPRB,0.19602E-02_JPRB,0.16992E-02_JPRB, &
+ & 0.14109E-02_JPRB,0.10885E-02_JPRB,0.71852E-03_JPRB,0.34169E-03_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.24412E-02_JPRB,0.24274E-02_JPRB,0.22422E-02_JPRB,0.20116E-02_JPRB,0.17502E-02_JPRB, &
+ & 0.14591E-02_JPRB,0.11336E-02_JPRB,0.75474E-03_JPRB,0.36020E-03_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.20393E-02_JPRB,0.19603E-02_JPRB,0.17821E-02_JPRB,0.15739E-02_JPRB,0.13509E-02_JPRB, &
+ & 0.11133E-02_JPRB,0.84826E-03_JPRB,0.54289E-03_JPRB,0.23248E-03_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.20953E-02_JPRB,0.20307E-02_JPRB,0.18542E-02_JPRB,0.16433E-02_JPRB,0.14162E-02_JPRB, &
+ & 0.11712E-02_JPRB,0.89683E-03_JPRB,0.57958E-03_JPRB,0.25095E-03_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.21323E-02_JPRB,0.20881E-02_JPRB,0.19144E-02_JPRB,0.17046E-02_JPRB,0.14742E-02_JPRB, &
+ & 0.12241E-02_JPRB,0.94271E-03_JPRB,0.61480E-03_JPRB,0.26566E-03_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.21562E-02_JPRB,0.21324E-02_JPRB,0.19654E-02_JPRB,0.17578E-02_JPRB,0.15256E-02_JPRB, &
+ & 0.12715E-02_JPRB,0.98599E-03_JPRB,0.64941E-03_JPRB,0.28144E-03_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.21687E-02_JPRB,0.21674E-02_JPRB,0.20081E-02_JPRB,0.18029E-02_JPRB,0.15712E-02_JPRB, &
+ & 0.13148E-02_JPRB,0.10270E-02_JPRB,0.68370E-03_JPRB,0.29755E-03_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.10084E-01_JPRB,0.95278E-02_JPRB,0.88730E-02_JPRB,0.81189E-02_JPRB,0.71873E-02_JPRB, &
+ & 0.61505E-02_JPRB,0.50159E-02_JPRB,0.37383E-02_JPRB,0.30410E-02_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.10011E-01_JPRB,0.95195E-02_JPRB,0.89419E-02_JPRB,0.82272E-02_JPRB,0.73508E-02_JPRB, &
+ & 0.63699E-02_JPRB,0.52392E-02_JPRB,0.39784E-02_JPRB,0.34237E-02_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.99285E-02_JPRB,0.95060E-02_JPRB,0.90107E-02_JPRB,0.83435E-02_JPRB,0.75299E-02_JPRB, &
+ & 0.65814E-02_JPRB,0.54661E-02_JPRB,0.42490E-02_JPRB,0.38569E-02_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.98396E-02_JPRB,0.95039E-02_JPRB,0.90786E-02_JPRB,0.84657E-02_JPRB,0.77142E-02_JPRB, &
+ & 0.67908E-02_JPRB,0.57132E-02_JPRB,0.45510E-02_JPRB,0.43277E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.97470E-02_JPRB,0.95073E-02_JPRB,0.91451E-02_JPRB,0.85961E-02_JPRB,0.78983E-02_JPRB, &
+ & 0.70134E-02_JPRB,0.59878E-02_JPRB,0.48898E-02_JPRB,0.48367E-02_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.10032E-01_JPRB,0.95001E-02_JPRB,0.88015E-02_JPRB,0.80012E-02_JPRB,0.70675E-02_JPRB, &
+ & 0.59994E-02_JPRB,0.48088E-02_JPRB,0.34803E-02_JPRB,0.24973E-02_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.99727E-02_JPRB,0.94952E-02_JPRB,0.88708E-02_JPRB,0.81052E-02_JPRB,0.72227E-02_JPRB, &
+ & 0.61975E-02_JPRB,0.50149E-02_JPRB,0.36876E-02_JPRB,0.28262E-02_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.99020E-02_JPRB,0.94876E-02_JPRB,0.89395E-02_JPRB,0.82200E-02_JPRB,0.73884E-02_JPRB, &
+ & 0.63917E-02_JPRB,0.52241E-02_JPRB,0.39189E-02_JPRB,0.31881E-02_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.98208E-02_JPRB,0.94907E-02_JPRB,0.90072E-02_JPRB,0.83409E-02_JPRB,0.75534E-02_JPRB, &
+ & 0.65848E-02_JPRB,0.54476E-02_JPRB,0.41701E-02_JPRB,0.35802E-02_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.97350E-02_JPRB,0.95036E-02_JPRB,0.90758E-02_JPRB,0.84664E-02_JPRB,0.77179E-02_JPRB, &
+ & 0.67885E-02_JPRB,0.56906E-02_JPRB,0.44399E-02_JPRB,0.40032E-02_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.99249E-02_JPRB,0.94002E-02_JPRB,0.86731E-02_JPRB,0.78226E-02_JPRB,0.68627E-02_JPRB, &
+ & 0.57870E-02_JPRB,0.45641E-02_JPRB,0.32036E-02_JPRB,0.20068E-02_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.98781E-02_JPRB,0.94039E-02_JPRB,0.87415E-02_JPRB,0.79225E-02_JPRB,0.70078E-02_JPRB, &
+ & 0.59682E-02_JPRB,0.47504E-02_JPRB,0.33906E-02_JPRB,0.22741E-02_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.98245E-02_JPRB,0.94056E-02_JPRB,0.88077E-02_JPRB,0.80290E-02_JPRB,0.71634E-02_JPRB, &
+ & 0.61455E-02_JPRB,0.49439E-02_JPRB,0.35923E-02_JPRB,0.25675E-02_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.97585E-02_JPRB,0.94181E-02_JPRB,0.88723E-02_JPRB,0.81452E-02_JPRB,0.73134E-02_JPRB, &
+ & 0.63196E-02_JPRB,0.51498E-02_JPRB,0.38082E-02_JPRB,0.28828E-02_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.96800E-02_JPRB,0.94346E-02_JPRB,0.89400E-02_JPRB,0.82650E-02_JPRB,0.74596E-02_JPRB, &
+ & 0.65093E-02_JPRB,0.53613E-02_JPRB,0.40378E-02_JPRB,0.32210E-02_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.97390E-02_JPRB,0.92223E-02_JPRB,0.84805E-02_JPRB,0.75962E-02_JPRB,0.66183E-02_JPRB, &
+ & 0.55421E-02_JPRB,0.43153E-02_JPRB,0.29439E-02_JPRB,0.16096E-02_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.97149E-02_JPRB,0.92440E-02_JPRB,0.85515E-02_JPRB,0.76965E-02_JPRB,0.67525E-02_JPRB, &
+ & 0.57037E-02_JPRB,0.44852E-02_JPRB,0.31152E-02_JPRB,0.18298E-02_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.96772E-02_JPRB,0.92607E-02_JPRB,0.86210E-02_JPRB,0.78004E-02_JPRB,0.68947E-02_JPRB, &
+ & 0.58626E-02_JPRB,0.46601E-02_JPRB,0.32973E-02_JPRB,0.20675E-02_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.96222E-02_JPRB,0.92823E-02_JPRB,0.86884E-02_JPRB,0.79077E-02_JPRB,0.70317E-02_JPRB, &
+ & 0.60213E-02_JPRB,0.48471E-02_JPRB,0.34874E-02_JPRB,0.23199E-02_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.95548E-02_JPRB,0.93032E-02_JPRB,0.87544E-02_JPRB,0.80177E-02_JPRB,0.71673E-02_JPRB, &
+ & 0.61924E-02_JPRB,0.50398E-02_JPRB,0.36845E-02_JPRB,0.25914E-02_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.94682E-02_JPRB,0.89654E-02_JPRB,0.82210E-02_JPRB,0.73222E-02_JPRB,0.63403E-02_JPRB, &
+ & 0.52735E-02_JPRB,0.40692E-02_JPRB,0.27114E-02_JPRB,0.12929E-02_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.94609E-02_JPRB,0.90053E-02_JPRB,0.83016E-02_JPRB,0.74278E-02_JPRB,0.64685E-02_JPRB, &
+ & 0.54213E-02_JPRB,0.42231E-02_JPRB,0.28638E-02_JPRB,0.14728E-02_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.94353E-02_JPRB,0.90391E-02_JPRB,0.83802E-02_JPRB,0.75305E-02_JPRB,0.66027E-02_JPRB, &
+ & 0.55646E-02_JPRB,0.43790E-02_JPRB,0.30279E-02_JPRB,0.16663E-02_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.93989E-02_JPRB,0.90684E-02_JPRB,0.84481E-02_JPRB,0.76404E-02_JPRB,0.67294E-02_JPRB, &
+ & 0.57082E-02_JPRB,0.45495E-02_JPRB,0.31980E-02_JPRB,0.18711E-02_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.93472E-02_JPRB,0.90926E-02_JPRB,0.85136E-02_JPRB,0.77442E-02_JPRB,0.68542E-02_JPRB, &
+ & 0.58646E-02_JPRB,0.47259E-02_JPRB,0.33701E-02_JPRB,0.20921E-02_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.90687E-02_JPRB,0.86083E-02_JPRB,0.78842E-02_JPRB,0.69920E-02_JPRB,0.60171E-02_JPRB, &
+ & 0.49784E-02_JPRB,0.38163E-02_JPRB,0.24892E-02_JPRB,0.10375E-02_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.90845E-02_JPRB,0.86742E-02_JPRB,0.79759E-02_JPRB,0.71037E-02_JPRB,0.61494E-02_JPRB, &
+ & 0.51176E-02_JPRB,0.39577E-02_JPRB,0.26285E-02_JPRB,0.11848E-02_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.90836E-02_JPRB,0.87225E-02_JPRB,0.80580E-02_JPRB,0.72119E-02_JPRB,0.62799E-02_JPRB, &
+ & 0.52546E-02_JPRB,0.41006E-02_JPRB,0.27750E-02_JPRB,0.13422E-02_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.90655E-02_JPRB,0.87611E-02_JPRB,0.81305E-02_JPRB,0.73221E-02_JPRB,0.64054E-02_JPRB, &
+ & 0.53892E-02_JPRB,0.42503E-02_JPRB,0.29301E-02_JPRB,0.15078E-02_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.90286E-02_JPRB,0.87944E-02_JPRB,0.82022E-02_JPRB,0.74247E-02_JPRB,0.65248E-02_JPRB, &
+ & 0.55305E-02_JPRB,0.44113E-02_JPRB,0.30838E-02_JPRB,0.16859E-02_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.85850E-02_JPRB,0.81350E-02_JPRB,0.74326E-02_JPRB,0.65794E-02_JPRB,0.56482E-02_JPRB, &
+ & 0.46582E-02_JPRB,0.35544E-02_JPRB,0.22844E-02_JPRB,0.80765E-03_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.86250E-02_JPRB,0.82179E-02_JPRB,0.75359E-02_JPRB,0.67022E-02_JPRB,0.57899E-02_JPRB, &
+ & 0.47962E-02_JPRB,0.36869E-02_JPRB,0.24122E-02_JPRB,0.92682E-03_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.86440E-02_JPRB,0.82839E-02_JPRB,0.76315E-02_JPRB,0.68246E-02_JPRB,0.59218E-02_JPRB, &
+ & 0.49298E-02_JPRB,0.38219E-02_JPRB,0.25431E-02_JPRB,0.10538E-02_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.86410E-02_JPRB,0.83371E-02_JPRB,0.77195E-02_JPRB,0.69421E-02_JPRB,0.60483E-02_JPRB, &
+ & 0.50620E-02_JPRB,0.39587E-02_JPRB,0.26818E-02_JPRB,0.11890E-02_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.86213E-02_JPRB,0.83816E-02_JPRB,0.78035E-02_JPRB,0.70537E-02_JPRB,0.61695E-02_JPRB, &
+ & 0.51947E-02_JPRB,0.41038E-02_JPRB,0.28206E-02_JPRB,0.13358E-02_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.80690E-02_JPRB,0.76260E-02_JPRB,0.69398E-02_JPRB,0.61270E-02_JPRB,0.52372E-02_JPRB, &
+ & 0.42965E-02_JPRB,0.32695E-02_JPRB,0.20922E-02_JPRB,0.69791E-03_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.81346E-02_JPRB,0.77325E-02_JPRB,0.70609E-02_JPRB,0.62554E-02_JPRB,0.53744E-02_JPRB, &
+ & 0.44362E-02_JPRB,0.34019E-02_JPRB,0.22104E-02_JPRB,0.78609E-03_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.81749E-02_JPRB,0.78188E-02_JPRB,0.71688E-02_JPRB,0.63791E-02_JPRB,0.55086E-02_JPRB, &
+ & 0.45702E-02_JPRB,0.35360E-02_JPRB,0.23302E-02_JPRB,0.88068E-03_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.81959E-02_JPRB,0.78839E-02_JPRB,0.72650E-02_JPRB,0.64997E-02_JPRB,0.56387E-02_JPRB, &
+ & 0.47059E-02_JPRB,0.36681E-02_JPRB,0.24532E-02_JPRB,0.97840E-03_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.81937E-02_JPRB,0.79411E-02_JPRB,0.73546E-02_JPRB,0.66134E-02_JPRB,0.57649E-02_JPRB, &
+ & 0.48383E-02_JPRB,0.38022E-02_JPRB,0.25773E-02_JPRB,0.10847E-02_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.75182E-02_JPRB,0.70907E-02_JPRB,0.64287E-02_JPRB,0.56605E-02_JPRB,0.48216E-02_JPRB, &
+ & 0.39323E-02_JPRB,0.29776E-02_JPRB,0.18987E-02_JPRB,0.67472E-03_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.76076E-02_JPRB,0.72195E-02_JPRB,0.65653E-02_JPRB,0.58009E-02_JPRB,0.49640E-02_JPRB, &
+ & 0.40692E-02_JPRB,0.31049E-02_JPRB,0.20098E-02_JPRB,0.74914E-03_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.76735E-02_JPRB,0.73227E-02_JPRB,0.66862E-02_JPRB,0.59346E-02_JPRB,0.51012E-02_JPRB, &
+ & 0.42015E-02_JPRB,0.32328E-02_JPRB,0.21222E-02_JPRB,0.83367E-03_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.77132E-02_JPRB,0.74045E-02_JPRB,0.67969E-02_JPRB,0.60620E-02_JPRB,0.52309E-02_JPRB, &
+ & 0.43347E-02_JPRB,0.33599E-02_JPRB,0.22355E-02_JPRB,0.91964E-03_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.77286E-02_JPRB,0.74752E-02_JPRB,0.68965E-02_JPRB,0.61793E-02_JPRB,0.53584E-02_JPRB, &
+ & 0.44621E-02_JPRB,0.34884E-02_JPRB,0.23497E-02_JPRB,0.10114E-02_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.70149E-02_JPRB,0.65825E-02_JPRB,0.59329E-02_JPRB,0.52017E-02_JPRB,0.44219E-02_JPRB, &
+ & 0.35899E-02_JPRB,0.27069E-02_JPRB,0.17187E-02_JPRB,0.74519E-03_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.71248E-02_JPRB,0.67269E-02_JPRB,0.60810E-02_JPRB,0.53515E-02_JPRB,0.45670E-02_JPRB, &
+ & 0.37282E-02_JPRB,0.28313E-02_JPRB,0.18204E-02_JPRB,0.83494E-03_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.72044E-02_JPRB,0.68394E-02_JPRB,0.62076E-02_JPRB,0.54929E-02_JPRB,0.47097E-02_JPRB, &
+ & 0.38613E-02_JPRB,0.29540E-02_JPRB,0.19235E-02_JPRB,0.93279E-03_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.72597E-02_JPRB,0.69309E-02_JPRB,0.63267E-02_JPRB,0.56269E-02_JPRB,0.48423E-02_JPRB, &
+ & 0.39913E-02_JPRB,0.30764E-02_JPRB,0.20273E-02_JPRB,0.10348E-02_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.72955E-02_JPRB,0.70104E-02_JPRB,0.64378E-02_JPRB,0.57479E-02_JPRB,0.49695E-02_JPRB, &
+ & 0.41180E-02_JPRB,0.31960E-02_JPRB,0.21324E-02_JPRB,0.11387E-02_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.65628E-02_JPRB,0.61735E-02_JPRB,0.55551E-02_JPRB,0.48677E-02_JPRB,0.41265E-02_JPRB, &
+ & 0.33334E-02_JPRB,0.25028E-02_JPRB,0.15938E-02_JPRB,0.74406E-03_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.66786E-02_JPRB,0.63151E-02_JPRB,0.57025E-02_JPRB,0.50172E-02_JPRB,0.42702E-02_JPRB, &
+ & 0.34674E-02_JPRB,0.26229E-02_JPRB,0.16875E-02_JPRB,0.82711E-03_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.67664E-02_JPRB,0.64350E-02_JPRB,0.58347E-02_JPRB,0.51562E-02_JPRB,0.44059E-02_JPRB, &
+ & 0.35945E-02_JPRB,0.27422E-02_JPRB,0.17822E-02_JPRB,0.92379E-03_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.68381E-02_JPRB,0.65357E-02_JPRB,0.59597E-02_JPRB,0.52850E-02_JPRB,0.45292E-02_JPRB, &
+ & 0.37195E-02_JPRB,0.28585E-02_JPRB,0.18773E-02_JPRB,0.10214E-02_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.68910E-02_JPRB,0.66274E-02_JPRB,0.60702E-02_JPRB,0.54014E-02_JPRB,0.46503E-02_JPRB, &
+ & 0.38396E-02_JPRB,0.29707E-02_JPRB,0.19733E-02_JPRB,0.11179E-02_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.60794E-02_JPRB,0.57316E-02_JPRB,0.51563E-02_JPRB,0.45236E-02_JPRB,0.38371E-02_JPRB, &
+ & 0.31013E-02_JPRB,0.23239E-02_JPRB,0.14745E-02_JPRB,0.70212E-03_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.62026E-02_JPRB,0.58782E-02_JPRB,0.53110E-02_JPRB,0.46778E-02_JPRB,0.39838E-02_JPRB, &
+ & 0.32334E-02_JPRB,0.24368E-02_JPRB,0.15615E-02_JPRB,0.77146E-03_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.63087E-02_JPRB,0.60102E-02_JPRB,0.54544E-02_JPRB,0.48220E-02_JPRB,0.41191E-02_JPRB, &
+ & 0.33562E-02_JPRB,0.25462E-02_JPRB,0.16493E-02_JPRB,0.85116E-03_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.63948E-02_JPRB,0.61265E-02_JPRB,0.55863E-02_JPRB,0.49541E-02_JPRB,0.42453E-02_JPRB, &
+ & 0.34753E-02_JPRB,0.26508E-02_JPRB,0.17372E-02_JPRB,0.93862E-03_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.64607E-02_JPRB,0.62309E-02_JPRB,0.57052E-02_JPRB,0.50757E-02_JPRB,0.43660E-02_JPRB, &
+ & 0.35907E-02_JPRB,0.27548E-02_JPRB,0.18249E-02_JPRB,0.10221E-02_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.55937E-02_JPRB,0.52793E-02_JPRB,0.47517E-02_JPRB,0.41692E-02_JPRB,0.35394E-02_JPRB, &
+ & 0.28625E-02_JPRB,0.21454E-02_JPRB,0.13668E-02_JPRB,0.61956E-03_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.57319E-02_JPRB,0.54374E-02_JPRB,0.49129E-02_JPRB,0.43258E-02_JPRB,0.36843E-02_JPRB, &
+ & 0.29907E-02_JPRB,0.22551E-02_JPRB,0.14474E-02_JPRB,0.68007E-03_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.58515E-02_JPRB,0.55788E-02_JPRB,0.50622E-02_JPRB,0.44734E-02_JPRB,0.38194E-02_JPRB, &
+ & 0.31146E-02_JPRB,0.23600E-02_JPRB,0.15267E-02_JPRB,0.75016E-03_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.59483E-02_JPRB,0.57068E-02_JPRB,0.51995E-02_JPRB,0.46068E-02_JPRB,0.39501E-02_JPRB, &
+ & 0.32357E-02_JPRB,0.24610E-02_JPRB,0.16061E-02_JPRB,0.82038E-03_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.60233E-02_JPRB,0.58195E-02_JPRB,0.53236E-02_JPRB,0.47349E-02_JPRB,0.40732E-02_JPRB, &
+ & 0.33509E-02_JPRB,0.25596E-02_JPRB,0.16868E-02_JPRB,0.89122E-03_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.19771E-01_JPRB,0.18370E-01_JPRB,0.17356E-01_JPRB,0.16079E-01_JPRB,0.14680E-01_JPRB, &
+ & 0.13282E-01_JPRB,0.11980E-01_JPRB,0.11582E-01_JPRB,0.12985E-01_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.19636E-01_JPRB,0.18337E-01_JPRB,0.17425E-01_JPRB,0.16276E-01_JPRB,0.15036E-01_JPRB, &
+ & 0.13800E-01_JPRB,0.12788E-01_JPRB,0.12799E-01_JPRB,0.14491E-01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.19487E-01_JPRB,0.18291E-01_JPRB,0.17516E-01_JPRB,0.16543E-01_JPRB,0.15458E-01_JPRB, &
+ & 0.14398E-01_JPRB,0.13717E-01_JPRB,0.14121E-01_JPRB,0.16094E-01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.19329E-01_JPRB,0.18244E-01_JPRB,0.17665E-01_JPRB,0.16858E-01_JPRB,0.15921E-01_JPRB, &
+ & 0.15082E-01_JPRB,0.14738E-01_JPRB,0.15534E-01_JPRB,0.17796E-01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.19162E-01_JPRB,0.18208E-01_JPRB,0.17862E-01_JPRB,0.17203E-01_JPRB,0.16407E-01_JPRB, &
+ & 0.15804E-01_JPRB,0.15831E-01_JPRB,0.17016E-01_JPRB,0.19554E-01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.20491E-01_JPRB,0.19041E-01_JPRB,0.17931E-01_JPRB,0.16490E-01_JPRB,0.14871E-01_JPRB, &
+ & 0.13204E-01_JPRB,0.11551E-01_JPRB,0.10493E-01_JPRB,0.11370E-01_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.20351E-01_JPRB,0.19021E-01_JPRB,0.18003E-01_JPRB,0.16688E-01_JPRB,0.15207E-01_JPRB, &
+ & 0.13674E-01_JPRB,0.12228E-01_JPRB,0.11542E-01_JPRB,0.12722E-01_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.20205E-01_JPRB,0.18987E-01_JPRB,0.18097E-01_JPRB,0.16946E-01_JPRB,0.15590E-01_JPRB, &
+ & 0.14204E-01_JPRB,0.13003E-01_JPRB,0.12703E-01_JPRB,0.14170E-01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.20054E-01_JPRB,0.18946E-01_JPRB,0.18241E-01_JPRB,0.17244E-01_JPRB,0.16012E-01_JPRB, &
+ & 0.14800E-01_JPRB,0.13862E-01_JPRB,0.13953E-01_JPRB,0.15702E-01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.19890E-01_JPRB,0.18914E-01_JPRB,0.18431E-01_JPRB,0.17568E-01_JPRB,0.16464E-01_JPRB, &
+ & 0.15445E-01_JPRB,0.14813E-01_JPRB,0.15302E-01_JPRB,0.17318E-01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.21143E-01_JPRB,0.19662E-01_JPRB,0.18419E-01_JPRB,0.16811E-01_JPRB,0.15005E-01_JPRB, &
+ & 0.13075E-01_JPRB,0.11094E-01_JPRB,0.93893E-02_JPRB,0.95682E-02_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.21021E-01_JPRB,0.19658E-01_JPRB,0.18498E-01_JPRB,0.17007E-01_JPRB,0.15312E-01_JPRB, &
+ & 0.13491E-01_JPRB,0.11661E-01_JPRB,0.10256E-01_JPRB,0.10742E-01_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.20887E-01_JPRB,0.19635E-01_JPRB,0.18594E-01_JPRB,0.17251E-01_JPRB,0.15669E-01_JPRB, &
+ & 0.13959E-01_JPRB,0.12304E-01_JPRB,0.11227E-01_JPRB,0.12012E-01_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.20742E-01_JPRB,0.19603E-01_JPRB,0.18727E-01_JPRB,0.17530E-01_JPRB,0.16058E-01_JPRB, &
+ & 0.14485E-01_JPRB,0.13015E-01_JPRB,0.12294E-01_JPRB,0.13375E-01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.20582E-01_JPRB,0.19578E-01_JPRB,0.18903E-01_JPRB,0.17831E-01_JPRB,0.16483E-01_JPRB, &
+ & 0.15047E-01_JPRB,0.13818E-01_JPRB,0.13471E-01_JPRB,0.14836E-01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.21726E-01_JPRB,0.20199E-01_JPRB,0.18812E-01_JPRB,0.17047E-01_JPRB,0.15080E-01_JPRB, &
+ & 0.12938E-01_JPRB,0.10693E-01_JPRB,0.84650E-02_JPRB,0.79270E-02_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.21624E-01_JPRB,0.20213E-01_JPRB,0.18897E-01_JPRB,0.17238E-01_JPRB,0.15368E-01_JPRB, &
+ & 0.13326E-01_JPRB,0.11175E-01_JPRB,0.91656E-02_JPRB,0.89409E-02_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.21502E-01_JPRB,0.20207E-01_JPRB,0.18990E-01_JPRB,0.17468E-01_JPRB,0.15708E-01_JPRB, &
+ & 0.13755E-01_JPRB,0.11721E-01_JPRB,0.99561E-02_JPRB,0.10044E-01_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.21364E-01_JPRB,0.20186E-01_JPRB,0.19114E-01_JPRB,0.17747E-01_JPRB,0.16075E-01_JPRB, &
+ & 0.14230E-01_JPRB,0.12327E-01_JPRB,0.10844E-01_JPRB,0.11238E-01_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.21208E-01_JPRB,0.20165E-01_JPRB,0.19280E-01_JPRB,0.18035E-01_JPRB,0.16477E-01_JPRB, &
+ & 0.14734E-01_JPRB,0.13004E-01_JPRB,0.11837E-01_JPRB,0.12527E-01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.22212E-01_JPRB,0.20643E-01_JPRB,0.19101E-01_JPRB,0.17193E-01_JPRB,0.15094E-01_JPRB, &
+ & 0.12790E-01_JPRB,0.10344E-01_JPRB,0.77661E-02_JPRB,0.65292E-02_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.22131E-01_JPRB,0.20679E-01_JPRB,0.19192E-01_JPRB,0.17388E-01_JPRB,0.15373E-01_JPRB, &
+ & 0.13156E-01_JPRB,0.10779E-01_JPRB,0.83326E-02_JPRB,0.74004E-02_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.22024E-01_JPRB,0.20689E-01_JPRB,0.19289E-01_JPRB,0.17614E-01_JPRB,0.15701E-01_JPRB, &
+ & 0.13560E-01_JPRB,0.11259E-01_JPRB,0.89716E-02_JPRB,0.83509E-02_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.21891E-01_JPRB,0.20674E-01_JPRB,0.19419E-01_JPRB,0.17880E-01_JPRB,0.16055E-01_JPRB, &
+ & 0.14002E-01_JPRB,0.11784E-01_JPRB,0.96942E-02_JPRB,0.93863E-02_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.21733E-01_JPRB,0.20659E-01_JPRB,0.19581E-01_JPRB,0.18166E-01_JPRB,0.16436E-01_JPRB, &
+ & 0.14467E-01_JPRB,0.12356E-01_JPRB,0.10508E-01_JPRB,0.10499E-01_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.22561E-01_JPRB,0.20963E-01_JPRB,0.19278E-01_JPRB,0.17248E-01_JPRB,0.15027E-01_JPRB, &
+ & 0.12605E-01_JPRB,0.99913E-02_JPRB,0.71998E-02_JPRB,0.53191E-02_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.22505E-01_JPRB,0.21027E-01_JPRB,0.19391E-01_JPRB,0.17451E-01_JPRB,0.15296E-01_JPRB, &
+ & 0.12947E-01_JPRB,0.10394E-01_JPRB,0.76719E-02_JPRB,0.60628E-02_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.22407E-01_JPRB,0.21057E-01_JPRB,0.19505E-01_JPRB,0.17673E-01_JPRB,0.15617E-01_JPRB, &
+ & 0.13330E-01_JPRB,0.10834E-01_JPRB,0.82004E-02_JPRB,0.68698E-02_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.22287E-01_JPRB,0.21061E-01_JPRB,0.19636E-01_JPRB,0.17933E-01_JPRB,0.15963E-01_JPRB, &
+ & 0.13742E-01_JPRB,0.11312E-01_JPRB,0.87854E-02_JPRB,0.77488E-02_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.22148E-01_JPRB,0.21053E-01_JPRB,0.19794E-01_JPRB,0.18212E-01_JPRB,0.16329E-01_JPRB, &
+ & 0.14180E-01_JPRB,0.11816E-01_JPRB,0.94417E-02_JPRB,0.86993E-02_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.22745E-01_JPRB,0.21135E-01_JPRB,0.19327E-01_JPRB,0.17197E-01_JPRB,0.14893E-01_JPRB, &
+ & 0.12374E-01_JPRB,0.96536E-02_JPRB,0.67256E-02_JPRB,0.43127E-02_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.22707E-01_JPRB,0.21230E-01_JPRB,0.19474E-01_JPRB,0.17423E-01_JPRB,0.15162E-01_JPRB, &
+ & 0.12700E-01_JPRB,0.10030E-01_JPRB,0.71370E-02_JPRB,0.49389E-02_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.22632E-01_JPRB,0.21281E-01_JPRB,0.19608E-01_JPRB,0.17649E-01_JPRB,0.15471E-01_JPRB, &
+ & 0.13070E-01_JPRB,0.10436E-01_JPRB,0.75822E-02_JPRB,0.56174E-02_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.22537E-01_JPRB,0.21307E-01_JPRB,0.19744E-01_JPRB,0.17903E-01_JPRB,0.15813E-01_JPRB, &
+ & 0.13461E-01_JPRB,0.10872E-01_JPRB,0.80682E-02_JPRB,0.63562E-02_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.22420E-01_JPRB,0.21314E-01_JPRB,0.19904E-01_JPRB,0.18182E-01_JPRB,0.16160E-01_JPRB, &
+ & 0.13874E-01_JPRB,0.11331E-01_JPRB,0.86088E-02_JPRB,0.71565E-02_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.22742E-01_JPRB,0.21141E-01_JPRB,0.19244E-01_JPRB,0.17036E-01_JPRB,0.14667E-01_JPRB, &
+ & 0.12093E-01_JPRB,0.93194E-02_JPRB,0.63016E-02_JPRB,0.33604E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.22738E-01_JPRB,0.21267E-01_JPRB,0.19420E-01_JPRB,0.17289E-01_JPRB,0.14951E-01_JPRB, &
+ & 0.12414E-01_JPRB,0.96717E-02_JPRB,0.66654E-02_JPRB,0.38903E-02_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.22699E-01_JPRB,0.21347E-01_JPRB,0.19574E-01_JPRB,0.17525E-01_JPRB,0.15260E-01_JPRB, &
+ & 0.12775E-01_JPRB,0.10048E-01_JPRB,0.70608E-02_JPRB,0.44626E-02_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.22634E-01_JPRB,0.21402E-01_JPRB,0.19725E-01_JPRB,0.17775E-01_JPRB,0.15596E-01_JPRB, &
+ & 0.13150E-01_JPRB,0.10455E-01_JPRB,0.74847E-02_JPRB,0.50904E-02_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.22550E-01_JPRB,0.21432E-01_JPRB,0.19888E-01_JPRB,0.18059E-01_JPRB,0.15936E-01_JPRB, &
+ & 0.13540E-01_JPRB,0.10879E-01_JPRB,0.79454E-02_JPRB,0.57754E-02_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.22571E-01_JPRB,0.20980E-01_JPRB,0.19017E-01_JPRB,0.16764E-01_JPRB,0.14350E-01_JPRB, &
+ & 0.11743E-01_JPRB,0.89583E-02_JPRB,0.59107E-02_JPRB,0.27753E-02_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.22607E-01_JPRB,0.21147E-01_JPRB,0.19231E-01_JPRB,0.17040E-01_JPRB,0.14648E-01_JPRB, &
+ & 0.12069E-01_JPRB,0.92988E-02_JPRB,0.62425E-02_JPRB,0.31527E-02_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.22609E-01_JPRB,0.21268E-01_JPRB,0.19413E-01_JPRB,0.17284E-01_JPRB,0.14954E-01_JPRB, &
+ & 0.12424E-01_JPRB,0.96568E-02_JPRB,0.66010E-02_JPRB,0.35387E-02_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.22589E-01_JPRB,0.21355E-01_JPRB,0.19582E-01_JPRB,0.17535E-01_JPRB,0.15285E-01_JPRB, &
+ & 0.12790E-01_JPRB,0.10038E-01_JPRB,0.69765E-02_JPRB,0.39766E-02_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.22546E-01_JPRB,0.21413E-01_JPRB,0.19758E-01_JPRB,0.17821E-01_JPRB,0.15622E-01_JPRB, &
+ & 0.13166E-01_JPRB,0.10432E-01_JPRB,0.73821E-02_JPRB,0.44450E-02_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.22137E-01_JPRB,0.20618E-01_JPRB,0.18650E-01_JPRB,0.16403E-01_JPRB,0.13972E-01_JPRB, &
+ & 0.11364E-01_JPRB,0.85848E-02_JPRB,0.55632E-02_JPRB,0.31593E-02_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.22231E-01_JPRB,0.20835E-01_JPRB,0.18905E-01_JPRB,0.16706E-01_JPRB,0.14289E-01_JPRB, &
+ & 0.11695E-01_JPRB,0.89167E-02_JPRB,0.58739E-02_JPRB,0.35325E-02_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.22295E-01_JPRB,0.21010E-01_JPRB,0.19131E-01_JPRB,0.16972E-01_JPRB,0.14595E-01_JPRB, &
+ & 0.12040E-01_JPRB,0.92665E-02_JPRB,0.62059E-02_JPRB,0.39315E-02_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.22331E-01_JPRB,0.21144E-01_JPRB,0.19334E-01_JPRB,0.17233E-01_JPRB,0.14916E-01_JPRB, &
+ & 0.12396E-01_JPRB,0.96355E-02_JPRB,0.65507E-02_JPRB,0.43409E-02_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.22332E-01_JPRB,0.21248E-01_JPRB,0.19527E-01_JPRB,0.17517E-01_JPRB,0.15252E-01_JPRB, &
+ & 0.12765E-01_JPRB,0.10012E-01_JPRB,0.69176E-02_JPRB,0.47851E-02_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.21611E-01_JPRB,0.20177E-01_JPRB,0.18220E-01_JPRB,0.16014E-01_JPRB,0.13625E-01_JPRB, &
+ & 0.11072E-01_JPRB,0.83376E-02_JPRB,0.53526E-02_JPRB,0.32967E-02_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.21754E-01_JPRB,0.20431E-01_JPRB,0.18507E-01_JPRB,0.16333E-01_JPRB,0.13954E-01_JPRB, &
+ & 0.11415E-01_JPRB,0.86702E-02_JPRB,0.56558E-02_JPRB,0.36779E-02_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.21862E-01_JPRB,0.20634E-01_JPRB,0.18769E-01_JPRB,0.16624E-01_JPRB,0.14280E-01_JPRB, &
+ & 0.11762E-01_JPRB,0.90145E-02_JPRB,0.59759E-02_JPRB,0.40891E-02_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.21929E-01_JPRB,0.20796E-01_JPRB,0.18995E-01_JPRB,0.16914E-01_JPRB,0.14621E-01_JPRB, &
+ & 0.12122E-01_JPRB,0.93752E-02_JPRB,0.63026E-02_JPRB,0.45492E-02_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.21956E-01_JPRB,0.20925E-01_JPRB,0.19222E-01_JPRB,0.17218E-01_JPRB,0.14974E-01_JPRB, &
+ & 0.12492E-01_JPRB,0.97406E-02_JPRB,0.66508E-02_JPRB,0.50324E-02_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.20989E-01_JPRB,0.19649E-01_JPRB,0.17719E-01_JPRB,0.15554E-01_JPRB,0.13207E-01_JPRB, &
+ & 0.10709E-01_JPRB,0.80423E-02_JPRB,0.51308E-02_JPRB,0.32152E-02_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.21187E-01_JPRB,0.19941E-01_JPRB,0.18042E-01_JPRB,0.15892E-01_JPRB,0.13549E-01_JPRB, &
+ & 0.11055E-01_JPRB,0.83766E-02_JPRB,0.54250E-02_JPRB,0.35851E-02_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.21336E-01_JPRB,0.20173E-01_JPRB,0.18327E-01_JPRB,0.16203E-01_JPRB,0.13894E-01_JPRB, &
+ & 0.11411E-01_JPRB,0.87228E-02_JPRB,0.57329E-02_JPRB,0.40006E-02_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.21440E-01_JPRB,0.20364E-01_JPRB,0.18584E-01_JPRB,0.16516E-01_JPRB,0.14243E-01_JPRB, &
+ & 0.11781E-01_JPRB,0.90825E-02_JPRB,0.60483E-02_JPRB,0.44327E-02_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.21509E-01_JPRB,0.20531E-01_JPRB,0.18841E-01_JPRB,0.16838E-01_JPRB,0.14607E-01_JPRB, &
+ & 0.12155E-01_JPRB,0.94413E-02_JPRB,0.63798E-02_JPRB,0.48628E-02_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.20300E-01_JPRB,0.19036E-01_JPRB,0.17142E-01_JPRB,0.15033E-01_JPRB,0.12745E-01_JPRB, &
+ & 0.10318E-01_JPRB,0.77330E-02_JPRB,0.48977E-02_JPRB,0.29186E-02_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.20539E-01_JPRB,0.19361E-01_JPRB,0.17504E-01_JPRB,0.15398E-01_JPRB,0.13114E-01_JPRB, &
+ & 0.10679E-01_JPRB,0.80651E-02_JPRB,0.51844E-02_JPRB,0.32743E-02_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.20734E-01_JPRB,0.19633E-01_JPRB,0.17821E-01_JPRB,0.15739E-01_JPRB,0.13481E-01_JPRB, &
+ & 0.11044E-01_JPRB,0.84099E-02_JPRB,0.54812E-02_JPRB,0.36601E-02_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.20892E-01_JPRB,0.19871E-01_JPRB,0.18120E-01_JPRB,0.16090E-01_JPRB,0.13847E-01_JPRB, &
+ & 0.11415E-01_JPRB,0.87615E-02_JPRB,0.57863E-02_JPRB,0.40403E-02_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.21016E-01_JPRB,0.20092E-01_JPRB,0.18420E-01_JPRB,0.16433E-01_JPRB,0.14220E-01_JPRB, &
+ & 0.11787E-01_JPRB,0.91177E-02_JPRB,0.61020E-02_JPRB,0.44775E-02_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.32077E-01_JPRB,0.29717E-01_JPRB,0.27957E-01_JPRB,0.27088E-01_JPRB,0.26148E-01_JPRB, &
+ & 0.25463E-01_JPRB,0.27887E-01_JPRB,0.32409E-01_JPRB,0.37623E-01_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.31656E-01_JPRB,0.29512E-01_JPRB,0.28047E-01_JPRB,0.27317E-01_JPRB,0.26667E-01_JPRB, &
+ & 0.26788E-01_JPRB,0.30344E-01_JPRB,0.35248E-01_JPRB,0.40533E-01_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.31222E-01_JPRB,0.29398E-01_JPRB,0.28183E-01_JPRB,0.27633E-01_JPRB,0.27598E-01_JPRB, &
+ & 0.28788E-01_JPRB,0.33344E-01_JPRB,0.38694E-01_JPRB,0.44458E-01_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.30838E-01_JPRB,0.29185E-01_JPRB,0.28219E-01_JPRB,0.28269E-01_JPRB,0.28900E-01_JPRB, &
+ & 0.31215E-01_JPRB,0.36765E-01_JPRB,0.42659E-01_JPRB,0.48710E-01_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.30476E-01_JPRB,0.28982E-01_JPRB,0.28435E-01_JPRB,0.29011E-01_JPRB,0.30822E-01_JPRB, &
+ & 0.34422E-01_JPRB,0.40770E-01_JPRB,0.47309E-01_JPRB,0.54027E-01_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.34215E-01_JPRB,0.31859E-01_JPRB,0.30015E-01_JPRB,0.28551E-01_JPRB,0.26684E-01_JPRB, &
+ & 0.25243E-01_JPRB,0.25874E-01_JPRB,0.29803E-01_JPRB,0.34327E-01_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.33819E-01_JPRB,0.31701E-01_JPRB,0.30099E-01_JPRB,0.28712E-01_JPRB,0.27156E-01_JPRB, &
+ & 0.26446E-01_JPRB,0.28380E-01_JPRB,0.32886E-01_JPRB,0.37685E-01_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.33393E-01_JPRB,0.31477E-01_JPRB,0.30146E-01_JPRB,0.28931E-01_JPRB,0.28112E-01_JPRB, &
+ & 0.28308E-01_JPRB,0.31383E-01_JPRB,0.36360E-01_JPRB,0.41605E-01_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.33012E-01_JPRB,0.31222E-01_JPRB,0.30110E-01_JPRB,0.29460E-01_JPRB,0.29343E-01_JPRB, &
+ & 0.30463E-01_JPRB,0.34829E-01_JPRB,0.40350E-01_JPRB,0.46115E-01_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.32618E-01_JPRB,0.30977E-01_JPRB,0.30249E-01_JPRB,0.30140E-01_JPRB,0.31029E-01_JPRB, &
+ & 0.33086E-01_JPRB,0.38518E-01_JPRB,0.44611E-01_JPRB,0.51063E-01_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.36609E-01_JPRB,0.34016E-01_JPRB,0.32008E-01_JPRB,0.30013E-01_JPRB,0.27528E-01_JPRB, &
+ & 0.25143E-01_JPRB,0.24092E-01_JPRB,0.26746E-01_JPRB,0.30590E-01_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.36187E-01_JPRB,0.33816E-01_JPRB,0.32068E-01_JPRB,0.30121E-01_JPRB,0.27943E-01_JPRB, &
+ & 0.26137E-01_JPRB,0.26190E-01_JPRB,0.29769E-01_JPRB,0.34003E-01_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.35755E-01_JPRB,0.33555E-01_JPRB,0.32022E-01_JPRB,0.30354E-01_JPRB,0.28696E-01_JPRB, &
+ & 0.27732E-01_JPRB,0.28744E-01_JPRB,0.33056E-01_JPRB,0.37754E-01_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.35304E-01_JPRB,0.33277E-01_JPRB,0.31985E-01_JPRB,0.30856E-01_JPRB,0.29759E-01_JPRB, &
+ & 0.29582E-01_JPRB,0.31793E-01_JPRB,0.36769E-01_JPRB,0.41965E-01_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.34895E-01_JPRB,0.32987E-01_JPRB,0.32094E-01_JPRB,0.31490E-01_JPRB,0.31100E-01_JPRB, &
+ & 0.31735E-01_JPRB,0.35104E-01_JPRB,0.40646E-01_JPRB,0.46442E-01_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.38977E-01_JPRB,0.36120E-01_JPRB,0.33897E-01_JPRB,0.31410E-01_JPRB,0.28525E-01_JPRB, &
+ & 0.25373E-01_JPRB,0.22918E-01_JPRB,0.23596E-01_JPRB,0.26905E-01_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.38508E-01_JPRB,0.35924E-01_JPRB,0.33917E-01_JPRB,0.31530E-01_JPRB,0.28933E-01_JPRB, &
+ & 0.26161E-01_JPRB,0.24652E-01_JPRB,0.26430E-01_JPRB,0.30108E-01_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.38014E-01_JPRB,0.35658E-01_JPRB,0.33872E-01_JPRB,0.31757E-01_JPRB,0.29547E-01_JPRB, &
+ & 0.27436E-01_JPRB,0.26616E-01_JPRB,0.29450E-01_JPRB,0.33541E-01_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.37555E-01_JPRB,0.35363E-01_JPRB,0.33895E-01_JPRB,0.32125E-01_JPRB,0.30540E-01_JPRB, &
+ & 0.28878E-01_JPRB,0.28956E-01_JPRB,0.32793E-01_JPRB,0.37351E-01_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.37151E-01_JPRB,0.35088E-01_JPRB,0.33984E-01_JPRB,0.32788E-01_JPRB,0.31573E-01_JPRB, &
+ & 0.30633E-01_JPRB,0.31627E-01_JPRB,0.36308E-01_JPRB,0.41371E-01_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.41153E-01_JPRB,0.38034E-01_JPRB,0.35706E-01_JPRB,0.32805E-01_JPRB,0.29387E-01_JPRB, &
+ & 0.25927E-01_JPRB,0.22231E-01_JPRB,0.20561E-01_JPRB,0.23186E-01_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.40611E-01_JPRB,0.37835E-01_JPRB,0.35759E-01_JPRB,0.32923E-01_JPRB,0.29781E-01_JPRB, &
+ & 0.26577E-01_JPRB,0.23565E-01_JPRB,0.23003E-01_JPRB,0.26110E-01_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.40174E-01_JPRB,0.37589E-01_JPRB,0.35747E-01_JPRB,0.33131E-01_JPRB,0.30334E-01_JPRB, &
+ & 0.27648E-01_JPRB,0.25145E-01_JPRB,0.25696E-01_JPRB,0.29208E-01_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.39802E-01_JPRB,0.37389E-01_JPRB,0.35760E-01_JPRB,0.33447E-01_JPRB,0.31294E-01_JPRB, &
+ & 0.28785E-01_JPRB,0.27005E-01_JPRB,0.28729E-01_JPRB,0.32665E-01_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.39471E-01_JPRB,0.37195E-01_JPRB,0.35872E-01_JPRB,0.34084E-01_JPRB,0.32227E-01_JPRB, &
+ & 0.30087E-01_JPRB,0.29177E-01_JPRB,0.32029E-01_JPRB,0.36449E-01_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.43370E-01_JPRB,0.39997E-01_JPRB,0.37440E-01_JPRB,0.34118E-01_JPRB,0.30345E-01_JPRB, &
+ & 0.26246E-01_JPRB,0.21955E-01_JPRB,0.18231E-01_JPRB,0.19573E-01_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.42801E-01_JPRB,0.39763E-01_JPRB,0.37480E-01_JPRB,0.34252E-01_JPRB,0.30723E-01_JPRB, &
+ & 0.26892E-01_JPRB,0.22943E-01_JPRB,0.20080E-01_JPRB,0.22108E-01_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.42453E-01_JPRB,0.39592E-01_JPRB,0.37449E-01_JPRB,0.34486E-01_JPRB,0.31160E-01_JPRB, &
+ & 0.27853E-01_JPRB,0.24129E-01_JPRB,0.22254E-01_JPRB,0.24945E-01_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.42151E-01_JPRB,0.39446E-01_JPRB,0.37500E-01_JPRB,0.34777E-01_JPRB,0.31970E-01_JPRB, &
+ & 0.28872E-01_JPRB,0.25539E-01_JPRB,0.24809E-01_JPRB,0.28086E-01_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.41833E-01_JPRB,0.39344E-01_JPRB,0.37631E-01_JPRB,0.35392E-01_JPRB,0.32810E-01_JPRB, &
+ & 0.29983E-01_JPRB,0.27309E-01_JPRB,0.27744E-01_JPRB,0.31535E-01_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.45445E-01_JPRB,0.41961E-01_JPRB,0.39238E-01_JPRB,0.35426E-01_JPRB,0.31192E-01_JPRB, &
+ & 0.26649E-01_JPRB,0.21695E-01_JPRB,0.16623E-01_JPRB,0.16293E-01_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.45078E-01_JPRB,0.41797E-01_JPRB,0.39225E-01_JPRB,0.35507E-01_JPRB,0.31562E-01_JPRB, &
+ & 0.27229E-01_JPRB,0.22532E-01_JPRB,0.18019E-01_JPRB,0.18534E-01_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.44870E-01_JPRB,0.41785E-01_JPRB,0.39209E-01_JPRB,0.35749E-01_JPRB,0.31958E-01_JPRB, &
+ & 0.27976E-01_JPRB,0.23572E-01_JPRB,0.19783E-01_JPRB,0.21105E-01_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.44638E-01_JPRB,0.41726E-01_JPRB,0.39301E-01_JPRB,0.35989E-01_JPRB,0.32614E-01_JPRB, &
+ & 0.28887E-01_JPRB,0.24743E-01_JPRB,0.21842E-01_JPRB,0.23947E-01_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.44319E-01_JPRB,0.41703E-01_JPRB,0.39403E-01_JPRB,0.36491E-01_JPRB,0.33461E-01_JPRB, &
+ & 0.29864E-01_JPRB,0.26133E-01_JPRB,0.24238E-01_JPRB,0.27063E-01_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.47338E-01_JPRB,0.43694E-01_JPRB,0.40795E-01_JPRB,0.36657E-01_JPRB,0.31991E-01_JPRB, &
+ & 0.26976E-01_JPRB,0.21436E-01_JPRB,0.15589E-01_JPRB,0.13371E-01_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.47172E-01_JPRB,0.43681E-01_JPRB,0.40850E-01_JPRB,0.36728E-01_JPRB,0.32341E-01_JPRB, &
+ & 0.27474E-01_JPRB,0.22184E-01_JPRB,0.16691E-01_JPRB,0.15337E-01_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.47077E-01_JPRB,0.43885E-01_JPRB,0.40965E-01_JPRB,0.37016E-01_JPRB,0.32654E-01_JPRB, &
+ & 0.28038E-01_JPRB,0.23084E-01_JPRB,0.18052E-01_JPRB,0.17670E-01_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.46877E-01_JPRB,0.43984E-01_JPRB,0.41138E-01_JPRB,0.37264E-01_JPRB,0.33142E-01_JPRB, &
+ & 0.28868E-01_JPRB,0.24126E-01_JPRB,0.19696E-01_JPRB,0.20174E-01_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.46627E-01_JPRB,0.44042E-01_JPRB,0.41218E-01_JPRB,0.37582E-01_JPRB,0.33931E-01_JPRB, &
+ & 0.29818E-01_JPRB,0.25367E-01_JPRB,0.21590E-01_JPRB,0.22899E-01_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.49069E-01_JPRB,0.45230E-01_JPRB,0.41949E-01_JPRB,0.37482E-01_JPRB,0.32547E-01_JPRB, &
+ & 0.27221E-01_JPRB,0.21190E-01_JPRB,0.14771E-01_JPRB,0.82104E-02_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.48982E-01_JPRB,0.45358E-01_JPRB,0.42113E-01_JPRB,0.37642E-01_JPRB,0.32970E-01_JPRB, &
+ & 0.27650E-01_JPRB,0.21850E-01_JPRB,0.15738E-01_JPRB,0.94586E-02_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.48934E-01_JPRB,0.45677E-01_JPRB,0.42390E-01_JPRB,0.38084E-01_JPRB,0.33301E-01_JPRB, &
+ & 0.28097E-01_JPRB,0.22664E-01_JPRB,0.16844E-01_JPRB,0.11686E-01_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.48760E-01_JPRB,0.45876E-01_JPRB,0.42614E-01_JPRB,0.38405E-01_JPRB,0.33732E-01_JPRB, &
+ & 0.28793E-01_JPRB,0.23625E-01_JPRB,0.18186E-01_JPRB,0.14417E-01_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.48535E-01_JPRB,0.45946E-01_JPRB,0.42722E-01_JPRB,0.38669E-01_JPRB,0.34439E-01_JPRB, &
+ & 0.29718E-01_JPRB,0.24746E-01_JPRB,0.19636E-01_JPRB,0.17490E-01_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.50581E-01_JPRB,0.46588E-01_JPRB,0.42861E-01_JPRB,0.37978E-01_JPRB,0.32756E-01_JPRB, &
+ & 0.27218E-01_JPRB,0.20963E-01_JPRB,0.14152E-01_JPRB,0.94977E-02_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.50552E-01_JPRB,0.46832E-01_JPRB,0.43092E-01_JPRB,0.38231E-01_JPRB,0.33230E-01_JPRB, &
+ & 0.27672E-01_JPRB,0.21597E-01_JPRB,0.15000E-01_JPRB,0.11069E-01_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.50470E-01_JPRB,0.47126E-01_JPRB,0.43390E-01_JPRB,0.38763E-01_JPRB,0.33692E-01_JPRB, &
+ & 0.28191E-01_JPRB,0.22303E-01_JPRB,0.15932E-01_JPRB,0.12529E-01_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.50251E-01_JPRB,0.47290E-01_JPRB,0.43621E-01_JPRB,0.39150E-01_JPRB,0.34250E-01_JPRB, &
+ & 0.28907E-01_JPRB,0.23153E-01_JPRB,0.17091E-01_JPRB,0.14647E-01_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.50025E-01_JPRB,0.47335E-01_JPRB,0.43789E-01_JPRB,0.39526E-01_JPRB,0.34961E-01_JPRB, &
+ & 0.29783E-01_JPRB,0.24207E-01_JPRB,0.18303E-01_JPRB,0.16505E-01_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.51775E-01_JPRB,0.47733E-01_JPRB,0.43604E-01_JPRB,0.38377E-01_JPRB,0.33010E-01_JPRB, &
+ & 0.27211E-01_JPRB,0.20853E-01_JPRB,0.13952E-01_JPRB,0.10099E-01_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.51722E-01_JPRB,0.48082E-01_JPRB,0.43912E-01_JPRB,0.38859E-01_JPRB,0.33550E-01_JPRB, &
+ & 0.27720E-01_JPRB,0.21535E-01_JPRB,0.14746E-01_JPRB,0.11460E-01_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.51577E-01_JPRB,0.48309E-01_JPRB,0.44107E-01_JPRB,0.39371E-01_JPRB,0.34132E-01_JPRB, &
+ & 0.28431E-01_JPRB,0.22288E-01_JPRB,0.15640E-01_JPRB,0.12761E-01_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.51367E-01_JPRB,0.48474E-01_JPRB,0.44409E-01_JPRB,0.39819E-01_JPRB,0.34807E-01_JPRB, &
+ & 0.29240E-01_JPRB,0.23192E-01_JPRB,0.16707E-01_JPRB,0.14096E-01_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.51186E-01_JPRB,0.48565E-01_JPRB,0.44658E-01_JPRB,0.40350E-01_JPRB,0.35545E-01_JPRB, &
+ & 0.30221E-01_JPRB,0.24214E-01_JPRB,0.17744E-01_JPRB,0.15290E-01_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.52731E-01_JPRB,0.48681E-01_JPRB,0.44186E-01_JPRB,0.38733E-01_JPRB,0.33169E-01_JPRB, &
+ & 0.27108E-01_JPRB,0.20634E-01_JPRB,0.13723E-01_JPRB,0.97949E-02_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.52654E-01_JPRB,0.49001E-01_JPRB,0.44433E-01_JPRB,0.39315E-01_JPRB,0.33776E-01_JPRB, &
+ & 0.27772E-01_JPRB,0.21363E-01_JPRB,0.14506E-01_JPRB,0.11186E-01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.52581E-01_JPRB,0.49321E-01_JPRB,0.44768E-01_JPRB,0.39827E-01_JPRB,0.34382E-01_JPRB, &
+ & 0.28565E-01_JPRB,0.22205E-01_JPRB,0.15366E-01_JPRB,0.12310E-01_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.52474E-01_JPRB,0.49527E-01_JPRB,0.45170E-01_JPRB,0.40364E-01_JPRB,0.35120E-01_JPRB, &
+ & 0.29376E-01_JPRB,0.23174E-01_JPRB,0.16305E-01_JPRB,0.14325E-01_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.52313E-01_JPRB,0.49659E-01_JPRB,0.45526E-01_JPRB,0.41026E-01_JPRB,0.35905E-01_JPRB, &
+ & 0.30399E-01_JPRB,0.24222E-01_JPRB,0.17291E-01_JPRB,0.16045E-01_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.53347E-01_JPRB,0.49460E-01_JPRB,0.44667E-01_JPRB,0.39102E-01_JPRB,0.33300E-01_JPRB, &
+ & 0.27005E-01_JPRB,0.20373E-01_JPRB,0.13403E-01_JPRB,0.88882E-02_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.53473E-01_JPRB,0.49893E-01_JPRB,0.44992E-01_JPRB,0.39672E-01_JPRB,0.33886E-01_JPRB, &
+ & 0.27737E-01_JPRB,0.21157E-01_JPRB,0.14194E-01_JPRB,0.99472E-02_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.53543E-01_JPRB,0.50285E-01_JPRB,0.45484E-01_JPRB,0.40250E-01_JPRB,0.34541E-01_JPRB, &
+ & 0.28510E-01_JPRB,0.22035E-01_JPRB,0.15061E-01_JPRB,0.11235E-01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.53461E-01_JPRB,0.50524E-01_JPRB,0.45912E-01_JPRB,0.40827E-01_JPRB,0.35322E-01_JPRB, &
+ & 0.29374E-01_JPRB,0.23048E-01_JPRB,0.15925E-01_JPRB,0.12822E-01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.53278E-01_JPRB,0.50624E-01_JPRB,0.46303E-01_JPRB,0.41556E-01_JPRB,0.36186E-01_JPRB, &
+ & 0.30414E-01_JPRB,0.24058E-01_JPRB,0.16868E-01_JPRB,0.14203E-01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.37171E-01_JPRB,0.34434E-01_JPRB,0.32644E-01_JPRB,0.32703E-01_JPRB,0.33235E-01_JPRB, &
+ & 0.36611E-01_JPRB,0.43526E-01_JPRB,0.50696E-01_JPRB,0.58297E-01_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.36741E-01_JPRB,0.34071E-01_JPRB,0.32455E-01_JPRB,0.33094E-01_JPRB,0.34229E-01_JPRB, &
+ & 0.38792E-01_JPRB,0.46364E-01_JPRB,0.53998E-01_JPRB,0.61977E-01_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.36310E-01_JPRB,0.33795E-01_JPRB,0.32514E-01_JPRB,0.33548E-01_JPRB,0.35414E-01_JPRB, &
+ & 0.41445E-01_JPRB,0.49627E-01_JPRB,0.57817E-01_JPRB,0.66049E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.35845E-01_JPRB,0.33632E-01_JPRB,0.32631E-01_JPRB,0.34397E-01_JPRB,0.37428E-01_JPRB, &
+ & 0.44985E-01_JPRB,0.53868E-01_JPRB,0.62763E-01_JPRB,0.71579E-01_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.35331E-01_JPRB,0.33379E-01_JPRB,0.32910E-01_JPRB,0.35528E-01_JPRB,0.39783E-01_JPRB, &
+ & 0.48705E-01_JPRB,0.58316E-01_JPRB,0.67942E-01_JPRB,0.77160E-01_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.40448E-01_JPRB,0.37395E-01_JPRB,0.35029E-01_JPRB,0.34305E-01_JPRB,0.33991E-01_JPRB, &
+ & 0.35316E-01_JPRB,0.40968E-01_JPRB,0.47712E-01_JPRB,0.54932E-01_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.39920E-01_JPRB,0.36968E-01_JPRB,0.34927E-01_JPRB,0.34599E-01_JPRB,0.34841E-01_JPRB, &
+ & 0.37250E-01_JPRB,0.43923E-01_JPRB,0.51161E-01_JPRB,0.58827E-01_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.39405E-01_JPRB,0.36691E-01_JPRB,0.34999E-01_JPRB,0.35076E-01_JPRB,0.35924E-01_JPRB, &
+ & 0.39772E-01_JPRB,0.47443E-01_JPRB,0.55253E-01_JPRB,0.63303E-01_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.38792E-01_JPRB,0.36414E-01_JPRB,0.35121E-01_JPRB,0.35787E-01_JPRB,0.37790E-01_JPRB, &
+ & 0.43290E-01_JPRB,0.51773E-01_JPRB,0.60284E-01_JPRB,0.68983E-01_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.38190E-01_JPRB,0.36098E-01_JPRB,0.35328E-01_JPRB,0.36844E-01_JPRB,0.39952E-01_JPRB, &
+ & 0.47291E-01_JPRB,0.56573E-01_JPRB,0.65870E-01_JPRB,0.75177E-01_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.43810E-01_JPRB,0.40500E-01_JPRB,0.37754E-01_JPRB,0.36293E-01_JPRB,0.34676E-01_JPRB, &
+ & 0.34367E-01_JPRB,0.37493E-01_JPRB,0.43650E-01_JPRB,0.50087E-01_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.43199E-01_JPRB,0.40018E-01_JPRB,0.37716E-01_JPRB,0.36450E-01_JPRB,0.35395E-01_JPRB, &
+ & 0.35866E-01_JPRB,0.40426E-01_JPRB,0.47076E-01_JPRB,0.53958E-01_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.42538E-01_JPRB,0.39757E-01_JPRB,0.37868E-01_JPRB,0.36772E-01_JPRB,0.36302E-01_JPRB, &
+ & 0.37914E-01_JPRB,0.44070E-01_JPRB,0.51299E-01_JPRB,0.58670E-01_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.41856E-01_JPRB,0.39457E-01_JPRB,0.37979E-01_JPRB,0.37163E-01_JPRB,0.37947E-01_JPRB, &
+ & 0.40970E-01_JPRB,0.48419E-01_JPRB,0.56334E-01_JPRB,0.64404E-01_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.41250E-01_JPRB,0.39154E-01_JPRB,0.38065E-01_JPRB,0.38049E-01_JPRB,0.39929E-01_JPRB, &
+ & 0.44658E-01_JPRB,0.53223E-01_JPRB,0.61909E-01_JPRB,0.70665E-01_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.47088E-01_JPRB,0.43589E-01_JPRB,0.40605E-01_JPRB,0.38686E-01_JPRB,0.35713E-01_JPRB, &
+ & 0.33942E-01_JPRB,0.34171E-01_JPRB,0.39143E-01_JPRB,0.44787E-01_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.46380E-01_JPRB,0.43081E-01_JPRB,0.40678E-01_JPRB,0.38772E-01_JPRB,0.36271E-01_JPRB, &
+ & 0.35115E-01_JPRB,0.36728E-01_JPRB,0.42523E-01_JPRB,0.48625E-01_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.45787E-01_JPRB,0.42889E-01_JPRB,0.40853E-01_JPRB,0.39000E-01_JPRB,0.36901E-01_JPRB, &
+ & 0.36794E-01_JPRB,0.40276E-01_JPRB,0.46812E-01_JPRB,0.53448E-01_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.45216E-01_JPRB,0.42628E-01_JPRB,0.40916E-01_JPRB,0.39286E-01_JPRB,0.38129E-01_JPRB, &
+ & 0.39329E-01_JPRB,0.44499E-01_JPRB,0.51734E-01_JPRB,0.59041E-01_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.44698E-01_JPRB,0.42312E-01_JPRB,0.40992E-01_JPRB,0.39909E-01_JPRB,0.39896E-01_JPRB, &
+ & 0.42322E-01_JPRB,0.49157E-01_JPRB,0.57134E-01_JPRB,0.65206E-01_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.50564E-01_JPRB,0.46864E-01_JPRB,0.43550E-01_JPRB,0.41145E-01_JPRB,0.37282E-01_JPRB, &
+ & 0.33847E-01_JPRB,0.31921E-01_JPRB,0.34655E-01_JPRB,0.39581E-01_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.49853E-01_JPRB,0.46324E-01_JPRB,0.43735E-01_JPRB,0.41212E-01_JPRB,0.37826E-01_JPRB, &
+ & 0.34760E-01_JPRB,0.33939E-01_JPRB,0.37988E-01_JPRB,0.43340E-01_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.49277E-01_JPRB,0.46142E-01_JPRB,0.43937E-01_JPRB,0.41409E-01_JPRB,0.38245E-01_JPRB, &
+ & 0.36079E-01_JPRB,0.36891E-01_JPRB,0.42172E-01_JPRB,0.48104E-01_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.48731E-01_JPRB,0.45921E-01_JPRB,0.43964E-01_JPRB,0.41658E-01_JPRB,0.39073E-01_JPRB, &
+ & 0.38270E-01_JPRB,0.40535E-01_JPRB,0.46833E-01_JPRB,0.53415E-01_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.48265E-01_JPRB,0.45648E-01_JPRB,0.43993E-01_JPRB,0.42096E-01_JPRB,0.40473E-01_JPRB, &
+ & 0.40846E-01_JPRB,0.44703E-01_JPRB,0.51860E-01_JPRB,0.59120E-01_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.54155E-01_JPRB,0.50312E-01_JPRB,0.46699E-01_JPRB,0.43479E-01_JPRB,0.38935E-01_JPRB, &
+ & 0.34460E-01_JPRB,0.30470E-01_JPRB,0.30214E-01_JPRB,0.34389E-01_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.53396E-01_JPRB,0.49741E-01_JPRB,0.46925E-01_JPRB,0.43573E-01_JPRB,0.39485E-01_JPRB, &
+ & 0.35160E-01_JPRB,0.32122E-01_JPRB,0.33415E-01_JPRB,0.38087E-01_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.52823E-01_JPRB,0.49548E-01_JPRB,0.47130E-01_JPRB,0.43740E-01_JPRB,0.39828E-01_JPRB, &
+ & 0.36044E-01_JPRB,0.34474E-01_JPRB,0.37304E-01_JPRB,0.42510E-01_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.52327E-01_JPRB,0.49384E-01_JPRB,0.47097E-01_JPRB,0.43937E-01_JPRB,0.40452E-01_JPRB, &
+ & 0.37736E-01_JPRB,0.37393E-01_JPRB,0.41655E-01_JPRB,0.47452E-01_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.51903E-01_JPRB,0.49131E-01_JPRB,0.47026E-01_JPRB,0.44222E-01_JPRB,0.41687E-01_JPRB, &
+ & 0.39818E-01_JPRB,0.40660E-01_JPRB,0.46275E-01_JPRB,0.52724E-01_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.58007E-01_JPRB,0.53733E-01_JPRB,0.49779E-01_JPRB,0.45887E-01_JPRB,0.40462E-01_JPRB, &
+ & 0.35176E-01_JPRB,0.29765E-01_JPRB,0.26441E-01_JPRB,0.29320E-01_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.57151E-01_JPRB,0.53110E-01_JPRB,0.50041E-01_JPRB,0.45960E-01_JPRB,0.40973E-01_JPRB, &
+ & 0.35887E-01_JPRB,0.31026E-01_JPRB,0.29123E-01_JPRB,0.32803E-01_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.56502E-01_JPRB,0.52846E-01_JPRB,0.50182E-01_JPRB,0.46056E-01_JPRB,0.41337E-01_JPRB, &
+ & 0.36666E-01_JPRB,0.32781E-01_JPRB,0.32480E-01_JPRB,0.36858E-01_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.55999E-01_JPRB,0.52671E-01_JPRB,0.50072E-01_JPRB,0.46217E-01_JPRB,0.41835E-01_JPRB, &
+ & 0.38000E-01_JPRB,0.35109E-01_JPRB,0.36308E-01_JPRB,0.41318E-01_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.55573E-01_JPRB,0.52382E-01_JPRB,0.49967E-01_JPRB,0.46401E-01_JPRB,0.42955E-01_JPRB, &
+ & 0.39677E-01_JPRB,0.37716E-01_JPRB,0.40481E-01_JPRB,0.46095E-01_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.61929E-01_JPRB,0.57176E-01_JPRB,0.52730E-01_JPRB,0.48103E-01_JPRB,0.42015E-01_JPRB, &
+ & 0.35869E-01_JPRB,0.29499E-01_JPRB,0.23665E-01_JPRB,0.24549E-01_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.61013E-01_JPRB,0.56553E-01_JPRB,0.52930E-01_JPRB,0.48080E-01_JPRB,0.42522E-01_JPRB, &
+ & 0.36573E-01_JPRB,0.30581E-01_JPRB,0.25834E-01_JPRB,0.27791E-01_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.60303E-01_JPRB,0.56131E-01_JPRB,0.52872E-01_JPRB,0.48123E-01_JPRB,0.42911E-01_JPRB, &
+ & 0.37343E-01_JPRB,0.31938E-01_JPRB,0.28446E-01_JPRB,0.31375E-01_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.59783E-01_JPRB,0.55843E-01_JPRB,0.52678E-01_JPRB,0.48331E-01_JPRB,0.43398E-01_JPRB, &
+ & 0.38468E-01_JPRB,0.33698E-01_JPRB,0.31535E-01_JPRB,0.35398E-01_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.59221E-01_JPRB,0.55525E-01_JPRB,0.52626E-01_JPRB,0.48547E-01_JPRB,0.44309E-01_JPRB, &
+ & 0.39969E-01_JPRB,0.35748E-01_JPRB,0.35119E-01_JPRB,0.39791E-01_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.65420E-01_JPRB,0.60290E-01_JPRB,0.55521E-01_JPRB,0.50117E-01_JPRB,0.43421E-01_JPRB, &
+ & 0.36608E-01_JPRB,0.29349E-01_JPRB,0.21841E-01_JPRB,0.18774E-01_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.64534E-01_JPRB,0.59710E-01_JPRB,0.55627E-01_JPRB,0.50054E-01_JPRB,0.43842E-01_JPRB, &
+ & 0.37357E-01_JPRB,0.30337E-01_JPRB,0.23525E-01_JPRB,0.22756E-01_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.63805E-01_JPRB,0.59237E-01_JPRB,0.55452E-01_JPRB,0.50019E-01_JPRB,0.44319E-01_JPRB, &
+ & 0.38089E-01_JPRB,0.31491E-01_JPRB,0.25524E-01_JPRB,0.26401E-01_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.63315E-01_JPRB,0.59001E-01_JPRB,0.55252E-01_JPRB,0.50261E-01_JPRB,0.44802E-01_JPRB, &
+ & 0.39006E-01_JPRB,0.32915E-01_JPRB,0.27972E-01_JPRB,0.30021E-01_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.62781E-01_JPRB,0.58825E-01_JPRB,0.55257E-01_JPRB,0.50524E-01_JPRB,0.45567E-01_JPRB, &
+ & 0.40297E-01_JPRB,0.34643E-01_JPRB,0.30888E-01_JPRB,0.34021E-01_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.68132E-01_JPRB,0.62682E-01_JPRB,0.57743E-01_JPRB,0.51836E-01_JPRB,0.44670E-01_JPRB, &
+ & 0.37300E-01_JPRB,0.29365E-01_JPRB,0.20724E-01_JPRB,0.15957E-01_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.67210E-01_JPRB,0.62151E-01_JPRB,0.57960E-01_JPRB,0.51867E-01_JPRB,0.45128E-01_JPRB, &
+ & 0.38064E-01_JPRB,0.30245E-01_JPRB,0.22146E-01_JPRB,0.17704E-01_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.66632E-01_JPRB,0.61949E-01_JPRB,0.57882E-01_JPRB,0.51878E-01_JPRB,0.45637E-01_JPRB, &
+ & 0.38758E-01_JPRB,0.31283E-01_JPRB,0.23744E-01_JPRB,0.20098E-01_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.66350E-01_JPRB,0.62044E-01_JPRB,0.57835E-01_JPRB,0.52180E-01_JPRB,0.46090E-01_JPRB, &
+ & 0.39573E-01_JPRB,0.32509E-01_JPRB,0.25642E-01_JPRB,0.22076E-01_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.65965E-01_JPRB,0.62105E-01_JPRB,0.57959E-01_JPRB,0.52489E-01_JPRB,0.46765E-01_JPRB, &
+ & 0.40717E-01_JPRB,0.34057E-01_JPRB,0.28015E-01_JPRB,0.24829E-01_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.69905E-01_JPRB,0.64410E-01_JPRB,0.59589E-01_JPRB,0.53150E-01_JPRB,0.45760E-01_JPRB, &
+ & 0.38179E-01_JPRB,0.29785E-01_JPRB,0.20444E-01_JPRB,0.16092E-01_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.69271E-01_JPRB,0.64175E-01_JPRB,0.59782E-01_JPRB,0.53281E-01_JPRB,0.46486E-01_JPRB, &
+ & 0.38949E-01_JPRB,0.30645E-01_JPRB,0.21725E-01_JPRB,0.17857E-01_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.69073E-01_JPRB,0.64491E-01_JPRB,0.59955E-01_JPRB,0.53684E-01_JPRB,0.46981E-01_JPRB, &
+ & 0.39609E-01_JPRB,0.31674E-01_JPRB,0.23165E-01_JPRB,0.20394E-01_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.68904E-01_JPRB,0.64793E-01_JPRB,0.60179E-01_JPRB,0.54162E-01_JPRB,0.47530E-01_JPRB, &
+ & 0.40495E-01_JPRB,0.32809E-01_JPRB,0.24930E-01_JPRB,0.23016E-01_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.68639E-01_JPRB,0.65010E-01_JPRB,0.60484E-01_JPRB,0.54605E-01_JPRB,0.48370E-01_JPRB, &
+ & 0.41561E-01_JPRB,0.34350E-01_JPRB,0.26933E-01_JPRB,0.26488E-01_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.71529E-01_JPRB,0.66044E-01_JPRB,0.61072E-01_JPRB,0.54140E-01_JPRB,0.46654E-01_JPRB, &
+ & 0.38794E-01_JPRB,0.29996E-01_JPRB,0.20236E-01_JPRB,0.16124E-01_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.71291E-01_JPRB,0.66315E-01_JPRB,0.61418E-01_JPRB,0.54500E-01_JPRB,0.47446E-01_JPRB, &
+ & 0.39590E-01_JPRB,0.30905E-01_JPRB,0.21401E-01_JPRB,0.17542E-01_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.71222E-01_JPRB,0.66826E-01_JPRB,0.61770E-01_JPRB,0.55219E-01_JPRB,0.48148E-01_JPRB, &
+ & 0.40334E-01_JPRB,0.31908E-01_JPRB,0.22727E-01_JPRB,0.19804E-01_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.71079E-01_JPRB,0.67236E-01_JPRB,0.62161E-01_JPRB,0.55849E-01_JPRB,0.48917E-01_JPRB, &
+ & 0.41311E-01_JPRB,0.33042E-01_JPRB,0.24356E-01_JPRB,0.21082E-01_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.70901E-01_JPRB,0.67518E-01_JPRB,0.62549E-01_JPRB,0.56439E-01_JPRB,0.49900E-01_JPRB, &
+ & 0.42406E-01_JPRB,0.34548E-01_JPRB,0.26106E-01_JPRB,0.23666E-01_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.73149E-01_JPRB,0.67708E-01_JPRB,0.62294E-01_JPRB,0.54947E-01_JPRB,0.47337E-01_JPRB, &
+ & 0.39165E-01_JPRB,0.30053E-01_JPRB,0.20069E-01_JPRB,0.15304E-01_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.73122E-01_JPRB,0.68287E-01_JPRB,0.62803E-01_JPRB,0.55664E-01_JPRB,0.48241E-01_JPRB, &
+ & 0.39986E-01_JPRB,0.31044E-01_JPRB,0.21133E-01_JPRB,0.17384E-01_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.73057E-01_JPRB,0.68826E-01_JPRB,0.63303E-01_JPRB,0.56536E-01_JPRB,0.49104E-01_JPRB, &
+ & 0.40926E-01_JPRB,0.32050E-01_JPRB,0.22349E-01_JPRB,0.18964E-01_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.73037E-01_JPRB,0.69286E-01_JPRB,0.63846E-01_JPRB,0.57252E-01_JPRB,0.50018E-01_JPRB, &
+ & 0.42025E-01_JPRB,0.33217E-01_JPRB,0.23850E-01_JPRB,0.20572E-01_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.73013E-01_JPRB,0.69604E-01_JPRB,0.64290E-01_JPRB,0.57954E-01_JPRB,0.51076E-01_JPRB, &
+ & 0.43212E-01_JPRB,0.34653E-01_JPRB,0.25391E-01_JPRB,0.23448E-01_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.43248E-01_JPRB,0.41017E-01_JPRB,0.40213E-01_JPRB,0.39821E-01_JPRB,0.45256E-01_JPRB, &
+ & 0.55821E-01_JPRB,0.66932E-01_JPRB,0.78037E-01_JPRB,0.88086E-01_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.42407E-01_JPRB,0.40307E-01_JPRB,0.40078E-01_JPRB,0.40681E-01_JPRB,0.47543E-01_JPRB, &
+ & 0.59099E-01_JPRB,0.70845E-01_JPRB,0.82585E-01_JPRB,0.93228E-01_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.41692E-01_JPRB,0.39727E-01_JPRB,0.39865E-01_JPRB,0.41830E-01_JPRB,0.50093E-01_JPRB, &
+ & 0.62450E-01_JPRB,0.74841E-01_JPRB,0.87232E-01_JPRB,0.98476E-01_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.41002E-01_JPRB,0.39248E-01_JPRB,0.39945E-01_JPRB,0.42942E-01_JPRB,0.52768E-01_JPRB, &
+ & 0.65829E-01_JPRB,0.78890E-01_JPRB,0.91937E-01_JPRB,0.10362E+00_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.40428E-01_JPRB,0.39045E-01_JPRB,0.40116E-01_JPRB,0.44981E-01_JPRB,0.56655E-01_JPRB, &
+ & 0.70681E-01_JPRB,0.84705E-01_JPRB,0.98731E-01_JPRB,0.11111E+00_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.47227E-01_JPRB,0.44198E-01_JPRB,0.42698E-01_JPRB,0.42511E-01_JPRB,0.46394E-01_JPRB, &
+ & 0.55784E-01_JPRB,0.66888E-01_JPRB,0.77989E-01_JPRB,0.88812E-01_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.46375E-01_JPRB,0.43473E-01_JPRB,0.42428E-01_JPRB,0.43299E-01_JPRB,0.48252E-01_JPRB, &
+ & 0.59000E-01_JPRB,0.70708E-01_JPRB,0.82423E-01_JPRB,0.93885E-01_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.45650E-01_JPRB,0.42988E-01_JPRB,0.42307E-01_JPRB,0.44252E-01_JPRB,0.50414E-01_JPRB, &
+ & 0.62373E-01_JPRB,0.74750E-01_JPRB,0.87127E-01_JPRB,0.99197E-01_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.44980E-01_JPRB,0.42686E-01_JPRB,0.42476E-01_JPRB,0.45355E-01_JPRB,0.53027E-01_JPRB, &
+ & 0.66067E-01_JPRB,0.79179E-01_JPRB,0.92288E-01_JPRB,0.10480E+00_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.44383E-01_JPRB,0.42475E-01_JPRB,0.42723E-01_JPRB,0.47155E-01_JPRB,0.57007E-01_JPRB, &
+ & 0.71138E-01_JPRB,0.85276E-01_JPRB,0.99396E-01_JPRB,0.11272E+00_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.51829E-01_JPRB,0.48303E-01_JPRB,0.45805E-01_JPRB,0.45348E-01_JPRB,0.47474E-01_JPRB, &
+ & 0.53773E-01_JPRB,0.64381E-01_JPRB,0.75065E-01_JPRB,0.85879E-01_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.50945E-01_JPRB,0.47626E-01_JPRB,0.45531E-01_JPRB,0.46104E-01_JPRB,0.48805E-01_JPRB, &
+ & 0.57008E-01_JPRB,0.68342E-01_JPRB,0.79675E-01_JPRB,0.91103E-01_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.50329E-01_JPRB,0.47163E-01_JPRB,0.45393E-01_JPRB,0.46795E-01_JPRB,0.50514E-01_JPRB, &
+ & 0.60488E-01_JPRB,0.72503E-01_JPRB,0.84519E-01_JPRB,0.96625E-01_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.49725E-01_JPRB,0.46894E-01_JPRB,0.45600E-01_JPRB,0.47784E-01_JPRB,0.52670E-01_JPRB, &
+ & 0.64382E-01_JPRB,0.77172E-01_JPRB,0.89966E-01_JPRB,0.10271E+00_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.49109E-01_JPRB,0.46633E-01_JPRB,0.45896E-01_JPRB,0.49191E-01_JPRB,0.56129E-01_JPRB, &
+ & 0.69438E-01_JPRB,0.83245E-01_JPRB,0.97061E-01_JPRB,0.11071E+00_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.57082E-01_JPRB,0.53110E-01_JPRB,0.49763E-01_JPRB,0.48460E-01_JPRB,0.48719E-01_JPRB, &
+ & 0.51181E-01_JPRB,0.59984E-01_JPRB,0.69952E-01_JPRB,0.80045E-01_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.56133E-01_JPRB,0.52450E-01_JPRB,0.49568E-01_JPRB,0.49064E-01_JPRB,0.49725E-01_JPRB, &
+ & 0.54041E-01_JPRB,0.64091E-01_JPRB,0.74728E-01_JPRB,0.85496E-01_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.55439E-01_JPRB,0.51866E-01_JPRB,0.49497E-01_JPRB,0.49475E-01_JPRB,0.51076E-01_JPRB, &
+ & 0.57243E-01_JPRB,0.68327E-01_JPRB,0.79652E-01_JPRB,0.91098E-01_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.54777E-01_JPRB,0.51575E-01_JPRB,0.49681E-01_JPRB,0.50221E-01_JPRB,0.52765E-01_JPRB, &
+ & 0.61084E-01_JPRB,0.73197E-01_JPRB,0.85337E-01_JPRB,0.97552E-01_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.54098E-01_JPRB,0.51233E-01_JPRB,0.49878E-01_JPRB,0.51295E-01_JPRB,0.55484E-01_JPRB, &
+ & 0.66162E-01_JPRB,0.79298E-01_JPRB,0.92434E-01_JPRB,0.10558E+00_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.62544E-01_JPRB,0.58281E-01_JPRB,0.54351E-01_JPRB,0.52107E-01_JPRB,0.50211E-01_JPRB, &
+ & 0.49416E-01_JPRB,0.54519E-01_JPRB,0.63528E-01_JPRB,0.72634E-01_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.61658E-01_JPRB,0.57644E-01_JPRB,0.54210E-01_JPRB,0.52563E-01_JPRB,0.50949E-01_JPRB, &
+ & 0.51794E-01_JPRB,0.58802E-01_JPRB,0.68560E-01_JPRB,0.78383E-01_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.60918E-01_JPRB,0.57016E-01_JPRB,0.54117E-01_JPRB,0.52719E-01_JPRB,0.52074E-01_JPRB, &
+ & 0.54457E-01_JPRB,0.63161E-01_JPRB,0.73629E-01_JPRB,0.84158E-01_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.60164E-01_JPRB,0.56692E-01_JPRB,0.54302E-01_JPRB,0.53086E-01_JPRB,0.53404E-01_JPRB, &
+ & 0.57689E-01_JPRB,0.68126E-01_JPRB,0.79422E-01_JPRB,0.90757E-01_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.59366E-01_JPRB,0.56267E-01_JPRB,0.54377E-01_JPRB,0.53811E-01_JPRB,0.55627E-01_JPRB, &
+ & 0.62331E-01_JPRB,0.74295E-01_JPRB,0.86596E-01_JPRB,0.98923E-01_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.68500E-01_JPRB,0.63504E-01_JPRB,0.59102E-01_JPRB,0.56112E-01_JPRB,0.52198E-01_JPRB, &
+ & 0.48725E-01_JPRB,0.49458E-01_JPRB,0.56540E-01_JPRB,0.64611E-01_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.67642E-01_JPRB,0.62951E-01_JPRB,0.59010E-01_JPRB,0.56509E-01_JPRB,0.52640E-01_JPRB, &
+ & 0.50781E-01_JPRB,0.53492E-01_JPRB,0.61845E-01_JPRB,0.70650E-01_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.66730E-01_JPRB,0.62270E-01_JPRB,0.58880E-01_JPRB,0.56541E-01_JPRB,0.53578E-01_JPRB, &
+ & 0.52912E-01_JPRB,0.57553E-01_JPRB,0.66900E-01_JPRB,0.76420E-01_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.65853E-01_JPRB,0.61851E-01_JPRB,0.59079E-01_JPRB,0.56674E-01_JPRB,0.54628E-01_JPRB, &
+ & 0.55405E-01_JPRB,0.62327E-01_JPRB,0.72621E-01_JPRB,0.82946E-01_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.64917E-01_JPRB,0.61395E-01_JPRB,0.59088E-01_JPRB,0.57140E-01_JPRB,0.56317E-01_JPRB, &
+ & 0.59242E-01_JPRB,0.68519E-01_JPRB,0.79819E-01_JPRB,0.91147E-01_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.74814E-01_JPRB,0.69115E-01_JPRB,0.63783E-01_JPRB,0.59970E-01_JPRB,0.54833E-01_JPRB, &
+ & 0.49011E-01_JPRB,0.46051E-01_JPRB,0.49756E-01_JPRB,0.56816E-01_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.73755E-01_JPRB,0.68509E-01_JPRB,0.63672E-01_JPRB,0.60441E-01_JPRB,0.55205E-01_JPRB, &
+ & 0.50759E-01_JPRB,0.49447E-01_JPRB,0.55044E-01_JPRB,0.62843E-01_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.72664E-01_JPRB,0.67698E-01_JPRB,0.63630E-01_JPRB,0.60499E-01_JPRB,0.55993E-01_JPRB, &
+ & 0.52467E-01_JPRB,0.52809E-01_JPRB,0.59966E-01_JPRB,0.68463E-01_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.71633E-01_JPRB,0.67174E-01_JPRB,0.63866E-01_JPRB,0.60581E-01_JPRB,0.56744E-01_JPRB, &
+ & 0.54377E-01_JPRB,0.56941E-01_JPRB,0.65640E-01_JPRB,0.74923E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.70621E-01_JPRB,0.66745E-01_JPRB,0.63972E-01_JPRB,0.60930E-01_JPRB,0.57801E-01_JPRB, &
+ & 0.57488E-01_JPRB,0.62631E-01_JPRB,0.72711E-01_JPRB,0.82984E-01_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.81108E-01_JPRB,0.74731E-01_JPRB,0.68669E-01_JPRB,0.63699E-01_JPRB,0.57482E-01_JPRB, &
+ & 0.50207E-01_JPRB,0.44226E-01_JPRB,0.43565E-01_JPRB,0.49479E-01_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.79714E-01_JPRB,0.73898E-01_JPRB,0.68659E-01_JPRB,0.64276E-01_JPRB,0.57881E-01_JPRB, &
+ & 0.51786E-01_JPRB,0.46974E-01_JPRB,0.48378E-01_JPRB,0.55162E-01_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.78456E-01_JPRB,0.73135E-01_JPRB,0.68758E-01_JPRB,0.64370E-01_JPRB,0.58662E-01_JPRB, &
+ & 0.53164E-01_JPRB,0.49684E-01_JPRB,0.53168E-01_JPRB,0.60666E-01_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.77309E-01_JPRB,0.72680E-01_JPRB,0.69000E-01_JPRB,0.64433E-01_JPRB,0.59353E-01_JPRB, &
+ & 0.54540E-01_JPRB,0.53042E-01_JPRB,0.58717E-01_JPRB,0.66992E-01_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.76406E-01_JPRB,0.72288E-01_JPRB,0.69084E-01_JPRB,0.64775E-01_JPRB,0.60105E-01_JPRB, &
+ & 0.56876E-01_JPRB,0.57740E-01_JPRB,0.65467E-01_JPRB,0.74695E-01_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.87281E-01_JPRB,0.80336E-01_JPRB,0.73586E-01_JPRB,0.67589E-01_JPRB,0.60164E-01_JPRB, &
+ & 0.51553E-01_JPRB,0.43512E-01_JPRB,0.38366E-01_JPRB,0.42260E-01_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.85638E-01_JPRB,0.79229E-01_JPRB,0.73710E-01_JPRB,0.68169E-01_JPRB,0.60640E-01_JPRB, &
+ & 0.53028E-01_JPRB,0.45744E-01_JPRB,0.42413E-01_JPRB,0.47570E-01_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.84292E-01_JPRB,0.78481E-01_JPRB,0.73900E-01_JPRB,0.68269E-01_JPRB,0.61342E-01_JPRB, &
+ & 0.54381E-01_JPRB,0.47902E-01_JPRB,0.46760E-01_JPRB,0.52980E-01_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.83115E-01_JPRB,0.77996E-01_JPRB,0.74142E-01_JPRB,0.68304E-01_JPRB,0.62073E-01_JPRB, &
+ & 0.55597E-01_JPRB,0.50525E-01_JPRB,0.51779E-01_JPRB,0.58954E-01_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.82186E-01_JPRB,0.77706E-01_JPRB,0.74161E-01_JPRB,0.68663E-01_JPRB,0.62685E-01_JPRB, &
+ & 0.57315E-01_JPRB,0.54189E-01_JPRB,0.58003E-01_JPRB,0.66142E-01_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.93285E-01_JPRB,0.85813E-01_JPRB,0.78575E-01_JPRB,0.71552E-01_JPRB,0.62937E-01_JPRB, &
+ & 0.53130E-01_JPRB,0.43544E-01_JPRB,0.34852E-01_JPRB,0.25971E-01_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.91673E-01_JPRB,0.84652E-01_JPRB,0.78625E-01_JPRB,0.72093E-01_JPRB,0.63376E-01_JPRB, &
+ & 0.54541E-01_JPRB,0.45576E-01_JPRB,0.38102E-01_JPRB,0.28356E-01_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.90273E-01_JPRB,0.83828E-01_JPRB,0.78840E-01_JPRB,0.72190E-01_JPRB,0.64026E-01_JPRB, &
+ & 0.55889E-01_JPRB,0.47404E-01_JPRB,0.41695E-01_JPRB,0.31456E-01_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.88982E-01_JPRB,0.83233E-01_JPRB,0.79026E-01_JPRB,0.72231E-01_JPRB,0.64765E-01_JPRB, &
+ & 0.57025E-01_JPRB,0.49463E-01_JPRB,0.46003E-01_JPRB,0.35501E-01_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.88015E-01_JPRB,0.82954E-01_JPRB,0.78987E-01_JPRB,0.72605E-01_JPRB,0.65378E-01_JPRB, &
+ & 0.58432E-01_JPRB,0.52293E-01_JPRB,0.51371E-01_JPRB,0.39951E-01_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.98224E-01_JPRB,0.90470E-01_JPRB,0.83283E-01_JPRB,0.75729E-01_JPRB,0.65953E-01_JPRB, &
+ & 0.55333E-01_JPRB,0.44607E-01_JPRB,0.33712E-01_JPRB,0.29825E-01_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.96868E-01_JPRB,0.89565E-01_JPRB,0.83537E-01_JPRB,0.76001E-01_JPRB,0.66302E-01_JPRB, &
+ & 0.56711E-01_JPRB,0.46387E-01_JPRB,0.36339E-01_JPRB,0.33228E-01_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.95464E-01_JPRB,0.88759E-01_JPRB,0.83774E-01_JPRB,0.75894E-01_JPRB,0.67115E-01_JPRB, &
+ & 0.57847E-01_JPRB,0.48034E-01_JPRB,0.39456E-01_JPRB,0.36088E-01_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.94340E-01_JPRB,0.88366E-01_JPRB,0.83721E-01_JPRB,0.76044E-01_JPRB,0.67766E-01_JPRB, &
+ & 0.58947E-01_JPRB,0.50010E-01_JPRB,0.43247E-01_JPRB,0.40125E-01_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.93518E-01_JPRB,0.88039E-01_JPRB,0.83475E-01_JPRB,0.76422E-01_JPRB,0.68414E-01_JPRB, &
+ & 0.60495E-01_JPRB,0.52431E-01_JPRB,0.48069E-01_JPRB,0.44798E-01_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.10275E+00_JPRB,0.94729E-01_JPRB,0.87688E-01_JPRB,0.79394E-01_JPRB,0.68734E-01_JPRB, &
+ & 0.57476E-01_JPRB,0.45697E-01_JPRB,0.32943E-01_JPRB,0.29614E-01_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.10159E+00_JPRB,0.94167E-01_JPRB,0.88202E-01_JPRB,0.79488E-01_JPRB,0.69232E-01_JPRB, &
+ & 0.58694E-01_JPRB,0.47208E-01_JPRB,0.35215E-01_JPRB,0.33437E-01_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.10046E+00_JPRB,0.93671E-01_JPRB,0.88347E-01_JPRB,0.79409E-01_JPRB,0.69985E-01_JPRB, &
+ & 0.59703E-01_JPRB,0.48739E-01_JPRB,0.37920E-01_JPRB,0.36670E-01_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.99712E-01_JPRB,0.93473E-01_JPRB,0.88135E-01_JPRB,0.79671E-01_JPRB,0.70541E-01_JPRB, &
+ & 0.60786E-01_JPRB,0.50658E-01_JPRB,0.41158E-01_JPRB,0.41155E-01_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.99052E-01_JPRB,0.93236E-01_JPRB,0.87897E-01_JPRB,0.79933E-01_JPRB,0.71310E-01_JPRB, &
+ & 0.62364E-01_JPRB,0.52850E-01_JPRB,0.45390E-01_JPRB,0.47055E-01_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.10693E+00_JPRB,0.98594E-01_JPRB,0.91730E-01_JPRB,0.82575E-01_JPRB,0.71131E-01_JPRB, &
+ & 0.59390E-01_JPRB,0.46621E-01_JPRB,0.32428E-01_JPRB,0.26794E-01_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.10593E+00_JPRB,0.98329E-01_JPRB,0.92368E-01_JPRB,0.82651E-01_JPRB,0.71827E-01_JPRB, &
+ & 0.60538E-01_JPRB,0.47868E-01_JPRB,0.34468E-01_JPRB,0.29114E-01_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.10521E+00_JPRB,0.98305E-01_JPRB,0.92444E-01_JPRB,0.82725E-01_JPRB,0.72549E-01_JPRB, &
+ & 0.61456E-01_JPRB,0.49349E-01_JPRB,0.36800E-01_JPRB,0.32781E-01_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.10471E+00_JPRB,0.98393E-01_JPRB,0.92240E-01_JPRB,0.83082E-01_JPRB,0.73117E-01_JPRB, &
+ & 0.62504E-01_JPRB,0.51152E-01_JPRB,0.39616E-01_JPRB,0.37780E-01_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.10409E+00_JPRB,0.98364E-01_JPRB,0.92131E-01_JPRB,0.83350E-01_JPRB,0.73995E-01_JPRB, &
+ & 0.64047E-01_JPRB,0.53327E-01_JPRB,0.43375E-01_JPRB,0.42285E-01_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.52810E-01_JPRB,0.49450E-01_JPRB,0.49647E-01_JPRB,0.57104E-01_JPRB,0.73433E-01_JPRB, &
+ & 0.91743E-01_JPRB,0.11005E+00_JPRB,0.12834E+00_JPRB,0.14491E+00_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.51653E-01_JPRB,0.48971E-01_JPRB,0.50186E-01_JPRB,0.59440E-01_JPRB,0.77723E-01_JPRB, &
+ & 0.97098E-01_JPRB,0.11647E+00_JPRB,0.13583E+00_JPRB,0.15375E+00_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.50696E-01_JPRB,0.48582E-01_JPRB,0.50737E-01_JPRB,0.61667E-01_JPRB,0.81568E-01_JPRB, &
+ & 0.10190E+00_JPRB,0.12223E+00_JPRB,0.14254E+00_JPRB,0.16133E+00_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.49759E-01_JPRB,0.48321E-01_JPRB,0.51484E-01_JPRB,0.64441E-01_JPRB,0.85673E-01_JPRB, &
+ & 0.10703E+00_JPRB,0.12837E+00_JPRB,0.14971E+00_JPRB,0.16936E+00_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.48804E-01_JPRB,0.48067E-01_JPRB,0.52560E-01_JPRB,0.67354E-01_JPRB,0.89656E-01_JPRB, &
+ & 0.11200E+00_JPRB,0.13434E+00_JPRB,0.15666E+00_JPRB,0.17718E+00_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.57042E-01_JPRB,0.54069E-01_JPRB,0.53905E-01_JPRB,0.58729E-01_JPRB,0.73592E-01_JPRB, &
+ & 0.91941E-01_JPRB,0.11029E+00_JPRB,0.12863E+00_JPRB,0.14602E+00_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.55841E-01_JPRB,0.53550E-01_JPRB,0.54566E-01_JPRB,0.60781E-01_JPRB,0.78168E-01_JPRB, &
+ & 0.97652E-01_JPRB,0.11714E+00_JPRB,0.13661E+00_JPRB,0.15506E+00_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.54920E-01_JPRB,0.52981E-01_JPRB,0.54943E-01_JPRB,0.62919E-01_JPRB,0.82379E-01_JPRB, &
+ & 0.10292E+00_JPRB,0.12345E+00_JPRB,0.14397E+00_JPRB,0.16344E+00_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.54055E-01_JPRB,0.52591E-01_JPRB,0.55488E-01_JPRB,0.65511E-01_JPRB,0.86681E-01_JPRB, &
+ & 0.10829E+00_JPRB,0.12990E+00_JPRB,0.15147E+00_JPRB,0.17196E+00_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.53226E-01_JPRB,0.52334E-01_JPRB,0.56238E-01_JPRB,0.68429E-01_JPRB,0.90830E-01_JPRB, &
+ & 0.11345E+00_JPRB,0.13607E+00_JPRB,0.15868E+00_JPRB,0.17998E+00_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.62670E-01_JPRB,0.59309E-01_JPRB,0.58772E-01_JPRB,0.61122E-01_JPRB,0.72960E-01_JPRB, &
+ & 0.91113E-01_JPRB,0.10930E+00_JPRB,0.12747E+00_JPRB,0.14514E+00_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.61411E-01_JPRB,0.58632E-01_JPRB,0.59230E-01_JPRB,0.62688E-01_JPRB,0.77748E-01_JPRB, &
+ & 0.97139E-01_JPRB,0.11652E+00_JPRB,0.13590E+00_JPRB,0.15479E+00_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.60334E-01_JPRB,0.57923E-01_JPRB,0.59411E-01_JPRB,0.64539E-01_JPRB,0.82093E-01_JPRB, &
+ & 0.10257E+00_JPRB,0.12305E+00_JPRB,0.14350E+00_JPRB,0.16343E+00_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.59451E-01_JPRB,0.57416E-01_JPRB,0.59633E-01_JPRB,0.66820E-01_JPRB,0.86494E-01_JPRB, &
+ & 0.10804E+00_JPRB,0.12960E+00_JPRB,0.15112E+00_JPRB,0.17209E+00_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.58597E-01_JPRB,0.57143E-01_JPRB,0.60240E-01_JPRB,0.69594E-01_JPRB,0.91059E-01_JPRB, &
+ & 0.11373E+00_JPRB,0.13640E+00_JPRB,0.15905E+00_JPRB,0.18103E+00_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.69822E-01_JPRB,0.65601E-01_JPRB,0.63945E-01_JPRB,0.64755E-01_JPRB,0.73038E-01_JPRB, &
+ & 0.90165E-01_JPRB,0.10817E+00_JPRB,0.12616E+00_JPRB,0.14389E+00_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.68507E-01_JPRB,0.64727E-01_JPRB,0.64234E-01_JPRB,0.66213E-01_JPRB,0.77749E-01_JPRB, &
+ & 0.96668E-01_JPRB,0.11597E+00_JPRB,0.13524E+00_JPRB,0.15427E+00_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.67276E-01_JPRB,0.63962E-01_JPRB,0.64238E-01_JPRB,0.67909E-01_JPRB,0.82185E-01_JPRB, &
+ & 0.10254E+00_JPRB,0.12301E+00_JPRB,0.14345E+00_JPRB,0.16365E+00_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.66381E-01_JPRB,0.63334E-01_JPRB,0.64220E-01_JPRB,0.69770E-01_JPRB,0.86724E-01_JPRB, &
+ & 0.10832E+00_JPRB,0.12994E+00_JPRB,0.15151E+00_JPRB,0.17282E+00_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.65437E-01_JPRB,0.62972E-01_JPRB,0.64673E-01_JPRB,0.72222E-01_JPRB,0.91630E-01_JPRB, &
+ & 0.11445E+00_JPRB,0.13728E+00_JPRB,0.16006E+00_JPRB,0.18257E+00_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.78344E-01_JPRB,0.73091E-01_JPRB,0.69713E-01_JPRB,0.69214E-01_JPRB,0.74668E-01_JPRB, &
+ & 0.88915E-01_JPRB,0.10667E+00_JPRB,0.12441E+00_JPRB,0.14209E+00_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.76773E-01_JPRB,0.71981E-01_JPRB,0.69752E-01_JPRB,0.70736E-01_JPRB,0.78904E-01_JPRB, &
+ & 0.95797E-01_JPRB,0.11493E+00_JPRB,0.13406E+00_JPRB,0.15311E+00_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.75310E-01_JPRB,0.71068E-01_JPRB,0.69651E-01_JPRB,0.72503E-01_JPRB,0.83070E-01_JPRB, &
+ & 0.10214E+00_JPRB,0.12251E+00_JPRB,0.14289E+00_JPRB,0.16320E+00_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.74250E-01_JPRB,0.70202E-01_JPRB,0.69499E-01_JPRB,0.74333E-01_JPRB,0.87301E-01_JPRB, &
+ & 0.10818E+00_JPRB,0.12976E+00_JPRB,0.15132E+00_JPRB,0.17281E+00_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.73209E-01_JPRB,0.69739E-01_JPRB,0.69847E-01_JPRB,0.76315E-01_JPRB,0.91870E-01_JPRB, &
+ & 0.11438E+00_JPRB,0.13720E+00_JPRB,0.16000E+00_JPRB,0.18274E+00_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.87696E-01_JPRB,0.81522E-01_JPRB,0.76509E-01_JPRB,0.74345E-01_JPRB,0.77107E-01_JPRB, &
+ & 0.86456E-01_JPRB,0.10266E+00_JPRB,0.11975E+00_JPRB,0.13684E+00_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.85834E-01_JPRB,0.80104E-01_JPRB,0.76319E-01_JPRB,0.75879E-01_JPRB,0.80970E-01_JPRB, &
+ & 0.93234E-01_JPRB,0.11135E+00_JPRB,0.12988E+00_JPRB,0.14843E+00_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.84103E-01_JPRB,0.79034E-01_JPRB,0.76204E-01_JPRB,0.77685E-01_JPRB,0.84459E-01_JPRB, &
+ & 0.99600E-01_JPRB,0.11936E+00_JPRB,0.13921E+00_JPRB,0.15907E+00_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.82699E-01_JPRB,0.78102E-01_JPRB,0.75915E-01_JPRB,0.79277E-01_JPRB,0.87923E-01_JPRB, &
+ & 0.10572E+00_JPRB,0.12681E+00_JPRB,0.14791E+00_JPRB,0.16901E+00_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.81604E-01_JPRB,0.77529E-01_JPRB,0.76175E-01_JPRB,0.80727E-01_JPRB,0.91640E-01_JPRB, &
+ & 0.11182E+00_JPRB,0.13414E+00_JPRB,0.15644E+00_JPRB,0.17875E+00_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.97322E-01_JPRB,0.90329E-01_JPRB,0.84313E-01_JPRB,0.80452E-01_JPRB,0.80118E-01_JPRB, &
+ & 0.84204E-01_JPRB,0.96138E-01_JPRB,0.11212E+00_JPRB,0.12812E+00_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.95378E-01_JPRB,0.88856E-01_JPRB,0.83999E-01_JPRB,0.81744E-01_JPRB,0.83529E-01_JPRB, &
+ & 0.90072E-01_JPRB,0.10504E+00_JPRB,0.12254E+00_JPRB,0.14003E+00_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.93471E-01_JPRB,0.87725E-01_JPRB,0.83968E-01_JPRB,0.83424E-01_JPRB,0.86362E-01_JPRB, &
+ & 0.95913E-01_JPRB,0.11338E+00_JPRB,0.13227E+00_JPRB,0.15114E+00_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.91861E-01_JPRB,0.86679E-01_JPRB,0.83638E-01_JPRB,0.84829E-01_JPRB,0.89126E-01_JPRB, &
+ & 0.10167E+00_JPRB,0.12111E+00_JPRB,0.14127E+00_JPRB,0.16142E+00_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.90669E-01_JPRB,0.86079E-01_JPRB,0.83677E-01_JPRB,0.85955E-01_JPRB,0.92165E-01_JPRB, &
+ & 0.10751E+00_JPRB,0.12862E+00_JPRB,0.15005E+00_JPRB,0.17145E+00_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.10748E+00_JPRB,0.99760E-01_JPRB,0.92641E-01_JPRB,0.87386E-01_JPRB,0.83918E-01_JPRB, &
+ & 0.82807E-01_JPRB,0.88461E-01_JPRB,0.10199E+00_JPRB,0.11655E+00_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.10548E+00_JPRB,0.98347E-01_JPRB,0.92153E-01_JPRB,0.88724E-01_JPRB,0.86807E-01_JPRB, &
+ & 0.87435E-01_JPRB,0.96918E-01_JPRB,0.11262E+00_JPRB,0.12866E+00_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.10345E+00_JPRB,0.96941E-01_JPRB,0.92269E-01_JPRB,0.90148E-01_JPRB,0.89023E-01_JPRB, &
+ & 0.92390E-01_JPRB,0.10517E+00_JPRB,0.12260E+00_JPRB,0.14006E+00_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.10168E+00_JPRB,0.95648E-01_JPRB,0.92050E-01_JPRB,0.91217E-01_JPRB,0.91169E-01_JPRB, &
+ & 0.97530E-01_JPRB,0.11302E+00_JPRB,0.13185E+00_JPRB,0.15061E+00_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.10031E+00_JPRB,0.94918E-01_JPRB,0.92030E-01_JPRB,0.91944E-01_JPRB,0.93599E-01_JPRB, &
+ & 0.10280E+00_JPRB,0.12083E+00_JPRB,0.14095E+00_JPRB,0.16101E+00_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.11850E+00_JPRB,0.10963E+00_JPRB,0.10118E+00_JPRB,0.94592E-01_JPRB,0.88496E-01_JPRB, &
+ & 0.82777E-01_JPRB,0.81368E-01_JPRB,0.90482E-01_JPRB,0.10334E+00_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.11636E+00_JPRB,0.10836E+00_JPRB,0.10080E+00_JPRB,0.96151E-01_JPRB,0.90961E-01_JPRB, &
+ & 0.86437E-01_JPRB,0.88759E-01_JPRB,0.10103E+00_JPRB,0.11540E+00_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.11416E+00_JPRB,0.10675E+00_JPRB,0.10109E+00_JPRB,0.97591E-01_JPRB,0.92676E-01_JPRB, &
+ & 0.90148E-01_JPRB,0.96288E-01_JPRB,0.11094E+00_JPRB,0.12669E+00_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.11214E+00_JPRB,0.10527E+00_JPRB,0.10096E+00_JPRB,0.98437E-01_JPRB,0.94256E-01_JPRB, &
+ & 0.94326E-01_JPRB,0.10386E+00_JPRB,0.12050E+00_JPRB,0.13763E+00_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.11054E+00_JPRB,0.10425E+00_JPRB,0.10085E+00_JPRB,0.98717E-01_JPRB,0.96200E-01_JPRB, &
+ & 0.98935E-01_JPRB,0.11173E+00_JPRB,0.13010E+00_JPRB,0.14859E+00_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.13016E+00_JPRB,0.11986E+00_JPRB,0.10995E+00_JPRB,0.10196E+00_JPRB,0.93774E-01_JPRB, &
+ & 0.84360E-01_JPRB,0.76878E-01_JPRB,0.79680E-01_JPRB,0.67359E-01_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.12774E+00_JPRB,0.11853E+00_JPRB,0.10979E+00_JPRB,0.10367E+00_JPRB,0.96160E-01_JPRB, &
+ & 0.87173E-01_JPRB,0.82710E-01_JPRB,0.89689E-01_JPRB,0.82456E-01_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.12531E+00_JPRB,0.11685E+00_JPRB,0.11022E+00_JPRB,0.10509E+00_JPRB,0.97450E-01_JPRB, &
+ & 0.90061E-01_JPRB,0.89222E-01_JPRB,0.99588E-01_JPRB,0.96338E-01_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.12312E+00_JPRB,0.11523E+00_JPRB,0.11015E+00_JPRB,0.10584E+00_JPRB,0.98534E-01_JPRB, &
+ & 0.93531E-01_JPRB,0.96262E-01_JPRB,0.10942E+00_JPRB,0.11043E+00_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.12128E+00_JPRB,0.11400E+00_JPRB,0.10998E+00_JPRB,0.10588E+00_JPRB,0.10008E+00_JPRB, &
+ & 0.97359E-01_JPRB,0.10364E+00_JPRB,0.11932E+00_JPRB,0.12582E+00_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.14105E+00_JPRB,0.12987E+00_JPRB,0.11910E+00_JPRB,0.11026E+00_JPRB,0.10035E+00_JPRB, &
+ & 0.88081E-01_JPRB,0.76687E-01_JPRB,0.74205E-01_JPRB,0.50899E-01_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.13825E+00_JPRB,0.12810E+00_JPRB,0.11908E+00_JPRB,0.11198E+00_JPRB,0.10215E+00_JPRB, &
+ & 0.90197E-01_JPRB,0.81650E-01_JPRB,0.83605E-01_JPRB,0.56975E-01_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.13566E+00_JPRB,0.12624E+00_JPRB,0.11939E+00_JPRB,0.11316E+00_JPRB,0.10299E+00_JPRB, &
+ & 0.92874E-01_JPRB,0.87279E-01_JPRB,0.93203E-01_JPRB,0.64736E-01_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.13334E+00_JPRB,0.12460E+00_JPRB,0.11935E+00_JPRB,0.11337E+00_JPRB,0.10395E+00_JPRB, &
+ & 0.95956E-01_JPRB,0.93410E-01_JPRB,0.10293E+00_JPRB,0.71284E-01_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.13131E+00_JPRB,0.12363E+00_JPRB,0.11937E+00_JPRB,0.11314E+00_JPRB,0.10517E+00_JPRB, &
+ & 0.98969E-01_JPRB,0.10016E+00_JPRB,0.11304E+00_JPRB,0.78587E-01_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.15212E+00_JPRB,0.13991E+00_JPRB,0.12851E+00_JPRB,0.11872E+00_JPRB,0.10663E+00_JPRB, &
+ & 0.91867E-01_JPRB,0.77350E-01_JPRB,0.69757E-01_JPRB,0.57657E-01_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.14895E+00_JPRB,0.13760E+00_JPRB,0.12846E+00_JPRB,0.12032E+00_JPRB,0.10790E+00_JPRB, &
+ & 0.93798E-01_JPRB,0.81816E-01_JPRB,0.78361E-01_JPRB,0.63811E-01_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.14609E+00_JPRB,0.13558E+00_JPRB,0.12854E+00_JPRB,0.12100E+00_JPRB,0.10856E+00_JPRB, &
+ & 0.96260E-01_JPRB,0.86684E-01_JPRB,0.87192E-01_JPRB,0.72200E-01_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.14343E+00_JPRB,0.13400E+00_JPRB,0.12849E+00_JPRB,0.12073E+00_JPRB,0.10951E+00_JPRB, &
+ & 0.98753E-01_JPRB,0.91530E-01_JPRB,0.96391E-01_JPRB,0.79517E-01_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.14120E+00_JPRB,0.13303E+00_JPRB,0.12833E+00_JPRB,0.12041E+00_JPRB,0.11038E+00_JPRB, &
+ & 0.10129E+00_JPRB,0.97562E-01_JPRB,0.10658E+00_JPRB,0.84371E-01_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.16284E+00_JPRB,0.14976E+00_JPRB,0.13792E+00_JPRB,0.12684E+00_JPRB,0.11275E+00_JPRB, &
+ & 0.95645E-01_JPRB,0.78767E-01_JPRB,0.66366E-01_JPRB,0.59038E-01_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.15947E+00_JPRB,0.14721E+00_JPRB,0.13779E+00_JPRB,0.12800E+00_JPRB,0.11359E+00_JPRB, &
+ & 0.97597E-01_JPRB,0.82782E-01_JPRB,0.73753E-01_JPRB,0.67374E-01_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.15626E+00_JPRB,0.14498E+00_JPRB,0.13763E+00_JPRB,0.12811E+00_JPRB,0.11414E+00_JPRB, &
+ & 0.99826E-01_JPRB,0.86643E-01_JPRB,0.81525E-01_JPRB,0.75874E-01_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.15335E+00_JPRB,0.14330E+00_JPRB,0.13746E+00_JPRB,0.12758E+00_JPRB,0.11501E+00_JPRB, &
+ & 0.10172E+00_JPRB,0.90750E-01_JPRB,0.90246E-01_JPRB,0.81744E-01_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.15088E+00_JPRB,0.14217E+00_JPRB,0.13690E+00_JPRB,0.12723E+00_JPRB,0.11557E+00_JPRB, &
+ & 0.10388E+00_JPRB,0.96218E-01_JPRB,0.10042E+00_JPRB,0.88529E-01_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.62837E-01_JPRB,0.60695E-01_JPRB,0.77720E-01_JPRB,0.11279E+00_JPRB,0.15033E+00_JPRB, &
+ & 0.18788E+00_JPRB,0.22539E+00_JPRB,0.26284E+00_JPRB,0.29421E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.61599E-01_JPRB,0.60148E-01_JPRB,0.79591E-01_JPRB,0.11750E+00_JPRB,0.15661E+00_JPRB, &
+ & 0.19570E+00_JPRB,0.23478E+00_JPRB,0.27378E+00_JPRB,0.30578E+00_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.60827E-01_JPRB,0.59792E-01_JPRB,0.82175E-01_JPRB,0.12253E+00_JPRB,0.16330E+00_JPRB, &
+ & 0.20407E+00_JPRB,0.24482E+00_JPRB,0.28548E+00_JPRB,0.31829E+00_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.60773E-01_JPRB,0.59852E-01_JPRB,0.85295E-01_JPRB,0.12765E+00_JPRB,0.17012E+00_JPRB, &
+ & 0.21258E+00_JPRB,0.25502E+00_JPRB,0.29736E+00_JPRB,0.33114E+00_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.60579E-01_JPRB,0.60436E-01_JPRB,0.88993E-01_JPRB,0.13334E+00_JPRB,0.17771E+00_JPRB, &
+ & 0.22206E+00_JPRB,0.26642E+00_JPRB,0.31066E+00_JPRB,0.34557E+00_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.70150E-01_JPRB,0.67933E-01_JPRB,0.82763E-01_JPRB,0.11770E+00_JPRB,0.15687E+00_JPRB, &
+ & 0.19605E+00_JPRB,0.23520E+00_JPRB,0.27426E+00_JPRB,0.30923E+00_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.68737E-01_JPRB,0.67168E-01_JPRB,0.84453E-01_JPRB,0.12329E+00_JPRB,0.16434E+00_JPRB, &
+ & 0.20537E+00_JPRB,0.24638E+00_JPRB,0.28735E+00_JPRB,0.32358E+00_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.67693E-01_JPRB,0.66713E-01_JPRB,0.87076E-01_JPRB,0.12893E+00_JPRB,0.17184E+00_JPRB, &
+ & 0.21474E+00_JPRB,0.25764E+00_JPRB,0.30044E+00_JPRB,0.33811E+00_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.67352E-01_JPRB,0.66652E-01_JPRB,0.90088E-01_JPRB,0.13441E+00_JPRB,0.17914E+00_JPRB, &
+ & 0.22388E+00_JPRB,0.26860E+00_JPRB,0.31321E+00_JPRB,0.35245E+00_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.66923E-01_JPRB,0.67069E-01_JPRB,0.93870E-01_JPRB,0.14034E+00_JPRB,0.18704E+00_JPRB, &
+ & 0.23374E+00_JPRB,0.28042E+00_JPRB,0.32702E+00_JPRB,0.36794E+00_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.79385E-01_JPRB,0.76263E-01_JPRB,0.87808E-01_JPRB,0.12001E+00_JPRB,0.15997E+00_JPRB, &
+ & 0.19992E+00_JPRB,0.23984E+00_JPRB,0.27971E+00_JPRB,0.31814E+00_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.77666E-01_JPRB,0.75357E-01_JPRB,0.89439E-01_JPRB,0.12673E+00_JPRB,0.16892E+00_JPRB, &
+ & 0.21110E+00_JPRB,0.25327E+00_JPRB,0.29539E+00_JPRB,0.33569E+00_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.76193E-01_JPRB,0.74694E-01_JPRB,0.92082E-01_JPRB,0.13335E+00_JPRB,0.17774E+00_JPRB, &
+ & 0.22213E+00_JPRB,0.26651E+00_JPRB,0.31084E+00_JPRB,0.35313E+00_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.75335E-01_JPRB,0.74405E-01_JPRB,0.95067E-01_JPRB,0.13953E+00_JPRB,0.18597E+00_JPRB, &
+ & 0.23241E+00_JPRB,0.27884E+00_JPRB,0.32518E+00_JPRB,0.36942E+00_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.74635E-01_JPRB,0.74698E-01_JPRB,0.98457E-01_JPRB,0.14565E+00_JPRB,0.19414E+00_JPRB, &
+ & 0.24262E+00_JPRB,0.29108E+00_JPRB,0.33947E+00_JPRB,0.38555E+00_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.89595E-01_JPRB,0.85781E-01_JPRB,0.93997E-01_JPRB,0.12072E+00_JPRB,0.16001E+00_JPRB, &
+ & 0.19998E+00_JPRB,0.23994E+00_JPRB,0.27984E+00_JPRB,0.31934E+00_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.87421E-01_JPRB,0.84747E-01_JPRB,0.95233E-01_JPRB,0.12788E+00_JPRB,0.17024E+00_JPRB, &
+ & 0.21274E+00_JPRB,0.25525E+00_JPRB,0.29772E+00_JPRB,0.33967E+00_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.85503E-01_JPRB,0.83808E-01_JPRB,0.97531E-01_JPRB,0.13512E+00_JPRB,0.18009E+00_JPRB, &
+ & 0.22508E+00_JPRB,0.27005E+00_JPRB,0.31493E+00_JPRB,0.35929E+00_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.84061E-01_JPRB,0.83216E-01_JPRB,0.10039E+00_JPRB,0.14194E+00_JPRB,0.18919E+00_JPRB, &
+ & 0.23644E+00_JPRB,0.28372E+00_JPRB,0.33088E+00_JPRB,0.37743E+00_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.83141E-01_JPRB,0.83249E-01_JPRB,0.10352E+00_JPRB,0.14853E+00_JPRB,0.19798E+00_JPRB, &
+ & 0.24744E+00_JPRB,0.29688E+00_JPRB,0.34622E+00_JPRB,0.39491E+00_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.10093E+00_JPRB,0.96180E-01_JPRB,0.10202E+00_JPRB,0.12191E+00_JPRB,0.15810E+00_JPRB, &
+ & 0.19761E+00_JPRB,0.23710E+00_JPRB,0.27651E+00_JPRB,0.31584E+00_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.98348E-01_JPRB,0.95154E-01_JPRB,0.10279E+00_JPRB,0.12897E+00_JPRB,0.16954E+00_JPRB, &
+ & 0.21190E+00_JPRB,0.25425E+00_JPRB,0.29655E+00_JPRB,0.33869E+00_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.96078E-01_JPRB,0.94065E-01_JPRB,0.10459E+00_JPRB,0.13623E+00_JPRB,0.18035E+00_JPRB, &
+ & 0.22539E+00_JPRB,0.27041E+00_JPRB,0.31537E+00_JPRB,0.36019E+00_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.94202E-01_JPRB,0.93296E-01_JPRB,0.10703E+00_JPRB,0.14326E+00_JPRB,0.19057E+00_JPRB, &
+ & 0.23817E+00_JPRB,0.28575E+00_JPRB,0.33330E+00_JPRB,0.38060E+00_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.93055E-01_JPRB,0.92935E-01_JPRB,0.10982E+00_JPRB,0.15042E+00_JPRB,0.20048E+00_JPRB, &
+ & 0.25056E+00_JPRB,0.30061E+00_JPRB,0.35061E+00_JPRB,0.40035E+00_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.11421E+00_JPRB,0.10796E+00_JPRB,0.11173E+00_JPRB,0.12476E+00_JPRB,0.15549E+00_JPRB, &
+ & 0.19408E+00_JPRB,0.23286E+00_JPRB,0.27161E+00_JPRB,0.31032E+00_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.11123E+00_JPRB,0.10718E+00_JPRB,0.11218E+00_JPRB,0.13121E+00_JPRB,0.16775E+00_JPRB, &
+ & 0.20966E+00_JPRB,0.25155E+00_JPRB,0.29340E+00_JPRB,0.33523E+00_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.10875E+00_JPRB,0.10588E+00_JPRB,0.11334E+00_JPRB,0.13798E+00_JPRB,0.17972E+00_JPRB, &
+ & 0.22462E+00_JPRB,0.26950E+00_JPRB,0.31433E+00_JPRB,0.35914E+00_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.10666E+00_JPRB,0.10458E+00_JPRB,0.11529E+00_JPRB,0.14519E+00_JPRB,0.19132E+00_JPRB, &
+ & 0.23911E+00_JPRB,0.28688E+00_JPRB,0.33463E+00_JPRB,0.38232E+00_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.10502E+00_JPRB,0.10381E+00_JPRB,0.11770E+00_JPRB,0.15287E+00_JPRB,0.20267E+00_JPRB, &
+ & 0.25329E+00_JPRB,0.30392E+00_JPRB,0.35446E+00_JPRB,0.40496E+00_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.12988E+00_JPRB,0.12138E+00_JPRB,0.12291E+00_JPRB,0.12930E+00_JPRB,0.15315E+00_JPRB, &
+ & 0.18907E+00_JPRB,0.22686E+00_JPRB,0.26460E+00_JPRB,0.30239E+00_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.12649E+00_JPRB,0.12054E+00_JPRB,0.12314E+00_JPRB,0.13530E+00_JPRB,0.16601E+00_JPRB, &
+ & 0.20667E+00_JPRB,0.24798E+00_JPRB,0.28925E+00_JPRB,0.33056E+00_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.12370E+00_JPRB,0.11924E+00_JPRB,0.12400E+00_JPRB,0.14174E+00_JPRB,0.17907E+00_JPRB, &
+ & 0.22369E+00_JPRB,0.26838E+00_JPRB,0.31304E+00_JPRB,0.35775E+00_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.12121E+00_JPRB,0.11770E+00_JPRB,0.12551E+00_JPRB,0.14889E+00_JPRB,0.19207E+00_JPRB, &
+ & 0.24005E+00_JPRB,0.28802E+00_JPRB,0.33592E+00_JPRB,0.38391E+00_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.11892E+00_JPRB,0.11635E+00_JPRB,0.12739E+00_JPRB,0.15666E+00_JPRB,0.20470E+00_JPRB, &
+ & 0.25583E+00_JPRB,0.30694E+00_JPRB,0.35802E+00_JPRB,0.40917E+00_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.14795E+00_JPRB,0.13669E+00_JPRB,0.13564E+00_JPRB,0.13646E+00_JPRB,0.15231E+00_JPRB, &
+ & 0.18310E+00_JPRB,0.21966E+00_JPRB,0.25622E+00_JPRB,0.29284E+00_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.14430E+00_JPRB,0.13540E+00_JPRB,0.13550E+00_JPRB,0.14118E+00_JPRB,0.16490E+00_JPRB, &
+ & 0.20238E+00_JPRB,0.24284E+00_JPRB,0.28324E+00_JPRB,0.32374E+00_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.14109E+00_JPRB,0.13403E+00_JPRB,0.13585E+00_JPRB,0.14713E+00_JPRB,0.17836E+00_JPRB, &
+ & 0.22126E+00_JPRB,0.26548E+00_JPRB,0.30963E+00_JPRB,0.35392E+00_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.13807E+00_JPRB,0.13250E+00_JPRB,0.13707E+00_JPRB,0.15422E+00_JPRB,0.19232E+00_JPRB, &
+ & 0.23967E+00_JPRB,0.28757E+00_JPRB,0.33540E+00_JPRB,0.38338E+00_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.13514E+00_JPRB,0.13080E+00_JPRB,0.13878E+00_JPRB,0.16197E+00_JPRB,0.20594E+00_JPRB, &
+ & 0.25719E+00_JPRB,0.30860E+00_JPRB,0.35994E+00_JPRB,0.41142E+00_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.16812E+00_JPRB,0.15406E+00_JPRB,0.15051E+00_JPRB,0.14632E+00_JPRB,0.15371E+00_JPRB, &
+ & 0.17730E+00_JPRB,0.21108E+00_JPRB,0.24622E+00_JPRB,0.28143E+00_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.16420E+00_JPRB,0.15230E+00_JPRB,0.14950E+00_JPRB,0.14998E+00_JPRB,0.16549E+00_JPRB, &
+ & 0.19706E+00_JPRB,0.23609E+00_JPRB,0.27539E+00_JPRB,0.31477E+00_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.16053E+00_JPRB,0.15077E+00_JPRB,0.14903E+00_JPRB,0.15488E+00_JPRB,0.17883E+00_JPRB, &
+ & 0.21740E+00_JPRB,0.26082E+00_JPRB,0.30423E+00_JPRB,0.34775E+00_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.15694E+00_JPRB,0.14891E+00_JPRB,0.14991E+00_JPRB,0.16140E+00_JPRB,0.19301E+00_JPRB, &
+ & 0.23753E+00_JPRB,0.28500E+00_JPRB,0.33244E+00_JPRB,0.37999E+00_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.15342E+00_JPRB,0.14670E+00_JPRB,0.15145E+00_JPRB,0.16838E+00_JPRB,0.20634E+00_JPRB, &
+ & 0.25567E+00_JPRB,0.30677E+00_JPRB,0.35784E+00_JPRB,0.40903E+00_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.18962E+00_JPRB,0.17319E+00_JPRB,0.16709E+00_JPRB,0.15817E+00_JPRB,0.15908E+00_JPRB, &
+ & 0.17425E+00_JPRB,0.20287E+00_JPRB,0.23665E+00_JPRB,0.27049E+00_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.18536E+00_JPRB,0.17110E+00_JPRB,0.16526E+00_JPRB,0.16124E+00_JPRB,0.16946E+00_JPRB, &
+ & 0.19394E+00_JPRB,0.22959E+00_JPRB,0.26781E+00_JPRB,0.30611E+00_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.18117E+00_JPRB,0.16910E+00_JPRB,0.16400E+00_JPRB,0.16579E+00_JPRB,0.18236E+00_JPRB, &
+ & 0.21466E+00_JPRB,0.25610E+00_JPRB,0.29874E+00_JPRB,0.34146E+00_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.17697E+00_JPRB,0.16677E+00_JPRB,0.16446E+00_JPRB,0.17161E+00_JPRB,0.19589E+00_JPRB, &
+ & 0.23479E+00_JPRB,0.28114E+00_JPRB,0.32796E+00_JPRB,0.37484E+00_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.17281E+00_JPRB,0.16399E+00_JPRB,0.16565E+00_JPRB,0.17716E+00_JPRB,0.20808E+00_JPRB, &
+ & 0.25277E+00_JPRB,0.30323E+00_JPRB,0.35372E+00_JPRB,0.40429E+00_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.21055E+00_JPRB,0.19254E+00_JPRB,0.18359E+00_JPRB,0.17274E+00_JPRB,0.17137E+00_JPRB, &
+ & 0.18167E+00_JPRB,0.20669E+00_JPRB,0.24044E+00_JPRB,0.24447E+00_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.20570E+00_JPRB,0.19011E+00_JPRB,0.18168E+00_JPRB,0.17577E+00_JPRB,0.18167E+00_JPRB, &
+ & 0.20144E+00_JPRB,0.23412E+00_JPRB,0.27305E+00_JPRB,0.28987E+00_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.20088E+00_JPRB,0.18755E+00_JPRB,0.18057E+00_JPRB,0.18058E+00_JPRB,0.19347E+00_JPRB, &
+ & 0.22124E+00_JPRB,0.26062E+00_JPRB,0.30406E+00_JPRB,0.33203E+00_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.19608E+00_JPRB,0.18439E+00_JPRB,0.18082E+00_JPRB,0.18569E+00_JPRB,0.20488E+00_JPRB, &
+ & 0.23927E+00_JPRB,0.28460E+00_JPRB,0.33201E+00_JPRB,0.37191E+00_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.19134E+00_JPRB,0.18083E+00_JPRB,0.18137E+00_JPRB,0.19023E+00_JPRB,0.21563E+00_JPRB, &
+ & 0.25670E+00_JPRB,0.30697E+00_JPRB,0.35809E+00_JPRB,0.40924E+00_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.23222E+00_JPRB,0.21282E+00_JPRB,0.20059E+00_JPRB,0.18856E+00_JPRB,0.18455E+00_JPRB, &
+ & 0.18954E+00_JPRB,0.20921E+00_JPRB,0.24116E+00_JPRB,0.20678E+00_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.22666E+00_JPRB,0.20982E+00_JPRB,0.19853E+00_JPRB,0.19166E+00_JPRB,0.19460E+00_JPRB, &
+ & 0.20805E+00_JPRB,0.23602E+00_JPRB,0.27405E+00_JPRB,0.24947E+00_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.22121E+00_JPRB,0.20649E+00_JPRB,0.19756E+00_JPRB,0.19621E+00_JPRB,0.20452E+00_JPRB, &
+ & 0.22597E+00_JPRB,0.26146E+00_JPRB,0.30478E+00_JPRB,0.28725E+00_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.21578E+00_JPRB,0.20240E+00_JPRB,0.19746E+00_JPRB,0.20035E+00_JPRB,0.21392E+00_JPRB, &
+ & 0.24302E+00_JPRB,0.28559E+00_JPRB,0.33317E+00_JPRB,0.32415E+00_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.21026E+00_JPRB,0.19816E+00_JPRB,0.19729E+00_JPRB,0.20402E+00_JPRB,0.22339E+00_JPRB, &
+ & 0.25983E+00_JPRB,0.30840E+00_JPRB,0.35980E+00_JPRB,0.36272E+00_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.25447E+00_JPRB,0.23356E+00_JPRB,0.21785E+00_JPRB,0.20504E+00_JPRB,0.19797E+00_JPRB, &
+ & 0.19705E+00_JPRB,0.20967E+00_JPRB,0.23794E+00_JPRB,0.19657E+00_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.24820E+00_JPRB,0.22981E+00_JPRB,0.21561E+00_JPRB,0.20828E+00_JPRB,0.20711E+00_JPRB, &
+ & 0.21347E+00_JPRB,0.23520E+00_JPRB,0.27088E+00_JPRB,0.23547E+00_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.24206E+00_JPRB,0.22556E+00_JPRB,0.21467E+00_JPRB,0.21216E+00_JPRB,0.21525E+00_JPRB, &
+ & 0.22938E+00_JPRB,0.25994E+00_JPRB,0.30180E+00_JPRB,0.27108E+00_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.23572E+00_JPRB,0.22056E+00_JPRB,0.21408E+00_JPRB,0.21517E+00_JPRB,0.22293E+00_JPRB, &
+ & 0.24576E+00_JPRB,0.28399E+00_JPRB,0.33091E+00_JPRB,0.30909E+00_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.22932E+00_JPRB,0.21557E+00_JPRB,0.21287E+00_JPRB,0.21778E+00_JPRB,0.23130E+00_JPRB, &
+ & 0.26208E+00_JPRB,0.30701E+00_JPRB,0.35815E+00_JPRB,0.34602E+00_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.79223E-01_JPRB,0.75104E-01_JPRB,0.13846E+00_JPRB,0.20766E+00_JPRB,0.27685E+00_JPRB, &
+ & 0.34601E+00_JPRB,0.41512E+00_JPRB,0.48397E+00_JPRB,0.52564E+00_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.76682E-01_JPRB,0.76450E-01_JPRB,0.14571E+00_JPRB,0.21854E+00_JPRB,0.29137E+00_JPRB, &
+ & 0.36417E+00_JPRB,0.43689E+00_JPRB,0.50929E+00_JPRB,0.55383E+00_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.74345E-01_JPRB,0.78213E-01_JPRB,0.15207E+00_JPRB,0.22808E+00_JPRB,0.30407E+00_JPRB, &
+ & 0.38004E+00_JPRB,0.45593E+00_JPRB,0.53155E+00_JPRB,0.57851E+00_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.72607E-01_JPRB,0.80130E-01_JPRB,0.15758E+00_JPRB,0.23638E+00_JPRB,0.31513E+00_JPRB, &
+ & 0.39385E+00_JPRB,0.47252E+00_JPRB,0.55092E+00_JPRB,0.60005E+00_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.72847E-01_JPRB,0.82433E-01_JPRB,0.16249E+00_JPRB,0.24371E+00_JPRB,0.32491E+00_JPRB, &
+ & 0.40606E+00_JPRB,0.48713E+00_JPRB,0.56790E+00_JPRB,0.61880E+00_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.89010E-01_JPRB,0.84748E-01_JPRB,0.15528E+00_JPRB,0.23291E+00_JPRB,0.31052E+00_JPRB, &
+ & 0.38812E+00_JPRB,0.46559E+00_JPRB,0.54282E+00_JPRB,0.60189E+00_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.86286E-01_JPRB,0.86390E-01_JPRB,0.16350E+00_JPRB,0.24523E+00_JPRB,0.32694E+00_JPRB, &
+ & 0.40865E+00_JPRB,0.49029E+00_JPRB,0.57166E+00_JPRB,0.63436E+00_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.83865E-01_JPRB,0.88469E-01_JPRB,0.17076E+00_JPRB,0.25611E+00_JPRB,0.34145E+00_JPRB, &
+ & 0.42675E+00_JPRB,0.51202E+00_JPRB,0.59693E+00_JPRB,0.66276E+00_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.81971E-01_JPRB,0.90581E-01_JPRB,0.17733E+00_JPRB,0.26595E+00_JPRB,0.35459E+00_JPRB, &
+ & 0.44319E+00_JPRB,0.53165E+00_JPRB,0.61981E+00_JPRB,0.68802E+00_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.81826E-01_JPRB,0.93085E-01_JPRB,0.18319E+00_JPRB,0.27476E+00_JPRB,0.36629E+00_JPRB, &
+ & 0.45781E+00_JPRB,0.54921E+00_JPRB,0.64033E+00_JPRB,0.71080E+00_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.10078E+00_JPRB,0.96469E-01_JPRB,0.17126E+00_JPRB,0.25687E+00_JPRB,0.34247E+00_JPRB, &
+ & 0.42804E+00_JPRB,0.51357E+00_JPRB,0.59868E+00_JPRB,0.67473E+00_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.97698E-01_JPRB,0.98193E-01_JPRB,0.18058E+00_JPRB,0.27084E+00_JPRB,0.36108E+00_JPRB, &
+ & 0.45128E+00_JPRB,0.54134E+00_JPRB,0.63128E+00_JPRB,0.71182E+00_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.95186E-01_JPRB,0.10027E+00_JPRB,0.18871E+00_JPRB,0.28303E+00_JPRB,0.37733E+00_JPRB, &
+ & 0.47160E+00_JPRB,0.56577E+00_JPRB,0.65972E+00_JPRB,0.74408E+00_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.93223E-01_JPRB,0.10231E+00_JPRB,0.19621E+00_JPRB,0.29427E+00_JPRB,0.39234E+00_JPRB, &
+ & 0.49035E+00_JPRB,0.58829E+00_JPRB,0.68586E+00_JPRB,0.77383E+00_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.93003E-01_JPRB,0.10431E+00_JPRB,0.20302E+00_JPRB,0.30448E+00_JPRB,0.40592E+00_JPRB, &
+ & 0.50734E+00_JPRB,0.60870E+00_JPRB,0.70970E+00_JPRB,0.80084E+00_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.11556E+00_JPRB,0.11007E+00_JPRB,0.18689E+00_JPRB,0.28032E+00_JPRB,0.37373E+00_JPRB, &
+ & 0.46710E+00_JPRB,0.56044E+00_JPRB,0.65346E+00_JPRB,0.74264E+00_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.11235E+00_JPRB,0.11167E+00_JPRB,0.19754E+00_JPRB,0.29630E+00_JPRB,0.39502E+00_JPRB, &
+ & 0.49371E+00_JPRB,0.59235E+00_JPRB,0.69064E+00_JPRB,0.78516E+00_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.10972E+00_JPRB,0.11355E+00_JPRB,0.20696E+00_JPRB,0.31040E+00_JPRB,0.41383E+00_JPRB, &
+ & 0.51721E+00_JPRB,0.62053E+00_JPRB,0.72352E+00_JPRB,0.82248E+00_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.10741E+00_JPRB,0.11554E+00_JPRB,0.21557E+00_JPRB,0.32331E+00_JPRB,0.43105E+00_JPRB, &
+ & 0.53874E+00_JPRB,0.64632E+00_JPRB,0.75359E+00_JPRB,0.85679E+00_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.10619E+00_JPRB,0.11745E+00_JPRB,0.22327E+00_JPRB,0.33487E+00_JPRB,0.44646E+00_JPRB, &
+ & 0.55799E+00_JPRB,0.66944E+00_JPRB,0.78056E+00_JPRB,0.88741E+00_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.13422E+00_JPRB,0.12619E+00_JPRB,0.20125E+00_JPRB,0.30186E+00_JPRB,0.40245E+00_JPRB, &
+ & 0.50302E+00_JPRB,0.60348E+00_JPRB,0.70372E+00_JPRB,0.80253E+00_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.13052E+00_JPRB,0.12743E+00_JPRB,0.21345E+00_JPRB,0.32016E+00_JPRB,0.42685E+00_JPRB, &
+ & 0.53351E+00_JPRB,0.64011E+00_JPRB,0.74634E+00_JPRB,0.85136E+00_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.12741E+00_JPRB,0.12876E+00_JPRB,0.22450E+00_JPRB,0.33672E+00_JPRB,0.44894E+00_JPRB, &
+ & 0.56113E+00_JPRB,0.67322E+00_JPRB,0.78494E+00_JPRB,0.89542E+00_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.12456E+00_JPRB,0.13045E+00_JPRB,0.23454E+00_JPRB,0.35177E+00_JPRB,0.46901E+00_JPRB, &
+ & 0.58622E+00_JPRB,0.70332E+00_JPRB,0.82004E+00_JPRB,0.93535E+00_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.12240E+00_JPRB,0.13234E+00_JPRB,0.24346E+00_JPRB,0.36515E+00_JPRB,0.48682E+00_JPRB, &
+ & 0.60842E+00_JPRB,0.72992E+00_JPRB,0.85105E+00_JPRB,0.97074E+00_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.15641E+00_JPRB,0.14549E+00_JPRB,0.21406E+00_JPRB,0.31903E+00_JPRB,0.42534E+00_JPRB, &
+ & 0.53165E+00_JPRB,0.63788E+00_JPRB,0.74385E+00_JPRB,0.84964E+00_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.15207E+00_JPRB,0.14574E+00_JPRB,0.22708E+00_JPRB,0.34022E+00_JPRB,0.45360E+00_JPRB, &
+ & 0.56697E+00_JPRB,0.68027E+00_JPRB,0.79322E+00_JPRB,0.90603E+00_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.14825E+00_JPRB,0.14665E+00_JPRB,0.23979E+00_JPRB,0.35965E+00_JPRB,0.47950E+00_JPRB, &
+ & 0.59932E+00_JPRB,0.71907E+00_JPRB,0.83857E+00_JPRB,0.95773E+00_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.14482E+00_JPRB,0.14790E+00_JPRB,0.25144E+00_JPRB,0.37711E+00_JPRB,0.50278E+00_JPRB, &
+ & 0.62841E+00_JPRB,0.75400E+00_JPRB,0.87926E+00_JPRB,0.10043E+01_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.14196E+00_JPRB,0.14929E+00_JPRB,0.26158E+00_JPRB,0.39235E+00_JPRB,0.52312E+00_JPRB, &
+ & 0.65390E+00_JPRB,0.78460E+00_JPRB,0.91489E+00_JPRB,0.10450E+01_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.18245E+00_JPRB,0.16813E+00_JPRB,0.22831E+00_JPRB,0.33360E+00_JPRB,0.44476E+00_JPRB, &
+ & 0.55591E+00_JPRB,0.66702E+00_JPRB,0.77783E+00_JPRB,0.88903E+00_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.17706E+00_JPRB,0.16763E+00_JPRB,0.24144E+00_JPRB,0.35719E+00_JPRB,0.47625E+00_JPRB, &
+ & 0.59524E+00_JPRB,0.71422E+00_JPRB,0.83295E+00_JPRB,0.95194E+00_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.17236E+00_JPRB,0.16756E+00_JPRB,0.25360E+00_JPRB,0.37892E+00_JPRB,0.50520E+00_JPRB, &
+ & 0.63143E+00_JPRB,0.75766E+00_JPRB,0.88351E+00_JPRB,0.10099E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.16823E+00_JPRB,0.16816E+00_JPRB,0.26586E+00_JPRB,0.39858E+00_JPRB,0.53141E+00_JPRB, &
+ & 0.66420E+00_JPRB,0.79692E+00_JPRB,0.92941E+00_JPRB,0.10623E+01_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.16468E+00_JPRB,0.16894E+00_JPRB,0.27725E+00_JPRB,0.41585E+00_JPRB,0.55445E+00_JPRB, &
+ & 0.69298E+00_JPRB,0.83146E+00_JPRB,0.96971E+00_JPRB,0.11082E+01_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.21221E+00_JPRB,0.19366E+00_JPRB,0.24501E+00_JPRB,0.34518E+00_JPRB,0.46022E+00_JPRB, &
+ & 0.57522E+00_JPRB,0.69013E+00_JPRB,0.80500E+00_JPRB,0.92024E+00_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.20558E+00_JPRB,0.19344E+00_JPRB,0.25798E+00_JPRB,0.37195E+00_JPRB,0.49597E+00_JPRB, &
+ & 0.61989E+00_JPRB,0.74379E+00_JPRB,0.86737E+00_JPRB,0.99166E+00_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.19977E+00_JPRB,0.19260E+00_JPRB,0.26963E+00_JPRB,0.39624E+00_JPRB,0.52829E+00_JPRB, &
+ & 0.66032E+00_JPRB,0.79227E+00_JPRB,0.92396E+00_JPRB,0.10564E+01_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.19471E+00_JPRB,0.19196E+00_JPRB,0.28135E+00_JPRB,0.41773E+00_JPRB,0.55693E+00_JPRB, &
+ & 0.69614E+00_JPRB,0.83525E+00_JPRB,0.97412E+00_JPRB,0.11137E+01_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.19023E+00_JPRB,0.19149E+00_JPRB,0.29229E+00_JPRB,0.43683E+00_JPRB,0.58243E+00_JPRB, &
+ & 0.72800E+00_JPRB,0.87352E+00_JPRB,0.10186E+01_JPRB,0.11647E+01_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.24675E+00_JPRB,0.22274E+00_JPRB,0.26456E+00_JPRB,0.35496E+00_JPRB,0.47007E+00_JPRB, &
+ & 0.58755E+00_JPRB,0.70496E+00_JPRB,0.82216E+00_JPRB,0.94015E+00_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.23844E+00_JPRB,0.22223E+00_JPRB,0.27692E+00_JPRB,0.38304E+00_JPRB,0.51028E+00_JPRB, &
+ & 0.63780E+00_JPRB,0.76534E+00_JPRB,0.89259E+00_JPRB,0.10206E+01_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.23115E+00_JPRB,0.22076E+00_JPRB,0.28808E+00_JPRB,0.40973E+00_JPRB,0.54629E+00_JPRB, &
+ & 0.68281E+00_JPRB,0.81930E+00_JPRB,0.95554E+00_JPRB,0.10926E+01_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.22487E+00_JPRB,0.21935E+00_JPRB,0.29872E+00_JPRB,0.43339E+00_JPRB,0.57783E+00_JPRB, &
+ & 0.72230E+00_JPRB,0.86661E+00_JPRB,0.10108E+01_JPRB,0.11557E+01_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.21911E+00_JPRB,0.21807E+00_JPRB,0.30914E+00_JPRB,0.45602E+00_JPRB,0.60799E+00_JPRB, &
+ & 0.75991E+00_JPRB,0.91189E+00_JPRB,0.10634E+01_JPRB,0.12161E+01_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.28580E+00_JPRB,0.25610E+00_JPRB,0.28839E+00_JPRB,0.36810E+00_JPRB,0.47645E+00_JPRB, &
+ & 0.59554E+00_JPRB,0.71455E+00_JPRB,0.83348E+00_JPRB,0.95290E+00_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.27554E+00_JPRB,0.25438E+00_JPRB,0.29985E+00_JPRB,0.39603E+00_JPRB,0.52141E+00_JPRB, &
+ & 0.65175E+00_JPRB,0.78205E+00_JPRB,0.91212E+00_JPRB,0.10429E+01_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.26639E+00_JPRB,0.25230E+00_JPRB,0.31000E+00_JPRB,0.42263E+00_JPRB,0.56074E+00_JPRB, &
+ & 0.70092E+00_JPRB,0.84101E+00_JPRB,0.98094E+00_JPRB,0.11215E+01_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.25840E+00_JPRB,0.24961E+00_JPRB,0.31933E+00_JPRB,0.44762E+00_JPRB,0.59663E+00_JPRB, &
+ & 0.74572E+00_JPRB,0.89477E+00_JPRB,0.10436E+01_JPRB,0.11932E+01_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.25110E+00_JPRB,0.24738E+00_JPRB,0.32882E+00_JPRB,0.47409E+00_JPRB,0.63208E+00_JPRB, &
+ & 0.79011E+00_JPRB,0.94801E+00_JPRB,0.11055E+01_JPRB,0.12642E+01_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.32402E+00_JPRB,0.29231E+00_JPRB,0.32114E+00_JPRB,0.39449E+00_JPRB,0.49965E+00_JPRB, &
+ & 0.62359E+00_JPRB,0.74830E+00_JPRB,0.87279E+00_JPRB,0.99780E+00_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.31203E+00_JPRB,0.28940E+00_JPRB,0.33009E+00_JPRB,0.42179E+00_JPRB,0.54573E+00_JPRB, &
+ & 0.68214E+00_JPRB,0.81856E+00_JPRB,0.95481E+00_JPRB,0.10916E+01_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.30125E+00_JPRB,0.28556E+00_JPRB,0.33820E+00_JPRB,0.44749E+00_JPRB,0.58870E+00_JPRB, &
+ & 0.73583E+00_JPRB,0.88295E+00_JPRB,0.10298E+01_JPRB,0.11773E+01_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.29153E+00_JPRB,0.28159E+00_JPRB,0.34632E+00_JPRB,0.47427E+00_JPRB,0.63035E+00_JPRB, &
+ & 0.78788E+00_JPRB,0.94537E+00_JPRB,0.11027E+01_JPRB,0.12607E+01_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.28247E+00_JPRB,0.27799E+00_JPRB,0.35496E+00_JPRB,0.50259E+00_JPRB,0.66996E+00_JPRB, &
+ & 0.83740E+00_JPRB,0.10047E+01_JPRB,0.11720E+01_JPRB,0.13400E+01_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.36545E+00_JPRB,0.33140E+00_JPRB,0.35636E+00_JPRB,0.42085E+00_JPRB,0.52250E+00_JPRB, &
+ & 0.64898E+00_JPRB,0.77872E+00_JPRB,0.90834E+00_JPRB,0.10384E+01_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.35131E+00_JPRB,0.32685E+00_JPRB,0.36231E+00_JPRB,0.44658E+00_JPRB,0.56903E+00_JPRB, &
+ & 0.71087E+00_JPRB,0.85304E+00_JPRB,0.99503E+00_JPRB,0.11374E+01_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.33841E+00_JPRB,0.32098E+00_JPRB,0.36825E+00_JPRB,0.47208E+00_JPRB,0.61613E+00_JPRB, &
+ & 0.77016E+00_JPRB,0.92410E+00_JPRB,0.10779E+01_JPRB,0.12323E+01_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.32642E+00_JPRB,0.31543E+00_JPRB,0.37504E+00_JPRB,0.50058E+00_JPRB,0.66195E+00_JPRB, &
+ & 0.82736E+00_JPRB,0.99279E+00_JPRB,0.11580E+01_JPRB,0.13239E+01_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.31541E+00_JPRB,0.31006E+00_JPRB,0.38358E+00_JPRB,0.53015E+00_JPRB,0.70512E+00_JPRB, &
+ & 0.88131E+00_JPRB,0.10574E+01_JPRB,0.12335E+01_JPRB,0.14101E+01_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.40964E+00_JPRB,0.37314E+00_JPRB,0.39372E+00_JPRB,0.44813E+00_JPRB,0.54521E+00_JPRB, &
+ & 0.67332E+00_JPRB,0.80793E+00_JPRB,0.94247E+00_JPRB,0.10773E+01_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.39277E+00_JPRB,0.36624E+00_JPRB,0.39629E+00_JPRB,0.47194E+00_JPRB,0.59295E+00_JPRB, &
+ & 0.73949E+00_JPRB,0.88734E+00_JPRB,0.10350E+01_JPRB,0.11832E+01_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.37714E+00_JPRB,0.35816E+00_JPRB,0.39962E+00_JPRB,0.49769E+00_JPRB,0.64296E+00_JPRB, &
+ & 0.80367E+00_JPRB,0.96435E+00_JPRB,0.11249E+01_JPRB,0.12860E+01_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.36268E+00_JPRB,0.35049E+00_JPRB,0.40459E+00_JPRB,0.52725E+00_JPRB,0.69174E+00_JPRB, &
+ & 0.86463E+00_JPRB,0.10374E+01_JPRB,0.12101E+01_JPRB,0.13834E+01_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.34948E+00_JPRB,0.34295E+00_JPRB,0.41358E+00_JPRB,0.55736E+00_JPRB,0.73767E+00_JPRB, &
+ & 0.92205E+00_JPRB,0.11064E+01_JPRB,0.12905E+01_JPRB,0.14753E+01_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.90320E-01_JPRB,0.86361E-01_JPRB,0.17271E+00_JPRB,0.25905E+00_JPRB,0.34536E+00_JPRB, &
+ & 0.43163E+00_JPRB,0.51777E+00_JPRB,0.60344E+00_JPRB,0.64541E+00_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.88026E-01_JPRB,0.92415E-01_JPRB,0.18482E+00_JPRB,0.27721E+00_JPRB,0.36957E+00_JPRB, &
+ & 0.46188E+00_JPRB,0.55406E+00_JPRB,0.64572E+00_JPRB,0.69076E+00_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.85829E-01_JPRB,0.97954E-01_JPRB,0.19590E+00_JPRB,0.29382E+00_JPRB,0.39172E+00_JPRB, &
+ & 0.48957E+00_JPRB,0.58728E+00_JPRB,0.68449E+00_JPRB,0.73223E+00_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.83674E-01_JPRB,0.10298E+00_JPRB,0.20595E+00_JPRB,0.30890E+00_JPRB,0.41183E+00_JPRB, &
+ & 0.51469E+00_JPRB,0.61741E+00_JPRB,0.71956E+00_JPRB,0.77014E+00_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.84304E-01_JPRB,0.10756E+00_JPRB,0.21511E+00_JPRB,0.32264E+00_JPRB,0.43014E+00_JPRB, &
+ & 0.53758E+00_JPRB,0.64487E+00_JPRB,0.75164E+00_JPRB,0.80439E+00_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.99611E-01_JPRB,0.10121E+00_JPRB,0.20241E+00_JPRB,0.30359E+00_JPRB,0.40479E+00_JPRB, &
+ & 0.50590E+00_JPRB,0.60686E+00_JPRB,0.70732E+00_JPRB,0.77453E+00_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.97224E-01_JPRB,0.10870E+00_JPRB,0.21739E+00_JPRB,0.32607E+00_JPRB,0.43471E+00_JPRB, &
+ & 0.54336E+00_JPRB,0.65181E+00_JPRB,0.75967E+00_JPRB,0.83199E+00_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.94894E-01_JPRB,0.11558E+00_JPRB,0.23114E+00_JPRB,0.34669E+00_JPRB,0.46220E+00_JPRB, &
+ & 0.57772E+00_JPRB,0.69302E+00_JPRB,0.80771E+00_JPRB,0.88476E+00_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.92656E-01_JPRB,0.12184E+00_JPRB,0.24366E+00_JPRB,0.36546E+00_JPRB,0.48723E+00_JPRB, &
+ & 0.60893E+00_JPRB,0.73046E+00_JPRB,0.85132E+00_JPRB,0.93269E+00_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.93593E-01_JPRB,0.12749E+00_JPRB,0.25497E+00_JPRB,0.38243E+00_JPRB,0.50985E+00_JPRB, &
+ & 0.63721E+00_JPRB,0.76438E+00_JPRB,0.89083E+00_JPRB,0.97622E+00_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.11521E+00_JPRB,0.11614E+00_JPRB,0.23226E+00_JPRB,0.34836E+00_JPRB,0.46443E+00_JPRB, &
+ & 0.58044E+00_JPRB,0.69629E+00_JPRB,0.81149E+00_JPRB,0.90951E+00_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.11222E+00_JPRB,0.12555E+00_JPRB,0.25108E+00_JPRB,0.37659E+00_JPRB,0.50206E+00_JPRB, &
+ & 0.62747E+00_JPRB,0.75258E+00_JPRB,0.87709E+00_JPRB,0.98316E+00_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.10948E+00_JPRB,0.13410E+00_JPRB,0.26819E+00_JPRB,0.40226E+00_JPRB,0.53629E+00_JPRB, &
+ & 0.67035E+00_JPRB,0.80421E+00_JPRB,0.93726E+00_JPRB,0.10505E+01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.10697E+00_JPRB,0.14195E+00_JPRB,0.28389E+00_JPRB,0.42580E+00_JPRB,0.56768E+00_JPRB, &
+ & 0.70947E+00_JPRB,0.85107E+00_JPRB,0.99187E+00_JPRB,0.11120E+01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.10462E+00_JPRB,0.14901E+00_JPRB,0.29800E+00_JPRB,0.44697E+00_JPRB,0.59590E+00_JPRB, &
+ & 0.74474E+00_JPRB,0.89338E+00_JPRB,0.10415E+01_JPRB,0.11678E+01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.13825E+00_JPRB,0.13238E+00_JPRB,0.26314E+00_JPRB,0.39468E+00_JPRB,0.52618E+00_JPRB, &
+ & 0.65761E+00_JPRB,0.78893E+00_JPRB,0.91946E+00_JPRB,0.10423E+01_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.13437E+00_JPRB,0.14320E+00_JPRB,0.28638E+00_JPRB,0.42954E+00_JPRB,0.57266E+00_JPRB, &
+ & 0.71574E+00_JPRB,0.85868E+00_JPRB,0.10008E+01_JPRB,0.11347E+01_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.13067E+00_JPRB,0.15392E+00_JPRB,0.30782E+00_JPRB,0.46170E+00_JPRB,0.61554E+00_JPRB, &
+ & 0.76929E+00_JPRB,0.92283E+00_JPRB,0.10757E+01_JPRB,0.12195E+01_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.12733E+00_JPRB,0.16364E+00_JPRB,0.32725E+00_JPRB,0.49085E+00_JPRB,0.65439E+00_JPRB, &
+ & 0.81785E+00_JPRB,0.98125E+00_JPRB,0.11437E+01_JPRB,0.12968E+01_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.12429E+00_JPRB,0.17242E+00_JPRB,0.34483E+00_JPRB,0.51721E+00_JPRB,0.68954E+00_JPRB, &
+ & 0.86178E+00_JPRB,0.10339E+01_JPRB,0.12053E+01_JPRB,0.13667E+01_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.16714E+00_JPRB,0.15294E+00_JPRB,0.29770E+00_JPRB,0.44651E+00_JPRB,0.59528E+00_JPRB, &
+ & 0.74397E+00_JPRB,0.89246E+00_JPRB,0.10402E+01_JPRB,0.11846E+01_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.16248E+00_JPRB,0.16289E+00_JPRB,0.32569E+00_JPRB,0.48850E+00_JPRB,0.65127E+00_JPRB, &
+ & 0.81396E+00_JPRB,0.97625E+00_JPRB,0.11381E+01_JPRB,0.12962E+01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.15803E+00_JPRB,0.17580E+00_JPRB,0.35158E+00_JPRB,0.52733E+00_JPRB,0.70303E+00_JPRB, &
+ & 0.87864E+00_JPRB,0.10540E+01_JPRB,0.12284E+01_JPRB,0.13993E+01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.15368E+00_JPRB,0.18757E+00_JPRB,0.37512E+00_JPRB,0.56264E+00_JPRB,0.75011E+00_JPRB, &
+ & 0.93747E+00_JPRB,0.11247E+01_JPRB,0.13108E+01_JPRB,0.14933E+01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.14943E+00_JPRB,0.19824E+00_JPRB,0.39645E+00_JPRB,0.59477E+00_JPRB,0.79303E+00_JPRB, &
+ & 0.99112E+00_JPRB,0.11890E+01_JPRB,0.13858E+01_JPRB,0.15783E+01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.20217E+00_JPRB,0.17926E+00_JPRB,0.33507E+00_JPRB,0.50257E+00_JPRB,0.67002E+00_JPRB, &
+ & 0.83741E+00_JPRB,0.10046E+01_JPRB,0.11708E+01_JPRB,0.13365E+01_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.19655E+00_JPRB,0.18668E+00_JPRB,0.36910E+00_JPRB,0.55360E+00_JPRB,0.73806E+00_JPRB, &
+ & 0.92245E+00_JPRB,0.11065E+01_JPRB,0.12896E+01_JPRB,0.14724E+01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.19100E+00_JPRB,0.20029E+00_JPRB,0.40054E+00_JPRB,0.60077E+00_JPRB,0.80095E+00_JPRB, &
+ & 0.10010E+01_JPRB,0.12008E+01_JPRB,0.13997E+01_JPRB,0.15979E+01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.18556E+00_JPRB,0.21465E+00_JPRB,0.42926E+00_JPRB,0.64385E+00_JPRB,0.85838E+00_JPRB, &
+ & 0.10728E+01_JPRB,0.12869E+01_JPRB,0.15000E+01_JPRB,0.17126E+01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.18024E+00_JPRB,0.22760E+00_JPRB,0.45517E+00_JPRB,0.68271E+00_JPRB,0.91019E+00_JPRB, &
+ & 0.11375E+01_JPRB,0.13647E+01_JPRB,0.15907E+01_JPRB,0.18161E+01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.24417E+00_JPRB,0.21368E+00_JPRB,0.37507E+00_JPRB,0.56256E+00_JPRB,0.75006E+00_JPRB, &
+ & 0.93742E+00_JPRB,0.11245E+01_JPRB,0.13107E+01_JPRB,0.14982E+01_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.23715E+00_JPRB,0.21661E+00_JPRB,0.41650E+00_JPRB,0.62470E+00_JPRB,0.83285E+00_JPRB, &
+ & 0.10409E+01_JPRB,0.12487E+01_JPRB,0.14555E+01_JPRB,0.16638E+01_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.23022E+00_JPRB,0.22856E+00_JPRB,0.45485E+00_JPRB,0.68222E+00_JPRB,0.90954E+00_JPRB, &
+ & 0.11367E+01_JPRB,0.13637E+01_JPRB,0.15896E+01_JPRB,0.18170E+01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.22335E+00_JPRB,0.24491E+00_JPRB,0.48979E+00_JPRB,0.73464E+00_JPRB,0.97947E+00_JPRB, &
+ & 0.12241E+01_JPRB,0.14686E+01_JPRB,0.17118E+01_JPRB,0.19566E+01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.21655E+00_JPRB,0.26068E+00_JPRB,0.52133E+00_JPRB,0.78194E+00_JPRB,0.10425E+01_JPRB, &
+ & 0.13029E+01_JPRB,0.15630E+01_JPRB,0.18220E+01_JPRB,0.20827E+01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.29541E+00_JPRB,0.25848E+00_JPRB,0.41687E+00_JPRB,0.62527E+00_JPRB,0.83361E+00_JPRB, &
+ & 0.10419E+01_JPRB,0.12499E+01_JPRB,0.14571E+01_JPRB,0.16668E+01_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.28549E+00_JPRB,0.25449E+00_JPRB,0.46724E+00_JPRB,0.70082E+00_JPRB,0.93434E+00_JPRB, &
+ & 0.11678E+01_JPRB,0.14009E+01_JPRB,0.16328E+01_JPRB,0.18680E+01_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.27625E+00_JPRB,0.26285E+00_JPRB,0.51364E+00_JPRB,0.77040E+00_JPRB,0.10271E+01_JPRB, &
+ & 0.12838E+01_JPRB,0.15402E+01_JPRB,0.17956E+01_JPRB,0.20538E+01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.26742E+00_JPRB,0.27883E+00_JPRB,0.55601E+00_JPRB,0.83395E+00_JPRB,0.11118E+01_JPRB, &
+ & 0.13896E+01_JPRB,0.16670E+01_JPRB,0.19436E+01_JPRB,0.22230E+01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.25873E+00_JPRB,0.29706E+00_JPRB,0.59410E+00_JPRB,0.89109E+00_JPRB,0.11880E+01_JPRB, &
+ & 0.14848E+01_JPRB,0.17812E+01_JPRB,0.20764E+01_JPRB,0.23753E+01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.35727E+00_JPRB,0.31262E+00_JPRB,0.45859E+00_JPRB,0.68783E+00_JPRB,0.91710E+00_JPRB, &
+ & 0.11462E+01_JPRB,0.13749E+01_JPRB,0.16027E+01_JPRB,0.18342E+01_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.34378E+00_JPRB,0.30157E+00_JPRB,0.51912E+00_JPRB,0.77863E+00_JPRB,0.10382E+01_JPRB, &
+ & 0.12975E+01_JPRB,0.15566E+01_JPRB,0.18147E+01_JPRB,0.20764E+01_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.33111E+00_JPRB,0.30494E+00_JPRB,0.57506E+00_JPRB,0.86254E+00_JPRB,0.11500E+01_JPRB, &
+ & 0.14374E+01_JPRB,0.17244E+01_JPRB,0.20104E+01_JPRB,0.23002E+01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.31901E+00_JPRB,0.31860E+00_JPRB,0.62597E+00_JPRB,0.93889E+00_JPRB,0.12519E+01_JPRB, &
+ & 0.15648E+01_JPRB,0.18772E+01_JPRB,0.21885E+01_JPRB,0.25042E+01_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.30738E+00_JPRB,0.33686E+00_JPRB,0.67173E+00_JPRB,0.10075E+01_JPRB,0.13433E+01_JPRB, &
+ & 0.16788E+01_JPRB,0.20142E+01_JPRB,0.23482E+01_JPRB,0.26866E+01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.42900E+00_JPRB,0.37537E+00_JPRB,0.50742E+00_JPRB,0.76107E+00_JPRB,0.10147E+01_JPRB, &
+ & 0.12682E+01_JPRB,0.15216E+01_JPRB,0.17737E+01_JPRB,0.20298E+01_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.41120E+00_JPRB,0.35980E+00_JPRB,0.57626E+00_JPRB,0.86440E+00_JPRB,0.11524E+01_JPRB, &
+ & 0.14403E+01_JPRB,0.17281E+01_JPRB,0.20148E+01_JPRB,0.23052E+01_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.39435E+00_JPRB,0.35582E+00_JPRB,0.64201E+00_JPRB,0.96295E+00_JPRB,0.12838E+01_JPRB, &
+ & 0.16046E+01_JPRB,0.19250E+01_JPRB,0.22444E+01_JPRB,0.25680E+01_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.37835E+00_JPRB,0.36721E+00_JPRB,0.70220E+00_JPRB,0.10532E+01_JPRB,0.14042E+01_JPRB, &
+ & 0.17550E+01_JPRB,0.21055E+01_JPRB,0.24551E+01_JPRB,0.28089E+01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.36302E+00_JPRB,0.38402E+00_JPRB,0.75599E+00_JPRB,0.11339E+01_JPRB,0.15118E+01_JPRB, &
+ & 0.18894E+01_JPRB,0.22669E+01_JPRB,0.26429E+01_JPRB,0.30243E+01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.50130E+00_JPRB,0.43864E+00_JPRB,0.59754E+00_JPRB,0.89626E+00_JPRB,0.11949E+01_JPRB, &
+ & 0.14934E+01_JPRB,0.17919E+01_JPRB,0.20890E+01_JPRB,0.23902E+01_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.47862E+00_JPRB,0.41971E+00_JPRB,0.67375E+00_JPRB,0.10106E+01_JPRB,0.13473E+01_JPRB, &
+ & 0.16840E+01_JPRB,0.20203E+01_JPRB,0.23553E+01_JPRB,0.26950E+01_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.45729E+00_JPRB,0.41739E+00_JPRB,0.74475E+00_JPRB,0.11171E+01_JPRB,0.14893E+01_JPRB, &
+ & 0.18615E+01_JPRB,0.22335E+01_JPRB,0.26038E+01_JPRB,0.29786E+01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.43691E+00_JPRB,0.42957E+00_JPRB,0.80967E+00_JPRB,0.12144E+01_JPRB,0.16191E+01_JPRB, &
+ & 0.20236E+01_JPRB,0.24280E+01_JPRB,0.28308E+01_JPRB,0.32389E+01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.41748E+00_JPRB,0.44621E+00_JPRB,0.86800E+00_JPRB,0.13019E+01_JPRB,0.17360E+01_JPRB, &
+ & 0.21698E+01_JPRB,0.26031E+01_JPRB,0.30355E+01_JPRB,0.34723E+01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.58052E+00_JPRB,0.50796E+00_JPRB,0.69775E+00_JPRB,0.10466E+01_JPRB,0.13954E+01_JPRB, &
+ & 0.17440E+01_JPRB,0.20924E+01_JPRB,0.24394E+01_JPRB,0.27908E+01_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.55207E+00_JPRB,0.48627E+00_JPRB,0.78177E+00_JPRB,0.11726E+01_JPRB,0.15635E+01_JPRB, &
+ & 0.19543E+01_JPRB,0.23447E+01_JPRB,0.27336E+01_JPRB,0.31273E+01_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.52503E+00_JPRB,0.48543E+00_JPRB,0.85881E+00_JPRB,0.12881E+01_JPRB,0.17174E+01_JPRB, &
+ & 0.21467E+01_JPRB,0.25754E+01_JPRB,0.30027E+01_JPRB,0.34355E+01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.49945E+00_JPRB,0.49746E+00_JPRB,0.92780E+00_JPRB,0.13917E+01_JPRB,0.18554E+01_JPRB, &
+ & 0.23191E+01_JPRB,0.27823E+01_JPRB,0.32446E+01_JPRB,0.37108E+01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.47536E+00_JPRB,0.51344E+00_JPRB,0.98885E+00_JPRB,0.14832E+01_JPRB,0.19776E+01_JPRB, &
+ & 0.24717E+01_JPRB,0.29655E+01_JPRB,0.34576E+01_JPRB,0.39563E+01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.66560E+00_JPRB,0.58240E+00_JPRB,0.80598E+00_JPRB,0.12089E+01_JPRB,0.16118E+01_JPRB, &
+ & 0.20145E+01_JPRB,0.24172E+01_JPRB,0.28183E+01_JPRB,0.32240E+01_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.62986E+00_JPRB,0.55885E+00_JPRB,0.89794E+00_JPRB,0.13468E+01_JPRB,0.17957E+01_JPRB, &
+ & 0.22443E+01_JPRB,0.26925E+01_JPRB,0.31396E+01_JPRB,0.35914E+01_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.59613E+00_JPRB,0.55868E+00_JPRB,0.98065E+00_JPRB,0.14709E+01_JPRB,0.19611E+01_JPRB, &
+ & 0.24513E+01_JPRB,0.29409E+01_JPRB,0.34293E+01_JPRB,0.39230E+01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.56427E+00_JPRB,0.56950E+00_JPRB,0.10539E+01_JPRB,0.15808E+01_JPRB,0.21076E+01_JPRB, &
+ & 0.26342E+01_JPRB,0.31605E+01_JPRB,0.36850E+01_JPRB,0.42159E+01_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.53530E+00_JPRB,0.58425E+00_JPRB,0.11174E+01_JPRB,0.16761E+01_JPRB,0.22346E+01_JPRB, &
+ & 0.27933E+01_JPRB,0.33512E+01_JPRB,0.39078E+01_JPRB,0.44703E+01_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.12810E-03_JPRB,0.12891E-03_JPRB,0.12890E-03_JPRB,0.12713E-03_JPRB,0.12477E-03_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.10653E-03_JPRB,0.10667E-03_JPRB,0.10648E-03_JPRB,0.10473E-03_JPRB,0.10293E-03_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.90176E-04_JPRB,0.90077E-04_JPRB,0.89286E-04_JPRB,0.87879E-04_JPRB,0.85987E-04_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.77704E-04_JPRB,0.77304E-04_JPRB,0.75879E-04_JPRB,0.74246E-04_JPRB,0.72070E-04_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.67183E-04_JPRB,0.65906E-04_JPRB,0.64619E-04_JPRB,0.63000E-04_JPRB,0.61056E-04_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.58741E-04_JPRB,0.57649E-04_JPRB,0.56028E-04_JPRB,0.54293E-04_JPRB,0.52506E-04_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.51839E-04_JPRB,0.50715E-04_JPRB,0.49053E-04_JPRB,0.47195E-04_JPRB,0.45368E-04_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.44321E-04_JPRB,0.43297E-04_JPRB,0.41923E-04_JPRB,0.40298E-04_JPRB,0.38744E-04_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.37527E-04_JPRB,0.36516E-04_JPRB,0.35380E-04_JPRB,0.34037E-04_JPRB,0.32951E-04_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.31752E-04_JPRB,0.30703E-04_JPRB,0.29586E-04_JPRB,0.28499E-04_JPRB,0.27519E-04_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.26638E-04_JPRB,0.25643E-04_JPRB,0.24693E-04_JPRB,0.23832E-04_JPRB,0.22913E-04_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.22325E-04_JPRB,0.21480E-04_JPRB,0.20621E-04_JPRB,0.19867E-04_JPRB,0.19066E-04_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.18764E-04_JPRB,0.17998E-04_JPRB,0.17269E-04_JPRB,0.16527E-04_JPRB,0.15821E-04_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.15650E-04_JPRB,0.14992E-04_JPRB,0.14356E-04_JPRB,0.13710E-04_JPRB,0.13119E-04_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.13054E-04_JPRB,0.12477E-04_JPRB,0.11929E-04_JPRB,0.11393E-04_JPRB,0.10948E-04_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.10852E-04_JPRB,0.10390E-04_JPRB,0.99195E-05_JPRB,0.95020E-05_JPRB,0.91993E-05_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.90990E-05_JPRB,0.87209E-05_JPRB,0.83384E-05_JPRB,0.80029E-05_JPRB,0.77245E-05_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.77169E-05_JPRB,0.73662E-05_JPRB,0.70552E-05_JPRB,0.68029E-05_JPRB,0.65749E-05_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.65250E-05_JPRB,0.62364E-05_JPRB,0.60172E-05_JPRB,0.57804E-05_JPRB,0.55504E-05_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.55167E-05_JPRB,0.53021E-05_JPRB,0.51088E-05_JPRB,0.49113E-05_JPRB,0.47150E-05_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.47261E-05_JPRB,0.45530E-05_JPRB,0.43641E-05_JPRB,0.41725E-05_JPRB,0.40077E-05_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.40646E-05_JPRB,0.39062E-05_JPRB,0.37472E-05_JPRB,0.36009E-05_JPRB,0.34549E-05_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.35479E-05_JPRB,0.34057E-05_JPRB,0.32704E-05_JPRB,0.31420E-05_JPRB,0.30219E-05_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.31353E-05_JPRB,0.30270E-05_JPRB,0.29024E-05_JPRB,0.27776E-05_JPRB,0.26600E-05_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.26595E-05_JPRB,0.25621E-05_JPRB,0.24646E-05_JPRB,0.23582E-05_JPRB,0.22563E-05_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.22468E-05_JPRB,0.21651E-05_JPRB,0.20812E-05_JPRB,0.20043E-05_JPRB,0.19221E-05_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.19009E-05_JPRB,0.18335E-05_JPRB,0.17685E-05_JPRB,0.17039E-05_JPRB,0.16406E-05_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.15746E-05_JPRB,0.15188E-05_JPRB,0.14669E-05_JPRB,0.14148E-05_JPRB,0.13668E-05_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.13001E-05_JPRB,0.12561E-05_JPRB,0.12122E-05_JPRB,0.11718E-05_JPRB,0.11306E-05_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.10716E-05_JPRB,0.10380E-05_JPRB,0.10018E-05_JPRB,0.96745E-06_JPRB,0.93475E-06_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.87651E-06_JPRB,0.85172E-06_JPRB,0.82453E-06_JPRB,0.79560E-06_JPRB,0.77011E-06_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.71565E-06_JPRB,0.69699E-06_JPRB,0.67699E-06_JPRB,0.65403E-06_JPRB,0.63202E-06_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.58391E-06_JPRB,0.56946E-06_JPRB,0.55318E-06_JPRB,0.53575E-06_JPRB,0.51774E-06_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.47490E-06_JPRB,0.46531E-06_JPRB,0.45175E-06_JPRB,0.43686E-06_JPRB,0.42260E-06_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.38718E-06_JPRB,0.37610E-06_JPRB,0.36650E-06_JPRB,0.35580E-06_JPRB,0.34417E-06_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.31464E-06_JPRB,0.30494E-06_JPRB,0.29872E-06_JPRB,0.29096E-06_JPRB,0.28230E-06_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.25542E-06_JPRB,0.24885E-06_JPRB,0.24314E-06_JPRB,0.23745E-06_JPRB,0.23092E-06_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.20741E-06_JPRB,0.20175E-06_JPRB,0.19699E-06_JPRB,0.19305E-06_JPRB,0.18791E-06_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.16760E-06_JPRB,0.16406E-06_JPRB,0.15993E-06_JPRB,0.15631E-06_JPRB,0.15327E-06_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.13579E-06_JPRB,0.13287E-06_JPRB,0.12985E-06_JPRB,0.12725E-06_JPRB,0.12470E-06_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.11006E-06_JPRB,0.10757E-06_JPRB,0.10568E-06_JPRB,0.10314E-06_JPRB,0.10101E-06_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.88711E-07_JPRB,0.87131E-07_JPRB,0.85162E-07_JPRB,0.83405E-07_JPRB,0.81585E-07_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.70889E-07_JPRB,0.69917E-07_JPRB,0.68692E-07_JPRB,0.67463E-07_JPRB,0.66047E-07_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.56659E-07_JPRB,0.56077E-07_JPRB,0.55518E-07_JPRB,0.54462E-07_JPRB,0.53563E-07_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.45380E-07_JPRB,0.45159E-07_JPRB,0.44718E-07_JPRB,0.44063E-07_JPRB,0.43116E-07_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.35962E-07_JPRB,0.36177E-07_JPRB,0.35997E-07_JPRB,0.35600E-07_JPRB,0.34340E-07_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.28578E-07_JPRB,0.28924E-07_JPRB,0.28901E-07_JPRB,0.28176E-07_JPRB,0.27246E-07_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.63215E-03_JPRB,0.64756E-03_JPRB,0.65734E-03_JPRB,0.66515E-03_JPRB,0.67077E-03_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.52378E-03_JPRB,0.53631E-03_JPRB,0.54485E-03_JPRB,0.55071E-03_JPRB,0.55605E-03_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.43777E-03_JPRB,0.44814E-03_JPRB,0.45521E-03_JPRB,0.46124E-03_JPRB,0.46700E-03_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.37023E-03_JPRB,0.37869E-03_JPRB,0.38568E-03_JPRB,0.39070E-03_JPRB,0.39760E-03_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.31753E-03_JPRB,0.32632E-03_JPRB,0.33254E-03_JPRB,0.33817E-03_JPRB,0.34312E-03_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.27580E-03_JPRB,0.28310E-03_JPRB,0.28915E-03_JPRB,0.29488E-03_JPRB,0.29855E-03_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.24129E-03_JPRB,0.24697E-03_JPRB,0.25302E-03_JPRB,0.25785E-03_JPRB,0.26137E-03_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.20470E-03_JPRB,0.21040E-03_JPRB,0.21552E-03_JPRB,0.21963E-03_JPRB,0.22260E-03_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.17290E-03_JPRB,0.17782E-03_JPRB,0.18188E-03_JPRB,0.18513E-03_JPRB,0.18794E-03_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.14599E-03_JPRB,0.15063E-03_JPRB,0.15389E-03_JPRB,0.15682E-03_JPRB,0.15965E-03_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.12390E-03_JPRB,0.12797E-03_JPRB,0.13071E-03_JPRB,0.13347E-03_JPRB,0.13571E-03_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.10553E-03_JPRB,0.10875E-03_JPRB,0.11134E-03_JPRB,0.11351E-03_JPRB,0.11513E-03_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.90263E-04_JPRB,0.92560E-04_JPRB,0.94667E-04_JPRB,0.96225E-04_JPRB,0.97041E-04_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.76542E-04_JPRB,0.78227E-04_JPRB,0.79755E-04_JPRB,0.80768E-04_JPRB,0.81412E-04_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.64562E-04_JPRB,0.66024E-04_JPRB,0.67121E-04_JPRB,0.67878E-04_JPRB,0.67992E-04_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.54587E-04_JPRB,0.55668E-04_JPRB,0.56439E-04_JPRB,0.56778E-04_JPRB,0.56649E-04_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.46248E-04_JPRB,0.46885E-04_JPRB,0.47469E-04_JPRB,0.47476E-04_JPRB,0.47464E-04_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.39084E-04_JPRB,0.39701E-04_JPRB,0.39836E-04_JPRB,0.39919E-04_JPRB,0.39762E-04_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.33297E-04_JPRB,0.33670E-04_JPRB,0.33781E-04_JPRB,0.33571E-04_JPRB,0.33418E-04_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.28475E-04_JPRB,0.28479E-04_JPRB,0.28352E-04_JPRB,0.28202E-04_JPRB,0.28107E-04_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.24023E-04_JPRB,0.23977E-04_JPRB,0.23874E-04_JPRB,0.23858E-04_JPRB,0.23729E-04_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.20276E-04_JPRB,0.20314E-04_JPRB,0.20262E-04_JPRB,0.20205E-04_JPRB,0.20013E-04_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.17177E-04_JPRB,0.17179E-04_JPRB,0.17181E-04_JPRB,0.17048E-04_JPRB,0.16915E-04_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.14586E-04_JPRB,0.14632E-04_JPRB,0.14569E-04_JPRB,0.14465E-04_JPRB,0.14404E-04_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.12165E-04_JPRB,0.12220E-04_JPRB,0.12164E-04_JPRB,0.12099E-04_JPRB,0.12036E-04_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.10178E-04_JPRB,0.10224E-04_JPRB,0.10201E-04_JPRB,0.10134E-04_JPRB,0.10060E-04_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.85622E-05_JPRB,0.85826E-05_JPRB,0.85520E-05_JPRB,0.85109E-05_JPRB,0.84378E-05_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.70263E-05_JPRB,0.70549E-05_JPRB,0.70334E-05_JPRB,0.70000E-05_JPRB,0.69500E-05_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.57510E-05_JPRB,0.57749E-05_JPRB,0.57692E-05_JPRB,0.57384E-05_JPRB,0.57121E-05_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.47038E-05_JPRB,0.47261E-05_JPRB,0.47278E-05_JPRB,0.47023E-05_JPRB,0.46867E-05_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.38249E-05_JPRB,0.38339E-05_JPRB,0.38498E-05_JPRB,0.38364E-05_JPRB,0.38125E-05_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.30973E-05_JPRB,0.31120E-05_JPRB,0.31166E-05_JPRB,0.31203E-05_JPRB,0.31022E-05_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.25085E-05_JPRB,0.25263E-05_JPRB,0.25293E-05_JPRB,0.25328E-05_JPRB,0.25249E-05_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.20261E-05_JPRB,0.20479E-05_JPRB,0.20565E-05_JPRB,0.20575E-05_JPRB,0.20588E-05_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.16319E-05_JPRB,0.16639E-05_JPRB,0.16745E-05_JPRB,0.16740E-05_JPRB,0.16759E-05_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.13097E-05_JPRB,0.13449E-05_JPRB,0.13611E-05_JPRB,0.13624E-05_JPRB,0.13589E-05_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.10521E-05_JPRB,0.10847E-05_JPRB,0.11052E-05_JPRB,0.11102E-05_JPRB,0.11085E-05_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.84668E-06_JPRB,0.87235E-06_JPRB,0.89544E-06_JPRB,0.90607E-06_JPRB,0.90616E-06_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.68060E-06_JPRB,0.70180E-06_JPRB,0.72187E-06_JPRB,0.73562E-06_JPRB,0.73800E-06_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.54634E-06_JPRB,0.56481E-06_JPRB,0.58256E-06_JPRB,0.59543E-06_JPRB,0.60122E-06_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.43866E-06_JPRB,0.45577E-06_JPRB,0.46957E-06_JPRB,0.48176E-06_JPRB,0.48940E-06_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.35062E-06_JPRB,0.36647E-06_JPRB,0.37935E-06_JPRB,0.38978E-06_JPRB,0.39697E-06_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.27883E-06_JPRB,0.29514E-06_JPRB,0.30397E-06_JPRB,0.31251E-06_JPRB,0.32004E-06_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.22098E-06_JPRB,0.23550E-06_JPRB,0.24289E-06_JPRB,0.25018E-06_JPRB,0.25708E-06_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.17295E-06_JPRB,0.18624E-06_JPRB,0.19332E-06_JPRB,0.19934E-06_JPRB,0.20587E-06_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.13623E-06_JPRB,0.14680E-06_JPRB,0.15403E-06_JPRB,0.15912E-06_JPRB,0.16499E-06_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.10864E-06_JPRB,0.11680E-06_JPRB,0.12353E-06_JPRB,0.12840E-06_JPRB,0.13352E-06_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.21069E-02_JPRB,0.21571E-02_JPRB,0.21943E-02_JPRB,0.22061E-02_JPRB,0.22124E-02_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.17411E-02_JPRB,0.17833E-02_JPRB,0.18097E-02_JPRB,0.18225E-02_JPRB,0.18251E-02_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.14440E-02_JPRB,0.14790E-02_JPRB,0.14963E-02_JPRB,0.15066E-02_JPRB,0.15066E-02_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.11998E-02_JPRB,0.12261E-02_JPRB,0.12398E-02_JPRB,0.12500E-02_JPRB,0.12487E-02_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.99980E-03_JPRB,0.10202E-02_JPRB,0.10332E-02_JPRB,0.10399E-02_JPRB,0.10392E-02_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.83805E-03_JPRB,0.85629E-03_JPRB,0.86827E-03_JPRB,0.87303E-03_JPRB,0.87540E-03_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.70743E-03_JPRB,0.72381E-03_JPRB,0.73251E-03_JPRB,0.73550E-03_JPRB,0.73931E-03_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.59348E-03_JPRB,0.60572E-03_JPRB,0.61137E-03_JPRB,0.61496E-03_JPRB,0.61761E-03_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.49556E-03_JPRB,0.50488E-03_JPRB,0.50987E-03_JPRB,0.51421E-03_JPRB,0.51581E-03_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.41461E-03_JPRB,0.42145E-03_JPRB,0.42584E-03_JPRB,0.42969E-03_JPRB,0.43055E-03_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.34683E-03_JPRB,0.35181E-03_JPRB,0.35660E-03_JPRB,0.35911E-03_JPRB,0.35958E-03_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.29004E-03_JPRB,0.29383E-03_JPRB,0.29787E-03_JPRB,0.29964E-03_JPRB,0.30042E-03_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.24146E-03_JPRB,0.24561E-03_JPRB,0.24879E-03_JPRB,0.25053E-03_JPRB,0.25134E-03_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.20160E-03_JPRB,0.20537E-03_JPRB,0.20774E-03_JPRB,0.20928E-03_JPRB,0.21023E-03_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.16916E-03_JPRB,0.17226E-03_JPRB,0.17386E-03_JPRB,0.17529E-03_JPRB,0.17634E-03_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.14183E-03_JPRB,0.14414E-03_JPRB,0.14604E-03_JPRB,0.14741E-03_JPRB,0.14844E-03_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.11954E-03_JPRB,0.12161E-03_JPRB,0.12286E-03_JPRB,0.12386E-03_JPRB,0.12448E-03_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.10067E-03_JPRB,0.10205E-03_JPRB,0.10331E-03_JPRB,0.10409E-03_JPRB,0.10476E-03_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.85014E-04_JPRB,0.86248E-04_JPRB,0.87024E-04_JPRB,0.87958E-04_JPRB,0.88579E-04_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.71930E-04_JPRB,0.73074E-04_JPRB,0.73985E-04_JPRB,0.74934E-04_JPRB,0.74848E-04_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.61205E-04_JPRB,0.62259E-04_JPRB,0.63209E-04_JPRB,0.63383E-04_JPRB,0.63466E-04_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.52046E-04_JPRB,0.52896E-04_JPRB,0.53420E-04_JPRB,0.53516E-04_JPRB,0.53755E-04_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.44380E-04_JPRB,0.45121E-04_JPRB,0.45277E-04_JPRB,0.45604E-04_JPRB,0.45761E-04_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.38058E-04_JPRB,0.38409E-04_JPRB,0.38657E-04_JPRB,0.38813E-04_JPRB,0.38628E-04_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.31735E-04_JPRB,0.31990E-04_JPRB,0.32199E-04_JPRB,0.32288E-04_JPRB,0.32179E-04_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.26378E-04_JPRB,0.26667E-04_JPRB,0.26778E-04_JPRB,0.26840E-04_JPRB,0.26760E-04_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.21949E-04_JPRB,0.22195E-04_JPRB,0.22340E-04_JPRB,0.22330E-04_JPRB,0.22281E-04_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.18001E-04_JPRB,0.18209E-04_JPRB,0.18338E-04_JPRB,0.18376E-04_JPRB,0.18309E-04_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.14715E-04_JPRB,0.14906E-04_JPRB,0.15025E-04_JPRB,0.15098E-04_JPRB,0.15026E-04_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.12019E-04_JPRB,0.12197E-04_JPRB,0.12312E-04_JPRB,0.12380E-04_JPRB,0.12346E-04_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.97566E-05_JPRB,0.99318E-05_JPRB,0.10036E-04_JPRB,0.10096E-04_JPRB,0.10118E-04_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.78810E-05_JPRB,0.80716E-05_JPRB,0.81637E-05_JPRB,0.82202E-05_JPRB,0.82608E-05_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.63541E-05_JPRB,0.65171E-05_JPRB,0.66330E-05_JPRB,0.66977E-05_JPRB,0.67239E-05_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.51077E-05_JPRB,0.52428E-05_JPRB,0.53636E-05_JPRB,0.54363E-05_JPRB,0.54693E-05_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.40883E-05_JPRB,0.42196E-05_JPRB,0.43199E-05_JPRB,0.44074E-05_JPRB,0.44462E-05_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.32909E-05_JPRB,0.33941E-05_JPRB,0.34746E-05_JPRB,0.35546E-05_JPRB,0.36089E-05_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.26401E-05_JPRB,0.27269E-05_JPRB,0.28003E-05_JPRB,0.28616E-05_JPRB,0.29188E-05_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.21222E-05_JPRB,0.22032E-05_JPRB,0.22638E-05_JPRB,0.23127E-05_JPRB,0.23603E-05_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.17056E-05_JPRB,0.17838E-05_JPRB,0.18386E-05_JPRB,0.18804E-05_JPRB,0.19134E-05_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.13662E-05_JPRB,0.14333E-05_JPRB,0.14855E-05_JPRB,0.15238E-05_JPRB,0.15521E-05_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.10889E-05_JPRB,0.11445E-05_JPRB,0.11955E-05_JPRB,0.12300E-05_JPRB,0.12560E-05_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.86251E-06_JPRB,0.91556E-06_JPRB,0.95999E-06_JPRB,0.99454E-06_JPRB,0.10171E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,55, 3) = (/ &
+ & 0.68640E-06_JPRB,0.72868E-06_JPRB,0.77389E-06_JPRB,0.80627E-06_JPRB,0.82696E-06_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.54334E-06_JPRB,0.58339E-06_JPRB,0.61953E-06_JPRB,0.65190E-06_JPRB,0.67285E-06_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.43336E-06_JPRB,0.46511E-06_JPRB,0.49561E-06_JPRB,0.52337E-06_JPRB,0.54491E-06_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.34428E-06_JPRB,0.37236E-06_JPRB,0.39687E-06_JPRB,0.42017E-06_JPRB,0.43790E-06_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.27883E-06_JPRB,0.30237E-06_JPRB,0.32096E-06_JPRB,0.33978E-06_JPRB,0.35485E-06_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.52806E-02_JPRB,0.53551E-02_JPRB,0.53836E-02_JPRB,0.53810E-02_JPRB,0.53413E-02_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.43594E-02_JPRB,0.44114E-02_JPRB,0.44268E-02_JPRB,0.44183E-02_JPRB,0.43877E-02_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.36080E-02_JPRB,0.36421E-02_JPRB,0.36603E-02_JPRB,0.36540E-02_JPRB,0.36307E-02_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.30007E-02_JPRB,0.30324E-02_JPRB,0.30479E-02_JPRB,0.30377E-02_JPRB,0.30175E-02_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.25113E-02_JPRB,0.25415E-02_JPRB,0.25489E-02_JPRB,0.25428E-02_JPRB,0.25281E-02_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.21119E-02_JPRB,0.21340E-02_JPRB,0.21396E-02_JPRB,0.21381E-02_JPRB,0.21232E-02_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.17705E-02_JPRB,0.17884E-02_JPRB,0.17942E-02_JPRB,0.17931E-02_JPRB,0.17819E-02_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.14714E-02_JPRB,0.14854E-02_JPRB,0.14921E-02_JPRB,0.14920E-02_JPRB,0.14874E-02_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.12224E-02_JPRB,0.12349E-02_JPRB,0.12432E-02_JPRB,0.12411E-02_JPRB,0.12395E-02_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.10170E-02_JPRB,0.10281E-02_JPRB,0.10319E-02_JPRB,0.10310E-02_JPRB,0.10286E-02_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.84681E-03_JPRB,0.85484E-03_JPRB,0.85517E-03_JPRB,0.85545E-03_JPRB,0.85571E-03_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.70330E-03_JPRB,0.70875E-03_JPRB,0.71078E-03_JPRB,0.71261E-03_JPRB,0.71112E-03_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.58481E-03_JPRB,0.58870E-03_JPRB,0.59157E-03_JPRB,0.59305E-03_JPRB,0.59234E-03_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.48640E-03_JPRB,0.49044E-03_JPRB,0.49395E-03_JPRB,0.49468E-03_JPRB,0.49466E-03_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.40472E-03_JPRB,0.40915E-03_JPRB,0.41235E-03_JPRB,0.41278E-03_JPRB,0.41345E-03_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.33826E-03_JPRB,0.34205E-03_JPRB,0.34364E-03_JPRB,0.34480E-03_JPRB,0.34528E-03_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.28308E-03_JPRB,0.28627E-03_JPRB,0.28792E-03_JPRB,0.28910E-03_JPRB,0.28958E-03_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.23759E-03_JPRB,0.23994E-03_JPRB,0.24196E-03_JPRB,0.24295E-03_JPRB,0.24270E-03_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.19993E-03_JPRB,0.20202E-03_JPRB,0.20390E-03_JPRB,0.20456E-03_JPRB,0.20411E-03_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.16851E-03_JPRB,0.17060E-03_JPRB,0.17151E-03_JPRB,0.17169E-03_JPRB,0.17133E-03_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.14275E-03_JPRB,0.14392E-03_JPRB,0.14445E-03_JPRB,0.14452E-03_JPRB,0.14399E-03_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.12060E-03_JPRB,0.12142E-03_JPRB,0.12181E-03_JPRB,0.12165E-03_JPRB,0.12105E-03_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.10168E-03_JPRB,0.10240E-03_JPRB,0.10276E-03_JPRB,0.10261E-03_JPRB,0.10202E-03_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.85780E-04_JPRB,0.86636E-04_JPRB,0.86815E-04_JPRB,0.86780E-04_JPRB,0.86722E-04_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.71540E-04_JPRB,0.72201E-04_JPRB,0.72422E-04_JPRB,0.72501E-04_JPRB,0.72398E-04_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.59609E-04_JPRB,0.60152E-04_JPRB,0.60443E-04_JPRB,0.60540E-04_JPRB,0.60534E-04_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.49681E-04_JPRB,0.50194E-04_JPRB,0.50481E-04_JPRB,0.50649E-04_JPRB,0.50643E-04_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.40815E-04_JPRB,0.41335E-04_JPRB,0.41565E-04_JPRB,0.41729E-04_JPRB,0.41776E-04_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.33476E-04_JPRB,0.33932E-04_JPRB,0.34171E-04_JPRB,0.34301E-04_JPRB,0.34397E-04_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.27419E-04_JPRB,0.27824E-04_JPRB,0.28083E-04_JPRB,0.28221E-04_JPRB,0.28296E-04_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.22349E-04_JPRB,0.22753E-04_JPRB,0.22975E-04_JPRB,0.23100E-04_JPRB,0.23164E-04_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.18197E-04_JPRB,0.18488E-04_JPRB,0.18747E-04_JPRB,0.18878E-04_JPRB,0.18943E-04_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.14815E-04_JPRB,0.15081E-04_JPRB,0.15284E-04_JPRB,0.15408E-04_JPRB,0.15493E-04_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.12046E-04_JPRB,0.12304E-04_JPRB,0.12476E-04_JPRB,0.12590E-04_JPRB,0.12654E-04_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.97834E-05_JPRB,0.10018E-04_JPRB,0.10187E-04_JPRB,0.10295E-04_JPRB,0.10365E-04_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.79058E-05_JPRB,0.81583E-05_JPRB,0.83158E-05_JPRB,0.84259E-05_JPRB,0.84791E-05_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.63847E-05_JPRB,0.66212E-05_JPRB,0.67735E-05_JPRB,0.68818E-05_JPRB,0.69382E-05_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.51619E-05_JPRB,0.53698E-05_JPRB,0.55239E-05_JPRB,0.56230E-05_JPRB,0.56931E-05_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.41764E-05_JPRB,0.43546E-05_JPRB,0.45018E-05_JPRB,0.45927E-05_JPRB,0.46609E-05_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.33696E-05_JPRB,0.35302E-05_JPRB,0.36585E-05_JPRB,0.37548E-05_JPRB,0.38091E-05_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.27142E-05_JPRB,0.28585E-05_JPRB,0.29700E-05_JPRB,0.30632E-05_JPRB,0.31163E-05_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.21974E-05_JPRB,0.23176E-05_JPRB,0.24169E-05_JPRB,0.24980E-05_JPRB,0.25555E-05_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.17820E-05_JPRB,0.18827E-05_JPRB,0.19647E-05_JPRB,0.20347E-05_JPRB,0.20895E-05_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.14445E-05_JPRB,0.15274E-05_JPRB,0.15999E-05_JPRB,0.16558E-05_JPRB,0.17004E-05_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.11612E-05_JPRB,0.12390E-05_JPRB,0.13020E-05_JPRB,0.13508E-05_JPRB,0.13881E-05_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.93606E-06_JPRB,0.10017E-05_JPRB,0.10598E-05_JPRB,0.11016E-05_JPRB,0.11367E-05_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.76682E-06_JPRB,0.82318E-06_JPRB,0.87281E-06_JPRB,0.91208E-06_JPRB,0.94037E-06_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.12856E-01_JPRB,0.13079E-01_JPRB,0.13167E-01_JPRB,0.13177E-01_JPRB,0.13097E-01_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.10708E-01_JPRB,0.10853E-01_JPRB,0.10911E-01_JPRB,0.10898E-01_JPRB,0.10814E-01_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.88690E-02_JPRB,0.89759E-02_JPRB,0.90116E-02_JPRB,0.89730E-02_JPRB,0.88895E-02_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.73377E-02_JPRB,0.74116E-02_JPRB,0.74224E-02_JPRB,0.73845E-02_JPRB,0.73097E-02_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.61050E-02_JPRB,0.61465E-02_JPRB,0.61522E-02_JPRB,0.61190E-02_JPRB,0.60607E-02_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.51170E-02_JPRB,0.51524E-02_JPRB,0.51567E-02_JPRB,0.51299E-02_JPRB,0.50853E-02_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.42872E-02_JPRB,0.43210E-02_JPRB,0.43249E-02_JPRB,0.43090E-02_JPRB,0.42772E-02_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.35726E-02_JPRB,0.35987E-02_JPRB,0.36030E-02_JPRB,0.35888E-02_JPRB,0.35606E-02_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.29687E-02_JPRB,0.29865E-02_JPRB,0.29887E-02_JPRB,0.29805E-02_JPRB,0.29536E-02_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.24631E-02_JPRB,0.24766E-02_JPRB,0.24818E-02_JPRB,0.24706E-02_JPRB,0.24511E-02_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.20423E-02_JPRB,0.20574E-02_JPRB,0.20622E-02_JPRB,0.20550E-02_JPRB,0.20390E-02_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.17009E-02_JPRB,0.17137E-02_JPRB,0.17151E-02_JPRB,0.17066E-02_JPRB,0.16944E-02_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.14175E-02_JPRB,0.14281E-02_JPRB,0.14264E-02_JPRB,0.14202E-02_JPRB,0.14101E-02_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.11824E-02_JPRB,0.11879E-02_JPRB,0.11852E-02_JPRB,0.11799E-02_JPRB,0.11727E-02_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.98538E-03_JPRB,0.98799E-03_JPRB,0.98648E-03_JPRB,0.98258E-03_JPRB,0.97798E-03_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.82156E-03_JPRB,0.82317E-03_JPRB,0.82299E-03_JPRB,0.82154E-03_JPRB,0.81913E-03_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.68689E-03_JPRB,0.68935E-03_JPRB,0.68992E-03_JPRB,0.69010E-03_JPRB,0.68854E-03_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.57658E-03_JPRB,0.57999E-03_JPRB,0.58178E-03_JPRB,0.58209E-03_JPRB,0.58220E-03_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.48638E-03_JPRB,0.49049E-03_JPRB,0.49261E-03_JPRB,0.49405E-03_JPRB,0.49565E-03_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.41128E-03_JPRB,0.41527E-03_JPRB,0.41847E-03_JPRB,0.42111E-03_JPRB,0.42278E-03_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.34942E-03_JPRB,0.35347E-03_JPRB,0.35669E-03_JPRB,0.35970E-03_JPRB,0.36033E-03_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.29778E-03_JPRB,0.30183E-03_JPRB,0.30543E-03_JPRB,0.30722E-03_JPRB,0.30756E-03_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.25439E-03_JPRB,0.25855E-03_JPRB,0.26145E-03_JPRB,0.26279E-03_JPRB,0.26328E-03_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.21688E-03_JPRB,0.22055E-03_JPRB,0.22366E-03_JPRB,0.22472E-03_JPRB,0.22545E-03_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.18184E-03_JPRB,0.18525E-03_JPRB,0.18789E-03_JPRB,0.18888E-03_JPRB,0.18981E-03_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.15217E-03_JPRB,0.15529E-03_JPRB,0.15752E-03_JPRB,0.15878E-03_JPRB,0.15947E-03_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.12738E-03_JPRB,0.13010E-03_JPRB,0.13202E-03_JPRB,0.13325E-03_JPRB,0.13405E-03_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.10533E-03_JPRB,0.10771E-03_JPRB,0.10944E-03_JPRB,0.11063E-03_JPRB,0.11132E-03_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.86935E-04_JPRB,0.89079E-04_JPRB,0.90576E-04_JPRB,0.91599E-04_JPRB,0.92136E-04_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.71757E-04_JPRB,0.73600E-04_JPRB,0.74913E-04_JPRB,0.75823E-04_JPRB,0.76332E-04_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.58933E-04_JPRB,0.60448E-04_JPRB,0.61689E-04_JPRB,0.62502E-04_JPRB,0.62968E-04_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.48240E-04_JPRB,0.49626E-04_JPRB,0.50671E-04_JPRB,0.51353E-04_JPRB,0.51808E-04_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.39365E-04_JPRB,0.40603E-04_JPRB,0.41556E-04_JPRB,0.42201E-04_JPRB,0.42661E-04_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.32140E-04_JPRB,0.33199E-04_JPRB,0.34102E-04_JPRB,0.34681E-04_JPRB,0.35122E-04_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.26212E-04_JPRB,0.27122E-04_JPRB,0.27914E-04_JPRB,0.28482E-04_JPRB,0.28883E-04_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.21367E-04_JPRB,0.22132E-04_JPRB,0.22808E-04_JPRB,0.23366E-04_JPRB,0.23750E-04_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.17366E-04_JPRB,0.18036E-04_JPRB,0.18610E-04_JPRB,0.19128E-04_JPRB,0.19501E-04_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.14166E-04_JPRB,0.14744E-04_JPRB,0.15227E-04_JPRB,0.15695E-04_JPRB,0.16033E-04_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.11520E-04_JPRB,0.12036E-04_JPRB,0.12466E-04_JPRB,0.12850E-04_JPRB,0.13177E-04_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.93545E-05_JPRB,0.97967E-05_JPRB,0.10185E-04_JPRB,0.10504E-04_JPRB,0.10808E-04_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.75900E-05_JPRB,0.79775E-05_JPRB,0.83066E-05_JPRB,0.85876E-05_JPRB,0.88446E-05_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.61841E-05_JPRB,0.65213E-05_JPRB,0.67983E-05_JPRB,0.70299E-05_JPRB,0.72479E-05_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.50267E-05_JPRB,0.53142E-05_JPRB,0.55644E-05_JPRB,0.57696E-05_JPRB,0.59449E-05_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.40664E-05_JPRB,0.43169E-05_JPRB,0.45344E-05_JPRB,0.47274E-05_JPRB,0.48783E-05_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.32881E-05_JPRB,0.34993E-05_JPRB,0.36900E-05_JPRB,0.38580E-05_JPRB,0.39983E-05_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.26562E-05_JPRB,0.28386E-05_JPRB,0.30033E-05_JPRB,0.31435E-05_JPRB,0.32655E-05_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.21842E-05_JPRB,0.23355E-05_JPRB,0.24742E-05_JPRB,0.25918E-05_JPRB,0.26979E-05_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.31802E-01_JPRB,0.32385E-01_JPRB,0.32761E-01_JPRB,0.32924E-01_JPRB,0.32887E-01_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.27075E-01_JPRB,0.27526E-01_JPRB,0.27777E-01_JPRB,0.27825E-01_JPRB,0.27714E-01_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.22867E-01_JPRB,0.23213E-01_JPRB,0.23346E-01_JPRB,0.23326E-01_JPRB,0.23192E-01_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.19243E-01_JPRB,0.19469E-01_JPRB,0.19534E-01_JPRB,0.19508E-01_JPRB,0.19374E-01_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.16143E-01_JPRB,0.16291E-01_JPRB,0.16340E-01_JPRB,0.16286E-01_JPRB,0.16140E-01_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.13508E-01_JPRB,0.13619E-01_JPRB,0.13632E-01_JPRB,0.13563E-01_JPRB,0.13444E-01_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.11360E-01_JPRB,0.11423E-01_JPRB,0.11418E-01_JPRB,0.11354E-01_JPRB,0.11254E-01_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.95257E-02_JPRB,0.95677E-02_JPRB,0.95569E-02_JPRB,0.94993E-02_JPRB,0.94147E-02_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.79688E-02_JPRB,0.80079E-02_JPRB,0.79930E-02_JPRB,0.79576E-02_JPRB,0.78976E-02_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.66527E-02_JPRB,0.66824E-02_JPRB,0.66717E-02_JPRB,0.66442E-02_JPRB,0.65988E-02_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.55583E-02_JPRB,0.55741E-02_JPRB,0.55685E-02_JPRB,0.55458E-02_JPRB,0.55136E-02_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.46281E-02_JPRB,0.46404E-02_JPRB,0.46354E-02_JPRB,0.46240E-02_JPRB,0.46070E-02_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.38479E-02_JPRB,0.38586E-02_JPRB,0.38647E-02_JPRB,0.38587E-02_JPRB,0.38482E-02_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.31996E-02_JPRB,0.32113E-02_JPRB,0.32185E-02_JPRB,0.32206E-02_JPRB,0.32221E-02_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.26655E-02_JPRB,0.26804E-02_JPRB,0.26909E-02_JPRB,0.27001E-02_JPRB,0.27000E-02_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.22269E-02_JPRB,0.22430E-02_JPRB,0.22546E-02_JPRB,0.22636E-02_JPRB,0.22685E-02_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.18711E-02_JPRB,0.18853E-02_JPRB,0.19010E-02_JPRB,0.19079E-02_JPRB,0.19146E-02_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.15792E-02_JPRB,0.15950E-02_JPRB,0.16049E-02_JPRB,0.16149E-02_JPRB,0.16250E-02_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.13390E-02_JPRB,0.13523E-02_JPRB,0.13631E-02_JPRB,0.13762E-02_JPRB,0.13899E-02_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.11423E-02_JPRB,0.11552E-02_JPRB,0.11689E-02_JPRB,0.11828E-02_JPRB,0.12002E-02_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.97837E-03_JPRB,0.99414E-03_JPRB,0.10078E-02_JPRB,0.10254E-02_JPRB,0.10445E-02_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.84508E-03_JPRB,0.85961E-03_JPRB,0.87553E-03_JPRB,0.89474E-03_JPRB,0.91454E-03_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.73067E-03_JPRB,0.74643E-03_JPRB,0.76522E-03_JPRB,0.78433E-03_JPRB,0.80547E-03_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.63501E-03_JPRB,0.65286E-03_JPRB,0.67124E-03_JPRB,0.69177E-03_JPRB,0.71245E-03_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.54302E-03_JPRB,0.56011E-03_JPRB,0.57838E-03_JPRB,0.59932E-03_JPRB,0.61930E-03_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.46413E-03_JPRB,0.48141E-03_JPRB,0.49888E-03_JPRB,0.51888E-03_JPRB,0.53851E-03_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.39787E-03_JPRB,0.41416E-03_JPRB,0.43137E-03_JPRB,0.45076E-03_JPRB,0.46884E-03_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.33542E-03_JPRB,0.35026E-03_JPRB,0.36640E-03_JPRB,0.38421E-03_JPRB,0.40074E-03_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.28198E-03_JPRB,0.29533E-03_JPRB,0.31033E-03_JPRB,0.32658E-03_JPRB,0.34246E-03_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.23644E-03_JPRB,0.24877E-03_JPRB,0.26248E-03_JPRB,0.27695E-03_JPRB,0.29184E-03_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.19698E-03_JPRB,0.20826E-03_JPRB,0.22042E-03_JPRB,0.23357E-03_JPRB,0.24697E-03_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.16338E-03_JPRB,0.17334E-03_JPRB,0.18409E-03_JPRB,0.19557E-03_JPRB,0.20792E-03_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.13558E-03_JPRB,0.14397E-03_JPRB,0.15333E-03_JPRB,0.16359E-03_JPRB,0.17463E-03_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.11191E-03_JPRB,0.11919E-03_JPRB,0.12729E-03_JPRB,0.13624E-03_JPRB,0.14629E-03_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.91906E-04_JPRB,0.98189E-04_JPRB,0.10520E-03_JPRB,0.11302E-03_JPRB,0.12177E-03_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.75087E-04_JPRB,0.80743E-04_JPRB,0.86708E-04_JPRB,0.93427E-04_JPRB,0.10110E-03_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.61186E-04_JPRB,0.66125E-04_JPRB,0.71313E-04_JPRB,0.77107E-04_JPRB,0.83777E-04_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.49938E-04_JPRB,0.54303E-04_JPRB,0.58807E-04_JPRB,0.63705E-04_JPRB,0.69474E-04_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.40809E-04_JPRB,0.44513E-04_JPRB,0.48369E-04_JPRB,0.52594E-04_JPRB,0.57525E-04_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.33309E-04_JPRB,0.36401E-04_JPRB,0.39694E-04_JPRB,0.43295E-04_JPRB,0.47517E-04_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.27001E-04_JPRB,0.29637E-04_JPRB,0.32443E-04_JPRB,0.35515E-04_JPRB,0.39073E-04_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.21920E-04_JPRB,0.24176E-04_JPRB,0.26587E-04_JPRB,0.29204E-04_JPRB,0.32173E-04_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.17840E-04_JPRB,0.19707E-04_JPRB,0.21784E-04_JPRB,0.24000E-04_JPRB,0.26498E-04_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.14500E-04_JPRB,0.16042E-04_JPRB,0.17779E-04_JPRB,0.19655E-04_JPRB,0.21743E-04_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.11756E-04_JPRB,0.13018E-04_JPRB,0.14458E-04_JPRB,0.16053E-04_JPRB,0.17779E-04_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.95229E-05_JPRB,0.10574E-04_JPRB,0.11760E-04_JPRB,0.13107E-04_JPRB,0.14585E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,59, 6) = (/ &
+ & 0.78970E-05_JPRB,0.87821E-05_JPRB,0.97860E-05_JPRB,0.10919E-04_JPRB,0.12187E-04_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.81347E-01_JPRB,0.83688E-01_JPRB,0.85307E-01_JPRB,0.86283E-01_JPRB,0.87010E-01_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.72041E-01_JPRB,0.73994E-01_JPRB,0.75287E-01_JPRB,0.76180E-01_JPRB,0.76714E-01_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.63278E-01_JPRB,0.64818E-01_JPRB,0.65954E-01_JPRB,0.66651E-01_JPRB,0.67143E-01_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.55139E-01_JPRB,0.56478E-01_JPRB,0.57384E-01_JPRB,0.58076E-01_JPRB,0.58539E-01_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.47894E-01_JPRB,0.48966E-01_JPRB,0.49829E-01_JPRB,0.50447E-01_JPRB,0.50916E-01_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.41499E-01_JPRB,0.42507E-01_JPRB,0.43240E-01_JPRB,0.43755E-01_JPRB,0.44135E-01_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.35885E-01_JPRB,0.36754E-01_JPRB,0.37403E-01_JPRB,0.37954E-01_JPRB,0.38313E-01_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.30699E-01_JPRB,0.31463E-01_JPRB,0.32108E-01_JPRB,0.32586E-01_JPRB,0.32972E-01_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.26192E-01_JPRB,0.26846E-01_JPRB,0.27409E-01_JPRB,0.27839E-01_JPRB,0.28217E-01_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.22340E-01_JPRB,0.22929E-01_JPRB,0.23404E-01_JPRB,0.23811E-01_JPRB,0.24187E-01_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.19095E-01_JPRB,0.19575E-01_JPRB,0.20007E-01_JPRB,0.20410E-01_JPRB,0.20766E-01_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.16366E-01_JPRB,0.16771E-01_JPRB,0.17186E-01_JPRB,0.17542E-01_JPRB,0.17949E-01_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.14069E-01_JPRB,0.14481E-01_JPRB,0.14832E-01_JPRB,0.15200E-01_JPRB,0.15580E-01_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.12162E-01_JPRB,0.12539E-01_JPRB,0.12888E-01_JPRB,0.13247E-01_JPRB,0.13615E-01_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.10528E-01_JPRB,0.10892E-01_JPRB,0.11265E-01_JPRB,0.11631E-01_JPRB,0.12012E-01_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.91441E-02_JPRB,0.95086E-02_JPRB,0.98896E-02_JPRB,0.10282E-01_JPRB,0.10687E-01_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.79938E-02_JPRB,0.83641E-02_JPRB,0.87511E-02_JPRB,0.91674E-02_JPRB,0.96121E-02_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.70400E-02_JPRB,0.74172E-02_JPRB,0.78125E-02_JPRB,0.82611E-02_JPRB,0.87532E-02_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.62612E-02_JPRB,0.66491E-02_JPRB,0.70836E-02_JPRB,0.75546E-02_JPRB,0.80730E-02_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.56090E-02_JPRB,0.60373E-02_JPRB,0.65021E-02_JPRB,0.70140E-02_JPRB,0.75729E-02_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.51011E-02_JPRB,0.55473E-02_JPRB,0.60429E-02_JPRB,0.66026E-02_JPRB,0.72780E-02_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.46990E-02_JPRB,0.51673E-02_JPRB,0.57072E-02_JPRB,0.63464E-02_JPRB,0.71159E-02_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.43314E-02_JPRB,0.48384E-02_JPRB,0.54243E-02_JPRB,0.61639E-02_JPRB,0.69924E-02_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.39886E-02_JPRB,0.45262E-02_JPRB,0.51941E-02_JPRB,0.59985E-02_JPRB,0.68708E-02_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.36017E-02_JPRB,0.41399E-02_JPRB,0.48219E-02_JPRB,0.56481E-02_JPRB,0.65560E-02_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.32617E-02_JPRB,0.38037E-02_JPRB,0.45057E-02_JPRB,0.53485E-02_JPRB,0.62708E-02_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.29777E-02_JPRB,0.35364E-02_JPRB,0.42387E-02_JPRB,0.50890E-02_JPRB,0.60544E-02_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.26397E-02_JPRB,0.31715E-02_JPRB,0.38573E-02_JPRB,0.46880E-02_JPRB,0.56335E-02_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.23227E-02_JPRB,0.28385E-02_JPRB,0.34927E-02_JPRB,0.42880E-02_JPRB,0.52154E-02_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.20486E-02_JPRB,0.25378E-02_JPRB,0.31647E-02_JPRB,0.39312E-02_JPRB,0.48261E-02_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.17755E-02_JPRB,0.22226E-02_JPRB,0.28140E-02_JPRB,0.35274E-02_JPRB,0.43895E-02_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.15269E-02_JPRB,0.19274E-02_JPRB,0.24688E-02_JPRB,0.31407E-02_JPRB,0.39517E-02_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.13050E-02_JPRB,0.16697E-02_JPRB,0.21647E-02_JPRB,0.27916E-02_JPRB,0.35423E-02_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.11057E-02_JPRB,0.14327E-02_JPRB,0.18777E-02_JPRB,0.24513E-02_JPRB,0.31448E-02_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.92448E-03_JPRB,0.12134E-02_JPRB,0.16064E-02_JPRB,0.21237E-02_JPRB,0.27575E-02_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.76618E-03_JPRB,0.10179E-02_JPRB,0.13627E-02_JPRB,0.18254E-02_JPRB,0.24067E-02_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.62940E-03_JPRB,0.85036E-03_JPRB,0.11489E-02_JPRB,0.15623E-02_JPRB,0.20896E-02_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.51855E-03_JPRB,0.71067E-03_JPRB,0.97602E-03_JPRB,0.13414E-02_JPRB,0.18179E-02_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.42590E-03_JPRB,0.59305E-03_JPRB,0.82548E-03_JPRB,0.11486E-02_JPRB,0.15798E-02_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.34697E-03_JPRB,0.49059E-03_JPRB,0.69535E-03_JPRB,0.97532E-03_JPRB,0.13630E-02_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.28092E-03_JPRB,0.40191E-03_JPRB,0.57931E-03_JPRB,0.82673E-03_JPRB,0.11685E-02_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.22883E-03_JPRB,0.33102E-03_JPRB,0.48584E-03_JPRB,0.70577E-03_JPRB,0.10069E-02_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.18567E-03_JPRB,0.27212E-03_JPRB,0.40629E-03_JPRB,0.59966E-03_JPRB,0.86643E-03_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.14981E-03_JPRB,0.22158E-03_JPRB,0.33702E-03_JPRB,0.50672E-03_JPRB,0.74022E-03_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.11956E-03_JPRB,0.17899E-03_JPRB,0.27717E-03_JPRB,0.42406E-03_JPRB,0.63003E-03_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.95581E-04_JPRB,0.14413E-03_JPRB,0.22637E-03_JPRB,0.35457E-03_JPRB,0.53700E-03_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.81967E-04_JPRB,0.12578E-03_JPRB,0.20146E-03_JPRB,0.32061E-03_JPRB,0.49099E-03_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.22107E+00_JPRB,0.22673E+00_JPRB,0.23188E+00_JPRB,0.23626E+00_JPRB,0.23937E+00_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.20348E+00_JPRB,0.20983E+00_JPRB,0.21521E+00_JPRB,0.21960E+00_JPRB,0.22328E+00_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.18724E+00_JPRB,0.19358E+00_JPRB,0.19903E+00_JPRB,0.20382E+00_JPRB,0.20780E+00_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.17271E+00_JPRB,0.17902E+00_JPRB,0.18466E+00_JPRB,0.18949E+00_JPRB,0.19358E+00_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.15881E+00_JPRB,0.16550E+00_JPRB,0.17139E+00_JPRB,0.17656E+00_JPRB,0.18127E+00_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.14632E+00_JPRB,0.15311E+00_JPRB,0.15937E+00_JPRB,0.16532E+00_JPRB,0.17049E+00_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.13481E+00_JPRB,0.14215E+00_JPRB,0.14899E+00_JPRB,0.15502E+00_JPRB,0.16068E+00_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.12437E+00_JPRB,0.13191E+00_JPRB,0.13890E+00_JPRB,0.14560E+00_JPRB,0.15188E+00_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.11481E+00_JPRB,0.12252E+00_JPRB,0.12982E+00_JPRB,0.13710E+00_JPRB,0.14374E+00_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.10661E+00_JPRB,0.11453E+00_JPRB,0.12244E+00_JPRB,0.12996E+00_JPRB,0.13720E+00_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.99573E-01_JPRB,0.10782E+00_JPRB,0.11598E+00_JPRB,0.12384E+00_JPRB,0.13154E+00_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.93585E-01_JPRB,0.10212E+00_JPRB,0.11044E+00_JPRB,0.11870E+00_JPRB,0.12683E+00_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.88642E-01_JPRB,0.97342E-01_JPRB,0.10600E+00_JPRB,0.11474E+00_JPRB,0.12338E+00_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.84783E-01_JPRB,0.93706E-01_JPRB,0.10275E+00_JPRB,0.11190E+00_JPRB,0.12089E+00_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.81924E-01_JPRB,0.91085E-01_JPRB,0.10043E+00_JPRB,0.11011E+00_JPRB,0.11942E+00_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.79898E-01_JPRB,0.89495E-01_JPRB,0.99246E-01_JPRB,0.10903E+00_JPRB,0.11866E+00_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.78843E-01_JPRB,0.88816E-01_JPRB,0.99112E-01_JPRB,0.10908E+00_JPRB,0.11873E+00_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.78672E-01_JPRB,0.89175E-01_JPRB,0.99763E-01_JPRB,0.10991E+00_JPRB,0.11974E+00_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.79471E-01_JPRB,0.90393E-01_JPRB,0.10090E+00_JPRB,0.11134E+00_JPRB,0.12148E+00_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.81097E-01_JPRB,0.92118E-01_JPRB,0.10299E+00_JPRB,0.11352E+00_JPRB,0.12362E+00_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.83219E-01_JPRB,0.94430E-01_JPRB,0.10536E+00_JPRB,0.11619E+00_JPRB,0.12656E+00_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.85363E-01_JPRB,0.96707E-01_JPRB,0.10798E+00_JPRB,0.11904E+00_JPRB,0.12986E+00_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.86741E-01_JPRB,0.98297E-01_JPRB,0.11004E+00_JPRB,0.12158E+00_JPRB,0.13234E+00_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.87017E-01_JPRB,0.99113E-01_JPRB,0.11121E+00_JPRB,0.12302E+00_JPRB,0.13390E+00_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.85258E-01_JPRB,0.97671E-01_JPRB,0.10985E+00_JPRB,0.12188E+00_JPRB,0.13289E+00_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.83622E-01_JPRB,0.96133E-01_JPRB,0.10847E+00_JPRB,0.12060E+00_JPRB,0.13189E+00_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.82148E-01_JPRB,0.94689E-01_JPRB,0.10723E+00_JPRB,0.11944E+00_JPRB,0.13102E+00_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.78933E-01_JPRB,0.91494E-01_JPRB,0.10410E+00_JPRB,0.11650E+00_JPRB,0.12816E+00_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.75553E-01_JPRB,0.88087E-01_JPRB,0.10066E+00_JPRB,0.11319E+00_JPRB,0.12513E+00_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.72215E-01_JPRB,0.84600E-01_JPRB,0.97314E-01_JPRB,0.10990E+00_JPRB,0.12202E+00_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.68050E-01_JPRB,0.80392E-01_JPRB,0.93038E-01_JPRB,0.10568E+00_JPRB,0.11811E+00_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.63504E-01_JPRB,0.75885E-01_JPRB,0.88427E-01_JPRB,0.10109E+00_JPRB,0.11352E+00_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.59117E-01_JPRB,0.71359E-01_JPRB,0.83835E-01_JPRB,0.96461E-01_JPRB,0.10897E+00_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.54516E-01_JPRB,0.66547E-01_JPRB,0.79117E-01_JPRB,0.91745E-01_JPRB,0.10426E+00_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.49520E-01_JPRB,0.61408E-01_JPRB,0.73788E-01_JPRB,0.86383E-01_JPRB,0.98886E-01_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.44727E-01_JPRB,0.56224E-01_JPRB,0.68415E-01_JPRB,0.81094E-01_JPRB,0.93621E-01_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.40177E-01_JPRB,0.51146E-01_JPRB,0.63191E-01_JPRB,0.75749E-01_JPRB,0.88249E-01_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.36081E-01_JPRB,0.46596E-01_JPRB,0.58341E-01_JPRB,0.70769E-01_JPRB,0.83353E-01_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.32278E-01_JPRB,0.42393E-01_JPRB,0.53717E-01_JPRB,0.65898E-01_JPRB,0.78578E-01_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.28586E-01_JPRB,0.38352E-01_JPRB,0.49175E-01_JPRB,0.61145E-01_JPRB,0.73682E-01_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.25090E-01_JPRB,0.34439E-01_JPRB,0.44807E-01_JPRB,0.56352E-01_JPRB,0.68823E-01_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.22080E-01_JPRB,0.30938E-01_JPRB,0.40952E-01_JPRB,0.52101E-01_JPRB,0.64364E-01_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.19382E-01_JPRB,0.27719E-01_JPRB,0.37405E-01_JPRB,0.48197E-01_JPRB,0.60044E-01_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.16835E-01_JPRB,0.24689E-01_JPRB,0.33908E-01_JPRB,0.44390E-01_JPRB,0.55911E-01_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.14459E-01_JPRB,0.21799E-01_JPRB,0.30531E-01_JPRB,0.40642E-01_JPRB,0.51808E-01_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.12380E-01_JPRB,0.19213E-01_JPRB,0.27475E-01_JPRB,0.37204E-01_JPRB,0.48065E-01_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.11536E-01_JPRB,0.18115E-01_JPRB,0.26160E-01_JPRB,0.35756E-01_JPRB,0.46501E-01_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.79231E+00_JPRB,0.80247E+00_JPRB,0.81169E+00_JPRB,0.81859E+00_JPRB,0.82469E+00_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.76567E+00_JPRB,0.77861E+00_JPRB,0.78976E+00_JPRB,0.79966E+00_JPRB,0.80754E+00_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.73926E+00_JPRB,0.75515E+00_JPRB,0.76982E+00_JPRB,0.78244E+00_JPRB,0.79228E+00_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.71308E+00_JPRB,0.73273E+00_JPRB,0.74955E+00_JPRB,0.76355E+00_JPRB,0.77553E+00_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.68845E+00_JPRB,0.70973E+00_JPRB,0.72813E+00_JPRB,0.74466E+00_JPRB,0.75909E+00_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.66397E+00_JPRB,0.68720E+00_JPRB,0.70872E+00_JPRB,0.72756E+00_JPRB,0.74467E+00_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.64097E+00_JPRB,0.66723E+00_JPRB,0.69155E+00_JPRB,0.71362E+00_JPRB,0.73339E+00_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.62162E+00_JPRB,0.65070E+00_JPRB,0.67764E+00_JPRB,0.70183E+00_JPRB,0.72348E+00_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.60571E+00_JPRB,0.63800E+00_JPRB,0.66649E+00_JPRB,0.69291E+00_JPRB,0.71712E+00_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.59651E+00_JPRB,0.62972E+00_JPRB,0.66058E+00_JPRB,0.68832E+00_JPRB,0.71517E+00_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.58974E+00_JPRB,0.62545E+00_JPRB,0.65753E+00_JPRB,0.68785E+00_JPRB,0.71519E+00_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.58721E+00_JPRB,0.62395E+00_JPRB,0.65801E+00_JPRB,0.68952E+00_JPRB,0.71705E+00_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.58931E+00_JPRB,0.62554E+00_JPRB,0.66080E+00_JPRB,0.69275E+00_JPRB,0.72212E+00_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.59392E+00_JPRB,0.63108E+00_JPRB,0.66576E+00_JPRB,0.69831E+00_JPRB,0.72831E+00_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.60088E+00_JPRB,0.63911E+00_JPRB,0.67310E+00_JPRB,0.70594E+00_JPRB,0.73492E+00_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.61058E+00_JPRB,0.64827E+00_JPRB,0.68351E+00_JPRB,0.71436E+00_JPRB,0.74248E+00_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.62259E+00_JPRB,0.66086E+00_JPRB,0.69462E+00_JPRB,0.72450E+00_JPRB,0.75205E+00_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.63547E+00_JPRB,0.67373E+00_JPRB,0.70715E+00_JPRB,0.73642E+00_JPRB,0.76277E+00_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.65060E+00_JPRB,0.68811E+00_JPRB,0.72216E+00_JPRB,0.75104E+00_JPRB,0.77730E+00_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.66635E+00_JPRB,0.70367E+00_JPRB,0.73703E+00_JPRB,0.76712E+00_JPRB,0.79450E+00_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.68330E+00_JPRB,0.72114E+00_JPRB,0.75529E+00_JPRB,0.78560E+00_JPRB,0.81251E+00_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.69895E+00_JPRB,0.73787E+00_JPRB,0.77209E+00_JPRB,0.80355E+00_JPRB,0.82948E+00_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.71249E+00_JPRB,0.75244E+00_JPRB,0.78786E+00_JPRB,0.82021E+00_JPRB,0.84807E+00_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.72352E+00_JPRB,0.76491E+00_JPRB,0.80192E+00_JPRB,0.83419E+00_JPRB,0.86330E+00_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.72315E+00_JPRB,0.76487E+00_JPRB,0.80310E+00_JPRB,0.83637E+00_JPRB,0.86732E+00_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.72144E+00_JPRB,0.76571E+00_JPRB,0.80444E+00_JPRB,0.83852E+00_JPRB,0.86991E+00_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.72061E+00_JPRB,0.76655E+00_JPRB,0.80661E+00_JPRB,0.84238E+00_JPRB,0.87357E+00_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.71071E+00_JPRB,0.75799E+00_JPRB,0.79882E+00_JPRB,0.83566E+00_JPRB,0.86813E+00_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.69960E+00_JPRB,0.74652E+00_JPRB,0.79034E+00_JPRB,0.82858E+00_JPRB,0.86201E+00_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.68767E+00_JPRB,0.73584E+00_JPRB,0.78080E+00_JPRB,0.82018E+00_JPRB,0.85505E+00_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.67181E+00_JPRB,0.72136E+00_JPRB,0.76709E+00_JPRB,0.80803E+00_JPRB,0.84449E+00_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.65485E+00_JPRB,0.70505E+00_JPRB,0.75190E+00_JPRB,0.79482E+00_JPRB,0.83260E+00_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.63639E+00_JPRB,0.68756E+00_JPRB,0.73541E+00_JPRB,0.78029E+00_JPRB,0.82060E+00_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.61610E+00_JPRB,0.67008E+00_JPRB,0.71893E+00_JPRB,0.76424E+00_JPRB,0.80647E+00_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.59373E+00_JPRB,0.64972E+00_JPRB,0.69969E+00_JPRB,0.74707E+00_JPRB,0.79068E+00_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.56865E+00_JPRB,0.62791E+00_JPRB,0.68069E+00_JPRB,0.72878E+00_JPRB,0.77390E+00_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.54350E+00_JPRB,0.60516E+00_JPRB,0.66027E+00_JPRB,0.71007E+00_JPRB,0.75592E+00_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.51991E+00_JPRB,0.58375E+00_JPRB,0.64136E+00_JPRB,0.69342E+00_JPRB,0.74093E+00_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.49673E+00_JPRB,0.56229E+00_JPRB,0.62200E+00_JPRB,0.67685E+00_JPRB,0.72556E+00_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.47256E+00_JPRB,0.53950E+00_JPRB,0.60133E+00_JPRB,0.65838E+00_JPRB,0.70926E+00_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.44771E+00_JPRB,0.51552E+00_JPRB,0.57980E+00_JPRB,0.63854E+00_JPRB,0.69202E+00_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.42506E+00_JPRB,0.49358E+00_JPRB,0.56009E+00_JPRB,0.62090E+00_JPRB,0.67547E+00_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.40218E+00_JPRB,0.47240E+00_JPRB,0.53999E+00_JPRB,0.60216E+00_JPRB,0.65925E+00_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.37888E+00_JPRB,0.45101E+00_JPRB,0.51913E+00_JPRB,0.58357E+00_JPRB,0.64216E+00_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.35513E+00_JPRB,0.42824E+00_JPRB,0.49765E+00_JPRB,0.56376E+00_JPRB,0.62409E+00_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.33174E+00_JPRB,0.40632E+00_JPRB,0.47713E+00_JPRB,0.54453E+00_JPRB,0.60605E+00_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.32315E+00_JPRB,0.39758E+00_JPRB,0.46935E+00_JPRB,0.53732E+00_JPRB,0.59942E+00_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.20814E+01_JPRB,0.20759E+01_JPRB,0.20660E+01_JPRB,0.20703E+01_JPRB,0.20598E+01_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.20861E+01_JPRB,0.20862E+01_JPRB,0.20902E+01_JPRB,0.20921E+01_JPRB,0.20850E+01_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.20793E+01_JPRB,0.20969E+01_JPRB,0.21057E+01_JPRB,0.21014E+01_JPRB,0.21089E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,16,10) = (/ &
+ & 0.20801E+01_JPRB,0.20948E+01_JPRB,0.21151E+01_JPRB,0.21351E+01_JPRB,0.21560E+01_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.20802E+01_JPRB,0.21249E+01_JPRB,0.21608E+01_JPRB,0.21842E+01_JPRB,0.21924E+01_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.20972E+01_JPRB,0.21483E+01_JPRB,0.21814E+01_JPRB,0.21999E+01_JPRB,0.22088E+01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.21086E+01_JPRB,0.21513E+01_JPRB,0.21845E+01_JPRB,0.22099E+01_JPRB,0.22261E+01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.21001E+01_JPRB,0.21488E+01_JPRB,0.21917E+01_JPRB,0.22212E+01_JPRB,0.22394E+01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.20945E+01_JPRB,0.21494E+01_JPRB,0.22004E+01_JPRB,0.22330E+01_JPRB,0.22537E+01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.20951E+01_JPRB,0.21635E+01_JPRB,0.22151E+01_JPRB,0.22483E+01_JPRB,0.22658E+01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.21106E+01_JPRB,0.21802E+01_JPRB,0.22288E+01_JPRB,0.22593E+01_JPRB,0.22769E+01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.21251E+01_JPRB,0.21978E+01_JPRB,0.22479E+01_JPRB,0.22750E+01_JPRB,0.23069E+01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.21350E+01_JPRB,0.22127E+01_JPRB,0.22620E+01_JPRB,0.22919E+01_JPRB,0.23205E+01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.21397E+01_JPRB,0.22248E+01_JPRB,0.22778E+01_JPRB,0.23148E+01_JPRB,0.23338E+01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.21476E+01_JPRB,0.22244E+01_JPRB,0.22911E+01_JPRB,0.23271E+01_JPRB,0.23529E+01_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.21502E+01_JPRB,0.22263E+01_JPRB,0.22854E+01_JPRB,0.23382E+01_JPRB,0.23803E+01_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.21444E+01_JPRB,0.22159E+01_JPRB,0.22839E+01_JPRB,0.23447E+01_JPRB,0.24026E+01_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.21459E+01_JPRB,0.22135E+01_JPRB,0.22803E+01_JPRB,0.23564E+01_JPRB,0.24114E+01_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.21548E+01_JPRB,0.22131E+01_JPRB,0.22785E+01_JPRB,0.23559E+01_JPRB,0.23993E+01_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.21820E+01_JPRB,0.22366E+01_JPRB,0.23010E+01_JPRB,0.23445E+01_JPRB,0.23808E+01_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.22356E+01_JPRB,0.22739E+01_JPRB,0.22923E+01_JPRB,0.23386E+01_JPRB,0.23842E+01_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.22861E+01_JPRB,0.23162E+01_JPRB,0.23352E+01_JPRB,0.23408E+01_JPRB,0.23839E+01_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.23385E+01_JPRB,0.23680E+01_JPRB,0.23728E+01_JPRB,0.23741E+01_JPRB,0.23938E+01_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.23851E+01_JPRB,0.24072E+01_JPRB,0.24258E+01_JPRB,0.24337E+01_JPRB,0.24446E+01_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.23954E+01_JPRB,0.24271E+01_JPRB,0.24525E+01_JPRB,0.24638E+01_JPRB,0.24744E+01_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.24138E+01_JPRB,0.24360E+01_JPRB,0.24658E+01_JPRB,0.24931E+01_JPRB,0.25112E+01_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.24207E+01_JPRB,0.24415E+01_JPRB,0.24747E+01_JPRB,0.25054E+01_JPRB,0.25446E+01_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.24183E+01_JPRB,0.24401E+01_JPRB,0.24836E+01_JPRB,0.25135E+01_JPRB,0.25532E+01_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.24046E+01_JPRB,0.24486E+01_JPRB,0.24788E+01_JPRB,0.25037E+01_JPRB,0.25503E+01_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.23965E+01_JPRB,0.24448E+01_JPRB,0.24659E+01_JPRB,0.25035E+01_JPRB,0.25440E+01_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.23757E+01_JPRB,0.24456E+01_JPRB,0.24672E+01_JPRB,0.25043E+01_JPRB,0.25340E+01_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.23417E+01_JPRB,0.24271E+01_JPRB,0.24708E+01_JPRB,0.24891E+01_JPRB,0.25157E+01_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.23140E+01_JPRB,0.24224E+01_JPRB,0.24648E+01_JPRB,0.24895E+01_JPRB,0.25109E+01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.22839E+01_JPRB,0.23815E+01_JPRB,0.24548E+01_JPRB,0.24874E+01_JPRB,0.24983E+01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.22509E+01_JPRB,0.23585E+01_JPRB,0.24548E+01_JPRB,0.24976E+01_JPRB,0.25158E+01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.22243E+01_JPRB,0.23182E+01_JPRB,0.24167E+01_JPRB,0.24851E+01_JPRB,0.25144E+01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.21934E+01_JPRB,0.22838E+01_JPRB,0.23882E+01_JPRB,0.24694E+01_JPRB,0.25145E+01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.21637E+01_JPRB,0.22591E+01_JPRB,0.23593E+01_JPRB,0.24450E+01_JPRB,0.25097E+01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.21256E+01_JPRB,0.22383E+01_JPRB,0.23340E+01_JPRB,0.24239E+01_JPRB,0.25025E+01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.20804E+01_JPRB,0.22090E+01_JPRB,0.23144E+01_JPRB,0.24005E+01_JPRB,0.24803E+01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.20229E+01_JPRB,0.21712E+01_JPRB,0.22790E+01_JPRB,0.23709E+01_JPRB,0.24497E+01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.19647E+01_JPRB,0.21430E+01_JPRB,0.22514E+01_JPRB,0.23430E+01_JPRB,0.24343E+01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.19094E+01_JPRB,0.20990E+01_JPRB,0.22287E+01_JPRB,0.23283E+01_JPRB,0.24126E+01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.18499E+01_JPRB,0.20432E+01_JPRB,0.21961E+01_JPRB,0.22965E+01_JPRB,0.23921E+01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.17845E+01_JPRB,0.19868E+01_JPRB,0.21557E+01_JPRB,0.22661E+01_JPRB,0.23666E+01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.17304E+01_JPRB,0.19324E+01_JPRB,0.21130E+01_JPRB,0.22379E+01_JPRB,0.23344E+01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.17036E+01_JPRB,0.19129E+01_JPRB,0.20925E+01_JPRB,0.22299E+01_JPRB,0.23291E+01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.28487E+01_JPRB,0.28532E+01_JPRB,0.28392E+01_JPRB,0.28113E+01_JPRB,0.28077E+01_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.29217E+01_JPRB,0.29135E+01_JPRB,0.28970E+01_JPRB,0.28895E+01_JPRB,0.29104E+01_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.29720E+01_JPRB,0.29567E+01_JPRB,0.29515E+01_JPRB,0.29771E+01_JPRB,0.29749E+01_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.29934E+01_JPRB,0.30029E+01_JPRB,0.30226E+01_JPRB,0.30339E+01_JPRB,0.30204E+01_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.30408E+01_JPRB,0.30652E+01_JPRB,0.30797E+01_JPRB,0.30959E+01_JPRB,0.31120E+01_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.31059E+01_JPRB,0.31457E+01_JPRB,0.31893E+01_JPRB,0.32154E+01_JPRB,0.32284E+01_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.31895E+01_JPRB,0.32505E+01_JPRB,0.32863E+01_JPRB,0.32994E+01_JPRB,0.32949E+01_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.32605E+01_JPRB,0.33203E+01_JPRB,0.33389E+01_JPRB,0.33469E+01_JPRB,0.33350E+01_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.33097E+01_JPRB,0.33567E+01_JPRB,0.33762E+01_JPRB,0.33842E+01_JPRB,0.33798E+01_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.33482E+01_JPRB,0.33901E+01_JPRB,0.34068E+01_JPRB,0.34227E+01_JPRB,0.34010E+01_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.33722E+01_JPRB,0.34154E+01_JPRB,0.34438E+01_JPRB,0.34434E+01_JPRB,0.34235E+01_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.33951E+01_JPRB,0.34377E+01_JPRB,0.34659E+01_JPRB,0.34658E+01_JPRB,0.34557E+01_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.34209E+01_JPRB,0.34720E+01_JPRB,0.34904E+01_JPRB,0.34950E+01_JPRB,0.34725E+01_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.34497E+01_JPRB,0.34967E+01_JPRB,0.35233E+01_JPRB,0.35072E+01_JPRB,0.34967E+01_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.34791E+01_JPRB,0.35327E+01_JPRB,0.35370E+01_JPRB,0.35122E+01_JPRB,0.35139E+01_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.35134E+01_JPRB,0.35471E+01_JPRB,0.35465E+01_JPRB,0.35405E+01_JPRB,0.35525E+01_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.35424E+01_JPRB,0.35704E+01_JPRB,0.35632E+01_JPRB,0.35824E+01_JPRB,0.35567E+01_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.35629E+01_JPRB,0.35947E+01_JPRB,0.35992E+01_JPRB,0.36011E+01_JPRB,0.36027E+01_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.35753E+01_JPRB,0.36045E+01_JPRB,0.36365E+01_JPRB,0.36213E+01_JPRB,0.36310E+01_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.35596E+01_JPRB,0.36100E+01_JPRB,0.36333E+01_JPRB,0.36490E+01_JPRB,0.36651E+01_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.35241E+01_JPRB,0.35883E+01_JPRB,0.36383E+01_JPRB,0.36740E+01_JPRB,0.36685E+01_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.35027E+01_JPRB,0.35491E+01_JPRB,0.36249E+01_JPRB,0.36739E+01_JPRB,0.36810E+01_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.34699E+01_JPRB,0.35289E+01_JPRB,0.35926E+01_JPRB,0.36193E+01_JPRB,0.36411E+01_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.35153E+01_JPRB,0.35225E+01_JPRB,0.35498E+01_JPRB,0.35989E+01_JPRB,0.36429E+01_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.35644E+01_JPRB,0.35488E+01_JPRB,0.35358E+01_JPRB,0.35755E+01_JPRB,0.36247E+01_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.35952E+01_JPRB,0.35902E+01_JPRB,0.35685E+01_JPRB,0.35598E+01_JPRB,0.35995E+01_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.36371E+01_JPRB,0.36388E+01_JPRB,0.36159E+01_JPRB,0.35751E+01_JPRB,0.35930E+01_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.36530E+01_JPRB,0.36611E+01_JPRB,0.36495E+01_JPRB,0.35923E+01_JPRB,0.35985E+01_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.36431E+01_JPRB,0.36852E+01_JPRB,0.36606E+01_JPRB,0.36324E+01_JPRB,0.35949E+01_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.36510E+01_JPRB,0.36940E+01_JPRB,0.36905E+01_JPRB,0.36729E+01_JPRB,0.36122E+01_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.36633E+01_JPRB,0.36955E+01_JPRB,0.37103E+01_JPRB,0.36924E+01_JPRB,0.36526E+01_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.36584E+01_JPRB,0.36852E+01_JPRB,0.37131E+01_JPRB,0.37219E+01_JPRB,0.36946E+01_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.36636E+01_JPRB,0.36530E+01_JPRB,0.37160E+01_JPRB,0.37197E+01_JPRB,0.37150E+01_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.36713E+01_JPRB,0.36779E+01_JPRB,0.37130E+01_JPRB,0.37408E+01_JPRB,0.37431E+01_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.36885E+01_JPRB,0.36889E+01_JPRB,0.37012E+01_JPRB,0.37377E+01_JPRB,0.37538E+01_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.36735E+01_JPRB,0.37253E+01_JPRB,0.37092E+01_JPRB,0.37311E+01_JPRB,0.37444E+01_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.36543E+01_JPRB,0.37300E+01_JPRB,0.37306E+01_JPRB,0.37311E+01_JPRB,0.37688E+01_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.36397E+01_JPRB,0.37435E+01_JPRB,0.37659E+01_JPRB,0.37491E+01_JPRB,0.37600E+01_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.36124E+01_JPRB,0.37293E+01_JPRB,0.37963E+01_JPRB,0.37839E+01_JPRB,0.37789E+01_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.35636E+01_JPRB,0.37078E+01_JPRB,0.37818E+01_JPRB,0.38114E+01_JPRB,0.37775E+01_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.34978E+01_JPRB,0.36691E+01_JPRB,0.37922E+01_JPRB,0.38152E+01_JPRB,0.38092E+01_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.34749E+01_JPRB,0.36230E+01_JPRB,0.37686E+01_JPRB,0.38328E+01_JPRB,0.38292E+01_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.34238E+01_JPRB,0.35883E+01_JPRB,0.37261E+01_JPRB,0.38299E+01_JPRB,0.38488E+01_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.33568E+01_JPRB,0.35597E+01_JPRB,0.37073E+01_JPRB,0.38247E+01_JPRB,0.38591E+01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.32794E+01_JPRB,0.35193E+01_JPRB,0.36712E+01_JPRB,0.37875E+01_JPRB,0.38581E+01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.31971E+01_JPRB,0.34544E+01_JPRB,0.36268E+01_JPRB,0.37609E+01_JPRB,0.38393E+01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.31680E+01_JPRB,0.34441E+01_JPRB,0.36338E+01_JPRB,0.37596E+01_JPRB,0.38510E+01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.40944E+01_JPRB,0.40706E+01_JPRB,0.40738E+01_JPRB,0.40615E+01_JPRB,0.40255E+01_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.42568E+01_JPRB,0.42640E+01_JPRB,0.42578E+01_JPRB,0.42281E+01_JPRB,0.41677E+01_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.44471E+01_JPRB,0.44460E+01_JPRB,0.44235E+01_JPRB,0.43647E+01_JPRB,0.43107E+01_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.45971E+01_JPRB,0.45776E+01_JPRB,0.45277E+01_JPRB,0.44905E+01_JPRB,0.45101E+01_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.46780E+01_JPRB,0.46358E+01_JPRB,0.46311E+01_JPRB,0.46380E+01_JPRB,0.46103E+01_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.47294E+01_JPRB,0.47444E+01_JPRB,0.47418E+01_JPRB,0.47299E+01_JPRB,0.47059E+01_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.48604E+01_JPRB,0.48842E+01_JPRB,0.48819E+01_JPRB,0.49000E+01_JPRB,0.48969E+01_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.49979E+01_JPRB,0.50271E+01_JPRB,0.50614E+01_JPRB,0.50783E+01_JPRB,0.50637E+01_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.51216E+01_JPRB,0.51841E+01_JPRB,0.52155E+01_JPRB,0.52098E+01_JPRB,0.51706E+01_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.52796E+01_JPRB,0.53177E+01_JPRB,0.53275E+01_JPRB,0.53003E+01_JPRB,0.52540E+01_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.54021E+01_JPRB,0.54214E+01_JPRB,0.54107E+01_JPRB,0.53770E+01_JPRB,0.53308E+01_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.54951E+01_JPRB,0.54954E+01_JPRB,0.54655E+01_JPRB,0.54275E+01_JPRB,0.53548E+01_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.55606E+01_JPRB,0.55401E+01_JPRB,0.55126E+01_JPRB,0.54611E+01_JPRB,0.53900E+01_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.56084E+01_JPRB,0.55775E+01_JPRB,0.55344E+01_JPRB,0.54935E+01_JPRB,0.53765E+01_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.56424E+01_JPRB,0.55975E+01_JPRB,0.55674E+01_JPRB,0.55057E+01_JPRB,0.54137E+01_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.56582E+01_JPRB,0.56350E+01_JPRB,0.55811E+01_JPRB,0.55009E+01_JPRB,0.54160E+01_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.56833E+01_JPRB,0.56401E+01_JPRB,0.55975E+01_JPRB,0.55109E+01_JPRB,0.54249E+01_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.57003E+01_JPRB,0.56620E+01_JPRB,0.55904E+01_JPRB,0.55121E+01_JPRB,0.54542E+01_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.57132E+01_JPRB,0.56848E+01_JPRB,0.56091E+01_JPRB,0.55447E+01_JPRB,0.55236E+01_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.57800E+01_JPRB,0.57027E+01_JPRB,0.56220E+01_JPRB,0.56024E+01_JPRB,0.55523E+01_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.57668E+01_JPRB,0.57069E+01_JPRB,0.56826E+01_JPRB,0.56406E+01_JPRB,0.56224E+01_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.57877E+01_JPRB,0.57628E+01_JPRB,0.57465E+01_JPRB,0.57131E+01_JPRB,0.56752E+01_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.58053E+01_JPRB,0.58032E+01_JPRB,0.57814E+01_JPRB,0.58008E+01_JPRB,0.57412E+01_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.57386E+01_JPRB,0.58034E+01_JPRB,0.57934E+01_JPRB,0.57973E+01_JPRB,0.57760E+01_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.56650E+01_JPRB,0.57400E+01_JPRB,0.57795E+01_JPRB,0.58096E+01_JPRB,0.57723E+01_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.56068E+01_JPRB,0.56512E+01_JPRB,0.57137E+01_JPRB,0.58154E+01_JPRB,0.57795E+01_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.55712E+01_JPRB,0.56156E+01_JPRB,0.56456E+01_JPRB,0.57952E+01_JPRB,0.57768E+01_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.55331E+01_JPRB,0.55774E+01_JPRB,0.56049E+01_JPRB,0.57462E+01_JPRB,0.57382E+01_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.55579E+01_JPRB,0.55330E+01_JPRB,0.55754E+01_JPRB,0.56805E+01_JPRB,0.57245E+01_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.55684E+01_JPRB,0.55372E+01_JPRB,0.55455E+01_JPRB,0.56019E+01_JPRB,0.57291E+01_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.56282E+01_JPRB,0.55547E+01_JPRB,0.55863E+01_JPRB,0.55852E+01_JPRB,0.56892E+01_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.56429E+01_JPRB,0.55998E+01_JPRB,0.55663E+01_JPRB,0.55662E+01_JPRB,0.56522E+01_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.56488E+01_JPRB,0.56642E+01_JPRB,0.55915E+01_JPRB,0.56136E+01_JPRB,0.56176E+01_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.57246E+01_JPRB,0.57165E+01_JPRB,0.56557E+01_JPRB,0.56271E+01_JPRB,0.56227E+01_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.57406E+01_JPRB,0.57550E+01_JPRB,0.57336E+01_JPRB,0.56616E+01_JPRB,0.56928E+01_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.57616E+01_JPRB,0.57715E+01_JPRB,0.57765E+01_JPRB,0.57429E+01_JPRB,0.57151E+01_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.58013E+01_JPRB,0.57807E+01_JPRB,0.58014E+01_JPRB,0.57796E+01_JPRB,0.57022E+01_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.58611E+01_JPRB,0.58307E+01_JPRB,0.58954E+01_JPRB,0.58904E+01_JPRB,0.58254E+01_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.59182E+01_JPRB,0.59013E+01_JPRB,0.59353E+01_JPRB,0.59746E+01_JPRB,0.59215E+01_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.59636E+01_JPRB,0.59631E+01_JPRB,0.59638E+01_JPRB,0.60147E+01_JPRB,0.60288E+01_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.60261E+01_JPRB,0.59972E+01_JPRB,0.59771E+01_JPRB,0.60154E+01_JPRB,0.60632E+01_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.60204E+01_JPRB,0.60805E+01_JPRB,0.60002E+01_JPRB,0.60580E+01_JPRB,0.60854E+01_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.60584E+01_JPRB,0.61138E+01_JPRB,0.60917E+01_JPRB,0.60710E+01_JPRB,0.61237E+01_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.60402E+01_JPRB,0.61059E+01_JPRB,0.61154E+01_JPRB,0.61008E+01_JPRB,0.61463E+01_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.60080E+01_JPRB,0.61076E+01_JPRB,0.61306E+01_JPRB,0.61548E+01_JPRB,0.61892E+01_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.59781E+01_JPRB,0.61168E+01_JPRB,0.61621E+01_JPRB,0.61680E+01_JPRB,0.62246E+01_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.59824E+01_JPRB,0.60878E+01_JPRB,0.61825E+01_JPRB,0.62179E+01_JPRB,0.62658E+01_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.62252E+01_JPRB,0.61003E+01_JPRB,0.59711E+01_JPRB,0.58641E+01_JPRB,0.57820E+01_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.66429E+01_JPRB,0.64784E+01_JPRB,0.63526E+01_JPRB,0.62330E+01_JPRB,0.61644E+01_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.69743E+01_JPRB,0.68232E+01_JPRB,0.67077E+01_JPRB,0.66230E+01_JPRB,0.65438E+01_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.72971E+01_JPRB,0.72050E+01_JPRB,0.71016E+01_JPRB,0.69747E+01_JPRB,0.67726E+01_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.77109E+01_JPRB,0.75892E+01_JPRB,0.74253E+01_JPRB,0.72127E+01_JPRB,0.70341E+01_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.80450E+01_JPRB,0.78275E+01_JPRB,0.75988E+01_JPRB,0.74227E+01_JPRB,0.73977E+01_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.81727E+01_JPRB,0.79248E+01_JPRB,0.78355E+01_JPRB,0.77125E+01_JPRB,0.75391E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,20,13) = (/ &
+ & 0.82796E+01_JPRB,0.81265E+01_JPRB,0.80271E+01_JPRB,0.78599E+01_JPRB,0.77204E+01_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.84685E+01_JPRB,0.83415E+01_JPRB,0.82106E+01_JPRB,0.80317E+01_JPRB,0.78896E+01_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.86169E+01_JPRB,0.85255E+01_JPRB,0.83779E+01_JPRB,0.82528E+01_JPRB,0.81573E+01_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.88276E+01_JPRB,0.86892E+01_JPRB,0.86001E+01_JPRB,0.84644E+01_JPRB,0.83125E+01_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.89834E+01_JPRB,0.88963E+01_JPRB,0.87866E+01_JPRB,0.86675E+01_JPRB,0.84751E+01_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.91971E+01_JPRB,0.90977E+01_JPRB,0.89941E+01_JPRB,0.88254E+01_JPRB,0.85750E+01_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.93611E+01_JPRB,0.92762E+01_JPRB,0.91306E+01_JPRB,0.88795E+01_JPRB,0.86828E+01_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.95231E+01_JPRB,0.94096E+01_JPRB,0.91709E+01_JPRB,0.89786E+01_JPRB,0.86968E+01_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.96495E+01_JPRB,0.94564E+01_JPRB,0.92347E+01_JPRB,0.89785E+01_JPRB,0.86180E+01_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.97336E+01_JPRB,0.94935E+01_JPRB,0.92561E+01_JPRB,0.89137E+01_JPRB,0.86661E+01_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.97605E+01_JPRB,0.95111E+01_JPRB,0.92200E+01_JPRB,0.89355E+01_JPRB,0.85920E+01_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.97562E+01_JPRB,0.95167E+01_JPRB,0.91771E+01_JPRB,0.88618E+01_JPRB,0.85414E+01_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.97192E+01_JPRB,0.94434E+01_JPRB,0.91403E+01_JPRB,0.87870E+01_JPRB,0.85159E+01_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.97162E+01_JPRB,0.94370E+01_JPRB,0.90971E+01_JPRB,0.88239E+01_JPRB,0.85528E+01_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.96997E+01_JPRB,0.93448E+01_JPRB,0.90783E+01_JPRB,0.87958E+01_JPRB,0.87225E+01_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.97261E+01_JPRB,0.93769E+01_JPRB,0.90457E+01_JPRB,0.89061E+01_JPRB,0.87695E+01_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.97573E+01_JPRB,0.94639E+01_JPRB,0.92105E+01_JPRB,0.90277E+01_JPRB,0.88187E+01_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.98297E+01_JPRB,0.95424E+01_JPRB,0.93169E+01_JPRB,0.90796E+01_JPRB,0.89104E+01_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.99015E+01_JPRB,0.96432E+01_JPRB,0.94039E+01_JPRB,0.91616E+01_JPRB,0.89941E+01_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.99137E+01_JPRB,0.96714E+01_JPRB,0.94790E+01_JPRB,0.92092E+01_JPRB,0.90352E+01_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.99728E+01_JPRB,0.96872E+01_JPRB,0.94263E+01_JPRB,0.92759E+01_JPRB,0.90690E+01_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.10009E+02_JPRB,0.96720E+01_JPRB,0.94529E+01_JPRB,0.92520E+01_JPRB,0.90775E+01_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.99394E+01_JPRB,0.96947E+01_JPRB,0.94735E+01_JPRB,0.92670E+01_JPRB,0.90312E+01_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.98412E+01_JPRB,0.96685E+01_JPRB,0.93802E+01_JPRB,0.91747E+01_JPRB,0.90019E+01_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.98284E+01_JPRB,0.96419E+01_JPRB,0.93576E+01_JPRB,0.91166E+01_JPRB,0.88968E+01_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.98765E+01_JPRB,0.96737E+01_JPRB,0.94176E+01_JPRB,0.90811E+01_JPRB,0.88300E+01_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.99370E+01_JPRB,0.96739E+01_JPRB,0.94534E+01_JPRB,0.91692E+01_JPRB,0.88574E+01_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.10145E+02_JPRB,0.99712E+01_JPRB,0.96675E+01_JPRB,0.93530E+01_JPRB,0.89895E+01_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.10395E+02_JPRB,0.10167E+02_JPRB,0.99330E+01_JPRB,0.95943E+01_JPRB,0.92927E+01_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.10580E+02_JPRB,0.10365E+02_JPRB,0.10114E+02_JPRB,0.98197E+01_JPRB,0.95303E+01_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.10794E+02_JPRB,0.10715E+02_JPRB,0.10421E+02_JPRB,0.10154E+02_JPRB,0.98629E+01_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.10946E+02_JPRB,0.10939E+02_JPRB,0.10689E+02_JPRB,0.10427E+02_JPRB,0.10145E+02_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.11156E+02_JPRB,0.11126E+02_JPRB,0.10973E+02_JPRB,0.10622E+02_JPRB,0.10371E+02_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.11165E+02_JPRB,0.11308E+02_JPRB,0.11212E+02_JPRB,0.10985E+02_JPRB,0.10624E+02_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.11221E+02_JPRB,0.11354E+02_JPRB,0.11431E+02_JPRB,0.11243E+02_JPRB,0.10959E+02_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.11238E+02_JPRB,0.11406E+02_JPRB,0.11591E+02_JPRB,0.11479E+02_JPRB,0.11275E+02_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.11335E+02_JPRB,0.11405E+02_JPRB,0.11662E+02_JPRB,0.11637E+02_JPRB,0.11480E+02_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.11355E+02_JPRB,0.11451E+02_JPRB,0.11592E+02_JPRB,0.11670E+02_JPRB,0.11515E+02_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.11389E+02_JPRB,0.11476E+02_JPRB,0.11586E+02_JPRB,0.11657E+02_JPRB,0.11618E+02_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.11480E+02_JPRB,0.11599E+02_JPRB,0.11673E+02_JPRB,0.11677E+02_JPRB,0.11653E+02_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.97590E+01_JPRB,0.94275E+01_JPRB,0.91020E+01_JPRB,0.89149E+01_JPRB,0.87289E+01_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.10505E+02_JPRB,0.10164E+02_JPRB,0.99232E+01_JPRB,0.97321E+01_JPRB,0.94201E+01_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.11237E+02_JPRB,0.10955E+02_JPRB,0.10714E+02_JPRB,0.10370E+02_JPRB,0.10019E+02_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.12124E+02_JPRB,0.11740E+02_JPRB,0.11352E+02_JPRB,0.10992E+02_JPRB,0.10632E+02_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.12886E+02_JPRB,0.12429E+02_JPRB,0.12001E+02_JPRB,0.11642E+02_JPRB,0.11273E+02_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.13556E+02_JPRB,0.13047E+02_JPRB,0.12733E+02_JPRB,0.12297E+02_JPRB,0.11616E+02_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.14349E+02_JPRB,0.13901E+02_JPRB,0.13193E+02_JPRB,0.12562E+02_JPRB,0.12015E+02_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.15084E+02_JPRB,0.14361E+02_JPRB,0.13567E+02_JPRB,0.12903E+02_JPRB,0.12393E+02_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.15509E+02_JPRB,0.14641E+02_JPRB,0.13824E+02_JPRB,0.13136E+02_JPRB,0.12832E+02_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.15737E+02_JPRB,0.14756E+02_JPRB,0.13944E+02_JPRB,0.13493E+02_JPRB,0.13014E+02_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.15733E+02_JPRB,0.14806E+02_JPRB,0.14130E+02_JPRB,0.13708E+02_JPRB,0.13129E+02_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.15735E+02_JPRB,0.14832E+02_JPRB,0.14382E+02_JPRB,0.13702E+02_JPRB,0.13090E+02_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.15596E+02_JPRB,0.15046E+02_JPRB,0.14369E+02_JPRB,0.13676E+02_JPRB,0.13207E+02_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.15679E+02_JPRB,0.15085E+02_JPRB,0.14382E+02_JPRB,0.13864E+02_JPRB,0.13243E+02_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.15773E+02_JPRB,0.15051E+02_JPRB,0.14458E+02_JPRB,0.13792E+02_JPRB,0.13309E+02_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.15791E+02_JPRB,0.15118E+02_JPRB,0.14520E+02_JPRB,0.13908E+02_JPRB,0.13506E+02_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.15907E+02_JPRB,0.15282E+02_JPRB,0.14696E+02_JPRB,0.14168E+02_JPRB,0.13591E+02_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.15997E+02_JPRB,0.15426E+02_JPRB,0.14908E+02_JPRB,0.14325E+02_JPRB,0.13655E+02_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.16254E+02_JPRB,0.15640E+02_JPRB,0.15053E+02_JPRB,0.14410E+02_JPRB,0.13542E+02_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.16522E+02_JPRB,0.15885E+02_JPRB,0.15194E+02_JPRB,0.14363E+02_JPRB,0.13365E+02_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.16844E+02_JPRB,0.16068E+02_JPRB,0.15151E+02_JPRB,0.14109E+02_JPRB,0.13003E+02_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.16915E+02_JPRB,0.16003E+02_JPRB,0.14953E+02_JPRB,0.13814E+02_JPRB,0.12608E+02_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.16922E+02_JPRB,0.15890E+02_JPRB,0.14756E+02_JPRB,0.13405E+02_JPRB,0.12281E+02_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.16966E+02_JPRB,0.15773E+02_JPRB,0.14522E+02_JPRB,0.13240E+02_JPRB,0.11917E+02_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.17142E+02_JPRB,0.15897E+02_JPRB,0.14564E+02_JPRB,0.13378E+02_JPRB,0.11953E+02_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.17346E+02_JPRB,0.16051E+02_JPRB,0.14752E+02_JPRB,0.13439E+02_JPRB,0.11971E+02_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.17475E+02_JPRB,0.16210E+02_JPRB,0.14948E+02_JPRB,0.13510E+02_JPRB,0.12056E+02_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.17754E+02_JPRB,0.16503E+02_JPRB,0.15328E+02_JPRB,0.13801E+02_JPRB,0.12328E+02_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.18031E+02_JPRB,0.16909E+02_JPRB,0.15619E+02_JPRB,0.14276E+02_JPRB,0.12740E+02_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.18386E+02_JPRB,0.17235E+02_JPRB,0.15966E+02_JPRB,0.14652E+02_JPRB,0.13194E+02_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.18710E+02_JPRB,0.17591E+02_JPRB,0.16361E+02_JPRB,0.15070E+02_JPRB,0.13707E+02_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.19098E+02_JPRB,0.17898E+02_JPRB,0.16845E+02_JPRB,0.15582E+02_JPRB,0.14265E+02_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.19252E+02_JPRB,0.18167E+02_JPRB,0.17135E+02_JPRB,0.15969E+02_JPRB,0.14652E+02_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.19041E+02_JPRB,0.18357E+02_JPRB,0.17265E+02_JPRB,0.16200E+02_JPRB,0.15002E+02_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.18766E+02_JPRB,0.18032E+02_JPRB,0.17152E+02_JPRB,0.16208E+02_JPRB,0.15088E+02_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.18411E+02_JPRB,0.17740E+02_JPRB,0.16984E+02_JPRB,0.16085E+02_JPRB,0.15089E+02_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.18291E+02_JPRB,0.17667E+02_JPRB,0.16941E+02_JPRB,0.16014E+02_JPRB,0.14979E+02_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.18624E+02_JPRB,0.17786E+02_JPRB,0.17174E+02_JPRB,0.16136E+02_JPRB,0.15128E+02_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.19430E+02_JPRB,0.18470E+02_JPRB,0.17722E+02_JPRB,0.16775E+02_JPRB,0.15711E+02_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.20123E+02_JPRB,0.18895E+02_JPRB,0.18060E+02_JPRB,0.17255E+02_JPRB,0.16173E+02_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.20744E+02_JPRB,0.19415E+02_JPRB,0.18626E+02_JPRB,0.17397E+02_JPRB,0.16465E+02_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.21714E+02_JPRB,0.20093E+02_JPRB,0.19173E+02_JPRB,0.18078E+02_JPRB,0.16884E+02_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.22731E+02_JPRB,0.21068E+02_JPRB,0.19674E+02_JPRB,0.18569E+02_JPRB,0.17315E+02_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.23924E+02_JPRB,0.22190E+02_JPRB,0.20317E+02_JPRB,0.18891E+02_JPRB,0.17603E+02_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.24940E+02_JPRB,0.23270E+02_JPRB,0.21498E+02_JPRB,0.19833E+02_JPRB,0.18265E+02_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.25828E+02_JPRB,0.24271E+02_JPRB,0.22518E+02_JPRB,0.20827E+02_JPRB,0.19003E+02_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.26483E+02_JPRB,0.24983E+02_JPRB,0.23453E+02_JPRB,0.21676E+02_JPRB,0.19755E+02_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.15960E+02_JPRB,0.15303E+02_JPRB,0.14694E+02_JPRB,0.13842E+02_JPRB,0.13008E+02_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.17675E+02_JPRB,0.16896E+02_JPRB,0.15925E+02_JPRB,0.14915E+02_JPRB,0.14133E+02_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.19385E+02_JPRB,0.18234E+02_JPRB,0.16959E+02_JPRB,0.15987E+02_JPRB,0.15180E+02_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.20552E+02_JPRB,0.19165E+02_JPRB,0.17982E+02_JPRB,0.16927E+02_JPRB,0.16368E+02_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.21349E+02_JPRB,0.19954E+02_JPRB,0.19023E+02_JPRB,0.18091E+02_JPRB,0.17398E+02_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.22160E+02_JPRB,0.21597E+02_JPRB,0.20213E+02_JPRB,0.19055E+02_JPRB,0.18102E+02_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.23816E+02_JPRB,0.22303E+02_JPRB,0.21008E+02_JPRB,0.19912E+02_JPRB,0.18903E+02_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.24810E+02_JPRB,0.23381E+02_JPRB,0.21933E+02_JPRB,0.20846E+02_JPRB,0.19540E+02_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.25893E+02_JPRB,0.24250E+02_JPRB,0.22750E+02_JPRB,0.21616E+02_JPRB,0.19627E+02_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.26542E+02_JPRB,0.24773E+02_JPRB,0.23600E+02_JPRB,0.21309E+02_JPRB,0.19278E+02_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.27270E+02_JPRB,0.25621E+02_JPRB,0.23587E+02_JPRB,0.21255E+02_JPRB,0.19478E+02_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.27744E+02_JPRB,0.26088E+02_JPRB,0.23254E+02_JPRB,0.21242E+02_JPRB,0.19100E+02_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.28557E+02_JPRB,0.25575E+02_JPRB,0.23098E+02_JPRB,0.20631E+02_JPRB,0.18206E+02_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.28140E+02_JPRB,0.25135E+02_JPRB,0.22210E+02_JPRB,0.19496E+02_JPRB,0.17366E+02_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.27284E+02_JPRB,0.24232E+02_JPRB,0.21249E+02_JPRB,0.18720E+02_JPRB,0.16279E+02_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.26494E+02_JPRB,0.23076E+02_JPRB,0.20060E+02_JPRB,0.17566E+02_JPRB,0.14956E+02_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.24773E+02_JPRB,0.21460E+02_JPRB,0.18370E+02_JPRB,0.15793E+02_JPRB,0.13302E+02_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.23157E+02_JPRB,0.19587E+02_JPRB,0.16563E+02_JPRB,0.13805E+02_JPRB,0.11647E+02_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.20881E+02_JPRB,0.17370E+02_JPRB,0.14460E+02_JPRB,0.11958E+02_JPRB,0.99808E+01_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.18247E+02_JPRB,0.15035E+02_JPRB,0.12296E+02_JPRB,0.10101E+02_JPRB,0.83032E+01_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.15492E+02_JPRB,0.12470E+02_JPRB,0.10235E+02_JPRB,0.81131E+01_JPRB,0.64390E+01_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.13284E+02_JPRB,0.10782E+02_JPRB,0.82553E+01_JPRB,0.64597E+01_JPRB,0.42402E+01_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.11520E+02_JPRB,0.89534E+01_JPRB,0.69691E+01_JPRB,0.48753E+01_JPRB,0.27443E+01_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.10067E+02_JPRB,0.75650E+01_JPRB,0.54572E+01_JPRB,0.31866E+01_JPRB,0.14626E+01_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.97744E+01_JPRB,0.73767E+01_JPRB,0.52433E+01_JPRB,0.27509E+01_JPRB,0.10380E+01_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.94733E+01_JPRB,0.70859E+01_JPRB,0.47807E+01_JPRB,0.23954E+01_JPRB,0.74468E+00_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.94041E+01_JPRB,0.67286E+01_JPRB,0.41966E+01_JPRB,0.20683E+01_JPRB,0.27939E+00_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.10076E+02_JPRB,0.74414E+01_JPRB,0.47964E+01_JPRB,0.25258E+01_JPRB,0.87689E+00_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.10878E+02_JPRB,0.81759E+01_JPRB,0.56173E+01_JPRB,0.30416E+01_JPRB,0.13231E+01_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.11858E+02_JPRB,0.88284E+01_JPRB,0.63009E+01_JPRB,0.37211E+01_JPRB,0.17214E+01_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.13284E+02_JPRB,0.99847E+01_JPRB,0.73905E+01_JPRB,0.50291E+01_JPRB,0.24940E+01_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.14796E+02_JPRB,0.11545E+02_JPRB,0.85671E+01_JPRB,0.61687E+01_JPRB,0.37136E+01_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.16662E+02_JPRB,0.12949E+02_JPRB,0.98033E+01_JPRB,0.73353E+01_JPRB,0.52329E+01_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.19200E+02_JPRB,0.14684E+02_JPRB,0.11434E+02_JPRB,0.85867E+01_JPRB,0.64428E+01_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.21780E+02_JPRB,0.16837E+02_JPRB,0.13158E+02_JPRB,0.10165E+02_JPRB,0.76608E+01_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.24689E+02_JPRB,0.19487E+02_JPRB,0.15145E+02_JPRB,0.11845E+02_JPRB,0.89940E+01_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.27130E+02_JPRB,0.21775E+02_JPRB,0.17116E+02_JPRB,0.13679E+02_JPRB,0.10905E+02_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.27854E+02_JPRB,0.22306E+02_JPRB,0.17103E+02_JPRB,0.13783E+02_JPRB,0.10863E+02_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.27653E+02_JPRB,0.21825E+02_JPRB,0.16692E+02_JPRB,0.12707E+02_JPRB,0.98148E+01_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.27815E+02_JPRB,0.22411E+02_JPRB,0.17151E+02_JPRB,0.12787E+02_JPRB,0.95823E+01_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.29119E+02_JPRB,0.23144E+02_JPRB,0.17252E+02_JPRB,0.13594E+02_JPRB,0.99767E+01_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.29129E+02_JPRB,0.23469E+02_JPRB,0.17342E+02_JPRB,0.12745E+02_JPRB,0.95359E+01_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.29058E+02_JPRB,0.23190E+02_JPRB,0.17458E+02_JPRB,0.12690E+02_JPRB,0.90099E+01_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.28657E+02_JPRB,0.23001E+02_JPRB,0.17896E+02_JPRB,0.13433E+02_JPRB,0.94907E+01_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.29240E+02_JPRB,0.22830E+02_JPRB,0.17734E+02_JPRB,0.13185E+02_JPRB,0.97411E+01_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.29947E+02_JPRB,0.22946E+02_JPRB,0.17582E+02_JPRB,0.13008E+02_JPRB,0.96489E+01_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.28976E+02_JPRB,0.21746E+02_JPRB,0.15522E+02_JPRB,0.11254E+02_JPRB,0.80222E+01_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.25931E+02_JPRB,0.24537E+02_JPRB,0.23224E+02_JPRB,0.21983E+02_JPRB,0.20855E+02_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.29220E+02_JPRB,0.27507E+02_JPRB,0.25899E+02_JPRB,0.24431E+02_JPRB,0.23088E+02_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.32471E+02_JPRB,0.30409E+02_JPRB,0.28502E+02_JPRB,0.26794E+02_JPRB,0.25226E+02_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.35624E+02_JPRB,0.33186E+02_JPRB,0.30989E+02_JPRB,0.28748E+02_JPRB,0.24479E+02_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.38605E+02_JPRB,0.35797E+02_JPRB,0.30613E+02_JPRB,0.25949E+02_JPRB,0.21171E+02_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.41350E+02_JPRB,0.31676E+02_JPRB,0.25965E+02_JPRB,0.21818E+02_JPRB,0.18145E+02_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.34377E+02_JPRB,0.28144E+02_JPRB,0.23342E+02_JPRB,0.17735E+02_JPRB,0.13818E+02_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.31245E+02_JPRB,0.24408E+02_JPRB,0.19618E+02_JPRB,0.13984E+02_JPRB,0.93171E+01_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.28216E+02_JPRB,0.21711E+02_JPRB,0.16938E+02_JPRB,0.11225E+02_JPRB,0.60954E+01_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.25410E+02_JPRB,0.20320E+02_JPRB,0.12451E+02_JPRB,0.80509E+01_JPRB,0.41742E+01_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.22191E+02_JPRB,0.15284E+02_JPRB,0.84334E+01_JPRB,0.32443E+01_JPRB,0.10236E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,24,16) = (/ &
+ & 0.19170E+02_JPRB,0.98429E+01_JPRB,0.40822E+01_JPRB,0.90070E-05_JPRB,0.84964E-05_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.11441E+02_JPRB,0.50508E+01_JPRB,0.77316E-05_JPRB,0.71796E-05_JPRB,0.66473E-05_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.73617E+01_JPRB,0.56953E+00_JPRB,0.62155E-05_JPRB,0.57759E-05_JPRB,0.53447E-05_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.37038E+01_JPRB,0.54098E-05_JPRB,0.49933E-05_JPRB,0.45180E-05_JPRB,0.42997E-05_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.47094E-05_JPRB,0.43472E-05_JPRB,0.40149E-05_JPRB,0.36332E-05_JPRB,0.34550E-05_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.37812E-05_JPRB,0.34885E-05_JPRB,0.32238E-05_JPRB,0.29187E-05_JPRB,0.27779E-05_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.30339E-05_JPRB,0.28004E-05_JPRB,0.25314E-05_JPRB,0.23451E-05_JPRB,0.22313E-05_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.24328E-05_JPRB,0.22460E-05_JPRB,0.20326E-05_JPRB,0.18813E-05_JPRB,0.17930E-05_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.18939E-05_JPRB,0.18012E-05_JPRB,0.16316E-05_JPRB,0.15109E-05_JPRB,0.14395E-05_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.15657E-05_JPRB,0.14309E-05_JPRB,0.13083E-05_JPRB,0.12124E-05_JPRB,0.15795E-05_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.12582E-05_JPRB,0.11508E-05_JPRB,0.10527E-05_JPRB,0.97625E-06_JPRB,0.19757E-05_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.10197E-05_JPRB,0.93275E-06_JPRB,0.85375E-06_JPRB,0.79153E-06_JPRB,0.21668E-05_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.83336E-06_JPRB,0.76274E-06_JPRB,0.69805E-06_JPRB,0.64735E-06_JPRB,0.17739E-05_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.68945E-06_JPRB,0.63022E-06_JPRB,0.57702E-06_JPRB,0.53486E-06_JPRB,0.10843E-05_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.55406E-06_JPRB,0.52180E-06_JPRB,0.47760E-06_JPRB,0.44282E-06_JPRB,0.89395E-06_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.45861E-06_JPRB,0.43223E-06_JPRB,0.39548E-06_JPRB,0.36639E-06_JPRB,0.47718E-06_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.38297E-06_JPRB,0.36441E-06_JPRB,0.32989E-06_JPRB,0.30551E-06_JPRB,0.28352E-06_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.31987E-06_JPRB,0.30430E-06_JPRB,0.27838E-06_JPRB,0.25513E-06_JPRB,0.23647E-06_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.26734E-06_JPRB,0.24677E-06_JPRB,0.23264E-06_JPRB,0.21290E-06_JPRB,0.19743E-06_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.22458E-06_JPRB,0.20712E-06_JPRB,0.19517E-06_JPRB,0.17853E-06_JPRB,0.16551E-06_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.18898E-06_JPRB,0.17429E-06_JPRB,0.16587E-06_JPRB,0.15173E-06_JPRB,0.13895E-06_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.15450E-06_JPRB,0.14658E-06_JPRB,0.13533E-06_JPRB,0.12759E-06_JPRB,0.11679E-06_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.13028E-06_JPRB,0.12362E-06_JPRB,0.11400E-06_JPRB,0.10744E-06_JPRB,0.98279E-07_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.11024E-06_JPRB,0.10159E-06_JPRB,0.96435E-07_JPRB,0.91711E-07_JPRB,0.83972E-07_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.93198E-07_JPRB,0.85906E-07_JPRB,0.81590E-07_JPRB,0.75279E-07_JPRB,0.70931E-07_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.76236E-07_JPRB,0.72626E-07_JPRB,0.68995E-07_JPRB,0.63641E-07_JPRB,0.60530E-07_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.64328E-07_JPRB,0.61369E-07_JPRB,0.56594E-07_JPRB,0.53672E-07_JPRB,0.49555E-07_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.54169E-07_JPRB,0.51722E-07_JPRB,0.47685E-07_JPRB,0.45298E-07_JPRB,0.41770E-07_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.46180E-07_JPRB,0.42221E-07_JPRB,0.40251E-07_JPRB,0.37120E-07_JPRB,0.35204E-07_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.33194E-01_JPRB,0.35538E-07_JPRB,0.33930E-07_JPRB,0.31297E-07_JPRB,0.29712E-07_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.63212E-01_JPRB,0.54132E-01_JPRB,0.36437E-01_JPRB,0.71353E-02_JPRB,0.24978E-07_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.62321E-01_JPRB,0.69163E-01_JPRB,0.76899E-01_JPRB,0.64692E-01_JPRB,0.42869E-01_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.73050E-01_JPRB,0.83118E-01_JPRB,0.74962E-01_JPRB,0.82540E-01_JPRB,0.91058E-01_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.71162E-01_JPRB,0.79898E-01_JPRB,0.89953E-01_JPRB,0.10014E+00_JPRB,0.10382E+00_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.67770E-01_JPRB,0.78960E-01_JPRB,0.86882E-01_JPRB,0.97002E-01_JPRB,0.10740E+00_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.66421E-01_JPRB,0.77608E-01_JPRB,0.10426E+00_JPRB,0.10063E+00_JPRB,0.10735E+00_JPRB /)  
+  
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.860560E-06_JPRB, 0.130439E-05_JPRB, 0.382378E-05_JPRB /)
+FORREF(:, 2) = (/ 0.817926E-06_JPRB, 0.158599E-05_JPRB, 0.658771E-04_JPRB /)
+FORREF(:, 3) = (/ 0.129369E-05_JPRB, 0.824406E-05_JPRB, 0.952778E-04_JPRB /)
+FORREF(:, 4) = (/ 0.438918E-05_JPRB, 0.375356E-04_JPRB, 0.119111E-03_JPRB /)
+FORREF(:, 5) = (/ 0.306057E-04_JPRB, 0.622798E-04_JPRB, 0.100740E-03_JPRB /)
+FORREF(:, 6) = (/ 0.891934E-04_JPRB, 0.856393E-04_JPRB, 0.635583E-04_JPRB /)
+FORREF(:, 7) = (/ 0.171959E-03_JPRB, 0.173431E-03_JPRB, 0.611721E-04_JPRB /)
+FORREF(:, 8) = (/ 0.357795E-03_JPRB, 0.247261E-03_JPRB, 0.488864E-04_JPRB /)
+FORREF(:, 9) = (/ 0.326623E-03_JPRB, 0.289471E-03_JPRB, 0.548834E-04_JPRB /)
+FORREF(:,10) = (/ 0.345103E-03_JPRB, 0.320898E-03_JPRB, 0.633214E-04_JPRB /)
+FORREF(:,11) = (/ 0.392567E-03_JPRB, 0.325153E-03_JPRB, 0.744479E-04_JPRB /)
+FORREF(:,12) = (/ 0.349277E-03_JPRB, 0.345610E-03_JPRB, 0.916479E-04_JPRB /)
+FORREF(:,13) = (/ 0.425161E-03_JPRB, 0.348452E-03_JPRB, 0.125788E-03_JPRB /)
+FORREF(:,14) = (/ 0.407594E-03_JPRB, 0.435836E-03_JPRB, 0.287583E-03_JPRB /)
+FORREF(:,15) = (/ 0.521605E-03_JPRB, 0.486596E-03_JPRB, 0.483511E-03_JPRB /)
+FORREF(:,16) = (/ 0.773790E-03_JPRB, 0.737247E-03_JPRB, 0.665939E-03_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+     
+SELFREF(:, 1) = (/ &
+ & 0.750370E-03_JPRB, 0.644938E-03_JPRB, 0.554321E-03_JPRB, 0.476436E-03_JPRB, 0.409494E-03_JPRB, &
+ & 0.351957E-03_JPRB, 0.302505E-03_JPRB, 0.260002E-03_JPRB, 0.223470E-03_JPRB, 0.192071E-03_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.136135E-02_JPRB, 0.113187E-02_JPRB, 0.941076E-03_JPRB, 0.782440E-03_JPRB, 0.650546E-03_JPRB, &
+ & 0.540885E-03_JPRB, 0.449709E-03_JPRB, 0.373902E-03_JPRB, 0.310874E-03_JPRB, 0.258471E-03_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.333950E-02_JPRB, 0.256391E-02_JPRB, 0.196845E-02_JPRB, 0.151129E-02_JPRB, 0.116030E-02_JPRB, &
+ & 0.890824E-03_JPRB, 0.683934E-03_JPRB, 0.525093E-03_JPRB, 0.403143E-03_JPRB, 0.309515E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.793392E-02_JPRB, 0.589865E-02_JPRB, 0.438548E-02_JPRB, 0.326048E-02_JPRB, 0.242408E-02_JPRB, &
+ & 0.180223E-02_JPRB, 0.133991E-02_JPRB, 0.996186E-03_JPRB, 0.740636E-03_JPRB, 0.550642E-03_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.828169E-02_JPRB, 0.703139E-02_JPRB, 0.596984E-02_JPRB, 0.506856E-02_JPRB, 0.430335E-02_JPRB, &
+ & 0.365366E-02_JPRB, 0.310206E-02_JPRB, 0.263374E-02_JPRB, 0.223612E-02_JPRB, 0.189852E-02_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.834190E-02_JPRB, 0.780225E-02_JPRB, 0.729750E-02_JPRB, 0.682541E-02_JPRB, 0.638386E-02_JPRB, &
+ & 0.597087E-02_JPRB, 0.558460E-02_JPRB, 0.522332E-02_JPRB, 0.488541E-02_JPRB, 0.456936E-02_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.119082E-01_JPRB, 0.112566E-01_JPRB, 0.106406E-01_JPRB, 0.100583E-01_JPRB, 0.950785E-02_JPRB, &
+ & 0.898755E-02_JPRB, 0.849571E-02_JPRB, 0.803080E-02_JPRB, 0.759132E-02_JPRB, 0.717590E-02_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.144004E-01_JPRB, 0.141762E-01_JPRB, 0.139554E-01_JPRB, 0.137381E-01_JPRB, 0.135241E-01_JPRB, &
+ & 0.133135E-01_JPRB, 0.131062E-01_JPRB, 0.129021E-01_JPRB, 0.127011E-01_JPRB, 0.125033E-01_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.186171E-01_JPRB, 0.175281E-01_JPRB, 0.165027E-01_JPRB, 0.155373E-01_JPRB, 0.146284E-01_JPRB, &
+ & 0.137726E-01_JPRB, 0.129670E-01_JPRB, 0.122084E-01_JPRB, 0.114942E-01_JPRB, 0.108218E-01_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.209396E-01_JPRB, 0.195077E-01_JPRB, 0.181737E-01_JPRB, 0.169309E-01_JPRB, 0.157731E-01_JPRB, &
+ & 0.146945E-01_JPRB, 0.136897E-01_JPRB, 0.127535E-01_JPRB, 0.118814E-01_JPRB, 0.110689E-01_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.203661E-01_JPRB, 0.193311E-01_JPRB, 0.183487E-01_JPRB, 0.174163E-01_JPRB, 0.165312E-01_JPRB, &
+ & 0.156911E-01_JPRB, 0.148937E-01_JPRB, 0.141368E-01_JPRB, 0.134184E-01_JPRB, 0.127365E-01_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.226784E-01_JPRB, 0.210210E-01_JPRB, 0.194848E-01_JPRB, 0.180608E-01_JPRB, 0.167409E-01_JPRB, &
+ & 0.155174E-01_JPRB, 0.143834E-01_JPRB, 0.133322E-01_JPRB, 0.123579E-01_JPRB, 0.114547E-01_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.221773E-01_JPRB, 0.210306E-01_JPRB, 0.199433E-01_JPRB, 0.189122E-01_JPRB, 0.179344E-01_JPRB, &
+ & 0.170071E-01_JPRB, 0.161278E-01_JPRB, 0.152939E-01_JPRB, 0.145032E-01_JPRB, 0.137533E-01_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.275920E-01_JPRB, 0.252595E-01_JPRB, 0.231241E-01_JPRB, 0.211693E-01_JPRB, 0.193797E-01_JPRB, &
+ & 0.177415E-01_JPRB, 0.162417E-01_JPRB, 0.148687E-01_JPRB, 0.136117E-01_JPRB, 0.124610E-01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.288687E-01_JPRB, 0.269968E-01_JPRB, 0.252462E-01_JPRB, 0.236092E-01_JPRB, 0.220783E-01_JPRB, &
+ & 0.206466E-01_JPRB, 0.193078E-01_JPRB, 0.180559E-01_JPRB, 0.168851E-01_JPRB, 0.157902E-01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.371842E-01_JPRB, 0.347595E-01_JPRB, 0.324929E-01_JPRB, 0.303741E-01_JPRB, 0.283934E-01_JPRB, &
+ & 0.265419E-01_JPRB, 0.248112E-01_JPRB, 0.231933E-01_JPRB, 0.216809E-01_JPRB, 0.202671E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB18
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb18.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb18.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb18.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB18
+END SUBROUTINE SRTM_KGB18
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb19.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb19.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb19.F90	(revision 3330)
@@ -0,0 +1,5030 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB19
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA19, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 3.25791_JPRB    , 3.29697_JPRB    , 3.16031_JPRB    , 2.96115_JPRB    , &
+ & 2.69238_JPRB    , 2.33819_JPRB    , 1.92760_JPRB    , 1.44918_JPRB    , &
+ & 0.979764_JPRB   , 0.107336_JPRB   , 8.94523E-02_JPRB, 6.98325E-02_JPRB, &
+ & 5.12051E-02_JPRB, 3.23645E-02_JPRB, 1.23401E-02_JPRB, 1.71339E-03_JPRB /)  
+SFLUXREF(:,2) = (/ &
+ & 3.22769_JPRB    , 3.28817_JPRB    , 3.16687_JPRB    , 2.97662_JPRB    , &
+ & 2.69495_JPRB    , 2.34392_JPRB    , 1.92900_JPRB    , 1.45391_JPRB    , &
+ & 0.982522_JPRB   , 0.107638_JPRB   , 8.92458E-02_JPRB, 6.99885E-02_JPRB, &
+ & 5.09679E-02_JPRB, 3.23789E-02_JPRB, 1.22673E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 3.22294_JPRB    , 3.27780_JPRB    , 3.17424_JPRB    , 2.97143_JPRB    , &
+ & 2.69785_JPRB    , 2.34993_JPRB    , 1.93155_JPRB    , 1.45196_JPRB    , &
+ & 0.985329_JPRB   , 0.108027_JPRB   , 8.93552E-02_JPRB, 6.99937E-02_JPRB, &
+ & 5.11678E-02_JPRB, 3.24846E-02_JPRB, 1.20636E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 3.22445_JPRB    , 3.26113_JPRB    , 3.18438_JPRB    , 2.96921_JPRB    , &
+ & 2.69579_JPRB    , 2.35586_JPRB    , 1.93454_JPRB    , 1.44949_JPRB    , &
+ & 0.987347_JPRB   , 0.108611_JPRB   , 8.91643E-02_JPRB, 7.02236E-02_JPRB, &
+ & 5.12980E-02_JPRB, 3.25282E-02_JPRB, 1.21189E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 3.22497_JPRB    , 3.25109_JPRB    , 3.18741_JPRB    , 2.96970_JPRB    , &
+ & 2.69460_JPRB    , 2.36020_JPRB    , 1.93301_JPRB    , 1.45224_JPRB    , &
+ & 0.988564_JPRB   , 0.108255_JPRB   , 8.93830E-02_JPRB, 7.03655E-02_JPRB, &
+ & 5.13017E-02_JPRB, 3.29414E-02_JPRB, 1.21189E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,6) = (/ &
+ & 3.22632_JPRB    , 3.24174_JPRB    , 3.18524_JPRB    , 2.97402_JPRB    , &
+ & 2.69807_JPRB    , 2.35742_JPRB    , 1.93377_JPRB    , 1.45621_JPRB    , &
+ & 0.988132_JPRB   , 0.108344_JPRB   , 8.93188E-02_JPRB, 7.04907E-02_JPRB, &
+ & 5.17938E-02_JPRB, 3.31465E-02_JPRB, 1.21155E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,7) = (/ &
+ & 3.22793_JPRB    , 3.23589_JPRB    , 3.17720_JPRB    , 2.97869_JPRB    , &
+ & 2.70293_JPRB    , 2.35436_JPRB    , 1.93557_JPRB    , 1.45868_JPRB    , &
+ & 0.988654_JPRB   , 0.108198_JPRB   , 8.93375E-02_JPRB, 7.09790E-02_JPRB, &
+ & 5.24733E-02_JPRB, 3.31298E-02_JPRB, 1.21126E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,8) = (/ &
+ & 3.22966_JPRB    , 3.24087_JPRB    , 3.15676_JPRB    , 2.98171_JPRB    , &
+ & 2.70894_JPRB    , 2.34975_JPRB    , 1.93855_JPRB    , 1.46354_JPRB    , &
+ & 0.988544_JPRB   , 0.108574_JPRB   , 9.02522E-02_JPRB, 7.12908E-02_JPRB, &
+ & 5.24844E-02_JPRB, 3.31084E-02_JPRB, 1.21060E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,9) = (/ &
+ & 3.27240_JPRB    , 3.24666_JPRB    , 3.13886_JPRB    , 2.95238_JPRB    , &
+ & 2.70190_JPRB    , 2.34460_JPRB    , 1.93948_JPRB    , 1.47111_JPRB    , &
+ & 0.990821_JPRB   , 0.108730_JPRB   , 9.01625E-02_JPRB, 7.13261E-02_JPRB, &
+ & 5.24813E-02_JPRB, 3.31083E-02_JPRB, 1.21126E-02_JPRB, 1.56040E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 4900 cm-1.
+RAYL = 2.29E-09_JPRB
+
+STRRAT = 5.49281_JPRB
+
+LAYREFFR = 3
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.14981E-05_JPRB,0.26659E-05_JPRB,0.31874E-05_JPRB,0.35509E-05_JPRB,0.37593E-05_JPRB, &
+ & 0.38514E-05_JPRB,0.37369E-05_JPRB,0.35011E-05_JPRB,0.23894E-05_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.15103E-05_JPRB,0.27348E-05_JPRB,0.32692E-05_JPRB,0.36558E-05_JPRB,0.38926E-05_JPRB, &
+ & 0.39737E-05_JPRB,0.38798E-05_JPRB,0.36565E-05_JPRB,0.24072E-05_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.15233E-05_JPRB,0.28090E-05_JPRB,0.33744E-05_JPRB,0.37729E-05_JPRB,0.40258E-05_JPRB, &
+ & 0.41107E-05_JPRB,0.40389E-05_JPRB,0.38226E-05_JPRB,0.24704E-05_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.15219E-05_JPRB,0.28978E-05_JPRB,0.35015E-05_JPRB,0.38984E-05_JPRB,0.41569E-05_JPRB, &
+ & 0.42771E-05_JPRB,0.42110E-05_JPRB,0.39963E-05_JPRB,0.25504E-05_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.15254E-05_JPRB,0.29633E-05_JPRB,0.36224E-05_JPRB,0.40435E-05_JPRB,0.42975E-05_JPRB, &
+ & 0.44410E-05_JPRB,0.43849E-05_JPRB,0.41847E-05_JPRB,0.26420E-05_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.13024E-05_JPRB,0.23699E-05_JPRB,0.28370E-05_JPRB,0.31443E-05_JPRB,0.33326E-05_JPRB, &
+ & 0.33798E-05_JPRB,0.32797E-05_JPRB,0.30078E-05_JPRB,0.18819E-05_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.13249E-05_JPRB,0.24299E-05_JPRB,0.29103E-05_JPRB,0.32336E-05_JPRB,0.34308E-05_JPRB, &
+ & 0.35019E-05_JPRB,0.34046E-05_JPRB,0.31323E-05_JPRB,0.19511E-05_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.13241E-05_JPRB,0.25059E-05_JPRB,0.30019E-05_JPRB,0.33317E-05_JPRB,0.35516E-05_JPRB, &
+ & 0.36333E-05_JPRB,0.35372E-05_JPRB,0.32615E-05_JPRB,0.20254E-05_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.13325E-05_JPRB,0.25840E-05_JPRB,0.31009E-05_JPRB,0.34399E-05_JPRB,0.36699E-05_JPRB, &
+ & 0.37727E-05_JPRB,0.36811E-05_JPRB,0.34016E-05_JPRB,0.20611E-05_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.13321E-05_JPRB,0.26601E-05_JPRB,0.32189E-05_JPRB,0.35640E-05_JPRB,0.38012E-05_JPRB, &
+ & 0.39113E-05_JPRB,0.38271E-05_JPRB,0.35499E-05_JPRB,0.21368E-05_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.11079E-05_JPRB,0.20757E-05_JPRB,0.24846E-05_JPRB,0.27511E-05_JPRB,0.28883E-05_JPRB, &
+ & 0.29142E-05_JPRB,0.28203E-05_JPRB,0.25706E-05_JPRB,0.15124E-05_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.11298E-05_JPRB,0.21278E-05_JPRB,0.25551E-05_JPRB,0.28306E-05_JPRB,0.29814E-05_JPRB, &
+ & 0.30126E-05_JPRB,0.29328E-05_JPRB,0.26721E-05_JPRB,0.15784E-05_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.11405E-05_JPRB,0.21812E-05_JPRB,0.26237E-05_JPRB,0.29130E-05_JPRB,0.30816E-05_JPRB, &
+ & 0.31265E-05_JPRB,0.30480E-05_JPRB,0.27784E-05_JPRB,0.16468E-05_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.11347E-05_JPRB,0.22472E-05_JPRB,0.27094E-05_JPRB,0.30057E-05_JPRB,0.31821E-05_JPRB, &
+ & 0.32536E-05_JPRB,0.31714E-05_JPRB,0.28837E-05_JPRB,0.17189E-05_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.11383E-05_JPRB,0.23152E-05_JPRB,0.28016E-05_JPRB,0.31126E-05_JPRB,0.33051E-05_JPRB, &
+ & 0.33759E-05_JPRB,0.32961E-05_JPRB,0.29993E-05_JPRB,0.17919E-05_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.93104E-06_JPRB,0.18005E-05_JPRB,0.21693E-05_JPRB,0.23819E-05_JPRB,0.24829E-05_JPRB, &
+ & 0.24860E-05_JPRB,0.23860E-05_JPRB,0.21586E-05_JPRB,0.12198E-05_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.94591E-06_JPRB,0.18309E-05_JPRB,0.22153E-05_JPRB,0.24487E-05_JPRB,0.25574E-05_JPRB, &
+ & 0.25721E-05_JPRB,0.24802E-05_JPRB,0.22458E-05_JPRB,0.13105E-05_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.95638E-06_JPRB,0.18753E-05_JPRB,0.22788E-05_JPRB,0.25149E-05_JPRB,0.26499E-05_JPRB, &
+ & 0.26671E-05_JPRB,0.25797E-05_JPRB,0.23335E-05_JPRB,0.14017E-05_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.95763E-06_JPRB,0.19379E-05_JPRB,0.23271E-05_JPRB,0.25858E-05_JPRB,0.27437E-05_JPRB, &
+ & 0.27792E-05_JPRB,0.26790E-05_JPRB,0.24268E-05_JPRB,0.14872E-05_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.95668E-06_JPRB,0.19877E-05_JPRB,0.23997E-05_JPRB,0.26721E-05_JPRB,0.28382E-05_JPRB, &
+ & 0.28806E-05_JPRB,0.27857E-05_JPRB,0.25225E-05_JPRB,0.15698E-05_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.77329E-06_JPRB,0.15354E-05_JPRB,0.18723E-05_JPRB,0.20411E-05_JPRB,0.21095E-05_JPRB, &
+ & 0.21017E-05_JPRB,0.19998E-05_JPRB,0.18017E-05_JPRB,0.97629E-06_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.78241E-06_JPRB,0.15660E-05_JPRB,0.19091E-05_JPRB,0.20970E-05_JPRB,0.21786E-05_JPRB, &
+ & 0.21730E-05_JPRB,0.20794E-05_JPRB,0.18731E-05_JPRB,0.10645E-05_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.79463E-06_JPRB,0.15948E-05_JPRB,0.19458E-05_JPRB,0.21529E-05_JPRB,0.22557E-05_JPRB, &
+ & 0.22576E-05_JPRB,0.21631E-05_JPRB,0.19462E-05_JPRB,0.11507E-05_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.79779E-06_JPRB,0.16389E-05_JPRB,0.19877E-05_JPRB,0.22087E-05_JPRB,0.23274E-05_JPRB, &
+ & 0.23462E-05_JPRB,0.22501E-05_JPRB,0.20204E-05_JPRB,0.12366E-05_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.79875E-06_JPRB,0.16865E-05_JPRB,0.20410E-05_JPRB,0.22789E-05_JPRB,0.24049E-05_JPRB, &
+ & 0.24283E-05_JPRB,0.23388E-05_JPRB,0.21006E-05_JPRB,0.13155E-05_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.63799E-06_JPRB,0.13079E-05_JPRB,0.15873E-05_JPRB,0.17187E-05_JPRB,0.17689E-05_JPRB, &
+ & 0.17509E-05_JPRB,0.16625E-05_JPRB,0.14950E-05_JPRB,0.77624E-06_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.64423E-06_JPRB,0.13180E-05_JPRB,0.16173E-05_JPRB,0.17648E-05_JPRB,0.18253E-05_JPRB, &
+ & 0.18152E-05_JPRB,0.17299E-05_JPRB,0.15482E-05_JPRB,0.85457E-06_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.65214E-06_JPRB,0.13481E-05_JPRB,0.16476E-05_JPRB,0.18158E-05_JPRB,0.18867E-05_JPRB, &
+ & 0.18859E-05_JPRB,0.17999E-05_JPRB,0.16080E-05_JPRB,0.93968E-06_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.65949E-06_JPRB,0.13728E-05_JPRB,0.16795E-05_JPRB,0.18618E-05_JPRB,0.19507E-05_JPRB, &
+ & 0.19568E-05_JPRB,0.18693E-05_JPRB,0.16710E-05_JPRB,0.10256E-05_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.66012E-06_JPRB,0.14051E-05_JPRB,0.17174E-05_JPRB,0.19154E-05_JPRB,0.20111E-05_JPRB, &
+ & 0.20230E-05_JPRB,0.19421E-05_JPRB,0.17361E-05_JPRB,0.11072E-05_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.52652E-06_JPRB,0.10995E-05_JPRB,0.13221E-05_JPRB,0.14282E-05_JPRB,0.14627E-05_JPRB, &
+ & 0.14494E-05_JPRB,0.13754E-05_JPRB,0.12359E-05_JPRB,0.62399E-06_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.52631E-06_JPRB,0.11047E-05_JPRB,0.13498E-05_JPRB,0.14646E-05_JPRB,0.15094E-05_JPRB, &
+ & 0.14961E-05_JPRB,0.14272E-05_JPRB,0.12791E-05_JPRB,0.69692E-06_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.53263E-06_JPRB,0.11231E-05_JPRB,0.13763E-05_JPRB,0.15059E-05_JPRB,0.15602E-05_JPRB, &
+ & 0.15533E-05_JPRB,0.14827E-05_JPRB,0.13257E-05_JPRB,0.76959E-06_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.53788E-06_JPRB,0.11448E-05_JPRB,0.14026E-05_JPRB,0.15478E-05_JPRB,0.16122E-05_JPRB, &
+ & 0.16137E-05_JPRB,0.15398E-05_JPRB,0.13748E-05_JPRB,0.84488E-06_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.54243E-06_JPRB,0.11660E-05_JPRB,0.14288E-05_JPRB,0.15891E-05_JPRB,0.16619E-05_JPRB, &
+ & 0.16672E-05_JPRB,0.15978E-05_JPRB,0.14265E-05_JPRB,0.92439E-06_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.42860E-06_JPRB,0.91208E-06_JPRB,0.10887E-05_JPRB,0.11732E-05_JPRB,0.12000E-05_JPRB, &
+ & 0.11901E-05_JPRB,0.11300E-05_JPRB,0.10181E-05_JPRB,0.51360E-06_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.42605E-06_JPRB,0.91355E-06_JPRB,0.11105E-05_JPRB,0.12004E-05_JPRB,0.12359E-05_JPRB, &
+ & 0.12238E-05_JPRB,0.11674E-05_JPRB,0.10496E-05_JPRB,0.58593E-06_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.42910E-06_JPRB,0.92458E-06_JPRB,0.11341E-05_JPRB,0.12355E-05_JPRB,0.12754E-05_JPRB, &
+ & 0.12667E-05_JPRB,0.12100E-05_JPRB,0.10877E-05_JPRB,0.65209E-06_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.43345E-06_JPRB,0.94024E-06_JPRB,0.11540E-05_JPRB,0.12669E-05_JPRB,0.13186E-05_JPRB, &
+ & 0.13163E-05_JPRB,0.12567E-05_JPRB,0.11280E-05_JPRB,0.72051E-06_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.43744E-06_JPRB,0.95845E-06_JPRB,0.11764E-05_JPRB,0.13022E-05_JPRB,0.13595E-05_JPRB, &
+ & 0.13618E-05_JPRB,0.13034E-05_JPRB,0.11671E-05_JPRB,0.79373E-06_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.34458E-06_JPRB,0.74844E-06_JPRB,0.89217E-06_JPRB,0.95875E-06_JPRB,0.98243E-06_JPRB, &
+ & 0.97566E-06_JPRB,0.92936E-06_JPRB,0.83611E-06_JPRB,0.44181E-06_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.34797E-06_JPRB,0.75304E-06_JPRB,0.90816E-06_JPRB,0.98264E-06_JPRB,0.10080E-05_JPRB, &
+ & 0.99889E-06_JPRB,0.95318E-06_JPRB,0.86041E-06_JPRB,0.51013E-06_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.34593E-06_JPRB,0.76020E-06_JPRB,0.92707E-06_JPRB,0.10062E-05_JPRB,0.10391E-05_JPRB, &
+ & 0.10296E-05_JPRB,0.98530E-06_JPRB,0.89011E-06_JPRB,0.58070E-06_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.34971E-06_JPRB,0.77088E-06_JPRB,0.94623E-06_JPRB,0.10342E-05_JPRB,0.10726E-05_JPRB, &
+ & 0.10689E-05_JPRB,0.10210E-05_JPRB,0.92020E-06_JPRB,0.65697E-06_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.35282E-06_JPRB,0.78517E-06_JPRB,0.96245E-06_JPRB,0.10609E-05_JPRB,0.11071E-05_JPRB, &
+ & 0.11073E-05_JPRB,0.10583E-05_JPRB,0.95054E-06_JPRB,0.72956E-06_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.27840E-06_JPRB,0.61035E-06_JPRB,0.72930E-06_JPRB,0.78415E-06_JPRB,0.80451E-06_JPRB, &
+ & 0.79924E-06_JPRB,0.76231E-06_JPRB,0.68727E-06_JPRB,0.40208E-06_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.28171E-06_JPRB,0.61798E-06_JPRB,0.74197E-06_JPRB,0.80115E-06_JPRB,0.82183E-06_JPRB, &
+ & 0.81621E-06_JPRB,0.78030E-06_JPRB,0.70425E-06_JPRB,0.46700E-06_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.28023E-06_JPRB,0.62269E-06_JPRB,0.75685E-06_JPRB,0.82101E-06_JPRB,0.84538E-06_JPRB, &
+ & 0.83821E-06_JPRB,0.80301E-06_JPRB,0.72663E-06_JPRB,0.53781E-06_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.28163E-06_JPRB,0.63156E-06_JPRB,0.77214E-06_JPRB,0.84244E-06_JPRB,0.87184E-06_JPRB, &
+ & 0.86752E-06_JPRB,0.83024E-06_JPRB,0.75000E-06_JPRB,0.60478E-06_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.28518E-06_JPRB,0.64070E-06_JPRB,0.78628E-06_JPRB,0.86439E-06_JPRB,0.89969E-06_JPRB, &
+ & 0.89910E-06_JPRB,0.85933E-06_JPRB,0.77376E-06_JPRB,0.67016E-06_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.22555E-06_JPRB,0.50042E-06_JPRB,0.59960E-06_JPRB,0.64537E-06_JPRB,0.66324E-06_JPRB, &
+ & 0.65924E-06_JPRB,0.63003E-06_JPRB,0.56890E-06_JPRB,0.34466E-06_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.22858E-06_JPRB,0.50705E-06_JPRB,0.60997E-06_JPRB,0.65948E-06_JPRB,0.67688E-06_JPRB, &
+ & 0.67311E-06_JPRB,0.64462E-06_JPRB,0.58333E-06_JPRB,0.40300E-06_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.22677E-06_JPRB,0.51178E-06_JPRB,0.62299E-06_JPRB,0.67572E-06_JPRB,0.69624E-06_JPRB, &
+ & 0.69126E-06_JPRB,0.66285E-06_JPRB,0.60090E-06_JPRB,0.46066E-06_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.22825E-06_JPRB,0.51907E-06_JPRB,0.63500E-06_JPRB,0.69311E-06_JPRB,0.71796E-06_JPRB, &
+ & 0.71484E-06_JPRB,0.68416E-06_JPRB,0.61859E-06_JPRB,0.51966E-06_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.23122E-06_JPRB,0.52598E-06_JPRB,0.64574E-06_JPRB,0.71116E-06_JPRB,0.74046E-06_JPRB, &
+ & 0.73979E-06_JPRB,0.70672E-06_JPRB,0.63708E-06_JPRB,0.58196E-06_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.18149E-06_JPRB,0.40829E-06_JPRB,0.49022E-06_JPRB,0.52910E-06_JPRB,0.54408E-06_JPRB, &
+ & 0.54163E-06_JPRB,0.51867E-06_JPRB,0.46933E-06_JPRB,0.28496E-06_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.18433E-06_JPRB,0.41378E-06_JPRB,0.49908E-06_JPRB,0.54027E-06_JPRB,0.55522E-06_JPRB, &
+ & 0.55286E-06_JPRB,0.53038E-06_JPRB,0.48103E-06_JPRB,0.33336E-06_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.18246E-06_JPRB,0.41799E-06_JPRB,0.50965E-06_JPRB,0.55347E-06_JPRB,0.57134E-06_JPRB, &
+ & 0.56787E-06_JPRB,0.54477E-06_JPRB,0.49462E-06_JPRB,0.38023E-06_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.18409E-06_JPRB,0.42347E-06_JPRB,0.51936E-06_JPRB,0.56749E-06_JPRB,0.58877E-06_JPRB, &
+ & 0.58648E-06_JPRB,0.56149E-06_JPRB,0.50825E-06_JPRB,0.43081E-06_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.18582E-06_JPRB,0.42888E-06_JPRB,0.52830E-06_JPRB,0.58240E-06_JPRB,0.60647E-06_JPRB, &
+ & 0.60598E-06_JPRB,0.57933E-06_JPRB,0.52277E-06_JPRB,0.48565E-06_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.14345E-06_JPRB,0.32927E-06_JPRB,0.39750E-06_JPRB,0.43000E-06_JPRB,0.44318E-06_JPRB, &
+ & 0.44201E-06_JPRB,0.42469E-06_JPRB,0.38538E-06_JPRB,0.23377E-06_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.14571E-06_JPRB,0.33355E-06_JPRB,0.40430E-06_JPRB,0.43954E-06_JPRB,0.45256E-06_JPRB, &
+ & 0.45159E-06_JPRB,0.43399E-06_JPRB,0.39467E-06_JPRB,0.27338E-06_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.14442E-06_JPRB,0.33719E-06_JPRB,0.41316E-06_JPRB,0.44996E-06_JPRB,0.46575E-06_JPRB, &
+ & 0.46364E-06_JPRB,0.44528E-06_JPRB,0.40510E-06_JPRB,0.31154E-06_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.14600E-06_JPRB,0.34141E-06_JPRB,0.42136E-06_JPRB,0.46096E-06_JPRB,0.47937E-06_JPRB, &
+ & 0.47817E-06_JPRB,0.45850E-06_JPRB,0.41598E-06_JPRB,0.35289E-06_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.14667E-06_JPRB,0.34608E-06_JPRB,0.42853E-06_JPRB,0.47296E-06_JPRB,0.49300E-06_JPRB, &
+ & 0.49352E-06_JPRB,0.47280E-06_JPRB,0.42757E-06_JPRB,0.39752E-06_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.16288E-04_JPRB,0.25817E-04_JPRB,0.29597E-04_JPRB,0.31319E-04_JPRB,0.31220E-04_JPRB, &
+ & 0.29539E-04_JPRB,0.25627E-04_JPRB,0.19758E-04_JPRB,0.72944E-05_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.18123E-04_JPRB,0.28565E-04_JPRB,0.32633E-04_JPRB,0.34427E-04_JPRB,0.34219E-04_JPRB, &
+ & 0.32223E-04_JPRB,0.27987E-04_JPRB,0.21485E-04_JPRB,0.79554E-05_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.19957E-04_JPRB,0.31607E-04_JPRB,0.36033E-04_JPRB,0.37887E-04_JPRB,0.37694E-04_JPRB, &
+ & 0.35399E-04_JPRB,0.30718E-04_JPRB,0.23412E-04_JPRB,0.85293E-05_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.22005E-04_JPRB,0.35064E-04_JPRB,0.39763E-04_JPRB,0.41694E-04_JPRB,0.41490E-04_JPRB, &
+ & 0.38891E-04_JPRB,0.33715E-04_JPRB,0.25512E-04_JPRB,0.91232E-05_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.24240E-04_JPRB,0.38906E-04_JPRB,0.43899E-04_JPRB,0.45870E-04_JPRB,0.45580E-04_JPRB, &
+ & 0.42616E-04_JPRB,0.36912E-04_JPRB,0.27728E-04_JPRB,0.97792E-05_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.14944E-04_JPRB,0.23223E-04_JPRB,0.25792E-04_JPRB,0.27019E-04_JPRB,0.26963E-04_JPRB, &
+ & 0.25431E-04_JPRB,0.22069E-04_JPRB,0.16933E-04_JPRB,0.59071E-05_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.16615E-04_JPRB,0.25452E-04_JPRB,0.28322E-04_JPRB,0.29800E-04_JPRB,0.29593E-04_JPRB, &
+ & 0.27776E-04_JPRB,0.24123E-04_JPRB,0.18444E-04_JPRB,0.63142E-05_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.18355E-04_JPRB,0.27996E-04_JPRB,0.31338E-04_JPRB,0.32892E-04_JPRB,0.32575E-04_JPRB, &
+ & 0.30478E-04_JPRB,0.26504E-04_JPRB,0.20132E-04_JPRB,0.67898E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.20092E-04_JPRB,0.30938E-04_JPRB,0.34680E-04_JPRB,0.36255E-04_JPRB,0.35836E-04_JPRB, &
+ & 0.33500E-04_JPRB,0.29106E-04_JPRB,0.21950E-04_JPRB,0.73343E-05_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.21897E-04_JPRB,0.34150E-04_JPRB,0.38274E-04_JPRB,0.39931E-04_JPRB,0.39337E-04_JPRB, &
+ & 0.36752E-04_JPRB,0.31831E-04_JPRB,0.23882E-04_JPRB,0.78705E-05_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.13130E-04_JPRB,0.20363E-04_JPRB,0.22377E-04_JPRB,0.23003E-04_JPRB,0.22683E-04_JPRB, &
+ & 0.21429E-04_JPRB,0.18621E-04_JPRB,0.14177E-04_JPRB,0.47892E-05_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.14610E-04_JPRB,0.22299E-04_JPRB,0.24486E-04_JPRB,0.25140E-04_JPRB,0.24842E-04_JPRB, &
+ & 0.23413E-04_JPRB,0.20361E-04_JPRB,0.15469E-04_JPRB,0.52250E-05_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.16133E-04_JPRB,0.24482E-04_JPRB,0.26876E-04_JPRB,0.27653E-04_JPRB,0.27357E-04_JPRB, &
+ & 0.25669E-04_JPRB,0.22341E-04_JPRB,0.16897E-04_JPRB,0.56647E-05_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.17708E-04_JPRB,0.26887E-04_JPRB,0.29522E-04_JPRB,0.30577E-04_JPRB,0.30151E-04_JPRB, &
+ & 0.28221E-04_JPRB,0.24545E-04_JPRB,0.18455E-04_JPRB,0.60735E-05_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.19305E-04_JPRB,0.29364E-04_JPRB,0.32520E-04_JPRB,0.33741E-04_JPRB,0.33162E-04_JPRB, &
+ & 0.30976E-04_JPRB,0.26800E-04_JPRB,0.20103E-04_JPRB,0.64864E-05_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.11163E-04_JPRB,0.17498E-04_JPRB,0.19069E-04_JPRB,0.19561E-04_JPRB,0.19154E-04_JPRB, &
+ & 0.17906E-04_JPRB,0.15522E-04_JPRB,0.11778E-04_JPRB,0.40461E-05_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.12505E-04_JPRB,0.19238E-04_JPRB,0.20917E-04_JPRB,0.21365E-04_JPRB,0.20913E-04_JPRB, &
+ & 0.19471E-04_JPRB,0.16986E-04_JPRB,0.12856E-04_JPRB,0.43935E-05_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.13848E-04_JPRB,0.21132E-04_JPRB,0.22975E-04_JPRB,0.23433E-04_JPRB,0.22893E-04_JPRB, &
+ & 0.21327E-04_JPRB,0.18662E-04_JPRB,0.14056E-04_JPRB,0.47015E-05_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.15219E-04_JPRB,0.23159E-04_JPRB,0.25250E-04_JPRB,0.25753E-04_JPRB,0.25088E-04_JPRB, &
+ & 0.23437E-04_JPRB,0.20455E-04_JPRB,0.15366E-04_JPRB,0.50239E-05_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.16631E-04_JPRB,0.25311E-04_JPRB,0.27651E-04_JPRB,0.28243E-04_JPRB,0.27566E-04_JPRB, &
+ & 0.25775E-04_JPRB,0.22344E-04_JPRB,0.16758E-04_JPRB,0.53594E-05_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.92688E-05_JPRB,0.14829E-04_JPRB,0.16036E-04_JPRB,0.16388E-04_JPRB,0.16087E-04_JPRB, &
+ & 0.15049E-04_JPRB,0.12939E-04_JPRB,0.97243E-05_JPRB,0.35064E-05_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.10428E-04_JPRB,0.16289E-04_JPRB,0.17596E-04_JPRB,0.17928E-04_JPRB,0.17547E-04_JPRB, &
+ & 0.16347E-04_JPRB,0.14108E-04_JPRB,0.10621E-04_JPRB,0.37893E-05_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.11600E-04_JPRB,0.17922E-04_JPRB,0.19403E-04_JPRB,0.19701E-04_JPRB,0.19227E-04_JPRB, &
+ & 0.17835E-04_JPRB,0.15439E-04_JPRB,0.11627E-04_JPRB,0.40426E-05_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.12795E-04_JPRB,0.19672E-04_JPRB,0.21360E-04_JPRB,0.21677E-04_JPRB,0.21078E-04_JPRB, &
+ & 0.19535E-04_JPRB,0.16919E-04_JPRB,0.12746E-04_JPRB,0.43015E-05_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.14029E-04_JPRB,0.21551E-04_JPRB,0.23410E-04_JPRB,0.23746E-04_JPRB,0.23106E-04_JPRB, &
+ & 0.21397E-04_JPRB,0.18500E-04_JPRB,0.13918E-04_JPRB,0.45663E-05_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.75358E-05_JPRB,0.12284E-04_JPRB,0.13321E-04_JPRB,0.13580E-04_JPRB,0.13322E-04_JPRB, &
+ & 0.12459E-04_JPRB,0.10757E-04_JPRB,0.80012E-05_JPRB,0.28595E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.84801E-05_JPRB,0.13541E-04_JPRB,0.14600E-04_JPRB,0.14857E-04_JPRB,0.14519E-04_JPRB, &
+ & 0.13528E-04_JPRB,0.11747E-04_JPRB,0.87199E-05_JPRB,0.31250E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.94797E-05_JPRB,0.14898E-04_JPRB,0.16088E-04_JPRB,0.16329E-04_JPRB,0.15922E-04_JPRB, &
+ & 0.14786E-04_JPRB,0.12839E-04_JPRB,0.95406E-05_JPRB,0.33925E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.10510E-04_JPRB,0.16387E-04_JPRB,0.17709E-04_JPRB,0.17968E-04_JPRB,0.17465E-04_JPRB, &
+ & 0.16205E-04_JPRB,0.13999E-04_JPRB,0.10465E-04_JPRB,0.36786E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.11554E-04_JPRB,0.17973E-04_JPRB,0.19442E-04_JPRB,0.19736E-04_JPRB,0.19170E-04_JPRB, &
+ & 0.17751E-04_JPRB,0.15288E-04_JPRB,0.11441E-04_JPRB,0.39618E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.59994E-05_JPRB,0.10068E-04_JPRB,0.10903E-04_JPRB,0.11100E-04_JPRB,0.10910E-04_JPRB, &
+ & 0.10207E-04_JPRB,0.88301E-05_JPRB,0.65755E-05_JPRB,0.23537E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.67911E-05_JPRB,0.11098E-04_JPRB,0.11964E-04_JPRB,0.12161E-04_JPRB,0.11910E-04_JPRB, &
+ & 0.11113E-04_JPRB,0.96475E-05_JPRB,0.71733E-05_JPRB,0.26021E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.76012E-05_JPRB,0.12205E-04_JPRB,0.13167E-04_JPRB,0.13368E-04_JPRB,0.13058E-04_JPRB, &
+ & 0.12136E-04_JPRB,0.10571E-04_JPRB,0.78452E-05_JPRB,0.28416E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.84582E-05_JPRB,0.13412E-04_JPRB,0.14518E-04_JPRB,0.14721E-04_JPRB,0.14328E-04_JPRB, &
+ & 0.13323E-04_JPRB,0.11527E-04_JPRB,0.85995E-05_JPRB,0.30925E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.93346E-05_JPRB,0.14749E-04_JPRB,0.15973E-04_JPRB,0.16180E-04_JPRB,0.15730E-04_JPRB, &
+ & 0.14597E-04_JPRB,0.12601E-04_JPRB,0.93973E-05_JPRB,0.33285E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.47174E-05_JPRB,0.81367E-05_JPRB,0.88184E-05_JPRB,0.90007E-05_JPRB,0.88363E-05_JPRB, &
+ & 0.83059E-05_JPRB,0.72101E-05_JPRB,0.53496E-05_JPRB,0.18862E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.53543E-05_JPRB,0.89852E-05_JPRB,0.96904E-05_JPRB,0.98666E-05_JPRB,0.96509E-05_JPRB, &
+ & 0.90368E-05_JPRB,0.78700E-05_JPRB,0.58341E-05_JPRB,0.21147E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.60088E-05_JPRB,0.98855E-05_JPRB,0.10666E-04_JPRB,0.10849E-04_JPRB,0.10597E-04_JPRB, &
+ & 0.98826E-05_JPRB,0.86243E-05_JPRB,0.63949E-05_JPRB,0.23672E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.66958E-05_JPRB,0.10873E-04_JPRB,0.11751E-04_JPRB,0.11945E-04_JPRB,0.11636E-04_JPRB, &
+ & 0.10852E-04_JPRB,0.94101E-05_JPRB,0.70262E-05_JPRB,0.26329E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.74191E-05_JPRB,0.11960E-04_JPRB,0.12943E-04_JPRB,0.13152E-04_JPRB,0.12788E-04_JPRB, &
+ & 0.11889E-04_JPRB,0.10297E-04_JPRB,0.76977E-05_JPRB,0.29019E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.36886E-05_JPRB,0.65140E-05_JPRB,0.70684E-05_JPRB,0.72377E-05_JPRB,0.71080E-05_JPRB, &
+ & 0.67076E-05_JPRB,0.58353E-05_JPRB,0.43297E-05_JPRB,0.16419E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.41772E-05_JPRB,0.72104E-05_JPRB,0.77793E-05_JPRB,0.79335E-05_JPRB,0.77682E-05_JPRB, &
+ & 0.72903E-05_JPRB,0.63640E-05_JPRB,0.47210E-05_JPRB,0.18721E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.47123E-05_JPRB,0.79471E-05_JPRB,0.85662E-05_JPRB,0.87396E-05_JPRB,0.85319E-05_JPRB, &
+ & 0.79769E-05_JPRB,0.69694E-05_JPRB,0.51793E-05_JPRB,0.21015E-05_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.52612E-05_JPRB,0.87319E-05_JPRB,0.94365E-05_JPRB,0.96191E-05_JPRB,0.93783E-05_JPRB, &
+ & 0.87581E-05_JPRB,0.76277E-05_JPRB,0.56974E-05_JPRB,0.23505E-05_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.58401E-05_JPRB,0.96106E-05_JPRB,0.10404E-04_JPRB,0.10594E-04_JPRB,0.10308E-04_JPRB, &
+ & 0.96030E-05_JPRB,0.83402E-05_JPRB,0.62627E-05_JPRB,0.26170E-05_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.29023E-05_JPRB,0.52230E-05_JPRB,0.56669E-05_JPRB,0.58158E-05_JPRB,0.57137E-05_JPRB, &
+ & 0.54241E-05_JPRB,0.47416E-05_JPRB,0.35098E-05_JPRB,0.14223E-05_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.32752E-05_JPRB,0.57903E-05_JPRB,0.62548E-05_JPRB,0.63859E-05_JPRB,0.62528E-05_JPRB, &
+ & 0.58881E-05_JPRB,0.51542E-05_JPRB,0.38257E-05_JPRB,0.16559E-05_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.37047E-05_JPRB,0.63892E-05_JPRB,0.68928E-05_JPRB,0.70312E-05_JPRB,0.68734E-05_JPRB, &
+ & 0.64357E-05_JPRB,0.56361E-05_JPRB,0.42003E-05_JPRB,0.19248E-05_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.41471E-05_JPRB,0.70179E-05_JPRB,0.75920E-05_JPRB,0.77496E-05_JPRB,0.75508E-05_JPRB, &
+ & 0.70624E-05_JPRB,0.61778E-05_JPRB,0.46271E-05_JPRB,0.22074E-05_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.46061E-05_JPRB,0.77215E-05_JPRB,0.83699E-05_JPRB,0.85300E-05_JPRB,0.83121E-05_JPRB, &
+ & 0.77493E-05_JPRB,0.67551E-05_JPRB,0.50931E-05_JPRB,0.25043E-05_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.24060E-05_JPRB,0.43752E-05_JPRB,0.47372E-05_JPRB,0.48598E-05_JPRB,0.47689E-05_JPRB, &
+ & 0.45290E-05_JPRB,0.39653E-05_JPRB,0.29444E-05_JPRB,0.12255E-05_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.27123E-05_JPRB,0.48479E-05_JPRB,0.52339E-05_JPRB,0.53482E-05_JPRB,0.52342E-05_JPRB, &
+ & 0.49275E-05_JPRB,0.43239E-05_JPRB,0.32196E-05_JPRB,0.14282E-05_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.30632E-05_JPRB,0.53402E-05_JPRB,0.57660E-05_JPRB,0.58936E-05_JPRB,0.57515E-05_JPRB, &
+ & 0.53873E-05_JPRB,0.47344E-05_JPRB,0.35410E-05_JPRB,0.16636E-05_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.34245E-05_JPRB,0.58653E-05_JPRB,0.63554E-05_JPRB,0.64878E-05_JPRB,0.63244E-05_JPRB, &
+ & 0.59147E-05_JPRB,0.51855E-05_JPRB,0.39068E-05_JPRB,0.18858E-05_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.37984E-05_JPRB,0.64557E-05_JPRB,0.70032E-05_JPRB,0.71432E-05_JPRB,0.69591E-05_JPRB, &
+ & 0.64936E-05_JPRB,0.56748E-05_JPRB,0.42889E-05_JPRB,0.21529E-05_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.19822E-05_JPRB,0.36438E-05_JPRB,0.39439E-05_JPRB,0.40428E-05_JPRB,0.39656E-05_JPRB, &
+ & 0.37627E-05_JPRB,0.33048E-05_JPRB,0.24620E-05_JPRB,0.10349E-05_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.22347E-05_JPRB,0.40329E-05_JPRB,0.43559E-05_JPRB,0.44535E-05_JPRB,0.43556E-05_JPRB, &
+ & 0.41018E-05_JPRB,0.36156E-05_JPRB,0.26976E-05_JPRB,0.12078E-05_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.25196E-05_JPRB,0.44405E-05_JPRB,0.47965E-05_JPRB,0.49025E-05_JPRB,0.47850E-05_JPRB, &
+ & 0.44854E-05_JPRB,0.39542E-05_JPRB,0.29734E-05_JPRB,0.13908E-05_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.28142E-05_JPRB,0.48792E-05_JPRB,0.52882E-05_JPRB,0.53962E-05_JPRB,0.52646E-05_JPRB, &
+ & 0.49202E-05_JPRB,0.43229E-05_JPRB,0.32817E-05_JPRB,0.15895E-05_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.31182E-05_JPRB,0.53684E-05_JPRB,0.58256E-05_JPRB,0.59413E-05_JPRB,0.57855E-05_JPRB, &
+ & 0.54043E-05_JPRB,0.47298E-05_JPRB,0.35925E-05_JPRB,0.18050E-05_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.16206E-05_JPRB,0.30122E-05_JPRB,0.32612E-05_JPRB,0.33451E-05_JPRB,0.32794E-05_JPRB, &
+ & 0.31144E-05_JPRB,0.27430E-05_JPRB,0.20488E-05_JPRB,0.85267E-06_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.18267E-05_JPRB,0.33331E-05_JPRB,0.36002E-05_JPRB,0.36816E-05_JPRB,0.36054E-05_JPRB, &
+ & 0.33950E-05_JPRB,0.30021E-05_JPRB,0.22487E-05_JPRB,0.99490E-06_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.20587E-05_JPRB,0.36681E-05_JPRB,0.39651E-05_JPRB,0.40531E-05_JPRB,0.39564E-05_JPRB, &
+ & 0.37127E-05_JPRB,0.32815E-05_JPRB,0.24795E-05_JPRB,0.11422E-05_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.22973E-05_JPRB,0.40325E-05_JPRB,0.43728E-05_JPRB,0.44600E-05_JPRB,0.43540E-05_JPRB, &
+ & 0.40718E-05_JPRB,0.35848E-05_JPRB,0.27366E-05_JPRB,0.13051E-05_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.25452E-05_JPRB,0.44379E-05_JPRB,0.48164E-05_JPRB,0.49100E-05_JPRB,0.47833E-05_JPRB, &
+ & 0.44674E-05_JPRB,0.39194E-05_JPRB,0.29904E-05_JPRB,0.14817E-05_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.66641E-04_JPRB,0.92990E-04_JPRB,0.96277E-04_JPRB,0.95182E-04_JPRB,0.91424E-04_JPRB, &
+ & 0.85445E-04_JPRB,0.77014E-04_JPRB,0.62091E-04_JPRB,0.18284E-04_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.75350E-04_JPRB,0.10391E-03_JPRB,0.10751E-03_JPRB,0.10606E-03_JPRB,0.10174E-03_JPRB, &
+ & 0.94756E-04_JPRB,0.84487E-04_JPRB,0.67267E-04_JPRB,0.20037E-04_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.85286E-04_JPRB,0.11563E-03_JPRB,0.11966E-03_JPRB,0.11777E-03_JPRB,0.11259E-03_JPRB, &
+ & 0.10435E-03_JPRB,0.92076E-04_JPRB,0.72492E-04_JPRB,0.22229E-04_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.96137E-04_JPRB,0.12836E-03_JPRB,0.13265E-03_JPRB,0.13031E-03_JPRB,0.12404E-03_JPRB, &
+ & 0.11409E-03_JPRB,0.99756E-04_JPRB,0.77897E-04_JPRB,0.24656E-04_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.10739E-03_JPRB,0.14209E-03_JPRB,0.14652E-03_JPRB,0.14363E-03_JPRB,0.13579E-03_JPRB, &
+ & 0.12408E-03_JPRB,0.10749E-03_JPRB,0.83273E-04_JPRB,0.26998E-04_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.57005E-04_JPRB,0.80688E-04_JPRB,0.84199E-04_JPRB,0.83067E-04_JPRB,0.79480E-04_JPRB, &
+ & 0.74096E-04_JPRB,0.66328E-04_JPRB,0.53532E-04_JPRB,0.14534E-04_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.64518E-04_JPRB,0.90274E-04_JPRB,0.94149E-04_JPRB,0.92496E-04_JPRB,0.88374E-04_JPRB, &
+ & 0.82048E-04_JPRB,0.72698E-04_JPRB,0.57871E-04_JPRB,0.16202E-04_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.73014E-04_JPRB,0.10065E-03_JPRB,0.10466E-03_JPRB,0.10271E-03_JPRB,0.97880E-04_JPRB, &
+ & 0.90372E-04_JPRB,0.79361E-04_JPRB,0.62357E-04_JPRB,0.18056E-04_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.82297E-04_JPRB,0.11195E-03_JPRB,0.11586E-03_JPRB,0.11365E-03_JPRB,0.10799E-03_JPRB, &
+ & 0.98829E-04_JPRB,0.85923E-04_JPRB,0.66891E-04_JPRB,0.19890E-04_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.92175E-04_JPRB,0.12399E-03_JPRB,0.12794E-03_JPRB,0.12531E-03_JPRB,0.11825E-03_JPRB, &
+ & 0.10764E-03_JPRB,0.92744E-04_JPRB,0.71608E-04_JPRB,0.21968E-04_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.47324E-04_JPRB,0.68167E-04_JPRB,0.71069E-04_JPRB,0.70293E-04_JPRB,0.67313E-04_JPRB, &
+ & 0.62456E-04_JPRB,0.55646E-04_JPRB,0.44933E-04_JPRB,0.11374E-04_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.53658E-04_JPRB,0.76342E-04_JPRB,0.79560E-04_JPRB,0.78547E-04_JPRB,0.74997E-04_JPRB, &
+ & 0.69264E-04_JPRB,0.61119E-04_JPRB,0.48587E-04_JPRB,0.12639E-04_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.60905E-04_JPRB,0.85247E-04_JPRB,0.88738E-04_JPRB,0.87387E-04_JPRB,0.83098E-04_JPRB, &
+ & 0.76432E-04_JPRB,0.66733E-04_JPRB,0.52275E-04_JPRB,0.13871E-04_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.68831E-04_JPRB,0.94960E-04_JPRB,0.98638E-04_JPRB,0.96778E-04_JPRB,0.91816E-04_JPRB, &
+ & 0.83747E-04_JPRB,0.72403E-04_JPRB,0.56165E-04_JPRB,0.15423E-04_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.77259E-04_JPRB,0.10549E-03_JPRB,0.10909E-03_JPRB,0.10672E-03_JPRB,0.10065E-03_JPRB, &
+ & 0.91320E-04_JPRB,0.78406E-04_JPRB,0.60157E-04_JPRB,0.17141E-04_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.40102E-04_JPRB,0.56990E-04_JPRB,0.59444E-04_JPRB,0.58732E-04_JPRB,0.56091E-04_JPRB, &
+ & 0.51902E-04_JPRB,0.46247E-04_JPRB,0.37442E-04_JPRB,0.94022E-05_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.44930E-04_JPRB,0.63893E-04_JPRB,0.66629E-04_JPRB,0.65694E-04_JPRB,0.62627E-04_JPRB, &
+ & 0.57822E-04_JPRB,0.50819E-04_JPRB,0.40421E-04_JPRB,0.10475E-04_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.50532E-04_JPRB,0.71424E-04_JPRB,0.74352E-04_JPRB,0.73221E-04_JPRB,0.69651E-04_JPRB, &
+ & 0.64034E-04_JPRB,0.55430E-04_JPRB,0.43529E-04_JPRB,0.11728E-04_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.56953E-04_JPRB,0.79740E-04_JPRB,0.82769E-04_JPRB,0.81314E-04_JPRB,0.77278E-04_JPRB, &
+ & 0.70324E-04_JPRB,0.60396E-04_JPRB,0.46747E-04_JPRB,0.13063E-04_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.64019E-04_JPRB,0.88647E-04_JPRB,0.91768E-04_JPRB,0.89926E-04_JPRB,0.84958E-04_JPRB, &
+ & 0.76740E-04_JPRB,0.65561E-04_JPRB,0.50066E-04_JPRB,0.14435E-04_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.33806E-04_JPRB,0.47826E-04_JPRB,0.49443E-04_JPRB,0.48775E-04_JPRB,0.46477E-04_JPRB, &
+ & 0.42791E-04_JPRB,0.38155E-04_JPRB,0.31175E-04_JPRB,0.77886E-05_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.37973E-04_JPRB,0.53392E-04_JPRB,0.55526E-04_JPRB,0.54719E-04_JPRB,0.52062E-04_JPRB, &
+ & 0.47763E-04_JPRB,0.42021E-04_JPRB,0.33510E-04_JPRB,0.87404E-05_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.42758E-04_JPRB,0.59666E-04_JPRB,0.62058E-04_JPRB,0.61127E-04_JPRB,0.58012E-04_JPRB, &
+ & 0.53071E-04_JPRB,0.45971E-04_JPRB,0.36114E-04_JPRB,0.98499E-05_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.48006E-04_JPRB,0.66679E-04_JPRB,0.69230E-04_JPRB,0.67989E-04_JPRB,0.64400E-04_JPRB, &
+ & 0.58521E-04_JPRB,0.50196E-04_JPRB,0.38710E-04_JPRB,0.11022E-04_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.53657E-04_JPRB,0.74244E-04_JPRB,0.76813E-04_JPRB,0.75303E-04_JPRB,0.71011E-04_JPRB, &
+ & 0.64092E-04_JPRB,0.54599E-04_JPRB,0.41481E-04_JPRB,0.12225E-04_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.27953E-04_JPRB,0.40223E-04_JPRB,0.41331E-04_JPRB,0.40332E-04_JPRB,0.38114E-04_JPRB, &
+ & 0.34967E-04_JPRB,0.31158E-04_JPRB,0.25701E-04_JPRB,0.67604E-05_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.31595E-04_JPRB,0.44975E-04_JPRB,0.46374E-04_JPRB,0.45229E-04_JPRB,0.42775E-04_JPRB, &
+ & 0.39162E-04_JPRB,0.34373E-04_JPRB,0.27616E-04_JPRB,0.75558E-05_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.35649E-04_JPRB,0.50263E-04_JPRB,0.51713E-04_JPRB,0.50516E-04_JPRB,0.47855E-04_JPRB, &
+ & 0.43605E-04_JPRB,0.37705E-04_JPRB,0.29800E-04_JPRB,0.84063E-05_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.40086E-04_JPRB,0.55905E-04_JPRB,0.57584E-04_JPRB,0.56348E-04_JPRB,0.53200E-04_JPRB, &
+ & 0.48283E-04_JPRB,0.41331E-04_JPRB,0.31936E-04_JPRB,0.92686E-05_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.44931E-04_JPRB,0.62025E-04_JPRB,0.63942E-04_JPRB,0.62498E-04_JPRB,0.58788E-04_JPRB, &
+ & 0.53032E-04_JPRB,0.45085E-04_JPRB,0.34229E-04_JPRB,0.10175E-04_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.22829E-04_JPRB,0.33278E-04_JPRB,0.34196E-04_JPRB,0.33381E-04_JPRB,0.31444E-04_JPRB, &
+ & 0.28615E-04_JPRB,0.25331E-04_JPRB,0.21096E-04_JPRB,0.60732E-05_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.25917E-04_JPRB,0.37424E-04_JPRB,0.38527E-04_JPRB,0.37580E-04_JPRB,0.35302E-04_JPRB, &
+ & 0.32020E-04_JPRB,0.27957E-04_JPRB,0.22660E-04_JPRB,0.68180E-05_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.29386E-04_JPRB,0.41933E-04_JPRB,0.43213E-04_JPRB,0.42039E-04_JPRB,0.39445E-04_JPRB, &
+ & 0.35659E-04_JPRB,0.30780E-04_JPRB,0.24432E-04_JPRB,0.76296E-05_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.33186E-04_JPRB,0.46811E-04_JPRB,0.48218E-04_JPRB,0.46849E-04_JPRB,0.43848E-04_JPRB, &
+ & 0.39567E-04_JPRB,0.33858E-04_JPRB,0.26257E-04_JPRB,0.82634E-05_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.37227E-04_JPRB,0.52060E-04_JPRB,0.53592E-04_JPRB,0.51948E-04_JPRB,0.48471E-04_JPRB, &
+ & 0.43595E-04_JPRB,0.37022E-04_JPRB,0.28130E-04_JPRB,0.90053E-05_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.18333E-04_JPRB,0.27259E-04_JPRB,0.27929E-04_JPRB,0.27230E-04_JPRB,0.25672E-04_JPRB, &
+ & 0.23374E-04_JPRB,0.20571E-04_JPRB,0.17333E-04_JPRB,0.54157E-05_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.20948E-04_JPRB,0.30774E-04_JPRB,0.31604E-04_JPRB,0.30823E-04_JPRB,0.29002E-04_JPRB, &
+ & 0.26292E-04_JPRB,0.22734E-04_JPRB,0.18593E-04_JPRB,0.61669E-05_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.23883E-04_JPRB,0.34642E-04_JPRB,0.35656E-04_JPRB,0.34670E-04_JPRB,0.32507E-04_JPRB, &
+ & 0.29303E-04_JPRB,0.25111E-04_JPRB,0.19985E-04_JPRB,0.69048E-05_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.27098E-04_JPRB,0.38802E-04_JPRB,0.40013E-04_JPRB,0.38777E-04_JPRB,0.36214E-04_JPRB, &
+ & 0.32542E-04_JPRB,0.27674E-04_JPRB,0.21526E-04_JPRB,0.76591E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.30462E-04_JPRB,0.43307E-04_JPRB,0.44596E-04_JPRB,0.43127E-04_JPRB,0.40142E-04_JPRB, &
+ & 0.35890E-04_JPRB,0.30276E-04_JPRB,0.23065E-04_JPRB,0.84480E-05_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.14510E-04_JPRB,0.22049E-04_JPRB,0.22596E-04_JPRB,0.22021E-04_JPRB,0.20750E-04_JPRB, &
+ & 0.18895E-04_JPRB,0.16685E-04_JPRB,0.14158E-04_JPRB,0.50284E-05_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.16710E-04_JPRB,0.25012E-04_JPRB,0.25686E-04_JPRB,0.25017E-04_JPRB,0.23537E-04_JPRB, &
+ & 0.21350E-04_JPRB,0.18517E-04_JPRB,0.15170E-04_JPRB,0.59016E-05_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.19138E-04_JPRB,0.28271E-04_JPRB,0.29104E-04_JPRB,0.28272E-04_JPRB,0.26493E-04_JPRB, &
+ & 0.23916E-04_JPRB,0.20530E-04_JPRB,0.16297E-04_JPRB,0.68413E-05_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.21798E-04_JPRB,0.31859E-04_JPRB,0.32802E-04_JPRB,0.31762E-04_JPRB,0.29603E-04_JPRB, &
+ & 0.26643E-04_JPRB,0.22650E-04_JPRB,0.17559E-04_JPRB,0.78093E-05_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.24599E-04_JPRB,0.35618E-04_JPRB,0.36736E-04_JPRB,0.35456E-04_JPRB,0.32981E-04_JPRB, &
+ & 0.29459E-04_JPRB,0.24877E-04_JPRB,0.18821E-04_JPRB,0.88149E-05_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.11455E-04_JPRB,0.17796E-04_JPRB,0.18282E-04_JPRB,0.17833E-04_JPRB,0.16814E-04_JPRB, &
+ & 0.15305E-04_JPRB,0.13526E-04_JPRB,0.11628E-04_JPRB,0.47637E-05_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.13295E-04_JPRB,0.20290E-04_JPRB,0.20862E-04_JPRB,0.20316E-04_JPRB,0.19125E-04_JPRB, &
+ & 0.17348E-04_JPRB,0.15042E-04_JPRB,0.12455E-04_JPRB,0.56495E-05_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.15297E-04_JPRB,0.22994E-04_JPRB,0.23740E-04_JPRB,0.23076E-04_JPRB,0.21626E-04_JPRB, &
+ & 0.19529E-04_JPRB,0.16766E-04_JPRB,0.13399E-04_JPRB,0.65988E-05_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.17488E-04_JPRB,0.25986E-04_JPRB,0.26882E-04_JPRB,0.26021E-04_JPRB,0.24246E-04_JPRB, &
+ & 0.21820E-04_JPRB,0.18554E-04_JPRB,0.14427E-04_JPRB,0.74644E-05_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.19800E-04_JPRB,0.29160E-04_JPRB,0.30208E-04_JPRB,0.29161E-04_JPRB,0.27086E-04_JPRB, &
+ & 0.24189E-04_JPRB,0.20462E-04_JPRB,0.15474E-04_JPRB,0.84395E-05_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.96366E-05_JPRB,0.15168E-04_JPRB,0.15611E-04_JPRB,0.15230E-04_JPRB,0.14381E-04_JPRB, &
+ & 0.13058E-04_JPRB,0.11457E-04_JPRB,0.98195E-05_JPRB,0.43210E-05_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.11221E-04_JPRB,0.17304E-04_JPRB,0.17859E-04_JPRB,0.17390E-04_JPRB,0.16383E-04_JPRB, &
+ & 0.14837E-04_JPRB,0.12820E-04_JPRB,0.10541E-04_JPRB,0.50915E-05_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.12922E-04_JPRB,0.19611E-04_JPRB,0.20376E-04_JPRB,0.19769E-04_JPRB,0.18510E-04_JPRB, &
+ & 0.16733E-04_JPRB,0.14297E-04_JPRB,0.11375E-04_JPRB,0.59349E-05_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.14759E-04_JPRB,0.22226E-04_JPRB,0.23087E-04_JPRB,0.22319E-04_JPRB,0.20789E-04_JPRB, &
+ & 0.18677E-04_JPRB,0.15854E-04_JPRB,0.12233E-04_JPRB,0.68646E-05_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.16687E-04_JPRB,0.24901E-04_JPRB,0.25894E-04_JPRB,0.25020E-04_JPRB,0.23234E-04_JPRB, &
+ & 0.20746E-04_JPRB,0.17450E-04_JPRB,0.13143E-04_JPRB,0.77945E-05_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.80728E-05_JPRB,0.12833E-04_JPRB,0.13241E-04_JPRB,0.12930E-04_JPRB,0.12209E-04_JPRB, &
+ & 0.11077E-04_JPRB,0.96874E-05_JPRB,0.82518E-05_JPRB,0.36987E-05_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.94096E-05_JPRB,0.14647E-04_JPRB,0.15179E-04_JPRB,0.14789E-04_JPRB,0.13929E-04_JPRB, &
+ & 0.12614E-04_JPRB,0.10863E-04_JPRB,0.88839E-05_JPRB,0.43642E-05_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.10827E-04_JPRB,0.16625E-04_JPRB,0.17336E-04_JPRB,0.16825E-04_JPRB,0.15757E-04_JPRB, &
+ & 0.14215E-04_JPRB,0.12135E-04_JPRB,0.95702E-05_JPRB,0.51276E-05_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.12346E-04_JPRB,0.18823E-04_JPRB,0.19626E-04_JPRB,0.19011E-04_JPRB,0.17715E-04_JPRB, &
+ & 0.15891E-04_JPRB,0.13472E-04_JPRB,0.10297E-04_JPRB,0.58818E-05_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.13954E-04_JPRB,0.21071E-04_JPRB,0.21985E-04_JPRB,0.21278E-04_JPRB,0.19773E-04_JPRB, &
+ & 0.17642E-04_JPRB,0.14813E-04_JPRB,0.11109E-04_JPRB,0.66485E-05_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.67198E-05_JPRB,0.10777E-04_JPRB,0.11153E-04_JPRB,0.10900E-04_JPRB,0.10301E-04_JPRB, &
+ & 0.93345E-05_JPRB,0.81433E-05_JPRB,0.69156E-05_JPRB,0.30498E-05_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.78283E-05_JPRB,0.12283E-04_JPRB,0.12805E-04_JPRB,0.12492E-04_JPRB,0.11757E-04_JPRB, &
+ & 0.10649E-04_JPRB,0.91519E-05_JPRB,0.74495E-05_JPRB,0.36028E-05_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.89966E-05_JPRB,0.13983E-04_JPRB,0.14629E-04_JPRB,0.14218E-04_JPRB,0.13315E-04_JPRB, &
+ & 0.11990E-04_JPRB,0.10230E-04_JPRB,0.80237E-05_JPRB,0.42382E-05_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.10250E-04_JPRB,0.15794E-04_JPRB,0.16536E-04_JPRB,0.16055E-04_JPRB,0.14979E-04_JPRB, &
+ & 0.13421E-04_JPRB,0.11355E-04_JPRB,0.86371E-05_JPRB,0.48511E-05_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.11575E-04_JPRB,0.17689E-04_JPRB,0.18502E-04_JPRB,0.17950E-04_JPRB,0.16689E-04_JPRB, &
+ & 0.14883E-04_JPRB,0.12476E-04_JPRB,0.93537E-05_JPRB,0.54799E-05_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.20313E-03_JPRB,0.26410E-03_JPRB,0.27054E-03_JPRB,0.25842E-03_JPRB,0.23794E-03_JPRB, &
+ & 0.21033E-03_JPRB,0.17730E-03_JPRB,0.13831E-03_JPRB,0.52995E-04_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.22722E-03_JPRB,0.29058E-03_JPRB,0.29572E-03_JPRB,0.28200E-03_JPRB,0.25898E-03_JPRB, &
+ & 0.22814E-03_JPRB,0.19209E-03_JPRB,0.14957E-03_JPRB,0.59096E-04_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.25054E-03_JPRB,0.31580E-03_JPRB,0.31991E-03_JPRB,0.30486E-03_JPRB,0.27955E-03_JPRB, &
+ & 0.24634E-03_JPRB,0.20787E-03_JPRB,0.16179E-03_JPRB,0.65118E-04_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.27197E-03_JPRB,0.33971E-03_JPRB,0.34310E-03_JPRB,0.32677E-03_JPRB,0.30002E-03_JPRB, &
+ & 0.26574E-03_JPRB,0.22502E-03_JPRB,0.17520E-03_JPRB,0.71711E-04_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.29178E-03_JPRB,0.36213E-03_JPRB,0.36503E-03_JPRB,0.34815E-03_JPRB,0.32114E-03_JPRB, &
+ & 0.28599E-03_JPRB,0.24328E-03_JPRB,0.18958E-03_JPRB,0.78523E-04_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.17547E-03_JPRB,0.23012E-03_JPRB,0.23639E-03_JPRB,0.22606E-03_JPRB,0.20799E-03_JPRB, &
+ & 0.18326E-03_JPRB,0.15385E-03_JPRB,0.11888E-03_JPRB,0.43633E-04_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.19601E-03_JPRB,0.25269E-03_JPRB,0.25751E-03_JPRB,0.24629E-03_JPRB,0.22623E-03_JPRB, &
+ & 0.19926E-03_JPRB,0.16712E-03_JPRB,0.12877E-03_JPRB,0.48382E-04_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.21598E-03_JPRB,0.27423E-03_JPRB,0.27812E-03_JPRB,0.26576E-03_JPRB,0.24403E-03_JPRB, &
+ & 0.21552E-03_JPRB,0.18141E-03_JPRB,0.13982E-03_JPRB,0.53560E-04_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.23449E-03_JPRB,0.29482E-03_JPRB,0.29820E-03_JPRB,0.28454E-03_JPRB,0.26171E-03_JPRB, &
+ & 0.23254E-03_JPRB,0.19681E-03_JPRB,0.15192E-03_JPRB,0.59054E-04_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.25198E-03_JPRB,0.31408E-03_JPRB,0.31723E-03_JPRB,0.30341E-03_JPRB,0.28040E-03_JPRB, &
+ & 0.25022E-03_JPRB,0.21333E-03_JPRB,0.16487E-03_JPRB,0.64779E-04_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.14736E-03_JPRB,0.19483E-03_JPRB,0.20065E-03_JPRB,0.19242E-03_JPRB,0.17728E-03_JPRB, &
+ & 0.15627E-03_JPRB,0.13078E-03_JPRB,0.10037E-03_JPRB,0.34217E-04_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.16492E-03_JPRB,0.21441E-03_JPRB,0.21892E-03_JPRB,0.20980E-03_JPRB,0.19289E-03_JPRB, &
+ & 0.17000E-03_JPRB,0.14249E-03_JPRB,0.10902E-03_JPRB,0.38352E-04_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.18200E-03_JPRB,0.23294E-03_JPRB,0.23658E-03_JPRB,0.22658E-03_JPRB,0.20822E-03_JPRB, &
+ & 0.18391E-03_JPRB,0.15484E-03_JPRB,0.11888E-03_JPRB,0.42700E-04_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.19811E-03_JPRB,0.25094E-03_JPRB,0.25385E-03_JPRB,0.24276E-03_JPRB,0.22338E-03_JPRB, &
+ & 0.19841E-03_JPRB,0.16822E-03_JPRB,0.12943E-03_JPRB,0.47257E-04_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.21352E-03_JPRB,0.26784E-03_JPRB,0.27027E-03_JPRB,0.25917E-03_JPRB,0.23966E-03_JPRB, &
+ & 0.21399E-03_JPRB,0.18239E-03_JPRB,0.14058E-03_JPRB,0.51997E-04_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.12070E-03_JPRB,0.16282E-03_JPRB,0.16870E-03_JPRB,0.16215E-03_JPRB,0.14966E-03_JPRB, &
+ & 0.13195E-03_JPRB,0.11003E-03_JPRB,0.83743E-04_JPRB,0.26841E-04_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.13616E-03_JPRB,0.17979E-03_JPRB,0.18420E-03_JPRB,0.17692E-03_JPRB,0.16288E-03_JPRB, &
+ & 0.14351E-03_JPRB,0.12000E-03_JPRB,0.91324E-04_JPRB,0.29956E-04_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.15142E-03_JPRB,0.19606E-03_JPRB,0.19933E-03_JPRB,0.19132E-03_JPRB,0.17582E-03_JPRB, &
+ & 0.15506E-03_JPRB,0.13061E-03_JPRB,0.99881E-04_JPRB,0.33175E-04_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.16591E-03_JPRB,0.21170E-03_JPRB,0.21421E-03_JPRB,0.20525E-03_JPRB,0.18888E-03_JPRB, &
+ & 0.16747E-03_JPRB,0.14192E-03_JPRB,0.10907E-03_JPRB,0.36625E-04_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.17956E-03_JPRB,0.22655E-03_JPRB,0.22833E-03_JPRB,0.21949E-03_JPRB,0.20283E-03_JPRB, &
+ & 0.18086E-03_JPRB,0.15393E-03_JPRB,0.11865E-03_JPRB,0.40513E-04_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.98625E-04_JPRB,0.13480E-03_JPRB,0.14099E-03_JPRB,0.13653E-03_JPRB,0.12600E-03_JPRB, &
+ & 0.11107E-03_JPRB,0.92102E-04_JPRB,0.69414E-04_JPRB,0.22597E-04_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.11165E-03_JPRB,0.14975E-03_JPRB,0.15429E-03_JPRB,0.14886E-03_JPRB,0.13710E-03_JPRB, &
+ & 0.12076E-03_JPRB,0.10051E-03_JPRB,0.76046E-04_JPRB,0.25265E-04_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.12461E-03_JPRB,0.16391E-03_JPRB,0.16725E-03_JPRB,0.16091E-03_JPRB,0.14796E-03_JPRB, &
+ & 0.13047E-03_JPRB,0.10941E-03_JPRB,0.83193E-04_JPRB,0.27962E-04_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.13738E-03_JPRB,0.17761E-03_JPRB,0.17982E-03_JPRB,0.17281E-03_JPRB,0.15916E-03_JPRB, &
+ & 0.14087E-03_JPRB,0.11892E-03_JPRB,0.90972E-04_JPRB,0.30855E-04_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.14967E-03_JPRB,0.19066E-03_JPRB,0.19231E-03_JPRB,0.18509E-03_JPRB,0.17109E-03_JPRB, &
+ & 0.15227E-03_JPRB,0.12906E-03_JPRB,0.99136E-04_JPRB,0.34017E-04_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.79863E-04_JPRB,0.11034E-03_JPRB,0.11622E-03_JPRB,0.11400E-03_JPRB,0.10532E-03_JPRB, &
+ & 0.92978E-04_JPRB,0.76661E-04_JPRB,0.57287E-04_JPRB,0.18664E-04_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.90753E-04_JPRB,0.12318E-03_JPRB,0.12766E-03_JPRB,0.12440E-03_JPRB,0.11482E-03_JPRB, &
+ & 0.10110E-03_JPRB,0.83697E-04_JPRB,0.62663E-04_JPRB,0.20928E-04_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.10183E-03_JPRB,0.13532E-03_JPRB,0.13907E-03_JPRB,0.13464E-03_JPRB,0.12396E-03_JPRB, &
+ & 0.10925E-03_JPRB,0.90984E-04_JPRB,0.68513E-04_JPRB,0.23264E-04_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.11293E-03_JPRB,0.14742E-03_JPRB,0.14995E-03_JPRB,0.14481E-03_JPRB,0.13354E-03_JPRB, &
+ & 0.11797E-03_JPRB,0.98845E-04_JPRB,0.74965E-04_JPRB,0.25850E-04_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.12360E-03_JPRB,0.15914E-03_JPRB,0.16090E-03_JPRB,0.15521E-03_JPRB,0.14361E-03_JPRB, &
+ & 0.12755E-03_JPRB,0.10739E-03_JPRB,0.81915E-04_JPRB,0.28635E-04_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.65679E-04_JPRB,0.90084E-04_JPRB,0.95681E-04_JPRB,0.94567E-04_JPRB,0.87338E-04_JPRB, &
+ & 0.77275E-04_JPRB,0.63642E-04_JPRB,0.47097E-04_JPRB,0.15508E-04_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.74551E-04_JPRB,0.10089E-03_JPRB,0.10531E-03_JPRB,0.10327E-03_JPRB,0.95364E-04_JPRB, &
+ & 0.84154E-04_JPRB,0.69569E-04_JPRB,0.51426E-04_JPRB,0.17234E-04_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.83584E-04_JPRB,0.11137E-03_JPRB,0.11469E-03_JPRB,0.11193E-03_JPRB,0.10325E-03_JPRB, &
+ & 0.91075E-04_JPRB,0.75479E-04_JPRB,0.56228E-04_JPRB,0.19127E-04_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.92762E-04_JPRB,0.12171E-03_JPRB,0.12420E-03_JPRB,0.12060E-03_JPRB,0.11147E-03_JPRB, &
+ & 0.98465E-04_JPRB,0.81969E-04_JPRB,0.61529E-04_JPRB,0.21452E-04_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.10189E-03_JPRB,0.13182E-03_JPRB,0.13364E-03_JPRB,0.12960E-03_JPRB,0.12008E-03_JPRB, &
+ & 0.10652E-03_JPRB,0.89045E-04_JPRB,0.67334E-04_JPRB,0.23711E-04_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.53656E-04_JPRB,0.74109E-04_JPRB,0.78629E-04_JPRB,0.78245E-04_JPRB,0.72322E-04_JPRB, &
+ & 0.63915E-04_JPRB,0.52625E-04_JPRB,0.38591E-04_JPRB,0.14416E-04_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.61163E-04_JPRB,0.83104E-04_JPRB,0.86832E-04_JPRB,0.85562E-04_JPRB,0.78992E-04_JPRB, &
+ & 0.69666E-04_JPRB,0.57574E-04_JPRB,0.42098E-04_JPRB,0.15921E-04_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.68914E-04_JPRB,0.91909E-04_JPRB,0.94594E-04_JPRB,0.92816E-04_JPRB,0.85590E-04_JPRB, &
+ & 0.75491E-04_JPRB,0.62445E-04_JPRB,0.46109E-04_JPRB,0.17209E-04_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.76847E-04_JPRB,0.10059E-03_JPRB,0.10256E-03_JPRB,0.10019E-03_JPRB,0.92496E-04_JPRB, &
+ & 0.81729E-04_JPRB,0.67763E-04_JPRB,0.50445E-04_JPRB,0.18589E-04_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.84847E-04_JPRB,0.10902E-03_JPRB,0.11071E-03_JPRB,0.10784E-03_JPRB,0.99812E-04_JPRB, &
+ & 0.88516E-04_JPRB,0.73718E-04_JPRB,0.55250E-04_JPRB,0.20194E-04_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.43346E-04_JPRB,0.60608E-04_JPRB,0.64818E-04_JPRB,0.64681E-04_JPRB,0.59655E-04_JPRB, &
+ & 0.52617E-04_JPRB,0.43206E-04_JPRB,0.31573E-04_JPRB,0.14696E-04_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.49669E-04_JPRB,0.68380E-04_JPRB,0.71800E-04_JPRB,0.70860E-04_JPRB,0.65260E-04_JPRB, &
+ & 0.57496E-04_JPRB,0.47313E-04_JPRB,0.34405E-04_JPRB,0.16164E-04_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.56274E-04_JPRB,0.76040E-04_JPRB,0.78454E-04_JPRB,0.76944E-04_JPRB,0.70665E-04_JPRB, &
+ & 0.62347E-04_JPRB,0.51383E-04_JPRB,0.37665E-04_JPRB,0.17841E-04_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.63127E-04_JPRB,0.83451E-04_JPRB,0.85178E-04_JPRB,0.83082E-04_JPRB,0.76437E-04_JPRB, &
+ & 0.67538E-04_JPRB,0.55797E-04_JPRB,0.41264E-04_JPRB,0.19504E-04_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.70124E-04_JPRB,0.90807E-04_JPRB,0.91960E-04_JPRB,0.89432E-04_JPRB,0.82527E-04_JPRB, &
+ & 0.73176E-04_JPRB,0.60668E-04_JPRB,0.45179E-04_JPRB,0.20992E-04_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.35059E-04_JPRB,0.49531E-04_JPRB,0.53376E-04_JPRB,0.53665E-04_JPRB,0.49644E-04_JPRB, &
+ & 0.43592E-04_JPRB,0.35609E-04_JPRB,0.25845E-04_JPRB,0.13231E-04_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.40376E-04_JPRB,0.56174E-04_JPRB,0.59502E-04_JPRB,0.59040E-04_JPRB,0.54399E-04_JPRB, &
+ & 0.47687E-04_JPRB,0.39007E-04_JPRB,0.28189E-04_JPRB,0.15223E-04_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.46006E-04_JPRB,0.62899E-04_JPRB,0.65214E-04_JPRB,0.64178E-04_JPRB,0.58976E-04_JPRB, &
+ & 0.51726E-04_JPRB,0.42386E-04_JPRB,0.30843E-04_JPRB,0.17241E-04_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.51905E-04_JPRB,0.69395E-04_JPRB,0.70988E-04_JPRB,0.69461E-04_JPRB,0.63801E-04_JPRB, &
+ & 0.56040E-04_JPRB,0.46059E-04_JPRB,0.33831E-04_JPRB,0.19714E-04_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.57990E-04_JPRB,0.75737E-04_JPRB,0.76826E-04_JPRB,0.74718E-04_JPRB,0.68839E-04_JPRB, &
+ & 0.60664E-04_JPRB,0.50105E-04_JPRB,0.37049E-04_JPRB,0.22308E-04_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.30150E-04_JPRB,0.42738E-04_JPRB,0.46011E-04_JPRB,0.46330E-04_JPRB,0.42907E-04_JPRB, &
+ & 0.37605E-04_JPRB,0.30702E-04_JPRB,0.21962E-04_JPRB,0.11791E-04_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.34714E-04_JPRB,0.48516E-04_JPRB,0.51120E-04_JPRB,0.50726E-04_JPRB,0.46912E-04_JPRB, &
+ & 0.41033E-04_JPRB,0.33505E-04_JPRB,0.23952E-04_JPRB,0.13242E-04_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.39649E-04_JPRB,0.54325E-04_JPRB,0.56146E-04_JPRB,0.55270E-04_JPRB,0.50902E-04_JPRB, &
+ & 0.44559E-04_JPRB,0.36351E-04_JPRB,0.26266E-04_JPRB,0.15075E-04_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.44779E-04_JPRB,0.59893E-04_JPRB,0.61166E-04_JPRB,0.59766E-04_JPRB,0.55070E-04_JPRB, &
+ & 0.48303E-04_JPRB,0.39491E-04_JPRB,0.28847E-04_JPRB,0.17164E-04_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.49946E-04_JPRB,0.65411E-04_JPRB,0.66256E-04_JPRB,0.64345E-04_JPRB,0.59474E-04_JPRB, &
+ & 0.52287E-04_JPRB,0.43003E-04_JPRB,0.31612E-04_JPRB,0.19542E-04_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.25681E-04_JPRB,0.36622E-04_JPRB,0.39428E-04_JPRB,0.39582E-04_JPRB,0.36786E-04_JPRB, &
+ & 0.32210E-04_JPRB,0.26270E-04_JPRB,0.18629E-04_JPRB,0.10035E-04_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.29636E-04_JPRB,0.41620E-04_JPRB,0.43701E-04_JPRB,0.43425E-04_JPRB,0.40150E-04_JPRB, &
+ & 0.35105E-04_JPRB,0.28637E-04_JPRB,0.20365E-04_JPRB,0.11416E-04_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.33921E-04_JPRB,0.46628E-04_JPRB,0.48062E-04_JPRB,0.47301E-04_JPRB,0.43633E-04_JPRB, &
+ & 0.38189E-04_JPRB,0.31133E-04_JPRB,0.22405E-04_JPRB,0.12946E-04_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.38341E-04_JPRB,0.51401E-04_JPRB,0.52457E-04_JPRB,0.51129E-04_JPRB,0.47238E-04_JPRB, &
+ & 0.41429E-04_JPRB,0.33905E-04_JPRB,0.24546E-04_JPRB,0.14770E-04_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.42576E-04_JPRB,0.56153E-04_JPRB,0.56863E-04_JPRB,0.55182E-04_JPRB,0.51113E-04_JPRB, &
+ & 0.44940E-04_JPRB,0.36987E-04_JPRB,0.26898E-04_JPRB,0.16865E-04_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.21707E-04_JPRB,0.31142E-04_JPRB,0.33487E-04_JPRB,0.33650E-04_JPRB,0.31301E-04_JPRB, &
+ & 0.27396E-04_JPRB,0.22352E-04_JPRB,0.15744E-04_JPRB,0.83005E-05_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.25112E-04_JPRB,0.35474E-04_JPRB,0.37158E-04_JPRB,0.36970E-04_JPRB,0.34170E-04_JPRB, &
+ & 0.29871E-04_JPRB,0.24361E-04_JPRB,0.17312E-04_JPRB,0.93559E-05_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.28762E-04_JPRB,0.39712E-04_JPRB,0.40924E-04_JPRB,0.40199E-04_JPRB,0.37169E-04_JPRB, &
+ & 0.32565E-04_JPRB,0.26566E-04_JPRB,0.19074E-04_JPRB,0.10670E-04_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.32448E-04_JPRB,0.43808E-04_JPRB,0.44734E-04_JPRB,0.43534E-04_JPRB,0.40323E-04_JPRB, &
+ & 0.35367E-04_JPRB,0.29011E-04_JPRB,0.20897E-04_JPRB,0.12240E-04_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.35905E-04_JPRB,0.47771E-04_JPRB,0.48482E-04_JPRB,0.47094E-04_JPRB,0.43703E-04_JPRB, &
+ & 0.38474E-04_JPRB,0.31715E-04_JPRB,0.22899E-04_JPRB,0.13958E-04_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.50328E-03_JPRB,0.59028E-03_JPRB,0.59973E-03_JPRB,0.58955E-03_JPRB,0.56685E-03_JPRB, &
+ & 0.50893E-03_JPRB,0.43098E-03_JPRB,0.31518E-03_JPRB,0.12599E-03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.53454E-03_JPRB,0.62581E-03_JPRB,0.63729E-03_JPRB,0.62588E-03_JPRB,0.59902E-03_JPRB, &
+ & 0.54179E-03_JPRB,0.45928E-03_JPRB,0.33824E-03_JPRB,0.13937E-03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.56216E-03_JPRB,0.66315E-03_JPRB,0.67707E-03_JPRB,0.66553E-03_JPRB,0.63545E-03_JPRB, &
+ & 0.57719E-03_JPRB,0.48913E-03_JPRB,0.36332E-03_JPRB,0.15548E-03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.58821E-03_JPRB,0.70231E-03_JPRB,0.71934E-03_JPRB,0.70828E-03_JPRB,0.67637E-03_JPRB, &
+ & 0.61438E-03_JPRB,0.52042E-03_JPRB,0.38978E-03_JPRB,0.17254E-03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.61349E-03_JPRB,0.74309E-03_JPRB,0.76503E-03_JPRB,0.75486E-03_JPRB,0.71943E-03_JPRB, &
+ & 0.65213E-03_JPRB,0.55331E-03_JPRB,0.41818E-03_JPRB,0.19176E-03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.43720E-03_JPRB,0.51117E-03_JPRB,0.51919E-03_JPRB,0.50988E-03_JPRB,0.48875E-03_JPRB, &
+ & 0.44138E-03_JPRB,0.37418E-03_JPRB,0.27478E-03_JPRB,0.10374E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.46400E-03_JPRB,0.54460E-03_JPRB,0.55429E-03_JPRB,0.54395E-03_JPRB,0.52067E-03_JPRB, &
+ & 0.47118E-03_JPRB,0.39949E-03_JPRB,0.29546E-03_JPRB,0.11585E-03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.48798E-03_JPRB,0.57940E-03_JPRB,0.59177E-03_JPRB,0.58113E-03_JPRB,0.55553E-03_JPRB, &
+ & 0.50290E-03_JPRB,0.42588E-03_JPRB,0.31727E-03_JPRB,0.12872E-03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.51088E-03_JPRB,0.61529E-03_JPRB,0.63115E-03_JPRB,0.62163E-03_JPRB,0.59296E-03_JPRB, &
+ & 0.53614E-03_JPRB,0.45317E-03_JPRB,0.34070E-03_JPRB,0.14334E-03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.53331E-03_JPRB,0.65233E-03_JPRB,0.67270E-03_JPRB,0.66363E-03_JPRB,0.63091E-03_JPRB, &
+ & 0.57023E-03_JPRB,0.48253E-03_JPRB,0.36597E-03_JPRB,0.15947E-03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.37168E-03_JPRB,0.43544E-03_JPRB,0.44351E-03_JPRB,0.43496E-03_JPRB,0.41418E-03_JPRB, &
+ & 0.37673E-03_JPRB,0.31849E-03_JPRB,0.23373E-03_JPRB,0.83035E-04_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.39476E-03_JPRB,0.46532E-03_JPRB,0.47527E-03_JPRB,0.46587E-03_JPRB,0.44394E-03_JPRB, &
+ & 0.40288E-03_JPRB,0.34052E-03_JPRB,0.25172E-03_JPRB,0.92363E-04_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.41559E-03_JPRB,0.49597E-03_JPRB,0.50880E-03_JPRB,0.49944E-03_JPRB,0.47605E-03_JPRB, &
+ & 0.43138E-03_JPRB,0.36384E-03_JPRB,0.27063E-03_JPRB,0.10327E-03_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.43551E-03_JPRB,0.52738E-03_JPRB,0.54357E-03_JPRB,0.53553E-03_JPRB,0.50924E-03_JPRB, &
+ & 0.46069E-03_JPRB,0.38844E-03_JPRB,0.29089E-03_JPRB,0.11548E-03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.45509E-03_JPRB,0.56036E-03_JPRB,0.58045E-03_JPRB,0.57279E-03_JPRB,0.54320E-03_JPRB, &
+ & 0.49088E-03_JPRB,0.41461E-03_JPRB,0.31304E-03_JPRB,0.12901E-03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.31353E-03_JPRB,0.36800E-03_JPRB,0.37478E-03_JPRB,0.36628E-03_JPRB,0.34818E-03_JPRB, &
+ & 0.31938E-03_JPRB,0.26882E-03_JPRB,0.19725E-03_JPRB,0.65143E-04_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.33327E-03_JPRB,0.39347E-03_JPRB,0.40240E-03_JPRB,0.39421E-03_JPRB,0.37500E-03_JPRB, &
+ & 0.34245E-03_JPRB,0.28782E-03_JPRB,0.21247E-03_JPRB,0.72911E-04_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.35116E-03_JPRB,0.41935E-03_JPRB,0.43125E-03_JPRB,0.42396E-03_JPRB,0.40374E-03_JPRB, &
+ & 0.36745E-03_JPRB,0.30851E-03_JPRB,0.22861E-03_JPRB,0.82223E-04_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.36817E-03_JPRB,0.44654E-03_JPRB,0.46141E-03_JPRB,0.45505E-03_JPRB,0.43257E-03_JPRB, &
+ & 0.39339E-03_JPRB,0.33051E-03_JPRB,0.24594E-03_JPRB,0.92524E-04_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.38502E-03_JPRB,0.47537E-03_JPRB,0.49387E-03_JPRB,0.48730E-03_JPRB,0.46233E-03_JPRB, &
+ & 0.42007E-03_JPRB,0.35374E-03_JPRB,0.26504E-03_JPRB,0.10363E-03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.26371E-03_JPRB,0.30958E-03_JPRB,0.31480E-03_JPRB,0.30643E-03_JPRB,0.29119E-03_JPRB, &
+ & 0.26781E-03_JPRB,0.22601E-03_JPRB,0.16580E-03_JPRB,0.51526E-04_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.28046E-03_JPRB,0.33149E-03_JPRB,0.33831E-03_JPRB,0.33074E-03_JPRB,0.31455E-03_JPRB, &
+ & 0.28912E-03_JPRB,0.24254E-03_JPRB,0.17884E-03_JPRB,0.57544E-04_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.29571E-03_JPRB,0.35368E-03_JPRB,0.36281E-03_JPRB,0.35630E-03_JPRB,0.33882E-03_JPRB, &
+ & 0.31097E-03_JPRB,0.26070E-03_JPRB,0.19272E-03_JPRB,0.64519E-04_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.31016E-03_JPRB,0.37666E-03_JPRB,0.38893E-03_JPRB,0.38273E-03_JPRB,0.36412E-03_JPRB, &
+ & 0.33364E-03_JPRB,0.28016E-03_JPRB,0.20757E-03_JPRB,0.72363E-04_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.32452E-03_JPRB,0.40122E-03_JPRB,0.41666E-03_JPRB,0.41046E-03_JPRB,0.39013E-03_JPRB, &
+ & 0.35668E-03_JPRB,0.30056E-03_JPRB,0.22388E-03_JPRB,0.80981E-04_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.22069E-03_JPRB,0.25888E-03_JPRB,0.26323E-03_JPRB,0.25479E-03_JPRB,0.24246E-03_JPRB, &
+ & 0.22303E-03_JPRB,0.18865E-03_JPRB,0.13826E-03_JPRB,0.42586E-04_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.23505E-03_JPRB,0.27730E-03_JPRB,0.28289E-03_JPRB,0.27510E-03_JPRB,0.26179E-03_JPRB, &
+ & 0.24147E-03_JPRB,0.20303E-03_JPRB,0.14956E-03_JPRB,0.47728E-04_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.24799E-03_JPRB,0.29644E-03_JPRB,0.30324E-03_JPRB,0.29696E-03_JPRB,0.28190E-03_JPRB, &
+ & 0.26059E-03_JPRB,0.21889E-03_JPRB,0.16173E-03_JPRB,0.53804E-04_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.26027E-03_JPRB,0.31607E-03_JPRB,0.32548E-03_JPRB,0.31928E-03_JPRB,0.30338E-03_JPRB, &
+ & 0.27984E-03_JPRB,0.23536E-03_JPRB,0.17457E-03_JPRB,0.60579E-04_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.27261E-03_JPRB,0.33682E-03_JPRB,0.34889E-03_JPRB,0.34299E-03_JPRB,0.32589E-03_JPRB, &
+ & 0.29875E-03_JPRB,0.25286E-03_JPRB,0.18852E-03_JPRB,0.67802E-04_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.18284E-03_JPRB,0.21563E-03_JPRB,0.21874E-03_JPRB,0.21147E-03_JPRB,0.20158E-03_JPRB, &
+ & 0.18535E-03_JPRB,0.15699E-03_JPRB,0.11455E-03_JPRB,0.35095E-04_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.19537E-03_JPRB,0.23122E-03_JPRB,0.23571E-03_JPRB,0.22829E-03_JPRB,0.21760E-03_JPRB, &
+ & 0.20013E-03_JPRB,0.16934E-03_JPRB,0.12429E-03_JPRB,0.39853E-04_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.20672E-03_JPRB,0.24731E-03_JPRB,0.25313E-03_JPRB,0.24636E-03_JPRB,0.23401E-03_JPRB, &
+ & 0.21622E-03_JPRB,0.18276E-03_JPRB,0.13469E-03_JPRB,0.45173E-04_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.21741E-03_JPRB,0.26399E-03_JPRB,0.27153E-03_JPRB,0.26539E-03_JPRB,0.25198E-03_JPRB, &
+ & 0.23212E-03_JPRB,0.19655E-03_JPRB,0.14593E-03_JPRB,0.50910E-04_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.22822E-03_JPRB,0.28170E-03_JPRB,0.29118E-03_JPRB,0.28544E-03_JPRB,0.27112E-03_JPRB, &
+ & 0.24842E-03_JPRB,0.21129E-03_JPRB,0.15803E-03_JPRB,0.57288E-04_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.15136E-03_JPRB,0.17854E-03_JPRB,0.18119E-03_JPRB,0.17535E-03_JPRB,0.16721E-03_JPRB, &
+ & 0.15392E-03_JPRB,0.13041E-03_JPRB,0.94463E-04_JPRB,0.29176E-04_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.16197E-03_JPRB,0.19183E-03_JPRB,0.19544E-03_JPRB,0.18940E-03_JPRB,0.18045E-03_JPRB, &
+ & 0.16606E-03_JPRB,0.14094E-03_JPRB,0.10292E-03_JPRB,0.33234E-04_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.17149E-03_JPRB,0.20540E-03_JPRB,0.21055E-03_JPRB,0.20432E-03_JPRB,0.19421E-03_JPRB, &
+ & 0.17914E-03_JPRB,0.15214E-03_JPRB,0.11170E-03_JPRB,0.37987E-04_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.18048E-03_JPRB,0.21966E-03_JPRB,0.22618E-03_JPRB,0.22017E-03_JPRB,0.20926E-03_JPRB, &
+ & 0.19215E-03_JPRB,0.16364E-03_JPRB,0.12118E-03_JPRB,0.43249E-04_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.18968E-03_JPRB,0.23496E-03_JPRB,0.24258E-03_JPRB,0.23712E-03_JPRB,0.22524E-03_JPRB, &
+ & 0.20589E-03_JPRB,0.17598E-03_JPRB,0.13139E-03_JPRB,0.48772E-04_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.12535E-03_JPRB,0.14733E-03_JPRB,0.14911E-03_JPRB,0.14464E-03_JPRB,0.13810E-03_JPRB, &
+ & 0.12766E-03_JPRB,0.10804E-03_JPRB,0.77667E-04_JPRB,0.31607E-04_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.13428E-03_JPRB,0.15826E-03_JPRB,0.16122E-03_JPRB,0.15658E-03_JPRB,0.14914E-03_JPRB, &
+ & 0.13752E-03_JPRB,0.11655E-03_JPRB,0.84956E-04_JPRB,0.35832E-04_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.14212E-03_JPRB,0.16949E-03_JPRB,0.17392E-03_JPRB,0.16905E-03_JPRB,0.16073E-03_JPRB, &
+ & 0.14802E-03_JPRB,0.12582E-03_JPRB,0.92269E-04_JPRB,0.39990E-04_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.14955E-03_JPRB,0.18151E-03_JPRB,0.18720E-03_JPRB,0.18233E-03_JPRB,0.17343E-03_JPRB, &
+ & 0.15845E-03_JPRB,0.13559E-03_JPRB,0.99998E-04_JPRB,0.44405E-04_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.15720E-03_JPRB,0.19441E-03_JPRB,0.20115E-03_JPRB,0.19658E-03_JPRB,0.18679E-03_JPRB, &
+ & 0.17045E-03_JPRB,0.14597E-03_JPRB,0.10853E-03_JPRB,0.48354E-04_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.10518E-03_JPRB,0.12283E-03_JPRB,0.12342E-03_JPRB,0.11933E-03_JPRB,0.11376E-03_JPRB, &
+ & 0.10615E-03_JPRB,0.89610E-04_JPRB,0.64322E-04_JPRB,0.38897E-04_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.11277E-03_JPRB,0.13167E-03_JPRB,0.13319E-03_JPRB,0.12937E-03_JPRB,0.12328E-03_JPRB, &
+ & 0.11434E-03_JPRB,0.96637E-04_JPRB,0.70434E-04_JPRB,0.44697E-04_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.11946E-03_JPRB,0.14071E-03_JPRB,0.14389E-03_JPRB,0.14002E-03_JPRB,0.13292E-03_JPRB, &
+ & 0.12246E-03_JPRB,0.10436E-03_JPRB,0.76473E-04_JPRB,0.50672E-04_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.12573E-03_JPRB,0.15045E-03_JPRB,0.15515E-03_JPRB,0.15121E-03_JPRB,0.14368E-03_JPRB, &
+ & 0.13136E-03_JPRB,0.11260E-03_JPRB,0.82864E-04_JPRB,0.56090E-04_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.13210E-03_JPRB,0.16128E-03_JPRB,0.16701E-03_JPRB,0.16339E-03_JPRB,0.15508E-03_JPRB, &
+ & 0.14154E-03_JPRB,0.12132E-03_JPRB,0.89973E-04_JPRB,0.61017E-04_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.90693E-04_JPRB,0.10606E-03_JPRB,0.10639E-03_JPRB,0.10214E-03_JPRB,0.97041E-04_JPRB, &
+ & 0.90929E-04_JPRB,0.76654E-04_JPRB,0.55448E-04_JPRB,0.34971E-04_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.96878E-04_JPRB,0.11346E-03_JPRB,0.11478E-03_JPRB,0.11094E-03_JPRB,0.10496E-03_JPRB, &
+ & 0.97427E-04_JPRB,0.82680E-04_JPRB,0.60468E-04_JPRB,0.41599E-04_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.10232E-03_JPRB,0.12125E-03_JPRB,0.12365E-03_JPRB,0.11979E-03_JPRB,0.11346E-03_JPRB, &
+ & 0.10430E-03_JPRB,0.89390E-04_JPRB,0.65549E-04_JPRB,0.48186E-04_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.10772E-03_JPRB,0.12969E-03_JPRB,0.13316E-03_JPRB,0.12963E-03_JPRB,0.12290E-03_JPRB, &
+ & 0.11234E-03_JPRB,0.96526E-04_JPRB,0.71097E-04_JPRB,0.54537E-04_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.11345E-03_JPRB,0.13912E-03_JPRB,0.14339E-03_JPRB,0.14025E-03_JPRB,0.13275E-03_JPRB, &
+ & 0.12106E-03_JPRB,0.10412E-03_JPRB,0.77240E-04_JPRB,0.60238E-04_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.77577E-04_JPRB,0.91005E-04_JPRB,0.91202E-04_JPRB,0.87618E-04_JPRB,0.82974E-04_JPRB, &
+ & 0.77488E-04_JPRB,0.65261E-04_JPRB,0.47539E-04_JPRB,0.30516E-04_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.82612E-04_JPRB,0.97349E-04_JPRB,0.98497E-04_JPRB,0.95069E-04_JPRB,0.89699E-04_JPRB, &
+ & 0.82714E-04_JPRB,0.70478E-04_JPRB,0.51645E-04_JPRB,0.35968E-04_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.87206E-04_JPRB,0.10402E-03_JPRB,0.10625E-03_JPRB,0.10294E-03_JPRB,0.97013E-04_JPRB, &
+ & 0.88723E-04_JPRB,0.76259E-04_JPRB,0.55960E-04_JPRB,0.41899E-04_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.91929E-04_JPRB,0.11153E-03_JPRB,0.11462E-03_JPRB,0.11153E-03_JPRB,0.10500E-03_JPRB, &
+ & 0.95633E-04_JPRB,0.82267E-04_JPRB,0.60868E-04_JPRB,0.48100E-04_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.97101E-04_JPRB,0.11996E-03_JPRB,0.12377E-03_JPRB,0.12058E-03_JPRB,0.11342E-03_JPRB, &
+ & 0.10316E-03_JPRB,0.88884E-04_JPRB,0.66077E-04_JPRB,0.53563E-04_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.65838E-04_JPRB,0.77620E-04_JPRB,0.77829E-04_JPRB,0.74661E-04_JPRB,0.70473E-04_JPRB, &
+ & 0.65575E-04_JPRB,0.55474E-04_JPRB,0.40441E-04_JPRB,0.25521E-04_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.69998E-04_JPRB,0.83015E-04_JPRB,0.84103E-04_JPRB,0.81066E-04_JPRB,0.76507E-04_JPRB, &
+ & 0.70172E-04_JPRB,0.59914E-04_JPRB,0.43882E-04_JPRB,0.30126E-04_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.74003E-04_JPRB,0.88878E-04_JPRB,0.90840E-04_JPRB,0.88139E-04_JPRB,0.82951E-04_JPRB, &
+ & 0.75471E-04_JPRB,0.64689E-04_JPRB,0.47652E-04_JPRB,0.35171E-04_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.78234E-04_JPRB,0.95561E-04_JPRB,0.98237E-04_JPRB,0.95653E-04_JPRB,0.89770E-04_JPRB, &
+ & 0.81434E-04_JPRB,0.69913E-04_JPRB,0.51882E-04_JPRB,0.40221E-04_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.82825E-04_JPRB,0.10313E-03_JPRB,0.10644E-03_JPRB,0.10352E-03_JPRB,0.97040E-04_JPRB, &
+ & 0.87602E-04_JPRB,0.75532E-04_JPRB,0.56387E-04_JPRB,0.44675E-04_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.10615E-02_JPRB,0.12529E-02_JPRB,0.13083E-02_JPRB,0.12764E-02_JPRB,0.11881E-02_JPRB, &
+ & 0.10853E-02_JPRB,0.93421E-03_JPRB,0.71644E-03_JPRB,0.30757E-03_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.10918E-02_JPRB,0.13136E-02_JPRB,0.13677E-02_JPRB,0.13350E-02_JPRB,0.12522E-02_JPRB, &
+ & 0.11402E-02_JPRB,0.98392E-03_JPRB,0.76040E-03_JPRB,0.35125E-03_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.11297E-02_JPRB,0.13742E-02_JPRB,0.14266E-02_JPRB,0.13956E-02_JPRB,0.13143E-02_JPRB, &
+ & 0.11951E-02_JPRB,0.10359E-02_JPRB,0.81032E-03_JPRB,0.39829E-03_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.11716E-02_JPRB,0.14330E-02_JPRB,0.14865E-02_JPRB,0.14580E-02_JPRB,0.13738E-02_JPRB, &
+ & 0.12536E-02_JPRB,0.10931E-02_JPRB,0.86605E-03_JPRB,0.44907E-03_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.12137E-02_JPRB,0.14919E-02_JPRB,0.15477E-02_JPRB,0.15196E-02_JPRB,0.14358E-02_JPRB, &
+ & 0.13166E-02_JPRB,0.11546E-02_JPRB,0.92748E-03_JPRB,0.50593E-03_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.92435E-03_JPRB,0.10874E-02_JPRB,0.11275E-02_JPRB,0.11015E-02_JPRB,0.10311E-02_JPRB, &
+ & 0.94231E-03_JPRB,0.80960E-03_JPRB,0.63033E-03_JPRB,0.26663E-03_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.95885E-03_JPRB,0.11428E-02_JPRB,0.11829E-02_JPRB,0.11541E-02_JPRB,0.10849E-02_JPRB, &
+ & 0.98930E-03_JPRB,0.85567E-03_JPRB,0.67200E-03_JPRB,0.30230E-03_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.99776E-03_JPRB,0.11978E-02_JPRB,0.12376E-02_JPRB,0.12093E-02_JPRB,0.11390E-02_JPRB, &
+ & 0.10392E-02_JPRB,0.90558E-03_JPRB,0.71833E-03_JPRB,0.34245E-03_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.10380E-02_JPRB,0.12537E-02_JPRB,0.12935E-02_JPRB,0.12652E-02_JPRB,0.11933E-02_JPRB, &
+ & 0.10921E-02_JPRB,0.95939E-03_JPRB,0.76948E-03_JPRB,0.38641E-03_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.10779E-02_JPRB,0.13105E-02_JPRB,0.13515E-02_JPRB,0.13214E-02_JPRB,0.12497E-02_JPRB, &
+ & 0.11514E-02_JPRB,0.10182E-02_JPRB,0.82552E-03_JPRB,0.43428E-03_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.79958E-03_JPRB,0.93053E-03_JPRB,0.95669E-03_JPRB,0.93720E-03_JPRB,0.88165E-03_JPRB, &
+ & 0.80178E-03_JPRB,0.69131E-03_JPRB,0.54027E-03_JPRB,0.22082E-03_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.83354E-03_JPRB,0.98064E-03_JPRB,0.10079E-02_JPRB,0.98484E-03_JPRB,0.92834E-03_JPRB, &
+ & 0.84387E-03_JPRB,0.73304E-03_JPRB,0.57932E-03_JPRB,0.25149E-03_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.87012E-03_JPRB,0.10320E-02_JPRB,0.10600E-02_JPRB,0.10346E-02_JPRB,0.97491E-03_JPRB, &
+ & 0.88683E-03_JPRB,0.77649E-03_JPRB,0.62208E-03_JPRB,0.28527E-03_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.90759E-03_JPRB,0.10841E-02_JPRB,0.11129E-02_JPRB,0.10858E-02_JPRB,0.10238E-02_JPRB, &
+ & 0.93520E-03_JPRB,0.82494E-03_JPRB,0.66854E-03_JPRB,0.32199E-03_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.94443E-03_JPRB,0.11378E-02_JPRB,0.11668E-02_JPRB,0.11369E-02_JPRB,0.10746E-02_JPRB, &
+ & 0.98835E-03_JPRB,0.87764E-03_JPRB,0.71868E-03_JPRB,0.36165E-03_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.68628E-03_JPRB,0.79104E-03_JPRB,0.80863E-03_JPRB,0.79421E-03_JPRB,0.74681E-03_JPRB, &
+ & 0.67391E-03_JPRB,0.58210E-03_JPRB,0.45790E-03_JPRB,0.18137E-03_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.71790E-03_JPRB,0.83686E-03_JPRB,0.85591E-03_JPRB,0.83705E-03_JPRB,0.78808E-03_JPRB, &
+ & 0.71172E-03_JPRB,0.61822E-03_JPRB,0.49245E-03_JPRB,0.20729E-03_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.75117E-03_JPRB,0.88426E-03_JPRB,0.90462E-03_JPRB,0.88167E-03_JPRB,0.82945E-03_JPRB, &
+ & 0.75050E-03_JPRB,0.65652E-03_JPRB,0.53019E-03_JPRB,0.23455E-03_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.78430E-03_JPRB,0.93252E-03_JPRB,0.95418E-03_JPRB,0.92872E-03_JPRB,0.87301E-03_JPRB, &
+ & 0.79337E-03_JPRB,0.69871E-03_JPRB,0.57160E-03_JPRB,0.26520E-03_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.81683E-03_JPRB,0.98168E-03_JPRB,0.10045E-02_JPRB,0.97638E-03_JPRB,0.92000E-03_JPRB, &
+ & 0.84034E-03_JPRB,0.74480E-03_JPRB,0.61518E-03_JPRB,0.29808E-03_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.58497E-03_JPRB,0.66935E-03_JPRB,0.68301E-03_JPRB,0.66951E-03_JPRB,0.62962E-03_JPRB, &
+ & 0.56579E-03_JPRB,0.48826E-03_JPRB,0.38379E-03_JPRB,0.14576E-03_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.61310E-03_JPRB,0.71031E-03_JPRB,0.72592E-03_JPRB,0.70978E-03_JPRB,0.66652E-03_JPRB, &
+ & 0.59753E-03_JPRB,0.51826E-03_JPRB,0.41385E-03_JPRB,0.16772E-03_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.64179E-03_JPRB,0.75306E-03_JPRB,0.77095E-03_JPRB,0.75074E-03_JPRB,0.70458E-03_JPRB, &
+ & 0.63276E-03_JPRB,0.55157E-03_JPRB,0.44695E-03_JPRB,0.19067E-03_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.67039E-03_JPRB,0.79634E-03_JPRB,0.81655E-03_JPRB,0.79420E-03_JPRB,0.74416E-03_JPRB, &
+ & 0.67043E-03_JPRB,0.58781E-03_JPRB,0.48223E-03_JPRB,0.21651E-03_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.69870E-03_JPRB,0.83972E-03_JPRB,0.86240E-03_JPRB,0.83794E-03_JPRB,0.78674E-03_JPRB, &
+ & 0.71204E-03_JPRB,0.62768E-03_JPRB,0.51780E-03_JPRB,0.24414E-03_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.49594E-03_JPRB,0.56319E-03_JPRB,0.57248E-03_JPRB,0.55950E-03_JPRB,0.52657E-03_JPRB, &
+ & 0.47274E-03_JPRB,0.40631E-03_JPRB,0.31914E-03_JPRB,0.11737E-03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.51946E-03_JPRB,0.59932E-03_JPRB,0.61091E-03_JPRB,0.59626E-03_JPRB,0.56011E-03_JPRB, &
+ & 0.50076E-03_JPRB,0.43158E-03_JPRB,0.34422E-03_JPRB,0.13452E-03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.54355E-03_JPRB,0.63601E-03_JPRB,0.65111E-03_JPRB,0.63466E-03_JPRB,0.59552E-03_JPRB, &
+ & 0.53122E-03_JPRB,0.45996E-03_JPRB,0.37172E-03_JPRB,0.15179E-03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.56762E-03_JPRB,0.67321E-03_JPRB,0.69130E-03_JPRB,0.67433E-03_JPRB,0.63164E-03_JPRB, &
+ & 0.56508E-03_JPRB,0.49145E-03_JPRB,0.39979E-03_JPRB,0.17118E-03_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.59180E-03_JPRB,0.71065E-03_JPRB,0.73195E-03_JPRB,0.71355E-03_JPRB,0.66898E-03_JPRB, &
+ & 0.60268E-03_JPRB,0.52617E-03_JPRB,0.43141E-03_JPRB,0.19263E-03_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.41932E-03_JPRB,0.47346E-03_JPRB,0.47850E-03_JPRB,0.46519E-03_JPRB,0.43628E-03_JPRB, &
+ & 0.39132E-03_JPRB,0.33641E-03_JPRB,0.26485E-03_JPRB,0.10000E-03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.43848E-03_JPRB,0.50411E-03_JPRB,0.51171E-03_JPRB,0.49803E-03_JPRB,0.46737E-03_JPRB, &
+ & 0.41801E-03_JPRB,0.35878E-03_JPRB,0.28532E-03_JPRB,0.11408E-03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.45836E-03_JPRB,0.53506E-03_JPRB,0.54578E-03_JPRB,0.53230E-03_JPRB,0.49970E-03_JPRB, &
+ & 0.44506E-03_JPRB,0.38306E-03_JPRB,0.30828E-03_JPRB,0.13001E-03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.47855E-03_JPRB,0.56639E-03_JPRB,0.58020E-03_JPRB,0.56722E-03_JPRB,0.53202E-03_JPRB, &
+ & 0.47546E-03_JPRB,0.41064E-03_JPRB,0.33104E-03_JPRB,0.14676E-03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.49885E-03_JPRB,0.59805E-03_JPRB,0.61555E-03_JPRB,0.60152E-03_JPRB,0.56466E-03_JPRB, &
+ & 0.50884E-03_JPRB,0.44071E-03_JPRB,0.35766E-03_JPRB,0.16471E-03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.35434E-03_JPRB,0.39784E-03_JPRB,0.40003E-03_JPRB,0.38643E-03_JPRB,0.36029E-03_JPRB, &
+ & 0.32228E-03_JPRB,0.27705E-03_JPRB,0.21936E-03_JPRB,0.85304E-04_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.36972E-03_JPRB,0.42325E-03_JPRB,0.42802E-03_JPRB,0.41467E-03_JPRB,0.38745E-03_JPRB, &
+ & 0.34637E-03_JPRB,0.29590E-03_JPRB,0.23622E-03_JPRB,0.97535E-04_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.38589E-03_JPRB,0.44905E-03_JPRB,0.45611E-03_JPRB,0.44402E-03_JPRB,0.41681E-03_JPRB, &
+ & 0.37125E-03_JPRB,0.31793E-03_JPRB,0.25523E-03_JPRB,0.11156E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.40282E-03_JPRB,0.47505E-03_JPRB,0.48489E-03_JPRB,0.47391E-03_JPRB,0.44440E-03_JPRB, &
+ & 0.39797E-03_JPRB,0.34220E-03_JPRB,0.27395E-03_JPRB,0.12650E-03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.41971E-03_JPRB,0.50175E-03_JPRB,0.51511E-03_JPRB,0.50365E-03_JPRB,0.47246E-03_JPRB, &
+ & 0.42646E-03_JPRB,0.36852E-03_JPRB,0.29705E-03_JPRB,0.14272E-03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.29829E-03_JPRB,0.33364E-03_JPRB,0.33392E-03_JPRB,0.32092E-03_JPRB,0.29738E-03_JPRB, &
+ & 0.26469E-03_JPRB,0.22642E-03_JPRB,0.18017E-03_JPRB,0.77064E-04_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.31054E-03_JPRB,0.35463E-03_JPRB,0.35704E-03_JPRB,0.34432E-03_JPRB,0.32083E-03_JPRB, &
+ & 0.28575E-03_JPRB,0.24402E-03_JPRB,0.19441E-03_JPRB,0.87743E-04_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.32389E-03_JPRB,0.37581E-03_JPRB,0.38023E-03_JPRB,0.36873E-03_JPRB,0.34562E-03_JPRB, &
+ & 0.30799E-03_JPRB,0.26274E-03_JPRB,0.21037E-03_JPRB,0.99662E-04_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.33808E-03_JPRB,0.39748E-03_JPRB,0.40404E-03_JPRB,0.39387E-03_JPRB,0.36968E-03_JPRB, &
+ & 0.33141E-03_JPRB,0.28405E-03_JPRB,0.22647E-03_JPRB,0.11282E-03_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.35231E-03_JPRB,0.41983E-03_JPRB,0.42961E-03_JPRB,0.41951E-03_JPRB,0.39352E-03_JPRB, &
+ & 0.35528E-03_JPRB,0.30599E-03_JPRB,0.24648E-03_JPRB,0.12841E-03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.25036E-03_JPRB,0.27999E-03_JPRB,0.27949E-03_JPRB,0.26793E-03_JPRB,0.24735E-03_JPRB, &
+ & 0.21800E-03_JPRB,0.18604E-03_JPRB,0.14807E-03_JPRB,0.93146E-04_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.26009E-03_JPRB,0.29745E-03_JPRB,0.29870E-03_JPRB,0.28727E-03_JPRB,0.26656E-03_JPRB, &
+ & 0.23674E-03_JPRB,0.20160E-03_JPRB,0.16012E-03_JPRB,0.10408E-03_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.27084E-03_JPRB,0.31508E-03_JPRB,0.31779E-03_JPRB,0.30720E-03_JPRB,0.28751E-03_JPRB, &
+ & 0.25636E-03_JPRB,0.21818E-03_JPRB,0.17357E-03_JPRB,0.11611E-03_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.28251E-03_JPRB,0.33335E-03_JPRB,0.33759E-03_JPRB,0.32814E-03_JPRB,0.30785E-03_JPRB, &
+ & 0.27625E-03_JPRB,0.23573E-03_JPRB,0.18761E-03_JPRB,0.12959E-03_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.29455E-03_JPRB,0.35211E-03_JPRB,0.35903E-03_JPRB,0.34997E-03_JPRB,0.32871E-03_JPRB, &
+ & 0.29658E-03_JPRB,0.25454E-03_JPRB,0.20476E-03_JPRB,0.14404E-03_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.21327E-03_JPRB,0.24042E-03_JPRB,0.24026E-03_JPRB,0.23068E-03_JPRB,0.21276E-03_JPRB, &
+ & 0.18665E-03_JPRB,0.15901E-03_JPRB,0.12570E-03_JPRB,0.94295E-04_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.22127E-03_JPRB,0.25493E-03_JPRB,0.25609E-03_JPRB,0.24693E-03_JPRB,0.22931E-03_JPRB, &
+ & 0.20329E-03_JPRB,0.17265E-03_JPRB,0.13686E-03_JPRB,0.10535E-03_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.23042E-03_JPRB,0.26962E-03_JPRB,0.27233E-03_JPRB,0.26383E-03_JPRB,0.24677E-03_JPRB, &
+ & 0.22030E-03_JPRB,0.18718E-03_JPRB,0.14788E-03_JPRB,0.11369E-03_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.24025E-03_JPRB,0.28500E-03_JPRB,0.28961E-03_JPRB,0.28171E-03_JPRB,0.26402E-03_JPRB, &
+ & 0.23726E-03_JPRB,0.20232E-03_JPRB,0.16110E-03_JPRB,0.12526E-03_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.25035E-03_JPRB,0.30139E-03_JPRB,0.30818E-03_JPRB,0.30033E-03_JPRB,0.28246E-03_JPRB, &
+ & 0.25541E-03_JPRB,0.21869E-03_JPRB,0.17592E-03_JPRB,0.13806E-03_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.18213E-03_JPRB,0.20563E-03_JPRB,0.20558E-03_JPRB,0.19744E-03_JPRB,0.18197E-03_JPRB, &
+ & 0.15967E-03_JPRB,0.13562E-03_JPRB,0.10709E-03_JPRB,0.84300E-04_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.18873E-03_JPRB,0.21755E-03_JPRB,0.21877E-03_JPRB,0.21098E-03_JPRB,0.19617E-03_JPRB, &
+ & 0.17419E-03_JPRB,0.14735E-03_JPRB,0.11726E-03_JPRB,0.96090E-04_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.19633E-03_JPRB,0.22994E-03_JPRB,0.23250E-03_JPRB,0.22538E-03_JPRB,0.21092E-03_JPRB, &
+ & 0.18881E-03_JPRB,0.15987E-03_JPRB,0.12650E-03_JPRB,0.10477E-03_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.20445E-03_JPRB,0.24309E-03_JPRB,0.24729E-03_JPRB,0.24084E-03_JPRB,0.22613E-03_JPRB, &
+ & 0.20371E-03_JPRB,0.17330E-03_JPRB,0.13785E-03_JPRB,0.11268E-03_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.21299E-03_JPRB,0.25719E-03_JPRB,0.26315E-03_JPRB,0.25711E-03_JPRB,0.24260E-03_JPRB, &
+ & 0.21944E-03_JPRB,0.18764E-03_JPRB,0.15038E-03_JPRB,0.12367E-03_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.15527E-03_JPRB,0.17641E-03_JPRB,0.17566E-03_JPRB,0.16836E-03_JPRB,0.15534E-03_JPRB, &
+ & 0.13636E-03_JPRB,0.11530E-03_JPRB,0.91307E-04_JPRB,0.70205E-04_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.16096E-03_JPRB,0.18612E-03_JPRB,0.18657E-03_JPRB,0.17973E-03_JPRB,0.16702E-03_JPRB, &
+ & 0.14851E-03_JPRB,0.12550E-03_JPRB,0.99145E-04_JPRB,0.79984E-04_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.16748E-03_JPRB,0.19648E-03_JPRB,0.19822E-03_JPRB,0.19209E-03_JPRB,0.17957E-03_JPRB, &
+ & 0.16107E-03_JPRB,0.13652E-03_JPRB,0.10753E-03_JPRB,0.86067E-04_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.17450E-03_JPRB,0.20751E-03_JPRB,0.21098E-03_JPRB,0.20534E-03_JPRB,0.19295E-03_JPRB, &
+ & 0.17420E-03_JPRB,0.14816E-03_JPRB,0.11772E-03_JPRB,0.93252E-04_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.18233E-03_JPRB,0.21950E-03_JPRB,0.22442E-03_JPRB,0.21958E-03_JPRB,0.20754E-03_JPRB, &
+ & 0.18842E-03_JPRB,0.16097E-03_JPRB,0.12851E-03_JPRB,0.10278E-03_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.23852E-02_JPRB,0.24955E-02_JPRB,0.25247E-02_JPRB,0.24784E-02_JPRB,0.23525E-02_JPRB, &
+ & 0.21437E-02_JPRB,0.18704E-02_JPRB,0.15353E-02_JPRB,0.99116E-03_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.23950E-02_JPRB,0.25560E-02_JPRB,0.26150E-02_JPRB,0.25851E-02_JPRB,0.24612E-02_JPRB, &
+ & 0.22632E-02_JPRB,0.20004E-02_JPRB,0.16585E-02_JPRB,0.11087E-02_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.24020E-02_JPRB,0.26226E-02_JPRB,0.27112E-02_JPRB,0.26940E-02_JPRB,0.25772E-02_JPRB, &
+ & 0.23915E-02_JPRB,0.21332E-02_JPRB,0.17859E-02_JPRB,0.12435E-02_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.24093E-02_JPRB,0.26930E-02_JPRB,0.28096E-02_JPRB,0.28038E-02_JPRB,0.27017E-02_JPRB, &
+ & 0.25227E-02_JPRB,0.22696E-02_JPRB,0.19198E-02_JPRB,0.13912E-02_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.24224E-02_JPRB,0.27647E-02_JPRB,0.29093E-02_JPRB,0.29173E-02_JPRB,0.28299E-02_JPRB, &
+ & 0.26579E-02_JPRB,0.24103E-02_JPRB,0.20612E-02_JPRB,0.15535E-02_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.20974E-02_JPRB,0.22118E-02_JPRB,0.22296E-02_JPRB,0.21778E-02_JPRB,0.20625E-02_JPRB, &
+ & 0.18815E-02_JPRB,0.16530E-02_JPRB,0.13562E-02_JPRB,0.82141E-03_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.21046E-02_JPRB,0.22702E-02_JPRB,0.23143E-02_JPRB,0.22813E-02_JPRB,0.21720E-02_JPRB, &
+ & 0.19971E-02_JPRB,0.17712E-02_JPRB,0.14678E-02_JPRB,0.93003E-03_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.21127E-02_JPRB,0.23326E-02_JPRB,0.24062E-02_JPRB,0.23885E-02_JPRB,0.22861E-02_JPRB, &
+ & 0.21193E-02_JPRB,0.18939E-02_JPRB,0.15834E-02_JPRB,0.10463E-02_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.21272E-02_JPRB,0.23971E-02_JPRB,0.25002E-02_JPRB,0.24977E-02_JPRB,0.24074E-02_JPRB, &
+ & 0.22461E-02_JPRB,0.20177E-02_JPRB,0.17030E-02_JPRB,0.11732E-02_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.21483E-02_JPRB,0.24652E-02_JPRB,0.25947E-02_JPRB,0.26138E-02_JPRB,0.25341E-02_JPRB, &
+ & 0.23755E-02_JPRB,0.21449E-02_JPRB,0.18299E-02_JPRB,0.13107E-02_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.18244E-02_JPRB,0.19320E-02_JPRB,0.19387E-02_JPRB,0.18795E-02_JPRB,0.17712E-02_JPRB, &
+ & 0.16188E-02_JPRB,0.14258E-02_JPRB,0.11664E-02_JPRB,0.66404E-03_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.18322E-02_JPRB,0.19846E-02_JPRB,0.20150E-02_JPRB,0.19741E-02_JPRB,0.18746E-02_JPRB, &
+ & 0.17292E-02_JPRB,0.15311E-02_JPRB,0.12668E-02_JPRB,0.75772E-03_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.18451E-02_JPRB,0.20412E-02_JPRB,0.20960E-02_JPRB,0.20746E-02_JPRB,0.19871E-02_JPRB, &
+ & 0.18444E-02_JPRB,0.16430E-02_JPRB,0.13711E-02_JPRB,0.85470E-03_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.18657E-02_JPRB,0.21020E-02_JPRB,0.21815E-02_JPRB,0.21798E-02_JPRB,0.21034E-02_JPRB, &
+ & 0.19629E-02_JPRB,0.17571E-02_JPRB,0.14786E-02_JPRB,0.95834E-03_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.18943E-02_JPRB,0.21674E-02_JPRB,0.22717E-02_JPRB,0.22915E-02_JPRB,0.22239E-02_JPRB, &
+ & 0.20844E-02_JPRB,0.18739E-02_JPRB,0.15906E-02_JPRB,0.10775E-02_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.15758E-02_JPRB,0.16711E-02_JPRB,0.16675E-02_JPRB,0.16043E-02_JPRB,0.15088E-02_JPRB, &
+ & 0.13785E-02_JPRB,0.12140E-02_JPRB,0.98780E-03_JPRB,0.53258E-03_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.15867E-02_JPRB,0.17169E-02_JPRB,0.17338E-02_JPRB,0.16891E-02_JPRB,0.16022E-02_JPRB, &
+ & 0.14807E-02_JPRB,0.13108E-02_JPRB,0.10774E-02_JPRB,0.61127E-03_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.16043E-02_JPRB,0.17687E-02_JPRB,0.18047E-02_JPRB,0.17788E-02_JPRB,0.17054E-02_JPRB, &
+ & 0.15869E-02_JPRB,0.14121E-02_JPRB,0.11700E-02_JPRB,0.69092E-03_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.16308E-02_JPRB,0.18263E-02_JPRB,0.18817E-02_JPRB,0.18741E-02_JPRB,0.18139E-02_JPRB, &
+ & 0.16955E-02_JPRB,0.15162E-02_JPRB,0.12673E-02_JPRB,0.77859E-03_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.16631E-02_JPRB,0.18894E-02_JPRB,0.19653E-02_JPRB,0.19764E-02_JPRB,0.19240E-02_JPRB, &
+ & 0.18069E-02_JPRB,0.16237E-02_JPRB,0.13697E-02_JPRB,0.87657E-03_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.13575E-02_JPRB,0.14376E-02_JPRB,0.14238E-02_JPRB,0.13660E-02_JPRB,0.12806E-02_JPRB, &
+ & 0.11664E-02_JPRB,0.10231E-02_JPRB,0.82794E-03_JPRB,0.42595E-03_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.13711E-02_JPRB,0.14787E-02_JPRB,0.14807E-02_JPRB,0.14369E-02_JPRB,0.13637E-02_JPRB, &
+ & 0.12570E-02_JPRB,0.11125E-02_JPRB,0.90729E-03_JPRB,0.48990E-03_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.13932E-02_JPRB,0.15262E-02_JPRB,0.15434E-02_JPRB,0.15158E-02_JPRB,0.14536E-02_JPRB, &
+ & 0.13534E-02_JPRB,0.12033E-02_JPRB,0.99132E-03_JPRB,0.55848E-03_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.14217E-02_JPRB,0.15804E-02_JPRB,0.16130E-02_JPRB,0.16009E-02_JPRB,0.15482E-02_JPRB, &
+ & 0.14537E-02_JPRB,0.12991E-02_JPRB,0.10796E-02_JPRB,0.63246E-03_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.14548E-02_JPRB,0.16406E-02_JPRB,0.16899E-02_JPRB,0.16924E-02_JPRB,0.16473E-02_JPRB, &
+ & 0.15538E-02_JPRB,0.13988E-02_JPRB,0.11736E-02_JPRB,0.71422E-03_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.11657E-02_JPRB,0.12310E-02_JPRB,0.12114E-02_JPRB,0.11593E-02_JPRB,0.10807E-02_JPRB, &
+ & 0.97870E-03_JPRB,0.85220E-03_JPRB,0.68679E-03_JPRB,0.33278E-03_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.11817E-02_JPRB,0.12689E-02_JPRB,0.12606E-02_JPRB,0.12200E-02_JPRB,0.11515E-02_JPRB, &
+ & 0.10575E-02_JPRB,0.93300E-03_JPRB,0.75653E-03_JPRB,0.38390E-03_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.12052E-02_JPRB,0.13132E-02_JPRB,0.13166E-02_JPRB,0.12868E-02_JPRB,0.12281E-02_JPRB, &
+ & 0.11419E-02_JPRB,0.10150E-02_JPRB,0.83054E-03_JPRB,0.44291E-03_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.12337E-02_JPRB,0.13638E-02_JPRB,0.13800E-02_JPRB,0.13608E-02_JPRB,0.13105E-02_JPRB, &
+ & 0.12294E-02_JPRB,0.11010E-02_JPRB,0.91218E-03_JPRB,0.50714E-03_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.12657E-02_JPRB,0.14200E-02_JPRB,0.14498E-02_JPRB,0.14421E-02_JPRB,0.13994E-02_JPRB, &
+ & 0.13201E-02_JPRB,0.11915E-02_JPRB,0.99447E-03_JPRB,0.57759E-03_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.99495E-03_JPRB,0.10489E-02_JPRB,0.10293E-02_JPRB,0.98184E-03_JPRB,0.91156E-03_JPRB, &
+ & 0.82083E-03_JPRB,0.70758E-03_JPRB,0.56387E-03_JPRB,0.26025E-03_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.10122E-02_JPRB,0.10837E-02_JPRB,0.10724E-02_JPRB,0.10344E-02_JPRB,0.96982E-03_JPRB, &
+ & 0.88589E-03_JPRB,0.77530E-03_JPRB,0.62605E-03_JPRB,0.29914E-03_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.10351E-02_JPRB,0.11253E-02_JPRB,0.11236E-02_JPRB,0.10922E-02_JPRB,0.10352E-02_JPRB, &
+ & 0.95724E-03_JPRB,0.84889E-03_JPRB,0.69076E-03_JPRB,0.34305E-03_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.10622E-02_JPRB,0.11721E-02_JPRB,0.11813E-02_JPRB,0.11564E-02_JPRB,0.11065E-02_JPRB, &
+ & 0.10331E-02_JPRB,0.92494E-03_JPRB,0.76297E-03_JPRB,0.39175E-03_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.10903E-02_JPRB,0.12244E-02_JPRB,0.12441E-02_JPRB,0.12287E-02_JPRB,0.11845E-02_JPRB, &
+ & 0.11129E-02_JPRB,0.10035E-02_JPRB,0.83648E-03_JPRB,0.44712E-03_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.84532E-03_JPRB,0.88892E-03_JPRB,0.86965E-03_JPRB,0.82727E-03_JPRB,0.76674E-03_JPRB, &
+ & 0.68807E-03_JPRB,0.58679E-03_JPRB,0.46179E-03_JPRB,0.21931E-03_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.86227E-03_JPRB,0.92051E-03_JPRB,0.90826E-03_JPRB,0.87315E-03_JPRB,0.81675E-03_JPRB, &
+ & 0.74173E-03_JPRB,0.64502E-03_JPRB,0.51436E-03_JPRB,0.25538E-03_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.88387E-03_JPRB,0.95827E-03_JPRB,0.95473E-03_JPRB,0.92480E-03_JPRB,0.87135E-03_JPRB, &
+ & 0.80090E-03_JPRB,0.70594E-03_JPRB,0.57141E-03_JPRB,0.29275E-03_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.90659E-03_JPRB,0.10014E-02_JPRB,0.10072E-02_JPRB,0.98186E-03_JPRB,0.93348E-03_JPRB, &
+ & 0.86582E-03_JPRB,0.77148E-03_JPRB,0.63431E-03_JPRB,0.33522E-03_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.93066E-03_JPRB,0.10477E-02_JPRB,0.10640E-02_JPRB,0.10456E-02_JPRB,0.10022E-02_JPRB, &
+ & 0.93597E-03_JPRB,0.84005E-03_JPRB,0.69831E-03_JPRB,0.38214E-03_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.71681E-03_JPRB,0.75151E-03_JPRB,0.73165E-03_JPRB,0.69303E-03_JPRB,0.64106E-03_JPRB, &
+ & 0.57326E-03_JPRB,0.48762E-03_JPRB,0.37724E-03_JPRB,0.19963E-03_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.73278E-03_JPRB,0.77936E-03_JPRB,0.76580E-03_JPRB,0.73272E-03_JPRB,0.68369E-03_JPRB, &
+ & 0.61851E-03_JPRB,0.53463E-03_JPRB,0.42190E-03_JPRB,0.23258E-03_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.75147E-03_JPRB,0.81327E-03_JPRB,0.80692E-03_JPRB,0.77827E-03_JPRB,0.73101E-03_JPRB, &
+ & 0.66869E-03_JPRB,0.58582E-03_JPRB,0.47030E-03_JPRB,0.26770E-03_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.77011E-03_JPRB,0.85035E-03_JPRB,0.85331E-03_JPRB,0.82912E-03_JPRB,0.78414E-03_JPRB, &
+ & 0.72425E-03_JPRB,0.64047E-03_JPRB,0.52434E-03_JPRB,0.30603E-03_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.79031E-03_JPRB,0.89033E-03_JPRB,0.90223E-03_JPRB,0.88462E-03_JPRB,0.84489E-03_JPRB, &
+ & 0.78478E-03_JPRB,0.70032E-03_JPRB,0.57826E-03_JPRB,0.34848E-03_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.60860E-03_JPRB,0.63631E-03_JPRB,0.61722E-03_JPRB,0.58182E-03_JPRB,0.53631E-03_JPRB, &
+ & 0.47875E-03_JPRB,0.40598E-03_JPRB,0.31001E-03_JPRB,0.21716E-03_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.62300E-03_JPRB,0.66096E-03_JPRB,0.64723E-03_JPRB,0.61624E-03_JPRB,0.57283E-03_JPRB, &
+ & 0.51614E-03_JPRB,0.44515E-03_JPRB,0.34783E-03_JPRB,0.24030E-03_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.63811E-03_JPRB,0.69041E-03_JPRB,0.68320E-03_JPRB,0.65609E-03_JPRB,0.61386E-03_JPRB, &
+ & 0.55902E-03_JPRB,0.48770E-03_JPRB,0.38933E-03_JPRB,0.26729E-03_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.65360E-03_JPRB,0.72213E-03_JPRB,0.72254E-03_JPRB,0.70011E-03_JPRB,0.66034E-03_JPRB, &
+ & 0.60659E-03_JPRB,0.53507E-03_JPRB,0.43477E-03_JPRB,0.29849E-03_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.67038E-03_JPRB,0.75665E-03_JPRB,0.76418E-03_JPRB,0.74727E-03_JPRB,0.71207E-03_JPRB, &
+ & 0.65924E-03_JPRB,0.58660E-03_JPRB,0.48108E-03_JPRB,0.33464E-03_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.52185E-03_JPRB,0.54797E-03_JPRB,0.53190E-03_JPRB,0.50128E-03_JPRB,0.46230E-03_JPRB, &
+ & 0.41291E-03_JPRB,0.35086E-03_JPRB,0.26843E-03_JPRB,0.22407E-03_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.53416E-03_JPRB,0.57111E-03_JPRB,0.56029E-03_JPRB,0.53286E-03_JPRB,0.49524E-03_JPRB, &
+ & 0.44633E-03_JPRB,0.38530E-03_JPRB,0.30138E-03_JPRB,0.24793E-03_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.54635E-03_JPRB,0.59685E-03_JPRB,0.59183E-03_JPRB,0.56852E-03_JPRB,0.53236E-03_JPRB, &
+ & 0.48455E-03_JPRB,0.42287E-03_JPRB,0.33910E-03_JPRB,0.27073E-03_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.55941E-03_JPRB,0.62493E-03_JPRB,0.62582E-03_JPRB,0.60673E-03_JPRB,0.57348E-03_JPRB, &
+ & 0.52713E-03_JPRB,0.46523E-03_JPRB,0.37861E-03_JPRB,0.29520E-03_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.57459E-03_JPRB,0.65537E-03_JPRB,0.66217E-03_JPRB,0.64854E-03_JPRB,0.61857E-03_JPRB, &
+ & 0.57343E-03_JPRB,0.51159E-03_JPRB,0.41997E-03_JPRB,0.32408E-03_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.44547E-03_JPRB,0.47205E-03_JPRB,0.45856E-03_JPRB,0.43259E-03_JPRB,0.39885E-03_JPRB, &
+ & 0.35629E-03_JPRB,0.30273E-03_JPRB,0.23099E-03_JPRB,0.20507E-03_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.45530E-03_JPRB,0.49200E-03_JPRB,0.48355E-03_JPRB,0.46058E-03_JPRB,0.42831E-03_JPRB, &
+ & 0.38615E-03_JPRB,0.33301E-03_JPRB,0.25970E-03_JPRB,0.22582E-03_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.46565E-03_JPRB,0.51443E-03_JPRB,0.51077E-03_JPRB,0.49108E-03_JPRB,0.46067E-03_JPRB, &
+ & 0.41962E-03_JPRB,0.36657E-03_JPRB,0.29355E-03_JPRB,0.24853E-03_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.47732E-03_JPRB,0.53905E-03_JPRB,0.54027E-03_JPRB,0.52415E-03_JPRB,0.49634E-03_JPRB, &
+ & 0.45650E-03_JPRB,0.40422E-03_JPRB,0.32887E-03_JPRB,0.26943E-03_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.49131E-03_JPRB,0.56624E-03_JPRB,0.57259E-03_JPRB,0.56091E-03_JPRB,0.53532E-03_JPRB, &
+ & 0.49724E-03_JPRB,0.44494E-03_JPRB,0.36671E-03_JPRB,0.29370E-03_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.37861E-03_JPRB,0.40433E-03_JPRB,0.39425E-03_JPRB,0.37277E-03_JPRB,0.34384E-03_JPRB, &
+ & 0.30718E-03_JPRB,0.26082E-03_JPRB,0.19813E-03_JPRB,0.17021E-03_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.38646E-03_JPRB,0.42180E-03_JPRB,0.41569E-03_JPRB,0.39676E-03_JPRB,0.36941E-03_JPRB, &
+ & 0.33370E-03_JPRB,0.28746E-03_JPRB,0.22445E-03_JPRB,0.18768E-03_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.39522E-03_JPRB,0.44150E-03_JPRB,0.43928E-03_JPRB,0.42293E-03_JPRB,0.39746E-03_JPRB, &
+ & 0.36268E-03_JPRB,0.31709E-03_JPRB,0.25391E-03_JPRB,0.20463E-03_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.40576E-03_JPRB,0.46362E-03_JPRB,0.46497E-03_JPRB,0.45178E-03_JPRB,0.42852E-03_JPRB, &
+ & 0.39486E-03_JPRB,0.34992E-03_JPRB,0.28472E-03_JPRB,0.22430E-03_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.41810E-03_JPRB,0.48813E-03_JPRB,0.49424E-03_JPRB,0.48434E-03_JPRB,0.46280E-03_JPRB, &
+ & 0.43027E-03_JPRB,0.38540E-03_JPRB,0.31863E-03_JPRB,0.24541E-03_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.52571E-02_JPRB,0.51649E-02_JPRB,0.50998E-02_JPRB,0.49978E-02_JPRB,0.48299E-02_JPRB, &
+ & 0.45478E-02_JPRB,0.41071E-02_JPRB,0.34884E-02_JPRB,0.27402E-02_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.51967E-02_JPRB,0.52277E-02_JPRB,0.52437E-02_JPRB,0.52099E-02_JPRB,0.50894E-02_JPRB, &
+ & 0.48424E-02_JPRB,0.44165E-02_JPRB,0.38421E-02_JPRB,0.31643E-02_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.51548E-02_JPRB,0.53047E-02_JPRB,0.54023E-02_JPRB,0.54271E-02_JPRB,0.53544E-02_JPRB, &
+ & 0.51370E-02_JPRB,0.47457E-02_JPRB,0.42178E-02_JPRB,0.36142E-02_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.51293E-02_JPRB,0.53942E-02_JPRB,0.55672E-02_JPRB,0.56512E-02_JPRB,0.56201E-02_JPRB, &
+ & 0.54409E-02_JPRB,0.50927E-02_JPRB,0.46186E-02_JPRB,0.40998E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.51178E-02_JPRB,0.54996E-02_JPRB,0.57406E-02_JPRB,0.58798E-02_JPRB,0.58932E-02_JPRB, &
+ & 0.57606E-02_JPRB,0.54613E-02_JPRB,0.50399E-02_JPRB,0.46100E-02_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.47778E-02_JPRB,0.47398E-02_JPRB,0.47115E-02_JPRB,0.46169E-02_JPRB,0.44426E-02_JPRB, &
+ & 0.41630E-02_JPRB,0.37511E-02_JPRB,0.31426E-02_JPRB,0.23122E-02_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.47384E-02_JPRB,0.48111E-02_JPRB,0.48532E-02_JPRB,0.48144E-02_JPRB,0.46755E-02_JPRB, &
+ & 0.44342E-02_JPRB,0.40397E-02_JPRB,0.34599E-02_JPRB,0.26698E-02_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.47181E-02_JPRB,0.49025E-02_JPRB,0.50071E-02_JPRB,0.50151E-02_JPRB,0.49194E-02_JPRB, &
+ & 0.47085E-02_JPRB,0.43402E-02_JPRB,0.37956E-02_JPRB,0.30630E-02_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.47137E-02_JPRB,0.50070E-02_JPRB,0.51691E-02_JPRB,0.52245E-02_JPRB,0.51706E-02_JPRB, &
+ & 0.49959E-02_JPRB,0.46583E-02_JPRB,0.41574E-02_JPRB,0.34865E-02_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.47212E-02_JPRB,0.51234E-02_JPRB,0.53397E-02_JPRB,0.54379E-02_JPRB,0.54276E-02_JPRB, &
+ & 0.52983E-02_JPRB,0.49978E-02_JPRB,0.45412E-02_JPRB,0.39357E-02_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.42971E-02_JPRB,0.42851E-02_JPRB,0.42729E-02_JPRB,0.41707E-02_JPRB,0.39926E-02_JPRB, &
+ & 0.37146E-02_JPRB,0.33264E-02_JPRB,0.27717E-02_JPRB,0.18852E-02_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.42740E-02_JPRB,0.43647E-02_JPRB,0.44079E-02_JPRB,0.43562E-02_JPRB,0.42040E-02_JPRB, &
+ & 0.39559E-02_JPRB,0.35908E-02_JPRB,0.30443E-02_JPRB,0.21816E-02_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.42703E-02_JPRB,0.44650E-02_JPRB,0.45616E-02_JPRB,0.45425E-02_JPRB,0.44233E-02_JPRB, &
+ & 0.42066E-02_JPRB,0.38676E-02_JPRB,0.33396E-02_JPRB,0.25126E-02_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.42812E-02_JPRB,0.45806E-02_JPRB,0.47230E-02_JPRB,0.47371E-02_JPRB,0.46519E-02_JPRB, &
+ & 0.44691E-02_JPRB,0.41620E-02_JPRB,0.36586E-02_JPRB,0.28704E-02_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.43030E-02_JPRB,0.47042E-02_JPRB,0.48922E-02_JPRB,0.49377E-02_JPRB,0.48939E-02_JPRB, &
+ & 0.47477E-02_JPRB,0.44742E-02_JPRB,0.39985E-02_JPRB,0.32501E-02_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.38233E-02_JPRB,0.38279E-02_JPRB,0.38143E-02_JPRB,0.37097E-02_JPRB,0.35270E-02_JPRB, &
+ & 0.32658E-02_JPRB,0.29019E-02_JPRB,0.24142E-02_JPRB,0.15291E-02_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.38114E-02_JPRB,0.39122E-02_JPRB,0.39475E-02_JPRB,0.38778E-02_JPRB,0.37194E-02_JPRB, &
+ & 0.34777E-02_JPRB,0.31357E-02_JPRB,0.26541E-02_JPRB,0.17758E-02_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.38202E-02_JPRB,0.40186E-02_JPRB,0.40970E-02_JPRB,0.40542E-02_JPRB,0.39201E-02_JPRB, &
+ & 0.37024E-02_JPRB,0.33826E-02_JPRB,0.29146E-02_JPRB,0.20543E-02_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.38442E-02_JPRB,0.41385E-02_JPRB,0.42569E-02_JPRB,0.42394E-02_JPRB,0.41310E-02_JPRB, &
+ & 0.39403E-02_JPRB,0.36479E-02_JPRB,0.31917E-02_JPRB,0.23538E-02_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.38788E-02_JPRB,0.42695E-02_JPRB,0.44229E-02_JPRB,0.44328E-02_JPRB,0.43540E-02_JPRB, &
+ & 0.41948E-02_JPRB,0.39317E-02_JPRB,0.34895E-02_JPRB,0.26724E-02_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.33660E-02_JPRB,0.33879E-02_JPRB,0.33669E-02_JPRB,0.32570E-02_JPRB,0.30787E-02_JPRB, &
+ & 0.28362E-02_JPRB,0.25094E-02_JPRB,0.20819E-02_JPRB,0.12376E-02_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.33649E-02_JPRB,0.34740E-02_JPRB,0.34949E-02_JPRB,0.34119E-02_JPRB,0.32508E-02_JPRB, &
+ & 0.30247E-02_JPRB,0.27121E-02_JPRB,0.22949E-02_JPRB,0.14462E-02_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.33839E-02_JPRB,0.35821E-02_JPRB,0.36398E-02_JPRB,0.35762E-02_JPRB,0.34359E-02_JPRB, &
+ & 0.32230E-02_JPRB,0.29317E-02_JPRB,0.25218E-02_JPRB,0.16788E-02_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.34188E-02_JPRB,0.37047E-02_JPRB,0.37932E-02_JPRB,0.37524E-02_JPRB,0.36321E-02_JPRB, &
+ & 0.34359E-02_JPRB,0.31677E-02_JPRB,0.27663E-02_JPRB,0.19299E-02_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.34572E-02_JPRB,0.38382E-02_JPRB,0.39563E-02_JPRB,0.39381E-02_JPRB,0.38416E-02_JPRB, &
+ & 0.36710E-02_JPRB,0.34185E-02_JPRB,0.30298E-02_JPRB,0.21985E-02_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.29383E-02_JPRB,0.29689E-02_JPRB,0.29375E-02_JPRB,0.28254E-02_JPRB,0.26571E-02_JPRB, &
+ & 0.24356E-02_JPRB,0.21491E-02_JPRB,0.17706E-02_JPRB,0.99284E-03_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.29460E-02_JPRB,0.30526E-02_JPRB,0.30576E-02_JPRB,0.29676E-02_JPRB,0.28114E-02_JPRB, &
+ & 0.25995E-02_JPRB,0.23244E-02_JPRB,0.19573E-02_JPRB,0.11692E-02_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.29740E-02_JPRB,0.31582E-02_JPRB,0.31942E-02_JPRB,0.31202E-02_JPRB,0.29785E-02_JPRB, &
+ & 0.27771E-02_JPRB,0.25160E-02_JPRB,0.21565E-02_JPRB,0.13616E-02_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.30101E-02_JPRB,0.32807E-02_JPRB,0.33417E-02_JPRB,0.32855E-02_JPRB,0.31583E-02_JPRB, &
+ & 0.29708E-02_JPRB,0.27234E-02_JPRB,0.23688E-02_JPRB,0.15696E-02_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.30525E-02_JPRB,0.34071E-02_JPRB,0.34999E-02_JPRB,0.34618E-02_JPRB,0.33518E-02_JPRB, &
+ & 0.31829E-02_JPRB,0.29437E-02_JPRB,0.25986E-02_JPRB,0.17941E-02_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.25527E-02_JPRB,0.25837E-02_JPRB,0.25415E-02_JPRB,0.24332E-02_JPRB,0.22747E-02_JPRB, &
+ & 0.20758E-02_JPRB,0.18231E-02_JPRB,0.14951E-02_JPRB,0.78066E-03_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.25661E-02_JPRB,0.26638E-02_JPRB,0.26497E-02_JPRB,0.25583E-02_JPRB,0.24134E-02_JPRB, &
+ & 0.22212E-02_JPRB,0.19774E-02_JPRB,0.16540E-02_JPRB,0.92809E-03_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.25966E-02_JPRB,0.27642E-02_JPRB,0.27764E-02_JPRB,0.26998E-02_JPRB,0.25630E-02_JPRB, &
+ & 0.23812E-02_JPRB,0.21449E-02_JPRB,0.18264E-02_JPRB,0.10893E-02_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.26340E-02_JPRB,0.28771E-02_JPRB,0.29165E-02_JPRB,0.28538E-02_JPRB,0.27279E-02_JPRB, &
+ & 0.25553E-02_JPRB,0.23260E-02_JPRB,0.20107E-02_JPRB,0.12665E-02_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.26829E-02_JPRB,0.29939E-02_JPRB,0.30639E-02_JPRB,0.30192E-02_JPRB,0.29089E-02_JPRB, &
+ & 0.27450E-02_JPRB,0.25219E-02_JPRB,0.22101E-02_JPRB,0.14584E-02_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.22109E-02_JPRB,0.22392E-02_JPRB,0.21909E-02_JPRB,0.20870E-02_JPRB,0.19391E-02_JPRB, &
+ & 0.17569E-02_JPRB,0.15368E-02_JPRB,0.12514E-02_JPRB,0.62879E-03_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.22276E-02_JPRB,0.23140E-02_JPRB,0.22874E-02_JPRB,0.21965E-02_JPRB,0.20609E-02_JPRB, &
+ & 0.18868E-02_JPRB,0.16711E-02_JPRB,0.13887E-02_JPRB,0.73533E-03_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.22565E-02_JPRB,0.24065E-02_JPRB,0.24031E-02_JPRB,0.23233E-02_JPRB,0.21969E-02_JPRB, &
+ & 0.20302E-02_JPRB,0.18188E-02_JPRB,0.15365E-02_JPRB,0.85609E-03_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.22974E-02_JPRB,0.25072E-02_JPRB,0.25290E-02_JPRB,0.24653E-02_JPRB,0.23482E-02_JPRB, &
+ & 0.21882E-02_JPRB,0.19777E-02_JPRB,0.16966E-02_JPRB,0.98553E-03_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.23517E-02_JPRB,0.26173E-02_JPRB,0.26619E-02_JPRB,0.26145E-02_JPRB,0.25139E-02_JPRB, &
+ & 0.23587E-02_JPRB,0.21497E-02_JPRB,0.18671E-02_JPRB,0.11277E-02_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.19109E-02_JPRB,0.19351E-02_JPRB,0.18847E-02_JPRB,0.17853E-02_JPRB,0.16484E-02_JPRB, &
+ & 0.14828E-02_JPRB,0.12861E-02_JPRB,0.10403E-02_JPRB,0.59847E-03_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.19272E-02_JPRB,0.20031E-02_JPRB,0.19691E-02_JPRB,0.18817E-02_JPRB,0.17540E-02_JPRB, &
+ & 0.15965E-02_JPRB,0.14036E-02_JPRB,0.11571E-02_JPRB,0.69475E-03_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.19559E-02_JPRB,0.20842E-02_JPRB,0.20709E-02_JPRB,0.19954E-02_JPRB,0.18765E-02_JPRB, &
+ & 0.17233E-02_JPRB,0.15331E-02_JPRB,0.12839E-02_JPRB,0.80150E-03_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.19994E-02_JPRB,0.21761E-02_JPRB,0.21815E-02_JPRB,0.21203E-02_JPRB,0.20143E-02_JPRB, &
+ & 0.18645E-02_JPRB,0.16732E-02_JPRB,0.14206E-02_JPRB,0.91777E-03_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.20550E-02_JPRB,0.22788E-02_JPRB,0.23027E-02_JPRB,0.22546E-02_JPRB,0.21605E-02_JPRB, &
+ & 0.20175E-02_JPRB,0.18247E-02_JPRB,0.15687E-02_JPRB,0.10450E-02_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.16445E-02_JPRB,0.16716E-02_JPRB,0.16238E-02_JPRB,0.15300E-02_JPRB,0.14061E-02_JPRB, &
+ & 0.12566E-02_JPRB,0.10807E-02_JPRB,0.86738E-03_JPRB,0.60827E-03_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.16600E-02_JPRB,0.17327E-02_JPRB,0.16984E-02_JPRB,0.16154E-02_JPRB,0.14994E-02_JPRB, &
+ & 0.13556E-02_JPRB,0.11827E-02_JPRB,0.96695E-03_JPRB,0.70548E-03_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.16905E-02_JPRB,0.18053E-02_JPRB,0.17869E-02_JPRB,0.17163E-02_JPRB,0.16090E-02_JPRB, &
+ & 0.14689E-02_JPRB,0.12961E-02_JPRB,0.10754E-02_JPRB,0.80786E-03_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.17354E-02_JPRB,0.18905E-02_JPRB,0.18865E-02_JPRB,0.18272E-02_JPRB,0.17299E-02_JPRB, &
+ & 0.15951E-02_JPRB,0.14192E-02_JPRB,0.11936E-02_JPRB,0.91620E-03_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.17884E-02_JPRB,0.19860E-02_JPRB,0.19977E-02_JPRB,0.19501E-02_JPRB,0.18596E-02_JPRB, &
+ & 0.17298E-02_JPRB,0.15525E-02_JPRB,0.13217E-02_JPRB,0.10338E-02_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.14133E-02_JPRB,0.14603E-02_JPRB,0.14202E-02_JPRB,0.13407E-02_JPRB,0.12334E-02_JPRB, &
+ & 0.11026E-02_JPRB,0.94643E-03_JPRB,0.75979E-03_JPRB,0.57405E-03_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.14357E-02_JPRB,0.15193E-02_JPRB,0.14916E-02_JPRB,0.14232E-02_JPRB,0.13232E-02_JPRB, &
+ & 0.11950E-02_JPRB,0.10392E-02_JPRB,0.84686E-03_JPRB,0.65471E-03_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.14730E-02_JPRB,0.15907E-02_JPRB,0.15765E-02_JPRB,0.15172E-02_JPRB,0.14237E-02_JPRB, &
+ & 0.12997E-02_JPRB,0.11424E-02_JPRB,0.94298E-03_JPRB,0.75212E-03_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.15188E-02_JPRB,0.16737E-02_JPRB,0.16734E-02_JPRB,0.16227E-02_JPRB,0.15348E-02_JPRB, &
+ & 0.14132E-02_JPRB,0.12544E-02_JPRB,0.10476E-02_JPRB,0.85445E-03_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.15705E-02_JPRB,0.17634E-02_JPRB,0.17799E-02_JPRB,0.17387E-02_JPRB,0.16551E-02_JPRB, &
+ & 0.15344E-02_JPRB,0.13744E-02_JPRB,0.11635E-02_JPRB,0.96358E-03_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.12145E-02_JPRB,0.12721E-02_JPRB,0.12387E-02_JPRB,0.11722E-02_JPRB,0.10815E-02_JPRB, &
+ & 0.96748E-03_JPRB,0.83052E-03_JPRB,0.66461E-03_JPRB,0.51952E-03_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.12432E-02_JPRB,0.13303E-02_JPRB,0.13076E-02_JPRB,0.12500E-02_JPRB,0.11644E-02_JPRB, &
+ & 0.10531E-02_JPRB,0.91410E-03_JPRB,0.74198E-03_JPRB,0.58718E-03_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.12811E-02_JPRB,0.13998E-02_JPRB,0.13897E-02_JPRB,0.13394E-02_JPRB,0.12574E-02_JPRB, &
+ & 0.11474E-02_JPRB,0.10067E-02_JPRB,0.82675E-03_JPRB,0.66821E-03_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.13251E-02_JPRB,0.14771E-02_JPRB,0.14813E-02_JPRB,0.14393E-02_JPRB,0.13610E-02_JPRB, &
+ & 0.12504E-02_JPRB,0.11057E-02_JPRB,0.91975E-03_JPRB,0.76078E-03_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.13700E-02_JPRB,0.15597E-02_JPRB,0.15807E-02_JPRB,0.15467E-02_JPRB,0.14716E-02_JPRB, &
+ & 0.13608E-02_JPRB,0.12138E-02_JPRB,0.10232E-02_JPRB,0.85832E-03_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.10471E-02_JPRB,0.11076E-02_JPRB,0.10790E-02_JPRB,0.10231E-02_JPRB,0.94527E-03_JPRB, &
+ & 0.84789E-03_JPRB,0.72861E-03_JPRB,0.58068E-03_JPRB,0.44361E-03_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.10765E-02_JPRB,0.11637E-02_JPRB,0.11461E-02_JPRB,0.10966E-02_JPRB,0.10221E-02_JPRB, &
+ & 0.92418E-03_JPRB,0.80364E-03_JPRB,0.64949E-03_JPRB,0.50409E-03_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.11121E-02_JPRB,0.12288E-02_JPRB,0.12232E-02_JPRB,0.11802E-02_JPRB,0.11084E-02_JPRB, &
+ & 0.10099E-02_JPRB,0.88562E-03_JPRB,0.72467E-03_JPRB,0.57688E-03_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.11491E-02_JPRB,0.12989E-02_JPRB,0.13080E-02_JPRB,0.12720E-02_JPRB,0.12030E-02_JPRB, &
+ & 0.11037E-02_JPRB,0.97404E-03_JPRB,0.80781E-03_JPRB,0.65303E-03_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.11880E-02_JPRB,0.13724E-02_JPRB,0.13975E-02_JPRB,0.13701E-02_JPRB,0.13034E-02_JPRB, &
+ & 0.12049E-02_JPRB,0.10715E-02_JPRB,0.89944E-03_JPRB,0.73687E-03_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.14418E-01_JPRB,0.13406E-01_JPRB,0.12605E-01_JPRB,0.11857E-01_JPRB,0.11091E-01_JPRB, &
+ & 0.10336E-01_JPRB,0.95691E-02_JPRB,0.87036E-02_JPRB,0.88524E-02_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.14296E-01_JPRB,0.13450E-01_JPRB,0.12870E-01_JPRB,0.12297E-01_JPRB,0.11684E-01_JPRB, &
+ & 0.11070E-01_JPRB,0.10452E-01_JPRB,0.97477E-02_JPRB,0.10154E-01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.14166E-01_JPRB,0.13524E-01_JPRB,0.13158E-01_JPRB,0.12768E-01_JPRB,0.12317E-01_JPRB, &
+ & 0.11876E-01_JPRB,0.11397E-01_JPRB,0.10864E-01_JPRB,0.11523E-01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.14022E-01_JPRB,0.13622E-01_JPRB,0.13487E-01_JPRB,0.13264E-01_JPRB,0.13003E-01_JPRB, &
+ & 0.12732E-01_JPRB,0.12371E-01_JPRB,0.12050E-01_JPRB,0.12968E-01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.13872E-01_JPRB,0.13730E-01_JPRB,0.13820E-01_JPRB,0.13802E-01_JPRB,0.13718E-01_JPRB, &
+ & 0.13604E-01_JPRB,0.13373E-01_JPRB,0.13315E-01_JPRB,0.14498E-01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.14547E-01_JPRB,0.13535E-01_JPRB,0.12726E-01_JPRB,0.11955E-01_JPRB,0.11121E-01_JPRB, &
+ & 0.10242E-01_JPRB,0.92998E-02_JPRB,0.82716E-02_JPRB,0.79571E-02_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.14415E-01_JPRB,0.13577E-01_JPRB,0.12984E-01_JPRB,0.12377E-01_JPRB,0.11698E-01_JPRB, &
+ & 0.10932E-01_JPRB,0.10129E-01_JPRB,0.92199E-02_JPRB,0.91565E-02_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.14274E-01_JPRB,0.13649E-01_JPRB,0.13264E-01_JPRB,0.12845E-01_JPRB,0.12290E-01_JPRB, &
+ & 0.11686E-01_JPRB,0.11026E-01_JPRB,0.10231E-01_JPRB,0.10415E-01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.14122E-01_JPRB,0.13744E-01_JPRB,0.13589E-01_JPRB,0.13325E-01_JPRB,0.12935E-01_JPRB, &
+ & 0.12484E-01_JPRB,0.11950E-01_JPRB,0.11311E-01_JPRB,0.11744E-01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.13965E-01_JPRB,0.13855E-01_JPRB,0.13924E-01_JPRB,0.13828E-01_JPRB,0.13608E-01_JPRB, &
+ & 0.13305E-01_JPRB,0.12905E-01_JPRB,0.12457E-01_JPRB,0.13151E-01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.14475E-01_JPRB,0.13482E-01_JPRB,0.12654E-01_JPRB,0.11861E-01_JPRB,0.10971E-01_JPRB, &
+ & 0.99930E-02_JPRB,0.88735E-02_JPRB,0.76595E-02_JPRB,0.68509E-02_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.14335E-01_JPRB,0.13514E-01_JPRB,0.12906E-01_JPRB,0.12263E-01_JPRB,0.11533E-01_JPRB, &
+ & 0.10637E-01_JPRB,0.96386E-02_JPRB,0.85394E-02_JPRB,0.79297E-02_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.14181E-01_JPRB,0.13576E-01_JPRB,0.13177E-01_JPRB,0.12719E-01_JPRB,0.12099E-01_JPRB, &
+ & 0.11329E-01_JPRB,0.10466E-01_JPRB,0.94601E-02_JPRB,0.90731E-02_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.14024E-01_JPRB,0.13665E-01_JPRB,0.13491E-01_JPRB,0.13188E-01_JPRB,0.12703E-01_JPRB, &
+ & 0.12072E-01_JPRB,0.11323E-01_JPRB,0.10433E-01_JPRB,0.10295E-01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.13862E-01_JPRB,0.13772E-01_JPRB,0.13824E-01_JPRB,0.13679E-01_JPRB,0.13333E-01_JPRB, &
+ & 0.12836E-01_JPRB,0.12214E-01_JPRB,0.11468E-01_JPRB,0.11588E-01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.14153E-01_JPRB,0.13216E-01_JPRB,0.12406E-01_JPRB,0.11612E-01_JPRB,0.10690E-01_JPRB, &
+ & 0.96495E-02_JPRB,0.84088E-02_JPRB,0.70121E-02_JPRB,0.57874E-02_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.14005E-01_JPRB,0.13241E-01_JPRB,0.12647E-01_JPRB,0.11995E-01_JPRB,0.11231E-01_JPRB, &
+ & 0.10266E-01_JPRB,0.91127E-02_JPRB,0.78123E-02_JPRB,0.67372E-02_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.13845E-01_JPRB,0.13290E-01_JPRB,0.12907E-01_JPRB,0.12438E-01_JPRB,0.11783E-01_JPRB, &
+ & 0.10918E-01_JPRB,0.98730E-02_JPRB,0.86646E-02_JPRB,0.77601E-02_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.13685E-01_JPRB,0.13375E-01_JPRB,0.13206E-01_JPRB,0.12899E-01_JPRB,0.12360E-01_JPRB, &
+ & 0.11608E-01_JPRB,0.10665E-01_JPRB,0.95624E-02_JPRB,0.88628E-02_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.13529E-01_JPRB,0.13472E-01_JPRB,0.13531E-01_JPRB,0.13371E-01_JPRB,0.12964E-01_JPRB, &
+ & 0.12311E-01_JPRB,0.11491E-01_JPRB,0.10508E-01_JPRB,0.10039E-01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.13587E-01_JPRB,0.12730E-01_JPRB,0.11973E-01_JPRB,0.11204E-01_JPRB,0.10282E-01_JPRB, &
+ & 0.92218E-02_JPRB,0.79316E-02_JPRB,0.64044E-02_JPRB,0.48583E-02_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.13430E-01_JPRB,0.12751E-01_JPRB,0.12205E-01_JPRB,0.11567E-01_JPRB,0.10798E-01_JPRB, &
+ & 0.98163E-02_JPRB,0.85810E-02_JPRB,0.71221E-02_JPRB,0.56837E-02_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.13271E-01_JPRB,0.12793E-01_JPRB,0.12448E-01_JPRB,0.11993E-01_JPRB,0.11338E-01_JPRB, &
+ & 0.10437E-01_JPRB,0.92786E-02_JPRB,0.78957E-02_JPRB,0.65802E-02_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.13115E-01_JPRB,0.12874E-01_JPRB,0.12735E-01_JPRB,0.12440E-01_JPRB,0.11897E-01_JPRB, &
+ & 0.11094E-01_JPRB,0.10003E-01_JPRB,0.87146E-02_JPRB,0.75565E-02_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.12984E-01_JPRB,0.12973E-01_JPRB,0.13053E-01_JPRB,0.12899E-01_JPRB,0.12481E-01_JPRB, &
+ & 0.11759E-01_JPRB,0.10765E-01_JPRB,0.95850E-02_JPRB,0.86117E-02_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.12817E-01_JPRB,0.12050E-01_JPRB,0.11369E-01_JPRB,0.10622E-01_JPRB,0.97180E-02_JPRB, &
+ & 0.86745E-02_JPRB,0.73942E-02_JPRB,0.58154E-02_JPRB,0.40318E-02_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.12656E-01_JPRB,0.12077E-01_JPRB,0.11582E-01_JPRB,0.10960E-01_JPRB,0.10205E-01_JPRB, &
+ & 0.92477E-02_JPRB,0.80000E-02_JPRB,0.64500E-02_JPRB,0.47452E-02_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.12499E-01_JPRB,0.12115E-01_JPRB,0.11810E-01_JPRB,0.11361E-01_JPRB,0.10734E-01_JPRB, &
+ & 0.98374E-02_JPRB,0.86412E-02_JPRB,0.71467E-02_JPRB,0.55214E-02_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.12364E-01_JPRB,0.12194E-01_JPRB,0.12081E-01_JPRB,0.11798E-01_JPRB,0.11270E-01_JPRB, &
+ & 0.10459E-01_JPRB,0.93144E-02_JPRB,0.78844E-02_JPRB,0.63718E-02_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.12255E-01_JPRB,0.12311E-01_JPRB,0.12390E-01_JPRB,0.12242E-01_JPRB,0.11833E-01_JPRB, &
+ & 0.11093E-01_JPRB,0.10016E-01_JPRB,0.86730E-02_JPRB,0.72984E-02_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.11891E-01_JPRB,0.11226E-01_JPRB,0.10633E-01_JPRB,0.99134E-02_JPRB,0.90439E-02_JPRB, &
+ & 0.80297E-02_JPRB,0.68136E-02_JPRB,0.52756E-02_JPRB,0.33216E-02_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.11730E-01_JPRB,0.11250E-01_JPRB,0.10822E-01_JPRB,0.10230E-01_JPRB,0.94903E-02_JPRB, &
+ & 0.85683E-02_JPRB,0.73765E-02_JPRB,0.58347E-02_JPRB,0.39310E-02_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.11586E-01_JPRB,0.11299E-01_JPRB,0.11036E-01_JPRB,0.10599E-01_JPRB,0.99917E-02_JPRB, &
+ & 0.91260E-02_JPRB,0.79645E-02_JPRB,0.64502E-02_JPRB,0.46031E-02_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.11473E-01_JPRB,0.11391E-01_JPRB,0.11290E-01_JPRB,0.11015E-01_JPRB,0.10500E-01_JPRB, &
+ & 0.97132E-02_JPRB,0.85920E-02_JPRB,0.71112E-02_JPRB,0.53403E-02_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.11384E-01_JPRB,0.11524E-01_JPRB,0.11598E-01_JPRB,0.11442E-01_JPRB,0.11036E-01_JPRB, &
+ & 0.10317E-01_JPRB,0.92441E-02_JPRB,0.78209E-02_JPRB,0.61457E-02_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.10852E-01_JPRB,0.10302E-01_JPRB,0.97896E-02_JPRB,0.91138E-02_JPRB,0.83000E-02_JPRB, &
+ & 0.73373E-02_JPRB,0.61956E-02_JPRB,0.47644E-02_JPRB,0.26652E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.10699E-01_JPRB,0.10325E-01_JPRB,0.99631E-02_JPRB,0.94045E-02_JPRB,0.87025E-02_JPRB, &
+ & 0.78255E-02_JPRB,0.67137E-02_JPRB,0.52638E-02_JPRB,0.31922E-02_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.10574E-01_JPRB,0.10385E-01_JPRB,0.10163E-01_JPRB,0.97460E-02_JPRB,0.91609E-02_JPRB, &
+ & 0.83418E-02_JPRB,0.72560E-02_JPRB,0.58143E-02_JPRB,0.37766E-02_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.10480E-01_JPRB,0.10499E-01_JPRB,0.10413E-01_JPRB,0.10139E-01_JPRB,0.96342E-02_JPRB, &
+ & 0.88826E-02_JPRB,0.78405E-02_JPRB,0.64037E-02_JPRB,0.44295E-02_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.10415E-01_JPRB,0.10646E-01_JPRB,0.10720E-01_JPRB,0.10553E-01_JPRB,0.10134E-01_JPRB, &
+ & 0.94529E-02_JPRB,0.84471E-02_JPRB,0.70384E-02_JPRB,0.51485E-02_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.97587E-02_JPRB,0.93185E-02_JPRB,0.88694E-02_JPRB,0.82517E-02_JPRB,0.75094E-02_JPRB, &
+ & 0.66177E-02_JPRB,0.55658E-02_JPRB,0.42591E-02_JPRB,0.21931E-02_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.96183E-02_JPRB,0.93436E-02_JPRB,0.90329E-02_JPRB,0.85198E-02_JPRB,0.78654E-02_JPRB, &
+ & 0.70507E-02_JPRB,0.60316E-02_JPRB,0.47067E-02_JPRB,0.25691E-02_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.95112E-02_JPRB,0.94166E-02_JPRB,0.92325E-02_JPRB,0.88355E-02_JPRB,0.82791E-02_JPRB, &
+ & 0.75194E-02_JPRB,0.65208E-02_JPRB,0.52003E-02_JPRB,0.29789E-02_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.94373E-02_JPRB,0.95446E-02_JPRB,0.94815E-02_JPRB,0.92092E-02_JPRB,0.87140E-02_JPRB, &
+ & 0.80091E-02_JPRB,0.70556E-02_JPRB,0.57344E-02_JPRB,0.34284E-02_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.93945E-02_JPRB,0.97041E-02_JPRB,0.97866E-02_JPRB,0.96055E-02_JPRB,0.91834E-02_JPRB, &
+ & 0.85358E-02_JPRB,0.76199E-02_JPRB,0.63067E-02_JPRB,0.39360E-02_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.86571E-02_JPRB,0.83282E-02_JPRB,0.79327E-02_JPRB,0.73862E-02_JPRB,0.67217E-02_JPRB, &
+ & 0.59210E-02_JPRB,0.49777E-02_JPRB,0.37950E-02_JPRB,0.25161E-02_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.85351E-02_JPRB,0.83629E-02_JPRB,0.80910E-02_JPRB,0.76400E-02_JPRB,0.70398E-02_JPRB, &
+ & 0.63068E-02_JPRB,0.53903E-02_JPRB,0.41966E-02_JPRB,0.29067E-02_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.84483E-02_JPRB,0.84483E-02_JPRB,0.82944E-02_JPRB,0.79338E-02_JPRB,0.74159E-02_JPRB, &
+ & 0.67272E-02_JPRB,0.58285E-02_JPRB,0.46411E-02_JPRB,0.33599E-02_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.83941E-02_JPRB,0.85821E-02_JPRB,0.85440E-02_JPRB,0.82866E-02_JPRB,0.78214E-02_JPRB, &
+ & 0.71692E-02_JPRB,0.63103E-02_JPRB,0.51290E-02_JPRB,0.38620E-02_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.83806E-02_JPRB,0.87510E-02_JPRB,0.88459E-02_JPRB,0.86620E-02_JPRB,0.82607E-02_JPRB, &
+ & 0.76554E-02_JPRB,0.68267E-02_JPRB,0.56504E-02_JPRB,0.44001E-02_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.75570E-02_JPRB,0.73902E-02_JPRB,0.70826E-02_JPRB,0.66405E-02_JPRB,0.60731E-02_JPRB, &
+ & 0.53892E-02_JPRB,0.45656E-02_JPRB,0.35050E-02_JPRB,0.26164E-02_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.74683E-02_JPRB,0.74501E-02_JPRB,0.72578E-02_JPRB,0.68886E-02_JPRB,0.63823E-02_JPRB, &
+ & 0.57485E-02_JPRB,0.49402E-02_JPRB,0.38790E-02_JPRB,0.30097E-02_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.74153E-02_JPRB,0.75630E-02_JPRB,0.74762E-02_JPRB,0.71912E-02_JPRB,0.67425E-02_JPRB, &
+ & 0.61326E-02_JPRB,0.53447E-02_JPRB,0.42990E-02_JPRB,0.34771E-02_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.74057E-02_JPRB,0.77202E-02_JPRB,0.77477E-02_JPRB,0.75330E-02_JPRB,0.71268E-02_JPRB, &
+ & 0.65549E-02_JPRB,0.57951E-02_JPRB,0.47555E-02_JPRB,0.39884E-02_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.74391E-02_JPRB,0.79220E-02_JPRB,0.80561E-02_JPRB,0.79014E-02_JPRB,0.75514E-02_JPRB, &
+ & 0.70214E-02_JPRB,0.62779E-02_JPRB,0.52483E-02_JPRB,0.45376E-02_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.65546E-02_JPRB,0.65200E-02_JPRB,0.62910E-02_JPRB,0.59243E-02_JPRB,0.54454E-02_JPRB, &
+ & 0.48623E-02_JPRB,0.41386E-02_JPRB,0.32013E-02_JPRB,0.25137E-02_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.64987E-02_JPRB,0.66047E-02_JPRB,0.64774E-02_JPRB,0.61754E-02_JPRB,0.57483E-02_JPRB, &
+ & 0.51910E-02_JPRB,0.44799E-02_JPRB,0.35500E-02_JPRB,0.28998E-02_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.64867E-02_JPRB,0.67439E-02_JPRB,0.67077E-02_JPRB,0.64758E-02_JPRB,0.60840E-02_JPRB, &
+ & 0.55472E-02_JPRB,0.48582E-02_JPRB,0.39433E-02_JPRB,0.33472E-02_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.65214E-02_JPRB,0.69269E-02_JPRB,0.69913E-02_JPRB,0.68034E-02_JPRB,0.64480E-02_JPRB, &
+ & 0.59497E-02_JPRB,0.52811E-02_JPRB,0.43712E-02_JPRB,0.38283E-02_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.66068E-02_JPRB,0.71634E-02_JPRB,0.73032E-02_JPRB,0.71670E-02_JPRB,0.68605E-02_JPRB, &
+ & 0.63896E-02_JPRB,0.57387E-02_JPRB,0.48340E-02_JPRB,0.43614E-02_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.56598E-02_JPRB,0.57241E-02_JPRB,0.55653E-02_JPRB,0.52616E-02_JPRB,0.48615E-02_JPRB, &
+ & 0.43534E-02_JPRB,0.37143E-02_JPRB,0.28975E-02_JPRB,0.22483E-02_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.56408E-02_JPRB,0.58364E-02_JPRB,0.57539E-02_JPRB,0.55120E-02_JPRB,0.51475E-02_JPRB, &
+ & 0.46559E-02_JPRB,0.40284E-02_JPRB,0.32222E-02_JPRB,0.26111E-02_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.56697E-02_JPRB,0.59982E-02_JPRB,0.59981E-02_JPRB,0.58053E-02_JPRB,0.54583E-02_JPRB, &
+ & 0.49917E-02_JPRB,0.43867E-02_JPRB,0.35862E-02_JPRB,0.30268E-02_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.57519E-02_JPRB,0.62108E-02_JPRB,0.62874E-02_JPRB,0.61219E-02_JPRB,0.58111E-02_JPRB, &
+ & 0.53715E-02_JPRB,0.47851E-02_JPRB,0.39858E-02_JPRB,0.34700E-02_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.58830E-02_JPRB,0.64813E-02_JPRB,0.66064E-02_JPRB,0.64830E-02_JPRB,0.62068E-02_JPRB, &
+ & 0.57872E-02_JPRB,0.52185E-02_JPRB,0.44205E-02_JPRB,0.39619E-02_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.28544E-01_JPRB,0.26155E-01_JPRB,0.24149E-01_JPRB,0.22667E-01_JPRB,0.21632E-01_JPRB, &
+ & 0.20279E-01_JPRB,0.18489E-01_JPRB,0.17580E-01_JPRB,0.19616E-01_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.28363E-01_JPRB,0.26242E-01_JPRB,0.24669E-01_JPRB,0.23473E-01_JPRB,0.22995E-01_JPRB, &
+ & 0.21803E-01_JPRB,0.19985E-01_JPRB,0.19915E-01_JPRB,0.22325E-01_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.28168E-01_JPRB,0.26278E-01_JPRB,0.25280E-01_JPRB,0.24624E-01_JPRB,0.24316E-01_JPRB, &
+ & 0.23197E-01_JPRB,0.21657E-01_JPRB,0.22779E-01_JPRB,0.25626E-01_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.27980E-01_JPRB,0.26431E-01_JPRB,0.25828E-01_JPRB,0.25920E-01_JPRB,0.25669E-01_JPRB, &
+ & 0.24755E-01_JPRB,0.23686E-01_JPRB,0.25934E-01_JPRB,0.29281E-01_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.27732E-01_JPRB,0.26646E-01_JPRB,0.26660E-01_JPRB,0.27009E-01_JPRB,0.27233E-01_JPRB, &
+ & 0.26525E-01_JPRB,0.25997E-01_JPRB,0.29201E-01_JPRB,0.33040E-01_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.30271E-01_JPRB,0.27672E-01_JPRB,0.25272E-01_JPRB,0.23430E-01_JPRB,0.22043E-01_JPRB, &
+ & 0.20727E-01_JPRB,0.19083E-01_JPRB,0.16913E-01_JPRB,0.18728E-01_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.30091E-01_JPRB,0.27720E-01_JPRB,0.25820E-01_JPRB,0.24222E-01_JPRB,0.23409E-01_JPRB, &
+ & 0.22468E-01_JPRB,0.20609E-01_JPRB,0.19148E-01_JPRB,0.21375E-01_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.29914E-01_JPRB,0.27750E-01_JPRB,0.26375E-01_JPRB,0.25267E-01_JPRB,0.24987E-01_JPRB, &
+ & 0.23926E-01_JPRB,0.22306E-01_JPRB,0.21932E-01_JPRB,0.24591E-01_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.29701E-01_JPRB,0.27873E-01_JPRB,0.26877E-01_JPRB,0.26535E-01_JPRB,0.26327E-01_JPRB, &
+ & 0.25568E-01_JPRB,0.24303E-01_JPRB,0.24920E-01_JPRB,0.28049E-01_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.29422E-01_JPRB,0.28052E-01_JPRB,0.27653E-01_JPRB,0.27818E-01_JPRB,0.27831E-01_JPRB, &
+ & 0.27375E-01_JPRB,0.26338E-01_JPRB,0.28129E-01_JPRB,0.31777E-01_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.32089E-01_JPRB,0.29221E-01_JPRB,0.26504E-01_JPRB,0.24372E-01_JPRB,0.22322E-01_JPRB, &
+ & 0.20541E-01_JPRB,0.19063E-01_JPRB,0.16413E-01_JPRB,0.17368E-01_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.31950E-01_JPRB,0.29299E-01_JPRB,0.26979E-01_JPRB,0.25078E-01_JPRB,0.23422E-01_JPRB, &
+ & 0.22454E-01_JPRB,0.20735E-01_JPRB,0.18244E-01_JPRB,0.19956E-01_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.31786E-01_JPRB,0.29316E-01_JPRB,0.27496E-01_JPRB,0.25889E-01_JPRB,0.24965E-01_JPRB, &
+ & 0.24089E-01_JPRB,0.22376E-01_JPRB,0.20693E-01_JPRB,0.22993E-01_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.31564E-01_JPRB,0.29393E-01_JPRB,0.27942E-01_JPRB,0.27000E-01_JPRB,0.26402E-01_JPRB, &
+ & 0.25715E-01_JPRB,0.24406E-01_JPRB,0.23371E-01_JPRB,0.26093E-01_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.31295E-01_JPRB,0.29526E-01_JPRB,0.28627E-01_JPRB,0.28150E-01_JPRB,0.27951E-01_JPRB, &
+ & 0.27569E-01_JPRB,0.26423E-01_JPRB,0.26332E-01_JPRB,0.29505E-01_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.33998E-01_JPRB,0.30694E-01_JPRB,0.27710E-01_JPRB,0.25291E-01_JPRB,0.22809E-01_JPRB, &
+ & 0.20329E-01_JPRB,0.18660E-01_JPRB,0.16131E-01_JPRB,0.15800E-01_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.33852E-01_JPRB,0.30861E-01_JPRB,0.28097E-01_JPRB,0.25930E-01_JPRB,0.23654E-01_JPRB, &
+ & 0.22029E-01_JPRB,0.20474E-01_JPRB,0.17896E-01_JPRB,0.18339E-01_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.33685E-01_JPRB,0.30889E-01_JPRB,0.28668E-01_JPRB,0.26585E-01_JPRB,0.25018E-01_JPRB, &
+ & 0.23681E-01_JPRB,0.22215E-01_JPRB,0.19897E-01_JPRB,0.21224E-01_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.33431E-01_JPRB,0.30933E-01_JPRB,0.29107E-01_JPRB,0.27570E-01_JPRB,0.26341E-01_JPRB, &
+ & 0.25360E-01_JPRB,0.24234E-01_JPRB,0.22138E-01_JPRB,0.24217E-01_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.33153E-01_JPRB,0.31115E-01_JPRB,0.29708E-01_JPRB,0.28626E-01_JPRB,0.27757E-01_JPRB, &
+ & 0.27318E-01_JPRB,0.26191E-01_JPRB,0.24666E-01_JPRB,0.27426E-01_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.35630E-01_JPRB,0.31962E-01_JPRB,0.28969E-01_JPRB,0.26191E-01_JPRB,0.23359E-01_JPRB, &
+ & 0.20419E-01_JPRB,0.18025E-01_JPRB,0.15529E-01_JPRB,0.14046E-01_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.35465E-01_JPRB,0.32227E-01_JPRB,0.29248E-01_JPRB,0.26845E-01_JPRB,0.24076E-01_JPRB, &
+ & 0.21854E-01_JPRB,0.19842E-01_JPRB,0.17371E-01_JPRB,0.16514E-01_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.35239E-01_JPRB,0.32283E-01_JPRB,0.29869E-01_JPRB,0.27436E-01_JPRB,0.25256E-01_JPRB, &
+ & 0.23352E-01_JPRB,0.21638E-01_JPRB,0.19381E-01_JPRB,0.19322E-01_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.34959E-01_JPRB,0.32275E-01_JPRB,0.30321E-01_JPRB,0.28325E-01_JPRB,0.26494E-01_JPRB, &
+ & 0.24825E-01_JPRB,0.23722E-01_JPRB,0.21526E-01_JPRB,0.22221E-01_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.34633E-01_JPRB,0.32463E-01_JPRB,0.30867E-01_JPRB,0.29345E-01_JPRB,0.27730E-01_JPRB, &
+ & 0.26661E-01_JPRB,0.25760E-01_JPRB,0.23698E-01_JPRB,0.25325E-01_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.36611E-01_JPRB,0.32766E-01_JPRB,0.29862E-01_JPRB,0.26964E-01_JPRB,0.23985E-01_JPRB, &
+ & 0.20572E-01_JPRB,0.17499E-01_JPRB,0.14612E-01_JPRB,0.12200E-01_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.36404E-01_JPRB,0.32931E-01_JPRB,0.30135E-01_JPRB,0.27680E-01_JPRB,0.24618E-01_JPRB, &
+ & 0.21792E-01_JPRB,0.19087E-01_JPRB,0.16488E-01_JPRB,0.14408E-01_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.36151E-01_JPRB,0.33151E-01_JPRB,0.30783E-01_JPRB,0.28229E-01_JPRB,0.25608E-01_JPRB, &
+ & 0.23215E-01_JPRB,0.20762E-01_JPRB,0.18415E-01_JPRB,0.17025E-01_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.35835E-01_JPRB,0.33169E-01_JPRB,0.31261E-01_JPRB,0.29020E-01_JPRB,0.26813E-01_JPRB, &
+ & 0.24559E-01_JPRB,0.22662E-01_JPRB,0.20622E-01_JPRB,0.19846E-01_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.35491E-01_JPRB,0.33330E-01_JPRB,0.31756E-01_JPRB,0.30047E-01_JPRB,0.27916E-01_JPRB, &
+ & 0.26189E-01_JPRB,0.24713E-01_JPRB,0.22859E-01_JPRB,0.22839E-01_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.36793E-01_JPRB,0.32943E-01_JPRB,0.30074E-01_JPRB,0.27299E-01_JPRB,0.24319E-01_JPRB, &
+ & 0.20802E-01_JPRB,0.17113E-01_JPRB,0.13465E-01_JPRB,0.10508E-01_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.36572E-01_JPRB,0.33074E-01_JPRB,0.30511E-01_JPRB,0.28032E-01_JPRB,0.24986E-01_JPRB, &
+ & 0.21844E-01_JPRB,0.18570E-01_JPRB,0.15283E-01_JPRB,0.12467E-01_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.36275E-01_JPRB,0.33234E-01_JPRB,0.31161E-01_JPRB,0.28602E-01_JPRB,0.25904E-01_JPRB, &
+ & 0.23164E-01_JPRB,0.20091E-01_JPRB,0.17151E-01_JPRB,0.14775E-01_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.35925E-01_JPRB,0.33332E-01_JPRB,0.31658E-01_JPRB,0.29367E-01_JPRB,0.27125E-01_JPRB, &
+ & 0.24431E-01_JPRB,0.21734E-01_JPRB,0.19261E-01_JPRB,0.17350E-01_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.35558E-01_JPRB,0.33506E-01_JPRB,0.32097E-01_JPRB,0.30412E-01_JPRB,0.28219E-01_JPRB, &
+ & 0.25923E-01_JPRB,0.23598E-01_JPRB,0.21456E-01_JPRB,0.20114E-01_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.36293E-01_JPRB,0.32550E-01_JPRB,0.29721E-01_JPRB,0.27154E-01_JPRB,0.24076E-01_JPRB, &
+ & 0.20693E-01_JPRB,0.16829E-01_JPRB,0.12555E-01_JPRB,0.89579E-02_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.35985E-01_JPRB,0.32624E-01_JPRB,0.30270E-01_JPRB,0.27879E-01_JPRB,0.24830E-01_JPRB, &
+ & 0.21669E-01_JPRB,0.18126E-01_JPRB,0.14126E-01_JPRB,0.10649E-01_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.35646E-01_JPRB,0.32730E-01_JPRB,0.30946E-01_JPRB,0.28474E-01_JPRB,0.25750E-01_JPRB, &
+ & 0.23017E-01_JPRB,0.19564E-01_JPRB,0.15741E-01_JPRB,0.12721E-01_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.35279E-01_JPRB,0.32754E-01_JPRB,0.31424E-01_JPRB,0.29187E-01_JPRB,0.27070E-01_JPRB, &
+ & 0.24316E-01_JPRB,0.21018E-01_JPRB,0.17682E-01_JPRB,0.15011E-01_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.34858E-01_JPRB,0.32947E-01_JPRB,0.31835E-01_JPRB,0.30265E-01_JPRB,0.28236E-01_JPRB, &
+ & 0.25710E-01_JPRB,0.22721E-01_JPRB,0.19777E-01_JPRB,0.17474E-01_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.35060E-01_JPRB,0.31556E-01_JPRB,0.29012E-01_JPRB,0.26469E-01_JPRB,0.23391E-01_JPRB, &
+ & 0.20141E-01_JPRB,0.16295E-01_JPRB,0.11885E-01_JPRB,0.58937E-02_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.34721E-01_JPRB,0.31589E-01_JPRB,0.29506E-01_JPRB,0.27211E-01_JPRB,0.24267E-01_JPRB, &
+ & 0.21055E-01_JPRB,0.17547E-01_JPRB,0.13263E-01_JPRB,0.69908E-02_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.34339E-01_JPRB,0.31609E-01_JPRB,0.30075E-01_JPRB,0.27841E-01_JPRB,0.25163E-01_JPRB, &
+ & 0.22398E-01_JPRB,0.18997E-01_JPRB,0.14640E-01_JPRB,0.92447E-02_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.33936E-01_JPRB,0.31619E-01_JPRB,0.30603E-01_JPRB,0.28503E-01_JPRB,0.26490E-01_JPRB, &
+ & 0.23804E-01_JPRB,0.20342E-01_JPRB,0.16280E-01_JPRB,0.11993E-01_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.33530E-01_JPRB,0.31821E-01_JPRB,0.30991E-01_JPRB,0.29578E-01_JPRB,0.27714E-01_JPRB, &
+ & 0.25218E-01_JPRB,0.21886E-01_JPRB,0.18137E-01_JPRB,0.14941E-01_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.33129E-01_JPRB,0.29964E-01_JPRB,0.27856E-01_JPRB,0.25331E-01_JPRB,0.22401E-01_JPRB, &
+ & 0.19295E-01_JPRB,0.15555E-01_JPRB,0.11348E-01_JPRB,0.74286E-02_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.32749E-01_JPRB,0.29950E-01_JPRB,0.28249E-01_JPRB,0.25998E-01_JPRB,0.23402E-01_JPRB, &
+ & 0.20209E-01_JPRB,0.16757E-01_JPRB,0.12616E-01_JPRB,0.86653E-02_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.32344E-01_JPRB,0.29933E-01_JPRB,0.28722E-01_JPRB,0.26736E-01_JPRB,0.24275E-01_JPRB, &
+ & 0.21508E-01_JPRB,0.18229E-01_JPRB,0.13852E-01_JPRB,0.98082E-02_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.31944E-01_JPRB,0.30002E-01_JPRB,0.29235E-01_JPRB,0.27435E-01_JPRB,0.25548E-01_JPRB, &
+ & 0.22964E-01_JPRB,0.19579E-01_JPRB,0.15278E-01_JPRB,0.11352E-01_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.31533E-01_JPRB,0.30276E-01_JPRB,0.29685E-01_JPRB,0.28539E-01_JPRB,0.26795E-01_JPRB, &
+ & 0.24358E-01_JPRB,0.21106E-01_JPRB,0.16900E-01_JPRB,0.12858E-01_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.30476E-01_JPRB,0.27848E-01_JPRB,0.26383E-01_JPRB,0.23991E-01_JPRB,0.21505E-01_JPRB, &
+ & 0.18546E-01_JPRB,0.15127E-01_JPRB,0.11242E-01_JPRB,0.84064E-02_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.30069E-01_JPRB,0.27873E-01_JPRB,0.26695E-01_JPRB,0.24743E-01_JPRB,0.22441E-01_JPRB, &
+ & 0.19591E-01_JPRB,0.16445E-01_JPRB,0.12465E-01_JPRB,0.99520E-02_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.29683E-01_JPRB,0.27938E-01_JPRB,0.27199E-01_JPRB,0.25464E-01_JPRB,0.23474E-01_JPRB, &
+ & 0.21008E-01_JPRB,0.17841E-01_JPRB,0.13636E-01_JPRB,0.11012E-01_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.29281E-01_JPRB,0.28147E-01_JPRB,0.27612E-01_JPRB,0.26457E-01_JPRB,0.24810E-01_JPRB, &
+ & 0.22367E-01_JPRB,0.19198E-01_JPRB,0.15026E-01_JPRB,0.12764E-01_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.28878E-01_JPRB,0.28450E-01_JPRB,0.28275E-01_JPRB,0.27607E-01_JPRB,0.26039E-01_JPRB, &
+ & 0.23769E-01_JPRB,0.20798E-01_JPRB,0.16479E-01_JPRB,0.14486E-01_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.27483E-01_JPRB,0.25515E-01_JPRB,0.24398E-01_JPRB,0.22423E-01_JPRB,0.20204E-01_JPRB, &
+ & 0.17532E-01_JPRB,0.14597E-01_JPRB,0.10977E-01_JPRB,0.89256E-02_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.27095E-01_JPRB,0.25634E-01_JPRB,0.24782E-01_JPRB,0.23175E-01_JPRB,0.21102E-01_JPRB, &
+ & 0.18740E-01_JPRB,0.15902E-01_JPRB,0.12114E-01_JPRB,0.10252E-01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.26727E-01_JPRB,0.25761E-01_JPRB,0.25266E-01_JPRB,0.23974E-01_JPRB,0.22361E-01_JPRB, &
+ & 0.20171E-01_JPRB,0.17193E-01_JPRB,0.13275E-01_JPRB,0.11451E-01_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.26341E-01_JPRB,0.26039E-01_JPRB,0.25768E-01_JPRB,0.25146E-01_JPRB,0.23693E-01_JPRB, &
+ & 0.21452E-01_JPRB,0.18566E-01_JPRB,0.14626E-01_JPRB,0.13159E-01_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.25958E-01_JPRB,0.26232E-01_JPRB,0.26607E-01_JPRB,0.26277E-01_JPRB,0.24926E-01_JPRB, &
+ & 0.22906E-01_JPRB,0.20118E-01_JPRB,0.16018E-01_JPRB,0.14784E-01_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.24404E-01_JPRB,0.23195E-01_JPRB,0.22191E-01_JPRB,0.20664E-01_JPRB,0.18645E-01_JPRB, &
+ & 0.16397E-01_JPRB,0.13889E-01_JPRB,0.10532E-01_JPRB,0.85762E-02_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.24045E-01_JPRB,0.23274E-01_JPRB,0.22704E-01_JPRB,0.21382E-01_JPRB,0.19651E-01_JPRB, &
+ & 0.17693E-01_JPRB,0.15133E-01_JPRB,0.11576E-01_JPRB,0.96068E-02_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.23688E-01_JPRB,0.23458E-01_JPRB,0.23185E-01_JPRB,0.22281E-01_JPRB,0.21010E-01_JPRB, &
+ & 0.19021E-01_JPRB,0.16312E-01_JPRB,0.12755E-01_JPRB,0.10813E-01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.23340E-01_JPRB,0.23719E-01_JPRB,0.23835E-01_JPRB,0.23529E-01_JPRB,0.22269E-01_JPRB, &
+ & 0.20297E-01_JPRB,0.17677E-01_JPRB,0.14063E-01_JPRB,0.12469E-01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.23007E-01_JPRB,0.23887E-01_JPRB,0.24745E-01_JPRB,0.24636E-01_JPRB,0.23538E-01_JPRB, &
+ & 0.21795E-01_JPRB,0.19163E-01_JPRB,0.15452E-01_JPRB,0.13866E-01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.38207E-01_JPRB,0.35023E-01_JPRB,0.31764E-01_JPRB,0.29513E-01_JPRB,0.27148E-01_JPRB, &
+ & 0.25121E-01_JPRB,0.22678E-01_JPRB,0.23928E-01_JPRB,0.26899E-01_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.37930E-01_JPRB,0.35272E-01_JPRB,0.32250E-01_JPRB,0.30760E-01_JPRB,0.28557E-01_JPRB, &
+ & 0.27105E-01_JPRB,0.25089E-01_JPRB,0.27604E-01_JPRB,0.31070E-01_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.37611E-01_JPRB,0.35491E-01_JPRB,0.32949E-01_JPRB,0.31869E-01_JPRB,0.30632E-01_JPRB, &
+ & 0.29068E-01_JPRB,0.27897E-01_JPRB,0.31369E-01_JPRB,0.35419E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.37244E-01_JPRB,0.35566E-01_JPRB,0.33874E-01_JPRB,0.33253E-01_JPRB,0.32466E-01_JPRB, &
+ & 0.31095E-01_JPRB,0.31358E-01_JPRB,0.35716E-01_JPRB,0.40368E-01_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.36895E-01_JPRB,0.35750E-01_JPRB,0.34817E-01_JPRB,0.35038E-01_JPRB,0.34265E-01_JPRB, &
+ & 0.33428E-01_JPRB,0.35709E-01_JPRB,0.40899E-01_JPRB,0.46337E-01_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.39640E-01_JPRB,0.36208E-01_JPRB,0.33140E-01_JPRB,0.30731E-01_JPRB,0.28621E-01_JPRB, &
+ & 0.26451E-01_JPRB,0.23824E-01_JPRB,0.23418E-01_JPRB,0.26401E-01_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.39384E-01_JPRB,0.36543E-01_JPRB,0.33542E-01_JPRB,0.32043E-01_JPRB,0.30032E-01_JPRB, &
+ & 0.28484E-01_JPRB,0.26191E-01_JPRB,0.27027E-01_JPRB,0.30540E-01_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.39069E-01_JPRB,0.36650E-01_JPRB,0.34340E-01_JPRB,0.33119E-01_JPRB,0.32037E-01_JPRB, &
+ & 0.30787E-01_JPRB,0.28410E-01_JPRB,0.30659E-01_JPRB,0.34733E-01_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.38756E-01_JPRB,0.36738E-01_JPRB,0.35220E-01_JPRB,0.34547E-01_JPRB,0.34264E-01_JPRB, &
+ & 0.32872E-01_JPRB,0.31204E-01_JPRB,0.34827E-01_JPRB,0.39529E-01_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.38432E-01_JPRB,0.36958E-01_JPRB,0.36077E-01_JPRB,0.36343E-01_JPRB,0.36389E-01_JPRB, &
+ & 0.35222E-01_JPRB,0.34916E-01_JPRB,0.39622E-01_JPRB,0.45018E-01_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.41762E-01_JPRB,0.37801E-01_JPRB,0.34598E-01_JPRB,0.31385E-01_JPRB,0.29542E-01_JPRB, &
+ & 0.27120E-01_JPRB,0.24296E-01_JPRB,0.22163E-01_JPRB,0.24873E-01_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.41521E-01_JPRB,0.38107E-01_JPRB,0.34885E-01_JPRB,0.32740E-01_JPRB,0.30892E-01_JPRB, &
+ & 0.28927E-01_JPRB,0.26874E-01_JPRB,0.25608E-01_JPRB,0.28828E-01_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.41284E-01_JPRB,0.38250E-01_JPRB,0.35590E-01_JPRB,0.33929E-01_JPRB,0.32637E-01_JPRB, &
+ & 0.31412E-01_JPRB,0.29268E-01_JPRB,0.29038E-01_JPRB,0.32851E-01_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.40996E-01_JPRB,0.38286E-01_JPRB,0.36402E-01_JPRB,0.35356E-01_JPRB,0.34868E-01_JPRB, &
+ & 0.33799E-01_JPRB,0.31619E-01_JPRB,0.33158E-01_JPRB,0.37659E-01_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.40710E-01_JPRB,0.38497E-01_JPRB,0.37108E-01_JPRB,0.37161E-01_JPRB,0.37098E-01_JPRB, &
+ & 0.36226E-01_JPRB,0.34568E-01_JPRB,0.37733E-01_JPRB,0.42953E-01_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.44432E-01_JPRB,0.39911E-01_JPRB,0.36533E-01_JPRB,0.32358E-01_JPRB,0.30116E-01_JPRB, &
+ & 0.27425E-01_JPRB,0.24391E-01_JPRB,0.21003E-01_JPRB,0.22873E-01_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.44241E-01_JPRB,0.40248E-01_JPRB,0.36750E-01_JPRB,0.33734E-01_JPRB,0.31371E-01_JPRB, &
+ & 0.29050E-01_JPRB,0.26929E-01_JPRB,0.23993E-01_JPRB,0.26696E-01_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.43986E-01_JPRB,0.40474E-01_JPRB,0.37358E-01_JPRB,0.34847E-01_JPRB,0.32894E-01_JPRB, &
+ & 0.31475E-01_JPRB,0.29486E-01_JPRB,0.27256E-01_JPRB,0.30632E-01_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.43750E-01_JPRB,0.40487E-01_JPRB,0.38107E-01_JPRB,0.36115E-01_JPRB,0.35063E-01_JPRB, &
+ & 0.33924E-01_JPRB,0.31967E-01_JPRB,0.31144E-01_JPRB,0.35198E-01_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.43427E-01_JPRB,0.40610E-01_JPRB,0.38702E-01_JPRB,0.37867E-01_JPRB,0.37251E-01_JPRB, &
+ & 0.36357E-01_JPRB,0.34995E-01_JPRB,0.35502E-01_JPRB,0.40197E-01_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.47176E-01_JPRB,0.42142E-01_JPRB,0.38550E-01_JPRB,0.33884E-01_JPRB,0.30889E-01_JPRB, &
+ & 0.27516E-01_JPRB,0.24267E-01_JPRB,0.20680E-01_JPRB,0.20851E-01_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.47021E-01_JPRB,0.42363E-01_JPRB,0.38770E-01_JPRB,0.35164E-01_JPRB,0.32104E-01_JPRB, &
+ & 0.29005E-01_JPRB,0.26645E-01_JPRB,0.23247E-01_JPRB,0.24505E-01_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.46797E-01_JPRB,0.42763E-01_JPRB,0.39235E-01_JPRB,0.36269E-01_JPRB,0.33395E-01_JPRB, &
+ & 0.31307E-01_JPRB,0.29249E-01_JPRB,0.25924E-01_JPRB,0.28324E-01_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.46572E-01_JPRB,0.42912E-01_JPRB,0.40018E-01_JPRB,0.37361E-01_JPRB,0.35308E-01_JPRB, &
+ & 0.33789E-01_JPRB,0.31702E-01_JPRB,0.29304E-01_JPRB,0.32735E-01_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.46255E-01_JPRB,0.42923E-01_JPRB,0.40617E-01_JPRB,0.38829E-01_JPRB,0.37399E-01_JPRB, &
+ & 0.36167E-01_JPRB,0.34686E-01_JPRB,0.33312E-01_JPRB,0.37380E-01_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.49975E-01_JPRB,0.44361E-01_JPRB,0.40341E-01_JPRB,0.35539E-01_JPRB,0.31829E-01_JPRB, &
+ & 0.27816E-01_JPRB,0.23845E-01_JPRB,0.20093E-01_JPRB,0.18543E-01_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.49828E-01_JPRB,0.44558E-01_JPRB,0.40763E-01_JPRB,0.36628E-01_JPRB,0.33050E-01_JPRB, &
+ & 0.29095E-01_JPRB,0.26117E-01_JPRB,0.22673E-01_JPRB,0.22099E-01_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.49608E-01_JPRB,0.44841E-01_JPRB,0.41085E-01_JPRB,0.37793E-01_JPRB,0.34135E-01_JPRB, &
+ & 0.31097E-01_JPRB,0.28755E-01_JPRB,0.25283E-01_JPRB,0.25831E-01_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.49365E-01_JPRB,0.45144E-01_JPRB,0.41922E-01_JPRB,0.38723E-01_JPRB,0.35845E-01_JPRB, &
+ & 0.33431E-01_JPRB,0.31237E-01_JPRB,0.28118E-01_JPRB,0.29954E-01_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.49026E-01_JPRB,0.45249E-01_JPRB,0.42535E-01_JPRB,0.39993E-01_JPRB,0.37821E-01_JPRB, &
+ & 0.35671E-01_JPRB,0.34099E-01_JPRB,0.31399E-01_JPRB,0.34366E-01_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.52410E-01_JPRB,0.46362E-01_JPRB,0.41901E-01_JPRB,0.37210E-01_JPRB,0.32800E-01_JPRB, &
+ & 0.28263E-01_JPRB,0.23499E-01_JPRB,0.19230E-01_JPRB,0.16237E-01_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.52214E-01_JPRB,0.46505E-01_JPRB,0.42451E-01_JPRB,0.38113E-01_JPRB,0.34021E-01_JPRB, &
+ & 0.29480E-01_JPRB,0.25464E-01_JPRB,0.21812E-01_JPRB,0.19595E-01_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.51982E-01_JPRB,0.46700E-01_JPRB,0.42867E-01_JPRB,0.39292E-01_JPRB,0.35048E-01_JPRB, &
+ & 0.31222E-01_JPRB,0.27987E-01_JPRB,0.24489E-01_JPRB,0.23138E-01_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.51660E-01_JPRB,0.46904E-01_JPRB,0.43697E-01_JPRB,0.40172E-01_JPRB,0.36555E-01_JPRB, &
+ & 0.33390E-01_JPRB,0.30506E-01_JPRB,0.27287E-01_JPRB,0.27036E-01_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.51284E-01_JPRB,0.47053E-01_JPRB,0.44408E-01_JPRB,0.41338E-01_JPRB,0.38429E-01_JPRB, &
+ & 0.35446E-01_JPRB,0.33297E-01_JPRB,0.30383E-01_JPRB,0.31263E-01_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.53849E-01_JPRB,0.47597E-01_JPRB,0.43012E-01_JPRB,0.38373E-01_JPRB,0.33860E-01_JPRB, &
+ & 0.28679E-01_JPRB,0.23391E-01_JPRB,0.18151E-01_JPRB,0.14106E-01_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.53641E-01_JPRB,0.47671E-01_JPRB,0.43475E-01_JPRB,0.39445E-01_JPRB,0.35042E-01_JPRB, &
+ & 0.29924E-01_JPRB,0.25055E-01_JPRB,0.20655E-01_JPRB,0.17171E-01_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.53375E-01_JPRB,0.47826E-01_JPRB,0.44020E-01_JPRB,0.40653E-01_JPRB,0.36059E-01_JPRB, &
+ & 0.31447E-01_JPRB,0.27345E-01_JPRB,0.23357E-01_JPRB,0.20383E-01_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.53001E-01_JPRB,0.48011E-01_JPRB,0.44999E-01_JPRB,0.41558E-01_JPRB,0.37354E-01_JPRB, &
+ & 0.33601E-01_JPRB,0.29695E-01_JPRB,0.26106E-01_JPRB,0.24004E-01_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.52592E-01_JPRB,0.48152E-01_JPRB,0.45845E-01_JPRB,0.42585E-01_JPRB,0.39198E-01_JPRB, &
+ & 0.35588E-01_JPRB,0.32287E-01_JPRB,0.29155E-01_JPRB,0.27991E-01_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.54223E-01_JPRB,0.47973E-01_JPRB,0.43289E-01_JPRB,0.38882E-01_JPRB,0.34299E-01_JPRB, &
+ & 0.28946E-01_JPRB,0.23303E-01_JPRB,0.17068E-01_JPRB,0.11192E-01_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.53940E-01_JPRB,0.47929E-01_JPRB,0.43759E-01_JPRB,0.39916E-01_JPRB,0.35622E-01_JPRB, &
+ & 0.30345E-01_JPRB,0.24752E-01_JPRB,0.19298E-01_JPRB,0.14778E-01_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.53642E-01_JPRB,0.48095E-01_JPRB,0.44399E-01_JPRB,0.41241E-01_JPRB,0.36768E-01_JPRB, &
+ & 0.31745E-01_JPRB,0.26845E-01_JPRB,0.21914E-01_JPRB,0.17754E-01_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.53257E-01_JPRB,0.48243E-01_JPRB,0.45322E-01_JPRB,0.42327E-01_JPRB,0.37988E-01_JPRB, &
+ & 0.33799E-01_JPRB,0.29109E-01_JPRB,0.24533E-01_JPRB,0.21056E-01_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.52778E-01_JPRB,0.48340E-01_JPRB,0.46365E-01_JPRB,0.43326E-01_JPRB,0.39837E-01_JPRB, &
+ & 0.35758E-01_JPRB,0.31465E-01_JPRB,0.27467E-01_JPRB,0.24721E-01_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.53564E-01_JPRB,0.47520E-01_JPRB,0.42897E-01_JPRB,0.38870E-01_JPRB,0.34096E-01_JPRB, &
+ & 0.28762E-01_JPRB,0.23161E-01_JPRB,0.16420E-01_JPRB,0.10403E-01_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.53200E-01_JPRB,0.47370E-01_JPRB,0.43390E-01_JPRB,0.39812E-01_JPRB,0.35374E-01_JPRB, &
+ & 0.30449E-01_JPRB,0.24605E-01_JPRB,0.18329E-01_JPRB,0.12727E-01_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.52804E-01_JPRB,0.47486E-01_JPRB,0.44077E-01_JPRB,0.41029E-01_JPRB,0.36828E-01_JPRB, &
+ & 0.31909E-01_JPRB,0.26518E-01_JPRB,0.20700E-01_JPRB,0.14792E-01_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.52379E-01_JPRB,0.47585E-01_JPRB,0.44997E-01_JPRB,0.42270E-01_JPRB,0.38168E-01_JPRB, &
+ & 0.33930E-01_JPRB,0.28762E-01_JPRB,0.23052E-01_JPRB,0.16495E-01_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.51859E-01_JPRB,0.47629E-01_JPRB,0.45989E-01_JPRB,0.43387E-01_JPRB,0.40080E-01_JPRB, &
+ & 0.36007E-01_JPRB,0.30957E-01_JPRB,0.25773E-01_JPRB,0.18898E-01_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.51622E-01_JPRB,0.46074E-01_JPRB,0.42057E-01_JPRB,0.38618E-01_JPRB,0.33808E-01_JPRB, &
+ & 0.28847E-01_JPRB,0.23288E-01_JPRB,0.16620E-01_JPRB,0.11907E-01_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.51193E-01_JPRB,0.45980E-01_JPRB,0.42719E-01_JPRB,0.39541E-01_JPRB,0.35253E-01_JPRB, &
+ & 0.30566E-01_JPRB,0.24931E-01_JPRB,0.18565E-01_JPRB,0.13988E-01_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.50740E-01_JPRB,0.46089E-01_JPRB,0.43457E-01_JPRB,0.40804E-01_JPRB,0.36736E-01_JPRB, &
+ & 0.32310E-01_JPRB,0.27095E-01_JPRB,0.20684E-01_JPRB,0.16681E-01_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.50228E-01_JPRB,0.46105E-01_JPRB,0.44454E-01_JPRB,0.41838E-01_JPRB,0.38478E-01_JPRB, &
+ & 0.34580E-01_JPRB,0.29293E-01_JPRB,0.22846E-01_JPRB,0.18301E-01_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.49697E-01_JPRB,0.46259E-01_JPRB,0.45191E-01_JPRB,0.43198E-01_JPRB,0.40635E-01_JPRB, &
+ & 0.36709E-01_JPRB,0.31434E-01_JPRB,0.25478E-01_JPRB,0.20947E-01_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.48647E-01_JPRB,0.43752E-01_JPRB,0.40707E-01_JPRB,0.37500E-01_JPRB,0.33089E-01_JPRB, &
+ & 0.28489E-01_JPRB,0.23000E-01_JPRB,0.16785E-01_JPRB,0.12627E-01_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.48181E-01_JPRB,0.43711E-01_JPRB,0.41312E-01_JPRB,0.38500E-01_JPRB,0.34693E-01_JPRB, &
+ & 0.30128E-01_JPRB,0.24939E-01_JPRB,0.18673E-01_JPRB,0.15167E-01_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.47678E-01_JPRB,0.43812E-01_JPRB,0.42104E-01_JPRB,0.39699E-01_JPRB,0.36175E-01_JPRB, &
+ & 0.32199E-01_JPRB,0.27269E-01_JPRB,0.20637E-01_JPRB,0.17826E-01_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.47181E-01_JPRB,0.43914E-01_JPRB,0.43002E-01_JPRB,0.40767E-01_JPRB,0.38218E-01_JPRB, &
+ & 0.34662E-01_JPRB,0.29455E-01_JPRB,0.22728E-01_JPRB,0.19785E-01_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.46685E-01_JPRB,0.44343E-01_JPRB,0.43686E-01_JPRB,0.42426E-01_JPRB,0.40422E-01_JPRB, &
+ & 0.36842E-01_JPRB,0.31692E-01_JPRB,0.25217E-01_JPRB,0.22679E-01_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.44854E-01_JPRB,0.40724E-01_JPRB,0.38672E-01_JPRB,0.35614E-01_JPRB,0.31949E-01_JPRB, &
+ & 0.27602E-01_JPRB,0.22498E-01_JPRB,0.16720E-01_JPRB,0.12798E-01_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.44381E-01_JPRB,0.40833E-01_JPRB,0.39190E-01_JPRB,0.36792E-01_JPRB,0.33534E-01_JPRB, &
+ & 0.29330E-01_JPRB,0.24604E-01_JPRB,0.18629E-01_JPRB,0.15661E-01_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.43916E-01_JPRB,0.40995E-01_JPRB,0.40051E-01_JPRB,0.37975E-01_JPRB,0.35149E-01_JPRB, &
+ & 0.31642E-01_JPRB,0.27046E-01_JPRB,0.20453E-01_JPRB,0.17792E-01_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.43441E-01_JPRB,0.41288E-01_JPRB,0.40871E-01_JPRB,0.39278E-01_JPRB,0.37365E-01_JPRB, &
+ & 0.34126E-01_JPRB,0.29213E-01_JPRB,0.22513E-01_JPRB,0.19591E-01_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.42963E-01_JPRB,0.41916E-01_JPRB,0.41758E-01_JPRB,0.41144E-01_JPRB,0.39580E-01_JPRB, &
+ & 0.36327E-01_JPRB,0.31558E-01_JPRB,0.24885E-01_JPRB,0.22715E-01_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.52315E-01_JPRB,0.47505E-01_JPRB,0.42884E-01_JPRB,0.38287E-01_JPRB,0.34721E-01_JPRB, &
+ & 0.30888E-01_JPRB,0.29687E-01_JPRB,0.33559E-01_JPRB,0.37791E-01_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.52132E-01_JPRB,0.47869E-01_JPRB,0.43358E-01_JPRB,0.39519E-01_JPRB,0.36490E-01_JPRB, &
+ & 0.33059E-01_JPRB,0.34560E-01_JPRB,0.39434E-01_JPRB,0.44537E-01_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.51859E-01_JPRB,0.48259E-01_JPRB,0.44108E-01_JPRB,0.41053E-01_JPRB,0.38159E-01_JPRB, &
+ & 0.36325E-01_JPRB,0.40345E-01_JPRB,0.46345E-01_JPRB,0.52382E-01_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.51556E-01_JPRB,0.48650E-01_JPRB,0.44992E-01_JPRB,0.42544E-01_JPRB,0.40704E-01_JPRB, &
+ & 0.40160E-01_JPRB,0.46427E-01_JPRB,0.53431E-01_JPRB,0.60544E-01_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.51137E-01_JPRB,0.48860E-01_JPRB,0.46168E-01_JPRB,0.44111E-01_JPRB,0.43209E-01_JPRB, &
+ & 0.44827E-01_JPRB,0.52800E-01_JPRB,0.60972E-01_JPRB,0.69216E-01_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.56434E-01_JPRB,0.51118E-01_JPRB,0.46217E-01_JPRB,0.41561E-01_JPRB,0.37505E-01_JPRB, &
+ & 0.33646E-01_JPRB,0.30189E-01_JPRB,0.33085E-01_JPRB,0.37424E-01_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.56174E-01_JPRB,0.51590E-01_JPRB,0.46758E-01_JPRB,0.42838E-01_JPRB,0.39459E-01_JPRB, &
+ & 0.35755E-01_JPRB,0.34261E-01_JPRB,0.38732E-01_JPRB,0.43938E-01_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.55870E-01_JPRB,0.52113E-01_JPRB,0.47459E-01_JPRB,0.44557E-01_JPRB,0.41223E-01_JPRB, &
+ & 0.38732E-01_JPRB,0.39807E-01_JPRB,0.45508E-01_JPRB,0.51693E-01_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.55457E-01_JPRB,0.52524E-01_JPRB,0.48507E-01_JPRB,0.46112E-01_JPRB,0.43732E-01_JPRB, &
+ & 0.42045E-01_JPRB,0.45811E-01_JPRB,0.52732E-01_JPRB,0.60004E-01_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.54996E-01_JPRB,0.52680E-01_JPRB,0.49849E-01_JPRB,0.47721E-01_JPRB,0.46514E-01_JPRB, &
+ & 0.45961E-01_JPRB,0.52270E-01_JPRB,0.60294E-01_JPRB,0.68714E-01_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.59831E-01_JPRB,0.53764E-01_JPRB,0.48883E-01_JPRB,0.44361E-01_JPRB,0.39553E-01_JPRB, &
+ & 0.35958E-01_JPRB,0.31293E-01_JPRB,0.31467E-01_JPRB,0.35795E-01_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.59532E-01_JPRB,0.54423E-01_JPRB,0.49485E-01_JPRB,0.45554E-01_JPRB,0.41889E-01_JPRB, &
+ & 0.38044E-01_JPRB,0.34149E-01_JPRB,0.36846E-01_JPRB,0.42078E-01_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.59134E-01_JPRB,0.55152E-01_JPRB,0.50116E-01_JPRB,0.47410E-01_JPRB,0.43907E-01_JPRB, &
+ & 0.40732E-01_JPRB,0.38444E-01_JPRB,0.43145E-01_JPRB,0.49218E-01_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.58672E-01_JPRB,0.55655E-01_JPRB,0.51271E-01_JPRB,0.49059E-01_JPRB,0.46360E-01_JPRB, &
+ & 0.44063E-01_JPRB,0.43633E-01_JPRB,0.49781E-01_JPRB,0.56746E-01_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.58134E-01_JPRB,0.55813E-01_JPRB,0.52716E-01_JPRB,0.50709E-01_JPRB,0.49278E-01_JPRB, &
+ & 0.47427E-01_JPRB,0.49630E-01_JPRB,0.57031E-01_JPRB,0.65034E-01_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.62624E-01_JPRB,0.55864E-01_JPRB,0.50884E-01_JPRB,0.46641E-01_JPRB,0.41202E-01_JPRB, &
+ & 0.37808E-01_JPRB,0.32728E-01_JPRB,0.29634E-01_JPRB,0.33571E-01_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.62339E-01_JPRB,0.56365E-01_JPRB,0.51618E-01_JPRB,0.47600E-01_JPRB,0.43888E-01_JPRB, &
+ & 0.40000E-01_JPRB,0.35145E-01_JPRB,0.34591E-01_JPRB,0.39469E-01_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.61969E-01_JPRB,0.57107E-01_JPRB,0.52103E-01_JPRB,0.49599E-01_JPRB,0.46112E-01_JPRB, &
+ & 0.42482E-01_JPRB,0.38680E-01_JPRB,0.40578E-01_JPRB,0.46387E-01_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.61515E-01_JPRB,0.57939E-01_JPRB,0.53160E-01_JPRB,0.51347E-01_JPRB,0.48544E-01_JPRB, &
+ & 0.45843E-01_JPRB,0.42689E-01_JPRB,0.46767E-01_JPRB,0.53378E-01_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.60986E-01_JPRB,0.58238E-01_JPRB,0.54658E-01_JPRB,0.53027E-01_JPRB,0.51696E-01_JPRB, &
+ & 0.49388E-01_JPRB,0.47217E-01_JPRB,0.53278E-01_JPRB,0.60785E-01_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.65795E-01_JPRB,0.58347E-01_JPRB,0.52585E-01_JPRB,0.48437E-01_JPRB,0.42714E-01_JPRB, &
+ & 0.39265E-01_JPRB,0.34039E-01_JPRB,0.28235E-01_JPRB,0.31421E-01_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.65486E-01_JPRB,0.58633E-01_JPRB,0.53696E-01_JPRB,0.49213E-01_JPRB,0.45420E-01_JPRB, &
+ & 0.41668E-01_JPRB,0.36378E-01_JPRB,0.32647E-01_JPRB,0.37055E-01_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.65183E-01_JPRB,0.59134E-01_JPRB,0.54134E-01_JPRB,0.51097E-01_JPRB,0.47829E-01_JPRB, &
+ & 0.44052E-01_JPRB,0.39727E-01_JPRB,0.38129E-01_JPRB,0.43417E-01_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.64717E-01_JPRB,0.59894E-01_JPRB,0.54954E-01_JPRB,0.53041E-01_JPRB,0.50294E-01_JPRB, &
+ & 0.47344E-01_JPRB,0.43654E-01_JPRB,0.43889E-01_JPRB,0.49916E-01_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.64255E-01_JPRB,0.60489E-01_JPRB,0.56373E-01_JPRB,0.54824E-01_JPRB,0.53472E-01_JPRB, &
+ & 0.51112E-01_JPRB,0.47282E-01_JPRB,0.50031E-01_JPRB,0.57102E-01_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.69615E-01_JPRB,0.61594E-01_JPRB,0.54882E-01_JPRB,0.50187E-01_JPRB,0.44074E-01_JPRB, &
+ & 0.39997E-01_JPRB,0.34871E-01_JPRB,0.27743E-01_JPRB,0.29013E-01_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.69442E-01_JPRB,0.61757E-01_JPRB,0.55910E-01_JPRB,0.50997E-01_JPRB,0.46497E-01_JPRB, &
+ & 0.42613E-01_JPRB,0.37188E-01_JPRB,0.31216E-01_JPRB,0.34347E-01_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.69156E-01_JPRB,0.62106E-01_JPRB,0.56750E-01_JPRB,0.52515E-01_JPRB,0.49101E-01_JPRB, &
+ & 0.44986E-01_JPRB,0.40395E-01_JPRB,0.35961E-01_JPRB,0.40369E-01_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.68816E-01_JPRB,0.62627E-01_JPRB,0.57231E-01_JPRB,0.54601E-01_JPRB,0.51362E-01_JPRB, &
+ & 0.48280E-01_JPRB,0.44442E-01_JPRB,0.41156E-01_JPRB,0.46554E-01_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.68355E-01_JPRB,0.63113E-01_JPRB,0.58516E-01_JPRB,0.56347E-01_JPRB,0.54360E-01_JPRB, &
+ & 0.52199E-01_JPRB,0.48222E-01_JPRB,0.46871E-01_JPRB,0.53241E-01_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.74032E-01_JPRB,0.65393E-01_JPRB,0.58013E-01_JPRB,0.51965E-01_JPRB,0.45915E-01_JPRB, &
+ & 0.40526E-01_JPRB,0.35125E-01_JPRB,0.27883E-01_JPRB,0.26586E-01_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.73937E-01_JPRB,0.65493E-01_JPRB,0.58738E-01_JPRB,0.53263E-01_JPRB,0.47941E-01_JPRB, &
+ & 0.43149E-01_JPRB,0.37585E-01_JPRB,0.30874E-01_JPRB,0.31614E-01_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.73662E-01_JPRB,0.65759E-01_JPRB,0.59591E-01_JPRB,0.54630E-01_JPRB,0.50354E-01_JPRB, &
+ & 0.45514E-01_JPRB,0.40708E-01_JPRB,0.34889E-01_JPRB,0.37383E-01_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.73359E-01_JPRB,0.66187E-01_JPRB,0.60275E-01_JPRB,0.56599E-01_JPRB,0.52392E-01_JPRB, &
+ & 0.48574E-01_JPRB,0.44791E-01_JPRB,0.39333E-01_JPRB,0.43356E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.72923E-01_JPRB,0.66589E-01_JPRB,0.61432E-01_JPRB,0.58168E-01_JPRB,0.55043E-01_JPRB, &
+ & 0.52561E-01_JPRB,0.48755E-01_JPRB,0.44300E-01_JPRB,0.49765E-01_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.78458E-01_JPRB,0.69177E-01_JPRB,0.61142E-01_JPRB,0.54247E-01_JPRB,0.47727E-01_JPRB, &
+ & 0.41456E-01_JPRB,0.34819E-01_JPRB,0.27717E-01_JPRB,0.23941E-01_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.78410E-01_JPRB,0.69294E-01_JPRB,0.61857E-01_JPRB,0.55492E-01_JPRB,0.49764E-01_JPRB, &
+ & 0.43844E-01_JPRB,0.37501E-01_JPRB,0.30644E-01_JPRB,0.28737E-01_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.78162E-01_JPRB,0.69463E-01_JPRB,0.62578E-01_JPRB,0.57026E-01_JPRB,0.52068E-01_JPRB, &
+ & 0.46044E-01_JPRB,0.40472E-01_JPRB,0.34561E-01_JPRB,0.34380E-01_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.77871E-01_JPRB,0.69834E-01_JPRB,0.63268E-01_JPRB,0.59074E-01_JPRB,0.53918E-01_JPRB, &
+ & 0.48672E-01_JPRB,0.44601E-01_JPRB,0.38671E-01_JPRB,0.40158E-01_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.77487E-01_JPRB,0.70209E-01_JPRB,0.64405E-01_JPRB,0.60632E-01_JPRB,0.56120E-01_JPRB, &
+ & 0.52504E-01_JPRB,0.48787E-01_JPRB,0.42980E-01_JPRB,0.46410E-01_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.82666E-01_JPRB,0.72734E-01_JPRB,0.64105E-01_JPRB,0.56594E-01_JPRB,0.49561E-01_JPRB, &
+ & 0.42281E-01_JPRB,0.34472E-01_JPRB,0.27105E-01_JPRB,0.21191E-01_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.82602E-01_JPRB,0.72866E-01_JPRB,0.64825E-01_JPRB,0.57780E-01_JPRB,0.51415E-01_JPRB, &
+ & 0.44682E-01_JPRB,0.37233E-01_JPRB,0.30003E-01_JPRB,0.25697E-01_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.82349E-01_JPRB,0.72898E-01_JPRB,0.65478E-01_JPRB,0.59213E-01_JPRB,0.53844E-01_JPRB, &
+ & 0.46925E-01_JPRB,0.39994E-01_JPRB,0.33830E-01_JPRB,0.31116E-01_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.82004E-01_JPRB,0.73222E-01_JPRB,0.66214E-01_JPRB,0.61303E-01_JPRB,0.55771E-01_JPRB, &
+ & 0.49206E-01_JPRB,0.43963E-01_JPRB,0.38199E-01_JPRB,0.36759E-01_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.81608E-01_JPRB,0.73612E-01_JPRB,0.67180E-01_JPRB,0.63056E-01_JPRB,0.57653E-01_JPRB, &
+ & 0.52653E-01_JPRB,0.48283E-01_JPRB,0.42441E-01_JPRB,0.42846E-01_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.85880E-01_JPRB,0.75430E-01_JPRB,0.66656E-01_JPRB,0.58773E-01_JPRB,0.51658E-01_JPRB, &
+ & 0.43336E-01_JPRB,0.34393E-01_JPRB,0.26157E-01_JPRB,0.14663E-01_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.85756E-01_JPRB,0.75590E-01_JPRB,0.67337E-01_JPRB,0.60049E-01_JPRB,0.53266E-01_JPRB, &
+ & 0.45473E-01_JPRB,0.37278E-01_JPRB,0.29125E-01_JPRB,0.16193E-01_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.85530E-01_JPRB,0.75588E-01_JPRB,0.67995E-01_JPRB,0.61462E-01_JPRB,0.55345E-01_JPRB, &
+ & 0.48001E-01_JPRB,0.39939E-01_JPRB,0.32883E-01_JPRB,0.20331E-01_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.85095E-01_JPRB,0.75810E-01_JPRB,0.68684E-01_JPRB,0.63320E-01_JPRB,0.57485E-01_JPRB, &
+ & 0.50257E-01_JPRB,0.43559E-01_JPRB,0.37443E-01_JPRB,0.23682E-01_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.84667E-01_JPRB,0.76211E-01_JPRB,0.69733E-01_JPRB,0.65095E-01_JPRB,0.59445E-01_JPRB, &
+ & 0.53380E-01_JPRB,0.47785E-01_JPRB,0.41863E-01_JPRB,0.26616E-01_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.87471E-01_JPRB,0.76929E-01_JPRB,0.68322E-01_JPRB,0.60781E-01_JPRB,0.53951E-01_JPRB, &
+ & 0.45056E-01_JPRB,0.35758E-01_JPRB,0.26371E-01_JPRB,0.18858E-01_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.87208E-01_JPRB,0.76940E-01_JPRB,0.68996E-01_JPRB,0.62212E-01_JPRB,0.55582E-01_JPRB, &
+ & 0.47319E-01_JPRB,0.38590E-01_JPRB,0.29478E-01_JPRB,0.21575E-01_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.86835E-01_JPRB,0.76905E-01_JPRB,0.69723E-01_JPRB,0.63816E-01_JPRB,0.57699E-01_JPRB, &
+ & 0.49745E-01_JPRB,0.41432E-01_JPRB,0.33605E-01_JPRB,0.25460E-01_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.86430E-01_JPRB,0.77295E-01_JPRB,0.70629E-01_JPRB,0.65834E-01_JPRB,0.59545E-01_JPRB, &
+ & 0.52341E-01_JPRB,0.45178E-01_JPRB,0.38243E-01_JPRB,0.30364E-01_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.85874E-01_JPRB,0.77597E-01_JPRB,0.72138E-01_JPRB,0.67497E-01_JPRB,0.61709E-01_JPRB, &
+ & 0.55855E-01_JPRB,0.49191E-01_JPRB,0.42789E-01_JPRB,0.33235E-01_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.87248E-01_JPRB,0.76929E-01_JPRB,0.68689E-01_JPRB,0.62001E-01_JPRB,0.55189E-01_JPRB, &
+ & 0.46282E-01_JPRB,0.37018E-01_JPRB,0.26535E-01_JPRB,0.20617E-01_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.86938E-01_JPRB,0.76894E-01_JPRB,0.69591E-01_JPRB,0.63473E-01_JPRB,0.56879E-01_JPRB, &
+ & 0.48866E-01_JPRB,0.39681E-01_JPRB,0.29869E-01_JPRB,0.23753E-01_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.86505E-01_JPRB,0.76936E-01_JPRB,0.70473E-01_JPRB,0.65213E-01_JPRB,0.59161E-01_JPRB, &
+ & 0.51227E-01_JPRB,0.42751E-01_JPRB,0.34068E-01_JPRB,0.28028E-01_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.86014E-01_JPRB,0.77389E-01_JPRB,0.71734E-01_JPRB,0.67391E-01_JPRB,0.61041E-01_JPRB, &
+ & 0.54172E-01_JPRB,0.46740E-01_JPRB,0.38524E-01_JPRB,0.33947E-01_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.85424E-01_JPRB,0.77682E-01_JPRB,0.73622E-01_JPRB,0.69056E-01_JPRB,0.63676E-01_JPRB, &
+ & 0.57877E-01_JPRB,0.50578E-01_JPRB,0.43087E-01_JPRB,0.36933E-01_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.85419E-01_JPRB,0.75627E-01_JPRB,0.68076E-01_JPRB,0.62306E-01_JPRB,0.55288E-01_JPRB, &
+ & 0.46939E-01_JPRB,0.37782E-01_JPRB,0.26869E-01_JPRB,0.20535E-01_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.84985E-01_JPRB,0.75524E-01_JPRB,0.69213E-01_JPRB,0.63729E-01_JPRB,0.57271E-01_JPRB, &
+ & 0.49714E-01_JPRB,0.40473E-01_JPRB,0.30181E-01_JPRB,0.22959E-01_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.84529E-01_JPRB,0.75748E-01_JPRB,0.70315E-01_JPRB,0.65749E-01_JPRB,0.59660E-01_JPRB, &
+ & 0.52260E-01_JPRB,0.43766E-01_JPRB,0.34359E-01_JPRB,0.28707E-01_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.84038E-01_JPRB,0.76252E-01_JPRB,0.71947E-01_JPRB,0.67890E-01_JPRB,0.61874E-01_JPRB, &
+ & 0.55511E-01_JPRB,0.47935E-01_JPRB,0.38594E-01_JPRB,0.34330E-01_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.83450E-01_JPRB,0.76542E-01_JPRB,0.73924E-01_JPRB,0.69752E-01_JPRB,0.64960E-01_JPRB, &
+ & 0.59356E-01_JPRB,0.51789E-01_JPRB,0.43079E-01_JPRB,0.38051E-01_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.68561E-01_JPRB,0.61393E-01_JPRB,0.55377E-01_JPRB,0.48367E-01_JPRB,0.42682E-01_JPRB, &
+ & 0.39908E-01_JPRB,0.45275E-01_JPRB,0.51909E-01_JPRB,0.58629E-01_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.68429E-01_JPRB,0.62258E-01_JPRB,0.56444E-01_JPRB,0.49529E-01_JPRB,0.45167E-01_JPRB, &
+ & 0.45643E-01_JPRB,0.53469E-01_JPRB,0.61626E-01_JPRB,0.69870E-01_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.68224E-01_JPRB,0.62810E-01_JPRB,0.57169E-01_JPRB,0.51186E-01_JPRB,0.48224E-01_JPRB, &
+ & 0.52899E-01_JPRB,0.62764E-01_JPRB,0.72521E-01_JPRB,0.82353E-01_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.67917E-01_JPRB,0.63314E-01_JPRB,0.58187E-01_JPRB,0.53334E-01_JPRB,0.52038E-01_JPRB, &
+ & 0.61434E-01_JPRB,0.73273E-01_JPRB,0.84850E-01_JPRB,0.96479E-01_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.67553E-01_JPRB,0.63903E-01_JPRB,0.59193E-01_JPRB,0.55737E-01_JPRB,0.58351E-01_JPRB, &
+ & 0.71682E-01_JPRB,0.85665E-01_JPRB,0.99285E-01_JPRB,0.11295E+00_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.77509E-01_JPRB,0.69079E-01_JPRB,0.62486E-01_JPRB,0.54626E-01_JPRB,0.48075E-01_JPRB, &
+ & 0.42537E-01_JPRB,0.44950E-01_JPRB,0.51477E-01_JPRB,0.58558E-01_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.77430E-01_JPRB,0.69950E-01_JPRB,0.63742E-01_JPRB,0.55764E-01_JPRB,0.50627E-01_JPRB, &
+ & 0.46853E-01_JPRB,0.52532E-01_JPRB,0.60374E-01_JPRB,0.68733E-01_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.77189E-01_JPRB,0.70882E-01_JPRB,0.64573E-01_JPRB,0.57536E-01_JPRB,0.53311E-01_JPRB, &
+ & 0.52406E-01_JPRB,0.61244E-01_JPRB,0.70634E-01_JPRB,0.80523E-01_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.76847E-01_JPRB,0.71588E-01_JPRB,0.65635E-01_JPRB,0.59928E-01_JPRB,0.56064E-01_JPRB, &
+ & 0.60283E-01_JPRB,0.71500E-01_JPRB,0.82577E-01_JPRB,0.94220E-01_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.76386E-01_JPRB,0.72289E-01_JPRB,0.66796E-01_JPRB,0.62420E-01_JPRB,0.60016E-01_JPRB, &
+ & 0.69350E-01_JPRB,0.82634E-01_JPRB,0.95798E-01_JPRB,0.10925E+00_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.86533E-01_JPRB,0.76872E-01_JPRB,0.69252E-01_JPRB,0.60999E-01_JPRB,0.53444E-01_JPRB, &
+ & 0.46117E-01_JPRB,0.43982E-01_JPRB,0.49772E-01_JPRB,0.56991E-01_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.86412E-01_JPRB,0.77388E-01_JPRB,0.71047E-01_JPRB,0.62031E-01_JPRB,0.55847E-01_JPRB, &
+ & 0.49560E-01_JPRB,0.50601E-01_JPRB,0.57831E-01_JPRB,0.66136E-01_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.86175E-01_JPRB,0.78253E-01_JPRB,0.72126E-01_JPRB,0.63678E-01_JPRB,0.58875E-01_JPRB, &
+ & 0.53556E-01_JPRB,0.58645E-01_JPRB,0.67397E-01_JPRB,0.77181E-01_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.85802E-01_JPRB,0.79483E-01_JPRB,0.72991E-01_JPRB,0.66186E-01_JPRB,0.61530E-01_JPRB, &
+ & 0.59229E-01_JPRB,0.68328E-01_JPRB,0.78749E-01_JPRB,0.90335E-01_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.85328E-01_JPRB,0.80671E-01_JPRB,0.74346E-01_JPRB,0.68871E-01_JPRB,0.64555E-01_JPRB, &
+ & 0.67267E-01_JPRB,0.79478E-01_JPRB,0.91684E-01_JPRB,0.10533E+00_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.95394E-01_JPRB,0.84557E-01_JPRB,0.75442E-01_JPRB,0.67038E-01_JPRB,0.59073E-01_JPRB, &
+ & 0.49886E-01_JPRB,0.44642E-01_JPRB,0.48508E-01_JPRB,0.55658E-01_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.95223E-01_JPRB,0.84873E-01_JPRB,0.77588E-01_JPRB,0.68316E-01_JPRB,0.60993E-01_JPRB, &
+ & 0.53907E-01_JPRB,0.49824E-01_JPRB,0.55820E-01_JPRB,0.64074E-01_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.94965E-01_JPRB,0.85575E-01_JPRB,0.79290E-01_JPRB,0.69694E-01_JPRB,0.64420E-01_JPRB, &
+ & 0.57295E-01_JPRB,0.56440E-01_JPRB,0.64306E-01_JPRB,0.73964E-01_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.94509E-01_JPRB,0.86370E-01_JPRB,0.80294E-01_JPRB,0.72257E-01_JPRB,0.67415E-01_JPRB, &
+ & 0.61388E-01_JPRB,0.65357E-01_JPRB,0.74991E-01_JPRB,0.86332E-01_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.94009E-01_JPRB,0.87806E-01_JPRB,0.81595E-01_JPRB,0.75171E-01_JPRB,0.70245E-01_JPRB, &
+ & 0.67536E-01_JPRB,0.76274E-01_JPRB,0.87845E-01_JPRB,0.10132E+00_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.10343E+00_JPRB,0.91525E-01_JPRB,0.80861E-01_JPRB,0.72378E-01_JPRB,0.64406E-01_JPRB, &
+ & 0.53983E-01_JPRB,0.47036E-01_JPRB,0.47125E-01_JPRB,0.54095E-01_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.10334E+00_JPRB,0.91907E-01_JPRB,0.82762E-01_JPRB,0.74349E-01_JPRB,0.66049E-01_JPRB, &
+ & 0.58213E-01_JPRB,0.51290E-01_JPRB,0.53990E-01_JPRB,0.61913E-01_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.10297E+00_JPRB,0.92357E-01_JPRB,0.85393E-01_JPRB,0.75564E-01_JPRB,0.69527E-01_JPRB, &
+ & 0.62165E-01_JPRB,0.56265E-01_JPRB,0.62011E-01_JPRB,0.71236E-01_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.10256E+00_JPRB,0.93114E-01_JPRB,0.87093E-01_JPRB,0.77935E-01_JPRB,0.73042E-01_JPRB, &
+ & 0.65986E-01_JPRB,0.63498E-01_JPRB,0.72109E-01_JPRB,0.83127E-01_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.10189E+00_JPRB,0.94299E-01_JPRB,0.88282E-01_JPRB,0.81218E-01_JPRB,0.76035E-01_JPRB, &
+ & 0.70876E-01_JPRB,0.73640E-01_JPRB,0.84406E-01_JPRB,0.97393E-01_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.11045E+00_JPRB,0.97454E-01_JPRB,0.85408E-01_JPRB,0.76244E-01_JPRB,0.68972E-01_JPRB, &
+ & 0.58251E-01_JPRB,0.49930E-01_JPRB,0.45374E-01_JPRB,0.51875E-01_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.11019E+00_JPRB,0.97819E-01_JPRB,0.87148E-01_JPRB,0.79069E-01_JPRB,0.71021E-01_JPRB, &
+ & 0.62071E-01_JPRB,0.54179E-01_JPRB,0.52124E-01_JPRB,0.59618E-01_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.10981E+00_JPRB,0.98088E-01_JPRB,0.89384E-01_JPRB,0.81156E-01_JPRB,0.73973E-01_JPRB, &
+ & 0.66762E-01_JPRB,0.58141E-01_JPRB,0.59499E-01_JPRB,0.68391E-01_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.10923E+00_JPRB,0.98741E-01_JPRB,0.91856E-01_JPRB,0.83093E-01_JPRB,0.78121E-01_JPRB, &
+ & 0.70717E-01_JPRB,0.63590E-01_JPRB,0.68985E-01_JPRB,0.79490E-01_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.10855E+00_JPRB,0.99728E-01_JPRB,0.93768E-01_JPRB,0.86485E-01_JPRB,0.81499E-01_JPRB, &
+ & 0.75384E-01_JPRB,0.71738E-01_JPRB,0.80634E-01_JPRB,0.92951E-01_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.11652E+00_JPRB,0.10245E+00_JPRB,0.89345E-01_JPRB,0.79831E-01_JPRB,0.71546E-01_JPRB, &
+ & 0.62110E-01_JPRB,0.52889E-01_JPRB,0.43937E-01_JPRB,0.49094E-01_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.11624E+00_JPRB,0.10291E+00_JPRB,0.90769E-01_JPRB,0.82143E-01_JPRB,0.74705E-01_JPRB, &
+ & 0.65752E-01_JPRB,0.57383E-01_JPRB,0.50125E-01_JPRB,0.56751E-01_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.11594E+00_JPRB,0.10317E+00_JPRB,0.92734E-01_JPRB,0.84722E-01_JPRB,0.77935E-01_JPRB, &
+ & 0.70772E-01_JPRB,0.61416E-01_JPRB,0.57153E-01_JPRB,0.65344E-01_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.11535E+00_JPRB,0.10356E+00_JPRB,0.95024E-01_JPRB,0.87242E-01_JPRB,0.82357E-01_JPRB, &
+ & 0.75212E-01_JPRB,0.65866E-01_JPRB,0.66110E-01_JPRB,0.76048E-01_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.11474E+00_JPRB,0.10447E+00_JPRB,0.97059E-01_JPRB,0.90869E-01_JPRB,0.86343E-01_JPRB, &
+ & 0.79806E-01_JPRB,0.72467E-01_JPRB,0.77014E-01_JPRB,0.88751E-01_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.12265E+00_JPRB,0.10756E+00_JPRB,0.93593E-01_JPRB,0.82964E-01_JPRB,0.73576E-01_JPRB, &
+ & 0.64374E-01_JPRB,0.55605E-01_JPRB,0.43559E-01_JPRB,0.46060E-01_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.12249E+00_JPRB,0.10812E+00_JPRB,0.94575E-01_JPRB,0.84973E-01_JPRB,0.76683E-01_JPRB, &
+ & 0.68823E-01_JPRB,0.60052E-01_JPRB,0.49117E-01_JPRB,0.53798E-01_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.12216E+00_JPRB,0.10834E+00_JPRB,0.96338E-01_JPRB,0.87360E-01_JPRB,0.80349E-01_JPRB, &
+ & 0.74206E-01_JPRB,0.64654E-01_JPRB,0.55074E-01_JPRB,0.62031E-01_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.12168E+00_JPRB,0.10860E+00_JPRB,0.98251E-01_JPRB,0.89888E-01_JPRB,0.85251E-01_JPRB, &
+ & 0.79126E-01_JPRB,0.69120E-01_JPRB,0.63252E-01_JPRB,0.72334E-01_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.12099E+00_JPRB,0.10931E+00_JPRB,0.10017E+00_JPRB,0.93685E-01_JPRB,0.90048E-01_JPRB, &
+ & 0.83711E-01_JPRB,0.75096E-01_JPRB,0.73779E-01_JPRB,0.84712E-01_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.12914E+00_JPRB,0.11313E+00_JPRB,0.98462E-01_JPRB,0.86441E-01_JPRB,0.75875E-01_JPRB, &
+ & 0.66332E-01_JPRB,0.57013E-01_JPRB,0.43839E-01_JPRB,0.42411E-01_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.12911E+00_JPRB,0.11365E+00_JPRB,0.99113E-01_JPRB,0.88386E-01_JPRB,0.78651E-01_JPRB, &
+ & 0.70676E-01_JPRB,0.61767E-01_JPRB,0.49076E-01_JPRB,0.50412E-01_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.12886E+00_JPRB,0.11401E+00_JPRB,0.10056E+00_JPRB,0.90400E-01_JPRB,0.82030E-01_JPRB, &
+ & 0.75969E-01_JPRB,0.67212E-01_JPRB,0.54346E-01_JPRB,0.58598E-01_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.12844E+00_JPRB,0.11410E+00_JPRB,0.10221E+00_JPRB,0.92662E-01_JPRB,0.86791E-01_JPRB, &
+ & 0.81685E-01_JPRB,0.71813E-01_JPRB,0.61251E-01_JPRB,0.68599E-01_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.12781E+00_JPRB,0.11455E+00_JPRB,0.10390E+00_JPRB,0.96184E-01_JPRB,0.92217E-01_JPRB, &
+ & 0.86557E-01_JPRB,0.77640E-01_JPRB,0.70636E-01_JPRB,0.80447E-01_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.13661E+00_JPRB,0.11963E+00_JPRB,0.10401E+00_JPRB,0.90612E-01_JPRB,0.78552E-01_JPRB, &
+ & 0.68665E-01_JPRB,0.58042E-01_JPRB,0.44182E-01_JPRB,0.20623E-01_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.13663E+00_JPRB,0.12000E+00_JPRB,0.10449E+00_JPRB,0.92427E-01_JPRB,0.81459E-01_JPRB, &
+ & 0.72606E-01_JPRB,0.62588E-01_JPRB,0.49634E-01_JPRB,0.27517E-01_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.13648E+00_JPRB,0.12048E+00_JPRB,0.10572E+00_JPRB,0.94344E-01_JPRB,0.84635E-01_JPRB, &
+ & 0.77264E-01_JPRB,0.68466E-01_JPRB,0.54964E-01_JPRB,0.37460E-01_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.13615E+00_JPRB,0.12055E+00_JPRB,0.10724E+00_JPRB,0.96538E-01_JPRB,0.88921E-01_JPRB, &
+ & 0.82919E-01_JPRB,0.73837E-01_JPRB,0.61121E-01_JPRB,0.51408E-01_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.13560E+00_JPRB,0.12083E+00_JPRB,0.10867E+00_JPRB,0.99719E-01_JPRB,0.94157E-01_JPRB, &
+ & 0.88097E-01_JPRB,0.79982E-01_JPRB,0.69630E-01_JPRB,0.68524E-01_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.14486E+00_JPRB,0.12685E+00_JPRB,0.11053E+00_JPRB,0.96215E-01_JPRB,0.83198E-01_JPRB, &
+ & 0.72790E-01_JPRB,0.60483E-01_JPRB,0.46368E-01_JPRB,0.23123E-01_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.14497E+00_JPRB,0.12740E+00_JPRB,0.11115E+00_JPRB,0.98058E-01_JPRB,0.86138E-01_JPRB, &
+ & 0.76317E-01_JPRB,0.65283E-01_JPRB,0.52226E-01_JPRB,0.29160E-01_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.14473E+00_JPRB,0.12775E+00_JPRB,0.11243E+00_JPRB,0.99891E-01_JPRB,0.89493E-01_JPRB, &
+ & 0.80996E-01_JPRB,0.71303E-01_JPRB,0.57950E-01_JPRB,0.32977E-01_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.14430E+00_JPRB,0.12774E+00_JPRB,0.11386E+00_JPRB,0.10223E+00_JPRB,0.94098E-01_JPRB, &
+ & 0.86252E-01_JPRB,0.77087E-01_JPRB,0.64785E-01_JPRB,0.38714E-01_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.14365E+00_JPRB,0.12806E+00_JPRB,0.11504E+00_JPRB,0.10578E+00_JPRB,0.98766E-01_JPRB, &
+ & 0.91283E-01_JPRB,0.84242E-01_JPRB,0.73581E-01_JPRB,0.47497E-01_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.15269E+00_JPRB,0.13372E+00_JPRB,0.11691E+00_JPRB,0.10167E+00_JPRB,0.88459E-01_JPRB, &
+ & 0.76634E-01_JPRB,0.62620E-01_JPRB,0.48153E-01_JPRB,0.27858E-01_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.15257E+00_JPRB,0.13415E+00_JPRB,0.11750E+00_JPRB,0.10380E+00_JPRB,0.91589E-01_JPRB, &
+ & 0.79898E-01_JPRB,0.67862E-01_JPRB,0.54271E-01_JPRB,0.35587E-01_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.15233E+00_JPRB,0.13449E+00_JPRB,0.11899E+00_JPRB,0.10589E+00_JPRB,0.94966E-01_JPRB, &
+ & 0.84666E-01_JPRB,0.73653E-01_JPRB,0.60551E-01_JPRB,0.39809E-01_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.15175E+00_JPRB,0.13439E+00_JPRB,0.12031E+00_JPRB,0.10854E+00_JPRB,0.99506E-01_JPRB, &
+ & 0.89389E-01_JPRB,0.79517E-01_JPRB,0.68401E-01_JPRB,0.45578E-01_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.15105E+00_JPRB,0.13484E+00_JPRB,0.12149E+00_JPRB,0.11242E+00_JPRB,0.10353E+00_JPRB, &
+ & 0.94548E-01_JPRB,0.87485E-01_JPRB,0.77323E-01_JPRB,0.55990E-01_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.15929E+00_JPRB,0.13953E+00_JPRB,0.12252E+00_JPRB,0.10682E+00_JPRB,0.93710E-01_JPRB, &
+ & 0.80318E-01_JPRB,0.64679E-01_JPRB,0.49483E-01_JPRB,0.31231E-01_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.15914E+00_JPRB,0.14001E+00_JPRB,0.12322E+00_JPRB,0.10931E+00_JPRB,0.96798E-01_JPRB, &
+ & 0.83533E-01_JPRB,0.70039E-01_JPRB,0.55928E-01_JPRB,0.39440E-01_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.15875E+00_JPRB,0.14019E+00_JPRB,0.12484E+00_JPRB,0.11161E+00_JPRB,0.10034E+00_JPRB, &
+ & 0.88309E-01_JPRB,0.75681E-01_JPRB,0.62757E-01_JPRB,0.43280E-01_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.15815E+00_JPRB,0.14019E+00_JPRB,0.12619E+00_JPRB,0.11467E+00_JPRB,0.10492E+00_JPRB, &
+ & 0.92849E-01_JPRB,0.81796E-01_JPRB,0.71221E-01_JPRB,0.50343E-01_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.15737E+00_JPRB,0.14077E+00_JPRB,0.12756E+00_JPRB,0.11888E+00_JPRB,0.10868E+00_JPRB, &
+ & 0.98192E-01_JPRB,0.90106E-01_JPRB,0.80417E-01_JPRB,0.60332E-01_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.83965E-01_JPRB,0.74725E-01_JPRB,0.67262E-01_JPRB,0.61439E-01_JPRB,0.63569E-01_JPRB, &
+ & 0.76568E-01_JPRB,0.91505E-01_JPRB,0.10604E+00_JPRB,0.12066E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.84124E-01_JPRB,0.75639E-01_JPRB,0.69121E-01_JPRB,0.66761E-01_JPRB,0.75177E-01_JPRB, &
+ & 0.93190E-01_JPRB,0.11140E+00_JPRB,0.12912E+00_JPRB,0.14697E+00_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.84208E-01_JPRB,0.76821E-01_JPRB,0.71401E-01_JPRB,0.74638E-01_JPRB,0.90938E-01_JPRB, &
+ & 0.11330E+00_JPRB,0.13555E+00_JPRB,0.15732E+00_JPRB,0.17919E+00_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.84082E-01_JPRB,0.77722E-01_JPRB,0.74753E-01_JPRB,0.85505E-01_JPRB,0.11037E+00_JPRB, &
+ & 0.13754E+00_JPRB,0.16460E+00_JPRB,0.19114E+00_JPRB,0.21779E+00_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.83810E-01_JPRB,0.78431E-01_JPRB,0.79767E-01_JPRB,0.99722E-01_JPRB,0.13195E+00_JPRB, &
+ & 0.16448E+00_JPRB,0.19691E+00_JPRB,0.22867E+00_JPRB,0.26057E+00_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.98728E-01_JPRB,0.87584E-01_JPRB,0.78635E-01_JPRB,0.69559E-01_JPRB,0.65625E-01_JPRB, &
+ & 0.74022E-01_JPRB,0.88098E-01_JPRB,0.10177E+00_JPRB,0.11620E+00_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.98895E-01_JPRB,0.88195E-01_JPRB,0.80583E-01_JPRB,0.73010E-01_JPRB,0.73981E-01_JPRB, &
+ & 0.89007E-01_JPRB,0.10638E+00_JPRB,0.12319E+00_JPRB,0.14079E+00_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.98911E-01_JPRB,0.89265E-01_JPRB,0.82581E-01_JPRB,0.78421E-01_JPRB,0.87111E-01_JPRB, &
+ & 0.10783E+00_JPRB,0.12893E+00_JPRB,0.14951E+00_JPRB,0.17084E+00_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.98795E-01_JPRB,0.90737E-01_JPRB,0.84451E-01_JPRB,0.86623E-01_JPRB,0.10466E+00_JPRB, &
+ & 0.13034E+00_JPRB,0.15592E+00_JPRB,0.18094E+00_JPRB,0.20669E+00_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.98517E-01_JPRB,0.92027E-01_JPRB,0.87783E-01_JPRB,0.98306E-01_JPRB,0.12592E+00_JPRB, &
+ & 0.15706E+00_JPRB,0.18794E+00_JPRB,0.21816E+00_JPRB,0.24934E+00_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.11536E+00_JPRB,0.10204E+00_JPRB,0.91076E-01_JPRB,0.79879E-01_JPRB,0.70411E-01_JPRB, &
+ & 0.71590E-01_JPRB,0.83610E-01_JPRB,0.96241E-01_JPRB,0.11049E+00_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.11565E+00_JPRB,0.10277E+00_JPRB,0.93049E-01_JPRB,0.82303E-01_JPRB,0.75267E-01_JPRB, &
+ & 0.83499E-01_JPRB,0.99323E-01_JPRB,0.11472E+00_JPRB,0.13181E+00_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.11566E+00_JPRB,0.10353E+00_JPRB,0.95697E-01_JPRB,0.85227E-01_JPRB,0.84157E-01_JPRB, &
+ & 0.99917E-01_JPRB,0.11933E+00_JPRB,0.13815E+00_JPRB,0.15865E+00_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.11554E+00_JPRB,0.10447E+00_JPRB,0.97554E-01_JPRB,0.90504E-01_JPRB,0.97960E-01_JPRB, &
+ & 0.12029E+00_JPRB,0.14386E+00_JPRB,0.16671E+00_JPRB,0.19135E+00_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.11515E+00_JPRB,0.10586E+00_JPRB,0.99141E-01_JPRB,0.99110E-01_JPRB,0.11626E+00_JPRB, &
+ & 0.14432E+00_JPRB,0.17265E+00_JPRB,0.20040E+00_JPRB,0.22976E+00_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.13374E+00_JPRB,0.11777E+00_JPRB,0.10356E+00_JPRB,0.90948E-01_JPRB,0.79121E-01_JPRB, &
+ & 0.73845E-01_JPRB,0.80790E-01_JPRB,0.92777E-01_JPRB,0.10713E+00_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.13413E+00_JPRB,0.11892E+00_JPRB,0.10607E+00_JPRB,0.94460E-01_JPRB,0.81628E-01_JPRB, &
+ & 0.80960E-01_JPRB,0.93972E-01_JPRB,0.10817E+00_JPRB,0.12489E+00_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.13429E+00_JPRB,0.11957E+00_JPRB,0.10936E+00_JPRB,0.96737E-01_JPRB,0.86452E-01_JPRB, &
+ & 0.93977E-01_JPRB,0.11135E+00_JPRB,0.12854E+00_JPRB,0.14815E+00_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.13415E+00_JPRB,0.12054E+00_JPRB,0.11264E+00_JPRB,0.99496E-01_JPRB,0.96100E-01_JPRB, &
+ & 0.11145E+00_JPRB,0.13299E+00_JPRB,0.15385E+00_JPRB,0.17718E+00_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.13374E+00_JPRB,0.12142E+00_JPRB,0.11440E+00_JPRB,0.10500E+00_JPRB,0.11046E+00_JPRB, &
+ & 0.13295E+00_JPRB,0.15886E+00_JPRB,0.18424E+00_JPRB,0.21188E+00_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.15386E+00_JPRB,0.13491E+00_JPRB,0.11798E+00_JPRB,0.10225E+00_JPRB,0.89703E-01_JPRB, &
+ & 0.79220E-01_JPRB,0.79340E-01_JPRB,0.90595E-01_JPRB,0.10482E+00_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.15427E+00_JPRB,0.13635E+00_JPRB,0.12030E+00_JPRB,0.10668E+00_JPRB,0.92323E-01_JPRB, &
+ & 0.84157E-01_JPRB,0.91777E-01_JPRB,0.10537E+00_JPRB,0.12216E+00_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.15452E+00_JPRB,0.13729E+00_JPRB,0.12299E+00_JPRB,0.11079E+00_JPRB,0.94730E-01_JPRB, &
+ & 0.92840E-01_JPRB,0.10677E+00_JPRB,0.12287E+00_JPRB,0.14246E+00_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.15437E+00_JPRB,0.13801E+00_JPRB,0.12683E+00_JPRB,0.11313E+00_JPRB,0.10059E+00_JPRB, &
+ & 0.10648E+00_JPRB,0.12562E+00_JPRB,0.14488E+00_JPRB,0.16770E+00_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.15403E+00_JPRB,0.13896E+00_JPRB,0.13053E+00_JPRB,0.11647E+00_JPRB,0.11129E+00_JPRB, &
+ & 0.12495E+00_JPRB,0.14877E+00_JPRB,0.17193E+00_JPRB,0.19866E+00_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.17516E+00_JPRB,0.15332E+00_JPRB,0.13386E+00_JPRB,0.11461E+00_JPRB,0.98998E-01_JPRB, &
+ & 0.86199E-01_JPRB,0.78839E-01_JPRB,0.88239E-01_JPRB,0.10212E+00_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.17578E+00_JPRB,0.15465E+00_JPRB,0.13554E+00_JPRB,0.11810E+00_JPRB,0.10372E+00_JPRB, &
+ & 0.90966E-01_JPRB,0.90397E-01_JPRB,0.10318E+00_JPRB,0.11979E+00_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.17603E+00_JPRB,0.15606E+00_JPRB,0.13830E+00_JPRB,0.12297E+00_JPRB,0.10694E+00_JPRB, &
+ & 0.96886E-01_JPRB,0.10455E+00_JPRB,0.12004E+00_JPRB,0.13936E+00_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.17594E+00_JPRB,0.15671E+00_JPRB,0.14175E+00_JPRB,0.12765E+00_JPRB,0.11049E+00_JPRB, &
+ & 0.10701E+00_JPRB,0.12142E+00_JPRB,0.13971E+00_JPRB,0.16228E+00_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.17559E+00_JPRB,0.15762E+00_JPRB,0.14567E+00_JPRB,0.13124E+00_JPRB,0.11784E+00_JPRB, &
+ & 0.12121E+00_JPRB,0.14182E+00_JPRB,0.16360E+00_JPRB,0.18966E+00_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.19714E+00_JPRB,0.17254E+00_JPRB,0.15016E+00_JPRB,0.12718E+00_JPRB,0.10949E+00_JPRB, &
+ & 0.93814E-01_JPRB,0.79465E-01_JPRB,0.85103E-01_JPRB,0.98359E-01_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.19796E+00_JPRB,0.17362E+00_JPRB,0.15183E+00_JPRB,0.13102E+00_JPRB,0.11370E+00_JPRB, &
+ & 0.99479E-01_JPRB,0.90483E-01_JPRB,0.10125E+00_JPRB,0.11726E+00_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.19829E+00_JPRB,0.17522E+00_JPRB,0.15424E+00_JPRB,0.13545E+00_JPRB,0.11863E+00_JPRB, &
+ & 0.10457E+00_JPRB,0.10363E+00_JPRB,0.11810E+00_JPRB,0.13724E+00_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.19826E+00_JPRB,0.17625E+00_JPRB,0.15748E+00_JPRB,0.14049E+00_JPRB,0.12307E+00_JPRB, &
+ & 0.11254E+00_JPRB,0.11942E+00_JPRB,0.13698E+00_JPRB,0.15920E+00_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.19780E+00_JPRB,0.17685E+00_JPRB,0.16171E+00_JPRB,0.14510E+00_JPRB,0.12933E+00_JPRB, &
+ & 0.12368E+00_JPRB,0.13790E+00_JPRB,0.15875E+00_JPRB,0.18443E+00_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.21950E+00_JPRB,0.19210E+00_JPRB,0.16641E+00_JPRB,0.14074E+00_JPRB,0.12030E+00_JPRB, &
+ & 0.10245E+00_JPRB,0.82539E-01_JPRB,0.82181E-01_JPRB,0.95126E-01_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.22029E+00_JPRB,0.19287E+00_JPRB,0.16845E+00_JPRB,0.14392E+00_JPRB,0.12476E+00_JPRB, &
+ & 0.10750E+00_JPRB,0.92052E-01_JPRB,0.97622E-01_JPRB,0.11306E+00_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.22070E+00_JPRB,0.19423E+00_JPRB,0.17032E+00_JPRB,0.14847E+00_JPRB,0.12971E+00_JPRB, &
+ & 0.11297E+00_JPRB,0.10375E+00_JPRB,0.11522E+00_JPRB,0.13338E+00_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.22058E+00_JPRB,0.19569E+00_JPRB,0.17355E+00_JPRB,0.15354E+00_JPRB,0.13473E+00_JPRB, &
+ & 0.12044E+00_JPRB,0.11859E+00_JPRB,0.13469E+00_JPRB,0.15609E+00_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.22021E+00_JPRB,0.19640E+00_JPRB,0.17762E+00_JPRB,0.15857E+00_JPRB,0.14102E+00_JPRB, &
+ & 0.13035E+00_JPRB,0.13566E+00_JPRB,0.15573E+00_JPRB,0.18054E+00_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.24109E+00_JPRB,0.21099E+00_JPRB,0.18179E+00_JPRB,0.15454E+00_JPRB,0.13112E+00_JPRB, &
+ & 0.11092E+00_JPRB,0.89296E-01_JPRB,0.80506E-01_JPRB,0.93157E-01_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.24188E+00_JPRB,0.21170E+00_JPRB,0.18440E+00_JPRB,0.15693E+00_JPRB,0.13589E+00_JPRB, &
+ & 0.11596E+00_JPRB,0.96808E-01_JPRB,0.94330E-01_JPRB,0.10941E+00_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.24228E+00_JPRB,0.21270E+00_JPRB,0.18618E+00_JPRB,0.16137E+00_JPRB,0.14099E+00_JPRB, &
+ & 0.12182E+00_JPRB,0.10601E+00_JPRB,0.11139E+00_JPRB,0.12901E+00_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.24222E+00_JPRB,0.21416E+00_JPRB,0.18881E+00_JPRB,0.16653E+00_JPRB,0.14643E+00_JPRB, &
+ & 0.12886E+00_JPRB,0.11898E+00_JPRB,0.13037E+00_JPRB,0.15086E+00_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.24175E+00_JPRB,0.21527E+00_JPRB,0.19303E+00_JPRB,0.17188E+00_JPRB,0.15251E+00_JPRB, &
+ & 0.13886E+00_JPRB,0.13479E+00_JPRB,0.15182E+00_JPRB,0.17551E+00_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.26096E+00_JPRB,0.22837E+00_JPRB,0.19625E+00_JPRB,0.16743E+00_JPRB,0.14218E+00_JPRB, &
+ & 0.11905E+00_JPRB,0.97365E-01_JPRB,0.81466E-01_JPRB,0.86743E-01_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.26197E+00_JPRB,0.22928E+00_JPRB,0.19902E+00_JPRB,0.16970E+00_JPRB,0.14641E+00_JPRB, &
+ & 0.12483E+00_JPRB,0.10472E+00_JPRB,0.93843E-01_JPRB,0.10806E+00_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.26221E+00_JPRB,0.22989E+00_JPRB,0.20102E+00_JPRB,0.17345E+00_JPRB,0.15221E+00_JPRB, &
+ & 0.13116E+00_JPRB,0.11273E+00_JPRB,0.10943E+00_JPRB,0.12658E+00_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.26216E+00_JPRB,0.23120E+00_JPRB,0.20343E+00_JPRB,0.17903E+00_JPRB,0.15795E+00_JPRB, &
+ & 0.13876E+00_JPRB,0.12342E+00_JPRB,0.12756E+00_JPRB,0.14743E+00_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.26155E+00_JPRB,0.23254E+00_JPRB,0.20744E+00_JPRB,0.18479E+00_JPRB,0.16453E+00_JPRB, &
+ & 0.14894E+00_JPRB,0.13716E+00_JPRB,0.14827E+00_JPRB,0.17117E+00_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.28000E+00_JPRB,0.24504E+00_JPRB,0.21069E+00_JPRB,0.18024E+00_JPRB,0.15374E+00_JPRB, &
+ & 0.12937E+00_JPRB,0.10819E+00_JPRB,0.88668E-01_JPRB,0.55926E-01_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.28047E+00_JPRB,0.24546E+00_JPRB,0.21318E+00_JPRB,0.18272E+00_JPRB,0.15865E+00_JPRB, &
+ & 0.13663E+00_JPRB,0.11594E+00_JPRB,0.10024E+00_JPRB,0.74129E-01_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.28078E+00_JPRB,0.24627E+00_JPRB,0.21537E+00_JPRB,0.18699E+00_JPRB,0.16514E+00_JPRB, &
+ & 0.14391E+00_JPRB,0.12463E+00_JPRB,0.11566E+00_JPRB,0.10008E+00_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.28041E+00_JPRB,0.24739E+00_JPRB,0.21799E+00_JPRB,0.19316E+00_JPRB,0.17153E+00_JPRB, &
+ & 0.15296E+00_JPRB,0.13573E+00_JPRB,0.13384E+00_JPRB,0.12903E+00_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.27974E+00_JPRB,0.24878E+00_JPRB,0.22235E+00_JPRB,0.19924E+00_JPRB,0.17976E+00_JPRB, &
+ & 0.16447E+00_JPRB,0.14857E+00_JPRB,0.15437E+00_JPRB,0.16255E+00_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.29848E+00_JPRB,0.26121E+00_JPRB,0.22470E+00_JPRB,0.19300E+00_JPRB,0.16476E+00_JPRB, &
+ & 0.13979E+00_JPRB,0.11858E+00_JPRB,0.95361E-01_JPRB,0.54706E-01_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.29901E+00_JPRB,0.26167E+00_JPRB,0.22733E+00_JPRB,0.19555E+00_JPRB,0.17000E+00_JPRB, &
+ & 0.14834E+00_JPRB,0.12686E+00_JPRB,0.10640E+00_JPRB,0.56924E-01_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.29886E+00_JPRB,0.26222E+00_JPRB,0.22932E+00_JPRB,0.20008E+00_JPRB,0.17736E+00_JPRB, &
+ & 0.15653E+00_JPRB,0.13669E+00_JPRB,0.12173E+00_JPRB,0.76097E-01_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.29840E+00_JPRB,0.26333E+00_JPRB,0.23210E+00_JPRB,0.20641E+00_JPRB,0.18472E+00_JPRB, &
+ & 0.16716E+00_JPRB,0.14883E+00_JPRB,0.13980E+00_JPRB,0.10268E+00_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.29738E+00_JPRB,0.26451E+00_JPRB,0.23656E+00_JPRB,0.21275E+00_JPRB,0.19460E+00_JPRB, &
+ & 0.18005E+00_JPRB,0.16102E+00_JPRB,0.16046E+00_JPRB,0.13219E+00_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.31629E+00_JPRB,0.27681E+00_JPRB,0.23838E+00_JPRB,0.20550E+00_JPRB,0.17561E+00_JPRB, &
+ & 0.15005E+00_JPRB,0.12855E+00_JPRB,0.10141E+00_JPRB,0.58394E-01_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.31664E+00_JPRB,0.27713E+00_JPRB,0.24100E+00_JPRB,0.20827E+00_JPRB,0.18155E+00_JPRB, &
+ & 0.15952E+00_JPRB,0.13765E+00_JPRB,0.11247E+00_JPRB,0.60995E-01_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.31646E+00_JPRB,0.27774E+00_JPRB,0.24298E+00_JPRB,0.21292E+00_JPRB,0.18963E+00_JPRB, &
+ & 0.16861E+00_JPRB,0.14853E+00_JPRB,0.12785E+00_JPRB,0.75808E-01_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.31577E+00_JPRB,0.27872E+00_JPRB,0.24590E+00_JPRB,0.21953E+00_JPRB,0.19753E+00_JPRB, &
+ & 0.18064E+00_JPRB,0.16179E+00_JPRB,0.14607E+00_JPRB,0.10217E+00_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.31458E+00_JPRB,0.27978E+00_JPRB,0.25030E+00_JPRB,0.22598E+00_JPRB,0.20858E+00_JPRB, &
+ & 0.19488E+00_JPRB,0.17415E+00_JPRB,0.16696E+00_JPRB,0.13138E+00_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.94898E-01_JPRB,0.85055E-01_JPRB,0.10490E+00_JPRB,0.15201E+00_JPRB,0.20225E+00_JPRB, &
+ & 0.25227E+00_JPRB,0.30184E+00_JPRB,0.34935E+00_JPRB,0.39726E+00_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.95143E-01_JPRB,0.87211E-01_JPRB,0.12685E+00_JPRB,0.18956E+00_JPRB,0.25226E+00_JPRB, &
+ & 0.31465E+00_JPRB,0.37635E+00_JPRB,0.43547E+00_JPRB,0.49508E+00_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.95189E-01_JPRB,0.92182E-01_JPRB,0.15432E+00_JPRB,0.23093E+00_JPRB,0.30732E+00_JPRB, &
+ & 0.38333E+00_JPRB,0.45850E+00_JPRB,0.53039E+00_JPRB,0.60271E+00_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.95231E-01_JPRB,0.10069E+00_JPRB,0.18420E+00_JPRB,0.27567E+00_JPRB,0.36689E+00_JPRB, &
+ & 0.45778E+00_JPRB,0.54750E+00_JPRB,0.63309E+00_JPRB,0.71941E+00_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.95218E-01_JPRB,0.11224E+00_JPRB,0.21607E+00_JPRB,0.32340E+00_JPRB,0.43052E+00_JPRB, &
+ & 0.53710E+00_JPRB,0.64228E+00_JPRB,0.74267E+00_JPRB,0.84389E+00_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.11396E+00_JPRB,0.10141E+00_JPRB,0.10674E+00_JPRB,0.14459E+00_JPRB,0.19233E+00_JPRB, &
+ & 0.23999E+00_JPRB,0.28714E+00_JPRB,0.33260E+00_JPRB,0.38043E+00_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.11432E+00_JPRB,0.10261E+00_JPRB,0.12520E+00_JPRB,0.18276E+00_JPRB,0.24324E+00_JPRB, &
+ & 0.30342E+00_JPRB,0.36297E+00_JPRB,0.42016E+00_JPRB,0.48074E+00_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.11451E+00_JPRB,0.10490E+00_JPRB,0.15054E+00_JPRB,0.22514E+00_JPRB,0.29969E+00_JPRB, &
+ & 0.37388E+00_JPRB,0.44723E+00_JPRB,0.51774E+00_JPRB,0.59231E+00_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.11456E+00_JPRB,0.10971E+00_JPRB,0.18129E+00_JPRB,0.27136E+00_JPRB,0.36114E+00_JPRB, &
+ & 0.45069E+00_JPRB,0.53922E+00_JPRB,0.62384E+00_JPRB,0.71399E+00_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.11453E+00_JPRB,0.11800E+00_JPRB,0.21439E+00_JPRB,0.32093E+00_JPRB,0.42721E+00_JPRB, &
+ & 0.53302E+00_JPRB,0.63780E+00_JPRB,0.73784E+00_JPRB,0.84437E+00_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.13655E+00_JPRB,0.12054E+00_JPRB,0.11124E+00_JPRB,0.13153E+00_JPRB,0.17207E+00_JPRB, &
+ & 0.21470E+00_JPRB,0.25693E+00_JPRB,0.29779E+00_JPRB,0.34231E+00_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.13707E+00_JPRB,0.12216E+00_JPRB,0.12413E+00_JPRB,0.16670E+00_JPRB,0.22186E+00_JPRB, &
+ & 0.27683E+00_JPRB,0.33137E+00_JPRB,0.38384E+00_JPRB,0.44145E+00_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.13747E+00_JPRB,0.12319E+00_JPRB,0.14360E+00_JPRB,0.20888E+00_JPRB,0.27797E+00_JPRB, &
+ & 0.34687E+00_JPRB,0.41517E+00_JPRB,0.48101E+00_JPRB,0.55322E+00_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.13768E+00_JPRB,0.12546E+00_JPRB,0.17113E+00_JPRB,0.25534E+00_JPRB,0.33989E+00_JPRB, &
+ & 0.42417E+00_JPRB,0.50744E+00_JPRB,0.58796E+00_JPRB,0.67649E+00_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.13772E+00_JPRB,0.12983E+00_JPRB,0.20407E+00_JPRB,0.30559E+00_JPRB,0.40688E+00_JPRB, &
+ & 0.50779E+00_JPRB,0.60773E+00_JPRB,0.70383E+00_JPRB,0.80998E+00_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.16353E+00_JPRB,0.14321E+00_JPRB,0.12667E+00_JPRB,0.12562E+00_JPRB,0.14945E+00_JPRB, &
+ & 0.18589E+00_JPRB,0.22262E+00_JPRB,0.25813E+00_JPRB,0.29728E+00_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.16418E+00_JPRB,0.14525E+00_JPRB,0.13251E+00_JPRB,0.15131E+00_JPRB,0.19654E+00_JPRB, &
+ & 0.24525E+00_JPRB,0.29354E+00_JPRB,0.34060E+00_JPRB,0.39212E+00_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.16461E+00_JPRB,0.14670E+00_JPRB,0.14414E+00_JPRB,0.18897E+00_JPRB,0.25116E+00_JPRB, &
+ & 0.31348E+00_JPRB,0.37525E+00_JPRB,0.43507E+00_JPRB,0.50121E+00_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.16491E+00_JPRB,0.14777E+00_JPRB,0.16361E+00_JPRB,0.23441E+00_JPRB,0.31211E+00_JPRB, &
+ & 0.38952E+00_JPRB,0.46648E+00_JPRB,0.54097E+00_JPRB,0.62321E+00_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.16511E+00_JPRB,0.15008E+00_JPRB,0.19240E+00_JPRB,0.28461E+00_JPRB,0.37902E+00_JPRB, &
+ & 0.47310E+00_JPRB,0.56644E+00_JPRB,0.65651E+00_JPRB,0.75672E+00_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.19509E+00_JPRB,0.17082E+00_JPRB,0.14980E+00_JPRB,0.13204E+00_JPRB,0.13395E+00_JPRB, &
+ & 0.16269E+00_JPRB,0.19465E+00_JPRB,0.22562E+00_JPRB,0.26041E+00_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.19619E+00_JPRB,0.17214E+00_JPRB,0.15205E+00_JPRB,0.14710E+00_JPRB,0.17263E+00_JPRB, &
+ & 0.21401E+00_JPRB,0.25633E+00_JPRB,0.29729E+00_JPRB,0.34247E+00_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.19681E+00_JPRB,0.17444E+00_JPRB,0.15815E+00_JPRB,0.17421E+00_JPRB,0.22342E+00_JPRB, &
+ & 0.27889E+00_JPRB,0.33405E+00_JPRB,0.38778E+00_JPRB,0.44627E+00_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.19721E+00_JPRB,0.17581E+00_JPRB,0.16979E+00_JPRB,0.21414E+00_JPRB,0.28278E+00_JPRB, &
+ & 0.35302E+00_JPRB,0.42274E+00_JPRB,0.49080E+00_JPRB,0.56501E+00_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.19732E+00_JPRB,0.17699E+00_JPRB,0.18956E+00_JPRB,0.26168E+00_JPRB,0.34842E+00_JPRB, &
+ & 0.43503E+00_JPRB,0.52113E+00_JPRB,0.60494E+00_JPRB,0.69634E+00_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.23167E+00_JPRB,0.20281E+00_JPRB,0.17680E+00_JPRB,0.14997E+00_JPRB,0.13324E+00_JPRB, &
+ & 0.14585E+00_JPRB,0.17450E+00_JPRB,0.20194E+00_JPRB,0.23383E+00_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.23317E+00_JPRB,0.20416E+00_JPRB,0.17934E+00_JPRB,0.15819E+00_JPRB,0.15707E+00_JPRB, &
+ & 0.18679E+00_JPRB,0.22357E+00_JPRB,0.25924E+00_JPRB,0.29921E+00_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.23428E+00_JPRB,0.20631E+00_JPRB,0.18228E+00_JPRB,0.17432E+00_JPRB,0.19753E+00_JPRB, &
+ & 0.24343E+00_JPRB,0.29156E+00_JPRB,0.33836E+00_JPRB,0.38981E+00_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.23494E+00_JPRB,0.20857E+00_JPRB,0.18851E+00_JPRB,0.20211E+00_JPRB,0.25104E+00_JPRB, &
+ & 0.31278E+00_JPRB,0.37475E+00_JPRB,0.43549E+00_JPRB,0.50069E+00_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.23514E+00_JPRB,0.20988E+00_JPRB,0.20063E+00_JPRB,0.24116E+00_JPRB,0.31413E+00_JPRB, &
+ & 0.39227E+00_JPRB,0.47006E+00_JPRB,0.54611E+00_JPRB,0.62816E+00_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.27443E+00_JPRB,0.24019E+00_JPRB,0.20758E+00_JPRB,0.17610E+00_JPRB,0.14566E+00_JPRB, &
+ & 0.14000E+00_JPRB,0.16506E+00_JPRB,0.19019E+00_JPRB,0.22128E+00_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.27620E+00_JPRB,0.24179E+00_JPRB,0.21121E+00_JPRB,0.17965E+00_JPRB,0.15984E+00_JPRB, &
+ & 0.16864E+00_JPRB,0.20104E+00_JPRB,0.23213E+00_JPRB,0.26949E+00_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.27747E+00_JPRB,0.24292E+00_JPRB,0.21364E+00_JPRB,0.18907E+00_JPRB,0.18625E+00_JPRB, &
+ & 0.21432E+00_JPRB,0.25652E+00_JPRB,0.29760E+00_JPRB,0.34338E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.27840E+00_JPRB,0.24591E+00_JPRB,0.21750E+00_JPRB,0.20704E+00_JPRB,0.22722E+00_JPRB, &
+ & 0.27512E+00_JPRB,0.32963E+00_JPRB,0.38304E+00_JPRB,0.44058E+00_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.27872E+00_JPRB,0.24790E+00_JPRB,0.22377E+00_JPRB,0.23568E+00_JPRB,0.28140E+00_JPRB, &
+ & 0.34919E+00_JPRB,0.41848E+00_JPRB,0.48672E+00_JPRB,0.55917E+00_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.32341E+00_JPRB,0.28305E+00_JPRB,0.24270E+00_JPRB,0.20626E+00_JPRB,0.16778E+00_JPRB, &
+ & 0.14644E+00_JPRB,0.16206E+00_JPRB,0.18656E+00_JPRB,0.21702E+00_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.32568E+00_JPRB,0.28506E+00_JPRB,0.24756E+00_JPRB,0.20963E+00_JPRB,0.17522E+00_JPRB, &
+ & 0.16516E+00_JPRB,0.19045E+00_JPRB,0.21956E+00_JPRB,0.25530E+00_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.32734E+00_JPRB,0.28654E+00_JPRB,0.25088E+00_JPRB,0.21479E+00_JPRB,0.19195E+00_JPRB, &
+ & 0.19819E+00_JPRB,0.23472E+00_JPRB,0.27107E+00_JPRB,0.31461E+00_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.32837E+00_JPRB,0.28793E+00_JPRB,0.25332E+00_JPRB,0.22544E+00_JPRB,0.22100E+00_JPRB, &
+ & 0.24722E+00_JPRB,0.29529E+00_JPRB,0.34210E+00_JPRB,0.39526E+00_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.32863E+00_JPRB,0.29096E+00_JPRB,0.25794E+00_JPRB,0.24543E+00_JPRB,0.26342E+00_JPRB, &
+ & 0.31218E+00_JPRB,0.37382E+00_JPRB,0.43401E+00_JPRB,0.50027E+00_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.37878E+00_JPRB,0.33149E+00_JPRB,0.28420E+00_JPRB,0.23973E+00_JPRB,0.19541E+00_JPRB, &
+ & 0.16103E+00_JPRB,0.16029E+00_JPRB,0.18365E+00_JPRB,0.21308E+00_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.38160E+00_JPRB,0.33397E+00_JPRB,0.28731E+00_JPRB,0.24432E+00_JPRB,0.19953E+00_JPRB, &
+ & 0.17386E+00_JPRB,0.18539E+00_JPRB,0.21378E+00_JPRB,0.24833E+00_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.38370E+00_JPRB,0.33584E+00_JPRB,0.29267E+00_JPRB,0.24777E+00_JPRB,0.20961E+00_JPRB, &
+ & 0.19622E+00_JPRB,0.22137E+00_JPRB,0.25542E+00_JPRB,0.29676E+00_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.38483E+00_JPRB,0.33686E+00_JPRB,0.29593E+00_JPRB,0.25505E+00_JPRB,0.22908E+00_JPRB, &
+ & 0.23318E+00_JPRB,0.27287E+00_JPRB,0.31549E+00_JPRB,0.36559E+00_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.38520E+00_JPRB,0.33870E+00_JPRB,0.29863E+00_JPRB,0.26759E+00_JPRB,0.26094E+00_JPRB, &
+ & 0.28563E+00_JPRB,0.34036E+00_JPRB,0.39396E+00_JPRB,0.45596E+00_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.44139E+00_JPRB,0.38627E+00_JPRB,0.33114E+00_JPRB,0.27661E+00_JPRB,0.22671E+00_JPRB, &
+ & 0.18314E+00_JPRB,0.16439E+00_JPRB,0.18365E+00_JPRB,0.21302E+00_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.44442E+00_JPRB,0.38894E+00_JPRB,0.33346E+00_JPRB,0.28317E+00_JPRB,0.23077E+00_JPRB, &
+ & 0.19173E+00_JPRB,0.18540E+00_JPRB,0.21159E+00_JPRB,0.24601E+00_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.44688E+00_JPRB,0.39111E+00_JPRB,0.33884E+00_JPRB,0.28735E+00_JPRB,0.23759E+00_JPRB, &
+ & 0.20864E+00_JPRB,0.21693E+00_JPRB,0.24969E+00_JPRB,0.29058E+00_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.44794E+00_JPRB,0.39207E+00_JPRB,0.34326E+00_JPRB,0.29193E+00_JPRB,0.25105E+00_JPRB, &
+ & 0.23562E+00_JPRB,0.26192E+00_JPRB,0.30247E+00_JPRB,0.35138E+00_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.44820E+00_JPRB,0.39253E+00_JPRB,0.34576E+00_JPRB,0.30181E+00_JPRB,0.27401E+00_JPRB, &
+ & 0.27758E+00_JPRB,0.32230E+00_JPRB,0.37259E+00_JPRB,0.43225E+00_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.51225E+00_JPRB,0.44827E+00_JPRB,0.38430E+00_JPRB,0.32096E+00_JPRB,0.26380E+00_JPRB, &
+ & 0.21204E+00_JPRB,0.18122E+00_JPRB,0.19575E+00_JPRB,0.22762E+00_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.51551E+00_JPRB,0.45114E+00_JPRB,0.38677E+00_JPRB,0.32842E+00_JPRB,0.26803E+00_JPRB, &
+ & 0.22031E+00_JPRB,0.20295E+00_JPRB,0.22783E+00_JPRB,0.26563E+00_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.51720E+00_JPRB,0.45265E+00_JPRB,0.39154E+00_JPRB,0.33278E+00_JPRB,0.27451E+00_JPRB, &
+ & 0.23732E+00_JPRB,0.23493E+00_JPRB,0.26904E+00_JPRB,0.31377E+00_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.51766E+00_JPRB,0.45307E+00_JPRB,0.39664E+00_JPRB,0.33683E+00_JPRB,0.28805E+00_JPRB, &
+ & 0.26198E+00_JPRB,0.27963E+00_JPRB,0.32252E+00_JPRB,0.37505E+00_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.51687E+00_JPRB,0.45253E+00_JPRB,0.39906E+00_JPRB,0.34713E+00_JPRB,0.30874E+00_JPRB, &
+ & 0.30122E+00_JPRB,0.34231E+00_JPRB,0.39543E+00_JPRB,0.45934E+00_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.58922E+00_JPRB,0.51562E+00_JPRB,0.44203E+00_JPRB,0.36905E+00_JPRB,0.30406E+00_JPRB, &
+ & 0.24465E+00_JPRB,0.20183E+00_JPRB,0.21102E+00_JPRB,0.20343E+00_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.59167E+00_JPRB,0.51780E+00_JPRB,0.44391E+00_JPRB,0.37709E+00_JPRB,0.30888E+00_JPRB, &
+ & 0.25236E+00_JPRB,0.22396E+00_JPRB,0.24700E+00_JPRB,0.27515E+00_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.59289E+00_JPRB,0.51887E+00_JPRB,0.44833E+00_JPRB,0.38190E+00_JPRB,0.31478E+00_JPRB, &
+ & 0.26966E+00_JPRB,0.25708E+00_JPRB,0.29183E+00_JPRB,0.34036E+00_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.59238E+00_JPRB,0.51846E+00_JPRB,0.45409E+00_JPRB,0.38554E+00_JPRB,0.32896E+00_JPRB, &
+ & 0.29236E+00_JPRB,0.30023E+00_JPRB,0.34558E+00_JPRB,0.40217E+00_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.59040E+00_JPRB,0.51681E+00_JPRB,0.45607E+00_JPRB,0.39582E+00_JPRB,0.34740E+00_JPRB, &
+ & 0.32863E+00_JPRB,0.36471E+00_JPRB,0.42134E+00_JPRB,0.48947E+00_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.67101E+00_JPRB,0.58718E+00_JPRB,0.50336E+00_JPRB,0.42031E+00_JPRB,0.34716E+00_JPRB, &
+ & 0.27980E+00_JPRB,0.22553E+00_JPRB,0.22887E+00_JPRB,0.21243E+00_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.67268E+00_JPRB,0.58864E+00_JPRB,0.50464E+00_JPRB,0.42832E+00_JPRB,0.35207E+00_JPRB, &
+ & 0.28740E+00_JPRB,0.24801E+00_JPRB,0.26765E+00_JPRB,0.28879E+00_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.67256E+00_JPRB,0.58859E+00_JPRB,0.50813E+00_JPRB,0.43372E+00_JPRB,0.35764E+00_JPRB, &
+ & 0.30459E+00_JPRB,0.28195E+00_JPRB,0.31558E+00_JPRB,0.36763E+00_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.67050E+00_JPRB,0.58682E+00_JPRB,0.51379E+00_JPRB,0.43676E+00_JPRB,0.37243E+00_JPRB, &
+ & 0.32590E+00_JPRB,0.32370E+00_JPRB,0.37117E+00_JPRB,0.43203E+00_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.66719E+00_JPRB,0.58400E+00_JPRB,0.51581E+00_JPRB,0.44632E+00_JPRB,0.38956E+00_JPRB, &
+ & 0.35928E+00_JPRB,0.38845E+00_JPRB,0.44876E+00_JPRB,0.52114E+00_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.10138E+00_JPRB,0.11271E+00_JPRB,0.22512E+00_JPRB,0.33705E+00_JPRB,0.44854E+00_JPRB, &
+ & 0.55854E+00_JPRB,0.66519E+00_JPRB,0.75942E+00_JPRB,0.85612E+00_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.10145E+00_JPRB,0.13913E+00_JPRB,0.27783E+00_JPRB,0.41606E+00_JPRB,0.55341E+00_JPRB, &
+ & 0.68935E+00_JPRB,0.82123E+00_JPRB,0.93793E+00_JPRB,0.10573E+01_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.10144E+00_JPRB,0.16758E+00_JPRB,0.33464E+00_JPRB,0.50118E+00_JPRB,0.66683E+00_JPRB, &
+ & 0.83041E+00_JPRB,0.98914E+00_JPRB,0.11301E+01_JPRB,0.12744E+01_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.10142E+00_JPRB,0.19759E+00_JPRB,0.39475E+00_JPRB,0.59125E+00_JPRB,0.78644E+00_JPRB, &
+ & 0.97913E+00_JPRB,0.11666E+01_JPRB,0.13327E+01_JPRB,0.15036E+01_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.10117E+00_JPRB,0.22893E+00_JPRB,0.45719E+00_JPRB,0.68491E+00_JPRB,0.91083E+00_JPRB, &
+ & 0.11348E+01_JPRB,0.13522E+01_JPRB,0.15448E+01_JPRB,0.17423E+01_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.12283E+00_JPRB,0.11939E+00_JPRB,0.23586E+00_JPRB,0.35344E+00_JPRB,0.46995E+00_JPRB, &
+ & 0.58562E+00_JPRB,0.69771E+00_JPRB,0.79719E+00_JPRB,0.91456E+00_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.12300E+00_JPRB,0.14726E+00_JPRB,0.29424E+00_JPRB,0.44061E+00_JPRB,0.58626E+00_JPRB, &
+ & 0.73031E+00_JPRB,0.87019E+00_JPRB,0.99468E+00_JPRB,0.11413E+01_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.12308E+00_JPRB,0.17880E+00_JPRB,0.35729E+00_JPRB,0.53471E+00_JPRB,0.71190E+00_JPRB, &
+ & 0.88678E+00_JPRB,0.10560E+01_JPRB,0.12083E+01_JPRB,0.13858E+01_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.12303E+00_JPRB,0.21231E+00_JPRB,0.42408E+00_JPRB,0.63552E+00_JPRB,0.84482E+00_JPRB, &
+ & 0.10530E+01_JPRB,0.12550E+01_JPRB,0.14355E+01_JPRB,0.16461E+01_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.12277E+00_JPRB,0.24738E+00_JPRB,0.49418E+00_JPRB,0.74021E+00_JPRB,0.98480E+00_JPRB, &
+ & 0.12263E+01_JPRB,0.14622E+01_JPRB,0.16712E+01_JPRB,0.19192E+01_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.14866E+00_JPRB,0.13122E+00_JPRB,0.23281E+00_JPRB,0.34894E+00_JPRB,0.46454E+00_JPRB, &
+ & 0.57840E+00_JPRB,0.68947E+00_JPRB,0.78868E+00_JPRB,0.91936E+00_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.14909E+00_JPRB,0.15020E+00_JPRB,0.29535E+00_JPRB,0.44246E+00_JPRB,0.58879E+00_JPRB, &
+ & 0.73298E+00_JPRB,0.87446E+00_JPRB,0.10004E+01_JPRB,0.11652E+01_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.14932E+00_JPRB,0.18193E+00_JPRB,0.36339E+00_JPRB,0.54464E+00_JPRB,0.72472E+00_JPRB, &
+ & 0.90302E+00_JPRB,0.10769E+01_JPRB,0.12326E+01_JPRB,0.14351E+01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.14936E+00_JPRB,0.21850E+00_JPRB,0.43638E+00_JPRB,0.65369E+00_JPRB,0.87034E+00_JPRB, &
+ & 0.10842E+01_JPRB,0.12925E+01_JPRB,0.14807E+01_JPRB,0.17238E+01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.14913E+00_JPRB,0.25689E+00_JPRB,0.51319E+00_JPRB,0.76884E+00_JPRB,0.10226E+01_JPRB, &
+ & 0.12750E+01_JPRB,0.15205E+01_JPRB,0.17418E+01_JPRB,0.20260E+01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.17957E+00_JPRB,0.15775E+00_JPRB,0.22276E+00_JPRB,0.33390E+00_JPRB,0.44423E+00_JPRB, &
+ & 0.55367E+00_JPRB,0.66019E+00_JPRB,0.75611E+00_JPRB,0.88680E+00_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.18040E+00_JPRB,0.16246E+00_JPRB,0.28812E+00_JPRB,0.43146E+00_JPRB,0.57438E+00_JPRB, &
+ & 0.71573E+00_JPRB,0.85374E+00_JPRB,0.97839E+00_JPRB,0.11468E+01_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.18097E+00_JPRB,0.18562E+00_JPRB,0.36044E+00_JPRB,0.53994E+00_JPRB,0.71844E+00_JPRB, &
+ & 0.89550E+00_JPRB,0.10683E+01_JPRB,0.12247E+01_JPRB,0.14347E+01_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.18121E+00_JPRB,0.21975E+00_JPRB,0.43861E+00_JPRB,0.65714E+00_JPRB,0.87443E+00_JPRB, &
+ & 0.10900E+01_JPRB,0.13008E+01_JPRB,0.14906E+01_JPRB,0.17458E+01_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.18106E+00_JPRB,0.26092E+00_JPRB,0.52133E+00_JPRB,0.78101E+00_JPRB,0.10395E+01_JPRB, &
+ & 0.12958E+01_JPRB,0.15460E+01_JPRB,0.17735E+01_JPRB,0.20757E+01_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.21697E+00_JPRB,0.19036E+00_JPRB,0.21215E+00_JPRB,0.31312E+00_JPRB,0.41669E+00_JPRB, &
+ & 0.51939E+00_JPRB,0.61996E+00_JPRB,0.71133E+00_JPRB,0.83486E+00_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.21794E+00_JPRB,0.19137E+00_JPRB,0.27611E+00_JPRB,0.41368E+00_JPRB,0.55071E+00_JPRB, &
+ & 0.68646E+00_JPRB,0.81902E+00_JPRB,0.94006E+00_JPRB,0.11028E+01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.21886E+00_JPRB,0.20114E+00_JPRB,0.35159E+00_JPRB,0.52668E+00_JPRB,0.70100E+00_JPRB, &
+ & 0.87403E+00_JPRB,0.10428E+01_JPRB,0.11973E+01_JPRB,0.14036E+01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.21947E+00_JPRB,0.22776E+00_JPRB,0.43385E+00_JPRB,0.64994E+00_JPRB,0.86545E+00_JPRB, &
+ & 0.10790E+01_JPRB,0.12882E+01_JPRB,0.14795E+01_JPRB,0.17328E+01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.21950E+00_JPRB,0.26410E+00_JPRB,0.52266E+00_JPRB,0.78311E+00_JPRB,0.10422E+01_JPRB, &
+ & 0.12993E+01_JPRB,0.15508E+01_JPRB,0.17813E+01_JPRB,0.20867E+01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.26192E+00_JPRB,0.22964E+00_JPRB,0.21396E+00_JPRB,0.28442E+00_JPRB,0.37859E+00_JPRB, &
+ & 0.47209E+00_JPRB,0.56361E+00_JPRB,0.64772E+00_JPRB,0.75904E+00_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.26327E+00_JPRB,0.23094E+00_JPRB,0.26427E+00_JPRB,0.38535E+00_JPRB,0.51302E+00_JPRB, &
+ & 0.63961E+00_JPRB,0.76380E+00_JPRB,0.87816E+00_JPRB,0.10282E+01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.26410E+00_JPRB,0.23177E+00_JPRB,0.33446E+00_JPRB,0.50065E+00_JPRB,0.66671E+00_JPRB, &
+ & 0.83097E+00_JPRB,0.99257E+00_JPRB,0.11416E+01_JPRB,0.13361E+01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.26501E+00_JPRB,0.24670E+00_JPRB,0.42047E+00_JPRB,0.62999E+00_JPRB,0.83846E+00_JPRB, &
+ & 0.10456E+01_JPRB,0.12484E+01_JPRB,0.14350E+01_JPRB,0.16802E+01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.26533E+00_JPRB,0.27595E+00_JPRB,0.51477E+00_JPRB,0.77155E+00_JPRB,0.10272E+01_JPRB, &
+ & 0.12802E+01_JPRB,0.15288E+01_JPRB,0.17573E+01_JPRB,0.20585E+01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.31548E+00_JPRB,0.27644E+00_JPRB,0.23749E+00_JPRB,0.26350E+00_JPRB,0.33563E+00_JPRB, &
+ & 0.41860E+00_JPRB,0.50000E+00_JPRB,0.57557E+00_JPRB,0.67307E+00_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.31747E+00_JPRB,0.27830E+00_JPRB,0.26813E+00_JPRB,0.35238E+00_JPRB,0.46780E+00_JPRB, &
+ & 0.58337E+00_JPRB,0.69695E+00_JPRB,0.80281E+00_JPRB,0.93825E+00_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.31845E+00_JPRB,0.27929E+00_JPRB,0.32577E+00_JPRB,0.46831E+00_JPRB,0.62377E+00_JPRB, &
+ & 0.77768E+00_JPRB,0.92868E+00_JPRB,0.10691E+01_JPRB,0.12510E+01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.31933E+00_JPRB,0.28093E+00_JPRB,0.40219E+00_JPRB,0.60218E+00_JPRB,0.80124E+00_JPRB, &
+ & 0.99953E+00_JPRB,0.11938E+01_JPRB,0.13738E+01_JPRB,0.16072E+01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.31962E+00_JPRB,0.30041E+00_JPRB,0.50060E+00_JPRB,0.75020E+00_JPRB,0.99895E+00_JPRB, &
+ & 0.12457E+01_JPRB,0.14877E+01_JPRB,0.17119E+01_JPRB,0.20030E+01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.37865E+00_JPRB,0.33167E+00_JPRB,0.28471E+00_JPRB,0.26304E+00_JPRB,0.29883E+00_JPRB, &
+ & 0.36478E+00_JPRB,0.43575E+00_JPRB,0.50177E+00_JPRB,0.58698E+00_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.38151E+00_JPRB,0.33434E+00_JPRB,0.29226E+00_JPRB,0.33286E+00_JPRB,0.42010E+00_JPRB, &
+ & 0.52397E+00_JPRB,0.62612E+00_JPRB,0.72153E+00_JPRB,0.84257E+00_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.38305E+00_JPRB,0.33575E+00_JPRB,0.33335E+00_JPRB,0.43312E+00_JPRB,0.57580E+00_JPRB, &
+ & 0.71815E+00_JPRB,0.85781E+00_JPRB,0.98826E+00_JPRB,0.11549E+01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.38418E+00_JPRB,0.33683E+00_JPRB,0.39821E+00_JPRB,0.56836E+00_JPRB,0.75670E+00_JPRB, &
+ & 0.94382E+00_JPRB,0.11276E+01_JPRB,0.12990E+01_JPRB,0.15179E+01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.38435E+00_JPRB,0.34032E+00_JPRB,0.48169E+00_JPRB,0.72105E+00_JPRB,0.95979E+00_JPRB, &
+ & 0.11976E+01_JPRB,0.14311E+01_JPRB,0.16484E+01_JPRB,0.19256E+01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.45391E+00_JPRB,0.39745E+00_JPRB,0.34100E+00_JPRB,0.28597E+00_JPRB,0.28236E+00_JPRB, &
+ & 0.32683E+00_JPRB,0.39003E+00_JPRB,0.44780E+00_JPRB,0.52646E+00_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.45720E+00_JPRB,0.40042E+00_JPRB,0.34369E+00_JPRB,0.33249E+00_JPRB,0.37993E+00_JPRB, &
+ & 0.46180E+00_JPRB,0.55195E+00_JPRB,0.63669E+00_JPRB,0.74252E+00_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.45930E+00_JPRB,0.40241E+00_JPRB,0.35995E+00_JPRB,0.41477E+00_JPRB,0.52224E+00_JPRB, &
+ & 0.65162E+00_JPRB,0.77908E+00_JPRB,0.89846E+00_JPRB,0.10481E+01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.46056E+00_JPRB,0.40360E+00_JPRB,0.40974E+00_JPRB,0.52851E+00_JPRB,0.70308E+00_JPRB, &
+ & 0.87703E+00_JPRB,0.10485E+01_JPRB,0.12091E+01_JPRB,0.14102E+01_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.46097E+00_JPRB,0.40408E+00_JPRB,0.48083E+00_JPRB,0.68278E+00_JPRB,0.90959E+00_JPRB, &
+ & 0.11347E+01_JPRB,0.13562E+01_JPRB,0.15644E+01_JPRB,0.18239E+01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.54348E+00_JPRB,0.47578E+00_JPRB,0.40808E+00_JPRB,0.34039E+00_JPRB,0.29202E+00_JPRB, &
+ & 0.31463E+00_JPRB,0.37530E+00_JPRB,0.43003E+00_JPRB,0.50713E+00_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.54726E+00_JPRB,0.47923E+00_JPRB,0.41116E+00_JPRB,0.35738E+00_JPRB,0.36873E+00_JPRB, &
+ & 0.42815E+00_JPRB,0.51125E+00_JPRB,0.58827E+00_JPRB,0.68902E+00_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.54904E+00_JPRB,0.48087E+00_JPRB,0.41270E+00_JPRB,0.42187E+00_JPRB,0.48592E+00_JPRB, &
+ & 0.59834E+00_JPRB,0.71541E+00_JPRB,0.82550E+00_JPRB,0.96166E+00_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.55066E+00_JPRB,0.48237E+00_JPRB,0.44342E+00_JPRB,0.51829E+00_JPRB,0.65846E+00_JPRB, &
+ & 0.82163E+00_JPRB,0.98259E+00_JPRB,0.11344E+01_JPRB,0.13209E+01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.55078E+00_JPRB,0.48256E+00_JPRB,0.50243E+00_JPRB,0.65112E+00_JPRB,0.86662E+00_JPRB, &
+ & 0.10813E+01_JPRB,0.12932E+01_JPRB,0.14933E+01_JPRB,0.17377E+01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.65114E+00_JPRB,0.56997E+00_JPRB,0.48880E+00_JPRB,0.40765E+00_JPRB,0.34114E+00_JPRB, &
+ & 0.35299E+00_JPRB,0.42114E+00_JPRB,0.48311E+00_JPRB,0.56879E+00_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.65409E+00_JPRB,0.57269E+00_JPRB,0.49126E+00_JPRB,0.41893E+00_JPRB,0.41551E+00_JPRB, &
+ & 0.46863E+00_JPRB,0.55986E+00_JPRB,0.64427E+00_JPRB,0.75415E+00_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.65488E+00_JPRB,0.57345E+00_JPRB,0.49197E+00_JPRB,0.47947E+00_JPRB,0.53169E+00_JPRB, &
+ & 0.64034E+00_JPRB,0.76581E+00_JPRB,0.88450E+00_JPRB,0.10287E+01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.65537E+00_JPRB,0.57398E+00_JPRB,0.51344E+00_JPRB,0.57405E+00_JPRB,0.70306E+00_JPRB, &
+ & 0.87735E+00_JPRB,0.10495E+01_JPRB,0.12127E+01_JPRB,0.14094E+01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.65395E+00_JPRB,0.57279E+00_JPRB,0.56858E+00_JPRB,0.69997E+00_JPRB,0.92273E+00_JPRB, &
+ & 0.11516E+01_JPRB,0.13780E+01_JPRB,0.15930E+01_JPRB,0.18499E+01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.77619E+00_JPRB,0.67938E+00_JPRB,0.58258E+00_JPRB,0.48578E+00_JPRB,0.39872E+00_JPRB, &
+ & 0.39471E+00_JPRB,0.47009E+00_JPRB,0.53992E+00_JPRB,0.63430E+00_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.77753E+00_JPRB,0.68052E+00_JPRB,0.58367E+00_JPRB,0.49090E+00_JPRB,0.46899E+00_JPRB, &
+ & 0.51194E+00_JPRB,0.61162E+00_JPRB,0.70447E+00_JPRB,0.82357E+00_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.77638E+00_JPRB,0.67972E+00_JPRB,0.58318E+00_JPRB,0.54530E+00_JPRB,0.58387E+00_JPRB, &
+ & 0.68245E+00_JPRB,0.81638E+00_JPRB,0.94341E+00_JPRB,0.10965E+01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.77440E+00_JPRB,0.67810E+00_JPRB,0.59462E+00_JPRB,0.63695E+00_JPRB,0.74739E+00_JPRB, &
+ & 0.93197E+00_JPRB,0.11153E+01_JPRB,0.12903E+01_JPRB,0.14970E+01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.77021E+00_JPRB,0.67464E+00_JPRB,0.64357E+00_JPRB,0.75637E+00_JPRB,0.97798E+00_JPRB, &
+ & 0.12207E+01_JPRB,0.14609E+01_JPRB,0.16904E+01_JPRB,0.19598E+01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.91895E+00_JPRB,0.80429E+00_JPRB,0.68964E+00_JPRB,0.57498E+00_JPRB,0.46528E+00_JPRB, &
+ & 0.44199E+00_JPRB,0.52028E+00_JPRB,0.59834E+00_JPRB,0.70141E+00_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.91759E+00_JPRB,0.80320E+00_JPRB,0.68881E+00_JPRB,0.57463E+00_JPRB,0.52956E+00_JPRB, &
+ & 0.55768E+00_JPRB,0.66492E+00_JPRB,0.76644E+00_JPRB,0.89471E+00_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.91361E+00_JPRB,0.79979E+00_JPRB,0.68598E+00_JPRB,0.61940E+00_JPRB,0.64101E+00_JPRB, &
+ & 0.72712E+00_JPRB,0.86969E+00_JPRB,0.10053E+01_JPRB,0.11679E+01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.90733E+00_JPRB,0.79439E+00_JPRB,0.68655E+00_JPRB,0.70603E+00_JPRB,0.79560E+00_JPRB, &
+ & 0.98356E+00_JPRB,0.11773E+01_JPRB,0.13631E+01_JPRB,0.15788E+01_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.89862E+00_JPRB,0.78697E+00_JPRB,0.72670E+00_JPRB,0.82187E+00_JPRB,0.10292E+01_JPRB, &
+ & 0.12848E+01_JPRB,0.15381E+01_JPRB,0.17818E+01_JPRB,0.20623E+01_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.80849E-06_JPRB,0.81362E-06_JPRB,0.81391E-06_JPRB,0.81832E-06_JPRB,0.81000E-06_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.62593E-06_JPRB,0.63090E-06_JPRB,0.63158E-06_JPRB,0.62821E-06_JPRB,0.62502E-06_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.47825E-06_JPRB,0.47852E-06_JPRB,0.47713E-06_JPRB,0.47688E-06_JPRB,0.47989E-06_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.36039E-06_JPRB,0.35905E-06_JPRB,0.36064E-06_JPRB,0.36298E-06_JPRB,0.36860E-06_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.27679E-06_JPRB,0.27608E-06_JPRB,0.27742E-06_JPRB,0.28112E-06_JPRB,0.28759E-06_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.21771E-06_JPRB,0.21826E-06_JPRB,0.22019E-06_JPRB,0.22429E-06_JPRB,0.22996E-06_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.17334E-06_JPRB,0.17441E-06_JPRB,0.17681E-06_JPRB,0.18055E-06_JPRB,0.18537E-06_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.13974E-06_JPRB,0.14076E-06_JPRB,0.14326E-06_JPRB,0.14694E-06_JPRB,0.15070E-06_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.11289E-06_JPRB,0.11394E-06_JPRB,0.11631E-06_JPRB,0.11963E-06_JPRB,0.12284E-06_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.90574E-07_JPRB,0.91914E-07_JPRB,0.94046E-07_JPRB,0.96998E-07_JPRB,0.99841E-07_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.72483E-07_JPRB,0.74069E-07_JPRB,0.76186E-07_JPRB,0.78482E-07_JPRB,0.80964E-07_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.57463E-07_JPRB,0.59130E-07_JPRB,0.60802E-07_JPRB,0.62903E-07_JPRB,0.65218E-07_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.45767E-07_JPRB,0.47184E-07_JPRB,0.48696E-07_JPRB,0.50494E-07_JPRB,0.52527E-07_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.36636E-07_JPRB,0.37794E-07_JPRB,0.39217E-07_JPRB,0.40768E-07_JPRB,0.42465E-07_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.29173E-07_JPRB,0.30183E-07_JPRB,0.31469E-07_JPRB,0.32834E-07_JPRB,0.34213E-07_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.23225E-07_JPRB,0.24137E-07_JPRB,0.25167E-07_JPRB,0.26378E-07_JPRB,0.27534E-07_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.18675E-07_JPRB,0.19472E-07_JPRB,0.20340E-07_JPRB,0.21340E-07_JPRB,0.22286E-07_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.15020E-07_JPRB,0.15690E-07_JPRB,0.16468E-07_JPRB,0.17258E-07_JPRB,0.18060E-07_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.12149E-07_JPRB,0.12728E-07_JPRB,0.13375E-07_JPRB,0.14035E-07_JPRB,0.14711E-07_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.98596E-08_JPRB,0.10344E-07_JPRB,0.10879E-07_JPRB,0.11427E-07_JPRB,0.12003E-07_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.80127E-08_JPRB,0.84199E-08_JPRB,0.88610E-08_JPRB,0.93188E-08_JPRB,0.98102E-08_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.65473E-08_JPRB,0.68850E-08_JPRB,0.72470E-08_JPRB,0.76379E-08_JPRB,0.80329E-08_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.53107E-08_JPRB,0.55930E-08_JPRB,0.58984E-08_JPRB,0.62161E-08_JPRB,0.65511E-08_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.42749E-08_JPRB,0.45072E-08_JPRB,0.47592E-08_JPRB,0.50244E-08_JPRB,0.53034E-08_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.34593E-08_JPRB,0.36479E-08_JPRB,0.38557E-08_JPRB,0.40714E-08_JPRB,0.43031E-08_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.27981E-08_JPRB,0.29525E-08_JPRB,0.31212E-08_JPRB,0.32984E-08_JPRB,0.34890E-08_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.22616E-08_JPRB,0.23879E-08_JPRB,0.25266E-08_JPRB,0.26716E-08_JPRB,0.28295E-08_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.18232E-08_JPRB,0.19245E-08_JPRB,0.20362E-08_JPRB,0.21554E-08_JPRB,0.22831E-08_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.14679E-08_JPRB,0.15511E-08_JPRB,0.16402E-08_JPRB,0.17376E-08_JPRB,0.18413E-08_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.11828E-08_JPRB,0.12488E-08_JPRB,0.13200E-08_JPRB,0.14008E-08_JPRB,0.14841E-08_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.94970E-09_JPRB,0.10028E-08_JPRB,0.10610E-08_JPRB,0.11254E-08_JPRB,0.11933E-08_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.76210E-09_JPRB,0.80401E-09_JPRB,0.85098E-09_JPRB,0.90203E-09_JPRB,0.95794E-09_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.61242E-09_JPRB,0.64471E-09_JPRB,0.68205E-09_JPRB,0.72336E-09_JPRB,0.76846E-09_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.49214E-09_JPRB,0.51642E-09_JPRB,0.54633E-09_JPRB,0.57916E-09_JPRB,0.61506E-09_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.39552E-09_JPRB,0.41343E-09_JPRB,0.43658E-09_JPRB,0.46266E-09_JPRB,0.49121E-09_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.31773E-09_JPRB,0.33161E-09_JPRB,0.34878E-09_JPRB,0.36970E-09_JPRB,0.39231E-09_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.25526E-09_JPRB,0.26613E-09_JPRB,0.27906E-09_JPRB,0.29510E-09_JPRB,0.31346E-09_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.20571E-09_JPRB,0.21419E-09_JPRB,0.22379E-09_JPRB,0.23622E-09_JPRB,0.25076E-09_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.16573E-09_JPRB,0.17251E-09_JPRB,0.18002E-09_JPRB,0.18925E-09_JPRB,0.20074E-09_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.13312E-09_JPRB,0.13888E-09_JPRB,0.14480E-09_JPRB,0.15170E-09_JPRB,0.16067E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.10717E-09_JPRB,0.11200E-09_JPRB,0.11653E-09_JPRB,0.12187E-09_JPRB,0.12864E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.85395E-10_JPRB,0.90190E-10_JPRB,0.93978E-10_JPRB,0.98115E-10_JPRB,0.10324E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.67933E-10_JPRB,0.72682E-10_JPRB,0.75857E-10_JPRB,0.79079E-10_JPRB,0.82942E-10_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.53572E-10_JPRB,0.58095E-10_JPRB,0.61231E-10_JPRB,0.63738E-10_JPRB,0.66738E-10_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.41729E-10_JPRB,0.46380E-10_JPRB,0.49357E-10_JPRB,0.51409E-10_JPRB,0.53743E-10_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.32319E-10_JPRB,0.36737E-10_JPRB,0.39572E-10_JPRB,0.41487E-10_JPRB,0.43327E-10_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.25820E-10_JPRB,0.29541E-10_JPRB,0.32107E-10_JPRB,0.33762E-10_JPRB,0.35250E-10_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.93809E-05_JPRB,0.10536E-04_JPRB,0.11777E-04_JPRB,0.13098E-04_JPRB,0.14486E-04_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.77050E-05_JPRB,0.86520E-05_JPRB,0.96745E-05_JPRB,0.10759E-04_JPRB,0.11891E-04_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.63112E-05_JPRB,0.70914E-05_JPRB,0.79320E-05_JPRB,0.88179E-05_JPRB,0.97344E-05_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.51672E-05_JPRB,0.58172E-05_JPRB,0.64961E-05_JPRB,0.72133E-05_JPRB,0.79595E-05_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.42470E-05_JPRB,0.47817E-05_JPRB,0.53396E-05_JPRB,0.59229E-05_JPRB,0.65385E-05_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.35105E-05_JPRB,0.39513E-05_JPRB,0.44042E-05_JPRB,0.48865E-05_JPRB,0.53983E-05_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.29057E-05_JPRB,0.32680E-05_JPRB,0.36409E-05_JPRB,0.40419E-05_JPRB,0.44646E-05_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.24132E-05_JPRB,0.27111E-05_JPRB,0.30192E-05_JPRB,0.33498E-05_JPRB,0.36985E-05_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.20041E-05_JPRB,0.22484E-05_JPRB,0.25052E-05_JPRB,0.27770E-05_JPRB,0.30661E-05_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.16762E-05_JPRB,0.18775E-05_JPRB,0.20900E-05_JPRB,0.23158E-05_JPRB,0.25543E-05_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.14013E-05_JPRB,0.15665E-05_JPRB,0.17433E-05_JPRB,0.19308E-05_JPRB,0.21290E-05_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.11680E-05_JPRB,0.13039E-05_JPRB,0.14515E-05_JPRB,0.16085E-05_JPRB,0.17733E-05_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.97491E-06_JPRB,0.10886E-05_JPRB,0.12114E-05_JPRB,0.13428E-05_JPRB,0.14806E-05_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.81608E-06_JPRB,0.91198E-06_JPRB,0.10148E-05_JPRB,0.11244E-05_JPRB,0.12392E-05_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.68407E-06_JPRB,0.76432E-06_JPRB,0.85048E-06_JPRB,0.94210E-06_JPRB,0.10393E-05_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.57340E-06_JPRB,0.64071E-06_JPRB,0.71311E-06_JPRB,0.78988E-06_JPRB,0.87304E-06_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.48234E-06_JPRB,0.53886E-06_JPRB,0.59992E-06_JPRB,0.66557E-06_JPRB,0.73565E-06_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.40628E-06_JPRB,0.45384E-06_JPRB,0.50638E-06_JPRB,0.56175E-06_JPRB,0.62086E-06_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.34276E-06_JPRB,0.38409E-06_JPRB,0.42817E-06_JPRB,0.47551E-06_JPRB,0.52508E-06_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.29024E-06_JPRB,0.32548E-06_JPRB,0.36291E-06_JPRB,0.40263E-06_JPRB,0.44423E-06_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.24623E-06_JPRB,0.27596E-06_JPRB,0.30748E-06_JPRB,0.34104E-06_JPRB,0.37571E-06_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.20814E-06_JPRB,0.23318E-06_JPRB,0.25975E-06_JPRB,0.28746E-06_JPRB,0.31674E-06_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.17399E-06_JPRB,0.19476E-06_JPRB,0.21698E-06_JPRB,0.24021E-06_JPRB,0.26463E-06_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.14352E-06_JPRB,0.16079E-06_JPRB,0.17920E-06_JPRB,0.19838E-06_JPRB,0.21852E-06_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.11644E-06_JPRB,0.13061E-06_JPRB,0.14569E-06_JPRB,0.16148E-06_JPRB,0.17794E-06_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.94327E-07_JPRB,0.10597E-06_JPRB,0.11827E-06_JPRB,0.13121E-06_JPRB,0.14471E-06_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.76386E-07_JPRB,0.85932E-07_JPRB,0.96004E-07_JPRB,0.10675E-06_JPRB,0.11785E-06_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.61093E-07_JPRB,0.68856E-07_JPRB,0.77088E-07_JPRB,0.85831E-07_JPRB,0.94878E-07_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.48781E-07_JPRB,0.55058E-07_JPRB,0.61725E-07_JPRB,0.68852E-07_JPRB,0.76234E-07_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.38909E-07_JPRB,0.43987E-07_JPRB,0.49391E-07_JPRB,0.55161E-07_JPRB,0.61197E-07_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.30779E-07_JPRB,0.34866E-07_JPRB,0.39222E-07_JPRB,0.43870E-07_JPRB,0.48785E-07_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.24249E-07_JPRB,0.27514E-07_JPRB,0.31014E-07_JPRB,0.34774E-07_JPRB,0.38772E-07_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.19076E-07_JPRB,0.21693E-07_JPRB,0.24514E-07_JPRB,0.27522E-07_JPRB,0.30756E-07_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.14949E-07_JPRB,0.17046E-07_JPRB,0.19303E-07_JPRB,0.21721E-07_JPRB,0.24320E-07_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.11627E-07_JPRB,0.13294E-07_JPRB,0.15102E-07_JPRB,0.17040E-07_JPRB,0.19115E-07_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.90208E-08_JPRB,0.10359E-07_JPRB,0.11803E-07_JPRB,0.13349E-07_JPRB,0.15003E-07_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.69979E-08_JPRB,0.80625E-08_JPRB,0.92075E-08_JPRB,0.10445E-07_JPRB,0.11768E-07_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.54507E-08_JPRB,0.62777E-08_JPRB,0.72004E-08_JPRB,0.81899E-08_JPRB,0.92488E-08_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.42541E-08_JPRB,0.48933E-08_JPRB,0.56304E-08_JPRB,0.64214E-08_JPRB,0.72725E-08_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.33161E-08_JPRB,0.38121E-08_JPRB,0.43976E-08_JPRB,0.50301E-08_JPRB,0.57140E-08_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.25817E-08_JPRB,0.29691E-08_JPRB,0.34291E-08_JPRB,0.39368E-08_JPRB,0.44836E-08_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.20203E-08_JPRB,0.23228E-08_JPRB,0.26823E-08_JPRB,0.30900E-08_JPRB,0.35285E-08_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.15833E-08_JPRB,0.18196E-08_JPRB,0.21023E-08_JPRB,0.24276E-08_JPRB,0.27787E-08_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.12403E-08_JPRB,0.14250E-08_JPRB,0.16461E-08_JPRB,0.19045E-08_JPRB,0.21855E-08_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.97249E-09_JPRB,0.11164E-08_JPRB,0.12881E-08_JPRB,0.14923E-08_JPRB,0.17175E-08_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.76431E-09_JPRB,0.87699E-09_JPRB,0.10108E-08_JPRB,0.11709E-08_JPRB,0.13516E-08_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.61553E-09_JPRB,0.70649E-09_JPRB,0.81463E-09_JPRB,0.94315E-09_JPRB,0.10907E-08_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.37708E-04_JPRB,0.43942E-04_JPRB,0.50586E-04_JPRB,0.57656E-04_JPRB,0.65139E-04_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.31694E-04_JPRB,0.36862E-04_JPRB,0.42350E-04_JPRB,0.48197E-04_JPRB,0.54341E-04_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.26564E-04_JPRB,0.30824E-04_JPRB,0.35372E-04_JPRB,0.40180E-04_JPRB,0.45231E-04_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.22232E-04_JPRB,0.25740E-04_JPRB,0.29512E-04_JPRB,0.33447E-04_JPRB,0.37588E-04_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.18578E-04_JPRB,0.21467E-04_JPRB,0.24582E-04_JPRB,0.27832E-04_JPRB,0.31221E-04_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.15530E-04_JPRB,0.17922E-04_JPRB,0.20498E-04_JPRB,0.23170E-04_JPRB,0.25973E-04_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.12972E-04_JPRB,0.14952E-04_JPRB,0.17059E-04_JPRB,0.19270E-04_JPRB,0.21580E-04_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.10858E-04_JPRB,0.12498E-04_JPRB,0.14228E-04_JPRB,0.16061E-04_JPRB,0.17958E-04_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.90819E-05_JPRB,0.10446E-04_JPRB,0.11880E-04_JPRB,0.13394E-04_JPRB,0.14951E-04_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.76648E-05_JPRB,0.87979E-05_JPRB,0.99931E-05_JPRB,0.11255E-04_JPRB,0.12542E-04_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.64634E-05_JPRB,0.74140E-05_JPRB,0.84086E-05_JPRB,0.94546E-05_JPRB,0.10527E-04_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.54523E-05_JPRB,0.62464E-05_JPRB,0.70809E-05_JPRB,0.79508E-05_JPRB,0.88446E-05_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.46110E-05_JPRB,0.52716E-05_JPRB,0.59693E-05_JPRB,0.66904E-05_JPRB,0.74322E-05_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.39134E-05_JPRB,0.44620E-05_JPRB,0.50425E-05_JPRB,0.56439E-05_JPRB,0.62577E-05_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.33208E-05_JPRB,0.37777E-05_JPRB,0.42629E-05_JPRB,0.47607E-05_JPRB,0.52714E-05_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.28177E-05_JPRB,0.32008E-05_JPRB,0.36031E-05_JPRB,0.40187E-05_JPRB,0.44358E-05_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.23932E-05_JPRB,0.27158E-05_JPRB,0.30516E-05_JPRB,0.33945E-05_JPRB,0.37416E-05_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.20340E-05_JPRB,0.23035E-05_JPRB,0.25827E-05_JPRB,0.28672E-05_JPRB,0.31559E-05_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.17308E-05_JPRB,0.19547E-05_JPRB,0.21869E-05_JPRB,0.24243E-05_JPRB,0.26649E-05_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.14734E-05_JPRB,0.16593E-05_JPRB,0.18536E-05_JPRB,0.20518E-05_JPRB,0.22514E-05_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.12538E-05_JPRB,0.14097E-05_JPRB,0.15718E-05_JPRB,0.17369E-05_JPRB,0.19013E-05_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.10626E-05_JPRB,0.11932E-05_JPRB,0.13290E-05_JPRB,0.14662E-05_JPRB,0.16025E-05_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.88990E-06_JPRB,0.99878E-06_JPRB,0.11122E-05_JPRB,0.12266E-05_JPRB,0.13395E-05_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.73535E-06_JPRB,0.82690E-06_JPRB,0.92099E-06_JPRB,0.10159E-05_JPRB,0.11099E-05_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.59728E-06_JPRB,0.67301E-06_JPRB,0.75127E-06_JPRB,0.83021E-06_JPRB,0.90845E-06_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.48484E-06_JPRB,0.54737E-06_JPRB,0.61229E-06_JPRB,0.67762E-06_JPRB,0.74258E-06_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.39347E-06_JPRB,0.44485E-06_JPRB,0.49886E-06_JPRB,0.55290E-06_JPRB,0.60674E-06_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.31488E-06_JPRB,0.35703E-06_JPRB,0.40148E-06_JPRB,0.44640E-06_JPRB,0.49091E-06_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.25130E-06_JPRB,0.28561E-06_JPRB,0.32224E-06_JPRB,0.35953E-06_JPRB,0.39618E-06_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.20030E-06_JPRB,0.22840E-06_JPRB,0.25834E-06_JPRB,0.28930E-06_JPRB,0.31965E-06_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.15807E-06_JPRB,0.18109E-06_JPRB,0.20542E-06_JPRB,0.23094E-06_JPRB,0.25635E-06_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.12418E-06_JPRB,0.14282E-06_JPRB,0.16261E-06_JPRB,0.18364E-06_JPRB,0.20465E-06_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.97383E-07_JPRB,0.11245E-06_JPRB,0.12855E-06_JPRB,0.14572E-06_JPRB,0.16307E-06_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.76015E-07_JPRB,0.88067E-07_JPRB,0.10120E-06_JPRB,0.11510E-06_JPRB,0.12935E-06_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.58813E-07_JPRB,0.68493E-07_JPRB,0.79102E-07_JPRB,0.90273E-07_JPRB,0.10200E-06_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.45440E-07_JPRB,0.53144E-07_JPRB,0.61597E-07_JPRB,0.70639E-07_JPRB,0.80255E-07_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.35015E-07_JPRB,0.41136E-07_JPRB,0.47869E-07_JPRB,0.55216E-07_JPRB,0.62994E-07_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.27056E-07_JPRB,0.31910E-07_JPRB,0.37267E-07_JPRB,0.43210E-07_JPRB,0.49522E-07_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.20908E-07_JPRB,0.24756E-07_JPRB,0.29044E-07_JPRB,0.33791E-07_JPRB,0.38904E-07_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.16131E-07_JPRB,0.19181E-07_JPRB,0.22589E-07_JPRB,0.26378E-07_JPRB,0.30504E-07_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.12418E-07_JPRB,0.14835E-07_JPRB,0.17537E-07_JPRB,0.20547E-07_JPRB,0.23860E-07_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.95994E-08_JPRB,0.11514E-07_JPRB,0.13662E-07_JPRB,0.16065E-07_JPRB,0.18717E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,55, 3) = (/ &
+ & 0.74239E-08_JPRB,0.89453E-08_JPRB,0.10656E-07_JPRB,0.12569E-07_JPRB,0.14693E-07_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.57300E-08_JPRB,0.69441E-08_JPRB,0.83030E-08_JPRB,0.98193E-08_JPRB,0.11523E-07_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.44152E-08_JPRB,0.53811E-08_JPRB,0.64581E-08_JPRB,0.76610E-08_JPRB,0.90201E-08_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.34072E-08_JPRB,0.41708E-08_JPRB,0.50297E-08_JPRB,0.59876E-08_JPRB,0.70684E-08_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.27302E-08_JPRB,0.33492E-08_JPRB,0.40481E-08_JPRB,0.48266E-08_JPRB,0.57046E-08_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.12015E-03_JPRB,0.13920E-03_JPRB,0.15937E-03_JPRB,0.18001E-03_JPRB,0.19929E-03_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.10256E-03_JPRB,0.11883E-03_JPRB,0.13587E-03_JPRB,0.15259E-03_JPRB,0.16812E-03_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.87203E-04_JPRB,0.10099E-03_JPRB,0.11498E-03_JPRB,0.12847E-03_JPRB,0.14114E-03_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.73859E-04_JPRB,0.85304E-04_JPRB,0.96816E-04_JPRB,0.10774E-03_JPRB,0.11805E-03_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.62334E-04_JPRB,0.71786E-04_JPRB,0.81225E-04_JPRB,0.90091E-04_JPRB,0.98454E-04_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.52581E-04_JPRB,0.60344E-04_JPRB,0.68018E-04_JPRB,0.75237E-04_JPRB,0.81903E-04_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.44197E-04_JPRB,0.50573E-04_JPRB,0.56840E-04_JPRB,0.62656E-04_JPRB,0.67968E-04_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.37151E-04_JPRB,0.42384E-04_JPRB,0.47494E-04_JPRB,0.52193E-04_JPRB,0.56467E-04_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.31193E-04_JPRB,0.35480E-04_JPRB,0.39600E-04_JPRB,0.43427E-04_JPRB,0.46870E-04_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.26374E-04_JPRB,0.29925E-04_JPRB,0.33224E-04_JPRB,0.36261E-04_JPRB,0.39040E-04_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.22315E-04_JPRB,0.25198E-04_JPRB,0.27833E-04_JPRB,0.30290E-04_JPRB,0.32509E-04_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.18883E-04_JPRB,0.21184E-04_JPRB,0.23291E-04_JPRB,0.25268E-04_JPRB,0.27046E-04_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.15977E-04_JPRB,0.17808E-04_JPRB,0.19529E-04_JPRB,0.21106E-04_JPRB,0.22533E-04_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.13524E-04_JPRB,0.14996E-04_JPRB,0.16391E-04_JPRB,0.17658E-04_JPRB,0.18796E-04_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.11433E-04_JPRB,0.12631E-04_JPRB,0.13757E-04_JPRB,0.14769E-04_JPRB,0.15677E-04_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.96558E-05_JPRB,0.10640E-04_JPRB,0.11537E-04_JPRB,0.12357E-04_JPRB,0.13086E-04_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.81632E-05_JPRB,0.89560E-05_JPRB,0.96801E-05_JPRB,0.10339E-04_JPRB,0.10919E-04_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.68972E-05_JPRB,0.75321E-05_JPRB,0.81189E-05_JPRB,0.86418E-05_JPRB,0.91120E-05_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.58255E-05_JPRB,0.63427E-05_JPRB,0.68115E-05_JPRB,0.72291E-05_JPRB,0.76088E-05_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.49235E-05_JPRB,0.53404E-05_JPRB,0.57128E-05_JPRB,0.60450E-05_JPRB,0.63540E-05_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.41602E-05_JPRB,0.44904E-05_JPRB,0.47873E-05_JPRB,0.50567E-05_JPRB,0.53085E-05_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.34993E-05_JPRB,0.37640E-05_JPRB,0.40033E-05_JPRB,0.42217E-05_JPRB,0.44321E-05_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.29168E-05_JPRB,0.31331E-05_JPRB,0.33264E-05_JPRB,0.35072E-05_JPRB,0.36808E-05_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.24105E-05_JPRB,0.25863E-05_JPRB,0.27459E-05_JPRB,0.28969E-05_JPRB,0.30433E-05_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.19699E-05_JPRB,0.21167E-05_JPRB,0.22499E-05_JPRB,0.23751E-05_JPRB,0.24984E-05_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.16085E-05_JPRB,0.17316E-05_JPRB,0.18431E-05_JPRB,0.19482E-05_JPRB,0.20520E-05_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.13140E-05_JPRB,0.14172E-05_JPRB,0.15102E-05_JPRB,0.15989E-05_JPRB,0.16862E-05_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.10643E-05_JPRB,0.11518E-05_JPRB,0.12300E-05_JPRB,0.13052E-05_JPRB,0.13789E-05_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.86103E-06_JPRB,0.93494E-06_JPRB,0.10013E-05_JPRB,0.10648E-05_JPRB,0.11275E-05_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.69566E-06_JPRB,0.75803E-06_JPRB,0.81468E-06_JPRB,0.86817E-06_JPRB,0.92113E-06_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.55856E-06_JPRB,0.61135E-06_JPRB,0.65992E-06_JPRB,0.70501E-06_JPRB,0.74915E-06_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.44644E-06_JPRB,0.49113E-06_JPRB,0.53284E-06_JPRB,0.57066E-06_JPRB,0.60776E-06_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.35638E-06_JPRB,0.39386E-06_JPRB,0.42947E-06_JPRB,0.46192E-06_JPRB,0.49295E-06_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.28317E-06_JPRB,0.31490E-06_JPRB,0.34503E-06_JPRB,0.37276E-06_JPRB,0.39894E-06_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.22341E-06_JPRB,0.25002E-06_JPRB,0.27560E-06_JPRB,0.29957E-06_JPRB,0.32144E-06_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.17554E-06_JPRB,0.19798E-06_JPRB,0.21962E-06_JPRB,0.24010E-06_JPRB,0.25876E-06_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.13737E-06_JPRB,0.15642E-06_JPRB,0.17451E-06_JPRB,0.19192E-06_JPRB,0.20795E-06_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.10754E-06_JPRB,0.12357E-06_JPRB,0.13879E-06_JPRB,0.15343E-06_JPRB,0.16712E-06_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.84121E-07_JPRB,0.97441E-07_JPRB,0.11018E-06_JPRB,0.12256E-06_JPRB,0.13419E-06_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.65604E-07_JPRB,0.76564E-07_JPRB,0.87356E-07_JPRB,0.97703E-07_JPRB,0.10745E-06_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.50943E-07_JPRB,0.59988E-07_JPRB,0.69048E-07_JPRB,0.77629E-07_JPRB,0.85933E-07_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.39679E-07_JPRB,0.47121E-07_JPRB,0.54614E-07_JPRB,0.61766E-07_JPRB,0.68783E-07_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.30934E-07_JPRB,0.36980E-07_JPRB,0.43113E-07_JPRB,0.49142E-07_JPRB,0.55005E-07_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.24050E-07_JPRB,0.28923E-07_JPRB,0.33993E-07_JPRB,0.39047E-07_JPRB,0.43928E-07_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.18660E-07_JPRB,0.22557E-07_JPRB,0.26748E-07_JPRB,0.30951E-07_JPRB,0.35000E-07_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.14488E-07_JPRB,0.17625E-07_JPRB,0.21043E-07_JPRB,0.24511E-07_JPRB,0.27884E-07_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.11674E-07_JPRB,0.14234E-07_JPRB,0.17044E-07_JPRB,0.19902E-07_JPRB,0.22702E-07_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.36288E-03_JPRB,0.38577E-03_JPRB,0.40824E-03_JPRB,0.43207E-03_JPRB,0.45772E-03_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.30781E-03_JPRB,0.32754E-03_JPRB,0.34745E-03_JPRB,0.36873E-03_JPRB,0.39050E-03_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.26023E-03_JPRB,0.27734E-03_JPRB,0.29481E-03_JPRB,0.31288E-03_JPRB,0.33087E-03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.21963E-03_JPRB,0.23414E-03_JPRB,0.24882E-03_JPRB,0.26383E-03_JPRB,0.27866E-03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.18486E-03_JPRB,0.19716E-03_JPRB,0.20932E-03_JPRB,0.22139E-03_JPRB,0.23350E-03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.15516E-03_JPRB,0.16534E-03_JPRB,0.17526E-03_JPRB,0.18520E-03_JPRB,0.19528E-03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.12986E-03_JPRB,0.13820E-03_JPRB,0.14634E-03_JPRB,0.15465E-03_JPRB,0.16304E-03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.10854E-03_JPRB,0.11542E-03_JPRB,0.12213E-03_JPRB,0.12898E-03_JPRB,0.13583E-03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.90628E-04_JPRB,0.96255E-04_JPRB,0.10177E-03_JPRB,0.10738E-03_JPRB,0.11299E-03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.75891E-04_JPRB,0.80410E-04_JPRB,0.85018E-04_JPRB,0.89561E-04_JPRB,0.94064E-04_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.63476E-04_JPRB,0.67177E-04_JPRB,0.70959E-04_JPRB,0.74590E-04_JPRB,0.78334E-04_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.52999E-04_JPRB,0.56057E-04_JPRB,0.59157E-04_JPRB,0.62167E-04_JPRB,0.65272E-04_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.44256E-04_JPRB,0.46783E-04_JPRB,0.49281E-04_JPRB,0.51789E-04_JPRB,0.54376E-04_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.37011E-04_JPRB,0.39100E-04_JPRB,0.41098E-04_JPRB,0.43198E-04_JPRB,0.45322E-04_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.30966E-04_JPRB,0.32635E-04_JPRB,0.34289E-04_JPRB,0.36026E-04_JPRB,0.37776E-04_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.25866E-04_JPRB,0.27210E-04_JPRB,0.28616E-04_JPRB,0.30009E-04_JPRB,0.31487E-04_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.21609E-04_JPRB,0.22715E-04_JPRB,0.23863E-04_JPRB,0.25052E-04_JPRB,0.26299E-04_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.18055E-04_JPRB,0.18981E-04_JPRB,0.19946E-04_JPRB,0.20948E-04_JPRB,0.21978E-04_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.15103E-04_JPRB,0.15890E-04_JPRB,0.16699E-04_JPRB,0.17556E-04_JPRB,0.18410E-04_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.12647E-04_JPRB,0.13313E-04_JPRB,0.14001E-04_JPRB,0.14715E-04_JPRB,0.15427E-04_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.10601E-04_JPRB,0.11164E-04_JPRB,0.11755E-04_JPRB,0.12351E-04_JPRB,0.12931E-04_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.88699E-05_JPRB,0.93482E-05_JPRB,0.98481E-05_JPRB,0.10351E-04_JPRB,0.10829E-04_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.73864E-05_JPRB,0.77932E-05_JPRB,0.82148E-05_JPRB,0.86289E-05_JPRB,0.90270E-05_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.61189E-05_JPRB,0.64631E-05_JPRB,0.68137E-05_JPRB,0.71535E-05_JPRB,0.74761E-05_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.50349E-05_JPRB,0.53216E-05_JPRB,0.56110E-05_JPRB,0.58984E-05_JPRB,0.61738E-05_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.41408E-05_JPRB,0.43804E-05_JPRB,0.46209E-05_JPRB,0.48585E-05_JPRB,0.50962E-05_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.34100E-05_JPRB,0.36097E-05_JPRB,0.38105E-05_JPRB,0.40114E-05_JPRB,0.42081E-05_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.27924E-05_JPRB,0.29567E-05_JPRB,0.31274E-05_JPRB,0.32925E-05_JPRB,0.34580E-05_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.22821E-05_JPRB,0.24196E-05_JPRB,0.25613E-05_JPRB,0.27009E-05_JPRB,0.28413E-05_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.18665E-05_JPRB,0.19799E-05_JPRB,0.20975E-05_JPRB,0.22150E-05_JPRB,0.23326E-05_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.15195E-05_JPRB,0.16130E-05_JPRB,0.17109E-05_JPRB,0.18095E-05_JPRB,0.19094E-05_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.12351E-05_JPRB,0.13129E-05_JPRB,0.13926E-05_JPRB,0.14756E-05_JPRB,0.15593E-05_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.10023E-05_JPRB,0.10671E-05_JPRB,0.11334E-05_JPRB,0.12033E-05_JPRB,0.12728E-05_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.81269E-06_JPRB,0.86595E-06_JPRB,0.92094E-06_JPRB,0.97875E-06_JPRB,0.10378E-05_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.65647E-06_JPRB,0.70081E-06_JPRB,0.74604E-06_JPRB,0.79395E-06_JPRB,0.84339E-06_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.53019E-06_JPRB,0.56638E-06_JPRB,0.60399E-06_JPRB,0.64368E-06_JPRB,0.68472E-06_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.42776E-06_JPRB,0.45739E-06_JPRB,0.48880E-06_JPRB,0.52108E-06_JPRB,0.55567E-06_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.34556E-06_JPRB,0.36989E-06_JPRB,0.39599E-06_JPRB,0.42284E-06_JPRB,0.45123E-06_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.27905E-06_JPRB,0.29932E-06_JPRB,0.32065E-06_JPRB,0.34295E-06_JPRB,0.36646E-06_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.22522E-06_JPRB,0.24196E-06_JPRB,0.25940E-06_JPRB,0.27788E-06_JPRB,0.29753E-06_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.18137E-06_JPRB,0.19527E-06_JPRB,0.20965E-06_JPRB,0.22512E-06_JPRB,0.24112E-06_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.14606E-06_JPRB,0.15795E-06_JPRB,0.16971E-06_JPRB,0.18256E-06_JPRB,0.19571E-06_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.11745E-06_JPRB,0.12764E-06_JPRB,0.13751E-06_JPRB,0.14796E-06_JPRB,0.15891E-06_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.94319E-07_JPRB,0.10301E-06_JPRB,0.11131E-06_JPRB,0.11979E-06_JPRB,0.12892E-06_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.75512E-07_JPRB,0.83064E-07_JPRB,0.90010E-07_JPRB,0.96928E-07_JPRB,0.10441E-06_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.60409E-07_JPRB,0.66900E-07_JPRB,0.72712E-07_JPRB,0.78451E-07_JPRB,0.84657E-07_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.49299E-07_JPRB,0.54731E-07_JPRB,0.59628E-07_JPRB,0.64415E-07_JPRB,0.69585E-07_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.85498E-03_JPRB,0.88654E-03_JPRB,0.92216E-03_JPRB,0.96018E-03_JPRB,0.10038E-02_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.72755E-03_JPRB,0.75503E-03_JPRB,0.78615E-03_JPRB,0.82104E-03_JPRB,0.86252E-03_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.61644E-03_JPRB,0.64130E-03_JPRB,0.66934E-03_JPRB,0.70298E-03_JPRB,0.74077E-03_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.52100E-03_JPRB,0.54364E-03_JPRB,0.57046E-03_JPRB,0.60137E-03_JPRB,0.63388E-03_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.43945E-03_JPRB,0.46060E-03_JPRB,0.48533E-03_JPRB,0.51276E-03_JPRB,0.54036E-03_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.37082E-03_JPRB,0.39025E-03_JPRB,0.41242E-03_JPRB,0.43532E-03_JPRB,0.45905E-03_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.31280E-03_JPRB,0.33005E-03_JPRB,0.34867E-03_JPRB,0.36806E-03_JPRB,0.38776E-03_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.26373E-03_JPRB,0.27881E-03_JPRB,0.29445E-03_JPRB,0.31046E-03_JPRB,0.32667E-03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.22211E-03_JPRB,0.23470E-03_JPRB,0.24766E-03_JPRB,0.26115E-03_JPRB,0.27459E-03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.18729E-03_JPRB,0.19773E-03_JPRB,0.20869E-03_JPRB,0.22010E-03_JPRB,0.23102E-03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.15755E-03_JPRB,0.16634E-03_JPRB,0.17574E-03_JPRB,0.18527E-03_JPRB,0.19396E-03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.13244E-03_JPRB,0.14003E-03_JPRB,0.14791E-03_JPRB,0.15556E-03_JPRB,0.16235E-03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.11137E-03_JPRB,0.11779E-03_JPRB,0.12437E-03_JPRB,0.13036E-03_JPRB,0.13579E-03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.93817E-04_JPRB,0.99206E-04_JPRB,0.10452E-03_JPRB,0.10918E-03_JPRB,0.11356E-03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.79006E-04_JPRB,0.83531E-04_JPRB,0.87717E-04_JPRB,0.91355E-04_JPRB,0.95066E-04_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.66464E-04_JPRB,0.70180E-04_JPRB,0.73412E-04_JPRB,0.76548E-04_JPRB,0.79673E-04_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.55955E-04_JPRB,0.58876E-04_JPRB,0.61539E-04_JPRB,0.64161E-04_JPRB,0.66744E-04_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.47057E-04_JPRB,0.49392E-04_JPRB,0.51539E-04_JPRB,0.53762E-04_JPRB,0.55883E-04_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.39571E-04_JPRB,0.41398E-04_JPRB,0.43230E-04_JPRB,0.45052E-04_JPRB,0.46859E-04_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.33232E-04_JPRB,0.34753E-04_JPRB,0.36306E-04_JPRB,0.37802E-04_JPRB,0.39368E-04_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.27886E-04_JPRB,0.29183E-04_JPRB,0.30428E-04_JPRB,0.31753E-04_JPRB,0.33114E-04_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.23408E-04_JPRB,0.24477E-04_JPRB,0.25555E-04_JPRB,0.26683E-04_JPRB,0.27811E-04_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.19576E-04_JPRB,0.20476E-04_JPRB,0.21380E-04_JPRB,0.22323E-04_JPRB,0.23289E-04_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.16284E-04_JPRB,0.17049E-04_JPRB,0.17816E-04_JPRB,0.18626E-04_JPRB,0.19444E-04_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.13488E-04_JPRB,0.14134E-04_JPRB,0.14781E-04_JPRB,0.15488E-04_JPRB,0.16173E-04_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.11176E-04_JPRB,0.11721E-04_JPRB,0.12278E-04_JPRB,0.12866E-04_JPRB,0.13450E-04_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.92494E-05_JPRB,0.97155E-05_JPRB,0.10200E-04_JPRB,0.10699E-04_JPRB,0.11199E-04_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.76168E-05_JPRB,0.80109E-05_JPRB,0.84197E-05_JPRB,0.88496E-05_JPRB,0.92853E-05_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.62645E-05_JPRB,0.66003E-05_JPRB,0.69472E-05_JPRB,0.73123E-05_JPRB,0.76881E-05_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.51581E-05_JPRB,0.54373E-05_JPRB,0.57325E-05_JPRB,0.60421E-05_JPRB,0.63612E-05_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.42336E-05_JPRB,0.44705E-05_JPRB,0.47241E-05_JPRB,0.49790E-05_JPRB,0.52554E-05_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.34635E-05_JPRB,0.36643E-05_JPRB,0.38777E-05_JPRB,0.40942E-05_JPRB,0.43335E-05_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.28355E-05_JPRB,0.30041E-05_JPRB,0.31829E-05_JPRB,0.33678E-05_JPRB,0.35664E-05_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.23151E-05_JPRB,0.24589E-05_JPRB,0.26085E-05_JPRB,0.27655E-05_JPRB,0.29287E-05_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.18832E-05_JPRB,0.20045E-05_JPRB,0.21306E-05_JPRB,0.22633E-05_JPRB,0.24025E-05_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.15291E-05_JPRB,0.16326E-05_JPRB,0.17368E-05_JPRB,0.18516E-05_JPRB,0.19681E-05_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.12403E-05_JPRB,0.13270E-05_JPRB,0.14154E-05_JPRB,0.15108E-05_JPRB,0.16100E-05_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.10056E-05_JPRB,0.10792E-05_JPRB,0.11542E-05_JPRB,0.12335E-05_JPRB,0.13173E-05_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.81549E-06_JPRB,0.87791E-06_JPRB,0.94116E-06_JPRB,0.10080E-05_JPRB,0.10781E-05_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.66029E-06_JPRB,0.71307E-06_JPRB,0.76617E-06_JPRB,0.82179E-06_JPRB,0.88107E-06_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.53353E-06_JPRB,0.57858E-06_JPRB,0.62276E-06_JPRB,0.66919E-06_JPRB,0.71931E-06_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.43199E-06_JPRB,0.46970E-06_JPRB,0.50695E-06_JPRB,0.54584E-06_JPRB,0.58793E-06_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.34966E-06_JPRB,0.38119E-06_JPRB,0.41298E-06_JPRB,0.44530E-06_JPRB,0.48058E-06_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.28227E-06_JPRB,0.30903E-06_JPRB,0.33563E-06_JPRB,0.36285E-06_JPRB,0.39216E-06_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.22764E-06_JPRB,0.25006E-06_JPRB,0.27265E-06_JPRB,0.29503E-06_JPRB,0.31940E-06_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.18380E-06_JPRB,0.20248E-06_JPRB,0.22144E-06_JPRB,0.24002E-06_JPRB,0.25999E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,59, 6) = (/ &
+ & 0.15102E-06_JPRB,0.16680E-06_JPRB,0.18267E-06_JPRB,0.19825E-06_JPRB,0.21512E-06_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.20763E-02_JPRB,0.21202E-02_JPRB,0.21697E-02_JPRB,0.22297E-02_JPRB,0.22985E-02_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.17631E-02_JPRB,0.18004E-02_JPRB,0.18452E-02_JPRB,0.18998E-02_JPRB,0.19604E-02_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.14970E-02_JPRB,0.15286E-02_JPRB,0.15695E-02_JPRB,0.16172E-02_JPRB,0.16748E-02_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.12672E-02_JPRB,0.12965E-02_JPRB,0.13340E-02_JPRB,0.13795E-02_JPRB,0.14367E-02_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.10695E-02_JPRB,0.10974E-02_JPRB,0.11329E-02_JPRB,0.11783E-02_JPRB,0.12365E-02_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.90477E-03_JPRB,0.93070E-03_JPRB,0.96470E-03_JPRB,0.10105E-02_JPRB,0.10654E-02_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.76431E-03_JPRB,0.79078E-03_JPRB,0.82660E-03_JPRB,0.86991E-03_JPRB,0.91843E-03_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.64676E-03_JPRB,0.67404E-03_JPRB,0.70901E-03_JPRB,0.74996E-03_JPRB,0.79243E-03_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.54776E-03_JPRB,0.57523E-03_JPRB,0.60880E-03_JPRB,0.64511E-03_JPRB,0.68243E-03_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.46614E-03_JPRB,0.49254E-03_JPRB,0.52330E-03_JPRB,0.55502E-03_JPRB,0.58894E-03_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.39726E-03_JPRB,0.42201E-03_JPRB,0.44841E-03_JPRB,0.47653E-03_JPRB,0.50717E-03_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.33898E-03_JPRB,0.36121E-03_JPRB,0.38421E-03_JPRB,0.40924E-03_JPRB,0.43694E-03_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.28981E-03_JPRB,0.30891E-03_JPRB,0.32925E-03_JPRB,0.35185E-03_JPRB,0.37616E-03_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.24765E-03_JPRB,0.26436E-03_JPRB,0.28268E-03_JPRB,0.30306E-03_JPRB,0.32381E-03_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.21161E-03_JPRB,0.22639E-03_JPRB,0.24293E-03_JPRB,0.26080E-03_JPRB,0.27811E-03_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.18103E-03_JPRB,0.19425E-03_JPRB,0.20911E-03_JPRB,0.22426E-03_JPRB,0.23882E-03_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.15524E-03_JPRB,0.16726E-03_JPRB,0.18025E-03_JPRB,0.19313E-03_JPRB,0.20539E-03_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.13346E-03_JPRB,0.14432E-03_JPRB,0.15555E-03_JPRB,0.16625E-03_JPRB,0.17682E-03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.11513E-03_JPRB,0.12466E-03_JPRB,0.13417E-03_JPRB,0.14329E-03_JPRB,0.15286E-03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.99437E-04_JPRB,0.10768E-03_JPRB,0.11569E-03_JPRB,0.12397E-03_JPRB,0.13224E-03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.85975E-04_JPRB,0.92901E-04_JPRB,0.10007E-03_JPRB,0.10742E-03_JPRB,0.11487E-03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.74186E-04_JPRB,0.80283E-04_JPRB,0.86524E-04_JPRB,0.92965E-04_JPRB,0.99720E-04_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.63518E-04_JPRB,0.68833E-04_JPRB,0.74348E-04_JPRB,0.80205E-04_JPRB,0.86286E-04_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.53971E-04_JPRB,0.58710E-04_JPRB,0.63581E-04_JPRB,0.68731E-04_JPRB,0.74066E-04_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.45287E-04_JPRB,0.49433E-04_JPRB,0.53695E-04_JPRB,0.58207E-04_JPRB,0.62933E-04_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.37993E-04_JPRB,0.41562E-04_JPRB,0.45327E-04_JPRB,0.49315E-04_JPRB,0.53437E-04_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.31889E-04_JPRB,0.34954E-04_JPRB,0.38268E-04_JPRB,0.41760E-04_JPRB,0.45472E-04_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.26490E-04_JPRB,0.29130E-04_JPRB,0.31995E-04_JPRB,0.35094E-04_JPRB,0.38302E-04_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.21977E-04_JPRB,0.24258E-04_JPRB,0.26702E-04_JPRB,0.29405E-04_JPRB,0.32254E-04_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.18218E-04_JPRB,0.20180E-04_JPRB,0.22299E-04_JPRB,0.24616E-04_JPRB,0.27154E-04_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.15034E-04_JPRB,0.16668E-04_JPRB,0.18493E-04_JPRB,0.20514E-04_JPRB,0.22747E-04_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.12376E-04_JPRB,0.13730E-04_JPRB,0.15276E-04_JPRB,0.16983E-04_JPRB,0.18913E-04_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.10149E-04_JPRB,0.11314E-04_JPRB,0.12590E-04_JPRB,0.14099E-04_JPRB,0.15742E-04_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.82889E-05_JPRB,0.92859E-05_JPRB,0.10354E-04_JPRB,0.11603E-04_JPRB,0.13042E-04_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.67264E-05_JPRB,0.75707E-05_JPRB,0.84748E-05_JPRB,0.95081E-05_JPRB,0.10721E-04_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.54454E-05_JPRB,0.61678E-05_JPRB,0.69329E-05_JPRB,0.77845E-05_JPRB,0.87984E-05_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.43942E-05_JPRB,0.50075E-05_JPRB,0.56558E-05_JPRB,0.63802E-05_JPRB,0.72168E-05_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.35518E-05_JPRB,0.40682E-05_JPRB,0.46246E-05_JPRB,0.52318E-05_JPRB,0.59289E-05_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.28695E-05_JPRB,0.33032E-05_JPRB,0.37766E-05_JPRB,0.42938E-05_JPRB,0.48871E-05_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.23151E-05_JPRB,0.26733E-05_JPRB,0.30760E-05_JPRB,0.35184E-05_JPRB,0.40216E-05_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.18635E-05_JPRB,0.21569E-05_JPRB,0.24979E-05_JPRB,0.28705E-05_JPRB,0.33004E-05_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.15043E-05_JPRB,0.17492E-05_JPRB,0.20309E-05_JPRB,0.23469E-05_JPRB,0.27129E-05_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.12156E-05_JPRB,0.14170E-05_JPRB,0.16506E-05_JPRB,0.19188E-05_JPRB,0.22303E-05_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.98090E-06_JPRB,0.11440E-05_JPRB,0.13395E-05_JPRB,0.15647E-05_JPRB,0.18280E-05_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.79029E-06_JPRB,0.92216E-06_JPRB,0.10880E-05_JPRB,0.12732E-05_JPRB,0.14934E-05_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.63691E-06_JPRB,0.74365E-06_JPRB,0.88187E-06_JPRB,0.10375E-05_JPRB,0.12193E-05_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.52696E-06_JPRB,0.61783E-06_JPRB,0.73672E-06_JPRB,0.87054E-06_JPRB,0.10284E-05_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.57453E-02_JPRB,0.59077E-02_JPRB,0.61032E-02_JPRB,0.63038E-02_JPRB,0.65156E-02_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.49738E-02_JPRB,0.51301E-02_JPRB,0.52927E-02_JPRB,0.54623E-02_JPRB,0.56575E-02_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.43017E-02_JPRB,0.44326E-02_JPRB,0.45703E-02_JPRB,0.47292E-02_JPRB,0.49039E-02_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.37082E-02_JPRB,0.38170E-02_JPRB,0.39427E-02_JPRB,0.40844E-02_JPRB,0.42438E-02_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.31847E-02_JPRB,0.32833E-02_JPRB,0.33960E-02_JPRB,0.35252E-02_JPRB,0.36740E-02_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.27225E-02_JPRB,0.28155E-02_JPRB,0.29216E-02_JPRB,0.30449E-02_JPRB,0.31911E-02_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.23309E-02_JPRB,0.24127E-02_JPRB,0.25113E-02_JPRB,0.26325E-02_JPRB,0.27748E-02_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.19939E-02_JPRB,0.20703E-02_JPRB,0.21659E-02_JPRB,0.22816E-02_JPRB,0.24232E-02_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.17051E-02_JPRB,0.17809E-02_JPRB,0.18754E-02_JPRB,0.19919E-02_JPRB,0.21299E-02_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.14632E-02_JPRB,0.15412E-02_JPRB,0.16376E-02_JPRB,0.17554E-02_JPRB,0.18936E-02_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.12639E-02_JPRB,0.13422E-02_JPRB,0.14407E-02_JPRB,0.15575E-02_JPRB,0.16941E-02_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.10971E-02_JPRB,0.11767E-02_JPRB,0.12764E-02_JPRB,0.13939E-02_JPRB,0.15238E-02_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.95870E-03_JPRB,0.10413E-02_JPRB,0.11414E-02_JPRB,0.12556E-02_JPRB,0.13798E-02_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.84686E-03_JPRB,0.93021E-03_JPRB,0.10287E-02_JPRB,0.11374E-02_JPRB,0.12572E-02_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.75447E-03_JPRB,0.83724E-03_JPRB,0.93234E-03_JPRB,0.10369E-02_JPRB,0.11513E-02_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.67798E-03_JPRB,0.75937E-03_JPRB,0.85009E-03_JPRB,0.95072E-03_JPRB,0.10606E-02_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.61364E-03_JPRB,0.69262E-03_JPRB,0.77994E-03_JPRB,0.87674E-03_JPRB,0.98252E-03_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.55903E-03_JPRB,0.63520E-03_JPRB,0.71974E-03_JPRB,0.81322E-03_JPRB,0.91554E-03_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.51301E-03_JPRB,0.58698E-03_JPRB,0.66923E-03_JPRB,0.75972E-03_JPRB,0.85851E-03_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.47350E-03_JPRB,0.54617E-03_JPRB,0.62663E-03_JPRB,0.71470E-03_JPRB,0.81105E-03_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.44016E-03_JPRB,0.51136E-03_JPRB,0.58994E-03_JPRB,0.67638E-03_JPRB,0.77061E-03_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.40944E-03_JPRB,0.47900E-03_JPRB,0.55611E-03_JPRB,0.64143E-03_JPRB,0.73316E-03_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.37741E-03_JPRB,0.44487E-03_JPRB,0.52031E-03_JPRB,0.60323E-03_JPRB,0.69243E-03_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.34297E-03_JPRB,0.40766E-03_JPRB,0.48086E-03_JPRB,0.56132E-03_JPRB,0.64787E-03_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.30431E-03_JPRB,0.36499E-03_JPRB,0.43465E-03_JPRB,0.51167E-03_JPRB,0.59496E-03_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.26970E-03_JPRB,0.32665E-03_JPRB,0.39267E-03_JPRB,0.46706E-03_JPRB,0.54760E-03_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.23923E-03_JPRB,0.29254E-03_JPRB,0.35537E-03_JPRB,0.42706E-03_JPRB,0.50543E-03_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.20758E-03_JPRB,0.25688E-03_JPRB,0.31519E-03_JPRB,0.38349E-03_JPRB,0.45925E-03_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.17937E-03_JPRB,0.22435E-03_JPRB,0.27886E-03_JPRB,0.34337E-03_JPRB,0.41641E-03_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.15469E-03_JPRB,0.19589E-03_JPRB,0.24606E-03_JPRB,0.30674E-03_JPRB,0.37723E-03_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.13101E-03_JPRB,0.16796E-03_JPRB,0.21371E-03_JPRB,0.26992E-03_JPRB,0.33751E-03_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.10980E-03_JPRB,0.14260E-03_JPRB,0.18396E-03_JPRB,0.23557E-03_JPRB,0.29905E-03_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.91682E-04_JPRB,0.12045E-03_JPRB,0.15770E-03_JPRB,0.20472E-03_JPRB,0.26370E-03_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.75628E-04_JPRB,0.10059E-03_JPRB,0.13347E-03_JPRB,0.17595E-03_JPRB,0.22995E-03_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.61269E-04_JPRB,0.82597E-04_JPRB,0.11115E-03_JPRB,0.14863E-03_JPRB,0.19734E-03_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.49295E-04_JPRB,0.67304E-04_JPRB,0.91698E-04_JPRB,0.12475E-03_JPRB,0.16838E-03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.39400E-04_JPRB,0.54424E-04_JPRB,0.75252E-04_JPRB,0.10388E-03_JPRB,0.14254E-03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.31621E-04_JPRB,0.44130E-04_JPRB,0.61905E-04_JPRB,0.86583E-04_JPRB,0.12082E-03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.25214E-04_JPRB,0.35613E-04_JPRB,0.50609E-04_JPRB,0.71998E-04_JPRB,0.10219E-03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.20045E-04_JPRB,0.28626E-04_JPRB,0.41171E-04_JPRB,0.59458E-04_JPRB,0.85829E-04_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.15795E-04_JPRB,0.22859E-04_JPRB,0.33218E-04_JPRB,0.48810E-04_JPRB,0.71516E-04_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.12537E-04_JPRB,0.18343E-04_JPRB,0.26979E-04_JPRB,0.40183E-04_JPRB,0.59926E-04_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.99418E-05_JPRB,0.14675E-04_JPRB,0.21893E-04_JPRB,0.33017E-04_JPRB,0.50138E-04_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.78293E-05_JPRB,0.11672E-04_JPRB,0.17663E-04_JPRB,0.26975E-04_JPRB,0.41690E-04_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.61519E-05_JPRB,0.92383E-05_JPRB,0.14184E-04_JPRB,0.21901E-04_JPRB,0.34420E-04_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.48509E-05_JPRB,0.73119E-05_JPRB,0.11341E-04_JPRB,0.17783E-04_JPRB,0.28416E-04_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.41003E-05_JPRB,0.62461E-05_JPRB,0.98307E-05_JPRB,0.15678E-04_JPRB,0.25521E-04_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.31088E-01_JPRB,0.30978E-01_JPRB,0.31134E-01_JPRB,0.31580E-01_JPRB,0.32297E-01_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.26804E-01_JPRB,0.26913E-01_JPRB,0.27323E-01_JPRB,0.28019E-01_JPRB,0.28853E-01_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.23192E-01_JPRB,0.23530E-01_JPRB,0.24156E-01_JPRB,0.24918E-01_JPRB,0.25770E-01_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.20205E-01_JPRB,0.20738E-01_JPRB,0.21411E-01_JPRB,0.22189E-01_JPRB,0.23073E-01_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.17721E-01_JPRB,0.18309E-01_JPRB,0.19005E-01_JPRB,0.19816E-01_JPRB,0.20712E-01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.15569E-01_JPRB,0.16175E-01_JPRB,0.16902E-01_JPRB,0.17717E-01_JPRB,0.18588E-01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.13679E-01_JPRB,0.14314E-01_JPRB,0.15046E-01_JPRB,0.15840E-01_JPRB,0.16695E-01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.12060E-01_JPRB,0.12704E-01_JPRB,0.13416E-01_JPRB,0.14184E-01_JPRB,0.14994E-01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.10678E-01_JPRB,0.11296E-01_JPRB,0.11975E-01_JPRB,0.12694E-01_JPRB,0.13474E-01_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.95206E-02_JPRB,0.10114E-01_JPRB,0.10744E-01_JPRB,0.11429E-01_JPRB,0.12190E-01_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.85244E-02_JPRB,0.90705E-02_JPRB,0.96690E-02_JPRB,0.10334E-01_JPRB,0.11084E-01_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.76472E-02_JPRB,0.81682E-02_JPRB,0.87428E-02_JPRB,0.93948E-02_JPRB,0.10155E-01_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.68906E-02_JPRB,0.73887E-02_JPRB,0.79555E-02_JPRB,0.86116E-02_JPRB,0.93920E-02_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.62406E-02_JPRB,0.67330E-02_JPRB,0.73033E-02_JPRB,0.79807E-02_JPRB,0.87803E-02_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.56879E-02_JPRB,0.61818E-02_JPRB,0.67732E-02_JPRB,0.74721E-02_JPRB,0.82924E-02_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.52214E-02_JPRB,0.57290E-02_JPRB,0.63416E-02_JPRB,0.70614E-02_JPRB,0.79109E-02_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.48396E-02_JPRB,0.53718E-02_JPRB,0.60023E-02_JPRB,0.67493E-02_JPRB,0.76290E-02_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.45394E-02_JPRB,0.50868E-02_JPRB,0.57419E-02_JPRB,0.65213E-02_JPRB,0.74390E-02_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.42997E-02_JPRB,0.48721E-02_JPRB,0.55579E-02_JPRB,0.63736E-02_JPRB,0.73370E-02_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.41212E-02_JPRB,0.47209E-02_JPRB,0.54422E-02_JPRB,0.62987E-02_JPRB,0.73128E-02_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.39976E-02_JPRB,0.46295E-02_JPRB,0.53893E-02_JPRB,0.62949E-02_JPRB,0.73658E-02_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.39007E-02_JPRB,0.45672E-02_JPRB,0.53672E-02_JPRB,0.63167E-02_JPRB,0.74374E-02_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.37869E-02_JPRB,0.44770E-02_JPRB,0.53019E-02_JPRB,0.62849E-02_JPRB,0.74424E-02_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.36393E-02_JPRB,0.43376E-02_JPRB,0.51746E-02_JPRB,0.61726E-02_JPRB,0.73435E-02_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.34235E-02_JPRB,0.41098E-02_JPRB,0.49353E-02_JPRB,0.59226E-02_JPRB,0.70781E-02_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.32247E-02_JPRB,0.38981E-02_JPRB,0.47125E-02_JPRB,0.56849E-02_JPRB,0.68251E-02_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.30456E-02_JPRB,0.37107E-02_JPRB,0.45116E-02_JPRB,0.54683E-02_JPRB,0.65906E-02_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.28232E-02_JPRB,0.34654E-02_JPRB,0.42389E-02_JPRB,0.51610E-02_JPRB,0.62484E-02_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.26119E-02_JPRB,0.32290E-02_JPRB,0.39730E-02_JPRB,0.48613E-02_JPRB,0.59121E-02_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.24180E-02_JPRB,0.30088E-02_JPRB,0.37246E-02_JPRB,0.45813E-02_JPRB,0.55929E-02_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.22093E-02_JPRB,0.27691E-02_JPRB,0.34494E-02_JPRB,0.42630E-02_JPRB,0.52317E-02_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.20033E-02_JPRB,0.25304E-02_JPRB,0.31741E-02_JPRB,0.39439E-02_JPRB,0.48637E-02_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.18130E-02_JPRB,0.23086E-02_JPRB,0.29181E-02_JPRB,0.36487E-02_JPRB,0.45175E-02_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.16283E-02_JPRB,0.20910E-02_JPRB,0.26646E-02_JPRB,0.33526E-02_JPRB,0.41695E-02_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.14435E-02_JPRB,0.18702E-02_JPRB,0.24020E-02_JPRB,0.30439E-02_JPRB,0.38103E-02_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.12773E-02_JPRB,0.16671E-02_JPRB,0.21576E-02_JPRB,0.27587E-02_JPRB,0.34731E-02_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.11238E-02_JPRB,0.14806E-02_JPRB,0.19320E-02_JPRB,0.24920E-02_JPRB,0.31602E-02_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.99065E-03_JPRB,0.13211E-02_JPRB,0.17354E-02_JPRB,0.22582E-02_JPRB,0.28857E-02_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.87220E-03_JPRB,0.11790E-02_JPRB,0.15607E-02_JPRB,0.20453E-02_JPRB,0.26367E-02_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.76443E-03_JPRB,0.10482E-02_JPRB,0.13992E-02_JPRB,0.18469E-02_JPRB,0.24023E-02_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.66506E-03_JPRB,0.92645E-03_JPRB,0.12548E-02_JPRB,0.16624E-02_JPRB,0.21789E-02_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.58147E-03_JPRB,0.82449E-03_JPRB,0.11302E-02_JPRB,0.15093E-02_JPRB,0.19886E-02_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.50762E-03_JPRB,0.73235E-03_JPRB,0.10182E-02_JPRB,0.13732E-02_JPRB,0.18200E-02_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.44063E-03_JPRB,0.64710E-03_JPRB,0.91345E-03_JPRB,0.12471E-02_JPRB,0.16632E-02_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.37891E-03_JPRB,0.56859E-03_JPRB,0.81680E-03_JPRB,0.11290E-02_JPRB,0.15165E-02_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.32563E-03_JPRB,0.50022E-03_JPRB,0.73037E-03_JPRB,0.10236E-02_JPRB,0.13873E-02_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.30307E-03_JPRB,0.47208E-03_JPRB,0.69548E-03_JPRB,0.98198E-03_JPRB,0.13371E-02_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.13405E+00_JPRB,0.13208E+00_JPRB,0.13012E+00_JPRB,0.12819E+00_JPRB,0.12637E+00_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.11726E+00_JPRB,0.11549E+00_JPRB,0.11376E+00_JPRB,0.11219E+00_JPRB,0.11171E+00_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.10125E+00_JPRB,0.99749E-01_JPRB,0.98394E-01_JPRB,0.98385E-01_JPRB,0.99981E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,16,10) = (/ &
+ & 0.86553E-01_JPRB,0.85383E-01_JPRB,0.85602E-01_JPRB,0.87440E-01_JPRB,0.89929E-01_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.73963E-01_JPRB,0.74028E-01_JPRB,0.75744E-01_JPRB,0.77969E-01_JPRB,0.80306E-01_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.64249E-01_JPRB,0.65620E-01_JPRB,0.67504E-01_JPRB,0.69584E-01_JPRB,0.72235E-01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.56934E-01_JPRB,0.58613E-01_JPRB,0.60462E-01_JPRB,0.62855E-01_JPRB,0.65899E-01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.50721E-01_JPRB,0.52418E-01_JPRB,0.54615E-01_JPRB,0.57565E-01_JPRB,0.61049E-01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.45027E-01_JPRB,0.47161E-01_JPRB,0.49911E-01_JPRB,0.53249E-01_JPRB,0.56950E-01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.40301E-01_JPRB,0.42891E-01_JPRB,0.46164E-01_JPRB,0.49801E-01_JPRB,0.53839E-01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.36438E-01_JPRB,0.39487E-01_JPRB,0.43011E-01_JPRB,0.46965E-01_JPRB,0.50969E-01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.33455E-01_JPRB,0.36675E-01_JPRB,0.40451E-01_JPRB,0.44369E-01_JPRB,0.48399E-01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.31038E-01_JPRB,0.34461E-01_JPRB,0.38146E-01_JPRB,0.42075E-01_JPRB,0.46138E-01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.29184E-01_JPRB,0.32533E-01_JPRB,0.36194E-01_JPRB,0.40134E-01_JPRB,0.44371E-01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.27607E-01_JPRB,0.30907E-01_JPRB,0.34540E-01_JPRB,0.38584E-01_JPRB,0.43101E-01_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.26262E-01_JPRB,0.29536E-01_JPRB,0.33259E-01_JPRB,0.37529E-01_JPRB,0.42311E-01_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.25199E-01_JPRB,0.28472E-01_JPRB,0.32405E-01_JPRB,0.36927E-01_JPRB,0.42052E-01_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.24317E-01_JPRB,0.27783E-01_JPRB,0.31948E-01_JPRB,0.36772E-01_JPRB,0.42176E-01_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.23777E-01_JPRB,0.27457E-01_JPRB,0.31879E-01_JPRB,0.37001E-01_JPRB,0.42663E-01_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.23540E-01_JPRB,0.27481E-01_JPRB,0.32177E-01_JPRB,0.37596E-01_JPRB,0.43567E-01_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.23597E-01_JPRB,0.27797E-01_JPRB,0.32792E-01_JPRB,0.38465E-01_JPRB,0.44641E-01_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.23769E-01_JPRB,0.28231E-01_JPRB,0.33430E-01_JPRB,0.39373E-01_JPRB,0.45740E-01_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.23751E-01_JPRB,0.28376E-01_JPRB,0.33764E-01_JPRB,0.39814E-01_JPRB,0.46255E-01_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.23409E-01_JPRB,0.28117E-01_JPRB,0.33564E-01_JPRB,0.39651E-01_JPRB,0.46138E-01_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.22508E-01_JPRB,0.27169E-01_JPRB,0.32556E-01_JPRB,0.38592E-01_JPRB,0.45071E-01_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.21655E-01_JPRB,0.26262E-01_JPRB,0.31543E-01_JPRB,0.37540E-01_JPRB,0.43984E-01_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.20895E-01_JPRB,0.25391E-01_JPRB,0.30600E-01_JPRB,0.36519E-01_JPRB,0.42890E-01_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.19794E-01_JPRB,0.24108E-01_JPRB,0.29157E-01_JPRB,0.34891E-01_JPRB,0.41215E-01_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.18688E-01_JPRB,0.22822E-01_JPRB,0.27713E-01_JPRB,0.33302E-01_JPRB,0.39460E-01_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.17627E-01_JPRB,0.21623E-01_JPRB,0.26302E-01_JPRB,0.31747E-01_JPRB,0.37731E-01_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.16446E-01_JPRB,0.20270E-01_JPRB,0.24738E-01_JPRB,0.29940E-01_JPRB,0.35800E-01_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.15234E-01_JPRB,0.18876E-01_JPRB,0.23100E-01_JPRB,0.28072E-01_JPRB,0.33725E-01_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.14095E-01_JPRB,0.17542E-01_JPRB,0.21553E-01_JPRB,0.26276E-01_JPRB,0.31735E-01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.12980E-01_JPRB,0.16215E-01_JPRB,0.20030E-01_JPRB,0.24474E-01_JPRB,0.29695E-01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.11800E-01_JPRB,0.14839E-01_JPRB,0.18423E-01_JPRB,0.22582E-01_JPRB,0.27493E-01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.10669E-01_JPRB,0.13547E-01_JPRB,0.16901E-01_JPRB,0.20822E-01_JPRB,0.25431E-01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.96515E-02_JPRB,0.12347E-01_JPRB,0.15476E-01_JPRB,0.19181E-01_JPRB,0.23474E-01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.87302E-02_JPRB,0.11282E-01_JPRB,0.14230E-01_JPRB,0.17719E-01_JPRB,0.21773E-01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.78879E-02_JPRB,0.10297E-01_JPRB,0.13106E-01_JPRB,0.16387E-01_JPRB,0.20218E-01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.71141E-02_JPRB,0.93631E-02_JPRB,0.12059E-01_JPRB,0.15140E-01_JPRB,0.18761E-01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.64033E-02_JPRB,0.84706E-02_JPRB,0.11019E-01_JPRB,0.13962E-01_JPRB,0.17391E-01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.58003E-02_JPRB,0.77325E-02_JPRB,0.10121E-01_JPRB,0.12913E-01_JPRB,0.16185E-01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.52567E-02_JPRB,0.70672E-02_JPRB,0.93006E-02_JPRB,0.11949E-01_JPRB,0.15064E-01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.47304E-02_JPRB,0.64466E-02_JPRB,0.85460E-02_JPRB,0.11037E-01_JPRB,0.13988E-01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.42280E-02_JPRB,0.58745E-02_JPRB,0.78453E-02_JPRB,0.10192E-01_JPRB,0.12992E-01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.37744E-02_JPRB,0.53584E-02_JPRB,0.72089E-02_JPRB,0.94309E-02_JPRB,0.12101E-01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.36027E-02_JPRB,0.51588E-02_JPRB,0.69694E-02_JPRB,0.91382E-02_JPRB,0.11759E-01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.24636E+00_JPRB,0.24379E+00_JPRB,0.24122E+00_JPRB,0.23863E+00_JPRB,0.23598E+00_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.22272E+00_JPRB,0.22032E+00_JPRB,0.21794E+00_JPRB,0.21559E+00_JPRB,0.21334E+00_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.19844E+00_JPRB,0.19619E+00_JPRB,0.19411E+00_JPRB,0.19222E+00_JPRB,0.19047E+00_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.17439E+00_JPRB,0.17254E+00_JPRB,0.17092E+00_JPRB,0.16946E+00_JPRB,0.16916E+00_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.15164E+00_JPRB,0.15027E+00_JPRB,0.14912E+00_JPRB,0.14939E+00_JPRB,0.15176E+00_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.13063E+00_JPRB,0.12971E+00_JPRB,0.13029E+00_JPRB,0.13302E+00_JPRB,0.13748E+00_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.11203E+00_JPRB,0.11247E+00_JPRB,0.11508E+00_JPRB,0.11959E+00_JPRB,0.12521E+00_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.96916E-01_JPRB,0.99041E-01_JPRB,0.10318E+00_JPRB,0.10837E+00_JPRB,0.11414E+00_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.85382E-01_JPRB,0.88824E-01_JPRB,0.93367E-01_JPRB,0.98603E-01_JPRB,0.10483E+00_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.76943E-01_JPRB,0.80844E-01_JPRB,0.85377E-01_JPRB,0.90964E-01_JPRB,0.97503E-01_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.70041E-01_JPRB,0.74136E-01_JPRB,0.79065E-01_JPRB,0.84905E-01_JPRB,0.92247E-01_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.64133E-01_JPRB,0.68708E-01_JPRB,0.74135E-01_JPRB,0.80762E-01_JPRB,0.88658E-01_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.59352E-01_JPRB,0.64474E-01_JPRB,0.70718E-01_JPRB,0.78064E-01_JPRB,0.86394E-01_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.55652E-01_JPRB,0.61613E-01_JPRB,0.68607E-01_JPRB,0.76451E-01_JPRB,0.85230E-01_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.53058E-01_JPRB,0.59792E-01_JPRB,0.67298E-01_JPRB,0.75623E-01_JPRB,0.84830E-01_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.51454E-01_JPRB,0.58747E-01_JPRB,0.66709E-01_JPRB,0.75478E-01_JPRB,0.85111E-01_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.50601E-01_JPRB,0.58412E-01_JPRB,0.66813E-01_JPRB,0.76014E-01_JPRB,0.86051E-01_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.50412E-01_JPRB,0.58677E-01_JPRB,0.67503E-01_JPRB,0.77079E-01_JPRB,0.87490E-01_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.50833E-01_JPRB,0.59491E-01_JPRB,0.68713E-01_JPRB,0.78659E-01_JPRB,0.89405E-01_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.51770E-01_JPRB,0.60792E-01_JPRB,0.70497E-01_JPRB,0.80769E-01_JPRB,0.91778E-01_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.53128E-01_JPRB,0.62590E-01_JPRB,0.72506E-01_JPRB,0.83033E-01_JPRB,0.94354E-01_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.54518E-01_JPRB,0.64238E-01_JPRB,0.74390E-01_JPRB,0.85011E-01_JPRB,0.96530E-01_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.55323E-01_JPRB,0.65129E-01_JPRB,0.75324E-01_JPRB,0.86085E-01_JPRB,0.97742E-01_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.55103E-01_JPRB,0.64989E-01_JPRB,0.75282E-01_JPRB,0.86060E-01_JPRB,0.97722E-01_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.53513E-01_JPRB,0.63398E-01_JPRB,0.73617E-01_JPRB,0.84326E-01_JPRB,0.95934E-01_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.51839E-01_JPRB,0.61729E-01_JPRB,0.71975E-01_JPRB,0.82585E-01_JPRB,0.94078E-01_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.50239E-01_JPRB,0.60161E-01_JPRB,0.70354E-01_JPRB,0.80923E-01_JPRB,0.92345E-01_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.47749E-01_JPRB,0.57519E-01_JPRB,0.67663E-01_JPRB,0.78238E-01_JPRB,0.89341E-01_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.45220E-01_JPRB,0.54835E-01_JPRB,0.64881E-01_JPRB,0.75369E-01_JPRB,0.86308E-01_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.42768E-01_JPRB,0.52225E-01_JPRB,0.62107E-01_JPRB,0.72467E-01_JPRB,0.83297E-01_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.39884E-01_JPRB,0.49090E-01_JPRB,0.58932E-01_JPRB,0.69072E-01_JPRB,0.79690E-01_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.36935E-01_JPRB,0.45822E-01_JPRB,0.55523E-01_JPRB,0.65525E-01_JPRB,0.76019E-01_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.34132E-01_JPRB,0.42684E-01_JPRB,0.52151E-01_JPRB,0.62095E-01_JPRB,0.72392E-01_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.31296E-01_JPRB,0.39456E-01_JPRB,0.48596E-01_JPRB,0.58446E-01_JPRB,0.68612E-01_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.28352E-01_JPRB,0.35994E-01_JPRB,0.44764E-01_JPRB,0.54432E-01_JPRB,0.64443E-01_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.25659E-01_JPRB,0.32738E-01_JPRB,0.41113E-01_JPRB,0.50437E-01_JPRB,0.60364E-01_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.23119E-01_JPRB,0.29700E-01_JPRB,0.37617E-01_JPRB,0.46554E-01_JPRB,0.56334E-01_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.20913E-01_JPRB,0.27063E-01_JPRB,0.34504E-01_JPRB,0.43055E-01_JPRB,0.52582E-01_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.18909E-01_JPRB,0.24701E-01_JPRB,0.31626E-01_JPRB,0.39797E-01_JPRB,0.48997E-01_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.17085E-01_JPRB,0.22478E-01_JPRB,0.28924E-01_JPRB,0.36689E-01_JPRB,0.45522E-01_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.15363E-01_JPRB,0.20405E-01_JPRB,0.26432E-01_JPRB,0.33725E-01_JPRB,0.42180E-01_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.13901E-01_JPRB,0.18604E-01_JPRB,0.24309E-01_JPRB,0.31149E-01_JPRB,0.39236E-01_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.12627E-01_JPRB,0.16988E-01_JPRB,0.22381E-01_JPRB,0.28834E-01_JPRB,0.36535E-01_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.11410E-01_JPRB,0.15484E-01_JPRB,0.20536E-01_JPRB,0.26668E-01_JPRB,0.33955E-01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.10296E-01_JPRB,0.14074E-01_JPRB,0.18805E-01_JPRB,0.24610E-01_JPRB,0.31477E-01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.93246E-02_JPRB,0.12835E-01_JPRB,0.17266E-01_JPRB,0.22752E-01_JPRB,0.29238E-01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.89562E-02_JPRB,0.12359E-01_JPRB,0.16676E-01_JPRB,0.22030E-01_JPRB,0.28380E-01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.46920E+00_JPRB,0.46679E+00_JPRB,0.46431E+00_JPRB,0.46162E+00_JPRB,0.45841E+00_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.44978E+00_JPRB,0.44747E+00_JPRB,0.44532E+00_JPRB,0.44273E+00_JPRB,0.44032E+00_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.42273E+00_JPRB,0.42112E+00_JPRB,0.41952E+00_JPRB,0.41793E+00_JPRB,0.41621E+00_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.39050E+00_JPRB,0.38973E+00_JPRB,0.38909E+00_JPRB,0.38861E+00_JPRB,0.38845E+00_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.35567E+00_JPRB,0.35584E+00_JPRB,0.35648E+00_JPRB,0.35743E+00_JPRB,0.35846E+00_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.32023E+00_JPRB,0.32164E+00_JPRB,0.32356E+00_JPRB,0.32582E+00_JPRB,0.32854E+00_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.28599E+00_JPRB,0.28851E+00_JPRB,0.29173E+00_JPRB,0.29552E+00_JPRB,0.30048E+00_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.25381E+00_JPRB,0.25750E+00_JPRB,0.26208E+00_JPRB,0.26822E+00_JPRB,0.27683E+00_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.22440E+00_JPRB,0.22938E+00_JPRB,0.23617E+00_JPRB,0.24559E+00_JPRB,0.25713E+00_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.19852E+00_JPRB,0.20554E+00_JPRB,0.21550E+00_JPRB,0.22788E+00_JPRB,0.24207E+00_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.17693E+00_JPRB,0.18660E+00_JPRB,0.19922E+00_JPRB,0.21410E+00_JPRB,0.23064E+00_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.16009E+00_JPRB,0.17209E+00_JPRB,0.18673E+00_JPRB,0.20389E+00_JPRB,0.22257E+00_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.14745E+00_JPRB,0.16127E+00_JPRB,0.17793E+00_JPRB,0.19685E+00_JPRB,0.21752E+00_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.13842E+00_JPRB,0.15401E+00_JPRB,0.17237E+00_JPRB,0.19313E+00_JPRB,0.21550E+00_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.13240E+00_JPRB,0.14962E+00_JPRB,0.16961E+00_JPRB,0.19199E+00_JPRB,0.21568E+00_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.12889E+00_JPRB,0.14761E+00_JPRB,0.16917E+00_JPRB,0.19286E+00_JPRB,0.21743E+00_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.12765E+00_JPRB,0.14781E+00_JPRB,0.17068E+00_JPRB,0.19527E+00_JPRB,0.22046E+00_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.12821E+00_JPRB,0.14964E+00_JPRB,0.17352E+00_JPRB,0.19873E+00_JPRB,0.22436E+00_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.13031E+00_JPRB,0.15282E+00_JPRB,0.17742E+00_JPRB,0.20308E+00_JPRB,0.22902E+00_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.13354E+00_JPRB,0.15691E+00_JPRB,0.18189E+00_JPRB,0.20791E+00_JPRB,0.23394E+00_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.13759E+00_JPRB,0.16158E+00_JPRB,0.18710E+00_JPRB,0.21336E+00_JPRB,0.23934E+00_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.14143E+00_JPRB,0.16592E+00_JPRB,0.19181E+00_JPRB,0.21830E+00_JPRB,0.24425E+00_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.14328E+00_JPRB,0.16813E+00_JPRB,0.19433E+00_JPRB,0.22092E+00_JPRB,0.24688E+00_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.14288E+00_JPRB,0.16783E+00_JPRB,0.19405E+00_JPRB,0.22076E+00_JPRB,0.24684E+00_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.13900E+00_JPRB,0.16377E+00_JPRB,0.19000E+00_JPRB,0.21677E+00_JPRB,0.24302E+00_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.13517E+00_JPRB,0.15969E+00_JPRB,0.18575E+00_JPRB,0.21259E+00_JPRB,0.23902E+00_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.13148E+00_JPRB,0.15568E+00_JPRB,0.18162E+00_JPRB,0.20849E+00_JPRB,0.23507E+00_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.12553E+00_JPRB,0.14932E+00_JPRB,0.17494E+00_JPRB,0.20171E+00_JPRB,0.22853E+00_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.11952E+00_JPRB,0.14280E+00_JPRB,0.16803E+00_JPRB,0.19459E+00_JPRB,0.22156E+00_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.11373E+00_JPRB,0.13636E+00_JPRB,0.16129E+00_JPRB,0.18763E+00_JPRB,0.21464E+00_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.10701E+00_JPRB,0.12880E+00_JPRB,0.15312E+00_JPRB,0.17916E+00_JPRB,0.20617E+00_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.10010E+00_JPRB,0.12097E+00_JPRB,0.14449E+00_JPRB,0.17006E+00_JPRB,0.19689E+00_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.93559E-01_JPRB,0.11347E+00_JPRB,0.13614E+00_JPRB,0.16117E+00_JPRB,0.18764E+00_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.86985E-01_JPRB,0.10587E+00_JPRB,0.12759E+00_JPRB,0.15183E+00_JPRB,0.17790E+00_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.79918E-01_JPRB,0.97829E-01_JPRB,0.11842E+00_JPRB,0.14172E+00_JPRB,0.16718E+00_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.73127E-01_JPRB,0.90284E-01_JPRB,0.10972E+00_JPRB,0.13198E+00_JPRB,0.15666E+00_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.66713E-01_JPRB,0.83137E-01_JPRB,0.10149E+00_JPRB,0.12264E+00_JPRB,0.14642E+00_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.61017E-01_JPRB,0.76653E-01_JPRB,0.94210E-01_JPRB,0.11429E+00_JPRB,0.13713E+00_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.55806E-01_JPRB,0.70628E-01_JPRB,0.87552E-01_JPRB,0.10658E+00_JPRB,0.12844E+00_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.50954E-01_JPRB,0.64939E-01_JPRB,0.81159E-01_JPRB,0.99264E-01_JPRB,0.12011E+00_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.46354E-01_JPRB,0.59512E-01_JPRB,0.74951E-01_JPRB,0.92338E-01_JPRB,0.11214E+00_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.42433E-01_JPRB,0.54851E-01_JPRB,0.69504E-01_JPRB,0.86317E-01_JPRB,0.10517E+00_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.38912E-01_JPRB,0.50588E-01_JPRB,0.64547E-01_JPRB,0.80719E-01_JPRB,0.98779E-01_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.35756E-01_JPRB,0.46572E-01_JPRB,0.59794E-01_JPRB,0.75289E-01_JPRB,0.92719E-01_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.32896E-01_JPRB,0.42811E-01_JPRB,0.55328E-01_JPRB,0.70070E-01_JPRB,0.86950E-01_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.30447E-01_JPRB,0.39485E-01_JPRB,0.51269E-01_JPRB,0.65351E-01_JPRB,0.81643E-01_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.29531E-01_JPRB,0.38222E-01_JPRB,0.49696E-01_JPRB,0.63514E-01_JPRB,0.79546E-01_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.87498E+00_JPRB,0.87414E+00_JPRB,0.87195E+00_JPRB,0.86869E+00_JPRB,0.86437E+00_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.90060E+00_JPRB,0.89974E+00_JPRB,0.89734E+00_JPRB,0.89423E+00_JPRB,0.88971E+00_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.91305E+00_JPRB,0.91211E+00_JPRB,0.91072E+00_JPRB,0.90792E+00_JPRB,0.90457E+00_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.91218E+00_JPRB,0.91265E+00_JPRB,0.91216E+00_JPRB,0.91150E+00_JPRB,0.90908E+00_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.89877E+00_JPRB,0.90187E+00_JPRB,0.90414E+00_JPRB,0.90531E+00_JPRB,0.90588E+00_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.87718E+00_JPRB,0.88256E+00_JPRB,0.88815E+00_JPRB,0.89271E+00_JPRB,0.89636E+00_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.84784E+00_JPRB,0.85815E+00_JPRB,0.86718E+00_JPRB,0.87552E+00_JPRB,0.88267E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,20,13) = (/ &
+ & 0.81552E+00_JPRB,0.83012E+00_JPRB,0.84379E+00_JPRB,0.85649E+00_JPRB,0.86736E+00_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.78216E+00_JPRB,0.80141E+00_JPRB,0.82018E+00_JPRB,0.83708E+00_JPRB,0.85197E+00_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.75119E+00_JPRB,0.77590E+00_JPRB,0.79904E+00_JPRB,0.81994E+00_JPRB,0.83870E+00_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.72390E+00_JPRB,0.75373E+00_JPRB,0.78079E+00_JPRB,0.80579E+00_JPRB,0.82760E+00_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.70145E+00_JPRB,0.73523E+00_JPRB,0.76640E+00_JPRB,0.79456E+00_JPRB,0.81899E+00_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.68406E+00_JPRB,0.72159E+00_JPRB,0.75604E+00_JPRB,0.78669E+00_JPRB,0.81321E+00_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.67200E+00_JPRB,0.71253E+00_JPRB,0.74968E+00_JPRB,0.78214E+00_JPRB,0.81015E+00_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.66447E+00_JPRB,0.70740E+00_JPRB,0.74639E+00_JPRB,0.77996E+00_JPRB,0.80903E+00_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.66095E+00_JPRB,0.70586E+00_JPRB,0.74565E+00_JPRB,0.77995E+00_JPRB,0.80973E+00_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.66138E+00_JPRB,0.70727E+00_JPRB,0.74725E+00_JPRB,0.78204E+00_JPRB,0.81205E+00_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.66437E+00_JPRB,0.71055E+00_JPRB,0.75066E+00_JPRB,0.78572E+00_JPRB,0.81538E+00_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.66969E+00_JPRB,0.71558E+00_JPRB,0.75561E+00_JPRB,0.79049E+00_JPRB,0.81954E+00_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.67664E+00_JPRB,0.72206E+00_JPRB,0.76182E+00_JPRB,0.79609E+00_JPRB,0.82431E+00_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.68486E+00_JPRB,0.72960E+00_JPRB,0.76872E+00_JPRB,0.80214E+00_JPRB,0.82949E+00_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.69234E+00_JPRB,0.73624E+00_JPRB,0.77485E+00_JPRB,0.80729E+00_JPRB,0.83397E+00_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.69580E+00_JPRB,0.73958E+00_JPRB,0.77791E+00_JPRB,0.80990E+00_JPRB,0.83618E+00_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.69461E+00_JPRB,0.73878E+00_JPRB,0.77738E+00_JPRB,0.80959E+00_JPRB,0.83608E+00_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.68652E+00_JPRB,0.73194E+00_JPRB,0.77165E+00_JPRB,0.80500E+00_JPRB,0.83229E+00_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.67804E+00_JPRB,0.72484E+00_JPRB,0.76560E+00_JPRB,0.80009E+00_JPRB,0.82834E+00_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.66970E+00_JPRB,0.71778E+00_JPRB,0.75963E+00_JPRB,0.79504E+00_JPRB,0.82429E+00_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.65605E+00_JPRB,0.70590E+00_JPRB,0.74946E+00_JPRB,0.78658E+00_JPRB,0.81742E+00_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.64137E+00_JPRB,0.69306E+00_JPRB,0.73837E+00_JPRB,0.77717E+00_JPRB,0.80985E+00_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.62638E+00_JPRB,0.67987E+00_JPRB,0.72699E+00_JPRB,0.76756E+00_JPRB,0.80186E+00_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.60761E+00_JPRB,0.66320E+00_JPRB,0.71239E+00_JPRB,0.75526E+00_JPRB,0.79130E+00_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.58682E+00_JPRB,0.64468E+00_JPRB,0.69616E+00_JPRB,0.74131E+00_JPRB,0.77948E+00_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.56554E+00_JPRB,0.62545E+00_JPRB,0.67917E+00_JPRB,0.72630E+00_JPRB,0.76697E+00_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.54212E+00_JPRB,0.60419E+00_JPRB,0.66020E+00_JPRB,0.70997E+00_JPRB,0.75300E+00_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.51537E+00_JPRB,0.57955E+00_JPRB,0.63814E+00_JPRB,0.69060E+00_JPRB,0.73632E+00_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.48823E+00_JPRB,0.55406E+00_JPRB,0.61515E+00_JPRB,0.67007E+00_JPRB,0.71851E+00_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.46082E+00_JPRB,0.52769E+00_JPRB,0.59101E+00_JPRB,0.64854E+00_JPRB,0.69978E+00_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.43478E+00_JPRB,0.50249E+00_JPRB,0.56761E+00_JPRB,0.62745E+00_JPRB,0.68113E+00_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.40951E+00_JPRB,0.47777E+00_JPRB,0.54418E+00_JPRB,0.60613E+00_JPRB,0.66212E+00_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.38439E+00_JPRB,0.45288E+00_JPRB,0.52007E+00_JPRB,0.58405E+00_JPRB,0.64238E+00_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.35936E+00_JPRB,0.42773E+00_JPRB,0.49564E+00_JPRB,0.56121E+00_JPRB,0.62177E+00_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.33659E+00_JPRB,0.40461E+00_JPRB,0.47296E+00_JPRB,0.53959E+00_JPRB,0.60208E+00_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.31505E+00_JPRB,0.38259E+00_JPRB,0.45108E+00_JPRB,0.51845E+00_JPRB,0.58256E+00_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.29381E+00_JPRB,0.36074E+00_JPRB,0.42910E+00_JPRB,0.49702E+00_JPRB,0.56263E+00_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.27284E+00_JPRB,0.33897E+00_JPRB,0.40701E+00_JPRB,0.47542E+00_JPRB,0.54206E+00_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.25321E+00_JPRB,0.31859E+00_JPRB,0.38622E+00_JPRB,0.45477E+00_JPRB,0.52205E+00_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.24543E+00_JPRB,0.31049E+00_JPRB,0.37793E+00_JPRB,0.44646E+00_JPRB,0.51396E+00_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.17373E+01_JPRB,0.17393E+01_JPRB,0.17383E+01_JPRB,0.17344E+01_JPRB,0.17279E+01_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.18339E+01_JPRB,0.18343E+01_JPRB,0.18325E+01_JPRB,0.18267E+01_JPRB,0.18189E+01_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.19299E+01_JPRB,0.19296E+01_JPRB,0.19248E+01_JPRB,0.19184E+01_JPRB,0.19080E+01_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.20259E+01_JPRB,0.20224E+01_JPRB,0.20169E+01_JPRB,0.20066E+01_JPRB,0.19945E+01_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.21175E+01_JPRB,0.21127E+01_JPRB,0.21039E+01_JPRB,0.20921E+01_JPRB,0.20768E+01_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.22042E+01_JPRB,0.21972E+01_JPRB,0.21859E+01_JPRB,0.21721E+01_JPRB,0.21537E+01_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.22848E+01_JPRB,0.22747E+01_JPRB,0.22622E+01_JPRB,0.22448E+01_JPRB,0.22240E+01_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.23560E+01_JPRB,0.23462E+01_JPRB,0.23302E+01_JPRB,0.23098E+01_JPRB,0.22867E+01_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.24183E+01_JPRB,0.24082E+01_JPRB,0.23905E+01_JPRB,0.23680E+01_JPRB,0.23418E+01_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.24717E+01_JPRB,0.24598E+01_JPRB,0.24413E+01_JPRB,0.24169E+01_JPRB,0.23867E+01_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.25171E+01_JPRB,0.25034E+01_JPRB,0.24840E+01_JPRB,0.24570E+01_JPRB,0.24242E+01_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.25547E+01_JPRB,0.25403E+01_JPRB,0.25194E+01_JPRB,0.24898E+01_JPRB,0.24547E+01_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.25855E+01_JPRB,0.25703E+01_JPRB,0.25468E+01_JPRB,0.25156E+01_JPRB,0.24784E+01_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.26110E+01_JPRB,0.25944E+01_JPRB,0.25683E+01_JPRB,0.25352E+01_JPRB,0.24957E+01_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.26319E+01_JPRB,0.26130E+01_JPRB,0.25843E+01_JPRB,0.25495E+01_JPRB,0.25077E+01_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.26480E+01_JPRB,0.26264E+01_JPRB,0.25959E+01_JPRB,0.25590E+01_JPRB,0.25150E+01_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.26603E+01_JPRB,0.26355E+01_JPRB,0.26036E+01_JPRB,0.25644E+01_JPRB,0.25186E+01_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.26690E+01_JPRB,0.26417E+01_JPRB,0.26076E+01_JPRB,0.25661E+01_JPRB,0.25188E+01_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.26742E+01_JPRB,0.26446E+01_JPRB,0.26086E+01_JPRB,0.25648E+01_JPRB,0.25163E+01_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.26768E+01_JPRB,0.26452E+01_JPRB,0.26068E+01_JPRB,0.25609E+01_JPRB,0.25113E+01_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.26771E+01_JPRB,0.26434E+01_JPRB,0.26028E+01_JPRB,0.25551E+01_JPRB,0.25044E+01_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.26762E+01_JPRB,0.26409E+01_JPRB,0.25981E+01_JPRB,0.25494E+01_JPRB,0.24981E+01_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.26773E+01_JPRB,0.26407E+01_JPRB,0.25970E+01_JPRB,0.25475E+01_JPRB,0.24957E+01_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.26808E+01_JPRB,0.26440E+01_JPRB,0.25999E+01_JPRB,0.25501E+01_JPRB,0.24981E+01_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.26888E+01_JPRB,0.26526E+01_JPRB,0.26095E+01_JPRB,0.25599E+01_JPRB,0.25079E+01_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.26963E+01_JPRB,0.26609E+01_JPRB,0.26186E+01_JPRB,0.25695E+01_JPRB,0.25177E+01_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.27030E+01_JPRB,0.26686E+01_JPRB,0.26272E+01_JPRB,0.25787E+01_JPRB,0.25269E+01_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.27118E+01_JPRB,0.26792E+01_JPRB,0.26399E+01_JPRB,0.25927E+01_JPRB,0.25414E+01_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.27201E+01_JPRB,0.26898E+01_JPRB,0.26520E+01_JPRB,0.26068E+01_JPRB,0.25561E+01_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.27274E+01_JPRB,0.27000E+01_JPRB,0.26636E+01_JPRB,0.26203E+01_JPRB,0.25704E+01_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.27341E+01_JPRB,0.27108E+01_JPRB,0.26767E+01_JPRB,0.26357E+01_JPRB,0.25871E+01_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.27398E+01_JPRB,0.27209E+01_JPRB,0.26898E+01_JPRB,0.26513E+01_JPRB,0.26050E+01_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.27435E+01_JPRB,0.27298E+01_JPRB,0.27021E+01_JPRB,0.26655E+01_JPRB,0.26220E+01_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.27454E+01_JPRB,0.27371E+01_JPRB,0.27139E+01_JPRB,0.26799E+01_JPRB,0.26391E+01_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.27460E+01_JPRB,0.27424E+01_JPRB,0.27253E+01_JPRB,0.26950E+01_JPRB,0.26569E+01_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.27436E+01_JPRB,0.27457E+01_JPRB,0.27342E+01_JPRB,0.27088E+01_JPRB,0.26736E+01_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.27370E+01_JPRB,0.27470E+01_JPRB,0.27411E+01_JPRB,0.27207E+01_JPRB,0.26888E+01_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.27269E+01_JPRB,0.27459E+01_JPRB,0.27451E+01_JPRB,0.27305E+01_JPRB,0.27022E+01_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.27139E+01_JPRB,0.27424E+01_JPRB,0.27470E+01_JPRB,0.27377E+01_JPRB,0.27140E+01_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.26965E+01_JPRB,0.27350E+01_JPRB,0.27474E+01_JPRB,0.27429E+01_JPRB,0.27243E+01_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.26758E+01_JPRB,0.27241E+01_JPRB,0.27457E+01_JPRB,0.27461E+01_JPRB,0.27331E+01_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.26529E+01_JPRB,0.27108E+01_JPRB,0.27417E+01_JPRB,0.27475E+01_JPRB,0.27393E+01_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.26271E+01_JPRB,0.26955E+01_JPRB,0.27349E+01_JPRB,0.27476E+01_JPRB,0.27437E+01_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.25970E+01_JPRB,0.26775E+01_JPRB,0.27251E+01_JPRB,0.27462E+01_JPRB,0.27464E+01_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.25617E+01_JPRB,0.26559E+01_JPRB,0.27125E+01_JPRB,0.27426E+01_JPRB,0.27477E+01_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.25247E+01_JPRB,0.26320E+01_JPRB,0.26988E+01_JPRB,0.27363E+01_JPRB,0.27482E+01_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.25089E+01_JPRB,0.26212E+01_JPRB,0.26923E+01_JPRB,0.27333E+01_JPRB,0.27480E+01_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.36859E+01_JPRB,0.36950E+01_JPRB,0.36942E+01_JPRB,0.36830E+01_JPRB,0.36649E+01_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.41563E+01_JPRB,0.41556E+01_JPRB,0.41430E+01_JPRB,0.41233E+01_JPRB,0.40913E+01_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.46342E+01_JPRB,0.46206E+01_JPRB,0.45970E+01_JPRB,0.45604E+01_JPRB,0.45153E+01_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.51044E+01_JPRB,0.50788E+01_JPRB,0.50384E+01_JPRB,0.49882E+01_JPRB,0.49250E+01_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.55612E+01_JPRB,0.55175E+01_JPRB,0.54618E+01_JPRB,0.53932E+01_JPRB,0.53123E+01_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.59883E+01_JPRB,0.59323E+01_JPRB,0.58578E+01_JPRB,0.57682E+01_JPRB,0.56700E+01_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.63852E+01_JPRB,0.63106E+01_JPRB,0.62177E+01_JPRB,0.61123E+01_JPRB,0.59947E+01_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.67473E+01_JPRB,0.66496E+01_JPRB,0.65407E+01_JPRB,0.64159E+01_JPRB,0.62789E+01_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.70720E+01_JPRB,0.69522E+01_JPRB,0.68220E+01_JPRB,0.66792E+01_JPRB,0.65258E+01_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.73512E+01_JPRB,0.72082E+01_JPRB,0.70565E+01_JPRB,0.68942E+01_JPRB,0.67258E+01_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.75866E+01_JPRB,0.74239E+01_JPRB,0.72515E+01_JPRB,0.70718E+01_JPRB,0.68886E+01_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.77818E+01_JPRB,0.75993E+01_JPRB,0.74076E+01_JPRB,0.72128E+01_JPRB,0.70154E+01_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.79381E+01_JPRB,0.77379E+01_JPRB,0.75298E+01_JPRB,0.73205E+01_JPRB,0.71111E+01_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.80556E+01_JPRB,0.78384E+01_JPRB,0.76185E+01_JPRB,0.73961E+01_JPRB,0.71755E+01_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.81409E+01_JPRB,0.79095E+01_JPRB,0.76795E+01_JPRB,0.74472E+01_JPRB,0.72174E+01_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.81987E+01_JPRB,0.79569E+01_JPRB,0.77176E+01_JPRB,0.74766E+01_JPRB,0.72412E+01_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.82302E+01_JPRB,0.79809E+01_JPRB,0.77337E+01_JPRB,0.74875E+01_JPRB,0.72468E+01_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.82419E+01_JPRB,0.79875E+01_JPRB,0.77343E+01_JPRB,0.74825E+01_JPRB,0.72390E+01_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.82369E+01_JPRB,0.79780E+01_JPRB,0.77201E+01_JPRB,0.74661E+01_JPRB,0.72183E+01_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.82187E+01_JPRB,0.79550E+01_JPRB,0.76944E+01_JPRB,0.74386E+01_JPRB,0.71874E+01_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.81889E+01_JPRB,0.79220E+01_JPRB,0.76592E+01_JPRB,0.74026E+01_JPRB,0.71493E+01_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.81602E+01_JPRB,0.78912E+01_JPRB,0.76262E+01_JPRB,0.73693E+01_JPRB,0.71134E+01_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.81506E+01_JPRB,0.78799E+01_JPRB,0.76144E+01_JPRB,0.73562E+01_JPRB,0.70988E+01_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.81664E+01_JPRB,0.78930E+01_JPRB,0.76263E+01_JPRB,0.73664E+01_JPRB,0.71072E+01_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.82200E+01_JPRB,0.79452E+01_JPRB,0.76751E+01_JPRB,0.74132E+01_JPRB,0.71537E+01_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.82730E+01_JPRB,0.79962E+01_JPRB,0.77251E+01_JPRB,0.74606E+01_JPRB,0.72002E+01_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.83243E+01_JPRB,0.80459E+01_JPRB,0.77713E+01_JPRB,0.75063E+01_JPRB,0.72452E+01_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.84027E+01_JPRB,0.81225E+01_JPRB,0.78456E+01_JPRB,0.75775E+01_JPRB,0.73152E+01_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.84834E+01_JPRB,0.82013E+01_JPRB,0.79233E+01_JPRB,0.76507E+01_JPRB,0.73874E+01_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.85638E+01_JPRB,0.82794E+01_JPRB,0.79999E+01_JPRB,0.77248E+01_JPRB,0.74594E+01_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.86608E+01_JPRB,0.83728E+01_JPRB,0.80910E+01_JPRB,0.78137E+01_JPRB,0.75464E+01_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.87658E+01_JPRB,0.84741E+01_JPRB,0.81903E+01_JPRB,0.79102E+01_JPRB,0.76390E+01_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.88709E+01_JPRB,0.85747E+01_JPRB,0.82886E+01_JPRB,0.80079E+01_JPRB,0.77318E+01_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.89828E+01_JPRB,0.86839E+01_JPRB,0.83945E+01_JPRB,0.81115E+01_JPRB,0.78321E+01_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.91067E+01_JPRB,0.88066E+01_JPRB,0.85118E+01_JPRB,0.82270E+01_JPRB,0.79459E+01_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.92318E+01_JPRB,0.89292E+01_JPRB,0.86312E+01_JPRB,0.83427E+01_JPRB,0.80595E+01_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.93597E+01_JPRB,0.90533E+01_JPRB,0.87516E+01_JPRB,0.84602E+01_JPRB,0.81749E+01_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.94828E+01_JPRB,0.91681E+01_JPRB,0.88667E+01_JPRB,0.85700E+01_JPRB,0.82833E+01_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.96031E+01_JPRB,0.92821E+01_JPRB,0.89785E+01_JPRB,0.86778E+01_JPRB,0.83878E+01_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.97227E+01_JPRB,0.93978E+01_JPRB,0.90892E+01_JPRB,0.87879E+01_JPRB,0.84938E+01_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.98436E+01_JPRB,0.95182E+01_JPRB,0.92014E+01_JPRB,0.88988E+01_JPRB,0.86011E+01_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.99573E+01_JPRB,0.96274E+01_JPRB,0.93049E+01_JPRB,0.90008E+01_JPRB,0.87001E+01_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.10066E+02_JPRB,0.97327E+01_JPRB,0.94075E+01_JPRB,0.90983E+01_JPRB,0.87962E+01_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.10177E+02_JPRB,0.98378E+01_JPRB,0.95127E+01_JPRB,0.91960E+01_JPRB,0.88926E+01_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.10293E+02_JPRB,0.99462E+01_JPRB,0.96173E+01_JPRB,0.92949E+01_JPRB,0.89909E+01_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.10405E+02_JPRB,0.10049E+02_JPRB,0.97160E+01_JPRB,0.93909E+01_JPRB,0.90821E+01_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.10450E+02_JPRB,0.10090E+02_JPRB,0.97556E+01_JPRB,0.94305E+01_JPRB,0.91193E+01_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.50473E+01_JPRB,0.50398E+01_JPRB,0.50183E+01_JPRB,0.49834E+01_JPRB,0.49369E+01_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.59220E+01_JPRB,0.58911E+01_JPRB,0.58423E+01_JPRB,0.57748E+01_JPRB,0.56924E+01_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.68737E+01_JPRB,0.68078E+01_JPRB,0.67189E+01_JPRB,0.66072E+01_JPRB,0.64839E+01_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.78824E+01_JPRB,0.77694E+01_JPRB,0.76268E+01_JPRB,0.74643E+01_JPRB,0.72894E+01_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.89270E+01_JPRB,0.87413E+01_JPRB,0.85370E+01_JPRB,0.83130E+01_JPRB,0.80798E+01_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.99711E+01_JPRB,0.97011E+01_JPRB,0.94250E+01_JPRB,0.91345E+01_JPRB,0.88363E+01_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.10989E+02_JPRB,0.10627E+02_JPRB,0.10268E+02_JPRB,0.99076E+01_JPRB,0.95430E+01_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.11944E+02_JPRB,0.11487E+02_JPRB,0.11042E+02_JPRB,0.10609E+02_JPRB,0.10177E+02_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.12817E+02_JPRB,0.12265E+02_JPRB,0.11737E+02_JPRB,0.11232E+02_JPRB,0.10736E+02_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.13548E+02_JPRB,0.12914E+02_JPRB,0.12305E+02_JPRB,0.11734E+02_JPRB,0.11183E+02_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.14162E+02_JPRB,0.13448E+02_JPRB,0.12773E+02_JPRB,0.12143E+02_JPRB,0.11545E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,24,16) = (/ &
+ & 0.14655E+02_JPRB,0.13870E+02_JPRB,0.13141E+02_JPRB,0.12464E+02_JPRB,0.11822E+02_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.15031E+02_JPRB,0.14189E+02_JPRB,0.13415E+02_JPRB,0.12699E+02_JPRB,0.12023E+02_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.15288E+02_JPRB,0.14405E+02_JPRB,0.13595E+02_JPRB,0.12850E+02_JPRB,0.12149E+02_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.15452E+02_JPRB,0.14541E+02_JPRB,0.13705E+02_JPRB,0.12937E+02_JPRB,0.12216E+02_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.15538E+02_JPRB,0.14608E+02_JPRB,0.13754E+02_JPRB,0.12971E+02_JPRB,0.12237E+02_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.15553E+02_JPRB,0.14613E+02_JPRB,0.13748E+02_JPRB,0.12957E+02_JPRB,0.12214E+02_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.15516E+02_JPRB,0.14571E+02_JPRB,0.13703E+02_JPRB,0.12907E+02_JPRB,0.12159E+02_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.15433E+02_JPRB,0.14488E+02_JPRB,0.13621E+02_JPRB,0.12822E+02_JPRB,0.12076E+02_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.15312E+02_JPRB,0.14373E+02_JPRB,0.13511E+02_JPRB,0.12712E+02_JPRB,0.11970E+02_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.15164E+02_JPRB,0.14234E+02_JPRB,0.13378E+02_JPRB,0.12584E+02_JPRB,0.11848E+02_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.15029E+02_JPRB,0.14108E+02_JPRB,0.13258E+02_JPRB,0.12470E+02_JPRB,0.11741E+02_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.14974E+02_JPRB,0.14055E+02_JPRB,0.13205E+02_JPRB,0.12418E+02_JPRB,0.11691E+02_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.15011E+02_JPRB,0.14086E+02_JPRB,0.13232E+02_JPRB,0.12441E+02_JPRB,0.11710E+02_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.15186E+02_JPRB,0.14243E+02_JPRB,0.13376E+02_JPRB,0.12573E+02_JPRB,0.11831E+02_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.15364E+02_JPRB,0.14405E+02_JPRB,0.13523E+02_JPRB,0.12708E+02_JPRB,0.11955E+02_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.15541E+02_JPRB,0.14562E+02_JPRB,0.13666E+02_JPRB,0.12840E+02_JPRB,0.12075E+02_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.15818E+02_JPRB,0.14814E+02_JPRB,0.13896E+02_JPRB,0.13052E+02_JPRB,0.12271E+02_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.16115E+02_JPRB,0.15082E+02_JPRB,0.14138E+02_JPRB,0.13278E+02_JPRB,0.12478E+02_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.16420E+02_JPRB,0.15352E+02_JPRB,0.14384E+02_JPRB,0.13504E+02_JPRB,0.12687E+02_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.16793E+02_JPRB,0.15690E+02_JPRB,0.14694E+02_JPRB,0.13784E+02_JPRB,0.12952E+02_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.17211E+02_JPRB,0.16062E+02_JPRB,0.15031E+02_JPRB,0.14091E+02_JPRB,0.13236E+02_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.17640E+02_JPRB,0.16447E+02_JPRB,0.15376E+02_JPRB,0.14411E+02_JPRB,0.13526E+02_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.18112E+02_JPRB,0.16870E+02_JPRB,0.15758E+02_JPRB,0.14754E+02_JPRB,0.13842E+02_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.18658E+02_JPRB,0.17363E+02_JPRB,0.16197E+02_JPRB,0.15151E+02_JPRB,0.14204E+02_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.19225E+02_JPRB,0.17876E+02_JPRB,0.16658E+02_JPRB,0.15564E+02_JPRB,0.14577E+02_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.19824E+02_JPRB,0.18409E+02_JPRB,0.17136E+02_JPRB,0.15993E+02_JPRB,0.14967E+02_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.20411E+02_JPRB,0.18926E+02_JPRB,0.17606E+02_JPRB,0.16414E+02_JPRB,0.15344E+02_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.21005E+02_JPRB,0.19452E+02_JPRB,0.18077E+02_JPRB,0.16838E+02_JPRB,0.15725E+02_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.21646E+02_JPRB,0.20001E+02_JPRB,0.18565E+02_JPRB,0.17278E+02_JPRB,0.16117E+02_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.22315E+02_JPRB,0.20576E+02_JPRB,0.19072E+02_JPRB,0.17736E+02_JPRB,0.16529E+02_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.22958E+02_JPRB,0.21134E+02_JPRB,0.19557E+02_JPRB,0.18172E+02_JPRB,0.16919E+02_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.23603E+02_JPRB,0.21694E+02_JPRB,0.20042E+02_JPRB,0.18600E+02_JPRB,0.17305E+02_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.24285E+02_JPRB,0.22278E+02_JPRB,0.20543E+02_JPRB,0.19044E+02_JPRB,0.17707E+02_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.24997E+02_JPRB,0.22887E+02_JPRB,0.21074E+02_JPRB,0.19504E+02_JPRB,0.18121E+02_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.25697E+02_JPRB,0.23494E+02_JPRB,0.21600E+02_JPRB,0.19961E+02_JPRB,0.18525E+02_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.25984E+02_JPRB,0.23748E+02_JPRB,0.21819E+02_JPRB,0.20147E+02_JPRB,0.18689E+02_JPRB /)  
+  
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.106275E-05_JPRB, 0.104185E-05_JPRB, 0.420154E-05_JPRB /)
+FORREF(:, 2) = (/ 0.154343E-05_JPRB, 0.653193E-05_JPRB, 0.174596E-04_JPRB /)
+FORREF(:, 3) = (/ 0.348917E-05_JPRB, 0.108420E-04_JPRB, 0.540849E-04_JPRB /)
+FORREF(:, 4) = (/ 0.145822E-04_JPRB, 0.156027E-04_JPRB, 0.881263E-04_JPRB /)
+FORREF(:, 5) = (/ 0.220204E-04_JPRB, 0.819892E-04_JPRB, 0.817937E-04_JPRB /)
+FORREF(:, 6) = (/ 0.447840E-04_JPRB, 0.121116E-03_JPRB, 0.932635E-04_JPRB /)
+FORREF(:, 7) = (/ 0.166516E-03_JPRB, 0.147640E-03_JPRB, 0.754029E-04_JPRB /)
+FORREF(:, 8) = (/ 0.234756E-03_JPRB, 0.145934E-03_JPRB, 0.771734E-04_JPRB /)
+FORREF(:, 9) = (/ 0.289207E-03_JPRB, 0.146768E-03_JPRB, 0.677806E-04_JPRB /)
+FORREF(:,10) = (/ 0.334959E-03_JPRB, 0.125513E-03_JPRB, 0.636648E-04_JPRB /)
+FORREF(:,11) = (/ 0.333755E-03_JPRB, 0.136575E-03_JPRB, 0.593651E-04_JPRB /)
+FORREF(:,12) = (/ 0.340042E-03_JPRB, 0.116259E-03_JPRB, 0.595192E-04_JPRB /)
+FORREF(:,13) = (/ 0.422470E-03_JPRB, 0.148691E-03_JPRB, 0.630266E-04_JPRB /)
+FORREF(:,14) = (/ 0.440655E-03_JPRB, 0.461917E-04_JPRB, 0.108222E-04_JPRB /)
+FORREF(:,15) = (/ 0.486207E-03_JPRB, 0.428458E-03_JPRB, 0.108086E-04_JPRB /)
+FORREF(:,16) = (/ 0.657463E-03_JPRB, 0.657446E-03_JPRB, 0.126190E-04_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+     
+SELFREF(:, 1) = (/ &
+ & 0.331728E-03_JPRB, 0.287480E-03_JPRB, 0.249135E-03_JPRB, 0.215904E-03_JPRB, 0.187106E-03_JPRB, &
+ & 0.162149E-03_JPRB, 0.140520E-03_JPRB, 0.121777E-03_JPRB, 0.105534E-03_JPRB, 0.914573E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.882628E-03_JPRB, 0.698914E-03_JPRB, 0.553439E-03_JPRB, 0.438244E-03_JPRB, 0.347026E-03_JPRB, &
+ & 0.274795E-03_JPRB, 0.217598E-03_JPRB, 0.172306E-03_JPRB, 0.136442E-03_JPRB, 0.108042E-03_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.115461E-02_JPRB, 0.937203E-03_JPRB, 0.760730E-03_JPRB, 0.617486E-03_JPRB, 0.501215E-03_JPRB, &
+ & 0.406837E-03_JPRB, 0.330231E-03_JPRB, 0.268049E-03_JPRB, 0.217576E-03_JPRB, 0.176607E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.103450E-02_JPRB, 0.960268E-03_JPRB, 0.891360E-03_JPRB, 0.827397E-03_JPRB, 0.768024E-03_JPRB, &
+ & 0.712911E-03_JPRB, 0.661754E-03_JPRB, 0.614267E-03_JPRB, 0.570188E-03_JPRB, 0.529272E-03_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.289040E-02_JPRB, 0.240129E-02_JPRB, 0.199495E-02_JPRB, 0.165737E-02_JPRB, 0.137692E-02_JPRB, &
+ & 0.114392E-02_JPRB, 0.950351E-03_JPRB, 0.789535E-03_JPRB, 0.655933E-03_JPRB, 0.544938E-03_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.361772E-02_JPRB, 0.306611E-02_JPRB, 0.259861E-02_JPRB, 0.220239E-02_JPRB, 0.186659E-02_JPRB, &
+ & 0.158198E-02_JPRB, 0.134077E-02_JPRB, 0.113634E-02_JPRB, 0.963078E-03_JPRB, 0.816234E-03_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.329878E-02_JPRB, 0.318245E-02_JPRB, 0.307021E-02_JPRB, 0.296194E-02_JPRB, 0.285749E-02_JPRB, &
+ & 0.275671E-02_JPRB, 0.265950E-02_JPRB, 0.256571E-02_JPRB, 0.247522E-02_JPRB, 0.238793E-02_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.293562E-02_JPRB, 0.300077E-02_JPRB, 0.306737E-02_JPRB, 0.313544E-02_JPRB, 0.320503E-02_JPRB, &
+ & 0.327615E-02_JPRB, 0.334886E-02_JPRB, 0.342318E-02_JPRB, 0.349915E-02_JPRB, 0.357680E-02_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.281453E-02_JPRB, 0.295894E-02_JPRB, 0.311076E-02_JPRB, 0.327038E-02_JPRB, 0.343818E-02_JPRB, &
+ & 0.361459E-02_JPRB, 0.380006E-02_JPRB, 0.399504E-02_JPRB, 0.420002E-02_JPRB, 0.441553E-02_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.239488E-02_JPRB, 0.262487E-02_JPRB, 0.287696E-02_JPRB, 0.315325E-02_JPRB, 0.345607E-02_JPRB, &
+ & 0.378798E-02_JPRB, 0.415176E-02_JPRB, 0.455048E-02_JPRB, 0.498749E-02_JPRB, 0.546647E-02_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.271001E-02_JPRB, 0.292235E-02_JPRB, 0.315134E-02_JPRB, 0.339826E-02_JPRB, 0.366453E-02_JPRB, &
+ & 0.395167E-02_JPRB, 0.426131E-02_JPRB, 0.459521E-02_JPRB, 0.495527E-02_JPRB, 0.534354E-02_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.206702E-02_JPRB, 0.232254E-02_JPRB, 0.260966E-02_JPRB, 0.293226E-02_JPRB, 0.329475E-02_JPRB, &
+ & 0.370204E-02_JPRB, 0.415969E-02_JPRB, 0.467391E-02_JPRB, 0.525169E-02_JPRB, 0.590090E-02_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.227023E-02_JPRB, 0.257331E-02_JPRB, 0.291685E-02_JPRB, 0.330626E-02_JPRB, 0.374766E-02_JPRB, &
+ & 0.424799E-02_JPRB, 0.481511E-02_JPRB, 0.545794E-02_JPRB, 0.618660E-02_JPRB, 0.701253E-02_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.851078E-03_JPRB, 0.111512E-02_JPRB, 0.146109E-02_JPRB, 0.191439E-02_JPRB, 0.250832E-02_JPRB, &
+ & 0.328653E-02_JPRB, 0.430617E-02_JPRB, 0.564215E-02_JPRB, 0.739261E-02_JPRB, 0.968616E-02_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.742711E-02_JPRB, 0.721347E-02_JPRB, 0.700598E-02_JPRB, 0.680446E-02_JPRB, 0.660873E-02_JPRB, &
+ & 0.641863E-02_JPRB, 0.623400E-02_JPRB, 0.605468E-02_JPRB, 0.588052E-02_JPRB, 0.571137E-02_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.107170E-01_JPRB, 0.101913E-01_JPRB, 0.969138E-02_JPRB, 0.921599E-02_JPRB, 0.876392E-02_JPRB, &
+ & 0.833402E-02_JPRB, 0.792521E-02_JPRB, 0.753646E-02_JPRB, 0.716677E-02_JPRB, 0.681522E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB19
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb19.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb19.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb19.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB19
+END SUBROUTINE SRTM_KGB19
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.F90	(revision 3330)
@@ -0,0 +1,2077 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB20
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA20, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, ABSCH4 &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB20',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 9.34081_JPRB , 8.93720_JPRB    , 8.19346_JPRB    , 7.39196_JPRB    , &
+ & 6.12127_JPRB , 5.23956_JPRB    , 4.24941_JPRB    , 3.20013_JPRB    , &
+ & 2.16047_JPRB , 0.234509_JPRB   , 0.194593_JPRB   , 0.151512_JPRB   , &
+ & 0.110315_JPRB, 7.09959E-02_JPRB, 2.70573E-02_JPRB, 3.36042E-03_JPRB /)  
+  
+ABSCH4 = (/   &
+ & 1.01381E-03_JPRB,6.33692E-03_JPRB,1.94185E-02_JPRB,4.83210E-02_JPRB, &
+ & 2.36574E-03_JPRB,6.61973E-04_JPRB,5.64552E-04_JPRB,2.83183E-04_JPRB, &
+ & 7.43623E-05_JPRB,8.90159E-07_JPRB,6.98728E-07_JPRB,6.51832E-08_JPRB, &
+ & 2.96619E-08_JPRB,         0._JPRB,         0._JPRB,         0._JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 5670 cm-1.
+RAYL = 4.12E-09_JPRB
+
+LAYREFFR = 3
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.78383E-06_JPRB,0.86220E-06_JPRB,0.95359E-06_JPRB,0.10590E-05_JPRB,0.11782E-05_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.65040E-06_JPRB,0.72510E-06_JPRB,0.81318E-06_JPRB,0.90059E-06_JPRB,0.99786E-06_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.58072E-06_JPRB,0.65888E-06_JPRB,0.74265E-06_JPRB,0.81854E-06_JPRB,0.90645E-06_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.53601E-06_JPRB,0.60765E-06_JPRB,0.68088E-06_JPRB,0.75741E-06_JPRB,0.83801E-06_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.50142E-06_JPRB,0.56951E-06_JPRB,0.64028E-06_JPRB,0.71944E-06_JPRB,0.79813E-06_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.47164E-06_JPRB,0.54008E-06_JPRB,0.61040E-06_JPRB,0.68006E-06_JPRB,0.75034E-06_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.49337E-06_JPRB,0.56178E-06_JPRB,0.62215E-06_JPRB,0.69127E-06_JPRB,0.76060E-06_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.61581E-06_JPRB,0.70117E-06_JPRB,0.78942E-06_JPRB,0.87145E-06_JPRB,0.94647E-06_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.14154E-05_JPRB,0.15754E-05_JPRB,0.17261E-05_JPRB,0.18739E-05_JPRB,0.19774E-05_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.34186E-05_JPRB,0.37012E-05_JPRB,0.39602E-05_JPRB,0.42235E-05_JPRB,0.44256E-05_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.38574E-05_JPRB,0.42080E-05_JPRB,0.44701E-05_JPRB,0.47454E-05_JPRB,0.50002E-05_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.35794E-05_JPRB,0.38686E-05_JPRB,0.41443E-05_JPRB,0.43939E-05_JPRB,0.46500E-05_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.29586E-05_JPRB,0.31938E-05_JPRB,0.34167E-05_JPRB,0.36253E-05_JPRB,0.38250E-05_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.57098E-05_JPRB,0.64630E-05_JPRB,0.73117E-05_JPRB,0.82436E-05_JPRB,0.91947E-05_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.46384E-05_JPRB,0.53125E-05_JPRB,0.60301E-05_JPRB,0.68028E-05_JPRB,0.75824E-05_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.40657E-05_JPRB,0.46486E-05_JPRB,0.52459E-05_JPRB,0.58955E-05_JPRB,0.65546E-05_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.38895E-05_JPRB,0.44258E-05_JPRB,0.49759E-05_JPRB,0.55663E-05_JPRB,0.61702E-05_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.38971E-05_JPRB,0.44359E-05_JPRB,0.49933E-05_JPRB,0.55523E-05_JPRB,0.61234E-05_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.39532E-05_JPRB,0.44644E-05_JPRB,0.49734E-05_JPRB,0.54875E-05_JPRB,0.60102E-05_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.41068E-05_JPRB,0.45832E-05_JPRB,0.50698E-05_JPRB,0.55521E-05_JPRB,0.60175E-05_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.47922E-05_JPRB,0.52156E-05_JPRB,0.56817E-05_JPRB,0.61576E-05_JPRB,0.66313E-05_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.83199E-05_JPRB,0.88317E-05_JPRB,0.93688E-05_JPRB,0.99754E-05_JPRB,0.10620E-04_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.16836E-04_JPRB,0.18526E-04_JPRB,0.19887E-04_JPRB,0.21168E-04_JPRB,0.22104E-04_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.18882E-04_JPRB,0.21005E-04_JPRB,0.22896E-04_JPRB,0.24777E-04_JPRB,0.26115E-04_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.17744E-04_JPRB,0.19780E-04_JPRB,0.21600E-04_JPRB,0.23523E-04_JPRB,0.25128E-04_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.14736E-04_JPRB,0.16356E-04_JPRB,0.17955E-04_JPRB,0.19533E-04_JPRB,0.20861E-04_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.41776E-04_JPRB,0.48150E-04_JPRB,0.55097E-04_JPRB,0.62661E-04_JPRB,0.70920E-04_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.33909E-04_JPRB,0.39176E-04_JPRB,0.44622E-04_JPRB,0.50754E-04_JPRB,0.57336E-04_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.27438E-04_JPRB,0.31473E-04_JPRB,0.36122E-04_JPRB,0.41134E-04_JPRB,0.46456E-04_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.23222E-04_JPRB,0.26535E-04_JPRB,0.30141E-04_JPRB,0.34099E-04_JPRB,0.38416E-04_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.21114E-04_JPRB,0.23888E-04_JPRB,0.26883E-04_JPRB,0.30340E-04_JPRB,0.33785E-04_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.20750E-04_JPRB,0.22926E-04_JPRB,0.25536E-04_JPRB,0.28492E-04_JPRB,0.31676E-04_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.21584E-04_JPRB,0.24112E-04_JPRB,0.26872E-04_JPRB,0.29794E-04_JPRB,0.32940E-04_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.24194E-04_JPRB,0.26981E-04_JPRB,0.30137E-04_JPRB,0.33546E-04_JPRB,0.37182E-04_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.37461E-04_JPRB,0.42158E-04_JPRB,0.46718E-04_JPRB,0.51048E-04_JPRB,0.55154E-04_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.72391E-04_JPRB,0.77164E-04_JPRB,0.84016E-04_JPRB,0.89658E-04_JPRB,0.95511E-04_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.91736E-04_JPRB,0.99107E-04_JPRB,0.10463E-03_JPRB,0.10952E-03_JPRB,0.11549E-03_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.91200E-04_JPRB,0.98812E-04_JPRB,0.10432E-03_JPRB,0.10893E-03_JPRB,0.11349E-03_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.76217E-04_JPRB,0.82702E-04_JPRB,0.87500E-04_JPRB,0.91349E-04_JPRB,0.95349E-04_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.71705E-03_JPRB,0.82743E-03_JPRB,0.94700E-03_JPRB,0.10670E-02_JPRB,0.11902E-02_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.57909E-03_JPRB,0.67096E-03_JPRB,0.76724E-03_JPRB,0.86582E-03_JPRB,0.97167E-03_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.44771E-03_JPRB,0.51997E-03_JPRB,0.59861E-03_JPRB,0.67967E-03_JPRB,0.76676E-03_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.34085E-03_JPRB,0.39833E-03_JPRB,0.46226E-03_JPRB,0.52889E-03_JPRB,0.60008E-03_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.26678E-03_JPRB,0.31234E-03_JPRB,0.36341E-03_JPRB,0.41663E-03_JPRB,0.47418E-03_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.20903E-03_JPRB,0.24718E-03_JPRB,0.28922E-03_JPRB,0.33353E-03_JPRB,0.38176E-03_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.17173E-03_JPRB,0.20330E-03_JPRB,0.23711E-03_JPRB,0.27401E-03_JPRB,0.31445E-03_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.16722E-03_JPRB,0.19396E-03_JPRB,0.22307E-03_JPRB,0.25347E-03_JPRB,0.28561E-03_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.25043E-03_JPRB,0.28824E-03_JPRB,0.32547E-03_JPRB,0.36193E-03_JPRB,0.39806E-03_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.43323E-03_JPRB,0.48667E-03_JPRB,0.53462E-03_JPRB,0.57879E-03_JPRB,0.62040E-03_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.47719E-03_JPRB,0.52271E-03_JPRB,0.56402E-03_JPRB,0.60388E-03_JPRB,0.63520E-03_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.45061E-03_JPRB,0.49014E-03_JPRB,0.52391E-03_JPRB,0.55276E-03_JPRB,0.57760E-03_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.37664E-03_JPRB,0.40952E-03_JPRB,0.43690E-03_JPRB,0.46055E-03_JPRB,0.48018E-03_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.66466E-02_JPRB,0.68686E-02_JPRB,0.70897E-02_JPRB,0.73019E-02_JPRB,0.74914E-02_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.54023E-02_JPRB,0.56010E-02_JPRB,0.58008E-02_JPRB,0.59987E-02_JPRB,0.61685E-02_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.43218E-02_JPRB,0.45127E-02_JPRB,0.46848E-02_JPRB,0.48647E-02_JPRB,0.50267E-02_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.34639E-02_JPRB,0.36473E-02_JPRB,0.37951E-02_JPRB,0.39570E-02_JPRB,0.41049E-02_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.27745E-02_JPRB,0.29370E-02_JPRB,0.30754E-02_JPRB,0.32148E-02_JPRB,0.33492E-02_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.22020E-02_JPRB,0.23520E-02_JPRB,0.24836E-02_JPRB,0.25965E-02_JPRB,0.27119E-02_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.17624E-02_JPRB,0.18963E-02_JPRB,0.20161E-02_JPRB,0.21153E-02_JPRB,0.22116E-02_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.14169E-02_JPRB,0.15332E-02_JPRB,0.16350E-02_JPRB,0.17231E-02_JPRB,0.18121E-02_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.13030E-02_JPRB,0.13904E-02_JPRB,0.14690E-02_JPRB,0.15500E-02_JPRB,0.16275E-02_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.17155E-02_JPRB,0.18169E-02_JPRB,0.18943E-02_JPRB,0.19620E-02_JPRB,0.20215E-02_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.17156E-02_JPRB,0.17808E-02_JPRB,0.18419E-02_JPRB,0.18925E-02_JPRB,0.19313E-02_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.15269E-02_JPRB,0.15811E-02_JPRB,0.16283E-02_JPRB,0.16686E-02_JPRB,0.17061E-02_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.12768E-02_JPRB,0.13207E-02_JPRB,0.13555E-02_JPRB,0.13924E-02_JPRB,0.14234E-02_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.19191E-01_JPRB,0.19463E-01_JPRB,0.19692E-01_JPRB,0.19900E-01_JPRB,0.20112E-01_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.15967E-01_JPRB,0.16219E-01_JPRB,0.16426E-01_JPRB,0.16613E-01_JPRB,0.16805E-01_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.13186E-01_JPRB,0.13411E-01_JPRB,0.13614E-01_JPRB,0.13785E-01_JPRB,0.13944E-01_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.10935E-01_JPRB,0.11131E-01_JPRB,0.11318E-01_JPRB,0.11475E-01_JPRB,0.11620E-01_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.90541E-02_JPRB,0.92344E-02_JPRB,0.94035E-02_JPRB,0.95537E-02_JPRB,0.96862E-02_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.74724E-02_JPRB,0.76320E-02_JPRB,0.77794E-02_JPRB,0.79294E-02_JPRB,0.80528E-02_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.61183E-02_JPRB,0.62644E-02_JPRB,0.63961E-02_JPRB,0.65303E-02_JPRB,0.66478E-02_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.50638E-02_JPRB,0.51984E-02_JPRB,0.53222E-02_JPRB,0.54412E-02_JPRB,0.55465E-02_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.42870E-02_JPRB,0.44009E-02_JPRB,0.45109E-02_JPRB,0.45976E-02_JPRB,0.46796E-02_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.45239E-02_JPRB,0.46073E-02_JPRB,0.46968E-02_JPRB,0.47979E-02_JPRB,0.48956E-02_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.44089E-02_JPRB,0.45006E-02_JPRB,0.45881E-02_JPRB,0.46721E-02_JPRB,0.48015E-02_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.39598E-02_JPRB,0.40290E-02_JPRB,0.41108E-02_JPRB,0.41899E-02_JPRB,0.42672E-02_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.33425E-02_JPRB,0.34148E-02_JPRB,0.34808E-02_JPRB,0.35405E-02_JPRB,0.35983E-02_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.50165E-01_JPRB,0.50343E-01_JPRB,0.50452E-01_JPRB,0.50424E-01_JPRB,0.50329E-01_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.42723E-01_JPRB,0.42880E-01_JPRB,0.42939E-01_JPRB,0.42910E-01_JPRB,0.42861E-01_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.36117E-01_JPRB,0.36255E-01_JPRB,0.36301E-01_JPRB,0.36294E-01_JPRB,0.36288E-01_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.30585E-01_JPRB,0.30720E-01_JPRB,0.30787E-01_JPRB,0.30816E-01_JPRB,0.30842E-01_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.25879E-01_JPRB,0.26029E-01_JPRB,0.26116E-01_JPRB,0.26179E-01_JPRB,0.26225E-01_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.21822E-01_JPRB,0.21978E-01_JPRB,0.22094E-01_JPRB,0.22178E-01_JPRB,0.22244E-01_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.18304E-01_JPRB,0.18476E-01_JPRB,0.18606E-01_JPRB,0.18705E-01_JPRB,0.18780E-01_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.15224E-01_JPRB,0.15394E-01_JPRB,0.15519E-01_JPRB,0.15619E-01_JPRB,0.15690E-01_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.12835E-01_JPRB,0.13029E-01_JPRB,0.13169E-01_JPRB,0.13281E-01_JPRB,0.13369E-01_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.11632E-01_JPRB,0.11714E-01_JPRB,0.11760E-01_JPRB,0.11776E-01_JPRB,0.11806E-01_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.11170E-01_JPRB,0.11252E-01_JPRB,0.11288E-01_JPRB,0.11357E-01_JPRB,0.11397E-01_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.10404E-01_JPRB,0.10533E-01_JPRB,0.10705E-01_JPRB,0.10833E-01_JPRB,0.10947E-01_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.91041E-02_JPRB,0.92674E-02_JPRB,0.94068E-02_JPRB,0.95412E-02_JPRB,0.96769E-02_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.14527E+00_JPRB,0.14483E+00_JPRB,0.14432E+00_JPRB,0.14389E+00_JPRB,0.14349E+00_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.12739E+00_JPRB,0.12702E+00_JPRB,0.12661E+00_JPRB,0.12624E+00_JPRB,0.12584E+00_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.11091E+00_JPRB,0.11058E+00_JPRB,0.11024E+00_JPRB,0.10990E+00_JPRB,0.10953E+00_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.96590E-01_JPRB,0.96335E-01_JPRB,0.96105E-01_JPRB,0.95818E-01_JPRB,0.95530E-01_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.83799E-01_JPRB,0.83708E-01_JPRB,0.83572E-01_JPRB,0.83347E-01_JPRB,0.83126E-01_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.72369E-01_JPRB,0.72388E-01_JPRB,0.72289E-01_JPRB,0.72143E-01_JPRB,0.71981E-01_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.62158E-01_JPRB,0.62247E-01_JPRB,0.62185E-01_JPRB,0.62111E-01_JPRB,0.62007E-01_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.52998E-01_JPRB,0.53142E-01_JPRB,0.53162E-01_JPRB,0.53154E-01_JPRB,0.53101E-01_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.44776E-01_JPRB,0.44873E-01_JPRB,0.44920E-01_JPRB,0.44946E-01_JPRB,0.44885E-01_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.38237E-01_JPRB,0.38514E-01_JPRB,0.38716E-01_JPRB,0.38877E-01_JPRB,0.38966E-01_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.33511E-01_JPRB,0.33721E-01_JPRB,0.33843E-01_JPRB,0.33840E-01_JPRB,0.33839E-01_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.29704E-01_JPRB,0.29825E-01_JPRB,0.29808E-01_JPRB,0.29787E-01_JPRB,0.29794E-01_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.25973E-01_JPRB,0.26004E-01_JPRB,0.26032E-01_JPRB,0.26023E-01_JPRB,0.26107E-01_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.56699E+00_JPRB,0.56615E+00_JPRB,0.56479E+00_JPRB,0.56318E+00_JPRB,0.56135E+00_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.53130E+00_JPRB,0.53096E+00_JPRB,0.53038E+00_JPRB,0.52953E+00_JPRB,0.52828E+00_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.48947E+00_JPRB,0.48989E+00_JPRB,0.48991E+00_JPRB,0.48970E+00_JPRB,0.48916E+00_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.44646E+00_JPRB,0.44756E+00_JPRB,0.44841E+00_JPRB,0.44893E+00_JPRB,0.44859E+00_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.40428E+00_JPRB,0.40594E+00_JPRB,0.40746E+00_JPRB,0.40811E+00_JPRB,0.40825E+00_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.36305E+00_JPRB,0.36545E+00_JPRB,0.36730E+00_JPRB,0.36814E+00_JPRB,0.36854E+00_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.32383E+00_JPRB,0.32659E+00_JPRB,0.32849E+00_JPRB,0.32954E+00_JPRB,0.33028E+00_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.28691E+00_JPRB,0.28966E+00_JPRB,0.29156E+00_JPRB,0.29286E+00_JPRB,0.29379E+00_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.25109E+00_JPRB,0.25404E+00_JPRB,0.25607E+00_JPRB,0.25752E+00_JPRB,0.25870E+00_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.21600E+00_JPRB,0.21860E+00_JPRB,0.22047E+00_JPRB,0.22164E+00_JPRB,0.22251E+00_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.19149E+00_JPRB,0.19387E+00_JPRB,0.19567E+00_JPRB,0.19725E+00_JPRB,0.19809E+00_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.16914E+00_JPRB,0.17134E+00_JPRB,0.17303E+00_JPRB,0.17407E+00_JPRB,0.17494E+00_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.14841E+00_JPRB,0.15027E+00_JPRB,0.15244E+00_JPRB,0.15403E+00_JPRB,0.15523E+00_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.14885E+01_JPRB,0.14756E+01_JPRB,0.14663E+01_JPRB,0.14567E+01_JPRB,0.14479E+01_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.14911E+01_JPRB,0.14850E+01_JPRB,0.14762E+01_JPRB,0.14677E+01_JPRB,0.14597E+01_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.14749E+01_JPRB,0.14716E+01_JPRB,0.14663E+01_JPRB,0.14579E+01_JPRB,0.14502E+01_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.14314E+01_JPRB,0.14303E+01_JPRB,0.14232E+01_JPRB,0.14150E+01_JPRB,0.14115E+01_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.13616E+01_JPRB,0.13604E+01_JPRB,0.13539E+01_JPRB,0.13506E+01_JPRB,0.13501E+01_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.12710E+01_JPRB,0.12700E+01_JPRB,0.12670E+01_JPRB,0.12702E+01_JPRB,0.12745E+01_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.11674E+01_JPRB,0.11690E+01_JPRB,0.11727E+01_JPRB,0.11812E+01_JPRB,0.11854E+01_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.10584E+01_JPRB,0.10652E+01_JPRB,0.10757E+01_JPRB,0.10857E+01_JPRB,0.10906E+01_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.95450E+00_JPRB,0.96414E+00_JPRB,0.97673E+00_JPRB,0.98621E+00_JPRB,0.99187E+00_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.83626E+00_JPRB,0.84690E+00_JPRB,0.85901E+00_JPRB,0.86824E+00_JPRB,0.87535E+00_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.73738E+00_JPRB,0.74729E+00_JPRB,0.75610E+00_JPRB,0.75994E+00_JPRB,0.76481E+00_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.66891E+00_JPRB,0.67622E+00_JPRB,0.68092E+00_JPRB,0.68498E+00_JPRB,0.68877E+00_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.58616E+00_JPRB,0.59614E+00_JPRB,0.59749E+00_JPRB,0.60310E+00_JPRB,0.60445E+00_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.20080E+01_JPRB,0.19998E+01_JPRB,0.19844E+01_JPRB,0.19679E+01_JPRB,0.19504E+01_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.20896E+01_JPRB,0.20752E+01_JPRB,0.20596E+01_JPRB,0.20445E+01_JPRB,0.20293E+01_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.21262E+01_JPRB,0.21143E+01_JPRB,0.21043E+01_JPRB,0.20968E+01_JPRB,0.20862E+01_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.21310E+01_JPRB,0.21263E+01_JPRB,0.21243E+01_JPRB,0.21203E+01_JPRB,0.21144E+01_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.21041E+01_JPRB,0.21063E+01_JPRB,0.21071E+01_JPRB,0.21077E+01_JPRB,0.21021E+01_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.20447E+01_JPRB,0.20491E+01_JPRB,0.20534E+01_JPRB,0.20532E+01_JPRB,0.20477E+01_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.19487E+01_JPRB,0.19563E+01_JPRB,0.19608E+01_JPRB,0.19593E+01_JPRB,0.19591E+01_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.18239E+01_JPRB,0.18317E+01_JPRB,0.18359E+01_JPRB,0.18391E+01_JPRB,0.18451E+01_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.16772E+01_JPRB,0.16879E+01_JPRB,0.16955E+01_JPRB,0.17047E+01_JPRB,0.17179E+01_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.15007E+01_JPRB,0.15184E+01_JPRB,0.15343E+01_JPRB,0.15540E+01_JPRB,0.15756E+01_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.13041E+01_JPRB,0.13245E+01_JPRB,0.13445E+01_JPRB,0.13685E+01_JPRB,0.13888E+01_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.11590E+01_JPRB,0.11749E+01_JPRB,0.11906E+01_JPRB,0.12046E+01_JPRB,0.12212E+01_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.10681E+01_JPRB,0.10905E+01_JPRB,0.11017E+01_JPRB,0.10997E+01_JPRB,0.11116E+01_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.26762E+01_JPRB,0.26701E+01_JPRB,0.26710E+01_JPRB,0.26742E+01_JPRB,0.26733E+01_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.28804E+01_JPRB,0.28775E+01_JPRB,0.28798E+01_JPRB,0.28773E+01_JPRB,0.28700E+01_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.30825E+01_JPRB,0.30790E+01_JPRB,0.30757E+01_JPRB,0.30631E+01_JPRB,0.30471E+01_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.32355E+01_JPRB,0.32278E+01_JPRB,0.32144E+01_JPRB,0.31959E+01_JPRB,0.31753E+01_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.33271E+01_JPRB,0.33191E+01_JPRB,0.33073E+01_JPRB,0.32879E+01_JPRB,0.32714E+01_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.33604E+01_JPRB,0.33571E+01_JPRB,0.33478E+01_JPRB,0.33355E+01_JPRB,0.33272E+01_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.33406E+01_JPRB,0.33436E+01_JPRB,0.33436E+01_JPRB,0.33435E+01_JPRB,0.33409E+01_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.32648E+01_JPRB,0.32808E+01_JPRB,0.32919E+01_JPRB,0.32976E+01_JPRB,0.32999E+01_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.31373E+01_JPRB,0.31630E+01_JPRB,0.31816E+01_JPRB,0.31936E+01_JPRB,0.31991E+01_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.29678E+01_JPRB,0.29982E+01_JPRB,0.30244E+01_JPRB,0.30412E+01_JPRB,0.30500E+01_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.27380E+01_JPRB,0.27731E+01_JPRB,0.28013E+01_JPRB,0.28227E+01_JPRB,0.28455E+01_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.24616E+01_JPRB,0.24905E+01_JPRB,0.25348E+01_JPRB,0.25805E+01_JPRB,0.26155E+01_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.22251E+01_JPRB,0.22562E+01_JPRB,0.22966E+01_JPRB,0.23312E+01_JPRB,0.23811E+01_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.38031E+01_JPRB,0.37992E+01_JPRB,0.37926E+01_JPRB,0.37822E+01_JPRB,0.37755E+01_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.41542E+01_JPRB,0.41473E+01_JPRB,0.41391E+01_JPRB,0.41329E+01_JPRB,0.41296E+01_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.44998E+01_JPRB,0.44963E+01_JPRB,0.44896E+01_JPRB,0.44914E+01_JPRB,0.44937E+01_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.48464E+01_JPRB,0.48445E+01_JPRB,0.48485E+01_JPRB,0.48565E+01_JPRB,0.48598E+01_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.52074E+01_JPRB,0.52112E+01_JPRB,0.52168E+01_JPRB,0.52231E+01_JPRB,0.52210E+01_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.55492E+01_JPRB,0.55575E+01_JPRB,0.55655E+01_JPRB,0.55693E+01_JPRB,0.55642E+01_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.58380E+01_JPRB,0.58479E+01_JPRB,0.58509E+01_JPRB,0.58482E+01_JPRB,0.58453E+01_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.60377E+01_JPRB,0.60538E+01_JPRB,0.60594E+01_JPRB,0.60647E+01_JPRB,0.60640E+01_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.61268E+01_JPRB,0.61532E+01_JPRB,0.61730E+01_JPRB,0.61888E+01_JPRB,0.61993E+01_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.61216E+01_JPRB,0.61612E+01_JPRB,0.61936E+01_JPRB,0.62230E+01_JPRB,0.62454E+01_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.60409E+01_JPRB,0.60960E+01_JPRB,0.61462E+01_JPRB,0.61882E+01_JPRB,0.62219E+01_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.58645E+01_JPRB,0.59597E+01_JPRB,0.60234E+01_JPRB,0.60826E+01_JPRB,0.61390E+01_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.56001E+01_JPRB,0.57009E+01_JPRB,0.58017E+01_JPRB,0.59181E+01_JPRB,0.59860E+01_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.53647E+01_JPRB,0.53127E+01_JPRB,0.52736E+01_JPRB,0.52471E+01_JPRB,0.52264E+01_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.62359E+01_JPRB,0.61753E+01_JPRB,0.61253E+01_JPRB,0.60847E+01_JPRB,0.60573E+01_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.72065E+01_JPRB,0.71249E+01_JPRB,0.70556E+01_JPRB,0.69965E+01_JPRB,0.69559E+01_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.81631E+01_JPRB,0.80714E+01_JPRB,0.79828E+01_JPRB,0.79081E+01_JPRB,0.78545E+01_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.90691E+01_JPRB,0.89602E+01_JPRB,0.88621E+01_JPRB,0.87858E+01_JPRB,0.87314E+01_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.99707E+01_JPRB,0.98474E+01_JPRB,0.97395E+01_JPRB,0.96541E+01_JPRB,0.95904E+01_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.10852E+02_JPRB,0.10724E+02_JPRB,0.10620E+02_JPRB,0.10536E+02_JPRB,0.10469E+02_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.11716E+02_JPRB,0.11588E+02_JPRB,0.11487E+02_JPRB,0.11403E+02_JPRB,0.11337E+02_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.12572E+02_JPRB,0.12448E+02_JPRB,0.12341E+02_JPRB,0.12260E+02_JPRB,0.12188E+02_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.13374E+02_JPRB,0.13256E+02_JPRB,0.13159E+02_JPRB,0.13080E+02_JPRB,0.13010E+02_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.14046E+02_JPRB,0.13957E+02_JPRB,0.13888E+02_JPRB,0.13824E+02_JPRB,0.13769E+02_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.14644E+02_JPRB,0.14592E+02_JPRB,0.14548E+02_JPRB,0.14504E+02_JPRB,0.14461E+02_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.15144E+02_JPRB,0.15129E+02_JPRB,0.15111E+02_JPRB,0.15095E+02_JPRB,0.15074E+02_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.72019E+01_JPRB,0.71097E+01_JPRB,0.70236E+01_JPRB,0.69449E+01_JPRB,0.68844E+01_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.87604E+01_JPRB,0.86468E+01_JPRB,0.85349E+01_JPRB,0.84375E+01_JPRB,0.83491E+01_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.10615E+02_JPRB,0.10469E+02_JPRB,0.10333E+02_JPRB,0.10214E+02_JPRB,0.10099E+02_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.12669E+02_JPRB,0.12473E+02_JPRB,0.12305E+02_JPRB,0.12161E+02_JPRB,0.12026E+02_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.14978E+02_JPRB,0.14741E+02_JPRB,0.14530E+02_JPRB,0.14329E+02_JPRB,0.14143E+02_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.17562E+02_JPRB,0.17282E+02_JPRB,0.17031E+02_JPRB,0.16791E+02_JPRB,0.16552E+02_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.20480E+02_JPRB,0.20136E+02_JPRB,0.19827E+02_JPRB,0.19524E+02_JPRB,0.19223E+02_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.23734E+02_JPRB,0.23307E+02_JPRB,0.22908E+02_JPRB,0.22521E+02_JPRB,0.22160E+02_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.27249E+02_JPRB,0.26733E+02_JPRB,0.26255E+02_JPRB,0.25787E+02_JPRB,0.25354E+02_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.30889E+02_JPRB,0.30311E+02_JPRB,0.29740E+02_JPRB,0.29192E+02_JPRB,0.28690E+02_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.34366E+02_JPRB,0.33687E+02_JPRB,0.33035E+02_JPRB,0.32430E+02_JPRB,0.31843E+02_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.37839E+02_JPRB,0.37085E+02_JPRB,0.36360E+02_JPRB,0.35655E+02_JPRB,0.34957E+02_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.41323E+02_JPRB,0.40503E+02_JPRB,0.39673E+02_JPRB,0.38847E+02_JPRB,0.38049E+02_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.82631E+01_JPRB,0.81761E+01_JPRB,0.80809E+01_JPRB,0.79778E+01_JPRB,0.79010E+01_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.10258E+02_JPRB,0.10128E+02_JPRB,0.10005E+02_JPRB,0.98803E+01_JPRB,0.97700E+01_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.12786E+02_JPRB,0.12614E+02_JPRB,0.12441E+02_JPRB,0.12267E+02_JPRB,0.12120E+02_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.15843E+02_JPRB,0.15549E+02_JPRB,0.15326E+02_JPRB,0.15095E+02_JPRB,0.14871E+02_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.19543E+02_JPRB,0.19089E+02_JPRB,0.18733E+02_JPRB,0.18430E+02_JPRB,0.18134E+02_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.24038E+02_JPRB,0.23415E+02_JPRB,0.22893E+02_JPRB,0.22427E+02_JPRB,0.22005E+02_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.29445E+02_JPRB,0.28630E+02_JPRB,0.27921E+02_JPRB,0.27268E+02_JPRB,0.26654E+02_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.35889E+02_JPRB,0.34849E+02_JPRB,0.33913E+02_JPRB,0.33036E+02_JPRB,0.32194E+02_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.43512E+02_JPRB,0.42175E+02_JPRB,0.40956E+02_JPRB,0.39809E+02_JPRB,0.38685E+02_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.52253E+02_JPRB,0.50582E+02_JPRB,0.49011E+02_JPRB,0.47508E+02_JPRB,0.46037E+02_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.61290E+02_JPRB,0.59240E+02_JPRB,0.57269E+02_JPRB,0.55343E+02_JPRB,0.53572E+02_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.71193E+02_JPRB,0.68607E+02_JPRB,0.66135E+02_JPRB,0.63828E+02_JPRB,0.61720E+02_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.81988E+02_JPRB,0.78665E+02_JPRB,0.75707E+02_JPRB,0.72932E+02_JPRB,0.70347E+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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.29597E-05_JPRB,0.31929E-05_JPRB,0.34159E-05_JPRB,0.36256E-05_JPRB,0.38264E-05_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.24233E-05_JPRB,0.26151E-05_JPRB,0.27866E-05_JPRB,0.29502E-05_JPRB,0.31170E-05_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.19206E-05_JPRB,0.20789E-05_JPRB,0.22099E-05_JPRB,0.23383E-05_JPRB,0.24505E-05_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.14933E-05_JPRB,0.16071E-05_JPRB,0.17039E-05_JPRB,0.17994E-05_JPRB,0.18816E-05_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.11429E-05_JPRB,0.12144E-05_JPRB,0.12895E-05_JPRB,0.13503E-05_JPRB,0.14174E-05_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.84134E-06_JPRB,0.89264E-06_JPRB,0.94260E-06_JPRB,0.99003E-06_JPRB,0.10391E-05_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.60683E-06_JPRB,0.64142E-06_JPRB,0.68018E-06_JPRB,0.72042E-06_JPRB,0.75479E-06_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.45809E-06_JPRB,0.48813E-06_JPRB,0.51934E-06_JPRB,0.54823E-06_JPRB,0.57261E-06_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.35219E-06_JPRB,0.37835E-06_JPRB,0.40322E-06_JPRB,0.42772E-06_JPRB,0.44736E-06_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.27419E-06_JPRB,0.29542E-06_JPRB,0.31617E-06_JPRB,0.33398E-06_JPRB,0.34932E-06_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.21385E-06_JPRB,0.23127E-06_JPRB,0.24670E-06_JPRB,0.25951E-06_JPRB,0.26952E-06_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.16767E-06_JPRB,0.18179E-06_JPRB,0.19282E-06_JPRB,0.20136E-06_JPRB,0.21113E-06_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.13361E-06_JPRB,0.14301E-06_JPRB,0.14980E-06_JPRB,0.15778E-06_JPRB,0.16615E-06_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.10615E-06_JPRB,0.11218E-06_JPRB,0.11889E-06_JPRB,0.12574E-06_JPRB,0.13111E-06_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.83660E-07_JPRB,0.89296E-07_JPRB,0.95019E-07_JPRB,0.10007E-06_JPRB,0.10397E-06_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.66667E-07_JPRB,0.71217E-07_JPRB,0.75615E-07_JPRB,0.79237E-07_JPRB,0.82239E-07_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.52776E-07_JPRB,0.56086E-07_JPRB,0.59828E-07_JPRB,0.62513E-07_JPRB,0.64218E-07_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.41429E-07_JPRB,0.44370E-07_JPRB,0.46731E-07_JPRB,0.48553E-07_JPRB,0.50143E-07_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.32437E-07_JPRB,0.34523E-07_JPRB,0.36208E-07_JPRB,0.37500E-07_JPRB,0.38571E-07_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.25237E-07_JPRB,0.26730E-07_JPRB,0.27868E-07_JPRB,0.28829E-07_JPRB,0.29943E-07_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.19545E-07_JPRB,0.20614E-07_JPRB,0.21467E-07_JPRB,0.22280E-07_JPRB,0.23141E-07_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.15146E-07_JPRB,0.15869E-07_JPRB,0.16509E-07_JPRB,0.17179E-07_JPRB,0.17980E-07_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.11482E-07_JPRB,0.12039E-07_JPRB,0.12547E-07_JPRB,0.13255E-07_JPRB,0.13874E-07_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.86172E-08_JPRB,0.90023E-08_JPRB,0.95607E-08_JPRB,0.10106E-07_JPRB,0.10595E-07_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.67411E-08_JPRB,0.70781E-08_JPRB,0.75553E-08_JPRB,0.79739E-08_JPRB,0.84011E-08_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.52604E-08_JPRB,0.55743E-08_JPRB,0.59410E-08_JPRB,0.63031E-08_JPRB,0.66516E-08_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.41129E-08_JPRB,0.43854E-08_JPRB,0.46851E-08_JPRB,0.49771E-08_JPRB,0.52463E-08_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.33089E-08_JPRB,0.35289E-08_JPRB,0.37702E-08_JPRB,0.40125E-08_JPRB,0.42415E-08_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.26794E-08_JPRB,0.28488E-08_JPRB,0.30428E-08_JPRB,0.32437E-08_JPRB,0.34420E-08_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.21670E-08_JPRB,0.23030E-08_JPRB,0.24589E-08_JPRB,0.26252E-08_JPRB,0.27867E-08_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.17699E-08_JPRB,0.18853E-08_JPRB,0.20001E-08_JPRB,0.21330E-08_JPRB,0.22657E-08_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.14446E-08_JPRB,0.15471E-08_JPRB,0.16397E-08_JPRB,0.17423E-08_JPRB,0.18526E-08_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.11734E-08_JPRB,0.12754E-08_JPRB,0.13542E-08_JPRB,0.14242E-08_JPRB,0.15193E-08_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.95743E-09_JPRB,0.10470E-08_JPRB,0.11183E-08_JPRB,0.11726E-08_JPRB,0.12389E-08_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.77345E-09_JPRB,0.85197E-09_JPRB,0.92184E-09_JPRB,0.97368E-09_JPRB,0.10149E-08_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.62500E-09_JPRB,0.69288E-09_JPRB,0.75548E-09_JPRB,0.80446E-09_JPRB,0.84428E-09_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.50095E-09_JPRB,0.55967E-09_JPRB,0.61904E-09_JPRB,0.66441E-09_JPRB,0.70339E-09_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.40806E-09_JPRB,0.45712E-09_JPRB,0.50530E-09_JPRB,0.54974E-09_JPRB,0.58246E-09_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.33102E-09_JPRB,0.37130E-09_JPRB,0.41121E-09_JPRB,0.45024E-09_JPRB,0.48436E-09_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.26906E-09_JPRB,0.30739E-09_JPRB,0.33845E-09_JPRB,0.36884E-09_JPRB,0.40024E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.22202E-09_JPRB,0.25108E-09_JPRB,0.27937E-09_JPRB,0.30592E-09_JPRB,0.33012E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.18662E-09_JPRB,0.20761E-09_JPRB,0.23072E-09_JPRB,0.25342E-09_JPRB,0.27445E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.15741E-09_JPRB,0.17147E-09_JPRB,0.19146E-09_JPRB,0.21029E-09_JPRB,0.22857E-09_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.13151E-09_JPRB,0.14637E-09_JPRB,0.15977E-09_JPRB,0.17547E-09_JPRB,0.18974E-09_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.10874E-09_JPRB,0.12447E-09_JPRB,0.13634E-09_JPRB,0.14752E-09_JPRB,0.16022E-09_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.90206E-10_JPRB,0.10484E-09_JPRB,0.11617E-09_JPRB,0.12545E-09_JPRB,0.13474E-09_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.76759E-10_JPRB,0.88866E-10_JPRB,0.99340E-10_JPRB,0.10706E-09_JPRB,0.11444E-09_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.14727E-04_JPRB,0.16357E-04_JPRB,0.17961E-04_JPRB,0.19530E-04_JPRB,0.20852E-04_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.12148E-04_JPRB,0.13478E-04_JPRB,0.14818E-04_JPRB,0.16049E-04_JPRB,0.17100E-04_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.96902E-05_JPRB,0.10787E-04_JPRB,0.11835E-04_JPRB,0.12770E-04_JPRB,0.13515E-04_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.76235E-05_JPRB,0.84575E-05_JPRB,0.92217E-05_JPRB,0.98526E-05_JPRB,0.10449E-04_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.58049E-05_JPRB,0.64239E-05_JPRB,0.69733E-05_JPRB,0.74131E-05_JPRB,0.78082E-05_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.43204E-05_JPRB,0.47510E-05_JPRB,0.51165E-05_JPRB,0.54579E-05_JPRB,0.57434E-05_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.32211E-05_JPRB,0.35327E-05_JPRB,0.38175E-05_JPRB,0.40535E-05_JPRB,0.42245E-05_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.25265E-05_JPRB,0.27652E-05_JPRB,0.29644E-05_JPRB,0.31331E-05_JPRB,0.32730E-05_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.19921E-05_JPRB,0.21749E-05_JPRB,0.23343E-05_JPRB,0.24377E-05_JPRB,0.25458E-05_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.15859E-05_JPRB,0.17259E-05_JPRB,0.18236E-05_JPRB,0.19124E-05_JPRB,0.19942E-05_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.12591E-05_JPRB,0.13565E-05_JPRB,0.14309E-05_JPRB,0.15032E-05_JPRB,0.15642E-05_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.10012E-05_JPRB,0.10701E-05_JPRB,0.11246E-05_JPRB,0.11819E-05_JPRB,0.12279E-05_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.78985E-06_JPRB,0.84074E-06_JPRB,0.89029E-06_JPRB,0.93145E-06_JPRB,0.97085E-06_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.62996E-06_JPRB,0.66847E-06_JPRB,0.70637E-06_JPRB,0.73513E-06_JPRB,0.77135E-06_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.50283E-06_JPRB,0.53111E-06_JPRB,0.55653E-06_JPRB,0.58306E-06_JPRB,0.61799E-06_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.39962E-06_JPRB,0.42320E-06_JPRB,0.44265E-06_JPRB,0.46715E-06_JPRB,0.49516E-06_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.31810E-06_JPRB,0.33597E-06_JPRB,0.35191E-06_JPRB,0.37448E-06_JPRB,0.39768E-06_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.25242E-06_JPRB,0.26447E-06_JPRB,0.28109E-06_JPRB,0.30089E-06_JPRB,0.31543E-06_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.19837E-06_JPRB,0.20954E-06_JPRB,0.22442E-06_JPRB,0.23762E-06_JPRB,0.25183E-06_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.15599E-06_JPRB,0.16701E-06_JPRB,0.17789E-06_JPRB,0.18880E-06_JPRB,0.20030E-06_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.12307E-06_JPRB,0.13211E-06_JPRB,0.14046E-06_JPRB,0.15111E-06_JPRB,0.15988E-06_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.98429E-07_JPRB,0.10498E-06_JPRB,0.11326E-06_JPRB,0.12074E-06_JPRB,0.12779E-06_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.77743E-07_JPRB,0.83951E-07_JPRB,0.90473E-07_JPRB,0.96277E-07_JPRB,0.10204E-06_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.61220E-07_JPRB,0.66399E-07_JPRB,0.71102E-07_JPRB,0.75946E-07_JPRB,0.80803E-07_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.48819E-07_JPRB,0.52962E-07_JPRB,0.56669E-07_JPRB,0.60817E-07_JPRB,0.64709E-07_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.38871E-07_JPRB,0.42226E-07_JPRB,0.45376E-07_JPRB,0.48641E-07_JPRB,0.51855E-07_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.30869E-07_JPRB,0.33485E-07_JPRB,0.36233E-07_JPRB,0.38868E-07_JPRB,0.41523E-07_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.24798E-07_JPRB,0.26983E-07_JPRB,0.29180E-07_JPRB,0.31437E-07_JPRB,0.33600E-07_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.19951E-07_JPRB,0.21784E-07_JPRB,0.23518E-07_JPRB,0.25460E-07_JPRB,0.27219E-07_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.16098E-07_JPRB,0.17542E-07_JPRB,0.18979E-07_JPRB,0.20547E-07_JPRB,0.22016E-07_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.13020E-07_JPRB,0.14144E-07_JPRB,0.15414E-07_JPRB,0.16610E-07_JPRB,0.17870E-07_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.10548E-07_JPRB,0.11500E-07_JPRB,0.12492E-07_JPRB,0.13520E-07_JPRB,0.14524E-07_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.85602E-08_JPRB,0.93245E-08_JPRB,0.10096E-07_JPRB,0.10978E-07_JPRB,0.11819E-07_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.69149E-08_JPRB,0.75653E-08_JPRB,0.82154E-08_JPRB,0.88822E-08_JPRB,0.96002E-08_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.55708E-08_JPRB,0.61164E-08_JPRB,0.66678E-08_JPRB,0.71922E-08_JPRB,0.77633E-08_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.44804E-08_JPRB,0.49312E-08_JPRB,0.53967E-08_JPRB,0.58662E-08_JPRB,0.62780E-08_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.36467E-08_JPRB,0.39866E-08_JPRB,0.43628E-08_JPRB,0.47589E-08_JPRB,0.51208E-08_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.29524E-08_JPRB,0.32540E-08_JPRB,0.35471E-08_JPRB,0.38638E-08_JPRB,0.41887E-08_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.23887E-08_JPRB,0.26526E-08_JPRB,0.28959E-08_JPRB,0.31504E-08_JPRB,0.34112E-08_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.19321E-08_JPRB,0.21648E-08_JPRB,0.23625E-08_JPRB,0.25839E-08_JPRB,0.28173E-08_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.15684E-08_JPRB,0.17725E-08_JPRB,0.19476E-08_JPRB,0.21240E-08_JPRB,0.23118E-08_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.12799E-08_JPRB,0.14467E-08_JPRB,0.16073E-08_JPRB,0.17494E-08_JPRB,0.19160E-08_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.10442E-08_JPRB,0.11911E-08_JPRB,0.13216E-08_JPRB,0.14537E-08_JPRB,0.15771E-08_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.85741E-09_JPRB,0.97937E-09_JPRB,0.10936E-08_JPRB,0.12056E-08_JPRB,0.13167E-08_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.70358E-09_JPRB,0.80334E-09_JPRB,0.90824E-09_JPRB,0.10056E-08_JPRB,0.11010E-08_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.57428E-09_JPRB,0.66441E-09_JPRB,0.75420E-09_JPRB,0.83627E-09_JPRB,0.92485E-09_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.47922E-09_JPRB,0.55592E-09_JPRB,0.63499E-09_JPRB,0.70731E-09_JPRB,0.78678E-09_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.76201E-04_JPRB,0.82699E-04_JPRB,0.87499E-04_JPRB,0.91352E-04_JPRB,0.95348E-04_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.62821E-04_JPRB,0.67861E-04_JPRB,0.71868E-04_JPRB,0.75108E-04_JPRB,0.78557E-04_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.49775E-04_JPRB,0.53367E-04_JPRB,0.56639E-04_JPRB,0.59001E-04_JPRB,0.62303E-04_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.38005E-04_JPRB,0.40883E-04_JPRB,0.43269E-04_JPRB,0.45403E-04_JPRB,0.48139E-04_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.28550E-04_JPRB,0.30750E-04_JPRB,0.32331E-04_JPRB,0.34489E-04_JPRB,0.36687E-04_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.20976E-04_JPRB,0.22322E-04_JPRB,0.23743E-04_JPRB,0.25554E-04_JPRB,0.27223E-04_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.15389E-04_JPRB,0.16422E-04_JPRB,0.17792E-04_JPRB,0.19127E-04_JPRB,0.20295E-04_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.11883E-04_JPRB,0.12816E-04_JPRB,0.13962E-04_JPRB,0.14872E-04_JPRB,0.15725E-04_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.92948E-05_JPRB,0.10187E-04_JPRB,0.10986E-04_JPRB,0.11713E-04_JPRB,0.12426E-04_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.73969E-05_JPRB,0.80840E-05_JPRB,0.87263E-05_JPRB,0.93856E-05_JPRB,0.99533E-05_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.58961E-05_JPRB,0.64591E-05_JPRB,0.69648E-05_JPRB,0.74494E-05_JPRB,0.79385E-05_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.47445E-05_JPRB,0.51742E-05_JPRB,0.56036E-05_JPRB,0.59758E-05_JPRB,0.63724E-05_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.38442E-05_JPRB,0.41791E-05_JPRB,0.44837E-05_JPRB,0.48078E-05_JPRB,0.51294E-05_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.31335E-05_JPRB,0.33923E-05_JPRB,0.36400E-05_JPRB,0.38961E-05_JPRB,0.41487E-05_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.25499E-05_JPRB,0.27432E-05_JPRB,0.29560E-05_JPRB,0.31545E-05_JPRB,0.33433E-05_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.20635E-05_JPRB,0.22231E-05_JPRB,0.23897E-05_JPRB,0.25516E-05_JPRB,0.26938E-05_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.16635E-05_JPRB,0.18024E-05_JPRB,0.19279E-05_JPRB,0.20498E-05_JPRB,0.21627E-05_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.13359E-05_JPRB,0.14474E-05_JPRB,0.15470E-05_JPRB,0.16346E-05_JPRB,0.17457E-05_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.10697E-05_JPRB,0.11477E-05_JPRB,0.12254E-05_JPRB,0.13097E-05_JPRB,0.13914E-05_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.84958E-06_JPRB,0.91464E-06_JPRB,0.98189E-06_JPRB,0.10489E-05_JPRB,0.11150E-05_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.68178E-06_JPRB,0.73356E-06_JPRB,0.78905E-06_JPRB,0.84226E-06_JPRB,0.89476E-06_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.54737E-06_JPRB,0.58995E-06_JPRB,0.63374E-06_JPRB,0.67732E-06_JPRB,0.72182E-06_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.43680E-06_JPRB,0.47086E-06_JPRB,0.50771E-06_JPRB,0.54209E-06_JPRB,0.57687E-06_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.34612E-06_JPRB,0.37466E-06_JPRB,0.40370E-06_JPRB,0.43073E-06_JPRB,0.45979E-06_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.27725E-06_JPRB,0.30048E-06_JPRB,0.32451E-06_JPRB,0.34638E-06_JPRB,0.37105E-06_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.22228E-06_JPRB,0.24114E-06_JPRB,0.26049E-06_JPRB,0.27871E-06_JPRB,0.29935E-06_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.17797E-06_JPRB,0.19317E-06_JPRB,0.20878E-06_JPRB,0.22411E-06_JPRB,0.24102E-06_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.14346E-06_JPRB,0.15601E-06_JPRB,0.16913E-06_JPRB,0.18197E-06_JPRB,0.19566E-06_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.11559E-06_JPRB,0.12615E-06_JPRB,0.13697E-06_JPRB,0.14785E-06_JPRB,0.15874E-06_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.93358E-07_JPRB,0.10214E-06_JPRB,0.11089E-06_JPRB,0.11998E-06_JPRB,0.12904E-06_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.75599E-07_JPRB,0.82690E-07_JPRB,0.89808E-07_JPRB,0.97524E-07_JPRB,0.10511E-06_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.61285E-07_JPRB,0.66786E-07_JPRB,0.72937E-07_JPRB,0.79087E-07_JPRB,0.85525E-07_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.49725E-07_JPRB,0.54294E-07_JPRB,0.59263E-07_JPRB,0.64213E-07_JPRB,0.69583E-07_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.40336E-07_JPRB,0.44186E-07_JPRB,0.48034E-07_JPRB,0.52184E-07_JPRB,0.56534E-07_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.32904E-07_JPRB,0.35633E-07_JPRB,0.38959E-07_JPRB,0.42402E-07_JPRB,0.45883E-07_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.26725E-07_JPRB,0.29104E-07_JPRB,0.31693E-07_JPRB,0.34312E-07_JPRB,0.37304E-07_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.21751E-07_JPRB,0.23849E-07_JPRB,0.25803E-07_JPRB,0.28024E-07_JPRB,0.30356E-07_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.17587E-07_JPRB,0.19609E-07_JPRB,0.21216E-07_JPRB,0.23022E-07_JPRB,0.24942E-07_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.14376E-07_JPRB,0.15990E-07_JPRB,0.17493E-07_JPRB,0.18872E-07_JPRB,0.20463E-07_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.11811E-07_JPRB,0.13106E-07_JPRB,0.14489E-07_JPRB,0.15615E-07_JPRB,0.16832E-07_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.96001E-08_JPRB,0.10788E-07_JPRB,0.11921E-07_JPRB,0.12985E-07_JPRB,0.13904E-07_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.78243E-08_JPRB,0.89178E-08_JPRB,0.98430E-08_JPRB,0.10840E-07_JPRB,0.11619E-07_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.63638E-08_JPRB,0.73678E-08_JPRB,0.82214E-08_JPRB,0.89997E-08_JPRB,0.97565E-08_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.51753E-08_JPRB,0.60497E-08_JPRB,0.68419E-08_JPRB,0.74560E-08_JPRB,0.82362E-08_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.42164E-08_JPRB,0.49916E-08_JPRB,0.57066E-08_JPRB,0.63308E-08_JPRB,0.68950E-08_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.34618E-08_JPRB,0.41424E-08_JPRB,0.48054E-08_JPRB,0.53757E-08_JPRB,0.58095E-08_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.29083E-08_JPRB,0.35291E-08_JPRB,0.40932E-08_JPRB,0.46285E-08_JPRB,0.49865E-08_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.37674E-03_JPRB,0.40953E-03_JPRB,0.43690E-03_JPRB,0.46059E-03_JPRB,0.48007E-03_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.31202E-03_JPRB,0.33906E-03_JPRB,0.36066E-03_JPRB,0.38003E-03_JPRB,0.39627E-03_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.25135E-03_JPRB,0.27271E-03_JPRB,0.29069E-03_JPRB,0.30661E-03_JPRB,0.32005E-03_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.19797E-03_JPRB,0.21527E-03_JPRB,0.22955E-03_JPRB,0.24328E-03_JPRB,0.25456E-03_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.15354E-03_JPRB,0.16679E-03_JPRB,0.17933E-03_JPRB,0.19101E-03_JPRB,0.20041E-03_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.11742E-03_JPRB,0.12797E-03_JPRB,0.13923E-03_JPRB,0.14836E-03_JPRB,0.15654E-03_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.90519E-04_JPRB,0.99386E-04_JPRB,0.10819E-03_JPRB,0.11601E-03_JPRB,0.12319E-03_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.72579E-04_JPRB,0.79910E-04_JPRB,0.87075E-04_JPRB,0.93728E-04_JPRB,0.99656E-04_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.58866E-04_JPRB,0.64805E-04_JPRB,0.70705E-04_JPRB,0.76153E-04_JPRB,0.80996E-04_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.48157E-04_JPRB,0.52883E-04_JPRB,0.57740E-04_JPRB,0.62130E-04_JPRB,0.66100E-04_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.39337E-04_JPRB,0.43289E-04_JPRB,0.47275E-04_JPRB,0.50906E-04_JPRB,0.54161E-04_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.32289E-04_JPRB,0.35577E-04_JPRB,0.38808E-04_JPRB,0.41814E-04_JPRB,0.44433E-04_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.26615E-04_JPRB,0.29301E-04_JPRB,0.31984E-04_JPRB,0.34396E-04_JPRB,0.36509E-04_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.22060E-04_JPRB,0.24270E-04_JPRB,0.26460E-04_JPRB,0.28450E-04_JPRB,0.30203E-04_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.18344E-04_JPRB,0.20177E-04_JPRB,0.21948E-04_JPRB,0.23595E-04_JPRB,0.25001E-04_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.15256E-04_JPRB,0.16787E-04_JPRB,0.18242E-04_JPRB,0.19561E-04_JPRB,0.20696E-04_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.12679E-04_JPRB,0.13952E-04_JPRB,0.15170E-04_JPRB,0.16211E-04_JPRB,0.17163E-04_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.10550E-04_JPRB,0.11605E-04_JPRB,0.12579E-04_JPRB,0.13451E-04_JPRB,0.14210E-04_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.87512E-05_JPRB,0.96322E-05_JPRB,0.10433E-04_JPRB,0.11133E-04_JPRB,0.11762E-04_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.73001E-05_JPRB,0.80203E-05_JPRB,0.86745E-05_JPRB,0.92292E-05_JPRB,0.97295E-05_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.60958E-05_JPRB,0.66862E-05_JPRB,0.72006E-05_JPRB,0.76359E-05_JPRB,0.80576E-05_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.50855E-05_JPRB,0.55671E-05_JPRB,0.59670E-05_JPRB,0.63392E-05_JPRB,0.66869E-05_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.42033E-05_JPRB,0.45905E-05_JPRB,0.49250E-05_JPRB,0.52384E-05_JPRB,0.55369E-05_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.34384E-05_JPRB,0.37618E-05_JPRB,0.40430E-05_JPRB,0.43060E-05_JPRB,0.45577E-05_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.28039E-05_JPRB,0.30749E-05_JPRB,0.33135E-05_JPRB,0.35344E-05_JPRB,0.37458E-05_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.22842E-05_JPRB,0.25104E-05_JPRB,0.27126E-05_JPRB,0.28966E-05_JPRB,0.30768E-05_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.18585E-05_JPRB,0.20510E-05_JPRB,0.22194E-05_JPRB,0.23731E-05_JPRB,0.25249E-05_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.15041E-05_JPRB,0.16676E-05_JPRB,0.18097E-05_JPRB,0.19402E-05_JPRB,0.20681E-05_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.12154E-05_JPRB,0.13541E-05_JPRB,0.14749E-05_JPRB,0.15852E-05_JPRB,0.16934E-05_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.98033E-06_JPRB,0.10975E-05_JPRB,0.12011E-05_JPRB,0.12945E-05_JPRB,0.13859E-05_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.78724E-06_JPRB,0.88625E-06_JPRB,0.97486E-06_JPRB,0.10554E-05_JPRB,0.11307E-05_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.63059E-06_JPRB,0.71382E-06_JPRB,0.78948E-06_JPRB,0.85755E-06_JPRB,0.92044E-06_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.50426E-06_JPRB,0.57391E-06_JPRB,0.63808E-06_JPRB,0.69718E-06_JPRB,0.74972E-06_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.40133E-06_JPRB,0.45858E-06_JPRB,0.51414E-06_JPRB,0.56400E-06_JPRB,0.60964E-06_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.31580E-06_JPRB,0.36440E-06_JPRB,0.41120E-06_JPRB,0.45433E-06_JPRB,0.49348E-06_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.24847E-06_JPRB,0.28907E-06_JPRB,0.32879E-06_JPRB,0.36537E-06_JPRB,0.39903E-06_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.19530E-06_JPRB,0.22858E-06_JPRB,0.26247E-06_JPRB,0.29331E-06_JPRB,0.32217E-06_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.15364E-06_JPRB,0.18113E-06_JPRB,0.20911E-06_JPRB,0.23589E-06_JPRB,0.25994E-06_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.12072E-06_JPRB,0.14413E-06_JPRB,0.16656E-06_JPRB,0.18952E-06_JPRB,0.20983E-06_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.94925E-07_JPRB,0.11397E-06_JPRB,0.13255E-06_JPRB,0.15193E-06_JPRB,0.16960E-06_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.74473E-07_JPRB,0.90197E-07_JPRB,0.10574E-06_JPRB,0.12153E-06_JPRB,0.13661E-06_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.59009E-07_JPRB,0.71594E-07_JPRB,0.84781E-07_JPRB,0.97758E-07_JPRB,0.11018E-06_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.47008E-07_JPRB,0.56997E-07_JPRB,0.67838E-07_JPRB,0.78753E-07_JPRB,0.89116E-07_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.37415E-07_JPRB,0.45642E-07_JPRB,0.54420E-07_JPRB,0.63466E-07_JPRB,0.71910E-07_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.29896E-07_JPRB,0.36635E-07_JPRB,0.43697E-07_JPRB,0.51036E-07_JPRB,0.58267E-07_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.23946E-07_JPRB,0.29523E-07_JPRB,0.35316E-07_JPRB,0.41183E-07_JPRB,0.47391E-07_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.19881E-07_JPRB,0.24642E-07_JPRB,0.29390E-07_JPRB,0.34099E-07_JPRB,0.39234E-07_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.12771E-02_JPRB,0.13202E-02_JPRB,0.13557E-02_JPRB,0.13927E-02_JPRB,0.14233E-02_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.10608E-02_JPRB,0.10951E-02_JPRB,0.11249E-02_JPRB,0.11549E-02_JPRB,0.11788E-02_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.86750E-03_JPRB,0.89679E-03_JPRB,0.91986E-03_JPRB,0.94399E-03_JPRB,0.96405E-03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.70073E-03_JPRB,0.72504E-03_JPRB,0.74630E-03_JPRB,0.76495E-03_JPRB,0.78165E-03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.56280E-03_JPRB,0.58321E-03_JPRB,0.60153E-03_JPRB,0.61544E-03_JPRB,0.62885E-03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.44940E-03_JPRB,0.46598E-03_JPRB,0.47887E-03_JPRB,0.49058E-03_JPRB,0.50223E-03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.35753E-03_JPRB,0.37064E-03_JPRB,0.38290E-03_JPRB,0.39390E-03_JPRB,0.40387E-03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.29013E-03_JPRB,0.30099E-03_JPRB,0.31179E-03_JPRB,0.32117E-03_JPRB,0.33011E-03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.23657E-03_JPRB,0.24602E-03_JPRB,0.25504E-03_JPRB,0.26340E-03_JPRB,0.27145E-03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.19423E-03_JPRB,0.20224E-03_JPRB,0.20987E-03_JPRB,0.21711E-03_JPRB,0.22439E-03_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.15963E-03_JPRB,0.16643E-03_JPRB,0.17308E-03_JPRB,0.17949E-03_JPRB,0.18580E-03_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.13166E-03_JPRB,0.13745E-03_JPRB,0.14332E-03_JPRB,0.14871E-03_JPRB,0.15428E-03_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.10885E-03_JPRB,0.11394E-03_JPRB,0.11896E-03_JPRB,0.12371E-03_JPRB,0.12846E-03_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.90403E-04_JPRB,0.94914E-04_JPRB,0.99157E-04_JPRB,0.10310E-03_JPRB,0.10729E-03_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.75265E-04_JPRB,0.79166E-04_JPRB,0.82648E-04_JPRB,0.86209E-04_JPRB,0.89882E-04_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.62870E-04_JPRB,0.66050E-04_JPRB,0.69111E-04_JPRB,0.72289E-04_JPRB,0.75451E-04_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.52465E-04_JPRB,0.55192E-04_JPRB,0.57887E-04_JPRB,0.60660E-04_JPRB,0.63367E-04_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.43887E-04_JPRB,0.46191E-04_JPRB,0.48588E-04_JPRB,0.50910E-04_JPRB,0.53278E-04_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.36760E-04_JPRB,0.38766E-04_JPRB,0.40783E-04_JPRB,0.42783E-04_JPRB,0.44780E-04_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.30831E-04_JPRB,0.32561E-04_JPRB,0.34267E-04_JPRB,0.36000E-04_JPRB,0.37594E-04_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.25908E-04_JPRB,0.27389E-04_JPRB,0.28832E-04_JPRB,0.30290E-04_JPRB,0.31581E-04_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.21776E-04_JPRB,0.23026E-04_JPRB,0.24266E-04_JPRB,0.25444E-04_JPRB,0.26510E-04_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.18233E-04_JPRB,0.19280E-04_JPRB,0.20324E-04_JPRB,0.21266E-04_JPRB,0.22141E-04_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.15160E-04_JPRB,0.16042E-04_JPRB,0.16918E-04_JPRB,0.17686E-04_JPRB,0.18406E-04_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.12538E-04_JPRB,0.13285E-04_JPRB,0.14015E-04_JPRB,0.14657E-04_JPRB,0.15269E-04_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.10357E-04_JPRB,0.10990E-04_JPRB,0.11595E-04_JPRB,0.12148E-04_JPRB,0.12651E-04_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.85566E-05_JPRB,0.90856E-05_JPRB,0.95986E-05_JPRB,0.10057E-04_JPRB,0.10478E-04_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.70390E-05_JPRB,0.74826E-05_JPRB,0.79200E-05_JPRB,0.83061E-05_JPRB,0.86634E-05_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.57827E-05_JPRB,0.61572E-05_JPRB,0.65269E-05_JPRB,0.68528E-05_JPRB,0.71595E-05_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.47477E-05_JPRB,0.50656E-05_JPRB,0.53705E-05_JPRB,0.56486E-05_JPRB,0.59100E-05_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.38802E-05_JPRB,0.41533E-05_JPRB,0.44089E-05_JPRB,0.46515E-05_JPRB,0.48719E-05_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.31658E-05_JPRB,0.33971E-05_JPRB,0.36177E-05_JPRB,0.38205E-05_JPRB,0.40089E-05_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.25796E-05_JPRB,0.27740E-05_JPRB,0.29635E-05_JPRB,0.31336E-05_JPRB,0.32986E-05_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.20945E-05_JPRB,0.22636E-05_JPRB,0.24214E-05_JPRB,0.25698E-05_JPRB,0.27077E-05_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.16931E-05_JPRB,0.18383E-05_JPRB,0.19729E-05_JPRB,0.20996E-05_JPRB,0.22172E-05_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.13650E-05_JPRB,0.14889E-05_JPRB,0.16043E-05_JPRB,0.17139E-05_JPRB,0.18136E-05_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.10981E-05_JPRB,0.12042E-05_JPRB,0.13028E-05_JPRB,0.13963E-05_JPRB,0.14824E-05_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.88407E-06_JPRB,0.97370E-06_JPRB,0.10589E-05_JPRB,0.11383E-05_JPRB,0.12124E-05_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.71150E-06_JPRB,0.78682E-06_JPRB,0.86048E-06_JPRB,0.92711E-06_JPRB,0.99128E-06_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.57140E-06_JPRB,0.63513E-06_JPRB,0.69790E-06_JPRB,0.75466E-06_JPRB,0.80946E-06_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.45871E-06_JPRB,0.51183E-06_JPRB,0.56494E-06_JPRB,0.61376E-06_JPRB,0.66022E-06_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.36889E-06_JPRB,0.41319E-06_JPRB,0.45759E-06_JPRB,0.49973E-06_JPRB,0.53933E-06_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.29683E-06_JPRB,0.33396E-06_JPRB,0.37110E-06_JPRB,0.40671E-06_JPRB,0.44026E-06_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.23828E-06_JPRB,0.26973E-06_JPRB,0.30048E-06_JPRB,0.33099E-06_JPRB,0.35949E-06_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.19083E-06_JPRB,0.21782E-06_JPRB,0.24350E-06_JPRB,0.26883E-06_JPRB,0.29309E-06_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.15334E-06_JPRB,0.17592E-06_JPRB,0.19753E-06_JPRB,0.21869E-06_JPRB,0.23903E-06_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.12635E-06_JPRB,0.14504E-06_JPRB,0.16321E-06_JPRB,0.18074E-06_JPRB,0.19759E-06_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.33433E-02_JPRB,0.34159E-02_JPRB,0.34798E-02_JPRB,0.35397E-02_JPRB,0.35995E-02_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.28039E-02_JPRB,0.28589E-02_JPRB,0.29090E-02_JPRB,0.29595E-02_JPRB,0.30108E-02_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.23135E-02_JPRB,0.23579E-02_JPRB,0.24012E-02_JPRB,0.24470E-02_JPRB,0.24900E-02_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.18925E-02_JPRB,0.19281E-02_JPRB,0.19671E-02_JPRB,0.20090E-02_JPRB,0.20445E-02_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.15365E-02_JPRB,0.15703E-02_JPRB,0.16039E-02_JPRB,0.16424E-02_JPRB,0.16760E-02_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.12424E-02_JPRB,0.12746E-02_JPRB,0.13067E-02_JPRB,0.13397E-02_JPRB,0.13687E-02_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.10113E-02_JPRB,0.10417E-02_JPRB,0.10664E-02_JPRB,0.10958E-02_JPRB,0.11231E-02_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.83375E-03_JPRB,0.85863E-03_JPRB,0.88098E-03_JPRB,0.90680E-03_JPRB,0.93093E-03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.68849E-03_JPRB,0.71056E-03_JPRB,0.73161E-03_JPRB,0.75402E-03_JPRB,0.77432E-03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.57076E-03_JPRB,0.59001E-03_JPRB,0.60925E-03_JPRB,0.62816E-03_JPRB,0.64531E-03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.47462E-03_JPRB,0.49138E-03_JPRB,0.50818E-03_JPRB,0.52421E-03_JPRB,0.53930E-03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.39552E-03_JPRB,0.41011E-03_JPRB,0.42460E-03_JPRB,0.43865E-03_JPRB,0.45206E-03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.33041E-03_JPRB,0.34317E-03_JPRB,0.35573E-03_JPRB,0.36800E-03_JPRB,0.38005E-03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.27699E-03_JPRB,0.28806E-03_JPRB,0.29892E-03_JPRB,0.30983E-03_JPRB,0.32038E-03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.23253E-03_JPRB,0.24229E-03_JPRB,0.25208E-03_JPRB,0.26144E-03_JPRB,0.27039E-03_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.19573E-03_JPRB,0.20442E-03_JPRB,0.21276E-03_JPRB,0.22087E-03_JPRB,0.22869E-03_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.16528E-03_JPRB,0.17271E-03_JPRB,0.17974E-03_JPRB,0.18681E-03_JPRB,0.19373E-03_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.13949E-03_JPRB,0.14599E-03_JPRB,0.15214E-03_JPRB,0.15834E-03_JPRB,0.16448E-03_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.11793E-03_JPRB,0.12345E-03_JPRB,0.12891E-03_JPRB,0.13432E-03_JPRB,0.13975E-03_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.99845E-04_JPRB,0.10464E-03_JPRB,0.10941E-03_JPRB,0.11425E-03_JPRB,0.11896E-03_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.84723E-04_JPRB,0.88808E-04_JPRB,0.93054E-04_JPRB,0.97257E-04_JPRB,0.10144E-03_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.71857E-04_JPRB,0.75478E-04_JPRB,0.79245E-04_JPRB,0.82878E-04_JPRB,0.86527E-04_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.60741E-04_JPRB,0.63987E-04_JPRB,0.67190E-04_JPRB,0.70445E-04_JPRB,0.73634E-04_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.51094E-04_JPRB,0.53953E-04_JPRB,0.56787E-04_JPRB,0.59644E-04_JPRB,0.62421E-04_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.42809E-04_JPRB,0.45324E-04_JPRB,0.47805E-04_JPRB,0.50314E-04_JPRB,0.52797E-04_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.35862E-04_JPRB,0.38082E-04_JPRB,0.40249E-04_JPRB,0.42459E-04_JPRB,0.44691E-04_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.30047E-04_JPRB,0.31970E-04_JPRB,0.33877E-04_JPRB,0.35841E-04_JPRB,0.37792E-04_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.25051E-04_JPRB,0.26734E-04_JPRB,0.28429E-04_JPRB,0.30177E-04_JPRB,0.31859E-04_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.20858E-04_JPRB,0.22337E-04_JPRB,0.23837E-04_JPRB,0.25348E-04_JPRB,0.26845E-04_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.17358E-04_JPRB,0.18653E-04_JPRB,0.19947E-04_JPRB,0.21279E-04_JPRB,0.22614E-04_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.14382E-04_JPRB,0.15507E-04_JPRB,0.16637E-04_JPRB,0.17808E-04_JPRB,0.18975E-04_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.11875E-04_JPRB,0.12851E-04_JPRB,0.13847E-04_JPRB,0.14865E-04_JPRB,0.15886E-04_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.97824E-05_JPRB,0.10641E-04_JPRB,0.11497E-04_JPRB,0.12386E-04_JPRB,0.13288E-04_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.80305E-05_JPRB,0.87712E-05_JPRB,0.95170E-05_JPRB,0.10282E-04_JPRB,0.11073E-04_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.65554E-05_JPRB,0.71881E-05_JPRB,0.78331E-05_JPRB,0.85022E-05_JPRB,0.91799E-05_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.53399E-05_JPRB,0.58818E-05_JPRB,0.64364E-05_JPRB,0.70093E-05_JPRB,0.75992E-05_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.43396E-05_JPRB,0.47990E-05_JPRB,0.52727E-05_JPRB,0.57633E-05_JPRB,0.62785E-05_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.35272E-05_JPRB,0.39139E-05_JPRB,0.43230E-05_JPRB,0.47423E-05_JPRB,0.51819E-05_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.28624E-05_JPRB,0.31913E-05_JPRB,0.35379E-05_JPRB,0.38979E-05_JPRB,0.42744E-05_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.23189E-05_JPRB,0.25961E-05_JPRB,0.28907E-05_JPRB,0.31976E-05_JPRB,0.35200E-05_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.18736E-05_JPRB,0.21072E-05_JPRB,0.23576E-05_JPRB,0.26179E-05_JPRB,0.28943E-05_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.15155E-05_JPRB,0.17135E-05_JPRB,0.19245E-05_JPRB,0.21451E-05_JPRB,0.23808E-05_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.12250E-05_JPRB,0.13923E-05_JPRB,0.15714E-05_JPRB,0.17578E-05_JPRB,0.19597E-05_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.99012E-06_JPRB,0.11296E-05_JPRB,0.12801E-05_JPRB,0.14395E-05_JPRB,0.16107E-05_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.79875E-06_JPRB,0.91418E-06_JPRB,0.10408E-05_JPRB,0.11777E-05_JPRB,0.13212E-05_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.64474E-06_JPRB,0.74109E-06_JPRB,0.84664E-06_JPRB,0.96328E-06_JPRB,0.10849E-05_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.53296E-06_JPRB,0.61427E-06_JPRB,0.70385E-06_JPRB,0.80375E-06_JPRB,0.90863E-06_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.91063E-02_JPRB,0.92681E-02_JPRB,0.94045E-02_JPRB,0.95388E-02_JPRB,0.96735E-02_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.78483E-02_JPRB,0.79806E-02_JPRB,0.81238E-02_JPRB,0.82528E-02_JPRB,0.83603E-02_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.66269E-02_JPRB,0.67445E-02_JPRB,0.68845E-02_JPRB,0.69911E-02_JPRB,0.70854E-02_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.55183E-02_JPRB,0.56414E-02_JPRB,0.57574E-02_JPRB,0.58487E-02_JPRB,0.59407E-02_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.45693E-02_JPRB,0.46780E-02_JPRB,0.47743E-02_JPRB,0.48625E-02_JPRB,0.49467E-02_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.37611E-02_JPRB,0.38535E-02_JPRB,0.39408E-02_JPRB,0.40234E-02_JPRB,0.41007E-02_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.30991E-02_JPRB,0.31809E-02_JPRB,0.32647E-02_JPRB,0.33388E-02_JPRB,0.34042E-02_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.25858E-02_JPRB,0.26585E-02_JPRB,0.27347E-02_JPRB,0.27990E-02_JPRB,0.28579E-02_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.21672E-02_JPRB,0.22326E-02_JPRB,0.22973E-02_JPRB,0.23547E-02_JPRB,0.24058E-02_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.18211E-02_JPRB,0.18809E-02_JPRB,0.19364E-02_JPRB,0.19859E-02_JPRB,0.20352E-02_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.15314E-02_JPRB,0.15844E-02_JPRB,0.16332E-02_JPRB,0.16760E-02_JPRB,0.17243E-02_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.12924E-02_JPRB,0.13385E-02_JPRB,0.13793E-02_JPRB,0.14209E-02_JPRB,0.14659E-02_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.10926E-02_JPRB,0.11322E-02_JPRB,0.11689E-02_JPRB,0.12081E-02_JPRB,0.12493E-02_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.92756E-03_JPRB,0.96136E-03_JPRB,0.99601E-03_JPRB,0.10324E-02_JPRB,0.10695E-02_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.78832E-03_JPRB,0.81893E-03_JPRB,0.85137E-03_JPRB,0.88465E-03_JPRB,0.91885E-03_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.67097E-03_JPRB,0.69979E-03_JPRB,0.72985E-03_JPRB,0.76038E-03_JPRB,0.79213E-03_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.57231E-03_JPRB,0.59934E-03_JPRB,0.62727E-03_JPRB,0.65471E-03_JPRB,0.68389E-03_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.48996E-03_JPRB,0.51441E-03_JPRB,0.53945E-03_JPRB,0.56564E-03_JPRB,0.59164E-03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.41998E-03_JPRB,0.44237E-03_JPRB,0.46551E-03_JPRB,0.48924E-03_JPRB,0.51322E-03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.36133E-03_JPRB,0.38168E-03_JPRB,0.40297E-03_JPRB,0.42441E-03_JPRB,0.44722E-03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.31153E-03_JPRB,0.33055E-03_JPRB,0.34980E-03_JPRB,0.36972E-03_JPRB,0.39086E-03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.26941E-03_JPRB,0.28657E-03_JPRB,0.30436E-03_JPRB,0.32295E-03_JPRB,0.34256E-03_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.23210E-03_JPRB,0.24782E-03_JPRB,0.26411E-03_JPRB,0.28121E-03_JPRB,0.29930E-03_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.19904E-03_JPRB,0.21311E-03_JPRB,0.22797E-03_JPRB,0.24380E-03_JPRB,0.26030E-03_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.17000E-03_JPRB,0.18300E-03_JPRB,0.19666E-03_JPRB,0.21128E-03_JPRB,0.22641E-03_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.14528E-03_JPRB,0.15704E-03_JPRB,0.16975E-03_JPRB,0.18320E-03_JPRB,0.19735E-03_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.12414E-03_JPRB,0.13496E-03_JPRB,0.14654E-03_JPRB,0.15899E-03_JPRB,0.17211E-03_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.10567E-03_JPRB,0.11547E-03_JPRB,0.12618E-03_JPRB,0.13765E-03_JPRB,0.14994E-03_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.89774E-04_JPRB,0.98751E-04_JPRB,0.10852E-03_JPRB,0.11918E-03_JPRB,0.13057E-03_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.76232E-04_JPRB,0.84383E-04_JPRB,0.93336E-04_JPRB,0.10314E-03_JPRB,0.11381E-03_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.64370E-04_JPRB,0.71684E-04_JPRB,0.79797E-04_JPRB,0.88850E-04_JPRB,0.98733E-04_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.54125E-04_JPRB,0.60680E-04_JPRB,0.68042E-04_JPRB,0.76313E-04_JPRB,0.85432E-04_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.45374E-04_JPRB,0.51280E-04_JPRB,0.57932E-04_JPRB,0.65429E-04_JPRB,0.73852E-04_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.37861E-04_JPRB,0.43078E-04_JPRB,0.49016E-04_JPRB,0.55844E-04_JPRB,0.63538E-04_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.31342E-04_JPRB,0.35879E-04_JPRB,0.41175E-04_JPRB,0.47252E-04_JPRB,0.54286E-04_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.25821E-04_JPRB,0.29777E-04_JPRB,0.34458E-04_JPRB,0.39880E-04_JPRB,0.46218E-04_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.21180E-04_JPRB,0.24617E-04_JPRB,0.28719E-04_JPRB,0.33507E-04_JPRB,0.39184E-04_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.17377E-04_JPRB,0.20345E-04_JPRB,0.23916E-04_JPRB,0.28177E-04_JPRB,0.33237E-04_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.14223E-04_JPRB,0.16790E-04_JPRB,0.19868E-04_JPRB,0.23656E-04_JPRB,0.28163E-04_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.11593E-04_JPRB,0.13788E-04_JPRB,0.16479E-04_JPRB,0.19773E-04_JPRB,0.23765E-04_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.94141E-05_JPRB,0.11279E-04_JPRB,0.13591E-04_JPRB,0.16447E-04_JPRB,0.19969E-04_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.76622E-05_JPRB,0.92417E-05_JPRB,0.11233E-04_JPRB,0.13709E-04_JPRB,0.16819E-04_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.62315E-05_JPRB,0.75671E-05_JPRB,0.92699E-05_JPRB,0.11429E-04_JPRB,0.14186E-04_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.50473E-05_JPRB,0.61766E-05_JPRB,0.76316E-05_JPRB,0.94979E-05_JPRB,0.11890E-04_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.40773E-05_JPRB,0.50242E-05_JPRB,0.62540E-05_JPRB,0.78594E-05_JPRB,0.99378E-05_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.32937E-05_JPRB,0.40862E-05_JPRB,0.51228E-05_JPRB,0.64992E-05_JPRB,0.83112E-05_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.27593E-05_JPRB,0.34505E-05_JPRB,0.43716E-05_JPRB,0.56035E-05_JPRB,0.72609E-05_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.25990E-01_JPRB,0.25997E-01_JPRB,0.26024E-01_JPRB,0.26038E-01_JPRB,0.26132E-01_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.22648E-01_JPRB,0.22731E-01_JPRB,0.22803E-01_JPRB,0.22861E-01_JPRB,0.23020E-01_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.19641E-01_JPRB,0.19812E-01_JPRB,0.19880E-01_JPRB,0.19998E-01_JPRB,0.20141E-01_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.16909E-01_JPRB,0.17030E-01_JPRB,0.17148E-01_JPRB,0.17296E-01_JPRB,0.17502E-01_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.14365E-01_JPRB,0.14504E-01_JPRB,0.14643E-01_JPRB,0.14808E-01_JPRB,0.14996E-01_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.12072E-01_JPRB,0.12207E-01_JPRB,0.12346E-01_JPRB,0.12513E-01_JPRB,0.12742E-01_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.10135E-01_JPRB,0.10263E-01_JPRB,0.10402E-01_JPRB,0.10602E-01_JPRB,0.10794E-01_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.86508E-02_JPRB,0.87951E-02_JPRB,0.89765E-02_JPRB,0.91530E-02_JPRB,0.93447E-02_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.74228E-02_JPRB,0.75964E-02_JPRB,0.77805E-02_JPRB,0.79441E-02_JPRB,0.81266E-02_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.63949E-02_JPRB,0.65920E-02_JPRB,0.67584E-02_JPRB,0.69298E-02_JPRB,0.70968E-02_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.55389E-02_JPRB,0.57165E-02_JPRB,0.58834E-02_JPRB,0.60490E-02_JPRB,0.62163E-02_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.47980E-02_JPRB,0.49696E-02_JPRB,0.51333E-02_JPRB,0.53055E-02_JPRB,0.54695E-02_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.41676E-02_JPRB,0.43357E-02_JPRB,0.44999E-02_JPRB,0.46749E-02_JPRB,0.48179E-02_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.36391E-02_JPRB,0.38079E-02_JPRB,0.39834E-02_JPRB,0.41374E-02_JPRB,0.42754E-02_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.31917E-02_JPRB,0.33580E-02_JPRB,0.35237E-02_JPRB,0.36737E-02_JPRB,0.37982E-02_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.28096E-02_JPRB,0.29709E-02_JPRB,0.31242E-02_JPRB,0.32613E-02_JPRB,0.33829E-02_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.24786E-02_JPRB,0.26272E-02_JPRB,0.27706E-02_JPRB,0.28986E-02_JPRB,0.30130E-02_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.21907E-02_JPRB,0.23282E-02_JPRB,0.24574E-02_JPRB,0.25778E-02_JPRB,0.26806E-02_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.19346E-02_JPRB,0.20569E-02_JPRB,0.21757E-02_JPRB,0.22805E-02_JPRB,0.23742E-02_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.17101E-02_JPRB,0.18247E-02_JPRB,0.19308E-02_JPRB,0.20256E-02_JPRB,0.21176E-02_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.15171E-02_JPRB,0.16168E-02_JPRB,0.17121E-02_JPRB,0.18035E-02_JPRB,0.18911E-02_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.13466E-02_JPRB,0.14390E-02_JPRB,0.15246E-02_JPRB,0.16083E-02_JPRB,0.16921E-02_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.11871E-02_JPRB,0.12698E-02_JPRB,0.13534E-02_JPRB,0.14320E-02_JPRB,0.15071E-02_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.10388E-02_JPRB,0.11179E-02_JPRB,0.11934E-02_JPRB,0.12647E-02_JPRB,0.13391E-02_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.92233E-03_JPRB,0.99854E-03_JPRB,0.10722E-02_JPRB,0.11426E-02_JPRB,0.12118E-02_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.81843E-03_JPRB,0.89236E-03_JPRB,0.96605E-03_JPRB,0.10340E-02_JPRB,0.11003E-02_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.72738E-03_JPRB,0.79777E-03_JPRB,0.86997E-03_JPRB,0.93496E-03_JPRB,0.99852E-03_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.65149E-03_JPRB,0.72098E-03_JPRB,0.79235E-03_JPRB,0.86116E-03_JPRB,0.92474E-03_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.58318E-03_JPRB,0.65154E-03_JPRB,0.72160E-03_JPRB,0.79400E-03_JPRB,0.85973E-03_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.52127E-03_JPRB,0.58770E-03_JPRB,0.65781E-03_JPRB,0.73110E-03_JPRB,0.80165E-03_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.46404E-03_JPRB,0.52960E-03_JPRB,0.59886E-03_JPRB,0.67366E-03_JPRB,0.74727E-03_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.41229E-03_JPRB,0.47609E-03_JPRB,0.54424E-03_JPRB,0.61918E-03_JPRB,0.69366E-03_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.36534E-03_JPRB,0.42624E-03_JPRB,0.49374E-03_JPRB,0.56668E-03_JPRB,0.64364E-03_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.32134E-03_JPRB,0.37987E-03_JPRB,0.44597E-03_JPRB,0.51669E-03_JPRB,0.59469E-03_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.27855E-03_JPRB,0.33531E-03_JPRB,0.39855E-03_JPRB,0.46832E-03_JPRB,0.54562E-03_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.24094E-03_JPRB,0.29440E-03_JPRB,0.35477E-03_JPRB,0.42284E-03_JPRB,0.49767E-03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.20710E-03_JPRB,0.25712E-03_JPRB,0.31425E-03_JPRB,0.38098E-03_JPRB,0.45465E-03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.17757E-03_JPRB,0.22422E-03_JPRB,0.27906E-03_JPRB,0.34231E-03_JPRB,0.41419E-03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.15198E-03_JPRB,0.19538E-03_JPRB,0.24758E-03_JPRB,0.30796E-03_JPRB,0.37765E-03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.12943E-03_JPRB,0.16907E-03_JPRB,0.21812E-03_JPRB,0.27585E-03_JPRB,0.34284E-03_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.10946E-03_JPRB,0.14560E-03_JPRB,0.19103E-03_JPRB,0.24633E-03_JPRB,0.31049E-03_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.92950E-04_JPRB,0.12599E-03_JPRB,0.16848E-03_JPRB,0.22109E-03_JPRB,0.28266E-03_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.78722E-04_JPRB,0.10883E-03_JPRB,0.14831E-03_JPRB,0.19790E-03_JPRB,0.25770E-03_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.66323E-04_JPRB,0.93651E-04_JPRB,0.12983E-03_JPRB,0.17638E-03_JPRB,0.23393E-03_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.55644E-04_JPRB,0.80085E-04_JPRB,0.11349E-03_JPRB,0.15741E-03_JPRB,0.21274E-03_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.46537E-04_JPRB,0.68442E-04_JPRB,0.99190E-04_JPRB,0.14045E-03_JPRB,0.19327E-03_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.41558E-04_JPRB,0.62503E-04_JPRB,0.92377E-04_JPRB,0.13258E-03_JPRB,0.18528E-03_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.14836E+00_JPRB,0.15039E+00_JPRB,0.15239E+00_JPRB,0.15389E+00_JPRB,0.15517E+00_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.12935E+00_JPRB,0.13183E+00_JPRB,0.13366E+00_JPRB,0.13551E+00_JPRB,0.13674E+00_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.11269E+00_JPRB,0.11456E+00_JPRB,0.11672E+00_JPRB,0.11824E+00_JPRB,0.11951E+00_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.97577E-01_JPRB,0.99647E-01_JPRB,0.10140E+00_JPRB,0.10272E+00_JPRB,0.10390E+00_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.84601E-01_JPRB,0.86370E-01_JPRB,0.87860E-01_JPRB,0.89144E-01_JPRB,0.90341E-01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.72851E-01_JPRB,0.74498E-01_JPRB,0.75924E-01_JPRB,0.77220E-01_JPRB,0.78434E-01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.62688E-01_JPRB,0.64121E-01_JPRB,0.65574E-01_JPRB,0.66965E-01_JPRB,0.68243E-01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.54382E-01_JPRB,0.55704E-01_JPRB,0.57013E-01_JPRB,0.58303E-01_JPRB,0.59763E-01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.47190E-01_JPRB,0.48469E-01_JPRB,0.49752E-01_JPRB,0.51138E-01_JPRB,0.52452E-01_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.41104E-01_JPRB,0.42378E-01_JPRB,0.43684E-01_JPRB,0.45035E-01_JPRB,0.46495E-01_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.35910E-01_JPRB,0.37220E-01_JPRB,0.38484E-01_JPRB,0.39789E-01_JPRB,0.41443E-01_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.31558E-01_JPRB,0.32836E-01_JPRB,0.34085E-01_JPRB,0.35462E-01_JPRB,0.37160E-01_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.27861E-01_JPRB,0.29090E-01_JPRB,0.30363E-01_JPRB,0.31857E-01_JPRB,0.33566E-01_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.24743E-01_JPRB,0.26003E-01_JPRB,0.27311E-01_JPRB,0.28788E-01_JPRB,0.30553E-01_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.22141E-01_JPRB,0.23397E-01_JPRB,0.24754E-01_JPRB,0.26282E-01_JPRB,0.28040E-01_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.19941E-01_JPRB,0.21165E-01_JPRB,0.22565E-01_JPRB,0.24131E-01_JPRB,0.25980E-01_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.18046E-01_JPRB,0.19353E-01_JPRB,0.20736E-01_JPRB,0.22375E-01_JPRB,0.24248E-01_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.16429E-01_JPRB,0.17775E-01_JPRB,0.19238E-01_JPRB,0.20907E-01_JPRB,0.22847E-01_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.15094E-01_JPRB,0.16450E-01_JPRB,0.17992E-01_JPRB,0.19741E-01_JPRB,0.21608E-01_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.13975E-01_JPRB,0.15315E-01_JPRB,0.16950E-01_JPRB,0.18741E-01_JPRB,0.20564E-01_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.13026E-01_JPRB,0.14475E-01_JPRB,0.16113E-01_JPRB,0.17903E-01_JPRB,0.19794E-01_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.12248E-01_JPRB,0.13747E-01_JPRB,0.15391E-01_JPRB,0.17142E-01_JPRB,0.19155E-01_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.11491E-01_JPRB,0.12979E-01_JPRB,0.14611E-01_JPRB,0.16423E-01_JPRB,0.18475E-01_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.10695E-01_JPRB,0.12142E-01_JPRB,0.13822E-01_JPRB,0.15678E-01_JPRB,0.17729E-01_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.98761E-02_JPRB,0.11300E-01_JPRB,0.13000E-01_JPRB,0.14808E-01_JPRB,0.16848E-01_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.91358E-02_JPRB,0.10538E-01_JPRB,0.12200E-01_JPRB,0.13999E-01_JPRB,0.16082E-01_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.84558E-02_JPRB,0.98580E-02_JPRB,0.11508E-01_JPRB,0.13321E-01_JPRB,0.15372E-01_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.78020E-02_JPRB,0.91740E-02_JPRB,0.10778E-01_JPRB,0.12588E-01_JPRB,0.14594E-01_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.72028E-02_JPRB,0.85294E-02_JPRB,0.10093E-01_JPRB,0.11887E-01_JPRB,0.13872E-01_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.66335E-02_JPRB,0.79299E-02_JPRB,0.94524E-02_JPRB,0.11233E-01_JPRB,0.13162E-01_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.60936E-02_JPRB,0.73819E-02_JPRB,0.88361E-02_JPRB,0.10555E-01_JPRB,0.12456E-01_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.55851E-02_JPRB,0.68018E-02_JPRB,0.82487E-02_JPRB,0.98836E-02_JPRB,0.11744E-01_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.51361E-02_JPRB,0.62783E-02_JPRB,0.76910E-02_JPRB,0.92631E-02_JPRB,0.11096E-01_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.46789E-02_JPRB,0.57877E-02_JPRB,0.71257E-02_JPRB,0.86688E-02_JPRB,0.10399E-01_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.42434E-02_JPRB,0.53043E-02_JPRB,0.65448E-02_JPRB,0.80300E-02_JPRB,0.97286E-02_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.38917E-02_JPRB,0.48269E-02_JPRB,0.60283E-02_JPRB,0.74378E-02_JPRB,0.90783E-02_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.35823E-02_JPRB,0.43988E-02_JPRB,0.55409E-02_JPRB,0.68845E-02_JPRB,0.84495E-02_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.33116E-02_JPRB,0.40852E-02_JPRB,0.51044E-02_JPRB,0.63885E-02_JPRB,0.78773E-02_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.30752E-02_JPRB,0.38103E-02_JPRB,0.47346E-02_JPRB,0.59580E-02_JPRB,0.73779E-02_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.28626E-02_JPRB,0.35553E-02_JPRB,0.44430E-02_JPRB,0.55409E-02_JPRB,0.69343E-02_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.26485E-02_JPRB,0.33392E-02_JPRB,0.41695E-02_JPRB,0.51739E-02_JPRB,0.64753E-02_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.24736E-02_JPRB,0.31489E-02_JPRB,0.39367E-02_JPRB,0.48954E-02_JPRB,0.61401E-02_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.23362E-02_JPRB,0.29819E-02_JPRB,0.37593E-02_JPRB,0.46985E-02_JPRB,0.58363E-02_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.22243E-02_JPRB,0.28447E-02_JPRB,0.35827E-02_JPRB,0.44762E-02_JPRB,0.55720E-02_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.21389E-02_JPRB,0.27081E-02_JPRB,0.34315E-02_JPRB,0.43182E-02_JPRB,0.53898E-02_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.20428E-02_JPRB,0.25997E-02_JPRB,0.33047E-02_JPRB,0.41726E-02_JPRB,0.52071E-02_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.20538E-02_JPRB,0.26323E-02_JPRB,0.33247E-02_JPRB,0.41770E-02_JPRB,0.52496E-02_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.58637E+00_JPRB,0.59481E+00_JPRB,0.59811E+00_JPRB,0.60451E+00_JPRB,0.60418E+00_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.53191E+00_JPRB,0.53363E+00_JPRB,0.53861E+00_JPRB,0.53976E+00_JPRB,0.53933E+00_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.47845E+00_JPRB,0.48447E+00_JPRB,0.48498E+00_JPRB,0.48691E+00_JPRB,0.48935E+00_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.42695E+00_JPRB,0.43265E+00_JPRB,0.43442E+00_JPRB,0.43949E+00_JPRB,0.44244E+00_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.37796E+00_JPRB,0.38437E+00_JPRB,0.38958E+00_JPRB,0.39367E+00_JPRB,0.39802E+00_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.33399E+00_JPRB,0.33971E+00_JPRB,0.34517E+00_JPRB,0.35032E+00_JPRB,0.35265E+00_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.29538E+00_JPRB,0.30247E+00_JPRB,0.30713E+00_JPRB,0.30943E+00_JPRB,0.31544E+00_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.26154E+00_JPRB,0.26955E+00_JPRB,0.27264E+00_JPRB,0.27778E+00_JPRB,0.28167E+00_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.23200E+00_JPRB,0.23896E+00_JPRB,0.24468E+00_JPRB,0.24838E+00_JPRB,0.25453E+00_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.20714E+00_JPRB,0.21368E+00_JPRB,0.21959E+00_JPRB,0.22402E+00_JPRB,0.22934E+00_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.18514E+00_JPRB,0.19070E+00_JPRB,0.19771E+00_JPRB,0.20426E+00_JPRB,0.20794E+00_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.16629E+00_JPRB,0.17247E+00_JPRB,0.17943E+00_JPRB,0.18543E+00_JPRB,0.19044E+00_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.15103E+00_JPRB,0.15758E+00_JPRB,0.16440E+00_JPRB,0.16947E+00_JPRB,0.17504E+00_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.13782E+00_JPRB,0.14448E+00_JPRB,0.15050E+00_JPRB,0.15723E+00_JPRB,0.16403E+00_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.12675E+00_JPRB,0.13284E+00_JPRB,0.13902E+00_JPRB,0.14547E+00_JPRB,0.15299E+00_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.11700E+00_JPRB,0.12400E+00_JPRB,0.13029E+00_JPRB,0.13779E+00_JPRB,0.14535E+00_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.10975E+00_JPRB,0.11580E+00_JPRB,0.12300E+00_JPRB,0.13106E+00_JPRB,0.13981E+00_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.10326E+00_JPRB,0.10877E+00_JPRB,0.11694E+00_JPRB,0.12523E+00_JPRB,0.13409E+00_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.97072E-01_JPRB,0.10392E+00_JPRB,0.11191E+00_JPRB,0.12092E+00_JPRB,0.13156E+00_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.92483E-01_JPRB,0.10003E+00_JPRB,0.10847E+00_JPRB,0.11777E+00_JPRB,0.12978E+00_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.89436E-01_JPRB,0.96549E-01_JPRB,0.10550E+00_JPRB,0.11582E+00_JPRB,0.12938E+00_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.86605E-01_JPRB,0.93852E-01_JPRB,0.10437E+00_JPRB,0.11565E+00_JPRB,0.13025E+00_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.83755E-01_JPRB,0.92443E-01_JPRB,0.10318E+00_JPRB,0.11569E+00_JPRB,0.13035E+00_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.80159E-01_JPRB,0.90106E-01_JPRB,0.10185E+00_JPRB,0.11331E+00_JPRB,0.13105E+00_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.76863E-01_JPRB,0.86981E-01_JPRB,0.98816E-01_JPRB,0.11094E+00_JPRB,0.12837E+00_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.73911E-01_JPRB,0.84640E-01_JPRB,0.95988E-01_JPRB,0.10951E+00_JPRB,0.12524E+00_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.71484E-01_JPRB,0.82465E-01_JPRB,0.93807E-01_JPRB,0.10732E+00_JPRB,0.12288E+00_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.68367E-01_JPRB,0.78553E-01_JPRB,0.90288E-01_JPRB,0.10290E+00_JPRB,0.11884E+00_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.65972E-01_JPRB,0.75367E-01_JPRB,0.87331E-01_JPRB,0.98979E-01_JPRB,0.11479E+00_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.63899E-01_JPRB,0.72995E-01_JPRB,0.84392E-01_JPRB,0.96170E-01_JPRB,0.11066E+00_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.61601E-01_JPRB,0.69361E-01_JPRB,0.80265E-01_JPRB,0.92296E-01_JPRB,0.10575E+00_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.58053E-01_JPRB,0.67236E-01_JPRB,0.77057E-01_JPRB,0.88848E-01_JPRB,0.10118E+00_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.55041E-01_JPRB,0.64788E-01_JPRB,0.73479E-01_JPRB,0.85189E-01_JPRB,0.97294E-01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.51538E-01_JPRB,0.61359E-01_JPRB,0.70493E-01_JPRB,0.81342E-01_JPRB,0.93711E-01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.48229E-01_JPRB,0.57754E-01_JPRB,0.67703E-01_JPRB,0.77712E-01_JPRB,0.88779E-01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.44328E-01_JPRB,0.53953E-01_JPRB,0.64327E-01_JPRB,0.74186E-01_JPRB,0.85354E-01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.40181E-01_JPRB,0.50939E-01_JPRB,0.60544E-01_JPRB,0.71079E-01_JPRB,0.81883E-01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.36327E-01_JPRB,0.47243E-01_JPRB,0.57625E-01_JPRB,0.67925E-01_JPRB,0.78806E-01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.33026E-01_JPRB,0.43278E-01_JPRB,0.54464E-01_JPRB,0.64411E-01_JPRB,0.75916E-01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.29600E-01_JPRB,0.39888E-01_JPRB,0.50913E-01_JPRB,0.61457E-01_JPRB,0.72719E-01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.26994E-01_JPRB,0.36264E-01_JPRB,0.46926E-01_JPRB,0.58631E-01_JPRB,0.68972E-01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.24928E-01_JPRB,0.33245E-01_JPRB,0.43870E-01_JPRB,0.55481E-01_JPRB,0.66121E-01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.23329E-01_JPRB,0.30647E-01_JPRB,0.40729E-01_JPRB,0.52051E-01_JPRB,0.63960E-01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.21581E-01_JPRB,0.28578E-01_JPRB,0.37651E-01_JPRB,0.48828E-01_JPRB,0.60673E-01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.20121E-01_JPRB,0.27060E-01_JPRB,0.35152E-01_JPRB,0.45854E-01_JPRB,0.57152E-01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.18692E-01_JPRB,0.25639E-01_JPRB,0.32995E-01_JPRB,0.42657E-01_JPRB,0.54655E-01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.18277E-01_JPRB,0.25273E-01_JPRB,0.32791E-01_JPRB,0.42508E-01_JPRB,0.53680E-01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.10693E+01_JPRB,0.10902E+01_JPRB,0.11032E+01_JPRB,0.10991E+01_JPRB,0.11118E+01_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.95953E+00_JPRB,0.97384E+00_JPRB,0.98577E+00_JPRB,0.99728E+00_JPRB,0.10070E+01_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.85940E+00_JPRB,0.86781E+00_JPRB,0.87766E+00_JPRB,0.88834E+00_JPRB,0.89855E+00_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.76187E+00_JPRB,0.76651E+00_JPRB,0.78116E+00_JPRB,0.79605E+00_JPRB,0.80429E+00_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.67627E+00_JPRB,0.68377E+00_JPRB,0.69734E+00_JPRB,0.70867E+00_JPRB,0.71758E+00_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.60442E+00_JPRB,0.61462E+00_JPRB,0.62319E+00_JPRB,0.63477E+00_JPRB,0.64696E+00_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.54250E+00_JPRB,0.55180E+00_JPRB,0.56132E+00_JPRB,0.57649E+00_JPRB,0.58604E+00_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.49000E+00_JPRB,0.49922E+00_JPRB,0.51229E+00_JPRB,0.52536E+00_JPRB,0.53903E+00_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.44362E+00_JPRB,0.45018E+00_JPRB,0.46523E+00_JPRB,0.48212E+00_JPRB,0.49590E+00_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.40390E+00_JPRB,0.41136E+00_JPRB,0.42554E+00_JPRB,0.44299E+00_JPRB,0.45956E+00_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.36600E+00_JPRB,0.37646E+00_JPRB,0.39144E+00_JPRB,0.40936E+00_JPRB,0.42622E+00_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.33488E+00_JPRB,0.34802E+00_JPRB,0.36259E+00_JPRB,0.38089E+00_JPRB,0.39832E+00_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.30569E+00_JPRB,0.32099E+00_JPRB,0.33730E+00_JPRB,0.35716E+00_JPRB,0.37447E+00_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.28345E+00_JPRB,0.29933E+00_JPRB,0.31861E+00_JPRB,0.33716E+00_JPRB,0.35400E+00_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.26524E+00_JPRB,0.28116E+00_JPRB,0.30310E+00_JPRB,0.32398E+00_JPRB,0.34341E+00_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.25036E+00_JPRB,0.26748E+00_JPRB,0.29040E+00_JPRB,0.31038E+00_JPRB,0.33527E+00_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.23678E+00_JPRB,0.25759E+00_JPRB,0.27958E+00_JPRB,0.30373E+00_JPRB,0.33097E+00_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.22835E+00_JPRB,0.25043E+00_JPRB,0.27298E+00_JPRB,0.30247E+00_JPRB,0.33069E+00_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.22381E+00_JPRB,0.24448E+00_JPRB,0.27386E+00_JPRB,0.30198E+00_JPRB,0.33135E+00_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.21945E+00_JPRB,0.24581E+00_JPRB,0.27557E+00_JPRB,0.30488E+00_JPRB,0.33817E+00_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.22020E+00_JPRB,0.24997E+00_JPRB,0.27933E+00_JPRB,0.31199E+00_JPRB,0.34537E+00_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.22328E+00_JPRB,0.25315E+00_JPRB,0.28560E+00_JPRB,0.31999E+00_JPRB,0.35204E+00_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.22463E+00_JPRB,0.25599E+00_JPRB,0.29016E+00_JPRB,0.32472E+00_JPRB,0.35705E+00_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.22454E+00_JPRB,0.25719E+00_JPRB,0.29064E+00_JPRB,0.32676E+00_JPRB,0.35643E+00_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.21917E+00_JPRB,0.25146E+00_JPRB,0.28533E+00_JPRB,0.32018E+00_JPRB,0.35207E+00_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.21431E+00_JPRB,0.24593E+00_JPRB,0.28070E+00_JPRB,0.31440E+00_JPRB,0.34740E+00_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.20995E+00_JPRB,0.24107E+00_JPRB,0.27540E+00_JPRB,0.30795E+00_JPRB,0.34247E+00_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.20148E+00_JPRB,0.23319E+00_JPRB,0.26577E+00_JPRB,0.30086E+00_JPRB,0.33366E+00_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.19132E+00_JPRB,0.22478E+00_JPRB,0.25632E+00_JPRB,0.29251E+00_JPRB,0.32436E+00_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.18231E+00_JPRB,0.21584E+00_JPRB,0.24724E+00_JPRB,0.28164E+00_JPRB,0.31641E+00_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.17273E+00_JPRB,0.20475E+00_JPRB,0.23702E+00_JPRB,0.26984E+00_JPRB,0.30535E+00_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.16365E+00_JPRB,0.19313E+00_JPRB,0.22566E+00_JPRB,0.25812E+00_JPRB,0.29340E+00_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.15471E+00_JPRB,0.18278E+00_JPRB,0.21464E+00_JPRB,0.24686E+00_JPRB,0.28060E+00_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.14477E+00_JPRB,0.17256E+00_JPRB,0.20328E+00_JPRB,0.23515E+00_JPRB,0.26753E+00_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.13513E+00_JPRB,0.16209E+00_JPRB,0.19092E+00_JPRB,0.22162E+00_JPRB,0.25481E+00_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.12632E+00_JPRB,0.15056E+00_JPRB,0.17900E+00_JPRB,0.20905E+00_JPRB,0.24085E+00_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.11846E+00_JPRB,0.14059E+00_JPRB,0.16812E+00_JPRB,0.19759E+00_JPRB,0.22701E+00_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.11278E+00_JPRB,0.13341E+00_JPRB,0.15756E+00_JPRB,0.18662E+00_JPRB,0.21629E+00_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.10711E+00_JPRB,0.12752E+00_JPRB,0.14951E+00_JPRB,0.17651E+00_JPRB,0.20555E+00_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.10062E+00_JPRB,0.12140E+00_JPRB,0.14273E+00_JPRB,0.16677E+00_JPRB,0.19594E+00_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.93686E-01_JPRB,0.11587E+00_JPRB,0.13705E+00_JPRB,0.15900E+00_JPRB,0.18673E+00_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.88183E-01_JPRB,0.10986E+00_JPRB,0.13159E+00_JPRB,0.15362E+00_JPRB,0.17808E+00_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.81924E-01_JPRB,0.10428E+00_JPRB,0.12662E+00_JPRB,0.14862E+00_JPRB,0.17143E+00_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.75991E-01_JPRB,0.98633E-01_JPRB,0.12219E+00_JPRB,0.14408E+00_JPRB,0.16698E+00_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.69399E-01_JPRB,0.92760E-01_JPRB,0.11664E+00_JPRB,0.14040E+00_JPRB,0.16308E+00_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.64018E-01_JPRB,0.88343E-01_JPRB,0.11169E+00_JPRB,0.13686E+00_JPRB,0.15969E+00_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.63145E-01_JPRB,0.86273E-01_JPRB,0.11143E+00_JPRB,0.13565E+00_JPRB,0.16187E+00_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.22241E+01_JPRB,0.22556E+01_JPRB,0.22932E+01_JPRB,0.23316E+01_JPRB,0.23817E+01_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.20015E+01_JPRB,0.20535E+01_JPRB,0.20976E+01_JPRB,0.21411E+01_JPRB,0.21895E+01_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.18111E+01_JPRB,0.18671E+01_JPRB,0.19196E+01_JPRB,0.19734E+01_JPRB,0.20226E+01_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.16513E+01_JPRB,0.17114E+01_JPRB,0.17632E+01_JPRB,0.18132E+01_JPRB,0.18623E+01_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.15041E+01_JPRB,0.15648E+01_JPRB,0.16197E+01_JPRB,0.16720E+01_JPRB,0.17169E+01_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.13731E+01_JPRB,0.14345E+01_JPRB,0.14937E+01_JPRB,0.15386E+01_JPRB,0.16052E+01_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.12478E+01_JPRB,0.13115E+01_JPRB,0.13641E+01_JPRB,0.14279E+01_JPRB,0.14977E+01_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.11298E+01_JPRB,0.11910E+01_JPRB,0.12495E+01_JPRB,0.13186E+01_JPRB,0.13914E+01_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.10266E+01_JPRB,0.10915E+01_JPRB,0.11508E+01_JPRB,0.12227E+01_JPRB,0.13004E+01_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.93959E+00_JPRB,0.10027E+01_JPRB,0.10735E+01_JPRB,0.11507E+01_JPRB,0.12312E+01_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.87016E+00_JPRB,0.93486E+00_JPRB,0.10125E+01_JPRB,0.10930E+01_JPRB,0.11794E+01_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.81213E+00_JPRB,0.88017E+00_JPRB,0.96483E+00_JPRB,0.10508E+01_JPRB,0.11396E+01_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.77134E+00_JPRB,0.84295E+00_JPRB,0.93081E+00_JPRB,0.10201E+01_JPRB,0.11152E+01_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.73832E+00_JPRB,0.81743E+00_JPRB,0.90746E+00_JPRB,0.10024E+01_JPRB,0.11020E+01_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.71831E+00_JPRB,0.80328E+00_JPRB,0.89505E+00_JPRB,0.99247E+00_JPRB,0.10943E+01_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.70848E+00_JPRB,0.79592E+00_JPRB,0.89143E+00_JPRB,0.99432E+00_JPRB,0.10940E+01_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.70725E+00_JPRB,0.79781E+00_JPRB,0.89906E+00_JPRB,0.10007E+01_JPRB,0.11009E+01_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.71125E+00_JPRB,0.80824E+00_JPRB,0.91144E+00_JPRB,0.10109E+01_JPRB,0.11144E+01_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.72057E+00_JPRB,0.82548E+00_JPRB,0.92423E+00_JPRB,0.10285E+01_JPRB,0.11338E+01_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.73855E+00_JPRB,0.84223E+00_JPRB,0.94322E+00_JPRB,0.10495E+01_JPRB,0.11523E+01_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.75860E+00_JPRB,0.86137E+00_JPRB,0.96653E+00_JPRB,0.10709E+01_JPRB,0.11736E+01_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.77584E+00_JPRB,0.88104E+00_JPRB,0.98358E+00_JPRB,0.10881E+01_JPRB,0.11928E+01_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.78526E+00_JPRB,0.88915E+00_JPRB,0.99181E+00_JPRB,0.10955E+01_JPRB,0.12024E+01_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.78420E+00_JPRB,0.88679E+00_JPRB,0.98962E+00_JPRB,0.10938E+01_JPRB,0.12013E+01_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.76619E+00_JPRB,0.86975E+00_JPRB,0.97162E+00_JPRB,0.10774E+01_JPRB,0.11823E+01_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.74778E+00_JPRB,0.85168E+00_JPRB,0.95355E+00_JPRB,0.10588E+01_JPRB,0.11642E+01_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.73003E+00_JPRB,0.83397E+00_JPRB,0.93638E+00_JPRB,0.10427E+01_JPRB,0.11461E+01_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.70694E+00_JPRB,0.80603E+00_JPRB,0.90951E+00_JPRB,0.10129E+01_JPRB,0.11179E+01_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.68380E+00_JPRB,0.77629E+00_JPRB,0.88021E+00_JPRB,0.98263E+00_JPRB,0.10876E+01_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.66231E+00_JPRB,0.74849E+00_JPRB,0.85130E+00_JPRB,0.95458E+00_JPRB,0.10576E+01_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.63688E+00_JPRB,0.72048E+00_JPRB,0.81634E+00_JPRB,0.92017E+00_JPRB,0.10227E+01_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.60858E+00_JPRB,0.69178E+00_JPRB,0.77940E+00_JPRB,0.88149E+00_JPRB,0.98460E+00_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.58153E+00_JPRB,0.66520E+00_JPRB,0.74925E+00_JPRB,0.84319E+00_JPRB,0.94694E+00_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.55197E+00_JPRB,0.63412E+00_JPRB,0.71872E+00_JPRB,0.80664E+00_JPRB,0.90684E+00_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.51844E+00_JPRB,0.60273E+00_JPRB,0.68769E+00_JPRB,0.77076E+00_JPRB,0.86117E+00_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.48120E+00_JPRB,0.57148E+00_JPRB,0.65491E+00_JPRB,0.74197E+00_JPRB,0.82485E+00_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.44584E+00_JPRB,0.53846E+00_JPRB,0.62079E+00_JPRB,0.70603E+00_JPRB,0.79220E+00_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.41289E+00_JPRB,0.50133E+00_JPRB,0.59314E+00_JPRB,0.67773E+00_JPRB,0.76297E+00_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.38263E+00_JPRB,0.46808E+00_JPRB,0.55994E+00_JPRB,0.64654E+00_JPRB,0.73545E+00_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.35216E+00_JPRB,0.43713E+00_JPRB,0.52781E+00_JPRB,0.61897E+00_JPRB,0.70212E+00_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.33102E+00_JPRB,0.40477E+00_JPRB,0.49059E+00_JPRB,0.58472E+00_JPRB,0.67270E+00_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.31146E+00_JPRB,0.37834E+00_JPRB,0.46271E+00_JPRB,0.55353E+00_JPRB,0.64596E+00_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.29087E+00_JPRB,0.35982E+00_JPRB,0.43598E+00_JPRB,0.52416E+00_JPRB,0.61765E+00_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.27304E+00_JPRB,0.34098E+00_JPRB,0.41224E+00_JPRB,0.49775E+00_JPRB,0.58771E+00_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.25824E+00_JPRB,0.32066E+00_JPRB,0.39085E+00_JPRB,0.46641E+00_JPRB,0.55829E+00_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.24548E+00_JPRB,0.30081E+00_JPRB,0.37338E+00_JPRB,0.44708E+00_JPRB,0.53062E+00_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.24212E+00_JPRB,0.29858E+00_JPRB,0.36550E+00_JPRB,0.44064E+00_JPRB,0.51789E+00_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.55998E+01_JPRB,0.57039E+01_JPRB,0.58049E+01_JPRB,0.59180E+01_JPRB,0.59854E+01_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.53275E+01_JPRB,0.54387E+01_JPRB,0.55543E+01_JPRB,0.56621E+01_JPRB,0.57635E+01_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.50203E+01_JPRB,0.51578E+01_JPRB,0.52898E+01_JPRB,0.54130E+01_JPRB,0.55373E+01_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.47246E+01_JPRB,0.48786E+01_JPRB,0.50266E+01_JPRB,0.51689E+01_JPRB,0.53242E+01_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.44403E+01_JPRB,0.46027E+01_JPRB,0.47680E+01_JPRB,0.49455E+01_JPRB,0.51299E+01_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.41648E+01_JPRB,0.43473E+01_JPRB,0.45415E+01_JPRB,0.47508E+01_JPRB,0.49298E+01_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.39134E+01_JPRB,0.41196E+01_JPRB,0.43493E+01_JPRB,0.45520E+01_JPRB,0.47522E+01_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.36873E+01_JPRB,0.39195E+01_JPRB,0.41603E+01_JPRB,0.43826E+01_JPRB,0.46005E+01_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.34974E+01_JPRB,0.37507E+01_JPRB,0.40010E+01_JPRB,0.42413E+01_JPRB,0.44759E+01_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.33605E+01_JPRB,0.36305E+01_JPRB,0.38873E+01_JPRB,0.41404E+01_JPRB,0.43929E+01_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.32571E+01_JPRB,0.35388E+01_JPRB,0.38042E+01_JPRB,0.40702E+01_JPRB,0.43353E+01_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.31836E+01_JPRB,0.34721E+01_JPRB,0.37495E+01_JPRB,0.40277E+01_JPRB,0.43044E+01_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.31346E+01_JPRB,0.34329E+01_JPRB,0.37222E+01_JPRB,0.40107E+01_JPRB,0.42953E+01_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.31155E+01_JPRB,0.34221E+01_JPRB,0.37222E+01_JPRB,0.40178E+01_JPRB,0.43079E+01_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.31157E+01_JPRB,0.34328E+01_JPRB,0.37392E+01_JPRB,0.40396E+01_JPRB,0.43346E+01_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.31335E+01_JPRB,0.34580E+01_JPRB,0.37695E+01_JPRB,0.40734E+01_JPRB,0.43720E+01_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.31697E+01_JPRB,0.34978E+01_JPRB,0.38120E+01_JPRB,0.41186E+01_JPRB,0.44189E+01_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.32194E+01_JPRB,0.35475E+01_JPRB,0.38638E+01_JPRB,0.41720E+01_JPRB,0.44722E+01_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.32811E+01_JPRB,0.36069E+01_JPRB,0.39241E+01_JPRB,0.42325E+01_JPRB,0.45314E+01_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.33484E+01_JPRB,0.36727E+01_JPRB,0.39897E+01_JPRB,0.42974E+01_JPRB,0.45949E+01_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.34186E+01_JPRB,0.37430E+01_JPRB,0.40586E+01_JPRB,0.43658E+01_JPRB,0.46602E+01_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.34801E+01_JPRB,0.38048E+01_JPRB,0.41197E+01_JPRB,0.44255E+01_JPRB,0.47156E+01_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.35126E+01_JPRB,0.38375E+01_JPRB,0.41525E+01_JPRB,0.44577E+01_JPRB,0.47454E+01_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.35115E+01_JPRB,0.38370E+01_JPRB,0.41529E+01_JPRB,0.44584E+01_JPRB,0.47449E+01_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.34620E+01_JPRB,0.37892E+01_JPRB,0.41066E+01_JPRB,0.44144E+01_JPRB,0.47052E+01_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.34108E+01_JPRB,0.37391E+01_JPRB,0.40587E+01_JPRB,0.43685E+01_JPRB,0.46624E+01_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.33603E+01_JPRB,0.36896E+01_JPRB,0.40114E+01_JPRB,0.43229E+01_JPRB,0.46208E+01_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.32696E+01_JPRB,0.36068E+01_JPRB,0.39317E+01_JPRB,0.42460E+01_JPRB,0.45479E+01_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.31746E+01_JPRB,0.35197E+01_JPRB,0.38475E+01_JPRB,0.41644E+01_JPRB,0.44716E+01_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.30768E+01_JPRB,0.34312E+01_JPRB,0.37630E+01_JPRB,0.40826E+01_JPRB,0.43924E+01_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.29558E+01_JPRB,0.33178E+01_JPRB,0.36587E+01_JPRB,0.39822E+01_JPRB,0.42959E+01_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.28280E+01_JPRB,0.31906E+01_JPRB,0.35435E+01_JPRB,0.38727E+01_JPRB,0.41899E+01_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.26988E+01_JPRB,0.30597E+01_JPRB,0.34201E+01_JPRB,0.37628E+01_JPRB,0.40831E+01_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.25661E+01_JPRB,0.29262E+01_JPRB,0.32865E+01_JPRB,0.36383E+01_JPRB,0.39682E+01_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.24176E+01_JPRB,0.27716E+01_JPRB,0.31308E+01_JPRB,0.34925E+01_JPRB,0.38381E+01_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.22754E+01_JPRB,0.26218E+01_JPRB,0.29793E+01_JPRB,0.33363E+01_JPRB,0.36948E+01_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.21329E+01_JPRB,0.24724E+01_JPRB,0.28302E+01_JPRB,0.31874E+01_JPRB,0.35454E+01_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.20005E+01_JPRB,0.23398E+01_JPRB,0.26856E+01_JPRB,0.30422E+01_JPRB,0.34002E+01_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.18713E+01_JPRB,0.22087E+01_JPRB,0.25515E+01_JPRB,0.29067E+01_JPRB,0.32588E+01_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.17459E+01_JPRB,0.20772E+01_JPRB,0.24169E+01_JPRB,0.27666E+01_JPRB,0.31241E+01_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.16095E+01_JPRB,0.19502E+01_JPRB,0.22895E+01_JPRB,0.26325E+01_JPRB,0.29855E+01_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.15066E+01_JPRB,0.18320E+01_JPRB,0.21659E+01_JPRB,0.25081E+01_JPRB,0.28569E+01_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.14318E+01_JPRB,0.17117E+01_JPRB,0.20491E+01_JPRB,0.23896E+01_JPRB,0.27343E+01_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.13449E+01_JPRB,0.16235E+01_JPRB,0.19309E+01_JPRB,0.22682E+01_JPRB,0.26139E+01_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.12667E+01_JPRB,0.15514E+01_JPRB,0.18274E+01_JPRB,0.21528E+01_JPRB,0.24919E+01_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.11763E+01_JPRB,0.14696E+01_JPRB,0.17445E+01_JPRB,0.20345E+01_JPRB,0.23757E+01_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.11472E+01_JPRB,0.14428E+01_JPRB,0.17312E+01_JPRB,0.20031E+01_JPRB,0.23234E+01_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.15147E+02_JPRB,0.15130E+02_JPRB,0.15113E+02_JPRB,0.15099E+02_JPRB,0.15078E+02_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.15510E+02_JPRB,0.15546E+02_JPRB,0.15567E+02_JPRB,0.15587E+02_JPRB,0.15585E+02_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.15739E+02_JPRB,0.15841E+02_JPRB,0.15930E+02_JPRB,0.15986E+02_JPRB,0.16004E+02_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.15858E+02_JPRB,0.16042E+02_JPRB,0.16196E+02_JPRB,0.16295E+02_JPRB,0.16347E+02_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.15892E+02_JPRB,0.16168E+02_JPRB,0.16375E+02_JPRB,0.16519E+02_JPRB,0.16620E+02_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.15890E+02_JPRB,0.16233E+02_JPRB,0.16495E+02_JPRB,0.16687E+02_JPRB,0.16843E+02_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.15860E+02_JPRB,0.16260E+02_JPRB,0.16572E+02_JPRB,0.16822E+02_JPRB,0.17016E+02_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.15821E+02_JPRB,0.16274E+02_JPRB,0.16642E+02_JPRB,0.16937E+02_JPRB,0.17165E+02_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.15778E+02_JPRB,0.16284E+02_JPRB,0.16705E+02_JPRB,0.17036E+02_JPRB,0.17293E+02_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.15777E+02_JPRB,0.16337E+02_JPRB,0.16794E+02_JPRB,0.17151E+02_JPRB,0.17417E+02_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.15815E+02_JPRB,0.16408E+02_JPRB,0.16883E+02_JPRB,0.17258E+02_JPRB,0.17537E+02_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.15884E+02_JPRB,0.16493E+02_JPRB,0.16982E+02_JPRB,0.17365E+02_JPRB,0.17648E+02_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.15973E+02_JPRB,0.16594E+02_JPRB,0.17087E+02_JPRB,0.17470E+02_JPRB,0.17753E+02_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.16098E+02_JPRB,0.16711E+02_JPRB,0.17198E+02_JPRB,0.17574E+02_JPRB,0.17853E+02_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.16232E+02_JPRB,0.16836E+02_JPRB,0.17310E+02_JPRB,0.17676E+02_JPRB,0.17946E+02_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.16376E+02_JPRB,0.16966E+02_JPRB,0.17425E+02_JPRB,0.17775E+02_JPRB,0.18032E+02_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.16527E+02_JPRB,0.17096E+02_JPRB,0.17538E+02_JPRB,0.17871E+02_JPRB,0.18111E+02_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.16681E+02_JPRB,0.17223E+02_JPRB,0.17646E+02_JPRB,0.17959E+02_JPRB,0.18183E+02_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.16832E+02_JPRB,0.17348E+02_JPRB,0.17747E+02_JPRB,0.18041E+02_JPRB,0.18247E+02_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.16982E+02_JPRB,0.17470E+02_JPRB,0.17844E+02_JPRB,0.18116E+02_JPRB,0.18304E+02_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.17125E+02_JPRB,0.17586E+02_JPRB,0.17935E+02_JPRB,0.18187E+02_JPRB,0.18356E+02_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.17243E+02_JPRB,0.17681E+02_JPRB,0.18009E+02_JPRB,0.18243E+02_JPRB,0.18396E+02_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.17308E+02_JPRB,0.17736E+02_JPRB,0.18053E+02_JPRB,0.18277E+02_JPRB,0.18422E+02_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.17321E+02_JPRB,0.17747E+02_JPRB,0.18064E+02_JPRB,0.18289E+02_JPRB,0.18431E+02_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.17259E+02_JPRB,0.17701E+02_JPRB,0.18033E+02_JPRB,0.18270E+02_JPRB,0.18425E+02_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.17190E+02_JPRB,0.17649E+02_JPRB,0.17997E+02_JPRB,0.18247E+02_JPRB,0.18415E+02_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.17116E+02_JPRB,0.17594E+02_JPRB,0.17957E+02_JPRB,0.18221E+02_JPRB,0.18401E+02_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.16981E+02_JPRB,0.17491E+02_JPRB,0.17882E+02_JPRB,0.18168E+02_JPRB,0.18367E+02_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.16829E+02_JPRB,0.17375E+02_JPRB,0.17795E+02_JPRB,0.18107E+02_JPRB,0.18328E+02_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.16667E+02_JPRB,0.17250E+02_JPRB,0.17700E+02_JPRB,0.18038E+02_JPRB,0.18281E+02_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.16452E+02_JPRB,0.17082E+02_JPRB,0.17573E+02_JPRB,0.17944E+02_JPRB,0.18214E+02_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.16203E+02_JPRB,0.16887E+02_JPRB,0.17421E+02_JPRB,0.17833E+02_JPRB,0.18135E+02_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.15935E+02_JPRB,0.16673E+02_JPRB,0.17257E+02_JPRB,0.17708E+02_JPRB,0.18046E+02_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.15628E+02_JPRB,0.16427E+02_JPRB,0.17064E+02_JPRB,0.17560E+02_JPRB,0.17936E+02_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.15258E+02_JPRB,0.16126E+02_JPRB,0.16827E+02_JPRB,0.17377E+02_JPRB,0.17799E+02_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.14864E+02_JPRB,0.15798E+02_JPRB,0.16564E+02_JPRB,0.17174E+02_JPRB,0.17643E+02_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.14439E+02_JPRB,0.15441E+02_JPRB,0.16276E+02_JPRB,0.16946E+02_JPRB,0.17469E+02_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.14012E+02_JPRB,0.15084E+02_JPRB,0.15980E+02_JPRB,0.16711E+02_JPRB,0.17289E+02_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.13576E+02_JPRB,0.14715E+02_JPRB,0.15671E+02_JPRB,0.16463E+02_JPRB,0.17096E+02_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.13120E+02_JPRB,0.14320E+02_JPRB,0.15341E+02_JPRB,0.16194E+02_JPRB,0.16882E+02_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.12642E+02_JPRB,0.13899E+02_JPRB,0.14988E+02_JPRB,0.15902E+02_JPRB,0.16649E+02_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.12147E+02_JPRB,0.13496E+02_JPRB,0.14645E+02_JPRB,0.15614E+02_JPRB,0.16418E+02_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.11626E+02_JPRB,0.13090E+02_JPRB,0.14295E+02_JPRB,0.15320E+02_JPRB,0.16178E+02_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.11110E+02_JPRB,0.12619E+02_JPRB,0.13926E+02_JPRB,0.15012E+02_JPRB,0.15922E+02_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.10565E+02_JPRB,0.12110E+02_JPRB,0.13518E+02_JPRB,0.14685E+02_JPRB,0.15649E+02_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.10061E+02_JPRB,0.11633E+02_JPRB,0.13084E+02_JPRB,0.14356E+02_JPRB,0.15374E+02_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.98377E+01_JPRB,0.11416E+02_JPRB,0.12868E+02_JPRB,0.14184E+02_JPRB,0.15259E+02_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.41304E+02_JPRB,0.40483E+02_JPRB,0.39654E+02_JPRB,0.38829E+02_JPRB,0.38029E+02_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.44686E+02_JPRB,0.43762E+02_JPRB,0.42836E+02_JPRB,0.41888E+02_JPRB,0.41004E+02_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.48004E+02_JPRB,0.46942E+02_JPRB,0.45864E+02_JPRB,0.44813E+02_JPRB,0.43844E+02_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.51150E+02_JPRB,0.49938E+02_JPRB,0.48734E+02_JPRB,0.47591E+02_JPRB,0.46512E+02_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.54100E+02_JPRB,0.52729E+02_JPRB,0.51435E+02_JPRB,0.50180E+02_JPRB,0.48962E+02_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.56777E+02_JPRB,0.55306E+02_JPRB,0.53894E+02_JPRB,0.52525E+02_JPRB,0.51164E+02_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.59186E+02_JPRB,0.57635E+02_JPRB,0.56100E+02_JPRB,0.54603E+02_JPRB,0.53129E+02_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.61293E+02_JPRB,0.59648E+02_JPRB,0.58005E+02_JPRB,0.56388E+02_JPRB,0.54798E+02_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.63124E+02_JPRB,0.61368E+02_JPRB,0.59613E+02_JPRB,0.57895E+02_JPRB,0.56204E+02_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.64562E+02_JPRB,0.62695E+02_JPRB,0.60841E+02_JPRB,0.59040E+02_JPRB,0.57268E+02_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.65690E+02_JPRB,0.63742E+02_JPRB,0.61820E+02_JPRB,0.59937E+02_JPRB,0.58087E+02_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.66548E+02_JPRB,0.64535E+02_JPRB,0.62550E+02_JPRB,0.60597E+02_JPRB,0.58690E+02_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.67194E+02_JPRB,0.65115E+02_JPRB,0.63062E+02_JPRB,0.61050E+02_JPRB,0.59091E+02_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.67597E+02_JPRB,0.65466E+02_JPRB,0.63369E+02_JPRB,0.61312E+02_JPRB,0.59309E+02_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.67831E+02_JPRB,0.65647E+02_JPRB,0.63518E+02_JPRB,0.61430E+02_JPRB,0.59393E+02_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.67908E+02_JPRB,0.65687E+02_JPRB,0.63527E+02_JPRB,0.61427E+02_JPRB,0.59357E+02_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.67845E+02_JPRB,0.65603E+02_JPRB,0.63419E+02_JPRB,0.61304E+02_JPRB,0.59222E+02_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.67682E+02_JPRB,0.65422E+02_JPRB,0.63225E+02_JPRB,0.61094E+02_JPRB,0.59010E+02_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.67415E+02_JPRB,0.65154E+02_JPRB,0.62953E+02_JPRB,0.60816E+02_JPRB,0.58721E+02_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.67084E+02_JPRB,0.64817E+02_JPRB,0.62622E+02_JPRB,0.60477E+02_JPRB,0.58393E+02_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.66692E+02_JPRB,0.64428E+02_JPRB,0.62242E+02_JPRB,0.60092E+02_JPRB,0.58024E+02_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.66346E+02_JPRB,0.64077E+02_JPRB,0.61890E+02_JPRB,0.59745E+02_JPRB,0.57700E+02_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.66188E+02_JPRB,0.63920E+02_JPRB,0.61727E+02_JPRB,0.59582E+02_JPRB,0.57542E+02_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.66248E+02_JPRB,0.63978E+02_JPRB,0.61782E+02_JPRB,0.59625E+02_JPRB,0.57587E+02_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.66642E+02_JPRB,0.64358E+02_JPRB,0.62144E+02_JPRB,0.59978E+02_JPRB,0.57911E+02_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.67048E+02_JPRB,0.64747E+02_JPRB,0.62516E+02_JPRB,0.60340E+02_JPRB,0.58249E+02_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.67435E+02_JPRB,0.65122E+02_JPRB,0.62879E+02_JPRB,0.60689E+02_JPRB,0.58578E+02_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.68061E+02_JPRB,0.65724E+02_JPRB,0.63462E+02_JPRB,0.61257E+02_JPRB,0.59113E+02_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.68702E+02_JPRB,0.66354E+02_JPRB,0.64067E+02_JPRB,0.61847E+02_JPRB,0.59682E+02_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.69355E+02_JPRB,0.66983E+02_JPRB,0.64678E+02_JPRB,0.62437E+02_JPRB,0.60259E+02_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.70142E+02_JPRB,0.67744E+02_JPRB,0.65416E+02_JPRB,0.63159E+02_JPRB,0.60959E+02_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.70991E+02_JPRB,0.68567E+02_JPRB,0.66218E+02_JPRB,0.63930E+02_JPRB,0.61713E+02_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.71837E+02_JPRB,0.69401E+02_JPRB,0.67026E+02_JPRB,0.64713E+02_JPRB,0.62473E+02_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.72733E+02_JPRB,0.70287E+02_JPRB,0.67885E+02_JPRB,0.65552E+02_JPRB,0.63292E+02_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.73741E+02_JPRB,0.71285E+02_JPRB,0.68859E+02_JPRB,0.66493E+02_JPRB,0.64198E+02_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.74725E+02_JPRB,0.72283E+02_JPRB,0.69840E+02_JPRB,0.67442E+02_JPRB,0.65125E+02_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.75665E+02_JPRB,0.73280E+02_JPRB,0.70828E+02_JPRB,0.68404E+02_JPRB,0.66060E+02_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.76534E+02_JPRB,0.74218E+02_JPRB,0.71764E+02_JPRB,0.69323E+02_JPRB,0.66942E+02_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.77333E+02_JPRB,0.75093E+02_JPRB,0.72664E+02_JPRB,0.70214E+02_JPRB,0.67806E+02_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.78102E+02_JPRB,0.75935E+02_JPRB,0.73563E+02_JPRB,0.71111E+02_JPRB,0.68683E+02_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.78815E+02_JPRB,0.76761E+02_JPRB,0.74462E+02_JPRB,0.72010E+02_JPRB,0.69568E+02_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.79431E+02_JPRB,0.77488E+02_JPRB,0.75258E+02_JPRB,0.72840E+02_JPRB,0.70386E+02_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.79987E+02_JPRB,0.78156E+02_JPRB,0.75999E+02_JPRB,0.73628E+02_JPRB,0.71177E+02_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.80478E+02_JPRB,0.78776E+02_JPRB,0.76714E+02_JPRB,0.74415E+02_JPRB,0.71963E+02_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.80898E+02_JPRB,0.79365E+02_JPRB,0.77410E+02_JPRB,0.75181E+02_JPRB,0.72750E+02_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.81210E+02_JPRB,0.79894E+02_JPRB,0.78053E+02_JPRB,0.75880E+02_JPRB,0.73498E+02_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.81312E+02_JPRB,0.80086E+02_JPRB,0.78299E+02_JPRB,0.76156E+02_JPRB,0.73801E+02_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.81866E+02_JPRB,0.78569E+02_JPRB,0.75624E+02_JPRB,0.72854E+02_JPRB,0.70288E+02_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.93095E+02_JPRB,0.88986E+02_JPRB,0.85351E+02_JPRB,0.82051E+02_JPRB,0.78936E+02_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.10470E+03_JPRB,0.99738E+02_JPRB,0.95227E+02_JPRB,0.91249E+02_JPRB,0.87478E+02_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.11635E+03_JPRB,0.11037E+03_JPRB,0.10495E+03_JPRB,0.10011E+03_JPRB,0.95646E+02_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.12769E+03_JPRB,0.12074E+03_JPRB,0.11431E+03_JPRB,0.10856E+03_JPRB,0.10332E+03_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.13851E+03_JPRB,0.13038E+03_JPRB,0.12299E+03_JPRB,0.11635E+03_JPRB,0.11033E+03_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.14848E+03_JPRB,0.13912E+03_JPRB,0.13084E+03_JPRB,0.12336E+03_JPRB,0.11656E+03_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.15718E+03_JPRB,0.14679E+03_JPRB,0.13761E+03_JPRB,0.12934E+03_JPRB,0.12188E+03_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.16462E+03_JPRB,0.15341E+03_JPRB,0.14345E+03_JPRB,0.13443E+03_JPRB,0.12636E+03_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.17012E+03_JPRB,0.15822E+03_JPRB,0.14760E+03_JPRB,0.13801E+03_JPRB,0.12950E+03_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.17437E+03_JPRB,0.16184E+03_JPRB,0.15069E+03_JPRB,0.14069E+03_JPRB,0.13184E+03_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.17733E+03_JPRB,0.16436E+03_JPRB,0.15282E+03_JPRB,0.14251E+03_JPRB,0.13340E+03_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.17910E+03_JPRB,0.16583E+03_JPRB,0.15401E+03_JPRB,0.14354E+03_JPRB,0.13426E+03_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.17968E+03_JPRB,0.16627E+03_JPRB,0.15433E+03_JPRB,0.14378E+03_JPRB,0.13445E+03_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.17946E+03_JPRB,0.16602E+03_JPRB,0.15406E+03_JPRB,0.14351E+03_JPRB,0.13417E+03_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.17860E+03_JPRB,0.16522E+03_JPRB,0.15334E+03_JPRB,0.14282E+03_JPRB,0.13355E+03_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.17717E+03_JPRB,0.16389E+03_JPRB,0.15216E+03_JPRB,0.14174E+03_JPRB,0.13260E+03_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.17533E+03_JPRB,0.16225E+03_JPRB,0.15066E+03_JPRB,0.14043E+03_JPRB,0.13143E+03_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.17313E+03_JPRB,0.16029E+03_JPRB,0.14890E+03_JPRB,0.13886E+03_JPRB,0.13004E+03_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.17069E+03_JPRB,0.15811E+03_JPRB,0.14694E+03_JPRB,0.13716E+03_JPRB,0.12847E+03_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.16804E+03_JPRB,0.15577E+03_JPRB,0.14487E+03_JPRB,0.13533E+03_JPRB,0.12682E+03_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.16580E+03_JPRB,0.15376E+03_JPRB,0.14309E+03_JPRB,0.13376E+03_JPRB,0.12539E+03_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.16467E+03_JPRB,0.15275E+03_JPRB,0.14221E+03_JPRB,0.13298E+03_JPRB,0.12468E+03_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.16486E+03_JPRB,0.15289E+03_JPRB,0.14233E+03_JPRB,0.13308E+03_JPRB,0.12477E+03_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.16688E+03_JPRB,0.15469E+03_JPRB,0.14392E+03_JPRB,0.13446E+03_JPRB,0.12602E+03_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.16902E+03_JPRB,0.15657E+03_JPRB,0.14555E+03_JPRB,0.13592E+03_JPRB,0.12732E+03_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.17110E+03_JPRB,0.15844E+03_JPRB,0.14718E+03_JPRB,0.13734E+03_JPRB,0.12861E+03_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.17468E+03_JPRB,0.16155E+03_JPRB,0.14992E+03_JPRB,0.13976E+03_JPRB,0.13077E+03_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.17848E+03_JPRB,0.16489E+03_JPRB,0.15289E+03_JPRB,0.14236E+03_JPRB,0.13307E+03_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.18237E+03_JPRB,0.16833E+03_JPRB,0.15592E+03_JPRB,0.14501E+03_JPRB,0.13541E+03_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.18726E+03_JPRB,0.17263E+03_JPRB,0.15975E+03_JPRB,0.14834E+03_JPRB,0.13835E+03_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.19275E+03_JPRB,0.17748E+03_JPRB,0.16403E+03_JPRB,0.15210E+03_JPRB,0.14166E+03_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.19851E+03_JPRB,0.18250E+03_JPRB,0.16844E+03_JPRB,0.15602E+03_JPRB,0.14507E+03_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.20490E+03_JPRB,0.18806E+03_JPRB,0.17333E+03_JPRB,0.16038E+03_JPRB,0.14888E+03_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.21238E+03_JPRB,0.19462E+03_JPRB,0.17910E+03_JPRB,0.16545E+03_JPRB,0.15337E+03_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.22029E+03_JPRB,0.20156E+03_JPRB,0.18514E+03_JPRB,0.17074E+03_JPRB,0.15806E+03_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.22889E+03_JPRB,0.20882E+03_JPRB,0.19150E+03_JPRB,0.17637E+03_JPRB,0.16304E+03_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.23745E+03_JPRB,0.21596E+03_JPRB,0.19782E+03_JPRB,0.18187E+03_JPRB,0.16787E+03_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.24629E+03_JPRB,0.22340E+03_JPRB,0.20422E+03_JPRB,0.18747E+03_JPRB,0.17280E+03_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.25553E+03_JPRB,0.23136E+03_JPRB,0.21090E+03_JPRB,0.19335E+03_JPRB,0.17798E+03_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.26553E+03_JPRB,0.23980E+03_JPRB,0.21793E+03_JPRB,0.19951E+03_JPRB,0.18336E+03_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.27524E+03_JPRB,0.24799E+03_JPRB,0.22485E+03_JPRB,0.20544E+03_JPRB,0.18854E+03_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.28502E+03_JPRB,0.25615E+03_JPRB,0.23188E+03_JPRB,0.21133E+03_JPRB,0.19372E+03_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.29529E+03_JPRB,0.26491E+03_JPRB,0.23927E+03_JPRB,0.21749E+03_JPRB,0.19913E+03_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.30624E+03_JPRB,0.27413E+03_JPRB,0.24703E+03_JPRB,0.22404E+03_JPRB,0.20478E+03_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.31727E+03_JPRB,0.28329E+03_JPRB,0.25471E+03_JPRB,0.23065E+03_JPRB,0.21031E+03_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.32188E+03_JPRB,0.28710E+03_JPRB,0.25796E+03_JPRB,0.23341E+03_JPRB,0.21261E+03_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.214504E-06_JPRB, 0.460418E-06_JPRB, 0.357608E-05_JPRB, 0.192037E-05_JPRB /)
+FORREF(:, 2) = (/ 0.142576E-05_JPRB, 0.364463E-05_JPRB, 0.117033E-04_JPRB, 0.112085E-04_JPRB /)
+FORREF(:, 3) = (/ 0.101536E-04_JPRB, 0.124096E-04_JPRB, 0.509190E-04_JPRB, 0.565282E-04_JPRB /)
+FORREF(:, 4) = (/ 0.143394E-03_JPRB, 0.154700E-03_JPRB, 0.466498E-03_JPRB, 0.918829E-03_JPRB /)
+FORREF(:, 5) = (/ 0.251631E-02_JPRB, 0.241729E-02_JPRB, 0.240057E-02_JPRB, 0.350408E-02_JPRB /)
+FORREF(:, 6) = (/ 0.410309E-02_JPRB, 0.416851E-02_JPRB, 0.390925E-02_JPRB, 0.383694E-02_JPRB /)
+FORREF(:, 7) = (/ 0.445387E-02_JPRB, 0.448657E-02_JPRB, 0.432310E-02_JPRB, 0.370739E-02_JPRB /)
+FORREF(:, 8) = (/ 0.458150E-02_JPRB, 0.460014E-02_JPRB, 0.450245E-02_JPRB, 0.336718E-02_JPRB /)
+FORREF(:, 9) = (/ 0.465423E-02_JPRB, 0.465595E-02_JPRB, 0.467006E-02_JPRB, 0.368061E-02_JPRB /)
+FORREF(:,10) = (/ 0.493955E-02_JPRB, 0.490181E-02_JPRB, 0.481941E-02_JPRB, 0.367577E-02_JPRB /)
+FORREF(:,11) = (/ 0.511876E-02_JPRB, 0.490981E-02_JPRB, 0.493303E-02_JPRB, 0.357423E-02_JPRB /)
+FORREF(:,12) = (/ 0.509845E-02_JPRB, 0.511556E-02_JPRB, 0.504031E-02_JPRB, 0.355915E-02_JPRB /)
+FORREF(:,13) = (/ 0.523822E-02_JPRB, 0.530473E-02_JPRB, 0.523811E-02_JPRB, 0.414259E-02_JPRB /)
+FORREF(:,14) = (/ 0.551133E-02_JPRB, 0.535831E-02_JPRB, 0.546702E-02_JPRB, 0.473875E-02_JPRB /)
+FORREF(:,15) = (/ 0.609781E-02_JPRB, 0.589859E-02_JPRB, 0.561187E-02_JPRB, 0.528981E-02_JPRB /)
+FORREF(:,16) = (/ 0.644958E-02_JPRB, 0.631718E-02_JPRB, 0.625201E-02_JPRB, 0.600448E-02_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.217058E-03_JPRB, 0.176391E-03_JPRB, 0.143342E-03_JPRB, 0.116486E-03_JPRB, 0.946614E-04_JPRB, &
+ & 0.769257E-04_JPRB, 0.625131E-04_JPRB, 0.508007E-04_JPRB, 0.412828E-04_JPRB, 0.335481E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.598055E-03_JPRB, 0.484805E-03_JPRB, 0.393000E-03_JPRB, 0.318580E-03_JPRB, 0.258252E-03_JPRB, &
+ & 0.209348E-03_JPRB, 0.169705E-03_JPRB, 0.137569E-03_JPRB, 0.111518E-03_JPRB, 0.904008E-04_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.102691E-02_JPRB, 0.930281E-03_JPRB, 0.842740E-03_JPRB, 0.763437E-03_JPRB, 0.691596E-03_JPRB, &
+ & 0.626516E-03_JPRB, 0.567560E-03_JPRB, 0.514152E-03_JPRB, 0.465769E-03_JPRB, 0.421940E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.388569E-02_JPRB, 0.365098E-02_JPRB, 0.343045E-02_JPRB, 0.322324E-02_JPRB, 0.302854E-02_JPRB, &
+ & 0.284561E-02_JPRB, 0.267372E-02_JPRB, 0.251222E-02_JPRB, 0.236047E-02_JPRB, 0.221789E-02_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.349845E-01_JPRB, 0.326678E-01_JPRB, 0.305045E-01_JPRB, 0.284845E-01_JPRB, 0.265982E-01_JPRB, &
+ & 0.248369E-01_JPRB, 0.231921E-01_JPRB, 0.216563E-01_JPRB, 0.202222E-01_JPRB, 0.188831E-01_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.613705E-01_JPRB, 0.562676E-01_JPRB, 0.515890E-01_JPRB, 0.472994E-01_JPRB, 0.433665E-01_JPRB, &
+ & 0.397606E-01_JPRB, 0.364545E-01_JPRB, 0.334233E-01_JPRB, 0.306442E-01_JPRB, 0.280961E-01_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.656981E-01_JPRB, 0.602660E-01_JPRB, 0.552830E-01_JPRB, 0.507120E-01_JPRB, 0.465190E-01_JPRB, &
+ & 0.426726E-01_JPRB, 0.391443E-01_JPRB, 0.359077E-01_JPRB, 0.329387E-01_JPRB, 0.302153E-01_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.671782E-01_JPRB, 0.616461E-01_JPRB, 0.565695E-01_JPRB, 0.519110E-01_JPRB, 0.476361E-01_JPRB, &
+ & 0.437132E-01_JPRB, 0.401134E-01_JPRB, 0.368100E-01_JPRB, 0.337787E-01_JPRB, 0.309970E-01_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.675902E-01_JPRB, 0.620888E-01_JPRB, 0.570351E-01_JPRB, 0.523928E-01_JPRB, 0.481284E-01_JPRB, &
+ & 0.442110E-01_JPRB, 0.406125E-01_JPRB, 0.373069E-01_JPRB, 0.342703E-01_JPRB, 0.314809E-01_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.708308E-01_JPRB, 0.651419E-01_JPRB, 0.599099E-01_JPRB, 0.550981E-01_JPRB, 0.506728E-01_JPRB, &
+ & 0.466030E-01_JPRB, 0.428600E-01_JPRB, 0.394176E-01_JPRB, 0.362517E-01_JPRB, 0.333401E-01_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.698445E-01_JPRB, 0.646584E-01_JPRB, 0.598573E-01_JPRB, 0.554128E-01_JPRB, 0.512982E-01_JPRB, &
+ & 0.474892E-01_JPRB, 0.439630E-01_JPRB, 0.406986E-01_JPRB, 0.376766E-01_JPRB, 0.348791E-01_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.743921E-01_JPRB, 0.682057E-01_JPRB, 0.625337E-01_JPRB, 0.573334E-01_JPRB, 0.525655E-01_JPRB, &
+ & 0.481942E-01_JPRB, 0.441863E-01_JPRB, 0.405118E-01_JPRB, 0.371428E-01_JPRB, 0.340540E-01_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.775758E-01_JPRB, 0.709818E-01_JPRB, 0.649484E-01_JPRB, 0.594277E-01_JPRB, 0.543764E-01_JPRB, &
+ & 0.497544E-01_JPRB, 0.455253E-01_JPRB, 0.416556E-01_JPRB, 0.381149E-01_JPRB, 0.348751E-01_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.776545E-01_JPRB, 0.714761E-01_JPRB, 0.657894E-01_JPRB, 0.605550E-01_JPRB, 0.557372E-01_JPRB, &
+ & 0.513026E-01_JPRB, 0.472209E-01_JPRB, 0.434639E-01_JPRB, 0.400058E-01_JPRB, 0.368229E-01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.855675E-01_JPRB, 0.787337E-01_JPRB, 0.724456E-01_JPRB, 0.666598E-01_JPRB, 0.613360E-01_JPRB, &
+ & 0.564374E-01_JPRB, 0.519301E-01_JPRB, 0.477827E-01_JPRB, 0.439666E-01_JPRB, 0.404552E-01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.934781E-01_JPRB, 0.855190E-01_JPRB, 0.782376E-01_JPRB, 0.715761E-01_JPRB, 0.654819E-01_JPRB, &
+ & 0.599065E-01_JPRB, 0.548058E-01_JPRB, 0.501394E-01_JPRB, 0.458704E-01_JPRB, 0.419648E-01_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB20',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB20
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB20
+END SUBROUTINE SRTM_KGB20
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb21.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb21.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb21.F90	(revision 3330)
@@ -0,0 +1,11297 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB21
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA21, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:, 1) = (/ &
+ & 16.1643_JPRB , 15.5806_JPRB, 14.7254_JPRB    , 13.5541_JPRB    , &
+ & 11.9519_JPRB ,10.44410_JPRB, 8.37884_JPRB    , 6.26384_JPRB    , &
+ & 4.28435_JPRB ,0.465228_JPRB, 0.385095_JPRB   ,0.304226_JPRB    , &
+ & 0.222479_JPRB,0.143286_JPRB, 5.58046E-02_JPRB, 7.84856E-03_JPRB /)  
+SFLUXREF(:, 2) = (/ &
+ & 15.6451_JPRB , 15.3170_JPRB, 14.6987_JPRB    , 13.7350_JPRB    , &
+ & 12.2267_JPRB ,10.51646_JPRB, 8.47150_JPRB    , 6.38873_JPRB    , &
+ & 4.33536_JPRB ,0.470610_JPRB,0.389426_JPRB    ,0.306461_JPRB    , &
+ & 0.223537_JPRB,0.143273_JPRB, 5.58179E-02_JPRB, 7.84856E-03_JPRB /)  
+SFLUXREF(:, 3) = (/ &
+ & 15.6092_JPRB , 15.3293_JPRB, 14.6881_JPRB    , 13.6693_JPRB    , &
+ & 12.2342_JPRB ,10.52010_JPRB, 8.49442_JPRB    , 6.42138_JPRB    , &
+ & 4.35865_JPRB ,0.473349_JPRB,0.391349_JPRB    ,0.308861_JPRB    , &
+ & 0.224666_JPRB,0.144799_JPRB, 5.58176E-02_JPRB, 7.84881E-03_JPRB /)  
+SFLUXREF(:, 4) = (/ &
+ & 15.5786_JPRB , 15.3422_JPRB, 14.6894_JPRB    , 13.6040_JPRB    , &
+ & 12.2567_JPRB ,10.49400_JPRB, 8.53521_JPRB    , 6.44427_JPRB    , &
+ & 4.37208_JPRB ,0.475709_JPRB,0.392956_JPRB    ,0.309737_JPRB    , &
+ & 0.226274_JPRB,0.146483_JPRB, 5.59325E-02_JPRB, 7.84881E-03_JPRB /)  
+SFLUXREF(:, 5) = (/ &
+ & 15.5380_JPRB , 15.3826_JPRB, 14.6575_JPRB    , 13.5722_JPRB    , &
+ & 12.2646_JPRB ,10.47672_JPRB, 8.57158_JPRB    , 6.46343_JPRB    , &
+ & 4.38259_JPRB ,0.477647_JPRB,0.393982_JPRB    ,0.310686_JPRB    , &
+ & 0.227620_JPRB,0.148376_JPRB, 5.60398E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 6) = (/ &
+ & 15.5124_JPRB , 15.3986_JPRB, 14.6240_JPRB    , 13.5535_JPRB    , &
+ & 12.2468_JPRB ,10.48891_JPRB, 8.60434_JPRB    , 6.47985_JPRB    , &
+ & 4.39448_JPRB ,0.478267_JPRB,0.395618_JPRB    ,0.311043_JPRB    , &
+ & 0.230927_JPRB,0.148774_JPRB, 5.61189E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 7) = (/ &
+ & 15.4910_JPRB , 15.4028_JPRB, 14.5772_JPRB    , 13.5507_JPRB    , &
+ & 12.2122_JPRB ,10.52735_JPRB, 8.62650_JPRB    , 6.49644_JPRB    , &
+ & 4.41173_JPRB ,0.478627_JPRB,0.396433_JPRB    ,0.314199_JPRB    ,  &
+ & 0.233125_JPRB,0.149052_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 8) = (/ &
+ & 15.4562_JPRB , 15.3928_JPRB, 14.5510_JPRB    , 13.5122_JPRB    , &
+ & 12.1890_JPRB , 10.5826_JPRB, 8.65842_JPRB    , 6.51558_JPRB    , &
+ & 4.42747_JPRB ,0.480669_JPRB,0.400143_JPRB    ,0.318144_JPRB    , &
+ & 0.233937_JPRB,0.149119_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 9) = (/ &
+ & 15.0069_JPRB , 15.1479_JPRB, 14.7802_JPRB    , 13.6085_JPRB    , &
+ & 12.2793_JPRB , 10.6929_JPRB, 8.72723_JPRB    , 6.57114_JPRB    , &
+ & 4.46330_JPRB ,0.486724_JPRB,0.401446_JPRB    ,0.318879_JPRB    , &
+ & 0.233959_JPRB,0.149119_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 6925 cm-1.
+RAYL = 9.41E-09_JPRB
+
+STRRAT = 0.0045321_JPRB
+
+LAYREFFR = 8
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.31482E-07_JPRB,0.64010E-05_JPRB,0.95017E-05_JPRB,0.11735E-04_JPRB,0.13561E-04_JPRB, &
+ & 0.15077E-04_JPRB,0.16121E-04_JPRB,0.16138E-04_JPRB,0.41687E-06_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.29791E-07_JPRB,0.68206E-05_JPRB,0.10260E-04_JPRB,0.12764E-04_JPRB,0.14880E-04_JPRB, &
+ & 0.16665E-04_JPRB,0.17944E-04_JPRB,0.18170E-04_JPRB,0.44246E-06_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.28272E-07_JPRB,0.72448E-05_JPRB,0.11083E-04_JPRB,0.13866E-04_JPRB,0.16256E-04_JPRB, &
+ & 0.18323E-04_JPRB,0.19886E-04_JPRB,0.20229E-04_JPRB,0.47472E-06_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.26900E-07_JPRB,0.76935E-05_JPRB,0.11934E-04_JPRB,0.15015E-04_JPRB,0.17657E-04_JPRB, &
+ & 0.20038E-04_JPRB,0.21902E-04_JPRB,0.22361E-04_JPRB,0.50770E-06_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.25656E-07_JPRB,0.81661E-05_JPRB,0.12769E-04_JPRB,0.16181E-04_JPRB,0.19127E-04_JPRB, &
+ & 0.21755E-04_JPRB,0.23963E-04_JPRB,0.24421E-04_JPRB,0.54205E-06_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.26396E-07_JPRB,0.52225E-05_JPRB,0.77221E-05_JPRB,0.95150E-05_JPRB,0.11004E-04_JPRB, &
+ & 0.12195E-04_JPRB,0.13037E-04_JPRB,0.12985E-04_JPRB,0.32097E-06_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.24945E-07_JPRB,0.55737E-05_JPRB,0.83612E-05_JPRB,0.10375E-04_JPRB,0.12116E-04_JPRB, &
+ & 0.13569E-04_JPRB,0.14561E-04_JPRB,0.14711E-04_JPRB,0.34579E-06_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.23646E-07_JPRB,0.59333E-05_JPRB,0.90531E-05_JPRB,0.11301E-04_JPRB,0.13247E-04_JPRB, &
+ & 0.14956E-04_JPRB,0.16193E-04_JPRB,0.16396E-04_JPRB,0.37200E-06_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.22476E-07_JPRB,0.63144E-05_JPRB,0.97732E-05_JPRB,0.12274E-04_JPRB,0.14436E-04_JPRB, &
+ & 0.16377E-04_JPRB,0.17879E-04_JPRB,0.18223E-04_JPRB,0.40051E-06_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.21415E-07_JPRB,0.67133E-05_JPRB,0.10471E-04_JPRB,0.13264E-04_JPRB,0.15681E-04_JPRB, &
+ & 0.17843E-04_JPRB,0.19627E-04_JPRB,0.19954E-04_JPRB,0.42929E-06_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.22397E-07_JPRB,0.41930E-05_JPRB,0.61559E-05_JPRB,0.75544E-05_JPRB,0.86902E-05_JPRB, &
+ & 0.95896E-05_JPRB,0.10269E-04_JPRB,0.10114E-04_JPRB,0.24148E-06_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.21124E-07_JPRB,0.44837E-05_JPRB,0.66786E-05_JPRB,0.82475E-05_JPRB,0.96353E-05_JPRB, &
+ & 0.10742E-04_JPRB,0.11469E-04_JPRB,0.11556E-04_JPRB,0.26304E-06_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.19988E-07_JPRB,0.47839E-05_JPRB,0.72499E-05_JPRB,0.90229E-05_JPRB,0.10560E-04_JPRB, &
+ & 0.11900E-04_JPRB,0.12859E-04_JPRB,0.12935E-04_JPRB,0.28618E-06_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.18968E-07_JPRB,0.51040E-05_JPRB,0.78586E-05_JPRB,0.98308E-05_JPRB,0.11551E-04_JPRB, &
+ & 0.13094E-04_JPRB,0.14240E-04_JPRB,0.14455E-04_JPRB,0.30983E-06_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.18047E-07_JPRB,0.54366E-05_JPRB,0.84462E-05_JPRB,0.10670E-04_JPRB,0.12585E-04_JPRB, &
+ & 0.14313E-04_JPRB,0.15695E-04_JPRB,0.15934E-04_JPRB,0.33255E-06_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.19080E-07_JPRB,0.33409E-05_JPRB,0.48738E-05_JPRB,0.59354E-05_JPRB,0.67877E-05_JPRB, &
+ & 0.74900E-05_JPRB,0.79142E-05_JPRB,0.77200E-05_JPRB,0.18466E-06_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.17954E-07_JPRB,0.35910E-05_JPRB,0.52960E-05_JPRB,0.65037E-05_JPRB,0.75744E-05_JPRB, &
+ & 0.84082E-05_JPRB,0.89422E-05_JPRB,0.89302E-05_JPRB,0.20292E-06_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.16954E-07_JPRB,0.38317E-05_JPRB,0.57536E-05_JPRB,0.71322E-05_JPRB,0.83424E-05_JPRB, &
+ & 0.93788E-05_JPRB,0.10063E-04_JPRB,0.10098E-04_JPRB,0.22173E-06_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.16059E-07_JPRB,0.40932E-05_JPRB,0.62586E-05_JPRB,0.77961E-05_JPRB,0.91475E-05_JPRB, &
+ & 0.10347E-04_JPRB,0.11222E-04_JPRB,0.11312E-04_JPRB,0.24005E-06_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.15254E-07_JPRB,0.43678E-05_JPRB,0.67525E-05_JPRB,0.84873E-05_JPRB,0.99995E-05_JPRB, &
+ & 0.11353E-04_JPRB,0.12416E-04_JPRB,0.12586E-04_JPRB,0.25939E-06_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.16261E-07_JPRB,0.26540E-05_JPRB,0.38541E-05_JPRB,0.46443E-05_JPRB,0.52961E-05_JPRB, &
+ & 0.58054E-05_JPRB,0.60718E-05_JPRB,0.58540E-05_JPRB,0.14274E-06_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.15265E-07_JPRB,0.28598E-05_JPRB,0.41831E-05_JPRB,0.51221E-05_JPRB,0.59110E-05_JPRB, &
+ & 0.65207E-05_JPRB,0.69761E-05_JPRB,0.68685E-05_JPRB,0.15725E-06_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.14384E-07_JPRB,0.30623E-05_JPRB,0.45528E-05_JPRB,0.56124E-05_JPRB,0.65650E-05_JPRB, &
+ & 0.73436E-05_JPRB,0.78208E-05_JPRB,0.78523E-05_JPRB,0.17271E-06_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.13599E-07_JPRB,0.32720E-05_JPRB,0.49622E-05_JPRB,0.61605E-05_JPRB,0.72244E-05_JPRB, &
+ & 0.81582E-05_JPRB,0.87971E-05_JPRB,0.88096E-05_JPRB,0.18766E-06_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.12895E-07_JPRB,0.34985E-05_JPRB,0.53833E-05_JPRB,0.67240E-05_JPRB,0.79091E-05_JPRB, &
+ & 0.89688E-05_JPRB,0.97698E-05_JPRB,0.98639E-05_JPRB,0.20375E-06_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.13898E-07_JPRB,0.20981E-05_JPRB,0.30384E-05_JPRB,0.36041E-05_JPRB,0.41040E-05_JPRB, &
+ & 0.44334E-05_JPRB,0.45761E-05_JPRB,0.43950E-05_JPRB,0.11025E-06_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.13011E-07_JPRB,0.22645E-05_JPRB,0.32890E-05_JPRB,0.40042E-05_JPRB,0.45851E-05_JPRB, &
+ & 0.50473E-05_JPRB,0.53250E-05_JPRB,0.51854E-05_JPRB,0.12227E-06_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.12231E-07_JPRB,0.24322E-05_JPRB,0.35842E-05_JPRB,0.43915E-05_JPRB,0.51259E-05_JPRB, &
+ & 0.56903E-05_JPRB,0.60343E-05_JPRB,0.60166E-05_JPRB,0.13506E-06_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.11539E-07_JPRB,0.26032E-05_JPRB,0.39107E-05_JPRB,0.48321E-05_JPRB,0.56525E-05_JPRB, &
+ & 0.63625E-05_JPRB,0.68078E-05_JPRB,0.68024E-05_JPRB,0.14719E-06_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.10921E-07_JPRB,0.27866E-05_JPRB,0.42578E-05_JPRB,0.52919E-05_JPRB,0.62181E-05_JPRB, &
+ & 0.70362E-05_JPRB,0.76140E-05_JPRB,0.76519E-05_JPRB,0.16052E-06_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.11886E-07_JPRB,0.16563E-05_JPRB,0.23860E-05_JPRB,0.28276E-05_JPRB,0.31449E-05_JPRB, &
+ & 0.33771E-05_JPRB,0.34305E-05_JPRB,0.32824E-05_JPRB,0.84943E-07_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.11096E-07_JPRB,0.17874E-05_JPRB,0.25861E-05_JPRB,0.31100E-05_JPRB,0.35425E-05_JPRB, &
+ & 0.38737E-05_JPRB,0.40468E-05_JPRB,0.38933E-05_JPRB,0.94734E-07_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.10405E-07_JPRB,0.19286E-05_JPRB,0.28166E-05_JPRB,0.34417E-05_JPRB,0.39786E-05_JPRB, &
+ & 0.43804E-05_JPRB,0.46759E-05_JPRB,0.45835E-05_JPRB,0.10531E-06_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.97948E-08_JPRB,0.20680E-05_JPRB,0.30741E-05_JPRB,0.37803E-05_JPRB,0.44163E-05_JPRB, &
+ & 0.49420E-05_JPRB,0.52477E-05_JPRB,0.52509E-05_JPRB,0.11517E-06_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.92522E-08_JPRB,0.22140E-05_JPRB,0.33558E-05_JPRB,0.41544E-05_JPRB,0.48719E-05_JPRB, &
+ & 0.54968E-05_JPRB,0.59225E-05_JPRB,0.59027E-05_JPRB,0.12618E-06_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.10164E-07_JPRB,0.13056E-05_JPRB,0.18690E-05_JPRB,0.21940E-05_JPRB,0.24210E-05_JPRB, &
+ & 0.25504E-05_JPRB,0.25676E-05_JPRB,0.24444E-05_JPRB,0.66021E-07_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.94612E-08_JPRB,0.14106E-05_JPRB,0.20398E-05_JPRB,0.24136E-05_JPRB,0.27424E-05_JPRB, &
+ & 0.29578E-05_JPRB,0.30446E-05_JPRB,0.29182E-05_JPRB,0.73985E-07_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.88489E-08_JPRB,0.15256E-05_JPRB,0.22123E-05_JPRB,0.26894E-05_JPRB,0.30704E-05_JPRB, &
+ & 0.33808E-05_JPRB,0.35521E-05_JPRB,0.34526E-05_JPRB,0.82666E-07_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.83111E-08_JPRB,0.16396E-05_JPRB,0.24159E-05_JPRB,0.29563E-05_JPRB,0.34504E-05_JPRB, &
+ & 0.38196E-05_JPRB,0.40425E-05_JPRB,0.40093E-05_JPRB,0.90940E-07_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.78349E-08_JPRB,0.17570E-05_JPRB,0.26398E-05_JPRB,0.32547E-05_JPRB,0.38060E-05_JPRB, &
+ & 0.42813E-05_JPRB,0.45732E-05_JPRB,0.45465E-05_JPRB,0.10022E-06_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.86983E-08_JPRB,0.10284E-05_JPRB,0.14734E-05_JPRB,0.16973E-05_JPRB,0.18551E-05_JPRB, &
+ & 0.19223E-05_JPRB,0.19222E-05_JPRB,0.18289E-05_JPRB,0.53460E-07_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.80712E-08_JPRB,0.11141E-05_JPRB,0.16016E-05_JPRB,0.18902E-05_JPRB,0.21027E-05_JPRB, &
+ & 0.22504E-05_JPRB,0.22800E-05_JPRB,0.21749E-05_JPRB,0.60180E-07_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.75284E-08_JPRB,0.12033E-05_JPRB,0.17376E-05_JPRB,0.20849E-05_JPRB,0.23719E-05_JPRB, &
+ & 0.25906E-05_JPRB,0.26977E-05_JPRB,0.25910E-05_JPRB,0.66886E-07_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.70541E-08_JPRB,0.12979E-05_JPRB,0.18959E-05_JPRB,0.23090E-05_JPRB,0.26695E-05_JPRB, &
+ & 0.29367E-05_JPRB,0.31239E-05_JPRB,0.30574E-05_JPRB,0.73978E-07_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.66359E-08_JPRB,0.13937E-05_JPRB,0.20720E-05_JPRB,0.25448E-05_JPRB,0.29680E-05_JPRB, &
+ & 0.33208E-05_JPRB,0.35191E-05_JPRB,0.35097E-05_JPRB,0.81724E-07_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.74006E-08_JPRB,0.81705E-06_JPRB,0.11610E-05_JPRB,0.13325E-05_JPRB,0.14305E-05_JPRB, &
+ & 0.14668E-05_JPRB,0.14642E-05_JPRB,0.13765E-05_JPRB,0.44724E-07_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.68477E-08_JPRB,0.88306E-06_JPRB,0.12640E-05_JPRB,0.14768E-05_JPRB,0.16329E-05_JPRB, &
+ & 0.17209E-05_JPRB,0.17306E-05_JPRB,0.16441E-05_JPRB,0.50688E-07_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.63717E-08_JPRB,0.95522E-06_JPRB,0.13783E-05_JPRB,0.16303E-05_JPRB,0.18546E-05_JPRB, &
+ & 0.19963E-05_JPRB,0.20570E-05_JPRB,0.19678E-05_JPRB,0.56052E-07_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.59576E-08_JPRB,0.10331E-05_JPRB,0.14975E-05_JPRB,0.18180E-05_JPRB,0.20770E-05_JPRB, &
+ & 0.22813E-05_JPRB,0.24021E-05_JPRB,0.23350E-05_JPRB,0.62412E-07_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.55940E-08_JPRB,0.11102E-05_JPRB,0.16370E-05_JPRB,0.19999E-05_JPRB,0.23349E-05_JPRB, &
+ & 0.25900E-05_JPRB,0.27328E-05_JPRB,0.27057E-05_JPRB,0.69466E-07_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.60617E-08_JPRB,0.67167E-06_JPRB,0.95594E-06_JPRB,0.10939E-05_JPRB,0.11767E-05_JPRB, &
+ & 0.12059E-05_JPRB,0.12032E-05_JPRB,0.11314E-05_JPRB,0.37093E-07_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.56087E-08_JPRB,0.72704E-06_JPRB,0.10406E-05_JPRB,0.12137E-05_JPRB,0.13434E-05_JPRB, &
+ & 0.14171E-05_JPRB,0.14246E-05_JPRB,0.13521E-05_JPRB,0.41918E-07_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.52187E-08_JPRB,0.78681E-06_JPRB,0.11338E-05_JPRB,0.13419E-05_JPRB,0.15254E-05_JPRB, &
+ & 0.16426E-05_JPRB,0.16950E-05_JPRB,0.16203E-05_JPRB,0.46339E-07_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.48793E-08_JPRB,0.85013E-06_JPRB,0.12327E-05_JPRB,0.14971E-05_JPRB,0.17109E-05_JPRB, &
+ & 0.18776E-05_JPRB,0.19784E-05_JPRB,0.19240E-05_JPRB,0.51725E-07_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.45815E-08_JPRB,0.91420E-06_JPRB,0.13427E-05_JPRB,0.16458E-05_JPRB,0.19221E-05_JPRB, &
+ & 0.21323E-05_JPRB,0.22490E-05_JPRB,0.22263E-05_JPRB,0.57555E-07_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.49629E-08_JPRB,0.55223E-06_JPRB,0.78677E-06_JPRB,0.89789E-06_JPRB,0.96778E-06_JPRB, &
+ & 0.99148E-06_JPRB,0.98883E-06_JPRB,0.93028E-06_JPRB,0.30610E-07_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.45920E-08_JPRB,0.59832E-06_JPRB,0.85632E-06_JPRB,0.99730E-06_JPRB,0.11052E-05_JPRB, &
+ & 0.11665E-05_JPRB,0.11729E-05_JPRB,0.11125E-05_JPRB,0.34553E-07_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.42727E-08_JPRB,0.64760E-06_JPRB,0.93315E-06_JPRB,0.11041E-05_JPRB,0.12552E-05_JPRB, &
+ & 0.13521E-05_JPRB,0.13956E-05_JPRB,0.13333E-05_JPRB,0.38176E-07_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.39949E-08_JPRB,0.69926E-06_JPRB,0.10110E-05_JPRB,0.12304E-05_JPRB,0.14083E-05_JPRB, &
+ & 0.15442E-05_JPRB,0.16283E-05_JPRB,0.15837E-05_JPRB,0.42648E-07_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.37510E-08_JPRB,0.75239E-06_JPRB,0.11006E-05_JPRB,0.13535E-05_JPRB,0.15785E-05_JPRB, &
+ & 0.17547E-05_JPRB,0.18501E-05_JPRB,0.18298E-05_JPRB,0.47452E-07_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.40633E-08_JPRB,0.45378E-06_JPRB,0.64719E-06_JPRB,0.73637E-06_JPRB,0.79571E-06_JPRB, &
+ & 0.81503E-06_JPRB,0.81264E-06_JPRB,0.76488E-06_JPRB,0.25080E-07_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.37596E-08_JPRB,0.49208E-06_JPRB,0.70430E-06_JPRB,0.81894E-06_JPRB,0.90856E-06_JPRB, &
+ & 0.95919E-06_JPRB,0.96435E-06_JPRB,0.91411E-06_JPRB,0.28293E-07_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.34982E-08_JPRB,0.53259E-06_JPRB,0.76370E-06_JPRB,0.90761E-06_JPRB,0.10316E-05_JPRB, &
+ & 0.11116E-05_JPRB,0.11472E-05_JPRB,0.10956E-05_JPRB,0.31267E-07_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.32707E-08_JPRB,0.57488E-06_JPRB,0.82833E-06_JPRB,0.10096E-05_JPRB,0.11577E-05_JPRB, &
+ & 0.12688E-05_JPRB,0.13388E-05_JPRB,0.13015E-05_JPRB,0.34930E-07_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.30710E-08_JPRB,0.61832E-06_JPRB,0.90250E-06_JPRB,0.11120E-05_JPRB,0.12962E-05_JPRB, &
+ & 0.14424E-05_JPRB,0.15206E-05_JPRB,0.15032E-05_JPRB,0.38861E-07_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.14215E-06_JPRB,0.65726E-04_JPRB,0.11327E-03_JPRB,0.15324E-03_JPRB,0.18473E-03_JPRB, &
+ & 0.20658E-03_JPRB,0.21603E-03_JPRB,0.20617E-03_JPRB,0.13252E-04_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.13452E-06_JPRB,0.69521E-04_JPRB,0.12059E-03_JPRB,0.16342E-03_JPRB,0.19613E-03_JPRB, &
+ & 0.21987E-03_JPRB,0.22946E-03_JPRB,0.21879E-03_JPRB,0.14816E-04_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.12766E-06_JPRB,0.73313E-04_JPRB,0.12786E-03_JPRB,0.17303E-03_JPRB,0.20754E-03_JPRB, &
+ & 0.23326E-03_JPRB,0.24324E-03_JPRB,0.22956E-03_JPRB,0.16536E-04_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.12147E-06_JPRB,0.77087E-04_JPRB,0.13521E-03_JPRB,0.18263E-03_JPRB,0.21904E-03_JPRB, &
+ & 0.24614E-03_JPRB,0.25637E-03_JPRB,0.24060E-03_JPRB,0.18092E-04_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.11584E-06_JPRB,0.80946E-04_JPRB,0.14233E-03_JPRB,0.19230E-03_JPRB,0.23047E-03_JPRB, &
+ & 0.25869E-03_JPRB,0.26904E-03_JPRB,0.25139E-03_JPRB,0.19768E-04_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.11918E-06_JPRB,0.55167E-04_JPRB,0.94557E-04_JPRB,0.12760E-03_JPRB,0.15322E-03_JPRB, &
+ & 0.17148E-03_JPRB,0.17894E-03_JPRB,0.17049E-03_JPRB,0.10710E-04_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.11264E-06_JPRB,0.58581E-04_JPRB,0.10113E-03_JPRB,0.13648E-03_JPRB,0.16335E-03_JPRB, &
+ & 0.18288E-03_JPRB,0.19059E-03_JPRB,0.18131E-03_JPRB,0.12067E-04_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.10678E-06_JPRB,0.61935E-04_JPRB,0.10756E-03_JPRB,0.14497E-03_JPRB,0.17335E-03_JPRB, &
+ & 0.19437E-03_JPRB,0.20245E-03_JPRB,0.19070E-03_JPRB,0.13553E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.10149E-06_JPRB,0.65261E-04_JPRB,0.11404E-03_JPRB,0.15331E-03_JPRB,0.18323E-03_JPRB, &
+ & 0.20559E-03_JPRB,0.21385E-03_JPRB,0.20024E-03_JPRB,0.14801E-04_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.96699E-07_JPRB,0.68698E-04_JPRB,0.12038E-03_JPRB,0.16167E-03_JPRB,0.19308E-03_JPRB, &
+ & 0.21635E-03_JPRB,0.22479E-03_JPRB,0.20964E-03_JPRB,0.16245E-04_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.10112E-06_JPRB,0.45399E-04_JPRB,0.77226E-04_JPRB,0.10397E-03_JPRB,0.12462E-03_JPRB, &
+ & 0.13956E-03_JPRB,0.14531E-03_JPRB,0.13816E-03_JPRB,0.83635E-05_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.95381E-07_JPRB,0.48357E-04_JPRB,0.82986E-04_JPRB,0.11173E-03_JPRB,0.13338E-03_JPRB, &
+ & 0.14898E-03_JPRB,0.15534E-03_JPRB,0.14786E-03_JPRB,0.94915E-05_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.90257E-07_JPRB,0.51355E-04_JPRB,0.88727E-04_JPRB,0.11920E-03_JPRB,0.14215E-03_JPRB, &
+ & 0.15859E-03_JPRB,0.16541E-03_JPRB,0.15622E-03_JPRB,0.10683E-04_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.85653E-07_JPRB,0.54322E-04_JPRB,0.94369E-04_JPRB,0.12646E-03_JPRB,0.15072E-03_JPRB, &
+ & 0.16838E-03_JPRB,0.17536E-03_JPRB,0.16433E-03_JPRB,0.11764E-04_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.81492E-07_JPRB,0.57300E-04_JPRB,0.99940E-04_JPRB,0.13355E-03_JPRB,0.15929E-03_JPRB, &
+ & 0.17800E-03_JPRB,0.18496E-03_JPRB,0.17234E-03_JPRB,0.12979E-04_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.86132E-07_JPRB,0.36910E-04_JPRB,0.62346E-04_JPRB,0.83628E-04_JPRB,0.10025E-03_JPRB, &
+ & 0.11224E-03_JPRB,0.11706E-03_JPRB,0.11109E-03_JPRB,0.64715E-05_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.81062E-07_JPRB,0.39490E-04_JPRB,0.67274E-04_JPRB,0.90384E-04_JPRB,0.10785E-03_JPRB, &
+ & 0.12026E-03_JPRB,0.12543E-03_JPRB,0.11944E-03_JPRB,0.73991E-05_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.76553E-07_JPRB,0.42055E-04_JPRB,0.72269E-04_JPRB,0.96956E-04_JPRB,0.11528E-03_JPRB, &
+ & 0.12833E-03_JPRB,0.13396E-03_JPRB,0.12697E-03_JPRB,0.83899E-05_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.72516E-07_JPRB,0.44696E-04_JPRB,0.77235E-04_JPRB,0.10321E-03_JPRB,0.12276E-03_JPRB, &
+ & 0.13674E-03_JPRB,0.14260E-03_JPRB,0.13384E-03_JPRB,0.93052E-05_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.68881E-07_JPRB,0.47273E-04_JPRB,0.82118E-04_JPRB,0.10935E-03_JPRB,0.13016E-03_JPRB, &
+ & 0.14506E-03_JPRB,0.15080E-03_JPRB,0.14062E-03_JPRB,0.10314E-04_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.73401E-07_JPRB,0.29772E-04_JPRB,0.49957E-04_JPRB,0.66720E-04_JPRB,0.80104E-04_JPRB, &
+ & 0.89761E-04_JPRB,0.93853E-04_JPRB,0.88953E-04_JPRB,0.50171E-05_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.68916E-07_JPRB,0.31976E-04_JPRB,0.54217E-04_JPRB,0.72570E-04_JPRB,0.86671E-04_JPRB, &
+ & 0.96653E-04_JPRB,0.10073E-03_JPRB,0.95875E-04_JPRB,0.57746E-05_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.64945E-07_JPRB,0.34219E-04_JPRB,0.58417E-04_JPRB,0.78327E-04_JPRB,0.92950E-04_JPRB, &
+ & 0.10358E-03_JPRB,0.10803E-03_JPRB,0.10274E-03_JPRB,0.66197E-05_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.61405E-07_JPRB,0.36457E-04_JPRB,0.62694E-04_JPRB,0.83756E-04_JPRB,0.99356E-04_JPRB, &
+ & 0.11058E-03_JPRB,0.11542E-03_JPRB,0.10858E-03_JPRB,0.73729E-05_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.58229E-07_JPRB,0.38713E-04_JPRB,0.67059E-04_JPRB,0.89033E-04_JPRB,0.10573E-03_JPRB, &
+ & 0.11764E-03_JPRB,0.12243E-03_JPRB,0.11440E-03_JPRB,0.82149E-05_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.62723E-07_JPRB,0.23750E-04_JPRB,0.39643E-04_JPRB,0.52796E-04_JPRB,0.63478E-04_JPRB, &
+ & 0.71151E-04_JPRB,0.74640E-04_JPRB,0.70193E-04_JPRB,0.38899E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.58735E-07_JPRB,0.25657E-04_JPRB,0.43274E-04_JPRB,0.57719E-04_JPRB,0.69124E-04_JPRB, &
+ & 0.77375E-04_JPRB,0.80498E-04_JPRB,0.76543E-04_JPRB,0.44833E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.55222E-07_JPRB,0.27563E-04_JPRB,0.46866E-04_JPRB,0.62699E-04_JPRB,0.74494E-04_JPRB, &
+ & 0.82946E-04_JPRB,0.86653E-04_JPRB,0.82509E-04_JPRB,0.51635E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.52103E-07_JPRB,0.29528E-04_JPRB,0.50470E-04_JPRB,0.67473E-04_JPRB,0.79899E-04_JPRB, &
+ & 0.89004E-04_JPRB,0.92786E-04_JPRB,0.87628E-04_JPRB,0.58104E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.49317E-07_JPRB,0.31444E-04_JPRB,0.54175E-04_JPRB,0.72000E-04_JPRB,0.85322E-04_JPRB, &
+ & 0.94885E-04_JPRB,0.98826E-04_JPRB,0.92648E-04_JPRB,0.64997E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.53634E-07_JPRB,0.18862E-04_JPRB,0.31325E-04_JPRB,0.41575E-04_JPRB,0.50141E-04_JPRB, &
+ & 0.56190E-04_JPRB,0.58882E-04_JPRB,0.55026E-04_JPRB,0.29795E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.50084E-07_JPRB,0.20474E-04_JPRB,0.34342E-04_JPRB,0.45732E-04_JPRB,0.54884E-04_JPRB, &
+ & 0.61494E-04_JPRB,0.64187E-04_JPRB,0.60857E-04_JPRB,0.34589E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.46973E-07_JPRB,0.22063E-04_JPRB,0.37411E-04_JPRB,0.49893E-04_JPRB,0.59475E-04_JPRB, &
+ & 0.66279E-04_JPRB,0.69129E-04_JPRB,0.65758E-04_JPRB,0.39983E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.44224E-07_JPRB,0.23764E-04_JPRB,0.40481E-04_JPRB,0.54107E-04_JPRB,0.64026E-04_JPRB, &
+ & 0.71350E-04_JPRB,0.74328E-04_JPRB,0.70513E-04_JPRB,0.45526E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.41777E-07_JPRB,0.25434E-04_JPRB,0.43555E-04_JPRB,0.57958E-04_JPRB,0.68599E-04_JPRB, &
+ & 0.76304E-04_JPRB,0.79456E-04_JPRB,0.74649E-04_JPRB,0.51046E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.45857E-07_JPRB,0.14945E-04_JPRB,0.24594E-04_JPRB,0.32696E-04_JPRB,0.39571E-04_JPRB, &
+ & 0.44348E-04_JPRB,0.46090E-04_JPRB,0.43034E-04_JPRB,0.22833E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.42697E-07_JPRB,0.16265E-04_JPRB,0.27198E-04_JPRB,0.36108E-04_JPRB,0.43381E-04_JPRB, &
+ & 0.48642E-04_JPRB,0.50943E-04_JPRB,0.47848E-04_JPRB,0.26669E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.39944E-07_JPRB,0.17616E-04_JPRB,0.29775E-04_JPRB,0.39577E-04_JPRB,0.47366E-04_JPRB, &
+ & 0.52791E-04_JPRB,0.54992E-04_JPRB,0.52236E-04_JPRB,0.30932E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.37522E-07_JPRB,0.19042E-04_JPRB,0.32351E-04_JPRB,0.43126E-04_JPRB,0.51153E-04_JPRB, &
+ & 0.56987E-04_JPRB,0.59316E-04_JPRB,0.56438E-04_JPRB,0.35666E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.35376E-07_JPRB,0.20476E-04_JPRB,0.34946E-04_JPRB,0.46521E-04_JPRB,0.55009E-04_JPRB, &
+ & 0.61221E-04_JPRB,0.63714E-04_JPRB,0.60035E-04_JPRB,0.40037E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.39233E-07_JPRB,0.11817E-04_JPRB,0.19254E-04_JPRB,0.25596E-04_JPRB,0.30843E-04_JPRB, &
+ & 0.34574E-04_JPRB,0.36035E-04_JPRB,0.33425E-04_JPRB,0.17673E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.36418E-07_JPRB,0.12914E-04_JPRB,0.21404E-04_JPRB,0.28372E-04_JPRB,0.34161E-04_JPRB, &
+ & 0.38321E-04_JPRB,0.40053E-04_JPRB,0.37435E-04_JPRB,0.20751E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.33979E-07_JPRB,0.14026E-04_JPRB,0.23574E-04_JPRB,0.31316E-04_JPRB,0.37514E-04_JPRB, &
+ & 0.41977E-04_JPRB,0.43747E-04_JPRB,0.41346E-04_JPRB,0.24151E-05_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.31844E-07_JPRB,0.15205E-04_JPRB,0.25770E-04_JPRB,0.34231E-04_JPRB,0.40723E-04_JPRB, &
+ & 0.45315E-04_JPRB,0.47202E-04_JPRB,0.44869E-04_JPRB,0.28151E-05_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.29961E-07_JPRB,0.16420E-04_JPRB,0.27955E-04_JPRB,0.37187E-04_JPRB,0.43941E-04_JPRB, &
+ & 0.48873E-04_JPRB,0.50856E-04_JPRB,0.48170E-04_JPRB,0.31733E-05_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.33373E-07_JPRB,0.93505E-05_JPRB,0.15216E-04_JPRB,0.20198E-04_JPRB,0.24244E-04_JPRB, &
+ & 0.27077E-04_JPRB,0.28186E-04_JPRB,0.25996E-04_JPRB,0.13941E-05_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.30893E-07_JPRB,0.10284E-04_JPRB,0.16902E-04_JPRB,0.22468E-04_JPRB,0.27072E-04_JPRB, &
+ & 0.30382E-04_JPRB,0.31603E-04_JPRB,0.29456E-04_JPRB,0.16352E-05_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.28754E-07_JPRB,0.11207E-04_JPRB,0.18715E-04_JPRB,0.24849E-04_JPRB,0.29815E-04_JPRB, &
+ & 0.33379E-04_JPRB,0.34901E-04_JPRB,0.32836E-04_JPRB,0.19188E-05_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.26892E-07_JPRB,0.12172E-04_JPRB,0.20578E-04_JPRB,0.27269E-04_JPRB,0.32536E-04_JPRB, &
+ & 0.36182E-04_JPRB,0.37703E-04_JPRB,0.35750E-04_JPRB,0.22467E-05_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.25255E-07_JPRB,0.13195E-04_JPRB,0.22422E-04_JPRB,0.29781E-04_JPRB,0.35220E-04_JPRB, &
+ & 0.39157E-04_JPRB,0.40719E-04_JPRB,0.38729E-04_JPRB,0.25535E-05_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.27335E-07_JPRB,0.77491E-05_JPRB,0.12607E-04_JPRB,0.16695E-04_JPRB,0.20093E-04_JPRB, &
+ & 0.22431E-04_JPRB,0.23345E-04_JPRB,0.21522E-04_JPRB,0.11569E-05_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.25303E-07_JPRB,0.85322E-05_JPRB,0.14022E-04_JPRB,0.18593E-04_JPRB,0.22378E-04_JPRB, &
+ & 0.25133E-04_JPRB,0.26161E-04_JPRB,0.24379E-04_JPRB,0.13709E-05_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.23551E-07_JPRB,0.92912E-05_JPRB,0.15536E-04_JPRB,0.20618E-04_JPRB,0.24722E-04_JPRB, &
+ & 0.27647E-04_JPRB,0.28874E-04_JPRB,0.27196E-04_JPRB,0.16099E-05_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.22025E-07_JPRB,0.10117E-04_JPRB,0.17115E-04_JPRB,0.22645E-04_JPRB,0.26974E-04_JPRB, &
+ & 0.29947E-04_JPRB,0.31210E-04_JPRB,0.29581E-04_JPRB,0.18845E-05_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.20684E-07_JPRB,0.10977E-04_JPRB,0.18645E-04_JPRB,0.24734E-04_JPRB,0.29203E-04_JPRB, &
+ & 0.32453E-04_JPRB,0.33733E-04_JPRB,0.32056E-04_JPRB,0.21326E-05_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.22380E-07_JPRB,0.64144E-05_JPRB,0.10436E-04_JPRB,0.13802E-04_JPRB,0.16622E-04_JPRB, &
+ & 0.18557E-04_JPRB,0.19314E-04_JPRB,0.17793E-04_JPRB,0.95906E-06_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.20716E-07_JPRB,0.70603E-05_JPRB,0.11625E-04_JPRB,0.15385E-04_JPRB,0.18503E-04_JPRB, &
+ & 0.20776E-04_JPRB,0.21630E-04_JPRB,0.20152E-04_JPRB,0.11363E-05_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.19282E-07_JPRB,0.76960E-05_JPRB,0.12886E-04_JPRB,0.17087E-04_JPRB,0.20475E-04_JPRB, &
+ & 0.22867E-04_JPRB,0.23856E-04_JPRB,0.22506E-04_JPRB,0.13400E-05_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.18032E-07_JPRB,0.83983E-05_JPRB,0.14206E-04_JPRB,0.18783E-04_JPRB,0.22334E-04_JPRB, &
+ & 0.24764E-04_JPRB,0.25815E-04_JPRB,0.24461E-04_JPRB,0.15637E-05_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.16934E-07_JPRB,0.91186E-05_JPRB,0.15491E-04_JPRB,0.20513E-04_JPRB,0.24201E-04_JPRB, &
+ & 0.26864E-04_JPRB,0.27917E-04_JPRB,0.26491E-04_JPRB,0.17707E-05_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.18323E-07_JPRB,0.53022E-05_JPRB,0.86273E-05_JPRB,0.11385E-04_JPRB,0.13729E-04_JPRB, &
+ & 0.15318E-04_JPRB,0.15952E-04_JPRB,0.14693E-04_JPRB,0.78927E-06_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.16961E-07_JPRB,0.58316E-05_JPRB,0.96204E-05_JPRB,0.12717E-04_JPRB,0.15275E-04_JPRB, &
+ & 0.17141E-04_JPRB,0.17863E-04_JPRB,0.16639E-04_JPRB,0.93659E-06_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.15787E-07_JPRB,0.63710E-05_JPRB,0.10675E-04_JPRB,0.14140E-04_JPRB,0.16925E-04_JPRB, &
+ & 0.18881E-04_JPRB,0.19675E-04_JPRB,0.18564E-04_JPRB,0.11050E-05_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.14764E-07_JPRB,0.69607E-05_JPRB,0.11779E-04_JPRB,0.15554E-04_JPRB,0.18475E-04_JPRB, &
+ & 0.20461E-04_JPRB,0.21320E-04_JPRB,0.20207E-04_JPRB,0.12868E-05_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.13865E-07_JPRB,0.75611E-05_JPRB,0.12843E-04_JPRB,0.16991E-04_JPRB,0.20029E-04_JPRB, &
+ & 0.22208E-04_JPRB,0.23079E-04_JPRB,0.21838E-04_JPRB,0.14565E-05_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.55948E-06_JPRB,0.43472E-03_JPRB,0.65689E-03_JPRB,0.80237E-03_JPRB,0.90326E-03_JPRB, &
+ & 0.95995E-03_JPRB,0.94242E-03_JPRB,0.81801E-03_JPRB,0.18380E-03_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.53175E-06_JPRB,0.45395E-03_JPRB,0.68779E-03_JPRB,0.84040E-03_JPRB,0.94598E-03_JPRB, &
+ & 0.10011E-02_JPRB,0.98481E-03_JPRB,0.85748E-03_JPRB,0.19567E-03_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.50648E-06_JPRB,0.46835E-03_JPRB,0.71403E-03_JPRB,0.87684E-03_JPRB,0.98520E-03_JPRB, &
+ & 0.10393E-02_JPRB,0.10233E-02_JPRB,0.89729E-03_JPRB,0.20725E-03_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.48330E-06_JPRB,0.48143E-03_JPRB,0.73979E-03_JPRB,0.91063E-03_JPRB,0.10212E-02_JPRB, &
+ & 0.10762E-02_JPRB,0.10600E-02_JPRB,0.93507E-03_JPRB,0.21814E-03_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.46195E-06_JPRB,0.49413E-03_JPRB,0.76470E-03_JPRB,0.94208E-03_JPRB,0.10547E-02_JPRB, &
+ & 0.11099E-02_JPRB,0.10960E-02_JPRB,0.97164E-03_JPRB,0.23056E-03_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.46813E-06_JPRB,0.36711E-03_JPRB,0.55743E-03_JPRB,0.68070E-03_JPRB,0.76614E-03_JPRB, &
+ & 0.81442E-03_JPRB,0.79940E-03_JPRB,0.69691E-03_JPRB,0.14988E-03_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.44450E-06_JPRB,0.38413E-03_JPRB,0.58502E-03_JPRB,0.71506E-03_JPRB,0.80409E-03_JPRB, &
+ & 0.85191E-03_JPRB,0.83722E-03_JPRB,0.73231E-03_JPRB,0.15985E-03_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.42301E-06_JPRB,0.39744E-03_JPRB,0.60852E-03_JPRB,0.74741E-03_JPRB,0.83920E-03_JPRB, &
+ & 0.88588E-03_JPRB,0.87206E-03_JPRB,0.76677E-03_JPRB,0.16968E-03_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.40335E-06_JPRB,0.40927E-03_JPRB,0.63200E-03_JPRB,0.77835E-03_JPRB,0.87190E-03_JPRB, &
+ & 0.91843E-03_JPRB,0.90467E-03_JPRB,0.79859E-03_JPRB,0.17948E-03_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.38529E-06_JPRB,0.42034E-03_JPRB,0.65353E-03_JPRB,0.80758E-03_JPRB,0.90248E-03_JPRB, &
+ & 0.94929E-03_JPRB,0.93715E-03_JPRB,0.83136E-03_JPRB,0.19018E-03_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.39591E-06_JPRB,0.30459E-03_JPRB,0.46364E-03_JPRB,0.56590E-03_JPRB,0.63680E-03_JPRB, &
+ & 0.67681E-03_JPRB,0.66517E-03_JPRB,0.58106E-03_JPRB,0.11936E-03_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.37538E-06_JPRB,0.32036E-03_JPRB,0.48874E-03_JPRB,0.59649E-03_JPRB,0.67170E-03_JPRB, &
+ & 0.71161E-03_JPRB,0.69943E-03_JPRB,0.61159E-03_JPRB,0.12804E-03_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.35675E-06_JPRB,0.33321E-03_JPRB,0.50999E-03_JPRB,0.62591E-03_JPRB,0.70319E-03_JPRB, &
+ & 0.74333E-03_JPRB,0.73015E-03_JPRB,0.64070E-03_JPRB,0.13642E-03_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.33978E-06_JPRB,0.34382E-03_JPRB,0.53102E-03_JPRB,0.65391E-03_JPRB,0.73278E-03_JPRB, &
+ & 0.77303E-03_JPRB,0.75990E-03_JPRB,0.66979E-03_JPRB,0.14477E-03_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.32422E-06_JPRB,0.35416E-03_JPRB,0.55071E-03_JPRB,0.68042E-03_JPRB,0.76041E-03_JPRB, &
+ & 0.80118E-03_JPRB,0.78914E-03_JPRB,0.69923E-03_JPRB,0.15365E-03_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.33598E-06_JPRB,0.24970E-03_JPRB,0.38053E-03_JPRB,0.46464E-03_JPRB,0.52234E-03_JPRB, &
+ & 0.55488E-03_JPRB,0.54675E-03_JPRB,0.47794E-03_JPRB,0.95275E-04_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.31800E-06_JPRB,0.26415E-03_JPRB,0.40313E-03_JPRB,0.49210E-03_JPRB,0.55359E-03_JPRB, &
+ & 0.58661E-03_JPRB,0.57694E-03_JPRB,0.50393E-03_JPRB,0.10292E-03_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.30177E-06_JPRB,0.27638E-03_JPRB,0.42268E-03_JPRB,0.51823E-03_JPRB,0.58348E-03_JPRB, &
+ & 0.61591E-03_JPRB,0.60497E-03_JPRB,0.52947E-03_JPRB,0.11016E-03_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.28703E-06_JPRB,0.28612E-03_JPRB,0.44165E-03_JPRB,0.54326E-03_JPRB,0.61010E-03_JPRB, &
+ & 0.64299E-03_JPRB,0.63151E-03_JPRB,0.55558E-03_JPRB,0.11708E-03_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.27356E-06_JPRB,0.29550E-03_JPRB,0.45903E-03_JPRB,0.56703E-03_JPRB,0.63522E-03_JPRB, &
+ & 0.66839E-03_JPRB,0.65812E-03_JPRB,0.58142E-03_JPRB,0.12444E-03_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.28517E-06_JPRB,0.20305E-03_JPRB,0.30940E-03_JPRB,0.37854E-03_JPRB,0.42516E-03_JPRB, &
+ & 0.45167E-03_JPRB,0.44617E-03_JPRB,0.39006E-03_JPRB,0.76394E-04_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.26943E-06_JPRB,0.21631E-03_JPRB,0.32942E-03_JPRB,0.40279E-03_JPRB,0.45281E-03_JPRB, &
+ & 0.47959E-03_JPRB,0.47274E-03_JPRB,0.41219E-03_JPRB,0.83093E-04_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.25526E-06_JPRB,0.22760E-03_JPRB,0.34736E-03_JPRB,0.42603E-03_JPRB,0.47928E-03_JPRB, &
+ & 0.50573E-03_JPRB,0.49753E-03_JPRB,0.43423E-03_JPRB,0.89137E-04_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.24245E-06_JPRB,0.23661E-03_JPRB,0.36423E-03_JPRB,0.44832E-03_JPRB,0.50373E-03_JPRB, &
+ & 0.53021E-03_JPRB,0.52092E-03_JPRB,0.45715E-03_JPRB,0.95026E-04_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.23079E-06_JPRB,0.24490E-03_JPRB,0.37979E-03_JPRB,0.46958E-03_JPRB,0.52671E-03_JPRB, &
+ & 0.55360E-03_JPRB,0.54422E-03_JPRB,0.47982E-03_JPRB,0.10100E-03_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.24258E-06_JPRB,0.16374E-03_JPRB,0.24889E-03_JPRB,0.30526E-03_JPRB,0.34256E-03_JPRB, &
+ & 0.36437E-03_JPRB,0.36054E-03_JPRB,0.31643E-03_JPRB,0.60983E-04_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.22873E-06_JPRB,0.17557E-03_JPRB,0.26674E-03_JPRB,0.32662E-03_JPRB,0.36698E-03_JPRB, &
+ & 0.38862E-03_JPRB,0.38395E-03_JPRB,0.33481E-03_JPRB,0.66717E-04_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.21632E-06_JPRB,0.18596E-03_JPRB,0.28315E-03_JPRB,0.34710E-03_JPRB,0.39032E-03_JPRB, &
+ & 0.41186E-03_JPRB,0.40597E-03_JPRB,0.35347E-03_JPRB,0.71805E-04_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.20515E-06_JPRB,0.19412E-03_JPRB,0.29825E-03_JPRB,0.36672E-03_JPRB,0.41223E-03_JPRB, &
+ & 0.43370E-03_JPRB,0.42654E-03_JPRB,0.37308E-03_JPRB,0.76950E-04_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.19500E-06_JPRB,0.20163E-03_JPRB,0.31177E-03_JPRB,0.38573E-03_JPRB,0.43298E-03_JPRB, &
+ & 0.45474E-03_JPRB,0.44659E-03_JPRB,0.39273E-03_JPRB,0.81854E-04_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.20644E-06_JPRB,0.13088E-03_JPRB,0.19883E-03_JPRB,0.24453E-03_JPRB,0.27379E-03_JPRB, &
+ & 0.29133E-03_JPRB,0.28972E-03_JPRB,0.25527E-03_JPRB,0.48483E-04_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.19422E-06_JPRB,0.14123E-03_JPRB,0.21464E-03_JPRB,0.26307E-03_JPRB,0.29520E-03_JPRB, &
+ & 0.31262E-03_JPRB,0.30976E-03_JPRB,0.27057E-03_JPRB,0.53189E-04_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.18334E-06_JPRB,0.15056E-03_JPRB,0.22945E-03_JPRB,0.28102E-03_JPRB,0.31570E-03_JPRB, &
+ & 0.33336E-03_JPRB,0.32921E-03_JPRB,0.28657E-03_JPRB,0.57664E-04_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.17359E-06_JPRB,0.15845E-03_JPRB,0.24254E-03_JPRB,0.29812E-03_JPRB,0.33533E-03_JPRB, &
+ & 0.35273E-03_JPRB,0.34737E-03_JPRB,0.30290E-03_JPRB,0.62080E-04_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.16476E-06_JPRB,0.16515E-03_JPRB,0.25472E-03_JPRB,0.31492E-03_JPRB,0.35368E-03_JPRB, &
+ & 0.37134E-03_JPRB,0.36466E-03_JPRB,0.31971E-03_JPRB,0.66283E-04_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.17564E-06_JPRB,0.10377E-03_JPRB,0.15799E-03_JPRB,0.19443E-03_JPRB,0.21775E-03_JPRB, &
+ & 0.23221E-03_JPRB,0.23178E-03_JPRB,0.20518E-03_JPRB,0.38613E-04_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.16486E-06_JPRB,0.11291E-03_JPRB,0.17177E-03_JPRB,0.21060E-03_JPRB,0.23605E-03_JPRB, &
+ & 0.25023E-03_JPRB,0.24860E-03_JPRB,0.21840E-03_JPRB,0.42574E-04_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.15532E-06_JPRB,0.12160E-03_JPRB,0.18472E-03_JPRB,0.22613E-03_JPRB,0.25383E-03_JPRB, &
+ & 0.26813E-03_JPRB,0.26569E-03_JPRB,0.23149E-03_JPRB,0.46438E-04_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.14679E-06_JPRB,0.12871E-03_JPRB,0.19629E-03_JPRB,0.24117E-03_JPRB,0.27101E-03_JPRB, &
+ & 0.28546E-03_JPRB,0.28148E-03_JPRB,0.24511E-03_JPRB,0.50132E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.13913E-06_JPRB,0.13470E-03_JPRB,0.20711E-03_JPRB,0.25583E-03_JPRB,0.28735E-03_JPRB, &
+ & 0.30171E-03_JPRB,0.29653E-03_JPRB,0.25931E-03_JPRB,0.53892E-04_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.14950E-06_JPRB,0.81941E-04_JPRB,0.12473E-03_JPRB,0.15363E-03_JPRB,0.17257E-03_JPRB, &
+ & 0.18409E-03_JPRB,0.18424E-03_JPRB,0.16439E-03_JPRB,0.30772E-04_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.13998E-06_JPRB,0.89702E-04_JPRB,0.13655E-03_JPRB,0.16763E-03_JPRB,0.18779E-03_JPRB, &
+ & 0.19919E-03_JPRB,0.19877E-03_JPRB,0.17581E-03_JPRB,0.34022E-04_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.13160E-06_JPRB,0.97263E-04_JPRB,0.14776E-03_JPRB,0.18089E-03_JPRB,0.20292E-03_JPRB, &
+ & 0.21451E-03_JPRB,0.21317E-03_JPRB,0.18640E-03_JPRB,0.37381E-04_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.12415E-06_JPRB,0.10389E-03_JPRB,0.15817E-03_JPRB,0.19404E-03_JPRB,0.21794E-03_JPRB, &
+ & 0.22980E-03_JPRB,0.22715E-03_JPRB,0.19784E-03_JPRB,0.40457E-04_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.11749E-06_JPRB,0.10934E-03_JPRB,0.16768E-03_JPRB,0.20680E-03_JPRB,0.23234E-03_JPRB, &
+ & 0.24414E-03_JPRB,0.24026E-03_JPRB,0.20959E-03_JPRB,0.43586E-04_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.12658E-06_JPRB,0.64763E-04_JPRB,0.98690E-04_JPRB,0.12170E-03_JPRB,0.13709E-03_JPRB, &
+ & 0.14644E-03_JPRB,0.14709E-03_JPRB,0.13215E-03_JPRB,0.24737E-04_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.11826E-06_JPRB,0.71405E-04_JPRB,0.10875E-03_JPRB,0.13368E-03_JPRB,0.14978E-03_JPRB, &
+ & 0.15901E-03_JPRB,0.15937E-03_JPRB,0.14153E-03_JPRB,0.27487E-04_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.11097E-06_JPRB,0.77857E-04_JPRB,0.11842E-03_JPRB,0.14510E-03_JPRB,0.16261E-03_JPRB, &
+ & 0.17204E-03_JPRB,0.17129E-03_JPRB,0.15041E-03_JPRB,0.30250E-04_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.10451E-06_JPRB,0.83764E-04_JPRB,0.12762E-03_JPRB,0.15625E-03_JPRB,0.17544E-03_JPRB, &
+ & 0.18516E-03_JPRB,0.18345E-03_JPRB,0.16010E-03_JPRB,0.32891E-04_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.98767E-07_JPRB,0.88833E-04_JPRB,0.13595E-03_JPRB,0.16723E-03_JPRB,0.18798E-03_JPRB, &
+ & 0.19766E-03_JPRB,0.19477E-03_JPRB,0.16979E-03_JPRB,0.35547E-04_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.10368E-06_JPRB,0.53714E-04_JPRB,0.81748E-04_JPRB,0.10085E-03_JPRB,0.11349E-03_JPRB, &
+ & 0.12126E-03_JPRB,0.12180E-03_JPRB,0.10950E-03_JPRB,0.20787E-04_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.96854E-07_JPRB,0.59175E-04_JPRB,0.90131E-04_JPRB,0.11085E-03_JPRB,0.12425E-03_JPRB, &
+ & 0.13166E-03_JPRB,0.13207E-03_JPRB,0.11733E-03_JPRB,0.23028E-04_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.90882E-07_JPRB,0.64593E-04_JPRB,0.98275E-04_JPRB,0.12041E-03_JPRB,0.13497E-03_JPRB, &
+ & 0.14273E-03_JPRB,0.14215E-03_JPRB,0.12479E-03_JPRB,0.25362E-04_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.85602E-07_JPRB,0.69545E-04_JPRB,0.10592E-03_JPRB,0.12982E-03_JPRB,0.14583E-03_JPRB, &
+ & 0.15388E-03_JPRB,0.15228E-03_JPRB,0.13297E-03_JPRB,0.27585E-04_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.80889E-07_JPRB,0.73731E-04_JPRB,0.11290E-03_JPRB,0.13914E-03_JPRB,0.15637E-03_JPRB, &
+ & 0.16431E-03_JPRB,0.16189E-03_JPRB,0.14116E-03_JPRB,0.29828E-04_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.84886E-07_JPRB,0.44418E-04_JPRB,0.67641E-04_JPRB,0.83490E-04_JPRB,0.93906E-04_JPRB, &
+ & 0.10034E-03_JPRB,0.10075E-03_JPRB,0.90614E-04_JPRB,0.17350E-04_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.79297E-07_JPRB,0.48981E-04_JPRB,0.74656E-04_JPRB,0.91821E-04_JPRB,0.10299E-03_JPRB, &
+ & 0.10891E-03_JPRB,0.10933E-03_JPRB,0.97221E-04_JPRB,0.19237E-04_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.74408E-07_JPRB,0.53553E-04_JPRB,0.81503E-04_JPRB,0.99872E-04_JPRB,0.11196E-03_JPRB, &
+ & 0.11832E-03_JPRB,0.11782E-03_JPRB,0.10341E-03_JPRB,0.21189E-04_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.70085E-07_JPRB,0.57698E-04_JPRB,0.87887E-04_JPRB,0.10781E-03_JPRB,0.12107E-03_JPRB, &
+ & 0.12775E-03_JPRB,0.12624E-03_JPRB,0.11034E-03_JPRB,0.23038E-04_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.66226E-07_JPRB,0.61177E-04_JPRB,0.93694E-04_JPRB,0.11567E-03_JPRB,0.12995E-03_JPRB, &
+ & 0.13645E-03_JPRB,0.13436E-03_JPRB,0.11726E-03_JPRB,0.24913E-04_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.69499E-07_JPRB,0.36716E-04_JPRB,0.55902E-04_JPRB,0.69067E-04_JPRB,0.77635E-04_JPRB, &
+ & 0.82934E-04_JPRB,0.83302E-04_JPRB,0.74905E-04_JPRB,0.14419E-04_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.64923E-07_JPRB,0.40511E-04_JPRB,0.61779E-04_JPRB,0.75984E-04_JPRB,0.85239E-04_JPRB, &
+ & 0.90090E-04_JPRB,0.90456E-04_JPRB,0.80264E-04_JPRB,0.15996E-04_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.60920E-07_JPRB,0.44356E-04_JPRB,0.67533E-04_JPRB,0.82746E-04_JPRB,0.92816E-04_JPRB, &
+ & 0.98017E-04_JPRB,0.97590E-04_JPRB,0.85621E-04_JPRB,0.17623E-04_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.57381E-07_JPRB,0.47826E-04_JPRB,0.72874E-04_JPRB,0.89443E-04_JPRB,0.10040E-03_JPRB, &
+ & 0.10588E-03_JPRB,0.10456E-03_JPRB,0.91429E-04_JPRB,0.19144E-04_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.54221E-07_JPRB,0.50750E-04_JPRB,0.77698E-04_JPRB,0.96005E-04_JPRB,0.10784E-03_JPRB, &
+ & 0.11318E-03_JPRB,0.11139E-03_JPRB,0.97258E-04_JPRB,0.20671E-04_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.36654E-05_JPRB,0.13689E-02_JPRB,0.21108E-02_JPRB,0.26314E-02_JPRB,0.29458E-02_JPRB, &
+ & 0.30831E-02_JPRB,0.30207E-02_JPRB,0.26003E-02_JPRB,0.93689E-03_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.35304E-05_JPRB,0.14025E-02_JPRB,0.21716E-02_JPRB,0.27078E-02_JPRB,0.30551E-02_JPRB, &
+ & 0.31948E-02_JPRB,0.31649E-02_JPRB,0.27258E-02_JPRB,0.97983E-03_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.34059E-05_JPRB,0.14340E-02_JPRB,0.22214E-02_JPRB,0.27773E-02_JPRB,0.31348E-02_JPRB, &
+ & 0.33049E-02_JPRB,0.32835E-02_JPRB,0.28461E-02_JPRB,0.10251E-02_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.32895E-05_JPRB,0.14610E-02_JPRB,0.22596E-02_JPRB,0.28314E-02_JPRB,0.32113E-02_JPRB, &
+ & 0.34131E-02_JPRB,0.33921E-02_JPRB,0.29508E-02_JPRB,0.10730E-02_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.31814E-05_JPRB,0.14814E-02_JPRB,0.22905E-02_JPRB,0.28789E-02_JPRB,0.32785E-02_JPRB, &
+ & 0.34996E-02_JPRB,0.34952E-02_JPRB,0.30528E-02_JPRB,0.11205E-02_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.30293E-05_JPRB,0.11600E-02_JPRB,0.17946E-02_JPRB,0.22370E-02_JPRB,0.25205E-02_JPRB, &
+ & 0.26432E-02_JPRB,0.26172E-02_JPRB,0.22691E-02_JPRB,0.78466E-03_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.29173E-05_JPRB,0.11916E-02_JPRB,0.18468E-02_JPRB,0.23072E-02_JPRB,0.26094E-02_JPRB, &
+ & 0.27477E-02_JPRB,0.27388E-02_JPRB,0.23809E-02_JPRB,0.82356E-03_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.28152E-05_JPRB,0.12203E-02_JPRB,0.18939E-02_JPRB,0.23691E-02_JPRB,0.26814E-02_JPRB, &
+ & 0.28506E-02_JPRB,0.28414E-02_JPRB,0.24825E-02_JPRB,0.86161E-03_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.27207E-05_JPRB,0.12454E-02_JPRB,0.19291E-02_JPRB,0.24180E-02_JPRB,0.27489E-02_JPRB, &
+ & 0.29380E-02_JPRB,0.29345E-02_JPRB,0.25808E-02_JPRB,0.90328E-03_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.26316E-05_JPRB,0.12644E-02_JPRB,0.19586E-02_JPRB,0.24624E-02_JPRB,0.28146E-02_JPRB, &
+ & 0.30125E-02_JPRB,0.30237E-02_JPRB,0.26695E-02_JPRB,0.94678E-03_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.25288E-05_JPRB,0.97348E-03_JPRB,0.15070E-02_JPRB,0.18795E-02_JPRB,0.21206E-02_JPRB, &
+ & 0.22362E-02_JPRB,0.22210E-02_JPRB,0.19369E-02_JPRB,0.64308E-03_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.24353E-05_JPRB,0.10031E-02_JPRB,0.15552E-02_JPRB,0.19441E-02_JPRB,0.22013E-02_JPRB, &
+ & 0.23257E-02_JPRB,0.23286E-02_JPRB,0.20362E-02_JPRB,0.67529E-03_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.23495E-05_JPRB,0.10295E-02_JPRB,0.15986E-02_JPRB,0.20019E-02_JPRB,0.22663E-02_JPRB, &
+ & 0.24160E-02_JPRB,0.24204E-02_JPRB,0.21276E-02_JPRB,0.70991E-03_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.22699E-05_JPRB,0.10533E-02_JPRB,0.16337E-02_JPRB,0.20489E-02_JPRB,0.23288E-02_JPRB, &
+ & 0.24911E-02_JPRB,0.25016E-02_JPRB,0.22148E-02_JPRB,0.74635E-03_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.21951E-05_JPRB,0.10724E-02_JPRB,0.16625E-02_JPRB,0.20891E-02_JPRB,0.23896E-02_JPRB, &
+ & 0.25582E-02_JPRB,0.25812E-02_JPRB,0.22925E-02_JPRB,0.78432E-03_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.21169E-05_JPRB,0.81053E-03_JPRB,0.12568E-02_JPRB,0.15647E-02_JPRB,0.17654E-02_JPRB, &
+ & 0.18662E-02_JPRB,0.18568E-02_JPRB,0.16269E-02_JPRB,0.52608E-03_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.20407E-05_JPRB,0.83875E-03_JPRB,0.13019E-02_JPRB,0.16252E-02_JPRB,0.18383E-02_JPRB, &
+ & 0.19441E-02_JPRB,0.19538E-02_JPRB,0.17139E-02_JPRB,0.55325E-03_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.19674E-05_JPRB,0.86329E-03_JPRB,0.13417E-02_JPRB,0.16788E-02_JPRB,0.18985E-02_JPRB, &
+ & 0.20246E-02_JPRB,0.20315E-02_JPRB,0.17978E-02_JPRB,0.58253E-03_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.18994E-05_JPRB,0.88551E-03_JPRB,0.13753E-02_JPRB,0.17238E-02_JPRB,0.19566E-02_JPRB, &
+ & 0.20923E-02_JPRB,0.21035E-02_JPRB,0.18724E-02_JPRB,0.61438E-03_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.18358E-05_JPRB,0.90442E-03_JPRB,0.14042E-02_JPRB,0.17619E-02_JPRB,0.20119E-02_JPRB, &
+ & 0.21542E-02_JPRB,0.21749E-02_JPRB,0.19425E-02_JPRB,0.64762E-03_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.17725E-05_JPRB,0.67146E-03_JPRB,0.10396E-02_JPRB,0.12935E-02_JPRB,0.14576E-02_JPRB, &
+ & 0.15437E-02_JPRB,0.15341E-02_JPRB,0.13532E-02_JPRB,0.42981E-03_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.17095E-05_JPRB,0.69774E-03_JPRB,0.10823E-02_JPRB,0.13477E-02_JPRB,0.15227E-02_JPRB, &
+ & 0.16117E-02_JPRB,0.16222E-02_JPRB,0.14302E-02_JPRB,0.45286E-03_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.16478E-05_JPRB,0.72044E-03_JPRB,0.11190E-02_JPRB,0.13967E-02_JPRB,0.15783E-02_JPRB, &
+ & 0.16817E-02_JPRB,0.16897E-02_JPRB,0.15040E-02_JPRB,0.47782E-03_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.15896E-05_JPRB,0.74136E-03_JPRB,0.11512E-02_JPRB,0.14394E-02_JPRB,0.16307E-02_JPRB, &
+ & 0.17435E-02_JPRB,0.17536E-02_JPRB,0.15687E-02_JPRB,0.50468E-03_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.15353E-05_JPRB,0.75977E-03_JPRB,0.11790E-02_JPRB,0.14755E-02_JPRB,0.16811E-02_JPRB, &
+ & 0.17990E-02_JPRB,0.18175E-02_JPRB,0.16279E-02_JPRB,0.53353E-03_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.14856E-05_JPRB,0.55163E-03_JPRB,0.85182E-03_JPRB,0.10583E-02_JPRB,0.11933E-02_JPRB, &
+ & 0.12633E-02_JPRB,0.12519E-02_JPRB,0.11126E-02_JPRB,0.34969E-03_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.14323E-05_JPRB,0.57534E-03_JPRB,0.89211E-03_JPRB,0.11084E-02_JPRB,0.12510E-02_JPRB, &
+ & 0.13248E-02_JPRB,0.13302E-02_JPRB,0.11815E-02_JPRB,0.36893E-03_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.13818E-05_JPRB,0.59705E-03_JPRB,0.92552E-03_JPRB,0.11530E-02_JPRB,0.13018E-02_JPRB, &
+ & 0.13860E-02_JPRB,0.13942E-02_JPRB,0.12437E-02_JPRB,0.38991E-03_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.13317E-05_JPRB,0.61671E-03_JPRB,0.95568E-03_JPRB,0.11922E-02_JPRB,0.13481E-02_JPRB, &
+ & 0.14426E-02_JPRB,0.14508E-02_JPRB,0.13001E-02_JPRB,0.41248E-03_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.12851E-05_JPRB,0.63414E-03_JPRB,0.98227E-03_JPRB,0.12265E-02_JPRB,0.13936E-02_JPRB, &
+ & 0.14913E-02_JPRB,0.15064E-02_JPRB,0.13512E-02_JPRB,0.43696E-03_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.12453E-05_JPRB,0.44982E-03_JPRB,0.69286E-03_JPRB,0.85857E-03_JPRB,0.97115E-03_JPRB, &
+ & 0.10268E-02_JPRB,0.10132E-02_JPRB,0.90661E-03_JPRB,0.28333E-03_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.11997E-05_JPRB,0.47163E-03_JPRB,0.72984E-03_JPRB,0.90525E-03_JPRB,0.10209E-02_JPRB, &
+ & 0.10830E-02_JPRB,0.10815E-02_JPRB,0.96820E-03_JPRB,0.29991E-03_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.11571E-05_JPRB,0.49170E-03_JPRB,0.76064E-03_JPRB,0.94597E-03_JPRB,0.10683E-02_JPRB, &
+ & 0.11337E-02_JPRB,0.11418E-02_JPRB,0.10210E-02_JPRB,0.31738E-03_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.11157E-05_JPRB,0.50964E-03_JPRB,0.78859E-03_JPRB,0.98236E-03_JPRB,0.11088E-02_JPRB, &
+ & 0.11859E-02_JPRB,0.11920E-02_JPRB,0.10690E-02_JPRB,0.33600E-03_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.10757E-05_JPRB,0.52578E-03_JPRB,0.81330E-03_JPRB,0.10141E-02_JPRB,0.11493E-02_JPRB, &
+ & 0.12285E-02_JPRB,0.12399E-02_JPRB,0.11151E-02_JPRB,0.35631E-03_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.10436E-05_JPRB,0.36475E-03_JPRB,0.55948E-03_JPRB,0.69399E-03_JPRB,0.78699E-03_JPRB, &
+ & 0.82733E-03_JPRB,0.81546E-03_JPRB,0.73443E-03_JPRB,0.22874E-03_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.10043E-05_JPRB,0.38461E-03_JPRB,0.59365E-03_JPRB,0.73631E-03_JPRB,0.82902E-03_JPRB, &
+ & 0.87996E-03_JPRB,0.87589E-03_JPRB,0.78745E-03_JPRB,0.24281E-03_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.96785E-06_JPRB,0.40227E-03_JPRB,0.62191E-03_JPRB,0.77183E-03_JPRB,0.87067E-03_JPRB, &
+ & 0.92338E-03_JPRB,0.93116E-03_JPRB,0.83334E-03_JPRB,0.25735E-03_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.93367E-06_JPRB,0.41881E-03_JPRB,0.64697E-03_JPRB,0.80474E-03_JPRB,0.90754E-03_JPRB, &
+ & 0.96806E-03_JPRB,0.97434E-03_JPRB,0.87439E-03_JPRB,0.27286E-03_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.90017E-06_JPRB,0.43377E-03_JPRB,0.67026E-03_JPRB,0.83398E-03_JPRB,0.94269E-03_JPRB, &
+ & 0.10080E-02_JPRB,0.10154E-02_JPRB,0.91479E-03_JPRB,0.28948E-03_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.87469E-06_JPRB,0.29345E-03_JPRB,0.44857E-03_JPRB,0.55653E-03_JPRB,0.63371E-03_JPRB, &
+ & 0.66253E-03_JPRB,0.65229E-03_JPRB,0.59009E-03_JPRB,0.18475E-03_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.84062E-06_JPRB,0.31152E-03_JPRB,0.47975E-03_JPRB,0.59422E-03_JPRB,0.67077E-03_JPRB, &
+ & 0.71168E-03_JPRB,0.70550E-03_JPRB,0.63674E-03_JPRB,0.19669E-03_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.80947E-06_JPRB,0.32779E-03_JPRB,0.50582E-03_JPRB,0.62707E-03_JPRB,0.70705E-03_JPRB, &
+ & 0.74936E-03_JPRB,0.75252E-03_JPRB,0.67682E-03_JPRB,0.20896E-03_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.78052E-06_JPRB,0.34262E-03_JPRB,0.52820E-03_JPRB,0.65631E-03_JPRB,0.74002E-03_JPRB, &
+ & 0.78731E-03_JPRB,0.79257E-03_JPRB,0.71155E-03_JPRB,0.22197E-03_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.75300E-06_JPRB,0.35618E-03_JPRB,0.54940E-03_JPRB,0.68236E-03_JPRB,0.76978E-03_JPRB, &
+ & 0.82271E-03_JPRB,0.82806E-03_JPRB,0.74658E-03_JPRB,0.23588E-03_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.73080E-06_JPRB,0.23619E-03_JPRB,0.36002E-03_JPRB,0.44769E-03_JPRB,0.51001E-03_JPRB, &
+ & 0.53294E-03_JPRB,0.52319E-03_JPRB,0.47492E-03_JPRB,0.15005E-03_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.70142E-06_JPRB,0.25225E-03_JPRB,0.38742E-03_JPRB,0.48039E-03_JPRB,0.54285E-03_JPRB, &
+ & 0.57407E-03_JPRB,0.56765E-03_JPRB,0.51444E-03_JPRB,0.16000E-03_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.67484E-06_JPRB,0.26687E-03_JPRB,0.41119E-03_JPRB,0.50924E-03_JPRB,0.57372E-03_JPRB, &
+ & 0.60912E-03_JPRB,0.60813E-03_JPRB,0.54945E-03_JPRB,0.17036E-03_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.65032E-06_JPRB,0.28002E-03_JPRB,0.43104E-03_JPRB,0.53513E-03_JPRB,0.60294E-03_JPRB, &
+ & 0.63998E-03_JPRB,0.64485E-03_JPRB,0.57888E-03_JPRB,0.18120E-03_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.62752E-06_JPRB,0.29182E-03_JPRB,0.44950E-03_JPRB,0.55836E-03_JPRB,0.62849E-03_JPRB, &
+ & 0.67148E-03_JPRB,0.67570E-03_JPRB,0.60918E-03_JPRB,0.19271E-03_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.59846E-06_JPRB,0.19603E-03_JPRB,0.29902E-03_JPRB,0.37159E-03_JPRB,0.42367E-03_JPRB, &
+ & 0.44241E-03_JPRB,0.43550E-03_JPRB,0.39618E-03_JPRB,0.12498E-03_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.57447E-06_JPRB,0.20953E-03_JPRB,0.32187E-03_JPRB,0.39882E-03_JPRB,0.45021E-03_JPRB, &
+ & 0.47717E-03_JPRB,0.47240E-03_JPRB,0.42894E-03_JPRB,0.13362E-03_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.55265E-06_JPRB,0.22185E-03_JPRB,0.34133E-03_JPRB,0.42283E-03_JPRB,0.47616E-03_JPRB, &
+ & 0.50481E-03_JPRB,0.50553E-03_JPRB,0.45654E-03_JPRB,0.14246E-03_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.53259E-06_JPRB,0.23301E-03_JPRB,0.35816E-03_JPRB,0.44448E-03_JPRB,0.50048E-03_JPRB, &
+ & 0.53147E-03_JPRB,0.53574E-03_JPRB,0.48169E-03_JPRB,0.15168E-03_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.51379E-06_JPRB,0.24302E-03_JPRB,0.37383E-03_JPRB,0.46352E-03_JPRB,0.52203E-03_JPRB, &
+ & 0.55783E-03_JPRB,0.56175E-03_JPRB,0.50737E-03_JPRB,0.16153E-03_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.49006E-06_JPRB,0.16259E-03_JPRB,0.24802E-03_JPRB,0.30804E-03_JPRB,0.35111E-03_JPRB, &
+ & 0.36672E-03_JPRB,0.36166E-03_JPRB,0.32968E-03_JPRB,0.10401E-03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.47033E-06_JPRB,0.17379E-03_JPRB,0.26697E-03_JPRB,0.33069E-03_JPRB,0.37292E-03_JPRB, &
+ & 0.39587E-03_JPRB,0.39239E-03_JPRB,0.35672E-03_JPRB,0.11138E-03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.45247E-06_JPRB,0.18417E-03_JPRB,0.28295E-03_JPRB,0.35045E-03_JPRB,0.39465E-03_JPRB, &
+ & 0.41825E-03_JPRB,0.41984E-03_JPRB,0.37867E-03_JPRB,0.11882E-03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.43605E-06_JPRB,0.19351E-03_JPRB,0.29716E-03_JPRB,0.36850E-03_JPRB,0.41489E-03_JPRB, &
+ & 0.44074E-03_JPRB,0.44460E-03_JPRB,0.40031E-03_JPRB,0.12667E-03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.42066E-06_JPRB,0.20206E-03_JPRB,0.31038E-03_JPRB,0.38464E-03_JPRB,0.43337E-03_JPRB, &
+ & 0.46297E-03_JPRB,0.46667E-03_JPRB,0.42202E-03_JPRB,0.13498E-03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.40122E-06_JPRB,0.13465E-03_JPRB,0.20541E-03_JPRB,0.25488E-03_JPRB,0.29006E-03_JPRB, &
+ & 0.30358E-03_JPRB,0.29984E-03_JPRB,0.27375E-03_JPRB,0.86406E-04_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.38502E-06_JPRB,0.14398E-03_JPRB,0.22086E-03_JPRB,0.27376E-03_JPRB,0.30832E-03_JPRB, &
+ & 0.32794E-03_JPRB,0.32517E-03_JPRB,0.29562E-03_JPRB,0.92614E-04_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.37045E-06_JPRB,0.15266E-03_JPRB,0.23416E-03_JPRB,0.29013E-03_JPRB,0.32675E-03_JPRB, &
+ & 0.34622E-03_JPRB,0.34816E-03_JPRB,0.31401E-03_JPRB,0.98880E-04_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.35702E-06_JPRB,0.16050E-03_JPRB,0.24608E-03_JPRB,0.30521E-03_JPRB,0.34336E-03_JPRB, &
+ & 0.36522E-03_JPRB,0.36857E-03_JPRB,0.33246E-03_JPRB,0.10559E-03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.34440E-06_JPRB,0.16771E-03_JPRB,0.25742E-03_JPRB,0.31904E-03_JPRB,0.35943E-03_JPRB, &
+ & 0.38405E-03_JPRB,0.38715E-03_JPRB,0.35087E-03_JPRB,0.11262E-03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.15583E-03_JPRB,0.37546E-02_JPRB,0.53536E-02_JPRB,0.64161E-02_JPRB,0.71223E-02_JPRB, &
+ & 0.74982E-02_JPRB,0.73596E-02_JPRB,0.65135E-02_JPRB,0.35175E-02_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.16148E-03_JPRB,0.38569E-02_JPRB,0.55256E-02_JPRB,0.66461E-02_JPRB,0.73757E-02_JPRB, &
+ & 0.77530E-02_JPRB,0.75665E-02_JPRB,0.66496E-02_JPRB,0.36840E-02_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.16484E-03_JPRB,0.39353E-02_JPRB,0.56745E-02_JPRB,0.68364E-02_JPRB,0.76166E-02_JPRB, &
+ & 0.79711E-02_JPRB,0.77717E-02_JPRB,0.67846E-02_JPRB,0.38485E-02_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.16621E-03_JPRB,0.39946E-02_JPRB,0.57947E-02_JPRB,0.70071E-02_JPRB,0.78193E-02_JPRB, &
+ & 0.81581E-02_JPRB,0.79592E-02_JPRB,0.69132E-02_JPRB,0.39769E-02_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.16518E-03_JPRB,0.40386E-02_JPRB,0.58925E-02_JPRB,0.71530E-02_JPRB,0.79946E-02_JPRB, &
+ & 0.83258E-02_JPRB,0.81107E-02_JPRB,0.70226E-02_JPRB,0.41134E-02_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.12482E-03_JPRB,0.32204E-02_JPRB,0.46102E-02_JPRB,0.55475E-02_JPRB,0.61730E-02_JPRB, &
+ & 0.65000E-02_JPRB,0.63942E-02_JPRB,0.56394E-02_JPRB,0.30002E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.13027E-03_JPRB,0.33099E-02_JPRB,0.47617E-02_JPRB,0.57497E-02_JPRB,0.64031E-02_JPRB, &
+ & 0.67184E-02_JPRB,0.65829E-02_JPRB,0.57721E-02_JPRB,0.31442E-02_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.13370E-03_JPRB,0.33808E-02_JPRB,0.48845E-02_JPRB,0.59235E-02_JPRB,0.66074E-02_JPRB, &
+ & 0.69048E-02_JPRB,0.67660E-02_JPRB,0.59018E-02_JPRB,0.32788E-02_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.13549E-03_JPRB,0.34340E-02_JPRB,0.49885E-02_JPRB,0.60745E-02_JPRB,0.67877E-02_JPRB, &
+ & 0.70780E-02_JPRB,0.69202E-02_JPRB,0.60131E-02_JPRB,0.33946E-02_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.13543E-03_JPRB,0.34778E-02_JPRB,0.50745E-02_JPRB,0.61981E-02_JPRB,0.69282E-02_JPRB, &
+ & 0.72229E-02_JPRB,0.70521E-02_JPRB,0.61218E-02_JPRB,0.35097E-02_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.98437E-04_JPRB,0.27209E-02_JPRB,0.39035E-02_JPRB,0.47185E-02_JPRB,0.52706E-02_JPRB, &
+ & 0.55579E-02_JPRB,0.54846E-02_JPRB,0.48469E-02_JPRB,0.25077E-02_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.10396E-03_JPRB,0.28031E-02_JPRB,0.40384E-02_JPRB,0.48993E-02_JPRB,0.54753E-02_JPRB, &
+ & 0.57575E-02_JPRB,0.56525E-02_JPRB,0.49684E-02_JPRB,0.26366E-02_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.10770E-03_JPRB,0.28702E-02_JPRB,0.41513E-02_JPRB,0.50504E-02_JPRB,0.56640E-02_JPRB, &
+ & 0.59245E-02_JPRB,0.58125E-02_JPRB,0.50922E-02_JPRB,0.27478E-02_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.10996E-03_JPRB,0.29232E-02_JPRB,0.42451E-02_JPRB,0.51838E-02_JPRB,0.58257E-02_JPRB, &
+ & 0.60793E-02_JPRB,0.59498E-02_JPRB,0.51949E-02_JPRB,0.28490E-02_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.11088E-03_JPRB,0.29645E-02_JPRB,0.43251E-02_JPRB,0.52992E-02_JPRB,0.59468E-02_JPRB, &
+ & 0.62096E-02_JPRB,0.60648E-02_JPRB,0.52904E-02_JPRB,0.29495E-02_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.76587E-04_JPRB,0.22792E-02_JPRB,0.32731E-02_JPRB,0.39724E-02_JPRB,0.44561E-02_JPRB, &
+ & 0.47109E-02_JPRB,0.46706E-02_JPRB,0.41444E-02_JPRB,0.20810E-02_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.82225E-04_JPRB,0.23548E-02_JPRB,0.33943E-02_JPRB,0.41325E-02_JPRB,0.46415E-02_JPRB, &
+ & 0.48939E-02_JPRB,0.48200E-02_JPRB,0.42591E-02_JPRB,0.21925E-02_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.86203E-04_JPRB,0.24180E-02_JPRB,0.34991E-02_JPRB,0.42684E-02_JPRB,0.48074E-02_JPRB, &
+ & 0.50416E-02_JPRB,0.49651E-02_JPRB,0.43643E-02_JPRB,0.22938E-02_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.88766E-04_JPRB,0.24694E-02_JPRB,0.35874E-02_JPRB,0.43875E-02_JPRB,0.49469E-02_JPRB, &
+ & 0.51810E-02_JPRB,0.50850E-02_JPRB,0.44606E-02_JPRB,0.23791E-02_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.90218E-04_JPRB,0.25110E-02_JPRB,0.36613E-02_JPRB,0.44937E-02_JPRB,0.50548E-02_JPRB, &
+ & 0.52982E-02_JPRB,0.51883E-02_JPRB,0.45498E-02_JPRB,0.24658E-02_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.59080E-04_JPRB,0.18972E-02_JPRB,0.27294E-02_JPRB,0.33195E-02_JPRB,0.37395E-02_JPRB, &
+ & 0.39683E-02_JPRB,0.39523E-02_JPRB,0.35161E-02_JPRB,0.17195E-02_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.64508E-04_JPRB,0.19673E-02_JPRB,0.28376E-02_JPRB,0.34632E-02_JPRB,0.39033E-02_JPRB, &
+ & 0.41343E-02_JPRB,0.40826E-02_JPRB,0.36195E-02_JPRB,0.18173E-02_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.68538E-04_JPRB,0.20264E-02_JPRB,0.29342E-02_JPRB,0.35856E-02_JPRB,0.40488E-02_JPRB, &
+ & 0.42664E-02_JPRB,0.42141E-02_JPRB,0.37144E-02_JPRB,0.19081E-02_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.71328E-04_JPRB,0.20750E-02_JPRB,0.30165E-02_JPRB,0.36933E-02_JPRB,0.41719E-02_JPRB, &
+ & 0.43880E-02_JPRB,0.43221E-02_JPRB,0.38006E-02_JPRB,0.19818E-02_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.73073E-04_JPRB,0.21155E-02_JPRB,0.30861E-02_JPRB,0.37892E-02_JPRB,0.42690E-02_JPRB, &
+ & 0.44901E-02_JPRB,0.44161E-02_JPRB,0.38864E-02_JPRB,0.20583E-02_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.45069E-04_JPRB,0.15673E-02_JPRB,0.22596E-02_JPRB,0.27566E-02_JPRB,0.31117E-02_JPRB, &
+ & 0.33162E-02_JPRB,0.33135E-02_JPRB,0.29574E-02_JPRB,0.14089E-02_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.49959E-04_JPRB,0.16342E-02_JPRB,0.23577E-02_JPRB,0.28828E-02_JPRB,0.32572E-02_JPRB, &
+ & 0.34626E-02_JPRB,0.34302E-02_JPRB,0.30476E-02_JPRB,0.14955E-02_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.54013E-04_JPRB,0.16891E-02_JPRB,0.24457E-02_JPRB,0.29926E-02_JPRB,0.33865E-02_JPRB, &
+ & 0.35809E-02_JPRB,0.35427E-02_JPRB,0.31358E-02_JPRB,0.15763E-02_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.56910E-04_JPRB,0.17356E-02_JPRB,0.25220E-02_JPRB,0.30903E-02_JPRB,0.34968E-02_JPRB, &
+ & 0.36853E-02_JPRB,0.36443E-02_JPRB,0.32140E-02_JPRB,0.16428E-02_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.58852E-04_JPRB,0.17743E-02_JPRB,0.25868E-02_JPRB,0.31771E-02_JPRB,0.35857E-02_JPRB, &
+ & 0.37782E-02_JPRB,0.37284E-02_JPRB,0.32905E-02_JPRB,0.17079E-02_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.34131E-04_JPRB,0.12873E-02_JPRB,0.18619E-02_JPRB,0.22745E-02_JPRB,0.25688E-02_JPRB, &
+ & 0.27494E-02_JPRB,0.27574E-02_JPRB,0.24658E-02_JPRB,0.11444E-02_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.38379E-04_JPRB,0.13503E-02_JPRB,0.19490E-02_JPRB,0.23869E-02_JPRB,0.26985E-02_JPRB, &
+ & 0.28761E-02_JPRB,0.28607E-02_JPRB,0.25443E-02_JPRB,0.12242E-02_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.42146E-04_JPRB,0.14018E-02_JPRB,0.20287E-02_JPRB,0.24843E-02_JPRB,0.28119E-02_JPRB, &
+ & 0.29848E-02_JPRB,0.29569E-02_JPRB,0.26258E-02_JPRB,0.12956E-02_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.45116E-04_JPRB,0.14454E-02_JPRB,0.20989E-02_JPRB,0.25718E-02_JPRB,0.29115E-02_JPRB, &
+ & 0.30740E-02_JPRB,0.30482E-02_JPRB,0.26967E-02_JPRB,0.13537E-02_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.47178E-04_JPRB,0.14818E-02_JPRB,0.21591E-02_JPRB,0.26509E-02_JPRB,0.29945E-02_JPRB, &
+ & 0.31590E-02_JPRB,0.31235E-02_JPRB,0.27641E-02_JPRB,0.14100E-02_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.25656E-04_JPRB,0.10525E-02_JPRB,0.15266E-02_JPRB,0.18648E-02_JPRB,0.21060E-02_JPRB, &
+ & 0.22660E-02_JPRB,0.22807E-02_JPRB,0.20415E-02_JPRB,0.92482E-03_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.29313E-04_JPRB,0.11096E-02_JPRB,0.16027E-02_JPRB,0.19628E-02_JPRB,0.22224E-02_JPRB, &
+ & 0.23730E-02_JPRB,0.23683E-02_JPRB,0.21111E-02_JPRB,0.99366E-03_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.32643E-04_JPRB,0.11579E-02_JPRB,0.16732E-02_JPRB,0.20503E-02_JPRB,0.23231E-02_JPRB, &
+ & 0.24721E-02_JPRB,0.24512E-02_JPRB,0.21842E-02_JPRB,0.10570E-02_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.35509E-04_JPRB,0.11985E-02_JPRB,0.17379E-02_JPRB,0.21284E-02_JPRB,0.24110E-02_JPRB, &
+ & 0.25519E-02_JPRB,0.25339E-02_JPRB,0.22496E-02_JPRB,0.11116E-02_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.37616E-04_JPRB,0.12327E-02_JPRB,0.17933E-02_JPRB,0.21996E-02_JPRB,0.24880E-02_JPRB, &
+ & 0.26258E-02_JPRB,0.26029E-02_JPRB,0.23088E-02_JPRB,0.11595E-02_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.19166E-04_JPRB,0.85559E-03_JPRB,0.12446E-02_JPRB,0.15213E-02_JPRB,0.17160E-02_JPRB, &
+ & 0.18527E-02_JPRB,0.18723E-02_JPRB,0.16794E-02_JPRB,0.74316E-03_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.22251E-04_JPRB,0.90701E-03_JPRB,0.13107E-02_JPRB,0.16061E-02_JPRB,0.18177E-02_JPRB, &
+ & 0.19452E-02_JPRB,0.19496E-02_JPRB,0.17420E-02_JPRB,0.80168E-03_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.25123E-04_JPRB,0.95106E-03_JPRB,0.13724E-02_JPRB,0.16826E-02_JPRB,0.19064E-02_JPRB, &
+ & 0.20352E-02_JPRB,0.20241E-02_JPRB,0.18064E-02_JPRB,0.85659E-03_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.27713E-04_JPRB,0.98903E-03_JPRB,0.14301E-02_JPRB,0.17523E-02_JPRB,0.19862E-02_JPRB, &
+ & 0.21079E-02_JPRB,0.20944E-02_JPRB,0.18656E-02_JPRB,0.90655E-03_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.29821E-04_JPRB,0.10207E-02_JPRB,0.14813E-02_JPRB,0.18163E-02_JPRB,0.20570E-02_JPRB, &
+ & 0.21737E-02_JPRB,0.21574E-02_JPRB,0.19153E-02_JPRB,0.94882E-03_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.14455E-04_JPRB,0.69508E-03_JPRB,0.10143E-02_JPRB,0.12382E-02_JPRB,0.13977E-02_JPRB, &
+ & 0.15101E-02_JPRB,0.15339E-02_JPRB,0.13794E-02_JPRB,0.60064E-03_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.16975E-04_JPRB,0.74055E-03_JPRB,0.10715E-02_JPRB,0.13117E-02_JPRB,0.14851E-02_JPRB, &
+ & 0.15938E-02_JPRB,0.16026E-02_JPRB,0.14354E-02_JPRB,0.65034E-03_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.19421E-04_JPRB,0.77996E-03_JPRB,0.11243E-02_JPRB,0.13791E-02_JPRB,0.15636E-02_JPRB, &
+ & 0.16707E-02_JPRB,0.16678E-02_JPRB,0.14908E-02_JPRB,0.69875E-03_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.21659E-04_JPRB,0.81369E-03_JPRB,0.11746E-02_JPRB,0.14408E-02_JPRB,0.16340E-02_JPRB, &
+ & 0.17376E-02_JPRB,0.17267E-02_JPRB,0.15418E-02_JPRB,0.74336E-03_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.23616E-04_JPRB,0.84316E-03_JPRB,0.12215E-02_JPRB,0.14972E-02_JPRB,0.16971E-02_JPRB, &
+ & 0.17945E-02_JPRB,0.17834E-02_JPRB,0.15844E-02_JPRB,0.78045E-03_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.11812E-04_JPRB,0.58067E-03_JPRB,0.84658E-03_JPRB,0.10349E-02_JPRB,0.11681E-02_JPRB, &
+ & 0.12622E-02_JPRB,0.12806E-02_JPRB,0.11518E-02_JPRB,0.50197E-03_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.13870E-04_JPRB,0.61870E-03_JPRB,0.89364E-03_JPRB,0.10957E-02_JPRB,0.12411E-02_JPRB, &
+ & 0.13307E-02_JPRB,0.13366E-02_JPRB,0.11990E-02_JPRB,0.54419E-03_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.15872E-04_JPRB,0.65131E-03_JPRB,0.93843E-03_JPRB,0.11520E-02_JPRB,0.13068E-02_JPRB, &
+ & 0.13966E-02_JPRB,0.13927E-02_JPRB,0.12459E-02_JPRB,0.58412E-03_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.17706E-04_JPRB,0.67957E-03_JPRB,0.98128E-03_JPRB,0.12037E-02_JPRB,0.13653E-02_JPRB, &
+ & 0.14510E-02_JPRB,0.14423E-02_JPRB,0.12873E-02_JPRB,0.62086E-03_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.19307E-04_JPRB,0.70477E-03_JPRB,0.10208E-02_JPRB,0.12522E-02_JPRB,0.14187E-02_JPRB, &
+ & 0.15000E-02_JPRB,0.14882E-02_JPRB,0.13223E-02_JPRB,0.65273E-03_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.96633E-05_JPRB,0.48384E-03_JPRB,0.70464E-03_JPRB,0.86214E-03_JPRB,0.97325E-03_JPRB, &
+ & 0.10525E-02_JPRB,0.10661E-02_JPRB,0.95818E-03_JPRB,0.41838E-03_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.11346E-04_JPRB,0.51544E-03_JPRB,0.74375E-03_JPRB,0.91255E-03_JPRB,0.10346E-02_JPRB, &
+ & 0.11088E-02_JPRB,0.11124E-02_JPRB,0.99787E-03_JPRB,0.45436E-03_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.12983E-04_JPRB,0.54258E-03_JPRB,0.78191E-03_JPRB,0.95994E-03_JPRB,0.10893E-02_JPRB, &
+ & 0.11636E-02_JPRB,0.11595E-02_JPRB,0.10379E-02_JPRB,0.48767E-03_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.14483E-04_JPRB,0.56662E-03_JPRB,0.81795E-03_JPRB,0.10036E-02_JPRB,0.11385E-02_JPRB, &
+ & 0.12091E-02_JPRB,0.12012E-02_JPRB,0.10707E-02_JPRB,0.51810E-03_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.15790E-04_JPRB,0.58805E-03_JPRB,0.85165E-03_JPRB,0.10447E-02_JPRB,0.11830E-02_JPRB, &
+ & 0.12500E-02_JPRB,0.12389E-02_JPRB,0.11012E-02_JPRB,0.54508E-03_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.79057E-05_JPRB,0.40215E-03_JPRB,0.58516E-03_JPRB,0.71666E-03_JPRB,0.80969E-03_JPRB, &
+ & 0.87518E-03_JPRB,0.88581E-03_JPRB,0.79569E-03_JPRB,0.34825E-03_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.92808E-05_JPRB,0.42853E-03_JPRB,0.61818E-03_JPRB,0.75847E-03_JPRB,0.86082E-03_JPRB, &
+ & 0.92160E-03_JPRB,0.92436E-03_JPRB,0.82894E-03_JPRB,0.37871E-03_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.10621E-04_JPRB,0.45134E-03_JPRB,0.65028E-03_JPRB,0.79815E-03_JPRB,0.90622E-03_JPRB, &
+ & 0.96752E-03_JPRB,0.96291E-03_JPRB,0.86177E-03_JPRB,0.40642E-03_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.11849E-04_JPRB,0.47161E-03_JPRB,0.68090E-03_JPRB,0.83530E-03_JPRB,0.94770E-03_JPRB, &
+ & 0.10054E-02_JPRB,0.99815E-03_JPRB,0.88908E-03_JPRB,0.43149E-03_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.12897E-04_JPRB,0.49000E-03_JPRB,0.70944E-03_JPRB,0.86982E-03_JPRB,0.98430E-03_JPRB, &
+ & 0.10398E-02_JPRB,0.10297E-02_JPRB,0.91483E-03_JPRB,0.45459E-03_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.23575E-02_JPRB,0.96457E-02_JPRB,0.13128E-01_JPRB,0.15361E-01_JPRB,0.16662E-01_JPRB, &
+ & 0.16999E-01_JPRB,0.16303E-01_JPRB,0.14368E-01_JPRB,0.10185E-01_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.24508E-02_JPRB,0.99768E-02_JPRB,0.13562E-01_JPRB,0.15786E-01_JPRB,0.17046E-01_JPRB, &
+ & 0.17316E-01_JPRB,0.16539E-01_JPRB,0.14627E-01_JPRB,0.10447E-01_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.25176E-02_JPRB,0.10262E-01_JPRB,0.13947E-01_JPRB,0.16182E-01_JPRB,0.17390E-01_JPRB, &
+ & 0.17588E-01_JPRB,0.16752E-01_JPRB,0.14857E-01_JPRB,0.10699E-01_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.25627E-02_JPRB,0.10510E-01_JPRB,0.14271E-01_JPRB,0.16517E-01_JPRB,0.17678E-01_JPRB, &
+ & 0.17815E-01_JPRB,0.16941E-01_JPRB,0.15073E-01_JPRB,0.10970E-01_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.25904E-02_JPRB,0.10712E-01_JPRB,0.14528E-01_JPRB,0.16788E-01_JPRB,0.17912E-01_JPRB, &
+ & 0.18013E-01_JPRB,0.17126E-01_JPRB,0.15282E-01_JPRB,0.11215E-01_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.19422E-02_JPRB,0.85179E-02_JPRB,0.11603E-01_JPRB,0.13561E-01_JPRB,0.14694E-01_JPRB, &
+ & 0.14952E-01_JPRB,0.14274E-01_JPRB,0.12616E-01_JPRB,0.86910E-02_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.20231E-02_JPRB,0.88208E-02_JPRB,0.11992E-01_JPRB,0.13942E-01_JPRB,0.15043E-01_JPRB, &
+ & 0.15241E-01_JPRB,0.14503E-01_JPRB,0.12849E-01_JPRB,0.89203E-02_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.20824E-02_JPRB,0.90892E-02_JPRB,0.12333E-01_JPRB,0.14283E-01_JPRB,0.15343E-01_JPRB, &
+ & 0.15493E-01_JPRB,0.14704E-01_JPRB,0.13065E-01_JPRB,0.91412E-02_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.21235E-02_JPRB,0.93193E-02_JPRB,0.12613E-01_JPRB,0.14573E-01_JPRB,0.15586E-01_JPRB, &
+ & 0.15696E-01_JPRB,0.14900E-01_JPRB,0.13269E-01_JPRB,0.93731E-02_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.21501E-02_JPRB,0.95064E-02_JPRB,0.12844E-01_JPRB,0.14802E-01_JPRB,0.15789E-01_JPRB, &
+ & 0.15872E-01_JPRB,0.15079E-01_JPRB,0.13459E-01_JPRB,0.95922E-02_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.15710E-02_JPRB,0.73739E-02_JPRB,0.10084E-01_JPRB,0.11795E-01_JPRB,0.12791E-01_JPRB, &
+ & 0.13002E-01_JPRB,0.12408E-01_JPRB,0.10948E-01_JPRB,0.73256E-02_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.16445E-02_JPRB,0.76603E-02_JPRB,0.10441E-01_JPRB,0.12136E-01_JPRB,0.13098E-01_JPRB, &
+ & 0.13272E-01_JPRB,0.12629E-01_JPRB,0.11169E-01_JPRB,0.75277E-02_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.17016E-02_JPRB,0.79120E-02_JPRB,0.10738E-01_JPRB,0.12444E-01_JPRB,0.13365E-01_JPRB, &
+ & 0.13502E-01_JPRB,0.12827E-01_JPRB,0.11365E-01_JPRB,0.77275E-02_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.17419E-02_JPRB,0.81204E-02_JPRB,0.10992E-01_JPRB,0.12704E-01_JPRB,0.13579E-01_JPRB, &
+ & 0.13687E-01_JPRB,0.13022E-01_JPRB,0.11565E-01_JPRB,0.79327E-02_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.17693E-02_JPRB,0.82896E-02_JPRB,0.11201E-01_JPRB,0.12903E-01_JPRB,0.13761E-01_JPRB, &
+ & 0.13854E-01_JPRB,0.13193E-01_JPRB,0.11760E-01_JPRB,0.81324E-02_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.12568E-02_JPRB,0.62925E-02_JPRB,0.86570E-02_JPRB,0.10156E-01_JPRB,0.11020E-01_JPRB, &
+ & 0.11220E-01_JPRB,0.10710E-01_JPRB,0.94329E-02_JPRB,0.61812E-02_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.13242E-02_JPRB,0.65532E-02_JPRB,0.89756E-02_JPRB,0.10460E-01_JPRB,0.11292E-01_JPRB, &
+ & 0.11463E-01_JPRB,0.10924E-01_JPRB,0.96449E-02_JPRB,0.63620E-02_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.13782E-02_JPRB,0.67807E-02_JPRB,0.92447E-02_JPRB,0.10739E-01_JPRB,0.11531E-01_JPRB, &
+ & 0.11676E-01_JPRB,0.11115E-01_JPRB,0.98384E-02_JPRB,0.65417E-02_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.14185E-02_JPRB,0.69728E-02_JPRB,0.94724E-02_JPRB,0.10967E-01_JPRB,0.11732E-01_JPRB, &
+ & 0.11853E-01_JPRB,0.11299E-01_JPRB,0.10029E-01_JPRB,0.67314E-02_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.14466E-02_JPRB,0.71294E-02_JPRB,0.96551E-02_JPRB,0.11150E-01_JPRB,0.11897E-01_JPRB, &
+ & 0.12003E-01_JPRB,0.11457E-01_JPRB,0.10212E-01_JPRB,0.69134E-02_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.99815E-03_JPRB,0.53184E-02_JPRB,0.73668E-02_JPRB,0.86661E-02_JPRB,0.94189E-02_JPRB, &
+ & 0.96088E-02_JPRB,0.91860E-02_JPRB,0.80854E-02_JPRB,0.52147E-02_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.10594E-02_JPRB,0.55502E-02_JPRB,0.76480E-02_JPRB,0.89382E-02_JPRB,0.96675E-02_JPRB, &
+ & 0.98281E-02_JPRB,0.93908E-02_JPRB,0.82904E-02_JPRB,0.53805E-02_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.11093E-02_JPRB,0.57534E-02_JPRB,0.78820E-02_JPRB,0.91873E-02_JPRB,0.98860E-02_JPRB, &
+ & 0.10027E-01_JPRB,0.95739E-02_JPRB,0.84774E-02_JPRB,0.55398E-02_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.11487E-02_JPRB,0.59264E-02_JPRB,0.80746E-02_JPRB,0.93952E-02_JPRB,0.10070E-01_JPRB, &
+ & 0.10196E-01_JPRB,0.97460E-02_JPRB,0.86586E-02_JPRB,0.57118E-02_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.11770E-02_JPRB,0.60715E-02_JPRB,0.82322E-02_JPRB,0.95590E-02_JPRB,0.10225E-01_JPRB, &
+ & 0.10337E-01_JPRB,0.98891E-02_JPRB,0.88282E-02_JPRB,0.58756E-02_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.78484E-03_JPRB,0.44557E-02_JPRB,0.62088E-02_JPRB,0.73238E-02_JPRB,0.79758E-02_JPRB, &
+ & 0.81565E-02_JPRB,0.78234E-02_JPRB,0.68949E-02_JPRB,0.43721E-02_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.84104E-03_JPRB,0.46584E-02_JPRB,0.64548E-02_JPRB,0.75720E-02_JPRB,0.82049E-02_JPRB, &
+ & 0.83603E-02_JPRB,0.80139E-02_JPRB,0.70912E-02_JPRB,0.45208E-02_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.88703E-03_JPRB,0.48386E-02_JPRB,0.66585E-02_JPRB,0.77939E-02_JPRB,0.84077E-02_JPRB, &
+ & 0.85494E-02_JPRB,0.81878E-02_JPRB,0.72673E-02_JPRB,0.46664E-02_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.92429E-03_JPRB,0.49939E-02_JPRB,0.68255E-02_JPRB,0.79793E-02_JPRB,0.85811E-02_JPRB, &
+ & 0.87123E-02_JPRB,0.83423E-02_JPRB,0.74324E-02_JPRB,0.48193E-02_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.95287E-03_JPRB,0.51269E-02_JPRB,0.69664E-02_JPRB,0.81216E-02_JPRB,0.87256E-02_JPRB, &
+ & 0.88404E-02_JPRB,0.84793E-02_JPRB,0.75885E-02_JPRB,0.49684E-02_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.61176E-03_JPRB,0.37105E-02_JPRB,0.51921E-02_JPRB,0.61495E-02_JPRB,0.67086E-02_JPRB, &
+ & 0.68737E-02_JPRB,0.66196E-02_JPRB,0.58499E-02_JPRB,0.36398E-02_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.66355E-03_JPRB,0.38845E-02_JPRB,0.54092E-02_JPRB,0.63684E-02_JPRB,0.69191E-02_JPRB, &
+ & 0.70638E-02_JPRB,0.67967E-02_JPRB,0.60329E-02_JPRB,0.37725E-02_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.70584E-03_JPRB,0.40429E-02_JPRB,0.55891E-02_JPRB,0.65665E-02_JPRB,0.71061E-02_JPRB, &
+ & 0.72392E-02_JPRB,0.69566E-02_JPRB,0.61958E-02_JPRB,0.39040E-02_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.74016E-03_JPRB,0.41804E-02_JPRB,0.57362E-02_JPRB,0.67306E-02_JPRB,0.72656E-02_JPRB, &
+ & 0.73939E-02_JPRB,0.71002E-02_JPRB,0.63458E-02_JPRB,0.40422E-02_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.76793E-03_JPRB,0.43013E-02_JPRB,0.58634E-02_JPRB,0.68605E-02_JPRB,0.73917E-02_JPRB, &
+ & 0.75160E-02_JPRB,0.72292E-02_JPRB,0.64867E-02_JPRB,0.41753E-02_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.47383E-03_JPRB,0.30719E-02_JPRB,0.43157E-02_JPRB,0.51299E-02_JPRB,0.56113E-02_JPRB, &
+ & 0.57604E-02_JPRB,0.55584E-02_JPRB,0.49263E-02_JPRB,0.30099E-02_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.52030E-03_JPRB,0.32224E-02_JPRB,0.45088E-02_JPRB,0.53256E-02_JPRB,0.58049E-02_JPRB, &
+ & 0.59369E-02_JPRB,0.57249E-02_JPRB,0.50950E-02_JPRB,0.31335E-02_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.55897E-03_JPRB,0.33601E-02_JPRB,0.46690E-02_JPRB,0.55008E-02_JPRB,0.59733E-02_JPRB, &
+ & 0.60982E-02_JPRB,0.58703E-02_JPRB,0.52416E-02_JPRB,0.32505E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.59051E-03_JPRB,0.34823E-02_JPRB,0.48003E-02_JPRB,0.56492E-02_JPRB,0.61147E-02_JPRB, &
+ & 0.62407E-02_JPRB,0.60011E-02_JPRB,0.53776E-02_JPRB,0.33691E-02_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.61638E-03_JPRB,0.35908E-02_JPRB,0.49151E-02_JPRB,0.57682E-02_JPRB,0.62269E-02_JPRB, &
+ & 0.63505E-02_JPRB,0.61226E-02_JPRB,0.55061E-02_JPRB,0.34893E-02_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.36452E-03_JPRB,0.25301E-02_JPRB,0.35655E-02_JPRB,0.42558E-02_JPRB,0.46668E-02_JPRB, &
+ & 0.47995E-02_JPRB,0.46391E-02_JPRB,0.41176E-02_JPRB,0.24723E-02_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.40521E-03_JPRB,0.26609E-02_JPRB,0.37368E-02_JPRB,0.44313E-02_JPRB,0.48422E-02_JPRB, &
+ & 0.49605E-02_JPRB,0.47876E-02_JPRB,0.42682E-02_JPRB,0.25854E-02_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.44042E-03_JPRB,0.27811E-02_JPRB,0.38822E-02_JPRB,0.45871E-02_JPRB,0.49951E-02_JPRB, &
+ & 0.51048E-02_JPRB,0.49189E-02_JPRB,0.43988E-02_JPRB,0.26922E-02_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.46934E-03_JPRB,0.28890E-02_JPRB,0.40015E-02_JPRB,0.47204E-02_JPRB,0.51195E-02_JPRB, &
+ & 0.52329E-02_JPRB,0.50398E-02_JPRB,0.45211E-02_JPRB,0.27947E-02_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.49296E-03_JPRB,0.29863E-02_JPRB,0.41052E-02_JPRB,0.48296E-02_JPRB,0.52212E-02_JPRB, &
+ & 0.53320E-02_JPRB,0.51516E-02_JPRB,0.46410E-02_JPRB,0.29014E-02_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.28141E-03_JPRB,0.20839E-02_JPRB,0.29434E-02_JPRB,0.35250E-02_JPRB,0.38705E-02_JPRB, &
+ & 0.39907E-02_JPRB,0.38574E-02_JPRB,0.34280E-02_JPRB,0.20276E-02_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.31642E-03_JPRB,0.21962E-02_JPRB,0.30947E-02_JPRB,0.36798E-02_JPRB,0.40279E-02_JPRB, &
+ & 0.41317E-02_JPRB,0.39905E-02_JPRB,0.35591E-02_JPRB,0.21304E-02_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.34743E-03_JPRB,0.23002E-02_JPRB,0.32251E-02_JPRB,0.38167E-02_JPRB,0.41632E-02_JPRB, &
+ & 0.42588E-02_JPRB,0.41077E-02_JPRB,0.36737E-02_JPRB,0.22246E-02_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.37337E-03_JPRB,0.23958E-02_JPRB,0.33326E-02_JPRB,0.39351E-02_JPRB,0.42727E-02_JPRB, &
+ & 0.43699E-02_JPRB,0.42167E-02_JPRB,0.37850E-02_JPRB,0.23171E-02_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.39464E-03_JPRB,0.24818E-02_JPRB,0.34245E-02_JPRB,0.40341E-02_JPRB,0.43635E-02_JPRB, &
+ & 0.44592E-02_JPRB,0.43133E-02_JPRB,0.38931E-02_JPRB,0.24123E-02_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.23046E-03_JPRB,0.17561E-02_JPRB,0.24821E-02_JPRB,0.29697E-02_JPRB,0.32603E-02_JPRB, &
+ & 0.33590E-02_JPRB,0.32465E-02_JPRB,0.28911E-02_JPRB,0.17000E-02_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.25900E-03_JPRB,0.18499E-02_JPRB,0.26079E-02_JPRB,0.30983E-02_JPRB,0.33914E-02_JPRB, &
+ & 0.34790E-02_JPRB,0.33598E-02_JPRB,0.30000E-02_JPRB,0.17879E-02_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.28431E-03_JPRB,0.19371E-02_JPRB,0.27154E-02_JPRB,0.32123E-02_JPRB,0.35009E-02_JPRB, &
+ & 0.35810E-02_JPRB,0.34582E-02_JPRB,0.30989E-02_JPRB,0.18709E-02_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.30554E-03_JPRB,0.20175E-02_JPRB,0.28047E-02_JPRB,0.33094E-02_JPRB,0.35897E-02_JPRB, &
+ & 0.36708E-02_JPRB,0.35500E-02_JPRB,0.31964E-02_JPRB,0.19524E-02_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.32290E-03_JPRB,0.20906E-02_JPRB,0.28827E-02_JPRB,0.33907E-02_JPRB,0.36638E-02_JPRB, &
+ & 0.37448E-02_JPRB,0.36322E-02_JPRB,0.32921E-02_JPRB,0.20342E-02_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.18873E-03_JPRB,0.14753E-02_JPRB,0.20859E-02_JPRB,0.24932E-02_JPRB,0.27362E-02_JPRB, &
+ & 0.28163E-02_JPRB,0.27231E-02_JPRB,0.24287E-02_JPRB,0.14226E-02_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.21206E-03_JPRB,0.15542E-02_JPRB,0.21905E-02_JPRB,0.25997E-02_JPRB,0.28436E-02_JPRB, &
+ & 0.29146E-02_JPRB,0.28182E-02_JPRB,0.25196E-02_JPRB,0.14964E-02_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.23271E-03_JPRB,0.16282E-02_JPRB,0.22789E-02_JPRB,0.26937E-02_JPRB,0.29320E-02_JPRB, &
+ & 0.29995E-02_JPRB,0.29004E-02_JPRB,0.26063E-02_JPRB,0.15684E-02_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.25005E-03_JPRB,0.16959E-02_JPRB,0.23539E-02_JPRB,0.27739E-02_JPRB,0.30052E-02_JPRB, &
+ & 0.30738E-02_JPRB,0.29781E-02_JPRB,0.26924E-02_JPRB,0.16388E-02_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.26424E-03_JPRB,0.17579E-02_JPRB,0.24198E-02_JPRB,0.28418E-02_JPRB,0.30688E-02_JPRB, &
+ & 0.31370E-02_JPRB,0.30478E-02_JPRB,0.27734E-02_JPRB,0.17090E-02_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.15451E-03_JPRB,0.12362E-02_JPRB,0.17471E-02_JPRB,0.20856E-02_JPRB,0.22870E-02_JPRB, &
+ & 0.23530E-02_JPRB,0.22758E-02_JPRB,0.20318E-02_JPRB,0.11868E-02_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.17357E-03_JPRB,0.13027E-02_JPRB,0.18337E-02_JPRB,0.21736E-02_JPRB,0.23752E-02_JPRB, &
+ & 0.24339E-02_JPRB,0.23549E-02_JPRB,0.21104E-02_JPRB,0.12492E-02_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.19045E-03_JPRB,0.13651E-02_JPRB,0.19071E-02_JPRB,0.22520E-02_JPRB,0.24479E-02_JPRB, &
+ & 0.25052E-02_JPRB,0.24255E-02_JPRB,0.21862E-02_JPRB,0.13114E-02_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.20459E-03_JPRB,0.14225E-02_JPRB,0.19702E-02_JPRB,0.23195E-02_JPRB,0.25109E-02_JPRB, &
+ & 0.25680E-02_JPRB,0.24906E-02_JPRB,0.22592E-02_JPRB,0.13717E-02_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.21621E-03_JPRB,0.14751E-02_JPRB,0.20267E-02_JPRB,0.23775E-02_JPRB,0.25654E-02_JPRB, &
+ & 0.26221E-02_JPRB,0.25513E-02_JPRB,0.23283E-02_JPRB,0.14321E-02_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.14551E-01_JPRB,0.26282E-01_JPRB,0.32053E-01_JPRB,0.35189E-01_JPRB,0.36600E-01_JPRB, &
+ & 0.36646E-01_JPRB,0.35552E-01_JPRB,0.33215E-01_JPRB,0.27309E-01_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.15360E-01_JPRB,0.26847E-01_JPRB,0.32411E-01_JPRB,0.35426E-01_JPRB,0.36803E-01_JPRB, &
+ & 0.36994E-01_JPRB,0.36037E-01_JPRB,0.33674E-01_JPRB,0.27881E-01_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.16052E-01_JPRB,0.27358E-01_JPRB,0.32711E-01_JPRB,0.35602E-01_JPRB,0.37002E-01_JPRB, &
+ & 0.37322E-01_JPRB,0.36495E-01_JPRB,0.34092E-01_JPRB,0.28365E-01_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.16634E-01_JPRB,0.27765E-01_JPRB,0.32975E-01_JPRB,0.35757E-01_JPRB,0.37198E-01_JPRB, &
+ & 0.37629E-01_JPRB,0.36871E-01_JPRB,0.34489E-01_JPRB,0.28817E-01_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.17092E-01_JPRB,0.28088E-01_JPRB,0.33173E-01_JPRB,0.35899E-01_JPRB,0.37369E-01_JPRB, &
+ & 0.37894E-01_JPRB,0.37206E-01_JPRB,0.34856E-01_JPRB,0.29236E-01_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.12675E-01_JPRB,0.23757E-01_JPRB,0.28827E-01_JPRB,0.31475E-01_JPRB,0.32647E-01_JPRB, &
+ & 0.32779E-01_JPRB,0.31874E-01_JPRB,0.29659E-01_JPRB,0.23735E-01_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.13363E-01_JPRB,0.24261E-01_JPRB,0.29165E-01_JPRB,0.31734E-01_JPRB,0.32905E-01_JPRB, &
+ & 0.33137E-01_JPRB,0.32357E-01_JPRB,0.30114E-01_JPRB,0.24241E-01_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.13952E-01_JPRB,0.24673E-01_JPRB,0.29458E-01_JPRB,0.31940E-01_JPRB,0.33167E-01_JPRB, &
+ & 0.33486E-01_JPRB,0.32794E-01_JPRB,0.30540E-01_JPRB,0.24704E-01_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.14440E-01_JPRB,0.25010E-01_JPRB,0.29692E-01_JPRB,0.32131E-01_JPRB,0.33402E-01_JPRB, &
+ & 0.33816E-01_JPRB,0.33185E-01_JPRB,0.30944E-01_JPRB,0.25123E-01_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.14810E-01_JPRB,0.25246E-01_JPRB,0.29865E-01_JPRB,0.32323E-01_JPRB,0.33624E-01_JPRB, &
+ & 0.34125E-01_JPRB,0.33530E-01_JPRB,0.31299E-01_JPRB,0.25501E-01_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.10764E-01_JPRB,0.21180E-01_JPRB,0.25645E-01_JPRB,0.27934E-01_JPRB,0.28891E-01_JPRB, &
+ & 0.28978E-01_JPRB,0.28215E-01_JPRB,0.26250E-01_JPRB,0.20340E-01_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.11371E-01_JPRB,0.21611E-01_JPRB,0.25976E-01_JPRB,0.28221E-01_JPRB,0.29204E-01_JPRB, &
+ & 0.29347E-01_JPRB,0.28689E-01_JPRB,0.26687E-01_JPRB,0.20803E-01_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.11882E-01_JPRB,0.21977E-01_JPRB,0.26258E-01_JPRB,0.28467E-01_JPRB,0.29498E-01_JPRB, &
+ & 0.29730E-01_JPRB,0.29113E-01_JPRB,0.27115E-01_JPRB,0.21241E-01_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.12302E-01_JPRB,0.22273E-01_JPRB,0.26477E-01_JPRB,0.28696E-01_JPRB,0.29766E-01_JPRB, &
+ & 0.30099E-01_JPRB,0.29507E-01_JPRB,0.27503E-01_JPRB,0.21620E-01_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.12624E-01_JPRB,0.22481E-01_JPRB,0.26631E-01_JPRB,0.28900E-01_JPRB,0.30032E-01_JPRB, &
+ & 0.30425E-01_JPRB,0.29859E-01_JPRB,0.27842E-01_JPRB,0.21966E-01_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.89860E-02_JPRB,0.18659E-01_JPRB,0.22605E-01_JPRB,0.24580E-01_JPRB,0.25383E-01_JPRB, &
+ & 0.25435E-01_JPRB,0.24761E-01_JPRB,0.23037E-01_JPRB,0.17414E-01_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.95207E-02_JPRB,0.19048E-01_JPRB,0.22924E-01_JPRB,0.24888E-01_JPRB,0.25739E-01_JPRB, &
+ & 0.25823E-01_JPRB,0.25200E-01_JPRB,0.23450E-01_JPRB,0.17847E-01_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.99723E-02_JPRB,0.19380E-01_JPRB,0.23182E-01_JPRB,0.25155E-01_JPRB,0.26061E-01_JPRB, &
+ & 0.26209E-01_JPRB,0.25611E-01_JPRB,0.23862E-01_JPRB,0.18251E-01_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.10354E-01_JPRB,0.19644E-01_JPRB,0.23397E-01_JPRB,0.25401E-01_JPRB,0.26345E-01_JPRB, &
+ & 0.26580E-01_JPRB,0.26000E-01_JPRB,0.24233E-01_JPRB,0.18600E-01_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.10637E-01_JPRB,0.19822E-01_JPRB,0.23556E-01_JPRB,0.25605E-01_JPRB,0.26619E-01_JPRB, &
+ & 0.26913E-01_JPRB,0.26359E-01_JPRB,0.24562E-01_JPRB,0.18925E-01_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.74104E-02_JPRB,0.16264E-01_JPRB,0.19717E-01_JPRB,0.21452E-01_JPRB,0.22172E-01_JPRB, &
+ & 0.22207E-01_JPRB,0.21598E-01_JPRB,0.20075E-01_JPRB,0.14880E-01_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.78778E-02_JPRB,0.16624E-01_JPRB,0.20022E-01_JPRB,0.21765E-01_JPRB,0.22531E-01_JPRB, &
+ & 0.22596E-01_JPRB,0.21999E-01_JPRB,0.20458E-01_JPRB,0.15279E-01_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.82694E-02_JPRB,0.16928E-01_JPRB,0.20277E-01_JPRB,0.22036E-01_JPRB,0.22859E-01_JPRB, &
+ & 0.22978E-01_JPRB,0.22384E-01_JPRB,0.20834E-01_JPRB,0.15650E-01_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.85919E-02_JPRB,0.17168E-01_JPRB,0.20498E-01_JPRB,0.22274E-01_JPRB,0.23143E-01_JPRB, &
+ & 0.23326E-01_JPRB,0.22754E-01_JPRB,0.21189E-01_JPRB,0.15980E-01_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.88337E-02_JPRB,0.17332E-01_JPRB,0.20664E-01_JPRB,0.22477E-01_JPRB,0.23407E-01_JPRB, &
+ & 0.23648E-01_JPRB,0.23111E-01_JPRB,0.21509E-01_JPRB,0.16283E-01_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.60305E-02_JPRB,0.14008E-01_JPRB,0.17028E-01_JPRB,0.18574E-01_JPRB,0.19236E-01_JPRB, &
+ & 0.19269E-01_JPRB,0.18720E-01_JPRB,0.17347E-01_JPRB,0.12656E-01_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.64356E-02_JPRB,0.14339E-01_JPRB,0.17318E-01_JPRB,0.18872E-01_JPRB,0.19580E-01_JPRB, &
+ & 0.19645E-01_JPRB,0.19095E-01_JPRB,0.17705E-01_JPRB,0.13025E-01_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.67708E-02_JPRB,0.14626E-01_JPRB,0.17575E-01_JPRB,0.19135E-01_JPRB,0.19883E-01_JPRB, &
+ & 0.20004E-01_JPRB,0.19454E-01_JPRB,0.18055E-01_JPRB,0.13366E-01_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.70449E-02_JPRB,0.14853E-01_JPRB,0.17795E-01_JPRB,0.19363E-01_JPRB,0.20156E-01_JPRB, &
+ & 0.20324E-01_JPRB,0.19811E-01_JPRB,0.18392E-01_JPRB,0.13679E-01_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.72586E-02_JPRB,0.15014E-01_JPRB,0.17954E-01_JPRB,0.19569E-01_JPRB,0.20401E-01_JPRB, &
+ & 0.20622E-01_JPRB,0.20155E-01_JPRB,0.18706E-01_JPRB,0.13963E-01_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.48615E-02_JPRB,0.11936E-01_JPRB,0.14574E-01_JPRB,0.15963E-01_JPRB,0.16578E-01_JPRB, &
+ & 0.16615E-01_JPRB,0.16125E-01_JPRB,0.14904E-01_JPRB,0.10718E-01_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.52093E-02_JPRB,0.12247E-01_JPRB,0.14845E-01_JPRB,0.16239E-01_JPRB,0.16890E-01_JPRB, &
+ & 0.16965E-01_JPRB,0.16477E-01_JPRB,0.15238E-01_JPRB,0.11050E-01_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.54981E-02_JPRB,0.12520E-01_JPRB,0.15089E-01_JPRB,0.16485E-01_JPRB,0.17163E-01_JPRB, &
+ & 0.17296E-01_JPRB,0.16823E-01_JPRB,0.15561E-01_JPRB,0.11367E-01_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.57341E-02_JPRB,0.12732E-01_JPRB,0.15302E-01_JPRB,0.16709E-01_JPRB,0.17412E-01_JPRB, &
+ & 0.17587E-01_JPRB,0.17156E-01_JPRB,0.15882E-01_JPRB,0.11657E-01_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.59245E-02_JPRB,0.12879E-01_JPRB,0.15460E-01_JPRB,0.16900E-01_JPRB,0.17646E-01_JPRB, &
+ & 0.17862E-01_JPRB,0.17475E-01_JPRB,0.16189E-01_JPRB,0.11924E-01_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.38903E-02_JPRB,0.10086E-01_JPRB,0.12393E-01_JPRB,0.13617E-01_JPRB,0.14179E-01_JPRB, &
+ & 0.14230E-01_JPRB,0.13810E-01_JPRB,0.12741E-01_JPRB,0.90402E-02_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.41883E-02_JPRB,0.10379E-01_JPRB,0.12642E-01_JPRB,0.13866E-01_JPRB,0.14454E-01_JPRB, &
+ & 0.14549E-01_JPRB,0.14140E-01_JPRB,0.13050E-01_JPRB,0.93407E-02_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.44374E-02_JPRB,0.10628E-01_JPRB,0.12866E-01_JPRB,0.14093E-01_JPRB,0.14702E-01_JPRB, &
+ & 0.14847E-01_JPRB,0.14466E-01_JPRB,0.13354E-01_JPRB,0.96289E-02_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.46417E-02_JPRB,0.10823E-01_JPRB,0.13067E-01_JPRB,0.14297E-01_JPRB,0.14936E-01_JPRB, &
+ & 0.15113E-01_JPRB,0.14777E-01_JPRB,0.13659E-01_JPRB,0.98946E-02_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.48106E-02_JPRB,0.10958E-01_JPRB,0.13212E-01_JPRB,0.14477E-01_JPRB,0.15155E-01_JPRB, &
+ & 0.15369E-01_JPRB,0.15065E-01_JPRB,0.13954E-01_JPRB,0.10137E-01_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.30906E-02_JPRB,0.84716E-02_JPRB,0.10475E-01_JPRB,0.11533E-01_JPRB,0.12037E-01_JPRB, &
+ & 0.12102E-01_JPRB,0.11757E-01_JPRB,0.10840E-01_JPRB,0.75790E-02_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.33456E-02_JPRB,0.87380E-02_JPRB,0.10698E-01_JPRB,0.11759E-01_JPRB,0.12281E-01_JPRB, &
+ & 0.12384E-01_JPRB,0.12063E-01_JPRB,0.11124E-01_JPRB,0.78524E-02_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.35624E-02_JPRB,0.89636E-02_JPRB,0.10908E-01_JPRB,0.11964E-01_JPRB,0.12503E-01_JPRB, &
+ & 0.12651E-01_JPRB,0.12366E-01_JPRB,0.11413E-01_JPRB,0.81116E-02_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.37409E-02_JPRB,0.91394E-02_JPRB,0.11085E-01_JPRB,0.12156E-01_JPRB,0.12717E-01_JPRB, &
+ & 0.12895E-01_JPRB,0.12646E-01_JPRB,0.11703E-01_JPRB,0.83543E-02_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.38899E-02_JPRB,0.92663E-02_JPRB,0.11210E-01_JPRB,0.12323E-01_JPRB,0.12923E-01_JPRB, &
+ & 0.13135E-01_JPRB,0.12909E-01_JPRB,0.11979E-01_JPRB,0.85748E-02_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.24588E-02_JPRB,0.70997E-02_JPRB,0.88156E-02_JPRB,0.97280E-02_JPRB,0.10175E-01_JPRB, &
+ & 0.10246E-01_JPRB,0.99712E-02_JPRB,0.91951E-02_JPRB,0.63324E-02_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.26743E-02_JPRB,0.73393E-02_JPRB,0.90183E-02_JPRB,0.99289E-02_JPRB,0.10387E-01_JPRB, &
+ & 0.10496E-01_JPRB,0.10249E-01_JPRB,0.94566E-02_JPRB,0.65770E-02_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.28610E-02_JPRB,0.75352E-02_JPRB,0.92028E-02_JPRB,0.10117E-01_JPRB,0.10586E-01_JPRB, &
+ & 0.10730E-01_JPRB,0.10524E-01_JPRB,0.97307E-02_JPRB,0.68077E-02_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.30147E-02_JPRB,0.76899E-02_JPRB,0.93550E-02_JPRB,0.10291E-01_JPRB,0.10781E-01_JPRB, &
+ & 0.10954E-01_JPRB,0.10778E-01_JPRB,0.10001E-01_JPRB,0.70201E-02_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.31444E-02_JPRB,0.78050E-02_JPRB,0.94668E-02_JPRB,0.10433E-01_JPRB,0.10974E-01_JPRB, &
+ & 0.11173E-01_JPRB,0.11019E-01_JPRB,0.10253E-01_JPRB,0.72189E-02_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.20345E-02_JPRB,0.60249E-02_JPRB,0.74716E-02_JPRB,0.82496E-02_JPRB,0.86458E-02_JPRB, &
+ & 0.87340E-02_JPRB,0.85222E-02_JPRB,0.78657E-02_JPRB,0.53714E-02_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.22071E-02_JPRB,0.62176E-02_JPRB,0.76440E-02_JPRB,0.84251E-02_JPRB,0.88273E-02_JPRB, &
+ & 0.89461E-02_JPRB,0.87689E-02_JPRB,0.81125E-02_JPRB,0.55835E-02_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.23554E-02_JPRB,0.63729E-02_JPRB,0.77932E-02_JPRB,0.85868E-02_JPRB,0.90058E-02_JPRB, &
+ & 0.91548E-02_JPRB,0.90075E-02_JPRB,0.83660E-02_JPRB,0.57827E-02_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.24780E-02_JPRB,0.64944E-02_JPRB,0.79106E-02_JPRB,0.87291E-02_JPRB,0.91857E-02_JPRB, &
+ & 0.93565E-02_JPRB,0.92302E-02_JPRB,0.86036E-02_JPRB,0.59695E-02_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.25820E-02_JPRB,0.65802E-02_JPRB,0.79974E-02_JPRB,0.88427E-02_JPRB,0.93482E-02_JPRB, &
+ & 0.95539E-02_JPRB,0.94443E-02_JPRB,0.88180E-02_JPRB,0.61512E-02_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.16789E-02_JPRB,0.50906E-02_JPRB,0.63078E-02_JPRB,0.69750E-02_JPRB,0.73172E-02_JPRB, &
+ & 0.74078E-02_JPRB,0.72504E-02_JPRB,0.67015E-02_JPRB,0.45394E-02_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.18170E-02_JPRB,0.52437E-02_JPRB,0.64512E-02_JPRB,0.71255E-02_JPRB,0.74790E-02_JPRB, &
+ & 0.75959E-02_JPRB,0.74655E-02_JPRB,0.69307E-02_JPRB,0.47237E-02_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.19356E-02_JPRB,0.53689E-02_JPRB,0.65701E-02_JPRB,0.72610E-02_JPRB,0.76415E-02_JPRB, &
+ & 0.77811E-02_JPRB,0.76703E-02_JPRB,0.71508E-02_JPRB,0.48953E-02_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.20342E-02_JPRB,0.54644E-02_JPRB,0.66640E-02_JPRB,0.73792E-02_JPRB,0.77929E-02_JPRB, &
+ & 0.79635E-02_JPRB,0.78660E-02_JPRB,0.73532E-02_JPRB,0.50607E-02_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.21182E-02_JPRB,0.55328E-02_JPRB,0.67352E-02_JPRB,0.74736E-02_JPRB,0.79282E-02_JPRB, &
+ & 0.81307E-02_JPRB,0.80542E-02_JPRB,0.75407E-02_JPRB,0.52234E-02_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.13819E-02_JPRB,0.42823E-02_JPRB,0.53096E-02_JPRB,0.58771E-02_JPRB,0.61745E-02_JPRB, &
+ & 0.62601E-02_JPRB,0.61411E-02_JPRB,0.56893E-02_JPRB,0.38201E-02_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.14927E-02_JPRB,0.44078E-02_JPRB,0.54261E-02_JPRB,0.60055E-02_JPRB,0.63167E-02_JPRB, &
+ & 0.64278E-02_JPRB,0.63268E-02_JPRB,0.58891E-02_JPRB,0.39789E-02_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.15884E-02_JPRB,0.45090E-02_JPRB,0.55246E-02_JPRB,0.61217E-02_JPRB,0.64577E-02_JPRB, &
+ & 0.65903E-02_JPRB,0.65044E-02_JPRB,0.60758E-02_JPRB,0.41288E-02_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.16683E-02_JPRB,0.45858E-02_JPRB,0.56029E-02_JPRB,0.62193E-02_JPRB,0.65859E-02_JPRB, &
+ & 0.67454E-02_JPRB,0.66768E-02_JPRB,0.62506E-02_JPRB,0.42765E-02_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.17364E-02_JPRB,0.46419E-02_JPRB,0.56644E-02_JPRB,0.62996E-02_JPRB,0.66998E-02_JPRB, &
+ & 0.68888E-02_JPRB,0.68404E-02_JPRB,0.64188E-02_JPRB,0.44198E-02_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.57760E-01_JPRB,0.69432E-01_JPRB,0.76402E-01_JPRB,0.81517E-01_JPRB,0.85125E-01_JPRB, &
+ & 0.87289E-01_JPRB,0.87408E-01_JPRB,0.83317E-01_JPRB,0.74720E-01_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.58256E-01_JPRB,0.69667E-01_JPRB,0.76723E-01_JPRB,0.81911E-01_JPRB,0.85362E-01_JPRB, &
+ & 0.87289E-01_JPRB,0.87306E-01_JPRB,0.83357E-01_JPRB,0.75177E-01_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.58710E-01_JPRB,0.69859E-01_JPRB,0.76973E-01_JPRB,0.82328E-01_JPRB,0.85690E-01_JPRB, &
+ & 0.87420E-01_JPRB,0.87264E-01_JPRB,0.83435E-01_JPRB,0.75701E-01_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.59052E-01_JPRB,0.70050E-01_JPRB,0.77176E-01_JPRB,0.82642E-01_JPRB,0.86071E-01_JPRB, &
+ & 0.87660E-01_JPRB,0.87341E-01_JPRB,0.83544E-01_JPRB,0.76230E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.59298E-01_JPRB,0.70198E-01_JPRB,0.77374E-01_JPRB,0.82883E-01_JPRB,0.86469E-01_JPRB, &
+ & 0.87977E-01_JPRB,0.87473E-01_JPRB,0.83691E-01_JPRB,0.76769E-01_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.50908E-01_JPRB,0.62848E-01_JPRB,0.70003E-01_JPRB,0.75263E-01_JPRB,0.78670E-01_JPRB, &
+ & 0.80594E-01_JPRB,0.80694E-01_JPRB,0.77048E-01_JPRB,0.67048E-01_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.51469E-01_JPRB,0.63178E-01_JPRB,0.70395E-01_JPRB,0.75763E-01_JPRB,0.79033E-01_JPRB, &
+ & 0.80775E-01_JPRB,0.80686E-01_JPRB,0.77199E-01_JPRB,0.67605E-01_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.51956E-01_JPRB,0.63519E-01_JPRB,0.70748E-01_JPRB,0.76221E-01_JPRB,0.79512E-01_JPRB, &
+ & 0.81067E-01_JPRB,0.80797E-01_JPRB,0.77370E-01_JPRB,0.68182E-01_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.52329E-01_JPRB,0.63831E-01_JPRB,0.71115E-01_JPRB,0.76591E-01_JPRB,0.80032E-01_JPRB, &
+ & 0.81445E-01_JPRB,0.81001E-01_JPRB,0.77568E-01_JPRB,0.68768E-01_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.52648E-01_JPRB,0.64108E-01_JPRB,0.71441E-01_JPRB,0.76941E-01_JPRB,0.80464E-01_JPRB, &
+ & 0.81866E-01_JPRB,0.81282E-01_JPRB,0.77796E-01_JPRB,0.69377E-01_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.44636E-01_JPRB,0.56575E-01_JPRB,0.63667E-01_JPRB,0.68804E-01_JPRB,0.72146E-01_JPRB, &
+ & 0.73940E-01_JPRB,0.73756E-01_JPRB,0.70359E-01_JPRB,0.59446E-01_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.45216E-01_JPRB,0.57005E-01_JPRB,0.64111E-01_JPRB,0.69328E-01_JPRB,0.72620E-01_JPRB, &
+ & 0.74228E-01_JPRB,0.73854E-01_JPRB,0.70600E-01_JPRB,0.60086E-01_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.45716E-01_JPRB,0.57448E-01_JPRB,0.64591E-01_JPRB,0.69816E-01_JPRB,0.73178E-01_JPRB, &
+ & 0.74616E-01_JPRB,0.74093E-01_JPRB,0.70843E-01_JPRB,0.60738E-01_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.46137E-01_JPRB,0.57862E-01_JPRB,0.65060E-01_JPRB,0.70283E-01_JPRB,0.73724E-01_JPRB, &
+ & 0.75067E-01_JPRB,0.74408E-01_JPRB,0.71130E-01_JPRB,0.61385E-01_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.46490E-01_JPRB,0.58240E-01_JPRB,0.65537E-01_JPRB,0.70752E-01_JPRB,0.74187E-01_JPRB, &
+ & 0.75545E-01_JPRB,0.74817E-01_JPRB,0.71479E-01_JPRB,0.61998E-01_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.38910E-01_JPRB,0.50823E-01_JPRB,0.57505E-01_JPRB,0.62364E-01_JPRB,0.65559E-01_JPRB, &
+ & 0.67154E-01_JPRB,0.66798E-01_JPRB,0.63531E-01_JPRB,0.52401E-01_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.39488E-01_JPRB,0.51307E-01_JPRB,0.58022E-01_JPRB,0.62912E-01_JPRB,0.66074E-01_JPRB, &
+ & 0.67518E-01_JPRB,0.67025E-01_JPRB,0.63840E-01_JPRB,0.53093E-01_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.39991E-01_JPRB,0.51812E-01_JPRB,0.58566E-01_JPRB,0.63451E-01_JPRB,0.66632E-01_JPRB, &
+ & 0.68010E-01_JPRB,0.67348E-01_JPRB,0.64169E-01_JPRB,0.53782E-01_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.40387E-01_JPRB,0.52291E-01_JPRB,0.59117E-01_JPRB,0.64001E-01_JPRB,0.67196E-01_JPRB, &
+ & 0.68514E-01_JPRB,0.67789E-01_JPRB,0.64555E-01_JPRB,0.54470E-01_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.40719E-01_JPRB,0.52739E-01_JPRB,0.59691E-01_JPRB,0.64572E-01_JPRB,0.67725E-01_JPRB, &
+ & 0.69031E-01_JPRB,0.68307E-01_JPRB,0.64985E-01_JPRB,0.55091E-01_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.33692E-01_JPRB,0.45459E-01_JPRB,0.51705E-01_JPRB,0.56111E-01_JPRB,0.58984E-01_JPRB, &
+ & 0.60384E-01_JPRB,0.59951E-01_JPRB,0.56770E-01_JPRB,0.45939E-01_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.34254E-01_JPRB,0.45979E-01_JPRB,0.52252E-01_JPRB,0.56664E-01_JPRB,0.59515E-01_JPRB, &
+ & 0.60816E-01_JPRB,0.60273E-01_JPRB,0.57146E-01_JPRB,0.46647E-01_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.34738E-01_JPRB,0.46532E-01_JPRB,0.52846E-01_JPRB,0.57238E-01_JPRB,0.60077E-01_JPRB, &
+ & 0.61352E-01_JPRB,0.60714E-01_JPRB,0.57566E-01_JPRB,0.47359E-01_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.35117E-01_JPRB,0.47047E-01_JPRB,0.53459E-01_JPRB,0.57849E-01_JPRB,0.60668E-01_JPRB, &
+ & 0.61902E-01_JPRB,0.61259E-01_JPRB,0.58030E-01_JPRB,0.48036E-01_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.35428E-01_JPRB,0.47508E-01_JPRB,0.54083E-01_JPRB,0.58493E-01_JPRB,0.61253E-01_JPRB, &
+ & 0.62481E-01_JPRB,0.61851E-01_JPRB,0.58523E-01_JPRB,0.48648E-01_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.28910E-01_JPRB,0.40429E-01_JPRB,0.46176E-01_JPRB,0.50108E-01_JPRB,0.52609E-01_JPRB, &
+ & 0.53750E-01_JPRB,0.53289E-01_JPRB,0.50286E-01_JPRB,0.40061E-01_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.29433E-01_JPRB,0.40967E-01_JPRB,0.46731E-01_JPRB,0.50653E-01_JPRB,0.53149E-01_JPRB, &
+ & 0.54232E-01_JPRB,0.53687E-01_JPRB,0.50714E-01_JPRB,0.40756E-01_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.29883E-01_JPRB,0.41520E-01_JPRB,0.47349E-01_JPRB,0.51251E-01_JPRB,0.53731E-01_JPRB, &
+ & 0.54796E-01_JPRB,0.54207E-01_JPRB,0.51188E-01_JPRB,0.41443E-01_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.30252E-01_JPRB,0.42024E-01_JPRB,0.47998E-01_JPRB,0.51918E-01_JPRB,0.54339E-01_JPRB, &
+ & 0.55387E-01_JPRB,0.54820E-01_JPRB,0.51711E-01_JPRB,0.42085E-01_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.30542E-01_JPRB,0.42447E-01_JPRB,0.48635E-01_JPRB,0.52598E-01_JPRB,0.54986E-01_JPRB, &
+ & 0.56038E-01_JPRB,0.55430E-01_JPRB,0.52236E-01_JPRB,0.42675E-01_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.24600E-01_JPRB,0.35725E-01_JPRB,0.40952E-01_JPRB,0.44398E-01_JPRB,0.46558E-01_JPRB, &
+ & 0.47462E-01_JPRB,0.46950E-01_JPRB,0.44227E-01_JPRB,0.34751E-01_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.25060E-01_JPRB,0.36250E-01_JPRB,0.41498E-01_JPRB,0.44950E-01_JPRB,0.47097E-01_JPRB, &
+ & 0.47977E-01_JPRB,0.47399E-01_JPRB,0.44690E-01_JPRB,0.35410E-01_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.25466E-01_JPRB,0.36769E-01_JPRB,0.42119E-01_JPRB,0.45572E-01_JPRB,0.47696E-01_JPRB, &
+ & 0.48548E-01_JPRB,0.47965E-01_JPRB,0.45198E-01_JPRB,0.36050E-01_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.25804E-01_JPRB,0.37232E-01_JPRB,0.42764E-01_JPRB,0.46249E-01_JPRB,0.48349E-01_JPRB, &
+ & 0.49173E-01_JPRB,0.48603E-01_JPRB,0.45737E-01_JPRB,0.36649E-01_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.26075E-01_JPRB,0.37645E-01_JPRB,0.43371E-01_JPRB,0.46950E-01_JPRB,0.49045E-01_JPRB, &
+ & 0.49856E-01_JPRB,0.49223E-01_JPRB,0.46279E-01_JPRB,0.37198E-01_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.20747E-01_JPRB,0.31325E-01_JPRB,0.36016E-01_JPRB,0.39047E-01_JPRB,0.40921E-01_JPRB, &
+ & 0.41656E-01_JPRB,0.41097E-01_JPRB,0.38682E-01_JPRB,0.29955E-01_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.21145E-01_JPRB,0.31811E-01_JPRB,0.36541E-01_JPRB,0.39597E-01_JPRB,0.41455E-01_JPRB, &
+ & 0.42169E-01_JPRB,0.41575E-01_JPRB,0.39145E-01_JPRB,0.30577E-01_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.21497E-01_JPRB,0.32290E-01_JPRB,0.37155E-01_JPRB,0.40238E-01_JPRB,0.42067E-01_JPRB, &
+ & 0.42744E-01_JPRB,0.42154E-01_JPRB,0.39648E-01_JPRB,0.31178E-01_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.21796E-01_JPRB,0.32717E-01_JPRB,0.37766E-01_JPRB,0.40923E-01_JPRB,0.42738E-01_JPRB, &
+ & 0.43394E-01_JPRB,0.42768E-01_JPRB,0.40185E-01_JPRB,0.31733E-01_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.22044E-01_JPRB,0.33112E-01_JPRB,0.38338E-01_JPRB,0.41597E-01_JPRB,0.43462E-01_JPRB, &
+ & 0.44087E-01_JPRB,0.43385E-01_JPRB,0.40740E-01_JPRB,0.32254E-01_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.17360E-01_JPRB,0.27218E-01_JPRB,0.31401E-01_JPRB,0.34084E-01_JPRB,0.35741E-01_JPRB, &
+ & 0.36373E-01_JPRB,0.35798E-01_JPRB,0.33594E-01_JPRB,0.25664E-01_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.17693E-01_JPRB,0.27662E-01_JPRB,0.31908E-01_JPRB,0.34622E-01_JPRB,0.36264E-01_JPRB, &
+ & 0.36877E-01_JPRB,0.36285E-01_JPRB,0.34049E-01_JPRB,0.26251E-01_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.17992E-01_JPRB,0.28089E-01_JPRB,0.32477E-01_JPRB,0.35255E-01_JPRB,0.36874E-01_JPRB, &
+ & 0.37444E-01_JPRB,0.36831E-01_JPRB,0.34544E-01_JPRB,0.26814E-01_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.18258E-01_JPRB,0.28481E-01_JPRB,0.33050E-01_JPRB,0.35909E-01_JPRB,0.37552E-01_JPRB, &
+ & 0.38078E-01_JPRB,0.37421E-01_JPRB,0.35073E-01_JPRB,0.27335E-01_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.18484E-01_JPRB,0.28849E-01_JPRB,0.33601E-01_JPRB,0.36536E-01_JPRB,0.38254E-01_JPRB, &
+ & 0.38756E-01_JPRB,0.38026E-01_JPRB,0.35616E-01_JPRB,0.27829E-01_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.14462E-01_JPRB,0.23463E-01_JPRB,0.27186E-01_JPRB,0.29588E-01_JPRB,0.31079E-01_JPRB, &
+ & 0.31625E-01_JPRB,0.31053E-01_JPRB,0.29012E-01_JPRB,0.21916E-01_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.14737E-01_JPRB,0.23853E-01_JPRB,0.27662E-01_JPRB,0.30109E-01_JPRB,0.31581E-01_JPRB, &
+ & 0.32116E-01_JPRB,0.31527E-01_JPRB,0.29461E-01_JPRB,0.22460E-01_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.14983E-01_JPRB,0.24238E-01_JPRB,0.28187E-01_JPRB,0.30710E-01_JPRB,0.32176E-01_JPRB, &
+ & 0.32664E-01_JPRB,0.32044E-01_JPRB,0.29948E-01_JPRB,0.22987E-01_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.15228E-01_JPRB,0.24593E-01_JPRB,0.28718E-01_JPRB,0.31312E-01_JPRB,0.32826E-01_JPRB, &
+ & 0.33282E-01_JPRB,0.32615E-01_JPRB,0.30467E-01_JPRB,0.23478E-01_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.15411E-01_JPRB,0.24932E-01_JPRB,0.29228E-01_JPRB,0.31903E-01_JPRB,0.33455E-01_JPRB, &
+ & 0.33943E-01_JPRB,0.33207E-01_JPRB,0.30994E-01_JPRB,0.23939E-01_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.12097E-01_JPRB,0.20230E-01_JPRB,0.23554E-01_JPRB,0.25737E-01_JPRB,0.27070E-01_JPRB, &
+ & 0.27526E-01_JPRB,0.26987E-01_JPRB,0.25125E-01_JPRB,0.18843E-01_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.12316E-01_JPRB,0.20564E-01_JPRB,0.24014E-01_JPRB,0.26265E-01_JPRB,0.27589E-01_JPRB, &
+ & 0.28021E-01_JPRB,0.27462E-01_JPRB,0.25580E-01_JPRB,0.19341E-01_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.12525E-01_JPRB,0.20893E-01_JPRB,0.24494E-01_JPRB,0.26817E-01_JPRB,0.28172E-01_JPRB, &
+ & 0.28578E-01_JPRB,0.27985E-01_JPRB,0.26073E-01_JPRB,0.19811E-01_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.12698E-01_JPRB,0.21212E-01_JPRB,0.24971E-01_JPRB,0.27358E-01_JPRB,0.28752E-01_JPRB, &
+ & 0.29196E-01_JPRB,0.28554E-01_JPRB,0.26575E-01_JPRB,0.20254E-01_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.12813E-01_JPRB,0.21527E-01_JPRB,0.25428E-01_JPRB,0.27886E-01_JPRB,0.29316E-01_JPRB, &
+ & 0.29794E-01_JPRB,0.29144E-01_JPRB,0.27095E-01_JPRB,0.20669E-01_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.10079E-01_JPRB,0.17332E-01_JPRB,0.20326E-01_JPRB,0.22283E-01_JPRB,0.23452E-01_JPRB, &
+ & 0.23840E-01_JPRB,0.23351E-01_JPRB,0.21701E-01_JPRB,0.16150E-01_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.10253E-01_JPRB,0.17624E-01_JPRB,0.20738E-01_JPRB,0.22772E-01_JPRB,0.23963E-01_JPRB, &
+ & 0.24343E-01_JPRB,0.23830E-01_JPRB,0.22159E-01_JPRB,0.16605E-01_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.10412E-01_JPRB,0.17914E-01_JPRB,0.21165E-01_JPRB,0.23257E-01_JPRB,0.24491E-01_JPRB, &
+ & 0.24907E-01_JPRB,0.24364E-01_JPRB,0.22633E-01_JPRB,0.17031E-01_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.10528E-01_JPRB,0.18203E-01_JPRB,0.21585E-01_JPRB,0.23732E-01_JPRB,0.25019E-01_JPRB, &
+ & 0.25466E-01_JPRB,0.24925E-01_JPRB,0.23123E-01_JPRB,0.17440E-01_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.10595E-01_JPRB,0.18491E-01_JPRB,0.21987E-01_JPRB,0.24205E-01_JPRB,0.25526E-01_JPRB, &
+ & 0.26013E-01_JPRB,0.25497E-01_JPRB,0.23633E-01_JPRB,0.17825E-01_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.83675E-02_JPRB,0.14778E-01_JPRB,0.17455E-01_JPRB,0.19201E-01_JPRB,0.20214E-01_JPRB, &
+ & 0.20545E-01_JPRB,0.20133E-01_JPRB,0.18703E-01_JPRB,0.13810E-01_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.85037E-02_JPRB,0.15033E-01_JPRB,0.17824E-01_JPRB,0.19621E-01_JPRB,0.20684E-01_JPRB, &
+ & 0.21052E-01_JPRB,0.20616E-01_JPRB,0.19145E-01_JPRB,0.14218E-01_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.86129E-02_JPRB,0.15303E-01_JPRB,0.18197E-01_JPRB,0.20043E-01_JPRB,0.21163E-01_JPRB, &
+ & 0.21577E-01_JPRB,0.21143E-01_JPRB,0.19600E-01_JPRB,0.14617E-01_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.86912E-02_JPRB,0.15568E-01_JPRB,0.18565E-01_JPRB,0.20472E-01_JPRB,0.21636E-01_JPRB, &
+ & 0.22091E-01_JPRB,0.21674E-01_JPRB,0.20090E-01_JPRB,0.14991E-01_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.87302E-02_JPRB,0.15800E-01_JPRB,0.18917E-01_JPRB,0.20887E-01_JPRB,0.22103E-01_JPRB, &
+ & 0.22594E-01_JPRB,0.22198E-01_JPRB,0.20586E-01_JPRB,0.15351E-01_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.23898E+00_JPRB,0.24353E+00_JPRB,0.26297E+00_JPRB,0.27410E+00_JPRB,0.27635E+00_JPRB, &
+ & 0.27151E+00_JPRB,0.26001E+00_JPRB,0.24536E+00_JPRB,0.24840E+00_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.23703E+00_JPRB,0.24151E+00_JPRB,0.26057E+00_JPRB,0.27148E+00_JPRB,0.27415E+00_JPRB, &
+ & 0.26993E+00_JPRB,0.25912E+00_JPRB,0.24520E+00_JPRB,0.24830E+00_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.23567E+00_JPRB,0.23998E+00_JPRB,0.25868E+00_JPRB,0.26917E+00_JPRB,0.27195E+00_JPRB, &
+ & 0.26833E+00_JPRB,0.25809E+00_JPRB,0.24488E+00_JPRB,0.24801E+00_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.23478E+00_JPRB,0.23885E+00_JPRB,0.25713E+00_JPRB,0.26729E+00_JPRB,0.26990E+00_JPRB, &
+ & 0.26662E+00_JPRB,0.25696E+00_JPRB,0.24453E+00_JPRB,0.24772E+00_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.23430E+00_JPRB,0.23810E+00_JPRB,0.25588E+00_JPRB,0.26568E+00_JPRB,0.26809E+00_JPRB, &
+ & 0.26490E+00_JPRB,0.25575E+00_JPRB,0.24412E+00_JPRB,0.24745E+00_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.22071E+00_JPRB,0.23189E+00_JPRB,0.25280E+00_JPRB,0.26428E+00_JPRB,0.26846E+00_JPRB, &
+ & 0.26544E+00_JPRB,0.25423E+00_JPRB,0.23818E+00_JPRB,0.23526E+00_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.21924E+00_JPRB,0.23025E+00_JPRB,0.25076E+00_JPRB,0.26194E+00_JPRB,0.26631E+00_JPRB, &
+ & 0.26393E+00_JPRB,0.25356E+00_JPRB,0.23803E+00_JPRB,0.23534E+00_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.21843E+00_JPRB,0.22915E+00_JPRB,0.24919E+00_JPRB,0.26005E+00_JPRB,0.26425E+00_JPRB, &
+ & 0.26237E+00_JPRB,0.25262E+00_JPRB,0.23788E+00_JPRB,0.23535E+00_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.21819E+00_JPRB,0.22852E+00_JPRB,0.24801E+00_JPRB,0.25855E+00_JPRB,0.26247E+00_JPRB, &
+ & 0.26079E+00_JPRB,0.25163E+00_JPRB,0.23767E+00_JPRB,0.23532E+00_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.21836E+00_JPRB,0.22826E+00_JPRB,0.24718E+00_JPRB,0.25726E+00_JPRB,0.26101E+00_JPRB, &
+ & 0.25924E+00_JPRB,0.25059E+00_JPRB,0.23733E+00_JPRB,0.23520E+00_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.20172E+00_JPRB,0.21909E+00_JPRB,0.24049E+00_JPRB,0.25259E+00_JPRB,0.25809E+00_JPRB, &
+ & 0.25661E+00_JPRB,0.24776E+00_JPRB,0.23048E+00_JPRB,0.22176E+00_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.20072E+00_JPRB,0.21779E+00_JPRB,0.23872E+00_JPRB,0.25058E+00_JPRB,0.25610E+00_JPRB, &
+ & 0.25527E+00_JPRB,0.24712E+00_JPRB,0.23055E+00_JPRB,0.22209E+00_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.20047E+00_JPRB,0.21708E+00_JPRB,0.23748E+00_JPRB,0.24902E+00_JPRB,0.25438E+00_JPRB, &
+ & 0.25391E+00_JPRB,0.24629E+00_JPRB,0.23063E+00_JPRB,0.22233E+00_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.20080E+00_JPRB,0.21687E+00_JPRB,0.23670E+00_JPRB,0.24777E+00_JPRB,0.25298E+00_JPRB, &
+ & 0.25252E+00_JPRB,0.24542E+00_JPRB,0.23053E+00_JPRB,0.22249E+00_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.20160E+00_JPRB,0.21710E+00_JPRB,0.23623E+00_JPRB,0.24683E+00_JPRB,0.25186E+00_JPRB, &
+ & 0.25126E+00_JPRB,0.24453E+00_JPRB,0.23018E+00_JPRB,0.22257E+00_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.18271E+00_JPRB,0.20499E+00_JPRB,0.22645E+00_JPRB,0.23921E+00_JPRB,0.24553E+00_JPRB, &
+ & 0.24573E+00_JPRB,0.23916E+00_JPRB,0.22190E+00_JPRB,0.20803E+00_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.18212E+00_JPRB,0.20407E+00_JPRB,0.22500E+00_JPRB,0.23755E+00_JPRB,0.24385E+00_JPRB, &
+ & 0.24460E+00_JPRB,0.23866E+00_JPRB,0.22223E+00_JPRB,0.20862E+00_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.18234E+00_JPRB,0.20374E+00_JPRB,0.22412E+00_JPRB,0.23625E+00_JPRB,0.24249E+00_JPRB, &
+ & 0.24341E+00_JPRB,0.23801E+00_JPRB,0.22245E+00_JPRB,0.20916E+00_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.18327E+00_JPRB,0.20396E+00_JPRB,0.22372E+00_JPRB,0.23535E+00_JPRB,0.24149E+00_JPRB, &
+ & 0.24231E+00_JPRB,0.23730E+00_JPRB,0.22248E+00_JPRB,0.20951E+00_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.18465E+00_JPRB,0.20466E+00_JPRB,0.22368E+00_JPRB,0.23479E+00_JPRB,0.24072E+00_JPRB, &
+ & 0.24142E+00_JPRB,0.23656E+00_JPRB,0.22226E+00_JPRB,0.20975E+00_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.16429E+00_JPRB,0.19018E+00_JPRB,0.21120E+00_JPRB,0.22440E+00_JPRB,0.23155E+00_JPRB, &
+ & 0.23328E+00_JPRB,0.22834E+00_JPRB,0.21231E+00_JPRB,0.19389E+00_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.16411E+00_JPRB,0.18954E+00_JPRB,0.21010E+00_JPRB,0.22306E+00_JPRB,0.23026E+00_JPRB, &
+ & 0.23235E+00_JPRB,0.22803E+00_JPRB,0.21280E+00_JPRB,0.19477E+00_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.16481E+00_JPRB,0.18955E+00_JPRB,0.20958E+00_JPRB,0.22215E+00_JPRB,0.22928E+00_JPRB, &
+ & 0.23142E+00_JPRB,0.22762E+00_JPRB,0.21318E+00_JPRB,0.19549E+00_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.16626E+00_JPRB,0.19018E+00_JPRB,0.20952E+00_JPRB,0.22166E+00_JPRB,0.22860E+00_JPRB, &
+ & 0.23069E+00_JPRB,0.22713E+00_JPRB,0.21333E+00_JPRB,0.19598E+00_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.16812E+00_JPRB,0.19134E+00_JPRB,0.20988E+00_JPRB,0.22152E+00_JPRB,0.22816E+00_JPRB, &
+ & 0.23013E+00_JPRB,0.22663E+00_JPRB,0.21325E+00_JPRB,0.19645E+00_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.14677E+00_JPRB,0.17503E+00_JPRB,0.19553E+00_JPRB,0.20871E+00_JPRB,0.21680E+00_JPRB, &
+ & 0.21948E+00_JPRB,0.21556E+00_JPRB,0.20158E+00_JPRB,0.17922E+00_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.14688E+00_JPRB,0.17460E+00_JPRB,0.19479E+00_JPRB,0.20777E+00_JPRB,0.21582E+00_JPRB, &
+ & 0.21883E+00_JPRB,0.21549E+00_JPRB,0.20223E+00_JPRB,0.18038E+00_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.14791E+00_JPRB,0.17490E+00_JPRB,0.19459E+00_JPRB,0.20727E+00_JPRB,0.21519E+00_JPRB, &
+ & 0.21822E+00_JPRB,0.21533E+00_JPRB,0.20278E+00_JPRB,0.18127E+00_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.14970E+00_JPRB,0.17592E+00_JPRB,0.19488E+00_JPRB,0.20713E+00_JPRB,0.21485E+00_JPRB, &
+ & 0.21785E+00_JPRB,0.21514E+00_JPRB,0.20305E+00_JPRB,0.18200E+00_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.15169E+00_JPRB,0.17756E+00_JPRB,0.19568E+00_JPRB,0.20736E+00_JPRB,0.21479E+00_JPRB, &
+ & 0.21766E+00_JPRB,0.21494E+00_JPRB,0.20315E+00_JPRB,0.18271E+00_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.13000E+00_JPRB,0.15987E+00_JPRB,0.17978E+00_JPRB,0.19301E+00_JPRB,0.20129E+00_JPRB, &
+ & 0.20436E+00_JPRB,0.20140E+00_JPRB,0.18919E+00_JPRB,0.16414E+00_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.13035E+00_JPRB,0.15964E+00_JPRB,0.17934E+00_JPRB,0.19244E+00_JPRB,0.20068E+00_JPRB, &
+ & 0.20402E+00_JPRB,0.20156E+00_JPRB,0.19006E+00_JPRB,0.16551E+00_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.13166E+00_JPRB,0.16021E+00_JPRB,0.17944E+00_JPRB,0.19225E+00_JPRB,0.20040E+00_JPRB, &
+ & 0.20381E+00_JPRB,0.20166E+00_JPRB,0.19078E+00_JPRB,0.16662E+00_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.13361E+00_JPRB,0.16157E+00_JPRB,0.18010E+00_JPRB,0.19248E+00_JPRB,0.20041E+00_JPRB, &
+ & 0.20379E+00_JPRB,0.20172E+00_JPRB,0.19125E+00_JPRB,0.16758E+00_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.13554E+00_JPRB,0.16344E+00_JPRB,0.18132E+00_JPRB,0.19308E+00_JPRB,0.20075E+00_JPRB, &
+ & 0.20397E+00_JPRB,0.20182E+00_JPRB,0.19159E+00_JPRB,0.16855E+00_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.11433E+00_JPRB,0.14488E+00_JPRB,0.16431E+00_JPRB,0.17738E+00_JPRB,0.18527E+00_JPRB, &
+ & 0.18841E+00_JPRB,0.18617E+00_JPRB,0.17535E+00_JPRB,0.14893E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.11487E+00_JPRB,0.14487E+00_JPRB,0.16414E+00_JPRB,0.17713E+00_JPRB,0.18501E+00_JPRB, &
+ & 0.18837E+00_JPRB,0.18658E+00_JPRB,0.17646E+00_JPRB,0.15049E+00_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.11635E+00_JPRB,0.14571E+00_JPRB,0.16452E+00_JPRB,0.17724E+00_JPRB,0.18506E+00_JPRB, &
+ & 0.18853E+00_JPRB,0.18695E+00_JPRB,0.17741E+00_JPRB,0.15180E+00_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.11822E+00_JPRB,0.14733E+00_JPRB,0.16549E+00_JPRB,0.17782E+00_JPRB,0.18544E+00_JPRB, &
+ & 0.18888E+00_JPRB,0.18734E+00_JPRB,0.17811E+00_JPRB,0.15295E+00_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.12009E+00_JPRB,0.14924E+00_JPRB,0.16704E+00_JPRB,0.17887E+00_JPRB,0.18614E+00_JPRB, &
+ & 0.18940E+00_JPRB,0.18775E+00_JPRB,0.17867E+00_JPRB,0.15411E+00_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.10002E+00_JPRB,0.13043E+00_JPRB,0.14919E+00_JPRB,0.16171E+00_JPRB,0.16913E+00_JPRB, &
+ & 0.17211E+00_JPRB,0.17023E+00_JPRB,0.16067E+00_JPRB,0.13380E+00_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.10070E+00_JPRB,0.13063E+00_JPRB,0.14927E+00_JPRB,0.16171E+00_JPRB,0.16923E+00_JPRB, &
+ & 0.17237E+00_JPRB,0.17091E+00_JPRB,0.16202E+00_JPRB,0.13552E+00_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.10219E+00_JPRB,0.13166E+00_JPRB,0.14990E+00_JPRB,0.16210E+00_JPRB,0.16959E+00_JPRB, &
+ & 0.17285E+00_JPRB,0.17161E+00_JPRB,0.16316E+00_JPRB,0.13700E+00_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.10390E+00_JPRB,0.13341E+00_JPRB,0.15118E+00_JPRB,0.16299E+00_JPRB,0.17031E+00_JPRB, &
+ & 0.17358E+00_JPRB,0.17229E+00_JPRB,0.16405E+00_JPRB,0.13837E+00_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.10569E+00_JPRB,0.13530E+00_JPRB,0.15298E+00_JPRB,0.16444E+00_JPRB,0.17139E+00_JPRB, &
+ & 0.17443E+00_JPRB,0.17301E+00_JPRB,0.16481E+00_JPRB,0.13976E+00_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.87148E-01_JPRB,0.11690E+00_JPRB,0.13450E+00_JPRB,0.14609E+00_JPRB,0.15307E+00_JPRB, &
+ & 0.15588E+00_JPRB,0.15420E+00_JPRB,0.14572E+00_JPRB,0.11917E+00_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.87948E-01_JPRB,0.11730E+00_JPRB,0.13485E+00_JPRB,0.14637E+00_JPRB,0.15348E+00_JPRB, &
+ & 0.15645E+00_JPRB,0.15513E+00_JPRB,0.14723E+00_JPRB,0.12103E+00_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.89341E-01_JPRB,0.11856E+00_JPRB,0.13575E+00_JPRB,0.14709E+00_JPRB,0.15418E+00_JPRB, &
+ & 0.15726E+00_JPRB,0.15609E+00_JPRB,0.14852E+00_JPRB,0.12266E+00_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.90912E-01_JPRB,0.12032E+00_JPRB,0.13733E+00_JPRB,0.14835E+00_JPRB,0.15527E+00_JPRB, &
+ & 0.15827E+00_JPRB,0.15702E+00_JPRB,0.14960E+00_JPRB,0.12424E+00_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.92651E-01_JPRB,0.12218E+00_JPRB,0.13930E+00_JPRB,0.15018E+00_JPRB,0.15676E+00_JPRB, &
+ & 0.15942E+00_JPRB,0.15802E+00_JPRB,0.15063E+00_JPRB,0.12583E+00_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.75810E-01_JPRB,0.10456E+00_JPRB,0.12069E+00_JPRB,0.13117E+00_JPRB,0.13761E+00_JPRB, &
+ & 0.14039E+00_JPRB,0.13895E+00_JPRB,0.13157E+00_JPRB,0.10610E+00_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.76895E-01_JPRB,0.10557E+00_JPRB,0.12151E+00_JPRB,0.13190E+00_JPRB,0.13842E+00_JPRB, &
+ & 0.14134E+00_JPRB,0.14014E+00_JPRB,0.13312E+00_JPRB,0.10796E+00_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.78244E-01_JPRB,0.10718E+00_JPRB,0.12298E+00_JPRB,0.13318E+00_JPRB,0.13962E+00_JPRB, &
+ & 0.14250E+00_JPRB,0.14130E+00_JPRB,0.13446E+00_JPRB,0.10971E+00_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.79823E-01_JPRB,0.10896E+00_JPRB,0.12491E+00_JPRB,0.13508E+00_JPRB,0.14123E+00_JPRB, &
+ & 0.14382E+00_JPRB,0.14250E+00_JPRB,0.13575E+00_JPRB,0.11145E+00_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.81587E-01_JPRB,0.11081E+00_JPRB,0.12696E+00_JPRB,0.13729E+00_JPRB,0.14323E+00_JPRB, &
+ & 0.14541E+00_JPRB,0.14385E+00_JPRB,0.13708E+00_JPRB,0.11322E+00_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.65751E-01_JPRB,0.93358E-01_JPRB,0.10793E+00_JPRB,0.11727E+00_JPRB,0.12307E+00_JPRB, &
+ & 0.12565E+00_JPRB,0.12447E+00_JPRB,0.11782E+00_JPRB,0.93944E-01_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.66851E-01_JPRB,0.94791E-01_JPRB,0.10927E+00_JPRB,0.11849E+00_JPRB,0.12430E+00_JPRB, &
+ & 0.12692E+00_JPRB,0.12584E+00_JPRB,0.11940E+00_JPRB,0.95825E-01_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.68215E-01_JPRB,0.96468E-01_JPRB,0.11113E+00_JPRB,0.12035E+00_JPRB,0.12596E+00_JPRB, &
+ & 0.12837E+00_JPRB,0.12723E+00_JPRB,0.12088E+00_JPRB,0.97697E-01_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.69822E-01_JPRB,0.98288E-01_JPRB,0.11318E+00_JPRB,0.12260E+00_JPRB,0.12800E+00_JPRB, &
+ & 0.13009E+00_JPRB,0.12875E+00_JPRB,0.12246E+00_JPRB,0.99558E-01_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.71562E-01_JPRB,0.10021E+00_JPRB,0.11536E+00_JPRB,0.12491E+00_JPRB,0.13035E+00_JPRB, &
+ & 0.13218E+00_JPRB,0.13049E+00_JPRB,0.12412E+00_JPRB,0.10142E+00_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.56716E-01_JPRB,0.83175E-01_JPRB,0.96227E-01_JPRB,0.10452E+00_JPRB,0.10961E+00_JPRB, &
+ & 0.11186E+00_JPRB,0.11078E+00_JPRB,0.10487E+00_JPRB,0.82822E-01_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.57829E-01_JPRB,0.84711E-01_JPRB,0.97973E-01_JPRB,0.10625E+00_JPRB,0.11123E+00_JPRB, &
+ & 0.11339E+00_JPRB,0.11236E+00_JPRB,0.10648E+00_JPRB,0.84781E-01_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.59231E-01_JPRB,0.86426E-01_JPRB,0.99996E-01_JPRB,0.10847E+00_JPRB,0.11329E+00_JPRB, &
+ & 0.11518E+00_JPRB,0.11401E+00_JPRB,0.10821E+00_JPRB,0.86727E-01_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.60793E-01_JPRB,0.88335E-01_JPRB,0.10220E+00_JPRB,0.11080E+00_JPRB,0.11568E+00_JPRB, &
+ & 0.11734E+00_JPRB,0.11592E+00_JPRB,0.11003E+00_JPRB,0.88652E-01_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.62288E-01_JPRB,0.90379E-01_JPRB,0.10449E+00_JPRB,0.11321E+00_JPRB,0.11819E+00_JPRB, &
+ & 0.11985E+00_JPRB,0.11808E+00_JPRB,0.11193E+00_JPRB,0.90608E-01_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.73370E+00_JPRB,0.66239E+00_JPRB,0.64754E+00_JPRB,0.65671E+00_JPRB,0.64798E+00_JPRB, &
+ & 0.62443E+00_JPRB,0.62156E+00_JPRB,0.59642E+00_JPRB,0.65694E+00_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.72227E+00_JPRB,0.65245E+00_JPRB,0.64115E+00_JPRB,0.65244E+00_JPRB,0.64519E+00_JPRB, &
+ & 0.62272E+00_JPRB,0.62178E+00_JPRB,0.59807E+00_JPRB,0.65734E+00_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.71096E+00_JPRB,0.64287E+00_JPRB,0.63490E+00_JPRB,0.64719E+00_JPRB,0.64246E+00_JPRB, &
+ & 0.61928E+00_JPRB,0.62164E+00_JPRB,0.59971E+00_JPRB,0.65975E+00_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.69997E+00_JPRB,0.63340E+00_JPRB,0.62893E+00_JPRB,0.64188E+00_JPRB,0.63859E+00_JPRB, &
+ & 0.61601E+00_JPRB,0.62127E+00_JPRB,0.59924E+00_JPRB,0.66003E+00_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.68921E+00_JPRB,0.62412E+00_JPRB,0.62274E+00_JPRB,0.63660E+00_JPRB,0.63341E+00_JPRB, &
+ & 0.61371E+00_JPRB,0.61976E+00_JPRB,0.59796E+00_JPRB,0.65874E+00_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.71435E+00_JPRB,0.65898E+00_JPRB,0.65791E+00_JPRB,0.67621E+00_JPRB,0.66803E+00_JPRB, &
+ & 0.63952E+00_JPRB,0.62227E+00_JPRB,0.60345E+00_JPRB,0.64341E+00_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.70295E+00_JPRB,0.64927E+00_JPRB,0.65209E+00_JPRB,0.67168E+00_JPRB,0.66601E+00_JPRB, &
+ & 0.63761E+00_JPRB,0.62183E+00_JPRB,0.60472E+00_JPRB,0.64489E+00_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.69214E+00_JPRB,0.64012E+00_JPRB,0.64637E+00_JPRB,0.66639E+00_JPRB,0.66353E+00_JPRB, &
+ & 0.63487E+00_JPRB,0.62217E+00_JPRB,0.60467E+00_JPRB,0.64521E+00_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.68145E+00_JPRB,0.63089E+00_JPRB,0.64022E+00_JPRB,0.66099E+00_JPRB,0.65898E+00_JPRB, &
+ & 0.63312E+00_JPRB,0.62106E+00_JPRB,0.60298E+00_JPRB,0.64380E+00_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.67068E+00_JPRB,0.62208E+00_JPRB,0.63390E+00_JPRB,0.65546E+00_JPRB,0.65376E+00_JPRB, &
+ & 0.63122E+00_JPRB,0.61818E+00_JPRB,0.60158E+00_JPRB,0.64256E+00_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.68340E+00_JPRB,0.64482E+00_JPRB,0.66290E+00_JPRB,0.68284E+00_JPRB,0.67896E+00_JPRB, &
+ & 0.65800E+00_JPRB,0.61589E+00_JPRB,0.60026E+00_JPRB,0.62209E+00_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.67251E+00_JPRB,0.63550E+00_JPRB,0.65818E+00_JPRB,0.67891E+00_JPRB,0.67722E+00_JPRB, &
+ & 0.65575E+00_JPRB,0.61745E+00_JPRB,0.60017E+00_JPRB,0.62247E+00_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.66182E+00_JPRB,0.62604E+00_JPRB,0.65231E+00_JPRB,0.67447E+00_JPRB,0.67369E+00_JPRB, &
+ & 0.65314E+00_JPRB,0.61804E+00_JPRB,0.59851E+00_JPRB,0.62084E+00_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.65114E+00_JPRB,0.61727E+00_JPRB,0.64569E+00_JPRB,0.67007E+00_JPRB,0.66854E+00_JPRB, &
+ & 0.65146E+00_JPRB,0.61713E+00_JPRB,0.59641E+00_JPRB,0.61922E+00_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.64110E+00_JPRB,0.60881E+00_JPRB,0.63926E+00_JPRB,0.66468E+00_JPRB,0.66347E+00_JPRB, &
+ & 0.64931E+00_JPRB,0.61433E+00_JPRB,0.59600E+00_JPRB,0.61885E+00_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.64233E+00_JPRB,0.62207E+00_JPRB,0.65747E+00_JPRB,0.67845E+00_JPRB,0.68170E+00_JPRB, &
+ & 0.66374E+00_JPRB,0.61548E+00_JPRB,0.59270E+00_JPRB,0.60473E+00_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.63185E+00_JPRB,0.61324E+00_JPRB,0.65237E+00_JPRB,0.67473E+00_JPRB,0.67959E+00_JPRB, &
+ & 0.66215E+00_JPRB,0.61741E+00_JPRB,0.59134E+00_JPRB,0.60361E+00_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.62122E+00_JPRB,0.60440E+00_JPRB,0.64660E+00_JPRB,0.67096E+00_JPRB,0.67570E+00_JPRB, &
+ & 0.66004E+00_JPRB,0.61834E+00_JPRB,0.58886E+00_JPRB,0.60079E+00_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.61111E+00_JPRB,0.59616E+00_JPRB,0.64034E+00_JPRB,0.66675E+00_JPRB,0.67073E+00_JPRB, &
+ & 0.65786E+00_JPRB,0.61721E+00_JPRB,0.58692E+00_JPRB,0.59978E+00_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.60223E+00_JPRB,0.58851E+00_JPRB,0.63401E+00_JPRB,0.66136E+00_JPRB,0.66631E+00_JPRB, &
+ & 0.65503E+00_JPRB,0.61469E+00_JPRB,0.58697E+00_JPRB,0.60040E+00_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.59185E+00_JPRB,0.59370E+00_JPRB,0.63992E+00_JPRB,0.66463E+00_JPRB,0.67279E+00_JPRB, &
+ & 0.65610E+00_JPRB,0.61852E+00_JPRB,0.58331E+00_JPRB,0.58763E+00_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.58158E+00_JPRB,0.58584E+00_JPRB,0.63500E+00_JPRB,0.66123E+00_JPRB,0.67045E+00_JPRB, &
+ & 0.65504E+00_JPRB,0.62015E+00_JPRB,0.58225E+00_JPRB,0.58623E+00_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.57197E+00_JPRB,0.57827E+00_JPRB,0.62932E+00_JPRB,0.65791E+00_JPRB,0.66630E+00_JPRB, &
+ & 0.65353E+00_JPRB,0.61959E+00_JPRB,0.58025E+00_JPRB,0.58483E+00_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.56277E+00_JPRB,0.57099E+00_JPRB,0.62369E+00_JPRB,0.65326E+00_JPRB,0.66229E+00_JPRB, &
+ & 0.65156E+00_JPRB,0.61745E+00_JPRB,0.57913E+00_JPRB,0.58544E+00_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.55581E+00_JPRB,0.56431E+00_JPRB,0.61807E+00_JPRB,0.64784E+00_JPRB,0.65855E+00_JPRB, &
+ & 0.64845E+00_JPRB,0.61479E+00_JPRB,0.57987E+00_JPRB,0.58646E+00_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.53954E+00_JPRB,0.56255E+00_JPRB,0.61290E+00_JPRB,0.64303E+00_JPRB,0.64974E+00_JPRB, &
+ & 0.64176E+00_JPRB,0.61714E+00_JPRB,0.56940E+00_JPRB,0.56484E+00_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.53060E+00_JPRB,0.55651E+00_JPRB,0.60789E+00_JPRB,0.63988E+00_JPRB,0.64820E+00_JPRB, &
+ & 0.64042E+00_JPRB,0.61834E+00_JPRB,0.56932E+00_JPRB,0.56418E+00_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.52216E+00_JPRB,0.54988E+00_JPRB,0.60294E+00_JPRB,0.63619E+00_JPRB,0.64521E+00_JPRB, &
+ & 0.63878E+00_JPRB,0.61726E+00_JPRB,0.56850E+00_JPRB,0.56474E+00_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.51474E+00_JPRB,0.54331E+00_JPRB,0.59815E+00_JPRB,0.63165E+00_JPRB,0.64200E+00_JPRB, &
+ & 0.63625E+00_JPRB,0.61431E+00_JPRB,0.56860E+00_JPRB,0.56684E+00_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.51206E+00_JPRB,0.53704E+00_JPRB,0.59303E+00_JPRB,0.62695E+00_JPRB,0.63853E+00_JPRB, &
+ & 0.63290E+00_JPRB,0.61169E+00_JPRB,0.57018E+00_JPRB,0.56804E+00_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.49102E+00_JPRB,0.52896E+00_JPRB,0.58005E+00_JPRB,0.60940E+00_JPRB,0.62179E+00_JPRB, &
+ & 0.62452E+00_JPRB,0.60693E+00_JPRB,0.55666E+00_JPRB,0.53830E+00_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.48351E+00_JPRB,0.52394E+00_JPRB,0.57551E+00_JPRB,0.60647E+00_JPRB,0.62043E+00_JPRB, &
+ & 0.62318E+00_JPRB,0.60808E+00_JPRB,0.55693E+00_JPRB,0.53902E+00_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.47604E+00_JPRB,0.51848E+00_JPRB,0.57124E+00_JPRB,0.60324E+00_JPRB,0.61835E+00_JPRB, &
+ & 0.62080E+00_JPRB,0.60698E+00_JPRB,0.55691E+00_JPRB,0.54116E+00_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.47121E+00_JPRB,0.51294E+00_JPRB,0.56659E+00_JPRB,0.59937E+00_JPRB,0.61527E+00_JPRB, &
+ & 0.61807E+00_JPRB,0.60502E+00_JPRB,0.55819E+00_JPRB,0.54361E+00_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.47306E+00_JPRB,0.50884E+00_JPRB,0.56199E+00_JPRB,0.59548E+00_JPRB,0.61135E+00_JPRB, &
+ & 0.61474E+00_JPRB,0.60372E+00_JPRB,0.56024E+00_JPRB,0.54444E+00_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.44396E+00_JPRB,0.49532E+00_JPRB,0.54249E+00_JPRB,0.57145E+00_JPRB,0.59186E+00_JPRB, &
+ & 0.60060E+00_JPRB,0.58785E+00_JPRB,0.54441E+00_JPRB,0.50913E+00_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.43707E+00_JPRB,0.49048E+00_JPRB,0.53914E+00_JPRB,0.56868E+00_JPRB,0.59107E+00_JPRB, &
+ & 0.60049E+00_JPRB,0.58883E+00_JPRB,0.54507E+00_JPRB,0.51101E+00_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.43098E+00_JPRB,0.48531E+00_JPRB,0.53541E+00_JPRB,0.56592E+00_JPRB,0.58911E+00_JPRB, &
+ & 0.59846E+00_JPRB,0.58812E+00_JPRB,0.54578E+00_JPRB,0.51441E+00_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.42957E+00_JPRB,0.48093E+00_JPRB,0.53173E+00_JPRB,0.56262E+00_JPRB,0.58636E+00_JPRB, &
+ & 0.59589E+00_JPRB,0.58708E+00_JPRB,0.54776E+00_JPRB,0.51773E+00_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.43487E+00_JPRB,0.48035E+00_JPRB,0.52822E+00_JPRB,0.55903E+00_JPRB,0.58272E+00_JPRB, &
+ & 0.59353E+00_JPRB,0.58697E+00_JPRB,0.54985E+00_JPRB,0.51918E+00_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.39531E+00_JPRB,0.46021E+00_JPRB,0.50510E+00_JPRB,0.53588E+00_JPRB,0.55895E+00_JPRB, &
+ & 0.56979E+00_JPRB,0.56191E+00_JPRB,0.52659E+00_JPRB,0.47758E+00_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.38905E+00_JPRB,0.45517E+00_JPRB,0.50180E+00_JPRB,0.53416E+00_JPRB,0.55846E+00_JPRB, &
+ & 0.57047E+00_JPRB,0.56355E+00_JPRB,0.52717E+00_JPRB,0.48088E+00_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.38493E+00_JPRB,0.45067E+00_JPRB,0.49854E+00_JPRB,0.53220E+00_JPRB,0.55699E+00_JPRB, &
+ & 0.56934E+00_JPRB,0.56332E+00_JPRB,0.52868E+00_JPRB,0.48536E+00_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.38723E+00_JPRB,0.44786E+00_JPRB,0.49546E+00_JPRB,0.52928E+00_JPRB,0.55471E+00_JPRB, &
+ & 0.56730E+00_JPRB,0.56372E+00_JPRB,0.53178E+00_JPRB,0.48902E+00_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.39433E+00_JPRB,0.45054E+00_JPRB,0.49350E+00_JPRB,0.52621E+00_JPRB,0.55192E+00_JPRB, &
+ & 0.56604E+00_JPRB,0.56481E+00_JPRB,0.53491E+00_JPRB,0.49067E+00_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.34716E+00_JPRB,0.41992E+00_JPRB,0.46841E+00_JPRB,0.50264E+00_JPRB,0.52377E+00_JPRB, &
+ & 0.53462E+00_JPRB,0.53096E+00_JPRB,0.50215E+00_JPRB,0.44481E+00_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.34195E+00_JPRB,0.41601E+00_JPRB,0.46506E+00_JPRB,0.50165E+00_JPRB,0.52385E+00_JPRB, &
+ & 0.53574E+00_JPRB,0.53310E+00_JPRB,0.50401E+00_JPRB,0.44924E+00_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.34072E+00_JPRB,0.41255E+00_JPRB,0.46265E+00_JPRB,0.50007E+00_JPRB,0.52273E+00_JPRB, &
+ & 0.53553E+00_JPRB,0.53434E+00_JPRB,0.50668E+00_JPRB,0.45414E+00_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.34572E+00_JPRB,0.41258E+00_JPRB,0.46029E+00_JPRB,0.49770E+00_JPRB,0.52100E+00_JPRB, &
+ & 0.53482E+00_JPRB,0.53633E+00_JPRB,0.51056E+00_JPRB,0.45768E+00_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.35242E+00_JPRB,0.41826E+00_JPRB,0.46028E+00_JPRB,0.49520E+00_JPRB,0.51927E+00_JPRB, &
+ & 0.53500E+00_JPRB,0.53892E+00_JPRB,0.51405E+00_JPRB,0.45947E+00_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.30160E+00_JPRB,0.37714E+00_JPRB,0.42971E+00_JPRB,0.46717E+00_JPRB,0.48926E+00_JPRB, &
+ & 0.49871E+00_JPRB,0.49756E+00_JPRB,0.47436E+00_JPRB,0.41261E+00_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.29962E+00_JPRB,0.37395E+00_JPRB,0.42779E+00_JPRB,0.46654E+00_JPRB,0.48929E+00_JPRB, &
+ & 0.49998E+00_JPRB,0.50016E+00_JPRB,0.47769E+00_JPRB,0.41819E+00_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.30371E+00_JPRB,0.37339E+00_JPRB,0.42611E+00_JPRB,0.46502E+00_JPRB,0.48821E+00_JPRB, &
+ & 0.50080E+00_JPRB,0.50323E+00_JPRB,0.48215E+00_JPRB,0.42266E+00_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.30955E+00_JPRB,0.37857E+00_JPRB,0.42639E+00_JPRB,0.46320E+00_JPRB,0.48745E+00_JPRB, &
+ & 0.50213E+00_JPRB,0.50694E+00_JPRB,0.48639E+00_JPRB,0.42570E+00_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.31511E+00_JPRB,0.38606E+00_JPRB,0.43107E+00_JPRB,0.46346E+00_JPRB,0.48731E+00_JPRB, &
+ & 0.50398E+00_JPRB,0.50975E+00_JPRB,0.48945E+00_JPRB,0.42790E+00_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.26311E+00_JPRB,0.33847E+00_JPRB,0.39159E+00_JPRB,0.42993E+00_JPRB,0.45370E+00_JPRB, &
+ & 0.46372E+00_JPRB,0.46279E+00_JPRB,0.44427E+00_JPRB,0.37907E+00_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.26583E+00_JPRB,0.33679E+00_JPRB,0.39073E+00_JPRB,0.42938E+00_JPRB,0.45415E+00_JPRB, &
+ & 0.46569E+00_JPRB,0.46639E+00_JPRB,0.44945E+00_JPRB,0.38485E+00_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.27082E+00_JPRB,0.34071E+00_JPRB,0.39077E+00_JPRB,0.42842E+00_JPRB,0.45412E+00_JPRB, &
+ & 0.46820E+00_JPRB,0.47089E+00_JPRB,0.45477E+00_JPRB,0.38900E+00_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.27574E+00_JPRB,0.34733E+00_JPRB,0.39532E+00_JPRB,0.42923E+00_JPRB,0.45504E+00_JPRB, &
+ & 0.47097E+00_JPRB,0.47486E+00_JPRB,0.45848E+00_JPRB,0.39247E+00_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.28099E+00_JPRB,0.35386E+00_JPRB,0.40190E+00_JPRB,0.43447E+00_JPRB,0.45757E+00_JPRB, &
+ & 0.47294E+00_JPRB,0.47760E+00_JPRB,0.46125E+00_JPRB,0.39629E+00_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.23133E+00_JPRB,0.30448E+00_JPRB,0.35592E+00_JPRB,0.39245E+00_JPRB,0.41703E+00_JPRB, &
+ & 0.42944E+00_JPRB,0.42838E+00_JPRB,0.41191E+00_JPRB,0.34405E+00_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.23569E+00_JPRB,0.30675E+00_JPRB,0.35574E+00_JPRB,0.39238E+00_JPRB,0.41854E+00_JPRB, &
+ & 0.43261E+00_JPRB,0.43319E+00_JPRB,0.41851E+00_JPRB,0.34979E+00_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.23995E+00_JPRB,0.31287E+00_JPRB,0.35958E+00_JPRB,0.39339E+00_JPRB,0.42025E+00_JPRB, &
+ & 0.43649E+00_JPRB,0.43814E+00_JPRB,0.42387E+00_JPRB,0.35427E+00_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.24491E+00_JPRB,0.31868E+00_JPRB,0.36597E+00_JPRB,0.39887E+00_JPRB,0.42348E+00_JPRB, &
+ & 0.43960E+00_JPRB,0.44180E+00_JPRB,0.42781E+00_JPRB,0.35946E+00_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.25204E+00_JPRB,0.32443E+00_JPRB,0.37244E+00_JPRB,0.40709E+00_JPRB,0.42924E+00_JPRB, &
+ & 0.44176E+00_JPRB,0.44465E+00_JPRB,0.43196E+00_JPRB,0.36481E+00_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.10293E+01_JPRB,0.90445E+00_JPRB,0.86137E+00_JPRB,0.83022E+00_JPRB,0.84086E+00_JPRB, &
+ & 0.86548E+00_JPRB,0.85587E+00_JPRB,0.85325E+00_JPRB,0.97261E+00_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.10191E+01_JPRB,0.89556E+00_JPRB,0.85472E+00_JPRB,0.82839E+00_JPRB,0.83827E+00_JPRB, &
+ & 0.86712E+00_JPRB,0.85626E+00_JPRB,0.85096E+00_JPRB,0.97088E+00_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.10070E+01_JPRB,0.88513E+00_JPRB,0.84750E+00_JPRB,0.82570E+00_JPRB,0.83354E+00_JPRB, &
+ & 0.86668E+00_JPRB,0.85692E+00_JPRB,0.84837E+00_JPRB,0.96710E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.99477E+00_JPRB,0.87449E+00_JPRB,0.83958E+00_JPRB,0.82146E+00_JPRB,0.82897E+00_JPRB, &
+ & 0.86436E+00_JPRB,0.85744E+00_JPRB,0.84703E+00_JPRB,0.96450E+00_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.98126E+00_JPRB,0.86272E+00_JPRB,0.83128E+00_JPRB,0.81555E+00_JPRB,0.82401E+00_JPRB, &
+ & 0.85929E+00_JPRB,0.85825E+00_JPRB,0.84707E+00_JPRB,0.96358E+00_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.10475E+01_JPRB,0.93151E+00_JPRB,0.89830E+00_JPRB,0.88420E+00_JPRB,0.87933E+00_JPRB, &
+ & 0.87846E+00_JPRB,0.87987E+00_JPRB,0.86086E+00_JPRB,0.97265E+00_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.10370E+01_JPRB,0.92196E+00_JPRB,0.89215E+00_JPRB,0.88284E+00_JPRB,0.87783E+00_JPRB, &
+ & 0.88073E+00_JPRB,0.88059E+00_JPRB,0.85882E+00_JPRB,0.96972E+00_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.10244E+01_JPRB,0.91082E+00_JPRB,0.88511E+00_JPRB,0.87976E+00_JPRB,0.87455E+00_JPRB, &
+ & 0.88046E+00_JPRB,0.88070E+00_JPRB,0.85623E+00_JPRB,0.96599E+00_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.10111E+01_JPRB,0.89911E+00_JPRB,0.87761E+00_JPRB,0.87481E+00_JPRB,0.87132E+00_JPRB, &
+ & 0.87692E+00_JPRB,0.88074E+00_JPRB,0.85652E+00_JPRB,0.96500E+00_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.99734E+00_JPRB,0.88696E+00_JPRB,0.86940E+00_JPRB,0.86908E+00_JPRB,0.86706E+00_JPRB, &
+ & 0.87191E+00_JPRB,0.88156E+00_JPRB,0.85742E+00_JPRB,0.96567E+00_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.10481E+01_JPRB,0.94949E+00_JPRB,0.92754E+00_JPRB,0.93134E+00_JPRB,0.92020E+00_JPRB, &
+ & 0.88963E+00_JPRB,0.89353E+00_JPRB,0.87368E+00_JPRB,0.96341E+00_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.10364E+01_JPRB,0.93961E+00_JPRB,0.92141E+00_JPRB,0.92962E+00_JPRB,0.91951E+00_JPRB, &
+ & 0.89266E+00_JPRB,0.89347E+00_JPRB,0.87218E+00_JPRB,0.95995E+00_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.10237E+01_JPRB,0.92877E+00_JPRB,0.91434E+00_JPRB,0.92574E+00_JPRB,0.91740E+00_JPRB, &
+ & 0.89302E+00_JPRB,0.89281E+00_JPRB,0.87167E+00_JPRB,0.95907E+00_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.10107E+01_JPRB,0.91711E+00_JPRB,0.90716E+00_JPRB,0.92023E+00_JPRB,0.91517E+00_JPRB, &
+ & 0.89037E+00_JPRB,0.89222E+00_JPRB,0.87266E+00_JPRB,0.95928E+00_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.99633E+00_JPRB,0.90470E+00_JPRB,0.89927E+00_JPRB,0.91439E+00_JPRB,0.91120E+00_JPRB, &
+ & 0.88600E+00_JPRB,0.89266E+00_JPRB,0.87273E+00_JPRB,0.95886E+00_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.10264E+01_JPRB,0.95071E+00_JPRB,0.94674E+00_JPRB,0.96322E+00_JPRB,0.95099E+00_JPRB, &
+ & 0.91374E+00_JPRB,0.89446E+00_JPRB,0.87855E+00_JPRB,0.93628E+00_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.10149E+01_JPRB,0.94036E+00_JPRB,0.94196E+00_JPRB,0.96089E+00_JPRB,0.95153E+00_JPRB, &
+ & 0.91752E+00_JPRB,0.89401E+00_JPRB,0.87842E+00_JPRB,0.93496E+00_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.10022E+01_JPRB,0.92957E+00_JPRB,0.93566E+00_JPRB,0.95688E+00_JPRB,0.95066E+00_JPRB, &
+ & 0.91784E+00_JPRB,0.89284E+00_JPRB,0.87926E+00_JPRB,0.93586E+00_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.98847E+00_JPRB,0.91773E+00_JPRB,0.92854E+00_JPRB,0.95134E+00_JPRB,0.94862E+00_JPRB, &
+ & 0.91547E+00_JPRB,0.89366E+00_JPRB,0.87951E+00_JPRB,0.93591E+00_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.97390E+00_JPRB,0.90550E+00_JPRB,0.92045E+00_JPRB,0.94604E+00_JPRB,0.94431E+00_JPRB, &
+ & 0.91218E+00_JPRB,0.89395E+00_JPRB,0.87858E+00_JPRB,0.93476E+00_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.98609E+00_JPRB,0.93424E+00_JPRB,0.95643E+00_JPRB,0.97684E+00_JPRB,0.96999E+00_JPRB, &
+ & 0.93774E+00_JPRB,0.88693E+00_JPRB,0.86915E+00_JPRB,0.90145E+00_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.97412E+00_JPRB,0.92401E+00_JPRB,0.95137E+00_JPRB,0.97507E+00_JPRB,0.97005E+00_JPRB, &
+ & 0.94299E+00_JPRB,0.88698E+00_JPRB,0.86947E+00_JPRB,0.90218E+00_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.96114E+00_JPRB,0.91242E+00_JPRB,0.94531E+00_JPRB,0.97096E+00_JPRB,0.96958E+00_JPRB, &
+ & 0.94325E+00_JPRB,0.88812E+00_JPRB,0.86965E+00_JPRB,0.90220E+00_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.94742E+00_JPRB,0.90067E+00_JPRB,0.93796E+00_JPRB,0.96622E+00_JPRB,0.96802E+00_JPRB, &
+ & 0.94082E+00_JPRB,0.89013E+00_JPRB,0.86974E+00_JPRB,0.90156E+00_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.93336E+00_JPRB,0.88866E+00_JPRB,0.92975E+00_JPRB,0.96102E+00_JPRB,0.96365E+00_JPRB, &
+ & 0.93814E+00_JPRB,0.89133E+00_JPRB,0.86813E+00_JPRB,0.89955E+00_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.92984E+00_JPRB,0.90494E+00_JPRB,0.94972E+00_JPRB,0.97425E+00_JPRB,0.97662E+00_JPRB, &
+ & 0.94556E+00_JPRB,0.88351E+00_JPRB,0.85584E+00_JPRB,0.87463E+00_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.91725E+00_JPRB,0.89370E+00_JPRB,0.94535E+00_JPRB,0.97222E+00_JPRB,0.97680E+00_JPRB, &
+ & 0.95110E+00_JPRB,0.88518E+00_JPRB,0.85597E+00_JPRB,0.87435E+00_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.90427E+00_JPRB,0.88250E+00_JPRB,0.93903E+00_JPRB,0.96844E+00_JPRB,0.97606E+00_JPRB, &
+ & 0.95304E+00_JPRB,0.88753E+00_JPRB,0.85497E+00_JPRB,0.87307E+00_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.89063E+00_JPRB,0.87150E+00_JPRB,0.93110E+00_JPRB,0.96495E+00_JPRB,0.97386E+00_JPRB, &
+ & 0.95208E+00_JPRB,0.89056E+00_JPRB,0.85380E+00_JPRB,0.87067E+00_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.87675E+00_JPRB,0.86027E+00_JPRB,0.92261E+00_JPRB,0.96002E+00_JPRB,0.96930E+00_JPRB, &
+ & 0.94959E+00_JPRB,0.89201E+00_JPRB,0.85155E+00_JPRB,0.86905E+00_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.85919E+00_JPRB,0.86562E+00_JPRB,0.92649E+00_JPRB,0.95965E+00_JPRB,0.96523E+00_JPRB, &
+ & 0.93650E+00_JPRB,0.88529E+00_JPRB,0.84057E+00_JPRB,0.84722E+00_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.84717E+00_JPRB,0.85599E+00_JPRB,0.92166E+00_JPRB,0.95676E+00_JPRB,0.96677E+00_JPRB, &
+ & 0.94156E+00_JPRB,0.88807E+00_JPRB,0.84087E+00_JPRB,0.84785E+00_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.83473E+00_JPRB,0.84556E+00_JPRB,0.91525E+00_JPRB,0.95342E+00_JPRB,0.96579E+00_JPRB, &
+ & 0.94506E+00_JPRB,0.89084E+00_JPRB,0.83990E+00_JPRB,0.84680E+00_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.82211E+00_JPRB,0.83508E+00_JPRB,0.90782E+00_JPRB,0.94944E+00_JPRB,0.96296E+00_JPRB, &
+ & 0.94530E+00_JPRB,0.89295E+00_JPRB,0.83822E+00_JPRB,0.84533E+00_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.80945E+00_JPRB,0.82542E+00_JPRB,0.90011E+00_JPRB,0.94513E+00_JPRB,0.95957E+00_JPRB, &
+ & 0.94356E+00_JPRB,0.89326E+00_JPRB,0.83636E+00_JPRB,0.84582E+00_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.78535E+00_JPRB,0.81958E+00_JPRB,0.89069E+00_JPRB,0.92943E+00_JPRB,0.93702E+00_JPRB, &
+ & 0.91895E+00_JPRB,0.88182E+00_JPRB,0.81942E+00_JPRB,0.81355E+00_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.77455E+00_JPRB,0.81120E+00_JPRB,0.88449E+00_JPRB,0.92737E+00_JPRB,0.93847E+00_JPRB, &
+ & 0.92275E+00_JPRB,0.88568E+00_JPRB,0.82187E+00_JPRB,0.81529E+00_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.76320E+00_JPRB,0.80325E+00_JPRB,0.87799E+00_JPRB,0.92413E+00_JPRB,0.93785E+00_JPRB, &
+ & 0.92584E+00_JPRB,0.88848E+00_JPRB,0.82246E+00_JPRB,0.81526E+00_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.75209E+00_JPRB,0.79461E+00_JPRB,0.87173E+00_JPRB,0.92037E+00_JPRB,0.93562E+00_JPRB, &
+ & 0.92659E+00_JPRB,0.89042E+00_JPRB,0.82203E+00_JPRB,0.81583E+00_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.74191E+00_JPRB,0.78569E+00_JPRB,0.86500E+00_JPRB,0.91565E+00_JPRB,0.93275E+00_JPRB, &
+ & 0.92508E+00_JPRB,0.89021E+00_JPRB,0.82215E+00_JPRB,0.81833E+00_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.71539E+00_JPRB,0.77045E+00_JPRB,0.84442E+00_JPRB,0.88339E+00_JPRB,0.89968E+00_JPRB, &
+ & 0.89536E+00_JPRB,0.86841E+00_JPRB,0.79955E+00_JPRB,0.77318E+00_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.70564E+00_JPRB,0.76424E+00_JPRB,0.83867E+00_JPRB,0.88222E+00_JPRB,0.90019E+00_JPRB, &
+ & 0.89929E+00_JPRB,0.87308E+00_JPRB,0.80390E+00_JPRB,0.77664E+00_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.69566E+00_JPRB,0.75811E+00_JPRB,0.83280E+00_JPRB,0.87940E+00_JPRB,0.90026E+00_JPRB, &
+ & 0.90222E+00_JPRB,0.87663E+00_JPRB,0.80593E+00_JPRB,0.77834E+00_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.68611E+00_JPRB,0.75067E+00_JPRB,0.82727E+00_JPRB,0.87623E+00_JPRB,0.89845E+00_JPRB, &
+ & 0.90248E+00_JPRB,0.87886E+00_JPRB,0.80698E+00_JPRB,0.78085E+00_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.67924E+00_JPRB,0.74336E+00_JPRB,0.82173E+00_JPRB,0.87192E+00_JPRB,0.89575E+00_JPRB, &
+ & 0.90118E+00_JPRB,0.87929E+00_JPRB,0.80840E+00_JPRB,0.78556E+00_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.64750E+00_JPRB,0.72291E+00_JPRB,0.79049E+00_JPRB,0.83093E+00_JPRB,0.85723E+00_JPRB, &
+ & 0.86420E+00_JPRB,0.84410E+00_JPRB,0.78062E+00_JPRB,0.72995E+00_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.63786E+00_JPRB,0.71701E+00_JPRB,0.78689E+00_JPRB,0.82920E+00_JPRB,0.85838E+00_JPRB, &
+ & 0.86903E+00_JPRB,0.84994E+00_JPRB,0.78581E+00_JPRB,0.73484E+00_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.62879E+00_JPRB,0.71055E+00_JPRB,0.78212E+00_JPRB,0.82630E+00_JPRB,0.85919E+00_JPRB, &
+ & 0.87234E+00_JPRB,0.85358E+00_JPRB,0.78925E+00_JPRB,0.73873E+00_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.62087E+00_JPRB,0.70389E+00_JPRB,0.77761E+00_JPRB,0.82356E+00_JPRB,0.85812E+00_JPRB, &
+ & 0.87281E+00_JPRB,0.85602E+00_JPRB,0.79174E+00_JPRB,0.74394E+00_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.61947E+00_JPRB,0.69759E+00_JPRB,0.77360E+00_JPRB,0.82013E+00_JPRB,0.85542E+00_JPRB, &
+ & 0.87157E+00_JPRB,0.85709E+00_JPRB,0.79529E+00_JPRB,0.75052E+00_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.57317E+00_JPRB,0.67082E+00_JPRB,0.73559E+00_JPRB,0.77934E+00_JPRB,0.81170E+00_JPRB, &
+ & 0.82582E+00_JPRB,0.81431E+00_JPRB,0.75887E+00_JPRB,0.68710E+00_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.56447E+00_JPRB,0.66437E+00_JPRB,0.73216E+00_JPRB,0.77740E+00_JPRB,0.81370E+00_JPRB, &
+ & 0.83183E+00_JPRB,0.81926E+00_JPRB,0.76438E+00_JPRB,0.69316E+00_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.55710E+00_JPRB,0.65798E+00_JPRB,0.72792E+00_JPRB,0.77609E+00_JPRB,0.81480E+00_JPRB, &
+ & 0.83377E+00_JPRB,0.82304E+00_JPRB,0.76833E+00_JPRB,0.70018E+00_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.55630E+00_JPRB,0.65257E+00_JPRB,0.72437E+00_JPRB,0.77329E+00_JPRB,0.81397E+00_JPRB, &
+ & 0.83437E+00_JPRB,0.82566E+00_JPRB,0.77320E+00_JPRB,0.70886E+00_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.56411E+00_JPRB,0.65194E+00_JPRB,0.72119E+00_JPRB,0.77017E+00_JPRB,0.81118E+00_JPRB, &
+ & 0.83405E+00_JPRB,0.82785E+00_JPRB,0.77913E+00_JPRB,0.71658E+00_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.50093E+00_JPRB,0.61265E+00_JPRB,0.68222E+00_JPRB,0.73081E+00_JPRB,0.76376E+00_JPRB, &
+ & 0.78196E+00_JPRB,0.77611E+00_JPRB,0.73046E+00_JPRB,0.64374E+00_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.49374E+00_JPRB,0.60693E+00_JPRB,0.67860E+00_JPRB,0.73087E+00_JPRB,0.76701E+00_JPRB, &
+ & 0.78657E+00_JPRB,0.78196E+00_JPRB,0.73646E+00_JPRB,0.65183E+00_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.49262E+00_JPRB,0.60232E+00_JPRB,0.67517E+00_JPRB,0.73017E+00_JPRB,0.76805E+00_JPRB, &
+ & 0.78863E+00_JPRB,0.78651E+00_JPRB,0.74261E+00_JPRB,0.66205E+00_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.49989E+00_JPRB,0.60234E+00_JPRB,0.67259E+00_JPRB,0.72790E+00_JPRB,0.76753E+00_JPRB, &
+ & 0.79017E+00_JPRB,0.79054E+00_JPRB,0.75027E+00_JPRB,0.67174E+00_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.51177E+00_JPRB,0.60963E+00_JPRB,0.67313E+00_JPRB,0.72489E+00_JPRB,0.76606E+00_JPRB, &
+ & 0.79187E+00_JPRB,0.79524E+00_JPRB,0.75809E+00_JPRB,0.67955E+00_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.43610E+00_JPRB,0.55280E+00_JPRB,0.62805E+00_JPRB,0.68236E+00_JPRB,0.71726E+00_JPRB, &
+ & 0.73439E+00_JPRB,0.73316E+00_JPRB,0.69581E+00_JPRB,0.60098E+00_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.43332E+00_JPRB,0.54879E+00_JPRB,0.62602E+00_JPRB,0.68387E+00_JPRB,0.71981E+00_JPRB, &
+ & 0.73863E+00_JPRB,0.74004E+00_JPRB,0.70395E+00_JPRB,0.61188E+00_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.43938E+00_JPRB,0.54819E+00_JPRB,0.62420E+00_JPRB,0.68392E+00_JPRB,0.72120E+00_JPRB, &
+ & 0.74159E+00_JPRB,0.74634E+00_JPRB,0.71286E+00_JPRB,0.62343E+00_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.44997E+00_JPRB,0.55515E+00_JPRB,0.62479E+00_JPRB,0.68255E+00_JPRB,0.72173E+00_JPRB, &
+ & 0.74510E+00_JPRB,0.75297E+00_JPRB,0.72278E+00_JPRB,0.63265E+00_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.46055E+00_JPRB,0.56787E+00_JPRB,0.63110E+00_JPRB,0.68248E+00_JPRB,0.72225E+00_JPRB, &
+ & 0.74921E+00_JPRB,0.75987E+00_JPRB,0.73098E+00_JPRB,0.64026E+00_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.14171E+01_JPRB,0.12412E+01_JPRB,0.11453E+01_JPRB,0.11122E+01_JPRB,0.11253E+01_JPRB, &
+ & 0.11573E+01_JPRB,0.11791E+01_JPRB,0.12973E+01_JPRB,0.14638E+01_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.14090E+01_JPRB,0.12342E+01_JPRB,0.11388E+01_JPRB,0.11095E+01_JPRB,0.11322E+01_JPRB, &
+ & 0.11607E+01_JPRB,0.11781E+01_JPRB,0.12938E+01_JPRB,0.14611E+01_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.13994E+01_JPRB,0.12258E+01_JPRB,0.11299E+01_JPRB,0.11046E+01_JPRB,0.11339E+01_JPRB, &
+ & 0.11641E+01_JPRB,0.11762E+01_JPRB,0.12907E+01_JPRB,0.14569E+01_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.13872E+01_JPRB,0.12151E+01_JPRB,0.11205E+01_JPRB,0.10983E+01_JPRB,0.11321E+01_JPRB, &
+ & 0.11655E+01_JPRB,0.11746E+01_JPRB,0.12884E+01_JPRB,0.14537E+01_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.13737E+01_JPRB,0.12034E+01_JPRB,0.11101E+01_JPRB,0.10915E+01_JPRB,0.11280E+01_JPRB, &
+ & 0.11664E+01_JPRB,0.11724E+01_JPRB,0.12834E+01_JPRB,0.14491E+01_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.15051E+01_JPRB,0.13181E+01_JPRB,0.12304E+01_JPRB,0.11719E+01_JPRB,0.11855E+01_JPRB, &
+ & 0.12309E+01_JPRB,0.12496E+01_JPRB,0.13203E+01_JPRB,0.15049E+01_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.14984E+01_JPRB,0.13123E+01_JPRB,0.12250E+01_JPRB,0.11699E+01_JPRB,0.11925E+01_JPRB, &
+ & 0.12340E+01_JPRB,0.12487E+01_JPRB,0.13193E+01_JPRB,0.15024E+01_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.14884E+01_JPRB,0.13036E+01_JPRB,0.12176E+01_JPRB,0.11665E+01_JPRB,0.11942E+01_JPRB, &
+ & 0.12376E+01_JPRB,0.12478E+01_JPRB,0.13196E+01_JPRB,0.15020E+01_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.14762E+01_JPRB,0.12929E+01_JPRB,0.12082E+01_JPRB,0.11628E+01_JPRB,0.11911E+01_JPRB, &
+ & 0.12406E+01_JPRB,0.12476E+01_JPRB,0.13168E+01_JPRB,0.15001E+01_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.14614E+01_JPRB,0.12800E+01_JPRB,0.11975E+01_JPRB,0.11575E+01_JPRB,0.11857E+01_JPRB, &
+ & 0.12414E+01_JPRB,0.12460E+01_JPRB,0.13124E+01_JPRB,0.14945E+01_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.15822E+01_JPRB,0.13890E+01_JPRB,0.13182E+01_JPRB,0.12547E+01_JPRB,0.12476E+01_JPRB, &
+ & 0.12873E+01_JPRB,0.13056E+01_JPRB,0.13300E+01_JPRB,0.15181E+01_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.15752E+01_JPRB,0.13826E+01_JPRB,0.13120E+01_JPRB,0.12557E+01_JPRB,0.12556E+01_JPRB, &
+ & 0.12906E+01_JPRB,0.13067E+01_JPRB,0.13310E+01_JPRB,0.15193E+01_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.15647E+01_JPRB,0.13732E+01_JPRB,0.13046E+01_JPRB,0.12538E+01_JPRB,0.12575E+01_JPRB, &
+ & 0.12941E+01_JPRB,0.13084E+01_JPRB,0.13307E+01_JPRB,0.15193E+01_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.15514E+01_JPRB,0.13616E+01_JPRB,0.12950E+01_JPRB,0.12500E+01_JPRB,0.12556E+01_JPRB, &
+ & 0.12989E+01_JPRB,0.13088E+01_JPRB,0.13292E+01_JPRB,0.15174E+01_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.15358E+01_JPRB,0.13480E+01_JPRB,0.12843E+01_JPRB,0.12443E+01_JPRB,0.12517E+01_JPRB, &
+ & 0.13009E+01_JPRB,0.13074E+01_JPRB,0.13265E+01_JPRB,0.15142E+01_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.16350E+01_JPRB,0.14490E+01_JPRB,0.13916E+01_JPRB,0.13443E+01_JPRB,0.13174E+01_JPRB, &
+ & 0.13244E+01_JPRB,0.13476E+01_JPRB,0.13365E+01_JPRB,0.15180E+01_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.16281E+01_JPRB,0.14425E+01_JPRB,0.13866E+01_JPRB,0.13479E+01_JPRB,0.13260E+01_JPRB, &
+ & 0.13268E+01_JPRB,0.13503E+01_JPRB,0.13390E+01_JPRB,0.15205E+01_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.16161E+01_JPRB,0.14310E+01_JPRB,0.13789E+01_JPRB,0.13476E+01_JPRB,0.13293E+01_JPRB, &
+ & 0.13314E+01_JPRB,0.13532E+01_JPRB,0.13408E+01_JPRB,0.15220E+01_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.16014E+01_JPRB,0.14178E+01_JPRB,0.13691E+01_JPRB,0.13444E+01_JPRB,0.13282E+01_JPRB, &
+ & 0.13379E+01_JPRB,0.13534E+01_JPRB,0.13410E+01_JPRB,0.15212E+01_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.15848E+01_JPRB,0.14026E+01_JPRB,0.13577E+01_JPRB,0.13378E+01_JPRB,0.13257E+01_JPRB, &
+ & 0.13408E+01_JPRB,0.13534E+01_JPRB,0.13387E+01_JPRB,0.15183E+01_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.16591E+01_JPRB,0.14947E+01_JPRB,0.14480E+01_JPRB,0.14262E+01_JPRB,0.13903E+01_JPRB, &
+ & 0.13587E+01_JPRB,0.13777E+01_JPRB,0.13491E+01_JPRB,0.15046E+01_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.16509E+01_JPRB,0.14862E+01_JPRB,0.14440E+01_JPRB,0.14316E+01_JPRB,0.13991E+01_JPRB, &
+ & 0.13598E+01_JPRB,0.13805E+01_JPRB,0.13541E+01_JPRB,0.15083E+01_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.16386E+01_JPRB,0.14750E+01_JPRB,0.14364E+01_JPRB,0.14307E+01_JPRB,0.14045E+01_JPRB, &
+ & 0.13655E+01_JPRB,0.13826E+01_JPRB,0.13579E+01_JPRB,0.15118E+01_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.16229E+01_JPRB,0.14605E+01_JPRB,0.14277E+01_JPRB,0.14269E+01_JPRB,0.14036E+01_JPRB, &
+ & 0.13722E+01_JPRB,0.13840E+01_JPRB,0.13579E+01_JPRB,0.15115E+01_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.16043E+01_JPRB,0.14439E+01_JPRB,0.14169E+01_JPRB,0.14203E+01_JPRB,0.14024E+01_JPRB, &
+ & 0.13765E+01_JPRB,0.13831E+01_JPRB,0.13575E+01_JPRB,0.15115E+01_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.16482E+01_JPRB,0.15147E+01_JPRB,0.14918E+01_JPRB,0.14883E+01_JPRB,0.14555E+01_JPRB, &
+ & 0.14030E+01_JPRB,0.13913E+01_JPRB,0.13585E+01_JPRB,0.14685E+01_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.16385E+01_JPRB,0.15059E+01_JPRB,0.14880E+01_JPRB,0.14958E+01_JPRB,0.14629E+01_JPRB, &
+ & 0.14056E+01_JPRB,0.13940E+01_JPRB,0.13659E+01_JPRB,0.14762E+01_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.16253E+01_JPRB,0.14941E+01_JPRB,0.14803E+01_JPRB,0.14965E+01_JPRB,0.14689E+01_JPRB, &
+ & 0.14106E+01_JPRB,0.13970E+01_JPRB,0.13717E+01_JPRB,0.14817E+01_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.16089E+01_JPRB,0.14791E+01_JPRB,0.14713E+01_JPRB,0.14908E+01_JPRB,0.14702E+01_JPRB, &
+ & 0.14165E+01_JPRB,0.13983E+01_JPRB,0.13748E+01_JPRB,0.14851E+01_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.15910E+01_JPRB,0.14633E+01_JPRB,0.14618E+01_JPRB,0.14838E+01_JPRB,0.14693E+01_JPRB, &
+ & 0.14213E+01_JPRB,0.13976E+01_JPRB,0.13770E+01_JPRB,0.14876E+01_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.16064E+01_JPRB,0.15086E+01_JPRB,0.15144E+01_JPRB,0.15268E+01_JPRB,0.15040E+01_JPRB, &
+ & 0.14507E+01_JPRB,0.13904E+01_JPRB,0.13521E+01_JPRB,0.14179E+01_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.15953E+01_JPRB,0.14985E+01_JPRB,0.15140E+01_JPRB,0.15345E+01_JPRB,0.15085E+01_JPRB, &
+ & 0.14549E+01_JPRB,0.13952E+01_JPRB,0.13604E+01_JPRB,0.14259E+01_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.15801E+01_JPRB,0.14851E+01_JPRB,0.15073E+01_JPRB,0.15363E+01_JPRB,0.15134E+01_JPRB, &
+ & 0.14598E+01_JPRB,0.13998E+01_JPRB,0.13678E+01_JPRB,0.14328E+01_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.15629E+01_JPRB,0.14703E+01_JPRB,0.14995E+01_JPRB,0.15318E+01_JPRB,0.15172E+01_JPRB, &
+ & 0.14656E+01_JPRB,0.14020E+01_JPRB,0.13732E+01_JPRB,0.14388E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.15443E+01_JPRB,0.14531E+01_JPRB,0.14892E+01_JPRB,0.15236E+01_JPRB,0.15169E+01_JPRB, &
+ & 0.14692E+01_JPRB,0.14038E+01_JPRB,0.13766E+01_JPRB,0.14425E+01_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.15344E+01_JPRB,0.14766E+01_JPRB,0.15157E+01_JPRB,0.15423E+01_JPRB,0.15330E+01_JPRB, &
+ & 0.14811E+01_JPRB,0.13889E+01_JPRB,0.13373E+01_JPRB,0.13698E+01_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.15222E+01_JPRB,0.14679E+01_JPRB,0.15175E+01_JPRB,0.15473E+01_JPRB,0.15363E+01_JPRB, &
+ & 0.14872E+01_JPRB,0.13948E+01_JPRB,0.13442E+01_JPRB,0.13786E+01_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.15059E+01_JPRB,0.14533E+01_JPRB,0.15144E+01_JPRB,0.15489E+01_JPRB,0.15409E+01_JPRB, &
+ & 0.14932E+01_JPRB,0.14005E+01_JPRB,0.13518E+01_JPRB,0.13861E+01_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.14877E+01_JPRB,0.14368E+01_JPRB,0.15058E+01_JPRB,0.15451E+01_JPRB,0.15445E+01_JPRB, &
+ & 0.14989E+01_JPRB,0.14044E+01_JPRB,0.13574E+01_JPRB,0.13922E+01_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.14686E+01_JPRB,0.14200E+01_JPRB,0.14953E+01_JPRB,0.15388E+01_JPRB,0.15447E+01_JPRB, &
+ & 0.15024E+01_JPRB,0.14082E+01_JPRB,0.13605E+01_JPRB,0.13964E+01_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.14373E+01_JPRB,0.14266E+01_JPRB,0.14938E+01_JPRB,0.15367E+01_JPRB,0.15341E+01_JPRB, &
+ & 0.14871E+01_JPRB,0.13939E+01_JPRB,0.13173E+01_JPRB,0.13285E+01_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.14250E+01_JPRB,0.14168E+01_JPRB,0.14968E+01_JPRB,0.15390E+01_JPRB,0.15386E+01_JPRB, &
+ & 0.14934E+01_JPRB,0.13987E+01_JPRB,0.13260E+01_JPRB,0.13388E+01_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.14085E+01_JPRB,0.14020E+01_JPRB,0.14946E+01_JPRB,0.15393E+01_JPRB,0.15430E+01_JPRB, &
+ & 0.14996E+01_JPRB,0.14050E+01_JPRB,0.13340E+01_JPRB,0.13471E+01_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.13898E+01_JPRB,0.13862E+01_JPRB,0.14874E+01_JPRB,0.15365E+01_JPRB,0.15469E+01_JPRB, &
+ & 0.15061E+01_JPRB,0.14095E+01_JPRB,0.13387E+01_JPRB,0.13529E+01_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.13711E+01_JPRB,0.13694E+01_JPRB,0.14772E+01_JPRB,0.15321E+01_JPRB,0.15481E+01_JPRB, &
+ & 0.15103E+01_JPRB,0.14136E+01_JPRB,0.13413E+01_JPRB,0.13557E+01_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.13234E+01_JPRB,0.13585E+01_JPRB,0.14531E+01_JPRB,0.15073E+01_JPRB,0.15094E+01_JPRB, &
+ & 0.14728E+01_JPRB,0.13972E+01_JPRB,0.12936E+01_JPRB,0.12835E+01_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.13109E+01_JPRB,0.13494E+01_JPRB,0.14540E+01_JPRB,0.15085E+01_JPRB,0.15139E+01_JPRB, &
+ & 0.14784E+01_JPRB,0.14019E+01_JPRB,0.13047E+01_JPRB,0.12968E+01_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.12956E+01_JPRB,0.13371E+01_JPRB,0.14504E+01_JPRB,0.15092E+01_JPRB,0.15192E+01_JPRB, &
+ & 0.14835E+01_JPRB,0.14094E+01_JPRB,0.13136E+01_JPRB,0.13076E+01_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.12784E+01_JPRB,0.13237E+01_JPRB,0.14435E+01_JPRB,0.15071E+01_JPRB,0.15234E+01_JPRB, &
+ & 0.14905E+01_JPRB,0.14145E+01_JPRB,0.13190E+01_JPRB,0.13139E+01_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.12607E+01_JPRB,0.13090E+01_JPRB,0.14344E+01_JPRB,0.15038E+01_JPRB,0.15261E+01_JPRB, &
+ & 0.14956E+01_JPRB,0.14181E+01_JPRB,0.13210E+01_JPRB,0.13178E+01_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.12047E+01_JPRB,0.12789E+01_JPRB,0.13923E+01_JPRB,0.14530E+01_JPRB,0.14659E+01_JPRB, &
+ & 0.14483E+01_JPRB,0.13898E+01_JPRB,0.12749E+01_JPRB,0.12386E+01_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.11911E+01_JPRB,0.12701E+01_JPRB,0.13902E+01_JPRB,0.14549E+01_JPRB,0.14710E+01_JPRB, &
+ & 0.14517E+01_JPRB,0.13981E+01_JPRB,0.12874E+01_JPRB,0.12546E+01_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.11768E+01_JPRB,0.12599E+01_JPRB,0.13852E+01_JPRB,0.14552E+01_JPRB,0.14760E+01_JPRB, &
+ & 0.14581E+01_JPRB,0.14056E+01_JPRB,0.12968E+01_JPRB,0.12644E+01_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.11609E+01_JPRB,0.12491E+01_JPRB,0.13785E+01_JPRB,0.14542E+01_JPRB,0.14794E+01_JPRB, &
+ & 0.14643E+01_JPRB,0.14106E+01_JPRB,0.13015E+01_JPRB,0.12707E+01_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.11453E+01_JPRB,0.12370E+01_JPRB,0.13722E+01_JPRB,0.14526E+01_JPRB,0.14820E+01_JPRB, &
+ & 0.14680E+01_JPRB,0.14139E+01_JPRB,0.13041E+01_JPRB,0.12775E+01_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.10892E+01_JPRB,0.11978E+01_JPRB,0.13175E+01_JPRB,0.13800E+01_JPRB,0.14113E+01_JPRB, &
+ & 0.14104E+01_JPRB,0.13697E+01_JPRB,0.12563E+01_JPRB,0.11895E+01_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.10764E+01_JPRB,0.11912E+01_JPRB,0.13142E+01_JPRB,0.13828E+01_JPRB,0.14151E+01_JPRB, &
+ & 0.14161E+01_JPRB,0.13800E+01_JPRB,0.12704E+01_JPRB,0.12046E+01_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.10634E+01_JPRB,0.11835E+01_JPRB,0.13099E+01_JPRB,0.13835E+01_JPRB,0.14196E+01_JPRB, &
+ & 0.14241E+01_JPRB,0.13887E+01_JPRB,0.12786E+01_JPRB,0.12148E+01_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.10495E+01_JPRB,0.11751E+01_JPRB,0.13057E+01_JPRB,0.13846E+01_JPRB,0.14230E+01_JPRB, &
+ & 0.14300E+01_JPRB,0.13945E+01_JPRB,0.12836E+01_JPRB,0.12244E+01_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.10406E+01_JPRB,0.11650E+01_JPRB,0.13011E+01_JPRB,0.13864E+01_JPRB,0.14254E+01_JPRB, &
+ & 0.14322E+01_JPRB,0.13980E+01_JPRB,0.12878E+01_JPRB,0.12342E+01_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.97671E+00_JPRB,0.11194E+01_JPRB,0.12352E+01_JPRB,0.13029E+01_JPRB,0.13468E+01_JPRB, &
+ & 0.13623E+01_JPRB,0.13355E+01_JPRB,0.12363E+01_JPRB,0.11351E+01_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.96514E+00_JPRB,0.11135E+01_JPRB,0.12326E+01_JPRB,0.13049E+01_JPRB,0.13523E+01_JPRB, &
+ & 0.13721E+01_JPRB,0.13488E+01_JPRB,0.12496E+01_JPRB,0.11500E+01_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.95350E+00_JPRB,0.11073E+01_JPRB,0.12308E+01_JPRB,0.13063E+01_JPRB,0.13575E+01_JPRB, &
+ & 0.13815E+01_JPRB,0.13588E+01_JPRB,0.12584E+01_JPRB,0.11629E+01_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.94648E+00_JPRB,0.11002E+01_JPRB,0.12294E+01_JPRB,0.13087E+01_JPRB,0.13617E+01_JPRB, &
+ & 0.13873E+01_JPRB,0.13660E+01_JPRB,0.12653E+01_JPRB,0.11761E+01_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.94953E+00_JPRB,0.10941E+01_JPRB,0.12277E+01_JPRB,0.13116E+01_JPRB,0.13645E+01_JPRB, &
+ & 0.13901E+01_JPRB,0.13713E+01_JPRB,0.12717E+01_JPRB,0.11896E+01_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.21877E+01_JPRB,0.19168E+01_JPRB,0.16830E+01_JPRB,0.16306E+01_JPRB,0.15763E+01_JPRB, &
+ & 0.15398E+01_JPRB,0.15859E+01_JPRB,0.18468E+01_JPRB,0.20593E+01_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.22022E+01_JPRB,0.19296E+01_JPRB,0.16916E+01_JPRB,0.16400E+01_JPRB,0.15796E+01_JPRB, &
+ & 0.15432E+01_JPRB,0.15912E+01_JPRB,0.18534E+01_JPRB,0.20655E+01_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.22022E+01_JPRB,0.19297E+01_JPRB,0.16911E+01_JPRB,0.16436E+01_JPRB,0.15885E+01_JPRB, &
+ & 0.15469E+01_JPRB,0.15941E+01_JPRB,0.18569E+01_JPRB,0.20695E+01_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.21895E+01_JPRB,0.19186E+01_JPRB,0.16803E+01_JPRB,0.16425E+01_JPRB,0.15962E+01_JPRB, &
+ & 0.15525E+01_JPRB,0.15947E+01_JPRB,0.18575E+01_JPRB,0.20703E+01_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.21697E+01_JPRB,0.19013E+01_JPRB,0.16648E+01_JPRB,0.16344E+01_JPRB,0.16003E+01_JPRB, &
+ & 0.15574E+01_JPRB,0.15941E+01_JPRB,0.18572E+01_JPRB,0.20709E+01_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.22550E+01_JPRB,0.19753E+01_JPRB,0.17734E+01_JPRB,0.17443E+01_JPRB,0.17102E+01_JPRB, &
+ & 0.16986E+01_JPRB,0.17217E+01_JPRB,0.19863E+01_JPRB,0.22329E+01_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.22679E+01_JPRB,0.19867E+01_JPRB,0.17791E+01_JPRB,0.17520E+01_JPRB,0.17112E+01_JPRB, &
+ & 0.17026E+01_JPRB,0.17283E+01_JPRB,0.19934E+01_JPRB,0.22409E+01_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.22698E+01_JPRB,0.19883E+01_JPRB,0.17767E+01_JPRB,0.17568E+01_JPRB,0.17174E+01_JPRB, &
+ & 0.17053E+01_JPRB,0.17318E+01_JPRB,0.19966E+01_JPRB,0.22448E+01_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.22597E+01_JPRB,0.19796E+01_JPRB,0.17668E+01_JPRB,0.17548E+01_JPRB,0.17261E+01_JPRB, &
+ & 0.17073E+01_JPRB,0.17314E+01_JPRB,0.19968E+01_JPRB,0.22451E+01_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.22409E+01_JPRB,0.19632E+01_JPRB,0.17511E+01_JPRB,0.17475E+01_JPRB,0.17318E+01_JPRB, &
+ & 0.17099E+01_JPRB,0.17295E+01_JPRB,0.19947E+01_JPRB,0.22431E+01_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.23526E+01_JPRB,0.20603E+01_JPRB,0.18829E+01_JPRB,0.18493E+01_JPRB,0.18420E+01_JPRB, &
+ & 0.18637E+01_JPRB,0.18729E+01_JPRB,0.21122E+01_JPRB,0.23977E+01_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.23692E+01_JPRB,0.20749E+01_JPRB,0.18925E+01_JPRB,0.18515E+01_JPRB,0.18400E+01_JPRB, &
+ & 0.18683E+01_JPRB,0.18793E+01_JPRB,0.21211E+01_JPRB,0.24079E+01_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.23722E+01_JPRB,0.20775E+01_JPRB,0.18924E+01_JPRB,0.18562E+01_JPRB,0.18451E+01_JPRB, &
+ & 0.18704E+01_JPRB,0.18820E+01_JPRB,0.21249E+01_JPRB,0.24125E+01_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.23635E+01_JPRB,0.20699E+01_JPRB,0.18842E+01_JPRB,0.18555E+01_JPRB,0.18524E+01_JPRB, &
+ & 0.18695E+01_JPRB,0.18827E+01_JPRB,0.21252E+01_JPRB,0.24130E+01_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.23480E+01_JPRB,0.20564E+01_JPRB,0.18701E+01_JPRB,0.18499E+01_JPRB,0.18587E+01_JPRB, &
+ & 0.18689E+01_JPRB,0.18824E+01_JPRB,0.21250E+01_JPRB,0.24123E+01_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.24939E+01_JPRB,0.21837E+01_JPRB,0.20232E+01_JPRB,0.19589E+01_JPRB,0.19737E+01_JPRB, &
+ & 0.20251E+01_JPRB,0.20263E+01_JPRB,0.22145E+01_JPRB,0.25248E+01_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.25110E+01_JPRB,0.21986E+01_JPRB,0.20314E+01_JPRB,0.19589E+01_JPRB,0.19697E+01_JPRB, &
+ & 0.20307E+01_JPRB,0.20352E+01_JPRB,0.22253E+01_JPRB,0.25374E+01_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.25161E+01_JPRB,0.22032E+01_JPRB,0.20346E+01_JPRB,0.19625E+01_JPRB,0.19727E+01_JPRB, &
+ & 0.20334E+01_JPRB,0.20403E+01_JPRB,0.22301E+01_JPRB,0.25429E+01_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.25095E+01_JPRB,0.21974E+01_JPRB,0.20283E+01_JPRB,0.19657E+01_JPRB,0.19780E+01_JPRB, &
+ & 0.20313E+01_JPRB,0.20420E+01_JPRB,0.22330E+01_JPRB,0.25458E+01_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.24957E+01_JPRB,0.21853E+01_JPRB,0.20162E+01_JPRB,0.19613E+01_JPRB,0.19825E+01_JPRB, &
+ & 0.20289E+01_JPRB,0.20423E+01_JPRB,0.22370E+01_JPRB,0.25500E+01_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.26637E+01_JPRB,0.23330E+01_JPRB,0.21864E+01_JPRB,0.20904E+01_JPRB,0.21013E+01_JPRB, &
+ & 0.21699E+01_JPRB,0.21691E+01_JPRB,0.22859E+01_JPRB,0.26102E+01_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.26795E+01_JPRB,0.23466E+01_JPRB,0.21930E+01_JPRB,0.20883E+01_JPRB,0.21007E+01_JPRB, &
+ & 0.21775E+01_JPRB,0.21807E+01_JPRB,0.22957E+01_JPRB,0.26216E+01_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.26872E+01_JPRB,0.23531E+01_JPRB,0.22001E+01_JPRB,0.20926E+01_JPRB,0.21029E+01_JPRB, &
+ & 0.21797E+01_JPRB,0.21879E+01_JPRB,0.23020E+01_JPRB,0.26289E+01_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.26803E+01_JPRB,0.23471E+01_JPRB,0.21948E+01_JPRB,0.20970E+01_JPRB,0.21069E+01_JPRB, &
+ & 0.21770E+01_JPRB,0.21901E+01_JPRB,0.23087E+01_JPRB,0.26364E+01_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.26667E+01_JPRB,0.23351E+01_JPRB,0.21832E+01_JPRB,0.20959E+01_JPRB,0.21091E+01_JPRB, &
+ & 0.21729E+01_JPRB,0.21936E+01_JPRB,0.23158E+01_JPRB,0.26444E+01_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.28246E+01_JPRB,0.24844E+01_JPRB,0.23554E+01_JPRB,0.22494E+01_JPRB,0.22325E+01_JPRB, &
+ & 0.22877E+01_JPRB,0.22925E+01_JPRB,0.23319E+01_JPRB,0.26619E+01_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.28376E+01_JPRB,0.24941E+01_JPRB,0.23589E+01_JPRB,0.22458E+01_JPRB,0.22369E+01_JPRB, &
+ & 0.22959E+01_JPRB,0.23048E+01_JPRB,0.23408E+01_JPRB,0.26720E+01_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.28468E+01_JPRB,0.25010E+01_JPRB,0.23646E+01_JPRB,0.22473E+01_JPRB,0.22379E+01_JPRB, &
+ & 0.22992E+01_JPRB,0.23116E+01_JPRB,0.23486E+01_JPRB,0.26812E+01_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.28432E+01_JPRB,0.24967E+01_JPRB,0.23643E+01_JPRB,0.22531E+01_JPRB,0.22409E+01_JPRB, &
+ & 0.22981E+01_JPRB,0.23157E+01_JPRB,0.23572E+01_JPRB,0.26911E+01_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.28266E+01_JPRB,0.24816E+01_JPRB,0.23521E+01_JPRB,0.22549E+01_JPRB,0.22433E+01_JPRB, &
+ & 0.22953E+01_JPRB,0.23213E+01_JPRB,0.23655E+01_JPRB,0.27010E+01_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.29507E+01_JPRB,0.26186E+01_JPRB,0.25154E+01_JPRB,0.24214E+01_JPRB,0.23698E+01_JPRB, &
+ & 0.23809E+01_JPRB,0.23936E+01_JPRB,0.23723E+01_JPRB,0.26904E+01_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.29579E+01_JPRB,0.26218E+01_JPRB,0.25131E+01_JPRB,0.24179E+01_JPRB,0.23791E+01_JPRB, &
+ & 0.23895E+01_JPRB,0.24036E+01_JPRB,0.23830E+01_JPRB,0.27026E+01_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.29645E+01_JPRB,0.26250E+01_JPRB,0.25156E+01_JPRB,0.24180E+01_JPRB,0.23828E+01_JPRB, &
+ & 0.23929E+01_JPRB,0.24104E+01_JPRB,0.23923E+01_JPRB,0.27131E+01_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.29630E+01_JPRB,0.26222E+01_JPRB,0.25142E+01_JPRB,0.24231E+01_JPRB,0.23851E+01_JPRB, &
+ & 0.23923E+01_JPRB,0.24170E+01_JPRB,0.24017E+01_JPRB,0.27241E+01_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.29476E+01_JPRB,0.26071E+01_JPRB,0.25053E+01_JPRB,0.24267E+01_JPRB,0.23855E+01_JPRB, &
+ & 0.23922E+01_JPRB,0.24228E+01_JPRB,0.24116E+01_JPRB,0.27361E+01_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.30283E+01_JPRB,0.27271E+01_JPRB,0.26499E+01_JPRB,0.25812E+01_JPRB,0.25068E+01_JPRB, &
+ & 0.24674E+01_JPRB,0.24700E+01_JPRB,0.24088E+01_JPRB,0.26873E+01_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.30302E+01_JPRB,0.27229E+01_JPRB,0.26429E+01_JPRB,0.25805E+01_JPRB,0.25199E+01_JPRB, &
+ & 0.24758E+01_JPRB,0.24797E+01_JPRB,0.24223E+01_JPRB,0.27017E+01_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.30313E+01_JPRB,0.27198E+01_JPRB,0.26386E+01_JPRB,0.25814E+01_JPRB,0.25257E+01_JPRB, &
+ & 0.24788E+01_JPRB,0.24874E+01_JPRB,0.24335E+01_JPRB,0.27156E+01_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.30296E+01_JPRB,0.27153E+01_JPRB,0.26358E+01_JPRB,0.25865E+01_JPRB,0.25285E+01_JPRB, &
+ & 0.24798E+01_JPRB,0.24941E+01_JPRB,0.24451E+01_JPRB,0.27296E+01_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.30139E+01_JPRB,0.26994E+01_JPRB,0.26290E+01_JPRB,0.25893E+01_JPRB,0.25296E+01_JPRB, &
+ & 0.24809E+01_JPRB,0.25004E+01_JPRB,0.24568E+01_JPRB,0.27436E+01_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.30493E+01_JPRB,0.27941E+01_JPRB,0.27550E+01_JPRB,0.27119E+01_JPRB,0.26405E+01_JPRB, &
+ & 0.25561E+01_JPRB,0.25144E+01_JPRB,0.24302E+01_JPRB,0.26456E+01_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.30457E+01_JPRB,0.27865E+01_JPRB,0.27445E+01_JPRB,0.27145E+01_JPRB,0.26540E+01_JPRB, &
+ & 0.25649E+01_JPRB,0.25264E+01_JPRB,0.24468E+01_JPRB,0.26636E+01_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.30433E+01_JPRB,0.27809E+01_JPRB,0.27367E+01_JPRB,0.27179E+01_JPRB,0.26606E+01_JPRB, &
+ & 0.25683E+01_JPRB,0.25354E+01_JPRB,0.24613E+01_JPRB,0.26815E+01_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.30389E+01_JPRB,0.27734E+01_JPRB,0.27309E+01_JPRB,0.27229E+01_JPRB,0.26627E+01_JPRB, &
+ & 0.25715E+01_JPRB,0.25441E+01_JPRB,0.24765E+01_JPRB,0.27005E+01_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.30246E+01_JPRB,0.27583E+01_JPRB,0.27239E+01_JPRB,0.27244E+01_JPRB,0.26642E+01_JPRB, &
+ & 0.25740E+01_JPRB,0.25518E+01_JPRB,0.24921E+01_JPRB,0.27199E+01_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.30121E+01_JPRB,0.28154E+01_JPRB,0.28201E+01_JPRB,0.28057E+01_JPRB,0.27531E+01_JPRB, &
+ & 0.26438E+01_JPRB,0.25360E+01_JPRB,0.24395E+01_JPRB,0.25814E+01_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.30058E+01_JPRB,0.28055E+01_JPRB,0.28091E+01_JPRB,0.28117E+01_JPRB,0.27659E+01_JPRB, &
+ & 0.26536E+01_JPRB,0.25505E+01_JPRB,0.24578E+01_JPRB,0.26020E+01_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.29984E+01_JPRB,0.27957E+01_JPRB,0.28033E+01_JPRB,0.28172E+01_JPRB,0.27717E+01_JPRB, &
+ & 0.26597E+01_JPRB,0.25631E+01_JPRB,0.24765E+01_JPRB,0.26239E+01_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.29909E+01_JPRB,0.27859E+01_JPRB,0.27980E+01_JPRB,0.28231E+01_JPRB,0.27737E+01_JPRB, &
+ & 0.26641E+01_JPRB,0.25752E+01_JPRB,0.24953E+01_JPRB,0.26473E+01_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.29757E+01_JPRB,0.27703E+01_JPRB,0.27906E+01_JPRB,0.28248E+01_JPRB,0.27751E+01_JPRB, &
+ & 0.26687E+01_JPRB,0.25862E+01_JPRB,0.25141E+01_JPRB,0.26704E+01_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.29105E+01_JPRB,0.27849E+01_JPRB,0.28418E+01_JPRB,0.28641E+01_JPRB,0.28368E+01_JPRB, &
+ & 0.27205E+01_JPRB,0.25555E+01_JPRB,0.24401E+01_JPRB,0.25196E+01_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.29013E+01_JPRB,0.27742E+01_JPRB,0.28363E+01_JPRB,0.28719E+01_JPRB,0.28460E+01_JPRB, &
+ & 0.27321E+01_JPRB,0.25730E+01_JPRB,0.24607E+01_JPRB,0.25412E+01_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.28911E+01_JPRB,0.27633E+01_JPRB,0.28321E+01_JPRB,0.28799E+01_JPRB,0.28506E+01_JPRB, &
+ & 0.27417E+01_JPRB,0.25892E+01_JPRB,0.24813E+01_JPRB,0.25665E+01_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.28805E+01_JPRB,0.27495E+01_JPRB,0.28275E+01_JPRB,0.28852E+01_JPRB,0.28551E+01_JPRB, &
+ & 0.27503E+01_JPRB,0.26048E+01_JPRB,0.25023E+01_JPRB,0.25905E+01_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.28607E+01_JPRB,0.27299E+01_JPRB,0.28179E+01_JPRB,0.28868E+01_JPRB,0.28597E+01_JPRB, &
+ & 0.27578E+01_JPRB,0.26198E+01_JPRB,0.25207E+01_JPRB,0.26120E+01_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.27583E+01_JPRB,0.27145E+01_JPRB,0.28231E+01_JPRB,0.28871E+01_JPRB,0.28764E+01_JPRB, &
+ & 0.27674E+01_JPRB,0.25743E+01_JPRB,0.24278E+01_JPRB,0.24570E+01_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.27477E+01_JPRB,0.27023E+01_JPRB,0.28226E+01_JPRB,0.28962E+01_JPRB,0.28884E+01_JPRB, &
+ & 0.27832E+01_JPRB,0.25939E+01_JPRB,0.24483E+01_JPRB,0.24817E+01_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.27363E+01_JPRB,0.26890E+01_JPRB,0.28229E+01_JPRB,0.29041E+01_JPRB,0.28966E+01_JPRB, &
+ & 0.27972E+01_JPRB,0.26117E+01_JPRB,0.24706E+01_JPRB,0.25053E+01_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.27215E+01_JPRB,0.26719E+01_JPRB,0.28199E+01_JPRB,0.29098E+01_JPRB,0.29044E+01_JPRB, &
+ & 0.28097E+01_JPRB,0.26305E+01_JPRB,0.24926E+01_JPRB,0.25297E+01_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.27019E+01_JPRB,0.26521E+01_JPRB,0.28123E+01_JPRB,0.29106E+01_JPRB,0.29127E+01_JPRB, &
+ & 0.28234E+01_JPRB,0.26485E+01_JPRB,0.25112E+01_JPRB,0.25512E+01_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.25703E+01_JPRB,0.26073E+01_JPRB,0.27736E+01_JPRB,0.28686E+01_JPRB,0.28762E+01_JPRB, &
+ & 0.27819E+01_JPRB,0.25967E+01_JPRB,0.24069E+01_JPRB,0.23967E+01_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.25597E+01_JPRB,0.25968E+01_JPRB,0.27777E+01_JPRB,0.28810E+01_JPRB,0.28904E+01_JPRB, &
+ & 0.28011E+01_JPRB,0.26158E+01_JPRB,0.24298E+01_JPRB,0.24224E+01_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.25492E+01_JPRB,0.25857E+01_JPRB,0.27800E+01_JPRB,0.28929E+01_JPRB,0.29040E+01_JPRB, &
+ & 0.28202E+01_JPRB,0.26351E+01_JPRB,0.24527E+01_JPRB,0.24494E+01_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.25336E+01_JPRB,0.25705E+01_JPRB,0.27801E+01_JPRB,0.29008E+01_JPRB,0.29182E+01_JPRB, &
+ & 0.28403E+01_JPRB,0.26542E+01_JPRB,0.24758E+01_JPRB,0.24745E+01_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.25174E+01_JPRB,0.25538E+01_JPRB,0.27760E+01_JPRB,0.29061E+01_JPRB,0.29321E+01_JPRB, &
+ & 0.28592E+01_JPRB,0.26728E+01_JPRB,0.24954E+01_JPRB,0.24962E+01_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.34915E+01_JPRB,0.30588E+01_JPRB,0.26262E+01_JPRB,0.23144E+01_JPRB,0.22122E+01_JPRB, &
+ & 0.21892E+01_JPRB,0.25558E+01_JPRB,0.29818E+01_JPRB,0.32991E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.35009E+01_JPRB,0.30672E+01_JPRB,0.26335E+01_JPRB,0.23059E+01_JPRB,0.22071E+01_JPRB, &
+ & 0.21796E+01_JPRB,0.25444E+01_JPRB,0.29683E+01_JPRB,0.32820E+01_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.35192E+01_JPRB,0.30832E+01_JPRB,0.26472E+01_JPRB,0.23037E+01_JPRB,0.22014E+01_JPRB, &
+ & 0.21706E+01_JPRB,0.25342E+01_JPRB,0.29565E+01_JPRB,0.32692E+01_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.35462E+01_JPRB,0.31069E+01_JPRB,0.26676E+01_JPRB,0.23054E+01_JPRB,0.21967E+01_JPRB, &
+ & 0.21619E+01_JPRB,0.25265E+01_JPRB,0.29475E+01_JPRB,0.32591E+01_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.35714E+01_JPRB,0.31290E+01_JPRB,0.26866E+01_JPRB,0.23141E+01_JPRB,0.21952E+01_JPRB, &
+ & 0.21552E+01_JPRB,0.25228E+01_JPRB,0.29432E+01_JPRB,0.32501E+01_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.38742E+01_JPRB,0.33939E+01_JPRB,0.29135E+01_JPRB,0.26368E+01_JPRB,0.25318E+01_JPRB, &
+ & 0.24566E+01_JPRB,0.27984E+01_JPRB,0.32648E+01_JPRB,0.36583E+01_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.38780E+01_JPRB,0.33972E+01_JPRB,0.29165E+01_JPRB,0.26245E+01_JPRB,0.25266E+01_JPRB, &
+ & 0.24447E+01_JPRB,0.27836E+01_JPRB,0.32475E+01_JPRB,0.36397E+01_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.38887E+01_JPRB,0.34066E+01_JPRB,0.29246E+01_JPRB,0.26139E+01_JPRB,0.25181E+01_JPRB, &
+ & 0.24355E+01_JPRB,0.27726E+01_JPRB,0.32346E+01_JPRB,0.36242E+01_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.39063E+01_JPRB,0.34220E+01_JPRB,0.29378E+01_JPRB,0.26094E+01_JPRB,0.25085E+01_JPRB, &
+ & 0.24291E+01_JPRB,0.27676E+01_JPRB,0.32288E+01_JPRB,0.36150E+01_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.39241E+01_JPRB,0.34376E+01_JPRB,0.29511E+01_JPRB,0.26073E+01_JPRB,0.25021E+01_JPRB, &
+ & 0.24243E+01_JPRB,0.27677E+01_JPRB,0.32289E+01_JPRB,0.36134E+01_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.42487E+01_JPRB,0.37216E+01_JPRB,0.32039E+01_JPRB,0.29799E+01_JPRB,0.28758E+01_JPRB, &
+ & 0.27551E+01_JPRB,0.30498E+01_JPRB,0.35581E+01_JPRB,0.40304E+01_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.42439E+01_JPRB,0.37174E+01_JPRB,0.31977E+01_JPRB,0.29675E+01_JPRB,0.28698E+01_JPRB, &
+ & 0.27440E+01_JPRB,0.30347E+01_JPRB,0.35405E+01_JPRB,0.40101E+01_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.42511E+01_JPRB,0.37238E+01_JPRB,0.32007E+01_JPRB,0.29528E+01_JPRB,0.28598E+01_JPRB, &
+ & 0.27364E+01_JPRB,0.30269E+01_JPRB,0.35313E+01_JPRB,0.39978E+01_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.42624E+01_JPRB,0.37337E+01_JPRB,0.32078E+01_JPRB,0.29428E+01_JPRB,0.28469E+01_JPRB, &
+ & 0.27311E+01_JPRB,0.30242E+01_JPRB,0.35281E+01_JPRB,0.39928E+01_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.42720E+01_JPRB,0.37420E+01_JPRB,0.32138E+01_JPRB,0.29343E+01_JPRB,0.28324E+01_JPRB, &
+ & 0.27276E+01_JPRB,0.30224E+01_JPRB,0.35261E+01_JPRB,0.39910E+01_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.45954E+01_JPRB,0.40249E+01_JPRB,0.35022E+01_JPRB,0.33403E+01_JPRB,0.32328E+01_JPRB, &
+ & 0.30833E+01_JPRB,0.33112E+01_JPRB,0.38621E+01_JPRB,0.43957E+01_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.45847E+01_JPRB,0.40157E+01_JPRB,0.34904E+01_JPRB,0.33265E+01_JPRB,0.32256E+01_JPRB, &
+ & 0.30748E+01_JPRB,0.32975E+01_JPRB,0.38466E+01_JPRB,0.43773E+01_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.45864E+01_JPRB,0.40172E+01_JPRB,0.34822E+01_JPRB,0.33081E+01_JPRB,0.32132E+01_JPRB, &
+ & 0.30693E+01_JPRB,0.32915E+01_JPRB,0.38399E+01_JPRB,0.43696E+01_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.45919E+01_JPRB,0.40220E+01_JPRB,0.34808E+01_JPRB,0.32873E+01_JPRB,0.31989E+01_JPRB, &
+ & 0.30656E+01_JPRB,0.32892E+01_JPRB,0.38374E+01_JPRB,0.43666E+01_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.45961E+01_JPRB,0.40254E+01_JPRB,0.34809E+01_JPRB,0.32746E+01_JPRB,0.31817E+01_JPRB, &
+ & 0.30639E+01_JPRB,0.32889E+01_JPRB,0.38370E+01_JPRB,0.43660E+01_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.49114E+01_JPRB,0.43012E+01_JPRB,0.38001E+01_JPRB,0.37007E+01_JPRB,0.36023E+01_JPRB, &
+ & 0.34476E+01_JPRB,0.35973E+01_JPRB,0.41814E+01_JPRB,0.47692E+01_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.49023E+01_JPRB,0.42934E+01_JPRB,0.37862E+01_JPRB,0.36850E+01_JPRB,0.35912E+01_JPRB, &
+ & 0.34412E+01_JPRB,0.35890E+01_JPRB,0.41727E+01_JPRB,0.47592E+01_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.48929E+01_JPRB,0.42852E+01_JPRB,0.37666E+01_JPRB,0.36647E+01_JPRB,0.35739E+01_JPRB, &
+ & 0.34368E+01_JPRB,0.35843E+01_JPRB,0.41678E+01_JPRB,0.47530E+01_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.48957E+01_JPRB,0.42875E+01_JPRB,0.37577E+01_JPRB,0.36399E+01_JPRB,0.35570E+01_JPRB, &
+ & 0.34352E+01_JPRB,0.35822E+01_JPRB,0.41658E+01_JPRB,0.47507E+01_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.48955E+01_JPRB,0.42870E+01_JPRB,0.37502E+01_JPRB,0.36181E+01_JPRB,0.35379E+01_JPRB, &
+ & 0.34333E+01_JPRB,0.35807E+01_JPRB,0.41639E+01_JPRB,0.47483E+01_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.52336E+01_JPRB,0.45828E+01_JPRB,0.41059E+01_JPRB,0.40455E+01_JPRB,0.39709E+01_JPRB, &
+ & 0.38438E+01_JPRB,0.39195E+01_JPRB,0.45101E+01_JPRB,0.51488E+01_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.52264E+01_JPRB,0.45766E+01_JPRB,0.40903E+01_JPRB,0.40272E+01_JPRB,0.39556E+01_JPRB, &
+ & 0.38368E+01_JPRB,0.39154E+01_JPRB,0.45074E+01_JPRB,0.51460E+01_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.52116E+01_JPRB,0.45637E+01_JPRB,0.40682E+01_JPRB,0.40069E+01_JPRB,0.39387E+01_JPRB, &
+ & 0.38311E+01_JPRB,0.39117E+01_JPRB,0.45034E+01_JPRB,0.51413E+01_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.52061E+01_JPRB,0.45585E+01_JPRB,0.40484E+01_JPRB,0.39793E+01_JPRB,0.39195E+01_JPRB, &
+ & 0.38275E+01_JPRB,0.39110E+01_JPRB,0.45018E+01_JPRB,0.51396E+01_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.52033E+01_JPRB,0.45559E+01_JPRB,0.40356E+01_JPRB,0.39520E+01_JPRB,0.38983E+01_JPRB, &
+ & 0.38238E+01_JPRB,0.39105E+01_JPRB,0.45008E+01_JPRB,0.51385E+01_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.55789E+01_JPRB,0.48845E+01_JPRB,0.44392E+01_JPRB,0.43787E+01_JPRB,0.43341E+01_JPRB, &
+ & 0.42496E+01_JPRB,0.42580E+01_JPRB,0.48177E+01_JPRB,0.55034E+01_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.55750E+01_JPRB,0.48811E+01_JPRB,0.44216E+01_JPRB,0.43602E+01_JPRB,0.43147E+01_JPRB, &
+ & 0.42460E+01_JPRB,0.42594E+01_JPRB,0.48202E+01_JPRB,0.55064E+01_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.55641E+01_JPRB,0.48716E+01_JPRB,0.43996E+01_JPRB,0.43387E+01_JPRB,0.42975E+01_JPRB, &
+ & 0.42414E+01_JPRB,0.42613E+01_JPRB,0.48234E+01_JPRB,0.55098E+01_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.55497E+01_JPRB,0.48588E+01_JPRB,0.43740E+01_JPRB,0.43098E+01_JPRB,0.42767E+01_JPRB, &
+ & 0.42365E+01_JPRB,0.42657E+01_JPRB,0.48283E+01_JPRB,0.55153E+01_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.55426E+01_JPRB,0.48524E+01_JPRB,0.43530E+01_JPRB,0.42800E+01_JPRB,0.42577E+01_JPRB, &
+ & 0.42309E+01_JPRB,0.42668E+01_JPRB,0.48295E+01_JPRB,0.55168E+01_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.59399E+01_JPRB,0.51999E+01_JPRB,0.48042E+01_JPRB,0.47185E+01_JPRB,0.46865E+01_JPRB, &
+ & 0.46496E+01_JPRB,0.46000E+01_JPRB,0.50897E+01_JPRB,0.58161E+01_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.59397E+01_JPRB,0.51999E+01_JPRB,0.47874E+01_JPRB,0.46998E+01_JPRB,0.46665E+01_JPRB, &
+ & 0.46493E+01_JPRB,0.46097E+01_JPRB,0.50997E+01_JPRB,0.58275E+01_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.59349E+01_JPRB,0.51955E+01_JPRB,0.47656E+01_JPRB,0.46767E+01_JPRB,0.46485E+01_JPRB, &
+ & 0.46473E+01_JPRB,0.46203E+01_JPRB,0.51120E+01_JPRB,0.58414E+01_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.59186E+01_JPRB,0.51811E+01_JPRB,0.47381E+01_JPRB,0.46470E+01_JPRB,0.46283E+01_JPRB, &
+ & 0.46432E+01_JPRB,0.46335E+01_JPRB,0.51262E+01_JPRB,0.58574E+01_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.59097E+01_JPRB,0.51733E+01_JPRB,0.47110E+01_JPRB,0.46158E+01_JPRB,0.46095E+01_JPRB, &
+ & 0.46379E+01_JPRB,0.46369E+01_JPRB,0.51321E+01_JPRB,0.58644E+01_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.63127E+01_JPRB,0.55322E+01_JPRB,0.51834E+01_JPRB,0.50691E+01_JPRB,0.50247E+01_JPRB, &
+ & 0.50209E+01_JPRB,0.49367E+01_JPRB,0.53236E+01_JPRB,0.60842E+01_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.63183E+01_JPRB,0.55346E+01_JPRB,0.51727E+01_JPRB,0.50532E+01_JPRB,0.50080E+01_JPRB, &
+ & 0.50274E+01_JPRB,0.49592E+01_JPRB,0.53436E+01_JPRB,0.61069E+01_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.63124E+01_JPRB,0.55272E+01_JPRB,0.51546E+01_JPRB,0.50297E+01_JPRB,0.49909E+01_JPRB, &
+ & 0.50310E+01_JPRB,0.49812E+01_JPRB,0.53668E+01_JPRB,0.61332E+01_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.63001E+01_JPRB,0.55154E+01_JPRB,0.51286E+01_JPRB,0.50009E+01_JPRB,0.49750E+01_JPRB, &
+ & 0.50299E+01_JPRB,0.49995E+01_JPRB,0.53888E+01_JPRB,0.61587E+01_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.62858E+01_JPRB,0.55023E+01_JPRB,0.50977E+01_JPRB,0.49708E+01_JPRB,0.49573E+01_JPRB, &
+ & 0.50270E+01_JPRB,0.50058E+01_JPRB,0.53988E+01_JPRB,0.61697E+01_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.66894E+01_JPRB,0.58832E+01_JPRB,0.55701E+01_JPRB,0.54237E+01_JPRB,0.53594E+01_JPRB, &
+ & 0.53556E+01_JPRB,0.52686E+01_JPRB,0.55192E+01_JPRB,0.63037E+01_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.66981E+01_JPRB,0.58851E+01_JPRB,0.55643E+01_JPRB,0.54120E+01_JPRB,0.53500E+01_JPRB, &
+ & 0.53705E+01_JPRB,0.53019E+01_JPRB,0.55500E+01_JPRB,0.63389E+01_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.66967E+01_JPRB,0.58795E+01_JPRB,0.55464E+01_JPRB,0.53921E+01_JPRB,0.53372E+01_JPRB, &
+ & 0.53796E+01_JPRB,0.53288E+01_JPRB,0.55798E+01_JPRB,0.63734E+01_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.66854E+01_JPRB,0.58646E+01_JPRB,0.55228E+01_JPRB,0.53676E+01_JPRB,0.53254E+01_JPRB, &
+ & 0.53837E+01_JPRB,0.53529E+01_JPRB,0.56104E+01_JPRB,0.64086E+01_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.66717E+01_JPRB,0.58486E+01_JPRB,0.54914E+01_JPRB,0.53392E+01_JPRB,0.53082E+01_JPRB, &
+ & 0.53849E+01_JPRB,0.53627E+01_JPRB,0.56270E+01_JPRB,0.64281E+01_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.70715E+01_JPRB,0.62495E+01_JPRB,0.59582E+01_JPRB,0.57869E+01_JPRB,0.56930E+01_JPRB, &
+ & 0.56655E+01_JPRB,0.56036E+01_JPRB,0.57057E+01_JPRB,0.64838E+01_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.70771E+01_JPRB,0.62459E+01_JPRB,0.59461E+01_JPRB,0.57734E+01_JPRB,0.56903E+01_JPRB, &
+ & 0.56860E+01_JPRB,0.56380E+01_JPRB,0.57455E+01_JPRB,0.65310E+01_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.70723E+01_JPRB,0.62337E+01_JPRB,0.59291E+01_JPRB,0.57507E+01_JPRB,0.56859E+01_JPRB, &
+ & 0.56988E+01_JPRB,0.56691E+01_JPRB,0.57882E+01_JPRB,0.65837E+01_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.70579E+01_JPRB,0.62141E+01_JPRB,0.59017E+01_JPRB,0.57243E+01_JPRB,0.56747E+01_JPRB, &
+ & 0.57061E+01_JPRB,0.56917E+01_JPRB,0.58206E+01_JPRB,0.66248E+01_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.70436E+01_JPRB,0.61942E+01_JPRB,0.58711E+01_JPRB,0.56953E+01_JPRB,0.56563E+01_JPRB, &
+ & 0.57095E+01_JPRB,0.57007E+01_JPRB,0.58439E+01_JPRB,0.66547E+01_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.73996E+01_JPRB,0.65875E+01_JPRB,0.63444E+01_JPRB,0.61468E+01_JPRB,0.60255E+01_JPRB, &
+ & 0.59627E+01_JPRB,0.59009E+01_JPRB,0.58767E+01_JPRB,0.66113E+01_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.74059E+01_JPRB,0.65818E+01_JPRB,0.63297E+01_JPRB,0.61319E+01_JPRB,0.60289E+01_JPRB, &
+ & 0.59857E+01_JPRB,0.59393E+01_JPRB,0.59291E+01_JPRB,0.66795E+01_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.73985E+01_JPRB,0.65639E+01_JPRB,0.63058E+01_JPRB,0.61104E+01_JPRB,0.60278E+01_JPRB, &
+ & 0.60017E+01_JPRB,0.59765E+01_JPRB,0.59805E+01_JPRB,0.67466E+01_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.73888E+01_JPRB,0.65439E+01_JPRB,0.62733E+01_JPRB,0.60850E+01_JPRB,0.60189E+01_JPRB, &
+ & 0.60123E+01_JPRB,0.59968E+01_JPRB,0.60157E+01_JPRB,0.67935E+01_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.73717E+01_JPRB,0.65185E+01_JPRB,0.62375E+01_JPRB,0.60536E+01_JPRB,0.59983E+01_JPRB, &
+ & 0.60180E+01_JPRB,0.60067E+01_JPRB,0.60456E+01_JPRB,0.68365E+01_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.76469E+01_JPRB,0.68731E+01_JPRB,0.66871E+01_JPRB,0.64997E+01_JPRB,0.63502E+01_JPRB, &
+ & 0.62466E+01_JPRB,0.61469E+01_JPRB,0.60253E+01_JPRB,0.66908E+01_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.76513E+01_JPRB,0.68603E+01_JPRB,0.66717E+01_JPRB,0.64853E+01_JPRB,0.63628E+01_JPRB, &
+ & 0.62754E+01_JPRB,0.61942E+01_JPRB,0.60911E+01_JPRB,0.67781E+01_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.76480E+01_JPRB,0.68404E+01_JPRB,0.66430E+01_JPRB,0.64664E+01_JPRB,0.63629E+01_JPRB, &
+ & 0.62938E+01_JPRB,0.62370E+01_JPRB,0.61432E+01_JPRB,0.68460E+01_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.76417E+01_JPRB,0.68180E+01_JPRB,0.66082E+01_JPRB,0.64389E+01_JPRB,0.63512E+01_JPRB, &
+ & 0.63082E+01_JPRB,0.62633E+01_JPRB,0.61842E+01_JPRB,0.69071E+01_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.76283E+01_JPRB,0.67918E+01_JPRB,0.65683E+01_JPRB,0.64071E+01_JPRB,0.63329E+01_JPRB, &
+ & 0.63131E+01_JPRB,0.62779E+01_JPRB,0.62184E+01_JPRB,0.69616E+01_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.48056E+01_JPRB,0.42094E+01_JPRB,0.36132E+01_JPRB,0.30171E+01_JPRB,0.28404E+01_JPRB, &
+ & 0.34490E+01_JPRB,0.41388E+01_JPRB,0.48284E+01_JPRB,0.52314E+01_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.48171E+01_JPRB,0.42194E+01_JPRB,0.36219E+01_JPRB,0.30243E+01_JPRB,0.28141E+01_JPRB, &
+ & 0.34073E+01_JPRB,0.40887E+01_JPRB,0.47701E+01_JPRB,0.51637E+01_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.48231E+01_JPRB,0.42245E+01_JPRB,0.36259E+01_JPRB,0.30275E+01_JPRB,0.27871E+01_JPRB, &
+ & 0.33709E+01_JPRB,0.40450E+01_JPRB,0.47190E+01_JPRB,0.51029E+01_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.48223E+01_JPRB,0.42236E+01_JPRB,0.36250E+01_JPRB,0.30265E+01_JPRB,0.27616E+01_JPRB, &
+ & 0.33346E+01_JPRB,0.40014E+01_JPRB,0.46682E+01_JPRB,0.50473E+01_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.48164E+01_JPRB,0.42183E+01_JPRB,0.36202E+01_JPRB,0.30224E+01_JPRB,0.27378E+01_JPRB, &
+ & 0.32980E+01_JPRB,0.39575E+01_JPRB,0.46170E+01_JPRB,0.49922E+01_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.56696E+01_JPRB,0.49649E+01_JPRB,0.42601E+01_JPRB,0.35603E+01_JPRB,0.33660E+01_JPRB, &
+ & 0.40230E+01_JPRB,0.48275E+01_JPRB,0.56320E+01_JPRB,0.62204E+01_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.56853E+01_JPRB,0.49788E+01_JPRB,0.42721E+01_JPRB,0.35690E+01_JPRB,0.33370E+01_JPRB, &
+ & 0.39815E+01_JPRB,0.47778E+01_JPRB,0.55740E+01_JPRB,0.61522E+01_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.56912E+01_JPRB,0.49841E+01_JPRB,0.42769E+01_JPRB,0.35723E+01_JPRB,0.33088E+01_JPRB, &
+ & 0.39404E+01_JPRB,0.47285E+01_JPRB,0.55164E+01_JPRB,0.60886E+01_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.56900E+01_JPRB,0.49829E+01_JPRB,0.42759E+01_JPRB,0.35705E+01_JPRB,0.32819E+01_JPRB, &
+ & 0.38975E+01_JPRB,0.46769E+01_JPRB,0.54563E+01_JPRB,0.60227E+01_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.56828E+01_JPRB,0.49765E+01_JPRB,0.42703E+01_JPRB,0.35653E+01_JPRB,0.32552E+01_JPRB, &
+ & 0.38520E+01_JPRB,0.46223E+01_JPRB,0.53926E+01_JPRB,0.59537E+01_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.66640E+01_JPRB,0.58345E+01_JPRB,0.50050E+01_JPRB,0.41960E+01_JPRB,0.39837E+01_JPRB, &
+ & 0.46765E+01_JPRB,0.56117E+01_JPRB,0.65468E+01_JPRB,0.73624E+01_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.66851E+01_JPRB,0.58530E+01_JPRB,0.50209E+01_JPRB,0.42035E+01_JPRB,0.39538E+01_JPRB, &
+ & 0.46274E+01_JPRB,0.55528E+01_JPRB,0.64781E+01_JPRB,0.72849E+01_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.66916E+01_JPRB,0.58588E+01_JPRB,0.50261E+01_JPRB,0.42046E+01_JPRB,0.39240E+01_JPRB, &
+ & 0.45763E+01_JPRB,0.54915E+01_JPRB,0.64066E+01_JPRB,0.72060E+01_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.66884E+01_JPRB,0.58563E+01_JPRB,0.50241E+01_JPRB,0.42004E+01_JPRB,0.38957E+01_JPRB, &
+ & 0.45225E+01_JPRB,0.54270E+01_JPRB,0.63313E+01_JPRB,0.71219E+01_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.66766E+01_JPRB,0.58462E+01_JPRB,0.50163E+01_JPRB,0.41933E+01_JPRB,0.38675E+01_JPRB, &
+ & 0.44702E+01_JPRB,0.53642E+01_JPRB,0.62581E+01_JPRB,0.70387E+01_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.77848E+01_JPRB,0.68149E+01_JPRB,0.58451E+01_JPRB,0.49331E+01_JPRB,0.46977E+01_JPRB, &
+ & 0.54033E+01_JPRB,0.64839E+01_JPRB,0.75644E+01_JPRB,0.85830E+01_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.78108E+01_JPRB,0.68377E+01_JPRB,0.58646E+01_JPRB,0.49375E+01_JPRB,0.46695E+01_JPRB, &
+ & 0.53453E+01_JPRB,0.64143E+01_JPRB,0.74831E+01_JPRB,0.84915E+01_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.78236E+01_JPRB,0.68489E+01_JPRB,0.58743E+01_JPRB,0.49373E+01_JPRB,0.46417E+01_JPRB, &
+ & 0.52821E+01_JPRB,0.63384E+01_JPRB,0.73947E+01_JPRB,0.83915E+01_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.78238E+01_JPRB,0.68493E+01_JPRB,0.58748E+01_JPRB,0.49301E+01_JPRB,0.46103E+01_JPRB, &
+ & 0.52166E+01_JPRB,0.62599E+01_JPRB,0.73031E+01_JPRB,0.82871E+01_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.78090E+01_JPRB,0.68373E+01_JPRB,0.58658E+01_JPRB,0.49180E+01_JPRB,0.45786E+01_JPRB, &
+ & 0.51516E+01_JPRB,0.61819E+01_JPRB,0.72121E+01_JPRB,0.81837E+01_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.90367E+01_JPRB,0.79101E+01_JPRB,0.67835E+01_JPRB,0.57840E+01_JPRB,0.55090E+01_JPRB, &
+ & 0.61816E+01_JPRB,0.74174E+01_JPRB,0.86536E+01_JPRB,0.98560E+01_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.90658E+01_JPRB,0.79355E+01_JPRB,0.68052E+01_JPRB,0.57840E+01_JPRB,0.54825E+01_JPRB, &
+ & 0.61122E+01_JPRB,0.73329E+01_JPRB,0.85548E+01_JPRB,0.97452E+01_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.90837E+01_JPRB,0.79512E+01_JPRB,0.68188E+01_JPRB,0.57766E+01_JPRB,0.54581E+01_JPRB, &
+ & 0.60426E+01_JPRB,0.72485E+01_JPRB,0.84564E+01_JPRB,0.96328E+01_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.90830E+01_JPRB,0.79510E+01_JPRB,0.68192E+01_JPRB,0.57645E+01_JPRB,0.54297E+01_JPRB, &
+ & 0.59729E+01_JPRB,0.71644E+01_JPRB,0.83583E+01_JPRB,0.95205E+01_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.90677E+01_JPRB,0.79386E+01_JPRB,0.68094E+01_JPRB,0.57479E+01_JPRB,0.53962E+01_JPRB, &
+ & 0.58998E+01_JPRB,0.70740E+01_JPRB,0.82528E+01_JPRB,0.94008E+01_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.10412E+02_JPRB,0.91128E+01_JPRB,0.78140E+01_JPRB,0.67504E+01_JPRB,0.64389E+01_JPRB, &
+ & 0.70217E+01_JPRB,0.83899E+01_JPRB,0.97882E+01_JPRB,0.11168E+02_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.10449E+02_JPRB,0.91451E+01_JPRB,0.78417E+01_JPRB,0.67466E+01_JPRB,0.64110E+01_JPRB, &
+ & 0.69507E+01_JPRB,0.82964E+01_JPRB,0.96789E+01_JPRB,0.11043E+02_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.10469E+02_JPRB,0.91634E+01_JPRB,0.78574E+01_JPRB,0.67323E+01_JPRB,0.63834E+01_JPRB, &
+ & 0.68804E+01_JPRB,0.82097E+01_JPRB,0.95778E+01_JPRB,0.10928E+02_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.10466E+02_JPRB,0.91614E+01_JPRB,0.78568E+01_JPRB,0.67135E+01_JPRB,0.63530E+01_JPRB, &
+ & 0.68083E+01_JPRB,0.81167E+01_JPRB,0.94694E+01_JPRB,0.10805E+02_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.10450E+02_JPRB,0.91481E+01_JPRB,0.78461E+01_JPRB,0.66866E+01_JPRB,0.63182E+01_JPRB, &
+ & 0.67317E+01_JPRB,0.80175E+01_JPRB,0.93536E+01_JPRB,0.10671E+02_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.11882E+02_JPRB,0.10399E+02_JPRB,0.89166E+01_JPRB,0.78253E+01_JPRB,0.74792E+01_JPRB, &
+ & 0.79512E+01_JPRB,0.94202E+01_JPRB,0.10990E+02_JPRB,0.12550E+02_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.11932E+02_JPRB,0.10443E+02_JPRB,0.89541E+01_JPRB,0.78202E+01_JPRB,0.74549E+01_JPRB, &
+ & 0.78754E+01_JPRB,0.93207E+01_JPRB,0.10874E+02_JPRB,0.12417E+02_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.11956E+02_JPRB,0.10464E+02_JPRB,0.89727E+01_JPRB,0.78020E+01_JPRB,0.74258E+01_JPRB, &
+ & 0.78051E+01_JPRB,0.92218E+01_JPRB,0.10758E+02_JPRB,0.12285E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.11956E+02_JPRB,0.10465E+02_JPRB,0.89740E+01_JPRB,0.77736E+01_JPRB,0.73912E+01_JPRB, &
+ & 0.77319E+01_JPRB,0.91108E+01_JPRB,0.10629E+02_JPRB,0.12138E+02_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.11934E+02_JPRB,0.10446E+02_JPRB,0.89587E+01_JPRB,0.77346E+01_JPRB,0.73464E+01_JPRB, &
+ & 0.76503E+01_JPRB,0.90007E+01_JPRB,0.10501E+02_JPRB,0.11991E+02_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.13440E+02_JPRB,0.11762E+02_JPRB,0.10084E+02_JPRB,0.90134E+01_JPRB,0.86298E+01_JPRB, &
+ & 0.89787E+01_JPRB,0.10509E+02_JPRB,0.12260E+02_JPRB,0.14008E+02_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.13496E+02_JPRB,0.11811E+02_JPRB,0.10127E+02_JPRB,0.90042E+01_JPRB,0.86075E+01_JPRB, &
+ & 0.89016E+01_JPRB,0.10401E+02_JPRB,0.12134E+02_JPRB,0.13863E+02_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.13522E+02_JPRB,0.11835E+02_JPRB,0.10148E+02_JPRB,0.89806E+01_JPRB,0.85777E+01_JPRB, &
+ & 0.88306E+01_JPRB,0.10284E+02_JPRB,0.11998E+02_JPRB,0.13707E+02_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.13526E+02_JPRB,0.11839E+02_JPRB,0.10151E+02_JPRB,0.89422E+01_JPRB,0.85378E+01_JPRB, &
+ & 0.87510E+01_JPRB,0.10150E+02_JPRB,0.11842E+02_JPRB,0.13529E+02_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.13498E+02_JPRB,0.11814E+02_JPRB,0.10131E+02_JPRB,0.88918E+01_JPRB,0.84819E+01_JPRB, &
+ & 0.86621E+01_JPRB,0.10028E+02_JPRB,0.11700E+02_JPRB,0.13367E+02_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.15050E+02_JPRB,0.13171E+02_JPRB,0.11325E+02_JPRB,0.10314E+02_JPRB,0.98844E+01_JPRB, &
+ & 0.10113E+02_JPRB,0.11655E+02_JPRB,0.13598E+02_JPRB,0.15538E+02_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.15110E+02_JPRB,0.13224E+02_JPRB,0.11358E+02_JPRB,0.10290E+02_JPRB,0.98636E+01_JPRB, &
+ & 0.10034E+02_JPRB,0.11528E+02_JPRB,0.13449E+02_JPRB,0.15369E+02_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.15142E+02_JPRB,0.13253E+02_JPRB,0.11372E+02_JPRB,0.10253E+02_JPRB,0.98329E+01_JPRB, &
+ & 0.99565E+01_JPRB,0.11387E+02_JPRB,0.13285E+02_JPRB,0.15182E+02_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.15140E+02_JPRB,0.13251E+02_JPRB,0.11368E+02_JPRB,0.10200E+02_JPRB,0.97822E+01_JPRB, &
+ & 0.98656E+01_JPRB,0.11236E+02_JPRB,0.13109E+02_JPRB,0.14981E+02_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.15112E+02_JPRB,0.13227E+02_JPRB,0.11344E+02_JPRB,0.10134E+02_JPRB,0.97132E+01_JPRB, &
+ & 0.97634E+01_JPRB,0.11104E+02_JPRB,0.12955E+02_JPRB,0.14806E+02_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.16679E+02_JPRB,0.14596E+02_JPRB,0.12639E+02_JPRB,0.11713E+02_JPRB,0.11234E+02_JPRB, &
+ & 0.11344E+02_JPRB,0.12833E+02_JPRB,0.14972E+02_JPRB,0.17110E+02_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.16740E+02_JPRB,0.14649E+02_JPRB,0.12658E+02_JPRB,0.11669E+02_JPRB,0.11203E+02_JPRB, &
+ & 0.11257E+02_JPRB,0.12688E+02_JPRB,0.14803E+02_JPRB,0.16918E+02_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.16768E+02_JPRB,0.14675E+02_JPRB,0.12658E+02_JPRB,0.11609E+02_JPRB,0.11161E+02_JPRB, &
+ & 0.11169E+02_JPRB,0.12530E+02_JPRB,0.14619E+02_JPRB,0.16708E+02_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.16761E+02_JPRB,0.14669E+02_JPRB,0.12632E+02_JPRB,0.11528E+02_JPRB,0.11096E+02_JPRB, &
+ & 0.11064E+02_JPRB,0.12360E+02_JPRB,0.14420E+02_JPRB,0.16480E+02_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.16723E+02_JPRB,0.14636E+02_JPRB,0.12592E+02_JPRB,0.11437E+02_JPRB,0.11017E+02_JPRB, &
+ & 0.10938E+02_JPRB,0.12210E+02_JPRB,0.14245E+02_JPRB,0.16279E+02_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.18294E+02_JPRB,0.16009E+02_JPRB,0.13989E+02_JPRB,0.13135E+02_JPRB,0.12643E+02_JPRB, &
+ & 0.12628E+02_JPRB,0.13972E+02_JPRB,0.16290E+02_JPRB,0.18616E+02_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.18347E+02_JPRB,0.16056E+02_JPRB,0.13990E+02_JPRB,0.13069E+02_JPRB,0.12593E+02_JPRB, &
+ & 0.12524E+02_JPRB,0.13808E+02_JPRB,0.16097E+02_JPRB,0.18396E+02_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.18360E+02_JPRB,0.16067E+02_JPRB,0.13961E+02_JPRB,0.12977E+02_JPRB,0.12519E+02_JPRB, &
+ & 0.12404E+02_JPRB,0.13621E+02_JPRB,0.15875E+02_JPRB,0.18143E+02_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.18335E+02_JPRB,0.16046E+02_JPRB,0.13912E+02_JPRB,0.12870E+02_JPRB,0.12428E+02_JPRB, &
+ & 0.12262E+02_JPRB,0.13438E+02_JPRB,0.15668E+02_JPRB,0.17906E+02_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.18275E+02_JPRB,0.15994E+02_JPRB,0.13835E+02_JPRB,0.12741E+02_JPRB,0.12318E+02_JPRB, &
+ & 0.12107E+02_JPRB,0.13269E+02_JPRB,0.15473E+02_JPRB,0.17684E+02_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.19924E+02_JPRB,0.17435E+02_JPRB,0.15328E+02_JPRB,0.14570E+02_JPRB,0.14103E+02_JPRB, &
+ & 0.13966E+02_JPRB,0.15137E+02_JPRB,0.17574E+02_JPRB,0.20085E+02_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.19952E+02_JPRB,0.17460E+02_JPRB,0.15303E+02_JPRB,0.14472E+02_JPRB,0.14016E+02_JPRB, &
+ & 0.13836E+02_JPRB,0.14951E+02_JPRB,0.17356E+02_JPRB,0.19836E+02_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.19950E+02_JPRB,0.17459E+02_JPRB,0.15252E+02_JPRB,0.14354E+02_JPRB,0.13911E+02_JPRB, &
+ & 0.13674E+02_JPRB,0.14736E+02_JPRB,0.17121E+02_JPRB,0.19567E+02_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.19898E+02_JPRB,0.17414E+02_JPRB,0.15172E+02_JPRB,0.14207E+02_JPRB,0.13782E+02_JPRB, &
+ & 0.13496E+02_JPRB,0.14540E+02_JPRB,0.16905E+02_JPRB,0.19321E+02_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.19813E+02_JPRB,0.17339E+02_JPRB,0.15067E+02_JPRB,0.14045E+02_JPRB,0.13635E+02_JPRB, &
+ & 0.13302E+02_JPRB,0.14349E+02_JPRB,0.16691E+02_JPRB,0.19076E+02_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.21582E+02_JPRB,0.18886E+02_JPRB,0.16708E+02_JPRB,0.15984E+02_JPRB,0.15578E+02_JPRB, &
+ & 0.15338E+02_JPRB,0.16324E+02_JPRB,0.18812E+02_JPRB,0.21500E+02_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.21595E+02_JPRB,0.18898E+02_JPRB,0.16645E+02_JPRB,0.15860E+02_JPRB,0.15448E+02_JPRB, &
+ & 0.15169E+02_JPRB,0.16117E+02_JPRB,0.18583E+02_JPRB,0.21237E+02_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.21561E+02_JPRB,0.18868E+02_JPRB,0.16562E+02_JPRB,0.15696E+02_JPRB,0.15303E+02_JPRB, &
+ & 0.14968E+02_JPRB,0.15881E+02_JPRB,0.18352E+02_JPRB,0.20974E+02_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.21483E+02_JPRB,0.18800E+02_JPRB,0.16445E+02_JPRB,0.15517E+02_JPRB,0.15132E+02_JPRB, &
+ & 0.14742E+02_JPRB,0.15661E+02_JPRB,0.18119E+02_JPRB,0.20709E+02_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.21359E+02_JPRB,0.18692E+02_JPRB,0.16307E+02_JPRB,0.15310E+02_JPRB,0.14932E+02_JPRB, &
+ & 0.14513E+02_JPRB,0.15442E+02_JPRB,0.17892E+02_JPRB,0.20448E+02_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.54900E+01_JPRB,0.48060E+01_JPRB,0.41232E+01_JPRB,0.34422E+01_JPRB,0.34870E+01_JPRB, &
+ & 0.43588E+01_JPRB,0.52305E+01_JPRB,0.61020E+01_JPRB,0.65047E+01_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.54959E+01_JPRB,0.48102E+01_JPRB,0.41246E+01_JPRB,0.34396E+01_JPRB,0.34389E+01_JPRB, &
+ & 0.42986E+01_JPRB,0.51583E+01_JPRB,0.60178E+01_JPRB,0.64181E+01_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.54964E+01_JPRB,0.48111E+01_JPRB,0.41257E+01_JPRB,0.34404E+01_JPRB,0.33906E+01_JPRB, &
+ & 0.42383E+01_JPRB,0.50859E+01_JPRB,0.59334E+01_JPRB,0.63255E+01_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.54872E+01_JPRB,0.48032E+01_JPRB,0.41193E+01_JPRB,0.34354E+01_JPRB,0.33485E+01_JPRB, &
+ & 0.41856E+01_JPRB,0.50227E+01_JPRB,0.58596E+01_JPRB,0.62437E+01_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.54677E+01_JPRB,0.47864E+01_JPRB,0.41051E+01_JPRB,0.34238E+01_JPRB,0.33099E+01_JPRB, &
+ & 0.41373E+01_JPRB,0.49647E+01_JPRB,0.57920E+01_JPRB,0.61726E+01_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.65993E+01_JPRB,0.57796E+01_JPRB,0.49604E+01_JPRB,0.41421E+01_JPRB,0.42011E+01_JPRB, &
+ & 0.52514E+01_JPRB,0.63014E+01_JPRB,0.73516E+01_JPRB,0.80279E+01_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.66032E+01_JPRB,0.57810E+01_JPRB,0.49597E+01_JPRB,0.41395E+01_JPRB,0.41430E+01_JPRB, &
+ & 0.51787E+01_JPRB,0.62144E+01_JPRB,0.72499E+01_JPRB,0.79170E+01_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.66114E+01_JPRB,0.57864E+01_JPRB,0.49618E+01_JPRB,0.41380E+01_JPRB,0.40849E+01_JPRB, &
+ & 0.51061E+01_JPRB,0.61273E+01_JPRB,0.71483E+01_JPRB,0.78058E+01_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.66055E+01_JPRB,0.57814E+01_JPRB,0.49573E+01_JPRB,0.41341E+01_JPRB,0.40341E+01_JPRB, &
+ & 0.50426E+01_JPRB,0.60510E+01_JPRB,0.70593E+01_JPRB,0.77043E+01_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.65867E+01_JPRB,0.57651E+01_JPRB,0.49435E+01_JPRB,0.41221E+01_JPRB,0.39863E+01_JPRB, &
+ & 0.49829E+01_JPRB,0.59794E+01_JPRB,0.69758E+01_JPRB,0.76124E+01_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.79380E+01_JPRB,0.69526E+01_JPRB,0.59676E+01_JPRB,0.49832E+01_JPRB,0.50788E+01_JPRB, &
+ & 0.63485E+01_JPRB,0.76181E+01_JPRB,0.88875E+01_JPRB,0.99377E+01_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.79519E+01_JPRB,0.69640E+01_JPRB,0.59765E+01_JPRB,0.49895E+01_JPRB,0.50033E+01_JPRB, &
+ & 0.62541E+01_JPRB,0.75048E+01_JPRB,0.87554E+01_JPRB,0.97869E+01_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.79564E+01_JPRB,0.69660E+01_JPRB,0.59762E+01_JPRB,0.49871E+01_JPRB,0.49341E+01_JPRB, &
+ & 0.61676E+01_JPRB,0.74011E+01_JPRB,0.86343E+01_JPRB,0.96531E+01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.79604E+01_JPRB,0.69678E+01_JPRB,0.59753E+01_JPRB,0.49833E+01_JPRB,0.48716E+01_JPRB, &
+ & 0.60895E+01_JPRB,0.73073E+01_JPRB,0.85250E+01_JPRB,0.95280E+01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.79454E+01_JPRB,0.69546E+01_JPRB,0.59641E+01_JPRB,0.49739E+01_JPRB,0.48117E+01_JPRB, &
+ & 0.60146E+01_JPRB,0.72174E+01_JPRB,0.84201E+01_JPRB,0.94106E+01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.95482E+01_JPRB,0.83619E+01_JPRB,0.71758E+01_JPRB,0.59904E+01_JPRB,0.61617E+01_JPRB, &
+ & 0.77021E+01_JPRB,0.92425E+01_JPRB,0.10783E+02_JPRB,0.12199E+02_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.95751E+01_JPRB,0.83849E+01_JPRB,0.71952E+01_JPRB,0.60057E+01_JPRB,0.60507E+01_JPRB, &
+ & 0.75634E+01_JPRB,0.90760E+01_JPRB,0.10588E+02_JPRB,0.11979E+02_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.95851E+01_JPRB,0.83928E+01_JPRB,0.72008E+01_JPRB,0.60093E+01_JPRB,0.59519E+01_JPRB, &
+ & 0.74398E+01_JPRB,0.89277E+01_JPRB,0.10415E+02_JPRB,0.11784E+02_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.95899E+01_JPRB,0.83956E+01_JPRB,0.72016E+01_JPRB,0.60083E+01_JPRB,0.58751E+01_JPRB, &
+ & 0.73438E+01_JPRB,0.88125E+01_JPRB,0.10281E+02_JPRB,0.11628E+02_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.95802E+01_JPRB,0.83858E+01_JPRB,0.71919E+01_JPRB,0.59984E+01_JPRB,0.58004E+01_JPRB, &
+ & 0.72505E+01_JPRB,0.87005E+01_JPRB,0.10150E+02_JPRB,0.11482E+02_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.11467E+02_JPRB,0.10041E+02_JPRB,0.86153E+01_JPRB,0.71899E+01_JPRB,0.74662E+01_JPRB, &
+ & 0.93327E+01_JPRB,0.11199E+02_JPRB,0.13065E+02_JPRB,0.14858E+02_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.11518E+02_JPRB,0.10085E+02_JPRB,0.86526E+01_JPRB,0.72201E+01_JPRB,0.73208E+01_JPRB, &
+ & 0.91509E+01_JPRB,0.10981E+02_JPRB,0.12811E+02_JPRB,0.14568E+02_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.11535E+02_JPRB,0.10099E+02_JPRB,0.86636E+01_JPRB,0.72282E+01_JPRB,0.71844E+01_JPRB, &
+ & 0.89805E+01_JPRB,0.10776E+02_JPRB,0.12572E+02_JPRB,0.14298E+02_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.11542E+02_JPRB,0.10105E+02_JPRB,0.86677E+01_JPRB,0.72309E+01_JPRB,0.70636E+01_JPRB, &
+ & 0.88295E+01_JPRB,0.10595E+02_JPRB,0.12361E+02_JPRB,0.14056E+02_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.11528E+02_JPRB,0.10092E+02_JPRB,0.86561E+01_JPRB,0.72209E+01_JPRB,0.69634E+01_JPRB, &
+ & 0.87042E+01_JPRB,0.10445E+02_JPRB,0.12185E+02_JPRB,0.13857E+02_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.13743E+02_JPRB,0.12032E+02_JPRB,0.10321E+02_JPRB,0.86104E+01_JPRB,0.90301E+01_JPRB, &
+ & 0.11288E+02_JPRB,0.13545E+02_JPRB,0.15802E+02_JPRB,0.18010E+02_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.13809E+02_JPRB,0.12090E+02_JPRB,0.10370E+02_JPRB,0.86513E+01_JPRB,0.88422E+01_JPRB, &
+ & 0.11053E+02_JPRB,0.13263E+02_JPRB,0.15473E+02_JPRB,0.17638E+02_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.13850E+02_JPRB,0.12125E+02_JPRB,0.10400E+02_JPRB,0.86753E+01_JPRB,0.86607E+01_JPRB, &
+ & 0.10826E+02_JPRB,0.12991E+02_JPRB,0.15156E+02_JPRB,0.17275E+02_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.13866E+02_JPRB,0.12138E+02_JPRB,0.10411E+02_JPRB,0.86837E+01_JPRB,0.84930E+01_JPRB, &
+ & 0.10616E+02_JPRB,0.12739E+02_JPRB,0.14862E+02_JPRB,0.16940E+02_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.13850E+02_JPRB,0.12124E+02_JPRB,0.10399E+02_JPRB,0.86732E+01_JPRB,0.83442E+01_JPRB, &
+ & 0.10430E+02_JPRB,0.12516E+02_JPRB,0.14602E+02_JPRB,0.16644E+02_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.16450E+02_JPRB,0.14400E+02_JPRB,0.12350E+02_JPRB,0.10300E+02_JPRB,0.10874E+02_JPRB, &
+ & 0.13593E+02_JPRB,0.16311E+02_JPRB,0.19030E+02_JPRB,0.21722E+02_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.16525E+02_JPRB,0.14465E+02_JPRB,0.12405E+02_JPRB,0.10346E+02_JPRB,0.10632E+02_JPRB, &
+ & 0.13290E+02_JPRB,0.15948E+02_JPRB,0.18606E+02_JPRB,0.21239E+02_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.16563E+02_JPRB,0.14499E+02_JPRB,0.12434E+02_JPRB,0.10370E+02_JPRB,0.10395E+02_JPRB, &
+ & 0.12994E+02_JPRB,0.15592E+02_JPRB,0.18191E+02_JPRB,0.20762E+02_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.16590E+02_JPRB,0.14522E+02_JPRB,0.12454E+02_JPRB,0.10386E+02_JPRB,0.10172E+02_JPRB, &
+ & 0.12715E+02_JPRB,0.15258E+02_JPRB,0.17801E+02_JPRB,0.20317E+02_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.16576E+02_JPRB,0.14509E+02_JPRB,0.12443E+02_JPRB,0.10377E+02_JPRB,0.99688E+01_JPRB, &
+ & 0.12461E+02_JPRB,0.14953E+02_JPRB,0.17445E+02_JPRB,0.19913E+02_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.19629E+02_JPRB,0.17181E+02_JPRB,0.14733E+02_JPRB,0.12285E+02_JPRB,0.13022E+02_JPRB, &
+ & 0.16277E+02_JPRB,0.19532E+02_JPRB,0.22787E+02_JPRB,0.26029E+02_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.19728E+02_JPRB,0.17267E+02_JPRB,0.14807E+02_JPRB,0.12346E+02_JPRB,0.12711E+02_JPRB, &
+ & 0.15888E+02_JPRB,0.19066E+02_JPRB,0.22243E+02_JPRB,0.25406E+02_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.19768E+02_JPRB,0.17302E+02_JPRB,0.14837E+02_JPRB,0.12371E+02_JPRB,0.12399E+02_JPRB, &
+ & 0.15499E+02_JPRB,0.18599E+02_JPRB,0.21698E+02_JPRB,0.24782E+02_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.19773E+02_JPRB,0.17307E+02_JPRB,0.14840E+02_JPRB,0.12374E+02_JPRB,0.12111E+02_JPRB, &
+ & 0.15139E+02_JPRB,0.18167E+02_JPRB,0.21194E+02_JPRB,0.24210E+02_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.19744E+02_JPRB,0.17281E+02_JPRB,0.14818E+02_JPRB,0.12356E+02_JPRB,0.11840E+02_JPRB, &
+ & 0.14800E+02_JPRB,0.17760E+02_JPRB,0.20720E+02_JPRB,0.23667E+02_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.23312E+02_JPRB,0.20403E+02_JPRB,0.17494E+02_JPRB,0.14584E+02_JPRB,0.15488E+02_JPRB, &
+ & 0.19360E+02_JPRB,0.23231E+02_JPRB,0.27103E+02_JPRB,0.30970E+02_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.23439E+02_JPRB,0.20514E+02_JPRB,0.17588E+02_JPRB,0.14663E+02_JPRB,0.15085E+02_JPRB, &
+ & 0.18856E+02_JPRB,0.22627E+02_JPRB,0.26397E+02_JPRB,0.30166E+02_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.23492E+02_JPRB,0.20560E+02_JPRB,0.17628E+02_JPRB,0.14696E+02_JPRB,0.14687E+02_JPRB, &
+ & 0.18356E+02_JPRB,0.22027E+02_JPRB,0.25697E+02_JPRB,0.29367E+02_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.23479E+02_JPRB,0.20549E+02_JPRB,0.17619E+02_JPRB,0.14689E+02_JPRB,0.14321E+02_JPRB, &
+ & 0.17895E+02_JPRB,0.21474E+02_JPRB,0.25052E+02_JPRB,0.28629E+02_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.23411E+02_JPRB,0.20489E+02_JPRB,0.17567E+02_JPRB,0.14646E+02_JPRB,0.13982E+02_JPRB, &
+ & 0.17451E+02_JPRB,0.20941E+02_JPRB,0.24431E+02_JPRB,0.27917E+02_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.27592E+02_JPRB,0.24147E+02_JPRB,0.20702E+02_JPRB,0.17264E+02_JPRB,0.18240E+02_JPRB, &
+ & 0.22793E+02_JPRB,0.27352E+02_JPRB,0.31910E+02_JPRB,0.36473E+02_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.27703E+02_JPRB,0.24245E+02_JPRB,0.20786E+02_JPRB,0.17327E+02_JPRB,0.17749E+02_JPRB, &
+ & 0.22147E+02_JPRB,0.26577E+02_JPRB,0.31006E+02_JPRB,0.35436E+02_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.27743E+02_JPRB,0.24279E+02_JPRB,0.20816E+02_JPRB,0.17352E+02_JPRB,0.17266E+02_JPRB, &
+ & 0.21525E+02_JPRB,0.25830E+02_JPRB,0.30134E+02_JPRB,0.34441E+02_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.27709E+02_JPRB,0.24250E+02_JPRB,0.20790E+02_JPRB,0.17331E+02_JPRB,0.16811E+02_JPRB, &
+ & 0.20946E+02_JPRB,0.25135E+02_JPRB,0.29324E+02_JPRB,0.33510E+02_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.27598E+02_JPRB,0.24153E+02_JPRB,0.20707E+02_JPRB,0.17262E+02_JPRB,0.16378E+02_JPRB, &
+ & 0.20388E+02_JPRB,0.24466E+02_JPRB,0.28543E+02_JPRB,0.32622E+02_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.32570E+02_JPRB,0.28502E+02_JPRB,0.24434E+02_JPRB,0.20393E+02_JPRB,0.21083E+02_JPRB, &
+ & 0.26245E+02_JPRB,0.31494E+02_JPRB,0.36742E+02_JPRB,0.41994E+02_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.32601E+02_JPRB,0.28529E+02_JPRB,0.24458E+02_JPRB,0.20386E+02_JPRB,0.20492E+02_JPRB, &
+ & 0.25469E+02_JPRB,0.30563E+02_JPRB,0.35657E+02_JPRB,0.40747E+02_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.32535E+02_JPRB,0.28472E+02_JPRB,0.24408E+02_JPRB,0.20345E+02_JPRB,0.19916E+02_JPRB, &
+ & 0.24733E+02_JPRB,0.29679E+02_JPRB,0.34625E+02_JPRB,0.39568E+02_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.32390E+02_JPRB,0.28345E+02_JPRB,0.24301E+02_JPRB,0.20256E+02_JPRB,0.19358E+02_JPRB, &
+ & 0.24023E+02_JPRB,0.28827E+02_JPRB,0.33631E+02_JPRB,0.38435E+02_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.32175E+02_JPRB,0.28157E+02_JPRB,0.24140E+02_JPRB,0.20122E+02_JPRB,0.18819E+02_JPRB, &
+ & 0.23330E+02_JPRB,0.27996E+02_JPRB,0.32661E+02_JPRB,0.37328E+02_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.38135E+02_JPRB,0.33371E+02_JPRB,0.28607E+02_JPRB,0.23891E+02_JPRB,0.24203E+02_JPRB, &
+ & 0.29981E+02_JPRB,0.35977E+02_JPRB,0.41973E+02_JPRB,0.47971E+02_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.38033E+02_JPRB,0.33282E+02_JPRB,0.28531E+02_JPRB,0.23779E+02_JPRB,0.23491E+02_JPRB, &
+ & 0.29038E+02_JPRB,0.34845E+02_JPRB,0.40652E+02_JPRB,0.46464E+02_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.37806E+02_JPRB,0.33084E+02_JPRB,0.28361E+02_JPRB,0.23639E+02_JPRB,0.22788E+02_JPRB, &
+ & 0.28150E+02_JPRB,0.33780E+02_JPRB,0.39409E+02_JPRB,0.45036E+02_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.37497E+02_JPRB,0.32813E+02_JPRB,0.28129E+02_JPRB,0.23446E+02_JPRB,0.22100E+02_JPRB, &
+ & 0.27270E+02_JPRB,0.32724E+02_JPRB,0.38179E+02_JPRB,0.43632E+02_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.37099E+02_JPRB,0.32465E+02_JPRB,0.27831E+02_JPRB,0.23198E+02_JPRB,0.21440E+02_JPRB, &
+ & 0.26398E+02_JPRB,0.31678E+02_JPRB,0.36957E+02_JPRB,0.42237E+02_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.44217E+02_JPRB,0.38692E+02_JPRB,0.33167E+02_JPRB,0.27730E+02_JPRB,0.27605E+02_JPRB, &
+ & 0.33969E+02_JPRB,0.40763E+02_JPRB,0.47556E+02_JPRB,0.54352E+02_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.43915E+02_JPRB,0.38428E+02_JPRB,0.32941E+02_JPRB,0.27455E+02_JPRB,0.26738E+02_JPRB, &
+ & 0.32787E+02_JPRB,0.39345E+02_JPRB,0.45901E+02_JPRB,0.52455E+02_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.43489E+02_JPRB,0.38055E+02_JPRB,0.32622E+02_JPRB,0.27188E+02_JPRB,0.25861E+02_JPRB, &
+ & 0.31686E+02_JPRB,0.38022E+02_JPRB,0.44359E+02_JPRB,0.50700E+02_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.42951E+02_JPRB,0.37585E+02_JPRB,0.32219E+02_JPRB,0.26853E+02_JPRB,0.25006E+02_JPRB, &
+ & 0.30590E+02_JPRB,0.36708E+02_JPRB,0.42826E+02_JPRB,0.48946E+02_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.42298E+02_JPRB,0.37013E+02_JPRB,0.31729E+02_JPRB,0.26445E+02_JPRB,0.24180E+02_JPRB, &
+ & 0.29511E+02_JPRB,0.35413E+02_JPRB,0.41314E+02_JPRB,0.47218E+02_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     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.
+!     -----------------------------------------------------------------
+
+KB(:, 1,13, 1) = (/ &
+ & 0.40633E-08_JPRB,0.64718E-06_JPRB,0.79567E-06_JPRB,0.81264E-06_JPRB,0.25080E-07_JPRB /)  
+KB(:, 2,13, 1) = (/ &
+ & 0.37596E-08_JPRB,0.70429E-06_JPRB,0.90855E-06_JPRB,0.96432E-06_JPRB,0.28292E-07_JPRB /)  
+KB(:, 3,13, 1) = (/ &
+ & 0.34982E-08_JPRB,0.76370E-06_JPRB,0.10316E-05_JPRB,0.11472E-05_JPRB,0.31265E-07_JPRB /)  
+KB(:, 4,13, 1) = (/ &
+ & 0.32707E-08_JPRB,0.82834E-06_JPRB,0.11577E-05_JPRB,0.13387E-05_JPRB,0.34928E-07_JPRB /)  
+KB(:, 5,13, 1) = (/ &
+ & 0.30710E-08_JPRB,0.90252E-06_JPRB,0.12962E-05_JPRB,0.15206E-05_JPRB,0.38859E-07_JPRB /)  
+KB(:, 1,14, 1) = (/ &
+ & 0.33026E-08_JPRB,0.53592E-06_JPRB,0.66171E-06_JPRB,0.67633E-06_JPRB,0.20767E-07_JPRB /)  
+KB(:, 2,14, 1) = (/ &
+ & 0.30574E-08_JPRB,0.57959E-06_JPRB,0.75386E-06_JPRB,0.80395E-06_JPRB,0.23334E-07_JPRB /)  
+KB(:, 3,14, 1) = (/ &
+ & 0.28461E-08_JPRB,0.62897E-06_JPRB,0.85486E-06_JPRB,0.95745E-06_JPRB,0.25841E-07_JPRB /)  
+KB(:, 4,14, 1) = (/ &
+ & 0.26621E-08_JPRB,0.68352E-06_JPRB,0.96132E-06_JPRB,0.11148E-05_JPRB,0.28862E-07_JPRB /)  
+KB(:, 5,14, 1) = (/ &
+ & 0.25005E-08_JPRB,0.74517E-06_JPRB,0.10739E-05_JPRB,0.12632E-05_JPRB,0.32093E-07_JPRB /)  
+KB(:, 1,15, 1) = (/ &
+ & 0.26821E-08_JPRB,0.44081E-06_JPRB,0.55093E-06_JPRB,0.56465E-06_JPRB,0.17186E-07_JPRB /)  
+KB(:, 2,15, 1) = (/ &
+ & 0.24845E-08_JPRB,0.47773E-06_JPRB,0.62636E-06_JPRB,0.67180E-06_JPRB,0.19234E-07_JPRB /)  
+KB(:, 3,15, 1) = (/ &
+ & 0.23140E-08_JPRB,0.51811E-06_JPRB,0.70791E-06_JPRB,0.79658E-06_JPRB,0.21348E-07_JPRB /)  
+KB(:, 4,15, 1) = (/ &
+ & 0.21654E-08_JPRB,0.56416E-06_JPRB,0.79893E-06_JPRB,0.92873E-06_JPRB,0.23832E-07_JPRB /)  
+KB(:, 5,15, 1) = (/ &
+ & 0.20347E-08_JPRB,0.61535E-06_JPRB,0.88985E-06_JPRB,0.10499E-05_JPRB,0.26485E-07_JPRB /)  
+KB(:, 1,16, 1) = (/ &
+ & 0.21775E-08_JPRB,0.36254E-06_JPRB,0.45870E-06_JPRB,0.47125E-06_JPRB,0.14211E-07_JPRB /)  
+KB(:, 2,16, 1) = (/ &
+ & 0.20183E-08_JPRB,0.39376E-06_JPRB,0.52053E-06_JPRB,0.56163E-06_JPRB,0.15869E-07_JPRB /)  
+KB(:, 3,16, 1) = (/ &
+ & 0.18808E-08_JPRB,0.42687E-06_JPRB,0.58699E-06_JPRB,0.66386E-06_JPRB,0.17627E-07_JPRB /)  
+KB(:, 4,16, 1) = (/ &
+ & 0.17608E-08_JPRB,0.46559E-06_JPRB,0.66388E-06_JPRB,0.77063E-06_JPRB,0.19664E-07_JPRB /)  
+KB(:, 5,16, 1) = (/ &
+ & 0.16552E-08_JPRB,0.50747E-06_JPRB,0.73699E-06_JPRB,0.87249E-06_JPRB,0.21844E-07_JPRB /)  
+KB(:, 1,17, 1) = (/ &
+ & 0.17682E-08_JPRB,0.29836E-06_JPRB,0.38104E-06_JPRB,0.39314E-06_JPRB,0.11735E-07_JPRB /)  
+KB(:, 2,17, 1) = (/ &
+ & 0.16399E-08_JPRB,0.32493E-06_JPRB,0.43215E-06_JPRB,0.46897E-06_JPRB,0.13077E-07_JPRB /)  
+KB(:, 3,17, 1) = (/ &
+ & 0.15290E-08_JPRB,0.35203E-06_JPRB,0.48665E-06_JPRB,0.55328E-06_JPRB,0.14535E-07_JPRB /)  
+KB(:, 4,17, 1) = (/ &
+ & 0.14321E-08_JPRB,0.38383E-06_JPRB,0.55033E-06_JPRB,0.63844E-06_JPRB,0.16208E-07_JPRB /)  
+KB(:, 5,17, 1) = (/ &
+ & 0.13468E-08_JPRB,0.41822E-06_JPRB,0.60950E-06_JPRB,0.72376E-06_JPRB,0.17995E-07_JPRB /)  
+KB(:, 1,18, 1) = (/ &
+ & 0.14362E-08_JPRB,0.24560E-06_JPRB,0.31667E-06_JPRB,0.32797E-06_JPRB,0.96831E-08_JPRB /)  
+KB(:, 2,18, 1) = (/ &
+ & 0.13327E-08_JPRB,0.26784E-06_JPRB,0.35872E-06_JPRB,0.39134E-06_JPRB,0.10773E-07_JPRB /)  
+KB(:, 3,18, 1) = (/ &
+ & 0.12432E-08_JPRB,0.29008E-06_JPRB,0.40334E-06_JPRB,0.46026E-06_JPRB,0.11980E-07_JPRB /)  
+KB(:, 4,18, 1) = (/ &
+ & 0.11650E-08_JPRB,0.31637E-06_JPRB,0.45583E-06_JPRB,0.52880E-06_JPRB,0.13350E-07_JPRB /)  
+KB(:, 5,18, 1) = (/ &
+ & 0.10960E-08_JPRB,0.34503E-06_JPRB,0.50363E-06_JPRB,0.59967E-06_JPRB,0.14815E-07_JPRB /)  
+KB(:, 1,19, 1) = (/ &
+ & 0.11667E-08_JPRB,0.20231E-06_JPRB,0.26313E-06_JPRB,0.27359E-06_JPRB,0.79934E-08_JPRB /)  
+KB(:, 2,19, 1) = (/ &
+ & 0.10833E-08_JPRB,0.22085E-06_JPRB,0.29760E-06_JPRB,0.32620E-06_JPRB,0.88807E-08_JPRB /)  
+KB(:, 3,19, 1) = (/ &
+ & 0.10110E-08_JPRB,0.23912E-06_JPRB,0.33423E-06_JPRB,0.38271E-06_JPRB,0.98771E-08_JPRB /)  
+KB(:, 4,19, 1) = (/ &
+ & 0.94778E-09_JPRB,0.26073E-06_JPRB,0.37685E-06_JPRB,0.43791E-06_JPRB,0.11002E-07_JPRB /)  
+KB(:, 5,19, 1) = (/ &
+ & 0.89198E-09_JPRB,0.28425E-06_JPRB,0.41589E-06_JPRB,0.49682E-06_JPRB,0.12204E-07_JPRB /)  
+KB(:, 1,20, 1) = (/ &
+ & 0.94668E-09_JPRB,0.16735E-06_JPRB,0.21822E-06_JPRB,0.22914E-06_JPRB,0.66237E-08_JPRB /)  
+KB(:, 2,20, 1) = (/ &
+ & 0.87956E-09_JPRB,0.18255E-06_JPRB,0.24770E-06_JPRB,0.27290E-06_JPRB,0.73470E-08_JPRB /)  
+KB(:, 3,20, 1) = (/ &
+ & 0.82132E-09_JPRB,0.19776E-06_JPRB,0.27786E-06_JPRB,0.31913E-06_JPRB,0.81732E-08_JPRB /)  
+KB(:, 4,20, 1) = (/ &
+ & 0.77032E-09_JPRB,0.21557E-06_JPRB,0.31197E-06_JPRB,0.36380E-06_JPRB,0.91019E-08_JPRB /)  
+KB(:, 5,20, 1) = (/ &
+ & 0.72528E-09_JPRB,0.23458E-06_JPRB,0.34449E-06_JPRB,0.41257E-06_JPRB,0.10084E-07_JPRB /)  
+KB(:, 1,21, 1) = (/ &
+ & 0.76809E-09_JPRB,0.13858E-06_JPRB,0.18138E-06_JPRB,0.19188E-06_JPRB,0.54929E-08_JPRB /)  
+KB(:, 2,21, 1) = (/ &
+ & 0.71408E-09_JPRB,0.15088E-06_JPRB,0.20614E-06_JPRB,0.22835E-06_JPRB,0.60825E-08_JPRB /)  
+KB(:, 3,21, 1) = (/ &
+ & 0.66717E-09_JPRB,0.16366E-06_JPRB,0.23111E-06_JPRB,0.26622E-06_JPRB,0.67680E-08_JPRB /)  
+KB(:, 4,21, 1) = (/ &
+ & 0.62605E-09_JPRB,0.17816E-06_JPRB,0.25834E-06_JPRB,0.30242E-06_JPRB,0.75344E-08_JPRB /)  
+KB(:, 5,21, 1) = (/ &
+ & 0.58970E-09_JPRB,0.19374E-06_JPRB,0.28542E-06_JPRB,0.34222E-06_JPRB,0.83394E-08_JPRB /)  
+KB(:, 1,22, 1) = (/ &
+ & 0.62013E-09_JPRB,0.11547E-06_JPRB,0.15212E-06_JPRB,0.16227E-06_JPRB,0.45926E-08_JPRB /)  
+KB(:, 2,22, 1) = (/ &
+ & 0.57709E-09_JPRB,0.12552E-06_JPRB,0.17211E-06_JPRB,0.19265E-06_JPRB,0.50728E-08_JPRB /)  
+KB(:, 3,22, 1) = (/ &
+ & 0.53964E-09_JPRB,0.13619E-06_JPRB,0.19363E-06_JPRB,0.22402E-06_JPRB,0.56454E-08_JPRB /)  
+KB(:, 4,22, 1) = (/ &
+ & 0.50675E-09_JPRB,0.14805E-06_JPRB,0.21557E-06_JPRB,0.25320E-06_JPRB,0.62805E-08_JPRB /)  
+KB(:, 5,22, 1) = (/ &
+ & 0.47764E-09_JPRB,0.16097E-06_JPRB,0.23799E-06_JPRB,0.28574E-06_JPRB,0.69414E-08_JPRB /)  
+KB(:, 1,23, 1) = (/ &
+ & 0.50055E-09_JPRB,0.96165E-07_JPRB,0.12776E-06_JPRB,0.13752E-06_JPRB,0.37933E-08_JPRB /)  
+KB(:, 2,23, 1) = (/ &
+ & 0.46627E-09_JPRB,0.10421E-06_JPRB,0.14387E-06_JPRB,0.16226E-06_JPRB,0.42154E-08_JPRB /)  
+KB(:, 3,23, 1) = (/ &
+ & 0.43638E-09_JPRB,0.11320E-06_JPRB,0.16240E-06_JPRB,0.18806E-06_JPRB,0.46761E-08_JPRB /)  
+KB(:, 4,23, 1) = (/ &
+ & 0.41009E-09_JPRB,0.12312E-06_JPRB,0.18002E-06_JPRB,0.21214E-06_JPRB,0.51724E-08_JPRB /)  
+KB(:, 5,23, 1) = (/ &
+ & 0.38679E-09_JPRB,0.13380E-06_JPRB,0.19835E-06_JPRB,0.23836E-06_JPRB,0.56863E-08_JPRB /)  
+KB(:, 1,24, 1) = (/ &
+ & 0.40384E-09_JPRB,0.80174E-07_JPRB,0.10742E-06_JPRB,0.11665E-06_JPRB,0.31435E-08_JPRB /)  
+KB(:, 2,24, 1) = (/ &
+ & 0.37656E-09_JPRB,0.86611E-07_JPRB,0.12062E-06_JPRB,0.13694E-06_JPRB,0.34746E-08_JPRB /)  
+KB(:, 3,24, 1) = (/ &
+ & 0.35273E-09_JPRB,0.94203E-07_JPRB,0.13610E-06_JPRB,0.15729E-06_JPRB,0.38586E-08_JPRB /)  
+KB(:, 4,24, 1) = (/ &
+ & 0.33174E-09_JPRB,0.10246E-06_JPRB,0.15035E-06_JPRB,0.17775E-06_JPRB,0.42707E-08_JPRB /)  
+KB(:, 5,24, 1) = (/ &
+ & 0.31310E-09_JPRB,0.11122E-06_JPRB,0.16543E-06_JPRB,0.19917E-06_JPRB,0.47020E-08_JPRB /)  
+KB(:, 1,25, 1) = (/ &
+ & 0.32562E-09_JPRB,0.66785E-07_JPRB,0.90447E-07_JPRB,0.99059E-07_JPRB,0.26134E-08_JPRB /)  
+KB(:, 2,25, 1) = (/ &
+ & 0.30393E-09_JPRB,0.72133E-07_JPRB,0.10139E-06_JPRB,0.11571E-06_JPRB,0.28872E-08_JPRB /)  
+KB(:, 3,25, 1) = (/ &
+ & 0.28495E-09_JPRB,0.78448E-07_JPRB,0.11385E-06_JPRB,0.13178E-06_JPRB,0.32061E-08_JPRB /)  
+KB(:, 4,25, 1) = (/ &
+ & 0.26821E-09_JPRB,0.85339E-07_JPRB,0.12563E-06_JPRB,0.14914E-06_JPRB,0.35489E-08_JPRB /)  
+KB(:, 5,25, 1) = (/ &
+ & 0.25332E-09_JPRB,0.92445E-07_JPRB,0.13814E-06_JPRB,0.16674E-06_JPRB,0.39060E-08_JPRB /)  
+KB(:, 1,26, 1) = (/ &
+ & 0.26224E-09_JPRB,0.55680E-07_JPRB,0.76369E-07_JPRB,0.84400E-07_JPRB,0.21759E-08_JPRB /)  
+KB(:, 2,26, 1) = (/ &
+ & 0.24504E-09_JPRB,0.60204E-07_JPRB,0.85423E-07_JPRB,0.97885E-07_JPRB,0.24118E-08_JPRB /)  
+KB(:, 3,26, 1) = (/ &
+ & 0.22996E-09_JPRB,0.65477E-07_JPRB,0.95321E-07_JPRB,0.11093E-06_JPRB,0.26774E-08_JPRB /)  
+KB(:, 4,26, 1) = (/ &
+ & 0.21663E-09_JPRB,0.71188E-07_JPRB,0.10529E-06_JPRB,0.12544E-06_JPRB,0.29615E-08_JPRB /)  
+KB(:, 5,26, 1) = (/ &
+ & 0.20475E-09_JPRB,0.76940E-07_JPRB,0.11556E-06_JPRB,0.13977E-06_JPRB,0.32569E-08_JPRB /)  
+KB(:, 1,27, 1) = (/ &
+ & 0.21120E-09_JPRB,0.46382E-07_JPRB,0.63894E-07_JPRB,0.71379E-07_JPRB,0.18178E-08_JPRB /)  
+KB(:, 2,27, 1) = (/ &
+ & 0.19756E-09_JPRB,0.50278E-07_JPRB,0.72033E-07_JPRB,0.82909E-07_JPRB,0.20181E-08_JPRB /)  
+KB(:, 3,27, 1) = (/ &
+ & 0.18557E-09_JPRB,0.54670E-07_JPRB,0.79953E-07_JPRB,0.93505E-07_JPRB,0.22396E-08_JPRB /)  
+KB(:, 4,27, 1) = (/ &
+ & 0.17496E-09_JPRB,0.59408E-07_JPRB,0.88179E-07_JPRB,0.10553E-06_JPRB,0.24737E-08_JPRB /)  
+KB(:, 5,27, 1) = (/ &
+ & 0.16549E-09_JPRB,0.64025E-07_JPRB,0.96696E-07_JPRB,0.11704E-06_JPRB,0.27092E-08_JPRB /)  
+KB(:, 1,28, 1) = (/ &
+ & 0.17010E-09_JPRB,0.38631E-07_JPRB,0.53773E-07_JPRB,0.60579E-07_JPRB,0.15220E-08_JPRB /)  
+KB(:, 2,28, 1) = (/ &
+ & 0.15928E-09_JPRB,0.42001E-07_JPRB,0.60660E-07_JPRB,0.69727E-07_JPRB,0.16901E-08_JPRB /)  
+KB(:, 3,28, 1) = (/ &
+ & 0.14976E-09_JPRB,0.45661E-07_JPRB,0.67065E-07_JPRB,0.78845E-07_JPRB,0.18696E-08_JPRB /)  
+KB(:, 4,28, 1) = (/ &
+ & 0.14131E-09_JPRB,0.49571E-07_JPRB,0.73809E-07_JPRB,0.88481E-07_JPRB,0.20611E-08_JPRB /)  
+KB(:, 5,28, 1) = (/ &
+ & 0.13376E-09_JPRB,0.53304E-07_JPRB,0.80910E-07_JPRB,0.98017E-07_JPRB,0.22565E-08_JPRB /)  
+KB(:, 1,29, 1) = (/ &
+ & 0.13696E-09_JPRB,0.32270E-07_JPRB,0.45392E-07_JPRB,0.51438E-07_JPRB,0.12721E-08_JPRB /)  
+KB(:, 2,29, 1) = (/ &
+ & 0.12839E-09_JPRB,0.35079E-07_JPRB,0.50946E-07_JPRB,0.58726E-07_JPRB,0.14118E-08_JPRB /)  
+KB(:, 3,29, 1) = (/ &
+ & 0.12082E-09_JPRB,0.38150E-07_JPRB,0.56258E-07_JPRB,0.66493E-07_JPRB,0.15628E-08_JPRB /)  
+KB(:, 4,29, 1) = (/ &
+ & 0.11410E-09_JPRB,0.41324E-07_JPRB,0.61843E-07_JPRB,0.74387E-07_JPRB,0.17205E-08_JPRB /)  
+KB(:, 5,29, 1) = (/ &
+ & 0.10808E-09_JPRB,0.44387E-07_JPRB,0.67739E-07_JPRB,0.82216E-07_JPRB,0.18745E-08_JPRB /)  
+KB(:, 1,30, 1) = (/ &
+ & 0.11029E-09_JPRB,0.26970E-07_JPRB,0.38330E-07_JPRB,0.43698E-07_JPRB,0.10655E-08_JPRB /)  
+KB(:, 2,30, 1) = (/ &
+ & 0.10349E-09_JPRB,0.29319E-07_JPRB,0.42739E-07_JPRB,0.49552E-07_JPRB,0.11823E-08_JPRB /)  
+KB(:, 3,30, 1) = (/ &
+ & 0.97483E-10_JPRB,0.31869E-07_JPRB,0.47210E-07_JPRB,0.56057E-07_JPRB,0.13038E-08_JPRB /)  
+KB(:, 4,30, 1) = (/ &
+ & 0.92133E-10_JPRB,0.34436E-07_JPRB,0.51812E-07_JPRB,0.62485E-07_JPRB,0.14285E-08_JPRB /)  
+KB(:, 5,30, 1) = (/ &
+ & 0.87340E-10_JPRB,0.36953E-07_JPRB,0.56709E-07_JPRB,0.68921E-07_JPRB,0.15563E-08_JPRB /)  
+KB(:, 1,31, 1) = (/ &
+ & 0.88806E-10_JPRB,0.22555E-07_JPRB,0.32386E-07_JPRB,0.37129E-07_JPRB,0.89029E-09_JPRB /)  
+KB(:, 2,31, 1) = (/ &
+ & 0.83417E-10_JPRB,0.24519E-07_JPRB,0.35921E-07_JPRB,0.41870E-07_JPRB,0.98548E-09_JPRB /)  
+KB(:, 3,31, 1) = (/ &
+ & 0.78644E-10_JPRB,0.26638E-07_JPRB,0.39609E-07_JPRB,0.47273E-07_JPRB,0.10854E-08_JPRB /)  
+KB(:, 4,31, 1) = (/ &
+ & 0.74388E-10_JPRB,0.28694E-07_JPRB,0.43423E-07_JPRB,0.52435E-07_JPRB,0.11880E-08_JPRB /)  
+KB(:, 5,31, 1) = (/ &
+ & 0.70568E-10_JPRB,0.30776E-07_JPRB,0.47411E-07_JPRB,0.57750E-07_JPRB,0.12931E-08_JPRB /)  
+KB(:, 1,32, 1) = (/ &
+ & 0.71507E-10_JPRB,0.18870E-07_JPRB,0.27332E-07_JPRB,0.31309E-07_JPRB,0.74436E-09_JPRB /)  
+KB(:, 2,32, 1) = (/ &
+ & 0.67235E-10_JPRB,0.20512E-07_JPRB,0.30189E-07_JPRB,0.35407E-07_JPRB,0.82294E-09_JPRB /)  
+KB(:, 3,32, 1) = (/ &
+ & 0.63444E-10_JPRB,0.22259E-07_JPRB,0.33218E-07_JPRB,0.39730E-07_JPRB,0.90483E-09_JPRB /)  
+KB(:, 4,32, 1) = (/ &
+ & 0.60058E-10_JPRB,0.23923E-07_JPRB,0.36405E-07_JPRB,0.43976E-07_JPRB,0.98908E-09_JPRB /)  
+KB(:, 5,32, 1) = (/ &
+ & 0.57015E-10_JPRB,0.25634E-07_JPRB,0.39548E-07_JPRB,0.48346E-07_JPRB,0.10750E-08_JPRB /)  
+KB(:, 1,33, 1) = (/ &
+ & 0.57586E-10_JPRB,0.15779E-07_JPRB,0.22950E-07_JPRB,0.26415E-07_JPRB,0.62256E-09_JPRB /)  
+KB(:, 2,33, 1) = (/ &
+ & 0.54199E-10_JPRB,0.17153E-07_JPRB,0.25354E-07_JPRB,0.29904E-07_JPRB,0.68734E-09_JPRB /)  
+KB(:, 3,33, 1) = (/ &
+ & 0.51188E-10_JPRB,0.18569E-07_JPRB,0.27869E-07_JPRB,0.33404E-07_JPRB,0.75467E-09_JPRB /)  
+KB(:, 4,33, 1) = (/ &
+ & 0.48493E-10_JPRB,0.19935E-07_JPRB,0.30437E-07_JPRB,0.36856E-07_JPRB,0.82369E-09_JPRB /)  
+KB(:, 5,33, 1) = (/ &
+ & 0.46069E-10_JPRB,0.21345E-07_JPRB,0.32988E-07_JPRB,0.40478E-07_JPRB,0.89402E-09_JPRB /)  
+KB(:, 1,34, 1) = (/ &
+ & 0.46487E-10_JPRB,0.13161E-07_JPRB,0.19216E-07_JPRB,0.22212E-07_JPRB,0.51910E-09_JPRB /)  
+KB(:, 2,34, 1) = (/ &
+ & 0.43789E-10_JPRB,0.14301E-07_JPRB,0.21182E-07_JPRB,0.25090E-07_JPRB,0.57247E-09_JPRB /)  
+KB(:, 3,34, 1) = (/ &
+ & 0.41386E-10_JPRB,0.15447E-07_JPRB,0.23208E-07_JPRB,0.27938E-07_JPRB,0.62767E-09_JPRB /)  
+KB(:, 4,34, 1) = (/ &
+ & 0.39234E-10_JPRB,0.16571E-07_JPRB,0.25347E-07_JPRB,0.30795E-07_JPRB,0.68426E-09_JPRB /)  
+KB(:, 5,34, 1) = (/ &
+ & 0.37294E-10_JPRB,0.17725E-07_JPRB,0.27392E-07_JPRB,0.33781E-07_JPRB,0.74179E-09_JPRB /)  
+KB(:, 1,35, 1) = (/ &
+ & 0.37756E-10_JPRB,0.10890E-07_JPRB,0.15882E-07_JPRB,0.18441E-07_JPRB,0.42871E-09_JPRB /)  
+KB(:, 2,35, 1) = (/ &
+ & 0.35581E-10_JPRB,0.11830E-07_JPRB,0.17514E-07_JPRB,0.20810E-07_JPRB,0.47251E-09_JPRB /)  
+KB(:, 3,35, 1) = (/ &
+ & 0.33643E-10_JPRB,0.12757E-07_JPRB,0.19184E-07_JPRB,0.23148E-07_JPRB,0.51769E-09_JPRB /)  
+KB(:, 4,35, 1) = (/ &
+ & 0.31905E-10_JPRB,0.13682E-07_JPRB,0.20941E-07_JPRB,0.25477E-07_JPRB,0.56394E-09_JPRB /)  
+KB(:, 5,35, 1) = (/ &
+ & 0.30338E-10_JPRB,0.14628E-07_JPRB,0.22613E-07_JPRB,0.27948E-07_JPRB,0.61100E-09_JPRB /)  
+KB(:, 1,36, 1) = (/ &
+ & 0.30872E-10_JPRB,0.89290E-08_JPRB,0.13007E-07_JPRB,0.15108E-07_JPRB,0.35034E-09_JPRB /)  
+KB(:, 2,36, 1) = (/ &
+ & 0.29096E-10_JPRB,0.96995E-08_JPRB,0.14343E-07_JPRB,0.17051E-07_JPRB,0.38609E-09_JPRB /)  
+KB(:, 3,36, 1) = (/ &
+ & 0.27513E-10_JPRB,0.10456E-07_JPRB,0.15713E-07_JPRB,0.18968E-07_JPRB,0.42296E-09_JPRB /)  
+KB(:, 4,36, 1) = (/ &
+ & 0.26093E-10_JPRB,0.11213E-07_JPRB,0.17153E-07_JPRB,0.20875E-07_JPRB,0.46073E-09_JPRB /)  
+KB(:, 5,36, 1) = (/ &
+ & 0.24812E-10_JPRB,0.11987E-07_JPRB,0.18522E-07_JPRB,0.22899E-07_JPRB,0.49916E-09_JPRB /)  
+KB(:, 1,37, 1) = (/ &
+ & 0.25479E-10_JPRB,0.72338E-08_JPRB,0.10508E-07_JPRB,0.12165E-07_JPRB,0.28268E-09_JPRB /)  
+KB(:, 2,37, 1) = (/ &
+ & 0.24002E-10_JPRB,0.78593E-08_JPRB,0.11594E-07_JPRB,0.13747E-07_JPRB,0.31173E-09_JPRB /)  
+KB(:, 3,37, 1) = (/ &
+ & 0.22687E-10_JPRB,0.84845E-08_JPRB,0.12712E-07_JPRB,0.15315E-07_JPRB,0.34178E-09_JPRB /)  
+KB(:, 4,37, 1) = (/ &
+ & 0.21508E-10_JPRB,0.90997E-08_JPRB,0.13892E-07_JPRB,0.16886E-07_JPRB,0.37260E-09_JPRB /)  
+KB(:, 5,37, 1) = (/ &
+ & 0.20446E-10_JPRB,0.97322E-08_JPRB,0.15012E-07_JPRB,0.18526E-07_JPRB,0.40398E-09_JPRB /)  
+KB(:, 1,38, 1) = (/ &
+ & 0.21041E-10_JPRB,0.58565E-08_JPRB,0.84831E-08_JPRB,0.97892E-08_JPRB,0.22791E-09_JPRB /)  
+KB(:, 2,38, 1) = (/ &
+ & 0.19811E-10_JPRB,0.63636E-08_JPRB,0.93619E-08_JPRB,0.11072E-07_JPRB,0.25148E-09_JPRB /)  
+KB(:, 3,38, 1) = (/ &
+ & 0.18717E-10_JPRB,0.68784E-08_JPRB,0.10276E-07_JPRB,0.12360E-07_JPRB,0.27595E-09_JPRB /)  
+KB(:, 4,38, 1) = (/ &
+ & 0.17738E-10_JPRB,0.73792E-08_JPRB,0.11234E-07_JPRB,0.13638E-07_JPRB,0.30109E-09_JPRB /)  
+KB(:, 5,38, 1) = (/ &
+ & 0.16856E-10_JPRB,0.78971E-08_JPRB,0.12166E-07_JPRB,0.14977E-07_JPRB,0.32671E-09_JPRB /)  
+KB(:, 1,39, 1) = (/ &
+ & 0.17377E-10_JPRB,0.47418E-08_JPRB,0.68561E-08_JPRB,0.78795E-08_JPRB,0.18373E-09_JPRB /)  
+KB(:, 2,39, 1) = (/ &
+ & 0.16353E-10_JPRB,0.51532E-08_JPRB,0.75620E-08_JPRB,0.89128E-08_JPRB,0.20284E-09_JPRB /)  
+KB(:, 3,39, 1) = (/ &
+ & 0.15443E-10_JPRB,0.55752E-08_JPRB,0.83069E-08_JPRB,0.99666E-08_JPRB,0.22279E-09_JPRB /)  
+KB(:, 4,39, 1) = (/ &
+ & 0.14629E-10_JPRB,0.59857E-08_JPRB,0.90872E-08_JPRB,0.11011E-07_JPRB,0.24327E-09_JPRB /)  
+KB(:, 5,39, 1) = (/ &
+ & 0.13896E-10_JPRB,0.64086E-08_JPRB,0.98616E-08_JPRB,0.12104E-07_JPRB,0.26420E-09_JPRB /)  
+KB(:, 1,40, 1) = (/ &
+ & 0.14445E-10_JPRB,0.38091E-08_JPRB,0.54799E-08_JPRB,0.62754E-08_JPRB,0.14679E-09_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,40, 1) = (/ &
+ & 0.13581E-10_JPRB,0.41391E-08_JPRB,0.60530E-08_JPRB,0.70909E-08_JPRB,0.16220E-09_JPRB /)  
+KB(:, 3,40, 1) = (/ &
+ & 0.12815E-10_JPRB,0.44888E-08_JPRB,0.66555E-08_JPRB,0.79532E-08_JPRB,0.17842E-09_JPRB /)  
+KB(:, 4,40, 1) = (/ &
+ & 0.12131E-10_JPRB,0.48207E-08_JPRB,0.72855E-08_JPRB,0.88071E-08_JPRB,0.19509E-09_JPRB /)  
+KB(:, 5,40, 1) = (/ &
+ & 0.11516E-10_JPRB,0.51646E-08_JPRB,0.79268E-08_JPRB,0.96932E-08_JPRB,0.21214E-09_JPRB /)  
+KB(:, 1,41, 1) = (/ &
+ & 0.12021E-10_JPRB,0.30566E-08_JPRB,0.43606E-08_JPRB,0.49921E-08_JPRB,0.11713E-09_JPRB /)  
+KB(:, 2,41, 1) = (/ &
+ & 0.11291E-10_JPRB,0.33205E-08_JPRB,0.48340E-08_JPRB,0.56256E-08_JPRB,0.12954E-09_JPRB /)  
+KB(:, 3,41, 1) = (/ &
+ & 0.10645E-10_JPRB,0.36053E-08_JPRB,0.53261E-08_JPRB,0.63473E-08_JPRB,0.14269E-09_JPRB /)  
+KB(:, 4,41, 1) = (/ &
+ & 0.10069E-10_JPRB,0.38782E-08_JPRB,0.58347E-08_JPRB,0.70386E-08_JPRB,0.15624E-09_JPRB /)  
+KB(:, 5,41, 1) = (/ &
+ & 0.95520E-11_JPRB,0.41580E-08_JPRB,0.63647E-08_JPRB,0.77515E-08_JPRB,0.17013E-09_JPRB /)  
+KB(:, 1,42, 1) = (/ &
+ & 0.10007E-10_JPRB,0.24516E-08_JPRB,0.34653E-08_JPRB,0.39398E-08_JPRB,0.93475E-10_JPRB /)  
+KB(:, 2,42, 1) = (/ &
+ & 0.93902E-11_JPRB,0.26631E-08_JPRB,0.38588E-08_JPRB,0.44635E-08_JPRB,0.10342E-09_JPRB /)  
+KB(:, 3,42, 1) = (/ &
+ & 0.88449E-11_JPRB,0.28926E-08_JPRB,0.42600E-08_JPRB,0.50466E-08_JPRB,0.11406E-09_JPRB /)  
+KB(:, 4,42, 1) = (/ &
+ & 0.83594E-11_JPRB,0.31198E-08_JPRB,0.46719E-08_JPRB,0.56218E-08_JPRB,0.12507E-09_JPRB /)  
+KB(:, 5,42, 1) = (/ &
+ & 0.79244E-11_JPRB,0.33465E-08_JPRB,0.51065E-08_JPRB,0.61999E-08_JPRB,0.13640E-09_JPRB /)  
+KB(:, 1,43, 1) = (/ &
+ & 0.83647E-11_JPRB,0.19578E-08_JPRB,0.27341E-08_JPRB,0.30827E-08_JPRB,0.74277E-10_JPRB /)  
+KB(:, 2,43, 1) = (/ &
+ & 0.78389E-11_JPRB,0.21263E-08_JPRB,0.30690E-08_JPRB,0.35212E-08_JPRB,0.82118E-10_JPRB /)  
+KB(:, 3,43, 1) = (/ &
+ & 0.73752E-11_JPRB,0.23103E-08_JPRB,0.33865E-08_JPRB,0.39836E-08_JPRB,0.90672E-10_JPRB /)  
+KB(:, 4,43, 1) = (/ &
+ & 0.69633E-11_JPRB,0.24984E-08_JPRB,0.37198E-08_JPRB,0.44569E-08_JPRB,0.99628E-10_JPRB /)  
+KB(:, 5,43, 1) = (/ &
+ & 0.65950E-11_JPRB,0.26833E-08_JPRB,0.40709E-08_JPRB,0.49265E-08_JPRB,0.10883E-09_JPRB /)  
+KB(:, 1,44, 1) = (/ &
+ & 0.70070E-11_JPRB,0.15628E-08_JPRB,0.21521E-08_JPRB,0.24017E-08_JPRB,0.59116E-10_JPRB /)  
+KB(:, 2,44, 1) = (/ &
+ & 0.65570E-11_JPRB,0.16954E-08_JPRB,0.24254E-08_JPRB,0.27772E-08_JPRB,0.65027E-10_JPRB /)  
+KB(:, 3,44, 1) = (/ &
+ & 0.61612E-11_JPRB,0.18413E-08_JPRB,0.26845E-08_JPRB,0.31310E-08_JPRB,0.71892E-10_JPRB /)  
+KB(:, 4,44, 1) = (/ &
+ & 0.58106E-11_JPRB,0.19977E-08_JPRB,0.29542E-08_JPRB,0.35211E-08_JPRB,0.79144E-10_JPRB /)  
+KB(:, 5,44, 1) = (/ &
+ & 0.54976E-11_JPRB,0.21464E-08_JPRB,0.32360E-08_JPRB,0.39045E-08_JPRB,0.86629E-10_JPRB /)  
+KB(:, 1,45, 1) = (/ &
+ & 0.58728E-11_JPRB,0.12500E-08_JPRB,0.17079E-08_JPRB,0.18743E-08_JPRB,0.46646E-10_JPRB /)  
+KB(:, 2,45, 1) = (/ &
+ & 0.54873E-11_JPRB,0.13505E-08_JPRB,0.19105E-08_JPRB,0.21719E-08_JPRB,0.51499E-10_JPRB /)  
+KB(:, 3,45, 1) = (/ &
+ & 0.51492E-11_JPRB,0.14670E-08_JPRB,0.21250E-08_JPRB,0.24590E-08_JPRB,0.56982E-10_JPRB /)  
+KB(:, 4,45, 1) = (/ &
+ & 0.48504E-11_JPRB,0.15931E-08_JPRB,0.23464E-08_JPRB,0.27802E-08_JPRB,0.62839E-10_JPRB /)  
+KB(:, 5,45, 1) = (/ &
+ & 0.45844E-11_JPRB,0.17167E-08_JPRB,0.25731E-08_JPRB,0.30954E-08_JPRB,0.68908E-10_JPRB /)  
+KB(:, 1,46, 1) = (/ &
+ & 0.49328E-11_JPRB,0.99811E-09_JPRB,0.13397E-08_JPRB,0.14457E-08_JPRB,0.36694E-10_JPRB /)  
+KB(:, 2,46, 1) = (/ &
+ & 0.46012E-11_JPRB,0.10742E-08_JPRB,0.14986E-08_JPRB,0.16875E-08_JPRB,0.40742E-10_JPRB /)  
+KB(:, 3,46, 1) = (/ &
+ & 0.43113E-11_JPRB,0.11665E-08_JPRB,0.16813E-08_JPRB,0.19281E-08_JPRB,0.45049E-10_JPRB /)  
+KB(:, 4,46, 1) = (/ &
+ & 0.40558E-11_JPRB,0.12673E-08_JPRB,0.18567E-08_JPRB,0.21817E-08_JPRB,0.49751E-10_JPRB /)  
+KB(:, 5,46, 1) = (/ &
+ & 0.38288E-11_JPRB,0.13702E-08_JPRB,0.20399E-08_JPRB,0.24419E-08_JPRB,0.54679E-10_JPRB /)  
+KB(:, 1,47, 1) = (/ &
+ & 0.41592E-11_JPRB,0.79205E-09_JPRB,0.10438E-08_JPRB,0.11055E-08_JPRB,0.28709E-10_JPRB /)  
+KB(:, 2,47, 1) = (/ &
+ & 0.38717E-11_JPRB,0.85357E-09_JPRB,0.11710E-08_JPRB,0.13015E-08_JPRB,0.32198E-10_JPRB /)  
+KB(:, 3,47, 1) = (/ &
+ & 0.36215E-11_JPRB,0.92515E-09_JPRB,0.13196E-08_JPRB,0.15103E-08_JPRB,0.35448E-10_JPRB /)  
+KB(:, 4,47, 1) = (/ &
+ & 0.34016E-11_JPRB,0.10046E-08_JPRB,0.14619E-08_JPRB,0.17010E-08_JPRB,0.39203E-10_JPRB /)  
+KB(:, 5,47, 1) = (/ &
+ & 0.32069E-11_JPRB,0.10904E-08_JPRB,0.16100E-08_JPRB,0.19168E-08_JPRB,0.43187E-10_JPRB /)  
+KB(:, 1,48, 1) = (/ &
+ & 0.35100E-11_JPRB,0.62849E-09_JPRB,0.81319E-09_JPRB,0.84567E-09_JPRB,0.22456E-10_JPRB /)  
+KB(:, 2,48, 1) = (/ &
+ & 0.32605E-11_JPRB,0.68021E-09_JPRB,0.92169E-09_JPRB,0.10040E-08_JPRB,0.25229E-10_JPRB /)  
+KB(:, 3,48, 1) = (/ &
+ & 0.30441E-11_JPRB,0.73294E-09_JPRB,0.10314E-08_JPRB,0.11665E-08_JPRB,0.27903E-10_JPRB /)  
+KB(:, 4,48, 1) = (/ &
+ & 0.28547E-11_JPRB,0.79615E-09_JPRB,0.11495E-08_JPRB,0.13251E-08_JPRB,0.30879E-10_JPRB /)  
+KB(:, 5,48, 1) = (/ &
+ & 0.26874E-11_JPRB,0.86463E-09_JPRB,0.12703E-08_JPRB,0.14994E-08_JPRB,0.34082E-10_JPRB /)  
+KB(:, 1,49, 1) = (/ &
+ & 0.29649E-11_JPRB,0.49867E-09_JPRB,0.63572E-09_JPRB,0.64557E-09_JPRB,0.17554E-10_JPRB /)  
+KB(:, 2,49, 1) = (/ &
+ & 0.27480E-11_JPRB,0.54124E-09_JPRB,0.71871E-09_JPRB,0.76840E-09_JPRB,0.19749E-10_JPRB /)  
+KB(:, 3,49, 1) = (/ &
+ & 0.25606E-11_JPRB,0.58140E-09_JPRB,0.80413E-09_JPRB,0.90054E-09_JPRB,0.22012E-10_JPRB /)  
+KB(:, 4,49, 1) = (/ &
+ & 0.23972E-11_JPRB,0.63097E-09_JPRB,0.90637E-09_JPRB,0.10349E-08_JPRB,0.24308E-10_JPRB /)  
+KB(:, 5,49, 1) = (/ &
+ & 0.22534E-11_JPRB,0.68545E-09_JPRB,0.10006E-08_JPRB,0.11704E-08_JPRB,0.26872E-10_JPRB /)  
+KB(:, 1,50, 1) = (/ &
+ & 0.25019E-11_JPRB,0.39853E-09_JPRB,0.49374E-09_JPRB,0.49615E-09_JPRB,0.13762E-10_JPRB /)  
+KB(:, 2,50, 1) = (/ &
+ & 0.23136E-11_JPRB,0.42952E-09_JPRB,0.56141E-09_JPRB,0.58980E-09_JPRB,0.15500E-10_JPRB /)  
+KB(:, 3,50, 1) = (/ &
+ & 0.21517E-11_JPRB,0.46334E-09_JPRB,0.63284E-09_JPRB,0.69788E-09_JPRB,0.17390E-10_JPRB /)  
+KB(:, 4,50, 1) = (/ &
+ & 0.20110E-11_JPRB,0.50130E-09_JPRB,0.71124E-09_JPRB,0.80903E-09_JPRB,0.19184E-10_JPRB /)  
+KB(:, 5,50, 1) = (/ &
+ & 0.18875E-11_JPRB,0.54446E-09_JPRB,0.78908E-09_JPRB,0.91435E-09_JPRB,0.21230E-10_JPRB /)  
+KB(:, 1,51, 1) = (/ &
+ & 0.21111E-11_JPRB,0.31534E-09_JPRB,0.38552E-09_JPRB,0.38324E-09_JPRB,0.10851E-10_JPRB /)  
+KB(:, 2,51, 1) = (/ &
+ & 0.19478E-11_JPRB,0.34179E-09_JPRB,0.43986E-09_JPRB,0.45355E-09_JPRB,0.12176E-10_JPRB /)  
+KB(:, 3,51, 1) = (/ &
+ & 0.18079E-11_JPRB,0.37016E-09_JPRB,0.49835E-09_JPRB,0.53919E-09_JPRB,0.13683E-10_JPRB /)  
+KB(:, 4,51, 1) = (/ &
+ & 0.16868E-11_JPRB,0.39846E-09_JPRB,0.55746E-09_JPRB,0.62805E-09_JPRB,0.15164E-10_JPRB /)  
+KB(:, 5,51, 1) = (/ &
+ & 0.15809E-11_JPRB,0.43272E-09_JPRB,0.62310E-09_JPRB,0.71587E-09_JPRB,0.16785E-10_JPRB /)  
+KB(:, 1,52, 1) = (/ &
+ & 0.17830E-11_JPRB,0.24939E-09_JPRB,0.30033E-09_JPRB,0.29708E-09_JPRB,0.85480E-11_JPRB /)  
+KB(:, 2,52, 1) = (/ &
+ & 0.16410E-11_JPRB,0.27244E-09_JPRB,0.34467E-09_JPRB,0.34870E-09_JPRB,0.95642E-11_JPRB /)  
+KB(:, 3,52, 1) = (/ &
+ & 0.15200E-11_JPRB,0.29507E-09_JPRB,0.39020E-09_JPRB,0.41505E-09_JPRB,0.10764E-10_JPRB /)  
+KB(:, 4,52, 1) = (/ &
+ & 0.14156E-11_JPRB,0.31736E-09_JPRB,0.43693E-09_JPRB,0.48758E-09_JPRB,0.12016E-10_JPRB /)  
+KB(:, 5,52, 1) = (/ &
+ & 0.13246E-11_JPRB,0.34409E-09_JPRB,0.49243E-09_JPRB,0.56181E-09_JPRB,0.13267E-10_JPRB /)  
+KB(:, 1,53, 1) = (/ &
+ & 0.15074E-11_JPRB,0.19746E-09_JPRB,0.23442E-09_JPRB,0.23027E-09_JPRB,0.66942E-11_JPRB /)  
+KB(:, 2,53, 1) = (/ &
+ & 0.13838E-11_JPRB,0.21754E-09_JPRB,0.26812E-09_JPRB,0.26865E-09_JPRB,0.75095E-11_JPRB /)  
+KB(:, 3,53, 1) = (/ &
+ & 0.12789E-11_JPRB,0.23445E-09_JPRB,0.30510E-09_JPRB,0.31916E-09_JPRB,0.84626E-11_JPRB /)  
+KB(:, 4,53, 1) = (/ &
+ & 0.11888E-11_JPRB,0.25305E-09_JPRB,0.34496E-09_JPRB,0.37906E-09_JPRB,0.94963E-11_JPRB /)  
+KB(:, 5,53, 1) = (/ &
+ & 0.11106E-11_JPRB,0.27355E-09_JPRB,0.38680E-09_JPRB,0.43882E-09_JPRB,0.10486E-10_JPRB /)  
+KB(:, 1,54, 1) = (/ &
+ & 0.12722E-11_JPRB,0.15676E-09_JPRB,0.18436E-09_JPRB,0.18188E-09_JPRB,0.52601E-11_JPRB /)  
+KB(:, 2,54, 1) = (/ &
+ & 0.11649E-11_JPRB,0.17256E-09_JPRB,0.21030E-09_JPRB,0.20876E-09_JPRB,0.59465E-11_JPRB /)  
+KB(:, 3,54, 1) = (/ &
+ & 0.10743E-11_JPRB,0.18706E-09_JPRB,0.24022E-09_JPRB,0.24657E-09_JPRB,0.66750E-11_JPRB /)  
+KB(:, 4,54, 1) = (/ &
+ & 0.99683E-12_JPRB,0.20263E-09_JPRB,0.27206E-09_JPRB,0.29337E-09_JPRB,0.75016E-11_JPRB /)  
+KB(:, 5,54, 1) = (/ &
+ & 0.92975E-12_JPRB,0.21798E-09_JPRB,0.30420E-09_JPRB,0.34203E-09_JPRB,0.83182E-11_JPRB /)  
+KB(:, 1,55, 1) = (/ &
+ & 0.10733E-11_JPRB,0.12552E-09_JPRB,0.14668E-09_JPRB,0.14477E-09_JPRB,0.41440E-11_JPRB /)  
+KB(:, 2,55, 1) = (/ &
+ & 0.98027E-12_JPRB,0.13705E-09_JPRB,0.16480E-09_JPRB,0.16298E-09_JPRB,0.47137E-11_JPRB /)  
+KB(:, 3,55, 1) = (/ &
+ & 0.90209E-12_JPRB,0.14966E-09_JPRB,0.18911E-09_JPRB,0.19117E-09_JPRB,0.52730E-11_JPRB /)  
+KB(:, 4,55, 1) = (/ &
+ & 0.83546E-12_JPRB,0.16210E-09_JPRB,0.21410E-09_JPRB,0.22758E-09_JPRB,0.59349E-11_JPRB /)  
+KB(:, 5,55, 1) = (/ &
+ & 0.77800E-12_JPRB,0.17423E-09_JPRB,0.23972E-09_JPRB,0.26725E-09_JPRB,0.66163E-11_JPRB /)  
+KB(:, 1,56, 1) = (/ &
+ & 0.90624E-12_JPRB,0.99786E-10_JPRB,0.11674E-09_JPRB,0.11286E-09_JPRB,0.32776E-11_JPRB /)  
+KB(:, 2,56, 1) = (/ &
+ & 0.82547E-12_JPRB,0.10897E-09_JPRB,0.12938E-09_JPRB,0.12705E-09_JPRB,0.37161E-11_JPRB /)  
+KB(:, 3,56, 1) = (/ &
+ & 0.75791E-12_JPRB,0.12009E-09_JPRB,0.14804E-09_JPRB,0.14827E-09_JPRB,0.41646E-11_JPRB /)  
+KB(:, 4,56, 1) = (/ &
+ & 0.70058E-12_JPRB,0.12925E-09_JPRB,0.16837E-09_JPRB,0.17630E-09_JPRB,0.46957E-11_JPRB /)  
+KB(:, 5,56, 1) = (/ &
+ & 0.65131E-12_JPRB,0.13937E-09_JPRB,0.18999E-09_JPRB,0.20899E-09_JPRB,0.52742E-11_JPRB /)  
+KB(:, 1,57, 1) = (/ &
+ & 0.76595E-12_JPRB,0.78822E-10_JPRB,0.93863E-10_JPRB,0.87529E-10_JPRB,0.26033E-11_JPRB /)  
+KB(:, 2,57, 1) = (/ &
+ & 0.69568E-12_JPRB,0.86555E-10_JPRB,0.10190E-09_JPRB,0.10022E-09_JPRB,0.29288E-11_JPRB /)  
+KB(:, 3,57, 1) = (/ &
+ & 0.63721E-12_JPRB,0.95385E-10_JPRB,0.11640E-09_JPRB,0.11533E-09_JPRB,0.32994E-11_JPRB /)  
+KB(:, 4,57, 1) = (/ &
+ & 0.58782E-12_JPRB,0.10325E-09_JPRB,0.13264E-09_JPRB,0.13663E-09_JPRB,0.37186E-11_JPRB /)  
+KB(:, 5,57, 1) = (/ &
+ & 0.54552E-12_JPRB,0.11173E-09_JPRB,0.15042E-09_JPRB,0.16253E-09_JPRB,0.41819E-11_JPRB /)  
+KB(:, 1,58, 1) = (/ &
+ & 0.64693E-12_JPRB,0.62421E-10_JPRB,0.76174E-10_JPRB,0.68324E-10_JPRB,0.20833E-11_JPRB /)  
+KB(:, 2,58, 1) = (/ &
+ & 0.58588E-12_JPRB,0.69278E-10_JPRB,0.81197E-10_JPRB,0.79691E-10_JPRB,0.23130E-11_JPRB /)  
+KB(:, 3,58, 1) = (/ &
+ & 0.53535E-12_JPRB,0.75873E-10_JPRB,0.91414E-10_JPRB,0.90398E-10_JPRB,0.26350E-11_JPRB /)  
+KB(:, 4,58, 1) = (/ &
+ & 0.49285E-12_JPRB,0.82653E-10_JPRB,0.10493E-09_JPRB,0.10617E-09_JPRB,0.29473E-11_JPRB /)  
+KB(:, 5,58, 1) = (/ &
+ & 0.45660E-12_JPRB,0.89643E-10_JPRB,0.11861E-09_JPRB,0.12647E-09_JPRB,0.33231E-11_JPRB /)  
+KB(:, 1,59, 1) = (/ &
+ & 0.53645E-12_JPRB,0.50557E-10_JPRB,0.62240E-10_JPRB,0.54854E-10_JPRB,0.16930E-11_JPRB /)  
+KB(:, 2,59, 1) = (/ &
+ & 0.48523E-12_JPRB,0.56468E-10_JPRB,0.65604E-10_JPRB,0.64827E-10_JPRB,0.18702E-11_JPRB /)  
+KB(:, 3,59, 1) = (/ &
+ & 0.44294E-12_JPRB,0.61442E-10_JPRB,0.73667E-10_JPRB,0.72688E-10_JPRB,0.21292E-11_JPRB /)  
+KB(:, 4,59, 1) = (/ &
+ & 0.40744E-12_JPRB,0.67184E-10_JPRB,0.84490E-10_JPRB,0.85217E-10_JPRB,0.23832E-11_JPRB /)  
+KB(:, 5,59, 1) = (/ &
+ & 0.37720E-12_JPRB,0.72657E-10_JPRB,0.95692E-10_JPRB,0.10144E-09_JPRB,0.26852E-11_JPRB /)  
+KB(:, 1,13, 2) = (/ &
+ & 0.18323E-07_JPRB,0.86266E-05_JPRB,0.13728E-04_JPRB,0.15952E-04_JPRB,0.78927E-06_JPRB /)  
+KB(:, 2,13, 2) = (/ &
+ & 0.16961E-07_JPRB,0.96203E-05_JPRB,0.15275E-04_JPRB,0.17863E-04_JPRB,0.93659E-06_JPRB /)  
+KB(:, 3,13, 2) = (/ &
+ & 0.15787E-07_JPRB,0.10675E-04_JPRB,0.16924E-04_JPRB,0.19675E-04_JPRB,0.11050E-05_JPRB /)  
+KB(:, 4,13, 2) = (/ &
+ & 0.14764E-07_JPRB,0.11779E-04_JPRB,0.18474E-04_JPRB,0.21320E-04_JPRB,0.12868E-05_JPRB /)  
+KB(:, 5,13, 2) = (/ &
+ & 0.13865E-07_JPRB,0.12843E-04_JPRB,0.20029E-04_JPRB,0.23080E-04_JPRB,0.14565E-05_JPRB /)  
+KB(:, 1,14, 2) = (/ &
+ & 0.14893E-07_JPRB,0.71882E-05_JPRB,0.11443E-04_JPRB,0.13271E-04_JPRB,0.65835E-06_JPRB /)  
+KB(:, 2,14, 2) = (/ &
+ & 0.13793E-07_JPRB,0.80276E-05_JPRB,0.12732E-04_JPRB,0.14890E-04_JPRB,0.78132E-06_JPRB /)  
+KB(:, 3,14, 2) = (/ &
+ & 0.12844E-07_JPRB,0.89189E-05_JPRB,0.14101E-04_JPRB,0.16339E-04_JPRB,0.92233E-06_JPRB /)  
+KB(:, 4,14, 2) = (/ &
+ & 0.12017E-07_JPRB,0.98309E-05_JPRB,0.15384E-04_JPRB,0.17721E-04_JPRB,0.10676E-05_JPRB /)  
+KB(:, 5,14, 2) = (/ &
+ & 0.11289E-07_JPRB,0.10704E-04_JPRB,0.16679E-04_JPRB,0.19194E-04_JPRB,0.12091E-05_JPRB /)  
+KB(:, 1,15, 2) = (/ &
+ & 0.12096E-07_JPRB,0.59934E-05_JPRB,0.95449E-05_JPRB,0.11058E-04_JPRB,0.54969E-06_JPRB /)  
+KB(:, 2,15, 2) = (/ &
+ & 0.11209E-07_JPRB,0.66932E-05_JPRB,0.10623E-04_JPRB,0.12407E-04_JPRB,0.65197E-06_JPRB /)  
+KB(:, 3,15, 2) = (/ &
+ & 0.10443E-07_JPRB,0.74449E-05_JPRB,0.11746E-04_JPRB,0.13571E-04_JPRB,0.76940E-06_JPRB /)  
+KB(:, 4,15, 2) = (/ &
+ & 0.97747E-08_JPRB,0.81948E-05_JPRB,0.12814E-04_JPRB,0.14732E-04_JPRB,0.88496E-06_JPRB /)  
+KB(:, 5,15, 2) = (/ &
+ & 0.91864E-08_JPRB,0.89188E-05_JPRB,0.13883E-04_JPRB,0.15946E-04_JPRB,0.10023E-05_JPRB /)  
+KB(:, 1,16, 2) = (/ &
+ & 0.98205E-08_JPRB,0.50027E-05_JPRB,0.79644E-05_JPRB,0.92248E-05_JPRB,0.45876E-06_JPRB /)  
+KB(:, 2,16, 2) = (/ &
+ & 0.91061E-08_JPRB,0.55846E-05_JPRB,0.88593E-05_JPRB,0.10331E-04_JPRB,0.54334E-06_JPRB /)  
+KB(:, 3,16, 2) = (/ &
+ & 0.84882E-08_JPRB,0.62183E-05_JPRB,0.97757E-05_JPRB,0.11279E-04_JPRB,0.64050E-06_JPRB /)  
+KB(:, 4,16, 2) = (/ &
+ & 0.79486E-08_JPRB,0.68276E-05_JPRB,0.10664E-04_JPRB,0.12244E-04_JPRB,0.73344E-06_JPRB /)  
+KB(:, 5,16, 2) = (/ &
+ & 0.74732E-08_JPRB,0.74268E-05_JPRB,0.11545E-04_JPRB,0.13224E-04_JPRB,0.82955E-06_JPRB /)  
+KB(:, 1,17, 2) = (/ &
+ & 0.79753E-08_JPRB,0.41713E-05_JPRB,0.66153E-05_JPRB,0.76892E-05_JPRB,0.38247E-06_JPRB /)  
+KB(:, 2,17, 2) = (/ &
+ & 0.73994E-08_JPRB,0.46562E-05_JPRB,0.73753E-05_JPRB,0.85922E-05_JPRB,0.45188E-06_JPRB /)  
+KB(:, 3,17, 2) = (/ &
+ & 0.69008E-08_JPRB,0.51829E-05_JPRB,0.81280E-05_JPRB,0.93638E-05_JPRB,0.53211E-06_JPRB /)  
+KB(:, 4,17, 2) = (/ &
+ & 0.64650E-08_JPRB,0.56765E-05_JPRB,0.88560E-05_JPRB,0.10168E-04_JPRB,0.60647E-06_JPRB /)  
+KB(:, 5,17, 2) = (/ &
+ & 0.60807E-08_JPRB,0.61758E-05_JPRB,0.95894E-05_JPRB,0.10949E-04_JPRB,0.68549E-06_JPRB /)  
+KB(:, 1,18, 2) = (/ &
+ & 0.64779E-08_JPRB,0.34727E-05_JPRB,0.54875E-05_JPRB,0.64000E-05_JPRB,0.31851E-06_JPRB /)  
+KB(:, 2,18, 2) = (/ &
+ & 0.60135E-08_JPRB,0.38751E-05_JPRB,0.61308E-05_JPRB,0.71372E-05_JPRB,0.37552E-06_JPRB /)  
+KB(:, 3,18, 2) = (/ &
+ & 0.56111E-08_JPRB,0.43132E-05_JPRB,0.67478E-05_JPRB,0.77698E-05_JPRB,0.44141E-06_JPRB /)  
+KB(:, 4,18, 2) = (/ &
+ & 0.52590E-08_JPRB,0.47150E-05_JPRB,0.73444E-05_JPRB,0.84370E-05_JPRB,0.50075E-06_JPRB /)  
+KB(:, 5,18, 2) = (/ &
+ & 0.49483E-08_JPRB,0.51345E-05_JPRB,0.79495E-05_JPRB,0.90637E-05_JPRB,0.56601E-06_JPRB /)  
+KB(:, 1,19, 2) = (/ &
+ & 0.52627E-08_JPRB,0.28908E-05_JPRB,0.45586E-05_JPRB,0.53260E-05_JPRB,0.26516E-06_JPRB /)  
+KB(:, 2,19, 2) = (/ &
+ & 0.48882E-08_JPRB,0.32260E-05_JPRB,0.50940E-05_JPRB,0.59200E-05_JPRB,0.31190E-06_JPRB /)  
+KB(:, 3,19, 2) = (/ &
+ & 0.45632E-08_JPRB,0.35843E-05_JPRB,0.55992E-05_JPRB,0.64397E-05_JPRB,0.36608E-06_JPRB /)  
+KB(:, 4,19, 2) = (/ &
+ & 0.42786E-08_JPRB,0.39167E-05_JPRB,0.60923E-05_JPRB,0.69972E-05_JPRB,0.41361E-06_JPRB /)  
+KB(:, 5,19, 2) = (/ &
+ & 0.40273E-08_JPRB,0.42667E-05_JPRB,0.65904E-05_JPRB,0.75021E-05_JPRB,0.46741E-06_JPRB /)  
+KB(:, 1,20, 2) = (/ &
+ & 0.42704E-08_JPRB,0.24074E-05_JPRB,0.37990E-05_JPRB,0.44458E-05_JPRB,0.22103E-06_JPRB /)  
+KB(:, 2,20, 2) = (/ &
+ & 0.39690E-08_JPRB,0.26942E-05_JPRB,0.42393E-05_JPRB,0.49120E-05_JPRB,0.26014E-06_JPRB /)  
+KB(:, 3,20, 2) = (/ &
+ & 0.37071E-08_JPRB,0.29827E-05_JPRB,0.46574E-05_JPRB,0.53487E-05_JPRB,0.30416E-06_JPRB /)  
+KB(:, 4,20, 2) = (/ &
+ & 0.34776E-08_JPRB,0.32601E-05_JPRB,0.50635E-05_JPRB,0.58076E-05_JPRB,0.34304E-06_JPRB /)  
+KB(:, 5,20, 2) = (/ &
+ & 0.32747E-08_JPRB,0.35518E-05_JPRB,0.54700E-05_JPRB,0.62197E-05_JPRB,0.38752E-06_JPRB /)  
+KB(:, 1,21, 2) = (/ &
+ & 0.34649E-08_JPRB,0.20096E-05_JPRB,0.31689E-05_JPRB,0.37070E-05_JPRB,0.18424E-06_JPRB /)  
+KB(:, 2,21, 2) = (/ &
+ & 0.32224E-08_JPRB,0.22503E-05_JPRB,0.35271E-05_JPRB,0.40784E-05_JPRB,0.21705E-06_JPRB /)  
+KB(:, 3,21, 2) = (/ &
+ & 0.30114E-08_JPRB,0.24834E-05_JPRB,0.38737E-05_JPRB,0.44436E-05_JPRB,0.25229E-06_JPRB /)  
+KB(:, 4,21, 2) = (/ &
+ & 0.28263E-08_JPRB,0.27149E-05_JPRB,0.42083E-05_JPRB,0.48061E-05_JPRB,0.28464E-06_JPRB /)  
+KB(:, 5,21, 2) = (/ &
+ & 0.26626E-08_JPRB,0.29556E-05_JPRB,0.45394E-05_JPRB,0.51565E-05_JPRB,0.32148E-06_JPRB /)  
+KB(:, 1,22, 2) = (/ &
+ & 0.27976E-08_JPRB,0.16913E-05_JPRB,0.26632E-05_JPRB,0.31108E-05_JPRB,0.15537E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,22, 2) = (/ &
+ & 0.26043E-08_JPRB,0.18908E-05_JPRB,0.29553E-05_JPRB,0.34067E-05_JPRB,0.18311E-06_JPRB /)  
+KB(:, 3,22, 2) = (/ &
+ & 0.24359E-08_JPRB,0.20811E-05_JPRB,0.32390E-05_JPRB,0.37110E-05_JPRB,0.21094E-06_JPRB /)  
+KB(:, 4,22, 2) = (/ &
+ & 0.22878E-08_JPRB,0.22746E-05_JPRB,0.35144E-05_JPRB,0.40009E-05_JPRB,0.23816E-06_JPRB /)  
+KB(:, 5,22, 2) = (/ &
+ & 0.21567E-08_JPRB,0.24714E-05_JPRB,0.37839E-05_JPRB,0.42910E-05_JPRB,0.26886E-06_JPRB /)  
+KB(:, 1,23, 2) = (/ &
+ & 0.22583E-08_JPRB,0.14234E-05_JPRB,0.22388E-05_JPRB,0.26088E-05_JPRB,0.13143E-06_JPRB /)  
+KB(:, 2,23, 2) = (/ &
+ & 0.21043E-08_JPRB,0.15864E-05_JPRB,0.24776E-05_JPRB,0.28493E-05_JPRB,0.15460E-06_JPRB /)  
+KB(:, 3,23, 2) = (/ &
+ & 0.19699E-08_JPRB,0.17436E-05_JPRB,0.27072E-05_JPRB,0.31009E-05_JPRB,0.17669E-06_JPRB /)  
+KB(:, 4,23, 2) = (/ &
+ & 0.18515E-08_JPRB,0.19057E-05_JPRB,0.29355E-05_JPRB,0.33308E-05_JPRB,0.19953E-06_JPRB /)  
+KB(:, 5,23, 2) = (/ &
+ & 0.17465E-08_JPRB,0.20653E-05_JPRB,0.31542E-05_JPRB,0.35663E-05_JPRB,0.22501E-06_JPRB /)  
+KB(:, 1,24, 2) = (/ &
+ & 0.18221E-08_JPRB,0.12001E-05_JPRB,0.18808E-05_JPRB,0.21868E-05_JPRB,0.11138E-06_JPRB /)  
+KB(:, 2,24, 2) = (/ &
+ & 0.16995E-08_JPRB,0.13315E-05_JPRB,0.20779E-05_JPRB,0.23825E-05_JPRB,0.13068E-06_JPRB /)  
+KB(:, 3,24, 2) = (/ &
+ & 0.15923E-08_JPRB,0.14625E-05_JPRB,0.22647E-05_JPRB,0.25884E-05_JPRB,0.14820E-06_JPRB /)  
+KB(:, 4,24, 2) = (/ &
+ & 0.14978E-08_JPRB,0.15972E-05_JPRB,0.24512E-05_JPRB,0.27771E-05_JPRB,0.16734E-06_JPRB /)  
+KB(:, 5,24, 2) = (/ &
+ & 0.14138E-08_JPRB,0.17254E-05_JPRB,0.26296E-05_JPRB,0.29649E-05_JPRB,0.18848E-06_JPRB /)  
+KB(:, 1,25, 2) = (/ &
+ & 0.14693E-08_JPRB,0.10111E-05_JPRB,0.15809E-05_JPRB,0.18286E-05_JPRB,0.94366E-07_JPRB /)  
+KB(:, 2,25, 2) = (/ &
+ & 0.13718E-08_JPRB,0.11199E-05_JPRB,0.17430E-05_JPRB,0.19952E-05_JPRB,0.11045E-06_JPRB /)  
+KB(:, 3,25, 2) = (/ &
+ & 0.12864E-08_JPRB,0.12273E-05_JPRB,0.18957E-05_JPRB,0.21572E-05_JPRB,0.12445E-06_JPRB /)  
+KB(:, 4,25, 2) = (/ &
+ & 0.12110E-08_JPRB,0.13373E-05_JPRB,0.20462E-05_JPRB,0.23162E-05_JPRB,0.14042E-06_JPRB /)  
+KB(:, 5,25, 2) = (/ &
+ & 0.11438E-08_JPRB,0.14410E-05_JPRB,0.21916E-05_JPRB,0.24648E-05_JPRB,0.15767E-06_JPRB /)  
+KB(:, 1,26, 2) = (/ &
+ & 0.11834E-08_JPRB,0.85331E-06_JPRB,0.13316E-05_JPRB,0.15329E-05_JPRB,0.80212E-07_JPRB /)  
+KB(:, 2,26, 2) = (/ &
+ & 0.11061E-08_JPRB,0.94192E-06_JPRB,0.14626E-05_JPRB,0.16729E-05_JPRB,0.92775E-07_JPRB /)  
+KB(:, 3,26, 2) = (/ &
+ & 0.10382E-08_JPRB,0.10317E-05_JPRB,0.15890E-05_JPRB,0.18006E-05_JPRB,0.10462E-06_JPRB /)  
+KB(:, 4,26, 2) = (/ &
+ & 0.97810E-09_JPRB,0.11205E-05_JPRB,0.17099E-05_JPRB,0.19314E-05_JPRB,0.11800E-06_JPRB /)  
+KB(:, 5,26, 2) = (/ &
+ & 0.92457E-09_JPRB,0.12034E-05_JPRB,0.18276E-05_JPRB,0.20504E-05_JPRB,0.13209E-06_JPRB /)  
+KB(:, 1,27, 2) = (/ &
+ & 0.95311E-09_JPRB,0.71890E-06_JPRB,0.11218E-05_JPRB,0.12867E-05_JPRB,0.68084E-07_JPRB /)  
+KB(:, 2,27, 2) = (/ &
+ & 0.89177E-09_JPRB,0.79258E-06_JPRB,0.12275E-05_JPRB,0.14019E-05_JPRB,0.77999E-07_JPRB /)  
+KB(:, 3,27, 2) = (/ &
+ & 0.83781E-09_JPRB,0.86605E-06_JPRB,0.13308E-05_JPRB,0.15040E-05_JPRB,0.88027E-07_JPRB /)  
+KB(:, 4,27, 2) = (/ &
+ & 0.78998E-09_JPRB,0.93815E-06_JPRB,0.14285E-05_JPRB,0.16091E-05_JPRB,0.99057E-07_JPRB /)  
+KB(:, 5,27, 2) = (/ &
+ & 0.74729E-09_JPRB,0.10046E-05_JPRB,0.15236E-05_JPRB,0.17059E-05_JPRB,0.11074E-06_JPRB /)  
+KB(:, 1,28, 2) = (/ &
+ & 0.76771E-09_JPRB,0.60623E-06_JPRB,0.94427E-06_JPRB,0.10796E-05_JPRB,0.57844E-07_JPRB /)  
+KB(:, 2,28, 2) = (/ &
+ & 0.71904E-09_JPRB,0.66653E-06_JPRB,0.10298E-05_JPRB,0.11699E-05_JPRB,0.65726E-07_JPRB /)  
+KB(:, 3,28, 2) = (/ &
+ & 0.67614E-09_JPRB,0.72689E-06_JPRB,0.11131E-05_JPRB,0.12568E-05_JPRB,0.74009E-07_JPRB /)  
+KB(:, 4,28, 2) = (/ &
+ & 0.63806E-09_JPRB,0.78482E-06_JPRB,0.11927E-05_JPRB,0.13406E-05_JPRB,0.83200E-07_JPRB /)  
+KB(:, 5,28, 2) = (/ &
+ & 0.60401E-09_JPRB,0.83806E-06_JPRB,0.12695E-05_JPRB,0.14186E-05_JPRB,0.92306E-07_JPRB /)  
+KB(:, 1,29, 2) = (/ &
+ & 0.61817E-09_JPRB,0.51053E-06_JPRB,0.79450E-06_JPRB,0.90687E-06_JPRB,0.49078E-07_JPRB /)  
+KB(:, 2,29, 2) = (/ &
+ & 0.57958E-09_JPRB,0.56071E-06_JPRB,0.86403E-06_JPRB,0.97690E-06_JPRB,0.55257E-07_JPRB /)  
+KB(:, 3,29, 2) = (/ &
+ & 0.54551E-09_JPRB,0.61009E-06_JPRB,0.93077E-06_JPRB,0.10495E-05_JPRB,0.62286E-07_JPRB /)  
+KB(:, 4,29, 2) = (/ &
+ & 0.51520E-09_JPRB,0.65631E-06_JPRB,0.99567E-06_JPRB,0.11159E-05_JPRB,0.69954E-07_JPRB /)  
+KB(:, 5,29, 2) = (/ &
+ & 0.48806E-09_JPRB,0.69830E-06_JPRB,0.10576E-05_JPRB,0.11790E-05_JPRB,0.77228E-07_JPRB /)  
+KB(:, 1,30, 2) = (/ &
+ & 0.49783E-09_JPRB,0.43014E-06_JPRB,0.66732E-06_JPRB,0.76058E-06_JPRB,0.41306E-07_JPRB /)  
+KB(:, 2,30, 2) = (/ &
+ & 0.46723E-09_JPRB,0.47148E-06_JPRB,0.72434E-06_JPRB,0.81682E-06_JPRB,0.46537E-07_JPRB /)  
+KB(:, 3,30, 2) = (/ &
+ & 0.44015E-09_JPRB,0.51146E-06_JPRB,0.77809E-06_JPRB,0.87537E-06_JPRB,0.52451E-07_JPRB /)  
+KB(:, 4,30, 2) = (/ &
+ & 0.41603E-09_JPRB,0.54877E-06_JPRB,0.83073E-06_JPRB,0.92884E-06_JPRB,0.58793E-07_JPRB /)  
+KB(:, 5,30, 2) = (/ &
+ & 0.39440E-09_JPRB,0.58159E-06_JPRB,0.88054E-06_JPRB,0.98030E-06_JPRB,0.64630E-07_JPRB /)  
+KB(:, 1,31, 2) = (/ &
+ & 0.40087E-09_JPRB,0.36256E-06_JPRB,0.56062E-06_JPRB,0.63549E-06_JPRB,0.34778E-07_JPRB /)  
+KB(:, 2,31, 2) = (/ &
+ & 0.37660E-09_JPRB,0.39620E-06_JPRB,0.60674E-06_JPRB,0.68313E-06_JPRB,0.39213E-07_JPRB /)  
+KB(:, 3,31, 2) = (/ &
+ & 0.35510E-09_JPRB,0.42855E-06_JPRB,0.65037E-06_JPRB,0.72999E-06_JPRB,0.44176E-07_JPRB /)  
+KB(:, 4,31, 2) = (/ &
+ & 0.33590E-09_JPRB,0.45852E-06_JPRB,0.69308E-06_JPRB,0.77338E-06_JPRB,0.49424E-07_JPRB /)  
+KB(:, 5,31, 2) = (/ &
+ & 0.31866E-09_JPRB,0.48459E-06_JPRB,0.73297E-06_JPRB,0.81484E-06_JPRB,0.54137E-07_JPRB /)  
+KB(:, 1,32, 2) = (/ &
+ & 0.32280E-09_JPRB,0.30547E-06_JPRB,0.47083E-06_JPRB,0.53147E-06_JPRB,0.29353E-07_JPRB /)  
+KB(:, 2,32, 2) = (/ &
+ & 0.30356E-09_JPRB,0.33271E-06_JPRB,0.50770E-06_JPRB,0.57112E-06_JPRB,0.33078E-07_JPRB /)  
+KB(:, 3,32, 2) = (/ &
+ & 0.28647E-09_JPRB,0.35876E-06_JPRB,0.54339E-06_JPRB,0.60852E-06_JPRB,0.37211E-07_JPRB /)  
+KB(:, 4,32, 2) = (/ &
+ & 0.27120E-09_JPRB,0.38214E-06_JPRB,0.57781E-06_JPRB,0.64354E-06_JPRB,0.41295E-07_JPRB /)  
+KB(:, 5,32, 2) = (/ &
+ & 0.25746E-09_JPRB,0.40374E-06_JPRB,0.60990E-06_JPRB,0.67711E-06_JPRB,0.45362E-07_JPRB /)  
+KB(:, 1,33, 2) = (/ &
+ & 0.25997E-09_JPRB,0.25723E-06_JPRB,0.39505E-06_JPRB,0.44467E-06_JPRB,0.24754E-07_JPRB /)  
+KB(:, 2,33, 2) = (/ &
+ & 0.24471E-09_JPRB,0.27926E-06_JPRB,0.42469E-06_JPRB,0.47702E-06_JPRB,0.27907E-07_JPRB /)  
+KB(:, 3,33, 2) = (/ &
+ & 0.23113E-09_JPRB,0.30024E-06_JPRB,0.45384E-06_JPRB,0.50672E-06_JPRB,0.31344E-07_JPRB /)  
+KB(:, 4,33, 2) = (/ &
+ & 0.21898E-09_JPRB,0.31862E-06_JPRB,0.48142E-06_JPRB,0.53515E-06_JPRB,0.34590E-07_JPRB /)  
+KB(:, 5,33, 2) = (/ &
+ & 0.20803E-09_JPRB,0.33624E-06_JPRB,0.50721E-06_JPRB,0.56242E-06_JPRB,0.37957E-07_JPRB /)  
+KB(:, 1,34, 2) = (/ &
+ & 0.20987E-09_JPRB,0.21561E-06_JPRB,0.33035E-06_JPRB,0.37093E-06_JPRB,0.20801E-07_JPRB /)  
+KB(:, 2,34, 2) = (/ &
+ & 0.19771E-09_JPRB,0.23356E-06_JPRB,0.35433E-06_JPRB,0.39723E-06_JPRB,0.23443E-07_JPRB /)  
+KB(:, 3,34, 2) = (/ &
+ & 0.18688E-09_JPRB,0.25042E-06_JPRB,0.37804E-06_JPRB,0.42127E-06_JPRB,0.26271E-07_JPRB /)  
+KB(:, 4,34, 2) = (/ &
+ & 0.17716E-09_JPRB,0.26514E-06_JPRB,0.40029E-06_JPRB,0.44433E-06_JPRB,0.28867E-07_JPRB /)  
+KB(:, 5,34, 2) = (/ &
+ & 0.16840E-09_JPRB,0.27949E-06_JPRB,0.42102E-06_JPRB,0.46612E-06_JPRB,0.31620E-07_JPRB /)  
+KB(:, 1,35, 2) = (/ &
+ & 0.17046E-09_JPRB,0.17909E-06_JPRB,0.27397E-06_JPRB,0.30730E-06_JPRB,0.17283E-07_JPRB /)  
+KB(:, 2,35, 2) = (/ &
+ & 0.16066E-09_JPRB,0.19378E-06_JPRB,0.29367E-06_JPRB,0.32869E-06_JPRB,0.19456E-07_JPRB /)  
+KB(:, 3,35, 2) = (/ &
+ & 0.15191E-09_JPRB,0.20716E-06_JPRB,0.31287E-06_JPRB,0.34820E-06_JPRB,0.21759E-07_JPRB /)  
+KB(:, 4,35, 2) = (/ &
+ & 0.14407E-09_JPRB,0.21938E-06_JPRB,0.33090E-06_JPRB,0.36703E-06_JPRB,0.23854E-07_JPRB /)  
+KB(:, 5,35, 2) = (/ &
+ & 0.13699E-09_JPRB,0.23115E-06_JPRB,0.34779E-06_JPRB,0.38459E-06_JPRB,0.26128E-07_JPRB /)  
+KB(:, 1,36, 2) = (/ &
+ & 0.13938E-09_JPRB,0.14742E-06_JPRB,0.22535E-06_JPRB,0.25261E-06_JPRB,0.14145E-07_JPRB /)  
+KB(:, 2,36, 2) = (/ &
+ & 0.13137E-09_JPRB,0.15949E-06_JPRB,0.24155E-06_JPRB,0.27011E-06_JPRB,0.15917E-07_JPRB /)  
+KB(:, 3,36, 2) = (/ &
+ & 0.12423E-09_JPRB,0.17037E-06_JPRB,0.25721E-06_JPRB,0.28606E-06_JPRB,0.17809E-07_JPRB /)  
+KB(:, 4,36, 2) = (/ &
+ & 0.11782E-09_JPRB,0.18044E-06_JPRB,0.27200E-06_JPRB,0.30149E-06_JPRB,0.19530E-07_JPRB /)  
+KB(:, 5,36, 2) = (/ &
+ & 0.11204E-09_JPRB,0.19011E-06_JPRB,0.28582E-06_JPRB,0.31581E-06_JPRB,0.21391E-07_JPRB /)  
+KB(:, 1,37, 2) = (/ &
+ & 0.11503E-09_JPRB,0.11991E-06_JPRB,0.18339E-06_JPRB,0.20540E-06_JPRB,0.11398E-07_JPRB /)  
+KB(:, 2,37, 2) = (/ &
+ & 0.10837E-09_JPRB,0.12985E-06_JPRB,0.19670E-06_JPRB,0.21991E-06_JPRB,0.12829E-07_JPRB /)  
+KB(:, 3,37, 2) = (/ &
+ & 0.10244E-09_JPRB,0.13895E-06_JPRB,0.20964E-06_JPRB,0.23310E-06_JPRB,0.14370E-07_JPRB /)  
+KB(:, 4,37, 2) = (/ &
+ & 0.97122E-10_JPRB,0.14725E-06_JPRB,0.22183E-06_JPRB,0.24582E-06_JPRB,0.15790E-07_JPRB /)  
+KB(:, 5,37, 2) = (/ &
+ & 0.92325E-10_JPRB,0.15526E-06_JPRB,0.23327E-06_JPRB,0.25767E-06_JPRB,0.17308E-07_JPRB /)  
+KB(:, 1,38, 2) = (/ &
+ & 0.94990E-10_JPRB,0.97434E-07_JPRB,0.14912E-06_JPRB,0.16699E-06_JPRB,0.91745E-08_JPRB /)  
+KB(:, 2,38, 2) = (/ &
+ & 0.89449E-10_JPRB,0.10563E-06_JPRB,0.16007E-06_JPRB,0.17890E-06_JPRB,0.10330E-07_JPRB /)  
+KB(:, 3,38, 2) = (/ &
+ & 0.84516E-10_JPRB,0.11322E-06_JPRB,0.17071E-06_JPRB,0.18982E-06_JPRB,0.11585E-07_JPRB /)  
+KB(:, 4,38, 2) = (/ &
+ & 0.80096E-10_JPRB,0.12009E-06_JPRB,0.18084E-06_JPRB,0.20030E-06_JPRB,0.12759E-07_JPRB /)  
+KB(:, 5,38, 2) = (/ &
+ & 0.76113E-10_JPRB,0.12672E-06_JPRB,0.19028E-06_JPRB,0.21012E-06_JPRB,0.13992E-07_JPRB /)  
+KB(:, 1,39, 2) = (/ &
+ & 0.78444E-10_JPRB,0.79147E-07_JPRB,0.12122E-06_JPRB,0.13573E-06_JPRB,0.73846E-08_JPRB /)  
+KB(:, 2,39, 2) = (/ &
+ & 0.73832E-10_JPRB,0.85901E-07_JPRB,0.13022E-06_JPRB,0.14552E-06_JPRB,0.83180E-08_JPRB /)  
+KB(:, 3,39, 2) = (/ &
+ & 0.69729E-10_JPRB,0.92230E-07_JPRB,0.13899E-06_JPRB,0.15459E-06_JPRB,0.93374E-08_JPRB /)  
+KB(:, 4,39, 2) = (/ &
+ & 0.66056E-10_JPRB,0.97919E-07_JPRB,0.14737E-06_JPRB,0.16325E-06_JPRB,0.10307E-07_JPRB /)  
+KB(:, 5,39, 2) = (/ &
+ & 0.62749E-10_JPRB,0.10341E-06_JPRB,0.15518E-06_JPRB,0.17133E-06_JPRB,0.11312E-07_JPRB /)  
+KB(:, 1,40, 2) = (/ &
+ & 0.65207E-10_JPRB,0.63715E-07_JPRB,0.97755E-07_JPRB,0.10945E-06_JPRB,0.58831E-08_JPRB /)  
+KB(:, 2,40, 2) = (/ &
+ & 0.61319E-10_JPRB,0.69289E-07_JPRB,0.10524E-06_JPRB,0.11757E-06_JPRB,0.66237E-08_JPRB /)  
+KB(:, 3,40, 2) = (/ &
+ & 0.57866E-10_JPRB,0.74694E-07_JPRB,0.11245E-06_JPRB,0.12515E-06_JPRB,0.74455E-08_JPRB /)  
+KB(:, 4,40, 2) = (/ &
+ & 0.54779E-10_JPRB,0.79359E-07_JPRB,0.11941E-06_JPRB,0.13229E-06_JPRB,0.82595E-08_JPRB /)  
+KB(:, 5,40, 2) = (/ &
+ & 0.52003E-10_JPRB,0.83957E-07_JPRB,0.12593E-06_JPRB,0.13909E-06_JPRB,0.90698E-08_JPRB /)  
+KB(:, 1,41, 2) = (/ &
+ & 0.54263E-10_JPRB,0.51172E-07_JPRB,0.78714E-07_JPRB,0.88183E-07_JPRB,0.46740E-08_JPRB /)  
+KB(:, 2,41, 2) = (/ &
+ & 0.50978E-10_JPRB,0.55838E-07_JPRB,0.84939E-07_JPRB,0.94828E-07_JPRB,0.52655E-08_JPRB /)  
+KB(:, 3,41, 2) = (/ &
+ & 0.48066E-10_JPRB,0.60328E-07_JPRB,0.90859E-07_JPRB,0.10118E-06_JPRB,0.59273E-08_JPRB /)  
+KB(:, 4,41, 2) = (/ &
+ & 0.45467E-10_JPRB,0.64260E-07_JPRB,0.96667E-07_JPRB,0.10710E-06_JPRB,0.66279E-08_JPRB /)  
+KB(:, 5,41, 2) = (/ &
+ & 0.43134E-10_JPRB,0.68089E-07_JPRB,0.10208E-06_JPRB,0.11279E-06_JPRB,0.72560E-08_JPRB /)  
+KB(:, 1,42, 2) = (/ &
+ & 0.45170E-10_JPRB,0.41073E-07_JPRB,0.63333E-07_JPRB,0.71067E-07_JPRB,0.37185E-08_JPRB /)  
+KB(:, 2,42, 2) = (/ &
+ & 0.42393E-10_JPRB,0.44964E-07_JPRB,0.68507E-07_JPRB,0.76455E-07_JPRB,0.41864E-08_JPRB /)  
+KB(:, 3,42, 2) = (/ &
+ & 0.39936E-10_JPRB,0.48667E-07_JPRB,0.73382E-07_JPRB,0.81772E-07_JPRB,0.47157E-08_JPRB /)  
+KB(:, 4,42, 2) = (/ &
+ & 0.37747E-10_JPRB,0.51996E-07_JPRB,0.78220E-07_JPRB,0.86689E-07_JPRB,0.52834E-08_JPRB /)  
+KB(:, 5,42, 2) = (/ &
+ & 0.35784E-10_JPRB,0.55178E-07_JPRB,0.82739E-07_JPRB,0.91434E-07_JPRB,0.58040E-08_JPRB /)  
+KB(:, 1,43, 2) = (/ &
+ & 0.37754E-10_JPRB,0.32770E-07_JPRB,0.50662E-07_JPRB,0.56979E-07_JPRB,0.29405E-08_JPRB /)  
+KB(:, 2,43, 2) = (/ &
+ & 0.35387E-10_JPRB,0.35997E-07_JPRB,0.54993E-07_JPRB,0.61357E-07_JPRB,0.33066E-08_JPRB /)  
+KB(:, 3,43, 2) = (/ &
+ & 0.33299E-10_JPRB,0.39073E-07_JPRB,0.59036E-07_JPRB,0.65793E-07_JPRB,0.37265E-08_JPRB /)  
+KB(:, 4,43, 2) = (/ &
+ & 0.31442E-10_JPRB,0.41903E-07_JPRB,0.63014E-07_JPRB,0.69920E-07_JPRB,0.41848E-08_JPRB /)  
+KB(:, 5,43, 2) = (/ &
+ & 0.29781E-10_JPRB,0.44546E-07_JPRB,0.66822E-07_JPRB,0.73849E-07_JPRB,0.46204E-08_JPRB /)  
+KB(:, 1,44, 2) = (/ &
+ & 0.31623E-10_JPRB,0.26054E-07_JPRB,0.40405E-07_JPRB,0.45692E-07_JPRB,0.22918E-08_JPRB /)  
+KB(:, 2,44, 2) = (/ &
+ & 0.29599E-10_JPRB,0.28713E-07_JPRB,0.44010E-07_JPRB,0.49122E-07_JPRB,0.26053E-08_JPRB /)  
+KB(:, 3,44, 2) = (/ &
+ & 0.27817E-10_JPRB,0.31296E-07_JPRB,0.47391E-07_JPRB,0.52815E-07_JPRB,0.29353E-08_JPRB /)  
+KB(:, 4,44, 2) = (/ &
+ & 0.26236E-10_JPRB,0.33677E-07_JPRB,0.50655E-07_JPRB,0.56264E-07_JPRB,0.33023E-08_JPRB /)  
+KB(:, 5,44, 2) = (/ &
+ & 0.24825E-10_JPRB,0.35896E-07_JPRB,0.53863E-07_JPRB,0.59538E-07_JPRB,0.36730E-08_JPRB /)  
+KB(:, 1,45, 2) = (/ &
+ & 0.26502E-10_JPRB,0.20705E-07_JPRB,0.32152E-07_JPRB,0.36448E-07_JPRB,0.17841E-08_JPRB /)  
+KB(:, 2,45, 2) = (/ &
+ & 0.24768E-10_JPRB,0.22868E-07_JPRB,0.35185E-07_JPRB,0.39329E-07_JPRB,0.20515E-08_JPRB /)  
+KB(:, 3,45, 2) = (/ &
+ & 0.23247E-10_JPRB,0.25027E-07_JPRB,0.37999E-07_JPRB,0.42338E-07_JPRB,0.23118E-08_JPRB /)  
+KB(:, 4,45, 2) = (/ &
+ & 0.21900E-10_JPRB,0.27063E-07_JPRB,0.40694E-07_JPRB,0.45258E-07_JPRB,0.26048E-08_JPRB /)  
+KB(:, 5,45, 2) = (/ &
+ & 0.20701E-10_JPRB,0.28901E-07_JPRB,0.43361E-07_JPRB,0.47969E-07_JPRB,0.29174E-08_JPRB /)  
+KB(:, 1,46, 2) = (/ &
+ & 0.22258E-10_JPRB,0.16422E-07_JPRB,0.25480E-07_JPRB,0.28991E-07_JPRB,0.13830E-08_JPRB /)  
+KB(:, 2,46, 2) = (/ &
+ & 0.20767E-10_JPRB,0.18158E-07_JPRB,0.28033E-07_JPRB,0.31442E-07_JPRB,0.16144E-08_JPRB /)  
+KB(:, 3,46, 2) = (/ &
+ & 0.19462E-10_JPRB,0.19953E-07_JPRB,0.30402E-07_JPRB,0.33850E-07_JPRB,0.18162E-08_JPRB /)  
+KB(:, 4,46, 2) = (/ &
+ & 0.18312E-10_JPRB,0.21658E-07_JPRB,0.32639E-07_JPRB,0.36308E-07_JPRB,0.20475E-08_JPRB /)  
+KB(:, 5,46, 2) = (/ &
+ & 0.17289E-10_JPRB,0.23211E-07_JPRB,0.34839E-07_JPRB,0.38583E-07_JPRB,0.22994E-08_JPRB /)  
+KB(:, 1,47, 2) = (/ &
+ & 0.18764E-10_JPRB,0.12951E-07_JPRB,0.20072E-07_JPRB,0.22982E-07_JPRB,0.10645E-08_JPRB /)  
+KB(:, 2,47, 2) = (/ &
+ & 0.17473E-10_JPRB,0.14335E-07_JPRB,0.22214E-07_JPRB,0.25085E-07_JPRB,0.12479E-08_JPRB /)  
+KB(:, 3,47, 2) = (/ &
+ & 0.16347E-10_JPRB,0.15813E-07_JPRB,0.24205E-07_JPRB,0.26971E-07_JPRB,0.14207E-08_JPRB /)  
+KB(:, 4,47, 2) = (/ &
+ & 0.15357E-10_JPRB,0.17255E-07_JPRB,0.26075E-07_JPRB,0.29015E-07_JPRB,0.16008E-08_JPRB /)  
+KB(:, 5,47, 2) = (/ &
+ & 0.14480E-10_JPRB,0.18558E-07_JPRB,0.27885E-07_JPRB,0.30922E-07_JPRB,0.18018E-08_JPRB /)  
+KB(:, 1,48, 2) = (/ &
+ & 0.15833E-10_JPRB,0.10186E-07_JPRB,0.15782E-07_JPRB,0.18174E-07_JPRB,0.81718E-09_JPRB /)  
+KB(:, 2,48, 2) = (/ &
+ & 0.14713E-10_JPRB,0.11312E-07_JPRB,0.17555E-07_JPRB,0.19891E-07_JPRB,0.96098E-09_JPRB /)  
+KB(:, 3,48, 2) = (/ &
+ & 0.13740E-10_JPRB,0.12509E-07_JPRB,0.19248E-07_JPRB,0.21482E-07_JPRB,0.11112E-08_JPRB /)  
+KB(:, 4,48, 2) = (/ &
+ & 0.12887E-10_JPRB,0.13719E-07_JPRB,0.20811E-07_JPRB,0.23140E-07_JPRB,0.12515E-08_JPRB /)  
+KB(:, 5,48, 2) = (/ &
+ & 0.12134E-10_JPRB,0.14840E-07_JPRB,0.22313E-07_JPRB,0.24769E-07_JPRB,0.14105E-08_JPRB /)  
+KB(:, 1,49, 2) = (/ &
+ & 0.13372E-10_JPRB,0.80050E-08_JPRB,0.12403E-07_JPRB,0.14283E-07_JPRB,0.63117E-09_JPRB /)  
+KB(:, 2,49, 2) = (/ &
+ & 0.12398E-10_JPRB,0.89393E-08_JPRB,0.13840E-07_JPRB,0.15751E-07_JPRB,0.73907E-09_JPRB /)  
+KB(:, 3,49, 2) = (/ &
+ & 0.11556E-10_JPRB,0.98821E-08_JPRB,0.15261E-07_JPRB,0.17104E-07_JPRB,0.86645E-09_JPRB /)  
+KB(:, 4,49, 2) = (/ &
+ & 0.10821E-10_JPRB,0.10884E-07_JPRB,0.16582E-07_JPRB,0.18441E-07_JPRB,0.97829E-09_JPRB /)  
+KB(:, 5,49, 2) = (/ &
+ & 0.10174E-10_JPRB,0.11841E-07_JPRB,0.17828E-07_JPRB,0.19804E-07_JPRB,0.11034E-08_JPRB /)  
+KB(:, 1,50, 2) = (/ &
+ & 0.11282E-10_JPRB,0.62726E-08_JPRB,0.97478E-08_JPRB,0.11226E-07_JPRB,0.48398E-09_JPRB /)  
+KB(:, 2,50, 2) = (/ &
+ & 0.10437E-10_JPRB,0.70546E-08_JPRB,0.10932E-07_JPRB,0.12518E-07_JPRB,0.57051E-09_JPRB /)  
+KB(:, 3,50, 2) = (/ &
+ & 0.97101E-11_JPRB,0.78193E-08_JPRB,0.12114E-07_JPRB,0.13671E-07_JPRB,0.66997E-09_JPRB /)  
+KB(:, 4,50, 2) = (/ &
+ & 0.90772E-11_JPRB,0.86379E-08_JPRB,0.13218E-07_JPRB,0.14712E-07_JPRB,0.76625E-09_JPRB /)  
+KB(:, 5,50, 2) = (/ &
+ & 0.85216E-11_JPRB,0.94405E-08_JPRB,0.14258E-07_JPRB,0.15844E-07_JPRB,0.86488E-09_JPRB /)  
+KB(:, 1,51, 2) = (/ &
+ & 0.95179E-11_JPRB,0.49251E-08_JPRB,0.76356E-08_JPRB,0.87761E-08_JPRB,0.37213E-09_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,51, 2) = (/ &
+ & 0.87856E-11_JPRB,0.55681E-08_JPRB,0.86220E-08_JPRB,0.99159E-08_JPRB,0.44074E-09_JPRB /)  
+KB(:, 3,51, 2) = (/ &
+ & 0.81576E-11_JPRB,0.61930E-08_JPRB,0.95989E-08_JPRB,0.10865E-07_JPRB,0.51843E-09_JPRB /)  
+KB(:, 4,51, 2) = (/ &
+ & 0.76131E-11_JPRB,0.68518E-08_JPRB,0.10539E-07_JPRB,0.11746E-07_JPRB,0.60210E-09_JPRB /)  
+KB(:, 5,51, 2) = (/ &
+ & 0.71366E-11_JPRB,0.75206E-08_JPRB,0.11403E-07_JPRB,0.12659E-07_JPRB,0.67841E-09_JPRB /)  
+KB(:, 1,52, 2) = (/ &
+ & 0.80368E-11_JPRB,0.38608E-08_JPRB,0.60010E-08_JPRB,0.68441E-08_JPRB,0.28848E-09_JPRB /)  
+KB(:, 2,52, 2) = (/ &
+ & 0.74007E-11_JPRB,0.43903E-08_JPRB,0.67974E-08_JPRB,0.78127E-08_JPRB,0.34245E-09_JPRB /)  
+KB(:, 3,52, 2) = (/ &
+ & 0.68577E-11_JPRB,0.49086E-08_JPRB,0.75959E-08_JPRB,0.86279E-08_JPRB,0.40106E-09_JPRB /)  
+KB(:, 4,52, 2) = (/ &
+ & 0.63886E-11_JPRB,0.54297E-08_JPRB,0.83801E-08_JPRB,0.93778E-08_JPRB,0.47058E-09_JPRB /)  
+KB(:, 5,52, 2) = (/ &
+ & 0.59795E-11_JPRB,0.59829E-08_JPRB,0.91103E-08_JPRB,0.10111E-07_JPRB,0.53218E-09_JPRB /)  
+KB(:, 1,53, 2) = (/ &
+ & 0.67932E-11_JPRB,0.30102E-08_JPRB,0.47269E-08_JPRB,0.53395E-08_JPRB,0.22432E-09_JPRB /)  
+KB(:, 2,53, 2) = (/ &
+ & 0.62397E-11_JPRB,0.34450E-08_JPRB,0.53458E-08_JPRB,0.61449E-08_JPRB,0.26282E-09_JPRB /)  
+KB(:, 3,53, 2) = (/ &
+ & 0.57693E-11_JPRB,0.38768E-08_JPRB,0.60006E-08_JPRB,0.68613E-08_JPRB,0.31020E-09_JPRB /)  
+KB(:, 4,53, 2) = (/ &
+ & 0.53647E-11_JPRB,0.43002E-08_JPRB,0.66533E-08_JPRB,0.74990E-08_JPRB,0.36446E-09_JPRB /)  
+KB(:, 5,53, 2) = (/ &
+ & 0.50129E-11_JPRB,0.47527E-08_JPRB,0.72638E-08_JPRB,0.80717E-08_JPRB,0.41759E-09_JPRB /)  
+KB(:, 1,54, 2) = (/ &
+ & 0.57320E-11_JPRB,0.23582E-08_JPRB,0.36837E-08_JPRB,0.41317E-08_JPRB,0.17477E-09_JPRB /)  
+KB(:, 2,54, 2) = (/ &
+ & 0.52518E-11_JPRB,0.27163E-08_JPRB,0.42048E-08_JPRB,0.48208E-08_JPRB,0.20321E-09_JPRB /)  
+KB(:, 3,54, 2) = (/ &
+ & 0.48457E-11_JPRB,0.30678E-08_JPRB,0.47472E-08_JPRB,0.54472E-08_JPRB,0.24081E-09_JPRB /)  
+KB(:, 4,54, 2) = (/ &
+ & 0.44978E-11_JPRB,0.34148E-08_JPRB,0.52851E-08_JPRB,0.59735E-08_JPRB,0.28345E-09_JPRB /)  
+KB(:, 5,54, 2) = (/ &
+ & 0.41963E-11_JPRB,0.37804E-08_JPRB,0.58001E-08_JPRB,0.64570E-08_JPRB,0.32923E-09_JPRB /)  
+KB(:, 1,55, 2) = (/ &
+ & 0.48347E-11_JPRB,0.18534E-08_JPRB,0.28539E-08_JPRB,0.31828E-08_JPRB,0.13492E-09_JPRB /)  
+KB(:, 2,55, 2) = (/ &
+ & 0.44186E-11_JPRB,0.21392E-08_JPRB,0.33190E-08_JPRB,0.37817E-08_JPRB,0.15848E-09_JPRB /)  
+KB(:, 3,55, 2) = (/ &
+ & 0.40683E-11_JPRB,0.24320E-08_JPRB,0.37592E-08_JPRB,0.43156E-08_JPRB,0.18835E-09_JPRB /)  
+KB(:, 4,55, 2) = (/ &
+ & 0.37693E-11_JPRB,0.27150E-08_JPRB,0.41999E-08_JPRB,0.47625E-08_JPRB,0.22076E-09_JPRB /)  
+KB(:, 5,55, 2) = (/ &
+ & 0.35111E-11_JPRB,0.30082E-08_JPRB,0.46345E-08_JPRB,0.51736E-08_JPRB,0.25916E-09_JPRB /)  
+KB(:, 1,56, 2) = (/ &
+ & 0.40813E-11_JPRB,0.14543E-08_JPRB,0.22038E-08_JPRB,0.24488E-08_JPRB,0.10328E-09_JPRB /)  
+KB(:, 2,56, 2) = (/ &
+ & 0.37201E-11_JPRB,0.16813E-08_JPRB,0.26371E-08_JPRB,0.29640E-08_JPRB,0.12446E-09_JPRB /)  
+KB(:, 3,56, 2) = (/ &
+ & 0.34175E-11_JPRB,0.19191E-08_JPRB,0.29747E-08_JPRB,0.34115E-08_JPRB,0.14604E-09_JPRB /)  
+KB(:, 4,56, 2) = (/ &
+ & 0.31604E-11_JPRB,0.21575E-08_JPRB,0.33348E-08_JPRB,0.38018E-08_JPRB,0.17202E-09_JPRB /)  
+KB(:, 5,56, 2) = (/ &
+ & 0.29391E-11_JPRB,0.23932E-08_JPRB,0.36930E-08_JPRB,0.41472E-08_JPRB,0.20235E-09_JPRB /)  
+KB(:, 1,57, 2) = (/ &
+ & 0.34486E-11_JPRB,0.11480E-08_JPRB,0.17032E-08_JPRB,0.18771E-08_JPRB,0.78787E-10_JPRB /)  
+KB(:, 2,57, 2) = (/ &
+ & 0.31345E-11_JPRB,0.13189E-08_JPRB,0.20615E-08_JPRB,0.23121E-08_JPRB,0.96832E-10_JPRB /)  
+KB(:, 3,57, 2) = (/ &
+ & 0.28728E-11_JPRB,0.15144E-08_JPRB,0.23440E-08_JPRB,0.26863E-08_JPRB,0.11317E-09_JPRB /)  
+KB(:, 4,57, 2) = (/ &
+ & 0.26513E-11_JPRB,0.17102E-08_JPRB,0.26436E-08_JPRB,0.30246E-08_JPRB,0.13393E-09_JPRB /)  
+KB(:, 5,57, 2) = (/ &
+ & 0.24615E-11_JPRB,0.19022E-08_JPRB,0.29394E-08_JPRB,0.33135E-08_JPRB,0.15772E-09_JPRB /)  
+KB(:, 1,58, 2) = (/ &
+ & 0.29119E-11_JPRB,0.89500E-09_JPRB,0.13020E-08_JPRB,0.14383E-08_JPRB,0.60253E-10_JPRB /)  
+KB(:, 2,58, 2) = (/ &
+ & 0.26392E-11_JPRB,0.10369E-08_JPRB,0.16036E-08_JPRB,0.17891E-08_JPRB,0.75765E-10_JPRB /)  
+KB(:, 3,58, 2) = (/ &
+ & 0.24132E-11_JPRB,0.11975E-08_JPRB,0.18523E-08_JPRB,0.21114E-08_JPRB,0.88260E-10_JPRB /)  
+KB(:, 4,58, 2) = (/ &
+ & 0.22227E-11_JPRB,0.13570E-08_JPRB,0.20959E-08_JPRB,0.24045E-08_JPRB,0.10478E-09_JPRB /)  
+KB(:, 5,58, 2) = (/ &
+ & 0.20601E-11_JPRB,0.15139E-08_JPRB,0.23406E-08_JPRB,0.26456E-08_JPRB,0.12331E-09_JPRB /)  
+KB(:, 1,59, 2) = (/ &
+ & 0.24143E-11_JPRB,0.71851E-09_JPRB,0.10362E-08_JPRB,0.11516E-08_JPRB,0.48086E-10_JPRB /)  
+KB(:, 2,59, 2) = (/ &
+ & 0.21857E-11_JPRB,0.83732E-09_JPRB,0.12892E-08_JPRB,0.14335E-08_JPRB,0.60630E-10_JPRB /)  
+KB(:, 3,59, 2) = (/ &
+ & 0.19965E-11_JPRB,0.96815E-09_JPRB,0.14990E-08_JPRB,0.17039E-08_JPRB,0.71208E-10_JPRB /)  
+KB(:, 4,59, 2) = (/ &
+ & 0.18374E-11_JPRB,0.10982E-08_JPRB,0.16973E-08_JPRB,0.19455E-08_JPRB,0.84514E-10_JPRB /)  
+KB(:, 5,59, 2) = (/ &
+ & 0.17017E-11_JPRB,0.12277E-08_JPRB,0.18981E-08_JPRB,0.21472E-08_JPRB,0.99289E-10_JPRB /)  
+KB(:, 1,13, 3) = (/ &
+ & 0.69497E-07_JPRB,0.55900E-04_JPRB,0.77634E-04_JPRB,0.83300E-04_JPRB,0.14419E-04_JPRB /)  
+KB(:, 2,13, 3) = (/ &
+ & 0.64923E-07_JPRB,0.61779E-04_JPRB,0.85238E-04_JPRB,0.90458E-04_JPRB,0.15996E-04_JPRB /)  
+KB(:, 3,13, 3) = (/ &
+ & 0.60920E-07_JPRB,0.67532E-04_JPRB,0.92811E-04_JPRB,0.97588E-04_JPRB,0.17622E-04_JPRB /)  
+KB(:, 4,13, 3) = (/ &
+ & 0.57379E-07_JPRB,0.72876E-04_JPRB,0.10040E-03_JPRB,0.10455E-03_JPRB,0.19144E-04_JPRB /)  
+KB(:, 5,13, 3) = (/ &
+ & 0.54220E-07_JPRB,0.77699E-04_JPRB,0.10784E-03_JPRB,0.11139E-03_JPRB,0.20671E-04_JPRB /)  
+KB(:, 1,14, 3) = (/ &
+ & 0.56538E-07_JPRB,0.46627E-04_JPRB,0.64678E-04_JPRB,0.69399E-04_JPRB,0.12086E-04_JPRB /)  
+KB(:, 2,14, 3) = (/ &
+ & 0.52839E-07_JPRB,0.51536E-04_JPRB,0.71080E-04_JPRB,0.75292E-04_JPRB,0.13414E-04_JPRB /)  
+KB(:, 3,14, 3) = (/ &
+ & 0.49600E-07_JPRB,0.56334E-04_JPRB,0.77384E-04_JPRB,0.81277E-04_JPRB,0.14732E-04_JPRB /)  
+KB(:, 4,14, 3) = (/ &
+ & 0.46731E-07_JPRB,0.60751E-04_JPRB,0.83753E-04_JPRB,0.87067E-04_JPRB,0.15973E-04_JPRB /)  
+KB(:, 5,14, 3) = (/ &
+ & 0.44171E-07_JPRB,0.64792E-04_JPRB,0.89963E-04_JPRB,0.92617E-04_JPRB,0.17214E-04_JPRB /)  
+KB(:, 1,15, 3) = (/ &
+ & 0.45963E-07_JPRB,0.38920E-04_JPRB,0.53921E-04_JPRB,0.57824E-04_JPRB,0.10089E-04_JPRB /)  
+KB(:, 2,15, 3) = (/ &
+ & 0.42976E-07_JPRB,0.42987E-04_JPRB,0.59286E-04_JPRB,0.62615E-04_JPRB,0.11238E-04_JPRB /)  
+KB(:, 3,15, 3) = (/ &
+ & 0.40358E-07_JPRB,0.47014E-04_JPRB,0.64557E-04_JPRB,0.67658E-04_JPRB,0.12293E-04_JPRB /)  
+KB(:, 4,15, 3) = (/ &
+ & 0.38037E-07_JPRB,0.50641E-04_JPRB,0.69879E-04_JPRB,0.72487E-04_JPRB,0.13317E-04_JPRB /)  
+KB(:, 5,15, 3) = (/ &
+ & 0.35964E-07_JPRB,0.54003E-04_JPRB,0.75064E-04_JPRB,0.77083E-04_JPRB,0.14321E-04_JPRB /)  
+KB(:, 1,16, 3) = (/ &
+ & 0.37354E-07_JPRB,0.32479E-04_JPRB,0.44953E-04_JPRB,0.48146E-04_JPRB,0.84079E-05_JPRB /)  
+KB(:, 2,16, 3) = (/ &
+ & 0.34944E-07_JPRB,0.35873E-04_JPRB,0.49454E-04_JPRB,0.52120E-04_JPRB,0.93405E-05_JPRB /)  
+KB(:, 3,16, 3) = (/ &
+ & 0.32829E-07_JPRB,0.39220E-04_JPRB,0.53861E-04_JPRB,0.56293E-04_JPRB,0.10209E-04_JPRB /)  
+KB(:, 4,16, 3) = (/ &
+ & 0.30952E-07_JPRB,0.42155E-04_JPRB,0.58309E-04_JPRB,0.60268E-04_JPRB,0.11080E-04_JPRB /)  
+KB(:, 5,16, 3) = (/ &
+ & 0.29274E-07_JPRB,0.45014E-04_JPRB,0.62610E-04_JPRB,0.64184E-04_JPRB,0.11887E-04_JPRB /)  
+KB(:, 1,17, 3) = (/ &
+ & 0.30364E-07_JPRB,0.27086E-04_JPRB,0.37451E-04_JPRB,0.39995E-04_JPRB,0.70049E-05_JPRB /)  
+KB(:, 2,17, 3) = (/ &
+ & 0.28420E-07_JPRB,0.29919E-04_JPRB,0.41194E-04_JPRB,0.43367E-04_JPRB,0.77736E-05_JPRB /)  
+KB(:, 3,17, 3) = (/ &
+ & 0.26710E-07_JPRB,0.32650E-04_JPRB,0.44902E-04_JPRB,0.46817E-04_JPRB,0.84838E-05_JPRB /)  
+KB(:, 4,17, 3) = (/ &
+ & 0.25192E-07_JPRB,0.35098E-04_JPRB,0.48605E-04_JPRB,0.50103E-04_JPRB,0.92038E-05_JPRB /)  
+KB(:, 5,17, 3) = (/ &
+ & 0.23833E-07_JPRB,0.37507E-04_JPRB,0.52188E-04_JPRB,0.53413E-04_JPRB,0.98607E-05_JPRB /)  
+KB(:, 1,18, 3) = (/ &
+ & 0.24687E-07_JPRB,0.22581E-04_JPRB,0.31211E-04_JPRB,0.33220E-04_JPRB,0.58361E-05_JPRB /)  
+KB(:, 2,18, 3) = (/ &
+ & 0.23116E-07_JPRB,0.24940E-04_JPRB,0.34308E-04_JPRB,0.36078E-04_JPRB,0.64640E-05_JPRB /)  
+KB(:, 3,18, 3) = (/ &
+ & 0.21734E-07_JPRB,0.27181E-04_JPRB,0.37414E-04_JPRB,0.38933E-04_JPRB,0.70344E-05_JPRB /)  
+KB(:, 4,18, 3) = (/ &
+ & 0.20506E-07_JPRB,0.29216E-04_JPRB,0.40517E-04_JPRB,0.41653E-04_JPRB,0.76276E-05_JPRB /)  
+KB(:, 5,18, 3) = (/ &
+ & 0.19406E-07_JPRB,0.31237E-04_JPRB,0.43490E-04_JPRB,0.44397E-04_JPRB,0.81753E-05_JPRB /)  
+KB(:, 1,19, 3) = (/ &
+ & 0.20074E-07_JPRB,0.18818E-04_JPRB,0.25999E-04_JPRB,0.27597E-04_JPRB,0.48662E-05_JPRB /)  
+KB(:, 2,19, 3) = (/ &
+ & 0.18805E-07_JPRB,0.20784E-04_JPRB,0.28562E-04_JPRB,0.29993E-04_JPRB,0.53723E-05_JPRB /)  
+KB(:, 3,19, 3) = (/ &
+ & 0.17688E-07_JPRB,0.22626E-04_JPRB,0.31151E-04_JPRB,0.32363E-04_JPRB,0.58377E-05_JPRB /)  
+KB(:, 4,19, 3) = (/ &
+ & 0.16693E-07_JPRB,0.24300E-04_JPRB,0.33760E-04_JPRB,0.34629E-04_JPRB,0.63177E-05_JPRB /)  
+KB(:, 5,19, 3) = (/ &
+ & 0.15802E-07_JPRB,0.25985E-04_JPRB,0.36226E-04_JPRB,0.36903E-04_JPRB,0.67742E-05_JPRB /)  
+KB(:, 1,20, 3) = (/ &
+ & 0.16306E-07_JPRB,0.15717E-04_JPRB,0.21686E-04_JPRB,0.22959E-04_JPRB,0.40680E-05_JPRB /)  
+KB(:, 2,20, 3) = (/ &
+ & 0.15283E-07_JPRB,0.17355E-04_JPRB,0.23826E-04_JPRB,0.24969E-04_JPRB,0.44706E-05_JPRB /)  
+KB(:, 3,20, 3) = (/ &
+ & 0.14381E-07_JPRB,0.18856E-04_JPRB,0.25992E-04_JPRB,0.26912E-04_JPRB,0.48550E-05_JPRB /)  
+KB(:, 4,20, 3) = (/ &
+ & 0.13578E-07_JPRB,0.20265E-04_JPRB,0.28162E-04_JPRB,0.28817E-04_JPRB,0.52355E-05_JPRB /)  
+KB(:, 5,20, 3) = (/ &
+ & 0.12857E-07_JPRB,0.21638E-04_JPRB,0.30215E-04_JPRB,0.30707E-04_JPRB,0.56224E-05_JPRB /)  
+KB(:, 1,21, 3) = (/ &
+ & 0.13245E-07_JPRB,0.13128E-04_JPRB,0.18091E-04_JPRB,0.19107E-04_JPRB,0.33880E-05_JPRB /)  
+KB(:, 2,21, 3) = (/ &
+ & 0.12420E-07_JPRB,0.14495E-04_JPRB,0.19887E-04_JPRB,0.20794E-04_JPRB,0.37144E-05_JPRB /)  
+KB(:, 3,21, 3) = (/ &
+ & 0.11692E-07_JPRB,0.15704E-04_JPRB,0.21703E-04_JPRB,0.22397E-04_JPRB,0.40415E-05_JPRB /)  
+KB(:, 4,21, 3) = (/ &
+ & 0.11043E-07_JPRB,0.16904E-04_JPRB,0.23489E-04_JPRB,0.23984E-04_JPRB,0.43455E-05_JPRB /)  
+KB(:, 5,21, 3) = (/ &
+ & 0.10460E-07_JPRB,0.18037E-04_JPRB,0.25197E-04_JPRB,0.25558E-04_JPRB,0.46662E-05_JPRB /)  
+KB(:, 1,22, 3) = (/ &
+ & 0.10711E-07_JPRB,0.11044E-04_JPRB,0.15199E-04_JPRB,0.16008E-04_JPRB,0.28409E-05_JPRB /)  
+KB(:, 2,22, 3) = (/ &
+ & 0.10052E-07_JPRB,0.12165E-04_JPRB,0.16699E-04_JPRB,0.17419E-04_JPRB,0.31041E-05_JPRB /)  
+KB(:, 3,22, 3) = (/ &
+ & 0.94690E-08_JPRB,0.13158E-04_JPRB,0.18224E-04_JPRB,0.18733E-04_JPRB,0.33768E-05_JPRB /)  
+KB(:, 4,22, 3) = (/ &
+ & 0.89484E-08_JPRB,0.14166E-04_JPRB,0.19691E-04_JPRB,0.20050E-04_JPRB,0.36237E-05_JPRB /)  
+KB(:, 5,22, 3) = (/ &
+ & 0.84804E-08_JPRB,0.15085E-04_JPRB,0.21105E-04_JPRB,0.21356E-04_JPRB,0.38876E-05_JPRB /)  
+KB(:, 1,23, 3) = (/ &
+ & 0.86606E-08_JPRB,0.93002E-05_JPRB,0.12775E-04_JPRB,0.13420E-04_JPRB,0.23815E-05_JPRB /)  
+KB(:, 2,23, 3) = (/ &
+ & 0.81340E-08_JPRB,0.10210E-04_JPRB,0.14034E-04_JPRB,0.14552E-04_JPRB,0.25955E-05_JPRB /)  
+KB(:, 3,23, 3) = (/ &
+ & 0.76671E-08_JPRB,0.11035E-04_JPRB,0.15302E-04_JPRB,0.15657E-04_JPRB,0.28150E-05_JPRB /)  
+KB(:, 4,23, 3) = (/ &
+ & 0.72497E-08_JPRB,0.11863E-04_JPRB,0.16513E-04_JPRB,0.16770E-04_JPRB,0.30198E-05_JPRB /)  
+KB(:, 5,23, 3) = (/ &
+ & 0.68739E-08_JPRB,0.12616E-04_JPRB,0.17664E-04_JPRB,0.17848E-04_JPRB,0.32387E-05_JPRB /)  
+KB(:, 1,24, 3) = (/ &
+ & 0.69995E-08_JPRB,0.78392E-05_JPRB,0.10754E-04_JPRB,0.11250E-04_JPRB,0.19986E-05_JPRB /)  
+KB(:, 2,24, 3) = (/ &
+ & 0.65790E-08_JPRB,0.85674E-05_JPRB,0.11806E-04_JPRB,0.12186E-04_JPRB,0.21738E-05_JPRB /)  
+KB(:, 3,24, 3) = (/ &
+ & 0.62055E-08_JPRB,0.92664E-05_JPRB,0.12850E-04_JPRB,0.13103E-04_JPRB,0.23469E-05_JPRB /)  
+KB(:, 4,24, 3) = (/ &
+ & 0.58710E-08_JPRB,0.99376E-05_JPRB,0.13854E-04_JPRB,0.14027E-04_JPRB,0.25195E-05_JPRB /)  
+KB(:, 5,24, 3) = (/ &
+ & 0.55696E-08_JPRB,0.10527E-04_JPRB,0.14795E-04_JPRB,0.14917E-04_JPRB,0.26988E-05_JPRB /)  
+KB(:, 1,25, 3) = (/ &
+ & 0.56538E-08_JPRB,0.66118E-05_JPRB,0.90610E-05_JPRB,0.94422E-05_JPRB,0.16753E-05_JPRB /)  
+KB(:, 2,25, 3) = (/ &
+ & 0.53184E-08_JPRB,0.71986E-05_JPRB,0.99389E-05_JPRB,0.10209E-04_JPRB,0.18223E-05_JPRB /)  
+KB(:, 3,25, 3) = (/ &
+ & 0.50199E-08_JPRB,0.77863E-05_JPRB,0.10800E-04_JPRB,0.10981E-04_JPRB,0.19590E-05_JPRB /)  
+KB(:, 4,25, 3) = (/ &
+ & 0.47522E-08_JPRB,0.83415E-05_JPRB,0.11626E-04_JPRB,0.11737E-04_JPRB,0.21020E-05_JPRB /)  
+KB(:, 5,25, 3) = (/ &
+ & 0.45105E-08_JPRB,0.88017E-05_JPRB,0.12373E-04_JPRB,0.12468E-04_JPRB,0.22498E-05_JPRB /)  
+KB(:, 1,26, 3) = (/ &
+ & 0.45620E-08_JPRB,0.55749E-05_JPRB,0.76463E-05_JPRB,0.79285E-05_JPRB,0.14032E-05_JPRB /)  
+KB(:, 2,26, 3) = (/ &
+ & 0.42950E-08_JPRB,0.60590E-05_JPRB,0.83822E-05_JPRB,0.85652E-05_JPRB,0.15255E-05_JPRB /)  
+KB(:, 3,26, 3) = (/ &
+ & 0.40569E-08_JPRB,0.65510E-05_JPRB,0.90888E-05_JPRB,0.92116E-05_JPRB,0.16373E-05_JPRB /)  
+KB(:, 4,26, 3) = (/ &
+ & 0.38429E-08_JPRB,0.69918E-05_JPRB,0.97604E-05_JPRB,0.98329E-05_JPRB,0.17561E-05_JPRB /)  
+KB(:, 5,26, 3) = (/ &
+ & 0.36495E-08_JPRB,0.73566E-05_JPRB,0.10367E-04_JPRB,0.10429E-04_JPRB,0.18769E-05_JPRB /)  
+KB(:, 1,27, 3) = (/ &
+ & 0.36809E-08_JPRB,0.46967E-05_JPRB,0.64580E-05_JPRB,0.66649E-05_JPRB,0.11786E-05_JPRB /)  
+KB(:, 2,27, 3) = (/ &
+ & 0.34683E-08_JPRB,0.51072E-05_JPRB,0.70661E-05_JPRB,0.71902E-05_JPRB,0.12759E-05_JPRB /)  
+KB(:, 3,27, 3) = (/ &
+ & 0.32784E-08_JPRB,0.55053E-05_JPRB,0.76470E-05_JPRB,0.77250E-05_JPRB,0.13691E-05_JPRB /)  
+KB(:, 4,27, 3) = (/ &
+ & 0.31074E-08_JPRB,0.58474E-05_JPRB,0.81898E-05_JPRB,0.82340E-05_JPRB,0.14666E-05_JPRB /)  
+KB(:, 5,27, 3) = (/ &
+ & 0.29526E-08_JPRB,0.61493E-05_JPRB,0.86815E-05_JPRB,0.87199E-05_JPRB,0.15650E-05_JPRB /)  
+KB(:, 1,28, 3) = (/ &
+ & 0.29701E-08_JPRB,0.39582E-05_JPRB,0.54573E-05_JPRB,0.55959E-05_JPRB,0.99037E-06_JPRB /)  
+KB(:, 2,28, 3) = (/ &
+ & 0.28008E-08_JPRB,0.43048E-05_JPRB,0.59546E-05_JPRB,0.60406E-05_JPRB,0.10659E-05_JPRB /)  
+KB(:, 3,28, 3) = (/ &
+ & 0.26493E-08_JPRB,0.46277E-05_JPRB,0.64286E-05_JPRB,0.64745E-05_JPRB,0.11442E-05_JPRB /)  
+KB(:, 4,28, 3) = (/ &
+ & 0.25127E-08_JPRB,0.48940E-05_JPRB,0.68612E-05_JPRB,0.68918E-05_JPRB,0.12250E-05_JPRB /)  
+KB(:, 5,28, 3) = (/ &
+ & 0.23888E-08_JPRB,0.51428E-05_JPRB,0.72654E-05_JPRB,0.72865E-05_JPRB,0.13046E-05_JPRB /)  
+KB(:, 1,29, 3) = (/ &
+ & 0.23958E-08_JPRB,0.33409E-05_JPRB,0.46115E-05_JPRB,0.47054E-05_JPRB,0.83021E-06_JPRB /)  
+KB(:, 2,29, 3) = (/ &
+ & 0.22611E-08_JPRB,0.36267E-05_JPRB,0.50192E-05_JPRB,0.50754E-05_JPRB,0.89157E-06_JPRB /)  
+KB(:, 3,29, 3) = (/ &
+ & 0.21402E-08_JPRB,0.38805E-05_JPRB,0.54053E-05_JPRB,0.54291E-05_JPRB,0.95663E-06_JPRB /)  
+KB(:, 4,29, 3) = (/ &
+ & 0.20311E-08_JPRB,0.40929E-05_JPRB,0.57529E-05_JPRB,0.57685E-05_JPRB,0.10232E-05_JPRB /)  
+KB(:, 5,29, 3) = (/ &
+ & 0.19320E-08_JPRB,0.43014E-05_JPRB,0.60684E-05_JPRB,0.60868E-05_JPRB,0.10874E-05_JPRB /)  
+KB(:, 1,30, 3) = (/ &
+ & 0.19328E-08_JPRB,0.28217E-05_JPRB,0.38955E-05_JPRB,0.39562E-05_JPRB,0.69464E-06_JPRB /)  
+KB(:, 2,30, 3) = (/ &
+ & 0.18255E-08_JPRB,0.30515E-05_JPRB,0.42293E-05_JPRB,0.42605E-05_JPRB,0.74588E-06_JPRB /)  
+KB(:, 3,30, 3) = (/ &
+ & 0.17291E-08_JPRB,0.32496E-05_JPRB,0.45390E-05_JPRB,0.45501E-05_JPRB,0.79957E-06_JPRB /)  
+KB(:, 4,30, 3) = (/ &
+ & 0.16419E-08_JPRB,0.34235E-05_JPRB,0.48191E-05_JPRB,0.48249E-05_JPRB,0.85373E-06_JPRB /)  
+KB(:, 5,30, 3) = (/ &
+ & 0.15626E-08_JPRB,0.35992E-05_JPRB,0.50632E-05_JPRB,0.50805E-05_JPRB,0.90582E-06_JPRB /)  
+KB(:, 1,31, 3) = (/ &
+ & 0.15590E-08_JPRB,0.23841E-05_JPRB,0.32890E-05_JPRB,0.33282E-05_JPRB,0.58108E-06_JPRB /)  
+KB(:, 2,31, 3) = (/ &
+ & 0.14736E-08_JPRB,0.25683E-05_JPRB,0.35605E-05_JPRB,0.35756E-05_JPRB,0.62401E-06_JPRB /)  
+KB(:, 3,31, 3) = (/ &
+ & 0.13967E-08_JPRB,0.27223E-05_JPRB,0.38055E-05_JPRB,0.38110E-05_JPRB,0.66862E-06_JPRB /)  
+KB(:, 4,31, 3) = (/ &
+ & 0.13271E-08_JPRB,0.28652E-05_JPRB,0.40295E-05_JPRB,0.40331E-05_JPRB,0.71216E-06_JPRB /)  
+KB(:, 5,31, 3) = (/ &
+ & 0.12637E-08_JPRB,0.30069E-05_JPRB,0.42257E-05_JPRB,0.42393E-05_JPRB,0.75527E-06_JPRB /)  
+KB(:, 1,32, 3) = (/ &
+ & 0.12575E-08_JPRB,0.20099E-05_JPRB,0.27764E-05_JPRB,0.27988E-05_JPRB,0.48614E-06_JPRB /)  
+KB(:, 2,32, 3) = (/ &
+ & 0.11895E-08_JPRB,0.21551E-05_JPRB,0.29961E-05_JPRB,0.29996E-05_JPRB,0.52199E-06_JPRB /)  
+KB(:, 3,32, 3) = (/ &
+ & 0.11282E-08_JPRB,0.22771E-05_JPRB,0.31901E-05_JPRB,0.31897E-05_JPRB,0.55867E-06_JPRB /)  
+KB(:, 4,32, 3) = (/ &
+ & 0.10726E-08_JPRB,0.23969E-05_JPRB,0.33657E-05_JPRB,0.33696E-05_JPRB,0.59410E-06_JPRB /)  
+KB(:, 5,32, 3) = (/ &
+ & 0.10218E-08_JPRB,0.25076E-05_JPRB,0.35232E-05_JPRB,0.35366E-05_JPRB,0.62965E-06_JPRB /)  
+KB(:, 1,33, 3) = (/ &
+ & 0.10144E-08_JPRB,0.16940E-05_JPRB,0.23421E-05_JPRB,0.23519E-05_JPRB,0.40701E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,33, 3) = (/ &
+ & 0.96024E-09_JPRB,0.18066E-05_JPRB,0.25146E-05_JPRB,0.25148E-05_JPRB,0.43657E-06_JPRB /)  
+KB(:, 3,33, 3) = (/ &
+ & 0.91134E-09_JPRB,0.19053E-05_JPRB,0.26738E-05_JPRB,0.26690E-05_JPRB,0.46656E-06_JPRB /)  
+KB(:, 4,33, 3) = (/ &
+ & 0.86689E-09_JPRB,0.20038E-05_JPRB,0.28104E-05_JPRB,0.28139E-05_JPRB,0.49516E-06_JPRB /)  
+KB(:, 5,33, 3) = (/ &
+ & 0.82630E-09_JPRB,0.20860E-05_JPRB,0.29294E-05_JPRB,0.29485E-05_JPRB,0.52462E-06_JPRB /)  
+KB(:, 1,34, 3) = (/ &
+ & 0.82000E-09_JPRB,0.14231E-05_JPRB,0.19661E-05_JPRB,0.19700E-05_JPRB,0.33996E-06_JPRB /)  
+KB(:, 2,34, 3) = (/ &
+ & 0.77672E-09_JPRB,0.15105E-05_JPRB,0.21047E-05_JPRB,0.21018E-05_JPRB,0.36435E-06_JPRB /)  
+KB(:, 3,34, 3) = (/ &
+ & 0.73757E-09_JPRB,0.15908E-05_JPRB,0.22307E-05_JPRB,0.22272E-05_JPRB,0.38851E-06_JPRB /)  
+KB(:, 4,34, 3) = (/ &
+ & 0.70193E-09_JPRB,0.16706E-05_JPRB,0.23421E-05_JPRB,0.23448E-05_JPRB,0.41219E-06_JPRB /)  
+KB(:, 5,34, 3) = (/ &
+ & 0.66936E-09_JPRB,0.17330E-05_JPRB,0.24342E-05_JPRB,0.24538E-05_JPRB,0.43607E-06_JPRB /)  
+KB(:, 1,35, 3) = (/ &
+ & 0.66652E-09_JPRB,0.11842E-05_JPRB,0.16383E-05_JPRB,0.16382E-05_JPRB,0.28183E-06_JPRB /)  
+KB(:, 2,35, 3) = (/ &
+ & 0.63156E-09_JPRB,0.12541E-05_JPRB,0.17499E-05_JPRB,0.17457E-05_JPRB,0.30195E-06_JPRB /)  
+KB(:, 3,35, 3) = (/ &
+ & 0.59990E-09_JPRB,0.13209E-05_JPRB,0.18504E-05_JPRB,0.18484E-05_JPRB,0.32174E-06_JPRB /)  
+KB(:, 4,35, 3) = (/ &
+ & 0.57107E-09_JPRB,0.13850E-05_JPRB,0.19418E-05_JPRB,0.19438E-05_JPRB,0.34124E-06_JPRB /)  
+KB(:, 5,35, 3) = (/ &
+ & 0.54470E-09_JPRB,0.14348E-05_JPRB,0.20135E-05_JPRB,0.20335E-05_JPRB,0.36050E-06_JPRB /)  
+KB(:, 1,36, 3) = (/ &
+ & 0.54506E-09_JPRB,0.97870E-06_JPRB,0.13541E-05_JPRB,0.13520E-05_JPRB,0.23190E-06_JPRB /)  
+KB(:, 2,36, 3) = (/ &
+ & 0.51650E-09_JPRB,0.10354E-05_JPRB,0.14455E-05_JPRB,0.14404E-05_JPRB,0.24845E-06_JPRB /)  
+KB(:, 3,36, 3) = (/ &
+ & 0.49063E-09_JPRB,0.10910E-05_JPRB,0.15270E-05_JPRB,0.15247E-05_JPRB,0.26464E-06_JPRB /)  
+KB(:, 4,36, 3) = (/ &
+ & 0.46707E-09_JPRB,0.11427E-05_JPRB,0.16012E-05_JPRB,0.16033E-05_JPRB,0.28072E-06_JPRB /)  
+KB(:, 5,36, 3) = (/ &
+ & 0.44553E-09_JPRB,0.11833E-05_JPRB,0.16604E-05_JPRB,0.16774E-05_JPRB,0.29643E-06_JPRB /)  
+KB(:, 1,37, 3) = (/ &
+ & 0.44949E-09_JPRB,0.80104E-06_JPRB,0.11066E-05_JPRB,0.11045E-05_JPRB,0.18888E-06_JPRB /)  
+KB(:, 2,37, 3) = (/ &
+ & 0.42579E-09_JPRB,0.84810E-06_JPRB,0.11826E-05_JPRB,0.11777E-05_JPRB,0.20242E-06_JPRB /)  
+KB(:, 3,37, 3) = (/ &
+ & 0.40435E-09_JPRB,0.89404E-06_JPRB,0.12504E-05_JPRB,0.12477E-05_JPRB,0.21578E-06_JPRB /)  
+KB(:, 4,37, 3) = (/ &
+ & 0.38483E-09_JPRB,0.93737E-06_JPRB,0.13124E-05_JPRB,0.13129E-05_JPRB,0.22892E-06_JPRB /)  
+KB(:, 5,37, 3) = (/ &
+ & 0.36699E-09_JPRB,0.97118E-06_JPRB,0.13617E-05_JPRB,0.13744E-05_JPRB,0.24190E-06_JPRB /)  
+KB(:, 1,38, 3) = (/ &
+ & 0.37088E-09_JPRB,0.65468E-06_JPRB,0.90347E-06_JPRB,0.90140E-06_JPRB,0.15371E-06_JPRB /)  
+KB(:, 2,38, 3) = (/ &
+ & 0.35120E-09_JPRB,0.69421E-06_JPRB,0.96676E-06_JPRB,0.96222E-06_JPRB,0.16484E-06_JPRB /)  
+KB(:, 3,38, 3) = (/ &
+ & 0.33340E-09_JPRB,0.73211E-06_JPRB,0.10233E-05_JPRB,0.10203E-05_JPRB,0.17578E-06_JPRB /)  
+KB(:, 4,38, 3) = (/ &
+ & 0.31721E-09_JPRB,0.76838E-06_JPRB,0.10750E-05_JPRB,0.10745E-05_JPRB,0.18656E-06_JPRB /)  
+KB(:, 5,38, 3) = (/ &
+ & 0.30242E-09_JPRB,0.79676E-06_JPRB,0.11164E-05_JPRB,0.11256E-05_JPRB,0.19730E-06_JPRB /)  
+KB(:, 1,39, 3) = (/ &
+ & 0.30603E-09_JPRB,0.53518E-06_JPRB,0.73755E-06_JPRB,0.73560E-06_JPRB,0.12509E-06_JPRB /)  
+KB(:, 2,39, 3) = (/ &
+ & 0.28967E-09_JPRB,0.56827E-06_JPRB,0.79017E-06_JPRB,0.78607E-06_JPRB,0.13420E-06_JPRB /)  
+KB(:, 3,39, 3) = (/ &
+ & 0.27490E-09_JPRB,0.59946E-06_JPRB,0.83729E-06_JPRB,0.83418E-06_JPRB,0.14320E-06_JPRB /)  
+KB(:, 4,39, 3) = (/ &
+ & 0.26148E-09_JPRB,0.62968E-06_JPRB,0.88045E-06_JPRB,0.87919E-06_JPRB,0.15206E-06_JPRB /)  
+KB(:, 5,39, 3) = (/ &
+ & 0.24922E-09_JPRB,0.65358E-06_JPRB,0.91511E-06_JPRB,0.92187E-06_JPRB,0.16092E-06_JPRB /)  
+KB(:, 1,40, 3) = (/ &
+ & 0.25401E-09_JPRB,0.43491E-06_JPRB,0.59706E-06_JPRB,0.59583E-06_JPRB,0.10103E-06_JPRB /)  
+KB(:, 2,40, 3) = (/ &
+ & 0.24027E-09_JPRB,0.46243E-06_JPRB,0.64127E-06_JPRB,0.63780E-06_JPRB,0.10854E-06_JPRB /)  
+KB(:, 3,40, 3) = (/ &
+ & 0.22788E-09_JPRB,0.48789E-06_JPRB,0.68111E-06_JPRB,0.67785E-06_JPRB,0.11596E-06_JPRB /)  
+KB(:, 4,40, 3) = (/ &
+ & 0.21664E-09_JPRB,0.51370E-06_JPRB,0.71776E-06_JPRB,0.71557E-06_JPRB,0.12318E-06_JPRB /)  
+KB(:, 5,40, 3) = (/ &
+ & 0.20639E-09_JPRB,0.53413E-06_JPRB,0.74738E-06_JPRB,0.75116E-06_JPRB,0.13055E-06_JPRB /)  
+KB(:, 1,41, 3) = (/ &
+ & 0.21103E-09_JPRB,0.35162E-06_JPRB,0.48245E-06_JPRB,0.48181E-06_JPRB,0.81551E-07_JPRB /)  
+KB(:, 2,41, 3) = (/ &
+ & 0.19947E-09_JPRB,0.37577E-06_JPRB,0.51975E-06_JPRB,0.51683E-06_JPRB,0.87624E-07_JPRB /)  
+KB(:, 3,41, 3) = (/ &
+ & 0.18906E-09_JPRB,0.39681E-06_JPRB,0.55372E-06_JPRB,0.55016E-06_JPRB,0.93775E-07_JPRB /)  
+KB(:, 4,41, 3) = (/ &
+ & 0.17963E-09_JPRB,0.41856E-06_JPRB,0.58405E-06_JPRB,0.58177E-06_JPRB,0.99677E-07_JPRB /)  
+KB(:, 5,41, 3) = (/ &
+ & 0.17105E-09_JPRB,0.43610E-06_JPRB,0.60957E-06_JPRB,0.61150E-06_JPRB,0.10578E-06_JPRB /)  
+KB(:, 1,42, 3) = (/ &
+ & 0.17536E-09_JPRB,0.28412E-06_JPRB,0.38948E-06_JPRB,0.38933E-06_JPRB,0.65791E-07_JPRB /)  
+KB(:, 2,42, 3) = (/ &
+ & 0.16563E-09_JPRB,0.30504E-06_JPRB,0.42097E-06_JPRB,0.41854E-06_JPRB,0.70752E-07_JPRB /)  
+KB(:, 3,42, 3) = (/ &
+ & 0.15688E-09_JPRB,0.32265E-06_JPRB,0.44957E-06_JPRB,0.44624E-06_JPRB,0.75790E-07_JPRB /)  
+KB(:, 4,42, 3) = (/ &
+ & 0.14897E-09_JPRB,0.34080E-06_JPRB,0.47502E-06_JPRB,0.47268E-06_JPRB,0.80648E-07_JPRB /)  
+KB(:, 5,42, 3) = (/ &
+ & 0.14178E-09_JPRB,0.35584E-06_JPRB,0.49696E-06_JPRB,0.49747E-06_JPRB,0.85685E-07_JPRB /)  
+KB(:, 1,43, 3) = (/ &
+ & 0.14625E-09_JPRB,0.22828E-06_JPRB,0.31269E-06_JPRB,0.31301E-06_JPRB,0.52858E-07_JPRB /)  
+KB(:, 2,43, 3) = (/ &
+ & 0.13800E-09_JPRB,0.24660E-06_JPRB,0.33945E-06_JPRB,0.33736E-06_JPRB,0.56872E-07_JPRB /)  
+KB(:, 3,43, 3) = (/ &
+ & 0.13060E-09_JPRB,0.26150E-06_JPRB,0.36382E-06_JPRB,0.36052E-06_JPRB,0.61005E-07_JPRB /)  
+KB(:, 4,43, 3) = (/ &
+ & 0.12392E-09_JPRB,0.27637E-06_JPRB,0.38496E-06_JPRB,0.38262E-06_JPRB,0.65064E-07_JPRB /)  
+KB(:, 5,43, 3) = (/ &
+ & 0.11786E-09_JPRB,0.28960E-06_JPRB,0.40432E-06_JPRB,0.40346E-06_JPRB,0.69134E-07_JPRB /)  
+KB(:, 1,44, 3) = (/ &
+ & 0.12220E-09_JPRB,0.18299E-06_JPRB,0.25003E-06_JPRB,0.25075E-06_JPRB,0.42426E-07_JPRB /)  
+KB(:, 2,44, 3) = (/ &
+ & 0.11518E-09_JPRB,0.19858E-06_JPRB,0.27271E-06_JPRB,0.27124E-06_JPRB,0.45605E-07_JPRB /)  
+KB(:, 3,44, 3) = (/ &
+ & 0.10890E-09_JPRB,0.21149E-06_JPRB,0.29306E-06_JPRB,0.29059E-06_JPRB,0.48989E-07_JPRB /)  
+KB(:, 4,44, 3) = (/ &
+ & 0.10324E-09_JPRB,0.22361E-06_JPRB,0.31128E-06_JPRB,0.30909E-06_JPRB,0.52357E-07_JPRB /)  
+KB(:, 5,44, 3) = (/ &
+ & 0.98119E-10_JPRB,0.23540E-06_JPRB,0.32782E-06_JPRB,0.32657E-06_JPRB,0.55650E-07_JPRB /)  
+KB(:, 1,45, 3) = (/ &
+ & 0.10215E-09_JPRB,0.14604E-06_JPRB,0.19957E-06_JPRB,0.20079E-06_JPRB,0.34009E-07_JPRB /)  
+KB(:, 2,45, 3) = (/ &
+ & 0.96168E-10_JPRB,0.15976E-06_JPRB,0.21859E-06_JPRB,0.21782E-06_JPRB,0.36565E-07_JPRB /)  
+KB(:, 3,45, 3) = (/ &
+ & 0.90832E-10_JPRB,0.17092E-06_JPRB,0.23594E-06_JPRB,0.23403E-06_JPRB,0.39336E-07_JPRB /)  
+KB(:, 4,45, 3) = (/ &
+ & 0.86039E-10_JPRB,0.18076E-06_JPRB,0.25148E-06_JPRB,0.24940E-06_JPRB,0.42120E-07_JPRB /)  
+KB(:, 5,45, 3) = (/ &
+ & 0.81705E-10_JPRB,0.19091E-06_JPRB,0.26579E-06_JPRB,0.26417E-06_JPRB,0.44806E-07_JPRB /)  
+KB(:, 1,46, 3) = (/ &
+ & 0.85548E-10_JPRB,0.11606E-06_JPRB,0.15858E-06_JPRB,0.16025E-06_JPRB,0.27138E-07_JPRB /)  
+KB(:, 2,46, 3) = (/ &
+ & 0.80430E-10_JPRB,0.12777E-06_JPRB,0.17465E-06_JPRB,0.17439E-06_JPRB,0.29260E-07_JPRB /)  
+KB(:, 3,46, 3) = (/ &
+ & 0.75882E-10_JPRB,0.13771E-06_JPRB,0.18956E-06_JPRB,0.18801E-06_JPRB,0.31519E-07_JPRB /)  
+KB(:, 4,46, 3) = (/ &
+ & 0.71807E-10_JPRB,0.14597E-06_JPRB,0.20282E-06_JPRB,0.20085E-06_JPRB,0.33790E-07_JPRB /)  
+KB(:, 5,46, 3) = (/ &
+ & 0.68131E-10_JPRB,0.15454E-06_JPRB,0.21485E-06_JPRB,0.21321E-06_JPRB,0.36016E-07_JPRB /)  
+KB(:, 1,47, 3) = (/ &
+ & 0.71880E-10_JPRB,0.91677E-07_JPRB,0.12518E-06_JPRB,0.12717E-06_JPRB,0.21548E-07_JPRB /)  
+KB(:, 2,47, 3) = (/ &
+ & 0.67474E-10_JPRB,0.10182E-06_JPRB,0.13885E-06_JPRB,0.13887E-06_JPRB,0.23366E-07_JPRB /)  
+KB(:, 3,47, 3) = (/ &
+ & 0.63573E-10_JPRB,0.11037E-06_JPRB,0.15155E-06_JPRB,0.15037E-06_JPRB,0.25140E-07_JPRB /)  
+KB(:, 4,47, 3) = (/ &
+ & 0.60089E-10_JPRB,0.11757E-06_JPRB,0.16292E-06_JPRB,0.16115E-06_JPRB,0.27023E-07_JPRB /)  
+KB(:, 5,47, 3) = (/ &
+ & 0.56955E-10_JPRB,0.12460E-06_JPRB,0.17303E-06_JPRB,0.17150E-06_JPRB,0.28886E-07_JPRB /)  
+KB(:, 1,48, 3) = (/ &
+ & 0.60438E-10_JPRB,0.72378E-07_JPRB,0.98586E-07_JPRB,0.10075E-06_JPRB,0.17068E-07_JPRB /)  
+KB(:, 2,48, 3) = (/ &
+ & 0.56639E-10_JPRB,0.80662E-07_JPRB,0.11003E-06_JPRB,0.11052E-06_JPRB,0.18643E-07_JPRB /)  
+KB(:, 3,48, 3) = (/ &
+ & 0.53288E-10_JPRB,0.88391E-07_JPRB,0.12069E-06_JPRB,0.12007E-06_JPRB,0.20050E-07_JPRB /)  
+KB(:, 4,48, 3) = (/ &
+ & 0.50306E-10_JPRB,0.94624E-07_JPRB,0.13045E-06_JPRB,0.12916E-06_JPRB,0.21587E-07_JPRB /)  
+KB(:, 5,48, 3) = (/ &
+ & 0.47632E-10_JPRB,0.10026E-06_JPRB,0.13914E-06_JPRB,0.13778E-06_JPRB,0.23136E-07_JPRB /)  
+KB(:, 1,49, 3) = (/ &
+ & 0.50856E-10_JPRB,0.57046E-07_JPRB,0.77565E-07_JPRB,0.79741E-07_JPRB,0.13510E-07_JPRB /)  
+KB(:, 2,49, 3) = (/ &
+ & 0.47574E-10_JPRB,0.63730E-07_JPRB,0.86939E-07_JPRB,0.87826E-07_JPRB,0.14811E-07_JPRB /)  
+KB(:, 3,49, 3) = (/ &
+ & 0.44692E-10_JPRB,0.70367E-07_JPRB,0.95974E-07_JPRB,0.95707E-07_JPRB,0.15992E-07_JPRB /)  
+KB(:, 4,49, 3) = (/ &
+ & 0.42136E-10_JPRB,0.75959E-07_JPRB,0.10441E-06_JPRB,0.10336E-06_JPRB,0.17235E-07_JPRB /)  
+KB(:, 5,49, 3) = (/ &
+ & 0.39851E-10_JPRB,0.80662E-07_JPRB,0.11179E-06_JPRB,0.11061E-06_JPRB,0.18501E-07_JPRB /)  
+KB(:, 1,50, 3) = (/ &
+ & 0.42752E-10_JPRB,0.44994E-07_JPRB,0.60933E-07_JPRB,0.63170E-07_JPRB,0.10733E-07_JPRB /)  
+KB(:, 2,50, 3) = (/ &
+ & 0.39920E-10_JPRB,0.50417E-07_JPRB,0.68695E-07_JPRB,0.69776E-07_JPRB,0.11778E-07_JPRB /)  
+KB(:, 3,50, 3) = (/ &
+ & 0.37445E-10_JPRB,0.56129E-07_JPRB,0.76381E-07_JPRB,0.76292E-07_JPRB,0.12796E-07_JPRB /)  
+KB(:, 4,50, 3) = (/ &
+ & 0.35258E-10_JPRB,0.60916E-07_JPRB,0.83533E-07_JPRB,0.82746E-07_JPRB,0.13770E-07_JPRB /)  
+KB(:, 5,50, 3) = (/ &
+ & 0.33309E-10_JPRB,0.65010E-07_JPRB,0.89933E-07_JPRB,0.88828E-07_JPRB,0.14809E-07_JPRB /)  
+KB(:, 1,51, 3) = (/ &
+ & 0.35935E-10_JPRB,0.35278E-07_JPRB,0.47901E-07_JPRB,0.50056E-07_JPRB,0.85239E-08_JPRB /)  
+KB(:, 2,51, 3) = (/ &
+ & 0.33494E-10_JPRB,0.39897E-07_JPRB,0.54245E-07_JPRB,0.55439E-07_JPRB,0.93562E-08_JPRB /)  
+KB(:, 3,51, 3) = (/ &
+ & 0.31368E-10_JPRB,0.44577E-07_JPRB,0.60687E-07_JPRB,0.60854E-07_JPRB,0.10229E-07_JPRB /)  
+KB(:, 4,51, 3) = (/ &
+ & 0.29497E-10_JPRB,0.48906E-07_JPRB,0.66668E-07_JPRB,0.66217E-07_JPRB,0.11009E-07_JPRB /)  
+KB(:, 5,51, 3) = (/ &
+ & 0.27834E-10_JPRB,0.52348E-07_JPRB,0.72154E-07_JPRB,0.71322E-07_JPRB,0.11856E-07_JPRB /)  
+KB(:, 1,52, 3) = (/ &
+ & 0.30227E-10_JPRB,0.27572E-07_JPRB,0.37524E-07_JPRB,0.39754E-07_JPRB,0.67198E-08_JPRB /)  
+KB(:, 2,52, 3) = (/ &
+ & 0.28118E-10_JPRB,0.31560E-07_JPRB,0.42810E-07_JPRB,0.44031E-07_JPRB,0.74267E-08_JPRB /)  
+KB(:, 3,52, 3) = (/ &
+ & 0.26290E-10_JPRB,0.35319E-07_JPRB,0.48079E-07_JPRB,0.48486E-07_JPRB,0.81511E-08_JPRB /)  
+KB(:, 4,52, 3) = (/ &
+ & 0.24687E-10_JPRB,0.39041E-07_JPRB,0.53141E-07_JPRB,0.52898E-07_JPRB,0.88044E-08_JPRB /)  
+KB(:, 5,52, 3) = (/ &
+ & 0.23267E-10_JPRB,0.42123E-07_JPRB,0.57835E-07_JPRB,0.57177E-07_JPRB,0.94934E-08_JPRB /)  
+KB(:, 1,53, 3) = (/ &
+ & 0.25448E-10_JPRB,0.21456E-07_JPRB,0.29324E-07_JPRB,0.31450E-07_JPRB,0.53035E-08_JPRB /)  
+KB(:, 2,53, 3) = (/ &
+ & 0.23623E-10_JPRB,0.24922E-07_JPRB,0.33706E-07_JPRB,0.34903E-07_JPRB,0.59025E-08_JPRB /)  
+KB(:, 3,53, 3) = (/ &
+ & 0.22048E-10_JPRB,0.27931E-07_JPRB,0.38009E-07_JPRB,0.38548E-07_JPRB,0.64842E-08_JPRB /)  
+KB(:, 4,53, 3) = (/ &
+ & 0.20673E-10_JPRB,0.31117E-07_JPRB,0.42293E-07_JPRB,0.42180E-07_JPRB,0.70454E-08_JPRB /)  
+KB(:, 5,53, 3) = (/ &
+ & 0.19459E-10_JPRB,0.33800E-07_JPRB,0.46316E-07_JPRB,0.45776E-07_JPRB,0.75886E-08_JPRB /)  
+KB(:, 1,54, 3) = (/ &
+ & 0.21390E-10_JPRB,0.16743E-07_JPRB,0.23031E-07_JPRB,0.24877E-07_JPRB,0.41777E-08_JPRB /)  
+KB(:, 2,54, 3) = (/ &
+ & 0.19815E-10_JPRB,0.19619E-07_JPRB,0.26556E-07_JPRB,0.27722E-07_JPRB,0.47031E-08_JPRB /)  
+KB(:, 3,54, 3) = (/ &
+ & 0.18463E-10_JPRB,0.22167E-07_JPRB,0.30101E-07_JPRB,0.30708E-07_JPRB,0.51646E-08_JPRB /)  
+KB(:, 4,54, 3) = (/ &
+ & 0.17286E-10_JPRB,0.24804E-07_JPRB,0.33704E-07_JPRB,0.33716E-07_JPRB,0.56448E-08_JPRB /)  
+KB(:, 5,54, 3) = (/ &
+ & 0.16251E-10_JPRB,0.27183E-07_JPRB,0.37049E-07_JPRB,0.36696E-07_JPRB,0.60788E-08_JPRB /)  
+KB(:, 1,55, 3) = (/ &
+ & 0.17973E-10_JPRB,0.13037E-07_JPRB,0.18115E-07_JPRB,0.19727E-07_JPRB,0.32912E-08_JPRB /)  
+KB(:, 2,55, 3) = (/ &
+ & 0.16615E-10_JPRB,0.15402E-07_JPRB,0.20942E-07_JPRB,0.22043E-07_JPRB,0.37301E-08_JPRB /)  
+KB(:, 3,55, 3) = (/ &
+ & 0.15454E-10_JPRB,0.17592E-07_JPRB,0.23848E-07_JPRB,0.24485E-07_JPRB,0.41129E-08_JPRB /)  
+KB(:, 4,55, 3) = (/ &
+ & 0.14448E-10_JPRB,0.19733E-07_JPRB,0.26815E-07_JPRB,0.26954E-07_JPRB,0.45146E-08_JPRB /)  
+KB(:, 5,55, 3) = (/ &
+ & 0.13565E-10_JPRB,0.21785E-07_JPRB,0.29633E-07_JPRB,0.29414E-07_JPRB,0.48762E-08_JPRB /)  
+KB(:, 1,56, 3) = (/ &
+ & 0.15112E-10_JPRB,0.10127E-07_JPRB,0.14262E-07_JPRB,0.15637E-07_JPRB,0.25986E-08_JPRB /)  
+KB(:, 2,56, 3) = (/ &
+ & 0.13939E-10_JPRB,0.12082E-07_JPRB,0.16458E-07_JPRB,0.17567E-07_JPRB,0.29510E-08_JPRB /)  
+KB(:, 3,56, 3) = (/ &
+ & 0.12942E-10_JPRB,0.13980E-07_JPRB,0.18876E-07_JPRB,0.19499E-07_JPRB,0.32803E-08_JPRB /)  
+KB(:, 4,56, 3) = (/ &
+ & 0.12080E-10_JPRB,0.15677E-07_JPRB,0.21298E-07_JPRB,0.21516E-07_JPRB,0.36078E-08_JPRB /)  
+KB(:, 5,56, 3) = (/ &
+ & 0.11328E-10_JPRB,0.17421E-07_JPRB,0.23674E-07_JPRB,0.23552E-07_JPRB,0.39142E-08_JPRB /)  
+KB(:, 1,57, 3) = (/ &
+ & 0.12716E-10_JPRB,0.78423E-08_JPRB,0.11218E-07_JPRB,0.12368E-07_JPRB,0.20572E-08_JPRB /)  
+KB(:, 2,57, 3) = (/ &
+ & 0.11703E-10_JPRB,0.94468E-08_JPRB,0.12944E-07_JPRB,0.13939E-07_JPRB,0.23449E-08_JPRB /)  
+KB(:, 3,57, 3) = (/ &
+ & 0.10844E-10_JPRB,0.11054E-07_JPRB,0.14933E-07_JPRB,0.15504E-07_JPRB,0.26161E-08_JPRB /)  
+KB(:, 4,57, 3) = (/ &
+ & 0.10105E-10_JPRB,0.12445E-07_JPRB,0.16895E-07_JPRB,0.17167E-07_JPRB,0.28789E-08_JPRB /)  
+KB(:, 5,57, 3) = (/ &
+ & 0.94629E-11_JPRB,0.13929E-07_JPRB,0.18884E-07_JPRB,0.18837E-07_JPRB,0.31391E-08_JPRB /)  
+KB(:, 1,58, 3) = (/ &
+ & 0.10694E-10_JPRB,0.61084E-08_JPRB,0.88278E-08_JPRB,0.97801E-08_JPRB,0.16192E-08_JPRB /)  
+KB(:, 2,58, 3) = (/ &
+ & 0.98180E-11_JPRB,0.73859E-08_JPRB,0.10206E-07_JPRB,0.11064E-07_JPRB,0.18486E-08_JPRB /)  
+KB(:, 3,58, 3) = (/ &
+ & 0.90797E-11_JPRB,0.87113E-08_JPRB,0.11801E-07_JPRB,0.12348E-07_JPRB,0.20872E-08_JPRB /)  
+KB(:, 4,58, 3) = (/ &
+ & 0.84478E-11_JPRB,0.99003E-08_JPRB,0.13409E-07_JPRB,0.13707E-07_JPRB,0.22967E-08_JPRB /)  
+KB(:, 5,58, 3) = (/ &
+ & 0.78998E-11_JPRB,0.11108E-07_JPRB,0.15069E-07_JPRB,0.15082E-07_JPRB,0.25182E-08_JPRB /)  
+KB(:, 1,59, 3) = (/ &
+ & 0.88513E-11_JPRB,0.49239E-08_JPRB,0.71386E-08_JPRB,0.79170E-08_JPRB,0.13089E-08_JPRB /)  
+KB(:, 2,59, 3) = (/ &
+ & 0.81187E-11_JPRB,0.59541E-08_JPRB,0.82539E-08_JPRB,0.89758E-08_JPRB,0.14952E-08_JPRB /)  
+KB(:, 3,59, 3) = (/ &
+ & 0.75021E-11_JPRB,0.70450E-08_JPRB,0.95567E-08_JPRB,0.10024E-07_JPRB,0.16919E-08_JPRB /)  
+KB(:, 4,59, 3) = (/ &
+ & 0.69753E-11_JPRB,0.80391E-08_JPRB,0.10874E-07_JPRB,0.11143E-07_JPRB,0.18646E-08_JPRB /)  
+KB(:, 5,59, 3) = (/ &
+ & 0.65191E-11_JPRB,0.90265E-08_JPRB,0.12240E-07_JPRB,0.12268E-07_JPRB,0.20471E-08_JPRB /)  
+KB(:, 1,13, 4) = (/ &
+ & 0.40115E-06_JPRB,0.20542E-03_JPRB,0.29006E-03_JPRB,0.29983E-03_JPRB,0.86404E-04_JPRB /)  
+KB(:, 2,13, 4) = (/ &
+ & 0.38503E-06_JPRB,0.22086E-03_JPRB,0.30833E-03_JPRB,0.32518E-03_JPRB,0.92611E-04_JPRB /)  
+KB(:, 3,13, 4) = (/ &
+ & 0.37042E-06_JPRB,0.23415E-03_JPRB,0.32674E-03_JPRB,0.34814E-03_JPRB,0.98878E-04_JPRB /)  
+KB(:, 4,13, 4) = (/ &
+ & 0.35699E-06_JPRB,0.24607E-03_JPRB,0.34335E-03_JPRB,0.36858E-03_JPRB,0.10559E-03_JPRB /)  
+KB(:, 5,13, 4) = (/ &
+ & 0.34439E-06_JPRB,0.25741E-03_JPRB,0.35943E-03_JPRB,0.38716E-03_JPRB,0.11262E-03_JPRB /)  
+KB(:, 1,14, 4) = (/ &
+ & 0.32717E-06_JPRB,0.17086E-03_JPRB,0.24121E-03_JPRB,0.25001E-03_JPRB,0.72120E-04_JPRB /)  
+KB(:, 2,14, 4) = (/ &
+ & 0.31411E-06_JPRB,0.18358E-03_JPRB,0.25599E-03_JPRB,0.27089E-03_JPRB,0.77351E-04_JPRB /)  
+KB(:, 3,14, 4) = (/ &
+ & 0.30225E-06_JPRB,0.19456E-03_JPRB,0.27149E-03_JPRB,0.29002E-03_JPRB,0.82676E-04_JPRB /)  
+KB(:, 4,14, 4) = (/ &
+ & 0.29132E-06_JPRB,0.20460E-03_JPRB,0.28544E-03_JPRB,0.30678E-03_JPRB,0.88331E-04_JPRB /)  
+KB(:, 5,14, 4) = (/ &
+ & 0.28105E-06_JPRB,0.21410E-03_JPRB,0.29919E-03_JPRB,0.32271E-03_JPRB,0.94451E-04_JPRB /)  
+KB(:, 1,15, 4) = (/ &
+ & 0.26673E-06_JPRB,0.14221E-03_JPRB,0.20048E-03_JPRB,0.20843E-03_JPRB,0.60213E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,15, 4) = (/ &
+ & 0.25615E-06_JPRB,0.15268E-03_JPRB,0.21264E-03_JPRB,0.22531E-03_JPRB,0.64531E-04_JPRB /)  
+KB(:, 3,15, 4) = (/ &
+ & 0.24652E-06_JPRB,0.16170E-03_JPRB,0.22567E-03_JPRB,0.24157E-03_JPRB,0.69102E-04_JPRB /)  
+KB(:, 4,15, 4) = (/ &
+ & 0.23764E-06_JPRB,0.17023E-03_JPRB,0.23750E-03_JPRB,0.25543E-03_JPRB,0.73891E-04_JPRB /)  
+KB(:, 5,15, 4) = (/ &
+ & 0.22926E-06_JPRB,0.17815E-03_JPRB,0.24912E-03_JPRB,0.26892E-03_JPRB,0.79167E-04_JPRB /)  
+KB(:, 1,16, 4) = (/ &
+ & 0.21740E-06_JPRB,0.11824E-03_JPRB,0.16644E-03_JPRB,0.17381E-03_JPRB,0.50227E-04_JPRB /)  
+KB(:, 2,16, 4) = (/ &
+ & 0.20884E-06_JPRB,0.12696E-03_JPRB,0.17683E-03_JPRB,0.18780E-03_JPRB,0.53903E-04_JPRB /)  
+KB(:, 3,16, 4) = (/ &
+ & 0.20104E-06_JPRB,0.13434E-03_JPRB,0.18764E-03_JPRB,0.20094E-03_JPRB,0.57777E-04_JPRB /)  
+KB(:, 4,16, 4) = (/ &
+ & 0.19381E-06_JPRB,0.14177E-03_JPRB,0.19757E-03_JPRB,0.21259E-03_JPRB,0.61821E-04_JPRB /)  
+KB(:, 5,16, 4) = (/ &
+ & 0.18698E-06_JPRB,0.14828E-03_JPRB,0.20747E-03_JPRB,0.22416E-03_JPRB,0.66326E-04_JPRB /)  
+KB(:, 1,17, 4) = (/ &
+ & 0.17724E-06_JPRB,0.98287E-04_JPRB,0.13813E-03_JPRB,0.14496E-03_JPRB,0.41851E-04_JPRB /)  
+KB(:, 2,17, 4) = (/ &
+ & 0.17029E-06_JPRB,0.10548E-03_JPRB,0.14701E-03_JPRB,0.15636E-03_JPRB,0.44943E-04_JPRB /)  
+KB(:, 3,17, 4) = (/ &
+ & 0.16396E-06_JPRB,0.11169E-03_JPRB,0.15605E-03_JPRB,0.16727E-03_JPRB,0.48176E-04_JPRB /)  
+KB(:, 4,17, 4) = (/ &
+ & 0.15809E-06_JPRB,0.11795E-03_JPRB,0.16435E-03_JPRB,0.17684E-03_JPRB,0.51716E-04_JPRB /)  
+KB(:, 5,17, 4) = (/ &
+ & 0.15251E-06_JPRB,0.12332E-03_JPRB,0.17265E-03_JPRB,0.18683E-03_JPRB,0.55480E-04_JPRB /)  
+KB(:, 1,18, 4) = (/ &
+ & 0.14450E-06_JPRB,0.81703E-04_JPRB,0.11464E-03_JPRB,0.12079E-03_JPRB,0.34849E-04_JPRB /)  
+KB(:, 2,18, 4) = (/ &
+ & 0.13887E-06_JPRB,0.87580E-04_JPRB,0.12224E-03_JPRB,0.13028E-03_JPRB,0.37465E-04_JPRB /)  
+KB(:, 3,18, 4) = (/ &
+ & 0.13373E-06_JPRB,0.92869E-04_JPRB,0.12966E-03_JPRB,0.13906E-03_JPRB,0.40225E-04_JPRB /)  
+KB(:, 4,18, 4) = (/ &
+ & 0.12896E-06_JPRB,0.98034E-04_JPRB,0.13668E-03_JPRB,0.14712E-03_JPRB,0.43227E-04_JPRB /)  
+KB(:, 5,18, 4) = (/ &
+ & 0.12439E-06_JPRB,0.10250E-03_JPRB,0.14367E-03_JPRB,0.15557E-03_JPRB,0.46383E-04_JPRB /)  
+KB(:, 1,19, 4) = (/ &
+ & 0.11782E-06_JPRB,0.67922E-04_JPRB,0.95121E-04_JPRB,0.10059E-03_JPRB,0.29014E-04_JPRB /)  
+KB(:, 2,19, 4) = (/ &
+ & 0.11325E-06_JPRB,0.72759E-04_JPRB,0.10166E-03_JPRB,0.10843E-03_JPRB,0.31239E-04_JPRB /)  
+KB(:, 3,19, 4) = (/ &
+ & 0.10909E-06_JPRB,0.77213E-04_JPRB,0.10769E-03_JPRB,0.11563E-03_JPRB,0.33594E-04_JPRB /)  
+KB(:, 4,19, 4) = (/ &
+ & 0.10521E-06_JPRB,0.81507E-04_JPRB,0.11367E-03_JPRB,0.12244E-03_JPRB,0.36087E-04_JPRB /)  
+KB(:, 5,19, 4) = (/ &
+ & 0.10146E-06_JPRB,0.85229E-04_JPRB,0.11951E-03_JPRB,0.12955E-03_JPRB,0.38760E-04_JPRB /)  
+KB(:, 1,20, 4) = (/ &
+ & 0.96005E-07_JPRB,0.56539E-04_JPRB,0.79048E-04_JPRB,0.83638E-04_JPRB,0.24182E-04_JPRB /)  
+KB(:, 2,20, 4) = (/ &
+ & 0.92311E-07_JPRB,0.60522E-04_JPRB,0.84506E-04_JPRB,0.90308E-04_JPRB,0.26052E-04_JPRB /)  
+KB(:, 3,20, 4) = (/ &
+ & 0.88927E-07_JPRB,0.64305E-04_JPRB,0.89608E-04_JPRB,0.96229E-04_JPRB,0.28071E-04_JPRB /)  
+KB(:, 4,20, 4) = (/ &
+ & 0.85775E-07_JPRB,0.67811E-04_JPRB,0.94659E-04_JPRB,0.10203E-03_JPRB,0.30185E-04_JPRB /)  
+KB(:, 5,20, 4) = (/ &
+ & 0.82709E-07_JPRB,0.70967E-04_JPRB,0.99551E-04_JPRB,0.10796E-03_JPRB,0.32438E-04_JPRB /)  
+KB(:, 1,21, 4) = (/ &
+ & 0.78225E-07_JPRB,0.47094E-04_JPRB,0.65736E-04_JPRB,0.69706E-04_JPRB,0.20168E-04_JPRB /)  
+KB(:, 2,21, 4) = (/ &
+ & 0.75235E-07_JPRB,0.50383E-04_JPRB,0.70309E-04_JPRB,0.75210E-04_JPRB,0.21748E-04_JPRB /)  
+KB(:, 3,21, 4) = (/ &
+ & 0.72491E-07_JPRB,0.53581E-04_JPRB,0.74579E-04_JPRB,0.80106E-04_JPRB,0.23442E-04_JPRB /)  
+KB(:, 4,21, 4) = (/ &
+ & 0.69929E-07_JPRB,0.56448E-04_JPRB,0.78864E-04_JPRB,0.85108E-04_JPRB,0.25248E-04_JPRB /)  
+KB(:, 5,21, 4) = (/ &
+ & 0.67419E-07_JPRB,0.59090E-04_JPRB,0.82932E-04_JPRB,0.89870E-04_JPRB,0.27098E-04_JPRB /)  
+KB(:, 1,22, 4) = (/ &
+ & 0.63572E-07_JPRB,0.39426E-04_JPRB,0.54979E-04_JPRB,0.58443E-04_JPRB,0.16913E-04_JPRB /)  
+KB(:, 2,22, 4) = (/ &
+ & 0.61166E-07_JPRB,0.42097E-04_JPRB,0.58779E-04_JPRB,0.62933E-04_JPRB,0.18259E-04_JPRB /)  
+KB(:, 3,22, 4) = (/ &
+ & 0.58951E-07_JPRB,0.44794E-04_JPRB,0.62330E-04_JPRB,0.66952E-04_JPRB,0.19670E-04_JPRB /)  
+KB(:, 4,22, 4) = (/ &
+ & 0.56872E-07_JPRB,0.47147E-04_JPRB,0.65961E-04_JPRB,0.71230E-04_JPRB,0.21221E-04_JPRB /)  
+KB(:, 5,22, 4) = (/ &
+ & 0.54822E-07_JPRB,0.49377E-04_JPRB,0.69234E-04_JPRB,0.75038E-04_JPRB,0.22743E-04_JPRB /)  
+KB(:, 1,23, 4) = (/ &
+ & 0.51656E-07_JPRB,0.32950E-04_JPRB,0.46052E-04_JPRB,0.49084E-04_JPRB,0.14181E-04_JPRB /)  
+KB(:, 2,23, 4) = (/ &
+ & 0.49721E-07_JPRB,0.35250E-04_JPRB,0.49106E-04_JPRB,0.52675E-04_JPRB,0.15330E-04_JPRB /)  
+KB(:, 3,23, 4) = (/ &
+ & 0.47930E-07_JPRB,0.37438E-04_JPRB,0.52152E-04_JPRB,0.56097E-04_JPRB,0.16532E-04_JPRB /)  
+KB(:, 4,23, 4) = (/ &
+ & 0.46242E-07_JPRB,0.39418E-04_JPRB,0.55160E-04_JPRB,0.59674E-04_JPRB,0.17811E-04_JPRB /)  
+KB(:, 5,23, 4) = (/ &
+ & 0.44570E-07_JPRB,0.41280E-04_JPRB,0.57899E-04_JPRB,0.62654E-04_JPRB,0.19100E-04_JPRB /)  
+KB(:, 1,24, 4) = (/ &
+ & 0.41962E-07_JPRB,0.27608E-04_JPRB,0.38527E-04_JPRB,0.41167E-04_JPRB,0.11908E-04_JPRB /)  
+KB(:, 2,24, 4) = (/ &
+ & 0.40405E-07_JPRB,0.29547E-04_JPRB,0.41099E-04_JPRB,0.44081E-04_JPRB,0.12880E-04_JPRB /)  
+KB(:, 3,24, 4) = (/ &
+ & 0.38959E-07_JPRB,0.31321E-04_JPRB,0.43687E-04_JPRB,0.47051E-04_JPRB,0.13912E-04_JPRB /)  
+KB(:, 4,24, 4) = (/ &
+ & 0.37583E-07_JPRB,0.32994E-04_JPRB,0.46190E-04_JPRB,0.49890E-04_JPRB,0.14961E-04_JPRB /)  
+KB(:, 5,24, 4) = (/ &
+ & 0.36227E-07_JPRB,0.34560E-04_JPRB,0.48473E-04_JPRB,0.52358E-04_JPRB,0.16039E-04_JPRB /)  
+KB(:, 1,25, 4) = (/ &
+ & 0.34075E-07_JPRB,0.23153E-04_JPRB,0.32305E-04_JPRB,0.34566E-04_JPRB,0.10014E-04_JPRB /)  
+KB(:, 2,25, 4) = (/ &
+ & 0.32822E-07_JPRB,0.24769E-04_JPRB,0.34435E-04_JPRB,0.36968E-04_JPRB,0.10822E-04_JPRB /)  
+KB(:, 3,25, 4) = (/ &
+ & 0.31655E-07_JPRB,0.26242E-04_JPRB,0.36635E-04_JPRB,0.39484E-04_JPRB,0.11699E-04_JPRB /)  
+KB(:, 4,25, 4) = (/ &
+ & 0.30528E-07_JPRB,0.27624E-04_JPRB,0.38648E-04_JPRB,0.41770E-04_JPRB,0.12588E-04_JPRB /)  
+KB(:, 5,25, 4) = (/ &
+ & 0.29434E-07_JPRB,0.28951E-04_JPRB,0.40632E-04_JPRB,0.43774E-04_JPRB,0.13479E-04_JPRB /)  
+KB(:, 1,26, 4) = (/ &
+ & 0.27652E-07_JPRB,0.19460E-04_JPRB,0.27114E-04_JPRB,0.29052E-04_JPRB,0.84372E-05_JPRB /)  
+KB(:, 2,26, 4) = (/ &
+ & 0.26645E-07_JPRB,0.20785E-04_JPRB,0.28933E-04_JPRB,0.31091E-04_JPRB,0.91305E-05_JPRB /)  
+KB(:, 3,26, 4) = (/ &
+ & 0.25703E-07_JPRB,0.22018E-04_JPRB,0.30749E-04_JPRB,0.33173E-04_JPRB,0.98560E-05_JPRB /)  
+KB(:, 4,26, 4) = (/ &
+ & 0.24780E-07_JPRB,0.23166E-04_JPRB,0.32405E-04_JPRB,0.34971E-04_JPRB,0.10593E-04_JPRB /)  
+KB(:, 5,26, 4) = (/ &
+ & 0.23900E-07_JPRB,0.24286E-04_JPRB,0.34048E-04_JPRB,0.36663E-04_JPRB,0.11346E-04_JPRB /)  
+KB(:, 1,27, 4) = (/ &
+ & 0.22439E-07_JPRB,0.16370E-04_JPRB,0.22763E-04_JPRB,0.24397E-04_JPRB,0.71084E-05_JPRB /)  
+KB(:, 2,27, 4) = (/ &
+ & 0.21628E-07_JPRB,0.17461E-04_JPRB,0.24318E-04_JPRB,0.26140E-04_JPRB,0.76961E-05_JPRB /)  
+KB(:, 3,27, 4) = (/ &
+ & 0.20865E-07_JPRB,0.18493E-04_JPRB,0.25826E-04_JPRB,0.27824E-04_JPRB,0.83080E-05_JPRB /)  
+KB(:, 4,27, 4) = (/ &
+ & 0.20113E-07_JPRB,0.19452E-04_JPRB,0.27215E-04_JPRB,0.29287E-04_JPRB,0.89207E-05_JPRB /)  
+KB(:, 5,27, 4) = (/ &
+ & 0.19405E-07_JPRB,0.20376E-04_JPRB,0.28543E-04_JPRB,0.30710E-04_JPRB,0.95477E-05_JPRB /)  
+KB(:, 1,28, 4) = (/ &
+ & 0.18208E-07_JPRB,0.13777E-04_JPRB,0.19138E-04_JPRB,0.20524E-04_JPRB,0.59952E-05_JPRB /)  
+KB(:, 2,28, 4) = (/ &
+ & 0.17555E-07_JPRB,0.14679E-04_JPRB,0.20448E-04_JPRB,0.21996E-04_JPRB,0.64907E-05_JPRB /)  
+KB(:, 3,28, 4) = (/ &
+ & 0.16936E-07_JPRB,0.15522E-04_JPRB,0.21661E-04_JPRB,0.23357E-04_JPRB,0.69966E-05_JPRB /)  
+KB(:, 4,28, 4) = (/ &
+ & 0.16325E-07_JPRB,0.16334E-04_JPRB,0.22846E-04_JPRB,0.24537E-04_JPRB,0.75124E-05_JPRB /)  
+KB(:, 5,28, 4) = (/ &
+ & 0.15755E-07_JPRB,0.17088E-04_JPRB,0.23931E-04_JPRB,0.25722E-04_JPRB,0.80305E-05_JPRB /)  
+KB(:, 1,29, 4) = (/ &
+ & 0.14772E-07_JPRB,0.11598E-04_JPRB,0.16117E-04_JPRB,0.17294E-04_JPRB,0.50602E-05_JPRB /)  
+KB(:, 2,29, 4) = (/ &
+ & 0.14246E-07_JPRB,0.12346E-04_JPRB,0.17198E-04_JPRB,0.18521E-04_JPRB,0.54799E-05_JPRB /)  
+KB(:, 3,29, 4) = (/ &
+ & 0.13739E-07_JPRB,0.13047E-04_JPRB,0.18205E-04_JPRB,0.19566E-04_JPRB,0.58992E-05_JPRB /)  
+KB(:, 4,29, 4) = (/ &
+ & 0.13247E-07_JPRB,0.13729E-04_JPRB,0.19173E-04_JPRB,0.20574E-04_JPRB,0.63251E-05_JPRB /)  
+KB(:, 5,29, 4) = (/ &
+ & 0.12789E-07_JPRB,0.14341E-04_JPRB,0.20068E-04_JPRB,0.21536E-04_JPRB,0.67496E-05_JPRB /)  
+KB(:, 1,30, 4) = (/ &
+ & 0.11984E-07_JPRB,0.97679E-05_JPRB,0.13568E-04_JPRB,0.14565E-04_JPRB,0.42721E-05_JPRB /)  
+KB(:, 2,30, 4) = (/ &
+ & 0.11560E-07_JPRB,0.10389E-04_JPRB,0.14461E-04_JPRB,0.15560E-04_JPRB,0.46182E-05_JPRB /)  
+KB(:, 3,30, 4) = (/ &
+ & 0.11144E-07_JPRB,0.10973E-04_JPRB,0.15302E-04_JPRB,0.16410E-04_JPRB,0.49715E-05_JPRB /)  
+KB(:, 4,30, 4) = (/ &
+ & 0.10750E-07_JPRB,0.11532E-04_JPRB,0.16091E-04_JPRB,0.17244E-04_JPRB,0.53212E-05_JPRB /)  
+KB(:, 5,30, 4) = (/ &
+ & 0.10381E-07_JPRB,0.12034E-04_JPRB,0.16821E-04_JPRB,0.18023E-04_JPRB,0.56712E-05_JPRB /)  
+KB(:, 1,31, 4) = (/ &
+ & 0.97205E-08_JPRB,0.82296E-05_JPRB,0.11440E-04_JPRB,0.12288E-04_JPRB,0.36079E-05_JPRB /)  
+KB(:, 2,31, 4) = (/ &
+ & 0.93777E-08_JPRB,0.87431E-05_JPRB,0.12158E-04_JPRB,0.13067E-04_JPRB,0.38974E-05_JPRB /)  
+KB(:, 3,31, 4) = (/ &
+ & 0.90391E-08_JPRB,0.92300E-05_JPRB,0.12862E-04_JPRB,0.13769E-04_JPRB,0.41885E-05_JPRB /)  
+KB(:, 4,31, 4) = (/ &
+ & 0.87219E-08_JPRB,0.96854E-05_JPRB,0.13508E-04_JPRB,0.14454E-04_JPRB,0.44756E-05_JPRB /)  
+KB(:, 5,31, 4) = (/ &
+ & 0.84251E-08_JPRB,0.10101E-04_JPRB,0.14090E-04_JPRB,0.15064E-04_JPRB,0.47643E-05_JPRB /)  
+KB(:, 1,32, 4) = (/ &
+ & 0.78842E-08_JPRB,0.69379E-05_JPRB,0.96378E-05_JPRB,0.10350E-04_JPRB,0.30462E-05_JPRB /)  
+KB(:, 2,32, 4) = (/ &
+ & 0.76058E-08_JPRB,0.73605E-05_JPRB,0.10230E-04_JPRB,0.10964E-04_JPRB,0.32879E-05_JPRB /)  
+KB(:, 3,32, 4) = (/ &
+ & 0.73312E-08_JPRB,0.77685E-05_JPRB,0.10806E-04_JPRB,0.11552E-04_JPRB,0.35258E-05_JPRB /)  
+KB(:, 4,32, 4) = (/ &
+ & 0.70761E-08_JPRB,0.81393E-05_JPRB,0.11329E-04_JPRB,0.12109E-04_JPRB,0.37642E-05_JPRB /)  
+KB(:, 5,32, 4) = (/ &
+ & 0.68375E-08_JPRB,0.84723E-05_JPRB,0.11806E-04_JPRB,0.12582E-04_JPRB,0.40027E-05_JPRB /)  
+KB(:, 1,33, 4) = (/ &
+ & 0.63946E-08_JPRB,0.58484E-05_JPRB,0.81132E-05_JPRB,0.87138E-05_JPRB,0.25722E-05_JPRB /)  
+KB(:, 2,33, 4) = (/ &
+ & 0.61668E-08_JPRB,0.61985E-05_JPRB,0.86152E-05_JPRB,0.92043E-05_JPRB,0.27716E-05_JPRB /)  
+KB(:, 3,33, 4) = (/ &
+ & 0.59460E-08_JPRB,0.65329E-05_JPRB,0.90761E-05_JPRB,0.96914E-05_JPRB,0.29672E-05_JPRB /)  
+KB(:, 4,33, 4) = (/ &
+ & 0.57410E-08_JPRB,0.68349E-05_JPRB,0.94991E-05_JPRB,0.10128E-04_JPRB,0.31649E-05_JPRB /)  
+KB(:, 5,33, 4) = (/ &
+ & 0.55490E-08_JPRB,0.71098E-05_JPRB,0.98972E-05_JPRB,0.10494E-04_JPRB,0.33613E-05_JPRB /)  
+KB(:, 1,34, 4) = (/ &
+ & 0.51931E-08_JPRB,0.49155E-05_JPRB,0.68122E-05_JPRB,0.73003E-05_JPRB,0.21648E-05_JPRB /)  
+KB(:, 2,34, 4) = (/ &
+ & 0.50066E-08_JPRB,0.52108E-05_JPRB,0.72299E-05_JPRB,0.77128E-05_JPRB,0.23280E-05_JPRB /)  
+KB(:, 3,34, 4) = (/ &
+ & 0.48289E-08_JPRB,0.54838E-05_JPRB,0.76076E-05_JPRB,0.81077E-05_JPRB,0.24906E-05_JPRB /)  
+KB(:, 4,34, 4) = (/ &
+ & 0.46636E-08_JPRB,0.57271E-05_JPRB,0.79460E-05_JPRB,0.84494E-05_JPRB,0.26534E-05_JPRB /)  
+KB(:, 5,34, 4) = (/ &
+ & 0.45089E-08_JPRB,0.59543E-05_JPRB,0.82751E-05_JPRB,0.87422E-05_JPRB,0.28159E-05_JPRB /)  
+KB(:, 1,35, 4) = (/ &
+ & 0.42177E-08_JPRB,0.41104E-05_JPRB,0.56914E-05_JPRB,0.60852E-05_JPRB,0.18078E-05_JPRB /)  
+KB(:, 2,35, 4) = (/ &
+ & 0.40795E-08_JPRB,0.43580E-05_JPRB,0.60334E-05_JPRB,0.64274E-05_JPRB,0.19421E-05_JPRB /)  
+KB(:, 3,35, 4) = (/ &
+ & 0.39353E-08_JPRB,0.45814E-05_JPRB,0.63407E-05_JPRB,0.67443E-05_JPRB,0.20767E-05_JPRB /)  
+KB(:, 4,35, 4) = (/ &
+ & 0.38012E-08_JPRB,0.47803E-05_JPRB,0.66196E-05_JPRB,0.70144E-05_JPRB,0.22114E-05_JPRB /)  
+KB(:, 5,35, 4) = (/ &
+ & 0.36756E-08_JPRB,0.49682E-05_JPRB,0.68884E-05_JPRB,0.72539E-05_JPRB,0.23458E-05_JPRB /)  
+KB(:, 1,36, 4) = (/ &
+ & 0.34162E-08_JPRB,0.34141E-05_JPRB,0.47224E-05_JPRB,0.50412E-05_JPRB,0.14965E-05_JPRB /)  
+KB(:, 2,36, 4) = (/ &
+ & 0.33196E-08_JPRB,0.36215E-05_JPRB,0.50037E-05_JPRB,0.53241E-05_JPRB,0.16078E-05_JPRB /)  
+KB(:, 3,36, 4) = (/ &
+ & 0.32195E-08_JPRB,0.38064E-05_JPRB,0.52583E-05_JPRB,0.55817E-05_JPRB,0.17188E-05_JPRB /)  
+KB(:, 4,36, 4) = (/ &
+ & 0.31099E-08_JPRB,0.39715E-05_JPRB,0.54881E-05_JPRB,0.58006E-05_JPRB,0.18307E-05_JPRB /)  
+KB(:, 5,36, 4) = (/ &
+ & 0.30072E-08_JPRB,0.41270E-05_JPRB,0.57065E-05_JPRB,0.59974E-05_JPRB,0.19419E-05_JPRB /)  
+KB(:, 1,37, 4) = (/ &
+ & 0.28008E-08_JPRB,0.28094E-05_JPRB,0.38801E-05_JPRB,0.41393E-05_JPRB,0.12248E-05_JPRB /)  
+KB(:, 2,37, 4) = (/ &
+ & 0.27121E-08_JPRB,0.29836E-05_JPRB,0.41155E-05_JPRB,0.43748E-05_JPRB,0.13168E-05_JPRB /)  
+KB(:, 3,37, 4) = (/ &
+ & 0.26482E-08_JPRB,0.31397E-05_JPRB,0.43282E-05_JPRB,0.45885E-05_JPRB,0.14087E-05_JPRB /)  
+KB(:, 4,37, 4) = (/ &
+ & 0.25576E-08_JPRB,0.32779E-05_JPRB,0.45200E-05_JPRB,0.47706E-05_JPRB,0.15013E-05_JPRB /)  
+KB(:, 5,37, 4) = (/ &
+ & 0.24727E-08_JPRB,0.34082E-05_JPRB,0.47023E-05_JPRB,0.49354E-05_JPRB,0.15935E-05_JPRB /)  
+KB(:, 1,38, 4) = (/ &
+ & 0.22984E-08_JPRB,0.23106E-05_JPRB,0.31856E-05_JPRB,0.33961E-05_JPRB,0.10016E-05_JPRB /)  
+KB(:, 2,38, 4) = (/ &
+ & 0.22220E-08_JPRB,0.24563E-05_JPRB,0.33826E-05_JPRB,0.35915E-05_JPRB,0.10776E-05_JPRB /)  
+KB(:, 3,38, 4) = (/ &
+ & 0.21588E-08_JPRB,0.25882E-05_JPRB,0.35600E-05_JPRB,0.37696E-05_JPRB,0.11538E-05_JPRB /)  
+KB(:, 4,38, 4) = (/ &
+ & 0.21040E-08_JPRB,0.27033E-05_JPRB,0.37199E-05_JPRB,0.39213E-05_JPRB,0.12304E-05_JPRB /)  
+KB(:, 5,38, 4) = (/ &
+ & 0.20339E-08_JPRB,0.28122E-05_JPRB,0.38728E-05_JPRB,0.40597E-05_JPRB,0.13067E-05_JPRB /)  
+KB(:, 1,39, 4) = (/ &
+ & 0.18867E-08_JPRB,0.18990E-05_JPRB,0.26147E-05_JPRB,0.27855E-05_JPRB,0.81895E-06_JPRB /)  
+KB(:, 2,39, 4) = (/ &
+ & 0.18219E-08_JPRB,0.20211E-05_JPRB,0.27789E-05_JPRB,0.29482E-05_JPRB,0.88168E-06_JPRB /)  
+KB(:, 3,39, 4) = (/ &
+ & 0.17671E-08_JPRB,0.21324E-05_JPRB,0.29272E-05_JPRB,0.30962E-05_JPRB,0.94475E-06_JPRB /)  
+KB(:, 4,39, 4) = (/ &
+ & 0.17201E-08_JPRB,0.22287E-05_JPRB,0.30607E-05_JPRB,0.32231E-05_JPRB,0.10080E-05_JPRB /)  
+KB(:, 5,39, 4) = (/ &
+ & 0.16729E-08_JPRB,0.23197E-05_JPRB,0.31885E-05_JPRB,0.33389E-05_JPRB,0.10713E-05_JPRB /)  
+KB(:, 1,40, 4) = (/ &
+ & 0.15567E-08_JPRB,0.15486E-05_JPRB,0.21299E-05_JPRB,0.22697E-05_JPRB,0.66418E-06_JPRB /)  
+KB(:, 2,40, 4) = (/ &
+ & 0.15030E-08_JPRB,0.16525E-05_JPRB,0.22686E-05_JPRB,0.24063E-05_JPRB,0.71591E-06_JPRB /)  
+KB(:, 3,40, 4) = (/ &
+ & 0.14559E-08_JPRB,0.17468E-05_JPRB,0.23938E-05_JPRB,0.25304E-05_JPRB,0.76804E-06_JPRB /)  
+KB(:, 4,40, 4) = (/ &
+ & 0.14147E-08_JPRB,0.18284E-05_JPRB,0.25062E-05_JPRB,0.26377E-05_JPRB,0.82053E-06_JPRB /)  
+KB(:, 5,40, 4) = (/ &
+ & 0.13808E-08_JPRB,0.19051E-05_JPRB,0.26142E-05_JPRB,0.27362E-05_JPRB,0.87282E-06_JPRB /)  
+KB(:, 1,41, 4) = (/ &
+ & 0.12855E-08_JPRB,0.12622E-05_JPRB,0.17326E-05_JPRB,0.18472E-05_JPRB,0.53778E-06_JPRB /)  
+KB(:, 2,41, 4) = (/ &
+ & 0.12414E-08_JPRB,0.13486E-05_JPRB,0.18494E-05_JPRB,0.19612E-05_JPRB,0.58062E-06_JPRB /)  
+KB(:, 3,41, 4) = (/ &
+ & 0.12006E-08_JPRB,0.14290E-05_JPRB,0.19551E-05_JPRB,0.20665E-05_JPRB,0.62365E-06_JPRB /)  
+KB(:, 4,41, 4) = (/ &
+ & 0.11655E-08_JPRB,0.14984E-05_JPRB,0.20506E-05_JPRB,0.21570E-05_JPRB,0.66707E-06_JPRB /)  
+KB(:, 5,41, 4) = (/ &
+ & 0.11366E-08_JPRB,0.15630E-05_JPRB,0.21416E-05_JPRB,0.22404E-05_JPRB,0.71035E-06_JPRB /)  
+KB(:, 1,42, 4) = (/ &
+ & 0.10616E-08_JPRB,0.10273E-05_JPRB,0.14085E-05_JPRB,0.15034E-05_JPRB,0.43514E-06_JPRB /)  
+KB(:, 2,42, 4) = (/ &
+ & 0.10250E-08_JPRB,0.10997E-05_JPRB,0.15070E-05_JPRB,0.15973E-05_JPRB,0.47061E-06_JPRB /)  
+KB(:, 3,42, 4) = (/ &
+ & 0.99030E-09_JPRB,0.11679E-05_JPRB,0.15953E-05_JPRB,0.16861E-05_JPRB,0.50613E-06_JPRB /)  
+KB(:, 4,42, 4) = (/ &
+ & 0.96062E-09_JPRB,0.12272E-05_JPRB,0.16766E-05_JPRB,0.17642E-05_JPRB,0.54216E-06_JPRB /)  
+KB(:, 5,42, 4) = (/ &
+ & 0.93443E-09_JPRB,0.12817E-05_JPRB,0.17529E-05_JPRB,0.18333E-05_JPRB,0.57784E-06_JPRB /)  
+KB(:, 1,43, 4) = (/ &
+ & 0.87883E-09_JPRB,0.83199E-06_JPRB,0.11402E-05_JPRB,0.12168E-05_JPRB,0.35025E-06_JPRB /)  
+KB(:, 2,43, 4) = (/ &
+ & 0.84829E-09_JPRB,0.89254E-06_JPRB,0.12225E-05_JPRB,0.12958E-05_JPRB,0.37960E-06_JPRB /)  
+KB(:, 3,43, 4) = (/ &
+ & 0.81903E-09_JPRB,0.95072E-06_JPRB,0.12966E-05_JPRB,0.13708E-05_JPRB,0.40893E-06_JPRB /)  
+KB(:, 4,43, 4) = (/ &
+ & 0.79369E-09_JPRB,0.10020E-05_JPRB,0.13665E-05_JPRB,0.14379E-05_JPRB,0.43862E-06_JPRB /)  
+KB(:, 5,43, 4) = (/ &
+ & 0.77108E-09_JPRB,0.10478E-05_JPRB,0.14302E-05_JPRB,0.14962E-05_JPRB,0.46817E-06_JPRB /)  
+KB(:, 1,44, 4) = (/ &
+ & 0.72838E-09_JPRB,0.67080E-06_JPRB,0.91962E-06_JPRB,0.98102E-06_JPRB,0.28107E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART18',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,44, 4) = (/ &
+ & 0.70279E-09_JPRB,0.72271E-06_JPRB,0.98853E-06_JPRB,0.10491E-05_JPRB,0.30540E-06_JPRB /)  
+KB(:, 3,44, 4) = (/ &
+ & 0.67858E-09_JPRB,0.77203E-06_JPRB,0.10522E-05_JPRB,0.11122E-05_JPRB,0.32958E-06_JPRB /)  
+KB(:, 4,44, 4) = (/ &
+ & 0.65651E-09_JPRB,0.81625E-06_JPRB,0.11115E-05_JPRB,0.11697E-05_JPRB,0.35407E-06_JPRB /)  
+KB(:, 5,44, 4) = (/ &
+ & 0.63727E-09_JPRB,0.85495E-06_JPRB,0.11651E-05_JPRB,0.12192E-05_JPRB,0.37850E-06_JPRB /)  
+KB(:, 1,45, 4) = (/ &
+ & 0.60379E-09_JPRB,0.54047E-06_JPRB,0.74128E-06_JPRB,0.79100E-06_JPRB,0.22535E-06_JPRB /)  
+KB(:, 2,45, 4) = (/ &
+ & 0.58228E-09_JPRB,0.58429E-06_JPRB,0.79854E-06_JPRB,0.84841E-06_JPRB,0.24548E-06_JPRB /)  
+KB(:, 3,45, 4) = (/ &
+ & 0.56220E-09_JPRB,0.62606E-06_JPRB,0.85283E-06_JPRB,0.90157E-06_JPRB,0.26541E-06_JPRB /)  
+KB(:, 4,45, 4) = (/ &
+ & 0.54320E-09_JPRB,0.66423E-06_JPRB,0.90296E-06_JPRB,0.95015E-06_JPRB,0.28558E-06_JPRB /)  
+KB(:, 5,45, 4) = (/ &
+ & 0.52686E-09_JPRB,0.69719E-06_JPRB,0.94830E-06_JPRB,0.99254E-06_JPRB,0.30580E-06_JPRB /)  
+KB(:, 1,46, 4) = (/ &
+ & 0.50108E-09_JPRB,0.43361E-06_JPRB,0.59554E-06_JPRB,0.63432E-06_JPRB,0.18023E-06_JPRB /)  
+KB(:, 2,46, 4) = (/ &
+ & 0.48291E-09_JPRB,0.47127E-06_JPRB,0.64349E-06_JPRB,0.68510E-06_JPRB,0.19677E-06_JPRB /)  
+KB(:, 3,46, 4) = (/ &
+ & 0.46612E-09_JPRB,0.50621E-06_JPRB,0.68942E-06_JPRB,0.72929E-06_JPRB,0.21325E-06_JPRB /)  
+KB(:, 4,46, 4) = (/ &
+ & 0.45004E-09_JPRB,0.53903E-06_JPRB,0.73169E-06_JPRB,0.77095E-06_JPRB,0.22986E-06_JPRB /)  
+KB(:, 5,46, 4) = (/ &
+ & 0.43600E-09_JPRB,0.56740E-06_JPRB,0.77081E-06_JPRB,0.80714E-06_JPRB,0.24654E-06_JPRB /)  
+KB(:, 1,47, 4) = (/ &
+ & 0.41665E-09_JPRB,0.34614E-06_JPRB,0.47565E-06_JPRB,0.50598E-06_JPRB,0.14345E-06_JPRB /)  
+KB(:, 2,47, 4) = (/ &
+ & 0.40119E-09_JPRB,0.37779E-06_JPRB,0.51642E-06_JPRB,0.55015E-06_JPRB,0.15697E-06_JPRB /)  
+KB(:, 3,47, 4) = (/ &
+ & 0.38702E-09_JPRB,0.40752E-06_JPRB,0.55525E-06_JPRB,0.58759E-06_JPRB,0.17064E-06_JPRB /)  
+KB(:, 4,47, 4) = (/ &
+ & 0.37372E-09_JPRB,0.43563E-06_JPRB,0.59076E-06_JPRB,0.62318E-06_JPRB,0.18430E-06_JPRB /)  
+KB(:, 5,47, 4) = (/ &
+ & 0.36139E-09_JPRB,0.46041E-06_JPRB,0.62474E-06_JPRB,0.65515E-06_JPRB,0.19800E-06_JPRB /)  
+KB(:, 1,48, 4) = (/ &
+ & 0.34658E-09_JPRB,0.27494E-06_JPRB,0.37924E-06_JPRB,0.40349E-06_JPRB,0.11407E-06_JPRB /)  
+KB(:, 2,48, 4) = (/ &
+ & 0.33340E-09_JPRB,0.30243E-06_JPRB,0.41340E-06_JPRB,0.44066E-06_JPRB,0.12508E-06_JPRB /)  
+KB(:, 3,48, 4) = (/ &
+ & 0.32143E-09_JPRB,0.32756E-06_JPRB,0.44635E-06_JPRB,0.47308E-06_JPRB,0.13636E-06_JPRB /)  
+KB(:, 4,48, 4) = (/ &
+ & 0.31032E-09_JPRB,0.35149E-06_JPRB,0.47669E-06_JPRB,0.50309E-06_JPRB,0.14763E-06_JPRB /)  
+KB(:, 5,48, 4) = (/ &
+ & 0.29969E-09_JPRB,0.37323E-06_JPRB,0.50542E-06_JPRB,0.53062E-06_JPRB,0.15892E-06_JPRB /)  
+KB(:, 1,49, 4) = (/ &
+ & 0.28846E-09_JPRB,0.21778E-06_JPRB,0.30168E-06_JPRB,0.32158E-06_JPRB,0.90607E-07_JPRB /)  
+KB(:, 2,49, 4) = (/ &
+ & 0.27716E-09_JPRB,0.24139E-06_JPRB,0.33071E-06_JPRB,0.35214E-06_JPRB,0.99577E-07_JPRB /)  
+KB(:, 3,49, 4) = (/ &
+ & 0.26700E-09_JPRB,0.26304E-06_JPRB,0.35804E-06_JPRB,0.38049E-06_JPRB,0.10881E-06_JPRB /)  
+KB(:, 4,49, 4) = (/ &
+ & 0.25767E-09_JPRB,0.28313E-06_JPRB,0.38394E-06_JPRB,0.40566E-06_JPRB,0.11814E-06_JPRB /)  
+KB(:, 5,49, 4) = (/ &
+ & 0.24875E-09_JPRB,0.30183E-06_JPRB,0.40832E-06_JPRB,0.42906E-06_JPRB,0.12742E-06_JPRB /)  
+KB(:, 1,50, 4) = (/ &
+ & 0.23994E-09_JPRB,0.17276E-06_JPRB,0.24039E-06_JPRB,0.25644E-06_JPRB,0.72124E-07_JPRB /)  
+KB(:, 2,50, 4) = (/ &
+ & 0.23028E-09_JPRB,0.19275E-06_JPRB,0.26429E-06_JPRB,0.28117E-06_JPRB,0.79388E-07_JPRB /)  
+KB(:, 3,50, 4) = (/ &
+ & 0.22162E-09_JPRB,0.21106E-06_JPRB,0.28758E-06_JPRB,0.30606E-06_JPRB,0.86922E-07_JPRB /)  
+KB(:, 4,50, 4) = (/ &
+ & 0.21377E-09_JPRB,0.22807E-06_JPRB,0.30947E-06_JPRB,0.32714E-06_JPRB,0.94628E-07_JPRB /)  
+KB(:, 5,50, 4) = (/ &
+ & 0.20641E-09_JPRB,0.24400E-06_JPRB,0.32962E-06_JPRB,0.34715E-06_JPRB,0.10228E-06_JPRB /)  
+KB(:, 1,51, 4) = (/ &
+ & 0.19960E-09_JPRB,0.13709E-06_JPRB,0.19101E-06_JPRB,0.20407E-06_JPRB,0.57566E-07_JPRB /)  
+KB(:, 2,51, 4) = (/ &
+ & 0.19132E-09_JPRB,0.15352E-06_JPRB,0.21120E-06_JPRB,0.22455E-06_JPRB,0.63308E-07_JPRB /)  
+KB(:, 3,51, 4) = (/ &
+ & 0.18395E-09_JPRB,0.16924E-06_JPRB,0.23068E-06_JPRB,0.24563E-06_JPRB,0.69421E-07_JPRB /)  
+KB(:, 4,51, 4) = (/ &
+ & 0.17732E-09_JPRB,0.18352E-06_JPRB,0.24926E-06_JPRB,0.26383E-06_JPRB,0.75773E-07_JPRB /)  
+KB(:, 5,51, 4) = (/ &
+ & 0.17117E-09_JPRB,0.19715E-06_JPRB,0.26630E-06_JPRB,0.28068E-06_JPRB,0.82097E-07_JPRB /)  
+KB(:, 1,52, 4) = (/ &
+ & 0.16616E-09_JPRB,0.10852E-06_JPRB,0.15191E-06_JPRB,0.16137E-06_JPRB,0.45975E-07_JPRB /)  
+KB(:, 2,52, 4) = (/ &
+ & 0.15901E-09_JPRB,0.12188E-06_JPRB,0.16855E-06_JPRB,0.17943E-06_JPRB,0.50454E-07_JPRB /)  
+KB(:, 3,52, 4) = (/ &
+ & 0.15272E-09_JPRB,0.13535E-06_JPRB,0.18502E-06_JPRB,0.19705E-06_JPRB,0.55424E-07_JPRB /)  
+KB(:, 4,52, 4) = (/ &
+ & 0.14711E-09_JPRB,0.14765E-06_JPRB,0.20042E-06_JPRB,0.21252E-06_JPRB,0.60616E-07_JPRB /)  
+KB(:, 5,52, 4) = (/ &
+ & 0.14194E-09_JPRB,0.15907E-06_JPRB,0.21484E-06_JPRB,0.22673E-06_JPRB,0.65826E-07_JPRB /)  
+KB(:, 1,53, 4) = (/ &
+ & 0.13839E-09_JPRB,0.85704E-07_JPRB,0.12023E-06_JPRB,0.12744E-06_JPRB,0.36523E-07_JPRB /)  
+KB(:, 2,53, 4) = (/ &
+ & 0.13223E-09_JPRB,0.96600E-07_JPRB,0.13438E-06_JPRB,0.14312E-06_JPRB,0.40152E-07_JPRB /)  
+KB(:, 3,53, 4) = (/ &
+ & 0.12684E-09_JPRB,0.10804E-06_JPRB,0.14784E-06_JPRB,0.15735E-06_JPRB,0.44207E-07_JPRB /)  
+KB(:, 4,53, 4) = (/ &
+ & 0.12208E-09_JPRB,0.11851E-06_JPRB,0.16093E-06_JPRB,0.17108E-06_JPRB,0.48435E-07_JPRB /)  
+KB(:, 5,53, 4) = (/ &
+ & 0.11772E-09_JPRB,0.12811E-06_JPRB,0.17313E-06_JPRB,0.18293E-06_JPRB,0.52733E-07_JPRB /)  
+KB(:, 1,54, 4) = (/ &
+ & 0.11516E-09_JPRB,0.67802E-07_JPRB,0.95400E-07_JPRB,0.10065E-06_JPRB,0.29040E-07_JPRB /)  
+KB(:, 2,54, 4) = (/ &
+ & 0.10986E-09_JPRB,0.76927E-07_JPRB,0.10712E-06_JPRB,0.11428E-06_JPRB,0.32044E-07_JPRB /)  
+KB(:, 3,54, 4) = (/ &
+ & 0.10526E-09_JPRB,0.86295E-07_JPRB,0.11833E-06_JPRB,0.12580E-06_JPRB,0.35335E-07_JPRB /)  
+KB(:, 4,54, 4) = (/ &
+ & 0.10122E-09_JPRB,0.95190E-07_JPRB,0.12936E-06_JPRB,0.13763E-06_JPRB,0.38764E-07_JPRB /)  
+KB(:, 5,54, 4) = (/ &
+ & 0.97545E-10_JPRB,0.10324E-06_JPRB,0.13969E-06_JPRB,0.14768E-06_JPRB,0.42312E-07_JPRB /)  
+KB(:, 1,55, 4) = (/ &
+ & 0.95832E-10_JPRB,0.53610E-07_JPRB,0.75981E-07_JPRB,0.79667E-07_JPRB,0.23117E-07_JPRB /)  
+KB(:, 2,55, 4) = (/ &
+ & 0.91281E-10_JPRB,0.61130E-07_JPRB,0.85329E-07_JPRB,0.91005E-07_JPRB,0.25657E-07_JPRB /)  
+KB(:, 3,55, 4) = (/ &
+ & 0.87335E-10_JPRB,0.68825E-07_JPRB,0.94736E-07_JPRB,0.10075E-06_JPRB,0.28264E-07_JPRB /)  
+KB(:, 4,55, 4) = (/ &
+ & 0.83897E-10_JPRB,0.76435E-07_JPRB,0.10396E-06_JPRB,0.11070E-06_JPRB,0.31057E-07_JPRB /)  
+KB(:, 5,55, 4) = (/ &
+ & 0.80810E-10_JPRB,0.83278E-07_JPRB,0.11269E-06_JPRB,0.11928E-06_JPRB,0.33972E-07_JPRB /)  
+KB(:, 1,56, 4) = (/ &
+ & 0.79810E-10_JPRB,0.42322E-07_JPRB,0.60374E-07_JPRB,0.62926E-07_JPRB,0.18404E-07_JPRB /)  
+KB(:, 2,56, 4) = (/ &
+ & 0.75864E-10_JPRB,0.48559E-07_JPRB,0.68039E-07_JPRB,0.72241E-07_JPRB,0.20548E-07_JPRB /)  
+KB(:, 3,56, 4) = (/ &
+ & 0.72485E-10_JPRB,0.54773E-07_JPRB,0.75799E-07_JPRB,0.80757E-07_JPRB,0.22581E-07_JPRB /)  
+KB(:, 4,56, 4) = (/ &
+ & 0.69560E-10_JPRB,0.61224E-07_JPRB,0.83554E-07_JPRB,0.88967E-07_JPRB,0.24859E-07_JPRB /)  
+KB(:, 5,56, 4) = (/ &
+ & 0.66951E-10_JPRB,0.67084E-07_JPRB,0.90797E-07_JPRB,0.96246E-07_JPRB,0.27245E-07_JPRB /)  
+KB(:, 1,57, 4) = (/ &
+ & 0.66524E-10_JPRB,0.33320E-07_JPRB,0.47516E-07_JPRB,0.49541E-07_JPRB,0.14620E-07_JPRB /)  
+KB(:, 2,57, 4) = (/ &
+ & 0.63081E-10_JPRB,0.38443E-07_JPRB,0.54027E-07_JPRB,0.57142E-07_JPRB,0.16370E-07_JPRB /)  
+KB(:, 3,57, 4) = (/ &
+ & 0.60187E-10_JPRB,0.43587E-07_JPRB,0.60611E-07_JPRB,0.64608E-07_JPRB,0.18036E-07_JPRB /)  
+KB(:, 4,57, 4) = (/ &
+ & 0.57689E-10_JPRB,0.48970E-07_JPRB,0.66915E-07_JPRB,0.71233E-07_JPRB,0.19895E-07_JPRB /)  
+KB(:, 5,57, 4) = (/ &
+ & 0.55478E-10_JPRB,0.53925E-07_JPRB,0.73045E-07_JPRB,0.77618E-07_JPRB,0.21831E-07_JPRB /)  
+KB(:, 1,58, 4) = (/ &
+ & 0.55447E-10_JPRB,0.26240E-07_JPRB,0.37435E-07_JPRB,0.38989E-07_JPRB,0.11606E-07_JPRB /)  
+KB(:, 2,58, 4) = (/ &
+ & 0.52442E-10_JPRB,0.30460E-07_JPRB,0.42955E-07_JPRB,0.45233E-07_JPRB,0.13047E-07_JPRB /)  
+KB(:, 3,58, 4) = (/ &
+ & 0.49962E-10_JPRB,0.34761E-07_JPRB,0.48418E-07_JPRB,0.51680E-07_JPRB,0.14431E-07_JPRB /)  
+KB(:, 4,58, 4) = (/ &
+ & 0.47826E-10_JPRB,0.39152E-07_JPRB,0.53626E-07_JPRB,0.57047E-07_JPRB,0.15934E-07_JPRB /)  
+KB(:, 5,58, 4) = (/ &
+ & 0.45954E-10_JPRB,0.43380E-07_JPRB,0.58786E-07_JPRB,0.62538E-07_JPRB,0.17511E-07_JPRB /)  
+KB(:, 1,59, 4) = (/ &
+ & 0.45740E-10_JPRB,0.21248E-07_JPRB,0.30261E-07_JPRB,0.31577E-07_JPRB,0.94221E-08_JPRB /)  
+KB(:, 2,59, 4) = (/ &
+ & 0.43210E-10_JPRB,0.24730E-07_JPRB,0.34948E-07_JPRB,0.36722E-07_JPRB,0.10608E-07_JPRB /)  
+KB(:, 3,59, 4) = (/ &
+ & 0.41141E-10_JPRB,0.28288E-07_JPRB,0.39410E-07_JPRB,0.42052E-07_JPRB,0.11754E-07_JPRB /)  
+KB(:, 4,59, 4) = (/ &
+ & 0.39361E-10_JPRB,0.31904E-07_JPRB,0.43740E-07_JPRB,0.46527E-07_JPRB,0.12986E-07_JPRB /)  
+KB(:, 5,59, 4) = (/ &
+ & 0.37805E-10_JPRB,0.35442E-07_JPRB,0.48020E-07_JPRB,0.51083E-07_JPRB,0.14278E-07_JPRB /)  
+KB(:, 1,13, 5) = (/ &
+ & 0.79045E-05_JPRB,0.58512E-03_JPRB,0.80967E-03_JPRB,0.88578E-03_JPRB,0.34824E-03_JPRB /)  
+KB(:, 2,13, 5) = (/ &
+ & 0.92807E-05_JPRB,0.61818E-03_JPRB,0.86083E-03_JPRB,0.92437E-03_JPRB,0.37870E-03_JPRB /)  
+KB(:, 3,13, 5) = (/ &
+ & 0.10620E-04_JPRB,0.65025E-03_JPRB,0.90617E-03_JPRB,0.96290E-03_JPRB,0.40639E-03_JPRB /)  
+KB(:, 4,13, 5) = (/ &
+ & 0.11847E-04_JPRB,0.68086E-03_JPRB,0.94767E-03_JPRB,0.99815E-03_JPRB,0.43149E-03_JPRB /)  
+KB(:, 5,13, 5) = (/ &
+ & 0.12897E-04_JPRB,0.70941E-03_JPRB,0.98426E-03_JPRB,0.10296E-02_JPRB,0.45459E-03_JPRB /)  
+KB(:, 1,14, 5) = (/ &
+ & 0.65683E-05_JPRB,0.48798E-03_JPRB,0.67570E-03_JPRB,0.73755E-03_JPRB,0.29172E-03_JPRB /)  
+KB(:, 2,14, 5) = (/ &
+ & 0.76957E-05_JPRB,0.51555E-03_JPRB,0.71856E-03_JPRB,0.76978E-03_JPRB,0.31709E-03_JPRB /)  
+KB(:, 3,14, 5) = (/ &
+ & 0.87852E-05_JPRB,0.54243E-03_JPRB,0.75604E-03_JPRB,0.80142E-03_JPRB,0.34064E-03_JPRB /)  
+KB(:, 4,14, 5) = (/ &
+ & 0.97622E-05_JPRB,0.56817E-03_JPRB,0.79038E-03_JPRB,0.83091E-03_JPRB,0.36095E-03_JPRB /)  
+KB(:, 5,14, 5) = (/ &
+ & 0.10614E-04_JPRB,0.59208E-03_JPRB,0.82018E-03_JPRB,0.85691E-03_JPRB,0.38095E-03_JPRB /)  
+KB(:, 1,15, 5) = (/ &
+ & 0.54643E-05_JPRB,0.40660E-03_JPRB,0.56371E-03_JPRB,0.61286E-03_JPRB,0.24435E-03_JPRB /)  
+KB(:, 2,15, 5) = (/ &
+ & 0.63883E-05_JPRB,0.42973E-03_JPRB,0.59914E-03_JPRB,0.64093E-03_JPRB,0.26475E-03_JPRB /)  
+KB(:, 3,15, 5) = (/ &
+ & 0.72593E-05_JPRB,0.45218E-03_JPRB,0.63004E-03_JPRB,0.66659E-03_JPRB,0.28486E-03_JPRB /)  
+KB(:, 4,15, 5) = (/ &
+ & 0.80526E-05_JPRB,0.47373E-03_JPRB,0.65847E-03_JPRB,0.69128E-03_JPRB,0.30200E-03_JPRB /)  
+KB(:, 5,15, 5) = (/ &
+ & 0.87364E-05_JPRB,0.49393E-03_JPRB,0.68318E-03_JPRB,0.71321E-03_JPRB,0.31930E-03_JPRB /)  
+KB(:, 1,16, 5) = (/ &
+ & 0.45482E-05_JPRB,0.33872E-03_JPRB,0.47003E-03_JPRB,0.50920E-03_JPRB,0.20473E-03_JPRB /)  
+KB(:, 2,16, 5) = (/ &
+ & 0.52893E-05_JPRB,0.35785E-03_JPRB,0.49898E-03_JPRB,0.53306E-03_JPRB,0.22171E-03_JPRB /)  
+KB(:, 3,16, 5) = (/ &
+ & 0.59989E-05_JPRB,0.37673E-03_JPRB,0.52467E-03_JPRB,0.55461E-03_JPRB,0.23803E-03_JPRB /)  
+KB(:, 4,16, 5) = (/ &
+ & 0.66426E-05_JPRB,0.39470E-03_JPRB,0.54827E-03_JPRB,0.57515E-03_JPRB,0.25244E-03_JPRB /)  
+KB(:, 5,16, 5) = (/ &
+ & 0.71759E-05_JPRB,0.41193E-03_JPRB,0.56909E-03_JPRB,0.59361E-03_JPRB,0.26773E-03_JPRB /)  
+KB(:, 1,17, 5) = (/ &
+ & 0.37690E-05_JPRB,0.28177E-03_JPRB,0.39153E-03_JPRB,0.42265E-03_JPRB,0.17155E-03_JPRB /)  
+KB(:, 2,17, 5) = (/ &
+ & 0.43790E-05_JPRB,0.29778E-03_JPRB,0.41535E-03_JPRB,0.44288E-03_JPRB,0.18563E-03_JPRB /)  
+KB(:, 3,17, 5) = (/ &
+ & 0.49545E-05_JPRB,0.31371E-03_JPRB,0.43664E-03_JPRB,0.46090E-03_JPRB,0.19908E-03_JPRB /)  
+KB(:, 4,17, 5) = (/ &
+ & 0.54563E-05_JPRB,0.32886E-03_JPRB,0.45637E-03_JPRB,0.47854E-03_JPRB,0.21097E-03_JPRB /)  
+KB(:, 5,17, 5) = (/ &
+ & 0.58879E-05_JPRB,0.34359E-03_JPRB,0.47416E-03_JPRB,0.49387E-03_JPRB,0.22440E-03_JPRB /)  
+KB(:, 1,18, 5) = (/ &
+ & 0.31260E-05_JPRB,0.23432E-03_JPRB,0.32596E-03_JPRB,0.35082E-03_JPRB,0.14348E-03_JPRB /)  
+KB(:, 2,18, 5) = (/ &
+ & 0.36185E-05_JPRB,0.24786E-03_JPRB,0.34561E-03_JPRB,0.36765E-03_JPRB,0.15546E-03_JPRB /)  
+KB(:, 3,18, 5) = (/ &
+ & 0.40732E-05_JPRB,0.26120E-03_JPRB,0.36343E-03_JPRB,0.38325E-03_JPRB,0.16623E-03_JPRB /)  
+KB(:, 4,18, 5) = (/ &
+ & 0.44839E-05_JPRB,0.27403E-03_JPRB,0.37997E-03_JPRB,0.39811E-03_JPRB,0.17659E-03_JPRB /)  
+KB(:, 5,18, 5) = (/ &
+ & 0.48304E-05_JPRB,0.28674E-03_JPRB,0.39513E-03_JPRB,0.41114E-03_JPRB,0.18813E-03_JPRB /)  
+KB(:, 1,19, 5) = (/ &
+ & 0.25853E-05_JPRB,0.19483E-03_JPRB,0.27128E-03_JPRB,0.29126E-03_JPRB,0.11969E-03_JPRB /)  
+KB(:, 2,19, 5) = (/ &
+ & 0.29834E-05_JPRB,0.20623E-03_JPRB,0.28749E-03_JPRB,0.30541E-03_JPRB,0.12978E-03_JPRB /)  
+KB(:, 3,19, 5) = (/ &
+ & 0.33546E-05_JPRB,0.21750E-03_JPRB,0.30267E-03_JPRB,0.31871E-03_JPRB,0.13874E-03_JPRB /)  
+KB(:, 4,19, 5) = (/ &
+ & 0.36863E-05_JPRB,0.22842E-03_JPRB,0.31656E-03_JPRB,0.33115E-03_JPRB,0.14789E-03_JPRB /)  
+KB(:, 5,19, 5) = (/ &
+ & 0.39634E-05_JPRB,0.23942E-03_JPRB,0.32944E-03_JPRB,0.34220E-03_JPRB,0.15742E-03_JPRB /)  
+KB(:, 1,20, 5) = (/ &
+ & 0.21486E-05_JPRB,0.16221E-03_JPRB,0.22609E-03_JPRB,0.24236E-03_JPRB,0.10014E-03_JPRB /)  
+KB(:, 2,20, 5) = (/ &
+ & 0.24735E-05_JPRB,0.17178E-03_JPRB,0.23949E-03_JPRB,0.25399E-03_JPRB,0.10857E-03_JPRB /)  
+KB(:, 3,20, 5) = (/ &
+ & 0.27744E-05_JPRB,0.18136E-03_JPRB,0.25226E-03_JPRB,0.26535E-03_JPRB,0.11604E-03_JPRB /)  
+KB(:, 4,20, 5) = (/ &
+ & 0.30414E-05_JPRB,0.19076E-03_JPRB,0.26397E-03_JPRB,0.27566E-03_JPRB,0.12398E-03_JPRB /)  
+KB(:, 5,20, 5) = (/ &
+ & 0.32610E-05_JPRB,0.20019E-03_JPRB,0.27488E-03_JPRB,0.28510E-03_JPRB,0.13199E-03_JPRB /)  
+KB(:, 1,21, 5) = (/ &
+ & 0.17877E-05_JPRB,0.13507E-03_JPRB,0.18845E-03_JPRB,0.20163E-03_JPRB,0.83879E-04_JPRB /)  
+KB(:, 2,21, 5) = (/ &
+ & 0.20518E-05_JPRB,0.14319E-03_JPRB,0.19968E-03_JPRB,0.21134E-03_JPRB,0.90858E-04_JPRB /)  
+KB(:, 3,21, 5) = (/ &
+ & 0.22953E-05_JPRB,0.15137E-03_JPRB,0.21038E-03_JPRB,0.22094E-03_JPRB,0.97098E-04_JPRB /)  
+KB(:, 4,21, 5) = (/ &
+ & 0.25098E-05_JPRB,0.15947E-03_JPRB,0.22019E-03_JPRB,0.22948E-03_JPRB,0.10402E-03_JPRB /)  
+KB(:, 5,21, 5) = (/ &
+ & 0.26830E-05_JPRB,0.16749E-03_JPRB,0.22950E-03_JPRB,0.23761E-03_JPRB,0.11069E-03_JPRB /)  
+KB(:, 1,22, 5) = (/ &
+ & 0.15022E-05_JPRB,0.11297E-03_JPRB,0.15773E-03_JPRB,0.16819E-03_JPRB,0.70808E-04_JPRB /)  
+KB(:, 2,22, 5) = (/ &
+ & 0.17157E-05_JPRB,0.11998E-03_JPRB,0.16714E-03_JPRB,0.17644E-03_JPRB,0.76345E-04_JPRB /)  
+KB(:, 3,22, 5) = (/ &
+ & 0.19111E-05_JPRB,0.12690E-03_JPRB,0.17611E-03_JPRB,0.18454E-03_JPRB,0.81804E-04_JPRB /)  
+KB(:, 4,22, 5) = (/ &
+ & 0.20812E-05_JPRB,0.13385E-03_JPRB,0.18425E-03_JPRB,0.19164E-03_JPRB,0.87591E-04_JPRB /)  
+KB(:, 5,22, 5) = (/ &
+ & 0.22144E-05_JPRB,0.14066E-03_JPRB,0.19235E-03_JPRB,0.19867E-03_JPRB,0.93228E-04_JPRB /)  
+KB(:, 1,23, 5) = (/ &
+ & 0.12621E-05_JPRB,0.94681E-04_JPRB,0.13210E-03_JPRB,0.14032E-03_JPRB,0.59630E-04_JPRB /)  
+KB(:, 2,23, 5) = (/ &
+ & 0.14346E-05_JPRB,0.10061E-03_JPRB,0.14009E-03_JPRB,0.14751E-03_JPRB,0.64142E-04_JPRB /)  
+KB(:, 3,23, 5) = (/ &
+ & 0.15908E-05_JPRB,0.10655E-03_JPRB,0.14749E-03_JPRB,0.15413E-03_JPRB,0.68988E-04_JPRB /)  
+KB(:, 4,23, 5) = (/ &
+ & 0.17253E-05_JPRB,0.11246E-03_JPRB,0.15437E-03_JPRB,0.16013E-03_JPRB,0.73893E-04_JPRB /)  
+KB(:, 5,23, 5) = (/ &
+ & 0.18272E-05_JPRB,0.11825E-03_JPRB,0.16130E-03_JPRB,0.16627E-03_JPRB,0.78649E-04_JPRB /)  
+KB(:, 1,24, 5) = (/ &
+ & 0.10611E-05_JPRB,0.79419E-04_JPRB,0.11079E-03_JPRB,0.11736E-03_JPRB,0.50244E-04_JPRB /)  
+KB(:, 2,24, 5) = (/ &
+ & 0.11996E-05_JPRB,0.84486E-04_JPRB,0.11749E-03_JPRB,0.12345E-03_JPRB,0.54054E-04_JPRB /)  
+KB(:, 3,24, 5) = (/ &
+ & 0.13241E-05_JPRB,0.89565E-04_JPRB,0.12364E-03_JPRB,0.12883E-03_JPRB,0.58259E-04_JPRB /)  
+KB(:, 4,24, 5) = (/ &
+ & 0.14300E-05_JPRB,0.94592E-04_JPRB,0.12949E-03_JPRB,0.13406E-03_JPRB,0.62300E-04_JPRB /)  
+KB(:, 5,24, 5) = (/ &
+ & 0.15070E-05_JPRB,0.99545E-04_JPRB,0.13538E-03_JPRB,0.13928E-03_JPRB,0.66485E-04_JPRB /)  
+KB(:, 1,25, 5) = (/ &
+ & 0.89248E-06_JPRB,0.66757E-04_JPRB,0.93043E-04_JPRB,0.98269E-04_JPRB,0.42396E-04_JPRB /)  
+KB(:, 2,25, 5) = (/ &
+ & 0.10034E-05_JPRB,0.71082E-04_JPRB,0.98652E-04_JPRB,0.10332E-03_JPRB,0.45719E-04_JPRB /)  
+KB(:, 3,25, 5) = (/ &
+ & 0.11024E-05_JPRB,0.75404E-04_JPRB,0.10375E-03_JPRB,0.10782E-03_JPRB,0.49228E-04_JPRB /)  
+KB(:, 4,25, 5) = (/ &
+ & 0.11835E-05_JPRB,0.79694E-04_JPRB,0.10882E-03_JPRB,0.11234E-03_JPRB,0.52649E-04_JPRB /)  
+KB(:, 5,25, 5) = (/ &
+ & 0.12406E-05_JPRB,0.83915E-04_JPRB,0.11376E-03_JPRB,0.11677E-03_JPRB,0.56264E-04_JPRB /)  
+KB(:, 1,26, 5) = (/ &
+ & 0.75147E-06_JPRB,0.56248E-04_JPRB,0.78291E-04_JPRB,0.82441E-04_JPRB,0.35781E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART19',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,26, 5) = (/ &
+ & 0.84025E-06_JPRB,0.59929E-04_JPRB,0.82917E-04_JPRB,0.86562E-04_JPRB,0.38715E-04_JPRB /)  
+KB(:, 3,26, 5) = (/ &
+ & 0.91728E-06_JPRB,0.63618E-04_JPRB,0.87231E-04_JPRB,0.90442E-04_JPRB,0.41682E-04_JPRB /)  
+KB(:, 4,26, 5) = (/ &
+ & 0.97947E-06_JPRB,0.67285E-04_JPRB,0.91606E-04_JPRB,0.94311E-04_JPRB,0.44610E-04_JPRB /)  
+KB(:, 5,26, 5) = (/ &
+ & 0.10222E-05_JPRB,0.70879E-04_JPRB,0.95759E-04_JPRB,0.97954E-04_JPRB,0.47678E-04_JPRB /)  
+KB(:, 1,27, 5) = (/ &
+ & 0.63228E-06_JPRB,0.47448E-04_JPRB,0.65926E-04_JPRB,0.69211E-04_JPRB,0.30312E-04_JPRB /)  
+KB(:, 2,27, 5) = (/ &
+ & 0.70187E-06_JPRB,0.50583E-04_JPRB,0.69752E-04_JPRB,0.72622E-04_JPRB,0.32844E-04_JPRB /)  
+KB(:, 3,27, 5) = (/ &
+ & 0.76263E-06_JPRB,0.53723E-04_JPRB,0.73431E-04_JPRB,0.75943E-04_JPRB,0.35283E-04_JPRB /)  
+KB(:, 4,27, 5) = (/ &
+ & 0.80975E-06_JPRB,0.56884E-04_JPRB,0.77139E-04_JPRB,0.79235E-04_JPRB,0.37837E-04_JPRB /)  
+KB(:, 5,27, 5) = (/ &
+ & 0.84099E-06_JPRB,0.59937E-04_JPRB,0.80670E-04_JPRB,0.82198E-04_JPRB,0.40398E-04_JPRB /)  
+KB(:, 1,28, 5) = (/ &
+ & 0.53062E-06_JPRB,0.40054E-04_JPRB,0.55536E-04_JPRB,0.58105E-04_JPRB,0.25683E-04_JPRB /)  
+KB(:, 2,28, 5) = (/ &
+ & 0.58581E-06_JPRB,0.42748E-04_JPRB,0.58719E-04_JPRB,0.60988E-04_JPRB,0.27829E-04_JPRB /)  
+KB(:, 3,28, 5) = (/ &
+ & 0.63283E-06_JPRB,0.45445E-04_JPRB,0.61927E-04_JPRB,0.63808E-04_JPRB,0.29914E-04_JPRB /)  
+KB(:, 4,28, 5) = (/ &
+ & 0.66841E-06_JPRB,0.48141E-04_JPRB,0.65033E-04_JPRB,0.66567E-04_JPRB,0.32101E-04_JPRB /)  
+KB(:, 5,28, 5) = (/ &
+ & 0.69132E-06_JPRB,0.50744E-04_JPRB,0.68002E-04_JPRB,0.69024E-04_JPRB,0.34196E-04_JPRB /)  
+KB(:, 1,29, 5) = (/ &
+ & 0.44482E-06_JPRB,0.33876E-04_JPRB,0.46813E-04_JPRB,0.48820E-04_JPRB,0.21822E-04_JPRB /)  
+KB(:, 2,29, 5) = (/ &
+ & 0.48830E-06_JPRB,0.36173E-04_JPRB,0.49534E-04_JPRB,0.51267E-04_JPRB,0.23598E-04_JPRB /)  
+KB(:, 3,29, 5) = (/ &
+ & 0.52520E-06_JPRB,0.38507E-04_JPRB,0.52264E-04_JPRB,0.53700E-04_JPRB,0.25407E-04_JPRB /)  
+KB(:, 4,29, 5) = (/ &
+ & 0.55142E-06_JPRB,0.40790E-04_JPRB,0.54879E-04_JPRB,0.55934E-04_JPRB,0.27233E-04_JPRB /)  
+KB(:, 5,29, 5) = (/ &
+ & 0.56821E-06_JPRB,0.43005E-04_JPRB,0.57374E-04_JPRB,0.57995E-04_JPRB,0.28939E-04_JPRB /)  
+KB(:, 1,30, 5) = (/ &
+ & 0.37240E-06_JPRB,0.28688E-04_JPRB,0.39498E-04_JPRB,0.41082E-04_JPRB,0.18542E-04_JPRB /)  
+KB(:, 2,30, 5) = (/ &
+ & 0.40697E-06_JPRB,0.30662E-04_JPRB,0.41832E-04_JPRB,0.43139E-04_JPRB,0.20037E-04_JPRB /)  
+KB(:, 3,30, 5) = (/ &
+ & 0.43518E-06_JPRB,0.32657E-04_JPRB,0.44137E-04_JPRB,0.45198E-04_JPRB,0.21592E-04_JPRB /)  
+KB(:, 4,30, 5) = (/ &
+ & 0.45459E-06_JPRB,0.34600E-04_JPRB,0.46342E-04_JPRB,0.47030E-04_JPRB,0.23099E-04_JPRB /)  
+KB(:, 5,30, 5) = (/ &
+ & 0.46674E-06_JPRB,0.36468E-04_JPRB,0.48427E-04_JPRB,0.48752E-04_JPRB,0.24524E-04_JPRB /)  
+KB(:, 1,31, 5) = (/ &
+ & 0.31167E-06_JPRB,0.24328E-04_JPRB,0.33365E-04_JPRB,0.34577E-04_JPRB,0.15775E-04_JPRB /)  
+KB(:, 2,31, 5) = (/ &
+ & 0.33880E-06_JPRB,0.26033E-04_JPRB,0.35376E-04_JPRB,0.36343E-04_JPRB,0.17037E-04_JPRB /)  
+KB(:, 3,31, 5) = (/ &
+ & 0.36022E-06_JPRB,0.27728E-04_JPRB,0.37306E-04_JPRB,0.38025E-04_JPRB,0.18334E-04_JPRB /)  
+KB(:, 4,31, 5) = (/ &
+ & 0.37443E-06_JPRB,0.29381E-04_JPRB,0.39153E-04_JPRB,0.39551E-04_JPRB,0.19559E-04_JPRB /)  
+KB(:, 5,31, 5) = (/ &
+ & 0.38304E-06_JPRB,0.30940E-04_JPRB,0.40888E-04_JPRB,0.41012E-04_JPRB,0.20735E-04_JPRB /)  
+KB(:, 1,32, 5) = (/ &
+ & 0.26065E-06_JPRB,0.20666E-04_JPRB,0.28226E-04_JPRB,0.29128E-04_JPRB,0.13403E-04_JPRB /)  
+KB(:, 2,32, 5) = (/ &
+ & 0.28179E-06_JPRB,0.22130E-04_JPRB,0.29934E-04_JPRB,0.30642E-04_JPRB,0.14495E-04_JPRB /)  
+KB(:, 3,32, 5) = (/ &
+ & 0.29791E-06_JPRB,0.23572E-04_JPRB,0.31554E-04_JPRB,0.32005E-04_JPRB,0.15576E-04_JPRB /)  
+KB(:, 4,32, 5) = (/ &
+ & 0.30813E-06_JPRB,0.24963E-04_JPRB,0.33101E-04_JPRB,0.33278E-04_JPRB,0.16582E-04_JPRB /)  
+KB(:, 5,32, 5) = (/ &
+ & 0.31412E-06_JPRB,0.26261E-04_JPRB,0.34510E-04_JPRB,0.34497E-04_JPRB,0.17533E-04_JPRB /)  
+KB(:, 1,33, 5) = (/ &
+ & 0.21768E-06_JPRB,0.17581E-04_JPRB,0.23903E-04_JPRB,0.24558E-04_JPRB,0.11405E-04_JPRB /)  
+KB(:, 2,33, 5) = (/ &
+ & 0.23409E-06_JPRB,0.18827E-04_JPRB,0.25333E-04_JPRB,0.25812E-04_JPRB,0.12331E-04_JPRB /)  
+KB(:, 3,33, 5) = (/ &
+ & 0.24596E-06_JPRB,0.20053E-04_JPRB,0.26696E-04_JPRB,0.26942E-04_JPRB,0.13200E-04_JPRB /)  
+KB(:, 4,33, 5) = (/ &
+ & 0.25338E-06_JPRB,0.21211E-04_JPRB,0.27978E-04_JPRB,0.28012E-04_JPRB,0.14037E-04_JPRB /)  
+KB(:, 5,33, 5) = (/ &
+ & 0.25735E-06_JPRB,0.22292E-04_JPRB,0.29113E-04_JPRB,0.29019E-04_JPRB,0.14789E-04_JPRB /)  
+KB(:, 1,34, 5) = (/ &
+ & 0.18111E-06_JPRB,0.14933E-04_JPRB,0.20221E-04_JPRB,0.20691E-04_JPRB,0.96853E-05_JPRB /)  
+KB(:, 2,34, 5) = (/ &
+ & 0.19373E-06_JPRB,0.15993E-04_JPRB,0.21413E-04_JPRB,0.21708E-04_JPRB,0.10459E-04_JPRB /)  
+KB(:, 3,34, 5) = (/ &
+ & 0.20262E-06_JPRB,0.17025E-04_JPRB,0.22551E-04_JPRB,0.22651E-04_JPRB,0.11170E-04_JPRB /)  
+KB(:, 4,34, 5) = (/ &
+ & 0.20802E-06_JPRB,0.17992E-04_JPRB,0.23603E-04_JPRB,0.23540E-04_JPRB,0.11847E-04_JPRB /)  
+KB(:, 5,34, 5) = (/ &
+ & 0.21068E-06_JPRB,0.18892E-04_JPRB,0.24522E-04_JPRB,0.24370E-04_JPRB,0.12444E-04_JPRB /)  
+KB(:, 1,35, 5) = (/ &
+ & 0.14940E-06_JPRB,0.12604E-04_JPRB,0.17001E-04_JPRB,0.17339E-04_JPRB,0.81630E-05_JPRB /)  
+KB(:, 2,35, 5) = (/ &
+ & 0.15934E-06_JPRB,0.13505E-04_JPRB,0.18008E-04_JPRB,0.18183E-04_JPRB,0.87890E-05_JPRB /)  
+KB(:, 3,35, 5) = (/ &
+ & 0.16626E-06_JPRB,0.14374E-04_JPRB,0.18963E-04_JPRB,0.18976E-04_JPRB,0.93838E-05_JPRB /)  
+KB(:, 4,35, 5) = (/ &
+ & 0.17040E-06_JPRB,0.15187E-04_JPRB,0.19824E-04_JPRB,0.19720E-04_JPRB,0.99229E-05_JPRB /)  
+KB(:, 5,35, 5) = (/ &
+ & 0.17229E-06_JPRB,0.15939E-04_JPRB,0.20582E-04_JPRB,0.20394E-04_JPRB,0.10412E-04_JPRB /)  
+KB(:, 1,36, 5) = (/ &
+ & 0.12224E-06_JPRB,0.10560E-04_JPRB,0.14203E-04_JPRB,0.14447E-04_JPRB,0.68196E-05_JPRB /)  
+KB(:, 2,36, 5) = (/ &
+ & 0.13030E-06_JPRB,0.11326E-04_JPRB,0.15055E-04_JPRB,0.15156E-04_JPRB,0.73321E-05_JPRB /)  
+KB(:, 3,36, 5) = (/ &
+ & 0.13590E-06_JPRB,0.12062E-04_JPRB,0.15856E-04_JPRB,0.15823E-04_JPRB,0.78230E-05_JPRB /)  
+KB(:, 4,36, 5) = (/ &
+ & 0.13929E-06_JPRB,0.12750E-04_JPRB,0.16573E-04_JPRB,0.16449E-04_JPRB,0.82632E-05_JPRB /)  
+KB(:, 5,36, 5) = (/ &
+ & 0.14081E-06_JPRB,0.13384E-04_JPRB,0.17208E-04_JPRB,0.17006E-04_JPRB,0.86656E-05_JPRB /)  
+KB(:, 1,37, 5) = (/ &
+ & 0.98979E-07_JPRB,0.87500E-05_JPRB,0.11755E-04_JPRB,0.11943E-04_JPRB,0.56269E-05_JPRB /)  
+KB(:, 2,37, 5) = (/ &
+ & 0.10583E-06_JPRB,0.94035E-05_JPRB,0.12480E-04_JPRB,0.12544E-04_JPRB,0.60528E-05_JPRB /)  
+KB(:, 3,37, 5) = (/ &
+ & 0.11068E-06_JPRB,0.10031E-04_JPRB,0.13161E-04_JPRB,0.13110E-04_JPRB,0.64604E-05_JPRB /)  
+KB(:, 4,37, 5) = (/ &
+ & 0.11365E-06_JPRB,0.10619E-04_JPRB,0.13767E-04_JPRB,0.13642E-04_JPRB,0.68253E-05_JPRB /)  
+KB(:, 5,37, 5) = (/ &
+ & 0.11510E-06_JPRB,0.11162E-04_JPRB,0.14306E-04_JPRB,0.14108E-04_JPRB,0.71615E-05_JPRB /)  
+KB(:, 1,38, 5) = (/ &
+ & 0.80050E-07_JPRB,0.72436E-05_JPRB,0.97225E-05_JPRB,0.98657E-05_JPRB,0.46375E-05_JPRB /)  
+KB(:, 2,38, 5) = (/ &
+ & 0.85886E-07_JPRB,0.78006E-05_JPRB,0.10338E-04_JPRB,0.10378E-04_JPRB,0.49919E-05_JPRB /)  
+KB(:, 3,38, 5) = (/ &
+ & 0.90108E-07_JPRB,0.83355E-05_JPRB,0.10916E-04_JPRB,0.10856E-04_JPRB,0.53303E-05_JPRB /)  
+KB(:, 4,38, 5) = (/ &
+ & 0.92690E-07_JPRB,0.88380E-05_JPRB,0.11429E-04_JPRB,0.11306E-04_JPRB,0.56349E-05_JPRB /)  
+KB(:, 5,38, 5) = (/ &
+ & 0.94046E-07_JPRB,0.93019E-05_JPRB,0.11885E-04_JPRB,0.11696E-04_JPRB,0.59152E-05_JPRB /)  
+KB(:, 1,39, 5) = (/ &
+ & 0.64720E-07_JPRB,0.59955E-05_JPRB,0.80389E-05_JPRB,0.81488E-05_JPRB,0.38192E-05_JPRB /)  
+KB(:, 2,39, 5) = (/ &
+ & 0.69663E-07_JPRB,0.64699E-05_JPRB,0.85613E-05_JPRB,0.85818E-05_JPRB,0.41159E-05_JPRB /)  
+KB(:, 3,39, 5) = (/ &
+ & 0.73305E-07_JPRB,0.69246E-05_JPRB,0.90506E-05_JPRB,0.89861E-05_JPRB,0.43968E-05_JPRB /)  
+KB(:, 4,39, 5) = (/ &
+ & 0.75588E-07_JPRB,0.73530E-05_JPRB,0.94857E-05_JPRB,0.93637E-05_JPRB,0.46505E-05_JPRB /)  
+KB(:, 5,39, 5) = (/ &
+ & 0.76825E-07_JPRB,0.77492E-05_JPRB,0.98708E-05_JPRB,0.96898E-05_JPRB,0.48841E-05_JPRB /)  
+KB(:, 1,40, 5) = (/ &
+ & 0.51871E-07_JPRB,0.49191E-05_JPRB,0.65994E-05_JPRB,0.66890E-05_JPRB,0.31186E-05_JPRB /)  
+KB(:, 2,40, 5) = (/ &
+ & 0.56127E-07_JPRB,0.53227E-05_JPRB,0.70435E-05_JPRB,0.70578E-05_JPRB,0.33678E-05_JPRB /)  
+KB(:, 3,40, 5) = (/ &
+ & 0.59395E-07_JPRB,0.57124E-05_JPRB,0.74609E-05_JPRB,0.74018E-05_JPRB,0.36025E-05_JPRB /)  
+KB(:, 4,40, 5) = (/ &
+ & 0.61501E-07_JPRB,0.60790E-05_JPRB,0.78333E-05_JPRB,0.77210E-05_JPRB,0.38164E-05_JPRB /)  
+KB(:, 5,40, 5) = (/ &
+ & 0.62710E-07_JPRB,0.64194E-05_JPRB,0.81613E-05_JPRB,0.79980E-05_JPRB,0.40122E-05_JPRB /)  
+KB(:, 1,41, 5) = (/ &
+ & 0.41471E-07_JPRB,0.40276E-05_JPRB,0.54076E-05_JPRB,0.54815E-05_JPRB,0.25402E-05_JPRB /)  
+KB(:, 2,41, 5) = (/ &
+ & 0.45127E-07_JPRB,0.43711E-05_JPRB,0.57847E-05_JPRB,0.57971E-05_JPRB,0.27507E-05_JPRB /)  
+KB(:, 3,41, 5) = (/ &
+ & 0.48018E-07_JPRB,0.47040E-05_JPRB,0.61407E-05_JPRB,0.60883E-05_JPRB,0.29479E-05_JPRB /)  
+KB(:, 4,41, 5) = (/ &
+ & 0.49983E-07_JPRB,0.50177E-05_JPRB,0.64595E-05_JPRB,0.63587E-05_JPRB,0.31286E-05_JPRB /)  
+KB(:, 5,41, 5) = (/ &
+ & 0.51153E-07_JPRB,0.53098E-05_JPRB,0.67389E-05_JPRB,0.65950E-05_JPRB,0.32928E-05_JPRB /)  
+KB(:, 1,42, 5) = (/ &
+ & 0.33108E-07_JPRB,0.32945E-05_JPRB,0.44261E-05_JPRB,0.44871E-05_JPRB,0.20674E-05_JPRB /)  
+KB(:, 2,42, 5) = (/ &
+ & 0.36228E-07_JPRB,0.35861E-05_JPRB,0.47462E-05_JPRB,0.47571E-05_JPRB,0.22452E-05_JPRB /)  
+KB(:, 3,42, 5) = (/ &
+ & 0.38776E-07_JPRB,0.38701E-05_JPRB,0.50505E-05_JPRB,0.50046E-05_JPRB,0.24106E-05_JPRB /)  
+KB(:, 4,42, 5) = (/ &
+ & 0.40580E-07_JPRB,0.41378E-05_JPRB,0.53219E-05_JPRB,0.52323E-05_JPRB,0.25622E-05_JPRB /)  
+KB(:, 5,42, 5) = (/ &
+ & 0.41689E-07_JPRB,0.43881E-05_JPRB,0.55607E-05_JPRB,0.54356E-05_JPRB,0.27015E-05_JPRB /)  
+KB(:, 1,43, 5) = (/ &
+ & 0.26243E-07_JPRB,0.26780E-05_JPRB,0.36021E-05_JPRB,0.36578E-05_JPRB,0.16722E-05_JPRB /)  
+KB(:, 2,43, 5) = (/ &
+ & 0.28903E-07_JPRB,0.29254E-05_JPRB,0.38754E-05_JPRB,0.38886E-05_JPRB,0.18235E-05_JPRB /)  
+KB(:, 3,43, 5) = (/ &
+ & 0.31158E-07_JPRB,0.31674E-05_JPRB,0.41363E-05_JPRB,0.40998E-05_JPRB,0.19628E-05_JPRB /)  
+KB(:, 4,43, 5) = (/ &
+ & 0.32828E-07_JPRB,0.33966E-05_JPRB,0.43687E-05_JPRB,0.42935E-05_JPRB,0.20906E-05_JPRB /)  
+KB(:, 5,43, 5) = (/ &
+ & 0.33896E-07_JPRB,0.36112E-05_JPRB,0.45745E-05_JPRB,0.44680E-05_JPRB,0.22088E-05_JPRB /)  
+KB(:, 1,44, 5) = (/ &
+ & 0.20692E-07_JPRB,0.21688E-05_JPRB,0.29226E-05_JPRB,0.29738E-05_JPRB,0.13486E-05_JPRB /)  
+KB(:, 2,44, 5) = (/ &
+ & 0.22961E-07_JPRB,0.23776E-05_JPRB,0.31556E-05_JPRB,0.31699E-05_JPRB,0.14759E-05_JPRB /)  
+KB(:, 3,44, 5) = (/ &
+ & 0.24934E-07_JPRB,0.25834E-05_JPRB,0.33779E-05_JPRB,0.33507E-05_JPRB,0.15926E-05_JPRB /)  
+KB(:, 4,44, 5) = (/ &
+ & 0.26472E-07_JPRB,0.27800E-05_JPRB,0.35779E-05_JPRB,0.35162E-05_JPRB,0.17017E-05_JPRB /)  
+KB(:, 5,44, 5) = (/ &
+ & 0.27504E-07_JPRB,0.29637E-05_JPRB,0.37558E-05_JPRB,0.36666E-05_JPRB,0.18017E-05_JPRB /)  
+KB(:, 1,45, 5) = (/ &
+ & 0.16269E-07_JPRB,0.17537E-05_JPRB,0.23672E-05_JPRB,0.24133E-05_JPRB,0.10856E-05_JPRB /)  
+KB(:, 2,45, 5) = (/ &
+ & 0.18194E-07_JPRB,0.19291E-05_JPRB,0.25663E-05_JPRB,0.25809E-05_JPRB,0.11927E-05_JPRB /)  
+KB(:, 3,45, 5) = (/ &
+ & 0.19903E-07_JPRB,0.21039E-05_JPRB,0.27552E-05_JPRB,0.27360E-05_JPRB,0.12909E-05_JPRB /)  
+KB(:, 4,45, 5) = (/ &
+ & 0.21293E-07_JPRB,0.22721E-05_JPRB,0.29270E-05_JPRB,0.28775E-05_JPRB,0.13839E-05_JPRB /)  
+KB(:, 5,45, 5) = (/ &
+ & 0.22283E-07_JPRB,0.24292E-05_JPRB,0.30802E-05_JPRB,0.30067E-05_JPRB,0.14686E-05_JPRB /)  
+KB(:, 1,46, 5) = (/ &
+ & 0.12712E-07_JPRB,0.14128E-05_JPRB,0.19113E-05_JPRB,0.19548E-05_JPRB,0.87114E-06_JPRB /)  
+KB(:, 2,46, 5) = (/ &
+ & 0.14351E-07_JPRB,0.15596E-05_JPRB,0.20802E-05_JPRB,0.20949E-05_JPRB,0.96118E-06_JPRB /)  
+KB(:, 3,46, 5) = (/ &
+ & 0.15815E-07_JPRB,0.17076E-05_JPRB,0.22404E-05_JPRB,0.22289E-05_JPRB,0.10436E-05_JPRB /)  
+KB(:, 4,46, 5) = (/ &
+ & 0.17062E-07_JPRB,0.18511E-05_JPRB,0.23889E-05_JPRB,0.23492E-05_JPRB,0.11225E-05_JPRB /)  
+KB(:, 5,46, 5) = (/ &
+ & 0.17993E-07_JPRB,0.19855E-05_JPRB,0.25206E-05_JPRB,0.24609E-05_JPRB,0.11948E-05_JPRB /)  
+KB(:, 1,47, 5) = (/ &
+ & 0.98364E-08_JPRB,0.11306E-05_JPRB,0.15353E-05_JPRB,0.15746E-05_JPRB,0.69554E-06_JPRB /)  
+KB(:, 2,47, 5) = (/ &
+ & 0.11226E-07_JPRB,0.12534E-05_JPRB,0.16765E-05_JPRB,0.16944E-05_JPRB,0.76925E-06_JPRB /)  
+KB(:, 3,47, 5) = (/ &
+ & 0.12483E-07_JPRB,0.13784E-05_JPRB,0.18130E-05_JPRB,0.18087E-05_JPRB,0.84036E-06_JPRB /)  
+KB(:, 4,47, 5) = (/ &
+ & 0.13587E-07_JPRB,0.15007E-05_JPRB,0.19418E-05_JPRB,0.19122E-05_JPRB,0.90712E-06_JPRB /)  
+KB(:, 5,47, 5) = (/ &
+ & 0.14457E-07_JPRB,0.16158E-05_JPRB,0.20557E-05_JPRB,0.20073E-05_JPRB,0.96847E-06_JPRB /)  
+KB(:, 1,48, 5) = (/ &
+ & 0.75824E-08_JPRB,0.90329E-06_JPRB,0.12307E-05_JPRB,0.12653E-05_JPRB,0.55346E-06_JPRB /)  
+KB(:, 2,48, 5) = (/ &
+ & 0.87453E-08_JPRB,0.10050E-05_JPRB,0.13490E-05_JPRB,0.13676E-05_JPRB,0.61470E-06_JPRB /)  
+KB(:, 3,48, 5) = (/ &
+ & 0.98194E-08_JPRB,0.11101E-05_JPRB,0.14650E-05_JPRB,0.14651E-05_JPRB,0.67492E-06_JPRB /)  
+KB(:, 4,48, 5) = (/ &
+ & 0.10779E-07_JPRB,0.12141E-05_JPRB,0.15756E-05_JPRB,0.15544E-05_JPRB,0.73163E-06_JPRB /)  
+KB(:, 5,48, 5) = (/ &
+ & 0.11579E-07_JPRB,0.13125E-05_JPRB,0.16743E-05_JPRB,0.16359E-05_JPRB,0.78405E-06_JPRB /)  
+KB(:, 1,49, 5) = (/ &
+ & 0.58219E-08_JPRB,0.72015E-06_JPRB,0.98379E-06_JPRB,0.10143E-05_JPRB,0.43933E-06_JPRB /)  
+KB(:, 2,49, 5) = (/ &
+ & 0.67817E-08_JPRB,0.80423E-06_JPRB,0.10832E-05_JPRB,0.11023E-05_JPRB,0.49018E-06_JPRB /)  
+KB(:, 3,49, 5) = (/ &
+ & 0.76966E-08_JPRB,0.89205E-06_JPRB,0.11819E-05_JPRB,0.11846E-05_JPRB,0.54131E-06_JPRB /)  
+KB(:, 4,49, 5) = (/ &
+ & 0.85224E-08_JPRB,0.98005E-06_JPRB,0.12760E-05_JPRB,0.12617E-05_JPRB,0.58858E-06_JPRB /)  
+KB(:, 5,49, 5) = (/ &
+ & 0.92350E-08_JPRB,0.10644E-05_JPRB,0.13615E-05_JPRB,0.13319E-05_JPRB,0.63358E-06_JPRB /)  
+KB(:, 1,50, 5) = (/ &
+ & 0.44790E-08_JPRB,0.57418E-06_JPRB,0.78635E-06_JPRB,0.81296E-06_JPRB,0.34881E-06_JPRB /)  
+KB(:, 2,50, 5) = (/ &
+ & 0.52579E-08_JPRB,0.64388E-06_JPRB,0.87056E-06_JPRB,0.88896E-06_JPRB,0.39135E-06_JPRB /)  
+KB(:, 3,50, 5) = (/ &
+ & 0.60279E-08_JPRB,0.71722E-06_JPRB,0.95348E-06_JPRB,0.95809E-06_JPRB,0.43444E-06_JPRB /)  
+KB(:, 4,50, 5) = (/ &
+ & 0.67324E-08_JPRB,0.79134E-06_JPRB,0.10331E-05_JPRB,0.10243E-05_JPRB,0.47391E-06_JPRB /)  
+KB(:, 5,50, 5) = (/ &
+ & 0.73551E-08_JPRB,0.86330E-06_JPRB,0.11073E-05_JPRB,0.10842E-05_JPRB,0.51234E-06_JPRB /)  
+KB(:, 1,51, 5) = (/ &
+ & 0.34450E-08_JPRB,0.45753E-06_JPRB,0.62814E-06_JPRB,0.65158E-06_JPRB,0.27625E-06_JPRB /)  
+KB(:, 2,51, 5) = (/ &
+ & 0.40690E-08_JPRB,0.51530E-06_JPRB,0.69892E-06_JPRB,0.71555E-06_JPRB,0.31260E-06_JPRB /)  
+KB(:, 3,51, 5) = (/ &
+ & 0.47087E-08_JPRB,0.57624E-06_JPRB,0.76840E-06_JPRB,0.77477E-06_JPRB,0.34804E-06_JPRB /)  
+KB(:, 4,51, 5) = (/ &
+ & 0.53086E-08_JPRB,0.63843E-06_JPRB,0.83580E-06_JPRB,0.83092E-06_JPRB,0.38181E-06_JPRB /)  
+KB(:, 5,51, 5) = (/ &
+ & 0.58439E-08_JPRB,0.69956E-06_JPRB,0.89962E-06_JPRB,0.88225E-06_JPRB,0.41412E-06_JPRB /)  
+KB(:, 1,52, 5) = (/ &
+ & 0.26454E-08_JPRB,0.36387E-06_JPRB,0.50007E-06_JPRB,0.52179E-06_JPRB,0.21894E-06_JPRB /)  
+KB(:, 2,52, 5) = (/ &
+ & 0.31403E-08_JPRB,0.41173E-06_JPRB,0.55997E-06_JPRB,0.57479E-06_JPRB,0.24870E-06_JPRB /)  
+KB(:, 3,52, 5) = (/ &
+ & 0.36655E-08_JPRB,0.46211E-06_JPRB,0.61819E-06_JPRB,0.62511E-06_JPRB,0.27840E-06_JPRB /)  
+KB(:, 4,52, 5) = (/ &
+ & 0.41730E-08_JPRB,0.51415E-06_JPRB,0.67546E-06_JPRB,0.67307E-06_JPRB,0.30695E-06_JPRB /)  
+KB(:, 5,52, 5) = (/ &
+ & 0.46311E-08_JPRB,0.56582E-06_JPRB,0.72973E-06_JPRB,0.71697E-06_JPRB,0.33407E-06_JPRB /)  
+KB(:, 1,53, 5) = (/ &
+ & 0.20275E-08_JPRB,0.28873E-06_JPRB,0.39749E-06_JPRB,0.41647E-06_JPRB,0.17355E-06_JPRB /)  
+KB(:, 2,53, 5) = (/ &
+ & 0.24190E-08_JPRB,0.32821E-06_JPRB,0.44730E-06_JPRB,0.46063E-06_JPRB,0.19774E-06_JPRB /)  
+KB(:, 3,53, 5) = (/ &
+ & 0.28440E-08_JPRB,0.36981E-06_JPRB,0.49677E-06_JPRB,0.50411E-06_JPRB,0.22218E-06_JPRB /)  
+KB(:, 4,53, 5) = (/ &
+ & 0.32690E-08_JPRB,0.41315E-06_JPRB,0.54488E-06_JPRB,0.54408E-06_JPRB,0.24647E-06_JPRB /)  
+KB(:, 5,53, 5) = (/ &
+ & 0.36592E-08_JPRB,0.45680E-06_JPRB,0.59090E-06_JPRB,0.58189E-06_JPRB,0.26902E-06_JPRB /)  
+KB(:, 1,54, 5) = (/ &
+ & 0.15611E-08_JPRB,0.22962E-06_JPRB,0.31613E-06_JPRB,0.33300E-06_JPRB,0.13730E-06_JPRB /)  
+KB(:, 2,54, 5) = (/ &
+ & 0.18696E-08_JPRB,0.26187E-06_JPRB,0.35802E-06_JPRB,0.36954E-06_JPRB,0.15701E-06_JPRB /)  
+KB(:, 3,54, 5) = (/ &
+ & 0.22100E-08_JPRB,0.29641E-06_JPRB,0.39970E-06_JPRB,0.40683E-06_JPRB,0.17764E-06_JPRB /)  
+KB(:, 4,54, 5) = (/ &
+ & 0.25619E-08_JPRB,0.33255E-06_JPRB,0.44009E-06_JPRB,0.44063E-06_JPRB,0.19808E-06_JPRB /)  
+KB(:, 5,54, 5) = (/ &
+ & 0.28928E-08_JPRB,0.36908E-06_JPRB,0.47892E-06_JPRB,0.47270E-06_JPRB,0.21696E-06_JPRB /)  
+KB(:, 1,55, 5) = (/ &
+ & 0.12041E-08_JPRB,0.18259E-06_JPRB,0.25108E-06_JPRB,0.26608E-06_JPRB,0.10842E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART20',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,55, 5) = (/ &
+ & 0.14466E-08_JPRB,0.20918E-06_JPRB,0.28633E-06_JPRB,0.29677E-06_JPRB,0.12468E-06_JPRB /)  
+KB(:, 3,55, 5) = (/ &
+ & 0.17176E-08_JPRB,0.23765E-06_JPRB,0.32139E-06_JPRB,0.32799E-06_JPRB,0.14213E-06_JPRB /)  
+KB(:, 4,55, 5) = (/ &
+ & 0.20058E-08_JPRB,0.26766E-06_JPRB,0.35523E-06_JPRB,0.35664E-06_JPRB,0.15907E-06_JPRB /)  
+KB(:, 5,55, 5) = (/ &
+ & 0.22852E-08_JPRB,0.29818E-06_JPRB,0.38806E-06_JPRB,0.38381E-06_JPRB,0.17512E-06_JPRB /)  
+KB(:, 1,56, 5) = (/ &
+ & 0.92934E-09_JPRB,0.14496E-06_JPRB,0.19887E-06_JPRB,0.21215E-06_JPRB,0.85185E-07_JPRB /)  
+KB(:, 2,56, 5) = (/ &
+ & 0.11180E-08_JPRB,0.16668E-06_JPRB,0.22841E-06_JPRB,0.23799E-06_JPRB,0.99172E-07_JPRB /)  
+KB(:, 3,56, 5) = (/ &
+ & 0.13333E-08_JPRB,0.19024E-06_JPRB,0.25790E-06_JPRB,0.26385E-06_JPRB,0.11331E-06_JPRB /)  
+KB(:, 4,56, 5) = (/ &
+ & 0.15668E-08_JPRB,0.21512E-06_JPRB,0.28626E-06_JPRB,0.28820E-06_JPRB,0.12758E-06_JPRB /)  
+KB(:, 5,56, 5) = (/ &
+ & 0.18000E-08_JPRB,0.24055E-06_JPRB,0.31405E-06_JPRB,0.31134E-06_JPRB,0.14106E-06_JPRB /)  
+KB(:, 1,57, 5) = (/ &
+ & 0.71747E-09_JPRB,0.11491E-06_JPRB,0.15760E-06_JPRB,0.16907E-06_JPRB,0.66762E-07_JPRB /)  
+KB(:, 2,57, 5) = (/ &
+ & 0.86318E-09_JPRB,0.13266E-06_JPRB,0.18198E-06_JPRB,0.19051E-06_JPRB,0.78844E-07_JPRB /)  
+KB(:, 3,57, 5) = (/ &
+ & 0.10332E-08_JPRB,0.15199E-06_JPRB,0.20646E-06_JPRB,0.21185E-06_JPRB,0.90317E-07_JPRB /)  
+KB(:, 4,57, 5) = (/ &
+ & 0.12205E-08_JPRB,0.17255E-06_JPRB,0.23049E-06_JPRB,0.23280E-06_JPRB,0.10211E-06_JPRB /)  
+KB(:, 5,57, 5) = (/ &
+ & 0.14137E-08_JPRB,0.19374E-06_JPRB,0.25377E-06_JPRB,0.25209E-06_JPRB,0.11347E-06_JPRB /)  
+KB(:, 1,58, 5) = (/ &
+ & 0.55534E-09_JPRB,0.91161E-07_JPRB,0.12495E-06_JPRB,0.13481E-06_JPRB,0.52524E-07_JPRB /)  
+KB(:, 2,58, 5) = (/ &
+ & 0.66796E-09_JPRB,0.10564E-06_JPRB,0.14490E-06_JPRB,0.15246E-06_JPRB,0.62491E-07_JPRB /)  
+KB(:, 3,58, 5) = (/ &
+ & 0.80208E-09_JPRB,0.12142E-06_JPRB,0.16540E-06_JPRB,0.17013E-06_JPRB,0.71923E-07_JPRB /)  
+KB(:, 4,58, 5) = (/ &
+ & 0.95155E-09_JPRB,0.13846E-06_JPRB,0.18562E-06_JPRB,0.18803E-06_JPRB,0.81760E-07_JPRB /)  
+KB(:, 5,58, 5) = (/ &
+ & 0.11100E-08_JPRB,0.15608E-06_JPRB,0.20513E-06_JPRB,0.20425E-06_JPRB,0.91405E-07_JPRB /)  
+KB(:, 1,59, 5) = (/ &
+ & 0.44483E-09_JPRB,0.74201E-07_JPRB,0.10175E-06_JPRB,0.10986E-06_JPRB,0.42626E-07_JPRB /)  
+KB(:, 2,59, 5) = (/ &
+ & 0.53478E-09_JPRB,0.86257E-07_JPRB,0.11818E-06_JPRB,0.12453E-06_JPRB,0.50816E-07_JPRB /)  
+KB(:, 3,59, 5) = (/ &
+ & 0.64265E-09_JPRB,0.99390E-07_JPRB,0.13535E-06_JPRB,0.13928E-06_JPRB,0.58658E-07_JPRB /)  
+KB(:, 4,59, 5) = (/ &
+ & 0.76369E-09_JPRB,0.11360E-06_JPRB,0.15224E-06_JPRB,0.15417E-06_JPRB,0.66845E-07_JPRB /)  
+KB(:, 5,59, 5) = (/ &
+ & 0.89316E-09_JPRB,0.12826E-06_JPRB,0.16850E-06_JPRB,0.16775E-06_JPRB,0.74841E-07_JPRB /)  
+KB(:, 1,13, 6) = (/ &
+ & 0.15452E-03_JPRB,0.17471E-02_JPRB,0.22870E-02_JPRB,0.22757E-02_JPRB,0.11868E-02_JPRB /)  
+KB(:, 2,13, 6) = (/ &
+ & 0.17358E-03_JPRB,0.18337E-02_JPRB,0.23752E-02_JPRB,0.23549E-02_JPRB,0.12492E-02_JPRB /)  
+KB(:, 3,13, 6) = (/ &
+ & 0.19043E-03_JPRB,0.19070E-02_JPRB,0.24479E-02_JPRB,0.24255E-02_JPRB,0.13114E-02_JPRB /)  
+KB(:, 4,13, 6) = (/ &
+ & 0.20459E-03_JPRB,0.19702E-02_JPRB,0.25109E-02_JPRB,0.24905E-02_JPRB,0.13717E-02_JPRB /)  
+KB(:, 5,13, 6) = (/ &
+ & 0.21621E-03_JPRB,0.20266E-02_JPRB,0.25653E-02_JPRB,0.25512E-02_JPRB,0.14320E-02_JPRB /)  
+KB(:, 1,14, 6) = (/ &
+ & 0.12793E-03_JPRB,0.14662E-02_JPRB,0.19141E-02_JPRB,0.19032E-02_JPRB,0.99404E-03_JPRB /)  
+KB(:, 2,14, 6) = (/ &
+ & 0.14335E-03_JPRB,0.15367E-02_JPRB,0.19852E-02_JPRB,0.19691E-02_JPRB,0.10462E-02_JPRB /)  
+KB(:, 3,14, 6) = (/ &
+ & 0.15698E-03_JPRB,0.15974E-02_JPRB,0.20454E-02_JPRB,0.20285E-02_JPRB,0.10986E-02_JPRB /)  
+KB(:, 4,14, 6) = (/ &
+ & 0.16837E-03_JPRB,0.16505E-02_JPRB,0.20982E-02_JPRB,0.20828E-02_JPRB,0.11509E-02_JPRB /)  
+KB(:, 5,14, 6) = (/ &
+ & 0.17765E-03_JPRB,0.16990E-02_JPRB,0.21452E-02_JPRB,0.21357E-02_JPRB,0.12020E-02_JPRB /)  
+KB(:, 1,15, 6) = (/ &
+ & 0.10600E-03_JPRB,0.12280E-02_JPRB,0.15987E-02_JPRB,0.15899E-02_JPRB,0.83160E-03_JPRB /)  
+KB(:, 2,15, 6) = (/ &
+ & 0.11846E-03_JPRB,0.12858E-02_JPRB,0.16570E-02_JPRB,0.16438E-02_JPRB,0.87641E-03_JPRB /)  
+KB(:, 3,15, 6) = (/ &
+ & 0.12947E-03_JPRB,0.13362E-02_JPRB,0.17073E-02_JPRB,0.16937E-02_JPRB,0.92037E-03_JPRB /)  
+KB(:, 4,15, 6) = (/ &
+ & 0.13860E-03_JPRB,0.13818E-02_JPRB,0.17519E-02_JPRB,0.17401E-02_JPRB,0.96514E-03_JPRB /)  
+KB(:, 5,15, 6) = (/ &
+ & 0.14605E-03_JPRB,0.14231E-02_JPRB,0.17922E-02_JPRB,0.17849E-02_JPRB,0.10088E-02_JPRB /)  
+KB(:, 1,16, 6) = (/ &
+ & 0.87844E-04_JPRB,0.10268E-02_JPRB,0.13337E-02_JPRB,0.13258E-02_JPRB,0.69471E-03_JPRB /)  
+KB(:, 2,16, 6) = (/ &
+ & 0.97921E-04_JPRB,0.10747E-02_JPRB,0.13816E-02_JPRB,0.13704E-02_JPRB,0.73309E-03_JPRB /)  
+KB(:, 3,16, 6) = (/ &
+ & 0.10678E-03_JPRB,0.11173E-02_JPRB,0.14240E-02_JPRB,0.14122E-02_JPRB,0.77126E-03_JPRB /)  
+KB(:, 4,16, 6) = (/ &
+ & 0.11410E-03_JPRB,0.11561E-02_JPRB,0.14619E-02_JPRB,0.14525E-02_JPRB,0.80983E-03_JPRB /)  
+KB(:, 5,16, 6) = (/ &
+ & 0.12008E-03_JPRB,0.11913E-02_JPRB,0.14957E-02_JPRB,0.14904E-02_JPRB,0.84685E-03_JPRB /)  
+KB(:, 1,17, 6) = (/ &
+ & 0.72736E-04_JPRB,0.85770E-03_JPRB,0.11110E-02_JPRB,0.11043E-02_JPRB,0.57988E-03_JPRB /)  
+KB(:, 2,17, 6) = (/ &
+ & 0.80870E-04_JPRB,0.89737E-03_JPRB,0.11508E-02_JPRB,0.11412E-02_JPRB,0.61310E-03_JPRB /)  
+KB(:, 3,17, 6) = (/ &
+ & 0.87984E-04_JPRB,0.93334E-03_JPRB,0.11865E-02_JPRB,0.11769E-02_JPRB,0.64563E-03_JPRB /)  
+KB(:, 4,17, 6) = (/ &
+ & 0.93900E-04_JPRB,0.96637E-03_JPRB,0.12188E-02_JPRB,0.12115E-02_JPRB,0.67946E-03_JPRB /)  
+KB(:, 5,17, 6) = (/ &
+ & 0.98669E-04_JPRB,0.99682E-03_JPRB,0.12477E-02_JPRB,0.12444E-02_JPRB,0.71129E-03_JPRB /)  
+KB(:, 1,18, 6) = (/ &
+ & 0.60196E-04_JPRB,0.71585E-03_JPRB,0.92484E-03_JPRB,0.91885E-03_JPRB,0.48428E-03_JPRB /)  
+KB(:, 2,18, 6) = (/ &
+ & 0.66759E-04_JPRB,0.74902E-03_JPRB,0.95806E-03_JPRB,0.95007E-03_JPRB,0.51254E-03_JPRB /)  
+KB(:, 3,18, 6) = (/ &
+ & 0.72486E-04_JPRB,0.77936E-03_JPRB,0.98828E-03_JPRB,0.98036E-03_JPRB,0.54118E-03_JPRB /)  
+KB(:, 4,18, 6) = (/ &
+ & 0.77210E-04_JPRB,0.80757E-03_JPRB,0.10157E-02_JPRB,0.10101E-02_JPRB,0.56995E-03_JPRB /)  
+KB(:, 5,18, 6) = (/ &
+ & 0.81046E-04_JPRB,0.83344E-03_JPRB,0.10405E-02_JPRB,0.10390E-02_JPRB,0.59762E-03_JPRB /)  
+KB(:, 1,19, 6) = (/ &
+ & 0.49797E-04_JPRB,0.59714E-03_JPRB,0.76951E-03_JPRB,0.76408E-03_JPRB,0.40487E-03_JPRB /)  
+KB(:, 2,19, 6) = (/ &
+ & 0.55098E-04_JPRB,0.62505E-03_JPRB,0.79728E-03_JPRB,0.79071E-03_JPRB,0.42904E-03_JPRB /)  
+KB(:, 3,19, 6) = (/ &
+ & 0.59690E-04_JPRB,0.65071E-03_JPRB,0.82294E-03_JPRB,0.81671E-03_JPRB,0.45375E-03_JPRB /)  
+KB(:, 4,19, 6) = (/ &
+ & 0.63457E-04_JPRB,0.67490E-03_JPRB,0.84635E-03_JPRB,0.84245E-03_JPRB,0.47833E-03_JPRB /)  
+KB(:, 5,19, 6) = (/ &
+ & 0.66538E-04_JPRB,0.69683E-03_JPRB,0.86805E-03_JPRB,0.86812E-03_JPRB,0.50238E-03_JPRB /)  
+KB(:, 1,20, 6) = (/ &
+ & 0.41277E-04_JPRB,0.49854E-03_JPRB,0.64043E-03_JPRB,0.63582E-03_JPRB,0.33885E-03_JPRB /)  
+KB(:, 2,20, 6) = (/ &
+ & 0.45557E-04_JPRB,0.52197E-03_JPRB,0.66408E-03_JPRB,0.65859E-03_JPRB,0.35960E-03_JPRB /)  
+KB(:, 3,20, 6) = (/ &
+ & 0.49226E-04_JPRB,0.54380E-03_JPRB,0.68582E-03_JPRB,0.68111E-03_JPRB,0.38108E-03_JPRB /)  
+KB(:, 4,20, 6) = (/ &
+ & 0.52238E-04_JPRB,0.56442E-03_JPRB,0.70598E-03_JPRB,0.70364E-03_JPRB,0.40199E-03_JPRB /)  
+KB(:, 5,20, 6) = (/ &
+ & 0.54694E-04_JPRB,0.58320E-03_JPRB,0.72504E-03_JPRB,0.72645E-03_JPRB,0.42282E-03_JPRB /)  
+KB(:, 1,21, 6) = (/ &
+ & 0.34218E-04_JPRB,0.41624E-03_JPRB,0.53312E-03_JPRB,0.52912E-03_JPRB,0.28376E-03_JPRB /)  
+KB(:, 2,21, 6) = (/ &
+ & 0.37670E-04_JPRB,0.43597E-03_JPRB,0.55316E-03_JPRB,0.54893E-03_JPRB,0.30161E-03_JPRB /)  
+KB(:, 3,21, 6) = (/ &
+ & 0.40602E-04_JPRB,0.45467E-03_JPRB,0.57178E-03_JPRB,0.56861E-03_JPRB,0.32023E-03_JPRB /)  
+KB(:, 4,21, 6) = (/ &
+ & 0.43009E-04_JPRB,0.47220E-03_JPRB,0.58931E-03_JPRB,0.58850E-03_JPRB,0.33805E-03_JPRB /)  
+KB(:, 5,21, 6) = (/ &
+ & 0.44968E-04_JPRB,0.48850E-03_JPRB,0.60624E-03_JPRB,0.60867E-03_JPRB,0.35633E-03_JPRB /)  
+KB(:, 1,22, 6) = (/ &
+ & 0.28554E-04_JPRB,0.34872E-03_JPRB,0.44519E-03_JPRB,0.44203E-03_JPRB,0.23865E-03_JPRB /)  
+KB(:, 2,22, 6) = (/ &
+ & 0.31312E-04_JPRB,0.36543E-03_JPRB,0.46215E-03_JPRB,0.45896E-03_JPRB,0.25429E-03_JPRB /)  
+KB(:, 3,22, 6) = (/ &
+ & 0.33623E-04_JPRB,0.38136E-03_JPRB,0.47808E-03_JPRB,0.47625E-03_JPRB,0.27020E-03_JPRB /)  
+KB(:, 4,22, 6) = (/ &
+ & 0.35518E-04_JPRB,0.39638E-03_JPRB,0.49352E-03_JPRB,0.49393E-03_JPRB,0.28567E-03_JPRB /)  
+KB(:, 5,22, 6) = (/ &
+ & 0.37060E-04_JPRB,0.41046E-03_JPRB,0.50833E-03_JPRB,0.51152E-03_JPRB,0.30169E-03_JPRB /)  
+KB(:, 1,23, 6) = (/ &
+ & 0.23825E-04_JPRB,0.29241E-03_JPRB,0.37202E-03_JPRB,0.36957E-03_JPRB,0.20120E-03_JPRB /)  
+KB(:, 2,23, 6) = (/ &
+ & 0.26019E-04_JPRB,0.30664E-03_JPRB,0.38650E-03_JPRB,0.38433E-03_JPRB,0.21484E-03_JPRB /)  
+KB(:, 3,23, 6) = (/ &
+ & 0.27840E-04_JPRB,0.32027E-03_JPRB,0.40038E-03_JPRB,0.39957E-03_JPRB,0.22829E-03_JPRB /)  
+KB(:, 4,23, 6) = (/ &
+ & 0.29329E-04_JPRB,0.33317E-03_JPRB,0.41396E-03_JPRB,0.41498E-03_JPRB,0.24169E-03_JPRB /)  
+KB(:, 5,23, 6) = (/ &
+ & 0.30542E-04_JPRB,0.34547E-03_JPRB,0.42681E-03_JPRB,0.43048E-03_JPRB,0.25568E-03_JPRB /)  
+KB(:, 1,24, 6) = (/ &
+ & 0.19879E-04_JPRB,0.24552E-03_JPRB,0.31135E-03_JPRB,0.30936E-03_JPRB,0.16986E-03_JPRB /)  
+KB(:, 2,24, 6) = (/ &
+ & 0.21617E-04_JPRB,0.25767E-03_JPRB,0.32376E-03_JPRB,0.32228E-03_JPRB,0.18173E-03_JPRB /)  
+KB(:, 3,24, 6) = (/ &
+ & 0.23050E-04_JPRB,0.26937E-03_JPRB,0.33590E-03_JPRB,0.33579E-03_JPRB,0.19320E-03_JPRB /)  
+KB(:, 4,24, 6) = (/ &
+ & 0.24217E-04_JPRB,0.28054E-03_JPRB,0.34772E-03_JPRB,0.34922E-03_JPRB,0.20501E-03_JPRB /)  
+KB(:, 5,24, 6) = (/ &
+ & 0.25164E-04_JPRB,0.29121E-03_JPRB,0.35883E-03_JPRB,0.36286E-03_JPRB,0.21708E-03_JPRB /)  
+KB(:, 1,25, 6) = (/ &
+ & 0.16589E-04_JPRB,0.20645E-03_JPRB,0.26087E-03_JPRB,0.25944E-03_JPRB,0.14369E-03_JPRB /)  
+KB(:, 2,25, 6) = (/ &
+ & 0.17961E-04_JPRB,0.21688E-03_JPRB,0.27162E-03_JPRB,0.27083E-03_JPRB,0.15386E-03_JPRB /)  
+KB(:, 3,25, 6) = (/ &
+ & 0.19083E-04_JPRB,0.22697E-03_JPRB,0.28229E-03_JPRB,0.28258E-03_JPRB,0.16383E-03_JPRB /)  
+KB(:, 4,25, 6) = (/ &
+ & 0.19998E-04_JPRB,0.23668E-03_JPRB,0.29245E-03_JPRB,0.29438E-03_JPRB,0.17418E-03_JPRB /)  
+KB(:, 5,25, 6) = (/ &
+ & 0.20737E-04_JPRB,0.24589E-03_JPRB,0.30216E-03_JPRB,0.30647E-03_JPRB,0.18465E-03_JPRB /)  
+KB(:, 1,26, 6) = (/ &
+ & 0.13858E-04_JPRB,0.17402E-03_JPRB,0.21906E-03_JPRB,0.21804E-03_JPRB,0.12205E-03_JPRB /)  
+KB(:, 2,26, 6) = (/ &
+ & 0.14930E-04_JPRB,0.18300E-03_JPRB,0.22843E-03_JPRB,0.22813E-03_JPRB,0.13065E-03_JPRB /)  
+KB(:, 3,26, 6) = (/ &
+ & 0.15807E-04_JPRB,0.19174E-03_JPRB,0.23770E-03_JPRB,0.23830E-03_JPRB,0.13933E-03_JPRB /)  
+KB(:, 4,26, 6) = (/ &
+ & 0.16522E-04_JPRB,0.20010E-03_JPRB,0.24640E-03_JPRB,0.24876E-03_JPRB,0.14837E-03_JPRB /)  
+KB(:, 5,26, 6) = (/ &
+ & 0.17090E-04_JPRB,0.20798E-03_JPRB,0.25500E-03_JPRB,0.25943E-03_JPRB,0.15748E-03_JPRB /)  
+KB(:, 1,27, 6) = (/ &
+ & 0.11565E-04_JPRB,0.14689E-03_JPRB,0.18423E-03_JPRB,0.18358E-03_JPRB,0.10372E-03_JPRB /)  
+KB(:, 2,27, 6) = (/ &
+ & 0.12404E-04_JPRB,0.15466E-03_JPRB,0.19242E-03_JPRB,0.19242E-03_JPRB,0.11104E-03_JPRB /)  
+KB(:, 3,27, 6) = (/ &
+ & 0.13088E-04_JPRB,0.16225E-03_JPRB,0.20035E-03_JPRB,0.20136E-03_JPRB,0.11877E-03_JPRB /)  
+KB(:, 4,27, 6) = (/ &
+ & 0.13644E-04_JPRB,0.16938E-03_JPRB,0.20793E-03_JPRB,0.21054E-03_JPRB,0.12658E-03_JPRB /)  
+KB(:, 5,27, 6) = (/ &
+ & 0.14079E-04_JPRB,0.17614E-03_JPRB,0.21553E-03_JPRB,0.22004E-03_JPRB,0.13455E-03_JPRB /)  
+KB(:, 1,28, 6) = (/ &
+ & 0.96429E-05_JPRB,0.12422E-03_JPRB,0.15518E-03_JPRB,0.15486E-03_JPRB,0.88240E-04_JPRB /)  
+KB(:, 2,28, 6) = (/ &
+ & 0.10297E-04_JPRB,0.13093E-03_JPRB,0.16229E-03_JPRB,0.16255E-03_JPRB,0.94664E-04_JPRB /)  
+KB(:, 3,28, 6) = (/ &
+ & 0.10829E-04_JPRB,0.13744E-03_JPRB,0.16911E-03_JPRB,0.17043E-03_JPRB,0.10137E-03_JPRB /)  
+KB(:, 4,28, 6) = (/ &
+ & 0.11263E-04_JPRB,0.14355E-03_JPRB,0.17577E-03_JPRB,0.17861E-03_JPRB,0.10818E-03_JPRB /)  
+KB(:, 5,28, 6) = (/ &
+ & 0.11593E-04_JPRB,0.14936E-03_JPRB,0.18245E-03_JPRB,0.18698E-03_JPRB,0.11517E-03_JPRB /)  
+KB(:, 1,29, 6) = (/ &
+ & 0.80357E-05_JPRB,0.10525E-03_JPRB,0.13098E-03_JPRB,0.13087E-03_JPRB,0.75199E-04_JPRB /)  
+KB(:, 2,29, 6) = (/ &
+ & 0.85457E-05_JPRB,0.11106E-03_JPRB,0.13709E-03_JPRB,0.13756E-03_JPRB,0.80877E-04_JPRB /)  
+KB(:, 3,29, 6) = (/ &
+ & 0.89585E-05_JPRB,0.11659E-03_JPRB,0.14298E-03_JPRB,0.14458E-03_JPRB,0.86703E-04_JPRB /)  
+KB(:, 4,29, 6) = (/ &
+ & 0.92936E-05_JPRB,0.12185E-03_JPRB,0.14887E-03_JPRB,0.15184E-03_JPRB,0.92679E-04_JPRB /)  
+KB(:, 5,29, 6) = (/ &
+ & 0.95413E-05_JPRB,0.12685E-03_JPRB,0.15476E-03_JPRB,0.15926E-03_JPRB,0.98770E-04_JPRB /)  
+KB(:, 1,30, 6) = (/ &
+ & 0.66891E-05_JPRB,0.89326E-04_JPRB,0.11070E-03_JPRB,0.11075E-03_JPRB,0.64254E-04_JPRB /)  
+KB(:, 2,30, 6) = (/ &
+ & 0.70855E-05_JPRB,0.94280E-04_JPRB,0.11595E-03_JPRB,0.11668E-03_JPRB,0.69215E-04_JPRB /)  
+KB(:, 3,30, 6) = (/ &
+ & 0.74068E-05_JPRB,0.99029E-04_JPRB,0.12112E-03_JPRB,0.12290E-03_JPRB,0.74278E-04_JPRB /)  
+KB(:, 4,30, 6) = (/ &
+ & 0.76634E-05_JPRB,0.10356E-03_JPRB,0.12631E-03_JPRB,0.12933E-03_JPRB,0.79489E-04_JPRB /)  
+KB(:, 5,30, 6) = (/ &
+ & 0.78499E-05_JPRB,0.10785E-03_JPRB,0.13152E-03_JPRB,0.13588E-03_JPRB,0.84762E-04_JPRB /)  
+KB(:, 1,31, 6) = (/ &
+ & 0.55647E-05_JPRB,0.75943E-04_JPRB,0.93695E-04_JPRB,0.93906E-04_JPRB,0.55002E-04_JPRB /)  
+KB(:, 2,31, 6) = (/ &
+ & 0.58719E-05_JPRB,0.80167E-04_JPRB,0.98229E-04_JPRB,0.99204E-04_JPRB,0.59329E-04_JPRB /)  
+KB(:, 3,31, 6) = (/ &
+ & 0.61212E-05_JPRB,0.84249E-04_JPRB,0.10281E-03_JPRB,0.10471E-03_JPRB,0.63778E-04_JPRB /)  
+KB(:, 4,31, 6) = (/ &
+ & 0.63162E-05_JPRB,0.88122E-04_JPRB,0.10738E-03_JPRB,0.11041E-03_JPRB,0.68318E-04_JPRB /)  
+KB(:, 5,31, 6) = (/ &
+ & 0.64553E-05_JPRB,0.91835E-04_JPRB,0.11204E-03_JPRB,0.11614E-03_JPRB,0.72907E-04_JPRB /)  
+KB(:, 1,32, 6) = (/ &
+ & 0.46246E-05_JPRB,0.64633E-04_JPRB,0.79398E-04_JPRB,0.79831E-04_JPRB,0.47190E-04_JPRB /)  
+KB(:, 2,32, 6) = (/ &
+ & 0.48628E-05_JPRB,0.68258E-04_JPRB,0.83383E-04_JPRB,0.84521E-04_JPRB,0.50953E-04_JPRB /)  
+KB(:, 3,32, 6) = (/ &
+ & 0.50557E-05_JPRB,0.71758E-04_JPRB,0.87418E-04_JPRB,0.89417E-04_JPRB,0.54823E-04_JPRB /)  
+KB(:, 4,32, 6) = (/ &
+ & 0.52035E-05_JPRB,0.75099E-04_JPRB,0.91481E-04_JPRB,0.94423E-04_JPRB,0.58785E-04_JPRB /)  
+KB(:, 5,32, 6) = (/ &
+ & 0.53068E-05_JPRB,0.78317E-04_JPRB,0.95646E-04_JPRB,0.99452E-04_JPRB,0.62766E-04_JPRB /)  
+KB(:, 1,33, 6) = (/ &
+ & 0.38403E-05_JPRB,0.55077E-04_JPRB,0.67410E-04_JPRB,0.68024E-04_JPRB,0.40538E-04_JPRB /)  
+KB(:, 2,33, 6) = (/ &
+ & 0.40244E-05_JPRB,0.58199E-04_JPRB,0.70924E-04_JPRB,0.72180E-04_JPRB,0.43839E-04_JPRB /)  
+KB(:, 3,33, 6) = (/ &
+ & 0.41730E-05_JPRB,0.61206E-04_JPRB,0.74475E-04_JPRB,0.76502E-04_JPRB,0.47222E-04_JPRB /)  
+KB(:, 4,33, 6) = (/ &
+ & 0.42835E-05_JPRB,0.64091E-04_JPRB,0.78114E-04_JPRB,0.80883E-04_JPRB,0.50652E-04_JPRB /)  
+KB(:, 5,33, 6) = (/ &
+ & 0.43604E-05_JPRB,0.66898E-04_JPRB,0.81798E-04_JPRB,0.85293E-04_JPRB,0.54102E-04_JPRB /)  
+KB(:, 1,34, 6) = (/ &
+ & 0.31801E-05_JPRB,0.46888E-04_JPRB,0.57233E-04_JPRB,0.57945E-04_JPRB,0.34781E-04_JPRB /)  
+KB(:, 2,34, 6) = (/ &
+ & 0.33244E-05_JPRB,0.49586E-04_JPRB,0.60319E-04_JPRB,0.61625E-04_JPRB,0.37646E-04_JPRB /)  
+KB(:, 3,34, 6) = (/ &
+ & 0.34389E-05_JPRB,0.52183E-04_JPRB,0.63465E-04_JPRB,0.65422E-04_JPRB,0.40606E-04_JPRB /)  
+KB(:, 4,34, 6) = (/ &
+ & 0.35228E-05_JPRB,0.54696E-04_JPRB,0.66697E-04_JPRB,0.69266E-04_JPRB,0.43571E-04_JPRB /)  
+KB(:, 5,34, 6) = (/ &
+ & 0.35804E-05_JPRB,0.57162E-04_JPRB,0.69964E-04_JPRB,0.73120E-04_JPRB,0.46562E-04_JPRB /)  
+KB(:, 1,35, 6) = (/ &
+ & 0.26200E-05_JPRB,0.39742E-04_JPRB,0.48410E-04_JPRB,0.49141E-04_JPRB,0.29639E-04_JPRB /)  
+KB(:, 2,35, 6) = (/ &
+ & 0.27351E-05_JPRB,0.42075E-04_JPRB,0.51122E-04_JPRB,0.52382E-04_JPRB,0.32146E-04_JPRB /)  
+KB(:, 3,35, 6) = (/ &
+ & 0.28253E-05_JPRB,0.44325E-04_JPRB,0.53916E-04_JPRB,0.55698E-04_JPRB,0.34701E-04_JPRB /)  
+KB(:, 4,35, 6) = (/ &
+ & 0.28907E-05_JPRB,0.46530E-04_JPRB,0.56769E-04_JPRB,0.59068E-04_JPRB,0.37280E-04_JPRB /)  
+KB(:, 5,35, 6) = (/ &
+ & 0.29354E-05_JPRB,0.48707E-04_JPRB,0.59649E-04_JPRB,0.62461E-04_JPRB,0.39864E-04_JPRB /)  
+KB(:, 1,36, 6) = (/ &
+ & 0.21469E-05_JPRB,0.33498E-04_JPRB,0.40744E-04_JPRB,0.41427E-04_JPRB,0.25045E-04_JPRB /)  
+KB(:, 2,36, 6) = (/ &
+ & 0.22407E-05_JPRB,0.35513E-04_JPRB,0.43124E-04_JPRB,0.44262E-04_JPRB,0.27227E-04_JPRB /)  
+KB(:, 3,36, 6) = (/ &
+ & 0.23140E-05_JPRB,0.37481E-04_JPRB,0.45588E-04_JPRB,0.47157E-04_JPRB,0.29433E-04_JPRB /)  
+KB(:, 4,36, 6) = (/ &
+ & 0.23673E-05_JPRB,0.39419E-04_JPRB,0.48109E-04_JPRB,0.50107E-04_JPRB,0.31672E-04_JPRB /)  
+KB(:, 5,36, 6) = (/ &
+ & 0.24035E-05_JPRB,0.41345E-04_JPRB,0.50640E-04_JPRB,0.53089E-04_JPRB,0.33911E-04_JPRB /)  
+KB(:, 1,37, 6) = (/ &
+ & 0.17464E-05_JPRB,0.27984E-04_JPRB,0.34007E-04_JPRB,0.34584E-04_JPRB,0.20899E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART21',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,37, 6) = (/ &
+ & 0.18252E-05_JPRB,0.29737E-04_JPRB,0.36088E-04_JPRB,0.37051E-04_JPRB,0.22785E-04_JPRB /)  
+KB(:, 3,37, 6) = (/ &
+ & 0.18877E-05_JPRB,0.31460E-04_JPRB,0.38247E-04_JPRB,0.39573E-04_JPRB,0.24687E-04_JPRB /)  
+KB(:, 4,37, 6) = (/ &
+ & 0.19333E-05_JPRB,0.33165E-04_JPRB,0.40460E-04_JPRB,0.42146E-04_JPRB,0.26626E-04_JPRB /)  
+KB(:, 5,37, 6) = (/ &
+ & 0.19647E-05_JPRB,0.34869E-04_JPRB,0.42691E-04_JPRB,0.44765E-04_JPRB,0.28561E-04_JPRB /)  
+KB(:, 1,38, 6) = (/ &
+ & 0.14198E-05_JPRB,0.23364E-04_JPRB,0.28367E-04_JPRB,0.28854E-04_JPRB,0.17422E-04_JPRB /)  
+KB(:, 2,38, 6) = (/ &
+ & 0.14862E-05_JPRB,0.24892E-04_JPRB,0.30186E-04_JPRB,0.30994E-04_JPRB,0.19047E-04_JPRB /)  
+KB(:, 3,38, 6) = (/ &
+ & 0.15394E-05_JPRB,0.26399E-04_JPRB,0.32076E-04_JPRB,0.33192E-04_JPRB,0.20688E-04_JPRB /)  
+KB(:, 4,38, 6) = (/ &
+ & 0.15786E-05_JPRB,0.27898E-04_JPRB,0.34020E-04_JPRB,0.35441E-04_JPRB,0.22360E-04_JPRB /)  
+KB(:, 5,38, 6) = (/ &
+ & 0.16058E-05_JPRB,0.29401E-04_JPRB,0.35983E-04_JPRB,0.37735E-04_JPRB,0.24033E-04_JPRB /)  
+KB(:, 1,39, 6) = (/ &
+ & 0.11541E-05_JPRB,0.19509E-04_JPRB,0.23663E-04_JPRB,0.24072E-04_JPRB,0.14521E-04_JPRB /)  
+KB(:, 2,39, 6) = (/ &
+ & 0.12100E-05_JPRB,0.20837E-04_JPRB,0.25252E-04_JPRB,0.25929E-04_JPRB,0.15915E-04_JPRB /)  
+KB(:, 3,39, 6) = (/ &
+ & 0.12551E-05_JPRB,0.22155E-04_JPRB,0.26902E-04_JPRB,0.27842E-04_JPRB,0.17331E-04_JPRB /)  
+KB(:, 4,39, 6) = (/ &
+ & 0.12888E-05_JPRB,0.23470E-04_JPRB,0.28603E-04_JPRB,0.29806E-04_JPRB,0.18773E-04_JPRB /)  
+KB(:, 5,39, 6) = (/ &
+ & 0.13123E-05_JPRB,0.24794E-04_JPRB,0.30331E-04_JPRB,0.31815E-04_JPRB,0.20216E-04_JPRB /)  
+KB(:, 1,40, 6) = (/ &
+ & 0.93244E-06_JPRB,0.16171E-04_JPRB,0.19599E-04_JPRB,0.19918E-04_JPRB,0.11977E-04_JPRB /)  
+KB(:, 2,40, 6) = (/ &
+ & 0.98059E-06_JPRB,0.17324E-04_JPRB,0.20976E-04_JPRB,0.21519E-04_JPRB,0.13169E-04_JPRB /)  
+KB(:, 3,40, 6) = (/ &
+ & 0.10196E-05_JPRB,0.18475E-04_JPRB,0.22411E-04_JPRB,0.23178E-04_JPRB,0.14387E-04_JPRB /)  
+KB(:, 4,40, 6) = (/ &
+ & 0.10496E-05_JPRB,0.19626E-04_JPRB,0.23897E-04_JPRB,0.24887E-04_JPRB,0.15625E-04_JPRB /)  
+KB(:, 5,40, 6) = (/ &
+ & 0.10706E-05_JPRB,0.20792E-04_JPRB,0.25411E-04_JPRB,0.26641E-04_JPRB,0.16871E-04_JPRB /)  
+KB(:, 1,41, 6) = (/ &
+ & 0.75206E-06_JPRB,0.13381E-04_JPRB,0.16204E-04_JPRB,0.16448E-04_JPRB,0.98582E-05_JPRB /)  
+KB(:, 2,41, 6) = (/ &
+ & 0.79368E-06_JPRB,0.14380E-04_JPRB,0.17395E-04_JPRB,0.17824E-04_JPRB,0.10873E-04_JPRB /)  
+KB(:, 3,41, 6) = (/ &
+ & 0.82742E-06_JPRB,0.15382E-04_JPRB,0.18640E-04_JPRB,0.19259E-04_JPRB,0.11916E-04_JPRB /)  
+KB(:, 4,41, 6) = (/ &
+ & 0.85390E-06_JPRB,0.16388E-04_JPRB,0.19935E-04_JPRB,0.20745E-04_JPRB,0.12979E-04_JPRB /)  
+KB(:, 5,41, 6) = (/ &
+ & 0.87281E-06_JPRB,0.17412E-04_JPRB,0.21261E-04_JPRB,0.22271E-04_JPRB,0.14053E-04_JPRB /)  
+KB(:, 1,42, 6) = (/ &
+ & 0.60591E-06_JPRB,0.11061E-04_JPRB,0.13385E-04_JPRB,0.13568E-04_JPRB,0.81045E-05_JPRB /)  
+KB(:, 2,42, 6) = (/ &
+ & 0.64182E-06_JPRB,0.11926E-04_JPRB,0.14412E-04_JPRB,0.14751E-04_JPRB,0.89661E-05_JPRB /)  
+KB(:, 3,42, 6) = (/ &
+ & 0.67101E-06_JPRB,0.12797E-04_JPRB,0.15489E-04_JPRB,0.15987E-04_JPRB,0.98578E-05_JPRB /)  
+KB(:, 4,42, 6) = (/ &
+ & 0.69427E-06_JPRB,0.13675E-04_JPRB,0.16616E-04_JPRB,0.17274E-04_JPRB,0.10770E-04_JPRB /)  
+KB(:, 5,42, 6) = (/ &
+ & 0.71122E-06_JPRB,0.14573E-04_JPRB,0.17774E-04_JPRB,0.18601E-04_JPRB,0.11690E-04_JPRB /)  
+KB(:, 1,43, 6) = (/ &
+ & 0.48565E-06_JPRB,0.90929E-05_JPRB,0.10998E-04_JPRB,0.11127E-04_JPRB,0.66136E-05_JPRB /)  
+KB(:, 2,43, 6) = (/ &
+ & 0.51703E-06_JPRB,0.98401E-05_JPRB,0.11878E-04_JPRB,0.12136E-04_JPRB,0.73431E-05_JPRB /)  
+KB(:, 3,43, 6) = (/ &
+ & 0.54246E-06_JPRB,0.10594E-04_JPRB,0.12807E-04_JPRB,0.13197E-04_JPRB,0.81019E-05_JPRB /)  
+KB(:, 4,43, 6) = (/ &
+ & 0.56309E-06_JPRB,0.11359E-04_JPRB,0.13782E-04_JPRB,0.14306E-04_JPRB,0.88812E-05_JPRB /)  
+KB(:, 5,43, 6) = (/ &
+ & 0.57854E-06_JPRB,0.12144E-04_JPRB,0.14791E-04_JPRB,0.15456E-04_JPRB,0.96685E-05_JPRB /)  
+KB(:, 1,44, 6) = (/ &
+ & 0.38777E-06_JPRB,0.74478E-05_JPRB,0.90062E-05_JPRB,0.90921E-05_JPRB,0.53709E-05_JPRB /)  
+KB(:, 2,44, 6) = (/ &
+ & 0.41522E-06_JPRB,0.80919E-05_JPRB,0.97570E-05_JPRB,0.99478E-05_JPRB,0.59889E-05_JPRB /)  
+KB(:, 3,44, 6) = (/ &
+ & 0.43761E-06_JPRB,0.87433E-05_JPRB,0.10555E-04_JPRB,0.10856E-04_JPRB,0.66332E-05_JPRB /)  
+KB(:, 4,44, 6) = (/ &
+ & 0.45584E-06_JPRB,0.94063E-05_JPRB,0.11395E-04_JPRB,0.11808E-04_JPRB,0.72955E-05_JPRB /)  
+KB(:, 5,44, 6) = (/ &
+ & 0.46990E-06_JPRB,0.10091E-04_JPRB,0.12269E-04_JPRB,0.12799E-04_JPRB,0.79696E-05_JPRB /)  
+KB(:, 1,45, 6) = (/ &
+ & 0.30888E-06_JPRB,0.60898E-05_JPRB,0.73632E-05_JPRB,0.74181E-05_JPRB,0.43535E-05_JPRB /)  
+KB(:, 2,45, 6) = (/ &
+ & 0.33291E-06_JPRB,0.66440E-05_JPRB,0.80023E-05_JPRB,0.81416E-05_JPRB,0.48741E-05_JPRB /)  
+KB(:, 3,45, 6) = (/ &
+ & 0.35255E-06_JPRB,0.72052E-05_JPRB,0.86855E-05_JPRB,0.89154E-05_JPRB,0.54207E-05_JPRB /)  
+KB(:, 4,45, 6) = (/ &
+ & 0.36854E-06_JPRB,0.77787E-05_JPRB,0.94068E-05_JPRB,0.97308E-05_JPRB,0.59833E-05_JPRB /)  
+KB(:, 5,45, 6) = (/ &
+ & 0.38125E-06_JPRB,0.83745E-05_JPRB,0.10163E-04_JPRB,0.10583E-04_JPRB,0.65578E-05_JPRB /)  
+KB(:, 1,46, 6) = (/ &
+ & 0.24494E-06_JPRB,0.49598E-05_JPRB,0.59987E-05_JPRB,0.60289E-05_JPRB,0.35123E-05_JPRB /)  
+KB(:, 2,46, 6) = (/ &
+ & 0.26595E-06_JPRB,0.54355E-05_JPRB,0.65411E-05_JPRB,0.66383E-05_JPRB,0.39494E-05_JPRB /)  
+KB(:, 3,46, 6) = (/ &
+ & 0.28328E-06_JPRB,0.59173E-05_JPRB,0.71233E-05_JPRB,0.72943E-05_JPRB,0.44113E-05_JPRB /)  
+KB(:, 4,46, 6) = (/ &
+ & 0.29735E-06_JPRB,0.64123E-05_JPRB,0.77406E-05_JPRB,0.79904E-05_JPRB,0.48883E-05_JPRB /)  
+KB(:, 5,46, 6) = (/ &
+ & 0.30876E-06_JPRB,0.69283E-05_JPRB,0.83913E-05_JPRB,0.87211E-05_JPRB,0.53766E-05_JPRB /)  
+KB(:, 1,47, 6) = (/ &
+ & 0.19287E-06_JPRB,0.40134E-05_JPRB,0.48586E-05_JPRB,0.48718E-05_JPRB,0.28114E-05_JPRB /)  
+KB(:, 2,47, 6) = (/ &
+ & 0.21123E-06_JPRB,0.44208E-05_JPRB,0.53178E-05_JPRB,0.53794E-05_JPRB,0.31781E-05_JPRB /)  
+KB(:, 3,47, 6) = (/ &
+ & 0.22658E-06_JPRB,0.48332E-05_JPRB,0.58104E-05_JPRB,0.59335E-05_JPRB,0.35646E-05_JPRB /)  
+KB(:, 4,47, 6) = (/ &
+ & 0.23912E-06_JPRB,0.52582E-05_JPRB,0.63354E-05_JPRB,0.65230E-05_JPRB,0.39676E-05_JPRB /)  
+KB(:, 5,47, 6) = (/ &
+ & 0.24931E-06_JPRB,0.57025E-05_JPRB,0.68920E-05_JPRB,0.71458E-05_JPRB,0.43826E-05_JPRB /)  
+KB(:, 1,48, 6) = (/ &
+ & 0.15132E-06_JPRB,0.32395E-05_JPRB,0.39269E-05_JPRB,0.39289E-05_JPRB,0.22458E-05_JPRB /)  
+KB(:, 2,48, 6) = (/ &
+ & 0.16716E-06_JPRB,0.35866E-05_JPRB,0.43144E-05_JPRB,0.43511E-05_JPRB,0.25512E-05_JPRB /)  
+KB(:, 3,48, 6) = (/ &
+ & 0.18076E-06_JPRB,0.39391E-05_JPRB,0.47294E-05_JPRB,0.48161E-05_JPRB,0.28746E-05_JPRB /)  
+KB(:, 4,48, 6) = (/ &
+ & 0.19194E-06_JPRB,0.43030E-05_JPRB,0.51748E-05_JPRB,0.53142E-05_JPRB,0.32135E-05_JPRB /)  
+KB(:, 5,48, 6) = (/ &
+ & 0.20099E-06_JPRB,0.46842E-05_JPRB,0.56488E-05_JPRB,0.58430E-05_JPRB,0.35644E-05_JPRB /)  
+KB(:, 1,49, 6) = (/ &
+ & 0.11828E-06_JPRB,0.26078E-05_JPRB,0.31672E-05_JPRB,0.31617E-05_JPRB,0.17894E-05_JPRB /)  
+KB(:, 2,49, 6) = (/ &
+ & 0.13185E-06_JPRB,0.29029E-05_JPRB,0.34929E-05_JPRB,0.35125E-05_JPRB,0.20423E-05_JPRB /)  
+KB(:, 3,49, 6) = (/ &
+ & 0.14378E-06_JPRB,0.32030E-05_JPRB,0.38409E-05_JPRB,0.39000E-05_JPRB,0.23121E-05_JPRB /)  
+KB(:, 4,49, 6) = (/ &
+ & 0.15369E-06_JPRB,0.35139E-05_JPRB,0.42179E-05_JPRB,0.43198E-05_JPRB,0.25971E-05_JPRB /)  
+KB(:, 5,49, 6) = (/ &
+ & 0.16176E-06_JPRB,0.38391E-05_JPRB,0.46198E-05_JPRB,0.47667E-05_JPRB,0.28929E-05_JPRB /)  
+KB(:, 1,50, 6) = (/ &
+ & 0.92362E-07_JPRB,0.20997E-05_JPRB,0.25556E-05_JPRB,0.25471E-05_JPRB,0.14267E-05_JPRB /)  
+KB(:, 2,50, 6) = (/ &
+ & 0.10390E-06_JPRB,0.23496E-05_JPRB,0.28286E-05_JPRB,0.28368E-05_JPRB,0.16356E-05_JPRB /)  
+KB(:, 3,50, 6) = (/ &
+ & 0.11421E-06_JPRB,0.26049E-05_JPRB,0.31213E-05_JPRB,0.31606E-05_JPRB,0.18609E-05_JPRB /)  
+KB(:, 4,50, 6) = (/ &
+ & 0.12297E-06_JPRB,0.28694E-05_JPRB,0.34392E-05_JPRB,0.35125E-05_JPRB,0.20996E-05_JPRB /)  
+KB(:, 5,50, 6) = (/ &
+ & 0.13012E-06_JPRB,0.31471E-05_JPRB,0.37794E-05_JPRB,0.38900E-05_JPRB,0.23486E-05_JPRB /)  
+KB(:, 1,51, 6) = (/ &
+ & 0.72029E-07_JPRB,0.16879E-05_JPRB,0.20606E-05_JPRB,0.20506E-05_JPRB,0.11365E-05_JPRB /)  
+KB(:, 2,51, 6) = (/ &
+ & 0.81717E-07_JPRB,0.18994E-05_JPRB,0.22886E-05_JPRB,0.22902E-05_JPRB,0.13081E-05_JPRB /)  
+KB(:, 3,51, 6) = (/ &
+ & 0.90547E-07_JPRB,0.21162E-05_JPRB,0.25347E-05_JPRB,0.25588E-05_JPRB,0.14964E-05_JPRB /)  
+KB(:, 4,51, 6) = (/ &
+ & 0.98231E-07_JPRB,0.23407E-05_JPRB,0.28017E-05_JPRB,0.28537E-05_JPRB,0.16958E-05_JPRB /)  
+KB(:, 5,51, 6) = (/ &
+ & 0.10454E-06_JPRB,0.25770E-05_JPRB,0.30891E-05_JPRB,0.31719E-05_JPRB,0.19053E-05_JPRB /)  
+KB(:, 1,52, 6) = (/ &
+ & 0.55994E-07_JPRB,0.13535E-05_JPRB,0.16583E-05_JPRB,0.16483E-05_JPRB,0.90215E-06_JPRB /)  
+KB(:, 2,52, 6) = (/ &
+ & 0.64065E-07_JPRB,0.15318E-05_JPRB,0.18483E-05_JPRB,0.18452E-05_JPRB,0.10447E-05_JPRB /)  
+KB(:, 3,52, 6) = (/ &
+ & 0.71601E-07_JPRB,0.17156E-05_JPRB,0.20541E-05_JPRB,0.20679E-05_JPRB,0.12005E-05_JPRB /)  
+KB(:, 4,52, 6) = (/ &
+ & 0.78265E-07_JPRB,0.19055E-05_JPRB,0.22786E-05_JPRB,0.23151E-05_JPRB,0.13673E-05_JPRB /)  
+KB(:, 5,52, 6) = (/ &
+ & 0.83827E-07_JPRB,0.21062E-05_JPRB,0.25201E-05_JPRB,0.25812E-05_JPRB,0.15426E-05_JPRB /)  
+KB(:, 1,53, 6) = (/ &
+ & 0.43376E-07_JPRB,0.10823E-05_JPRB,0.13316E-05_JPRB,0.13229E-05_JPRB,0.71387E-06_JPRB /)  
+KB(:, 2,53, 6) = (/ &
+ & 0.50078E-07_JPRB,0.12320E-05_JPRB,0.14898E-05_JPRB,0.14843E-05_JPRB,0.83196E-06_JPRB /)  
+KB(:, 3,53, 6) = (/ &
+ & 0.56440E-07_JPRB,0.13873E-05_JPRB,0.16612E-05_JPRB,0.16678E-05_JPRB,0.96085E-06_JPRB /)  
+KB(:, 4,53, 6) = (/ &
+ & 0.62188E-07_JPRB,0.15481E-05_JPRB,0.18489E-05_JPRB,0.18736E-05_JPRB,0.10995E-05_JPRB /)  
+KB(:, 5,53, 6) = (/ &
+ & 0.67072E-07_JPRB,0.17179E-05_JPRB,0.20520E-05_JPRB,0.20964E-05_JPRB,0.12465E-05_JPRB /)  
+KB(:, 1,54, 6) = (/ &
+ & 0.33662E-07_JPRB,0.86685E-06_JPRB,0.10712E-05_JPRB,0.10638E-05_JPRB,0.56675E-06_JPRB /)  
+KB(:, 2,54, 6) = (/ &
+ & 0.39188E-07_JPRB,0.99237E-06_JPRB,0.12024E-05_JPRB,0.11965E-05_JPRB,0.66407E-06_JPRB /)  
+KB(:, 3,54, 6) = (/ &
+ & 0.44517E-07_JPRB,0.11234E-05_JPRB,0.13453E-05_JPRB,0.13477E-05_JPRB,0.77015E-06_JPRB /)  
+KB(:, 4,54, 6) = (/ &
+ & 0.49410E-07_JPRB,0.12591E-05_JPRB,0.15022E-05_JPRB,0.15186E-05_JPRB,0.88568E-06_JPRB /)  
+KB(:, 5,54, 6) = (/ &
+ & 0.53662E-07_JPRB,0.14028E-05_JPRB,0.16732E-05_JPRB,0.17054E-05_JPRB,0.10088E-05_JPRB /)  
+KB(:, 1,55, 6) = (/ &
+ & 0.26107E-07_JPRB,0.69409E-06_JPRB,0.86148E-06_JPRB,0.85535E-06_JPRB,0.44993E-06_JPRB /)  
+KB(:, 2,55, 6) = (/ &
+ & 0.30648E-07_JPRB,0.79874E-06_JPRB,0.97050E-06_JPRB,0.96432E-06_JPRB,0.52987E-06_JPRB /)  
+KB(:, 3,55, 6) = (/ &
+ & 0.35070E-07_JPRB,0.90919E-06_JPRB,0.10893E-05_JPRB,0.10889E-05_JPRB,0.61727E-06_JPRB /)  
+KB(:, 4,55, 6) = (/ &
+ & 0.39223E-07_JPRB,0.10237E-05_JPRB,0.12206E-05_JPRB,0.12308E-05_JPRB,0.71345E-06_JPRB /)  
+KB(:, 5,55, 6) = (/ &
+ & 0.42897E-07_JPRB,0.11450E-05_JPRB,0.13641E-05_JPRB,0.13878E-05_JPRB,0.81614E-06_JPRB /)  
+KB(:, 1,56, 6) = (/ &
+ & 0.20183E-07_JPRB,0.55461E-06_JPRB,0.69187E-06_JPRB,0.68686E-06_JPRB,0.35634E-06_JPRB /)  
+KB(:, 2,56, 6) = (/ &
+ & 0.23906E-07_JPRB,0.64143E-06_JPRB,0.78193E-06_JPRB,0.77615E-06_JPRB,0.42133E-06_JPRB /)  
+KB(:, 3,56, 6) = (/ &
+ & 0.27573E-07_JPRB,0.73422E-06_JPRB,0.88059E-06_JPRB,0.87848E-06_JPRB,0.49387E-06_JPRB /)  
+KB(:, 4,56, 6) = (/ &
+ & 0.31066E-07_JPRB,0.83083E-06_JPRB,0.99001E-06_JPRB,0.99604E-06_JPRB,0.57362E-06_JPRB /)  
+KB(:, 5,56, 6) = (/ &
+ & 0.34213E-07_JPRB,0.93302E-06_JPRB,0.11103E-05_JPRB,0.11271E-05_JPRB,0.65906E-06_JPRB /)  
+KB(:, 1,57, 6) = (/ &
+ & 0.15553E-07_JPRB,0.44221E-06_JPRB,0.55475E-06_JPRB,0.55051E-06_JPRB,0.28158E-06_JPRB /)  
+KB(:, 2,57, 6) = (/ &
+ & 0.18597E-07_JPRB,0.51387E-06_JPRB,0.62883E-06_JPRB,0.62381E-06_JPRB,0.33432E-06_JPRB /)  
+KB(:, 3,57, 6) = (/ &
+ & 0.21627E-07_JPRB,0.59165E-06_JPRB,0.71079E-06_JPRB,0.70768E-06_JPRB,0.39423E-06_JPRB /)  
+KB(:, 4,57, 6) = (/ &
+ & 0.24548E-07_JPRB,0.67286E-06_JPRB,0.80159E-06_JPRB,0.80451E-06_JPRB,0.46009E-06_JPRB /)  
+KB(:, 5,57, 6) = (/ &
+ & 0.27223E-07_JPRB,0.75870E-06_JPRB,0.90196E-06_JPRB,0.91372E-06_JPRB,0.53126E-06_JPRB /)  
+KB(:, 1,58, 6) = (/ &
+ & 0.11989E-07_JPRB,0.35271E-06_JPRB,0.44504E-06_JPRB,0.44164E-06_JPRB,0.22247E-06_JPRB /)  
+KB(:, 2,58, 6) = (/ &
+ & 0.14473E-07_JPRB,0.41167E-06_JPRB,0.50593E-06_JPRB,0.50179E-06_JPRB,0.26557E-06_JPRB /)  
+KB(:, 3,58, 6) = (/ &
+ & 0.16959E-07_JPRB,0.47681E-06_JPRB,0.57389E-06_JPRB,0.57055E-06_JPRB,0.31488E-06_JPRB /)  
+KB(:, 4,58, 6) = (/ &
+ & 0.19386E-07_JPRB,0.54503E-06_JPRB,0.64933E-06_JPRB,0.65043E-06_JPRB,0.36927E-06_JPRB /)  
+KB(:, 5,58, 6) = (/ &
+ & 0.21655E-07_JPRB,0.61705E-06_JPRB,0.73285E-06_JPRB,0.74092E-06_JPRB,0.42823E-06_JPRB /)  
+KB(:, 1,59, 6) = (/ &
+ & 0.95745E-08_JPRB,0.28909E-06_JPRB,0.36504E-06_JPRB,0.36221E-06_JPRB,0.18143E-06_JPRB /)  
+KB(:, 2,59, 6) = (/ &
+ & 0.11602E-07_JPRB,0.33869E-06_JPRB,0.41625E-06_JPRB,0.41267E-06_JPRB,0.21754E-06_JPRB /)  
+KB(:, 3,59, 6) = (/ &
+ & 0.13639E-07_JPRB,0.39363E-06_JPRB,0.47345E-06_JPRB,0.47053E-06_JPRB,0.25873E-06_JPRB /)  
+KB(:, 4,59, 6) = (/ &
+ & 0.15635E-07_JPRB,0.45132E-06_JPRB,0.53722E-06_JPRB,0.53779E-06_JPRB,0.30436E-06_JPRB /)  
+KB(:, 5,59, 6) = (/ &
+ & 0.17515E-07_JPRB,0.51255E-06_JPRB,0.60804E-06_JPRB,0.61445E-06_JPRB,0.35395E-06_JPRB /)  
+KB(:, 1,13, 7) = (/ &
+ & 0.13818E-02_JPRB,0.53095E-02_JPRB,0.61744E-02_JPRB,0.61409E-02_JPRB,0.38201E-02_JPRB /)  
+KB(:, 2,13, 7) = (/ &
+ & 0.14927E-02_JPRB,0.54262E-02_JPRB,0.63169E-02_JPRB,0.63268E-02_JPRB,0.39787E-02_JPRB /)  
+KB(:, 3,13, 7) = (/ &
+ & 0.15882E-02_JPRB,0.55245E-02_JPRB,0.64575E-02_JPRB,0.65042E-02_JPRB,0.41285E-02_JPRB /)  
+KB(:, 4,13, 7) = (/ &
+ & 0.16683E-02_JPRB,0.56028E-02_JPRB,0.65859E-02_JPRB,0.66764E-02_JPRB,0.42766E-02_JPRB /)  
+KB(:, 5,13, 7) = (/ &
+ & 0.17364E-02_JPRB,0.56642E-02_JPRB,0.66996E-02_JPRB,0.68400E-02_JPRB,0.44196E-02_JPRB /)  
+KB(:, 1,14, 7) = (/ &
+ & 0.11439E-02_JPRB,0.44642E-02_JPRB,0.52052E-02_JPRB,0.51954E-02_JPRB,0.32185E-02_JPRB /)  
+KB(:, 2,14, 7) = (/ &
+ & 0.12322E-02_JPRB,0.45612E-02_JPRB,0.53295E-02_JPRB,0.53554E-02_JPRB,0.33544E-02_JPRB /)  
+KB(:, 3,14, 7) = (/ &
+ & 0.13082E-02_JPRB,0.46425E-02_JPRB,0.54474E-02_JPRB,0.55111E-02_JPRB,0.34869E-02_JPRB /)  
+KB(:, 4,14, 7) = (/ &
+ & 0.13723E-02_JPRB,0.47078E-02_JPRB,0.55568E-02_JPRB,0.56605E-02_JPRB,0.36178E-02_JPRB /)  
+KB(:, 5,14, 7) = (/ &
+ & 0.14273E-02_JPRB,0.47614E-02_JPRB,0.56536E-02_JPRB,0.58004E-02_JPRB,0.37445E-02_JPRB /)  
+KB(:, 1,15, 7) = (/ &
+ & 0.94600E-03_JPRB,0.37452E-02_JPRB,0.43786E-02_JPRB,0.43839E-02_JPRB,0.27064E-02_JPRB /)  
+KB(:, 2,15, 7) = (/ &
+ & 0.10166E-02_JPRB,0.38272E-02_JPRB,0.44845E-02_JPRB,0.45238E-02_JPRB,0.28259E-02_JPRB /)  
+KB(:, 3,15, 7) = (/ &
+ & 0.10772E-02_JPRB,0.38951E-02_JPRB,0.45852E-02_JPRB,0.46569E-02_JPRB,0.29424E-02_JPRB /)  
+KB(:, 4,15, 7) = (/ &
+ & 0.11287E-02_JPRB,0.39508E-02_JPRB,0.46776E-02_JPRB,0.47856E-02_JPRB,0.30573E-02_JPRB /)  
+KB(:, 5,15, 7) = (/ &
+ & 0.11727E-02_JPRB,0.39984E-02_JPRB,0.47639E-02_JPRB,0.49094E-02_JPRB,0.31707E-02_JPRB /)  
+KB(:, 1,16, 7) = (/ &
+ & 0.78170E-03_JPRB,0.31386E-02_JPRB,0.36753E-02_JPRB,0.36925E-02_JPRB,0.22749E-02_JPRB /)  
+KB(:, 2,16, 7) = (/ &
+ & 0.83828E-03_JPRB,0.32067E-02_JPRB,0.37655E-02_JPRB,0.38108E-02_JPRB,0.23791E-02_JPRB /)  
+KB(:, 3,16, 7) = (/ &
+ & 0.88677E-03_JPRB,0.32636E-02_JPRB,0.38524E-02_JPRB,0.39267E-02_JPRB,0.24809E-02_JPRB /)  
+KB(:, 4,16, 7) = (/ &
+ & 0.92814E-03_JPRB,0.33127E-02_JPRB,0.39332E-02_JPRB,0.40389E-02_JPRB,0.25819E-02_JPRB /)  
+KB(:, 5,16, 7) = (/ &
+ & 0.96342E-03_JPRB,0.33561E-02_JPRB,0.40123E-02_JPRB,0.41493E-02_JPRB,0.26825E-02_JPRB /)  
+KB(:, 1,17, 7) = (/ &
+ & 0.64513E-03_JPRB,0.26258E-02_JPRB,0.30792E-02_JPRB,0.31027E-02_JPRB,0.19109E-02_JPRB /)  
+KB(:, 2,17, 7) = (/ &
+ & 0.69065E-03_JPRB,0.26830E-02_JPRB,0.31573E-02_JPRB,0.32056E-02_JPRB,0.20013E-02_JPRB /)  
+KB(:, 3,17, 7) = (/ &
+ & 0.72951E-03_JPRB,0.27321E-02_JPRB,0.32326E-02_JPRB,0.33061E-02_JPRB,0.20905E-02_JPRB /)  
+KB(:, 4,17, 7) = (/ &
+ & 0.76279E-03_JPRB,0.27759E-02_JPRB,0.33057E-02_JPRB,0.34049E-02_JPRB,0.21791E-02_JPRB /)  
+KB(:, 5,17, 7) = (/ &
+ & 0.79127E-03_JPRB,0.28164E-02_JPRB,0.33776E-02_JPRB,0.35037E-02_JPRB,0.22680E-02_JPRB /)  
+KB(:, 1,18, 7) = (/ &
+ & 0.53216E-03_JPRB,0.21945E-02_JPRB,0.25768E-02_JPRB,0.26041E-02_JPRB,0.16047E-02_JPRB /)  
+KB(:, 2,18, 7) = (/ &
+ & 0.56878E-03_JPRB,0.22431E-02_JPRB,0.26453E-02_JPRB,0.26934E-02_JPRB,0.16829E-02_JPRB /)  
+KB(:, 3,18, 7) = (/ &
+ & 0.60002E-03_JPRB,0.22864E-02_JPRB,0.27121E-02_JPRB,0.27812E-02_JPRB,0.17605E-02_JPRB /)  
+KB(:, 4,18, 7) = (/ &
+ & 0.62666E-03_JPRB,0.23265E-02_JPRB,0.27778E-02_JPRB,0.28689E-02_JPRB,0.18389E-02_JPRB /)  
+KB(:, 5,18, 7) = (/ &
+ & 0.64956E-03_JPRB,0.23645E-02_JPRB,0.28436E-02_JPRB,0.29587E-02_JPRB,0.19175E-02_JPRB /)  
+KB(:, 1,19, 7) = (/ &
+ & 0.43878E-03_JPRB,0.18328E-02_JPRB,0.21555E-02_JPRB,0.21844E-02_JPRB,0.13470E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART22',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,19, 7) = (/ &
+ & 0.46832E-03_JPRB,0.18749E-02_JPRB,0.22160E-02_JPRB,0.22619E-02_JPRB,0.14147E-02_JPRB /)  
+KB(:, 3,19, 7) = (/ &
+ & 0.49337E-03_JPRB,0.19136E-02_JPRB,0.22752E-02_JPRB,0.23395E-02_JPRB,0.14834E-02_JPRB /)  
+KB(:, 4,19, 7) = (/ &
+ & 0.51483E-03_JPRB,0.19509E-02_JPRB,0.23344E-02_JPRB,0.24177E-02_JPRB,0.15526E-02_JPRB /)  
+KB(:, 5,19, 7) = (/ &
+ & 0.53321E-03_JPRB,0.19863E-02_JPRB,0.23950E-02_JPRB,0.24983E-02_JPRB,0.16228E-02_JPRB /)  
+KB(:, 1,20, 7) = (/ &
+ & 0.36218E-03_JPRB,0.15310E-02_JPRB,0.18044E-02_JPRB,0.18333E-02_JPRB,0.11320E-02_JPRB /)  
+KB(:, 2,20, 7) = (/ &
+ & 0.38587E-03_JPRB,0.15681E-02_JPRB,0.18573E-02_JPRB,0.19010E-02_JPRB,0.11911E-02_JPRB /)  
+KB(:, 3,20, 7) = (/ &
+ & 0.40599E-03_JPRB,0.16034E-02_JPRB,0.19105E-02_JPRB,0.19693E-02_JPRB,0.12516E-02_JPRB /)  
+KB(:, 4,20, 7) = (/ &
+ & 0.42327E-03_JPRB,0.16372E-02_JPRB,0.19642E-02_JPRB,0.20400E-02_JPRB,0.13133E-02_JPRB /)  
+KB(:, 5,20, 7) = (/ &
+ & 0.43800E-03_JPRB,0.16702E-02_JPRB,0.20196E-02_JPRB,0.21120E-02_JPRB,0.13760E-02_JPRB /)  
+KB(:, 1,21, 7) = (/ &
+ & 0.29894E-03_JPRB,0.12794E-02_JPRB,0.15109E-02_JPRB,0.15392E-02_JPRB,0.95196E-03_JPRB /)  
+KB(:, 2,21, 7) = (/ &
+ & 0.31795E-03_JPRB,0.13126E-02_JPRB,0.15578E-02_JPRB,0.15985E-02_JPRB,0.10041E-02_JPRB /)  
+KB(:, 3,21, 7) = (/ &
+ & 0.33409E-03_JPRB,0.13444E-02_JPRB,0.16054E-02_JPRB,0.16590E-02_JPRB,0.10575E-02_JPRB /)  
+KB(:, 4,21, 7) = (/ &
+ & 0.34798E-03_JPRB,0.13752E-02_JPRB,0.16542E-02_JPRB,0.17228E-02_JPRB,0.11124E-02_JPRB /)  
+KB(:, 5,21, 7) = (/ &
+ & 0.35982E-03_JPRB,0.14062E-02_JPRB,0.17046E-02_JPRB,0.17872E-02_JPRB,0.11688E-02_JPRB /)  
+KB(:, 1,22, 7) = (/ &
+ & 0.24779E-03_JPRB,0.10720E-02_JPRB,0.12687E-02_JPRB,0.12959E-02_JPRB,0.80428E-03_JPRB /)  
+KB(:, 2,22, 7) = (/ &
+ & 0.26287E-03_JPRB,0.11012E-02_JPRB,0.13104E-02_JPRB,0.13483E-02_JPRB,0.85046E-03_JPRB /)  
+KB(:, 3,22, 7) = (/ &
+ & 0.27570E-03_JPRB,0.11300E-02_JPRB,0.13532E-02_JPRB,0.14032E-02_JPRB,0.89796E-03_JPRB /)  
+KB(:, 4,22, 7) = (/ &
+ & 0.28676E-03_JPRB,0.11583E-02_JPRB,0.13978E-02_JPRB,0.14602E-02_JPRB,0.94722E-03_JPRB /)  
+KB(:, 5,22, 7) = (/ &
+ & 0.29612E-03_JPRB,0.11873E-02_JPRB,0.14439E-02_JPRB,0.15185E-02_JPRB,0.99812E-03_JPRB /)  
+KB(:, 1,23, 7) = (/ &
+ & 0.20536E-03_JPRB,0.89901E-03_JPRB,0.10666E-02_JPRB,0.10925E-02_JPRB,0.68077E-03_JPRB /)  
+KB(:, 2,23, 7) = (/ &
+ & 0.21732E-03_JPRB,0.92514E-03_JPRB,0.11037E-02_JPRB,0.11394E-02_JPRB,0.72189E-03_JPRB /)  
+KB(:, 3,23, 7) = (/ &
+ & 0.22752E-03_JPRB,0.95109E-03_JPRB,0.11426E-02_JPRB,0.11888E-02_JPRB,0.76437E-03_JPRB /)  
+KB(:, 4,23, 7) = (/ &
+ & 0.23632E-03_JPRB,0.97728E-03_JPRB,0.11832E-02_JPRB,0.12403E-02_JPRB,0.80877E-03_JPRB /)  
+KB(:, 5,23, 7) = (/ &
+ & 0.24369E-03_JPRB,0.10040E-02_JPRB,0.12260E-02_JPRB,0.12934E-02_JPRB,0.85489E-03_JPRB /)  
+KB(:, 1,24, 7) = (/ &
+ & 0.17021E-03_JPRB,0.75506E-03_JPRB,0.89800E-03_JPRB,0.92265E-03_JPRB,0.57788E-03_JPRB /)  
+KB(:, 2,24, 7) = (/ &
+ & 0.17969E-03_JPRB,0.77853E-03_JPRB,0.93149E-03_JPRB,0.96497E-03_JPRB,0.61443E-03_JPRB /)  
+KB(:, 3,24, 7) = (/ &
+ & 0.18778E-03_JPRB,0.80207E-03_JPRB,0.96680E-03_JPRB,0.10097E-02_JPRB,0.65278E-03_JPRB /)  
+KB(:, 4,24, 7) = (/ &
+ & 0.19477E-03_JPRB,0.82622E-03_JPRB,0.10041E-02_JPRB,0.10564E-02_JPRB,0.69293E-03_JPRB /)  
+KB(:, 5,24, 7) = (/ &
+ & 0.20055E-03_JPRB,0.85104E-03_JPRB,0.10439E-02_JPRB,0.11053E-02_JPRB,0.73424E-03_JPRB /)  
+KB(:, 1,25, 7) = (/ &
+ & 0.14110E-03_JPRB,0.63531E-03_JPRB,0.75746E-03_JPRB,0.78109E-03_JPRB,0.49195E-03_JPRB /)  
+KB(:, 2,25, 7) = (/ &
+ & 0.14860E-03_JPRB,0.65629E-03_JPRB,0.78801E-03_JPRB,0.81951E-03_JPRB,0.52472E-03_JPRB /)  
+KB(:, 3,25, 7) = (/ &
+ & 0.15502E-03_JPRB,0.67802E-03_JPRB,0.82018E-03_JPRB,0.86005E-03_JPRB,0.55929E-03_JPRB /)  
+KB(:, 4,25, 7) = (/ &
+ & 0.16054E-03_JPRB,0.70023E-03_JPRB,0.85487E-03_JPRB,0.90270E-03_JPRB,0.59546E-03_JPRB /)  
+KB(:, 5,25, 7) = (/ &
+ & 0.16506E-03_JPRB,0.72333E-03_JPRB,0.89213E-03_JPRB,0.94794E-03_JPRB,0.63296E-03_JPRB /)  
+KB(:, 1,26, 7) = (/ &
+ & 0.11704E-03_JPRB,0.53563E-03_JPRB,0.64089E-03_JPRB,0.66348E-03_JPRB,0.42036E-03_JPRB /)  
+KB(:, 2,26, 7) = (/ &
+ & 0.12296E-03_JPRB,0.55482E-03_JPRB,0.66859E-03_JPRB,0.69842E-03_JPRB,0.44986E-03_JPRB /)  
+KB(:, 3,26, 7) = (/ &
+ & 0.12804E-03_JPRB,0.57460E-03_JPRB,0.69838E-03_JPRB,0.73532E-03_JPRB,0.48115E-03_JPRB /)  
+KB(:, 4,26, 7) = (/ &
+ & 0.13237E-03_JPRB,0.59528E-03_JPRB,0.73081E-03_JPRB,0.77472E-03_JPRB,0.51371E-03_JPRB /)  
+KB(:, 5,26, 7) = (/ &
+ & 0.13587E-03_JPRB,0.61708E-03_JPRB,0.76562E-03_JPRB,0.81649E-03_JPRB,0.54800E-03_JPRB /)  
+KB(:, 1,27, 7) = (/ &
+ & 0.97037E-04_JPRB,0.45263E-03_JPRB,0.54353E-03_JPRB,0.56528E-03_JPRB,0.36031E-03_JPRB /)  
+KB(:, 2,27, 7) = (/ &
+ & 0.10171E-03_JPRB,0.47018E-03_JPRB,0.56899E-03_JPRB,0.59710E-03_JPRB,0.38698E-03_JPRB /)  
+KB(:, 3,27, 7) = (/ &
+ & 0.10572E-03_JPRB,0.48833E-03_JPRB,0.59675E-03_JPRB,0.63096E-03_JPRB,0.41505E-03_JPRB /)  
+KB(:, 4,27, 7) = (/ &
+ & 0.10911E-03_JPRB,0.50767E-03_JPRB,0.62713E-03_JPRB,0.66736E-03_JPRB,0.44466E-03_JPRB /)  
+KB(:, 5,27, 7) = (/ &
+ & 0.11182E-03_JPRB,0.52830E-03_JPRB,0.65949E-03_JPRB,0.70600E-03_JPRB,0.47625E-03_JPRB /)  
+KB(:, 1,28, 7) = (/ &
+ & 0.80419E-04_JPRB,0.38349E-03_JPRB,0.46224E-03_JPRB,0.48308E-03_JPRB,0.30982E-03_JPRB /)  
+KB(:, 2,28, 7) = (/ &
+ & 0.84110E-04_JPRB,0.39943E-03_JPRB,0.48584E-03_JPRB,0.51214E-03_JPRB,0.33386E-03_JPRB /)  
+KB(:, 3,28, 7) = (/ &
+ & 0.87283E-04_JPRB,0.41636E-03_JPRB,0.51189E-03_JPRB,0.54353E-03_JPRB,0.35924E-03_JPRB /)  
+KB(:, 4,28, 7) = (/ &
+ & 0.89914E-04_JPRB,0.43456E-03_JPRB,0.54020E-03_JPRB,0.57698E-03_JPRB,0.38635E-03_JPRB /)  
+KB(:, 5,28, 7) = (/ &
+ & 0.92003E-04_JPRB,0.45406E-03_JPRB,0.57030E-03_JPRB,0.61286E-03_JPRB,0.41553E-03_JPRB /)  
+KB(:, 1,29, 7) = (/ &
+ & 0.66637E-04_JPRB,0.32580E-03_JPRB,0.39453E-03_JPRB,0.41439E-03_JPRB,0.26738E-03_JPRB /)  
+KB(:, 2,29, 7) = (/ &
+ & 0.69552E-04_JPRB,0.34052E-03_JPRB,0.41660E-03_JPRB,0.44116E-03_JPRB,0.28904E-03_JPRB /)  
+KB(:, 3,29, 7) = (/ &
+ & 0.72042E-04_JPRB,0.35633E-03_JPRB,0.44102E-03_JPRB,0.47005E-03_JPRB,0.31218E-03_JPRB /)  
+KB(:, 4,29, 7) = (/ &
+ & 0.74082E-04_JPRB,0.37351E-03_JPRB,0.46731E-03_JPRB,0.50108E-03_JPRB,0.33714E-03_JPRB /)  
+KB(:, 5,29, 7) = (/ &
+ & 0.75692E-04_JPRB,0.39190E-03_JPRB,0.49529E-03_JPRB,0.53447E-03_JPRB,0.36421E-03_JPRB /)  
+KB(:, 1,30, 7) = (/ &
+ & 0.55194E-04_JPRB,0.27757E-03_JPRB,0.33804E-03_JPRB,0.35670E-03_JPRB,0.23148E-03_JPRB /)  
+KB(:, 2,30, 7) = (/ &
+ & 0.57489E-04_JPRB,0.29130E-03_JPRB,0.35876E-03_JPRB,0.38143E-03_JPRB,0.25115E-03_JPRB /)  
+KB(:, 3,30, 7) = (/ &
+ & 0.59445E-04_JPRB,0.30619E-03_JPRB,0.38148E-03_JPRB,0.40810E-03_JPRB,0.27242E-03_JPRB /)  
+KB(:, 4,30, 7) = (/ &
+ & 0.61024E-04_JPRB,0.32233E-03_JPRB,0.40578E-03_JPRB,0.43698E-03_JPRB,0.29552E-03_JPRB /)  
+KB(:, 5,30, 7) = (/ &
+ & 0.62251E-04_JPRB,0.33969E-03_JPRB,0.43185E-03_JPRB,0.46830E-03_JPRB,0.32052E-03_JPRB /)  
+KB(:, 1,31, 7) = (/ &
+ & 0.45701E-04_JPRB,0.23736E-03_JPRB,0.29086E-03_JPRB,0.30834E-03_JPRB,0.20114E-03_JPRB /)  
+KB(:, 2,31, 7) = (/ &
+ & 0.47516E-04_JPRB,0.25020E-03_JPRB,0.31032E-03_JPRB,0.33113E-03_JPRB,0.21916E-03_JPRB /)  
+KB(:, 3,31, 7) = (/ &
+ & 0.49034E-04_JPRB,0.26424E-03_JPRB,0.33131E-03_JPRB,0.35593E-03_JPRB,0.23874E-03_JPRB /)  
+KB(:, 4,31, 7) = (/ &
+ & 0.50247E-04_JPRB,0.27943E-03_JPRB,0.35395E-03_JPRB,0.38299E-03_JPRB,0.26024E-03_JPRB /)  
+KB(:, 5,31, 7) = (/ &
+ & 0.51186E-04_JPRB,0.29578E-03_JPRB,0.37829E-03_JPRB,0.41250E-03_JPRB,0.28341E-03_JPRB /)  
+KB(:, 1,32, 7) = (/ &
+ & 0.37829E-04_JPRB,0.20379E-03_JPRB,0.25145E-03_JPRB,0.26761E-03_JPRB,0.17549E-03_JPRB /)  
+KB(:, 2,32, 7) = (/ &
+ & 0.39256E-04_JPRB,0.21585E-03_JPRB,0.26951E-03_JPRB,0.28871E-03_JPRB,0.19207E-03_JPRB /)  
+KB(:, 3,32, 7) = (/ &
+ & 0.40434E-04_JPRB,0.22904E-03_JPRB,0.28903E-03_JPRB,0.31192E-03_JPRB,0.21034E-03_JPRB /)  
+KB(:, 4,32, 7) = (/ &
+ & 0.41367E-04_JPRB,0.24332E-03_JPRB,0.31020E-03_JPRB,0.33744E-03_JPRB,0.23024E-03_JPRB /)  
+KB(:, 5,32, 7) = (/ &
+ & 0.42072E-04_JPRB,0.25873E-03_JPRB,0.33309E-03_JPRB,0.36527E-03_JPRB,0.25179E-03_JPRB /)  
+KB(:, 1,33, 7) = (/ &
+ & 0.31302E-04_JPRB,0.17572E-03_JPRB,0.21830E-03_JPRB,0.23321E-03_JPRB,0.15375E-03_JPRB /)  
+KB(:, 2,33, 7) = (/ &
+ & 0.32419E-04_JPRB,0.18706E-03_JPRB,0.23504E-03_JPRB,0.25291E-03_JPRB,0.16915E-03_JPRB /)  
+KB(:, 3,33, 7) = (/ &
+ & 0.33327E-04_JPRB,0.19940E-03_JPRB,0.25328E-03_JPRB,0.27479E-03_JPRB,0.18617E-03_JPRB /)  
+KB(:, 4,33, 7) = (/ &
+ & 0.34039E-04_JPRB,0.21283E-03_JPRB,0.27315E-03_JPRB,0.29887E-03_JPRB,0.20465E-03_JPRB /)  
+KB(:, 5,33, 7) = (/ &
+ & 0.34568E-04_JPRB,0.22731E-03_JPRB,0.29474E-03_JPRB,0.32519E-03_JPRB,0.22485E-03_JPRB /)  
+KB(:, 1,34, 7) = (/ &
+ & 0.25851E-04_JPRB,0.15182E-03_JPRB,0.18976E-03_JPRB,0.20353E-03_JPRB,0.13483E-03_JPRB /)  
+KB(:, 2,34, 7) = (/ &
+ & 0.26731E-04_JPRB,0.16241E-03_JPRB,0.20531E-03_JPRB,0.22199E-03_JPRB,0.14918E-03_JPRB /)  
+KB(:, 3,34, 7) = (/ &
+ & 0.27437E-04_JPRB,0.17395E-03_JPRB,0.22237E-03_JPRB,0.24258E-03_JPRB,0.16491E-03_JPRB /)  
+KB(:, 4,34, 7) = (/ &
+ & 0.27988E-04_JPRB,0.18656E-03_JPRB,0.24113E-03_JPRB,0.26529E-03_JPRB,0.18217E-03_JPRB /)  
+KB(:, 5,34, 7) = (/ &
+ & 0.28384E-04_JPRB,0.20017E-03_JPRB,0.26144E-03_JPRB,0.29020E-03_JPRB,0.20116E-03_JPRB /)  
+KB(:, 1,35, 7) = (/ &
+ & 0.21271E-04_JPRB,0.13078E-03_JPRB,0.16426E-03_JPRB,0.17685E-03_JPRB,0.11756E-03_JPRB /)  
+KB(:, 2,35, 7) = (/ &
+ & 0.21975E-04_JPRB,0.14058E-03_JPRB,0.17865E-03_JPRB,0.19403E-03_JPRB,0.13072E-03_JPRB /)  
+KB(:, 3,35, 7) = (/ &
+ & 0.22533E-04_JPRB,0.15132E-03_JPRB,0.19456E-03_JPRB,0.21323E-03_JPRB,0.14523E-03_JPRB /)  
+KB(:, 4,35, 7) = (/ &
+ & 0.22966E-04_JPRB,0.16307E-03_JPRB,0.21206E-03_JPRB,0.23454E-03_JPRB,0.16133E-03_JPRB /)  
+KB(:, 5,35, 7) = (/ &
+ & 0.23274E-04_JPRB,0.17579E-03_JPRB,0.23112E-03_JPRB,0.25800E-03_JPRB,0.17911E-03_JPRB /)  
+KB(:, 1,36, 7) = (/ &
+ & 0.17431E-04_JPRB,0.11205E-03_JPRB,0.14128E-03_JPRB,0.15260E-03_JPRB,0.10161E-03_JPRB /)  
+KB(:, 2,36, 7) = (/ &
+ & 0.18004E-04_JPRB,0.12103E-03_JPRB,0.15448E-03_JPRB,0.16840E-03_JPRB,0.11356E-03_JPRB /)  
+KB(:, 3,36, 7) = (/ &
+ & 0.18458E-04_JPRB,0.13095E-03_JPRB,0.16918E-03_JPRB,0.18616E-03_JPRB,0.12687E-03_JPRB /)  
+KB(:, 4,36, 7) = (/ &
+ & 0.18810E-04_JPRB,0.14182E-03_JPRB,0.18539E-03_JPRB,0.20596E-03_JPRB,0.14179E-03_JPRB /)  
+KB(:, 5,36, 7) = (/ &
+ & 0.19059E-04_JPRB,0.15363E-03_JPRB,0.20317E-03_JPRB,0.22788E-03_JPRB,0.15831E-03_JPRB /)  
+KB(:, 1,37, 7) = (/ &
+ & 0.14204E-04_JPRB,0.95010E-04_JPRB,0.12008E-03_JPRB,0.12996E-03_JPRB,0.86482E-04_JPRB /)  
+KB(:, 2,37, 7) = (/ &
+ & 0.14685E-04_JPRB,0.10313E-03_JPRB,0.13200E-03_JPRB,0.14426E-03_JPRB,0.97179E-04_JPRB /)  
+KB(:, 3,37, 7) = (/ &
+ & 0.15069E-04_JPRB,0.11214E-03_JPRB,0.14536E-03_JPRB,0.16042E-03_JPRB,0.10922E-03_JPRB /)  
+KB(:, 4,37, 7) = (/ &
+ & 0.15369E-04_JPRB,0.12211E-03_JPRB,0.16020E-03_JPRB,0.17855E-03_JPRB,0.12282E-03_JPRB /)  
+KB(:, 5,37, 7) = (/ &
+ & 0.15586E-04_JPRB,0.13296E-03_JPRB,0.17661E-03_JPRB,0.19876E-03_JPRB,0.13797E-03_JPRB /)  
+KB(:, 1,38, 7) = (/ &
+ & 0.11571E-04_JPRB,0.80545E-04_JPRB,0.10206E-03_JPRB,0.11063E-03_JPRB,0.73563E-04_JPRB /)  
+KB(:, 2,38, 7) = (/ &
+ & 0.11976E-04_JPRB,0.87875E-04_JPRB,0.11281E-03_JPRB,0.12357E-03_JPRB,0.83149E-04_JPRB /)  
+KB(:, 3,38, 7) = (/ &
+ & 0.12301E-04_JPRB,0.96063E-04_JPRB,0.12495E-03_JPRB,0.13829E-03_JPRB,0.94026E-04_JPRB /)  
+KB(:, 4,38, 7) = (/ &
+ & 0.12557E-04_JPRB,0.10518E-03_JPRB,0.13851E-03_JPRB,0.15487E-03_JPRB,0.10642E-03_JPRB /)  
+KB(:, 5,38, 7) = (/ &
+ & 0.12744E-04_JPRB,0.11515E-03_JPRB,0.15364E-03_JPRB,0.17352E-03_JPRB,0.12029E-03_JPRB /)  
+KB(:, 1,39, 7) = (/ &
+ & 0.94254E-05_JPRB,0.68333E-04_JPRB,0.86798E-04_JPRB,0.94247E-04_JPRB,0.62604E-04_JPRB /)  
+KB(:, 2,39, 7) = (/ &
+ & 0.97657E-05_JPRB,0.74945E-04_JPRB,0.96495E-04_JPRB,0.10595E-03_JPRB,0.71185E-04_JPRB /)  
+KB(:, 3,39, 7) = (/ &
+ & 0.10041E-04_JPRB,0.82376E-04_JPRB,0.10752E-03_JPRB,0.11934E-03_JPRB,0.81022E-04_JPRB /)  
+KB(:, 4,39, 7) = (/ &
+ & 0.10258E-04_JPRB,0.90687E-04_JPRB,0.11992E-03_JPRB,0.13453E-03_JPRB,0.92315E-04_JPRB /)  
+KB(:, 5,39, 7) = (/ &
+ & 0.10419E-04_JPRB,0.99852E-04_JPRB,0.13387E-03_JPRB,0.15177E-03_JPRB,0.10504E-03_JPRB /)  
+KB(:, 1,40, 7) = (/ &
+ & 0.76452E-05_JPRB,0.57428E-04_JPRB,0.73021E-04_JPRB,0.79333E-04_JPRB,0.52568E-04_JPRB /)  
+KB(:, 2,40, 7) = (/ &
+ & 0.79354E-05_JPRB,0.63315E-04_JPRB,0.81650E-04_JPRB,0.89752E-04_JPRB,0.60144E-04_JPRB /)  
+KB(:, 3,40, 7) = (/ &
+ & 0.81739E-05_JPRB,0.69961E-04_JPRB,0.91542E-04_JPRB,0.10176E-03_JPRB,0.68905E-04_JPRB /)  
+KB(:, 4,40, 7) = (/ &
+ & 0.83626E-05_JPRB,0.77456E-04_JPRB,0.10275E-03_JPRB,0.11552E-03_JPRB,0.79059E-04_JPRB /)  
+KB(:, 5,40, 7) = (/ &
+ & 0.85064E-05_JPRB,0.85795E-04_JPRB,0.11542E-03_JPRB,0.13128E-03_JPRB,0.90578E-04_JPRB /)  
+KB(:, 1,41, 7) = (/ &
+ & 0.61953E-05_JPRB,0.48163E-04_JPRB,0.61287E-04_JPRB,0.66616E-04_JPRB,0.44011E-04_JPRB /)  
+KB(:, 2,41, 7) = (/ &
+ & 0.64418E-05_JPRB,0.53383E-04_JPRB,0.68934E-04_JPRB,0.75842E-04_JPRB,0.50670E-04_JPRB /)  
+KB(:, 3,41, 7) = (/ &
+ & 0.66484E-05_JPRB,0.59312E-04_JPRB,0.77785E-04_JPRB,0.86580E-04_JPRB,0.58448E-04_JPRB /)  
+KB(:, 4,41, 7) = (/ &
+ & 0.68134E-05_JPRB,0.66054E-04_JPRB,0.87876E-04_JPRB,0.98995E-04_JPRB,0.67543E-04_JPRB /)  
+KB(:, 5,41, 7) = (/ &
+ & 0.69402E-05_JPRB,0.73614E-04_JPRB,0.99378E-04_JPRB,0.11337E-03_JPRB,0.77942E-04_JPRB /)  
+KB(:, 1,42, 7) = (/ &
+ & 0.50170E-05_JPRB,0.40358E-04_JPRB,0.51378E-04_JPRB,0.55875E-04_JPRB,0.36794E-04_JPRB /)  
+KB(:, 2,42, 7) = (/ &
+ & 0.52266E-05_JPRB,0.44971E-04_JPRB,0.58141E-04_JPRB,0.64024E-04_JPRB,0.42639E-04_JPRB /)  
+KB(:, 3,42, 7) = (/ &
+ & 0.54046E-05_JPRB,0.50250E-04_JPRB,0.66034E-04_JPRB,0.73601E-04_JPRB,0.49527E-04_JPRB /)  
+KB(:, 4,42, 7) = (/ &
+ & 0.55484E-05_JPRB,0.56302E-04_JPRB,0.75111E-04_JPRB,0.84788E-04_JPRB,0.57654E-04_JPRB /)  
+KB(:, 5,42, 7) = (/ &
+ & 0.56600E-05_JPRB,0.63153E-04_JPRB,0.85551E-04_JPRB,0.97898E-04_JPRB,0.67040E-04_JPRB /)  
+KB(:, 1,43, 7) = (/ &
+ & 0.40498E-05_JPRB,0.33563E-04_JPRB,0.42716E-04_JPRB,0.46433E-04_JPRB,0.30447E-04_JPRB /)  
+KB(:, 2,43, 7) = (/ &
+ & 0.42291E-05_JPRB,0.37603E-04_JPRB,0.48619E-04_JPRB,0.53551E-04_JPRB,0.35516E-04_JPRB /)  
+KB(:, 3,43, 7) = (/ &
+ & 0.43833E-05_JPRB,0.42260E-04_JPRB,0.55585E-04_JPRB,0.61999E-04_JPRB,0.41549E-04_JPRB /)  
+KB(:, 4,43, 7) = (/ &
+ & 0.45099E-05_JPRB,0.47650E-04_JPRB,0.63668E-04_JPRB,0.71964E-04_JPRB,0.48728E-04_JPRB /)  
+KB(:, 5,43, 7) = (/ &
+ & 0.46096E-05_JPRB,0.53790E-04_JPRB,0.73053E-04_JPRB,0.83779E-04_JPRB,0.57105E-04_JPRB /)  
+KB(:, 1,44, 7) = (/ &
+ & 0.32616E-05_JPRB,0.27781E-04_JPRB,0.35335E-04_JPRB,0.38366E-04_JPRB,0.25032E-04_JPRB /)  
+KB(:, 2,44, 7) = (/ &
+ & 0.34164E-05_JPRB,0.31296E-04_JPRB,0.40444E-04_JPRB,0.44531E-04_JPRB,0.29399E-04_JPRB /)  
+KB(:, 3,44, 7) = (/ &
+ & 0.35491E-05_JPRB,0.35375E-04_JPRB,0.46540E-04_JPRB,0.51925E-04_JPRB,0.34633E-04_JPRB /)  
+KB(:, 4,44, 7) = (/ &
+ & 0.36610E-05_JPRB,0.40146E-04_JPRB,0.53687E-04_JPRB,0.60738E-04_JPRB,0.40935E-04_JPRB /)  
+KB(:, 5,44, 7) = (/ &
+ & 0.37500E-05_JPRB,0.45618E-04_JPRB,0.62061E-04_JPRB,0.71298E-04_JPRB,0.48356E-04_JPRB /)  
+KB(:, 1,45, 7) = (/ &
+ & 0.26238E-05_JPRB,0.22952E-04_JPRB,0.29162E-04_JPRB,0.31630E-04_JPRB,0.20522E-04_JPRB /)  
+KB(:, 2,45, 7) = (/ &
+ & 0.27571E-05_JPRB,0.25992E-04_JPRB,0.33567E-04_JPRB,0.36938E-04_JPRB,0.24268E-04_JPRB /)  
+KB(:, 3,45, 7) = (/ &
+ & 0.28713E-05_JPRB,0.29549E-04_JPRB,0.38881E-04_JPRB,0.43383E-04_JPRB,0.28792E-04_JPRB /)  
+KB(:, 4,45, 7) = (/ &
+ & 0.29693E-05_JPRB,0.33760E-04_JPRB,0.45177E-04_JPRB,0.51149E-04_JPRB,0.34303E-04_JPRB /)  
+KB(:, 5,45, 7) = (/ &
+ & 0.30482E-05_JPRB,0.38627E-04_JPRB,0.52624E-04_JPRB,0.60551E-04_JPRB,0.40857E-04_JPRB /)  
+KB(:, 1,46, 7) = (/ &
+ & 0.21051E-05_JPRB,0.18867E-04_JPRB,0.23935E-04_JPRB,0.25917E-04_JPRB,0.16710E-04_JPRB /)  
+KB(:, 2,46, 7) = (/ &
+ & 0.22206E-05_JPRB,0.21480E-04_JPRB,0.27705E-04_JPRB,0.30449E-04_JPRB,0.19893E-04_JPRB /)  
+KB(:, 3,46, 7) = (/ &
+ & 0.23191E-05_JPRB,0.24557E-04_JPRB,0.32298E-04_JPRB,0.36019E-04_JPRB,0.23769E-04_JPRB /)  
+KB(:, 4,46, 7) = (/ &
+ & 0.24046E-05_JPRB,0.28239E-04_JPRB,0.37798E-04_JPRB,0.42807E-04_JPRB,0.28545E-04_JPRB /)  
+KB(:, 5,46, 7) = (/ &
+ & 0.24746E-05_JPRB,0.32543E-04_JPRB,0.44374E-04_JPRB,0.51109E-04_JPRB,0.34299E-04_JPRB /)  
+KB(:, 1,47, 7) = (/ &
+ & 0.16817E-05_JPRB,0.15386E-04_JPRB,0.19464E-04_JPRB,0.21024E-04_JPRB,0.13455E-04_JPRB /)  
+KB(:, 2,47, 7) = (/ &
+ & 0.17822E-05_JPRB,0.17605E-04_JPRB,0.22652E-04_JPRB,0.24840E-04_JPRB,0.16124E-04_JPRB /)  
+KB(:, 3,47, 7) = (/ &
+ & 0.18680E-05_JPRB,0.20236E-04_JPRB,0.26567E-04_JPRB,0.29585E-04_JPRB,0.19401E-04_JPRB /)  
+KB(:, 4,47, 7) = (/ &
+ & 0.19423E-05_JPRB,0.23413E-04_JPRB,0.31317E-04_JPRB,0.35433E-04_JPRB,0.23476E-04_JPRB /)  
+KB(:, 5,47, 7) = (/ &
+ & 0.20049E-05_JPRB,0.27181E-04_JPRB,0.37054E-04_JPRB,0.42668E-04_JPRB,0.28466E-04_JPRB /)  
+KB(:, 1,48, 7) = (/ &
+ & 0.13405E-05_JPRB,0.12514E-04_JPRB,0.15779E-04_JPRB,0.16993E-04_JPRB,0.10791E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART23',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,48, 7) = (/ &
+ & 0.14280E-05_JPRB,0.14385E-04_JPRB,0.18460E-04_JPRB,0.20187E-04_JPRB,0.13017E-04_JPRB /)  
+KB(:, 3,48, 7) = (/ &
+ & 0.15026E-05_JPRB,0.16623E-04_JPRB,0.21773E-04_JPRB,0.24205E-04_JPRB,0.15768E-04_JPRB /)  
+KB(:, 4,48, 7) = (/ &
+ & 0.15671E-05_JPRB,0.19354E-04_JPRB,0.25854E-04_JPRB,0.29218E-04_JPRB,0.19227E-04_JPRB /)  
+KB(:, 5,48, 7) = (/ &
+ & 0.16224E-05_JPRB,0.22629E-04_JPRB,0.30833E-04_JPRB,0.35479E-04_JPRB,0.23525E-04_JPRB /)  
+KB(:, 1,49, 7) = (/ &
+ & 0.10664E-05_JPRB,0.10149E-04_JPRB,0.12751E-04_JPRB,0.13684E-04_JPRB,0.86188E-05_JPRB /)  
+KB(:, 2,49, 7) = (/ &
+ & 0.11418E-05_JPRB,0.11720E-04_JPRB,0.14999E-04_JPRB,0.16352E-04_JPRB,0.10467E-04_JPRB /)  
+KB(:, 3,49, 7) = (/ &
+ & 0.12069E-05_JPRB,0.13612E-04_JPRB,0.17780E-04_JPRB,0.19716E-04_JPRB,0.12759E-04_JPRB /)  
+KB(:, 4,49, 7) = (/ &
+ & 0.12630E-05_JPRB,0.15945E-04_JPRB,0.21262E-04_JPRB,0.23990E-04_JPRB,0.15676E-04_JPRB /)  
+KB(:, 5,49, 7) = (/ &
+ & 0.13113E-05_JPRB,0.18775E-04_JPRB,0.25560E-04_JPRB,0.29382E-04_JPRB,0.19352E-04_JPRB /)  
+KB(:, 1,50, 7) = (/ &
+ & 0.84808E-06_JPRB,0.82401E-05_JPRB,0.10318E-04_JPRB,0.11036E-04_JPRB,0.68939E-05_JPRB /)  
+KB(:, 2,50, 7) = (/ &
+ & 0.91269E-06_JPRB,0.95513E-05_JPRB,0.12189E-04_JPRB,0.13247E-04_JPRB,0.84209E-05_JPRB /)  
+KB(:, 3,50, 7) = (/ &
+ & 0.96928E-06_JPRB,0.11160E-04_JPRB,0.14539E-04_JPRB,0.16084E-04_JPRB,0.10336E-04_JPRB /)  
+KB(:, 4,50, 7) = (/ &
+ & 0.10177E-05_JPRB,0.13146E-04_JPRB,0.17498E-04_JPRB,0.19711E-04_JPRB,0.12790E-04_JPRB /)  
+KB(:, 5,50, 7) = (/ &
+ & 0.10595E-05_JPRB,0.15592E-04_JPRB,0.21207E-04_JPRB,0.24356E-04_JPRB,0.15929E-04_JPRB /)  
+KB(:, 1,51, 7) = (/ &
+ & 0.67378E-06_JPRB,0.66826E-05_JPRB,0.83381E-05_JPRB,0.88828E-05_JPRB,0.55052E-05_JPRB /)  
+KB(:, 2,51, 7) = (/ &
+ & 0.72873E-06_JPRB,0.77753E-05_JPRB,0.98905E-05_JPRB,0.10714E-04_JPRB,0.67636E-05_JPRB /)  
+KB(:, 3,51, 7) = (/ &
+ & 0.77763E-06_JPRB,0.91368E-05_JPRB,0.11866E-04_JPRB,0.13091E-04_JPRB,0.83559E-05_JPRB /)  
+KB(:, 4,51, 7) = (/ &
+ & 0.81953E-06_JPRB,0.10824E-04_JPRB,0.14378E-04_JPRB,0.16168E-04_JPRB,0.10417E-04_JPRB /)  
+KB(:, 5,51, 7) = (/ &
+ & 0.85561E-06_JPRB,0.12933E-04_JPRB,0.17571E-04_JPRB,0.20159E-04_JPRB,0.13087E-04_JPRB /)  
+KB(:, 1,52, 7) = (/ &
+ & 0.53444E-06_JPRB,0.54066E-05_JPRB,0.67197E-05_JPRB,0.71297E-05_JPRB,0.43814E-05_JPRB /)  
+KB(:, 2,52, 7) = (/ &
+ & 0.58095E-06_JPRB,0.63124E-05_JPRB,0.79989E-05_JPRB,0.86346E-05_JPRB,0.54122E-05_JPRB /)  
+KB(:, 3,52, 7) = (/ &
+ & 0.62282E-06_JPRB,0.74561E-05_JPRB,0.96489E-05_JPRB,0.10614E-04_JPRB,0.67289E-05_JPRB /)  
+KB(:, 4,52, 7) = (/ &
+ & 0.65913E-06_JPRB,0.88917E-05_JPRB,0.11780E-04_JPRB,0.13220E-04_JPRB,0.84497E-05_JPRB /)  
+KB(:, 5,52, 7) = (/ &
+ & 0.69032E-06_JPRB,0.10691E-04_JPRB,0.14504E-04_JPRB,0.16615E-04_JPRB,0.10706E-04_JPRB /)  
+KB(:, 1,53, 7) = (/ &
+ & 0.42309E-06_JPRB,0.43635E-05_JPRB,0.54017E-05_JPRB,0.57047E-05_JPRB,0.34733E-05_JPRB /)  
+KB(:, 2,53, 7) = (/ &
+ & 0.46223E-06_JPRB,0.51097E-05_JPRB,0.64465E-05_JPRB,0.69322E-05_JPRB,0.43120E-05_JPRB /)  
+KB(:, 3,53, 7) = (/ &
+ & 0.49791E-06_JPRB,0.60643E-05_JPRB,0.78166E-05_JPRB,0.85690E-05_JPRB,0.53948E-05_JPRB /)  
+KB(:, 4,53, 7) = (/ &
+ & 0.52942E-06_JPRB,0.72726E-05_JPRB,0.96042E-05_JPRB,0.10748E-04_JPRB,0.68211E-05_JPRB /)  
+KB(:, 5,53, 7) = (/ &
+ & 0.55635E-06_JPRB,0.88074E-05_JPRB,0.11924E-04_JPRB,0.13632E-04_JPRB,0.87176E-05_JPRB /)  
+KB(:, 1,54, 7) = (/ &
+ & 0.33525E-06_JPRB,0.35291E-05_JPRB,0.43533E-05_JPRB,0.45783E-05_JPRB,0.27618E-05_JPRB /)  
+KB(:, 2,54, 7) = (/ &
+ & 0.36801E-06_JPRB,0.41464E-05_JPRB,0.52098E-05_JPRB,0.55821E-05_JPRB,0.34468E-05_JPRB /)  
+KB(:, 3,54, 7) = (/ &
+ & 0.39830E-06_JPRB,0.49442E-05_JPRB,0.63495E-05_JPRB,0.69393E-05_JPRB,0.43390E-05_JPRB /)  
+KB(:, 4,54, 7) = (/ &
+ & 0.42530E-06_JPRB,0.59638E-05_JPRB,0.78520E-05_JPRB,0.87652E-05_JPRB,0.55238E-05_JPRB /)  
+KB(:, 5,54, 7) = (/ &
+ & 0.44850E-06_JPRB,0.72711E-05_JPRB,0.98256E-05_JPRB,0.11213E-04_JPRB,0.71180E-05_JPRB /)  
+KB(:, 1,55, 7) = (/ &
+ & 0.26561E-06_JPRB,0.28535E-05_JPRB,0.35091E-05_JPRB,0.36747E-05_JPRB,0.21953E-05_JPRB /)  
+KB(:, 2,55, 7) = (/ &
+ & 0.29299E-06_JPRB,0.33630E-05_JPRB,0.42093E-05_JPRB,0.44935E-05_JPRB,0.27543E-05_JPRB /)  
+KB(:, 3,55, 7) = (/ &
+ & 0.31855E-06_JPRB,0.40286E-05_JPRB,0.51555E-05_JPRB,0.56160E-05_JPRB,0.34885E-05_JPRB /)  
+KB(:, 4,55, 7) = (/ &
+ & 0.34149E-06_JPRB,0.48884E-05_JPRB,0.64166E-05_JPRB,0.71432E-05_JPRB,0.44712E-05_JPRB /)  
+KB(:, 5,55, 7) = (/ &
+ & 0.36149E-06_JPRB,0.60082E-05_JPRB,0.81053E-05_JPRB,0.92338E-05_JPRB,0.58114E-05_JPRB /)  
+KB(:, 1,56, 7) = (/ &
+ & 0.21017E-06_JPRB,0.23019E-05_JPRB,0.28217E-05_JPRB,0.29420E-05_JPRB,0.17403E-05_JPRB /)  
+KB(:, 2,56, 7) = (/ &
+ & 0.23294E-06_JPRB,0.27215E-05_JPRB,0.33922E-05_JPRB,0.36070E-05_JPRB,0.21943E-05_JPRB /)  
+KB(:, 3,56, 7) = (/ &
+ & 0.25436E-06_JPRB,0.32732E-05_JPRB,0.41720E-05_JPRB,0.45291E-05_JPRB,0.27950E-05_JPRB /)  
+KB(:, 4,56, 7) = (/ &
+ & 0.27383E-06_JPRB,0.39951E-05_JPRB,0.52252E-05_JPRB,0.57990E-05_JPRB,0.36054E-05_JPRB /)  
+KB(:, 5,56, 7) = (/ &
+ & 0.29106E-06_JPRB,0.49429E-05_JPRB,0.66518E-05_JPRB,0.75613E-05_JPRB,0.47246E-05_JPRB /)  
+KB(:, 1,57, 7) = (/ &
+ & 0.16608E-06_JPRB,0.18531E-05_JPRB,0.22639E-05_JPRB,0.23504E-05_JPRB,0.13760E-05_JPRB /)  
+KB(:, 2,57, 7) = (/ &
+ & 0.18488E-06_JPRB,0.21971E-05_JPRB,0.27271E-05_JPRB,0.28870E-05_JPRB,0.17421E-05_JPRB /)  
+KB(:, 3,57, 7) = (/ &
+ & 0.20279E-06_JPRB,0.26520E-05_JPRB,0.33659E-05_JPRB,0.36392E-05_JPRB,0.22316E-05_JPRB /)  
+KB(:, 4,57, 7) = (/ &
+ & 0.21931E-06_JPRB,0.32543E-05_JPRB,0.42391E-05_JPRB,0.46891E-05_JPRB,0.28949E-05_JPRB /)  
+KB(:, 5,57, 7) = (/ &
+ & 0.23404E-06_JPRB,0.40527E-05_JPRB,0.54380E-05_JPRB,0.61649E-05_JPRB,0.38234E-05_JPRB /)  
+KB(:, 1,58, 7) = (/ &
+ & 0.13131E-06_JPRB,0.14927E-05_JPRB,0.18179E-05_JPRB,0.18787E-05_JPRB,0.10893E-05_JPRB /)  
+KB(:, 2,58, 7) = (/ &
+ & 0.14677E-06_JPRB,0.17748E-05_JPRB,0.21946E-05_JPRB,0.23122E-05_JPRB,0.13839E-05_JPRB /)  
+KB(:, 3,58, 7) = (/ &
+ & 0.16171E-06_JPRB,0.21494E-05_JPRB,0.27171E-05_JPRB,0.29256E-05_JPRB,0.17827E-05_JPRB /)  
+KB(:, 4,58, 7) = (/ &
+ & 0.17567E-06_JPRB,0.26514E-05_JPRB,0.34407E-05_JPRB,0.37923E-05_JPRB,0.23269E-05_JPRB /)  
+KB(:, 5,58, 7) = (/ &
+ & 0.18816E-06_JPRB,0.33237E-05_JPRB,0.44466E-05_JPRB,0.50280E-05_JPRB,0.30958E-05_JPRB /)  
+KB(:, 1,59, 7) = (/ &
+ & 0.10599E-06_JPRB,0.12374E-05_JPRB,0.15060E-05_JPRB,0.15543E-05_JPRB,0.89750E-06_JPRB /)  
+KB(:, 2,59, 7) = (/ &
+ & 0.11868E-06_JPRB,0.14795E-05_JPRB,0.18285E-05_JPRB,0.19251E-05_JPRB,0.11479E-05_JPRB /)  
+KB(:, 3,59, 7) = (/ &
+ & 0.13098E-06_JPRB,0.18042E-05_JPRB,0.22807E-05_JPRB,0.24552E-05_JPRB,0.14897E-05_JPRB /)  
+KB(:, 4,59, 7) = (/ &
+ & 0.14252E-06_JPRB,0.22439E-05_JPRB,0.29152E-05_JPRB,0.32163E-05_JPRB,0.19622E-05_JPRB /)  
+KB(:, 5,59, 7) = (/ &
+ & 0.15291E-06_JPRB,0.28396E-05_JPRB,0.38087E-05_JPRB,0.43138E-05_JPRB,0.26387E-05_JPRB /)  
+KB(:, 1,13, 8) = (/ &
+ & 0.83673E-02_JPRB,0.17454E-01_JPRB,0.20213E-01_JPRB,0.20132E-01_JPRB,0.13810E-01_JPRB /)  
+KB(:, 2,13, 8) = (/ &
+ & 0.85039E-02_JPRB,0.17824E-01_JPRB,0.20684E-01_JPRB,0.20616E-01_JPRB,0.14219E-01_JPRB /)  
+KB(:, 3,13, 8) = (/ &
+ & 0.86129E-02_JPRB,0.18196E-01_JPRB,0.21163E-01_JPRB,0.21143E-01_JPRB,0.14616E-01_JPRB /)  
+KB(:, 4,13, 8) = (/ &
+ & 0.86913E-02_JPRB,0.18563E-01_JPRB,0.21635E-01_JPRB,0.21674E-01_JPRB,0.14991E-01_JPRB /)  
+KB(:, 5,13, 8) = (/ &
+ & 0.87301E-02_JPRB,0.18916E-01_JPRB,0.22103E-01_JPRB,0.22198E-01_JPRB,0.15351E-01_JPRB /)  
+KB(:, 1,14, 8) = (/ &
+ & 0.69346E-02_JPRB,0.14952E-01_JPRB,0.17380E-01_JPRB,0.17342E-01_JPRB,0.11803E-01_JPRB /)  
+KB(:, 2,14, 8) = (/ &
+ & 0.70328E-02_JPRB,0.15276E-01_JPRB,0.17808E-01_JPRB,0.17830E-01_JPRB,0.12181E-01_JPRB /)  
+KB(:, 3,14, 8) = (/ &
+ & 0.71113E-02_JPRB,0.15604E-01_JPRB,0.18240E-01_JPRB,0.18321E-01_JPRB,0.12544E-01_JPRB /)  
+KB(:, 4,14, 8) = (/ &
+ & 0.71580E-02_JPRB,0.15937E-01_JPRB,0.18667E-01_JPRB,0.18814E-01_JPRB,0.12884E-01_JPRB /)  
+KB(:, 5,14, 8) = (/ &
+ & 0.71785E-02_JPRB,0.16228E-01_JPRB,0.19093E-01_JPRB,0.19299E-01_JPRB,0.13230E-01_JPRB /)  
+KB(:, 1,15, 8) = (/ &
+ & 0.57307E-02_JPRB,0.12763E-01_JPRB,0.14890E-01_JPRB,0.14912E-01_JPRB,0.10073E-01_JPRB /)  
+KB(:, 2,15, 8) = (/ &
+ & 0.58017E-02_JPRB,0.13052E-01_JPRB,0.15278E-01_JPRB,0.15370E-01_JPRB,0.10417E-01_JPRB /)  
+KB(:, 3,15, 8) = (/ &
+ & 0.58533E-02_JPRB,0.13347E-01_JPRB,0.15666E-01_JPRB,0.15828E-01_JPRB,0.10742E-01_JPRB /)  
+KB(:, 4,15, 8) = (/ &
+ & 0.58826E-02_JPRB,0.13628E-01_JPRB,0.16057E-01_JPRB,0.16289E-01_JPRB,0.11066E-01_JPRB /)  
+KB(:, 5,15, 8) = (/ &
+ & 0.58933E-02_JPRB,0.13873E-01_JPRB,0.16444E-01_JPRB,0.16739E-01_JPRB,0.11388E-01_JPRB /)  
+KB(:, 1,16, 8) = (/ &
+ & 0.47247E-02_JPRB,0.10863E-01_JPRB,0.12723E-01_JPRB,0.12788E-01_JPRB,0.85822E-02_JPRB /)  
+KB(:, 2,16, 8) = (/ &
+ & 0.47755E-02_JPRB,0.11124E-01_JPRB,0.13076E-01_JPRB,0.13211E-01_JPRB,0.88907E-02_JPRB /)  
+KB(:, 3,16, 8) = (/ &
+ & 0.48095E-02_JPRB,0.11385E-01_JPRB,0.13431E-01_JPRB,0.13641E-01_JPRB,0.91903E-02_JPRB /)  
+KB(:, 4,16, 8) = (/ &
+ & 0.48283E-02_JPRB,0.11622E-01_JPRB,0.13790E-01_JPRB,0.14066E-01_JPRB,0.94912E-02_JPRB /)  
+KB(:, 5,16, 8) = (/ &
+ & 0.48333E-02_JPRB,0.11841E-01_JPRB,0.14135E-01_JPRB,0.14487E-01_JPRB,0.97938E-02_JPRB /)  
+KB(:, 1,17, 8) = (/ &
+ & 0.38881E-02_JPRB,0.92313E-02_JPRB,0.10848E-01_JPRB,0.10942E-01_JPRB,0.73006E-02_JPRB /)  
+KB(:, 2,17, 8) = (/ &
+ & 0.39238E-02_JPRB,0.94601E-02_JPRB,0.11171E-01_JPRB,0.11333E-01_JPRB,0.75792E-02_JPRB /)  
+KB(:, 3,17, 8) = (/ &
+ & 0.39468E-02_JPRB,0.96874E-02_JPRB,0.11500E-01_JPRB,0.11732E-01_JPRB,0.78560E-02_JPRB /)  
+KB(:, 4,17, 8) = (/ &
+ & 0.39590E-02_JPRB,0.98962E-02_JPRB,0.11826E-01_JPRB,0.12129E-01_JPRB,0.81376E-02_JPRB /)  
+KB(:, 5,17, 8) = (/ &
+ & 0.39612E-02_JPRB,0.10094E-01_JPRB,0.12144E-01_JPRB,0.12521E-01_JPRB,0.84293E-02_JPRB /)  
+KB(:, 1,18, 8) = (/ &
+ & 0.31953E-02_JPRB,0.78309E-02_JPRB,0.92361E-02_JPRB,0.93523E-02_JPRB,0.62048E-02_JPRB /)  
+KB(:, 2,18, 8) = (/ &
+ & 0.32208E-02_JPRB,0.80372E-02_JPRB,0.95350E-02_JPRB,0.97148E-02_JPRB,0.64590E-02_JPRB /)  
+KB(:, 3,18, 8) = (/ &
+ & 0.32365E-02_JPRB,0.82342E-02_JPRB,0.98382E-02_JPRB,0.10082E-01_JPRB,0.67154E-02_JPRB /)  
+KB(:, 4,18, 8) = (/ &
+ & 0.32447E-02_JPRB,0.84229E-02_JPRB,0.10138E-01_JPRB,0.10450E-01_JPRB,0.69838E-02_JPRB /)  
+KB(:, 5,18, 8) = (/ &
+ & 0.32450E-02_JPRB,0.86061E-02_JPRB,0.10427E-01_JPRB,0.10814E-01_JPRB,0.72626E-02_JPRB /)  
+KB(:, 1,19, 8) = (/ &
+ & 0.26235E-02_JPRB,0.66399E-02_JPRB,0.78599E-02_JPRB,0.79875E-02_JPRB,0.52728E-02_JPRB /)  
+KB(:, 2,19, 8) = (/ &
+ & 0.26414E-02_JPRB,0.68231E-02_JPRB,0.81351E-02_JPRB,0.83230E-02_JPRB,0.55070E-02_JPRB /)  
+KB(:, 3,19, 8) = (/ &
+ & 0.26530E-02_JPRB,0.70004E-02_JPRB,0.84138E-02_JPRB,0.86629E-02_JPRB,0.57468E-02_JPRB /)  
+KB(:, 4,19, 8) = (/ &
+ & 0.26583E-02_JPRB,0.71756E-02_JPRB,0.86887E-02_JPRB,0.90029E-02_JPRB,0.60006E-02_JPRB /)  
+KB(:, 5,19, 8) = (/ &
+ & 0.26573E-02_JPRB,0.73457E-02_JPRB,0.89549E-02_JPRB,0.93422E-02_JPRB,0.62658E-02_JPRB /)  
+KB(:, 1,20, 8) = (/ &
+ & 0.21528E-02_JPRB,0.56300E-02_JPRB,0.66928E-02_JPRB,0.68275E-02_JPRB,0.44887E-02_JPRB /)  
+KB(:, 2,20, 8) = (/ &
+ & 0.21659E-02_JPRB,0.57965E-02_JPRB,0.69483E-02_JPRB,0.71374E-02_JPRB,0.47044E-02_JPRB /)  
+KB(:, 3,20, 8) = (/ &
+ & 0.21742E-02_JPRB,0.59617E-02_JPRB,0.72036E-02_JPRB,0.74503E-02_JPRB,0.49314E-02_JPRB /)  
+KB(:, 4,20, 8) = (/ &
+ & 0.21777E-02_JPRB,0.61251E-02_JPRB,0.74562E-02_JPRB,0.77657E-02_JPRB,0.51700E-02_JPRB /)  
+KB(:, 5,20, 8) = (/ &
+ & 0.21757E-02_JPRB,0.62850E-02_JPRB,0.77065E-02_JPRB,0.80891E-02_JPRB,0.54225E-02_JPRB /)  
+KB(:, 1,21, 8) = (/ &
+ & 0.17659E-02_JPRB,0.47778E-02_JPRB,0.57054E-02_JPRB,0.58417E-02_JPRB,0.38271E-02_JPRB /)  
+KB(:, 2,21, 8) = (/ &
+ & 0.17754E-02_JPRB,0.49299E-02_JPRB,0.59393E-02_JPRB,0.61257E-02_JPRB,0.40264E-02_JPRB /)  
+KB(:, 3,21, 8) = (/ &
+ & 0.17817E-02_JPRB,0.50836E-02_JPRB,0.61750E-02_JPRB,0.64148E-02_JPRB,0.42397E-02_JPRB /)  
+KB(:, 4,21, 8) = (/ &
+ & 0.17836E-02_JPRB,0.52370E-02_JPRB,0.64083E-02_JPRB,0.67125E-02_JPRB,0.44647E-02_JPRB /)  
+KB(:, 5,21, 8) = (/ &
+ & 0.17811E-02_JPRB,0.53876E-02_JPRB,0.66480E-02_JPRB,0.70201E-02_JPRB,0.47076E-02_JPRB /)  
+KB(:, 1,22, 8) = (/ &
+ & 0.14486E-02_JPRB,0.40679E-02_JPRB,0.48826E-02_JPRB,0.50205E-02_JPRB,0.32805E-02_JPRB /)  
+KB(:, 2,22, 8) = (/ &
+ & 0.14554E-02_JPRB,0.42085E-02_JPRB,0.50980E-02_JPRB,0.52827E-02_JPRB,0.34669E-02_JPRB /)  
+KB(:, 3,22, 8) = (/ &
+ & 0.14597E-02_JPRB,0.43515E-02_JPRB,0.53153E-02_JPRB,0.55535E-02_JPRB,0.36674E-02_JPRB /)  
+KB(:, 4,22, 8) = (/ &
+ & 0.14606E-02_JPRB,0.44957E-02_JPRB,0.55353E-02_JPRB,0.58376E-02_JPRB,0.38816E-02_JPRB /)  
+KB(:, 5,22, 8) = (/ &
+ & 0.14577E-02_JPRB,0.46383E-02_JPRB,0.57672E-02_JPRB,0.61302E-02_JPRB,0.41156E-02_JPRB /)  
+KB(:, 1,23, 8) = (/ &
+ & 0.11880E-02_JPRB,0.34698E-02_JPRB,0.41861E-02_JPRB,0.43248E-02_JPRB,0.28199E-02_JPRB /)  
+KB(:, 2,23, 8) = (/ &
+ & 0.11929E-02_JPRB,0.36010E-02_JPRB,0.43862E-02_JPRB,0.45689E-02_JPRB,0.29956E-02_JPRB /)  
+KB(:, 3,23, 8) = (/ &
+ & 0.11958E-02_JPRB,0.37344E-02_JPRB,0.45877E-02_JPRB,0.48273E-02_JPRB,0.31843E-02_JPRB /)  
+KB(:, 4,23, 8) = (/ &
+ & 0.11959E-02_JPRB,0.38697E-02_JPRB,0.48007E-02_JPRB,0.50965E-02_JPRB,0.33903E-02_JPRB /)  
+KB(:, 5,23, 8) = (/ &
+ & 0.11929E-02_JPRB,0.40068E-02_JPRB,0.50232E-02_JPRB,0.53791E-02_JPRB,0.36136E-02_JPRB /)  
+KB(:, 1,24, 8) = (/ &
+ & 0.97406E-03_JPRB,0.29675E-02_JPRB,0.36006E-02_JPRB,0.37379E-02_JPRB,0.24344E-02_JPRB /)  
+KB(:, 2,24, 8) = (/ &
+ & 0.97756E-03_JPRB,0.30896E-02_JPRB,0.37850E-02_JPRB,0.39686E-02_JPRB,0.25994E-02_JPRB /)  
+KB(:, 3,24, 8) = (/ &
+ & 0.97946E-03_JPRB,0.32150E-02_JPRB,0.39775E-02_JPRB,0.42135E-02_JPRB,0.27776E-02_JPRB /)  
+KB(:, 4,24, 8) = (/ &
+ & 0.97899E-03_JPRB,0.33430E-02_JPRB,0.41825E-02_JPRB,0.44708E-02_JPRB,0.29753E-02_JPRB /)  
+KB(:, 5,24, 8) = (/ &
+ & 0.97615E-03_JPRB,0.34761E-02_JPRB,0.43966E-02_JPRB,0.47457E-02_JPRB,0.31900E-02_JPRB /)  
+KB(:, 1,25, 8) = (/ &
+ & 0.79856E-03_JPRB,0.25459E-02_JPRB,0.31077E-02_JPRB,0.32447E-02_JPRB,0.21114E-02_JPRB /)  
+KB(:, 2,25, 8) = (/ &
+ & 0.80110E-03_JPRB,0.26605E-02_JPRB,0.32805E-02_JPRB,0.34640E-02_JPRB,0.22664E-02_JPRB /)  
+KB(:, 3,25, 8) = (/ &
+ & 0.80222E-03_JPRB,0.27778E-02_JPRB,0.34666E-02_JPRB,0.36958E-02_JPRB,0.24376E-02_JPRB /)  
+KB(:, 4,25, 8) = (/ &
+ & 0.80129E-03_JPRB,0.29014E-02_JPRB,0.36623E-02_JPRB,0.39444E-02_JPRB,0.26269E-02_JPRB /)  
+KB(:, 5,25, 8) = (/ &
+ & 0.79857E-03_JPRB,0.30302E-02_JPRB,0.38698E-02_JPRB,0.42126E-02_JPRB,0.28335E-02_JPRB /)  
+KB(:, 1,26, 8) = (/ &
+ & 0.65460E-03_JPRB,0.21933E-02_JPRB,0.26944E-02_JPRB,0.28334E-02_JPRB,0.18417E-02_JPRB /)  
+KB(:, 2,26, 8) = (/ &
+ & 0.65639E-03_JPRB,0.23003E-02_JPRB,0.28599E-02_JPRB,0.30409E-02_JPRB,0.19886E-02_JPRB /)  
+KB(:, 3,26, 8) = (/ &
+ & 0.65685E-03_JPRB,0.24132E-02_JPRB,0.30384E-02_JPRB,0.32639E-02_JPRB,0.21545E-02_JPRB /)  
+KB(:, 4,26, 8) = (/ &
+ & 0.65577E-03_JPRB,0.25323E-02_JPRB,0.32275E-02_JPRB,0.35055E-02_JPRB,0.23366E-02_JPRB /)  
+KB(:, 5,26, 8) = (/ &
+ & 0.65325E-03_JPRB,0.26572E-02_JPRB,0.34294E-02_JPRB,0.37687E-02_JPRB,0.25365E-02_JPRB /)  
+KB(:, 1,27, 8) = (/ &
+ & 0.53655E-03_JPRB,0.18966E-02_JPRB,0.23474E-02_JPRB,0.24873E-02_JPRB,0.16142E-02_JPRB /)  
+KB(:, 2,27, 8) = (/ &
+ & 0.53777E-03_JPRB,0.19979E-02_JPRB,0.25069E-02_JPRB,0.26849E-02_JPRB,0.17570E-02_JPRB /)  
+KB(:, 3,27, 8) = (/ &
+ & 0.53783E-03_JPRB,0.21070E-02_JPRB,0.26778E-02_JPRB,0.29010E-02_JPRB,0.19163E-02_JPRB /)  
+KB(:, 4,27, 8) = (/ &
+ & 0.53661E-03_JPRB,0.22218E-02_JPRB,0.28609E-02_JPRB,0.31373E-02_JPRB,0.20925E-02_JPRB /)  
+KB(:, 5,27, 8) = (/ &
+ & 0.53426E-03_JPRB,0.23437E-02_JPRB,0.30591E-02_JPRB,0.33953E-02_JPRB,0.22871E-02_JPRB /)  
+KB(:, 1,28, 8) = (/ &
+ & 0.43973E-03_JPRB,0.16467E-02_JPRB,0.20564E-02_JPRB,0.21950E-02_JPRB,0.14243E-02_JPRB /)  
+KB(:, 2,28, 8) = (/ &
+ & 0.44046E-03_JPRB,0.17445E-02_JPRB,0.22094E-02_JPRB,0.23854E-02_JPRB,0.15622E-02_JPRB /)  
+KB(:, 3,28, 8) = (/ &
+ & 0.44027E-03_JPRB,0.18495E-02_JPRB,0.23737E-02_JPRB,0.25954E-02_JPRB,0.17160E-02_JPRB /)  
+KB(:, 4,28, 8) = (/ &
+ & 0.43902E-03_JPRB,0.19607E-02_JPRB,0.25527E-02_JPRB,0.28280E-02_JPRB,0.18875E-02_JPRB /)  
+KB(:, 5,28, 8) = (/ &
+ & 0.43690E-03_JPRB,0.20797E-02_JPRB,0.27483E-02_JPRB,0.30809E-02_JPRB,0.20783E-02_JPRB /)  
+KB(:, 1,29, 8) = (/ &
+ & 0.36035E-03_JPRB,0.14377E-02_JPRB,0.18129E-02_JPRB,0.19502E-02_JPRB,0.12665E-02_JPRB /)  
+KB(:, 2,29, 8) = (/ &
+ & 0.36078E-03_JPRB,0.15322E-02_JPRB,0.19593E-02_JPRB,0.21346E-02_JPRB,0.13993E-02_JPRB /)  
+KB(:, 3,29, 8) = (/ &
+ & 0.36035E-03_JPRB,0.16333E-02_JPRB,0.21194E-02_JPRB,0.23407E-02_JPRB,0.15489E-02_JPRB /)  
+KB(:, 4,29, 8) = (/ &
+ & 0.35917E-03_JPRB,0.17416E-02_JPRB,0.22958E-02_JPRB,0.25693E-02_JPRB,0.17169E-02_JPRB /)  
+KB(:, 5,29, 8) = (/ &
+ & 0.35722E-03_JPRB,0.18583E-02_JPRB,0.24893E-02_JPRB,0.28199E-02_JPRB,0.19058E-02_JPRB /)  
+KB(:, 1,30, 8) = (/ &
+ & 0.29522E-03_JPRB,0.12625E-02_JPRB,0.16073E-02_JPRB,0.17444E-02_JPRB,0.11337E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART24',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,30, 8) = (/ &
+ & 0.29544E-03_JPRB,0.13534E-02_JPRB,0.17493E-02_JPRB,0.19248E-02_JPRB,0.12629E-02_JPRB /)  
+KB(:, 3,30, 8) = (/ &
+ & 0.29489E-03_JPRB,0.14513E-02_JPRB,0.19064E-02_JPRB,0.21281E-02_JPRB,0.14093E-02_JPRB /)  
+KB(:, 4,30, 8) = (/ &
+ & 0.29377E-03_JPRB,0.15575E-02_JPRB,0.20813E-02_JPRB,0.23536E-02_JPRB,0.15751E-02_JPRB /)  
+KB(:, 5,30, 8) = (/ &
+ & 0.29201E-03_JPRB,0.16725E-02_JPRB,0.22728E-02_JPRB,0.26031E-02_JPRB,0.17633E-02_JPRB /)  
+KB(:, 1,31, 8) = (/ &
+ & 0.24186E-03_JPRB,0.11155E-02_JPRB,0.14353E-02_JPRB,0.15729E-02_JPRB,0.10232E-02_JPRB /)  
+KB(:, 2,31, 8) = (/ &
+ & 0.24189E-03_JPRB,0.12032E-02_JPRB,0.15739E-02_JPRB,0.17508E-02_JPRB,0.11498E-02_JPRB /)  
+KB(:, 3,31, 8) = (/ &
+ & 0.24130E-03_JPRB,0.12988E-02_JPRB,0.17296E-02_JPRB,0.19516E-02_JPRB,0.12942E-02_JPRB /)  
+KB(:, 4,31, 8) = (/ &
+ & 0.24025E-03_JPRB,0.14034E-02_JPRB,0.19030E-02_JPRB,0.21764E-02_JPRB,0.14594E-02_JPRB /)  
+KB(:, 5,31, 8) = (/ &
+ & 0.23866E-03_JPRB,0.15170E-02_JPRB,0.20940E-02_JPRB,0.24270E-02_JPRB,0.16471E-02_JPRB /)  
+KB(:, 1,32, 8) = (/ &
+ & 0.19811E-03_JPRB,0.99188E-03_JPRB,0.12914E-02_JPRB,0.14311E-02_JPRB,0.93157E-03_JPRB /)  
+KB(:, 2,32, 8) = (/ &
+ & 0.19799E-03_JPRB,0.10771E-02_JPRB,0.14282E-02_JPRB,0.16073E-02_JPRB,0.10562E-02_JPRB /)  
+KB(:, 3,32, 8) = (/ &
+ & 0.19741E-03_JPRB,0.11711E-02_JPRB,0.15828E-02_JPRB,0.18068E-02_JPRB,0.11999E-02_JPRB /)  
+KB(:, 4,32, 8) = (/ &
+ & 0.19645E-03_JPRB,0.12746E-02_JPRB,0.17559E-02_JPRB,0.20320E-02_JPRB,0.13654E-02_JPRB /)  
+KB(:, 5,32, 8) = (/ &
+ & 0.19503E-03_JPRB,0.13871E-02_JPRB,0.19473E-02_JPRB,0.22851E-02_JPRB,0.15533E-02_JPRB /)  
+KB(:, 1,33, 8) = (/ &
+ & 0.16225E-03_JPRB,0.88803E-03_JPRB,0.11717E-02_JPRB,0.13138E-02_JPRB,0.85556E-03_JPRB /)  
+KB(:, 2,33, 8) = (/ &
+ & 0.16205E-03_JPRB,0.97174E-03_JPRB,0.13077E-02_JPRB,0.14890E-02_JPRB,0.97930E-03_JPRB /)  
+KB(:, 3,33, 8) = (/ &
+ & 0.16148E-03_JPRB,0.10648E-02_JPRB,0.14621E-02_JPRB,0.16891E-02_JPRB,0.11237E-02_JPRB /)  
+KB(:, 4,33, 8) = (/ &
+ & 0.16059E-03_JPRB,0.11673E-02_JPRB,0.16357E-02_JPRB,0.19165E-02_JPRB,0.12896E-02_JPRB /)  
+KB(:, 5,33, 8) = (/ &
+ & 0.15934E-03_JPRB,0.12795E-02_JPRB,0.18288E-02_JPRB,0.21736E-02_JPRB,0.14791E-02_JPRB /)  
+KB(:, 1,34, 8) = (/ &
+ & 0.13286E-03_JPRB,0.79835E-03_JPRB,0.10683E-02_JPRB,0.12117E-02_JPRB,0.78908E-03_JPRB /)  
+KB(:, 2,34, 8) = (/ &
+ & 0.13261E-03_JPRB,0.88066E-03_JPRB,0.12036E-02_JPRB,0.13865E-02_JPRB,0.91252E-03_JPRB /)  
+KB(:, 3,34, 8) = (/ &
+ & 0.13209E-03_JPRB,0.97270E-03_JPRB,0.13580E-02_JPRB,0.15871E-02_JPRB,0.10570E-02_JPRB /)  
+KB(:, 4,34, 8) = (/ &
+ & 0.13130E-03_JPRB,0.10748E-02_JPRB,0.15318E-02_JPRB,0.18171E-02_JPRB,0.12236E-02_JPRB /)  
+KB(:, 5,34, 8) = (/ &
+ & 0.13022E-03_JPRB,0.11866E-02_JPRB,0.17264E-02_JPRB,0.20786E-02_JPRB,0.14148E-02_JPRB /)  
+KB(:, 1,35, 8) = (/ &
+ & 0.10879E-03_JPRB,0.71567E-03_JPRB,0.97075E-03_JPRB,0.11118E-02_JPRB,0.72353E-03_JPRB /)  
+KB(:, 2,35, 8) = (/ &
+ & 0.10855E-03_JPRB,0.79625E-03_JPRB,0.11041E-02_JPRB,0.12845E-02_JPRB,0.84540E-03_JPRB /)  
+KB(:, 3,35, 8) = (/ &
+ & 0.10811E-03_JPRB,0.88686E-03_JPRB,0.12569E-02_JPRB,0.14847E-02_JPRB,0.98831E-03_JPRB /)  
+KB(:, 4,35, 8) = (/ &
+ & 0.10743E-03_JPRB,0.98761E-03_JPRB,0.14300E-02_JPRB,0.17157E-02_JPRB,0.11541E-02_JPRB /)  
+KB(:, 5,35, 8) = (/ &
+ & 0.10650E-03_JPRB,0.10987E-02_JPRB,0.16251E-02_JPRB,0.19799E-02_JPRB,0.13460E-02_JPRB /)  
+KB(:, 1,36, 8) = (/ &
+ & 0.89091E-04_JPRB,0.63773E-03_JPRB,0.87525E-03_JPRB,0.10106E-02_JPRB,0.65643E-03_JPRB /)  
+KB(:, 2,36, 8) = (/ &
+ & 0.88892E-04_JPRB,0.71572E-03_JPRB,0.10050E-02_JPRB,0.11794E-02_JPRB,0.77482E-03_JPRB /)  
+KB(:, 3,36, 8) = (/ &
+ & 0.88510E-04_JPRB,0.80390E-03_JPRB,0.11544E-02_JPRB,0.13768E-02_JPRB,0.91437E-03_JPRB /)  
+KB(:, 4,36, 8) = (/ &
+ & 0.87951E-04_JPRB,0.90253E-03_JPRB,0.13255E-02_JPRB,0.16063E-02_JPRB,0.10779E-02_JPRB /)  
+KB(:, 5,36, 8) = (/ &
+ & 0.87175E-04_JPRB,0.10120E-02_JPRB,0.15187E-02_JPRB,0.18703E-02_JPRB,0.12677E-02_JPRB /)  
+KB(:, 1,37, 8) = (/ &
+ & 0.72967E-04_JPRB,0.56051E-03_JPRB,0.77586E-03_JPRB,0.90139E-03_JPRB,0.58319E-03_JPRB /)  
+KB(:, 2,37, 8) = (/ &
+ & 0.72818E-04_JPRB,0.63459E-03_JPRB,0.89962E-03_JPRB,0.10627E-02_JPRB,0.69545E-03_JPRB /)  
+KB(:, 3,37, 8) = (/ &
+ & 0.72523E-04_JPRB,0.71909E-03_JPRB,0.10433E-02_JPRB,0.12533E-02_JPRB,0.82896E-03_JPRB /)  
+KB(:, 4,37, 8) = (/ &
+ & 0.72087E-04_JPRB,0.81427E-03_JPRB,0.12092E-02_JPRB,0.14766E-02_JPRB,0.98671E-03_JPRB /)  
+KB(:, 5,37, 8) = (/ &
+ & 0.71486E-04_JPRB,0.92093E-03_JPRB,0.13977E-02_JPRB,0.17355E-02_JPRB,0.11708E-02_JPRB /)  
+KB(:, 1,38, 8) = (/ &
+ & 0.59765E-04_JPRB,0.49320E-03_JPRB,0.68844E-03_JPRB,0.80478E-03_JPRB,0.51849E-03_JPRB /)  
+KB(:, 2,38, 8) = (/ &
+ & 0.59660E-04_JPRB,0.56354E-03_JPRB,0.80640E-03_JPRB,0.95876E-03_JPRB,0.62466E-03_JPRB /)  
+KB(:, 3,38, 8) = (/ &
+ & 0.59436E-04_JPRB,0.64440E-03_JPRB,0.94454E-03_JPRB,0.11426E-02_JPRB,0.75236E-03_JPRB /)  
+KB(:, 4,38, 8) = (/ &
+ & 0.59102E-04_JPRB,0.73631E-03_JPRB,0.11052E-02_JPRB,0.13599E-02_JPRB,0.90433E-03_JPRB /)  
+KB(:, 5,38, 8) = (/ &
+ & 0.58635E-04_JPRB,0.84009E-03_JPRB,0.12891E-02_JPRB,0.16134E-02_JPRB,0.10829E-02_JPRB /)  
+KB(:, 1,39, 8) = (/ &
+ & 0.48956E-04_JPRB,0.43499E-03_JPRB,0.61231E-03_JPRB,0.72017E-03_JPRB,0.46189E-03_JPRB /)  
+KB(:, 2,39, 8) = (/ &
+ & 0.48890E-04_JPRB,0.50181E-03_JPRB,0.72478E-03_JPRB,0.86730E-03_JPRB,0.56244E-03_JPRB /)  
+KB(:, 3,39, 8) = (/ &
+ & 0.48717E-04_JPRB,0.57923E-03_JPRB,0.85778E-03_JPRB,0.10448E-02_JPRB,0.68464E-03_JPRB /)  
+KB(:, 4,39, 8) = (/ &
+ & 0.48451E-04_JPRB,0.66799E-03_JPRB,0.10132E-02_JPRB,0.12563E-02_JPRB,0.83112E-03_JPRB /)  
+KB(:, 5,39, 8) = (/ &
+ & 0.48085E-04_JPRB,0.76898E-03_JPRB,0.11928E-02_JPRB,0.15047E-02_JPRB,0.10044E-02_JPRB /)  
+KB(:, 1,40, 8) = (/ &
+ & 0.40107E-04_JPRB,0.37860E-03_JPRB,0.53596E-03_JPRB,0.63302E-03_JPRB,0.40350E-03_JPRB /)  
+KB(:, 2,40, 8) = (/ &
+ & 0.40068E-04_JPRB,0.44099E-03_JPRB,0.64126E-03_JPRB,0.77105E-03_JPRB,0.49697E-03_JPRB /)  
+KB(:, 3,40, 8) = (/ &
+ & 0.39945E-04_JPRB,0.51399E-03_JPRB,0.76694E-03_JPRB,0.93934E-03_JPRB,0.61166E-03_JPRB /)  
+KB(:, 4,40, 8) = (/ &
+ & 0.39752E-04_JPRB,0.59851E-03_JPRB,0.91528E-03_JPRB,0.11416E-02_JPRB,0.75037E-03_JPRB /)  
+KB(:, 5,40, 8) = (/ &
+ & 0.39469E-04_JPRB,0.69544E-03_JPRB,0.10880E-02_JPRB,0.13809E-02_JPRB,0.91593E-03_JPRB /)  
+KB(:, 1,41, 8) = (/ &
+ & 0.32851E-04_JPRB,0.32878E-03_JPRB,0.46786E-03_JPRB,0.55469E-03_JPRB,0.35120E-03_JPRB /)  
+KB(:, 2,41, 8) = (/ &
+ & 0.32839E-04_JPRB,0.38683E-03_JPRB,0.56607E-03_JPRB,0.68394E-03_JPRB,0.43769E-03_JPRB /)  
+KB(:, 3,41, 8) = (/ &
+ & 0.32749E-04_JPRB,0.45542E-03_JPRB,0.68444E-03_JPRB,0.84259E-03_JPRB,0.54490E-03_JPRB /)  
+KB(:, 4,41, 8) = (/ &
+ & 0.32607E-04_JPRB,0.53564E-03_JPRB,0.82547E-03_JPRB,0.10352E-02_JPRB,0.67585E-03_JPRB /)  
+KB(:, 5,41, 8) = (/ &
+ & 0.32395E-04_JPRB,0.62841E-03_JPRB,0.99133E-03_JPRB,0.12652E-02_JPRB,0.83332E-03_JPRB /)  
+KB(:, 1,42, 8) = (/ &
+ & 0.26906E-04_JPRB,0.28534E-03_JPRB,0.40805E-03_JPRB,0.48535E-03_JPRB,0.30526E-03_JPRB /)  
+KB(:, 2,42, 8) = (/ &
+ & 0.26908E-04_JPRB,0.33922E-03_JPRB,0.49950E-03_JPRB,0.60603E-03_JPRB,0.38505E-03_JPRB /)  
+KB(:, 3,42, 8) = (/ &
+ & 0.26846E-04_JPRB,0.40361E-03_JPRB,0.61076E-03_JPRB,0.75564E-03_JPRB,0.48524E-03_JPRB /)  
+KB(:, 4,42, 8) = (/ &
+ & 0.26739E-04_JPRB,0.47953E-03_JPRB,0.74454E-03_JPRB,0.93882E-03_JPRB,0.60861E-03_JPRB /)  
+KB(:, 5,42, 8) = (/ &
+ & 0.26585E-04_JPRB,0.56816E-03_JPRB,0.90363E-03_JPRB,0.11597E-02_JPRB,0.75829E-03_JPRB /)  
+KB(:, 1,43, 8) = (/ &
+ & 0.22034E-04_JPRB,0.24494E-03_JPRB,0.35126E-03_JPRB,0.41862E-03_JPRB,0.26133E-03_JPRB /)  
+KB(:, 2,43, 8) = (/ &
+ & 0.22045E-04_JPRB,0.29428E-03_JPRB,0.43526E-03_JPRB,0.52960E-03_JPRB,0.33379E-03_JPRB /)  
+KB(:, 3,43, 8) = (/ &
+ & 0.22009E-04_JPRB,0.35394E-03_JPRB,0.53838E-03_JPRB,0.66893E-03_JPRB,0.42599E-03_JPRB /)  
+KB(:, 4,43, 8) = (/ &
+ & 0.21933E-04_JPRB,0.42510E-03_JPRB,0.66392E-03_JPRB,0.84090E-03_JPRB,0.54061E-03_JPRB /)  
+KB(:, 5,43, 8) = (/ &
+ & 0.21820E-04_JPRB,0.50878E-03_JPRB,0.81474E-03_JPRB,0.10503E-02_JPRB,0.68139E-03_JPRB /)  
+KB(:, 1,44, 8) = (/ &
+ & 0.18042E-04_JPRB,0.20878E-03_JPRB,0.29988E-03_JPRB,0.35782E-03_JPRB,0.22160E-03_JPRB /)  
+KB(:, 2,44, 8) = (/ &
+ & 0.18058E-04_JPRB,0.25360E-03_JPRB,0.37621E-03_JPRB,0.45875E-03_JPRB,0.28670E-03_JPRB /)  
+KB(:, 3,44, 8) = (/ &
+ & 0.18041E-04_JPRB,0.30845E-03_JPRB,0.47123E-03_JPRB,0.58727E-03_JPRB,0.37070E-03_JPRB /)  
+KB(:, 4,44, 8) = (/ &
+ & 0.17989E-04_JPRB,0.37459E-03_JPRB,0.58804E-03_JPRB,0.74739E-03_JPRB,0.47650E-03_JPRB /)  
+KB(:, 5,44, 8) = (/ &
+ & 0.17906E-04_JPRB,0.45317E-03_JPRB,0.73003E-03_JPRB,0.94454E-03_JPRB,0.60768E-03_JPRB /)  
+KB(:, 1,45, 8) = (/ &
+ & 0.14770E-04_JPRB,0.17743E-03_JPRB,0.25518E-03_JPRB,0.30461E-03_JPRB,0.18718E-03_JPRB /)  
+KB(:, 2,45, 8) = (/ &
+ & 0.14790E-04_JPRB,0.21794E-03_JPRB,0.32424E-03_JPRB,0.39603E-03_JPRB,0.24534E-03_JPRB /)  
+KB(:, 3,45, 8) = (/ &
+ & 0.14785E-04_JPRB,0.26822E-03_JPRB,0.41132E-03_JPRB,0.51406E-03_JPRB,0.32158E-03_JPRB /)  
+KB(:, 4,45, 8) = (/ &
+ & 0.14751E-04_JPRB,0.32948E-03_JPRB,0.51968E-03_JPRB,0.66288E-03_JPRB,0.41889E-03_JPRB /)  
+KB(:, 5,45, 8) = (/ &
+ & 0.14692E-04_JPRB,0.40309E-03_JPRB,0.65298E-03_JPRB,0.84795E-03_JPRB,0.54078E-03_JPRB /)  
+KB(:, 1,46, 8) = (/ &
+ & 0.12091E-04_JPRB,0.14956E-03_JPRB,0.21507E-03_JPRB,0.25664E-03_JPRB,0.15641E-03_JPRB /)  
+KB(:, 2,46, 8) = (/ &
+ & 0.12112E-04_JPRB,0.18585E-03_JPRB,0.27689E-03_JPRB,0.33853E-03_JPRB,0.20778E-03_JPRB /)  
+KB(:, 3,46, 8) = (/ &
+ & 0.12113E-04_JPRB,0.23156E-03_JPRB,0.35597E-03_JPRB,0.44575E-03_JPRB,0.27619E-03_JPRB /)  
+KB(:, 4,46, 8) = (/ &
+ & 0.12094E-04_JPRB,0.28789E-03_JPRB,0.45576E-03_JPRB,0.58313E-03_JPRB,0.36492E-03_JPRB /)  
+KB(:, 5,46, 8) = (/ &
+ & 0.12054E-04_JPRB,0.35628E-03_JPRB,0.57980E-03_JPRB,0.75523E-03_JPRB,0.47721E-03_JPRB /)  
+KB(:, 1,47, 8) = (/ &
+ & 0.98958E-05_JPRB,0.12436E-03_JPRB,0.17838E-03_JPRB,0.21241E-03_JPRB,0.12841E-03_JPRB /)  
+KB(:, 2,47, 8) = (/ &
+ & 0.99157E-05_JPRB,0.15633E-03_JPRB,0.23279E-03_JPRB,0.28443E-03_JPRB,0.17291E-03_JPRB /)  
+KB(:, 3,47, 8) = (/ &
+ & 0.99224E-05_JPRB,0.19724E-03_JPRB,0.30350E-03_JPRB,0.38017E-03_JPRB,0.23323E-03_JPRB /)  
+KB(:, 4,47, 8) = (/ &
+ & 0.99150E-05_JPRB,0.24831E-03_JPRB,0.39396E-03_JPRB,0.50488E-03_JPRB,0.31274E-03_JPRB /)  
+KB(:, 5,47, 8) = (/ &
+ & 0.98881E-05_JPRB,0.31110E-03_JPRB,0.50788E-03_JPRB,0.66304E-03_JPRB,0.41485E-03_JPRB /)  
+KB(:, 1,48, 8) = (/ &
+ & 0.80981E-05_JPRB,0.10284E-03_JPRB,0.14701E-03_JPRB,0.17457E-03_JPRB,0.10464E-03_JPRB /)  
+KB(:, 2,48, 8) = (/ &
+ & 0.81170E-05_JPRB,0.13083E-03_JPRB,0.19452E-03_JPRB,0.23734E-03_JPRB,0.14298E-03_JPRB /)  
+KB(:, 3,48, 8) = (/ &
+ & 0.81254E-05_JPRB,0.16716E-03_JPRB,0.25727E-03_JPRB,0.32230E-03_JPRB,0.19565E-03_JPRB /)  
+KB(:, 4,48, 8) = (/ &
+ & 0.81253E-05_JPRB,0.21328E-03_JPRB,0.33887E-03_JPRB,0.43475E-03_JPRB,0.26652E-03_JPRB /)  
+KB(:, 5,48, 8) = (/ &
+ & 0.81092E-05_JPRB,0.27062E-03_JPRB,0.44301E-03_JPRB,0.57972E-03_JPRB,0.35887E-03_JPRB /)  
+KB(:, 1,49, 8) = (/ &
+ & 0.66262E-05_JPRB,0.84542E-04_JPRB,0.12034E-03_JPRB,0.14245E-03_JPRB,0.84636E-04_JPRB /)  
+KB(:, 2,49, 8) = (/ &
+ & 0.66435E-05_JPRB,0.10903E-03_JPRB,0.16168E-03_JPRB,0.19686E-03_JPRB,0.11740E-03_JPRB /)  
+KB(:, 3,49, 8) = (/ &
+ & 0.66527E-05_JPRB,0.14092E-03_JPRB,0.21685E-03_JPRB,0.27156E-03_JPRB,0.16309E-03_JPRB /)  
+KB(:, 4,49, 8) = (/ &
+ & 0.66567E-05_JPRB,0.18229E-03_JPRB,0.28989E-03_JPRB,0.37214E-03_JPRB,0.22572E-03_JPRB /)  
+KB(:, 5,49, 8) = (/ &
+ & 0.66489E-05_JPRB,0.23443E-03_JPRB,0.38461E-03_JPRB,0.50418E-03_JPRB,0.30883E-03_JPRB /)  
+KB(:, 1,50, 8) = (/ &
+ & 0.54202E-05_JPRB,0.69608E-04_JPRB,0.98680E-04_JPRB,0.11646E-03_JPRB,0.68510E-04_JPRB /)  
+KB(:, 2,50, 8) = (/ &
+ & 0.54374E-05_JPRB,0.90802E-04_JPRB,0.13434E-03_JPRB,0.16330E-03_JPRB,0.96499E-04_JPRB /)  
+KB(:, 3,50, 8) = (/ &
+ & 0.54475E-05_JPRB,0.11916E-03_JPRB,0.18327E-03_JPRB,0.22932E-03_JPRB,0.13620E-03_JPRB /)  
+KB(:, 4,50, 8) = (/ &
+ & 0.54521E-05_JPRB,0.15608E-03_JPRB,0.24845E-03_JPRB,0.31928E-03_JPRB,0.19154E-03_JPRB /)  
+KB(:, 5,50, 8) = (/ &
+ & 0.54498E-05_JPRB,0.20348E-03_JPRB,0.33466E-03_JPRB,0.43937E-03_JPRB,0.26626E-03_JPRB /)  
+KB(:, 1,51, 8) = (/ &
+ & 0.44351E-05_JPRB,0.57088E-04_JPRB,0.80582E-04_JPRB,0.94790E-04_JPRB,0.55250E-04_JPRB /)  
+KB(:, 2,51, 8) = (/ &
+ & 0.44504E-05_JPRB,0.75435E-04_JPRB,0.11131E-03_JPRB,0.13503E-03_JPRB,0.79024E-04_JPRB /)  
+KB(:, 3,51, 8) = (/ &
+ & 0.44599E-05_JPRB,0.10037E-03_JPRB,0.15428E-03_JPRB,0.19291E-03_JPRB,0.11343E-03_JPRB /)  
+KB(:, 4,51, 8) = (/ &
+ & 0.44651E-05_JPRB,0.13336E-03_JPRB,0.21252E-03_JPRB,0.27335E-03_JPRB,0.16218E-03_JPRB /)  
+KB(:, 5,51, 8) = (/ &
+ & 0.44653E-05_JPRB,0.17640E-03_JPRB,0.29075E-03_JPRB,0.38229E-03_JPRB,0.22923E-03_JPRB /)  
+KB(:, 1,52, 8) = (/ &
+ & 0.36290E-05_JPRB,0.46565E-04_JPRB,0.65364E-04_JPRB,0.76598E-04_JPRB,0.44240E-04_JPRB /)  
+KB(:, 2,52, 8) = (/ &
+ & 0.36420E-05_JPRB,0.62314E-04_JPRB,0.91644E-04_JPRB,0.11090E-03_JPRB,0.64234E-04_JPRB /)  
+KB(:, 3,52, 8) = (/ &
+ & 0.36509E-05_JPRB,0.84102E-04_JPRB,0.12910E-03_JPRB,0.16125E-03_JPRB,0.93833E-04_JPRB /)  
+KB(:, 4,52, 8) = (/ &
+ & 0.36555E-05_JPRB,0.11362E-03_JPRB,0.18115E-03_JPRB,0.23297E-03_JPRB,0.13657E-03_JPRB /)  
+KB(:, 5,52, 8) = (/ &
+ & 0.36579E-05_JPRB,0.15226E-03_JPRB,0.25136E-03_JPRB,0.33099E-03_JPRB,0.19621E-03_JPRB /)  
+KB(:, 1,53, 8) = (/ &
+ & 0.29692E-05_JPRB,0.37746E-04_JPRB,0.52632E-04_JPRB,0.61397E-04_JPRB,0.35165E-04_JPRB /)  
+KB(:, 2,53, 8) = (/ &
+ & 0.29808E-05_JPRB,0.51149E-04_JPRB,0.74879E-04_JPRB,0.90335E-04_JPRB,0.51807E-04_JPRB /)  
+KB(:, 3,53, 8) = (/ &
+ & 0.29880E-05_JPRB,0.70028E-04_JPRB,0.10724E-03_JPRB,0.13375E-03_JPRB,0.77010E-04_JPRB /)  
+KB(:, 4,53, 8) = (/ &
+ & 0.29931E-05_JPRB,0.96105E-04_JPRB,0.15314E-03_JPRB,0.19689E-03_JPRB,0.11417E-03_JPRB /)  
+KB(:, 5,53, 8) = (/ &
+ & 0.29959E-05_JPRB,0.13074E-03_JPRB,0.21612E-03_JPRB,0.28492E-03_JPRB,0.16697E-03_JPRB /)  
+KB(:, 1,54, 8) = (/ &
+ & 0.24296E-05_JPRB,0.30698E-04_JPRB,0.42544E-04_JPRB,0.49406E-04_JPRB,0.28072E-04_JPRB /)  
+KB(:, 2,54, 8) = (/ &
+ & 0.24393E-05_JPRB,0.42122E-04_JPRB,0.61454E-04_JPRB,0.73927E-04_JPRB,0.41964E-04_JPRB /)  
+KB(:, 3,54, 8) = (/ &
+ & 0.24460E-05_JPRB,0.58528E-04_JPRB,0.89500E-04_JPRB,0.11146E-03_JPRB,0.63503E-04_JPRB /)  
+KB(:, 4,54, 8) = (/ &
+ & 0.24507E-05_JPRB,0.81611E-04_JPRB,0.13009E-03_JPRB,0.16728E-03_JPRB,0.95947E-04_JPRB /)  
+KB(:, 5,54, 8) = (/ &
+ & 0.24535E-05_JPRB,0.11276E-03_JPRB,0.18682E-03_JPRB,0.24654E-03_JPRB,0.14286E-03_JPRB /)  
+KB(:, 1,55, 8) = (/ &
+ & 0.19883E-05_JPRB,0.24921E-04_JPRB,0.34312E-04_JPRB,0.39666E-04_JPRB,0.22375E-04_JPRB /)  
+KB(:, 2,55, 8) = (/ &
+ & 0.19963E-05_JPRB,0.34641E-04_JPRB,0.50344E-04_JPRB,0.60381E-04_JPRB,0.33942E-04_JPRB /)  
+KB(:, 3,55, 8) = (/ &
+ & 0.20020E-05_JPRB,0.48868E-04_JPRB,0.74618E-04_JPRB,0.92809E-04_JPRB,0.52280E-04_JPRB /)  
+KB(:, 4,55, 8) = (/ &
+ & 0.20065E-05_JPRB,0.69255E-04_JPRB,0.11042E-03_JPRB,0.14203E-03_JPRB,0.80566E-04_JPRB /)  
+KB(:, 5,55, 8) = (/ &
+ & 0.20089E-05_JPRB,0.97527E-04_JPRB,0.16182E-03_JPRB,0.21373E-03_JPRB,0.12228E-03_JPRB /)  
+KB(:, 1,56, 8) = (/ &
+ & 0.16268E-05_JPRB,0.20122E-04_JPRB,0.27506E-04_JPRB,0.31629E-04_JPRB,0.17718E-04_JPRB /)  
+KB(:, 2,56, 8) = (/ &
+ & 0.16337E-05_JPRB,0.28321E-04_JPRB,0.40966E-04_JPRB,0.48960E-04_JPRB,0.27271E-04_JPRB /)  
+KB(:, 3,56, 8) = (/ &
+ & 0.16385E-05_JPRB,0.40579E-04_JPRB,0.61828E-04_JPRB,0.76747E-04_JPRB,0.42739E-04_JPRB /)  
+KB(:, 4,56, 8) = (/ &
+ & 0.16424E-05_JPRB,0.58490E-04_JPRB,0.93220E-04_JPRB,0.11991E-03_JPRB,0.67232E-04_JPRB /)  
+KB(:, 5,56, 8) = (/ &
+ & 0.16450E-05_JPRB,0.83776E-04_JPRB,0.13917E-03_JPRB,0.18401E-03_JPRB,0.10406E-03_JPRB /)  
+KB(:, 1,57, 8) = (/ &
+ & 0.13311E-05_JPRB,0.16151E-04_JPRB,0.21901E-04_JPRB,0.25044E-04_JPRB,0.13934E-04_JPRB /)  
+KB(:, 2,57, 8) = (/ &
+ & 0.13369E-05_JPRB,0.23005E-04_JPRB,0.33083E-04_JPRB,0.39377E-04_JPRB,0.21751E-04_JPRB /)  
+KB(:, 3,57, 8) = (/ &
+ & 0.13411E-05_JPRB,0.33501E-04_JPRB,0.50888E-04_JPRB,0.63014E-04_JPRB,0.34696E-04_JPRB /)  
+KB(:, 4,57, 8) = (/ &
+ & 0.13443E-05_JPRB,0.49111E-04_JPRB,0.78191E-04_JPRB,0.10051E-03_JPRB,0.55711E-04_JPRB /)  
+KB(:, 5,57, 8) = (/ &
+ & 0.13467E-05_JPRB,0.71586E-04_JPRB,0.11902E-03_JPRB,0.15744E-03_JPRB,0.88025E-04_JPRB /)  
+KB(:, 1,58, 8) = (/ &
+ & 0.10892E-05_JPRB,0.12962E-04_JPRB,0.17443E-04_JPRB,0.19825E-04_JPRB,0.10955E-04_JPRB /)  
+KB(:, 2,58, 8) = (/ &
+ & 0.10942E-05_JPRB,0.18688E-04_JPRB,0.26716E-04_JPRB,0.31664E-04_JPRB,0.17348E-04_JPRB /)  
+KB(:, 3,58, 8) = (/ &
+ & 0.10976E-05_JPRB,0.27650E-04_JPRB,0.41864E-04_JPRB,0.51716E-04_JPRB,0.28159E-04_JPRB /)  
+KB(:, 4,58, 8) = (/ &
+ & 0.11004E-05_JPRB,0.41251E-04_JPRB,0.65630E-04_JPRB,0.84299E-04_JPRB,0.46156E-04_JPRB /)  
+KB(:, 5,58, 8) = (/ &
+ & 0.11025E-05_JPRB,0.61261E-04_JPRB,0.10196E-03_JPRB,0.13496E-03_JPRB,0.74536E-04_JPRB /)  
+KB(:, 1,59, 8) = (/ &
+ & 0.89197E-06_JPRB,0.11047E-04_JPRB,0.14899E-04_JPRB,0.16964E-04_JPRB,0.92999E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART25',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,59, 8) = (/ &
+ & 0.89605E-06_JPRB,0.16215E-04_JPRB,0.23291E-04_JPRB,0.27686E-04_JPRB,0.15019E-04_JPRB /)  
+KB(:, 3,59, 8) = (/ &
+ & 0.89875E-06_JPRB,0.24462E-04_JPRB,0.37267E-04_JPRB,0.46243E-04_JPRB,0.24905E-04_JPRB /)  
+KB(:, 4,59, 8) = (/ &
+ & 0.90117E-06_JPRB,0.37175E-04_JPRB,0.59594E-04_JPRB,0.76969E-04_JPRB,0.41672E-04_JPRB /)  
+KB(:, 5,59, 8) = (/ &
+ & 0.90310E-06_JPRB,0.56115E-04_JPRB,0.94187E-04_JPRB,0.12528E-03_JPRB,0.68497E-04_JPRB /)  
+KB(:, 1,13, 9) = (/ &
+ & 0.56714E-01_JPRB,0.96228E-01_JPRB,0.10961E+00_JPRB,0.11078E+00_JPRB,0.82822E-01_JPRB /)  
+KB(:, 2,13, 9) = (/ &
+ & 0.57828E-01_JPRB,0.97972E-01_JPRB,0.11123E+00_JPRB,0.11236E+00_JPRB,0.84782E-01_JPRB /)  
+KB(:, 3,13, 9) = (/ &
+ & 0.59232E-01_JPRB,0.99998E-01_JPRB,0.11329E+00_JPRB,0.11400E+00_JPRB,0.86728E-01_JPRB /)  
+KB(:, 4,13, 9) = (/ &
+ & 0.60790E-01_JPRB,0.10219E+00_JPRB,0.11568E+00_JPRB,0.11591E+00_JPRB,0.88651E-01_JPRB /)  
+KB(:, 5,13, 9) = (/ &
+ & 0.62290E-01_JPRB,0.10448E+00_JPRB,0.11818E+00_JPRB,0.11808E+00_JPRB,0.90606E-01_JPRB /)  
+KB(:, 1,14, 9) = (/ &
+ & 0.48757E-01_JPRB,0.85742E-01_JPRB,0.97473E-01_JPRB,0.98306E-01_JPRB,0.73073E-01_JPRB /)  
+KB(:, 2,14, 9) = (/ &
+ & 0.49942E-01_JPRB,0.87692E-01_JPRB,0.99489E-01_JPRB,0.10004E+00_JPRB,0.75064E-01_JPRB /)  
+KB(:, 3,14, 9) = (/ &
+ & 0.51318E-01_JPRB,0.89856E-01_JPRB,0.10188E+00_JPRB,0.10205E+00_JPRB,0.77018E-01_JPRB /)  
+KB(:, 4,14, 9) = (/ &
+ & 0.52660E-01_JPRB,0.92153E-01_JPRB,0.10444E+00_JPRB,0.10434E+00_JPRB,0.78996E-01_JPRB /)  
+KB(:, 5,14, 9) = (/ &
+ & 0.53901E-01_JPRB,0.94584E-01_JPRB,0.10712E+00_JPRB,0.10687E+00_JPRB,0.81028E-01_JPRB /)  
+KB(:, 1,15, 9) = (/ &
+ & 0.41752E-01_JPRB,0.76198E-01_JPRB,0.86593E-01_JPRB,0.87037E-01_JPRB,0.64464E-01_JPRB /)  
+KB(:, 2,15, 9) = (/ &
+ & 0.42945E-01_JPRB,0.78277E-01_JPRB,0.88919E-01_JPRB,0.89055E-01_JPRB,0.66440E-01_JPRB /)  
+KB(:, 3,15, 9) = (/ &
+ & 0.44132E-01_JPRB,0.80544E-01_JPRB,0.91468E-01_JPRB,0.91397E-01_JPRB,0.68401E-01_JPRB /)  
+KB(:, 4,15, 9) = (/ &
+ & 0.45260E-01_JPRB,0.82968E-01_JPRB,0.94189E-01_JPRB,0.93993E-01_JPRB,0.70410E-01_JPRB /)  
+KB(:, 5,15, 9) = (/ &
+ & 0.46298E-01_JPRB,0.85502E-01_JPRB,0.97029E-01_JPRB,0.96802E-01_JPRB,0.72466E-01_JPRB /)  
+KB(:, 1,16, 9) = (/ &
+ & 0.35640E-01_JPRB,0.67555E-01_JPRB,0.76928E-01_JPRB,0.77126E-01_JPRB,0.56847E-01_JPRB /)  
+KB(:, 2,16, 9) = (/ &
+ & 0.36668E-01_JPRB,0.69730E-01_JPRB,0.79394E-01_JPRB,0.79411E-01_JPRB,0.58796E-01_JPRB /)  
+KB(:, 3,16, 9) = (/ &
+ & 0.37665E-01_JPRB,0.72105E-01_JPRB,0.82070E-01_JPRB,0.81996E-01_JPRB,0.60763E-01_JPRB /)  
+KB(:, 4,16, 9) = (/ &
+ & 0.38606E-01_JPRB,0.74641E-01_JPRB,0.84920E-01_JPRB,0.84810E-01_JPRB,0.62792E-01_JPRB /)  
+KB(:, 5,16, 9) = (/ &
+ & 0.39473E-01_JPRB,0.77118E-01_JPRB,0.87904E-01_JPRB,0.87777E-01_JPRB,0.64884E-01_JPRB /)  
+KB(:, 1,17, 9) = (/ &
+ & 0.30249E-01_JPRB,0.59768E-01_JPRB,0.68325E-01_JPRB,0.68492E-01_JPRB,0.50101E-01_JPRB /)  
+KB(:, 2,17, 9) = (/ &
+ & 0.31103E-01_JPRB,0.62060E-01_JPRB,0.70903E-01_JPRB,0.70988E-01_JPRB,0.52022E-01_JPRB /)  
+KB(:, 3,17, 9) = (/ &
+ & 0.31936E-01_JPRB,0.64534E-01_JPRB,0.73696E-01_JPRB,0.73735E-01_JPRB,0.54005E-01_JPRB /)  
+KB(:, 4,17, 9) = (/ &
+ & 0.32730E-01_JPRB,0.67029E-01_JPRB,0.76655E-01_JPRB,0.76665E-01_JPRB,0.56059E-01_JPRB /)  
+KB(:, 5,17, 9) = (/ &
+ & 0.33443E-01_JPRB,0.69449E-01_JPRB,0.79757E-01_JPRB,0.79742E-01_JPRB,0.58173E-01_JPRB /)  
+KB(:, 1,18, 9) = (/ &
+ & 0.25545E-01_JPRB,0.52871E-01_JPRB,0.60740E-01_JPRB,0.60992E-01_JPRB,0.44172E-01_JPRB /)  
+KB(:, 2,18, 9) = (/ &
+ & 0.26254E-01_JPRB,0.55233E-01_JPRB,0.63406E-01_JPRB,0.63637E-01_JPRB,0.46086E-01_JPRB /)  
+KB(:, 3,18, 9) = (/ &
+ & 0.26956E-01_JPRB,0.57692E-01_JPRB,0.66286E-01_JPRB,0.66462E-01_JPRB,0.48089E-01_JPRB /)  
+KB(:, 4,18, 9) = (/ &
+ & 0.27612E-01_JPRB,0.60136E-01_JPRB,0.69343E-01_JPRB,0.69465E-01_JPRB,0.50154E-01_JPRB /)  
+KB(:, 5,18, 9) = (/ &
+ & 0.28200E-01_JPRB,0.62534E-01_JPRB,0.72542E-01_JPRB,0.72608E-01_JPRB,0.52275E-01_JPRB /)  
+KB(:, 1,19, 9) = (/ &
+ & 0.21487E-01_JPRB,0.46786E-01_JPRB,0.54092E-01_JPRB,0.54451E-01_JPRB,0.38986E-01_JPRB /)  
+KB(:, 2,19, 9) = (/ &
+ & 0.22086E-01_JPRB,0.49151E-01_JPRB,0.56837E-01_JPRB,0.57167E-01_JPRB,0.40916E-01_JPRB /)  
+KB(:, 3,19, 9) = (/ &
+ & 0.22671E-01_JPRB,0.51565E-01_JPRB,0.59787E-01_JPRB,0.60059E-01_JPRB,0.42916E-01_JPRB /)  
+KB(:, 4,19, 9) = (/ &
+ & 0.23212E-01_JPRB,0.53966E-01_JPRB,0.62913E-01_JPRB,0.63134E-01_JPRB,0.44993E-01_JPRB /)  
+KB(:, 5,19, 9) = (/ &
+ & 0.23674E-01_JPRB,0.56335E-01_JPRB,0.66121E-01_JPRB,0.66362E-01_JPRB,0.47140E-01_JPRB /)  
+KB(:, 1,20, 9) = (/ &
+ & 0.18039E-01_JPRB,0.41493E-01_JPRB,0.48348E-01_JPRB,0.48783E-01_JPRB,0.34522E-01_JPRB /)  
+KB(:, 2,20, 9) = (/ &
+ & 0.18543E-01_JPRB,0.43801E-01_JPRB,0.51155E-01_JPRB,0.51541E-01_JPRB,0.36457E-01_JPRB /)  
+KB(:, 3,20, 9) = (/ &
+ & 0.19027E-01_JPRB,0.46166E-01_JPRB,0.54164E-01_JPRB,0.54503E-01_JPRB,0.38468E-01_JPRB /)  
+KB(:, 4,20, 9) = (/ &
+ & 0.19452E-01_JPRB,0.48538E-01_JPRB,0.57292E-01_JPRB,0.57654E-01_JPRB,0.40551E-01_JPRB /)  
+KB(:, 5,20, 9) = (/ &
+ & 0.19805E-01_JPRB,0.50879E-01_JPRB,0.60490E-01_JPRB,0.60969E-01_JPRB,0.42726E-01_JPRB /)  
+KB(:, 1,21, 9) = (/ &
+ & 0.15116E-01_JPRB,0.36867E-01_JPRB,0.43373E-01_JPRB,0.43860E-01_JPRB,0.30692E-01_JPRB /)  
+KB(:, 2,21, 9) = (/ &
+ & 0.15537E-01_JPRB,0.39121E-01_JPRB,0.46234E-01_JPRB,0.46663E-01_JPRB,0.32616E-01_JPRB /)  
+KB(:, 3,21, 9) = (/ &
+ & 0.15924E-01_JPRB,0.41438E-01_JPRB,0.49238E-01_JPRB,0.49692E-01_JPRB,0.34628E-01_JPRB /)  
+KB(:, 4,21, 9) = (/ &
+ & 0.16258E-01_JPRB,0.43774E-01_JPRB,0.52361E-01_JPRB,0.52910E-01_JPRB,0.36736E-01_JPRB /)  
+KB(:, 5,21, 9) = (/ &
+ & 0.16525E-01_JPRB,0.46101E-01_JPRB,0.55542E-01_JPRB,0.56309E-01_JPRB,0.38934E-01_JPRB /)  
+KB(:, 1,22, 9) = (/ &
+ & 0.12675E-01_JPRB,0.32993E-01_JPRB,0.39256E-01_JPRB,0.39779E-01_JPRB,0.27529E-01_JPRB /)  
+KB(:, 2,22, 9) = (/ &
+ & 0.13009E-01_JPRB,0.35201E-01_JPRB,0.42138E-01_JPRB,0.42658E-01_JPRB,0.29453E-01_JPRB /)  
+KB(:, 3,22, 9) = (/ &
+ & 0.13317E-01_JPRB,0.37474E-01_JPRB,0.45144E-01_JPRB,0.45756E-01_JPRB,0.31474E-01_JPRB /)  
+KB(:, 4,22, 9) = (/ &
+ & 0.13574E-01_JPRB,0.39784E-01_JPRB,0.48260E-01_JPRB,0.49049E-01_JPRB,0.33608E-01_JPRB /)  
+KB(:, 5,22, 9) = (/ &
+ & 0.13778E-01_JPRB,0.42099E-01_JPRB,0.51448E-01_JPRB,0.52529E-01_JPRB,0.35844E-01_JPRB /)  
+KB(:, 1,23, 9) = (/ &
+ & 0.10608E-01_JPRB,0.29677E-01_JPRB,0.35736E-01_JPRB,0.36323E-01_JPRB,0.24847E-01_JPRB /)  
+KB(:, 2,23, 9) = (/ &
+ & 0.10880E-01_JPRB,0.31843E-01_JPRB,0.38613E-01_JPRB,0.39274E-01_JPRB,0.26772E-01_JPRB /)  
+KB(:, 3,23, 9) = (/ &
+ & 0.11120E-01_JPRB,0.34081E-01_JPRB,0.41634E-01_JPRB,0.42440E-01_JPRB,0.28816E-01_JPRB /)  
+KB(:, 4,23, 9) = (/ &
+ & 0.11313E-01_JPRB,0.36372E-01_JPRB,0.44754E-01_JPRB,0.45808E-01_JPRB,0.30978E-01_JPRB /)  
+KB(:, 5,23, 9) = (/ &
+ & 0.11474E-01_JPRB,0.38689E-01_JPRB,0.47973E-01_JPRB,0.49367E-01_JPRB,0.33255E-01_JPRB /)  
+KB(:, 1,24, 9) = (/ &
+ & 0.88685E-02_JPRB,0.26862E-01_JPRB,0.32736E-01_JPRB,0.33437E-01_JPRB,0.22600E-01_JPRB /)  
+KB(:, 2,24, 9) = (/ &
+ & 0.90884E-02_JPRB,0.28994E-01_JPRB,0.35625E-01_JPRB,0.36451E-01_JPRB,0.24532E-01_JPRB /)  
+KB(:, 3,24, 9) = (/ &
+ & 0.92759E-02_JPRB,0.31210E-01_JPRB,0.38663E-01_JPRB,0.39696E-01_JPRB,0.26600E-01_JPRB /)  
+KB(:, 4,24, 9) = (/ &
+ & 0.94299E-02_JPRB,0.33488E-01_JPRB,0.41810E-01_JPRB,0.43137E-01_JPRB,0.28795E-01_JPRB /)  
+KB(:, 5,24, 9) = (/ &
+ & 0.95655E-02_JPRB,0.35810E-01_JPRB,0.45067E-01_JPRB,0.46765E-01_JPRB,0.31119E-01_JPRB /)  
+KB(:, 1,25, 9) = (/ &
+ & 0.74112E-02_JPRB,0.24493E-01_JPRB,0.30220E-01_JPRB,0.31056E-01_JPRB,0.20732E-01_JPRB /)  
+KB(:, 2,25, 9) = (/ &
+ & 0.75852E-02_JPRB,0.26600E-01_JPRB,0.33130E-01_JPRB,0.34139E-01_JPRB,0.22685E-01_JPRB /)  
+KB(:, 3,25, 9) = (/ &
+ & 0.77307E-02_JPRB,0.28805E-01_JPRB,0.36194E-01_JPRB,0.37461E-01_JPRB,0.24778E-01_JPRB /)  
+KB(:, 4,25, 9) = (/ &
+ & 0.78603E-02_JPRB,0.31085E-01_JPRB,0.39384E-01_JPRB,0.40978E-01_JPRB,0.27016E-01_JPRB /)  
+KB(:, 5,25, 9) = (/ &
+ & 0.79718E-02_JPRB,0.33416E-01_JPRB,0.42696E-01_JPRB,0.44682E-01_JPRB,0.29393E-01_JPRB /)  
+KB(:, 1,26, 9) = (/ &
+ & 0.61902E-02_JPRB,0.22538E-01_JPRB,0.28170E-01_JPRB,0.29154E-01_JPRB,0.19220E-01_JPRB /)  
+KB(:, 2,26, 9) = (/ &
+ & 0.63276E-02_JPRB,0.24632E-01_JPRB,0.31111E-01_JPRB,0.32321E-01_JPRB,0.21200E-01_JPRB /)  
+KB(:, 3,26, 9) = (/ &
+ & 0.64499E-02_JPRB,0.26835E-01_JPRB,0.34213E-01_JPRB,0.35713E-01_JPRB,0.23332E-01_JPRB /)  
+KB(:, 4,26, 9) = (/ &
+ & 0.65597E-02_JPRB,0.29126E-01_JPRB,0.37461E-01_JPRB,0.39319E-01_JPRB,0.25615E-01_JPRB /)  
+KB(:, 5,26, 9) = (/ &
+ & 0.66551E-02_JPRB,0.31472E-01_JPRB,0.40844E-01_JPRB,0.43117E-01_JPRB,0.28057E-01_JPRB /)  
+KB(:, 1,27, 9) = (/ &
+ & 0.51713E-02_JPRB,0.20911E-01_JPRB,0.26500E-01_JPRB,0.27639E-01_JPRB,0.17995E-01_JPRB /)  
+KB(:, 2,27, 9) = (/ &
+ & 0.52848E-02_JPRB,0.23004E-01_JPRB,0.29475E-01_JPRB,0.30887E-01_JPRB,0.20007E-01_JPRB /)  
+KB(:, 3,27, 9) = (/ &
+ & 0.53879E-02_JPRB,0.25219E-01_JPRB,0.32635E-01_JPRB,0.34364E-01_JPRB,0.22181E-01_JPRB /)  
+KB(:, 4,27, 9) = (/ &
+ & 0.54763E-02_JPRB,0.27525E-01_JPRB,0.35956E-01_JPRB,0.38064E-01_JPRB,0.24520E-01_JPRB /)  
+KB(:, 5,27, 9) = (/ &
+ & 0.55573E-02_JPRB,0.29889E-01_JPRB,0.39426E-01_JPRB,0.41977E-01_JPRB,0.27035E-01_JPRB /)  
+KB(:, 1,28, 9) = (/ &
+ & 0.43195E-02_JPRB,0.19576E-01_JPRB,0.25160E-01_JPRB,0.26468E-01_JPRB,0.17016E-01_JPRB /)  
+KB(:, 2,28, 9) = (/ &
+ & 0.44139E-02_JPRB,0.21680E-01_JPRB,0.28188E-01_JPRB,0.29800E-01_JPRB,0.19070E-01_JPRB /)  
+KB(:, 3,28, 9) = (/ &
+ & 0.44969E-02_JPRB,0.23912E-01_JPRB,0.31420E-01_JPRB,0.33375E-01_JPRB,0.21294E-01_JPRB /)  
+KB(:, 4,28, 9) = (/ &
+ & 0.45726E-02_JPRB,0.26235E-01_JPRB,0.34830E-01_JPRB,0.37186E-01_JPRB,0.23695E-01_JPRB /)  
+KB(:, 5,28, 9) = (/ &
+ & 0.46426E-02_JPRB,0.28627E-01_JPRB,0.38395E-01_JPRB,0.41222E-01_JPRB,0.26282E-01_JPRB /)  
+KB(:, 1,29, 9) = (/ &
+ & 0.36095E-02_JPRB,0.18508E-01_JPRB,0.24142E-01_JPRB,0.25625E-01_JPRB,0.16268E-01_JPRB /)  
+KB(:, 2,29, 9) = (/ &
+ & 0.36856E-02_JPRB,0.20634E-01_JPRB,0.27243E-01_JPRB,0.29053E-01_JPRB,0.18372E-01_JPRB /)  
+KB(:, 3,29, 9) = (/ &
+ & 0.37545E-02_JPRB,0.22890E-01_JPRB,0.30565E-01_JPRB,0.32742E-01_JPRB,0.20653E-01_JPRB /)  
+KB(:, 4,29, 9) = (/ &
+ & 0.38219E-02_JPRB,0.25246E-01_JPRB,0.34070E-01_JPRB,0.36676E-01_JPRB,0.23125E-01_JPRB /)  
+KB(:, 5,29, 9) = (/ &
+ & 0.38805E-02_JPRB,0.27676E-01_JPRB,0.37739E-01_JPRB,0.40837E-01_JPRB,0.25787E-01_JPRB /)  
+KB(:, 1,30, 9) = (/ &
+ & 0.30149E-02_JPRB,0.17668E-01_JPRB,0.23401E-01_JPRB,0.25061E-01_JPRB,0.15717E-01_JPRB /)  
+KB(:, 2,30, 9) = (/ &
+ & 0.30780E-02_JPRB,0.19823E-01_JPRB,0.26594E-01_JPRB,0.28602E-01_JPRB,0.17873E-01_JPRB /)  
+KB(:, 3,30, 9) = (/ &
+ & 0.31391E-02_JPRB,0.22111E-01_JPRB,0.30012E-01_JPRB,0.32409E-01_JPRB,0.20220E-01_JPRB /)  
+KB(:, 4,30, 9) = (/ &
+ & 0.31952E-02_JPRB,0.24511E-01_JPRB,0.33620E-01_JPRB,0.36467E-01_JPRB,0.22768E-01_JPRB /)  
+KB(:, 5,30, 9) = (/ &
+ & 0.32462E-02_JPRB,0.26992E-01_JPRB,0.37393E-01_JPRB,0.40756E-01_JPRB,0.25513E-01_JPRB /)  
+KB(:, 1,31, 9) = (/ &
+ & 0.25190E-02_JPRB,0.17039E-01_JPRB,0.22932E-01_JPRB,0.24769E-01_JPRB,0.15346E-01_JPRB /)  
+KB(:, 2,31, 9) = (/ &
+ & 0.25729E-02_JPRB,0.19232E-01_JPRB,0.26227E-01_JPRB,0.28432E-01_JPRB,0.17564E-01_JPRB /)  
+KB(:, 3,31, 9) = (/ &
+ & 0.26259E-02_JPRB,0.21567E-01_JPRB,0.29750E-01_JPRB,0.32369E-01_JPRB,0.19984E-01_JPRB /)  
+KB(:, 4,31, 9) = (/ &
+ & 0.26746E-02_JPRB,0.24020E-01_JPRB,0.33463E-01_JPRB,0.36549E-01_JPRB,0.22614E-01_JPRB /)  
+KB(:, 5,31, 9) = (/ &
+ & 0.27170E-02_JPRB,0.26556E-01_JPRB,0.37338E-01_JPRB,0.40957E-01_JPRB,0.25451E-01_JPRB /)  
+KB(:, 1,32, 9) = (/ &
+ & 0.21057E-02_JPRB,0.16597E-01_JPRB,0.22710E-01_JPRB,0.24723E-01_JPRB,0.15137E-01_JPRB /)  
+KB(:, 2,32, 9) = (/ &
+ & 0.21537E-02_JPRB,0.18840E-01_JPRB,0.26112E-01_JPRB,0.28512E-01_JPRB,0.17424E-01_JPRB /)  
+KB(:, 3,32, 9) = (/ &
+ & 0.21983E-02_JPRB,0.21233E-01_JPRB,0.29743E-01_JPRB,0.32575E-01_JPRB,0.19926E-01_JPRB /)  
+KB(:, 4,32, 9) = (/ &
+ & 0.22397E-02_JPRB,0.23745E-01_JPRB,0.33557E-01_JPRB,0.36873E-01_JPRB,0.22643E-01_JPRB /)  
+KB(:, 5,32, 9) = (/ &
+ & 0.22779E-02_JPRB,0.26339E-01_JPRB,0.37525E-01_JPRB,0.41395E-01_JPRB,0.25571E-01_JPRB /)  
+KB(:, 1,33, 9) = (/ &
+ & 0.17621E-02_JPRB,0.16326E-01_JPRB,0.22706E-01_JPRB,0.24894E-01_JPRB,0.15071E-01_JPRB /)  
+KB(:, 2,33, 9) = (/ &
+ & 0.18037E-02_JPRB,0.18626E-01_JPRB,0.26218E-01_JPRB,0.28807E-01_JPRB,0.17434E-01_JPRB /)  
+KB(:, 3,33, 9) = (/ &
+ & 0.18413E-02_JPRB,0.21083E-01_JPRB,0.29952E-01_JPRB,0.32989E-01_JPRB,0.20023E-01_JPRB /)  
+KB(:, 4,33, 9) = (/ &
+ & 0.18774E-02_JPRB,0.23655E-01_JPRB,0.33863E-01_JPRB,0.37400E-01_JPRB,0.22833E-01_JPRB /)  
+KB(:, 5,33, 9) = (/ &
+ & 0.19114E-02_JPRB,0.26308E-01_JPRB,0.37916E-01_JPRB,0.42025E-01_JPRB,0.25847E-01_JPRB /)  
+KB(:, 1,34, 9) = (/ &
+ & 0.14751E-02_JPRB,0.16125E-01_JPRB,0.22769E-01_JPRB,0.25117E-01_JPRB,0.15050E-01_JPRB /)  
+KB(:, 2,34, 9) = (/ &
+ & 0.15101E-02_JPRB,0.18488E-01_JPRB,0.26381E-01_JPRB,0.29139E-01_JPRB,0.17489E-01_JPRB /)  
+KB(:, 3,34, 9) = (/ &
+ & 0.15432E-02_JPRB,0.21005E-01_JPRB,0.30205E-01_JPRB,0.33424E-01_JPRB,0.20158E-01_JPRB /)  
+KB(:, 4,34, 9) = (/ &
+ & 0.15747E-02_JPRB,0.23633E-01_JPRB,0.34198E-01_JPRB,0.37931E-01_JPRB,0.23050E-01_JPRB /)  
+KB(:, 5,34, 9) = (/ &
+ & 0.16051E-02_JPRB,0.26339E-01_JPRB,0.38321E-01_JPRB,0.42642E-01_JPRB,0.26140E-01_JPRB /)  
+KB(:, 1,35, 9) = (/ &
+ & 0.12323E-02_JPRB,0.15834E-01_JPRB,0.22646E-01_JPRB,0.25106E-01_JPRB,0.14908E-01_JPRB /)  
+KB(:, 2,35, 9) = (/ &
+ & 0.12626E-02_JPRB,0.18245E-01_JPRB,0.26331E-01_JPRB,0.29206E-01_JPRB,0.17403E-01_JPRB /)  
+KB(:, 3,35, 9) = (/ &
+ & 0.12919E-02_JPRB,0.20808E-01_JPRB,0.30221E-01_JPRB,0.33562E-01_JPRB,0.20132E-01_JPRB /)  
+KB(:, 4,35, 9) = (/ &
+ & 0.13197E-02_JPRB,0.23481E-01_JPRB,0.34270E-01_JPRB,0.38136E-01_JPRB,0.23081E-01_JPRB /)  
+KB(:, 5,35, 9) = (/ &
+ & 0.13470E-02_JPRB,0.26228E-01_JPRB,0.38442E-01_JPRB,0.42907E-01_JPRB,0.26222E-01_JPRB /)  
+KB(:, 1,36, 9) = (/ &
+ & 0.10273E-02_JPRB,0.15393E-01_JPRB,0.22247E-01_JPRB,0.24766E-01_JPRB,0.14589E-01_JPRB /)  
+KB(:, 2,36, 9) = (/ &
+ & 0.10537E-02_JPRB,0.17833E-01_JPRB,0.25974E-01_JPRB,0.28911E-01_JPRB,0.17115E-01_JPRB /)  
+KB(:, 3,36, 9) = (/ &
+ & 0.10795E-02_JPRB,0.20426E-01_JPRB,0.29904E-01_JPRB,0.33307E-01_JPRB,0.19875E-01_JPRB /)  
+KB(:, 4,36, 9) = (/ &
+ & 0.11043E-02_JPRB,0.23131E-01_JPRB,0.33989E-01_JPRB,0.37917E-01_JPRB,0.22855E-01_JPRB /)  
+KB(:, 5,36, 9) = (/ &
+ & 0.11288E-02_JPRB,0.25909E-01_JPRB,0.38197E-01_JPRB,0.42722E-01_JPRB,0.26026E-01_JPRB /)  
+KB(:, 1,37, 9) = (/ &
+ & 0.85383E-03_JPRB,0.14679E-01_JPRB,0.21388E-01_JPRB,0.23897E-01_JPRB,0.13970E-01_JPRB /)  
+KB(:, 2,37, 9) = (/ &
+ & 0.87682E-03_JPRB,0.17120E-01_JPRB,0.25115E-01_JPRB,0.28039E-01_JPRB,0.16489E-01_JPRB /)  
+KB(:, 3,37, 9) = (/ &
+ & 0.89996E-03_JPRB,0.19721E-01_JPRB,0.29054E-01_JPRB,0.32436E-01_JPRB,0.19242E-01_JPRB /)  
+KB(:, 4,37, 9) = (/ &
+ & 0.92246E-03_JPRB,0.22439E-01_JPRB,0.33150E-01_JPRB,0.37047E-01_JPRB,0.22217E-01_JPRB /)  
+KB(:, 5,37, 9) = (/ &
+ & 0.94506E-03_JPRB,0.25234E-01_JPRB,0.37369E-01_JPRB,0.41852E-01_JPRB,0.25386E-01_JPRB /)  
+KB(:, 1,38, 9) = (/ &
+ & 0.70953E-03_JPRB,0.14014E-01_JPRB,0.20566E-01_JPRB,0.23058E-01_JPRB,0.13383E-01_JPRB /)  
+KB(:, 2,38, 9) = (/ &
+ & 0.73008E-03_JPRB,0.16455E-01_JPRB,0.24289E-01_JPRB,0.27191E-01_JPRB,0.15892E-01_JPRB /)  
+KB(:, 3,38, 9) = (/ &
+ & 0.75050E-03_JPRB,0.19058E-01_JPRB,0.28230E-01_JPRB,0.31581E-01_JPRB,0.18633E-01_JPRB /)  
+KB(:, 4,38, 9) = (/ &
+ & 0.77107E-03_JPRB,0.21784E-01_JPRB,0.32331E-01_JPRB,0.36184E-01_JPRB,0.21597E-01_JPRB /)  
+KB(:, 5,38, 9) = (/ &
+ & 0.79117E-03_JPRB,0.24590E-01_JPRB,0.36557E-01_JPRB,0.40986E-01_JPRB,0.24760E-01_JPRB /)  
+KB(:, 1,39, 9) = (/ &
+ & 0.58982E-03_JPRB,0.13410E-01_JPRB,0.19807E-01_JPRB,0.22275E-01_JPRB,0.12843E-01_JPRB /)  
+KB(:, 2,39, 9) = (/ &
+ & 0.60777E-03_JPRB,0.15847E-01_JPRB,0.23520E-01_JPRB,0.26395E-01_JPRB,0.15340E-01_JPRB /)  
+KB(:, 3,39, 9) = (/ &
+ & 0.62607E-03_JPRB,0.18449E-01_JPRB,0.27458E-01_JPRB,0.30773E-01_JPRB,0.18067E-01_JPRB /)  
+KB(:, 4,39, 9) = (/ &
+ & 0.64471E-03_JPRB,0.21179E-01_JPRB,0.31559E-01_JPRB,0.35367E-01_JPRB,0.21018E-01_JPRB /)  
+KB(:, 5,39, 9) = (/ &
+ & 0.66285E-03_JPRB,0.23994E-01_JPRB,0.35788E-01_JPRB,0.40160E-01_JPRB,0.24170E-01_JPRB /)  
+KB(:, 1,40, 9) = (/ &
+ & 0.48914E-03_JPRB,0.12617E-01_JPRB,0.18733E-01_JPRB,0.21131E-01_JPRB,0.12100E-01_JPRB /)  
+KB(:, 2,40, 9) = (/ &
+ & 0.50499E-03_JPRB,0.15028E-01_JPRB,0.22406E-01_JPRB,0.25206E-01_JPRB,0.14559E-01_JPRB /)  
+KB(:, 3,40, 9) = (/ &
+ & 0.52119E-03_JPRB,0.17611E-01_JPRB,0.26314E-01_JPRB,0.29544E-01_JPRB,0.17245E-01_JPRB /)  
+KB(:, 4,40, 9) = (/ &
+ & 0.53770E-03_JPRB,0.20330E-01_JPRB,0.30397E-01_JPRB,0.34103E-01_JPRB,0.20159E-01_JPRB /)  
+KB(:, 5,40, 9) = (/ &
+ & 0.55398E-03_JPRB,0.23142E-01_JPRB,0.34616E-01_JPRB,0.38867E-01_JPRB,0.23278E-01_JPRB /)  
+KB(:, 1,41, 9) = (/ &
+ & 0.40532E-03_JPRB,0.11840E-01_JPRB,0.17661E-01_JPRB,0.19981E-01_JPRB,0.11365E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART26',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,41, 9) = (/ &
+ & 0.41916E-03_JPRB,0.14219E-01_JPRB,0.21285E-01_JPRB,0.24002E-01_JPRB,0.13782E-01_JPRB /)  
+KB(:, 3,41, 9) = (/ &
+ & 0.43354E-03_JPRB,0.16775E-01_JPRB,0.25154E-01_JPRB,0.28292E-01_JPRB,0.16423E-01_JPRB /)  
+KB(:, 4,41, 9) = (/ &
+ & 0.44807E-03_JPRB,0.19478E-01_JPRB,0.29214E-01_JPRB,0.32812E-01_JPRB,0.19291E-01_JPRB /)  
+KB(:, 5,41, 9) = (/ &
+ & 0.46282E-03_JPRB,0.22283E-01_JPRB,0.33415E-01_JPRB,0.37538E-01_JPRB,0.22373E-01_JPRB /)  
+KB(:, 1,42, 9) = (/ &
+ & 0.33573E-03_JPRB,0.11104E-01_JPRB,0.16634E-01_JPRB,0.18873E-01_JPRB,0.10664E-01_JPRB /)  
+KB(:, 2,42, 9) = (/ &
+ & 0.34776E-03_JPRB,0.13446E-01_JPRB,0.20201E-01_JPRB,0.22835E-01_JPRB,0.13037E-01_JPRB /)  
+KB(:, 3,42, 9) = (/ &
+ & 0.36046E-03_JPRB,0.15973E-01_JPRB,0.24027E-01_JPRB,0.27071E-01_JPRB,0.15631E-01_JPRB /)  
+KB(:, 4,42, 9) = (/ &
+ & 0.37344E-03_JPRB,0.18654E-01_JPRB,0.28057E-01_JPRB,0.31550E-01_JPRB,0.18451E-01_JPRB /)  
+KB(:, 5,42, 9) = (/ &
+ & 0.38663E-03_JPRB,0.21448E-01_JPRB,0.32235E-01_JPRB,0.36231E-01_JPRB,0.21492E-01_JPRB /)  
+KB(:, 1,43, 9) = (/ &
+ & 0.27733E-03_JPRB,0.10283E-01_JPRB,0.15460E-01_JPRB,0.17597E-01_JPRB,0.98707E-02_JPRB /)  
+KB(:, 2,43, 9) = (/ &
+ & 0.28779E-03_JPRB,0.12571E-01_JPRB,0.18947E-01_JPRB,0.21473E-01_JPRB,0.12183E-01_JPRB /)  
+KB(:, 3,43, 9) = (/ &
+ & 0.29891E-03_JPRB,0.15054E-01_JPRB,0.22712E-01_JPRB,0.25638E-01_JPRB,0.14718E-01_JPRB /)  
+KB(:, 4,43, 9) = (/ &
+ & 0.31033E-03_JPRB,0.17702E-01_JPRB,0.26696E-01_JPRB,0.30055E-01_JPRB,0.17477E-01_JPRB /)  
+KB(:, 5,43, 9) = (/ &
+ & 0.32200E-03_JPRB,0.20476E-01_JPRB,0.30841E-01_JPRB,0.34682E-01_JPRB,0.20459E-01_JPRB /)  
+KB(:, 1,44, 9) = (/ &
+ & 0.22878E-03_JPRB,0.94499E-02_JPRB,0.14251E-01_JPRB,0.16276E-01_JPRB,0.90607E-02_JPRB /)  
+KB(:, 2,44, 9) = (/ &
+ & 0.23775E-03_JPRB,0.11673E-01_JPRB,0.17646E-01_JPRB,0.20049E-01_JPRB,0.11303E-01_JPRB /)  
+KB(:, 3,44, 9) = (/ &
+ & 0.24747E-03_JPRB,0.14106E-01_JPRB,0.21336E-01_JPRB,0.24135E-01_JPRB,0.13772E-01_JPRB /)  
+KB(:, 4,44, 9) = (/ &
+ & 0.25755E-03_JPRB,0.16710E-01_JPRB,0.25261E-01_JPRB,0.28479E-01_JPRB,0.16464E-01_JPRB /)  
+KB(:, 5,44, 9) = (/ &
+ & 0.26798E-03_JPRB,0.19454E-01_JPRB,0.29363E-01_JPRB,0.33046E-01_JPRB,0.19378E-01_JPRB /)  
+KB(:, 1,45, 9) = (/ &
+ & 0.18849E-03_JPRB,0.86584E-02_JPRB,0.13096E-01_JPRB,0.15007E-01_JPRB,0.82904E-02_JPRB /)  
+KB(:, 2,45, 9) = (/ &
+ & 0.19636E-03_JPRB,0.10814E-01_JPRB,0.16390E-01_JPRB,0.18672E-01_JPRB,0.10458E-01_JPRB /)  
+KB(:, 3,45, 9) = (/ &
+ & 0.20470E-03_JPRB,0.13189E-01_JPRB,0.19995E-01_JPRB,0.22671E-01_JPRB,0.12861E-01_JPRB /)  
+KB(:, 4,45, 9) = (/ &
+ & 0.21344E-03_JPRB,0.15746E-01_JPRB,0.23854E-01_JPRB,0.26936E-01_JPRB,0.15483E-01_JPRB /)  
+KB(:, 5,45, 9) = (/ &
+ & 0.22266E-03_JPRB,0.18454E-01_JPRB,0.27912E-01_JPRB,0.31439E-01_JPRB,0.18328E-01_JPRB /)  
+KB(:, 1,46, 9) = (/ &
+ & 0.15507E-03_JPRB,0.78632E-02_JPRB,0.11928E-01_JPRB,0.13712E-01_JPRB,0.75164E-02_JPRB /)  
+KB(:, 2,46, 9) = (/ &
+ & 0.16179E-03_JPRB,0.99413E-02_JPRB,0.15104E-01_JPRB,0.17260E-01_JPRB,0.95985E-02_JPRB /)  
+KB(:, 3,46, 9) = (/ &
+ & 0.16890E-03_JPRB,0.12249E-01_JPRB,0.18612E-01_JPRB,0.21154E-01_JPRB,0.11927E-01_JPRB /)  
+KB(:, 4,46, 9) = (/ &
+ & 0.17659E-03_JPRB,0.14751E-01_JPRB,0.22394E-01_JPRB,0.25333E-01_JPRB,0.14476E-01_JPRB /)  
+KB(:, 5,46, 9) = (/ &
+ & 0.18474E-03_JPRB,0.17415E-01_JPRB,0.26393E-01_JPRB,0.29761E-01_JPRB,0.17246E-01_JPRB /)  
+KB(:, 1,47, 9) = (/ &
+ & 0.12726E-03_JPRB,0.70304E-02_JPRB,0.10696E-01_JPRB,0.12336E-01_JPRB,0.67029E-02_JPRB /)  
+KB(:, 2,47, 9) = (/ &
+ & 0.13291E-03_JPRB,0.90171E-02_JPRB,0.13730E-01_JPRB,0.15745E-01_JPRB,0.86863E-02_JPRB /)  
+KB(:, 3,47, 9) = (/ &
+ & 0.13906E-03_JPRB,0.11243E-01_JPRB,0.17120E-01_JPRB,0.19510E-01_JPRB,0.10925E-01_JPRB /)  
+KB(:, 4,47, 9) = (/ &
+ & 0.14561E-03_JPRB,0.13678E-01_JPRB,0.20805E-01_JPRB,0.23588E-01_JPRB,0.13392E-01_JPRB /)  
+KB(:, 5,47, 9) = (/ &
+ & 0.15268E-03_JPRB,0.16286E-01_JPRB,0.24728E-01_JPRB,0.27924E-01_JPRB,0.16077E-01_JPRB /)  
+KB(:, 1,48, 9) = (/ &
+ & 0.10430E-03_JPRB,0.62479E-02_JPRB,0.95325E-02_JPRB,0.11029E-01_JPRB,0.59380E-02_JPRB /)  
+KB(:, 2,48, 9) = (/ &
+ & 0.10909E-03_JPRB,0.81380E-02_JPRB,0.12419E-01_JPRB,0.14291E-01_JPRB,0.78205E-02_JPRB /)  
+KB(:, 3,48, 9) = (/ &
+ & 0.11429E-03_JPRB,0.10277E-01_JPRB,0.15680E-01_JPRB,0.17922E-01_JPRB,0.99641E-02_JPRB /)  
+KB(:, 4,48, 9) = (/ &
+ & 0.11996E-03_JPRB,0.12637E-01_JPRB,0.19259E-01_JPRB,0.21888E-01_JPRB,0.12347E-01_JPRB /)  
+KB(:, 5,48, 9) = (/ &
+ & 0.12611E-03_JPRB,0.15183E-01_JPRB,0.23095E-01_JPRB,0.26125E-01_JPRB,0.14947E-01_JPRB /)  
+KB(:, 1,49, 9) = (/ &
+ & 0.85361E-04_JPRB,0.55178E-02_JPRB,0.84413E-02_JPRB,0.97939E-02_JPRB,0.52224E-02_JPRB /)  
+KB(:, 2,49, 9) = (/ &
+ & 0.89682E-04_JPRB,0.73124E-02_JPRB,0.11182E-01_JPRB,0.12906E-01_JPRB,0.70024E-02_JPRB /)  
+KB(:, 3,49, 9) = (/ &
+ & 0.93818E-04_JPRB,0.93518E-02_JPRB,0.14295E-01_JPRB,0.16393E-01_JPRB,0.90454E-02_JPRB /)  
+KB(:, 4,49, 9) = (/ &
+ & 0.98731E-04_JPRB,0.11631E-01_JPRB,0.17758E-01_JPRB,0.20234E-01_JPRB,0.11339E-01_JPRB /)  
+KB(:, 5,49, 9) = (/ &
+ & 0.10398E-03_JPRB,0.14111E-01_JPRB,0.21502E-01_JPRB,0.24370E-01_JPRB,0.13856E-01_JPRB /)  
+KB(:, 1,50, 9) = (/ &
+ & 0.70068E-04_JPRB,0.48843E-02_JPRB,0.74862E-02_JPRB,0.87029E-02_JPRB,0.45961E-02_JPRB /)  
+KB(:, 2,50, 9) = (/ &
+ & 0.73528E-04_JPRB,0.65706E-02_JPRB,0.10074E-01_JPRB,0.11661E-01_JPRB,0.62737E-02_JPRB /)  
+KB(:, 3,50, 9) = (/ &
+ & 0.77377E-04_JPRB,0.85288E-02_JPRB,0.13057E-01_JPRB,0.15019E-01_JPRB,0.82236E-02_JPRB /)  
+KB(:, 4,50, 9) = (/ &
+ & 0.81195E-04_JPRB,0.10720E-01_JPRB,0.16396E-01_JPRB,0.18728E-01_JPRB,0.10428E-01_JPRB /)  
+KB(:, 5,50, 9) = (/ &
+ & 0.85703E-04_JPRB,0.13133E-01_JPRB,0.20042E-01_JPRB,0.22765E-01_JPRB,0.12867E-01_JPRB /)  
+KB(:, 1,51, 9) = (/ &
+ & 0.57383E-04_JPRB,0.43058E-02_JPRB,0.66126E-02_JPRB,0.77023E-02_JPRB,0.40299E-02_JPRB /)  
+KB(:, 2,51, 9) = (/ &
+ & 0.60290E-04_JPRB,0.58916E-02_JPRB,0.90543E-02_JPRB,0.10509E-01_JPRB,0.56057E-02_JPRB /)  
+KB(:, 3,51, 9) = (/ &
+ & 0.63513E-04_JPRB,0.77586E-02_JPRB,0.11901E-01_JPRB,0.13729E-01_JPRB,0.74620E-02_JPRB /)  
+KB(:, 4,51, 9) = (/ &
+ & 0.66727E-04_JPRB,0.98672E-02_JPRB,0.15116E-01_JPRB,0.17314E-01_JPRB,0.95779E-02_JPRB /)  
+KB(:, 5,51, 9) = (/ &
+ & 0.70598E-04_JPRB,0.12209E-01_JPRB,0.18661E-01_JPRB,0.21244E-01_JPRB,0.11938E-01_JPRB /)  
+KB(:, 1,52, 9) = (/ &
+ & 0.46933E-04_JPRB,0.37683E-02_JPRB,0.57987E-02_JPRB,0.67684E-02_JPRB,0.35066E-02_JPRB /)  
+KB(:, 2,52, 9) = (/ &
+ & 0.49374E-04_JPRB,0.52554E-02_JPRB,0.80944E-02_JPRB,0.94163E-02_JPRB,0.49785E-02_JPRB /)  
+KB(:, 3,52, 9) = (/ &
+ & 0.52069E-04_JPRB,0.70251E-02_JPRB,0.10799E-01_JPRB,0.12493E-01_JPRB,0.67384E-02_JPRB /)  
+KB(:, 4,52, 9) = (/ &
+ & 0.55066E-04_JPRB,0.90579E-02_JPRB,0.13892E-01_JPRB,0.15957E-01_JPRB,0.87644E-02_JPRB /)  
+KB(:, 5,52, 9) = (/ &
+ & 0.58094E-04_JPRB,0.11314E-01_JPRB,0.17321E-01_JPRB,0.19762E-01_JPRB,0.11039E-01_JPRB /)  
+KB(:, 1,53, 9) = (/ &
+ & 0.38369E-04_JPRB,0.32705E-02_JPRB,0.50428E-02_JPRB,0.58997E-02_JPRB,0.30250E-02_JPRB /)  
+KB(:, 2,53, 9) = (/ &
+ & 0.40389E-04_JPRB,0.46579E-02_JPRB,0.71882E-02_JPRB,0.83794E-02_JPRB,0.43908E-02_JPRB /)  
+KB(:, 3,53, 9) = (/ &
+ & 0.42656E-04_JPRB,0.63275E-02_JPRB,0.97486E-02_JPRB,0.11308E-01_JPRB,0.60500E-02_JPRB /)  
+KB(:, 4,53, 9) = (/ &
+ & 0.45173E-04_JPRB,0.82714E-02_JPRB,0.12706E-01_JPRB,0.14639E-01_JPRB,0.79824E-02_JPRB /)  
+KB(:, 5,53, 9) = (/ &
+ & 0.47733E-04_JPRB,0.10447E-01_JPRB,0.16018E-01_JPRB,0.18320E-01_JPRB,0.10170E-01_JPRB /)  
+KB(:, 1,54, 9) = (/ &
+ & 0.31373E-04_JPRB,0.28489E-02_JPRB,0.44023E-02_JPRB,0.51602E-02_JPRB,0.26198E-02_JPRB /)  
+KB(:, 2,54, 9) = (/ &
+ & 0.33072E-04_JPRB,0.41448E-02_JPRB,0.64072E-02_JPRB,0.74821E-02_JPRB,0.38868E-02_JPRB /)  
+KB(:, 3,54, 9) = (/ &
+ & 0.34962E-04_JPRB,0.57219E-02_JPRB,0.88331E-02_JPRB,0.10271E-01_JPRB,0.54518E-02_JPRB /)  
+KB(:, 4,54, 9) = (/ &
+ & 0.37073E-04_JPRB,0.75801E-02_JPRB,0.11663E-01_JPRB,0.13472E-01_JPRB,0.72975E-02_JPRB /)  
+KB(:, 5,54, 9) = (/ &
+ & 0.39224E-04_JPRB,0.96795E-02_JPRB,0.14861E-01_JPRB,0.17039E-01_JPRB,0.94030E-02_JPRB /)  
+KB(:, 1,55, 9) = (/ &
+ & 0.25649E-04_JPRB,0.24774E-02_JPRB,0.38358E-02_JPRB,0.45027E-02_JPRB,0.22635E-02_JPRB /)  
+KB(:, 2,55, 9) = (/ &
+ & 0.27065E-04_JPRB,0.36831E-02_JPRB,0.57040E-02_JPRB,0.66733E-02_JPRB,0.34361E-02_JPRB /)  
+KB(:, 3,55, 9) = (/ &
+ & 0.28649E-04_JPRB,0.51728E-02_JPRB,0.80003E-02_JPRB,0.93199E-02_JPRB,0.49087E-02_JPRB /)  
+KB(:, 4,55, 9) = (/ &
+ & 0.30419E-04_JPRB,0.69443E-02_JPRB,0.10704E-01_JPRB,0.12395E-01_JPRB,0.66688E-02_JPRB /)  
+KB(:, 5,55, 9) = (/ &
+ & 0.32478E-04_JPRB,0.89781E-02_JPRB,0.13794E-01_JPRB,0.15856E-01_JPRB,0.86947E-02_JPRB /)  
+KB(:, 1,56, 9) = (/ &
+ & 0.20960E-04_JPRB,0.21374E-02_JPRB,0.33161E-02_JPRB,0.38972E-02_JPRB,0.19394E-02_JPRB /)  
+KB(:, 2,56, 9) = (/ &
+ & 0.22130E-04_JPRB,0.32530E-02_JPRB,0.50471E-02_JPRB,0.59166E-02_JPRB,0.30185E-02_JPRB /)  
+KB(:, 3,56, 9) = (/ &
+ & 0.23455E-04_JPRB,0.46545E-02_JPRB,0.72105E-02_JPRB,0.84156E-02_JPRB,0.43975E-02_JPRB /)  
+KB(:, 4,56, 9) = (/ &
+ & 0.24958E-04_JPRB,0.63377E-02_JPRB,0.97876E-02_JPRB,0.11360E-01_JPRB,0.60688E-02_JPRB /)  
+KB(:, 5,56, 9) = (/ &
+ & 0.26672E-04_JPRB,0.82933E-02_JPRB,0.12759E-01_JPRB,0.14704E-01_JPRB,0.80123E-02_JPRB /)  
+KB(:, 1,57, 9) = (/ &
+ & 0.17108E-04_JPRB,0.18275E-02_JPRB,0.28407E-02_JPRB,0.33429E-02_JPRB,0.16463E-02_JPRB /)  
+KB(:, 2,57, 9) = (/ &
+ & 0.18082E-04_JPRB,0.28535E-02_JPRB,0.44360E-02_JPRB,0.52097E-02_JPRB,0.26326E-02_JPRB /)  
+KB(:, 3,57, 9) = (/ &
+ & 0.19184E-04_JPRB,0.41668E-02_JPRB,0.64646E-02_JPRB,0.75572E-02_JPRB,0.39170E-02_JPRB /)  
+KB(:, 4,57, 9) = (/ &
+ & 0.20446E-04_JPRB,0.57610E-02_JPRB,0.89128E-02_JPRB,0.10368E-01_JPRB,0.54979E-02_JPRB /)  
+KB(:, 5,57, 9) = (/ &
+ & 0.21854E-04_JPRB,0.76342E-02_JPRB,0.11762E-01_JPRB,0.13588E-01_JPRB,0.73577E-02_JPRB /)  
+KB(:, 1,58, 9) = (/ &
+ & 0.13963E-04_JPRB,0.15602E-02_JPRB,0.24292E-02_JPRB,0.28638E-02_JPRB,0.13965E-02_JPRB /)  
+KB(:, 2,58, 9) = (/ &
+ & 0.14773E-04_JPRB,0.25031E-02_JPRB,0.38984E-02_JPRB,0.45849E-02_JPRB,0.22957E-02_JPRB /)  
+KB(:, 3,58, 9) = (/ &
+ & 0.15698E-04_JPRB,0.37311E-02_JPRB,0.57975E-02_JPRB,0.67885E-02_JPRB,0.34899E-02_JPRB /)  
+KB(:, 4,58, 9) = (/ &
+ & 0.16731E-04_JPRB,0.52413E-02_JPRB,0.81221E-02_JPRB,0.94657E-02_JPRB,0.49831E-02_JPRB /)  
+KB(:, 5,58, 9) = (/ &
+ & 0.17926E-04_JPRB,0.70329E-02_JPRB,0.10852E-01_JPRB,0.12566E-01_JPRB,0.67622E-02_JPRB /)  
+KB(:, 1,59, 9) = (/ &
+ & 0.11515E-04_JPRB,0.14557E-02_JPRB,0.22712E-02_JPRB,0.26808E-02_JPRB,0.13001E-02_JPRB /)  
+KB(:, 2,59, 9) = (/ &
+ & 0.12194E-04_JPRB,0.23665E-02_JPRB,0.36913E-02_JPRB,0.43444E-02_JPRB,0.21654E-02_JPRB /)  
+KB(:, 3,59, 9) = (/ &
+ & 0.12975E-04_JPRB,0.35608E-02_JPRB,0.55385E-02_JPRB,0.64911E-02_JPRB,0.33241E-02_JPRB /)  
+KB(:, 4,59, 9) = (/ &
+ & 0.13854E-04_JPRB,0.50382E-02_JPRB,0.78142E-02_JPRB,0.91137E-02_JPRB,0.47825E-02_JPRB /)  
+KB(:, 5,59, 9) = (/ &
+ & 0.14890E-04_JPRB,0.67966E-02_JPRB,0.10497E-01_JPRB,0.12166E-01_JPRB,0.65291E-02_JPRB /)  
+KB(:, 1,13,10) = (/ &
+ & 0.23136E+00_JPRB,0.35590E+00_JPRB,0.41705E+00_JPRB,0.42838E+00_JPRB,0.34405E+00_JPRB /)  
+KB(:, 2,13,10) = (/ &
+ & 0.23570E+00_JPRB,0.35573E+00_JPRB,0.41855E+00_JPRB,0.43318E+00_JPRB,0.34979E+00_JPRB /)  
+KB(:, 3,13,10) = (/ &
+ & 0.23997E+00_JPRB,0.35949E+00_JPRB,0.42029E+00_JPRB,0.43813E+00_JPRB,0.35426E+00_JPRB /)  
+KB(:, 4,13,10) = (/ &
+ & 0.24492E+00_JPRB,0.36590E+00_JPRB,0.42350E+00_JPRB,0.44177E+00_JPRB,0.35947E+00_JPRB /)  
+KB(:, 5,13,10) = (/ &
+ & 0.25202E+00_JPRB,0.37242E+00_JPRB,0.42924E+00_JPRB,0.44467E+00_JPRB,0.36481E+00_JPRB /)  
+KB(:, 1,14,10) = (/ &
+ & 0.20433E+00_JPRB,0.32280E+00_JPRB,0.38114E+00_JPRB,0.39530E+00_JPRB,0.30987E+00_JPRB /)  
+KB(:, 2,14,10) = (/ &
+ & 0.20812E+00_JPRB,0.32580E+00_JPRB,0.38400E+00_JPRB,0.40099E+00_JPRB,0.31521E+00_JPRB /)  
+KB(:, 3,14,10) = (/ &
+ & 0.21260E+00_JPRB,0.33207E+00_JPRB,0.38794E+00_JPRB,0.40573E+00_JPRB,0.32135E+00_JPRB /)  
+KB(:, 4,14,10) = (/ &
+ & 0.21971E+00_JPRB,0.33857E+00_JPRB,0.39426E+00_JPRB,0.40959E+00_JPRB,0.32811E+00_JPRB /)  
+KB(:, 5,14,10) = (/ &
+ & 0.22862E+00_JPRB,0.34522E+00_JPRB,0.40235E+00_JPRB,0.41376E+00_JPRB,0.33439E+00_JPRB /)  
+KB(:, 1,15,10) = (/ &
+ & 0.17974E+00_JPRB,0.29385E+00_JPRB,0.34710E+00_JPRB,0.36214E+00_JPRB,0.27698E+00_JPRB /)  
+KB(:, 2,15,10) = (/ &
+ & 0.18361E+00_JPRB,0.29985E+00_JPRB,0.35176E+00_JPRB,0.36835E+00_JPRB,0.28361E+00_JPRB /)  
+KB(:, 3,15,10) = (/ &
+ & 0.19011E+00_JPRB,0.30650E+00_JPRB,0.35844E+00_JPRB,0.37336E+00_JPRB,0.29140E+00_JPRB /)  
+KB(:, 4,15,10) = (/ &
+ & 0.19870E+00_JPRB,0.31340E+00_JPRB,0.36676E+00_JPRB,0.37856E+00_JPRB,0.29913E+00_JPRB /)  
+KB(:, 5,15,10) = (/ &
+ & 0.20713E+00_JPRB,0.32067E+00_JPRB,0.37517E+00_JPRB,0.38452E+00_JPRB,0.30673E+00_JPRB /)  
+KB(:, 1,16,10) = (/ &
+ & 0.15768E+00_JPRB,0.26909E+00_JPRB,0.31566E+00_JPRB,0.32905E+00_JPRB,0.24795E+00_JPRB /)  
+KB(:, 2,16,10) = (/ &
+ & 0.16341E+00_JPRB,0.27579E+00_JPRB,0.32257E+00_JPRB,0.33542E+00_JPRB,0.25593E+00_JPRB /)  
+KB(:, 3,16,10) = (/ &
+ & 0.17143E+00_JPRB,0.28283E+00_JPRB,0.33152E+00_JPRB,0.34164E+00_JPRB,0.26468E+00_JPRB /)  
+KB(:, 4,16,10) = (/ &
+ & 0.17943E+00_JPRB,0.29026E+00_JPRB,0.34054E+00_JPRB,0.34897E+00_JPRB,0.27328E+00_JPRB /)  
+KB(:, 5,16,10) = (/ &
+ & 0.18690E+00_JPRB,0.29935E+00_JPRB,0.34954E+00_JPRB,0.35767E+00_JPRB,0.28225E+00_JPRB /)  
+KB(:, 1,17,10) = (/ &
+ & 0.13875E+00_JPRB,0.24652E+00_JPRB,0.28696E+00_JPRB,0.29693E+00_JPRB,0.22321E+00_JPRB /)  
+KB(:, 2,17,10) = (/ &
+ & 0.14611E+00_JPRB,0.25366E+00_JPRB,0.29630E+00_JPRB,0.30411E+00_JPRB,0.23216E+00_JPRB /)  
+KB(:, 3,17,10) = (/ &
+ & 0.15377E+00_JPRB,0.26122E+00_JPRB,0.30597E+00_JPRB,0.31229E+00_JPRB,0.24127E+00_JPRB /)  
+KB(:, 4,17,10) = (/ &
+ & 0.16099E+00_JPRB,0.27029E+00_JPRB,0.31565E+00_JPRB,0.32218E+00_JPRB,0.25077E+00_JPRB /)  
+KB(:, 5,17,10) = (/ &
+ & 0.16791E+00_JPRB,0.28100E+00_JPRB,0.32533E+00_JPRB,0.33316E+00_JPRB,0.26091E+00_JPRB /)  
+KB(:, 1,18,10) = (/ &
+ & 0.12258E+00_JPRB,0.22568E+00_JPRB,0.26154E+00_JPRB,0.26746E+00_JPRB,0.20208E+00_JPRB /)  
+KB(:, 2,18,10) = (/ &
+ & 0.12972E+00_JPRB,0.23340E+00_JPRB,0.27183E+00_JPRB,0.27607E+00_JPRB,0.21144E+00_JPRB /)  
+KB(:, 3,18,10) = (/ &
+ & 0.13673E+00_JPRB,0.24228E+00_JPRB,0.28202E+00_JPRB,0.28661E+00_JPRB,0.22093E+00_JPRB /)  
+KB(:, 4,18,10) = (/ &
+ & 0.14352E+00_JPRB,0.25285E+00_JPRB,0.29256E+00_JPRB,0.29859E+00_JPRB,0.23121E+00_JPRB /)  
+KB(:, 5,18,10) = (/ &
+ & 0.14999E+00_JPRB,0.26447E+00_JPRB,0.30340E+00_JPRB,0.31163E+00_JPRB,0.24203E+00_JPRB /)  
+KB(:, 1,19,10) = (/ &
+ & 0.10785E+00_JPRB,0.20667E+00_JPRB,0.23879E+00_JPRB,0.24194E+00_JPRB,0.18368E+00_JPRB /)  
+KB(:, 2,19,10) = (/ &
+ & 0.11429E+00_JPRB,0.21546E+00_JPRB,0.24926E+00_JPRB,0.25235E+00_JPRB,0.19325E+00_JPRB /)  
+KB(:, 3,19,10) = (/ &
+ & 0.12064E+00_JPRB,0.22577E+00_JPRB,0.26022E+00_JPRB,0.26472E+00_JPRB,0.20338E+00_JPRB /)  
+KB(:, 4,19,10) = (/ &
+ & 0.12700E+00_JPRB,0.23751E+00_JPRB,0.27175E+00_JPRB,0.27823E+00_JPRB,0.21416E+00_JPRB /)  
+KB(:, 5,19,10) = (/ &
+ & 0.13335E+00_JPRB,0.24924E+00_JPRB,0.28423E+00_JPRB,0.29239E+00_JPRB,0.22548E+00_JPRB /)  
+KB(:, 1,20,10) = (/ &
+ & 0.94314E-01_JPRB,0.18969E+00_JPRB,0.21843E+00_JPRB,0.22089E+00_JPRB,0.16767E+00_JPRB /)  
+KB(:, 2,20,10) = (/ &
+ & 0.10011E+00_JPRB,0.20009E+00_JPRB,0.22938E+00_JPRB,0.23290E+00_JPRB,0.17759E+00_JPRB /)  
+KB(:, 3,20,10) = (/ &
+ & 0.10602E+00_JPRB,0.21171E+00_JPRB,0.24114E+00_JPRB,0.24650E+00_JPRB,0.18815E+00_JPRB /)  
+KB(:, 4,20,10) = (/ &
+ & 0.11212E+00_JPRB,0.22366E+00_JPRB,0.25410E+00_JPRB,0.26076E+00_JPRB,0.19951E+00_JPRB /)  
+KB(:, 5,20,10) = (/ &
+ & 0.11820E+00_JPRB,0.23566E+00_JPRB,0.26816E+00_JPRB,0.27572E+00_JPRB,0.21140E+00_JPRB /)  
+KB(:, 1,21,10) = (/ &
+ & 0.82096E-01_JPRB,0.17498E+00_JPRB,0.20057E+00_JPRB,0.20349E+00_JPRB,0.15368E+00_JPRB /)  
+KB(:, 2,21,10) = (/ &
+ & 0.87376E-01_JPRB,0.18671E+00_JPRB,0.21217E+00_JPRB,0.21678E+00_JPRB,0.16394E+00_JPRB /)  
+KB(:, 3,21,10) = (/ &
+ & 0.92996E-01_JPRB,0.19901E+00_JPRB,0.22527E+00_JPRB,0.23088E+00_JPRB,0.17505E+00_JPRB /)  
+KB(:, 4,21,10) = (/ &
+ & 0.98752E-01_JPRB,0.21131E+00_JPRB,0.23942E+00_JPRB,0.24575E+00_JPRB,0.18685E+00_JPRB /)  
+KB(:, 5,21,10) = (/ &
+ & 0.10451E+00_JPRB,0.22356E+00_JPRB,0.25490E+00_JPRB,0.26152E+00_JPRB,0.19924E+00_JPRB /)  
+KB(:, 1,22,10) = (/ &
+ & 0.71578E-01_JPRB,0.16309E+00_JPRB,0.18609E+00_JPRB,0.19018E+00_JPRB,0.14217E+00_JPRB /)  
+KB(:, 2,22,10) = (/ &
+ & 0.76626E-01_JPRB,0.17564E+00_JPRB,0.19884E+00_JPRB,0.20398E+00_JPRB,0.15291E+00_JPRB /)  
+KB(:, 3,22,10) = (/ &
+ & 0.81885E-01_JPRB,0.18840E+00_JPRB,0.21309E+00_JPRB,0.21858E+00_JPRB,0.16461E+00_JPRB /)  
+KB(:, 4,22,10) = (/ &
+ & 0.87223E-01_JPRB,0.20113E+00_JPRB,0.22859E+00_JPRB,0.23430E+00_JPRB,0.17688E+00_JPRB /)  
+KB(:, 5,22,10) = (/ &
+ & 0.92500E-01_JPRB,0.21374E+00_JPRB,0.24532E+00_JPRB,0.25104E+00_JPRB,0.18976E+00_JPRB /)  
+KB(:, 1,23,10) = (/ &
+ & 0.62506E-01_JPRB,0.15298E+00_JPRB,0.17442E+00_JPRB,0.17913E+00_JPRB,0.13258E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART27',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,23,10) = (/ &
+ & 0.67194E-01_JPRB,0.16597E+00_JPRB,0.18829E+00_JPRB,0.19340E+00_JPRB,0.14391E+00_JPRB /)  
+KB(:, 3,23,10) = (/ &
+ & 0.72099E-01_JPRB,0.17922E+00_JPRB,0.20360E+00_JPRB,0.20869E+00_JPRB,0.15600E+00_JPRB /)  
+KB(:, 4,23,10) = (/ &
+ & 0.77023E-01_JPRB,0.19243E+00_JPRB,0.22032E+00_JPRB,0.22532E+00_JPRB,0.16873E+00_JPRB /)  
+KB(:, 5,23,10) = (/ &
+ & 0.81629E-01_JPRB,0.20537E+00_JPRB,0.23792E+00_JPRB,0.24291E+00_JPRB,0.18203E+00_JPRB /)  
+KB(:, 1,24,10) = (/ &
+ & 0.54705E-01_JPRB,0.14435E+00_JPRB,0.16539E+00_JPRB,0.17004E+00_JPRB,0.12479E+00_JPRB /)  
+KB(:, 2,24,10) = (/ &
+ & 0.59055E-01_JPRB,0.15781E+00_JPRB,0.18024E+00_JPRB,0.18505E+00_JPRB,0.13663E+00_JPRB /)  
+KB(:, 3,24,10) = (/ &
+ & 0.63456E-01_JPRB,0.17157E+00_JPRB,0.19662E+00_JPRB,0.20113E+00_JPRB,0.14915E+00_JPRB /)  
+KB(:, 4,24,10) = (/ &
+ & 0.67778E-01_JPRB,0.18520E+00_JPRB,0.21409E+00_JPRB,0.21860E+00_JPRB,0.16222E+00_JPRB /)  
+KB(:, 5,24,10) = (/ &
+ & 0.71741E-01_JPRB,0.19852E+00_JPRB,0.23252E+00_JPRB,0.23726E+00_JPRB,0.17594E+00_JPRB /)  
+KB(:, 1,25,10) = (/ &
+ & 0.47972E-01_JPRB,0.13725E+00_JPRB,0.15860E+00_JPRB,0.16297E+00_JPRB,0.11866E+00_JPRB /)  
+KB(:, 2,25,10) = (/ &
+ & 0.51893E-01_JPRB,0.15121E+00_JPRB,0.17443E+00_JPRB,0.17877E+00_JPRB,0.13085E+00_JPRB /)  
+KB(:, 3,25,10) = (/ &
+ & 0.55832E-01_JPRB,0.16535E+00_JPRB,0.19157E+00_JPRB,0.19578E+00_JPRB,0.14380E+00_JPRB /)  
+KB(:, 4,25,10) = (/ &
+ & 0.59570E-01_JPRB,0.17943E+00_JPRB,0.20993E+00_JPRB,0.21423E+00_JPRB,0.15728E+00_JPRB /)  
+KB(:, 5,25,10) = (/ &
+ & 0.62996E-01_JPRB,0.19323E+00_JPRB,0.22909E+00_JPRB,0.23401E+00_JPRB,0.17147E+00_JPRB /)  
+KB(:, 1,26,10) = (/ &
+ & 0.42166E-01_JPRB,0.13173E+00_JPRB,0.15395E+00_JPRB,0.15801E+00_JPRB,0.11401E+00_JPRB /)  
+KB(:, 2,26,10) = (/ &
+ & 0.45660E-01_JPRB,0.14616E+00_JPRB,0.17062E+00_JPRB,0.17468E+00_JPRB,0.12664E+00_JPRB /)  
+KB(:, 3,26,10) = (/ &
+ & 0.49079E-01_JPRB,0.16071E+00_JPRB,0.18859E+00_JPRB,0.19278E+00_JPRB,0.14002E+00_JPRB /)  
+KB(:, 4,26,10) = (/ &
+ & 0.52306E-01_JPRB,0.17521E+00_JPRB,0.20782E+00_JPRB,0.21223E+00_JPRB,0.15402E+00_JPRB /)  
+KB(:, 5,26,10) = (/ &
+ & 0.55285E-01_JPRB,0.18955E+00_JPRB,0.22765E+00_JPRB,0.23299E+00_JPRB,0.16864E+00_JPRB /)  
+KB(:, 1,27,10) = (/ &
+ & 0.37040E-01_JPRB,0.12755E+00_JPRB,0.15088E+00_JPRB,0.15474E+00_JPRB,0.11059E+00_JPRB /)  
+KB(:, 2,27,10) = (/ &
+ & 0.40121E-01_JPRB,0.14241E+00_JPRB,0.16845E+00_JPRB,0.17243E+00_JPRB,0.12369E+00_JPRB /)  
+KB(:, 3,27,10) = (/ &
+ & 0.43101E-01_JPRB,0.15742E+00_JPRB,0.18726E+00_JPRB,0.19156E+00_JPRB,0.13753E+00_JPRB /)  
+KB(:, 4,27,10) = (/ &
+ & 0.45931E-01_JPRB,0.17241E+00_JPRB,0.20722E+00_JPRB,0.21200E+00_JPRB,0.15204E+00_JPRB /)  
+KB(:, 5,27,10) = (/ &
+ & 0.48598E-01_JPRB,0.18733E+00_JPRB,0.22772E+00_JPRB,0.23361E+00_JPRB,0.16711E+00_JPRB /)  
+KB(:, 1,28,10) = (/ &
+ & 0.32582E-01_JPRB,0.12457E+00_JPRB,0.14931E+00_JPRB,0.15310E+00_JPRB,0.10829E+00_JPRB /)  
+KB(:, 2,28,10) = (/ &
+ & 0.35269E-01_JPRB,0.13987E+00_JPRB,0.16776E+00_JPRB,0.17185E+00_JPRB,0.12185E+00_JPRB /)  
+KB(:, 3,28,10) = (/ &
+ & 0.37905E-01_JPRB,0.15538E+00_JPRB,0.18740E+00_JPRB,0.19192E+00_JPRB,0.13621E+00_JPRB /)  
+KB(:, 4,28,10) = (/ &
+ & 0.40411E-01_JPRB,0.17101E+00_JPRB,0.20797E+00_JPRB,0.21319E+00_JPRB,0.15122E+00_JPRB /)  
+KB(:, 5,28,10) = (/ &
+ & 0.42843E-01_JPRB,0.18643E+00_JPRB,0.22906E+00_JPRB,0.23551E+00_JPRB,0.16683E+00_JPRB /)  
+KB(:, 1,29,10) = (/ &
+ & 0.28694E-01_JPRB,0.12285E+00_JPRB,0.14922E+00_JPRB,0.15309E+00_JPRB,0.10715E+00_JPRB /)  
+KB(:, 2,29,10) = (/ &
+ & 0.31078E-01_JPRB,0.13867E+00_JPRB,0.16851E+00_JPRB,0.17281E+00_JPRB,0.12115E+00_JPRB /)  
+KB(:, 3,29,10) = (/ &
+ & 0.33398E-01_JPRB,0.15475E+00_JPRB,0.18886E+00_JPRB,0.19373E+00_JPRB,0.13609E+00_JPRB /)  
+KB(:, 4,29,10) = (/ &
+ & 0.35655E-01_JPRB,0.17087E+00_JPRB,0.21002E+00_JPRB,0.21569E+00_JPRB,0.15161E+00_JPRB /)  
+KB(:, 5,29,10) = (/ &
+ & 0.37934E-01_JPRB,0.18672E+00_JPRB,0.23156E+00_JPRB,0.23855E+00_JPRB,0.16767E+00_JPRB /)  
+KB(:, 1,30,10) = (/ &
+ & 0.25318E-01_JPRB,0.12223E+00_JPRB,0.15038E+00_JPRB,0.15442E+00_JPRB,0.10692E+00_JPRB /)  
+KB(:, 2,30,10) = (/ &
+ & 0.27416E-01_JPRB,0.13863E+00_JPRB,0.17040E+00_JPRB,0.17493E+00_JPRB,0.12146E+00_JPRB /)  
+KB(:, 3,30,10) = (/ &
+ & 0.29487E-01_JPRB,0.15524E+00_JPRB,0.19136E+00_JPRB,0.19656E+00_JPRB,0.13693E+00_JPRB /)  
+KB(:, 4,30,10) = (/ &
+ & 0.31585E-01_JPRB,0.17178E+00_JPRB,0.21298E+00_JPRB,0.21911E+00_JPRB,0.15294E+00_JPRB /)  
+KB(:, 5,30,10) = (/ &
+ & 0.33743E-01_JPRB,0.18794E+00_JPRB,0.23489E+00_JPRB,0.24234E+00_JPRB,0.16937E+00_JPRB /)  
+KB(:, 1,31,10) = (/ &
+ & 0.22384E-01_JPRB,0.12276E+00_JPRB,0.15268E+00_JPRB,0.15694E+00_JPRB,0.10764E+00_JPRB /)  
+KB(:, 2,31,10) = (/ &
+ & 0.24241E-01_JPRB,0.13972E+00_JPRB,0.17333E+00_JPRB,0.17809E+00_JPRB,0.12275E+00_JPRB /)  
+KB(:, 3,31,10) = (/ &
+ & 0.26155E-01_JPRB,0.15678E+00_JPRB,0.19481E+00_JPRB,0.20028E+00_JPRB,0.13870E+00_JPRB /)  
+KB(:, 4,31,10) = (/ &
+ & 0.28119E-01_JPRB,0.17362E+00_JPRB,0.21675E+00_JPRB,0.22330E+00_JPRB,0.15510E+00_JPRB /)  
+KB(:, 5,31,10) = (/ &
+ & 0.30218E-01_JPRB,0.19000E+00_JPRB,0.23891E+00_JPRB,0.24680E+00_JPRB,0.17182E+00_JPRB /)  
+KB(:, 1,32,10) = (/ &
+ & 0.19818E-01_JPRB,0.12431E+00_JPRB,0.15590E+00_JPRB,0.16037E+00_JPRB,0.10919E+00_JPRB /)  
+KB(:, 2,32,10) = (/ &
+ & 0.21499E-01_JPRB,0.14174E+00_JPRB,0.17710E+00_JPRB,0.18207E+00_JPRB,0.12484E+00_JPRB /)  
+KB(:, 3,32,10) = (/ &
+ & 0.23289E-01_JPRB,0.15910E+00_JPRB,0.19892E+00_JPRB,0.20468E+00_JPRB,0.14116E+00_JPRB /)  
+KB(:, 4,32,10) = (/ &
+ & 0.25197E-01_JPRB,0.17612E+00_JPRB,0.22110E+00_JPRB,0.22808E+00_JPRB,0.15787E+00_JPRB /)  
+KB(:, 5,32,10) = (/ &
+ & 0.27257E-01_JPRB,0.19267E+00_JPRB,0.24341E+00_JPRB,0.25172E+00_JPRB,0.17483E+00_JPRB /)  
+KB(:, 1,33,10) = (/ &
+ & 0.17588E-01_JPRB,0.12670E+00_JPRB,0.15984E+00_JPRB,0.16448E+00_JPRB,0.11147E+00_JPRB /)  
+KB(:, 2,33,10) = (/ &
+ & 0.19157E-01_JPRB,0.14450E+00_JPRB,0.18143E+00_JPRB,0.18665E+00_JPRB,0.12758E+00_JPRB /)  
+KB(:, 3,33,10) = (/ &
+ & 0.20859E-01_JPRB,0.16204E+00_JPRB,0.20353E+00_JPRB,0.20957E+00_JPRB,0.14421E+00_JPRB /)  
+KB(:, 4,33,10) = (/ &
+ & 0.22735E-01_JPRB,0.17915E+00_JPRB,0.22585E+00_JPRB,0.23324E+00_JPRB,0.16113E+00_JPRB /)  
+KB(:, 5,33,10) = (/ &
+ & 0.24799E-01_JPRB,0.19574E+00_JPRB,0.24826E+00_JPRB,0.25697E+00_JPRB,0.17829E+00_JPRB /)  
+KB(:, 1,34,10) = (/ &
+ & 0.15617E-01_JPRB,0.12913E+00_JPRB,0.16354E+00_JPRB,0.16830E+00_JPRB,0.11378E+00_JPRB /)  
+KB(:, 2,34,10) = (/ &
+ & 0.17096E-01_JPRB,0.14716E+00_JPRB,0.18538E+00_JPRB,0.19084E+00_JPRB,0.13021E+00_JPRB /)  
+KB(:, 3,34,10) = (/ &
+ & 0.18753E-01_JPRB,0.16482E+00_JPRB,0.20769E+00_JPRB,0.21402E+00_JPRB,0.14705E+00_JPRB /)  
+KB(:, 4,34,10) = (/ &
+ & 0.20625E-01_JPRB,0.18194E+00_JPRB,0.23012E+00_JPRB,0.23784E+00_JPRB,0.16411E+00_JPRB /)  
+KB(:, 5,34,10) = (/ &
+ & 0.22709E-01_JPRB,0.19848E+00_JPRB,0.25256E+00_JPRB,0.26160E+00_JPRB,0.18143E+00_JPRB /)  
+KB(:, 1,35,10) = (/ &
+ & 0.13789E-01_JPRB,0.13026E+00_JPRB,0.16543E+00_JPRB,0.17032E+00_JPRB,0.11490E+00_JPRB /)  
+KB(:, 2,35,10) = (/ &
+ & 0.15216E-01_JPRB,0.14846E+00_JPRB,0.18743E+00_JPRB,0.19307E+00_JPRB,0.13153E+00_JPRB /)  
+KB(:, 3,35,10) = (/ &
+ & 0.16842E-01_JPRB,0.16621E+00_JPRB,0.20987E+00_JPRB,0.21641E+00_JPRB,0.14851E+00_JPRB /)  
+KB(:, 4,35,10) = (/ &
+ & 0.18686E-01_JPRB,0.18333E+00_JPRB,0.23239E+00_JPRB,0.24032E+00_JPRB,0.16565E+00_JPRB /)  
+KB(:, 5,35,10) = (/ &
+ & 0.20799E-01_JPRB,0.19983E+00_JPRB,0.25487E+00_JPRB,0.26409E+00_JPRB,0.18307E+00_JPRB /)  
+KB(:, 1,36,10) = (/ &
+ & 0.12099E-01_JPRB,0.12969E+00_JPRB,0.16517E+00_JPRB,0.17011E+00_JPRB,0.11448E+00_JPRB /)  
+KB(:, 2,36,10) = (/ &
+ & 0.13456E-01_JPRB,0.14803E+00_JPRB,0.18723E+00_JPRB,0.19293E+00_JPRB,0.13120E+00_JPRB /)  
+KB(:, 3,36,10) = (/ &
+ & 0.15032E-01_JPRB,0.16587E+00_JPRB,0.20973E+00_JPRB,0.21635E+00_JPRB,0.14826E+00_JPRB /)  
+KB(:, 4,36,10) = (/ &
+ & 0.16854E-01_JPRB,0.18305E+00_JPRB,0.23232E+00_JPRB,0.24032E+00_JPRB,0.16546E+00_JPRB /)  
+KB(:, 5,36,10) = (/ &
+ & 0.18993E-01_JPRB,0.19959E+00_JPRB,0.25485E+00_JPRB,0.26414E+00_JPRB,0.18292E+00_JPRB /)  
+KB(:, 1,37,10) = (/ &
+ & 0.10461E-01_JPRB,0.12652E+00_JPRB,0.16173E+00_JPRB,0.16663E+00_JPRB,0.11173E+00_JPRB /)  
+KB(:, 2,37,10) = (/ &
+ & 0.11729E-01_JPRB,0.14498E+00_JPRB,0.18379E+00_JPRB,0.18940E+00_JPRB,0.12844E+00_JPRB /)  
+KB(:, 3,37,10) = (/ &
+ & 0.13230E-01_JPRB,0.16298E+00_JPRB,0.20628E+00_JPRB,0.21278E+00_JPRB,0.14553E+00_JPRB /)  
+KB(:, 4,37,10) = (/ &
+ & 0.15005E-01_JPRB,0.18033E+00_JPRB,0.22891E+00_JPRB,0.23679E+00_JPRB,0.16275E+00_JPRB /)  
+KB(:, 5,37,10) = (/ &
+ & 0.17126E-01_JPRB,0.19699E+00_JPRB,0.25151E+00_JPRB,0.26065E+00_JPRB,0.18019E+00_JPRB /)  
+KB(:, 1,38,10) = (/ &
+ & 0.90496E-02_JPRB,0.12333E+00_JPRB,0.15823E+00_JPRB,0.16307E+00_JPRB,0.10897E+00_JPRB /)  
+KB(:, 2,38,10) = (/ &
+ & 0.10227E-01_JPRB,0.14188E+00_JPRB,0.18026E+00_JPRB,0.18578E+00_JPRB,0.12565E+00_JPRB /)  
+KB(:, 3,38,10) = (/ &
+ & 0.11665E-01_JPRB,0.16002E+00_JPRB,0.20273E+00_JPRB,0.20911E+00_JPRB,0.14274E+00_JPRB /)  
+KB(:, 4,38,10) = (/ &
+ & 0.13392E-01_JPRB,0.17754E+00_JPRB,0.22537E+00_JPRB,0.23309E+00_JPRB,0.15996E+00_JPRB /)  
+KB(:, 5,38,10) = (/ &
+ & 0.15506E-01_JPRB,0.19433E+00_JPRB,0.24804E+00_JPRB,0.25702E+00_JPRB,0.17741E+00_JPRB /)  
+KB(:, 1,39,10) = (/ &
+ & 0.78338E-02_JPRB,0.12027E+00_JPRB,0.15482E+00_JPRB,0.15961E+00_JPRB,0.10632E+00_JPRB /)  
+KB(:, 2,39,10) = (/ &
+ & 0.89378E-02_JPRB,0.13888E+00_JPRB,0.17682E+00_JPRB,0.18224E+00_JPRB,0.12295E+00_JPRB /)  
+KB(:, 3,39,10) = (/ &
+ & 0.10310E-01_JPRB,0.15714E+00_JPRB,0.19926E+00_JPRB,0.20553E+00_JPRB,0.14003E+00_JPRB /)  
+KB(:, 4,39,10) = (/ &
+ & 0.12002E-01_JPRB,0.17480E+00_JPRB,0.22192E+00_JPRB,0.22947E+00_JPRB,0.15725E+00_JPRB /)  
+KB(:, 5,39,10) = (/ &
+ & 0.14105E-01_JPRB,0.19172E+00_JPRB,0.24464E+00_JPRB,0.25344E+00_JPRB,0.17470E+00_JPRB /)  
+KB(:, 1,40,10) = (/ &
+ & 0.66914E-02_JPRB,0.11542E+00_JPRB,0.14925E+00_JPRB,0.15395E+00_JPRB,0.10210E+00_JPRB /)  
+KB(:, 2,40,10) = (/ &
+ & 0.77047E-02_JPRB,0.13403E+00_JPRB,0.17118E+00_JPRB,0.17643E+00_JPRB,0.11860E+00_JPRB /)  
+KB(:, 3,40,10) = (/ &
+ & 0.89835E-02_JPRB,0.15246E+00_JPRB,0.19353E+00_JPRB,0.19961E+00_JPRB,0.13564E+00_JPRB /)  
+KB(:, 4,40,10) = (/ &
+ & 0.10606E-01_JPRB,0.17030E+00_JPRB,0.21619E+00_JPRB,0.22340E+00_JPRB,0.15283E+00_JPRB /)  
+KB(:, 5,40,10) = (/ &
+ & 0.12648E-01_JPRB,0.18743E+00_JPRB,0.23893E+00_JPRB,0.24746E+00_JPRB,0.17023E+00_JPRB /)  
+KB(:, 1,41,10) = (/ &
+ & 0.57043E-02_JPRB,0.11041E+00_JPRB,0.14350E+00_JPRB,0.14812E+00_JPRB,0.97770E-01_JPRB /)  
+KB(:, 2,41,10) = (/ &
+ & 0.66329E-02_JPRB,0.12897E+00_JPRB,0.16532E+00_JPRB,0.17041E+00_JPRB,0.11409E+00_JPRB /)  
+KB(:, 3,41,10) = (/ &
+ & 0.78105E-02_JPRB,0.14755E+00_JPRB,0.18757E+00_JPRB,0.19344E+00_JPRB,0.13104E+00_JPRB /)  
+KB(:, 4,41,10) = (/ &
+ & 0.93536E-02_JPRB,0.16558E+00_JPRB,0.21020E+00_JPRB,0.21707E+00_JPRB,0.14824E+00_JPRB /)  
+KB(:, 5,41,10) = (/ &
+ & 0.11328E-01_JPRB,0.18290E+00_JPRB,0.23295E+00_JPRB,0.24119E+00_JPRB,0.16557E+00_JPRB /)  
+KB(:, 1,42,10) = (/ &
+ & 0.48607E-02_JPRB,0.10547E+00_JPRB,0.13783E+00_JPRB,0.14238E+00_JPRB,0.93542E-01_JPRB /)  
+KB(:, 2,42,10) = (/ &
+ & 0.56953E-02_JPRB,0.12396E+00_JPRB,0.15948E+00_JPRB,0.16442E+00_JPRB,0.10965E+00_JPRB /)  
+KB(:, 3,42,10) = (/ &
+ & 0.67857E-02_JPRB,0.14262E+00_JPRB,0.18165E+00_JPRB,0.18732E+00_JPRB,0.12648E+00_JPRB /)  
+KB(:, 4,42,10) = (/ &
+ & 0.82516E-02_JPRB,0.16083E+00_JPRB,0.20424E+00_JPRB,0.21080E+00_JPRB,0.14367E+00_JPRB /)  
+KB(:, 5,42,10) = (/ &
+ & 0.10149E-01_JPRB,0.17836E+00_JPRB,0.22696E+00_JPRB,0.23490E+00_JPRB,0.16095E+00_JPRB /)  
+KB(:, 1,43,10) = (/ &
+ & 0.40934E-02_JPRB,0.99600E-01_JPRB,0.13106E+00_JPRB,0.13554E+00_JPRB,0.88531E-01_JPRB /)  
+KB(:, 2,43,10) = (/ &
+ & 0.48473E-02_JPRB,0.11796E+00_JPRB,0.15249E+00_JPRB,0.15728E+00_JPRB,0.10438E+00_JPRB /)  
+KB(:, 3,43,10) = (/ &
+ & 0.58407E-02_JPRB,0.13665E+00_JPRB,0.17453E+00_JPRB,0.17995E+00_JPRB,0.12102E+00_JPRB /)  
+KB(:, 4,43,10) = (/ &
+ & 0.71922E-02_JPRB,0.15505E+00_JPRB,0.19702E+00_JPRB,0.20328E+00_JPRB,0.13817E+00_JPRB /)  
+KB(:, 5,43,10) = (/ &
+ & 0.89819E-02_JPRB,0.17282E+00_JPRB,0.21974E+00_JPRB,0.22722E+00_JPRB,0.15541E+00_JPRB /)  
+KB(:, 1,44,10) = (/ &
+ & 0.34279E-02_JPRB,0.93376E-01_JPRB,0.12386E+00_JPRB,0.12828E+00_JPRB,0.83256E-01_JPRB /)  
+KB(:, 2,44,10) = (/ &
+ & 0.40981E-02_JPRB,0.11153E+00_JPRB,0.14501E+00_JPRB,0.14969E+00_JPRB,0.98786E-01_JPRB /)  
+KB(:, 3,44,10) = (/ &
+ & 0.49801E-02_JPRB,0.13017E+00_JPRB,0.16691E+00_JPRB,0.17209E+00_JPRB,0.11523E+00_JPRB /)  
+KB(:, 4,44,10) = (/ &
+ & 0.62140E-02_JPRB,0.14877E+00_JPRB,0.18924E+00_JPRB,0.19525E+00_JPRB,0.13223E+00_JPRB /)  
+KB(:, 5,44,10) = (/ &
+ & 0.78865E-02_JPRB,0.16678E+00_JPRB,0.21196E+00_JPRB,0.21896E+00_JPRB,0.14947E+00_JPRB /)  
+KB(:, 1,45,10) = (/ &
+ & 0.28724E-02_JPRB,0.87295E-01_JPRB,0.11671E+00_JPRB,0.12114E+00_JPRB,0.78089E-01_JPRB /)  
+KB(:, 2,45,10) = (/ &
+ & 0.34468E-02_JPRB,0.10517E+00_JPRB,0.13765E+00_JPRB,0.14225E+00_JPRB,0.93322E-01_JPRB /)  
+KB(:, 3,45,10) = (/ &
+ & 0.42450E-02_JPRB,0.12371E+00_JPRB,0.15937E+00_JPRB,0.16431E+00_JPRB,0.10950E+00_JPRB /)  
+KB(:, 4,45,10) = (/ &
+ & 0.53608E-02_JPRB,0.14242E+00_JPRB,0.18156E+00_JPRB,0.18727E+00_JPRB,0.12633E+00_JPRB /)  
+KB(:, 5,45,10) = (/ &
+ & 0.69069E-02_JPRB,0.16067E+00_JPRB,0.20420E+00_JPRB,0.21079E+00_JPRB,0.14356E+00_JPRB /)  
+KB(:, 1,46,10) = (/ &
+ & 0.23836E-02_JPRB,0.81023E-01_JPRB,0.10917E+00_JPRB,0.11375E+00_JPRB,0.72722E-01_JPRB /)  
+KB(:, 2,46,10) = (/ &
+ & 0.28929E-02_JPRB,0.98528E-01_JPRB,0.12997E+00_JPRB,0.13446E+00_JPRB,0.87653E-01_JPRB /)  
+KB(:, 3,46,10) = (/ &
+ & 0.35850E-02_JPRB,0.11690E+00_JPRB,0.15139E+00_JPRB,0.15617E+00_JPRB,0.10350E+00_JPRB /)  
+KB(:, 4,46,10) = (/ &
+ & 0.45850E-02_JPRB,0.13564E+00_JPRB,0.17345E+00_JPRB,0.17887E+00_JPRB,0.12014E+00_JPRB /)  
+KB(:, 5,46,10) = (/ &
+ & 0.59899E-02_JPRB,0.15409E+00_JPRB,0.19595E+00_JPRB,0.20220E+00_JPRB,0.13729E+00_JPRB /)  
+KB(:, 1,47,10) = (/ &
+ & 0.19470E-02_JPRB,0.74238E-01_JPRB,0.10082E+00_JPRB,0.10569E+00_JPRB,0.66936E-01_JPRB /)  
+KB(:, 2,47,10) = (/ &
+ & 0.23890E-02_JPRB,0.91244E-01_JPRB,0.12148E+00_JPRB,0.12591E+00_JPRB,0.81479E-01_JPRB /)  
+KB(:, 3,47,10) = (/ &
+ & 0.29827E-02_JPRB,0.10934E+00_JPRB,0.14258E+00_JPRB,0.14724E+00_JPRB,0.96940E-01_JPRB /)  
+KB(:, 4,47,10) = (/ &
+ & 0.38583E-02_JPRB,0.12800E+00_JPRB,0.16447E+00_JPRB,0.16958E+00_JPRB,0.11333E+00_JPRB /)  
+KB(:, 5,47,10) = (/ &
+ & 0.51142E-02_JPRB,0.14666E+00_JPRB,0.18678E+00_JPRB,0.19270E+00_JPRB,0.13028E+00_JPRB /)  
+KB(:, 1,48,10) = (/ &
+ & 0.15861E-02_JPRB,0.67739E-01_JPRB,0.92637E-01_JPRB,0.97854E-01_JPRB,0.61349E-01_JPRB /)  
+KB(:, 2,48,10) = (/ &
+ & 0.19649E-02_JPRB,0.84157E-01_JPRB,0.11305E+00_JPRB,0.11755E+00_JPRB,0.75432E-01_JPRB /)  
+KB(:, 3,48,10) = (/ &
+ & 0.24852E-02_JPRB,0.10189E+00_JPRB,0.13395E+00_JPRB,0.13849E+00_JPRB,0.90556E-01_JPRB /)  
+KB(:, 4,48,10) = (/ &
+ & 0.32371E-02_JPRB,0.12039E+00_JPRB,0.15554E+00_JPRB,0.16041E+00_JPRB,0.10658E+00_JPRB /)  
+KB(:, 5,48,10) = (/ &
+ & 0.43439E-02_JPRB,0.13914E+00_JPRB,0.17770E+00_JPRB,0.18327E+00_JPRB,0.12334E+00_JPRB /)  
+KB(:, 1,49,10) = (/ &
+ & 0.12857E-02_JPRB,0.61441E-01_JPRB,0.84638E-01_JPRB,0.90184E-01_JPRB,0.55928E-01_JPRB /)  
+KB(:, 2,49,10) = (/ &
+ & 0.16127E-02_JPRB,0.77337E-01_JPRB,0.10472E+00_JPRB,0.10945E+00_JPRB,0.69577E-01_JPRB /)  
+KB(:, 3,49,10) = (/ &
+ & 0.20537E-02_JPRB,0.94575E-01_JPRB,0.12545E+00_JPRB,0.12989E+00_JPRB,0.84331E-01_JPRB /)  
+KB(:, 4,49,10) = (/ &
+ & 0.26910E-02_JPRB,0.11284E+00_JPRB,0.14670E+00_JPRB,0.15143E+00_JPRB,0.99981E-01_JPRB /)  
+KB(:, 5,49,10) = (/ &
+ & 0.36640E-02_JPRB,0.13156E+00_JPRB,0.16870E+00_JPRB,0.17395E+00_JPRB,0.11651E+00_JPRB /)  
+KB(:, 1,50,10) = (/ &
+ & 0.10457E-02_JPRB,0.55773E-01_JPRB,0.77388E-01_JPRB,0.83215E-01_JPRB,0.51035E-01_JPRB /)  
+KB(:, 2,50,10) = (/ &
+ & 0.13145E-02_JPRB,0.71139E-01_JPRB,0.96987E-01_JPRB,0.10202E+00_JPRB,0.64279E-01_JPRB /)  
+KB(:, 3,50,10) = (/ &
+ & 0.17051E-02_JPRB,0.87902E-01_JPRB,0.11756E+00_JPRB,0.12199E+00_JPRB,0.78626E-01_JPRB /)  
+KB(:, 4,50,10) = (/ &
+ & 0.22648E-02_JPRB,0.10582E+00_JPRB,0.13854E+00_JPRB,0.14317E+00_JPRB,0.93933E-01_JPRB /)  
+KB(:, 5,50,10) = (/ &
+ & 0.31061E-02_JPRB,0.12442E+00_JPRB,0.16033E+00_JPRB,0.16532E+00_JPRB,0.11017E+00_JPRB /)  
+KB(:, 1,51,10) = (/ &
+ & 0.84549E-03_JPRB,0.50472E-01_JPRB,0.70528E-01_JPRB,0.76615E-01_JPRB,0.46420E-01_JPRB /)  
+KB(:, 2,51,10) = (/ &
+ & 0.10690E-02_JPRB,0.65329E-01_JPRB,0.89631E-01_JPRB,0.94967E-01_JPRB,0.59271E-01_JPRB /)  
+KB(:, 3,51,10) = (/ &
+ & 0.14006E-02_JPRB,0.81572E-01_JPRB,0.10994E+00_JPRB,0.11450E+00_JPRB,0.73207E-01_JPRB /)  
+KB(:, 4,51,10) = (/ &
+ & 0.18893E-02_JPRB,0.99123E-01_JPRB,0.13077E+00_JPRB,0.13529E+00_JPRB,0.88203E-01_JPRB /)  
+KB(:, 5,51,10) = (/ &
+ & 0.26211E-02_JPRB,0.11756E+00_JPRB,0.15226E+00_JPRB,0.15707E+00_JPRB,0.10410E+00_JPRB /)  
+KB(:, 1,52,10) = (/ &
+ & 0.67948E-03_JPRB,0.45452E-01_JPRB,0.63925E-01_JPRB,0.70191E-01_JPRB,0.41984E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART28',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,52,10) = (/ &
+ & 0.86532E-03_JPRB,0.59697E-01_JPRB,0.82454E-01_JPRB,0.88085E-01_JPRB,0.54427E-01_JPRB /)  
+KB(:, 3,52,10) = (/ &
+ & 0.11431E-02_JPRB,0.75434E-01_JPRB,0.10239E+00_JPRB,0.10721E+00_JPRB,0.67964E-01_JPRB /)  
+KB(:, 4,52,10) = (/ &
+ & 0.15771E-02_JPRB,0.92585E-01_JPRB,0.12313E+00_JPRB,0.12757E+00_JPRB,0.82618E-01_JPRB /)  
+KB(:, 5,52,10) = (/ &
+ & 0.22169E-02_JPRB,0.11074E+00_JPRB,0.14429E+00_JPRB,0.14899E+00_JPRB,0.98166E-01_JPRB /)  
+KB(:, 1,53,10) = (/ &
+ & 0.54404E-03_JPRB,0.40689E-01_JPRB,0.57565E-01_JPRB,0.63870E-01_JPRB,0.37709E-01_JPRB /)  
+KB(:, 2,53,10) = (/ &
+ & 0.69516E-03_JPRB,0.54249E-01_JPRB,0.75469E-01_JPRB,0.81366E-01_JPRB,0.49728E-01_JPRB /)  
+KB(:, 3,53,10) = (/ &
+ & 0.92495E-03_JPRB,0.69505E-01_JPRB,0.94951E-01_JPRB,0.10007E+00_JPRB,0.62880E-01_JPRB /)  
+KB(:, 4,53,10) = (/ &
+ & 0.12935E-02_JPRB,0.86139E-01_JPRB,0.11548E+00_JPRB,0.11993E+00_JPRB,0.77126E-01_JPRB /)  
+KB(:, 5,53,10) = (/ &
+ & 0.18603E-02_JPRB,0.10397E+00_JPRB,0.13641E+00_JPRB,0.14102E+00_JPRB,0.92352E-01_JPRB /)  
+KB(:, 1,54,10) = (/ &
+ & 0.43618E-03_JPRB,0.36557E-01_JPRB,0.51984E-01_JPRB,0.58236E-01_JPRB,0.33960E-01_JPRB /)  
+KB(:, 2,54,10) = (/ &
+ & 0.56166E-03_JPRB,0.49456E-01_JPRB,0.69241E-01_JPRB,0.75371E-01_JPRB,0.45540E-01_JPRB /)  
+KB(:, 3,54,10) = (/ &
+ & 0.75035E-03_JPRB,0.64217E-01_JPRB,0.88252E-01_JPRB,0.93648E-01_JPRB,0.58325E-01_JPRB /)  
+KB(:, 4,54,10) = (/ &
+ & 0.10628E-02_JPRB,0.80385E-01_JPRB,0.10853E+00_JPRB,0.11313E+00_JPRB,0.72201E-01_JPRB /)  
+KB(:, 5,54,10) = (/ &
+ & 0.15600E-02_JPRB,0.97867E-01_JPRB,0.12933E+00_JPRB,0.13384E+00_JPRB,0.87138E-01_JPRB /)  
+KB(:, 1,55,10) = (/ &
+ & 0.34930E-03_JPRB,0.32793E-01_JPRB,0.46881E-01_JPRB,0.52981E-01_JPRB,0.30517E-01_JPRB /)  
+KB(:, 2,55,10) = (/ &
+ & 0.45330E-03_JPRB,0.45087E-01_JPRB,0.63469E-01_JPRB,0.69744E-01_JPRB,0.41669E-01_JPRB /)  
+KB(:, 3,55,10) = (/ &
+ & 0.61016E-03_JPRB,0.59300E-01_JPRB,0.81969E-01_JPRB,0.87622E-01_JPRB,0.54097E-01_JPRB /)  
+KB(:, 4,55,10) = (/ &
+ & 0.87186E-03_JPRB,0.75017E-01_JPRB,0.10190E+00_JPRB,0.10674E+00_JPRB,0.67613E-01_JPRB /)  
+KB(:, 5,55,10) = (/ &
+ & 0.13255E-02_JPRB,0.92144E-01_JPRB,0.12263E+00_JPRB,0.12707E+00_JPRB,0.82251E-01_JPRB /)  
+KB(:, 1,56,10) = (/ &
+ & 0.27869E-03_JPRB,0.29255E-01_JPRB,0.42021E-01_JPRB,0.47895E-01_JPRB,0.27250E-01_JPRB /)  
+KB(:, 2,56,10) = (/ &
+ & 0.36450E-03_JPRB,0.40920E-01_JPRB,0.57903E-01_JPRB,0.64209E-01_JPRB,0.37931E-01_JPRB /)  
+KB(:, 3,56,10) = (/ &
+ & 0.49136E-03_JPRB,0.54534E-01_JPRB,0.75862E-01_JPRB,0.81747E-01_JPRB,0.49990E-01_JPRB /)  
+KB(:, 4,56,10) = (/ &
+ & 0.71172E-03_JPRB,0.69828E-01_JPRB,0.95390E-01_JPRB,0.10049E+00_JPRB,0.63168E-01_JPRB /)  
+KB(:, 5,56,10) = (/ &
+ & 0.11017E-02_JPRB,0.86502E-01_JPRB,0.11594E+00_JPRB,0.12039E+00_JPRB,0.77442E-01_JPRB /)  
+KB(:, 1,57,10) = (/ &
+ & 0.22107E-03_JPRB,0.25925E-01_JPRB,0.37436E-01_JPRB,0.42992E-01_JPRB,0.24134E-01_JPRB /)  
+KB(:, 2,57,10) = (/ &
+ & 0.29170E-03_JPRB,0.36963E-01_JPRB,0.52553E-01_JPRB,0.58819E-01_JPRB,0.34341E-01_JPRB /)  
+KB(:, 3,57,10) = (/ &
+ & 0.39477E-03_JPRB,0.49943E-01_JPRB,0.69900E-01_JPRB,0.76011E-01_JPRB,0.45979E-01_JPRB /)  
+KB(:, 4,57,10) = (/ &
+ & 0.57598E-03_JPRB,0.64771E-01_JPRB,0.88986E-01_JPRB,0.94351E-01_JPRB,0.58814E-01_JPRB /)  
+KB(:, 5,57,10) = (/ &
+ & 0.90995E-03_JPRB,0.80998E-01_JPRB,0.10929E+00_JPRB,0.11387E+00_JPRB,0.72731E-01_JPRB /)  
+KB(:, 1,58,10) = (/ &
+ & 0.17561E-03_JPRB,0.22952E-01_JPRB,0.33334E-01_JPRB,0.38531E-01_JPRB,0.21328E-01_JPRB /)  
+KB(:, 2,58,10) = (/ &
+ & 0.23328E-03_JPRB,0.33378E-01_JPRB,0.47700E-01_JPRB,0.53835E-01_JPRB,0.31067E-01_JPRB /)  
+KB(:, 3,58,10) = (/ &
+ & 0.31697E-03_JPRB,0.45784E-01_JPRB,0.64416E-01_JPRB,0.70683E-01_JPRB,0.42303E-01_JPRB /)  
+KB(:, 4,58,10) = (/ &
+ & 0.46537E-03_JPRB,0.60108E-01_JPRB,0.83029E-01_JPRB,0.88636E-01_JPRB,0.54797E-01_JPRB /)  
+KB(:, 5,58,10) = (/ &
+ & 0.74786E-03_JPRB,0.75908E-01_JPRB,0.10302E+00_JPRB,0.10782E+00_JPRB,0.68377E-01_JPRB /)  
+KB(:, 1,59,10) = (/ &
+ & 0.14648E-03_JPRB,0.21806E-01_JPRB,0.31752E-01_JPRB,0.36796E-01_JPRB,0.20240E-01_JPRB /)  
+KB(:, 2,59,10) = (/ &
+ & 0.19618E-03_JPRB,0.31995E-01_JPRB,0.45805E-01_JPRB,0.51875E-01_JPRB,0.29797E-01_JPRB /)  
+KB(:, 3,59,10) = (/ &
+ & 0.27063E-03_JPRB,0.44166E-01_JPRB,0.62268E-01_JPRB,0.68564E-01_JPRB,0.40859E-01_JPRB /)  
+KB(:, 4,59,10) = (/ &
+ & 0.40629E-03_JPRB,0.58271E-01_JPRB,0.80681E-01_JPRB,0.86380E-01_JPRB,0.53223E-01_JPRB /)  
+KB(:, 5,59,10) = (/ &
+ & 0.67143E-03_JPRB,0.73904E-01_JPRB,0.10053E+00_JPRB,0.10542E+00_JPRB,0.66665E-01_JPRB /)  
+KB(:, 1,13,11) = (/ &
+ & 0.43607E+00_JPRB,0.62808E+00_JPRB,0.71724E+00_JPRB,0.73315E+00_JPRB,0.60101E+00_JPRB /)  
+KB(:, 2,13,11) = (/ &
+ & 0.43332E+00_JPRB,0.62604E+00_JPRB,0.71980E+00_JPRB,0.74002E+00_JPRB,0.61186E+00_JPRB /)  
+KB(:, 3,13,11) = (/ &
+ & 0.43924E+00_JPRB,0.62431E+00_JPRB,0.72116E+00_JPRB,0.74635E+00_JPRB,0.62343E+00_JPRB /)  
+KB(:, 4,13,11) = (/ &
+ & 0.44984E+00_JPRB,0.62482E+00_JPRB,0.72168E+00_JPRB,0.75298E+00_JPRB,0.63261E+00_JPRB /)  
+KB(:, 5,13,11) = (/ &
+ & 0.46047E+00_JPRB,0.63112E+00_JPRB,0.72222E+00_JPRB,0.75987E+00_JPRB,0.64021E+00_JPRB /)  
+KB(:, 1,14,11) = (/ &
+ & 0.38105E+00_JPRB,0.57533E+00_JPRB,0.67001E+00_JPRB,0.68808E+00_JPRB,0.55899E+00_JPRB /)  
+KB(:, 2,14,11) = (/ &
+ & 0.38509E+00_JPRB,0.57518E+00_JPRB,0.67285E+00_JPRB,0.69660E+00_JPRB,0.57227E+00_JPRB /)  
+KB(:, 3,14,11) = (/ &
+ & 0.39449E+00_JPRB,0.57649E+00_JPRB,0.67532E+00_JPRB,0.70510E+00_JPRB,0.58361E+00_JPRB /)  
+KB(:, 4,14,11) = (/ &
+ & 0.40382E+00_JPRB,0.58297E+00_JPRB,0.67784E+00_JPRB,0.71417E+00_JPRB,0.59305E+00_JPRB /)  
+KB(:, 5,14,11) = (/ &
+ & 0.41367E+00_JPRB,0.59430E+00_JPRB,0.68136E+00_JPRB,0.72200E+00_JPRB,0.60202E+00_JPRB /)  
+KB(:, 1,15,11) = (/ &
+ & 0.33634E+00_JPRB,0.52577E+00_JPRB,0.62172E+00_JPRB,0.64383E+00_JPRB,0.51752E+00_JPRB /)  
+KB(:, 2,15,11) = (/ &
+ & 0.34434E+00_JPRB,0.52795E+00_JPRB,0.62601E+00_JPRB,0.65389E+00_JPRB,0.53138E+00_JPRB /)  
+KB(:, 3,15,11) = (/ &
+ & 0.35278E+00_JPRB,0.53440E+00_JPRB,0.63064E+00_JPRB,0.66483E+00_JPRB,0.54288E+00_JPRB /)  
+KB(:, 4,15,11) = (/ &
+ & 0.36194E+00_JPRB,0.54564E+00_JPRB,0.63643E+00_JPRB,0.67473E+00_JPRB,0.55371E+00_JPRB /)  
+KB(:, 5,15,11) = (/ &
+ & 0.37392E+00_JPRB,0.55836E+00_JPRB,0.64562E+00_JPRB,0.68317E+00_JPRB,0.56497E+00_JPRB /)  
+KB(:, 1,16,11) = (/ &
+ & 0.29938E+00_JPRB,0.48063E+00_JPRB,0.57442E+00_JPRB,0.60090E+00_JPRB,0.47563E+00_JPRB /)  
+KB(:, 2,16,11) = (/ &
+ & 0.30677E+00_JPRB,0.48684E+00_JPRB,0.58100E+00_JPRB,0.61362E+00_JPRB,0.49008E+00_JPRB /)  
+KB(:, 3,16,11) = (/ &
+ & 0.31495E+00_JPRB,0.49797E+00_JPRB,0.58852E+00_JPRB,0.62578E+00_JPRB,0.50309E+00_JPRB /)  
+KB(:, 4,16,11) = (/ &
+ & 0.32635E+00_JPRB,0.51101E+00_JPRB,0.59933E+00_JPRB,0.63613E+00_JPRB,0.51641E+00_JPRB /)  
+KB(:, 5,16,11) = (/ &
+ & 0.34098E+00_JPRB,0.52383E+00_JPRB,0.61318E+00_JPRB,0.64534E+00_JPRB,0.52976E+00_JPRB /)  
+KB(:, 1,17,11) = (/ &
+ & 0.26573E+00_JPRB,0.44123E+00_JPRB,0.53003E+00_JPRB,0.56054E+00_JPRB,0.43533E+00_JPRB /)  
+KB(:, 2,17,11) = (/ &
+ & 0.27295E+00_JPRB,0.45155E+00_JPRB,0.53872E+00_JPRB,0.57479E+00_JPRB,0.45023E+00_JPRB /)  
+KB(:, 3,17,11) = (/ &
+ & 0.28334E+00_JPRB,0.46499E+00_JPRB,0.55060E+00_JPRB,0.58775E+00_JPRB,0.46535E+00_JPRB /)  
+KB(:, 4,17,11) = (/ &
+ & 0.29718E+00_JPRB,0.47854E+00_JPRB,0.56610E+00_JPRB,0.59925E+00_JPRB,0.48105E+00_JPRB /)  
+KB(:, 5,17,11) = (/ &
+ & 0.31347E+00_JPRB,0.49215E+00_JPRB,0.58364E+00_JPRB,0.61031E+00_JPRB,0.49645E+00_JPRB /)  
+KB(:, 1,18,11) = (/ &
+ & 0.23548E+00_JPRB,0.40722E+00_JPRB,0.48899E+00_JPRB,0.52175E+00_JPRB,0.39754E+00_JPRB /)  
+KB(:, 2,18,11) = (/ &
+ & 0.24465E+00_JPRB,0.42091E+00_JPRB,0.50155E+00_JPRB,0.53754E+00_JPRB,0.41400E+00_JPRB /)  
+KB(:, 3,18,11) = (/ &
+ & 0.25717E+00_JPRB,0.43494E+00_JPRB,0.51756E+00_JPRB,0.55168E+00_JPRB,0.43132E+00_JPRB /)  
+KB(:, 4,18,11) = (/ &
+ & 0.27241E+00_JPRB,0.44915E+00_JPRB,0.53619E+00_JPRB,0.56524E+00_JPRB,0.44875E+00_JPRB /)  
+KB(:, 5,18,11) = (/ &
+ & 0.28792E+00_JPRB,0.46398E+00_JPRB,0.55551E+00_JPRB,0.57930E+00_JPRB,0.46590E+00_JPRB /)  
+KB(:, 1,19,11) = (/ &
+ & 0.20944E+00_JPRB,0.37826E+00_JPRB,0.45234E+00_JPRB,0.48406E+00_JPRB,0.36392E+00_JPRB /)  
+KB(:, 2,19,11) = (/ &
+ & 0.22089E+00_JPRB,0.39288E+00_JPRB,0.46903E+00_JPRB,0.50178E+00_JPRB,0.38211E+00_JPRB /)  
+KB(:, 3,19,11) = (/ &
+ & 0.23514E+00_JPRB,0.40761E+00_JPRB,0.48827E+00_JPRB,0.51821E+00_JPRB,0.40103E+00_JPRB /)  
+KB(:, 4,19,11) = (/ &
+ & 0.24973E+00_JPRB,0.42303E+00_JPRB,0.50894E+00_JPRB,0.53472E+00_JPRB,0.42003E+00_JPRB /)  
+KB(:, 5,19,11) = (/ &
+ & 0.26400E+00_JPRB,0.44033E+00_JPRB,0.52950E+00_JPRB,0.55236E+00_JPRB,0.43892E+00_JPRB /)  
+KB(:, 1,20,11) = (/ &
+ & 0.18773E+00_JPRB,0.35288E+00_JPRB,0.42094E+00_JPRB,0.44918E+00_JPRB,0.33536E+00_JPRB /)  
+KB(:, 2,20,11) = (/ &
+ & 0.20090E+00_JPRB,0.36792E+00_JPRB,0.44069E+00_JPRB,0.46887E+00_JPRB,0.35493E+00_JPRB /)  
+KB(:, 3,20,11) = (/ &
+ & 0.21482E+00_JPRB,0.38362E+00_JPRB,0.46266E+00_JPRB,0.48831E+00_JPRB,0.37530E+00_JPRB /)  
+KB(:, 4,20,11) = (/ &
+ & 0.22865E+00_JPRB,0.40117E+00_JPRB,0.48452E+00_JPRB,0.50881E+00_JPRB,0.39557E+00_JPRB /)  
+KB(:, 5,20,11) = (/ &
+ & 0.24234E+00_JPRB,0.42087E+00_JPRB,0.50657E+00_JPRB,0.53012E+00_JPRB,0.41595E+00_JPRB /)  
+KB(:, 1,21,11) = (/ &
+ & 0.16913E+00_JPRB,0.33019E+00_JPRB,0.39388E+00_JPRB,0.41795E+00_JPRB,0.31127E+00_JPRB /)  
+KB(:, 2,21,11) = (/ &
+ & 0.18253E+00_JPRB,0.34600E+00_JPRB,0.41645E+00_JPRB,0.43947E+00_JPRB,0.33210E+00_JPRB /)  
+KB(:, 3,21,11) = (/ &
+ & 0.19592E+00_JPRB,0.36350E+00_JPRB,0.43977E+00_JPRB,0.46279E+00_JPRB,0.35347E+00_JPRB /)  
+KB(:, 4,21,11) = (/ &
+ & 0.20921E+00_JPRB,0.38317E+00_JPRB,0.46337E+00_JPRB,0.48719E+00_JPRB,0.37483E+00_JPRB /)  
+KB(:, 5,21,11) = (/ &
+ & 0.22258E+00_JPRB,0.40476E+00_JPRB,0.48708E+00_JPRB,0.51206E+00_JPRB,0.39691E+00_JPRB /)  
+KB(:, 1,22,11) = (/ &
+ & 0.15329E+00_JPRB,0.31121E+00_JPRB,0.37219E+00_JPRB,0.39211E+00_JPRB,0.29266E+00_JPRB /)  
+KB(:, 2,22,11) = (/ &
+ & 0.16615E+00_JPRB,0.32878E+00_JPRB,0.39682E+00_JPRB,0.41672E+00_JPRB,0.31445E+00_JPRB /)  
+KB(:, 3,22,11) = (/ &
+ & 0.17924E+00_JPRB,0.34835E+00_JPRB,0.42167E+00_JPRB,0.44342E+00_JPRB,0.33660E+00_JPRB /)  
+KB(:, 4,22,11) = (/ &
+ & 0.19225E+00_JPRB,0.36990E+00_JPRB,0.44699E+00_JPRB,0.47133E+00_JPRB,0.35944E+00_JPRB /)  
+KB(:, 5,22,11) = (/ &
+ & 0.20541E+00_JPRB,0.39323E+00_JPRB,0.47271E+00_JPRB,0.49943E+00_JPRB,0.38308E+00_JPRB /)  
+KB(:, 1,23,11) = (/ &
+ & 0.13887E+00_JPRB,0.29534E+00_JPRB,0.35451E+00_JPRB,0.37144E+00_JPRB,0.27763E+00_JPRB /)  
+KB(:, 2,23,11) = (/ &
+ & 0.15131E+00_JPRB,0.31502E+00_JPRB,0.38068E+00_JPRB,0.39927E+00_JPRB,0.30013E+00_JPRB /)  
+KB(:, 3,23,11) = (/ &
+ & 0.16398E+00_JPRB,0.33651E+00_JPRB,0.40726E+00_JPRB,0.42913E+00_JPRB,0.32331E+00_JPRB /)  
+KB(:, 4,23,11) = (/ &
+ & 0.17699E+00_JPRB,0.35967E+00_JPRB,0.43436E+00_JPRB,0.45990E+00_JPRB,0.34758E+00_JPRB /)  
+KB(:, 5,23,11) = (/ &
+ & 0.19026E+00_JPRB,0.38467E+00_JPRB,0.46223E+00_JPRB,0.49074E+00_JPRB,0.37282E+00_JPRB /)  
+KB(:, 1,24,11) = (/ &
+ & 0.12585E+00_JPRB,0.28281E+00_JPRB,0.34015E+00_JPRB,0.35619E+00_JPRB,0.26580E+00_JPRB /)  
+KB(:, 2,24,11) = (/ &
+ & 0.13791E+00_JPRB,0.30436E+00_JPRB,0.36812E+00_JPRB,0.38675E+00_JPRB,0.28903E+00_JPRB /)  
+KB(:, 3,24,11) = (/ &
+ & 0.15049E+00_JPRB,0.32769E+00_JPRB,0.39648E+00_JPRB,0.41925E+00_JPRB,0.31342E+00_JPRB /)  
+KB(:, 4,24,11) = (/ &
+ & 0.16367E+00_JPRB,0.35256E+00_JPRB,0.42575E+00_JPRB,0.45270E+00_JPRB,0.33923E+00_JPRB /)  
+KB(:, 5,24,11) = (/ &
+ & 0.17705E+00_JPRB,0.37855E+00_JPRB,0.45558E+00_JPRB,0.48562E+00_JPRB,0.36598E+00_JPRB /)  
+KB(:, 1,25,11) = (/ &
+ & 0.11440E+00_JPRB,0.27340E+00_JPRB,0.32939E+00_JPRB,0.34570E+00_JPRB,0.25676E+00_JPRB /)  
+KB(:, 2,25,11) = (/ &
+ & 0.12619E+00_JPRB,0.29667E+00_JPRB,0.35918E+00_JPRB,0.37882E+00_JPRB,0.28103E+00_JPRB /)  
+KB(:, 3,25,11) = (/ &
+ & 0.13880E+00_JPRB,0.32182E+00_JPRB,0.38965E+00_JPRB,0.41370E+00_JPRB,0.30678E+00_JPRB /)  
+KB(:, 4,25,11) = (/ &
+ & 0.15209E+00_JPRB,0.34806E+00_JPRB,0.42076E+00_JPRB,0.44907E+00_JPRB,0.33404E+00_JPRB /)  
+KB(:, 5,25,11) = (/ &
+ & 0.16564E+00_JPRB,0.37478E+00_JPRB,0.45238E+00_JPRB,0.48364E+00_JPRB,0.36209E+00_JPRB /)  
+KB(:, 1,26,11) = (/ &
+ & 0.10459E+00_JPRB,0.26698E+00_JPRB,0.32246E+00_JPRB,0.33976E+00_JPRB,0.25076E+00_JPRB /)  
+KB(:, 2,26,11) = (/ &
+ & 0.11626E+00_JPRB,0.29209E+00_JPRB,0.35422E+00_JPRB,0.37512E+00_JPRB,0.27618E+00_JPRB /)  
+KB(:, 3,26,11) = (/ &
+ & 0.12895E+00_JPRB,0.31885E+00_JPRB,0.38669E+00_JPRB,0.41203E+00_JPRB,0.30332E+00_JPRB /)  
+KB(:, 4,26,11) = (/ &
+ & 0.14230E+00_JPRB,0.34607E+00_JPRB,0.41933E+00_JPRB,0.44889E+00_JPRB,0.33190E+00_JPRB /)  
+KB(:, 5,26,11) = (/ &
+ & 0.15605E+00_JPRB,0.37346E+00_JPRB,0.45243E+00_JPRB,0.48462E+00_JPRB,0.36103E+00_JPRB /)  
+KB(:, 1,27,11) = (/ &
+ & 0.96118E-01_JPRB,0.26319E+00_JPRB,0.31888E+00_JPRB,0.33748E+00_JPRB,0.24718E+00_JPRB /)  
+KB(:, 2,27,11) = (/ &
+ & 0.10777E+00_JPRB,0.29006E+00_JPRB,0.35247E+00_JPRB,0.37471E+00_JPRB,0.27379E+00_JPRB /)  
+KB(:, 3,27,11) = (/ &
+ & 0.12054E+00_JPRB,0.31789E+00_JPRB,0.38657E+00_JPRB,0.41315E+00_JPRB,0.30239E+00_JPRB /)  
+KB(:, 4,27,11) = (/ &
+ & 0.13403E+00_JPRB,0.34597E+00_JPRB,0.42050E+00_JPRB,0.45108E+00_JPRB,0.33196E+00_JPRB /)  
+KB(:, 5,27,11) = (/ &
+ & 0.14803E+00_JPRB,0.37409E+00_JPRB,0.45469E+00_JPRB,0.48753E+00_JPRB,0.36202E+00_JPRB /)  
+KB(:, 1,28,11) = (/ &
+ & 0.88934E-01_JPRB,0.26189E+00_JPRB,0.31824E+00_JPRB,0.33815E+00_JPRB,0.24575E+00_JPRB /)  
+KB(:, 2,28,11) = (/ &
+ & 0.10066E+00_JPRB,0.29004E+00_JPRB,0.35339E+00_JPRB,0.37699E+00_JPRB,0.27368E+00_JPRB /)  
+KB(:, 3,28,11) = (/ &
+ & 0.11346E+00_JPRB,0.31878E+00_JPRB,0.38868E+00_JPRB,0.41646E+00_JPRB,0.30334E+00_JPRB /)  
+KB(:, 4,28,11) = (/ &
+ & 0.12719E+00_JPRB,0.34746E+00_JPRB,0.42368E+00_JPRB,0.45510E+00_JPRB,0.33384E+00_JPRB /)  
+KB(:, 5,28,11) = (/ &
+ & 0.14149E+00_JPRB,0.37622E+00_JPRB,0.45856E+00_JPRB,0.49189E+00_JPRB,0.36458E+00_JPRB /)  
+KB(:, 1,29,11) = (/ &
+ & 0.82953E-01_JPRB,0.26276E+00_JPRB,0.32032E+00_JPRB,0.34153E+00_JPRB,0.24649E+00_JPRB /)  
+KB(:, 2,29,11) = (/ &
+ & 0.94812E-01_JPRB,0.29186E+00_JPRB,0.35678E+00_JPRB,0.38153E+00_JPRB,0.27563E+00_JPRB /)  
+KB(:, 3,29,11) = (/ &
+ & 0.10778E+00_JPRB,0.32138E+00_JPRB,0.39278E+00_JPRB,0.42163E+00_JPRB,0.30623E+00_JPRB /)  
+KB(:, 4,29,11) = (/ &
+ & 0.12182E+00_JPRB,0.35053E+00_JPRB,0.42853E+00_JPRB,0.46064E+00_JPRB,0.33743E+00_JPRB /)  
+KB(:, 5,29,11) = (/ &
+ & 0.13655E+00_JPRB,0.37990E+00_JPRB,0.46387E+00_JPRB,0.49754E+00_JPRB,0.36866E+00_JPRB /)  
+KB(:, 1,30,11) = (/ &
+ & 0.78111E-01_JPRB,0.26530E+00_JPRB,0.32451E+00_JPRB,0.34680E+00_JPRB,0.24893E+00_JPRB /)  
+KB(:, 2,30,11) = (/ &
+ & 0.90075E-01_JPRB,0.29517E+00_JPRB,0.36183E+00_JPRB,0.38763E+00_JPRB,0.27915E+00_JPRB /)  
+KB(:, 3,30,11) = (/ &
+ & 0.10336E+00_JPRB,0.32522E+00_JPRB,0.39838E+00_JPRB,0.42809E+00_JPRB,0.31046E+00_JPRB /)  
+KB(:, 4,30,11) = (/ &
+ & 0.11787E+00_JPRB,0.35483E+00_JPRB,0.43455E+00_JPRB,0.46718E+00_JPRB,0.34218E+00_JPRB /)  
+KB(:, 5,30,11) = (/ &
+ & 0.13307E+00_JPRB,0.38452E+00_JPRB,0.47003E+00_JPRB,0.50395E+00_JPRB,0.37368E+00_JPRB /)  
+KB(:, 1,31,11) = (/ &
+ & 0.74235E-01_JPRB,0.26927E+00_JPRB,0.33033E+00_JPRB,0.35368E+00_JPRB,0.25294E+00_JPRB /)  
+KB(:, 2,31,11) = (/ &
+ & 0.86475E-01_JPRB,0.29980E+00_JPRB,0.36814E+00_JPRB,0.39505E+00_JPRB,0.28398E+00_JPRB /)  
+KB(:, 3,31,11) = (/ &
+ & 0.10025E+00_JPRB,0.33020E+00_JPRB,0.40500E+00_JPRB,0.43563E+00_JPRB,0.31586E+00_JPRB /)  
+KB(:, 4,31,11) = (/ &
+ & 0.11530E+00_JPRB,0.36008E+00_JPRB,0.44151E+00_JPRB,0.47461E+00_JPRB,0.34790E+00_JPRB /)  
+KB(:, 5,31,11) = (/ &
+ & 0.13103E+00_JPRB,0.38989E+00_JPRB,0.47695E+00_JPRB,0.51108E+00_JPRB,0.37953E+00_JPRB /)  
+KB(:, 1,32,11) = (/ &
+ & 0.71362E-01_JPRB,0.27445E+00_JPRB,0.33748E+00_JPRB,0.36171E+00_JPRB,0.25820E+00_JPRB /)  
+KB(:, 2,32,11) = (/ &
+ & 0.84060E-01_JPRB,0.30547E+00_JPRB,0.37545E+00_JPRB,0.40335E+00_JPRB,0.28988E+00_JPRB /)  
+KB(:, 3,32,11) = (/ &
+ & 0.98456E-01_JPRB,0.33600E+00_JPRB,0.41253E+00_JPRB,0.44393E+00_JPRB,0.32217E+00_JPRB /)  
+KB(:, 4,32,11) = (/ &
+ & 0.11408E+00_JPRB,0.36612E+00_JPRB,0.44914E+00_JPRB,0.48266E+00_JPRB,0.35443E+00_JPRB /)  
+KB(:, 5,32,11) = (/ &
+ & 0.13035E+00_JPRB,0.39590E+00_JPRB,0.48448E+00_JPRB,0.51873E+00_JPRB,0.38602E+00_JPRB /)  
+KB(:, 1,33,11) = (/ &
+ & 0.69437E-01_JPRB,0.28056E+00_JPRB,0.34548E+00_JPRB,0.37055E+00_JPRB,0.26439E+00_JPRB /)  
+KB(:, 2,33,11) = (/ &
+ & 0.82778E-01_JPRB,0.31179E+00_JPRB,0.38345E+00_JPRB,0.41222E+00_JPRB,0.29653E+00_JPRB /)  
+KB(:, 3,33,11) = (/ &
+ & 0.97818E-01_JPRB,0.34234E+00_JPRB,0.42058E+00_JPRB,0.45271E+00_JPRB,0.32902E+00_JPRB /)  
+KB(:, 4,33,11) = (/ &
+ & 0.11406E+00_JPRB,0.37264E+00_JPRB,0.45719E+00_JPRB,0.49102E+00_JPRB,0.36138E+00_JPRB /)  
+KB(:, 5,33,11) = (/ &
+ & 0.13083E+00_JPRB,0.40228E+00_JPRB,0.49234E+00_JPRB,0.52669E+00_JPRB,0.39293E+00_JPRB /)  
+KB(:, 1,34,11) = (/ &
+ & 0.68001E-01_JPRB,0.28611E+00_JPRB,0.35258E+00_JPRB,0.37843E+00_JPRB,0.27007E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART29',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,34,11) = (/ &
+ & 0.82015E-01_JPRB,0.31742E+00_JPRB,0.39059E+00_JPRB,0.42007E+00_JPRB,0.30253E+00_JPRB /)  
+KB(:, 3,34,11) = (/ &
+ & 0.97684E-01_JPRB,0.34800E+00_JPRB,0.42777E+00_JPRB,0.46038E+00_JPRB,0.33518E+00_JPRB /)  
+KB(:, 4,34,11) = (/ &
+ & 0.11453E+00_JPRB,0.37836E+00_JPRB,0.46423E+00_JPRB,0.49832E+00_JPRB,0.36754E+00_JPRB /)  
+KB(:, 5,34,11) = (/ &
+ & 0.13165E+00_JPRB,0.40799E+00_JPRB,0.49927E+00_JPRB,0.53358E+00_JPRB,0.39902E+00_JPRB /)  
+KB(:, 1,35,11) = (/ &
+ & 0.66173E-01_JPRB,0.28901E+00_JPRB,0.35634E+00_JPRB,0.38261E+00_JPRB,0.27305E+00_JPRB /)  
+KB(:, 2,35,11) = (/ &
+ & 0.80679E-01_JPRB,0.32036E+00_JPRB,0.39443E+00_JPRB,0.42428E+00_JPRB,0.30572E+00_JPRB /)  
+KB(:, 3,35,11) = (/ &
+ & 0.96839E-01_JPRB,0.35097E+00_JPRB,0.43164E+00_JPRB,0.46448E+00_JPRB,0.33845E+00_JPRB /)  
+KB(:, 4,35,11) = (/ &
+ & 0.11412E+00_JPRB,0.38139E+00_JPRB,0.46804E+00_JPRB,0.50225E+00_JPRB,0.37079E+00_JPRB /)  
+KB(:, 5,35,11) = (/ &
+ & 0.13154E+00_JPRB,0.41104E+00_JPRB,0.50302E+00_JPRB,0.53730E+00_JPRB,0.40230E+00_JPRB /)  
+KB(:, 1,36,11) = (/ &
+ & 0.63512E-01_JPRB,0.28876E+00_JPRB,0.35615E+00_JPRB,0.38246E+00_JPRB,0.27277E+00_JPRB /)  
+KB(:, 2,36,11) = (/ &
+ & 0.78322E-01_JPRB,0.32017E+00_JPRB,0.39440E+00_JPRB,0.42423E+00_JPRB,0.30554E+00_JPRB /)  
+KB(:, 3,36,11) = (/ &
+ & 0.94792E-01_JPRB,0.35084E+00_JPRB,0.43169E+00_JPRB,0.46451E+00_JPRB,0.33835E+00_JPRB /)  
+KB(:, 4,36,11) = (/ &
+ & 0.11239E+00_JPRB,0.38129E+00_JPRB,0.46814E+00_JPRB,0.50234E+00_JPRB,0.37075E+00_JPRB /)  
+KB(:, 5,36,11) = (/ &
+ & 0.13007E+00_JPRB,0.41105E+00_JPRB,0.50318E+00_JPRB,0.53745E+00_JPRB,0.40235E+00_JPRB /)  
+KB(:, 1,37,11) = (/ &
+ & 0.59276E-01_JPRB,0.28388E+00_JPRB,0.35018E+00_JPRB,0.37605E+00_JPRB,0.26777E+00_JPRB /)  
+KB(:, 2,37,11) = (/ &
+ & 0.74070E-01_JPRB,0.31543E+00_JPRB,0.38877E+00_JPRB,0.41809E+00_JPRB,0.30055E+00_JPRB /)  
+KB(:, 3,37,11) = (/ &
+ & 0.90621E-01_JPRB,0.34621E+00_JPRB,0.42622E+00_JPRB,0.45870E+00_JPRB,0.33345E+00_JPRB /)  
+KB(:, 4,37,11) = (/ &
+ & 0.10838E+00_JPRB,0.37677E+00_JPRB,0.46291E+00_JPRB,0.49695E+00_JPRB,0.36598E+00_JPRB /)  
+KB(:, 5,37,11) = (/ &
+ & 0.12629E+00_JPRB,0.40664E+00_JPRB,0.49817E+00_JPRB,0.53255E+00_JPRB,0.39771E+00_JPRB /)  
+KB(:, 1,38,11) = (/ &
+ & 0.55352E-01_JPRB,0.27885E+00_JPRB,0.34399E+00_JPRB,0.36943E+00_JPRB,0.26263E+00_JPRB /)  
+KB(:, 2,38,11) = (/ &
+ & 0.70099E-01_JPRB,0.31053E+00_JPRB,0.38289E+00_JPRB,0.41165E+00_JPRB,0.29537E+00_JPRB /)  
+KB(:, 3,38,11) = (/ &
+ & 0.86674E-01_JPRB,0.34144E+00_JPRB,0.42052E+00_JPRB,0.45261E+00_JPRB,0.32834E+00_JPRB /)  
+KB(:, 4,38,11) = (/ &
+ & 0.10451E+00_JPRB,0.37207E+00_JPRB,0.45745E+00_JPRB,0.49130E+00_JPRB,0.36103E+00_JPRB /)  
+KB(:, 5,38,11) = (/ &
+ & 0.12261E+00_JPRB,0.40208E+00_JPRB,0.49291E+00_JPRB,0.52735E+00_JPRB,0.39288E+00_JPRB /)  
+KB(:, 1,39,11) = (/ &
+ & 0.51830E-01_JPRB,0.27388E+00_JPRB,0.33795E+00_JPRB,0.36294E+00_JPRB,0.25765E+00_JPRB /)  
+KB(:, 2,39,11) = (/ &
+ & 0.66473E-01_JPRB,0.30570E+00_JPRB,0.37709E+00_JPRB,0.40534E+00_JPRB,0.29029E+00_JPRB /)  
+KB(:, 3,39,11) = (/ &
+ & 0.83032E-01_JPRB,0.33678E+00_JPRB,0.41490E+00_JPRB,0.44656E+00_JPRB,0.32332E+00_JPRB /)  
+KB(:, 4,39,11) = (/ &
+ & 0.10089E+00_JPRB,0.36746E+00_JPRB,0.45203E+00_JPRB,0.48569E+00_JPRB,0.35615E+00_JPRB /)  
+KB(:, 5,39,11) = (/ &
+ & 0.11914E+00_JPRB,0.39759E+00_JPRB,0.48773E+00_JPRB,0.52218E+00_JPRB,0.38813E+00_JPRB /)  
+KB(:, 1,40,11) = (/ &
+ & 0.47273E-01_JPRB,0.26566E+00_JPRB,0.32789E+00_JPRB,0.35219E+00_JPRB,0.24948E+00_JPRB /)  
+KB(:, 2,40,11) = (/ &
+ & 0.61538E-01_JPRB,0.29768E+00_JPRB,0.36730E+00_JPRB,0.39473E+00_JPRB,0.28193E+00_JPRB /)  
+KB(:, 3,40,11) = (/ &
+ & 0.77858E-01_JPRB,0.32903E+00_JPRB,0.40551E+00_JPRB,0.43635E+00_JPRB,0.31499E+00_JPRB /)  
+KB(:, 4,40,11) = (/ &
+ & 0.95580E-01_JPRB,0.35975E+00_JPRB,0.44288E+00_JPRB,0.47617E+00_JPRB,0.34794E+00_JPRB /)  
+KB(:, 5,40,11) = (/ &
+ & 0.11394E+00_JPRB,0.39008E+00_JPRB,0.47900E+00_JPRB,0.51333E+00_JPRB,0.38020E+00_JPRB /)  
+KB(:, 1,41,11) = (/ &
+ & 0.42888E-01_JPRB,0.25708E+00_JPRB,0.31732E+00_JPRB,0.34096E+00_JPRB,0.24098E+00_JPRB /)  
+KB(:, 2,41,11) = (/ &
+ & 0.56697E-01_JPRB,0.28927E+00_JPRB,0.35696E+00_JPRB,0.38355E+00_JPRB,0.27327E+00_JPRB /)  
+KB(:, 3,41,11) = (/ &
+ & 0.72702E-01_JPRB,0.32083E+00_JPRB,0.39561E+00_JPRB,0.42555E+00_JPRB,0.30626E+00_JPRB /)  
+KB(:, 4,41,11) = (/ &
+ & 0.90227E-01_JPRB,0.35164E+00_JPRB,0.43315E+00_JPRB,0.46599E+00_JPRB,0.33930E+00_JPRB /)  
+KB(:, 5,41,11) = (/ &
+ & 0.10861E+00_JPRB,0.38219E+00_JPRB,0.46971E+00_JPRB,0.50385E+00_JPRB,0.37183E+00_JPRB /)  
+KB(:, 1,42,11) = (/ &
+ & 0.38819E-01_JPRB,0.24850E+00_JPRB,0.30677E+00_JPRB,0.32968E+00_JPRB,0.23256E+00_JPRB /)  
+KB(:, 2,42,11) = (/ &
+ & 0.52147E-01_JPRB,0.28080E+00_JPRB,0.34660E+00_JPRB,0.37239E+00_JPRB,0.26466E+00_JPRB /)  
+KB(:, 3,42,11) = (/ &
+ & 0.67768E-01_JPRB,0.31263E+00_JPRB,0.38564E+00_JPRB,0.41466E+00_JPRB,0.29758E+00_JPRB /)  
+KB(:, 4,42,11) = (/ &
+ & 0.85041E-01_JPRB,0.34356E+00_JPRB,0.42336E+00_JPRB,0.45563E+00_JPRB,0.33065E+00_JPRB /)  
+KB(:, 5,42,11) = (/ &
+ & 0.10335E+00_JPRB,0.37426E+00_JPRB,0.46032E+00_JPRB,0.49419E+00_JPRB,0.36339E+00_JPRB /)  
+KB(:, 1,43,11) = (/ &
+ & 0.34406E-01_JPRB,0.23801E+00_JPRB,0.29406E+00_JPRB,0.31601E+00_JPRB,0.22240E+00_JPRB /)  
+KB(:, 2,43,11) = (/ &
+ & 0.47048E-01_JPRB,0.27050E+00_JPRB,0.33401E+00_JPRB,0.35883E+00_JPRB,0.25435E+00_JPRB /)  
+KB(:, 3,43,11) = (/ &
+ & 0.62114E-01_JPRB,0.30257E+00_JPRB,0.37337E+00_JPRB,0.40135E+00_JPRB,0.28701E+00_JPRB /)  
+KB(:, 4,43,11) = (/ &
+ & 0.79018E-01_JPRB,0.33381E+00_JPRB,0.41146E+00_JPRB,0.44285E+00_JPRB,0.32012E+00_JPRB /)  
+KB(:, 5,43,11) = (/ &
+ & 0.97123E-01_JPRB,0.36459E+00_JPRB,0.44877E+00_JPRB,0.48229E+00_JPRB,0.35311E+00_JPRB /)  
+KB(:, 1,44,11) = (/ &
+ & 0.30068E-01_JPRB,0.22661E+00_JPRB,0.28047E+00_JPRB,0.30141E+00_JPRB,0.21157E+00_JPRB /)  
+KB(:, 2,44,11) = (/ &
+ & 0.41934E-01_JPRB,0.25939E+00_JPRB,0.32031E+00_JPRB,0.34420E+00_JPRB,0.24331E+00_JPRB /)  
+KB(:, 3,44,11) = (/ &
+ & 0.56334E-01_JPRB,0.29165E+00_JPRB,0.35997E+00_JPRB,0.38686E+00_JPRB,0.27569E+00_JPRB /)  
+KB(:, 4,44,11) = (/ &
+ & 0.72738E-01_JPRB,0.32319E+00_JPRB,0.39860E+00_JPRB,0.42881E+00_JPRB,0.30880E+00_JPRB /)  
+KB(:, 5,44,11) = (/ &
+ & 0.90538E-01_JPRB,0.35407E+00_JPRB,0.43616E+00_JPRB,0.46913E+00_JPRB,0.34187E+00_JPRB /)  
+KB(:, 1,45,11) = (/ &
+ & 0.26090E-01_JPRB,0.21511E+00_JPRB,0.26705E+00_JPRB,0.28701E+00_JPRB,0.20089E+00_JPRB /)  
+KB(:, 2,45,11) = (/ &
+ & 0.37182E-01_JPRB,0.24828E+00_JPRB,0.30662E+00_JPRB,0.32954E+00_JPRB,0.23239E+00_JPRB /)  
+KB(:, 3,45,11) = (/ &
+ & 0.50828E-01_JPRB,0.28069E+00_JPRB,0.34649E+00_JPRB,0.37235E+00_JPRB,0.26452E+00_JPRB /)  
+KB(:, 4,45,11) = (/ &
+ & 0.66683E-01_JPRB,0.31254E+00_JPRB,0.38562E+00_JPRB,0.41465E+00_JPRB,0.29751E+00_JPRB /)  
+KB(:, 5,45,11) = (/ &
+ & 0.84110E-01_JPRB,0.34354E+00_JPRB,0.42341E+00_JPRB,0.45565E+00_JPRB,0.33061E+00_JPRB /)  
+KB(:, 1,46,11) = (/ &
+ & 0.22282E-01_JPRB,0.20276E+00_JPRB,0.25300E+00_JPRB,0.27194E+00_JPRB,0.18966E+00_JPRB /)  
+KB(:, 2,46,11) = (/ &
+ & 0.32494E-01_JPRB,0.23634E+00_JPRB,0.29212E+00_JPRB,0.31397E+00_JPRB,0.22083E+00_JPRB /)  
+KB(:, 3,46,11) = (/ &
+ & 0.45322E-01_JPRB,0.26893E+00_JPRB,0.33209E+00_JPRB,0.35685E+00_JPRB,0.25276E+00_JPRB /)  
+KB(:, 4,46,11) = (/ &
+ & 0.60492E-01_JPRB,0.30105E+00_JPRB,0.37160E+00_JPRB,0.39945E+00_JPRB,0.28546E+00_JPRB /)  
+KB(:, 5,46,11) = (/ &
+ & 0.77449E-01_JPRB,0.33241E+00_JPRB,0.40979E+00_JPRB,0.44100E+00_JPRB,0.31859E+00_JPRB /)  
+KB(:, 1,47,11) = (/ &
+ & 0.18534E-01_JPRB,0.18898E+00_JPRB,0.23758E+00_JPRB,0.25552E+00_JPRB,0.17724E+00_JPRB /)  
+KB(:, 2,47,11) = (/ &
+ & 0.27732E-01_JPRB,0.22283E+00_JPRB,0.27608E+00_JPRB,0.29673E+00_JPRB,0.20806E+00_JPRB /)  
+KB(:, 3,47,11) = (/ &
+ & 0.39604E-01_JPRB,0.25581E+00_JPRB,0.31589E+00_JPRB,0.33953E+00_JPRB,0.23975E+00_JPRB /)  
+KB(:, 4,47,11) = (/ &
+ & 0.53911E-01_JPRB,0.28814E+00_JPRB,0.35568E+00_JPRB,0.38226E+00_JPRB,0.27210E+00_JPRB /)  
+KB(:, 5,47,11) = (/ &
+ & 0.70242E-01_JPRB,0.31982E+00_JPRB,0.39452E+00_JPRB,0.42435E+00_JPRB,0.30521E+00_JPRB /)  
+KB(:, 1,48,11) = (/ &
+ & 0.15230E-01_JPRB,0.17512E+00_JPRB,0.22238E+00_JPRB,0.23953E+00_JPRB,0.16496E+00_JPRB /)  
+KB(:, 2,48,11) = (/ &
+ & 0.23424E-01_JPRB,0.20917E+00_JPRB,0.26028E+00_JPRB,0.27977E+00_JPRB,0.19549E+00_JPRB /)  
+KB(:, 3,48,11) = (/ &
+ & 0.34289E-01_JPRB,0.24261E+00_JPRB,0.29967E+00_JPRB,0.32213E+00_JPRB,0.22686E+00_JPRB /)  
+KB(:, 4,48,11) = (/ &
+ & 0.47677E-01_JPRB,0.27510E+00_JPRB,0.33967E+00_JPRB,0.36502E+00_JPRB,0.25892E+00_JPRB /)  
+KB(:, 5,48,11) = (/ &
+ & 0.63303E-01_JPRB,0.30711E+00_JPRB,0.37902E+00_JPRB,0.40749E+00_JPRB,0.29180E+00_JPRB /)  
+KB(:, 1,49,11) = (/ &
+ & 0.12348E-01_JPRB,0.16145E+00_JPRB,0.20748E+00_JPRB,0.22396E+00_JPRB,0.15290E+00_JPRB /)  
+KB(:, 2,49,11) = (/ &
+ & 0.19656E-01_JPRB,0.19547E+00_JPRB,0.24481E+00_JPRB,0.26319E+00_JPRB,0.18304E+00_JPRB /)  
+KB(:, 3,49,11) = (/ &
+ & 0.29411E-01_JPRB,0.22922E+00_JPRB,0.28358E+00_JPRB,0.30484E+00_JPRB,0.21403E+00_JPRB /)  
+KB(:, 4,49,11) = (/ &
+ & 0.41852E-01_JPRB,0.26199E+00_JPRB,0.32356E+00_JPRB,0.34774E+00_JPRB,0.24589E+00_JPRB /)  
+KB(:, 5,49,11) = (/ &
+ & 0.56641E-01_JPRB,0.29425E+00_JPRB,0.36325E+00_JPRB,0.39043E+00_JPRB,0.27839E+00_JPRB /)  
+KB(:, 1,50,11) = (/ &
+ & 0.10059E-01_JPRB,0.14901E+00_JPRB,0.19385E+00_JPRB,0.20977E+00_JPRB,0.14182E+00_JPRB /)  
+KB(:, 2,50,11) = (/ &
+ & 0.16439E-01_JPRB,0.18255E+00_JPRB,0.23049E+00_JPRB,0.24806E+00_JPRB,0.17150E+00_JPRB /)  
+KB(:, 3,50,11) = (/ &
+ & 0.25328E-01_JPRB,0.21656E+00_JPRB,0.26875E+00_JPRB,0.28888E+00_JPRB,0.20219E+00_JPRB /)  
+KB(:, 4,50,11) = (/ &
+ & 0.36730E-01_JPRB,0.24971E+00_JPRB,0.30839E+00_JPRB,0.33151E+00_JPRB,0.23378E+00_JPRB /)  
+KB(:, 5,50,11) = (/ &
+ & 0.50682E-01_JPRB,0.28213E+00_JPRB,0.34832E+00_JPRB,0.37432E+00_JPRB,0.26599E+00_JPRB /)  
+KB(:, 1,51,11) = (/ &
+ & 0.81000E-02_JPRB,0.13718E+00_JPRB,0.18086E+00_JPRB,0.19633E+00_JPRB,0.13125E+00_JPRB /)  
+KB(:, 2,51,11) = (/ &
+ & 0.13663E-01_JPRB,0.17002E+00_JPRB,0.21682E+00_JPRB,0.23372E+00_JPRB,0.16044E+00_JPRB /)  
+KB(:, 3,51,11) = (/ &
+ & 0.21646E-01_JPRB,0.20410E+00_JPRB,0.25452E+00_JPRB,0.27362E+00_JPRB,0.19085E+00_JPRB /)  
+KB(:, 4,51,11) = (/ &
+ & 0.32117E-01_JPRB,0.23766E+00_JPRB,0.29370E+00_JPRB,0.31573E+00_JPRB,0.22210E+00_JPRB /)  
+KB(:, 5,51,11) = (/ &
+ & 0.45217E-01_JPRB,0.27026E+00_JPRB,0.33377E+00_JPRB,0.35865E+00_JPRB,0.25409E+00_JPRB /)  
+KB(:, 1,52,11) = (/ &
+ & 0.64392E-02_JPRB,0.12568E+00_JPRB,0.16814E+00_JPRB,0.18321E+00_JPRB,0.12091E+00_JPRB /)  
+KB(:, 2,52,11) = (/ &
+ & 0.11223E-01_JPRB,0.15773E+00_JPRB,0.20341E+00_JPRB,0.21973E+00_JPRB,0.14959E+00_JPRB /)  
+KB(:, 3,52,11) = (/ &
+ & 0.18327E-01_JPRB,0.19165E+00_JPRB,0.24057E+00_JPRB,0.25870E+00_JPRB,0.17960E+00_JPRB /)  
+KB(:, 4,52,11) = (/ &
+ & 0.27978E-01_JPRB,0.22553E+00_JPRB,0.27924E+00_JPRB,0.30015E+00_JPRB,0.21055E+00_JPRB /)  
+KB(:, 5,52,11) = (/ &
+ & 0.40066E-01_JPRB,0.25840E+00_JPRB,0.31913E+00_JPRB,0.34300E+00_JPRB,0.24233E+00_JPRB /)  
+KB(:, 1,53,11) = (/ &
+ & 0.50582E-02_JPRB,0.11452E+00_JPRB,0.15565E+00_JPRB,0.17040E+00_JPRB,0.11082E+00_JPRB /)  
+KB(:, 2,53,11) = (/ &
+ & 0.90986E-02_JPRB,0.14571E+00_JPRB,0.19026E+00_JPRB,0.20608E+00_JPRB,0.13891E+00_JPRB /)  
+KB(:, 3,53,11) = (/ &
+ & 0.15360E-01_JPRB,0.17911E+00_JPRB,0.22674E+00_JPRB,0.24415E+00_JPRB,0.16845E+00_JPRB /)  
+KB(:, 4,53,11) = (/ &
+ & 0.24079E-01_JPRB,0.21320E+00_JPRB,0.26488E+00_JPRB,0.28473E+00_JPRB,0.19911E+00_JPRB /)  
+KB(:, 5,53,11) = (/ &
+ & 0.35249E-01_JPRB,0.24647E+00_JPRB,0.30443E+00_JPRB,0.32725E+00_JPRB,0.23061E+00_JPRB /)  
+KB(:, 1,54,11) = (/ &
+ & 0.39947E-02_JPRB,0.10467E+00_JPRB,0.14438E+00_JPRB,0.15895E+00_JPRB,0.10183E+00_JPRB /)  
+KB(:, 2,54,11) = (/ &
+ & 0.74123E-02_JPRB,0.13495E+00_JPRB,0.17842E+00_JPRB,0.19384E+00_JPRB,0.12928E+00_JPRB /)  
+KB(:, 3,54,11) = (/ &
+ & 0.12928E-01_JPRB,0.16768E+00_JPRB,0.21428E+00_JPRB,0.23108E+00_JPRB,0.15838E+00_JPRB /)  
+KB(:, 4,54,11) = (/ &
+ & 0.20817E-01_JPRB,0.20178E+00_JPRB,0.25191E+00_JPRB,0.27082E+00_JPRB,0.18875E+00_JPRB /)  
+KB(:, 5,54,11) = (/ &
+ & 0.31131E-01_JPRB,0.23540E+00_JPRB,0.29100E+00_JPRB,0.31283E+00_JPRB,0.21994E+00_JPRB /)  
+KB(:, 1,55,11) = (/ &
+ & 0.31444E-02_JPRB,0.95645E-01_JPRB,0.13357E+00_JPRB,0.14821E+00_JPRB,0.93456E-01_JPRB /)  
+KB(:, 2,55,11) = (/ &
+ & 0.60192E-02_JPRB,0.12488E+00_JPRB,0.16728E+00_JPRB,0.18235E+00_JPRB,0.12022E+00_JPRB /)  
+KB(:, 3,55,11) = (/ &
+ & 0.10844E-01_JPRB,0.15692E+00_JPRB,0.20255E+00_JPRB,0.21884E+00_JPRB,0.14887E+00_JPRB /)  
+KB(:, 4,55,11) = (/ &
+ & 0.17966E-01_JPRB,0.19085E+00_JPRB,0.23968E+00_JPRB,0.25776E+00_JPRB,0.17889E+00_JPRB /)  
+KB(:, 5,55,11) = (/ &
+ & 0.27575E-01_JPRB,0.22475E+00_JPRB,0.27833E+00_JPRB,0.29920E+00_JPRB,0.20981E+00_JPRB /)  
+KB(:, 1,56,11) = (/ &
+ & 0.24408E-02_JPRB,0.87042E-01_JPRB,0.12294E+00_JPRB,0.13774E+00_JPRB,0.85384E-01_JPRB /)  
+KB(:, 2,56,11) = (/ &
+ & 0.48425E-02_JPRB,0.11512E+00_JPRB,0.15634E+00_JPRB,0.17115E+00_JPRB,0.11140E+00_JPRB /)  
+KB(:, 3,56,11) = (/ &
+ & 0.90070E-02_JPRB,0.14641E+00_JPRB,0.19103E+00_JPRB,0.20689E+00_JPRB,0.13953E+00_JPRB /)  
+KB(:, 4,56,11) = (/ &
+ & 0.15384E-01_JPRB,0.17987E+00_JPRB,0.22757E+00_JPRB,0.24502E+00_JPRB,0.16913E+00_JPRB /)  
+KB(:, 5,56,11) = (/ &
+ & 0.24183E-01_JPRB,0.21396E+00_JPRB,0.26576E+00_JPRB,0.28569E+00_JPRB,0.19980E+00_JPRB /)  
+KB(:, 1,57,11) = (/ &
+ & 0.18661E-02_JPRB,0.78869E-01_JPRB,0.11259E+00_JPRB,0.12744E+00_JPRB,0.77594E-01_JPRB /)  
+KB(:, 2,57,11) = (/ &
+ & 0.38393E-02_JPRB,0.10567E+00_JPRB,0.14558E+00_JPRB,0.16018E+00_JPRB,0.10279E+00_JPRB /)  
+KB(:, 3,57,11) = (/ &
+ & 0.73986E-02_JPRB,0.13611E+00_JPRB,0.17972E+00_JPRB,0.19518E+00_JPRB,0.13032E+00_JPRB /)  
+KB(:, 4,57,11) = (/ &
+ & 0.13057E-01_JPRB,0.16895E+00_JPRB,0.21565E+00_JPRB,0.23253E+00_JPRB,0.15951E+00_JPRB /)  
+KB(:, 5,57,11) = (/ &
+ & 0.21059E-01_JPRB,0.20305E+00_JPRB,0.25335E+00_JPRB,0.27238E+00_JPRB,0.18989E+00_JPRB /)  
+KB(:, 1,58,11) = (/ &
+ & 0.14289E-02_JPRB,0.71481E-01_JPRB,0.10314E+00_JPRB,0.11789E+00_JPRB,0.70461E-01_JPRB /)  
+KB(:, 2,58,11) = (/ &
+ & 0.30447E-02_JPRB,0.97100E-01_JPRB,0.13537E+00_JPRB,0.15001E+00_JPRB,0.94840E-01_JPRB /)  
+KB(:, 3,58,11) = (/ &
+ & 0.60785E-02_JPRB,0.12656E+00_JPRB,0.16917E+00_JPRB,0.18428E+00_JPRB,0.12173E+00_JPRB /)  
+KB(:, 4,58,11) = (/ &
+ & 0.11073E-01_JPRB,0.15875E+00_JPRB,0.20453E+00_JPRB,0.22090E+00_JPRB,0.15049E+00_JPRB /)  
+KB(:, 5,58,11) = (/ &
+ & 0.18344E-01_JPRB,0.19271E+00_JPRB,0.24175E+00_JPRB,0.25997E+00_JPRB,0.18056E+00_JPRB /)  
+KB(:, 1,59,11) = (/ &
+ & 0.12466E-02_JPRB,0.68608E-01_JPRB,0.99449E-01_JPRB,0.11409E+00_JPRB,0.67679E-01_JPRB /)  
+KB(:, 2,59,11) = (/ &
+ & 0.27400E-02_JPRB,0.93756E-01_JPRB,0.13130E+00_JPRB,0.14598E+00_JPRB,0.91727E-01_JPRB /)  
+KB(:, 3,59,11) = (/ &
+ & 0.55829E-02_JPRB,0.12280E+00_JPRB,0.16498E+00_JPRB,0.17997E+00_JPRB,0.11835E+00_JPRB /)  
+KB(:, 4,59,11) = (/ &
+ & 0.10327E-01_JPRB,0.15471E+00_JPRB,0.20012E+00_JPRB,0.21632E+00_JPRB,0.14691E+00_JPRB /)  
+KB(:, 5,59,11) = (/ &
+ & 0.17312E-01_JPRB,0.18856E+00_JPRB,0.23714E+00_JPRB,0.25511E+00_JPRB,0.17685E+00_JPRB /)  
+KB(:, 1,13,12) = (/ &
+ & 0.97672E+00_JPRB,0.12351E+01_JPRB,0.13467E+01_JPRB,0.13355E+01_JPRB,0.11350E+01_JPRB /)  
+KB(:, 2,13,12) = (/ &
+ & 0.96517E+00_JPRB,0.12326E+01_JPRB,0.13523E+01_JPRB,0.13488E+01_JPRB,0.11500E+01_JPRB /)  
+KB(:, 3,13,12) = (/ &
+ & 0.95359E+00_JPRB,0.12308E+01_JPRB,0.13576E+01_JPRB,0.13588E+01_JPRB,0.11629E+01_JPRB /)  
+KB(:, 4,13,12) = (/ &
+ & 0.94644E+00_JPRB,0.12294E+01_JPRB,0.13618E+01_JPRB,0.13660E+01_JPRB,0.11761E+01_JPRB /)  
+KB(:, 5,13,12) = (/ &
+ & 0.94938E+00_JPRB,0.12277E+01_JPRB,0.13647E+01_JPRB,0.13713E+01_JPRB,0.11895E+01_JPRB /)  
+KB(:, 1,14,12) = (/ &
+ & 0.86287E+00_JPRB,0.11528E+01_JPRB,0.12800E+01_JPRB,0.12931E+01_JPRB,0.10793E+01_JPRB /)  
+KB(:, 2,14,12) = (/ &
+ & 0.85328E+00_JPRB,0.11519E+01_JPRB,0.12878E+01_JPRB,0.13082E+01_JPRB,0.10960E+01_JPRB /)  
+KB(:, 3,14,12) = (/ &
+ & 0.84776E+00_JPRB,0.11522E+01_JPRB,0.12944E+01_JPRB,0.13193E+01_JPRB,0.11122E+01_JPRB /)  
+KB(:, 4,14,12) = (/ &
+ & 0.85264E+00_JPRB,0.11532E+01_JPRB,0.12995E+01_JPRB,0.13287E+01_JPRB,0.11288E+01_JPRB /)  
+KB(:, 5,14,12) = (/ &
+ & 0.86761E+00_JPRB,0.11556E+01_JPRB,0.13039E+01_JPRB,0.13378E+01_JPRB,0.11458E+01_JPRB /)  
+KB(:, 1,15,12) = (/ &
+ & 0.75595E+00_JPRB,0.10736E+01_JPRB,0.12146E+01_JPRB,0.12437E+01_JPRB,0.10230E+01_JPRB /)  
+KB(:, 2,15,12) = (/ &
+ & 0.75063E+00_JPRB,0.10744E+01_JPRB,0.12248E+01_JPRB,0.12603E+01_JPRB,0.10430E+01_JPRB /)  
+KB(:, 3,15,12) = (/ &
+ & 0.75594E+00_JPRB,0.10769E+01_JPRB,0.12334E+01_JPRB,0.12743E+01_JPRB,0.10635E+01_JPRB /)  
+KB(:, 4,15,12) = (/ &
+ & 0.77107E+00_JPRB,0.10807E+01_JPRB,0.12402E+01_JPRB,0.12881E+01_JPRB,0.10841E+01_JPRB /)  
+KB(:, 5,15,12) = (/ &
+ & 0.79469E+00_JPRB,0.10902E+01_JPRB,0.12461E+01_JPRB,0.13012E+01_JPRB,0.11031E+01_JPRB /)  
+KB(:, 1,16,12) = (/ &
+ & 0.66063E+00_JPRB,0.99640E+00_JPRB,0.11502E+01_JPRB,0.11902E+01_JPRB,0.96912E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART30',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,16,12) = (/ &
+ & 0.66454E+00_JPRB,0.10001E+01_JPRB,0.11634E+01_JPRB,0.12095E+01_JPRB,0.99257E+00_JPRB /)  
+KB(:, 3,16,12) = (/ &
+ & 0.67895E+00_JPRB,0.10049E+01_JPRB,0.11739E+01_JPRB,0.12282E+01_JPRB,0.10170E+01_JPRB /)  
+KB(:, 4,16,12) = (/ &
+ & 0.70145E+00_JPRB,0.10153E+01_JPRB,0.11833E+01_JPRB,0.12469E+01_JPRB,0.10404E+01_JPRB /)  
+KB(:, 5,16,12) = (/ &
+ & 0.72525E+00_JPRB,0.10330E+01_JPRB,0.11925E+01_JPRB,0.12646E+01_JPRB,0.10610E+01_JPRB /)  
+KB(:, 1,17,12) = (/ &
+ & 0.58214E+00_JPRB,0.92297E+00_JPRB,0.10896E+01_JPRB,0.11346E+01_JPRB,0.91647E+00_JPRB /)  
+KB(:, 2,17,12) = (/ &
+ & 0.59400E+00_JPRB,0.92929E+00_JPRB,0.11045E+01_JPRB,0.11590E+01_JPRB,0.94550E+00_JPRB /)  
+KB(:, 3,17,12) = (/ &
+ & 0.61460E+00_JPRB,0.94000E+00_JPRB,0.11172E+01_JPRB,0.11832E+01_JPRB,0.97371E+00_JPRB /)  
+KB(:, 4,17,12) = (/ &
+ & 0.63691E+00_JPRB,0.95830E+00_JPRB,0.11303E+01_JPRB,0.12071E+01_JPRB,0.99891E+00_JPRB /)  
+KB(:, 5,17,12) = (/ &
+ & 0.66003E+00_JPRB,0.98295E+00_JPRB,0.11440E+01_JPRB,0.12298E+01_JPRB,0.10215E+01_JPRB /)  
+KB(:, 1,18,12) = (/ &
+ & 0.51831E+00_JPRB,0.85586E+00_JPRB,0.10313E+01_JPRB,0.10823E+01_JPRB,0.86734E+00_JPRB /)  
+KB(:, 2,18,12) = (/ &
+ & 0.53638E+00_JPRB,0.86645E+00_JPRB,0.10487E+01_JPRB,0.11114E+01_JPRB,0.90071E+00_JPRB /)  
+KB(:, 3,18,12) = (/ &
+ & 0.55679E+00_JPRB,0.88410E+00_JPRB,0.10657E+01_JPRB,0.11407E+01_JPRB,0.93149E+00_JPRB /)  
+KB(:, 4,18,12) = (/ &
+ & 0.57819E+00_JPRB,0.90902E+00_JPRB,0.10831E+01_JPRB,0.11693E+01_JPRB,0.95937E+00_JPRB /)  
+KB(:, 5,18,12) = (/ &
+ & 0.60387E+00_JPRB,0.94010E+00_JPRB,0.11032E+01_JPRB,0.11966E+01_JPRB,0.98550E+00_JPRB /)  
+KB(:, 1,19,12) = (/ &
+ & 0.46547E+00_JPRB,0.79533E+00_JPRB,0.97579E+00_JPRB,0.10353E+01_JPRB,0.82208E+00_JPRB /)  
+KB(:, 2,19,12) = (/ &
+ & 0.48441E+00_JPRB,0.81281E+00_JPRB,0.99768E+00_JPRB,0.10690E+01_JPRB,0.85858E+00_JPRB /)  
+KB(:, 3,19,12) = (/ &
+ & 0.50438E+00_JPRB,0.83723E+00_JPRB,0.10197E+01_JPRB,0.11027E+01_JPRB,0.89202E+00_JPRB /)  
+KB(:, 4,19,12) = (/ &
+ & 0.52861E+00_JPRB,0.86772E+00_JPRB,0.10433E+01_JPRB,0.11355E+01_JPRB,0.92298E+00_JPRB /)  
+KB(:, 5,19,12) = (/ &
+ & 0.55711E+00_JPRB,0.90301E+00_JPRB,0.10701E+01_JPRB,0.11672E+01_JPRB,0.95266E+00_JPRB /)  
+KB(:, 1,20,12) = (/ &
+ & 0.41965E+00_JPRB,0.74319E+00_JPRB,0.92508E+00_JPRB,0.99412E+00_JPRB,0.78089E+00_JPRB /)  
+KB(:, 2,20,12) = (/ &
+ & 0.43802E+00_JPRB,0.76766E+00_JPRB,0.95235E+00_JPRB,0.10327E+01_JPRB,0.82017E+00_JPRB /)  
+KB(:, 3,20,12) = (/ &
+ & 0.46025E+00_JPRB,0.79818E+00_JPRB,0.98022E+00_JPRB,0.10706E+01_JPRB,0.85677E+00_JPRB /)  
+KB(:, 4,20,12) = (/ &
+ & 0.48727E+00_JPRB,0.83370E+00_JPRB,0.10109E+01_JPRB,0.11072E+01_JPRB,0.89127E+00_JPRB /)  
+KB(:, 5,20,12) = (/ &
+ & 0.51863E+00_JPRB,0.87091E+00_JPRB,0.10440E+01_JPRB,0.11423E+01_JPRB,0.92433E+00_JPRB /)  
+KB(:, 1,21,12) = (/ &
+ & 0.37915E+00_JPRB,0.69998E+00_JPRB,0.88069E+00_JPRB,0.95835E+00_JPRB,0.74387E+00_JPRB /)  
+KB(:, 2,21,12) = (/ &
+ & 0.39885E+00_JPRB,0.72965E+00_JPRB,0.91291E+00_JPRB,0.10022E+01_JPRB,0.78645E+00_JPRB /)  
+KB(:, 3,21,12) = (/ &
+ & 0.42350E+00_JPRB,0.76561E+00_JPRB,0.94765E+00_JPRB,0.10443E+01_JPRB,0.82639E+00_JPRB /)  
+KB(:, 4,21,12) = (/ &
+ & 0.45298E+00_JPRB,0.80432E+00_JPRB,0.98473E+00_JPRB,0.10842E+01_JPRB,0.86477E+00_JPRB /)  
+KB(:, 5,21,12) = (/ &
+ & 0.48674E+00_JPRB,0.84344E+00_JPRB,0.10236E+01_JPRB,0.11221E+01_JPRB,0.90082E+00_JPRB /)  
+KB(:, 1,22,12) = (/ &
+ & 0.34554E+00_JPRB,0.66631E+00_JPRB,0.84565E+00_JPRB,0.93193E+00_JPRB,0.71462E+00_JPRB /)  
+KB(:, 2,22,12) = (/ &
+ & 0.36807E+00_JPRB,0.70096E+00_JPRB,0.88353E+00_JPRB,0.98021E+00_JPRB,0.76038E+00_JPRB /)  
+KB(:, 3,22,12) = (/ &
+ & 0.39520E+00_JPRB,0.74099E+00_JPRB,0.92460E+00_JPRB,0.10260E+01_JPRB,0.80381E+00_JPRB /)  
+KB(:, 4,22,12) = (/ &
+ & 0.42700E+00_JPRB,0.78213E+00_JPRB,0.96750E+00_JPRB,0.10688E+01_JPRB,0.84544E+00_JPRB /)  
+KB(:, 5,22,12) = (/ &
+ & 0.46306E+00_JPRB,0.82357E+00_JPRB,0.10116E+01_JPRB,0.11089E+01_JPRB,0.88444E+00_JPRB /)  
+KB(:, 1,23,12) = (/ &
+ & 0.31790E+00_JPRB,0.64007E+00_JPRB,0.81825E+00_JPRB,0.91240E+00_JPRB,0.69117E+00_JPRB /)  
+KB(:, 2,23,12) = (/ &
+ & 0.34313E+00_JPRB,0.67943E+00_JPRB,0.86200E+00_JPRB,0.96400E+00_JPRB,0.74026E+00_JPRB /)  
+KB(:, 3,23,12) = (/ &
+ & 0.37292E+00_JPRB,0.72179E+00_JPRB,0.90853E+00_JPRB,0.10128E+01_JPRB,0.78692E+00_JPRB /)  
+KB(:, 4,23,12) = (/ &
+ & 0.40683E+00_JPRB,0.76528E+00_JPRB,0.95638E+00_JPRB,0.10584E+01_JPRB,0.83132E+00_JPRB /)  
+KB(:, 5,23,12) = (/ &
+ & 0.44434E+00_JPRB,0.80906E+00_JPRB,0.10049E+01_JPRB,0.11007E+01_JPRB,0.87324E+00_JPRB /)  
+KB(:, 1,24,12) = (/ &
+ & 0.29587E+00_JPRB,0.62091E+00_JPRB,0.79898E+00_JPRB,0.89859E+00_JPRB,0.67383E+00_JPRB /)  
+KB(:, 2,24,12) = (/ &
+ & 0.32356E+00_JPRB,0.66370E+00_JPRB,0.84800E+00_JPRB,0.95354E+00_JPRB,0.72591E+00_JPRB /)  
+KB(:, 3,24,12) = (/ &
+ & 0.35587E+00_JPRB,0.70805E+00_JPRB,0.89882E+00_JPRB,0.10049E+01_JPRB,0.77551E+00_JPRB /)  
+KB(:, 4,24,12) = (/ &
+ & 0.39090E+00_JPRB,0.75345E+00_JPRB,0.95073E+00_JPRB,0.10524E+01_JPRB,0.82233E+00_JPRB /)  
+KB(:, 5,24,12) = (/ &
+ & 0.42938E+00_JPRB,0.80019E+00_JPRB,0.10026E+01_JPRB,0.10965E+01_JPRB,0.86634E+00_JPRB /)  
+KB(:, 1,25,12) = (/ &
+ & 0.27857E+00_JPRB,0.60799E+00_JPRB,0.78705E+00_JPRB,0.89081E+00_JPRB,0.66256E+00_JPRB /)  
+KB(:, 2,25,12) = (/ &
+ & 0.30889E+00_JPRB,0.65303E+00_JPRB,0.84032E+00_JPRB,0.94841E+00_JPRB,0.71733E+00_JPRB /)  
+KB(:, 3,25,12) = (/ &
+ & 0.34245E+00_JPRB,0.69924E+00_JPRB,0.89488E+00_JPRB,0.10015E+01_JPRB,0.76917E+00_JPRB /)  
+KB(:, 4,25,12) = (/ &
+ & 0.37871E+00_JPRB,0.74693E+00_JPRB,0.95015E+00_JPRB,0.10506E+01_JPRB,0.81807E+00_JPRB /)  
+KB(:, 5,25,12) = (/ &
+ & 0.41833E+00_JPRB,0.79644E+00_JPRB,0.10044E+01_JPRB,0.10958E+01_JPRB,0.86374E+00_JPRB /)  
+KB(:, 1,26,12) = (/ &
+ & 0.26580E+00_JPRB,0.60063E+00_JPRB,0.78228E+00_JPRB,0.88879E+00_JPRB,0.65720E+00_JPRB /)  
+KB(:, 2,26,12) = (/ &
+ & 0.29790E+00_JPRB,0.64759E+00_JPRB,0.83895E+00_JPRB,0.94821E+00_JPRB,0.71439E+00_JPRB /)  
+KB(:, 3,26,12) = (/ &
+ & 0.33261E+00_JPRB,0.69574E+00_JPRB,0.89642E+00_JPRB,0.10025E+01_JPRB,0.76782E+00_JPRB /)  
+KB(:, 4,26,12) = (/ &
+ & 0.37054E+00_JPRB,0.74591E+00_JPRB,0.95396E+00_JPRB,0.10524E+01_JPRB,0.81818E+00_JPRB /)  
+KB(:, 5,26,12) = (/ &
+ & 0.41158E+00_JPRB,0.79751E+00_JPRB,0.10099E+01_JPRB,0.10981E+01_JPRB,0.86507E+00_JPRB /)  
+KB(:, 1,27,12) = (/ &
+ & 0.25628E+00_JPRB,0.59727E+00_JPRB,0.78261E+00_JPRB,0.89115E+00_JPRB,0.65648E+00_JPRB /)  
+KB(:, 2,27,12) = (/ &
+ & 0.28973E+00_JPRB,0.64617E+00_JPRB,0.84187E+00_JPRB,0.95137E+00_JPRB,0.71531E+00_JPRB /)  
+KB(:, 3,27,12) = (/ &
+ & 0.32602E+00_JPRB,0.69640E+00_JPRB,0.90149E+00_JPRB,0.10062E+01_JPRB,0.76992E+00_JPRB /)  
+KB(:, 4,27,12) = (/ &
+ & 0.36566E+00_JPRB,0.74858E+00_JPRB,0.96067E+00_JPRB,0.10565E+01_JPRB,0.82130E+00_JPRB /)  
+KB(:, 5,27,12) = (/ &
+ & 0.40839E+00_JPRB,0.80160E+00_JPRB,0.10174E+01_JPRB,0.11025E+01_JPRB,0.86892E+00_JPRB /)  
+KB(:, 1,28,12) = (/ &
+ & 0.24931E+00_JPRB,0.59767E+00_JPRB,0.78703E+00_JPRB,0.89664E+00_JPRB,0.65970E+00_JPRB /)  
+KB(:, 2,28,12) = (/ &
+ & 0.28438E+00_JPRB,0.64828E+00_JPRB,0.84808E+00_JPRB,0.95711E+00_JPRB,0.71948E+00_JPRB /)  
+KB(:, 3,28,12) = (/ &
+ & 0.32259E+00_JPRB,0.70046E+00_JPRB,0.90930E+00_JPRB,0.10123E+01_JPRB,0.77494E+00_JPRB /)  
+KB(:, 4,28,12) = (/ &
+ & 0.36394E+00_JPRB,0.75423E+00_JPRB,0.96943E+00_JPRB,0.10625E+01_JPRB,0.82683E+00_JPRB /)  
+KB(:, 5,28,12) = (/ &
+ & 0.40857E+00_JPRB,0.80828E+00_JPRB,0.10265E+01_JPRB,0.11085E+01_JPRB,0.87457E+00_JPRB /)  
+KB(:, 1,29,12) = (/ &
+ & 0.24529E+00_JPRB,0.60153E+00_JPRB,0.79470E+00_JPRB,0.90469E+00_JPRB,0.66635E+00_JPRB /)  
+KB(:, 2,29,12) = (/ &
+ & 0.28215E+00_JPRB,0.65374E+00_JPRB,0.85707E+00_JPRB,0.96518E+00_JPRB,0.72659E+00_JPRB /)  
+KB(:, 3,29,12) = (/ &
+ & 0.32237E+00_JPRB,0.70744E+00_JPRB,0.91955E+00_JPRB,0.10202E+01_JPRB,0.78233E+00_JPRB /)  
+KB(:, 4,29,12) = (/ &
+ & 0.36548E+00_JPRB,0.76246E+00_JPRB,0.98006E+00_JPRB,0.10704E+01_JPRB,0.83435E+00_JPRB /)  
+KB(:, 5,29,12) = (/ &
+ & 0.41179E+00_JPRB,0.81715E+00_JPRB,0.10368E+01_JPRB,0.11160E+01_JPRB,0.88198E+00_JPRB /)  
+KB(:, 1,30,12) = (/ &
+ & 0.24386E+00_JPRB,0.60816E+00_JPRB,0.80473E+00_JPRB,0.91460E+00_JPRB,0.67543E+00_JPRB /)  
+KB(:, 2,30,12) = (/ &
+ & 0.28279E+00_JPRB,0.66165E+00_JPRB,0.86804E+00_JPRB,0.97470E+00_JPRB,0.73566E+00_JPRB /)  
+KB(:, 3,30,12) = (/ &
+ & 0.32483E+00_JPRB,0.71650E+00_JPRB,0.93115E+00_JPRB,0.10292E+01_JPRB,0.79124E+00_JPRB /)  
+KB(:, 4,30,12) = (/ &
+ & 0.36954E+00_JPRB,0.77208E+00_JPRB,0.99158E+00_JPRB,0.10790E+01_JPRB,0.84299E+00_JPRB /)  
+KB(:, 5,30,12) = (/ &
+ & 0.41749E+00_JPRB,0.82738E+00_JPRB,0.10478E+01_JPRB,0.11245E+01_JPRB,0.89039E+00_JPRB /)  
+KB(:, 1,31,12) = (/ &
+ & 0.24525E+00_JPRB,0.61702E+00_JPRB,0.81682E+00_JPRB,0.92621E+00_JPRB,0.68640E+00_JPRB /)  
+KB(:, 2,31,12) = (/ &
+ & 0.28616E+00_JPRB,0.67142E+00_JPRB,0.88072E+00_JPRB,0.98550E+00_JPRB,0.74643E+00_JPRB /)  
+KB(:, 3,31,12) = (/ &
+ & 0.32989E+00_JPRB,0.72710E+00_JPRB,0.94409E+00_JPRB,0.10393E+01_JPRB,0.80152E+00_JPRB /)  
+KB(:, 4,31,12) = (/ &
+ & 0.37609E+00_JPRB,0.78314E+00_JPRB,0.10041E+01_JPRB,0.10886E+01_JPRB,0.85269E+00_JPRB /)  
+KB(:, 5,31,12) = (/ &
+ & 0.42530E+00_JPRB,0.83896E+00_JPRB,0.10596E+01_JPRB,0.11338E+01_JPRB,0.89957E+00_JPRB /)  
+KB(:, 1,32,12) = (/ &
+ & 0.24917E+00_JPRB,0.62738E+00_JPRB,0.83018E+00_JPRB,0.93886E+00_JPRB,0.69870E+00_JPRB /)  
+KB(:, 2,32,12) = (/ &
+ & 0.29180E+00_JPRB,0.68257E+00_JPRB,0.89466E+00_JPRB,0.99723E+00_JPRB,0.75819E+00_JPRB /)  
+KB(:, 3,32,12) = (/ &
+ & 0.33695E+00_JPRB,0.73898E+00_JPRB,0.95783E+00_JPRB,0.10503E+01_JPRB,0.81270E+00_JPRB /)  
+KB(:, 4,32,12) = (/ &
+ & 0.38441E+00_JPRB,0.79527E+00_JPRB,0.10172E+01_JPRB,0.10987E+01_JPRB,0.86313E+00_JPRB /)  
+KB(:, 5,32,12) = (/ &
+ & 0.43473E+00_JPRB,0.85145E+00_JPRB,0.10718E+01_JPRB,0.11436E+01_JPRB,0.90933E+00_JPRB /)  
+KB(:, 1,33,12) = (/ &
+ & 0.25524E+00_JPRB,0.63888E+00_JPRB,0.84456E+00_JPRB,0.95208E+00_JPRB,0.71177E+00_JPRB /)  
+KB(:, 2,33,12) = (/ &
+ & 0.29923E+00_JPRB,0.69477E+00_JPRB,0.90943E+00_JPRB,0.10094E+01_JPRB,0.77043E+00_JPRB /)  
+KB(:, 3,33,12) = (/ &
+ & 0.34555E+00_JPRB,0.75166E+00_JPRB,0.97211E+00_JPRB,0.10616E+01_JPRB,0.82442E+00_JPRB /)  
+KB(:, 4,33,12) = (/ &
+ & 0.39409E+00_JPRB,0.80804E+00_JPRB,0.10306E+01_JPRB,0.11094E+01_JPRB,0.87396E+00_JPRB /)  
+KB(:, 5,33,12) = (/ &
+ & 0.44532E+00_JPRB,0.86454E+00_JPRB,0.10842E+01_JPRB,0.11536E+01_JPRB,0.91947E+00_JPRB /)  
+KB(:, 1,34,12) = (/ &
+ & 0.26139E+00_JPRB,0.64937E+00_JPRB,0.85738E+00_JPRB,0.96358E+00_JPRB,0.72330E+00_JPRB /)  
+KB(:, 2,34,12) = (/ &
+ & 0.30644E+00_JPRB,0.70578E+00_JPRB,0.92238E+00_JPRB,0.10200E+01_JPRB,0.78117E+00_JPRB /)  
+KB(:, 3,34,12) = (/ &
+ & 0.35368E+00_JPRB,0.76284E+00_JPRB,0.98445E+00_JPRB,0.10715E+01_JPRB,0.83457E+00_JPRB /)  
+KB(:, 4,34,12) = (/ &
+ & 0.40294E+00_JPRB,0.81944E+00_JPRB,0.10421E+01_JPRB,0.11185E+01_JPRB,0.88331E+00_JPRB /)  
+KB(:, 5,34,12) = (/ &
+ & 0.45497E+00_JPRB,0.87610E+00_JPRB,0.10949E+01_JPRB,0.11623E+01_JPRB,0.92821E+00_JPRB /)  
+KB(:, 1,35,12) = (/ &
+ & 0.26429E+00_JPRB,0.65495E+00_JPRB,0.86437E+00_JPRB,0.96967E+00_JPRB,0.72944E+00_JPRB /)  
+KB(:, 2,35,12) = (/ &
+ & 0.31003E+00_JPRB,0.71171E+00_JPRB,0.92940E+00_JPRB,0.10257E+01_JPRB,0.78687E+00_JPRB /)  
+KB(:, 3,35,12) = (/ &
+ & 0.35779E+00_JPRB,0.76892E+00_JPRB,0.99113E+00_JPRB,0.10767E+01_JPRB,0.83993E+00_JPRB /)  
+KB(:, 4,35,12) = (/ &
+ & 0.40757E+00_JPRB,0.82572E+00_JPRB,0.10483E+01_JPRB,0.11235E+01_JPRB,0.88834E+00_JPRB /)  
+KB(:, 5,35,12) = (/ &
+ & 0.46005E+00_JPRB,0.88243E+00_JPRB,0.11007E+01_JPRB,0.11671E+01_JPRB,0.93291E+00_JPRB /)  
+KB(:, 1,36,12) = (/ &
+ & 0.26301E+00_JPRB,0.65478E+00_JPRB,0.86458E+00_JPRB,0.96965E+00_JPRB,0.72937E+00_JPRB /)  
+KB(:, 2,36,12) = (/ &
+ & 0.30906E+00_JPRB,0.71167E+00_JPRB,0.92967E+00_JPRB,0.10257E+01_JPRB,0.78687E+00_JPRB /)  
+KB(:, 3,36,12) = (/ &
+ & 0.35709E+00_JPRB,0.76907E+00_JPRB,0.99151E+00_JPRB,0.10769E+01_JPRB,0.84005E+00_JPRB /)  
+KB(:, 4,36,12) = (/ &
+ & 0.40702E+00_JPRB,0.82602E+00_JPRB,0.10488E+01_JPRB,0.11238E+01_JPRB,0.88850E+00_JPRB /)  
+KB(:, 5,36,12) = (/ &
+ & 0.45966E+00_JPRB,0.88282E+00_JPRB,0.11012E+01_JPRB,0.11674E+01_JPRB,0.93315E+00_JPRB /)  
+KB(:, 1,37,12) = (/ &
+ & 0.25532E+00_JPRB,0.64621E+00_JPRB,0.85496E+00_JPRB,0.96073E+00_JPRB,0.72018E+00_JPRB /)  
+KB(:, 2,37,12) = (/ &
+ & 0.30133E+00_JPRB,0.70315E+00_JPRB,0.92046E+00_JPRB,0.10178E+01_JPRB,0.77861E+00_JPRB /)  
+KB(:, 3,37,12) = (/ &
+ & 0.34928E+00_JPRB,0.76070E+00_JPRB,0.98300E+00_JPRB,0.10697E+01_JPRB,0.83253E+00_JPRB /)  
+KB(:, 4,37,12) = (/ &
+ & 0.39901E+00_JPRB,0.81782E+00_JPRB,0.10410E+01_JPRB,0.11173E+01_JPRB,0.88173E+00_JPRB /)  
+KB(:, 5,37,12) = (/ &
+ & 0.45136E+00_JPRB,0.87470E+00_JPRB,0.10942E+01_JPRB,0.11614E+01_JPRB,0.92694E+00_JPRB /)  
+KB(:, 1,38,12) = (/ &
+ & 0.24761E+00_JPRB,0.63742E+00_JPRB,0.84491E+00_JPRB,0.95139E+00_JPRB,0.71066E+00_JPRB /)  
+KB(:, 2,38,12) = (/ &
+ & 0.29353E+00_JPRB,0.69428E+00_JPRB,0.91068E+00_JPRB,0.10095E+01_JPRB,0.76992E+00_JPRB /)  
+KB(:, 3,38,12) = (/ &
+ & 0.34135E+00_JPRB,0.75196E+00_JPRB,0.97396E+00_JPRB,0.10621E+01_JPRB,0.82461E+00_JPRB /)  
+KB(:, 4,38,12) = (/ &
+ & 0.39084E+00_JPRB,0.80925E+00_JPRB,0.10327E+01_JPRB,0.11104E+01_JPRB,0.87459E+00_JPRB /)  
+KB(:, 5,38,12) = (/ &
+ & 0.44289E+00_JPRB,0.86617E+00_JPRB,0.10866E+01_JPRB,0.11550E+01_JPRB,0.92038E+00_JPRB /)  
+KB(:, 1,39,12) = (/ &
+ & 0.24017E+00_JPRB,0.62886E+00_JPRB,0.83503E+00_JPRB,0.94210E+00_JPRB,0.70124E+00_JPRB /)  
+KB(:, 2,39,12) = (/ &
+ & 0.28601E+00_JPRB,0.68569E+00_JPRB,0.90106E+00_JPRB,0.10011E+01_JPRB,0.76142E+00_JPRB /)  
+KB(:, 3,39,12) = (/ &
+ & 0.33368E+00_JPRB,0.74335E+00_JPRB,0.96490E+00_JPRB,0.10546E+01_JPRB,0.81673E+00_JPRB /)  
+KB(:, 4,39,12) = (/ &
+ & 0.38296E+00_JPRB,0.80081E+00_JPRB,0.10243E+01_JPRB,0.11035E+01_JPRB,0.86747E+00_JPRB /)  
+KB(:, 5,39,12) = (/ &
+ & 0.43465E+00_JPRB,0.85778E+00_JPRB,0.10791E+01_JPRB,0.11488E+01_JPRB,0.91385E+00_JPRB /)  
+KB(:, 1,40,12) = (/ &
+ & 0.22833E+00_JPRB,0.61463E+00_JPRB,0.81821E+00_JPRB,0.92620E+00_JPRB,0.68530E+00_JPRB /)  
+KB(:, 2,40,12) = (/ &
+ & 0.27395E+00_JPRB,0.67134E+00_JPRB,0.88467E+00_JPRB,0.98686E+00_JPRB,0.74688E+00_JPRB /)  
+KB(:, 3,40,12) = (/ &
+ & 0.32124E+00_JPRB,0.72890E+00_JPRB,0.94943E+00_JPRB,0.10418E+01_JPRB,0.80324E+00_JPRB /)  
+KB(:, 4,40,12) = (/ &
+ & 0.37015E+00_JPRB,0.78652E+00_JPRB,0.10100E+01_JPRB,0.10918E+01_JPRB,0.85523E+00_JPRB /)  
+KB(:, 5,40,12) = (/ &
+ & 0.42126E+00_JPRB,0.84372E+00_JPRB,0.10660E+01_JPRB,0.11379E+01_JPRB,0.90264E+00_JPRB /)  
+KB(:, 1,41,12) = (/ &
+ & 0.21612E+00_JPRB,0.59971E+00_JPRB,0.80041E+00_JPRB,0.90904E+00_JPRB,0.66824E+00_JPRB /)  
+KB(:, 2,41,12) = (/ &
+ & 0.26150E+00_JPRB,0.65630E+00_JPRB,0.86743E+00_JPRB,0.97155E+00_JPRB,0.73120E+00_JPRB /)  
+KB(:, 3,41,12) = (/ &
+ & 0.30837E+00_JPRB,0.71376E+00_JPRB,0.93288E+00_JPRB,0.10279E+01_JPRB,0.78880E+00_JPRB /)  
+KB(:, 4,41,12) = (/ &
+ & 0.35698E+00_JPRB,0.77150E+00_JPRB,0.99473E+00_JPRB,0.10791E+01_JPRB,0.84209E+00_JPRB /)  
+KB(:, 5,41,12) = (/ &
+ & 0.40745E+00_JPRB,0.82887E+00_JPRB,0.10519E+01_JPRB,0.11261E+01_JPRB,0.89062E+00_JPRB /)  
+KB(:, 1,42,12) = (/ &
+ & 0.20417E+00_JPRB,0.58472E+00_JPRB,0.78237E+00_JPRB,0.89154E+00_JPRB,0.65066E+00_JPRB /)  
+KB(:, 2,42,12) = (/ &
+ & 0.24921E+00_JPRB,0.64136E+00_JPRB,0.85007E+00_JPRB,0.95580E+00_JPRB,0.71510E+00_JPRB /)  
+KB(:, 3,42,12) = (/ &
+ & 0.29566E+00_JPRB,0.69861E+00_JPRB,0.91611E+00_JPRB,0.10137E+01_JPRB,0.77414E+00_JPRB /)  
+KB(:, 4,42,12) = (/ &
+ & 0.34395E+00_JPRB,0.75651E+00_JPRB,0.97922E+00_JPRB,0.10662E+01_JPRB,0.82865E+00_JPRB /)  
+KB(:, 5,42,12) = (/ &
+ & 0.39383E+00_JPRB,0.81397E+00_JPRB,0.10376E+01_JPRB,0.11142E+01_JPRB,0.87842E+00_JPRB /)  
+KB(:, 1,43,12) = (/ &
+ & 0.18997E+00_JPRB,0.56647E+00_JPRB,0.76032E+00_JPRB,0.86976E+00_JPRB,0.62901E+00_JPRB /)  
+KB(:, 2,43,12) = (/ &
+ & 0.23447E+00_JPRB,0.62342E+00_JPRB,0.82892E+00_JPRB,0.93617E+00_JPRB,0.69524E+00_JPRB /)  
+KB(:, 3,43,12) = (/ &
+ & 0.28050E+00_JPRB,0.68037E+00_JPRB,0.89544E+00_JPRB,0.99597E+00_JPRB,0.75607E+00_JPRB /)  
+KB(:, 4,43,12) = (/ &
+ & 0.32830E+00_JPRB,0.73817E+00_JPRB,0.95981E+00_JPRB,0.10502E+01_JPRB,0.81194E+00_JPRB /)  
+KB(:, 5,43,12) = (/ &
+ & 0.37763E+00_JPRB,0.79580E+00_JPRB,0.10196E+01_JPRB,0.10995E+01_JPRB,0.86317E+00_JPRB /)  
+KB(:, 1,44,12) = (/ &
+ & 0.17494E+00_JPRB,0.54678E+00_JPRB,0.73637E+00_JPRB,0.84544E+00_JPRB,0.60542E+00_JPRB /)  
+KB(:, 2,44,12) = (/ &
+ & 0.21877E+00_JPRB,0.60406E+00_JPRB,0.80575E+00_JPRB,0.91415E+00_JPRB,0.67322E+00_JPRB /)  
+KB(:, 3,44,12) = (/ &
+ & 0.26445E+00_JPRB,0.66075E+00_JPRB,0.87287E+00_JPRB,0.97625E+00_JPRB,0.73598E+00_JPRB /)  
+KB(:, 4,44,12) = (/ &
+ & 0.31161E+00_JPRB,0.71841E+00_JPRB,0.93827E+00_JPRB,0.10322E+01_JPRB,0.79326E+00_JPRB /)  
+KB(:, 5,44,12) = (/ &
+ & 0.36052E+00_JPRB,0.77622E+00_JPRB,0.99972E+00_JPRB,0.10831E+01_JPRB,0.84620E+00_JPRB /)  
+KB(:, 1,45,12) = (/ &
+ & 0.16016E+00_JPRB,0.52729E+00_JPRB,0.71224E+00_JPRB,0.82038E+00_JPRB,0.58172E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART31',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,45,12) = (/ &
+ & 0.20336E+00_JPRB,0.58455E+00_JPRB,0.78227E+00_JPRB,0.89144E+00_JPRB,0.65050E+00_JPRB /)  
+KB(:, 3,45,12) = (/ &
+ & 0.24861E+00_JPRB,0.64128E+00_JPRB,0.85023E+00_JPRB,0.95584E+00_JPRB,0.71509E+00_JPRB /)  
+KB(:, 4,45,12) = (/ &
+ & 0.29518E+00_JPRB,0.69870E+00_JPRB,0.91640E+00_JPRB,0.10138E+01_JPRB,0.77417E+00_JPRB /)  
+KB(:, 5,45,12) = (/ &
+ & 0.34361E+00_JPRB,0.75661E+00_JPRB,0.97947E+00_JPRB,0.10663E+01_JPRB,0.82874E+00_JPRB /)  
+KB(:, 1,46,12) = (/ &
+ & 0.14495E+00_JPRB,0.50668E+00_JPRB,0.68614E+00_JPRB,0.79268E+00_JPRB,0.55619E+00_JPRB /)  
+KB(:, 2,46,12) = (/ &
+ & 0.18729E+00_JPRB,0.56366E+00_JPRB,0.75707E+00_JPRB,0.86650E+00_JPRB,0.62580E+00_JPRB /)  
+KB(:, 3,46,12) = (/ &
+ & 0.23189E+00_JPRB,0.62077E+00_JPRB,0.82600E+00_JPRB,0.93336E+00_JPRB,0.69232E+00_JPRB /)  
+KB(:, 4,46,12) = (/ &
+ & 0.27798E+00_JPRB,0.67784E+00_JPRB,0.89269E+00_JPRB,0.99345E+00_JPRB,0.75352E+00_JPRB /)  
+KB(:, 5,46,12) = (/ &
+ & 0.32583E+00_JPRB,0.73560E+00_JPRB,0.95715E+00_JPRB,0.10480E+01_JPRB,0.80957E+00_JPRB /)  
+KB(:, 1,47,12) = (/ &
+ & 0.12858E+00_JPRB,0.48369E+00_JPRB,0.65638E+00_JPRB,0.76017E+00_JPRB,0.52730E+00_JPRB /)  
+KB(:, 2,47,12) = (/ &
+ & 0.16969E+00_JPRB,0.54041E+00_JPRB,0.72859E+00_JPRB,0.83745E+00_JPRB,0.59783E+00_JPRB /)  
+KB(:, 3,47,12) = (/ &
+ & 0.21344E+00_JPRB,0.59783E+00_JPRB,0.79837E+00_JPRB,0.90704E+00_JPRB,0.66606E+00_JPRB /)  
+KB(:, 4,47,12) = (/ &
+ & 0.25910E+00_JPRB,0.65455E+00_JPRB,0.86586E+00_JPRB,0.96989E+00_JPRB,0.72949E+00_JPRB /)  
+KB(:, 5,47,12) = (/ &
+ & 0.30618E+00_JPRB,0.71222E+00_JPRB,0.93155E+00_JPRB,0.10265E+01_JPRB,0.78728E+00_JPRB /)  
+KB(:, 1,48,12) = (/ &
+ & 0.11298E+00_JPRB,0.46082E+00_JPRB,0.62642E+00_JPRB,0.72640E+00_JPRB,0.49809E+00_JPRB /)  
+KB(:, 2,48,12) = (/ &
+ & 0.15246E+00_JPRB,0.51740E+00_JPRB,0.69983E+00_JPRB,0.80735E+00_JPRB,0.56961E+00_JPRB /)  
+KB(:, 3,48,12) = (/ &
+ & 0.19539E+00_JPRB,0.57459E+00_JPRB,0.77041E+00_JPRB,0.87978E+00_JPRB,0.63885E+00_JPRB /)  
+KB(:, 4,48,12) = (/ &
+ & 0.24045E+00_JPRB,0.63157E+00_JPRB,0.83892E+00_JPRB,0.94534E+00_JPRB,0.70441E+00_JPRB /)  
+KB(:, 5,48,12) = (/ &
+ & 0.28683E+00_JPRB,0.68881E+00_JPRB,0.90534E+00_JPRB,0.10043E+01_JPRB,0.76449E+00_JPRB /)  
+KB(:, 1,49,12) = (/ &
+ & 0.98247E-01_JPRB,0.43787E+00_JPRB,0.59630E+00_JPRB,0.69142E+00_JPRB,0.46886E+00_JPRB /)  
+KB(:, 2,49,12) = (/ &
+ & 0.13602E+00_JPRB,0.49453E+00_JPRB,0.67051E+00_JPRB,0.77567E+00_JPRB,0.54098E+00_JPRB /)  
+KB(:, 3,49,12) = (/ &
+ & 0.17773E+00_JPRB,0.55136E+00_JPRB,0.74221E+00_JPRB,0.85142E+00_JPRB,0.61109E+00_JPRB /)  
+KB(:, 4,49,12) = (/ &
+ & 0.22196E+00_JPRB,0.60876E+00_JPRB,0.81162E+00_JPRB,0.91969E+00_JPRB,0.67863E+00_JPRB /)  
+KB(:, 5,49,12) = (/ &
+ & 0.26789E+00_JPRB,0.66564E+00_JPRB,0.87866E+00_JPRB,0.98128E+00_JPRB,0.74108E+00_JPRB /)  
+KB(:, 1,50,12) = (/ &
+ & 0.85448E-01_JPRB,0.41621E+00_JPRB,0.56763E+00_JPRB,0.65757E+00_JPRB,0.44117E+00_JPRB /)  
+KB(:, 2,50,12) = (/ &
+ & 0.12109E+00_JPRB,0.47310E+00_JPRB,0.64247E+00_JPRB,0.74462E+00_JPRB,0.51379E+00_JPRB /)  
+KB(:, 3,50,12) = (/ &
+ & 0.16156E+00_JPRB,0.52985E+00_JPRB,0.71554E+00_JPRB,0.82373E+00_JPRB,0.58488E+00_JPRB /)  
+KB(:, 4,50,12) = (/ &
+ & 0.20488E+00_JPRB,0.58711E+00_JPRB,0.78559E+00_JPRB,0.89468E+00_JPRB,0.65362E+00_JPRB /)  
+KB(:, 5,50,12) = (/ &
+ & 0.25037E+00_JPRB,0.64398E+00_JPRB,0.85353E+00_JPRB,0.95880E+00_JPRB,0.71804E+00_JPRB /)  
+KB(:, 1,51,12) = (/ &
+ & 0.73759E-01_JPRB,0.39485E+00_JPRB,0.53977E+00_JPRB,0.62407E+00_JPRB,0.41437E+00_JPRB /)  
+KB(:, 2,51,12) = (/ &
+ & 0.10727E+00_JPRB,0.45237E+00_JPRB,0.61531E+00_JPRB,0.71353E+00_JPRB,0.48727E+00_JPRB /)  
+KB(:, 3,51,12) = (/ &
+ & 0.14620E+00_JPRB,0.50899E+00_JPRB,0.68916E+00_JPRB,0.79586E+00_JPRB,0.55909E+00_JPRB /)  
+KB(:, 4,51,12) = (/ &
+ & 0.18867E+00_JPRB,0.56597E+00_JPRB,0.76009E+00_JPRB,0.86950E+00_JPRB,0.62868E+00_JPRB /)  
+KB(:, 5,51,12) = (/ &
+ & 0.23351E+00_JPRB,0.62321E+00_JPRB,0.82900E+00_JPRB,0.93613E+00_JPRB,0.69507E+00_JPRB /)  
+KB(:, 1,52,12) = (/ &
+ & 0.62975E-01_JPRB,0.37352E+00_JPRB,0.51168E+00_JPRB,0.59007E+00_JPRB,0.38790E+00_JPRB /)  
+KB(:, 2,52,12) = (/ &
+ & 0.94238E-01_JPRB,0.43155E+00_JPRB,0.58786E+00_JPRB,0.68153E+00_JPRB,0.46072E+00_JPRB /)  
+KB(:, 3,52,12) = (/ &
+ & 0.13138E+00_JPRB,0.48824E+00_JPRB,0.66233E+00_JPRB,0.76673E+00_JPRB,0.53305E+00_JPRB /)  
+KB(:, 4,52,12) = (/ &
+ & 0.17291E+00_JPRB,0.54507E+00_JPRB,0.73444E+00_JPRB,0.84335E+00_JPRB,0.60343E+00_JPRB /)  
+KB(:, 5,52,12) = (/ &
+ & 0.21681E+00_JPRB,0.60245E+00_JPRB,0.80402E+00_JPRB,0.91249E+00_JPRB,0.67147E+00_JPRB /)  
+KB(:, 1,53,12) = (/ &
+ & 0.53060E-01_JPRB,0.35230E+00_JPRB,0.48353E+00_JPRB,0.55561E+00_JPRB,0.36178E+00_JPRB /)  
+KB(:, 2,53,12) = (/ &
+ & 0.81984E-01_JPRB,0.41041E+00_JPRB,0.56005E+00_JPRB,0.64855E+00_JPRB,0.43393E+00_JPRB /)  
+KB(:, 3,53,12) = (/ &
+ & 0.11713E+00_JPRB,0.46754E+00_JPRB,0.63518E+00_JPRB,0.73640E+00_JPRB,0.50665E+00_JPRB /)  
+KB(:, 4,53,12) = (/ &
+ & 0.15723E+00_JPRB,0.52417E+00_JPRB,0.70847E+00_JPRB,0.81636E+00_JPRB,0.57800E+00_JPRB /)  
+KB(:, 5,53,12) = (/ &
+ & 0.20038E+00_JPRB,0.58144E+00_JPRB,0.77877E+00_JPRB,0.88807E+00_JPRB,0.64700E+00_JPRB /)  
+KB(:, 1,54,12) = (/ &
+ & 0.44825E-01_JPRB,0.33285E+00_JPRB,0.45764E+00_JPRB,0.52392E+00_JPRB,0.33821E+00_JPRB /)  
+KB(:, 2,54,12) = (/ &
+ & 0.71480E-01_JPRB,0.39083E+00_JPRB,0.53456E+00_JPRB,0.61778E+00_JPRB,0.40943E+00_JPRB /)  
+KB(:, 3,54,12) = (/ &
+ & 0.10463E+00_JPRB,0.44857E+00_JPRB,0.61031E+00_JPRB,0.70773E+00_JPRB,0.48234E+00_JPRB /)  
+KB(:, 4,54,12) = (/ &
+ & 0.14329E+00_JPRB,0.50511E+00_JPRB,0.68427E+00_JPRB,0.79060E+00_JPRB,0.55433E+00_JPRB /)  
+KB(:, 5,54,12) = (/ &
+ & 0.18561E+00_JPRB,0.56209E+00_JPRB,0.75543E+00_JPRB,0.86487E+00_JPRB,0.62409E+00_JPRB /)  
+KB(:, 1,55,12) = (/ &
+ & 0.37713E-01_JPRB,0.31417E+00_JPRB,0.43292E+00_JPRB,0.49354E+00_JPRB,0.31617E+00_JPRB /)  
+KB(:, 2,55,12) = (/ &
+ & 0.62120E-01_JPRB,0.37210E+00_JPRB,0.50985E+00_JPRB,0.58786E+00_JPRB,0.38623E+00_JPRB /)  
+KB(:, 3,55,12) = (/ &
+ & 0.93283E-01_JPRB,0.43021E+00_JPRB,0.58608E+00_JPRB,0.67950E+00_JPRB,0.45902E+00_JPRB /)  
+KB(:, 4,55,12) = (/ &
+ & 0.13035E+00_JPRB,0.48690E+00_JPRB,0.66064E+00_JPRB,0.76487E+00_JPRB,0.53142E+00_JPRB /)  
+KB(:, 5,55,12) = (/ &
+ & 0.17183E+00_JPRB,0.54374E+00_JPRB,0.73284E+00_JPRB,0.84168E+00_JPRB,0.60189E+00_JPRB /)  
+KB(:, 1,56,12) = (/ &
+ & 0.31364E-01_JPRB,0.29533E+00_JPRB,0.40826E+00_JPRB,0.46346E+00_JPRB,0.29456E+00_JPRB /)  
+KB(:, 2,56,12) = (/ &
+ & 0.53447E-01_JPRB,0.35352E+00_JPRB,0.48522E+00_JPRB,0.55771E+00_JPRB,0.36336E+00_JPRB /)  
+KB(:, 3,56,12) = (/ &
+ & 0.82579E-01_JPRB,0.41171E+00_JPRB,0.56173E+00_JPRB,0.65061E+00_JPRB,0.43556E+00_JPRB /)  
+KB(:, 4,56,12) = (/ &
+ & 0.11788E+00_JPRB,0.46877E+00_JPRB,0.63683E+00_JPRB,0.73828E+00_JPRB,0.50830E+00_JPRB /)  
+KB(:, 5,56,12) = (/ &
+ & 0.15810E+00_JPRB,0.52547E+00_JPRB,0.71011E+00_JPRB,0.81806E+00_JPRB,0.57961E+00_JPRB /)  
+KB(:, 1,57,12) = (/ &
+ & 0.25728E-01_JPRB,0.27641E+00_JPRB,0.38366E+00_JPRB,0.43364E+00_JPRB,0.27324E+00_JPRB /)  
+KB(:, 2,57,12) = (/ &
+ & 0.45538E-01_JPRB,0.33495E+00_JPRB,0.46047E+00_JPRB,0.52741E+00_JPRB,0.34078E+00_JPRB /)  
+KB(:, 3,57,12) = (/ &
+ & 0.72492E-01_JPRB,0.39302E+00_JPRB,0.53741E+00_JPRB,0.62128E+00_JPRB,0.41216E+00_JPRB /)  
+KB(:, 4,57,12) = (/ &
+ & 0.10590E+00_JPRB,0.45065E+00_JPRB,0.61311E+00_JPRB,0.71103E+00_JPRB,0.48510E+00_JPRB /)  
+KB(:, 5,57,12) = (/ &
+ & 0.14476E+00_JPRB,0.50725E+00_JPRB,0.68700E+00_JPRB,0.79354E+00_JPRB,0.55702E+00_JPRB /)  
+KB(:, 1,58,12) = (/ &
+ & 0.21034E-01_JPRB,0.25862E+00_JPRB,0.36035E+00_JPRB,0.40559E+00_JPRB,0.25327E+00_JPRB /)  
+KB(:, 2,58,12) = (/ &
+ & 0.38718E-01_JPRB,0.31732E+00_JPRB,0.43714E+00_JPRB,0.49876E+00_JPRB,0.31992E+00_JPRB /)  
+KB(:, 3,58,12) = (/ &
+ & 0.63552E-01_JPRB,0.37529E+00_JPRB,0.51407E+00_JPRB,0.59305E+00_JPRB,0.39018E+00_JPRB /)  
+KB(:, 4,58,12) = (/ &
+ & 0.95105E-01_JPRB,0.43334E+00_JPRB,0.59030E+00_JPRB,0.68443E+00_JPRB,0.46307E+00_JPRB /)  
+KB(:, 5,58,12) = (/ &
+ & 0.13248E+00_JPRB,0.49002E+00_JPRB,0.66471E+00_JPRB,0.76934E+00_JPRB,0.53538E+00_JPRB /)  
+KB(:, 1,59,12) = (/ &
+ & 0.19312E-01_JPRB,0.25156E+00_JPRB,0.35103E+00_JPRB,0.39450E+00_JPRB,0.24538E+00_JPRB /)  
+KB(:, 2,59,12) = (/ &
+ & 0.36163E-01_JPRB,0.31020E+00_JPRB,0.42773E+00_JPRB,0.48723E+00_JPRB,0.31163E+00_JPRB /)  
+KB(:, 3,59,12) = (/ &
+ & 0.60143E-01_JPRB,0.36820E+00_JPRB,0.50471E+00_JPRB,0.58164E+00_JPRB,0.38146E+00_JPRB /)  
+KB(:, 4,59,12) = (/ &
+ & 0.90924E-01_JPRB,0.42637E+00_JPRB,0.58105E+00_JPRB,0.67358E+00_JPRB,0.45417E+00_JPRB /)  
+KB(:, 5,59,12) = (/ &
+ & 0.12765E+00_JPRB,0.48313E+00_JPRB,0.65572E+00_JPRB,0.75941E+00_JPRB,0.52665E+00_JPRB /)  
+KB(:, 1,13,13) = (/ &
+ & 0.25702E+01_JPRB,0.27735E+01_JPRB,0.28760E+01_JPRB,0.25966E+01_JPRB,0.23968E+01_JPRB /)  
+KB(:, 2,13,13) = (/ &
+ & 0.25597E+01_JPRB,0.27776E+01_JPRB,0.28903E+01_JPRB,0.26158E+01_JPRB,0.24224E+01_JPRB /)  
+KB(:, 3,13,13) = (/ &
+ & 0.25494E+01_JPRB,0.27801E+01_JPRB,0.29040E+01_JPRB,0.26351E+01_JPRB,0.24494E+01_JPRB /)  
+KB(:, 4,13,13) = (/ &
+ & 0.25338E+01_JPRB,0.27802E+01_JPRB,0.29182E+01_JPRB,0.26543E+01_JPRB,0.24747E+01_JPRB /)  
+KB(:, 5,13,13) = (/ &
+ & 0.25177E+01_JPRB,0.27760E+01_JPRB,0.29320E+01_JPRB,0.26728E+01_JPRB,0.24963E+01_JPRB /)  
+KB(:, 1,14,13) = (/ &
+ & 0.23659E+01_JPRB,0.26936E+01_JPRB,0.28410E+01_JPRB,0.26130E+01_JPRB,0.23363E+01_JPRB /)  
+KB(:, 2,14,13) = (/ &
+ & 0.23577E+01_JPRB,0.27024E+01_JPRB,0.28615E+01_JPRB,0.26344E+01_JPRB,0.23684E+01_JPRB /)  
+KB(:, 3,14,13) = (/ &
+ & 0.23468E+01_JPRB,0.27102E+01_JPRB,0.28819E+01_JPRB,0.26565E+01_JPRB,0.24004E+01_JPRB /)  
+KB(:, 4,14,13) = (/ &
+ & 0.23350E+01_JPRB,0.27153E+01_JPRB,0.29051E+01_JPRB,0.26785E+01_JPRB,0.24267E+01_JPRB /)  
+KB(:, 5,14,13) = (/ &
+ & 0.23244E+01_JPRB,0.27141E+01_JPRB,0.29262E+01_JPRB,0.26967E+01_JPRB,0.24480E+01_JPRB /)  
+KB(:, 1,15,13) = (/ &
+ & 0.21606E+01_JPRB,0.25927E+01_JPRB,0.27805E+01_JPRB,0.26146E+01_JPRB,0.22773E+01_JPRB /)  
+KB(:, 2,15,13) = (/ &
+ & 0.21537E+01_JPRB,0.26084E+01_JPRB,0.28087E+01_JPRB,0.26417E+01_JPRB,0.23162E+01_JPRB /)  
+KB(:, 3,15,13) = (/ &
+ & 0.21448E+01_JPRB,0.26237E+01_JPRB,0.28408E+01_JPRB,0.26683E+01_JPRB,0.23515E+01_JPRB /)  
+KB(:, 4,15,13) = (/ &
+ & 0.21380E+01_JPRB,0.26327E+01_JPRB,0.28720E+01_JPRB,0.26931E+01_JPRB,0.23792E+01_JPRB /)  
+KB(:, 5,15,13) = (/ &
+ & 0.21347E+01_JPRB,0.26387E+01_JPRB,0.29018E+01_JPRB,0.27159E+01_JPRB,0.24036E+01_JPRB /)  
+KB(:, 1,16,13) = (/ &
+ & 0.19588E+01_JPRB,0.24824E+01_JPRB,0.27086E+01_JPRB,0.26036E+01_JPRB,0.22170E+01_JPRB /)  
+KB(:, 2,16,13) = (/ &
+ & 0.19544E+01_JPRB,0.25053E+01_JPRB,0.27466E+01_JPRB,0.26370E+01_JPRB,0.22638E+01_JPRB /)  
+KB(:, 3,16,13) = (/ &
+ & 0.19508E+01_JPRB,0.25256E+01_JPRB,0.27882E+01_JPRB,0.26694E+01_JPRB,0.23023E+01_JPRB /)  
+KB(:, 4,16,13) = (/ &
+ & 0.19522E+01_JPRB,0.25422E+01_JPRB,0.28288E+01_JPRB,0.26997E+01_JPRB,0.23338E+01_JPRB /)  
+KB(:, 5,16,13) = (/ &
+ & 0.19669E+01_JPRB,0.25568E+01_JPRB,0.28660E+01_JPRB,0.27268E+01_JPRB,0.23639E+01_JPRB /)  
+KB(:, 1,17,13) = (/ &
+ & 0.17683E+01_JPRB,0.23717E+01_JPRB,0.26296E+01_JPRB,0.25828E+01_JPRB,0.21586E+01_JPRB /)  
+KB(:, 2,17,13) = (/ &
+ & 0.17670E+01_JPRB,0.24002E+01_JPRB,0.26798E+01_JPRB,0.26243E+01_JPRB,0.22104E+01_JPRB /)  
+KB(:, 3,17,13) = (/ &
+ & 0.17705E+01_JPRB,0.24261E+01_JPRB,0.27313E+01_JPRB,0.26643E+01_JPRB,0.22525E+01_JPRB /)  
+KB(:, 4,17,13) = (/ &
+ & 0.17889E+01_JPRB,0.24495E+01_JPRB,0.27802E+01_JPRB,0.27001E+01_JPRB,0.22912E+01_JPRB /)  
+KB(:, 5,17,13) = (/ &
+ & 0.18206E+01_JPRB,0.24734E+01_JPRB,0.28261E+01_JPRB,0.27304E+01_JPRB,0.23278E+01_JPRB /)  
+KB(:, 1,18,13) = (/ &
+ & 0.15903E+01_JPRB,0.22606E+01_JPRB,0.25530E+01_JPRB,0.25561E+01_JPRB,0.21033E+01_JPRB /)  
+KB(:, 2,18,13) = (/ &
+ & 0.15961E+01_JPRB,0.22974E+01_JPRB,0.26139E+01_JPRB,0.26069E+01_JPRB,0.21585E+01_JPRB /)  
+KB(:, 3,18,13) = (/ &
+ & 0.16151E+01_JPRB,0.23303E+01_JPRB,0.26738E+01_JPRB,0.26546E+01_JPRB,0.22069E+01_JPRB /)  
+KB(:, 4,18,13) = (/ &
+ & 0.16495E+01_JPRB,0.23625E+01_JPRB,0.27316E+01_JPRB,0.26970E+01_JPRB,0.22532E+01_JPRB /)  
+KB(:, 5,18,13) = (/ &
+ & 0.16970E+01_JPRB,0.23957E+01_JPRB,0.27859E+01_JPRB,0.27320E+01_JPRB,0.22970E+01_JPRB /)  
+KB(:, 1,19,13) = (/ &
+ & 0.14257E+01_JPRB,0.21563E+01_JPRB,0.24826E+01_JPRB,0.25271E+01_JPRB,0.20500E+01_JPRB /)  
+KB(:, 2,19,13) = (/ &
+ & 0.14448E+01_JPRB,0.21999E+01_JPRB,0.25521E+01_JPRB,0.25882E+01_JPRB,0.21113E+01_JPRB /)  
+KB(:, 3,19,13) = (/ &
+ & 0.14809E+01_JPRB,0.22420E+01_JPRB,0.26202E+01_JPRB,0.26436E+01_JPRB,0.21676E+01_JPRB /)  
+KB(:, 4,19,13) = (/ &
+ & 0.15301E+01_JPRB,0.22839E+01_JPRB,0.26861E+01_JPRB,0.26918E+01_JPRB,0.22215E+01_JPRB /)  
+KB(:, 5,19,13) = (/ &
+ & 0.15917E+01_JPRB,0.23278E+01_JPRB,0.27486E+01_JPRB,0.27324E+01_JPRB,0.22720E+01_JPRB /)  
+KB(:, 1,20,13) = (/ &
+ & 0.12800E+01_JPRB,0.20626E+01_JPRB,0.24230E+01_JPRB,0.25008E+01_JPRB,0.20040E+01_JPRB /)  
+KB(:, 2,20,13) = (/ &
+ & 0.13152E+01_JPRB,0.21132E+01_JPRB,0.24996E+01_JPRB,0.25711E+01_JPRB,0.20725E+01_JPRB /)  
+KB(:, 3,20,13) = (/ &
+ & 0.13653E+01_JPRB,0.21643E+01_JPRB,0.25750E+01_JPRB,0.26341E+01_JPRB,0.21362E+01_JPRB /)  
+KB(:, 4,20,13) = (/ &
+ & 0.14290E+01_JPRB,0.22166E+01_JPRB,0.26493E+01_JPRB,0.26871E+01_JPRB,0.21969E+01_JPRB /)  
+KB(:, 5,20,13) = (/ &
+ & 0.15047E+01_JPRB,0.22739E+01_JPRB,0.27186E+01_JPRB,0.27332E+01_JPRB,0.22536E+01_JPRB /)  
+KB(:, 1,21,13) = (/ &
+ & 0.11565E+01_JPRB,0.19804E+01_JPRB,0.23723E+01_JPRB,0.24790E+01_JPRB,0.19652E+01_JPRB /)  
+KB(:, 2,21,13) = (/ &
+ & 0.12043E+01_JPRB,0.20401E+01_JPRB,0.24563E+01_JPRB,0.25572E+01_JPRB,0.20406E+01_JPRB /)  
+KB(:, 3,21,13) = (/ &
+ & 0.12682E+01_JPRB,0.20995E+01_JPRB,0.25386E+01_JPRB,0.26265E+01_JPRB,0.21117E+01_JPRB /)  
+KB(:, 4,21,13) = (/ &
+ & 0.13446E+01_JPRB,0.21634E+01_JPRB,0.26197E+01_JPRB,0.26846E+01_JPRB,0.21783E+01_JPRB /)  
+KB(:, 5,21,13) = (/ &
+ & 0.14328E+01_JPRB,0.22322E+01_JPRB,0.26943E+01_JPRB,0.27351E+01_JPRB,0.22400E+01_JPRB /)  
+KB(:, 1,22,13) = (/ &
+ & 0.10567E+01_JPRB,0.19161E+01_JPRB,0.23380E+01_JPRB,0.24675E+01_JPRB,0.19394E+01_JPRB /)  
+KB(:, 2,22,13) = (/ &
+ & 0.11171E+01_JPRB,0.19843E+01_JPRB,0.24279E+01_JPRB,0.25525E+01_JPRB,0.20217E+01_JPRB /)  
+KB(:, 3,22,13) = (/ &
+ & 0.11926E+01_JPRB,0.20529E+01_JPRB,0.25167E+01_JPRB,0.26264E+01_JPRB,0.20987E+01_JPRB /)  
+KB(:, 4,22,13) = (/ &
+ & 0.12819E+01_JPRB,0.21280E+01_JPRB,0.26028E+01_JPRB,0.26881E+01_JPRB,0.21696E+01_JPRB /)  
+KB(:, 5,22,13) = (/ &
+ & 0.13818E+01_JPRB,0.22069E+01_JPRB,0.26807E+01_JPRB,0.27417E+01_JPRB,0.22350E+01_JPRB /)  
+KB(:, 1,23,13) = (/ &
+ & 0.97722E+00_JPRB,0.18665E+01_JPRB,0.23140E+01_JPRB,0.24623E+01_JPRB,0.19226E+01_JPRB /)  
+KB(:, 2,23,13) = (/ &
+ & 0.10487E+01_JPRB,0.19424E+01_JPRB,0.24103E+01_JPRB,0.25530E+01_JPRB,0.20109E+01_JPRB /)  
+KB(:, 3,23,13) = (/ &
+ & 0.11351E+01_JPRB,0.20216E+01_JPRB,0.25035E+01_JPRB,0.26294E+01_JPRB,0.20926E+01_JPRB /)  
+KB(:, 4,23,13) = (/ &
+ & 0.12356E+01_JPRB,0.21056E+01_JPRB,0.25931E+01_JPRB,0.26937E+01_JPRB,0.21670E+01_JPRB /)  
+KB(:, 5,23,13) = (/ &
+ & 0.13470E+01_JPRB,0.21926E+01_JPRB,0.26734E+01_JPRB,0.27495E+01_JPRB,0.22345E+01_JPRB /)  
+KB(:, 1,24,13) = (/ &
+ & 0.91609E+00_JPRB,0.18302E+01_JPRB,0.23004E+01_JPRB,0.24641E+01_JPRB,0.19149E+01_JPRB /)  
+KB(:, 2,24,13) = (/ &
+ & 0.99757E+00_JPRB,0.19150E+01_JPRB,0.24014E+01_JPRB,0.25579E+01_JPRB,0.20076E+01_JPRB /)  
+KB(:, 3,24,13) = (/ &
+ & 0.10945E+01_JPRB,0.20031E+01_JPRB,0.24987E+01_JPRB,0.26360E+01_JPRB,0.20926E+01_JPRB /)  
+KB(:, 4,24,13) = (/ &
+ & 0.12058E+01_JPRB,0.20942E+01_JPRB,0.25896E+01_JPRB,0.27020E+01_JPRB,0.21691E+01_JPRB /)  
+KB(:, 5,24,13) = (/ &
+ & 0.13269E+01_JPRB,0.21869E+01_JPRB,0.26718E+01_JPRB,0.27594E+01_JPRB,0.22381E+01_JPRB /)  
+KB(:, 1,25,13) = (/ &
+ & 0.87183E+00_JPRB,0.18068E+01_JPRB,0.22964E+01_JPRB,0.24719E+01_JPRB,0.19153E+01_JPRB /)  
+KB(:, 2,25,13) = (/ &
+ & 0.96269E+00_JPRB,0.19004E+01_JPRB,0.24012E+01_JPRB,0.25669E+01_JPRB,0.20109E+01_JPRB /)  
+KB(:, 3,25,13) = (/ &
+ & 0.10701E+01_JPRB,0.19953E+01_JPRB,0.24998E+01_JPRB,0.26458E+01_JPRB,0.20980E+01_JPRB /)  
+KB(:, 4,25,13) = (/ &
+ & 0.11910E+01_JPRB,0.20919E+01_JPRB,0.25913E+01_JPRB,0.27126E+01_JPRB,0.21754E+01_JPRB /)  
+KB(:, 5,25,13) = (/ &
+ & 0.13188E+01_JPRB,0.21891E+01_JPRB,0.26749E+01_JPRB,0.27711E+01_JPRB,0.22449E+01_JPRB /)  
+KB(:, 1,26,13) = (/ &
+ & 0.84313E+00_JPRB,0.17965E+01_JPRB,0.23011E+01_JPRB,0.24858E+01_JPRB,0.19238E+01_JPRB /)  
+KB(:, 2,26,13) = (/ &
+ & 0.94434E+00_JPRB,0.18970E+01_JPRB,0.24073E+01_JPRB,0.25798E+01_JPRB,0.20205E+01_JPRB /)  
+KB(:, 3,26,13) = (/ &
+ & 0.10612E+01_JPRB,0.19972E+01_JPRB,0.25069E+01_JPRB,0.26589E+01_JPRB,0.21080E+01_JPRB /)  
+KB(:, 4,26,13) = (/ &
+ & 0.11887E+01_JPRB,0.20979E+01_JPRB,0.25988E+01_JPRB,0.27257E+01_JPRB,0.21853E+01_JPRB /)  
+KB(:, 5,26,13) = (/ &
+ & 0.13225E+01_JPRB,0.21985E+01_JPRB,0.26831E+01_JPRB,0.27841E+01_JPRB,0.22550E+01_JPRB /)  
+KB(:, 1,27,13) = (/ &
+ & 0.82783E+00_JPRB,0.17960E+01_JPRB,0.23110E+01_JPRB,0.25019E+01_JPRB,0.19363E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART32',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,27,13) = (/ &
+ & 0.93873E+00_JPRB,0.19014E+01_JPRB,0.24182E+01_JPRB,0.25950E+01_JPRB,0.20338E+01_JPRB /)  
+KB(:, 3,27,13) = (/ &
+ & 0.10628E+01_JPRB,0.20052E+01_JPRB,0.25176E+01_JPRB,0.26735E+01_JPRB,0.21206E+01_JPRB /)  
+KB(:, 4,27,13) = (/ &
+ & 0.11961E+01_JPRB,0.21092E+01_JPRB,0.26097E+01_JPRB,0.27398E+01_JPRB,0.21974E+01_JPRB /)  
+KB(:, 5,27,13) = (/ &
+ & 0.13342E+01_JPRB,0.22123E+01_JPRB,0.26944E+01_JPRB,0.27973E+01_JPRB,0.22665E+01_JPRB /)  
+KB(:, 1,28,13) = (/ &
+ & 0.82452E+00_JPRB,0.18027E+01_JPRB,0.23247E+01_JPRB,0.25200E+01_JPRB,0.19523E+01_JPRB /)  
+KB(:, 2,28,13) = (/ &
+ & 0.94277E+00_JPRB,0.19121E+01_JPRB,0.24323E+01_JPRB,0.26114E+01_JPRB,0.20494E+01_JPRB /)  
+KB(:, 3,28,13) = (/ &
+ & 0.10725E+01_JPRB,0.20183E+01_JPRB,0.25313E+01_JPRB,0.26888E+01_JPRB,0.21352E+01_JPRB /)  
+KB(:, 4,28,13) = (/ &
+ & 0.12107E+01_JPRB,0.21244E+01_JPRB,0.26233E+01_JPRB,0.27544E+01_JPRB,0.22110E+01_JPRB /)  
+KB(:, 5,28,13) = (/ &
+ & 0.13516E+01_JPRB,0.22292E+01_JPRB,0.27078E+01_JPRB,0.28106E+01_JPRB,0.22794E+01_JPRB /)  
+KB(:, 1,29,13) = (/ &
+ & 0.83075E+00_JPRB,0.18160E+01_JPRB,0.23425E+01_JPRB,0.25401E+01_JPRB,0.19712E+01_JPRB /)  
+KB(:, 2,29,13) = (/ &
+ & 0.95513E+00_JPRB,0.19278E+01_JPRB,0.24494E+01_JPRB,0.26294E+01_JPRB,0.20669E+01_JPRB /)  
+KB(:, 3,29,13) = (/ &
+ & 0.10900E+01_JPRB,0.20358E+01_JPRB,0.25478E+01_JPRB,0.27053E+01_JPRB,0.21513E+01_JPRB /)  
+KB(:, 4,29,13) = (/ &
+ & 0.12315E+01_JPRB,0.21431E+01_JPRB,0.26391E+01_JPRB,0.27692E+01_JPRB,0.22259E+01_JPRB /)  
+KB(:, 5,29,13) = (/ &
+ & 0.13745E+01_JPRB,0.22488E+01_JPRB,0.27235E+01_JPRB,0.28240E+01_JPRB,0.22934E+01_JPRB /)  
+KB(:, 1,30,13) = (/ &
+ & 0.84416E+00_JPRB,0.18336E+01_JPRB,0.23624E+01_JPRB,0.25609E+01_JPRB,0.19916E+01_JPRB /)  
+KB(:, 2,30,13) = (/ &
+ & 0.97368E+00_JPRB,0.19464E+01_JPRB,0.24682E+01_JPRB,0.26481E+01_JPRB,0.20854E+01_JPRB /)  
+KB(:, 3,30,13) = (/ &
+ & 0.11126E+01_JPRB,0.20559E+01_JPRB,0.25658E+01_JPRB,0.27219E+01_JPRB,0.21680E+01_JPRB /)  
+KB(:, 4,30,13) = (/ &
+ & 0.12564E+01_JPRB,0.21643E+01_JPRB,0.26566E+01_JPRB,0.27840E+01_JPRB,0.22414E+01_JPRB /)  
+KB(:, 5,30,13) = (/ &
+ & 0.14008E+01_JPRB,0.22700E+01_JPRB,0.27405E+01_JPRB,0.28371E+01_JPRB,0.23076E+01_JPRB /)  
+KB(:, 1,31,13) = (/ &
+ & 0.86384E+00_JPRB,0.18548E+01_JPRB,0.23844E+01_JPRB,0.25824E+01_JPRB,0.20133E+01_JPRB /)  
+KB(:, 2,31,13) = (/ &
+ & 0.99753E+00_JPRB,0.19681E+01_JPRB,0.24888E+01_JPRB,0.26671E+01_JPRB,0.21046E+01_JPRB /)  
+KB(:, 3,31,13) = (/ &
+ & 0.11394E+01_JPRB,0.20787E+01_JPRB,0.25856E+01_JPRB,0.27387E+01_JPRB,0.21855E+01_JPRB /)  
+KB(:, 4,31,13) = (/ &
+ & 0.12850E+01_JPRB,0.21876E+01_JPRB,0.26758E+01_JPRB,0.27988E+01_JPRB,0.22577E+01_JPRB /)  
+KB(:, 5,31,13) = (/ &
+ & 0.14304E+01_JPRB,0.22931E+01_JPRB,0.27584E+01_JPRB,0.28498E+01_JPRB,0.23225E+01_JPRB /)  
+KB(:, 1,32,13) = (/ &
+ & 0.88808E+00_JPRB,0.18788E+01_JPRB,0.24078E+01_JPRB,0.26044E+01_JPRB,0.20359E+01_JPRB /)  
+KB(:, 2,32,13) = (/ &
+ & 0.10254E+01_JPRB,0.19921E+01_JPRB,0.25106E+01_JPRB,0.26862E+01_JPRB,0.21246E+01_JPRB /)  
+KB(:, 3,32,13) = (/ &
+ & 0.11696E+01_JPRB,0.21031E+01_JPRB,0.26064E+01_JPRB,0.27554E+01_JPRB,0.22034E+01_JPRB /)  
+KB(:, 4,32,13) = (/ &
+ & 0.13164E+01_JPRB,0.22122E+01_JPRB,0.26955E+01_JPRB,0.28135E+01_JPRB,0.22742E+01_JPRB /)  
+KB(:, 5,32,13) = (/ &
+ & 0.14621E+01_JPRB,0.23175E+01_JPRB,0.27772E+01_JPRB,0.28624E+01_JPRB,0.23376E+01_JPRB /)  
+KB(:, 1,33,13) = (/ &
+ & 0.91576E+00_JPRB,0.19044E+01_JPRB,0.24318E+01_JPRB,0.26262E+01_JPRB,0.20585E+01_JPRB /)  
+KB(:, 2,33,13) = (/ &
+ & 0.10563E+01_JPRB,0.20178E+01_JPRB,0.25332E+01_JPRB,0.27053E+01_JPRB,0.21448E+01_JPRB /)  
+KB(:, 3,33,13) = (/ &
+ & 0.12022E+01_JPRB,0.21286E+01_JPRB,0.26280E+01_JPRB,0.27719E+01_JPRB,0.22216E+01_JPRB /)  
+KB(:, 4,33,13) = (/ &
+ & 0.13498E+01_JPRB,0.22379E+01_JPRB,0.27158E+01_JPRB,0.28276E+01_JPRB,0.22909E+01_JPRB /)  
+KB(:, 5,33,13) = (/ &
+ & 0.14952E+01_JPRB,0.23427E+01_JPRB,0.27963E+01_JPRB,0.28748E+01_JPRB,0.23524E+01_JPRB /)  
+KB(:, 1,34,13) = (/ &
+ & 0.94113E+00_JPRB,0.19270E+01_JPRB,0.24527E+01_JPRB,0.26448E+01_JPRB,0.20775E+01_JPRB /)  
+KB(:, 2,34,13) = (/ &
+ & 0.10840E+01_JPRB,0.20405E+01_JPRB,0.25528E+01_JPRB,0.27213E+01_JPRB,0.21619E+01_JPRB /)  
+KB(:, 3,34,13) = (/ &
+ & 0.12311E+01_JPRB,0.21512E+01_JPRB,0.26466E+01_JPRB,0.27855E+01_JPRB,0.22370E+01_JPRB /)  
+KB(:, 4,34,13) = (/ &
+ & 0.13793E+01_JPRB,0.22602E+01_JPRB,0.27333E+01_JPRB,0.28395E+01_JPRB,0.23050E+01_JPRB /)  
+KB(:, 5,34,13) = (/ &
+ & 0.15242E+01_JPRB,0.23644E+01_JPRB,0.28128E+01_JPRB,0.28850E+01_JPRB,0.23650E+01_JPRB /)  
+KB(:, 1,35,13) = (/ &
+ & 0.95467E+00_JPRB,0.19391E+01_JPRB,0.24637E+01_JPRB,0.26549E+01_JPRB,0.20879E+01_JPRB /)  
+KB(:, 2,35,13) = (/ &
+ & 0.10989E+01_JPRB,0.20529E+01_JPRB,0.25635E+01_JPRB,0.27301E+01_JPRB,0.21712E+01_JPRB /)  
+KB(:, 3,35,13) = (/ &
+ & 0.12468E+01_JPRB,0.21638E+01_JPRB,0.26569E+01_JPRB,0.27931E+01_JPRB,0.22456E+01_JPRB /)  
+KB(:, 4,35,13) = (/ &
+ & 0.13953E+01_JPRB,0.22726E+01_JPRB,0.27430E+01_JPRB,0.28463E+01_JPRB,0.23128E+01_JPRB /)  
+KB(:, 5,35,13) = (/ &
+ & 0.15401E+01_JPRB,0.23764E+01_JPRB,0.28219E+01_JPRB,0.28908E+01_JPRB,0.23721E+01_JPRB /)  
+KB(:, 1,36,13) = (/ &
+ & 0.95401E+00_JPRB,0.19393E+01_JPRB,0.24641E+01_JPRB,0.26563E+01_JPRB,0.20890E+01_JPRB /)  
+KB(:, 2,36,13) = (/ &
+ & 0.10986E+01_JPRB,0.20534E+01_JPRB,0.25640E+01_JPRB,0.27314E+01_JPRB,0.21722E+01_JPRB /)  
+KB(:, 3,36,13) = (/ &
+ & 0.12470E+01_JPRB,0.21646E+01_JPRB,0.26577E+01_JPRB,0.27946E+01_JPRB,0.22466E+01_JPRB /)  
+KB(:, 4,36,13) = (/ &
+ & 0.13959E+01_JPRB,0.22738E+01_JPRB,0.27440E+01_JPRB,0.28477E+01_JPRB,0.23138E+01_JPRB /)  
+KB(:, 5,36,13) = (/ &
+ & 0.15410E+01_JPRB,0.23778E+01_JPRB,0.28230E+01_JPRB,0.28922E+01_JPRB,0.23732E+01_JPRB /)  
+KB(:, 1,37,13) = (/ &
+ & 0.93269E+00_JPRB,0.19221E+01_JPRB,0.24490E+01_JPRB,0.26452E+01_JPRB,0.20765E+01_JPRB /)  
+KB(:, 2,37,13) = (/ &
+ & 0.10767E+01_JPRB,0.20372E+01_JPRB,0.25499E+01_JPRB,0.27223E+01_JPRB,0.21614E+01_JPRB /)  
+KB(:, 3,37,13) = (/ &
+ & 0.12250E+01_JPRB,0.21490E+01_JPRB,0.26449E+01_JPRB,0.27873E+01_JPRB,0.22369E+01_JPRB /)  
+KB(:, 4,37,13) = (/ &
+ & 0.13744E+01_JPRB,0.22588E+01_JPRB,0.27324E+01_JPRB,0.28416E+01_JPRB,0.23053E+01_JPRB /)  
+KB(:, 5,37,13) = (/ &
+ & 0.15205E+01_JPRB,0.23639E+01_JPRB,0.28124E+01_JPRB,0.28871E+01_JPRB,0.23656E+01_JPRB /)  
+KB(:, 1,38,13) = (/ &
+ & 0.91080E+00_JPRB,0.19040E+01_JPRB,0.24332E+01_JPRB,0.26332E+01_JPRB,0.20631E+01_JPRB /)  
+KB(:, 2,38,13) = (/ &
+ & 0.10540E+01_JPRB,0.20201E+01_JPRB,0.25351E+01_JPRB,0.27123E+01_JPRB,0.21497E+01_JPRB /)  
+KB(:, 3,38,13) = (/ &
+ & 0.12022E+01_JPRB,0.21326E+01_JPRB,0.26310E+01_JPRB,0.27790E+01_JPRB,0.22264E+01_JPRB /)  
+KB(:, 4,38,13) = (/ &
+ & 0.13520E+01_JPRB,0.22432E+01_JPRB,0.27202E+01_JPRB,0.28347E+01_JPRB,0.22959E+01_JPRB /)  
+KB(:, 5,38,13) = (/ &
+ & 0.14989E+01_JPRB,0.23490E+01_JPRB,0.28012E+01_JPRB,0.28815E+01_JPRB,0.23575E+01_JPRB /)  
+KB(:, 1,39,13) = (/ &
+ & 0.88956E+00_JPRB,0.18861E+01_JPRB,0.24173E+01_JPRB,0.26207E+01_JPRB,0.20495E+01_JPRB /)  
+KB(:, 2,39,13) = (/ &
+ & 0.10319E+01_JPRB,0.20032E+01_JPRB,0.25205E+01_JPRB,0.27021E+01_JPRB,0.21379E+01_JPRB /)  
+KB(:, 3,39,13) = (/ &
+ & 0.11798E+01_JPRB,0.21163E+01_JPRB,0.26173E+01_JPRB,0.27704E+01_JPRB,0.22159E+01_JPRB /)  
+KB(:, 4,39,13) = (/ &
+ & 0.13298E+01_JPRB,0.22272E+01_JPRB,0.27078E+01_JPRB,0.28277E+01_JPRB,0.22865E+01_JPRB /)  
+KB(:, 5,39,13) = (/ &
+ & 0.14775E+01_JPRB,0.23341E+01_JPRB,0.27901E+01_JPRB,0.28757E+01_JPRB,0.23493E+01_JPRB /)  
+KB(:, 1,40,13) = (/ &
+ & 0.85494E+00_JPRB,0.18558E+01_JPRB,0.23904E+01_JPRB,0.25985E+01_JPRB,0.20255E+01_JPRB /)  
+KB(:, 2,40,13) = (/ &
+ & 0.99514E+00_JPRB,0.19745E+01_JPRB,0.24954E+01_JPRB,0.26836E+01_JPRB,0.21170E+01_JPRB /)  
+KB(:, 3,40,13) = (/ &
+ & 0.11424E+01_JPRB,0.20885E+01_JPRB,0.25938E+01_JPRB,0.27547E+01_JPRB,0.21975E+01_JPRB /)  
+KB(:, 4,40,13) = (/ &
+ & 0.12924E+01_JPRB,0.22001E+01_JPRB,0.26861E+01_JPRB,0.28148E+01_JPRB,0.22700E+01_JPRB /)  
+KB(:, 5,40,13) = (/ &
+ & 0.14413E+01_JPRB,0.23083E+01_JPRB,0.27705E+01_JPRB,0.28664E+01_JPRB,0.23349E+01_JPRB /)  
+KB(:, 1,41,13) = (/ &
+ & 0.81957E+00_JPRB,0.18237E+01_JPRB,0.23613E+01_JPRB,0.25741E+01_JPRB,0.19997E+01_JPRB /)  
+KB(:, 2,41,13) = (/ &
+ & 0.95728E+00_JPRB,0.19441E+01_JPRB,0.24688E+01_JPRB,0.26632E+01_JPRB,0.20945E+01_JPRB /)  
+KB(:, 3,41,13) = (/ &
+ & 0.11034E+01_JPRB,0.20591E+01_JPRB,0.25687E+01_JPRB,0.27378E+01_JPRB,0.21777E+01_JPRB /)  
+KB(:, 4,41,13) = (/ &
+ & 0.12530E+01_JPRB,0.21714E+01_JPRB,0.26630E+01_JPRB,0.28005E+01_JPRB,0.22519E+01_JPRB /)  
+KB(:, 5,41,13) = (/ &
+ & 0.14027E+01_JPRB,0.22807E+01_JPRB,0.27494E+01_JPRB,0.28533E+01_JPRB,0.23190E+01_JPRB /)  
+KB(:, 1,42,13) = (/ &
+ & 0.78503E+00_JPRB,0.17918E+01_JPRB,0.23317E+01_JPRB,0.25487E+01_JPRB,0.19734E+01_JPRB /)  
+KB(:, 2,42,13) = (/ &
+ & 0.92016E+00_JPRB,0.19132E+01_JPRB,0.24418E+01_JPRB,0.26418E+01_JPRB,0.20712E+01_JPRB /)  
+KB(:, 3,42,13) = (/ &
+ & 0.10646E+01_JPRB,0.20294E+01_JPRB,0.25432E+01_JPRB,0.27200E+01_JPRB,0.21575E+01_JPRB /)  
+KB(:, 4,42,13) = (/ &
+ & 0.12137E+01_JPRB,0.21426E+01_JPRB,0.26392E+01_JPRB,0.27859E+01_JPRB,0.22336E+01_JPRB /)  
+KB(:, 5,42,13) = (/ &
+ & 0.13639E+01_JPRB,0.22528E+01_JPRB,0.27279E+01_JPRB,0.28411E+01_JPRB,0.23026E+01_JPRB /)  
+KB(:, 1,43,13) = (/ &
+ & 0.74423E+00_JPRB,0.17527E+01_JPRB,0.22949E+01_JPRB,0.25159E+01_JPRB,0.19403E+01_JPRB /)  
+KB(:, 2,43,13) = (/ &
+ & 0.87589E+00_JPRB,0.18750E+01_JPRB,0.24080E+01_JPRB,0.26143E+01_JPRB,0.20417E+01_JPRB /)  
+KB(:, 3,43,13) = (/ &
+ & 0.10179E+01_JPRB,0.19932E+01_JPRB,0.25118E+01_JPRB,0.26972E+01_JPRB,0.21315E+01_JPRB /)  
+KB(:, 4,43,13) = (/ &
+ & 0.11661E+01_JPRB,0.21073E+01_JPRB,0.26096E+01_JPRB,0.27665E+01_JPRB,0.22105E+01_JPRB /)  
+KB(:, 5,43,13) = (/ &
+ & 0.13165E+01_JPRB,0.22185E+01_JPRB,0.27008E+01_JPRB,0.28247E+01_JPRB,0.22817E+01_JPRB /)  
+KB(:, 1,44,13) = (/ &
+ & 0.70183E+00_JPRB,0.17101E+01_JPRB,0.22539E+01_JPRB,0.24783E+01_JPRB,0.19029E+01_JPRB /)  
+KB(:, 2,44,13) = (/ &
+ & 0.82940E+00_JPRB,0.18334E+01_JPRB,0.23707E+01_JPRB,0.25829E+01_JPRB,0.20083E+01_JPRB /)  
+KB(:, 3,44,13) = (/ &
+ & 0.96829E+00_JPRB,0.19537E+01_JPRB,0.24774E+01_JPRB,0.26707E+01_JPRB,0.21022E+01_JPRB /)  
+KB(:, 4,44,13) = (/ &
+ & 0.11151E+01_JPRB,0.20687E+01_JPRB,0.25770E+01_JPRB,0.27443E+01_JPRB,0.21846E+01_JPRB /)  
+KB(:, 5,44,13) = (/ &
+ & 0.12651E+01_JPRB,0.21808E+01_JPRB,0.26707E+01_JPRB,0.28061E+01_JPRB,0.22584E+01_JPRB /)  
+KB(:, 1,45,13) = (/ &
+ & 0.66118E+00_JPRB,0.16676E+01_JPRB,0.22119E+01_JPRB,0.24384E+01_JPRB,0.18634E+01_JPRB /)  
+KB(:, 2,45,13) = (/ &
+ & 0.78445E+00_JPRB,0.17917E+01_JPRB,0.23321E+01_JPRB,0.25495E+01_JPRB,0.19739E+01_JPRB /)  
+KB(:, 3,45,13) = (/ &
+ & 0.91984E+00_JPRB,0.19133E+01_JPRB,0.24421E+01_JPRB,0.26427E+01_JPRB,0.20718E+01_JPRB /)  
+KB(:, 4,45,13) = (/ &
+ & 0.10646E+01_JPRB,0.20301E+01_JPRB,0.25439E+01_JPRB,0.27211E+01_JPRB,0.21582E+01_JPRB /)  
+KB(:, 5,45,13) = (/ &
+ & 0.12138E+01_JPRB,0.21430E+01_JPRB,0.26395E+01_JPRB,0.27867E+01_JPRB,0.22343E+01_JPRB /)  
+KB(:, 1,46,13) = (/ &
+ & 0.61933E+00_JPRB,0.16221E+01_JPRB,0.21659E+01_JPRB,0.23935E+01_JPRB,0.18196E+01_JPRB /)  
+KB(:, 2,46,13) = (/ &
+ & 0.73807E+00_JPRB,0.17470E+01_JPRB,0.22898E+01_JPRB,0.25118E+01_JPRB,0.19358E+01_JPRB /)  
+KB(:, 3,46,13) = (/ &
+ & 0.86934E+00_JPRB,0.18696E+01_JPRB,0.24034E+01_JPRB,0.26109E+01_JPRB,0.20379E+01_JPRB /)  
+KB(:, 4,46,13) = (/ &
+ & 0.10113E+01_JPRB,0.19884E+01_JPRB,0.25076E+01_JPRB,0.26946E+01_JPRB,0.21283E+01_JPRB /)  
+KB(:, 5,46,13) = (/ &
+ & 0.11593E+01_JPRB,0.21025E+01_JPRB,0.26055E+01_JPRB,0.27643E+01_JPRB,0.22076E+01_JPRB /)  
+KB(:, 1,47,13) = (/ &
+ & 0.57374E+00_JPRB,0.15709E+01_JPRB,0.21131E+01_JPRB,0.23400E+01_JPRB,0.17680E+01_JPRB /)  
+KB(:, 2,47,13) = (/ &
+ & 0.68838E+00_JPRB,0.16965E+01_JPRB,0.22409E+01_JPRB,0.24665E+01_JPRB,0.18907E+01_JPRB /)  
+KB(:, 3,47,13) = (/ &
+ & 0.81478E+00_JPRB,0.18201E+01_JPRB,0.23589E+01_JPRB,0.25731E+01_JPRB,0.19980E+01_JPRB /)  
+KB(:, 4,47,13) = (/ &
+ & 0.95278E+00_JPRB,0.19412E+01_JPRB,0.24665E+01_JPRB,0.26626E+01_JPRB,0.20931E+01_JPRB /)  
+KB(:, 5,47,13) = (/ &
+ & 0.10991E+01_JPRB,0.20567E+01_JPRB,0.25667E+01_JPRB,0.27376E+01_JPRB,0.21769E+01_JPRB /)  
+KB(:, 1,48,13) = (/ &
+ & 0.52946E+00_JPRB,0.15198E+01_JPRB,0.20592E+01_JPRB,0.22834E+01_JPRB,0.17136E+01_JPRB /)  
+KB(:, 2,48,13) = (/ &
+ & 0.64089E+00_JPRB,0.16459E+01_JPRB,0.21904E+01_JPRB,0.24180E+01_JPRB,0.18431E+01_JPRB /)  
+KB(:, 3,48,13) = (/ &
+ & 0.76211E+00_JPRB,0.17708E+01_JPRB,0.23126E+01_JPRB,0.25324E+01_JPRB,0.19565E+01_JPRB /)  
+KB(:, 4,48,13) = (/ &
+ & 0.89568E+00_JPRB,0.18928E+01_JPRB,0.24241E+01_JPRB,0.26284E+01_JPRB,0.20564E+01_JPRB /)  
+KB(:, 5,48,13) = (/ &
+ & 0.10393E+01_JPRB,0.20105E+01_JPRB,0.25268E+01_JPRB,0.27091E+01_JPRB,0.21445E+01_JPRB /)  
+KB(:, 1,49,13) = (/ &
+ & 0.48708E+00_JPRB,0.14681E+01_JPRB,0.20029E+01_JPRB,0.22232E+01_JPRB,0.16566E+01_JPRB /)  
+KB(:, 2,49,13) = (/ &
+ & 0.59510E+00_JPRB,0.15951E+01_JPRB,0.21382E+01_JPRB,0.23660E+01_JPRB,0.17928E+01_JPRB /)  
+KB(:, 3,49,13) = (/ &
+ & 0.71141E+00_JPRB,0.17205E+01_JPRB,0.22646E+01_JPRB,0.24889E+01_JPRB,0.19130E+01_JPRB /)  
+KB(:, 4,49,13) = (/ &
+ & 0.84034E+00_JPRB,0.18437E+01_JPRB,0.23804E+01_JPRB,0.25917E+01_JPRB,0.20174E+01_JPRB /)  
+KB(:, 5,49,13) = (/ &
+ & 0.98023E+00_JPRB,0.19637E+01_JPRB,0.24863E+01_JPRB,0.26785E+01_JPRB,0.21102E+01_JPRB /)  
+KB(:, 1,50,13) = (/ &
+ & 0.44946E+00_JPRB,0.14198E+01_JPRB,0.19480E+01_JPRB,0.21639E+01_JPRB,0.16005E+01_JPRB /)  
+KB(:, 2,50,13) = (/ &
+ & 0.55308E+00_JPRB,0.15472E+01_JPRB,0.20885E+01_JPRB,0.23146E+01_JPRB,0.17433E+01_JPRB /)  
+KB(:, 3,50,13) = (/ &
+ & 0.66640E+00_JPRB,0.16732E+01_JPRB,0.22179E+01_JPRB,0.24447E+01_JPRB,0.18693E+01_JPRB /)  
+KB(:, 4,50,13) = (/ &
+ & 0.79021E+00_JPRB,0.17975E+01_JPRB,0.23380E+01_JPRB,0.25550E+01_JPRB,0.19794E+01_JPRB /)  
+KB(:, 5,50,13) = (/ &
+ & 0.92626E+00_JPRB,0.19191E+01_JPRB,0.24474E+01_JPRB,0.26476E+01_JPRB,0.20768E+01_JPRB /)  
+KB(:, 1,51,13) = (/ &
+ & 0.41452E+00_JPRB,0.13727E+01_JPRB,0.18922E+01_JPRB,0.21038E+01_JPRB,0.15428E+01_JPRB /)  
+KB(:, 2,51,13) = (/ &
+ & 0.51362E+00_JPRB,0.15005E+01_JPRB,0.20385E+01_JPRB,0.22616E+01_JPRB,0.16930E+01_JPRB /)  
+KB(:, 3,51,13) = (/ &
+ & 0.62394E+00_JPRB,0.16272E+01_JPRB,0.21714E+01_JPRB,0.23993E+01_JPRB,0.18251E+01_JPRB /)  
+KB(:, 4,51,13) = (/ &
+ & 0.74304E+00_JPRB,0.17523E+01_JPRB,0.22953E+01_JPRB,0.25171E+01_JPRB,0.19410E+01_JPRB /)  
+KB(:, 5,51,13) = (/ &
+ & 0.87505E+00_JPRB,0.18748E+01_JPRB,0.24082E+01_JPRB,0.26155E+01_JPRB,0.20426E+01_JPRB /)  
+KB(:, 1,52,13) = (/ &
+ & 0.38121E+00_JPRB,0.13250E+01_JPRB,0.18350E+01_JPRB,0.20413E+01_JPRB,0.14822E+01_JPRB /)  
+KB(:, 2,52,13) = (/ &
+ & 0.47581E+00_JPRB,0.14538E+01_JPRB,0.19870E+01_JPRB,0.22062E+01_JPRB,0.16405E+01_JPRB /)  
+KB(:, 3,52,13) = (/ &
+ & 0.58258E+00_JPRB,0.15810E+01_JPRB,0.21239E+01_JPRB,0.23514E+01_JPRB,0.17789E+01_JPRB /)  
+KB(:, 4,52,13) = (/ &
+ & 0.69813E+00_JPRB,0.17065E+01_JPRB,0.22509E+01_JPRB,0.24762E+01_JPRB,0.19005E+01_JPRB /)  
+KB(:, 5,52,13) = (/ &
+ & 0.82543E+00_JPRB,0.18301E+01_JPRB,0.23683E+01_JPRB,0.25815E+01_JPRB,0.20067E+01_JPRB /)  
+KB(:, 1,53,13) = (/ &
+ & 0.34902E+00_JPRB,0.12769E+01_JPRB,0.17751E+01_JPRB,0.19762E+01_JPRB,0.14178E+01_JPRB /)  
+KB(:, 2,53,13) = (/ &
+ & 0.43953E+00_JPRB,0.14068E+01_JPRB,0.19332E+01_JPRB,0.21485E+01_JPRB,0.15854E+01_JPRB /)  
+KB(:, 3,53,13) = (/ &
+ & 0.54216E+00_JPRB,0.15348E+01_JPRB,0.20756E+01_JPRB,0.23010E+01_JPRB,0.17302E+01_JPRB /)  
+KB(:, 4,53,13) = (/ &
+ & 0.65469E+00_JPRB,0.16608E+01_JPRB,0.22054E+01_JPRB,0.24328E+01_JPRB,0.18578E+01_JPRB /)  
+KB(:, 5,53,13) = (/ &
+ & 0.77730E+00_JPRB,0.17854E+01_JPRB,0.23267E+01_JPRB,0.25453E+01_JPRB,0.19695E+01_JPRB /)  
+KB(:, 1,54,13) = (/ &
+ & 0.32058E+00_JPRB,0.12324E+01_JPRB,0.17175E+01_JPRB,0.19140E+01_JPRB,0.13553E+01_JPRB /)  
+KB(:, 2,54,13) = (/ &
+ & 0.40795E+00_JPRB,0.13637E+01_JPRB,0.18819E+01_JPRB,0.20929E+01_JPRB,0.15321E+01_JPRB /)  
+KB(:, 3,54,13) = (/ &
+ & 0.50645E+00_JPRB,0.14920E+01_JPRB,0.20295E+01_JPRB,0.22518E+01_JPRB,0.16837E+01_JPRB /)  
+KB(:, 4,54,13) = (/ &
+ & 0.61609E+00_JPRB,0.16187E+01_JPRB,0.21628E+01_JPRB,0.23909E+01_JPRB,0.18169E+01_JPRB /)  
+KB(:, 5,54,13) = (/ &
+ & 0.73448E+00_JPRB,0.17439E+01_JPRB,0.22873E+01_JPRB,0.25101E+01_JPRB,0.19340E+01_JPRB /)  
+KB(:, 1,55,13) = (/ &
+ & 0.29443E+00_JPRB,0.11892E+01_JPRB,0.16600E+01_JPRB,0.18513E+01_JPRB,0.12929E+01_JPRB /)  
+KB(:, 2,55,13) = (/ &
+ & 0.37883E+00_JPRB,0.13219E+01_JPRB,0.18314E+01_JPRB,0.20376E+01_JPRB,0.14784E+01_JPRB /)  
+KB(:, 3,55,13) = (/ &
+ & 0.47335E+00_JPRB,0.14508E+01_JPRB,0.19839E+01_JPRB,0.22027E+01_JPRB,0.16372E+01_JPRB /)  
+KB(:, 4,55,13) = (/ &
+ & 0.57989E+00_JPRB,0.15780E+01_JPRB,0.21210E+01_JPRB,0.23485E+01_JPRB,0.17761E+01_JPRB /)  
+KB(:, 5,55,13) = (/ &
+ & 0.69533E+00_JPRB,0.17037E+01_JPRB,0.22482E+01_JPRB,0.24738E+01_JPRB,0.18980E+01_JPRB /)  
+KB(:, 1,56,13) = (/ &
+ & 0.26936E+00_JPRB,0.11459E+01_JPRB,0.16007E+01_JPRB,0.17863E+01_JPRB,0.12289E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART33',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,56,13) = (/ &
+ & 0.35065E+00_JPRB,0.12797E+01_JPRB,0.17789E+01_JPRB,0.19807E+01_JPRB,0.14221E+01_JPRB /)  
+KB(:, 3,56,13) = (/ &
+ & 0.44158E+00_JPRB,0.14097E+01_JPRB,0.19368E+01_JPRB,0.21523E+01_JPRB,0.15891E+01_JPRB /)  
+KB(:, 4,56,13) = (/ &
+ & 0.54448E+00_JPRB,0.15375E+01_JPRB,0.20786E+01_JPRB,0.23043E+01_JPRB,0.17334E+01_JPRB /)  
+KB(:, 5,56,13) = (/ &
+ & 0.65732E+00_JPRB,0.16637E+01_JPRB,0.22084E+01_JPRB,0.24358E+01_JPRB,0.18606E+01_JPRB /)  
+KB(:, 1,57,13) = (/ &
+ & 0.24515E+00_JPRB,0.11022E+01_JPRB,0.15388E+01_JPRB,0.17186E+01_JPRB,0.11645E+01_JPRB /)  
+KB(:, 2,57,13) = (/ &
+ & 0.32341E+00_JPRB,0.12372E+01_JPRB,0.17241E+01_JPRB,0.19215E+01_JPRB,0.13626E+01_JPRB /)  
+KB(:, 3,57,13) = (/ &
+ & 0.41131E+00_JPRB,0.13686E+01_JPRB,0.18879E+01_JPRB,0.20994E+01_JPRB,0.15383E+01_JPRB /)  
+KB(:, 4,57,13) = (/ &
+ & 0.51026E+00_JPRB,0.14967E+01_JPRB,0.20347E+01_JPRB,0.22575E+01_JPRB,0.16892E+01_JPRB /)  
+KB(:, 5,57,13) = (/ &
+ & 0.62036E+00_JPRB,0.16234E+01_JPRB,0.21677E+01_JPRB,0.23959E+01_JPRB,0.18217E+01_JPRB /)  
+KB(:, 1,58,13) = (/ &
+ & 0.22298E+00_JPRB,0.10601E+01_JPRB,0.14788E+01_JPRB,0.16521E+01_JPRB,0.11024E+01_JPRB /)  
+KB(:, 2,58,13) = (/ &
+ & 0.29857E+00_JPRB,0.11965E+01_JPRB,0.16700E+01_JPRB,0.18625E+01_JPRB,0.13039E+01_JPRB /)  
+KB(:, 3,58,13) = (/ &
+ & 0.38366E+00_JPRB,0.13291E+01_JPRB,0.18404E+01_JPRB,0.20474E+01_JPRB,0.14880E+01_JPRB /)  
+KB(:, 4,58,13) = (/ &
+ & 0.47882E+00_JPRB,0.14579E+01_JPRB,0.19918E+01_JPRB,0.22114E+01_JPRB,0.16455E+01_JPRB /)  
+KB(:, 5,58,13) = (/ &
+ & 0.58601E+00_JPRB,0.15850E+01_JPRB,0.21282E+01_JPRB,0.23561E+01_JPRB,0.17833E+01_JPRB /)  
+KB(:, 1,59,13) = (/ &
+ & 0.21427E+00_JPRB,0.10429E+01_JPRB,0.14544E+01_JPRB,0.16247E+01_JPRB,0.10771E+01_JPRB /)  
+KB(:, 2,59,13) = (/ &
+ & 0.28885E+00_JPRB,0.11801E+01_JPRB,0.16480E+01_JPRB,0.18384E+01_JPRB,0.12798E+01_JPRB /)  
+KB(:, 3,59,13) = (/ &
+ & 0.37281E+00_JPRB,0.13132E+01_JPRB,0.18209E+01_JPRB,0.20260E+01_JPRB,0.14670E+01_JPRB /)  
+KB(:, 4,59,13) = (/ &
+ & 0.46652E+00_JPRB,0.14422E+01_JPRB,0.19743E+01_JPRB,0.21926E+01_JPRB,0.16276E+01_JPRB /)  
+KB(:, 5,59,13) = (/ &
+ & 0.57246E+00_JPRB,0.15697E+01_JPRB,0.21123E+01_JPRB,0.23397E+01_JPRB,0.17674E+01_JPRB /)  
+KB(:, 1,13,14) = (/ &
+ & 0.76467E+01_JPRB,0.66870E+01_JPRB,0.63502E+01_JPRB,0.61468E+01_JPRB,0.66906E+01_JPRB /)  
+KB(:, 2,13,14) = (/ &
+ & 0.76514E+01_JPRB,0.66716E+01_JPRB,0.63627E+01_JPRB,0.61942E+01_JPRB,0.67780E+01_JPRB /)  
+KB(:, 3,13,14) = (/ &
+ & 0.76475E+01_JPRB,0.66428E+01_JPRB,0.63628E+01_JPRB,0.62371E+01_JPRB,0.68460E+01_JPRB /)  
+KB(:, 4,13,14) = (/ &
+ & 0.76415E+01_JPRB,0.66083E+01_JPRB,0.63514E+01_JPRB,0.62630E+01_JPRB,0.69072E+01_JPRB /)  
+KB(:, 5,13,14) = (/ &
+ & 0.76283E+01_JPRB,0.65686E+01_JPRB,0.63330E+01_JPRB,0.62779E+01_JPRB,0.69614E+01_JPRB /)  
+KB(:, 1,14,14) = (/ &
+ & 0.77958E+01_JPRB,0.69779E+01_JPRB,0.66658E+01_JPRB,0.63591E+01_JPRB,0.67479E+01_JPRB /)  
+KB(:, 2,14,14) = (/ &
+ & 0.78014E+01_JPRB,0.69599E+01_JPRB,0.66792E+01_JPRB,0.64167E+01_JPRB,0.68357E+01_JPRB /)  
+KB(:, 3,14,14) = (/ &
+ & 0.78100E+01_JPRB,0.69314E+01_JPRB,0.66809E+01_JPRB,0.64627E+01_JPRB,0.69109E+01_JPRB /)  
+KB(:, 4,14,14) = (/ &
+ & 0.78098E+01_JPRB,0.68950E+01_JPRB,0.66685E+01_JPRB,0.64923E+01_JPRB,0.69838E+01_JPRB /)  
+KB(:, 5,14,14) = (/ &
+ & 0.77999E+01_JPRB,0.68585E+01_JPRB,0.66494E+01_JPRB,0.65137E+01_JPRB,0.70531E+01_JPRB /)  
+KB(:, 1,15,14) = (/ &
+ & 0.78397E+01_JPRB,0.72065E+01_JPRB,0.69626E+01_JPRB,0.65521E+01_JPRB,0.67717E+01_JPRB /)  
+KB(:, 2,15,14) = (/ &
+ & 0.78630E+01_JPRB,0.71900E+01_JPRB,0.69770E+01_JPRB,0.66166E+01_JPRB,0.68639E+01_JPRB /)  
+KB(:, 3,15,14) = (/ &
+ & 0.78829E+01_JPRB,0.71661E+01_JPRB,0.69761E+01_JPRB,0.66643E+01_JPRB,0.69508E+01_JPRB /)  
+KB(:, 4,15,14) = (/ &
+ & 0.78961E+01_JPRB,0.71374E+01_JPRB,0.69668E+01_JPRB,0.66987E+01_JPRB,0.70374E+01_JPRB /)  
+KB(:, 5,15,14) = (/ &
+ & 0.78984E+01_JPRB,0.71026E+01_JPRB,0.69440E+01_JPRB,0.67207E+01_JPRB,0.71207E+01_JPRB /)  
+KB(:, 1,16,14) = (/ &
+ & 0.77976E+01_JPRB,0.73768E+01_JPRB,0.72331E+01_JPRB,0.67309E+01_JPRB,0.67735E+01_JPRB /)  
+KB(:, 2,16,14) = (/ &
+ & 0.78456E+01_JPRB,0.73704E+01_JPRB,0.72485E+01_JPRB,0.67988E+01_JPRB,0.68801E+01_JPRB /)  
+KB(:, 3,16,14) = (/ &
+ & 0.78840E+01_JPRB,0.73590E+01_JPRB,0.72505E+01_JPRB,0.68482E+01_JPRB,0.69801E+01_JPRB /)  
+KB(:, 4,16,14) = (/ &
+ & 0.79146E+01_JPRB,0.73379E+01_JPRB,0.72385E+01_JPRB,0.68847E+01_JPRB,0.70795E+01_JPRB /)  
+KB(:, 5,16,14) = (/ &
+ & 0.79322E+01_JPRB,0.73060E+01_JPRB,0.72179E+01_JPRB,0.69099E+01_JPRB,0.71779E+01_JPRB /)  
+KB(:, 1,17,14) = (/ &
+ & 0.76851E+01_JPRB,0.74978E+01_JPRB,0.74681E+01_JPRB,0.68923E+01_JPRB,0.67646E+01_JPRB /)  
+KB(:, 2,17,14) = (/ &
+ & 0.77622E+01_JPRB,0.75112E+01_JPRB,0.74909E+01_JPRB,0.69618E+01_JPRB,0.68880E+01_JPRB /)  
+KB(:, 3,17,14) = (/ &
+ & 0.78293E+01_JPRB,0.75089E+01_JPRB,0.74964E+01_JPRB,0.70134E+01_JPRB,0.70063E+01_JPRB /)  
+KB(:, 4,17,14) = (/ &
+ & 0.78832E+01_JPRB,0.75014E+01_JPRB,0.74883E+01_JPRB,0.70540E+01_JPRB,0.71204E+01_JPRB /)  
+KB(:, 5,17,14) = (/ &
+ & 0.79237E+01_JPRB,0.74752E+01_JPRB,0.74629E+01_JPRB,0.70833E+01_JPRB,0.72311E+01_JPRB /)  
+KB(:, 1,18,14) = (/ &
+ & 0.75343E+01_JPRB,0.75844E+01_JPRB,0.76679E+01_JPRB,0.70369E+01_JPRB,0.67530E+01_JPRB /)  
+KB(:, 2,18,14) = (/ &
+ & 0.76372E+01_JPRB,0.76127E+01_JPRB,0.76999E+01_JPRB,0.71100E+01_JPRB,0.68939E+01_JPRB /)  
+KB(:, 3,18,14) = (/ &
+ & 0.77344E+01_JPRB,0.76293E+01_JPRB,0.77123E+01_JPRB,0.71649E+01_JPRB,0.70305E+01_JPRB /)  
+KB(:, 4,18,14) = (/ &
+ & 0.78168E+01_JPRB,0.76302E+01_JPRB,0.77077E+01_JPRB,0.72057E+01_JPRB,0.71594E+01_JPRB /)  
+KB(:, 5,18,14) = (/ &
+ & 0.78848E+01_JPRB,0.76120E+01_JPRB,0.76799E+01_JPRB,0.72369E+01_JPRB,0.72819E+01_JPRB /)  
+KB(:, 1,19,14) = (/ &
+ & 0.73642E+01_JPRB,0.76427E+01_JPRB,0.78392E+01_JPRB,0.71673E+01_JPRB,0.67426E+01_JPRB /)  
+KB(:, 2,19,14) = (/ &
+ & 0.75027E+01_JPRB,0.76890E+01_JPRB,0.78792E+01_JPRB,0.72411E+01_JPRB,0.69029E+01_JPRB /)  
+KB(:, 3,19,14) = (/ &
+ & 0.76261E+01_JPRB,0.77218E+01_JPRB,0.78995E+01_JPRB,0.72995E+01_JPRB,0.70551E+01_JPRB /)  
+KB(:, 4,19,14) = (/ &
+ & 0.77358E+01_JPRB,0.77317E+01_JPRB,0.78972E+01_JPRB,0.73431E+01_JPRB,0.71976E+01_JPRB /)  
+KB(:, 5,19,14) = (/ &
+ & 0.78306E+01_JPRB,0.77206E+01_JPRB,0.78669E+01_JPRB,0.73734E+01_JPRB,0.73288E+01_JPRB /)  
+KB(:, 1,20,14) = (/ &
+ & 0.71989E+01_JPRB,0.76856E+01_JPRB,0.79830E+01_JPRB,0.72835E+01_JPRB,0.67408E+01_JPRB /)  
+KB(:, 2,20,14) = (/ &
+ & 0.73691E+01_JPRB,0.77492E+01_JPRB,0.80344E+01_JPRB,0.73623E+01_JPRB,0.69200E+01_JPRB /)  
+KB(:, 3,20,14) = (/ &
+ & 0.75204E+01_JPRB,0.77952E+01_JPRB,0.80604E+01_JPRB,0.74206E+01_JPRB,0.70842E+01_JPRB /)  
+KB(:, 4,20,14) = (/ &
+ & 0.76560E+01_JPRB,0.78150E+01_JPRB,0.80567E+01_JPRB,0.74651E+01_JPRB,0.72381E+01_JPRB /)  
+KB(:, 5,20,14) = (/ &
+ & 0.77736E+01_JPRB,0.78108E+01_JPRB,0.80255E+01_JPRB,0.74944E+01_JPRB,0.73772E+01_JPRB /)  
+KB(:, 1,21,14) = (/ &
+ & 0.70426E+01_JPRB,0.77166E+01_JPRB,0.81049E+01_JPRB,0.73883E+01_JPRB,0.67480E+01_JPRB /)  
+KB(:, 2,21,14) = (/ &
+ & 0.72474E+01_JPRB,0.77946E+01_JPRB,0.81668E+01_JPRB,0.74708E+01_JPRB,0.69410E+01_JPRB /)  
+KB(:, 3,21,14) = (/ &
+ & 0.74271E+01_JPRB,0.78518E+01_JPRB,0.81976E+01_JPRB,0.75283E+01_JPRB,0.71153E+01_JPRB /)  
+KB(:, 4,21,14) = (/ &
+ & 0.75881E+01_JPRB,0.78806E+01_JPRB,0.81926E+01_JPRB,0.75722E+01_JPRB,0.72765E+01_JPRB /)  
+KB(:, 5,21,14) = (/ &
+ & 0.77244E+01_JPRB,0.78840E+01_JPRB,0.81605E+01_JPRB,0.76005E+01_JPRB,0.74219E+01_JPRB /)  
+KB(:, 1,22,14) = (/ &
+ & 0.69208E+01_JPRB,0.77467E+01_JPRB,0.82134E+01_JPRB,0.74892E+01_JPRB,0.67760E+01_JPRB /)  
+KB(:, 2,22,14) = (/ &
+ & 0.71527E+01_JPRB,0.78380E+01_JPRB,0.82825E+01_JPRB,0.75703E+01_JPRB,0.69788E+01_JPRB /)  
+KB(:, 3,22,14) = (/ &
+ & 0.73591E+01_JPRB,0.79026E+01_JPRB,0.83138E+01_JPRB,0.76265E+01_JPRB,0.71614E+01_JPRB /)  
+KB(:, 4,22,14) = (/ &
+ & 0.75412E+01_JPRB,0.79369E+01_JPRB,0.83052E+01_JPRB,0.76676E+01_JPRB,0.73269E+01_JPRB /)  
+KB(:, 5,22,14) = (/ &
+ & 0.76931E+01_JPRB,0.79423E+01_JPRB,0.82705E+01_JPRB,0.76932E+01_JPRB,0.74734E+01_JPRB /)  
+KB(:, 1,23,14) = (/ &
+ & 0.68264E+01_JPRB,0.77768E+01_JPRB,0.83085E+01_JPRB,0.75813E+01_JPRB,0.68129E+01_JPRB /)  
+KB(:, 2,23,14) = (/ &
+ & 0.70814E+01_JPRB,0.78791E+01_JPRB,0.83807E+01_JPRB,0.76573E+01_JPRB,0.70223E+01_JPRB /)  
+KB(:, 3,23,14) = (/ &
+ & 0.73108E+01_JPRB,0.79473E+01_JPRB,0.84103E+01_JPRB,0.77115E+01_JPRB,0.72087E+01_JPRB /)  
+KB(:, 4,23,14) = (/ &
+ & 0.75083E+01_JPRB,0.79850E+01_JPRB,0.83989E+01_JPRB,0.77500E+01_JPRB,0.73762E+01_JPRB /)  
+KB(:, 5,23,14) = (/ &
+ & 0.76738E+01_JPRB,0.79912E+01_JPRB,0.83608E+01_JPRB,0.77715E+01_JPRB,0.75218E+01_JPRB /)  
+KB(:, 1,24,14) = (/ &
+ & 0.67597E+01_JPRB,0.78092E+01_JPRB,0.83929E+01_JPRB,0.76639E+01_JPRB,0.68571E+01_JPRB /)  
+KB(:, 2,24,14) = (/ &
+ & 0.70359E+01_JPRB,0.79159E+01_JPRB,0.84653E+01_JPRB,0.77347E+01_JPRB,0.70700E+01_JPRB /)  
+KB(:, 3,24,14) = (/ &
+ & 0.72818E+01_JPRB,0.79869E+01_JPRB,0.84905E+01_JPRB,0.77860E+01_JPRB,0.72578E+01_JPRB /)  
+KB(:, 4,24,14) = (/ &
+ & 0.74908E+01_JPRB,0.80269E+01_JPRB,0.84765E+01_JPRB,0.78202E+01_JPRB,0.74248E+01_JPRB /)  
+KB(:, 5,24,14) = (/ &
+ & 0.76673E+01_JPRB,0.80324E+01_JPRB,0.84337E+01_JPRB,0.78375E+01_JPRB,0.75690E+01_JPRB /)  
+KB(:, 1,25,14) = (/ &
+ & 0.67209E+01_JPRB,0.78436E+01_JPRB,0.84676E+01_JPRB,0.77356E+01_JPRB,0.69066E+01_JPRB /)  
+KB(:, 2,25,14) = (/ &
+ & 0.70147E+01_JPRB,0.79506E+01_JPRB,0.85366E+01_JPRB,0.78027E+01_JPRB,0.71216E+01_JPRB /)  
+KB(:, 3,25,14) = (/ &
+ & 0.72710E+01_JPRB,0.80222E+01_JPRB,0.85567E+01_JPRB,0.78495E+01_JPRB,0.73079E+01_JPRB /)  
+KB(:, 4,25,14) = (/ &
+ & 0.74891E+01_JPRB,0.80627E+01_JPRB,0.85388E+01_JPRB,0.78803E+01_JPRB,0.74736E+01_JPRB /)  
+KB(:, 5,25,14) = (/ &
+ & 0.76763E+01_JPRB,0.80663E+01_JPRB,0.84908E+01_JPRB,0.78920E+01_JPRB,0.76152E+01_JPRB /)  
+KB(:, 1,26,14) = (/ &
+ & 0.67117E+01_JPRB,0.78809E+01_JPRB,0.85346E+01_JPRB,0.77996E+01_JPRB,0.69621E+01_JPRB /)  
+KB(:, 2,26,14) = (/ &
+ & 0.70163E+01_JPRB,0.79848E+01_JPRB,0.85977E+01_JPRB,0.78624E+01_JPRB,0.71766E+01_JPRB /)  
+KB(:, 3,26,14) = (/ &
+ & 0.72800E+01_JPRB,0.80555E+01_JPRB,0.86111E+01_JPRB,0.79043E+01_JPRB,0.73612E+01_JPRB /)  
+KB(:, 4,26,14) = (/ &
+ & 0.75048E+01_JPRB,0.80927E+01_JPRB,0.85874E+01_JPRB,0.79312E+01_JPRB,0.75235E+01_JPRB /)  
+KB(:, 5,26,14) = (/ &
+ & 0.76969E+01_JPRB,0.80929E+01_JPRB,0.85318E+01_JPRB,0.79367E+01_JPRB,0.76615E+01_JPRB /)  
+KB(:, 1,27,14) = (/ &
+ & 0.67222E+01_JPRB,0.79165E+01_JPRB,0.85935E+01_JPRB,0.78553E+01_JPRB,0.70208E+01_JPRB /)  
+KB(:, 2,27,14) = (/ &
+ & 0.70339E+01_JPRB,0.80174E+01_JPRB,0.86486E+01_JPRB,0.79134E+01_JPRB,0.72318E+01_JPRB /)  
+KB(:, 3,27,14) = (/ &
+ & 0.73021E+01_JPRB,0.80859E+01_JPRB,0.86549E+01_JPRB,0.79502E+01_JPRB,0.74127E+01_JPRB /)  
+KB(:, 4,27,14) = (/ &
+ & 0.75298E+01_JPRB,0.81175E+01_JPRB,0.86239E+01_JPRB,0.79721E+01_JPRB,0.75702E+01_JPRB /)  
+KB(:, 5,27,14) = (/ &
+ & 0.77246E+01_JPRB,0.81143E+01_JPRB,0.85613E+01_JPRB,0.79734E+01_JPRB,0.77047E+01_JPRB /)  
+KB(:, 1,28,14) = (/ &
+ & 0.67490E+01_JPRB,0.79508E+01_JPRB,0.86448E+01_JPRB,0.79039E+01_JPRB,0.70793E+01_JPRB /)  
+KB(:, 2,28,14) = (/ &
+ & 0.70641E+01_JPRB,0.80481E+01_JPRB,0.86903E+01_JPRB,0.79567E+01_JPRB,0.72853E+01_JPRB /)  
+KB(:, 3,28,14) = (/ &
+ & 0.73339E+01_JPRB,0.81119E+01_JPRB,0.86890E+01_JPRB,0.79886E+01_JPRB,0.74622E+01_JPRB /)  
+KB(:, 4,28,14) = (/ &
+ & 0.75625E+01_JPRB,0.81383E+01_JPRB,0.86502E+01_JPRB,0.80049E+01_JPRB,0.76145E+01_JPRB /)  
+KB(:, 5,28,14) = (/ &
+ & 0.77567E+01_JPRB,0.81304E+01_JPRB,0.85806E+01_JPRB,0.80023E+01_JPRB,0.77455E+01_JPRB /)  
+KB(:, 1,29,14) = (/ &
+ & 0.67914E+01_JPRB,0.79845E+01_JPRB,0.86886E+01_JPRB,0.79462E+01_JPRB,0.71386E+01_JPRB /)  
+KB(:, 2,29,14) = (/ &
+ & 0.71068E+01_JPRB,0.80770E+01_JPRB,0.87239E+01_JPRB,0.79933E+01_JPRB,0.73389E+01_JPRB /)  
+KB(:, 3,29,14) = (/ &
+ & 0.73751E+01_JPRB,0.81344E+01_JPRB,0.87144E+01_JPRB,0.80208E+01_JPRB,0.75104E+01_JPRB /)  
+KB(:, 4,29,14) = (/ &
+ & 0.76020E+01_JPRB,0.81550E+01_JPRB,0.86676E+01_JPRB,0.80316E+01_JPRB,0.76575E+01_JPRB /)  
+KB(:, 5,29,14) = (/ &
+ & 0.77937E+01_JPRB,0.81425E+01_JPRB,0.85914E+01_JPRB,0.80248E+01_JPRB,0.77840E+01_JPRB /)  
+KB(:, 1,30,14) = (/ &
+ & 0.68445E+01_JPRB,0.80166E+01_JPRB,0.87256E+01_JPRB,0.79827E+01_JPRB,0.71970E+01_JPRB /)  
+KB(:, 2,30,14) = (/ &
+ & 0.71563E+01_JPRB,0.81037E+01_JPRB,0.87505E+01_JPRB,0.80234E+01_JPRB,0.73900E+01_JPRB /)  
+KB(:, 3,30,14) = (/ &
+ & 0.74214E+01_JPRB,0.81535E+01_JPRB,0.87321E+01_JPRB,0.80469E+01_JPRB,0.75564E+01_JPRB /)  
+KB(:, 4,30,14) = (/ &
+ & 0.76455E+01_JPRB,0.81683E+01_JPRB,0.86770E+01_JPRB,0.80524E+01_JPRB,0.76986E+01_JPRB /)  
+KB(:, 5,30,14) = (/ &
+ & 0.78317E+01_JPRB,0.81499E+01_JPRB,0.85949E+01_JPRB,0.80416E+01_JPRB,0.78203E+01_JPRB /)  
+KB(:, 1,31,14) = (/ &
+ & 0.69054E+01_JPRB,0.80478E+01_JPRB,0.87566E+01_JPRB,0.80136E+01_JPRB,0.72537E+01_JPRB /)  
+KB(:, 2,31,14) = (/ &
+ & 0.72125E+01_JPRB,0.81281E+01_JPRB,0.87710E+01_JPRB,0.80494E+01_JPRB,0.74404E+01_JPRB /)  
+KB(:, 3,31,14) = (/ &
+ & 0.74718E+01_JPRB,0.81700E+01_JPRB,0.87427E+01_JPRB,0.80677E+01_JPRB,0.76003E+01_JPRB /)  
+KB(:, 4,31,14) = (/ &
+ & 0.76912E+01_JPRB,0.81779E+01_JPRB,0.86791E+01_JPRB,0.80682E+01_JPRB,0.77384E+01_JPRB /)  
+KB(:, 5,31,14) = (/ &
+ & 0.78715E+01_JPRB,0.81532E+01_JPRB,0.85914E+01_JPRB,0.80538E+01_JPRB,0.78547E+01_JPRB /)  
+KB(:, 1,32,14) = (/ &
+ & 0.69718E+01_JPRB,0.80767E+01_JPRB,0.87812E+01_JPRB,0.80405E+01_JPRB,0.73093E+01_JPRB /)  
+KB(:, 2,32,14) = (/ &
+ & 0.72714E+01_JPRB,0.81493E+01_JPRB,0.87845E+01_JPRB,0.80705E+01_JPRB,0.74889E+01_JPRB /)  
+KB(:, 3,32,14) = (/ &
+ & 0.75255E+01_JPRB,0.81843E+01_JPRB,0.87476E+01_JPRB,0.80843E+01_JPRB,0.76427E+01_JPRB /)  
+KB(:, 4,32,14) = (/ &
+ & 0.77373E+01_JPRB,0.81836E+01_JPRB,0.86757E+01_JPRB,0.80798E+01_JPRB,0.77759E+01_JPRB /)  
+KB(:, 5,32,14) = (/ &
+ & 0.79115E+01_JPRB,0.81523E+01_JPRB,0.85821E+01_JPRB,0.80611E+01_JPRB,0.78870E+01_JPRB /)  
+KB(:, 1,33,14) = (/ &
+ & 0.70424E+01_JPRB,0.81041E+01_JPRB,0.88003E+01_JPRB,0.80631E+01_JPRB,0.73621E+01_JPRB /)  
+KB(:, 2,33,14) = (/ &
+ & 0.73332E+01_JPRB,0.81674E+01_JPRB,0.87934E+01_JPRB,0.80887E+01_JPRB,0.75359E+01_JPRB /)  
+KB(:, 3,33,14) = (/ &
+ & 0.75797E+01_JPRB,0.81949E+01_JPRB,0.87467E+01_JPRB,0.80962E+01_JPRB,0.76832E+01_JPRB /)  
+KB(:, 4,33,14) = (/ &
+ & 0.77832E+01_JPRB,0.81860E+01_JPRB,0.86679E+01_JPRB,0.80880E+01_JPRB,0.78112E+01_JPRB /)  
+KB(:, 5,33,14) = (/ &
+ & 0.79514E+01_JPRB,0.81480E+01_JPRB,0.85688E+01_JPRB,0.80650E+01_JPRB,0.79176E+01_JPRB /)  
+KB(:, 1,34,14) = (/ &
+ & 0.71032E+01_JPRB,0.81256E+01_JPRB,0.88135E+01_JPRB,0.80801E+01_JPRB,0.74073E+01_JPRB /)  
+KB(:, 2,34,14) = (/ &
+ & 0.73864E+01_JPRB,0.81812E+01_JPRB,0.87981E+01_JPRB,0.81025E+01_JPRB,0.75752E+01_JPRB /)  
+KB(:, 3,34,14) = (/ &
+ & 0.76257E+01_JPRB,0.82022E+01_JPRB,0.87428E+01_JPRB,0.81055E+01_JPRB,0.77177E+01_JPRB /)  
+KB(:, 4,34,14) = (/ &
+ & 0.78229E+01_JPRB,0.81866E+01_JPRB,0.86595E+01_JPRB,0.80934E+01_JPRB,0.78409E+01_JPRB /)  
+KB(:, 5,34,14) = (/ &
+ & 0.79841E+01_JPRB,0.81428E+01_JPRB,0.85553E+01_JPRB,0.80663E+01_JPRB,0.79427E+01_JPRB /)  
+KB(:, 1,35,14) = (/ &
+ & 0.71357E+01_JPRB,0.81386E+01_JPRB,0.88238E+01_JPRB,0.80923E+01_JPRB,0.74328E+01_JPRB /)  
+KB(:, 2,35,14) = (/ &
+ & 0.74155E+01_JPRB,0.81901E+01_JPRB,0.88028E+01_JPRB,0.81125E+01_JPRB,0.75980E+01_JPRB /)  
+KB(:, 3,35,14) = (/ &
+ & 0.76506E+01_JPRB,0.82068E+01_JPRB,0.87428E+01_JPRB,0.81128E+01_JPRB,0.77381E+01_JPRB /)  
+KB(:, 4,35,14) = (/ &
+ & 0.78446E+01_JPRB,0.81876E+01_JPRB,0.86563E+01_JPRB,0.80980E+01_JPRB,0.78583E+01_JPRB /)  
+KB(:, 5,35,14) = (/ &
+ & 0.80022E+01_JPRB,0.81408E+01_JPRB,0.85492E+01_JPRB,0.80683E+01_JPRB,0.79574E+01_JPRB /)  
+KB(:, 1,36,14) = (/ &
+ & 0.71358E+01_JPRB,0.81426E+01_JPRB,0.88312E+01_JPRB,0.80996E+01_JPRB,0.74385E+01_JPRB /)  
+KB(:, 2,36,14) = (/ &
+ & 0.74168E+01_JPRB,0.81942E+01_JPRB,0.88101E+01_JPRB,0.81195E+01_JPRB,0.76033E+01_JPRB /)  
+KB(:, 3,36,14) = (/ &
+ & 0.76530E+01_JPRB,0.82111E+01_JPRB,0.87491E+01_JPRB,0.81189E+01_JPRB,0.77431E+01_JPRB /)  
+KB(:, 4,36,14) = (/ &
+ & 0.78475E+01_JPRB,0.81916E+01_JPRB,0.86625E+01_JPRB,0.81041E+01_JPRB,0.78633E+01_JPRB /)  
+KB(:, 5,36,14) = (/ &
+ & 0.80053E+01_JPRB,0.81444E+01_JPRB,0.85549E+01_JPRB,0.80739E+01_JPRB,0.79624E+01_JPRB /)  
+KB(:, 1,37,14) = (/ &
+ & 0.70898E+01_JPRB,0.81353E+01_JPRB,0.88375E+01_JPRB,0.81022E+01_JPRB,0.74173E+01_JPRB /)  
+KB(:, 2,37,14) = (/ &
+ & 0.73792E+01_JPRB,0.81923E+01_JPRB,0.88220E+01_JPRB,0.81236E+01_JPRB,0.75852E+01_JPRB /)  
+KB(:, 3,37,14) = (/ &
+ & 0.76229E+01_JPRB,0.82146E+01_JPRB,0.87658E+01_JPRB,0.81255E+01_JPRB,0.77281E+01_JPRB /)  
+KB(:, 4,37,14) = (/ &
+ & 0.78232E+01_JPRB,0.81996E+01_JPRB,0.86818E+01_JPRB,0.81120E+01_JPRB,0.78508E+01_JPRB /)  
+KB(:, 5,37,14) = (/ &
+ & 0.79866E+01_JPRB,0.81554E+01_JPRB,0.85764E+01_JPRB,0.80843E+01_JPRB,0.79525E+01_JPRB /)  
+KB(:, 1,38,14) = (/ &
+ & 0.70419E+01_JPRB,0.81271E+01_JPRB,0.88418E+01_JPRB,0.81031E+01_JPRB,0.73933E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART34',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,38,14) = (/ &
+ & 0.73389E+01_JPRB,0.81889E+01_JPRB,0.88323E+01_JPRB,0.81261E+01_JPRB,0.75648E+01_JPRB /)  
+KB(:, 3,38,14) = (/ &
+ & 0.75899E+01_JPRB,0.82161E+01_JPRB,0.87808E+01_JPRB,0.81301E+01_JPRB,0.77105E+01_JPRB /)  
+KB(:, 4,38,14) = (/ &
+ & 0.77971E+01_JPRB,0.82068E+01_JPRB,0.87000E+01_JPRB,0.81195E+01_JPRB,0.78368E+01_JPRB /)  
+KB(:, 5,38,14) = (/ &
+ & 0.79663E+01_JPRB,0.81665E+01_JPRB,0.85976E+01_JPRB,0.80935E+01_JPRB,0.79412E+01_JPRB /)  
+KB(:, 1,39,14) = (/ &
+ & 0.69923E+01_JPRB,0.81165E+01_JPRB,0.88435E+01_JPRB,0.81024E+01_JPRB,0.73685E+01_JPRB /)  
+KB(:, 2,39,14) = (/ &
+ & 0.72982E+01_JPRB,0.81845E+01_JPRB,0.88409E+01_JPRB,0.81277E+01_JPRB,0.75441E+01_JPRB /)  
+KB(:, 3,39,14) = (/ &
+ & 0.75563E+01_JPRB,0.82164E+01_JPRB,0.87952E+01_JPRB,0.81347E+01_JPRB,0.76928E+01_JPRB /)  
+KB(:, 4,39,14) = (/ &
+ & 0.77695E+01_JPRB,0.82122E+01_JPRB,0.87165E+01_JPRB,0.81250E+01_JPRB,0.78216E+01_JPRB /)  
+KB(:, 5,39,14) = (/ &
+ & 0.79452E+01_JPRB,0.81762E+01_JPRB,0.86172E+01_JPRB,0.81015E+01_JPRB,0.79291E+01_JPRB /)  
+KB(:, 1,40,14) = (/ &
+ & 0.69080E+01_JPRB,0.80958E+01_JPRB,0.88413E+01_JPRB,0.80965E+01_JPRB,0.73229E+01_JPRB /)  
+KB(:, 2,40,14) = (/ &
+ & 0.72277E+01_JPRB,0.81734E+01_JPRB,0.88495E+01_JPRB,0.81259E+01_JPRB,0.75046E+01_JPRB /)  
+KB(:, 3,40,14) = (/ &
+ & 0.74967E+01_JPRB,0.82131E+01_JPRB,0.88131E+01_JPRB,0.81381E+01_JPRB,0.76600E+01_JPRB /)  
+KB(:, 4,40,14) = (/ &
+ & 0.77214E+01_JPRB,0.82184E+01_JPRB,0.87413E+01_JPRB,0.81320E+01_JPRB,0.77938E+01_JPRB /)  
+KB(:, 5,40,14) = (/ &
+ & 0.79055E+01_JPRB,0.81894E+01_JPRB,0.86471E+01_JPRB,0.81094E+01_JPRB,0.79066E+01_JPRB /)  
+KB(:, 1,41,14) = (/ &
+ & 0.68155E+01_JPRB,0.80708E+01_JPRB,0.88352E+01_JPRB,0.80885E+01_JPRB,0.72719E+01_JPRB /)  
+KB(:, 2,41,14) = (/ &
+ & 0.71495E+01_JPRB,0.81585E+01_JPRB,0.88545E+01_JPRB,0.81224E+01_JPRB,0.74618E+01_JPRB /)  
+KB(:, 3,41,14) = (/ &
+ & 0.74308E+01_JPRB,0.82074E+01_JPRB,0.88291E+01_JPRB,0.81392E+01_JPRB,0.76238E+01_JPRB /)  
+KB(:, 4,41,14) = (/ &
+ & 0.76675E+01_JPRB,0.82222E+01_JPRB,0.87650E+01_JPRB,0.81374E+01_JPRB,0.77629E+01_JPRB /)  
+KB(:, 5,41,14) = (/ &
+ & 0.78621E+01_JPRB,0.82014E+01_JPRB,0.86761E+01_JPRB,0.81197E+01_JPRB,0.78805E+01_JPRB /)  
+KB(:, 1,42,14) = (/ &
+ & 0.67210E+01_JPRB,0.80436E+01_JPRB,0.88257E+01_JPRB,0.80787E+01_JPRB,0.72181E+01_JPRB /)  
+KB(:, 2,42,14) = (/ &
+ & 0.70672E+01_JPRB,0.81413E+01_JPRB,0.88562E+01_JPRB,0.81177E+01_JPRB,0.74171E+01_JPRB /)  
+KB(:, 3,42,14) = (/ &
+ & 0.73618E+01_JPRB,0.81993E+01_JPRB,0.88420E+01_JPRB,0.81387E+01_JPRB,0.75853E+01_JPRB /)  
+KB(:, 4,42,14) = (/ &
+ & 0.76110E+01_JPRB,0.82240E+01_JPRB,0.87872E+01_JPRB,0.81416E+01_JPRB,0.77301E+01_JPRB /)  
+KB(:, 5,42,14) = (/ &
+ & 0.78157E+01_JPRB,0.82114E+01_JPRB,0.87034E+01_JPRB,0.81275E+01_JPRB,0.78533E+01_JPRB /)  
+KB(:, 1,43,14) = (/ &
+ & 0.66012E+01_JPRB,0.80077E+01_JPRB,0.88083E+01_JPRB,0.80639E+01_JPRB,0.71482E+01_JPRB /)  
+KB(:, 2,43,14) = (/ &
+ & 0.69627E+01_JPRB,0.81158E+01_JPRB,0.88532E+01_JPRB,0.81101E+01_JPRB,0.73596E+01_JPRB /)  
+KB(:, 3,43,14) = (/ &
+ & 0.72743E+01_JPRB,0.81862E+01_JPRB,0.88533E+01_JPRB,0.81352E+01_JPRB,0.75360E+01_JPRB /)  
+KB(:, 4,43,14) = (/ &
+ & 0.75376E+01_JPRB,0.82203E+01_JPRB,0.88101E+01_JPRB,0.81444E+01_JPRB,0.76876E+01_JPRB /)  
+KB(:, 5,43,14) = (/ &
+ & 0.77560E+01_JPRB,0.82200E+01_JPRB,0.87338E+01_JPRB,0.81353E+01_JPRB,0.78176E+01_JPRB /)  
+KB(:, 1,44,14) = (/ &
+ & 0.64654E+01_JPRB,0.79624E+01_JPRB,0.87841E+01_JPRB,0.80450E+01_JPRB,0.70696E+01_JPRB /)  
+KB(:, 2,44,14) = (/ &
+ & 0.68452E+01_JPRB,0.80842E+01_JPRB,0.88456E+01_JPRB,0.80985E+01_JPRB,0.72931E+01_JPRB /)  
+KB(:, 3,44,14) = (/ &
+ & 0.71736E+01_JPRB,0.81668E+01_JPRB,0.88594E+01_JPRB,0.81294E+01_JPRB,0.74799E+01_JPRB /)  
+KB(:, 4,44,14) = (/ &
+ & 0.74536E+01_JPRB,0.82135E+01_JPRB,0.88309E+01_JPRB,0.81455E+01_JPRB,0.76398E+01_JPRB /)  
+KB(:, 5,44,14) = (/ &
+ & 0.76864E+01_JPRB,0.82252E+01_JPRB,0.87641E+01_JPRB,0.81417E+01_JPRB,0.77771E+01_JPRB /)  
+KB(:, 1,45,14) = (/ &
+ & 0.63246E+01_JPRB,0.79121E+01_JPRB,0.87529E+01_JPRB,0.80227E+01_JPRB,0.69872E+01_JPRB /)  
+KB(:, 2,45,14) = (/ &
+ & 0.67215E+01_JPRB,0.80478E+01_JPRB,0.88314E+01_JPRB,0.80840E+01_JPRB,0.72219E+01_JPRB /)  
+KB(:, 3,45,14) = (/ &
+ & 0.70680E+01_JPRB,0.81447E+01_JPRB,0.88609E+01_JPRB,0.81218E+01_JPRB,0.74205E+01_JPRB /)  
+KB(:, 4,45,14) = (/ &
+ & 0.73633E+01_JPRB,0.82020E+01_JPRB,0.88464E+01_JPRB,0.81437E+01_JPRB,0.75896E+01_JPRB /)  
+KB(:, 5,45,14) = (/ &
+ & 0.76123E+01_JPRB,0.82264E+01_JPRB,0.87913E+01_JPRB,0.81458E+01_JPRB,0.77333E+01_JPRB /)  
+KB(:, 1,46,14) = (/ &
+ & 0.61677E+01_JPRB,0.78522E+01_JPRB,0.87120E+01_JPRB,0.79958E+01_JPRB,0.68962E+01_JPRB /)  
+KB(:, 2,46,14) = (/ &
+ & 0.65843E+01_JPRB,0.80056E+01_JPRB,0.88106E+01_JPRB,0.80659E+01_JPRB,0.71413E+01_JPRB /)  
+KB(:, 3,46,14) = (/ &
+ & 0.69482E+01_JPRB,0.81147E+01_JPRB,0.88565E+01_JPRB,0.81122E+01_JPRB,0.73539E+01_JPRB /)  
+KB(:, 4,46,14) = (/ &
+ & 0.72620E+01_JPRB,0.81857E+01_JPRB,0.88581E+01_JPRB,0.81382E+01_JPRB,0.75320E+01_JPRB /)  
+KB(:, 5,46,14) = (/ &
+ & 0.75285E+01_JPRB,0.82222E+01_JPRB,0.88171E+01_JPRB,0.81482E+01_JPRB,0.76841E+01_JPRB /)  
+KB(:, 1,47,14) = (/ &
+ & 0.59872E+01_JPRB,0.77759E+01_JPRB,0.86581E+01_JPRB,0.79599E+01_JPRB,0.67904E+01_JPRB /)  
+KB(:, 2,47,14) = (/ &
+ & 0.64227E+01_JPRB,0.79505E+01_JPRB,0.87794E+01_JPRB,0.80417E+01_JPRB,0.70463E+01_JPRB /)  
+KB(:, 3,47,14) = (/ &
+ & 0.68067E+01_JPRB,0.80750E+01_JPRB,0.88445E+01_JPRB,0.80966E+01_JPRB,0.72732E+01_JPRB /)  
+KB(:, 4,47,14) = (/ &
+ & 0.71415E+01_JPRB,0.81619E+01_JPRB,0.88634E+01_JPRB,0.81302E+01_JPRB,0.74640E+01_JPRB /)  
+KB(:, 5,47,14) = (/ &
+ & 0.74259E+01_JPRB,0.82118E+01_JPRB,0.88390E+01_JPRB,0.81478E+01_JPRB,0.76260E+01_JPRB /)  
+KB(:, 1,48,14) = (/ &
+ & 0.57999E+01_JPRB,0.76897E+01_JPRB,0.85924E+01_JPRB,0.79165E+01_JPRB,0.66812E+01_JPRB /)  
+KB(:, 2,48,14) = (/ &
+ & 0.62523E+01_JPRB,0.78878E+01_JPRB,0.87384E+01_JPRB,0.80135E+01_JPRB,0.69471E+01_JPRB /)  
+KB(:, 3,48,14) = (/ &
+ & 0.66581E+01_JPRB,0.80303E+01_JPRB,0.88250E+01_JPRB,0.80783E+01_JPRB,0.71862E+01_JPRB /)  
+KB(:, 4,48,14) = (/ &
+ & 0.70120E+01_JPRB,0.81321E+01_JPRB,0.88616E+01_JPRB,0.81203E+01_JPRB,0.73915E+01_JPRB /)  
+KB(:, 5,48,14) = (/ &
+ & 0.73167E+01_JPRB,0.81963E+01_JPRB,0.88550E+01_JPRB,0.81433E+01_JPRB,0.75640E+01_JPRB /)  
+KB(:, 1,49,14) = (/ &
+ & 0.56056E+01_JPRB,0.75967E+01_JPRB,0.85186E+01_JPRB,0.78664E+01_JPRB,0.65684E+01_JPRB /)  
+KB(:, 2,49,14) = (/ &
+ & 0.60725E+01_JPRB,0.78139E+01_JPRB,0.86868E+01_JPRB,0.79799E+01_JPRB,0.68428E+01_JPRB /)  
+KB(:, 3,49,14) = (/ &
+ & 0.65005E+01_JPRB,0.79789E+01_JPRB,0.87970E+01_JPRB,0.80551E+01_JPRB,0.70936E+01_JPRB /)  
+KB(:, 4,49,14) = (/ &
+ & 0.68750E+01_JPRB,0.80955E+01_JPRB,0.88532E+01_JPRB,0.81069E+01_JPRB,0.73141E+01_JPRB /)  
+KB(:, 5,49,14) = (/ &
+ & 0.72008E+01_JPRB,0.81753E+01_JPRB,0.88640E+01_JPRB,0.81362E+01_JPRB,0.74980E+01_JPRB /)  
+KB(:, 1,50,14) = (/ &
+ & 0.54125E+01_JPRB,0.74991E+01_JPRB,0.84401E+01_JPRB,0.78123E+01_JPRB,0.64595E+01_JPRB /)  
+KB(:, 2,50,14) = (/ &
+ & 0.59003E+01_JPRB,0.77375E+01_JPRB,0.86301E+01_JPRB,0.79423E+01_JPRB,0.67420E+01_JPRB /)  
+KB(:, 3,50,14) = (/ &
+ & 0.63429E+01_JPRB,0.79215E+01_JPRB,0.87619E+01_JPRB,0.80304E+01_JPRB,0.70024E+01_JPRB /)  
+KB(:, 4,50,14) = (/ &
+ & 0.67393E+01_JPRB,0.80557E+01_JPRB,0.88380E+01_JPRB,0.80904E+01_JPRB,0.72354E+01_JPRB /)  
+KB(:, 5,50,14) = (/ &
+ & 0.70838E+01_JPRB,0.81507E+01_JPRB,0.88659E+01_JPRB,0.81277E+01_JPRB,0.74327E+01_JPRB /)  
+KB(:, 1,51,14) = (/ &
+ & 0.52191E+01_JPRB,0.73982E+01_JPRB,0.83585E+01_JPRB,0.77548E+01_JPRB,0.63504E+01_JPRB /)  
+KB(:, 2,51,14) = (/ &
+ & 0.57281E+01_JPRB,0.76566E+01_JPRB,0.85673E+01_JPRB,0.79002E+01_JPRB,0.66408E+01_JPRB /)  
+KB(:, 3,51,14) = (/ &
+ & 0.61850E+01_JPRB,0.78612E+01_JPRB,0.87206E+01_JPRB,0.80029E+01_JPRB,0.69102E+01_JPRB /)  
+KB(:, 4,51,14) = (/ &
+ & 0.66013E+01_JPRB,0.80131E+01_JPRB,0.88169E+01_JPRB,0.80719E+01_JPRB,0.71542E+01_JPRB /)  
+KB(:, 5,51,14) = (/ &
+ & 0.69630E+01_JPRB,0.81207E+01_JPRB,0.88611E+01_JPRB,0.81171E+01_JPRB,0.73645E+01_JPRB /)  
+KB(:, 1,52,14) = (/ &
+ & 0.50203E+01_JPRB,0.72853E+01_JPRB,0.82659E+01_JPRB,0.76900E+01_JPRB,0.62362E+01_JPRB /)  
+KB(:, 2,52,14) = (/ &
+ & 0.55489E+01_JPRB,0.75692E+01_JPRB,0.84974E+01_JPRB,0.78525E+01_JPRB,0.65380E+01_JPRB /)  
+KB(:, 3,52,14) = (/ &
+ & 0.60223E+01_JPRB,0.77933E+01_JPRB,0.86726E+01_JPRB,0.79710E+01_JPRB,0.68148E+01_JPRB /)  
+KB(:, 4,52,14) = (/ &
+ & 0.64533E+01_JPRB,0.79619E+01_JPRB,0.87883E+01_JPRB,0.80495E+01_JPRB,0.70682E+01_JPRB /)  
+KB(:, 5,52,14) = (/ &
+ & 0.68363E+01_JPRB,0.80853E+01_JPRB,0.88509E+01_JPRB,0.81034E+01_JPRB,0.72926E+01_JPRB /)  
+KB(:, 1,53,14) = (/ &
+ & 0.48171E+01_JPRB,0.71626E+01_JPRB,0.81646E+01_JPRB,0.76188E+01_JPRB,0.61179E+01_JPRB /)  
+KB(:, 2,53,14) = (/ &
+ & 0.53620E+01_JPRB,0.74745E+01_JPRB,0.84206E+01_JPRB,0.77982E+01_JPRB,0.64310E+01_JPRB /)  
+KB(:, 3,53,14) = (/ &
+ & 0.58544E+01_JPRB,0.77168E+01_JPRB,0.86150E+01_JPRB,0.79329E+01_JPRB,0.67166E+01_JPRB /)  
+KB(:, 4,53,14) = (/ &
+ & 0.63007E+01_JPRB,0.79064E+01_JPRB,0.87527E+01_JPRB,0.80244E+01_JPRB,0.69787E+01_JPRB /)  
+KB(:, 5,53,14) = (/ &
+ & 0.67036E+01_JPRB,0.80457E+01_JPRB,0.88348E+01_JPRB,0.80870E+01_JPRB,0.72150E+01_JPRB /)  
+KB(:, 1,54,14) = (/ &
+ & 0.46268E+01_JPRB,0.70415E+01_JPRB,0.80643E+01_JPRB,0.75453E+01_JPRB,0.60051E+01_JPRB /)  
+KB(:, 2,54,14) = (/ &
+ & 0.51834E+01_JPRB,0.73793E+01_JPRB,0.83436E+01_JPRB,0.77439E+01_JPRB,0.63304E+01_JPRB /)  
+KB(:, 3,54,14) = (/ &
+ & 0.56952E+01_JPRB,0.76416E+01_JPRB,0.85557E+01_JPRB,0.78930E+01_JPRB,0.66233E+01_JPRB /)  
+KB(:, 4,54,14) = (/ &
+ & 0.61555E+01_JPRB,0.78501E+01_JPRB,0.87136E+01_JPRB,0.79986E+01_JPRB,0.68935E+01_JPRB /)  
+KB(:, 5,54,14) = (/ &
+ & 0.65754E+01_JPRB,0.80055E+01_JPRB,0.88139E+01_JPRB,0.80689E+01_JPRB,0.71391E+01_JPRB /)  
+KB(:, 1,55,14) = (/ &
+ & 0.44418E+01_JPRB,0.69152E+01_JPRB,0.79589E+01_JPRB,0.74683E+01_JPRB,0.58909E+01_JPRB /)  
+KB(:, 2,55,14) = (/ &
+ & 0.50082E+01_JPRB,0.72786E+01_JPRB,0.82608E+01_JPRB,0.76866E+01_JPRB,0.62296E+01_JPRB /)  
+KB(:, 3,55,14) = (/ &
+ & 0.55372E+01_JPRB,0.75641E+01_JPRB,0.84935E+01_JPRB,0.78502E+01_JPRB,0.65324E+01_JPRB /)  
+KB(:, 4,55,14) = (/ &
+ & 0.60119E+01_JPRB,0.77891E+01_JPRB,0.86705E+01_JPRB,0.79700E+01_JPRB,0.68094E+01_JPRB /)  
+KB(:, 5,55,14) = (/ &
+ & 0.64443E+01_JPRB,0.79596E+01_JPRB,0.87874E+01_JPRB,0.80489E+01_JPRB,0.70636E+01_JPRB /)  
+KB(:, 1,56,14) = (/ &
+ & 0.42552E+01_JPRB,0.67816E+01_JPRB,0.78463E+01_JPRB,0.73861E+01_JPRB,0.57693E+01_JPRB /)  
+KB(:, 2,56,14) = (/ &
+ & 0.48302E+01_JPRB,0.71710E+01_JPRB,0.81721E+01_JPRB,0.76241E+01_JPRB,0.61259E+01_JPRB /)  
+KB(:, 3,56,14) = (/ &
+ & 0.53736E+01_JPRB,0.74812E+01_JPRB,0.84261E+01_JPRB,0.78026E+01_JPRB,0.64389E+01_JPRB /)  
+KB(:, 4,56,14) = (/ &
+ & 0.58648E+01_JPRB,0.77223E+01_JPRB,0.86198E+01_JPRB,0.79361E+01_JPRB,0.67232E+01_JPRB /)  
+KB(:, 5,56,14) = (/ &
+ & 0.63103E+01_JPRB,0.79105E+01_JPRB,0.87564E+01_JPRB,0.80271E+01_JPRB,0.69853E+01_JPRB /)  
+KB(:, 1,57,14) = (/ &
+ & 0.40639E+01_JPRB,0.66394E+01_JPRB,0.77238E+01_JPRB,0.72954E+01_JPRB,0.56390E+01_JPRB /)  
+KB(:, 2,57,14) = (/ &
+ & 0.46488E+01_JPRB,0.70563E+01_JPRB,0.80768E+01_JPRB,0.75544E+01_JPRB,0.60187E+01_JPRB /)  
+KB(:, 3,57,14) = (/ &
+ & 0.52035E+01_JPRB,0.73909E+01_JPRB,0.83529E+01_JPRB,0.77510E+01_JPRB,0.63425E+01_JPRB /)  
+KB(:, 4,57,14) = (/ &
+ & 0.57137E+01_JPRB,0.76510E+01_JPRB,0.85638E+01_JPRB,0.78985E+01_JPRB,0.66342E+01_JPRB /)  
+KB(:, 5,57,14) = (/ &
+ & 0.61722E+01_JPRB,0.78574E+01_JPRB,0.87192E+01_JPRB,0.80023E+01_JPRB,0.69038E+01_JPRB /)  
+KB(:, 1,58,14) = (/ &
+ & 0.38805E+01_JPRB,0.64976E+01_JPRB,0.75961E+01_JPRB,0.72010E+01_JPRB,0.55107E+01_JPRB /)  
+KB(:, 2,58,14) = (/ &
+ & 0.44745E+01_JPRB,0.69383E+01_JPRB,0.79787E+01_JPRB,0.74825E+01_JPRB,0.59115E+01_JPRB /)  
+KB(:, 3,58,14) = (/ &
+ & 0.50386E+01_JPRB,0.72976E+01_JPRB,0.82763E+01_JPRB,0.76973E+01_JPRB,0.62480E+01_JPRB /)  
+KB(:, 4,58,14) = (/ &
+ & 0.55648E+01_JPRB,0.75780E+01_JPRB,0.85055E+01_JPRB,0.78586E+01_JPRB,0.65486E+01_JPRB /)  
+KB(:, 5,58,14) = (/ &
+ & 0.60366E+01_JPRB,0.78002E+01_JPRB,0.86790E+01_JPRB,0.79756E+01_JPRB,0.68245E+01_JPRB /)  
+KB(:, 1,59,14) = (/ &
+ & 0.38057E+01_JPRB,0.64388E+01_JPRB,0.75416E+01_JPRB,0.71615E+01_JPRB,0.54582E+01_JPRB /)  
+KB(:, 2,59,14) = (/ &
+ & 0.44044E+01_JPRB,0.68893E+01_JPRB,0.79374E+01_JPRB,0.74528E+01_JPRB,0.58671E+01_JPRB /)  
+KB(:, 3,59,14) = (/ &
+ & 0.49711E+01_JPRB,0.72574E+01_JPRB,0.82432E+01_JPRB,0.76750E+01_JPRB,0.62091E+01_JPRB /)  
+KB(:, 4,59,14) = (/ &
+ & 0.55038E+01_JPRB,0.75476E+01_JPRB,0.84809E+01_JPRB,0.78415E+01_JPRB,0.65137E+01_JPRB /)  
+KB(:, 5,59,14) = (/ &
+ & 0.59820E+01_JPRB,0.77764E+01_JPRB,0.86612E+01_JPRB,0.79636E+01_JPRB,0.67922E+01_JPRB /)  
+KB(:, 1,13,15) = (/ &
+ & 0.21583E+02_JPRB,0.16708E+02_JPRB,0.15578E+02_JPRB,0.16324E+02_JPRB,0.21499E+02_JPRB /)  
+KB(:, 2,13,15) = (/ &
+ & 0.21596E+02_JPRB,0.16646E+02_JPRB,0.15448E+02_JPRB,0.16116E+02_JPRB,0.21237E+02_JPRB /)  
+KB(:, 3,13,15) = (/ &
+ & 0.21561E+02_JPRB,0.16562E+02_JPRB,0.15303E+02_JPRB,0.15881E+02_JPRB,0.20975E+02_JPRB /)  
+KB(:, 4,13,15) = (/ &
+ & 0.21482E+02_JPRB,0.16444E+02_JPRB,0.15131E+02_JPRB,0.15663E+02_JPRB,0.20709E+02_JPRB /)  
+KB(:, 5,13,15) = (/ &
+ & 0.21360E+02_JPRB,0.16308E+02_JPRB,0.14933E+02_JPRB,0.15443E+02_JPRB,0.20449E+02_JPRB /)  
+KB(:, 1,14,15) = (/ &
+ & 0.23286E+02_JPRB,0.18105E+02_JPRB,0.17022E+02_JPRB,0.17494E+02_JPRB,0.22811E+02_JPRB /)  
+KB(:, 2,14,15) = (/ &
+ & 0.23268E+02_JPRB,0.18001E+02_JPRB,0.16845E+02_JPRB,0.17259E+02_JPRB,0.22563E+02_JPRB /)  
+KB(:, 3,14,15) = (/ &
+ & 0.23185E+02_JPRB,0.17865E+02_JPRB,0.16645E+02_JPRB,0.17010E+02_JPRB,0.22295E+02_JPRB /)  
+KB(:, 4,14,15) = (/ &
+ & 0.23065E+02_JPRB,0.17707E+02_JPRB,0.16417E+02_JPRB,0.16757E+02_JPRB,0.22015E+02_JPRB /)  
+KB(:, 5,14,15) = (/ &
+ & 0.22894E+02_JPRB,0.17515E+02_JPRB,0.16163E+02_JPRB,0.16504E+02_JPRB,0.21733E+02_JPRB /)  
+KB(:, 1,15,15) = (/ &
+ & 0.24991E+02_JPRB,0.19505E+02_JPRB,0.18411E+02_JPRB,0.18638E+02_JPRB,0.24057E+02_JPRB /)  
+KB(:, 2,15,15) = (/ &
+ & 0.24920E+02_JPRB,0.19349E+02_JPRB,0.18180E+02_JPRB,0.18374E+02_JPRB,0.23810E+02_JPRB /)  
+KB(:, 3,15,15) = (/ &
+ & 0.24797E+02_JPRB,0.19155E+02_JPRB,0.17917E+02_JPRB,0.18103E+02_JPRB,0.23536E+02_JPRB /)  
+KB(:, 4,15,15) = (/ &
+ & 0.24619E+02_JPRB,0.18942E+02_JPRB,0.17624E+02_JPRB,0.17814E+02_JPRB,0.23238E+02_JPRB /)  
+KB(:, 5,15,15) = (/ &
+ & 0.24389E+02_JPRB,0.18694E+02_JPRB,0.17313E+02_JPRB,0.17524E+02_JPRB,0.22925E+02_JPRB /)  
+KB(:, 1,16,15) = (/ &
+ & 0.26656E+02_JPRB,0.20879E+02_JPRB,0.19716E+02_JPRB,0.19730E+02_JPRB,0.25227E+02_JPRB /)  
+KB(:, 2,16,15) = (/ &
+ & 0.26523E+02_JPRB,0.20660E+02_JPRB,0.19424E+02_JPRB,0.19442E+02_JPRB,0.24961E+02_JPRB /)  
+KB(:, 3,16,15) = (/ &
+ & 0.26348E+02_JPRB,0.20405E+02_JPRB,0.19093E+02_JPRB,0.19135E+02_JPRB,0.24671E+02_JPRB /)  
+KB(:, 4,16,15) = (/ &
+ & 0.26107E+02_JPRB,0.20124E+02_JPRB,0.18741E+02_JPRB,0.18812E+02_JPRB,0.24357E+02_JPRB /)  
+KB(:, 5,16,15) = (/ &
+ & 0.25816E+02_JPRB,0.19816E+02_JPRB,0.18364E+02_JPRB,0.18476E+02_JPRB,0.24001E+02_JPRB /)  
+KB(:, 1,17,15) = (/ &
+ & 0.28242E+02_JPRB,0.22184E+02_JPRB,0.20936E+02_JPRB,0.20769E+02_JPRB,0.26307E+02_JPRB /)  
+KB(:, 2,17,15) = (/ &
+ & 0.28053E+02_JPRB,0.21895E+02_JPRB,0.20570E+02_JPRB,0.20444E+02_JPRB,0.26016E+02_JPRB /)  
+KB(:, 3,17,15) = (/ &
+ & 0.27803E+02_JPRB,0.21584E+02_JPRB,0.20174E+02_JPRB,0.20096E+02_JPRB,0.25702E+02_JPRB /)  
+KB(:, 4,17,15) = (/ &
+ & 0.27499E+02_JPRB,0.21233E+02_JPRB,0.19753E+02_JPRB,0.19726E+02_JPRB,0.25351E+02_JPRB /)  
+KB(:, 5,17,15) = (/ &
+ & 0.27139E+02_JPRB,0.20859E+02_JPRB,0.19319E+02_JPRB,0.19342E+02_JPRB,0.24955E+02_JPRB /)  
+KB(:, 1,18,15) = (/ &
+ & 0.29720E+02_JPRB,0.23411E+02_JPRB,0.22065E+02_JPRB,0.21731E+02_JPRB,0.27280E+02_JPRB /)  
+KB(:, 2,18,15) = (/ &
+ & 0.29480E+02_JPRB,0.23053E+02_JPRB,0.21624E+02_JPRB,0.21360E+02_JPRB,0.26972E+02_JPRB /)  
+KB(:, 3,18,15) = (/ &
+ & 0.29159E+02_JPRB,0.22667E+02_JPRB,0.21156E+02_JPRB,0.20967E+02_JPRB,0.26625E+02_JPRB /)  
+KB(:, 4,18,15) = (/ &
+ & 0.28776E+02_JPRB,0.22248E+02_JPRB,0.20663E+02_JPRB,0.20553E+02_JPRB,0.26229E+02_JPRB /)  
+KB(:, 5,18,15) = (/ &
+ & 0.28340E+02_JPRB,0.21810E+02_JPRB,0.20170E+02_JPRB,0.20119E+02_JPRB,0.25790E+02_JPRB /)  
+KB(:, 1,19,15) = (/ &
+ & 0.31079E+02_JPRB,0.24533E+02_JPRB,0.23084E+02_JPRB,0.22601E+02_JPRB,0.28156E+02_JPRB /)  
+KB(:, 2,19,15) = (/ &
+ & 0.30766E+02_JPRB,0.24108E+02_JPRB,0.22572E+02_JPRB,0.22185E+02_JPRB,0.27815E+02_JPRB /)  
+KB(:, 3,19,15) = (/ &
+ & 0.30376E+02_JPRB,0.23641E+02_JPRB,0.22030E+02_JPRB,0.21741E+02_JPRB,0.27429E+02_JPRB /)  
+KB(:, 4,19,15) = (/ &
+ & 0.29923E+02_JPRB,0.23160E+02_JPRB,0.21471E+02_JPRB,0.21280E+02_JPRB,0.26992E+02_JPRB /)  
+KB(:, 5,19,15) = (/ &
+ & 0.29415E+02_JPRB,0.22660E+02_JPRB,0.20920E+02_JPRB,0.20797E+02_JPRB,0.26511E+02_JPRB /)  
+KB(:, 1,20,15) = (/ &
+ & 0.32290E+02_JPRB,0.25527E+02_JPRB,0.23984E+02_JPRB,0.23373E+02_JPRB,0.28918E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART35',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,20,15) = (/ &
+ & 0.31907E+02_JPRB,0.25035E+02_JPRB,0.23397E+02_JPRB,0.22899E+02_JPRB,0.28537E+02_JPRB /)  
+KB(:, 3,20,15) = (/ &
+ & 0.31450E+02_JPRB,0.24496E+02_JPRB,0.22784E+02_JPRB,0.22408E+02_JPRB,0.28112E+02_JPRB /)  
+KB(:, 4,20,15) = (/ &
+ & 0.30926E+02_JPRB,0.23946E+02_JPRB,0.22166E+02_JPRB,0.21898E+02_JPRB,0.27628E+02_JPRB /)  
+KB(:, 5,20,15) = (/ &
+ & 0.30351E+02_JPRB,0.23384E+02_JPRB,0.21559E+02_JPRB,0.21369E+02_JPRB,0.27109E+02_JPRB /)  
+KB(:, 1,21,15) = (/ &
+ & 0.33354E+02_JPRB,0.26397E+02_JPRB,0.24768E+02_JPRB,0.24040E+02_JPRB,0.29575E+02_JPRB /)  
+KB(:, 2,21,15) = (/ &
+ & 0.32901E+02_JPRB,0.25842E+02_JPRB,0.24107E+02_JPRB,0.23511E+02_JPRB,0.29153E+02_JPRB /)  
+KB(:, 3,21,15) = (/ &
+ & 0.32374E+02_JPRB,0.25240E+02_JPRB,0.23426E+02_JPRB,0.22972E+02_JPRB,0.28686E+02_JPRB /)  
+KB(:, 4,21,15) = (/ &
+ & 0.31781E+02_JPRB,0.24624E+02_JPRB,0.22754E+02_JPRB,0.22416E+02_JPRB,0.28162E+02_JPRB /)  
+KB(:, 5,21,15) = (/ &
+ & 0.31147E+02_JPRB,0.24003E+02_JPRB,0.22095E+02_JPRB,0.21845E+02_JPRB,0.27608E+02_JPRB /)  
+KB(:, 1,22,15) = (/ &
+ & 0.34245E+02_JPRB,0.27109E+02_JPRB,0.25388E+02_JPRB,0.24566E+02_JPRB,0.30099E+02_JPRB /)  
+KB(:, 2,22,15) = (/ &
+ & 0.33719E+02_JPRB,0.26481E+02_JPRB,0.24655E+02_JPRB,0.23987E+02_JPRB,0.29635E+02_JPRB /)  
+KB(:, 3,22,15) = (/ &
+ & 0.33121E+02_JPRB,0.25821E+02_JPRB,0.23916E+02_JPRB,0.23403E+02_JPRB,0.29124E+02_JPRB /)  
+KB(:, 4,22,15) = (/ &
+ & 0.32461E+02_JPRB,0.25147E+02_JPRB,0.23196E+02_JPRB,0.22805E+02_JPRB,0.28562E+02_JPRB /)  
+KB(:, 5,22,15) = (/ &
+ & 0.31774E+02_JPRB,0.24482E+02_JPRB,0.22495E+02_JPRB,0.22197E+02_JPRB,0.27979E+02_JPRB /)  
+KB(:, 1,23,15) = (/ &
+ & 0.34979E+02_JPRB,0.27686E+02_JPRB,0.25885E+02_JPRB,0.24985E+02_JPRB,0.30523E+02_JPRB /)  
+KB(:, 2,23,15) = (/ &
+ & 0.34390E+02_JPRB,0.26989E+02_JPRB,0.25088E+02_JPRB,0.24366E+02_JPRB,0.30015E+02_JPRB /)  
+KB(:, 3,23,15) = (/ &
+ & 0.33724E+02_JPRB,0.26279E+02_JPRB,0.24300E+02_JPRB,0.23742E+02_JPRB,0.29464E+02_JPRB /)  
+KB(:, 4,23,15) = (/ &
+ & 0.33013E+02_JPRB,0.25562E+02_JPRB,0.23538E+02_JPRB,0.23108E+02_JPRB,0.28875E+02_JPRB /)  
+KB(:, 5,23,15) = (/ &
+ & 0.32269E+02_JPRB,0.24853E+02_JPRB,0.22796E+02_JPRB,0.22467E+02_JPRB,0.28265E+02_JPRB /)  
+KB(:, 1,24,15) = (/ &
+ & 0.35573E+02_JPRB,0.28136E+02_JPRB,0.26264E+02_JPRB,0.25305E+02_JPRB,0.30849E+02_JPRB /)  
+KB(:, 2,24,15) = (/ &
+ & 0.34922E+02_JPRB,0.27387E+02_JPRB,0.25413E+02_JPRB,0.24653E+02_JPRB,0.30308E+02_JPRB /)  
+KB(:, 3,24,15) = (/ &
+ & 0.34200E+02_JPRB,0.26632E+02_JPRB,0.24587E+02_JPRB,0.23994E+02_JPRB,0.29723E+02_JPRB /)  
+KB(:, 4,24,15) = (/ &
+ & 0.33439E+02_JPRB,0.25872E+02_JPRB,0.23787E+02_JPRB,0.23329E+02_JPRB,0.29105E+02_JPRB /)  
+KB(:, 5,24,15) = (/ &
+ & 0.32647E+02_JPRB,0.25128E+02_JPRB,0.23014E+02_JPRB,0.22661E+02_JPRB,0.28477E+02_JPRB /)  
+KB(:, 1,25,15) = (/ &
+ & 0.36033E+02_JPRB,0.28469E+02_JPRB,0.26533E+02_JPRB,0.25539E+02_JPRB,0.31091E+02_JPRB /)  
+KB(:, 2,25,15) = (/ &
+ & 0.35324E+02_JPRB,0.27679E+02_JPRB,0.25640E+02_JPRB,0.24852E+02_JPRB,0.30512E+02_JPRB /)  
+KB(:, 3,25,15) = (/ &
+ & 0.34555E+02_JPRB,0.26887E+02_JPRB,0.24782E+02_JPRB,0.24167E+02_JPRB,0.29902E+02_JPRB /)  
+KB(:, 4,25,15) = (/ &
+ & 0.33752E+02_JPRB,0.26092E+02_JPRB,0.23953E+02_JPRB,0.23474E+02_JPRB,0.29262E+02_JPRB /)  
+KB(:, 5,25,15) = (/ &
+ & 0.32915E+02_JPRB,0.25319E+02_JPRB,0.23155E+02_JPRB,0.22787E+02_JPRB,0.28617E+02_JPRB /)  
+KB(:, 1,26,15) = (/ &
+ & 0.36371E+02_JPRB,0.28696E+02_JPRB,0.26697E+02_JPRB,0.25688E+02_JPRB,0.31254E+02_JPRB /)  
+KB(:, 2,26,15) = (/ &
+ & 0.35607E+02_JPRB,0.27872E+02_JPRB,0.25775E+02_JPRB,0.24975E+02_JPRB,0.30642E+02_JPRB /)  
+KB(:, 3,26,15) = (/ &
+ & 0.34798E+02_JPRB,0.27047E+02_JPRB,0.24890E+02_JPRB,0.24264E+02_JPRB,0.30007E+02_JPRB /)  
+KB(:, 4,26,15) = (/ &
+ & 0.33956E+02_JPRB,0.26227E+02_JPRB,0.24040E+02_JPRB,0.23549E+02_JPRB,0.29351E+02_JPRB /)  
+KB(:, 5,26,15) = (/ &
+ & 0.33076E+02_JPRB,0.25425E+02_JPRB,0.23222E+02_JPRB,0.22845E+02_JPRB,0.28688E+02_JPRB /)  
+KB(:, 1,27,15) = (/ &
+ & 0.36605E+02_JPRB,0.28839E+02_JPRB,0.26780E+02_JPRB,0.25770E+02_JPRB,0.31349E+02_JPRB /)  
+KB(:, 2,27,15) = (/ &
+ & 0.35796E+02_JPRB,0.27987E+02_JPRB,0.25836E+02_JPRB,0.25037E+02_JPRB,0.30713E+02_JPRB /)  
+KB(:, 3,27,15) = (/ &
+ & 0.34952E+02_JPRB,0.27136E+02_JPRB,0.24934E+02_JPRB,0.24306E+02_JPRB,0.30059E+02_JPRB /)  
+KB(:, 4,27,15) = (/ &
+ & 0.34075E+02_JPRB,0.26294E+02_JPRB,0.24068E+02_JPRB,0.23575E+02_JPRB,0.29392E+02_JPRB /)  
+KB(:, 5,27,15) = (/ &
+ & 0.33166E+02_JPRB,0.25473E+02_JPRB,0.23238E+02_JPRB,0.22856E+02_JPRB,0.28711E+02_JPRB /)  
+KB(:, 1,28,15) = (/ &
+ & 0.36758E+02_JPRB,0.28917E+02_JPRB,0.26804E+02_JPRB,0.25803E+02_JPRB,0.31396E+02_JPRB /)  
+KB(:, 2,28,15) = (/ &
+ & 0.35910E+02_JPRB,0.28037E+02_JPRB,0.25842E+02_JPRB,0.25051E+02_JPRB,0.30739E+02_JPRB /)  
+KB(:, 3,28,15) = (/ &
+ & 0.35033E+02_JPRB,0.27165E+02_JPRB,0.24925E+02_JPRB,0.24304E+02_JPRB,0.30070E+02_JPRB /)  
+KB(:, 4,28,15) = (/ &
+ & 0.34125E+02_JPRB,0.26307E+02_JPRB,0.24049E+02_JPRB,0.23563E+02_JPRB,0.29393E+02_JPRB /)  
+KB(:, 5,28,15) = (/ &
+ & 0.33188E+02_JPRB,0.25468E+02_JPRB,0.23210E+02_JPRB,0.22829E+02_JPRB,0.28695E+02_JPRB /)  
+KB(:, 1,29,15) = (/ &
+ & 0.36829E+02_JPRB,0.28926E+02_JPRB,0.26766E+02_JPRB,0.25785E+02_JPRB,0.31393E+02_JPRB /)  
+KB(:, 2,29,15) = (/ &
+ & 0.35949E+02_JPRB,0.28025E+02_JPRB,0.25792E+02_JPRB,0.25019E+02_JPRB,0.30723E+02_JPRB /)  
+KB(:, 3,29,15) = (/ &
+ & 0.35045E+02_JPRB,0.27141E+02_JPRB,0.24868E+02_JPRB,0.24260E+02_JPRB,0.30042E+02_JPRB /)  
+KB(:, 4,29,15) = (/ &
+ & 0.34114E+02_JPRB,0.26272E+02_JPRB,0.23986E+02_JPRB,0.23509E+02_JPRB,0.29353E+02_JPRB /)  
+KB(:, 5,29,15) = (/ &
+ & 0.33154E+02_JPRB,0.25419E+02_JPRB,0.23142E+02_JPRB,0.22765E+02_JPRB,0.28643E+02_JPRB /)  
+KB(:, 1,30,15) = (/ &
+ & 0.36836E+02_JPRB,0.28884E+02_JPRB,0.26681E+02_JPRB,0.25729E+02_JPRB,0.31353E+02_JPRB /)  
+KB(:, 2,30,15) = (/ &
+ & 0.35935E+02_JPRB,0.27972E+02_JPRB,0.25704E+02_JPRB,0.24955E+02_JPRB,0.30675E+02_JPRB /)  
+KB(:, 3,30,15) = (/ &
+ & 0.35002E+02_JPRB,0.27075E+02_JPRB,0.24775E+02_JPRB,0.24184E+02_JPRB,0.29984E+02_JPRB /)  
+KB(:, 4,30,15) = (/ &
+ & 0.34050E+02_JPRB,0.26196E+02_JPRB,0.23891E+02_JPRB,0.23427E+02_JPRB,0.29283E+02_JPRB /)  
+KB(:, 5,30,15) = (/ &
+ & 0.33076E+02_JPRB,0.25337E+02_JPRB,0.23046E+02_JPRB,0.22676E+02_JPRB,0.28566E+02_JPRB /)  
+KB(:, 1,31,15) = (/ &
+ & 0.36791E+02_JPRB,0.28797E+02_JPRB,0.26557E+02_JPRB,0.25640E+02_JPRB,0.31284E+02_JPRB /)  
+KB(:, 2,31,15) = (/ &
+ & 0.35869E+02_JPRB,0.27877E+02_JPRB,0.25582E+02_JPRB,0.24857E+02_JPRB,0.30596E+02_JPRB /)  
+KB(:, 3,31,15) = (/ &
+ & 0.34914E+02_JPRB,0.26971E+02_JPRB,0.24653E+02_JPRB,0.24083E+02_JPRB,0.29901E+02_JPRB /)  
+KB(:, 4,31,15) = (/ &
+ & 0.33941E+02_JPRB,0.26084E+02_JPRB,0.23767E+02_JPRB,0.23319E+02_JPRB,0.29185E+02_JPRB /)  
+KB(:, 5,31,15) = (/ &
+ & 0.32958E+02_JPRB,0.25224E+02_JPRB,0.22924E+02_JPRB,0.22563E+02_JPRB,0.28464E+02_JPRB /)  
+KB(:, 1,32,15) = (/ &
+ & 0.36704E+02_JPRB,0.28676E+02_JPRB,0.26402E+02_JPRB,0.25521E+02_JPRB,0.31186E+02_JPRB /)  
+KB(:, 2,32,15) = (/ &
+ & 0.35759E+02_JPRB,0.27748E+02_JPRB,0.25429E+02_JPRB,0.24734E+02_JPRB,0.30492E+02_JPRB /)  
+KB(:, 3,32,15) = (/ &
+ & 0.34789E+02_JPRB,0.26839E+02_JPRB,0.24504E+02_JPRB,0.23956E+02_JPRB,0.29792E+02_JPRB /)  
+KB(:, 4,32,15) = (/ &
+ & 0.33799E+02_JPRB,0.25947E+02_JPRB,0.23622E+02_JPRB,0.23189E+02_JPRB,0.29067E+02_JPRB /)  
+KB(:, 5,32,15) = (/ &
+ & 0.32807E+02_JPRB,0.25086E+02_JPRB,0.22780E+02_JPRB,0.22431E+02_JPRB,0.28343E+02_JPRB /)  
+KB(:, 1,33,15) = (/ &
+ & 0.36581E+02_JPRB,0.28529E+02_JPRB,0.26229E+02_JPRB,0.25386E+02_JPRB,0.31076E+02_JPRB /)  
+KB(:, 2,33,15) = (/ &
+ & 0.35618E+02_JPRB,0.27597E+02_JPRB,0.25258E+02_JPRB,0.24592E+02_JPRB,0.30373E+02_JPRB /)  
+KB(:, 3,33,15) = (/ &
+ & 0.34634E+02_JPRB,0.26685E+02_JPRB,0.24337E+02_JPRB,0.23815E+02_JPRB,0.29666E+02_JPRB /)  
+KB(:, 4,33,15) = (/ &
+ & 0.33632E+02_JPRB,0.25791E+02_JPRB,0.23459E+02_JPRB,0.23042E+02_JPRB,0.28931E+02_JPRB /)  
+KB(:, 5,33,15) = (/ &
+ & 0.32632E+02_JPRB,0.24931E+02_JPRB,0.22622E+02_JPRB,0.22288E+02_JPRB,0.28210E+02_JPRB /)  
+KB(:, 1,34,15) = (/ &
+ & 0.36458E+02_JPRB,0.28392E+02_JPRB,0.26072E+02_JPRB,0.25264E+02_JPRB,0.30972E+02_JPRB /)  
+KB(:, 2,34,15) = (/ &
+ & 0.35483E+02_JPRB,0.27459E+02_JPRB,0.25106E+02_JPRB,0.24467E+02_JPRB,0.30265E+02_JPRB /)  
+KB(:, 3,34,15) = (/ &
+ & 0.34486E+02_JPRB,0.26542E+02_JPRB,0.24189E+02_JPRB,0.23688E+02_JPRB,0.29550E+02_JPRB /)  
+KB(:, 4,34,15) = (/ &
+ & 0.33480E+02_JPRB,0.25653E+02_JPRB,0.23315E+02_JPRB,0.22913E+02_JPRB,0.28811E+02_JPRB /)  
+KB(:, 5,34,15) = (/ &
+ & 0.32478E+02_JPRB,0.24793E+02_JPRB,0.22484E+02_JPRB,0.22163E+02_JPRB,0.28094E+02_JPRB /)  
+KB(:, 1,35,15) = (/ &
+ & 0.36414E+02_JPRB,0.28334E+02_JPRB,0.25999E+02_JPRB,0.25206E+02_JPRB,0.30923E+02_JPRB /)  
+KB(:, 2,35,15) = (/ &
+ & 0.35425E+02_JPRB,0.27395E+02_JPRB,0.25033E+02_JPRB,0.24406E+02_JPRB,0.30215E+02_JPRB /)  
+KB(:, 3,35,15) = (/ &
+ & 0.34420E+02_JPRB,0.26476E+02_JPRB,0.24117E+02_JPRB,0.23624E+02_JPRB,0.29493E+02_JPRB /)  
+KB(:, 4,35,15) = (/ &
+ & 0.33407E+02_JPRB,0.25585E+02_JPRB,0.23243E+02_JPRB,0.22849E+02_JPRB,0.28753E+02_JPRB /)  
+KB(:, 5,35,15) = (/ &
+ & 0.32403E+02_JPRB,0.24726E+02_JPRB,0.22415E+02_JPRB,0.22101E+02_JPRB,0.28034E+02_JPRB /)  
+KB(:, 1,36,15) = (/ &
+ & 0.36456E+02_JPRB,0.28365E+02_JPRB,0.26023E+02_JPRB,0.25227E+02_JPRB,0.30947E+02_JPRB /)  
+KB(:, 2,36,15) = (/ &
+ & 0.35465E+02_JPRB,0.27424E+02_JPRB,0.25054E+02_JPRB,0.24425E+02_JPRB,0.30235E+02_JPRB /)  
+KB(:, 3,36,15) = (/ &
+ & 0.34451E+02_JPRB,0.26498E+02_JPRB,0.24134E+02_JPRB,0.23640E+02_JPRB,0.29510E+02_JPRB /)  
+KB(:, 4,36,15) = (/ &
+ & 0.33436E+02_JPRB,0.25606E+02_JPRB,0.23259E+02_JPRB,0.22862E+02_JPRB,0.28768E+02_JPRB /)  
+KB(:, 5,36,15) = (/ &
+ & 0.32427E+02_JPRB,0.24743E+02_JPRB,0.22427E+02_JPRB,0.22112E+02_JPRB,0.28048E+02_JPRB /)  
+KB(:, 1,37,15) = (/ &
+ & 0.36638E+02_JPRB,0.28533E+02_JPRB,0.26191E+02_JPRB,0.25363E+02_JPRB,0.31069E+02_JPRB /)  
+KB(:, 2,37,15) = (/ &
+ & 0.35645E+02_JPRB,0.27585E+02_JPRB,0.25212E+02_JPRB,0.24557E+02_JPRB,0.30356E+02_JPRB /)  
+KB(:, 3,37,15) = (/ &
+ & 0.34632E+02_JPRB,0.26655E+02_JPRB,0.24283E+02_JPRB,0.23768E+02_JPRB,0.29633E+02_JPRB /)  
+KB(:, 4,37,15) = (/ &
+ & 0.33611E+02_JPRB,0.25753E+02_JPRB,0.23398E+02_JPRB,0.22987E+02_JPRB,0.28889E+02_JPRB /)  
+KB(:, 5,37,15) = (/ &
+ & 0.32597E+02_JPRB,0.24885E+02_JPRB,0.22559E+02_JPRB,0.22230E+02_JPRB,0.28165E+02_JPRB /)  
+KB(:, 1,38,15) = (/ &
+ & 0.36818E+02_JPRB,0.28702E+02_JPRB,0.26363E+02_JPRB,0.25503E+02_JPRB,0.31194E+02_JPRB /)  
+KB(:, 2,38,15) = (/ &
+ & 0.35825E+02_JPRB,0.27749E+02_JPRB,0.25373E+02_JPRB,0.24692E+02_JPRB,0.30479E+02_JPRB /)  
+KB(:, 3,38,15) = (/ &
+ & 0.34809E+02_JPRB,0.26811E+02_JPRB,0.24434E+02_JPRB,0.23900E+02_JPRB,0.29757E+02_JPRB /)  
+KB(:, 4,38,15) = (/ &
+ & 0.33789E+02_JPRB,0.25904E+02_JPRB,0.23543E+02_JPRB,0.23114E+02_JPRB,0.29012E+02_JPRB /)  
+KB(:, 5,38,15) = (/ &
+ & 0.32767E+02_JPRB,0.25028E+02_JPRB,0.22694E+02_JPRB,0.22351E+02_JPRB,0.28285E+02_JPRB /)  
+KB(:, 1,39,15) = (/ &
+ & 0.36989E+02_JPRB,0.28865E+02_JPRB,0.26530E+02_JPRB,0.25636E+02_JPRB,0.31312E+02_JPRB /)  
+KB(:, 2,39,15) = (/ &
+ & 0.35999E+02_JPRB,0.27907E+02_JPRB,0.25529E+02_JPRB,0.24823E+02_JPRB,0.30597E+02_JPRB /)  
+KB(:, 3,39,15) = (/ &
+ & 0.34983E+02_JPRB,0.26966E+02_JPRB,0.24583E+02_JPRB,0.24027E+02_JPRB,0.29878E+02_JPRB /)  
+KB(:, 4,39,15) = (/ &
+ & 0.33957E+02_JPRB,0.26048E+02_JPRB,0.23683E+02_JPRB,0.23240E+02_JPRB,0.29134E+02_JPRB /)  
+KB(:, 5,39,15) = (/ &
+ & 0.32935E+02_JPRB,0.25169E+02_JPRB,0.22826E+02_JPRB,0.22468E+02_JPRB,0.28398E+02_JPRB /)  
+KB(:, 1,40,15) = (/ &
+ & 0.37254E+02_JPRB,0.29125E+02_JPRB,0.26800E+02_JPRB,0.25853E+02_JPRB,0.31502E+02_JPRB /)  
+KB(:, 2,40,15) = (/ &
+ & 0.36269E+02_JPRB,0.28159E+02_JPRB,0.25786E+02_JPRB,0.25036E+02_JPRB,0.30787E+02_JPRB /)  
+KB(:, 3,40,15) = (/ &
+ & 0.35253E+02_JPRB,0.27211E+02_JPRB,0.24825E+02_JPRB,0.24233E+02_JPRB,0.30069E+02_JPRB /)  
+KB(:, 4,40,15) = (/ &
+ & 0.34229E+02_JPRB,0.26287E+02_JPRB,0.23913E+02_JPRB,0.23442E+02_JPRB,0.29327E+02_JPRB /)  
+KB(:, 5,40,15) = (/ &
+ & 0.33202E+02_JPRB,0.25396E+02_JPRB,0.23042E+02_JPRB,0.22665E+02_JPRB,0.28587E+02_JPRB /)  
+KB(:, 1,41,15) = (/ &
+ & 0.37526E+02_JPRB,0.29396E+02_JPRB,0.27087E+02_JPRB,0.26081E+02_JPRB,0.31701E+02_JPRB /)  
+KB(:, 2,41,15) = (/ &
+ & 0.36546E+02_JPRB,0.28422E+02_JPRB,0.26056E+02_JPRB,0.25257E+02_JPRB,0.30982E+02_JPRB /)  
+KB(:, 3,41,15) = (/ &
+ & 0.35534E+02_JPRB,0.27467E+02_JPRB,0.25079E+02_JPRB,0.24448E+02_JPRB,0.30265E+02_JPRB /)  
+KB(:, 4,41,15) = (/ &
+ & 0.34510E+02_JPRB,0.26534E+02_JPRB,0.24153E+02_JPRB,0.23654E+02_JPRB,0.29528E+02_JPRB /)  
+KB(:, 5,41,15) = (/ &
+ & 0.33481E+02_JPRB,0.25633E+02_JPRB,0.23271E+02_JPRB,0.22872E+02_JPRB,0.28783E+02_JPRB /)  
+KB(:, 1,42,15) = (/ &
+ & 0.37791E+02_JPRB,0.29665E+02_JPRB,0.27375E+02_JPRB,0.26306E+02_JPRB,0.31897E+02_JPRB /)  
+KB(:, 2,42,15) = (/ &
+ & 0.36818E+02_JPRB,0.28682E+02_JPRB,0.26328E+02_JPRB,0.25479E+02_JPRB,0.31179E+02_JPRB /)  
+KB(:, 3,42,15) = (/ &
+ & 0.35814E+02_JPRB,0.27725E+02_JPRB,0.25336E+02_JPRB,0.24663E+02_JPRB,0.30459E+02_JPRB /)  
+KB(:, 4,42,15) = (/ &
+ & 0.34792E+02_JPRB,0.26784E+02_JPRB,0.24397E+02_JPRB,0.23867E+02_JPRB,0.29730E+02_JPRB /)  
+KB(:, 5,42,15) = (/ &
+ & 0.33761E+02_JPRB,0.25873E+02_JPRB,0.23504E+02_JPRB,0.23079E+02_JPRB,0.28983E+02_JPRB /)  
+KB(:, 1,43,15) = (/ &
+ & 0.38102E+02_JPRB,0.29987E+02_JPRB,0.27726E+02_JPRB,0.26579E+02_JPRB,0.32132E+02_JPRB /)  
+KB(:, 2,43,15) = (/ &
+ & 0.37142E+02_JPRB,0.29000E+02_JPRB,0.26660E+02_JPRB,0.25743E+02_JPRB,0.31410E+02_JPRB /)  
+KB(:, 3,43,15) = (/ &
+ & 0.36146E+02_JPRB,0.28034E+02_JPRB,0.25651E+02_JPRB,0.24927E+02_JPRB,0.30694E+02_JPRB /)  
+KB(:, 4,43,15) = (/ &
+ & 0.35125E+02_JPRB,0.27087E+02_JPRB,0.24694E+02_JPRB,0.24121E+02_JPRB,0.29968E+02_JPRB /)  
+KB(:, 5,43,15) = (/ &
+ & 0.34093E+02_JPRB,0.26161E+02_JPRB,0.23786E+02_JPRB,0.23330E+02_JPRB,0.29223E+02_JPRB /)  
+KB(:, 1,44,15) = (/ &
+ & 0.38433E+02_JPRB,0.30339E+02_JPRB,0.28106E+02_JPRB,0.26874E+02_JPRB,0.32381E+02_JPRB /)  
+KB(:, 2,44,15) = (/ &
+ & 0.37485E+02_JPRB,0.29344E+02_JPRB,0.27023E+02_JPRB,0.26033E+02_JPRB,0.31664E+02_JPRB /)  
+KB(:, 3,44,15) = (/ &
+ & 0.36497E+02_JPRB,0.28368E+02_JPRB,0.25996E+02_JPRB,0.25211E+02_JPRB,0.30945E+02_JPRB /)  
+KB(:, 4,44,15) = (/ &
+ & 0.35483E+02_JPRB,0.27414E+02_JPRB,0.25019E+02_JPRB,0.24397E+02_JPRB,0.30221E+02_JPRB /)  
+KB(:, 5,44,15) = (/ &
+ & 0.34454E+02_JPRB,0.26480E+02_JPRB,0.24095E+02_JPRB,0.23603E+02_JPRB,0.29482E+02_JPRB /)  
+KB(:, 1,45,15) = (/ &
+ & 0.38755E+02_JPRB,0.30690E+02_JPRB,0.28491E+02_JPRB,0.27169E+02_JPRB,0.32624E+02_JPRB /)  
+KB(:, 2,45,15) = (/ &
+ & 0.37819E+02_JPRB,0.29686E+02_JPRB,0.27393E+02_JPRB,0.26324E+02_JPRB,0.31916E+02_JPRB /)  
+KB(:, 3,45,15) = (/ &
+ & 0.36842E+02_JPRB,0.28700E+02_JPRB,0.26343E+02_JPRB,0.25494E+02_JPRB,0.31195E+02_JPRB /)  
+KB(:, 4,45,15) = (/ &
+ & 0.35840E+02_JPRB,0.27743E+02_JPRB,0.25350E+02_JPRB,0.24674E+02_JPRB,0.30470E+02_JPRB /)  
+KB(:, 5,45,15) = (/ &
+ & 0.34814E+02_JPRB,0.26800E+02_JPRB,0.24408E+02_JPRB,0.23874E+02_JPRB,0.29739E+02_JPRB /)  
+KB(:, 1,46,15) = (/ &
+ & 0.39090E+02_JPRB,0.31065E+02_JPRB,0.28908E+02_JPRB,0.27486E+02_JPRB,0.32877E+02_JPRB /)  
+KB(:, 2,46,15) = (/ &
+ & 0.38170E+02_JPRB,0.30050E+02_JPRB,0.27790E+02_JPRB,0.26631E+02_JPRB,0.32180E+02_JPRB /)  
+KB(:, 3,46,15) = (/ &
+ & 0.37208E+02_JPRB,0.29060E+02_JPRB,0.26719E+02_JPRB,0.25793E+02_JPRB,0.31457E+02_JPRB /)  
+KB(:, 4,46,15) = (/ &
+ & 0.36211E+02_JPRB,0.28091E+02_JPRB,0.25705E+02_JPRB,0.24972E+02_JPRB,0.30735E+02_JPRB /)  
+KB(:, 5,46,15) = (/ &
+ & 0.35190E+02_JPRB,0.27143E+02_JPRB,0.24746E+02_JPRB,0.24165E+02_JPRB,0.30011E+02_JPRB /)  
+KB(:, 1,47,15) = (/ &
+ & 0.39451E+02_JPRB,0.31490E+02_JPRB,0.29378E+02_JPRB,0.27842E+02_JPRB,0.33145E+02_JPRB /)  
+KB(:, 2,47,15) = (/ &
+ & 0.38554E+02_JPRB,0.30463E+02_JPRB,0.28238E+02_JPRB,0.26977E+02_JPRB,0.32470E+02_JPRB /)  
+KB(:, 3,47,15) = (/ &
+ & 0.37608E+02_JPRB,0.29464E+02_JPRB,0.27149E+02_JPRB,0.26134E+02_JPRB,0.31753E+02_JPRB /)  
+KB(:, 4,47,15) = (/ &
+ & 0.36624E+02_JPRB,0.28485E+02_JPRB,0.26114E+02_JPRB,0.25307E+02_JPRB,0.31030E+02_JPRB /)  
+KB(:, 5,47,15) = (/ &
+ & 0.35612E+02_JPRB,0.27529E+02_JPRB,0.25131E+02_JPRB,0.24491E+02_JPRB,0.30307E+02_JPRB /)  
+KB(:, 1,48,15) = (/ &
+ & 0.39789E+02_JPRB,0.31912E+02_JPRB,0.29855E+02_JPRB,0.28207E+02_JPRB,0.33402E+02_JPRB /)  
+KB(:, 2,48,15) = (/ &
+ & 0.38929E+02_JPRB,0.30877E+02_JPRB,0.28697E+02_JPRB,0.27328E+02_JPRB,0.32755E+02_JPRB /)  
+KB(:, 3,48,15) = (/ &
+ & 0.38000E+02_JPRB,0.29868E+02_JPRB,0.27588E+02_JPRB,0.26477E+02_JPRB,0.32050E+02_JPRB /)  
+KB(:, 4,48,15) = (/ &
+ & 0.37030E+02_JPRB,0.28879E+02_JPRB,0.26527E+02_JPRB,0.25639E+02_JPRB,0.31322E+02_JPRB /)  
+KB(:, 5,48,15) = (/ &
+ & 0.36027E+02_JPRB,0.27916E+02_JPRB,0.25523E+02_JPRB,0.24819E+02_JPRB,0.30601E+02_JPRB /)  
+KB(:, 1,49,15) = (/ &
+ & 0.40116E+02_JPRB,0.32336E+02_JPRB,0.30332E+02_JPRB,0.28574E+02_JPRB,0.33637E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART36',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,49,15) = (/ &
+ & 0.39295E+02_JPRB,0.31299E+02_JPRB,0.29164E+02_JPRB,0.27682E+02_JPRB,0.33028E+02_JPRB /)  
+KB(:, 3,49,15) = (/ &
+ & 0.38385E+02_JPRB,0.30275E+02_JPRB,0.28033E+02_JPRB,0.26821E+02_JPRB,0.32341E+02_JPRB /)  
+KB(:, 4,49,15) = (/ &
+ & 0.37432E+02_JPRB,0.29281E+02_JPRB,0.26949E+02_JPRB,0.25975E+02_JPRB,0.31615E+02_JPRB /)  
+KB(:, 5,49,15) = (/ &
+ & 0.36440E+02_JPRB,0.28306E+02_JPRB,0.25923E+02_JPRB,0.25151E+02_JPRB,0.30893E+02_JPRB /)  
+KB(:, 1,50,15) = (/ &
+ & 0.40414E+02_JPRB,0.32736E+02_JPRB,0.30783E+02_JPRB,0.28924E+02_JPRB,0.33845E+02_JPRB /)  
+KB(:, 2,50,15) = (/ &
+ & 0.39619E+02_JPRB,0.31694E+02_JPRB,0.29608E+02_JPRB,0.28020E+02_JPRB,0.33276E+02_JPRB /)  
+KB(:, 3,50,15) = (/ &
+ & 0.38737E+02_JPRB,0.30661E+02_JPRB,0.28456E+02_JPRB,0.27146E+02_JPRB,0.32609E+02_JPRB /)  
+KB(:, 4,50,15) = (/ &
+ & 0.37800E+02_JPRB,0.29658E+02_JPRB,0.27356E+02_JPRB,0.26296E+02_JPRB,0.31894E+02_JPRB /)  
+KB(:, 5,50,15) = (/ &
+ & 0.36822E+02_JPRB,0.28673E+02_JPRB,0.26306E+02_JPRB,0.25463E+02_JPRB,0.31168E+02_JPRB /)  
+KB(:, 1,51,15) = (/ &
+ & 0.40689E+02_JPRB,0.33123E+02_JPRB,0.31211E+02_JPRB,0.29252E+02_JPRB,0.34023E+02_JPRB /)  
+KB(:, 2,51,15) = (/ &
+ & 0.39919E+02_JPRB,0.32076E+02_JPRB,0.30039E+02_JPRB,0.28350E+02_JPRB,0.33499E+02_JPRB /)  
+KB(:, 3,51,15) = (/ &
+ & 0.39075E+02_JPRB,0.31039E+02_JPRB,0.28875E+02_JPRB,0.27462E+02_JPRB,0.32860E+02_JPRB /)  
+KB(:, 4,51,15) = (/ &
+ & 0.38151E+02_JPRB,0.30023E+02_JPRB,0.27755E+02_JPRB,0.26605E+02_JPRB,0.32160E+02_JPRB /)  
+KB(:, 5,51,15) = (/ &
+ & 0.37189E+02_JPRB,0.29033E+02_JPRB,0.26685E+02_JPRB,0.25765E+02_JPRB,0.31432E+02_JPRB /)  
+KB(:, 1,52,15) = (/ &
+ & 0.40936E+02_JPRB,0.33510E+02_JPRB,0.31640E+02_JPRB,0.29576E+02_JPRB,0.34183E+02_JPRB /)  
+KB(:, 2,52,15) = (/ &
+ & 0.40210E+02_JPRB,0.32459E+02_JPRB,0.30471E+02_JPRB,0.28683E+02_JPRB,0.33706E+02_JPRB /)  
+KB(:, 3,52,15) = (/ &
+ & 0.39397E+02_JPRB,0.31418E+02_JPRB,0.29296E+02_JPRB,0.27784E+02_JPRB,0.33107E+02_JPRB /)  
+KB(:, 4,52,15) = (/ &
+ & 0.38495E+02_JPRB,0.30394E+02_JPRB,0.28160E+02_JPRB,0.26919E+02_JPRB,0.32422E+02_JPRB /)  
+KB(:, 5,52,15) = (/ &
+ & 0.37548E+02_JPRB,0.29397E+02_JPRB,0.27070E+02_JPRB,0.26070E+02_JPRB,0.31697E+02_JPRB /)  
+KB(:, 1,53,15) = (/ &
+ & 0.41161E+02_JPRB,0.33900E+02_JPRB,0.32075E+02_JPRB,0.29895E+02_JPRB,0.34325E+02_JPRB /)  
+KB(:, 2,53,15) = (/ &
+ & 0.40494E+02_JPRB,0.32844E+02_JPRB,0.30901E+02_JPRB,0.29015E+02_JPRB,0.33898E+02_JPRB /)  
+KB(:, 3,53,15) = (/ &
+ & 0.39709E+02_JPRB,0.31802E+02_JPRB,0.29726E+02_JPRB,0.28110E+02_JPRB,0.33339E+02_JPRB /)  
+KB(:, 4,53,15) = (/ &
+ & 0.38833E+02_JPRB,0.30766E+02_JPRB,0.28570E+02_JPRB,0.27234E+02_JPRB,0.32680E+02_JPRB /)  
+KB(:, 5,53,15) = (/ &
+ & 0.37902E+02_JPRB,0.29761E+02_JPRB,0.27465E+02_JPRB,0.26380E+02_JPRB,0.31966E+02_JPRB /)  
+KB(:, 1,54,15) = (/ &
+ & 0.41350E+02_JPRB,0.34259E+02_JPRB,0.32468E+02_JPRB,0.30182E+02_JPRB,0.34433E+02_JPRB /)  
+KB(:, 2,54,15) = (/ &
+ & 0.40740E+02_JPRB,0.33197E+02_JPRB,0.31292E+02_JPRB,0.29316E+02_JPRB,0.34057E+02_JPRB /)  
+KB(:, 3,54,15) = (/ &
+ & 0.39978E+02_JPRB,0.32149E+02_JPRB,0.30122E+02_JPRB,0.28414E+02_JPRB,0.33542E+02_JPRB /)  
+KB(:, 4,54,15) = (/ &
+ & 0.39139E+02_JPRB,0.31111E+02_JPRB,0.28955E+02_JPRB,0.27524E+02_JPRB,0.32911E+02_JPRB /)  
+KB(:, 5,54,15) = (/ &
+ & 0.38222E+02_JPRB,0.30095E+02_JPRB,0.27832E+02_JPRB,0.26664E+02_JPRB,0.32209E+02_JPRB /)  
+KB(:, 1,55,15) = (/ &
+ & 0.41508E+02_JPRB,0.34608E+02_JPRB,0.32849E+02_JPRB,0.30454E+02_JPRB,0.34522E+02_JPRB /)  
+KB(:, 2,55,15) = (/ &
+ & 0.40955E+02_JPRB,0.33539E+02_JPRB,0.31671E+02_JPRB,0.29598E+02_JPRB,0.34194E+02_JPRB /)  
+KB(:, 3,55,15) = (/ &
+ & 0.40232E+02_JPRB,0.32485E+02_JPRB,0.30501E+02_JPRB,0.28707E+02_JPRB,0.33722E+02_JPRB /)  
+KB(:, 4,55,15) = (/ &
+ & 0.39425E+02_JPRB,0.31448E+02_JPRB,0.29326E+02_JPRB,0.27805E+02_JPRB,0.33122E+02_JPRB /)  
+KB(:, 5,55,15) = (/ &
+ & 0.38521E+02_JPRB,0.30419E+02_JPRB,0.28187E+02_JPRB,0.26941E+02_JPRB,0.32441E+02_JPRB /)  
+KB(:, 1,56,15) = (/ &
+ & 0.41645E+02_JPRB,0.34957E+02_JPRB,0.33233E+02_JPRB,0.30720E+02_JPRB,0.34599E+02_JPRB /)  
+KB(:, 2,56,15) = (/ &
+ & 0.41152E+02_JPRB,0.33880E+02_JPRB,0.32050E+02_JPRB,0.29874E+02_JPRB,0.34316E+02_JPRB /)  
+KB(:, 3,56,15) = (/ &
+ & 0.40482E+02_JPRB,0.32823E+02_JPRB,0.30877E+02_JPRB,0.28999E+02_JPRB,0.33890E+02_JPRB /)  
+KB(:, 4,56,15) = (/ &
+ & 0.39696E+02_JPRB,0.31783E+02_JPRB,0.29704E+02_JPRB,0.28093E+02_JPRB,0.33329E+02_JPRB /)  
+KB(:, 5,56,15) = (/ &
+ & 0.38819E+02_JPRB,0.30747E+02_JPRB,0.28547E+02_JPRB,0.27216E+02_JPRB,0.32666E+02_JPRB /)  
+KB(:, 1,57,15) = (/ &
+ & 0.41772E+02_JPRB,0.35313E+02_JPRB,0.33621E+02_JPRB,0.30980E+02_JPRB,0.34653E+02_JPRB /)  
+KB(:, 2,57,15) = (/ &
+ & 0.41335E+02_JPRB,0.34223E+02_JPRB,0.32428E+02_JPRB,0.30152E+02_JPRB,0.34423E+02_JPRB /)  
+KB(:, 3,57,15) = (/ &
+ & 0.40717E+02_JPRB,0.33158E+02_JPRB,0.31249E+02_JPRB,0.29283E+02_JPRB,0.34041E+02_JPRB /)  
+KB(:, 4,57,15) = (/ &
+ & 0.39952E+02_JPRB,0.32113E+02_JPRB,0.30080E+02_JPRB,0.28382E+02_JPRB,0.33523E+02_JPRB /)  
+KB(:, 5,57,15) = (/ &
+ & 0.39110E+02_JPRB,0.31075E+02_JPRB,0.28913E+02_JPRB,0.27492E+02_JPRB,0.32886E+02_JPRB /)  
+KB(:, 1,58,15) = (/ &
+ & 0.41872E+02_JPRB,0.35648E+02_JPRB,0.33990E+02_JPRB,0.31215E+02_JPRB,0.34668E+02_JPRB /)  
+KB(:, 2,58,15) = (/ &
+ & 0.41486E+02_JPRB,0.34551E+02_JPRB,0.32786E+02_JPRB,0.30408E+02_JPRB,0.34507E+02_JPRB /)  
+KB(:, 3,58,15) = (/ &
+ & 0.40923E+02_JPRB,0.33481E+02_JPRB,0.31606E+02_JPRB,0.29553E+02_JPRB,0.34175E+02_JPRB /)  
+KB(:, 4,58,15) = (/ &
+ & 0.40193E+02_JPRB,0.32431E+02_JPRB,0.30438E+02_JPRB,0.28657E+02_JPRB,0.33692E+02_JPRB /)  
+KB(:, 5,58,15) = (/ &
+ & 0.39381E+02_JPRB,0.31393E+02_JPRB,0.29263E+02_JPRB,0.27758E+02_JPRB,0.33088E+02_JPRB /)  
+KB(:, 1,59,15) = (/ &
+ & 0.41905E+02_JPRB,0.35780E+02_JPRB,0.34140E+02_JPRB,0.31306E+02_JPRB,0.34668E+02_JPRB /)  
+KB(:, 2,59,15) = (/ &
+ & 0.41541E+02_JPRB,0.34683E+02_JPRB,0.32931E+02_JPRB,0.30509E+02_JPRB,0.34539E+02_JPRB /)  
+KB(:, 3,59,15) = (/ &
+ & 0.41000E+02_JPRB,0.33610E+02_JPRB,0.31751E+02_JPRB,0.29658E+02_JPRB,0.34225E+02_JPRB /)  
+KB(:, 4,59,15) = (/ &
+ & 0.40289E+02_JPRB,0.32559E+02_JPRB,0.30582E+02_JPRB,0.28769E+02_JPRB,0.33760E+02_JPRB /)  
+KB(:, 5,59,15) = (/ &
+ & 0.39484E+02_JPRB,0.31518E+02_JPRB,0.29405E+02_JPRB,0.27867E+02_JPRB,0.33169E+02_JPRB /)  
+KB(:, 1,13,16) = (/ &
+ & 0.44218E+02_JPRB,0.33168E+02_JPRB,0.27605E+02_JPRB,0.40761E+02_JPRB,0.54348E+02_JPRB /)  
+KB(:, 2,13,16) = (/ &
+ & 0.43915E+02_JPRB,0.32941E+02_JPRB,0.26738E+02_JPRB,0.39342E+02_JPRB,0.52457E+02_JPRB /)  
+KB(:, 3,13,16) = (/ &
+ & 0.43491E+02_JPRB,0.32624E+02_JPRB,0.25861E+02_JPRB,0.38022E+02_JPRB,0.50696E+02_JPRB /)  
+KB(:, 4,13,16) = (/ &
+ & 0.42952E+02_JPRB,0.32220E+02_JPRB,0.25010E+02_JPRB,0.36713E+02_JPRB,0.48951E+02_JPRB /)  
+KB(:, 5,13,16) = (/ &
+ & 0.42305E+02_JPRB,0.31735E+02_JPRB,0.24184E+02_JPRB,0.35417E+02_JPRB,0.47222E+02_JPRB /)  
+KB(:, 1,14,16) = (/ &
+ & 0.50640E+02_JPRB,0.37984E+02_JPRB,0.31138E+02_JPRB,0.45571E+02_JPRB,0.60761E+02_JPRB /)  
+KB(:, 2,14,16) = (/ &
+ & 0.50072E+02_JPRB,0.37558E+02_JPRB,0.30053E+02_JPRB,0.43809E+02_JPRB,0.58413E+02_JPRB /)  
+KB(:, 3,14,16) = (/ &
+ & 0.49384E+02_JPRB,0.37043E+02_JPRB,0.28981E+02_JPRB,0.42162E+02_JPRB,0.56216E+02_JPRB /)  
+KB(:, 4,14,16) = (/ &
+ & 0.48531E+02_JPRB,0.36404E+02_JPRB,0.27924E+02_JPRB,0.40555E+02_JPRB,0.54074E+02_JPRB /)  
+KB(:, 5,14,16) = (/ &
+ & 0.47588E+02_JPRB,0.35696E+02_JPRB,0.26896E+02_JPRB,0.38961E+02_JPRB,0.51948E+02_JPRB /)  
+KB(:, 1,15,16) = (/ &
+ & 0.57280E+02_JPRB,0.42964E+02_JPRB,0.34740E+02_JPRB,0.50323E+02_JPRB,0.67098E+02_JPRB /)  
+KB(:, 2,15,16) = (/ &
+ & 0.56367E+02_JPRB,0.42280E+02_JPRB,0.33407E+02_JPRB,0.48191E+02_JPRB,0.64255E+02_JPRB /)  
+KB(:, 3,15,16) = (/ &
+ & 0.55318E+02_JPRB,0.41493E+02_JPRB,0.32092E+02_JPRB,0.46141E+02_JPRB,0.61520E+02_JPRB /)  
+KB(:, 4,15,16) = (/ &
+ & 0.54108E+02_JPRB,0.40586E+02_JPRB,0.30808E+02_JPRB,0.44198E+02_JPRB,0.58930E+02_JPRB /)  
+KB(:, 5,15,16) = (/ &
+ & 0.52826E+02_JPRB,0.39625E+02_JPRB,0.29570E+02_JPRB,0.42303E+02_JPRB,0.56404E+02_JPRB /)  
+KB(:, 1,16,16) = (/ &
+ & 0.63967E+02_JPRB,0.47979E+02_JPRB,0.38312E+02_JPRB,0.54909E+02_JPRB,0.73213E+02_JPRB /)  
+KB(:, 2,16,16) = (/ &
+ & 0.62626E+02_JPRB,0.46973E+02_JPRB,0.36695E+02_JPRB,0.52345E+02_JPRB,0.69794E+02_JPRB /)  
+KB(:, 3,16,16) = (/ &
+ & 0.61112E+02_JPRB,0.45838E+02_JPRB,0.35123E+02_JPRB,0.49904E+02_JPRB,0.66539E+02_JPRB /)  
+KB(:, 4,16,16) = (/ &
+ & 0.59503E+02_JPRB,0.44632E+02_JPRB,0.33592E+02_JPRB,0.47568E+02_JPRB,0.63425E+02_JPRB /)  
+KB(:, 5,16,16) = (/ &
+ & 0.57855E+02_JPRB,0.43396E+02_JPRB,0.32125E+02_JPRB,0.45372E+02_JPRB,0.60497E+02_JPRB /)  
+KB(:, 1,17,16) = (/ &
+ & 0.70540E+02_JPRB,0.52908E+02_JPRB,0.41791E+02_JPRB,0.59184E+02_JPRB,0.78912E+02_JPRB /)  
+KB(:, 2,17,16) = (/ &
+ & 0.68668E+02_JPRB,0.51504E+02_JPRB,0.39850E+02_JPRB,0.56189E+02_JPRB,0.74919E+02_JPRB /)  
+KB(:, 3,17,16) = (/ &
+ & 0.66662E+02_JPRB,0.50000E+02_JPRB,0.37983E+02_JPRB,0.53339E+02_JPRB,0.71119E+02_JPRB /)  
+KB(:, 4,17,16) = (/ &
+ & 0.64633E+02_JPRB,0.48479E+02_JPRB,0.36199E+02_JPRB,0.50655E+02_JPRB,0.67541E+02_JPRB /)  
+KB(:, 5,17,16) = (/ &
+ & 0.62569E+02_JPRB,0.46932E+02_JPRB,0.34500E+02_JPRB,0.48144E+02_JPRB,0.64192E+02_JPRB /)  
+KB(:, 1,18,16) = (/ &
+ & 0.76762E+02_JPRB,0.57574E+02_JPRB,0.45062E+02_JPRB,0.63079E+02_JPRB,0.84105E+02_JPRB /)  
+KB(:, 2,18,16) = (/ &
+ & 0.74320E+02_JPRB,0.55743E+02_JPRB,0.42789E+02_JPRB,0.59653E+02_JPRB,0.79537E+02_JPRB /)  
+KB(:, 3,18,16) = (/ &
+ & 0.71820E+02_JPRB,0.53869E+02_JPRB,0.40630E+02_JPRB,0.56414E+02_JPRB,0.75219E+02_JPRB /)  
+KB(:, 4,18,16) = (/ &
+ & 0.69367E+02_JPRB,0.52029E+02_JPRB,0.38584E+02_JPRB,0.53391E+02_JPRB,0.71188E+02_JPRB /)  
+KB(:, 5,18,16) = (/ &
+ & 0.66895E+02_JPRB,0.50176E+02_JPRB,0.36663E+02_JPRB,0.50596E+02_JPRB,0.67461E+02_JPRB /)  
+KB(:, 1,19,16) = (/ &
+ & 0.82534E+02_JPRB,0.61903E+02_JPRB,0.48066E+02_JPRB,0.66533E+02_JPRB,0.88711E+02_JPRB /)  
+KB(:, 2,19,16) = (/ &
+ & 0.79500E+02_JPRB,0.59627E+02_JPRB,0.45463E+02_JPRB,0.62698E+02_JPRB,0.83597E+02_JPRB /)  
+KB(:, 3,19,16) = (/ &
+ & 0.76531E+02_JPRB,0.57402E+02_JPRB,0.43003E+02_JPRB,0.59107E+02_JPRB,0.78810E+02_JPRB /)  
+KB(:, 4,19,16) = (/ &
+ & 0.73621E+02_JPRB,0.55219E+02_JPRB,0.40714E+02_JPRB,0.55776E+02_JPRB,0.74368E+02_JPRB /)  
+KB(:, 5,19,16) = (/ &
+ & 0.70758E+02_JPRB,0.53072E+02_JPRB,0.38580E+02_JPRB,0.52720E+02_JPRB,0.70294E+02_JPRB /)  
+KB(:, 1,20,16) = (/ &
+ & 0.87685E+02_JPRB,0.65766E+02_JPRB,0.50694E+02_JPRB,0.69445E+02_JPRB,0.92594E+02_JPRB /)  
+KB(:, 2,20,16) = (/ &
+ & 0.84090E+02_JPRB,0.63070E+02_JPRB,0.47778E+02_JPRB,0.65259E+02_JPRB,0.87012E+02_JPRB /)  
+KB(:, 3,20,16) = (/ &
+ & 0.80661E+02_JPRB,0.60499E+02_JPRB,0.45053E+02_JPRB,0.61350E+02_JPRB,0.81800E+02_JPRB /)  
+KB(:, 4,20,16) = (/ &
+ & 0.77340E+02_JPRB,0.58008E+02_JPRB,0.42537E+02_JPRB,0.57756E+02_JPRB,0.77009E+02_JPRB /)  
+KB(:, 5,20,16) = (/ &
+ & 0.74079E+02_JPRB,0.55564E+02_JPRB,0.40201E+02_JPRB,0.54475E+02_JPRB,0.72633E+02_JPRB /)  
+KB(:, 1,21,16) = (/ &
+ & 0.92165E+02_JPRB,0.69126E+02_JPRB,0.52960E+02_JPRB,0.71872E+02_JPRB,0.95829E+02_JPRB /)  
+KB(:, 2,21,16) = (/ &
+ & 0.88084E+02_JPRB,0.66065E+02_JPRB,0.49750E+02_JPRB,0.67363E+02_JPRB,0.89818E+02_JPRB /)  
+KB(:, 3,21,16) = (/ &
+ & 0.84210E+02_JPRB,0.63159E+02_JPRB,0.46796E+02_JPRB,0.63194E+02_JPRB,0.84259E+02_JPRB /)  
+KB(:, 4,21,16) = (/ &
+ & 0.80508E+02_JPRB,0.60384E+02_JPRB,0.44071E+02_JPRB,0.59388E+02_JPRB,0.79185E+02_JPRB /)  
+KB(:, 5,21,16) = (/ &
+ & 0.76889E+02_JPRB,0.57670E+02_JPRB,0.41555E+02_JPRB,0.55904E+02_JPRB,0.74538E+02_JPRB /)  
+KB(:, 1,22,16) = (/ &
+ & 0.95696E+02_JPRB,0.71774E+02_JPRB,0.54631E+02_JPRB,0.73526E+02_JPRB,0.98034E+02_JPRB /)  
+KB(:, 2,22,16) = (/ &
+ & 0.91190E+02_JPRB,0.68395E+02_JPRB,0.51188E+02_JPRB,0.68768E+02_JPRB,0.91690E+02_JPRB /)  
+KB(:, 3,22,16) = (/ &
+ & 0.86939E+02_JPRB,0.65206E+02_JPRB,0.48040E+02_JPRB,0.64409E+02_JPRB,0.85879E+02_JPRB /)  
+KB(:, 4,22,16) = (/ &
+ & 0.82890E+02_JPRB,0.62171E+02_JPRB,0.45151E+02_JPRB,0.60441E+02_JPRB,0.80589E+02_JPRB /)  
+KB(:, 5,22,16) = (/ &
+ & 0.78983E+02_JPRB,0.59241E+02_JPRB,0.42494E+02_JPRB,0.56811E+02_JPRB,0.75748E+02_JPRB /)  
+KB(:, 1,23,16) = (/ &
+ & 0.98505E+02_JPRB,0.73881E+02_JPRB,0.55897E+02_JPRB,0.74690E+02_JPRB,0.99587E+02_JPRB /)  
+KB(:, 2,23,16) = (/ &
+ & 0.93651E+02_JPRB,0.70240E+02_JPRB,0.52277E+02_JPRB,0.69755E+02_JPRB,0.93007E+02_JPRB /)  
+KB(:, 3,23,16) = (/ &
+ & 0.89065E+02_JPRB,0.66801E+02_JPRB,0.48963E+02_JPRB,0.65256E+02_JPRB,0.87008E+02_JPRB /)  
+KB(:, 4,23,16) = (/ &
+ & 0.84725E+02_JPRB,0.63546E+02_JPRB,0.45949E+02_JPRB,0.61155E+02_JPRB,0.81540E+02_JPRB /)  
+KB(:, 5,23,16) = (/ &
+ & 0.80582E+02_JPRB,0.60440E+02_JPRB,0.43182E+02_JPRB,0.57417E+02_JPRB,0.76556E+02_JPRB /)  
+KB(:, 1,24,16) = (/ &
+ & 0.10064E+03_JPRB,0.75484E+02_JPRB,0.56783E+02_JPRB,0.75422E+02_JPRB,0.10056E+03_JPRB /)  
+KB(:, 2,24,16) = (/ &
+ & 0.95486E+02_JPRB,0.71616E+02_JPRB,0.53021E+02_JPRB,0.70355E+02_JPRB,0.93807E+02_JPRB /)  
+KB(:, 3,24,16) = (/ &
+ & 0.90630E+02_JPRB,0.67975E+02_JPRB,0.49592E+02_JPRB,0.65751E+02_JPRB,0.87668E+02_JPRB /)  
+KB(:, 4,24,16) = (/ &
+ & 0.86059E+02_JPRB,0.64548E+02_JPRB,0.46483E+02_JPRB,0.61565E+02_JPRB,0.82086E+02_JPRB /)  
+KB(:, 5,24,16) = (/ &
+ & 0.81718E+02_JPRB,0.61292E+02_JPRB,0.43631E+02_JPRB,0.57753E+02_JPRB,0.77003E+02_JPRB /)  
+KB(:, 1,25,16) = (/ &
+ & 0.10215E+03_JPRB,0.76618E+02_JPRB,0.57324E+02_JPRB,0.75759E+02_JPRB,0.10101E+03_JPRB /)  
+KB(:, 2,25,16) = (/ &
+ & 0.96743E+02_JPRB,0.72560E+02_JPRB,0.53446E+02_JPRB,0.70607E+02_JPRB,0.94143E+02_JPRB /)  
+KB(:, 3,25,16) = (/ &
+ & 0.91681E+02_JPRB,0.68763E+02_JPRB,0.49955E+02_JPRB,0.65940E+02_JPRB,0.87921E+02_JPRB /)  
+KB(:, 4,25,16) = (/ &
+ & 0.86919E+02_JPRB,0.65192E+02_JPRB,0.46773E+02_JPRB,0.61703E+02_JPRB,0.82270E+02_JPRB /)  
+KB(:, 5,25,16) = (/ &
+ & 0.82440E+02_JPRB,0.61834E+02_JPRB,0.43873E+02_JPRB,0.57842E+02_JPRB,0.77123E+02_JPRB /)  
+KB(:, 1,26,16) = (/ &
+ & 0.10303E+03_JPRB,0.77274E+02_JPRB,0.57519E+02_JPRB,0.75701E+02_JPRB,0.10093E+03_JPRB /)  
+KB(:, 2,26,16) = (/ &
+ & 0.97444E+02_JPRB,0.73085E+02_JPRB,0.53575E+02_JPRB,0.70525E+02_JPRB,0.94033E+02_JPRB /)  
+KB(:, 3,26,16) = (/ &
+ & 0.92222E+02_JPRB,0.69170E+02_JPRB,0.50048E+02_JPRB,0.65828E+02_JPRB,0.87771E+02_JPRB /)  
+KB(:, 4,26,16) = (/ &
+ & 0.87336E+02_JPRB,0.65505E+02_JPRB,0.46824E+02_JPRB,0.61566E+02_JPRB,0.82088E+02_JPRB /)  
+KB(:, 5,26,16) = (/ &
+ & 0.82771E+02_JPRB,0.62082E+02_JPRB,0.43909E+02_JPRB,0.57710E+02_JPRB,0.76947E+02_JPRB /)  
+KB(:, 1,27,16) = (/ &
+ & 0.10345E+03_JPRB,0.77590E+02_JPRB,0.57467E+02_JPRB,0.75392E+02_JPRB,0.10052E+03_JPRB /)  
+KB(:, 2,27,16) = (/ &
+ & 0.97739E+02_JPRB,0.73306E+02_JPRB,0.53511E+02_JPRB,0.70214E+02_JPRB,0.93619E+02_JPRB /)  
+KB(:, 3,27,16) = (/ &
+ & 0.92406E+02_JPRB,0.69307E+02_JPRB,0.49956E+02_JPRB,0.65525E+02_JPRB,0.87366E+02_JPRB /)  
+KB(:, 4,27,16) = (/ &
+ & 0.87439E+02_JPRB,0.65583E+02_JPRB,0.46715E+02_JPRB,0.61255E+02_JPRB,0.81674E+02_JPRB /)  
+KB(:, 5,27,16) = (/ &
+ & 0.82826E+02_JPRB,0.62123E+02_JPRB,0.43807E+02_JPRB,0.57432E+02_JPRB,0.76576E+02_JPRB /)  
+KB(:, 1,28,16) = (/ &
+ & 0.10350E+03_JPRB,0.77625E+02_JPRB,0.57222E+02_JPRB,0.74881E+02_JPRB,0.99841E+02_JPRB /)  
+KB(:, 2,28,16) = (/ &
+ & 0.97691E+02_JPRB,0.73271E+02_JPRB,0.53275E+02_JPRB,0.69730E+02_JPRB,0.92974E+02_JPRB /)  
+KB(:, 3,28,16) = (/ &
+ & 0.92289E+02_JPRB,0.69219E+02_JPRB,0.49719E+02_JPRB,0.65057E+02_JPRB,0.86743E+02_JPRB /)  
+KB(:, 4,28,16) = (/ &
+ & 0.87284E+02_JPRB,0.65466E+02_JPRB,0.46485E+02_JPRB,0.60817E+02_JPRB,0.81090E+02_JPRB /)  
+KB(:, 5,28,16) = (/ &
+ & 0.82640E+02_JPRB,0.61984E+02_JPRB,0.43588E+02_JPRB,0.57042E+02_JPRB,0.76055E+02_JPRB /)  
+KB(:, 1,29,16) = (/ &
+ & 0.10319E+03_JPRB,0.77394E+02_JPRB,0.56799E+02_JPRB,0.74179E+02_JPRB,0.98906E+02_JPRB /)  
+KB(:, 2,29,16) = (/ &
+ & 0.97340E+02_JPRB,0.73008E+02_JPRB,0.52885E+02_JPRB,0.69064E+02_JPRB,0.92086E+02_JPRB /)  
+KB(:, 3,29,16) = (/ &
+ & 0.91909E+02_JPRB,0.68935E+02_JPRB,0.49342E+02_JPRB,0.64439E+02_JPRB,0.85918E+02_JPRB /)  
+KB(:, 4,29,16) = (/ &
+ & 0.86890E+02_JPRB,0.65171E+02_JPRB,0.46144E+02_JPRB,0.60253E+02_JPRB,0.80337E+02_JPRB /)  
+KB(:, 5,29,16) = (/ &
+ & 0.82249E+02_JPRB,0.61690E+02_JPRB,0.43266E+02_JPRB,0.56539E+02_JPRB,0.75385E+02_JPRB /)  
+KB(:, 1,30,16) = (/ &
+ & 0.10264E+03_JPRB,0.76981E+02_JPRB,0.56267E+02_JPRB,0.73352E+02_JPRB,0.97803E+02_JPRB /)  
+KB(:, 2,30,16) = (/ &
+ & 0.96761E+02_JPRB,0.72573E+02_JPRB,0.52390E+02_JPRB,0.68302E+02_JPRB,0.91070E+02_JPRB /)  
+KB(:, 3,30,16) = (/ &
+ & 0.91349E+02_JPRB,0.68515E+02_JPRB,0.48877E+02_JPRB,0.63734E+02_JPRB,0.84978E+02_JPRB /)  
+KB(:, 4,30,16) = (/ &
+ & 0.86346E+02_JPRB,0.64763E+02_JPRB,0.45722E+02_JPRB,0.59615E+02_JPRB,0.79487E+02_JPRB /)  
+KB(:, 5,30,16) = (/ &
+ & 0.81701E+02_JPRB,0.61280E+02_JPRB,0.42874E+02_JPRB,0.55973E+02_JPRB,0.74631E+02_JPRB /)  
+KB(:, 1,31,16) = (/ &
+ & 0.10185E+03_JPRB,0.76389E+02_JPRB,0.55624E+02_JPRB,0.72410E+02_JPRB,0.96547E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART37',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,31,16) = (/ &
+ & 0.95999E+02_JPRB,0.72002E+02_JPRB,0.51796E+02_JPRB,0.67443E+02_JPRB,0.89924E+02_JPRB /)  
+KB(:, 3,31,16) = (/ &
+ & 0.90614E+02_JPRB,0.67963E+02_JPRB,0.48327E+02_JPRB,0.62938E+02_JPRB,0.83917E+02_JPRB /)  
+KB(:, 4,31,16) = (/ &
+ & 0.85645E+02_JPRB,0.64237E+02_JPRB,0.45228E+02_JPRB,0.58906E+02_JPRB,0.78542E+02_JPRB /)  
+KB(:, 5,31,16) = (/ &
+ & 0.81007E+02_JPRB,0.60759E+02_JPRB,0.42414E+02_JPRB,0.55328E+02_JPRB,0.73771E+02_JPRB /)  
+KB(:, 1,32,16) = (/ &
+ & 0.10089E+03_JPRB,0.75672E+02_JPRB,0.54904E+02_JPRB,0.71387E+02_JPRB,0.95183E+02_JPRB /)  
+KB(:, 2,32,16) = (/ &
+ & 0.95077E+02_JPRB,0.71310E+02_JPRB,0.51129E+02_JPRB,0.66501E+02_JPRB,0.88668E+02_JPRB /)  
+KB(:, 3,32,16) = (/ &
+ & 0.89743E+02_JPRB,0.67310E+02_JPRB,0.47720E+02_JPRB,0.62089E+02_JPRB,0.82785E+02_JPRB /)  
+KB(:, 4,32,16) = (/ &
+ & 0.84830E+02_JPRB,0.63626E+02_JPRB,0.44676E+02_JPRB,0.58147E+02_JPRB,0.77529E+02_JPRB /)  
+KB(:, 5,32,16) = (/ &
+ & 0.80208E+02_JPRB,0.60160E+02_JPRB,0.41909E+02_JPRB,0.54638E+02_JPRB,0.72851E+02_JPRB /)  
+KB(:, 1,33,16) = (/ &
+ & 0.99806E+02_JPRB,0.74857E+02_JPRB,0.54124E+02_JPRB,0.70307E+02_JPRB,0.93742E+02_JPRB /)  
+KB(:, 2,33,16) = (/ &
+ & 0.94060E+02_JPRB,0.70548E+02_JPRB,0.50418E+02_JPRB,0.65525E+02_JPRB,0.87366E+02_JPRB /)  
+KB(:, 3,33,16) = (/ &
+ & 0.88780E+02_JPRB,0.66588E+02_JPRB,0.47080E+02_JPRB,0.61195E+02_JPRB,0.81594E+02_JPRB /)  
+KB(:, 4,33,16) = (/ &
+ & 0.83926E+02_JPRB,0.62948E+02_JPRB,0.44091E+02_JPRB,0.57369E+02_JPRB,0.76493E+02_JPRB /)  
+KB(:, 5,33,16) = (/ &
+ & 0.79342E+02_JPRB,0.59511E+02_JPRB,0.41372E+02_JPRB,0.53910E+02_JPRB,0.71880E+02_JPRB /)  
+KB(:, 1,34,16) = (/ &
+ & 0.98842E+02_JPRB,0.74134E+02_JPRB,0.53446E+02_JPRB,0.69373E+02_JPRB,0.92498E+02_JPRB /)  
+KB(:, 2,34,16) = (/ &
+ & 0.93169E+02_JPRB,0.69879E+02_JPRB,0.49796E+02_JPRB,0.64672E+02_JPRB,0.86229E+02_JPRB /)  
+KB(:, 3,34,16) = (/ &
+ & 0.87940E+02_JPRB,0.65958E+02_JPRB,0.46525E+02_JPRB,0.60437E+02_JPRB,0.80583E+02_JPRB /)  
+KB(:, 4,34,16) = (/ &
+ & 0.83124E+02_JPRB,0.62347E+02_JPRB,0.43581E+02_JPRB,0.56689E+02_JPRB,0.75585E+02_JPRB /)  
+KB(:, 5,34,16) = (/ &
+ & 0.78566E+02_JPRB,0.58929E+02_JPRB,0.40900E+02_JPRB,0.53287E+02_JPRB,0.71049E+02_JPRB /)  
+KB(:, 1,35,16) = (/ &
+ & 0.98383E+02_JPRB,0.73790E+02_JPRB,0.53104E+02_JPRB,0.68893E+02_JPRB,0.91857E+02_JPRB /)  
+KB(:, 2,35,16) = (/ &
+ & 0.92731E+02_JPRB,0.69551E+02_JPRB,0.49484E+02_JPRB,0.64233E+02_JPRB,0.85643E+02_JPRB /)  
+KB(:, 3,35,16) = (/ &
+ & 0.87537E+02_JPRB,0.65656E+02_JPRB,0.46247E+02_JPRB,0.60050E+02_JPRB,0.80067E+02_JPRB /)  
+KB(:, 4,35,16) = (/ &
+ & 0.82730E+02_JPRB,0.62051E+02_JPRB,0.43325E+02_JPRB,0.56336E+02_JPRB,0.75115E+02_JPRB /)  
+KB(:, 5,35,16) = (/ &
+ & 0.78184E+02_JPRB,0.58642E+02_JPRB,0.40664E+02_JPRB,0.52959E+02_JPRB,0.70611E+02_JPRB /)  
+KB(:, 1,36,16) = (/ &
+ & 0.98510E+02_JPRB,0.73885E+02_JPRB,0.53153E+02_JPRB,0.68921E+02_JPRB,0.91895E+02_JPRB /)  
+KB(:, 2,36,16) = (/ &
+ & 0.92845E+02_JPRB,0.69637E+02_JPRB,0.49525E+02_JPRB,0.64248E+02_JPRB,0.85664E+02_JPRB /)  
+KB(:, 3,36,16) = (/ &
+ & 0.87626E+02_JPRB,0.65723E+02_JPRB,0.46281E+02_JPRB,0.60067E+02_JPRB,0.80090E+02_JPRB /)  
+KB(:, 4,36,16) = (/ &
+ & 0.82805E+02_JPRB,0.62108E+02_JPRB,0.43352E+02_JPRB,0.56351E+02_JPRB,0.75135E+02_JPRB /)  
+KB(:, 5,36,16) = (/ &
+ & 0.78246E+02_JPRB,0.58689E+02_JPRB,0.40687E+02_JPRB,0.52970E+02_JPRB,0.70627E+02_JPRB /)  
+KB(:, 1,37,16) = (/ &
+ & 0.99499E+02_JPRB,0.74626E+02_JPRB,0.53765E+02_JPRB,0.69681E+02_JPRB,0.92907E+02_JPRB /)  
+KB(:, 2,37,16) = (/ &
+ & 0.93737E+02_JPRB,0.70305E+02_JPRB,0.50072E+02_JPRB,0.64938E+02_JPRB,0.86584E+02_JPRB /)  
+KB(:, 3,37,16) = (/ &
+ & 0.88443E+02_JPRB,0.66336E+02_JPRB,0.46765E+02_JPRB,0.60669E+02_JPRB,0.80892E+02_JPRB /)  
+KB(:, 4,37,16) = (/ &
+ & 0.83569E+02_JPRB,0.62680E+02_JPRB,0.43792E+02_JPRB,0.56887E+02_JPRB,0.75849E+02_JPRB /)  
+KB(:, 5,37,16) = (/ &
+ & 0.78959E+02_JPRB,0.59223E+02_JPRB,0.41087E+02_JPRB,0.53464E+02_JPRB,0.71286E+02_JPRB /)  
+KB(:, 1,38,16) = (/ &
+ & 0.10053E+03_JPRB,0.75401E+02_JPRB,0.54401E+02_JPRB,0.70469E+02_JPRB,0.93958E+02_JPRB /)  
+KB(:, 2,38,16) = (/ &
+ & 0.94665E+02_JPRB,0.71001E+02_JPRB,0.50643E+02_JPRB,0.65651E+02_JPRB,0.87535E+02_JPRB /)  
+KB(:, 3,38,16) = (/ &
+ & 0.89287E+02_JPRB,0.66968E+02_JPRB,0.47272E+02_JPRB,0.61298E+02_JPRB,0.81730E+02_JPRB /)  
+KB(:, 4,38,16) = (/ &
+ & 0.84354E+02_JPRB,0.63269E+02_JPRB,0.44250E+02_JPRB,0.57455E+02_JPRB,0.76607E+02_JPRB /)  
+KB(:, 5,38,16) = (/ &
+ & 0.79688E+02_JPRB,0.59770E+02_JPRB,0.41502E+02_JPRB,0.53978E+02_JPRB,0.71970E+02_JPRB /)  
+KB(:, 1,39,16) = (/ &
+ & 0.10152E+03_JPRB,0.76145E+02_JPRB,0.55030E+02_JPRB,0.71266E+02_JPRB,0.95022E+02_JPRB /)  
+KB(:, 2,39,16) = (/ &
+ & 0.95574E+02_JPRB,0.71683E+02_JPRB,0.51208E+02_JPRB,0.66359E+02_JPRB,0.88479E+02_JPRB /)  
+KB(:, 3,39,16) = (/ &
+ & 0.90127E+02_JPRB,0.67598E+02_JPRB,0.47776E+02_JPRB,0.61934E+02_JPRB,0.82579E+02_JPRB /)  
+KB(:, 4,39,16) = (/ &
+ & 0.85122E+02_JPRB,0.63845E+02_JPRB,0.44704E+02_JPRB,0.58015E+02_JPRB,0.77353E+02_JPRB /)  
+KB(:, 5,39,16) = (/ &
+ & 0.80410E+02_JPRB,0.60311E+02_JPRB,0.41916E+02_JPRB,0.54486E+02_JPRB,0.72649E+02_JPRB /)  
+KB(:, 1,40,16) = (/ &
+ & 0.10316E+03_JPRB,0.77371E+02_JPRB,0.56077E+02_JPRB,0.72600E+02_JPRB,0.96800E+02_JPRB /)  
+KB(:, 2,40,16) = (/ &
+ & 0.97060E+02_JPRB,0.72797E+02_JPRB,0.52149E+02_JPRB,0.67558E+02_JPRB,0.90077E+02_JPRB /)  
+KB(:, 3,40,16) = (/ &
+ & 0.91509E+02_JPRB,0.68635E+02_JPRB,0.48618E+02_JPRB,0.63010E+02_JPRB,0.84013E+02_JPRB /)  
+KB(:, 4,40,16) = (/ &
+ & 0.86384E+02_JPRB,0.64791E+02_JPRB,0.45460E+02_JPRB,0.58959E+02_JPRB,0.78612E+02_JPRB /)  
+KB(:, 5,40,16) = (/ &
+ & 0.81600E+02_JPRB,0.61204E+02_JPRB,0.42605E+02_JPRB,0.55349E+02_JPRB,0.73798E+02_JPRB /)  
+KB(:, 1,41,16) = (/ &
+ & 0.10490E+03_JPRB,0.78677E+02_JPRB,0.57202E+02_JPRB,0.74030E+02_JPRB,0.98707E+02_JPRB /)  
+KB(:, 2,41,16) = (/ &
+ & 0.98655E+02_JPRB,0.73994E+02_JPRB,0.53155E+02_JPRB,0.68836E+02_JPRB,0.91782E+02_JPRB /)  
+KB(:, 3,41,16) = (/ &
+ & 0.92964E+02_JPRB,0.69726E+02_JPRB,0.49517E+02_JPRB,0.64156E+02_JPRB,0.85541E+02_JPRB /)  
+KB(:, 4,41,16) = (/ &
+ & 0.87720E+02_JPRB,0.65793E+02_JPRB,0.46275E+02_JPRB,0.59984E+02_JPRB,0.79978E+02_JPRB /)  
+KB(:, 5,41,16) = (/ &
+ & 0.82858E+02_JPRB,0.62147E+02_JPRB,0.43340E+02_JPRB,0.56275E+02_JPRB,0.75033E+02_JPRB /)  
+KB(:, 1,42,16) = (/ &
+ & 0.10666E+03_JPRB,0.79997E+02_JPRB,0.58340E+02_JPRB,0.75485E+02_JPRB,0.10065E+03_JPRB /)  
+KB(:, 2,42,16) = (/ &
+ & 0.10028E+03_JPRB,0.75211E+02_JPRB,0.54189E+02_JPRB,0.70153E+02_JPRB,0.93537E+02_JPRB /)  
+KB(:, 3,42,16) = (/ &
+ & 0.94432E+02_JPRB,0.70827E+02_JPRB,0.50443E+02_JPRB,0.65340E+02_JPRB,0.87121E+02_JPRB /)  
+KB(:, 4,42,16) = (/ &
+ & 0.89075E+02_JPRB,0.66809E+02_JPRB,0.47102E+02_JPRB,0.61032E+02_JPRB,0.81376E+02_JPRB /)  
+KB(:, 5,42,16) = (/ &
+ & 0.84125E+02_JPRB,0.63097E+02_JPRB,0.44086E+02_JPRB,0.57211E+02_JPRB,0.76281E+02_JPRB /)  
+KB(:, 1,43,16) = (/ &
+ & 0.10883E+03_JPRB,0.81624E+02_JPRB,0.59771E+02_JPRB,0.77309E+02_JPRB,0.10308E+03_JPRB /)  
+KB(:, 2,43,16) = (/ &
+ & 0.10228E+03_JPRB,0.76711E+02_JPRB,0.55476E+02_JPRB,0.71797E+02_JPRB,0.95729E+02_JPRB /)  
+KB(:, 3,43,16) = (/ &
+ & 0.96257E+02_JPRB,0.72196E+02_JPRB,0.51599E+02_JPRB,0.66824E+02_JPRB,0.89098E+02_JPRB /)  
+KB(:, 4,43,16) = (/ &
+ & 0.90745E+02_JPRB,0.68062E+02_JPRB,0.48126E+02_JPRB,0.62350E+02_JPRB,0.83134E+02_JPRB /)  
+KB(:, 5,43,16) = (/ &
+ & 0.85682E+02_JPRB,0.64265E+02_JPRB,0.45017E+02_JPRB,0.58380E+02_JPRB,0.77840E+02_JPRB /)  
+KB(:, 1,44,16) = (/ &
+ & 0.11122E+03_JPRB,0.83416E+02_JPRB,0.61378E+02_JPRB,0.79350E+02_JPRB,0.10580E+03_JPRB /)  
+KB(:, 2,44,16) = (/ &
+ & 0.10448E+03_JPRB,0.78362E+02_JPRB,0.56905E+02_JPRB,0.73629E+02_JPRB,0.98171E+02_JPRB /)  
+KB(:, 3,44,16) = (/ &
+ & 0.98280E+02_JPRB,0.73712E+02_JPRB,0.52886E+02_JPRB,0.68474E+02_JPRB,0.91299E+02_JPRB /)  
+KB(:, 4,44,16) = (/ &
+ & 0.92614E+02_JPRB,0.69464E+02_JPRB,0.49277E+02_JPRB,0.63819E+02_JPRB,0.85092E+02_JPRB /)  
+KB(:, 5,44,16) = (/ &
+ & 0.87390E+02_JPRB,0.65546E+02_JPRB,0.46054E+02_JPRB,0.59688E+02_JPRB,0.79585E+02_JPRB /)  
+KB(:, 1,45,16) = (/ &
+ & 0.11367E+03_JPRB,0.85251E+02_JPRB,0.63043E+02_JPRB,0.81458E+02_JPRB,0.10861E+03_JPRB /)  
+KB(:, 2,45,16) = (/ &
+ & 0.10674E+03_JPRB,0.80056E+02_JPRB,0.58377E+02_JPRB,0.75516E+02_JPRB,0.10069E+03_JPRB /)  
+KB(:, 3,45,16) = (/ &
+ & 0.10036E+03_JPRB,0.75271E+02_JPRB,0.54217E+02_JPRB,0.70172E+02_JPRB,0.93562E+02_JPRB /)  
+KB(:, 4,45,16) = (/ &
+ & 0.94507E+02_JPRB,0.70883E+02_JPRB,0.50472E+02_JPRB,0.65352E+02_JPRB,0.87137E+02_JPRB /)  
+KB(:, 5,45,16) = (/ &
+ & 0.89124E+02_JPRB,0.66846E+02_JPRB,0.47119E+02_JPRB,0.61044E+02_JPRB,0.81393E+02_JPRB /)  
+KB(:, 1,46,16) = (/ &
+ & 0.11634E+03_JPRB,0.87256E+02_JPRB,0.64886E+02_JPRB,0.83772E+02_JPRB,0.11170E+03_JPRB /)  
+KB(:, 2,46,16) = (/ &
+ & 0.10921E+03_JPRB,0.81909E+02_JPRB,0.60009E+02_JPRB,0.77600E+02_JPRB,0.10347E+03_JPRB /)  
+KB(:, 3,46,16) = (/ &
+ & 0.10262E+03_JPRB,0.76969E+02_JPRB,0.55682E+02_JPRB,0.72046E+02_JPRB,0.96062E+02_JPRB /)  
+KB(:, 4,46,16) = (/ &
+ & 0.96578E+02_JPRB,0.72436E+02_JPRB,0.51790E+02_JPRB,0.67050E+02_JPRB,0.89399E+02_JPRB /)  
+KB(:, 5,46,16) = (/ &
+ & 0.91036E+02_JPRB,0.68280E+02_JPRB,0.48293E+02_JPRB,0.62556E+02_JPRB,0.83408E+02_JPRB /)  
+KB(:, 1,47,16) = (/ &
+ & 0.11944E+03_JPRB,0.89580E+02_JPRB,0.67039E+02_JPRB,0.86470E+02_JPRB,0.11529E+03_JPRB /)  
+KB(:, 2,47,16) = (/ &
+ & 0.11203E+03_JPRB,0.84025E+02_JPRB,0.61916E+02_JPRB,0.80032E+02_JPRB,0.10671E+03_JPRB /)  
+KB(:, 3,47,16) = (/ &
+ & 0.10523E+03_JPRB,0.78928E+02_JPRB,0.57378E+02_JPRB,0.74229E+02_JPRB,0.98972E+02_JPRB /)  
+KB(:, 4,47,16) = (/ &
+ & 0.98975E+02_JPRB,0.74234E+02_JPRB,0.53317E+02_JPRB,0.69003E+02_JPRB,0.92005E+02_JPRB /)  
+KB(:, 5,47,16) = (/ &
+ & 0.93247E+02_JPRB,0.69938E+02_JPRB,0.49666E+02_JPRB,0.64309E+02_JPRB,0.85745E+02_JPRB /)  
+KB(:, 1,48,16) = (/ &
+ & 0.12267E+03_JPRB,0.92006E+02_JPRB,0.69290E+02_JPRB,0.89280E+02_JPRB,0.11904E+03_JPRB /)  
+KB(:, 2,48,16) = (/ &
+ & 0.11495E+03_JPRB,0.86215E+02_JPRB,0.63917E+02_JPRB,0.82556E+02_JPRB,0.11008E+03_JPRB /)  
+KB(:, 3,48,16) = (/ &
+ & 0.10793E+03_JPRB,0.80951E+02_JPRB,0.59146E+02_JPRB,0.76493E+02_JPRB,0.10199E+03_JPRB /)  
+KB(:, 4,48,16) = (/ &
+ & 0.10147E+03_JPRB,0.76101E+02_JPRB,0.54918E+02_JPRB,0.71050E+02_JPRB,0.94733E+02_JPRB /)  
+KB(:, 5,48,16) = (/ &
+ & 0.95498E+02_JPRB,0.71626E+02_JPRB,0.51095E+02_JPRB,0.66155E+02_JPRB,0.88207E+02_JPRB /)  
+KB(:, 1,49,16) = (/ &
+ & 0.12603E+03_JPRB,0.94521E+02_JPRB,0.71680E+02_JPRB,0.92236E+02_JPRB,0.12298E+03_JPRB /)  
+KB(:, 2,49,16) = (/ &
+ & 0.11801E+03_JPRB,0.88509E+02_JPRB,0.66027E+02_JPRB,0.85192E+02_JPRB,0.11359E+03_JPRB /)  
+KB(:, 3,49,16) = (/ &
+ & 0.11070E+03_JPRB,0.83029E+02_JPRB,0.61003E+02_JPRB,0.78868E+02_JPRB,0.10516E+03_JPRB /)  
+KB(:, 4,49,16) = (/ &
+ & 0.10402E+03_JPRB,0.78016E+02_JPRB,0.56578E+02_JPRB,0.73185E+02_JPRB,0.97580E+02_JPRB /)  
+KB(:, 5,49,16) = (/ &
+ & 0.97847E+02_JPRB,0.73387E+02_JPRB,0.52593E+02_JPRB,0.68075E+02_JPRB,0.90767E+02_JPRB /)  
+KB(:, 1,50,16) = (/ &
+ & 0.12933E+03_JPRB,0.96996E+02_JPRB,0.74078E+02_JPRB,0.95132E+02_JPRB,0.12684E+03_JPRB /)  
+KB(:, 2,50,16) = (/ &
+ & 0.12097E+03_JPRB,0.90726E+02_JPRB,0.68085E+02_JPRB,0.87768E+02_JPRB,0.11702E+03_JPRB /)  
+KB(:, 3,50,16) = (/ &
+ & 0.11343E+03_JPRB,0.85073E+02_JPRB,0.62849E+02_JPRB,0.81185E+02_JPRB,0.10825E+03_JPRB /)  
+KB(:, 4,50,16) = (/ &
+ & 0.10650E+03_JPRB,0.79879E+02_JPRB,0.58193E+02_JPRB,0.75257E+02_JPRB,0.10034E+03_JPRB /)  
+KB(:, 5,50,16) = (/ &
+ & 0.10012E+03_JPRB,0.75094E+02_JPRB,0.54050E+02_JPRB,0.69940E+02_JPRB,0.93253E+02_JPRB /)  
+KB(:, 1,51,16) = (/ &
+ & 0.13262E+03_JPRB,0.99463E+02_JPRB,0.76537E+02_JPRB,0.98089E+02_JPRB,0.13079E+03_JPRB /)  
+KB(:, 2,51,16) = (/ &
+ & 0.12396E+03_JPRB,0.92972E+02_JPRB,0.70180E+02_JPRB,0.90371E+02_JPRB,0.12049E+03_JPRB /)  
+KB(:, 3,51,16) = (/ &
+ & 0.11611E+03_JPRB,0.87085E+02_JPRB,0.64700E+02_JPRB,0.83525E+02_JPRB,0.11137E+03_JPRB /)  
+KB(:, 4,51,16) = (/ &
+ & 0.10897E+03_JPRB,0.81728E+02_JPRB,0.59829E+02_JPRB,0.77356E+02_JPRB,0.10314E+03_JPRB /)  
+KB(:, 5,51,16) = (/ &
+ & 0.10241E+03_JPRB,0.76807E+02_JPRB,0.55526E+02_JPRB,0.71828E+02_JPRB,0.95771E+02_JPRB /)  
+KB(:, 1,52,16) = (/ &
+ & 0.13607E+03_JPRB,0.10205E+03_JPRB,0.79117E+02_JPRB,0.10117E+03_JPRB,0.13489E+03_JPRB /)  
+KB(:, 2,52,16) = (/ &
+ & 0.12703E+03_JPRB,0.95276E+02_JPRB,0.72382E+02_JPRB,0.93082E+02_JPRB,0.12411E+03_JPRB /)  
+KB(:, 3,52,16) = (/ &
+ & 0.11888E+03_JPRB,0.89162E+02_JPRB,0.66631E+02_JPRB,0.85943E+02_JPRB,0.11459E+03_JPRB /)  
+KB(:, 4,52,16) = (/ &
+ & 0.11155E+03_JPRB,0.83666E+02_JPRB,0.61557E+02_JPRB,0.79542E+02_JPRB,0.10606E+03_JPRB /)  
+KB(:, 5,52,16) = (/ &
+ & 0.10475E+03_JPRB,0.78563E+02_JPRB,0.57053E+02_JPRB,0.73794E+02_JPRB,0.98392E+02_JPRB /)  
+KB(:, 1,53,16) = (/ &
+ & 0.13969E+03_JPRB,0.10477E+03_JPRB,0.81852E+02_JPRB,0.10445E+03_JPRB,0.13926E+03_JPRB /)  
+KB(:, 2,53,16) = (/ &
+ & 0.13021E+03_JPRB,0.97660E+02_JPRB,0.74731E+02_JPRB,0.95923E+02_JPRB,0.12790E+03_JPRB /)  
+KB(:, 3,53,16) = (/ &
+ & 0.12178E+03_JPRB,0.91333E+02_JPRB,0.68644E+02_JPRB,0.88461E+02_JPRB,0.11795E+03_JPRB /)  
+KB(:, 4,53,16) = (/ &
+ & 0.11417E+03_JPRB,0.85628E+02_JPRB,0.63346E+02_JPRB,0.81812E+02_JPRB,0.10908E+03_JPRB /)  
+KB(:, 5,53,16) = (/ &
+ & 0.10716E+03_JPRB,0.80376E+02_JPRB,0.58630E+02_JPRB,0.75816E+02_JPRB,0.10109E+03_JPRB /)  
+KB(:, 1,54,16) = (/ &
+ & 0.14312E+03_JPRB,0.10734E+03_JPRB,0.84505E+02_JPRB,0.10757E+03_JPRB,0.14343E+03_JPRB /)  
+KB(:, 2,54,16) = (/ &
+ & 0.13326E+03_JPRB,0.99943E+02_JPRB,0.77008E+02_JPRB,0.98653E+02_JPRB,0.13154E+03_JPRB /)  
+KB(:, 3,54,16) = (/ &
+ & 0.12453E+03_JPRB,0.93400E+02_JPRB,0.70583E+02_JPRB,0.90867E+02_JPRB,0.12116E+03_JPRB /)  
+KB(:, 4,54,16) = (/ &
+ & 0.11663E+03_JPRB,0.87472E+02_JPRB,0.65055E+02_JPRB,0.83971E+02_JPRB,0.11196E+03_JPRB /)  
+KB(:, 5,54,16) = (/ &
+ & 0.10944E+03_JPRB,0.82085E+02_JPRB,0.60143E+02_JPRB,0.77761E+02_JPRB,0.10368E+03_JPRB /)  
+KB(:, 1,55,16) = (/ &
+ & 0.14652E+03_JPRB,0.10989E+03_JPRB,0.87185E+02_JPRB,0.11072E+03_JPRB,0.14762E+03_JPRB /)  
+KB(:, 2,55,16) = (/ &
+ & 0.13631E+03_JPRB,0.10223E+03_JPRB,0.79292E+02_JPRB,0.10139E+03_JPRB,0.13518E+03_JPRB /)  
+KB(:, 3,55,16) = (/ &
+ & 0.12725E+03_JPRB,0.95436E+02_JPRB,0.72534E+02_JPRB,0.93260E+02_JPRB,0.12435E+03_JPRB /)  
+KB(:, 4,55,16) = (/ &
+ & 0.11908E+03_JPRB,0.89315E+02_JPRB,0.66761E+02_JPRB,0.86100E+02_JPRB,0.11480E+03_JPRB /)  
+KB(:, 5,55,16) = (/ &
+ & 0.11172E+03_JPRB,0.83789E+02_JPRB,0.61666E+02_JPRB,0.79683E+02_JPRB,0.10624E+03_JPRB /)  
+KB(:, 1,56,16) = (/ &
+ & 0.15005E+03_JPRB,0.11254E+03_JPRB,0.89964E+02_JPRB,0.11399E+03_JPRB,0.15199E+03_JPRB /)  
+KB(:, 2,56,16) = (/ &
+ & 0.13946E+03_JPRB,0.10459E+03_JPRB,0.81673E+02_JPRB,0.10424E+03_JPRB,0.13899E+03_JPRB /)  
+KB(:, 3,56,16) = (/ &
+ & 0.13002E+03_JPRB,0.97512E+02_JPRB,0.74583E+02_JPRB,0.95730E+02_JPRB,0.12764E+03_JPRB /)  
+KB(:, 4,56,16) = (/ &
+ & 0.12160E+03_JPRB,0.91205E+02_JPRB,0.68519E+02_JPRB,0.88312E+02_JPRB,0.11775E+03_JPRB /)  
+KB(:, 5,56,16) = (/ &
+ & 0.11401E+03_JPRB,0.85509E+02_JPRB,0.63233E+02_JPRB,0.81665E+02_JPRB,0.10889E+03_JPRB /)  
+KB(:, 1,57,16) = (/ &
+ & 0.15367E+03_JPRB,0.11525E+03_JPRB,0.92893E+02_JPRB,0.11745E+03_JPRB,0.15659E+03_JPRB /)  
+KB(:, 2,57,16) = (/ &
+ & 0.14273E+03_JPRB,0.10705E+03_JPRB,0.84201E+02_JPRB,0.10722E+03_JPRB,0.14296E+03_JPRB /)  
+KB(:, 3,57,16) = (/ &
+ & 0.13291E+03_JPRB,0.99681E+02_JPRB,0.76750E+02_JPRB,0.98336E+02_JPRB,0.13111E+03_JPRB /)  
+KB(:, 4,57,16) = (/ &
+ & 0.12423E+03_JPRB,0.93171E+02_JPRB,0.70357E+02_JPRB,0.90589E+02_JPRB,0.12079E+03_JPRB /)  
+KB(:, 5,57,16) = (/ &
+ & 0.11636E+03_JPRB,0.87269E+02_JPRB,0.64859E+02_JPRB,0.83719E+02_JPRB,0.11162E+03_JPRB /)  
+KB(:, 1,58,16) = (/ &
+ & 0.15720E+03_JPRB,0.11790E+03_JPRB,0.95809E+02_JPRB,0.12090E+03_JPRB,0.16121E+03_JPRB /)  
+KB(:, 2,58,16) = (/ &
+ & 0.14594E+03_JPRB,0.10946E+03_JPRB,0.86713E+02_JPRB,0.11017E+03_JPRB,0.14690E+03_JPRB /)  
+KB(:, 3,58,16) = (/ &
+ & 0.13577E+03_JPRB,0.10183E+03_JPRB,0.78898E+02_JPRB,0.10090E+03_JPRB,0.13454E+03_JPRB /)  
+KB(:, 4,58,16) = (/ &
+ & 0.12678E+03_JPRB,0.95087E+02_JPRB,0.72188E+02_JPRB,0.92844E+02_JPRB,0.12379E+03_JPRB /)  
+KB(:, 5,58,16) = (/ &
+ & 0.11865E+03_JPRB,0.88989E+02_JPRB,0.66460E+02_JPRB,0.85728E+02_JPRB,0.11430E+03_JPRB /)  
+KB(:, 1,59,16) = (/ &
+ & 0.15867E+03_JPRB,0.11900E+03_JPRB,0.97023E+02_JPRB,0.12235E+03_JPRB,0.16313E+03_JPRB /)  
+KB(:, 2,59,16) = (/ &
+ & 0.14725E+03_JPRB,0.11044E+03_JPRB,0.87747E+02_JPRB,0.11139E+03_JPRB,0.14852E+03_JPRB /)  
+KB(:, 3,59,16) = (/ &
+ & 0.13696E+03_JPRB,0.10272E+03_JPRB,0.79780E+02_JPRB,0.10196E+03_JPRB,0.13595E+03_JPRB /)  
+KB(:, 4,59,16) = (/ &
+ & 0.12782E+03_JPRB,0.95865E+02_JPRB,0.72946E+02_JPRB,0.93765E+02_JPRB,0.12502E+03_JPRB /)  
+KB(:, 5,59,16) = (/ &
+ & 0.11961E+03_JPRB,0.89706E+02_JPRB,0.67116E+02_JPRB,0.86544E+02_JPRB,0.11539E+03_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART38',0,ZHOOK_HANDLE)
+
+
+FORREF(:, 1) = (/ 0.110008E-06_JPRB, 0.630912E-06_JPRB, 0.363159E-05_JPRB, 0.616892E-05_JPRB /)
+FORREF(:, 2) = (/ 0.429709E-05_JPRB, 0.789174E-05_JPRB, 0.217416E-04_JPRB, 0.639393E-04_JPRB /)
+FORREF(:, 3) = (/ 0.436283E-04_JPRB, 0.526247E-04_JPRB, 0.116341E-03_JPRB, 0.205616E-03_JPRB /)
+FORREF(:, 4) = (/ 0.215627E-03_JPRB, 0.234522E-03_JPRB, 0.280497E-03_JPRB, 0.838668E-03_JPRB /)
+FORREF(:, 5) = (/ 0.529283E-03_JPRB, 0.620848E-03_JPRB, 0.935561E-03_JPRB, 0.171252E-02_JPRB /)
+FORREF(:, 6) = (/ 0.212267E-02_JPRB, 0.218564E-02_JPRB, 0.222227E-02_JPRB, 0.199650E-02_JPRB /)
+FORREF(:, 7) = (/ 0.291120E-02_JPRB, 0.281168E-02_JPRB, 0.259543E-02_JPRB, 0.210159E-02_JPRB /)
+FORREF(:, 8) = (/ 0.316249E-02_JPRB, 0.310695E-02_JPRB, 0.279501E-02_JPRB, 0.208076E-02_JPRB /)
+FORREF(:, 9) = (/ 0.354993E-02_JPRB, 0.336989E-02_JPRB, 0.298930E-02_JPRB, 0.180424E-02_JPRB /)
+FORREF(:,10) = (/ 0.397729E-02_JPRB, 0.367409E-02_JPRB, 0.328982E-02_JPRB, 0.177807E-02_JPRB /)
+FORREF(:,11) = (/ 0.408831E-02_JPRB, 0.398792E-02_JPRB, 0.352727E-02_JPRB, 0.192470E-02_JPRB /)
+FORREF(:,12) = (/ 0.433926E-02_JPRB, 0.420667E-02_JPRB, 0.383894E-02_JPRB, 0.220836E-02_JPRB /)
+FORREF(:,13) = (/ 0.436397E-02_JPRB, 0.433769E-02_JPRB, 0.425752E-02_JPRB, 0.237343E-02_JPRB /)
+FORREF(:,14) = (/ 0.440525E-02_JPRB, 0.449018E-02_JPRB, 0.451881E-02_JPRB, 0.269169E-02_JPRB /)
+FORREF(:,15) = (/ 0.491350E-02_JPRB, 0.481760E-02_JPRB, 0.475799E-02_JPRB, 0.362666E-02_JPRB /)
+FORREF(:,16) = (/ 0.561641E-02_JPRB, 0.524553E-02_JPRB, 0.512473E-02_JPRB, 0.493802E-02_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.115887E-03_JPRB, 0.926537E-04_JPRB, 0.740783E-04_JPRB, 0.592270E-04_JPRB, 0.473530E-04_JPRB, &
+ & 0.378596E-04_JPRB, 0.302694E-04_JPRB, 0.242010E-04_JPRB, 0.193491E-04_JPRB, 0.154700E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.459557E-03_JPRB, 0.381962E-03_JPRB, 0.317469E-03_JPRB, 0.263866E-03_JPRB, 0.219313E-03_JPRB, &
+ & 0.182283E-03_JPRB, 0.151505E-03_JPRB, 0.125924E-03_JPRB, 0.104662E-03_JPRB, 0.869904E-04_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.166821E-02_JPRB, 0.151103E-02_JPRB, 0.136866E-02_JPRB, 0.123970E-02_JPRB, 0.112290E-02_JPRB, &
+ & 0.101710E-02_JPRB, 0.921266E-03_JPRB, 0.834463E-03_JPRB, 0.755839E-03_JPRB, 0.684623E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.460175E-02_JPRB, 0.421372E-02_JPRB, 0.385842E-02_JPRB, 0.353307E-02_JPRB, 0.323516E-02_JPRB, &
+ & 0.296236E-02_JPRB, 0.271257E-02_JPRB, 0.248385E-02_JPRB, 0.227440E-02_JPRB, 0.208262E-02_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.101589E-01_JPRB, 0.924742E-02_JPRB, 0.841772E-02_JPRB, 0.766247E-02_JPRB, 0.697497E-02_JPRB, &
+ & 0.634917E-02_JPRB, 0.577951E-02_JPRB, 0.526096E-02_JPRB, 0.478893E-02_JPRB, 0.435926E-02_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.328043E-01_JPRB, 0.300853E-01_JPRB, 0.275917E-01_JPRB, 0.253048E-01_JPRB, 0.232075E-01_JPRB, &
+ & 0.212839E-01_JPRB, 0.195198E-01_JPRB, 0.179020E-01_JPRB, 0.164182E-01_JPRB, 0.150574E-01_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.405936E-01_JPRB, 0.376032E-01_JPRB, 0.348331E-01_JPRB, 0.322671E-01_JPRB, 0.298901E-01_JPRB, &
+ & 0.276883E-01_JPRB, 0.256486E-01_JPRB, 0.237591E-01_JPRB, 0.220089E-01_JPRB, 0.203876E-01_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.448362E-01_JPRB, 0.413811E-01_JPRB, 0.381923E-01_JPRB, 0.352492E-01_JPRB, 0.325329E-01_JPRB, &
+ & 0.300259E-01_JPRB, 0.277121E-01_JPRB, 0.255766E-01_JPRB, 0.236056E-01_JPRB, 0.217866E-01_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.479741E-01_JPRB, 0.445389E-01_JPRB, 0.413497E-01_JPRB, 0.383889E-01_JPRB, 0.356400E-01_JPRB, &
+ & 0.330880E-01_JPRB, 0.307188E-01_JPRB, 0.285191E-01_JPRB, 0.264770E-01_JPRB, 0.245812E-01_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.519308E-01_JPRB, 0.484130E-01_JPRB, 0.451335E-01_JPRB, 0.420761E-01_JPRB, 0.392259E-01_JPRB, &
+ & 0.365687E-01_JPRB, 0.340916E-01_JPRB, 0.317822E-01_JPRB, 0.296293E-01_JPRB, 0.276222E-01_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.572039E-01_JPRB, 0.527780E-01_JPRB, 0.486945E-01_JPRB, 0.449270E-01_JPRB, 0.414510E-01_JPRB, &
+ & 0.382439E-01_JPRB, 0.352849E-01_JPRB, 0.325549E-01_JPRB, 0.300361E-01_JPRB, 0.277122E-01_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.601046E-01_JPRB, 0.554411E-01_JPRB, 0.511395E-01_JPRB, 0.471716E-01_JPRB, 0.435116E-01_JPRB, &
+ & 0.401356E-01_JPRB, 0.370215E-01_JPRB, 0.341490E-01_JPRB, 0.314994E-01_JPRB, 0.290554E-01_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.616595E-01_JPRB, 0.567145E-01_JPRB, 0.521662E-01_JPRB, 0.479826E-01_JPRB, 0.441346E-01_JPRB, &
+ & 0.405951E-01_JPRB, 0.373395E-01_JPRB, 0.343450E-01_JPRB, 0.315906E-01_JPRB, 0.290571E-01_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.647916E-01_JPRB, 0.592493E-01_JPRB, 0.541811E-01_JPRB, 0.495465E-01_JPRB, 0.453083E-01_JPRB, &
+ & 0.414326E-01_JPRB, 0.378885E-01_JPRB, 0.346475E-01_JPRB, 0.316837E-01_JPRB, 0.289735E-01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.694231E-01_JPRB, 0.637703E-01_JPRB, 0.585777E-01_JPRB, 0.538079E-01_JPRB, 0.494265E-01_JPRB, &
+ & 0.454019E-01_JPRB, 0.417050E-01_JPRB, 0.383091E-01_JPRB, 0.351897E-01_JPRB, 0.323244E-01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.761764E-01_JPRB, 0.701815E-01_JPRB, 0.646584E-01_JPRB, 0.595700E-01_JPRB, 0.548820E-01_JPRB, &
+ & 0.505629E-01_JPRB, 0.465838E-01_JPRB, 0.429178E-01_JPRB, 0.395403E-01_JPRB, 0.364286E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE SRTM_KGB21
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb21.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb21.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb21.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB21
+END SUBROUTINE SRTM_KGB21
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb22.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb22.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb22.F90	(revision 3330)
@@ -0,0 +1,5030 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB22
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA22, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:, 1) = (/ &
+ & 3.71641_JPRB    ,3.63190_JPRB    ,3.44795_JPRB    ,3.17936_JPRB    , &
+ & 2.86071_JPRB    ,2.48490_JPRB    ,2.02471_JPRB    ,1.52475_JPRB    , &
+ & 1.03811_JPRB    ,0.113272_JPRB   ,9.37115E-02_JPRB,7.38969E-02_JPRB, &
+ & 5.44713E-02_JPRB,3.45905E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 2) = (/ &
+ & 3.73933_JPRB    ,3.60360_JPRB    ,3.43370_JPRB    ,3.19749_JPRB    ,  &
+ & 2.87747_JPRB    ,2.47926_JPRB    ,2.02175_JPRB    ,1.52010_JPRB    , &
+ & 1.03612_JPRB    ,0.113265_JPRB   ,9.37145E-02_JPRB,7.38951E-02_JPRB, &
+ & 5.44714E-02_JPRB,3.45906E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 3) = (/ &
+ & 3.73889_JPRB    ,3.60279_JPRB    ,3.43404_JPRB    ,3.20560_JPRB    , &
+ & 2.87367_JPRB    ,2.47515_JPRB    ,2.02412_JPRB    ,1.52315_JPRB    , &
+ & 1.03146_JPRB    ,0.113272_JPRB   ,9.36707E-02_JPRB,7.39080E-02_JPRB, &
+ & 5.44598E-02_JPRB,3.45906E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 4) = (/ &
+ & 3.73801_JPRB    ,3.60530_JPRB    ,3.43659_JPRB    ,3.20640_JPRB    , &
+ & 2.87039_JPRB    ,2.47330_JPRB    ,2.02428_JPRB    ,1.52509_JPRB    , &
+ & 1.03037_JPRB    ,0.112553_JPRB   ,9.35352E-02_JPRB,7.39675E-02_JPRB, &
+ & 5.43951E-02_JPRB,3.45669E-02_JPRB,1.30292E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 5) = (/ &
+ & 3.73809_JPRB    ,3.60996_JPRB    ,3.43602_JPRB    ,3.20364_JPRB    , &
+ & 2.87005_JPRB    ,2.47343_JPRB    ,2.02353_JPRB    ,1.52617_JPRB    , &
+ & 1.03138_JPRB    ,0.111172_JPRB   ,9.29885E-02_JPRB,7.35034E-02_JPRB, &
+ & 5.42427E-02_JPRB,3.45732E-02_JPRB,1.30169E-02_JPRB,1.84550E-03_JPRB /)  
+SFLUXREF(:, 6) = (/ &
+ & 3.73872_JPRB    ,3.62054_JPRB    ,3.42934_JPRB    ,3.20110_JPRB    , &
+ & 2.86886_JPRB    ,2.47379_JPRB    ,2.02237_JPRB    ,1.52754_JPRB    ,  &
+ & 1.03228_JPRB    ,0.111597_JPRB   ,9.12252E-02_JPRB,7.33115E-02_JPRB, &
+ & 5.35600E-02_JPRB,3.45187E-02_JPRB,1.30184E-02_JPRB,1.84551E-03_JPRB /)  
+SFLUXREF(:, 7) = (/ &
+ & 3.73969_JPRB    ,3.65461_JPRB    ,3.40646_JPRB    ,3.19082_JPRB    , &
+ & 2.86919_JPRB    ,2.47289_JPRB    ,2.02312_JPRB    ,1.52629_JPRB    , &
+ & 1.03329_JPRB    ,0.111611_JPRB   ,9.16275E-02_JPRB,7.14731E-02_JPRB, &
+ & 5.31771E-02_JPRB,3.44980E-02_JPRB,1.30190E-02_JPRB,1.84551E-03_JPRB /)  
+SFLUXREF(:, 8) = (/ &
+ & 3.73995_JPRB    ,3.65348_JPRB    ,3.43707_JPRB    ,3.16351_JPRB    , &
+ & 2.87003_JPRB    ,2.47392_JPRB    ,2.02114_JPRB    ,1.52548_JPRB    ,  &
+ & 1.03306_JPRB    ,0.111088_JPRB   ,9.12422E-02_JPRB,7.11146E-02_JPRB, &
+ & 5.31333E-02_JPRB,3.45302E-02_JPRB,1.30209E-02_JPRB,1.84554E-03_JPRB /)  
+SFLUXREF(:, 9) = (/ &
+ & 3.73788_JPRB    ,3.65004_JPRB    ,3.46938_JPRB    ,3.15236_JPRB    , &
+ & 2.86381_JPRB    ,2.47393_JPRB    ,2.01715_JPRB    ,1.52134_JPRB    , &
+ & 1.03163_JPRB    ,0.111259_JPRB   ,9.12948E-02_JPRB,7.09999E-02_JPRB, &
+ & 5.31792E-02_JPRB,3.44955E-02_JPRB,1.30189E-02_JPRB,1.84551E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 8000 cm-1.
+RAYL = 1.54E-08_JPRB
+
+STRRAT = 0.022708_JPRB
+
+LAYREFFR = 2
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.14658E-08_JPRB,0.32044E-07_JPRB,0.36289E-07_JPRB,0.38717E-07_JPRB,0.40590E-07_JPRB, &
+ & 0.43330E-07_JPRB,0.46916E-07_JPRB,0.56519E-07_JPRB,0.42446E-07_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.17883E-08_JPRB,0.36129E-07_JPRB,0.40724E-07_JPRB,0.43498E-07_JPRB,0.45371E-07_JPRB, &
+ & 0.47093E-07_JPRB,0.51195E-07_JPRB,0.58562E-07_JPRB,0.44474E-07_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.21286E-08_JPRB,0.46092E-07_JPRB,0.53991E-07_JPRB,0.59439E-07_JPRB,0.63497E-07_JPRB, &
+ & 0.66730E-07_JPRB,0.70296E-07_JPRB,0.83990E-07_JPRB,0.65058E-07_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.24816E-08_JPRB,0.43399E-07_JPRB,0.49167E-07_JPRB,0.52969E-07_JPRB,0.55586E-07_JPRB, &
+ & 0.57260E-07_JPRB,0.58809E-07_JPRB,0.64046E-07_JPRB,0.48780E-07_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.28409E-08_JPRB,0.46683E-07_JPRB,0.53128E-07_JPRB,0.57526E-07_JPRB,0.60605E-07_JPRB, &
+ & 0.62715E-07_JPRB,0.64284E-07_JPRB,0.67579E-07_JPRB,0.52346E-07_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.10965E-08_JPRB,0.24934E-07_JPRB,0.28268E-07_JPRB,0.30156E-07_JPRB,0.31820E-07_JPRB, &
+ & 0.34498E-07_JPRB,0.36563E-07_JPRB,0.46609E-07_JPRB,0.30202E-07_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.13538E-08_JPRB,0.28338E-07_JPRB,0.31923E-07_JPRB,0.34048E-07_JPRB,0.35529E-07_JPRB, &
+ & 0.37136E-07_JPRB,0.41583E-07_JPRB,0.46831E-07_JPRB,0.32817E-07_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.16260E-08_JPRB,0.36648E-07_JPRB,0.42882E-07_JPRB,0.47128E-07_JPRB,0.50288E-07_JPRB, &
+ & 0.52851E-07_JPRB,0.56093E-07_JPRB,0.70511E-07_JPRB,0.48182E-07_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.19102E-08_JPRB,0.39471E-07_JPRB,0.46225E-07_JPRB,0.50974E-07_JPRB,0.54565E-07_JPRB, &
+ & 0.57380E-07_JPRB,0.60079E-07_JPRB,0.67707E-07_JPRB,0.50168E-07_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.22030E-08_JPRB,0.37203E-07_JPRB,0.42234E-07_JPRB,0.45622E-07_JPRB,0.47990E-07_JPRB, &
+ & 0.49546E-07_JPRB,0.50777E-07_JPRB,0.53867E-07_JPRB,0.39769E-07_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.77844E-09_JPRB,0.18777E-07_JPRB,0.21347E-07_JPRB,0.22946E-07_JPRB,0.24368E-07_JPRB, &
+ & 0.25870E-07_JPRB,0.28084E-07_JPRB,0.39197E-07_JPRB,0.20196E-07_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.97891E-09_JPRB,0.21591E-07_JPRB,0.24379E-07_JPRB,0.25974E-07_JPRB,0.27213E-07_JPRB, &
+ & 0.29039E-07_JPRB,0.31487E-07_JPRB,0.37725E-07_JPRB,0.23228E-07_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.11949E-08_JPRB,0.24305E-07_JPRB,0.27342E-07_JPRB,0.29177E-07_JPRB,0.30428E-07_JPRB, &
+ & 0.31562E-07_JPRB,0.34299E-07_JPRB,0.39267E-07_JPRB,0.23943E-07_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.14225E-08_JPRB,0.30991E-07_JPRB,0.36244E-07_JPRB,0.39880E-07_JPRB,0.42596E-07_JPRB, &
+ & 0.44752E-07_JPRB,0.47132E-07_JPRB,0.56253E-07_JPRB,0.37250E-07_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.16586E-08_JPRB,0.29152E-07_JPRB,0.32988E-07_JPRB,0.35508E-07_JPRB,0.37264E-07_JPRB, &
+ & 0.38387E-07_JPRB,0.39417E-07_JPRB,0.42936E-07_JPRB,0.29439E-07_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.53935E-09_JPRB,0.13922E-07_JPRB,0.15779E-07_JPRB,0.16979E-07_JPRB,0.18157E-07_JPRB, &
+ & 0.19199E-07_JPRB,0.22168E-07_JPRB,0.31060E-07_JPRB,0.13772E-07_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.69404E-09_JPRB,0.16220E-07_JPRB,0.18381E-07_JPRB,0.19646E-07_JPRB,0.20841E-07_JPRB, &
+ & 0.22407E-07_JPRB,0.23846E-07_JPRB,0.31992E-07_JPRB,0.15532E-07_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.86327E-09_JPRB,0.18514E-07_JPRB,0.20845E-07_JPRB,0.22209E-07_JPRB,0.23196E-07_JPRB, &
+ & 0.24396E-07_JPRB,0.27026E-07_JPRB,0.31067E-07_JPRB,0.17116E-07_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.10436E-08_JPRB,0.20666E-07_JPRB,0.23248E-07_JPRB,0.24835E-07_JPRB,0.25904E-07_JPRB, &
+ & 0.26757E-07_JPRB,0.28384E-07_JPRB,0.33085E-07_JPRB,0.19320E-07_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.12327E-08_JPRB,0.26056E-07_JPRB,0.30481E-07_JPRB,0.33580E-07_JPRB,0.35908E-07_JPRB, &
+ & 0.37744E-07_JPRB,0.39586E-07_JPRB,0.45434E-07_JPRB,0.29787E-07_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.36905E-09_JPRB,0.10245E-07_JPRB,0.11596E-07_JPRB,0.12576E-07_JPRB,0.13293E-07_JPRB, &
+ & 0.14477E-07_JPRB,0.18355E-07_JPRB,0.25395E-07_JPRB,0.95950E-08_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.48708E-09_JPRB,0.12119E-07_JPRB,0.13746E-07_JPRB,0.14791E-07_JPRB,0.15718E-07_JPRB, &
+ & 0.16646E-07_JPRB,0.18396E-07_JPRB,0.25737E-07_JPRB,0.10793E-07_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.61847E-09_JPRB,0.13998E-07_JPRB,0.15813E-07_JPRB,0.16851E-07_JPRB,0.17722E-07_JPRB, &
+ & 0.19232E-07_JPRB,0.20414E-07_JPRB,0.25223E-07_JPRB,0.12354E-07_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.76052E-09_JPRB,0.15846E-07_JPRB,0.17816E-07_JPRB,0.18991E-07_JPRB,0.19806E-07_JPRB, &
+ & 0.20628E-07_JPRB,0.23016E-07_JPRB,0.25874E-07_JPRB,0.14269E-07_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.91109E-09_JPRB,0.20382E-07_JPRB,0.23823E-07_JPRB,0.26180E-07_JPRB,0.27929E-07_JPRB, &
+ & 0.29345E-07_JPRB,0.31039E-07_JPRB,0.38471E-07_JPRB,0.22626E-07_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.24637E-09_JPRB,0.74144E-08_JPRB,0.83997E-08_JPRB,0.90789E-08_JPRB,0.97769E-08_JPRB, &
+ & 0.11308E-07_JPRB,0.14223E-07_JPRB,0.20837E-07_JPRB,0.66398E-08_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.33527E-09_JPRB,0.89450E-08_JPRB,0.10119E-07_JPRB,0.10892E-07_JPRB,0.11613E-07_JPRB, &
+ & 0.12382E-07_JPRB,0.14900E-07_JPRB,0.20638E-07_JPRB,0.76422E-08_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.43587E-09_JPRB,0.10479E-07_JPRB,0.11902E-07_JPRB,0.12737E-07_JPRB,0.13564E-07_JPRB, &
+ & 0.14416E-07_JPRB,0.15545E-07_JPRB,0.21677E-07_JPRB,0.89455E-08_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.54672E-09_JPRB,0.12017E-07_JPRB,0.13540E-07_JPRB,0.14423E-07_JPRB,0.15090E-07_JPRB, &
+ & 0.16030E-07_JPRB,0.17496E-07_JPRB,0.20678E-07_JPRB,0.10490E-07_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.66579E-09_JPRB,0.13493E-07_JPRB,0.15163E-07_JPRB,0.16178E-07_JPRB,0.16873E-07_JPRB, &
+ & 0.17474E-07_JPRB,0.18852E-07_JPRB,0.21699E-07_JPRB,0.12216E-07_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.16149E-09_JPRB,0.53201E-08_JPRB,0.60079E-08_JPRB,0.65349E-08_JPRB,0.72837E-08_JPRB, &
+ & 0.90792E-08_JPRB,0.11028E-07_JPRB,0.15917E-07_JPRB,0.45574E-08_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.22765E-09_JPRB,0.65457E-08_JPRB,0.74143E-08_JPRB,0.80126E-08_JPRB,0.85152E-08_JPRB, &
+ & 0.94934E-08_JPRB,0.12210E-07_JPRB,0.16917E-07_JPRB,0.54301E-08_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.30418E-09_JPRB,0.77971E-08_JPRB,0.88287E-08_JPRB,0.94927E-08_JPRB,0.10154E-07_JPRB, &
+ & 0.10712E-07_JPRB,0.12099E-07_JPRB,0.16996E-07_JPRB,0.64594E-08_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.38990E-09_JPRB,0.90563E-08_JPRB,0.10243E-07_JPRB,0.10928E-07_JPRB,0.11554E-07_JPRB, &
+ & 0.12512E-07_JPRB,0.13254E-07_JPRB,0.17320E-07_JPRB,0.76835E-08_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.48334E-09_JPRB,0.10307E-07_JPRB,0.11588E-07_JPRB,0.12345E-07_JPRB,0.12884E-07_JPRB, &
+ & 0.13512E-07_JPRB,0.15051E-07_JPRB,0.17108E-07_JPRB,0.90662E-08_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.10442E-09_JPRB,0.37895E-08_JPRB,0.42781E-08_JPRB,0.47285E-08_JPRB,0.55672E-08_JPRB, &
+ & 0.67246E-08_JPRB,0.87615E-08_JPRB,0.12496E-07_JPRB,0.31063E-08_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.15294E-09_JPRB,0.47545E-08_JPRB,0.53771E-08_JPRB,0.58176E-08_JPRB,0.63249E-08_JPRB, &
+ & 0.74935E-08_JPRB,0.93024E-08_JPRB,0.13484E-07_JPRB,0.38514E-08_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.21056E-09_JPRB,0.57727E-08_JPRB,0.65270E-08_JPRB,0.70416E-08_JPRB,0.74786E-08_JPRB, &
+ & 0.80475E-08_JPRB,0.10012E-07_JPRB,0.13784E-07_JPRB,0.46496E-08_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.27636E-09_JPRB,0.67987E-08_JPRB,0.77111E-08_JPRB,0.82983E-08_JPRB,0.87947E-08_JPRB, &
+ & 0.93313E-08_JPRB,0.10204E-07_JPRB,0.14244E-07_JPRB,0.56141E-08_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.34924E-09_JPRB,0.78297E-08_JPRB,0.88319E-08_JPRB,0.94055E-08_JPRB,0.98667E-08_JPRB, &
+ & 0.10620E-07_JPRB,0.11396E-07_JPRB,0.13825E-07_JPRB,0.67139E-08_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.66385E-10_JPRB,0.26743E-08_JPRB,0.30313E-08_JPRB,0.34595E-08_JPRB,0.42156E-08_JPRB, &
+ & 0.50940E-08_JPRB,0.66728E-08_JPRB,0.10021E-07_JPRB,0.20965E-08_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.10109E-09_JPRB,0.34278E-08_JPRB,0.38685E-08_JPRB,0.42217E-08_JPRB,0.47673E-08_JPRB, &
+ & 0.59120E-08_JPRB,0.72992E-08_JPRB,0.10438E-07_JPRB,0.27321E-08_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.14405E-09_JPRB,0.42386E-08_JPRB,0.48029E-08_JPRB,0.51840E-08_JPRB,0.55416E-08_JPRB, &
+ & 0.62759E-08_JPRB,0.79851E-08_JPRB,0.11314E-07_JPRB,0.33332E-08_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.19414E-09_JPRB,0.50774E-08_JPRB,0.57440E-08_JPRB,0.61764E-08_JPRB,0.66005E-08_JPRB, &
+ & 0.69887E-08_JPRB,0.81552E-08_JPRB,0.11319E-07_JPRB,0.40828E-08_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.25056E-09_JPRB,0.59198E-08_JPRB,0.67025E-08_JPRB,0.71627E-08_JPRB,0.76155E-08_JPRB, &
+ & 0.81557E-08_JPRB,0.87035E-08_JPRB,0.11788E-07_JPRB,0.49512E-08_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.43147E-10_JPRB,0.19136E-08_JPRB,0.21883E-08_JPRB,0.26153E-08_JPRB,0.31055E-08_JPRB, &
+ & 0.39720E-08_JPRB,0.51107E-08_JPRB,0.84498E-08_JPRB,0.15100E-08_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.68069E-10_JPRB,0.25012E-08_JPRB,0.28230E-08_JPRB,0.31278E-08_JPRB,0.37084E-08_JPRB, &
+ & 0.44577E-08_JPRB,0.58316E-08_JPRB,0.82732E-08_JPRB,0.20294E-08_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.10013E-09_JPRB,0.31445E-08_JPRB,0.35530E-08_JPRB,0.38466E-08_JPRB,0.41961E-08_JPRB, &
+ & 0.50063E-08_JPRB,0.61960E-08_JPRB,0.89421E-08_JPRB,0.24447E-08_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.13837E-09_JPRB,0.38258E-08_JPRB,0.43236E-08_JPRB,0.46732E-08_JPRB,0.49545E-08_JPRB, &
+ & 0.53447E-08_JPRB,0.67172E-08_JPRB,0.92217E-08_JPRB,0.30274E-08_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.18212E-09_JPRB,0.45123E-08_JPRB,0.51146E-08_JPRB,0.55026E-08_JPRB,0.58368E-08_JPRB, &
+ & 0.61896E-08_JPRB,0.67974E-08_JPRB,0.94910E-08_JPRB,0.36975E-08_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.35238E-10_JPRB,0.15650E-08_JPRB,0.17900E-08_JPRB,0.21398E-08_JPRB,0.25395E-08_JPRB, &
+ & 0.32442E-08_JPRB,0.41684E-08_JPRB,0.68456E-08_JPRB,0.12890E-08_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.55588E-10_JPRB,0.20451E-08_JPRB,0.23079E-08_JPRB,0.25570E-08_JPRB,0.30342E-08_JPRB, &
+ & 0.36465E-08_JPRB,0.47717E-08_JPRB,0.67353E-08_JPRB,0.16499E-08_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.81825E-10_JPRB,0.25719E-08_JPRB,0.29058E-08_JPRB,0.31458E-08_JPRB,0.34324E-08_JPRB, &
+ & 0.40982E-08_JPRB,0.50669E-08_JPRB,0.73083E-08_JPRB,0.20031E-08_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.11311E-09_JPRB,0.31293E-08_JPRB,0.35365E-08_JPRB,0.38229E-08_JPRB,0.40518E-08_JPRB, &
+ & 0.43730E-08_JPRB,0.54993E-08_JPRB,0.75470E-08_JPRB,0.24754E-08_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.14891E-09_JPRB,0.36915E-08_JPRB,0.41839E-08_JPRB,0.45010E-08_JPRB,0.47744E-08_JPRB, &
+ & 0.50622E-08_JPRB,0.55621E-08_JPRB,0.77689E-08_JPRB,0.30237E-08_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.28851E-10_JPRB,0.12816E-08_JPRB,0.14656E-08_JPRB,0.17508E-08_JPRB,0.20791E-08_JPRB, &
+ & 0.26542E-08_JPRB,0.34061E-08_JPRB,0.55940E-08_JPRB,0.10876E-08_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.45511E-10_JPRB,0.16747E-08_JPRB,0.18898E-08_JPRB,0.20935E-08_JPRB,0.24841E-08_JPRB, &
+ & 0.29844E-08_JPRB,0.39040E-08_JPRB,0.54988E-08_JPRB,0.13569E-08_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.66972E-10_JPRB,0.21053E-08_JPRB,0.23788E-08_JPRB,0.25750E-08_JPRB,0.28091E-08_JPRB, &
+ & 0.33541E-08_JPRB,0.41474E-08_JPRB,0.59783E-08_JPRB,0.16488E-08_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.92606E-10_JPRB,0.25620E-08_JPRB,0.28952E-08_JPRB,0.31304E-08_JPRB,0.33162E-08_JPRB, &
+ & 0.35801E-08_JPRB,0.45003E-08_JPRB,0.61789E-08_JPRB,0.20293E-08_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.12192E-09_JPRB,0.30226E-08_JPRB,0.34255E-08_JPRB,0.36843E-08_JPRB,0.39084E-08_JPRB, &
+ & 0.41445E-08_JPRB,0.45524E-08_JPRB,0.63605E-08_JPRB,0.24756E-08_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.23621E-10_JPRB,0.10494E-08_JPRB,0.11996E-08_JPRB,0.14331E-08_JPRB,0.17023E-08_JPRB, &
+ & 0.21711E-08_JPRB,0.27844E-08_JPRB,0.45532E-08_JPRB,0.89489E-09_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.37261E-10_JPRB,0.13712E-08_JPRB,0.15471E-08_JPRB,0.17138E-08_JPRB,0.20333E-08_JPRB, &
+ & 0.24433E-08_JPRB,0.31958E-08_JPRB,0.44925E-08_JPRB,0.11124E-08_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.54831E-10_JPRB,0.17238E-08_JPRB,0.19475E-08_JPRB,0.21082E-08_JPRB,0.23003E-08_JPRB, &
+ & 0.27446E-08_JPRB,0.33959E-08_JPRB,0.48947E-08_JPRB,0.13514E-08_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.75799E-10_JPRB,0.20971E-08_JPRB,0.23698E-08_JPRB,0.25624E-08_JPRB,0.27143E-08_JPRB, &
+ & 0.29304E-08_JPRB,0.36822E-08_JPRB,0.50589E-08_JPRB,0.16628E-08_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.99820E-10_JPRB,0.24745E-08_JPRB,0.28041E-08_JPRB,0.30159E-08_JPRB,0.31995E-08_JPRB, &
+ & 0.33924E-08_JPRB,0.37279E-08_JPRB,0.52074E-08_JPRB,0.20270E-08_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.13785E-07_JPRB,0.24738E-06_JPRB,0.32984E-06_JPRB,0.38970E-06_JPRB,0.43737E-06_JPRB, &
+ & 0.50889E-06_JPRB,0.56985E-06_JPRB,0.52821E-06_JPRB,0.22857E-06_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.15768E-07_JPRB,0.27583E-06_JPRB,0.36371E-06_JPRB,0.42333E-06_JPRB,0.46175E-06_JPRB, &
+ & 0.50608E-06_JPRB,0.57108E-06_JPRB,0.57199E-06_JPRB,0.21992E-06_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.17740E-07_JPRB,0.31295E-06_JPRB,0.41668E-06_JPRB,0.48111E-06_JPRB,0.52105E-06_JPRB, &
+ & 0.56257E-06_JPRB,0.61638E-06_JPRB,0.64253E-06_JPRB,0.25630E-06_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.19676E-07_JPRB,0.33378E-06_JPRB,0.43874E-06_JPRB,0.50021E-06_JPRB,0.53506E-06_JPRB, &
+ & 0.56909E-06_JPRB,0.60800E-06_JPRB,0.63155E-06_JPRB,0.24206E-06_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.21537E-07_JPRB,0.36160E-06_JPRB,0.47596E-06_JPRB,0.54056E-06_JPRB,0.57557E-06_JPRB, &
+ & 0.60002E-06_JPRB,0.61606E-06_JPRB,0.61827E-06_JPRB,0.25207E-06_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.10621E-07_JPRB,0.19636E-06_JPRB,0.26336E-06_JPRB,0.31062E-06_JPRB,0.35012E-06_JPRB, &
+ & 0.41219E-06_JPRB,0.46827E-06_JPRB,0.42345E-06_JPRB,0.16044E-06_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.12238E-07_JPRB,0.21970E-06_JPRB,0.28920E-06_JPRB,0.33755E-06_JPRB,0.37073E-06_JPRB, &
+ & 0.41004E-06_JPRB,0.46315E-06_JPRB,0.45777E-06_JPRB,0.15877E-06_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.13863E-07_JPRB,0.24955E-06_JPRB,0.33252E-06_JPRB,0.38359E-06_JPRB,0.41679E-06_JPRB, &
+ & 0.45237E-06_JPRB,0.50277E-06_JPRB,0.51752E-06_JPRB,0.18617E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.15467E-07_JPRB,0.27294E-06_JPRB,0.36292E-06_JPRB,0.41560E-06_JPRB,0.44818E-06_JPRB, &
+ & 0.47909E-06_JPRB,0.51811E-06_JPRB,0.54528E-06_JPRB,0.19311E-06_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.17013E-07_JPRB,0.28946E-06_JPRB,0.38040E-06_JPRB,0.43177E-06_JPRB,0.46055E-06_JPRB, &
+ & 0.48627E-06_JPRB,0.50036E-06_JPRB,0.50711E-06_JPRB,0.19056E-06_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.79041E-08_JPRB,0.15193E-06_JPRB,0.20367E-06_JPRB,0.24255E-06_JPRB,0.27584E-06_JPRB, &
+ & 0.33106E-06_JPRB,0.39018E-06_JPRB,0.33367E-06_JPRB,0.10147E-06_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.92256E-08_JPRB,0.17005E-06_JPRB,0.22457E-06_JPRB,0.26442E-06_JPRB,0.29755E-06_JPRB, &
+ & 0.33937E-06_JPRB,0.38659E-06_JPRB,0.36019E-06_JPRB,0.10982E-06_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.10548E-07_JPRB,0.18874E-06_JPRB,0.24827E-06_JPRB,0.28648E-06_JPRB,0.31109E-06_JPRB, &
+ & 0.33996E-06_JPRB,0.38319E-06_JPRB,0.38934E-06_JPRB,0.11953E-06_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.11869E-07_JPRB,0.21314E-06_JPRB,0.28402E-06_JPRB,0.32565E-06_JPRB,0.35249E-06_JPRB, &
+ & 0.38039E-06_JPRB,0.41637E-06_JPRB,0.43423E-06_JPRB,0.13779E-06_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.13170E-07_JPRB,0.22682E-06_JPRB,0.29805E-06_JPRB,0.33849E-06_JPRB,0.36193E-06_JPRB, &
+ & 0.38387E-06_JPRB,0.41078E-06_JPRB,0.42298E-06_JPRB,0.13819E-06_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.57872E-08_JPRB,0.11704E-06_JPRB,0.15599E-06_JPRB,0.19092E-06_JPRB,0.22043E-06_JPRB, &
+ & 0.26778E-06_JPRB,0.30128E-06_JPRB,0.25769E-06_JPRB,0.68111E-07_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.68505E-08_JPRB,0.13037E-06_JPRB,0.17389E-06_JPRB,0.20556E-06_JPRB,0.23194E-06_JPRB, &
+ & 0.27485E-06_JPRB,0.31447E-06_JPRB,0.28139E-06_JPRB,0.78259E-07_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.79353E-08_JPRB,0.14574E-06_JPRB,0.19135E-06_JPRB,0.22328E-06_JPRB,0.24623E-06_JPRB, &
+ & 0.27497E-06_JPRB,0.31125E-06_JPRB,0.30440E-06_JPRB,0.85397E-07_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.90207E-08_JPRB,0.16075E-06_JPRB,0.21140E-06_JPRB,0.24210E-06_JPRB,0.26199E-06_JPRB, &
+ & 0.28412E-06_JPRB,0.31832E-06_JPRB,0.32424E-06_JPRB,0.93374E-07_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.10099E-07_JPRB,0.18068E-06_JPRB,0.24072E-06_JPRB,0.27515E-06_JPRB,0.29704E-06_JPRB, &
+ & 0.31830E-06_JPRB,0.34575E-06_JPRB,0.36301E-06_JPRB,0.10959E-06_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.42071E-08_JPRB,0.88799E-07_JPRB,0.11974E-06_JPRB,0.15503E-06_JPRB,0.18473E-06_JPRB, &
+ & 0.21750E-06_JPRB,0.23111E-06_JPRB,0.19568E-06_JPRB,0.47645E-07_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.50589E-08_JPRB,0.10003E-06_JPRB,0.13353E-06_JPRB,0.15994E-06_JPRB,0.18265E-06_JPRB, &
+ & 0.22030E-06_JPRB,0.25851E-06_JPRB,0.22196E-06_JPRB,0.56400E-07_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.59363E-08_JPRB,0.11183E-06_JPRB,0.14743E-06_JPRB,0.17446E-06_JPRB,0.19617E-06_JPRB, &
+ & 0.22887E-06_JPRB,0.25813E-06_JPRB,0.23893E-06_JPRB,0.62471E-07_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.68265E-08_JPRB,0.12408E-06_JPRB,0.16316E-06_JPRB,0.18879E-06_JPRB,0.20540E-06_JPRB, &
+ & 0.22681E-06_JPRB,0.25640E-06_JPRB,0.25817E-06_JPRB,0.69233E-07_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.77164E-08_JPRB,0.14022E-06_JPRB,0.18715E-06_JPRB,0.21470E-06_JPRB,0.23265E-06_JPRB, &
+ & 0.25223E-06_JPRB,0.27783E-06_JPRB,0.28837E-06_JPRB,0.82855E-07_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.30108E-08_JPRB,0.66997E-07_JPRB,0.92811E-07_JPRB,0.12074E-06_JPRB,0.15295E-06_JPRB, &
+ & 0.17839E-06_JPRB,0.17246E-06_JPRB,0.14892E-06_JPRB,0.33739E-07_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.36900E-08_JPRB,0.76605E-07_JPRB,0.10196E-06_JPRB,0.12672E-06_JPRB,0.14857E-06_JPRB, &
+ & 0.17805E-06_JPRB,0.19825E-06_JPRB,0.16899E-06_JPRB,0.40438E-07_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.43974E-08_JPRB,0.85358E-07_JPRB,0.11411E-06_JPRB,0.13507E-06_JPRB,0.15283E-06_JPRB, &
+ & 0.18257E-06_JPRB,0.21172E-06_JPRB,0.18597E-06_JPRB,0.46134E-07_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.51213E-08_JPRB,0.95538E-07_JPRB,0.12544E-06_JPRB,0.14691E-06_JPRB,0.16455E-06_JPRB, &
+ & 0.18481E-06_JPRB,0.20979E-06_JPRB,0.20070E-06_JPRB,0.51618E-07_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.58500E-08_JPRB,0.10543E-06_JPRB,0.13870E-06_JPRB,0.15918E-06_JPRB,0.17259E-06_JPRB, &
+ & 0.18830E-06_JPRB,0.21165E-06_JPRB,0.21507E-06_JPRB,0.58184E-07_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.21343E-08_JPRB,0.50731E-07_JPRB,0.73677E-07_JPRB,0.95876E-07_JPRB,0.12180E-06_JPRB, &
+ & 0.14539E-06_JPRB,0.12792E-06_JPRB,0.11548E-06_JPRB,0.24049E-07_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.26695E-08_JPRB,0.57886E-07_JPRB,0.78431E-07_JPRB,0.10179E-06_JPRB,0.12404E-06_JPRB, &
+ & 0.14498E-06_JPRB,0.15075E-06_JPRB,0.12789E-06_JPRB,0.28929E-07_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.32350E-08_JPRB,0.65356E-07_JPRB,0.87120E-07_JPRB,0.10537E-06_JPRB,0.12108E-06_JPRB, &
+ & 0.14722E-06_JPRB,0.16980E-06_JPRB,0.14529E-06_JPRB,0.34426E-07_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.38202E-08_JPRB,0.73009E-07_JPRB,0.96634E-07_JPRB,0.11454E-06_JPRB,0.12893E-06_JPRB, &
+ & 0.15239E-06_JPRB,0.17280E-06_JPRB,0.15699E-06_JPRB,0.38936E-07_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.44151E-08_JPRB,0.81203E-07_JPRB,0.10676E-06_JPRB,0.12425E-06_JPRB,0.13576E-06_JPRB, &
+ & 0.15119E-06_JPRB,0.17122E-06_JPRB,0.16974E-06_JPRB,0.43692E-07_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.15010E-08_JPRB,0.38595E-07_JPRB,0.58295E-07_JPRB,0.77729E-07_JPRB,0.98683E-07_JPRB, &
+ & 0.10992E-06_JPRB,0.95145E-07_JPRB,0.92252E-07_JPRB,0.17319E-07_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.19201E-08_JPRB,0.43791E-07_JPRB,0.61750E-07_JPRB,0.79921E-07_JPRB,0.10136E-06_JPRB, &
+ & 0.11894E-06_JPRB,0.11276E-06_JPRB,0.97846E-07_JPRB,0.20720E-07_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.23693E-08_JPRB,0.50071E-07_JPRB,0.66873E-07_JPRB,0.85063E-07_JPRB,0.10052E-06_JPRB, &
+ & 0.11892E-06_JPRB,0.13009E-06_JPRB,0.11045E-06_JPRB,0.25527E-07_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.28395E-08_JPRB,0.55947E-07_JPRB,0.74757E-07_JPRB,0.88934E-07_JPRB,0.10114E-06_JPRB, &
+ & 0.12142E-06_JPRB,0.14341E-06_JPRB,0.12281E-06_JPRB,0.28938E-07_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.33227E-08_JPRB,0.62620E-07_JPRB,0.82343E-07_JPRB,0.96807E-07_JPRB,0.10922E-06_JPRB, &
+ & 0.12542E-06_JPRB,0.14247E-06_JPRB,0.13252E-06_JPRB,0.32804E-07_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.10437E-08_JPRB,0.30107E-07_JPRB,0.47694E-07_JPRB,0.63218E-07_JPRB,0.80199E-07_JPRB, &
+ & 0.81465E-07_JPRB,0.70748E-07_JPRB,0.72461E-07_JPRB,0.12620E-07_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.13691E-08_JPRB,0.33315E-07_JPRB,0.48674E-07_JPRB,0.63756E-07_JPRB,0.81165E-07_JPRB, &
+ & 0.96892E-07_JPRB,0.83814E-07_JPRB,0.76311E-07_JPRB,0.14799E-07_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.17229E-08_JPRB,0.37985E-07_JPRB,0.51777E-07_JPRB,0.67272E-07_JPRB,0.83770E-07_JPRB, &
+ & 0.97220E-07_JPRB,0.98951E-07_JPRB,0.84136E-07_JPRB,0.18369E-07_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.20990E-08_JPRB,0.43091E-07_JPRB,0.57320E-07_JPRB,0.69933E-07_JPRB,0.81214E-07_JPRB, &
+ & 0.98518E-07_JPRB,0.11188E-06_JPRB,0.95453E-07_JPRB,0.21724E-07_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.24895E-08_JPRB,0.48030E-07_JPRB,0.63808E-07_JPRB,0.75595E-07_JPRB,0.85237E-07_JPRB, &
+ & 0.10122E-06_JPRB,0.11598E-06_JPRB,0.10350E-06_JPRB,0.24792E-07_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.73565E-09_JPRB,0.23201E-07_JPRB,0.38192E-07_JPRB,0.51890E-07_JPRB,0.66677E-07_JPRB, &
+ & 0.60941E-07_JPRB,0.53794E-07_JPRB,0.57060E-07_JPRB,0.95538E-08_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.98838E-09_JPRB,0.25706E-07_JPRB,0.38945E-07_JPRB,0.51950E-07_JPRB,0.65881E-07_JPRB, &
+ & 0.73501E-07_JPRB,0.63459E-07_JPRB,0.61276E-07_JPRB,0.10909E-07_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.12675E-08_JPRB,0.29153E-07_JPRB,0.41180E-07_JPRB,0.53354E-07_JPRB,0.67729E-07_JPRB, &
+ & 0.79616E-07_JPRB,0.75117E-07_JPRB,0.65122E-07_JPRB,0.13531E-07_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.15675E-08_JPRB,0.33329E-07_JPRB,0.44560E-07_JPRB,0.57066E-07_JPRB,0.67627E-07_JPRB, &
+ & 0.79638E-07_JPRB,0.86678E-07_JPRB,0.73448E-07_JPRB,0.16804E-07_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.18817E-08_JPRB,0.37257E-07_JPRB,0.49746E-07_JPRB,0.59306E-07_JPRB,0.67554E-07_JPRB, &
+ & 0.81218E-07_JPRB,0.96337E-07_JPRB,0.82154E-07_JPRB,0.18958E-07_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.60140E-09_JPRB,0.19007E-07_JPRB,0.31253E-07_JPRB,0.42433E-07_JPRB,0.54566E-07_JPRB, &
+ & 0.50044E-07_JPRB,0.44177E-07_JPRB,0.46695E-07_JPRB,0.77009E-08_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.80782E-09_JPRB,0.21033E-07_JPRB,0.31865E-07_JPRB,0.42505E-07_JPRB,0.53930E-07_JPRB, &
+ & 0.60271E-07_JPRB,0.51969E-07_JPRB,0.49836E-07_JPRB,0.88971E-08_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.10365E-08_JPRB,0.23860E-07_JPRB,0.33711E-07_JPRB,0.43668E-07_JPRB,0.55447E-07_JPRB, &
+ & 0.65129E-07_JPRB,0.61514E-07_JPRB,0.53242E-07_JPRB,0.11044E-07_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.12819E-08_JPRB,0.27278E-07_JPRB,0.36477E-07_JPRB,0.46671E-07_JPRB,0.55334E-07_JPRB, &
+ & 0.65191E-07_JPRB,0.70955E-07_JPRB,0.60123E-07_JPRB,0.13732E-07_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.15394E-08_JPRB,0.30488E-07_JPRB,0.40723E-07_JPRB,0.48551E-07_JPRB,0.55301E-07_JPRB, &
+ & 0.66490E-07_JPRB,0.78877E-07_JPRB,0.67264E-07_JPRB,0.15488E-07_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.49234E-09_JPRB,0.15554E-07_JPRB,0.25575E-07_JPRB,0.34616E-07_JPRB,0.44615E-07_JPRB, &
+ & 0.41056E-07_JPRB,0.36097E-07_JPRB,0.38091E-07_JPRB,0.62448E-08_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.66141E-09_JPRB,0.17225E-07_JPRB,0.26080E-07_JPRB,0.34787E-07_JPRB,0.44118E-07_JPRB, &
+ & 0.49432E-07_JPRB,0.42531E-07_JPRB,0.40718E-07_JPRB,0.72624E-08_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.84839E-09_JPRB,0.19539E-07_JPRB,0.27604E-07_JPRB,0.35754E-07_JPRB,0.45370E-07_JPRB, &
+ & 0.53306E-07_JPRB,0.50418E-07_JPRB,0.43565E-07_JPRB,0.90256E-08_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.10495E-08_JPRB,0.22342E-07_JPRB,0.29867E-07_JPRB,0.38196E-07_JPRB,0.45322E-07_JPRB, &
+ & 0.53368E-07_JPRB,0.58112E-07_JPRB,0.49244E-07_JPRB,0.11197E-07_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.12604E-08_JPRB,0.24969E-07_JPRB,0.33348E-07_JPRB,0.39742E-07_JPRB,0.45269E-07_JPRB, &
+ & 0.54454E-07_JPRB,0.64580E-07_JPRB,0.55079E-07_JPRB,0.12657E-07_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.40306E-09_JPRB,0.12738E-07_JPRB,0.20936E-07_JPRB,0.28312E-07_JPRB,0.36505E-07_JPRB, &
+ & 0.33674E-07_JPRB,0.29525E-07_JPRB,0.31139E-07_JPRB,0.51040E-08_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.54151E-09_JPRB,0.14106E-07_JPRB,0.21346E-07_JPRB,0.28471E-07_JPRB,0.36139E-07_JPRB, &
+ & 0.40516E-07_JPRB,0.34830E-07_JPRB,0.33325E-07_JPRB,0.59425E-08_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.69468E-09_JPRB,0.15999E-07_JPRB,0.22600E-07_JPRB,0.29268E-07_JPRB,0.37150E-07_JPRB, &
+ & 0.43635E-07_JPRB,0.41297E-07_JPRB,0.35646E-07_JPRB,0.73862E-08_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.85913E-09_JPRB,0.18290E-07_JPRB,0.24452E-07_JPRB,0.31282E-07_JPRB,0.37096E-07_JPRB, &
+ & 0.43709E-07_JPRB,0.47585E-07_JPRB,0.40319E-07_JPRB,0.91581E-08_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.10319E-08_JPRB,0.20440E-07_JPRB,0.27299E-07_JPRB,0.32532E-07_JPRB,0.37047E-07_JPRB, &
+ & 0.44575E-07_JPRB,0.52880E-07_JPRB,0.45086E-07_JPRB,0.10367E-07_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.77542E-07_JPRB,0.72331E-06_JPRB,0.98561E-06_JPRB,0.11860E-05_JPRB,0.13497E-05_JPRB, &
+ & 0.13448E-05_JPRB,0.13214E-05_JPRB,0.14401E-05_JPRB,0.51217E-06_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.83965E-07_JPRB,0.81202E-06_JPRB,0.11096E-05_JPRB,0.13150E-05_JPRB,0.14966E-05_JPRB, &
+ & 0.14837E-05_JPRB,0.13715E-05_JPRB,0.14446E-05_JPRB,0.53558E-06_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.89893E-07_JPRB,0.91147E-06_JPRB,0.12494E-05_JPRB,0.14817E-05_JPRB,0.16581E-05_JPRB, &
+ & 0.16379E-05_JPRB,0.14913E-05_JPRB,0.13540E-05_JPRB,0.57527E-06_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.95336E-07_JPRB,0.98977E-06_JPRB,0.13580E-05_JPRB,0.16044E-05_JPRB,0.17602E-05_JPRB, &
+ & 0.17289E-05_JPRB,0.15601E-05_JPRB,0.13435E-05_JPRB,0.60153E-06_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.10024E-06_JPRB,0.10817E-05_JPRB,0.14820E-05_JPRB,0.17354E-05_JPRB,0.18806E-05_JPRB, &
+ & 0.18468E-05_JPRB,0.16817E-05_JPRB,0.14550E-05_JPRB,0.63092E-06_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.61222E-07_JPRB,0.57382E-06_JPRB,0.78272E-06_JPRB,0.94950E-06_JPRB,0.10796E-05_JPRB, &
+ & 0.10829E-05_JPRB,0.10794E-05_JPRB,0.12292E-05_JPRB,0.35440E-06_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.66652E-07_JPRB,0.64604E-06_JPRB,0.88511E-06_JPRB,0.10523E-05_JPRB,0.12028E-05_JPRB, &
+ & 0.11924E-05_JPRB,0.11103E-05_JPRB,0.11987E-05_JPRB,0.38232E-06_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.71672E-07_JPRB,0.73084E-06_JPRB,0.10012E-05_JPRB,0.11880E-05_JPRB,0.13384E-05_JPRB, &
+ & 0.13220E-05_JPRB,0.12030E-05_JPRB,0.11381E-05_JPRB,0.43262E-06_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.76301E-07_JPRB,0.80259E-06_JPRB,0.11033E-05_JPRB,0.13071E-05_JPRB,0.14343E-05_JPRB, &
+ & 0.14171E-05_JPRB,0.12785E-05_JPRB,0.11080E-05_JPRB,0.46030E-06_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.80500E-07_JPRB,0.87105E-06_JPRB,0.11939E-05_JPRB,0.14005E-05_JPRB,0.15153E-05_JPRB, &
+ & 0.14864E-05_JPRB,0.13529E-05_JPRB,0.11688E-05_JPRB,0.48117E-06_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.47304E-07_JPRB,0.44051E-06_JPRB,0.60584E-06_JPRB,0.74769E-06_JPRB,0.84468E-06_JPRB, &
+ & 0.85077E-06_JPRB,0.85665E-06_JPRB,0.10494E-05_JPRB,0.24668E-06_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.51943E-07_JPRB,0.50181E-06_JPRB,0.68762E-06_JPRB,0.82034E-06_JPRB,0.93657E-06_JPRB, &
+ & 0.92789E-06_JPRB,0.88766E-06_JPRB,0.99297E-06_JPRB,0.26836E-06_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.56252E-07_JPRB,0.56363E-06_JPRB,0.77259E-06_JPRB,0.91469E-06_JPRB,0.10403E-05_JPRB, &
+ & 0.10243E-05_JPRB,0.93713E-06_JPRB,0.99098E-06_JPRB,0.29882E-06_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.60224E-07_JPRB,0.63130E-06_JPRB,0.86724E-06_JPRB,0.10288E-05_JPRB,0.11344E-05_JPRB, &
+ & 0.11222E-05_JPRB,0.10162E-05_JPRB,0.91320E-06_JPRB,0.33854E-06_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.63868E-07_JPRB,0.68673E-06_JPRB,0.94084E-06_JPRB,0.11069E-05_JPRB,0.12001E-05_JPRB, &
+ & 0.11819E-05_JPRB,0.10625E-05_JPRB,0.91639E-06_JPRB,0.36042E-06_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.36151E-07_JPRB,0.33292E-06_JPRB,0.46957E-06_JPRB,0.57176E-06_JPRB,0.64965E-06_JPRB, &
+ & 0.66578E-06_JPRB,0.71030E-06_JPRB,0.90686E-06_JPRB,0.17407E-06_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.40107E-07_JPRB,0.38424E-06_JPRB,0.52571E-06_JPRB,0.63554E-06_JPRB,0.72553E-06_JPRB, &
+ & 0.72856E-06_JPRB,0.72697E-06_JPRB,0.84339E-06_JPRB,0.19253E-06_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.43816E-07_JPRB,0.43401E-06_JPRB,0.59546E-06_JPRB,0.70644E-06_JPRB,0.80752E-06_JPRB, &
+ & 0.79519E-06_JPRB,0.74520E-06_JPRB,0.81506E-06_JPRB,0.21830E-06_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.47242E-07_JPRB,0.48695E-06_JPRB,0.66577E-06_JPRB,0.78531E-06_JPRB,0.87970E-06_JPRB, &
+ & 0.86799E-06_JPRB,0.78705E-06_JPRB,0.76812E-06_JPRB,0.24161E-06_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.50394E-07_JPRB,0.54183E-06_JPRB,0.74240E-06_JPRB,0.87572E-06_JPRB,0.95669E-06_JPRB, &
+ & 0.94640E-06_JPRB,0.85379E-06_JPRB,0.74722E-06_JPRB,0.28102E-06_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.27462E-07_JPRB,0.25134E-06_JPRB,0.35698E-06_JPRB,0.43146E-06_JPRB,0.48552E-06_JPRB, &
+ & 0.53177E-06_JPRB,0.62976E-06_JPRB,0.75904E-06_JPRB,0.12452E-06_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.30835E-07_JPRB,0.29261E-06_JPRB,0.40164E-06_JPRB,0.49701E-06_JPRB,0.56250E-06_JPRB, &
+ & 0.56722E-06_JPRB,0.57761E-06_JPRB,0.72004E-06_JPRB,0.13996E-06_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.33997E-07_JPRB,0.33394E-06_JPRB,0.45684E-06_JPRB,0.54380E-06_JPRB,0.62140E-06_JPRB, &
+ & 0.61241E-06_JPRB,0.60037E-06_JPRB,0.67265E-06_JPRB,0.16106E-06_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.36946E-07_JPRB,0.37590E-06_JPRB,0.51390E-06_JPRB,0.60628E-06_JPRB,0.69027E-06_JPRB, &
+ & 0.67692E-06_JPRB,0.62237E-06_JPRB,0.67035E-06_JPRB,0.18128E-06_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.39670E-07_JPRB,0.42211E-06_JPRB,0.57710E-06_JPRB,0.68190E-06_JPRB,0.75209E-06_JPRB, &
+ & 0.74450E-06_JPRB,0.67496E-06_JPRB,0.61709E-06_JPRB,0.21416E-06_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.20602E-07_JPRB,0.18703E-06_JPRB,0.26972E-06_JPRB,0.33456E-06_JPRB,0.36532E-06_JPRB, &
+ & 0.42767E-06_JPRB,0.56721E-06_JPRB,0.66482E-06_JPRB,0.87936E-07_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.23484E-07_JPRB,0.21971E-06_JPRB,0.30953E-06_JPRB,0.37643E-06_JPRB,0.42627E-06_JPRB, &
+ & 0.44517E-06_JPRB,0.48560E-06_JPRB,0.61604E-06_JPRB,0.10185E-06_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.26181E-07_JPRB,0.25382E-06_JPRB,0.34607E-06_JPRB,0.41971E-06_JPRB,0.47851E-06_JPRB, &
+ & 0.48129E-06_JPRB,0.48156E-06_JPRB,0.56916E-06_JPRB,0.11864E-06_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.28705E-07_JPRB,0.28735E-06_JPRB,0.39181E-06_JPRB,0.46499E-06_JPRB,0.52971E-06_JPRB, &
+ & 0.52262E-06_JPRB,0.49397E-06_JPRB,0.54792E-06_JPRB,0.13605E-06_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.31065E-07_JPRB,0.32265E-06_JPRB,0.43948E-06_JPRB,0.51712E-06_JPRB,0.58131E-06_JPRB, &
+ & 0.57275E-06_JPRB,0.52154E-06_JPRB,0.53300E-06_JPRB,0.15326E-06_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.15315E-07_JPRB,0.13867E-06_JPRB,0.20497E-06_JPRB,0.25791E-06_JPRB,0.28251E-06_JPRB, &
+ & 0.36209E-06_JPRB,0.48615E-06_JPRB,0.57617E-06_JPRB,0.62083E-07_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.17770E-07_JPRB,0.16467E-06_JPRB,0.23430E-06_JPRB,0.28445E-06_JPRB,0.31749E-06_JPRB, &
+ & 0.35373E-06_JPRB,0.43530E-06_JPRB,0.51750E-06_JPRB,0.74598E-07_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.20071E-07_JPRB,0.19194E-06_JPRB,0.26349E-06_JPRB,0.32575E-06_JPRB,0.37090E-06_JPRB, &
+ & 0.37391E-06_JPRB,0.38838E-06_JPRB,0.49613E-06_JPRB,0.88392E-07_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.22230E-07_JPRB,0.21953E-06_JPRB,0.29840E-06_JPRB,0.35680E-06_JPRB,0.40841E-06_JPRB, &
+ & 0.40516E-06_JPRB,0.40513E-06_JPRB,0.45518E-06_JPRB,0.10149E-06_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.24244E-07_JPRB,0.24730E-06_JPRB,0.33583E-06_JPRB,0.39740E-06_JPRB,0.45364E-06_JPRB, &
+ & 0.44496E-06_JPRB,0.41471E-06_JPRB,0.45022E-06_JPRB,0.11554E-06_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.11318E-07_JPRB,0.10309E-06_JPRB,0.15679E-06_JPRB,0.19765E-06_JPRB,0.22300E-06_JPRB, &
+ & 0.30242E-06_JPRB,0.40824E-06_JPRB,0.49442E-06_JPRB,0.44061E-07_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.13358E-07_JPRB,0.12273E-06_JPRB,0.17705E-06_JPRB,0.22062E-06_JPRB,0.24115E-06_JPRB, &
+ & 0.28999E-06_JPRB,0.39012E-06_JPRB,0.45451E-06_JPRB,0.54847E-07_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.15323E-07_JPRB,0.14448E-06_JPRB,0.20316E-06_JPRB,0.24566E-06_JPRB,0.27787E-06_JPRB, &
+ & 0.29655E-06_JPRB,0.33237E-06_JPRB,0.41480E-06_JPRB,0.64157E-07_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.17158E-07_JPRB,0.16673E-06_JPRB,0.22673E-06_JPRB,0.27760E-06_JPRB,0.31491E-06_JPRB, &
+ & 0.31778E-06_JPRB,0.31818E-06_JPRB,0.38422E-06_JPRB,0.75698E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.18880E-07_JPRB,0.18905E-06_JPRB,0.25711E-06_JPRB,0.30558E-06_JPRB,0.34820E-06_JPRB, &
+ & 0.34226E-06_JPRB,0.32757E-06_JPRB,0.36903E-06_JPRB,0.87559E-07_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.83060E-08_JPRB,0.76710E-07_JPRB,0.11565E-06_JPRB,0.14764E-06_JPRB,0.17329E-06_JPRB, &
+ & 0.25783E-06_JPRB,0.35957E-06_JPRB,0.41243E-06_JPRB,0.31797E-07_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.99651E-08_JPRB,0.91242E-07_JPRB,0.13632E-06_JPRB,0.17065E-06_JPRB,0.18967E-06_JPRB, &
+ & 0.24393E-06_JPRB,0.32914E-06_JPRB,0.39160E-06_JPRB,0.39225E-07_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.11621E-07_JPRB,0.10845E-06_JPRB,0.15426E-06_JPRB,0.18813E-06_JPRB,0.20803E-06_JPRB, &
+ & 0.23565E-06_JPRB,0.29600E-06_JPRB,0.35083E-06_JPRB,0.47417E-07_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.13182E-07_JPRB,0.12617E-06_JPRB,0.17363E-06_JPRB,0.21434E-06_JPRB,0.24338E-06_JPRB, &
+ & 0.24767E-06_JPRB,0.26174E-06_JPRB,0.33967E-06_JPRB,0.56851E-07_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.14647E-07_JPRB,0.14462E-06_JPRB,0.19609E-06_JPRB,0.23554E-06_JPRB,0.26966E-06_JPRB, &
+ & 0.27000E-06_JPRB,0.26860E-06_JPRB,0.30941E-06_JPRB,0.65848E-07_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.61513E-08_JPRB,0.59201E-07_JPRB,0.89564E-07_JPRB,0.11096E-06_JPRB,0.13963E-06_JPRB, &
+ & 0.22868E-06_JPRB,0.30519E-06_JPRB,0.34949E-06_JPRB,0.23910E-07_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.74969E-08_JPRB,0.68921E-07_JPRB,0.10513E-06_JPRB,0.13256E-06_JPRB,0.14959E-06_JPRB, &
+ & 0.20339E-06_JPRB,0.27500E-06_JPRB,0.33281E-06_JPRB,0.28611E-07_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.88625E-08_JPRB,0.82016E-07_JPRB,0.11818E-06_JPRB,0.14725E-06_JPRB,0.16097E-06_JPRB, &
+ & 0.19608E-06_JPRB,0.26185E-06_JPRB,0.30530E-06_JPRB,0.35935E-07_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.10184E-07_JPRB,0.96432E-07_JPRB,0.13542E-06_JPRB,0.16348E-06_JPRB,0.18477E-06_JPRB, &
+ & 0.19886E-06_JPRB,0.22449E-06_JPRB,0.27787E-06_JPRB,0.42133E-07_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.11421E-07_JPRB,0.11117E-06_JPRB,0.15107E-06_JPRB,0.18528E-06_JPRB,0.21005E-06_JPRB, &
+ & 0.21209E-06_JPRB,0.21257E-06_JPRB,0.25796E-06_JPRB,0.49988E-07_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.50310E-08_JPRB,0.48563E-07_JPRB,0.73473E-07_JPRB,0.91094E-07_JPRB,0.11455E-06_JPRB, &
+ & 0.18734E-06_JPRB,0.24995E-06_JPRB,0.28620E-06_JPRB,0.19440E-07_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.61304E-08_JPRB,0.56532E-07_JPRB,0.86340E-07_JPRB,0.10878E-06_JPRB,0.12244E-06_JPRB, &
+ & 0.16646E-06_JPRB,0.22541E-06_JPRB,0.27316E-06_JPRB,0.23338E-07_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.72491E-08_JPRB,0.67226E-07_JPRB,0.96798E-07_JPRB,0.12061E-06_JPRB,0.13181E-06_JPRB, &
+ & 0.16043E-06_JPRB,0.21436E-06_JPRB,0.24928E-06_JPRB,0.29352E-07_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.83326E-08_JPRB,0.78998E-07_JPRB,0.11085E-06_JPRB,0.13391E-06_JPRB,0.15135E-06_JPRB, &
+ & 0.16281E-06_JPRB,0.18360E-06_JPRB,0.22741E-06_JPRB,0.34425E-07_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.93458E-08_JPRB,0.91055E-07_JPRB,0.12364E-06_JPRB,0.15181E-06_JPRB,0.17196E-06_JPRB, &
+ & 0.17367E-06_JPRB,0.17400E-06_JPRB,0.21108E-06_JPRB,0.40855E-07_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.41189E-08_JPRB,0.39856E-07_JPRB,0.60140E-07_JPRB,0.74963E-07_JPRB,0.94012E-07_JPRB, &
+ & 0.15333E-06_JPRB,0.20441E-06_JPRB,0.23474E-06_JPRB,0.15853E-07_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.50193E-08_JPRB,0.46348E-07_JPRB,0.70855E-07_JPRB,0.89301E-07_JPRB,0.10040E-06_JPRB, &
+ & 0.13626E-06_JPRB,0.18429E-06_JPRB,0.22399E-06_JPRB,0.19078E-07_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.59344E-08_JPRB,0.55100E-07_JPRB,0.79255E-07_JPRB,0.98783E-07_JPRB,0.10799E-06_JPRB, &
+ & 0.13125E-06_JPRB,0.17544E-06_JPRB,0.20357E-06_JPRB,0.24013E-07_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.68228E-08_JPRB,0.64743E-07_JPRB,0.90843E-07_JPRB,0.10971E-06_JPRB,0.12396E-06_JPRB, &
+ & 0.13321E-06_JPRB,0.15026E-06_JPRB,0.18611E-06_JPRB,0.28198E-07_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.76512E-08_JPRB,0.74591E-07_JPRB,0.10123E-06_JPRB,0.12433E-06_JPRB,0.14085E-06_JPRB, &
+ & 0.14222E-06_JPRB,0.14246E-06_JPRB,0.17276E-06_JPRB,0.33441E-07_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.33724E-08_JPRB,0.32680E-07_JPRB,0.49222E-07_JPRB,0.61513E-07_JPRB,0.77133E-07_JPRB, &
+ & 0.12555E-06_JPRB,0.16713E-06_JPRB,0.19233E-06_JPRB,0.12966E-07_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.41100E-08_JPRB,0.37987E-07_JPRB,0.58121E-07_JPRB,0.73233E-07_JPRB,0.82218E-07_JPRB, &
+ & 0.11156E-06_JPRB,0.15077E-06_JPRB,0.18269E-06_JPRB,0.15614E-07_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.48589E-08_JPRB,0.45157E-07_JPRB,0.64912E-07_JPRB,0.80902E-07_JPRB,0.88466E-07_JPRB, &
+ & 0.10747E-06_JPRB,0.14360E-06_JPRB,0.16616E-06_JPRB,0.19653E-07_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.55845E-08_JPRB,0.53032E-07_JPRB,0.74357E-07_JPRB,0.89835E-07_JPRB,0.10150E-06_JPRB, &
+ & 0.10902E-06_JPRB,0.12309E-06_JPRB,0.15231E-06_JPRB,0.23083E-07_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.62642E-08_JPRB,0.61086E-07_JPRB,0.82886E-07_JPRB,0.10172E-06_JPRB,0.11529E-06_JPRB, &
+ & 0.11645E-06_JPRB,0.11667E-06_JPRB,0.14140E-06_JPRB,0.27368E-07_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.38523E-06_JPRB,0.18405E-05_JPRB,0.24561E-05_JPRB,0.26688E-05_JPRB,0.26627E-05_JPRB, &
+ & 0.26678E-05_JPRB,0.26221E-05_JPRB,0.23434E-05_JPRB,0.10243E-05_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.41258E-06_JPRB,0.20340E-05_JPRB,0.26799E-05_JPRB,0.29289E-05_JPRB,0.29138E-05_JPRB, &
+ & 0.29293E-05_JPRB,0.29106E-05_JPRB,0.25138E-05_JPRB,0.11179E-05_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.43826E-06_JPRB,0.22391E-05_JPRB,0.29055E-05_JPRB,0.31733E-05_JPRB,0.31848E-05_JPRB, &
+ & 0.32210E-05_JPRB,0.31726E-05_JPRB,0.29277E-05_JPRB,0.13122E-05_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.46214E-06_JPRB,0.24098E-05_JPRB,0.30735E-05_JPRB,0.33543E-05_JPRB,0.34157E-05_JPRB, &
+ & 0.34436E-05_JPRB,0.34008E-05_JPRB,0.32157E-05_JPRB,0.14111E-05_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.48360E-06_JPRB,0.25684E-05_JPRB,0.32470E-05_JPRB,0.35527E-05_JPRB,0.36650E-05_JPRB, &
+ & 0.37054E-05_JPRB,0.36463E-05_JPRB,0.35130E-05_JPRB,0.16128E-05_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.30632E-06_JPRB,0.14811E-05_JPRB,0.19813E-05_JPRB,0.21525E-05_JPRB,0.21480E-05_JPRB, &
+ & 0.21651E-05_JPRB,0.21352E-05_JPRB,0.19097E-05_JPRB,0.76078E-06_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.32924E-06_JPRB,0.16454E-05_JPRB,0.21736E-05_JPRB,0.23701E-05_JPRB,0.23496E-05_JPRB, &
+ & 0.23721E-05_JPRB,0.23664E-05_JPRB,0.20501E-05_JPRB,0.85884E-06_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.35084E-06_JPRB,0.18164E-05_JPRB,0.23625E-05_JPRB,0.25754E-05_JPRB,0.25799E-05_JPRB, &
+ & 0.26089E-05_JPRB,0.25758E-05_JPRB,0.23569E-05_JPRB,0.98156E-06_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.37092E-06_JPRB,0.19724E-05_JPRB,0.25182E-05_JPRB,0.27461E-05_JPRB,0.27987E-05_JPRB, &
+ & 0.28122E-05_JPRB,0.27766E-05_JPRB,0.26535E-05_JPRB,0.11297E-05_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.38936E-06_JPRB,0.20952E-05_JPRB,0.26519E-05_JPRB,0.29005E-05_JPRB,0.29889E-05_JPRB, &
+ & 0.30120E-05_JPRB,0.29564E-05_JPRB,0.28641E-05_JPRB,0.12488E-05_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.23924E-06_JPRB,0.11590E-05_JPRB,0.15536E-05_JPRB,0.16834E-05_JPRB,0.16891E-05_JPRB, &
+ & 0.17668E-05_JPRB,0.16904E-05_JPRB,0.15951E-05_JPRB,0.52632E-06_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.25864E-06_JPRB,0.12971E-05_JPRB,0.17221E-05_JPRB,0.18731E-05_JPRB,0.18563E-05_JPRB, &
+ & 0.18804E-05_JPRB,0.18628E-05_JPRB,0.16576E-05_JPRB,0.62738E-06_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.27696E-06_JPRB,0.14325E-05_JPRB,0.18710E-05_JPRB,0.20345E-05_JPRB,0.20276E-05_JPRB, &
+ & 0.20548E-05_JPRB,0.20259E-05_JPRB,0.17837E-05_JPRB,0.70461E-06_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.29413E-06_JPRB,0.15757E-05_JPRB,0.20191E-05_JPRB,0.22050E-05_JPRB,0.22319E-05_JPRB, &
+ & 0.22354E-05_JPRB,0.22195E-05_JPRB,0.20885E-05_JPRB,0.84521E-06_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.31013E-06_JPRB,0.16829E-05_JPRB,0.21333E-05_JPRB,0.23274E-05_JPRB,0.23871E-05_JPRB, &
+ & 0.23939E-05_JPRB,0.23475E-05_JPRB,0.22805E-05_JPRB,0.93762E-06_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.18537E-06_JPRB,0.89469E-06_JPRB,0.11953E-05_JPRB,0.13099E-05_JPRB,0.13271E-05_JPRB, &
+ & 0.13910E-05_JPRB,0.13233E-05_JPRB,0.12842E-05_JPRB,0.37595E-06_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.20178E-06_JPRB,0.10096E-05_JPRB,0.13476E-05_JPRB,0.14636E-05_JPRB,0.14567E-05_JPRB, &
+ & 0.14730E-05_JPRB,0.14642E-05_JPRB,0.13131E-05_JPRB,0.45273E-06_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.21732E-06_JPRB,0.11251E-05_JPRB,0.14779E-05_JPRB,0.16107E-05_JPRB,0.15945E-05_JPRB, &
+ & 0.16194E-05_JPRB,0.16016E-05_JPRB,0.14026E-05_JPRB,0.52023E-06_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.23198E-06_JPRB,0.12348E-05_JPRB,0.15955E-05_JPRB,0.17391E-05_JPRB,0.17432E-05_JPRB, &
+ & 0.17515E-05_JPRB,0.17226E-05_JPRB,0.15707E-05_JPRB,0.60921E-06_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.24566E-06_JPRB,0.13471E-05_JPRB,0.17138E-05_JPRB,0.18677E-05_JPRB,0.19071E-05_JPRB, &
+ & 0.19021E-05_JPRB,0.18647E-05_JPRB,0.18054E-05_JPRB,0.72437E-06_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.14315E-06_JPRB,0.68654E-06_JPRB,0.91703E-06_JPRB,0.10136E-05_JPRB,0.10640E-05_JPRB, &
+ & 0.10899E-05_JPRB,0.10066E-05_JPRB,0.10387E-05_JPRB,0.27115E-06_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.15693E-06_JPRB,0.78124E-06_JPRB,0.10460E-05_JPRB,0.11319E-05_JPRB,0.11350E-05_JPRB, &
+ & 0.11836E-05_JPRB,0.11463E-05_JPRB,0.10954E-05_JPRB,0.33462E-06_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.17013E-06_JPRB,0.87619E-06_JPRB,0.11607E-05_JPRB,0.12633E-05_JPRB,0.12502E-05_JPRB, &
+ & 0.12683E-05_JPRB,0.12476E-05_JPRB,0.11184E-05_JPRB,0.38421E-06_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.18255E-06_JPRB,0.96990E-06_JPRB,0.12617E-05_JPRB,0.13726E-05_JPRB,0.13641E-05_JPRB, &
+ & 0.13787E-05_JPRB,0.13521E-05_JPRB,0.11952E-05_JPRB,0.45446E-06_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.19427E-06_JPRB,0.10668E-05_JPRB,0.13642E-05_JPRB,0.14869E-05_JPRB,0.15021E-05_JPRB, &
+ & 0.14945E-05_JPRB,0.14801E-05_JPRB,0.13920E-05_JPRB,0.54371E-06_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.10978E-06_JPRB,0.52395E-06_JPRB,0.69476E-06_JPRB,0.76850E-06_JPRB,0.83675E-06_JPRB, &
+ & 0.86491E-06_JPRB,0.77625E-06_JPRB,0.85871E-06_JPRB,0.19533E-06_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.12132E-06_JPRB,0.59825E-06_JPRB,0.79672E-06_JPRB,0.87685E-06_JPRB,0.88945E-06_JPRB, &
+ & 0.93176E-06_JPRB,0.88241E-06_JPRB,0.87959E-06_JPRB,0.24185E-06_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.13245E-06_JPRB,0.67730E-06_JPRB,0.90458E-06_JPRB,0.97978E-06_JPRB,0.97457E-06_JPRB, &
+ & 0.98659E-06_JPRB,0.98199E-06_JPRB,0.88654E-06_JPRB,0.28188E-06_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.14304E-06_JPRB,0.75520E-06_JPRB,0.99285E-06_JPRB,0.10803E-05_JPRB,0.10647E-05_JPRB, &
+ & 0.10764E-05_JPRB,0.10623E-05_JPRB,0.93315E-06_JPRB,0.33738E-06_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.15298E-06_JPRB,0.83133E-06_JPRB,0.10714E-05_JPRB,0.11654E-05_JPRB,0.11612E-05_JPRB, &
+ & 0.11628E-05_JPRB,0.11409E-05_JPRB,0.10211E-05_JPRB,0.39343E-06_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.83795E-07_JPRB,0.39583E-06_JPRB,0.52221E-06_JPRB,0.57623E-06_JPRB,0.66801E-06_JPRB, &
+ & 0.68350E-06_JPRB,0.61427E-06_JPRB,0.74508E-06_JPRB,0.14027E-06_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.93456E-07_JPRB,0.45651E-06_JPRB,0.60707E-06_JPRB,0.67267E-06_JPRB,0.70886E-06_JPRB, &
+ & 0.72875E-06_JPRB,0.66655E-06_JPRB,0.70837E-06_JPRB,0.17333E-06_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.10278E-06_JPRB,0.52065E-06_JPRB,0.69548E-06_JPRB,0.75346E-06_JPRB,0.75243E-06_JPRB, &
+ & 0.79752E-06_JPRB,0.76130E-06_JPRB,0.73768E-06_JPRB,0.20746E-06_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.11172E-06_JPRB,0.58539E-06_JPRB,0.77614E-06_JPRB,0.84147E-06_JPRB,0.82956E-06_JPRB, &
+ & 0.83892E-06_JPRB,0.81830E-06_JPRB,0.74649E-06_JPRB,0.24711E-06_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.12020E-06_JPRB,0.64890E-06_JPRB,0.84430E-06_JPRB,0.91375E-06_JPRB,0.90365E-06_JPRB, &
+ & 0.91211E-06_JPRB,0.89073E-06_JPRB,0.78796E-06_JPRB,0.29290E-06_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.63771E-07_JPRB,0.29724E-06_JPRB,0.38901E-06_JPRB,0.42952E-06_JPRB,0.53569E-06_JPRB, &
+ & 0.52739E-06_JPRB,0.51421E-06_JPRB,0.65416E-06_JPRB,0.10106E-06_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.71835E-07_JPRB,0.34855E-06_JPRB,0.45895E-06_JPRB,0.50927E-06_JPRB,0.55878E-06_JPRB, &
+ & 0.57413E-06_JPRB,0.51386E-06_JPRB,0.58703E-06_JPRB,0.12396E-06_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.79626E-07_JPRB,0.39836E-06_JPRB,0.52930E-06_JPRB,0.58238E-06_JPRB,0.59321E-06_JPRB, &
+ & 0.61917E-06_JPRB,0.58275E-06_JPRB,0.59574E-06_JPRB,0.15556E-06_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.87141E-07_JPRB,0.45236E-06_JPRB,0.60287E-06_JPRB,0.64978E-06_JPRB,0.64621E-06_JPRB, &
+ & 0.65548E-06_JPRB,0.65037E-06_JPRB,0.59243E-06_JPRB,0.18170E-06_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.94308E-07_JPRB,0.50478E-06_JPRB,0.66216E-06_JPRB,0.71791E-06_JPRB,0.70542E-06_JPRB, &
+ & 0.71265E-06_JPRB,0.70440E-06_JPRB,0.61750E-06_JPRB,0.21806E-06_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.48334E-07_JPRB,0.22150E-06_JPRB,0.29066E-06_JPRB,0.32650E-06_JPRB,0.41774E-06_JPRB, &
+ & 0.40737E-06_JPRB,0.44502E-06_JPRB,0.56524E-06_JPRB,0.72879E-07_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.54994E-07_JPRB,0.26340E-06_JPRB,0.34441E-06_JPRB,0.38160E-06_JPRB,0.44410E-06_JPRB, &
+ & 0.45746E-06_JPRB,0.41390E-06_JPRB,0.50482E-06_JPRB,0.89924E-07_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.61501E-07_JPRB,0.30416E-06_JPRB,0.40299E-06_JPRB,0.44693E-06_JPRB,0.47253E-06_JPRB, &
+ & 0.48623E-06_JPRB,0.44624E-06_JPRB,0.47646E-06_JPRB,0.11220E-06_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.67792E-07_JPRB,0.34758E-06_JPRB,0.46191E-06_JPRB,0.50102E-06_JPRB,0.50055E-06_JPRB, &
+ & 0.52975E-06_JPRB,0.50335E-06_JPRB,0.48665E-06_JPRB,0.13456E-06_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.73830E-07_JPRB,0.39095E-06_JPRB,0.51738E-06_JPRB,0.55894E-06_JPRB,0.55048E-06_JPRB, &
+ & 0.55492E-06_JPRB,0.54317E-06_JPRB,0.49144E-06_JPRB,0.16088E-06_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.36931E-07_JPRB,0.16614E-06_JPRB,0.21895E-06_JPRB,0.26116E-06_JPRB,0.33023E-06_JPRB, &
+ & 0.31438E-06_JPRB,0.35810E-06_JPRB,0.46819E-06_JPRB,0.53649E-07_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.42386E-07_JPRB,0.20028E-06_JPRB,0.26120E-06_JPRB,0.28858E-06_JPRB,0.36090E-06_JPRB, &
+ & 0.35506E-06_JPRB,0.34639E-06_JPRB,0.43640E-06_JPRB,0.66551E-07_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.47801E-07_JPRB,0.23474E-06_JPRB,0.30842E-06_JPRB,0.34242E-06_JPRB,0.37552E-06_JPRB, &
+ & 0.38348E-06_JPRB,0.34637E-06_JPRB,0.39519E-06_JPRB,0.81897E-07_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.53030E-07_JPRB,0.26856E-06_JPRB,0.35532E-06_JPRB,0.39019E-06_JPRB,0.39727E-06_JPRB, &
+ & 0.41391E-06_JPRB,0.38815E-06_JPRB,0.39845E-06_JPRB,0.10316E-06_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.58073E-07_JPRB,0.30468E-06_JPRB,0.40415E-06_JPRB,0.43508E-06_JPRB,0.43212E-06_JPRB, &
+ & 0.43860E-06_JPRB,0.43462E-06_JPRB,0.39513E-06_JPRB,0.12065E-06_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.30210E-07_JPRB,0.13672E-06_JPRB,0.18028E-06_JPRB,0.21388E-06_JPRB,0.27067E-06_JPRB, &
+ & 0.25748E-06_JPRB,0.29347E-06_JPRB,0.38486E-06_JPRB,0.43992E-07_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.34676E-07_JPRB,0.16480E-06_JPRB,0.21447E-06_JPRB,0.23703E-06_JPRB,0.29658E-06_JPRB, &
+ & 0.29189E-06_JPRB,0.28346E-06_JPRB,0.35425E-06_JPRB,0.54558E-07_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.39112E-07_JPRB,0.19301E-06_JPRB,0.25343E-06_JPRB,0.28112E-06_JPRB,0.30767E-06_JPRB, &
+ & 0.31424E-06_JPRB,0.28354E-06_JPRB,0.32323E-06_JPRB,0.67060E-07_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.43392E-07_JPRB,0.22069E-06_JPRB,0.29158E-06_JPRB,0.31987E-06_JPRB,0.32514E-06_JPRB, &
+ & 0.33920E-06_JPRB,0.31782E-06_JPRB,0.32572E-06_JPRB,0.84444E-07_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.47520E-07_JPRB,0.25011E-06_JPRB,0.33134E-06_JPRB,0.35641E-06_JPRB,0.35390E-06_JPRB, &
+ & 0.35921E-06_JPRB,0.35594E-06_JPRB,0.32298E-06_JPRB,0.98845E-07_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.24733E-07_JPRB,0.11230E-06_JPRB,0.14856E-06_JPRB,0.17472E-06_JPRB,0.22197E-06_JPRB, &
+ & 0.21118E-06_JPRB,0.24122E-06_JPRB,0.31477E-06_JPRB,0.36119E-07_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.28389E-07_JPRB,0.13551E-06_JPRB,0.17612E-06_JPRB,0.19468E-06_JPRB,0.24363E-06_JPRB, &
+ & 0.23963E-06_JPRB,0.23290E-06_JPRB,0.28830E-06_JPRB,0.44709E-07_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.32017E-07_JPRB,0.15859E-06_JPRB,0.20791E-06_JPRB,0.23074E-06_JPRB,0.25230E-06_JPRB, &
+ & 0.25771E-06_JPRB,0.23238E-06_JPRB,0.26334E-06_JPRB,0.54941E-07_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.35526E-07_JPRB,0.18123E-06_JPRB,0.23912E-06_JPRB,0.26228E-06_JPRB,0.26637E-06_JPRB, &
+ & 0.27804E-06_JPRB,0.26039E-06_JPRB,0.26652E-06_JPRB,0.69162E-07_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.38912E-07_JPRB,0.20524E-06_JPRB,0.27165E-06_JPRB,0.29207E-06_JPRB,0.28991E-06_JPRB, &
+ & 0.29419E-06_JPRB,0.29154E-06_JPRB,0.26412E-06_JPRB,0.80995E-07_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.20250E-07_JPRB,0.92231E-07_JPRB,0.12203E-06_JPRB,0.14275E-06_JPRB,0.18179E-06_JPRB, &
+ & 0.17279E-06_JPRB,0.19796E-06_JPRB,0.25817E-06_JPRB,0.29574E-07_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.23243E-07_JPRB,0.11133E-06_JPRB,0.14442E-06_JPRB,0.15980E-06_JPRB,0.20001E-06_JPRB, &
+ & 0.19638E-06_JPRB,0.19075E-06_JPRB,0.23541E-06_JPRB,0.36618E-07_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.26215E-07_JPRB,0.13018E-06_JPRB,0.17053E-06_JPRB,0.18925E-06_JPRB,0.20654E-06_JPRB, &
+ & 0.21104E-06_JPRB,0.19040E-06_JPRB,0.21495E-06_JPRB,0.44987E-07_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.29082E-07_JPRB,0.14865E-06_JPRB,0.19601E-06_JPRB,0.21490E-06_JPRB,0.21820E-06_JPRB, &
+ & 0.22779E-06_JPRB,0.21313E-06_JPRB,0.21809E-06_JPRB,0.56635E-07_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.31856E-07_JPRB,0.16826E-06_JPRB,0.22260E-06_JPRB,0.23930E-06_JPRB,0.23753E-06_JPRB, &
+ & 0.24098E-06_JPRB,0.23875E-06_JPRB,0.21605E-06_JPRB,0.66316E-07_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.17059E-05_JPRB,0.38862E-05_JPRB,0.46330E-05_JPRB,0.51258E-05_JPRB,0.53516E-05_JPRB, &
+ & 0.52890E-05_JPRB,0.49050E-05_JPRB,0.49561E-05_JPRB,0.24914E-05_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.17702E-05_JPRB,0.41613E-05_JPRB,0.49979E-05_JPRB,0.55352E-05_JPRB,0.58535E-05_JPRB, &
+ & 0.58620E-05_JPRB,0.55540E-05_JPRB,0.53944E-05_JPRB,0.30111E-05_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.18268E-05_JPRB,0.44218E-05_JPRB,0.53631E-05_JPRB,0.59894E-05_JPRB,0.63892E-05_JPRB, &
+ & 0.64888E-05_JPRB,0.63488E-05_JPRB,0.59957E-05_JPRB,0.35253E-05_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.18763E-05_JPRB,0.46467E-05_JPRB,0.56969E-05_JPRB,0.64112E-05_JPRB,0.68701E-05_JPRB, &
+ & 0.70687E-05_JPRB,0.69575E-05_JPRB,0.65330E-05_JPRB,0.40117E-05_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.19168E-05_JPRB,0.48702E-05_JPRB,0.60413E-05_JPRB,0.68595E-05_JPRB,0.73828E-05_JPRB, &
+ & 0.76555E-05_JPRB,0.76620E-05_JPRB,0.72236E-05_JPRB,0.44814E-05_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.13807E-05_JPRB,0.32052E-05_JPRB,0.37981E-05_JPRB,0.41868E-05_JPRB,0.43666E-05_JPRB, &
+ & 0.42966E-05_JPRB,0.39397E-05_JPRB,0.40523E-05_JPRB,0.19972E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.14355E-05_JPRB,0.34375E-05_JPRB,0.40968E-05_JPRB,0.45345E-05_JPRB,0.47869E-05_JPRB, &
+ & 0.47900E-05_JPRB,0.45121E-05_JPRB,0.44176E-05_JPRB,0.23759E-05_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.14839E-05_JPRB,0.36628E-05_JPRB,0.44128E-05_JPRB,0.49223E-05_JPRB,0.52399E-05_JPRB, &
+ & 0.53302E-05_JPRB,0.51982E-05_JPRB,0.49130E-05_JPRB,0.28052E-05_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.15261E-05_JPRB,0.38551E-05_JPRB,0.47116E-05_JPRB,0.52947E-05_JPRB,0.56758E-05_JPRB, &
+ & 0.58601E-05_JPRB,0.57606E-05_JPRB,0.54224E-05_JPRB,0.31665E-05_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.15621E-05_JPRB,0.40345E-05_JPRB,0.49797E-05_JPRB,0.56344E-05_JPRB,0.60672E-05_JPRB, &
+ & 0.63079E-05_JPRB,0.63076E-05_JPRB,0.59671E-05_JPRB,0.35368E-05_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.11048E-05_JPRB,0.25908E-05_JPRB,0.30458E-05_JPRB,0.33480E-05_JPRB,0.34767E-05_JPRB, &
+ & 0.33444E-05_JPRB,0.30982E-05_JPRB,0.31520E-05_JPRB,0.14943E-05_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.11526E-05_JPRB,0.27857E-05_JPRB,0.32915E-05_JPRB,0.36364E-05_JPRB,0.38272E-05_JPRB, &
+ & 0.38169E-05_JPRB,0.35492E-05_JPRB,0.35141E-05_JPRB,0.17575E-05_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.11948E-05_JPRB,0.29688E-05_JPRB,0.35427E-05_JPRB,0.39401E-05_JPRB,0.41747E-05_JPRB, &
+ & 0.42239E-05_JPRB,0.40766E-05_JPRB,0.39111E-05_JPRB,0.20688E-05_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.12319E-05_JPRB,0.31426E-05_JPRB,0.38135E-05_JPRB,0.42625E-05_JPRB,0.45635E-05_JPRB, &
+ & 0.47062E-05_JPRB,0.46027E-05_JPRB,0.43389E-05_JPRB,0.23873E-05_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.12642E-05_JPRB,0.32923E-05_JPRB,0.40402E-05_JPRB,0.45497E-05_JPRB,0.48934E-05_JPRB, &
+ & 0.50814E-05_JPRB,0.50577E-05_JPRB,0.47614E-05_JPRB,0.26860E-05_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.87810E-06_JPRB,0.20726E-05_JPRB,0.24188E-05_JPRB,0.26498E-05_JPRB,0.27201E-05_JPRB, &
+ & 0.25966E-05_JPRB,0.24215E-05_JPRB,0.25596E-05_JPRB,0.10910E-05_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.92113E-06_JPRB,0.22378E-05_JPRB,0.26243E-05_JPRB,0.28859E-05_JPRB,0.30228E-05_JPRB, &
+ & 0.29855E-05_JPRB,0.27257E-05_JPRB,0.28497E-05_JPRB,0.12952E-05_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.95847E-06_JPRB,0.23927E-05_JPRB,0.28323E-05_JPRB,0.31308E-05_JPRB,0.33238E-05_JPRB, &
+ & 0.33287E-05_JPRB,0.31597E-05_JPRB,0.31032E-05_JPRB,0.15368E-05_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.99115E-06_JPRB,0.25350E-05_JPRB,0.30423E-05_JPRB,0.33883E-05_JPRB,0.36085E-05_JPRB, &
+ & 0.36829E-05_JPRB,0.35850E-05_JPRB,0.33993E-05_JPRB,0.17502E-05_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.10199E-05_JPRB,0.26768E-05_JPRB,0.32656E-05_JPRB,0.36641E-05_JPRB,0.39303E-05_JPRB, &
+ & 0.40820E-05_JPRB,0.40444E-05_JPRB,0.38038E-05_JPRB,0.20588E-05_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.69521E-06_JPRB,0.16480E-05_JPRB,0.19136E-05_JPRB,0.20758E-05_JPRB,0.21053E-05_JPRB, &
+ & 0.19983E-05_JPRB,0.19384E-05_JPRB,0.21119E-05_JPRB,0.79759E-06_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.73399E-06_JPRB,0.17885E-05_JPRB,0.20863E-05_JPRB,0.22802E-05_JPRB,0.23681E-05_JPRB, &
+ & 0.23078E-05_JPRB,0.21093E-05_JPRB,0.21684E-05_JPRB,0.95048E-06_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.76704E-06_JPRB,0.19210E-05_JPRB,0.22551E-05_JPRB,0.24823E-05_JPRB,0.26201E-05_JPRB, &
+ & 0.26181E-05_JPRB,0.24369E-05_JPRB,0.24387E-05_JPRB,0.11396E-05_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.79598E-06_JPRB,0.20422E-05_JPRB,0.24305E-05_JPRB,0.26936E-05_JPRB,0.28610E-05_JPRB, &
+ & 0.28938E-05_JPRB,0.28032E-05_JPRB,0.26848E-05_JPRB,0.13054E-05_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.82146E-06_JPRB,0.21630E-05_JPRB,0.26149E-05_JPRB,0.29202E-05_JPRB,0.31281E-05_JPRB, &
+ & 0.32364E-05_JPRB,0.31639E-05_JPRB,0.29903E-05_JPRB,0.15503E-05_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.54790E-06_JPRB,0.12968E-05_JPRB,0.14998E-05_JPRB,0.16199E-05_JPRB,0.16168E-05_JPRB, &
+ & 0.15151E-05_JPRB,0.14932E-05_JPRB,0.16380E-05_JPRB,0.58437E-06_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.58180E-06_JPRB,0.14204E-05_JPRB,0.16474E-05_JPRB,0.17877E-05_JPRB,0.18382E-05_JPRB, &
+ & 0.17645E-05_JPRB,0.16359E-05_JPRB,0.17414E-05_JPRB,0.70191E-06_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.61169E-06_JPRB,0.15332E-05_JPRB,0.17837E-05_JPRB,0.19554E-05_JPRB,0.20462E-05_JPRB, &
+ & 0.20343E-05_JPRB,0.18483E-05_JPRB,0.19670E-05_JPRB,0.83824E-06_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.63729E-06_JPRB,0.16375E-05_JPRB,0.19280E-05_JPRB,0.21247E-05_JPRB,0.22559E-05_JPRB, &
+ & 0.22588E-05_JPRB,0.21468E-05_JPRB,0.21190E-05_JPRB,0.96829E-06_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.65987E-06_JPRB,0.17326E-05_JPRB,0.20710E-05_JPRB,0.23017E-05_JPRB,0.24525E-05_JPRB, &
+ & 0.25042E-05_JPRB,0.24377E-05_JPRB,0.23029E-05_JPRB,0.11330E-05_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.43067E-06_JPRB,0.10147E-05_JPRB,0.11663E-05_JPRB,0.12622E-05_JPRB,0.12316E-05_JPRB, &
+ & 0.11186E-05_JPRB,0.12227E-05_JPRB,0.12153E-05_JPRB,0.41960E-06_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.45965E-06_JPRB,0.11216E-05_JPRB,0.12929E-05_JPRB,0.13935E-05_JPRB,0.14129E-05_JPRB, &
+ & 0.13426E-05_JPRB,0.12944E-05_JPRB,0.14463E-05_JPRB,0.51416E-06_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.48636E-06_JPRB,0.12186E-05_JPRB,0.14109E-05_JPRB,0.15331E-05_JPRB,0.15936E-05_JPRB, &
+ & 0.15473E-05_JPRB,0.14164E-05_JPRB,0.14707E-05_JPRB,0.61314E-06_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.50928E-06_JPRB,0.13071E-05_JPRB,0.15237E-05_JPRB,0.16740E-05_JPRB,0.17644E-05_JPRB, &
+ & 0.17562E-05_JPRB,0.16373E-05_JPRB,0.16431E-05_JPRB,0.72862E-06_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.52919E-06_JPRB,0.13890E-05_JPRB,0.16443E-05_JPRB,0.18186E-05_JPRB,0.19296E-05_JPRB, &
+ & 0.19451E-05_JPRB,0.18786E-05_JPRB,0.17942E-05_JPRB,0.84235E-06_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.33792E-06_JPRB,0.78856E-06_JPRB,0.90464E-06_JPRB,0.98317E-06_JPRB,0.92848E-06_JPRB, &
+ & 0.86387E-06_JPRB,0.95438E-06_JPRB,0.90887E-06_JPRB,0.29529E-06_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.36263E-06_JPRB,0.88071E-06_JPRB,0.10121E-05_JPRB,0.10878E-05_JPRB,0.10817E-05_JPRB, &
+ & 0.10133E-05_JPRB,0.10031E-05_JPRB,0.11161E-05_JPRB,0.37413E-06_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.38563E-06_JPRB,0.96560E-06_JPRB,0.11116E-05_JPRB,0.12011E-05_JPRB,0.12324E-05_JPRB, &
+ & 0.11848E-05_JPRB,0.10927E-05_JPRB,0.11776E-05_JPRB,0.44987E-06_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.40622E-06_JPRB,0.10407E-05_JPRB,0.12047E-05_JPRB,0.13138E-05_JPRB,0.13745E-05_JPRB, &
+ & 0.13598E-05_JPRB,0.12356E-05_JPRB,0.13203E-05_JPRB,0.54288E-06_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.42386E-06_JPRB,0.11111E-05_JPRB,0.13019E-05_JPRB,0.14302E-05_JPRB,0.15146E-05_JPRB, &
+ & 0.15112E-05_JPRB,0.14255E-05_JPRB,0.14090E-05_JPRB,0.62729E-06_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.26432E-06_JPRB,0.60726E-06_JPRB,0.70036E-06_JPRB,0.76229E-06_JPRB,0.71577E-06_JPRB, &
+ & 0.69749E-06_JPRB,0.70164E-06_JPRB,0.72668E-06_JPRB,0.20659E-06_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.28549E-06_JPRB,0.68848E-06_JPRB,0.78705E-06_JPRB,0.84862E-06_JPRB,0.82241E-06_JPRB, &
+ & 0.74707E-06_JPRB,0.82519E-06_JPRB,0.82938E-06_JPRB,0.27449E-06_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.30511E-06_JPRB,0.76168E-06_JPRB,0.87199E-06_JPRB,0.93359E-06_JPRB,0.94531E-06_JPRB, &
+ & 0.89794E-06_JPRB,0.85947E-06_JPRB,0.97111E-06_JPRB,0.33410E-06_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.32329E-06_JPRB,0.82660E-06_JPRB,0.95163E-06_JPRB,0.10287E-05_JPRB,0.10680E-05_JPRB, &
+ & 0.10381E-05_JPRB,0.94558E-06_JPRB,0.98374E-06_JPRB,0.39896E-06_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.33897E-06_JPRB,0.88614E-06_JPRB,0.10276E-05_JPRB,0.11239E-05_JPRB,0.11817E-05_JPRB, &
+ & 0.11723E-05_JPRB,0.10892E-05_JPRB,0.10943E-05_JPRB,0.47438E-06_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.20748E-06_JPRB,0.47023E-06_JPRB,0.54165E-06_JPRB,0.58159E-06_JPRB,0.54422E-06_JPRB, &
+ & 0.55116E-06_JPRB,0.57712E-06_JPRB,0.60571E-06_JPRB,0.14752E-06_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.22561E-06_JPRB,0.54027E-06_JPRB,0.61555E-06_JPRB,0.66550E-06_JPRB,0.62550E-06_JPRB, &
+ & 0.58306E-06_JPRB,0.64781E-06_JPRB,0.63365E-06_JPRB,0.19821E-06_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.24219E-06_JPRB,0.60251E-06_JPRB,0.68703E-06_JPRB,0.73412E-06_JPRB,0.72965E-06_JPRB, &
+ & 0.68255E-06_JPRB,0.67291E-06_JPRB,0.76422E-06_JPRB,0.24874E-06_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.25766E-06_JPRB,0.65861E-06_JPRB,0.75375E-06_JPRB,0.81214E-06_JPRB,0.83171E-06_JPRB, &
+ & 0.80129E-06_JPRB,0.73385E-06_JPRB,0.78864E-06_JPRB,0.29867E-06_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.27157E-06_JPRB,0.70870E-06_JPRB,0.81638E-06_JPRB,0.88593E-06_JPRB,0.92651E-06_JPRB, &
+ & 0.91449E-06_JPRB,0.83048E-06_JPRB,0.88651E-06_JPRB,0.36087E-06_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.16984E-06_JPRB,0.38981E-06_JPRB,0.44742E-06_JPRB,0.48022E-06_JPRB,0.44950E-06_JPRB, &
+ & 0.45173E-06_JPRB,0.47333E-06_JPRB,0.50203E-06_JPRB,0.12166E-06_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.18466E-06_JPRB,0.44753E-06_JPRB,0.50754E-06_JPRB,0.54744E-06_JPRB,0.51342E-06_JPRB, &
+ & 0.47893E-06_JPRB,0.53296E-06_JPRB,0.51992E-06_JPRB,0.16283E-06_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.19826E-06_JPRB,0.49803E-06_JPRB,0.56578E-06_JPRB,0.60333E-06_JPRB,0.60031E-06_JPRB, &
+ & 0.56085E-06_JPRB,0.55152E-06_JPRB,0.63442E-06_JPRB,0.20412E-06_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.21087E-06_JPRB,0.54349E-06_JPRB,0.62058E-06_JPRB,0.66722E-06_JPRB,0.68339E-06_JPRB, &
+ & 0.65819E-06_JPRB,0.60140E-06_JPRB,0.64555E-06_JPRB,0.24501E-06_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.22228E-06_JPRB,0.58430E-06_JPRB,0.67139E-06_JPRB,0.72733E-06_JPRB,0.76067E-06_JPRB, &
+ & 0.75025E-06_JPRB,0.68133E-06_JPRB,0.72307E-06_JPRB,0.29566E-06_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.13908E-06_JPRB,0.32322E-06_JPRB,0.36926E-06_JPRB,0.39668E-06_JPRB,0.37094E-06_JPRB, &
+ & 0.37104E-06_JPRB,0.38736E-06_JPRB,0.41059E-06_JPRB,0.10018E-06_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.15119E-06_JPRB,0.37037E-06_JPRB,0.41804E-06_JPRB,0.44988E-06_JPRB,0.42138E-06_JPRB, &
+ & 0.39334E-06_JPRB,0.43800E-06_JPRB,0.42649E-06_JPRB,0.13384E-06_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.16232E-06_JPRB,0.41107E-06_JPRB,0.46554E-06_JPRB,0.49568E-06_JPRB,0.49349E-06_JPRB, &
+ & 0.46062E-06_JPRB,0.45205E-06_JPRB,0.52165E-06_JPRB,0.16749E-06_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.17268E-06_JPRB,0.44802E-06_JPRB,0.51028E-06_JPRB,0.54757E-06_JPRB,0.56096E-06_JPRB, &
+ & 0.54041E-06_JPRB,0.49303E-06_JPRB,0.52723E-06_JPRB,0.20095E-06_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.18199E-06_JPRB,0.48092E-06_JPRB,0.55149E-06_JPRB,0.59694E-06_JPRB,0.62405E-06_JPRB, &
+ & 0.61534E-06_JPRB,0.55851E-06_JPRB,0.58926E-06_JPRB,0.24228E-06_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.11387E-06_JPRB,0.26741E-06_JPRB,0.30441E-06_JPRB,0.32687E-06_JPRB,0.30479E-06_JPRB, &
+ & 0.30477E-06_JPRB,0.31768E-06_JPRB,0.33316E-06_JPRB,0.82090E-07_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.12381E-06_JPRB,0.30579E-06_JPRB,0.34391E-06_JPRB,0.36935E-06_JPRB,0.34578E-06_JPRB, &
+ & 0.32317E-06_JPRB,0.35995E-06_JPRB,0.35099E-06_JPRB,0.10981E-06_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.13290E-06_JPRB,0.33871E-06_JPRB,0.38265E-06_JPRB,0.40672E-06_JPRB,0.40511E-06_JPRB, &
+ & 0.37796E-06_JPRB,0.36986E-06_JPRB,0.42813E-06_JPRB,0.13721E-06_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.14135E-06_JPRB,0.36878E-06_JPRB,0.41898E-06_JPRB,0.44916E-06_JPRB,0.46012E-06_JPRB, &
+ & 0.44348E-06_JPRB,0.40383E-06_JPRB,0.43087E-06_JPRB,0.16460E-06_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.14898E-06_JPRB,0.39524E-06_JPRB,0.45245E-06_JPRB,0.48939E-06_JPRB,0.51148E-06_JPRB, &
+ & 0.50420E-06_JPRB,0.45753E-06_JPRB,0.48088E-06_JPRB,0.19843E-06_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.49835E-05_JPRB,0.73512E-05_JPRB,0.88016E-05_JPRB,0.97115E-05_JPRB,0.10342E-04_JPRB, &
+ & 0.10688E-04_JPRB,0.10747E-04_JPRB,0.97587E-05_JPRB,0.57353E-05_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.49823E-05_JPRB,0.77944E-05_JPRB,0.95403E-05_JPRB,0.10739E-04_JPRB,0.11522E-04_JPRB, &
+ & 0.11974E-04_JPRB,0.12019E-04_JPRB,0.11200E-04_JPRB,0.69362E-05_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.49638E-05_JPRB,0.82513E-05_JPRB,0.10343E-04_JPRB,0.11836E-04_JPRB,0.12804E-04_JPRB, &
+ & 0.13375E-04_JPRB,0.13427E-04_JPRB,0.12807E-04_JPRB,0.83325E-05_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.49300E-05_JPRB,0.87230E-05_JPRB,0.11131E-04_JPRB,0.12834E-04_JPRB,0.13980E-04_JPRB, &
+ & 0.14660E-04_JPRB,0.14790E-04_JPRB,0.14186E-04_JPRB,0.94893E-05_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.48886E-05_JPRB,0.92046E-05_JPRB,0.11933E-04_JPRB,0.13885E-04_JPRB,0.15255E-04_JPRB, &
+ & 0.16071E-04_JPRB,0.16239E-04_JPRB,0.15605E-04_JPRB,0.10917E-04_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.41174E-05_JPRB,0.62362E-05_JPRB,0.73897E-05_JPRB,0.81161E-05_JPRB,0.86061E-05_JPRB, &
+ & 0.88364E-05_JPRB,0.89272E-05_JPRB,0.81534E-05_JPRB,0.45187E-05_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.41154E-05_JPRB,0.66112E-05_JPRB,0.80274E-05_JPRB,0.90030E-05_JPRB,0.96264E-05_JPRB, &
+ & 0.99529E-05_JPRB,0.10004E-04_JPRB,0.93836E-05_JPRB,0.55300E-05_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.40999E-05_JPRB,0.69972E-05_JPRB,0.87232E-05_JPRB,0.99464E-05_JPRB,0.10738E-04_JPRB, &
+ & 0.11186E-04_JPRB,0.11235E-04_JPRB,0.10760E-04_JPRB,0.66656E-05_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.40728E-05_JPRB,0.73933E-05_JPRB,0.94032E-05_JPRB,0.10842E-04_JPRB,0.11807E-04_JPRB, &
+ & 0.12371E-04_JPRB,0.12495E-04_JPRB,0.12016E-04_JPRB,0.78073E-05_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.40371E-05_JPRB,0.77954E-05_JPRB,0.10060E-04_JPRB,0.11710E-04_JPRB,0.12855E-04_JPRB, &
+ & 0.13529E-04_JPRB,0.13658E-04_JPRB,0.13169E-04_JPRB,0.88462E-05_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.33911E-05_JPRB,0.51807E-05_JPRB,0.60524E-05_JPRB,0.65745E-05_JPRB,0.69209E-05_JPRB, &
+ & 0.70496E-05_JPRB,0.71376E-05_JPRB,0.64864E-05_JPRB,0.34232E-05_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.33916E-05_JPRB,0.54910E-05_JPRB,0.65875E-05_JPRB,0.73243E-05_JPRB,0.77878E-05_JPRB, &
+ & 0.79847E-05_JPRB,0.80332E-05_JPRB,0.75309E-05_JPRB,0.42228E-05_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.33813E-05_JPRB,0.58057E-05_JPRB,0.71503E-05_JPRB,0.80869E-05_JPRB,0.86798E-05_JPRB, &
+ & 0.89845E-05_JPRB,0.90042E-05_JPRB,0.85938E-05_JPRB,0.50519E-05_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.33618E-05_JPRB,0.61503E-05_JPRB,0.77470E-05_JPRB,0.88947E-05_JPRB,0.96421E-05_JPRB, &
+ & 0.10056E-04_JPRB,0.10131E-04_JPRB,0.97836E-05_JPRB,0.60817E-05_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.33346E-05_JPRB,0.64834E-05_JPRB,0.82992E-05_JPRB,0.96266E-05_JPRB,0.10527E-04_JPRB, &
+ & 0.11042E-04_JPRB,0.11154E-04_JPRB,0.10788E-04_JPRB,0.69208E-05_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.27862E-05_JPRB,0.42534E-05_JPRB,0.48987E-05_JPRB,0.52435E-05_JPRB,0.54733E-05_JPRB, &
+ & 0.55364E-05_JPRB,0.55872E-05_JPRB,0.49226E-05_JPRB,0.25436E-05_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.27893E-05_JPRB,0.45093E-05_JPRB,0.53394E-05_JPRB,0.58691E-05_JPRB,0.61855E-05_JPRB, &
+ & 0.63070E-05_JPRB,0.63399E-05_JPRB,0.58599E-05_JPRB,0.31726E-05_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.27843E-05_JPRB,0.47714E-05_JPRB,0.58075E-05_JPRB,0.65048E-05_JPRB,0.69158E-05_JPRB, &
+ & 0.71341E-05_JPRB,0.71529E-05_JPRB,0.67578E-05_JPRB,0.38485E-05_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.27713E-05_JPRB,0.50491E-05_JPRB,0.62824E-05_JPRB,0.71451E-05_JPRB,0.76931E-05_JPRB, &
+ & 0.79968E-05_JPRB,0.80403E-05_JPRB,0.77391E-05_JPRB,0.46093E-05_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.27517E-05_JPRB,0.53526E-05_JPRB,0.67897E-05_JPRB,0.78357E-05_JPRB,0.85357E-05_JPRB, &
+ & 0.89260E-05_JPRB,0.90160E-05_JPRB,0.87287E-05_JPRB,0.54226E-05_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.22852E-05_JPRB,0.34704E-05_JPRB,0.39351E-05_JPRB,0.41626E-05_JPRB,0.42797E-05_JPRB, &
+ & 0.43078E-05_JPRB,0.42289E-05_JPRB,0.36572E-05_JPRB,0.18725E-05_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.22904E-05_JPRB,0.36828E-05_JPRB,0.42969E-05_JPRB,0.46636E-05_JPRB,0.48818E-05_JPRB, &
+ & 0.49227E-05_JPRB,0.49640E-05_JPRB,0.45776E-05_JPRB,0.23620E-05_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.22883E-05_JPRB,0.38995E-05_JPRB,0.46830E-05_JPRB,0.51887E-05_JPRB,0.54814E-05_JPRB, &
+ & 0.56039E-05_JPRB,0.56350E-05_JPRB,0.52624E-05_JPRB,0.29139E-05_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.22808E-05_JPRB,0.41317E-05_JPRB,0.50763E-05_JPRB,0.57196E-05_JPRB,0.61208E-05_JPRB, &
+ & 0.63389E-05_JPRB,0.63549E-05_JPRB,0.60859E-05_JPRB,0.35219E-05_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.22671E-05_JPRB,0.43851E-05_JPRB,0.54991E-05_JPRB,0.62948E-05_JPRB,0.68249E-05_JPRB, &
+ & 0.71098E-05_JPRB,0.71755E-05_JPRB,0.69558E-05_JPRB,0.41900E-05_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.18699E-05_JPRB,0.28114E-05_JPRB,0.31400E-05_JPRB,0.32683E-05_JPRB,0.33153E-05_JPRB, &
+ & 0.33008E-05_JPRB,0.31920E-05_JPRB,0.27860E-05_JPRB,0.13420E-05_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.18773E-05_JPRB,0.29859E-05_JPRB,0.34309E-05_JPRB,0.36695E-05_JPRB,0.38007E-05_JPRB, &
+ & 0.38091E-05_JPRB,0.38180E-05_JPRB,0.34314E-05_JPRB,0.17179E-05_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.18783E-05_JPRB,0.31642E-05_JPRB,0.37448E-05_JPRB,0.40997E-05_JPRB,0.43019E-05_JPRB, &
+ & 0.43546E-05_JPRB,0.43740E-05_JPRB,0.40084E-05_JPRB,0.21605E-05_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.18743E-05_JPRB,0.33566E-05_JPRB,0.40684E-05_JPRB,0.45371E-05_JPRB,0.48151E-05_JPRB, &
+ & 0.49624E-05_JPRB,0.49624E-05_JPRB,0.47228E-05_JPRB,0.26431E-05_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.18657E-05_JPRB,0.35541E-05_JPRB,0.43955E-05_JPRB,0.49826E-05_JPRB,0.53649E-05_JPRB, &
+ & 0.55694E-05_JPRB,0.55990E-05_JPRB,0.54328E-05_JPRB,0.31359E-05_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.15270E-05_JPRB,0.22681E-05_JPRB,0.24953E-05_JPRB,0.25538E-05_JPRB,0.25397E-05_JPRB, &
+ & 0.25315E-05_JPRB,0.23299E-05_JPRB,0.21035E-05_JPRB,0.95748E-06_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.15365E-05_JPRB,0.24113E-05_JPRB,0.27304E-05_JPRB,0.28767E-05_JPRB,0.29339E-05_JPRB, &
+ & 0.29290E-05_JPRB,0.28728E-05_JPRB,0.24852E-05_JPRB,0.12383E-05_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.15398E-05_JPRB,0.25576E-05_JPRB,0.29821E-05_JPRB,0.32226E-05_JPRB,0.33508E-05_JPRB, &
+ & 0.33584E-05_JPRB,0.33733E-05_JPRB,0.31044E-05_JPRB,0.15900E-05_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.15385E-05_JPRB,0.27150E-05_JPRB,0.32458E-05_JPRB,0.35802E-05_JPRB,0.37697E-05_JPRB, &
+ & 0.38500E-05_JPRB,0.38510E-05_JPRB,0.36169E-05_JPRB,0.19605E-05_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.15336E-05_JPRB,0.28792E-05_JPRB,0.35139E-05_JPRB,0.39460E-05_JPRB,0.42149E-05_JPRB, &
+ & 0.43622E-05_JPRB,0.43664E-05_JPRB,0.42187E-05_JPRB,0.23523E-05_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.12444E-05_JPRB,0.18266E-05_JPRB,0.19784E-05_JPRB,0.19900E-05_JPRB,0.19390E-05_JPRB, &
+ & 0.19235E-05_JPRB,0.17231E-05_JPRB,0.16995E-05_JPRB,0.68590E-06_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.12557E-05_JPRB,0.19427E-05_JPRB,0.21667E-05_JPRB,0.22465E-05_JPRB,0.22625E-05_JPRB, &
+ & 0.22377E-05_JPRB,0.21596E-05_JPRB,0.18759E-05_JPRB,0.89490E-06_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.12608E-05_JPRB,0.20627E-05_JPRB,0.23694E-05_JPRB,0.25224E-05_JPRB,0.25961E-05_JPRB, &
+ & 0.25892E-05_JPRB,0.25887E-05_JPRB,0.23400E-05_JPRB,0.11490E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.12616E-05_JPRB,0.21916E-05_JPRB,0.25816E-05_JPRB,0.28156E-05_JPRB,0.29418E-05_JPRB, &
+ & 0.29759E-05_JPRB,0.29788E-05_JPRB,0.27379E-05_JPRB,0.14416E-05_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.12590E-05_JPRB,0.23261E-05_JPRB,0.28013E-05_JPRB,0.31131E-05_JPRB,0.32990E-05_JPRB, &
+ & 0.33976E-05_JPRB,0.33946E-05_JPRB,0.32600E-05_JPRB,0.17529E-05_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.10123E-05_JPRB,0.14681E-05_JPRB,0.15612E-05_JPRB,0.15411E-05_JPRB,0.14778E-05_JPRB, &
+ & 0.14343E-05_JPRB,0.12992E-05_JPRB,0.13172E-05_JPRB,0.49290E-06_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.10245E-05_JPRB,0.15617E-05_JPRB,0.17149E-05_JPRB,0.17499E-05_JPRB,0.17312E-05_JPRB, &
+ & 0.17144E-05_JPRB,0.15772E-05_JPRB,0.14382E-05_JPRB,0.63132E-06_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.10311E-05_JPRB,0.16600E-05_JPRB,0.18786E-05_JPRB,0.19738E-05_JPRB,0.20017E-05_JPRB, &
+ & 0.19859E-05_JPRB,0.19416E-05_JPRB,0.17139E-05_JPRB,0.82278E-06_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.10334E-05_JPRB,0.17639E-05_JPRB,0.20493E-05_JPRB,0.22069E-05_JPRB,0.22845E-05_JPRB, &
+ & 0.22769E-05_JPRB,0.22855E-05_JPRB,0.21115E-05_JPRB,0.10531E-05_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.10328E-05_JPRB,0.18738E-05_JPRB,0.22265E-05_JPRB,0.24495E-05_JPRB,0.25737E-05_JPRB, &
+ & 0.26232E-05_JPRB,0.26173E-05_JPRB,0.24699E-05_JPRB,0.12950E-05_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.82261E-06_JPRB,0.11811E-05_JPRB,0.12403E-05_JPRB,0.12060E-05_JPRB,0.11493E-05_JPRB, &
+ & 0.10907E-05_JPRB,0.98035E-06_JPRB,0.10980E-05_JPRB,0.37316E-06_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.83528E-06_JPRB,0.12595E-05_JPRB,0.13646E-05_JPRB,0.13745E-05_JPRB,0.13365E-05_JPRB, &
+ & 0.13172E-05_JPRB,0.11846E-05_JPRB,0.11491E-05_JPRB,0.46158E-06_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.84255E-06_JPRB,0.13392E-05_JPRB,0.14968E-05_JPRB,0.15528E-05_JPRB,0.15573E-05_JPRB, &
+ & 0.15339E-05_JPRB,0.14802E-05_JPRB,0.12811E-05_JPRB,0.60300E-06_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.84587E-06_JPRB,0.14245E-05_JPRB,0.16355E-05_JPRB,0.17381E-05_JPRB,0.17835E-05_JPRB, &
+ & 0.17693E-05_JPRB,0.17683E-05_JPRB,0.16097E-05_JPRB,0.77730E-06_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.84627E-06_JPRB,0.15137E-05_JPRB,0.17779E-05_JPRB,0.19378E-05_JPRB,0.20192E-05_JPRB, &
+ & 0.20387E-05_JPRB,0.20340E-05_JPRB,0.18636E-05_JPRB,0.96863E-06_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.67388E-06_JPRB,0.97942E-06_JPRB,0.10286E-05_JPRB,0.10023E-05_JPRB,0.95317E-06_JPRB, &
+ & 0.90847E-06_JPRB,0.81776E-06_JPRB,0.89345E-06_JPRB,0.30408E-06_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.68407E-06_JPRB,0.10438E-05_JPRB,0.11334E-05_JPRB,0.11425E-05_JPRB,0.11096E-05_JPRB, &
+ & 0.10886E-05_JPRB,0.98240E-06_JPRB,0.94798E-06_JPRB,0.38086E-06_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.69000E-06_JPRB,0.11106E-05_JPRB,0.12435E-05_JPRB,0.12890E-05_JPRB,0.12895E-05_JPRB, &
+ & 0.12679E-05_JPRB,0.12202E-05_JPRB,0.10522E-05_JPRB,0.49623E-06_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.69276E-06_JPRB,0.11824E-05_JPRB,0.13564E-05_JPRB,0.14402E-05_JPRB,0.14763E-05_JPRB, &
+ & 0.14628E-05_JPRB,0.14599E-05_JPRB,0.13328E-05_JPRB,0.63979E-06_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.69302E-06_JPRB,0.12555E-05_JPRB,0.14740E-05_JPRB,0.16049E-05_JPRB,0.16694E-05_JPRB, &
+ & 0.16839E-05_JPRB,0.16772E-05_JPRB,0.15421E-05_JPRB,0.79514E-06_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.55214E-06_JPRB,0.81079E-06_JPRB,0.85249E-06_JPRB,0.83175E-06_JPRB,0.78783E-06_JPRB, &
+ & 0.75281E-06_JPRB,0.67567E-06_JPRB,0.74075E-06_JPRB,0.24910E-06_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.56029E-06_JPRB,0.86391E-06_JPRB,0.94032E-06_JPRB,0.94758E-06_JPRB,0.91883E-06_JPRB, &
+ & 0.89834E-06_JPRB,0.81189E-06_JPRB,0.77883E-06_JPRB,0.31399E-06_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.56504E-06_JPRB,0.92066E-06_JPRB,0.10308E-05_JPRB,0.10667E-05_JPRB,0.10655E-05_JPRB, &
+ & 0.10460E-05_JPRB,0.10067E-05_JPRB,0.87150E-06_JPRB,0.40815E-06_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.56721E-06_JPRB,0.97985E-06_JPRB,0.11224E-05_JPRB,0.11915E-05_JPRB,0.12197E-05_JPRB, &
+ & 0.12063E-05_JPRB,0.12014E-05_JPRB,0.10950E-05_JPRB,0.52630E-06_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.56742E-06_JPRB,0.10399E-05_JPRB,0.12195E-05_JPRB,0.13255E-05_JPRB,0.13771E-05_JPRB, &
+ & 0.13876E-05_JPRB,0.13807E-05_JPRB,0.12724E-05_JPRB,0.65264E-06_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.45223E-06_JPRB,0.67006E-06_JPRB,0.70582E-06_JPRB,0.68873E-06_JPRB,0.65038E-06_JPRB, &
+ & 0.62084E-06_JPRB,0.55442E-06_JPRB,0.60996E-06_JPRB,0.20428E-06_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.45880E-06_JPRB,0.71490E-06_JPRB,0.77859E-06_JPRB,0.78376E-06_JPRB,0.75834E-06_JPRB, &
+ & 0.73987E-06_JPRB,0.66959E-06_JPRB,0.63711E-06_JPRB,0.25817E-06_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.46276E-06_JPRB,0.76231E-06_JPRB,0.85214E-06_JPRB,0.88098E-06_JPRB,0.87867E-06_JPRB, &
+ & 0.86188E-06_JPRB,0.83033E-06_JPRB,0.72166E-06_JPRB,0.33548E-06_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.46442E-06_JPRB,0.81043E-06_JPRB,0.92714E-06_JPRB,0.98329E-06_JPRB,0.10050E-05_JPRB, &
+ & 0.99247E-06_JPRB,0.98770E-06_JPRB,0.89931E-06_JPRB,0.43220E-06_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.46456E-06_JPRB,0.86048E-06_JPRB,0.10065E-05_JPRB,0.10920E-05_JPRB,0.11333E-05_JPRB, &
+ & 0.11411E-05_JPRB,0.11342E-05_JPRB,0.10473E-05_JPRB,0.53527E-06_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.12335E-04_JPRB,0.15987E-04_JPRB,0.18565E-04_JPRB,0.20406E-04_JPRB,0.21636E-04_JPRB, &
+ & 0.22077E-04_JPRB,0.21364E-04_JPRB,0.19544E-04_JPRB,0.14733E-04_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.12351E-04_JPRB,0.17014E-04_JPRB,0.20216E-04_JPRB,0.22480E-04_JPRB,0.24098E-04_JPRB, &
+ & 0.24791E-04_JPRB,0.24379E-04_JPRB,0.22600E-04_JPRB,0.17292E-04_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.12364E-04_JPRB,0.18152E-04_JPRB,0.21907E-04_JPRB,0.24643E-04_JPRB,0.26659E-04_JPRB, &
+ & 0.27630E-04_JPRB,0.27512E-04_JPRB,0.25730E-04_JPRB,0.20236E-04_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.12365E-04_JPRB,0.19320E-04_JPRB,0.23679E-04_JPRB,0.26885E-04_JPRB,0.29225E-04_JPRB, &
+ & 0.30430E-04_JPRB,0.30461E-04_JPRB,0.28726E-04_JPRB,0.23208E-04_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.12355E-04_JPRB,0.20495E-04_JPRB,0.25505E-04_JPRB,0.29189E-04_JPRB,0.31816E-04_JPRB, &
+ & 0.33308E-04_JPRB,0.33478E-04_JPRB,0.31898E-04_JPRB,0.26469E-04_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.10350E-04_JPRB,0.13753E-04_JPRB,0.16101E-04_JPRB,0.17726E-04_JPRB,0.18733E-04_JPRB, &
+ & 0.19034E-04_JPRB,0.18319E-04_JPRB,0.16594E-04_JPRB,0.11961E-04_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.10365E-04_JPRB,0.14706E-04_JPRB,0.17542E-04_JPRB,0.19561E-04_JPRB,0.20895E-04_JPRB, &
+ & 0.21420E-04_JPRB,0.21012E-04_JPRB,0.19409E-04_JPRB,0.14130E-04_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.10364E-04_JPRB,0.15733E-04_JPRB,0.19081E-04_JPRB,0.21505E-04_JPRB,0.23181E-04_JPRB, &
+ & 0.23958E-04_JPRB,0.23844E-04_JPRB,0.22334E-04_JPRB,0.16750E-04_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.10354E-04_JPRB,0.16759E-04_JPRB,0.20670E-04_JPRB,0.23471E-04_JPRB,0.25440E-04_JPRB, &
+ & 0.26474E-04_JPRB,0.26560E-04_JPRB,0.25188E-04_JPRB,0.19386E-04_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.10329E-04_JPRB,0.17823E-04_JPRB,0.22292E-04_JPRB,0.25488E-04_JPRB,0.27703E-04_JPRB, &
+ & 0.28957E-04_JPRB,0.29205E-04_JPRB,0.27936E-04_JPRB,0.22026E-04_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.86408E-05_JPRB,0.11607E-04_JPRB,0.13624E-04_JPRB,0.14928E-04_JPRB,0.15622E-04_JPRB, &
+ & 0.15768E-04_JPRB,0.15034E-04_JPRB,0.13540E-04_JPRB,0.91950E-05_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.86478E-05_JPRB,0.12463E-04_JPRB,0.14889E-04_JPRB,0.16508E-04_JPRB,0.17482E-04_JPRB, &
+ & 0.17819E-04_JPRB,0.17439E-04_JPRB,0.15994E-04_JPRB,0.11026E-04_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.86444E-05_JPRB,0.13354E-04_JPRB,0.16234E-04_JPRB,0.18159E-04_JPRB,0.19394E-04_JPRB, &
+ & 0.19962E-04_JPRB,0.19837E-04_JPRB,0.18485E-04_JPRB,0.13087E-04_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.86273E-05_JPRB,0.14262E-04_JPRB,0.17647E-04_JPRB,0.19921E-04_JPRB,0.21457E-04_JPRB, &
+ & 0.22290E-04_JPRB,0.22338E-04_JPRB,0.21203E-04_JPRB,0.15397E-04_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.85960E-05_JPRB,0.15200E-04_JPRB,0.19031E-04_JPRB,0.21649E-04_JPRB,0.23415E-04_JPRB, &
+ & 0.24453E-04_JPRB,0.24660E-04_JPRB,0.23666E-04_JPRB,0.17582E-04_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.71803E-05_JPRB,0.97101E-05_JPRB,0.11373E-04_JPRB,0.12321E-04_JPRB,0.12789E-04_JPRB, &
+ & 0.12803E-04_JPRB,0.12062E-04_JPRB,0.10784E-04_JPRB,0.69624E-05_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.71855E-05_JPRB,0.10459E-04_JPRB,0.12456E-04_JPRB,0.13673E-04_JPRB,0.14371E-04_JPRB, &
+ & 0.14569E-04_JPRB,0.14153E-04_JPRB,0.12788E-04_JPRB,0.84564E-05_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.71795E-05_JPRB,0.11229E-04_JPRB,0.13608E-04_JPRB,0.15091E-04_JPRB,0.16013E-04_JPRB, &
+ & 0.16409E-04_JPRB,0.16232E-04_JPRB,0.15085E-04_JPRB,0.10120E-04_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.71584E-05_JPRB,0.12023E-04_JPRB,0.14800E-04_JPRB,0.16568E-04_JPRB,0.17732E-04_JPRB, &
+ & 0.18336E-04_JPRB,0.18317E-04_JPRB,0.17347E-04_JPRB,0.11917E-04_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.71267E-05_JPRB,0.12845E-04_JPRB,0.16058E-04_JPRB,0.18162E-04_JPRB,0.19580E-04_JPRB, &
+ & 0.20399E-04_JPRB,0.20543E-04_JPRB,0.19767E-04_JPRB,0.13958E-04_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.59442E-05_JPRB,0.80861E-05_JPRB,0.93878E-05_JPRB,0.10066E-04_JPRB,0.10362E-04_JPRB, &
+ & 0.10281E-04_JPRB,0.95734E-05_JPRB,0.84778E-05_JPRB,0.52204E-05_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.59498E-05_JPRB,0.87281E-05_JPRB,0.10301E-04_JPRB,0.11210E-04_JPRB,0.11702E-04_JPRB, &
+ & 0.11782E-04_JPRB,0.11315E-04_JPRB,0.10068E-04_JPRB,0.64302E-05_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.59430E-05_JPRB,0.93925E-05_JPRB,0.11277E-04_JPRB,0.12419E-04_JPRB,0.13099E-04_JPRB, &
+ & 0.13351E-04_JPRB,0.13104E-04_JPRB,0.12095E-04_JPRB,0.77633E-05_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.59217E-05_JPRB,0.10078E-04_JPRB,0.12288E-04_JPRB,0.13686E-04_JPRB,0.14573E-04_JPRB, &
+ & 0.14994E-04_JPRB,0.14908E-04_JPRB,0.14023E-04_JPRB,0.92337E-05_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.58935E-05_JPRB,0.10789E-04_JPRB,0.13390E-04_JPRB,0.15066E-04_JPRB,0.16172E-04_JPRB, &
+ & 0.16788E-04_JPRB,0.16832E-04_JPRB,0.16140E-04_JPRB,0.10913E-04_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.49077E-05_JPRB,0.66672E-05_JPRB,0.76412E-05_JPRB,0.81181E-05_JPRB,0.82831E-05_JPRB, &
+ & 0.81137E-05_JPRB,0.74381E-05_JPRB,0.64600E-05_JPRB,0.38540E-05_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.49136E-05_JPRB,0.72093E-05_JPRB,0.84100E-05_JPRB,0.90761E-05_JPRB,0.94026E-05_JPRB, &
+ & 0.93849E-05_JPRB,0.88761E-05_JPRB,0.77852E-05_JPRB,0.48097E-05_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.49088E-05_JPRB,0.77732E-05_JPRB,0.92304E-05_JPRB,0.10089E-04_JPRB,0.10581E-04_JPRB, &
+ & 0.10707E-04_JPRB,0.10412E-04_JPRB,0.94217E-05_JPRB,0.58741E-05_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.48919E-05_JPRB,0.83551E-05_JPRB,0.10086E-04_JPRB,0.11166E-04_JPRB,0.11831E-04_JPRB, &
+ & 0.12095E-04_JPRB,0.11941E-04_JPRB,0.11106E-04_JPRB,0.70559E-05_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.48652E-05_JPRB,0.89412E-05_JPRB,0.10983E-04_JPRB,0.12289E-04_JPRB,0.13118E-04_JPRB, &
+ & 0.13538E-04_JPRB,0.13477E-04_JPRB,0.12811E-04_JPRB,0.83378E-05_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.40428E-05_JPRB,0.54588E-05_JPRB,0.61687E-05_JPRB,0.64926E-05_JPRB,0.65568E-05_JPRB, &
+ & 0.63259E-05_JPRB,0.56948E-05_JPRB,0.49607E-05_JPRB,0.28237E-05_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.40484E-05_JPRB,0.59019E-05_JPRB,0.68052E-05_JPRB,0.72891E-05_JPRB,0.74881E-05_JPRB, &
+ & 0.73951E-05_JPRB,0.68736E-05_JPRB,0.59771E-05_JPRB,0.35700E-05_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.40443E-05_JPRB,0.63719E-05_JPRB,0.74936E-05_JPRB,0.81309E-05_JPRB,0.84699E-05_JPRB, &
+ & 0.84975E-05_JPRB,0.81643E-05_JPRB,0.72224E-05_JPRB,0.43995E-05_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.40304E-05_JPRB,0.68636E-05_JPRB,0.82100E-05_JPRB,0.90329E-05_JPRB,0.95142E-05_JPRB, &
+ & 0.96616E-05_JPRB,0.94576E-05_JPRB,0.86932E-05_JPRB,0.53385E-05_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.40097E-05_JPRB,0.73587E-05_JPRB,0.89665E-05_JPRB,0.99825E-05_JPRB,0.10592E-04_JPRB, &
+ & 0.10860E-04_JPRB,0.10751E-04_JPRB,0.10114E-04_JPRB,0.63905E-05_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.33247E-05_JPRB,0.44437E-05_JPRB,0.49476E-05_JPRB,0.51623E-05_JPRB,0.51521E-05_JPRB, &
+ & 0.48927E-05_JPRB,0.43130E-05_JPRB,0.36508E-05_JPRB,0.20433E-05_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.33302E-05_JPRB,0.48035E-05_JPRB,0.54757E-05_JPRB,0.58129E-05_JPRB,0.59219E-05_JPRB, &
+ & 0.57796E-05_JPRB,0.52788E-05_JPRB,0.45081E-05_JPRB,0.26233E-05_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.33275E-05_JPRB,0.51944E-05_JPRB,0.60436E-05_JPRB,0.65119E-05_JPRB,0.67329E-05_JPRB, &
+ & 0.66992E-05_JPRB,0.63336E-05_JPRB,0.54989E-05_JPRB,0.32839E-05_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.33167E-05_JPRB,0.56042E-05_JPRB,0.66425E-05_JPRB,0.72606E-05_JPRB,0.75965E-05_JPRB, &
+ & 0.76619E-05_JPRB,0.74319E-05_JPRB,0.66922E-05_JPRB,0.40228E-05_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.33014E-05_JPRB,0.60212E-05_JPRB,0.72748E-05_JPRB,0.80496E-05_JPRB,0.84940E-05_JPRB, &
+ & 0.86532E-05_JPRB,0.85181E-05_JPRB,0.78992E-05_JPRB,0.48672E-05_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.27310E-05_JPRB,0.35992E-05_JPRB,0.39468E-05_JPRB,0.40831E-05_JPRB,0.40161E-05_JPRB, &
+ & 0.37266E-05_JPRB,0.32070E-05_JPRB,0.27591E-05_JPRB,0.14628E-05_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.27361E-05_JPRB,0.38904E-05_JPRB,0.43781E-05_JPRB,0.46075E-05_JPRB,0.46475E-05_JPRB, &
+ & 0.44710E-05_JPRB,0.39993E-05_JPRB,0.33922E-05_JPRB,0.19203E-05_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.27349E-05_JPRB,0.42103E-05_JPRB,0.48448E-05_JPRB,0.51814E-05_JPRB,0.53150E-05_JPRB, &
+ & 0.52403E-05_JPRB,0.48712E-05_JPRB,0.41669E-05_JPRB,0.24268E-05_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.27270E-05_JPRB,0.45504E-05_JPRB,0.53414E-05_JPRB,0.57970E-05_JPRB,0.60255E-05_JPRB, &
+ & 0.60359E-05_JPRB,0.57915E-05_JPRB,0.51016E-05_JPRB,0.30070E-05_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.27146E-05_JPRB,0.48994E-05_JPRB,0.58660E-05_JPRB,0.64467E-05_JPRB,0.67684E-05_JPRB, &
+ & 0.68529E-05_JPRB,0.66981E-05_JPRB,0.61431E-05_JPRB,0.36677E-05_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.22419E-05_JPRB,0.29237E-05_JPRB,0.31619E-05_JPRB,0.32419E-05_JPRB,0.31445E-05_JPRB, &
+ & 0.28618E-05_JPRB,0.23945E-05_JPRB,0.20454E-05_JPRB,0.10493E-05_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.22458E-05_JPRB,0.31578E-05_JPRB,0.35134E-05_JPRB,0.36703E-05_JPRB,0.36665E-05_JPRB, &
+ & 0.34835E-05_JPRB,0.30593E-05_JPRB,0.25559E-05_JPRB,0.14125E-05_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.22450E-05_JPRB,0.34192E-05_JPRB,0.38967E-05_JPRB,0.41378E-05_JPRB,0.42160E-05_JPRB, &
+ & 0.41184E-05_JPRB,0.37724E-05_JPRB,0.31954E-05_JPRB,0.18099E-05_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.22393E-05_JPRB,0.36988E-05_JPRB,0.43039E-05_JPRB,0.46449E-05_JPRB,0.48027E-05_JPRB, &
+ & 0.47756E-05_JPRB,0.45281E-05_JPRB,0.39284E-05_JPRB,0.22652E-05_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.22295E-05_JPRB,0.39888E-05_JPRB,0.47391E-05_JPRB,0.51827E-05_JPRB,0.54135E-05_JPRB, &
+ & 0.54517E-05_JPRB,0.52919E-05_JPRB,0.47894E-05_JPRB,0.27859E-05_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.18412E-05_JPRB,0.24512E-05_JPRB,0.26550E-05_JPRB,0.27210E-05_JPRB,0.26438E-05_JPRB, &
+ & 0.24068E-05_JPRB,0.20134E-05_JPRB,0.16980E-05_JPRB,0.87310E-06_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.18429E-05_JPRB,0.26525E-05_JPRB,0.29507E-05_JPRB,0.30835E-05_JPRB,0.30829E-05_JPRB, &
+ & 0.29354E-05_JPRB,0.25810E-05_JPRB,0.21539E-05_JPRB,0.11715E-05_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.18405E-05_JPRB,0.28725E-05_JPRB,0.32735E-05_JPRB,0.34815E-05_JPRB,0.35507E-05_JPRB, &
+ & 0.34733E-05_JPRB,0.31901E-05_JPRB,0.26957E-05_JPRB,0.15018E-05_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.18348E-05_JPRB,0.31060E-05_JPRB,0.36191E-05_JPRB,0.39123E-05_JPRB,0.40426E-05_JPRB, &
+ & 0.40206E-05_JPRB,0.38184E-05_JPRB,0.33125E-05_JPRB,0.18804E-05_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.18263E-05_JPRB,0.33539E-05_JPRB,0.39862E-05_JPRB,0.43590E-05_JPRB,0.45516E-05_JPRB, &
+ & 0.45841E-05_JPRB,0.44525E-05_JPRB,0.40371E-05_JPRB,0.23130E-05_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.15111E-05_JPRB,0.20512E-05_JPRB,0.22220E-05_JPRB,0.22783E-05_JPRB,0.22181E-05_JPRB, &
+ & 0.20219E-05_JPRB,0.16992E-05_JPRB,0.14085E-05_JPRB,0.72438E-06_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.15111E-05_JPRB,0.22209E-05_JPRB,0.24719E-05_JPRB,0.25841E-05_JPRB,0.25877E-05_JPRB, &
+ & 0.24700E-05_JPRB,0.21742E-05_JPRB,0.18087E-05_JPRB,0.96963E-06_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.15082E-05_JPRB,0.24051E-05_JPRB,0.27419E-05_JPRB,0.29223E-05_JPRB,0.29832E-05_JPRB, &
+ & 0.29201E-05_JPRB,0.26833E-05_JPRB,0.22609E-05_JPRB,0.12444E-05_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.15029E-05_JPRB,0.26018E-05_JPRB,0.30364E-05_JPRB,0.32843E-05_JPRB,0.33933E-05_JPRB, &
+ & 0.33730E-05_JPRB,0.32057E-05_JPRB,0.27875E-05_JPRB,0.15571E-05_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.14954E-05_JPRB,0.28127E-05_JPRB,0.33443E-05_JPRB,0.36551E-05_JPRB,0.38145E-05_JPRB, &
+ & 0.38425E-05_JPRB,0.37317E-05_JPRB,0.33866E-05_JPRB,0.19133E-05_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.12390E-05_JPRB,0.17127E-05_JPRB,0.18553E-05_JPRB,0.19025E-05_JPRB,0.18568E-05_JPRB, &
+ & 0.16968E-05_JPRB,0.14297E-05_JPRB,0.11813E-05_JPRB,0.59950E-06_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.12381E-05_JPRB,0.18537E-05_JPRB,0.20641E-05_JPRB,0.21603E-05_JPRB,0.21689E-05_JPRB, &
+ & 0.20712E-05_JPRB,0.18216E-05_JPRB,0.15132E-05_JPRB,0.80096E-06_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.12352E-05_JPRB,0.20080E-05_JPRB,0.22929E-05_JPRB,0.24467E-05_JPRB,0.24992E-05_JPRB, &
+ & 0.24434E-05_JPRB,0.22447E-05_JPRB,0.18839E-05_JPRB,0.10290E-05_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.12307E-05_JPRB,0.21754E-05_JPRB,0.25409E-05_JPRB,0.27489E-05_JPRB,0.28366E-05_JPRB, &
+ & 0.28171E-05_JPRB,0.26776E-05_JPRB,0.23303E-05_JPRB,0.12853E-05_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.12246E-05_JPRB,0.23532E-05_JPRB,0.27977E-05_JPRB,0.30556E-05_JPRB,0.31857E-05_JPRB, &
+ & 0.32077E-05_JPRB,0.31127E-05_JPRB,0.28260E-05_JPRB,0.15788E-05_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.43566E-04_JPRB,0.45402E-04_JPRB,0.48829E-04_JPRB,0.50194E-04_JPRB,0.49978E-04_JPRB, &
+ & 0.48581E-04_JPRB,0.45902E-04_JPRB,0.40781E-04_JPRB,0.34170E-04_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.43974E-04_JPRB,0.47415E-04_JPRB,0.52012E-04_JPRB,0.54325E-04_JPRB,0.54921E-04_JPRB, &
+ & 0.53975E-04_JPRB,0.51279E-04_JPRB,0.46650E-04_JPRB,0.40945E-04_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.44333E-04_JPRB,0.49545E-04_JPRB,0.55453E-04_JPRB,0.58909E-04_JPRB,0.60094E-04_JPRB, &
+ & 0.59376E-04_JPRB,0.56940E-04_JPRB,0.52843E-04_JPRB,0.48266E-04_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.44647E-04_JPRB,0.51771E-04_JPRB,0.59155E-04_JPRB,0.63607E-04_JPRB,0.65306E-04_JPRB, &
+ & 0.64935E-04_JPRB,0.62961E-04_JPRB,0.59262E-04_JPRB,0.55812E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.44938E-04_JPRB,0.54202E-04_JPRB,0.63063E-04_JPRB,0.68229E-04_JPRB,0.70615E-04_JPRB, &
+ & 0.70683E-04_JPRB,0.69315E-04_JPRB,0.65992E-04_JPRB,0.63855E-04_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.37849E-04_JPRB,0.40606E-04_JPRB,0.43836E-04_JPRB,0.45171E-04_JPRB,0.45318E-04_JPRB, &
+ & 0.44251E-04_JPRB,0.41853E-04_JPRB,0.37247E-04_JPRB,0.29303E-04_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.38202E-04_JPRB,0.42545E-04_JPRB,0.46901E-04_JPRB,0.49156E-04_JPRB,0.50002E-04_JPRB, &
+ & 0.49256E-04_JPRB,0.46845E-04_JPRB,0.42755E-04_JPRB,0.35187E-04_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.38525E-04_JPRB,0.44570E-04_JPRB,0.50219E-04_JPRB,0.53465E-04_JPRB,0.54833E-04_JPRB, &
+ & 0.54348E-04_JPRB,0.52176E-04_JPRB,0.48578E-04_JPRB,0.41697E-04_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.38828E-04_JPRB,0.46787E-04_JPRB,0.53767E-04_JPRB,0.57818E-04_JPRB,0.59705E-04_JPRB, &
+ & 0.59611E-04_JPRB,0.57787E-04_JPRB,0.54523E-04_JPRB,0.48350E-04_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.39076E-04_JPRB,0.49105E-04_JPRB,0.57380E-04_JPRB,0.62144E-04_JPRB,0.64743E-04_JPRB, &
+ & 0.65049E-04_JPRB,0.63700E-04_JPRB,0.60747E-04_JPRB,0.55348E-04_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.32392E-04_JPRB,0.35504E-04_JPRB,0.38232E-04_JPRB,0.39483E-04_JPRB,0.39809E-04_JPRB, &
+ & 0.39031E-04_JPRB,0.36901E-04_JPRB,0.32585E-04_JPRB,0.23735E-04_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.32715E-04_JPRB,0.37303E-04_JPRB,0.41039E-04_JPRB,0.43202E-04_JPRB,0.44102E-04_JPRB, &
+ & 0.43582E-04_JPRB,0.41484E-04_JPRB,0.37593E-04_JPRB,0.28689E-04_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.33011E-04_JPRB,0.39216E-04_JPRB,0.44127E-04_JPRB,0.47180E-04_JPRB,0.48515E-04_JPRB, &
+ & 0.48269E-04_JPRB,0.46352E-04_JPRB,0.42866E-04_JPRB,0.34062E-04_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.33271E-04_JPRB,0.41283E-04_JPRB,0.47451E-04_JPRB,0.51158E-04_JPRB,0.53031E-04_JPRB, &
+ & 0.53191E-04_JPRB,0.51599E-04_JPRB,0.48489E-04_JPRB,0.40122E-04_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.33495E-04_JPRB,0.43439E-04_JPRB,0.50779E-04_JPRB,0.55143E-04_JPRB,0.57687E-04_JPRB, &
+ & 0.58208E-04_JPRB,0.56935E-04_JPRB,0.54138E-04_JPRB,0.46109E-04_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.27415E-04_JPRB,0.30543E-04_JPRB,0.32764E-04_JPRB,0.33940E-04_JPRB,0.34340E-04_JPRB, &
+ & 0.33775E-04_JPRB,0.31812E-04_JPRB,0.27722E-04_JPRB,0.18770E-04_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.27715E-04_JPRB,0.32169E-04_JPRB,0.35304E-04_JPRB,0.37332E-04_JPRB,0.38224E-04_JPRB, &
+ & 0.37868E-04_JPRB,0.35986E-04_JPRB,0.32265E-04_JPRB,0.22928E-04_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.27982E-04_JPRB,0.33932E-04_JPRB,0.38141E-04_JPRB,0.40925E-04_JPRB,0.42223E-04_JPRB, &
+ & 0.42122E-04_JPRB,0.40409E-04_JPRB,0.37026E-04_JPRB,0.27474E-04_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.28215E-04_JPRB,0.35808E-04_JPRB,0.41184E-04_JPRB,0.44532E-04_JPRB,0.46320E-04_JPRB, &
+ & 0.46554E-04_JPRB,0.45091E-04_JPRB,0.41998E-04_JPRB,0.32462E-04_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.28437E-04_JPRB,0.37809E-04_JPRB,0.44202E-04_JPRB,0.48199E-04_JPRB,0.50577E-04_JPRB, &
+ & 0.51211E-04_JPRB,0.50186E-04_JPRB,0.47427E-04_JPRB,0.38088E-04_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.23010E-04_JPRB,0.25978E-04_JPRB,0.27838E-04_JPRB,0.28899E-04_JPRB,0.29286E-04_JPRB, &
+ & 0.28721E-04_JPRB,0.26945E-04_JPRB,0.23196E-04_JPRB,0.14687E-04_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.23283E-04_JPRB,0.27434E-04_JPRB,0.30115E-04_JPRB,0.31931E-04_JPRB,0.32743E-04_JPRB, &
+ & 0.32398E-04_JPRB,0.30674E-04_JPRB,0.27269E-04_JPRB,0.18140E-04_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.23522E-04_JPRB,0.29002E-04_JPRB,0.32686E-04_JPRB,0.35125E-04_JPRB,0.36325E-04_JPRB, &
+ & 0.36232E-04_JPRB,0.34626E-04_JPRB,0.31511E-04_JPRB,0.21987E-04_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.23738E-04_JPRB,0.30687E-04_JPRB,0.35404E-04_JPRB,0.38366E-04_JPRB,0.40013E-04_JPRB, &
+ & 0.40198E-04_JPRB,0.38830E-04_JPRB,0.35973E-04_JPRB,0.26236E-04_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.23936E-04_JPRB,0.32534E-04_JPRB,0.38093E-04_JPRB,0.41748E-04_JPRB,0.43875E-04_JPRB, &
+ & 0.44440E-04_JPRB,0.43519E-04_JPRB,0.40954E-04_JPRB,0.31086E-04_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.19172E-04_JPRB,0.21867E-04_JPRB,0.23409E-04_JPRB,0.24321E-04_JPRB,0.24529E-04_JPRB, &
+ & 0.23927E-04_JPRB,0.22333E-04_JPRB,0.18955E-04_JPRB,0.11218E-04_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.19419E-04_JPRB,0.23150E-04_JPRB,0.25412E-04_JPRB,0.26974E-04_JPRB,0.27574E-04_JPRB, &
+ & 0.27129E-04_JPRB,0.25625E-04_JPRB,0.22590E-04_JPRB,0.14082E-04_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.19636E-04_JPRB,0.24533E-04_JPRB,0.27708E-04_JPRB,0.29785E-04_JPRB,0.30733E-04_JPRB, &
+ & 0.30517E-04_JPRB,0.29114E-04_JPRB,0.26329E-04_JPRB,0.17293E-04_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.19836E-04_JPRB,0.26054E-04_JPRB,0.30093E-04_JPRB,0.32660E-04_JPRB,0.34002E-04_JPRB, &
+ & 0.34049E-04_JPRB,0.32819E-04_JPRB,0.30271E-04_JPRB,0.20869E-04_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.20002E-04_JPRB,0.27734E-04_JPRB,0.32461E-04_JPRB,0.35638E-04_JPRB,0.37355E-04_JPRB, &
+ & 0.37686E-04_JPRB,0.36788E-04_JPRB,0.34519E-04_JPRB,0.24769E-04_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.15886E-04_JPRB,0.18280E-04_JPRB,0.19557E-04_JPRB,0.20235E-04_JPRB,0.20297E-04_JPRB, &
+ & 0.19642E-04_JPRB,0.18202E-04_JPRB,0.15130E-04_JPRB,0.84335E-05_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.16105E-04_JPRB,0.19408E-04_JPRB,0.21322E-04_JPRB,0.22532E-04_JPRB,0.22888E-04_JPRB, &
+ & 0.22409E-04_JPRB,0.21064E-04_JPRB,0.18396E-04_JPRB,0.10766E-04_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.16304E-04_JPRB,0.20629E-04_JPRB,0.23329E-04_JPRB,0.24999E-04_JPRB,0.25612E-04_JPRB, &
+ & 0.25350E-04_JPRB,0.24115E-04_JPRB,0.21685E-04_JPRB,0.13408E-04_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.16482E-04_JPRB,0.21985E-04_JPRB,0.25409E-04_JPRB,0.27506E-04_JPRB,0.28475E-04_JPRB, &
+ & 0.28447E-04_JPRB,0.27347E-04_JPRB,0.25116E-04_JPRB,0.16377E-04_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.16621E-04_JPRB,0.23483E-04_JPRB,0.27507E-04_JPRB,0.30111E-04_JPRB,0.31449E-04_JPRB, &
+ & 0.31651E-04_JPRB,0.30823E-04_JPRB,0.28853E-04_JPRB,0.19647E-04_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.13104E-04_JPRB,0.15202E-04_JPRB,0.16227E-04_JPRB,0.16675E-04_JPRB,0.16618E-04_JPRB, &
+ & 0.15949E-04_JPRB,0.14642E-04_JPRB,0.11862E-04_JPRB,0.62741E-05_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.13296E-04_JPRB,0.16183E-04_JPRB,0.17762E-04_JPRB,0.18645E-04_JPRB,0.18799E-04_JPRB, &
+ & 0.18302E-04_JPRB,0.17108E-04_JPRB,0.14749E-04_JPRB,0.81431E-05_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.13475E-04_JPRB,0.17250E-04_JPRB,0.19501E-04_JPRB,0.20748E-04_JPRB,0.21144E-04_JPRB, &
+ & 0.20825E-04_JPRB,0.19726E-04_JPRB,0.17623E-04_JPRB,0.10291E-04_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.13631E-04_JPRB,0.18462E-04_JPRB,0.21319E-04_JPRB,0.22916E-04_JPRB,0.23622E-04_JPRB, &
+ & 0.23509E-04_JPRB,0.22509E-04_JPRB,0.20604E-04_JPRB,0.12727E-04_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.13752E-04_JPRB,0.19773E-04_JPRB,0.23162E-04_JPRB,0.25182E-04_JPRB,0.26210E-04_JPRB, &
+ & 0.26298E-04_JPRB,0.25526E-04_JPRB,0.23837E-04_JPRB,0.15433E-04_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.10771E-04_JPRB,0.12580E-04_JPRB,0.13349E-04_JPRB,0.13617E-04_JPRB,0.13459E-04_JPRB, &
+ & 0.12816E-04_JPRB,0.11635E-04_JPRB,0.90636E-05_JPRB,0.45849E-05_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.10937E-04_JPRB,0.13431E-04_JPRB,0.14667E-04_JPRB,0.15270E-04_JPRB,0.15289E-04_JPRB, &
+ & 0.14786E-04_JPRB,0.13720E-04_JPRB,0.11614E-04_JPRB,0.60707E-05_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.11095E-04_JPRB,0.14367E-04_JPRB,0.16153E-04_JPRB,0.17055E-04_JPRB,0.17287E-04_JPRB, &
+ & 0.16925E-04_JPRB,0.15948E-04_JPRB,0.14098E-04_JPRB,0.78037E-05_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.11230E-04_JPRB,0.15436E-04_JPRB,0.17715E-04_JPRB,0.18921E-04_JPRB,0.19404E-04_JPRB, &
+ & 0.19208E-04_JPRB,0.18318E-04_JPRB,0.16668E-04_JPRB,0.97810E-05_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.11337E-04_JPRB,0.16572E-04_JPRB,0.19310E-04_JPRB,0.20882E-04_JPRB,0.21623E-04_JPRB, &
+ & 0.21621E-04_JPRB,0.20902E-04_JPRB,0.19439E-04_JPRB,0.11994E-04_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.88397E-05_JPRB,0.10407E-04_JPRB,0.10992E-04_JPRB,0.11130E-04_JPRB,0.10914E-04_JPRB, &
+ & 0.10319E-04_JPRB,0.92746E-05_JPRB,0.69230E-05_JPRB,0.33878E-05_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.89820E-05_JPRB,0.11148E-04_JPRB,0.12114E-04_JPRB,0.12509E-04_JPRB,0.12455E-04_JPRB, &
+ & 0.11973E-04_JPRB,0.11026E-04_JPRB,0.91303E-05_JPRB,0.45777E-05_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.91201E-05_JPRB,0.11975E-04_JPRB,0.13369E-04_JPRB,0.14032E-04_JPRB,0.14150E-04_JPRB, &
+ & 0.13774E-04_JPRB,0.12899E-04_JPRB,0.11289E-04_JPRB,0.59718E-05_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.92338E-05_JPRB,0.12910E-04_JPRB,0.14708E-04_JPRB,0.15633E-04_JPRB,0.15947E-04_JPRB, &
+ & 0.15711E-04_JPRB,0.14916E-04_JPRB,0.13483E-04_JPRB,0.75778E-05_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.93270E-05_JPRB,0.13899E-04_JPRB,0.16089E-04_JPRB,0.17313E-04_JPRB,0.17838E-04_JPRB, &
+ & 0.17779E-04_JPRB,0.17126E-04_JPRB,0.15852E-04_JPRB,0.93849E-05_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.72957E-05_JPRB,0.88518E-05_JPRB,0.94180E-05_JPRB,0.95477E-05_JPRB,0.93627E-05_JPRB, &
+ & 0.88681E-05_JPRB,0.79846E-05_JPRB,0.60665E-05_JPRB,0.28938E-05_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.74164E-05_JPRB,0.95244E-05_JPRB,0.10413E-04_JPRB,0.10760E-04_JPRB,0.10725E-04_JPRB, &
+ & 0.10300E-04_JPRB,0.94914E-05_JPRB,0.79265E-05_JPRB,0.39145E-05_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.75267E-05_JPRB,0.10290E-04_JPRB,0.11516E-04_JPRB,0.12091E-04_JPRB,0.12186E-04_JPRB, &
+ & 0.11866E-04_JPRB,0.11116E-04_JPRB,0.97843E-05_JPRB,0.51152E-05_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.76165E-05_JPRB,0.11127E-04_JPRB,0.12682E-04_JPRB,0.13483E-04_JPRB,0.13746E-04_JPRB, &
+ & 0.13546E-04_JPRB,0.12885E-04_JPRB,0.11704E-04_JPRB,0.64876E-05_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.76866E-05_JPRB,0.11972E-04_JPRB,0.13896E-04_JPRB,0.14938E-04_JPRB,0.15405E-04_JPRB, &
+ & 0.15374E-04_JPRB,0.14838E-04_JPRB,0.13790E-04_JPRB,0.80319E-05_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.60137E-05_JPRB,0.75193E-05_JPRB,0.80348E-05_JPRB,0.81538E-05_JPRB,0.80064E-05_JPRB, &
+ & 0.75822E-05_JPRB,0.68354E-05_JPRB,0.52502E-05_JPRB,0.24674E-05_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.61150E-05_JPRB,0.81325E-05_JPRB,0.89089E-05_JPRB,0.92208E-05_JPRB,0.91831E-05_JPRB, &
+ & 0.88171E-05_JPRB,0.81283E-05_JPRB,0.68396E-05_JPRB,0.33429E-05_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.62020E-05_JPRB,0.88113E-05_JPRB,0.98818E-05_JPRB,0.10369E-04_JPRB,0.10440E-04_JPRB, &
+ & 0.10164E-04_JPRB,0.95355E-05_JPRB,0.84372E-05_JPRB,0.43683E-05_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.62729E-05_JPRB,0.95382E-05_JPRB,0.10890E-04_JPRB,0.11569E-04_JPRB,0.11793E-04_JPRB, &
+ & 0.11630E-04_JPRB,0.11082E-04_JPRB,0.10108E-04_JPRB,0.55358E-05_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.63199E-05_JPRB,0.10271E-04_JPRB,0.11934E-04_JPRB,0.12838E-04_JPRB,0.13254E-04_JPRB, &
+ & 0.13231E-04_JPRB,0.12796E-04_JPRB,0.11934E-04_JPRB,0.68492E-05_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.49517E-05_JPRB,0.63774E-05_JPRB,0.68261E-05_JPRB,0.69411E-05_JPRB,0.68151E-05_JPRB, &
+ & 0.64513E-05_JPRB,0.58220E-05_JPRB,0.45056E-05_JPRB,0.20980E-05_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.50331E-05_JPRB,0.69207E-05_JPRB,0.75990E-05_JPRB,0.78660E-05_JPRB,0.78231E-05_JPRB, &
+ & 0.75119E-05_JPRB,0.69333E-05_JPRB,0.58688E-05_JPRB,0.28426E-05_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.51036E-05_JPRB,0.75155E-05_JPRB,0.84393E-05_JPRB,0.88490E-05_JPRB,0.89047E-05_JPRB, &
+ & 0.86720E-05_JPRB,0.81449E-05_JPRB,0.72410E-05_JPRB,0.37114E-05_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.51548E-05_JPRB,0.81445E-05_JPRB,0.93105E-05_JPRB,0.98793E-05_JPRB,0.10078E-04_JPRB, &
+ & 0.99535E-05_JPRB,0.94951E-05_JPRB,0.86973E-05_JPRB,0.47002E-05_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.51867E-05_JPRB,0.87857E-05_JPRB,0.10211E-04_JPRB,0.10992E-04_JPRB,0.11352E-04_JPRB, &
+ & 0.11351E-04_JPRB,0.10990E-04_JPRB,0.10277E-04_JPRB,0.58153E-05_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.18292E-03_JPRB,0.16357E-03_JPRB,0.15341E-03_JPRB,0.14585E-03_JPRB,0.13797E-03_JPRB, &
+ & 0.12826E-03_JPRB,0.11477E-03_JPRB,0.99322E-04_JPRB,0.99311E-04_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.18277E-03_JPRB,0.16502E-03_JPRB,0.15805E-03_JPRB,0.15290E-03_JPRB,0.14696E-03_JPRB, &
+ & 0.13850E-03_JPRB,0.12664E-03_JPRB,0.11419E-03_JPRB,0.11887E-03_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.18261E-03_JPRB,0.16694E-03_JPRB,0.16322E-03_JPRB,0.16061E-03_JPRB,0.15658E-03_JPRB, &
+ & 0.14997E-03_JPRB,0.14010E-03_JPRB,0.13154E-03_JPRB,0.14123E-03_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.18244E-03_JPRB,0.16952E-03_JPRB,0.16897E-03_JPRB,0.16909E-03_JPRB,0.16740E-03_JPRB, &
+ & 0.16268E-03_JPRB,0.15556E-03_JPRB,0.15163E-03_JPRB,0.16610E-03_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.18218E-03_JPRB,0.17247E-03_JPRB,0.17521E-03_JPRB,0.17844E-03_JPRB,0.17911E-03_JPRB, &
+ & 0.17696E-03_JPRB,0.17241E-03_JPRB,0.17370E-03_JPRB,0.19290E-03_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.17473E-03_JPRB,0.15735E-03_JPRB,0.14910E-03_JPRB,0.14227E-03_JPRB,0.13471E-03_JPRB, &
+ & 0.12515E-03_JPRB,0.11200E-03_JPRB,0.94986E-04_JPRB,0.89520E-04_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.17467E-03_JPRB,0.15907E-03_JPRB,0.15401E-03_JPRB,0.14953E-03_JPRB,0.14402E-03_JPRB, &
+ & 0.13581E-03_JPRB,0.12401E-03_JPRB,0.10893E-03_JPRB,0.10811E-03_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.17463E-03_JPRB,0.16142E-03_JPRB,0.15942E-03_JPRB,0.15773E-03_JPRB,0.15417E-03_JPRB, &
+ & 0.14769E-03_JPRB,0.13747E-03_JPRB,0.12528E-03_JPRB,0.12924E-03_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.17449E-03_JPRB,0.16426E-03_JPRB,0.16549E-03_JPRB,0.16671E-03_JPRB,0.16541E-03_JPRB, &
+ & 0.16085E-03_JPRB,0.15263E-03_JPRB,0.14389E-03_JPRB,0.15270E-03_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.17439E-03_JPRB,0.16753E-03_JPRB,0.17238E-03_JPRB,0.17658E-03_JPRB,0.17759E-03_JPRB, &
+ & 0.17537E-03_JPRB,0.16910E-03_JPRB,0.16442E-03_JPRB,0.17796E-03_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.16429E-03_JPRB,0.14895E-03_JPRB,0.14201E-03_JPRB,0.13557E-03_JPRB,0.12797E-03_JPRB, &
+ & 0.11829E-03_JPRB,0.10548E-03_JPRB,0.88188E-04_JPRB,0.77280E-04_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.16436E-03_JPRB,0.15092E-03_JPRB,0.14708E-03_JPRB,0.14277E-03_JPRB,0.13731E-03_JPRB, &
+ & 0.12899E-03_JPRB,0.11719E-03_JPRB,0.10108E-03_JPRB,0.94071E-04_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.16438E-03_JPRB,0.15344E-03_JPRB,0.15259E-03_JPRB,0.15105E-03_JPRB,0.14760E-03_JPRB, &
+ & 0.14078E-03_JPRB,0.13037E-03_JPRB,0.11602E-03_JPRB,0.11331E-03_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.16440E-03_JPRB,0.15651E-03_JPRB,0.15877E-03_JPRB,0.16021E-03_JPRB,0.15883E-03_JPRB, &
+ & 0.15394E-03_JPRB,0.14519E-03_JPRB,0.13303E-03_JPRB,0.13463E-03_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.16444E-03_JPRB,0.16001E-03_JPRB,0.16595E-03_JPRB,0.17023E-03_JPRB,0.17105E-03_JPRB, &
+ & 0.16855E-03_JPRB,0.16116E-03_JPRB,0.15159E-03_JPRB,0.15764E-03_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.15195E-03_JPRB,0.13883E-03_JPRB,0.13294E-03_JPRB,0.12699E-03_JPRB,0.11928E-03_JPRB, &
+ & 0.10948E-03_JPRB,0.97355E-04_JPRB,0.80985E-04_JPRB,0.65303E-04_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.15212E-03_JPRB,0.14097E-03_JPRB,0.13802E-03_JPRB,0.13404E-03_JPRB,0.12836E-03_JPRB, &
+ & 0.11996E-03_JPRB,0.10855E-03_JPRB,0.92884E-04_JPRB,0.80285E-04_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.15229E-03_JPRB,0.14364E-03_JPRB,0.14356E-03_JPRB,0.14222E-03_JPRB,0.13844E-03_JPRB, &
+ & 0.13147E-03_JPRB,0.12124E-03_JPRB,0.10661E-03_JPRB,0.97473E-04_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.15247E-03_JPRB,0.14694E-03_JPRB,0.14987E-03_JPRB,0.15132E-03_JPRB,0.14947E-03_JPRB, &
+ & 0.14428E-03_JPRB,0.13562E-03_JPRB,0.12218E-03_JPRB,0.11647E-03_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.15268E-03_JPRB,0.15064E-03_JPRB,0.15719E-03_JPRB,0.16126E-03_JPRB,0.16162E-03_JPRB, &
+ & 0.15869E-03_JPRB,0.15101E-03_JPRB,0.13904E-03_JPRB,0.13733E-03_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.13846E-03_JPRB,0.12761E-03_JPRB,0.12265E-03_JPRB,0.11713E-03_JPRB,0.10945E-03_JPRB, &
+ & 0.10011E-03_JPRB,0.88713E-04_JPRB,0.73647E-04_JPRB,0.54834E-04_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.13872E-03_JPRB,0.12987E-03_JPRB,0.12766E-03_JPRB,0.12392E-03_JPRB,0.11814E-03_JPRB, &
+ & 0.11013E-03_JPRB,0.99375E-04_JPRB,0.84759E-04_JPRB,0.68007E-04_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.13899E-03_JPRB,0.13272E-03_JPRB,0.13319E-03_JPRB,0.13187E-03_JPRB,0.12795E-03_JPRB, &
+ & 0.12108E-03_JPRB,0.11145E-03_JPRB,0.97499E-04_JPRB,0.83096E-04_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.13930E-03_JPRB,0.13617E-03_JPRB,0.13955E-03_JPRB,0.14081E-03_JPRB,0.13862E-03_JPRB, &
+ & 0.13340E-03_JPRB,0.12522E-03_JPRB,0.11183E-03_JPRB,0.99891E-04_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.13961E-03_JPRB,0.13997E-03_JPRB,0.14692E-03_JPRB,0.15049E-03_JPRB,0.15045E-03_JPRB, &
+ & 0.14736E-03_JPRB,0.14024E-03_JPRB,0.12733E-03_JPRB,0.11865E-03_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.12419E-03_JPRB,0.11551E-03_JPRB,0.11132E-03_JPRB,0.10604E-03_JPRB,0.98912E-04_JPRB, &
+ & 0.90174E-04_JPRB,0.79553E-04_JPRB,0.65781E-04_JPRB,0.45228E-04_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.12454E-03_JPRB,0.11786E-03_JPRB,0.11619E-03_JPRB,0.11259E-03_JPRB,0.10704E-03_JPRB, &
+ & 0.99552E-04_JPRB,0.89546E-04_JPRB,0.76061E-04_JPRB,0.56748E-04_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.12490E-03_JPRB,0.12081E-03_JPRB,0.12161E-03_JPRB,0.12024E-03_JPRB,0.11632E-03_JPRB, &
+ & 0.10988E-03_JPRB,0.10081E-03_JPRB,0.87950E-04_JPRB,0.69901E-04_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.12528E-03_JPRB,0.12425E-03_JPRB,0.12796E-03_JPRB,0.12887E-03_JPRB,0.12649E-03_JPRB, &
+ & 0.12150E-03_JPRB,0.11381E-03_JPRB,0.10130E-03_JPRB,0.84575E-04_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.12568E-03_JPRB,0.12811E-03_JPRB,0.13519E-03_JPRB,0.13816E-03_JPRB,0.13780E-03_JPRB, &
+ & 0.13476E-03_JPRB,0.12819E-03_JPRB,0.11553E-03_JPRB,0.10091E-03_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.10978E-03_JPRB,0.10308E-03_JPRB,0.99508E-04_JPRB,0.94571E-04_JPRB,0.88120E-04_JPRB, &
+ & 0.80226E-04_JPRB,0.70492E-04_JPRB,0.57993E-04_JPRB,0.36699E-04_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.11018E-03_JPRB,0.10544E-03_JPRB,0.10415E-03_JPRB,0.10080E-03_JPRB,0.95769E-04_JPRB, &
+ & 0.88865E-04_JPRB,0.79698E-04_JPRB,0.67450E-04_JPRB,0.46683E-04_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.11058E-03_JPRB,0.10837E-03_JPRB,0.10936E-03_JPRB,0.10807E-03_JPRB,0.10453E-03_JPRB, &
+ & 0.98497E-04_JPRB,0.90104E-04_JPRB,0.78443E-04_JPRB,0.58212E-04_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.11104E-03_JPRB,0.11179E-03_JPRB,0.11551E-03_JPRB,0.11629E-03_JPRB,0.11409E-03_JPRB, &
+ & 0.10934E-03_JPRB,0.10217E-03_JPRB,0.90913E-04_JPRB,0.71131E-04_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.11149E-03_JPRB,0.11560E-03_JPRB,0.12257E-03_JPRB,0.12521E-03_JPRB,0.12472E-03_JPRB, &
+ & 0.12180E-03_JPRB,0.11572E-03_JPRB,0.10421E-03_JPRB,0.85542E-04_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.95759E-04_JPRB,0.90773E-04_JPRB,0.87806E-04_JPRB,0.83290E-04_JPRB,0.77515E-04_JPRB, &
+ & 0.70528E-04_JPRB,0.61795E-04_JPRB,0.50465E-04_JPRB,0.29380E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.96189E-04_JPRB,0.93120E-04_JPRB,0.92132E-04_JPRB,0.89103E-04_JPRB,0.84653E-04_JPRB, &
+ & 0.78456E-04_JPRB,0.70159E-04_JPRB,0.59177E-04_JPRB,0.37867E-04_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.96665E-04_JPRB,0.96018E-04_JPRB,0.97008E-04_JPRB,0.95975E-04_JPRB,0.92760E-04_JPRB, &
+ & 0.87379E-04_JPRB,0.79687E-04_JPRB,0.69248E-04_JPRB,0.47855E-04_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.97168E-04_JPRB,0.99322E-04_JPRB,0.10289E-03_JPRB,0.10373E-03_JPRB,0.10169E-03_JPRB, &
+ & 0.97397E-04_JPRB,0.90796E-04_JPRB,0.80805E-04_JPRB,0.59240E-04_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.97641E-04_JPRB,0.10302E-03_JPRB,0.10967E-03_JPRB,0.11218E-03_JPRB,0.11166E-03_JPRB, &
+ & 0.10896E-03_JPRB,0.10343E-03_JPRB,0.93210E-04_JPRB,0.71998E-04_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.82482E-04_JPRB,0.78941E-04_JPRB,0.76398E-04_JPRB,0.72429E-04_JPRB,0.67369E-04_JPRB, &
+ & 0.61188E-04_JPRB,0.53486E-04_JPRB,0.43219E-04_JPRB,0.23144E-04_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.82941E-04_JPRB,0.81194E-04_JPRB,0.80391E-04_JPRB,0.77783E-04_JPRB,0.73924E-04_JPRB, &
+ & 0.68383E-04_JPRB,0.61055E-04_JPRB,0.51145E-04_JPRB,0.30235E-04_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.83462E-04_JPRB,0.83998E-04_JPRB,0.84977E-04_JPRB,0.84161E-04_JPRB,0.81323E-04_JPRB, &
+ & 0.76538E-04_JPRB,0.69739E-04_JPRB,0.60350E-04_JPRB,0.38714E-04_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.83976E-04_JPRB,0.87153E-04_JPRB,0.90583E-04_JPRB,0.91413E-04_JPRB,0.89589E-04_JPRB, &
+ & 0.85741E-04_JPRB,0.79900E-04_JPRB,0.70947E-04_JPRB,0.48553E-04_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.84461E-04_JPRB,0.90734E-04_JPRB,0.96938E-04_JPRB,0.99296E-04_JPRB,0.98864E-04_JPRB, &
+ & 0.96399E-04_JPRB,0.91511E-04_JPRB,0.82490E-04_JPRB,0.59777E-04_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.70371E-04_JPRB,0.68110E-04_JPRB,0.65986E-04_JPRB,0.62636E-04_JPRB,0.58303E-04_JPRB, &
+ & 0.52961E-04_JPRB,0.46122E-04_JPRB,0.37036E-04_JPRB,0.18341E-04_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.70853E-04_JPRB,0.70288E-04_JPRB,0.69669E-04_JPRB,0.67543E-04_JPRB,0.64271E-04_JPRB, &
+ & 0.59496E-04_JPRB,0.53052E-04_JPRB,0.44224E-04_JPRB,0.24306E-04_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.71373E-04_JPRB,0.72956E-04_JPRB,0.74034E-04_JPRB,0.73423E-04_JPRB,0.71076E-04_JPRB, &
+ & 0.66934E-04_JPRB,0.61048E-04_JPRB,0.52623E-04_JPRB,0.31537E-04_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.71862E-04_JPRB,0.75946E-04_JPRB,0.79283E-04_JPRB,0.80149E-04_JPRB,0.78712E-04_JPRB, &
+ & 0.75412E-04_JPRB,0.70399E-04_JPRB,0.62323E-04_JPRB,0.40041E-04_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.72376E-04_JPRB,0.79405E-04_JPRB,0.85220E-04_JPRB,0.87544E-04_JPRB,0.87332E-04_JPRB, &
+ & 0.85268E-04_JPRB,0.81104E-04_JPRB,0.73085E-04_JPRB,0.49845E-04_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.59776E-04_JPRB,0.59155E-04_JPRB,0.57996E-04_JPRB,0.55642E-04_JPRB,0.52323E-04_JPRB, &
+ & 0.47930E-04_JPRB,0.42036E-04_JPRB,0.34179E-04_JPRB,0.16514E-04_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.60275E-04_JPRB,0.61436E-04_JPRB,0.61654E-04_JPRB,0.60490E-04_JPRB,0.58055E-04_JPRB, &
+ & 0.54242E-04_JPRB,0.48750E-04_JPRB,0.41144E-04_JPRB,0.21987E-04_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.60746E-04_JPRB,0.64075E-04_JPRB,0.66078E-04_JPRB,0.66233E-04_JPRB,0.64629E-04_JPRB, &
+ & 0.61455E-04_JPRB,0.56611E-04_JPRB,0.49290E-04_JPRB,0.28648E-04_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.61244E-04_JPRB,0.67066E-04_JPRB,0.71217E-04_JPRB,0.72696E-04_JPRB,0.72050E-04_JPRB, &
+ & 0.69816E-04_JPRB,0.65797E-04_JPRB,0.58590E-04_JPRB,0.36515E-04_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.61769E-04_JPRB,0.70693E-04_JPRB,0.76979E-04_JPRB,0.79872E-04_JPRB,0.80561E-04_JPRB, &
+ & 0.79478E-04_JPRB,0.76089E-04_JPRB,0.68898E-04_JPRB,0.45628E-04_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.50518E-04_JPRB,0.51187E-04_JPRB,0.50822E-04_JPRB,0.49284E-04_JPRB,0.46769E-04_JPRB, &
+ & 0.43097E-04_JPRB,0.38110E-04_JPRB,0.31379E-04_JPRB,0.14783E-04_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.50964E-04_JPRB,0.53463E-04_JPRB,0.54457E-04_JPRB,0.54020E-04_JPRB,0.52266E-04_JPRB, &
+ & 0.49174E-04_JPRB,0.44595E-04_JPRB,0.38042E-04_JPRB,0.19796E-04_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.51421E-04_JPRB,0.56033E-04_JPRB,0.58762E-04_JPRB,0.59481E-04_JPRB,0.58578E-04_JPRB, &
+ & 0.56207E-04_JPRB,0.52260E-04_JPRB,0.45820E-04_JPRB,0.25919E-04_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.51920E-04_JPRB,0.59121E-04_JPRB,0.63731E-04_JPRB,0.65674E-04_JPRB,0.65806E-04_JPRB, &
+ & 0.64464E-04_JPRB,0.61120E-04_JPRB,0.54677E-04_JPRB,0.33164E-04_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.52396E-04_JPRB,0.62780E-04_JPRB,0.69274E-04_JPRB,0.72637E-04_JPRB,0.74145E-04_JPRB, &
+ & 0.73831E-04_JPRB,0.71039E-04_JPRB,0.64514E-04_JPRB,0.41597E-04_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.42486E-04_JPRB,0.44174E-04_JPRB,0.44463E-04_JPRB,0.43555E-04_JPRB,0.41568E-04_JPRB, &
+ & 0.38563E-04_JPRB,0.34384E-04_JPRB,0.28625E-04_JPRB,0.13171E-04_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.42904E-04_JPRB,0.46376E-04_JPRB,0.47979E-04_JPRB,0.48065E-04_JPRB,0.46867E-04_JPRB, &
+ & 0.44391E-04_JPRB,0.40615E-04_JPRB,0.34938E-04_JPRB,0.17746E-04_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.43349E-04_JPRB,0.48965E-04_JPRB,0.52137E-04_JPRB,0.53262E-04_JPRB,0.52962E-04_JPRB, &
+ & 0.51246E-04_JPRB,0.47996E-04_JPRB,0.42282E-04_JPRB,0.23342E-04_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.43790E-04_JPRB,0.52076E-04_JPRB,0.56889E-04_JPRB,0.59186E-04_JPRB,0.60002E-04_JPRB, &
+ & 0.59254E-04_JPRB,0.56460E-04_JPRB,0.50705E-04_JPRB,0.29999E-04_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.44254E-04_JPRB,0.55629E-04_JPRB,0.62209E-04_JPRB,0.65993E-04_JPRB,0.68105E-04_JPRB, &
+ & 0.68270E-04_JPRB,0.65941E-04_JPRB,0.60145E-04_JPRB,0.37728E-04_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.42864E-03_JPRB,0.37538E-03_JPRB,0.32907E-03_JPRB,0.29701E-03_JPRB,0.26399E-03_JPRB, &
+ & 0.23587E-03_JPRB,0.21519E-03_JPRB,0.20736E-03_JPRB,0.23690E-03_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.42770E-03_JPRB,0.37463E-03_JPRB,0.33468E-03_JPRB,0.30443E-03_JPRB,0.27635E-03_JPRB, &
+ & 0.25424E-03_JPRB,0.24068E-03_JPRB,0.24289E-03_JPRB,0.27885E-03_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.42742E-03_JPRB,0.37444E-03_JPRB,0.34109E-03_JPRB,0.31378E-03_JPRB,0.29265E-03_JPRB, &
+ & 0.27618E-03_JPRB,0.26729E-03_JPRB,0.27967E-03_JPRB,0.32090E-03_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.42756E-03_JPRB,0.37461E-03_JPRB,0.34714E-03_JPRB,0.32647E-03_JPRB,0.30721E-03_JPRB, &
+ & 0.29888E-03_JPRB,0.29503E-03_JPRB,0.31853E-03_JPRB,0.36629E-03_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.42817E-03_JPRB,0.37676E-03_JPRB,0.35506E-03_JPRB,0.34027E-03_JPRB,0.32593E-03_JPRB, &
+ & 0.32117E-03_JPRB,0.33159E-03_JPRB,0.36650E-03_JPRB,0.42307E-03_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.44647E-03_JPRB,0.39099E-03_JPRB,0.34399E-03_JPRB,0.31315E-03_JPRB,0.27681E-03_JPRB, &
+ & 0.24757E-03_JPRB,0.21977E-03_JPRB,0.20260E-03_JPRB,0.22465E-03_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.44675E-03_JPRB,0.39126E-03_JPRB,0.35094E-03_JPRB,0.32069E-03_JPRB,0.29009E-03_JPRB, &
+ & 0.26696E-03_JPRB,0.24338E-03_JPRB,0.23431E-03_JPRB,0.26448E-03_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.44728E-03_JPRB,0.39176E-03_JPRB,0.35848E-03_JPRB,0.33002E-03_JPRB,0.30752E-03_JPRB, &
+ & 0.28763E-03_JPRB,0.26835E-03_JPRB,0.26923E-03_JPRB,0.30805E-03_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.44805E-03_JPRB,0.39321E-03_JPRB,0.36547E-03_JPRB,0.34473E-03_JPRB,0.32431E-03_JPRB, &
+ & 0.30833E-03_JPRB,0.29659E-03_JPRB,0.31021E-03_JPRB,0.35789E-03_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.44833E-03_JPRB,0.39641E-03_JPRB,0.37373E-03_JPRB,0.35955E-03_JPRB,0.34286E-03_JPRB, &
+ & 0.33059E-03_JPRB,0.33253E-03_JPRB,0.36056E-03_JPRB,0.41785E-03_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.45575E-03_JPRB,0.39903E-03_JPRB,0.35239E-03_JPRB,0.32061E-03_JPRB,0.28610E-03_JPRB, &
+ & 0.25358E-03_JPRB,0.22160E-03_JPRB,0.19044E-03_JPRB,0.19754E-03_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.45658E-03_JPRB,0.39983E-03_JPRB,0.35980E-03_JPRB,0.32984E-03_JPRB,0.29898E-03_JPRB, &
+ & 0.27505E-03_JPRB,0.24328E-03_JPRB,0.21905E-03_JPRB,0.23515E-03_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.45737E-03_JPRB,0.40126E-03_JPRB,0.36866E-03_JPRB,0.34025E-03_JPRB,0.31808E-03_JPRB, &
+ & 0.29648E-03_JPRB,0.26565E-03_JPRB,0.25100E-03_JPRB,0.27824E-03_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.45822E-03_JPRB,0.40344E-03_JPRB,0.37727E-03_JPRB,0.35639E-03_JPRB,0.33753E-03_JPRB, &
+ & 0.31544E-03_JPRB,0.29107E-03_JPRB,0.29011E-03_JPRB,0.33040E-03_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.45803E-03_JPRB,0.40724E-03_JPRB,0.38685E-03_JPRB,0.37303E-03_JPRB,0.35804E-03_JPRB, &
+ & 0.33477E-03_JPRB,0.32542E-03_JPRB,0.34063E-03_JPRB,0.39188E-03_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.45696E-03_JPRB,0.40009E-03_JPRB,0.35533E-03_JPRB,0.32134E-03_JPRB,0.28977E-03_JPRB, &
+ & 0.25642E-03_JPRB,0.22005E-03_JPRB,0.17825E-03_JPRB,0.16960E-03_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.45799E-03_JPRB,0.40164E-03_JPRB,0.36303E-03_JPRB,0.33235E-03_JPRB,0.30343E-03_JPRB, &
+ & 0.27796E-03_JPRB,0.24341E-03_JPRB,0.20303E-03_JPRB,0.20347E-03_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.45889E-03_JPRB,0.40391E-03_JPRB,0.37251E-03_JPRB,0.34409E-03_JPRB,0.32396E-03_JPRB, &
+ & 0.30068E-03_JPRB,0.26403E-03_JPRB,0.23112E-03_JPRB,0.24434E-03_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.45955E-03_JPRB,0.40640E-03_JPRB,0.38203E-03_JPRB,0.36158E-03_JPRB,0.34561E-03_JPRB, &
+ & 0.32162E-03_JPRB,0.28613E-03_JPRB,0.26715E-03_JPRB,0.29513E-03_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.45899E-03_JPRB,0.41016E-03_JPRB,0.39290E-03_JPRB,0.38024E-03_JPRB,0.36719E-03_JPRB, &
+ & 0.34183E-03_JPRB,0.31736E-03_JPRB,0.31348E-03_JPRB,0.35430E-03_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.44860E-03_JPRB,0.39309E-03_JPRB,0.35143E-03_JPRB,0.31765E-03_JPRB,0.28887E-03_JPRB, &
+ & 0.25439E-03_JPRB,0.21652E-03_JPRB,0.16876E-03_JPRB,0.14333E-03_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.45003E-03_JPRB,0.39579E-03_JPRB,0.35959E-03_JPRB,0.33075E-03_JPRB,0.30371E-03_JPRB, &
+ & 0.27559E-03_JPRB,0.24058E-03_JPRB,0.19058E-03_JPRB,0.17442E-03_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.45146E-03_JPRB,0.39890E-03_JPRB,0.36951E-03_JPRB,0.34437E-03_JPRB,0.32442E-03_JPRB, &
+ & 0.30040E-03_JPRB,0.26223E-03_JPRB,0.21520E-03_JPRB,0.21295E-03_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.45218E-03_JPRB,0.40151E-03_JPRB,0.38022E-03_JPRB,0.36228E-03_JPRB,0.34802E-03_JPRB, &
+ & 0.32336E-03_JPRB,0.28327E-03_JPRB,0.24766E-03_JPRB,0.26132E-03_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.45207E-03_JPRB,0.40582E-03_JPRB,0.39175E-03_JPRB,0.38293E-03_JPRB,0.37072E-03_JPRB, &
+ & 0.34500E-03_JPRB,0.31037E-03_JPRB,0.29012E-03_JPRB,0.31661E-03_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.43374E-03_JPRB,0.38081E-03_JPRB,0.34182E-03_JPRB,0.31060E-03_JPRB,0.28045E-03_JPRB, &
+ & 0.24697E-03_JPRB,0.20889E-03_JPRB,0.16055E-03_JPRB,0.12036E-03_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.43531E-03_JPRB,0.38407E-03_JPRB,0.35000E-03_JPRB,0.32358E-03_JPRB,0.29721E-03_JPRB, &
+ & 0.26821E-03_JPRB,0.23298E-03_JPRB,0.18104E-03_JPRB,0.14668E-03_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.43706E-03_JPRB,0.38738E-03_JPRB,0.35982E-03_JPRB,0.33840E-03_JPRB,0.31879E-03_JPRB, &
+ & 0.29390E-03_JPRB,0.25605E-03_JPRB,0.20200E-03_JPRB,0.18191E-03_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.43807E-03_JPRB,0.39050E-03_JPRB,0.37037E-03_JPRB,0.35740E-03_JPRB,0.34372E-03_JPRB, &
+ & 0.31863E-03_JPRB,0.27734E-03_JPRB,0.23003E-03_JPRB,0.22665E-03_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.43877E-03_JPRB,0.39551E-03_JPRB,0.38302E-03_JPRB,0.38004E-03_JPRB,0.36796E-03_JPRB, &
+ & 0.34140E-03_JPRB,0.30328E-03_JPRB,0.26832E-03_JPRB,0.27676E-03_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.41256E-03_JPRB,0.36341E-03_JPRB,0.32806E-03_JPRB,0.30023E-03_JPRB,0.26855E-03_JPRB, &
+ & 0.23444E-03_JPRB,0.19788E-03_JPRB,0.15062E-03_JPRB,0.10262E-03_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.41482E-03_JPRB,0.36772E-03_JPRB,0.33624E-03_JPRB,0.31297E-03_JPRB,0.28556E-03_JPRB, &
+ & 0.25627E-03_JPRB,0.22127E-03_JPRB,0.17072E-03_JPRB,0.12601E-03_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.41718E-03_JPRB,0.37142E-03_JPRB,0.34661E-03_JPRB,0.32744E-03_JPRB,0.30719E-03_JPRB, &
+ & 0.28254E-03_JPRB,0.24553E-03_JPRB,0.19044E-03_JPRB,0.15628E-03_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.41872E-03_JPRB,0.37555E-03_JPRB,0.35755E-03_JPRB,0.34713E-03_JPRB,0.33306E-03_JPRB, &
+ & 0.30832E-03_JPRB,0.26791E-03_JPRB,0.21481E-03_JPRB,0.19464E-03_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.42048E-03_JPRB,0.38195E-03_JPRB,0.37042E-03_JPRB,0.37076E-03_JPRB,0.35893E-03_JPRB, &
+ & 0.33177E-03_JPRB,0.29351E-03_JPRB,0.24858E-03_JPRB,0.23890E-03_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.38528E-03_JPRB,0.34132E-03_JPRB,0.30950E-03_JPRB,0.28435E-03_JPRB,0.25387E-03_JPRB, &
+ & 0.21998E-03_JPRB,0.18381E-03_JPRB,0.13995E-03_JPRB,0.86291E-04_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.38813E-03_JPRB,0.34604E-03_JPRB,0.31840E-03_JPRB,0.29716E-03_JPRB,0.26994E-03_JPRB, &
+ & 0.24125E-03_JPRB,0.20696E-03_JPRB,0.15919E-03_JPRB,0.10863E-03_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.39073E-03_JPRB,0.35038E-03_JPRB,0.33010E-03_JPRB,0.31128E-03_JPRB,0.29227E-03_JPRB, &
+ & 0.26641E-03_JPRB,0.23195E-03_JPRB,0.17813E-03_JPRB,0.13616E-03_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.39281E-03_JPRB,0.35556E-03_JPRB,0.34140E-03_JPRB,0.33132E-03_JPRB,0.31814E-03_JPRB, &
+ & 0.29308E-03_JPRB,0.25493E-03_JPRB,0.20064E-03_JPRB,0.16931E-03_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.39565E-03_JPRB,0.36362E-03_JPRB,0.35480E-03_JPRB,0.35632E-03_JPRB,0.34483E-03_JPRB, &
+ & 0.31779E-03_JPRB,0.27994E-03_JPRB,0.23183E-03_JPRB,0.20721E-03_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.35353E-03_JPRB,0.31534E-03_JPRB,0.28844E-03_JPRB,0.26382E-03_JPRB,0.23534E-03_JPRB, &
+ & 0.20347E-03_JPRB,0.16850E-03_JPRB,0.12923E-03_JPRB,0.71856E-04_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.35704E-03_JPRB,0.32078E-03_JPRB,0.29797E-03_JPRB,0.27689E-03_JPRB,0.25047E-03_JPRB, &
+ & 0.22397E-03_JPRB,0.19066E-03_JPRB,0.14773E-03_JPRB,0.92561E-04_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.36000E-03_JPRB,0.32561E-03_JPRB,0.31012E-03_JPRB,0.29082E-03_JPRB,0.27253E-03_JPRB, &
+ & 0.24851E-03_JPRB,0.21457E-03_JPRB,0.16607E-03_JPRB,0.11811E-03_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.36298E-03_JPRB,0.33189E-03_JPRB,0.32100E-03_JPRB,0.31077E-03_JPRB,0.29911E-03_JPRB, &
+ & 0.27480E-03_JPRB,0.23785E-03_JPRB,0.18730E-03_JPRB,0.14849E-03_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.36645E-03_JPRB,0.34041E-03_JPRB,0.33535E-03_JPRB,0.33583E-03_JPRB,0.32646E-03_JPRB, &
+ & 0.29975E-03_JPRB,0.26277E-03_JPRB,0.21618E-03_JPRB,0.18220E-03_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.31882E-03_JPRB,0.28657E-03_JPRB,0.26462E-03_JPRB,0.24132E-03_JPRB,0.21534E-03_JPRB, &
+ & 0.18636E-03_JPRB,0.15549E-03_JPRB,0.11817E-03_JPRB,0.60706E-04_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.32301E-03_JPRB,0.29267E-03_JPRB,0.27519E-03_JPRB,0.25478E-03_JPRB,0.23046E-03_JPRB, &
+ & 0.20560E-03_JPRB,0.17582E-03_JPRB,0.13638E-03_JPRB,0.79531E-04_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.32639E-03_JPRB,0.29816E-03_JPRB,0.28709E-03_JPRB,0.26927E-03_JPRB,0.25170E-03_JPRB, &
+ & 0.23027E-03_JPRB,0.19794E-03_JPRB,0.15520E-03_JPRB,0.10253E-03_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.33008E-03_JPRB,0.30559E-03_JPRB,0.29823E-03_JPRB,0.28948E-03_JPRB,0.27786E-03_JPRB, &
+ & 0.25639E-03_JPRB,0.22020E-03_JPRB,0.17621E-03_JPRB,0.13035E-03_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.33429E-03_JPRB,0.31481E-03_JPRB,0.31383E-03_JPRB,0.31396E-03_JPRB,0.30544E-03_JPRB, &
+ & 0.28143E-03_JPRB,0.24487E-03_JPRB,0.20336E-03_JPRB,0.16246E-03_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.28433E-03_JPRB,0.25922E-03_JPRB,0.24227E-03_JPRB,0.22327E-03_JPRB,0.20067E-03_JPRB, &
+ & 0.17618E-03_JPRB,0.15050E-03_JPRB,0.11425E-03_JPRB,0.57921E-04_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.28828E-03_JPRB,0.26532E-03_JPRB,0.25425E-03_JPRB,0.23723E-03_JPRB,0.21797E-03_JPRB, &
+ & 0.19695E-03_JPRB,0.17056E-03_JPRB,0.13252E-03_JPRB,0.76361E-04_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.29236E-03_JPRB,0.27228E-03_JPRB,0.26588E-03_JPRB,0.25415E-03_JPRB,0.24099E-03_JPRB, &
+ & 0.22135E-03_JPRB,0.19174E-03_JPRB,0.15232E-03_JPRB,0.98360E-04_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.29717E-03_JPRB,0.28209E-03_JPRB,0.27970E-03_JPRB,0.27650E-03_JPRB,0.26714E-03_JPRB, &
+ & 0.24681E-03_JPRB,0.21371E-03_JPRB,0.17631E-03_JPRB,0.12518E-03_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.30177E-03_JPRB,0.29180E-03_JPRB,0.29905E-03_JPRB,0.30274E-03_JPRB,0.29362E-03_JPRB, &
+ & 0.27208E-03_JPRB,0.24087E-03_JPRB,0.20461E-03_JPRB,0.15616E-03_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.24998E-03_JPRB,0.23220E-03_JPRB,0.21962E-03_JPRB,0.20418E-03_JPRB,0.18598E-03_JPRB, &
+ & 0.16635E-03_JPRB,0.14319E-03_JPRB,0.11002E-03_JPRB,0.54657E-04_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.25422E-03_JPRB,0.23880E-03_JPRB,0.23171E-03_JPRB,0.21907E-03_JPRB,0.20484E-03_JPRB, &
+ & 0.18724E-03_JPRB,0.16371E-03_JPRB,0.12837E-03_JPRB,0.72183E-04_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.25909E-03_JPRB,0.24827E-03_JPRB,0.24443E-03_JPRB,0.23867E-03_JPRB,0.22868E-03_JPRB, &
+ & 0.21084E-03_JPRB,0.18482E-03_JPRB,0.14974E-03_JPRB,0.93395E-04_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.26399E-03_JPRB,0.25851E-03_JPRB,0.26208E-03_JPRB,0.26298E-03_JPRB,0.25438E-03_JPRB, &
+ & 0.23482E-03_JPRB,0.20834E-03_JPRB,0.17589E-03_JPRB,0.11924E-03_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.26914E-03_JPRB,0.26866E-03_JPRB,0.28401E-03_JPRB,0.28945E-03_JPRB,0.28022E-03_JPRB, &
+ & 0.26150E-03_JPRB,0.23750E-03_JPRB,0.20542E-03_JPRB,0.14923E-03_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.21751E-03_JPRB,0.20608E-03_JPRB,0.19731E-03_JPRB,0.18540E-03_JPRB,0.17208E-03_JPRB, &
+ & 0.15624E-03_JPRB,0.13474E-03_JPRB,0.10527E-03_JPRB,0.50953E-04_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.22228E-03_JPRB,0.21439E-03_JPRB,0.20968E-03_JPRB,0.20158E-03_JPRB,0.19151E-03_JPRB, &
+ & 0.17720E-03_JPRB,0.15564E-03_JPRB,0.12461E-03_JPRB,0.67516E-04_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.22727E-03_JPRB,0.22462E-03_JPRB,0.22474E-03_JPRB,0.22318E-03_JPRB,0.21469E-03_JPRB, &
+ & 0.19989E-03_JPRB,0.17790E-03_JPRB,0.14782E-03_JPRB,0.88180E-04_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.23242E-03_JPRB,0.23488E-03_JPRB,0.24462E-03_JPRB,0.24805E-03_JPRB,0.24003E-03_JPRB, &
+ & 0.22364E-03_JPRB,0.20382E-03_JPRB,0.17470E-03_JPRB,0.11335E-03_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.23819E-03_JPRB,0.24692E-03_JPRB,0.26797E-03_JPRB,0.27413E-03_JPRB,0.26611E-03_JPRB, &
+ & 0.25207E-03_JPRB,0.23456E-03_JPRB,0.20493E-03_JPRB,0.14302E-03_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.54188E-03_JPRB,0.47438E-03_JPRB,0.41220E-03_JPRB,0.36319E-03_JPRB,0.32177E-03_JPRB, &
+ & 0.28178E-03_JPRB,0.26195E-03_JPRB,0.26768E-03_JPRB,0.30988E-03_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.53863E-03_JPRB,0.47157E-03_JPRB,0.41235E-03_JPRB,0.37142E-03_JPRB,0.33314E-03_JPRB, &
+ & 0.30667E-03_JPRB,0.29622E-03_JPRB,0.31573E-03_JPRB,0.36594E-03_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.53537E-03_JPRB,0.46873E-03_JPRB,0.41881E-03_JPRB,0.37881E-03_JPRB,0.35190E-03_JPRB, &
+ & 0.33275E-03_JPRB,0.33720E-03_JPRB,0.36928E-03_JPRB,0.42810E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.53255E-03_JPRB,0.46630E-03_JPRB,0.42443E-03_JPRB,0.38945E-03_JPRB,0.37640E-03_JPRB, &
+ & 0.36424E-03_JPRB,0.38086E-03_JPRB,0.42782E-03_JPRB,0.49486E-03_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.53016E-03_JPRB,0.46423E-03_JPRB,0.43029E-03_JPRB,0.40524E-03_JPRB,0.39835E-03_JPRB, &
+ & 0.40134E-03_JPRB,0.42785E-03_JPRB,0.48998E-03_JPRB,0.56469E-03_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.58031E-03_JPRB,0.50799E-03_JPRB,0.44209E-03_JPRB,0.39038E-03_JPRB,0.34592E-03_JPRB, &
+ & 0.30091E-03_JPRB,0.27060E-03_JPRB,0.26179E-03_JPRB,0.30262E-03_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.57783E-03_JPRB,0.50583E-03_JPRB,0.44303E-03_JPRB,0.40158E-03_JPRB,0.35771E-03_JPRB, &
+ & 0.32458E-03_JPRB,0.30412E-03_JPRB,0.31051E-03_JPRB,0.36041E-03_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.57540E-03_JPRB,0.50373E-03_JPRB,0.45070E-03_JPRB,0.41078E-03_JPRB,0.37604E-03_JPRB, &
+ & 0.34973E-03_JPRB,0.34205E-03_JPRB,0.36376E-03_JPRB,0.42111E-03_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.57390E-03_JPRB,0.50246E-03_JPRB,0.45850E-03_JPRB,0.42273E-03_JPRB,0.40005E-03_JPRB, &
+ & 0.37925E-03_JPRB,0.38380E-03_JPRB,0.42075E-03_JPRB,0.48570E-03_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.57251E-03_JPRB,0.50128E-03_JPRB,0.46686E-03_JPRB,0.44000E-03_JPRB,0.42177E-03_JPRB, &
+ & 0.41338E-03_JPRB,0.42764E-03_JPRB,0.47996E-03_JPRB,0.55489E-03_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.61606E-03_JPRB,0.53921E-03_JPRB,0.46963E-03_JPRB,0.41409E-03_JPRB,0.36561E-03_JPRB, &
+ & 0.31888E-03_JPRB,0.27397E-03_JPRB,0.24837E-03_JPRB,0.28056E-03_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.61406E-03_JPRB,0.53752E-03_JPRB,0.47091E-03_JPRB,0.42713E-03_JPRB,0.37975E-03_JPRB, &
+ & 0.33844E-03_JPRB,0.30659E-03_JPRB,0.29320E-03_JPRB,0.33782E-03_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.61257E-03_JPRB,0.53626E-03_JPRB,0.47829E-03_JPRB,0.43902E-03_JPRB,0.39761E-03_JPRB, &
+ & 0.36364E-03_JPRB,0.34206E-03_JPRB,0.34371E-03_JPRB,0.39648E-03_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.61154E-03_JPRB,0.53538E-03_JPRB,0.48822E-03_JPRB,0.45223E-03_JPRB,0.42130E-03_JPRB, &
+ & 0.39347E-03_JPRB,0.37907E-03_JPRB,0.39708E-03_JPRB,0.45765E-03_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.61140E-03_JPRB,0.53529E-03_JPRB,0.49797E-03_JPRB,0.47117E-03_JPRB,0.44115E-03_JPRB, &
+ & 0.42497E-03_JPRB,0.41979E-03_JPRB,0.45564E-03_JPRB,0.52659E-03_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.64443E-03_JPRB,0.56411E-03_JPRB,0.49232E-03_JPRB,0.43467E-03_JPRB,0.38190E-03_JPRB, &
+ & 0.33277E-03_JPRB,0.27825E-03_JPRB,0.23501E-03_JPRB,0.25182E-03_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.64292E-03_JPRB,0.56277E-03_JPRB,0.49409E-03_JPRB,0.44787E-03_JPRB,0.39817E-03_JPRB, &
+ & 0.35161E-03_JPRB,0.30747E-03_JPRB,0.27717E-03_JPRB,0.30629E-03_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.64243E-03_JPRB,0.56236E-03_JPRB,0.50119E-03_JPRB,0.46200E-03_JPRB,0.41580E-03_JPRB, &
+ & 0.37809E-03_JPRB,0.34162E-03_JPRB,0.32168E-03_JPRB,0.36251E-03_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.64248E-03_JPRB,0.56245E-03_JPRB,0.51257E-03_JPRB,0.47612E-03_JPRB,0.44107E-03_JPRB, &
+ & 0.40610E-03_JPRB,0.37659E-03_JPRB,0.36992E-03_JPRB,0.42339E-03_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.64345E-03_JPRB,0.56414E-03_JPRB,0.52333E-03_JPRB,0.49621E-03_JPRB,0.46345E-03_JPRB, &
+ & 0.43530E-03_JPRB,0.41388E-03_JPRB,0.42704E-03_JPRB,0.49356E-03_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.66205E-03_JPRB,0.57941E-03_JPRB,0.50732E-03_JPRB,0.44788E-03_JPRB,0.39504E-03_JPRB, &
+ & 0.34261E-03_JPRB,0.28274E-03_JPRB,0.22440E-03_JPRB,0.22048E-03_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.66163E-03_JPRB,0.57912E-03_JPRB,0.51033E-03_JPRB,0.46104E-03_JPRB,0.41289E-03_JPRB, &
+ & 0.36220E-03_JPRB,0.30969E-03_JPRB,0.26291E-03_JPRB,0.27073E-03_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.66197E-03_JPRB,0.57946E-03_JPRB,0.51799E-03_JPRB,0.47594E-03_JPRB,0.43132E-03_JPRB, &
+ & 0.39012E-03_JPRB,0.34192E-03_JPRB,0.30335E-03_JPRB,0.32369E-03_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.66310E-03_JPRB,0.58124E-03_JPRB,0.52962E-03_JPRB,0.49191E-03_JPRB,0.45677E-03_JPRB, &
+ & 0.42022E-03_JPRB,0.37529E-03_JPRB,0.34603E-03_JPRB,0.38247E-03_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.66411E-03_JPRB,0.58365E-03_JPRB,0.54225E-03_JPRB,0.51373E-03_JPRB,0.48391E-03_JPRB, &
+ & 0.44802E-03_JPRB,0.41016E-03_JPRB,0.39855E-03_JPRB,0.45388E-03_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.66761E-03_JPRB,0.58431E-03_JPRB,0.51405E-03_JPRB,0.45280E-03_JPRB,0.40155E-03_JPRB, &
+ & 0.34610E-03_JPRB,0.28249E-03_JPRB,0.21395E-03_JPRB,0.18888E-03_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.66804E-03_JPRB,0.58472E-03_JPRB,0.51807E-03_JPRB,0.46619E-03_JPRB,0.41922E-03_JPRB, &
+ & 0.36797E-03_JPRB,0.30908E-03_JPRB,0.24851E-03_JPRB,0.23408E-03_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.66946E-03_JPRB,0.58664E-03_JPRB,0.52673E-03_JPRB,0.48103E-03_JPRB,0.43940E-03_JPRB, &
+ & 0.39605E-03_JPRB,0.34204E-03_JPRB,0.28507E-03_JPRB,0.28224E-03_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.67150E-03_JPRB,0.59004E-03_JPRB,0.53959E-03_JPRB,0.49825E-03_JPRB,0.46612E-03_JPRB, &
+ & 0.42814E-03_JPRB,0.37432E-03_JPRB,0.32325E-03_JPRB,0.33817E-03_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.67315E-03_JPRB,0.59352E-03_JPRB,0.55351E-03_JPRB,0.52125E-03_JPRB,0.49748E-03_JPRB, &
+ & 0.45943E-03_JPRB,0.40603E-03_JPRB,0.37064E-03_JPRB,0.40786E-03_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.65825E-03_JPRB,0.57610E-03_JPRB,0.50973E-03_JPRB,0.44919E-03_JPRB,0.40091E-03_JPRB, &
+ & 0.34393E-03_JPRB,0.27863E-03_JPRB,0.20584E-03_JPRB,0.15896E-03_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.66067E-03_JPRB,0.57854E-03_JPRB,0.51604E-03_JPRB,0.46345E-03_JPRB,0.41921E-03_JPRB, &
+ & 0.36628E-03_JPRB,0.30597E-03_JPRB,0.23625E-03_JPRB,0.19866E-03_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.66419E-03_JPRB,0.58318E-03_JPRB,0.52599E-03_JPRB,0.48043E-03_JPRB,0.43994E-03_JPRB, &
+ & 0.39562E-03_JPRB,0.33865E-03_JPRB,0.26970E-03_JPRB,0.24286E-03_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.66717E-03_JPRB,0.58792E-03_JPRB,0.54016E-03_JPRB,0.49893E-03_JPRB,0.46857E-03_JPRB, &
+ & 0.43005E-03_JPRB,0.37266E-03_JPRB,0.30411E-03_JPRB,0.29541E-03_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.67024E-03_JPRB,0.59309E-03_JPRB,0.55482E-03_JPRB,0.52246E-03_JPRB,0.50380E-03_JPRB, &
+ & 0.46446E-03_JPRB,0.40297E-03_JPRB,0.34641E-03_JPRB,0.36121E-03_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.63858E-03_JPRB,0.55888E-03_JPRB,0.49736E-03_JPRB,0.43942E-03_JPRB,0.39082E-03_JPRB, &
+ & 0.33512E-03_JPRB,0.27058E-03_JPRB,0.19736E-03_JPRB,0.13589E-03_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.64324E-03_JPRB,0.56410E-03_JPRB,0.50530E-03_JPRB,0.45504E-03_JPRB,0.41149E-03_JPRB, &
+ & 0.35701E-03_JPRB,0.29879E-03_JPRB,0.22618E-03_JPRB,0.16884E-03_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.64790E-03_JPRB,0.57033E-03_JPRB,0.51640E-03_JPRB,0.47474E-03_JPRB,0.43226E-03_JPRB, &
+ & 0.38846E-03_JPRB,0.33154E-03_JPRB,0.25769E-03_JPRB,0.20679E-03_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.65242E-03_JPRB,0.57688E-03_JPRB,0.53191E-03_JPRB,0.49447E-03_JPRB,0.46234E-03_JPRB, &
+ & 0.42468E-03_JPRB,0.36669E-03_JPRB,0.28907E-03_JPRB,0.25449E-03_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.65716E-03_JPRB,0.58346E-03_JPRB,0.54799E-03_JPRB,0.51859E-03_JPRB,0.49982E-03_JPRB, &
+ & 0.46218E-03_JPRB,0.39875E-03_JPRB,0.32573E-03_JPRB,0.31655E-03_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.61155E-03_JPRB,0.53549E-03_JPRB,0.47878E-03_JPRB,0.42579E-03_JPRB,0.37499E-03_JPRB, &
+ & 0.31961E-03_JPRB,0.25793E-03_JPRB,0.18655E-03_JPRB,0.11490E-03_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.61794E-03_JPRB,0.54314E-03_JPRB,0.48878E-03_JPRB,0.44250E-03_JPRB,0.39687E-03_JPRB, &
+ & 0.34151E-03_JPRB,0.28569E-03_JPRB,0.21436E-03_JPRB,0.14511E-03_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.62338E-03_JPRB,0.55078E-03_JPRB,0.50083E-03_JPRB,0.46354E-03_JPRB,0.41796E-03_JPRB, &
+ & 0.37306E-03_JPRB,0.31954E-03_JPRB,0.24508E-03_JPRB,0.17854E-03_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.62936E-03_JPRB,0.55894E-03_JPRB,0.51722E-03_JPRB,0.48335E-03_JPRB,0.44775E-03_JPRB, &
+ & 0.41130E-03_JPRB,0.35579E-03_JPRB,0.27533E-03_JPRB,0.21988E-03_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.63545E-03_JPRB,0.56698E-03_JPRB,0.53473E-03_JPRB,0.50887E-03_JPRB,0.48603E-03_JPRB, &
+ & 0.45259E-03_JPRB,0.39001E-03_JPRB,0.30792E-03_JPRB,0.27464E-03_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.57726E-03_JPRB,0.50676E-03_JPRB,0.45606E-03_JPRB,0.40779E-03_JPRB,0.35629E-03_JPRB, &
+ & 0.30220E-03_JPRB,0.24273E-03_JPRB,0.17731E-03_JPRB,0.97262E-04_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.58382E-03_JPRB,0.51548E-03_JPRB,0.46729E-03_JPRB,0.42570E-03_JPRB,0.37915E-03_JPRB, &
+ & 0.32497E-03_JPRB,0.26965E-03_JPRB,0.20381E-03_JPRB,0.12529E-03_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.59071E-03_JPRB,0.52512E-03_JPRB,0.48044E-03_JPRB,0.44753E-03_JPRB,0.40142E-03_JPRB, &
+ & 0.35504E-03_JPRB,0.30526E-03_JPRB,0.23284E-03_JPRB,0.15783E-03_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.59829E-03_JPRB,0.53444E-03_JPRB,0.49886E-03_JPRB,0.46810E-03_JPRB,0.43172E-03_JPRB, &
+ & 0.39380E-03_JPRB,0.34313E-03_JPRB,0.26284E-03_JPRB,0.19647E-03_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.60558E-03_JPRB,0.54444E-03_JPRB,0.51788E-03_JPRB,0.49497E-03_JPRB,0.47022E-03_JPRB, &
+ & 0.43733E-03_JPRB,0.37954E-03_JPRB,0.29404E-03_JPRB,0.24439E-03_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.53880E-03_JPRB,0.47669E-03_JPRB,0.43422E-03_JPRB,0.39066E-03_JPRB,0.34441E-03_JPRB, &
+ & 0.29300E-03_JPRB,0.23722E-03_JPRB,0.17846E-03_JPRB,0.93053E-04_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.54672E-03_JPRB,0.48762E-03_JPRB,0.44694E-03_JPRB,0.41155E-03_JPRB,0.36791E-03_JPRB, &
+ & 0.31854E-03_JPRB,0.26663E-03_JPRB,0.20551E-03_JPRB,0.12100E-03_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.55543E-03_JPRB,0.49853E-03_JPRB,0.46450E-03_JPRB,0.43411E-03_JPRB,0.39364E-03_JPRB, &
+ & 0.35233E-03_JPRB,0.30378E-03_JPRB,0.23442E-03_JPRB,0.15474E-03_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.56418E-03_JPRB,0.50955E-03_JPRB,0.48543E-03_JPRB,0.45785E-03_JPRB,0.42947E-03_JPRB, &
+ & 0.39274E-03_JPRB,0.34329E-03_JPRB,0.26304E-03_JPRB,0.19545E-03_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.57281E-03_JPRB,0.52221E-03_JPRB,0.50507E-03_JPRB,0.49044E-03_JPRB,0.47093E-03_JPRB, &
+ & 0.43647E-03_JPRB,0.38057E-03_JPRB,0.29685E-03_JPRB,0.24345E-03_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.49534E-03_JPRB,0.44336E-03_JPRB,0.40843E-03_JPRB,0.37029E-03_JPRB,0.32924E-03_JPRB, &
+ & 0.28268E-03_JPRB,0.23204E-03_JPRB,0.17692E-03_JPRB,0.89557E-04_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.50529E-03_JPRB,0.45586E-03_JPRB,0.42428E-03_JPRB,0.39360E-03_JPRB,0.35384E-03_JPRB, &
+ & 0.31099E-03_JPRB,0.26296E-03_JPRB,0.20575E-03_JPRB,0.11779E-03_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.51591E-03_JPRB,0.46841E-03_JPRB,0.44557E-03_JPRB,0.41710E-03_JPRB,0.38396E-03_JPRB, &
+ & 0.34779E-03_JPRB,0.29981E-03_JPRB,0.23475E-03_JPRB,0.15231E-03_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.52638E-03_JPRB,0.48189E-03_JPRB,0.46689E-03_JPRB,0.44567E-03_JPRB,0.42354E-03_JPRB, &
+ & 0.38951E-03_JPRB,0.33959E-03_JPRB,0.26406E-03_JPRB,0.19354E-03_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.53740E-03_JPRB,0.49847E-03_JPRB,0.48961E-03_JPRB,0.48352E-03_JPRB,0.46848E-03_JPRB, &
+ & 0.43322E-03_JPRB,0.37807E-03_JPRB,0.30031E-03_JPRB,0.24179E-03_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.44967E-03_JPRB,0.40765E-03_JPRB,0.37964E-03_JPRB,0.34767E-03_JPRB,0.31190E-03_JPRB, &
+ & 0.27110E-03_JPRB,0.22687E-03_JPRB,0.17331E-03_JPRB,0.86456E-04_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.46197E-03_JPRB,0.42196E-03_JPRB,0.40010E-03_JPRB,0.37282E-03_JPRB,0.33881E-03_JPRB, &
+ & 0.30170E-03_JPRB,0.25812E-03_JPRB,0.20314E-03_JPRB,0.11471E-03_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.47416E-03_JPRB,0.43662E-03_JPRB,0.42347E-03_JPRB,0.39902E-03_JPRB,0.37341E-03_JPRB, &
+ & 0.34073E-03_JPRB,0.29426E-03_JPRB,0.23321E-03_JPRB,0.14921E-03_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.48670E-03_JPRB,0.45348E-03_JPRB,0.44656E-03_JPRB,0.43321E-03_JPRB,0.41603E-03_JPRB, &
+ & 0.38366E-03_JPRB,0.33328E-03_JPRB,0.26489E-03_JPRB,0.19032E-03_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.49941E-03_JPRB,0.47298E-03_JPRB,0.47361E-03_JPRB,0.47457E-03_JPRB,0.46263E-03_JPRB, &
+ & 0.42791E-03_JPRB,0.37404E-03_JPRB,0.30319E-03_JPRB,0.23864E-03_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.67194E-03_JPRB,0.58821E-03_JPRB,0.50483E-03_JPRB,0.44022E-03_JPRB,0.39428E-03_JPRB, &
+ & 0.35001E-03_JPRB,0.32802E-03_JPRB,0.34712E-03_JPRB,0.40424E-03_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.66779E-03_JPRB,0.58462E-03_JPRB,0.50560E-03_JPRB,0.45370E-03_JPRB,0.41018E-03_JPRB, &
+ & 0.37788E-03_JPRB,0.37804E-03_JPRB,0.41641E-03_JPRB,0.48433E-03_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.66375E-03_JPRB,0.58112E-03_JPRB,0.50831E-03_JPRB,0.46547E-03_JPRB,0.43045E-03_JPRB, &
+ & 0.42028E-03_JPRB,0.43766E-03_JPRB,0.49681E-03_JPRB,0.57585E-03_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.65976E-03_JPRB,0.57768E-03_JPRB,0.51951E-03_JPRB,0.47941E-03_JPRB,0.45883E-03_JPRB, &
+ & 0.47280E-03_JPRB,0.50926E-03_JPRB,0.58385E-03_JPRB,0.67578E-03_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.65493E-03_JPRB,0.57349E-03_JPRB,0.52976E-03_JPRB,0.49649E-03_JPRB,0.49872E-03_JPRB, &
+ & 0.52477E-03_JPRB,0.58910E-03_JPRB,0.67477E-03_JPRB,0.78177E-03_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.74429E-03_JPRB,0.65147E-03_JPRB,0.55958E-03_JPRB,0.48439E-03_JPRB,0.43163E-03_JPRB, &
+ & 0.37450E-03_JPRB,0.34047E-03_JPRB,0.34702E-03_JPRB,0.40780E-03_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.73897E-03_JPRB,0.64685E-03_JPRB,0.56004E-03_JPRB,0.49710E-03_JPRB,0.44831E-03_JPRB, &
+ & 0.39986E-03_JPRB,0.38897E-03_JPRB,0.41601E-03_JPRB,0.48800E-03_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.73423E-03_JPRB,0.64274E-03_JPRB,0.56120E-03_JPRB,0.51084E-03_JPRB,0.46668E-03_JPRB, &
+ & 0.44211E-03_JPRB,0.44391E-03_JPRB,0.49187E-03_JPRB,0.57573E-03_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.72906E-03_JPRB,0.63825E-03_JPRB,0.57090E-03_JPRB,0.52414E-03_JPRB,0.49429E-03_JPRB, &
+ & 0.48962E-03_JPRB,0.50615E-03_JPRB,0.57487E-03_JPRB,0.67078E-03_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.72487E-03_JPRB,0.63461E-03_JPRB,0.58043E-03_JPRB,0.54078E-03_JPRB,0.53373E-03_JPRB, &
+ & 0.54010E-03_JPRB,0.58187E-03_JPRB,0.66737E-03_JPRB,0.77655E-03_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.81958E-03_JPRB,0.71735E-03_JPRB,0.61664E-03_JPRB,0.53266E-03_JPRB,0.46619E-03_JPRB, &
+ & 0.39818E-03_JPRB,0.35035E-03_JPRB,0.33455E-03_JPRB,0.39417E-03_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.81517E-03_JPRB,0.71349E-03_JPRB,0.61778E-03_JPRB,0.54292E-03_JPRB,0.48245E-03_JPRB, &
+ & 0.42187E-03_JPRB,0.39187E-03_JPRB,0.40203E-03_JPRB,0.47500E-03_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.81131E-03_JPRB,0.71014E-03_JPRB,0.61887E-03_JPRB,0.55563E-03_JPRB,0.49928E-03_JPRB, &
+ & 0.45852E-03_JPRB,0.44599E-03_JPRB,0.47656E-03_JPRB,0.56304E-03_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.80684E-03_JPRB,0.70624E-03_JPRB,0.62502E-03_JPRB,0.56854E-03_JPRB,0.52516E-03_JPRB, &
+ & 0.50282E-03_JPRB,0.50405E-03_JPRB,0.55674E-03_JPRB,0.65701E-03_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.80277E-03_JPRB,0.70271E-03_JPRB,0.63387E-03_JPRB,0.58439E-03_JPRB,0.56394E-03_JPRB, &
+ & 0.54984E-03_JPRB,0.57036E-03_JPRB,0.64435E-03_JPRB,0.75883E-03_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.88962E-03_JPRB,0.77859E-03_JPRB,0.66931E-03_JPRB,0.57740E-03_JPRB,0.50138E-03_JPRB, &
+ & 0.42396E-03_JPRB,0.36076E-03_JPRB,0.31901E-03_JPRB,0.36723E-03_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.88665E-03_JPRB,0.77601E-03_JPRB,0.67190E-03_JPRB,0.58651E-03_JPRB,0.51766E-03_JPRB, &
+ & 0.44641E-03_JPRB,0.39755E-03_JPRB,0.38137E-03_JPRB,0.44921E-03_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.88362E-03_JPRB,0.77338E-03_JPRB,0.67394E-03_JPRB,0.60034E-03_JPRB,0.53406E-03_JPRB, &
+ & 0.47716E-03_JPRB,0.44855E-03_JPRB,0.45695E-03_JPRB,0.53953E-03_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.87936E-03_JPRB,0.76967E-03_JPRB,0.67789E-03_JPRB,0.61530E-03_JPRB,0.55605E-03_JPRB, &
+ & 0.52026E-03_JPRB,0.50535E-03_JPRB,0.53746E-03_JPRB,0.63432E-03_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.87542E-03_JPRB,0.76625E-03_JPRB,0.68901E-03_JPRB,0.63085E-03_JPRB,0.59283E-03_JPRB, &
+ & 0.56499E-03_JPRB,0.56855E-03_JPRB,0.62330E-03_JPRB,0.73477E-03_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.95206E-03_JPRB,0.83319E-03_JPRB,0.71670E-03_JPRB,0.61887E-03_JPRB,0.53098E-03_JPRB, &
+ & 0.45065E-03_JPRB,0.37161E-03_JPRB,0.30790E-03_JPRB,0.33661E-03_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.95024E-03_JPRB,0.83163E-03_JPRB,0.72052E-03_JPRB,0.62686E-03_JPRB,0.54899E-03_JPRB, &
+ & 0.47363E-03_JPRB,0.40570E-03_JPRB,0.36303E-03_JPRB,0.41611E-03_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.94830E-03_JPRB,0.82995E-03_JPRB,0.72350E-03_JPRB,0.64294E-03_JPRB,0.56882E-03_JPRB, &
+ & 0.49923E-03_JPRB,0.45370E-03_JPRB,0.43446E-03_JPRB,0.50740E-03_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.94590E-03_JPRB,0.82788E-03_JPRB,0.72796E-03_JPRB,0.66075E-03_JPRB,0.59106E-03_JPRB, &
+ & 0.53960E-03_JPRB,0.50922E-03_JPRB,0.51449E-03_JPRB,0.60347E-03_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.94431E-03_JPRB,0.82652E-03_JPRB,0.73985E-03_JPRB,0.67685E-03_JPRB,0.62406E-03_JPRB, &
+ & 0.58535E-03_JPRB,0.56960E-03_JPRB,0.60003E-03_JPRB,0.70205E-03_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.10063E-02_JPRB,0.88067E-03_JPRB,0.75816E-03_JPRB,0.65590E-03_JPRB,0.55704E-03_JPRB, &
+ & 0.47312E-03_JPRB,0.38218E-03_JPRB,0.29812E-03_JPRB,0.29923E-03_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.10075E-02_JPRB,0.88171E-03_JPRB,0.76490E-03_JPRB,0.66447E-03_JPRB,0.57639E-03_JPRB, &
+ & 0.49685E-03_JPRB,0.41345E-03_JPRB,0.34724E-03_JPRB,0.37557E-03_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.10072E-02_JPRB,0.88152E-03_JPRB,0.76915E-03_JPRB,0.68176E-03_JPRB,0.59750E-03_JPRB, &
+ & 0.52339E-03_JPRB,0.45689E-03_JPRB,0.41130E-03_JPRB,0.46505E-03_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.10060E-02_JPRB,0.88049E-03_JPRB,0.77394E-03_JPRB,0.69974E-03_JPRB,0.62189E-03_JPRB, &
+ & 0.55958E-03_JPRB,0.51188E-03_JPRB,0.48580E-03_JPRB,0.55924E-03_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.10051E-02_JPRB,0.87967E-03_JPRB,0.78569E-03_JPRB,0.71720E-03_JPRB,0.65527E-03_JPRB, &
+ & 0.60501E-03_JPRB,0.57082E-03_JPRB,0.56756E-03_JPRB,0.65737E-03_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.10487E-02_JPRB,0.91773E-03_JPRB,0.79062E-03_JPRB,0.68516E-03_JPRB,0.57878E-03_JPRB, &
+ & 0.49035E-03_JPRB,0.39066E-03_JPRB,0.28990E-03_JPRB,0.26192E-03_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.10509E-02_JPRB,0.91972E-03_JPRB,0.79894E-03_JPRB,0.69452E-03_JPRB,0.59953E-03_JPRB, &
+ & 0.51487E-03_JPRB,0.42128E-03_JPRB,0.33451E-03_JPRB,0.33284E-03_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.10507E-02_JPRB,0.91957E-03_JPRB,0.80398E-03_JPRB,0.71157E-03_JPRB,0.62221E-03_JPRB, &
+ & 0.54150E-03_JPRB,0.46197E-03_JPRB,0.39208E-03_JPRB,0.41685E-03_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.10509E-02_JPRB,0.91973E-03_JPRB,0.80950E-03_JPRB,0.73042E-03_JPRB,0.64659E-03_JPRB, &
+ & 0.57916E-03_JPRB,0.51360E-03_JPRB,0.46065E-03_JPRB,0.50813E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.10509E-02_JPRB,0.91978E-03_JPRB,0.82196E-03_JPRB,0.75027E-03_JPRB,0.67740E-03_JPRB, &
+ & 0.62606E-03_JPRB,0.57168E-03_JPRB,0.53418E-03_JPRB,0.60461E-03_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.10710E-02_JPRB,0.93729E-03_JPRB,0.80929E-03_JPRB,0.70366E-03_JPRB,0.59621E-03_JPRB, &
+ & 0.50074E-03_JPRB,0.39602E-03_JPRB,0.28309E-03_JPRB,0.22630E-03_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.10749E-02_JPRB,0.94069E-03_JPRB,0.82032E-03_JPRB,0.71447E-03_JPRB,0.61694E-03_JPRB, &
+ & 0.52833E-03_JPRB,0.42406E-03_JPRB,0.32400E-03_JPRB,0.29100E-03_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.10773E-02_JPRB,0.94281E-03_JPRB,0.82736E-03_JPRB,0.73051E-03_JPRB,0.64296E-03_JPRB, &
+ & 0.55298E-03_JPRB,0.46605E-03_JPRB,0.37591E-03_JPRB,0.36869E-03_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.10796E-02_JPRB,0.94487E-03_JPRB,0.83459E-03_JPRB,0.75111E-03_JPRB,0.66786E-03_JPRB, &
+ & 0.59048E-03_JPRB,0.51603E-03_JPRB,0.43920E-03_JPRB,0.45502E-03_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.10814E-02_JPRB,0.94726E-03_JPRB,0.84809E-03_JPRB,0.77185E-03_JPRB,0.69811E-03_JPRB, &
+ & 0.64090E-03_JPRB,0.57338E-03_JPRB,0.50692E-03_JPRB,0.54643E-03_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.10730E-02_JPRB,0.93903E-03_JPRB,0.81373E-03_JPRB,0.70878E-03_JPRB,0.60523E-03_JPRB, &
+ & 0.50463E-03_JPRB,0.39690E-03_JPRB,0.27640E-03_JPRB,0.19492E-03_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.10796E-02_JPRB,0.94482E-03_JPRB,0.82740E-03_JPRB,0.72216E-03_JPRB,0.62667E-03_JPRB, &
+ & 0.53533E-03_JPRB,0.42406E-03_JPRB,0.31368E-03_JPRB,0.25100E-03_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.10853E-02_JPRB,0.94982E-03_JPRB,0.83742E-03_JPRB,0.73904E-03_JPRB,0.65592E-03_JPRB, &
+ & 0.56092E-03_JPRB,0.46365E-03_JPRB,0.36183E-03_JPRB,0.32022E-03_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.10900E-02_JPRB,0.95441E-03_JPRB,0.84774E-03_JPRB,0.76272E-03_JPRB,0.68162E-03_JPRB, &
+ & 0.59735E-03_JPRB,0.51414E-03_JPRB,0.41927E-03_JPRB,0.39972E-03_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.10952E-02_JPRB,0.96081E-03_JPRB,0.86364E-03_JPRB,0.78596E-03_JPRB,0.71341E-03_JPRB, &
+ & 0.64539E-03_JPRB,0.57286E-03_JPRB,0.48249E-03_JPRB,0.48653E-03_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.10558E-02_JPRB,0.92391E-03_JPRB,0.80426E-03_JPRB,0.70294E-03_JPRB,0.60555E-03_JPRB, &
+ & 0.50218E-03_JPRB,0.39384E-03_JPRB,0.27052E-03_JPRB,0.17175E-03_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.10672E-02_JPRB,0.93391E-03_JPRB,0.82187E-03_JPRB,0.72055E-03_JPRB,0.62861E-03_JPRB, &
+ & 0.53517E-03_JPRB,0.42394E-03_JPRB,0.30520E-03_JPRB,0.22066E-03_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.10767E-02_JPRB,0.94234E-03_JPRB,0.83636E-03_JPRB,0.73971E-03_JPRB,0.66074E-03_JPRB, &
+ & 0.56459E-03_JPRB,0.46058E-03_JPRB,0.35232E-03_JPRB,0.28101E-03_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.10858E-02_JPRB,0.95208E-03_JPRB,0.85075E-03_JPRB,0.76653E-03_JPRB,0.68963E-03_JPRB, &
+ & 0.60125E-03_JPRB,0.51089E-03_JPRB,0.40664E-03_JPRB,0.35284E-03_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.10953E-02_JPRB,0.96285E-03_JPRB,0.86971E-03_JPRB,0.79369E-03_JPRB,0.72347E-03_JPRB, &
+ & 0.65043E-03_JPRB,0.57028E-03_JPRB,0.46529E-03_JPRB,0.43428E-03_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.10314E-02_JPRB,0.90258E-03_JPRB,0.79467E-03_JPRB,0.69943E-03_JPRB,0.60546E-03_JPRB, &
+ & 0.50625E-03_JPRB,0.39977E-03_JPRB,0.27736E-03_JPRB,0.16855E-03_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.10451E-02_JPRB,0.91471E-03_JPRB,0.81404E-03_JPRB,0.71994E-03_JPRB,0.63569E-03_JPRB, &
+ & 0.54231E-03_JPRB,0.43348E-03_JPRB,0.31480E-03_JPRB,0.21751E-03_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.10591E-02_JPRB,0.92888E-03_JPRB,0.83171E-03_JPRB,0.74582E-03_JPRB,0.67129E-03_JPRB, &
+ & 0.57545E-03_JPRB,0.47649E-03_JPRB,0.36327E-03_JPRB,0.27482E-03_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.10732E-02_JPRB,0.94400E-03_JPRB,0.85133E-03_JPRB,0.77904E-03_JPRB,0.70324E-03_JPRB, &
+ & 0.62021E-03_JPRB,0.53030E-03_JPRB,0.41771E-03_JPRB,0.34284E-03_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.10880E-02_JPRB,0.96010E-03_JPRB,0.87843E-03_JPRB,0.80902E-03_JPRB,0.74479E-03_JPRB, &
+ & 0.67711E-03_JPRB,0.59146E-03_JPRB,0.47518E-03_JPRB,0.42405E-03_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.99800E-03_JPRB,0.87344E-03_JPRB,0.77838E-03_JPRB,0.69077E-03_JPRB,0.60021E-03_JPRB, &
+ & 0.50540E-03_JPRB,0.40237E-03_JPRB,0.28326E-03_JPRB,0.16340E-03_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.10163E-02_JPRB,0.89149E-03_JPRB,0.80050E-03_JPRB,0.71513E-03_JPRB,0.63616E-03_JPRB, &
+ & 0.54455E-03_JPRB,0.44056E-03_JPRB,0.32235E-03_JPRB,0.21276E-03_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.10345E-02_JPRB,0.91067E-03_JPRB,0.82237E-03_JPRB,0.74899E-03_JPRB,0.67503E-03_JPRB, &
+ & 0.58381E-03_JPRB,0.48916E-03_JPRB,0.37171E-03_JPRB,0.26817E-03_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.10541E-02_JPRB,0.93146E-03_JPRB,0.84943E-03_JPRB,0.78581E-03_JPRB,0.71327E-03_JPRB, &
+ & 0.63724E-03_JPRB,0.54703E-03_JPRB,0.42621E-03_JPRB,0.33361E-03_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.10724E-02_JPRB,0.95127E-03_JPRB,0.88178E-03_JPRB,0.82065E-03_JPRB,0.76248E-03_JPRB, &
+ & 0.70028E-03_JPRB,0.60892E-03_JPRB,0.48179E-03_JPRB,0.41458E-03_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.95912E-03_JPRB,0.84178E-03_JPRB,0.75778E-03_JPRB,0.67765E-03_JPRB,0.59123E-03_JPRB, &
+ & 0.50112E-03_JPRB,0.40170E-03_JPRB,0.28784E-03_JPRB,0.15761E-03_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.98187E-03_JPRB,0.86541E-03_JPRB,0.78344E-03_JPRB,0.70851E-03_JPRB,0.63200E-03_JPRB, &
+ & 0.54351E-03_JPRB,0.44541E-03_JPRB,0.32864E-03_JPRB,0.20682E-03_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.10063E-02_JPRB,0.89078E-03_JPRB,0.81111E-03_JPRB,0.74766E-03_JPRB,0.67473E-03_JPRB, &
+ & 0.58963E-03_JPRB,0.49872E-03_JPRB,0.37736E-03_JPRB,0.26208E-03_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.10299E-02_JPRB,0.91565E-03_JPRB,0.84455E-03_JPRB,0.78769E-03_JPRB,0.71894E-03_JPRB, &
+ & 0.65012E-03_JPRB,0.55995E-03_JPRB,0.43170E-03_JPRB,0.32660E-03_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.10525E-02_JPRB,0.93912E-03_JPRB,0.88061E-03_JPRB,0.82863E-03_JPRB,0.77810E-03_JPRB, &
+ & 0.71766E-03_JPRB,0.62330E-03_JPRB,0.48589E-03_JPRB,0.40661E-03_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.84224E-03_JPRB,0.73740E-03_JPRB,0.63257E-03_JPRB,0.54853E-03_JPRB,0.48911E-03_JPRB, &
+ & 0.46139E-03_JPRB,0.45309E-03_JPRB,0.51018E-03_JPRB,0.59300E-03_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.83841E-03_JPRB,0.73411E-03_JPRB,0.62983E-03_JPRB,0.55802E-03_JPRB,0.51855E-03_JPRB, &
+ & 0.50261E-03_JPRB,0.52209E-03_JPRB,0.59394E-03_JPRB,0.69158E-03_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.83593E-03_JPRB,0.73202E-03_JPRB,0.62914E-03_JPRB,0.58596E-03_JPRB,0.54957E-03_JPRB, &
+ & 0.55151E-03_JPRB,0.60969E-03_JPRB,0.69097E-03_JPRB,0.80707E-03_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.83246E-03_JPRB,0.72902E-03_JPRB,0.63274E-03_JPRB,0.60961E-03_JPRB,0.59022E-03_JPRB, &
+ & 0.61063E-03_JPRB,0.70961E-03_JPRB,0.80207E-03_JPRB,0.93855E-03_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.82958E-03_JPRB,0.72654E-03_JPRB,0.65011E-03_JPRB,0.63711E-03_JPRB,0.63941E-03_JPRB, &
+ & 0.69313E-03_JPRB,0.82070E-03_JPRB,0.92941E-03_JPRB,0.10860E-02_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.94737E-03_JPRB,0.82928E-03_JPRB,0.71121E-03_JPRB,0.61292E-03_JPRB,0.53888E-03_JPRB, &
+ & 0.49608E-03_JPRB,0.46449E-03_JPRB,0.50895E-03_JPRB,0.59638E-03_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.94309E-03_JPRB,0.82559E-03_JPRB,0.70809E-03_JPRB,0.61981E-03_JPRB,0.56880E-03_JPRB, &
+ & 0.53738E-03_JPRB,0.52906E-03_JPRB,0.59714E-03_JPRB,0.70098E-03_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.93813E-03_JPRB,0.82131E-03_JPRB,0.70667E-03_JPRB,0.64442E-03_JPRB,0.60095E-03_JPRB, &
+ & 0.58581E-03_JPRB,0.62140E-03_JPRB,0.70455E-03_JPRB,0.83109E-03_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.93357E-03_JPRB,0.81735E-03_JPRB,0.70879E-03_JPRB,0.66885E-03_JPRB,0.63704E-03_JPRB, &
+ & 0.64975E-03_JPRB,0.73250E-03_JPRB,0.82836E-03_JPRB,0.97995E-03_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.92926E-03_JPRB,0.81362E-03_JPRB,0.72487E-03_JPRB,0.69759E-03_JPRB,0.68443E-03_JPRB, &
+ & 0.72989E-03_JPRB,0.85114E-03_JPRB,0.96045E-03_JPRB,0.11390E-02_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.10589E-02_JPRB,0.92685E-03_JPRB,0.79478E-03_JPRB,0.68185E-03_JPRB,0.58961E-03_JPRB, &
+ & 0.52592E-03_JPRB,0.47382E-03_JPRB,0.49304E-03_JPRB,0.58474E-03_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.10532E-02_JPRB,0.92189E-03_JPRB,0.79057E-03_JPRB,0.68536E-03_JPRB,0.61794E-03_JPRB, &
+ & 0.56535E-03_JPRB,0.53040E-03_JPRB,0.57934E-03_JPRB,0.68761E-03_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.10466E-02_JPRB,0.91613E-03_JPRB,0.78805E-03_JPRB,0.70517E-03_JPRB,0.65240E-03_JPRB, &
+ & 0.61071E-03_JPRB,0.61067E-03_JPRB,0.68776E-03_JPRB,0.81827E-03_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.10406E-02_JPRB,0.91088E-03_JPRB,0.78949E-03_JPRB,0.73011E-03_JPRB,0.68643E-03_JPRB, &
+ & 0.67486E-03_JPRB,0.72316E-03_JPRB,0.82048E-03_JPRB,0.97591E-03_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.10350E-02_JPRB,0.90609E-03_JPRB,0.80184E-03_JPRB,0.75651E-03_JPRB,0.73102E-03_JPRB, &
+ & 0.75672E-03_JPRB,0.85035E-03_JPRB,0.96398E-03_JPRB,0.11483E-02_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.11788E-02_JPRB,0.10317E-02_JPRB,0.88462E-03_JPRB,0.75562E-03_JPRB,0.64370E-03_JPRB, &
+ & 0.55868E-03_JPRB,0.48899E-03_JPRB,0.48008E-03_JPRB,0.57112E-03_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.11725E-02_JPRB,0.10263E-02_JPRB,0.87998E-03_JPRB,0.75781E-03_JPRB,0.66989E-03_JPRB, &
+ & 0.59814E-03_JPRB,0.54177E-03_JPRB,0.56164E-03_JPRB,0.66999E-03_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.11654E-02_JPRB,0.10201E-02_JPRB,0.87720E-03_JPRB,0.76990E-03_JPRB,0.70381E-03_JPRB, &
+ & 0.63928E-03_JPRB,0.60787E-03_JPRB,0.66447E-03_JPRB,0.79300E-03_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.11592E-02_JPRB,0.10147E-02_JPRB,0.87854E-03_JPRB,0.79340E-03_JPRB,0.73787E-03_JPRB, &
+ & 0.69602E-03_JPRB,0.70539E-03_JPRB,0.79266E-03_JPRB,0.94522E-03_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.11532E-02_JPRB,0.10094E-02_JPRB,0.88452E-03_JPRB,0.81797E-03_JPRB,0.78065E-03_JPRB, &
+ & 0.77762E-03_JPRB,0.82734E-03_JPRB,0.94053E-03_JPRB,0.11199E-02_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.13090E-02_JPRB,0.11455E-02_JPRB,0.98213E-03_JPRB,0.83571E-03_JPRB,0.70447E-03_JPRB, &
+ & 0.59736E-03_JPRB,0.51100E-03_JPRB,0.46541E-03_JPRB,0.54756E-03_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.13011E-02_JPRB,0.11387E-02_JPRB,0.97633E-03_JPRB,0.83818E-03_JPRB,0.72563E-03_JPRB, &
+ & 0.63146E-03_JPRB,0.56040E-03_JPRB,0.54671E-03_JPRB,0.65045E-03_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.12919E-02_JPRB,0.11307E-02_JPRB,0.97249E-03_JPRB,0.84355E-03_JPRB,0.75615E-03_JPRB, &
+ & 0.67456E-03_JPRB,0.62106E-03_JPRB,0.64503E-03_JPRB,0.77294E-03_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.12834E-02_JPRB,0.11233E-02_JPRB,0.97228E-03_JPRB,0.86290E-03_JPRB,0.79001E-03_JPRB, &
+ & 0.72644E-03_JPRB,0.70406E-03_JPRB,0.76742E-03_JPRB,0.92034E-03_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.12754E-02_JPRB,0.11163E-02_JPRB,0.97447E-03_JPRB,0.88787E-03_JPRB,0.82956E-03_JPRB, &
+ & 0.80041E-03_JPRB,0.81433E-03_JPRB,0.91302E-03_JPRB,0.10923E-02_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.14384E-02_JPRB,0.12588E-02_JPRB,0.10791E-02_JPRB,0.91745E-03_JPRB,0.77222E-03_JPRB, &
+ & 0.63777E-03_JPRB,0.53552E-03_JPRB,0.44917E-03_JPRB,0.50804E-03_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.14296E-02_JPRB,0.12511E-02_JPRB,0.10726E-02_JPRB,0.92106E-03_JPRB,0.78721E-03_JPRB, &
+ & 0.67056E-03_JPRB,0.58135E-03_JPRB,0.52600E-03_JPRB,0.61657E-03_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.14197E-02_JPRB,0.12425E-02_JPRB,0.10687E-02_JPRB,0.92311E-03_JPRB,0.81466E-03_JPRB, &
+ & 0.70925E-03_JPRB,0.63651E-03_JPRB,0.62263E-03_JPRB,0.74116E-03_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.14113E-02_JPRB,0.12351E-02_JPRB,0.10686E-02_JPRB,0.93888E-03_JPRB,0.84557E-03_JPRB, &
+ & 0.75721E-03_JPRB,0.71295E-03_JPRB,0.74435E-03_JPRB,0.88914E-03_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.14033E-02_JPRB,0.12282E-02_JPRB,0.10694E-02_JPRB,0.96147E-03_JPRB,0.87768E-03_JPRB, &
+ & 0.82519E-03_JPRB,0.81219E-03_JPRB,0.88552E-03_JPRB,0.10599E-02_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.15646E-02_JPRB,0.13692E-02_JPRB,0.11737E-02_JPRB,0.99670E-03_JPRB,0.83910E-03_JPRB, &
+ & 0.68337E-03_JPRB,0.56133E-03_JPRB,0.43784E-03_JPRB,0.46053E-03_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.15575E-02_JPRB,0.13630E-02_JPRB,0.11685E-02_JPRB,0.10035E-02_JPRB,0.85062E-03_JPRB, &
+ & 0.71436E-03_JPRB,0.60284E-03_JPRB,0.50378E-03_JPRB,0.56665E-03_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.15495E-02_JPRB,0.13560E-02_JPRB,0.11666E-02_JPRB,0.10059E-02_JPRB,0.87670E-03_JPRB, &
+ & 0.74963E-03_JPRB,0.65339E-03_JPRB,0.59583E-03_JPRB,0.69467E-03_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.15420E-02_JPRB,0.13494E-02_JPRB,0.11678E-02_JPRB,0.10189E-02_JPRB,0.90417E-03_JPRB, &
+ & 0.79237E-03_JPRB,0.72265E-03_JPRB,0.71412E-03_JPRB,0.84581E-03_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.15345E-02_JPRB,0.13429E-02_JPRB,0.11695E-02_JPRB,0.10414E-02_JPRB,0.93588E-03_JPRB, &
+ & 0.84978E-03_JPRB,0.81799E-03_JPRB,0.85682E-03_JPRB,0.10184E-02_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.16856E-02_JPRB,0.14750E-02_JPRB,0.12645E-02_JPRB,0.10725E-02_JPRB,0.90201E-03_JPRB, &
+ & 0.73159E-03_JPRB,0.58478E-03_JPRB,0.43268E-03_JPRB,0.41101E-03_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.16806E-02_JPRB,0.14706E-02_JPRB,0.12609E-02_JPRB,0.10836E-02_JPRB,0.91363E-03_JPRB, &
+ & 0.76033E-03_JPRB,0.62810E-03_JPRB,0.48786E-03_JPRB,0.51346E-03_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.16744E-02_JPRB,0.14652E-02_JPRB,0.12612E-02_JPRB,0.10887E-02_JPRB,0.93599E-03_JPRB, &
+ & 0.79815E-03_JPRB,0.66916E-03_JPRB,0.56926E-03_JPRB,0.63978E-03_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.16684E-02_JPRB,0.14601E-02_JPRB,0.12641E-02_JPRB,0.11000E-02_JPRB,0.96490E-03_JPRB, &
+ & 0.83543E-03_JPRB,0.73243E-03_JPRB,0.67845E-03_JPRB,0.78892E-03_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.16618E-02_JPRB,0.14543E-02_JPRB,0.12671E-02_JPRB,0.11238E-02_JPRB,0.99451E-03_JPRB, &
+ & 0.88426E-03_JPRB,0.81935E-03_JPRB,0.81741E-03_JPRB,0.96330E-03_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.17934E-02_JPRB,0.15694E-02_JPRB,0.13453E-02_JPRB,0.11410E-02_JPRB,0.95885E-03_JPRB, &
+ & 0.77818E-03_JPRB,0.60653E-03_JPRB,0.43079E-03_JPRB,0.36156E-03_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.17902E-02_JPRB,0.15666E-02_JPRB,0.13435E-02_JPRB,0.11557E-02_JPRB,0.97291E-03_JPRB, &
+ & 0.80328E-03_JPRB,0.65101E-03_JPRB,0.47930E-03_JPRB,0.45791E-03_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.17870E-02_JPRB,0.15637E-02_JPRB,0.13465E-02_JPRB,0.11644E-02_JPRB,0.99290E-03_JPRB, &
+ & 0.84365E-03_JPRB,0.69043E-03_JPRB,0.54887E-03_JPRB,0.58027E-03_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.17836E-02_JPRB,0.15608E-02_JPRB,0.13520E-02_JPRB,0.11761E-02_JPRB,0.10245E-02_JPRB, &
+ & 0.87956E-03_JPRB,0.74487E-03_JPRB,0.64626E-03_JPRB,0.72649E-03_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.17784E-02_JPRB,0.15563E-02_JPRB,0.13567E-02_JPRB,0.11994E-02_JPRB,0.10543E-02_JPRB, &
+ & 0.92517E-03_JPRB,0.82194E-03_JPRB,0.77306E-03_JPRB,0.89652E-03_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.18870E-02_JPRB,0.16513E-02_JPRB,0.14155E-02_JPRB,0.12026E-02_JPRB,0.10094E-02_JPRB, &
+ & 0.82157E-03_JPRB,0.62812E-03_JPRB,0.43279E-03_JPRB,0.32100E-03_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.18874E-02_JPRB,0.16516E-02_JPRB,0.14168E-02_JPRB,0.12199E-02_JPRB,0.10267E-02_JPRB, &
+ & 0.84527E-03_JPRB,0.67192E-03_JPRB,0.47951E-03_JPRB,0.41207E-03_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.18869E-02_JPRB,0.16512E-02_JPRB,0.14226E-02_JPRB,0.12326E-02_JPRB,0.10456E-02_JPRB, &
+ & 0.88603E-03_JPRB,0.71450E-03_JPRB,0.53998E-03_JPRB,0.52708E-03_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.18844E-02_JPRB,0.16490E-02_JPRB,0.14297E-02_JPRB,0.12452E-02_JPRB,0.10784E-02_JPRB, &
+ & 0.92565E-03_JPRB,0.76291E-03_JPRB,0.62910E-03_JPRB,0.66842E-03_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.18812E-02_JPRB,0.16463E-02_JPRB,0.14369E-02_JPRB,0.12677E-02_JPRB,0.11133E-02_JPRB, &
+ & 0.96733E-03_JPRB,0.83676E-03_JPRB,0.74378E-03_JPRB,0.83514E-03_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.19652E-02_JPRB,0.17197E-02_JPRB,0.14741E-02_JPRB,0.12638E-02_JPRB,0.10628E-02_JPRB, &
+ & 0.86832E-03_JPRB,0.66314E-03_JPRB,0.45418E-03_JPRB,0.32052E-03_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.19706E-02_JPRB,0.17244E-02_JPRB,0.14828E-02_JPRB,0.12836E-02_JPRB,0.10826E-02_JPRB, &
+ & 0.89693E-03_JPRB,0.71120E-03_JPRB,0.50274E-03_JPRB,0.41269E-03_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.19727E-02_JPRB,0.17263E-02_JPRB,0.14935E-02_JPRB,0.12979E-02_JPRB,0.11060E-02_JPRB, &
+ & 0.94341E-03_JPRB,0.75411E-03_JPRB,0.56772E-03_JPRB,0.53374E-03_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.19726E-02_JPRB,0.17262E-02_JPRB,0.15047E-02_JPRB,0.13132E-02_JPRB,0.11439E-02_JPRB, &
+ & 0.98450E-03_JPRB,0.80814E-03_JPRB,0.66163E-03_JPRB,0.68012E-03_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.19717E-02_JPRB,0.17254E-02_JPRB,0.15111E-02_JPRB,0.13415E-02_JPRB,0.11812E-02_JPRB, &
+ & 0.10302E-02_JPRB,0.88976E-03_JPRB,0.77856E-03_JPRB,0.85217E-03_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.20238E-02_JPRB,0.17709E-02_JPRB,0.15209E-02_JPRB,0.13140E-02_JPRB,0.11103E-02_JPRB, &
+ & 0.90805E-03_JPRB,0.69487E-03_JPRB,0.47365E-03_JPRB,0.32170E-03_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.20339E-02_JPRB,0.17798E-02_JPRB,0.15376E-02_JPRB,0.13369E-02_JPRB,0.11339E-02_JPRB, &
+ & 0.94414E-03_JPRB,0.74487E-03_JPRB,0.52470E-03_JPRB,0.41340E-03_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.20400E-02_JPRB,0.17851E-02_JPRB,0.15537E-02_JPRB,0.13538E-02_JPRB,0.11634E-02_JPRB, &
+ & 0.99316E-03_JPRB,0.79139E-03_JPRB,0.59483E-03_JPRB,0.53800E-03_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.20440E-02_JPRB,0.17887E-02_JPRB,0.15672E-02_JPRB,0.13751E-02_JPRB,0.12054E-02_JPRB, &
+ & 0.10358E-02_JPRB,0.85239E-03_JPRB,0.69118E-03_JPRB,0.69062E-03_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.20478E-02_JPRB,0.17920E-02_JPRB,0.15770E-02_JPRB,0.14084E-02_JPRB,0.12434E-02_JPRB, &
+ & 0.10883E-02_JPRB,0.94102E-03_JPRB,0.81111E-03_JPRB,0.86624E-03_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.20618E-02_JPRB,0.18042E-02_JPRB,0.15564E-02_JPRB,0.13520E-02_JPRB,0.11495E-02_JPRB, &
+ & 0.94146E-03_JPRB,0.72197E-03_JPRB,0.49143E-03_JPRB,0.32080E-03_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.20769E-02_JPRB,0.18174E-02_JPRB,0.15793E-02_JPRB,0.13781E-02_JPRB,0.11781E-02_JPRB, &
+ & 0.98504E-03_JPRB,0.77410E-03_JPRB,0.54584E-03_JPRB,0.41409E-03_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.20884E-02_JPRB,0.18274E-02_JPRB,0.16007E-02_JPRB,0.14008E-02_JPRB,0.12152E-02_JPRB, &
+ & 0.10359E-02_JPRB,0.82528E-03_JPRB,0.62085E-03_JPRB,0.53970E-03_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.21000E-02_JPRB,0.18376E-02_JPRB,0.16180E-02_JPRB,0.14292E-02_JPRB,0.12615E-02_JPRB, &
+ & 0.10817E-02_JPRB,0.89457E-03_JPRB,0.71909E-03_JPRB,0.69474E-03_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.21077E-02_JPRB,0.18456E-02_JPRB,0.16335E-02_JPRB,0.14673E-02_JPRB,0.12995E-02_JPRB, &
+ & 0.11413E-02_JPRB,0.98821E-03_JPRB,0.84127E-03_JPRB,0.87402E-03_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.11199E-02_JPRB,0.98039E-03_JPRB,0.84084E-03_JPRB,0.70943E-03_JPRB,0.63603E-03_JPRB, &
+ & 0.60649E-03_JPRB,0.68312E-03_JPRB,0.76350E-03_JPRB,0.90110E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.11157E-02_JPRB,0.97670E-03_JPRB,0.83773E-03_JPRB,0.72395E-03_JPRB,0.68641E-03_JPRB, &
+ & 0.69858E-03_JPRB,0.81907E-03_JPRB,0.92056E-03_JPRB,0.10823E-02_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.11108E-02_JPRB,0.97243E-03_JPRB,0.83426E-03_JPRB,0.74791E-03_JPRB,0.75340E-03_JPRB, &
+ & 0.82026E-03_JPRB,0.97233E-03_JPRB,0.10968E-02_JPRB,0.12857E-02_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.11077E-02_JPRB,0.96981E-03_JPRB,0.83196E-03_JPRB,0.80006E-03_JPRB,0.82593E-03_JPRB, &
+ & 0.96481E-03_JPRB,0.11451E-02_JPRB,0.12942E-02_JPRB,0.15153E-02_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.11057E-02_JPRB,0.96811E-03_JPRB,0.83287E-03_JPRB,0.85771E-03_JPRB,0.92243E-03_JPRB, &
+ & 0.11291E-02_JPRB,0.13401E-02_JPRB,0.15139E-02_JPRB,0.17730E-02_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.12618E-02_JPRB,0.11045E-02_JPRB,0.94731E-03_JPRB,0.80059E-03_JPRB,0.70460E-03_JPRB, &
+ & 0.66164E-03_JPRB,0.71798E-03_JPRB,0.80280E-03_JPRB,0.96182E-03_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.12573E-02_JPRB,0.11007E-02_JPRB,0.94415E-03_JPRB,0.81463E-03_JPRB,0.74844E-03_JPRB, &
+ & 0.74157E-03_JPRB,0.85097E-03_JPRB,0.95625E-03_JPRB,0.11395E-02_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.12537E-02_JPRB,0.10976E-02_JPRB,0.94166E-03_JPRB,0.83421E-03_JPRB,0.81760E-03_JPRB, &
+ & 0.85124E-03_JPRB,0.10029E-02_JPRB,0.11319E-02_JPRB,0.13421E-02_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.12517E-02_JPRB,0.10959E-02_JPRB,0.94019E-03_JPRB,0.88029E-03_JPRB,0.88890E-03_JPRB, &
+ & 0.98937E-03_JPRB,0.11747E-02_JPRB,0.13301E-02_JPRB,0.15715E-02_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.12484E-02_JPRB,0.10932E-02_JPRB,0.93873E-03_JPRB,0.93946E-03_JPRB,0.97784E-03_JPRB, &
+ & 0.11555E-02_JPRB,0.13735E-02_JPRB,0.15606E-02_JPRB,0.18367E-02_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.14334E-02_JPRB,0.12547E-02_JPRB,0.10760E-02_JPRB,0.90369E-03_JPRB,0.78163E-03_JPRB, &
+ & 0.71064E-03_JPRB,0.72074E-03_JPRB,0.81006E-03_JPRB,0.97636E-03_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.14266E-02_JPRB,0.12488E-02_JPRB,0.10711E-02_JPRB,0.91657E-03_JPRB,0.81392E-03_JPRB, &
+ & 0.78379E-03_JPRB,0.85758E-03_JPRB,0.96540E-03_JPRB,0.11622E-02_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.14223E-02_JPRB,0.12452E-02_JPRB,0.10680E-02_JPRB,0.93146E-03_JPRB,0.87510E-03_JPRB, &
+ & 0.87756E-03_JPRB,0.10059E-02_JPRB,0.11359E-02_JPRB,0.13619E-02_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.14175E-02_JPRB,0.12411E-02_JPRB,0.10646E-02_JPRB,0.96483E-03_JPRB,0.94572E-03_JPRB, &
+ & 0.99384E-03_JPRB,0.11710E-02_JPRB,0.13256E-02_JPRB,0.15838E-02_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.14120E-02_JPRB,0.12363E-02_JPRB,0.10614E-02_JPRB,0.10223E-02_JPRB,0.10225E-02_JPRB, &
+ & 0.11461E-02_JPRB,0.13616E-02_JPRB,0.15455E-02_JPRB,0.18394E-02_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.16334E-02_JPRB,0.14296E-02_JPRB,0.12259E-02_JPRB,0.10262E-02_JPRB,0.87529E-03_JPRB, &
+ & 0.76396E-03_JPRB,0.72119E-03_JPRB,0.79306E-03_JPRB,0.95651E-03_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.16232E-02_JPRB,0.14208E-02_JPRB,0.12185E-02_JPRB,0.10348E-02_JPRB,0.89367E-03_JPRB, &
+ & 0.83199E-03_JPRB,0.84657E-03_JPRB,0.95561E-03_JPRB,0.11474E-02_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.16152E-02_JPRB,0.14140E-02_JPRB,0.12127E-02_JPRB,0.10485E-02_JPRB,0.94236E-03_JPRB, &
+ & 0.91572E-03_JPRB,0.99902E-03_JPRB,0.11299E-02_JPRB,0.13583E-02_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.16069E-02_JPRB,0.14067E-02_JPRB,0.12065E-02_JPRB,0.10685E-02_JPRB,0.10126E-02_JPRB, &
+ & 0.10172E-02_JPRB,0.11639E-02_JPRB,0.13179E-02_JPRB,0.15822E-02_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.15986E-02_JPRB,0.13996E-02_JPRB,0.12009E-02_JPRB,0.11161E-02_JPRB,0.10822E-02_JPRB, &
+ & 0.11448E-02_JPRB,0.13482E-02_JPRB,0.15289E-02_JPRB,0.18307E-02_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.18523E-02_JPRB,0.16211E-02_JPRB,0.13900E-02_JPRB,0.11617E-02_JPRB,0.98609E-03_JPRB, &
+ & 0.83071E-03_JPRB,0.73506E-03_JPRB,0.77421E-03_JPRB,0.93359E-03_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.18399E-02_JPRB,0.16104E-02_JPRB,0.13808E-02_JPRB,0.11680E-02_JPRB,0.99824E-03_JPRB, &
+ & 0.89112E-03_JPRB,0.84383E-03_JPRB,0.93250E-03_JPRB,0.11210E-02_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.18296E-02_JPRB,0.16015E-02_JPRB,0.13734E-02_JPRB,0.11806E-02_JPRB,0.10315E-02_JPRB, &
+ & 0.96812E-03_JPRB,0.98130E-03_JPRB,0.11095E-02_JPRB,0.13275E-02_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.18179E-02_JPRB,0.15913E-02_JPRB,0.13647E-02_JPRB,0.11924E-02_JPRB,0.10905E-02_JPRB, &
+ & 0.10578E-02_JPRB,0.11513E-02_JPRB,0.13088E-02_JPRB,0.15638E-02_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.18067E-02_JPRB,0.15816E-02_JPRB,0.13575E-02_JPRB,0.12252E-02_JPRB,0.11627E-02_JPRB, &
+ & 0.11690E-02_JPRB,0.13357E-02_JPRB,0.15168E-02_JPRB,0.18162E-02_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.20925E-02_JPRB,0.18312E-02_JPRB,0.15700E-02_JPRB,0.13095E-02_JPRB,0.11041E-02_JPRB, &
+ & 0.91669E-03_JPRB,0.76437E-03_JPRB,0.75155E-03_JPRB,0.90862E-03_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.20749E-02_JPRB,0.18159E-02_JPRB,0.15569E-02_JPRB,0.13117E-02_JPRB,0.11170E-02_JPRB, &
+ & 0.95740E-03_JPRB,0.85349E-03_JPRB,0.90211E-03_JPRB,0.10843E-02_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.20605E-02_JPRB,0.18034E-02_JPRB,0.15463E-02_JPRB,0.13221E-02_JPRB,0.11384E-02_JPRB, &
+ & 0.10293E-02_JPRB,0.97333E-03_JPRB,0.10765E-02_JPRB,0.12853E-02_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.20459E-02_JPRB,0.17907E-02_JPRB,0.15355E-02_JPRB,0.13321E-02_JPRB,0.11878E-02_JPRB, &
+ & 0.11138E-02_JPRB,0.11236E-02_JPRB,0.12716E-02_JPRB,0.15170E-02_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.20310E-02_JPRB,0.17778E-02_JPRB,0.15259E-02_JPRB,0.13542E-02_JPRB,0.12517E-02_JPRB, &
+ & 0.12095E-02_JPRB,0.13081E-02_JPRB,0.14898E-02_JPRB,0.17755E-02_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.23595E-02_JPRB,0.20648E-02_JPRB,0.17701E-02_JPRB,0.14754E-02_JPRB,0.12323E-02_JPRB, &
+ & 0.10132E-02_JPRB,0.80835E-03_JPRB,0.73377E-03_JPRB,0.88458E-03_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.23333E-02_JPRB,0.20420E-02_JPRB,0.17506E-02_JPRB,0.14700E-02_JPRB,0.12449E-02_JPRB, &
+ & 0.10427E-02_JPRB,0.88482E-03_JPRB,0.87865E-03_JPRB,0.10548E-02_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.23118E-02_JPRB,0.20232E-02_JPRB,0.17345E-02_JPRB,0.14754E-02_JPRB,0.12581E-02_JPRB, &
+ & 0.11040E-02_JPRB,0.98425E-03_JPRB,0.10425E-02_JPRB,0.12451E-02_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.22911E-02_JPRB,0.20052E-02_JPRB,0.17193E-02_JPRB,0.14831E-02_JPRB,0.12996E-02_JPRB, &
+ & 0.11778E-02_JPRB,0.11137E-02_JPRB,0.12310E-02_JPRB,0.14656E-02_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.22715E-02_JPRB,0.19881E-02_JPRB,0.17061E-02_JPRB,0.14949E-02_JPRB,0.13595E-02_JPRB, &
+ & 0.12702E-02_JPRB,0.12792E-02_JPRB,0.14480E-02_JPRB,0.17220E-02_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.26465E-02_JPRB,0.23159E-02_JPRB,0.19853E-02_JPRB,0.16547E-02_JPRB,0.13704E-02_JPRB, &
+ & 0.11161E-02_JPRB,0.87227E-03_JPRB,0.72579E-03_JPRB,0.85316E-03_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.26139E-02_JPRB,0.22874E-02_JPRB,0.19609E-02_JPRB,0.16420E-02_JPRB,0.13837E-02_JPRB, &
+ & 0.11377E-02_JPRB,0.93183E-03_JPRB,0.85926E-03_JPRB,0.10245E-02_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.25857E-02_JPRB,0.22628E-02_JPRB,0.19400E-02_JPRB,0.16425E-02_JPRB,0.13917E-02_JPRB, &
+ & 0.11859E-02_JPRB,0.10228E-02_JPRB,0.10157E-02_JPRB,0.12103E-02_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.25573E-02_JPRB,0.22380E-02_JPRB,0.19187E-02_JPRB,0.16463E-02_JPRB,0.14196E-02_JPRB, &
+ & 0.12582E-02_JPRB,0.11286E-02_JPRB,0.11958E-02_JPRB,0.14229E-02_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.25310E-02_JPRB,0.22151E-02_JPRB,0.19006E-02_JPRB,0.16478E-02_JPRB,0.14771E-02_JPRB, &
+ & 0.13382E-02_JPRB,0.12711E-02_JPRB,0.14043E-02_JPRB,0.16688E-02_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.29437E-02_JPRB,0.25759E-02_JPRB,0.22081E-02_JPRB,0.18403E-02_JPRB,0.15126E-02_JPRB, &
+ & 0.12266E-02_JPRB,0.94502E-03_JPRB,0.72553E-03_JPRB,0.80872E-03_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.29059E-02_JPRB,0.25428E-02_JPRB,0.21798E-02_JPRB,0.18221E-02_JPRB,0.15299E-02_JPRB, &
+ & 0.12446E-02_JPRB,0.99114E-03_JPRB,0.84495E-03_JPRB,0.98123E-03_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.28735E-02_JPRB,0.25146E-02_JPRB,0.21557E-02_JPRB,0.18193E-02_JPRB,0.15373E-02_JPRB, &
+ & 0.12770E-02_JPRB,0.10730E-02_JPRB,0.99151E-03_JPRB,0.11701E-02_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.28399E-02_JPRB,0.24853E-02_JPRB,0.21306E-02_JPRB,0.18209E-02_JPRB,0.15526E-02_JPRB, &
+ & 0.13434E-02_JPRB,0.11682E-02_JPRB,0.11617E-02_JPRB,0.13773E-02_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.28070E-02_JPRB,0.24565E-02_JPRB,0.21073E-02_JPRB,0.18175E-02_JPRB,0.15973E-02_JPRB, &
+ & 0.14179E-02_JPRB,0.12830E-02_JPRB,0.13638E-02_JPRB,0.16173E-02_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.32399E-02_JPRB,0.28350E-02_JPRB,0.24302E-02_JPRB,0.20252E-02_JPRB,0.16589E-02_JPRB, &
+ & 0.13407E-02_JPRB,0.10274E-02_JPRB,0.73986E-03_JPRB,0.76203E-03_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.31965E-02_JPRB,0.27971E-02_JPRB,0.23977E-02_JPRB,0.20029E-02_JPRB,0.16776E-02_JPRB, &
+ & 0.13600E-02_JPRB,0.10652E-02_JPRB,0.84551E-03_JPRB,0.93841E-03_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.31601E-02_JPRB,0.27653E-02_JPRB,0.23707E-02_JPRB,0.19975E-02_JPRB,0.16883E-02_JPRB, &
+ & 0.13843E-02_JPRB,0.11385E-02_JPRB,0.98230E-03_JPRB,0.11352E-02_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.31230E-02_JPRB,0.27329E-02_JPRB,0.23428E-02_JPRB,0.19986E-02_JPRB,0.16986E-02_JPRB, &
+ & 0.14381E-02_JPRB,0.12318E-02_JPRB,0.11431E-02_JPRB,0.13466E-02_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.30838E-02_JPRB,0.26986E-02_JPRB,0.23157E-02_JPRB,0.19957E-02_JPRB,0.17285E-02_JPRB, &
+ & 0.15111E-02_JPRB,0.13270E-02_JPRB,0.13396E-02_JPRB,0.15853E-02_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.35110E-02_JPRB,0.30722E-02_JPRB,0.26335E-02_JPRB,0.21948E-02_JPRB,0.18129E-02_JPRB, &
+ & 0.14641E-02_JPRB,0.11256E-02_JPRB,0.79561E-03_JPRB,0.78300E-03_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.34682E-02_JPRB,0.30349E-02_JPRB,0.26015E-02_JPRB,0.21788E-02_JPRB,0.18300E-02_JPRB, &
+ & 0.14846E-02_JPRB,0.11655E-02_JPRB,0.90541E-03_JPRB,0.97352E-03_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.34263E-02_JPRB,0.29982E-02_JPRB,0.25700E-02_JPRB,0.21750E-02_JPRB,0.18411E-02_JPRB, &
+ & 0.15104E-02_JPRB,0.12444E-02_JPRB,0.10462E-02_JPRB,0.11863E-02_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.33817E-02_JPRB,0.29592E-02_JPRB,0.25369E-02_JPRB,0.21760E-02_JPRB,0.18525E-02_JPRB, &
+ & 0.15666E-02_JPRB,0.13382E-02_JPRB,0.12088E-02_JPRB,0.14124E-02_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.33351E-02_JPRB,0.29184E-02_JPRB,0.25088E-02_JPRB,0.21673E-02_JPRB,0.18858E-02_JPRB, &
+ & 0.16404E-02_JPRB,0.14339E-02_JPRB,0.14160E-02_JPRB,0.16713E-02_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.37813E-02_JPRB,0.33087E-02_JPRB,0.28362E-02_JPRB,0.23654E-02_JPRB,0.19642E-02_JPRB, &
+ & 0.15868E-02_JPRB,0.12220E-02_JPRB,0.85134E-03_JPRB,0.79810E-03_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.37337E-02_JPRB,0.32671E-02_JPRB,0.28006E-02_JPRB,0.23535E-02_JPRB,0.19812E-02_JPRB, &
+ & 0.16073E-02_JPRB,0.12646E-02_JPRB,0.96230E-03_JPRB,0.10021E-02_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.36838E-02_JPRB,0.32235E-02_JPRB,0.27633E-02_JPRB,0.23494E-02_JPRB,0.19898E-02_JPRB, &
+ & 0.16363E-02_JPRB,0.13472E-02_JPRB,0.11056E-02_JPRB,0.12297E-02_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.36315E-02_JPRB,0.31778E-02_JPRB,0.27268E-02_JPRB,0.23457E-02_JPRB,0.20010E-02_JPRB, &
+ & 0.16953E-02_JPRB,0.14396E-02_JPRB,0.12736E-02_JPRB,0.14737E-02_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.35780E-02_JPRB,0.31310E-02_JPRB,0.26962E-02_JPRB,0.23324E-02_JPRB,0.20383E-02_JPRB, &
+ & 0.17680E-02_JPRB,0.15379E-02_JPRB,0.14913E-02_JPRB,0.17515E-02_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.40401E-02_JPRB,0.35352E-02_JPRB,0.30303E-02_JPRB,0.25331E-02_JPRB,0.21125E-02_JPRB, &
+ & 0.17061E-02_JPRB,0.13144E-02_JPRB,0.90469E-03_JPRB,0.81129E-03_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.39897E-02_JPRB,0.34912E-02_JPRB,0.29926E-02_JPRB,0.25245E-02_JPRB,0.21272E-02_JPRB, &
+ & 0.17273E-02_JPRB,0.13608E-02_JPRB,0.10148E-02_JPRB,0.10248E-02_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.39313E-02_JPRB,0.34401E-02_JPRB,0.29487E-02_JPRB,0.25178E-02_JPRB,0.21303E-02_JPRB, &
+ & 0.17587E-02_JPRB,0.14454E-02_JPRB,0.11592E-02_JPRB,0.12656E-02_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.38694E-02_JPRB,0.33859E-02_JPRB,0.29093E-02_JPRB,0.25068E-02_JPRB,0.21412E-02_JPRB, &
+ & 0.18203E-02_JPRB,0.15361E-02_JPRB,0.13357E-02_JPRB,0.15298E-02_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.38109E-02_JPRB,0.33347E-02_JPRB,0.28761E-02_JPRB,0.24907E-02_JPRB,0.21821E-02_JPRB, &
+ & 0.18916E-02_JPRB,0.16371E-02_JPRB,0.15629E-02_JPRB,0.18275E-02_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.15071E-02_JPRB,0.13191E-02_JPRB,0.11311E-02_JPRB,0.94313E-03_JPRB,0.82178E-03_JPRB, &
+ & 0.90230E-03_JPRB,0.10652E-02_JPRB,0.11879E-02_JPRB,0.14045E-02_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.15053E-02_JPRB,0.13176E-02_JPRB,0.11298E-02_JPRB,0.94210E-03_JPRB,0.87562E-03_JPRB, &
+ & 0.10432E-02_JPRB,0.12302E-02_JPRB,0.13664E-02_JPRB,0.16201E-02_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.15019E-02_JPRB,0.13147E-02_JPRB,0.11275E-02_JPRB,0.94187E-03_JPRB,0.97652E-03_JPRB, &
+ & 0.12093E-02_JPRB,0.14252E-02_JPRB,0.15816E-02_JPRB,0.18766E-02_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.14976E-02_JPRB,0.13109E-02_JPRB,0.11243E-02_JPRB,0.96063E-03_JPRB,0.11391E-02_JPRB, &
+ & 0.14106E-02_JPRB,0.16622E-02_JPRB,0.18446E-02_JPRB,0.21889E-02_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.14918E-02_JPRB,0.13060E-02_JPRB,0.11201E-02_JPRB,0.10256E-02_JPRB,0.13135E-02_JPRB, &
+ & 0.16256E-02_JPRB,0.19138E-02_JPRB,0.21174E-02_JPRB,0.25177E-02_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.17368E-02_JPRB,0.15199E-02_JPRB,0.13031E-02_JPRB,0.10865E-02_JPRB,0.93589E-03_JPRB, &
+ & 0.95913E-03_JPRB,0.11327E-02_JPRB,0.12643E-02_JPRB,0.15179E-02_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.17347E-02_JPRB,0.15183E-02_JPRB,0.13018E-02_JPRB,0.10853E-02_JPRB,0.98162E-03_JPRB, &
+ & 0.11204E-02_JPRB,0.13214E-02_JPRB,0.14695E-02_JPRB,0.17719E-02_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.17301E-02_JPRB,0.15143E-02_JPRB,0.12982E-02_JPRB,0.10867E-02_JPRB,0.10624E-02_JPRB, &
+ & 0.13058E-02_JPRB,0.15388E-02_JPRB,0.17088E-02_JPRB,0.20640E-02_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.17235E-02_JPRB,0.15085E-02_JPRB,0.12935E-02_JPRB,0.11059E-02_JPRB,0.12337E-02_JPRB, &
+ & 0.15285E-02_JPRB,0.18009E-02_JPRB,0.19982E-02_JPRB,0.24152E-02_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.17181E-02_JPRB,0.15038E-02_JPRB,0.12895E-02_JPRB,0.11598E-02_JPRB,0.14379E-02_JPRB, &
+ & 0.17807E-02_JPRB,0.20976E-02_JPRB,0.23230E-02_JPRB,0.28132E-02_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.19949E-02_JPRB,0.17458E-02_JPRB,0.14967E-02_JPRB,0.12475E-02_JPRB,0.10641E-02_JPRB, &
+ & 0.10100E-02_JPRB,0.11774E-02_JPRB,0.13116E-02_JPRB,0.16051E-02_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.19910E-02_JPRB,0.17424E-02_JPRB,0.14939E-02_JPRB,0.12453E-02_JPRB,0.11049E-02_JPRB, &
+ & 0.11564E-02_JPRB,0.13657E-02_JPRB,0.15222E-02_JPRB,0.18601E-02_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.19848E-02_JPRB,0.17370E-02_JPRB,0.14892E-02_JPRB,0.12476E-02_JPRB,0.11571E-02_JPRB, &
+ & 0.13573E-02_JPRB,0.16014E-02_JPRB,0.17817E-02_JPRB,0.21839E-02_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.19813E-02_JPRB,0.17340E-02_JPRB,0.14867E-02_JPRB,0.12671E-02_JPRB,0.12941E-02_JPRB, &
+ & 0.15954E-02_JPRB,0.18821E-02_JPRB,0.20919E-02_JPRB,0.25670E-02_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.19771E-02_JPRB,0.17304E-02_JPRB,0.14836E-02_JPRB,0.13013E-02_JPRB,0.15091E-02_JPRB, &
+ & 0.18697E-02_JPRB,0.22058E-02_JPRB,0.24525E-02_JPRB,0.30084E-02_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.23002E-02_JPRB,0.20126E-02_JPRB,0.17253E-02_JPRB,0.14382E-02_JPRB,0.12005E-02_JPRB, &
+ & 0.10932E-02_JPRB,0.12228E-02_JPRB,0.13639E-02_JPRB,0.16798E-02_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.22929E-02_JPRB,0.20065E-02_JPRB,0.17201E-02_JPRB,0.14337E-02_JPRB,0.12491E-02_JPRB, &
+ & 0.11967E-02_JPRB,0.14046E-02_JPRB,0.15632E-02_JPRB,0.19322E-02_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.22828E-02_JPRB,0.19977E-02_JPRB,0.17127E-02_JPRB,0.14287E-02_JPRB,0.12914E-02_JPRB, &
+ & 0.13860E-02_JPRB,0.16360E-02_JPRB,0.18240E-02_JPRB,0.22487E-02_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.22757E-02_JPRB,0.19915E-02_JPRB,0.17074E-02_JPRB,0.14457E-02_JPRB,0.13800E-02_JPRB, &
+ & 0.16339E-02_JPRB,0.19297E-02_JPRB,0.21519E-02_JPRB,0.26493E-02_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.22684E-02_JPRB,0.19852E-02_JPRB,0.17019E-02_JPRB,0.14754E-02_JPRB,0.15614E-02_JPRB, &
+ & 0.19242E-02_JPRB,0.22727E-02_JPRB,0.25341E-02_JPRB,0.31196E-02_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.26562E-02_JPRB,0.23246E-02_JPRB,0.19929E-02_JPRB,0.16611E-02_JPRB,0.13598E-02_JPRB, &
+ & 0.11996E-02_JPRB,0.12698E-02_JPRB,0.14174E-02_JPRB,0.17501E-02_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.26415E-02_JPRB,0.23116E-02_JPRB,0.19818E-02_JPRB,0.16521E-02_JPRB,0.14129E-02_JPRB, &
+ & 0.12866E-02_JPRB,0.14524E-02_JPRB,0.16197E-02_JPRB,0.20022E-02_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.26277E-02_JPRB,0.22994E-02_JPRB,0.19710E-02_JPRB,0.16428E-02_JPRB,0.14513E-02_JPRB, &
+ & 0.14339E-02_JPRB,0.16856E-02_JPRB,0.18777E-02_JPRB,0.23236E-02_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.26179E-02_JPRB,0.22909E-02_JPRB,0.19639E-02_JPRB,0.16526E-02_JPRB,0.15154E-02_JPRB, &
+ & 0.16607E-02_JPRB,0.19618E-02_JPRB,0.21909E-02_JPRB,0.27021E-02_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.26074E-02_JPRB,0.22818E-02_JPRB,0.19561E-02_JPRB,0.16780E-02_JPRB,0.16497E-02_JPRB, &
+ & 0.19592E-02_JPRB,0.23163E-02_JPRB,0.25915E-02_JPRB,0.31846E-02_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.30676E-02_JPRB,0.26845E-02_JPRB,0.23014E-02_JPRB,0.19182E-02_JPRB,0.15508E-02_JPRB, &
+ & 0.13265E-02_JPRB,0.13165E-02_JPRB,0.14712E-02_JPRB,0.18123E-02_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.30472E-02_JPRB,0.26667E-02_JPRB,0.22862E-02_JPRB,0.19057E-02_JPRB,0.15947E-02_JPRB, &
+ & 0.14067E-02_JPRB,0.15004E-02_JPRB,0.16750E-02_JPRB,0.20695E-02_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.30255E-02_JPRB,0.26477E-02_JPRB,0.22705E-02_JPRB,0.18926E-02_JPRB,0.16408E-02_JPRB, &
+ & 0.15149E-02_JPRB,0.17276E-02_JPRB,0.19275E-02_JPRB,0.23847E-02_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.30083E-02_JPRB,0.26326E-02_JPRB,0.22569E-02_JPRB,0.18906E-02_JPRB,0.16765E-02_JPRB, &
+ & 0.17066E-02_JPRB,0.20035E-02_JPRB,0.22386E-02_JPRB,0.27616E-02_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.29915E-02_JPRB,0.26179E-02_JPRB,0.22443E-02_JPRB,0.19114E-02_JPRB,0.17836E-02_JPRB, &
+ & 0.19800E-02_JPRB,0.23411E-02_JPRB,0.26194E-02_JPRB,0.32234E-02_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.35311E-02_JPRB,0.30900E-02_JPRB,0.26490E-02_JPRB,0.22082E-02_JPRB,0.17722E-02_JPRB, &
+ & 0.14850E-02_JPRB,0.13781E-02_JPRB,0.15158E-02_JPRB,0.18578E-02_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.35031E-02_JPRB,0.30656E-02_JPRB,0.26281E-02_JPRB,0.21907E-02_JPRB,0.18048E-02_JPRB, &
+ & 0.15528E-02_JPRB,0.15481E-02_JPRB,0.17322E-02_JPRB,0.21307E-02_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.34762E-02_JPRB,0.30421E-02_JPRB,0.26077E-02_JPRB,0.21737E-02_JPRB,0.18550E-02_JPRB, &
+ & 0.16362E-02_JPRB,0.17771E-02_JPRB,0.19863E-02_JPRB,0.24506E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.34506E-02_JPRB,0.30197E-02_JPRB,0.25888E-02_JPRB,0.21628E-02_JPRB,0.18864E-02_JPRB, &
+ & 0.17891E-02_JPRB,0.20527E-02_JPRB,0.22948E-02_JPRB,0.28308E-02_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.34242E-02_JPRB,0.29966E-02_JPRB,0.25690E-02_JPRB,0.21752E-02_JPRB,0.19463E-02_JPRB, &
+ & 0.20224E-02_JPRB,0.23798E-02_JPRB,0.26659E-02_JPRB,0.32785E-02_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.40545E-02_JPRB,0.35480E-02_JPRB,0.30415E-02_JPRB,0.25348E-02_JPRB,0.20284E-02_JPRB, &
+ & 0.16698E-02_JPRB,0.14585E-02_JPRB,0.15473E-02_JPRB,0.18938E-02_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.40094E-02_JPRB,0.35086E-02_JPRB,0.30078E-02_JPRB,0.25070E-02_JPRB,0.20421E-02_JPRB, &
+ & 0.17325E-02_JPRB,0.16159E-02_JPRB,0.17783E-02_JPRB,0.21732E-02_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.39679E-02_JPRB,0.34723E-02_JPRB,0.29772E-02_JPRB,0.24816E-02_JPRB,0.20882E-02_JPRB, &
+ & 0.17972E-02_JPRB,0.18217E-02_JPRB,0.20430E-02_JPRB,0.25042E-02_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.39321E-02_JPRB,0.34411E-02_JPRB,0.29500E-02_JPRB,0.24630E-02_JPRB,0.21284E-02_JPRB, &
+ & 0.19080E-02_JPRB,0.21043E-02_JPRB,0.23586E-02_JPRB,0.28966E-02_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.38953E-02_JPRB,0.34088E-02_JPRB,0.29224E-02_JPRB,0.24683E-02_JPRB,0.21576E-02_JPRB, &
+ & 0.21070E-02_JPRB,0.24382E-02_JPRB,0.27335E-02_JPRB,0.33549E-02_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.46508E-02_JPRB,0.40697E-02_JPRB,0.34886E-02_JPRB,0.29075E-02_JPRB,0.23264E-02_JPRB, &
+ & 0.18591E-02_JPRB,0.15578E-02_JPRB,0.15738E-02_JPRB,0.19224E-02_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.45823E-02_JPRB,0.40098E-02_JPRB,0.34374E-02_JPRB,0.28649E-02_JPRB,0.23092E-02_JPRB, &
+ & 0.19366E-02_JPRB,0.17051E-02_JPRB,0.18133E-02_JPRB,0.22104E-02_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.45166E-02_JPRB,0.39524E-02_JPRB,0.33880E-02_JPRB,0.28238E-02_JPRB,0.23394E-02_JPRB, &
+ & 0.19917E-02_JPRB,0.18843E-02_JPRB,0.20815E-02_JPRB,0.25365E-02_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.44602E-02_JPRB,0.39031E-02_JPRB,0.33460E-02_JPRB,0.27890E-02_JPRB,0.23856E-02_JPRB, &
+ & 0.20682E-02_JPRB,0.21419E-02_JPRB,0.24093E-02_JPRB,0.29396E-02_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.44050E-02_JPRB,0.38549E-02_JPRB,0.33047E-02_JPRB,0.27817E-02_JPRB,0.24123E-02_JPRB, &
+ & 0.22258E-02_JPRB,0.24850E-02_JPRB,0.27956E-02_JPRB,0.34119E-02_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.53098E-02_JPRB,0.46463E-02_JPRB,0.39828E-02_JPRB,0.33194E-02_JPRB,0.26559E-02_JPRB, &
+ & 0.20766E-02_JPRB,0.16840E-02_JPRB,0.16129E-02_JPRB,0.19635E-02_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.52134E-02_JPRB,0.45620E-02_JPRB,0.39106E-02_JPRB,0.32592E-02_JPRB,0.26145E-02_JPRB, &
+ & 0.21601E-02_JPRB,0.18269E-02_JPRB,0.18690E-02_JPRB,0.22681E-02_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.51182E-02_JPRB,0.44788E-02_JPRB,0.38392E-02_JPRB,0.31998E-02_JPRB,0.26226E-02_JPRB, &
+ & 0.22138E-02_JPRB,0.19824E-02_JPRB,0.21416E-02_JPRB,0.25956E-02_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.50344E-02_JPRB,0.44054E-02_JPRB,0.37765E-02_JPRB,0.31477E-02_JPRB,0.26616E-02_JPRB, &
+ & 0.22709E-02_JPRB,0.22099E-02_JPRB,0.24682E-02_JPRB,0.29962E-02_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.49550E-02_JPRB,0.43361E-02_JPRB,0.37172E-02_JPRB,0.31183E-02_JPRB,0.26883E-02_JPRB, &
+ & 0.23873E-02_JPRB,0.25425E-02_JPRB,0.28708E-02_JPRB,0.34790E-02_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.59619E-02_JPRB,0.52169E-02_JPRB,0.44719E-02_JPRB,0.37267E-02_JPRB,0.29817E-02_JPRB, &
+ & 0.23525E-02_JPRB,0.18854E-02_JPRB,0.17723E-02_JPRB,0.21445E-02_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.58318E-02_JPRB,0.51031E-02_JPRB,0.43744E-02_JPRB,0.36457E-02_JPRB,0.29351E-02_JPRB, &
+ & 0.24253E-02_JPRB,0.20278E-02_JPRB,0.20449E-02_JPRB,0.24715E-02_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.57112E-02_JPRB,0.49976E-02_JPRB,0.42840E-02_JPRB,0.35704E-02_JPRB,0.29381E-02_JPRB, &
+ & 0.24724E-02_JPRB,0.21871E-02_JPRB,0.23372E-02_JPRB,0.28231E-02_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.56008E-02_JPRB,0.49010E-02_JPRB,0.42013E-02_JPRB,0.35025E-02_JPRB,0.29677E-02_JPRB, &
+ & 0.25269E-02_JPRB,0.24222E-02_JPRB,0.27009E-02_JPRB,0.32614E-02_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.54961E-02_JPRB,0.48096E-02_JPRB,0.41230E-02_JPRB,0.34666E-02_JPRB,0.29811E-02_JPRB, &
+ & 0.26438E-02_JPRB,0.27691E-02_JPRB,0.31324E-02_JPRB,0.37747E-02_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.66218E-02_JPRB,0.57942E-02_JPRB,0.49667E-02_JPRB,0.41391E-02_JPRB,0.33116E-02_JPRB, &
+ & 0.26382E-02_JPRB,0.20922E-02_JPRB,0.19344E-02_JPRB,0.23267E-02_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.64584E-02_JPRB,0.56513E-02_JPRB,0.48443E-02_JPRB,0.40372E-02_JPRB,0.32618E-02_JPRB, &
+ & 0.26974E-02_JPRB,0.22343E-02_JPRB,0.22270E-02_JPRB,0.26783E-02_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.63097E-02_JPRB,0.55213E-02_JPRB,0.47331E-02_JPRB,0.39445E-02_JPRB,0.32599E-02_JPRB, &
+ & 0.27357E-02_JPRB,0.23983E-02_JPRB,0.25418E-02_JPRB,0.30577E-02_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.61694E-02_JPRB,0.53986E-02_JPRB,0.46278E-02_JPRB,0.38631E-02_JPRB,0.32772E-02_JPRB, &
+ & 0.27857E-02_JPRB,0.26412E-02_JPRB,0.29352E-02_JPRB,0.35233E-02_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.60360E-02_JPRB,0.52820E-02_JPRB,0.45279E-02_JPRB,0.38177E-02_JPRB,0.32735E-02_JPRB, &
+ & 0.29011E-02_JPRB,0.29998E-02_JPRB,0.33948E-02_JPRB,0.40685E-02_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.72856E-02_JPRB,0.63751E-02_JPRB,0.54646E-02_JPRB,0.45539E-02_JPRB,0.36434E-02_JPRB, &
+ & 0.29246E-02_JPRB,0.23024E-02_JPRB,0.20968E-02_JPRB,0.25004E-02_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.70792E-02_JPRB,0.61945E-02_JPRB,0.53099E-02_JPRB,0.44252E-02_JPRB,0.35875E-02_JPRB, &
+ & 0.29681E-02_JPRB,0.24397E-02_JPRB,0.24073E-02_JPRB,0.28787E-02_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.68966E-02_JPRB,0.60348E-02_JPRB,0.51733E-02_JPRB,0.43112E-02_JPRB,0.35811E-02_JPRB, &
+ & 0.29976E-02_JPRB,0.26071E-02_JPRB,0.27479E-02_JPRB,0.32886E-02_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.67258E-02_JPRB,0.58855E-02_JPRB,0.50451E-02_JPRB,0.42204E-02_JPRB,0.35830E-02_JPRB, &
+ & 0.30400E-02_JPRB,0.28573E-02_JPRB,0.31625E-02_JPRB,0.37791E-02_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.65607E-02_JPRB,0.57411E-02_JPRB,0.49214E-02_JPRB,0.41617E-02_JPRB,0.35593E-02_JPRB, &
+ & 0.31530E-02_JPRB,0.32258E-02_JPRB,0.36487E-02_JPRB,0.43508E-02_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.16712E-02_JPRB,0.14631E-02_JPRB,0.12550E-02_JPRB,0.10468E-02_JPRB,0.92082E-03_JPRB, &
+ & 0.11371E-02_JPRB,0.13321E-02_JPRB,0.14544E-02_JPRB,0.17472E-02_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.16787E-02_JPRB,0.14701E-02_JPRB,0.12615E-02_JPRB,0.10530E-02_JPRB,0.10440E-02_JPRB, &
+ & 0.12893E-02_JPRB,0.15114E-02_JPRB,0.16524E-02_JPRB,0.19826E-02_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.16875E-02_JPRB,0.14779E-02_JPRB,0.12683E-02_JPRB,0.10588E-02_JPRB,0.11676E-02_JPRB, &
+ & 0.14424E-02_JPRB,0.16914E-02_JPRB,0.18523E-02_JPRB,0.22202E-02_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.16926E-02_JPRB,0.14826E-02_JPRB,0.12725E-02_JPRB,0.10626E-02_JPRB,0.12909E-02_JPRB, &
+ & 0.15950E-02_JPRB,0.18720E-02_JPRB,0.20532E-02_JPRB,0.24579E-02_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.16942E-02_JPRB,0.14841E-02_JPRB,0.12739E-02_JPRB,0.11419E-02_JPRB,0.15149E-02_JPRB, &
+ & 0.18796E-02_JPRB,0.22246E-02_JPRB,0.24968E-02_JPRB,0.29379E-02_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.19607E-02_JPRB,0.17158E-02_JPRB,0.14714E-02_JPRB,0.12274E-02_JPRB,0.10440E-02_JPRB, &
+ & 0.12890E-02_JPRB,0.15097E-02_JPRB,0.16471E-02_JPRB,0.20285E-02_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.19666E-02_JPRB,0.17216E-02_JPRB,0.14767E-02_JPRB,0.12314E-02_JPRB,0.11872E-02_JPRB, &
+ & 0.14659E-02_JPRB,0.17177E-02_JPRB,0.18761E-02_JPRB,0.23077E-02_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.19740E-02_JPRB,0.17284E-02_JPRB,0.14830E-02_JPRB,0.12374E-02_JPRB,0.13301E-02_JPRB, &
+ & 0.16429E-02_JPRB,0.19255E-02_JPRB,0.21058E-02_JPRB,0.25866E-02_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.19796E-02_JPRB,0.17334E-02_JPRB,0.14872E-02_JPRB,0.12416E-02_JPRB,0.14717E-02_JPRB, &
+ & 0.18182E-02_JPRB,0.21321E-02_JPRB,0.23342E-02_JPRB,0.28637E-02_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.19818E-02_JPRB,0.17354E-02_JPRB,0.14891E-02_JPRB,0.12544E-02_JPRB,0.16318E-02_JPRB, &
+ & 0.20217E-02_JPRB,0.23832E-02_JPRB,0.26470E-02_JPRB,0.31951E-02_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.23039E-02_JPRB,0.20168E-02_JPRB,0.17292E-02_JPRB,0.14410E-02_JPRB,0.11614E-02_JPRB, &
+ & 0.14213E-02_JPRB,0.16646E-02_JPRB,0.18149E-02_JPRB,0.22923E-02_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.23064E-02_JPRB,0.20187E-02_JPRB,0.17311E-02_JPRB,0.14440E-02_JPRB,0.13190E-02_JPRB, &
+ & 0.16288E-02_JPRB,0.19083E-02_JPRB,0.20825E-02_JPRB,0.26267E-02_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.23119E-02_JPRB,0.20237E-02_JPRB,0.17351E-02_JPRB,0.14470E-02_JPRB,0.14864E-02_JPRB, &
+ & 0.18354E-02_JPRB,0.21515E-02_JPRB,0.23501E-02_JPRB,0.29596E-02_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.23154E-02_JPRB,0.20269E-02_JPRB,0.17385E-02_JPRB,0.14496E-02_JPRB,0.16513E-02_JPRB, &
+ & 0.20395E-02_JPRB,0.23915E-02_JPRB,0.26154E-02_JPRB,0.32883E-02_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.23212E-02_JPRB,0.20321E-02_JPRB,0.17430E-02_JPRB,0.14536E-02_JPRB,0.18129E-02_JPRB, &
+ & 0.22398E-02_JPRB,0.26272E-02_JPRB,0.28760E-02_JPRB,0.36101E-02_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.27129E-02_JPRB,0.23736E-02_JPRB,0.20348E-02_JPRB,0.16965E-02_JPRB,0.13577E-02_JPRB, &
+ & 0.15487E-02_JPRB,0.18138E-02_JPRB,0.19776E-02_JPRB,0.25289E-02_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.27133E-02_JPRB,0.23745E-02_JPRB,0.20358E-02_JPRB,0.16966E-02_JPRB,0.14516E-02_JPRB, &
+ & 0.17925E-02_JPRB,0.21002E-02_JPRB,0.22917E-02_JPRB,0.29262E-02_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.27155E-02_JPRB,0.23766E-02_JPRB,0.20379E-02_JPRB,0.16990E-02_JPRB,0.16483E-02_JPRB, &
+ & 0.20360E-02_JPRB,0.23858E-02_JPRB,0.26061E-02_JPRB,0.33224E-02_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.27175E-02_JPRB,0.23784E-02_JPRB,0.20394E-02_JPRB,0.17007E-02_JPRB,0.18426E-02_JPRB, &
+ & 0.22757E-02_JPRB,0.26681E-02_JPRB,0.29171E-02_JPRB,0.37132E-02_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.27186E-02_JPRB,0.23796E-02_JPRB,0.20406E-02_JPRB,0.17019E-02_JPRB,0.20320E-02_JPRB, &
+ & 0.25101E-02_JPRB,0.29443E-02_JPRB,0.32220E-02_JPRB,0.40947E-02_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.32119E-02_JPRB,0.28114E-02_JPRB,0.24099E-02_JPRB,0.20078E-02_JPRB,0.16065E-02_JPRB, &
+ & 0.16767E-02_JPRB,0.19643E-02_JPRB,0.21431E-02_JPRB,0.27523E-02_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.32085E-02_JPRB,0.28077E-02_JPRB,0.24069E-02_JPRB,0.20064E-02_JPRB,0.16195E-02_JPRB, &
+ & 0.19633E-02_JPRB,0.23007E-02_JPRB,0.25120E-02_JPRB,0.32215E-02_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.32085E-02_JPRB,0.28078E-02_JPRB,0.24068E-02_JPRB,0.20061E-02_JPRB,0.18214E-02_JPRB, &
+ & 0.22501E-02_JPRB,0.26375E-02_JPRB,0.28827E-02_JPRB,0.36897E-02_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.32059E-02_JPRB,0.28056E-02_JPRB,0.24053E-02_JPRB,0.20050E-02_JPRB,0.20501E-02_JPRB, &
+ & 0.25321E-02_JPRB,0.29699E-02_JPRB,0.32491E-02_JPRB,0.41521E-02_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.31984E-02_JPRB,0.27990E-02_JPRB,0.23997E-02_JPRB,0.20000E-02_JPRB,0.22727E-02_JPRB, &
+ & 0.28084E-02_JPRB,0.32949E-02_JPRB,0.36079E-02_JPRB,0.46028E-02_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.38076E-02_JPRB,0.33317E-02_JPRB,0.28559E-02_JPRB,0.23799E-02_JPRB,0.19041E-02_JPRB, &
+ & 0.17889E-02_JPRB,0.20969E-02_JPRB,0.22903E-02_JPRB,0.29420E-02_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.37964E-02_JPRB,0.33220E-02_JPRB,0.28476E-02_JPRB,0.23732E-02_JPRB,0.18989E-02_JPRB, &
+ & 0.21234E-02_JPRB,0.24900E-02_JPRB,0.27226E-02_JPRB,0.34908E-02_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.37877E-02_JPRB,0.33145E-02_JPRB,0.28416E-02_JPRB,0.23683E-02_JPRB,0.19985E-02_JPRB, &
+ & 0.24600E-02_JPRB,0.28851E-02_JPRB,0.31576E-02_JPRB,0.40421E-02_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.37785E-02_JPRB,0.33065E-02_JPRB,0.28344E-02_JPRB,0.23627E-02_JPRB,0.22594E-02_JPRB, &
+ & 0.27919E-02_JPRB,0.32761E-02_JPRB,0.35889E-02_JPRB,0.45855E-02_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.37630E-02_JPRB,0.32929E-02_JPRB,0.28229E-02_JPRB,0.23532E-02_JPRB,0.25213E-02_JPRB, &
+ & 0.31161E-02_JPRB,0.36579E-02_JPRB,0.40115E-02_JPRB,0.51155E-02_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.45014E-02_JPRB,0.39388E-02_JPRB,0.33762E-02_JPRB,0.28135E-02_JPRB,0.22509E-02_JPRB, &
+ & 0.18859E-02_JPRB,0.22117E-02_JPRB,0.24208E-02_JPRB,0.31038E-02_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.44788E-02_JPRB,0.39190E-02_JPRB,0.33593E-02_JPRB,0.27996E-02_JPRB,0.22399E-02_JPRB, &
+ & 0.22735E-02_JPRB,0.26677E-02_JPRB,0.29222E-02_JPRB,0.37394E-02_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.44593E-02_JPRB,0.39020E-02_JPRB,0.33439E-02_JPRB,0.27867E-02_JPRB,0.22518E-02_JPRB, &
+ & 0.26648E-02_JPRB,0.31283E-02_JPRB,0.34304E-02_JPRB,0.43806E-02_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.44374E-02_JPRB,0.38829E-02_JPRB,0.33284E-02_JPRB,0.27732E-02_JPRB,0.24705E-02_JPRB, &
+ & 0.30533E-02_JPRB,0.35850E-02_JPRB,0.39361E-02_JPRB,0.50160E-02_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.44113E-02_JPRB,0.38601E-02_JPRB,0.33089E-02_JPRB,0.27567E-02_JPRB,0.27756E-02_JPRB, &
+ & 0.34321E-02_JPRB,0.40324E-02_JPRB,0.44314E-02_JPRB,0.56359E-02_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.53031E-02_JPRB,0.46403E-02_JPRB,0.39774E-02_JPRB,0.33149E-02_JPRB,0.26520E-02_JPRB, &
+ & 0.20316E-02_JPRB,0.23080E-02_JPRB,0.25314E-02_JPRB,0.32334E-02_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.52648E-02_JPRB,0.46067E-02_JPRB,0.39487E-02_JPRB,0.32907E-02_JPRB,0.26325E-02_JPRB, &
+ & 0.24096E-02_JPRB,0.28298E-02_JPRB,0.31081E-02_JPRB,0.39611E-02_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.52246E-02_JPRB,0.45716E-02_JPRB,0.39189E-02_JPRB,0.32659E-02_JPRB,0.26125E-02_JPRB, &
+ & 0.28611E-02_JPRB,0.33614E-02_JPRB,0.36958E-02_JPRB,0.47006E-02_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.51821E-02_JPRB,0.45344E-02_JPRB,0.38868E-02_JPRB,0.32390E-02_JPRB,0.27289E-02_JPRB, &
+ & 0.33103E-02_JPRB,0.38912E-02_JPRB,0.42829E-02_JPRB,0.54355E-02_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.51356E-02_JPRB,0.44938E-02_JPRB,0.38520E-02_JPRB,0.32108E-02_JPRB,0.30299E-02_JPRB, &
+ & 0.37493E-02_JPRB,0.44090E-02_JPRB,0.48604E-02_JPRB,0.61537E-02_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.62116E-02_JPRB,0.54352E-02_JPRB,0.46587E-02_JPRB,0.38825E-02_JPRB,0.31060E-02_JPRB, &
+ & 0.23296E-02_JPRB,0.23830E-02_JPRB,0.26152E-02_JPRB,0.33400E-02_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.61510E-02_JPRB,0.53822E-02_JPRB,0.46134E-02_JPRB,0.38445E-02_JPRB,0.30756E-02_JPRB, &
+ & 0.25421E-02_JPRB,0.29622E-02_JPRB,0.32625E-02_JPRB,0.41372E-02_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.60862E-02_JPRB,0.53255E-02_JPRB,0.45651E-02_JPRB,0.38044E-02_JPRB,0.30427E-02_JPRB, &
+ & 0.30332E-02_JPRB,0.35680E-02_JPRB,0.39355E-02_JPRB,0.49777E-02_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.60169E-02_JPRB,0.52649E-02_JPRB,0.45129E-02_JPRB,0.37608E-02_JPRB,0.30629E-02_JPRB, &
+ & 0.35468E-02_JPRB,0.41747E-02_JPRB,0.46107E-02_JPRB,0.58172E-02_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.59428E-02_JPRB,0.52001E-02_JPRB,0.44573E-02_JPRB,0.37148E-02_JPRB,0.33039E-02_JPRB, &
+ & 0.40510E-02_JPRB,0.47683E-02_JPRB,0.52747E-02_JPRB,0.66403E-02_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.72226E-02_JPRB,0.63198E-02_JPRB,0.54170E-02_JPRB,0.45138E-02_JPRB,0.36111E-02_JPRB, &
+ & 0.27087E-02_JPRB,0.25246E-02_JPRB,0.27733E-02_JPRB,0.35348E-02_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.71308E-02_JPRB,0.62395E-02_JPRB,0.53482E-02_JPRB,0.44569E-02_JPRB,0.35656E-02_JPRB, &
+ & 0.27737E-02_JPRB,0.31148E-02_JPRB,0.34380E-02_JPRB,0.43453E-02_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.70337E-02_JPRB,0.61546E-02_JPRB,0.52755E-02_JPRB,0.43963E-02_JPRB,0.35178E-02_JPRB, &
+ & 0.32195E-02_JPRB,0.37898E-02_JPRB,0.41956E-02_JPRB,0.52718E-02_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.69308E-02_JPRB,0.60645E-02_JPRB,0.51982E-02_JPRB,0.43312E-02_JPRB,0.34725E-02_JPRB, &
+ & 0.37977E-02_JPRB,0.44773E-02_JPRB,0.49627E-02_JPRB,0.62190E-02_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.68213E-02_JPRB,0.59687E-02_JPRB,0.51162E-02_JPRB,0.42630E-02_JPRB,0.36577E-02_JPRB, &
+ & 0.43690E-02_JPRB,0.51523E-02_JPRB,0.57195E-02_JPRB,0.71486E-02_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.82729E-02_JPRB,0.72388E-02_JPRB,0.62047E-02_JPRB,0.51704E-02_JPRB,0.41364E-02_JPRB, &
+ & 0.31022E-02_JPRB,0.29450E-02_JPRB,0.32481E-02_JPRB,0.41092E-02_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.81377E-02_JPRB,0.71207E-02_JPRB,0.61034E-02_JPRB,0.50862E-02_JPRB,0.40694E-02_JPRB, &
+ & 0.32023E-02_JPRB,0.35972E-02_JPRB,0.39817E-02_JPRB,0.50045E-02_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.79927E-02_JPRB,0.69937E-02_JPRB,0.59945E-02_JPRB,0.49955E-02_JPRB,0.39980E-02_JPRB, &
+ & 0.36849E-02_JPRB,0.43305E-02_JPRB,0.48162E-02_JPRB,0.60016E-02_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.78435E-02_JPRB,0.68631E-02_JPRB,0.58827E-02_JPRB,0.49014E-02_JPRB,0.39530E-02_JPRB, &
+ & 0.43152E-02_JPRB,0.50942E-02_JPRB,0.56750E-02_JPRB,0.70494E-02_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.76868E-02_JPRB,0.67260E-02_JPRB,0.57653E-02_JPRB,0.48045E-02_JPRB,0.41698E-02_JPRB, &
+ & 0.49442E-02_JPRB,0.58408E-02_JPRB,0.65151E-02_JPRB,0.80731E-02_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.93677E-02_JPRB,0.81967E-02_JPRB,0.70258E-02_JPRB,0.58546E-02_JPRB,0.46837E-02_JPRB, &
+ & 0.35124E-02_JPRB,0.33991E-02_JPRB,0.37659E-02_JPRB,0.47255E-02_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.91725E-02_JPRB,0.80259E-02_JPRB,0.68794E-02_JPRB,0.57329E-02_JPRB,0.45871E-02_JPRB, &
+ & 0.36555E-02_JPRB,0.41158E-02_JPRB,0.45739E-02_JPRB,0.57058E-02_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.89743E-02_JPRB,0.78526E-02_JPRB,0.67312E-02_JPRB,0.56083E-02_JPRB,0.44874E-02_JPRB, &
+ & 0.41738E-02_JPRB,0.49000E-02_JPRB,0.54681E-02_JPRB,0.67707E-02_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.87651E-02_JPRB,0.76695E-02_JPRB,0.65740E-02_JPRB,0.54780E-02_JPRB,0.44541E-02_JPRB, &
+ & 0.48422E-02_JPRB,0.57276E-02_JPRB,0.64103E-02_JPRB,0.78928E-02_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.85557E-02_JPRB,0.74863E-02_JPRB,0.64169E-02_JPRB,0.53471E-02_JPRB,0.46965E-02_JPRB, &
+ & 0.55261E-02_JPRB,0.65398E-02_JPRB,0.73300E-02_JPRB,0.90026E-02_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.10484E-01_JPRB,0.91737E-02_JPRB,0.78632E-02_JPRB,0.65525E-02_JPRB,0.52420E-02_JPRB, &
+ & 0.39330E-02_JPRB,0.38753E-02_JPRB,0.43130E-02_JPRB,0.53655E-02_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.10212E-01_JPRB,0.89352E-02_JPRB,0.76588E-02_JPRB,0.63823E-02_JPRB,0.51063E-02_JPRB, &
+ & 0.41214E-02_JPRB,0.46538E-02_JPRB,0.51962E-02_JPRB,0.64287E-02_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.99472E-02_JPRB,0.87039E-02_JPRB,0.74620E-02_JPRB,0.62164E-02_JPRB,0.49733E-02_JPRB, &
+ & 0.46683E-02_JPRB,0.54886E-02_JPRB,0.61482E-02_JPRB,0.75590E-02_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.96776E-02_JPRB,0.84679E-02_JPRB,0.72583E-02_JPRB,0.60495E-02_JPRB,0.49611E-02_JPRB, &
+ & 0.53643E-02_JPRB,0.63558E-02_JPRB,0.71458E-02_JPRB,0.87290E-02_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.94084E-02_JPRB,0.82324E-02_JPRB,0.70564E-02_JPRB,0.58807E-02_JPRB,0.52210E-02_JPRB, &
+ & 0.60971E-02_JPRB,0.72271E-02_JPRB,0.81397E-02_JPRB,0.99102E-02_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.33062E-11_JPRB,0.42306E-11_JPRB,0.53172E-11_JPRB,0.65673E-11_JPRB,0.78335E-11_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.27467E-11_JPRB,0.35252E-11_JPRB,0.44160E-11_JPRB,0.54171E-11_JPRB,0.64630E-11_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.23431E-11_JPRB,0.29962E-11_JPRB,0.37507E-11_JPRB,0.46179E-11_JPRB,0.54790E-11_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.20178E-11_JPRB,0.25698E-11_JPRB,0.32330E-11_JPRB,0.40024E-11_JPRB,0.46899E-11_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.17389E-11_JPRB,0.22126E-11_JPRB,0.27864E-11_JPRB,0.34615E-11_JPRB,0.40184E-11_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.15164E-11_JPRB,0.19304E-11_JPRB,0.24263E-11_JPRB,0.29918E-11_JPRB,0.34734E-11_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.13194E-11_JPRB,0.16684E-11_JPRB,0.20851E-11_JPRB,0.25471E-11_JPRB,0.29992E-11_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.11345E-11_JPRB,0.14317E-11_JPRB,0.17813E-11_JPRB,0.21686E-11_JPRB,0.25523E-11_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.97614E-12_JPRB,0.12233E-11_JPRB,0.15124E-11_JPRB,0.18436E-11_JPRB,0.21624E-11_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.84972E-12_JPRB,0.10604E-11_JPRB,0.13001E-11_JPRB,0.15853E-11_JPRB,0.18511E-11_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.73919E-12_JPRB,0.91863E-12_JPRB,0.11179E-11_JPRB,0.13612E-11_JPRB,0.15791E-11_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.63952E-12_JPRB,0.79203E-12_JPRB,0.96272E-12_JPRB,0.11643E-11_JPRB,0.13384E-11_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.55198E-12_JPRB,0.68176E-12_JPRB,0.82782E-12_JPRB,0.99347E-12_JPRB,0.11342E-11_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.47648E-12_JPRB,0.58395E-12_JPRB,0.71214E-12_JPRB,0.84565E-12_JPRB,0.96146E-12_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.41185E-12_JPRB,0.50403E-12_JPRB,0.61156E-12_JPRB,0.71539E-12_JPRB,0.81410E-12_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.35568E-12_JPRB,0.43404E-12_JPRB,0.52441E-12_JPRB,0.60652E-12_JPRB,0.68860E-12_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.30863E-12_JPRB,0.37487E-12_JPRB,0.45120E-12_JPRB,0.51591E-12_JPRB,0.58367E-12_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.26804E-12_JPRB,0.32390E-12_JPRB,0.38615E-12_JPRB,0.43956E-12_JPRB,0.49890E-12_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.23316E-12_JPRB,0.28106E-12_JPRB,0.33068E-12_JPRB,0.37478E-12_JPRB,0.42377E-12_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.20255E-12_JPRB,0.24397E-12_JPRB,0.28293E-12_JPRB,0.31878E-12_JPRB,0.36224E-12_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.17541E-12_JPRB,0.21018E-12_JPRB,0.24052E-12_JPRB,0.27083E-12_JPRB,0.30963E-12_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.15014E-12_JPRB,0.17890E-12_JPRB,0.20293E-12_JPRB,0.23058E-12_JPRB,0.26131E-12_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.12610E-12_JPRB,0.14972E-12_JPRB,0.16906E-12_JPRB,0.19250E-12_JPRB,0.21752E-12_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.10365E-12_JPRB,0.12301E-12_JPRB,0.13878E-12_JPRB,0.15810E-12_JPRB,0.17856E-12_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.82572E-13_JPRB,0.98388E-13_JPRB,0.11143E-12_JPRB,0.12645E-12_JPRB,0.14343E-12_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.65632E-13_JPRB,0.78531E-13_JPRB,0.89359E-13_JPRB,0.10135E-12_JPRB,0.11495E-12_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.52174E-13_JPRB,0.62607E-13_JPRB,0.71650E-13_JPRB,0.80738E-13_JPRB,0.92112E-13_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.40434E-13_JPRB,0.48683E-13_JPRB,0.56479E-13_JPRB,0.63806E-13_JPRB,0.72155E-13_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.31179E-13_JPRB,0.37691E-13_JPRB,0.44339E-13_JPRB,0.50247E-13_JPRB,0.56982E-13_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.24040E-13_JPRB,0.29161E-13_JPRB,0.34731E-13_JPRB,0.39467E-13_JPRB,0.44922E-13_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.18259E-13_JPRB,0.22185E-13_JPRB,0.26753E-13_JPRB,0.30617E-13_JPRB,0.34721E-13_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.13667E-13_JPRB,0.16662E-13_JPRB,0.20308E-13_JPRB,0.23577E-13_JPRB,0.26865E-13_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.10182E-13_JPRB,0.12571E-13_JPRB,0.15345E-13_JPRB,0.18028E-13_JPRB,0.20725E-13_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.75196E-14_JPRB,0.94092E-14_JPRB,0.11475E-13_JPRB,0.13704E-13_JPRB,0.15878E-13_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.54721E-14_JPRB,0.69523E-14_JPRB,0.85280E-14_JPRB,0.10311E-13_JPRB,0.11952E-13_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.39619E-14_JPRB,0.50439E-14_JPRB,0.62896E-14_JPRB,0.77193E-14_JPRB,0.89282E-14_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.28508E-14_JPRB,0.36419E-14_JPRB,0.46044E-14_JPRB,0.57276E-14_JPRB,0.66866E-14_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.20973E-14_JPRB,0.26588E-14_JPRB,0.33754E-14_JPRB,0.42404E-14_JPRB,0.50338E-14_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.15010E-14_JPRB,0.19461E-14_JPRB,0.24807E-14_JPRB,0.31095E-14_JPRB,0.37789E-14_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.10686E-14_JPRB,0.14205E-14_JPRB,0.18164E-14_JPRB,0.22651E-14_JPRB,0.27790E-14_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.75469E-15_JPRB,0.10279E-14_JPRB,0.13211E-14_JPRB,0.16657E-14_JPRB,0.20344E-14_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.53837E-15_JPRB,0.75440E-15_JPRB,0.97064E-15_JPRB,0.12260E-14_JPRB,0.15156E-14_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.38620E-15_JPRB,0.54750E-15_JPRB,0.71223E-15_JPRB,0.90921E-15_JPRB,0.11265E-14_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.27852E-15_JPRB,0.39135E-15_JPRB,0.51858E-15_JPRB,0.66760E-15_JPRB,0.83486E-15_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.20280E-15_JPRB,0.27940E-15_JPRB,0.37558E-15_JPRB,0.48656E-15_JPRB,0.61658E-15_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.14586E-15_JPRB,0.19788E-15_JPRB,0.27273E-15_JPRB,0.35391E-15_JPRB,0.45250E-15_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.11164E-15_JPRB,0.15082E-15_JPRB,0.20804E-15_JPRB,0.27081E-15_JPRB,0.49339E-15_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.15800E-10_JPRB,0.20781E-10_JPRB,0.26154E-10_JPRB,0.31936E-10_JPRB,0.38062E-10_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.13333E-10_JPRB,0.17459E-10_JPRB,0.21881E-10_JPRB,0.26666E-10_JPRB,0.31696E-10_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.11381E-10_JPRB,0.14784E-10_JPRB,0.18449E-10_JPRB,0.22397E-10_JPRB,0.26533E-10_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.97593E-11_JPRB,0.12591E-10_JPRB,0.15641E-10_JPRB,0.18845E-10_JPRB,0.22503E-10_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.83473E-11_JPRB,0.10709E-10_JPRB,0.13261E-10_JPRB,0.15857E-10_JPRB,0.19052E-10_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.71523E-11_JPRB,0.91255E-11_JPRB,0.11229E-10_JPRB,0.13436E-10_JPRB,0.16145E-10_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.60777E-11_JPRB,0.77489E-11_JPRB,0.94796E-11_JPRB,0.11415E-10_JPRB,0.13591E-10_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.51693E-11_JPRB,0.65609E-11_JPRB,0.80124E-11_JPRB,0.96944E-11_JPRB,0.11427E-10_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.43931E-11_JPRB,0.55492E-11_JPRB,0.67698E-11_JPRB,0.81825E-11_JPRB,0.95836E-11_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.37967E-11_JPRB,0.47515E-11_JPRB,0.57759E-11_JPRB,0.69676E-11_JPRB,0.81090E-11_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.32747E-11_JPRB,0.40830E-11_JPRB,0.49616E-11_JPRB,0.59280E-11_JPRB,0.68614E-11_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.28215E-11_JPRB,0.34976E-11_JPRB,0.42532E-11_JPRB,0.50228E-11_JPRB,0.57971E-11_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.24334E-11_JPRB,0.29960E-11_JPRB,0.36396E-11_JPRB,0.42606E-11_JPRB,0.49056E-11_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.21117E-11_JPRB,0.25752E-11_JPRB,0.31134E-11_JPRB,0.36244E-11_JPRB,0.41489E-11_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.18253E-11_JPRB,0.22243E-11_JPRB,0.26576E-11_JPRB,0.30793E-11_JPRB,0.35048E-11_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.15682E-11_JPRB,0.19141E-11_JPRB,0.22636E-11_JPRB,0.26109E-11_JPRB,0.29589E-11_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.13535E-11_JPRB,0.16466E-11_JPRB,0.19296E-11_JPRB,0.22145E-11_JPRB,0.25005E-11_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.11709E-11_JPRB,0.14136E-11_JPRB,0.16432E-11_JPRB,0.18792E-11_JPRB,0.21240E-11_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.10216E-11_JPRB,0.12142E-11_JPRB,0.14045E-11_JPRB,0.15978E-11_JPRB,0.18001E-11_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.88417E-12_JPRB,0.10400E-11_JPRB,0.11973E-11_JPRB,0.13566E-11_JPRB,0.15303E-11_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.76210E-12_JPRB,0.89004E-12_JPRB,0.10199E-11_JPRB,0.11509E-11_JPRB,0.12984E-11_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.64910E-12_JPRB,0.75460E-12_JPRB,0.86122E-12_JPRB,0.97227E-12_JPRB,0.10908E-11_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.54374E-12_JPRB,0.63015E-12_JPRB,0.71745E-12_JPRB,0.80944E-12_JPRB,0.90628E-12_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.44718E-12_JPRB,0.51791E-12_JPRB,0.58946E-12_JPRB,0.66527E-12_JPRB,0.74411E-12_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.35793E-12_JPRB,0.41591E-12_JPRB,0.47443E-12_JPRB,0.53549E-12_JPRB,0.60041E-12_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.28618E-12_JPRB,0.33345E-12_JPRB,0.38124E-12_JPRB,0.43139E-12_JPRB,0.48394E-12_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.22858E-12_JPRB,0.26729E-12_JPRB,0.30628E-12_JPRB,0.34554E-12_JPRB,0.38998E-12_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.17867E-12_JPRB,0.21032E-12_JPRB,0.24207E-12_JPRB,0.27407E-12_JPRB,0.30925E-12_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.13875E-12_JPRB,0.16498E-12_JPRB,0.19072E-12_JPRB,0.21688E-12_JPRB,0.24410E-12_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.10714E-12_JPRB,0.12915E-12_JPRB,0.14999E-12_JPRB,0.17156E-12_JPRB,0.19364E-12_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.81856E-13_JPRB,0.99592E-13_JPRB,0.11661E-12_JPRB,0.13414E-12_JPRB,0.15145E-12_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.62221E-13_JPRB,0.75886E-13_JPRB,0.90106E-13_JPRB,0.10425E-12_JPRB,0.11838E-12_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.47139E-13_JPRB,0.57421E-13_JPRB,0.69401E-13_JPRB,0.80830E-13_JPRB,0.92462E-13_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.35469E-13_JPRB,0.43603E-13_JPRB,0.52913E-13_JPRB,0.62345E-13_JPRB,0.71769E-13_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.26308E-13_JPRB,0.32606E-13_JPRB,0.39610E-13_JPRB,0.47505E-13_JPRB,0.55354E-13_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.19388E-13_JPRB,0.24430E-13_JPRB,0.29903E-13_JPRB,0.35902E-13_JPRB,0.42540E-13_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.14144E-13_JPRB,0.18180E-13_JPRB,0.22467E-13_JPRB,0.26985E-13_JPRB,0.32471E-13_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.10280E-13_JPRB,0.13471E-13_JPRB,0.16900E-13_JPRB,0.20465E-13_JPRB,0.24665E-13_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.74898E-14_JPRB,0.99392E-14_JPRB,0.12674E-13_JPRB,0.15571E-13_JPRB,0.18663E-13_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.54214E-14_JPRB,0.72917E-14_JPRB,0.94517E-14_JPRB,0.11816E-13_JPRB,0.14256E-13_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.38970E-14_JPRB,0.53165E-14_JPRB,0.69989E-14_JPRB,0.88828E-14_JPRB,0.10862E-13_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.27972E-14_JPRB,0.38775E-14_JPRB,0.51927E-14_JPRB,0.66775E-14_JPRB,0.82659E-14_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.19962E-14_JPRB,0.28257E-14_JPRB,0.38491E-14_JPRB,0.50059E-14_JPRB,0.62864E-14_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.14049E-14_JPRB,0.20447E-14_JPRB,0.28389E-14_JPRB,0.37444E-14_JPRB,0.47474E-14_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.97467E-15_JPRB,0.14635E-14_JPRB,0.20787E-14_JPRB,0.27878E-14_JPRB,0.35737E-14_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.67770E-15_JPRB,0.10398E-14_JPRB,0.15169E-14_JPRB,0.20739E-14_JPRB,0.26951E-14_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.50857E-15_JPRB,0.79496E-15_JPRB,0.11749E-14_JPRB,0.16262E-14_JPRB,0.21270E-14_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.93671E-10_JPRB,0.11591E-09_JPRB,0.13715E-09_JPRB,0.15779E-09_JPRB,0.17870E-09_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.78883E-10_JPRB,0.96971E-10_JPRB,0.11437E-09_JPRB,0.13160E-09_JPRB,0.14863E-09_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.66900E-10_JPRB,0.81568E-10_JPRB,0.96052E-10_JPRB,0.11028E-09_JPRB,0.12439E-09_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.56737E-10_JPRB,0.68853E-10_JPRB,0.80870E-10_JPRB,0.92769E-10_JPRB,0.10422E-09_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.48148E-10_JPRB,0.58209E-10_JPRB,0.68168E-10_JPRB,0.78006E-10_JPRB,0.87308E-10_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.40874E-10_JPRB,0.49268E-10_JPRB,0.57591E-10_JPRB,0.65627E-10_JPRB,0.73296E-10_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.34619E-10_JPRB,0.41578E-10_JPRB,0.48414E-10_JPRB,0.55049E-10_JPRB,0.61235E-10_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.29370E-10_JPRB,0.35034E-10_JPRB,0.40682E-10_JPRB,0.46014E-10_JPRB,0.51115E-10_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.24821E-10_JPRB,0.29490E-10_JPRB,0.34141E-10_JPRB,0.38423E-10_JPRB,0.42621E-10_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.21204E-10_JPRB,0.25041E-10_JPRB,0.28846E-10_JPRB,0.32305E-10_JPRB,0.35757E-10_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.18107E-10_JPRB,0.21244E-10_JPRB,0.24304E-10_JPRB,0.27144E-10_JPRB,0.30005E-10_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.15432E-10_JPRB,0.18015E-10_JPRB,0.20470E-10_JPRB,0.22803E-10_JPRB,0.25180E-10_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.13155E-10_JPRB,0.15266E-10_JPRB,0.17234E-10_JPRB,0.19170E-10_JPRB,0.21096E-10_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11220E-10_JPRB,0.12944E-10_JPRB,0.14527E-10_JPRB,0.16132E-10_JPRB,0.17690E-10_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.95562E-11_JPRB,0.10942E-10_JPRB,0.12242E-10_JPRB,0.13560E-10_JPRB,0.14820E-10_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.81359E-11_JPRB,0.92394E-11_JPRB,0.10309E-10_JPRB,0.11386E-10_JPRB,0.12407E-10_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.69193E-11_JPRB,0.78077E-11_JPRB,0.87009E-11_JPRB,0.95682E-11_JPRB,0.10386E-10_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.58737E-11_JPRB,0.65956E-11_JPRB,0.73381E-11_JPRB,0.80325E-11_JPRB,0.87147E-11_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.49782E-11_JPRB,0.55816E-11_JPRB,0.61826E-11_JPRB,0.67463E-11_JPRB,0.73000E-11_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.42202E-11_JPRB,0.47232E-11_JPRB,0.52043E-11_JPRB,0.56623E-11_JPRB,0.61016E-11_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.35744E-11_JPRB,0.39897E-11_JPRB,0.43757E-11_JPRB,0.47465E-11_JPRB,0.50931E-11_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.30127E-11_JPRB,0.33496E-11_JPRB,0.36630E-11_JPRB,0.39738E-11_JPRB,0.42413E-11_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.25098E-11_JPRB,0.27837E-11_JPRB,0.30393E-11_JPRB,0.32916E-11_JPRB,0.35093E-11_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.20644E-11_JPRB,0.22886E-11_JPRB,0.24982E-11_JPRB,0.27043E-11_JPRB,0.28833E-11_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.16684E-11_JPRB,0.18536E-11_JPRB,0.20259E-11_JPRB,0.21979E-11_JPRB,0.23456E-11_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.13466E-11_JPRB,0.14996E-11_JPRB,0.16425E-11_JPRB,0.17834E-11_JPRB,0.19065E-11_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.10861E-11_JPRB,0.12130E-11_JPRB,0.13309E-11_JPRB,0.14440E-11_JPRB,0.15498E-11_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.86498E-12_JPRB,0.96921E-12_JPRB,0.10678E-11_JPRB,0.11601E-11_JPRB,0.12509E-11_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.68788E-12_JPRB,0.77191E-12_JPRB,0.85472E-12_JPRB,0.93133E-12_JPRB,0.10084E-11_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.54661E-12_JPRB,0.61437E-12_JPRB,0.68360E-12_JPRB,0.74699E-12_JPRB,0.81088E-12_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.42920E-12_JPRB,0.48515E-12_JPRB,0.54174E-12_JPRB,0.59564E-12_JPRB,0.64658E-12_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.33491E-12_JPRB,0.38198E-12_JPRB,0.42756E-12_JPRB,0.47274E-12_JPRB,0.51490E-12_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.26072E-12_JPRB,0.29981E-12_JPRB,0.33699E-12_JPRB,0.37442E-12_JPRB,0.40968E-12_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.20167E-12_JPRB,0.23370E-12_JPRB,0.26473E-12_JPRB,0.29535E-12_JPRB,0.32495E-12_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.15427E-12_JPRB,0.18070E-12_JPRB,0.20644E-12_JPRB,0.23129E-12_JPRB,0.25612E-12_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.11746E-12_JPRB,0.13905E-12_JPRB,0.16032E-12_JPRB,0.18088E-12_JPRB,0.20125E-12_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.88976E-13_JPRB,0.10661E-12_JPRB,0.12415E-12_JPRB,0.14128E-12_JPRB,0.15777E-12_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.67378E-13_JPRB,0.81791E-13_JPRB,0.96162E-13_JPRB,0.11029E-12_JPRB,0.12384E-12_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.50786E-13_JPRB,0.62576E-13_JPRB,0.74348E-13_JPRB,0.85995E-13_JPRB,0.97345E-13_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.37951E-13_JPRB,0.47645E-13_JPRB,0.57250E-13_JPRB,0.66805E-13_JPRB,0.76257E-13_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.28159E-13_JPRB,0.36102E-13_JPRB,0.43964E-13_JPRB,0.51774E-13_JPRB,0.59583E-13_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.21004E-13_JPRB,0.27366E-13_JPRB,0.33776E-13_JPRB,0.40177E-13_JPRB,0.46583E-13_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,55, 3) = (/ &
+ & 0.15637E-13_JPRB,0.20632E-13_JPRB,0.25941E-13_JPRB,0.31184E-13_JPRB,0.36409E-13_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.11581E-13_JPRB,0.15522E-13_JPRB,0.19844E-13_JPRB,0.24130E-13_JPRB,0.28399E-13_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.85125E-14_JPRB,0.11631E-13_JPRB,0.15093E-13_JPRB,0.18610E-13_JPRB,0.22102E-13_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.62435E-14_JPRB,0.87193E-14_JPRB,0.11437E-13_JPRB,0.14347E-13_JPRB,0.17208E-13_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.48886E-14_JPRB,0.68810E-14_JPRB,0.90777E-14_JPRB,0.11450E-13_JPRB,0.13800E-13_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.49769E-09_JPRB,0.57573E-09_JPRB,0.65456E-09_JPRB,0.73233E-09_JPRB,0.81030E-09_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.41687E-09_JPRB,0.48070E-09_JPRB,0.54629E-09_JPRB,0.61156E-09_JPRB,0.67509E-09_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.35004E-09_JPRB,0.40346E-09_JPRB,0.45778E-09_JPRB,0.51155E-09_JPRB,0.56442E-09_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.29428E-09_JPRB,0.33893E-09_JPRB,0.38370E-09_JPRB,0.42831E-09_JPRB,0.47172E-09_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.24736E-09_JPRB,0.28447E-09_JPRB,0.32184E-09_JPRB,0.35882E-09_JPRB,0.39576E-09_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.20799E-09_JPRB,0.23913E-09_JPRB,0.26980E-09_JPRB,0.30118E-09_JPRB,0.33239E-09_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.17474E-09_JPRB,0.20037E-09_JPRB,0.22650E-09_JPRB,0.25275E-09_JPRB,0.27848E-09_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.14678E-09_JPRB,0.16826E-09_JPRB,0.19015E-09_JPRB,0.21182E-09_JPRB,0.23321E-09_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.12329E-09_JPRB,0.14137E-09_JPRB,0.15951E-09_JPRB,0.17762E-09_JPRB,0.19539E-09_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.10475E-09_JPRB,0.11989E-09_JPRB,0.13488E-09_JPRB,0.14993E-09_JPRB,0.16481E-09_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.89090E-10_JPRB,0.10156E-09_JPRB,0.11416E-09_JPRB,0.12661E-09_JPRB,0.13928E-09_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.75648E-10_JPRB,0.86094E-10_JPRB,0.96530E-10_JPRB,0.10692E-09_JPRB,0.11716E-09_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.64419E-10_JPRB,0.73036E-10_JPRB,0.81659E-10_JPRB,0.90142E-10_JPRB,0.98524E-10_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.54857E-10_JPRB,0.61972E-10_JPRB,0.69147E-10_JPRB,0.76125E-10_JPRB,0.82778E-10_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.46656E-10_JPRB,0.52591E-10_JPRB,0.58413E-10_JPRB,0.64168E-10_JPRB,0.69451E-10_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.39665E-10_JPRB,0.44561E-10_JPRB,0.49317E-10_JPRB,0.53971E-10_JPRB,0.58228E-10_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.33755E-10_JPRB,0.37736E-10_JPRB,0.41652E-10_JPRB,0.45382E-10_JPRB,0.48825E-10_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.28671E-10_JPRB,0.31949E-10_JPRB,0.35144E-10_JPRB,0.38141E-10_JPRB,0.41003E-10_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.24360E-10_JPRB,0.27027E-10_JPRB,0.29632E-10_JPRB,0.32038E-10_JPRB,0.34391E-10_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.20671E-10_JPRB,0.22852E-10_JPRB,0.24963E-10_JPRB,0.26903E-10_JPRB,0.28818E-10_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.17515E-10_JPRB,0.19306E-10_JPRB,0.20998E-10_JPRB,0.22562E-10_JPRB,0.24113E-10_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.14755E-10_JPRB,0.16223E-10_JPRB,0.17588E-10_JPRB,0.18905E-10_JPRB,0.20105E-10_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.12305E-10_JPRB,0.13505E-10_JPRB,0.14616E-10_JPRB,0.15703E-10_JPRB,0.16661E-10_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.10152E-10_JPRB,0.11132E-10_JPRB,0.12046E-10_JPRB,0.12938E-10_JPRB,0.13718E-10_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.82437E-11_JPRB,0.90546E-11_JPRB,0.98101E-11_JPRB,0.10549E-10_JPRB,0.11200E-10_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.66891E-11_JPRB,0.73572E-11_JPRB,0.79832E-11_JPRB,0.85923E-11_JPRB,0.91388E-11_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.54271E-11_JPRB,0.59789E-11_JPRB,0.64946E-11_JPRB,0.69804E-11_JPRB,0.74536E-11_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.43504E-11_JPRB,0.48077E-11_JPRB,0.52359E-11_JPRB,0.56420E-11_JPRB,0.60390E-11_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.34805E-11_JPRB,0.38570E-11_JPRB,0.42158E-11_JPRB,0.45532E-11_JPRB,0.48856E-11_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.27817E-11_JPRB,0.30896E-11_JPRB,0.33906E-11_JPRB,0.36712E-11_JPRB,0.39504E-11_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.22059E-11_JPRB,0.24603E-11_JPRB,0.27112E-11_JPRB,0.29449E-11_JPRB,0.31673E-11_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.17407E-11_JPRB,0.19508E-11_JPRB,0.21593E-11_JPRB,0.23549E-11_JPRB,0.25394E-11_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.13717E-11_JPRB,0.15444E-11_JPRB,0.17149E-11_JPRB,0.18808E-11_JPRB,0.20349E-11_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.10758E-11_JPRB,0.12178E-11_JPRB,0.13582E-11_JPRB,0.14973E-11_JPRB,0.16264E-11_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.83623E-12_JPRB,0.95326E-12_JPRB,0.10692E-11_JPRB,0.11850E-11_JPRB,0.12934E-11_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.64811E-12_JPRB,0.74426E-12_JPRB,0.84002E-12_JPRB,0.93446E-12_JPRB,0.10270E-11_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.50093E-12_JPRB,0.57976E-12_JPRB,0.65824E-12_JPRB,0.73652E-12_JPRB,0.81364E-12_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.38740E-12_JPRB,0.45167E-12_JPRB,0.51620E-12_JPRB,0.58084E-12_JPRB,0.64495E-12_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.29910E-12_JPRB,0.35149E-12_JPRB,0.40454E-12_JPRB,0.45768E-12_JPRB,0.51010E-12_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.23004E-12_JPRB,0.27291E-12_JPRB,0.31637E-12_JPRB,0.35993E-12_JPRB,0.40313E-12_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.17654E-12_JPRB,0.21129E-12_JPRB,0.24667E-12_JPRB,0.28251E-12_JPRB,0.31798E-12_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.13566E-12_JPRB,0.16388E-12_JPRB,0.19277E-12_JPRB,0.22203E-12_JPRB,0.25140E-12_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.10414E-12_JPRB,0.12705E-12_JPRB,0.15062E-12_JPRB,0.17458E-12_JPRB,0.19863E-12_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.79695E-13_JPRB,0.98154E-13_JPRB,0.11737E-12_JPRB,0.13696E-12_JPRB,0.15674E-12_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.60735E-13_JPRB,0.75667E-13_JPRB,0.91265E-13_JPRB,0.10718E-12_JPRB,0.12346E-12_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.46331E-13_JPRB,0.58316E-13_JPRB,0.71018E-13_JPRB,0.83950E-13_JPRB,0.97215E-13_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.36896E-13_JPRB,0.46643E-13_JPRB,0.57036E-13_JPRB,0.67613E-13_JPRB,0.78545E-13_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.26254E-08_JPRB,0.28627E-08_JPRB,0.30909E-08_JPRB,0.33000E-08_JPRB,0.34892E-08_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.21830E-08_JPRB,0.23794E-08_JPRB,0.25635E-08_JPRB,0.27354E-08_JPRB,0.28987E-08_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.18164E-08_JPRB,0.19772E-08_JPRB,0.21299E-08_JPRB,0.22819E-08_JPRB,0.24177E-08_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.15141E-08_JPRB,0.16500E-08_JPRB,0.17819E-08_JPRB,0.19057E-08_JPRB,0.20139E-08_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.12644E-08_JPRB,0.13791E-08_JPRB,0.14854E-08_JPRB,0.15868E-08_JPRB,0.16779E-08_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.10569E-08_JPRB,0.11490E-08_JPRB,0.12387E-08_JPRB,0.13249E-08_JPRB,0.14004E-08_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.88077E-09_JPRB,0.95771E-09_JPRB,0.10342E-08_JPRB,0.11045E-08_JPRB,0.11654E-08_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.73433E-09_JPRB,0.79954E-09_JPRB,0.86343E-09_JPRB,0.92049E-09_JPRB,0.97111E-09_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.61317E-09_JPRB,0.66751E-09_JPRB,0.72065E-09_JPRB,0.76613E-09_JPRB,0.80891E-09_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.51519E-09_JPRB,0.56066E-09_JPRB,0.60290E-09_JPRB,0.64113E-09_JPRB,0.67719E-09_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.43331E-09_JPRB,0.47103E-09_JPRB,0.50532E-09_JPRB,0.53747E-09_JPRB,0.56589E-09_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.36478E-09_JPRB,0.39531E-09_JPRB,0.42421E-09_JPRB,0.45023E-09_JPRB,0.47333E-09_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.30661E-09_JPRB,0.33249E-09_JPRB,0.35642E-09_JPRB,0.37711E-09_JPRB,0.39645E-09_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.25851E-09_JPRB,0.28030E-09_JPRB,0.29893E-09_JPRB,0.31621E-09_JPRB,0.33249E-09_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.21849E-09_JPRB,0.23581E-09_JPRB,0.25124E-09_JPRB,0.26548E-09_JPRB,0.27889E-09_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.18476E-09_JPRB,0.19866E-09_JPRB,0.21115E-09_JPRB,0.22285E-09_JPRB,0.23419E-09_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.15608E-09_JPRB,0.16725E-09_JPRB,0.17764E-09_JPRB,0.18744E-09_JPRB,0.19627E-09_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.13180E-09_JPRB,0.14084E-09_JPRB,0.14944E-09_JPRB,0.15734E-09_JPRB,0.16419E-09_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.11122E-09_JPRB,0.11878E-09_JPRB,0.12548E-09_JPRB,0.13183E-09_JPRB,0.13690E-09_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.93806E-10_JPRB,0.99909E-10_JPRB,0.10547E-09_JPRB,0.11013E-09_JPRB,0.11393E-09_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.79057E-10_JPRB,0.83869E-10_JPRB,0.88337E-10_JPRB,0.91833E-10_JPRB,0.94728E-10_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.66383E-10_JPRB,0.70216E-10_JPRB,0.73644E-10_JPRB,0.76467E-10_JPRB,0.78589E-10_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.55303E-10_JPRB,0.58435E-10_JPRB,0.61122E-10_JPRB,0.63317E-10_JPRB,0.64984E-10_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.45788E-10_JPRB,0.48318E-10_JPRB,0.50463E-10_JPRB,0.52237E-10_JPRB,0.53589E-10_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.37517E-10_JPRB,0.39593E-10_JPRB,0.41407E-10_JPRB,0.42883E-10_JPRB,0.44012E-10_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.30717E-10_JPRB,0.32436E-10_JPRB,0.33950E-10_JPRB,0.35197E-10_JPRB,0.36146E-10_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.25129E-10_JPRB,0.26560E-10_JPRB,0.27827E-10_JPRB,0.28835E-10_JPRB,0.29676E-10_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.20420E-10_JPRB,0.21620E-10_JPRB,0.22699E-10_JPRB,0.23564E-10_JPRB,0.24290E-10_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.16561E-10_JPRB,0.17583E-10_JPRB,0.18496E-10_JPRB,0.19245E-10_JPRB,0.19868E-10_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.13418E-10_JPRB,0.14291E-10_JPRB,0.15059E-10_JPRB,0.15706E-10_JPRB,0.16243E-10_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.10810E-10_JPRB,0.11562E-10_JPRB,0.12210E-10_JPRB,0.12774E-10_JPRB,0.13223E-10_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.86843E-11_JPRB,0.93265E-11_JPRB,0.98789E-11_JPRB,0.10369E-10_JPRB,0.10770E-10_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.69593E-11_JPRB,0.75111E-11_JPRB,0.79891E-11_JPRB,0.84084E-11_JPRB,0.87638E-11_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.55576E-11_JPRB,0.60308E-11_JPRB,0.64400E-11_JPRB,0.68030E-11_JPRB,0.71149E-11_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.44097E-11_JPRB,0.48155E-11_JPRB,0.51709E-11_JPRB,0.54794E-11_JPRB,0.57570E-11_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.34877E-11_JPRB,0.38384E-11_JPRB,0.41433E-11_JPRB,0.44120E-11_JPRB,0.46521E-11_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.27512E-11_JPRB,0.30491E-11_JPRB,0.33123E-11_JPRB,0.35456E-11_JPRB,0.37509E-11_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.21734E-11_JPRB,0.24185E-11_JPRB,0.26481E-11_JPRB,0.28485E-11_JPRB,0.30236E-11_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.17150E-11_JPRB,0.19185E-11_JPRB,0.21147E-11_JPRB,0.22857E-11_JPRB,0.24371E-11_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.13499E-11_JPRB,0.15196E-11_JPRB,0.16853E-11_JPRB,0.18315E-11_JPRB,0.19613E-11_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.10590E-11_JPRB,0.11989E-11_JPRB,0.13374E-11_JPRB,0.14641E-11_JPRB,0.15756E-11_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.83182E-12_JPRB,0.94832E-12_JPRB,0.10625E-11_JPRB,0.11713E-11_JPRB,0.12669E-11_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.65257E-12_JPRB,0.74992E-12_JPRB,0.84445E-12_JPRB,0.93664E-12_JPRB,0.10175E-11_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.51109E-12_JPRB,0.59162E-12_JPRB,0.67030E-12_JPRB,0.74706E-12_JPRB,0.81634E-12_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.39868E-12_JPRB,0.46532E-12_JPRB,0.53042E-12_JPRB,0.59449E-12_JPRB,0.65374E-12_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.31062E-12_JPRB,0.36629E-12_JPRB,0.42009E-12_JPRB,0.47298E-12_JPRB,0.52357E-12_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.24996E-12_JPRB,0.29597E-12_JPRB,0.34052E-12_JPRB,0.38403E-12_JPRB,0.42584E-12_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.10275E-07_JPRB,0.10425E-07_JPRB,0.10505E-07_JPRB,0.10571E-07_JPRB,0.10619E-07_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.84309E-08_JPRB,0.85528E-08_JPRB,0.86280E-08_JPRB,0.86935E-08_JPRB,0.87236E-08_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.69259E-08_JPRB,0.70218E-08_JPRB,0.71031E-08_JPRB,0.71419E-08_JPRB,0.71430E-08_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.56933E-08_JPRB,0.57765E-08_JPRB,0.58298E-08_JPRB,0.58527E-08_JPRB,0.58704E-08_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.46880E-08_JPRB,0.47555E-08_JPRB,0.47985E-08_JPRB,0.48270E-08_JPRB,0.48471E-08_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.38628E-08_JPRB,0.39183E-08_JPRB,0.39591E-08_JPRB,0.39923E-08_JPRB,0.40106E-08_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.31833E-08_JPRB,0.32370E-08_JPRB,0.32750E-08_JPRB,0.32992E-08_JPRB,0.33139E-08_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.26315E-08_JPRB,0.26765E-08_JPRB,0.27033E-08_JPRB,0.27208E-08_JPRB,0.27412E-08_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.21768E-08_JPRB,0.22074E-08_JPRB,0.22281E-08_JPRB,0.22492E-08_JPRB,0.22648E-08_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.17970E-08_JPRB,0.18204E-08_JPRB,0.18421E-08_JPRB,0.18603E-08_JPRB,0.18697E-08_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.14828E-08_JPRB,0.15043E-08_JPRB,0.15235E-08_JPRB,0.15373E-08_JPRB,0.15469E-08_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.12265E-08_JPRB,0.12457E-08_JPRB,0.12602E-08_JPRB,0.12704E-08_JPRB,0.12795E-08_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.10153E-08_JPRB,0.10303E-08_JPRB,0.10406E-08_JPRB,0.10511E-08_JPRB,0.10591E-08_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.84067E-09_JPRB,0.85220E-09_JPRB,0.86139E-09_JPRB,0.87145E-09_JPRB,0.87606E-09_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.69556E-09_JPRB,0.70441E-09_JPRB,0.71396E-09_JPRB,0.72098E-09_JPRB,0.72486E-09_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.57505E-09_JPRB,0.58326E-09_JPRB,0.59186E-09_JPRB,0.59662E-09_JPRB,0.60056E-09_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.47621E-09_JPRB,0.48459E-09_JPRB,0.49079E-09_JPRB,0.49432E-09_JPRB,0.49717E-09_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.39513E-09_JPRB,0.40232E-09_JPRB,0.40640E-09_JPRB,0.40995E-09_JPRB,0.41263E-09_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.32890E-09_JPRB,0.33390E-09_JPRB,0.33797E-09_JPRB,0.34036E-09_JPRB,0.34440E-09_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.27372E-09_JPRB,0.27757E-09_JPRB,0.28057E-09_JPRB,0.28360E-09_JPRB,0.28668E-09_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.22771E-09_JPRB,0.23074E-09_JPRB,0.23349E-09_JPRB,0.23595E-09_JPRB,0.23797E-09_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.18899E-09_JPRB,0.19179E-09_JPRB,0.19391E-09_JPRB,0.19591E-09_JPRB,0.19720E-09_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.15677E-09_JPRB,0.15897E-09_JPRB,0.16075E-09_JPRB,0.16219E-09_JPRB,0.16318E-09_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.12972E-09_JPRB,0.13147E-09_JPRB,0.13291E-09_JPRB,0.13412E-09_JPRB,0.13484E-09_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.10704E-09_JPRB,0.10855E-09_JPRB,0.10970E-09_JPRB,0.11065E-09_JPRB,0.11129E-09_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.88219E-10_JPRB,0.89571E-10_JPRB,0.90489E-10_JPRB,0.91263E-10_JPRB,0.91821E-10_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.72709E-10_JPRB,0.73884E-10_JPRB,0.74615E-10_JPRB,0.75144E-10_JPRB,0.75719E-10_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.59779E-10_JPRB,0.60793E-10_JPRB,0.61424E-10_JPRB,0.61873E-10_JPRB,0.62379E-10_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.49104E-10_JPRB,0.49999E-10_JPRB,0.50541E-10_JPRB,0.50924E-10_JPRB,0.51369E-10_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.40324E-10_JPRB,0.41079E-10_JPRB,0.41584E-10_JPRB,0.41914E-10_JPRB,0.42279E-10_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.33050E-10_JPRB,0.33695E-10_JPRB,0.34173E-10_JPRB,0.34462E-10_JPRB,0.34716E-10_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.27054E-10_JPRB,0.27604E-10_JPRB,0.28056E-10_JPRB,0.28313E-10_JPRB,0.28542E-10_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.22112E-10_JPRB,0.22613E-10_JPRB,0.23018E-10_JPRB,0.23255E-10_JPRB,0.23441E-10_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.18060E-10_JPRB,0.18501E-10_JPRB,0.18867E-10_JPRB,0.19082E-10_JPRB,0.19252E-10_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.14722E-10_JPRB,0.15111E-10_JPRB,0.15432E-10_JPRB,0.15658E-10_JPRB,0.15802E-10_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.11985E-10_JPRB,0.12318E-10_JPRB,0.12624E-10_JPRB,0.12826E-10_JPRB,0.12965E-10_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.97421E-11_JPRB,0.10040E-10_JPRB,0.10306E-10_JPRB,0.10499E-10_JPRB,0.10630E-10_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.79055E-11_JPRB,0.81823E-11_JPRB,0.84121E-11_JPRB,0.85902E-11_JPRB,0.87163E-11_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.64164E-11_JPRB,0.66612E-11_JPRB,0.68621E-11_JPRB,0.70240E-11_JPRB,0.71428E-11_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.51935E-11_JPRB,0.54159E-11_JPRB,0.55861E-11_JPRB,0.57406E-11_JPRB,0.58465E-11_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.42017E-11_JPRB,0.43985E-11_JPRB,0.45525E-11_JPRB,0.46862E-11_JPRB,0.47817E-11_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.33953E-11_JPRB,0.35701E-11_JPRB,0.37080E-11_JPRB,0.38204E-11_JPRB,0.39118E-11_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.27420E-11_JPRB,0.28948E-11_JPRB,0.30166E-11_JPRB,0.31148E-11_JPRB,0.31981E-11_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.22097E-11_JPRB,0.23440E-11_JPRB,0.24518E-11_JPRB,0.25378E-11_JPRB,0.26122E-11_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.17765E-11_JPRB,0.18968E-11_JPRB,0.19913E-11_JPRB,0.20659E-11_JPRB,0.21319E-11_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.14264E-11_JPRB,0.15324E-11_JPRB,0.16166E-11_JPRB,0.16816E-11_JPRB,0.17374E-11_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,59, 6) = (/ &
+ & 0.11621E-11_JPRB,0.12515E-11_JPRB,0.13230E-11_JPRB,0.13773E-11_JPRB,0.14240E-11_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.28079E-07_JPRB,0.28035E-07_JPRB,0.27949E-07_JPRB,0.27835E-07_JPRB,0.27661E-07_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.23041E-07_JPRB,0.22982E-07_JPRB,0.22914E-07_JPRB,0.22814E-07_JPRB,0.22653E-07_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.18899E-07_JPRB,0.18860E-07_JPRB,0.18790E-07_JPRB,0.18675E-07_JPRB,0.18596E-07_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.15489E-07_JPRB,0.15457E-07_JPRB,0.15389E-07_JPRB,0.15337E-07_JPRB,0.15329E-07_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.12699E-07_JPRB,0.12665E-07_JPRB,0.12634E-07_JPRB,0.12640E-07_JPRB,0.12612E-07_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.10409E-07_JPRB,0.10397E-07_JPRB,0.10401E-07_JPRB,0.10391E-07_JPRB,0.10368E-07_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.85482E-08_JPRB,0.85403E-08_JPRB,0.85408E-08_JPRB,0.85379E-08_JPRB,0.85325E-08_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.70183E-08_JPRB,0.70212E-08_JPRB,0.70225E-08_JPRB,0.70232E-08_JPRB,0.70243E-08_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.57704E-08_JPRB,0.57836E-08_JPRB,0.57919E-08_JPRB,0.57990E-08_JPRB,0.58135E-08_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.47522E-08_JPRB,0.47673E-08_JPRB,0.47834E-08_JPRB,0.48084E-08_JPRB,0.48239E-08_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.39186E-08_JPRB,0.39439E-08_JPRB,0.39679E-08_JPRB,0.39863E-08_JPRB,0.40063E-08_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.32407E-08_JPRB,0.32645E-08_JPRB,0.32840E-08_JPRB,0.33039E-08_JPRB,0.33353E-08_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.26846E-08_JPRB,0.27012E-08_JPRB,0.27199E-08_JPRB,0.27477E-08_JPRB,0.27761E-08_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.22196E-08_JPRB,0.22367E-08_JPRB,0.22646E-08_JPRB,0.22896E-08_JPRB,0.23141E-08_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.18370E-08_JPRB,0.18616E-08_JPRB,0.18864E-08_JPRB,0.19087E-08_JPRB,0.19319E-08_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.15259E-08_JPRB,0.15495E-08_JPRB,0.15695E-08_JPRB,0.15912E-08_JPRB,0.16152E-08_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.12717E-08_JPRB,0.12907E-08_JPRB,0.13087E-08_JPRB,0.13304E-08_JPRB,0.13523E-08_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.10599E-08_JPRB,0.10765E-08_JPRB,0.10939E-08_JPRB,0.11139E-08_JPRB,0.11374E-08_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.88411E-09_JPRB,0.89833E-09_JPRB,0.91628E-09_JPRB,0.93662E-09_JPRB,0.95540E-09_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.73723E-09_JPRB,0.75198E-09_JPRB,0.77042E-09_JPRB,0.78608E-09_JPRB,0.80601E-09_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.61511E-09_JPRB,0.63161E-09_JPRB,0.64646E-09_JPRB,0.66232E-09_JPRB,0.68095E-09_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.51621E-09_JPRB,0.53001E-09_JPRB,0.54332E-09_JPRB,0.55986E-09_JPRB,0.57326E-09_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.43217E-09_JPRB,0.44439E-09_JPRB,0.45713E-09_JPRB,0.47103E-09_JPRB,0.48242E-09_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.36090E-09_JPRB,0.37166E-09_JPRB,0.38311E-09_JPRB,0.39461E-09_JPRB,0.40545E-09_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.29990E-09_JPRB,0.30916E-09_JPRB,0.31937E-09_JPRB,0.32943E-09_JPRB,0.34038E-09_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.24927E-09_JPRB,0.25737E-09_JPRB,0.26638E-09_JPRB,0.27543E-09_JPRB,0.28596E-09_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.20718E-09_JPRB,0.21434E-09_JPRB,0.22203E-09_JPRB,0.23026E-09_JPRB,0.23966E-09_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.17122E-09_JPRB,0.17745E-09_JPRB,0.18425E-09_JPRB,0.19138E-09_JPRB,0.19937E-09_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.14145E-09_JPRB,0.14673E-09_JPRB,0.15273E-09_JPRB,0.15885E-09_JPRB,0.16544E-09_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.11673E-09_JPRB,0.12130E-09_JPRB,0.12626E-09_JPRB,0.13156E-09_JPRB,0.13718E-09_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.95979E-10_JPRB,0.99773E-10_JPRB,0.10407E-09_JPRB,0.10848E-09_JPRB,0.11289E-09_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.78684E-10_JPRB,0.81894E-10_JPRB,0.85476E-10_JPRB,0.89249E-10_JPRB,0.92971E-10_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.64482E-10_JPRB,0.67161E-10_JPRB,0.70163E-10_JPRB,0.73315E-10_JPRB,0.76486E-10_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.52720E-10_JPRB,0.54998E-10_JPRB,0.57509E-10_JPRB,0.60128E-10_JPRB,0.62787E-10_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.42902E-10_JPRB,0.44887E-10_JPRB,0.46948E-10_JPRB,0.49098E-10_JPRB,0.51392E-10_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.34914E-10_JPRB,0.36612E-10_JPRB,0.38268E-10_JPRB,0.40114E-10_JPRB,0.41998E-10_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.28363E-10_JPRB,0.29830E-10_JPRB,0.31160E-10_JPRB,0.32712E-10_JPRB,0.34278E-10_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.23044E-10_JPRB,0.24298E-10_JPRB,0.25411E-10_JPRB,0.26663E-10_JPRB,0.27956E-10_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.18719E-10_JPRB,0.19762E-10_JPRB,0.20717E-10_JPRB,0.21748E-10_JPRB,0.22834E-10_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.15214E-10_JPRB,0.16060E-10_JPRB,0.16882E-10_JPRB,0.17722E-10_JPRB,0.18609E-10_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.12339E-10_JPRB,0.13039E-10_JPRB,0.13738E-10_JPRB,0.14413E-10_JPRB,0.15144E-10_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.10028E-10_JPRB,0.10589E-10_JPRB,0.11176E-10_JPRB,0.11743E-10_JPRB,0.12340E-10_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.81332E-11_JPRB,0.85988E-11_JPRB,0.90904E-11_JPRB,0.95545E-11_JPRB,0.10057E-10_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.66047E-11_JPRB,0.69777E-11_JPRB,0.73796E-11_JPRB,0.77755E-11_JPRB,0.81880E-11_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.53536E-11_JPRB,0.56554E-11_JPRB,0.59940E-11_JPRB,0.63232E-11_JPRB,0.66612E-11_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.43329E-11_JPRB,0.45903E-11_JPRB,0.48661E-11_JPRB,0.51412E-11_JPRB,0.54200E-11_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.35522E-11_JPRB,0.37646E-11_JPRB,0.39940E-11_JPRB,0.42211E-11_JPRB,0.44525E-11_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.11230E-06_JPRB,0.11409E-06_JPRB,0.11566E-06_JPRB,0.11672E-06_JPRB,0.11734E-06_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.92428E-07_JPRB,0.93878E-07_JPRB,0.95014E-07_JPRB,0.95711E-07_JPRB,0.96110E-07_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.76021E-07_JPRB,0.77148E-07_JPRB,0.77913E-07_JPRB,0.78505E-07_JPRB,0.78756E-07_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.62512E-07_JPRB,0.63402E-07_JPRB,0.63979E-07_JPRB,0.64292E-07_JPRB,0.64352E-07_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.51480E-07_JPRB,0.52099E-07_JPRB,0.52465E-07_JPRB,0.52634E-07_JPRB,0.52753E-07_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.42336E-07_JPRB,0.42773E-07_JPRB,0.43015E-07_JPRB,0.43145E-07_JPRB,0.43290E-07_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.34820E-07_JPRB,0.35138E-07_JPRB,0.35326E-07_JPRB,0.35465E-07_JPRB,0.35546E-07_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.28634E-07_JPRB,0.28882E-07_JPRB,0.29099E-07_JPRB,0.29190E-07_JPRB,0.29248E-07_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.23527E-07_JPRB,0.23767E-07_JPRB,0.23879E-07_JPRB,0.24001E-07_JPRB,0.24136E-07_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.19380E-07_JPRB,0.19526E-07_JPRB,0.19668E-07_JPRB,0.19823E-07_JPRB,0.20000E-07_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.15955E-07_JPRB,0.16103E-07_JPRB,0.16252E-07_JPRB,0.16425E-07_JPRB,0.16561E-07_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.13163E-07_JPRB,0.13294E-07_JPRB,0.13466E-07_JPRB,0.13609E-07_JPRB,0.13701E-07_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.10863E-07_JPRB,0.11029E-07_JPRB,0.11155E-07_JPRB,0.11256E-07_JPRB,0.11368E-07_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.90043E-08_JPRB,0.91173E-08_JPRB,0.92226E-08_JPRB,0.93261E-08_JPRB,0.94322E-08_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.74604E-08_JPRB,0.75548E-08_JPRB,0.76410E-08_JPRB,0.77390E-08_JPRB,0.78488E-08_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.61944E-08_JPRB,0.62754E-08_JPRB,0.63658E-08_JPRB,0.64728E-08_JPRB,0.65523E-08_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.51553E-08_JPRB,0.52390E-08_JPRB,0.53444E-08_JPRB,0.54244E-08_JPRB,0.55104E-08_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.43022E-08_JPRB,0.44056E-08_JPRB,0.44906E-08_JPRB,0.45753E-08_JPRB,0.46815E-08_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.36260E-08_JPRB,0.37147E-08_JPRB,0.37854E-08_JPRB,0.38857E-08_JPRB,0.39725E-08_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.30574E-08_JPRB,0.31222E-08_JPRB,0.32149E-08_JPRB,0.32959E-08_JPRB,0.33679E-08_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.25690E-08_JPRB,0.26475E-08_JPRB,0.27306E-08_JPRB,0.27942E-08_JPRB,0.28607E-08_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.21739E-08_JPRB,0.22522E-08_JPRB,0.23131E-08_JPRB,0.23724E-08_JPRB,0.24398E-08_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.18403E-08_JPRB,0.19033E-08_JPRB,0.19580E-08_JPRB,0.20191E-08_JPRB,0.20792E-08_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.15538E-08_JPRB,0.16068E-08_JPRB,0.16535E-08_JPRB,0.17159E-08_JPRB,0.17681E-08_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.13002E-08_JPRB,0.13483E-08_JPRB,0.13923E-08_JPRB,0.14493E-08_JPRB,0.14927E-08_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.10893E-08_JPRB,0.11319E-08_JPRB,0.11765E-08_JPRB,0.12253E-08_JPRB,0.12624E-08_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.91348E-09_JPRB,0.95067E-09_JPRB,0.99134E-09_JPRB,0.10293E-08_JPRB,0.10668E-08_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.76170E-09_JPRB,0.79404E-09_JPRB,0.82953E-09_JPRB,0.86548E-09_JPRB,0.90041E-09_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.63292E-09_JPRB,0.66170E-09_JPRB,0.69363E-09_JPRB,0.72573E-09_JPRB,0.75710E-09_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.52609E-09_JPRB,0.55120E-09_JPRB,0.57974E-09_JPRB,0.60803E-09_JPRB,0.63636E-09_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.43444E-09_JPRB,0.45674E-09_JPRB,0.48206E-09_JPRB,0.50747E-09_JPRB,0.53053E-09_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.35755E-09_JPRB,0.37758E-09_JPRB,0.39965E-09_JPRB,0.42169E-09_JPRB,0.44276E-09_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.29410E-09_JPRB,0.31126E-09_JPRB,0.33079E-09_JPRB,0.35014E-09_JPRB,0.36874E-09_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.24113E-09_JPRB,0.25605E-09_JPRB,0.27273E-09_JPRB,0.28962E-09_JPRB,0.30646E-09_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.19675E-09_JPRB,0.20937E-09_JPRB,0.22390E-09_JPRB,0.23865E-09_JPRB,0.25330E-09_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.16029E-09_JPRB,0.17125E-09_JPRB,0.18339E-09_JPRB,0.19620E-09_JPRB,0.20918E-09_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.13018E-09_JPRB,0.13961E-09_JPRB,0.15020E-09_JPRB,0.16108E-09_JPRB,0.17231E-09_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.10559E-09_JPRB,0.11394E-09_JPRB,0.12271E-09_JPRB,0.13208E-09_JPRB,0.14200E-09_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.85569E-10_JPRB,0.92775E-10_JPRB,0.10011E-09_JPRB,0.10818E-09_JPRB,0.11665E-09_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.69342E-10_JPRB,0.75341E-10_JPRB,0.81596E-10_JPRB,0.88527E-10_JPRB,0.95876E-10_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.56003E-10_JPRB,0.61203E-10_JPRB,0.66389E-10_JPRB,0.72376E-10_JPRB,0.78642E-10_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.45380E-10_JPRB,0.49599E-10_JPRB,0.54006E-10_JPRB,0.59069E-10_JPRB,0.64380E-10_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.36637E-10_JPRB,0.40078E-10_JPRB,0.43990E-10_JPRB,0.48279E-10_JPRB,0.52815E-10_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.29596E-10_JPRB,0.32455E-10_JPRB,0.35694E-10_JPRB,0.39315E-10_JPRB,0.43169E-10_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.23911E-10_JPRB,0.26268E-10_JPRB,0.28916E-10_JPRB,0.31929E-10_JPRB,0.35182E-10_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.19299E-10_JPRB,0.21198E-10_JPRB,0.23407E-10_JPRB,0.25936E-10_JPRB,0.28689E-10_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.15839E-10_JPRB,0.17448E-10_JPRB,0.19334E-10_JPRB,0.21469E-10_JPRB,0.23829E-10_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.96471E-06_JPRB,0.97408E-06_JPRB,0.98436E-06_JPRB,0.99439E-06_JPRB,0.10050E-05_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.80904E-06_JPRB,0.81838E-06_JPRB,0.82742E-06_JPRB,0.83703E-06_JPRB,0.84742E-06_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.67733E-06_JPRB,0.68563E-06_JPRB,0.69403E-06_JPRB,0.70345E-06_JPRB,0.71287E-06_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.56582E-06_JPRB,0.57313E-06_JPRB,0.58159E-06_JPRB,0.59012E-06_JPRB,0.59880E-06_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.47164E-06_JPRB,0.47892E-06_JPRB,0.48671E-06_JPRB,0.49436E-06_JPRB,0.50258E-06_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.39308E-06_JPRB,0.39992E-06_JPRB,0.40685E-06_JPRB,0.41415E-06_JPRB,0.42143E-06_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.32764E-06_JPRB,0.33370E-06_JPRB,0.34000E-06_JPRB,0.34660E-06_JPRB,0.35294E-06_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.27304E-06_JPRB,0.27855E-06_JPRB,0.28433E-06_JPRB,0.29002E-06_JPRB,0.29550E-06_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.22762E-06_JPRB,0.23263E-06_JPRB,0.23776E-06_JPRB,0.24264E-06_JPRB,0.24751E-06_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.19016E-06_JPRB,0.19467E-06_JPRB,0.19902E-06_JPRB,0.20331E-06_JPRB,0.20743E-06_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.15902E-06_JPRB,0.16285E-06_JPRB,0.16664E-06_JPRB,0.17032E-06_JPRB,0.17381E-06_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.13300E-06_JPRB,0.13639E-06_JPRB,0.13965E-06_JPRB,0.14271E-06_JPRB,0.14575E-06_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.11136E-06_JPRB,0.11428E-06_JPRB,0.11705E-06_JPRB,0.11966E-06_JPRB,0.12234E-06_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.93355E-07_JPRB,0.95870E-07_JPRB,0.98179E-07_JPRB,0.10046E-06_JPRB,0.10295E-06_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.78546E-07_JPRB,0.80656E-07_JPRB,0.82694E-07_JPRB,0.84793E-07_JPRB,0.87129E-07_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.65991E-07_JPRB,0.67786E-07_JPRB,0.69602E-07_JPRB,0.71624E-07_JPRB,0.74063E-07_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.55459E-07_JPRB,0.56995E-07_JPRB,0.58695E-07_JPRB,0.60741E-07_JPRB,0.63281E-07_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.46750E-07_JPRB,0.48054E-07_JPRB,0.49703E-07_JPRB,0.51793E-07_JPRB,0.54403E-07_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.39452E-07_JPRB,0.40727E-07_JPRB,0.42319E-07_JPRB,0.44486E-07_JPRB,0.47323E-07_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.33473E-07_JPRB,0.34884E-07_JPRB,0.36502E-07_JPRB,0.38781E-07_JPRB,0.41735E-07_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.28581E-07_JPRB,0.30008E-07_JPRB,0.31748E-07_JPRB,0.34217E-07_JPRB,0.37511E-07_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.24450E-07_JPRB,0.25951E-07_JPRB,0.27867E-07_JPRB,0.30565E-07_JPRB,0.34125E-07_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.20942E-07_JPRB,0.22554E-07_JPRB,0.24574E-07_JPRB,0.27409E-07_JPRB,0.31159E-07_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.18081E-07_JPRB,0.19648E-07_JPRB,0.21657E-07_JPRB,0.24573E-07_JPRB,0.28429E-07_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.15436E-07_JPRB,0.16978E-07_JPRB,0.19037E-07_JPRB,0.21710E-07_JPRB,0.25509E-07_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.13187E-07_JPRB,0.14690E-07_JPRB,0.16738E-07_JPRB,0.19257E-07_JPRB,0.22992E-07_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.11282E-07_JPRB,0.12751E-07_JPRB,0.14794E-07_JPRB,0.17292E-07_JPRB,0.20852E-07_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.96293E-08_JPRB,0.10973E-07_JPRB,0.12917E-07_JPRB,0.15272E-07_JPRB,0.18582E-07_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.81770E-08_JPRB,0.94352E-08_JPRB,0.11220E-07_JPRB,0.13516E-07_JPRB,0.16546E-07_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.69323E-08_JPRB,0.80750E-08_JPRB,0.97479E-08_JPRB,0.11964E-07_JPRB,0.14736E-07_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.58312E-08_JPRB,0.68571E-08_JPRB,0.83595E-08_JPRB,0.10414E-07_JPRB,0.12928E-07_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.48754E-08_JPRB,0.58128E-08_JPRB,0.71504E-08_JPRB,0.90270E-08_JPRB,0.11362E-07_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.40522E-08_JPRB,0.48841E-08_JPRB,0.60765E-08_JPRB,0.77697E-08_JPRB,0.99439E-08_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.33429E-08_JPRB,0.40820E-08_JPRB,0.51038E-08_JPRB,0.66237E-08_JPRB,0.86427E-08_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.27297E-08_JPRB,0.33571E-08_JPRB,0.42806E-08_JPRB,0.55863E-08_JPRB,0.73605E-08_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.22143E-08_JPRB,0.27445E-08_JPRB,0.35414E-08_JPRB,0.46711E-08_JPRB,0.62204E-08_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.18030E-08_JPRB,0.22208E-08_JPRB,0.28995E-08_JPRB,0.38639E-08_JPRB,0.52216E-08_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.14670E-08_JPRB,0.18085E-08_JPRB,0.23853E-08_JPRB,0.32522E-08_JPRB,0.44284E-08_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.11873E-08_JPRB,0.14637E-08_JPRB,0.19592E-08_JPRB,0.27073E-08_JPRB,0.37306E-08_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.96876E-09_JPRB,0.11883E-08_JPRB,0.15881E-08_JPRB,0.22316E-08_JPRB,0.31252E-08_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.79526E-09_JPRB,0.95443E-09_JPRB,0.12843E-08_JPRB,0.18180E-08_JPRB,0.25992E-08_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.65045E-09_JPRB,0.77197E-09_JPRB,0.10500E-08_JPRB,0.14963E-08_JPRB,0.21953E-08_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.53001E-09_JPRB,0.62144E-09_JPRB,0.84441E-09_JPRB,0.12265E-08_JPRB,0.18415E-08_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.43274E-09_JPRB,0.50433E-09_JPRB,0.67633E-09_JPRB,0.10051E-08_JPRB,0.15294E-08_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.35151E-09_JPRB,0.40652E-09_JPRB,0.53819E-09_JPRB,0.80840E-09_JPRB,0.12530E-08_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.28511E-09_JPRB,0.33047E-09_JPRB,0.42809E-09_JPRB,0.65584E-09_JPRB,0.10383E-08_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.23557E-09_JPRB,0.27695E-09_JPRB,0.36588E-09_JPRB,0.57468E-09_JPRB,0.92796E-09_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.49379E-05_JPRB,0.50469E-05_JPRB,0.51595E-05_JPRB,0.52778E-05_JPRB,0.54099E-05_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.42812E-05_JPRB,0.43888E-05_JPRB,0.45022E-05_JPRB,0.46302E-05_JPRB,0.47669E-05_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.36929E-05_JPRB,0.37965E-05_JPRB,0.39164E-05_JPRB,0.40454E-05_JPRB,0.41827E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,16,10) = (/ &
+ & 0.31721E-05_JPRB,0.32791E-05_JPRB,0.33975E-05_JPRB,0.35246E-05_JPRB,0.36634E-05_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.27212E-05_JPRB,0.28264E-05_JPRB,0.29414E-05_JPRB,0.30666E-05_JPRB,0.32085E-05_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.23339E-05_JPRB,0.24330E-05_JPRB,0.25438E-05_JPRB,0.26711E-05_JPRB,0.28184E-05_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.19987E-05_JPRB,0.20932E-05_JPRB,0.22036E-05_JPRB,0.23332E-05_JPRB,0.24834E-05_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.17132E-05_JPRB,0.18061E-05_JPRB,0.19176E-05_JPRB,0.20491E-05_JPRB,0.21989E-05_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.14710E-05_JPRB,0.15640E-05_JPRB,0.16759E-05_JPRB,0.18061E-05_JPRB,0.19600E-05_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.12737E-05_JPRB,0.13668E-05_JPRB,0.14788E-05_JPRB,0.16132E-05_JPRB,0.17763E-05_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.11088E-05_JPRB,0.12015E-05_JPRB,0.13166E-05_JPRB,0.14583E-05_JPRB,0.16304E-05_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.97145E-06_JPRB,0.10662E-05_JPRB,0.11867E-05_JPRB,0.13370E-05_JPRB,0.15170E-05_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.85857E-06_JPRB,0.95791E-06_JPRB,0.10855E-05_JPRB,0.12438E-05_JPRB,0.14327E-05_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.76914E-06_JPRB,0.87488E-06_JPRB,0.10107E-05_JPRB,0.11782E-05_JPRB,0.13762E-05_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.69709E-06_JPRB,0.81000E-06_JPRB,0.95427E-06_JPRB,0.11311E-05_JPRB,0.13395E-05_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.64352E-06_JPRB,0.76453E-06_JPRB,0.91846E-06_JPRB,0.11047E-05_JPRB,0.13225E-05_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.60601E-06_JPRB,0.73668E-06_JPRB,0.90033E-06_JPRB,0.10967E-05_JPRB,0.13241E-05_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.58144E-06_JPRB,0.72277E-06_JPRB,0.89681E-06_JPRB,0.11031E-05_JPRB,0.13400E-05_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.57013E-06_JPRB,0.72161E-06_JPRB,0.90691E-06_JPRB,0.11230E-05_JPRB,0.13684E-05_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.57021E-06_JPRB,0.73098E-06_JPRB,0.92629E-06_JPRB,0.11521E-05_JPRB,0.14071E-05_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.58025E-06_JPRB,0.75106E-06_JPRB,0.95601E-06_JPRB,0.11909E-05_JPRB,0.14530E-05_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.59352E-06_JPRB,0.77298E-06_JPRB,0.98581E-06_JPRB,0.12280E-05_JPRB,0.14964E-05_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.59731E-06_JPRB,0.78147E-06_JPRB,0.99919E-06_JPRB,0.12457E-05_JPRB,0.15176E-05_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.58516E-06_JPRB,0.77138E-06_JPRB,0.99076E-06_JPRB,0.12378E-05_JPRB,0.15105E-05_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.55140E-06_JPRB,0.73346E-06_JPRB,0.94817E-06_JPRB,0.11937E-05_JPRB,0.14631E-05_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.51916E-06_JPRB,0.69705E-06_JPRB,0.90723E-06_JPRB,0.11496E-05_JPRB,0.14156E-05_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.48960E-06_JPRB,0.66318E-06_JPRB,0.86863E-06_JPRB,0.11068E-05_JPRB,0.13701E-05_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.44595E-06_JPRB,0.61209E-06_JPRB,0.81011E-06_JPRB,0.10412E-05_JPRB,0.12987E-05_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.40399E-06_JPRB,0.56185E-06_JPRB,0.75199E-06_JPRB,0.97449E-06_JPRB,0.12265E-05_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.36503E-06_JPRB,0.51494E-06_JPRB,0.69685E-06_JPRB,0.91108E-06_JPRB,0.11565E-05_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.32174E-06_JPRB,0.46170E-06_JPRB,0.63377E-06_JPRB,0.83820E-06_JPRB,0.10749E-05_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.27930E-06_JPRB,0.40829E-06_JPRB,0.56968E-06_JPRB,0.76331E-06_JPRB,0.98961E-06_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.24096E-06_JPRB,0.35938E-06_JPRB,0.50997E-06_JPRB,0.69291E-06_JPRB,0.90837E-06_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.20431E-06_JPRB,0.31166E-06_JPRB,0.45096E-06_JPRB,0.62224E-06_JPRB,0.82595E-06_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.16816E-06_JPRB,0.26359E-06_JPRB,0.38972E-06_JPRB,0.54827E-06_JPRB,0.73938E-06_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.13670E-06_JPRB,0.22070E-06_JPRB,0.33435E-06_JPRB,0.47996E-06_JPRB,0.65830E-06_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.10953E-06_JPRB,0.18282E-06_JPRB,0.28430E-06_JPRB,0.41725E-06_JPRB,0.58243E-06_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.88267E-07_JPRB,0.15143E-06_JPRB,0.24199E-06_JPRB,0.36271E-06_JPRB,0.51595E-06_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.70298E-07_JPRB,0.12484E-06_JPRB,0.20511E-06_JPRB,0.31462E-06_JPRB,0.45605E-06_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.55131E-07_JPRB,0.10217E-06_JPRB,0.17234E-06_JPRB,0.27088E-06_JPRB,0.40072E-06_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.43153E-07_JPRB,0.82195E-07_JPRB,0.14318E-06_JPRB,0.23139E-06_JPRB,0.34955E-06_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.33903E-07_JPRB,0.66466E-07_JPRB,0.12020E-06_JPRB,0.19856E-06_JPRB,0.30630E-06_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.26416E-07_JPRB,0.53605E-07_JPRB,0.10034E-06_JPRB,0.17017E-06_JPRB,0.26833E-06_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.20206E-07_JPRB,0.42611E-07_JPRB,0.82928E-07_JPRB,0.14532E-06_JPRB,0.23365E-06_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.15310E-07_JPRB,0.33413E-07_JPRB,0.67820E-07_JPRB,0.12262E-06_JPRB,0.20213E-06_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.11722E-07_JPRB,0.26420E-07_JPRB,0.55414E-07_JPRB,0.10347E-06_JPRB,0.17567E-06_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.10312E-07_JPRB,0.23851E-07_JPRB,0.50918E-07_JPRB,0.96421E-07_JPRB,0.16547E-06_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.10213E-04_JPRB,0.10492E-04_JPRB,0.10768E-04_JPRB,0.11052E-04_JPRB,0.11341E-04_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.92065E-05_JPRB,0.95170E-05_JPRB,0.98374E-05_JPRB,0.10166E-04_JPRB,0.10515E-04_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.82447E-05_JPRB,0.85845E-05_JPRB,0.89388E-05_JPRB,0.93243E-05_JPRB,0.97313E-05_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.73562E-05_JPRB,0.77204E-05_JPRB,0.81177E-05_JPRB,0.85472E-05_JPRB,0.89941E-05_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.65534E-05_JPRB,0.69440E-05_JPRB,0.73753E-05_JPRB,0.78408E-05_JPRB,0.83202E-05_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.58421E-05_JPRB,0.62603E-05_JPRB,0.67231E-05_JPRB,0.72105E-05_JPRB,0.77276E-05_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.52249E-05_JPRB,0.56681E-05_JPRB,0.61484E-05_JPRB,0.66668E-05_JPRB,0.72285E-05_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.47032E-05_JPRB,0.51617E-05_JPRB,0.56660E-05_JPRB,0.62226E-05_JPRB,0.68302E-05_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.42601E-05_JPRB,0.47338E-05_JPRB,0.52698E-05_JPRB,0.58670E-05_JPRB,0.65065E-05_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.39167E-05_JPRB,0.44205E-05_JPRB,0.49953E-05_JPRB,0.56267E-05_JPRB,0.62956E-05_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.36499E-05_JPRB,0.41883E-05_JPRB,0.47965E-05_JPRB,0.54568E-05_JPRB,0.61529E-05_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.34565E-05_JPRB,0.40283E-05_JPRB,0.46653E-05_JPRB,0.53526E-05_JPRB,0.60723E-05_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.33292E-05_JPRB,0.39315E-05_JPRB,0.45958E-05_JPRB,0.53082E-05_JPRB,0.60473E-05_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.32653E-05_JPRB,0.38970E-05_JPRB,0.45879E-05_JPRB,0.53204E-05_JPRB,0.60776E-05_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.32497E-05_JPRB,0.39083E-05_JPRB,0.46221E-05_JPRB,0.53722E-05_JPRB,0.61437E-05_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.32741E-05_JPRB,0.39580E-05_JPRB,0.46902E-05_JPRB,0.54541E-05_JPRB,0.62354E-05_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.33369E-05_JPRB,0.40429E-05_JPRB,0.47902E-05_JPRB,0.55664E-05_JPRB,0.63553E-05_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.34283E-05_JPRB,0.41504E-05_JPRB,0.49124E-05_JPRB,0.56972E-05_JPRB,0.64922E-05_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.35444E-05_JPRB,0.42823E-05_JPRB,0.50547E-05_JPRB,0.58477E-05_JPRB,0.66477E-05_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.36801E-05_JPRB,0.44317E-05_JPRB,0.52138E-05_JPRB,0.60136E-05_JPRB,0.68176E-05_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.38318E-05_JPRB,0.45951E-05_JPRB,0.53855E-05_JPRB,0.61901E-05_JPRB,0.69963E-05_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.39692E-05_JPRB,0.47416E-05_JPRB,0.55387E-05_JPRB,0.63463E-05_JPRB,0.71529E-05_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.40413E-05_JPRB,0.48197E-05_JPRB,0.56200E-05_JPRB,0.64302E-05_JPRB,0.72378E-05_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.40356E-05_JPRB,0.48162E-05_JPRB,0.56178E-05_JPRB,0.64290E-05_JPRB,0.72385E-05_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.39181E-05_JPRB,0.46953E-05_JPRB,0.54967E-05_JPRB,0.63083E-05_JPRB,0.71198E-05_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.37977E-05_JPRB,0.45715E-05_JPRB,0.53704E-05_JPRB,0.61820E-05_JPRB,0.69964E-05_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.36811E-05_JPRB,0.44507E-05_JPRB,0.52481E-05_JPRB,0.60593E-05_JPRB,0.68739E-05_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.34909E-05_JPRB,0.42522E-05_JPRB,0.50444E-05_JPRB,0.58543E-05_JPRB,0.66697E-05_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.32953E-05_JPRB,0.40465E-05_JPRB,0.48326E-05_JPRB,0.56401E-05_JPRB,0.64551E-05_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.31040E-05_JPRB,0.38444E-05_JPRB,0.46230E-05_JPRB,0.54267E-05_JPRB,0.62419E-05_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.28773E-05_JPRB,0.36028E-05_JPRB,0.43716E-05_JPRB,0.51693E-05_JPRB,0.59825E-05_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.26404E-05_JPRB,0.33480E-05_JPRB,0.41036E-05_JPRB,0.48939E-05_JPRB,0.57034E-05_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.24120E-05_JPRB,0.30991E-05_JPRB,0.38405E-05_JPRB,0.46208E-05_JPRB,0.54260E-05_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.21786E-05_JPRB,0.28418E-05_JPRB,0.35659E-05_JPRB,0.43343E-05_JPRB,0.51318E-05_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.19311E-05_JPRB,0.25641E-05_JPRB,0.32660E-05_JPRB,0.40180E-05_JPRB,0.48060E-05_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.16967E-05_JPRB,0.22980E-05_JPRB,0.29746E-05_JPRB,0.37093E-05_JPRB,0.44842E-05_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.14774E-05_JPRB,0.20448E-05_JPRB,0.26926E-05_JPRB,0.34064E-05_JPRB,0.41668E-05_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.12873E-05_JPRB,0.18193E-05_JPRB,0.24384E-05_JPRB,0.31296E-05_JPRB,0.38742E-05_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.11146E-05_JPRB,0.16126E-05_JPRB,0.22020E-05_JPRB,0.28686E-05_JPRB,0.35959E-05_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.95604E-06_JPRB,0.14200E-05_JPRB,0.19761E-05_JPRB,0.26163E-05_JPRB,0.33236E-05_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.80966E-06_JPRB,0.12381E-05_JPRB,0.17610E-05_JPRB,0.23732E-05_JPRB,0.30580E-05_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.68766E-06_JPRB,0.10830E-05_JPRB,0.15763E-05_JPRB,0.21583E-05_JPRB,0.28207E-05_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.58212E-06_JPRB,0.94518E-06_JPRB,0.14071E-05_JPRB,0.19616E-05_JPRB,0.26001E-05_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.48769E-06_JPRB,0.81784E-06_JPRB,0.12480E-05_JPRB,0.17754E-05_JPRB,0.23872E-05_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.40334E-06_JPRB,0.70099E-06_JPRB,0.10993E-05_JPRB,0.15960E-05_JPRB,0.21818E-05_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.33254E-06_JPRB,0.59979E-06_JPRB,0.96749E-06_JPRB,0.14348E-05_JPRB,0.19961E-05_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.30667E-06_JPRB,0.56182E-06_JPRB,0.91722E-06_JPRB,0.13728E-05_JPRB,0.19233E-05_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.21780E-04_JPRB,0.22297E-04_JPRB,0.22851E-04_JPRB,0.23387E-04_JPRB,0.23897E-04_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.20875E-04_JPRB,0.21531E-04_JPRB,0.22189E-04_JPRB,0.22823E-04_JPRB,0.23424E-04_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.19941E-04_JPRB,0.20728E-04_JPRB,0.21492E-04_JPRB,0.22225E-04_JPRB,0.22948E-04_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.19013E-04_JPRB,0.19918E-04_JPRB,0.20796E-04_JPRB,0.21654E-04_JPRB,0.22503E-04_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.18129E-04_JPRB,0.19150E-04_JPRB,0.20149E-04_JPRB,0.21144E-04_JPRB,0.22094E-04_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.17308E-04_JPRB,0.18451E-04_JPRB,0.19578E-04_JPRB,0.20689E-04_JPRB,0.21728E-04_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.16581E-04_JPRB,0.17835E-04_JPRB,0.19087E-04_JPRB,0.20285E-04_JPRB,0.21402E-04_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.15978E-04_JPRB,0.17349E-04_JPRB,0.18704E-04_JPRB,0.19972E-04_JPRB,0.21143E-04_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.15496E-04_JPRB,0.16976E-04_JPRB,0.18403E-04_JPRB,0.19724E-04_JPRB,0.20952E-04_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.15240E-04_JPRB,0.16798E-04_JPRB,0.18272E-04_JPRB,0.19635E-04_JPRB,0.20901E-04_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.15105E-04_JPRB,0.16716E-04_JPRB,0.18220E-04_JPRB,0.19617E-04_JPRB,0.20916E-04_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.15076E-04_JPRB,0.16719E-04_JPRB,0.18249E-04_JPRB,0.19672E-04_JPRB,0.20991E-04_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.15141E-04_JPRB,0.16802E-04_JPRB,0.18352E-04_JPRB,0.19786E-04_JPRB,0.21116E-04_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.15306E-04_JPRB,0.16974E-04_JPRB,0.18529E-04_JPRB,0.19965E-04_JPRB,0.21296E-04_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.15522E-04_JPRB,0.17192E-04_JPRB,0.18747E-04_JPRB,0.20182E-04_JPRB,0.21501E-04_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.15784E-04_JPRB,0.17449E-04_JPRB,0.18996E-04_JPRB,0.20419E-04_JPRB,0.21733E-04_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.16090E-04_JPRB,0.17744E-04_JPRB,0.19276E-04_JPRB,0.20687E-04_JPRB,0.21987E-04_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.16419E-04_JPRB,0.18062E-04_JPRB,0.19575E-04_JPRB,0.20970E-04_JPRB,0.22248E-04_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.16777E-04_JPRB,0.18399E-04_JPRB,0.19892E-04_JPRB,0.21268E-04_JPRB,0.22521E-04_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.17152E-04_JPRB,0.18750E-04_JPRB,0.20222E-04_JPRB,0.21573E-04_JPRB,0.22802E-04_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.17537E-04_JPRB,0.19109E-04_JPRB,0.20556E-04_JPRB,0.21883E-04_JPRB,0.23082E-04_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.17871E-04_JPRB,0.19418E-04_JPRB,0.20844E-04_JPRB,0.22147E-04_JPRB,0.23322E-04_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.18052E-04_JPRB,0.19587E-04_JPRB,0.21002E-04_JPRB,0.22291E-04_JPRB,0.23455E-04_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.18063E-04_JPRB,0.19601E-04_JPRB,0.21016E-04_JPRB,0.22306E-04_JPRB,0.23468E-04_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.17833E-04_JPRB,0.19389E-04_JPRB,0.20824E-04_JPRB,0.22132E-04_JPRB,0.23314E-04_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.17587E-04_JPRB,0.19167E-04_JPRB,0.20623E-04_JPRB,0.21950E-04_JPRB,0.23152E-04_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.17343E-04_JPRB,0.18945E-04_JPRB,0.20418E-04_JPRB,0.21765E-04_JPRB,0.22984E-04_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.16926E-04_JPRB,0.18563E-04_JPRB,0.20065E-04_JPRB,0.21446E-04_JPRB,0.22697E-04_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.16478E-04_JPRB,0.18152E-04_JPRB,0.19687E-04_JPRB,0.21101E-04_JPRB,0.22388E-04_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.16023E-04_JPRB,0.17729E-04_JPRB,0.19301E-04_JPRB,0.20748E-04_JPRB,0.22068E-04_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.15458E-04_JPRB,0.17203E-04_JPRB,0.18821E-04_JPRB,0.20305E-04_JPRB,0.21667E-04_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.14831E-04_JPRB,0.16623E-04_JPRB,0.18287E-04_JPRB,0.19814E-04_JPRB,0.21219E-04_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.14192E-04_JPRB,0.16029E-04_JPRB,0.17735E-04_JPRB,0.19308E-04_JPRB,0.20757E-04_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.13493E-04_JPRB,0.15380E-04_JPRB,0.17134E-04_JPRB,0.18756E-04_JPRB,0.20247E-04_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.12693E-04_JPRB,0.14634E-04_JPRB,0.16440E-04_JPRB,0.18118E-04_JPRB,0.19661E-04_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.11878E-04_JPRB,0.13868E-04_JPRB,0.15729E-04_JPRB,0.17458E-04_JPRB,0.19054E-04_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.11052E-04_JPRB,0.13077E-04_JPRB,0.14993E-04_JPRB,0.16776E-04_JPRB,0.18429E-04_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.10274E-04_JPRB,0.12322E-04_JPRB,0.14286E-04_JPRB,0.16119E-04_JPRB,0.17820E-04_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.95165E-05_JPRB,0.11577E-04_JPRB,0.13581E-04_JPRB,0.15463E-04_JPRB,0.17211E-04_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.87654E-05_JPRB,0.10825E-04_JPRB,0.12859E-04_JPRB,0.14791E-04_JPRB,0.16589E-04_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.80213E-05_JPRB,0.10071E-04_JPRB,0.12124E-04_JPRB,0.14102E-04_JPRB,0.15949E-04_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.73473E-05_JPRB,0.93776E-05_JPRB,0.11439E-04_JPRB,0.13452E-04_JPRB,0.15344E-04_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.67127E-05_JPRB,0.87188E-05_JPRB,0.10780E-04_JPRB,0.12816E-04_JPRB,0.14751E-04_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.60935E-05_JPRB,0.80668E-05_JPRB,0.10118E-04_JPRB,0.12169E-04_JPRB,0.14148E-04_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.54908E-05_JPRB,0.74223E-05_JPRB,0.94571E-05_JPRB,0.11517E-04_JPRB,0.13528E-04_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.49372E-05_JPRB,0.68201E-05_JPRB,0.88324E-05_JPRB,0.10894E-04_JPRB,0.12926E-04_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.47213E-05_JPRB,0.65842E-05_JPRB,0.85835E-05_JPRB,0.10644E-04_JPRB,0.12683E-04_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.46820E-04_JPRB,0.47158E-04_JPRB,0.47420E-04_JPRB,0.47688E-04_JPRB,0.47860E-04_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.47343E-04_JPRB,0.47824E-04_JPRB,0.48275E-04_JPRB,0.48677E-04_JPRB,0.48937E-04_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.47643E-04_JPRB,0.48345E-04_JPRB,0.48980E-04_JPRB,0.49469E-04_JPRB,0.49813E-04_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.47844E-04_JPRB,0.48762E-04_JPRB,0.49536E-04_JPRB,0.50120E-04_JPRB,0.50548E-04_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.47956E-04_JPRB,0.49079E-04_JPRB,0.49982E-04_JPRB,0.50640E-04_JPRB,0.51155E-04_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.48046E-04_JPRB,0.49334E-04_JPRB,0.50343E-04_JPRB,0.51068E-04_JPRB,0.51673E-04_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.48132E-04_JPRB,0.49550E-04_JPRB,0.50630E-04_JPRB,0.51453E-04_JPRB,0.52124E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,20,13) = (/ &
+ & 0.48262E-04_JPRB,0.49765E-04_JPRB,0.50907E-04_JPRB,0.51808E-04_JPRB,0.52533E-04_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.48402E-04_JPRB,0.49959E-04_JPRB,0.51170E-04_JPRB,0.52136E-04_JPRB,0.52894E-04_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.48671E-04_JPRB,0.50243E-04_JPRB,0.51485E-04_JPRB,0.52481E-04_JPRB,0.53256E-04_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.48954E-04_JPRB,0.50544E-04_JPRB,0.51806E-04_JPRB,0.52811E-04_JPRB,0.53587E-04_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.49272E-04_JPRB,0.50858E-04_JPRB,0.52128E-04_JPRB,0.53125E-04_JPRB,0.53892E-04_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.49616E-04_JPRB,0.51186E-04_JPRB,0.52450E-04_JPRB,0.53425E-04_JPRB,0.54174E-04_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.50001E-04_JPRB,0.51551E-04_JPRB,0.52773E-04_JPRB,0.53723E-04_JPRB,0.54445E-04_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.50406E-04_JPRB,0.51904E-04_JPRB,0.53086E-04_JPRB,0.54001E-04_JPRB,0.54687E-04_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.50802E-04_JPRB,0.52248E-04_JPRB,0.53391E-04_JPRB,0.54260E-04_JPRB,0.54906E-04_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.51204E-04_JPRB,0.52593E-04_JPRB,0.53683E-04_JPRB,0.54507E-04_JPRB,0.55109E-04_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.51608E-04_JPRB,0.52928E-04_JPRB,0.53956E-04_JPRB,0.54730E-04_JPRB,0.55285E-04_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.51993E-04_JPRB,0.53249E-04_JPRB,0.54213E-04_JPRB,0.54939E-04_JPRB,0.55442E-04_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.52364E-04_JPRB,0.53549E-04_JPRB,0.54461E-04_JPRB,0.55127E-04_JPRB,0.55583E-04_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.52722E-04_JPRB,0.53841E-04_JPRB,0.54688E-04_JPRB,0.55301E-04_JPRB,0.55705E-04_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.53018E-04_JPRB,0.54074E-04_JPRB,0.54867E-04_JPRB,0.55434E-04_JPRB,0.55799E-04_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.53187E-04_JPRB,0.54211E-04_JPRB,0.54980E-04_JPRB,0.55515E-04_JPRB,0.55855E-04_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.53222E-04_JPRB,0.54242E-04_JPRB,0.55009E-04_JPRB,0.55544E-04_JPRB,0.55878E-04_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.53077E-04_JPRB,0.54137E-04_JPRB,0.54934E-04_JPRB,0.55495E-04_JPRB,0.55862E-04_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.52907E-04_JPRB,0.54013E-04_JPRB,0.54850E-04_JPRB,0.55445E-04_JPRB,0.55837E-04_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.52736E-04_JPRB,0.53884E-04_JPRB,0.54754E-04_JPRB,0.55383E-04_JPRB,0.55805E-04_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.52415E-04_JPRB,0.53638E-04_JPRB,0.54576E-04_JPRB,0.55258E-04_JPRB,0.55727E-04_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.52053E-04_JPRB,0.53364E-04_JPRB,0.54368E-04_JPRB,0.55117E-04_JPRB,0.55636E-04_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.51661E-04_JPRB,0.53061E-04_JPRB,0.54142E-04_JPRB,0.54952E-04_JPRB,0.55527E-04_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.51150E-04_JPRB,0.52667E-04_JPRB,0.53836E-04_JPRB,0.54732E-04_JPRB,0.55377E-04_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.50559E-04_JPRB,0.52194E-04_JPRB,0.53480E-04_JPRB,0.54465E-04_JPRB,0.55186E-04_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.49921E-04_JPRB,0.51684E-04_JPRB,0.53086E-04_JPRB,0.54162E-04_JPRB,0.54971E-04_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.49197E-04_JPRB,0.51093E-04_JPRB,0.52628E-04_JPRB,0.53809E-04_JPRB,0.54714E-04_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.48328E-04_JPRB,0.50372E-04_JPRB,0.52058E-04_JPRB,0.53374E-04_JPRB,0.54380E-04_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.47381E-04_JPRB,0.49603E-04_JPRB,0.51420E-04_JPRB,0.52887E-04_JPRB,0.54013E-04_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.46342E-04_JPRB,0.48755E-04_JPRB,0.50735E-04_JPRB,0.52347E-04_JPRB,0.53594E-04_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.45266E-04_JPRB,0.47911E-04_JPRB,0.50033E-04_JPRB,0.51782E-04_JPRB,0.53163E-04_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.44139E-04_JPRB,0.47021E-04_JPRB,0.49310E-04_JPRB,0.51184E-04_JPRB,0.52699E-04_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.42930E-04_JPRB,0.46044E-04_JPRB,0.48523E-04_JPRB,0.50540E-04_JPRB,0.52191E-04_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.41632E-04_JPRB,0.44983E-04_JPRB,0.47688E-04_JPRB,0.49847E-04_JPRB,0.51629E-04_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.40359E-04_JPRB,0.43928E-04_JPRB,0.46843E-04_JPRB,0.49172E-04_JPRB,0.51075E-04_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.39074E-04_JPRB,0.42858E-04_JPRB,0.45984E-04_JPRB,0.48480E-04_JPRB,0.50508E-04_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.37728E-04_JPRB,0.41722E-04_JPRB,0.45056E-04_JPRB,0.47740E-04_JPRB,0.49900E-04_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.36320E-04_JPRB,0.40515E-04_JPRB,0.44055E-04_JPRB,0.46942E-04_JPRB,0.49258E-04_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.34927E-04_JPRB,0.39308E-04_JPRB,0.43052E-04_JPRB,0.46141E-04_JPRB,0.48596E-04_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.34349E-04_JPRB,0.38808E-04_JPRB,0.42631E-04_JPRB,0.45802E-04_JPRB,0.48325E-04_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.91739E-04_JPRB,0.90588E-04_JPRB,0.89270E-04_JPRB,0.87862E-04_JPRB,0.86541E-04_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.97111E-04_JPRB,0.95879E-04_JPRB,0.94382E-04_JPRB,0.92799E-04_JPRB,0.91344E-04_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.10201E-03_JPRB,0.10059E-03_JPRB,0.98963E-04_JPRB,0.97297E-04_JPRB,0.95661E-04_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.10632E-03_JPRB,0.10477E-03_JPRB,0.10303E-03_JPRB,0.10127E-03_JPRB,0.99489E-04_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.11011E-03_JPRB,0.10842E-03_JPRB,0.10659E-03_JPRB,0.10474E-03_JPRB,0.10285E-03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.11338E-03_JPRB,0.11158E-03_JPRB,0.10968E-03_JPRB,0.10773E-03_JPRB,0.10569E-03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.11615E-03_JPRB,0.11428E-03_JPRB,0.11231E-03_JPRB,0.11026E-03_JPRB,0.10810E-03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.11847E-03_JPRB,0.11653E-03_JPRB,0.11450E-03_JPRB,0.11235E-03_JPRB,0.11005E-03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.12039E-03_JPRB,0.11839E-03_JPRB,0.11628E-03_JPRB,0.11404E-03_JPRB,0.11166E-03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.12185E-03_JPRB,0.11978E-03_JPRB,0.11759E-03_JPRB,0.11525E-03_JPRB,0.11275E-03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.12298E-03_JPRB,0.12085E-03_JPRB,0.11858E-03_JPRB,0.11615E-03_JPRB,0.11356E-03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.12384E-03_JPRB,0.12163E-03_JPRB,0.11927E-03_JPRB,0.11676E-03_JPRB,0.11410E-03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.12445E-03_JPRB,0.12216E-03_JPRB,0.11972E-03_JPRB,0.11712E-03_JPRB,0.11440E-03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.12480E-03_JPRB,0.12244E-03_JPRB,0.11993E-03_JPRB,0.11725E-03_JPRB,0.11449E-03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.12497E-03_JPRB,0.12254E-03_JPRB,0.11997E-03_JPRB,0.11723E-03_JPRB,0.11442E-03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.12498E-03_JPRB,0.12249E-03_JPRB,0.11986E-03_JPRB,0.11707E-03_JPRB,0.11425E-03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.12486E-03_JPRB,0.12231E-03_JPRB,0.11961E-03_JPRB,0.11677E-03_JPRB,0.11393E-03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.12462E-03_JPRB,0.12202E-03_JPRB,0.11925E-03_JPRB,0.11640E-03_JPRB,0.11355E-03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.12428E-03_JPRB,0.12163E-03_JPRB,0.11882E-03_JPRB,0.11594E-03_JPRB,0.11310E-03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.12387E-03_JPRB,0.12116E-03_JPRB,0.11831E-03_JPRB,0.11542E-03_JPRB,0.11260E-03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.12338E-03_JPRB,0.12061E-03_JPRB,0.11773E-03_JPRB,0.11485E-03_JPRB,0.11205E-03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.12293E-03_JPRB,0.12013E-03_JPRB,0.11722E-03_JPRB,0.11434E-03_JPRB,0.11156E-03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.12271E-03_JPRB,0.11987E-03_JPRB,0.11696E-03_JPRB,0.11408E-03_JPRB,0.11132E-03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.12276E-03_JPRB,0.11992E-03_JPRB,0.11700E-03_JPRB,0.11412E-03_JPRB,0.11135E-03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.12321E-03_JPRB,0.12039E-03_JPRB,0.11748E-03_JPRB,0.11457E-03_JPRB,0.11178E-03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.12368E-03_JPRB,0.12086E-03_JPRB,0.11795E-03_JPRB,0.11504E-03_JPRB,0.11223E-03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.12412E-03_JPRB,0.12132E-03_JPRB,0.11841E-03_JPRB,0.11549E-03_JPRB,0.11266E-03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.12481E-03_JPRB,0.12205E-03_JPRB,0.11917E-03_JPRB,0.11624E-03_JPRB,0.11338E-03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.12552E-03_JPRB,0.12282E-03_JPRB,0.11995E-03_JPRB,0.11701E-03_JPRB,0.11413E-03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.12624E-03_JPRB,0.12356E-03_JPRB,0.12073E-03_JPRB,0.11779E-03_JPRB,0.11489E-03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.12708E-03_JPRB,0.12444E-03_JPRB,0.12166E-03_JPRB,0.11873E-03_JPRB,0.11581E-03_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.12796E-03_JPRB,0.12537E-03_JPRB,0.12263E-03_JPRB,0.11974E-03_JPRB,0.11681E-03_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.12882E-03_JPRB,0.12627E-03_JPRB,0.12360E-03_JPRB,0.12075E-03_JPRB,0.11782E-03_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.12968E-03_JPRB,0.12723E-03_JPRB,0.12459E-03_JPRB,0.12181E-03_JPRB,0.11889E-03_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.13062E-03_JPRB,0.12827E-03_JPRB,0.12567E-03_JPRB,0.12295E-03_JPRB,0.12008E-03_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.13150E-03_JPRB,0.12926E-03_JPRB,0.12675E-03_JPRB,0.12408E-03_JPRB,0.12126E-03_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.13233E-03_JPRB,0.13021E-03_JPRB,0.12780E-03_JPRB,0.12517E-03_JPRB,0.12242E-03_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.13307E-03_JPRB,0.13105E-03_JPRB,0.12874E-03_JPRB,0.12618E-03_JPRB,0.12349E-03_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.13374E-03_JPRB,0.13183E-03_JPRB,0.12963E-03_JPRB,0.12715E-03_JPRB,0.12449E-03_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.13431E-03_JPRB,0.13255E-03_JPRB,0.13046E-03_JPRB,0.12807E-03_JPRB,0.12548E-03_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.13479E-03_JPRB,0.13325E-03_JPRB,0.13127E-03_JPRB,0.12898E-03_JPRB,0.12645E-03_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.13511E-03_JPRB,0.13385E-03_JPRB,0.13196E-03_JPRB,0.12979E-03_JPRB,0.12732E-03_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.13533E-03_JPRB,0.13436E-03_JPRB,0.13261E-03_JPRB,0.13052E-03_JPRB,0.12814E-03_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.13543E-03_JPRB,0.13477E-03_JPRB,0.13321E-03_JPRB,0.13121E-03_JPRB,0.12893E-03_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.13540E-03_JPRB,0.13509E-03_JPRB,0.13379E-03_JPRB,0.13190E-03_JPRB,0.12969E-03_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.13520E-03_JPRB,0.13532E-03_JPRB,0.13428E-03_JPRB,0.13250E-03_JPRB,0.13039E-03_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.13510E-03_JPRB,0.13536E-03_JPRB,0.13445E-03_JPRB,0.13273E-03_JPRB,0.13066E-03_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.16545E-03_JPRB,0.16076E-03_JPRB,0.15662E-03_JPRB,0.15273E-03_JPRB,0.14899E-03_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.17968E-03_JPRB,0.17402E-03_JPRB,0.16899E-03_JPRB,0.16434E-03_JPRB,0.15984E-03_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.19299E-03_JPRB,0.18634E-03_JPRB,0.18041E-03_JPRB,0.17491E-03_JPRB,0.16965E-03_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.20519E-03_JPRB,0.19756E-03_JPRB,0.19072E-03_JPRB,0.18435E-03_JPRB,0.17834E-03_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.21616E-03_JPRB,0.20753E-03_JPRB,0.19981E-03_JPRB,0.19268E-03_JPRB,0.18599E-03_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.22578E-03_JPRB,0.21627E-03_JPRB,0.20768E-03_JPRB,0.19983E-03_JPRB,0.19254E-03_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.23404E-03_JPRB,0.22371E-03_JPRB,0.21439E-03_JPRB,0.20593E-03_JPRB,0.19813E-03_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.24079E-03_JPRB,0.22975E-03_JPRB,0.21986E-03_JPRB,0.21084E-03_JPRB,0.20261E-03_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.24629E-03_JPRB,0.23467E-03_JPRB,0.22423E-03_JPRB,0.21475E-03_JPRB,0.20622E-03_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.24979E-03_JPRB,0.23775E-03_JPRB,0.22702E-03_JPRB,0.21724E-03_JPRB,0.20849E-03_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.25216E-03_JPRB,0.23989E-03_JPRB,0.22890E-03_JPRB,0.21892E-03_JPRB,0.21005E-03_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.25355E-03_JPRB,0.24109E-03_JPRB,0.22997E-03_JPRB,0.21990E-03_JPRB,0.21094E-03_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.25401E-03_JPRB,0.24151E-03_JPRB,0.23030E-03_JPRB,0.22024E-03_JPRB,0.21125E-03_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.25359E-03_JPRB,0.24114E-03_JPRB,0.22993E-03_JPRB,0.21995E-03_JPRB,0.21097E-03_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.25262E-03_JPRB,0.24030E-03_JPRB,0.22913E-03_JPRB,0.21926E-03_JPRB,0.21037E-03_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.25126E-03_JPRB,0.23904E-03_JPRB,0.22801E-03_JPRB,0.21831E-03_JPRB,0.20948E-03_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.24948E-03_JPRB,0.23745E-03_JPRB,0.22663E-03_JPRB,0.21704E-03_JPRB,0.20834E-03_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.24748E-03_JPRB,0.23558E-03_JPRB,0.22502E-03_JPRB,0.21558E-03_JPRB,0.20699E-03_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.24521E-03_JPRB,0.23353E-03_JPRB,0.22323E-03_JPRB,0.21394E-03_JPRB,0.20549E-03_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.24273E-03_JPRB,0.23132E-03_JPRB,0.22129E-03_JPRB,0.21221E-03_JPRB,0.20387E-03_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.24020E-03_JPRB,0.22911E-03_JPRB,0.21929E-03_JPRB,0.21039E-03_JPRB,0.20217E-03_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.23799E-03_JPRB,0.22719E-03_JPRB,0.21754E-03_JPRB,0.20880E-03_JPRB,0.20071E-03_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.23687E-03_JPRB,0.22619E-03_JPRB,0.21668E-03_JPRB,0.20798E-03_JPRB,0.19994E-03_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.23693E-03_JPRB,0.22624E-03_JPRB,0.21673E-03_JPRB,0.20802E-03_JPRB,0.19997E-03_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.23866E-03_JPRB,0.22780E-03_JPRB,0.21810E-03_JPRB,0.20930E-03_JPRB,0.20116E-03_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.24049E-03_JPRB,0.22941E-03_JPRB,0.21958E-03_JPRB,0.21064E-03_JPRB,0.20240E-03_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.24235E-03_JPRB,0.23100E-03_JPRB,0.22101E-03_JPRB,0.21195E-03_JPRB,0.20362E-03_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.24544E-03_JPRB,0.23374E-03_JPRB,0.22344E-03_JPRB,0.21416E-03_JPRB,0.20567E-03_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.24874E-03_JPRB,0.23671E-03_JPRB,0.22606E-03_JPRB,0.21653E-03_JPRB,0.20786E-03_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.25214E-03_JPRB,0.23974E-03_JPRB,0.22874E-03_JPRB,0.21892E-03_JPRB,0.21007E-03_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.25633E-03_JPRB,0.24355E-03_JPRB,0.23207E-03_JPRB,0.22195E-03_JPRB,0.21281E-03_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.26108E-03_JPRB,0.24779E-03_JPRB,0.23584E-03_JPRB,0.22529E-03_JPRB,0.21581E-03_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.26596E-03_JPRB,0.25216E-03_JPRB,0.23977E-03_JPRB,0.22875E-03_JPRB,0.21897E-03_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.27137E-03_JPRB,0.25699E-03_JPRB,0.24413E-03_JPRB,0.23258E-03_JPRB,0.22240E-03_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.27767E-03_JPRB,0.26264E-03_JPRB,0.24919E-03_JPRB,0.23707E-03_JPRB,0.22639E-03_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.28422E-03_JPRB,0.26851E-03_JPRB,0.25443E-03_JPRB,0.24179E-03_JPRB,0.23054E-03_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.29109E-03_JPRB,0.27465E-03_JPRB,0.25993E-03_JPRB,0.24676E-03_JPRB,0.23489E-03_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.29784E-03_JPRB,0.28066E-03_JPRB,0.26532E-03_JPRB,0.25156E-03_JPRB,0.23921E-03_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.30464E-03_JPRB,0.28674E-03_JPRB,0.27072E-03_JPRB,0.25642E-03_JPRB,0.24358E-03_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.31175E-03_JPRB,0.29305E-03_JPRB,0.27640E-03_JPRB,0.26149E-03_JPRB,0.24813E-03_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.31921E-03_JPRB,0.29964E-03_JPRB,0.28229E-03_JPRB,0.26674E-03_JPRB,0.25282E-03_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.32632E-03_JPRB,0.30596E-03_JPRB,0.28789E-03_JPRB,0.27174E-03_JPRB,0.25731E-03_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.33342E-03_JPRB,0.31218E-03_JPRB,0.29344E-03_JPRB,0.27674E-03_JPRB,0.26179E-03_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.34053E-03_JPRB,0.31870E-03_JPRB,0.29920E-03_JPRB,0.28191E-03_JPRB,0.26637E-03_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.34801E-03_JPRB,0.32554E-03_JPRB,0.30518E-03_JPRB,0.28726E-03_JPRB,0.27114E-03_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.35537E-03_JPRB,0.33214E-03_JPRB,0.31109E-03_JPRB,0.29248E-03_JPRB,0.27588E-03_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.35841E-03_JPRB,0.33487E-03_JPRB,0.31352E-03_JPRB,0.29463E-03_JPRB,0.27781E-03_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.23817E-03_JPRB,0.23193E-03_JPRB,0.22589E-03_JPRB,0.21979E-03_JPRB,0.21365E-03_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.26266E-03_JPRB,0.25442E-03_JPRB,0.24663E-03_JPRB,0.23897E-03_JPRB,0.23152E-03_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.28586E-03_JPRB,0.27559E-03_JPRB,0.26587E-03_JPRB,0.25663E-03_JPRB,0.24800E-03_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.30726E-03_JPRB,0.29496E-03_JPRB,0.28337E-03_JPRB,0.27251E-03_JPRB,0.26278E-03_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.32665E-03_JPRB,0.31224E-03_JPRB,0.29895E-03_JPRB,0.28665E-03_JPRB,0.27581E-03_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.34367E-03_JPRB,0.32749E-03_JPRB,0.31249E-03_JPRB,0.29896E-03_JPRB,0.28707E-03_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.35833E-03_JPRB,0.34046E-03_JPRB,0.32413E-03_JPRB,0.30949E-03_JPRB,0.29662E-03_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.37032E-03_JPRB,0.35107E-03_JPRB,0.33355E-03_JPRB,0.31795E-03_JPRB,0.30443E-03_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.38004E-03_JPRB,0.35962E-03_JPRB,0.34106E-03_JPRB,0.32482E-03_JPRB,0.31071E-03_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.38628E-03_JPRB,0.36502E-03_JPRB,0.34582E-03_JPRB,0.32929E-03_JPRB,0.31473E-03_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.39046E-03_JPRB,0.36870E-03_JPRB,0.34902E-03_JPRB,0.33239E-03_JPRB,0.31753E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,24,16) = (/ &
+ & 0.39290E-03_JPRB,0.37079E-03_JPRB,0.35085E-03_JPRB,0.33417E-03_JPRB,0.31909E-03_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.39368E-03_JPRB,0.37132E-03_JPRB,0.35155E-03_JPRB,0.33489E-03_JPRB,0.31974E-03_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.39288E-03_JPRB,0.37052E-03_JPRB,0.35111E-03_JPRB,0.33452E-03_JPRB,0.31938E-03_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.39120E-03_JPRB,0.36896E-03_JPRB,0.34999E-03_JPRB,0.33347E-03_JPRB,0.31836E-03_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.38862E-03_JPRB,0.36669E-03_JPRB,0.34828E-03_JPRB,0.33189E-03_JPRB,0.31693E-03_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.38540E-03_JPRB,0.36396E-03_JPRB,0.34596E-03_JPRB,0.32975E-03_JPRB,0.31502E-03_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.38165E-03_JPRB,0.36095E-03_JPRB,0.34333E-03_JPRB,0.32738E-03_JPRB,0.31277E-03_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.37756E-03_JPRB,0.35762E-03_JPRB,0.34034E-03_JPRB,0.32467E-03_JPRB,0.31030E-03_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.37323E-03_JPRB,0.35410E-03_JPRB,0.33709E-03_JPRB,0.32164E-03_JPRB,0.30764E-03_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.36881E-03_JPRB,0.35033E-03_JPRB,0.33368E-03_JPRB,0.31855E-03_JPRB,0.30481E-03_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.36518E-03_JPRB,0.34710E-03_JPRB,0.33080E-03_JPRB,0.31589E-03_JPRB,0.30241E-03_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.36331E-03_JPRB,0.34548E-03_JPRB,0.32924E-03_JPRB,0.31455E-03_JPRB,0.30119E-03_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.36345E-03_JPRB,0.34559E-03_JPRB,0.32934E-03_JPRB,0.31463E-03_JPRB,0.30125E-03_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.36636E-03_JPRB,0.34821E-03_JPRB,0.33175E-03_JPRB,0.31676E-03_JPRB,0.30324E-03_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.36948E-03_JPRB,0.35092E-03_JPRB,0.33423E-03_JPRB,0.31902E-03_JPRB,0.30527E-03_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.37259E-03_JPRB,0.35368E-03_JPRB,0.33668E-03_JPRB,0.32128E-03_JPRB,0.30727E-03_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.37795E-03_JPRB,0.35829E-03_JPRB,0.34085E-03_JPRB,0.32505E-03_JPRB,0.31069E-03_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.38379E-03_JPRB,0.36312E-03_JPRB,0.34529E-03_JPRB,0.32908E-03_JPRB,0.31437E-03_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.38990E-03_JPRB,0.36819E-03_JPRB,0.34980E-03_JPRB,0.33322E-03_JPRB,0.31806E-03_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.39755E-03_JPRB,0.37469E-03_JPRB,0.35548E-03_JPRB,0.33833E-03_JPRB,0.32274E-03_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.40604E-03_JPRB,0.38206E-03_JPRB,0.36178E-03_JPRB,0.34404E-03_JPRB,0.32793E-03_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.41497E-03_JPRB,0.38998E-03_JPRB,0.36828E-03_JPRB,0.34986E-03_JPRB,0.33329E-03_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.42497E-03_JPRB,0.39871E-03_JPRB,0.37566E-03_JPRB,0.35633E-03_JPRB,0.33909E-03_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.43684E-03_JPRB,0.40880E-03_JPRB,0.38451E-03_JPRB,0.36380E-03_JPRB,0.34586E-03_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.44932E-03_JPRB,0.41960E-03_JPRB,0.39404E-03_JPRB,0.37171E-03_JPRB,0.35286E-03_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.46270E-03_JPRB,0.43113E-03_JPRB,0.40397E-03_JPRB,0.38027E-03_JPRB,0.36021E-03_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.47605E-03_JPRB,0.44249E-03_JPRB,0.41370E-03_JPRB,0.38887E-03_JPRB,0.36733E-03_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.48981E-03_JPRB,0.45414E-03_JPRB,0.42376E-03_JPRB,0.39765E-03_JPRB,0.37477E-03_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.50430E-03_JPRB,0.46661E-03_JPRB,0.43437E-03_JPRB,0.40673E-03_JPRB,0.38268E-03_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.51980E-03_JPRB,0.47970E-03_JPRB,0.44558E-03_JPRB,0.41639E-03_JPRB,0.39115E-03_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.53506E-03_JPRB,0.49244E-03_JPRB,0.45647E-03_JPRB,0.42564E-03_JPRB,0.39926E-03_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.55131E-03_JPRB,0.50528E-03_JPRB,0.46739E-03_JPRB,0.43505E-03_JPRB,0.40730E-03_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.56909E-03_JPRB,0.51883E-03_JPRB,0.47884E-03_JPRB,0.44497E-03_JPRB,0.41571E-03_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.58824E-03_JPRB,0.53334E-03_JPRB,0.49097E-03_JPRB,0.45523E-03_JPRB,0.42457E-03_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.60745E-03_JPRB,0.54837E-03_JPRB,0.50301E-03_JPRB,0.46546E-03_JPRB,0.43352E-03_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.61557E-03_JPRB,0.55493E-03_JPRB,0.50805E-03_JPRB,0.46962E-03_JPRB,0.43716E-03_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.351362E-07_JPRB, 0.341136E-07_JPRB, 0.181317E-06_JPRB /)
+FORREF(:, 2) = (/ 0.109648E-06_JPRB, 0.344240E-06_JPRB, 0.139709E-05_JPRB /)
+FORREF(:, 3) = (/ 0.374823E-06_JPRB, 0.103424E-05_JPRB, 0.188717E-05_JPRB /)
+FORREF(:, 4) = (/ 0.580041E-06_JPRB, 0.116876E-05_JPRB, 0.121183E-05_JPRB /)
+FORREF(:, 5) = (/ 0.115608E-05_JPRB, 0.148110E-05_JPRB, 0.836083E-06_JPRB /)
+FORREF(:, 6) = (/ 0.181460E-05_JPRB, 0.133313E-05_JPRB, 0.500167E-06_JPRB /)
+FORREF(:, 7) = (/ 0.199096E-05_JPRB, 0.115276E-05_JPRB, 0.432994E-06_JPRB /)
+FORREF(:, 8) = (/ 0.183730E-05_JPRB, 0.122260E-05_JPRB, 0.433248E-06_JPRB /)
+FORREF(:, 9) = (/ 0.198386E-05_JPRB, 0.100130E-05_JPRB, 0.269712E-06_JPRB /)
+FORREF(:,10) = (/ 0.276382E-05_JPRB, 0.749215E-06_JPRB, 0.236919E-06_JPRB /)
+FORREF(:,11) = (/ 0.298202E-05_JPRB, 0.629688E-06_JPRB, 0.228388E-06_JPRB /)
+FORREF(:,12) = (/ 0.364604E-05_JPRB, 0.455336E-06_JPRB, 0.206130E-06_JPRB /)
+FORREF(:,13) = (/ 0.373339E-05_JPRB, 0.245210E-06_JPRB, 0.201987E-06_JPRB /)
+FORREF(:,14) = (/ 0.480378E-05_JPRB, 0.177591E-06_JPRB, 0.171458E-06_JPRB /)
+FORREF(:,15) = (/ 0.521700E-05_JPRB, 0.203358E-06_JPRB, 0.189559E-06_JPRB /)
+FORREF(:,16) = (/ 0.542717E-05_JPRB, 0.219022E-06_JPRB, 0.218271E-06_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.538526E-04_JPRB, 0.464603E-04_JPRB, 0.400828E-04_JPRB, 0.345807E-04_JPRB, 0.298339E-04_JPRB, &
+ & 0.257386E-04_JPRB, 0.222055E-04_JPRB, 0.191574E-04_JPRB, 0.165277E-04_JPRB, 0.142590E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.162409E-03_JPRB, 0.128347E-03_JPRB, 0.101430E-03_JPRB, 0.801571E-04_JPRB, 0.633460E-04_JPRB, &
+ & 0.500607E-04_JPRB, 0.395616E-04_JPRB, 0.312645E-04_JPRB, 0.247075E-04_JPRB, 0.195257E-04_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.262882E-03_JPRB, 0.212793E-03_JPRB, 0.172247E-03_JPRB, 0.139427E-03_JPRB, 0.112860E-03_JPRB, &
+ & 0.913557E-04_JPRB, 0.739487E-04_JPRB, 0.598584E-04_JPRB, 0.484529E-04_JPRB, 0.392206E-04_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.242873E-03_JPRB, 0.204225E-03_JPRB, 0.171726E-03_JPRB, 0.144399E-03_JPRB, 0.121421E-03_JPRB, &
+ & 0.102099E-03_JPRB, 0.858516E-04_JPRB, 0.721899E-04_JPRB, 0.607022E-04_JPRB, 0.510426E-04_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.235614E-03_JPRB, 0.207814E-03_JPRB, 0.183293E-03_JPRB, 0.161666E-03_JPRB, 0.142591E-03_JPRB, &
+ & 0.125766E-03_JPRB, 0.110927E-03_JPRB, 0.978381E-04_JPRB, 0.862939E-04_JPRB, 0.761119E-04_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.205508E-03_JPRB, 0.190174E-03_JPRB, 0.175985E-03_JPRB, 0.162854E-03_JPRB, 0.150702E-03_JPRB, &
+ & 0.139458E-03_JPRB, 0.129052E-03_JPRB, 0.119423E-03_JPRB, 0.110513E-03_JPRB, 0.102267E-03_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.185027E-03_JPRB, 0.175148E-03_JPRB, 0.165796E-03_JPRB, 0.156944E-03_JPRB, 0.148565E-03_JPRB, &
+ & 0.140633E-03_JPRB, 0.133124E-03_JPRB, 0.126016E-03_JPRB, 0.119288E-03_JPRB, 0.112919E-03_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.192634E-03_JPRB, 0.180192E-03_JPRB, 0.168554E-03_JPRB, 0.157668E-03_JPRB, 0.147484E-03_JPRB, &
+ & 0.137959E-03_JPRB, 0.129048E-03_JPRB, 0.120713E-03_JPRB, 0.112917E-03_JPRB, 0.105624E-03_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.161632E-03_JPRB, 0.155919E-03_JPRB, 0.150408E-03_JPRB, 0.145092E-03_JPRB, 0.139963E-03_JPRB, &
+ & 0.135016E-03_JPRB, 0.130244E-03_JPRB, 0.125640E-03_JPRB, 0.121199E-03_JPRB, 0.116915E-03_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.120880E-03_JPRB, 0.125265E-03_JPRB, 0.129810E-03_JPRB, 0.134520E-03_JPRB, 0.139400E-03_JPRB, &
+ & 0.144458E-03_JPRB, 0.149699E-03_JPRB, 0.155130E-03_JPRB, 0.160758E-03_JPRB, 0.166591E-03_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.104705E-03_JPRB, 0.111761E-03_JPRB, 0.119291E-03_JPRB, 0.127330E-03_JPRB, 0.135910E-03_JPRB, &
+ & 0.145068E-03_JPRB, 0.154843E-03_JPRB, 0.165277E-03_JPRB, 0.176414E-03_JPRB, 0.188302E-03_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.846335E-04_JPRB, 0.951236E-04_JPRB, 0.106914E-03_JPRB, 0.120166E-03_JPRB, 0.135060E-03_JPRB, &
+ & 0.151800E-03_JPRB, 0.170616E-03_JPRB, 0.191763E-03_JPRB, 0.215532E-03_JPRB, 0.242246E-03_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.669754E-04_JPRB, 0.781902E-04_JPRB, 0.912829E-04_JPRB, 0.106568E-03_JPRB, 0.124413E-03_JPRB, &
+ & 0.145245E-03_JPRB, 0.169566E-03_JPRB, 0.197959E-03_JPRB, 0.231107E-03_JPRB, 0.269805E-03_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.597091E-04_JPRB, 0.722265E-04_JPRB, 0.873679E-04_JPRB, 0.105684E-03_JPRB, 0.127839E-03_JPRB, &
+ & 0.154639E-03_JPRB, 0.187057E-03_JPRB, 0.226272E-03_JPRB, 0.273707E-03_JPRB, 0.331087E-03_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.640410E-04_JPRB, 0.771879E-04_JPRB, 0.930338E-04_JPRB, 0.112133E-03_JPRB, 0.135152E-03_JPRB, &
+ & 0.162897E-03_JPRB, 0.196338E-03_JPRB, 0.236644E-03_JPRB, 0.285225E-03_JPRB, 0.343778E-03_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.666420E-04_JPRB, 0.801056E-04_JPRB, 0.962892E-04_JPRB, 0.115742E-03_JPRB, 0.139126E-03_JPRB, &
+ & 0.167233E-03_JPRB, 0.201019E-03_JPRB, 0.241630E-03_JPRB, 0.290446E-03_JPRB, 0.349125E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB22
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb22.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb22.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb22.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB22
+END SUBROUTINE SRTM_KGB22
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb23.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb23.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb23.F90	(revision 3330)
@@ -0,0 +1,559 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB23
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  8050-12850 cm-1 (low - H2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA23, ONLY : KA, SELFREF, FORREF, SFLUXREF, RAYL &
+ & , GIVFAC, LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB23',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 53.2101_JPRB , 51.4143_JPRB, 49.3348_JPRB, 45.4612_JPRB    , &
+ & 40.8294_JPRB , 35.1801_JPRB, 28.6947_JPRB, 21.5751_JPRB    , &
+ & 14.6388_JPRB , 1.59111_JPRB, 1.31860_JPRB, 1.04018_JPRB    , &
+ & 0.762140_JPRB,0.484214_JPRB,0.182275_JPRB, 2.54948E-02_JPRB /)  
+
+!     Rayleigh extinction coefficient at all v 
+RAYL = (/ &
+ & 5.94837E-08_JPRB,5.70593E-08_JPRB,6.27845E-08_JPRB,5.56602E-08_JPRB, &
+ & 5.25571E-08_JPRB,4.73388E-08_JPRB,4.17466E-08_JPRB,3.98097E-08_JPRB, &
+ & 4.00786E-08_JPRB,3.67478E-08_JPRB,3.45186E-08_JPRB,3.46156E-08_JPRB, &
+ & 3.32155E-08_JPRB,3.23642E-08_JPRB,2.72590E-08_JPRB,2.96813E-08_JPRB /)  
+
+!     Average Giver et al. correction factor for this band.
+GIVFAC = 1.029_JPRB
+
+LAYREFFR = 6
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.33078E-07_JPRB,0.34034E-07_JPRB,0.35124E-07_JPRB,0.34187E-07_JPRB,0.34744E-07_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.25544E-07_JPRB,0.25873E-07_JPRB,0.26742E-07_JPRB,0.27512E-07_JPRB,0.27504E-07_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.18549E-07_JPRB,0.19611E-07_JPRB,0.20840E-07_JPRB,0.22548E-07_JPRB,0.23069E-07_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.28794E-07_JPRB,0.30837E-07_JPRB,0.32679E-07_JPRB,0.34307E-07_JPRB,0.36901E-07_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.36776E-07_JPRB,0.39144E-07_JPRB,0.41300E-07_JPRB,0.43264E-07_JPRB,0.46626E-07_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.59710E-07_JPRB,0.62941E-07_JPRB,0.65500E-07_JPRB,0.67353E-07_JPRB,0.68774E-07_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.12143E-06_JPRB,0.12932E-06_JPRB,0.13250E-06_JPRB,0.13526E-06_JPRB,0.13849E-06_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.12531E-06_JPRB,0.13241E-06_JPRB,0.13939E-06_JPRB,0.14705E-06_JPRB,0.15465E-06_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.20209E-06_JPRB,0.21134E-06_JPRB,0.22163E-06_JPRB,0.23098E-06_JPRB,0.24004E-06_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.10750E-05_JPRB,0.11204E-05_JPRB,0.11575E-05_JPRB,0.11923E-05_JPRB,0.12227E-05_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.27782E-05_JPRB,0.28204E-05_JPRB,0.28406E-05_JPRB,0.28380E-05_JPRB,0.28440E-05_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.38510E-05_JPRB,0.39934E-05_JPRB,0.40697E-05_JPRB,0.41102E-05_JPRB,0.41571E-05_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.43157E-05_JPRB,0.44488E-05_JPRB,0.45799E-05_JPRB,0.46585E-05_JPRB,0.47223E-05_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.84637E-06_JPRB,0.86989E-06_JPRB,0.90697E-06_JPRB,0.90000E-06_JPRB,0.91373E-06_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.67062E-06_JPRB,0.68649E-06_JPRB,0.72334E-06_JPRB,0.73645E-06_JPRB,0.72978E-06_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.52317E-06_JPRB,0.53924E-06_JPRB,0.55425E-06_JPRB,0.58347E-06_JPRB,0.57813E-06_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.39868E-06_JPRB,0.41431E-06_JPRB,0.42761E-06_JPRB,0.43892E-06_JPRB,0.45982E-06_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.32074E-06_JPRB,0.33452E-06_JPRB,0.34754E-06_JPRB,0.35582E-06_JPRB,0.37378E-06_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.42465E-06_JPRB,0.44058E-06_JPRB,0.45605E-06_JPRB,0.47192E-06_JPRB,0.48493E-06_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.47581E-06_JPRB,0.50000E-06_JPRB,0.52487E-06_JPRB,0.54192E-06_JPRB,0.55955E-06_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.10592E-05_JPRB,0.11093E-05_JPRB,0.11483E-05_JPRB,0.11923E-05_JPRB,0.12169E-05_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.50835E-05_JPRB,0.51710E-05_JPRB,0.52329E-05_JPRB,0.52644E-05_JPRB,0.52818E-05_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.77867E-05_JPRB,0.82156E-05_JPRB,0.86002E-05_JPRB,0.89664E-05_JPRB,0.92394E-05_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.89031E-05_JPRB,0.93573E-05_JPRB,0.97686E-05_JPRB,0.10236E-04_JPRB,0.10591E-04_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.98068E-05_JPRB,0.10238E-04_JPRB,0.10700E-04_JPRB,0.11108E-04_JPRB,0.11471E-04_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.11145E-04_JPRB,0.11697E-04_JPRB,0.12123E-04_JPRB,0.12482E-04_JPRB,0.12856E-04_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.66049E-05_JPRB,0.67547E-05_JPRB,0.70104E-05_JPRB,0.69745E-05_JPRB,0.70687E-05_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.54104E-05_JPRB,0.55245E-05_JPRB,0.57623E-05_JPRB,0.58532E-05_JPRB,0.58099E-05_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.43608E-05_JPRB,0.44784E-05_JPRB,0.45778E-05_JPRB,0.47665E-05_JPRB,0.47295E-05_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.35399E-05_JPRB,0.36454E-05_JPRB,0.37356E-05_JPRB,0.38107E-05_JPRB,0.39586E-05_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.28576E-05_JPRB,0.29552E-05_JPRB,0.30325E-05_JPRB,0.31028E-05_JPRB,0.32276E-05_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.21017E-05_JPRB,0.21836E-05_JPRB,0.22554E-05_JPRB,0.23121E-05_JPRB,0.23486E-05_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.19384E-05_JPRB,0.19914E-05_JPRB,0.20428E-05_JPRB,0.20879E-05_JPRB,0.21191E-05_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.32672E-05_JPRB,0.33753E-05_JPRB,0.34694E-05_JPRB,0.35273E-05_JPRB,0.35984E-05_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.82257E-05_JPRB,0.84975E-05_JPRB,0.86969E-05_JPRB,0.88995E-05_JPRB,0.90123E-05_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.35363E-04_JPRB,0.36204E-04_JPRB,0.36916E-04_JPRB,0.37708E-04_JPRB,0.38294E-04_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.48837E-04_JPRB,0.50952E-04_JPRB,0.52710E-04_JPRB,0.54347E-04_JPRB,0.55976E-04_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.56059E-04_JPRB,0.58301E-04_JPRB,0.60100E-04_JPRB,0.61776E-04_JPRB,0.63179E-04_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.57871E-04_JPRB,0.59505E-04_JPRB,0.60930E-04_JPRB,0.62289E-04_JPRB,0.63278E-04_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.27624E-04_JPRB,0.28017E-04_JPRB,0.29078E-04_JPRB,0.28567E-04_JPRB,0.28724E-04_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.23107E-04_JPRB,0.23464E-04_JPRB,0.24357E-04_JPRB,0.24519E-04_JPRB,0.24024E-04_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.19113E-04_JPRB,0.19400E-04_JPRB,0.19615E-04_JPRB,0.20420E-04_JPRB,0.19962E-04_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.15873E-04_JPRB,0.16138E-04_JPRB,0.16349E-04_JPRB,0.16528E-04_JPRB,0.17176E-04_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.13198E-04_JPRB,0.13437E-04_JPRB,0.13641E-04_JPRB,0.13810E-04_JPRB,0.14393E-04_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.10951E-04_JPRB,0.11172E-04_JPRB,0.11352E-04_JPRB,0.11506E-04_JPRB,0.11631E-04_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.86121E-05_JPRB,0.88300E-05_JPRB,0.90149E-05_JPRB,0.91565E-05_JPRB,0.92594E-05_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.71478E-05_JPRB,0.72918E-05_JPRB,0.74035E-05_JPRB,0.74959E-05_JPRB,0.75566E-05_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.16458E-04_JPRB,0.17092E-04_JPRB,0.17686E-04_JPRB,0.17967E-04_JPRB,0.18273E-04_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.47953E-04_JPRB,0.49663E-04_JPRB,0.51524E-04_JPRB,0.52800E-04_JPRB,0.54192E-04_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.94263E-04_JPRB,0.95557E-04_JPRB,0.96513E-04_JPRB,0.97430E-04_JPRB,0.97733E-04_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.12087E-03_JPRB,0.12152E-03_JPRB,0.12240E-03_JPRB,0.12318E-03_JPRB,0.12403E-03_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.12781E-03_JPRB,0.12897E-03_JPRB,0.13049E-03_JPRB,0.13171E-03_JPRB,0.13337E-03_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.82859E-04_JPRB,0.84817E-04_JPRB,0.89056E-04_JPRB,0.88057E-04_JPRB,0.89410E-04_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.70937E-04_JPRB,0.72685E-04_JPRB,0.76796E-04_JPRB,0.77955E-04_JPRB,0.76735E-04_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.59876E-04_JPRB,0.61448E-04_JPRB,0.62837E-04_JPRB,0.66293E-04_JPRB,0.64996E-04_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.50598E-04_JPRB,0.52054E-04_JPRB,0.53293E-04_JPRB,0.54332E-04_JPRB,0.57333E-04_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.42742E-04_JPRB,0.44035E-04_JPRB,0.45164E-04_JPRB,0.46134E-04_JPRB,0.48935E-04_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.35769E-04_JPRB,0.36975E-04_JPRB,0.38038E-04_JPRB,0.38917E-04_JPRB,0.39681E-04_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.29747E-04_JPRB,0.30824E-04_JPRB,0.31756E-04_JPRB,0.32589E-04_JPRB,0.33314E-04_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.21994E-04_JPRB,0.22945E-04_JPRB,0.23786E-04_JPRB,0.24517E-04_JPRB,0.25155E-04_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.22298E-04_JPRB,0.22688E-04_JPRB,0.23127E-04_JPRB,0.23803E-04_JPRB,0.24335E-04_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.88898E-04_JPRB,0.91280E-04_JPRB,0.93333E-04_JPRB,0.95224E-04_JPRB,0.96298E-04_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.12299E-03_JPRB,0.12407E-03_JPRB,0.12536E-03_JPRB,0.12642E-03_JPRB,0.12813E-03_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.14539E-03_JPRB,0.14851E-03_JPRB,0.15022E-03_JPRB,0.15157E-03_JPRB,0.15204E-03_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.15949E-03_JPRB,0.16239E-03_JPRB,0.16467E-03_JPRB,0.16667E-03_JPRB,0.16801E-03_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.25339E-03_JPRB,0.25995E-03_JPRB,0.27170E-03_JPRB,0.26963E-03_JPRB,0.27413E-03_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.21908E-03_JPRB,0.22404E-03_JPRB,0.23522E-03_JPRB,0.23902E-03_JPRB,0.23717E-03_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.18611E-03_JPRB,0.19076E-03_JPRB,0.19518E-03_JPRB,0.20503E-03_JPRB,0.20222E-03_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.15769E-03_JPRB,0.16210E-03_JPRB,0.16597E-03_JPRB,0.16948E-03_JPRB,0.17817E-03_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.13402E-03_JPRB,0.13792E-03_JPRB,0.14153E-03_JPRB,0.14434E-03_JPRB,0.15267E-03_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.11390E-03_JPRB,0.11743E-03_JPRB,0.12065E-03_JPRB,0.12316E-03_JPRB,0.12543E-03_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.96417E-04_JPRB,0.99612E-04_JPRB,0.10233E-03_JPRB,0.10453E-03_JPRB,0.10652E-03_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.81395E-04_JPRB,0.84205E-04_JPRB,0.86346E-04_JPRB,0.88406E-04_JPRB,0.90122E-04_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.47776E-04_JPRB,0.48971E-04_JPRB,0.49736E-04_JPRB,0.49917E-04_JPRB,0.50289E-04_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.10698E-03_JPRB,0.10815E-03_JPRB,0.10817E-03_JPRB,0.10799E-03_JPRB,0.10851E-03_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.20220E-03_JPRB,0.20727E-03_JPRB,0.21241E-03_JPRB,0.21675E-03_JPRB,0.21989E-03_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.23474E-03_JPRB,0.23601E-03_JPRB,0.23974E-03_JPRB,0.24383E-03_JPRB,0.24876E-03_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.23410E-03_JPRB,0.23809E-03_JPRB,0.24185E-03_JPRB,0.24554E-03_JPRB,0.24952E-03_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.67024E-03_JPRB,0.68026E-03_JPRB,0.70419E-03_JPRB,0.70159E-03_JPRB,0.71089E-03_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.58729E-03_JPRB,0.59778E-03_JPRB,0.62097E-03_JPRB,0.62912E-03_JPRB,0.62423E-03_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.50967E-03_JPRB,0.51900E-03_JPRB,0.52765E-03_JPRB,0.54794E-03_JPRB,0.54266E-03_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.44167E-03_JPRB,0.45006E-03_JPRB,0.45793E-03_JPRB,0.46469E-03_JPRB,0.48335E-03_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.38096E-03_JPRB,0.38881E-03_JPRB,0.39576E-03_JPRB,0.40259E-03_JPRB,0.42086E-03_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.32818E-03_JPRB,0.33539E-03_JPRB,0.34192E-03_JPRB,0.34829E-03_JPRB,0.35405E-03_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.28259E-03_JPRB,0.28946E-03_JPRB,0.29584E-03_JPRB,0.30203E-03_JPRB,0.30742E-03_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.24273E-03_JPRB,0.24912E-03_JPRB,0.25546E-03_JPRB,0.26110E-03_JPRB,0.26607E-03_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.19937E-03_JPRB,0.20653E-03_JPRB,0.21314E-03_JPRB,0.21968E-03_JPRB,0.22520E-03_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.13306E-03_JPRB,0.13331E-03_JPRB,0.13393E-03_JPRB,0.13538E-03_JPRB,0.13616E-03_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.16236E-03_JPRB,0.16154E-03_JPRB,0.16187E-03_JPRB,0.16113E-03_JPRB,0.16209E-03_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.17872E-03_JPRB,0.18355E-03_JPRB,0.18612E-03_JPRB,0.18792E-03_JPRB,0.18745E-03_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.18970E-03_JPRB,0.19384E-03_JPRB,0.19773E-03_JPRB,0.20261E-03_JPRB,0.20377E-03_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.18130E-02_JPRB,0.18305E-02_JPRB,0.18716E-02_JPRB,0.18655E-02_JPRB,0.18814E-02_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.16420E-02_JPRB,0.16600E-02_JPRB,0.17006E-02_JPRB,0.17156E-02_JPRB,0.17108E-02_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.14687E-02_JPRB,0.14870E-02_JPRB,0.15042E-02_JPRB,0.15423E-02_JPRB,0.15376E-02_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.13068E-02_JPRB,0.13248E-02_JPRB,0.13421E-02_JPRB,0.13592E-02_JPRB,0.13960E-02_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.11574E-02_JPRB,0.11753E-02_JPRB,0.11928E-02_JPRB,0.12097E-02_JPRB,0.12467E-02_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.10167E-02_JPRB,0.10342E-02_JPRB,0.10515E-02_JPRB,0.10681E-02_JPRB,0.10840E-02_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.88992E-03_JPRB,0.90662E-03_JPRB,0.92299E-03_JPRB,0.93844E-03_JPRB,0.95347E-03_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.78445E-03_JPRB,0.80031E-03_JPRB,0.81639E-03_JPRB,0.83131E-03_JPRB,0.84631E-03_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.69812E-03_JPRB,0.71312E-03_JPRB,0.72801E-03_JPRB,0.74222E-03_JPRB,0.75605E-03_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.32521E-03_JPRB,0.33835E-03_JPRB,0.35194E-03_JPRB,0.36381E-03_JPRB,0.37594E-03_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.31406E-03_JPRB,0.32013E-03_JPRB,0.32456E-03_JPRB,0.33261E-03_JPRB,0.33741E-03_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.28132E-03_JPRB,0.28732E-03_JPRB,0.29674E-03_JPRB,0.30509E-03_JPRB,0.31393E-03_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.25704E-03_JPRB,0.26316E-03_JPRB,0.27195E-03_JPRB,0.27732E-03_JPRB,0.28905E-03_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.67370E-02_JPRB,0.67873E-02_JPRB,0.68896E-02_JPRB,0.68819E-02_JPRB,0.69268E-02_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.63111E-02_JPRB,0.63622E-02_JPRB,0.64623E-02_JPRB,0.65060E-02_JPRB,0.65027E-02_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.58834E-02_JPRB,0.59361E-02_JPRB,0.59858E-02_JPRB,0.60811E-02_JPRB,0.60806E-02_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.54753E-02_JPRB,0.55309E-02_JPRB,0.55823E-02_JPRB,0.56306E-02_JPRB,0.57229E-02_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.50781E-02_JPRB,0.51373E-02_JPRB,0.51895E-02_JPRB,0.52391E-02_JPRB,0.53328E-02_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.46791E-02_JPRB,0.47408E-02_JPRB,0.47949E-02_JPRB,0.48470E-02_JPRB,0.48993E-02_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.42724E-02_JPRB,0.43381E-02_JPRB,0.43951E-02_JPRB,0.44503E-02_JPRB,0.45061E-02_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.38568E-02_JPRB,0.39254E-02_JPRB,0.39848E-02_JPRB,0.40431E-02_JPRB,0.41005E-02_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.35657E-02_JPRB,0.36362E-02_JPRB,0.36994E-02_JPRB,0.37608E-02_JPRB,0.38215E-02_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.33774E-02_JPRB,0.34501E-02_JPRB,0.35171E-02_JPRB,0.35811E-02_JPRB,0.36450E-02_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.23923E-02_JPRB,0.24623E-02_JPRB,0.25263E-02_JPRB,0.25890E-02_JPRB,0.26517E-02_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.16959E-02_JPRB,0.17542E-02_JPRB,0.18077E-02_JPRB,0.18614E-02_JPRB,0.19187E-02_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.11732E-02_JPRB,0.12232E-02_JPRB,0.12712E-02_JPRB,0.13221E-02_JPRB,0.13677E-02_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.19604E-01_JPRB,0.19698E-01_JPRB,0.19938E-01_JPRB,0.19854E-01_JPRB,0.19950E-01_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.18714E-01_JPRB,0.18803E-01_JPRB,0.19035E-01_JPRB,0.19131E-01_JPRB,0.19102E-01_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.17676E-01_JPRB,0.17785E-01_JPRB,0.17904E-01_JPRB,0.18189E-01_JPRB,0.18156E-01_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.16662E-01_JPRB,0.16773E-01_JPRB,0.16908E-01_JPRB,0.17056E-01_JPRB,0.17303E-01_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.15655E-01_JPRB,0.15775E-01_JPRB,0.15942E-01_JPRB,0.16103E-01_JPRB,0.16359E-01_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.14694E-01_JPRB,0.14838E-01_JPRB,0.15029E-01_JPRB,0.15200E-01_JPRB,0.15320E-01_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.13797E-01_JPRB,0.13959E-01_JPRB,0.14174E-01_JPRB,0.14350E-01_JPRB,0.14471E-01_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.12902E-01_JPRB,0.13089E-01_JPRB,0.13313E-01_JPRB,0.13489E-01_JPRB,0.13626E-01_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.11897E-01_JPRB,0.12105E-01_JPRB,0.12333E-01_JPRB,0.12512E-01_JPRB,0.12656E-01_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.11834E-01_JPRB,0.12072E-01_JPRB,0.12331E-01_JPRB,0.12548E-01_JPRB,0.12721E-01_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.11416E-01_JPRB,0.11699E-01_JPRB,0.11968E-01_JPRB,0.12141E-01_JPRB,0.12311E-01_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.10776E-01_JPRB,0.11070E-01_JPRB,0.11309E-01_JPRB,0.11507E-01_JPRB,0.11702E-01_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.99577E-02_JPRB,0.10263E-01_JPRB,0.10492E-01_JPRB,0.10719E-01_JPRB,0.10951E-01_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.29783E-01_JPRB,0.29883E-01_JPRB,0.30210E-01_JPRB,0.30141E-01_JPRB,0.30248E-01_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.28562E-01_JPRB,0.28743E-01_JPRB,0.29186E-01_JPRB,0.29339E-01_JPRB,0.29258E-01_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.27212E-01_JPRB,0.27429E-01_JPRB,0.27654E-01_JPRB,0.28083E-01_JPRB,0.28023E-01_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.25949E-01_JPRB,0.26197E-01_JPRB,0.26424E-01_JPRB,0.26623E-01_JPRB,0.27069E-01_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.24686E-01_JPRB,0.24942E-01_JPRB,0.25176E-01_JPRB,0.25403E-01_JPRB,0.25908E-01_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.23430E-01_JPRB,0.23686E-01_JPRB,0.23923E-01_JPRB,0.24158E-01_JPRB,0.24433E-01_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.22171E-01_JPRB,0.22424E-01_JPRB,0.22653E-01_JPRB,0.22909E-01_JPRB,0.23203E-01_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.20928E-01_JPRB,0.21171E-01_JPRB,0.21407E-01_JPRB,0.21699E-01_JPRB,0.22018E-01_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.19076E-01_JPRB,0.19320E-01_JPRB,0.19548E-01_JPRB,0.19858E-01_JPRB,0.20150E-01_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.19537E-01_JPRB,0.19788E-01_JPRB,0.20064E-01_JPRB,0.20391E-01_JPRB,0.20843E-01_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.19137E-01_JPRB,0.19444E-01_JPRB,0.19793E-01_JPRB,0.20268E-01_JPRB,0.20695E-01_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.18393E-01_JPRB,0.18715E-01_JPRB,0.19143E-01_JPRB,0.19652E-01_JPRB,0.20037E-01_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.17255E-01_JPRB,0.17680E-01_JPRB,0.18170E-01_JPRB,0.18641E-01_JPRB,0.19010E-01_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.46641E-01_JPRB,0.46796E-01_JPRB,0.47107E-01_JPRB,0.46977E-01_JPRB,0.47093E-01_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.46819E-01_JPRB,0.46956E-01_JPRB,0.47337E-01_JPRB,0.47426E-01_JPRB,0.47339E-01_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.46276E-01_JPRB,0.46366E-01_JPRB,0.46462E-01_JPRB,0.46935E-01_JPRB,0.46862E-01_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.44986E-01_JPRB,0.45103E-01_JPRB,0.45287E-01_JPRB,0.45535E-01_JPRB,0.46152E-01_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.43367E-01_JPRB,0.43552E-01_JPRB,0.43761E-01_JPRB,0.44035E-01_JPRB,0.44674E-01_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.41584E-01_JPRB,0.41793E-01_JPRB,0.42020E-01_JPRB,0.42344E-01_JPRB,0.42701E-01_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.39785E-01_JPRB,0.40007E-01_JPRB,0.40269E-01_JPRB,0.40635E-01_JPRB,0.41003E-01_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.37918E-01_JPRB,0.38155E-01_JPRB,0.38468E-01_JPRB,0.38839E-01_JPRB,0.39210E-01_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.35060E-01_JPRB,0.35328E-01_JPRB,0.35698E-01_JPRB,0.36105E-01_JPRB,0.36551E-01_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.35216E-01_JPRB,0.35547E-01_JPRB,0.35872E-01_JPRB,0.36327E-01_JPRB,0.36542E-01_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.35158E-01_JPRB,0.35374E-01_JPRB,0.35869E-01_JPRB,0.36242E-01_JPRB,0.36691E-01_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.34264E-01_JPRB,0.34598E-01_JPRB,0.35106E-01_JPRB,0.35505E-01_JPRB,0.36021E-01_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.32716E-01_JPRB,0.33195E-01_JPRB,0.33830E-01_JPRB,0.34228E-01_JPRB,0.34925E-01_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.76084E-01_JPRB,0.76052E-01_JPRB,0.76051E-01_JPRB,0.75851E-01_JPRB,0.75753E-01_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.79580E-01_JPRB,0.79564E-01_JPRB,0.79664E-01_JPRB,0.79619E-01_JPRB,0.79414E-01_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.82218E-01_JPRB,0.82302E-01_JPRB,0.82367E-01_JPRB,0.82543E-01_JPRB,0.82246E-01_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.83613E-01_JPRB,0.83740E-01_JPRB,0.83824E-01_JPRB,0.83866E-01_JPRB,0.84103E-01_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.83913E-01_JPRB,0.84123E-01_JPRB,0.84289E-01_JPRB,0.84403E-01_JPRB,0.84840E-01_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.83159E-01_JPRB,0.83442E-01_JPRB,0.83718E-01_JPRB,0.83891E-01_JPRB,0.83993E-01_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.81401E-01_JPRB,0.81826E-01_JPRB,0.82202E-01_JPRB,0.82451E-01_JPRB,0.82656E-01_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.78949E-01_JPRB,0.79505E-01_JPRB,0.79978E-01_JPRB,0.80351E-01_JPRB,0.80690E-01_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.76002E-01_JPRB,0.76671E-01_JPRB,0.77279E-01_JPRB,0.77752E-01_JPRB,0.78257E-01_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.69777E-01_JPRB,0.70425E-01_JPRB,0.71054E-01_JPRB,0.71706E-01_JPRB,0.72167E-01_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.72929E-01_JPRB,0.73732E-01_JPRB,0.74323E-01_JPRB,0.75246E-01_JPRB,0.75786E-01_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.73007E-01_JPRB,0.74429E-01_JPRB,0.74922E-01_JPRB,0.75916E-01_JPRB,0.76947E-01_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.71376E-01_JPRB,0.72507E-01_JPRB,0.73710E-01_JPRB,0.74716E-01_JPRB,0.75702E-01_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.12585E+00_JPRB,0.12569E+00_JPRB,0.12576E+00_JPRB,0.12571E+00_JPRB,0.12570E+00_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.13868E+00_JPRB,0.13853E+00_JPRB,0.13849E+00_JPRB,0.13824E+00_JPRB,0.13803E+00_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.15142E+00_JPRB,0.15135E+00_JPRB,0.15112E+00_JPRB,0.15093E+00_JPRB,0.15074E+00_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.16359E+00_JPRB,0.16359E+00_JPRB,0.16339E+00_JPRB,0.16311E+00_JPRB,0.16285E+00_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.17462E+00_JPRB,0.17472E+00_JPRB,0.17456E+00_JPRB,0.17421E+00_JPRB,0.17393E+00_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.18403E+00_JPRB,0.18447E+00_JPRB,0.18450E+00_JPRB,0.18424E+00_JPRB,0.18395E+00_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.19179E+00_JPRB,0.19239E+00_JPRB,0.19256E+00_JPRB,0.19253E+00_JPRB,0.19252E+00_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.19772E+00_JPRB,0.19863E+00_JPRB,0.19901E+00_JPRB,0.19923E+00_JPRB,0.19947E+00_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.20154E+00_JPRB,0.20279E+00_JPRB,0.20355E+00_JPRB,0.20417E+00_JPRB,0.20473E+00_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.18853E+00_JPRB,0.19028E+00_JPRB,0.19160E+00_JPRB,0.19253E+00_JPRB,0.19393E+00_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.18013E+00_JPRB,0.18167E+00_JPRB,0.18320E+00_JPRB,0.18375E+00_JPRB,0.18507E+00_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.19011E+00_JPRB,0.19027E+00_JPRB,0.19283E+00_JPRB,0.19402E+00_JPRB,0.19478E+00_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.19594E+00_JPRB,0.19738E+00_JPRB,0.19911E+00_JPRB,0.20124E+00_JPRB,0.20282E+00_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.22369E+00_JPRB,0.22259E+00_JPRB,0.22155E+00_JPRB,0.22059E+00_JPRB,0.21997E+00_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.25602E+00_JPRB,0.25478E+00_JPRB,0.25377E+00_JPRB,0.25306E+00_JPRB,0.25237E+00_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.29258E+00_JPRB,0.29107E+00_JPRB,0.28998E+00_JPRB,0.28920E+00_JPRB,0.28830E+00_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.33067E+00_JPRB,0.32888E+00_JPRB,0.32753E+00_JPRB,0.32646E+00_JPRB,0.32566E+00_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.37114E+00_JPRB,0.36880E+00_JPRB,0.36713E+00_JPRB,0.36598E+00_JPRB,0.36499E+00_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.41494E+00_JPRB,0.41167E+00_JPRB,0.40935E+00_JPRB,0.40779E+00_JPRB,0.40636E+00_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.46115E+00_JPRB,0.45729E+00_JPRB,0.45455E+00_JPRB,0.45230E+00_JPRB,0.45004E+00_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.50906E+00_JPRB,0.50463E+00_JPRB,0.50137E+00_JPRB,0.49843E+00_JPRB,0.49550E+00_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.55829E+00_JPRB,0.55330E+00_JPRB,0.54936E+00_JPRB,0.54557E+00_JPRB,0.54168E+00_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.60814E+00_JPRB,0.60274E+00_JPRB,0.59806E+00_JPRB,0.59326E+00_JPRB,0.58833E+00_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.62954E+00_JPRB,0.62588E+00_JPRB,0.62076E+00_JPRB,0.61665E+00_JPRB,0.61184E+00_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.62585E+00_JPRB,0.62437E+00_JPRB,0.61807E+00_JPRB,0.61303E+00_JPRB,0.60869E+00_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.64856E+00_JPRB,0.64505E+00_JPRB,0.63861E+00_JPRB,0.63277E+00_JPRB,0.62702E+00_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.33327E+00_JPRB,0.33385E+00_JPRB,0.33538E+00_JPRB,0.33638E+00_JPRB,0.33736E+00_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.40916E+00_JPRB,0.40842E+00_JPRB,0.40848E+00_JPRB,0.40865E+00_JPRB,0.40854E+00_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.50099E+00_JPRB,0.49888E+00_JPRB,0.49727E+00_JPRB,0.49588E+00_JPRB,0.49422E+00_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.60389E+00_JPRB,0.60029E+00_JPRB,0.59704E+00_JPRB,0.59367E+00_JPRB,0.59071E+00_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.71868E+00_JPRB,0.71337E+00_JPRB,0.70835E+00_JPRB,0.70318E+00_JPRB,0.69852E+00_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.84815E+00_JPRB,0.84138E+00_JPRB,0.83446E+00_JPRB,0.82728E+00_JPRB,0.82023E+00_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.99512E+00_JPRB,0.98644E+00_JPRB,0.97698E+00_JPRB,0.96695E+00_JPRB,0.95712E+00_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.11606E+01_JPRB,0.11485E+01_JPRB,0.11354E+01_JPRB,0.11218E+01_JPRB,0.11077E+01_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.13444E+01_JPRB,0.13282E+01_JPRB,0.13102E+01_JPRB,0.12917E+01_JPRB,0.12735E+01_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.15423E+01_JPRB,0.15207E+01_JPRB,0.14970E+01_JPRB,0.14733E+01_JPRB,0.14494E+01_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.17462E+01_JPRB,0.17138E+01_JPRB,0.16827E+01_JPRB,0.16518E+01_JPRB,0.16199E+01_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.19577E+01_JPRB,0.19145E+01_JPRB,0.18728E+01_JPRB,0.18320E+01_JPRB,0.17910E+01_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.21716E+01_JPRB,0.21171E+01_JPRB,0.20639E+01_JPRB,0.20113E+01_JPRB,0.19587E+01_JPRB /)  
+  
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.315770E-07_JPRB, 0.671978E-07_JPRB, 0.440649E-06_JPRB /)
+FORREF(:, 2) = (/ 0.313674E-06_JPRB, 0.285252E-06_JPRB, 0.421024E-05_JPRB /)
+FORREF(:, 3) = (/ 0.135818E-05_JPRB, 0.145071E-05_JPRB, 0.611285E-05_JPRB /)
+FORREF(:, 4) = (/ 0.534065E-05_JPRB, 0.586268E-05_JPRB, 0.933970E-05_JPRB /)
+FORREF(:, 5) = (/ 0.964007E-05_JPRB, 0.107110E-04_JPRB, 0.104486E-04_JPRB /)
+FORREF(:, 6) = (/ 0.302775E-04_JPRB, 0.357530E-04_JPRB, 0.340724E-04_JPRB /)
+FORREF(:, 7) = (/ 0.102437E-03_JPRB, 0.108475E-03_JPRB, 0.105245E-03_JPRB /)
+FORREF(:, 8) = (/ 0.146054E-03_JPRB, 0.141490E-03_JPRB, 0.133071E-03_JPRB /)
+FORREF(:, 9) = (/ 0.163978E-03_JPRB, 0.150208E-03_JPRB, 0.142864E-03_JPRB /)
+FORREF(:,10) = (/ 0.220412E-03_JPRB, 0.182943E-03_JPRB, 0.150941E-03_JPRB /)
+FORREF(:,11) = (/ 0.228877E-03_JPRB, 0.197679E-03_JPRB, 0.163220E-03_JPRB /)
+FORREF(:,12) = (/ 0.234177E-03_JPRB, 0.217734E-03_JPRB, 0.185038E-03_JPRB /)
+FORREF(:,13) = (/ 0.257187E-03_JPRB, 0.241570E-03_JPRB, 0.221178E-03_JPRB /)
+FORREF(:,14) = (/ 0.272455E-03_JPRB, 0.270637E-03_JPRB, 0.256269E-03_JPRB /)
+FORREF(:,15) = (/ 0.339445E-03_JPRB, 0.300268E-03_JPRB, 0.286574E-03_JPRB /)
+FORREF(:,16) = (/ 0.338841E-03_JPRB, 0.355428E-03_JPRB, 0.353794E-03_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.100945E-04_JPRB, 0.801113E-05_JPRB, 0.635771E-05_JPRB, 0.504554E-05_JPRB, 0.400419E-05_JPRB, &
+ & 0.317777E-05_JPRB, 0.252191E-05_JPRB, 0.200141E-05_JPRB, 0.158834E-05_JPRB, 0.126052E-05_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.107573E-04_JPRB, 0.999809E-05_JPRB, 0.929245E-05_JPRB, 0.863661E-05_JPRB, 0.802706E-05_JPRB, &
+ & 0.746053E-05_JPRB, 0.693399E-05_JPRB, 0.644460E-05_JPRB, 0.598976E-05_JPRB, 0.556702E-05_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.350389E-04_JPRB, 0.319234E-04_JPRB, 0.290850E-04_JPRB, 0.264989E-04_JPRB, 0.241428E-04_JPRB, &
+ & 0.219962E-04_JPRB, 0.200404E-04_JPRB, 0.182586E-04_JPRB, 0.166351E-04_JPRB, 0.151560E-04_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.122993E-03_JPRB, 0.110885E-03_JPRB, 0.999691E-04_JPRB, 0.901277E-04_JPRB, 0.812551E-04_JPRB, &
+ & 0.732559E-04_JPRB, 0.660443E-04_JPRB, 0.595426E-04_JPRB, 0.536809E-04_JPRB, 0.483963E-04_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.206434E-03_JPRB, 0.187435E-03_JPRB, 0.170185E-03_JPRB, 0.154522E-03_JPRB, 0.140301E-03_JPRB, &
+ & 0.127388E-03_JPRB, 0.115664E-03_JPRB, 0.105019E-03_JPRB, 0.953540E-04_JPRB, 0.865783E-04_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.590645E-03_JPRB, 0.533109E-03_JPRB, 0.481177E-03_JPRB, 0.434305E-03_JPRB, 0.391998E-03_JPRB, &
+ & 0.353812E-03_JPRB, 0.319346E-03_JPRB, 0.288238E-03_JPRB, 0.260160E-03_JPRB, 0.234817E-03_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.163029E-02_JPRB, 0.148773E-02_JPRB, 0.135763E-02_JPRB, 0.123891E-02_JPRB, 0.113057E-02_JPRB, &
+ & 0.103170E-02_JPRB, 0.941483E-03_JPRB, 0.859153E-03_JPRB, 0.784023E-03_JPRB, 0.715462E-03_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.204528E-02_JPRB, 0.189258E-02_JPRB, 0.175128E-02_JPRB, 0.162053E-02_JPRB, 0.149954E-02_JPRB, &
+ & 0.138758E-02_JPRB, 0.128398E-02_JPRB, 0.118812E-02_JPRB, 0.109941E-02_JPRB, 0.101733E-02_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.210589E-02_JPRB, 0.197078E-02_JPRB, 0.184434E-02_JPRB, 0.172601E-02_JPRB, 0.161528E-02_JPRB, &
+ & 0.151164E-02_JPRB, 0.141466E-02_JPRB, 0.132390E-02_JPRB, 0.123896E-02_JPRB, 0.115947E-02_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.245098E-02_JPRB, 0.233745E-02_JPRB, 0.222918E-02_JPRB, 0.212592E-02_JPRB, 0.202745E-02_JPRB, &
+ & 0.193353E-02_JPRB, 0.184397E-02_JPRB, 0.175856E-02_JPRB, 0.167710E-02_JPRB, 0.159941E-02_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.267460E-02_JPRB, 0.253325E-02_JPRB, 0.239936E-02_JPRB, 0.227255E-02_JPRB, 0.215244E-02_JPRB, &
+ & 0.203868E-02_JPRB, 0.193093E-02_JPRB, 0.182888E-02_JPRB, 0.173222E-02_JPRB, 0.164067E-02_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.304510E-02_JPRB, 0.283919E-02_JPRB, 0.264720E-02_JPRB, 0.246820E-02_JPRB, 0.230130E-02_JPRB, &
+ & 0.214568E-02_JPRB, 0.200059E-02_JPRB, 0.186531E-02_JPRB, 0.173918E-02_JPRB, 0.162157E-02_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.338445E-02_JPRB, 0.314719E-02_JPRB, 0.292655E-02_JPRB, 0.272139E-02_JPRB, 0.253060E-02_JPRB, &
+ & 0.235319E-02_JPRB, 0.218822E-02_JPRB, 0.203482E-02_JPRB, 0.189217E-02_JPRB, 0.175952E-02_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.388649E-02_JPRB, 0.357018E-02_JPRB, 0.327961E-02_JPRB, 0.301269E-02_JPRB, 0.276750E-02_JPRB, &
+ & 0.254226E-02_JPRB, 0.233535E-02_JPRB, 0.214528E-02_JPRB, 0.197068E-02_JPRB, 0.181029E-02_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.412547E-02_JPRB, 0.387413E-02_JPRB, 0.363810E-02_JPRB, 0.341646E-02_JPRB, 0.320831E-02_JPRB, &
+ & 0.301285E-02_JPRB, 0.282930E-02_JPRB, 0.265693E-02_JPRB, 0.249506E-02_JPRB, 0.234305E-02_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.534327E-02_JPRB, 0.482967E-02_JPRB, 0.436544E-02_JPRB, 0.394583E-02_JPRB, 0.356655E-02_JPRB, &
+ & 0.322373E-02_JPRB, 0.291387E-02_JPRB, 0.263378E-02_JPRB, 0.238062E-02_JPRB, 0.215179E-02_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB23',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB23
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb23.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb23.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb23.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB23
+END SUBROUTINE SRTM_KGB23
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb24.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb24.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb24.F90	(revision 3330)
@@ -0,0 +1,5092 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB24
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 24: 12850-16000 cm-1 (low - H2O,O2; high - O2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA24, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYLA, RAYLB &
+ & , ABSO3A, ABSO3B, STRRAT, LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 34.3610_JPRB , 33.1240_JPRB, 31.3948_JPRB, 28.7248_JPRB, &
+ & 24.7884_JPRB , 21.4892_JPRB, 17.3972_JPRB, 13.7928_JPRB, &
+ & 9.54462_JPRB , 1.05002_JPRB,0.867332_JPRB,0.685753_JPRB, &
+ & 0.504718_JPRB,0.323112_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,2) = (/ &
+ & 34.2367_JPRB , 32.4327_JPRB, 30.0863_JPRB, 28.2085_JPRB,  &
+ & 25.6533_JPRB , 22.3412_JPRB, 18.3112_JPRB, 13.8521_JPRB, &
+ & 9.51035_JPRB , 1.04138_JPRB,0.863493_JPRB,0.682790_JPRB, &
+ & 0.504721_JPRB,0.323102_JPRB,0.122193_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 34.1883_JPRB , 32.2479_JPRB, 30.2650_JPRB, 28.2914_JPRB, &
+ & 25.6626_JPRB , 22.3163_JPRB, 18.3327_JPRB, 13.8508_JPRB, &
+ & 9.49190_JPRB , 1.03672_JPRB,0.858272_JPRB,0.681485_JPRB, &
+ & 0.501363_JPRB,0.323110_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 34.1365_JPRB , 32.2316_JPRB, 30.3325_JPRB, 28.3305_JPRB, &
+ & 25.6420_JPRB , 22.3223_JPRB, 18.3411_JPRB, 13.8471_JPRB, &
+ & 9.47492_JPRB , 1.03376_JPRB,0.855380_JPRB,0.679085_JPRB, &
+ & 0.497998_JPRB,0.323053_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 34.0460_JPRB , 32.2795_JPRB, 30.4147_JPRB, 28.3123_JPRB, &
+ & 25.6438_JPRB , 22.3238_JPRB, 18.3441_JPRB, 13.8528_JPRB, &
+ & 9.45222_JPRB , 1.03058_JPRB,0.854037_JPRB,0.675554_JPRB, &
+ & 0.498344_JPRB,0.320072_JPRB,0.122193_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,6) = (/ &
+ & 33.9909_JPRB , 32.3127_JPRB, 30.4854_JPRB, 28.3005_JPRB, &
+ & 25.6310_JPRB , 22.3294_JPRB, 18.3459_JPRB, 13.8488_JPRB, &
+ & 9.43336_JPRB , 1.02901_JPRB,0.852728_JPRB,0.672322_JPRB, &
+ & 0.498056_JPRB,0.317753_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,7) = (/ &
+ & 33.9225_JPRB , 32.4097_JPRB, 30.5125_JPRB, 28.2810_JPRB, &
+ & 25.6387_JPRB , 22.3080_JPRB, 18.3715_JPRB, 13.8248_JPRB, &
+ & 9.41834_JPRB , 1.02735_JPRB,0.850807_JPRB,0.671379_JPRB, &
+ & 0.496975_JPRB,0.317158_JPRB,0.119297_JPRB, 1.70207E-02_JPRB /)  
+SFLUXREF(:,8) = (/ &
+ & 33.8940_JPRB , 32.4951_JPRB, 30.5494_JPRB, 28.2788_JPRB, &
+ & 25.5975_JPRB , 22.3225_JPRB, 18.3358_JPRB, 13.8199_JPRB, &
+ & 9.40283_JPRB , 1.02751_JPRB,0.850729_JPRB,0.670152_JPRB, &
+ & 0.494294_JPRB,0.315829_JPRB,0.116195_JPRB, 1.64138E-02_JPRB /)  
+SFLUXREF(:,9) = (/ &
+ & 34.6501_JPRB , 32.6690_JPRB, 30.2872_JPRB, 28.0955_JPRB, &
+ & 25.4662_JPRB , 22.1446_JPRB, 18.2754_JPRB, 13.7573_JPRB, &
+ & 9.36645_JPRB , 1.02356_JPRB,0.847154_JPRB,0.668519_JPRB, &
+ & 0.489186_JPRB,0.313790_JPRB,0.117074_JPRB, 1.60943E-02_JPRB /)  
+
+!     Rayleigh extinction coefficient at all v
+RAYLA(:,1) = (/ &
+ & 1.28405E-07_JPRB,1.45501E-07_JPRB,1.67272E-07_JPRB,1.94856E-07_JPRB, &
+ & 2.15248E-07_JPRB,2.34920E-07_JPRB,2.48558E-07_JPRB,1.80004E-07_JPRB, &
+ & 1.46504E-07_JPRB,1.31355E-07_JPRB,1.33562E-07_JPRB,1.35618E-07_JPRB, &
+ & 1.22412E-07_JPRB,1.19842E-07_JPRB,1.19924E-07_JPRB,1.20264E-07_JPRB /)  
+RAYLA(:,2) = (/ &
+ & 1.41622E-07_JPRB,1.93436E-07_JPRB,2.25057E-07_JPRB,2.01025E-07_JPRB, &
+ & 1.85138E-07_JPRB,1.72672E-07_JPRB,1.64771E-07_JPRB,1.59312E-07_JPRB, &
+ & 1.44961E-07_JPRB,1.37448E-07_JPRB,1.37506E-07_JPRB,1.38081E-07_JPRB, &
+ & 1.22432E-07_JPRB,1.19844E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,3) = (/ &
+ & 1.45382E-07_JPRB,1.97020E-07_JPRB,2.22781E-07_JPRB,1.96062E-07_JPRB, &
+ & 1.83495E-07_JPRB,1.72495E-07_JPRB,1.64910E-07_JPRB,1.58797E-07_JPRB, &
+ & 1.46208E-07_JPRB,1.42274E-07_JPRB,1.40445E-07_JPRB,1.39496E-07_JPRB, &
+ & 1.26940E-07_JPRB,1.19844E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,4) = (/ &
+ & 1.48247E-07_JPRB,1.99958E-07_JPRB,2.18048E-07_JPRB,1.93896E-07_JPRB, &
+ & 1.83125E-07_JPRB,1.73244E-07_JPRB,1.64320E-07_JPRB,1.58298E-07_JPRB, &
+ & 1.48428E-07_JPRB,1.44769E-07_JPRB,1.43704E-07_JPRB,1.38498E-07_JPRB, &
+ & 1.31732E-07_JPRB,1.22299E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,5) = (/ &
+ & 1.51343E-07_JPRB,1.99621E-07_JPRB,2.14563E-07_JPRB,1.93824E-07_JPRB, &
+ & 1.82992E-07_JPRB,1.73143E-07_JPRB,1.64587E-07_JPRB,1.57355E-07_JPRB, &
+ & 1.51198E-07_JPRB,1.46373E-07_JPRB,1.45438E-07_JPRB,1.38095E-07_JPRB, &
+ & 1.35026E-07_JPRB,1.27504E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,6) = (/ &
+ & 1.54462E-07_JPRB,1.97610E-07_JPRB,2.11992E-07_JPRB,1.93831E-07_JPRB, &
+ & 1.83900E-07_JPRB,1.73125E-07_JPRB,1.64093E-07_JPRB,1.57651E-07_JPRB, &
+ & 1.53158E-07_JPRB,1.46843E-07_JPRB,1.44733E-07_JPRB,1.40611E-07_JPRB, &
+ & 1.37320E-07_JPRB,1.33932E-07_JPRB,1.20423E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,7) = (/ &
+ & 1.59068E-07_JPRB,1.92757E-07_JPRB,2.09865E-07_JPRB,1.95132E-07_JPRB, &
+ & 1.83641E-07_JPRB,1.73778E-07_JPRB,1.63215E-07_JPRB,1.59462E-07_JPRB, &
+ & 1.54331E-07_JPRB,1.46177E-07_JPRB,1.45819E-07_JPRB,1.43177E-07_JPRB, &
+ & 1.39797E-07_JPRB,1.36780E-07_JPRB,1.33385E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,8) = (/ &
+ & 1.62066E-07_JPRB,1.87529E-07_JPRB,2.07191E-07_JPRB,1.97788E-07_JPRB, &
+ & 1.84920E-07_JPRB,1.72951E-07_JPRB,1.65450E-07_JPRB,1.60344E-07_JPRB, &
+ & 1.54403E-07_JPRB,1.47679E-07_JPRB,1.47287E-07_JPRB,1.44951E-07_JPRB, &
+ & 1.42517E-07_JPRB,1.41107E-07_JPRB,1.48688E-07_JPRB,1.51127E-07_JPRB /)  
+RAYLA(:,9) = (/ &
+ & 1.19177E-07_JPRB,1.86522E-07_JPRB,2.20324E-07_JPRB,2.13543E-07_JPRB, &
+ & 1.92198E-07_JPRB,1.81641E-07_JPRB,1.70092E-07_JPRB,1.65072E-07_JPRB, &
+ & 1.59804E-07_JPRB,1.56745E-07_JPRB,1.51235E-07_JPRB,1.51400E-07_JPRB, &
+ & 1.49635E-07_JPRB,1.48056E-07_JPRB,1.49046E-07_JPRB,1.51010E-07_JPRB /)  
+
+RAYLB = (/ &
+ & 1.23766E-07_JPRB,1.40524E-07_JPRB,1.61610E-07_JPRB,1.83232E-07_JPRB, &
+ & 2.02951E-07_JPRB,2.21367E-07_JPRB,2.38367E-07_JPRB,2.53019E-07_JPRB, &
+ & 2.12202E-07_JPRB,1.36977E-07_JPRB,1.39118E-07_JPRB,1.37097E-07_JPRB, &
+ & 1.33223E-07_JPRB,1.38695E-07_JPRB,1.19868E-07_JPRB,1.20062E-07_JPRB /)  
+
+ABSO3A = (/ &
+ & 8.03067E-02_JPRB,0.180926_JPRB   ,0.227484_JPRB   ,0.168015_JPRB   , &
+ & 0.138284_JPRB   ,0.114537_JPRB   ,9.50114E-02_JPRB,8.06816E-02_JPRB, &
+ & 6.76406E-02_JPRB,5.69802E-02_JPRB,5.63283E-02_JPRB,4.57592E-02_JPRB, &
+ & 4.21862E-02_JPRB,3.47949E-02_JPRB,2.65731E-02_JPRB,2.67628E-02_JPRB /)  
+
+ABSO3B = (/ &
+ & 2.94848E-02_JPRB,4.33642E-02_JPRB,6.70197E-02_JPRB,0.104990_JPRB   , &
+ & 0.156180_JPRB   ,0.214638_JPRB   ,0.266281_JPRB   ,0.317941_JPRB   , &
+ & 0.355327_JPRB   ,0.371241_JPRB   ,0.374396_JPRB   ,0.326847_JPRB   , &
+ & 0.126497_JPRB   ,6.95264E-02_JPRB,2.58175E-02_JPRB,2.52862E-02_JPRB /)  
+
+STRRAT = 0.124692_JPRB
+
+LAYREFFR = 1
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.73110E-09_JPRB,0.95257E-08_JPRB,0.84454E-08_JPRB,0.69367E-08_JPRB,0.55267E-08_JPRB, &
+ & 0.41107E-08_JPRB,0.32800E-08_JPRB,0.33548E-08_JPRB,0.22111E-08_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.71850E-09_JPRB,0.98856E-08_JPRB,0.88084E-08_JPRB,0.72442E-08_JPRB,0.57586E-08_JPRB, &
+ & 0.43475E-08_JPRB,0.34021E-08_JPRB,0.32425E-08_JPRB,0.21911E-08_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.57048E-09_JPRB,0.11944E-07_JPRB,0.10693E-07_JPRB,0.91787E-08_JPRB,0.75423E-08_JPRB, &
+ & 0.56949E-08_JPRB,0.43124E-08_JPRB,0.42335E-08_JPRB,0.57788E-08_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.45283E-09_JPRB,0.10517E-07_JPRB,0.93142E-08_JPRB,0.77267E-08_JPRB,0.61927E-08_JPRB, &
+ & 0.47485E-08_JPRB,0.34557E-08_JPRB,0.32691E-08_JPRB,0.21836E-08_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.40037E-09_JPRB,0.10599E-07_JPRB,0.93529E-08_JPRB,0.78411E-08_JPRB,0.63421E-08_JPRB, &
+ & 0.49082E-08_JPRB,0.36312E-08_JPRB,0.32874E-08_JPRB,0.21861E-08_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.77671E-09_JPRB,0.11163E-07_JPRB,0.95032E-08_JPRB,0.79805E-08_JPRB,0.60721E-08_JPRB, &
+ & 0.45440E-08_JPRB,0.31263E-08_JPRB,0.28631E-08_JPRB,0.19430E-08_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.85527E-09_JPRB,0.11271E-07_JPRB,0.97269E-08_JPRB,0.82280E-08_JPRB,0.62706E-08_JPRB, &
+ & 0.47926E-08_JPRB,0.32802E-08_JPRB,0.28152E-08_JPRB,0.19155E-08_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.85773E-09_JPRB,0.13292E-07_JPRB,0.11943E-07_JPRB,0.10177E-07_JPRB,0.81637E-08_JPRB, &
+ & 0.62054E-08_JPRB,0.44045E-08_JPRB,0.35504E-08_JPRB,0.48274E-08_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.76956E-09_JPRB,0.13343E-07_JPRB,0.12140E-07_JPRB,0.10403E-07_JPRB,0.83916E-08_JPRB, &
+ & 0.64414E-08_JPRB,0.46212E-08_JPRB,0.36611E-08_JPRB,0.46523E-08_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.53187E-09_JPRB,0.11759E-07_JPRB,0.10564E-07_JPRB,0.89416E-08_JPRB,0.69566E-08_JPRB, &
+ & 0.54336E-08_JPRB,0.36797E-08_JPRB,0.28238E-08_JPRB,0.18838E-08_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.99065E-09_JPRB,0.13223E-07_JPRB,0.11222E-07_JPRB,0.94282E-08_JPRB,0.74664E-08_JPRB, &
+ & 0.54084E-08_JPRB,0.35205E-08_JPRB,0.24806E-08_JPRB,0.20205E-08_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.98793E-09_JPRB,0.13673E-07_JPRB,0.11444E-07_JPRB,0.96735E-08_JPRB,0.76364E-08_JPRB, &
+ & 0.55809E-08_JPRB,0.37259E-08_JPRB,0.25419E-08_JPRB,0.20086E-08_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.10274E-08_JPRB,0.14243E-07_JPRB,0.12051E-07_JPRB,0.10168E-07_JPRB,0.80110E-08_JPRB, &
+ & 0.59129E-08_JPRB,0.38720E-08_JPRB,0.26806E-08_JPRB,0.19959E-08_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.10879E-08_JPRB,0.15991E-07_JPRB,0.14290E-07_JPRB,0.12193E-07_JPRB,0.99943E-08_JPRB, &
+ & 0.76411E-08_JPRB,0.49949E-08_JPRB,0.32117E-08_JPRB,0.45196E-08_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.10733E-08_JPRB,0.14460E-07_JPRB,0.12483E-07_JPRB,0.10703E-07_JPRB,0.84924E-08_JPRB, &
+ & 0.62896E-08_JPRB,0.42753E-08_JPRB,0.27408E-08_JPRB,0.19679E-08_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.11948E-08_JPRB,0.15804E-07_JPRB,0.13423E-07_JPRB,0.10964E-07_JPRB,0.86345E-08_JPRB, &
+ & 0.61421E-08_JPRB,0.39130E-08_JPRB,0.24271E-08_JPRB,0.26282E-08_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.12796E-08_JPRB,0.16985E-07_JPRB,0.14121E-07_JPRB,0.11784E-07_JPRB,0.93415E-08_JPRB, &
+ & 0.67310E-08_JPRB,0.43124E-08_JPRB,0.25170E-08_JPRB,0.26033E-08_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.12903E-08_JPRB,0.17863E-07_JPRB,0.14703E-07_JPRB,0.12387E-07_JPRB,0.99243E-08_JPRB, &
+ & 0.72283E-08_JPRB,0.46892E-08_JPRB,0.26092E-08_JPRB,0.25739E-08_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.13030E-08_JPRB,0.17982E-07_JPRB,0.14488E-07_JPRB,0.12389E-07_JPRB,0.10284E-07_JPRB, &
+ & 0.76192E-08_JPRB,0.50049E-08_JPRB,0.27184E-08_JPRB,0.25450E-08_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.13295E-08_JPRB,0.20084E-07_JPRB,0.17213E-07_JPRB,0.15086E-07_JPRB,0.12255E-07_JPRB, &
+ & 0.93192E-08_JPRB,0.61747E-08_JPRB,0.34151E-08_JPRB,0.50409E-08_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.14930E-08_JPRB,0.19740E-07_JPRB,0.16353E-07_JPRB,0.13382E-07_JPRB,0.10370E-07_JPRB, &
+ & 0.76167E-08_JPRB,0.46913E-08_JPRB,0.23740E-08_JPRB,0.37254E-08_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.15750E-08_JPRB,0.20826E-07_JPRB,0.17352E-07_JPRB,0.14080E-07_JPRB,0.11109E-07_JPRB, &
+ & 0.82293E-08_JPRB,0.51142E-08_JPRB,0.25900E-08_JPRB,0.36977E-08_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.16427E-08_JPRB,0.22313E-07_JPRB,0.18005E-07_JPRB,0.14545E-07_JPRB,0.11545E-07_JPRB, &
+ & 0.85987E-08_JPRB,0.53849E-08_JPRB,0.27523E-08_JPRB,0.36628E-08_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.17106E-08_JPRB,0.23821E-07_JPRB,0.18882E-07_JPRB,0.15226E-07_JPRB,0.12313E-07_JPRB, &
+ & 0.92367E-08_JPRB,0.58646E-08_JPRB,0.29020E-08_JPRB,0.36336E-08_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.17465E-08_JPRB,0.26750E-07_JPRB,0.22103E-07_JPRB,0.18690E-07_JPRB,0.15320E-07_JPRB, &
+ & 0.11508E-07_JPRB,0.77281E-08_JPRB,0.34929E-08_JPRB,0.69801E-08_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.17561E-08_JPRB,0.17298E-07_JPRB,0.18888E-07_JPRB,0.16164E-07_JPRB,0.12676E-07_JPRB, &
+ & 0.91128E-08_JPRB,0.57292E-08_JPRB,0.25945E-08_JPRB,0.52718E-08_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.19997E-08_JPRB,0.20866E-07_JPRB,0.20612E-07_JPRB,0.17467E-07_JPRB,0.13431E-07_JPRB, &
+ & 0.96178E-08_JPRB,0.60009E-08_JPRB,0.28959E-08_JPRB,0.52609E-08_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.21808E-08_JPRB,0.24689E-07_JPRB,0.22590E-07_JPRB,0.18672E-07_JPRB,0.14573E-07_JPRB, &
+ & 0.10599E-07_JPRB,0.66802E-08_JPRB,0.31104E-08_JPRB,0.52649E-08_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.22321E-08_JPRB,0.28043E-07_JPRB,0.23802E-07_JPRB,0.19473E-07_JPRB,0.15182E-07_JPRB, &
+ & 0.11372E-07_JPRB,0.73223E-08_JPRB,0.34820E-08_JPRB,0.52977E-08_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.23033E-08_JPRB,0.30784E-07_JPRB,0.25188E-07_JPRB,0.20376E-07_JPRB,0.16019E-07_JPRB, &
+ & 0.12009E-07_JPRB,0.77933E-08_JPRB,0.37322E-08_JPRB,0.52777E-08_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.22679E-08_JPRB,0.13507E-07_JPRB,0.20320E-07_JPRB,0.19549E-07_JPRB,0.15905E-07_JPRB, &
+ & 0.11277E-07_JPRB,0.68710E-08_JPRB,0.29328E-08_JPRB,0.79703E-08_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.25718E-08_JPRB,0.16957E-07_JPRB,0.24375E-07_JPRB,0.21175E-07_JPRB,0.17080E-07_JPRB, &
+ & 0.12233E-07_JPRB,0.77114E-08_JPRB,0.34113E-08_JPRB,0.79963E-08_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.27598E-08_JPRB,0.19896E-07_JPRB,0.28092E-07_JPRB,0.23059E-07_JPRB,0.18272E-07_JPRB, &
+ & 0.13117E-07_JPRB,0.84449E-08_JPRB,0.37817E-08_JPRB,0.79824E-08_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.28979E-08_JPRB,0.22997E-07_JPRB,0.29556E-07_JPRB,0.24211E-07_JPRB,0.19134E-07_JPRB, &
+ & 0.13799E-07_JPRB,0.90980E-08_JPRB,0.41849E-08_JPRB,0.79622E-08_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.31158E-08_JPRB,0.26193E-07_JPRB,0.32426E-07_JPRB,0.25685E-07_JPRB,0.19970E-07_JPRB, &
+ & 0.14504E-07_JPRB,0.96379E-08_JPRB,0.45034E-08_JPRB,0.78914E-08_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.27286E-08_JPRB,0.10085E-07_JPRB,0.15014E-07_JPRB,0.19090E-07_JPRB,0.19831E-07_JPRB, &
+ & 0.15054E-07_JPRB,0.91059E-08_JPRB,0.39324E-08_JPRB,0.14155E-07_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.30146E-08_JPRB,0.12680E-07_JPRB,0.19259E-07_JPRB,0.23896E-07_JPRB,0.21584E-07_JPRB, &
+ & 0.16217E-07_JPRB,0.99712E-08_JPRB,0.44108E-08_JPRB,0.14243E-07_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.35571E-08_JPRB,0.15989E-07_JPRB,0.23328E-07_JPRB,0.28003E-07_JPRB,0.22999E-07_JPRB, &
+ & 0.17316E-07_JPRB,0.10856E-07_JPRB,0.49279E-08_JPRB,0.13770E-07_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.40065E-08_JPRB,0.19481E-07_JPRB,0.27247E-07_JPRB,0.30922E-07_JPRB,0.24592E-07_JPRB, &
+ & 0.18005E-07_JPRB,0.11331E-07_JPRB,0.53242E-08_JPRB,0.13758E-07_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.44047E-08_JPRB,0.23368E-07_JPRB,0.31337E-07_JPRB,0.33478E-07_JPRB,0.26467E-07_JPRB, &
+ & 0.19093E-07_JPRB,0.12194E-07_JPRB,0.56088E-08_JPRB,0.13665E-07_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.32692E-08_JPRB,0.79127E-08_JPRB,0.11108E-07_JPRB,0.13962E-07_JPRB,0.15949E-07_JPRB, &
+ & 0.18125E-07_JPRB,0.12367E-07_JPRB,0.53666E-08_JPRB,0.28048E-07_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.39872E-08_JPRB,0.10056E-07_JPRB,0.14185E-07_JPRB,0.17838E-07_JPRB,0.20262E-07_JPRB, &
+ & 0.19824E-07_JPRB,0.13459E-07_JPRB,0.59111E-08_JPRB,0.29491E-07_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.46117E-08_JPRB,0.12472E-07_JPRB,0.17902E-07_JPRB,0.22130E-07_JPRB,0.25362E-07_JPRB, &
+ & 0.21745E-07_JPRB,0.14226E-07_JPRB,0.62741E-08_JPRB,0.30373E-07_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.52024E-08_JPRB,0.15275E-07_JPRB,0.21923E-07_JPRB,0.27295E-07_JPRB,0.30210E-07_JPRB, &
+ & 0.23240E-07_JPRB,0.15087E-07_JPRB,0.66869E-08_JPRB,0.31196E-07_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.56198E-08_JPRB,0.17975E-07_JPRB,0.26684E-07_JPRB,0.30762E-07_JPRB,0.34012E-07_JPRB, &
+ & 0.25509E-07_JPRB,0.16208E-07_JPRB,0.72951E-08_JPRB,0.31583E-07_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.48178E-08_JPRB,0.70531E-08_JPRB,0.93321E-08_JPRB,0.10834E-07_JPRB,0.12386E-07_JPRB, &
+ & 0.13718E-07_JPRB,0.14795E-07_JPRB,0.73464E-08_JPRB,0.35934E-07_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.55752E-08_JPRB,0.86985E-08_JPRB,0.11492E-07_JPRB,0.13823E-07_JPRB,0.15291E-07_JPRB, &
+ & 0.17278E-07_JPRB,0.18153E-07_JPRB,0.81439E-08_JPRB,0.37177E-07_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.63274E-08_JPRB,0.10735E-07_JPRB,0.13985E-07_JPRB,0.17136E-07_JPRB,0.19303E-07_JPRB, &
+ & 0.20940E-07_JPRB,0.20044E-07_JPRB,0.88008E-08_JPRB,0.38431E-07_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.70007E-08_JPRB,0.12858E-07_JPRB,0.17195E-07_JPRB,0.20946E-07_JPRB,0.23543E-07_JPRB, &
+ & 0.25732E-07_JPRB,0.21748E-07_JPRB,0.95846E-08_JPRB,0.39768E-07_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.75858E-08_JPRB,0.15576E-07_JPRB,0.20803E-07_JPRB,0.25331E-07_JPRB,0.28222E-07_JPRB, &
+ & 0.30974E-07_JPRB,0.23346E-07_JPRB,0.10532E-07_JPRB,0.41126E-07_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.71066E-08_JPRB,0.91105E-08_JPRB,0.91823E-08_JPRB,0.10078E-07_JPRB,0.11080E-07_JPRB, &
+ & 0.11808E-07_JPRB,0.12592E-07_JPRB,0.10585E-07_JPRB,0.36646E-07_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.75651E-08_JPRB,0.10196E-07_JPRB,0.11288E-07_JPRB,0.12341E-07_JPRB,0.13264E-07_JPRB, &
+ & 0.14635E-07_JPRB,0.15304E-07_JPRB,0.12113E-07_JPRB,0.37821E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 3,11, 1) = (/ &
+ & 0.84521E-08_JPRB,0.11641E-07_JPRB,0.13494E-07_JPRB,0.15134E-07_JPRB,0.16494E-07_JPRB, &
+ & 0.17667E-07_JPRB,0.18637E-07_JPRB,0.13998E-07_JPRB,0.39151E-07_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.96535E-08_JPRB,0.13091E-07_JPRB,0.16210E-07_JPRB,0.18132E-07_JPRB,0.20108E-07_JPRB, &
+ & 0.21506E-07_JPRB,0.22578E-07_JPRB,0.15372E-07_JPRB,0.40534E-07_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.10866E-07_JPRB,0.15259E-07_JPRB,0.19222E-07_JPRB,0.21816E-07_JPRB,0.23808E-07_JPRB, &
+ & 0.25779E-07_JPRB,0.26640E-07_JPRB,0.16560E-07_JPRB,0.41783E-07_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.80834E-08_JPRB,0.10420E-07_JPRB,0.92387E-08_JPRB,0.95448E-08_JPRB,0.10004E-07_JPRB, &
+ & 0.10210E-07_JPRB,0.10715E-07_JPRB,0.12956E-07_JPRB,0.37307E-07_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.93300E-08_JPRB,0.11721E-07_JPRB,0.10935E-07_JPRB,0.11240E-07_JPRB,0.12099E-07_JPRB, &
+ & 0.12529E-07_JPRB,0.12978E-07_JPRB,0.14968E-07_JPRB,0.38619E-07_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.10509E-07_JPRB,0.12830E-07_JPRB,0.12793E-07_JPRB,0.13649E-07_JPRB,0.14634E-07_JPRB, &
+ & 0.15024E-07_JPRB,0.15635E-07_JPRB,0.17087E-07_JPRB,0.40001E-07_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.11973E-07_JPRB,0.14173E-07_JPRB,0.14811E-07_JPRB,0.16236E-07_JPRB,0.17652E-07_JPRB, &
+ & 0.18139E-07_JPRB,0.18897E-07_JPRB,0.19167E-07_JPRB,0.41426E-07_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.13412E-07_JPRB,0.16145E-07_JPRB,0.17438E-07_JPRB,0.18946E-07_JPRB,0.20873E-07_JPRB, &
+ & 0.21649E-07_JPRB,0.22446E-07_JPRB,0.20222E-07_JPRB,0.42866E-07_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.96752E-08_JPRB,0.12525E-07_JPRB,0.10944E-07_JPRB,0.96402E-08_JPRB,0.92613E-08_JPRB, &
+ & 0.89183E-08_JPRB,0.91757E-08_JPRB,0.10962E-07_JPRB,0.37700E-07_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.10573E-07_JPRB,0.14013E-07_JPRB,0.12095E-07_JPRB,0.11243E-07_JPRB,0.11108E-07_JPRB, &
+ & 0.10880E-07_JPRB,0.11099E-07_JPRB,0.12700E-07_JPRB,0.39054E-07_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.12096E-07_JPRB,0.15476E-07_JPRB,0.13719E-07_JPRB,0.13357E-07_JPRB,0.13060E-07_JPRB, &
+ & 0.13122E-07_JPRB,0.13232E-07_JPRB,0.14320E-07_JPRB,0.40767E-07_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.13461E-07_JPRB,0.16674E-07_JPRB,0.15454E-07_JPRB,0.15611E-07_JPRB,0.15616E-07_JPRB, &
+ & 0.15505E-07_JPRB,0.16233E-07_JPRB,0.16510E-07_JPRB,0.42192E-07_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.14863E-07_JPRB,0.17307E-07_JPRB,0.17245E-07_JPRB,0.18041E-07_JPRB,0.18314E-07_JPRB, &
+ & 0.18445E-07_JPRB,0.19222E-07_JPRB,0.18635E-07_JPRB,0.43353E-07_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.11698E-08_JPRB,0.30848E-07_JPRB,0.36454E-07_JPRB,0.38710E-07_JPRB,0.45901E-07_JPRB, &
+ & 0.55227E-07_JPRB,0.66976E-07_JPRB,0.88407E-07_JPRB,0.23422E-07_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.11855E-08_JPRB,0.31924E-07_JPRB,0.37139E-07_JPRB,0.40576E-07_JPRB,0.48515E-07_JPRB, &
+ & 0.57453E-07_JPRB,0.68267E-07_JPRB,0.87661E-07_JPRB,0.23548E-07_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.14595E-08_JPRB,0.39594E-07_JPRB,0.49562E-07_JPRB,0.62806E-07_JPRB,0.77187E-07_JPRB, &
+ & 0.93412E-07_JPRB,0.11204E-06_JPRB,0.13944E-06_JPRB,0.36327E-07_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.16033E-08_JPRB,0.32903E-07_JPRB,0.39616E-07_JPRB,0.43600E-07_JPRB,0.51878E-07_JPRB, &
+ & 0.61189E-07_JPRB,0.71838E-07_JPRB,0.88579E-07_JPRB,0.23754E-07_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.16713E-08_JPRB,0.33816E-07_JPRB,0.40271E-07_JPRB,0.44761E-07_JPRB,0.53112E-07_JPRB, &
+ & 0.62817E-07_JPRB,0.73214E-07_JPRB,0.89918E-07_JPRB,0.23712E-07_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.14413E-08_JPRB,0.29542E-07_JPRB,0.33672E-07_JPRB,0.38233E-07_JPRB,0.38429E-07_JPRB, &
+ & 0.45175E-07_JPRB,0.55138E-07_JPRB,0.73579E-07_JPRB,0.25050E-07_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.13819E-08_JPRB,0.33839E-07_JPRB,0.35660E-07_JPRB,0.39637E-07_JPRB,0.40862E-07_JPRB, &
+ & 0.47496E-07_JPRB,0.56716E-07_JPRB,0.72256E-07_JPRB,0.25722E-07_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.14034E-08_JPRB,0.38888E-07_JPRB,0.49224E-07_JPRB,0.54694E-07_JPRB,0.64529E-07_JPRB, &
+ & 0.76758E-07_JPRB,0.91615E-07_JPRB,0.11521E-06_JPRB,0.39473E-07_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.15427E-08_JPRB,0.40736E-07_JPRB,0.49562E-07_JPRB,0.55626E-07_JPRB,0.65520E-07_JPRB, &
+ & 0.77421E-07_JPRB,0.92434E-07_JPRB,0.11487E-06_JPRB,0.39089E-07_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.19146E-08_JPRB,0.37020E-07_JPRB,0.37998E-07_JPRB,0.40828E-07_JPRB,0.46417E-07_JPRB, &
+ & 0.52511E-07_JPRB,0.60306E-07_JPRB,0.73583E-07_JPRB,0.26882E-07_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.16720E-08_JPRB,0.23360E-07_JPRB,0.34106E-07_JPRB,0.35883E-07_JPRB,0.37371E-07_JPRB, &
+ & 0.37719E-07_JPRB,0.44564E-07_JPRB,0.59521E-07_JPRB,0.60171E-07_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.17699E-08_JPRB,0.26546E-07_JPRB,0.36000E-07_JPRB,0.36846E-07_JPRB,0.38381E-07_JPRB, &
+ & 0.39667E-07_JPRB,0.46368E-07_JPRB,0.60306E-07_JPRB,0.60604E-07_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.18009E-08_JPRB,0.29450E-07_JPRB,0.37614E-07_JPRB,0.38630E-07_JPRB,0.39041E-07_JPRB, &
+ & 0.41600E-07_JPRB,0.48142E-07_JPRB,0.59638E-07_JPRB,0.61274E-07_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.18222E-08_JPRB,0.39219E-07_JPRB,0.48109E-07_JPRB,0.53485E-07_JPRB,0.57150E-07_JPRB, &
+ & 0.64444E-07_JPRB,0.75574E-07_JPRB,0.94813E-07_JPRB,0.76759E-07_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.18210E-08_JPRB,0.34020E-07_JPRB,0.40366E-07_JPRB,0.41710E-07_JPRB,0.42164E-07_JPRB, &
+ & 0.45001E-07_JPRB,0.49878E-07_JPRB,0.60009E-07_JPRB,0.61481E-07_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.21152E-08_JPRB,0.23706E-07_JPRB,0.29784E-07_JPRB,0.35302E-07_JPRB,0.35282E-07_JPRB, &
+ & 0.34361E-07_JPRB,0.35938E-07_JPRB,0.47065E-07_JPRB,0.17050E-06_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.22014E-08_JPRB,0.24318E-07_JPRB,0.33239E-07_JPRB,0.37390E-07_JPRB,0.36975E-07_JPRB, &
+ & 0.35774E-07_JPRB,0.38207E-07_JPRB,0.49025E-07_JPRB,0.17312E-06_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.21940E-08_JPRB,0.26005E-07_JPRB,0.37067E-07_JPRB,0.38353E-07_JPRB,0.38894E-07_JPRB, &
+ & 0.37527E-07_JPRB,0.40105E-07_JPRB,0.50082E-07_JPRB,0.17777E-06_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.23140E-08_JPRB,0.28378E-07_JPRB,0.41743E-07_JPRB,0.40523E-07_JPRB,0.40492E-07_JPRB, &
+ & 0.38652E-07_JPRB,0.40876E-07_JPRB,0.49640E-07_JPRB,0.18336E-06_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.23213E-08_JPRB,0.34154E-07_JPRB,0.50461E-07_JPRB,0.52357E-07_JPRB,0.54187E-07_JPRB, &
+ & 0.57113E-07_JPRB,0.62843E-07_JPRB,0.77605E-07_JPRB,0.21695E-06_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.26738E-08_JPRB,0.26329E-07_JPRB,0.23971E-07_JPRB,0.31112E-07_JPRB,0.35671E-07_JPRB, &
+ & 0.34087E-07_JPRB,0.29799E-07_JPRB,0.37789E-07_JPRB,0.52514E-06_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.25455E-08_JPRB,0.28564E-07_JPRB,0.26376E-07_JPRB,0.34876E-07_JPRB,0.38195E-07_JPRB, &
+ & 0.36126E-07_JPRB,0.31889E-07_JPRB,0.38787E-07_JPRB,0.53894E-06_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.27955E-08_JPRB,0.30168E-07_JPRB,0.29598E-07_JPRB,0.39256E-07_JPRB,0.39488E-07_JPRB, &
+ & 0.38121E-07_JPRB,0.34110E-07_JPRB,0.40225E-07_JPRB,0.55617E-06_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.30518E-08_JPRB,0.31696E-07_JPRB,0.32642E-07_JPRB,0.43581E-07_JPRB,0.40810E-07_JPRB, &
+ & 0.38887E-07_JPRB,0.35568E-07_JPRB,0.41837E-07_JPRB,0.57141E-06_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.29545E-08_JPRB,0.34626E-07_JPRB,0.42873E-07_JPRB,0.52742E-07_JPRB,0.53043E-07_JPRB, &
+ & 0.52428E-07_JPRB,0.54304E-07_JPRB,0.64247E-07_JPRB,0.63906E-06_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.30127E-08_JPRB,0.42606E-07_JPRB,0.28980E-07_JPRB,0.24923E-07_JPRB,0.29265E-07_JPRB, &
+ & 0.34534E-07_JPRB,0.31090E-07_JPRB,0.30814E-07_JPRB,0.12844E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.33504E-08_JPRB,0.42102E-07_JPRB,0.30491E-07_JPRB,0.27666E-07_JPRB,0.33477E-07_JPRB, &
+ & 0.35643E-07_JPRB,0.33324E-07_JPRB,0.31448E-07_JPRB,0.13231E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.37714E-08_JPRB,0.40516E-07_JPRB,0.32080E-07_JPRB,0.30623E-07_JPRB,0.37391E-07_JPRB, &
+ & 0.37255E-07_JPRB,0.35144E-07_JPRB,0.32296E-07_JPRB,0.13598E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.40809E-08_JPRB,0.41419E-07_JPRB,0.33638E-07_JPRB,0.33756E-07_JPRB,0.41072E-07_JPRB, &
+ & 0.38814E-07_JPRB,0.36264E-07_JPRB,0.33664E-07_JPRB,0.13955E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.38112E-08_JPRB,0.42764E-07_JPRB,0.35694E-07_JPRB,0.36747E-07_JPRB,0.45193E-07_JPRB, &
+ & 0.40460E-07_JPRB,0.37371E-07_JPRB,0.35107E-07_JPRB,0.14282E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.36577E-08_JPRB,0.64857E-07_JPRB,0.37268E-07_JPRB,0.28977E-07_JPRB,0.24480E-07_JPRB, &
+ & 0.26864E-07_JPRB,0.30486E-07_JPRB,0.25122E-07_JPRB,0.20521E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.39427E-08_JPRB,0.65731E-07_JPRB,0.37248E-07_JPRB,0.30585E-07_JPRB,0.26773E-07_JPRB, &
+ & 0.30114E-07_JPRB,0.31576E-07_JPRB,0.26187E-07_JPRB,0.21480E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.43811E-08_JPRB,0.66809E-07_JPRB,0.38170E-07_JPRB,0.32043E-07_JPRB,0.28837E-07_JPRB, &
+ & 0.34005E-07_JPRB,0.32765E-07_JPRB,0.27322E-07_JPRB,0.22122E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.46591E-08_JPRB,0.68244E-07_JPRB,0.41020E-07_JPRB,0.34183E-07_JPRB,0.31347E-07_JPRB, &
+ & 0.37946E-07_JPRB,0.34473E-07_JPRB,0.28264E-07_JPRB,0.22876E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.51635E-08_JPRB,0.69768E-07_JPRB,0.42241E-07_JPRB,0.36125E-07_JPRB,0.34689E-07_JPRB, &
+ & 0.41422E-07_JPRB,0.36208E-07_JPRB,0.29319E-07_JPRB,0.23528E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.48063E-08_JPRB,0.99492E-07_JPRB,0.67977E-07_JPRB,0.40583E-07_JPRB,0.27462E-07_JPRB, &
+ & 0.23261E-07_JPRB,0.24790E-07_JPRB,0.24175E-07_JPRB,0.34404E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.46794E-08_JPRB,0.10207E-06_JPRB,0.68838E-07_JPRB,0.41170E-07_JPRB,0.30068E-07_JPRB, &
+ & 0.24536E-07_JPRB,0.27696E-07_JPRB,0.25318E-07_JPRB,0.35579E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.51560E-08_JPRB,0.10436E-06_JPRB,0.69782E-07_JPRB,0.42105E-07_JPRB,0.32065E-07_JPRB, &
+ & 0.26776E-07_JPRB,0.30613E-07_JPRB,0.26859E-07_JPRB,0.36807E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.59944E-08_JPRB,0.10484E-06_JPRB,0.71027E-07_JPRB,0.44319E-07_JPRB,0.34843E-07_JPRB, &
+ & 0.29788E-07_JPRB,0.33876E-07_JPRB,0.28922E-07_JPRB,0.37740E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.64682E-08_JPRB,0.10541E-06_JPRB,0.71736E-07_JPRB,0.46124E-07_JPRB,0.36934E-07_JPRB, &
+ & 0.32173E-07_JPRB,0.36502E-07_JPRB,0.30991E-07_JPRB,0.38805E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.56433E-08_JPRB,0.13757E-06_JPRB,0.10641E-06_JPRB,0.72870E-07_JPRB,0.43453E-07_JPRB, &
+ & 0.25530E-07_JPRB,0.19778E-07_JPRB,0.25383E-07_JPRB,0.95912E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.61882E-08_JPRB,0.14041E-06_JPRB,0.11046E-06_JPRB,0.75424E-07_JPRB,0.44204E-07_JPRB, &
+ & 0.28513E-07_JPRB,0.22344E-07_JPRB,0.27258E-07_JPRB,0.98257E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.68724E-08_JPRB,0.14355E-06_JPRB,0.11272E-06_JPRB,0.76977E-07_JPRB,0.44934E-07_JPRB, &
+ & 0.30972E-07_JPRB,0.24609E-07_JPRB,0.29074E-07_JPRB,0.10035E-04_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.75288E-08_JPRB,0.14628E-06_JPRB,0.11397E-06_JPRB,0.77508E-07_JPRB,0.45913E-07_JPRB, &
+ & 0.33498E-07_JPRB,0.27308E-07_JPRB,0.31237E-07_JPRB,0.10206E-04_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.82361E-08_JPRB,0.14989E-06_JPRB,0.11575E-06_JPRB,0.78052E-07_JPRB,0.47282E-07_JPRB, &
+ & 0.34986E-07_JPRB,0.29571E-07_JPRB,0.31933E-07_JPRB,0.10332E-04_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.80705E-08_JPRB,0.18916E-06_JPRB,0.16332E-06_JPRB,0.12182E-06_JPRB,0.80167E-07_JPRB, &
+ & 0.44659E-07_JPRB,0.24027E-07_JPRB,0.20514E-07_JPRB,0.18076E-04_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.86522E-08_JPRB,0.19825E-06_JPRB,0.16839E-06_JPRB,0.12817E-06_JPRB,0.85984E-07_JPRB, &
+ & 0.48117E-07_JPRB,0.24937E-07_JPRB,0.22855E-07_JPRB,0.18392E-04_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.93838E-08_JPRB,0.20474E-06_JPRB,0.17472E-06_JPRB,0.13185E-06_JPRB,0.89897E-07_JPRB, &
+ & 0.50484E-07_JPRB,0.27069E-07_JPRB,0.24729E-07_JPRB,0.18827E-04_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.10442E-07_JPRB,0.21110E-06_JPRB,0.17958E-06_JPRB,0.13546E-06_JPRB,0.92462E-07_JPRB, &
+ & 0.51368E-07_JPRB,0.29958E-07_JPRB,0.26382E-07_JPRB,0.19325E-04_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.11203E-07_JPRB,0.21676E-06_JPRB,0.18359E-06_JPRB,0.14012E-06_JPRB,0.94090E-07_JPRB, &
+ & 0.51431E-07_JPRB,0.32637E-07_JPRB,0.27900E-07_JPRB,0.19654E-04_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.10898E-07_JPRB,0.20490E-06_JPRB,0.23352E-06_JPRB,0.18592E-06_JPRB,0.13108E-06_JPRB, &
+ & 0.82594E-07_JPRB,0.41478E-07_JPRB,0.20359E-07_JPRB,0.24656E-04_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.12100E-07_JPRB,0.21595E-06_JPRB,0.24259E-06_JPRB,0.19598E-06_JPRB,0.14307E-06_JPRB, &
+ & 0.90287E-07_JPRB,0.44897E-07_JPRB,0.21400E-07_JPRB,0.25439E-04_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.12997E-07_JPRB,0.22559E-06_JPRB,0.25028E-06_JPRB,0.20624E-06_JPRB,0.15074E-06_JPRB, &
+ & 0.95763E-07_JPRB,0.46972E-07_JPRB,0.22656E-07_JPRB,0.26128E-04_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.12774E-07_JPRB,0.23494E-06_JPRB,0.26130E-06_JPRB,0.21398E-06_JPRB,0.15730E-06_JPRB, &
+ & 0.98985E-07_JPRB,0.48309E-07_JPRB,0.24026E-07_JPRB,0.26834E-04_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.13184E-07_JPRB,0.24219E-06_JPRB,0.26811E-06_JPRB,0.22059E-06_JPRB,0.16314E-06_JPRB, &
+ & 0.10271E-06_JPRB,0.49802E-07_JPRB,0.25441E-07_JPRB,0.27644E-04_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.11394E-07_JPRB,0.19172E-06_JPRB,0.27076E-06_JPRB,0.23579E-06_JPRB,0.17648E-06_JPRB, &
+ & 0.11366E-06_JPRB,0.56463E-07_JPRB,0.20869E-07_JPRB,0.27151E-04_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.12908E-07_JPRB,0.20309E-06_JPRB,0.28462E-06_JPRB,0.24753E-06_JPRB,0.18719E-06_JPRB, &
+ & 0.12033E-06_JPRB,0.60157E-07_JPRB,0.21646E-07_JPRB,0.27962E-04_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.13752E-07_JPRB,0.21619E-06_JPRB,0.29476E-06_JPRB,0.25594E-06_JPRB,0.19641E-06_JPRB, &
+ & 0.12734E-06_JPRB,0.64272E-07_JPRB,0.22557E-07_JPRB,0.28912E-04_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.14906E-07_JPRB,0.22665E-06_JPRB,0.30298E-06_JPRB,0.26272E-06_JPRB,0.20331E-06_JPRB, &
+ & 0.13316E-06_JPRB,0.68243E-07_JPRB,0.23417E-07_JPRB,0.29816E-04_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.15969E-07_JPRB,0.23477E-06_JPRB,0.31068E-06_JPRB,0.27029E-06_JPRB,0.20850E-06_JPRB, &
+ & 0.13902E-06_JPRB,0.71857E-07_JPRB,0.25264E-07_JPRB,0.30765E-04_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.13593E-07_JPRB,0.19801E-06_JPRB,0.26490E-06_JPRB,0.27826E-06_JPRB,0.22531E-06_JPRB, &
+ & 0.15112E-06_JPRB,0.78691E-07_JPRB,0.27273E-07_JPRB,0.28055E-04_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.15426E-07_JPRB,0.20839E-06_JPRB,0.27732E-06_JPRB,0.28785E-06_JPRB,0.23371E-06_JPRB, &
+ & 0.16027E-06_JPRB,0.86131E-07_JPRB,0.29011E-07_JPRB,0.29165E-04_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.16638E-07_JPRB,0.21808E-06_JPRB,0.28896E-06_JPRB,0.29666E-06_JPRB,0.24201E-06_JPRB, &
+ & 0.16845E-06_JPRB,0.91791E-07_JPRB,0.30670E-07_JPRB,0.30372E-04_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.17929E-07_JPRB,0.22577E-06_JPRB,0.29798E-06_JPRB,0.30533E-06_JPRB,0.24895E-06_JPRB, &
+ & 0.17573E-06_JPRB,0.96085E-07_JPRB,0.31360E-07_JPRB,0.31437E-04_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.18861E-07_JPRB,0.23397E-06_JPRB,0.30715E-06_JPRB,0.31382E-06_JPRB,0.25665E-06_JPRB, &
+ & 0.18246E-06_JPRB,0.10017E-06_JPRB,0.32454E-07_JPRB,0.32266E-04_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.39751E-08_JPRB,0.10094E-06_JPRB,0.20247E-06_JPRB,0.30028E-06_JPRB,0.39102E-06_JPRB, &
+ & 0.48711E-06_JPRB,0.59106E-06_JPRB,0.72709E-06_JPRB,0.20885E-06_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.43080E-08_JPRB,0.10546E-06_JPRB,0.20982E-06_JPRB,0.31135E-06_JPRB,0.40303E-06_JPRB, &
+ & 0.49632E-06_JPRB,0.59855E-06_JPRB,0.74477E-06_JPRB,0.21012E-06_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.42986E-08_JPRB,0.15269E-06_JPRB,0.29890E-06_JPRB,0.43493E-06_JPRB,0.56429E-06_JPRB, &
+ & 0.69336E-06_JPRB,0.83181E-06_JPRB,0.10423E-05_JPRB,0.36557E-06_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.43554E-08_JPRB,0.11271E-06_JPRB,0.22069E-06_JPRB,0.32651E-06_JPRB,0.42391E-06_JPRB, &
+ & 0.51393E-06_JPRB,0.61294E-06_JPRB,0.75229E-06_JPRB,0.20945E-06_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.45047E-08_JPRB,0.11576E-06_JPRB,0.22657E-06_JPRB,0.33173E-06_JPRB,0.43142E-06_JPRB, &
+ & 0.52151E-06_JPRB,0.61871E-06_JPRB,0.74980E-06_JPRB,0.20891E-06_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.46065E-08_JPRB,0.81519E-07_JPRB,0.15960E-06_JPRB,0.23610E-06_JPRB,0.31656E-06_JPRB, &
+ & 0.39839E-06_JPRB,0.48591E-06_JPRB,0.60182E-06_JPRB,0.18230E-06_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.46837E-08_JPRB,0.82106E-07_JPRB,0.16429E-06_JPRB,0.24471E-06_JPRB,0.32626E-06_JPRB, &
+ & 0.40531E-06_JPRB,0.49330E-06_JPRB,0.61810E-06_JPRB,0.18355E-06_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.50163E-08_JPRB,0.12328E-06_JPRB,0.23602E-06_JPRB,0.35332E-06_JPRB,0.46387E-06_JPRB, &
+ & 0.57515E-06_JPRB,0.69445E-06_JPRB,0.88167E-06_JPRB,0.30546E-06_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.49809E-08_JPRB,0.12454E-06_JPRB,0.23839E-06_JPRB,0.35429E-06_JPRB,0.46515E-06_JPRB, &
+ & 0.57491E-06_JPRB,0.69031E-06_JPRB,0.86630E-06_JPRB,0.29807E-06_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.51988E-08_JPRB,0.91291E-07_JPRB,0.17869E-06_JPRB,0.26485E-06_JPRB,0.34907E-06_JPRB, &
+ & 0.42509E-06_JPRB,0.50894E-06_JPRB,0.62361E-06_JPRB,0.18234E-06_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.51916E-08_JPRB,0.88867E-07_JPRB,0.12220E-06_JPRB,0.18411E-06_JPRB,0.24720E-06_JPRB, &
+ & 0.32303E-06_JPRB,0.39526E-06_JPRB,0.49595E-06_JPRB,0.27125E-06_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.56319E-08_JPRB,0.87189E-07_JPRB,0.12678E-06_JPRB,0.19176E-06_JPRB,0.25624E-06_JPRB, &
+ & 0.32740E-06_JPRB,0.40564E-06_JPRB,0.50601E-06_JPRB,0.28010E-06_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.59026E-08_JPRB,0.86017E-07_JPRB,0.13043E-06_JPRB,0.19649E-06_JPRB,0.26497E-06_JPRB, &
+ & 0.33305E-06_JPRB,0.40679E-06_JPRB,0.51963E-06_JPRB,0.28660E-06_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.59909E-08_JPRB,0.10759E-06_JPRB,0.18790E-06_JPRB,0.28104E-06_JPRB,0.37702E-06_JPRB, &
+ & 0.47222E-06_JPRB,0.57322E-06_JPRB,0.72906E-06_JPRB,0.37657E-06_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.64422E-08_JPRB,0.89472E-07_JPRB,0.13687E-06_JPRB,0.20453E-06_JPRB,0.27802E-06_JPRB, &
+ & 0.34266E-06_JPRB,0.41565E-06_JPRB,0.51746E-06_JPRB,0.29675E-06_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.62298E-08_JPRB,0.99509E-07_JPRB,0.10306E-06_JPRB,0.14232E-06_JPRB,0.19390E-06_JPRB, &
+ & 0.25435E-06_JPRB,0.31764E-06_JPRB,0.40578E-06_JPRB,0.49031E-06_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.68419E-08_JPRB,0.10415E-06_JPRB,0.10349E-06_JPRB,0.14672E-06_JPRB,0.19860E-06_JPRB, &
+ & 0.26012E-06_JPRB,0.32720E-06_JPRB,0.41327E-06_JPRB,0.51522E-06_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.71418E-08_JPRB,0.10626E-06_JPRB,0.10522E-06_JPRB,0.15175E-06_JPRB,0.20471E-06_JPRB, &
+ & 0.26435E-06_JPRB,0.33148E-06_JPRB,0.42294E-06_JPRB,0.53456E-06_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.72470E-08_JPRB,0.10891E-06_JPRB,0.10648E-06_JPRB,0.15457E-06_JPRB,0.21007E-06_JPRB, &
+ & 0.26937E-06_JPRB,0.33376E-06_JPRB,0.42939E-06_JPRB,0.55207E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 4, 3) = (/ &
+ & 0.77585E-08_JPRB,0.12954E-06_JPRB,0.14999E-06_JPRB,0.22224E-06_JPRB,0.29994E-06_JPRB, &
+ & 0.38053E-06_JPRB,0.47027E-06_JPRB,0.60032E-06_JPRB,0.76592E-06_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.68852E-08_JPRB,0.11288E-06_JPRB,0.11969E-06_JPRB,0.11689E-06_JPRB,0.14994E-06_JPRB, &
+ & 0.19637E-06_JPRB,0.25309E-06_JPRB,0.33018E-06_JPRB,0.84551E-06_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.75119E-08_JPRB,0.11838E-06_JPRB,0.12255E-06_JPRB,0.11926E-06_JPRB,0.15341E-06_JPRB, &
+ & 0.20169E-06_JPRB,0.26231E-06_JPRB,0.33745E-06_JPRB,0.85714E-06_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.84416E-08_JPRB,0.12128E-06_JPRB,0.12324E-06_JPRB,0.12015E-06_JPRB,0.15812E-06_JPRB, &
+ & 0.20463E-06_JPRB,0.26808E-06_JPRB,0.34461E-06_JPRB,0.86734E-06_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.92293E-08_JPRB,0.12493E-06_JPRB,0.12330E-06_JPRB,0.12093E-06_JPRB,0.16146E-06_JPRB, &
+ & 0.20899E-06_JPRB,0.26904E-06_JPRB,0.35101E-06_JPRB,0.88204E-06_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.10279E-07_JPRB,0.14631E-06_JPRB,0.14078E-06_JPRB,0.17511E-06_JPRB,0.23546E-06_JPRB, &
+ & 0.30442E-06_JPRB,0.38374E-06_JPRB,0.50000E-06_JPRB,0.10431E-05_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.51921E-08_JPRB,0.14437E-06_JPRB,0.12917E-06_JPRB,0.11673E-06_JPRB,0.12444E-06_JPRB, &
+ & 0.14966E-06_JPRB,0.19338E-06_JPRB,0.26674E-06_JPRB,0.16987E-05_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.69052E-08_JPRB,0.14822E-06_JPRB,0.13564E-06_JPRB,0.12080E-06_JPRB,0.12884E-06_JPRB, &
+ & 0.15616E-06_JPRB,0.20083E-06_JPRB,0.27373E-06_JPRB,0.17147E-05_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.93932E-08_JPRB,0.15309E-06_JPRB,0.13785E-06_JPRB,0.12361E-06_JPRB,0.12904E-06_JPRB, &
+ & 0.16004E-06_JPRB,0.20790E-06_JPRB,0.27928E-06_JPRB,0.17384E-05_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.10364E-07_JPRB,0.15577E-06_JPRB,0.14281E-06_JPRB,0.12445E-06_JPRB,0.13032E-06_JPRB, &
+ & 0.16178E-06_JPRB,0.21225E-06_JPRB,0.28499E-06_JPRB,0.17733E-05_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.10950E-07_JPRB,0.15768E-06_JPRB,0.14728E-06_JPRB,0.12674E-06_JPRB,0.12961E-06_JPRB, &
+ & 0.16455E-06_JPRB,0.21080E-06_JPRB,0.28744E-06_JPRB,0.17869E-05_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.51527E-08_JPRB,0.13331E-06_JPRB,0.15220E-06_JPRB,0.13781E-06_JPRB,0.11791E-06_JPRB, &
+ & 0.12291E-06_JPRB,0.14839E-06_JPRB,0.21430E-06_JPRB,0.45802E-05_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.52409E-08_JPRB,0.14109E-06_JPRB,0.15809E-06_JPRB,0.14393E-06_JPRB,0.12362E-06_JPRB, &
+ & 0.12831E-06_JPRB,0.15572E-06_JPRB,0.22059E-06_JPRB,0.46088E-05_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.66901E-08_JPRB,0.14833E-06_JPRB,0.16524E-06_JPRB,0.14893E-06_JPRB,0.12670E-06_JPRB, &
+ & 0.13152E-06_JPRB,0.16110E-06_JPRB,0.22404E-06_JPRB,0.46200E-05_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.90836E-08_JPRB,0.15267E-06_JPRB,0.17113E-06_JPRB,0.15541E-06_JPRB,0.12966E-06_JPRB, &
+ & 0.13240E-06_JPRB,0.16410E-06_JPRB,0.22868E-06_JPRB,0.45999E-05_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.11721E-07_JPRB,0.15605E-06_JPRB,0.17580E-06_JPRB,0.16064E-06_JPRB,0.13194E-06_JPRB, &
+ & 0.13127E-06_JPRB,0.16676E-06_JPRB,0.23245E-06_JPRB,0.46103E-05_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.53770E-08_JPRB,0.12906E-06_JPRB,0.19117E-06_JPRB,0.16928E-06_JPRB,0.14454E-06_JPRB, &
+ & 0.11318E-06_JPRB,0.12091E-06_JPRB,0.16771E-06_JPRB,0.10838E-04_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.71217E-08_JPRB,0.13171E-06_JPRB,0.20115E-06_JPRB,0.17525E-06_JPRB,0.15189E-06_JPRB, &
+ & 0.11980E-06_JPRB,0.12589E-06_JPRB,0.17247E-06_JPRB,0.10844E-04_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.76051E-08_JPRB,0.13463E-06_JPRB,0.20837E-06_JPRB,0.18092E-06_JPRB,0.15831E-06_JPRB, &
+ & 0.12491E-06_JPRB,0.12782E-06_JPRB,0.17568E-06_JPRB,0.10855E-04_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.87276E-08_JPRB,0.14002E-06_JPRB,0.21488E-06_JPRB,0.18616E-06_JPRB,0.16272E-06_JPRB, &
+ & 0.12991E-06_JPRB,0.13139E-06_JPRB,0.17775E-06_JPRB,0.10873E-04_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.98102E-08_JPRB,0.14390E-06_JPRB,0.21715E-06_JPRB,0.19383E-06_JPRB,0.16843E-06_JPRB, &
+ & 0.13102E-06_JPRB,0.13320E-06_JPRB,0.18001E-06_JPRB,0.10883E-04_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.78846E-08_JPRB,0.14921E-06_JPRB,0.16266E-06_JPRB,0.21810E-06_JPRB,0.17257E-06_JPRB, &
+ & 0.13914E-06_JPRB,0.10621E-06_JPRB,0.13009E-06_JPRB,0.22193E-04_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.87670E-08_JPRB,0.15667E-06_JPRB,0.17179E-06_JPRB,0.22870E-06_JPRB,0.18453E-06_JPRB, &
+ & 0.14806E-06_JPRB,0.11198E-06_JPRB,0.13228E-06_JPRB,0.22470E-04_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.94042E-08_JPRB,0.16331E-06_JPRB,0.17929E-06_JPRB,0.23732E-06_JPRB,0.19309E-06_JPRB, &
+ & 0.15669E-06_JPRB,0.11769E-06_JPRB,0.13462E-06_JPRB,0.22759E-04_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.10052E-07_JPRB,0.16738E-06_JPRB,0.18654E-06_JPRB,0.24428E-06_JPRB,0.19714E-06_JPRB, &
+ & 0.16469E-06_JPRB,0.12194E-06_JPRB,0.13694E-06_JPRB,0.23037E-04_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.99609E-08_JPRB,0.16974E-06_JPRB,0.19096E-06_JPRB,0.25212E-06_JPRB,0.20604E-06_JPRB, &
+ & 0.17005E-06_JPRB,0.12529E-06_JPRB,0.13965E-06_JPRB,0.23331E-04_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.10600E-07_JPRB,0.19194E-06_JPRB,0.19694E-06_JPRB,0.19228E-06_JPRB,0.23306E-06_JPRB, &
+ & 0.18017E-06_JPRB,0.13563E-06_JPRB,0.11106E-06_JPRB,0.57833E-04_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.11513E-07_JPRB,0.19670E-06_JPRB,0.20600E-06_JPRB,0.20153E-06_JPRB,0.24712E-06_JPRB, &
+ & 0.19420E-06_JPRB,0.14374E-06_JPRB,0.11223E-06_JPRB,0.59252E-04_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.12267E-07_JPRB,0.20052E-06_JPRB,0.21125E-06_JPRB,0.21502E-06_JPRB,0.25879E-06_JPRB, &
+ & 0.20809E-06_JPRB,0.15257E-06_JPRB,0.11412E-06_JPRB,0.60474E-04_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.11377E-07_JPRB,0.20485E-06_JPRB,0.21479E-06_JPRB,0.22527E-06_JPRB,0.26884E-06_JPRB, &
+ & 0.21723E-06_JPRB,0.15872E-06_JPRB,0.11733E-06_JPRB,0.61380E-04_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.12141E-07_JPRB,0.20611E-06_JPRB,0.22439E-06_JPRB,0.22986E-06_JPRB,0.27411E-06_JPRB, &
+ & 0.22402E-06_JPRB,0.16342E-06_JPRB,0.11916E-06_JPRB,0.62353E-04_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.12251E-07_JPRB,0.29022E-06_JPRB,0.24496E-06_JPRB,0.24059E-06_JPRB,0.21631E-06_JPRB, &
+ & 0.23923E-06_JPRB,0.16597E-06_JPRB,0.10842E-06_JPRB,0.80074E-04_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.12224E-07_JPRB,0.29680E-06_JPRB,0.25368E-06_JPRB,0.24691E-06_JPRB,0.22294E-06_JPRB, &
+ & 0.24912E-06_JPRB,0.17747E-06_JPRB,0.10969E-06_JPRB,0.81125E-04_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.14264E-07_JPRB,0.29886E-06_JPRB,0.26040E-06_JPRB,0.25256E-06_JPRB,0.23184E-06_JPRB, &
+ & 0.25957E-06_JPRB,0.18845E-06_JPRB,0.11123E-06_JPRB,0.82960E-04_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.16608E-07_JPRB,0.30056E-06_JPRB,0.26198E-06_JPRB,0.25724E-06_JPRB,0.23897E-06_JPRB, &
+ & 0.26977E-06_JPRB,0.19716E-06_JPRB,0.11521E-06_JPRB,0.84911E-04_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.18982E-07_JPRB,0.30200E-06_JPRB,0.26559E-06_JPRB,0.26090E-06_JPRB,0.24427E-06_JPRB, &
+ & 0.27763E-06_JPRB,0.20825E-06_JPRB,0.11858E-06_JPRB,0.86586E-04_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.16186E-07_JPRB,0.36864E-06_JPRB,0.27735E-06_JPRB,0.24475E-06_JPRB,0.23659E-06_JPRB, &
+ & 0.20178E-06_JPRB,0.20651E-06_JPRB,0.11504E-06_JPRB,0.90323E-04_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.16900E-07_JPRB,0.36903E-06_JPRB,0.27865E-06_JPRB,0.25015E-06_JPRB,0.24279E-06_JPRB, &
+ & 0.21379E-06_JPRB,0.22149E-06_JPRB,0.12739E-06_JPRB,0.92788E-04_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.18900E-07_JPRB,0.36546E-06_JPRB,0.28369E-06_JPRB,0.25919E-06_JPRB,0.24650E-06_JPRB, &
+ & 0.22349E-06_JPRB,0.23741E-06_JPRB,0.13455E-06_JPRB,0.94381E-04_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.24666E-07_JPRB,0.36289E-06_JPRB,0.28992E-06_JPRB,0.26755E-06_JPRB,0.25261E-06_JPRB, &
+ & 0.23012E-06_JPRB,0.24862E-06_JPRB,0.14012E-06_JPRB,0.95689E-04_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.28047E-07_JPRB,0.36144E-06_JPRB,0.29439E-06_JPRB,0.27280E-06_JPRB,0.25910E-06_JPRB, &
+ & 0.23527E-06_JPRB,0.25804E-06_JPRB,0.14441E-06_JPRB,0.97273E-04_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.27099E-07_JPRB,0.42452E-06_JPRB,0.36469E-06_JPRB,0.28012E-06_JPRB,0.24206E-06_JPRB, &
+ & 0.21452E-06_JPRB,0.19737E-06_JPRB,0.12552E-06_JPRB,0.93221E-04_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.30641E-07_JPRB,0.42348E-06_JPRB,0.36821E-06_JPRB,0.29049E-06_JPRB,0.25191E-06_JPRB, &
+ & 0.22447E-06_JPRB,0.20459E-06_JPRB,0.13174E-06_JPRB,0.95326E-04_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.31538E-07_JPRB,0.42218E-06_JPRB,0.36978E-06_JPRB,0.29801E-06_JPRB,0.26042E-06_JPRB, &
+ & 0.23413E-06_JPRB,0.21354E-06_JPRB,0.13999E-06_JPRB,0.97244E-04_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.33087E-07_JPRB,0.42233E-06_JPRB,0.36980E-06_JPRB,0.30223E-06_JPRB,0.26697E-06_JPRB, &
+ & 0.24077E-06_JPRB,0.22289E-06_JPRB,0.14849E-06_JPRB,0.99282E-04_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.35771E-07_JPRB,0.42124E-06_JPRB,0.36949E-06_JPRB,0.30814E-06_JPRB,0.27423E-06_JPRB, &
+ & 0.24510E-06_JPRB,0.22998E-06_JPRB,0.15431E-06_JPRB,0.10189E-03_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.60599E-08_JPRB,0.49839E-06_JPRB,0.90796E-06_JPRB,0.12825E-05_JPRB,0.16387E-05_JPRB, &
+ & 0.20000E-05_JPRB,0.24097E-05_JPRB,0.30198E-05_JPRB,0.14012E-05_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.57361E-08_JPRB,0.51373E-06_JPRB,0.93344E-06_JPRB,0.13150E-05_JPRB,0.16776E-05_JPRB, &
+ & 0.20412E-05_JPRB,0.24476E-05_JPRB,0.30155E-05_JPRB,0.14079E-05_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.61895E-08_JPRB,0.64074E-06_JPRB,0.11706E-05_JPRB,0.16523E-05_JPRB,0.21138E-05_JPRB, &
+ & 0.25765E-05_JPRB,0.30714E-05_JPRB,0.37148E-05_JPRB,0.20046E-05_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.63590E-08_JPRB,0.53918E-06_JPRB,0.97233E-06_JPRB,0.13614E-05_JPRB,0.17274E-05_JPRB, &
+ & 0.21018E-05_JPRB,0.24992E-05_JPRB,0.30391E-05_JPRB,0.14106E-05_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.66907E-08_JPRB,0.54769E-06_JPRB,0.98459E-06_JPRB,0.13756E-05_JPRB,0.17428E-05_JPRB, &
+ & 0.21216E-05_JPRB,0.25190E-05_JPRB,0.30528E-05_JPRB,0.14057E-05_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.63247E-08_JPRB,0.40976E-06_JPRB,0.75743E-06_JPRB,0.10729E-05_JPRB,0.13776E-05_JPRB, &
+ & 0.16847E-05_JPRB,0.20386E-05_JPRB,0.25923E-05_JPRB,0.11016E-05_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.71971E-08_JPRB,0.42277E-06_JPRB,0.77866E-06_JPRB,0.11006E-05_JPRB,0.14075E-05_JPRB, &
+ & 0.17208E-05_JPRB,0.20689E-05_JPRB,0.25842E-05_JPRB,0.11093E-05_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.68862E-08_JPRB,0.54111E-06_JPRB,0.99924E-06_JPRB,0.14135E-05_JPRB,0.18137E-05_JPRB, &
+ & 0.22190E-05_JPRB,0.26613E-05_JPRB,0.32636E-05_JPRB,0.16377E-05_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.74570E-08_JPRB,0.54374E-06_JPRB,0.10016E-05_JPRB,0.14142E-05_JPRB,0.18118E-05_JPRB, &
+ & 0.22093E-05_JPRB,0.26451E-05_JPRB,0.32306E-05_JPRB,0.16062E-05_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.76975E-08_JPRB,0.44890E-06_JPRB,0.82016E-06_JPRB,0.11488E-05_JPRB,0.14591E-05_JPRB, &
+ & 0.17814E-05_JPRB,0.21241E-05_JPRB,0.26089E-05_JPRB,0.11145E-05_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.83656E-08_JPRB,0.31311E-06_JPRB,0.61949E-06_JPRB,0.88176E-06_JPRB,0.11379E-05_JPRB, &
+ & 0.13977E-05_JPRB,0.17043E-05_JPRB,0.22078E-05_JPRB,0.73836E-06_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.85171E-08_JPRB,0.32573E-06_JPRB,0.63573E-06_JPRB,0.90517E-06_JPRB,0.11641E-05_JPRB, &
+ & 0.14286E-05_JPRB,0.17247E-05_JPRB,0.21938E-05_JPRB,0.74285E-06_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.78702E-08_JPRB,0.33673E-06_JPRB,0.64948E-06_JPRB,0.92347E-06_JPRB,0.11844E-05_JPRB, &
+ & 0.14525E-05_JPRB,0.17473E-05_JPRB,0.21823E-05_JPRB,0.74417E-06_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.88135E-08_JPRB,0.44484E-06_JPRB,0.84006E-06_JPRB,0.11924E-05_JPRB,0.15326E-05_JPRB, &
+ & 0.18766E-05_JPRB,0.22592E-05_JPRB,0.27980E-05_JPRB,0.11629E-05_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.83594E-08_JPRB,0.34852E-06_JPRB,0.67171E-06_JPRB,0.94786E-06_JPRB,0.12080E-05_JPRB, &
+ & 0.14818E-05_JPRB,0.17721E-05_JPRB,0.22017E-05_JPRB,0.74162E-06_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.82233E-08_JPRB,0.22714E-06_JPRB,0.49574E-06_JPRB,0.71618E-06_JPRB,0.92897E-06_JPRB, &
+ & 0.11522E-05_JPRB,0.14150E-05_JPRB,0.18749E-05_JPRB,0.10829E-05_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.90906E-08_JPRB,0.23281E-06_JPRB,0.51082E-06_JPRB,0.73615E-06_JPRB,0.95322E-06_JPRB, &
+ & 0.11749E-05_JPRB,0.14287E-05_JPRB,0.18456E-05_JPRB,0.10964E-05_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.10403E-07_JPRB,0.23873E-06_JPRB,0.52083E-06_JPRB,0.75142E-06_JPRB,0.97057E-06_JPRB, &
+ & 0.11959E-05_JPRB,0.14456E-05_JPRB,0.18299E-05_JPRB,0.11024E-05_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.11681E-07_JPRB,0.24287E-06_JPRB,0.52982E-06_JPRB,0.76518E-06_JPRB,0.98418E-06_JPRB, &
+ & 0.12105E-05_JPRB,0.14593E-05_JPRB,0.18314E-05_JPRB,0.11002E-05_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.11781E-07_JPRB,0.32919E-06_JPRB,0.69041E-06_JPRB,0.99008E-06_JPRB,0.12781E-05_JPRB, &
+ & 0.15684E-05_JPRB,0.18900E-05_JPRB,0.23626E-05_JPRB,0.11507E-05_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.10746E-07_JPRB,0.16960E-06_JPRB,0.36271E-06_JPRB,0.57393E-06_JPRB,0.75088E-06_JPRB, &
+ & 0.94078E-06_JPRB,0.11700E-05_JPRB,0.15610E-05_JPRB,0.23060E-05_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.12322E-07_JPRB,0.17145E-06_JPRB,0.37466E-06_JPRB,0.58975E-06_JPRB,0.77156E-06_JPRB, &
+ & 0.96051E-06_JPRB,0.11773E-05_JPRB,0.15431E-05_JPRB,0.23550E-05_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.12362E-07_JPRB,0.17491E-06_JPRB,0.38517E-06_JPRB,0.60273E-06_JPRB,0.78779E-06_JPRB, &
+ & 0.97831E-06_JPRB,0.11895E-05_JPRB,0.15264E-05_JPRB,0.23946E-05_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.11932E-07_JPRB,0.17603E-06_JPRB,0.39310E-06_JPRB,0.61276E-06_JPRB,0.80198E-06_JPRB, &
+ & 0.99168E-06_JPRB,0.12014E-05_JPRB,0.15209E-05_JPRB,0.24122E-05_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.12827E-07_JPRB,0.23797E-06_JPRB,0.54915E-06_JPRB,0.81314E-06_JPRB,0.10605E-05_JPRB, &
+ & 0.13079E-05_JPRB,0.15848E-05_JPRB,0.19982E-05_JPRB,0.26265E-05_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.16887E-07_JPRB,0.16918E-06_JPRB,0.26182E-06_JPRB,0.43955E-06_JPRB,0.59876E-06_JPRB, &
+ & 0.76220E-06_JPRB,0.96205E-06_JPRB,0.12977E-05_JPRB,0.30196E-05_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.16463E-07_JPRB,0.17256E-06_JPRB,0.26723E-06_JPRB,0.45266E-06_JPRB,0.61330E-06_JPRB, &
+ & 0.77949E-06_JPRB,0.96881E-06_JPRB,0.12938E-05_JPRB,0.31027E-05_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.14297E-07_JPRB,0.17174E-06_JPRB,0.27626E-06_JPRB,0.46141E-06_JPRB,0.62873E-06_JPRB, &
+ & 0.79335E-06_JPRB,0.97523E-06_JPRB,0.12716E-05_JPRB,0.31487E-05_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.15984E-07_JPRB,0.17093E-06_JPRB,0.27951E-06_JPRB,0.46972E-06_JPRB,0.64062E-06_JPRB, &
+ & 0.80616E-06_JPRB,0.98183E-06_JPRB,0.12602E-05_JPRB,0.31591E-05_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.17832E-07_JPRB,0.17197E-06_JPRB,0.28124E-06_JPRB,0.47610E-06_JPRB,0.64900E-06_JPRB, &
+ & 0.81537E-06_JPRB,0.99403E-06_JPRB,0.12613E-05_JPRB,0.32001E-05_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.19543E-07_JPRB,0.20424E-06_JPRB,0.20827E-06_JPRB,0.30613E-06_JPRB,0.46038E-06_JPRB, &
+ & 0.61052E-06_JPRB,0.78796E-06_JPRB,0.10769E-05_JPRB,0.53495E-05_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.21943E-07_JPRB,0.20486E-06_JPRB,0.21292E-06_JPRB,0.31650E-06_JPRB,0.47369E-06_JPRB, &
+ & 0.62546E-06_JPRB,0.78997E-06_JPRB,0.10696E-05_JPRB,0.53612E-05_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.23096E-07_JPRB,0.20519E-06_JPRB,0.21260E-06_JPRB,0.32419E-06_JPRB,0.48522E-06_JPRB, &
+ & 0.63494E-06_JPRB,0.79556E-06_JPRB,0.10562E-05_JPRB,0.54125E-05_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.23811E-07_JPRB,0.20761E-06_JPRB,0.21334E-06_JPRB,0.32752E-06_JPRB,0.49467E-06_JPRB, &
+ & 0.64456E-06_JPRB,0.80411E-06_JPRB,0.10435E-05_JPRB,0.54920E-05_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.23502E-07_JPRB,0.20918E-06_JPRB,0.21430E-06_JPRB,0.32878E-06_JPRB,0.50037E-06_JPRB, &
+ & 0.65413E-06_JPRB,0.80879E-06_JPRB,0.10409E-05_JPRB,0.55076E-05_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.28818E-07_JPRB,0.26386E-06_JPRB,0.23322E-06_JPRB,0.23394E-06_JPRB,0.31766E-06_JPRB, &
+ & 0.47372E-06_JPRB,0.64268E-06_JPRB,0.89272E-06_JPRB,0.10691E-04_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.30094E-07_JPRB,0.27235E-06_JPRB,0.23524E-06_JPRB,0.24245E-06_JPRB,0.32636E-06_JPRB, &
+ & 0.48411E-06_JPRB,0.63773E-06_JPRB,0.88040E-06_JPRB,0.10770E-04_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.32474E-07_JPRB,0.27799E-06_JPRB,0.23717E-06_JPRB,0.24789E-06_JPRB,0.33554E-06_JPRB, &
+ & 0.49304E-06_JPRB,0.64255E-06_JPRB,0.87788E-06_JPRB,0.10799E-04_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.33631E-07_JPRB,0.28020E-06_JPRB,0.23819E-06_JPRB,0.25000E-06_JPRB,0.34187E-06_JPRB, &
+ & 0.49874E-06_JPRB,0.64803E-06_JPRB,0.86373E-06_JPRB,0.10824E-04_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.34597E-07_JPRB,0.28107E-06_JPRB,0.24266E-06_JPRB,0.24933E-06_JPRB,0.34607E-06_JPRB, &
+ & 0.50692E-06_JPRB,0.65081E-06_JPRB,0.85686E-06_JPRB,0.10819E-04_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.37049E-07_JPRB,0.33070E-06_JPRB,0.32147E-06_JPRB,0.25828E-06_JPRB,0.24460E-06_JPRB, &
+ & 0.33057E-06_JPRB,0.51182E-06_JPRB,0.72970E-06_JPRB,0.32667E-04_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.39634E-07_JPRB,0.34282E-06_JPRB,0.32875E-06_JPRB,0.26785E-06_JPRB,0.25757E-06_JPRB, &
+ & 0.33579E-06_JPRB,0.50462E-06_JPRB,0.72240E-06_JPRB,0.32638E-04_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.42012E-07_JPRB,0.34998E-06_JPRB,0.33495E-06_JPRB,0.27514E-06_JPRB,0.26581E-06_JPRB, &
+ & 0.33988E-06_JPRB,0.50360E-06_JPRB,0.72105E-06_JPRB,0.32828E-04_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.43216E-07_JPRB,0.35061E-06_JPRB,0.33953E-06_JPRB,0.28140E-06_JPRB,0.27172E-06_JPRB, &
+ & 0.34266E-06_JPRB,0.50914E-06_JPRB,0.70829E-06_JPRB,0.32970E-04_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.43838E-07_JPRB,0.35447E-06_JPRB,0.34674E-06_JPRB,0.28252E-06_JPRB,0.27122E-06_JPRB, &
+ & 0.34740E-06_JPRB,0.51058E-06_JPRB,0.70194E-06_JPRB,0.33023E-04_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.46492E-07_JPRB,0.34673E-06_JPRB,0.43959E-06_JPRB,0.39620E-06_JPRB,0.30969E-06_JPRB, &
+ & 0.25359E-06_JPRB,0.35579E-06_JPRB,0.58999E-06_JPRB,0.75308E-04_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.51642E-07_JPRB,0.35814E-06_JPRB,0.45251E-06_JPRB,0.40694E-06_JPRB,0.31643E-06_JPRB, &
+ & 0.25658E-06_JPRB,0.34700E-06_JPRB,0.58340E-06_JPRB,0.75445E-04_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.55139E-07_JPRB,0.36959E-06_JPRB,0.46273E-06_JPRB,0.41592E-06_JPRB,0.32168E-06_JPRB, &
+ & 0.26320E-06_JPRB,0.34598E-06_JPRB,0.57972E-06_JPRB,0.75796E-04_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.58094E-07_JPRB,0.37731E-06_JPRB,0.47160E-06_JPRB,0.41969E-06_JPRB,0.32536E-06_JPRB, &
+ & 0.27186E-06_JPRB,0.34692E-06_JPRB,0.57173E-06_JPRB,0.76680E-04_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.62665E-07_JPRB,0.38529E-06_JPRB,0.47122E-06_JPRB,0.42322E-06_JPRB,0.32990E-06_JPRB, &
+ & 0.28125E-06_JPRB,0.34920E-06_JPRB,0.56204E-06_JPRB,0.77515E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 1,11, 4) = (/ &
+ & 0.71997E-07_JPRB,0.39039E-06_JPRB,0.48930E-06_JPRB,0.52037E-06_JPRB,0.44835E-06_JPRB, &
+ & 0.32920E-06_JPRB,0.25424E-06_JPRB,0.45719E-06_JPRB,0.97599E-04_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.84174E-07_JPRB,0.39220E-06_JPRB,0.49753E-06_JPRB,0.53466E-06_JPRB,0.46035E-06_JPRB, &
+ & 0.34028E-06_JPRB,0.25580E-06_JPRB,0.44804E-06_JPRB,0.98017E-04_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.88241E-07_JPRB,0.39809E-06_JPRB,0.50514E-06_JPRB,0.54464E-06_JPRB,0.47069E-06_JPRB, &
+ & 0.34919E-06_JPRB,0.25830E-06_JPRB,0.44783E-06_JPRB,0.97609E-04_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.93462E-07_JPRB,0.40271E-06_JPRB,0.51216E-06_JPRB,0.55531E-06_JPRB,0.48178E-06_JPRB, &
+ & 0.35530E-06_JPRB,0.26505E-06_JPRB,0.43524E-06_JPRB,0.97099E-04_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.96966E-07_JPRB,0.40660E-06_JPRB,0.51682E-06_JPRB,0.56367E-06_JPRB,0.48662E-06_JPRB, &
+ & 0.35706E-06_JPRB,0.26903E-06_JPRB,0.42986E-06_JPRB,0.97653E-04_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.99102E-07_JPRB,0.42179E-06_JPRB,0.46920E-06_JPRB,0.54974E-06_JPRB,0.50699E-06_JPRB, &
+ & 0.41543E-06_JPRB,0.26692E-06_JPRB,0.34287E-06_JPRB,0.10692E-03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.10220E-06_JPRB,0.42343E-06_JPRB,0.48263E-06_JPRB,0.56179E-06_JPRB,0.52088E-06_JPRB, &
+ & 0.42826E-06_JPRB,0.27416E-06_JPRB,0.32165E-06_JPRB,0.10849E-03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.10736E-06_JPRB,0.42994E-06_JPRB,0.49237E-06_JPRB,0.56848E-06_JPRB,0.53837E-06_JPRB, &
+ & 0.43862E-06_JPRB,0.28070E-06_JPRB,0.31402E-06_JPRB,0.10890E-03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.10535E-06_JPRB,0.42853E-06_JPRB,0.49830E-06_JPRB,0.57259E-06_JPRB,0.55337E-06_JPRB, &
+ & 0.45117E-06_JPRB,0.28964E-06_JPRB,0.30229E-06_JPRB,0.11005E-03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.10635E-06_JPRB,0.42826E-06_JPRB,0.50038E-06_JPRB,0.57688E-06_JPRB,0.56182E-06_JPRB, &
+ & 0.45862E-06_JPRB,0.29473E-06_JPRB,0.29904E-06_JPRB,0.11056E-03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.11521E-06_JPRB,0.43118E-06_JPRB,0.49222E-06_JPRB,0.52624E-06_JPRB,0.55771E-06_JPRB, &
+ & 0.47186E-06_JPRB,0.32691E-06_JPRB,0.24833E-06_JPRB,0.10886E-03_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.11730E-06_JPRB,0.43904E-06_JPRB,0.49350E-06_JPRB,0.54164E-06_JPRB,0.56845E-06_JPRB, &
+ & 0.49098E-06_JPRB,0.34261E-06_JPRB,0.23938E-06_JPRB,0.11077E-03_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.11952E-06_JPRB,0.44327E-06_JPRB,0.50284E-06_JPRB,0.55816E-06_JPRB,0.58198E-06_JPRB, &
+ & 0.50372E-06_JPRB,0.35861E-06_JPRB,0.22850E-06_JPRB,0.11296E-03_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.11965E-06_JPRB,0.44664E-06_JPRB,0.51058E-06_JPRB,0.56661E-06_JPRB,0.59093E-06_JPRB, &
+ & 0.51146E-06_JPRB,0.36596E-06_JPRB,0.22349E-06_JPRB,0.11560E-03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.12171E-06_JPRB,0.45566E-06_JPRB,0.52364E-06_JPRB,0.57439E-06_JPRB,0.59010E-06_JPRB, &
+ & 0.52011E-06_JPRB,0.37200E-06_JPRB,0.22417E-06_JPRB,0.11598E-03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.64393E-08_JPRB,0.14477E-05_JPRB,0.26383E-05_JPRB,0.37578E-05_JPRB,0.48497E-05_JPRB, &
+ & 0.58771E-05_JPRB,0.69748E-05_JPRB,0.83337E-05_JPRB,0.52972E-05_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.74788E-08_JPRB,0.14813E-05_JPRB,0.26820E-05_JPRB,0.38123E-05_JPRB,0.49043E-05_JPRB, &
+ & 0.59719E-05_JPRB,0.70794E-05_JPRB,0.84777E-05_JPRB,0.53686E-05_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.70698E-08_JPRB,0.17381E-05_JPRB,0.31521E-05_JPRB,0.44815E-05_JPRB,0.57370E-05_JPRB, &
+ & 0.69696E-05_JPRB,0.82426E-05_JPRB,0.98195E-05_JPRB,0.67445E-05_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.75728E-08_JPRB,0.15363E-05_JPRB,0.27544E-05_JPRB,0.38956E-05_JPRB,0.49855E-05_JPRB, &
+ & 0.60556E-05_JPRB,0.72284E-05_JPRB,0.86770E-05_JPRB,0.54442E-05_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.72646E-08_JPRB,0.15573E-05_JPRB,0.27840E-05_JPRB,0.39266E-05_JPRB,0.50091E-05_JPRB, &
+ & 0.60781E-05_JPRB,0.72327E-05_JPRB,0.87344E-05_JPRB,0.54537E-05_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.91682E-08_JPRB,0.12471E-05_JPRB,0.22727E-05_JPRB,0.32462E-05_JPRB,0.42007E-05_JPRB, &
+ & 0.51012E-05_JPRB,0.60761E-05_JPRB,0.73379E-05_JPRB,0.44448E-05_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.78841E-08_JPRB,0.12745E-05_JPRB,0.23098E-05_JPRB,0.32938E-05_JPRB,0.42384E-05_JPRB, &
+ & 0.51817E-05_JPRB,0.61658E-05_JPRB,0.74615E-05_JPRB,0.44925E-05_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.88457E-08_JPRB,0.15305E-05_JPRB,0.27824E-05_JPRB,0.39573E-05_JPRB,0.50820E-05_JPRB, &
+ & 0.61863E-05_JPRB,0.73547E-05_JPRB,0.88186E-05_JPRB,0.58192E-05_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.81699E-08_JPRB,0.15379E-05_JPRB,0.27884E-05_JPRB,0.39554E-05_JPRB,0.50640E-05_JPRB, &
+ & 0.61598E-05_JPRB,0.73260E-05_JPRB,0.88047E-05_JPRB,0.57596E-05_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.81267E-08_JPRB,0.13345E-05_JPRB,0.23941E-05_JPRB,0.33760E-05_JPRB,0.43121E-05_JPRB, &
+ & 0.52406E-05_JPRB,0.62663E-05_JPRB,0.76657E-05_JPRB,0.45393E-05_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.91717E-08_JPRB,0.10541E-05_JPRB,0.19313E-05_JPRB,0.27682E-05_JPRB,0.35915E-05_JPRB, &
+ & 0.43666E-05_JPRB,0.52222E-05_JPRB,0.63759E-05_JPRB,0.36110E-05_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.10331E-07_JPRB,0.10789E-05_JPRB,0.19645E-05_JPRB,0.28075E-05_JPRB,0.36240E-05_JPRB, &
+ & 0.44392E-05_JPRB,0.52990E-05_JPRB,0.64883E-05_JPRB,0.36530E-05_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.12324E-07_JPRB,0.10988E-05_JPRB,0.19944E-05_JPRB,0.28363E-05_JPRB,0.36532E-05_JPRB, &
+ & 0.44650E-05_JPRB,0.53622E-05_JPRB,0.65761E-05_JPRB,0.36791E-05_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.11596E-07_JPRB,0.13389E-05_JPRB,0.24365E-05_JPRB,0.34597E-05_JPRB,0.44354E-05_JPRB, &
+ & 0.54167E-05_JPRB,0.64681E-05_JPRB,0.78697E-05_JPRB,0.48568E-05_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.11476E-07_JPRB,0.11282E-05_JPRB,0.20370E-05_JPRB,0.28768E-05_JPRB,0.36785E-05_JPRB, &
+ & 0.44764E-05_JPRB,0.53828E-05_JPRB,0.66660E-05_JPRB,0.36841E-05_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.12942E-07_JPRB,0.87057E-06_JPRB,0.16185E-05_JPRB,0.23328E-05_JPRB,0.30327E-05_JPRB, &
+ & 0.36939E-05_JPRB,0.44351E-05_JPRB,0.54720E-05_JPRB,0.21271E-05_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.12911E-07_JPRB,0.89351E-06_JPRB,0.16491E-05_JPRB,0.23657E-05_JPRB,0.30660E-05_JPRB, &
+ & 0.37589E-05_JPRB,0.45049E-05_JPRB,0.55808E-05_JPRB,0.21315E-05_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.11919E-07_JPRB,0.91285E-06_JPRB,0.16762E-05_JPRB,0.23907E-05_JPRB,0.30911E-05_JPRB, &
+ & 0.37889E-05_JPRB,0.45584E-05_JPRB,0.56554E-05_JPRB,0.21302E-05_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.12644E-07_JPRB,0.92680E-06_JPRB,0.16966E-05_JPRB,0.24115E-05_JPRB,0.31023E-05_JPRB, &
+ & 0.37973E-05_JPRB,0.46002E-05_JPRB,0.57029E-05_JPRB,0.21090E-05_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.14252E-07_JPRB,0.11501E-05_JPRB,0.21042E-05_JPRB,0.29827E-05_JPRB,0.38200E-05_JPRB, &
+ & 0.46680E-05_JPRB,0.55977E-05_JPRB,0.69211E-05_JPRB,0.32123E-05_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.14457E-07_JPRB,0.68848E-06_JPRB,0.13403E-05_JPRB,0.19448E-05_JPRB,0.25364E-05_JPRB, &
+ & 0.30956E-05_JPRB,0.37236E-05_JPRB,0.46561E-05_JPRB,0.23476E-05_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.13664E-07_JPRB,0.70724E-06_JPRB,0.13666E-05_JPRB,0.19744E-05_JPRB,0.25701E-05_JPRB, &
+ & 0.31515E-05_JPRB,0.37903E-05_JPRB,0.47386E-05_JPRB,0.23292E-05_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.16363E-07_JPRB,0.72382E-06_JPRB,0.13894E-05_JPRB,0.19966E-05_JPRB,0.25908E-05_JPRB, &
+ & 0.31942E-05_JPRB,0.38380E-05_JPRB,0.48063E-05_JPRB,0.23210E-05_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.18854E-07_JPRB,0.73645E-06_JPRB,0.14075E-05_JPRB,0.20143E-05_JPRB,0.25995E-05_JPRB, &
+ & 0.31924E-05_JPRB,0.38751E-05_JPRB,0.48509E-05_JPRB,0.23084E-05_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.19502E-07_JPRB,0.95711E-06_JPRB,0.17948E-05_JPRB,0.25536E-05_JPRB,0.32756E-05_JPRB, &
+ & 0.40127E-05_JPRB,0.48356E-05_JPRB,0.60502E-05_JPRB,0.26522E-05_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.20265E-07_JPRB,0.45716E-06_JPRB,0.10840E-05_JPRB,0.16034E-05_JPRB,0.20999E-05_JPRB, &
+ & 0.25681E-05_JPRB,0.30977E-05_JPRB,0.39107E-05_JPRB,0.52450E-05_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.21598E-07_JPRB,0.47132E-06_JPRB,0.11079E-05_JPRB,0.16263E-05_JPRB,0.21396E-05_JPRB, &
+ & 0.26164E-05_JPRB,0.31577E-05_JPRB,0.39701E-05_JPRB,0.52182E-05_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.24575E-07_JPRB,0.48601E-06_JPRB,0.11257E-05_JPRB,0.16486E-05_JPRB,0.21513E-05_JPRB, &
+ & 0.26585E-05_JPRB,0.32022E-05_JPRB,0.40354E-05_JPRB,0.51968E-05_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.24397E-07_JPRB,0.49804E-06_JPRB,0.11416E-05_JPRB,0.16645E-05_JPRB,0.21605E-05_JPRB, &
+ & 0.26639E-05_JPRB,0.32353E-05_JPRB,0.40822E-05_JPRB,0.51575E-05_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.24456E-07_JPRB,0.50499E-06_JPRB,0.11522E-05_JPRB,0.16738E-05_JPRB,0.21632E-05_JPRB, &
+ & 0.26629E-05_JPRB,0.32463E-05_JPRB,0.41051E-05_JPRB,0.51085E-05_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.28039E-07_JPRB,0.29800E-06_JPRB,0.81783E-06_JPRB,0.13008E-05_JPRB,0.17226E-05_JPRB, &
+ & 0.21163E-05_JPRB,0.25578E-05_JPRB,0.32519E-05_JPRB,0.82307E-05_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.29388E-07_JPRB,0.30492E-06_JPRB,0.83771E-06_JPRB,0.13192E-05_JPRB,0.17591E-05_JPRB, &
+ & 0.21563E-05_JPRB,0.26128E-05_JPRB,0.33130E-05_JPRB,0.81908E-05_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.29556E-07_JPRB,0.30866E-06_JPRB,0.85444E-06_JPRB,0.13376E-05_JPRB,0.17722E-05_JPRB, &
+ & 0.21943E-05_JPRB,0.26541E-05_JPRB,0.33584E-05_JPRB,0.81819E-05_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.26709E-07_JPRB,0.30951E-06_JPRB,0.86739E-06_JPRB,0.13505E-05_JPRB,0.17805E-05_JPRB, &
+ & 0.22093E-05_JPRB,0.26812E-05_JPRB,0.34009E-05_JPRB,0.81017E-05_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.27877E-07_JPRB,0.31158E-06_JPRB,0.87645E-06_JPRB,0.13597E-05_JPRB,0.17817E-05_JPRB, &
+ & 0.22083E-05_JPRB,0.26996E-05_JPRB,0.34240E-05_JPRB,0.80774E-05_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.34498E-07_JPRB,0.30504E-06_JPRB,0.50025E-06_JPRB,0.99104E-06_JPRB,0.13907E-05_JPRB, &
+ & 0.17284E-05_JPRB,0.20950E-05_JPRB,0.26875E-05_JPRB,0.12492E-04_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.34468E-07_JPRB,0.31253E-06_JPRB,0.51376E-06_JPRB,0.10029E-05_JPRB,0.14233E-05_JPRB, &
+ & 0.17665E-05_JPRB,0.21486E-05_JPRB,0.27439E-05_JPRB,0.12811E-04_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.33481E-07_JPRB,0.31885E-06_JPRB,0.52532E-06_JPRB,0.10176E-05_JPRB,0.14361E-05_JPRB, &
+ & 0.18000E-05_JPRB,0.21864E-05_JPRB,0.27713E-05_JPRB,0.12979E-04_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.35023E-07_JPRB,0.32212E-06_JPRB,0.53171E-06_JPRB,0.10292E-05_JPRB,0.14414E-05_JPRB, &
+ & 0.18222E-05_JPRB,0.22113E-05_JPRB,0.28111E-05_JPRB,0.13061E-04_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.38480E-07_JPRB,0.32386E-06_JPRB,0.53818E-06_JPRB,0.10355E-05_JPRB,0.14400E-05_JPRB, &
+ & 0.18162E-05_JPRB,0.22298E-05_JPRB,0.28367E-05_JPRB,0.13100E-04_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.41152E-07_JPRB,0.31870E-06_JPRB,0.36402E-06_JPRB,0.61613E-06_JPRB,0.10619E-05_JPRB, &
+ & 0.13940E-05_JPRB,0.17098E-05_JPRB,0.22173E-05_JPRB,0.27198E-04_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.47020E-07_JPRB,0.31765E-06_JPRB,0.37312E-06_JPRB,0.61961E-06_JPRB,0.10763E-05_JPRB, &
+ & 0.14273E-05_JPRB,0.17555E-05_JPRB,0.22573E-05_JPRB,0.28218E-04_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.48171E-07_JPRB,0.31526E-06_JPRB,0.38468E-06_JPRB,0.62540E-06_JPRB,0.10803E-05_JPRB, &
+ & 0.14543E-05_JPRB,0.17919E-05_JPRB,0.22822E-05_JPRB,0.28600E-04_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.52826E-07_JPRB,0.32481E-06_JPRB,0.38733E-06_JPRB,0.62721E-06_JPRB,0.10854E-05_JPRB, &
+ & 0.14750E-05_JPRB,0.18124E-05_JPRB,0.23140E-05_JPRB,0.29051E-04_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.56456E-07_JPRB,0.32727E-06_JPRB,0.38424E-06_JPRB,0.63178E-06_JPRB,0.10853E-05_JPRB, &
+ & 0.14692E-05_JPRB,0.18309E-05_JPRB,0.23369E-05_JPRB,0.29958E-04_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.62033E-07_JPRB,0.45418E-06_JPRB,0.43247E-06_JPRB,0.44775E-06_JPRB,0.62834E-06_JPRB, &
+ & 0.10534E-05_JPRB,0.13865E-05_JPRB,0.18301E-05_JPRB,0.47779E-04_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.66259E-07_JPRB,0.45321E-06_JPRB,0.43983E-06_JPRB,0.45223E-06_JPRB,0.63440E-06_JPRB, &
+ & 0.10746E-05_JPRB,0.14253E-05_JPRB,0.18534E-05_JPRB,0.48468E-04_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.78966E-07_JPRB,0.45246E-06_JPRB,0.44780E-06_JPRB,0.45868E-06_JPRB,0.63026E-06_JPRB, &
+ & 0.10842E-05_JPRB,0.14519E-05_JPRB,0.18794E-05_JPRB,0.49251E-04_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.87881E-07_JPRB,0.44642E-06_JPRB,0.45426E-06_JPRB,0.46583E-06_JPRB,0.63116E-06_JPRB, &
+ & 0.10925E-05_JPRB,0.14710E-05_JPRB,0.18965E-05_JPRB,0.49742E-04_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.92572E-07_JPRB,0.44310E-06_JPRB,0.45326E-06_JPRB,0.47005E-06_JPRB,0.63094E-06_JPRB, &
+ & 0.10763E-05_JPRB,0.14843E-05_JPRB,0.19214E-05_JPRB,0.50457E-04_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.10522E-06_JPRB,0.58600E-06_JPRB,0.57473E-06_JPRB,0.52150E-06_JPRB,0.51202E-06_JPRB, &
+ & 0.62383E-06_JPRB,0.10987E-05_JPRB,0.15032E-05_JPRB,0.50557E-04_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.98332E-07_JPRB,0.58669E-06_JPRB,0.57910E-06_JPRB,0.52997E-06_JPRB,0.52591E-06_JPRB, &
+ & 0.62992E-06_JPRB,0.11144E-05_JPRB,0.15271E-05_JPRB,0.52915E-04_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.10383E-06_JPRB,0.58976E-06_JPRB,0.58650E-06_JPRB,0.53573E-06_JPRB,0.53394E-06_JPRB, &
+ & 0.63743E-06_JPRB,0.11251E-05_JPRB,0.15415E-05_JPRB,0.55206E-04_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.10626E-06_JPRB,0.58622E-06_JPRB,0.58747E-06_JPRB,0.53868E-06_JPRB,0.53891E-06_JPRB, &
+ & 0.62645E-06_JPRB,0.11296E-05_JPRB,0.15628E-05_JPRB,0.58020E-04_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.10795E-06_JPRB,0.57800E-06_JPRB,0.58664E-06_JPRB,0.53883E-06_JPRB,0.54784E-06_JPRB, &
+ & 0.62145E-06_JPRB,0.11279E-05_JPRB,0.15782E-05_JPRB,0.60369E-04_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.11905E-06_JPRB,0.60759E-06_JPRB,0.68611E-06_JPRB,0.59318E-06_JPRB,0.53805E-06_JPRB, &
+ & 0.44962E-06_JPRB,0.74828E-06_JPRB,0.12279E-05_JPRB,0.57098E-04_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.12660E-06_JPRB,0.61695E-06_JPRB,0.68094E-06_JPRB,0.60079E-06_JPRB,0.55064E-06_JPRB, &
+ & 0.44953E-06_JPRB,0.74858E-06_JPRB,0.12489E-05_JPRB,0.55969E-04_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.12824E-06_JPRB,0.61561E-06_JPRB,0.67586E-06_JPRB,0.61662E-06_JPRB,0.55533E-06_JPRB, &
+ & 0.46796E-06_JPRB,0.74406E-06_JPRB,0.12615E-05_JPRB,0.57249E-04_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.12834E-06_JPRB,0.62554E-06_JPRB,0.67923E-06_JPRB,0.62343E-06_JPRB,0.55964E-06_JPRB, &
+ & 0.48091E-06_JPRB,0.73622E-06_JPRB,0.12795E-05_JPRB,0.58462E-04_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.13022E-06_JPRB,0.63206E-06_JPRB,0.68726E-06_JPRB,0.62663E-06_JPRB,0.56231E-06_JPRB, &
+ & 0.48008E-06_JPRB,0.72942E-06_JPRB,0.12885E-05_JPRB,0.57642E-04_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.15325E-06_JPRB,0.60909E-06_JPRB,0.76952E-06_JPRB,0.71232E-06_JPRB,0.57983E-06_JPRB, &
+ & 0.50489E-06_JPRB,0.48627E-06_JPRB,0.99183E-06_JPRB,0.58778E-04_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.15519E-06_JPRB,0.62152E-06_JPRB,0.78639E-06_JPRB,0.71888E-06_JPRB,0.59866E-06_JPRB, &
+ & 0.50930E-06_JPRB,0.48247E-06_JPRB,0.10069E-05_JPRB,0.57959E-04_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.17242E-06_JPRB,0.64099E-06_JPRB,0.78686E-06_JPRB,0.71502E-06_JPRB,0.60678E-06_JPRB, &
+ & 0.51633E-06_JPRB,0.47220E-06_JPRB,0.10180E-05_JPRB,0.56844E-04_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.18585E-06_JPRB,0.65002E-06_JPRB,0.78368E-06_JPRB,0.71421E-06_JPRB,0.61538E-06_JPRB, &
+ & 0.52650E-06_JPRB,0.46857E-06_JPRB,0.10263E-05_JPRB,0.55757E-04_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.19235E-06_JPRB,0.64166E-06_JPRB,0.76203E-06_JPRB,0.70622E-06_JPRB,0.61837E-06_JPRB, &
+ & 0.53042E-06_JPRB,0.45529E-06_JPRB,0.10275E-05_JPRB,0.55475E-04_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.95617E-08_JPRB,0.36774E-05_JPRB,0.65849E-05_JPRB,0.92221E-05_JPRB,0.11700E-04_JPRB, &
+ & 0.14161E-04_JPRB,0.16732E-04_JPRB,0.20350E-04_JPRB,0.14554E-04_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.93327E-08_JPRB,0.37537E-05_JPRB,0.66916E-05_JPRB,0.93495E-05_JPRB,0.11842E-04_JPRB, &
+ & 0.14289E-04_JPRB,0.16848E-04_JPRB,0.20318E-04_JPRB,0.14747E-04_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.98298E-08_JPRB,0.41944E-05_JPRB,0.75022E-05_JPRB,0.10503E-04_JPRB,0.13381E-04_JPRB, &
+ & 0.16104E-04_JPRB,0.19004E-04_JPRB,0.22601E-04_JPRB,0.17337E-04_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.92318E-08_JPRB,0.38872E-05_JPRB,0.68816E-05_JPRB,0.95784E-05_JPRB,0.12112E-04_JPRB, &
+ & 0.14510E-04_JPRB,0.17052E-04_JPRB,0.20522E-04_JPRB,0.14967E-04_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.98053E-08_JPRB,0.39438E-05_JPRB,0.69574E-05_JPRB,0.96665E-05_JPRB,0.12218E-04_JPRB, &
+ & 0.14607E-04_JPRB,0.17135E-04_JPRB,0.20557E-04_JPRB,0.15005E-04_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.99669E-08_JPRB,0.32456E-05_JPRB,0.58216E-05_JPRB,0.81575E-05_JPRB,0.10349E-04_JPRB, &
+ & 0.12573E-04_JPRB,0.14901E-04_JPRB,0.18163E-04_JPRB,0.12615E-04_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.12231E-07_JPRB,0.33138E-05_JPRB,0.59221E-05_JPRB,0.82752E-05_JPRB,0.10501E-04_JPRB, &
+ & 0.12666E-04_JPRB,0.15004E-04_JPRB,0.18147E-04_JPRB,0.12797E-04_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.10745E-07_JPRB,0.37581E-05_JPRB,0.67327E-05_JPRB,0.94426E-05_JPRB,0.12044E-04_JPRB, &
+ & 0.14533E-04_JPRB,0.17181E-04_JPRB,0.20503E-04_JPRB,0.15464E-04_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.11723E-07_JPRB,0.37897E-05_JPRB,0.67581E-05_JPRB,0.94584E-05_JPRB,0.12035E-04_JPRB, &
+ & 0.14508E-04_JPRB,0.17115E-04_JPRB,0.20450E-04_JPRB,0.15378E-04_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.10775E-07_JPRB,0.34864E-05_JPRB,0.61478E-05_JPRB,0.85479E-05_JPRB,0.10823E-04_JPRB, &
+ & 0.12985E-04_JPRB,0.15273E-04_JPRB,0.18381E-04_JPRB,0.12972E-04_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.12159E-07_JPRB,0.28311E-05_JPRB,0.50923E-05_JPRB,0.71433E-05_JPRB,0.90735E-05_JPRB, &
+ & 0.11042E-04_JPRB,0.13160E-04_JPRB,0.16141E-04_JPRB,0.10790E-04_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.11403E-07_JPRB,0.28950E-05_JPRB,0.51829E-05_JPRB,0.72481E-05_JPRB,0.92149E-05_JPRB, &
+ & 0.11135E-04_JPRB,0.13267E-04_JPRB,0.16084E-04_JPRB,0.10912E-04_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.12436E-07_JPRB,0.29531E-05_JPRB,0.52642E-05_JPRB,0.73461E-05_JPRB,0.93337E-05_JPRB, &
+ & 0.11250E-04_JPRB,0.13358E-04_JPRB,0.16208E-04_JPRB,0.10995E-04_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.14856E-07_JPRB,0.33723E-05_JPRB,0.60342E-05_JPRB,0.84579E-05_JPRB,0.10776E-04_JPRB, &
+ & 0.13025E-04_JPRB,0.15434E-04_JPRB,0.18466E-04_JPRB,0.13550E-04_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.16537E-07_JPRB,0.30506E-05_JPRB,0.53821E-05_JPRB,0.74897E-05_JPRB,0.94861E-05_JPRB, &
+ & 0.11421E-04_JPRB,0.13503E-04_JPRB,0.16308E-04_JPRB,0.11045E-04_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.13114E-07_JPRB,0.24467E-05_JPRB,0.44159E-05_JPRB,0.61941E-05_JPRB,0.78845E-05_JPRB, &
+ & 0.96031E-05_JPRB,0.11513E-04_JPRB,0.14234E-04_JPRB,0.89642E-05_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.15028E-07_JPRB,0.25040E-05_JPRB,0.44954E-05_JPRB,0.62931E-05_JPRB,0.80050E-05_JPRB, &
+ & 0.97056E-05_JPRB,0.11618E-04_JPRB,0.14175E-04_JPRB,0.90802E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 3, 4, 6) = (/ &
+ & 0.18213E-07_JPRB,0.25556E-05_JPRB,0.45678E-05_JPRB,0.63789E-05_JPRB,0.81071E-05_JPRB, &
+ & 0.98077E-05_JPRB,0.11694E-04_JPRB,0.14301E-04_JPRB,0.91538E-05_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.19097E-07_JPRB,0.26037E-05_JPRB,0.46288E-05_JPRB,0.64476E-05_JPRB,0.81897E-05_JPRB, &
+ & 0.98941E-05_JPRB,0.11740E-04_JPRB,0.14344E-04_JPRB,0.91968E-05_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.18014E-07_JPRB,0.29993E-05_JPRB,0.53622E-05_JPRB,0.75209E-05_JPRB,0.95686E-05_JPRB, &
+ & 0.11571E-04_JPRB,0.13783E-04_JPRB,0.16522E-04_JPRB,0.11644E-04_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.21237E-07_JPRB,0.20921E-05_JPRB,0.37961E-05_JPRB,0.53264E-05_JPRB,0.67905E-05_JPRB, &
+ & 0.82846E-05_JPRB,0.99803E-05_JPRB,0.12512E-04_JPRB,0.44075E-05_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.23885E-07_JPRB,0.21444E-05_JPRB,0.38676E-05_JPRB,0.54146E-05_JPRB,0.68931E-05_JPRB, &
+ & 0.83832E-05_JPRB,0.10077E-04_JPRB,0.12417E-04_JPRB,0.44982E-05_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.20851E-07_JPRB,0.21906E-05_JPRB,0.39301E-05_JPRB,0.54900E-05_JPRB,0.69833E-05_JPRB, &
+ & 0.84513E-05_JPRB,0.10145E-04_JPRB,0.12513E-04_JPRB,0.45299E-05_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.22487E-07_JPRB,0.22322E-05_JPRB,0.39843E-05_JPRB,0.55506E-05_JPRB,0.70502E-05_JPRB, &
+ & 0.85357E-05_JPRB,0.10189E-04_JPRB,0.12546E-04_JPRB,0.45220E-05_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.23015E-07_JPRB,0.26442E-05_JPRB,0.47363E-05_JPRB,0.66520E-05_JPRB,0.84676E-05_JPRB, &
+ & 0.10272E-04_JPRB,0.12268E-04_JPRB,0.14801E-04_JPRB,0.72945E-05_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.22693E-07_JPRB,0.17592E-05_JPRB,0.32289E-05_JPRB,0.45327E-05_JPRB,0.57876E-05_JPRB, &
+ & 0.70822E-05_JPRB,0.85643E-05_JPRB,0.10966E-04_JPRB,0.53375E-05_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.22407E-07_JPRB,0.18081E-05_JPRB,0.32912E-05_JPRB,0.46136E-05_JPRB,0.58716E-05_JPRB, &
+ & 0.71710E-05_JPRB,0.86530E-05_JPRB,0.10805E-04_JPRB,0.53845E-05_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.22705E-07_JPRB,0.18504E-05_JPRB,0.33475E-05_JPRB,0.46786E-05_JPRB,0.59585E-05_JPRB, &
+ & 0.72252E-05_JPRB,0.87123E-05_JPRB,0.10876E-04_JPRB,0.53808E-05_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.23941E-07_JPRB,0.18862E-05_JPRB,0.33938E-05_JPRB,0.47325E-05_JPRB,0.60159E-05_JPRB, &
+ & 0.72910E-05_JPRB,0.87573E-05_JPRB,0.10893E-04_JPRB,0.53357E-05_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.27004E-07_JPRB,0.19136E-05_JPRB,0.34294E-05_JPRB,0.47766E-05_JPRB,0.60573E-05_JPRB, &
+ & 0.73309E-05_JPRB,0.87892E-05_JPRB,0.10892E-04_JPRB,0.52484E-05_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.27131E-07_JPRB,0.14236E-05_JPRB,0.27128E-05_JPRB,0.38203E-05_JPRB,0.48870E-05_JPRB, &
+ & 0.59983E-05_JPRB,0.72827E-05_JPRB,0.94729E-05_JPRB,0.86942E-05_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.26214E-07_JPRB,0.14673E-05_JPRB,0.27677E-05_JPRB,0.38940E-05_JPRB,0.49627E-05_JPRB, &
+ & 0.60727E-05_JPRB,0.73587E-05_JPRB,0.93332E-05_JPRB,0.87651E-05_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.29249E-07_JPRB,0.15085E-05_JPRB,0.28175E-05_JPRB,0.39503E-05_JPRB,0.50362E-05_JPRB, &
+ & 0.61230E-05_JPRB,0.74095E-05_JPRB,0.93608E-05_JPRB,0.87497E-05_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.35846E-07_JPRB,0.15423E-05_JPRB,0.28570E-05_JPRB,0.39988E-05_JPRB,0.50875E-05_JPRB, &
+ & 0.61709E-05_JPRB,0.74491E-05_JPRB,0.93691E-05_JPRB,0.88300E-05_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.36255E-07_JPRB,0.15665E-05_JPRB,0.28868E-05_JPRB,0.40378E-05_JPRB,0.51248E-05_JPRB, &
+ & 0.62083E-05_JPRB,0.74689E-05_JPRB,0.93597E-05_JPRB,0.88065E-05_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.37619E-07_JPRB,0.92017E-06_JPRB,0.22295E-05_JPRB,0.31821E-05_JPRB,0.40883E-05_JPRB, &
+ & 0.50331E-05_JPRB,0.61447E-05_JPRB,0.80461E-05_JPRB,0.15512E-04_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.43015E-07_JPRB,0.95048E-06_JPRB,0.22782E-05_JPRB,0.32493E-05_JPRB,0.41585E-05_JPRB, &
+ & 0.50968E-05_JPRB,0.61995E-05_JPRB,0.80232E-05_JPRB,0.15472E-04_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.47635E-07_JPRB,0.97934E-06_JPRB,0.23207E-05_JPRB,0.33002E-05_JPRB,0.42181E-05_JPRB, &
+ & 0.51430E-05_JPRB,0.62468E-05_JPRB,0.79821E-05_JPRB,0.15652E-04_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.48140E-07_JPRB,0.10026E-05_JPRB,0.23582E-05_JPRB,0.33416E-05_JPRB,0.42650E-05_JPRB, &
+ & 0.51734E-05_JPRB,0.62779E-05_JPRB,0.79833E-05_JPRB,0.15762E-04_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.45231E-07_JPRB,0.10212E-05_JPRB,0.23819E-05_JPRB,0.33754E-05_JPRB,0.42991E-05_JPRB, &
+ & 0.52146E-05_JPRB,0.62945E-05_JPRB,0.79701E-05_JPRB,0.15840E-04_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.48601E-07_JPRB,0.49350E-06_JPRB,0.16585E-05_JPRB,0.26009E-05_JPRB,0.33796E-05_JPRB, &
+ & 0.41888E-05_JPRB,0.51434E-05_JPRB,0.67867E-05_JPRB,0.26875E-04_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.49825E-07_JPRB,0.51680E-06_JPRB,0.16935E-05_JPRB,0.26607E-05_JPRB,0.34457E-05_JPRB, &
+ & 0.42434E-05_JPRB,0.51839E-05_JPRB,0.68587E-05_JPRB,0.27475E-04_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.52843E-07_JPRB,0.53573E-06_JPRB,0.17199E-05_JPRB,0.27038E-05_JPRB,0.35027E-05_JPRB, &
+ & 0.42858E-05_JPRB,0.52233E-05_JPRB,0.67410E-05_JPRB,0.28097E-04_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.49841E-07_JPRB,0.54248E-06_JPRB,0.17493E-05_JPRB,0.27418E-05_JPRB,0.35427E-05_JPRB, &
+ & 0.43127E-05_JPRB,0.52517E-05_JPRB,0.67418E-05_JPRB,0.28632E-04_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.50649E-07_JPRB,0.54940E-06_JPRB,0.17700E-05_JPRB,0.27695E-05_JPRB,0.35712E-05_JPRB, &
+ & 0.43482E-05_JPRB,0.52645E-05_JPRB,0.67282E-05_JPRB,0.28662E-04_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.82685E-07_JPRB,0.54022E-06_JPRB,0.87761E-06_JPRB,0.18752E-05_JPRB,0.27293E-05_JPRB, &
+ & 0.34506E-05_JPRB,0.42821E-05_JPRB,0.56501E-05_JPRB,0.44067E-04_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.87011E-07_JPRB,0.54017E-06_JPRB,0.89732E-06_JPRB,0.19208E-05_JPRB,0.27945E-05_JPRB, &
+ & 0.35005E-05_JPRB,0.43124E-05_JPRB,0.57881E-05_JPRB,0.45858E-04_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.79909E-07_JPRB,0.55355E-06_JPRB,0.90995E-06_JPRB,0.19451E-05_JPRB,0.28460E-05_JPRB, &
+ & 0.35425E-05_JPRB,0.43438E-05_JPRB,0.56593E-05_JPRB,0.45805E-04_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.75533E-07_JPRB,0.55705E-06_JPRB,0.92147E-06_JPRB,0.19661E-05_JPRB,0.28785E-05_JPRB, &
+ & 0.35628E-05_JPRB,0.43635E-05_JPRB,0.56526E-05_JPRB,0.46295E-04_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.76631E-07_JPRB,0.55159E-06_JPRB,0.93362E-06_JPRB,0.19832E-05_JPRB,0.29003E-05_JPRB, &
+ & 0.35965E-05_JPRB,0.43731E-05_JPRB,0.56385E-05_JPRB,0.46720E-04_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.11164E-06_JPRB,0.57710E-06_JPRB,0.71279E-06_JPRB,0.10003E-05_JPRB,0.19253E-05_JPRB, &
+ & 0.28027E-05_JPRB,0.35523E-05_JPRB,0.47607E-05_JPRB,0.51144E-04_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.11484E-06_JPRB,0.58649E-06_JPRB,0.71918E-06_JPRB,0.10167E-05_JPRB,0.19538E-05_JPRB, &
+ & 0.28431E-05_JPRB,0.35713E-05_JPRB,0.48333E-05_JPRB,0.49887E-04_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.11442E-06_JPRB,0.58483E-06_JPRB,0.70503E-06_JPRB,0.10320E-05_JPRB,0.19684E-05_JPRB, &
+ & 0.28674E-05_JPRB,0.35911E-05_JPRB,0.47191E-05_JPRB,0.50222E-04_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.11737E-06_JPRB,0.58895E-06_JPRB,0.70242E-06_JPRB,0.10442E-05_JPRB,0.19738E-05_JPRB, &
+ & 0.28962E-05_JPRB,0.36035E-05_JPRB,0.47045E-05_JPRB,0.48754E-04_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.12314E-06_JPRB,0.59299E-06_JPRB,0.70874E-06_JPRB,0.10470E-05_JPRB,0.19736E-05_JPRB, &
+ & 0.29100E-05_JPRB,0.36075E-05_JPRB,0.46813E-05_JPRB,0.45986E-04_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.14446E-06_JPRB,0.57459E-06_JPRB,0.72800E-06_JPRB,0.69912E-06_JPRB,0.11693E-05_JPRB, &
+ & 0.21457E-05_JPRB,0.29151E-05_JPRB,0.39683E-05_JPRB,0.42970E-04_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.14738E-06_JPRB,0.58568E-06_JPRB,0.75374E-06_JPRB,0.69814E-06_JPRB,0.11797E-05_JPRB, &
+ & 0.21759E-05_JPRB,0.29287E-05_JPRB,0.39942E-05_JPRB,0.41434E-04_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.15006E-06_JPRB,0.60144E-06_JPRB,0.75420E-06_JPRB,0.70559E-06_JPRB,0.11849E-05_JPRB, &
+ & 0.21718E-05_JPRB,0.29383E-05_JPRB,0.39185E-05_JPRB,0.42909E-04_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.15745E-06_JPRB,0.60776E-06_JPRB,0.75984E-06_JPRB,0.71270E-06_JPRB,0.11804E-05_JPRB, &
+ & 0.21578E-05_JPRB,0.29477E-05_JPRB,0.38939E-05_JPRB,0.41761E-04_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.16583E-06_JPRB,0.62207E-06_JPRB,0.74591E-06_JPRB,0.69746E-06_JPRB,0.11751E-05_JPRB, &
+ & 0.21552E-05_JPRB,0.29514E-05_JPRB,0.38695E-05_JPRB,0.45252E-04_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.18492E-06_JPRB,0.65841E-06_JPRB,0.74904E-06_JPRB,0.82698E-06_JPRB,0.69790E-06_JPRB, &
+ & 0.13356E-05_JPRB,0.23333E-05_JPRB,0.33010E-05_JPRB,0.43502E-04_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.18447E-06_JPRB,0.66115E-06_JPRB,0.74200E-06_JPRB,0.80748E-06_JPRB,0.68676E-06_JPRB, &
+ & 0.13419E-05_JPRB,0.23369E-05_JPRB,0.32873E-05_JPRB,0.44908E-04_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.20107E-06_JPRB,0.65387E-06_JPRB,0.73155E-06_JPRB,0.79291E-06_JPRB,0.67848E-06_JPRB, &
+ & 0.13368E-05_JPRB,0.23434E-05_JPRB,0.32337E-05_JPRB,0.47417E-04_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.20493E-06_JPRB,0.66191E-06_JPRB,0.72707E-06_JPRB,0.79839E-06_JPRB,0.67208E-06_JPRB, &
+ & 0.13273E-05_JPRB,0.23466E-05_JPRB,0.32075E-05_JPRB,0.48703E-04_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.20003E-06_JPRB,0.66753E-06_JPRB,0.73390E-06_JPRB,0.79794E-06_JPRB,0.66936E-06_JPRB, &
+ & 0.13150E-05_JPRB,0.23558E-05_JPRB,0.31828E-05_JPRB,0.50012E-04_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.45955E-07_JPRB,0.96988E-05_JPRB,0.16766E-04_JPRB,0.23073E-04_JPRB,0.28829E-04_JPRB, &
+ & 0.34350E-04_JPRB,0.39744E-04_JPRB,0.45071E-04_JPRB,0.36783E-04_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.57268E-07_JPRB,0.98413E-05_JPRB,0.16970E-04_JPRB,0.23311E-04_JPRB,0.29149E-04_JPRB, &
+ & 0.34726E-04_JPRB,0.40229E-04_JPRB,0.45682E-04_JPRB,0.37190E-04_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.70060E-07_JPRB,0.10517E-04_JPRB,0.18168E-04_JPRB,0.24965E-04_JPRB,0.31264E-04_JPRB, &
+ & 0.37439E-04_JPRB,0.43299E-04_JPRB,0.49335E-04_JPRB,0.41254E-04_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.84370E-07_JPRB,0.10120E-04_JPRB,0.17302E-04_JPRB,0.23633E-04_JPRB,0.29544E-04_JPRB, &
+ & 0.35368E-04_JPRB,0.40885E-04_JPRB,0.46535E-04_JPRB,0.37819E-04_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.97346E-07_JPRB,0.10254E-04_JPRB,0.17458E-04_JPRB,0.23773E-04_JPRB,0.29672E-04_JPRB, &
+ & 0.35542E-04_JPRB,0.41140E-04_JPRB,0.46864E-04_JPRB,0.38054E-04_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.27937E-07_JPRB,0.87332E-05_JPRB,0.15102E-04_JPRB,0.20785E-04_JPRB,0.26002E-04_JPRB, &
+ & 0.30993E-04_JPRB,0.35918E-04_JPRB,0.41124E-04_JPRB,0.32692E-04_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.34502E-07_JPRB,0.88655E-05_JPRB,0.15279E-04_JPRB,0.20992E-04_JPRB,0.26281E-04_JPRB, &
+ & 0.31393E-04_JPRB,0.36363E-04_JPRB,0.41768E-04_JPRB,0.33047E-04_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.45243E-07_JPRB,0.95567E-05_JPRB,0.16535E-04_JPRB,0.22740E-04_JPRB,0.28503E-04_JPRB, &
+ & 0.34161E-04_JPRB,0.39521E-04_JPRB,0.45509E-04_JPRB,0.37184E-04_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.56029E-07_JPRB,0.96404E-05_JPRB,0.16599E-04_JPRB,0.22759E-04_JPRB,0.28526E-04_JPRB, &
+ & 0.34207E-04_JPRB,0.39586E-04_JPRB,0.45601E-04_JPRB,0.37152E-04_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.67453E-07_JPRB,0.92372E-05_JPRB,0.15744E-04_JPRB,0.21435E-04_JPRB,0.26769E-04_JPRB, &
+ & 0.32085E-04_JPRB,0.37228E-04_JPRB,0.42908E-04_JPRB,0.33841E-04_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.21909E-07_JPRB,0.77821E-05_JPRB,0.13457E-04_JPRB,0.18525E-04_JPRB,0.23194E-04_JPRB, &
+ & 0.27662E-04_JPRB,0.32086E-04_JPRB,0.37089E-04_JPRB,0.28700E-04_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.25816E-07_JPRB,0.78998E-05_JPRB,0.13627E-04_JPRB,0.18723E-04_JPRB,0.23459E-04_JPRB, &
+ & 0.28049E-04_JPRB,0.32494E-04_JPRB,0.37775E-04_JPRB,0.29060E-04_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.28009E-07_JPRB,0.80177E-05_JPRB,0.13778E-04_JPRB,0.18883E-04_JPRB,0.23652E-04_JPRB, &
+ & 0.28348E-04_JPRB,0.32831E-04_JPRB,0.38183E-04_JPRB,0.29363E-04_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.32250E-07_JPRB,0.87000E-05_JPRB,0.14997E-04_JPRB,0.20591E-04_JPRB,0.25858E-04_JPRB, &
+ & 0.30984E-04_JPRB,0.35855E-04_JPRB,0.41716E-04_JPRB,0.33352E-04_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.38565E-07_JPRB,0.82442E-05_JPRB,0.14048E-04_JPRB,0.19147E-04_JPRB,0.23963E-04_JPRB, &
+ & 0.28712E-04_JPRB,0.33322E-04_JPRB,0.38841E-04_JPRB,0.29827E-04_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.27845E-07_JPRB,0.68782E-05_JPRB,0.11887E-04_JPRB,0.16370E-04_JPRB,0.20522E-04_JPRB, &
+ & 0.24507E-04_JPRB,0.28445E-04_JPRB,0.33146E-04_JPRB,0.25091E-04_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.30162E-07_JPRB,0.69860E-05_JPRB,0.12053E-04_JPRB,0.16569E-04_JPRB,0.20786E-04_JPRB, &
+ & 0.24863E-04_JPRB,0.28833E-04_JPRB,0.33823E-04_JPRB,0.25439E-04_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.31547E-07_JPRB,0.70934E-05_JPRB,0.12196E-04_JPRB,0.16734E-04_JPRB,0.20984E-04_JPRB, &
+ & 0.25140E-04_JPRB,0.29167E-04_JPRB,0.34188E-04_JPRB,0.25743E-04_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.30733E-07_JPRB,0.72009E-05_JPRB,0.12319E-04_JPRB,0.16870E-04_JPRB,0.21150E-04_JPRB, &
+ & 0.25350E-04_JPRB,0.29432E-04_JPRB,0.34551E-04_JPRB,0.26011E-04_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.33104E-07_JPRB,0.78742E-05_JPRB,0.13511E-04_JPRB,0.18536E-04_JPRB,0.23314E-04_JPRB, &
+ & 0.27934E-04_JPRB,0.32284E-04_JPRB,0.37983E-04_JPRB,0.29911E-04_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.31453E-07_JPRB,0.60344E-05_JPRB,0.10431E-04_JPRB,0.14360E-04_JPRB,0.18025E-04_JPRB, &
+ & 0.21556E-04_JPRB,0.25057E-04_JPRB,0.29352E-04_JPRB,0.21244E-04_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.32645E-07_JPRB,0.61373E-05_JPRB,0.10589E-04_JPRB,0.14561E-04_JPRB,0.18288E-04_JPRB, &
+ & 0.21896E-04_JPRB,0.25427E-04_JPRB,0.30041E-04_JPRB,0.21582E-04_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.36285E-07_JPRB,0.62371E-05_JPRB,0.10724E-04_JPRB,0.14730E-04_JPRB,0.18494E-04_JPRB, &
+ & 0.22175E-04_JPRB,0.25749E-04_JPRB,0.30401E-04_JPRB,0.21875E-04_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.35840E-07_JPRB,0.63361E-05_JPRB,0.10841E-04_JPRB,0.14872E-04_JPRB,0.18672E-04_JPRB, &
+ & 0.22386E-04_JPRB,0.26001E-04_JPRB,0.30772E-04_JPRB,0.22136E-04_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.34391E-07_JPRB,0.70384E-05_JPRB,0.12100E-04_JPRB,0.16639E-04_JPRB,0.20967E-04_JPRB, &
+ & 0.25106E-04_JPRB,0.29033E-04_JPRB,0.34382E-04_JPRB,0.26458E-04_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.38317E-07_JPRB,0.52554E-05_JPRB,0.90847E-05_JPRB,0.12506E-04_JPRB,0.15706E-04_JPRB, &
+ & 0.18802E-04_JPRB,0.21926E-04_JPRB,0.25721E-04_JPRB,0.82786E-05_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.42993E-07_JPRB,0.53521E-05_JPRB,0.92425E-05_JPRB,0.12708E-04_JPRB,0.15965E-04_JPRB, &
+ & 0.19131E-04_JPRB,0.22269E-04_JPRB,0.26449E-04_JPRB,0.85145E-05_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.43612E-07_JPRB,0.54474E-05_JPRB,0.93707E-05_JPRB,0.12875E-04_JPRB,0.16176E-04_JPRB, &
+ & 0.19407E-04_JPRB,0.22575E-04_JPRB,0.26830E-04_JPRB,0.87594E-05_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.42757E-07_JPRB,0.55405E-05_JPRB,0.94823E-05_JPRB,0.13019E-04_JPRB,0.16363E-04_JPRB, &
+ & 0.19625E-04_JPRB,0.22815E-04_JPRB,0.27200E-04_JPRB,0.90170E-05_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.43664E-07_JPRB,0.56274E-05_JPRB,0.95923E-05_JPRB,0.13140E-04_JPRB,0.16520E-04_JPRB, &
+ & 0.19797E-04_JPRB,0.22995E-04_JPRB,0.27528E-04_JPRB,0.91836E-05_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.39995E-07_JPRB,0.45414E-05_JPRB,0.78502E-05_JPRB,0.10801E-04_JPRB,0.13562E-04_JPRB, &
+ & 0.16248E-04_JPRB,0.19009E-04_JPRB,0.22439E-04_JPRB,0.93804E-05_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.43614E-07_JPRB,0.46331E-05_JPRB,0.80059E-05_JPRB,0.11000E-04_JPRB,0.13813E-04_JPRB, &
+ & 0.16577E-04_JPRB,0.19346E-04_JPRB,0.23103E-04_JPRB,0.95334E-05_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.45687E-07_JPRB,0.47201E-05_JPRB,0.81316E-05_JPRB,0.11167E-04_JPRB,0.14031E-04_JPRB, &
+ & 0.16844E-04_JPRB,0.19646E-04_JPRB,0.23513E-04_JPRB,0.96503E-05_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.48386E-07_JPRB,0.48081E-05_JPRB,0.82413E-05_JPRB,0.11310E-04_JPRB,0.14223E-04_JPRB, &
+ & 0.17063E-04_JPRB,0.19885E-04_JPRB,0.23881E-04_JPRB,0.95360E-05_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.54287E-07_JPRB,0.48899E-05_JPRB,0.83473E-05_JPRB,0.11434E-04_JPRB,0.14383E-04_JPRB, &
+ & 0.17240E-04_JPRB,0.20064E-04_JPRB,0.24201E-04_JPRB,0.94267E-05_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.45720E-07_JPRB,0.38685E-05_JPRB,0.67269E-05_JPRB,0.92537E-05_JPRB,0.11613E-04_JPRB, &
+ & 0.13930E-04_JPRB,0.16333E-04_JPRB,0.19500E-04_JPRB,0.15537E-04_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.46817E-07_JPRB,0.39568E-05_JPRB,0.68775E-05_JPRB,0.94493E-05_JPRB,0.11857E-04_JPRB, &
+ & 0.14250E-04_JPRB,0.16679E-04_JPRB,0.19983E-04_JPRB,0.15822E-04_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.48700E-07_JPRB,0.40362E-05_JPRB,0.70012E-05_JPRB,0.96148E-05_JPRB,0.12076E-04_JPRB, &
+ & 0.14508E-04_JPRB,0.16969E-04_JPRB,0.20440E-04_JPRB,0.15878E-04_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.54460E-07_JPRB,0.41199E-05_JPRB,0.71098E-05_JPRB,0.97580E-05_JPRB,0.12268E-04_JPRB, &
+ & 0.14725E-04_JPRB,0.17206E-04_JPRB,0.20805E-04_JPRB,0.16014E-04_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.59565E-07_JPRB,0.42000E-05_JPRB,0.72128E-05_JPRB,0.98789E-05_JPRB,0.12424E-04_JPRB, &
+ & 0.14896E-04_JPRB,0.17382E-04_JPRB,0.21113E-04_JPRB,0.15894E-04_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.60502E-07_JPRB,0.31758E-05_JPRB,0.57011E-05_JPRB,0.78602E-05_JPRB,0.98646E-05_JPRB, &
+ & 0.11842E-04_JPRB,0.13914E-04_JPRB,0.16812E-04_JPRB,0.32738E-04_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.61920E-07_JPRB,0.32583E-05_JPRB,0.58474E-05_JPRB,0.80501E-05_JPRB,0.10097E-04_JPRB, &
+ & 0.12150E-04_JPRB,0.14260E-04_JPRB,0.17128E-04_JPRB,0.32707E-04_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.66102E-07_JPRB,0.33410E-05_JPRB,0.59686E-05_JPRB,0.82148E-05_JPRB,0.10310E-04_JPRB, &
+ & 0.12398E-04_JPRB,0.14542E-04_JPRB,0.17650E-04_JPRB,0.33629E-04_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.86168E-07_JPRB,0.34261E-05_JPRB,0.60763E-05_JPRB,0.83539E-05_JPRB,0.10496E-04_JPRB, &
+ & 0.12604E-04_JPRB,0.14773E-04_JPRB,0.17994E-04_JPRB,0.33878E-04_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.91586E-07_JPRB,0.35057E-05_JPRB,0.61764E-05_JPRB,0.84703E-05_JPRB,0.10646E-04_JPRB, &
+ & 0.12765E-04_JPRB,0.14939E-04_JPRB,0.18282E-04_JPRB,0.33645E-04_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.96997E-07_JPRB,0.19211E-05_JPRB,0.47098E-05_JPRB,0.66155E-05_JPRB,0.83225E-05_JPRB, &
+ & 0.10005E-04_JPRB,0.11773E-04_JPRB,0.14404E-04_JPRB,0.53631E-04_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.96064E-07_JPRB,0.20141E-05_JPRB,0.48491E-05_JPRB,0.67941E-05_JPRB,0.85382E-05_JPRB, &
+ & 0.10290E-04_JPRB,0.12102E-04_JPRB,0.14626E-04_JPRB,0.54289E-04_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.10431E-06_JPRB,0.20834E-05_JPRB,0.49690E-05_JPRB,0.69520E-05_JPRB,0.87398E-05_JPRB, &
+ & 0.10520E-04_JPRB,0.12369E-04_JPRB,0.15124E-04_JPRB,0.55603E-04_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.11432E-06_JPRB,0.21653E-05_JPRB,0.50755E-05_JPRB,0.70852E-05_JPRB,0.89148E-05_JPRB, &
+ & 0.10714E-04_JPRB,0.12591E-04_JPRB,0.15457E-04_JPRB,0.56630E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5,10, 7) = (/ &
+ & 0.11074E-06_JPRB,0.22480E-05_JPRB,0.51732E-05_JPRB,0.71951E-05_JPRB,0.90530E-05_JPRB, &
+ & 0.10860E-04_JPRB,0.12745E-04_JPRB,0.15721E-04_JPRB,0.54963E-04_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.15854E-06_JPRB,0.91297E-06_JPRB,0.32555E-05_JPRB,0.55113E-05_JPRB,0.70464E-05_JPRB, &
+ & 0.85121E-05_JPRB,0.10027E-04_JPRB,0.12303E-04_JPRB,0.52607E-04_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.16751E-06_JPRB,0.96634E-06_JPRB,0.33790E-05_JPRB,0.56722E-05_JPRB,0.72351E-05_JPRB, &
+ & 0.87519E-05_JPRB,0.10311E-04_JPRB,0.12547E-04_JPRB,0.52883E-04_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.16741E-06_JPRB,0.10318E-05_JPRB,0.35064E-05_JPRB,0.58058E-05_JPRB,0.74099E-05_JPRB, &
+ & 0.89413E-05_JPRB,0.10546E-04_JPRB,0.12998E-04_JPRB,0.52407E-04_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.16708E-06_JPRB,0.10925E-05_JPRB,0.36064E-05_JPRB,0.59145E-05_JPRB,0.75531E-05_JPRB, &
+ & 0.90996E-05_JPRB,0.10715E-04_JPRB,0.13285E-04_JPRB,0.53203E-04_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.16578E-06_JPRB,0.11490E-05_JPRB,0.36852E-05_JPRB,0.60104E-05_JPRB,0.76652E-05_JPRB, &
+ & 0.92182E-05_JPRB,0.10838E-04_JPRB,0.13496E-04_JPRB,0.54467E-04_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.17287E-06_JPRB,0.67222E-06_JPRB,0.20177E-05_JPRB,0.42045E-05_JPRB,0.58863E-05_JPRB, &
+ & 0.71911E-05_JPRB,0.84904E-05_JPRB,0.10467E-04_JPRB,0.53824E-04_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.17534E-06_JPRB,0.66930E-06_JPRB,0.20902E-05_JPRB,0.43510E-05_JPRB,0.60518E-05_JPRB, &
+ & 0.73834E-05_JPRB,0.87285E-05_JPRB,0.10723E-04_JPRB,0.57713E-04_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.19862E-06_JPRB,0.69271E-06_JPRB,0.21807E-05_JPRB,0.44473E-05_JPRB,0.61938E-05_JPRB, &
+ & 0.75395E-05_JPRB,0.89230E-05_JPRB,0.11082E-04_JPRB,0.58727E-04_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.20481E-06_JPRB,0.70155E-06_JPRB,0.22437E-05_JPRB,0.45330E-05_JPRB,0.63072E-05_JPRB, &
+ & 0.76639E-05_JPRB,0.90515E-05_JPRB,0.11316E-04_JPRB,0.62478E-04_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.22362E-06_JPRB,0.66686E-06_JPRB,0.23107E-05_JPRB,0.46277E-05_JPRB,0.64004E-05_JPRB, &
+ & 0.77560E-05_JPRB,0.91460E-05_JPRB,0.11480E-04_JPRB,0.61459E-04_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.24394E-06_JPRB,0.78850E-06_JPRB,0.10005E-05_JPRB,0.25869E-05_JPRB,0.46671E-05_JPRB, &
+ & 0.60110E-05_JPRB,0.71462E-05_JPRB,0.88357E-05_JPRB,0.59707E-04_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.25387E-06_JPRB,0.77656E-06_JPRB,0.10565E-05_JPRB,0.27093E-05_JPRB,0.48105E-05_JPRB, &
+ & 0.61610E-05_JPRB,0.73436E-05_JPRB,0.90989E-05_JPRB,0.60151E-04_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.22260E-06_JPRB,0.76604E-06_JPRB,0.11188E-05_JPRB,0.28168E-05_JPRB,0.49259E-05_JPRB, &
+ & 0.62864E-05_JPRB,0.74912E-05_JPRB,0.93777E-05_JPRB,0.58560E-04_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.22499E-06_JPRB,0.75979E-06_JPRB,0.11746E-05_JPRB,0.28869E-05_JPRB,0.50154E-05_JPRB, &
+ & 0.63819E-05_JPRB,0.75933E-05_JPRB,0.95633E-05_JPRB,0.61656E-04_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.22527E-06_JPRB,0.74699E-06_JPRB,0.12195E-05_JPRB,0.29526E-05_JPRB,0.50915E-05_JPRB, &
+ & 0.64528E-05_JPRB,0.76669E-05_JPRB,0.96909E-05_JPRB,0.60588E-04_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.29788E-05_JPRB,0.29380E-04_JPRB,0.47103E-04_JPRB,0.62484E-04_JPRB,0.75923E-04_JPRB, &
+ & 0.86945E-04_JPRB,0.96459E-04_JPRB,0.10727E-03_JPRB,0.95715E-04_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.31829E-05_JPRB,0.29542E-04_JPRB,0.47406E-04_JPRB,0.62987E-04_JPRB,0.76500E-04_JPRB, &
+ & 0.87575E-04_JPRB,0.97244E-04_JPRB,0.10847E-03_JPRB,0.96769E-04_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.34017E-05_JPRB,0.30451E-04_JPRB,0.49181E-04_JPRB,0.65673E-04_JPRB,0.79848E-04_JPRB, &
+ & 0.91475E-04_JPRB,0.10206E-03_JPRB,0.11418E-03_JPRB,0.10339E-03_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.36204E-05_JPRB,0.29858E-04_JPRB,0.47964E-04_JPRB,0.63849E-04_JPRB,0.77416E-04_JPRB, &
+ & 0.88495E-04_JPRB,0.98624E-04_JPRB,0.11030E-03_JPRB,0.98665E-04_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.38336E-05_JPRB,0.30032E-04_JPRB,0.48176E-04_JPRB,0.64174E-04_JPRB,0.77743E-04_JPRB, &
+ & 0.88899E-04_JPRB,0.99219E-04_JPRB,0.11117E-03_JPRB,0.99410E-04_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.24422E-05_JPRB,0.27039E-04_JPRB,0.43472E-04_JPRB,0.57657E-04_JPRB,0.69985E-04_JPRB, &
+ & 0.80297E-04_JPRB,0.89716E-04_JPRB,0.10091E-03_JPRB,0.87814E-04_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.26194E-05_JPRB,0.27224E-04_JPRB,0.43834E-04_JPRB,0.58227E-04_JPRB,0.70564E-04_JPRB, &
+ & 0.80899E-04_JPRB,0.90555E-04_JPRB,0.10201E-03_JPRB,0.88900E-04_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.28026E-05_JPRB,0.28185E-04_JPRB,0.45675E-04_JPRB,0.60941E-04_JPRB,0.73932E-04_JPRB, &
+ & 0.84933E-04_JPRB,0.95539E-04_JPRB,0.10795E-03_JPRB,0.95932E-04_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.29807E-05_JPRB,0.28297E-04_JPRB,0.45818E-04_JPRB,0.61151E-04_JPRB,0.74119E-04_JPRB, &
+ & 0.85132E-04_JPRB,0.95905E-04_JPRB,0.10857E-03_JPRB,0.96316E-04_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.31559E-05_JPRB,0.27777E-04_JPRB,0.44649E-04_JPRB,0.59431E-04_JPRB,0.71821E-04_JPRB, &
+ & 0.82324E-04_JPRB,0.92537E-04_JPRB,0.10487E-03_JPRB,0.91446E-04_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.19527E-05_JPRB,0.24728E-04_JPRB,0.39864E-04_JPRB,0.52777E-04_JPRB,0.63893E-04_JPRB, &
+ & 0.73441E-04_JPRB,0.82582E-04_JPRB,0.93968E-04_JPRB,0.79571E-04_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.21028E-05_JPRB,0.24948E-04_JPRB,0.40273E-04_JPRB,0.53366E-04_JPRB,0.64472E-04_JPRB, &
+ & 0.74070E-04_JPRB,0.83496E-04_JPRB,0.95166E-04_JPRB,0.80711E-04_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.22571E-05_JPRB,0.25146E-04_JPRB,0.40613E-04_JPRB,0.53873E-04_JPRB,0.64998E-04_JPRB, &
+ & 0.74638E-04_JPRB,0.84298E-04_JPRB,0.96249E-04_JPRB,0.81670E-04_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.24052E-05_JPRB,0.26082E-04_JPRB,0.42367E-04_JPRB,0.56407E-04_JPRB,0.68204E-04_JPRB, &
+ & 0.78600E-04_JPRB,0.89199E-04_JPRB,0.10217E-03_JPRB,0.88502E-04_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.25493E-05_JPRB,0.25521E-04_JPRB,0.41156E-04_JPRB,0.54597E-04_JPRB,0.65795E-04_JPRB, &
+ & 0.75610E-04_JPRB,0.85600E-04_JPRB,0.98234E-04_JPRB,0.83132E-04_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.15249E-05_JPRB,0.22458E-04_JPRB,0.36230E-04_JPRB,0.47832E-04_JPRB,0.57788E-04_JPRB, &
+ & 0.66572E-04_JPRB,0.75267E-04_JPRB,0.86613E-04_JPRB,0.71765E-04_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.16472E-05_JPRB,0.22706E-04_JPRB,0.36674E-04_JPRB,0.48420E-04_JPRB,0.58373E-04_JPRB, &
+ & 0.67233E-04_JPRB,0.76205E-04_JPRB,0.87918E-04_JPRB,0.72872E-04_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.17727E-05_JPRB,0.22924E-04_JPRB,0.37041E-04_JPRB,0.48925E-04_JPRB,0.58917E-04_JPRB, &
+ & 0.67822E-04_JPRB,0.77056E-04_JPRB,0.89127E-04_JPRB,0.73812E-04_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.18979E-05_JPRB,0.23116E-04_JPRB,0.37363E-04_JPRB,0.49353E-04_JPRB,0.59386E-04_JPRB, &
+ & 0.68373E-04_JPRB,0.77816E-04_JPRB,0.90208E-04_JPRB,0.74597E-04_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.20187E-05_JPRB,0.24032E-04_JPRB,0.39090E-04_JPRB,0.51784E-04_JPRB,0.62486E-04_JPRB, &
+ & 0.72274E-04_JPRB,0.82652E-04_JPRB,0.95944E-04_JPRB,0.81360E-04_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.11616E-05_JPRB,0.20230E-04_JPRB,0.32593E-04_JPRB,0.43015E-04_JPRB,0.51913E-04_JPRB, &
+ & 0.59885E-04_JPRB,0.68041E-04_JPRB,0.79091E-04_JPRB,0.64237E-04_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.12634E-05_JPRB,0.20493E-04_JPRB,0.33052E-04_JPRB,0.43575E-04_JPRB,0.52485E-04_JPRB, &
+ & 0.60579E-04_JPRB,0.68993E-04_JPRB,0.80447E-04_JPRB,0.65308E-04_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.13665E-05_JPRB,0.20722E-04_JPRB,0.33449E-04_JPRB,0.44078E-04_JPRB,0.53031E-04_JPRB, &
+ & 0.61206E-04_JPRB,0.69878E-04_JPRB,0.81712E-04_JPRB,0.66219E-04_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.14654E-05_JPRB,0.20926E-04_JPRB,0.33806E-04_JPRB,0.44507E-04_JPRB,0.53511E-04_JPRB, &
+ & 0.61775E-04_JPRB,0.70644E-04_JPRB,0.82800E-04_JPRB,0.67010E-04_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.15654E-05_JPRB,0.21919E-04_JPRB,0.35683E-04_JPRB,0.47135E-04_JPRB,0.56892E-04_JPRB, &
+ & 0.66014E-04_JPRB,0.75901E-04_JPRB,0.88948E-04_JPRB,0.74367E-04_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.85477E-06_JPRB,0.18056E-04_JPRB,0.29058E-04_JPRB,0.38374E-04_JPRB,0.46318E-04_JPRB, &
+ & 0.53503E-04_JPRB,0.60983E-04_JPRB,0.71567E-04_JPRB,0.55220E-04_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.93399E-06_JPRB,0.18333E-04_JPRB,0.29518E-04_JPRB,0.38924E-04_JPRB,0.46903E-04_JPRB, &
+ & 0.54228E-04_JPRB,0.61990E-04_JPRB,0.72960E-04_JPRB,0.56327E-04_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.10173E-05_JPRB,0.18568E-04_JPRB,0.29940E-04_JPRB,0.39430E-04_JPRB,0.47457E-04_JPRB, &
+ & 0.54891E-04_JPRB,0.62912E-04_JPRB,0.74219E-04_JPRB,0.57262E-04_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.10990E-05_JPRB,0.18773E-04_JPRB,0.30321E-04_JPRB,0.39858E-04_JPRB,0.47937E-04_JPRB, &
+ & 0.55463E-04_JPRB,0.63685E-04_JPRB,0.75339E-04_JPRB,0.58060E-04_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.11736E-05_JPRB,0.18980E-04_JPRB,0.30632E-04_JPRB,0.40210E-04_JPRB,0.48338E-04_JPRB, &
+ & 0.55952E-04_JPRB,0.64349E-04_JPRB,0.76243E-04_JPRB,0.58787E-04_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.60315E-06_JPRB,0.15982E-04_JPRB,0.25725E-04_JPRB,0.33991E-04_JPRB,0.41066E-04_JPRB, &
+ & 0.47516E-04_JPRB,0.54302E-04_JPRB,0.64196E-04_JPRB,0.19175E-04_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.66792E-06_JPRB,0.16270E-04_JPRB,0.26184E-04_JPRB,0.34534E-04_JPRB,0.41673E-04_JPRB, &
+ & 0.48253E-04_JPRB,0.55322E-04_JPRB,0.65617E-04_JPRB,0.20214E-04_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.72908E-06_JPRB,0.16517E-04_JPRB,0.26616E-04_JPRB,0.35037E-04_JPRB,0.42229E-04_JPRB, &
+ & 0.48924E-04_JPRB,0.56239E-04_JPRB,0.66903E-04_JPRB,0.21171E-04_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.78570E-06_JPRB,0.16735E-04_JPRB,0.27002E-04_JPRB,0.35463E-04_JPRB,0.42700E-04_JPRB, &
+ & 0.49504E-04_JPRB,0.57015E-04_JPRB,0.68011E-04_JPRB,0.22118E-04_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.83832E-06_JPRB,0.16948E-04_JPRB,0.27325E-04_JPRB,0.35815E-04_JPRB,0.43102E-04_JPRB, &
+ & 0.50003E-04_JPRB,0.57693E-04_JPRB,0.68917E-04_JPRB,0.22989E-04_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.37835E-06_JPRB,0.14042E-04_JPRB,0.22619E-04_JPRB,0.29906E-04_JPRB,0.36184E-04_JPRB, &
+ & 0.41943E-04_JPRB,0.48058E-04_JPRB,0.57159E-04_JPRB,0.15030E-04_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.42400E-06_JPRB,0.14336E-04_JPRB,0.23076E-04_JPRB,0.30441E-04_JPRB,0.36790E-04_JPRB, &
+ & 0.42677E-04_JPRB,0.49055E-04_JPRB,0.58574E-04_JPRB,0.15267E-04_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.47003E-06_JPRB,0.14598E-04_JPRB,0.23503E-04_JPRB,0.30926E-04_JPRB,0.37338E-04_JPRB, &
+ & 0.43345E-04_JPRB,0.49944E-04_JPRB,0.59871E-04_JPRB,0.15168E-04_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.50983E-06_JPRB,0.14832E-04_JPRB,0.23887E-04_JPRB,0.31342E-04_JPRB,0.37806E-04_JPRB, &
+ & 0.43932E-04_JPRB,0.50714E-04_JPRB,0.60954E-04_JPRB,0.15479E-04_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.55238E-06_JPRB,0.15050E-04_JPRB,0.24211E-04_JPRB,0.31698E-04_JPRB,0.38215E-04_JPRB, &
+ & 0.44447E-04_JPRB,0.51404E-04_JPRB,0.61843E-04_JPRB,0.15864E-04_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.20614E-06_JPRB,0.12247E-04_JPRB,0.19755E-04_JPRB,0.26136E-04_JPRB,0.31671E-04_JPRB, &
+ & 0.36795E-04_JPRB,0.42267E-04_JPRB,0.50480E-04_JPRB,0.31415E-04_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.22820E-06_JPRB,0.12543E-04_JPRB,0.20203E-04_JPRB,0.26660E-04_JPRB,0.32273E-04_JPRB, &
+ & 0.37518E-04_JPRB,0.43228E-04_JPRB,0.51895E-04_JPRB,0.32257E-04_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.25381E-06_JPRB,0.12814E-04_JPRB,0.20621E-04_JPRB,0.27129E-04_JPRB,0.32814E-04_JPRB, &
+ & 0.38186E-04_JPRB,0.44095E-04_JPRB,0.53151E-04_JPRB,0.31766E-04_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.26266E-06_JPRB,0.13056E-04_JPRB,0.20991E-04_JPRB,0.27538E-04_JPRB,0.33285E-04_JPRB, &
+ & 0.38781E-04_JPRB,0.44859E-04_JPRB,0.54214E-04_JPRB,0.32184E-04_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.28878E-06_JPRB,0.13277E-04_JPRB,0.21308E-04_JPRB,0.27899E-04_JPRB,0.33704E-04_JPRB, &
+ & 0.39313E-04_JPRB,0.45556E-04_JPRB,0.55111E-04_JPRB,0.32436E-04_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.12421E-06_JPRB,0.10598E-04_JPRB,0.17170E-04_JPRB,0.22745E-04_JPRB,0.27597E-04_JPRB, &
+ & 0.32129E-04_JPRB,0.37024E-04_JPRB,0.44410E-04_JPRB,0.36288E-04_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.11833E-06_JPRB,0.10888E-04_JPRB,0.17606E-04_JPRB,0.23251E-04_JPRB,0.28191E-04_JPRB, &
+ & 0.32843E-04_JPRB,0.37957E-04_JPRB,0.45757E-04_JPRB,0.36706E-04_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.11564E-06_JPRB,0.11153E-04_JPRB,0.18009E-04_JPRB,0.23706E-04_JPRB,0.28726E-04_JPRB, &
+ & 0.33507E-04_JPRB,0.38804E-04_JPRB,0.46971E-04_JPRB,0.39285E-04_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.11888E-06_JPRB,0.11400E-04_JPRB,0.18364E-04_JPRB,0.24104E-04_JPRB,0.29196E-04_JPRB, &
+ & 0.34101E-04_JPRB,0.39555E-04_JPRB,0.47996E-04_JPRB,0.37765E-04_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.13250E-06_JPRB,0.11625E-04_JPRB,0.18671E-04_JPRB,0.24463E-04_JPRB,0.29622E-04_JPRB, &
+ & 0.34646E-04_JPRB,0.40249E-04_JPRB,0.48876E-04_JPRB,0.41184E-04_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.17958E-06_JPRB,0.90757E-05_JPRB,0.15007E-04_JPRB,0.19889E-04_JPRB,0.24154E-04_JPRB, &
+ & 0.28187E-04_JPRB,0.32636E-04_JPRB,0.39437E-04_JPRB,0.34162E-04_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.18139E-06_JPRB,0.93666E-05_JPRB,0.15418E-04_JPRB,0.20361E-04_JPRB,0.24716E-04_JPRB, &
+ & 0.28864E-04_JPRB,0.33507E-04_JPRB,0.40680E-04_JPRB,0.35787E-04_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.18275E-06_JPRB,0.96291E-05_JPRB,0.15787E-04_JPRB,0.20786E-04_JPRB,0.25221E-04_JPRB, &
+ & 0.29495E-04_JPRB,0.34295E-04_JPRB,0.41765E-04_JPRB,0.33878E-04_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.18574E-06_JPRB,0.98743E-05_JPRB,0.16117E-04_JPRB,0.21165E-04_JPRB,0.25673E-04_JPRB, &
+ & 0.30069E-04_JPRB,0.35015E-04_JPRB,0.42686E-04_JPRB,0.32841E-04_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.20082E-06_JPRB,0.10102E-04_JPRB,0.16409E-04_JPRB,0.21512E-04_JPRB,0.26096E-04_JPRB, &
+ & 0.30600E-04_JPRB,0.35678E-04_JPRB,0.43526E-04_JPRB,0.33904E-04_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.23860E-06_JPRB,0.72127E-05_JPRB,0.13015E-04_JPRB,0.17297E-04_JPRB,0.21033E-04_JPRB, &
+ & 0.24600E-04_JPRB,0.28604E-04_JPRB,0.34818E-04_JPRB,0.40933E-04_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.23391E-06_JPRB,0.75352E-05_JPRB,0.13408E-04_JPRB,0.17740E-04_JPRB,0.21564E-04_JPRB, &
+ & 0.25251E-04_JPRB,0.29426E-04_JPRB,0.35947E-04_JPRB,0.39399E-04_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.24701E-06_JPRB,0.78057E-05_JPRB,0.13760E-04_JPRB,0.18144E-04_JPRB,0.22045E-04_JPRB, &
+ & 0.25844E-04_JPRB,0.30162E-04_JPRB,0.36924E-04_JPRB,0.38294E-04_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.26761E-06_JPRB,0.80774E-05_JPRB,0.14071E-04_JPRB,0.18509E-04_JPRB,0.22485E-04_JPRB, &
+ & 0.26399E-04_JPRB,0.30850E-04_JPRB,0.37793E-04_JPRB,0.37310E-04_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.23665E-06_JPRB,0.83711E-05_JPRB,0.14360E-04_JPRB,0.18850E-04_JPRB,0.22903E-04_JPRB, &
+ & 0.26918E-04_JPRB,0.31485E-04_JPRB,0.38601E-04_JPRB,0.34593E-04_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.27521E-06_JPRB,0.50755E-05_JPRB,0.11059E-04_JPRB,0.14942E-04_JPRB,0.18221E-04_JPRB, &
+ & 0.21366E-04_JPRB,0.24941E-04_JPRB,0.30569E-04_JPRB,0.35909E-04_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.25317E-06_JPRB,0.53749E-05_JPRB,0.11450E-04_JPRB,0.15364E-04_JPRB,0.18725E-04_JPRB, &
+ & 0.21982E-04_JPRB,0.25707E-04_JPRB,0.31598E-04_JPRB,0.37411E-04_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.23895E-06_JPRB,0.56684E-05_JPRB,0.11800E-04_JPRB,0.15745E-04_JPRB,0.19182E-04_JPRB, &
+ & 0.22548E-04_JPRB,0.26403E-04_JPRB,0.32490E-04_JPRB,0.35715E-04_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.23323E-06_JPRB,0.59219E-05_JPRB,0.12110E-04_JPRB,0.16104E-04_JPRB,0.19621E-04_JPRB, &
+ & 0.23090E-04_JPRB,0.27069E-04_JPRB,0.33309E-04_JPRB,0.26489E-04_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.23115E-06_JPRB,0.61949E-05_JPRB,0.12408E-04_JPRB,0.16438E-04_JPRB,0.20031E-04_JPRB, &
+ & 0.23602E-04_JPRB,0.27683E-04_JPRB,0.34068E-04_JPRB,0.26612E-04_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.91507E-04_JPRB,0.14710E-03_JPRB,0.19128E-03_JPRB,0.22605E-03_JPRB,0.25532E-03_JPRB, &
+ & 0.28077E-03_JPRB,0.30345E-03_JPRB,0.32646E-03_JPRB,0.30807E-03_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.91242E-04_JPRB,0.14642E-03_JPRB,0.19074E-03_JPRB,0.22564E-03_JPRB,0.25500E-03_JPRB, &
+ & 0.28086E-03_JPRB,0.30369E-03_JPRB,0.32690E-03_JPRB,0.30957E-03_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.90877E-04_JPRB,0.14692E-03_JPRB,0.19251E-03_JPRB,0.22869E-03_JPRB,0.25946E-03_JPRB, &
+ & 0.28682E-03_JPRB,0.31087E-03_JPRB,0.33538E-03_JPRB,0.32011E-03_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.90459E-04_JPRB,0.14494E-03_JPRB,0.18943E-03_JPRB,0.22459E-03_JPRB,0.25465E-03_JPRB, &
+ & 0.28114E-03_JPRB,0.30414E-03_JPRB,0.32755E-03_JPRB,0.31196E-03_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.89993E-04_JPRB,0.14416E-03_JPRB,0.18875E-03_JPRB,0.22408E-03_JPRB,0.25453E-03_JPRB, &
+ & 0.28137E-03_JPRB,0.30449E-03_JPRB,0.32780E-03_JPRB,0.31307E-03_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.77262E-04_JPRB,0.13432E-03_JPRB,0.17769E-03_JPRB,0.21240E-03_JPRB,0.24204E-03_JPRB, &
+ & 0.26866E-03_JPRB,0.29235E-03_JPRB,0.31628E-03_JPRB,0.29582E-03_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.77061E-04_JPRB,0.13375E-03_JPRB,0.17727E-03_JPRB,0.21210E-03_JPRB,0.24206E-03_JPRB, &
+ & 0.26905E-03_JPRB,0.29288E-03_JPRB,0.31707E-03_JPRB,0.29754E-03_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.76803E-04_JPRB,0.13443E-03_JPRB,0.17926E-03_JPRB,0.21557E-03_JPRB,0.24713E-03_JPRB, &
+ & 0.27557E-03_JPRB,0.30072E-03_JPRB,0.32610E-03_JPRB,0.30880E-03_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.76502E-04_JPRB,0.13372E-03_JPRB,0.17855E-03_JPRB,0.21503E-03_JPRB,0.24689E-03_JPRB, &
+ & 0.27560E-03_JPRB,0.30084E-03_JPRB,0.32601E-03_JPRB,0.30963E-03_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.76149E-04_JPRB,0.13198E-03_JPRB,0.17568E-03_JPRB,0.21133E-03_JPRB,0.24254E-03_JPRB, &
+ & 0.27051E-03_JPRB,0.29485E-03_JPRB,0.31890E-03_JPRB,0.30223E-03_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.65103E-04_JPRB,0.12258E-03_JPRB,0.16452E-03_JPRB,0.19865E-03_JPRB,0.22866E-03_JPRB, &
+ & 0.25591E-03_JPRB,0.28055E-03_JPRB,0.30511E-03_JPRB,0.28178E-03_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.64961E-04_JPRB,0.12216E-03_JPRB,0.16424E-03_JPRB,0.19863E-03_JPRB,0.22903E-03_JPRB, &
+ & 0.25664E-03_JPRB,0.28152E-03_JPRB,0.30626E-03_JPRB,0.28379E-03_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.64796E-04_JPRB,0.12170E-03_JPRB,0.16393E-03_JPRB,0.19861E-03_JPRB,0.22948E-03_JPRB, &
+ & 0.25740E-03_JPRB,0.28253E-03_JPRB,0.30727E-03_JPRB,0.28578E-03_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.64583E-04_JPRB,0.12248E-03_JPRB,0.16600E-03_JPRB,0.20227E-03_JPRB,0.23481E-03_JPRB, &
+ & 0.26421E-03_JPRB,0.29055E-03_JPRB,0.31636E-03_JPRB,0.29736E-03_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.64341E-04_JPRB,0.12081E-03_JPRB,0.16325E-03_JPRB,0.19869E-03_JPRB,0.23043E-03_JPRB, &
+ & 0.25903E-03_JPRB,0.28445E-03_JPRB,0.30920E-03_JPRB,0.28976E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 1, 4, 9) = (/ &
+ & 0.54784E-04_JPRB,0.11174E-03_JPRB,0.15188E-03_JPRB,0.18523E-03_JPRB,0.21503E-03_JPRB, &
+ & 0.24239E-03_JPRB,0.26770E-03_JPRB,0.29311E-03_JPRB,0.26685E-03_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.54700E-04_JPRB,0.11144E-03_JPRB,0.15177E-03_JPRB,0.18550E-03_JPRB,0.21578E-03_JPRB, &
+ & 0.24348E-03_JPRB,0.26903E-03_JPRB,0.29466E-03_JPRB,0.26928E-03_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.54592E-04_JPRB,0.11111E-03_JPRB,0.15167E-03_JPRB,0.18578E-03_JPRB,0.21655E-03_JPRB, &
+ & 0.24456E-03_JPRB,0.27029E-03_JPRB,0.29609E-03_JPRB,0.27162E-03_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.54457E-04_JPRB,0.11078E-03_JPRB,0.15152E-03_JPRB,0.18607E-03_JPRB,0.21728E-03_JPRB, &
+ & 0.24565E-03_JPRB,0.27151E-03_JPRB,0.29746E-03_JPRB,0.27399E-03_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.54312E-04_JPRB,0.11162E-03_JPRB,0.15369E-03_JPRB,0.18993E-03_JPRB,0.22281E-03_JPRB, &
+ & 0.25263E-03_JPRB,0.27972E-03_JPRB,0.30664E-03_JPRB,0.28593E-03_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.46088E-04_JPRB,0.10164E-03_JPRB,0.13985E-03_JPRB,0.17192E-03_JPRB,0.20105E-03_JPRB, &
+ & 0.22810E-03_JPRB,0.25365E-03_JPRB,0.28019E-03_JPRB,0.25169E-03_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.46037E-04_JPRB,0.10150E-03_JPRB,0.13996E-03_JPRB,0.17251E-03_JPRB,0.20208E-03_JPRB, &
+ & 0.22949E-03_JPRB,0.25532E-03_JPRB,0.28211E-03_JPRB,0.25438E-03_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.45971E-04_JPRB,0.10129E-03_JPRB,0.14008E-03_JPRB,0.17302E-03_JPRB,0.20310E-03_JPRB, &
+ & 0.23085E-03_JPRB,0.25690E-03_JPRB,0.28385E-03_JPRB,0.25702E-03_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.45890E-04_JPRB,0.10111E-03_JPRB,0.14015E-03_JPRB,0.17355E-03_JPRB,0.20405E-03_JPRB, &
+ & 0.23221E-03_JPRB,0.25843E-03_JPRB,0.28547E-03_JPRB,0.25970E-03_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.45808E-04_JPRB,0.10210E-03_JPRB,0.14263E-03_JPRB,0.17783E-03_JPRB,0.21010E-03_JPRB, &
+ & 0.23994E-03_JPRB,0.26750E-03_JPRB,0.29545E-03_JPRB,0.27288E-03_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.38759E-04_JPRB,0.92287E-04_JPRB,0.12830E-03_JPRB,0.15873E-03_JPRB,0.18673E-03_JPRB, &
+ & 0.21305E-03_JPRB,0.23858E-03_JPRB,0.26603E-03_JPRB,0.23576E-03_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.38742E-04_JPRB,0.92285E-04_JPRB,0.12860E-03_JPRB,0.15956E-03_JPRB,0.18804E-03_JPRB, &
+ & 0.21479E-03_JPRB,0.24061E-03_JPRB,0.26833E-03_JPRB,0.23876E-03_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.38716E-04_JPRB,0.92248E-04_JPRB,0.12890E-03_JPRB,0.16031E-03_JPRB,0.18934E-03_JPRB, &
+ & 0.21647E-03_JPRB,0.24252E-03_JPRB,0.27042E-03_JPRB,0.24167E-03_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.38672E-04_JPRB,0.92189E-04_JPRB,0.12914E-03_JPRB,0.16108E-03_JPRB,0.19055E-03_JPRB, &
+ & 0.21815E-03_JPRB,0.24441E-03_JPRB,0.27232E-03_JPRB,0.24468E-03_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.38631E-04_JPRB,0.92110E-04_JPRB,0.12940E-03_JPRB,0.16181E-03_JPRB,0.19180E-03_JPRB, &
+ & 0.21982E-03_JPRB,0.24634E-03_JPRB,0.27420E-03_JPRB,0.24778E-03_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.32524E-04_JPRB,0.83578E-04_JPRB,0.11715E-03_JPRB,0.14581E-03_JPRB,0.17242E-03_JPRB, &
+ & 0.19778E-03_JPRB,0.22289E-03_JPRB,0.25099E-03_JPRB,0.21544E-03_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.32544E-04_JPRB,0.83724E-04_JPRB,0.11765E-03_JPRB,0.14685E-03_JPRB,0.17402E-03_JPRB, &
+ & 0.19984E-03_JPRB,0.22531E-03_JPRB,0.25360E-03_JPRB,0.21897E-03_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.32541E-04_JPRB,0.83837E-04_JPRB,0.11812E-03_JPRB,0.14785E-03_JPRB,0.17560E-03_JPRB, &
+ & 0.20184E-03_JPRB,0.22764E-03_JPRB,0.25604E-03_JPRB,0.22234E-03_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.32522E-04_JPRB,0.83911E-04_JPRB,0.11855E-03_JPRB,0.14886E-03_JPRB,0.17710E-03_JPRB, &
+ & 0.20381E-03_JPRB,0.22989E-03_JPRB,0.25831E-03_JPRB,0.22586E-03_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.32511E-04_JPRB,0.83972E-04_JPRB,0.11899E-03_JPRB,0.14985E-03_JPRB,0.17863E-03_JPRB, &
+ & 0.20577E-03_JPRB,0.23212E-03_JPRB,0.26056E-03_JPRB,0.22930E-03_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.27162E-04_JPRB,0.75477E-04_JPRB,0.10657E-03_JPRB,0.13337E-03_JPRB,0.15848E-03_JPRB, &
+ & 0.18267E-03_JPRB,0.20707E-03_JPRB,0.23532E-03_JPRB,0.10685E-03_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.27219E-04_JPRB,0.75747E-04_JPRB,0.10724E-03_JPRB,0.13464E-03_JPRB,0.16036E-03_JPRB, &
+ & 0.18507E-03_JPRB,0.20988E-03_JPRB,0.23834E-03_JPRB,0.11049E-03_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.27240E-04_JPRB,0.75981E-04_JPRB,0.10788E-03_JPRB,0.13591E-03_JPRB,0.16217E-03_JPRB, &
+ & 0.18731E-03_JPRB,0.21250E-03_JPRB,0.24115E-03_JPRB,0.11463E-03_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.27241E-04_JPRB,0.76175E-04_JPRB,0.10851E-03_JPRB,0.13715E-03_JPRB,0.16392E-03_JPRB, &
+ & 0.18952E-03_JPRB,0.21504E-03_JPRB,0.24375E-03_JPRB,0.11830E-03_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.27254E-04_JPRB,0.76338E-04_JPRB,0.10913E-03_JPRB,0.13836E-03_JPRB,0.16569E-03_JPRB, &
+ & 0.19172E-03_JPRB,0.21755E-03_JPRB,0.24638E-03_JPRB,0.12227E-03_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.22546E-04_JPRB,0.67903E-04_JPRB,0.96628E-04_JPRB,0.12150E-03_JPRB,0.14489E-03_JPRB, &
+ & 0.16757E-03_JPRB,0.19095E-03_JPRB,0.21913E-03_JPRB,0.25626E-04_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.22635E-04_JPRB,0.68268E-04_JPRB,0.97460E-04_JPRB,0.12301E-03_JPRB,0.14702E-03_JPRB, &
+ & 0.17028E-03_JPRB,0.19411E-03_JPRB,0.22260E-03_JPRB,0.25839E-04_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.22685E-04_JPRB,0.68616E-04_JPRB,0.98277E-04_JPRB,0.12450E-03_JPRB,0.14909E-03_JPRB, &
+ & 0.17284E-03_JPRB,0.19709E-03_JPRB,0.22578E-03_JPRB,0.27443E-04_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.22709E-04_JPRB,0.68929E-04_JPRB,0.99095E-04_JPRB,0.12593E-03_JPRB,0.15108E-03_JPRB, &
+ & 0.17530E-03_JPRB,0.19995E-03_JPRB,0.22878E-03_JPRB,0.28531E-04_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.22740E-04_JPRB,0.69227E-04_JPRB,0.99896E-04_JPRB,0.12734E-03_JPRB,0.15306E-03_JPRB, &
+ & 0.17777E-03_JPRB,0.20277E-03_JPRB,0.23170E-03_JPRB,0.28894E-04_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.18403E-04_JPRB,0.60856E-04_JPRB,0.87340E-04_JPRB,0.11017E-03_JPRB,0.13174E-03_JPRB, &
+ & 0.15284E-03_JPRB,0.17492E-03_JPRB,0.20267E-03_JPRB,0.31931E-04_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.18527E-04_JPRB,0.61329E-04_JPRB,0.88371E-04_JPRB,0.11191E-03_JPRB,0.13412E-03_JPRB, &
+ & 0.15579E-03_JPRB,0.17838E-03_JPRB,0.20650E-03_JPRB,0.29084E-04_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.18600E-04_JPRB,0.61796E-04_JPRB,0.89354E-04_JPRB,0.11363E-03_JPRB,0.13643E-03_JPRB, &
+ & 0.15861E-03_JPRB,0.18170E-03_JPRB,0.21009E-03_JPRB,0.27893E-04_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.18642E-04_JPRB,0.62226E-04_JPRB,0.90339E-04_JPRB,0.11526E-03_JPRB,0.13867E-03_JPRB, &
+ & 0.16137E-03_JPRB,0.18486E-03_JPRB,0.21346E-03_JPRB,0.33895E-04_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.18688E-04_JPRB,0.62651E-04_JPRB,0.91302E-04_JPRB,0.11690E-03_JPRB,0.14093E-03_JPRB, &
+ & 0.16416E-03_JPRB,0.18804E-03_JPRB,0.21676E-03_JPRB,0.31724E-04_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.14636E-04_JPRB,0.54588E-04_JPRB,0.79114E-04_JPRB,0.10030E-03_JPRB,0.12035E-03_JPRB, &
+ & 0.14003E-03_JPRB,0.16089E-03_JPRB,0.18797E-03_JPRB,0.24886E-04_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.14721E-04_JPRB,0.55182E-04_JPRB,0.80295E-04_JPRB,0.10221E-03_JPRB,0.12288E-03_JPRB, &
+ & 0.14315E-03_JPRB,0.16455E-03_JPRB,0.19200E-03_JPRB,0.28280E-04_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.14784E-04_JPRB,0.55751E-04_JPRB,0.81465E-04_JPRB,0.10405E-03_JPRB,0.12535E-03_JPRB, &
+ & 0.14614E-03_JPRB,0.16802E-03_JPRB,0.19578E-03_JPRB,0.31405E-04_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.14831E-04_JPRB,0.56293E-04_JPRB,0.82611E-04_JPRB,0.10589E-03_JPRB,0.12782E-03_JPRB, &
+ & 0.14918E-03_JPRB,0.17147E-03_JPRB,0.19942E-03_JPRB,0.34684E-04_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.14856E-04_JPRB,0.56829E-04_JPRB,0.83754E-04_JPRB,0.10776E-03_JPRB,0.13034E-03_JPRB, &
+ & 0.15225E-03_JPRB,0.17499E-03_JPRB,0.20312E-03_JPRB,0.30970E-04_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.11572E-04_JPRB,0.48876E-04_JPRB,0.71553E-04_JPRB,0.91191E-04_JPRB,0.10973E-03_JPRB, &
+ & 0.12799E-03_JPRB,0.14756E-03_JPRB,0.17351E-03_JPRB,0.30682E-04_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.11642E-04_JPRB,0.49592E-04_JPRB,0.72882E-04_JPRB,0.93233E-04_JPRB,0.11240E-03_JPRB, &
+ & 0.13124E-03_JPRB,0.15132E-03_JPRB,0.17770E-03_JPRB,0.31240E-04_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.11629E-04_JPRB,0.50261E-04_JPRB,0.74205E-04_JPRB,0.95210E-04_JPRB,0.11505E-03_JPRB, &
+ & 0.13447E-03_JPRB,0.15502E-03_JPRB,0.18170E-03_JPRB,0.31943E-04_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.11633E-04_JPRB,0.50925E-04_JPRB,0.75501E-04_JPRB,0.97246E-04_JPRB,0.11773E-03_JPRB, &
+ & 0.13775E-03_JPRB,0.15878E-03_JPRB,0.18567E-03_JPRB,0.23441E-04_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.11677E-04_JPRB,0.51560E-04_JPRB,0.76851E-04_JPRB,0.99310E-04_JPRB,0.12044E-03_JPRB, &
+ & 0.14103E-03_JPRB,0.16255E-03_JPRB,0.18968E-03_JPRB,0.23249E-04_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.88185E-05_JPRB,0.43709E-04_JPRB,0.64627E-04_JPRB,0.82824E-04_JPRB,0.99889E-04_JPRB, &
+ & 0.11672E-03_JPRB,0.13488E-03_JPRB,0.15952E-03_JPRB,0.30903E-04_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.88986E-05_JPRB,0.44515E-04_JPRB,0.66093E-04_JPRB,0.84980E-04_JPRB,0.10270E-03_JPRB, &
+ & 0.12016E-03_JPRB,0.13885E-03_JPRB,0.16386E-03_JPRB,0.25840E-04_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.89568E-05_JPRB,0.45280E-04_JPRB,0.67556E-04_JPRB,0.87134E-04_JPRB,0.10555E-03_JPRB, &
+ & 0.12361E-03_JPRB,0.14282E-03_JPRB,0.16813E-03_JPRB,0.26878E-04_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.89829E-05_JPRB,0.46045E-04_JPRB,0.69040E-04_JPRB,0.89346E-04_JPRB,0.10842E-03_JPRB, &
+ & 0.12710E-03_JPRB,0.14682E-03_JPRB,0.17243E-03_JPRB,0.28852E-04_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.90413E-05_JPRB,0.46787E-04_JPRB,0.70568E-04_JPRB,0.91561E-04_JPRB,0.11129E-03_JPRB, &
+ & 0.13056E-03_JPRB,0.15080E-03_JPRB,0.17669E-03_JPRB,0.28623E-04_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.44112E-03_JPRB,0.47423E-03_JPRB,0.54876E-03_JPRB,0.61567E-03_JPRB,0.66971E-03_JPRB, &
+ & 0.71699E-03_JPRB,0.76347E-03_JPRB,0.77814E-03_JPRB,0.77298E-03_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.43794E-03_JPRB,0.47285E-03_JPRB,0.54643E-03_JPRB,0.61370E-03_JPRB,0.66959E-03_JPRB, &
+ & 0.71530E-03_JPRB,0.76226E-03_JPRB,0.77693E-03_JPRB,0.76966E-03_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.43480E-03_JPRB,0.47183E-03_JPRB,0.54721E-03_JPRB,0.61831E-03_JPRB,0.67726E-03_JPRB, &
+ & 0.72423E-03_JPRB,0.77288E-03_JPRB,0.78901E-03_JPRB,0.78603E-03_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.43220E-03_JPRB,0.46825E-03_JPRB,0.54213E-03_JPRB,0.61349E-03_JPRB,0.66880E-03_JPRB, &
+ & 0.71215E-03_JPRB,0.75938E-03_JPRB,0.77341E-03_JPRB,0.76775E-03_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.42987E-03_JPRB,0.46597E-03_JPRB,0.54025E-03_JPRB,0.61237E-03_JPRB,0.66800E-03_JPRB, &
+ & 0.70968E-03_JPRB,0.75599E-03_JPRB,0.77132E-03_JPRB,0.76754E-03_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.37934E-03_JPRB,0.43540E-03_JPRB,0.51852E-03_JPRB,0.59327E-03_JPRB,0.65919E-03_JPRB, &
+ & 0.71028E-03_JPRB,0.75523E-03_JPRB,0.78660E-03_JPRB,0.77018E-03_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.37616E-03_JPRB,0.43418E-03_JPRB,0.51743E-03_JPRB,0.59232E-03_JPRB,0.65869E-03_JPRB, &
+ & 0.70879E-03_JPRB,0.75385E-03_JPRB,0.78506E-03_JPRB,0.76914E-03_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.37285E-03_JPRB,0.43338E-03_JPRB,0.51992E-03_JPRB,0.59796E-03_JPRB,0.66588E-03_JPRB, &
+ & 0.71863E-03_JPRB,0.76525E-03_JPRB,0.79746E-03_JPRB,0.78726E-03_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.36993E-03_JPRB,0.43092E-03_JPRB,0.51858E-03_JPRB,0.59729E-03_JPRB,0.66425E-03_JPRB, &
+ & 0.71582E-03_JPRB,0.76129E-03_JPRB,0.79428E-03_JPRB,0.78557E-03_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.36795E-03_JPRB,0.42667E-03_JPRB,0.51498E-03_JPRB,0.59125E-03_JPRB,0.65451E-03_JPRB, &
+ & 0.70295E-03_JPRB,0.74646E-03_JPRB,0.77706E-03_JPRB,0.76846E-03_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.32398E-03_JPRB,0.39840E-03_JPRB,0.48910E-03_JPRB,0.57202E-03_JPRB,0.64247E-03_JPRB, &
+ & 0.69920E-03_JPRB,0.74272E-03_JPRB,0.78560E-03_JPRB,0.76158E-03_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.32107E-03_JPRB,0.39683E-03_JPRB,0.48877E-03_JPRB,0.57106E-03_JPRB,0.64200E-03_JPRB, &
+ & 0.69780E-03_JPRB,0.74068E-03_JPRB,0.78389E-03_JPRB,0.76255E-03_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.31808E-03_JPRB,0.39502E-03_JPRB,0.48851E-03_JPRB,0.57104E-03_JPRB,0.64052E-03_JPRB, &
+ & 0.69677E-03_JPRB,0.73846E-03_JPRB,0.78156E-03_JPRB,0.76341E-03_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.31534E-03_JPRB,0.39419E-03_JPRB,0.49223E-03_JPRB,0.57621E-03_JPRB,0.64746E-03_JPRB, &
+ & 0.70569E-03_JPRB,0.74986E-03_JPRB,0.79350E-03_JPRB,0.78192E-03_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.31343E-03_JPRB,0.39031E-03_JPRB,0.48789E-03_JPRB,0.56911E-03_JPRB,0.63804E-03_JPRB, &
+ & 0.69322E-03_JPRB,0.73529E-03_JPRB,0.77554E-03_JPRB,0.76249E-03_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.27516E-03_JPRB,0.36405E-03_JPRB,0.46107E-03_JPRB,0.54790E-03_JPRB,0.62253E-03_JPRB, &
+ & 0.68384E-03_JPRB,0.73057E-03_JPRB,0.77856E-03_JPRB,0.74793E-03_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.27272E-03_JPRB,0.36262E-03_JPRB,0.46080E-03_JPRB,0.54700E-03_JPRB,0.62201E-03_JPRB, &
+ & 0.68300E-03_JPRB,0.72976E-03_JPRB,0.77591E-03_JPRB,0.74919E-03_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.26991E-03_JPRB,0.36139E-03_JPRB,0.46064E-03_JPRB,0.54673E-03_JPRB,0.62063E-03_JPRB, &
+ & 0.68269E-03_JPRB,0.72862E-03_JPRB,0.77298E-03_JPRB,0.75070E-03_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.26757E-03_JPRB,0.35993E-03_JPRB,0.46053E-03_JPRB,0.54625E-03_JPRB,0.61982E-03_JPRB, &
+ & 0.68167E-03_JPRB,0.72799E-03_JPRB,0.77005E-03_JPRB,0.75046E-03_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.26556E-03_JPRB,0.36025E-03_JPRB,0.46433E-03_JPRB,0.55132E-03_JPRB,0.62683E-03_JPRB, &
+ & 0.69143E-03_JPRB,0.74137E-03_JPRB,0.78366E-03_JPRB,0.76845E-03_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.23277E-03_JPRB,0.33279E-03_JPRB,0.43313E-03_JPRB,0.52236E-03_JPRB,0.59970E-03_JPRB, &
+ & 0.66464E-03_JPRB,0.71686E-03_JPRB,0.76626E-03_JPRB,0.72457E-03_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.23078E-03_JPRB,0.33167E-03_JPRB,0.43303E-03_JPRB,0.52181E-03_JPRB,0.60054E-03_JPRB, &
+ & 0.66529E-03_JPRB,0.71807E-03_JPRB,0.76458E-03_JPRB,0.72852E-03_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.22839E-03_JPRB,0.33111E-03_JPRB,0.43245E-03_JPRB,0.52229E-03_JPRB,0.60068E-03_JPRB, &
+ & 0.66640E-03_JPRB,0.71880E-03_JPRB,0.76367E-03_JPRB,0.73165E-03_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.22634E-03_JPRB,0.33010E-03_JPRB,0.43234E-03_JPRB,0.52220E-03_JPRB,0.60179E-03_JPRB, &
+ & 0.66699E-03_JPRB,0.71996E-03_JPRB,0.76305E-03_JPRB,0.73316E-03_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.22442E-03_JPRB,0.33158E-03_JPRB,0.43680E-03_JPRB,0.52864E-03_JPRB,0.61018E-03_JPRB, &
+ & 0.67770E-03_JPRB,0.73371E-03_JPRB,0.78031E-03_JPRB,0.75138E-03_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.19685E-03_JPRB,0.30442E-03_JPRB,0.40547E-03_JPRB,0.49610E-03_JPRB,0.57453E-03_JPRB, &
+ & 0.64299E-03_JPRB,0.69899E-03_JPRB,0.74954E-03_JPRB,0.69460E-03_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.19517E-03_JPRB,0.30338E-03_JPRB,0.40585E-03_JPRB,0.49683E-03_JPRB,0.57671E-03_JPRB, &
+ & 0.64425E-03_JPRB,0.70130E-03_JPRB,0.75004E-03_JPRB,0.70036E-03_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.19324E-03_JPRB,0.30268E-03_JPRB,0.40573E-03_JPRB,0.49834E-03_JPRB,0.57803E-03_JPRB, &
+ & 0.64627E-03_JPRB,0.70310E-03_JPRB,0.75130E-03_JPRB,0.70596E-03_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.19132E-03_JPRB,0.30224E-03_JPRB,0.40644E-03_JPRB,0.49947E-03_JPRB,0.58014E-03_JPRB, &
+ & 0.64741E-03_JPRB,0.70472E-03_JPRB,0.75293E-03_JPRB,0.70917E-03_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.18952E-03_JPRB,0.30177E-03_JPRB,0.40672E-03_JPRB,0.50101E-03_JPRB,0.58137E-03_JPRB, &
+ & 0.64847E-03_JPRB,0.70602E-03_JPRB,0.75537E-03_JPRB,0.71121E-03_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.16684E-03_JPRB,0.27825E-03_JPRB,0.37860E-03_JPRB,0.46883E-03_JPRB,0.54680E-03_JPRB, &
+ & 0.61510E-03_JPRB,0.67386E-03_JPRB,0.72824E-03_JPRB,0.66391E-03_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.16553E-03_JPRB,0.27719E-03_JPRB,0.37963E-03_JPRB,0.47077E-03_JPRB,0.54985E-03_JPRB, &
+ & 0.61768E-03_JPRB,0.67717E-03_JPRB,0.73093E-03_JPRB,0.67156E-03_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.16397E-03_JPRB,0.27663E-03_JPRB,0.38054E-03_JPRB,0.47308E-03_JPRB,0.55166E-03_JPRB, &
+ & 0.62067E-03_JPRB,0.67975E-03_JPRB,0.73342E-03_JPRB,0.67787E-03_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.16246E-03_JPRB,0.27634E-03_JPRB,0.38198E-03_JPRB,0.47489E-03_JPRB,0.55414E-03_JPRB, &
+ & 0.62280E-03_JPRB,0.68232E-03_JPRB,0.73600E-03_JPRB,0.68175E-03_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.16089E-03_JPRB,0.27624E-03_JPRB,0.38314E-03_JPRB,0.47665E-03_JPRB,0.55585E-03_JPRB, &
+ & 0.62443E-03_JPRB,0.68436E-03_JPRB,0.73852E-03_JPRB,0.68559E-03_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.14215E-03_JPRB,0.25407E-03_JPRB,0.35215E-03_JPRB,0.43863E-03_JPRB,0.51443E-03_JPRB, &
+ & 0.58154E-03_JPRB,0.64180E-03_JPRB,0.70004E-03_JPRB,0.62276E-03_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.14104E-03_JPRB,0.25332E-03_JPRB,0.35394E-03_JPRB,0.44179E-03_JPRB,0.51810E-03_JPRB, &
+ & 0.58508E-03_JPRB,0.64584E-03_JPRB,0.70407E-03_JPRB,0.63285E-03_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.13977E-03_JPRB,0.25313E-03_JPRB,0.35560E-03_JPRB,0.44458E-03_JPRB,0.52101E-03_JPRB, &
+ & 0.58953E-03_JPRB,0.65037E-03_JPRB,0.70785E-03_JPRB,0.64108E-03_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.13869E-03_JPRB,0.25332E-03_JPRB,0.35744E-03_JPRB,0.44722E-03_JPRB,0.52464E-03_JPRB, &
+ & 0.59336E-03_JPRB,0.65468E-03_JPRB,0.71201E-03_JPRB,0.64611E-03_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.13742E-03_JPRB,0.25367E-03_JPRB,0.35927E-03_JPRB,0.44959E-03_JPRB,0.52752E-03_JPRB, &
+ & 0.59656E-03_JPRB,0.65824E-03_JPRB,0.71554E-03_JPRB,0.65066E-03_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.12109E-03_JPRB,0.23210E-03_JPRB,0.32446E-03_JPRB,0.40715E-03_JPRB,0.48065E-03_JPRB, &
+ & 0.54715E-03_JPRB,0.60775E-03_JPRB,0.66825E-03_JPRB,0.18336E-04_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.12018E-03_JPRB,0.23207E-03_JPRB,0.32699E-03_JPRB,0.41058E-03_JPRB,0.48505E-03_JPRB, &
+ & 0.55180E-03_JPRB,0.61323E-03_JPRB,0.67309E-03_JPRB,0.24327E-04_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.11917E-03_JPRB,0.23229E-03_JPRB,0.32956E-03_JPRB,0.41390E-03_JPRB,0.48910E-03_JPRB, &
+ & 0.55710E-03_JPRB,0.61911E-03_JPRB,0.67851E-03_JPRB,0.23065E-04_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.11843E-03_JPRB,0.23292E-03_JPRB,0.33197E-03_JPRB,0.41764E-03_JPRB,0.49354E-03_JPRB, &
+ & 0.56238E-03_JPRB,0.62497E-03_JPRB,0.68395E-03_JPRB,0.23680E-04_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.11748E-03_JPRB,0.23365E-03_JPRB,0.33458E-03_JPRB,0.42109E-03_JPRB,0.49774E-03_JPRB, &
+ & 0.56667E-03_JPRB,0.62987E-03_JPRB,0.68909E-03_JPRB,0.25905E-04_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.10273E-03_JPRB,0.21204E-03_JPRB,0.29794E-03_JPRB,0.37761E-03_JPRB,0.44937E-03_JPRB, &
+ & 0.51495E-03_JPRB,0.57567E-03_JPRB,0.63761E-03_JPRB,0.19724E-04_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.10190E-03_JPRB,0.21272E-03_JPRB,0.30059E-03_JPRB,0.38150E-03_JPRB,0.45434E-03_JPRB, &
+ & 0.52089E-03_JPRB,0.58270E-03_JPRB,0.64346E-03_JPRB,0.24197E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 3,10,10) = (/ &
+ & 0.10112E-03_JPRB,0.21334E-03_JPRB,0.30377E-03_JPRB,0.38507E-03_JPRB,0.45917E-03_JPRB, &
+ & 0.52739E-03_JPRB,0.58976E-03_JPRB,0.64941E-03_JPRB,0.34326E-04_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.10061E-03_JPRB,0.21443E-03_JPRB,0.30659E-03_JPRB,0.38965E-03_JPRB,0.46453E-03_JPRB, &
+ & 0.53354E-03_JPRB,0.59675E-03_JPRB,0.65639E-03_JPRB,0.33702E-04_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.99890E-04_JPRB,0.21543E-03_JPRB,0.30998E-03_JPRB,0.39375E-03_JPRB,0.46925E-03_JPRB, &
+ & 0.53804E-03_JPRB,0.60223E-03_JPRB,0.66255E-03_JPRB,0.31412E-04_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.86338E-04_JPRB,0.19398E-03_JPRB,0.27516E-03_JPRB,0.35204E-03_JPRB,0.42116E-03_JPRB, &
+ & 0.48556E-03_JPRB,0.54615E-03_JPRB,0.60927E-03_JPRB,0.19945E-04_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.85730E-04_JPRB,0.19502E-03_JPRB,0.27834E-03_JPRB,0.35636E-03_JPRB,0.42792E-03_JPRB, &
+ & 0.49403E-03_JPRB,0.55597E-03_JPRB,0.61737E-03_JPRB,0.90093E-05_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.85275E-04_JPRB,0.19618E-03_JPRB,0.28168E-03_JPRB,0.36165E-03_JPRB,0.43438E-03_JPRB, &
+ & 0.50224E-03_JPRB,0.56492E-03_JPRB,0.62614E-03_JPRB,0.37496E-04_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.84865E-04_JPRB,0.19761E-03_JPRB,0.28526E-03_JPRB,0.36657E-03_JPRB,0.44042E-03_JPRB, &
+ & 0.50863E-03_JPRB,0.57263E-03_JPRB,0.63413E-03_JPRB,0.15044E-04_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.84443E-04_JPRB,0.19914E-03_JPRB,0.28886E-03_JPRB,0.37069E-03_JPRB,0.44492E-03_JPRB, &
+ & 0.51377E-03_JPRB,0.57803E-03_JPRB,0.63993E-03_JPRB,0.48683E-04_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.72237E-04_JPRB,0.17794E-03_JPRB,0.25491E-03_JPRB,0.32737E-03_JPRB,0.39376E-03_JPRB, &
+ & 0.45690E-03_JPRB,0.51684E-03_JPRB,0.58057E-03_JPRB,0.10800E-04_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.71846E-04_JPRB,0.17916E-03_JPRB,0.25896E-03_JPRB,0.33355E-03_JPRB,0.40234E-03_JPRB, &
+ & 0.46708E-03_JPRB,0.52856E-03_JPRB,0.59174E-03_JPRB,0.37304E-04_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.71641E-04_JPRB,0.18095E-03_JPRB,0.26291E-03_JPRB,0.34013E-03_JPRB,0.41022E-03_JPRB, &
+ & 0.47645E-03_JPRB,0.53911E-03_JPRB,0.60240E-03_JPRB,0.20066E-04_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.71337E-04_JPRB,0.18255E-03_JPRB,0.26698E-03_JPRB,0.34557E-03_JPRB,0.41722E-03_JPRB, &
+ & 0.48390E-03_JPRB,0.54753E-03_JPRB,0.61134E-03_JPRB,0.20267E-04_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.71187E-04_JPRB,0.18456E-03_JPRB,0.27032E-03_JPRB,0.35012E-03_JPRB,0.42265E-03_JPRB, &
+ & 0.49079E-03_JPRB,0.55462E-03_JPRB,0.61760E-03_JPRB,0.29175E-04_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.60308E-04_JPRB,0.16344E-03_JPRB,0.23674E-03_JPRB,0.30451E-03_JPRB,0.36859E-03_JPRB, &
+ & 0.42973E-03_JPRB,0.48896E-03_JPRB,0.55265E-03_JPRB,0.35870E-04_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.60075E-04_JPRB,0.16518E-03_JPRB,0.24182E-03_JPRB,0.31202E-03_JPRB,0.37817E-03_JPRB, &
+ & 0.44097E-03_JPRB,0.50163E-03_JPRB,0.56563E-03_JPRB,0.24717E-04_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.59963E-04_JPRB,0.16736E-03_JPRB,0.24636E-03_JPRB,0.31956E-03_JPRB,0.38717E-03_JPRB, &
+ & 0.45122E-03_JPRB,0.51282E-03_JPRB,0.57786E-03_JPRB,0.24967E-04_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.59808E-04_JPRB,0.16950E-03_JPRB,0.25081E-03_JPRB,0.32559E-03_JPRB,0.39488E-03_JPRB, &
+ & 0.45992E-03_JPRB,0.52243E-03_JPRB,0.58716E-03_JPRB,0.25073E-04_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.59738E-04_JPRB,0.17182E-03_JPRB,0.25430E-03_JPRB,0.33121E-03_JPRB,0.40220E-03_JPRB, &
+ & 0.46925E-03_JPRB,0.53224E-03_JPRB,0.59573E-03_JPRB,0.14031E-04_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.79109E-03_JPRB,0.77354E-03_JPRB,0.84795E-03_JPRB,0.91837E-03_JPRB,0.98287E-03_JPRB, &
+ & 0.10467E-02_JPRB,0.10876E-02_JPRB,0.10899E-02_JPRB,0.10918E-02_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.79035E-03_JPRB,0.76999E-03_JPRB,0.84502E-03_JPRB,0.91315E-03_JPRB,0.97569E-03_JPRB, &
+ & 0.10420E-02_JPRB,0.10843E-02_JPRB,0.10840E-02_JPRB,0.10904E-02_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.79094E-03_JPRB,0.76969E-03_JPRB,0.84501E-03_JPRB,0.91212E-03_JPRB,0.97616E-03_JPRB, &
+ & 0.10502E-02_JPRB,0.10978E-02_JPRB,0.10968E-02_JPRB,0.11098E-02_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.79012E-03_JPRB,0.76698E-03_JPRB,0.84052E-03_JPRB,0.90224E-03_JPRB,0.96448E-03_JPRB, &
+ & 0.10367E-02_JPRB,0.10810E-02_JPRB,0.10798E-02_JPRB,0.10838E-02_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.78840E-03_JPRB,0.76416E-03_JPRB,0.83816E-03_JPRB,0.89971E-03_JPRB,0.96199E-03_JPRB, &
+ & 0.10344E-02_JPRB,0.10796E-02_JPRB,0.10773E-02_JPRB,0.10800E-02_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.69789E-03_JPRB,0.72093E-03_JPRB,0.81475E-03_JPRB,0.89922E-03_JPRB,0.96655E-03_JPRB, &
+ & 0.10286E-02_JPRB,0.10852E-02_JPRB,0.10968E-02_JPRB,0.10998E-02_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.69799E-03_JPRB,0.71831E-03_JPRB,0.81026E-03_JPRB,0.89390E-03_JPRB,0.96162E-03_JPRB, &
+ & 0.10278E-02_JPRB,0.10853E-02_JPRB,0.10953E-02_JPRB,0.10980E-02_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.69849E-03_JPRB,0.71872E-03_JPRB,0.81039E-03_JPRB,0.89368E-03_JPRB,0.96713E-03_JPRB, &
+ & 0.10387E-02_JPRB,0.11003E-02_JPRB,0.11139E-02_JPRB,0.11199E-02_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.69786E-03_JPRB,0.71702E-03_JPRB,0.80831E-03_JPRB,0.88926E-03_JPRB,0.96426E-03_JPRB, &
+ & 0.10353E-02_JPRB,0.10976E-02_JPRB,0.11107E-02_JPRB,0.11152E-02_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.69639E-03_JPRB,0.71420E-03_JPRB,0.80246E-03_JPRB,0.88289E-03_JPRB,0.95515E-03_JPRB, &
+ & 0.10226E-02_JPRB,0.10812E-02_JPRB,0.10915E-02_JPRB,0.10904E-02_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.60717E-03_JPRB,0.66595E-03_JPRB,0.77916E-03_JPRB,0.87509E-03_JPRB,0.95372E-03_JPRB, &
+ & 0.10167E-02_JPRB,0.10820E-02_JPRB,0.11070E-02_JPRB,0.11005E-02_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.60740E-03_JPRB,0.66447E-03_JPRB,0.77425E-03_JPRB,0.87078E-03_JPRB,0.95087E-03_JPRB, &
+ & 0.10164E-02_JPRB,0.10820E-02_JPRB,0.11070E-02_JPRB,0.10996E-02_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.60743E-03_JPRB,0.66421E-03_JPRB,0.77076E-03_JPRB,0.86668E-03_JPRB,0.94936E-03_JPRB, &
+ & 0.10146E-02_JPRB,0.10809E-02_JPRB,0.11066E-02_JPRB,0.10979E-02_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.60721E-03_JPRB,0.66487E-03_JPRB,0.77207E-03_JPRB,0.87093E-03_JPRB,0.95679E-03_JPRB, &
+ & 0.10247E-02_JPRB,0.10950E-02_JPRB,0.11248E-02_JPRB,0.11171E-02_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.60632E-03_JPRB,0.66259E-03_JPRB,0.76645E-03_JPRB,0.86469E-03_JPRB,0.94611E-03_JPRB, &
+ & 0.10116E-02_JPRB,0.10778E-02_JPRB,0.11040E-02_JPRB,0.10953E-02_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.52196E-03_JPRB,0.61309E-03_JPRB,0.74127E-03_JPRB,0.84825E-03_JPRB,0.93805E-03_JPRB, &
+ & 0.10078E-02_JPRB,0.10732E-02_JPRB,0.11156E-02_JPRB,0.10964E-02_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.52205E-03_JPRB,0.61209E-03_JPRB,0.73709E-03_JPRB,0.84586E-03_JPRB,0.93585E-03_JPRB, &
+ & 0.10074E-02_JPRB,0.10727E-02_JPRB,0.11168E-02_JPRB,0.10976E-02_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.52218E-03_JPRB,0.61175E-03_JPRB,0.73426E-03_JPRB,0.84316E-03_JPRB,0.93485E-03_JPRB, &
+ & 0.10055E-02_JPRB,0.10718E-02_JPRB,0.11162E-02_JPRB,0.10985E-02_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.52176E-03_JPRB,0.61131E-03_JPRB,0.73315E-03_JPRB,0.84162E-03_JPRB,0.93319E-03_JPRB, &
+ & 0.10035E-02_JPRB,0.10709E-02_JPRB,0.11149E-02_JPRB,0.11000E-02_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.52100E-03_JPRB,0.61215E-03_JPRB,0.73639E-03_JPRB,0.84868E-03_JPRB,0.94102E-03_JPRB, &
+ & 0.10132E-02_JPRB,0.10822E-02_JPRB,0.11303E-02_JPRB,0.11192E-02_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.44537E-03_JPRB,0.56415E-03_JPRB,0.70334E-03_JPRB,0.81986E-03_JPRB,0.91737E-03_JPRB, &
+ & 0.99505E-03_JPRB,0.10590E-02_JPRB,0.11155E-02_JPRB,0.10855E-02_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.44499E-03_JPRB,0.56304E-03_JPRB,0.70021E-03_JPRB,0.81824E-03_JPRB,0.91496E-03_JPRB, &
+ & 0.99465E-03_JPRB,0.10577E-02_JPRB,0.11163E-02_JPRB,0.10886E-02_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.44481E-03_JPRB,0.56231E-03_JPRB,0.69884E-03_JPRB,0.81557E-03_JPRB,0.91387E-03_JPRB, &
+ & 0.99269E-03_JPRB,0.10566E-02_JPRB,0.11154E-02_JPRB,0.10925E-02_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.44459E-03_JPRB,0.56155E-03_JPRB,0.69827E-03_JPRB,0.81462E-03_JPRB,0.91145E-03_JPRB, &
+ & 0.99105E-03_JPRB,0.10558E-02_JPRB,0.11141E-02_JPRB,0.10950E-02_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.44401E-03_JPRB,0.56266E-03_JPRB,0.70342E-03_JPRB,0.82262E-03_JPRB,0.92017E-03_JPRB, &
+ & 0.10017E-02_JPRB,0.10686E-02_JPRB,0.11300E-02_JPRB,0.11166E-02_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.37714E-03_JPRB,0.51787E-03_JPRB,0.66544E-03_JPRB,0.78793E-03_JPRB,0.89178E-03_JPRB, &
+ & 0.97506E-03_JPRB,0.10421E-02_JPRB,0.11072E-02_JPRB,0.10679E-02_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.37645E-03_JPRB,0.51719E-03_JPRB,0.66329E-03_JPRB,0.78619E-03_JPRB,0.88946E-03_JPRB, &
+ & 0.97613E-03_JPRB,0.10421E-02_JPRB,0.11076E-02_JPRB,0.10727E-02_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.37621E-03_JPRB,0.51663E-03_JPRB,0.66248E-03_JPRB,0.78421E-03_JPRB,0.88840E-03_JPRB, &
+ & 0.97530E-03_JPRB,0.10423E-02_JPRB,0.11074E-02_JPRB,0.10773E-02_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.37625E-03_JPRB,0.51591E-03_JPRB,0.66198E-03_JPRB,0.78342E-03_JPRB,0.88665E-03_JPRB, &
+ & 0.97510E-03_JPRB,0.10427E-02_JPRB,0.11065E-02_JPRB,0.10807E-02_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.37578E-03_JPRB,0.51583E-03_JPRB,0.66231E-03_JPRB,0.78322E-03_JPRB,0.88597E-03_JPRB, &
+ & 0.97458E-03_JPRB,0.10416E-02_JPRB,0.11045E-02_JPRB,0.10828E-02_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.31849E-03_JPRB,0.47598E-03_JPRB,0.62784E-03_JPRB,0.75245E-03_JPRB,0.86097E-03_JPRB, &
+ & 0.95037E-03_JPRB,0.10228E-02_JPRB,0.10907E-02_JPRB,0.10381E-02_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.31748E-03_JPRB,0.47565E-03_JPRB,0.62625E-03_JPRB,0.75127E-03_JPRB,0.86016E-03_JPRB, &
+ & 0.95292E-03_JPRB,0.10249E-02_JPRB,0.10924E-02_JPRB,0.10446E-02_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.31709E-03_JPRB,0.47527E-03_JPRB,0.62527E-03_JPRB,0.75044E-03_JPRB,0.86086E-03_JPRB, &
+ & 0.95398E-03_JPRB,0.10272E-02_JPRB,0.10943E-02_JPRB,0.10513E-02_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.31690E-03_JPRB,0.47506E-03_JPRB,0.62534E-03_JPRB,0.75023E-03_JPRB,0.86098E-03_JPRB, &
+ & 0.95576E-03_JPRB,0.10298E-02_JPRB,0.10956E-02_JPRB,0.10570E-02_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.31661E-03_JPRB,0.47556E-03_JPRB,0.62564E-03_JPRB,0.75129E-03_JPRB,0.86194E-03_JPRB, &
+ & 0.95752E-03_JPRB,0.10312E-02_JPRB,0.10967E-02_JPRB,0.10605E-02_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.26920E-03_JPRB,0.43740E-03_JPRB,0.58907E-03_JPRB,0.71604E-03_JPRB,0.82585E-03_JPRB, &
+ & 0.92017E-03_JPRB,0.99828E-03_JPRB,0.10677E-02_JPRB,0.99191E-03_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.26802E-03_JPRB,0.43738E-03_JPRB,0.58846E-03_JPRB,0.71590E-03_JPRB,0.82753E-03_JPRB, &
+ & 0.92484E-03_JPRB,0.10036E-02_JPRB,0.10726E-02_JPRB,0.10010E-02_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.26738E-03_JPRB,0.43742E-03_JPRB,0.58827E-03_JPRB,0.71679E-03_JPRB,0.83051E-03_JPRB, &
+ & 0.92821E-03_JPRB,0.10079E-02_JPRB,0.10772E-02_JPRB,0.10102E-02_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.26701E-03_JPRB,0.43751E-03_JPRB,0.58933E-03_JPRB,0.71793E-03_JPRB,0.83304E-03_JPRB, &
+ & 0.93190E-03_JPRB,0.10124E-02_JPRB,0.10810E-02_JPRB,0.10188E-02_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.26686E-03_JPRB,0.43824E-03_JPRB,0.58999E-03_JPRB,0.72050E-03_JPRB,0.83607E-03_JPRB, &
+ & 0.93581E-03_JPRB,0.10160E-02_JPRB,0.10848E-02_JPRB,0.10263E-02_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.22904E-03_JPRB,0.40123E-03_JPRB,0.55115E-03_JPRB,0.67712E-03_JPRB,0.78732E-03_JPRB, &
+ & 0.88313E-03_JPRB,0.96568E-03_JPRB,0.10387E-02_JPRB,0.14403E-04_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.22775E-03_JPRB,0.40129E-03_JPRB,0.55155E-03_JPRB,0.67918E-03_JPRB,0.79168E-03_JPRB, &
+ & 0.89045E-03_JPRB,0.97356E-03_JPRB,0.10468E-02_JPRB,0.17396E-04_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.22691E-03_JPRB,0.40187E-03_JPRB,0.55239E-03_JPRB,0.68238E-03_JPRB,0.79664E-03_JPRB, &
+ & 0.89641E-03_JPRB,0.98013E-03_JPRB,0.10538E-02_JPRB,0.17983E-04_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.22637E-03_JPRB,0.40220E-03_JPRB,0.55452E-03_JPRB,0.68525E-03_JPRB,0.80145E-03_JPRB, &
+ & 0.90223E-03_JPRB,0.98673E-03_JPRB,0.10599E-02_JPRB,0.14884E-04_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.22595E-03_JPRB,0.40316E-03_JPRB,0.55613E-03_JPRB,0.68950E-03_JPRB,0.80623E-03_JPRB, &
+ & 0.90849E-03_JPRB,0.99244E-03_JPRB,0.10655E-02_JPRB,0.19485E-04_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.19610E-03_JPRB,0.36707E-03_JPRB,0.51305E-03_JPRB,0.63612E-03_JPRB,0.74337E-03_JPRB, &
+ & 0.83875E-03_JPRB,0.92458E-03_JPRB,0.10007E-02_JPRB,0.30583E-04_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.19499E-03_JPRB,0.36759E-03_JPRB,0.51501E-03_JPRB,0.64066E-03_JPRB,0.75082E-03_JPRB, &
+ & 0.84853E-03_JPRB,0.93443E-03_JPRB,0.10117E-02_JPRB,0.20484E-04_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.19427E-03_JPRB,0.36886E-03_JPRB,0.51745E-03_JPRB,0.64625E-03_JPRB,0.75815E-03_JPRB, &
+ & 0.85733E-03_JPRB,0.94303E-03_JPRB,0.10217E-02_JPRB,0.20784E-04_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.19367E-03_JPRB,0.36958E-03_JPRB,0.52106E-03_JPRB,0.65093E-03_JPRB,0.76545E-03_JPRB, &
+ & 0.86571E-03_JPRB,0.95244E-03_JPRB,0.10301E-02_JPRB,0.30511E-04_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.19319E-03_JPRB,0.37098E-03_JPRB,0.52409E-03_JPRB,0.65675E-03_JPRB,0.77258E-03_JPRB, &
+ & 0.87491E-03_JPRB,0.96110E-03_JPRB,0.10378E-02_JPRB,0.19883E-04_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.16767E-03_JPRB,0.33624E-03_JPRB,0.47635E-03_JPRB,0.59543E-03_JPRB,0.70301E-03_JPRB, &
+ & 0.79872E-03_JPRB,0.88652E-03_JPRB,0.96550E-03_JPRB,0.27483E-04_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.16687E-03_JPRB,0.33764E-03_JPRB,0.48055E-03_JPRB,0.60283E-03_JPRB,0.71186E-03_JPRB, &
+ & 0.80978E-03_JPRB,0.89673E-03_JPRB,0.97758E-03_JPRB,0.20639E-04_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.16664E-03_JPRB,0.33942E-03_JPRB,0.48524E-03_JPRB,0.60962E-03_JPRB,0.72075E-03_JPRB, &
+ & 0.81953E-03_JPRB,0.90753E-03_JPRB,0.98729E-03_JPRB,0.27689E-04_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.16611E-03_JPRB,0.34104E-03_JPRB,0.48994E-03_JPRB,0.61708E-03_JPRB,0.72992E-03_JPRB, &
+ & 0.83047E-03_JPRB,0.91898E-03_JPRB,0.99769E-03_JPRB,0.13719E-04_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.16596E-03_JPRB,0.34313E-03_JPRB,0.49467E-03_JPRB,0.62538E-03_JPRB,0.73960E-03_JPRB, &
+ & 0.84171E-03_JPRB,0.92999E-03_JPRB,0.10075E-02_JPRB,0.27137E-04_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.14282E-03_JPRB,0.30890E-03_JPRB,0.44183E-03_JPRB,0.55831E-03_JPRB,0.66503E-03_JPRB, &
+ & 0.76077E-03_JPRB,0.84890E-03_JPRB,0.93128E-03_JPRB,0.21228E-04_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.14255E-03_JPRB,0.31125E-03_JPRB,0.44731E-03_JPRB,0.56685E-03_JPRB,0.67491E-03_JPRB, &
+ & 0.77277E-03_JPRB,0.86092E-03_JPRB,0.94274E-03_JPRB,0.32331E-04_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.14244E-03_JPRB,0.31334E-03_JPRB,0.45354E-03_JPRB,0.57479E-03_JPRB,0.68552E-03_JPRB, &
+ & 0.78420E-03_JPRB,0.87396E-03_JPRB,0.95434E-03_JPRB,0.19978E-06_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.14239E-03_JPRB,0.31614E-03_JPRB,0.45984E-03_JPRB,0.58419E-03_JPRB,0.69607E-03_JPRB, &
+ & 0.79750E-03_JPRB,0.88765E-03_JPRB,0.96637E-03_JPRB,0.21475E-04_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.14252E-03_JPRB,0.31876E-03_JPRB,0.46658E-03_JPRB,0.59385E-03_JPRB,0.70775E-03_JPRB, &
+ & 0.80986E-03_JPRB,0.90037E-03_JPRB,0.97814E-03_JPRB,0.21476E-04_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.12125E-03_JPRB,0.28444E-03_JPRB,0.41080E-03_JPRB,0.52444E-03_JPRB,0.62932E-03_JPRB, &
+ & 0.72481E-03_JPRB,0.81245E-03_JPRB,0.89716E-03_JPRB,0.27405E-04_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.12138E-03_JPRB,0.28788E-03_JPRB,0.41712E-03_JPRB,0.53396E-03_JPRB,0.64078E-03_JPRB, &
+ & 0.73819E-03_JPRB,0.82737E-03_JPRB,0.91020E-03_JPRB,0.13699E-04_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.12142E-03_JPRB,0.29086E-03_JPRB,0.42441E-03_JPRB,0.54338E-03_JPRB,0.65260E-03_JPRB, &
+ & 0.75224E-03_JPRB,0.84352E-03_JPRB,0.92398E-03_JPRB,0.13820E-04_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.12174E-03_JPRB,0.29430E-03_JPRB,0.43176E-03_JPRB,0.55440E-03_JPRB,0.66546E-03_JPRB, &
+ & 0.76738E-03_JPRB,0.85914E-03_JPRB,0.93821E-03_JPRB,0.26505E-06_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.12197E-03_JPRB,0.29750E-03_JPRB,0.43989E-03_JPRB,0.56500E-03_JPRB,0.67844E-03_JPRB, &
+ & 0.78071E-03_JPRB,0.87280E-03_JPRB,0.95108E-03_JPRB,0.33764E-06_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.15537E-02_JPRB,0.13818E-02_JPRB,0.14273E-02_JPRB,0.15055E-02_JPRB,0.15786E-02_JPRB, &
+ & 0.16339E-02_JPRB,0.16467E-02_JPRB,0.15800E-02_JPRB,0.16050E-02_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.15485E-02_JPRB,0.13765E-02_JPRB,0.14181E-02_JPRB,0.14978E-02_JPRB,0.15727E-02_JPRB, &
+ & 0.16256E-02_JPRB,0.16371E-02_JPRB,0.15728E-02_JPRB,0.16005E-02_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.15437E-02_JPRB,0.13722E-02_JPRB,0.14122E-02_JPRB,0.14971E-02_JPRB,0.15752E-02_JPRB, &
+ & 0.16261E-02_JPRB,0.16396E-02_JPRB,0.15797E-02_JPRB,0.16209E-02_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.15424E-02_JPRB,0.13691E-02_JPRB,0.14015E-02_JPRB,0.14839E-02_JPRB,0.15593E-02_JPRB, &
+ & 0.16040E-02_JPRB,0.16150E-02_JPRB,0.15487E-02_JPRB,0.15957E-02_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.15425E-02_JPRB,0.13681E-02_JPRB,0.13961E-02_JPRB,0.14766E-02_JPRB,0.15502E-02_JPRB, &
+ & 0.15943E-02_JPRB,0.16046E-02_JPRB,0.15376E-02_JPRB,0.15923E-02_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.14274E-02_JPRB,0.13101E-02_JPRB,0.13901E-02_JPRB,0.14665E-02_JPRB,0.15597E-02_JPRB, &
+ & 0.16365E-02_JPRB,0.16682E-02_JPRB,0.16286E-02_JPRB,0.16381E-02_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.14223E-02_JPRB,0.13039E-02_JPRB,0.13828E-02_JPRB,0.14629E-02_JPRB,0.15522E-02_JPRB, &
+ & 0.16256E-02_JPRB,0.16567E-02_JPRB,0.16183E-02_JPRB,0.16362E-02_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.14195E-02_JPRB,0.12999E-02_JPRB,0.13791E-02_JPRB,0.14641E-02_JPRB,0.15538E-02_JPRB, &
+ & 0.16259E-02_JPRB,0.16605E-02_JPRB,0.16235E-02_JPRB,0.16585E-02_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.14181E-02_JPRB,0.12958E-02_JPRB,0.13726E-02_JPRB,0.14576E-02_JPRB,0.15447E-02_JPRB, &
+ & 0.16149E-02_JPRB,0.16487E-02_JPRB,0.16101E-02_JPRB,0.16540E-02_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.14191E-02_JPRB,0.12933E-02_JPRB,0.13650E-02_JPRB,0.14448E-02_JPRB,0.15270E-02_JPRB, &
+ & 0.15959E-02_JPRB,0.16273E-02_JPRB,0.15850E-02_JPRB,0.16279E-02_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.12975E-02_JPRB,0.12495E-02_JPRB,0.13516E-02_JPRB,0.14440E-02_JPRB,0.15390E-02_JPRB, &
+ & 0.16298E-02_JPRB,0.16807E-02_JPRB,0.16634E-02_JPRB,0.16697E-02_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.12938E-02_JPRB,0.12434E-02_JPRB,0.13457E-02_JPRB,0.14406E-02_JPRB,0.15301E-02_JPRB, &
+ & 0.16196E-02_JPRB,0.16709E-02_JPRB,0.16534E-02_JPRB,0.16671E-02_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.12920E-02_JPRB,0.12378E-02_JPRB,0.13412E-02_JPRB,0.14340E-02_JPRB,0.15221E-02_JPRB, &
+ & 0.16094E-02_JPRB,0.16610E-02_JPRB,0.16426E-02_JPRB,0.16655E-02_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.12905E-02_JPRB,0.12343E-02_JPRB,0.13399E-02_JPRB,0.14335E-02_JPRB,0.15224E-02_JPRB, &
+ & 0.16137E-02_JPRB,0.16692E-02_JPRB,0.16519E-02_JPRB,0.16891E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 3,12) = (/ &
+ & 0.12916E-02_JPRB,0.12305E-02_JPRB,0.13333E-02_JPRB,0.14197E-02_JPRB,0.15049E-02_JPRB, &
+ & 0.15945E-02_JPRB,0.16481E-02_JPRB,0.16282E-02_JPRB,0.16593E-02_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.11586E-02_JPRB,0.11791E-02_JPRB,0.13059E-02_JPRB,0.14246E-02_JPRB,0.15191E-02_JPRB, &
+ & 0.16155E-02_JPRB,0.16888E-02_JPRB,0.16884E-02_JPRB,0.16900E-02_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.11563E-02_JPRB,0.11735E-02_JPRB,0.13020E-02_JPRB,0.14191E-02_JPRB,0.15117E-02_JPRB, &
+ & 0.16067E-02_JPRB,0.16804E-02_JPRB,0.16804E-02_JPRB,0.16885E-02_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.11547E-02_JPRB,0.11684E-02_JPRB,0.12989E-02_JPRB,0.14121E-02_JPRB,0.15049E-02_JPRB, &
+ & 0.15986E-02_JPRB,0.16736E-02_JPRB,0.16742E-02_JPRB,0.16864E-02_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.11549E-02_JPRB,0.11640E-02_JPRB,0.12947E-02_JPRB,0.14053E-02_JPRB,0.14971E-02_JPRB, &
+ & 0.15940E-02_JPRB,0.16690E-02_JPRB,0.16701E-02_JPRB,0.16826E-02_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.11568E-02_JPRB,0.11629E-02_JPRB,0.12947E-02_JPRB,0.14048E-02_JPRB,0.15017E-02_JPRB, &
+ & 0.16054E-02_JPRB,0.16836E-02_JPRB,0.16886E-02_JPRB,0.17044E-02_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.10197E-02_JPRB,0.11002E-02_JPRB,0.12563E-02_JPRB,0.13948E-02_JPRB,0.15048E-02_JPRB, &
+ & 0.16026E-02_JPRB,0.16898E-02_JPRB,0.17082E-02_JPRB,0.17013E-02_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.10187E-02_JPRB,0.10963E-02_JPRB,0.12532E-02_JPRB,0.13909E-02_JPRB,0.14993E-02_JPRB, &
+ & 0.15953E-02_JPRB,0.16843E-02_JPRB,0.17040E-02_JPRB,0.16991E-02_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.10179E-02_JPRB,0.10925E-02_JPRB,0.12502E-02_JPRB,0.13858E-02_JPRB,0.14932E-02_JPRB, &
+ & 0.15900E-02_JPRB,0.16803E-02_JPRB,0.17019E-02_JPRB,0.16952E-02_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.10188E-02_JPRB,0.10896E-02_JPRB,0.12461E-02_JPRB,0.13806E-02_JPRB,0.14878E-02_JPRB, &
+ & 0.15873E-02_JPRB,0.16767E-02_JPRB,0.17001E-02_JPRB,0.16925E-02_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.10211E-02_JPRB,0.10901E-02_JPRB,0.12464E-02_JPRB,0.13834E-02_JPRB,0.14970E-02_JPRB, &
+ & 0.16026E-02_JPRB,0.16952E-02_JPRB,0.17210E-02_JPRB,0.17180E-02_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.88455E-03_JPRB,0.10185E-02_JPRB,0.12021E-02_JPRB,0.13605E-02_JPRB,0.14894E-02_JPRB, &
+ & 0.15922E-02_JPRB,0.16870E-02_JPRB,0.17277E-02_JPRB,0.17006E-02_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.88487E-03_JPRB,0.10158E-02_JPRB,0.12001E-02_JPRB,0.13587E-02_JPRB,0.14854E-02_JPRB, &
+ & 0.15856E-02_JPRB,0.16819E-02_JPRB,0.17253E-02_JPRB,0.17001E-02_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.88512E-03_JPRB,0.10136E-02_JPRB,0.11981E-02_JPRB,0.13544E-02_JPRB,0.14820E-02_JPRB, &
+ & 0.15811E-02_JPRB,0.16785E-02_JPRB,0.17233E-02_JPRB,0.16989E-02_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.88698E-03_JPRB,0.10127E-02_JPRB,0.11948E-02_JPRB,0.13505E-02_JPRB,0.14784E-02_JPRB, &
+ & 0.15789E-02_JPRB,0.16749E-02_JPRB,0.17211E-02_JPRB,0.16988E-02_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.88923E-03_JPRB,0.10128E-02_JPRB,0.11919E-02_JPRB,0.13468E-02_JPRB,0.14756E-02_JPRB, &
+ & 0.15764E-02_JPRB,0.16734E-02_JPRB,0.17190E-02_JPRB,0.16990E-02_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.75937E-03_JPRB,0.93876E-03_JPRB,0.11443E-02_JPRB,0.13228E-02_JPRB,0.14681E-02_JPRB, &
+ & 0.15807E-02_JPRB,0.16771E-02_JPRB,0.17403E-02_JPRB,0.16920E-02_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.75998E-03_JPRB,0.93770E-03_JPRB,0.11447E-02_JPRB,0.13222E-02_JPRB,0.14656E-02_JPRB, &
+ & 0.15751E-02_JPRB,0.16722E-02_JPRB,0.17374E-02_JPRB,0.16943E-02_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.76057E-03_JPRB,0.93698E-03_JPRB,0.11442E-02_JPRB,0.13192E-02_JPRB,0.14630E-02_JPRB, &
+ & 0.15711E-02_JPRB,0.16684E-02_JPRB,0.17351E-02_JPRB,0.16966E-02_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.76306E-03_JPRB,0.93700E-03_JPRB,0.11417E-02_JPRB,0.13175E-02_JPRB,0.14605E-02_JPRB, &
+ & 0.15679E-02_JPRB,0.16649E-02_JPRB,0.17327E-02_JPRB,0.16998E-02_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.76563E-03_JPRB,0.93740E-03_JPRB,0.11401E-02_JPRB,0.13155E-02_JPRB,0.14583E-02_JPRB, &
+ & 0.15655E-02_JPRB,0.16637E-02_JPRB,0.17306E-02_JPRB,0.17045E-02_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.64586E-03_JPRB,0.86421E-03_JPRB,0.10884E-02_JPRB,0.12806E-02_JPRB,0.14383E-02_JPRB, &
+ & 0.15636E-02_JPRB,0.16605E-02_JPRB,0.17434E-02_JPRB,0.16711E-02_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.64665E-03_JPRB,0.86473E-03_JPRB,0.10896E-02_JPRB,0.12820E-02_JPRB,0.14363E-02_JPRB, &
+ & 0.15592E-02_JPRB,0.16561E-02_JPRB,0.17403E-02_JPRB,0.16771E-02_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.64816E-03_JPRB,0.86506E-03_JPRB,0.10903E-02_JPRB,0.12802E-02_JPRB,0.14357E-02_JPRB, &
+ & 0.15554E-02_JPRB,0.16529E-02_JPRB,0.17367E-02_JPRB,0.16846E-02_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.65115E-03_JPRB,0.86561E-03_JPRB,0.10893E-02_JPRB,0.12797E-02_JPRB,0.14336E-02_JPRB, &
+ & 0.15533E-02_JPRB,0.16505E-02_JPRB,0.17349E-02_JPRB,0.16920E-02_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.65335E-03_JPRB,0.86692E-03_JPRB,0.10897E-02_JPRB,0.12788E-02_JPRB,0.14323E-02_JPRB, &
+ & 0.15519E-02_JPRB,0.16494E-02_JPRB,0.17328E-02_JPRB,0.17005E-02_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.54495E-03_JPRB,0.79374E-03_JPRB,0.10331E-02_JPRB,0.12325E-02_JPRB,0.13999E-02_JPRB, &
+ & 0.15343E-02_JPRB,0.16359E-02_JPRB,0.17304E-02_JPRB,0.88289E-03_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.54631E-03_JPRB,0.79621E-03_JPRB,0.10351E-02_JPRB,0.12356E-02_JPRB,0.13999E-02_JPRB, &
+ & 0.15332E-02_JPRB,0.16343E-02_JPRB,0.17287E-02_JPRB,0.90009E-03_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.54838E-03_JPRB,0.79738E-03_JPRB,0.10366E-02_JPRB,0.12358E-02_JPRB,0.14008E-02_JPRB, &
+ & 0.15312E-02_JPRB,0.16325E-02_JPRB,0.17267E-02_JPRB,0.91715E-03_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.55103E-03_JPRB,0.79925E-03_JPRB,0.10373E-02_JPRB,0.12370E-02_JPRB,0.14003E-02_JPRB, &
+ & 0.15313E-02_JPRB,0.16317E-02_JPRB,0.17265E-02_JPRB,0.93948E-03_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.55358E-03_JPRB,0.80158E-03_JPRB,0.10391E-02_JPRB,0.12370E-02_JPRB,0.14008E-02_JPRB, &
+ & 0.15320E-02_JPRB,0.16328E-02_JPRB,0.17271E-02_JPRB,0.97099E-03_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.45828E-03_JPRB,0.73128E-03_JPRB,0.97725E-03_JPRB,0.11801E-02_JPRB,0.13541E-02_JPRB, &
+ & 0.14966E-02_JPRB,0.16059E-02_JPRB,0.17081E-02_JPRB,0.25261E-04_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.45994E-03_JPRB,0.73433E-03_JPRB,0.98047E-03_JPRB,0.11852E-02_JPRB,0.13571E-02_JPRB, &
+ & 0.14993E-02_JPRB,0.16071E-02_JPRB,0.17093E-02_JPRB,0.32778E-04_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.46172E-03_JPRB,0.73698E-03_JPRB,0.98332E-03_JPRB,0.11877E-02_JPRB,0.13607E-02_JPRB, &
+ & 0.15001E-02_JPRB,0.16089E-02_JPRB,0.17098E-02_JPRB,0.30108E-04_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.46419E-03_JPRB,0.73967E-03_JPRB,0.98568E-03_JPRB,0.11903E-02_JPRB,0.13620E-02_JPRB, &
+ & 0.15042E-02_JPRB,0.16117E-02_JPRB,0.17131E-02_JPRB,0.14814E-04_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.46710E-03_JPRB,0.74287E-03_JPRB,0.98852E-03_JPRB,0.11927E-02_JPRB,0.13653E-02_JPRB, &
+ & 0.15080E-02_JPRB,0.16153E-02_JPRB,0.17174E-02_JPRB,0.18206E-04_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.38711E-03_JPRB,0.67660E-03_JPRB,0.92352E-03_JPRB,0.11285E-02_JPRB,0.13042E-02_JPRB, &
+ & 0.14533E-02_JPRB,0.15680E-02_JPRB,0.16768E-02_JPRB,0.35375E-04_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.38827E-03_JPRB,0.68076E-03_JPRB,0.92811E-03_JPRB,0.11355E-02_JPRB,0.13110E-02_JPRB, &
+ & 0.14578E-02_JPRB,0.15732E-02_JPRB,0.16802E-02_JPRB,0.17785E-04_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.39017E-03_JPRB,0.68339E-03_JPRB,0.93243E-03_JPRB,0.11404E-02_JPRB,0.13179E-02_JPRB, &
+ & 0.14648E-02_JPRB,0.15809E-02_JPRB,0.16870E-02_JPRB,0.17310E-04_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.39259E-03_JPRB,0.68706E-03_JPRB,0.93609E-03_JPRB,0.11451E-02_JPRB,0.13243E-02_JPRB, &
+ & 0.14746E-02_JPRB,0.15892E-02_JPRB,0.16958E-02_JPRB,0.17795E-04_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.39544E-03_JPRB,0.69011E-03_JPRB,0.94016E-03_JPRB,0.11496E-02_JPRB,0.13318E-02_JPRB, &
+ & 0.14825E-02_JPRB,0.15980E-02_JPRB,0.17052E-02_JPRB,0.87581E-05_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.32882E-03_JPRB,0.62658E-03_JPRB,0.87124E-03_JPRB,0.10770E-02_JPRB,0.12526E-02_JPRB, &
+ & 0.14042E-02_JPRB,0.15246E-02_JPRB,0.16367E-02_JPRB,0.13823E-04_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.33008E-03_JPRB,0.63068E-03_JPRB,0.87790E-03_JPRB,0.10857E-02_JPRB,0.12638E-02_JPRB, &
+ & 0.14155E-02_JPRB,0.15376E-02_JPRB,0.16473E-02_JPRB,0.27356E-04_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.33191E-03_JPRB,0.63479E-03_JPRB,0.88401E-03_JPRB,0.10939E-02_JPRB,0.12749E-02_JPRB, &
+ & 0.14298E-02_JPRB,0.15521E-02_JPRB,0.16615E-02_JPRB,0.26924E-04_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.33384E-03_JPRB,0.63914E-03_JPRB,0.88945E-03_JPRB,0.11023E-02_JPRB,0.12871E-02_JPRB, &
+ & 0.14439E-02_JPRB,0.15651E-02_JPRB,0.16755E-02_JPRB,0.13486E-04_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.33630E-03_JPRB,0.64288E-03_JPRB,0.89554E-03_JPRB,0.11106E-02_JPRB,0.12985E-02_JPRB, &
+ & 0.14567E-02_JPRB,0.15792E-02_JPRB,0.16910E-02_JPRB,0.54470E-04_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.28179E-03_JPRB,0.58039E-03_JPRB,0.82131E-03_JPRB,0.10258E-02_JPRB,0.12001E-02_JPRB, &
+ & 0.13522E-02_JPRB,0.14762E-02_JPRB,0.15892E-02_JPRB,0.17365E-04_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.28322E-03_JPRB,0.58517E-03_JPRB,0.83048E-03_JPRB,0.10376E-02_JPRB,0.12180E-02_JPRB, &
+ & 0.13721E-02_JPRB,0.14980E-02_JPRB,0.16092E-02_JPRB,0.19167E-10_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.28449E-03_JPRB,0.59004E-03_JPRB,0.83867E-03_JPRB,0.10495E-02_JPRB,0.12349E-02_JPRB, &
+ & 0.13937E-02_JPRB,0.15189E-02_JPRB,0.16302E-02_JPRB,0.17686E-04_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.28623E-03_JPRB,0.59506E-03_JPRB,0.84661E-03_JPRB,0.10616E-02_JPRB,0.12511E-02_JPRB, &
+ & 0.14124E-02_JPRB,0.15380E-02_JPRB,0.16505E-02_JPRB,0.27174E-10_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.28834E-03_JPRB,0.60000E-03_JPRB,0.85510E-03_JPRB,0.10735E-02_JPRB,0.12664E-02_JPRB, &
+ & 0.14298E-02_JPRB,0.15583E-02_JPRB,0.16724E-02_JPRB,0.30930E-10_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.39229E-02_JPRB,0.34326E-02_JPRB,0.30162E-02_JPRB,0.28699E-02_JPRB,0.28381E-02_JPRB, &
+ & 0.27734E-02_JPRB,0.26260E-02_JPRB,0.23062E-02_JPRB,0.25522E-02_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.39213E-02_JPRB,0.34310E-02_JPRB,0.30108E-02_JPRB,0.28565E-02_JPRB,0.28216E-02_JPRB, &
+ & 0.27552E-02_JPRB,0.26075E-02_JPRB,0.22956E-02_JPRB,0.25296E-02_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.39180E-02_JPRB,0.34283E-02_JPRB,0.30095E-02_JPRB,0.28490E-02_JPRB,0.28140E-02_JPRB, &
+ & 0.27516E-02_JPRB,0.26057E-02_JPRB,0.23031E-02_JPRB,0.25320E-02_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.39161E-02_JPRB,0.34265E-02_JPRB,0.30039E-02_JPRB,0.28320E-02_JPRB,0.27864E-02_JPRB, &
+ & 0.27263E-02_JPRB,0.25779E-02_JPRB,0.22767E-02_JPRB,0.24834E-02_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.39129E-02_JPRB,0.34239E-02_JPRB,0.29985E-02_JPRB,0.28202E-02_JPRB,0.27725E-02_JPRB, &
+ & 0.27107E-02_JPRB,0.25647E-02_JPRB,0.22654E-02_JPRB,0.24632E-02_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.35717E-02_JPRB,0.31250E-02_JPRB,0.28583E-02_JPRB,0.28716E-02_JPRB,0.28885E-02_JPRB, &
+ & 0.28569E-02_JPRB,0.27419E-02_JPRB,0.24528E-02_JPRB,0.26589E-02_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.35704E-02_JPRB,0.31241E-02_JPRB,0.28509E-02_JPRB,0.28521E-02_JPRB,0.28717E-02_JPRB, &
+ & 0.28411E-02_JPRB,0.27277E-02_JPRB,0.24440E-02_JPRB,0.26352E-02_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.35692E-02_JPRB,0.31228E-02_JPRB,0.28479E-02_JPRB,0.28438E-02_JPRB,0.28636E-02_JPRB, &
+ & 0.28419E-02_JPRB,0.27327E-02_JPRB,0.24542E-02_JPRB,0.26382E-02_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.35651E-02_JPRB,0.31194E-02_JPRB,0.28382E-02_JPRB,0.28288E-02_JPRB,0.28472E-02_JPRB, &
+ & 0.28288E-02_JPRB,0.27211E-02_JPRB,0.24428E-02_JPRB,0.26140E-02_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.35614E-02_JPRB,0.31162E-02_JPRB,0.28280E-02_JPRB,0.28080E-02_JPRB,0.28270E-02_JPRB, &
+ & 0.28018E-02_JPRB,0.26919E-02_JPRB,0.24122E-02_JPRB,0.25721E-02_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.32370E-02_JPRB,0.28408E-02_JPRB,0.27429E-02_JPRB,0.28459E-02_JPRB,0.29107E-02_JPRB, &
+ & 0.29163E-02_JPRB,0.28452E-02_JPRB,0.26013E-02_JPRB,0.27589E-02_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.32378E-02_JPRB,0.28409E-02_JPRB,0.27346E-02_JPRB,0.28282E-02_JPRB,0.28967E-02_JPRB, &
+ & 0.29036E-02_JPRB,0.28357E-02_JPRB,0.25912E-02_JPRB,0.27381E-02_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.32344E-02_JPRB,0.28366E-02_JPRB,0.27224E-02_JPRB,0.28159E-02_JPRB,0.28824E-02_JPRB, &
+ & 0.28940E-02_JPRB,0.28268E-02_JPRB,0.25801E-02_JPRB,0.27164E-02_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.32328E-02_JPRB,0.28349E-02_JPRB,0.27139E-02_JPRB,0.28071E-02_JPRB,0.28820E-02_JPRB, &
+ & 0.28985E-02_JPRB,0.28328E-02_JPRB,0.25870E-02_JPRB,0.27280E-02_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.32337E-02_JPRB,0.28348E-02_JPRB,0.27027E-02_JPRB,0.27877E-02_JPRB,0.28613E-02_JPRB, &
+ & 0.28723E-02_JPRB,0.28004E-02_JPRB,0.25498E-02_JPRB,0.26848E-02_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.29442E-02_JPRB,0.26158E-02_JPRB,0.26686E-02_JPRB,0.28002E-02_JPRB,0.29074E-02_JPRB, &
+ & 0.29569E-02_JPRB,0.29354E-02_JPRB,0.27381E-02_JPRB,0.28491E-02_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.29416E-02_JPRB,0.26110E-02_JPRB,0.26570E-02_JPRB,0.27866E-02_JPRB,0.28959E-02_JPRB, &
+ & 0.29477E-02_JPRB,0.29295E-02_JPRB,0.27262E-02_JPRB,0.28287E-02_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.29392E-02_JPRB,0.26064E-02_JPRB,0.26421E-02_JPRB,0.27765E-02_JPRB,0.28845E-02_JPRB, &
+ & 0.29406E-02_JPRB,0.29202E-02_JPRB,0.27107E-02_JPRB,0.28099E-02_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.29406E-02_JPRB,0.26055E-02_JPRB,0.26309E-02_JPRB,0.27645E-02_JPRB,0.28769E-02_JPRB, &
+ & 0.29312E-02_JPRB,0.29057E-02_JPRB,0.26928E-02_JPRB,0.27972E-02_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.29379E-02_JPRB,0.26016E-02_JPRB,0.26230E-02_JPRB,0.27605E-02_JPRB,0.28772E-02_JPRB, &
+ & 0.29338E-02_JPRB,0.29114E-02_JPRB,0.26956E-02_JPRB,0.28225E-02_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.26861E-02_JPRB,0.24510E-02_JPRB,0.26014E-02_JPRB,0.27478E-02_JPRB,0.28811E-02_JPRB, &
+ & 0.29878E-02_JPRB,0.30091E-02_JPRB,0.28610E-02_JPRB,0.29320E-02_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.26822E-02_JPRB,0.24426E-02_JPRB,0.25898E-02_JPRB,0.27369E-02_JPRB,0.28725E-02_JPRB, &
+ & 0.29815E-02_JPRB,0.30039E-02_JPRB,0.28485E-02_JPRB,0.29157E-02_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.26829E-02_JPRB,0.24377E-02_JPRB,0.25766E-02_JPRB,0.27289E-02_JPRB,0.28648E-02_JPRB, &
+ & 0.29741E-02_JPRB,0.29940E-02_JPRB,0.28292E-02_JPRB,0.29014E-02_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.26816E-02_JPRB,0.24329E-02_JPRB,0.25674E-02_JPRB,0.27192E-02_JPRB,0.28602E-02_JPRB, &
+ & 0.29643E-02_JPRB,0.29808E-02_JPRB,0.28105E-02_JPRB,0.28911E-02_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.26776E-02_JPRB,0.24242E-02_JPRB,0.25584E-02_JPRB,0.27174E-02_JPRB,0.28631E-02_JPRB, &
+ & 0.29690E-02_JPRB,0.29916E-02_JPRB,0.28176E-02_JPRB,0.29253E-02_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.24590E-02_JPRB,0.23376E-02_JPRB,0.25355E-02_JPRB,0.26945E-02_JPRB,0.28553E-02_JPRB, &
+ & 0.29996E-02_JPRB,0.30574E-02_JPRB,0.29544E-02_JPRB,0.30033E-02_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.24565E-02_JPRB,0.23281E-02_JPRB,0.25242E-02_JPRB,0.26862E-02_JPRB,0.28495E-02_JPRB, &
+ & 0.29966E-02_JPRB,0.30559E-02_JPRB,0.29459E-02_JPRB,0.29901E-02_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.24594E-02_JPRB,0.23224E-02_JPRB,0.25135E-02_JPRB,0.26796E-02_JPRB,0.28441E-02_JPRB, &
+ & 0.29914E-02_JPRB,0.30494E-02_JPRB,0.29315E-02_JPRB,0.29796E-02_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.24561E-02_JPRB,0.23120E-02_JPRB,0.25070E-02_JPRB,0.26723E-02_JPRB,0.28398E-02_JPRB, &
+ & 0.29830E-02_JPRB,0.30431E-02_JPRB,0.29165E-02_JPRB,0.29718E-02_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.24544E-02_JPRB,0.23009E-02_JPRB,0.24971E-02_JPRB,0.26678E-02_JPRB,0.28335E-02_JPRB, &
+ & 0.29758E-02_JPRB,0.30342E-02_JPRB,0.29019E-02_JPRB,0.29654E-02_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.22277E-02_JPRB,0.22296E-02_JPRB,0.24669E-02_JPRB,0.26497E-02_JPRB,0.28285E-02_JPRB, &
+ & 0.29885E-02_JPRB,0.30855E-02_JPRB,0.30292E-02_JPRB,0.30616E-02_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.22293E-02_JPRB,0.22219E-02_JPRB,0.24569E-02_JPRB,0.26437E-02_JPRB,0.28247E-02_JPRB, &
+ & 0.29924E-02_JPRB,0.30879E-02_JPRB,0.30266E-02_JPRB,0.30510E-02_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.22351E-02_JPRB,0.22176E-02_JPRB,0.24495E-02_JPRB,0.26382E-02_JPRB,0.28222E-02_JPRB, &
+ & 0.29913E-02_JPRB,0.30877E-02_JPRB,0.30175E-02_JPRB,0.30415E-02_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.22344E-02_JPRB,0.22079E-02_JPRB,0.24453E-02_JPRB,0.26324E-02_JPRB,0.28192E-02_JPRB, &
+ & 0.29887E-02_JPRB,0.30862E-02_JPRB,0.30074E-02_JPRB,0.30342E-02_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.22361E-02_JPRB,0.21982E-02_JPRB,0.24378E-02_JPRB,0.26291E-02_JPRB,0.28143E-02_JPRB, &
+ & 0.29850E-02_JPRB,0.30822E-02_JPRB,0.29969E-02_JPRB,0.30270E-02_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.19878E-02_JPRB,0.21080E-02_JPRB,0.23886E-02_JPRB,0.26087E-02_JPRB,0.27952E-02_JPRB, &
+ & 0.29676E-02_JPRB,0.31003E-02_JPRB,0.30904E-02_JPRB,0.31018E-02_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.19936E-02_JPRB,0.21034E-02_JPRB,0.23825E-02_JPRB,0.26049E-02_JPRB,0.27978E-02_JPRB, &
+ & 0.29755E-02_JPRB,0.31107E-02_JPRB,0.30954E-02_JPRB,0.30940E-02_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.20012E-02_JPRB,0.21016E-02_JPRB,0.23778E-02_JPRB,0.26010E-02_JPRB,0.27982E-02_JPRB, &
+ & 0.29815E-02_JPRB,0.31166E-02_JPRB,0.30929E-02_JPRB,0.30865E-02_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.20034E-02_JPRB,0.20960E-02_JPRB,0.23764E-02_JPRB,0.25979E-02_JPRB,0.27992E-02_JPRB, &
+ & 0.29823E-02_JPRB,0.31192E-02_JPRB,0.30868E-02_JPRB,0.30812E-02_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.20095E-02_JPRB,0.20891E-02_JPRB,0.23711E-02_JPRB,0.25960E-02_JPRB,0.27964E-02_JPRB, &
+ & 0.29828E-02_JPRB,0.31181E-02_JPRB,0.30806E-02_JPRB,0.30733E-02_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.17523E-02_JPRB,0.19789E-02_JPRB,0.23024E-02_JPRB,0.25572E-02_JPRB,0.27629E-02_JPRB, &
+ & 0.29479E-02_JPRB,0.31085E-02_JPRB,0.31444E-02_JPRB,0.30417E-02_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.17607E-02_JPRB,0.19777E-02_JPRB,0.23013E-02_JPRB,0.25587E-02_JPRB,0.27691E-02_JPRB, &
+ & 0.29613E-02_JPRB,0.31227E-02_JPRB,0.31535E-02_JPRB,0.30346E-02_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.17693E-02_JPRB,0.19800E-02_JPRB,0.23011E-02_JPRB,0.25605E-02_JPRB,0.27739E-02_JPRB, &
+ & 0.29714E-02_JPRB,0.31329E-02_JPRB,0.31549E-02_JPRB,0.30299E-02_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.17751E-02_JPRB,0.19773E-02_JPRB,0.23025E-02_JPRB,0.25606E-02_JPRB,0.27770E-02_JPRB, &
+ & 0.29770E-02_JPRB,0.31405E-02_JPRB,0.31532E-02_JPRB,0.30280E-02_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.17845E-02_JPRB,0.19738E-02_JPRB,0.23006E-02_JPRB,0.25633E-02_JPRB,0.27766E-02_JPRB, &
+ & 0.29802E-02_JPRB,0.31452E-02_JPRB,0.31517E-02_JPRB,0.30317E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 1,10,13) = (/ &
+ & 0.15244E-02_JPRB,0.18437E-02_JPRB,0.22100E-02_JPRB,0.24972E-02_JPRB,0.27331E-02_JPRB, &
+ & 0.29304E-02_JPRB,0.31059E-02_JPRB,0.31844E-02_JPRB,0.23817E-04_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.15360E-02_JPRB,0.18467E-02_JPRB,0.22145E-02_JPRB,0.25068E-02_JPRB,0.27437E-02_JPRB, &
+ & 0.29473E-02_JPRB,0.31260E-02_JPRB,0.31986E-02_JPRB,0.12454E-04_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.15476E-02_JPRB,0.18512E-02_JPRB,0.22181E-02_JPRB,0.25119E-02_JPRB,0.27538E-02_JPRB, &
+ & 0.29593E-02_JPRB,0.31389E-02_JPRB,0.32042E-02_JPRB,0.30814E-04_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.15571E-02_JPRB,0.18528E-02_JPRB,0.22235E-02_JPRB,0.25174E-02_JPRB,0.27591E-02_JPRB, &
+ & 0.29666E-02_JPRB,0.31497E-02_JPRB,0.32063E-02_JPRB,0.11698E-04_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.15695E-02_JPRB,0.18534E-02_JPRB,0.22262E-02_JPRB,0.25236E-02_JPRB,0.27611E-02_JPRB, &
+ & 0.29733E-02_JPRB,0.31600E-02_JPRB,0.32093E-02_JPRB,0.22330E-04_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.13188E-02_JPRB,0.17123E-02_JPRB,0.21150E-02_JPRB,0.24398E-02_JPRB,0.27060E-02_JPRB, &
+ & 0.29190E-02_JPRB,0.31061E-02_JPRB,0.32197E-02_JPRB,0.11689E-04_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.13341E-02_JPRB,0.17189E-02_JPRB,0.21240E-02_JPRB,0.24532E-02_JPRB,0.27222E-02_JPRB, &
+ & 0.29371E-02_JPRB,0.31262E-02_JPRB,0.32338E-02_JPRB,0.11845E-04_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.13447E-02_JPRB,0.17274E-02_JPRB,0.21339E-02_JPRB,0.24651E-02_JPRB,0.27343E-02_JPRB, &
+ & 0.29498E-02_JPRB,0.31430E-02_JPRB,0.32440E-02_JPRB,0.24255E-04_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.13578E-02_JPRB,0.17324E-02_JPRB,0.21454E-02_JPRB,0.24765E-02_JPRB,0.27400E-02_JPRB, &
+ & 0.29585E-02_JPRB,0.31579E-02_JPRB,0.32502E-02_JPRB,0.35648E-04_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.13715E-02_JPRB,0.17394E-02_JPRB,0.21518E-02_JPRB,0.24842E-02_JPRB,0.27436E-02_JPRB, &
+ & 0.29689E-02_JPRB,0.31719E-02_JPRB,0.32570E-02_JPRB,0.48216E-04_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.11367E-02_JPRB,0.15942E-02_JPRB,0.20255E-02_JPRB,0.23827E-02_JPRB,0.26757E-02_JPRB, &
+ & 0.29001E-02_JPRB,0.30944E-02_JPRB,0.32386E-02_JPRB,0.48616E-12_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.11495E-02_JPRB,0.16057E-02_JPRB,0.20405E-02_JPRB,0.24019E-02_JPRB,0.26965E-02_JPRB, &
+ & 0.29177E-02_JPRB,0.31160E-02_JPRB,0.32553E-02_JPRB,0.63803E-12_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.11626E-02_JPRB,0.16147E-02_JPRB,0.20558E-02_JPRB,0.24193E-02_JPRB,0.27102E-02_JPRB, &
+ & 0.29330E-02_JPRB,0.31363E-02_JPRB,0.32673E-02_JPRB,0.18451E-04_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.11784E-02_JPRB,0.16224E-02_JPRB,0.20681E-02_JPRB,0.24334E-02_JPRB,0.27187E-02_JPRB, &
+ & 0.29473E-02_JPRB,0.31560E-02_JPRB,0.32789E-02_JPRB,0.93725E-12_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.11935E-02_JPRB,0.16327E-02_JPRB,0.20790E-02_JPRB,0.24438E-02_JPRB,0.27275E-02_JPRB, &
+ & 0.29614E-02_JPRB,0.31756E-02_JPRB,0.32901E-02_JPRB,0.36773E-04_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.97386E-03_JPRB,0.14865E-02_JPRB,0.19422E-02_JPRB,0.23265E-02_JPRB,0.26377E-02_JPRB, &
+ & 0.28742E-02_JPRB,0.30758E-02_JPRB,0.32440E-02_JPRB,0.42838E-12_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.98704E-03_JPRB,0.15018E-02_JPRB,0.19617E-02_JPRB,0.23518E-02_JPRB,0.26608E-02_JPRB, &
+ & 0.28955E-02_JPRB,0.31025E-02_JPRB,0.32660E-02_JPRB,0.54956E-12_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.10034E-02_JPRB,0.15127E-02_JPRB,0.19822E-02_JPRB,0.23722E-02_JPRB,0.26791E-02_JPRB, &
+ & 0.29131E-02_JPRB,0.31272E-02_JPRB,0.32827E-02_JPRB,0.68281E-12_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.10185E-02_JPRB,0.15248E-02_JPRB,0.19990E-02_JPRB,0.23896E-02_JPRB,0.26942E-02_JPRB, &
+ & 0.29331E-02_JPRB,0.31525E-02_JPRB,0.33003E-02_JPRB,0.47348E-04_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.10353E-02_JPRB,0.15370E-02_JPRB,0.20122E-02_JPRB,0.24032E-02_JPRB,0.27096E-02_JPRB, &
+ & 0.29526E-02_JPRB,0.31774E-02_JPRB,0.33154E-02_JPRB,0.94094E-12_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.11127E-01_JPRB,0.97365E-02_JPRB,0.83450E-02_JPRB,0.69546E-02_JPRB,0.57518E-02_JPRB, &
+ & 0.48972E-02_JPRB,0.42517E-02_JPRB,0.34771E-02_JPRB,0.44616E-02_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.11168E-01_JPRB,0.97719E-02_JPRB,0.83762E-02_JPRB,0.69801E-02_JPRB,0.57613E-02_JPRB, &
+ & 0.48914E-02_JPRB,0.42324E-02_JPRB,0.34356E-02_JPRB,0.44183E-02_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.11206E-01_JPRB,0.98061E-02_JPRB,0.84051E-02_JPRB,0.70040E-02_JPRB,0.57786E-02_JPRB, &
+ & 0.48973E-02_JPRB,0.42300E-02_JPRB,0.34167E-02_JPRB,0.44088E-02_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.11230E-01_JPRB,0.98265E-02_JPRB,0.84228E-02_JPRB,0.70190E-02_JPRB,0.57794E-02_JPRB, &
+ & 0.48702E-02_JPRB,0.41927E-02_JPRB,0.33658E-02_JPRB,0.43365E-02_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.11247E-01_JPRB,0.98411E-02_JPRB,0.84348E-02_JPRB,0.70292E-02_JPRB,0.57800E-02_JPRB, &
+ & 0.48600E-02_JPRB,0.41735E-02_JPRB,0.33367E-02_JPRB,0.43003E-02_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.11360E-01_JPRB,0.99403E-02_JPRB,0.85204E-02_JPRB,0.71449E-02_JPRB,0.60754E-02_JPRB, &
+ & 0.53678E-02_JPRB,0.47333E-02_JPRB,0.38804E-02_JPRB,0.48459E-02_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.11402E-01_JPRB,0.99768E-02_JPRB,0.85517E-02_JPRB,0.71687E-02_JPRB,0.60816E-02_JPRB, &
+ & 0.53522E-02_JPRB,0.47062E-02_JPRB,0.38343E-02_JPRB,0.48034E-02_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.11432E-01_JPRB,0.10003E-01_JPRB,0.85744E-02_JPRB,0.71872E-02_JPRB,0.60934E-02_JPRB, &
+ & 0.53498E-02_JPRB,0.46968E-02_JPRB,0.38177E-02_JPRB,0.48004E-02_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.11460E-01_JPRB,0.10028E-01_JPRB,0.85956E-02_JPRB,0.72000E-02_JPRB,0.60909E-02_JPRB, &
+ & 0.53282E-02_JPRB,0.46686E-02_JPRB,0.37852E-02_JPRB,0.47598E-02_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.11484E-01_JPRB,0.10049E-01_JPRB,0.86132E-02_JPRB,0.72108E-02_JPRB,0.60794E-02_JPRB, &
+ & 0.52951E-02_JPRB,0.46284E-02_JPRB,0.37347E-02_JPRB,0.46895E-02_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.11375E-01_JPRB,0.99535E-02_JPRB,0.85318E-02_JPRB,0.72748E-02_JPRB,0.63965E-02_JPRB, &
+ & 0.58374E-02_JPRB,0.52215E-02_JPRB,0.43002E-02_JPRB,0.52258E-02_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.11412E-01_JPRB,0.99855E-02_JPRB,0.85592E-02_JPRB,0.72909E-02_JPRB,0.63926E-02_JPRB, &
+ & 0.58142E-02_JPRB,0.51838E-02_JPRB,0.42530E-02_JPRB,0.51857E-02_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.11451E-01_JPRB,0.10019E-01_JPRB,0.85873E-02_JPRB,0.73027E-02_JPRB,0.63856E-02_JPRB, &
+ & 0.57886E-02_JPRB,0.51485E-02_JPRB,0.42153E-02_JPRB,0.51479E-02_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.11483E-01_JPRB,0.10047E-01_JPRB,0.86122E-02_JPRB,0.73190E-02_JPRB,0.63840E-02_JPRB, &
+ & 0.57742E-02_JPRB,0.51342E-02_JPRB,0.42027E-02_JPRB,0.51482E-02_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.11512E-01_JPRB,0.10073E-01_JPRB,0.86339E-02_JPRB,0.73301E-02_JPRB,0.63706E-02_JPRB, &
+ & 0.57344E-02_JPRB,0.50899E-02_JPRB,0.41496E-02_JPRB,0.50782E-02_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.11149E-01_JPRB,0.97560E-02_JPRB,0.83906E-02_JPRB,0.73568E-02_JPRB,0.67050E-02_JPRB, &
+ & 0.62789E-02_JPRB,0.56809E-02_JPRB,0.47244E-02_JPRB,0.55742E-02_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.11201E-01_JPRB,0.98016E-02_JPRB,0.84237E-02_JPRB,0.73684E-02_JPRB,0.66927E-02_JPRB, &
+ & 0.62506E-02_JPRB,0.56398E-02_JPRB,0.46775E-02_JPRB,0.55381E-02_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.11250E-01_JPRB,0.98437E-02_JPRB,0.84576E-02_JPRB,0.73794E-02_JPRB,0.66793E-02_JPRB, &
+ & 0.62192E-02_JPRB,0.56018E-02_JPRB,0.46402E-02_JPRB,0.55028E-02_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.11293E-01_JPRB,0.98814E-02_JPRB,0.84883E-02_JPRB,0.73928E-02_JPRB,0.66658E-02_JPRB, &
+ & 0.61879E-02_JPRB,0.55699E-02_JPRB,0.46073E-02_JPRB,0.54669E-02_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.11341E-01_JPRB,0.99237E-02_JPRB,0.85206E-02_JPRB,0.74085E-02_JPRB,0.66636E-02_JPRB, &
+ & 0.61710E-02_JPRB,0.55548E-02_JPRB,0.45934E-02_JPRB,0.54646E-02_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.10704E-01_JPRB,0.93660E-02_JPRB,0.81568E-02_JPRB,0.74021E-02_JPRB,0.69945E-02_JPRB, &
+ & 0.66654E-02_JPRB,0.61172E-02_JPRB,0.51470E-02_JPRB,0.58967E-02_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.10771E-01_JPRB,0.94250E-02_JPRB,0.81953E-02_JPRB,0.74101E-02_JPRB,0.69769E-02_JPRB, &
+ & 0.66347E-02_JPRB,0.60743E-02_JPRB,0.50992E-02_JPRB,0.58616E-02_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.10834E-01_JPRB,0.94795E-02_JPRB,0.82348E-02_JPRB,0.74202E-02_JPRB,0.69586E-02_JPRB, &
+ & 0.66047E-02_JPRB,0.60376E-02_JPRB,0.50623E-02_JPRB,0.58279E-02_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.10899E-01_JPRB,0.95365E-02_JPRB,0.82726E-02_JPRB,0.74343E-02_JPRB,0.69400E-02_JPRB, &
+ & 0.65760E-02_JPRB,0.60076E-02_JPRB,0.50289E-02_JPRB,0.57953E-02_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.10965E-01_JPRB,0.95941E-02_JPRB,0.83123E-02_JPRB,0.74464E-02_JPRB,0.69292E-02_JPRB, &
+ & 0.65626E-02_JPRB,0.59940E-02_JPRB,0.50178E-02_JPRB,0.57938E-02_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.10078E-01_JPRB,0.88178E-02_JPRB,0.78666E-02_JPRB,0.74112E-02_JPRB,0.72308E-02_JPRB, &
+ & 0.70100E-02_JPRB,0.65312E-02_JPRB,0.55779E-02_JPRB,0.62140E-02_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.10161E-01_JPRB,0.88906E-02_JPRB,0.79113E-02_JPRB,0.74185E-02_JPRB,0.72160E-02_JPRB, &
+ & 0.69843E-02_JPRB,0.64888E-02_JPRB,0.55247E-02_JPRB,0.61818E-02_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.10243E-01_JPRB,0.89616E-02_JPRB,0.79583E-02_JPRB,0.74318E-02_JPRB,0.71999E-02_JPRB, &
+ & 0.69579E-02_JPRB,0.64523E-02_JPRB,0.54833E-02_JPRB,0.61492E-02_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.10327E-01_JPRB,0.90374E-02_JPRB,0.79989E-02_JPRB,0.74443E-02_JPRB,0.71832E-02_JPRB, &
+ & 0.69350E-02_JPRB,0.64210E-02_JPRB,0.54479E-02_JPRB,0.61172E-02_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.10409E-01_JPRB,0.91075E-02_JPRB,0.80421E-02_JPRB,0.74489E-02_JPRB,0.71645E-02_JPRB, &
+ & 0.69118E-02_JPRB,0.63952E-02_JPRB,0.54129E-02_JPRB,0.60849E-02_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.93799E-02_JPRB,0.82246E-02_JPRB,0.75645E-02_JPRB,0.73983E-02_JPRB,0.74124E-02_JPRB, &
+ & 0.73054E-02_JPRB,0.69103E-02_JPRB,0.59986E-02_JPRB,0.65205E-02_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.94746E-02_JPRB,0.83048E-02_JPRB,0.76105E-02_JPRB,0.74041E-02_JPRB,0.74008E-02_JPRB, &
+ & 0.72835E-02_JPRB,0.68745E-02_JPRB,0.59435E-02_JPRB,0.64911E-02_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.95665E-02_JPRB,0.83814E-02_JPRB,0.76560E-02_JPRB,0.74150E-02_JPRB,0.73885E-02_JPRB, &
+ & 0.72645E-02_JPRB,0.68399E-02_JPRB,0.59000E-02_JPRB,0.64612E-02_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.96610E-02_JPRB,0.84615E-02_JPRB,0.76953E-02_JPRB,0.74218E-02_JPRB,0.73786E-02_JPRB, &
+ & 0.72467E-02_JPRB,0.68110E-02_JPRB,0.58618E-02_JPRB,0.64309E-02_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.97576E-02_JPRB,0.85445E-02_JPRB,0.77428E-02_JPRB,0.74271E-02_JPRB,0.73666E-02_JPRB, &
+ & 0.72295E-02_JPRB,0.67856E-02_JPRB,0.58248E-02_JPRB,0.64018E-02_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.86695E-02_JPRB,0.76539E-02_JPRB,0.72832E-02_JPRB,0.73811E-02_JPRB,0.75539E-02_JPRB, &
+ & 0.75395E-02_JPRB,0.72391E-02_JPRB,0.63979E-02_JPRB,0.68067E-02_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.87714E-02_JPRB,0.77350E-02_JPRB,0.73260E-02_JPRB,0.73889E-02_JPRB,0.75481E-02_JPRB, &
+ & 0.75307E-02_JPRB,0.72059E-02_JPRB,0.63386E-02_JPRB,0.67797E-02_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.88648E-02_JPRB,0.78065E-02_JPRB,0.73635E-02_JPRB,0.73928E-02_JPRB,0.75428E-02_JPRB, &
+ & 0.75176E-02_JPRB,0.71786E-02_JPRB,0.62948E-02_JPRB,0.67512E-02_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.89696E-02_JPRB,0.78903E-02_JPRB,0.74008E-02_JPRB,0.73947E-02_JPRB,0.75364E-02_JPRB, &
+ & 0.75091E-02_JPRB,0.71562E-02_JPRB,0.62573E-02_JPRB,0.67249E-02_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.90827E-02_JPRB,0.79827E-02_JPRB,0.74524E-02_JPRB,0.74004E-02_JPRB,0.75307E-02_JPRB, &
+ & 0.75004E-02_JPRB,0.71406E-02_JPRB,0.62196E-02_JPRB,0.66995E-02_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.79522E-02_JPRB,0.71197E-02_JPRB,0.70358E-02_JPRB,0.73522E-02_JPRB,0.76328E-02_JPRB, &
+ & 0.77097E-02_JPRB,0.75175E-02_JPRB,0.67703E-02_JPRB,0.70524E-02_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.80598E-02_JPRB,0.71969E-02_JPRB,0.70715E-02_JPRB,0.73653E-02_JPRB,0.76374E-02_JPRB, &
+ & 0.77113E-02_JPRB,0.74908E-02_JPRB,0.67151E-02_JPRB,0.70338E-02_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.81632E-02_JPRB,0.72678E-02_JPRB,0.71027E-02_JPRB,0.73712E-02_JPRB,0.76458E-02_JPRB, &
+ & 0.77123E-02_JPRB,0.74742E-02_JPRB,0.66728E-02_JPRB,0.70182E-02_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.82823E-02_JPRB,0.73561E-02_JPRB,0.71392E-02_JPRB,0.73768E-02_JPRB,0.76576E-02_JPRB, &
+ & 0.77143E-02_JPRB,0.74622E-02_JPRB,0.66357E-02_JPRB,0.69991E-02_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.84105E-02_JPRB,0.74558E-02_JPRB,0.71910E-02_JPRB,0.73874E-02_JPRB,0.76648E-02_JPRB, &
+ & 0.77180E-02_JPRB,0.74509E-02_JPRB,0.65977E-02_JPRB,0.69736E-02_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.72630E-02_JPRB,0.66377E-02_JPRB,0.68373E-02_JPRB,0.72984E-02_JPRB,0.76509E-02_JPRB, &
+ & 0.78294E-02_JPRB,0.77460E-02_JPRB,0.71207E-02_JPRB,0.20344E-04_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.73671E-02_JPRB,0.67055E-02_JPRB,0.68587E-02_JPRB,0.73198E-02_JPRB,0.76710E-02_JPRB, &
+ & 0.78437E-02_JPRB,0.77323E-02_JPRB,0.70655E-02_JPRB,0.20564E-04_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.74810E-02_JPRB,0.67793E-02_JPRB,0.68858E-02_JPRB,0.73353E-02_JPRB,0.76947E-02_JPRB, &
+ & 0.78590E-02_JPRB,0.77307E-02_JPRB,0.70272E-02_JPRB,0.37563E-05_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.76171E-02_JPRB,0.68754E-02_JPRB,0.69230E-02_JPRB,0.73502E-02_JPRB,0.77241E-02_JPRB, &
+ & 0.78765E-02_JPRB,0.77271E-02_JPRB,0.69915E-02_JPRB,0.47236E-05_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.77608E-02_JPRB,0.69811E-02_JPRB,0.69732E-02_JPRB,0.73676E-02_JPRB,0.77455E-02_JPRB, &
+ & 0.78941E-02_JPRB,0.77236E-02_JPRB,0.69531E-02_JPRB,0.26047E-04_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.66493E-02_JPRB,0.62366E-02_JPRB,0.66807E-02_JPRB,0.72344E-02_JPRB,0.76404E-02_JPRB, &
+ & 0.79217E-02_JPRB,0.79405E-02_JPRB,0.74097E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.67616E-02_JPRB,0.63044E-02_JPRB,0.67053E-02_JPRB,0.72656E-02_JPRB,0.76819E-02_JPRB, &
+ & 0.79515E-02_JPRB,0.79506E-02_JPRB,0.73718E-02_JPRB,0.18408E-04_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.69005E-02_JPRB,0.63894E-02_JPRB,0.67349E-02_JPRB,0.72931E-02_JPRB,0.77291E-02_JPRB, &
+ & 0.79845E-02_JPRB,0.79576E-02_JPRB,0.73388E-02_JPRB,0.37607E-04_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.70530E-02_JPRB,0.64912E-02_JPRB,0.67712E-02_JPRB,0.73223E-02_JPRB,0.77726E-02_JPRB, &
+ & 0.80170E-02_JPRB,0.79618E-02_JPRB,0.73054E-02_JPRB,0.56367E-04_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.72039E-02_JPRB,0.65911E-02_JPRB,0.68118E-02_JPRB,0.73572E-02_JPRB,0.78096E-02_JPRB, &
+ & 0.80477E-02_JPRB,0.79648E-02_JPRB,0.72708E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.60858E-02_JPRB,0.58916E-02_JPRB,0.65335E-02_JPRB,0.71525E-02_JPRB,0.76284E-02_JPRB, &
+ & 0.80006E-02_JPRB,0.81294E-02_JPRB,0.76675E-02_JPRB,0.58588E-04_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.62191E-02_JPRB,0.59612E-02_JPRB,0.65675E-02_JPRB,0.71998E-02_JPRB,0.76898E-02_JPRB, &
+ & 0.80500E-02_JPRB,0.81534E-02_JPRB,0.76479E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.63725E-02_JPRB,0.60546E-02_JPRB,0.66095E-02_JPRB,0.72445E-02_JPRB,0.77558E-02_JPRB, &
+ & 0.80973E-02_JPRB,0.81695E-02_JPRB,0.76255E-02_JPRB,0.29841E-04_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.65241E-02_JPRB,0.61494E-02_JPRB,0.66519E-02_JPRB,0.72916E-02_JPRB,0.78126E-02_JPRB, &
+ & 0.81445E-02_JPRB,0.81839E-02_JPRB,0.75955E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.66908E-02_JPRB,0.62534E-02_JPRB,0.66904E-02_JPRB,0.73429E-02_JPRB,0.78615E-02_JPRB, &
+ & 0.81879E-02_JPRB,0.81898E-02_JPRB,0.75652E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.55891E-02_JPRB,0.56116E-02_JPRB,0.63936E-02_JPRB,0.70621E-02_JPRB,0.76241E-02_JPRB, &
+ & 0.80837E-02_JPRB,0.82964E-02_JPRB,0.79007E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.57354E-02_JPRB,0.56825E-02_JPRB,0.64439E-02_JPRB,0.71280E-02_JPRB,0.77039E-02_JPRB, &
+ & 0.81460E-02_JPRB,0.83322E-02_JPRB,0.78896E-02_JPRB,0.38090E-04_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.58847E-02_JPRB,0.57651E-02_JPRB,0.64971E-02_JPRB,0.71963E-02_JPRB,0.77792E-02_JPRB, &
+ & 0.82047E-02_JPRB,0.83632E-02_JPRB,0.78746E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.60503E-02_JPRB,0.58579E-02_JPRB,0.65448E-02_JPRB,0.72663E-02_JPRB,0.78467E-02_JPRB, &
+ & 0.82617E-02_JPRB,0.83886E-02_JPRB,0.78555E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.62326E-02_JPRB,0.59678E-02_JPRB,0.65939E-02_JPRB,0.73313E-02_JPRB,0.79071E-02_JPRB, &
+ & 0.83133E-02_JPRB,0.83975E-02_JPRB,0.78294E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.22784E-01_JPRB,0.19937E-01_JPRB,0.17089E-01_JPRB,0.14240E-01_JPRB,0.11393E-01_JPRB, &
+ & 0.85439E-02_JPRB,0.62360E-02_JPRB,0.50515E-02_JPRB,0.76952E-02_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.22781E-01_JPRB,0.19933E-01_JPRB,0.17085E-01_JPRB,0.14238E-01_JPRB,0.11390E-01_JPRB, &
+ & 0.85426E-02_JPRB,0.62118E-02_JPRB,0.49990E-02_JPRB,0.75953E-02_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.22781E-01_JPRB,0.19934E-01_JPRB,0.17086E-01_JPRB,0.14239E-01_JPRB,0.11390E-01_JPRB, &
+ & 0.85428E-02_JPRB,0.62149E-02_JPRB,0.49913E-02_JPRB,0.75531E-02_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.22807E-01_JPRB,0.19955E-01_JPRB,0.17104E-01_JPRB,0.14253E-01_JPRB,0.11403E-01_JPRB, &
+ & 0.85521E-02_JPRB,0.61662E-02_JPRB,0.48921E-02_JPRB,0.74213E-02_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.22846E-01_JPRB,0.19991E-01_JPRB,0.17134E-01_JPRB,0.14278E-01_JPRB,0.11422E-01_JPRB, &
+ & 0.85672E-02_JPRB,0.61477E-02_JPRB,0.48442E-02_JPRB,0.73437E-02_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.25963E-01_JPRB,0.22716E-01_JPRB,0.19471E-01_JPRB,0.16227E-01_JPRB,0.12981E-01_JPRB, &
+ & 0.97432E-02_JPRB,0.72799E-02_JPRB,0.58913E-02_JPRB,0.89930E-02_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.25957E-01_JPRB,0.22712E-01_JPRB,0.19468E-01_JPRB,0.16223E-01_JPRB,0.12978E-01_JPRB, &
+ & 0.97376E-02_JPRB,0.72409E-02_JPRB,0.58243E-02_JPRB,0.88738E-02_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.25967E-01_JPRB,0.22721E-01_JPRB,0.19475E-01_JPRB,0.16229E-01_JPRB,0.12984E-01_JPRB, &
+ & 0.97376E-02_JPRB,0.72294E-02_JPRB,0.57970E-02_JPRB,0.88082E-02_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.25991E-01_JPRB,0.22741E-01_JPRB,0.19493E-01_JPRB,0.16243E-01_JPRB,0.12995E-01_JPRB, &
+ & 0.97464E-02_JPRB,0.71939E-02_JPRB,0.57194E-02_JPRB,0.86974E-02_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.26012E-01_JPRB,0.22759E-01_JPRB,0.19508E-01_JPRB,0.16256E-01_JPRB,0.13005E-01_JPRB, &
+ & 0.97539E-02_JPRB,0.71378E-02_JPRB,0.56167E-02_JPRB,0.85506E-02_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.29273E-01_JPRB,0.25614E-01_JPRB,0.21954E-01_JPRB,0.18296E-01_JPRB,0.14638E-01_JPRB, &
+ & 0.11059E-01_JPRB,0.84536E-02_JPRB,0.68488E-02_JPRB,0.10453E-01_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.29273E-01_JPRB,0.25613E-01_JPRB,0.21954E-01_JPRB,0.18296E-01_JPRB,0.14636E-01_JPRB, &
+ & 0.11040E-01_JPRB,0.84006E-02_JPRB,0.67671E-02_JPRB,0.10308E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 3, 3,15) = (/ &
+ & 0.29281E-01_JPRB,0.25620E-01_JPRB,0.21957E-01_JPRB,0.18299E-01_JPRB,0.14639E-01_JPRB, &
+ & 0.11029E-01_JPRB,0.83532E-02_JPRB,0.66803E-02_JPRB,0.10170E-01_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.29284E-01_JPRB,0.25622E-01_JPRB,0.21963E-01_JPRB,0.18303E-01_JPRB,0.14642E-01_JPRB, &
+ & 0.11027E-01_JPRB,0.83265E-02_JPRB,0.66328E-02_JPRB,0.10072E-01_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.29273E-01_JPRB,0.25615E-01_JPRB,0.21955E-01_JPRB,0.18297E-01_JPRB,0.14636E-01_JPRB, &
+ & 0.11016E-01_JPRB,0.82524E-02_JPRB,0.65141E-02_JPRB,0.98927E-02_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.32689E-01_JPRB,0.28601E-01_JPRB,0.24517E-01_JPRB,0.20431E-01_JPRB,0.16343E-01_JPRB, &
+ & 0.12498E-01_JPRB,0.97860E-02_JPRB,0.79359E-02_JPRB,0.11964E-01_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.32673E-01_JPRB,0.28590E-01_JPRB,0.24505E-01_JPRB,0.20420E-01_JPRB,0.16336E-01_JPRB, &
+ & 0.12462E-01_JPRB,0.97090E-02_JPRB,0.78356E-02_JPRB,0.11793E-01_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.32657E-01_JPRB,0.28575E-01_JPRB,0.24494E-01_JPRB,0.20410E-01_JPRB,0.16330E-01_JPRB, &
+ & 0.12434E-01_JPRB,0.96384E-02_JPRB,0.77321E-02_JPRB,0.11625E-01_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.32631E-01_JPRB,0.28553E-01_JPRB,0.24473E-01_JPRB,0.20396E-01_JPRB,0.16316E-01_JPRB, &
+ & 0.12404E-01_JPRB,0.95671E-02_JPRB,0.76286E-02_JPRB,0.11457E-01_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.32595E-01_JPRB,0.28521E-01_JPRB,0.24445E-01_JPRB,0.20372E-01_JPRB,0.16297E-01_JPRB, &
+ & 0.12376E-01_JPRB,0.95137E-02_JPRB,0.75694E-02_JPRB,0.11318E-01_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.36129E-01_JPRB,0.31613E-01_JPRB,0.27097E-01_JPRB,0.22582E-01_JPRB,0.18065E-01_JPRB, &
+ & 0.14059E-01_JPRB,0.11253E-01_JPRB,0.91497E-02_JPRB,0.13513E-01_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.36091E-01_JPRB,0.31580E-01_JPRB,0.27068E-01_JPRB,0.22557E-01_JPRB,0.18046E-01_JPRB, &
+ & 0.13996E-01_JPRB,0.11159E-01_JPRB,0.90273E-02_JPRB,0.13314E-01_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.36050E-01_JPRB,0.31543E-01_JPRB,0.27038E-01_JPRB,0.22530E-01_JPRB,0.18025E-01_JPRB, &
+ & 0.13938E-01_JPRB,0.11057E-01_JPRB,0.89022E-02_JPRB,0.13117E-01_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.35994E-01_JPRB,0.31496E-01_JPRB,0.26994E-01_JPRB,0.22495E-01_JPRB,0.17996E-01_JPRB, &
+ & 0.13877E-01_JPRB,0.10953E-01_JPRB,0.87755E-02_JPRB,0.12914E-01_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.35944E-01_JPRB,0.31450E-01_JPRB,0.26957E-01_JPRB,0.22466E-01_JPRB,0.17973E-01_JPRB, &
+ & 0.13819E-01_JPRB,0.10863E-01_JPRB,0.86942E-02_JPRB,0.12744E-01_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.39506E-01_JPRB,0.34566E-01_JPRB,0.29627E-01_JPRB,0.24691E-01_JPRB,0.19819E-01_JPRB, &
+ & 0.15734E-01_JPRB,0.12852E-01_JPRB,0.10482E-01_JPRB,0.15100E-01_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.39438E-01_JPRB,0.34510E-01_JPRB,0.29581E-01_JPRB,0.24651E-01_JPRB,0.19767E-01_JPRB, &
+ & 0.15626E-01_JPRB,0.12723E-01_JPRB,0.10339E-01_JPRB,0.14869E-01_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.39363E-01_JPRB,0.34443E-01_JPRB,0.29524E-01_JPRB,0.24601E-01_JPRB,0.19714E-01_JPRB, &
+ & 0.15531E-01_JPRB,0.12593E-01_JPRB,0.10189E-01_JPRB,0.14636E-01_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.39295E-01_JPRB,0.34380E-01_JPRB,0.29468E-01_JPRB,0.24559E-01_JPRB,0.19663E-01_JPRB, &
+ & 0.15432E-01_JPRB,0.12453E-01_JPRB,0.10038E-01_JPRB,0.14402E-01_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.39232E-01_JPRB,0.34326E-01_JPRB,0.29423E-01_JPRB,0.24518E-01_JPRB,0.19622E-01_JPRB, &
+ & 0.15336E-01_JPRB,0.12308E-01_JPRB,0.98939E-02_JPRB,0.14172E-01_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.42642E-01_JPRB,0.37314E-01_JPRB,0.31983E-01_JPRB,0.26652E-01_JPRB,0.21609E-01_JPRB, &
+ & 0.17542E-01_JPRB,0.14584E-01_JPRB,0.11924E-01_JPRB,0.16714E-01_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.42588E-01_JPRB,0.37267E-01_JPRB,0.31942E-01_JPRB,0.26620E-01_JPRB,0.21537E-01_JPRB, &
+ & 0.17385E-01_JPRB,0.14405E-01_JPRB,0.11750E-01_JPRB,0.16453E-01_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.42519E-01_JPRB,0.37203E-01_JPRB,0.31888E-01_JPRB,0.26575E-01_JPRB,0.21450E-01_JPRB, &
+ & 0.17237E-01_JPRB,0.14233E-01_JPRB,0.11569E-01_JPRB,0.16190E-01_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.42450E-01_JPRB,0.37145E-01_JPRB,0.31837E-01_JPRB,0.26531E-01_JPRB,0.21364E-01_JPRB, &
+ & 0.17089E-01_JPRB,0.14051E-01_JPRB,0.11390E-01_JPRB,0.15924E-01_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.42372E-01_JPRB,0.37075E-01_JPRB,0.31780E-01_JPRB,0.26482E-01_JPRB,0.21293E-01_JPRB, &
+ & 0.16947E-01_JPRB,0.13866E-01_JPRB,0.11216E-01_JPRB,0.15662E-01_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.45438E-01_JPRB,0.39757E-01_JPRB,0.34077E-01_JPRB,0.28427E-01_JPRB,0.23418E-01_JPRB, &
+ & 0.19456E-01_JPRB,0.16427E-01_JPRB,0.13456E-01_JPRB,0.18359E-01_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.45420E-01_JPRB,0.39742E-01_JPRB,0.34065E-01_JPRB,0.28396E-01_JPRB,0.23308E-01_JPRB, &
+ & 0.19242E-01_JPRB,0.16196E-01_JPRB,0.13253E-01_JPRB,0.18076E-01_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.45404E-01_JPRB,0.39728E-01_JPRB,0.34054E-01_JPRB,0.28379E-01_JPRB,0.23190E-01_JPRB, &
+ & 0.19044E-01_JPRB,0.15968E-01_JPRB,0.13036E-01_JPRB,0.17789E-01_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.45355E-01_JPRB,0.39684E-01_JPRB,0.34015E-01_JPRB,0.28348E-01_JPRB,0.23074E-01_JPRB, &
+ & 0.18841E-01_JPRB,0.15735E-01_JPRB,0.12818E-01_JPRB,0.17487E-01_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.45268E-01_JPRB,0.39604E-01_JPRB,0.33951E-01_JPRB,0.28294E-01_JPRB,0.22964E-01_JPRB, &
+ & 0.18639E-01_JPRB,0.15495E-01_JPRB,0.12608E-01_JPRB,0.17187E-01_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.47828E-01_JPRB,0.41848E-01_JPRB,0.35870E-01_JPRB,0.30096E-01_JPRB,0.25238E-01_JPRB, &
+ & 0.21453E-01_JPRB,0.18348E-01_JPRB,0.15048E-01_JPRB,0.20030E-01_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.47883E-01_JPRB,0.41899E-01_JPRB,0.35911E-01_JPRB,0.30061E-01_JPRB,0.25102E-01_JPRB, &
+ & 0.21178E-01_JPRB,0.18071E-01_JPRB,0.14812E-01_JPRB,0.19720E-01_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.47917E-01_JPRB,0.41930E-01_JPRB,0.35941E-01_JPRB,0.30033E-01_JPRB,0.24934E-01_JPRB, &
+ & 0.20917E-01_JPRB,0.17786E-01_JPRB,0.14566E-01_JPRB,0.19396E-01_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.47914E-01_JPRB,0.41927E-01_JPRB,0.35936E-01_JPRB,0.29997E-01_JPRB,0.24771E-01_JPRB, &
+ & 0.20657E-01_JPRB,0.17491E-01_JPRB,0.14311E-01_JPRB,0.19056E-01_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.47853E-01_JPRB,0.41872E-01_JPRB,0.35889E-01_JPRB,0.29935E-01_JPRB,0.24616E-01_JPRB, &
+ & 0.20393E-01_JPRB,0.17196E-01_JPRB,0.14061E-01_JPRB,0.18721E-01_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.49786E-01_JPRB,0.43562E-01_JPRB,0.37346E-01_JPRB,0.31673E-01_JPRB,0.27058E-01_JPRB, &
+ & 0.23446E-01_JPRB,0.20298E-01_JPRB,0.16634E-01_JPRB,0.20401E-01_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.49957E-01_JPRB,0.43713E-01_JPRB,0.37470E-01_JPRB,0.31624E-01_JPRB,0.26879E-01_JPRB, &
+ & 0.23121E-01_JPRB,0.19962E-01_JPRB,0.16379E-01_JPRB,0.19980E-01_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.50073E-01_JPRB,0.43811E-01_JPRB,0.37553E-01_JPRB,0.31591E-01_JPRB,0.26668E-01_JPRB, &
+ & 0.22810E-01_JPRB,0.19616E-01_JPRB,0.16101E-01_JPRB,0.19150E-01_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.50104E-01_JPRB,0.43839E-01_JPRB,0.37576E-01_JPRB,0.31542E-01_JPRB,0.26451E-01_JPRB, &
+ & 0.22487E-01_JPRB,0.19263E-01_JPRB,0.15810E-01_JPRB,0.18309E-01_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.50083E-01_JPRB,0.43821E-01_JPRB,0.37560E-01_JPRB,0.31463E-01_JPRB,0.26247E-01_JPRB, &
+ & 0.22153E-01_JPRB,0.18906E-01_JPRB,0.15516E-01_JPRB,0.17790E-01_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.51449E-01_JPRB,0.45016E-01_JPRB,0.38642E-01_JPRB,0.33136E-01_JPRB,0.28759E-01_JPRB, &
+ & 0.25254E-01_JPRB,0.22053E-01_JPRB,0.18120E-01_JPRB,0.53897E-02_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.51718E-01_JPRB,0.45255E-01_JPRB,0.38815E-01_JPRB,0.33090E-01_JPRB,0.28517E-01_JPRB, &
+ & 0.24894E-01_JPRB,0.21659E-01_JPRB,0.17825E-01_JPRB,0.47196E-02_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.51885E-01_JPRB,0.45397E-01_JPRB,0.38919E-01_JPRB,0.33034E-01_JPRB,0.28248E-01_JPRB, &
+ & 0.24520E-01_JPRB,0.21252E-01_JPRB,0.17499E-01_JPRB,0.36639E-02_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.51965E-01_JPRB,0.45468E-01_JPRB,0.38969E-01_JPRB,0.32946E-01_JPRB,0.27987E-01_JPRB, &
+ & 0.24125E-01_JPRB,0.20834E-01_JPRB,0.17164E-01_JPRB,0.30436E-02_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.52007E-01_JPRB,0.45508E-01_JPRB,0.39008E-01_JPRB,0.32828E-01_JPRB,0.27732E-01_JPRB, &
+ & 0.23720E-01_JPRB,0.20415E-01_JPRB,0.16822E-01_JPRB,0.23024E-02_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.52772E-01_JPRB,0.46179E-01_JPRB,0.39786E-01_JPRB,0.34518E-01_JPRB,0.30341E-01_JPRB, &
+ & 0.26996E-01_JPRB,0.23719E-01_JPRB,0.19625E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.53131E-01_JPRB,0.46489E-01_JPRB,0.39976E-01_JPRB,0.34451E-01_JPRB,0.30050E-01_JPRB, &
+ & 0.26583E-01_JPRB,0.23271E-01_JPRB,0.19259E-01_JPRB,0.79250E-04_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.53372E-01_JPRB,0.46707E-01_JPRB,0.40090E-01_JPRB,0.34369E-01_JPRB,0.29734E-01_JPRB, &
+ & 0.26140E-01_JPRB,0.22802E-01_JPRB,0.18870E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.53549E-01_JPRB,0.46855E-01_JPRB,0.40175E-01_JPRB,0.34238E-01_JPRB,0.29424E-01_JPRB, &
+ & 0.25661E-01_JPRB,0.22318E-01_JPRB,0.18486E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.53641E-01_JPRB,0.46944E-01_JPRB,0.40238E-01_JPRB,0.34087E-01_JPRB,0.29108E-01_JPRB, &
+ & 0.25184E-01_JPRB,0.21836E-01_JPRB,0.18091E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.53794E-01_JPRB,0.47070E-01_JPRB,0.40802E-01_JPRB,0.35804E-01_JPRB,0.31808E-01_JPRB, &
+ & 0.28611E-01_JPRB,0.25317E-01_JPRB,0.21103E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.54248E-01_JPRB,0.47468E-01_JPRB,0.40994E-01_JPRB,0.35717E-01_JPRB,0.31468E-01_JPRB, &
+ & 0.28147E-01_JPRB,0.24800E-01_JPRB,0.20666E-01_JPRB,0.99549E-04_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.54616E-01_JPRB,0.47795E-01_JPRB,0.41127E-01_JPRB,0.35591E-01_JPRB,0.31112E-01_JPRB, &
+ & 0.27634E-01_JPRB,0.24251E-01_JPRB,0.20223E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.54881E-01_JPRB,0.48017E-01_JPRB,0.41234E-01_JPRB,0.35410E-01_JPRB,0.30749E-01_JPRB, &
+ & 0.27090E-01_JPRB,0.23692E-01_JPRB,0.19766E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.55030E-01_JPRB,0.48150E-01_JPRB,0.41295E-01_JPRB,0.35229E-01_JPRB,0.30369E-01_JPRB, &
+ & 0.26544E-01_JPRB,0.23150E-01_JPRB,0.19313E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.31412E-01_JPRB,0.27484E-01_JPRB,0.23556E-01_JPRB,0.19630E-01_JPRB,0.15703E-01_JPRB, &
+ & 0.11777E-01_JPRB,0.78503E-02_JPRB,0.63859E-02_JPRB,0.10546E-01_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.31306E-01_JPRB,0.27393E-01_JPRB,0.23480E-01_JPRB,0.19566E-01_JPRB,0.15652E-01_JPRB, &
+ & 0.11737E-01_JPRB,0.78244E-02_JPRB,0.64039E-02_JPRB,0.10543E-01_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.31189E-01_JPRB,0.27291E-01_JPRB,0.23390E-01_JPRB,0.19492E-01_JPRB,0.15594E-01_JPRB, &
+ & 0.11694E-01_JPRB,0.77949E-02_JPRB,0.65607E-02_JPRB,0.10621E-01_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.31060E-01_JPRB,0.27175E-01_JPRB,0.23293E-01_JPRB,0.19412E-01_JPRB,0.15526E-01_JPRB, &
+ & 0.11645E-01_JPRB,0.77621E-02_JPRB,0.64197E-02_JPRB,0.10470E-01_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.30934E-01_JPRB,0.27069E-01_JPRB,0.23201E-01_JPRB,0.19334E-01_JPRB,0.15466E-01_JPRB, &
+ & 0.11599E-01_JPRB,0.77309E-02_JPRB,0.64181E-02_JPRB,0.10407E-01_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.37345E-01_JPRB,0.32673E-01_JPRB,0.28007E-01_JPRB,0.23341E-01_JPRB,0.18670E-01_JPRB, &
+ & 0.14002E-01_JPRB,0.93330E-02_JPRB,0.76035E-02_JPRB,0.12759E-01_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.37160E-01_JPRB,0.32513E-01_JPRB,0.27871E-01_JPRB,0.23225E-01_JPRB,0.18579E-01_JPRB, &
+ & 0.13933E-01_JPRB,0.92868E-02_JPRB,0.75902E-02_JPRB,0.12702E-01_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.36977E-01_JPRB,0.32353E-01_JPRB,0.27732E-01_JPRB,0.23111E-01_JPRB,0.18487E-01_JPRB, &
+ & 0.13864E-01_JPRB,0.92415E-02_JPRB,0.77168E-02_JPRB,0.12729E-01_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.36807E-01_JPRB,0.32204E-01_JPRB,0.27602E-01_JPRB,0.23002E-01_JPRB,0.18402E-01_JPRB, &
+ & 0.13798E-01_JPRB,0.91981E-02_JPRB,0.77023E-02_JPRB,0.12641E-01_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.36620E-01_JPRB,0.32046E-01_JPRB,0.27465E-01_JPRB,0.22887E-01_JPRB,0.18309E-01_JPRB, &
+ & 0.13731E-01_JPRB,0.91527E-02_JPRB,0.75684E-02_JPRB,0.12457E-01_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.44232E-01_JPRB,0.38700E-01_JPRB,0.33173E-01_JPRB,0.27644E-01_JPRB,0.22114E-01_JPRB, &
+ & 0.16581E-01_JPRB,0.11054E-01_JPRB,0.91028E-02_JPRB,0.15510E-01_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.43957E-01_JPRB,0.38463E-01_JPRB,0.32969E-01_JPRB,0.27474E-01_JPRB,0.21977E-01_JPRB, &
+ & 0.16483E-01_JPRB,0.10987E-01_JPRB,0.90298E-02_JPRB,0.15354E-01_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.43680E-01_JPRB,0.38217E-01_JPRB,0.32756E-01_JPRB,0.27297E-01_JPRB,0.21838E-01_JPRB, &
+ & 0.16376E-01_JPRB,0.10918E-01_JPRB,0.89896E-02_JPRB,0.15195E-01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.43409E-01_JPRB,0.37982E-01_JPRB,0.32556E-01_JPRB,0.27128E-01_JPRB,0.21703E-01_JPRB, &
+ & 0.16277E-01_JPRB,0.10849E-01_JPRB,0.90630E-02_JPRB,0.15090E-01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.43148E-01_JPRB,0.37757E-01_JPRB,0.32362E-01_JPRB,0.26967E-01_JPRB,0.21574E-01_JPRB, &
+ & 0.16179E-01_JPRB,0.10784E-01_JPRB,0.89323E-02_JPRB,0.14861E-01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.52173E-01_JPRB,0.45650E-01_JPRB,0.39129E-01_JPRB,0.32609E-01_JPRB,0.26084E-01_JPRB, &
+ & 0.19564E-01_JPRB,0.13063E-01_JPRB,0.10928E-01_JPRB,0.18665E-01_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.51767E-01_JPRB,0.45298E-01_JPRB,0.38824E-01_JPRB,0.32358E-01_JPRB,0.25882E-01_JPRB, &
+ & 0.19411E-01_JPRB,0.12948E-01_JPRB,0.10795E-01_JPRB,0.18386E-01_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.51358E-01_JPRB,0.44935E-01_JPRB,0.38514E-01_JPRB,0.32093E-01_JPRB,0.25677E-01_JPRB, &
+ & 0.19255E-01_JPRB,0.12843E-01_JPRB,0.10694E-01_JPRB,0.18120E-01_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.50955E-01_JPRB,0.44587E-01_JPRB,0.38218E-01_JPRB,0.31847E-01_JPRB,0.25475E-01_JPRB, &
+ & 0.19107E-01_JPRB,0.12737E-01_JPRB,0.10607E-01_JPRB,0.17851E-01_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.50544E-01_JPRB,0.44227E-01_JPRB,0.37909E-01_JPRB,0.31588E-01_JPRB,0.25270E-01_JPRB, &
+ & 0.18952E-01_JPRB,0.12634E-01_JPRB,0.10599E-01_JPRB,0.17618E-01_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.61214E-01_JPRB,0.53565E-01_JPRB,0.45917E-01_JPRB,0.38262E-01_JPRB,0.30607E-01_JPRB, &
+ & 0.22954E-01_JPRB,0.15462E-01_JPRB,0.13125E-01_JPRB,0.22278E-01_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.60651E-01_JPRB,0.53068E-01_JPRB,0.45484E-01_JPRB,0.37903E-01_JPRB,0.30322E-01_JPRB, &
+ & 0.22741E-01_JPRB,0.15244E-01_JPRB,0.12927E-01_JPRB,0.21870E-01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.60040E-01_JPRB,0.52533E-01_JPRB,0.45028E-01_JPRB,0.37524E-01_JPRB,0.30019E-01_JPRB, &
+ & 0.22514E-01_JPRB,0.15074E-01_JPRB,0.12758E-01_JPRB,0.21465E-01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.59437E-01_JPRB,0.52006E-01_JPRB,0.44573E-01_JPRB,0.37145E-01_JPRB,0.29715E-01_JPRB, &
+ & 0.22286E-01_JPRB,0.14911E-01_JPRB,0.12602E-01_JPRB,0.21062E-01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.58809E-01_JPRB,0.51461E-01_JPRB,0.44106E-01_JPRB,0.36755E-01_JPRB,0.29405E-01_JPRB, &
+ & 0.22053E-01_JPRB,0.14746E-01_JPRB,0.12499E-01_JPRB,0.20685E-01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.71375E-01_JPRB,0.62451E-01_JPRB,0.53529E-01_JPRB,0.44607E-01_JPRB,0.35687E-01_JPRB, &
+ & 0.26759E-01_JPRB,0.18273E-01_JPRB,0.15758E-01_JPRB,0.26378E-01_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.70571E-01_JPRB,0.61748E-01_JPRB,0.52933E-01_JPRB,0.44107E-01_JPRB,0.35285E-01_JPRB, &
+ & 0.26462E-01_JPRB,0.17959E-01_JPRB,0.15470E-01_JPRB,0.25822E-01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.69734E-01_JPRB,0.61022E-01_JPRB,0.52301E-01_JPRB,0.43583E-01_JPRB,0.34867E-01_JPRB, &
+ & 0.26147E-01_JPRB,0.17660E-01_JPRB,0.15207E-01_JPRB,0.25265E-01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.68870E-01_JPRB,0.60256E-01_JPRB,0.51654E-01_JPRB,0.43043E-01_JPRB,0.34432E-01_JPRB, &
+ & 0.25826E-01_JPRB,0.17391E-01_JPRB,0.14968E-01_JPRB,0.24710E-01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.67988E-01_JPRB,0.59482E-01_JPRB,0.50988E-01_JPRB,0.42488E-01_JPRB,0.33987E-01_JPRB, &
+ & 0.25491E-01_JPRB,0.17159E-01_JPRB,0.14740E-01_JPRB,0.24148E-01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.82705E-01_JPRB,0.72369E-01_JPRB,0.62031E-01_JPRB,0.51694E-01_JPRB,0.41353E-01_JPRB, &
+ & 0.31012E-01_JPRB,0.21511E-01_JPRB,0.18843E-01_JPRB,0.31008E-01_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.81487E-01_JPRB,0.71304E-01_JPRB,0.61113E-01_JPRB,0.50924E-01_JPRB,0.40740E-01_JPRB, &
+ & 0.30554E-01_JPRB,0.21074E-01_JPRB,0.18457E-01_JPRB,0.30235E-01_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.80318E-01_JPRB,0.70281E-01_JPRB,0.60235E-01_JPRB,0.50200E-01_JPRB,0.40157E-01_JPRB, &
+ & 0.30117E-01_JPRB,0.20636E-01_JPRB,0.18102E-01_JPRB,0.29494E-01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.79154E-01_JPRB,0.69255E-01_JPRB,0.59365E-01_JPRB,0.49470E-01_JPRB,0.39576E-01_JPRB, &
+ & 0.29680E-01_JPRB,0.20228E-01_JPRB,0.17748E-01_JPRB,0.28759E-01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.77937E-01_JPRB,0.68190E-01_JPRB,0.58450E-01_JPRB,0.48707E-01_JPRB,0.38965E-01_JPRB, &
+ & 0.29223E-01_JPRB,0.19858E-01_JPRB,0.17406E-01_JPRB,0.28017E-01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.95173E-01_JPRB,0.83270E-01_JPRB,0.71377E-01_JPRB,0.59480E-01_JPRB,0.47582E-01_JPRB, &
+ & 0.35684E-01_JPRB,0.25169E-01_JPRB,0.22449E-01_JPRB,0.36274E-01_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.93409E-01_JPRB,0.81740E-01_JPRB,0.70058E-01_JPRB,0.58384E-01_JPRB,0.46709E-01_JPRB, &
+ & 0.35028E-01_JPRB,0.24581E-01_JPRB,0.21893E-01_JPRB,0.35207E-01_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.91737E-01_JPRB,0.80263E-01_JPRB,0.68796E-01_JPRB,0.57330E-01_JPRB,0.45863E-01_JPRB, &
+ & 0.34396E-01_JPRB,0.23987E-01_JPRB,0.21409E-01_JPRB,0.34174E-01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.90113E-01_JPRB,0.78852E-01_JPRB,0.67585E-01_JPRB,0.56324E-01_JPRB,0.45060E-01_JPRB, &
+ & 0.33794E-01_JPRB,0.23415E-01_JPRB,0.20940E-01_JPRB,0.33185E-01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.88500E-01_JPRB,0.77445E-01_JPRB,0.66378E-01_JPRB,0.55317E-01_JPRB,0.44252E-01_JPRB, &
+ & 0.33190E-01_JPRB,0.22890E-01_JPRB,0.20471E-01_JPRB,0.32236E-01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.10878E+00_JPRB,0.95186E-01_JPRB,0.81587E-01_JPRB,0.67986E-01_JPRB,0.54386E-01_JPRB, &
+ & 0.40792E-01_JPRB,0.29314E-01_JPRB,0.26669E-01_JPRB,0.42265E-01_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.10631E+00_JPRB,0.93021E-01_JPRB,0.79732E-01_JPRB,0.66444E-01_JPRB,0.53150E-01_JPRB, &
+ & 0.39864E-01_JPRB,0.28508E-01_JPRB,0.25873E-01_JPRB,0.40792E-01_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.10400E+00_JPRB,0.91002E-01_JPRB,0.78003E-01_JPRB,0.64997E-01_JPRB,0.51997E-01_JPRB, &
+ & 0.39001E-01_JPRB,0.27707E-01_JPRB,0.25186E-01_JPRB,0.39383E-01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.10173E+00_JPRB,0.89018E-01_JPRB,0.76292E-01_JPRB,0.63582E-01_JPRB,0.50863E-01_JPRB, &
+ & 0.38144E-01_JPRB,0.26926E-01_JPRB,0.24532E-01_JPRB,0.38084E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART12',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 9,16) = (/ &
+ & 0.99555E-01_JPRB,0.87113E-01_JPRB,0.74666E-01_JPRB,0.62221E-01_JPRB,0.49774E-01_JPRB, &
+ & 0.37334E-01_JPRB,0.26211E-01_JPRB,0.23902E-01_JPRB,0.36825E-01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.12320E+00_JPRB,0.10779E+00_JPRB,0.92400E-01_JPRB,0.76993E-01_JPRB,0.61601E-01_JPRB, &
+ & 0.46197E-01_JPRB,0.33879E-01_JPRB,0.31475E-01_JPRB,0.48792E-01_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.11986E+00_JPRB,0.10487E+00_JPRB,0.89890E-01_JPRB,0.74910E-01_JPRB,0.59927E-01_JPRB, &
+ & 0.44946E-01_JPRB,0.32786E-01_JPRB,0.30373E-01_JPRB,0.46838E-01_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.11671E+00_JPRB,0.10212E+00_JPRB,0.87531E-01_JPRB,0.72938E-01_JPRB,0.58350E-01_JPRB, &
+ & 0.43767E-01_JPRB,0.31728E-01_JPRB,0.29415E-01_JPRB,0.45011E-01_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.11373E+00_JPRB,0.99514E-01_JPRB,0.85291E-01_JPRB,0.71084E-01_JPRB,0.56859E-01_JPRB, &
+ & 0.42648E-01_JPRB,0.30712E-01_JPRB,0.28518E-01_JPRB,0.43306E-01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.11086E+00_JPRB,0.97005E-01_JPRB,0.83130E-01_JPRB,0.69287E-01_JPRB,0.55428E-01_JPRB, &
+ & 0.41573E-01_JPRB,0.29748E-01_JPRB,0.27669E-01_JPRB,0.41673E-01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.13635E+00_JPRB,0.11930E+00_JPRB,0.10226E+00_JPRB,0.85213E-01_JPRB,0.68170E-01_JPRB, &
+ & 0.51126E-01_JPRB,0.38257E-01_JPRB,0.36212E-01_JPRB,0.54706E-01_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.13203E+00_JPRB,0.11554E+00_JPRB,0.99030E-01_JPRB,0.82523E-01_JPRB,0.66019E-01_JPRB, &
+ & 0.49513E-01_JPRB,0.36799E-01_JPRB,0.34833E-01_JPRB,0.52312E-01_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.12805E+00_JPRB,0.11203E+00_JPRB,0.96022E-01_JPRB,0.80023E-01_JPRB,0.64019E-01_JPRB, &
+ & 0.48015E-01_JPRB,0.35435E-01_JPRB,0.33591E-01_JPRB,0.50057E-01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.12432E+00_JPRB,0.10877E+00_JPRB,0.93237E-01_JPRB,0.77695E-01_JPRB,0.62158E-01_JPRB, &
+ & 0.46618E-01_JPRB,0.34181E-01_JPRB,0.32427E-01_JPRB,0.47918E-01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.12077E+00_JPRB,0.10567E+00_JPRB,0.90572E-01_JPRB,0.75471E-01_JPRB,0.60381E-01_JPRB, &
+ & 0.45284E-01_JPRB,0.32973E-01_JPRB,0.31331E-01_JPRB,0.45895E-01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.14909E+00_JPRB,0.13045E+00_JPRB,0.11182E+00_JPRB,0.93176E-01_JPRB,0.74537E-01_JPRB, &
+ & 0.55927E-01_JPRB,0.42736E-01_JPRB,0.41194E-01_JPRB,0.43864E-01_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.14380E+00_JPRB,0.12582E+00_JPRB,0.10785E+00_JPRB,0.89883E-01_JPRB,0.71900E-01_JPRB, &
+ & 0.53925E-01_JPRB,0.40874E-01_JPRB,0.39509E-01_JPRB,0.34410E-01_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.13887E+00_JPRB,0.12152E+00_JPRB,0.10414E+00_JPRB,0.86796E-01_JPRB,0.69431E-01_JPRB, &
+ & 0.52073E-01_JPRB,0.39165E-01_JPRB,0.37950E-01_JPRB,0.27228E-01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.13436E+00_JPRB,0.11758E+00_JPRB,0.10078E+00_JPRB,0.83978E-01_JPRB,0.67186E-01_JPRB, &
+ & 0.50383E-01_JPRB,0.37599E-01_JPRB,0.36473E-01_JPRB,0.23165E-01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.13007E+00_JPRB,0.11382E+00_JPRB,0.97560E-01_JPRB,0.81293E-01_JPRB,0.65042E-01_JPRB, &
+ & 0.48775E-01_JPRB,0.36131E-01_JPRB,0.35083E-01_JPRB,0.14412E-01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.16113E+00_JPRB,0.14100E+00_JPRB,0.12085E+00_JPRB,0.10071E+00_JPRB,0.80563E-01_JPRB, &
+ & 0.60580E-01_JPRB,0.47246E-01_JPRB,0.46365E-01_JPRB,0.26456E-01_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.15486E+00_JPRB,0.13550E+00_JPRB,0.11616E+00_JPRB,0.96791E-01_JPRB,0.77431E-01_JPRB, &
+ & 0.58082E-01_JPRB,0.44915E-01_JPRB,0.44314E-01_JPRB,0.19340E-01_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.14906E+00_JPRB,0.13042E+00_JPRB,0.11179E+00_JPRB,0.93156E-01_JPRB,0.74526E-01_JPRB, &
+ & 0.55893E-01_JPRB,0.42831E-01_JPRB,0.42380E-01_JPRB,0.11993E-01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.14369E+00_JPRB,0.12574E+00_JPRB,0.10777E+00_JPRB,0.89817E-01_JPRB,0.71849E-01_JPRB, &
+ & 0.53884E-01_JPRB,0.40915E-01_JPRB,0.40556E-01_JPRB,0.50486E-02_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.13868E+00_JPRB,0.12134E+00_JPRB,0.10400E+00_JPRB,0.86669E-01_JPRB,0.69338E-01_JPRB, &
+ & 0.52006E-01_JPRB,0.39136E-01_JPRB,0.38851E-01_JPRB,0.00000E+00_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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.12158E-08_JPRB,0.13238E-08_JPRB,0.15146E-08_JPRB,0.16862E-08_JPRB,0.18609E-08_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.16931E-08_JPRB,0.20047E-08_JPRB,0.23006E-08_JPRB,0.25636E-08_JPRB,0.28912E-08_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.31521E-08_JPRB,0.36963E-08_JPRB,0.41550E-08_JPRB,0.46365E-08_JPRB,0.50834E-08_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.46152E-08_JPRB,0.50173E-08_JPRB,0.55381E-08_JPRB,0.60748E-08_JPRB,0.66355E-08_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.62662E-08_JPRB,0.67518E-08_JPRB,0.71765E-08_JPRB,0.80302E-08_JPRB,0.89056E-08_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.81764E-08_JPRB,0.91818E-08_JPRB,0.10385E-07_JPRB,0.11708E-07_JPRB,0.12536E-07_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.12946E-07_JPRB,0.13631E-07_JPRB,0.14453E-07_JPRB,0.15133E-07_JPRB,0.15911E-07_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.15868E-07_JPRB,0.16654E-07_JPRB,0.17281E-07_JPRB,0.17857E-07_JPRB,0.18383E-07_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.18151E-07_JPRB,0.19056E-07_JPRB,0.20057E-07_JPRB,0.20708E-07_JPRB,0.21229E-07_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.20234E-07_JPRB,0.21482E-07_JPRB,0.22599E-07_JPRB,0.23778E-07_JPRB,0.25115E-07_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.23827E-07_JPRB,0.25405E-07_JPRB,0.26545E-07_JPRB,0.27716E-07_JPRB,0.28422E-07_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.27638E-07_JPRB,0.28518E-07_JPRB,0.29101E-07_JPRB,0.29639E-07_JPRB,0.30077E-07_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.28942E-07_JPRB,0.29436E-07_JPRB,0.29831E-07_JPRB,0.30066E-07_JPRB,0.30242E-07_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.28774E-07_JPRB,0.29004E-07_JPRB,0.29272E-07_JPRB,0.29431E-07_JPRB,0.29616E-07_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.27317E-07_JPRB,0.27462E-07_JPRB,0.27698E-07_JPRB,0.27835E-07_JPRB,0.27843E-07_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.25463E-07_JPRB,0.25523E-07_JPRB,0.25678E-07_JPRB,0.25658E-07_JPRB,0.25687E-07_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.22603E-07_JPRB,0.22672E-07_JPRB,0.22704E-07_JPRB,0.22668E-07_JPRB,0.22698E-07_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.19657E-07_JPRB,0.19747E-07_JPRB,0.19687E-07_JPRB,0.19659E-07_JPRB,0.19680E-07_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.16553E-07_JPRB,0.16571E-07_JPRB,0.16522E-07_JPRB,0.16545E-07_JPRB,0.16563E-07_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.13867E-07_JPRB,0.13795E-07_JPRB,0.13808E-07_JPRB,0.13815E-07_JPRB,0.13799E-07_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.11414E-07_JPRB,0.11409E-07_JPRB,0.11395E-07_JPRB,0.11384E-07_JPRB,0.11416E-07_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.95639E-08_JPRB,0.95514E-08_JPRB,0.95251E-08_JPRB,0.95607E-08_JPRB,0.95767E-08_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.80018E-08_JPRB,0.79882E-08_JPRB,0.79720E-08_JPRB,0.79934E-08_JPRB,0.79942E-08_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.67279E-08_JPRB,0.67135E-08_JPRB,0.67089E-08_JPRB,0.67131E-08_JPRB,0.67290E-08_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.57292E-08_JPRB,0.57278E-08_JPRB,0.57247E-08_JPRB,0.57298E-08_JPRB,0.57269E-08_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.48406E-08_JPRB,0.48461E-08_JPRB,0.48394E-08_JPRB,0.48468E-08_JPRB,0.48401E-08_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.40368E-08_JPRB,0.40419E-08_JPRB,0.40353E-08_JPRB,0.40432E-08_JPRB,0.40267E-08_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.34875E-08_JPRB,0.34931E-08_JPRB,0.34872E-08_JPRB,0.34940E-08_JPRB,0.34782E-08_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.30195E-08_JPRB,0.30243E-08_JPRB,0.30129E-08_JPRB,0.30148E-08_JPRB,0.30016E-08_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.25993E-08_JPRB,0.25924E-08_JPRB,0.25861E-08_JPRB,0.25841E-08_JPRB,0.25734E-08_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.22290E-08_JPRB,0.22166E-08_JPRB,0.22080E-08_JPRB,0.22067E-08_JPRB,0.21992E-08_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.18916E-08_JPRB,0.18847E-08_JPRB,0.18733E-08_JPRB,0.18685E-08_JPRB,0.18685E-08_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.15840E-08_JPRB,0.15787E-08_JPRB,0.15719E-08_JPRB,0.15641E-08_JPRB,0.15644E-08_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.13197E-08_JPRB,0.13138E-08_JPRB,0.13098E-08_JPRB,0.13024E-08_JPRB,0.13049E-08_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.11052E-08_JPRB,0.11003E-08_JPRB,0.10954E-08_JPRB,0.10927E-08_JPRB,0.10941E-08_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.91115E-09_JPRB,0.90837E-09_JPRB,0.90520E-09_JPRB,0.90009E-09_JPRB,0.90047E-09_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.73101E-09_JPRB,0.73246E-09_JPRB,0.73006E-09_JPRB,0.72687E-09_JPRB,0.72508E-09_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.60565E-09_JPRB,0.60526E-09_JPRB,0.60121E-09_JPRB,0.60117E-09_JPRB,0.60056E-09_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.50736E-09_JPRB,0.50750E-09_JPRB,0.50421E-09_JPRB,0.50378E-09_JPRB,0.50259E-09_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.41843E-09_JPRB,0.41856E-09_JPRB,0.41499E-09_JPRB,0.41535E-09_JPRB,0.41353E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.33766E-09_JPRB,0.33794E-09_JPRB,0.33511E-09_JPRB,0.33405E-09_JPRB,0.33405E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.29473E-09_JPRB,0.29448E-09_JPRB,0.29284E-09_JPRB,0.29146E-09_JPRB,0.29053E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.26948E-09_JPRB,0.27034E-09_JPRB,0.27016E-09_JPRB,0.26799E-09_JPRB,0.26580E-09_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.24773E-09_JPRB,0.24784E-09_JPRB,0.24734E-09_JPRB,0.24436E-09_JPRB,0.24377E-09_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.22707E-09_JPRB,0.22765E-09_JPRB,0.22683E-09_JPRB,0.22503E-09_JPRB,0.22447E-09_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.21180E-09_JPRB,0.21264E-09_JPRB,0.21254E-09_JPRB,0.21338E-09_JPRB,0.21089E-09_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.22898E-09_JPRB,0.23089E-09_JPRB,0.23471E-09_JPRB,0.23606E-09_JPRB,0.23388E-09_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.18001E-08_JPRB,0.19945E-08_JPRB,0.21612E-08_JPRB,0.23316E-08_JPRB,0.25983E-08_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.39853E-08_JPRB,0.42632E-08_JPRB,0.44602E-08_JPRB,0.46784E-08_JPRB,0.48071E-08_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.60848E-08_JPRB,0.61494E-08_JPRB,0.61069E-08_JPRB,0.61295E-08_JPRB,0.65707E-08_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.75494E-08_JPRB,0.85999E-08_JPRB,0.91057E-08_JPRB,0.10175E-07_JPRB,0.10943E-07_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.12037E-07_JPRB,0.12753E-07_JPRB,0.13314E-07_JPRB,0.13239E-07_JPRB,0.13306E-07_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.15519E-07_JPRB,0.15517E-07_JPRB,0.15097E-07_JPRB,0.14435E-07_JPRB,0.13983E-07_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.16420E-07_JPRB,0.17025E-07_JPRB,0.17639E-07_JPRB,0.17633E-07_JPRB,0.17513E-07_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.18021E-07_JPRB,0.19301E-07_JPRB,0.20621E-07_JPRB,0.22238E-07_JPRB,0.23351E-07_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.22378E-07_JPRB,0.23582E-07_JPRB,0.24409E-07_JPRB,0.24915E-07_JPRB,0.25516E-07_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.24712E-07_JPRB,0.24864E-07_JPRB,0.24556E-07_JPRB,0.23953E-07_JPRB,0.23424E-07_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.22545E-07_JPRB,0.22002E-07_JPRB,0.21325E-07_JPRB,0.20492E-07_JPRB,0.20022E-07_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.18798E-07_JPRB,0.18566E-07_JPRB,0.18366E-07_JPRB,0.18099E-07_JPRB,0.17971E-07_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.16773E-07_JPRB,0.16803E-07_JPRB,0.16541E-07_JPRB,0.16450E-07_JPRB,0.16482E-07_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.15222E-07_JPRB,0.15398E-07_JPRB,0.15177E-07_JPRB,0.15147E-07_JPRB,0.14951E-07_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.13792E-07_JPRB,0.13944E-07_JPRB,0.13534E-07_JPRB,0.13546E-07_JPRB,0.13516E-07_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.12157E-07_JPRB,0.12221E-07_JPRB,0.11930E-07_JPRB,0.12115E-07_JPRB,0.12027E-07_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.10487E-07_JPRB,0.10393E-07_JPRB,0.10366E-07_JPRB,0.10455E-07_JPRB,0.10269E-07_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.90084E-08_JPRB,0.88590E-08_JPRB,0.90055E-08_JPRB,0.88655E-08_JPRB,0.87392E-08_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.74765E-08_JPRB,0.74889E-08_JPRB,0.73915E-08_JPRB,0.73289E-08_JPRB,0.72219E-08_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.62311E-08_JPRB,0.62461E-08_JPRB,0.61378E-08_JPRB,0.59795E-08_JPRB,0.60309E-08_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.51421E-08_JPRB,0.50519E-08_JPRB,0.50031E-08_JPRB,0.49630E-08_JPRB,0.49489E-08_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.42880E-08_JPRB,0.42042E-08_JPRB,0.41366E-08_JPRB,0.41198E-08_JPRB,0.41265E-08_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.35718E-08_JPRB,0.34728E-08_JPRB,0.34599E-08_JPRB,0.34385E-08_JPRB,0.34695E-08_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.29713E-08_JPRB,0.29023E-08_JPRB,0.28707E-08_JPRB,0.28790E-08_JPRB,0.28873E-08_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.25246E-08_JPRB,0.24463E-08_JPRB,0.24323E-08_JPRB,0.24308E-08_JPRB,0.24753E-08_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.21159E-08_JPRB,0.20527E-08_JPRB,0.20532E-08_JPRB,0.20325E-08_JPRB,0.20615E-08_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.17631E-08_JPRB,0.17097E-08_JPRB,0.17043E-08_JPRB,0.16987E-08_JPRB,0.17298E-08_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.15260E-08_JPRB,0.14757E-08_JPRB,0.14566E-08_JPRB,0.14513E-08_JPRB,0.14651E-08_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.13009E-08_JPRB,0.12457E-08_JPRB,0.12523E-08_JPRB,0.12490E-08_JPRB,0.12671E-08_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.10990E-08_JPRB,0.10789E-08_JPRB,0.10741E-08_JPRB,0.10762E-08_JPRB,0.10873E-08_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.94313E-09_JPRB,0.92236E-09_JPRB,0.92369E-09_JPRB,0.91495E-09_JPRB,0.92405E-09_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.80746E-09_JPRB,0.78453E-09_JPRB,0.77646E-09_JPRB,0.77477E-09_JPRB,0.77888E-09_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.67944E-09_JPRB,0.66381E-09_JPRB,0.65747E-09_JPRB,0.65286E-09_JPRB,0.65668E-09_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.56677E-09_JPRB,0.55682E-09_JPRB,0.54825E-09_JPRB,0.54623E-09_JPRB,0.54843E-09_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.47375E-09_JPRB,0.47120E-09_JPRB,0.45836E-09_JPRB,0.45709E-09_JPRB,0.45689E-09_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.39797E-09_JPRB,0.39204E-09_JPRB,0.37735E-09_JPRB,0.37505E-09_JPRB,0.37687E-09_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.32772E-09_JPRB,0.31857E-09_JPRB,0.30808E-09_JPRB,0.30232E-09_JPRB,0.30140E-09_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.27300E-09_JPRB,0.26581E-09_JPRB,0.26125E-09_JPRB,0.24922E-09_JPRB,0.25029E-09_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.23073E-09_JPRB,0.22159E-09_JPRB,0.21979E-09_JPRB,0.20969E-09_JPRB,0.21117E-09_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.18868E-09_JPRB,0.18466E-09_JPRB,0.18517E-09_JPRB,0.17470E-09_JPRB,0.17469E-09_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.15290E-09_JPRB,0.14970E-09_JPRB,0.15032E-09_JPRB,0.14201E-09_JPRB,0.14053E-09_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.13616E-09_JPRB,0.13340E-09_JPRB,0.13256E-09_JPRB,0.12713E-09_JPRB,0.12621E-09_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.12605E-09_JPRB,0.12524E-09_JPRB,0.12106E-09_JPRB,0.11994E-09_JPRB,0.11735E-09_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.11625E-09_JPRB,0.11350E-09_JPRB,0.11287E-09_JPRB,0.11534E-09_JPRB,0.10942E-09_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.10168E-09_JPRB,0.10628E-09_JPRB,0.10684E-09_JPRB,0.10799E-09_JPRB,0.10313E-09_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.92659E-10_JPRB,0.10050E-09_JPRB,0.10168E-09_JPRB,0.97877E-10_JPRB,0.97971E-10_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.10198E-09_JPRB,0.11632E-09_JPRB,0.11127E-09_JPRB,0.10947E-09_JPRB,0.11000E-09_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.33788E-08_JPRB,0.38685E-08_JPRB,0.40059E-08_JPRB,0.41301E-08_JPRB,0.43316E-08_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.54022E-08_JPRB,0.55644E-08_JPRB,0.55814E-08_JPRB,0.55195E-08_JPRB,0.57708E-08_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.95769E-08_JPRB,0.10205E-07_JPRB,0.12445E-07_JPRB,0.13419E-07_JPRB,0.13357E-07_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.17233E-07_JPRB,0.16177E-07_JPRB,0.16092E-07_JPRB,0.15590E-07_JPRB,0.15068E-07_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.19731E-07_JPRB,0.19947E-07_JPRB,0.20278E-07_JPRB,0.20235E-07_JPRB,0.20699E-07_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.23168E-07_JPRB,0.23970E-07_JPRB,0.25507E-07_JPRB,0.27034E-07_JPRB,0.29135E-07_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.33749E-07_JPRB,0.35374E-07_JPRB,0.37333E-07_JPRB,0.38730E-07_JPRB,0.39816E-07_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.39844E-07_JPRB,0.39698E-07_JPRB,0.39651E-07_JPRB,0.38618E-07_JPRB,0.37699E-07_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.37013E-07_JPRB,0.35923E-07_JPRB,0.35560E-07_JPRB,0.35217E-07_JPRB,0.34594E-07_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.32381E-07_JPRB,0.31844E-07_JPRB,0.32272E-07_JPRB,0.32430E-07_JPRB,0.31922E-07_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.29924E-07_JPRB,0.29834E-07_JPRB,0.30537E-07_JPRB,0.30494E-07_JPRB,0.30313E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,24, 3) = (/ &
+ & 0.27849E-07_JPRB,0.28147E-07_JPRB,0.29005E-07_JPRB,0.29081E-07_JPRB,0.28673E-07_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.25534E-07_JPRB,0.25854E-07_JPRB,0.26978E-07_JPRB,0.27173E-07_JPRB,0.27116E-07_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.23413E-07_JPRB,0.24124E-07_JPRB,0.25341E-07_JPRB,0.25322E-07_JPRB,0.25266E-07_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.21218E-07_JPRB,0.22105E-07_JPRB,0.23470E-07_JPRB,0.23280E-07_JPRB,0.23250E-07_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.19002E-07_JPRB,0.20309E-07_JPRB,0.21106E-07_JPRB,0.20908E-07_JPRB,0.21199E-07_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.16901E-07_JPRB,0.18244E-07_JPRB,0.18426E-07_JPRB,0.18398E-07_JPRB,0.18708E-07_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.15065E-07_JPRB,0.15814E-07_JPRB,0.15711E-07_JPRB,0.16012E-07_JPRB,0.16145E-07_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.13100E-07_JPRB,0.13194E-07_JPRB,0.13385E-07_JPRB,0.13455E-07_JPRB,0.13435E-07_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.10972E-07_JPRB,0.10986E-07_JPRB,0.11085E-07_JPRB,0.11182E-07_JPRB,0.11030E-07_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.90750E-08_JPRB,0.90832E-08_JPRB,0.91769E-08_JPRB,0.89877E-08_JPRB,0.89513E-08_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.75008E-08_JPRB,0.76569E-08_JPRB,0.76237E-08_JPRB,0.74547E-08_JPRB,0.74719E-08_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.63063E-08_JPRB,0.64050E-08_JPRB,0.62067E-08_JPRB,0.61836E-08_JPRB,0.61775E-08_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.53250E-08_JPRB,0.52712E-08_JPRB,0.52454E-08_JPRB,0.51153E-08_JPRB,0.51657E-08_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.45450E-08_JPRB,0.45358E-08_JPRB,0.44274E-08_JPRB,0.43893E-08_JPRB,0.43616E-08_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.38039E-08_JPRB,0.38254E-08_JPRB,0.37172E-08_JPRB,0.37203E-08_JPRB,0.37278E-08_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.31821E-08_JPRB,0.31632E-08_JPRB,0.30774E-08_JPRB,0.30626E-08_JPRB,0.30979E-08_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.27339E-08_JPRB,0.27443E-08_JPRB,0.26754E-08_JPRB,0.26505E-08_JPRB,0.27022E-08_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.23939E-08_JPRB,0.24228E-08_JPRB,0.23415E-08_JPRB,0.23287E-08_JPRB,0.23327E-08_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.20895E-08_JPRB,0.20874E-08_JPRB,0.20298E-08_JPRB,0.20180E-08_JPRB,0.19876E-08_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.17869E-08_JPRB,0.17800E-08_JPRB,0.17392E-08_JPRB,0.17376E-08_JPRB,0.16927E-08_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.15169E-08_JPRB,0.15335E-08_JPRB,0.14778E-08_JPRB,0.14668E-08_JPRB,0.14407E-08_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.12692E-08_JPRB,0.12902E-08_JPRB,0.12439E-08_JPRB,0.12324E-08_JPRB,0.11996E-08_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.10611E-08_JPRB,0.10656E-08_JPRB,0.10472E-08_JPRB,0.10282E-08_JPRB,0.10015E-08_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.90394E-09_JPRB,0.88143E-09_JPRB,0.87958E-09_JPRB,0.84984E-09_JPRB,0.85121E-09_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.73451E-09_JPRB,0.71978E-09_JPRB,0.73014E-09_JPRB,0.70436E-09_JPRB,0.69840E-09_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.58678E-09_JPRB,0.58259E-09_JPRB,0.58316E-09_JPRB,0.55960E-09_JPRB,0.56079E-09_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.48502E-09_JPRB,0.47984E-09_JPRB,0.48693E-09_JPRB,0.47265E-09_JPRB,0.46016E-09_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.40704E-09_JPRB,0.40367E-09_JPRB,0.41046E-09_JPRB,0.39764E-09_JPRB,0.38714E-09_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.33771E-09_JPRB,0.33070E-09_JPRB,0.32984E-09_JPRB,0.33231E-09_JPRB,0.32299E-09_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.27062E-09_JPRB,0.27028E-09_JPRB,0.26516E-09_JPRB,0.26816E-09_JPRB,0.25661E-09_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.23501E-09_JPRB,0.23579E-09_JPRB,0.23460E-09_JPRB,0.23532E-09_JPRB,0.22777E-09_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.20561E-09_JPRB,0.21843E-09_JPRB,0.22171E-09_JPRB,0.22358E-09_JPRB,0.21702E-09_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.18557E-09_JPRB,0.20864E-09_JPRB,0.21196E-09_JPRB,0.20646E-09_JPRB,0.20759E-09_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.17099E-09_JPRB,0.19489E-09_JPRB,0.19486E-09_JPRB,0.19102E-09_JPRB,0.19124E-09_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.16535E-09_JPRB,0.16955E-09_JPRB,0.18769E-09_JPRB,0.18586E-09_JPRB,0.18358E-09_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.18472E-09_JPRB,0.17614E-09_JPRB,0.20835E-09_JPRB,0.19900E-09_JPRB,0.17587E-09_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.14276E-07_JPRB,0.14530E-07_JPRB,0.14762E-07_JPRB,0.14823E-07_JPRB,0.15070E-07_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.22710E-07_JPRB,0.23419E-07_JPRB,0.26577E-07_JPRB,0.28008E-07_JPRB,0.28298E-07_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.40218E-07_JPRB,0.40306E-07_JPRB,0.38786E-07_JPRB,0.38421E-07_JPRB,0.37982E-07_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.46010E-07_JPRB,0.46709E-07_JPRB,0.48658E-07_JPRB,0.49166E-07_JPRB,0.49018E-07_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.57896E-07_JPRB,0.59606E-07_JPRB,0.62582E-07_JPRB,0.65981E-07_JPRB,0.66467E-07_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.74731E-07_JPRB,0.75116E-07_JPRB,0.75181E-07_JPRB,0.74922E-07_JPRB,0.73535E-07_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.76222E-07_JPRB,0.73788E-07_JPRB,0.71345E-07_JPRB,0.70864E-07_JPRB,0.69839E-07_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.69638E-07_JPRB,0.67680E-07_JPRB,0.66694E-07_JPRB,0.67021E-07_JPRB,0.67066E-07_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.65779E-07_JPRB,0.64200E-07_JPRB,0.63508E-07_JPRB,0.64106E-07_JPRB,0.64461E-07_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.61488E-07_JPRB,0.60248E-07_JPRB,0.59719E-07_JPRB,0.60704E-07_JPRB,0.61392E-07_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.56738E-07_JPRB,0.55143E-07_JPRB,0.55071E-07_JPRB,0.56796E-07_JPRB,0.58031E-07_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.53299E-07_JPRB,0.52091E-07_JPRB,0.52308E-07_JPRB,0.54157E-07_JPRB,0.55094E-07_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.49763E-07_JPRB,0.48954E-07_JPRB,0.49068E-07_JPRB,0.51533E-07_JPRB,0.52367E-07_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.46006E-07_JPRB,0.45410E-07_JPRB,0.45860E-07_JPRB,0.48840E-07_JPRB,0.49788E-07_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.42208E-07_JPRB,0.41876E-07_JPRB,0.43006E-07_JPRB,0.46350E-07_JPRB,0.47032E-07_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.38508E-07_JPRB,0.38430E-07_JPRB,0.40481E-07_JPRB,0.43465E-07_JPRB,0.43170E-07_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.33913E-07_JPRB,0.34466E-07_JPRB,0.37202E-07_JPRB,0.38288E-07_JPRB,0.38327E-07_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.29454E-07_JPRB,0.30842E-07_JPRB,0.33204E-07_JPRB,0.33354E-07_JPRB,0.33727E-07_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.25253E-07_JPRB,0.27183E-07_JPRB,0.28228E-07_JPRB,0.27946E-07_JPRB,0.28495E-07_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.21784E-07_JPRB,0.23351E-07_JPRB,0.23372E-07_JPRB,0.23449E-07_JPRB,0.23246E-07_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.18910E-07_JPRB,0.19134E-07_JPRB,0.18984E-07_JPRB,0.19294E-07_JPRB,0.18955E-07_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.15933E-07_JPRB,0.15755E-07_JPRB,0.16059E-07_JPRB,0.15913E-07_JPRB,0.15386E-07_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.13356E-07_JPRB,0.13247E-07_JPRB,0.13429E-07_JPRB,0.13202E-07_JPRB,0.12675E-07_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.11207E-07_JPRB,0.11196E-07_JPRB,0.11048E-07_JPRB,0.10870E-07_JPRB,0.10431E-07_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.95811E-08_JPRB,0.94647E-08_JPRB,0.93875E-08_JPRB,0.90968E-08_JPRB,0.88553E-08_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.81243E-08_JPRB,0.80255E-08_JPRB,0.78559E-08_JPRB,0.75538E-08_JPRB,0.74057E-08_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.66871E-08_JPRB,0.66553E-08_JPRB,0.65003E-08_JPRB,0.62809E-08_JPRB,0.60862E-08_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.58254E-08_JPRB,0.57657E-08_JPRB,0.56185E-08_JPRB,0.54242E-08_JPRB,0.52135E-08_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.50967E-08_JPRB,0.50027E-08_JPRB,0.48304E-08_JPRB,0.46813E-08_JPRB,0.44864E-08_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.43731E-08_JPRB,0.43157E-08_JPRB,0.41432E-08_JPRB,0.39968E-08_JPRB,0.38854E-08_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.37430E-08_JPRB,0.37088E-08_JPRB,0.35491E-08_JPRB,0.34012E-08_JPRB,0.33022E-08_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.32207E-08_JPRB,0.31034E-08_JPRB,0.30690E-08_JPRB,0.29015E-08_JPRB,0.27644E-08_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.27111E-08_JPRB,0.25582E-08_JPRB,0.26092E-08_JPRB,0.24352E-08_JPRB,0.23234E-08_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.22675E-08_JPRB,0.21455E-08_JPRB,0.21930E-08_JPRB,0.20490E-08_JPRB,0.19277E-08_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.18722E-08_JPRB,0.18163E-08_JPRB,0.18222E-08_JPRB,0.17256E-08_JPRB,0.16025E-08_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.15670E-08_JPRB,0.15133E-08_JPRB,0.14751E-08_JPRB,0.14433E-08_JPRB,0.13269E-08_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.12576E-08_JPRB,0.12106E-08_JPRB,0.11779E-08_JPRB,0.11664E-08_JPRB,0.10722E-08_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.10308E-08_JPRB,0.10019E-08_JPRB,0.98151E-09_JPRB,0.96758E-09_JPRB,0.89739E-09_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.84050E-09_JPRB,0.85047E-09_JPRB,0.83131E-09_JPRB,0.81346E-09_JPRB,0.77303E-09_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.67669E-09_JPRB,0.70190E-09_JPRB,0.68695E-09_JPRB,0.66858E-09_JPRB,0.63719E-09_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.52755E-09_JPRB,0.56097E-09_JPRB,0.54716E-09_JPRB,0.53877E-09_JPRB,0.51047E-09_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.44864E-09_JPRB,0.48984E-09_JPRB,0.48831E-09_JPRB,0.46728E-09_JPRB,0.45462E-09_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.40938E-09_JPRB,0.45501E-09_JPRB,0.45212E-09_JPRB,0.43586E-09_JPRB,0.42245E-09_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.38293E-09_JPRB,0.40217E-09_JPRB,0.41760E-09_JPRB,0.39645E-09_JPRB,0.38652E-09_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.35808E-09_JPRB,0.34306E-09_JPRB,0.38440E-09_JPRB,0.37442E-09_JPRB,0.33472E-09_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.33278E-09_JPRB,0.31839E-09_JPRB,0.35327E-09_JPRB,0.33061E-09_JPRB,0.29093E-09_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.32589E-09_JPRB,0.30766E-09_JPRB,0.30185E-09_JPRB,0.35182E-09_JPRB,0.34474E-09_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.19090E-07_JPRB,0.19323E-07_JPRB,0.21491E-07_JPRB,0.23162E-07_JPRB,0.23970E-07_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.37888E-07_JPRB,0.37108E-07_JPRB,0.33727E-07_JPRB,0.34146E-07_JPRB,0.33930E-07_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.46395E-07_JPRB,0.47265E-07_JPRB,0.48201E-07_JPRB,0.50512E-07_JPRB,0.51101E-07_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.60743E-07_JPRB,0.64371E-07_JPRB,0.67862E-07_JPRB,0.71479E-07_JPRB,0.74200E-07_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.79052E-07_JPRB,0.79011E-07_JPRB,0.77558E-07_JPRB,0.75900E-07_JPRB,0.76450E-07_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.75325E-07_JPRB,0.74009E-07_JPRB,0.72866E-07_JPRB,0.72803E-07_JPRB,0.73869E-07_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.74009E-07_JPRB,0.74054E-07_JPRB,0.73970E-07_JPRB,0.73800E-07_JPRB,0.75638E-07_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.73077E-07_JPRB,0.73306E-07_JPRB,0.72248E-07_JPRB,0.73120E-07_JPRB,0.74630E-07_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.68928E-07_JPRB,0.70100E-07_JPRB,0.69203E-07_JPRB,0.69478E-07_JPRB,0.71860E-07_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.65324E-07_JPRB,0.66570E-07_JPRB,0.66457E-07_JPRB,0.66345E-07_JPRB,0.68314E-07_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.62411E-07_JPRB,0.63996E-07_JPRB,0.63443E-07_JPRB,0.63576E-07_JPRB,0.65766E-07_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.60058E-07_JPRB,0.60956E-07_JPRB,0.60176E-07_JPRB,0.60222E-07_JPRB,0.63287E-07_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.57223E-07_JPRB,0.58225E-07_JPRB,0.58348E-07_JPRB,0.58584E-07_JPRB,0.61933E-07_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.55089E-07_JPRB,0.55723E-07_JPRB,0.55839E-07_JPRB,0.56337E-07_JPRB,0.60335E-07_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.52294E-07_JPRB,0.51745E-07_JPRB,0.52750E-07_JPRB,0.52701E-07_JPRB,0.57676E-07_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.48915E-07_JPRB,0.48234E-07_JPRB,0.48708E-07_JPRB,0.49873E-07_JPRB,0.54442E-07_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.43357E-07_JPRB,0.43230E-07_JPRB,0.43679E-07_JPRB,0.47285E-07_JPRB,0.49519E-07_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.37379E-07_JPRB,0.38427E-07_JPRB,0.39703E-07_JPRB,0.43492E-07_JPRB,0.43278E-07_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.31354E-07_JPRB,0.32238E-07_JPRB,0.35376E-07_JPRB,0.37358E-07_JPRB,0.37130E-07_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.26553E-07_JPRB,0.27801E-07_JPRB,0.30978E-07_JPRB,0.30698E-07_JPRB,0.31234E-07_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.21542E-07_JPRB,0.24274E-07_JPRB,0.24944E-07_JPRB,0.25194E-07_JPRB,0.25415E-07_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.19097E-07_JPRB,0.20582E-07_JPRB,0.20324E-07_JPRB,0.21006E-07_JPRB,0.20944E-07_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.16377E-07_JPRB,0.16881E-07_JPRB,0.16957E-07_JPRB,0.16743E-07_JPRB,0.16958E-07_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.13727E-07_JPRB,0.13834E-07_JPRB,0.13766E-07_JPRB,0.13776E-07_JPRB,0.13546E-07_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.11550E-07_JPRB,0.11601E-07_JPRB,0.11757E-07_JPRB,0.11723E-07_JPRB,0.11413E-07_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.98076E-08_JPRB,0.96320E-08_JPRB,0.10028E-07_JPRB,0.98197E-08_JPRB,0.91408E-08_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.80861E-08_JPRB,0.80113E-08_JPRB,0.81586E-08_JPRB,0.80121E-08_JPRB,0.75021E-08_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.70348E-08_JPRB,0.69980E-08_JPRB,0.71058E-08_JPRB,0.69171E-08_JPRB,0.64103E-08_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.61395E-08_JPRB,0.60379E-08_JPRB,0.61651E-08_JPRB,0.59006E-08_JPRB,0.54433E-08_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.51740E-08_JPRB,0.51391E-08_JPRB,0.53717E-08_JPRB,0.50506E-08_JPRB,0.46901E-08_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.44374E-08_JPRB,0.44002E-08_JPRB,0.45405E-08_JPRB,0.42888E-08_JPRB,0.39390E-08_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.36635E-08_JPRB,0.37555E-08_JPRB,0.37320E-08_JPRB,0.35598E-08_JPRB,0.33280E-08_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.30833E-08_JPRB,0.31320E-08_JPRB,0.30264E-08_JPRB,0.29827E-08_JPRB,0.28298E-08_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.25366E-08_JPRB,0.26077E-08_JPRB,0.24905E-08_JPRB,0.24281E-08_JPRB,0.22727E-08_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.20576E-08_JPRB,0.22029E-08_JPRB,0.20905E-08_JPRB,0.21040E-08_JPRB,0.19027E-08_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.16047E-08_JPRB,0.18190E-08_JPRB,0.17008E-08_JPRB,0.17298E-08_JPRB,0.16059E-08_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.12276E-08_JPRB,0.14135E-08_JPRB,0.13565E-08_JPRB,0.13704E-08_JPRB,0.13029E-08_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.98291E-09_JPRB,0.11837E-08_JPRB,0.11000E-08_JPRB,0.11342E-08_JPRB,0.10621E-08_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.79374E-09_JPRB,0.97756E-09_JPRB,0.90252E-09_JPRB,0.90527E-09_JPRB,0.86815E-09_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.64781E-09_JPRB,0.78454E-09_JPRB,0.75690E-09_JPRB,0.74124E-09_JPRB,0.73195E-09_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.51536E-09_JPRB,0.61158E-09_JPRB,0.60936E-09_JPRB,0.59007E-09_JPRB,0.58458E-09_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.46178E-09_JPRB,0.51944E-09_JPRB,0.52167E-09_JPRB,0.53965E-09_JPRB,0.50524E-09_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.44467E-09_JPRB,0.42857E-09_JPRB,0.50799E-09_JPRB,0.47528E-09_JPRB,0.43900E-09_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.39667E-09_JPRB,0.37862E-09_JPRB,0.45808E-09_JPRB,0.43270E-09_JPRB,0.38817E-09_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.35926E-09_JPRB,0.35410E-09_JPRB,0.38962E-09_JPRB,0.37502E-09_JPRB,0.40935E-09_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.31517E-09_JPRB,0.32964E-09_JPRB,0.29323E-09_JPRB,0.39945E-09_JPRB,0.40389E-09_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.36198E-09_JPRB,0.38633E-09_JPRB,0.41096E-09_JPRB,0.53914E-09_JPRB,0.57631E-09_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.23095E-07_JPRB,0.23025E-07_JPRB,0.25126E-07_JPRB,0.25618E-07_JPRB,0.24969E-07_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.31573E-07_JPRB,0.32360E-07_JPRB,0.33220E-07_JPRB,0.32611E-07_JPRB,0.32150E-07_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.45219E-07_JPRB,0.45787E-07_JPRB,0.47088E-07_JPRB,0.49543E-07_JPRB,0.54072E-07_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.65293E-07_JPRB,0.67448E-07_JPRB,0.64557E-07_JPRB,0.63976E-07_JPRB,0.64905E-07_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.64862E-07_JPRB,0.63259E-07_JPRB,0.62851E-07_JPRB,0.62500E-07_JPRB,0.63112E-07_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.61849E-07_JPRB,0.62108E-07_JPRB,0.60565E-07_JPRB,0.60920E-07_JPRB,0.61810E-07_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.63930E-07_JPRB,0.63195E-07_JPRB,0.62478E-07_JPRB,0.62282E-07_JPRB,0.62250E-07_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.60100E-07_JPRB,0.60269E-07_JPRB,0.59919E-07_JPRB,0.57578E-07_JPRB,0.57933E-07_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.56465E-07_JPRB,0.56674E-07_JPRB,0.56992E-07_JPRB,0.55969E-07_JPRB,0.54719E-07_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.54280E-07_JPRB,0.53760E-07_JPRB,0.52615E-07_JPRB,0.52261E-07_JPRB,0.51523E-07_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.49921E-07_JPRB,0.49472E-07_JPRB,0.49168E-07_JPRB,0.47959E-07_JPRB,0.47449E-07_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.45803E-07_JPRB,0.46271E-07_JPRB,0.46322E-07_JPRB,0.46536E-07_JPRB,0.46494E-07_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.43723E-07_JPRB,0.44225E-07_JPRB,0.44324E-07_JPRB,0.43726E-07_JPRB,0.43579E-07_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.41617E-07_JPRB,0.42588E-07_JPRB,0.42306E-07_JPRB,0.41086E-07_JPRB,0.41943E-07_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.38855E-07_JPRB,0.40231E-07_JPRB,0.39090E-07_JPRB,0.39461E-07_JPRB,0.39072E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,28, 6) = (/ &
+ & 0.35912E-07_JPRB,0.36691E-07_JPRB,0.35670E-07_JPRB,0.35644E-07_JPRB,0.38295E-07_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.33357E-07_JPRB,0.33134E-07_JPRB,0.32394E-07_JPRB,0.32909E-07_JPRB,0.36234E-07_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.30529E-07_JPRB,0.29196E-07_JPRB,0.29147E-07_JPRB,0.30292E-07_JPRB,0.33912E-07_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.27228E-07_JPRB,0.27081E-07_JPRB,0.26630E-07_JPRB,0.30010E-07_JPRB,0.28781E-07_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.24109E-07_JPRB,0.24388E-07_JPRB,0.25546E-07_JPRB,0.26823E-07_JPRB,0.26681E-07_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.21402E-07_JPRB,0.22303E-07_JPRB,0.24668E-07_JPRB,0.24556E-07_JPRB,0.24369E-07_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.18136E-07_JPRB,0.20944E-07_JPRB,0.21211E-07_JPRB,0.21286E-07_JPRB,0.21648E-07_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.16306E-07_JPRB,0.17531E-07_JPRB,0.17744E-07_JPRB,0.18061E-07_JPRB,0.18282E-07_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.13873E-07_JPRB,0.14963E-07_JPRB,0.15398E-07_JPRB,0.15527E-07_JPRB,0.15391E-07_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.11948E-07_JPRB,0.12614E-07_JPRB,0.12946E-07_JPRB,0.12916E-07_JPRB,0.13085E-07_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.98235E-08_JPRB,0.10612E-07_JPRB,0.10029E-07_JPRB,0.10618E-07_JPRB,0.10860E-07_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.81514E-08_JPRB,0.84716E-08_JPRB,0.81123E-08_JPRB,0.83644E-08_JPRB,0.81668E-08_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.68179E-08_JPRB,0.69030E-08_JPRB,0.69393E-08_JPRB,0.69969E-08_JPRB,0.71027E-08_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.59350E-08_JPRB,0.60668E-08_JPRB,0.59026E-08_JPRB,0.60181E-08_JPRB,0.60779E-08_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.51181E-08_JPRB,0.52127E-08_JPRB,0.48788E-08_JPRB,0.51397E-08_JPRB,0.50230E-08_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.42653E-08_JPRB,0.44600E-08_JPRB,0.41100E-08_JPRB,0.44735E-08_JPRB,0.42607E-08_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.34724E-08_JPRB,0.37628E-08_JPRB,0.35340E-08_JPRB,0.38309E-08_JPRB,0.36188E-08_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.27994E-08_JPRB,0.31690E-08_JPRB,0.28599E-08_JPRB,0.30290E-08_JPRB,0.27730E-08_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.22089E-08_JPRB,0.25761E-08_JPRB,0.23856E-08_JPRB,0.24874E-08_JPRB,0.23603E-08_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.18078E-08_JPRB,0.20304E-08_JPRB,0.19457E-08_JPRB,0.19366E-08_JPRB,0.19286E-08_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.14716E-08_JPRB,0.15703E-08_JPRB,0.17393E-08_JPRB,0.14836E-08_JPRB,0.15316E-08_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.11334E-08_JPRB,0.12901E-08_JPRB,0.13556E-08_JPRB,0.11610E-08_JPRB,0.11617E-08_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.90881E-09_JPRB,0.10323E-08_JPRB,0.11378E-08_JPRB,0.95509E-09_JPRB,0.96291E-09_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.76751E-09_JPRB,0.81710E-09_JPRB,0.97432E-09_JPRB,0.82408E-09_JPRB,0.81205E-09_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.62668E-09_JPRB,0.66223E-09_JPRB,0.76870E-09_JPRB,0.68347E-09_JPRB,0.65771E-09_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.50547E-09_JPRB,0.49991E-09_JPRB,0.61494E-09_JPRB,0.55640E-09_JPRB,0.52803E-09_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.42841E-09_JPRB,0.42678E-09_JPRB,0.51796E-09_JPRB,0.46340E-09_JPRB,0.44830E-09_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.40234E-09_JPRB,0.40065E-09_JPRB,0.45944E-09_JPRB,0.42252E-09_JPRB,0.44365E-09_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.36764E-09_JPRB,0.35937E-09_JPRB,0.36570E-09_JPRB,0.44631E-09_JPRB,0.45684E-09_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.33321E-09_JPRB,0.29808E-09_JPRB,0.31056E-09_JPRB,0.44585E-09_JPRB,0.41122E-09_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.31198E-09_JPRB,0.29542E-09_JPRB,0.33327E-09_JPRB,0.43871E-09_JPRB,0.45291E-09_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.38710E-09_JPRB,0.42412E-09_JPRB,0.44197E-09_JPRB,0.49964E-09_JPRB,0.70387E-09_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.30377E-07_JPRB,0.31586E-07_JPRB,0.27647E-07_JPRB,0.27937E-07_JPRB,0.28036E-07_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.37766E-07_JPRB,0.39819E-07_JPRB,0.39822E-07_JPRB,0.40069E-07_JPRB,0.42091E-07_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.57996E-07_JPRB,0.64474E-07_JPRB,0.69368E-07_JPRB,0.70909E-07_JPRB,0.70748E-07_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.73220E-07_JPRB,0.70124E-07_JPRB,0.69135E-07_JPRB,0.68058E-07_JPRB,0.66524E-07_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.66529E-07_JPRB,0.66306E-07_JPRB,0.63797E-07_JPRB,0.63551E-07_JPRB,0.63462E-07_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.66492E-07_JPRB,0.65156E-07_JPRB,0.66323E-07_JPRB,0.64485E-07_JPRB,0.63285E-07_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.62980E-07_JPRB,0.62900E-07_JPRB,0.62718E-07_JPRB,0.61114E-07_JPRB,0.59765E-07_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.59754E-07_JPRB,0.58066E-07_JPRB,0.59540E-07_JPRB,0.58926E-07_JPRB,0.57835E-07_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.57368E-07_JPRB,0.55161E-07_JPRB,0.55685E-07_JPRB,0.55360E-07_JPRB,0.53982E-07_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.51435E-07_JPRB,0.49998E-07_JPRB,0.50952E-07_JPRB,0.50442E-07_JPRB,0.49717E-07_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.47663E-07_JPRB,0.46845E-07_JPRB,0.47849E-07_JPRB,0.48876E-07_JPRB,0.48885E-07_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.47926E-07_JPRB,0.45619E-07_JPRB,0.45793E-07_JPRB,0.46467E-07_JPRB,0.45938E-07_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.44687E-07_JPRB,0.43904E-07_JPRB,0.44284E-07_JPRB,0.44176E-07_JPRB,0.45520E-07_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.42751E-07_JPRB,0.41938E-07_JPRB,0.42889E-07_JPRB,0.42927E-07_JPRB,0.43868E-07_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.40180E-07_JPRB,0.40529E-07_JPRB,0.40621E-07_JPRB,0.40949E-07_JPRB,0.41005E-07_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.35890E-07_JPRB,0.36716E-07_JPRB,0.37875E-07_JPRB,0.38308E-07_JPRB,0.37626E-07_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.31499E-07_JPRB,0.33284E-07_JPRB,0.32725E-07_JPRB,0.32493E-07_JPRB,0.35018E-07_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.29364E-07_JPRB,0.28675E-07_JPRB,0.28942E-07_JPRB,0.28761E-07_JPRB,0.33960E-07_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.25558E-07_JPRB,0.23679E-07_JPRB,0.24292E-07_JPRB,0.26053E-07_JPRB,0.29211E-07_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.20860E-07_JPRB,0.21491E-07_JPRB,0.20910E-07_JPRB,0.25598E-07_JPRB,0.24209E-07_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.18874E-07_JPRB,0.18554E-07_JPRB,0.21206E-07_JPRB,0.20708E-07_JPRB,0.21100E-07_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.18632E-07_JPRB,0.18625E-07_JPRB,0.20707E-07_JPRB,0.19570E-07_JPRB,0.18956E-07_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.15958E-07_JPRB,0.19141E-07_JPRB,0.19004E-07_JPRB,0.19249E-07_JPRB,0.17793E-07_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.14552E-07_JPRB,0.16561E-07_JPRB,0.16607E-07_JPRB,0.16784E-07_JPRB,0.16326E-07_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.13127E-07_JPRB,0.14300E-07_JPRB,0.14021E-07_JPRB,0.14385E-07_JPRB,0.13328E-07_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.11514E-07_JPRB,0.12356E-07_JPRB,0.12677E-07_JPRB,0.12181E-07_JPRB,0.11774E-07_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.93434E-08_JPRB,0.10196E-07_JPRB,0.10605E-07_JPRB,0.10201E-07_JPRB,0.10584E-07_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.81790E-08_JPRB,0.89000E-08_JPRB,0.85315E-08_JPRB,0.89663E-08_JPRB,0.91635E-08_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.65541E-08_JPRB,0.74884E-08_JPRB,0.72364E-08_JPRB,0.72692E-08_JPRB,0.75649E-08_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.54665E-08_JPRB,0.61796E-08_JPRB,0.61564E-08_JPRB,0.61304E-08_JPRB,0.64285E-08_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.43531E-08_JPRB,0.47798E-08_JPRB,0.51393E-08_JPRB,0.49135E-08_JPRB,0.53520E-08_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.35872E-08_JPRB,0.38233E-08_JPRB,0.42659E-08_JPRB,0.39384E-08_JPRB,0.44541E-08_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.28156E-08_JPRB,0.32775E-08_JPRB,0.36262E-08_JPRB,0.32518E-08_JPRB,0.36805E-08_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.23879E-08_JPRB,0.26299E-08_JPRB,0.28972E-08_JPRB,0.27379E-08_JPRB,0.30333E-08_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.19282E-08_JPRB,0.22066E-08_JPRB,0.23812E-08_JPRB,0.23512E-08_JPRB,0.23794E-08_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.15092E-08_JPRB,0.18255E-08_JPRB,0.17414E-08_JPRB,0.19322E-08_JPRB,0.19399E-08_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.11905E-08_JPRB,0.13964E-08_JPRB,0.14306E-08_JPRB,0.14791E-08_JPRB,0.14939E-08_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.98537E-09_JPRB,0.10687E-08_JPRB,0.11753E-08_JPRB,0.11334E-08_JPRB,0.13178E-08_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.84255E-09_JPRB,0.88069E-09_JPRB,0.95073E-09_JPRB,0.92632E-09_JPRB,0.10457E-08_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.68238E-09_JPRB,0.70376E-09_JPRB,0.74795E-09_JPRB,0.75152E-09_JPRB,0.78131E-09_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.56271E-09_JPRB,0.58527E-09_JPRB,0.61397E-09_JPRB,0.56343E-09_JPRB,0.61138E-09_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.52493E-09_JPRB,0.46040E-09_JPRB,0.53769E-09_JPRB,0.51459E-09_JPRB,0.52912E-09_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.40372E-09_JPRB,0.38720E-09_JPRB,0.40004E-09_JPRB,0.56294E-09_JPRB,0.55844E-09_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.37372E-09_JPRB,0.35358E-09_JPRB,0.39920E-09_JPRB,0.52819E-09_JPRB,0.50147E-09_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.31149E-09_JPRB,0.39454E-09_JPRB,0.38951E-09_JPRB,0.52086E-09_JPRB,0.54542E-09_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.30564E-09_JPRB,0.36251E-09_JPRB,0.38551E-09_JPRB,0.43845E-09_JPRB,0.61772E-09_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.46934E-09_JPRB,0.57639E-09_JPRB,0.58591E-09_JPRB,0.63021E-09_JPRB,0.71158E-09_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.34320E-07_JPRB,0.31607E-07_JPRB,0.29840E-07_JPRB,0.29114E-07_JPRB,0.28831E-07_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.38157E-07_JPRB,0.37907E-07_JPRB,0.40351E-07_JPRB,0.45015E-07_JPRB,0.44786E-07_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.71231E-07_JPRB,0.71647E-07_JPRB,0.71034E-07_JPRB,0.71647E-07_JPRB,0.71755E-07_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.72049E-07_JPRB,0.69075E-07_JPRB,0.67707E-07_JPRB,0.67019E-07_JPRB,0.66780E-07_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.69751E-07_JPRB,0.66211E-07_JPRB,0.66017E-07_JPRB,0.63095E-07_JPRB,0.63343E-07_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.67728E-07_JPRB,0.66581E-07_JPRB,0.64787E-07_JPRB,0.62981E-07_JPRB,0.62245E-07_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.65864E-07_JPRB,0.63789E-07_JPRB,0.62712E-07_JPRB,0.62065E-07_JPRB,0.61005E-07_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.61816E-07_JPRB,0.63755E-07_JPRB,0.63424E-07_JPRB,0.61945E-07_JPRB,0.58720E-07_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.59112E-07_JPRB,0.58061E-07_JPRB,0.57019E-07_JPRB,0.54795E-07_JPRB,0.56069E-07_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.56217E-07_JPRB,0.53887E-07_JPRB,0.54812E-07_JPRB,0.52500E-07_JPRB,0.53303E-07_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.54428E-07_JPRB,0.52930E-07_JPRB,0.53278E-07_JPRB,0.52797E-07_JPRB,0.51840E-07_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.51236E-07_JPRB,0.52532E-07_JPRB,0.53348E-07_JPRB,0.51715E-07_JPRB,0.53224E-07_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.49989E-07_JPRB,0.50872E-07_JPRB,0.49932E-07_JPRB,0.52702E-07_JPRB,0.51493E-07_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.49845E-07_JPRB,0.48733E-07_JPRB,0.48348E-07_JPRB,0.51346E-07_JPRB,0.51109E-07_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.43883E-07_JPRB,0.43853E-07_JPRB,0.46523E-07_JPRB,0.47281E-07_JPRB,0.47292E-07_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.41424E-07_JPRB,0.42057E-07_JPRB,0.43773E-07_JPRB,0.43422E-07_JPRB,0.41438E-07_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.37736E-07_JPRB,0.34915E-07_JPRB,0.37971E-07_JPRB,0.38437E-07_JPRB,0.38122E-07_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.30209E-07_JPRB,0.32936E-07_JPRB,0.31853E-07_JPRB,0.30285E-07_JPRB,0.31746E-07_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.25886E-07_JPRB,0.26990E-07_JPRB,0.27039E-07_JPRB,0.26019E-07_JPRB,0.34246E-07_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.24750E-07_JPRB,0.20653E-07_JPRB,0.21921E-07_JPRB,0.25087E-07_JPRB,0.25874E-07_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.19410E-07_JPRB,0.18820E-07_JPRB,0.18768E-07_JPRB,0.23223E-07_JPRB,0.20942E-07_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.16037E-07_JPRB,0.16060E-07_JPRB,0.19012E-07_JPRB,0.17686E-07_JPRB,0.18319E-07_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.16085E-07_JPRB,0.15072E-07_JPRB,0.16472E-07_JPRB,0.15719E-07_JPRB,0.16406E-07_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.15014E-07_JPRB,0.17144E-07_JPRB,0.16353E-07_JPRB,0.15223E-07_JPRB,0.14884E-07_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.12909E-07_JPRB,0.15628E-07_JPRB,0.16086E-07_JPRB,0.15318E-07_JPRB,0.15605E-07_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.11803E-07_JPRB,0.12970E-07_JPRB,0.13587E-07_JPRB,0.13257E-07_JPRB,0.13920E-07_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.10299E-07_JPRB,0.10951E-07_JPRB,0.11006E-07_JPRB,0.11507E-07_JPRB,0.10553E-07_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.87605E-08_JPRB,0.10094E-07_JPRB,0.10641E-07_JPRB,0.94199E-08_JPRB,0.97115E-08_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.69747E-08_JPRB,0.82105E-08_JPRB,0.93516E-08_JPRB,0.90234E-08_JPRB,0.91657E-08_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.60201E-08_JPRB,0.73523E-08_JPRB,0.76249E-08_JPRB,0.76962E-08_JPRB,0.80489E-08_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.50249E-08_JPRB,0.64035E-08_JPRB,0.62997E-08_JPRB,0.63745E-08_JPRB,0.65773E-08_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.43021E-08_JPRB,0.55682E-08_JPRB,0.52391E-08_JPRB,0.55432E-08_JPRB,0.53417E-08_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.34659E-08_JPRB,0.41011E-08_JPRB,0.41998E-08_JPRB,0.45328E-08_JPRB,0.45452E-08_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.26629E-08_JPRB,0.30573E-08_JPRB,0.34050E-08_JPRB,0.36018E-08_JPRB,0.38146E-08_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.20352E-08_JPRB,0.25120E-08_JPRB,0.29668E-08_JPRB,0.27818E-08_JPRB,0.34015E-08_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.16537E-08_JPRB,0.17568E-08_JPRB,0.23894E-08_JPRB,0.22154E-08_JPRB,0.25802E-08_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.13981E-08_JPRB,0.14349E-08_JPRB,0.17246E-08_JPRB,0.17767E-08_JPRB,0.19090E-08_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.10918E-08_JPRB,0.11356E-08_JPRB,0.12258E-08_JPRB,0.14996E-08_JPRB,0.12493E-08_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.96204E-09_JPRB,0.88786E-09_JPRB,0.10061E-08_JPRB,0.12415E-08_JPRB,0.10774E-08_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.79848E-09_JPRB,0.70289E-09_JPRB,0.84515E-09_JPRB,0.10143E-08_JPRB,0.85552E-09_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.60435E-09_JPRB,0.54746E-09_JPRB,0.63806E-09_JPRB,0.74615E-09_JPRB,0.64507E-09_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.47378E-09_JPRB,0.48059E-09_JPRB,0.54886E-09_JPRB,0.73215E-09_JPRB,0.65721E-09_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.45346E-09_JPRB,0.46291E-09_JPRB,0.55380E-09_JPRB,0.67829E-09_JPRB,0.56756E-09_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.43938E-09_JPRB,0.46043E-09_JPRB,0.50980E-09_JPRB,0.62685E-09_JPRB,0.70094E-09_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.42587E-09_JPRB,0.43184E-09_JPRB,0.47819E-09_JPRB,0.57152E-09_JPRB,0.76528E-09_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.47403E-09_JPRB,0.46387E-09_JPRB,0.50904E-09_JPRB,0.58886E-09_JPRB,0.70162E-09_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.54448E-09_JPRB,0.50172E-09_JPRB,0.65155E-09_JPRB,0.65748E-09_JPRB,0.98321E-09_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.10995E-05_JPRB,0.11095E-05_JPRB,0.11168E-05_JPRB,0.11200E-05_JPRB,0.11274E-05_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.73340E-06_JPRB,0.73567E-06_JPRB,0.73740E-06_JPRB,0.73330E-06_JPRB,0.73919E-06_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.32510E-06_JPRB,0.31252E-06_JPRB,0.30243E-06_JPRB,0.29146E-06_JPRB,0.28830E-06_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.61567E-07_JPRB,0.60590E-07_JPRB,0.61057E-07_JPRB,0.58821E-07_JPRB,0.58536E-07_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.60009E-07_JPRB,0.60924E-07_JPRB,0.61205E-07_JPRB,0.63591E-07_JPRB,0.59950E-07_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.61458E-07_JPRB,0.61692E-07_JPRB,0.60339E-07_JPRB,0.59878E-07_JPRB,0.58575E-07_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.57878E-07_JPRB,0.60299E-07_JPRB,0.60236E-07_JPRB,0.59512E-07_JPRB,0.58126E-07_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.58329E-07_JPRB,0.57451E-07_JPRB,0.54760E-07_JPRB,0.57082E-07_JPRB,0.56805E-07_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.53092E-07_JPRB,0.51700E-07_JPRB,0.51833E-07_JPRB,0.52853E-07_JPRB,0.52467E-07_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.47591E-07_JPRB,0.51357E-07_JPRB,0.49075E-07_JPRB,0.53548E-07_JPRB,0.55924E-07_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.49724E-07_JPRB,0.51803E-07_JPRB,0.51793E-07_JPRB,0.49922E-07_JPRB,0.52665E-07_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.47737E-07_JPRB,0.49279E-07_JPRB,0.51207E-07_JPRB,0.49000E-07_JPRB,0.51613E-07_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.49014E-07_JPRB,0.50174E-07_JPRB,0.54886E-07_JPRB,0.47520E-07_JPRB,0.49798E-07_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.42783E-07_JPRB,0.51200E-07_JPRB,0.50600E-07_JPRB,0.47620E-07_JPRB,0.43709E-07_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.42685E-07_JPRB,0.50611E-07_JPRB,0.42800E-07_JPRB,0.43026E-07_JPRB,0.46518E-07_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.40023E-07_JPRB,0.44433E-07_JPRB,0.38380E-07_JPRB,0.40945E-07_JPRB,0.42005E-07_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.34641E-07_JPRB,0.38943E-07_JPRB,0.36153E-07_JPRB,0.36773E-07_JPRB,0.32051E-07_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.31936E-07_JPRB,0.28774E-07_JPRB,0.32629E-07_JPRB,0.32074E-07_JPRB,0.31547E-07_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.25468E-07_JPRB,0.25946E-07_JPRB,0.23671E-07_JPRB,0.23770E-07_JPRB,0.28704E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,32, 9) = (/ &
+ & 0.18317E-07_JPRB,0.22069E-07_JPRB,0.20055E-07_JPRB,0.21665E-07_JPRB,0.25653E-07_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.18319E-07_JPRB,0.17920E-07_JPRB,0.16523E-07_JPRB,0.20049E-07_JPRB,0.19951E-07_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.15127E-07_JPRB,0.13546E-07_JPRB,0.16257E-07_JPRB,0.16818E-07_JPRB,0.15661E-07_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.12192E-07_JPRB,0.13829E-07_JPRB,0.15792E-07_JPRB,0.15440E-07_JPRB,0.14596E-07_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.11593E-07_JPRB,0.10509E-07_JPRB,0.13211E-07_JPRB,0.13026E-07_JPRB,0.13917E-07_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.12302E-07_JPRB,0.13196E-07_JPRB,0.12558E-07_JPRB,0.11760E-07_JPRB,0.12490E-07_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.10116E-07_JPRB,0.12498E-07_JPRB,0.12546E-07_JPRB,0.12890E-07_JPRB,0.12908E-07_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.88258E-08_JPRB,0.10400E-07_JPRB,0.11293E-07_JPRB,0.11361E-07_JPRB,0.11468E-07_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.70753E-08_JPRB,0.81481E-08_JPRB,0.94292E-08_JPRB,0.10943E-07_JPRB,0.90300E-08_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.71994E-08_JPRB,0.84394E-08_JPRB,0.89108E-08_JPRB,0.89407E-08_JPRB,0.87875E-08_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.55536E-08_JPRB,0.66846E-08_JPRB,0.83965E-08_JPRB,0.80560E-08_JPRB,0.79305E-08_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.50223E-08_JPRB,0.59958E-08_JPRB,0.69583E-08_JPRB,0.70648E-08_JPRB,0.76990E-08_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.40990E-08_JPRB,0.43884E-08_JPRB,0.50706E-08_JPRB,0.56081E-08_JPRB,0.62414E-08_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.35590E-08_JPRB,0.38731E-08_JPRB,0.41923E-08_JPRB,0.44278E-08_JPRB,0.44950E-08_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.26814E-08_JPRB,0.33691E-08_JPRB,0.34101E-08_JPRB,0.34324E-08_JPRB,0.35321E-08_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.21424E-08_JPRB,0.21249E-08_JPRB,0.27532E-08_JPRB,0.28475E-08_JPRB,0.25748E-08_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.16514E-08_JPRB,0.18931E-08_JPRB,0.22507E-08_JPRB,0.22575E-08_JPRB,0.21238E-08_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.12235E-08_JPRB,0.12503E-08_JPRB,0.16643E-08_JPRB,0.16742E-08_JPRB,0.16438E-08_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.11340E-08_JPRB,0.11248E-08_JPRB,0.13120E-08_JPRB,0.13854E-08_JPRB,0.13503E-08_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.79176E-09_JPRB,0.91681E-09_JPRB,0.99908E-09_JPRB,0.13532E-08_JPRB,0.10405E-08_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.64785E-09_JPRB,0.57185E-09_JPRB,0.84784E-09_JPRB,0.90912E-09_JPRB,0.87721E-09_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.51330E-09_JPRB,0.43209E-09_JPRB,0.61659E-09_JPRB,0.79798E-09_JPRB,0.65017E-09_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.40227E-09_JPRB,0.45562E-09_JPRB,0.54691E-09_JPRB,0.63160E-09_JPRB,0.62902E-09_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.44280E-09_JPRB,0.43833E-09_JPRB,0.48132E-09_JPRB,0.55748E-09_JPRB,0.72672E-09_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.33767E-09_JPRB,0.43448E-09_JPRB,0.42774E-09_JPRB,0.52401E-09_JPRB,0.66273E-09_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.40113E-09_JPRB,0.38794E-09_JPRB,0.46286E-09_JPRB,0.57261E-09_JPRB,0.60773E-09_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.36624E-09_JPRB,0.52965E-09_JPRB,0.49530E-09_JPRB,0.54114E-09_JPRB,0.65708E-09_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.52598E-09_JPRB,0.55940E-09_JPRB,0.70094E-09_JPRB,0.71749E-09_JPRB,0.81086E-09_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.75197E-05_JPRB,0.74908E-05_JPRB,0.74768E-05_JPRB,0.74579E-05_JPRB,0.74485E-05_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.62427E-05_JPRB,0.62400E-05_JPRB,0.62314E-05_JPRB,0.62357E-05_JPRB,0.62230E-05_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.51235E-05_JPRB,0.51220E-05_JPRB,0.51270E-05_JPRB,0.51388E-05_JPRB,0.51377E-05_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.36653E-05_JPRB,0.36812E-05_JPRB,0.36844E-05_JPRB,0.36893E-05_JPRB,0.37175E-05_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.10067E-05_JPRB,0.10571E-05_JPRB,0.10948E-05_JPRB,0.11331E-05_JPRB,0.11791E-05_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.37963E-07_JPRB,0.35028E-07_JPRB,0.38085E-07_JPRB,0.36252E-07_JPRB,0.39741E-07_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.58861E-07_JPRB,0.39909E-07_JPRB,0.43872E-07_JPRB,0.52963E-07_JPRB,0.37762E-07_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.65438E-07_JPRB,0.43429E-07_JPRB,0.52709E-07_JPRB,0.35811E-07_JPRB,0.59833E-07_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.50452E-07_JPRB,0.50995E-07_JPRB,0.40371E-07_JPRB,0.51145E-07_JPRB,0.52725E-07_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.42139E-07_JPRB,0.45011E-07_JPRB,0.61867E-07_JPRB,0.41292E-07_JPRB,0.37916E-07_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.30176E-07_JPRB,0.29856E-07_JPRB,0.39637E-07_JPRB,0.38957E-07_JPRB,0.64896E-07_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.36010E-07_JPRB,0.42155E-07_JPRB,0.32787E-07_JPRB,0.46750E-07_JPRB,0.46940E-07_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.34802E-07_JPRB,0.41607E-07_JPRB,0.40854E-07_JPRB,0.61643E-07_JPRB,0.53762E-07_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.41295E-07_JPRB,0.39697E-07_JPRB,0.46005E-07_JPRB,0.46334E-07_JPRB,0.53334E-07_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.61711E-07_JPRB,0.29641E-07_JPRB,0.51823E-07_JPRB,0.42625E-07_JPRB,0.36336E-07_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.45196E-07_JPRB,0.56637E-07_JPRB,0.31716E-07_JPRB,0.38569E-07_JPRB,0.45693E-07_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.47349E-07_JPRB,0.38492E-07_JPRB,0.26330E-07_JPRB,0.30953E-07_JPRB,0.33330E-07_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.20700E-07_JPRB,0.24999E-07_JPRB,0.19626E-07_JPRB,0.33645E-07_JPRB,0.21883E-07_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.31879E-07_JPRB,0.26245E-07_JPRB,0.28697E-07_JPRB,0.26867E-07_JPRB,0.26801E-07_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.29616E-07_JPRB,0.18927E-07_JPRB,0.18903E-07_JPRB,0.14917E-07_JPRB,0.25602E-07_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.22437E-07_JPRB,0.26260E-07_JPRB,0.17262E-07_JPRB,0.13354E-07_JPRB,0.18413E-07_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.15957E-07_JPRB,0.11226E-07_JPRB,0.16852E-07_JPRB,0.11987E-07_JPRB,0.14358E-07_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.11233E-07_JPRB,0.90736E-08_JPRB,0.13960E-07_JPRB,0.76472E-08_JPRB,0.11733E-07_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.13919E-07_JPRB,0.10081E-07_JPRB,0.10035E-07_JPRB,0.10345E-07_JPRB,0.10622E-07_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.76780E-08_JPRB,0.12331E-07_JPRB,0.10794E-07_JPRB,0.16023E-07_JPRB,0.11524E-07_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.65416E-08_JPRB,0.97484E-08_JPRB,0.12132E-07_JPRB,0.10472E-07_JPRB,0.11363E-07_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.78511E-08_JPRB,0.70392E-08_JPRB,0.91444E-08_JPRB,0.84352E-08_JPRB,0.95946E-08_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.81878E-08_JPRB,0.94957E-08_JPRB,0.84996E-08_JPRB,0.11246E-07_JPRB,0.13024E-07_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.65901E-08_JPRB,0.80717E-08_JPRB,0.78357E-08_JPRB,0.67309E-08_JPRB,0.85966E-08_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.64210E-08_JPRB,0.59979E-08_JPRB,0.56936E-08_JPRB,0.70018E-08_JPRB,0.70433E-08_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.40388E-08_JPRB,0.71452E-08_JPRB,0.63548E-08_JPRB,0.84902E-08_JPRB,0.75828E-08_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.39142E-08_JPRB,0.55915E-08_JPRB,0.49863E-08_JPRB,0.52254E-08_JPRB,0.62790E-08_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.42931E-08_JPRB,0.31608E-08_JPRB,0.46572E-08_JPRB,0.47490E-08_JPRB,0.59912E-08_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.38722E-08_JPRB,0.16146E-08_JPRB,0.40010E-08_JPRB,0.24242E-08_JPRB,0.45711E-08_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.14942E-08_JPRB,0.28671E-08_JPRB,0.27168E-08_JPRB,0.40090E-08_JPRB,0.42343E-08_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.11911E-08_JPRB,0.13582E-08_JPRB,0.26580E-08_JPRB,0.29275E-08_JPRB,0.17855E-08_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.14130E-08_JPRB,0.10553E-08_JPRB,0.10543E-08_JPRB,0.11428E-08_JPRB,0.14141E-08_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.12182E-08_JPRB,0.14973E-08_JPRB,0.13182E-08_JPRB,0.84197E-09_JPRB,0.12115E-08_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.81227E-09_JPRB,0.90496E-09_JPRB,0.77903E-09_JPRB,0.83007E-09_JPRB,0.86051E-09_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.96715E-09_JPRB,0.52504E-09_JPRB,0.42702E-09_JPRB,0.99435E-09_JPRB,0.91829E-09_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.37232E-09_JPRB,0.22359E-09_JPRB,0.89279E-09_JPRB,0.85173E-09_JPRB,0.51790E-09_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.34402E-09_JPRB,0.40116E-09_JPRB,0.54696E-09_JPRB,0.50848E-09_JPRB,0.53123E-09_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.66100E-09_JPRB,0.65370E-09_JPRB,0.58427E-09_JPRB,0.74840E-09_JPRB,0.49778E-09_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.43138E-09_JPRB,0.39155E-09_JPRB,0.52944E-09_JPRB,0.58374E-09_JPRB,0.77481E-09_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.48190E-09_JPRB,0.37726E-09_JPRB,0.54783E-09_JPRB,0.43462E-09_JPRB,0.46295E-09_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.42276E-09_JPRB,0.62831E-09_JPRB,0.68493E-09_JPRB,0.49089E-09_JPRB,0.43799E-09_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.37023E-09_JPRB,0.90764E-09_JPRB,0.36527E-09_JPRB,0.99235E-09_JPRB,0.10719E-08_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.15119E-04_JPRB,0.15135E-04_JPRB,0.15140E-04_JPRB,0.15181E-04_JPRB,0.15209E-04_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.12807E-04_JPRB,0.12837E-04_JPRB,0.12873E-04_JPRB,0.12938E-04_JPRB,0.12999E-04_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.10789E-04_JPRB,0.10839E-04_JPRB,0.10921E-04_JPRB,0.10986E-04_JPRB,0.11078E-04_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.90472E-05_JPRB,0.91077E-05_JPRB,0.91930E-05_JPRB,0.92812E-05_JPRB,0.93959E-05_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.74085E-05_JPRB,0.75116E-05_JPRB,0.76103E-05_JPRB,0.77238E-05_JPRB,0.78364E-05_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.47863E-05_JPRB,0.49607E-05_JPRB,0.51634E-05_JPRB,0.53824E-05_JPRB,0.55724E-05_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.17849E-05_JPRB,0.19797E-05_JPRB,0.21641E-05_JPRB,0.23597E-05_JPRB,0.26015E-05_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.14011E-06_JPRB,0.26424E-06_JPRB,0.39902E-06_JPRB,0.56382E-06_JPRB,0.75666E-06_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.32681E-07_JPRB,0.30855E-07_JPRB,0.23688E-07_JPRB,0.28954E-07_JPRB,0.30262E-07_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.39000E-07_JPRB,0.34641E-07_JPRB,0.36220E-07_JPRB,0.29230E-07_JPRB,0.25365E-07_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.39936E-07_JPRB,0.40586E-07_JPRB,0.26460E-07_JPRB,0.13886E-07_JPRB,0.18108E-07_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.34546E-07_JPRB,0.30818E-07_JPRB,0.33243E-07_JPRB,0.31408E-07_JPRB,0.37755E-07_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.36078E-07_JPRB,0.45586E-07_JPRB,0.18117E-07_JPRB,0.20176E-07_JPRB,0.46256E-07_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.61382E-07_JPRB,0.31185E-07_JPRB,0.38578E-07_JPRB,0.18908E-07_JPRB,0.43919E-07_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.37585E-07_JPRB,0.28323E-07_JPRB,0.45638E-07_JPRB,0.34261E-07_JPRB,0.26227E-07_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.41226E-07_JPRB,0.24793E-07_JPRB,0.23296E-07_JPRB,0.20952E-07_JPRB,0.27899E-07_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.21318E-07_JPRB,0.23768E-07_JPRB,0.39220E-07_JPRB,0.28896E-07_JPRB,0.15703E-07_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.25522E-07_JPRB,0.29485E-07_JPRB,0.39326E-07_JPRB,0.29293E-07_JPRB,0.36529E-07_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.14494E-07_JPRB,0.25417E-07_JPRB,0.13732E-07_JPRB,0.97827E-08_JPRB,0.20014E-07_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.14101E-07_JPRB,0.26239E-07_JPRB,0.22312E-07_JPRB,0.10163E-07_JPRB,0.17547E-07_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.17347E-07_JPRB,0.17261E-07_JPRB,0.13014E-07_JPRB,0.21130E-07_JPRB,0.31576E-08_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.11923E-07_JPRB,0.13818E-07_JPRB,0.14692E-07_JPRB,0.14120E-07_JPRB,0.12000E-07_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.86917E-08_JPRB,0.10083E-07_JPRB,0.11872E-07_JPRB,0.58578E-08_JPRB,0.13194E-07_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.74538E-08_JPRB,0.94606E-08_JPRB,0.85633E-08_JPRB,0.15394E-07_JPRB,0.81997E-08_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.59982E-08_JPRB,0.58805E-08_JPRB,0.92255E-08_JPRB,0.69472E-08_JPRB,0.63632E-08_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.75481E-08_JPRB,0.82094E-08_JPRB,0.10405E-07_JPRB,0.62921E-08_JPRB,0.70021E-08_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.65770E-08_JPRB,0.73715E-08_JPRB,0.70899E-08_JPRB,0.49884E-08_JPRB,0.73567E-08_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.62200E-08_JPRB,0.79227E-08_JPRB,0.65710E-08_JPRB,0.35793E-08_JPRB,0.48653E-08_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.67810E-08_JPRB,0.64933E-08_JPRB,0.26651E-08_JPRB,0.71067E-08_JPRB,0.42136E-08_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.32351E-08_JPRB,0.79993E-08_JPRB,0.25727E-08_JPRB,0.70581E-08_JPRB,0.58932E-08_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.54331E-08_JPRB,0.21653E-08_JPRB,0.69372E-08_JPRB,0.30142E-08_JPRB,0.23071E-07_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.26834E-08_JPRB,0.43047E-08_JPRB,0.44246E-08_JPRB,0.29474E-08_JPRB,0.52315E-07_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.22521E-08_JPRB,0.21920E-08_JPRB,0.35952E-08_JPRB,0.29799E-08_JPRB,0.81164E-07_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.28580E-08_JPRB,0.12605E-08_JPRB,0.64390E-09_JPRB,0.24255E-07_JPRB,0.96879E-07_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.13005E-08_JPRB,0.17967E-08_JPRB,0.21618E-08_JPRB,0.30225E-07_JPRB,0.10319E-06_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.13676E-08_JPRB,0.96043E-09_JPRB,0.14275E-08_JPRB,0.39735E-07_JPRB,0.11261E-06_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.79619E-09_JPRB,0.85338E-09_JPRB,0.14300E-08_JPRB,0.51821E-07_JPRB,0.12169E-06_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.49284E-09_JPRB,0.21801E-09_JPRB,0.75017E-08_JPRB,0.50308E-07_JPRB,0.11953E-06_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.51956E-09_JPRB,0.59927E-09_JPRB,0.87276E-08_JPRB,0.45028E-07_JPRB,0.11141E-06_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.35814E-09_JPRB,0.78982E-09_JPRB,0.10205E-07_JPRB,0.45574E-07_JPRB,0.10332E-06_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.69729E-09_JPRB,0.23757E-09_JPRB,0.11741E-07_JPRB,0.45086E-07_JPRB,0.98023E-07_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.38203E-09_JPRB,0.28792E-09_JPRB,0.72239E-08_JPRB,0.35770E-07_JPRB,0.80771E-07_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.33870E-09_JPRB,0.39698E-09_JPRB,0.15883E-08_JPRB,0.22568E-07_JPRB,0.61465E-07_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.50424E-09_JPRB,0.25383E-09_JPRB,0.46226E-09_JPRB,0.12214E-07_JPRB,0.43776E-07_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.18824E-09_JPRB,0.14340E-09_JPRB,0.96547E-10_JPRB,0.36771E-08_JPRB,0.28437E-07_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.53960E-09_JPRB,0.71198E-09_JPRB,0.40290E-09_JPRB,0.38600E-09_JPRB,0.14449E-07_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.64570E-09_JPRB,0.80856E-09_JPRB,0.54439E-09_JPRB,0.66021E-09_JPRB,0.28306E-09_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.35137E-04_JPRB,0.35315E-04_JPRB,0.35473E-04_JPRB,0.35691E-04_JPRB,0.35953E-04_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.30387E-04_JPRB,0.30535E-04_JPRB,0.30693E-04_JPRB,0.30906E-04_JPRB,0.31121E-04_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.26404E-04_JPRB,0.26560E-04_JPRB,0.26776E-04_JPRB,0.26963E-04_JPRB,0.27157E-04_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.22908E-04_JPRB,0.23161E-04_JPRB,0.23420E-04_JPRB,0.23636E-04_JPRB,0.23864E-04_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.19849E-04_JPRB,0.20170E-04_JPRB,0.20453E-04_JPRB,0.20723E-04_JPRB,0.21011E-04_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.17158E-04_JPRB,0.17516E-04_JPRB,0.17820E-04_JPRB,0.18149E-04_JPRB,0.18467E-04_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.14706E-04_JPRB,0.15074E-04_JPRB,0.15426E-04_JPRB,0.15809E-04_JPRB,0.16128E-04_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.12200E-04_JPRB,0.12654E-04_JPRB,0.13122E-04_JPRB,0.13561E-04_JPRB,0.13942E-04_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.88744E-05_JPRB,0.95294E-05_JPRB,0.10194E-04_JPRB,0.10811E-04_JPRB,0.11447E-04_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.63063E-05_JPRB,0.69160E-05_JPRB,0.75170E-05_JPRB,0.81696E-05_JPRB,0.87829E-05_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.42549E-05_JPRB,0.48576E-05_JPRB,0.54224E-05_JPRB,0.60649E-05_JPRB,0.65852E-05_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.26155E-05_JPRB,0.31537E-05_JPRB,0.36816E-05_JPRB,0.42795E-05_JPRB,0.47356E-05_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.14576E-05_JPRB,0.18762E-05_JPRB,0.23875E-05_JPRB,0.29308E-05_JPRB,0.33846E-05_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.67369E-06_JPRB,0.10096E-05_JPRB,0.14730E-05_JPRB,0.19592E-05_JPRB,0.24356E-05_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.27240E-06_JPRB,0.59733E-06_JPRB,0.98553E-06_JPRB,0.13968E-05_JPRB,0.18466E-05_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.81179E-07_JPRB,0.35063E-06_JPRB,0.74692E-06_JPRB,0.11081E-05_JPRB,0.15613E-05_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.94800E-07_JPRB,0.40513E-06_JPRB,0.73547E-06_JPRB,0.10914E-05_JPRB,0.16188E-05_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.19045E-06_JPRB,0.51192E-06_JPRB,0.80594E-06_JPRB,0.12694E-05_JPRB,0.16954E-05_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.38493E-06_JPRB,0.71230E-06_JPRB,0.11392E-05_JPRB,0.15875E-05_JPRB,0.20565E-05_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.61444E-06_JPRB,0.97779E-06_JPRB,0.14257E-05_JPRB,0.18883E-05_JPRB,0.26649E-05_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.84230E-06_JPRB,0.12390E-05_JPRB,0.17304E-05_JPRB,0.23322E-05_JPRB,0.32859E-05_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.10458E-05_JPRB,0.14709E-05_JPRB,0.19634E-05_JPRB,0.28004E-05_JPRB,0.37724E-05_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.11901E-05_JPRB,0.16306E-05_JPRB,0.22411E-05_JPRB,0.31089E-05_JPRB,0.41007E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,36,12) = (/ &
+ & 0.12859E-05_JPRB,0.17604E-05_JPRB,0.24414E-05_JPRB,0.32964E-05_JPRB,0.43267E-05_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.13015E-05_JPRB,0.17577E-05_JPRB,0.24562E-05_JPRB,0.33117E-05_JPRB,0.43238E-05_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.13522E-05_JPRB,0.18247E-05_JPRB,0.25116E-05_JPRB,0.33483E-05_JPRB,0.43352E-05_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.14322E-05_JPRB,0.19336E-05_JPRB,0.26107E-05_JPRB,0.34258E-05_JPRB,0.44158E-05_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.14006E-05_JPRB,0.18728E-05_JPRB,0.25304E-05_JPRB,0.33179E-05_JPRB,0.42738E-05_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.13551E-05_JPRB,0.18012E-05_JPRB,0.24357E-05_JPRB,0.32084E-05_JPRB,0.41141E-05_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.13297E-05_JPRB,0.17512E-05_JPRB,0.23561E-05_JPRB,0.30946E-05_JPRB,0.39665E-05_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.12687E-05_JPRB,0.16768E-05_JPRB,0.22464E-05_JPRB,0.29540E-05_JPRB,0.37527E-05_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.12099E-05_JPRB,0.15968E-05_JPRB,0.21385E-05_JPRB,0.28006E-05_JPRB,0.35240E-05_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.11534E-05_JPRB,0.15243E-05_JPRB,0.20279E-05_JPRB,0.26581E-05_JPRB,0.33062E-05_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.10898E-05_JPRB,0.14434E-05_JPRB,0.19097E-05_JPRB,0.24739E-05_JPRB,0.30807E-05_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.10111E-05_JPRB,0.13412E-05_JPRB,0.17607E-05_JPRB,0.22724E-05_JPRB,0.28391E-05_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.92540E-06_JPRB,0.12447E-05_JPRB,0.16295E-05_JPRB,0.20863E-05_JPRB,0.26097E-05_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.84684E-06_JPRB,0.11506E-05_JPRB,0.15141E-05_JPRB,0.19160E-05_JPRB,0.23957E-05_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.76391E-06_JPRB,0.10519E-05_JPRB,0.13910E-05_JPRB,0.17635E-05_JPRB,0.22060E-05_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.68139E-06_JPRB,0.95640E-06_JPRB,0.12771E-05_JPRB,0.16252E-05_JPRB,0.20363E-05_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.60392E-06_JPRB,0.86706E-06_JPRB,0.11671E-05_JPRB,0.14940E-05_JPRB,0.18793E-05_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.53856E-06_JPRB,0.78259E-06_JPRB,0.10620E-05_JPRB,0.13737E-05_JPRB,0.17330E-05_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.46919E-06_JPRB,0.69589E-06_JPRB,0.96582E-06_JPRB,0.12666E-05_JPRB,0.16070E-05_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.40013E-06_JPRB,0.61215E-06_JPRB,0.87450E-06_JPRB,0.11663E-05_JPRB,0.14929E-05_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.33987E-06_JPRB,0.53286E-06_JPRB,0.78520E-06_JPRB,0.10697E-05_JPRB,0.13857E-05_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.28415E-06_JPRB,0.45936E-06_JPRB,0.69784E-06_JPRB,0.97544E-06_JPRB,0.12829E-05_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.23457E-06_JPRB,0.39019E-06_JPRB,0.61528E-06_JPRB,0.88439E-06_JPRB,0.11866E-05_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.19576E-06_JPRB,0.34385E-06_JPRB,0.56055E-06_JPRB,0.82347E-06_JPRB,0.11274E-05_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.12143E-03_JPRB,0.12308E-03_JPRB,0.12512E-03_JPRB,0.12699E-03_JPRB,0.12910E-03_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.10385E-03_JPRB,0.10569E-03_JPRB,0.10770E-03_JPRB,0.10972E-03_JPRB,0.11214E-03_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.88944E-04_JPRB,0.90837E-04_JPRB,0.92688E-04_JPRB,0.94910E-04_JPRB,0.97472E-04_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.76542E-04_JPRB,0.78268E-04_JPRB,0.80179E-04_JPRB,0.82469E-04_JPRB,0.84734E-04_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.66332E-04_JPRB,0.67885E-04_JPRB,0.69742E-04_JPRB,0.71831E-04_JPRB,0.74034E-04_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.57811E-04_JPRB,0.59251E-04_JPRB,0.61096E-04_JPRB,0.62954E-04_JPRB,0.65175E-04_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.50669E-04_JPRB,0.52124E-04_JPRB,0.53790E-04_JPRB,0.55608E-04_JPRB,0.57861E-04_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.44810E-04_JPRB,0.46258E-04_JPRB,0.47774E-04_JPRB,0.49573E-04_JPRB,0.51715E-04_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.40009E-04_JPRB,0.41361E-04_JPRB,0.42755E-04_JPRB,0.44560E-04_JPRB,0.46559E-04_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.36116E-04_JPRB,0.37297E-04_JPRB,0.38718E-04_JPRB,0.40472E-04_JPRB,0.42441E-04_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.32736E-04_JPRB,0.33861E-04_JPRB,0.35361E-04_JPRB,0.37075E-04_JPRB,0.39134E-04_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.29883E-04_JPRB,0.31056E-04_JPRB,0.32552E-04_JPRB,0.34296E-04_JPRB,0.36499E-04_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.27373E-04_JPRB,0.28693E-04_JPRB,0.30179E-04_JPRB,0.32033E-04_JPRB,0.34358E-04_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.25273E-04_JPRB,0.26749E-04_JPRB,0.28306E-04_JPRB,0.30341E-04_JPRB,0.32793E-04_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.23652E-04_JPRB,0.25175E-04_JPRB,0.26905E-04_JPRB,0.29145E-04_JPRB,0.31814E-04_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.22453E-04_JPRB,0.24077E-04_JPRB,0.26031E-04_JPRB,0.28419E-04_JPRB,0.31259E-04_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.21794E-04_JPRB,0.23553E-04_JPRB,0.25672E-04_JPRB,0.28266E-04_JPRB,0.31243E-04_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.21501E-04_JPRB,0.23414E-04_JPRB,0.25687E-04_JPRB,0.28389E-04_JPRB,0.31547E-04_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.21532E-04_JPRB,0.23577E-04_JPRB,0.25947E-04_JPRB,0.28793E-04_JPRB,0.32070E-04_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.21702E-04_JPRB,0.23850E-04_JPRB,0.26365E-04_JPRB,0.29337E-04_JPRB,0.32730E-04_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.21999E-04_JPRB,0.24243E-04_JPRB,0.26895E-04_JPRB,0.29970E-04_JPRB,0.33492E-04_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.22272E-04_JPRB,0.24615E-04_JPRB,0.27365E-04_JPRB,0.30535E-04_JPRB,0.34149E-04_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.22408E-04_JPRB,0.24786E-04_JPRB,0.27609E-04_JPRB,0.30838E-04_JPRB,0.34518E-04_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.22324E-04_JPRB,0.24717E-04_JPRB,0.27535E-04_JPRB,0.30781E-04_JPRB,0.34466E-04_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.21914E-04_JPRB,0.24278E-04_JPRB,0.27037E-04_JPRB,0.30223E-04_JPRB,0.33847E-04_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.21518E-04_JPRB,0.23846E-04_JPRB,0.26529E-04_JPRB,0.29664E-04_JPRB,0.33219E-04_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.21138E-04_JPRB,0.23443E-04_JPRB,0.26064E-04_JPRB,0.29132E-04_JPRB,0.32628E-04_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.20535E-04_JPRB,0.22813E-04_JPRB,0.25328E-04_JPRB,0.28289E-04_JPRB,0.31682E-04_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.19918E-04_JPRB,0.22174E-04_JPRB,0.24598E-04_JPRB,0.27447E-04_JPRB,0.30722E-04_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.19309E-04_JPRB,0.21550E-04_JPRB,0.23909E-04_JPRB,0.26639E-04_JPRB,0.29801E-04_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.18566E-04_JPRB,0.20812E-04_JPRB,0.23112E-04_JPRB,0.25700E-04_JPRB,0.28732E-04_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.17767E-04_JPRB,0.20035E-04_JPRB,0.22299E-04_JPRB,0.24756E-04_JPRB,0.27639E-04_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.16962E-04_JPRB,0.19260E-04_JPRB,0.21500E-04_JPRB,0.23864E-04_JPRB,0.26597E-04_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.16086E-04_JPRB,0.18421E-04_JPRB,0.20671E-04_JPRB,0.22972E-04_JPRB,0.25545E-04_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.15115E-04_JPRB,0.17481E-04_JPRB,0.19766E-04_JPRB,0.22019E-04_JPRB,0.24442E-04_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.14158E-04_JPRB,0.16526E-04_JPRB,0.18843E-04_JPRB,0.21088E-04_JPRB,0.23419E-04_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.13195E-04_JPRB,0.15552E-04_JPRB,0.17911E-04_JPRB,0.20179E-04_JPRB,0.22454E-04_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.12314E-04_JPRB,0.14653E-04_JPRB,0.17032E-04_JPRB,0.19326E-04_JPRB,0.21576E-04_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.11480E-04_JPRB,0.13788E-04_JPRB,0.16154E-04_JPRB,0.18484E-04_JPRB,0.20739E-04_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.10629E-04_JPRB,0.12922E-04_JPRB,0.15279E-04_JPRB,0.17642E-04_JPRB,0.19921E-04_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.97710E-05_JPRB,0.12082E-04_JPRB,0.14410E-04_JPRB,0.16788E-04_JPRB,0.19091E-04_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.90074E-05_JPRB,0.11316E-04_JPRB,0.13617E-04_JPRB,0.15981E-04_JPRB,0.18321E-04_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.83042E-05_JPRB,0.10569E-04_JPRB,0.12859E-04_JPRB,0.15214E-04_JPRB,0.17581E-04_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.76202E-05_JPRB,0.98296E-05_JPRB,0.12125E-04_JPRB,0.14457E-04_JPRB,0.16835E-04_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.69561E-05_JPRB,0.91024E-05_JPRB,0.11398E-04_JPRB,0.13700E-04_JPRB,0.16068E-04_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.63426E-05_JPRB,0.84347E-05_JPRB,0.10695E-04_JPRB,0.12984E-04_JPRB,0.15340E-04_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.61056E-05_JPRB,0.81719E-05_JPRB,0.10410E-04_JPRB,0.12698E-04_JPRB,0.15054E-04_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.69692E-03_JPRB,0.71516E-03_JPRB,0.73378E-03_JPRB,0.75443E-03_JPRB,0.77716E-03_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.64436E-03_JPRB,0.66211E-03_JPRB,0.68199E-03_JPRB,0.70460E-03_JPRB,0.72891E-03_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.59775E-03_JPRB,0.61618E-03_JPRB,0.63785E-03_JPRB,0.66198E-03_JPRB,0.68803E-03_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.55668E-03_JPRB,0.57752E-03_JPRB,0.60052E-03_JPRB,0.62615E-03_JPRB,0.65391E-03_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.52104E-03_JPRB,0.54458E-03_JPRB,0.56934E-03_JPRB,0.59627E-03_JPRB,0.62539E-03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.49086E-03_JPRB,0.51685E-03_JPRB,0.54337E-03_JPRB,0.57147E-03_JPRB,0.60182E-03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.46544E-03_JPRB,0.49373E-03_JPRB,0.52192E-03_JPRB,0.55124E-03_JPRB,0.58277E-03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.44496E-03_JPRB,0.47526E-03_JPRB,0.50494E-03_JPRB,0.53564E-03_JPRB,0.56857E-03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.42855E-03_JPRB,0.46070E-03_JPRB,0.49202E-03_JPRB,0.52375E-03_JPRB,0.55795E-03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.41783E-03_JPRB,0.45160E-03_JPRB,0.48421E-03_JPRB,0.51739E-03_JPRB,0.55269E-03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.41085E-03_JPRB,0.44564E-03_JPRB,0.47947E-03_JPRB,0.51389E-03_JPRB,0.55016E-03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.40699E-03_JPRB,0.44263E-03_JPRB,0.47766E-03_JPRB,0.51290E-03_JPRB,0.55008E-03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.40592E-03_JPRB,0.44215E-03_JPRB,0.47812E-03_JPRB,0.51419E-03_JPRB,0.55216E-03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.40741E-03_JPRB,0.44425E-03_JPRB,0.48085E-03_JPRB,0.51770E-03_JPRB,0.55654E-03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.41074E-03_JPRB,0.44811E-03_JPRB,0.48506E-03_JPRB,0.52264E-03_JPRB,0.56211E-03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.41538E-03_JPRB,0.45333E-03_JPRB,0.49042E-03_JPRB,0.52868E-03_JPRB,0.56877E-03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.42139E-03_JPRB,0.45956E-03_JPRB,0.49700E-03_JPRB,0.53588E-03_JPRB,0.57647E-03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.42836E-03_JPRB,0.46659E-03_JPRB,0.50435E-03_JPRB,0.54377E-03_JPRB,0.58489E-03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.43618E-03_JPRB,0.47431E-03_JPRB,0.51248E-03_JPRB,0.55256E-03_JPRB,0.59401E-03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.44466E-03_JPRB,0.48256E-03_JPRB,0.52138E-03_JPRB,0.56187E-03_JPRB,0.60364E-03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.45349E-03_JPRB,0.49137E-03_JPRB,0.53076E-03_JPRB,0.57166E-03_JPRB,0.61359E-03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.46108E-03_JPRB,0.49922E-03_JPRB,0.53902E-03_JPRB,0.58028E-03_JPRB,0.62237E-03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.46528E-03_JPRB,0.50354E-03_JPRB,0.54368E-03_JPRB,0.58501E-03_JPRB,0.62724E-03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.46539E-03_JPRB,0.50375E-03_JPRB,0.54391E-03_JPRB,0.58538E-03_JPRB,0.62763E-03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.45984E-03_JPRB,0.49817E-03_JPRB,0.53806E-03_JPRB,0.57948E-03_JPRB,0.62153E-03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.45408E-03_JPRB,0.49229E-03_JPRB,0.53205E-03_JPRB,0.57322E-03_JPRB,0.61533E-03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.44837E-03_JPRB,0.48652E-03_JPRB,0.52604E-03_JPRB,0.56712E-03_JPRB,0.60916E-03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.43865E-03_JPRB,0.47705E-03_JPRB,0.51607E-03_JPRB,0.55678E-03_JPRB,0.59870E-03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.42850E-03_JPRB,0.46708E-03_JPRB,0.50578E-03_JPRB,0.54611E-03_JPRB,0.58790E-03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.41832E-03_JPRB,0.45718E-03_JPRB,0.49552E-03_JPRB,0.53551E-03_JPRB,0.57688E-03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.40611E-03_JPRB,0.44501E-03_JPRB,0.48328E-03_JPRB,0.52271E-03_JPRB,0.56375E-03_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.39281E-03_JPRB,0.43169E-03_JPRB,0.47025E-03_JPRB,0.50904E-03_JPRB,0.54960E-03_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.37939E-03_JPRB,0.41841E-03_JPRB,0.45722E-03_JPRB,0.49565E-03_JPRB,0.53564E-03_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.36481E-03_JPRB,0.40443E-03_JPRB,0.44334E-03_JPRB,0.48171E-03_JPRB,0.52104E-03_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.34813E-03_JPRB,0.38867E-03_JPRB,0.42754E-03_JPRB,0.46626E-03_JPRB,0.50489E-03_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.33101E-03_JPRB,0.37257E-03_JPRB,0.41188E-03_JPRB,0.45078E-03_JPRB,0.48906E-03_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.31369E-03_JPRB,0.35613E-03_JPRB,0.39621E-03_JPRB,0.43508E-03_JPRB,0.47354E-03_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.29739E-03_JPRB,0.34030E-03_JPRB,0.38132E-03_JPRB,0.42035E-03_JPRB,0.45918E-03_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.28140E-03_JPRB,0.32461E-03_JPRB,0.36662E-03_JPRB,0.40619E-03_JPRB,0.44511E-03_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.26563E-03_JPRB,0.30898E-03_JPRB,0.35161E-03_JPRB,0.39193E-03_JPRB,0.43080E-03_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.24997E-03_JPRB,0.29311E-03_JPRB,0.33618E-03_JPRB,0.37741E-03_JPRB,0.41655E-03_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.23534E-03_JPRB,0.27846E-03_JPRB,0.32175E-03_JPRB,0.36391E-03_JPRB,0.40359E-03_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.22140E-03_JPRB,0.26468E-03_JPRB,0.30799E-03_JPRB,0.35062E-03_JPRB,0.39107E-03_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.20748E-03_JPRB,0.25097E-03_JPRB,0.29409E-03_JPRB,0.33714E-03_JPRB,0.37835E-03_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.19363E-03_JPRB,0.23702E-03_JPRB,0.28013E-03_JPRB,0.32339E-03_JPRB,0.36545E-03_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.18066E-03_JPRB,0.22379E-03_JPRB,0.26710E-03_JPRB,0.31040E-03_JPRB,0.35295E-03_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.17550E-03_JPRB,0.21855E-03_JPRB,0.26188E-03_JPRB,0.30515E-03_JPRB,0.34793E-03_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.67077E-02_JPRB,0.67643E-02_JPRB,0.68102E-02_JPRB,0.68432E-02_JPRB,0.68617E-02_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.68112E-02_JPRB,0.68842E-02_JPRB,0.69413E-02_JPRB,0.69806E-02_JPRB,0.70063E-02_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.68961E-02_JPRB,0.69833E-02_JPRB,0.70488E-02_JPRB,0.70965E-02_JPRB,0.71269E-02_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.69706E-02_JPRB,0.70648E-02_JPRB,0.71387E-02_JPRB,0.71925E-02_JPRB,0.72279E-02_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.70342E-02_JPRB,0.71339E-02_JPRB,0.72130E-02_JPRB,0.72737E-02_JPRB,0.73138E-02_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.70890E-02_JPRB,0.71933E-02_JPRB,0.72776E-02_JPRB,0.73426E-02_JPRB,0.73856E-02_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.71380E-02_JPRB,0.72441E-02_JPRB,0.73326E-02_JPRB,0.74006E-02_JPRB,0.74464E-02_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.71838E-02_JPRB,0.72907E-02_JPRB,0.73816E-02_JPRB,0.74514E-02_JPRB,0.74969E-02_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.72239E-02_JPRB,0.73326E-02_JPRB,0.74235E-02_JPRB,0.74941E-02_JPRB,0.75405E-02_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.72699E-02_JPRB,0.73767E-02_JPRB,0.74650E-02_JPRB,0.75340E-02_JPRB,0.75785E-02_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.73111E-02_JPRB,0.74172E-02_JPRB,0.75033E-02_JPRB,0.75687E-02_JPRB,0.76113E-02_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.73510E-02_JPRB,0.74537E-02_JPRB,0.75371E-02_JPRB,0.76008E-02_JPRB,0.76395E-02_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.73875E-02_JPRB,0.74885E-02_JPRB,0.75684E-02_JPRB,0.76282E-02_JPRB,0.76634E-02_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.74256E-02_JPRB,0.75226E-02_JPRB,0.75985E-02_JPRB,0.76530E-02_JPRB,0.76835E-02_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.74605E-02_JPRB,0.75517E-02_JPRB,0.76248E-02_JPRB,0.76742E-02_JPRB,0.77008E-02_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.74927E-02_JPRB,0.75800E-02_JPRB,0.76483E-02_JPRB,0.76927E-02_JPRB,0.77139E-02_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.75244E-02_JPRB,0.76057E-02_JPRB,0.76690E-02_JPRB,0.77086E-02_JPRB,0.77249E-02_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.75518E-02_JPRB,0.76303E-02_JPRB,0.76877E-02_JPRB,0.77209E-02_JPRB,0.77334E-02_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.75781E-02_JPRB,0.76519E-02_JPRB,0.77036E-02_JPRB,0.77320E-02_JPRB,0.77395E-02_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.76025E-02_JPRB,0.76727E-02_JPRB,0.77178E-02_JPRB,0.77409E-02_JPRB,0.77439E-02_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.76266E-02_JPRB,0.76908E-02_JPRB,0.77289E-02_JPRB,0.77461E-02_JPRB,0.77464E-02_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.76450E-02_JPRB,0.77038E-02_JPRB,0.77387E-02_JPRB,0.77507E-02_JPRB,0.77465E-02_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.76558E-02_JPRB,0.77117E-02_JPRB,0.77433E-02_JPRB,0.77536E-02_JPRB,0.77475E-02_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.76587E-02_JPRB,0.77150E-02_JPRB,0.77452E-02_JPRB,0.77564E-02_JPRB,0.77495E-02_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.76522E-02_JPRB,0.77109E-02_JPRB,0.77439E-02_JPRB,0.77579E-02_JPRB,0.77534E-02_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.76429E-02_JPRB,0.77056E-02_JPRB,0.77426E-02_JPRB,0.77582E-02_JPRB,0.77560E-02_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.76339E-02_JPRB,0.76993E-02_JPRB,0.77402E-02_JPRB,0.77587E-02_JPRB,0.77588E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,40,15) = (/ &
+ & 0.76166E-02_JPRB,0.76865E-02_JPRB,0.77335E-02_JPRB,0.77564E-02_JPRB,0.77613E-02_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.75961E-02_JPRB,0.76706E-02_JPRB,0.77239E-02_JPRB,0.77534E-02_JPRB,0.77621E-02_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.75752E-02_JPRB,0.76537E-02_JPRB,0.77143E-02_JPRB,0.77487E-02_JPRB,0.77622E-02_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.75459E-02_JPRB,0.76317E-02_JPRB,0.76988E-02_JPRB,0.77406E-02_JPRB,0.77602E-02_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.75134E-02_JPRB,0.76061E-02_JPRB,0.76788E-02_JPRB,0.77299E-02_JPRB,0.77567E-02_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.74772E-02_JPRB,0.75773E-02_JPRB,0.76562E-02_JPRB,0.77161E-02_JPRB,0.77502E-02_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.74372E-02_JPRB,0.75438E-02_JPRB,0.76298E-02_JPRB,0.76975E-02_JPRB,0.77405E-02_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.73875E-02_JPRB,0.75032E-02_JPRB,0.75980E-02_JPRB,0.76724E-02_JPRB,0.77261E-02_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.73358E-02_JPRB,0.74597E-02_JPRB,0.75632E-02_JPRB,0.76453E-02_JPRB,0.77080E-02_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.72811E-02_JPRB,0.74117E-02_JPRB,0.75238E-02_JPRB,0.76147E-02_JPRB,0.76865E-02_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.72248E-02_JPRB,0.73656E-02_JPRB,0.74842E-02_JPRB,0.75831E-02_JPRB,0.76614E-02_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.71662E-02_JPRB,0.73174E-02_JPRB,0.74427E-02_JPRB,0.75493E-02_JPRB,0.76342E-02_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.71006E-02_JPRB,0.72655E-02_JPRB,0.73997E-02_JPRB,0.75133E-02_JPRB,0.76064E-02_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.70300E-02_JPRB,0.72101E-02_JPRB,0.73531E-02_JPRB,0.74734E-02_JPRB,0.75745E-02_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.69596E-02_JPRB,0.71548E-02_JPRB,0.73082E-02_JPRB,0.74357E-02_JPRB,0.75431E-02_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.68873E-02_JPRB,0.70968E-02_JPRB,0.72620E-02_JPRB,0.73967E-02_JPRB,0.75110E-02_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.68089E-02_JPRB,0.70345E-02_JPRB,0.72141E-02_JPRB,0.73575E-02_JPRB,0.74766E-02_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.67241E-02_JPRB,0.69678E-02_JPRB,0.71623E-02_JPRB,0.73141E-02_JPRB,0.74401E-02_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.66371E-02_JPRB,0.69009E-02_JPRB,0.71063E-02_JPRB,0.72699E-02_JPRB,0.74044E-02_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.66009E-02_JPRB,0.68723E-02_JPRB,0.70852E-02_JPRB,0.72532E-02_JPRB,0.73888E-02_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.20091E-01_JPRB,0.19310E-01_JPRB,0.18586E-01_JPRB,0.17917E-01_JPRB,0.17293E-01_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.21405E-01_JPRB,0.20507E-01_JPRB,0.19679E-01_JPRB,0.18912E-01_JPRB,0.18201E-01_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.22567E-01_JPRB,0.21555E-01_JPRB,0.20633E-01_JPRB,0.19775E-01_JPRB,0.18992E-01_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.23562E-01_JPRB,0.22456E-01_JPRB,0.21445E-01_JPRB,0.20508E-01_JPRB,0.19661E-01_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.24411E-01_JPRB,0.23217E-01_JPRB,0.22126E-01_JPRB,0.21126E-01_JPRB,0.20220E-01_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.25116E-01_JPRB,0.23847E-01_JPRB,0.22688E-01_JPRB,0.21635E-01_JPRB,0.20680E-01_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.25693E-01_JPRB,0.24361E-01_JPRB,0.23149E-01_JPRB,0.22047E-01_JPRB,0.21053E-01_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.26126E-01_JPRB,0.24747E-01_JPRB,0.23489E-01_JPRB,0.22355E-01_JPRB,0.21332E-01_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.26457E-01_JPRB,0.25034E-01_JPRB,0.23751E-01_JPRB,0.22588E-01_JPRB,0.21537E-01_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.26586E-01_JPRB,0.25153E-01_JPRB,0.23857E-01_JPRB,0.22677E-01_JPRB,0.21621E-01_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.26640E-01_JPRB,0.25191E-01_JPRB,0.23890E-01_JPRB,0.22706E-01_JPRB,0.21649E-01_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.26616E-01_JPRB,0.25160E-01_JPRB,0.23861E-01_JPRB,0.22680E-01_JPRB,0.21622E-01_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.26518E-01_JPRB,0.25075E-01_JPRB,0.23777E-01_JPRB,0.22603E-01_JPRB,0.21555E-01_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.26348E-01_JPRB,0.24922E-01_JPRB,0.23637E-01_JPRB,0.22478E-01_JPRB,0.21437E-01_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.26138E-01_JPRB,0.24737E-01_JPRB,0.23465E-01_JPRB,0.22328E-01_JPRB,0.21299E-01_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.25904E-01_JPRB,0.24526E-01_JPRB,0.23272E-01_JPRB,0.22156E-01_JPRB,0.21140E-01_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.25645E-01_JPRB,0.24289E-01_JPRB,0.23059E-01_JPRB,0.21960E-01_JPRB,0.20965E-01_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.25364E-01_JPRB,0.24034E-01_JPRB,0.22831E-01_JPRB,0.21758E-01_JPRB,0.20776E-01_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.25075E-01_JPRB,0.23766E-01_JPRB,0.22595E-01_JPRB,0.21541E-01_JPRB,0.20581E-01_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.24769E-01_JPRB,0.23490E-01_JPRB,0.22348E-01_JPRB,0.21316E-01_JPRB,0.20377E-01_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.24460E-01_JPRB,0.23211E-01_JPRB,0.22098E-01_JPRB,0.21090E-01_JPRB,0.20170E-01_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.24193E-01_JPRB,0.22975E-01_JPRB,0.21887E-01_JPRB,0.20894E-01_JPRB,0.19994E-01_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.24050E-01_JPRB,0.22849E-01_JPRB,0.21770E-01_JPRB,0.20789E-01_JPRB,0.19901E-01_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.24043E-01_JPRB,0.22842E-01_JPRB,0.21764E-01_JPRB,0.20784E-01_JPRB,0.19894E-01_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.24229E-01_JPRB,0.23006E-01_JPRB,0.21915E-01_JPRB,0.20918E-01_JPRB,0.20018E-01_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.24421E-01_JPRB,0.23180E-01_JPRB,0.22070E-01_JPRB,0.21062E-01_JPRB,0.20144E-01_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.24617E-01_JPRB,0.23352E-01_JPRB,0.22226E-01_JPRB,0.21205E-01_JPRB,0.20274E-01_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.24953E-01_JPRB,0.23654E-01_JPRB,0.22496E-01_JPRB,0.21449E-01_JPRB,0.20495E-01_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.25312E-01_JPRB,0.23980E-01_JPRB,0.22786E-01_JPRB,0.21712E-01_JPRB,0.20738E-01_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.25679E-01_JPRB,0.24315E-01_JPRB,0.23082E-01_JPRB,0.21982E-01_JPRB,0.20981E-01_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.26140E-01_JPRB,0.24730E-01_JPRB,0.23454E-01_JPRB,0.22317E-01_JPRB,0.21287E-01_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.26653E-01_JPRB,0.25200E-01_JPRB,0.23871E-01_JPRB,0.22691E-01_JPRB,0.21628E-01_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.27190E-01_JPRB,0.25674E-01_JPRB,0.24311E-01_JPRB,0.23078E-01_JPRB,0.21977E-01_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.27783E-01_JPRB,0.26205E-01_JPRB,0.24787E-01_JPRB,0.23504E-01_JPRB,0.22362E-01_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.28471E-01_JPRB,0.26819E-01_JPRB,0.25343E-01_JPRB,0.24006E-01_JPRB,0.22809E-01_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.29185E-01_JPRB,0.27464E-01_JPRB,0.25918E-01_JPRB,0.24532E-01_JPRB,0.23275E-01_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.29935E-01_JPRB,0.28138E-01_JPRB,0.26520E-01_JPRB,0.25074E-01_JPRB,0.23762E-01_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.30661E-01_JPRB,0.28793E-01_JPRB,0.27111E-01_JPRB,0.25603E-01_JPRB,0.24243E-01_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.31401E-01_JPRB,0.29455E-01_JPRB,0.27706E-01_JPRB,0.26135E-01_JPRB,0.24726E-01_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.32182E-01_JPRB,0.30140E-01_JPRB,0.28322E-01_JPRB,0.26686E-01_JPRB,0.25224E-01_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.33002E-01_JPRB,0.30856E-01_JPRB,0.28966E-01_JPRB,0.27268E-01_JPRB,0.25738E-01_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.33792E-01_JPRB,0.31541E-01_JPRB,0.29577E-01_JPRB,0.27816E-01_JPRB,0.26234E-01_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.34581E-01_JPRB,0.32233E-01_JPRB,0.30182E-01_JPRB,0.28363E-01_JPRB,0.26721E-01_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.35416E-01_JPRB,0.32947E-01_JPRB,0.30807E-01_JPRB,0.28926E-01_JPRB,0.27227E-01_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.36291E-01_JPRB,0.33701E-01_JPRB,0.31460E-01_JPRB,0.29510E-01_JPRB,0.27750E-01_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.37161E-01_JPRB,0.34436E-01_JPRB,0.32106E-01_JPRB,0.30077E-01_JPRB,0.28264E-01_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.37521E-01_JPRB,0.34750E-01_JPRB,0.32373E-01_JPRB,0.30309E-01_JPRB,0.28477E-01_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.515619E-08_JPRB, 0.131078E-06_JPRB, 0.349038E-06_JPRB /)
+FORREF(:, 2) = (/ 0.329605E-07_JPRB, 0.430497E-06_JPRB, 0.458569E-05_JPRB /)
+FORREF(:, 3) = (/ 0.188244E-06_JPRB, 0.792931E-06_JPRB, 0.267176E-05_JPRB /)
+FORREF(:, 4) = (/ 0.611237E-06_JPRB, 0.798868E-06_JPRB, 0.411583E-06_JPRB /)
+FORREF(:, 5) = (/ 0.111903E-05_JPRB, 0.914895E-06_JPRB, 0.444828E-06_JPRB /)
+FORREF(:, 6) = (/ 0.235399E-05_JPRB, 0.269099E-05_JPRB, 0.739855E-06_JPRB /)
+FORREF(:, 7) = (/ 0.400131E-05_JPRB, 0.378135E-05_JPRB, 0.231265E-06_JPRB /)
+FORREF(:, 8) = (/ 0.464257E-05_JPRB, 0.371927E-05_JPRB, 0.460611E-06_JPRB /)
+FORREF(:, 9) = (/ 0.476792E-05_JPRB, 0.311841E-05_JPRB, 0.934811E-06_JPRB /)
+FORREF(:,10) = (/ 0.555683E-05_JPRB, 0.238129E-05_JPRB, 0.400334E-07_JPRB /)
+FORREF(:,11) = (/ 0.569068E-05_JPRB, 0.196039E-05_JPRB, 0.374476E-07_JPRB /)
+FORREF(:,12) = (/ 0.554154E-05_JPRB, 0.131724E-05_JPRB, 0.399720E-07_JPRB /)
+FORREF(:,13) = (/ 0.462684E-05_JPRB, 0.238826E-07_JPRB, 0.325793E-07_JPRB /)
+FORREF(:,14) = (/ 0.808644E-06_JPRB, 0.105126E-11_JPRB, 0.148691E-07_JPRB /)
+FORREF(:,15) = (/ 0.865024E-12_JPRB, 0.822434E-12_JPRB, 0.825756E-12_JPRB /)
+FORREF(:,16) = (/ 0.945747E-12_JPRB, 0.802065E-12_JPRB, 0.724732E-12_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.637755E-05_JPRB, 0.403921E-05_JPRB, 0.255823E-05_JPRB, 0.162025E-05_JPRB, 0.102618E-05_JPRB, &
+ & 0.649930E-06_JPRB, 0.411632E-06_JPRB, 0.260707E-06_JPRB, 0.165118E-06_JPRB, 0.104577E-06_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.180887E-04_JPRB, 0.108890E-04_JPRB, 0.655493E-05_JPRB, 0.394592E-05_JPRB, 0.237536E-05_JPRB, &
+ & 0.142991E-05_JPRB, 0.860774E-06_JPRB, 0.518167E-06_JPRB, 0.311925E-06_JPRB, 0.187772E-06_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.212261E-04_JPRB, 0.150697E-04_JPRB, 0.106989E-04_JPRB, 0.759581E-05_JPRB, 0.539274E-05_JPRB, &
+ & 0.382864E-05_JPRB, 0.271819E-05_JPRB, 0.192981E-05_JPRB, 0.137009E-05_JPRB, 0.972711E-06_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.132497E-04_JPRB, 0.118071E-04_JPRB, 0.105216E-04_JPRB, 0.937599E-05_JPRB, 0.835516E-05_JPRB, &
+ & 0.744547E-05_JPRB, 0.663482E-05_JPRB, 0.591243E-05_JPRB, 0.526870E-05_JPRB, 0.469506E-05_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.124069E-04_JPRB, 0.120785E-04_JPRB, 0.117589E-04_JPRB, 0.114477E-04_JPRB, 0.111447E-04_JPRB, &
+ & 0.108498E-04_JPRB, 0.105626E-04_JPRB, 0.102831E-04_JPRB, 0.100109E-04_JPRB, 0.974601E-05_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.411994E-04_JPRB, 0.372560E-04_JPRB, 0.336901E-04_JPRB, 0.304654E-04_JPRB, 0.275494E-04_JPRB, &
+ & 0.249126E-04_JPRB, 0.225281E-04_JPRB, 0.203718E-04_JPRB, 0.184219E-04_JPRB, 0.166587E-04_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.537376E-04_JPRB, 0.501002E-04_JPRB, 0.467090E-04_JPRB, 0.435473E-04_JPRB, 0.405996E-04_JPRB, &
+ & 0.378515E-04_JPRB, 0.352893E-04_JPRB, 0.329006E-04_JPRB, 0.306736E-04_JPRB, 0.285974E-04_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.494279E-04_JPRB, 0.475365E-04_JPRB, 0.457175E-04_JPRB, 0.439681E-04_JPRB, 0.422857E-04_JPRB, &
+ & 0.406676E-04_JPRB, 0.391114E-04_JPRB, 0.376148E-04_JPRB, 0.361755E-04_JPRB, 0.347912E-04_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.377444E-04_JPRB, 0.378199E-04_JPRB, 0.378956E-04_JPRB, 0.379715E-04_JPRB, 0.380475E-04_JPRB, &
+ & 0.381236E-04_JPRB, 0.381999E-04_JPRB, 0.382763E-04_JPRB, 0.383529E-04_JPRB, 0.384297E-04_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.245916E-04_JPRB, 0.267183E-04_JPRB, 0.290289E-04_JPRB, 0.315394E-04_JPRB, 0.342669E-04_JPRB, &
+ & 0.372304E-04_JPRB, 0.404501E-04_JPRB, 0.439483E-04_JPRB, 0.477490E-04_JPRB, 0.518784E-04_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.186528E-04_JPRB, 0.211417E-04_JPRB, 0.239628E-04_JPRB, 0.271603E-04_JPRB, 0.307845E-04_JPRB, &
+ & 0.348923E-04_JPRB, 0.395482E-04_JPRB, 0.448254E-04_JPRB, 0.508068E-04_JPRB, 0.575863E-04_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.109896E-04_JPRB, 0.133794E-04_JPRB, 0.162890E-04_JPRB, 0.198312E-04_JPRB, 0.241438E-04_JPRB, &
+ & 0.293942E-04_JPRB, 0.357864E-04_JPRB, 0.435686E-04_JPRB, 0.530432E-04_JPRB, 0.645781E-04_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.183885E-06_JPRB, 0.391019E-06_JPRB, 0.831472E-06_JPRB, 0.176806E-05_JPRB, 0.375966E-05_JPRB, &
+ & 0.799463E-05_JPRB, 0.170000E-04_JPRB, 0.361492E-04_JPRB, 0.768686E-04_JPRB, 0.163455E-03_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.466057E-07_JPRB, 0.937419E-07_JPRB, 0.188551E-06_JPRB, 0.379248E-06_JPRB, 0.762813E-06_JPRB, &
+ & 0.153431E-05_JPRB, 0.308608E-05_JPRB, 0.620729E-05_JPRB, 0.124852E-04_JPRB, 0.251126E-04_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.248961E-06_JPRB, 0.216780E-06_JPRB, 0.188758E-06_JPRB, 0.164358E-06_JPRB, 0.143113E-06_JPRB, &
+ & 0.124613E-06_JPRB, 0.108505E-06_JPRB, 0.944795E-07_JPRB, 0.822667E-07_JPRB, 0.716326E-07_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.252246E-06_JPRB, 0.220335E-06_JPRB, 0.192462E-06_JPRB, 0.168114E-06_JPRB, 0.146847E-06_JPRB, &
+ & 0.128270E-06_JPRB, 0.112043E-06_JPRB, 0.978688E-07_JPRB, 0.854878E-07_JPRB, 0.746731E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB24
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb24.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb24.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb24.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB24
+END SUBROUTINE SRTM_KGB24
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb25.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb25.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb25.F90	(revision 3330)
@@ -0,0 +1,493 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB25
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 25: 16000-22650 cm-1 (low - H2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA25, ONLY : KA, SFLUXREF, RAYL, ABSO3A, ABSO3B &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB25',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 42.6858_JPRB , 45.7720_JPRB, 44.9872_JPRB, 45.9662_JPRB    , &
+ & 46.5458_JPRB , 41.6926_JPRB, 32.2893_JPRB, 24.0928_JPRB    , &
+ & 16.7686_JPRB , 1.86048_JPRB, 1.54057_JPRB, 1.23503_JPRB    , &
+ & 0.915085_JPRB,0.590099_JPRB,0.218622_JPRB, 3.21287E-02_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 2925 cm-1.
+RAYL = (/ &
+ & 9.81132E-07_JPRB,8.25605E-07_JPRB,6.71302E-07_JPRB,5.53556E-07_JPRB,  &
+ & 3.97383E-07_JPRB,3.68206E-07_JPRB,4.42379E-07_JPRB,4.57799E-07_JPRB, &
+ & 4.22683E-07_JPRB,3.87113E-07_JPRB,3.79810E-07_JPRB,3.63192E-07_JPRB, &
+ & 3.51921E-07_JPRB,3.34231E-07_JPRB,3.34294E-07_JPRB,3.32673E-07_JPRB /)  
+     
+ABSO3A = (/ &
+ & 2.32664E-02_JPRB,5.76154E-02_JPRB,0.125389_JPRB,0.250158_JPRB, &
+ & 0.378756_JPRB   ,0.402196_JPRB   ,0.352026_JPRB,0.352036_JPRB, &
+ & 0.386253_JPRB   ,0.414598_JPRB   ,0.420079_JPRB,0.435471_JPRB, &
+ & 0.445487_JPRB   ,0.459549_JPRB   ,0.452920_JPRB,0.456838_JPRB /)  
+
+ABSO3B = (/      &
+ & 1.76917E-02_JPRB,4.64185E-02_JPRB,1.03640E-01_JPRB,0.189469_JPRB, &
+ & 0.303858_JPRB   ,0.400248_JPRB   ,0.447357_JPRB   ,0.470009_JPRB, &
+ & 0.498673_JPRB   ,0.515696_JPRB   ,0.517053_JPRB   ,0.517930_JPRB, &
+ & 0.518345_JPRB   ,0.524952_JPRB   ,0.508244_JPRB   ,0.468981_JPRB /)  
+
+LAYREFFR = 2
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.16461E-08_JPRB,0.16782E-08_JPRB,0.19339E-08_JPRB,0.17100E-08_JPRB,0.17045E-08_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.28759E-08_JPRB,0.29469E-08_JPRB,0.33789E-08_JPRB,0.34357E-08_JPRB,0.28833E-08_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.55148E-08_JPRB,0.54808E-08_JPRB,0.54190E-08_JPRB,0.68260E-08_JPRB,0.51972E-08_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.95336E-08_JPRB,0.94552E-08_JPRB,0.93001E-08_JPRB,0.90961E-08_JPRB,0.14451E-07_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.14930E-07_JPRB,0.14736E-07_JPRB,0.14432E-07_JPRB,0.14074E-07_JPRB,0.24102E-07_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.22770E-07_JPRB,0.22301E-07_JPRB,0.21778E-07_JPRB,0.21194E-07_JPRB,0.20569E-07_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.34699E-07_JPRB,0.33951E-07_JPRB,0.33124E-07_JPRB,0.32144E-07_JPRB,0.31220E-07_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.62339E-07_JPRB,0.60405E-07_JPRB,0.59548E-07_JPRB,0.58214E-07_JPRB,0.56977E-07_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.17411E-06_JPRB,0.17654E-06_JPRB,0.18315E-06_JPRB,0.18100E-06_JPRB,0.17839E-06_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.23526E-06_JPRB,0.22729E-06_JPRB,0.21947E-06_JPRB,0.21188E-06_JPRB,0.20454E-06_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.23535E-06_JPRB,0.22737E-06_JPRB,0.21956E-06_JPRB,0.21196E-06_JPRB,0.20461E-06_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.23539E-06_JPRB,0.22740E-06_JPRB,0.21959E-06_JPRB,0.21199E-06_JPRB,0.20465E-06_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.23543E-06_JPRB,0.22744E-06_JPRB,0.21962E-06_JPRB,0.21202E-06_JPRB,0.20467E-06_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.62912E-08_JPRB,0.61559E-08_JPRB,0.84640E-08_JPRB,0.59240E-08_JPRB,0.58217E-08_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.83749E-08_JPRB,0.80756E-08_JPRB,0.11623E-07_JPRB,0.11272E-07_JPRB,0.73636E-08_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.13304E-07_JPRB,0.12795E-07_JPRB,0.12343E-07_JPRB,0.21235E-07_JPRB,0.11577E-07_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.20704E-07_JPRB,0.19736E-07_JPRB,0.18900E-07_JPRB,0.18228E-07_JPRB,0.31601E-07_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.31149E-07_JPRB,0.29669E-07_JPRB,0.28318E-07_JPRB,0.27101E-07_JPRB,0.49649E-07_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.45713E-07_JPRB,0.43519E-07_JPRB,0.41488E-07_JPRB,0.39918E-07_JPRB,0.38291E-07_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.77265E-07_JPRB,0.73848E-07_JPRB,0.70437E-07_JPRB,0.67945E-07_JPRB,0.66127E-07_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.15754E-06_JPRB,0.15664E-06_JPRB,0.15378E-06_JPRB,0.15027E-06_JPRB,0.14633E-06_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.16439E-06_JPRB,0.14678E-06_JPRB,0.12610E-06_JPRB,0.11532E-06_JPRB,0.10591E-06_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.14366E-06_JPRB,0.13506E-06_JPRB,0.12583E-06_JPRB,0.11774E-06_JPRB,0.11011E-06_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.14521E-06_JPRB,0.13766E-06_JPRB,0.13072E-06_JPRB,0.12218E-06_JPRB,0.11400E-06_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.14524E-06_JPRB,0.13769E-06_JPRB,0.13074E-06_JPRB,0.12241E-06_JPRB,0.11552E-06_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.14525E-06_JPRB,0.13770E-06_JPRB,0.13075E-06_JPRB,0.12252E-06_JPRB,0.11553E-06_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.14060E-07_JPRB,0.13587E-07_JPRB,0.24644E-07_JPRB,0.12716E-07_JPRB,0.12367E-07_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.17055E-07_JPRB,0.16577E-07_JPRB,0.32443E-07_JPRB,0.31273E-07_JPRB,0.15381E-07_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.25414E-07_JPRB,0.24672E-07_JPRB,0.23874E-07_JPRB,0.47281E-07_JPRB,0.22346E-07_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.39536E-07_JPRB,0.38124E-07_JPRB,0.36836E-07_JPRB,0.35587E-07_JPRB,0.72260E-07_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.59488E-07_JPRB,0.57630E-07_JPRB,0.55623E-07_JPRB,0.53878E-07_JPRB,0.11230E-06_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.99996E-07_JPRB,0.96206E-07_JPRB,0.93184E-07_JPRB,0.90812E-07_JPRB,0.89206E-07_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.17678E-06_JPRB,0.17554E-06_JPRB,0.17358E-06_JPRB,0.17091E-06_JPRB,0.16830E-06_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.18672E-06_JPRB,0.17850E-06_JPRB,0.16967E-06_JPRB,0.16275E-06_JPRB,0.15875E-06_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.13558E-06_JPRB,0.13493E-06_JPRB,0.13633E-06_JPRB,0.13799E-06_JPRB,0.13932E-06_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.18883E-06_JPRB,0.20452E-06_JPRB,0.22206E-06_JPRB,0.24347E-06_JPRB,0.26091E-06_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.21296E-06_JPRB,0.23580E-06_JPRB,0.26439E-06_JPRB,0.30148E-06_JPRB,0.34942E-06_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.22072E-06_JPRB,0.25535E-06_JPRB,0.28661E-06_JPRB,0.34814E-06_JPRB,0.39337E-06_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.22515E-06_JPRB,0.26161E-06_JPRB,0.30833E-06_JPRB,0.36527E-06_JPRB,0.40123E-06_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.32735E-07_JPRB,0.31345E-07_JPRB,0.58846E-07_JPRB,0.28258E-07_JPRB,0.27022E-07_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.37754E-07_JPRB,0.36873E-07_JPRB,0.82776E-07_JPRB,0.80947E-07_JPRB,0.35190E-07_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.76368E-07_JPRB,0.75292E-07_JPRB,0.74075E-07_JPRB,0.10820E-06_JPRB,0.73183E-07_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.16392E-06_JPRB,0.16130E-06_JPRB,0.15926E-06_JPRB,0.15700E-06_JPRB,0.22041E-06_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.29704E-06_JPRB,0.28924E-06_JPRB,0.28301E-06_JPRB,0.27633E-06_JPRB,0.42284E-06_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.48466E-06_JPRB,0.47240E-06_JPRB,0.46143E-06_JPRB,0.45012E-06_JPRB,0.43867E-06_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.71637E-06_JPRB,0.69847E-06_JPRB,0.67384E-06_JPRB,0.65368E-06_JPRB,0.63375E-06_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.11904E-05_JPRB,0.11714E-05_JPRB,0.11524E-05_JPRB,0.11354E-05_JPRB,0.11172E-05_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.21976E-05_JPRB,0.21606E-05_JPRB,0.21332E-05_JPRB,0.20944E-05_JPRB,0.20536E-05_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.21713E-05_JPRB,0.21144E-05_JPRB,0.20553E-05_JPRB,0.19901E-05_JPRB,0.19286E-05_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.21443E-05_JPRB,0.20785E-05_JPRB,0.20048E-05_JPRB,0.19232E-05_JPRB,0.18295E-05_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.21363E-05_JPRB,0.20578E-05_JPRB,0.19811E-05_JPRB,0.18729E-05_JPRB,0.17807E-05_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.21319E-05_JPRB,0.20513E-05_JPRB,0.19580E-05_JPRB,0.18546E-05_JPRB,0.17725E-05_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.36050E-07_JPRB,0.36125E-07_JPRB,0.46253E-07_JPRB,0.37280E-07_JPRB,0.37359E-07_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.65102E-07_JPRB,0.64266E-07_JPRB,0.68896E-07_JPRB,0.65925E-07_JPRB,0.61190E-07_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.12173E-06_JPRB,0.11889E-06_JPRB,0.11625E-06_JPRB,0.17574E-06_JPRB,0.10921E-06_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.20555E-06_JPRB,0.19853E-06_JPRB,0.19068E-06_JPRB,0.18313E-06_JPRB,0.30241E-06_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.30900E-06_JPRB,0.29996E-06_JPRB,0.28857E-06_JPRB,0.27772E-06_JPRB,0.51631E-06_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.43774E-06_JPRB,0.42465E-06_JPRB,0.40920E-06_JPRB,0.39315E-06_JPRB,0.37901E-06_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.63869E-06_JPRB,0.61654E-06_JPRB,0.60324E-06_JPRB,0.58966E-06_JPRB,0.57948E-06_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.98362E-06_JPRB,0.96271E-06_JPRB,0.94180E-06_JPRB,0.92206E-06_JPRB,0.91105E-06_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.12061E-05_JPRB,0.11895E-05_JPRB,0.11564E-05_JPRB,0.11296E-05_JPRB,0.11110E-05_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.12958E-05_JPRB,0.12694E-05_JPRB,0.12425E-05_JPRB,0.12153E-05_JPRB,0.11880E-05_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.12962E-05_JPRB,0.12698E-05_JPRB,0.12429E-05_JPRB,0.12156E-05_JPRB,0.11883E-05_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.12964E-05_JPRB,0.12701E-05_JPRB,0.12431E-05_JPRB,0.12158E-05_JPRB,0.11885E-05_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.12966E-05_JPRB,0.12702E-05_JPRB,0.12433E-05_JPRB,0.12160E-05_JPRB,0.11886E-05_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.73925E-07_JPRB,0.70231E-07_JPRB,0.21454E-06_JPRB,0.63477E-07_JPRB,0.60912E-07_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.67794E-07_JPRB,0.65807E-07_JPRB,0.13854E-06_JPRB,0.13061E-06_JPRB,0.59361E-07_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.98353E-07_JPRB,0.95275E-07_JPRB,0.92426E-07_JPRB,0.15768E-06_JPRB,0.87986E-07_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.15855E-06_JPRB,0.15394E-06_JPRB,0.14948E-06_JPRB,0.14655E-06_JPRB,0.23172E-06_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.27764E-06_JPRB,0.26941E-06_JPRB,0.26299E-06_JPRB,0.25975E-06_JPRB,0.40526E-06_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.45469E-06_JPRB,0.44417E-06_JPRB,0.43276E-06_JPRB,0.42440E-06_JPRB,0.41489E-06_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.71540E-06_JPRB,0.71291E-06_JPRB,0.70656E-06_JPRB,0.69823E-06_JPRB,0.68342E-06_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.79651E-06_JPRB,0.79807E-06_JPRB,0.80621E-06_JPRB,0.80941E-06_JPRB,0.79835E-06_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.18716E-06_JPRB,0.16713E-06_JPRB,0.14725E-06_JPRB,0.13728E-06_JPRB,0.11763E-06_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.92638E-07_JPRB,0.86207E-07_JPRB,0.80877E-07_JPRB,0.70432E-07_JPRB,0.64517E-07_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.13396E-06_JPRB,0.12820E-06_JPRB,0.12387E-06_JPRB,0.10427E-06_JPRB,0.94091E-07_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.14877E-06_JPRB,0.14827E-06_JPRB,0.14350E-06_JPRB,0.12154E-06_JPRB,0.10552E-06_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.15437E-06_JPRB,0.15323E-06_JPRB,0.14992E-06_JPRB,0.12715E-06_JPRB,0.10933E-06_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.72717E-06_JPRB,0.70656E-06_JPRB,0.13933E-05_JPRB,0.66449E-06_JPRB,0.64269E-06_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.52595E-06_JPRB,0.50791E-06_JPRB,0.11171E-05_JPRB,0.10538E-05_JPRB,0.45644E-06_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.29919E-06_JPRB,0.29227E-06_JPRB,0.28284E-06_JPRB,0.65215E-06_JPRB,0.26347E-06_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.27961E-06_JPRB,0.27579E-06_JPRB,0.27068E-06_JPRB,0.26343E-06_JPRB,0.41265E-06_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.37031E-06_JPRB,0.36318E-06_JPRB,0.35475E-06_JPRB,0.34488E-06_JPRB,0.53740E-06_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.53195E-06_JPRB,0.52692E-06_JPRB,0.52224E-06_JPRB,0.51934E-06_JPRB,0.51146E-06_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.83043E-06_JPRB,0.84552E-06_JPRB,0.84833E-06_JPRB,0.82800E-06_JPRB,0.80930E-06_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.14910E-05_JPRB,0.15179E-05_JPRB,0.15248E-05_JPRB,0.15091E-05_JPRB,0.14853E-05_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.37340E-05_JPRB,0.37823E-05_JPRB,0.38311E-05_JPRB,0.38453E-05_JPRB,0.38567E-05_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.86791E-05_JPRB,0.89697E-05_JPRB,0.92118E-05_JPRB,0.93991E-05_JPRB,0.95564E-05_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.11878E-04_JPRB,0.12201E-04_JPRB,0.12588E-04_JPRB,0.12897E-04_JPRB,0.13151E-04_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.13192E-04_JPRB,0.13732E-04_JPRB,0.14137E-04_JPRB,0.14465E-04_JPRB,0.14643E-04_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.13716E-04_JPRB,0.14229E-04_JPRB,0.14617E-04_JPRB,0.14944E-04_JPRB,0.15182E-04_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.39538E-05_JPRB,0.38949E-05_JPRB,0.56188E-05_JPRB,0.37475E-05_JPRB,0.36648E-05_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.34231E-05_JPRB,0.33633E-05_JPRB,0.51877E-05_JPRB,0.50048E-05_JPRB,0.31425E-05_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.28073E-05_JPRB,0.27497E-05_JPRB,0.26875E-05_JPRB,0.44405E-05_JPRB,0.25492E-05_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.19229E-05_JPRB,0.18818E-05_JPRB,0.18382E-05_JPRB,0.17896E-05_JPRB,0.33073E-05_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.11453E-05_JPRB,0.11293E-05_JPRB,0.11095E-05_JPRB,0.10866E-05_JPRB,0.19344E-05_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.14565E-05_JPRB,0.14517E-05_JPRB,0.14369E-05_JPRB,0.14141E-05_JPRB,0.13944E-05_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.23228E-05_JPRB,0.22753E-05_JPRB,0.22395E-05_JPRB,0.22124E-05_JPRB,0.21731E-05_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.34877E-05_JPRB,0.34362E-05_JPRB,0.33796E-05_JPRB,0.33389E-05_JPRB,0.32924E-05_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.63448E-05_JPRB,0.63701E-05_JPRB,0.63619E-05_JPRB,0.62632E-05_JPRB,0.61645E-05_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.12155E-04_JPRB,0.11880E-04_JPRB,0.11762E-04_JPRB,0.11759E-04_JPRB,0.11651E-04_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.14093E-04_JPRB,0.13835E-04_JPRB,0.13547E-04_JPRB,0.13205E-04_JPRB,0.12690E-04_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.14428E-04_JPRB,0.14056E-04_JPRB,0.13932E-04_JPRB,0.13396E-04_JPRB,0.12885E-04_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.15229E-04_JPRB,0.14534E-04_JPRB,0.13849E-04_JPRB,0.13292E-04_JPRB,0.12704E-04_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.19250E-04_JPRB,0.19148E-04_JPRB,0.21702E-04_JPRB,0.18906E-04_JPRB,0.18761E-04_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.18132E-04_JPRB,0.18040E-04_JPRB,0.20884E-04_JPRB,0.20523E-04_JPRB,0.17656E-04_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.16928E-04_JPRB,0.16843E-04_JPRB,0.16742E-04_JPRB,0.19715E-04_JPRB,0.16470E-04_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.15526E-04_JPRB,0.15463E-04_JPRB,0.15377E-04_JPRB,0.15268E-04_JPRB,0.18367E-04_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.13545E-04_JPRB,0.13511E-04_JPRB,0.13455E-04_JPRB,0.13362E-04_JPRB,0.16722E-04_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.97183E-05_JPRB,0.97218E-05_JPRB,0.97084E-05_JPRB,0.96717E-05_JPRB,0.96030E-05_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.50307E-05_JPRB,0.50984E-05_JPRB,0.51628E-05_JPRB,0.52093E-05_JPRB,0.52354E-05_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.45837E-05_JPRB,0.45939E-05_JPRB,0.45938E-05_JPRB,0.45639E-05_JPRB,0.45109E-05_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.12254E-04_JPRB,0.12319E-04_JPRB,0.12397E-04_JPRB,0.12584E-04_JPRB,0.12620E-04_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.21545E-04_JPRB,0.21836E-04_JPRB,0.21718E-04_JPRB,0.21511E-04_JPRB,0.21211E-04_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.20079E-04_JPRB,0.19539E-04_JPRB,0.18859E-04_JPRB,0.18393E-04_JPRB,0.18181E-04_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.17115E-04_JPRB,0.16357E-04_JPRB,0.15410E-04_JPRB,0.15220E-04_JPRB,0.15207E-04_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.14935E-04_JPRB,0.14679E-04_JPRB,0.14593E-04_JPRB,0.14448E-04_JPRB,0.14436E-04_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.53569E-04_JPRB,0.53042E-04_JPRB,0.55454E-04_JPRB,0.52098E-04_JPRB,0.51678E-04_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.52196E-04_JPRB,0.51739E-04_JPRB,0.54777E-04_JPRB,0.54075E-04_JPRB,0.50624E-04_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.50339E-04_JPRB,0.50046E-04_JPRB,0.49769E-04_JPRB,0.53168E-04_JPRB,0.49370E-04_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.48505E-04_JPRB,0.48316E-04_JPRB,0.48143E-04_JPRB,0.47993E-04_JPRB,0.51621E-04_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.46313E-04_JPRB,0.46267E-04_JPRB,0.46119E-04_JPRB,0.46064E-04_JPRB,0.50279E-04_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.42662E-04_JPRB,0.42818E-04_JPRB,0.42935E-04_JPRB,0.43007E-04_JPRB,0.43099E-04_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.35762E-04_JPRB,0.36149E-04_JPRB,0.36450E-04_JPRB,0.36639E-04_JPRB,0.36887E-04_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.13516E-05_JPRB,0.18607E-05_JPRB,0.23061E-05_JPRB,0.27339E-05_JPRB,0.36516E-05_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.36432E-05_JPRB,0.40739E-05_JPRB,0.43830E-05_JPRB,0.41136E-05_JPRB,0.43128E-05_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.62049E-05_JPRB,0.69116E-05_JPRB,0.73244E-05_JPRB,0.65087E-05_JPRB,0.78951E-05_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.32156E-05_JPRB,0.38834E-05_JPRB,0.41231E-05_JPRB,0.43386E-05_JPRB,0.43405E-05_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.22152E-05_JPRB,0.26754E-05_JPRB,0.31971E-05_JPRB,0.34911E-05_JPRB,0.37935E-05_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.19792E-05_JPRB,0.26543E-05_JPRB,0.31511E-05_JPRB,0.34597E-05_JPRB,0.40624E-05_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.75384E-04_JPRB,0.75103E-04_JPRB,0.77406E-04_JPRB,0.74222E-04_JPRB,0.73734E-04_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.75458E-04_JPRB,0.75244E-04_JPRB,0.77778E-04_JPRB,0.77018E-04_JPRB,0.73942E-04_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.75023E-04_JPRB,0.74844E-04_JPRB,0.74477E-04_JPRB,0.77271E-04_JPRB,0.73633E-04_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.73633E-04_JPRB,0.73539E-04_JPRB,0.73257E-04_JPRB,0.72934E-04_JPRB,0.76232E-04_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.71348E-04_JPRB,0.71322E-04_JPRB,0.71227E-04_JPRB,0.71069E-04_JPRB,0.75258E-04_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.67784E-04_JPRB,0.67873E-04_JPRB,0.67974E-04_JPRB,0.67924E-04_JPRB,0.67903E-04_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.61855E-04_JPRB,0.61922E-04_JPRB,0.61973E-04_JPRB,0.62206E-04_JPRB,0.62496E-04_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.36622E-04_JPRB,0.37413E-04_JPRB,0.38740E-04_JPRB,0.40550E-04_JPRB,0.41833E-04_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.28544E-05_JPRB,0.28831E-05_JPRB,0.31445E-05_JPRB,0.32900E-05_JPRB,0.27967E-05_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.53755E-05_JPRB,0.42123E-05_JPRB,0.51154E-05_JPRB,0.63481E-05_JPRB,0.54219E-05_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.12605E-05_JPRB,0.14078E-05_JPRB,0.19167E-05_JPRB,0.23729E-05_JPRB,0.30161E-05_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.11370E-05_JPRB,0.91524E-06_JPRB,0.11150E-05_JPRB,0.14746E-05_JPRB,0.20128E-05_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.10511E-05_JPRB,0.10014E-05_JPRB,0.11405E-05_JPRB,0.13852E-05_JPRB,0.15576E-05_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.11184E-03_JPRB,0.11117E-03_JPRB,0.11327E-03_JPRB,0.10989E-03_JPRB,0.10910E-03_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.11379E-03_JPRB,0.11322E-03_JPRB,0.11555E-03_JPRB,0.11462E-03_JPRB,0.11135E-03_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.11508E-03_JPRB,0.11459E-03_JPRB,0.11421E-03_JPRB,0.11671E-03_JPRB,0.11339E-03_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.11596E-03_JPRB,0.11563E-03_JPRB,0.11538E-03_JPRB,0.11511E-03_JPRB,0.11770E-03_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.11597E-03_JPRB,0.11581E-03_JPRB,0.11569E-03_JPRB,0.11553E-03_JPRB,0.11890E-03_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.11443E-03_JPRB,0.11445E-03_JPRB,0.11443E-03_JPRB,0.11443E-03_JPRB,0.11438E-03_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.10852E-03_JPRB,0.10888E-03_JPRB,0.10912E-03_JPRB,0.10934E-03_JPRB,0.10942E-03_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.93194E-04_JPRB,0.94766E-04_JPRB,0.95355E-04_JPRB,0.95090E-04_JPRB,0.94926E-04_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.11836E-05_JPRB,0.16115E-05_JPRB,0.12883E-05_JPRB,0.14202E-05_JPRB,0.16541E-05_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.18748E-05_JPRB,0.34401E-05_JPRB,0.39984E-05_JPRB,0.44576E-05_JPRB,0.33683E-05_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.29890E-06_JPRB,0.48741E-06_JPRB,0.66276E-06_JPRB,0.99698E-06_JPRB,0.19230E-05_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.15034E-06_JPRB,0.39966E-06_JPRB,0.56523E-06_JPRB,0.70494E-06_JPRB,0.10046E-05_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.15016E-06_JPRB,0.25751E-06_JPRB,0.48928E-06_JPRB,0.63534E-06_JPRB,0.93575E-06_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.17305E-03_JPRB,0.17234E-03_JPRB,0.17389E-03_JPRB,0.17055E-03_JPRB,0.16974E-03_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.18170E-03_JPRB,0.18075E-03_JPRB,0.18265E-03_JPRB,0.18138E-03_JPRB,0.17772E-03_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.18990E-03_JPRB,0.18892E-03_JPRB,0.18776E-03_JPRB,0.18950E-03_JPRB,0.18494E-03_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.19649E-03_JPRB,0.19552E-03_JPRB,0.19424E-03_JPRB,0.19281E-03_JPRB,0.19464E-03_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.20197E-03_JPRB,0.20109E-03_JPRB,0.19993E-03_JPRB,0.19856E-03_JPRB,0.20092E-03_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.20595E-03_JPRB,0.20549E-03_JPRB,0.20452E-03_JPRB,0.20331E-03_JPRB,0.20199E-03_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.20703E-03_JPRB,0.20710E-03_JPRB,0.20649E-03_JPRB,0.20552E-03_JPRB,0.20428E-03_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.19874E-03_JPRB,0.19767E-03_JPRB,0.19696E-03_JPRB,0.19655E-03_JPRB,0.19591E-03_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.20434E-04_JPRB,0.23398E-04_JPRB,0.27400E-04_JPRB,0.32409E-04_JPRB,0.38451E-04_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.18617E-05_JPRB,0.99513E-06_JPRB,0.10554E-05_JPRB,0.16516E-05_JPRB,0.37792E-05_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.12517E-06_JPRB,0.29518E-06_JPRB,0.77058E-06_JPRB,0.11660E-05_JPRB,0.15349E-05_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.12734E-06_JPRB,0.36524E-06_JPRB,0.66699E-06_JPRB,0.10362E-05_JPRB,0.14158E-05_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.12431E-06_JPRB,0.39389E-06_JPRB,0.67331E-06_JPRB,0.10292E-05_JPRB,0.14448E-05_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.29365E-03_JPRB,0.29046E-03_JPRB,0.29008E-03_JPRB,0.28509E-03_JPRB,0.28286E-03_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.31990E-03_JPRB,0.31668E-03_JPRB,0.31617E-03_JPRB,0.31332E-03_JPRB,0.30885E-03_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.34787E-03_JPRB,0.34432E-03_JPRB,0.34112E-03_JPRB,0.34052E-03_JPRB,0.33589E-03_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.37401E-03_JPRB,0.37027E-03_JPRB,0.36696E-03_JPRB,0.36394E-03_JPRB,0.36355E-03_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.39840E-03_JPRB,0.39446E-03_JPRB,0.39082E-03_JPRB,0.38763E-03_JPRB,0.38760E-03_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.42165E-03_JPRB,0.41729E-03_JPRB,0.41335E-03_JPRB,0.41006E-03_JPRB,0.40721E-03_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.44257E-03_JPRB,0.43782E-03_JPRB,0.43364E-03_JPRB,0.43014E-03_JPRB,0.42736E-03_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.45299E-03_JPRB,0.44953E-03_JPRB,0.44586E-03_JPRB,0.44260E-03_JPRB,0.44006E-03_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.40190E-03_JPRB,0.39751E-03_JPRB,0.39238E-03_JPRB,0.38812E-03_JPRB,0.38612E-03_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.64278E-05_JPRB,0.18248E-05_JPRB,0.16996E-05_JPRB,0.31086E-06_JPRB,0.16836E-06_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.14350E-05_JPRB,0.94778E-06_JPRB,0.41349E-06_JPRB,0.20817E-06_JPRB,0.20238E-06_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.16805E-05_JPRB,0.15323E-05_JPRB,0.62348E-06_JPRB,0.99743E-07_JPRB,0.12977E-06_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.16858E-05_JPRB,0.17103E-05_JPRB,0.80574E-06_JPRB,0.15825E-06_JPRB,0.15032E-06_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.52181E-03_JPRB,0.51578E-03_JPRB,0.51251E-03_JPRB,0.50356E-03_JPRB,0.49731E-03_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.59491E-03_JPRB,0.58822E-03_JPRB,0.58413E-03_JPRB,0.57646E-03_JPRB,0.56692E-03_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.67653E-03_JPRB,0.66881E-03_JPRB,0.66126E-03_JPRB,0.65540E-03_JPRB,0.64461E-03_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.76388E-03_JPRB,0.75456E-03_JPRB,0.74556E-03_JPRB,0.73649E-03_JPRB,0.72840E-03_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.85507E-03_JPRB,0.84417E-03_JPRB,0.83378E-03_JPRB,0.82338E-03_JPRB,0.81349E-03_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.95034E-03_JPRB,0.93798E-03_JPRB,0.92553E-03_JPRB,0.91287E-03_JPRB,0.89957E-03_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.10496E-02_JPRB,0.10352E-02_JPRB,0.10206E-02_JPRB,0.10054E-02_JPRB,0.98958E-03_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.11507E-02_JPRB,0.11337E-02_JPRB,0.11169E-02_JPRB,0.10991E-02_JPRB,0.10806E-02_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.12408E-02_JPRB,0.12207E-02_JPRB,0.11996E-02_JPRB,0.11773E-02_JPRB,0.11531E-02_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.12042E-03_JPRB,0.11501E-03_JPRB,0.11424E-03_JPRB,0.11450E-03_JPRB,0.13219E-03_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.68914E-06_JPRB,0.83960E-06_JPRB,0.74591E-06_JPRB,0.18660E-05_JPRB,0.32503E-05_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.35963E-07_JPRB,0.46256E-06_JPRB,0.56223E-06_JPRB,0.98816E-06_JPRB,0.92366E-06_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.36605E-07_JPRB,0.56591E-06_JPRB,0.84008E-06_JPRB,0.86042E-06_JPRB,0.68452E-06_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.76517E-03_JPRB,0.75944E-03_JPRB,0.76010E-03_JPRB,0.76100E-03_JPRB,0.76498E-03_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.92375E-03_JPRB,0.91357E-03_JPRB,0.90997E-03_JPRB,0.90997E-03_JPRB,0.90993E-03_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.11142E-02_JPRB,0.10974E-02_JPRB,0.10835E-02_JPRB,0.10789E-02_JPRB,0.10748E-02_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.13278E-02_JPRB,0.13025E-02_JPRB,0.12802E-02_JPRB,0.12631E-02_JPRB,0.12539E-02_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.15712E-02_JPRB,0.15343E-02_JPRB,0.15017E-02_JPRB,0.14713E-02_JPRB,0.14497E-02_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.18525E-02_JPRB,0.17982E-02_JPRB,0.17525E-02_JPRB,0.17101E-02_JPRB,0.16714E-02_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.21731E-02_JPRB,0.20986E-02_JPRB,0.20340E-02_JPRB,0.19757E-02_JPRB,0.19210E-02_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.25325E-02_JPRB,0.24346E-02_JPRB,0.23473E-02_JPRB,0.22687E-02_JPRB,0.21950E-02_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.29269E-02_JPRB,0.28006E-02_JPRB,0.26863E-02_JPRB,0.25805E-02_JPRB,0.24878E-02_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.29442E-02_JPRB,0.27008E-02_JPRB,0.23913E-02_JPRB,0.21437E-02_JPRB,0.18865E-02_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.23220E-05_JPRB,0.22310E-04_JPRB,0.48349E-04_JPRB,0.67183E-04_JPRB,0.88908E-04_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.22857E-05_JPRB,0.11848E-04_JPRB,0.42066E-04_JPRB,0.67613E-04_JPRB,0.86033E-04_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.22823E-05_JPRB,0.69105E-05_JPRB,0.36212E-04_JPRB,0.66247E-04_JPRB,0.85488E-04_JPRB /)  
+  
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB25',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB25
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb25.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb25.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb25.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB25
+END SUBROUTINE SRTM_KGB25
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb26.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb26.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb26.F90	(revision 3330)
@@ -0,0 +1,43 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB26
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA26, ONLY : SFLUXREF, RAYL 
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB26',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ !  &     129.462_JPRB, 15*_ZERO_ /)
+ & 29.0079_JPRB,  28.4088_JPRB,     20.3099_JPRB,  13.0283_JPRB &
+ & ,  11.8619_JPRB,  9.95840_JPRB,     6.68696_JPRB,  5.38987_JPRB &
+ & ,  3.49829_JPRB, 0.407693_JPRB,    0.299027_JPRB, 0.236827_JPRB &
+ & , 0.188502_JPRB, 0.163489_JPRB, 4.64335E-02_JPRB, 2.72662E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at all v 
+RAYL = (/ &
+ & 1.21263E-06_JPRB,1.43428E-06_JPRB,1.67677E-06_JPRB,1.93255E-06_JPRB &
+ & , 2.19177E-06_JPRB,2.44195E-06_JPRB,2.66926E-06_JPRB,2.85990E-06_JPRB &
+ & , 3.00380E-06_JPRB,3.06996E-06_JPRB,3.08184E-06_JPRB,3.09172E-06_JPRB &
+ & , 3.09938E-06_JPRB,3.10456E-06_JPRB,3.10727E-06_JPRB,3.10818E-06_JPRB /)  
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB26',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB26
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb26.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb26.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb26.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB26
+END SUBROUTINE SRTM_KGB26
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb27.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb27.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb27.F90	(revision 3330)
@@ -0,0 +1,2007 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB27
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16: 29000-38000 cm-1 (low - O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA27, ONLY : KA, KB, SFLUXREF, RAYL, SCALEKUR &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+!     The following values were obtained using the "low resolution"
+!     version of the Kurucz solar source function.  For unknown reasons,
+!     the total irradiance in this band differs from the corresponding
+!     total in the "high-resolution" version of the Kurucz function.
+!     Therefore, below these values are scaled by the factor SCALEKUR.
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB27',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 14.0526_JPRB    , 11.4794_JPRB    , 8.72590_JPRB    , 5.56966_JPRB    , &
+ & 3.80927_JPRB    , 1.57690_JPRB    , 1.15099_JPRB    , 1.10012_JPRB    , &
+ & 0.658212_JPRB   , 5.86859E-02_JPRB, 5.56186E-02_JPRB, 4.68040E-02_JPRB, &
+ & 3.64897E-02_JPRB, 3.58053E-02_JPRB, 1.38130E-02_JPRB, 1.90193E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 2925 cm-1.
+RAYL = (/ &
+ & 3.44534E-06_JPRB,4.14480E-06_JPRB,4.95069E-06_JPRB,5.81204E-06_JPRB, &
+ & 6.69748E-06_JPRB,7.56488E-06_JPRB,8.36344E-06_JPRB,9.04135E-06_JPRB, &
+ & 9.58324E-06_JPRB,9.81542E-06_JPRB,9.75119E-06_JPRB,9.74533E-06_JPRB, &
+ & 9.74139E-06_JPRB,9.73525E-06_JPRB,9.73577E-06_JPRB,9.73618E-06_JPRB /)  
+
+SCALEKUR = 50.15_JPRB/48.37_JPRB
+
+LAYREFFR = 32
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.22907E+00_JPRB,0.25625E+00_JPRB,0.28779E+00_JPRB,0.32376E+00_JPRB,0.36426E+00_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.21913E+00_JPRB,0.24445E+00_JPRB,0.27422E+00_JPRB,0.30832E+00_JPRB,0.34694E+00_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.20602E+00_JPRB,0.22864E+00_JPRB,0.25574E+00_JPRB,0.28721E+00_JPRB,0.32310E+00_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.19379E+00_JPRB,0.21352E+00_JPRB,0.23771E+00_JPRB,0.26643E+00_JPRB,0.29940E+00_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.18369E+00_JPRB,0.20061E+00_JPRB,0.22200E+00_JPRB,0.24786E+00_JPRB,0.27816E+00_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.17517E+00_JPRB,0.18920E+00_JPRB,0.20771E+00_JPRB,0.23069E+00_JPRB,0.25817E+00_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.16888E+00_JPRB,0.17988E+00_JPRB,0.19559E+00_JPRB,0.21577E+00_JPRB,0.24042E+00_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.16442E+00_JPRB,0.17273E+00_JPRB,0.18565E+00_JPRB,0.20315E+00_JPRB,0.22512E+00_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.16159E+00_JPRB,0.16738E+00_JPRB,0.17752E+00_JPRB,0.19242E+00_JPRB,0.21179E+00_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.16037E+00_JPRB,0.16402E+00_JPRB,0.17204E+00_JPRB,0.18463E+00_JPRB,0.20183E+00_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.20716E+01_JPRB,0.21925E+01_JPRB,0.23327E+01_JPRB,0.24921E+01_JPRB,0.26726E+01_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.20272E+01_JPRB,0.21401E+01_JPRB,0.22723E+01_JPRB,0.24238E+01_JPRB,0.25950E+01_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.19684E+01_JPRB,0.20697E+01_JPRB,0.21902E+01_JPRB,0.23301E+01_JPRB,0.24892E+01_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.19133E+01_JPRB,0.20021E+01_JPRB,0.21101E+01_JPRB,0.22375E+01_JPRB,0.23842E+01_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.18673E+01_JPRB,0.19441E+01_JPRB,0.20400E+01_JPRB,0.21553E+01_JPRB,0.22898E+01_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.18277E+01_JPRB,0.18925E+01_JPRB,0.19760E+01_JPRB,0.20788E+01_JPRB,0.22009E+01_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.17963E+01_JPRB,0.18497E+01_JPRB,0.19214E+01_JPRB,0.20121E+01_JPRB,0.21222E+01_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.17749E+01_JPRB,0.18156E+01_JPRB,0.18763E+01_JPRB,0.19555E+01_JPRB,0.20540E+01_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.17600E+01_JPRB,0.17885E+01_JPRB,0.18388E+01_JPRB,0.19071E+01_JPRB,0.19943E+01_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.17526E+01_JPRB,0.17729E+01_JPRB,0.18121E+01_JPRB,0.18716E+01_JPRB,0.19496E+01_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.12189E+02_JPRB,0.12619E+02_JPRB,0.13110E+02_JPRB,0.13663E+02_JPRB,0.14275E+02_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.12030E+02_JPRB,0.12434E+02_JPRB,0.12899E+02_JPRB,0.13427E+02_JPRB,0.14015E+02_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.11816E+02_JPRB,0.12183E+02_JPRB,0.12611E+02_JPRB,0.13101E+02_JPRB,0.13653E+02_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.11611E+02_JPRB,0.11938E+02_JPRB,0.12327E+02_JPRB,0.12777E+02_JPRB,0.13289E+02_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.11437E+02_JPRB,0.11726E+02_JPRB,0.12076E+02_JPRB,0.12488E+02_JPRB,0.12961E+02_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.11284E+02_JPRB,0.11533E+02_JPRB,0.11843E+02_JPRB,0.12215E+02_JPRB,0.12649E+02_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.11160E+02_JPRB,0.11370E+02_JPRB,0.11641E+02_JPRB,0.11975E+02_JPRB,0.12370E+02_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.11063E+02_JPRB,0.11237E+02_JPRB,0.11471E+02_JPRB,0.11768E+02_JPRB,0.12126E+02_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.10990E+02_JPRB,0.11129E+02_JPRB,0.11327E+02_JPRB,0.11588E+02_JPRB,0.11910E+02_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11053E+02_JPRB,0.11223E+02_JPRB,0.11454E+02_JPRB,0.11746E+02_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.55057E+02_JPRB,0.56143E+02_JPRB,0.57364E+02_JPRB,0.58719E+02_JPRB,0.60208E+02_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.54647E+02_JPRB,0.55677E+02_JPRB,0.56842E+02_JPRB,0.58142E+02_JPRB,0.59575E+02_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.54090E+02_JPRB,0.55039E+02_JPRB,0.56123E+02_JPRB,0.57342E+02_JPRB,0.58694E+02_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.53548E+02_JPRB,0.54410E+02_JPRB,0.55408E+02_JPRB,0.56539E+02_JPRB,0.57805E+02_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.53074E+02_JPRB,0.53853E+02_JPRB,0.54766E+02_JPRB,0.55813E+02_JPRB,0.56995E+02_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.52644E+02_JPRB,0.53336E+02_JPRB,0.54162E+02_JPRB,0.55123E+02_JPRB,0.56218E+02_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.52279E+02_JPRB,0.52887E+02_JPRB,0.53629E+02_JPRB,0.54505E+02_JPRB,0.55516E+02_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.51979E+02_JPRB,0.52507E+02_JPRB,0.53168E+02_JPRB,0.53965E+02_JPRB,0.54895E+02_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.51734E+02_JPRB,0.52183E+02_JPRB,0.52767E+02_JPRB,0.53485E+02_JPRB,0.54337E+02_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.51565E+02_JPRB,0.51948E+02_JPRB,0.52467E+02_JPRB,0.53120E+02_JPRB,0.53907E+02_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.17794E+03_JPRB,0.17973E+03_JPRB,0.18164E+03_JPRB,0.18366E+03_JPRB,0.18581E+03_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.17724E+03_JPRB,0.17898E+03_JPRB,0.18083E+03_JPRB,0.18281E+03_JPRB,0.18491E+03_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.17624E+03_JPRB,0.17791E+03_JPRB,0.17970E+03_JPRB,0.18160E+03_JPRB,0.18363E+03_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.17523E+03_JPRB,0.17682E+03_JPRB,0.17853E+03_JPRB,0.18036E+03_JPRB,0.18231E+03_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.17429E+03_JPRB,0.17581E+03_JPRB,0.17744E+03_JPRB,0.17920E+03_JPRB,0.18107E+03_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.17338E+03_JPRB,0.17482E+03_JPRB,0.17638E+03_JPRB,0.17805E+03_JPRB,0.17985E+03_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.17253E+03_JPRB,0.17390E+03_JPRB,0.17539E+03_JPRB,0.17699E+03_JPRB,0.17871E+03_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.17177E+03_JPRB,0.17307E+03_JPRB,0.17448E+03_JPRB,0.17601E+03_JPRB,0.17767E+03_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.17107E+03_JPRB,0.17230E+03_JPRB,0.17364E+03_JPRB,0.17511E+03_JPRB,0.17669E+03_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.17052E+03_JPRB,0.17169E+03_JPRB,0.17298E+03_JPRB,0.17438E+03_JPRB,0.17591E+03_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.37680E+05_JPRB,0.36801E+05_JPRB,0.36011E+05_JPRB,0.35298E+05_JPRB,0.34715E+05_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.39286E+03_JPRB,0.39463E+03_JPRB,0.39616E+03_JPRB,0.39748E+03_JPRB,0.39858E+03_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.39169E+03_JPRB,0.39359E+03_JPRB,0.39526E+03_JPRB,0.39671E+03_JPRB,0.39794E+03_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.39034E+03_JPRB,0.39239E+03_JPRB,0.39421E+03_JPRB,0.39580E+03_JPRB,0.39717E+03_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.38895E+03_JPRB,0.39113E+03_JPRB,0.39309E+03_JPRB,0.39483E+03_JPRB,0.39634E+03_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.38742E+03_JPRB,0.38975E+03_JPRB,0.39185E+03_JPRB,0.39373E+03_JPRB,0.39539E+03_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.38585E+03_JPRB,0.38832E+03_JPRB,0.39056E+03_JPRB,0.39258E+03_JPRB,0.39438E+03_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.38426E+03_JPRB,0.38686E+03_JPRB,0.38924E+03_JPRB,0.39140E+03_JPRB,0.39333E+03_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.38264E+03_JPRB,0.38538E+03_JPRB,0.38789E+03_JPRB,0.39017E+03_JPRB,0.39223E+03_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.38123E+03_JPRB,0.38408E+03_JPRB,0.38670E+03_JPRB,0.38909E+03_JPRB,0.39126E+03_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.18202E+07_JPRB,0.17771E+07_JPRB,0.17382E+07_JPRB,0.17034E+07_JPRB,0.16716E+07_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.63027E+03_JPRB,0.63194E+03_JPRB,0.63388E+03_JPRB,0.63607E+03_JPRB,0.63849E+03_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.62938E+03_JPRB,0.63090E+03_JPRB,0.63268E+03_JPRB,0.63472E+03_JPRB,0.63701E+03_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.62853E+03_JPRB,0.62989E+03_JPRB,0.63150E+03_JPRB,0.63337E+03_JPRB,0.63550E+03_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.62781E+03_JPRB,0.62901E+03_JPRB,0.63046E+03_JPRB,0.63217E+03_JPRB,0.63413E+03_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.62717E+03_JPRB,0.62821E+03_JPRB,0.62950E+03_JPRB,0.63104E+03_JPRB,0.63283E+03_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.62666E+03_JPRB,0.62753E+03_JPRB,0.62867E+03_JPRB,0.63005E+03_JPRB,0.63168E+03_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.62627E+03_JPRB,0.62698E+03_JPRB,0.62795E+03_JPRB,0.62919E+03_JPRB,0.63067E+03_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.62600E+03_JPRB,0.62653E+03_JPRB,0.62735E+03_JPRB,0.62844E+03_JPRB,0.62978E+03_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62624E+03_JPRB,0.62692E+03_JPRB,0.62788E+03_JPRB,0.62910E+03_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.55488E+07_JPRB,0.54180E+07_JPRB,0.53005E+07_JPRB,0.51943E+07_JPRB,0.50978E+07_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.82143E+03_JPRB,0.82232E+03_JPRB,0.82327E+03_JPRB,0.82429E+03_JPRB,0.82541E+03_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.82092E+03_JPRB,0.82177E+03_JPRB,0.82269E+03_JPRB,0.82366E+03_JPRB,0.82472E+03_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.82041E+03_JPRB,0.82121E+03_JPRB,0.82209E+03_JPRB,0.82303E+03_JPRB,0.82402E+03_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.81996E+03_JPRB,0.82070E+03_JPRB,0.82152E+03_JPRB,0.82243E+03_JPRB,0.82339E+03_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.81952E+03_JPRB,0.82021E+03_JPRB,0.82098E+03_JPRB,0.82184E+03_JPRB,0.82277E+03_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.81917E+03_JPRB,0.81977E+03_JPRB,0.82048E+03_JPRB,0.82129E+03_JPRB,0.82218E+03_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.81881E+03_JPRB,0.81938E+03_JPRB,0.82004E+03_JPRB,0.82080E+03_JPRB,0.82163E+03_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.81846E+03_JPRB,0.81906E+03_JPRB,0.81965E+03_JPRB,0.82035E+03_JPRB,0.82114E+03_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.82000E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81935E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.10204E+08_JPRB,0.99477E+07_JPRB,0.97209E+07_JPRB,0.95103E+07_JPRB,0.92960E+07_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.95102E+03_JPRB,0.95144E+03_JPRB,0.95133E+03_JPRB,0.95066E+03_JPRB,0.94964E+03_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.95048E+03_JPRB,0.95118E+03_JPRB,0.95136E+03_JPRB,0.95103E+03_JPRB,0.95020E+03_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.94969E+03_JPRB,0.95077E+03_JPRB,0.95126E+03_JPRB,0.95124E+03_JPRB,0.95074E+03_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.94872E+03_JPRB,0.95015E+03_JPRB,0.95101E+03_JPRB,0.95129E+03_JPRB,0.95105E+03_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.94752E+03_JPRB,0.94929E+03_JPRB,0.95052E+03_JPRB,0.95116E+03_JPRB,0.95126E+03_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.94612E+03_JPRB,0.94825E+03_JPRB,0.94981E+03_JPRB,0.95083E+03_JPRB,0.95126E+03_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.94461E+03_JPRB,0.94704E+03_JPRB,0.94894E+03_JPRB,0.95029E+03_JPRB,0.95107E+03_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.94291E+03_JPRB,0.94567E+03_JPRB,0.94791E+03_JPRB,0.94957E+03_JPRB,0.95069E+03_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.94135E+03_JPRB,0.94441E+03_JPRB,0.94689E+03_JPRB,0.94884E+03_JPRB,0.95022E+03_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94440E+03_JPRB,0.94688E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94688E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94687E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.12764E+08_JPRB,0.12408E+08_JPRB,0.12012E+08_JPRB,0.11438E+08_JPRB,0.11217E+08_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.99589E+03_JPRB,0.99493E+03_JPRB,0.99263E+03_JPRB,0.98974E+03_JPRB,0.98742E+03_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.99532E+03_JPRB,0.99571E+03_JPRB,0.99447E+03_JPRB,0.99207E+03_JPRB,0.98779E+03_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.99446E+03_JPRB,0.99559E+03_JPRB,0.99536E+03_JPRB,0.99386E+03_JPRB,0.99088E+03_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.99288E+03_JPRB,0.99493E+03_JPRB,0.99558E+03_JPRB,0.99487E+03_JPRB,0.99336E+03_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.99069E+03_JPRB,0.99366E+03_JPRB,0.99519E+03_JPRB,0.99534E+03_JPRB,0.99428E+03_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.98811E+03_JPRB,0.99191E+03_JPRB,0.99430E+03_JPRB,0.99510E+03_JPRB,0.99504E+03_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.98531E+03_JPRB,0.98996E+03_JPRB,0.99300E+03_JPRB,0.99479E+03_JPRB,0.99513E+03_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.98264E+03_JPRB,0.98737E+03_JPRB,0.99138E+03_JPRB,0.99390E+03_JPRB,0.99503E+03_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.98010E+03_JPRB,0.98517E+03_JPRB,0.98974E+03_JPRB,0.99281E+03_JPRB,0.99470E+03_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.98010E+03_JPRB,0.98509E+03_JPRB,0.98985E+03_JPRB,0.99280E+03_JPRB,0.99468E+03_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.98035E+03_JPRB,0.98524E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.98012E+03_JPRB,0.98526E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.12266E+08_JPRB,0.12000E+08_JPRB,0.11724E+08_JPRB,0.11828E+08_JPRB,0.11523E+08_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.10001E+04_JPRB,0.99984E+03_JPRB,0.99745E+03_JPRB,0.99535E+03_JPRB,0.98599E+03_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.99963E+03_JPRB,0.99927E+03_JPRB,0.99848E+03_JPRB,0.99596E+03_JPRB,0.99390E+03_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.99904E+03_JPRB,0.99942E+03_JPRB,0.99870E+03_JPRB,0.99747E+03_JPRB,0.99542E+03_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.99826E+03_JPRB,0.99927E+03_JPRB,0.99919E+03_JPRB,0.99821E+03_JPRB,0.99627E+03_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.99730E+03_JPRB,0.99882E+03_JPRB,0.99938E+03_JPRB,0.99902E+03_JPRB,0.99764E+03_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.99551E+03_JPRB,0.99810E+03_JPRB,0.99919E+03_JPRB,0.99961E+03_JPRB,0.99863E+03_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.99324E+03_JPRB,0.99688E+03_JPRB,0.99871E+03_JPRB,0.99940E+03_JPRB,0.99942E+03_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.99058E+03_JPRB,0.99489E+03_JPRB,0.99773E+03_JPRB,0.99912E+03_JPRB,0.99954E+03_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.98802E+03_JPRB,0.99297E+03_JPRB,0.99656E+03_JPRB,0.99861E+03_JPRB,0.99937E+03_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.98800E+03_JPRB,0.99310E+03_JPRB,0.99655E+03_JPRB,0.99860E+03_JPRB,0.99936E+03_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.98771E+03_JPRB,0.99296E+03_JPRB,0.99669E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.98800E+03_JPRB,0.99296E+03_JPRB,0.99655E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.12503E+08_JPRB,0.11946E+08_JPRB,0.11557E+08_JPRB,0.11503E+08_JPRB,0.11901E+08_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.10015E+04_JPRB,0.10004E+04_JPRB,0.99932E+03_JPRB,0.99373E+03_JPRB,0.98591E+03_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.10024E+04_JPRB,0.10021E+04_JPRB,0.10003E+04_JPRB,0.99817E+03_JPRB,0.99146E+03_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.10022E+04_JPRB,0.10027E+04_JPRB,0.10021E+04_JPRB,0.99956E+03_JPRB,0.99610E+03_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.10024E+04_JPRB,0.10024E+04_JPRB,0.10028E+04_JPRB,0.10015E+04_JPRB,0.99826E+03_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.10017E+04_JPRB,0.10025E+04_JPRB,0.10025E+04_JPRB,0.10023E+04_JPRB,0.10008E+04_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.10005E+04_JPRB,0.10020E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10019E+04_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.10000E+04_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.99906E+03_JPRB,0.10004E+04_JPRB,0.10018E+04_JPRB,0.10029E+04_JPRB,0.10028E+04_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.99791E+03_JPRB,0.99989E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10031E+04_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.99769E+03_JPRB,0.99967E+03_JPRB,0.10008E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.99787E+03_JPRB,0.99985E+03_JPRB,0.10008E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.99768E+03_JPRB,0.99984E+03_JPRB,0.10012E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.12359E+08_JPRB,0.12469E+08_JPRB,0.12868E+08_JPRB,0.12776E+08_JPRB,0.12590E+08_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.10045E+04_JPRB,0.10033E+04_JPRB,0.99840E+03_JPRB,0.99184E+03_JPRB,0.98861E+03_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.10050E+04_JPRB,0.10041E+04_JPRB,0.10024E+04_JPRB,0.99701E+03_JPRB,0.99083E+03_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.10053E+04_JPRB,0.10043E+04_JPRB,0.10035E+04_JPRB,0.10017E+04_JPRB,0.99538E+03_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.10048E+04_JPRB,0.10056E+04_JPRB,0.10038E+04_JPRB,0.10026E+04_JPRB,0.10008E+04_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.10042E+04_JPRB,0.10054E+04_JPRB,0.10054E+04_JPRB,0.10039E+04_JPRB,0.10017E+04_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.10029E+04_JPRB,0.10046E+04_JPRB,0.10055E+04_JPRB,0.10046E+04_JPRB,0.10033E+04_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.10002E+04_JPRB,0.10039E+04_JPRB,0.10051E+04_JPRB,0.10054E+04_JPRB,0.10046E+04_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.99825E+03_JPRB,0.10019E+04_JPRB,0.10043E+04_JPRB,0.10051E+04_JPRB,0.10052E+04_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.99595E+03_JPRB,0.99983E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10051E+04_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.99621E+03_JPRB,0.99979E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10054E+04_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.99597E+03_JPRB,0.99979E+03_JPRB,0.10031E+04_JPRB,0.10047E+04_JPRB,0.10054E+04_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.99623E+03_JPRB,0.99978E+03_JPRB,0.10031E+04_JPRB,0.10047E+04_JPRB,0.10054E+04_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.13636E+08_JPRB,0.13818E+08_JPRB,0.13518E+08_JPRB,0.13266E+08_JPRB,0.13048E+08_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.10049E+04_JPRB,0.99946E+03_JPRB,0.99774E+03_JPRB,0.99774E+03_JPRB,0.99771E+03_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.10051E+04_JPRB,0.10068E+04_JPRB,0.10007E+04_JPRB,0.99775E+03_JPRB,0.99778E+03_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.10071E+04_JPRB,0.10061E+04_JPRB,0.10050E+04_JPRB,0.10005E+04_JPRB,0.99776E+03_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.10067E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10044E+04_JPRB,0.99972E+03_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.10049E+04_JPRB,0.10070E+04_JPRB,0.10074E+04_JPRB,0.10057E+04_JPRB,0.10037E+04_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.10033E+04_JPRB,0.10063E+04_JPRB,0.10072E+04_JPRB,0.10067E+04_JPRB,0.10050E+04_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.10025E+04_JPRB,0.10048E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.99880E+03_JPRB,0.10031E+04_JPRB,0.10060E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.99610E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.99601E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.99598E+03_JPRB,0.10023E+04_JPRB,0.10051E+04_JPRB,0.10067E+04_JPRB,0.10076E+04_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.99596E+03_JPRB,0.10027E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.14285E+08_JPRB,0.13947E+08_JPRB,0.13644E+08_JPRB,0.13317E+08_JPRB,0.13015E+08_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.99932E+03_JPRB,0.10011E+04_JPRB,0.10018E+04_JPRB,0.10007E+04_JPRB,0.99706E+03_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.10097E+04_JPRB,0.99743E+03_JPRB,0.10015E+04_JPRB,0.10018E+04_JPRB,0.99920E+03_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.10099E+04_JPRB,0.10076E+04_JPRB,0.10030E+04_JPRB,0.10017E+04_JPRB,0.10013E+04_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.10075E+04_JPRB,0.10079E+04_JPRB,0.10073E+04_JPRB,0.10035E+04_JPRB,0.10018E+04_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.10068E+04_JPRB,0.10088E+04_JPRB,0.10068E+04_JPRB,0.10090E+04_JPRB,0.10033E+04_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.10057E+04_JPRB,0.10073E+04_JPRB,0.10090E+04_JPRB,0.10087E+04_JPRB,0.10062E+04_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.10010E+04_JPRB,0.10054E+04_JPRB,0.10076E+04_JPRB,0.10079E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.99853E+03_JPRB,0.10054E+04_JPRB,0.10071E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.99742E+03_JPRB,0.10007E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.99635E+03_JPRB,0.10006E+04_JPRB,0.10064E+04_JPRB,0.10087E+04_JPRB,0.10090E+04_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.99635E+03_JPRB,0.10006E+04_JPRB,0.10064E+04_JPRB,0.10087E+04_JPRB,0.10069E+04_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.99635E+03_JPRB,0.99960E+03_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.14326E+08_JPRB,0.13988E+08_JPRB,0.13684E+08_JPRB,0.13409E+08_JPRB,0.13021E+08_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.10008E+04_JPRB,0.10027E+04_JPRB,0.10036E+04_JPRB,0.10037E+04_JPRB,0.99673E+03_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.99286E+03_JPRB,0.10016E+04_JPRB,0.10031E+04_JPRB,0.10038E+04_JPRB,0.10035E+04_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.99278E+03_JPRB,0.10078E+04_JPRB,0.10023E+04_JPRB,0.10035E+04_JPRB,0.10038E+04_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.10074E+04_JPRB,0.10079E+04_JPRB,0.10075E+04_JPRB,0.10028E+04_JPRB,0.10037E+04_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.10069E+04_JPRB,0.10002E+04_JPRB,0.10079E+04_JPRB,0.99212E+03_JPRB,0.10032E+04_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.10060E+04_JPRB,0.10072E+04_JPRB,0.10004E+04_JPRB,0.10003E+04_JPRB,0.10063E+04_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.10009E+04_JPRB,0.10066E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB,0.10074E+04_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.99860E+03_JPRB,0.10057E+04_JPRB,0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.98908E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10000E+04_JPRB,0.10005E+04_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10000E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_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.
+!     -----------------------------------------------------------------
+  
+KB(:,13, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.16050E+00_JPRB,0.16454E+00_JPRB,0.17292E+00_JPRB,0.18592E+00_JPRB,0.20351E+00_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.16071E+00_JPRB,0.16519E+00_JPRB,0.17400E+00_JPRB,0.18750E+00_JPRB,0.20554E+00_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.16098E+00_JPRB,0.16593E+00_JPRB,0.17517E+00_JPRB,0.18921E+00_JPRB,0.20772E+00_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.16129E+00_JPRB,0.16670E+00_JPRB,0.17642E+00_JPRB,0.19093E+00_JPRB,0.20991E+00_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.16164E+00_JPRB,0.16750E+00_JPRB,0.17771E+00_JPRB,0.19267E+00_JPRB,0.21211E+00_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.16203E+00_JPRB,0.16832E+00_JPRB,0.17901E+00_JPRB,0.19443E+00_JPRB,0.21431E+00_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.16255E+00_JPRB,0.16934E+00_JPRB,0.18059E+00_JPRB,0.19653E+00_JPRB,0.21694E+00_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.16313E+00_JPRB,0.17044E+00_JPRB,0.18225E+00_JPRB,0.19873E+00_JPRB,0.21967E+00_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.16416E+00_JPRB,0.17227E+00_JPRB,0.18498E+00_JPRB,0.20229E+00_JPRB,0.22406E+00_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.16539E+00_JPRB,0.17431E+00_JPRB,0.18796E+00_JPRB,0.20612E+00_JPRB,0.22875E+00_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.16684E+00_JPRB,0.17666E+00_JPRB,0.19125E+00_JPRB,0.21032E+00_JPRB,0.23385E+00_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.16856E+00_JPRB,0.17939E+00_JPRB,0.19493E+00_JPRB,0.21495E+00_JPRB,0.23943E+00_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.17067E+00_JPRB,0.18260E+00_JPRB,0.19919E+00_JPRB,0.22024E+00_JPRB,0.24578E+00_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.17306E+00_JPRB,0.18613E+00_JPRB,0.20377E+00_JPRB,0.22588E+00_JPRB,0.25248E+00_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.17570E+00_JPRB,0.18994E+00_JPRB,0.20865E+00_JPRB,0.23184E+00_JPRB,0.25952E+00_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.17882E+00_JPRB,0.19417E+00_JPRB,0.21399E+00_JPRB,0.23828E+00_JPRB,0.26708E+00_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.18223E+00_JPRB,0.19870E+00_JPRB,0.21964E+00_JPRB,0.24505E+00_JPRB,0.27492E+00_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.18602E+00_JPRB,0.20364E+00_JPRB,0.22572E+00_JPRB,0.25229E+00_JPRB,0.28325E+00_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.19018E+00_JPRB,0.20895E+00_JPRB,0.23219E+00_JPRB,0.25994E+00_JPRB,0.29200E+00_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.19466E+00_JPRB,0.21461E+00_JPRB,0.23902E+00_JPRB,0.26795E+00_JPRB,0.30114E+00_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.19880E+00_JPRB,0.21976E+00_JPRB,0.24520E+00_JPRB,0.27509E+00_JPRB,0.30932E+00_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.20129E+00_JPRB,0.22283E+00_JPRB,0.24886E+00_JPRB,0.27931E+00_JPRB,0.31412E+00_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.20170E+00_JPRB,0.22334E+00_JPRB,0.24946E+00_JPRB,0.28000E+00_JPRB,0.31492E+00_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.19920E+00_JPRB,0.22026E+00_JPRB,0.24579E+00_JPRB,0.27578E+00_JPRB,0.31010E+00_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.19662E+00_JPRB,0.21706E+00_JPRB,0.24197E+00_JPRB,0.27135E+00_JPRB,0.30504E+00_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.19414E+00_JPRB,0.21396E+00_JPRB,0.23824E+00_JPRB,0.26704E+00_JPRB,0.30010E+00_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.19003E+00_JPRB,0.20877E+00_JPRB,0.23197E+00_JPRB,0.25968E+00_JPRB,0.29171E+00_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.18597E+00_JPRB,0.20357E+00_JPRB,0.22564E+00_JPRB,0.25219E+00_JPRB,0.28314E+00_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.18220E+00_JPRB,0.19865E+00_JPRB,0.21958E+00_JPRB,0.24498E+00_JPRB,0.27484E+00_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.17798E+00_JPRB,0.19304E+00_JPRB,0.21257E+00_JPRB,0.23657E+00_JPRB,0.26510E+00_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.17397E+00_JPRB,0.18746E+00_JPRB,0.20548E+00_JPRB,0.22798E+00_JPRB,0.25496E+00_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.17053E+00_JPRB,0.18239E+00_JPRB,0.19890E+00_JPRB,0.21989E+00_JPRB,0.24535E+00_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.16739E+00_JPRB,0.17754E+00_JPRB,0.19245E+00_JPRB,0.21183E+00_JPRB,0.23568E+00_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.16454E+00_JPRB,0.17292E+00_JPRB,0.18592E+00_JPRB,0.20351E+00_JPRB,0.22556E+00_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.16239E+00_JPRB,0.16903E+00_JPRB,0.18011E+00_JPRB,0.19590E+00_JPRB,0.21615E+00_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.16095E+00_JPRB,0.16584E+00_JPRB,0.17504E+00_JPRB,0.18902E+00_JPRB,0.20747E+00_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.16025E+00_JPRB,0.16348E+00_JPRB,0.17109E+00_JPRB,0.18322E+00_JPRB,0.20000E+00_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.16021E+00_JPRB,0.16179E+00_JPRB,0.16781E+00_JPRB,0.17821E+00_JPRB,0.19335E+00_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.16078E+00_JPRB,0.16068E+00_JPRB,0.16511E+00_JPRB,0.17387E+00_JPRB,0.18731E+00_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.16197E+00_JPRB,0.16018E+00_JPRB,0.16299E+00_JPRB,0.17017E+00_JPRB,0.18186E+00_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.16362E+00_JPRB,0.16026E+00_JPRB,0.16155E+00_JPRB,0.16729E+00_JPRB,0.17738E+00_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.16570E+00_JPRB,0.16083E+00_JPRB,0.16064E+00_JPRB,0.16498E+00_JPRB,0.17365E+00_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.16825E+00_JPRB,0.16187E+00_JPRB,0.16020E+00_JPRB,0.16311E+00_JPRB,0.17041E+00_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.17129E+00_JPRB,0.16340E+00_JPRB,0.16023E+00_JPRB,0.16169E+00_JPRB,0.16761E+00_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.17462E+00_JPRB,0.16529E+00_JPRB,0.16069E+00_JPRB,0.16077E+00_JPRB,0.16535E+00_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.17607E+00_JPRB,0.16617E+00_JPRB,0.16100E+00_JPRB,0.16051E+00_JPRB,0.16456E+00_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.17536E+01_JPRB,0.17755E+01_JPRB,0.18165E+01_JPRB,0.18775E+01_JPRB,0.19571E+01_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.17549E+01_JPRB,0.17787E+01_JPRB,0.18219E+01_JPRB,0.18847E+01_JPRB,0.19662E+01_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.17565E+01_JPRB,0.17819E+01_JPRB,0.18278E+01_JPRB,0.18925E+01_JPRB,0.19761E+01_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.17583E+01_JPRB,0.17850E+01_JPRB,0.18336E+01_JPRB,0.19003E+01_JPRB,0.19859E+01_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.17603E+01_JPRB,0.17891E+01_JPRB,0.18396E+01_JPRB,0.19082E+01_JPRB,0.19957E+01_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.17624E+01_JPRB,0.17934E+01_JPRB,0.18457E+01_JPRB,0.19162E+01_JPRB,0.20056E+01_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.17652E+01_JPRB,0.17986E+01_JPRB,0.18530E+01_JPRB,0.19257E+01_JPRB,0.20174E+01_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.17683E+01_JPRB,0.18042E+01_JPRB,0.18607E+01_JPRB,0.19356E+01_JPRB,0.20296E+01_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.17736E+01_JPRB,0.18133E+01_JPRB,0.18732E+01_JPRB,0.19516E+01_JPRB,0.20492E+01_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.17796E+01_JPRB,0.18234E+01_JPRB,0.18868E+01_JPRB,0.19689E+01_JPRB,0.20702E+01_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.17857E+01_JPRB,0.18347E+01_JPRB,0.19018E+01_JPRB,0.19877E+01_JPRB,0.20929E+01_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.17946E+01_JPRB,0.18475E+01_JPRB,0.19185E+01_JPRB,0.20085E+01_JPRB,0.21178E+01_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.18053E+01_JPRB,0.18623E+01_JPRB,0.19377E+01_JPRB,0.20322E+01_JPRB,0.21460E+01_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.18172E+01_JPRB,0.18785E+01_JPRB,0.19583E+01_JPRB,0.20574E+01_JPRB,0.21757E+01_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.18303E+01_JPRB,0.18959E+01_JPRB,0.19802E+01_JPRB,0.20839E+01_JPRB,0.22069E+01_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.18448E+01_JPRB,0.19150E+01_JPRB,0.20042E+01_JPRB,0.21126E+01_JPRB,0.22404E+01_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.18606E+01_JPRB,0.19355E+01_JPRB,0.20295E+01_JPRB,0.21428E+01_JPRB,0.22754E+01_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.18780E+01_JPRB,0.19577E+01_JPRB,0.20566E+01_JPRB,0.21749E+01_JPRB,0.23125E+01_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.18969E+01_JPRB,0.19816E+01_JPRB,0.20855E+01_JPRB,0.22088E+01_JPRB,0.23514E+01_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.19172E+01_JPRB,0.20069E+01_JPRB,0.21160E+01_JPRB,0.22443E+01_JPRB,0.23920E+01_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.19359E+01_JPRB,0.20300E+01_JPRB,0.21434E+01_JPRB,0.22762E+01_JPRB,0.24282E+01_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.19471E+01_JPRB,0.20437E+01_JPRB,0.21597E+01_JPRB,0.22949E+01_JPRB,0.24495E+01_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.19490E+01_JPRB,0.20460E+01_JPRB,0.21624E+01_JPRB,0.22980E+01_JPRB,0.24530E+01_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.19377E+01_JPRB,0.20322E+01_JPRB,0.21461E+01_JPRB,0.22792E+01_JPRB,0.24317E+01_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.19261E+01_JPRB,0.20179E+01_JPRB,0.21291E+01_JPRB,0.22595E+01_JPRB,0.24093E+01_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.19149E+01_JPRB,0.20040E+01_JPRB,0.21125E+01_JPRB,0.22402E+01_JPRB,0.23873E+01_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.18963E+01_JPRB,0.19807E+01_JPRB,0.20845E+01_JPRB,0.22076E+01_JPRB,0.23501E+01_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.18778E+01_JPRB,0.19574E+01_JPRB,0.20563E+01_JPRB,0.21745E+01_JPRB,0.23120E+01_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.18604E+01_JPRB,0.19352E+01_JPRB,0.20292E+01_JPRB,0.21425E+01_JPRB,0.22750E+01_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.18409E+01_JPRB,0.19099E+01_JPRB,0.19978E+01_JPRB,0.21050E+01_JPRB,0.22315E+01_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.18217E+01_JPRB,0.18845E+01_JPRB,0.19660E+01_JPRB,0.20667E+01_JPRB,0.21867E+01_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.18046E+01_JPRB,0.18613E+01_JPRB,0.19364E+01_JPRB,0.20306E+01_JPRB,0.21441E+01_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.17886E+01_JPRB,0.18389E+01_JPRB,0.19072E+01_JPRB,0.19945E+01_JPRB,0.21011E+01_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.17755E+01_JPRB,0.18165E+01_JPRB,0.18775E+01_JPRB,0.19571E+01_JPRB,0.20559E+01_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.17644E+01_JPRB,0.17970E+01_JPRB,0.18508E+01_JPRB,0.19228E+01_JPRB,0.20139E+01_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.17563E+01_JPRB,0.17816E+01_JPRB,0.18271E+01_JPRB,0.18916E+01_JPRB,0.19749E+01_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.17517E+01_JPRB,0.17702E+01_JPRB,0.18074E+01_JPRB,0.18651E+01_JPRB,0.19413E+01_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.17504E+01_JPRB,0.17611E+01_JPRB,0.17908E+01_JPRB,0.18420E+01_JPRB,0.19113E+01_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.17523E+01_JPRB,0.17547E+01_JPRB,0.17783E+01_JPRB,0.18212E+01_JPRB,0.18839E+01_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.17566E+01_JPRB,0.17510E+01_JPRB,0.17675E+01_JPRB,0.18028E+01_JPRB,0.18589E+01_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.17623E+01_JPRB,0.17507E+01_JPRB,0.17598E+01_JPRB,0.17881E+01_JPRB,0.18381E+01_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.17691E+01_JPRB,0.17524E+01_JPRB,0.17544E+01_JPRB,0.17777E+01_JPRB,0.18201E+01_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.17776E+01_JPRB,0.17562E+01_JPRB,0.17512E+01_JPRB,0.17682E+01_JPRB,0.18040E+01_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.17881E+01_JPRB,0.17616E+01_JPRB,0.17505E+01_JPRB,0.17606E+01_JPRB,0.17897E+01_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.17996E+01_JPRB,0.17678E+01_JPRB,0.17520E+01_JPRB,0.17552E+01_JPRB,0.17794E+01_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.18045E+01_JPRB,0.17707E+01_JPRB,0.17530E+01_JPRB,0.17536E+01_JPRB,0.17756E+01_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.10952E+02_JPRB,0.11065E+02_JPRB,0.11240E+02_JPRB,0.11476E+02_JPRB,0.11774E+02_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.10961E+02_JPRB,0.11080E+02_JPRB,0.11261E+02_JPRB,0.11503E+02_JPRB,0.11807E+02_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.10971E+02_JPRB,0.11097E+02_JPRB,0.11284E+02_JPRB,0.11533E+02_JPRB,0.11844E+02_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.10981E+02_JPRB,0.11115E+02_JPRB,0.11307E+02_JPRB,0.11562E+02_JPRB,0.11879E+02_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.10992E+02_JPRB,0.11132E+02_JPRB,0.11331E+02_JPRB,0.11592E+02_JPRB,0.11915E+02_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.11003E+02_JPRB,0.11149E+02_JPRB,0.11354E+02_JPRB,0.11622E+02_JPRB,0.11951E+02_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.11017E+02_JPRB,0.11170E+02_JPRB,0.11382E+02_JPRB,0.11657E+02_JPRB,0.11994E+02_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.11031E+02_JPRB,0.11192E+02_JPRB,0.11412E+02_JPRB,0.11694E+02_JPRB,0.12038E+02_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.11056E+02_JPRB,0.11228E+02_JPRB,0.11460E+02_JPRB,0.11754E+02_JPRB,0.12109E+02_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.11085E+02_JPRB,0.11267E+02_JPRB,0.11511E+02_JPRB,0.11817E+02_JPRB,0.12184E+02_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.11118E+02_JPRB,0.11312E+02_JPRB,0.11568E+02_JPRB,0.11886E+02_JPRB,0.12266E+02_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.11154E+02_JPRB,0.11361E+02_JPRB,0.11630E+02_JPRB,0.11962E+02_JPRB,0.12354E+02_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11196E+02_JPRB,0.11418E+02_JPRB,0.11702E+02_JPRB,0.12048E+02_JPRB,0.12455E+02_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.11243E+02_JPRB,0.11480E+02_JPRB,0.11778E+02_JPRB,0.12138E+02_JPRB,0.12560E+02_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.11294E+02_JPRB,0.11545E+02_JPRB,0.11859E+02_JPRB,0.12234E+02_JPRB,0.12670E+02_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.11351E+02_JPRB,0.11617E+02_JPRB,0.11946E+02_JPRB,0.12336E+02_JPRB,0.12788E+02_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.11411E+02_JPRB,0.11694E+02_JPRB,0.12038E+02_JPRB,0.12443E+02_JPRB,0.12910E+02_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.11478E+02_JPRB,0.11776E+02_JPRB,0.12136E+02_JPRB,0.12557E+02_JPRB,0.13040E+02_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.11549E+02_JPRB,0.11864E+02_JPRB,0.12239E+02_JPRB,0.12677E+02_JPRB,0.13175E+02_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.11626E+02_JPRB,0.11956E+02_JPRB,0.12348E+02_JPRB,0.12801E+02_JPRB,0.13316E+02_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.11695E+02_JPRB,0.12040E+02_JPRB,0.12446E+02_JPRB,0.12913E+02_JPRB,0.13442E+02_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.11737E+02_JPRB,0.12089E+02_JPRB,0.12503E+02_JPRB,0.12979E+02_JPRB,0.13515E+02_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.11744E+02_JPRB,0.12098E+02_JPRB,0.12513E+02_JPRB,0.12989E+02_JPRB,0.13528E+02_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.11702E+02_JPRB,0.12048E+02_JPRB,0.12455E+02_JPRB,0.12924E+02_JPRB,0.13454E+02_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.11659E+02_JPRB,0.11996E+02_JPRB,0.12395E+02_JPRB,0.12855E+02_JPRB,0.13376E+02_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.11617E+02_JPRB,0.11946E+02_JPRB,0.12336E+02_JPRB,0.12787E+02_JPRB,0.13300E+02_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.11547E+02_JPRB,0.11861E+02_JPRB,0.12236E+02_JPRB,0.12673E+02_JPRB,0.13171E+02_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.11477E+02_JPRB,0.11775E+02_JPRB,0.12134E+02_JPRB,0.12555E+02_JPRB,0.13038E+02_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.11411E+02_JPRB,0.11693E+02_JPRB,0.12037E+02_JPRB,0.12442E+02_JPRB,0.12909E+02_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.11335E+02_JPRB,0.11598E+02_JPRB,0.11923E+02_JPRB,0.12309E+02_JPRB,0.12757E+02_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.11261E+02_JPRB,0.11503E+02_JPRB,0.11807E+02_JPRB,0.12172E+02_JPRB,0.12599E+02_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.11193E+02_JPRB,0.11414E+02_JPRB,0.11697E+02_JPRB,0.12042E+02_JPRB,0.12448E+02_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.11129E+02_JPRB,0.11328E+02_JPRB,0.11588E+02_JPRB,0.11911E+02_JPRB,0.12295E+02_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.11065E+02_JPRB,0.11240E+02_JPRB,0.11476E+02_JPRB,0.11774E+02_JPRB,0.12133E+02_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.11012E+02_JPRB,0.11163E+02_JPRB,0.11374E+02_JPRB,0.11647E+02_JPRB,0.11981E+02_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.10969E+02_JPRB,0.11095E+02_JPRB,0.11282E+02_JPRB,0.11530E+02_JPRB,0.11839E+02_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.10938E+02_JPRB,0.11040E+02_JPRB,0.11204E+02_JPRB,0.11429E+02_JPRB,0.11715E+02_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.10916E+02_JPRB,0.10996E+02_JPRB,0.11138E+02_JPRB,0.11340E+02_JPRB,0.11604E+02_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.10900E+02_JPRB,0.10960E+02_JPRB,0.11079E+02_JPRB,0.11259E+02_JPRB,0.11500E+02_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.10894E+02_JPRB,0.10932E+02_JPRB,0.11028E+02_JPRB,0.11186E+02_JPRB,0.11405E+02_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.10895E+02_JPRB,0.10912E+02_JPRB,0.10989E+02_JPRB,0.11127E+02_JPRB,0.11325E+02_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.10903E+02_JPRB,0.10900E+02_JPRB,0.10958E+02_JPRB,0.11075E+02_JPRB,0.11255E+02_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.10921E+02_JPRB,0.10894E+02_JPRB,0.10933E+02_JPRB,0.11031E+02_JPRB,0.11191E+02_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.10944E+02_JPRB,0.10894E+02_JPRB,0.10914E+02_JPRB,0.10993E+02_JPRB,0.11134E+02_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.10972E+02_JPRB,0.10901E+02_JPRB,0.10902E+02_JPRB,0.10963E+02_JPRB,0.11084E+02_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.10984E+02_JPRB,0.10906E+02_JPRB,0.10898E+02_JPRB,0.10952E+02_JPRB,0.11066E+02_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.51593E+02_JPRB,0.51987E+02_JPRB,0.52517E+02_JPRB,0.53182E+02_JPRB,0.53980E+02_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.51626E+02_JPRB,0.52035E+02_JPRB,0.52579E+02_JPRB,0.53256E+02_JPRB,0.54069E+02_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.51664E+02_JPRB,0.52087E+02_JPRB,0.52644E+02_JPRB,0.53337E+02_JPRB,0.54163E+02_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.51701E+02_JPRB,0.52138E+02_JPRB,0.52710E+02_JPRB,0.53416E+02_JPRB,0.54257E+02_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.51740E+02_JPRB,0.52191E+02_JPRB,0.52776E+02_JPRB,0.53496E+02_JPRB,0.54351E+02_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.51779E+02_JPRB,0.52244E+02_JPRB,0.52843E+02_JPRB,0.53576E+02_JPRB,0.54444E+02_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.51827E+02_JPRB,0.52307E+02_JPRB,0.52922E+02_JPRB,0.53671E+02_JPRB,0.54555E+02_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.51877E+02_JPRB,0.52373E+02_JPRB,0.53004E+02_JPRB,0.53770E+02_JPRB,0.54669E+02_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.51959E+02_JPRB,0.52481E+02_JPRB,0.53136E+02_JPRB,0.53927E+02_JPRB,0.54851E+02_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.52049E+02_JPRB,0.52596E+02_JPRB,0.53278E+02_JPRB,0.54094E+02_JPRB,0.55044E+02_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.52148E+02_JPRB,0.52723E+02_JPRB,0.53431E+02_JPRB,0.54274E+02_JPRB,0.55252E+02_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.52259E+02_JPRB,0.52862E+02_JPRB,0.53599E+02_JPRB,0.54471E+02_JPRB,0.55477E+02_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.52387E+02_JPRB,0.53022E+02_JPRB,0.53790E+02_JPRB,0.54693E+02_JPRB,0.55730E+02_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.52525E+02_JPRB,0.53191E+02_JPRB,0.53992E+02_JPRB,0.54926E+02_JPRB,0.55995E+02_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.52672E+02_JPRB,0.53371E+02_JPRB,0.54203E+02_JPRB,0.55170E+02_JPRB,0.56271E+02_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.52833E+02_JPRB,0.53565E+02_JPRB,0.54430E+02_JPRB,0.55430E+02_JPRB,0.56565E+02_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.53003E+02_JPRB,0.53768E+02_JPRB,0.54668E+02_JPRB,0.55702E+02_JPRB,0.56870E+02_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.53186E+02_JPRB,0.53986E+02_JPRB,0.54920E+02_JPRB,0.55988E+02_JPRB,0.57190E+02_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.53381E+02_JPRB,0.54216E+02_JPRB,0.55184E+02_JPRB,0.56287E+02_JPRB,0.57525E+02_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.53587E+02_JPRB,0.54457E+02_JPRB,0.55460E+02_JPRB,0.56599E+02_JPRB,0.57871E+02_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.53773E+02_JPRB,0.54673E+02_JPRB,0.55707E+02_JPRB,0.56876E+02_JPRB,0.58179E+02_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.53883E+02_JPRB,0.54800E+02_JPRB,0.55852E+02_JPRB,0.57039E+02_JPRB,0.58359E+02_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.53901E+02_JPRB,0.54822E+02_JPRB,0.55876E+02_JPRB,0.57066E+02_JPRB,0.58389E+02_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.53791E+02_JPRB,0.54694E+02_JPRB,0.55731E+02_JPRB,0.56903E+02_JPRB,0.58208E+02_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.53676E+02_JPRB,0.54560E+02_JPRB,0.55578E+02_JPRB,0.56731E+02_JPRB,0.58018E+02_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.53563E+02_JPRB,0.54429E+02_JPRB,0.55429E+02_JPRB,0.56563E+02_JPRB,0.57832E+02_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.53375E+02_JPRB,0.54208E+02_JPRB,0.55175E+02_JPRB,0.56277E+02_JPRB,0.57513E+02_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.53184E+02_JPRB,0.53983E+02_JPRB,0.54916E+02_JPRB,0.55984E+02_JPRB,0.57186E+02_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.53001E+02_JPRB,0.53766E+02_JPRB,0.54665E+02_JPRB,0.55699E+02_JPRB,0.56866E+02_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.52790E+02_JPRB,0.53513E+02_JPRB,0.54370E+02_JPRB,0.55362E+02_JPRB,0.56488E+02_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.52577E+02_JPRB,0.53254E+02_JPRB,0.54066E+02_JPRB,0.55012E+02_JPRB,0.56093E+02_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.52379E+02_JPRB,0.53011E+02_JPRB,0.53777E+02_JPRB,0.54678E+02_JPRB,0.55713E+02_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.52184E+02_JPRB,0.52768E+02_JPRB,0.53486E+02_JPRB,0.54339E+02_JPRB,0.55326E+02_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.51987E+02_JPRB,0.52517E+02_JPRB,0.53182E+02_JPRB,0.53980E+02_JPRB,0.54913E+02_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.51812E+02_JPRB,0.52288E+02_JPRB,0.52898E+02_JPRB,0.53643E+02_JPRB,0.54522E+02_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.51659E+02_JPRB,0.52081E+02_JPRB,0.52637E+02_JPRB,0.53327E+02_JPRB,0.54152E+02_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.51535E+02_JPRB,0.51906E+02_JPRB,0.52412E+02_JPRB,0.53052E+02_JPRB,0.53826E+02_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.51433E+02_JPRB,0.51755E+02_JPRB,0.52211E+02_JPRB,0.52802E+02_JPRB,0.53527E+02_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.51349E+02_JPRB,0.51622E+02_JPRB,0.52029E+02_JPRB,0.52571E+02_JPRB,0.53247E+02_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.51285E+02_JPRB,0.51507E+02_JPRB,0.51865E+02_JPRB,0.52358E+02_JPRB,0.52985E+02_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.51240E+02_JPRB,0.51417E+02_JPRB,0.51730E+02_JPRB,0.52178E+02_JPRB,0.52760E+02_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.51211E+02_JPRB,0.51346E+02_JPRB,0.51615E+02_JPRB,0.52020E+02_JPRB,0.52559E+02_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.51194E+02_JPRB,0.51288E+02_JPRB,0.51514E+02_JPRB,0.51875E+02_JPRB,0.52371E+02_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.51190E+02_JPRB,0.51245E+02_JPRB,0.51426E+02_JPRB,0.51746E+02_JPRB,0.52198E+02_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.51200E+02_JPRB,0.51216E+02_JPRB,0.51357E+02_JPRB,0.51635E+02_JPRB,0.52046E+02_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.51207E+02_JPRB,0.51207E+02_JPRB,0.51333E+02_JPRB,0.51594E+02_JPRB,0.51989E+02_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.17061E+03_JPRB,0.17179E+03_JPRB,0.17309E+03_JPRB,0.17451E+03_JPRB,0.17604E+03_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.17073E+03_JPRB,0.17192E+03_JPRB,0.17323E+03_JPRB,0.17466E+03_JPRB,0.17621E+03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.17085E+03_JPRB,0.17205E+03_JPRB,0.17338E+03_JPRB,0.17482E+03_JPRB,0.17638E+03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.17097E+03_JPRB,0.17218E+03_JPRB,0.17352E+03_JPRB,0.17497E+03_JPRB,0.17655E+03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.17109E+03_JPRB,0.17232E+03_JPRB,0.17366E+03_JPRB,0.17513E+03_JPRB,0.17671E+03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.17121E+03_JPRB,0.17245E+03_JPRB,0.17381E+03_JPRB,0.17528E+03_JPRB,0.17688E+03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.17134E+03_JPRB,0.17260E+03_JPRB,0.17397E+03_JPRB,0.17547E+03_JPRB,0.17708E+03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.17149E+03_JPRB,0.17276E+03_JPRB,0.17415E+03_JPRB,0.17565E+03_JPRB,0.17728E+03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.17172E+03_JPRB,0.17301E+03_JPRB,0.17442E+03_JPRB,0.17594E+03_JPRB,0.17759E+03_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.17195E+03_JPRB,0.17327E+03_JPRB,0.17470E+03_JPRB,0.17625E+03_JPRB,0.17792E+03_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.17221E+03_JPRB,0.17355E+03_JPRB,0.17500E+03_JPRB,0.17658E+03_JPRB,0.17827E+03_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.17248E+03_JPRB,0.17385E+03_JPRB,0.17533E+03_JPRB,0.17693E+03_JPRB,0.17865E+03_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.17279E+03_JPRB,0.17418E+03_JPRB,0.17569E+03_JPRB,0.17732E+03_JPRB,0.17906E+03_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.17311E+03_JPRB,0.17453E+03_JPRB,0.17606E+03_JPRB,0.17772E+03_JPRB,0.17949E+03_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.17344E+03_JPRB,0.17488E+03_JPRB,0.17645E+03_JPRB,0.17813E+03_JPRB,0.17994E+03_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.17379E+03_JPRB,0.17526E+03_JPRB,0.17686E+03_JPRB,0.17857E+03_JPRB,0.18040E+03_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.17414E+03_JPRB,0.17565E+03_JPRB,0.17727E+03_JPRB,0.17902E+03_JPRB,0.18088E+03_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.17452E+03_JPRB,0.17605E+03_JPRB,0.17771E+03_JPRB,0.17948E+03_JPRB,0.18137E+03_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.17491E+03_JPRB,0.17647E+03_JPRB,0.17816E+03_JPRB,0.17996E+03_JPRB,0.18188E+03_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.17531E+03_JPRB,0.17690E+03_JPRB,0.17862E+03_JPRB,0.18045E+03_JPRB,0.18241E+03_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.17566E+03_JPRB,0.17728E+03_JPRB,0.17903E+03_JPRB,0.18089E+03_JPRB,0.18287E+03_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.17586E+03_JPRB,0.17750E+03_JPRB,0.17926E+03_JPRB,0.18114E+03_JPRB,0.18313E+03_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.17590E+03_JPRB,0.17754E+03_JPRB,0.17930E+03_JPRB,0.18118E+03_JPRB,0.18318E+03_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.17569E+03_JPRB,0.17732E+03_JPRB,0.17906E+03_JPRB,0.18093E+03_JPRB,0.18291E+03_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.17547E+03_JPRB,0.17708E+03_JPRB,0.17881E+03_JPRB,0.18066E+03_JPRB,0.18263E+03_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.17526E+03_JPRB,0.17685E+03_JPRB,0.17857E+03_JPRB,0.18040E+03_JPRB,0.18235E+03_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.17489E+03_JPRB,0.17646E+03_JPRB,0.17814E+03_JPRB,0.17995E+03_JPRB,0.18187E+03_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.17451E+03_JPRB,0.17605E+03_JPRB,0.17770E+03_JPRB,0.17948E+03_JPRB,0.18137E+03_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.17414E+03_JPRB,0.17565E+03_JPRB,0.17727E+03_JPRB,0.17901E+03_JPRB,0.18087E+03_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.17369E+03_JPRB,0.17516E+03_JPRB,0.17675E+03_JPRB,0.17846E+03_JPRB,0.18028E+03_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.17323E+03_JPRB,0.17465E+03_JPRB,0.17620E+03_JPRB,0.17787E+03_JPRB,0.17965E+03_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.17277E+03_JPRB,0.17416E+03_JPRB,0.17567E+03_JPRB,0.17729E+03_JPRB,0.17904E+03_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.17230E+03_JPRB,0.17365E+03_JPRB,0.17511E+03_JPRB,0.17669E+03_JPRB,0.17840E+03_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.17179E+03_JPRB,0.17309E+03_JPRB,0.17451E+03_JPRB,0.17604E+03_JPRB,0.17770E+03_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.17130E+03_JPRB,0.17255E+03_JPRB,0.17392E+03_JPRB,0.17541E+03_JPRB,0.17702E+03_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.17083E+03_JPRB,0.17204E+03_JPRB,0.17336E+03_JPRB,0.17480E+03_JPRB,0.17636E+03_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.17041E+03_JPRB,0.17157E+03_JPRB,0.17285E+03_JPRB,0.17424E+03_JPRB,0.17576E+03_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.17002E+03_JPRB,0.17113E+03_JPRB,0.17237E+03_JPRB,0.17372E+03_JPRB,0.17519E+03_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.16964E+03_JPRB,0.17071E+03_JPRB,0.17190E+03_JPRB,0.17321E+03_JPRB,0.17464E+03_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.16927E+03_JPRB,0.17031E+03_JPRB,0.17145E+03_JPRB,0.17272E+03_JPRB,0.17411E+03_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.16896E+03_JPRB,0.16995E+03_JPRB,0.17106E+03_JPRB,0.17228E+03_JPRB,0.17363E+03_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.16866E+03_JPRB,0.16962E+03_JPRB,0.17069E+03_JPRB,0.17188E+03_JPRB,0.17318E+03_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.16839E+03_JPRB,0.16930E+03_JPRB,0.17033E+03_JPRB,0.17148E+03_JPRB,0.17275E+03_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.16812E+03_JPRB,0.16899E+03_JPRB,0.16999E+03_JPRB,0.17110E+03_JPRB,0.17233E+03_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.16788E+03_JPRB,0.16871E+03_JPRB,0.16968E+03_JPRB,0.17075E+03_JPRB,0.17195E+03_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.16779E+03_JPRB,0.16861E+03_JPRB,0.16955E+03_JPRB,0.17062E+03_JPRB,0.17180E+03_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.38148E+03_JPRB,0.38431E+03_JPRB,0.38691E+03_JPRB,0.38929E+03_JPRB,0.39144E+03_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.38178E+03_JPRB,0.38458E+03_JPRB,0.38716E+03_JPRB,0.38951E+03_JPRB,0.39164E+03_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.38209E+03_JPRB,0.38487E+03_JPRB,0.38742E+03_JPRB,0.38975E+03_JPRB,0.39186E+03_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.38239E+03_JPRB,0.38514E+03_JPRB,0.38767E+03_JPRB,0.38998E+03_JPRB,0.39206E+03_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.38268E+03_JPRB,0.38541E+03_JPRB,0.38792E+03_JPRB,0.39020E+03_JPRB,0.39226E+03_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.38297E+03_JPRB,0.38568E+03_JPRB,0.38816E+03_JPRB,0.39042E+03_JPRB,0.39246E+03_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.38330E+03_JPRB,0.38598E+03_JPRB,0.38844E+03_JPRB,0.39067E+03_JPRB,0.39268E+03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.38363E+03_JPRB,0.38629E+03_JPRB,0.38872E+03_JPRB,0.39092E+03_JPRB,0.39291E+03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.38414E+03_JPRB,0.38675E+03_JPRB,0.38914E+03_JPRB,0.39131E+03_JPRB,0.39325E+03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.38466E+03_JPRB,0.38723E+03_JPRB,0.38958E+03_JPRB,0.39170E+03_JPRB,0.39360E+03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.38520E+03_JPRB,0.38772E+03_JPRB,0.39002E+03_JPRB,0.39210E+03_JPRB,0.39395E+03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.38575E+03_JPRB,0.38823E+03_JPRB,0.39048E+03_JPRB,0.39251E+03_JPRB,0.39432E+03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.38635E+03_JPRB,0.38877E+03_JPRB,0.39098E+03_JPRB,0.39295E+03_JPRB,0.39470E+03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.38694E+03_JPRB,0.38932E+03_JPRB,0.39146E+03_JPRB,0.39339E+03_JPRB,0.39509E+03_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.38753E+03_JPRB,0.38985E+03_JPRB,0.39194E+03_JPRB,0.39381E+03_JPRB,0.39546E+03_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.38813E+03_JPRB,0.39039E+03_JPRB,0.39243E+03_JPRB,0.39424E+03_JPRB,0.39583E+03_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.38871E+03_JPRB,0.39092E+03_JPRB,0.39290E+03_JPRB,0.39466E+03_JPRB,0.39620E+03_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.38930E+03_JPRB,0.39145E+03_JPRB,0.39338E+03_JPRB,0.39508E+03_JPRB,0.39655E+03_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.38988E+03_JPRB,0.39197E+03_JPRB,0.39384E+03_JPRB,0.39548E+03_JPRB,0.39690E+03_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.39045E+03_JPRB,0.39248E+03_JPRB,0.39429E+03_JPRB,0.39587E+03_JPRB,0.39723E+03_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.39093E+03_JPRB,0.39291E+03_JPRB,0.39467E+03_JPRB,0.39620E+03_JPRB,0.39751E+03_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.39120E+03_JPRB,0.39316E+03_JPRB,0.39488E+03_JPRB,0.39639E+03_JPRB,0.39766E+03_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.39125E+03_JPRB,0.39320E+03_JPRB,0.39492E+03_JPRB,0.39642E+03_JPRB,0.39769E+03_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.39098E+03_JPRB,0.39295E+03_JPRB,0.39471E+03_JPRB,0.39623E+03_JPRB,0.39754E+03_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.39068E+03_JPRB,0.39269E+03_JPRB,0.39447E+03_JPRB,0.39603E+03_JPRB,0.39737E+03_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.39039E+03_JPRB,0.39243E+03_JPRB,0.39424E+03_JPRB,0.39583E+03_JPRB,0.39720E+03_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.38986E+03_JPRB,0.39196E+03_JPRB,0.39382E+03_JPRB,0.39547E+03_JPRB,0.39689E+03_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.38929E+03_JPRB,0.39144E+03_JPRB,0.39337E+03_JPRB,0.39507E+03_JPRB,0.39655E+03_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.38871E+03_JPRB,0.39092E+03_JPRB,0.39290E+03_JPRB,0.39466E+03_JPRB,0.39619E+03_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.38797E+03_JPRB,0.39025E+03_JPRB,0.39230E+03_JPRB,0.39413E+03_JPRB,0.39574E+03_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.38715E+03_JPRB,0.38951E+03_JPRB,0.39164E+03_JPRB,0.39354E+03_JPRB,0.39522E+03_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.38631E+03_JPRB,0.38874E+03_JPRB,0.39094E+03_JPRB,0.39292E+03_JPRB,0.39468E+03_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.38538E+03_JPRB,0.38789E+03_JPRB,0.39018E+03_JPRB,0.39224E+03_JPRB,0.39407E+03_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.38431E+03_JPRB,0.38691E+03_JPRB,0.38929E+03_JPRB,0.39144E+03_JPRB,0.39336E+03_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.38320E+03_JPRB,0.38589E+03_JPRB,0.38836E+03_JPRB,0.39060E+03_JPRB,0.39262E+03_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.38206E+03_JPRB,0.38484E+03_JPRB,0.38739E+03_JPRB,0.38972E+03_JPRB,0.39183E+03_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.38095E+03_JPRB,0.38382E+03_JPRB,0.38646E+03_JPRB,0.38887E+03_JPRB,0.39106E+03_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.37985E+03_JPRB,0.38279E+03_JPRB,0.38552E+03_JPRB,0.38802E+03_JPRB,0.39029E+03_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.37873E+03_JPRB,0.38175E+03_JPRB,0.38455E+03_JPRB,0.38713E+03_JPRB,0.38949E+03_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.37762E+03_JPRB,0.38067E+03_JPRB,0.38355E+03_JPRB,0.38621E+03_JPRB,0.38865E+03_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.37661E+03_JPRB,0.37965E+03_JPRB,0.38261E+03_JPRB,0.38535E+03_JPRB,0.38786E+03_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.37559E+03_JPRB,0.37867E+03_JPRB,0.38169E+03_JPRB,0.38450E+03_JPRB,0.38708E+03_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.37459E+03_JPRB,0.37768E+03_JPRB,0.38074E+03_JPRB,0.38362E+03_JPRB,0.38628E+03_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.37353E+03_JPRB,0.37673E+03_JPRB,0.37977E+03_JPRB,0.38272E+03_JPRB,0.38545E+03_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.37251E+03_JPRB,0.37577E+03_JPRB,0.37885E+03_JPRB,0.38185E+03_JPRB,0.38465E+03_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.37212E+03_JPRB,0.37539E+03_JPRB,0.37847E+03_JPRB,0.38150E+03_JPRB,0.38432E+03_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.62586E+03_JPRB,0.62628E+03_JPRB,0.62699E+03_JPRB,0.62797E+03_JPRB,0.62921E+03_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.62589E+03_JPRB,0.62634E+03_JPRB,0.62708E+03_JPRB,0.62809E+03_JPRB,0.62935E+03_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.62593E+03_JPRB,0.62640E+03_JPRB,0.62717E+03_JPRB,0.62821E+03_JPRB,0.62950E+03_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.62597E+03_JPRB,0.62647E+03_JPRB,0.62727E+03_JPRB,0.62833E+03_JPRB,0.62965E+03_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.62601E+03_JPRB,0.62654E+03_JPRB,0.62737E+03_JPRB,0.62846E+03_JPRB,0.62980E+03_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.62605E+03_JPRB,0.62661E+03_JPRB,0.62746E+03_JPRB,0.62858E+03_JPRB,0.62995E+03_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.62610E+03_JPRB,0.62670E+03_JPRB,0.62758E+03_JPRB,0.62873E+03_JPRB,0.63012E+03_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.62615E+03_JPRB,0.62679E+03_JPRB,0.62770E+03_JPRB,0.62888E+03_JPRB,0.63031E+03_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.62625E+03_JPRB,0.62694E+03_JPRB,0.62790E+03_JPRB,0.62913E+03_JPRB,0.63060E+03_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.62636E+03_JPRB,0.62710E+03_JPRB,0.62812E+03_JPRB,0.62939E+03_JPRB,0.63091E+03_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.62648E+03_JPRB,0.62729E+03_JPRB,0.62835E+03_JPRB,0.62968E+03_JPRB,0.63125E+03_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.62663E+03_JPRB,0.62749E+03_JPRB,0.62861E+03_JPRB,0.62999E+03_JPRB,0.63162E+03_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.62681E+03_JPRB,0.62773E+03_JPRB,0.62891E+03_JPRB,0.63035E+03_JPRB,0.63203E+03_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.62700E+03_JPRB,0.62799E+03_JPRB,0.62923E+03_JPRB,0.63072E+03_JPRB,0.63247E+03_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.62721E+03_JPRB,0.62826E+03_JPRB,0.62956E+03_JPRB,0.63112E+03_JPRB,0.63292E+03_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.62745E+03_JPRB,0.62856E+03_JPRB,0.62993E+03_JPRB,0.63154E+03_JPRB,0.63341E+03_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.62770E+03_JPRB,0.62888E+03_JPRB,0.63031E+03_JPRB,0.63198E+03_JPRB,0.63392E+03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.62798E+03_JPRB,0.62922E+03_JPRB,0.63071E+03_JPRB,0.63245E+03_JPRB,0.63446E+03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.62828E+03_JPRB,0.62958E+03_JPRB,0.63114E+03_JPRB,0.63295E+03_JPRB,0.63503E+03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.62860E+03_JPRB,0.62997E+03_JPRB,0.63159E+03_JPRB,0.63347E+03_JPRB,0.63562E+03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.62889E+03_JPRB,0.63031E+03_JPRB,0.63199E+03_JPRB,0.63393E+03_JPRB,0.63614E+03_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.62906E+03_JPRB,0.63052E+03_JPRB,0.63223E+03_JPRB,0.63421E+03_JPRB,0.63644E+03_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.62909E+03_JPRB,0.63055E+03_JPRB,0.63227E+03_JPRB,0.63425E+03_JPRB,0.63649E+03_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.62891E+03_JPRB,0.63035E+03_JPRB,0.63203E+03_JPRB,0.63397E+03_JPRB,0.63619E+03_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.62873E+03_JPRB,0.63013E+03_JPRB,0.63178E+03_JPRB,0.63369E+03_JPRB,0.63586E+03_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.62856E+03_JPRB,0.62992E+03_JPRB,0.63154E+03_JPRB,0.63341E+03_JPRB,0.63555E+03_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.62827E+03_JPRB,0.62957E+03_JPRB,0.63113E+03_JPRB,0.63293E+03_JPRB,0.63501E+03_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.62798E+03_JPRB,0.62922E+03_JPRB,0.63071E+03_JPRB,0.63245E+03_JPRB,0.63445E+03_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.62770E+03_JPRB,0.62887E+03_JPRB,0.63030E+03_JPRB,0.63198E+03_JPRB,0.63391E+03_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.62739E+03_JPRB,0.62848E+03_JPRB,0.62983E+03_JPRB,0.63143E+03_JPRB,0.63328E+03_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.62708E+03_JPRB,0.62808E+03_JPRB,0.62935E+03_JPRB,0.63086E+03_JPRB,0.63263E+03_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.62679E+03_JPRB,0.62771E+03_JPRB,0.62889E+03_JPRB,0.63032E+03_JPRB,0.63200E+03_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.62653E+03_JPRB,0.62735E+03_JPRB,0.62844E+03_JPRB,0.62978E+03_JPRB,0.63137E+03_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.62629E+03_JPRB,0.62699E+03_JPRB,0.62797E+03_JPRB,0.62921E+03_JPRB,0.63070E+03_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.62608E+03_JPRB,0.62667E+03_JPRB,0.62755E+03_JPRB,0.62868E+03_JPRB,0.63007E+03_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.62592E+03_JPRB,0.62640E+03_JPRB,0.62716E+03_JPRB,0.62820E+03_JPRB,0.62948E+03_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.62580E+03_JPRB,0.62619E+03_JPRB,0.62684E+03_JPRB,0.62778E+03_JPRB,0.62897E+03_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.62580E+03_JPRB,0.62602E+03_JPRB,0.62657E+03_JPRB,0.62741E+03_JPRB,0.62850E+03_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.62578E+03_JPRB,0.62589E+03_JPRB,0.62633E+03_JPRB,0.62707E+03_JPRB,0.62807E+03_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.62574E+03_JPRB,0.62578E+03_JPRB,0.62614E+03_JPRB,0.62677E+03_JPRB,0.62768E+03_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.62576E+03_JPRB,0.62580E+03_JPRB,0.62600E+03_JPRB,0.62652E+03_JPRB,0.62734E+03_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.62585E+03_JPRB,0.62578E+03_JPRB,0.62588E+03_JPRB,0.62632E+03_JPRB,0.62705E+03_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.62587E+03_JPRB,0.62576E+03_JPRB,0.62579E+03_JPRB,0.62615E+03_JPRB,0.62678E+03_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.62591E+03_JPRB,0.62574E+03_JPRB,0.62580E+03_JPRB,0.62601E+03_JPRB,0.62655E+03_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.62591E+03_JPRB,0.62583E+03_JPRB,0.62578E+03_JPRB,0.62590E+03_JPRB,0.62636E+03_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.62590E+03_JPRB,0.62586E+03_JPRB,0.62578E+03_JPRB,0.62586E+03_JPRB,0.62628E+03_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81935E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.81826E+03_JPRB,0.81882E+03_JPRB,0.81939E+03_JPRB,0.82006E+03_JPRB,0.82081E+03_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.81831E+03_JPRB,0.81888E+03_JPRB,0.81946E+03_JPRB,0.82012E+03_JPRB,0.82089E+03_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.81836E+03_JPRB,0.81895E+03_JPRB,0.81952E+03_JPRB,0.82021E+03_JPRB,0.82098E+03_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.81842E+03_JPRB,0.81901E+03_JPRB,0.81959E+03_JPRB,0.82028E+03_JPRB,0.82106E+03_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.81847E+03_JPRB,0.81907E+03_JPRB,0.81965E+03_JPRB,0.82036E+03_JPRB,0.82116E+03_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.81853E+03_JPRB,0.81913E+03_JPRB,0.81972E+03_JPRB,0.82043E+03_JPRB,0.82123E+03_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.81860E+03_JPRB,0.81919E+03_JPRB,0.81980E+03_JPRB,0.82052E+03_JPRB,0.82133E+03_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.81868E+03_JPRB,0.81925E+03_JPRB,0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.81879E+03_JPRB,0.81936E+03_JPRB,0.82001E+03_JPRB,0.82076E+03_JPRB,0.82160E+03_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.81889E+03_JPRB,0.81947E+03_JPRB,0.82015E+03_JPRB,0.82091E+03_JPRB,0.82177E+03_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.81902E+03_JPRB,0.81960E+03_JPRB,0.82030E+03_JPRB,0.82108E+03_JPRB,0.82195E+03_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.81914E+03_JPRB,0.81974E+03_JPRB,0.82046E+03_JPRB,0.82126E+03_JPRB,0.82214E+03_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.81927E+03_JPRB,0.81990E+03_JPRB,0.82063E+03_JPRB,0.82145E+03_JPRB,0.82236E+03_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.81941E+03_JPRB,0.82006E+03_JPRB,0.82082E+03_JPRB,0.82166E+03_JPRB,0.82258E+03_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.81957E+03_JPRB,0.82024E+03_JPRB,0.82101E+03_JPRB,0.82188E+03_JPRB,0.82281E+03_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.81971E+03_JPRB,0.82042E+03_JPRB,0.82122E+03_JPRB,0.82210E+03_JPRB,0.82305E+03_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB,0.82233E+03_JPRB,0.82330E+03_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.82006E+03_JPRB,0.82081E+03_JPRB,0.82166E+03_JPRB,0.82258E+03_JPRB,0.82355E+03_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.82025E+03_JPRB,0.82103E+03_JPRB,0.82189E+03_JPRB,0.82283E+03_JPRB,0.82380E+03_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.82044E+03_JPRB,0.82124E+03_JPRB,0.82213E+03_JPRB,0.82308E+03_JPRB,0.82408E+03_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.82062E+03_JPRB,0.82144E+03_JPRB,0.82234E+03_JPRB,0.82330E+03_JPRB,0.82432E+03_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.82072E+03_JPRB,0.82155E+03_JPRB,0.82246E+03_JPRB,0.82342E+03_JPRB,0.82446E+03_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.82074E+03_JPRB,0.82157E+03_JPRB,0.82248E+03_JPRB,0.82345E+03_JPRB,0.82448E+03_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.82063E+03_JPRB,0.82146E+03_JPRB,0.82236E+03_JPRB,0.82332E+03_JPRB,0.82434E+03_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.82053E+03_JPRB,0.82134E+03_JPRB,0.82223E+03_JPRB,0.82319E+03_JPRB,0.82419E+03_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.82042E+03_JPRB,0.82122E+03_JPRB,0.82210E+03_JPRB,0.82305E+03_JPRB,0.82405E+03_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.82024E+03_JPRB,0.82102E+03_JPRB,0.82188E+03_JPRB,0.82282E+03_JPRB,0.82380E+03_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.82006E+03_JPRB,0.82081E+03_JPRB,0.82165E+03_JPRB,0.82257E+03_JPRB,0.82354E+03_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB,0.82233E+03_JPRB,0.82329E+03_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.81967E+03_JPRB,0.82037E+03_JPRB,0.82117E+03_JPRB,0.82204E+03_JPRB,0.82299E+03_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.81946E+03_JPRB,0.82013E+03_JPRB,0.82089E+03_JPRB,0.82174E+03_JPRB,0.82267E+03_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.81926E+03_JPRB,0.81989E+03_JPRB,0.82062E+03_JPRB,0.82144E+03_JPRB,0.82234E+03_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.81907E+03_JPRB,0.81965E+03_JPRB,0.82034E+03_JPRB,0.82114E+03_JPRB,0.82201E+03_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.81882E+03_JPRB,0.81939E+03_JPRB,0.82006E+03_JPRB,0.82081E+03_JPRB,0.82165E+03_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.81858E+03_JPRB,0.81917E+03_JPRB,0.81978E+03_JPRB,0.82050E+03_JPRB,0.82130E+03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.81836E+03_JPRB,0.81894E+03_JPRB,0.81953E+03_JPRB,0.82019E+03_JPRB,0.82097E+03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.81817E+03_JPRB,0.81871E+03_JPRB,0.81929E+03_JPRB,0.81993E+03_JPRB,0.82067E+03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.81790E+03_JPRB,0.81850E+03_JPRB,0.81910E+03_JPRB,0.81967E+03_JPRB,0.82039E+03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.81779E+03_JPRB,0.81830E+03_JPRB,0.81888E+03_JPRB,0.81945E+03_JPRB,0.82012E+03_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.81766E+03_JPRB,0.81812E+03_JPRB,0.81866E+03_JPRB,0.81924E+03_JPRB,0.81986E+03_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.81744E+03_JPRB,0.81785E+03_JPRB,0.81846E+03_JPRB,0.81906E+03_JPRB,0.81964E+03_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.81733E+03_JPRB,0.81777E+03_JPRB,0.81829E+03_JPRB,0.81886E+03_JPRB,0.81944E+03_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.81741E+03_JPRB,0.81767E+03_JPRB,0.81813E+03_JPRB,0.81867E+03_JPRB,0.81925E+03_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.81785E+03_JPRB,0.81749E+03_JPRB,0.81788E+03_JPRB,0.81848E+03_JPRB,0.81908E+03_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.81817E+03_JPRB,0.81731E+03_JPRB,0.81779E+03_JPRB,0.81832E+03_JPRB,0.81889E+03_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.81824E+03_JPRB,0.81736E+03_JPRB,0.81776E+03_JPRB,0.81826E+03_JPRB,0.81883E+03_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94687E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.94163E+03_JPRB,0.94463E+03_JPRB,0.94708E+03_JPRB,0.94898E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.94195E+03_JPRB,0.94490E+03_JPRB,0.94731E+03_JPRB,0.94914E+03_JPRB,0.95042E+03_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.94229E+03_JPRB,0.94518E+03_JPRB,0.94753E+03_JPRB,0.94930E+03_JPRB,0.95052E+03_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.94262E+03_JPRB,0.94544E+03_JPRB,0.94774E+03_JPRB,0.94946E+03_JPRB,0.95061E+03_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.94293E+03_JPRB,0.94570E+03_JPRB,0.94795E+03_JPRB,0.94960E+03_JPRB,0.95069E+03_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.94323E+03_JPRB,0.94595E+03_JPRB,0.94814E+03_JPRB,0.94974E+03_JPRB,0.95078E+03_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.94357E+03_JPRB,0.94624E+03_JPRB,0.94835E+03_JPRB,0.94989E+03_JPRB,0.95087E+03_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.94393E+03_JPRB,0.94654E+03_JPRB,0.94857E+03_JPRB,0.95003E+03_JPRB,0.95096E+03_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.94445E+03_JPRB,0.94695E+03_JPRB,0.94888E+03_JPRB,0.95025E+03_JPRB,0.95105E+03_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.94499E+03_JPRB,0.94737E+03_JPRB,0.94919E+03_JPRB,0.95045E+03_JPRB,0.95113E+03_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.94549E+03_JPRB,0.94778E+03_JPRB,0.94948E+03_JPRB,0.95063E+03_JPRB,0.95120E+03_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.94602E+03_JPRB,0.94819E+03_JPRB,0.94978E+03_JPRB,0.95082E+03_JPRB,0.95125E+03_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.94658E+03_JPRB,0.94861E+03_JPRB,0.95006E+03_JPRB,0.95096E+03_JPRB,0.95127E+03_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.94710E+03_JPRB,0.94900E+03_JPRB,0.95033E+03_JPRB,0.95109E+03_JPRB,0.95126E+03_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.94759E+03_JPRB,0.94937E+03_JPRB,0.95056E+03_JPRB,0.95118E+03_JPRB,0.95123E+03_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.94811E+03_JPRB,0.94973E+03_JPRB,0.95077E+03_JPRB,0.95124E+03_JPRB,0.95116E+03_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.94856E+03_JPRB,0.95003E+03_JPRB,0.95095E+03_JPRB,0.95127E+03_JPRB,0.95105E+03_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.94901E+03_JPRB,0.95032E+03_JPRB,0.95108E+03_JPRB,0.95127E+03_JPRB,0.95090E+03_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.94939E+03_JPRB,0.95057E+03_JPRB,0.95118E+03_JPRB,0.95121E+03_JPRB,0.95071E+03_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.94975E+03_JPRB,0.95079E+03_JPRB,0.95125E+03_JPRB,0.95115E+03_JPRB,0.95050E+03_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.95004E+03_JPRB,0.95095E+03_JPRB,0.95128E+03_JPRB,0.95105E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.95020E+03_JPRB,0.95102E+03_JPRB,0.95127E+03_JPRB,0.95098E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.95021E+03_JPRB,0.95103E+03_JPRB,0.95127E+03_JPRB,0.95096E+03_JPRB,0.95023E+03_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.95006E+03_JPRB,0.95096E+03_JPRB,0.95127E+03_JPRB,0.95104E+03_JPRB,0.95027E+03_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.94990E+03_JPRB,0.95087E+03_JPRB,0.95126E+03_JPRB,0.95110E+03_JPRB,0.95040E+03_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.94972E+03_JPRB,0.95077E+03_JPRB,0.95124E+03_JPRB,0.95117E+03_JPRB,0.95053E+03_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.94939E+03_JPRB,0.95057E+03_JPRB,0.95118E+03_JPRB,0.95123E+03_JPRB,0.95072E+03_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.94899E+03_JPRB,0.95032E+03_JPRB,0.95108E+03_JPRB,0.95127E+03_JPRB,0.95090E+03_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.94856E+03_JPRB,0.95004E+03_JPRB,0.95094E+03_JPRB,0.95127E+03_JPRB,0.95105E+03_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.94799E+03_JPRB,0.94963E+03_JPRB,0.95073E+03_JPRB,0.95123E+03_JPRB,0.95118E+03_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.94729E+03_JPRB,0.94914E+03_JPRB,0.95041E+03_JPRB,0.95112E+03_JPRB,0.95126E+03_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.94655E+03_JPRB,0.94858E+03_JPRB,0.95004E+03_JPRB,0.95095E+03_JPRB,0.95127E+03_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.94568E+03_JPRB,0.94792E+03_JPRB,0.94958E+03_JPRB,0.95070E+03_JPRB,0.95122E+03_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.94463E+03_JPRB,0.94708E+03_JPRB,0.94898E+03_JPRB,0.95031E+03_JPRB,0.95108E+03_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.94348E+03_JPRB,0.94616E+03_JPRB,0.94829E+03_JPRB,0.94984E+03_JPRB,0.95084E+03_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.94226E+03_JPRB,0.94515E+03_JPRB,0.94748E+03_JPRB,0.94928E+03_JPRB,0.95051E+03_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.94103E+03_JPRB,0.94413E+03_JPRB,0.94669E+03_JPRB,0.94868E+03_JPRB,0.95011E+03_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.93978E+03_JPRB,0.94307E+03_JPRB,0.94580E+03_JPRB,0.94802E+03_JPRB,0.94965E+03_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.93828E+03_JPRB,0.94192E+03_JPRB,0.94488E+03_JPRB,0.94728E+03_JPRB,0.94912E+03_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.93678E+03_JPRB,0.94072E+03_JPRB,0.94388E+03_JPRB,0.94646E+03_JPRB,0.94851E+03_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.93537E+03_JPRB,0.93955E+03_JPRB,0.94287E+03_JPRB,0.94565E+03_JPRB,0.94789E+03_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.93380E+03_JPRB,0.93820E+03_JPRB,0.94186E+03_JPRB,0.94483E+03_JPRB,0.94722E+03_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.93205E+03_JPRB,0.93688E+03_JPRB,0.94080E+03_JPRB,0.94394E+03_JPRB,0.94652E+03_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.92997E+03_JPRB,0.93554E+03_JPRB,0.93969E+03_JPRB,0.94299E+03_JPRB,0.94574E+03_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.92808E+03_JPRB,0.93414E+03_JPRB,0.93844E+03_JPRB,0.94204E+03_JPRB,0.94498E+03_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.92793E+03_JPRB,0.93341E+03_JPRB,0.93792E+03_JPRB,0.94165E+03_JPRB,0.94465E+03_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.98036E+03_JPRB,0.98526E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.98067E+03_JPRB,0.98568E+03_JPRB,0.99005E+03_JPRB,0.99301E+03_JPRB,0.99477E+03_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.98125E+03_JPRB,0.98614E+03_JPRB,0.99040E+03_JPRB,0.99324E+03_JPRB,0.99485E+03_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.98185E+03_JPRB,0.98662E+03_JPRB,0.99076E+03_JPRB,0.99348E+03_JPRB,0.99493E+03_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.98242E+03_JPRB,0.98721E+03_JPRB,0.99109E+03_JPRB,0.99369E+03_JPRB,0.99498E+03_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.98296E+03_JPRB,0.98755E+03_JPRB,0.99141E+03_JPRB,0.99390E+03_JPRB,0.99502E+03_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.98350E+03_JPRB,0.98800E+03_JPRB,0.99172E+03_JPRB,0.99408E+03_JPRB,0.99505E+03_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.98411E+03_JPRB,0.98852E+03_JPRB,0.99205E+03_JPRB,0.99428E+03_JPRB,0.99507E+03_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.98464E+03_JPRB,0.98894E+03_JPRB,0.99238E+03_JPRB,0.99447E+03_JPRB,0.99496E+03_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.98547E+03_JPRB,0.98983E+03_JPRB,0.99286E+03_JPRB,0.99470E+03_JPRB,0.99509E+03_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.98617E+03_JPRB,0.99062E+03_JPRB,0.99331E+03_JPRB,0.99487E+03_JPRB,0.99508E+03_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.98718E+03_JPRB,0.99115E+03_JPRB,0.99373E+03_JPRB,0.99499E+03_JPRB,0.99503E+03_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.98813E+03_JPRB,0.99180E+03_JPRB,0.99413E+03_JPRB,0.99494E+03_JPRB,0.99492E+03_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.98918E+03_JPRB,0.99244E+03_JPRB,0.99450E+03_JPRB,0.99508E+03_JPRB,0.99475E+03_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.99010E+03_JPRB,0.99304E+03_JPRB,0.99478E+03_JPRB,0.99509E+03_JPRB,0.99499E+03_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.99090E+03_JPRB,0.99357E+03_JPRB,0.99495E+03_JPRB,0.99505E+03_JPRB,0.99433E+03_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.99167E+03_JPRB,0.99393E+03_JPRB,0.99505E+03_JPRB,0.99495E+03_JPRB,0.99385E+03_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.99249E+03_JPRB,0.99447E+03_JPRB,0.99508E+03_JPRB,0.99477E+03_JPRB,0.99348E+03_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.99290E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB,0.99452E+03_JPRB,0.99326E+03_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.99360E+03_JPRB,0.99496E+03_JPRB,0.99505E+03_JPRB,0.99419E+03_JPRB,0.99287E+03_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.99410E+03_JPRB,0.99506E+03_JPRB,0.99493E+03_JPRB,0.99381E+03_JPRB,0.99210E+03_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.99447E+03_JPRB,0.99508E+03_JPRB,0.99465E+03_JPRB,0.99347E+03_JPRB,0.99121E+03_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.99453E+03_JPRB,0.99509E+03_JPRB,0.99465E+03_JPRB,0.99330E+03_JPRB,0.99083E+03_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.99467E+03_JPRB,0.99509E+03_JPRB,0.99463E+03_JPRB,0.99327E+03_JPRB,0.98992E+03_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.99451E+03_JPRB,0.99508E+03_JPRB,0.99475E+03_JPRB,0.99344E+03_JPRB,0.99124E+03_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.99429E+03_JPRB,0.99507E+03_JPRB,0.99486E+03_JPRB,0.99365E+03_JPRB,0.99174E+03_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.99405E+03_JPRB,0.99505E+03_JPRB,0.99495E+03_JPRB,0.99373E+03_JPRB,0.99219E+03_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.99347E+03_JPRB,0.99496E+03_JPRB,0.99505E+03_JPRB,0.99420E+03_JPRB,0.99289E+03_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.99302E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB,0.99452E+03_JPRB,0.99315E+03_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.99237E+03_JPRB,0.99435E+03_JPRB,0.99508E+03_JPRB,0.99477E+03_JPRB,0.99348E+03_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.99148E+03_JPRB,0.99394E+03_JPRB,0.99491E+03_JPRB,0.99498E+03_JPRB,0.99395E+03_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.99040E+03_JPRB,0.99324E+03_JPRB,0.99485E+03_JPRB,0.99508E+03_JPRB,0.99453E+03_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.98910E+03_JPRB,0.99241E+03_JPRB,0.99449E+03_JPRB,0.99508E+03_JPRB,0.99476E+03_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.98735E+03_JPRB,0.99138E+03_JPRB,0.99388E+03_JPRB,0.99490E+03_JPRB,0.99500E+03_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.98565E+03_JPRB,0.99006E+03_JPRB,0.99301E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.98383E+03_JPRB,0.98834E+03_JPRB,0.99196E+03_JPRB,0.99423E+03_JPRB,0.99507E+03_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.98174E+03_JPRB,0.98651E+03_JPRB,0.99073E+03_JPRB,0.99346E+03_JPRB,0.99492E+03_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.97955E+03_JPRB,0.98480E+03_JPRB,0.98924E+03_JPRB,0.99257E+03_JPRB,0.99470E+03_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.97755E+03_JPRB,0.98298E+03_JPRB,0.98767E+03_JPRB,0.99154E+03_JPRB,0.99399E+03_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.97554E+03_JPRB,0.98111E+03_JPRB,0.98597E+03_JPRB,0.99036E+03_JPRB,0.99323E+03_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.97320E+03_JPRB,0.97892E+03_JPRB,0.98413E+03_JPRB,0.98888E+03_JPRB,0.99232E+03_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.97086E+03_JPRB,0.97720E+03_JPRB,0.98263E+03_JPRB,0.98733E+03_JPRB,0.99135E+03_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.96881E+03_JPRB,0.97539E+03_JPRB,0.98096E+03_JPRB,0.98583E+03_JPRB,0.99029E+03_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.96735E+03_JPRB,0.97336E+03_JPRB,0.97906E+03_JPRB,0.98435E+03_JPRB,0.98900E+03_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.96407E+03_JPRB,0.97115E+03_JPRB,0.97740E+03_JPRB,0.98282E+03_JPRB,0.98752E+03_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.96154E+03_JPRB,0.96893E+03_JPRB,0.97574E+03_JPRB,0.98129E+03_JPRB,0.98611E+03_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.95571E+03_JPRB,0.96861E+03_JPRB,0.97503E+03_JPRB,0.98063E+03_JPRB,0.98557E+03_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.98771E+03_JPRB,0.99296E+03_JPRB,0.99655E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.98850E+03_JPRB,0.99335E+03_JPRB,0.99679E+03_JPRB,0.99871E+03_JPRB,0.99939E+03_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.98905E+03_JPRB,0.99377E+03_JPRB,0.99705E+03_JPRB,0.99882E+03_JPRB,0.99942E+03_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.98962E+03_JPRB,0.99419E+03_JPRB,0.99730E+03_JPRB,0.99893E+03_JPRB,0.99945E+03_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.99016E+03_JPRB,0.99444E+03_JPRB,0.99754E+03_JPRB,0.99903E+03_JPRB,0.99947E+03_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.99067E+03_JPRB,0.99497E+03_JPRB,0.99775E+03_JPRB,0.99911E+03_JPRB,0.99948E+03_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.99117E+03_JPRB,0.99532E+03_JPRB,0.99795E+03_JPRB,0.99918E+03_JPRB,0.99949E+03_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.99173E+03_JPRB,0.99572E+03_JPRB,0.99816E+03_JPRB,0.99924E+03_JPRB,0.99949E+03_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.99228E+03_JPRB,0.99610E+03_JPRB,0.99835E+03_JPRB,0.99929E+03_JPRB,0.99946E+03_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.99309E+03_JPRB,0.99663E+03_JPRB,0.99862E+03_JPRB,0.99936E+03_JPRB,0.99953E+03_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.99388E+03_JPRB,0.99698E+03_JPRB,0.99900E+03_JPRB,0.99942E+03_JPRB,0.99925E+03_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.99466E+03_JPRB,0.99758E+03_JPRB,0.99904E+03_JPRB,0.99947E+03_JPRB,0.99905E+03_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.99542E+03_JPRB,0.99800E+03_JPRB,0.99919E+03_JPRB,0.99963E+03_JPRB,0.99878E+03_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.99618E+03_JPRB,0.99839E+03_JPRB,0.99930E+03_JPRB,0.99945E+03_JPRB,0.99847E+03_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.99683E+03_JPRB,0.99872E+03_JPRB,0.99939E+03_JPRB,0.99934E+03_JPRB,0.99751E+03_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.99741E+03_JPRB,0.99897E+03_JPRB,0.99946E+03_JPRB,0.99913E+03_JPRB,0.99749E+03_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.99792E+03_JPRB,0.99917E+03_JPRB,0.99949E+03_JPRB,0.99884E+03_JPRB,0.99707E+03_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.99821E+03_JPRB,0.99929E+03_JPRB,0.99946E+03_JPRB,0.99850E+03_JPRB,0.99637E+03_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.99871E+03_JPRB,0.99938E+03_JPRB,0.99949E+03_JPRB,0.99810E+03_JPRB,0.99532E+03_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.99899E+03_JPRB,0.99961E+03_JPRB,0.99926E+03_JPRB,0.99761E+03_JPRB,0.99460E+03_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.99918E+03_JPRB,0.99949E+03_JPRB,0.99880E+03_JPRB,0.99700E+03_JPRB,0.99413E+03_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.99929E+03_JPRB,0.99946E+03_JPRB,0.99850E+03_JPRB,0.99635E+03_JPRB,0.99329E+03_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.99934E+03_JPRB,0.99941E+03_JPRB,0.99830E+03_JPRB,0.99590E+03_JPRB,0.99292E+03_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.99935E+03_JPRB,0.99940E+03_JPRB,0.99826E+03_JPRB,0.99583E+03_JPRB,0.99287E+03_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.99930E+03_JPRB,0.99946E+03_JPRB,0.99846E+03_JPRB,0.99628E+03_JPRB,0.99327E+03_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.99924E+03_JPRB,0.99949E+03_JPRB,0.99866E+03_JPRB,0.99670E+03_JPRB,0.99350E+03_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.99917E+03_JPRB,0.99949E+03_JPRB,0.99899E+03_JPRB,0.99707E+03_JPRB,0.99451E+03_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.99898E+03_JPRB,0.99946E+03_JPRB,0.99913E+03_JPRB,0.99777E+03_JPRB,0.99505E+03_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.99871E+03_JPRB,0.99939E+03_JPRB,0.99935E+03_JPRB,0.99810E+03_JPRB,0.99546E+03_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.99835E+03_JPRB,0.99929E+03_JPRB,0.99947E+03_JPRB,0.99851E+03_JPRB,0.99637E+03_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.99780E+03_JPRB,0.99913E+03_JPRB,0.99949E+03_JPRB,0.99893E+03_JPRB,0.99722E+03_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.99704E+03_JPRB,0.99882E+03_JPRB,0.99942E+03_JPRB,0.99928E+03_JPRB,0.99778E+03_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.99613E+03_JPRB,0.99837E+03_JPRB,0.99930E+03_JPRB,0.99947E+03_JPRB,0.99849E+03_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.99492E+03_JPRB,0.99787E+03_JPRB,0.99911E+03_JPRB,0.99949E+03_JPRB,0.99897E+03_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.99335E+03_JPRB,0.99679E+03_JPRB,0.99871E+03_JPRB,0.99939E+03_JPRB,0.99936E+03_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.99156E+03_JPRB,0.99560E+03_JPRB,0.99810E+03_JPRB,0.99923E+03_JPRB,0.99951E+03_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.98955E+03_JPRB,0.99414E+03_JPRB,0.99727E+03_JPRB,0.99894E+03_JPRB,0.99946E+03_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.98749E+03_JPRB,0.99256E+03_JPRB,0.99630E+03_JPRB,0.99847E+03_JPRB,0.99918E+03_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.98496E+03_JPRB,0.99085E+03_JPRB,0.99509E+03_JPRB,0.99784E+03_JPRB,0.99916E+03_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.98304E+03_JPRB,0.98897E+03_JPRB,0.99370E+03_JPRB,0.99701E+03_JPRB,0.99883E+03_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.98104E+03_JPRB,0.98693E+03_JPRB,0.99213E+03_JPRB,0.99600E+03_JPRB,0.99833E+03_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.97906E+03_JPRB,0.98440E+03_JPRB,0.99053E+03_JPRB,0.99485E+03_JPRB,0.99771E+03_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.97789E+03_JPRB,0.98286E+03_JPRB,0.98886E+03_JPRB,0.99361E+03_JPRB,0.99696E+03_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.97514E+03_JPRB,0.98117E+03_JPRB,0.98708E+03_JPRB,0.99224E+03_JPRB,0.99622E+03_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.97242E+03_JPRB,0.97945E+03_JPRB,0.98472E+03_JPRB,0.99072E+03_JPRB,0.99500E+03_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.96969E+03_JPRB,0.97814E+03_JPRB,0.98316E+03_JPRB,0.98916E+03_JPRB,0.99384E+03_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.96859E+03_JPRB,0.97725E+03_JPRB,0.98261E+03_JPRB,0.98851E+03_JPRB,0.99335E+03_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.99768E+03_JPRB,0.99984E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.99795E+03_JPRB,0.99992E+03_JPRB,0.10011E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.99880E+03_JPRB,0.99996E+03_JPRB,0.10013E+04_JPRB,0.10026E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.99852E+03_JPRB,0.10003E+04_JPRB,0.10015E+04_JPRB,0.10028E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.99876E+03_JPRB,0.10000E+04_JPRB,0.10016E+04_JPRB,0.10027E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.99898E+03_JPRB,0.10001E+04_JPRB,0.10018E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.99918E+03_JPRB,0.10003E+04_JPRB,0.10021E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.99940E+03_JPRB,0.10005E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.99959E+03_JPRB,0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.99984E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10030E+04_JPRB,0.10023E+04_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.99996E+03_JPRB,0.10013E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.10000E+04_JPRB,0.10016E+04_JPRB,0.10029E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.10003E+04_JPRB,0.10023E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10019E+04_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.10012E+04_JPRB,0.10025E+04_JPRB,0.10031E+04_JPRB,0.10024E+04_JPRB,0.10010E+04_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.10015E+04_JPRB,0.10027E+04_JPRB,0.10029E+04_JPRB,0.10022E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.10019E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10019E+04_JPRB,0.99992E+03_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10017E+04_JPRB,0.99965E+03_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.10025E+04_JPRB,0.10030E+04_JPRB,0.10022E+04_JPRB,0.10011E+04_JPRB,0.99843E+03_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10020E+04_JPRB,0.10007E+04_JPRB,0.99748E+03_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.10029E+04_JPRB,0.10028E+04_JPRB,0.10021E+04_JPRB,0.10000E+04_JPRB,0.99658E+03_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.10031E+04_JPRB,0.10026E+04_JPRB,0.10017E+04_JPRB,0.99945E+03_JPRB,0.99563E+03_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.10030E+04_JPRB,0.10025E+04_JPRB,0.10031E+04_JPRB,0.99888E+03_JPRB,0.99496E+03_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.10030E+04_JPRB,0.10025E+04_JPRB,0.10020E+04_JPRB,0.99880E+03_JPRB,0.99482E+03_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB,0.99939E+03_JPRB,0.99547E+03_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.10029E+04_JPRB,0.10027E+04_JPRB,0.10017E+04_JPRB,0.99958E+03_JPRB,0.99634E+03_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.10028E+04_JPRB,0.10028E+04_JPRB,0.10017E+04_JPRB,0.99993E+03_JPRB,0.99613E+03_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10022E+04_JPRB,0.10003E+04_JPRB,0.99696E+03_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10024E+04_JPRB,0.10013E+04_JPRB,0.99857E+03_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.10022E+04_JPRB,0.10029E+04_JPRB,0.10028E+04_JPRB,0.10021E+04_JPRB,0.99929E+03_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.10018E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10020E+04_JPRB,0.10001E+04_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.10013E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB,0.10016E+04_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.10014E+04_JPRB,0.10016E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10020E+04_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.99993E+03_JPRB,0.10012E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB,0.10024E+04_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.99937E+03_JPRB,0.10005E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10027E+04_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.99853E+03_JPRB,0.10002E+04_JPRB,0.10015E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.99741E+03_JPRB,0.99993E+03_JPRB,0.10008E+04_JPRB,0.10023E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.99665E+03_JPRB,0.99912E+03_JPRB,0.10002E+04_JPRB,0.10018E+04_JPRB,0.10028E+04_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.99385E+03_JPRB,0.99826E+03_JPRB,0.10000E+04_JPRB,0.10013E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.99099E+03_JPRB,0.99714E+03_JPRB,0.99965E+03_JPRB,0.10007E+04_JPRB,0.10022E+04_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.98826E+03_JPRB,0.99612E+03_JPRB,0.99903E+03_JPRB,0.10002E+04_JPRB,0.10018E+04_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.98397E+03_JPRB,0.99379E+03_JPRB,0.99822E+03_JPRB,0.10000E+04_JPRB,0.10013E+04_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.98006E+03_JPRB,0.99120E+03_JPRB,0.99722E+03_JPRB,0.99969E+03_JPRB,0.10006E+04_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.97631E+03_JPRB,0.98840E+03_JPRB,0.99624E+03_JPRB,0.99911E+03_JPRB,0.10002E+04_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.97279E+03_JPRB,0.98508E+03_JPRB,0.99422E+03_JPRB,0.99838E+03_JPRB,0.10001E+04_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.97171E+03_JPRB,0.98327E+03_JPRB,0.99315E+03_JPRB,0.99818E+03_JPRB,0.99997E+03_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.99623E+03_JPRB,0.99978E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10054E+04_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.99674E+03_JPRB,0.10002E+04_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.99652E+03_JPRB,0.10007E+04_JPRB,0.10036E+04_JPRB,0.10051E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.99785E+03_JPRB,0.10007E+04_JPRB,0.10039E+04_JPRB,0.10049E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.99816E+03_JPRB,0.10017E+04_JPRB,0.10043E+04_JPRB,0.10052E+04_JPRB,0.10052E+04_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.99792E+03_JPRB,0.10021E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.99826E+03_JPRB,0.10023E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.99869E+03_JPRB,0.10028E+04_JPRB,0.10038E+04_JPRB,0.10053E+04_JPRB,0.10044E+04_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.99914E+03_JPRB,0.10028E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.99989E+03_JPRB,0.10035E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB,0.10046E+04_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.10011E+04_JPRB,0.10037E+04_JPRB,0.10051E+04_JPRB,0.10053E+04_JPRB,0.10041E+04_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.10018E+04_JPRB,0.10041E+04_JPRB,0.10050E+04_JPRB,0.10052E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.10026E+04_JPRB,0.10040E+04_JPRB,0.10056E+04_JPRB,0.10050E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.10031E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10050E+04_JPRB,0.10030E+04_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.10047E+04_JPRB,0.10050E+04_JPRB,0.10051E+04_JPRB,0.10045E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.10039E+04_JPRB,0.10052E+04_JPRB,0.10052E+04_JPRB,0.10041E+04_JPRB,0.10018E+04_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.10044E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB,0.10037E+04_JPRB,0.10011E+04_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB,0.10029E+04_JPRB,0.99977E+03_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.10050E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB,0.10025E+04_JPRB,0.99968E+03_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.10052E+04_JPRB,0.10050E+04_JPRB,0.10041E+04_JPRB,0.10015E+04_JPRB,0.99880E+03_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.10053E+04_JPRB,0.10050E+04_JPRB,0.10033E+04_JPRB,0.10008E+04_JPRB,0.99675E+03_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.10051E+04_JPRB,0.10048E+04_JPRB,0.10028E+04_JPRB,0.10000E+04_JPRB,0.99529E+03_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.10054E+04_JPRB,0.10047E+04_JPRB,0.10003E+04_JPRB,0.99992E+03_JPRB,0.99481E+03_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.10054E+04_JPRB,0.10046E+04_JPRB,0.10017E+04_JPRB,0.99987E+03_JPRB,0.99445E+03_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.10054E+04_JPRB,0.10048E+04_JPRB,0.10030E+04_JPRB,0.99995E+03_JPRB,0.99517E+03_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.10054E+04_JPRB,0.10049E+04_JPRB,0.10034E+04_JPRB,0.10006E+04_JPRB,0.99603E+03_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.10053E+04_JPRB,0.10051E+04_JPRB,0.10037E+04_JPRB,0.10011E+04_JPRB,0.99693E+03_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.10052E+04_JPRB,0.10052E+04_JPRB,0.10041E+04_JPRB,0.10018E+04_JPRB,0.99860E+03_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.10048E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB,0.10023E+04_JPRB,0.99951E+03_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.10048E+04_JPRB,0.10054E+04_JPRB,0.10046E+04_JPRB,0.10024E+04_JPRB,0.10003E+04_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.10043E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB,0.10038E+04_JPRB,0.10013E+04_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.10036E+04_JPRB,0.10051E+04_JPRB,0.10053E+04_JPRB,0.10044E+04_JPRB,0.10012E+04_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.10028E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.10008E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10052E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.10002E+04_JPRB,0.10039E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.99859E+03_JPRB,0.10025E+04_JPRB,0.10043E+04_JPRB,0.10054E+04_JPRB,0.10050E+04_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.99776E+03_JPRB,0.10009E+04_JPRB,0.10041E+04_JPRB,0.10052E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.99565E+03_JPRB,0.99944E+03_JPRB,0.10034E+04_JPRB,0.10049E+04_JPRB,0.10054E+04_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.99271E+03_JPRB,0.99811E+03_JPRB,0.10022E+04_JPRB,0.10043E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.99056E+03_JPRB,0.99717E+03_JPRB,0.10006E+04_JPRB,0.10036E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.98830E+03_JPRB,0.99502E+03_JPRB,0.99909E+03_JPRB,0.10028E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.98610E+03_JPRB,0.99275E+03_JPRB,0.99821E+03_JPRB,0.10021E+04_JPRB,0.10042E+04_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.98386E+03_JPRB,0.99045E+03_JPRB,0.99729E+03_JPRB,0.10008E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.98150E+03_JPRB,0.98846E+03_JPRB,0.99517E+03_JPRB,0.99919E+03_JPRB,0.10028E+04_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.97902E+03_JPRB,0.98636E+03_JPRB,0.99303E+03_JPRB,0.99832E+03_JPRB,0.10022E+04_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.97656E+03_JPRB,0.98426E+03_JPRB,0.99079E+03_JPRB,0.99735E+03_JPRB,0.10008E+04_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.97503E+03_JPRB,0.98337E+03_JPRB,0.99004E+03_JPRB,0.99647E+03_JPRB,0.10002E+04_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.99596E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.99625E+03_JPRB,0.10024E+04_JPRB,0.10052E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.99662E+03_JPRB,0.10025E+04_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.99703E+03_JPRB,0.10026E+04_JPRB,0.10056E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.99784E+03_JPRB,0.10032E+04_JPRB,0.10054E+04_JPRB,0.10071E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.99947E+03_JPRB,0.10032E+04_JPRB,0.10060E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.10001E+04_JPRB,0.10036E+04_JPRB,0.10062E+04_JPRB,0.10071E+04_JPRB,0.10068E+04_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.10009E+04_JPRB,0.10037E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.10015E+04_JPRB,0.10046E+04_JPRB,0.10065E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.10023E+04_JPRB,0.10047E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10063E+04_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.10021E+04_JPRB,0.10055E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB,0.10060E+04_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.10028E+04_JPRB,0.10059E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB,0.10057E+04_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.10033E+04_JPRB,0.10062E+04_JPRB,0.10068E+04_JPRB,0.10068E+04_JPRB,0.10052E+04_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.10043E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10047E+04_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.10033E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.10057E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.10062E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10030E+04_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.10065E+04_JPRB,0.10072E+04_JPRB,0.10069E+04_JPRB,0.10048E+04_JPRB,0.10022E+04_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB,0.10014E+04_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10035E+04_JPRB,0.99925E+03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.10071E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10029E+04_JPRB,0.99808E+03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB,0.10021E+04_JPRB,0.99788E+03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.10072E+04_JPRB,0.10064E+04_JPRB,0.10045E+04_JPRB,0.10016E+04_JPRB,0.99700E+03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.10072E+04_JPRB,0.10063E+04_JPRB,0.10044E+04_JPRB,0.10015E+04_JPRB,0.99731E+03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.10072E+04_JPRB,0.10065E+04_JPRB,0.10047E+04_JPRB,0.10021E+04_JPRB,0.99778E+03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.10072E+04_JPRB,0.10067E+04_JPRB,0.10050E+04_JPRB,0.10026E+04_JPRB,0.99820E+03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.10071E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10030E+04_JPRB,0.99855E+03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10036E+04_JPRB,0.99965E+03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB,0.10010E+04_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.10065E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB,0.10022E+04_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.10061E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB,0.10055E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.10054E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB,0.10061E+04_JPRB,0.10039E+04_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.10046E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.10023E+04_JPRB,0.10060E+04_JPRB,0.10075E+04_JPRB,0.10069E+04_JPRB,0.10055E+04_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.10024E+04_JPRB,0.10044E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.10006E+04_JPRB,0.10039E+04_JPRB,0.10063E+04_JPRB,0.10072E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.99705E+03_JPRB,0.10026E+04_JPRB,0.10052E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.99574E+03_JPRB,0.10014E+04_JPRB,0.10040E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.99447E+03_JPRB,0.99966E+03_JPRB,0.10033E+04_JPRB,0.10065E+04_JPRB,0.10071E+04_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.99299E+03_JPRB,0.99670E+03_JPRB,0.10025E+04_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.99138E+03_JPRB,0.99552E+03_JPRB,0.10013E+04_JPRB,0.10044E+04_JPRB,0.10065E+04_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.98979E+03_JPRB,0.99462E+03_JPRB,0.99874E+03_JPRB,0.10030E+04_JPRB,0.10060E+04_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.98814E+03_JPRB,0.99291E+03_JPRB,0.99630E+03_JPRB,0.10029E+04_JPRB,0.10050E+04_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.98639E+03_JPRB,0.99150E+03_JPRB,0.99562E+03_JPRB,0.10014E+04_JPRB,0.10045E+04_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.98454E+03_JPRB,0.98998E+03_JPRB,0.99438E+03_JPRB,0.99904E+03_JPRB,0.10032E+04_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.98268E+03_JPRB,0.98844E+03_JPRB,0.99315E+03_JPRB,0.99688E+03_JPRB,0.10025E+04_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.98190E+03_JPRB,0.98779E+03_JPRB,0.99262E+03_JPRB,0.99638E+03_JPRB,0.10024E+04_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.99739E+03_JPRB,0.10017E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.99781E+03_JPRB,0.10021E+04_JPRB,0.10065E+04_JPRB,0.10077E+04_JPRB,0.10090E+04_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.99827E+03_JPRB,0.10029E+04_JPRB,0.10067E+04_JPRB,0.10077E+04_JPRB,0.10079E+04_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.99875E+03_JPRB,0.10040E+04_JPRB,0.10068E+04_JPRB,0.10078E+04_JPRB,0.10089E+04_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.99816E+03_JPRB,0.10041E+04_JPRB,0.10080E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.99861E+03_JPRB,0.10065E+04_JPRB,0.10071E+04_JPRB,0.10090E+04_JPRB,0.10078E+04_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.10001E+04_JPRB,0.10056E+04_JPRB,0.10072E+04_JPRB,0.10079E+04_JPRB,0.10077E+04_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.99952E+03_JPRB,0.10059E+04_JPRB,0.10074E+04_JPRB,0.10090E+04_JPRB,0.10087E+04_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.10000E+04_JPRB,0.10061E+04_JPRB,0.10085E+04_JPRB,0.10080E+04_JPRB,0.10085E+04_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.10012E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10090E+04_JPRB,0.10073E+04_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.10032E+04_JPRB,0.10067E+04_JPRB,0.10088E+04_JPRB,0.10079E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.10052E+04_JPRB,0.10070E+04_JPRB,0.10079E+04_JPRB,0.10089E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.10057E+04_JPRB,0.10083E+04_JPRB,0.10079E+04_JPRB,0.10098E+04_JPRB,0.10062E+04_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.10061E+04_JPRB,0.10085E+04_JPRB,0.10080E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.10066E+04_JPRB,0.10087E+04_JPRB,0.10111E+04_JPRB,0.10072E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.10069E+04_JPRB,0.10089E+04_JPRB,0.10079E+04_JPRB,0.10068E+04_JPRB,0.10054E+04_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.10072E+04_JPRB,0.10069E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10034E+04_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.10075E+04_JPRB,0.10111E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB,0.10088E+04_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.10077E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10007E+04_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.10078E+04_JPRB,0.10089E+04_JPRB,0.10068E+04_JPRB,0.10043E+04_JPRB,0.10013E+04_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.10079E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10044E+04_JPRB,0.10009E+04_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.10090E+04_JPRB,0.10075E+04_JPRB,0.10058E+04_JPRB,0.10025E+04_JPRB,0.10002E+04_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.10080E+04_JPRB,0.10073E+04_JPRB,0.10054E+04_JPRB,0.10021E+04_JPRB,0.99972E+03_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.10090E+04_JPRB,0.10073E+04_JPRB,0.10054E+04_JPRB,0.10020E+04_JPRB,0.99964E+03_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.10080E+04_JPRB,0.10075E+04_JPRB,0.10057E+04_JPRB,0.10024E+04_JPRB,0.10001E+04_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.10090E+04_JPRB,0.10076E+04_JPRB,0.10060E+04_JPRB,0.10040E+04_JPRB,0.10006E+04_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.10079E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10034E+04_JPRB,0.10010E+04_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.10089E+04_JPRB,0.10089E+04_JPRB,0.10068E+04_JPRB,0.10054E+04_JPRB,0.10014E+04_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.10087E+04_JPRB,0.10090E+04_JPRB,0.10082E+04_JPRB,0.10051E+04_JPRB,0.10018E+04_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.10085E+04_JPRB,0.10090E+04_JPRB,0.10075E+04_JPRB,0.10058E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.10071E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB,0.10086E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.10067E+04_JPRB,0.10088E+04_JPRB,0.10079E+04_JPRB,0.10071E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.10061E+04_JPRB,0.10075E+04_JPRB,0.10090E+04_JPRB,0.10096E+04_JPRB,0.10057E+04_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.10054E+04_JPRB,0.10071E+04_JPRB,0.10068E+04_JPRB,0.10078E+04_JPRB,0.10065E+04_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.10020E+04_JPRB,0.10065E+04_JPRB,0.10087E+04_JPRB,0.10079E+04_JPRB,0.10093E+04_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.99938E+03_JPRB,0.10058E+04_JPRB,0.10073E+04_JPRB,0.10079E+04_JPRB,0.10087E+04_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.99869E+03_JPRB,0.10038E+04_JPRB,0.10079E+04_JPRB,0.10099E+04_JPRB,0.10089E+04_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.99593E+03_JPRB,0.10003E+04_JPRB,0.10062E+04_JPRB,0.10075E+04_JPRB,0.10090E+04_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.99417E+03_JPRB,0.99877E+03_JPRB,0.10055E+04_JPRB,0.10061E+04_JPRB,0.10090E+04_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.99334E+03_JPRB,0.99717E+03_JPRB,0.10030E+04_JPRB,0.10077E+04_JPRB,0.10077E+04_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.99034E+03_JPRB,0.99548E+03_JPRB,0.99989E+03_JPRB,0.10071E+04_JPRB,0.10085E+04_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.98844E+03_JPRB,0.99385E+03_JPRB,0.99849E+03_JPRB,0.10064E+04_JPRB,0.10081E+04_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.98654E+03_JPRB,0.99323E+03_JPRB,0.99708E+03_JPRB,0.10005E+04_JPRB,0.10066E+04_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.98558E+03_JPRB,0.99048E+03_JPRB,0.99560E+03_JPRB,0.99999E+03_JPRB,0.10071E+04_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.98349E+03_JPRB,0.98867E+03_JPRB,0.99404E+03_JPRB,0.99866E+03_JPRB,0.10054E+04_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.98039E+03_JPRB,0.98688E+03_JPRB,0.99250E+03_JPRB,0.99837E+03_JPRB,0.10028E+04_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.97954E+03_JPRB,0.98614E+03_JPRB,0.99186E+03_JPRB,0.99679E+03_JPRB,0.10019E+04_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.98905E+03_JPRB,0.99319E+03_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.98947E+03_JPRB,0.10009E+04_JPRB,0.10067E+04_JPRB,0.10076E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.98993E+03_JPRB,0.10052E+04_JPRB,0.10068E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.99040E+03_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB,0.10077E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.99823E+03_JPRB,0.10056E+04_JPRB,0.99955E+03_JPRB,0.10078E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.99867E+03_JPRB,0.99832E+03_JPRB,0.10071E+04_JPRB,0.10003E+04_JPRB,0.10079E+04_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.99168E+03_JPRB,0.10059E+04_JPRB,0.10072E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.99955E+03_JPRB,0.10061E+04_JPRB,0.10073E+04_JPRB,0.99297E+03_JPRB,0.10003E+04_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.10000E+04_JPRB,0.10063E+04_JPRB,0.99994E+03_JPRB,0.10079E+04_JPRB,0.10002E+04_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.10007E+04_JPRB,0.10066E+04_JPRB,0.10075E+04_JPRB,0.10005E+04_JPRB,0.10075E+04_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.10052E+04_JPRB,0.10068E+04_JPRB,0.10002E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.10056E+04_JPRB,0.10070E+04_JPRB,0.10078E+04_JPRB,0.10005E+04_JPRB,0.10068E+04_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.10060E+04_JPRB,0.99977E+03_JPRB,0.10079E+04_JPRB,0.99294E+03_JPRB,0.10064E+04_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.10064E+04_JPRB,0.99996E+03_JPRB,0.10080E+04_JPRB,0.10077E+04_JPRB,0.99839E+03_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.10067E+04_JPRB,0.10001E+04_JPRB,0.98561E+03_JPRB,0.10074E+04_JPRB,0.10052E+04_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.10069E+04_JPRB,0.10003E+04_JPRB,0.10080E+04_JPRB,0.10070E+04_JPRB,0.99700E+03_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.10072E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.10065E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.10074E+04_JPRB,0.98555E+03_JPRB,0.10002E+04_JPRB,0.99845E+03_JPRB,0.95900E+03_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.10076E+04_JPRB,0.10080E+04_JPRB,0.10074E+04_JPRB,0.99776E+03_JPRB,0.10037E+04_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.10077E+04_JPRB,0.10005E+04_JPRB,0.10070E+04_JPRB,0.10044E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.10079E+04_JPRB,0.10079E+04_JPRB,0.10064E+04_JPRB,0.99602E+03_JPRB,0.10038E+04_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.10005E+04_JPRB,0.10077E+04_JPRB,0.10059E+04_JPRB,0.10036E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.10080E+04_JPRB,0.10075E+04_JPRB,0.10055E+04_JPRB,0.10037E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.10005E+04_JPRB,0.10075E+04_JPRB,0.10055E+04_JPRB,0.10037E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.10080E+04_JPRB,0.10077E+04_JPRB,0.10058E+04_JPRB,0.10037E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.10004E+04_JPRB,0.10078E+04_JPRB,0.10062E+04_JPRB,0.99569E+03_JPRB,0.10037E+04_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.10078E+04_JPRB,0.10079E+04_JPRB,0.10065E+04_JPRB,0.10036E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.10003E+04_JPRB,0.10005E+04_JPRB,0.10070E+04_JPRB,0.99698E+03_JPRB,0.10038E+04_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.10001E+04_JPRB,0.10005E+04_JPRB,0.99992E+03_JPRB,0.10052E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.99994E+03_JPRB,0.10005E+04_JPRB,0.10077E+04_JPRB,0.10059E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.99172E+03_JPRB,0.10038E+04_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.10068E+04_JPRB,0.10002E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB,0.10049E+04_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.10063E+04_JPRB,0.10074E+04_JPRB,0.10005E+04_JPRB,0.99276E+03_JPRB,0.10059E+04_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.10057E+04_JPRB,0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.10009E+04_JPRB,0.10067E+04_JPRB,0.10001E+04_JPRB,0.10080E+04_JPRB,0.99247E+03_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.99941E+03_JPRB,0.10061E+04_JPRB,0.10073E+04_JPRB,0.10079E+04_JPRB,0.10004E+04_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.99034E+03_JPRB,0.10054E+04_JPRB,0.99943E+03_JPRB,0.99276E+03_JPRB,0.10005E+04_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.99601E+03_JPRB,0.10003E+04_JPRB,0.10064E+04_JPRB,0.10074E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.99422E+03_JPRB,0.99882E+03_JPRB,0.10058E+04_JPRB,0.10071E+04_JPRB,0.10003E+04_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.98496E+03_JPRB,0.99726E+03_JPRB,0.10013E+04_JPRB,0.99930E+03_JPRB,0.10076E+04_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.99030E+03_JPRB,0.99555E+03_JPRB,0.99990E+03_JPRB,0.99882E+03_JPRB,0.99991E+03_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.98836E+03_JPRB,0.98653E+03_JPRB,0.99856E+03_JPRB,0.99827E+03_JPRB,0.99962E+03_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.98643E+03_JPRB,0.98485E+03_JPRB,0.99716E+03_JPRB,0.10012E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.97714E+03_JPRB,0.99044E+03_JPRB,0.99567E+03_JPRB,0.99999E+03_JPRB,0.99885E+03_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.97511E+03_JPRB,0.98860E+03_JPRB,0.99409E+03_JPRB,0.99872E+03_JPRB,0.10058E+04_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.98036E+03_JPRB,0.98678E+03_JPRB,0.99251E+03_JPRB,0.99003E+03_JPRB,0.10052E+04_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.97953E+03_JPRB,0.98603E+03_JPRB,0.99185E+03_JPRB,0.99687E+03_JPRB,0.10009E+04_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB27',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB27
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb27.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb27.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb27.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB27
+END SUBROUTINE SRTM_KGB27
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb28.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb28.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb28.F90	(revision 3330)
@@ -0,0 +1,11189 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB28
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 28: 38000-50000 cm-1 (low - O3,O2; high - O3,O2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA28, ONLY : KA, KB, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 1.06156_JPRB    , 0.599910_JPRB   , 0.422462_JPRB   , 0.400077_JPRB   , &
+ & 0.282221_JPRB   , 0.187893_JPRB   , 6.77357E-02_JPRB, 3.04572E-02_JPRB, &
+ & 2.00442E-02_JPRB, 2.30786E-03_JPRB, 2.08824E-03_JPRB, 1.42604E-03_JPRB, &
+ & 9.67384E-04_JPRB, 6.35362E-04_JPRB, 1.47727E-04_JPRB, 6.87639E-06_JPRB /)  
+SFLUXREF(:,2) = (/ &
+ & 1.07598_JPRB    , 0.585099_JPRB   , 0.422852_JPRB   , 0.400077_JPRB   , &
+ & 0.282221_JPRB   , 0.187893_JPRB   , 6.69686E-02_JPRB, 3.09070E-02_JPRB, &
+ & 2.02400E-02_JPRB, 2.47760E-03_JPRB, 1.89411E-03_JPRB, 1.41122E-03_JPRB, &
+ & 1.12449E-03_JPRB, 5.73505E-04_JPRB, 2.04160E-04_JPRB, 1.58371E-05_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 0.461647_JPRB   , 0.406113_JPRB   , 0.332506_JPRB   , 0.307508_JPRB   , &
+ & 0.211167_JPRB   , 0.235457_JPRB   , 0.495886_JPRB   , 0.363921_JPRB   , &
+ & 0.192700_JPRB   , 2.04678E-02_JPRB, 1.55407E-02_JPRB, 1.03882E-02_JPRB, &
+ & 1.10778E-02_JPRB, 1.00504E-02_JPRB, 4.93497E-03_JPRB, 5.73410E-04_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 0.132669_JPRB   , 0.175058_JPRB   , 0.359263_JPRB   , 0.388142_JPRB   , &
+ & 0.350359_JPRB   , 0.475892_JPRB   , 0.489593_JPRB   , 0.408437_JPRB   , &
+ & 0.221049_JPRB   , 1.94514E-02_JPRB, 1.54848E-02_JPRB, 1.44999E-02_JPRB, &
+ & 1.44568E-02_JPRB, 1.00527E-02_JPRB, 4.95897E-03_JPRB, 5.73327E-04_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 7.54800E-02_JPRB, 0.232246_JPRB   , 0.359263_JPRB   , 0.388142_JPRB   , &
+ & 0.350359_JPRB   , 0.426317_JPRB   , 0.493485_JPRB   , 0.432016_JPRB   , &
+ & 0.239203_JPRB   , 1.74951E-02_JPRB, 1.74477E-02_JPRB, 1.83566E-02_JPRB, &
+ & 1.44818E-02_JPRB, 1.01048E-02_JPRB, 4.97487E-03_JPRB, 5.66831E-04_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = ????? cm-1.
+RAYL = 2.02E-05_JPRB
+
+STRRAT = 6.67029E-07_JPRB
+
+LAYREFFR = 58
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.46447E+02_JPRB,0.18001E+03_JPRB,0.31338E+03_JPRB,0.44652E+03_JPRB,0.54636E+03_JPRB, &
+ & 0.54173E+03_JPRB,0.45707E+03_JPRB,0.27363E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.45270E+02_JPRB,0.17886E+03_JPRB,0.31225E+03_JPRB,0.44541E+03_JPRB,0.54177E+03_JPRB, &
+ & 0.53436E+03_JPRB,0.44932E+03_JPRB,0.26748E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.44214E+02_JPRB,0.17776E+03_JPRB,0.31115E+03_JPRB,0.44427E+03_JPRB,0.53733E+03_JPRB, &
+ & 0.52756E+03_JPRB,0.44224E+03_JPRB,0.26195E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.43259E+02_JPRB,0.17673E+03_JPRB,0.31005E+03_JPRB,0.44305E+03_JPRB,0.53298E+03_JPRB, &
+ & 0.52129E+03_JPRB,0.43574E+03_JPRB,0.25696E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.42393E+02_JPRB,0.17575E+03_JPRB,0.30896E+03_JPRB,0.44173E+03_JPRB,0.52883E+03_JPRB, &
+ & 0.51548E+03_JPRB,0.42976E+03_JPRB,0.25242E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.42908E+02_JPRB,0.17695E+03_JPRB,0.31077E+03_JPRB,0.44434E+03_JPRB,0.53161E+03_JPRB, &
+ & 0.51895E+03_JPRB,0.43332E+03_JPRB,0.25512E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.41899E+02_JPRB,0.17596E+03_JPRB,0.30980E+03_JPRB,0.44336E+03_JPRB,0.52686E+03_JPRB, &
+ & 0.51213E+03_JPRB,0.42632E+03_JPRB,0.24984E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.40995E+02_JPRB,0.17502E+03_JPRB,0.30884E+03_JPRB,0.44232E+03_JPRB,0.52230E+03_JPRB, &
+ & 0.50592E+03_JPRB,0.41995E+03_JPRB,0.24511E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.40181E+02_JPRB,0.17412E+03_JPRB,0.30788E+03_JPRB,0.44119E+03_JPRB,0.51785E+03_JPRB, &
+ & 0.50025E+03_JPRB,0.41414E+03_JPRB,0.24085E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.39443E+02_JPRB,0.17326E+03_JPRB,0.30691E+03_JPRB,0.43992E+03_JPRB,0.51364E+03_JPRB, &
+ & 0.49503E+03_JPRB,0.40882E+03_JPRB,0.23699E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.40126E+02_JPRB,0.17457E+03_JPRB,0.30876E+03_JPRB,0.44248E+03_JPRB,0.51755E+03_JPRB, &
+ & 0.49986E+03_JPRB,0.41375E+03_JPRB,0.24056E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.39240E+02_JPRB,0.17370E+03_JPRB,0.30792E+03_JPRB,0.44146E+03_JPRB,0.51254E+03_JPRB, &
+ & 0.49358E+03_JPRB,0.40735E+03_JPRB,0.23593E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.38450E+02_JPRB,0.17288E+03_JPRB,0.30708E+03_JPRB,0.44031E+03_JPRB,0.50793E+03_JPRB, &
+ & 0.48786E+03_JPRB,0.40155E+03_JPRB,0.23179E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.37740E+02_JPRB,0.17210E+03_JPRB,0.30624E+03_JPRB,0.43908E+03_JPRB,0.50368E+03_JPRB, &
+ & 0.48264E+03_JPRB,0.39629E+03_JPRB,0.22808E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.37099E+02_JPRB,0.17134E+03_JPRB,0.30539E+03_JPRB,0.43781E+03_JPRB,0.49975E+03_JPRB, &
+ & 0.47787E+03_JPRB,0.39149E+03_JPRB,0.22473E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.37818E+02_JPRB,0.17258E+03_JPRB,0.30708E+03_JPRB,0.43967E+03_JPRB,0.50412E+03_JPRB, &
+ & 0.48321E+03_JPRB,0.39687E+03_JPRB,0.22848E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.37034E+02_JPRB,0.17183E+03_JPRB,0.30636E+03_JPRB,0.43833E+03_JPRB,0.49935E+03_JPRB, &
+ & 0.47738E+03_JPRB,0.39100E+03_JPRB,0.22439E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.36338E+02_JPRB,0.17111E+03_JPRB,0.30564E+03_JPRB,0.43700E+03_JPRB,0.49496E+03_JPRB, &
+ & 0.47212E+03_JPRB,0.38572E+03_JPRB,0.22075E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.35716E+02_JPRB,0.17043E+03_JPRB,0.30491E+03_JPRB,0.43569E+03_JPRB,0.49094E+03_JPRB, &
+ & 0.46732E+03_JPRB,0.38094E+03_JPRB,0.21749E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.35156E+02_JPRB,0.16977E+03_JPRB,0.30416E+03_JPRB,0.43437E+03_JPRB,0.48726E+03_JPRB, &
+ & 0.46294E+03_JPRB,0.37660E+03_JPRB,0.21456E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.35857E+02_JPRB,0.17089E+03_JPRB,0.30563E+03_JPRB,0.43619E+03_JPRB,0.49186E+03_JPRB, &
+ & 0.46841E+03_JPRB,0.38202E+03_JPRB,0.21822E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.35163E+02_JPRB,0.17023E+03_JPRB,0.30502E+03_JPRB,0.43478E+03_JPRB,0.48731E+03_JPRB, &
+ & 0.46300E+03_JPRB,0.37666E+03_JPRB,0.21460E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.34550E+02_JPRB,0.16961E+03_JPRB,0.30441E+03_JPRB,0.43332E+03_JPRB,0.48321E+03_JPRB, &
+ & 0.45813E+03_JPRB,0.37186E+03_JPRB,0.21139E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.34004E+02_JPRB,0.16902E+03_JPRB,0.30378E+03_JPRB,0.43194E+03_JPRB,0.47950E+03_JPRB, &
+ & 0.45375E+03_JPRB,0.36755E+03_JPRB,0.20853E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.33514E+02_JPRB,0.16844E+03_JPRB,0.30312E+03_JPRB,0.43058E+03_JPRB,0.47611E+03_JPRB, &
+ & 0.44977E+03_JPRB,0.36365E+03_JPRB,0.20597E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.34212E+02_JPRB,0.16946E+03_JPRB,0.30440E+03_JPRB,0.43247E+03_JPRB,0.48092E+03_JPRB, &
+ & 0.45542E+03_JPRB,0.36920E+03_JPRB,0.20962E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.33595E+02_JPRB,0.16889E+03_JPRB,0.30389E+03_JPRB,0.43093E+03_JPRB,0.47667E+03_JPRB, &
+ & 0.45043E+03_JPRB,0.36430E+03_JPRB,0.20639E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.33052E+02_JPRB,0.16835E+03_JPRB,0.30337E+03_JPRB,0.42946E+03_JPRB,0.47287E+03_JPRB, &
+ & 0.44599E+03_JPRB,0.35993E+03_JPRB,0.20355E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.32571E+02_JPRB,0.16784E+03_JPRB,0.30283E+03_JPRB,0.42807E+03_JPRB,0.46947E+03_JPRB, &
+ & 0.44201E+03_JPRB,0.35602E+03_JPRB,0.20103E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.32141E+02_JPRB,0.16733E+03_JPRB,0.30227E+03_JPRB,0.42674E+03_JPRB,0.46640E+03_JPRB, &
+ & 0.43842E+03_JPRB,0.35250E+03_JPRB,0.19879E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.32812E+02_JPRB,0.16823E+03_JPRB,0.30334E+03_JPRB,0.42859E+03_JPRB,0.47118E+03_JPRB, &
+ & 0.44401E+03_JPRB,0.35799E+03_JPRB,0.20230E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.32263E+02_JPRB,0.16774E+03_JPRB,0.30291E+03_JPRB,0.42708E+03_JPRB,0.46727E+03_JPRB, &
+ & 0.43944E+03_JPRB,0.35350E+03_JPRB,0.19942E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.31782E+02_JPRB,0.16728E+03_JPRB,0.30248E+03_JPRB,0.42558E+03_JPRB,0.46381E+03_JPRB, &
+ & 0.43539E+03_JPRB,0.34954E+03_JPRB,0.19691E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.31357E+02_JPRB,0.16683E+03_JPRB,0.30203E+03_JPRB,0.42413E+03_JPRB,0.46069E+03_JPRB, &
+ & 0.43177E+03_JPRB,0.34599E+03_JPRB,0.19468E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.30980E+02_JPRB,0.16640E+03_JPRB,0.30154E+03_JPRB,0.42276E+03_JPRB,0.45787E+03_JPRB, &
+ & 0.42852E+03_JPRB,0.34280E+03_JPRB,0.19271E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.31614E+02_JPRB,0.16716E+03_JPRB,0.30239E+03_JPRB,0.42473E+03_JPRB,0.46259E+03_JPRB, &
+ & 0.43397E+03_JPRB,0.34814E+03_JPRB,0.19603E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.31125E+02_JPRB,0.16674E+03_JPRB,0.30206E+03_JPRB,0.42311E+03_JPRB,0.45896E+03_JPRB, &
+ & 0.42978E+03_JPRB,0.34403E+03_JPRB,0.19347E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.30699E+02_JPRB,0.16635E+03_JPRB,0.30170E+03_JPRB,0.42163E+03_JPRB,0.45573E+03_JPRB, &
+ & 0.42608E+03_JPRB,0.34039E+03_JPRB,0.19124E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.30325E+02_JPRB,0.16597E+03_JPRB,0.30133E+03_JPRB,0.42027E+03_JPRB,0.45286E+03_JPRB, &
+ & 0.42281E+03_JPRB,0.33716E+03_JPRB,0.18928E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.29993E+02_JPRB,0.16559E+03_JPRB,0.30092E+03_JPRB,0.41901E+03_JPRB,0.45030E+03_JPRB, &
+ & 0.41988E+03_JPRB,0.33427E+03_JPRB,0.18755E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.30594E+02_JPRB,0.16624E+03_JPRB,0.30156E+03_JPRB,0.42087E+03_JPRB,0.45493E+03_JPRB, &
+ & 0.42517E+03_JPRB,0.33949E+03_JPRB,0.19069E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.30158E+02_JPRB,0.16589E+03_JPRB,0.30131E+03_JPRB,0.41937E+03_JPRB,0.45157E+03_JPRB, &
+ & 0.42134E+03_JPRB,0.33570E+03_JPRB,0.18841E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.29780E+02_JPRB,0.16556E+03_JPRB,0.30103E+03_JPRB,0.41800E+03_JPRB,0.44864E+03_JPRB, &
+ & 0.41799E+03_JPRB,0.33239E+03_JPRB,0.18643E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.29450E+02_JPRB,0.16523E+03_JPRB,0.30072E+03_JPRB,0.41674E+03_JPRB,0.44606E+03_JPRB, &
+ & 0.41504E+03_JPRB,0.32946E+03_JPRB,0.18471E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.29159E+02_JPRB,0.16491E+03_JPRB,0.30039E+03_JPRB,0.41557E+03_JPRB,0.44377E+03_JPRB, &
+ & 0.41242E+03_JPRB,0.32686E+03_JPRB,0.18318E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.29691E+02_JPRB,0.16541E+03_JPRB,0.30081E+03_JPRB,0.41722E+03_JPRB,0.44795E+03_JPRB, &
+ & 0.41720E+03_JPRB,0.33160E+03_JPRB,0.18597E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.29307E+02_JPRB,0.16512E+03_JPRB,0.30063E+03_JPRB,0.41581E+03_JPRB,0.44493E+03_JPRB, &
+ & 0.41375E+03_JPRB,0.32818E+03_JPRB,0.18396E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.28975E+02_JPRB,0.16485E+03_JPRB,0.30042E+03_JPRB,0.41454E+03_JPRB,0.44231E+03_JPRB, &
+ & 0.41076E+03_JPRB,0.32520E+03_JPRB,0.18222E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.28687E+02_JPRB,0.16458E+03_JPRB,0.30018E+03_JPRB,0.41340E+03_JPRB,0.44002E+03_JPRB, &
+ & 0.40814E+03_JPRB,0.32259E+03_JPRB,0.18071E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.28434E+02_JPRB,0.16431E+03_JPRB,0.29989E+03_JPRB,0.41235E+03_JPRB,0.43799E+03_JPRB, &
+ & 0.40583E+03_JPRB,0.32028E+03_JPRB,0.17939E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.28760E+02_JPRB,0.16459E+03_JPRB,0.30010E+03_JPRB,0.41321E+03_JPRB,0.44060E+03_JPRB, &
+ & 0.40880E+03_JPRB,0.32325E+03_JPRB,0.18109E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.28444E+02_JPRB,0.16436E+03_JPRB,0.29997E+03_JPRB,0.41200E+03_JPRB,0.43807E+03_JPRB, &
+ & 0.40592E+03_JPRB,0.32038E+03_JPRB,0.17944E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.28173E+02_JPRB,0.16414E+03_JPRB,0.29981E+03_JPRB,0.41092E+03_JPRB,0.43587E+03_JPRB, &
+ & 0.40342E+03_JPRB,0.31788E+03_JPRB,0.17802E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.27937E+02_JPRB,0.16392E+03_JPRB,0.29960E+03_JPRB,0.40994E+03_JPRB,0.43395E+03_JPRB, &
+ & 0.40124E+03_JPRB,0.31570E+03_JPRB,0.17679E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.27730E+02_JPRB,0.16369E+03_JPRB,0.29936E+03_JPRB,0.40905E+03_JPRB,0.43224E+03_JPRB, &
+ & 0.39931E+03_JPRB,0.31377E+03_JPRB,0.17571E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.27995E+02_JPRB,0.16391E+03_JPRB,0.29951E+03_JPRB,0.40970E+03_JPRB,0.43443E+03_JPRB, &
+ & 0.40178E+03_JPRB,0.31624E+03_JPRB,0.17709E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.27737E+02_JPRB,0.16374E+03_JPRB,0.29943E+03_JPRB,0.40869E+03_JPRB,0.43230E+03_JPRB, &
+ & 0.39938E+03_JPRB,0.31384E+03_JPRB,0.17574E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.27515E+02_JPRB,0.16356E+03_JPRB,0.29930E+03_JPRB,0.40779E+03_JPRB,0.43046E+03_JPRB, &
+ & 0.39730E+03_JPRB,0.31176E+03_JPRB,0.17458E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.27322E+02_JPRB,0.16338E+03_JPRB,0.29913E+03_JPRB,0.40697E+03_JPRB,0.42883E+03_JPRB, &
+ & 0.39548E+03_JPRB,0.30994E+03_JPRB,0.17357E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.27152E+02_JPRB,0.16318E+03_JPRB,0.29892E+03_JPRB,0.40622E+03_JPRB,0.42740E+03_JPRB, &
+ & 0.39387E+03_JPRB,0.30834E+03_JPRB,0.17268E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.27369E+02_JPRB,0.16336E+03_JPRB,0.29903E+03_JPRB,0.40671E+03_JPRB,0.42924E+03_JPRB, &
+ & 0.39593E+03_JPRB,0.31039E+03_JPRB,0.17382E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.27158E+02_JPRB,0.16323E+03_JPRB,0.29898E+03_JPRB,0.40587E+03_JPRB,0.42745E+03_JPRB, &
+ & 0.39393E+03_JPRB,0.30840E+03_JPRB,0.17271E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.26976E+02_JPRB,0.16309E+03_JPRB,0.29889E+03_JPRB,0.40513E+03_JPRB,0.42590E+03_JPRB, &
+ & 0.39221E+03_JPRB,0.30667E+03_JPRB,0.17176E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.26818E+02_JPRB,0.16293E+03_JPRB,0.29875E+03_JPRB,0.40445E+03_JPRB,0.42455E+03_JPRB, &
+ & 0.39070E+03_JPRB,0.30516E+03_JPRB,0.17093E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.26679E+02_JPRB,0.16276E+03_JPRB,0.29855E+03_JPRB,0.40381E+03_JPRB,0.42335E+03_JPRB, &
+ & 0.38937E+03_JPRB,0.30384E+03_JPRB,0.17021E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.17271E+03_JPRB,0.27646E+03_JPRB,0.38039E+03_JPRB,0.48420E+03_JPRB,0.56932E+03_JPRB, &
+ & 0.57534E+03_JPRB,0.47873E+03_JPRB,0.28147E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.16834E+03_JPRB,0.27246E+03_JPRB,0.37678E+03_JPRB,0.48091E+03_JPRB,0.56471E+03_JPRB, &
+ & 0.56734E+03_JPRB,0.47005E+03_JPRB,0.27593E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.16441E+03_JPRB,0.26883E+03_JPRB,0.37341E+03_JPRB,0.47777E+03_JPRB,0.56037E+03_JPRB, &
+ & 0.56003E+03_JPRB,0.46210E+03_JPRB,0.27096E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.16086E+03_JPRB,0.26548E+03_JPRB,0.37025E+03_JPRB,0.47479E+03_JPRB,0.55629E+03_JPRB, &
+ & 0.55327E+03_JPRB,0.45481E+03_JPRB,0.26647E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.15764E+03_JPRB,0.26237E+03_JPRB,0.36725E+03_JPRB,0.47195E+03_JPRB,0.55235E+03_JPRB, &
+ & 0.54701E+03_JPRB,0.44810E+03_JPRB,0.26239E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.15955E+03_JPRB,0.26500E+03_JPRB,0.37067E+03_JPRB,0.47595E+03_JPRB,0.55480E+03_JPRB, &
+ & 0.55074E+03_JPRB,0.45210E+03_JPRB,0.26482E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.15580E+03_JPRB,0.26157E+03_JPRB,0.36756E+03_JPRB,0.47303E+03_JPRB,0.55028E+03_JPRB, &
+ & 0.54339E+03_JPRB,0.44423E+03_JPRB,0.26007E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.15244E+03_JPRB,0.25844E+03_JPRB,0.36465E+03_JPRB,0.47023E+03_JPRB,0.54619E+03_JPRB, &
+ & 0.53664E+03_JPRB,0.43708E+03_JPRB,0.25581E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.14941E+03_JPRB,0.25556E+03_JPRB,0.36191E+03_JPRB,0.46753E+03_JPRB,0.54253E+03_JPRB, &
+ & 0.53041E+03_JPRB,0.43052E+03_JPRB,0.25198E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.14667E+03_JPRB,0.25289E+03_JPRB,0.35930E+03_JPRB,0.46494E+03_JPRB,0.53908E+03_JPRB, &
+ & 0.52470E+03_JPRB,0.42448E+03_JPRB,0.24851E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.14921E+03_JPRB,0.25601E+03_JPRB,0.36308E+03_JPRB,0.46872E+03_JPRB,0.54234E+03_JPRB, &
+ & 0.52999E+03_JPRB,0.43007E+03_JPRB,0.25172E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.14591E+03_JPRB,0.25301E+03_JPRB,0.36036E+03_JPRB,0.46599E+03_JPRB,0.53834E+03_JPRB, &
+ & 0.52313E+03_JPRB,0.42280E+03_JPRB,0.24755E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.14297E+03_JPRB,0.25028E+03_JPRB,0.35782E+03_JPRB,0.46350E+03_JPRB,0.53459E+03_JPRB, &
+ & 0.51696E+03_JPRB,0.41619E+03_JPRB,0.24383E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.14033E+03_JPRB,0.24777E+03_JPRB,0.35542E+03_JPRB,0.46116E+03_JPRB,0.53100E+03_JPRB, &
+ & 0.51122E+03_JPRB,0.41016E+03_JPRB,0.24049E+03_JPRB,0.71840E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 3, 2) = (/ &
+ & 0.13795E+03_JPRB,0.24544E+03_JPRB,0.35313E+03_JPRB,0.45882E+03_JPRB,0.52751E+03_JPRB, &
+ & 0.50591E+03_JPRB,0.40463E+03_JPRB,0.23747E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.14062E+03_JPRB,0.24856E+03_JPRB,0.35678E+03_JPRB,0.46260E+03_JPRB,0.53137E+03_JPRB, &
+ & 0.51186E+03_JPRB,0.41082E+03_JPRB,0.24086E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.13771E+03_JPRB,0.24592E+03_JPRB,0.35440E+03_JPRB,0.46020E+03_JPRB,0.52732E+03_JPRB, &
+ & 0.50537E+03_JPRB,0.40407E+03_JPRB,0.23717E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.13512E+03_JPRB,0.24353E+03_JPRB,0.35219E+03_JPRB,0.45796E+03_JPRB,0.52348E+03_JPRB, &
+ & 0.49954E+03_JPRB,0.39798E+03_JPRB,0.23389E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.13281E+03_JPRB,0.24133E+03_JPRB,0.35008E+03_JPRB,0.45583E+03_JPRB,0.51985E+03_JPRB, &
+ & 0.49431E+03_JPRB,0.39246E+03_JPRB,0.23096E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.13073E+03_JPRB,0.23928E+03_JPRB,0.34807E+03_JPRB,0.45378E+03_JPRB,0.51643E+03_JPRB, &
+ & 0.48957E+03_JPRB,0.38745E+03_JPRB,0.22833E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.13333E+03_JPRB,0.24222E+03_JPRB,0.35141E+03_JPRB,0.45702E+03_JPRB,0.52057E+03_JPRB, &
+ & 0.49550E+03_JPRB,0.39372E+03_JPRB,0.23163E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.13075E+03_JPRB,0.23990E+03_JPRB,0.34934E+03_JPRB,0.45476E+03_JPRB,0.51651E+03_JPRB, &
+ & 0.48963E+03_JPRB,0.38752E+03_JPRB,0.22836E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.12847E+03_JPRB,0.23780E+03_JPRB,0.34741E+03_JPRB,0.45266E+03_JPRB,0.51271E+03_JPRB, &
+ & 0.48438E+03_JPRB,0.38196E+03_JPRB,0.22548E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.12644E+03_JPRB,0.23588E+03_JPRB,0.34557E+03_JPRB,0.45066E+03_JPRB,0.50911E+03_JPRB, &
+ & 0.47962E+03_JPRB,0.37696E+03_JPRB,0.22291E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.12462E+03_JPRB,0.23409E+03_JPRB,0.34381E+03_JPRB,0.44874E+03_JPRB,0.50570E+03_JPRB, &
+ & 0.47526E+03_JPRB,0.37245E+03_JPRB,0.22060E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.12722E+03_JPRB,0.23690E+03_JPRB,0.34688E+03_JPRB,0.45177E+03_JPRB,0.51032E+03_JPRB, &
+ & 0.48144E+03_JPRB,0.37887E+03_JPRB,0.22389E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.12492E+03_JPRB,0.23485E+03_JPRB,0.34508E+03_JPRB,0.44967E+03_JPRB,0.50620E+03_JPRB, &
+ & 0.47598E+03_JPRB,0.37319E+03_JPRB,0.22098E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.12290E+03_JPRB,0.23301E+03_JPRB,0.34340E+03_JPRB,0.44769E+03_JPRB,0.50242E+03_JPRB, &
+ & 0.47108E+03_JPRB,0.36815E+03_JPRB,0.21843E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.12111E+03_JPRB,0.23132E+03_JPRB,0.34180E+03_JPRB,0.44582E+03_JPRB,0.49894E+03_JPRB, &
+ & 0.46668E+03_JPRB,0.36363E+03_JPRB,0.21616E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.11952E+03_JPRB,0.22976E+03_JPRB,0.34026E+03_JPRB,0.44407E+03_JPRB,0.49574E+03_JPRB, &
+ & 0.46270E+03_JPRB,0.35956E+03_JPRB,0.21414E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.12201E+03_JPRB,0.23235E+03_JPRB,0.34300E+03_JPRB,0.44700E+03_JPRB,0.50054E+03_JPRB, &
+ & 0.46889E+03_JPRB,0.36590E+03_JPRB,0.21730E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.11997E+03_JPRB,0.23055E+03_JPRB,0.34145E+03_JPRB,0.44492E+03_JPRB,0.49657E+03_JPRB, &
+ & 0.46383E+03_JPRB,0.36071E+03_JPRB,0.21471E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.11818E+03_JPRB,0.22894E+03_JPRB,0.33999E+03_JPRB,0.44309E+03_JPRB,0.49292E+03_JPRB, &
+ & 0.45934E+03_JPRB,0.35613E+03_JPRB,0.21245E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.11660E+03_JPRB,0.22746E+03_JPRB,0.33859E+03_JPRB,0.44146E+03_JPRB,0.48959E+03_JPRB, &
+ & 0.45533E+03_JPRB,0.35208E+03_JPRB,0.21045E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.11520E+03_JPRB,0.22609E+03_JPRB,0.33724E+03_JPRB,0.43996E+03_JPRB,0.48657E+03_JPRB, &
+ & 0.45175E+03_JPRB,0.34847E+03_JPRB,0.20867E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.11756E+03_JPRB,0.22844E+03_JPRB,0.33965E+03_JPRB,0.44261E+03_JPRB,0.49147E+03_JPRB, &
+ & 0.45776E+03_JPRB,0.35454E+03_JPRB,0.21166E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.11574E+03_JPRB,0.22687E+03_JPRB,0.33830E+03_JPRB,0.44082E+03_JPRB,0.48767E+03_JPRB, &
+ & 0.45313E+03_JPRB,0.34986E+03_JPRB,0.20936E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.11415E+03_JPRB,0.22546E+03_JPRB,0.33704E+03_JPRB,0.43915E+03_JPRB,0.48429E+03_JPRB, &
+ & 0.44908E+03_JPRB,0.34579E+03_JPRB,0.20735E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.11276E+03_JPRB,0.22417E+03_JPRB,0.33584E+03_JPRB,0.43758E+03_JPRB,0.48126E+03_JPRB, &
+ & 0.44549E+03_JPRB,0.34220E+03_JPRB,0.20559E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.11153E+03_JPRB,0.22298E+03_JPRB,0.33466E+03_JPRB,0.43617E+03_JPRB,0.47855E+03_JPRB, &
+ & 0.44228E+03_JPRB,0.33902E+03_JPRB,0.20403E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.11376E+03_JPRB,0.22510E+03_JPRB,0.33674E+03_JPRB,0.43882E+03_JPRB,0.48336E+03_JPRB, &
+ & 0.44807E+03_JPRB,0.34479E+03_JPRB,0.20686E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.11214E+03_JPRB,0.22372E+03_JPRB,0.33559E+03_JPRB,0.43706E+03_JPRB,0.47989E+03_JPRB, &
+ & 0.44388E+03_JPRB,0.34060E+03_JPRB,0.20480E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.11074E+03_JPRB,0.22250E+03_JPRB,0.33451E+03_JPRB,0.43547E+03_JPRB,0.47679E+03_JPRB, &
+ & 0.44020E+03_JPRB,0.33697E+03_JPRB,0.20303E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.10951E+03_JPRB,0.22138E+03_JPRB,0.33348E+03_JPRB,0.43404E+03_JPRB,0.47404E+03_JPRB, &
+ & 0.43694E+03_JPRB,0.33379E+03_JPRB,0.20147E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.10843E+03_JPRB,0.22034E+03_JPRB,0.33246E+03_JPRB,0.43277E+03_JPRB,0.47159E+03_JPRB, &
+ & 0.43405E+03_JPRB,0.33096E+03_JPRB,0.20010E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.11041E+03_JPRB,0.22214E+03_JPRB,0.33414E+03_JPRB,0.43517E+03_JPRB,0.47604E+03_JPRB, &
+ & 0.43932E+03_JPRB,0.33611E+03_JPRB,0.20261E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.10898E+03_JPRB,0.22095E+03_JPRB,0.33317E+03_JPRB,0.43358E+03_JPRB,0.47283E+03_JPRB, &
+ & 0.43552E+03_JPRB,0.33239E+03_JPRB,0.20080E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.10774E+03_JPRB,0.21989E+03_JPRB,0.33226E+03_JPRB,0.43213E+03_JPRB,0.47002E+03_JPRB, &
+ & 0.43222E+03_JPRB,0.32917E+03_JPRB,0.19924E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.10667E+03_JPRB,0.21893E+03_JPRB,0.33139E+03_JPRB,0.43083E+03_JPRB,0.46753E+03_JPRB, &
+ & 0.42932E+03_JPRB,0.32634E+03_JPRB,0.19788E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.10573E+03_JPRB,0.21803E+03_JPRB,0.33053E+03_JPRB,0.42965E+03_JPRB,0.46532E+03_JPRB, &
+ & 0.42677E+03_JPRB,0.32386E+03_JPRB,0.19669E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.10694E+03_JPRB,0.21911E+03_JPRB,0.33152E+03_JPRB,0.43127E+03_JPRB,0.46816E+03_JPRB, &
+ & 0.43005E+03_JPRB,0.32706E+03_JPRB,0.19822E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.10577E+03_JPRB,0.21815E+03_JPRB,0.33074E+03_JPRB,0.42984E+03_JPRB,0.46541E+03_JPRB, &
+ & 0.42687E+03_JPRB,0.32396E+03_JPRB,0.19674E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.10476E+03_JPRB,0.21728E+03_JPRB,0.33000E+03_JPRB,0.42855E+03_JPRB,0.46301E+03_JPRB, &
+ & 0.42411E+03_JPRB,0.32130E+03_JPRB,0.19546E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.10388E+03_JPRB,0.21649E+03_JPRB,0.32928E+03_JPRB,0.42741E+03_JPRB,0.46089E+03_JPRB, &
+ & 0.42169E+03_JPRB,0.31897E+03_JPRB,0.19435E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.10311E+03_JPRB,0.21575E+03_JPRB,0.32855E+03_JPRB,0.42639E+03_JPRB,0.45902E+03_JPRB, &
+ & 0.41954E+03_JPRB,0.31692E+03_JPRB,0.19338E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.10410E+03_JPRB,0.21663E+03_JPRB,0.32937E+03_JPRB,0.42778E+03_JPRB,0.46141E+03_JPRB, &
+ & 0.42229E+03_JPRB,0.31955E+03_JPRB,0.19463E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.10314E+03_JPRB,0.21585E+03_JPRB,0.32875E+03_JPRB,0.42654E+03_JPRB,0.45909E+03_JPRB, &
+ & 0.41961E+03_JPRB,0.31700E+03_JPRB,0.19341E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.10231E+03_JPRB,0.21515E+03_JPRB,0.32815E+03_JPRB,0.42544E+03_JPRB,0.45707E+03_JPRB, &
+ & 0.41729E+03_JPRB,0.31480E+03_JPRB,0.19236E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.10159E+03_JPRB,0.21449E+03_JPRB,0.32754E+03_JPRB,0.42445E+03_JPRB,0.45532E+03_JPRB, &
+ & 0.41526E+03_JPRB,0.31288E+03_JPRB,0.19145E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.10096E+03_JPRB,0.21387E+03_JPRB,0.32692E+03_JPRB,0.42356E+03_JPRB,0.45377E+03_JPRB, &
+ & 0.41347E+03_JPRB,0.31119E+03_JPRB,0.19066E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.10177E+03_JPRB,0.21460E+03_JPRB,0.32761E+03_JPRB,0.42475E+03_JPRB,0.45575E+03_JPRB, &
+ & 0.41576E+03_JPRB,0.31335E+03_JPRB,0.19168E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.10099E+03_JPRB,0.21397E+03_JPRB,0.32712E+03_JPRB,0.42368E+03_JPRB,0.45383E+03_JPRB, &
+ & 0.41353E+03_JPRB,0.31125E+03_JPRB,0.19068E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.10031E+03_JPRB,0.21340E+03_JPRB,0.32663E+03_JPRB,0.42272E+03_JPRB,0.45216E+03_JPRB, &
+ & 0.41160E+03_JPRB,0.30943E+03_JPRB,0.18983E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.99720E+02_JPRB,0.21286E+03_JPRB,0.32612E+03_JPRB,0.42187E+03_JPRB,0.45071E+03_JPRB, &
+ & 0.40991E+03_JPRB,0.30785E+03_JPRB,0.18908E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.99204E+02_JPRB,0.21233E+03_JPRB,0.32558E+03_JPRB,0.42112E+03_JPRB,0.44942E+03_JPRB, &
+ & 0.40842E+03_JPRB,0.30646E+03_JPRB,0.18843E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.44909E+03_JPRB,0.47445E+03_JPRB,0.49981E+03_JPRB,0.52556E+03_JPRB,0.59352E+03_JPRB, &
+ & 0.63011E+03_JPRB,0.50440E+03_JPRB,0.31793E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.43771E+03_JPRB,0.46449E+03_JPRB,0.49128E+03_JPRB,0.51852E+03_JPRB,0.58982E+03_JPRB, &
+ & 0.62155E+03_JPRB,0.49364E+03_JPRB,0.31383E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.42749E+03_JPRB,0.45555E+03_JPRB,0.48362E+03_JPRB,0.51220E+03_JPRB,0.58623E+03_JPRB, &
+ & 0.61324E+03_JPRB,0.48379E+03_JPRB,0.31014E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.41826E+03_JPRB,0.44748E+03_JPRB,0.47670E+03_JPRB,0.50650E+03_JPRB,0.58281E+03_JPRB, &
+ & 0.60555E+03_JPRB,0.47483E+03_JPRB,0.30681E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.40989E+03_JPRB,0.44015E+03_JPRB,0.47042E+03_JPRB,0.50132E+03_JPRB,0.57944E+03_JPRB, &
+ & 0.59846E+03_JPRB,0.46657E+03_JPRB,0.30379E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.41487E+03_JPRB,0.44451E+03_JPRB,0.47415E+03_JPRB,0.50447E+03_JPRB,0.58410E+03_JPRB, &
+ & 0.60269E+03_JPRB,0.47150E+03_JPRB,0.30559E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.40511E+03_JPRB,0.43597E+03_JPRB,0.46683E+03_JPRB,0.49854E+03_JPRB,0.58056E+03_JPRB, &
+ & 0.59434E+03_JPRB,0.46181E+03_JPRB,0.30207E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.39637E+03_JPRB,0.42832E+03_JPRB,0.46028E+03_JPRB,0.49326E+03_JPRB,0.57701E+03_JPRB, &
+ & 0.58648E+03_JPRB,0.45298E+03_JPRB,0.29892E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.38850E+03_JPRB,0.42143E+03_JPRB,0.45437E+03_JPRB,0.48855E+03_JPRB,0.57350E+03_JPRB, &
+ & 0.57914E+03_JPRB,0.44500E+03_JPRB,0.29608E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.38136E+03_JPRB,0.41519E+03_JPRB,0.44902E+03_JPRB,0.48433E+03_JPRB,0.57004E+03_JPRB, &
+ & 0.57245E+03_JPRB,0.43774E+03_JPRB,0.29351E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.38797E+03_JPRB,0.42097E+03_JPRB,0.45397E+03_JPRB,0.48897E+03_JPRB,0.57508E+03_JPRB, &
+ & 0.57865E+03_JPRB,0.44446E+03_JPRB,0.29589E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.37940E+03_JPRB,0.41348E+03_JPRB,0.44755E+03_JPRB,0.48416E+03_JPRB,0.57138E+03_JPRB, &
+ & 0.57059E+03_JPRB,0.43573E+03_JPRB,0.29280E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.37176E+03_JPRB,0.40679E+03_JPRB,0.44182E+03_JPRB,0.47985E+03_JPRB,0.56781E+03_JPRB, &
+ & 0.56324E+03_JPRB,0.42791E+03_JPRB,0.29005E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.36490E+03_JPRB,0.40078E+03_JPRB,0.43667E+03_JPRB,0.47599E+03_JPRB,0.56436E+03_JPRB, &
+ & 0.55656E+03_JPRB,0.42088E+03_JPRB,0.28757E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.35870E+03_JPRB,0.39536E+03_JPRB,0.43202E+03_JPRB,0.47253E+03_JPRB,0.56109E+03_JPRB, &
+ & 0.55041E+03_JPRB,0.41448E+03_JPRB,0.28534E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.36565E+03_JPRB,0.40144E+03_JPRB,0.43723E+03_JPRB,0.47759E+03_JPRB,0.56581E+03_JPRB, &
+ & 0.55729E+03_JPRB,0.42164E+03_JPRB,0.28784E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.35808E+03_JPRB,0.39482E+03_JPRB,0.43155E+03_JPRB,0.47386E+03_JPRB,0.56215E+03_JPRB, &
+ & 0.54978E+03_JPRB,0.41381E+03_JPRB,0.28511E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.35135E+03_JPRB,0.38893E+03_JPRB,0.42651E+03_JPRB,0.47052E+03_JPRB,0.55875E+03_JPRB, &
+ & 0.54295E+03_JPRB,0.40683E+03_JPRB,0.28269E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.34533E+03_JPRB,0.38366E+03_JPRB,0.42199E+03_JPRB,0.46746E+03_JPRB,0.55555E+03_JPRB, &
+ & 0.53669E+03_JPRB,0.40055E+03_JPRB,0.28052E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.33991E+03_JPRB,0.37892E+03_JPRB,0.41793E+03_JPRB,0.46467E+03_JPRB,0.55244E+03_JPRB, &
+ & 0.53093E+03_JPRB,0.39488E+03_JPRB,0.27856E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.34669E+03_JPRB,0.38485E+03_JPRB,0.42301E+03_JPRB,0.46943E+03_JPRB,0.55667E+03_JPRB, &
+ & 0.53812E+03_JPRB,0.40197E+03_JPRB,0.28101E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.33999E+03_JPRB,0.37899E+03_JPRB,0.41799E+03_JPRB,0.46662E+03_JPRB,0.55311E+03_JPRB, &
+ & 0.53101E+03_JPRB,0.39496E+03_JPRB,0.27859E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.33406E+03_JPRB,0.37380E+03_JPRB,0.41354E+03_JPRB,0.46416E+03_JPRB,0.54976E+03_JPRB, &
+ & 0.52459E+03_JPRB,0.38873E+03_JPRB,0.27645E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.32878E+03_JPRB,0.36918E+03_JPRB,0.40958E+03_JPRB,0.46185E+03_JPRB,0.54671E+03_JPRB, &
+ & 0.51881E+03_JPRB,0.38326E+03_JPRB,0.27455E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.32404E+03_JPRB,0.36503E+03_JPRB,0.40603E+03_JPRB,0.45969E+03_JPRB,0.54395E+03_JPRB, &
+ & 0.51356E+03_JPRB,0.37844E+03_JPRB,0.27284E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.33079E+03_JPRB,0.37094E+03_JPRB,0.41109E+03_JPRB,0.46395E+03_JPRB,0.54790E+03_JPRB, &
+ & 0.52101E+03_JPRB,0.38534E+03_JPRB,0.27527E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.32482E+03_JPRB,0.36572E+03_JPRB,0.40662E+03_JPRB,0.46188E+03_JPRB,0.54448E+03_JPRB, &
+ & 0.51443E+03_JPRB,0.37923E+03_JPRB,0.27312E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.31958E+03_JPRB,0.36113E+03_JPRB,0.40268E+03_JPRB,0.45998E+03_JPRB,0.54143E+03_JPRB, &
+ & 0.50857E+03_JPRB,0.37397E+03_JPRB,0.27123E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.31492E+03_JPRB,0.35705E+03_JPRB,0.39919E+03_JPRB,0.45816E+03_JPRB,0.53866E+03_JPRB, &
+ & 0.50335E+03_JPRB,0.36939E+03_JPRB,0.26955E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.31076E+03_JPRB,0.35342E+03_JPRB,0.39607E+03_JPRB,0.45638E+03_JPRB,0.53611E+03_JPRB, &
+ & 0.49868E+03_JPRB,0.36537E+03_JPRB,0.26805E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.31725E+03_JPRB,0.35910E+03_JPRB,0.40094E+03_JPRB,0.45992E+03_JPRB,0.53978E+03_JPRB, &
+ & 0.50597E+03_JPRB,0.37168E+03_JPRB,0.27039E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.31194E+03_JPRB,0.35445E+03_JPRB,0.39695E+03_JPRB,0.45835E+03_JPRB,0.53664E+03_JPRB, &
+ & 0.50000E+03_JPRB,0.36650E+03_JPRB,0.26848E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.30729E+03_JPRB,0.35038E+03_JPRB,0.39347E+03_JPRB,0.45686E+03_JPRB,0.53383E+03_JPRB, &
+ & 0.49465E+03_JPRB,0.36205E+03_JPRB,0.26680E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.30318E+03_JPRB,0.34679E+03_JPRB,0.39040E+03_JPRB,0.45536E+03_JPRB,0.53125E+03_JPRB, &
+ & 0.48979E+03_JPRB,0.35818E+03_JPRB,0.26532E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.29953E+03_JPRB,0.34359E+03_JPRB,0.38767E+03_JPRB,0.45383E+03_JPRB,0.52882E+03_JPRB, &
+ & 0.48543E+03_JPRB,0.35479E+03_JPRB,0.26401E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.30567E+03_JPRB,0.34896E+03_JPRB,0.39226E+03_JPRB,0.45673E+03_JPRB,0.53243E+03_JPRB, &
+ & 0.49274E+03_JPRB,0.36052E+03_JPRB,0.26622E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.30094E+03_JPRB,0.34482E+03_JPRB,0.38872E+03_JPRB,0.45541E+03_JPRB,0.52945E+03_JPRB, &
+ & 0.48711E+03_JPRB,0.35609E+03_JPRB,0.26451E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.29682E+03_JPRB,0.34122E+03_JPRB,0.38564E+03_JPRB,0.45413E+03_JPRB,0.52674E+03_JPRB, &
+ & 0.48217E+03_JPRB,0.35231E+03_JPRB,0.26303E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.29320E+03_JPRB,0.33805E+03_JPRB,0.38294E+03_JPRB,0.45285E+03_JPRB,0.52426E+03_JPRB, &
+ & 0.47779E+03_JPRB,0.34904E+03_JPRB,0.26172E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.29000E+03_JPRB,0.33525E+03_JPRB,0.38055E+03_JPRB,0.45152E+03_JPRB,0.52191E+03_JPRB, &
+ & 0.47388E+03_JPRB,0.34618E+03_JPRB,0.26057E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.29581E+03_JPRB,0.34033E+03_JPRB,0.38489E+03_JPRB,0.45387E+03_JPRB,0.52555E+03_JPRB, &
+ & 0.48095E+03_JPRB,0.35139E+03_JPRB,0.26266E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.29159E+03_JPRB,0.33664E+03_JPRB,0.38173E+03_JPRB,0.45277E+03_JPRB,0.52268E+03_JPRB, &
+ & 0.47582E+03_JPRB,0.34759E+03_JPRB,0.26114E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.28794E+03_JPRB,0.33344E+03_JPRB,0.37901E+03_JPRB,0.45167E+03_JPRB,0.52008E+03_JPRB, &
+ & 0.47135E+03_JPRB,0.34436E+03_JPRB,0.25982E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.28475E+03_JPRB,0.33065E+03_JPRB,0.37663E+03_JPRB,0.45055E+03_JPRB,0.51765E+03_JPRB, &
+ & 0.46738E+03_JPRB,0.34157E+03_JPRB,0.25867E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.28193E+03_JPRB,0.32819E+03_JPRB,0.37453E+03_JPRB,0.44937E+03_JPRB,0.51538E+03_JPRB, &
+ & 0.46382E+03_JPRB,0.33916E+03_JPRB,0.25766E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.28708E+03_JPRB,0.33269E+03_JPRB,0.37836E+03_JPRB,0.45121E+03_JPRB,0.51885E+03_JPRB, &
+ & 0.47029E+03_JPRB,0.34361E+03_JPRB,0.25951E+03_JPRB,0.17829E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 2,10, 3) = (/ &
+ & 0.28336E+03_JPRB,0.32944E+03_JPRB,0.37559E+03_JPRB,0.45027E+03_JPRB,0.51611E+03_JPRB, &
+ & 0.46563E+03_JPRB,0.34037E+03_JPRB,0.25817E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.28016E+03_JPRB,0.32664E+03_JPRB,0.37320E+03_JPRB,0.44932E+03_JPRB,0.51361E+03_JPRB, &
+ & 0.46153E+03_JPRB,0.33765E+03_JPRB,0.25702E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.27737E+03_JPRB,0.32420E+03_JPRB,0.37112E+03_JPRB,0.44835E+03_JPRB,0.51133E+03_JPRB, &
+ & 0.45793E+03_JPRB,0.33532E+03_JPRB,0.25601E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.27492E+03_JPRB,0.32206E+03_JPRB,0.36930E+03_JPRB,0.44735E+03_JPRB,0.50922E+03_JPRB, &
+ & 0.45473E+03_JPRB,0.33330E+03_JPRB,0.25513E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.27807E+03_JPRB,0.32481E+03_JPRB,0.37164E+03_JPRB,0.44842E+03_JPRB,0.51141E+03_JPRB, &
+ & 0.45884E+03_JPRB,0.33590E+03_JPRB,0.25627E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.27502E+03_JPRB,0.32214E+03_JPRB,0.36937E+03_JPRB,0.44764E+03_JPRB,0.50894E+03_JPRB, &
+ & 0.45486E+03_JPRB,0.33338E+03_JPRB,0.25517E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.27240E+03_JPRB,0.31985E+03_JPRB,0.36742E+03_JPRB,0.44685E+03_JPRB,0.50671E+03_JPRB, &
+ & 0.45139E+03_JPRB,0.33123E+03_JPRB,0.25422E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.27012E+03_JPRB,0.31785E+03_JPRB,0.36572E+03_JPRB,0.44602E+03_JPRB,0.50464E+03_JPRB, &
+ & 0.44836E+03_JPRB,0.32939E+03_JPRB,0.25340E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.26811E+03_JPRB,0.31610E+03_JPRB,0.36422E+03_JPRB,0.44514E+03_JPRB,0.50273E+03_JPRB, &
+ & 0.44569E+03_JPRB,0.32779E+03_JPRB,0.25268E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.27068E+03_JPRB,0.31834E+03_JPRB,0.36613E+03_JPRB,0.44605E+03_JPRB,0.50476E+03_JPRB, &
+ & 0.44911E+03_JPRB,0.32983E+03_JPRB,0.25360E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.26818E+03_JPRB,0.31616E+03_JPRB,0.36428E+03_JPRB,0.44539E+03_JPRB,0.50255E+03_JPRB, &
+ & 0.44579E+03_JPRB,0.32784E+03_JPRB,0.25270E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.26603E+03_JPRB,0.31428E+03_JPRB,0.36268E+03_JPRB,0.44471E+03_JPRB,0.50054E+03_JPRB, &
+ & 0.44293E+03_JPRB,0.32614E+03_JPRB,0.25193E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.26417E+03_JPRB,0.31264E+03_JPRB,0.36129E+03_JPRB,0.44399E+03_JPRB,0.49874E+03_JPRB, &
+ & 0.44043E+03_JPRB,0.32468E+03_JPRB,0.25125E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.26252E+03_JPRB,0.31121E+03_JPRB,0.36005E+03_JPRB,0.44322E+03_JPRB,0.49710E+03_JPRB, &
+ & 0.43824E+03_JPRB,0.32341E+03_JPRB,0.25066E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.26463E+03_JPRB,0.31305E+03_JPRB,0.36163E+03_JPRB,0.44400E+03_JPRB,0.49889E+03_JPRB, &
+ & 0.44105E+03_JPRB,0.32504E+03_JPRB,0.25142E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.26258E+03_JPRB,0.31126E+03_JPRB,0.36010E+03_JPRB,0.44348E+03_JPRB,0.49698E+03_JPRB, &
+ & 0.43831E+03_JPRB,0.32345E+03_JPRB,0.25068E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.26082E+03_JPRB,0.30972E+03_JPRB,0.35880E+03_JPRB,0.44291E+03_JPRB,0.49519E+03_JPRB, &
+ & 0.43595E+03_JPRB,0.32210E+03_JPRB,0.25005E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.25929E+03_JPRB,0.30838E+03_JPRB,0.35766E+03_JPRB,0.44229E+03_JPRB,0.49360E+03_JPRB, &
+ & 0.43388E+03_JPRB,0.32093E+03_JPRB,0.24950E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.25795E+03_JPRB,0.30721E+03_JPRB,0.35666E+03_JPRB,0.44160E+03_JPRB,0.49217E+03_JPRB, &
+ & 0.43204E+03_JPRB,0.31991E+03_JPRB,0.24901E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.86913E+03_JPRB,0.80389E+03_JPRB,0.73864E+03_JPRB,0.67339E+03_JPRB,0.62239E+03_JPRB, &
+ & 0.67741E+03_JPRB,0.51596E+03_JPRB,0.43641E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.84711E+03_JPRB,0.78462E+03_JPRB,0.72212E+03_JPRB,0.65963E+03_JPRB,0.61530E+03_JPRB, &
+ & 0.66963E+03_JPRB,0.50564E+03_JPRB,0.43387E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.82734E+03_JPRB,0.76731E+03_JPRB,0.70729E+03_JPRB,0.64727E+03_JPRB,0.60932E+03_JPRB, &
+ & 0.66251E+03_JPRB,0.49688E+03_JPRB,0.43160E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.80948E+03_JPRB,0.75169E+03_JPRB,0.69390E+03_JPRB,0.63611E+03_JPRB,0.60420E+03_JPRB, &
+ & 0.65531E+03_JPRB,0.48930E+03_JPRB,0.42954E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.79327E+03_JPRB,0.73751E+03_JPRB,0.68174E+03_JPRB,0.62598E+03_JPRB,0.59980E+03_JPRB, &
+ & 0.64776E+03_JPRB,0.48275E+03_JPRB,0.42767E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.80291E+03_JPRB,0.74594E+03_JPRB,0.68897E+03_JPRB,0.63200E+03_JPRB,0.60547E+03_JPRB, &
+ & 0.65273E+03_JPRB,0.48660E+03_JPRB,0.42878E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.78403E+03_JPRB,0.72942E+03_JPRB,0.67481E+03_JPRB,0.62020E+03_JPRB,0.60133E+03_JPRB, &
+ & 0.64384E+03_JPRB,0.47915E+03_JPRB,0.42661E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.76711E+03_JPRB,0.71462E+03_JPRB,0.66212E+03_JPRB,0.60962E+03_JPRB,0.59788E+03_JPRB, &
+ & 0.63506E+03_JPRB,0.47284E+03_JPRB,0.42466E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.75187E+03_JPRB,0.70128E+03_JPRB,0.65069E+03_JPRB,0.60010E+03_JPRB,0.59472E+03_JPRB, &
+ & 0.62679E+03_JPRB,0.46742E+03_JPRB,0.42291E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.73807E+03_JPRB,0.68920E+03_JPRB,0.64034E+03_JPRB,0.59147E+03_JPRB,0.59165E+03_JPRB, &
+ & 0.61864E+03_JPRB,0.46272E+03_JPRB,0.42132E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.75084E+03_JPRB,0.70038E+03_JPRB,0.64992E+03_JPRB,0.59946E+03_JPRB,0.59732E+03_JPRB, &
+ & 0.62621E+03_JPRB,0.46707E+03_JPRB,0.42279E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.73427E+03_JPRB,0.68588E+03_JPRB,0.63749E+03_JPRB,0.58910E+03_JPRB,0.59435E+03_JPRB, &
+ & 0.61627E+03_JPRB,0.46147E+03_JPRB,0.42088E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.71948E+03_JPRB,0.67294E+03_JPRB,0.62640E+03_JPRB,0.57986E+03_JPRB,0.59145E+03_JPRB, &
+ & 0.60690E+03_JPRB,0.45675E+03_JPRB,0.41918E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.70620E+03_JPRB,0.66132E+03_JPRB,0.61644E+03_JPRB,0.57156E+03_JPRB,0.58863E+03_JPRB, &
+ & 0.59842E+03_JPRB,0.45269E+03_JPRB,0.41765E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.69421E+03_JPRB,0.65083E+03_JPRB,0.60744E+03_JPRB,0.56406E+03_JPRB,0.58580E+03_JPRB, &
+ & 0.59032E+03_JPRB,0.44923E+03_JPRB,0.41627E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.70765E+03_JPRB,0.66259E+03_JPRB,0.61753E+03_JPRB,0.57246E+03_JPRB,0.59114E+03_JPRB, &
+ & 0.59936E+03_JPRB,0.45313E+03_JPRB,0.41781E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.69300E+03_JPRB,0.64977E+03_JPRB,0.60654E+03_JPRB,0.56330E+03_JPRB,0.58834E+03_JPRB, &
+ & 0.58949E+03_JPRB,0.44892E+03_JPRB,0.41613E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.67997E+03_JPRB,0.63837E+03_JPRB,0.59677E+03_JPRB,0.55516E+03_JPRB,0.58563E+03_JPRB, &
+ & 0.58057E+03_JPRB,0.44538E+03_JPRB,0.41463E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.66833E+03_JPRB,0.62818E+03_JPRB,0.58803E+03_JPRB,0.54788E+03_JPRB,0.58292E+03_JPRB, &
+ & 0.57257E+03_JPRB,0.44238E+03_JPRB,0.41329E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.65784E+03_JPRB,0.61901E+03_JPRB,0.58017E+03_JPRB,0.54133E+03_JPRB,0.58031E+03_JPRB, &
+ & 0.56522E+03_JPRB,0.43982E+03_JPRB,0.41208E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.67096E+03_JPRB,0.63048E+03_JPRB,0.59001E+03_JPRB,0.54953E+03_JPRB,0.58521E+03_JPRB, &
+ & 0.57438E+03_JPRB,0.44304E+03_JPRB,0.41359E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.65799E+03_JPRB,0.61913E+03_JPRB,0.58028E+03_JPRB,0.54142E+03_JPRB,0.58256E+03_JPRB, &
+ & 0.56532E+03_JPRB,0.43984E+03_JPRB,0.41210E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.64651E+03_JPRB,0.60909E+03_JPRB,0.57167E+03_JPRB,0.53427E+03_JPRB,0.57997E+03_JPRB, &
+ & 0.55705E+03_JPRB,0.43718E+03_JPRB,0.41077E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.63629E+03_JPRB,0.60015E+03_JPRB,0.56401E+03_JPRB,0.52793E+03_JPRB,0.57742E+03_JPRB, &
+ & 0.54959E+03_JPRB,0.43482E+03_JPRB,0.40960E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.62713E+03_JPRB,0.59213E+03_JPRB,0.55713E+03_JPRB,0.52227E+03_JPRB,0.57480E+03_JPRB, &
+ & 0.54282E+03_JPRB,0.43271E+03_JPRB,0.40854E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.64019E+03_JPRB,0.60356E+03_JPRB,0.56693E+03_JPRB,0.53034E+03_JPRB,0.57955E+03_JPRB, &
+ & 0.55244E+03_JPRB,0.43572E+03_JPRB,0.41005E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.62864E+03_JPRB,0.59346E+03_JPRB,0.55827E+03_JPRB,0.52321E+03_JPRB,0.57700E+03_JPRB, &
+ & 0.54395E+03_JPRB,0.43306E+03_JPRB,0.40872E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.61849E+03_JPRB,0.58457E+03_JPRB,0.55065E+03_JPRB,0.51703E+03_JPRB,0.57439E+03_JPRB, &
+ & 0.53634E+03_JPRB,0.43072E+03_JPRB,0.40755E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.60948E+03_JPRB,0.57669E+03_JPRB,0.54390E+03_JPRB,0.51158E+03_JPRB,0.57170E+03_JPRB, &
+ & 0.52946E+03_JPRB,0.42865E+03_JPRB,0.40651E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.60143E+03_JPRB,0.56965E+03_JPRB,0.53786E+03_JPRB,0.50675E+03_JPRB,0.56897E+03_JPRB, &
+ & 0.52321E+03_JPRB,0.42679E+03_JPRB,0.40558E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.61399E+03_JPRB,0.58064E+03_JPRB,0.54728E+03_JPRB,0.51440E+03_JPRB,0.57380E+03_JPRB, &
+ & 0.53292E+03_JPRB,0.42969E+03_JPRB,0.40703E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.60371E+03_JPRB,0.57164E+03_JPRB,0.53957E+03_JPRB,0.50828E+03_JPRB,0.57103E+03_JPRB, &
+ & 0.52498E+03_JPRB,0.42732E+03_JPRB,0.40585E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.59471E+03_JPRB,0.56376E+03_JPRB,0.53282E+03_JPRB,0.50302E+03_JPRB,0.56836E+03_JPRB, &
+ & 0.51802E+03_JPRB,0.42525E+03_JPRB,0.40481E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.58676E+03_JPRB,0.55681E+03_JPRB,0.52686E+03_JPRB,0.49842E+03_JPRB,0.56580E+03_JPRB, &
+ & 0.51197E+03_JPRB,0.42342E+03_JPRB,0.40389E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.57970E+03_JPRB,0.55063E+03_JPRB,0.52156E+03_JPRB,0.49437E+03_JPRB,0.56333E+03_JPRB, &
+ & 0.50656E+03_JPRB,0.42179E+03_JPRB,0.40308E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.59158E+03_JPRB,0.56102E+03_JPRB,0.53047E+03_JPRB,0.50136E+03_JPRB,0.56762E+03_JPRB, &
+ & 0.51564E+03_JPRB,0.42452E+03_JPRB,0.40445E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.58242E+03_JPRB,0.55301E+03_JPRB,0.52360E+03_JPRB,0.49623E+03_JPRB,0.56499E+03_JPRB, &
+ & 0.50866E+03_JPRB,0.42242E+03_JPRB,0.40339E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.57445E+03_JPRB,0.54604E+03_JPRB,0.51762E+03_JPRB,0.49188E+03_JPRB,0.56245E+03_JPRB, &
+ & 0.50238E+03_JPRB,0.42058E+03_JPRB,0.40248E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.56745E+03_JPRB,0.53991E+03_JPRB,0.51237E+03_JPRB,0.48811E+03_JPRB,0.55998E+03_JPRB, &
+ & 0.49675E+03_JPRB,0.41897E+03_JPRB,0.40167E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.56125E+03_JPRB,0.53448E+03_JPRB,0.50772E+03_JPRB,0.48477E+03_JPRB,0.55757E+03_JPRB, &
+ & 0.49178E+03_JPRB,0.41754E+03_JPRB,0.40096E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.57249E+03_JPRB,0.54432E+03_JPRB,0.51615E+03_JPRB,0.49103E+03_JPRB,0.56159E+03_JPRB, &
+ & 0.50080E+03_JPRB,0.42013E+03_JPRB,0.40225E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.56432E+03_JPRB,0.53718E+03_JPRB,0.51003E+03_JPRB,0.48678E+03_JPRB,0.55899E+03_JPRB, &
+ & 0.49424E+03_JPRB,0.41825E+03_JPRB,0.40131E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.55726E+03_JPRB,0.53099E+03_JPRB,0.50473E+03_JPRB,0.48321E+03_JPRB,0.55650E+03_JPRB, &
+ & 0.48858E+03_JPRB,0.41662E+03_JPRB,0.40050E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.55108E+03_JPRB,0.52559E+03_JPRB,0.50010E+03_JPRB,0.48011E+03_JPRB,0.55416E+03_JPRB, &
+ & 0.48367E+03_JPRB,0.41520E+03_JPRB,0.39978E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.54564E+03_JPRB,0.52083E+03_JPRB,0.49601E+03_JPRB,0.47737E+03_JPRB,0.55194E+03_JPRB, &
+ & 0.47938E+03_JPRB,0.41394E+03_JPRB,0.39916E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.55559E+03_JPRB,0.52954E+03_JPRB,0.50348E+03_JPRB,0.48256E+03_JPRB,0.55544E+03_JPRB, &
+ & 0.48725E+03_JPRB,0.41624E+03_JPRB,0.40030E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.54839E+03_JPRB,0.52324E+03_JPRB,0.49808E+03_JPRB,0.47910E+03_JPRB,0.55295E+03_JPRB, &
+ & 0.48155E+03_JPRB,0.41458E+03_JPRB,0.39948E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.54220E+03_JPRB,0.51781E+03_JPRB,0.49343E+03_JPRB,0.47621E+03_JPRB,0.55067E+03_JPRB, &
+ & 0.47667E+03_JPRB,0.41315E+03_JPRB,0.39876E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.53680E+03_JPRB,0.51310E+03_JPRB,0.48939E+03_JPRB,0.47371E+03_JPRB,0.54855E+03_JPRB, &
+ & 0.47238E+03_JPRB,0.41191E+03_JPRB,0.39814E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.53207E+03_JPRB,0.50895E+03_JPRB,0.48584E+03_JPRB,0.47148E+03_JPRB,0.54655E+03_JPRB, &
+ & 0.46857E+03_JPRB,0.41082E+03_JPRB,0.39760E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.53816E+03_JPRB,0.51428E+03_JPRB,0.49041E+03_JPRB,0.47455E+03_JPRB,0.54857E+03_JPRB, &
+ & 0.47346E+03_JPRB,0.41222E+03_JPRB,0.39830E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.53226E+03_JPRB,0.50912E+03_JPRB,0.48598E+03_JPRB,0.47200E+03_JPRB,0.54640E+03_JPRB, &
+ & 0.46874E+03_JPRB,0.41086E+03_JPRB,0.39762E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.52718E+03_JPRB,0.50468E+03_JPRB,0.48217E+03_JPRB,0.46982E+03_JPRB,0.54436E+03_JPRB, &
+ & 0.46486E+03_JPRB,0.40969E+03_JPRB,0.39703E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.52277E+03_JPRB,0.50081E+03_JPRB,0.47886E+03_JPRB,0.46790E+03_JPRB,0.54248E+03_JPRB, &
+ & 0.46109E+03_JPRB,0.40868E+03_JPRB,0.39652E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.51889E+03_JPRB,0.49742E+03_JPRB,0.47595E+03_JPRB,0.46618E+03_JPRB,0.54076E+03_JPRB, &
+ & 0.45793E+03_JPRB,0.40778E+03_JPRB,0.39608E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.52385E+03_JPRB,0.50177E+03_JPRB,0.47968E+03_JPRB,0.46863E+03_JPRB,0.54244E+03_JPRB, &
+ & 0.46202E+03_JPRB,0.40893E+03_JPRB,0.39665E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.51902E+03_JPRB,0.49754E+03_JPRB,0.47606E+03_JPRB,0.46673E+03_JPRB,0.54050E+03_JPRB, &
+ & 0.45805E+03_JPRB,0.40782E+03_JPRB,0.39609E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.51487E+03_JPRB,0.49390E+03_JPRB,0.47294E+03_JPRB,0.46509E+03_JPRB,0.53868E+03_JPRB, &
+ & 0.45465E+03_JPRB,0.40686E+03_JPRB,0.39561E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.51125E+03_JPRB,0.49074E+03_JPRB,0.47022E+03_JPRB,0.46362E+03_JPRB,0.53703E+03_JPRB, &
+ & 0.45171E+03_JPRB,0.40602E+03_JPRB,0.39520E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.50807E+03_JPRB,0.48796E+03_JPRB,0.46784E+03_JPRB,0.46227E+03_JPRB,0.53558E+03_JPRB, &
+ & 0.44916E+03_JPRB,0.40529E+03_JPRB,0.39483E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.51214E+03_JPRB,0.49152E+03_JPRB,0.47089E+03_JPRB,0.46425E+03_JPRB,0.53698E+03_JPRB, &
+ & 0.45243E+03_JPRB,0.40623E+03_JPRB,0.39530E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.50819E+03_JPRB,0.48806E+03_JPRB,0.46793E+03_JPRB,0.46281E+03_JPRB,0.53522E+03_JPRB, &
+ & 0.44925E+03_JPRB,0.40532E+03_JPRB,0.39485E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.50478E+03_JPRB,0.48508E+03_JPRB,0.46537E+03_JPRB,0.46157E+03_JPRB,0.53378E+03_JPRB, &
+ & 0.44654E+03_JPRB,0.40453E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.50182E+03_JPRB,0.48249E+03_JPRB,0.46315E+03_JPRB,0.46044E+03_JPRB,0.53251E+03_JPRB, &
+ & 0.44422E+03_JPRB,0.40385E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.49922E+03_JPRB,0.48021E+03_JPRB,0.46120E+03_JPRB,0.45936E+03_JPRB,0.53137E+03_JPRB, &
+ & 0.44221E+03_JPRB,0.40325E+03_JPRB,0.39381E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.13243E+04_JPRB,0.11799E+04_JPRB,0.10354E+04_JPRB,0.89093E+03_JPRB,0.74647E+03_JPRB, &
+ & 0.71044E+03_JPRB,0.61021E+03_JPRB,0.64069E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.12908E+04_JPRB,0.11505E+04_JPRB,0.10102E+04_JPRB,0.86996E+03_JPRB,0.72969E+03_JPRB, &
+ & 0.70292E+03_JPRB,0.60750E+03_JPRB,0.63934E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.12606E+04_JPRB,0.11241E+04_JPRB,0.98763E+03_JPRB,0.85113E+03_JPRB,0.71463E+03_JPRB, &
+ & 0.69451E+03_JPRB,0.60507E+03_JPRB,0.63812E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.12334E+04_JPRB,0.11003E+04_JPRB,0.96722E+03_JPRB,0.83412E+03_JPRB,0.70102E+03_JPRB, &
+ & 0.68564E+03_JPRB,0.60287E+03_JPRB,0.63703E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.12087E+04_JPRB,0.10787E+04_JPRB,0.94870E+03_JPRB,0.81869E+03_JPRB,0.68867E+03_JPRB, &
+ & 0.67724E+03_JPRB,0.60088E+03_JPRB,0.63603E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.12234E+04_JPRB,0.10916E+04_JPRB,0.95972E+03_JPRB,0.82787E+03_JPRB,0.69602E+03_JPRB, &
+ & 0.68345E+03_JPRB,0.60207E+03_JPRB,0.63662E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.11946E+04_JPRB,0.10664E+04_JPRB,0.93814E+03_JPRB,0.80988E+03_JPRB,0.68163E+03_JPRB, &
+ & 0.67225E+03_JPRB,0.59975E+03_JPRB,0.63546E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.11689E+04_JPRB,0.10438E+04_JPRB,0.91881E+03_JPRB,0.79377E+03_JPRB,0.66882E+03_JPRB, &
+ & 0.66165E+03_JPRB,0.59767E+03_JPRB,0.63442E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.11456E+04_JPRB,0.10235E+04_JPRB,0.90139E+03_JPRB,0.77926E+03_JPRB,0.65759E+03_JPRB, &
+ & 0.65058E+03_JPRB,0.59579E+03_JPRB,0.63348E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.11246E+04_JPRB,0.10051E+04_JPRB,0.88561E+03_JPRB,0.76611E+03_JPRB,0.64778E+03_JPRB, &
+ & 0.64016E+03_JPRB,0.59410E+03_JPRB,0.63264E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.11441E+04_JPRB,0.10221E+04_JPRB,0.90021E+03_JPRB,0.77828E+03_JPRB,0.65728E+03_JPRB, &
+ & 0.64981E+03_JPRB,0.59567E+03_JPRB,0.63342E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.11188E+04_JPRB,0.10001E+04_JPRB,0.88128E+03_JPRB,0.76250E+03_JPRB,0.64582E+03_JPRB, &
+ & 0.63739E+03_JPRB,0.59363E+03_JPRB,0.63240E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.10963E+04_JPRB,0.98033E+03_JPRB,0.86437E+03_JPRB,0.74841E+03_JPRB,0.63611E+03_JPRB, &
+ & 0.62581E+03_JPRB,0.59181E+03_JPRB,0.63149E+03_JPRB,0.67118E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 3, 5) = (/ &
+ & 0.10761E+04_JPRB,0.96263E+03_JPRB,0.84920E+03_JPRB,0.73577E+03_JPRB,0.62780E+03_JPRB, &
+ & 0.61513E+03_JPRB,0.59018E+03_JPRB,0.63068E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.10578E+04_JPRB,0.94664E+03_JPRB,0.83549E+03_JPRB,0.72435E+03_JPRB,0.62066E+03_JPRB, &
+ & 0.60588E+03_JPRB,0.58871E+03_JPRB,0.62994E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.10783E+04_JPRB,0.96456E+03_JPRB,0.85086E+03_JPRB,0.73715E+03_JPRB,0.62971E+03_JPRB, &
+ & 0.61628E+03_JPRB,0.59036E+03_JPRB,0.63077E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.10559E+04_JPRB,0.94502E+03_JPRB,0.83411E+03_JPRB,0.72319E+03_JPRB,0.62145E+03_JPRB, &
+ & 0.60490E+03_JPRB,0.58856E+03_JPRB,0.62987E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.10361E+04_JPRB,0.92766E+03_JPRB,0.81923E+03_JPRB,0.71079E+03_JPRB,0.61457E+03_JPRB, &
+ & 0.59452E+03_JPRB,0.58696E+03_JPRB,0.62907E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.10183E+04_JPRB,0.91213E+03_JPRB,0.80591E+03_JPRB,0.69970E+03_JPRB,0.60876E+03_JPRB, &
+ & 0.58559E+03_JPRB,0.58552E+03_JPRB,0.62835E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.10024E+04_JPRB,0.89816E+03_JPRB,0.79394E+03_JPRB,0.68972E+03_JPRB,0.60374E+03_JPRB, &
+ & 0.57800E+03_JPRB,0.58424E+03_JPRB,0.62771E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.10224E+04_JPRB,0.91564E+03_JPRB,0.80892E+03_JPRB,0.70221E+03_JPRB,0.61144E+03_JPRB, &
+ & 0.58757E+03_JPRB,0.58585E+03_JPRB,0.62851E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.10026E+04_JPRB,0.89835E+03_JPRB,0.79410E+03_JPRB,0.68985E+03_JPRB,0.60588E+03_JPRB, &
+ & 0.57810E+03_JPRB,0.58425E+03_JPRB,0.62772E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.98511E+03_JPRB,0.88305E+03_JPRB,0.78099E+03_JPRB,0.67893E+03_JPRB,0.60138E+03_JPRB, &
+ & 0.57034E+03_JPRB,0.58284E+03_JPRB,0.62701E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.96954E+03_JPRB,0.86942E+03_JPRB,0.76931E+03_JPRB,0.66919E+03_JPRB,0.59759E+03_JPRB, &
+ & 0.56378E+03_JPRB,0.58159E+03_JPRB,0.62638E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.95557E+03_JPRB,0.85720E+03_JPRB,0.75883E+03_JPRB,0.66046E+03_JPRB,0.59436E+03_JPRB, &
+ & 0.55823E+03_JPRB,0.58046E+03_JPRB,0.62582E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.97547E+03_JPRB,0.87461E+03_JPRB,0.77376E+03_JPRB,0.67290E+03_JPRB,0.60045E+03_JPRB, &
+ & 0.56624E+03_JPRB,0.58207E+03_JPRB,0.62662E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.95788E+03_JPRB,0.85922E+03_JPRB,0.76057E+03_JPRB,0.66191E+03_JPRB,0.59710E+03_JPRB, &
+ & 0.55912E+03_JPRB,0.58065E+03_JPRB,0.62591E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.94241E+03_JPRB,0.84568E+03_JPRB,0.74896E+03_JPRB,0.65223E+03_JPRB,0.59434E+03_JPRB, &
+ & 0.55328E+03_JPRB,0.57940E+03_JPRB,0.62529E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.92868E+03_JPRB,0.83367E+03_JPRB,0.73866E+03_JPRB,0.64365E+03_JPRB,0.59182E+03_JPRB, &
+ & 0.54839E+03_JPRB,0.57829E+03_JPRB,0.62473E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.91642E+03_JPRB,0.82295E+03_JPRB,0.72947E+03_JPRB,0.63599E+03_JPRB,0.58948E+03_JPRB, &
+ & 0.54428E+03_JPRB,0.57730E+03_JPRB,0.62424E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.93556E+03_JPRB,0.83969E+03_JPRB,0.74382E+03_JPRB,0.64795E+03_JPRB,0.59420E+03_JPRB, &
+ & 0.55081E+03_JPRB,0.57885E+03_JPRB,0.62501E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.91989E+03_JPRB,0.82598E+03_JPRB,0.73207E+03_JPRB,0.63816E+03_JPRB,0.59179E+03_JPRB, &
+ & 0.54542E+03_JPRB,0.57758E+03_JPRB,0.62438E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.90618E+03_JPRB,0.81398E+03_JPRB,0.72179E+03_JPRB,0.62959E+03_JPRB,0.58955E+03_JPRB, &
+ & 0.54102E+03_JPRB,0.57648E+03_JPRB,0.62383E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.89407E+03_JPRB,0.80339E+03_JPRB,0.71271E+03_JPRB,0.62202E+03_JPRB,0.58737E+03_JPRB, &
+ & 0.53729E+03_JPRB,0.57550E+03_JPRB,0.62334E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.88331E+03_JPRB,0.79397E+03_JPRB,0.70463E+03_JPRB,0.61530E+03_JPRB,0.58524E+03_JPRB, &
+ & 0.53413E+03_JPRB,0.57463E+03_JPRB,0.62290E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.90140E+03_JPRB,0.80981E+03_JPRB,0.71821E+03_JPRB,0.62661E+03_JPRB,0.58941E+03_JPRB, &
+ & 0.53953E+03_JPRB,0.57609E+03_JPRB,0.62363E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.88745E+03_JPRB,0.79760E+03_JPRB,0.70774E+03_JPRB,0.61789E+03_JPRB,0.58727E+03_JPRB, &
+ & 0.53533E+03_JPRB,0.57497E+03_JPRB,0.62307E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.87531E+03_JPRB,0.78697E+03_JPRB,0.69863E+03_JPRB,0.61030E+03_JPRB,0.58522E+03_JPRB, &
+ & 0.53203E+03_JPRB,0.57399E+03_JPRB,0.62258E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.86464E+03_JPRB,0.77763E+03_JPRB,0.69063E+03_JPRB,0.60363E+03_JPRB,0.58317E+03_JPRB, &
+ & 0.52938E+03_JPRB,0.57313E+03_JPRB,0.62215E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.85519E+03_JPRB,0.76937E+03_JPRB,0.68354E+03_JPRB,0.59772E+03_JPRB,0.58120E+03_JPRB, &
+ & 0.52712E+03_JPRB,0.57236E+03_JPRB,0.62177E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.87232E+03_JPRB,0.78435E+03_JPRB,0.69639E+03_JPRB,0.60843E+03_JPRB,0.58508E+03_JPRB, &
+ & 0.53128E+03_JPRB,0.57375E+03_JPRB,0.62246E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.85988E+03_JPRB,0.77347E+03_JPRB,0.68706E+03_JPRB,0.60065E+03_JPRB,0.58302E+03_JPRB, &
+ & 0.52823E+03_JPRB,0.57274E+03_JPRB,0.62196E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.84911E+03_JPRB,0.76405E+03_JPRB,0.67898E+03_JPRB,0.59392E+03_JPRB,0.58102E+03_JPRB, &
+ & 0.52572E+03_JPRB,0.57187E+03_JPRB,0.62153E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.83970E+03_JPRB,0.75581E+03_JPRB,0.67193E+03_JPRB,0.58804E+03_JPRB,0.57906E+03_JPRB, &
+ & 0.52364E+03_JPRB,0.57111E+03_JPRB,0.62115E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.83140E+03_JPRB,0.74855E+03_JPRB,0.66571E+03_JPRB,0.58286E+03_JPRB,0.57713E+03_JPRB, &
+ & 0.52190E+03_JPRB,0.57045E+03_JPRB,0.62081E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.84657E+03_JPRB,0.76183E+03_JPRB,0.67708E+03_JPRB,0.59234E+03_JPRB,0.58061E+03_JPRB, &
+ & 0.52515E+03_JPRB,0.57167E+03_JPRB,0.62142E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.83560E+03_JPRB,0.75223E+03_JPRB,0.66886E+03_JPRB,0.58548E+03_JPRB,0.57865E+03_JPRB, &
+ & 0.52276E+03_JPRB,0.57078E+03_JPRB,0.62098E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.82616E+03_JPRB,0.74397E+03_JPRB,0.66177E+03_JPRB,0.57958E+03_JPRB,0.57663E+03_JPRB, &
+ & 0.52085E+03_JPRB,0.57002E+03_JPRB,0.62060E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.81794E+03_JPRB,0.73678E+03_JPRB,0.65561E+03_JPRB,0.57444E+03_JPRB,0.57466E+03_JPRB, &
+ & 0.51933E+03_JPRB,0.56936E+03_JPRB,0.62027E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.81073E+03_JPRB,0.73047E+03_JPRB,0.65020E+03_JPRB,0.56994E+03_JPRB,0.57276E+03_JPRB, &
+ & 0.51811E+03_JPRB,0.56878E+03_JPRB,0.61998E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.82001E+03_JPRB,0.73859E+03_JPRB,0.65716E+03_JPRB,0.57574E+03_JPRB,0.57531E+03_JPRB, &
+ & 0.51970E+03_JPRB,0.56953E+03_JPRB,0.62035E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.81102E+03_JPRB,0.73072E+03_JPRB,0.65042E+03_JPRB,0.57012E+03_JPRB,0.57326E+03_JPRB, &
+ & 0.51814E+03_JPRB,0.56880E+03_JPRB,0.61999E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.80328E+03_JPRB,0.72395E+03_JPRB,0.64462E+03_JPRB,0.56528E+03_JPRB,0.57135E+03_JPRB, &
+ & 0.51670E+03_JPRB,0.56818E+03_JPRB,0.61968E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.79655E+03_JPRB,0.71806E+03_JPRB,0.63957E+03_JPRB,0.56108E+03_JPRB,0.56956E+03_JPRB, &
+ & 0.51595E+03_JPRB,0.56763E+03_JPRB,0.61941E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.79064E+03_JPRB,0.71289E+03_JPRB,0.63514E+03_JPRB,0.55738E+03_JPRB,0.56781E+03_JPRB, &
+ & 0.51517E+03_JPRB,0.56716E+03_JPRB,0.61917E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.79821E+03_JPRB,0.71951E+03_JPRB,0.64081E+03_JPRB,0.56211E+03_JPRB,0.57002E+03_JPRB, &
+ & 0.51613E+03_JPRB,0.56777E+03_JPRB,0.61947E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.79085E+03_JPRB,0.71307E+03_JPRB,0.63529E+03_JPRB,0.55751E+03_JPRB,0.56813E+03_JPRB, &
+ & 0.51519E+03_JPRB,0.56717E+03_JPRB,0.61918E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.78452E+03_JPRB,0.70753E+03_JPRB,0.63054E+03_JPRB,0.55355E+03_JPRB,0.56648E+03_JPRB, &
+ & 0.51441E+03_JPRB,0.56666E+03_JPRB,0.61892E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.77901E+03_JPRB,0.70271E+03_JPRB,0.62641E+03_JPRB,0.55011E+03_JPRB,0.56489E+03_JPRB, &
+ & 0.51374E+03_JPRB,0.56622E+03_JPRB,0.61870E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.77417E+03_JPRB,0.69847E+03_JPRB,0.62278E+03_JPRB,0.54708E+03_JPRB,0.56325E+03_JPRB, &
+ & 0.51315E+03_JPRB,0.56583E+03_JPRB,0.61850E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.78036E+03_JPRB,0.70389E+03_JPRB,0.62743E+03_JPRB,0.55096E+03_JPRB,0.56495E+03_JPRB, &
+ & 0.51390E+03_JPRB,0.56633E+03_JPRB,0.61875E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.77434E+03_JPRB,0.69862E+03_JPRB,0.62291E+03_JPRB,0.54719E+03_JPRB,0.56343E+03_JPRB, &
+ & 0.51318E+03_JPRB,0.56584E+03_JPRB,0.61851E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.76915E+03_JPRB,0.69408E+03_JPRB,0.61902E+03_JPRB,0.54395E+03_JPRB,0.56189E+03_JPRB, &
+ & 0.51255E+03_JPRB,0.56542E+03_JPRB,0.61830E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.76464E+03_JPRB,0.69014E+03_JPRB,0.61563E+03_JPRB,0.54113E+03_JPRB,0.56027E+03_JPRB, &
+ & 0.51200E+03_JPRB,0.56506E+03_JPRB,0.61812E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.76068E+03_JPRB,0.68667E+03_JPRB,0.61266E+03_JPRB,0.53865E+03_JPRB,0.55865E+03_JPRB, &
+ & 0.51152E+03_JPRB,0.56474E+03_JPRB,0.61796E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.16832E+04_JPRB,0.14832E+04_JPRB,0.12833E+04_JPRB,0.10834E+04_JPRB,0.88343E+03_JPRB, &
+ & 0.73047E+03_JPRB,0.75923E+03_JPRB,0.85568E+03_JPRB,0.94989E+03_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.16405E+04_JPRB,0.14459E+04_JPRB,0.12513E+04_JPRB,0.10567E+04_JPRB,0.86211E+03_JPRB, &
+ & 0.72257E+03_JPRB,0.75791E+03_JPRB,0.85457E+03_JPRB,0.94915E+03_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.16022E+04_JPRB,0.14124E+04_JPRB,0.12226E+04_JPRB,0.10328E+04_JPRB,0.84296E+03_JPRB, &
+ & 0.71182E+03_JPRB,0.75643E+03_JPRB,0.85315E+03_JPRB,0.94805E+03_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.15677E+04_JPRB,0.13822E+04_JPRB,0.11967E+04_JPRB,0.10112E+04_JPRB,0.82566E+03_JPRB, &
+ & 0.70003E+03_JPRB,0.75475E+03_JPRB,0.85145E+03_JPRB,0.94659E+03_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.15363E+04_JPRB,0.13547E+04_JPRB,0.11731E+04_JPRB,0.99155E+03_JPRB,0.80997E+03_JPRB, &
+ & 0.68802E+03_JPRB,0.75277E+03_JPRB,0.84941E+03_JPRB,0.94478E+03_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.15549E+04_JPRB,0.13710E+04_JPRB,0.11871E+04_JPRB,0.10032E+04_JPRB,0.81930E+03_JPRB, &
+ & 0.69644E+03_JPRB,0.75599E+03_JPRB,0.85402E+03_JPRB,0.95009E+03_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.15184E+04_JPRB,0.13390E+04_JPRB,0.11597E+04_JPRB,0.98036E+03_JPRB,0.80102E+03_JPRB, &
+ & 0.68214E+03_JPRB,0.75486E+03_JPRB,0.85308E+03_JPRB,0.94950E+03_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.14856E+04_JPRB,0.13104E+04_JPRB,0.11351E+04_JPRB,0.95988E+03_JPRB,0.78464E+03_JPRB, &
+ & 0.67032E+03_JPRB,0.75359E+03_JPRB,0.85186E+03_JPRB,0.94855E+03_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.14561E+04_JPRB,0.12845E+04_JPRB,0.11130E+04_JPRB,0.94143E+03_JPRB,0.76988E+03_JPRB, &
+ & 0.66240E+03_JPRB,0.75215E+03_JPRB,0.85037E+03_JPRB,0.94724E+03_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.14294E+04_JPRB,0.12611E+04_JPRB,0.10929E+04_JPRB,0.92472E+03_JPRB,0.75651E+03_JPRB, &
+ & 0.65660E+03_JPRB,0.75042E+03_JPRB,0.84857E+03_JPRB,0.94557E+03_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.14541E+04_JPRB,0.12828E+04_JPRB,0.11115E+04_JPRB,0.94019E+03_JPRB,0.76889E+03_JPRB, &
+ & 0.66226E+03_JPRB,0.75340E+03_JPRB,0.85268E+03_JPRB,0.95029E+03_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.14220E+04_JPRB,0.12547E+04_JPRB,0.10874E+04_JPRB,0.92013E+03_JPRB,0.75284E+03_JPRB, &
+ & 0.65611E+03_JPRB,0.75249E+03_JPRB,0.85200E+03_JPRB,0.94990E+03_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.13934E+04_JPRB,0.12297E+04_JPRB,0.10659E+04_JPRB,0.90223E+03_JPRB,0.73852E+03_JPRB, &
+ & 0.65222E+03_JPRB,0.75143E+03_JPRB,0.85101E+03_JPRB,0.94916E+03_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.13676E+04_JPRB,0.12071E+04_JPRB,0.10467E+04_JPRB,0.88615E+03_JPRB,0.72566E+03_JPRB, &
+ & 0.64945E+03_JPRB,0.75024E+03_JPRB,0.84977E+03_JPRB,0.94807E+03_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.13444E+04_JPRB,0.11868E+04_JPRB,0.10292E+04_JPRB,0.87164E+03_JPRB,0.71405E+03_JPRB, &
+ & 0.64733E+03_JPRB,0.74880E+03_JPRB,0.84822E+03_JPRB,0.94662E+03_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.13705E+04_JPRB,0.12096E+04_JPRB,0.10488E+04_JPRB,0.88791E+03_JPRB,0.72707E+03_JPRB, &
+ & 0.64976E+03_JPRB,0.75119E+03_JPRB,0.85151E+03_JPRB,0.95037E+03_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.13421E+04_JPRB,0.11848E+04_JPRB,0.10275E+04_JPRB,0.87017E+03_JPRB,0.71287E+03_JPRB, &
+ & 0.64785E+03_JPRB,0.75047E+03_JPRB,0.85104E+03_JPRB,0.95019E+03_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.13169E+04_JPRB,0.11627E+04_JPRB,0.10086E+04_JPRB,0.85441E+03_JPRB,0.70026E+03_JPRB, &
+ & 0.64696E+03_JPRB,0.74964E+03_JPRB,0.85031E+03_JPRB,0.94968E+03_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.12943E+04_JPRB,0.11430E+04_JPRB,0.99164E+03_JPRB,0.84031E+03_JPRB,0.68898E+03_JPRB, &
+ & 0.64601E+03_JPRB,0.74865E+03_JPRB,0.84930E+03_JPRB,0.94882E+03_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.12740E+04_JPRB,0.11252E+04_JPRB,0.97642E+03_JPRB,0.82763E+03_JPRB,0.67884E+03_JPRB, &
+ & 0.64496E+03_JPRB,0.74747E+03_JPRB,0.84802E+03_JPRB,0.94760E+03_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.12994E+04_JPRB,0.11474E+04_JPRB,0.99546E+03_JPRB,0.84350E+03_JPRB,0.69153E+03_JPRB, &
+ & 0.64599E+03_JPRB,0.74922E+03_JPRB,0.85040E+03_JPRB,0.95032E+03_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.12743E+04_JPRB,0.11254E+04_JPRB,0.97662E+03_JPRB,0.82780E+03_JPRB,0.67897E+03_JPRB, &
+ & 0.64529E+03_JPRB,0.74869E+03_JPRB,0.85015E+03_JPRB,0.95034E+03_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.12521E+04_JPRB,0.11060E+04_JPRB,0.95996E+03_JPRB,0.81391E+03_JPRB,0.66786E+03_JPRB, &
+ & 0.64458E+03_JPRB,0.74805E+03_JPRB,0.84965E+03_JPRB,0.95004E+03_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.12323E+04_JPRB,0.10887E+04_JPRB,0.94511E+03_JPRB,0.80154E+03_JPRB,0.65797E+03_JPRB, &
+ & 0.64380E+03_JPRB,0.74727E+03_JPRB,0.84886E+03_JPRB,0.94940E+03_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.12145E+04_JPRB,0.10732E+04_JPRB,0.93180E+03_JPRB,0.79045E+03_JPRB,0.64909E+03_JPRB, &
+ & 0.64294E+03_JPRB,0.74629E+03_JPRB,0.84781E+03_JPRB,0.94841E+03_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.12398E+04_JPRB,0.10953E+04_JPRB,0.95077E+03_JPRB,0.80625E+03_JPRB,0.66174E+03_JPRB, &
+ & 0.64362E+03_JPRB,0.74747E+03_JPRB,0.84935E+03_JPRB,0.95014E+03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.12174E+04_JPRB,0.10757E+04_JPRB,0.93400E+03_JPRB,0.79228E+03_JPRB,0.65056E+03_JPRB, &
+ & 0.64308E+03_JPRB,0.74712E+03_JPRB,0.84932E+03_JPRB,0.95036E+03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.11978E+04_JPRB,0.10585E+04_JPRB,0.91925E+03_JPRB,0.77999E+03_JPRB,0.64087E+03_JPRB, &
+ & 0.64253E+03_JPRB,0.74666E+03_JPRB,0.84902E+03_JPRB,0.95027E+03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.11803E+04_JPRB,0.10432E+04_JPRB,0.90616E+03_JPRB,0.76908E+03_JPRB,0.63262E+03_JPRB, &
+ & 0.64192E+03_JPRB,0.74606E+03_JPRB,0.84847E+03_JPRB,0.94985E+03_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.11647E+04_JPRB,0.10296E+04_JPRB,0.89448E+03_JPRB,0.75935E+03_JPRB,0.62549E+03_JPRB, &
+ & 0.64122E+03_JPRB,0.74529E+03_JPRB,0.84763E+03_JPRB,0.94909E+03_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.11891E+04_JPRB,0.10509E+04_JPRB,0.91272E+03_JPRB,0.77455E+03_JPRB,0.63693E+03_JPRB, &
+ & 0.64154E+03_JPRB,0.74584E+03_JPRB,0.84830E+03_JPRB,0.94975E+03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.11692E+04_JPRB,0.10335E+04_JPRB,0.89779E+03_JPRB,0.76210E+03_JPRB,0.62795E+03_JPRB, &
+ & 0.64115E+03_JPRB,0.74575E+03_JPRB,0.84848E+03_JPRB,0.95025E+03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.11517E+04_JPRB,0.10182E+04_JPRB,0.88471E+03_JPRB,0.75121E+03_JPRB,0.62051E+03_JPRB, &
+ & 0.64074E+03_JPRB,0.74542E+03_JPRB,0.84840E+03_JPRB,0.95037E+03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.11363E+04_JPRB,0.10048E+04_JPRB,0.87317E+03_JPRB,0.74159E+03_JPRB,0.61432E+03_JPRB, &
+ & 0.64028E+03_JPRB,0.74499E+03_JPRB,0.84806E+03_JPRB,0.95015E+03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.11227E+04_JPRB,0.99279E+03_JPRB,0.86291E+03_JPRB,0.73304E+03_JPRB,0.60908E+03_JPRB, &
+ & 0.63974E+03_JPRB,0.74440E+03_JPRB,0.84744E+03_JPRB,0.94961E+03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.11457E+04_JPRB,0.10129E+04_JPRB,0.88017E+03_JPRB,0.74742E+03_JPRB,0.61848E+03_JPRB, &
+ & 0.63968E+03_JPRB,0.74433E+03_JPRB,0.84725E+03_JPRB,0.94927E+03_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.11279E+04_JPRB,0.99740E+03_JPRB,0.86687E+03_JPRB,0.73633E+03_JPRB,0.61183E+03_JPRB, &
+ & 0.63944E+03_JPRB,0.74439E+03_JPRB,0.84765E+03_JPRB,0.94999E+03_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.11125E+04_JPRB,0.98389E+03_JPRB,0.85529E+03_JPRB,0.72668E+03_JPRB,0.60652E+03_JPRB, &
+ & 0.63917E+03_JPRB,0.74428E+03_JPRB,0.84777E+03_JPRB,0.95034E+03_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.10989E+04_JPRB,0.97202E+03_JPRB,0.84512E+03_JPRB,0.71821E+03_JPRB,0.60224E+03_JPRB, &
+ & 0.63885E+03_JPRB,0.74401E+03_JPRB,0.84763E+03_JPRB,0.95032E+03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.10869E+04_JPRB,0.96152E+03_JPRB,0.83611E+03_JPRB,0.71070E+03_JPRB,0.59867E+03_JPRB, &
+ & 0.63844E+03_JPRB,0.74359E+03_JPRB,0.84721E+03_JPRB,0.94997E+03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.11087E+04_JPRB,0.98057E+03_JPRB,0.85244E+03_JPRB,0.72431E+03_JPRB,0.60583E+03_JPRB, &
+ & 0.63802E+03_JPRB,0.74290E+03_JPRB,0.84619E+03_JPRB,0.94868E+03_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.10929E+04_JPRB,0.96673E+03_JPRB,0.84058E+03_JPRB,0.71443E+03_JPRB,0.60128E+03_JPRB, &
+ & 0.63792E+03_JPRB,0.74318E+03_JPRB,0.84681E+03_JPRB,0.94962E+03_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.10792E+04_JPRB,0.95475E+03_JPRB,0.83031E+03_JPRB,0.70587E+03_JPRB,0.59784E+03_JPRB, &
+ & 0.63778E+03_JPRB,0.74323E+03_JPRB,0.84713E+03_JPRB,0.95019E+03_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.10672E+04_JPRB,0.94429E+03_JPRB,0.82134E+03_JPRB,0.69840E+03_JPRB,0.59517E+03_JPRB, &
+ & 0.63759E+03_JPRB,0.74313E+03_JPRB,0.84718E+03_JPRB,0.95037E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 9, 6) = (/ &
+ & 0.10567E+04_JPRB,0.93506E+03_JPRB,0.81344E+03_JPRB,0.69181E+03_JPRB,0.59278E+03_JPRB, &
+ & 0.63730E+03_JPRB,0.74285E+03_JPRB,0.84695E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.10760E+04_JPRB,0.95193E+03_JPRB,0.82790E+03_JPRB,0.70386E+03_JPRB,0.59768E+03_JPRB, &
+ & 0.63651E+03_JPRB,0.74157E+03_JPRB,0.84519E+03_JPRB,0.94809E+03_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.10620E+04_JPRB,0.93974E+03_JPRB,0.81744E+03_JPRB,0.69515E+03_JPRB,0.59477E+03_JPRB, &
+ & 0.63656E+03_JPRB,0.74203E+03_JPRB,0.84600E+03_JPRB,0.94921E+03_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.10500E+04_JPRB,0.92923E+03_JPRB,0.80844E+03_JPRB,0.68764E+03_JPRB,0.59242E+03_JPRB, &
+ & 0.63654E+03_JPRB,0.74226E+03_JPRB,0.84650E+03_JPRB,0.94996E+03_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.10396E+04_JPRB,0.92010E+03_JPRB,0.80061E+03_JPRB,0.68112E+03_JPRB,0.59042E+03_JPRB, &
+ & 0.63645E+03_JPRB,0.74230E+03_JPRB,0.84672E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.10304E+04_JPRB,0.91207E+03_JPRB,0.79373E+03_JPRB,0.67539E+03_JPRB,0.58849E+03_JPRB, &
+ & 0.63628E+03_JPRB,0.74216E+03_JPRB,0.84665E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.10422E+04_JPRB,0.92239E+03_JPRB,0.80258E+03_JPRB,0.68276E+03_JPRB,0.59118E+03_JPRB, &
+ & 0.63525E+03_JPRB,0.74065E+03_JPRB,0.84470E+03_JPRB,0.94808E+03_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.10308E+04_JPRB,0.91240E+03_JPRB,0.79401E+03_JPRB,0.67562E+03_JPRB,0.58920E+03_JPRB, &
+ & 0.63540E+03_JPRB,0.74118E+03_JPRB,0.84554E+03_JPRB,0.94920E+03_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.10210E+04_JPRB,0.90379E+03_JPRB,0.78663E+03_JPRB,0.66947E+03_JPRB,0.58737E+03_JPRB, &
+ & 0.63545E+03_JPRB,0.74147E+03_JPRB,0.84609E+03_JPRB,0.94995E+03_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.10124E+04_JPRB,0.89631E+03_JPRB,0.78022E+03_JPRB,0.66413E+03_JPRB,0.58569E+03_JPRB, &
+ & 0.63543E+03_JPRB,0.74156E+03_JPRB,0.84634E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.10049E+04_JPRB,0.88974E+03_JPRB,0.77458E+03_JPRB,0.65943E+03_JPRB,0.58398E+03_JPRB, &
+ & 0.63532E+03_JPRB,0.74146E+03_JPRB,0.84628E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.10145E+04_JPRB,0.89815E+03_JPRB,0.78180E+03_JPRB,0.66544E+03_JPRB,0.58616E+03_JPRB, &
+ & 0.63421E+03_JPRB,0.73990E+03_JPRB,0.84430E+03_JPRB,0.94808E+03_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.10052E+04_JPRB,0.88997E+03_JPRB,0.77478E+03_JPRB,0.65960E+03_JPRB,0.58451E+03_JPRB, &
+ & 0.63444E+03_JPRB,0.74048E+03_JPRB,0.84518E+03_JPRB,0.94921E+03_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.99710E+03_JPRB,0.88292E+03_JPRB,0.76874E+03_JPRB,0.65457E+03_JPRB,0.58265E+03_JPRB, &
+ & 0.63457E+03_JPRB,0.74082E+03_JPRB,0.84574E+03_JPRB,0.94995E+03_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.99010E+03_JPRB,0.87679E+03_JPRB,0.76349E+03_JPRB,0.65019E+03_JPRB,0.58054E+03_JPRB, &
+ & 0.63460E+03_JPRB,0.74095E+03_JPRB,0.84600E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.98395E+03_JPRB,0.87141E+03_JPRB,0.75888E+03_JPRB,0.64634E+03_JPRB,0.57844E+03_JPRB, &
+ & 0.63453E+03_JPRB,0.74089E+03_JPRB,0.84598E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.99182E+03_JPRB,0.87830E+03_JPRB,0.76478E+03_JPRB,0.65127E+03_JPRB,0.58122E+03_JPRB, &
+ & 0.63336E+03_JPRB,0.73928E+03_JPRB,0.84397E+03_JPRB,0.94808E+03_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.98416E+03_JPRB,0.87160E+03_JPRB,0.75904E+03_JPRB,0.64648E+03_JPRB,0.57888E+03_JPRB, &
+ & 0.63366E+03_JPRB,0.73991E+03_JPRB,0.84487E+03_JPRB,0.94921E+03_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.97757E+03_JPRB,0.86583E+03_JPRB,0.75410E+03_JPRB,0.64236E+03_JPRB,0.57650E+03_JPRB, &
+ & 0.63384E+03_JPRB,0.74029E+03_JPRB,0.84546E+03_JPRB,0.94996E+03_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.97184E+03_JPRB,0.86082E+03_JPRB,0.74980E+03_JPRB,0.63878E+03_JPRB,0.57428E+03_JPRB, &
+ & 0.63391E+03_JPRB,0.74045E+03_JPRB,0.84574E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.96680E+03_JPRB,0.85641E+03_JPRB,0.74602E+03_JPRB,0.63563E+03_JPRB,0.57218E+03_JPRB, &
+ & 0.63388E+03_JPRB,0.74043E+03_JPRB,0.84574E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.18845E+04_JPRB,0.16548E+04_JPRB,0.14251E+04_JPRB,0.11953E+04_JPRB,0.96557E+03_JPRB, &
+ & 0.74301E+03_JPRB,0.82697E+03_JPRB,0.94964E+03_JPRB,0.10740E+04_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.18367E+04_JPRB,0.16130E+04_JPRB,0.13892E+04_JPRB,0.11655E+04_JPRB,0.94169E+03_JPRB, &
+ & 0.73101E+03_JPRB,0.82533E+03_JPRB,0.94833E+03_JPRB,0.10730E+04_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.17938E+04_JPRB,0.15755E+04_JPRB,0.13571E+04_JPRB,0.11387E+04_JPRB,0.92025E+03_JPRB, &
+ & 0.71894E+03_JPRB,0.82353E+03_JPRB,0.94679E+03_JPRB,0.10715E+04_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.17551E+04_JPRB,0.15416E+04_JPRB,0.13280E+04_JPRB,0.11145E+04_JPRB,0.90089E+03_JPRB, &
+ & 0.70691E+03_JPRB,0.82149E+03_JPRB,0.94487E+03_JPRB,0.10696E+04_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.17200E+04_JPRB,0.15108E+04_JPRB,0.13017E+04_JPRB,0.10925E+04_JPRB,0.88332E+03_JPRB, &
+ & 0.69946E+03_JPRB,0.81920E+03_JPRB,0.94260E+03_JPRB,0.10672E+04_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.17409E+04_JPRB,0.15291E+04_JPRB,0.13174E+04_JPRB,0.11056E+04_JPRB,0.89377E+03_JPRB, &
+ & 0.70556E+03_JPRB,0.82545E+03_JPRB,0.94918E+03_JPRB,0.10743E+04_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.16999E+04_JPRB,0.14933E+04_JPRB,0.12867E+04_JPRB,0.10800E+04_JPRB,0.87329E+03_JPRB, &
+ & 0.70177E+03_JPRB,0.82404E+03_JPRB,0.94806E+03_JPRB,0.10734E+04_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.16632E+04_JPRB,0.14612E+04_JPRB,0.12591E+04_JPRB,0.10571E+04_JPRB,0.85495E+03_JPRB, &
+ & 0.69985E+03_JPRB,0.82245E+03_JPRB,0.94668E+03_JPRB,0.10721E+04_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.16302E+04_JPRB,0.14323E+04_JPRB,0.12344E+04_JPRB,0.10364E+04_JPRB,0.83842E+03_JPRB, &
+ & 0.69778E+03_JPRB,0.82061E+03_JPRB,0.94495E+03_JPRB,0.10705E+04_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.16003E+04_JPRB,0.14061E+04_JPRB,0.12119E+04_JPRB,0.10177E+04_JPRB,0.82345E+03_JPRB, &
+ & 0.69549E+03_JPRB,0.81853E+03_JPRB,0.94286E+03_JPRB,0.10683E+04_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.16280E+04_JPRB,0.14303E+04_JPRB,0.12327E+04_JPRB,0.10350E+04_JPRB,0.83731E+03_JPRB, &
+ & 0.70164E+03_JPRB,0.82440E+03_JPRB,0.94900E+03_JPRB,0.10748E+04_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.15920E+04_JPRB,0.13989E+04_JPRB,0.12057E+04_JPRB,0.10126E+04_JPRB,0.81934E+03_JPRB, &
+ & 0.70016E+03_JPRB,0.82323E+03_JPRB,0.94804E+03_JPRB,0.10740E+04_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.15600E+04_JPRB,0.13708E+04_JPRB,0.11817E+04_JPRB,0.99252E+03_JPRB,0.80330E+03_JPRB, &
+ & 0.69850E+03_JPRB,0.82187E+03_JPRB,0.94688E+03_JPRB,0.10730E+04_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.15312E+04_JPRB,0.13457E+04_JPRB,0.11601E+04_JPRB,0.97452E+03_JPRB,0.78890E+03_JPRB, &
+ & 0.69669E+03_JPRB,0.82029E+03_JPRB,0.94542E+03_JPRB,0.10716E+04_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.15052E+04_JPRB,0.13229E+04_JPRB,0.11406E+04_JPRB,0.95827E+03_JPRB,0.77590E+03_JPRB, &
+ & 0.69468E+03_JPRB,0.81844E+03_JPRB,0.94358E+03_JPRB,0.10697E+04_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.15343E+04_JPRB,0.13484E+04_JPRB,0.11625E+04_JPRB,0.97650E+03_JPRB,0.79047E+03_JPRB, &
+ & 0.70005E+03_JPRB,0.82352E+03_JPRB,0.94883E+03_JPRB,0.10751E+04_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.15026E+04_JPRB,0.13206E+04_JPRB,0.11386E+04_JPRB,0.95663E+03_JPRB,0.77458E+03_JPRB, &
+ & 0.69884E+03_JPRB,0.82260E+03_JPRB,0.94808E+03_JPRB,0.10745E+04_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.14743E+04_JPRB,0.12959E+04_JPRB,0.11175E+04_JPRB,0.93898E+03_JPRB,0.76046E+03_JPRB, &
+ & 0.69743E+03_JPRB,0.82145E+03_JPRB,0.94711E+03_JPRB,0.10737E+04_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.14491E+04_JPRB,0.12738E+04_JPRB,0.10985E+04_JPRB,0.92319E+03_JPRB,0.74783E+03_JPRB, &
+ & 0.69586E+03_JPRB,0.82010E+03_JPRB,0.94588E+03_JPRB,0.10725E+04_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.14263E+04_JPRB,0.12539E+04_JPRB,0.10815E+04_JPRB,0.90900E+03_JPRB,0.73646E+03_JPRB, &
+ & 0.69412E+03_JPRB,0.81852E+03_JPRB,0.94430E+03_JPRB,0.10710E+04_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.14548E+04_JPRB,0.12788E+04_JPRB,0.11028E+04_JPRB,0.92676E+03_JPRB,0.75068E+03_JPRB, &
+ & 0.69862E+03_JPRB,0.82271E+03_JPRB,0.94860E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.14266E+04_JPRB,0.12542E+04_JPRB,0.10817E+04_JPRB,0.90918E+03_JPRB,0.73662E+03_JPRB, &
+ & 0.69765E+03_JPRB,0.82202E+03_JPRB,0.94804E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.14018E+04_JPRB,0.12324E+04_JPRB,0.10630E+04_JPRB,0.89363E+03_JPRB,0.72418E+03_JPRB, &
+ & 0.69649E+03_JPRB,0.82110E+03_JPRB,0.94729E+03_JPRB,0.10743E+04_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.13796E+04_JPRB,0.12130E+04_JPRB,0.10464E+04_JPRB,0.87978E+03_JPRB,0.71309E+03_JPRB, &
+ & 0.69515E+03_JPRB,0.81992E+03_JPRB,0.94623E+03_JPRB,0.10733E+04_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.13597E+04_JPRB,0.11956E+04_JPRB,0.10315E+04_JPRB,0.86737E+03_JPRB,0.70315E+03_JPRB, &
+ & 0.69363E+03_JPRB,0.81858E+03_JPRB,0.94492E+03_JPRB,0.10720E+04_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.13881E+04_JPRB,0.12204E+04_JPRB,0.10528E+04_JPRB,0.88506E+03_JPRB,0.71732E+03_JPRB, &
+ & 0.69732E+03_JPRB,0.82195E+03_JPRB,0.94833E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.13630E+04_JPRB,0.11985E+04_JPRB,0.10340E+04_JPRB,0.86942E+03_JPRB,0.70480E+03_JPRB, &
+ & 0.69661E+03_JPRB,0.82150E+03_JPRB,0.94796E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.13410E+04_JPRB,0.11792E+04_JPRB,0.10175E+04_JPRB,0.85565E+03_JPRB,0.69378E+03_JPRB, &
+ & 0.69568E+03_JPRB,0.82079E+03_JPRB,0.94739E+03_JPRB,0.10747E+04_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.13215E+04_JPRB,0.11622E+04_JPRB,0.10028E+04_JPRB,0.84344E+03_JPRB,0.68401E+03_JPRB, &
+ & 0.69456E+03_JPRB,0.81984E+03_JPRB,0.94655E+03_JPRB,0.10740E+04_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.13040E+04_JPRB,0.11469E+04_JPRB,0.98973E+03_JPRB,0.83254E+03_JPRB,0.67529E+03_JPRB, &
+ & 0.69326E+03_JPRB,0.81868E+03_JPRB,0.94544E+03_JPRB,0.10729E+04_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.13313E+04_JPRB,0.11707E+04_JPRB,0.10101E+04_JPRB,0.84956E+03_JPRB,0.68891E+03_JPRB, &
+ & 0.69611E+03_JPRB,0.82122E+03_JPRB,0.94800E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.13090E+04_JPRB,0.11512E+04_JPRB,0.99343E+03_JPRB,0.83562E+03_JPRB,0.67776E+03_JPRB, &
+ & 0.69564E+03_JPRB,0.82091E+03_JPRB,0.94785E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.12894E+04_JPRB,0.11341E+04_JPRB,0.97879E+03_JPRB,0.82342E+03_JPRB,0.66800E+03_JPRB, &
+ & 0.69494E+03_JPRB,0.82048E+03_JPRB,0.94742E+03_JPRB,0.10750E+04_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.12722E+04_JPRB,0.11191E+04_JPRB,0.96587E+03_JPRB,0.81266E+03_JPRB,0.65938E+03_JPRB, &
+ & 0.69403E+03_JPRB,0.81973E+03_JPRB,0.94677E+03_JPRB,0.10745E+04_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.12569E+04_JPRB,0.11057E+04_JPRB,0.95438E+03_JPRB,0.80308E+03_JPRB,0.65172E+03_JPRB, &
+ & 0.69293E+03_JPRB,0.81874E+03_JPRB,0.94587E+03_JPRB,0.10736E+04_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.12827E+04_JPRB,0.11282E+04_JPRB,0.97371E+03_JPRB,0.81918E+03_JPRB,0.66460E+03_JPRB, &
+ & 0.69497E+03_JPRB,0.82050E+03_JPRB,0.94762E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.12628E+04_JPRB,0.11108E+04_JPRB,0.95881E+03_JPRB,0.80678E+03_JPRB,0.65467E+03_JPRB, &
+ & 0.69473E+03_JPRB,0.82044E+03_JPRB,0.94765E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.12455E+04_JPRB,0.10957E+04_JPRB,0.94585E+03_JPRB,0.79597E+03_JPRB,0.64602E+03_JPRB, &
+ & 0.69425E+03_JPRB,0.82014E+03_JPRB,0.94746E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.12303E+04_JPRB,0.10824E+04_JPRB,0.93446E+03_JPRB,0.78648E+03_JPRB,0.63843E+03_JPRB, &
+ & 0.69354E+03_JPRB,0.81959E+03_JPRB,0.94691E+03_JPRB,0.10748E+04_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.12169E+04_JPRB,0.10706E+04_JPRB,0.92437E+03_JPRB,0.77807E+03_JPRB,0.63171E+03_JPRB, &
+ & 0.69262E+03_JPRB,0.81878E+03_JPRB,0.94618E+03_JPRB,0.10741E+04_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.12413E+04_JPRB,0.10920E+04_JPRB,0.94266E+03_JPRB,0.79331E+03_JPRB,0.64390E+03_JPRB, &
+ & 0.69387E+03_JPRB,0.81977E+03_JPRB,0.94713E+03_JPRB,0.10750E+04_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.12236E+04_JPRB,0.10765E+04_JPRB,0.92938E+03_JPRB,0.78225E+03_JPRB,0.63504E+03_JPRB, &
+ & 0.69385E+03_JPRB,0.81989E+03_JPRB,0.94741E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.12082E+04_JPRB,0.10631E+04_JPRB,0.91789E+03_JPRB,0.77267E+03_JPRB,0.62738E+03_JPRB, &
+ & 0.69359E+03_JPRB,0.81979E+03_JPRB,0.94732E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.11949E+04_JPRB,0.10514E+04_JPRB,0.90785E+03_JPRB,0.76430E+03_JPRB,0.62068E+03_JPRB, &
+ & 0.69307E+03_JPRB,0.81942E+03_JPRB,0.94698E+03_JPRB,0.10751E+04_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.11831E+04_JPRB,0.10410E+04_JPRB,0.89899E+03_JPRB,0.75692E+03_JPRB,0.61500E+03_JPRB, &
+ & 0.69235E+03_JPRB,0.81879E+03_JPRB,0.94641E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.12046E+04_JPRB,0.10599E+04_JPRB,0.91518E+03_JPRB,0.77041E+03_JPRB,0.62557E+03_JPRB, &
+ & 0.69285E+03_JPRB,0.81909E+03_JPRB,0.94663E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.11890E+04_JPRB,0.10463E+04_JPRB,0.90347E+03_JPRB,0.76066E+03_JPRB,0.61799E+03_JPRB, &
+ & 0.69301E+03_JPRB,0.81937E+03_JPRB,0.94709E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.11756E+04_JPRB,0.10345E+04_JPRB,0.89339E+03_JPRB,0.75225E+03_JPRB,0.61189E+03_JPRB, &
+ & 0.69293E+03_JPRB,0.81942E+03_JPRB,0.94719E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.11639E+04_JPRB,0.10243E+04_JPRB,0.88463E+03_JPRB,0.74495E+03_JPRB,0.60683E+03_JPRB, &
+ & 0.69260E+03_JPRB,0.81922E+03_JPRB,0.94698E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.11536E+04_JPRB,0.10153E+04_JPRB,0.87693E+03_JPRB,0.73853E+03_JPRB,0.60268E+03_JPRB, &
+ & 0.69203E+03_JPRB,0.81871E+03_JPRB,0.94653E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.11668E+04_JPRB,0.10268E+04_JPRB,0.88684E+03_JPRB,0.74678E+03_JPRB,0.60837E+03_JPRB, &
+ & 0.69208E+03_JPRB,0.81864E+03_JPRB,0.94642E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.11540E+04_JPRB,0.10157E+04_JPRB,0.87724E+03_JPRB,0.73879E+03_JPRB,0.60335E+03_JPRB, &
+ & 0.69229E+03_JPRB,0.81896E+03_JPRB,0.94691E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.11430E+04_JPRB,0.10060E+04_JPRB,0.86898E+03_JPRB,0.73191E+03_JPRB,0.59939E+03_JPRB, &
+ & 0.69226E+03_JPRB,0.81904E+03_JPRB,0.94700E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.11335E+04_JPRB,0.99764E+03_JPRB,0.86180E+03_JPRB,0.72592E+03_JPRB,0.59585E+03_JPRB, &
+ & 0.69198E+03_JPRB,0.81884E+03_JPRB,0.94679E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.11251E+04_JPRB,0.99028E+03_JPRB,0.85549E+03_JPRB,0.72067E+03_JPRB,0.59286E+03_JPRB, &
+ & 0.69146E+03_JPRB,0.81839E+03_JPRB,0.94639E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.11358E+04_JPRB,0.99970E+03_JPRB,0.86357E+03_JPRB,0.72739E+03_JPRB,0.59707E+03_JPRB, &
+ & 0.69145E+03_JPRB,0.81829E+03_JPRB,0.94626E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.11253E+04_JPRB,0.99054E+03_JPRB,0.85571E+03_JPRB,0.72085E+03_JPRB,0.59339E+03_JPRB, &
+ & 0.69172E+03_JPRB,0.81863E+03_JPRB,0.94675E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.11163E+04_JPRB,0.98265E+03_JPRB,0.84895E+03_JPRB,0.71521E+03_JPRB,0.59030E+03_JPRB, &
+ & 0.69172E+03_JPRB,0.81873E+03_JPRB,0.94686E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.11085E+04_JPRB,0.97579E+03_JPRB,0.84307E+03_JPRB,0.71031E+03_JPRB,0.58782E+03_JPRB, &
+ & 0.69148E+03_JPRB,0.81855E+03_JPRB,0.94672E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.11016E+04_JPRB,0.96977E+03_JPRB,0.83790E+03_JPRB,0.70601E+03_JPRB,0.58538E+03_JPRB, &
+ & 0.69099E+03_JPRB,0.81812E+03_JPRB,0.94628E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.11104E+04_JPRB,0.97748E+03_JPRB,0.84452E+03_JPRB,0.71152E+03_JPRB,0.58852E+03_JPRB, &
+ & 0.69093E+03_JPRB,0.81799E+03_JPRB,0.94612E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.11018E+04_JPRB,0.96998E+03_JPRB,0.83809E+03_JPRB,0.70616E+03_JPRB,0.58570E+03_JPRB, &
+ & 0.69123E+03_JPRB,0.81841E+03_JPRB,0.94664E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.10945E+04_JPRB,0.96352E+03_JPRB,0.83255E+03_JPRB,0.70155E+03_JPRB,0.58307E+03_JPRB, &
+ & 0.69128E+03_JPRB,0.81849E+03_JPRB,0.94675E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.10880E+04_JPRB,0.95790E+03_JPRB,0.82774E+03_JPRB,0.69753E+03_JPRB,0.58045E+03_JPRB, &
+ & 0.69107E+03_JPRB,0.81832E+03_JPRB,0.94657E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.10824E+04_JPRB,0.95297E+03_JPRB,0.82351E+03_JPRB,0.69401E+03_JPRB,0.57806E+03_JPRB, &
+ & 0.69061E+03_JPRB,0.81788E+03_JPRB,0.94614E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.19433E+04_JPRB,0.17047E+04_JPRB,0.14661E+04_JPRB,0.12275E+04_JPRB,0.98902E+03_JPRB, &
+ & 0.75120E+03_JPRB,0.85754E+03_JPRB,0.98845E+03_JPRB,0.11206E+04_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.18941E+04_JPRB,0.16616E+04_JPRB,0.14292E+04_JPRB,0.11968E+04_JPRB,0.96439E+03_JPRB, &
+ & 0.73548E+03_JPRB,0.85594E+03_JPRB,0.98707E+03_JPRB,0.11193E+04_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.18499E+04_JPRB,0.16229E+04_JPRB,0.13960E+04_JPRB,0.11691E+04_JPRB,0.94229E+03_JPRB, &
+ & 0.72448E+03_JPRB,0.85413E+03_JPRB,0.98549E+03_JPRB,0.11177E+04_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.18099E+04_JPRB,0.15880E+04_JPRB,0.13661E+04_JPRB,0.11442E+04_JPRB,0.92233E+03_JPRB, &
+ & 0.72225E+03_JPRB,0.85214E+03_JPRB,0.98373E+03_JPRB,0.11158E+04_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.17737E+04_JPRB,0.15563E+04_JPRB,0.13389E+04_JPRB,0.11215E+04_JPRB,0.90421E+03_JPRB, &
+ & 0.72001E+03_JPRB,0.85005E+03_JPRB,0.98175E+03_JPRB,0.11138E+04_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.17953E+04_JPRB,0.15751E+04_JPRB,0.13551E+04_JPRB,0.11350E+04_JPRB,0.91499E+03_JPRB, &
+ & 0.72569E+03_JPRB,0.85649E+03_JPRB,0.98821E+03_JPRB,0.11210E+04_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.17530E+04_JPRB,0.15382E+04_JPRB,0.13234E+04_JPRB,0.11086E+04_JPRB,0.89388E+03_JPRB, &
+ & 0.72424E+03_JPRB,0.85509E+03_JPRB,0.98698E+03_JPRB,0.11198E+04_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.17152E+04_JPRB,0.15051E+04_JPRB,0.12950E+04_JPRB,0.10850E+04_JPRB,0.87497E+03_JPRB, &
+ & 0.72267E+03_JPRB,0.85348E+03_JPRB,0.98553E+03_JPRB,0.11184E+04_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.16811E+04_JPRB,0.14753E+04_JPRB,0.12695E+04_JPRB,0.10637E+04_JPRB,0.85793E+03_JPRB, &
+ & 0.72084E+03_JPRB,0.85163E+03_JPRB,0.98389E+03_JPRB,0.11166E+04_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.16502E+04_JPRB,0.14483E+04_JPRB,0.12463E+04_JPRB,0.10444E+04_JPRB,0.84250E+03_JPRB, &
+ & 0.71877E+03_JPRB,0.84969E+03_JPRB,0.98204E+03_JPRB,0.11147E+04_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.16788E+04_JPRB,0.14733E+04_JPRB,0.12678E+04_JPRB,0.10623E+04_JPRB,0.85679E+03_JPRB, &
+ & 0.72434E+03_JPRB,0.85588E+03_JPRB,0.98822E+03_JPRB,0.11216E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 3, 8) = (/ &
+ & 0.16418E+04_JPRB,0.14409E+04_JPRB,0.12400E+04_JPRB,0.10391E+04_JPRB,0.83827E+03_JPRB, &
+ & 0.72306E+03_JPRB,0.85466E+03_JPRB,0.98716E+03_JPRB,0.11206E+04_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.16087E+04_JPRB,0.14119E+04_JPRB,0.12152E+04_JPRB,0.10184E+04_JPRB,0.82172E+03_JPRB, &
+ & 0.72165E+03_JPRB,0.85327E+03_JPRB,0.98590E+03_JPRB,0.11193E+04_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.15790E+04_JPRB,0.13859E+04_JPRB,0.11929E+04_JPRB,0.99988E+03_JPRB,0.80688E+03_JPRB, &
+ & 0.72007E+03_JPRB,0.85161E+03_JPRB,0.98438E+03_JPRB,0.11177E+04_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.15522E+04_JPRB,0.13625E+04_JPRB,0.11728E+04_JPRB,0.98311E+03_JPRB,0.79349E+03_JPRB, &
+ & 0.71824E+03_JPRB,0.84982E+03_JPRB,0.98270E+03_JPRB,0.11159E+04_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.15823E+04_JPRB,0.13888E+04_JPRB,0.11953E+04_JPRB,0.10019E+04_JPRB,0.80851E+03_JPRB, &
+ & 0.72326E+03_JPRB,0.85540E+03_JPRB,0.98823E+03_JPRB,0.11221E+04_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.15495E+04_JPRB,0.13601E+04_JPRB,0.11708E+04_JPRB,0.98142E+03_JPRB,0.79213E+03_JPRB, &
+ & 0.72214E+03_JPRB,0.85436E+03_JPRB,0.98737E+03_JPRB,0.11213E+04_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.15204E+04_JPRB,0.13346E+04_JPRB,0.11489E+04_JPRB,0.96322E+03_JPRB,0.77758E+03_JPRB, &
+ & 0.72091E+03_JPRB,0.85317E+03_JPRB,0.98628E+03_JPRB,0.11202E+04_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.14943E+04_JPRB,0.13118E+04_JPRB,0.11294E+04_JPRB,0.94694E+03_JPRB,0.76455E+03_JPRB, &
+ & 0.71952E+03_JPRB,0.85175E+03_JPRB,0.98496E+03_JPRB,0.11188E+04_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.14709E+04_JPRB,0.12913E+04_JPRB,0.11118E+04_JPRB,0.93229E+03_JPRB,0.75284E+03_JPRB, &
+ & 0.71792E+03_JPRB,0.85010E+03_JPRB,0.98342E+03_JPRB,0.11171E+04_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.15002E+04_JPRB,0.13170E+04_JPRB,0.11338E+04_JPRB,0.95063E+03_JPRB,0.76749E+03_JPRB, &
+ & 0.72234E+03_JPRB,0.85495E+03_JPRB,0.98821E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.14712E+04_JPRB,0.12916E+04_JPRB,0.11120E+04_JPRB,0.93250E+03_JPRB,0.75300E+03_JPRB, &
+ & 0.72139E+03_JPRB,0.85409E+03_JPRB,0.98753E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.14456E+04_JPRB,0.12692E+04_JPRB,0.10928E+04_JPRB,0.91647E+03_JPRB,0.74017E+03_JPRB, &
+ & 0.72031E+03_JPRB,0.85307E+03_JPRB,0.98657E+03_JPRB,0.11209E+04_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.14227E+04_JPRB,0.12492E+04_JPRB,0.10757E+04_JPRB,0.90219E+03_JPRB,0.72875E+03_JPRB, &
+ & 0.71909E+03_JPRB,0.85186E+03_JPRB,0.98546E+03_JPRB,0.11197E+04_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.14022E+04_JPRB,0.12312E+04_JPRB,0.10603E+04_JPRB,0.88937E+03_JPRB,0.71851E+03_JPRB, &
+ & 0.71769E+03_JPRB,0.85037E+03_JPRB,0.98406E+03_JPRB,0.11182E+04_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.14314E+04_JPRB,0.12568E+04_JPRB,0.10822E+04_JPRB,0.90763E+03_JPRB,0.73310E+03_JPRB, &
+ & 0.72155E+03_JPRB,0.85452E+03_JPRB,0.98813E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.14056E+04_JPRB,0.12342E+04_JPRB,0.10628E+04_JPRB,0.89150E+03_JPRB,0.72020E+03_JPRB, &
+ & 0.72077E+03_JPRB,0.85386E+03_JPRB,0.98765E+03_JPRB,0.11222E+04_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.13829E+04_JPRB,0.12143E+04_JPRB,0.10458E+04_JPRB,0.87730E+03_JPRB,0.70887E+03_JPRB, &
+ & 0.71986E+03_JPRB,0.85300E+03_JPRB,0.98688E+03_JPRB,0.11215E+04_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.13627E+04_JPRB,0.11967E+04_JPRB,0.10307E+04_JPRB,0.86473E+03_JPRB,0.69880E+03_JPRB, &
+ & 0.71879E+03_JPRB,0.85197E+03_JPRB,0.98590E+03_JPRB,0.11205E+04_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.13448E+04_JPRB,0.11810E+04_JPRB,0.10172E+04_JPRB,0.85348E+03_JPRB,0.68979E+03_JPRB, &
+ & 0.71757E+03_JPRB,0.85073E+03_JPRB,0.98469E+03_JPRB,0.11192E+04_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.13728E+04_JPRB,0.12055E+04_JPRB,0.10383E+04_JPRB,0.87102E+03_JPRB,0.70382E+03_JPRB, &
+ & 0.72081E+03_JPRB,0.85410E+03_JPRB,0.98799E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.13499E+04_JPRB,0.11854E+04_JPRB,0.10210E+04_JPRB,0.85666E+03_JPRB,0.69233E+03_JPRB, &
+ & 0.72022E+03_JPRB,0.85362E+03_JPRB,0.98768E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.13297E+04_JPRB,0.11678E+04_JPRB,0.10059E+04_JPRB,0.84408E+03_JPRB,0.68228E+03_JPRB, &
+ & 0.71945E+03_JPRB,0.85293E+03_JPRB,0.98711E+03_JPRB,0.11220E+04_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.13120E+04_JPRB,0.11523E+04_JPRB,0.99261E+03_JPRB,0.83298E+03_JPRB,0.67339E+03_JPRB, &
+ & 0.71854E+03_JPRB,0.85205E+03_JPRB,0.98632E+03_JPRB,0.11212E+04_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.12962E+04_JPRB,0.11384E+04_JPRB,0.98077E+03_JPRB,0.82312E+03_JPRB,0.66550E+03_JPRB, &
+ & 0.71746E+03_JPRB,0.85098E+03_JPRB,0.98523E+03_JPRB,0.11200E+04_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.13227E+04_JPRB,0.11617E+04_JPRB,0.10007E+04_JPRB,0.83971E+03_JPRB,0.67877E+03_JPRB, &
+ & 0.72007E+03_JPRB,0.85366E+03_JPRB,0.98779E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.13022E+04_JPRB,0.11438E+04_JPRB,0.98533E+03_JPRB,0.82690E+03_JPRB,0.66854E+03_JPRB, &
+ & 0.71969E+03_JPRB,0.85334E+03_JPRB,0.98763E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.12844E+04_JPRB,0.11282E+04_JPRB,0.97196E+03_JPRB,0.81577E+03_JPRB,0.65963E+03_JPRB, &
+ & 0.71908E+03_JPRB,0.85283E+03_JPRB,0.98717E+03_JPRB,0.11223E+04_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.12688E+04_JPRB,0.11145E+04_JPRB,0.96023E+03_JPRB,0.80599E+03_JPRB,0.65182E+03_JPRB, &
+ & 0.71830E+03_JPRB,0.85210E+03_JPRB,0.98659E+03_JPRB,0.11217E+04_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.12549E+04_JPRB,0.11024E+04_JPRB,0.94982E+03_JPRB,0.79733E+03_JPRB,0.64488E+03_JPRB, &
+ & 0.71736E+03_JPRB,0.85118E+03_JPRB,0.98569E+03_JPRB,0.11208E+04_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.12800E+04_JPRB,0.11244E+04_JPRB,0.96868E+03_JPRB,0.81302E+03_JPRB,0.65744E+03_JPRB, &
+ & 0.71936E+03_JPRB,0.85323E+03_JPRB,0.98761E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.12618E+04_JPRB,0.11084E+04_JPRB,0.95498E+03_JPRB,0.80161E+03_JPRB,0.64832E+03_JPRB, &
+ & 0.71916E+03_JPRB,0.85306E+03_JPRB,0.98751E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.12460E+04_JPRB,0.10945E+04_JPRB,0.94313E+03_JPRB,0.79175E+03_JPRB,0.64042E+03_JPRB, &
+ & 0.71874E+03_JPRB,0.85269E+03_JPRB,0.98731E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.12322E+04_JPRB,0.10825E+04_JPRB,0.93277E+03_JPRB,0.78311E+03_JPRB,0.63351E+03_JPRB, &
+ & 0.71809E+03_JPRB,0.85213E+03_JPRB,0.98681E+03_JPRB,0.11221E+04_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.12200E+04_JPRB,0.10718E+04_JPRB,0.92365E+03_JPRB,0.77552E+03_JPRB,0.62743E+03_JPRB, &
+ & 0.71728E+03_JPRB,0.85134E+03_JPRB,0.98607E+03_JPRB,0.11214E+04_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.12423E+04_JPRB,0.10913E+04_JPRB,0.94034E+03_JPRB,0.78942E+03_JPRB,0.63856E+03_JPRB, &
+ & 0.71867E+03_JPRB,0.85279E+03_JPRB,0.98738E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.12262E+04_JPRB,0.10772E+04_JPRB,0.92827E+03_JPRB,0.77936E+03_JPRB,0.63052E+03_JPRB, &
+ & 0.71863E+03_JPRB,0.85274E+03_JPRB,0.98738E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.12123E+04_JPRB,0.10651E+04_JPRB,0.91788E+03_JPRB,0.77071E+03_JPRB,0.62359E+03_JPRB, &
+ & 0.71835E+03_JPRB,0.85251E+03_JPRB,0.98725E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.12002E+04_JPRB,0.10545E+04_JPRB,0.90884E+03_JPRB,0.76317E+03_JPRB,0.61756E+03_JPRB, &
+ & 0.71785E+03_JPRB,0.85203E+03_JPRB,0.98691E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.11897E+04_JPRB,0.10453E+04_JPRB,0.90090E+03_JPRB,0.75655E+03_JPRB,0.61227E+03_JPRB, &
+ & 0.71716E+03_JPRB,0.85141E+03_JPRB,0.98631E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.12033E+04_JPRB,0.10572E+04_JPRB,0.91110E+03_JPRB,0.76506E+03_JPRB,0.61908E+03_JPRB, &
+ & 0.71809E+03_JPRB,0.85242E+03_JPRB,0.98721E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.11901E+04_JPRB,0.10456E+04_JPRB,0.90123E+03_JPRB,0.75682E+03_JPRB,0.61248E+03_JPRB, &
+ & 0.71809E+03_JPRB,0.85240E+03_JPRB,0.98723E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.11788E+04_JPRB,0.10357E+04_JPRB,0.89271E+03_JPRB,0.74972E+03_JPRB,0.60692E+03_JPRB, &
+ & 0.71785E+03_JPRB,0.85217E+03_JPRB,0.98712E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.11689E+04_JPRB,0.10271E+04_JPRB,0.88529E+03_JPRB,0.74355E+03_JPRB,0.60253E+03_JPRB, &
+ & 0.71738E+03_JPRB,0.85177E+03_JPRB,0.98681E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.11602E+04_JPRB,0.10195E+04_JPRB,0.87880E+03_JPRB,0.73813E+03_JPRB,0.59855E+03_JPRB, &
+ & 0.71672E+03_JPRB,0.85114E+03_JPRB,0.98618E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.11713E+04_JPRB,0.10292E+04_JPRB,0.88712E+03_JPRB,0.74507E+03_JPRB,0.60379E+03_JPRB, &
+ & 0.71766E+03_JPRB,0.85212E+03_JPRB,0.98706E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.11605E+04_JPRB,0.10197E+04_JPRB,0.87902E+03_JPRB,0.73833E+03_JPRB,0.59891E+03_JPRB, &
+ & 0.71764E+03_JPRB,0.85212E+03_JPRB,0.98710E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.11512E+04_JPRB,0.10116E+04_JPRB,0.87205E+03_JPRB,0.73251E+03_JPRB,0.59502E+03_JPRB, &
+ & 0.71744E+03_JPRB,0.85192E+03_JPRB,0.98700E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.11431E+04_JPRB,0.10045E+04_JPRB,0.86598E+03_JPRB,0.72746E+03_JPRB,0.59151E+03_JPRB, &
+ & 0.71699E+03_JPRB,0.85153E+03_JPRB,0.98663E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.11360E+04_JPRB,0.99832E+03_JPRB,0.86067E+03_JPRB,0.72302E+03_JPRB,0.58868E+03_JPRB, &
+ & 0.71636E+03_JPRB,0.85092E+03_JPRB,0.98606E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.11451E+04_JPRB,0.10063E+04_JPRB,0.86748E+03_JPRB,0.72871E+03_JPRB,0.59258E+03_JPRB, &
+ & 0.71726E+03_JPRB,0.85187E+03_JPRB,0.98696E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.11363E+04_JPRB,0.99855E+03_JPRB,0.86085E+03_JPRB,0.72320E+03_JPRB,0.58896E+03_JPRB, &
+ & 0.71729E+03_JPRB,0.85183E+03_JPRB,0.98699E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.11287E+04_JPRB,0.99189E+03_JPRB,0.85515E+03_JPRB,0.71842E+03_JPRB,0.58585E+03_JPRB, &
+ & 0.71710E+03_JPRB,0.85169E+03_JPRB,0.98691E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.11220E+04_JPRB,0.98609E+03_JPRB,0.85017E+03_JPRB,0.71429E+03_JPRB,0.58380E+03_JPRB, &
+ & 0.71668E+03_JPRB,0.85133E+03_JPRB,0.98660E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.11162E+04_JPRB,0.98101E+03_JPRB,0.84582E+03_JPRB,0.71065E+03_JPRB,0.58234E+03_JPRB, &
+ & 0.71606E+03_JPRB,0.85074E+03_JPRB,0.98601E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.19571E+04_JPRB,0.17167E+04_JPRB,0.14761E+04_JPRB,0.12357E+04_JPRB,0.99528E+03_JPRB, &
+ & 0.75488E+03_JPRB,0.87315E+03_JPRB,0.10086E+04_JPRB,0.11441E+04_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.19076E+04_JPRB,0.16733E+04_JPRB,0.14390E+04_JPRB,0.12047E+04_JPRB,0.97044E+03_JPRB, &
+ & 0.73841E+03_JPRB,0.87146E+03_JPRB,0.10070E+04_JPRB,0.11425E+04_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.18630E+04_JPRB,0.16343E+04_JPRB,0.14056E+04_JPRB,0.11769E+04_JPRB,0.94822E+03_JPRB, &
+ & 0.73460E+03_JPRB,0.86967E+03_JPRB,0.10052E+04_JPRB,0.11407E+04_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.18229E+04_JPRB,0.15991E+04_JPRB,0.13754E+04_JPRB,0.11517E+04_JPRB,0.92811E+03_JPRB, &
+ & 0.73269E+03_JPRB,0.86788E+03_JPRB,0.10033E+04_JPRB,0.11387E+04_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.17864E+04_JPRB,0.15672E+04_JPRB,0.13481E+04_JPRB,0.11289E+04_JPRB,0.90984E+03_JPRB, &
+ & 0.73091E+03_JPRB,0.86616E+03_JPRB,0.10016E+04_JPRB,0.11368E+04_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.18080E+04_JPRB,0.15862E+04_JPRB,0.13643E+04_JPRB,0.11425E+04_JPRB,0.92072E+03_JPRB, &
+ & 0.73694E+03_JPRB,0.87246E+03_JPRB,0.10086E+04_JPRB,0.11448E+04_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.17655E+04_JPRB,0.15491E+04_JPRB,0.13324E+04_JPRB,0.11159E+04_JPRB,0.89943E+03_JPRB, &
+ & 0.73525E+03_JPRB,0.87092E+03_JPRB,0.10070E+04_JPRB,0.11432E+04_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.17274E+04_JPRB,0.15157E+04_JPRB,0.13039E+04_JPRB,0.10921E+04_JPRB,0.88039E+03_JPRB, &
+ & 0.73343E+03_JPRB,0.86922E+03_JPRB,0.10053E+04_JPRB,0.11415E+04_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.16931E+04_JPRB,0.14856E+04_JPRB,0.12781E+04_JPRB,0.10706E+04_JPRB,0.86326E+03_JPRB, &
+ & 0.73166E+03_JPRB,0.86752E+03_JPRB,0.10036E+04_JPRB,0.11395E+04_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.16621E+04_JPRB,0.14584E+04_JPRB,0.12549E+04_JPRB,0.10512E+04_JPRB,0.84768E+03_JPRB, &
+ & 0.73000E+03_JPRB,0.86583E+03_JPRB,0.10018E+04_JPRB,0.11376E+04_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.16908E+04_JPRB,0.14837E+04_JPRB,0.12764E+04_JPRB,0.10692E+04_JPRB,0.86209E+03_JPRB, &
+ & 0.73591E+03_JPRB,0.87213E+03_JPRB,0.10088E+04_JPRB,0.11456E+04_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.16535E+04_JPRB,0.14509E+04_JPRB,0.12484E+04_JPRB,0.10459E+04_JPRB,0.84339E+03_JPRB, &
+ & 0.73450E+03_JPRB,0.87080E+03_JPRB,0.10075E+04_JPRB,0.11442E+04_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.16202E+04_JPRB,0.14218E+04_JPRB,0.12234E+04_JPRB,0.10251E+04_JPRB,0.82680E+03_JPRB, &
+ & 0.73291E+03_JPRB,0.86926E+03_JPRB,0.10059E+04_JPRB,0.11426E+04_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.15902E+04_JPRB,0.13956E+04_JPRB,0.12011E+04_JPRB,0.10064E+04_JPRB,0.81183E+03_JPRB, &
+ & 0.73120E+03_JPRB,0.86761E+03_JPRB,0.10042E+04_JPRB,0.11407E+04_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.15632E+04_JPRB,0.13720E+04_JPRB,0.11808E+04_JPRB,0.98952E+03_JPRB,0.79832E+03_JPRB, &
+ & 0.72957E+03_JPRB,0.86594E+03_JPRB,0.10024E+04_JPRB,0.11387E+04_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.15935E+04_JPRB,0.13985E+04_JPRB,0.12035E+04_JPRB,0.10084E+04_JPRB,0.81344E+03_JPRB, &
+ & 0.73513E+03_JPRB,0.87195E+03_JPRB,0.10092E+04_JPRB,0.11463E+04_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.15605E+04_JPRB,0.13697E+04_JPRB,0.11787E+04_JPRB,0.98782E+03_JPRB,0.79694E+03_JPRB, &
+ & 0.73394E+03_JPRB,0.87080E+03_JPRB,0.10079E+04_JPRB,0.11451E+04_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.15313E+04_JPRB,0.13439E+04_JPRB,0.11567E+04_JPRB,0.96950E+03_JPRB,0.78229E+03_JPRB, &
+ & 0.73257E+03_JPRB,0.86942E+03_JPRB,0.10065E+04_JPRB,0.11436E+04_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.15050E+04_JPRB,0.13210E+04_JPRB,0.11371E+04_JPRB,0.95308E+03_JPRB,0.76922E+03_JPRB, &
+ & 0.73104E+03_JPRB,0.86787E+03_JPRB,0.10049E+04_JPRB,0.11419E+04_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.14814E+04_JPRB,0.13003E+04_JPRB,0.11193E+04_JPRB,0.93833E+03_JPRB,0.75745E+03_JPRB, &
+ & 0.72946E+03_JPRB,0.86622E+03_JPRB,0.10032E+04_JPRB,0.11400E+04_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.15109E+04_JPRB,0.13262E+04_JPRB,0.11415E+04_JPRB,0.95685E+03_JPRB,0.77217E+03_JPRB, &
+ & 0.73443E+03_JPRB,0.87177E+03_JPRB,0.10094E+04_JPRB,0.11470E+04_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.14817E+04_JPRB,0.13007E+04_JPRB,0.11196E+04_JPRB,0.93852E+03_JPRB,0.75755E+03_JPRB, &
+ & 0.73343E+03_JPRB,0.87078E+03_JPRB,0.10083E+04_JPRB,0.11459E+04_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.14559E+04_JPRB,0.12780E+04_JPRB,0.11003E+04_JPRB,0.92240E+03_JPRB,0.74463E+03_JPRB, &
+ & 0.73229E+03_JPRB,0.86958E+03_JPRB,0.10071E+04_JPRB,0.11446E+04_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.14329E+04_JPRB,0.12579E+04_JPRB,0.10829E+04_JPRB,0.90802E+03_JPRB,0.73310E+03_JPRB, &
+ & 0.73095E+03_JPRB,0.86817E+03_JPRB,0.10056E+04_JPRB,0.11430E+04_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.14122E+04_JPRB,0.12398E+04_JPRB,0.10675E+04_JPRB,0.89511E+03_JPRB,0.72281E+03_JPRB, &
+ & 0.72946E+03_JPRB,0.86664E+03_JPRB,0.10039E+04_JPRB,0.11412E+04_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.14417E+04_JPRB,0.12655E+04_JPRB,0.10896E+04_JPRB,0.91348E+03_JPRB,0.73747E+03_JPRB, &
+ & 0.73386E+03_JPRB,0.87165E+03_JPRB,0.10096E+04_JPRB,0.11475E+04_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.14156E+04_JPRB,0.12429E+04_JPRB,0.10700E+04_JPRB,0.89725E+03_JPRB,0.72457E+03_JPRB, &
+ & 0.73304E+03_JPRB,0.87078E+03_JPRB,0.10087E+04_JPRB,0.11466E+04_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.13928E+04_JPRB,0.12228E+04_JPRB,0.10529E+04_JPRB,0.88300E+03_JPRB,0.71308E+03_JPRB, &
+ & 0.73207E+03_JPRB,0.86977E+03_JPRB,0.10076E+04_JPRB,0.11455E+04_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.13725E+04_JPRB,0.12051E+04_JPRB,0.10377E+04_JPRB,0.87029E+03_JPRB,0.70290E+03_JPRB, &
+ & 0.73093E+03_JPRB,0.86853E+03_JPRB,0.10063E+04_JPRB,0.11441E+04_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.13544E+04_JPRB,0.11892E+04_JPRB,0.10241E+04_JPRB,0.85897E+03_JPRB,0.69390E+03_JPRB, &
+ & 0.72961E+03_JPRB,0.86706E+03_JPRB,0.10048E+04_JPRB,0.11424E+04_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.13826E+04_JPRB,0.12140E+04_JPRB,0.10453E+04_JPRB,0.87664E+03_JPRB,0.70803E+03_JPRB, &
+ & 0.73339E+03_JPRB,0.87155E+03_JPRB,0.10098E+04_JPRB,0.11480E+04_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.13594E+04_JPRB,0.11937E+04_JPRB,0.10279E+04_JPRB,0.86216E+03_JPRB,0.69645E+03_JPRB, &
+ & 0.73269E+03_JPRB,0.87079E+03_JPRB,0.10090E+04_JPRB,0.11472E+04_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.13392E+04_JPRB,0.11759E+04_JPRB,0.10127E+04_JPRB,0.84953E+03_JPRB,0.68632E+03_JPRB, &
+ & 0.73188E+03_JPRB,0.86990E+03_JPRB,0.10081E+04_JPRB,0.11462E+04_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.13213E+04_JPRB,0.11603E+04_JPRB,0.99928E+03_JPRB,0.83829E+03_JPRB,0.67737E+03_JPRB, &
+ & 0.73090E+03_JPRB,0.86884E+03_JPRB,0.10069E+04_JPRB,0.11450E+04_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.13054E+04_JPRB,0.11464E+04_JPRB,0.98739E+03_JPRB,0.82837E+03_JPRB,0.66946E+03_JPRB, &
+ & 0.72975E+03_JPRB,0.86756E+03_JPRB,0.10055E+04_JPRB,0.11435E+04_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.13322E+04_JPRB,0.11698E+04_JPRB,0.10074E+04_JPRB,0.84511E+03_JPRB,0.68280E+03_JPRB, &
+ & 0.73302E+03_JPRB,0.87145E+03_JPRB,0.10099E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.13116E+04_JPRB,0.11517E+04_JPRB,0.99199E+03_JPRB,0.83221E+03_JPRB,0.67250E+03_JPRB, &
+ & 0.73244E+03_JPRB,0.87079E+03_JPRB,0.10093E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.12937E+04_JPRB,0.11360E+04_JPRB,0.97848E+03_JPRB,0.82097E+03_JPRB,0.66349E+03_JPRB, &
+ & 0.73170E+03_JPRB,0.87002E+03_JPRB,0.10085E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.12778E+04_JPRB,0.11223E+04_JPRB,0.96666E+03_JPRB,0.81113E+03_JPRB,0.65562E+03_JPRB, &
+ & 0.73087E+03_JPRB,0.86909E+03_JPRB,0.10075E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.12639E+04_JPRB,0.11101E+04_JPRB,0.95620E+03_JPRB,0.80244E+03_JPRB,0.64865E+03_JPRB, &
+ & 0.72985E+03_JPRB,0.86796E+03_JPRB,0.10062E+04_JPRB,0.11444E+04_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.12892E+04_JPRB,0.11322E+04_JPRB,0.97520E+03_JPRB,0.81821E+03_JPRB,0.66134E+03_JPRB, &
+ & 0.73274E+03_JPRB,0.87135E+03_JPRB,0.10099E+04_JPRB,0.11485E+04_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.12708E+04_JPRB,0.11161E+04_JPRB,0.96140E+03_JPRB,0.80674E+03_JPRB,0.65213E+03_JPRB, &
+ & 0.73213E+03_JPRB,0.87079E+03_JPRB,0.10095E+04_JPRB,0.11481E+04_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.12548E+04_JPRB,0.11022E+04_JPRB,0.94949E+03_JPRB,0.79681E+03_JPRB,0.64421E+03_JPRB, &
+ & 0.73152E+03_JPRB,0.87011E+03_JPRB,0.10088E+04_JPRB,0.11474E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 9, 9) = (/ &
+ & 0.12410E+04_JPRB,0.10900E+04_JPRB,0.93905E+03_JPRB,0.78808E+03_JPRB,0.63726E+03_JPRB, &
+ & 0.73083E+03_JPRB,0.86928E+03_JPRB,0.10079E+04_JPRB,0.11464E+04_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.12287E+04_JPRB,0.10793E+04_JPRB,0.92981E+03_JPRB,0.78042E+03_JPRB,0.63106E+03_JPRB, &
+ & 0.72995E+03_JPRB,0.86831E+03_JPRB,0.10068E+04_JPRB,0.11452E+04_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.12511E+04_JPRB,0.10989E+04_JPRB,0.94665E+03_JPRB,0.79449E+03_JPRB,0.64227E+03_JPRB, &
+ & 0.73248E+03_JPRB,0.87121E+03_JPRB,0.10099E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.12350E+04_JPRB,0.10848E+04_JPRB,0.93449E+03_JPRB,0.78435E+03_JPRB,0.63416E+03_JPRB, &
+ & 0.73188E+03_JPRB,0.87073E+03_JPRB,0.10095E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.12209E+04_JPRB,0.10725E+04_JPRB,0.92407E+03_JPRB,0.77565E+03_JPRB,0.62724E+03_JPRB, &
+ & 0.73132E+03_JPRB,0.87012E+03_JPRB,0.10091E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.12088E+04_JPRB,0.10618E+04_JPRB,0.91493E+03_JPRB,0.76801E+03_JPRB,0.62113E+03_JPRB, &
+ & 0.73072E+03_JPRB,0.86943E+03_JPRB,0.10082E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.11981E+04_JPRB,0.10526E+04_JPRB,0.90691E+03_JPRB,0.76134E+03_JPRB,0.61583E+03_JPRB, &
+ & 0.72997E+03_JPRB,0.86853E+03_JPRB,0.10072E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.12119E+04_JPRB,0.10646E+04_JPRB,0.91723E+03_JPRB,0.76995E+03_JPRB,0.62265E+03_JPRB, &
+ & 0.73201E+03_JPRB,0.87093E+03_JPRB,0.10098E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.11986E+04_JPRB,0.10529E+04_JPRB,0.90727E+03_JPRB,0.76161E+03_JPRB,0.61603E+03_JPRB, &
+ & 0.73147E+03_JPRB,0.87046E+03_JPRB,0.10094E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.11871E+04_JPRB,0.10429E+04_JPRB,0.89865E+03_JPRB,0.75449E+03_JPRB,0.61031E+03_JPRB, &
+ & 0.73094E+03_JPRB,0.86988E+03_JPRB,0.10088E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.11772E+04_JPRB,0.10342E+04_JPRB,0.89122E+03_JPRB,0.74824E+03_JPRB,0.60537E+03_JPRB, &
+ & 0.73035E+03_JPRB,0.86918E+03_JPRB,0.10081E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.11684E+04_JPRB,0.10265E+04_JPRB,0.88467E+03_JPRB,0.74278E+03_JPRB,0.60127E+03_JPRB, &
+ & 0.72963E+03_JPRB,0.86831E+03_JPRB,0.10071E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.11796E+04_JPRB,0.10363E+04_JPRB,0.89308E+03_JPRB,0.74980E+03_JPRB,0.60664E+03_JPRB, &
+ & 0.73158E+03_JPRB,0.87066E+03_JPRB,0.10097E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.11688E+04_JPRB,0.10268E+04_JPRB,0.88492E+03_JPRB,0.74297E+03_JPRB,0.60173E+03_JPRB, &
+ & 0.73111E+03_JPRB,0.87023E+03_JPRB,0.10093E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.11594E+04_JPRB,0.10186E+04_JPRB,0.87787E+03_JPRB,0.73715E+03_JPRB,0.59711E+03_JPRB, &
+ & 0.73061E+03_JPRB,0.86968E+03_JPRB,0.10088E+04_JPRB,0.11478E+04_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.11512E+04_JPRB,0.10115E+04_JPRB,0.87180E+03_JPRB,0.73203E+03_JPRB,0.59373E+03_JPRB, &
+ & 0.73004E+03_JPRB,0.86900E+03_JPRB,0.10080E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.11441E+04_JPRB,0.10053E+04_JPRB,0.86640E+03_JPRB,0.72756E+03_JPRB,0.59149E+03_JPRB, &
+ & 0.72934E+03_JPRB,0.86813E+03_JPRB,0.10070E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.11533E+04_JPRB,0.10132E+04_JPRB,0.87330E+03_JPRB,0.73334E+03_JPRB,0.59476E+03_JPRB, &
+ & 0.73130E+03_JPRB,0.87046E+03_JPRB,0.10096E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.11444E+04_JPRB,0.10055E+04_JPRB,0.86659E+03_JPRB,0.72770E+03_JPRB,0.59240E+03_JPRB, &
+ & 0.73084E+03_JPRB,0.87005E+03_JPRB,0.10092E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.11367E+04_JPRB,0.99882E+03_JPRB,0.86084E+03_JPRB,0.72297E+03_JPRB,0.59186E+03_JPRB, &
+ & 0.73036E+03_JPRB,0.86950E+03_JPRB,0.10087E+04_JPRB,0.11478E+04_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.11300E+04_JPRB,0.99294E+03_JPRB,0.85585E+03_JPRB,0.71880E+03_JPRB,0.59143E+03_JPRB, &
+ & 0.72979E+03_JPRB,0.86883E+03_JPRB,0.10079E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.11242E+04_JPRB,0.98788E+03_JPRB,0.85146E+03_JPRB,0.71512E+03_JPRB,0.59082E+03_JPRB, &
+ & 0.72910E+03_JPRB,0.86797E+03_JPRB,0.10069E+04_JPRB,0.11459E+04_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.19609E+04_JPRB,0.17196E+04_JPRB,0.14787E+04_JPRB,0.12373E+04_JPRB,0.99636E+03_JPRB, &
+ & 0.75577E+03_JPRB,0.88158E+03_JPRB,0.10175E+04_JPRB,0.11538E+04_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.19102E+04_JPRB,0.16765E+04_JPRB,0.14403E+04_JPRB,0.12063E+04_JPRB,0.97232E+03_JPRB, &
+ & 0.74406E+03_JPRB,0.87986E+03_JPRB,0.10152E+04_JPRB,0.11513E+04_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.18658E+04_JPRB,0.16364E+04_JPRB,0.14075E+04_JPRB,0.11783E+04_JPRB,0.94916E+03_JPRB, &
+ & 0.74249E+03_JPRB,0.87815E+03_JPRB,0.10135E+04_JPRB,0.11491E+04_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.18250E+04_JPRB,0.16014E+04_JPRB,0.13778E+04_JPRB,0.11533E+04_JPRB,0.92945E+03_JPRB, &
+ & 0.74050E+03_JPRB,0.87640E+03_JPRB,0.10114E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.17888E+04_JPRB,0.15692E+04_JPRB,0.13504E+04_JPRB,0.11313E+04_JPRB,0.91134E+03_JPRB, &
+ & 0.73837E+03_JPRB,0.87432E+03_JPRB,0.10096E+04_JPRB,0.11467E+04_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.18108E+04_JPRB,0.15879E+04_JPRB,0.13673E+04_JPRB,0.11437E+04_JPRB,0.92213E+03_JPRB, &
+ & 0.74428E+03_JPRB,0.88077E+03_JPRB,0.10175E+04_JPRB,0.11547E+04_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.17684E+04_JPRB,0.15508E+04_JPRB,0.13352E+04_JPRB,0.11178E+04_JPRB,0.90099E+03_JPRB, &
+ & 0.74265E+03_JPRB,0.87920E+03_JPRB,0.10158E+04_JPRB,0.11521E+04_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.17293E+04_JPRB,0.15183E+04_JPRB,0.13063E+04_JPRB,0.10931E+04_JPRB,0.88199E+03_JPRB, &
+ & 0.74117E+03_JPRB,0.87755E+03_JPRB,0.10136E+04_JPRB,0.11500E+04_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.16960E+04_JPRB,0.14887E+04_JPRB,0.12799E+04_JPRB,0.10727E+04_JPRB,0.86433E+03_JPRB, &
+ & 0.73957E+03_JPRB,0.87577E+03_JPRB,0.10116E+04_JPRB,0.11482E+04_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.16637E+04_JPRB,0.14607E+04_JPRB,0.12562E+04_JPRB,0.10527E+04_JPRB,0.84877E+03_JPRB, &
+ & 0.73748E+03_JPRB,0.87409E+03_JPRB,0.10096E+04_JPRB,0.11470E+04_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.16939E+04_JPRB,0.14847E+04_JPRB,0.12786E+04_JPRB,0.10705E+04_JPRB,0.86372E+03_JPRB, &
+ & 0.74343E+03_JPRB,0.88064E+03_JPRB,0.10178E+04_JPRB,0.11559E+04_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.16557E+04_JPRB,0.14542E+04_JPRB,0.12503E+04_JPRB,0.10478E+04_JPRB,0.84533E+03_JPRB, &
+ & 0.74182E+03_JPRB,0.87906E+03_JPRB,0.10163E+04_JPRB,0.11537E+04_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.16218E+04_JPRB,0.14239E+04_JPRB,0.12249E+04_JPRB,0.10266E+04_JPRB,0.82819E+03_JPRB, &
+ & 0.74031E+03_JPRB,0.87730E+03_JPRB,0.10137E+04_JPRB,0.11513E+04_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.15929E+04_JPRB,0.13992E+04_JPRB,0.12027E+04_JPRB,0.10077E+04_JPRB,0.81299E+03_JPRB, &
+ & 0.73896E+03_JPRB,0.87590E+03_JPRB,0.10123E+04_JPRB,0.11493E+04_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.15654E+04_JPRB,0.13740E+04_JPRB,0.11824E+04_JPRB,0.99136E+03_JPRB,0.79933E+03_JPRB, &
+ & 0.73740E+03_JPRB,0.87406E+03_JPRB,0.10104E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.15959E+04_JPRB,0.14010E+04_JPRB,0.12054E+04_JPRB,0.10100E+04_JPRB,0.81522E+03_JPRB, &
+ & 0.74271E+03_JPRB,0.88040E+03_JPRB,0.10180E+04_JPRB,0.11570E+04_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.15637E+04_JPRB,0.13710E+04_JPRB,0.11804E+04_JPRB,0.98920E+03_JPRB,0.79803E+03_JPRB, &
+ & 0.74139E+03_JPRB,0.87903E+03_JPRB,0.10168E+04_JPRB,0.11552E+04_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.15330E+04_JPRB,0.13459E+04_JPRB,0.11594E+04_JPRB,0.97120E+03_JPRB,0.78314E+03_JPRB, &
+ & 0.74000E+03_JPRB,0.87753E+03_JPRB,0.10151E+04_JPRB,0.11528E+04_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.15077E+04_JPRB,0.13229E+04_JPRB,0.11386E+04_JPRB,0.95486E+03_JPRB,0.77029E+03_JPRB, &
+ & 0.73854E+03_JPRB,0.87600E+03_JPRB,0.10131E+04_JPRB,0.11506E+04_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.14835E+04_JPRB,0.13025E+04_JPRB,0.11209E+04_JPRB,0.94000E+03_JPRB,0.75786E+03_JPRB, &
+ & 0.73717E+03_JPRB,0.87438E+03_JPRB,0.10111E+04_JPRB,0.11486E+04_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.15126E+04_JPRB,0.13285E+04_JPRB,0.11431E+04_JPRB,0.95745E+03_JPRB,0.77284E+03_JPRB, &
+ & 0.74220E+03_JPRB,0.88024E+03_JPRB,0.10187E+04_JPRB,0.11578E+04_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.14829E+04_JPRB,0.13024E+04_JPRB,0.11209E+04_JPRB,0.94020E+03_JPRB,0.75863E+03_JPRB, &
+ & 0.74099E+03_JPRB,0.87909E+03_JPRB,0.10174E+04_JPRB,0.11564E+04_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.14582E+04_JPRB,0.12806E+04_JPRB,0.11014E+04_JPRB,0.92377E+03_JPRB,0.74596E+03_JPRB, &
+ & 0.73960E+03_JPRB,0.87772E+03_JPRB,0.10159E+04_JPRB,0.11544E+04_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.14345E+04_JPRB,0.12594E+04_JPRB,0.10847E+04_JPRB,0.90887E+03_JPRB,0.73410E+03_JPRB, &
+ & 0.73828E+03_JPRB,0.87622E+03_JPRB,0.10139E+04_JPRB,0.11518E+04_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.14140E+04_JPRB,0.12418E+04_JPRB,0.10683E+04_JPRB,0.89661E+03_JPRB,0.72364E+03_JPRB, &
+ & 0.73696E+03_JPRB,0.87469E+03_JPRB,0.10119E+04_JPRB,0.11501E+04_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.14435E+04_JPRB,0.12676E+04_JPRB,0.10914E+04_JPRB,0.91493E+03_JPRB,0.73889E+03_JPRB, &
+ & 0.74179E+03_JPRB,0.88024E+03_JPRB,0.10190E+04_JPRB,0.11586E+04_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.14184E+04_JPRB,0.12443E+04_JPRB,0.10722E+04_JPRB,0.89834E+03_JPRB,0.72535E+03_JPRB, &
+ & 0.74069E+03_JPRB,0.87922E+03_JPRB,0.10178E+04_JPRB,0.11574E+04_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.13949E+04_JPRB,0.12245E+04_JPRB,0.10548E+04_JPRB,0.88411E+03_JPRB,0.71441E+03_JPRB, &
+ & 0.73951E+03_JPRB,0.87792E+03_JPRB,0.10164E+04_JPRB,0.11554E+04_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.13745E+04_JPRB,0.12070E+04_JPRB,0.10388E+04_JPRB,0.87157E+03_JPRB,0.70381E+03_JPRB, &
+ & 0.73817E+03_JPRB,0.87654E+03_JPRB,0.10150E+04_JPRB,0.11533E+04_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.13558E+04_JPRB,0.11909E+04_JPRB,0.10253E+04_JPRB,0.86039E+03_JPRB,0.69505E+03_JPRB, &
+ & 0.73669E+03_JPRB,0.87508E+03_JPRB,0.10128E+04_JPRB,0.11510E+04_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.13849E+04_JPRB,0.12154E+04_JPRB,0.10465E+04_JPRB,0.87809E+03_JPRB,0.70922E+03_JPRB, &
+ & 0.74150E+03_JPRB,0.88017E+03_JPRB,0.10197E+04_JPRB,0.11599E+04_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.13622E+04_JPRB,0.11954E+04_JPRB,0.10296E+04_JPRB,0.86328E+03_JPRB,0.69750E+03_JPRB, &
+ & 0.74031E+03_JPRB,0.87926E+03_JPRB,0.10184E+04_JPRB,0.11581E+04_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.13407E+04_JPRB,0.11775E+04_JPRB,0.10144E+04_JPRB,0.85098E+03_JPRB,0.68710E+03_JPRB, &
+ & 0.73933E+03_JPRB,0.87824E+03_JPRB,0.10171E+04_JPRB,0.11568E+04_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.13234E+04_JPRB,0.11620E+04_JPRB,0.10006E+04_JPRB,0.83940E+03_JPRB,0.67808E+03_JPRB, &
+ & 0.73818E+03_JPRB,0.87693E+03_JPRB,0.10157E+04_JPRB,0.11549E+04_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.13077E+04_JPRB,0.11481E+04_JPRB,0.98850E+03_JPRB,0.82952E+03_JPRB,0.66976E+03_JPRB, &
+ & 0.73685E+03_JPRB,0.87533E+03_JPRB,0.10140E+04_JPRB,0.11525E+04_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.13336E+04_JPRB,0.11711E+04_JPRB,0.10088E+04_JPRB,0.84626E+03_JPRB,0.68382E+03_JPRB, &
+ & 0.74131E+03_JPRB,0.88025E+03_JPRB,0.10205E+04_JPRB,0.11609E+04_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.13133E+04_JPRB,0.11535E+04_JPRB,0.99382E+03_JPRB,0.83328E+03_JPRB,0.67355E+03_JPRB, &
+ & 0.73954E+03_JPRB,0.87931E+03_JPRB,0.10187E+04_JPRB,0.11591E+04_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.12952E+04_JPRB,0.11377E+04_JPRB,0.97980E+03_JPRB,0.82257E+03_JPRB,0.66450E+03_JPRB, &
+ & 0.73910E+03_JPRB,0.87831E+03_JPRB,0.10177E+04_JPRB,0.11576E+04_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.12798E+04_JPRB,0.11238E+04_JPRB,0.96848E+03_JPRB,0.81189E+03_JPRB,0.65672E+03_JPRB, &
+ & 0.73820E+03_JPRB,0.87729E+03_JPRB,0.10162E+04_JPRB,0.11560E+04_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.12652E+04_JPRB,0.11115E+04_JPRB,0.95739E+03_JPRB,0.80373E+03_JPRB,0.64938E+03_JPRB, &
+ & 0.73712E+03_JPRB,0.87584E+03_JPRB,0.10149E+04_JPRB,0.11541E+04_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.12921E+04_JPRB,0.11338E+04_JPRB,0.97649E+03_JPRB,0.81965E+03_JPRB,0.66193E+03_JPRB, &
+ & 0.74117E+03_JPRB,0.88056E+03_JPRB,0.10212E+04_JPRB,0.11621E+04_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.12725E+04_JPRB,0.11175E+04_JPRB,0.96294E+03_JPRB,0.80792E+03_JPRB,0.65314E+03_JPRB, &
+ & 0.74018E+03_JPRB,0.87944E+03_JPRB,0.10196E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.12569E+04_JPRB,0.11032E+04_JPRB,0.95038E+03_JPRB,0.79825E+03_JPRB,0.64471E+03_JPRB, &
+ & 0.73910E+03_JPRB,0.87852E+03_JPRB,0.10181E+04_JPRB,0.11585E+04_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.12428E+04_JPRB,0.10914E+04_JPRB,0.94028E+03_JPRB,0.78940E+03_JPRB,0.63769E+03_JPRB, &
+ & 0.73816E+03_JPRB,0.87758E+03_JPRB,0.10170E+04_JPRB,0.11569E+04_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.12310E+04_JPRB,0.10815E+04_JPRB,0.93149E+03_JPRB,0.78151E+03_JPRB,0.63218E+03_JPRB, &
+ & 0.73726E+03_JPRB,0.87637E+03_JPRB,0.10156E+04_JPRB,0.11553E+04_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.12531E+04_JPRB,0.11009E+04_JPRB,0.94808E+03_JPRB,0.79569E+03_JPRB,0.64353E+03_JPRB, &
+ & 0.74092E+03_JPRB,0.88101E+03_JPRB,0.10222E+04_JPRB,0.11631E+04_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.12357E+04_JPRB,0.10861E+04_JPRB,0.93599E+03_JPRB,0.78490E+03_JPRB,0.63564E+03_JPRB, &
+ & 0.74008E+03_JPRB,0.87961E+03_JPRB,0.10203E+04_JPRB,0.11613E+04_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.12227E+04_JPRB,0.10738E+04_JPRB,0.92501E+03_JPRB,0.77680E+03_JPRB,0.62842E+03_JPRB, &
+ & 0.73914E+03_JPRB,0.87860E+03_JPRB,0.10179E+04_JPRB,0.11592E+04_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.12109E+04_JPRB,0.10632E+04_JPRB,0.91605E+03_JPRB,0.76920E+03_JPRB,0.62177E+03_JPRB, &
+ & 0.73819E+03_JPRB,0.87758E+03_JPRB,0.10174E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.11998E+04_JPRB,0.10537E+04_JPRB,0.90813E+03_JPRB,0.76232E+03_JPRB,0.61616E+03_JPRB, &
+ & 0.73732E+03_JPRB,0.87676E+03_JPRB,0.10162E+04_JPRB,0.11563E+04_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.12137E+04_JPRB,0.10654E+04_JPRB,0.91884E+03_JPRB,0.77105E+03_JPRB,0.62358E+03_JPRB, &
+ & 0.74042E+03_JPRB,0.88057E+03_JPRB,0.10221E+04_JPRB,0.11630E+04_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.11999E+04_JPRB,0.10545E+04_JPRB,0.90854E+03_JPRB,0.76253E+03_JPRB,0.61715E+03_JPRB, &
+ & 0.73961E+03_JPRB,0.87932E+03_JPRB,0.10201E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.11890E+04_JPRB,0.10445E+04_JPRB,0.90019E+03_JPRB,0.75537E+03_JPRB,0.61109E+03_JPRB, &
+ & 0.73864E+03_JPRB,0.87832E+03_JPRB,0.10186E+04_JPRB,0.11592E+04_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.11789E+04_JPRB,0.10359E+04_JPRB,0.89280E+03_JPRB,0.74928E+03_JPRB,0.60622E+03_JPRB, &
+ & 0.73779E+03_JPRB,0.87747E+03_JPRB,0.10172E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.11709E+04_JPRB,0.10287E+04_JPRB,0.88607E+03_JPRB,0.74401E+03_JPRB,0.60247E+03_JPRB, &
+ & 0.73688E+03_JPRB,0.87644E+03_JPRB,0.10160E+04_JPRB,0.11563E+04_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.11820E+04_JPRB,0.10383E+04_JPRB,0.89456E+03_JPRB,0.75081E+03_JPRB,0.60714E+03_JPRB, &
+ & 0.74001E+03_JPRB,0.88049E+03_JPRB,0.10220E+04_JPRB,0.11631E+04_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.11713E+04_JPRB,0.10290E+04_JPRB,0.88623E+03_JPRB,0.74407E+03_JPRB,0.60058E+03_JPRB, &
+ & 0.73921E+03_JPRB,0.87901E+03_JPRB,0.10201E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.11605E+04_JPRB,0.10200E+04_JPRB,0.87951E+03_JPRB,0.73788E+03_JPRB,0.59769E+03_JPRB, &
+ & 0.73835E+03_JPRB,0.87808E+03_JPRB,0.10182E+04_JPRB,0.11591E+04_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.11533E+04_JPRB,0.10132E+04_JPRB,0.87284E+03_JPRB,0.73305E+03_JPRB,0.59795E+03_JPRB, &
+ & 0.73753E+03_JPRB,0.87718E+03_JPRB,0.10171E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.11467E+04_JPRB,0.10071E+04_JPRB,0.86739E+03_JPRB,0.72890E+03_JPRB,0.59711E+03_JPRB, &
+ & 0.73664E+03_JPRB,0.87623E+03_JPRB,0.10159E+04_JPRB,0.11563E+04_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.11553E+04_JPRB,0.10149E+04_JPRB,0.87419E+03_JPRB,0.73470E+03_JPRB,0.59975E+03_JPRB, &
+ & 0.73968E+03_JPRB,0.88029E+03_JPRB,0.10219E+04_JPRB,0.11630E+04_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.11455E+04_JPRB,0.10072E+04_JPRB,0.86782E+03_JPRB,0.72873E+03_JPRB,0.59921E+03_JPRB, &
+ & 0.73889E+03_JPRB,0.87889E+03_JPRB,0.10200E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.11380E+04_JPRB,0.10000E+04_JPRB,0.86190E+03_JPRB,0.72452E+03_JPRB,0.59831E+03_JPRB, &
+ & 0.73799E+03_JPRB,0.87789E+03_JPRB,0.10182E+04_JPRB,0.11592E+04_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.11318E+04_JPRB,0.99472E+03_JPRB,0.85697E+03_JPRB,0.71950E+03_JPRB,0.59744E+03_JPRB, &
+ & 0.73726E+03_JPRB,0.87708E+03_JPRB,0.10170E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.11253E+04_JPRB,0.98825E+03_JPRB,0.85273E+03_JPRB,0.71635E+03_JPRB,0.59683E+03_JPRB, &
+ & 0.73639E+03_JPRB,0.87606E+03_JPRB,0.10160E+04_JPRB,0.11562E+04_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.19598E+04_JPRB,0.17186E+04_JPRB,0.14777E+04_JPRB,0.12380E+04_JPRB,0.99729E+03_JPRB, &
+ & 0.75567E+03_JPRB,0.88469E+03_JPRB,0.10202E+04_JPRB,0.11560E+04_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.19102E+04_JPRB,0.16743E+04_JPRB,0.14414E+04_JPRB,0.12066E+04_JPRB,0.97117E+03_JPRB, &
+ & 0.74679E+03_JPRB,0.88252E+03_JPRB,0.10178E+04_JPRB,0.11544E+04_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.18656E+04_JPRB,0.16383E+04_JPRB,0.14073E+04_JPRB,0.11791E+04_JPRB,0.94951E+03_JPRB, &
+ & 0.74505E+03_JPRB,0.88029E+03_JPRB,0.10159E+04_JPRB,0.11530E+04_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.18261E+04_JPRB,0.16025E+04_JPRB,0.13782E+04_JPRB,0.11540E+04_JPRB,0.92917E+03_JPRB, &
+ & 0.74299E+03_JPRB,0.87816E+03_JPRB,0.10141E+04_JPRB,0.11522E+04_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.17888E+04_JPRB,0.15710E+04_JPRB,0.13500E+04_JPRB,0.11298E+04_JPRB,0.91140E+03_JPRB, &
+ & 0.74109E+03_JPRB,0.87588E+03_JPRB,0.10122E+04_JPRB,0.11510E+04_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.18117E+04_JPRB,0.15887E+04_JPRB,0.13651E+04_JPRB,0.11459E+04_JPRB,0.92177E+03_JPRB, &
+ & 0.74731E+03_JPRB,0.88412E+03_JPRB,0.10203E+04_JPRB,0.11568E+04_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.17673E+04_JPRB,0.15512E+04_JPRB,0.13335E+04_JPRB,0.11174E+04_JPRB,0.90028E+03_JPRB, &
+ & 0.74546E+03_JPRB,0.88203E+03_JPRB,0.10179E+04_JPRB,0.11551E+04_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.17317E+04_JPRB,0.15193E+04_JPRB,0.13050E+04_JPRB,0.10955E+04_JPRB,0.88112E+03_JPRB, &
+ & 0.74378E+03_JPRB,0.87978E+03_JPRB,0.10161E+04_JPRB,0.11535E+04_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.16956E+04_JPRB,0.14873E+04_JPRB,0.12805E+04_JPRB,0.10729E+04_JPRB,0.86470E+03_JPRB, &
+ & 0.74189E+03_JPRB,0.87768E+03_JPRB,0.10142E+04_JPRB,0.11524E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 2,11) = (/ &
+ & 0.16657E+04_JPRB,0.14596E+04_JPRB,0.12568E+04_JPRB,0.10531E+04_JPRB,0.84904E+03_JPRB, &
+ & 0.73979E+03_JPRB,0.87528E+03_JPRB,0.10122E+04_JPRB,0.11511E+04_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.16927E+04_JPRB,0.14859E+04_JPRB,0.12782E+04_JPRB,0.10724E+04_JPRB,0.86335E+03_JPRB, &
+ & 0.74646E+03_JPRB,0.88392E+03_JPRB,0.10211E+04_JPRB,0.11579E+04_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.16581E+04_JPRB,0.14524E+04_JPRB,0.12540E+04_JPRB,0.10466E+04_JPRB,0.84448E+03_JPRB, &
+ & 0.74471E+03_JPRB,0.88205E+03_JPRB,0.10189E+04_JPRB,0.11562E+04_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.16261E+04_JPRB,0.14229E+04_JPRB,0.12269E+04_JPRB,0.10264E+04_JPRB,0.82790E+03_JPRB, &
+ & 0.74305E+03_JPRB,0.87988E+03_JPRB,0.10167E+04_JPRB,0.11544E+04_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.15929E+04_JPRB,0.13986E+04_JPRB,0.12038E+04_JPRB,0.10084E+04_JPRB,0.81266E+03_JPRB, &
+ & 0.74160E+03_JPRB,0.87767E+03_JPRB,0.10148E+04_JPRB,0.11530E+04_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.15661E+04_JPRB,0.13746E+04_JPRB,0.11837E+04_JPRB,0.99103E+03_JPRB,0.79967E+03_JPRB, &
+ & 0.73929E+03_JPRB,0.87586E+03_JPRB,0.10132E+04_JPRB,0.11521E+04_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.15973E+04_JPRB,0.14004E+04_JPRB,0.12065E+04_JPRB,0.10106E+04_JPRB,0.81385E+03_JPRB, &
+ & 0.74599E+03_JPRB,0.88404E+03_JPRB,0.10218E+04_JPRB,0.11590E+04_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.15637E+04_JPRB,0.13722E+04_JPRB,0.11812E+04_JPRB,0.98900E+03_JPRB,0.79856E+03_JPRB, &
+ & 0.74428E+03_JPRB,0.88217E+03_JPRB,0.10197E+04_JPRB,0.11572E+04_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.15340E+04_JPRB,0.13469E+04_JPRB,0.11576E+04_JPRB,0.97012E+03_JPRB,0.78412E+03_JPRB, &
+ & 0.74257E+03_JPRB,0.88022E+03_JPRB,0.10176E+04_JPRB,0.11556E+04_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.15085E+04_JPRB,0.13226E+04_JPRB,0.11393E+04_JPRB,0.95486E+03_JPRB,0.76980E+03_JPRB, &
+ & 0.74114E+03_JPRB,0.87815E+03_JPRB,0.10155E+04_JPRB,0.11538E+04_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.14836E+04_JPRB,0.13020E+04_JPRB,0.11212E+04_JPRB,0.93957E+03_JPRB,0.75824E+03_JPRB, &
+ & 0.73939E+03_JPRB,0.87630E+03_JPRB,0.10138E+04_JPRB,0.11526E+04_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.15143E+04_JPRB,0.13286E+04_JPRB,0.11431E+04_JPRB,0.95847E+03_JPRB,0.77403E+03_JPRB, &
+ & 0.74572E+03_JPRB,0.88418E+03_JPRB,0.10223E+04_JPRB,0.11603E+04_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.14842E+04_JPRB,0.13025E+04_JPRB,0.11230E+04_JPRB,0.94028E+03_JPRB,0.75881E+03_JPRB, &
+ & 0.74405E+03_JPRB,0.88254E+03_JPRB,0.10205E+04_JPRB,0.11584E+04_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.14577E+04_JPRB,0.12799E+04_JPRB,0.11020E+04_JPRB,0.92340E+03_JPRB,0.74531E+03_JPRB, &
+ & 0.74244E+03_JPRB,0.88060E+03_JPRB,0.10185E+04_JPRB,0.11566E+04_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.14365E+04_JPRB,0.12603E+04_JPRB,0.10859E+04_JPRB,0.90939E+03_JPRB,0.73467E+03_JPRB, &
+ & 0.74090E+03_JPRB,0.87865E+03_JPRB,0.10164E+04_JPRB,0.11549E+04_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.14147E+04_JPRB,0.12422E+04_JPRB,0.10695E+04_JPRB,0.89657E+03_JPRB,0.72409E+03_JPRB, &
+ & 0.73938E+03_JPRB,0.87659E+03_JPRB,0.10145E+04_JPRB,0.11530E+04_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.14426E+04_JPRB,0.12686E+04_JPRB,0.10911E+04_JPRB,0.91528E+03_JPRB,0.73914E+03_JPRB, &
+ & 0.74563E+03_JPRB,0.88436E+03_JPRB,0.10228E+04_JPRB,0.11615E+04_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.14171E+04_JPRB,0.12457E+04_JPRB,0.10728E+04_JPRB,0.89861E+03_JPRB,0.72517E+03_JPRB, &
+ & 0.74402E+03_JPRB,0.88280E+03_JPRB,0.10215E+04_JPRB,0.11596E+04_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.13943E+04_JPRB,0.12252E+04_JPRB,0.10539E+04_JPRB,0.88362E+03_JPRB,0.71333E+03_JPRB, &
+ & 0.74243E+03_JPRB,0.88117E+03_JPRB,0.10194E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.13749E+04_JPRB,0.12056E+04_JPRB,0.10405E+04_JPRB,0.87188E+03_JPRB,0.70449E+03_JPRB, &
+ & 0.74089E+03_JPRB,0.87923E+03_JPRB,0.10173E+04_JPRB,0.11560E+04_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.13580E+04_JPRB,0.11907E+04_JPRB,0.10258E+04_JPRB,0.85998E+03_JPRB,0.69473E+03_JPRB, &
+ & 0.73937E+03_JPRB,0.87727E+03_JPRB,0.10154E+04_JPRB,0.11543E+04_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.13844E+04_JPRB,0.12166E+04_JPRB,0.10469E+04_JPRB,0.87815E+03_JPRB,0.70873E+03_JPRB, &
+ & 0.74560E+03_JPRB,0.88449E+03_JPRB,0.10233E+04_JPRB,0.11626E+04_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.13610E+04_JPRB,0.11962E+04_JPRB,0.10291E+04_JPRB,0.86318E+03_JPRB,0.69730E+03_JPRB, &
+ & 0.74409E+03_JPRB,0.88322E+03_JPRB,0.10221E+04_JPRB,0.11608E+04_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.13413E+04_JPRB,0.11786E+04_JPRB,0.10145E+04_JPRB,0.85031E+03_JPRB,0.68760E+03_JPRB, &
+ & 0.74253E+03_JPRB,0.88154E+03_JPRB,0.10203E+04_JPRB,0.11589E+04_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.13235E+04_JPRB,0.11630E+04_JPRB,0.10007E+04_JPRB,0.84004E+03_JPRB,0.67864E+03_JPRB, &
+ & 0.74101E+03_JPRB,0.87982E+03_JPRB,0.10185E+04_JPRB,0.11572E+04_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.13063E+04_JPRB,0.11482E+04_JPRB,0.98932E+03_JPRB,0.82998E+03_JPRB,0.67037E+03_JPRB, &
+ & 0.73955E+03_JPRB,0.87796E+03_JPRB,0.10167E+04_JPRB,0.11554E+04_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.13361E+04_JPRB,0.11714E+04_JPRB,0.10092E+04_JPRB,0.84627E+03_JPRB,0.68340E+03_JPRB, &
+ & 0.74540E+03_JPRB,0.88457E+03_JPRB,0.10236E+04_JPRB,0.11638E+04_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.13143E+04_JPRB,0.11537E+04_JPRB,0.99295E+03_JPRB,0.83355E+03_JPRB,0.67330E+03_JPRB, &
+ & 0.74420E+03_JPRB,0.88339E+03_JPRB,0.10225E+04_JPRB,0.11619E+04_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.12952E+04_JPRB,0.11377E+04_JPRB,0.98075E+03_JPRB,0.82213E+03_JPRB,0.66496E+03_JPRB, &
+ & 0.74271E+03_JPRB,0.88199E+03_JPRB,0.10211E+04_JPRB,0.11601E+04_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.12808E+04_JPRB,0.11242E+04_JPRB,0.96858E+03_JPRB,0.81350E+03_JPRB,0.65663E+03_JPRB, &
+ & 0.74121E+03_JPRB,0.88037E+03_JPRB,0.10192E+04_JPRB,0.11582E+04_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.12664E+04_JPRB,0.11113E+04_JPRB,0.95757E+03_JPRB,0.80317E+03_JPRB,0.64978E+03_JPRB, &
+ & 0.73975E+03_JPRB,0.87862E+03_JPRB,0.10173E+04_JPRB,0.11564E+04_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.12911E+04_JPRB,0.11331E+04_JPRB,0.97754E+03_JPRB,0.81972E+03_JPRB,0.66210E+03_JPRB, &
+ & 0.74501E+03_JPRB,0.88462E+03_JPRB,0.10244E+04_JPRB,0.11652E+04_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.12743E+04_JPRB,0.11193E+04_JPRB,0.96288E+03_JPRB,0.80865E+03_JPRB,0.65325E+03_JPRB, &
+ & 0.74437E+03_JPRB,0.88360E+03_JPRB,0.10230E+04_JPRB,0.11629E+04_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.12573E+04_JPRB,0.11051E+04_JPRB,0.95155E+03_JPRB,0.79729E+03_JPRB,0.64451E+03_JPRB, &
+ & 0.74294E+03_JPRB,0.88237E+03_JPRB,0.10218E+04_JPRB,0.11610E+04_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.12441E+04_JPRB,0.10920E+04_JPRB,0.94089E+03_JPRB,0.78911E+03_JPRB,0.63797E+03_JPRB, &
+ & 0.74148E+03_JPRB,0.88091E+03_JPRB,0.10202E+04_JPRB,0.11593E+04_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.12297E+04_JPRB,0.10813E+04_JPRB,0.93127E+03_JPRB,0.78127E+03_JPRB,0.63265E+03_JPRB, &
+ & 0.74003E+03_JPRB,0.87926E+03_JPRB,0.10184E+04_JPRB,0.11573E+04_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.12530E+04_JPRB,0.11001E+04_JPRB,0.94821E+03_JPRB,0.79486E+03_JPRB,0.64277E+03_JPRB, &
+ & 0.74454E+03_JPRB,0.88447E+03_JPRB,0.10249E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.12387E+04_JPRB,0.10865E+04_JPRB,0.93685E+03_JPRB,0.78643E+03_JPRB,0.63425E+03_JPRB, &
+ & 0.74423E+03_JPRB,0.88371E+03_JPRB,0.10234E+04_JPRB,0.11637E+04_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.12243E+04_JPRB,0.10744E+04_JPRB,0.92585E+03_JPRB,0.77676E+03_JPRB,0.62740E+03_JPRB, &
+ & 0.74307E+03_JPRB,0.88260E+03_JPRB,0.10221E+04_JPRB,0.11620E+04_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.12107E+04_JPRB,0.10640E+04_JPRB,0.91623E+03_JPRB,0.76957E+03_JPRB,0.62235E+03_JPRB, &
+ & 0.74168E+03_JPRB,0.88129E+03_JPRB,0.10208E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.12010E+04_JPRB,0.10536E+04_JPRB,0.90891E+03_JPRB,0.76248E+03_JPRB,0.61761E+03_JPRB, &
+ & 0.74025E+03_JPRB,0.87965E+03_JPRB,0.10191E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.12140E+04_JPRB,0.10672E+04_JPRB,0.91852E+03_JPRB,0.77048E+03_JPRB,0.62320E+03_JPRB, &
+ & 0.74401E+03_JPRB,0.88413E+03_JPRB,0.10249E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.12007E+04_JPRB,0.10549E+04_JPRB,0.90904E+03_JPRB,0.76333E+03_JPRB,0.61635E+03_JPRB, &
+ & 0.74367E+03_JPRB,0.88337E+03_JPRB,0.10233E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.11891E+04_JPRB,0.10458E+04_JPRB,0.90055E+03_JPRB,0.75543E+03_JPRB,0.61123E+03_JPRB, &
+ & 0.74262E+03_JPRB,0.88229E+03_JPRB,0.10219E+04_JPRB,0.11620E+04_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.11794E+04_JPRB,0.10371E+04_JPRB,0.89190E+03_JPRB,0.74912E+03_JPRB,0.60572E+03_JPRB, &
+ & 0.74128E+03_JPRB,0.88110E+03_JPRB,0.10207E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.11697E+04_JPRB,0.10285E+04_JPRB,0.88631E+03_JPRB,0.74374E+03_JPRB,0.60062E+03_JPRB, &
+ & 0.73987E+03_JPRB,0.87958E+03_JPRB,0.10191E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.11829E+04_JPRB,0.10373E+04_JPRB,0.89433E+03_JPRB,0.75107E+03_JPRB,0.60775E+03_JPRB, &
+ & 0.74357E+03_JPRB,0.88385E+03_JPRB,0.10247E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.11707E+04_JPRB,0.10276E+04_JPRB,0.88712E+03_JPRB,0.74426E+03_JPRB,0.60163E+03_JPRB, &
+ & 0.74327E+03_JPRB,0.88309E+03_JPRB,0.10231E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.11629E+04_JPRB,0.10211E+04_JPRB,0.88018E+03_JPRB,0.73831E+03_JPRB,0.60184E+03_JPRB, &
+ & 0.74224E+03_JPRB,0.88203E+03_JPRB,0.10219E+04_JPRB,0.11620E+04_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.11538E+04_JPRB,0.10126E+04_JPRB,0.87253E+03_JPRB,0.73377E+03_JPRB,0.60080E+03_JPRB, &
+ & 0.74101E+03_JPRB,0.88067E+03_JPRB,0.10205E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.11449E+04_JPRB,0.10062E+04_JPRB,0.86764E+03_JPRB,0.72842E+03_JPRB,0.59975E+03_JPRB, &
+ & 0.73955E+03_JPRB,0.87926E+03_JPRB,0.10190E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.11561E+04_JPRB,0.10152E+04_JPRB,0.87509E+03_JPRB,0.73383E+03_JPRB,0.60253E+03_JPRB, &
+ & 0.74321E+03_JPRB,0.88362E+03_JPRB,0.10246E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.11468E+04_JPRB,0.10069E+04_JPRB,0.86783E+03_JPRB,0.72921E+03_JPRB,0.60211E+03_JPRB, &
+ & 0.74294E+03_JPRB,0.88286E+03_JPRB,0.10230E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.11390E+04_JPRB,0.10001E+04_JPRB,0.86301E+03_JPRB,0.72323E+03_JPRB,0.60140E+03_JPRB, &
+ & 0.74194E+03_JPRB,0.88181E+03_JPRB,0.10218E+04_JPRB,0.11621E+04_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.11313E+04_JPRB,0.99361E+03_JPRB,0.85706E+03_JPRB,0.72032E+03_JPRB,0.60042E+03_JPRB, &
+ & 0.74065E+03_JPRB,0.88048E+03_JPRB,0.10204E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.11266E+04_JPRB,0.99042E+03_JPRB,0.85257E+03_JPRB,0.71548E+03_JPRB,0.59931E+03_JPRB, &
+ & 0.73930E+03_JPRB,0.87908E+03_JPRB,0.10187E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.19596E+04_JPRB,0.17200E+04_JPRB,0.14802E+04_JPRB,0.12370E+04_JPRB,0.99641E+03_JPRB, &
+ & 0.75556E+03_JPRB,0.88658E+03_JPRB,0.10236E+04_JPRB,0.11622E+04_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.19107E+04_JPRB,0.16797E+04_JPRB,0.14463E+04_JPRB,0.12083E+04_JPRB,0.97440E+03_JPRB, &
+ & 0.74935E+03_JPRB,0.88455E+03_JPRB,0.10223E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.18687E+04_JPRB,0.16368E+04_JPRB,0.14091E+04_JPRB,0.11809E+04_JPRB,0.95100E+03_JPRB, &
+ & 0.74626E+03_JPRB,0.88278E+03_JPRB,0.10214E+04_JPRB,0.11600E+04_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.18274E+04_JPRB,0.15998E+04_JPRB,0.13805E+04_JPRB,0.11544E+04_JPRB,0.92955E+03_JPRB, &
+ & 0.74432E+03_JPRB,0.88029E+03_JPRB,0.10193E+04_JPRB,0.11572E+04_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.17908E+04_JPRB,0.15685E+04_JPRB,0.13492E+04_JPRB,0.11303E+04_JPRB,0.91228E+03_JPRB, &
+ & 0.74183E+03_JPRB,0.87814E+03_JPRB,0.10165E+04_JPRB,0.11551E+04_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.18091E+04_JPRB,0.15890E+04_JPRB,0.13701E+04_JPRB,0.11447E+04_JPRB,0.92240E+03_JPRB, &
+ & 0.75031E+03_JPRB,0.88580E+03_JPRB,0.10236E+04_JPRB,0.11628E+04_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.17702E+04_JPRB,0.15507E+04_JPRB,0.13346E+04_JPRB,0.11179E+04_JPRB,0.90072E+03_JPRB, &
+ & 0.74790E+03_JPRB,0.88384E+03_JPRB,0.10222E+04_JPRB,0.11616E+04_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.17282E+04_JPRB,0.15159E+04_JPRB,0.13066E+04_JPRB,0.10967E+04_JPRB,0.88274E+03_JPRB, &
+ & 0.74530E+03_JPRB,0.88241E+03_JPRB,0.10213E+04_JPRB,0.11606E+04_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.16964E+04_JPRB,0.14887E+04_JPRB,0.12816E+04_JPRB,0.10711E+04_JPRB,0.86387E+03_JPRB, &
+ & 0.74308E+03_JPRB,0.88064E+03_JPRB,0.10199E+04_JPRB,0.11593E+04_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.16664E+04_JPRB,0.14634E+04_JPRB,0.12570E+04_JPRB,0.10541E+04_JPRB,0.84878E+03_JPRB, &
+ & 0.74105E+03_JPRB,0.87802E+03_JPRB,0.10170E+04_JPRB,0.11559E+04_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.16969E+04_JPRB,0.14893E+04_JPRB,0.12806E+04_JPRB,0.10686E+04_JPRB,0.86200E+03_JPRB, &
+ & 0.74953E+03_JPRB,0.88586E+03_JPRB,0.10239E+04_JPRB,0.11637E+04_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.16530E+04_JPRB,0.14535E+04_JPRB,0.12505E+04_JPRB,0.10502E+04_JPRB,0.84485E+03_JPRB, &
+ & 0.74734E+03_JPRB,0.88380E+03_JPRB,0.10224E+04_JPRB,0.11623E+04_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.16258E+04_JPRB,0.14316E+04_JPRB,0.12308E+04_JPRB,0.10274E+04_JPRB,0.82737E+03_JPRB, &
+ & 0.74498E+03_JPRB,0.88220E+03_JPRB,0.10214E+04_JPRB,0.11612E+04_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.15947E+04_JPRB,0.13987E+04_JPRB,0.12036E+04_JPRB,0.10100E+04_JPRB,0.81398E+03_JPRB, &
+ & 0.74250E+03_JPRB,0.88073E+03_JPRB,0.10203E+04_JPRB,0.11601E+04_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.15659E+04_JPRB,0.13745E+04_JPRB,0.11827E+04_JPRB,0.99357E+03_JPRB,0.79945E+03_JPRB, &
+ & 0.74072E+03_JPRB,0.87844E+03_JPRB,0.10192E+04_JPRB,0.11574E+04_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.15993E+04_JPRB,0.14029E+04_JPRB,0.12034E+04_JPRB,0.10105E+04_JPRB,0.81494E+03_JPRB, &
+ & 0.74898E+03_JPRB,0.88604E+03_JPRB,0.10246E+04_JPRB,0.11648E+04_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.15603E+04_JPRB,0.13717E+04_JPRB,0.11803E+04_JPRB,0.99158E+03_JPRB,0.79797E+03_JPRB, &
+ & 0.74702E+03_JPRB,0.88413E+03_JPRB,0.10230E+04_JPRB,0.11631E+04_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.15363E+04_JPRB,0.13460E+04_JPRB,0.11581E+04_JPRB,0.97158E+03_JPRB,0.78286E+03_JPRB, &
+ & 0.74488E+03_JPRB,0.88249E+03_JPRB,0.10215E+04_JPRB,0.11618E+04_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.15069E+04_JPRB,0.13248E+04_JPRB,0.11397E+04_JPRB,0.95515E+03_JPRB,0.77185E+03_JPRB, &
+ & 0.74259E+03_JPRB,0.88086E+03_JPRB,0.10207E+04_JPRB,0.11608E+04_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.14842E+04_JPRB,0.13030E+04_JPRB,0.11201E+04_JPRB,0.94205E+03_JPRB,0.75928E+03_JPRB, &
+ & 0.74072E+03_JPRB,0.87912E+03_JPRB,0.10193E+04_JPRB,0.11593E+04_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.15161E+04_JPRB,0.13293E+04_JPRB,0.11434E+04_JPRB,0.96071E+03_JPRB,0.77366E+03_JPRB, &
+ & 0.74856E+03_JPRB,0.88634E+03_JPRB,0.10256E+04_JPRB,0.11660E+04_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.14862E+04_JPRB,0.13039E+04_JPRB,0.11202E+04_JPRB,0.93927E+03_JPRB,0.75808E+03_JPRB, &
+ & 0.74678E+03_JPRB,0.88432E+03_JPRB,0.10237E+04_JPRB,0.11641E+04_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.14569E+04_JPRB,0.12812E+04_JPRB,0.11040E+04_JPRB,0.92477E+03_JPRB,0.74608E+03_JPRB, &
+ & 0.74483E+03_JPRB,0.88267E+03_JPRB,0.10221E+04_JPRB,0.11626E+04_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.14370E+04_JPRB,0.12601E+04_JPRB,0.10866E+04_JPRB,0.91322E+03_JPRB,0.73546E+03_JPRB, &
+ & 0.74282E+03_JPRB,0.88106E+03_JPRB,0.10210E+04_JPRB,0.11614E+04_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.14157E+04_JPRB,0.12432E+04_JPRB,0.10692E+04_JPRB,0.89766E+03_JPRB,0.72371E+03_JPRB, &
+ & 0.74075E+03_JPRB,0.87977E+03_JPRB,0.10201E+04_JPRB,0.11604E+04_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.14446E+04_JPRB,0.12668E+04_JPRB,0.10902E+04_JPRB,0.91458E+03_JPRB,0.73853E+03_JPRB, &
+ & 0.74800E+03_JPRB,0.88683E+03_JPRB,0.10267E+04_JPRB,0.11674E+04_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.14180E+04_JPRB,0.12442E+04_JPRB,0.10729E+04_JPRB,0.90054E+03_JPRB,0.72712E+03_JPRB, &
+ & 0.74664E+03_JPRB,0.88490E+03_JPRB,0.10243E+04_JPRB,0.11653E+04_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.13970E+04_JPRB,0.12338E+04_JPRB,0.10562E+04_JPRB,0.88644E+03_JPRB,0.71466E+03_JPRB, &
+ & 0.74490E+03_JPRB,0.88299E+03_JPRB,0.10228E+04_JPRB,0.11635E+04_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.13772E+04_JPRB,0.12092E+04_JPRB,0.10403E+04_JPRB,0.87191E+03_JPRB,0.70566E+03_JPRB, &
+ & 0.74297E+03_JPRB,0.88145E+03_JPRB,0.10214E+04_JPRB,0.11622E+04_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.13536E+04_JPRB,0.11933E+04_JPRB,0.10279E+04_JPRB,0.85985E+03_JPRB,0.69532E+03_JPRB, &
+ & 0.74091E+03_JPRB,0.88002E+03_JPRB,0.10207E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.13872E+04_JPRB,0.12173E+04_JPRB,0.10473E+04_JPRB,0.87779E+03_JPRB,0.70929E+03_JPRB, &
+ & 0.74753E+03_JPRB,0.88739E+03_JPRB,0.10279E+04_JPRB,0.11686E+04_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.13614E+04_JPRB,0.11960E+04_JPRB,0.10302E+04_JPRB,0.86342E+03_JPRB,0.69779E+03_JPRB, &
+ & 0.74649E+03_JPRB,0.88535E+03_JPRB,0.10254E+04_JPRB,0.11666E+04_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.13423E+04_JPRB,0.11779E+04_JPRB,0.10152E+04_JPRB,0.85120E+03_JPRB,0.68669E+03_JPRB, &
+ & 0.74500E+03_JPRB,0.88364E+03_JPRB,0.10236E+04_JPRB,0.11646E+04_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.13222E+04_JPRB,0.11614E+04_JPRB,0.10027E+04_JPRB,0.84138E+03_JPRB,0.67980E+03_JPRB, &
+ & 0.74324E+03_JPRB,0.88194E+03_JPRB,0.10219E+04_JPRB,0.11628E+04_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.13077E+04_JPRB,0.11487E+04_JPRB,0.98870E+03_JPRB,0.82923E+03_JPRB,0.67117E+03_JPRB, &
+ & 0.74131E+03_JPRB,0.88052E+03_JPRB,0.10200E+04_JPRB,0.11617E+04_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.13318E+04_JPRB,0.11751E+04_JPRB,0.10116E+04_JPRB,0.84760E+03_JPRB,0.68552E+03_JPRB, &
+ & 0.74755E+03_JPRB,0.88764E+03_JPRB,0.10284E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.13123E+04_JPRB,0.11533E+04_JPRB,0.99316E+03_JPRB,0.83364E+03_JPRB,0.67452E+03_JPRB, &
+ & 0.74634E+03_JPRB,0.88623E+03_JPRB,0.10267E+04_JPRB,0.11679E+04_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.12963E+04_JPRB,0.11395E+04_JPRB,0.98036E+03_JPRB,0.82206E+03_JPRB,0.66378E+03_JPRB, &
+ & 0.74528E+03_JPRB,0.88422E+03_JPRB,0.10245E+04_JPRB,0.11657E+04_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.12799E+04_JPRB,0.11235E+04_JPRB,0.96838E+03_JPRB,0.81175E+03_JPRB,0.65688E+03_JPRB, &
+ & 0.74350E+03_JPRB,0.88249E+03_JPRB,0.10227E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.12649E+04_JPRB,0.11128E+04_JPRB,0.95762E+03_JPRB,0.80323E+03_JPRB,0.64917E+03_JPRB, &
+ & 0.74172E+03_JPRB,0.88089E+03_JPRB,0.10213E+04_JPRB,0.11624E+04_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.12892E+04_JPRB,0.11353E+04_JPRB,0.97529E+03_JPRB,0.81997E+03_JPRB,0.66439E+03_JPRB, &
+ & 0.74689E+03_JPRB,0.88774E+03_JPRB,0.10288E+04_JPRB,0.11703E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 9,12) = (/ &
+ & 0.12710E+04_JPRB,0.11179E+04_JPRB,0.96230E+03_JPRB,0.80757E+03_JPRB,0.65174E+03_JPRB, &
+ & 0.74606E+03_JPRB,0.88671E+03_JPRB,0.10277E+04_JPRB,0.11691E+04_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.12556E+04_JPRB,0.11026E+04_JPRB,0.95506E+03_JPRB,0.79904E+03_JPRB,0.64512E+03_JPRB, &
+ & 0.74525E+03_JPRB,0.88489E+03_JPRB,0.10254E+04_JPRB,0.11669E+04_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.12434E+04_JPRB,0.10930E+04_JPRB,0.94625E+03_JPRB,0.79326E+03_JPRB,0.63956E+03_JPRB, &
+ & 0.74375E+03_JPRB,0.88308E+03_JPRB,0.10236E+04_JPRB,0.11649E+04_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.12362E+04_JPRB,0.10807E+04_JPRB,0.93519E+03_JPRB,0.78318E+03_JPRB,0.63176E+03_JPRB, &
+ & 0.74222E+03_JPRB,0.88144E+03_JPRB,0.10218E+04_JPRB,0.11632E+04_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.12560E+04_JPRB,0.11008E+04_JPRB,0.94819E+03_JPRB,0.79713E+03_JPRB,0.64289E+03_JPRB, &
+ & 0.74662E+03_JPRB,0.88790E+03_JPRB,0.10293E+04_JPRB,0.11710E+04_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.12370E+04_JPRB,0.10868E+04_JPRB,0.93614E+03_JPRB,0.78750E+03_JPRB,0.63591E+03_JPRB, &
+ & 0.74589E+03_JPRB,0.88689E+03_JPRB,0.10281E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.12228E+04_JPRB,0.10745E+04_JPRB,0.92565E+03_JPRB,0.77586E+03_JPRB,0.63013E+03_JPRB, &
+ & 0.74525E+03_JPRB,0.88546E+03_JPRB,0.10265E+04_JPRB,0.11680E+04_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.12130E+04_JPRB,0.10629E+04_JPRB,0.91805E+03_JPRB,0.77218E+03_JPRB,0.62214E+03_JPRB, &
+ & 0.74398E+03_JPRB,0.88360E+03_JPRB,0.10243E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.11990E+04_JPRB,0.10561E+04_JPRB,0.90990E+03_JPRB,0.76234E+03_JPRB,0.61782E+03_JPRB, &
+ & 0.74238E+03_JPRB,0.88192E+03_JPRB,0.10225E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.12160E+04_JPRB,0.10660E+04_JPRB,0.91756E+03_JPRB,0.77092E+03_JPRB,0.62410E+03_JPRB, &
+ & 0.74614E+03_JPRB,0.88758E+03_JPRB,0.10288E+04_JPRB,0.11712E+04_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.12001E+04_JPRB,0.10573E+04_JPRB,0.90897E+03_JPRB,0.76187E+03_JPRB,0.61778E+03_JPRB, &
+ & 0.74563E+03_JPRB,0.88659E+03_JPRB,0.10280E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.11883E+04_JPRB,0.10436E+04_JPRB,0.89901E+03_JPRB,0.75711E+03_JPRB,0.61087E+03_JPRB, &
+ & 0.74468E+03_JPRB,0.88519E+03_JPRB,0.10264E+04_JPRB,0.11680E+04_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.11791E+04_JPRB,0.10338E+04_JPRB,0.89462E+03_JPRB,0.74974E+03_JPRB,0.60740E+03_JPRB, &
+ & 0.74372E+03_JPRB,0.88322E+03_JPRB,0.10242E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.11736E+04_JPRB,0.10284E+04_JPRB,0.88610E+03_JPRB,0.74386E+03_JPRB,0.60256E+03_JPRB, &
+ & 0.74204E+03_JPRB,0.88156E+03_JPRB,0.10223E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.11783E+04_JPRB,0.10408E+04_JPRB,0.89462E+03_JPRB,0.75034E+03_JPRB,0.60838E+03_JPRB, &
+ & 0.74575E+03_JPRB,0.88732E+03_JPRB,0.10288E+04_JPRB,0.11710E+04_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.11693E+04_JPRB,0.10333E+04_JPRB,0.88486E+03_JPRB,0.74467E+03_JPRB,0.60420E+03_JPRB, &
+ & 0.74514E+03_JPRB,0.88635E+03_JPRB,0.10279E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.11597E+04_JPRB,0.10197E+04_JPRB,0.87845E+03_JPRB,0.73901E+03_JPRB,0.60371E+03_JPRB, &
+ & 0.74440E+03_JPRB,0.88495E+03_JPRB,0.10263E+04_JPRB,0.11680E+04_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.11554E+04_JPRB,0.10154E+04_JPRB,0.87390E+03_JPRB,0.73209E+03_JPRB,0.60310E+03_JPRB, &
+ & 0.74343E+03_JPRB,0.88312E+03_JPRB,0.10241E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.11463E+04_JPRB,0.10081E+04_JPRB,0.86768E+03_JPRB,0.73113E+03_JPRB,0.60226E+03_JPRB, &
+ & 0.74178E+03_JPRB,0.88148E+03_JPRB,0.10222E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.11576E+04_JPRB,0.10172E+04_JPRB,0.87697E+03_JPRB,0.73496E+03_JPRB,0.60442E+03_JPRB, &
+ & 0.74542E+03_JPRB,0.88710E+03_JPRB,0.10287E+04_JPRB,0.11710E+04_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.11489E+04_JPRB,0.10121E+04_JPRB,0.86787E+03_JPRB,0.73038E+03_JPRB,0.60369E+03_JPRB, &
+ & 0.74483E+03_JPRB,0.88615E+03_JPRB,0.10278E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.11408E+04_JPRB,0.10003E+04_JPRB,0.86069E+03_JPRB,0.72468E+03_JPRB,0.60332E+03_JPRB, &
+ & 0.74398E+03_JPRB,0.88477E+03_JPRB,0.10262E+04_JPRB,0.11679E+04_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.11353E+04_JPRB,0.99812E+03_JPRB,0.85805E+03_JPRB,0.72010E+03_JPRB,0.60276E+03_JPRB, &
+ & 0.74301E+03_JPRB,0.88294E+03_JPRB,0.10240E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.11276E+04_JPRB,0.99093E+03_JPRB,0.85424E+03_JPRB,0.71851E+03_JPRB,0.60186E+03_JPRB, &
+ & 0.74137E+03_JPRB,0.88131E+03_JPRB,0.10223E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.19698E+04_JPRB,0.17183E+04_JPRB,0.14812E+04_JPRB,0.12476E+04_JPRB,0.10057E+04_JPRB, &
+ & 0.76142E+03_JPRB,0.89076E+03_JPRB,0.10305E+04_JPRB,0.11701E+04_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.19138E+04_JPRB,0.16790E+04_JPRB,0.14471E+04_JPRB,0.12079E+04_JPRB,0.97024E+03_JPRB, &
+ & 0.74958E+03_JPRB,0.88854E+03_JPRB,0.10281E+04_JPRB,0.11676E+04_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.18656E+04_JPRB,0.16362E+04_JPRB,0.14072E+04_JPRB,0.11764E+04_JPRB,0.95368E+03_JPRB, &
+ & 0.74756E+03_JPRB,0.88578E+03_JPRB,0.10247E+04_JPRB,0.11642E+04_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.18274E+04_JPRB,0.16076E+04_JPRB,0.13744E+04_JPRB,0.11522E+04_JPRB,0.93101E+03_JPRB, &
+ & 0.74489E+03_JPRB,0.88368E+03_JPRB,0.10224E+04_JPRB,0.11624E+04_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.18123E+04_JPRB,0.15711E+04_JPRB,0.13539E+04_JPRB,0.11391E+04_JPRB,0.91271E+03_JPRB, &
+ & 0.74309E+03_JPRB,0.88194E+03_JPRB,0.10210E+04_JPRB,0.11601E+04_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.18136E+04_JPRB,0.16074E+04_JPRB,0.13682E+04_JPRB,0.11455E+04_JPRB,0.92152E+03_JPRB, &
+ & 0.75090E+03_JPRB,0.89044E+03_JPRB,0.10309E+04_JPRB,0.11711E+04_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.17663E+04_JPRB,0.15639E+04_JPRB,0.13412E+04_JPRB,0.11338E+04_JPRB,0.90565E+03_JPRB, &
+ & 0.74892E+03_JPRB,0.88842E+03_JPRB,0.10286E+04_JPRB,0.11690E+04_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.17473E+04_JPRB,0.15168E+04_JPRB,0.13179E+04_JPRB,0.10933E+04_JPRB,0.88564E+03_JPRB, &
+ & 0.74657E+03_JPRB,0.88587E+03_JPRB,0.10277E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.16935E+04_JPRB,0.14940E+04_JPRB,0.12866E+04_JPRB,0.10771E+04_JPRB,0.86513E+03_JPRB, &
+ & 0.74388E+03_JPRB,0.88292E+03_JPRB,0.10226E+04_JPRB,0.11621E+04_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.16796E+04_JPRB,0.14587E+04_JPRB,0.12610E+04_JPRB,0.10625E+04_JPRB,0.85051E+03_JPRB, &
+ & 0.74222E+03_JPRB,0.88187E+03_JPRB,0.10215E+04_JPRB,0.11614E+04_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.16915E+04_JPRB,0.14853E+04_JPRB,0.12759E+04_JPRB,0.10742E+04_JPRB,0.87078E+03_JPRB, &
+ & 0.75040E+03_JPRB,0.89056E+03_JPRB,0.10314E+04_JPRB,0.11723E+04_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.16685E+04_JPRB,0.14695E+04_JPRB,0.12569E+04_JPRB,0.10522E+04_JPRB,0.84369E+03_JPRB, &
+ & 0.74849E+03_JPRB,0.88875E+03_JPRB,0.10295E+04_JPRB,0.11702E+04_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.16315E+04_JPRB,0.14234E+04_JPRB,0.12207E+04_JPRB,0.10278E+04_JPRB,0.83542E+03_JPRB, &
+ & 0.74665E+03_JPRB,0.88665E+03_JPRB,0.10272E+04_JPRB,0.11677E+04_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.15936E+04_JPRB,0.13973E+04_JPRB,0.11983E+04_JPRB,0.10068E+04_JPRB,0.81253E+03_JPRB, &
+ & 0.74392E+03_JPRB,0.88383E+03_JPRB,0.10241E+04_JPRB,0.11643E+04_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.15704E+04_JPRB,0.13749E+04_JPRB,0.11794E+04_JPRB,0.99081E+03_JPRB,0.79887E+03_JPRB, &
+ & 0.74214E+03_JPRB,0.88216E+03_JPRB,0.10204E+04_JPRB,0.11625E+04_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.16005E+04_JPRB,0.14146E+04_JPRB,0.12141E+04_JPRB,0.10096E+04_JPRB,0.81830E+03_JPRB, &
+ & 0.74981E+03_JPRB,0.89073E+03_JPRB,0.10323E+04_JPRB,0.11736E+04_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.15697E+04_JPRB,0.13709E+04_JPRB,0.11792E+04_JPRB,0.98706E+03_JPRB,0.80274E+03_JPRB, &
+ & 0.74843E+03_JPRB,0.88917E+03_JPRB,0.10304E+04_JPRB,0.11716E+04_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.15342E+04_JPRB,0.13528E+04_JPRB,0.11633E+04_JPRB,0.97494E+03_JPRB,0.78298E+03_JPRB, &
+ & 0.74655E+03_JPRB,0.88714E+03_JPRB,0.10283E+04_JPRB,0.11694E+04_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.15079E+04_JPRB,0.13273E+04_JPRB,0.11368E+04_JPRB,0.95326E+03_JPRB,0.76898E+03_JPRB, &
+ & 0.74477E+03_JPRB,0.88522E+03_JPRB,0.10258E+04_JPRB,0.11666E+04_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.14904E+04_JPRB,0.13050E+04_JPRB,0.11274E+04_JPRB,0.94133E+03_JPRB,0.75918E+03_JPRB, &
+ & 0.74185E+03_JPRB,0.88236E+03_JPRB,0.10229E+04_JPRB,0.11634E+04_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.15223E+04_JPRB,0.13292E+04_JPRB,0.11458E+04_JPRB,0.96632E+03_JPRB,0.77253E+03_JPRB, &
+ & 0.74931E+03_JPRB,0.89080E+03_JPRB,0.10327E+04_JPRB,0.11744E+04_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.14887E+04_JPRB,0.13100E+04_JPRB,0.11308E+04_JPRB,0.95564E+03_JPRB,0.76318E+03_JPRB, &
+ & 0.74814E+03_JPRB,0.88953E+03_JPRB,0.10311E+04_JPRB,0.11728E+04_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.14666E+04_JPRB,0.12805E+04_JPRB,0.10990E+04_JPRB,0.92585E+03_JPRB,0.74527E+03_JPRB, &
+ & 0.74662E+03_JPRB,0.88788E+03_JPRB,0.10293E+04_JPRB,0.11708E+04_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.14380E+04_JPRB,0.12615E+04_JPRB,0.10805E+04_JPRB,0.91192E+03_JPRB,0.73306E+03_JPRB, &
+ & 0.74471E+03_JPRB,0.88594E+03_JPRB,0.10272E+04_JPRB,0.11684E+04_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.14117E+04_JPRB,0.12389E+04_JPRB,0.10707E+04_JPRB,0.89863E+03_JPRB,0.72872E+03_JPRB, &
+ & 0.74254E+03_JPRB,0.88356E+03_JPRB,0.10243E+04_JPRB,0.11652E+04_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.14428E+04_JPRB,0.12661E+04_JPRB,0.10990E+04_JPRB,0.91605E+03_JPRB,0.74645E+03_JPRB, &
+ & 0.74914E+03_JPRB,0.89068E+03_JPRB,0.10327E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.14277E+04_JPRB,0.12454E+04_JPRB,0.10670E+04_JPRB,0.90364E+03_JPRB,0.72758E+03_JPRB, &
+ & 0.74802E+03_JPRB,0.88983E+03_JPRB,0.10318E+04_JPRB,0.11738E+04_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.14072E+04_JPRB,0.12244E+04_JPRB,0.10539E+04_JPRB,0.88576E+03_JPRB,0.71342E+03_JPRB, &
+ & 0.74674E+03_JPRB,0.88844E+03_JPRB,0.10303E+04_JPRB,0.11723E+04_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.13764E+04_JPRB,0.12101E+04_JPRB,0.10371E+04_JPRB,0.87173E+03_JPRB,0.70565E+03_JPRB, &
+ & 0.74519E+03_JPRB,0.88672E+03_JPRB,0.10284E+04_JPRB,0.11700E+04_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.13559E+04_JPRB,0.11928E+04_JPRB,0.10275E+04_JPRB,0.87202E+03_JPRB,0.69916E+03_JPRB, &
+ & 0.74337E+03_JPRB,0.88468E+03_JPRB,0.10257E+04_JPRB,0.11677E+04_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.13816E+04_JPRB,0.12181E+04_JPRB,0.10498E+04_JPRB,0.87727E+03_JPRB,0.70862E+03_JPRB, &
+ & 0.74879E+03_JPRB,0.89032E+03_JPRB,0.10324E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.13746E+04_JPRB,0.12007E+04_JPRB,0.10368E+04_JPRB,0.86700E+03_JPRB,0.69742E+03_JPRB, &
+ & 0.74791E+03_JPRB,0.88998E+03_JPRB,0.10322E+04_JPRB,0.11745E+04_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.13471E+04_JPRB,0.11822E+04_JPRB,0.10118E+04_JPRB,0.85187E+03_JPRB,0.69076E+03_JPRB, &
+ & 0.74684E+03_JPRB,0.88891E+03_JPRB,0.10311E+04_JPRB,0.11732E+04_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.13306E+04_JPRB,0.11625E+04_JPRB,0.10055E+04_JPRB,0.83687E+03_JPRB,0.67946E+03_JPRB, &
+ & 0.74564E+03_JPRB,0.88741E+03_JPRB,0.10294E+04_JPRB,0.11714E+04_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.13072E+04_JPRB,0.11462E+04_JPRB,0.98997E+03_JPRB,0.82975E+03_JPRB,0.67148E+03_JPRB, &
+ & 0.74390E+03_JPRB,0.88544E+03_JPRB,0.10275E+04_JPRB,0.11691E+04_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.13342E+04_JPRB,0.11738E+04_JPRB,0.10072E+04_JPRB,0.84777E+03_JPRB,0.68336E+03_JPRB, &
+ & 0.74810E+03_JPRB,0.89032E+03_JPRB,0.10328E+04_JPRB,0.11753E+04_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.13170E+04_JPRB,0.11565E+04_JPRB,0.99551E+03_JPRB,0.83812E+03_JPRB,0.67873E+03_JPRB, &
+ & 0.74767E+03_JPRB,0.88984E+03_JPRB,0.10325E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.12961E+04_JPRB,0.11348E+04_JPRB,0.98531E+03_JPRB,0.82142E+03_JPRB,0.66767E+03_JPRB, &
+ & 0.74660E+03_JPRB,0.88923E+03_JPRB,0.10317E+04_JPRB,0.11741E+04_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.12863E+04_JPRB,0.11324E+04_JPRB,0.96704E+03_JPRB,0.81553E+03_JPRB,0.65703E+03_JPRB, &
+ & 0.74590E+03_JPRB,0.88815E+03_JPRB,0.10305E+04_JPRB,0.11725E+04_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.12689E+04_JPRB,0.11113E+04_JPRB,0.96142E+03_JPRB,0.81188E+03_JPRB,0.65150E+03_JPRB, &
+ & 0.74435E+03_JPRB,0.88637E+03_JPRB,0.10284E+04_JPRB,0.11705E+04_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.12929E+04_JPRB,0.11420E+04_JPRB,0.97941E+03_JPRB,0.82358E+03_JPRB,0.66259E+03_JPRB, &
+ & 0.74862E+03_JPRB,0.89046E+03_JPRB,0.10332E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.12739E+04_JPRB,0.11222E+04_JPRB,0.96918E+03_JPRB,0.81141E+03_JPRB,0.65436E+03_JPRB, &
+ & 0.74747E+03_JPRB,0.88962E+03_JPRB,0.10323E+04_JPRB,0.11749E+04_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.12674E+04_JPRB,0.11070E+04_JPRB,0.94554E+03_JPRB,0.79811E+03_JPRB,0.64989E+03_JPRB, &
+ & 0.74671E+03_JPRB,0.88937E+03_JPRB,0.10320E+04_JPRB,0.11746E+04_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.12536E+04_JPRB,0.10974E+04_JPRB,0.93180E+03_JPRB,0.78881E+03_JPRB,0.64048E+03_JPRB, &
+ & 0.74596E+03_JPRB,0.88846E+03_JPRB,0.10310E+04_JPRB,0.11735E+04_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.12304E+04_JPRB,0.10931E+04_JPRB,0.92897E+03_JPRB,0.78158E+03_JPRB,0.63657E+03_JPRB, &
+ & 0.74461E+03_JPRB,0.88706E+03_JPRB,0.10294E+04_JPRB,0.11717E+04_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.12516E+04_JPRB,0.11039E+04_JPRB,0.96641E+03_JPRB,0.80204E+03_JPRB,0.64728E+03_JPRB, &
+ & 0.74871E+03_JPRB,0.89043E+03_JPRB,0.10331E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.12445E+04_JPRB,0.10951E+04_JPRB,0.94205E+03_JPRB,0.78296E+03_JPRB,0.63684E+03_JPRB, &
+ & 0.74738E+03_JPRB,0.88974E+03_JPRB,0.10326E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.12212E+04_JPRB,0.10830E+04_JPRB,0.92907E+03_JPRB,0.78344E+03_JPRB,0.62583E+03_JPRB, &
+ & 0.74649E+03_JPRB,0.88924E+03_JPRB,0.10320E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.12116E+04_JPRB,0.10675E+04_JPRB,0.91424E+03_JPRB,0.76668E+03_JPRB,0.62374E+03_JPRB, &
+ & 0.74589E+03_JPRB,0.88889E+03_JPRB,0.10314E+04_JPRB,0.11741E+04_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.12052E+04_JPRB,0.10532E+04_JPRB,0.90488E+03_JPRB,0.76246E+03_JPRB,0.61399E+03_JPRB, &
+ & 0.74500E+03_JPRB,0.88754E+03_JPRB,0.10301E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.12119E+04_JPRB,0.10670E+04_JPRB,0.92549E+03_JPRB,0.77292E+03_JPRB,0.62469E+03_JPRB, &
+ & 0.74822E+03_JPRB,0.89015E+03_JPRB,0.10331E+04_JPRB,0.11759E+04_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.12040E+04_JPRB,0.10529E+04_JPRB,0.90947E+03_JPRB,0.76631E+03_JPRB,0.61756E+03_JPRB, &
+ & 0.74680E+03_JPRB,0.88950E+03_JPRB,0.10325E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.11932E+04_JPRB,0.10470E+04_JPRB,0.90374E+03_JPRB,0.75316E+03_JPRB,0.61137E+03_JPRB, &
+ & 0.74625E+03_JPRB,0.88901E+03_JPRB,0.10319E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.11901E+04_JPRB,0.10395E+04_JPRB,0.89205E+03_JPRB,0.75483E+03_JPRB,0.60707E+03_JPRB, &
+ & 0.74529E+03_JPRB,0.88868E+03_JPRB,0.10313E+04_JPRB,0.11742E+04_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.11740E+04_JPRB,0.10262E+04_JPRB,0.88782E+03_JPRB,0.74555E+03_JPRB,0.60321E+03_JPRB, &
+ & 0.74456E+03_JPRB,0.88735E+03_JPRB,0.10302E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.11952E+04_JPRB,0.10387E+04_JPRB,0.90464E+03_JPRB,0.75031E+03_JPRB,0.60579E+03_JPRB, &
+ & 0.74809E+03_JPRB,0.88993E+03_JPRB,0.10330E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.11767E+04_JPRB,0.10280E+04_JPRB,0.89305E+03_JPRB,0.74295E+03_JPRB,0.60520E+03_JPRB, &
+ & 0.74658E+03_JPRB,0.88930E+03_JPRB,0.10324E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.11638E+04_JPRB,0.10252E+04_JPRB,0.88200E+03_JPRB,0.74209E+03_JPRB,0.60448E+03_JPRB, &
+ & 0.74580E+03_JPRB,0.88883E+03_JPRB,0.10318E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.11608E+04_JPRB,0.10182E+04_JPRB,0.87717E+03_JPRB,0.73339E+03_JPRB,0.60384E+03_JPRB, &
+ & 0.74474E+03_JPRB,0.88834E+03_JPRB,0.10314E+04_JPRB,0.11742E+04_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.11455E+04_JPRB,0.10085E+04_JPRB,0.86868E+03_JPRB,0.72782E+03_JPRB,0.60261E+03_JPRB, &
+ & 0.74417E+03_JPRB,0.88752E+03_JPRB,0.10299E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.11538E+04_JPRB,0.10104E+04_JPRB,0.87836E+03_JPRB,0.74181E+03_JPRB,0.60545E+03_JPRB, &
+ & 0.74747E+03_JPRB,0.88975E+03_JPRB,0.10329E+04_JPRB,0.11763E+04_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.11412E+04_JPRB,0.10013E+04_JPRB,0.88484E+03_JPRB,0.73153E+03_JPRB,0.60489E+03_JPRB, &
+ & 0.74629E+03_JPRB,0.88914E+03_JPRB,0.10323E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.11370E+04_JPRB,0.10022E+04_JPRB,0.86246E+03_JPRB,0.73215E+03_JPRB,0.60419E+03_JPRB, &
+ & 0.74569E+03_JPRB,0.88867E+03_JPRB,0.10317E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.11288E+04_JPRB,0.99109E+03_JPRB,0.86549E+03_JPRB,0.72280E+03_JPRB,0.60356E+03_JPRB, &
+ & 0.74480E+03_JPRB,0.88820E+03_JPRB,0.10312E+04_JPRB,0.11742E+04_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.11445E+04_JPRB,0.99099E+03_JPRB,0.85129E+03_JPRB,0.71952E+03_JPRB,0.60234E+03_JPRB, &
+ & 0.74410E+03_JPRB,0.88705E+03_JPRB,0.10299E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.20185E+04_JPRB,0.18044E+04_JPRB,0.14758E+04_JPRB,0.13047E+04_JPRB,0.10029E+04_JPRB, &
+ & 0.77460E+03_JPRB,0.89226E+03_JPRB,0.10322E+04_JPRB,0.11721E+04_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.19173E+04_JPRB,0.17154E+04_JPRB,0.14467E+04_JPRB,0.12101E+04_JPRB,0.99594E+03_JPRB, &
+ & 0.75026E+03_JPRB,0.88974E+03_JPRB,0.10295E+04_JPRB,0.11713E+04_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.19468E+04_JPRB,0.16851E+04_JPRB,0.14136E+04_JPRB,0.12474E+04_JPRB,0.94959E+03_JPRB, &
+ & 0.74773E+03_JPRB,0.88696E+03_JPRB,0.10271E+04_JPRB,0.11663E+04_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.18423E+04_JPRB,0.16214E+04_JPRB,0.13991E+04_JPRB,0.11633E+04_JPRB,0.94698E+03_JPRB, &
+ & 0.74507E+03_JPRB,0.88457E+03_JPRB,0.10239E+04_JPRB,0.11632E+04_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.17538E+04_JPRB,0.16376E+04_JPRB,0.13645E+04_JPRB,0.11303E+04_JPRB,0.98877E+03_JPRB, &
+ & 0.74430E+03_JPRB,0.88372E+03_JPRB,0.10232E+04_JPRB,0.11626E+04_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.18551E+04_JPRB,0.16163E+04_JPRB,0.13640E+04_JPRB,0.12440E+04_JPRB,0.97095E+03_JPRB, &
+ & 0.75153E+03_JPRB,0.89202E+03_JPRB,0.10323E+04_JPRB,0.11731E+04_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.18136E+04_JPRB,0.16209E+04_JPRB,0.13887E+04_JPRB,0.11127E+04_JPRB,0.90845E+03_JPRB, &
+ & 0.74936E+03_JPRB,0.88974E+03_JPRB,0.10301E+04_JPRB,0.11702E+04_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.17918E+04_JPRB,0.15931E+04_JPRB,0.13282E+04_JPRB,0.11266E+04_JPRB,0.93052E+03_JPRB, &
+ & 0.74732E+03_JPRB,0.88725E+03_JPRB,0.10243E+04_JPRB,0.11672E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2,14) = (/ &
+ & 0.17507E+04_JPRB,0.14791E+04_JPRB,0.12865E+04_JPRB,0.10818E+04_JPRB,0.87901E+03_JPRB, &
+ & 0.74478E+03_JPRB,0.88467E+03_JPRB,0.10246E+04_JPRB,0.11645E+04_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.16872E+04_JPRB,0.14818E+04_JPRB,0.12871E+04_JPRB,0.10513E+04_JPRB,0.88744E+03_JPRB, &
+ & 0.74325E+03_JPRB,0.88337E+03_JPRB,0.10230E+04_JPRB,0.11625E+04_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.16919E+04_JPRB,0.15533E+04_JPRB,0.13337E+04_JPRB,0.10831E+04_JPRB,0.86308E+03_JPRB, &
+ & 0.75085E+03_JPRB,0.89217E+03_JPRB,0.10333E+04_JPRB,0.11744E+04_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.17034E+04_JPRB,0.15495E+04_JPRB,0.12643E+04_JPRB,0.11407E+04_JPRB,0.84365E+03_JPRB, &
+ & 0.74929E+03_JPRB,0.89025E+03_JPRB,0.10312E+04_JPRB,0.11722E+04_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.16844E+04_JPRB,0.14282E+04_JPRB,0.12585E+04_JPRB,0.10790E+04_JPRB,0.84114E+03_JPRB, &
+ & 0.74691E+03_JPRB,0.88785E+03_JPRB,0.10286E+04_JPRB,0.11700E+04_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.16791E+04_JPRB,0.14180E+04_JPRB,0.12209E+04_JPRB,0.10441E+04_JPRB,0.85899E+03_JPRB, &
+ & 0.74519E+03_JPRB,0.88544E+03_JPRB,0.10259E+04_JPRB,0.11667E+04_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.16063E+04_JPRB,0.13774E+04_JPRB,0.12181E+04_JPRB,0.10006E+04_JPRB,0.82020E+03_JPRB, &
+ & 0.74245E+03_JPRB,0.88287E+03_JPRB,0.10231E+04_JPRB,0.11633E+04_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.15960E+04_JPRB,0.13846E+04_JPRB,0.12078E+04_JPRB,0.10284E+04_JPRB,0.81079E+03_JPRB, &
+ & 0.75078E+03_JPRB,0.89233E+03_JPRB,0.10336E+04_JPRB,0.11751E+04_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.16237E+04_JPRB,0.13919E+04_JPRB,0.11906E+04_JPRB,0.10115E+04_JPRB,0.83009E+03_JPRB, &
+ & 0.74909E+03_JPRB,0.89076E+03_JPRB,0.10322E+04_JPRB,0.11737E+04_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.16136E+04_JPRB,0.13698E+04_JPRB,0.12046E+04_JPRB,0.98839E+03_JPRB,0.80997E+03_JPRB, &
+ & 0.74745E+03_JPRB,0.88871E+03_JPRB,0.10300E+04_JPRB,0.11712E+04_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.15739E+04_JPRB,0.13753E+04_JPRB,0.11394E+04_JPRB,0.97871E+03_JPRB,0.77029E+03_JPRB, &
+ & 0.74770E+03_JPRB,0.88627E+03_JPRB,0.10279E+04_JPRB,0.11682E+04_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.14863E+04_JPRB,0.13334E+04_JPRB,0.11445E+04_JPRB,0.95775E+03_JPRB,0.78998E+03_JPRB, &
+ & 0.74317E+03_JPRB,0.88387E+03_JPRB,0.10246E+04_JPRB,0.11653E+04_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.15101E+04_JPRB,0.14006E+04_JPRB,0.11513E+04_JPRB,0.96783E+03_JPRB,0.79581E+03_JPRB, &
+ & 0.75045E+03_JPRB,0.89239E+03_JPRB,0.10340E+04_JPRB,0.11759E+04_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.15461E+04_JPRB,0.13003E+04_JPRB,0.11685E+04_JPRB,0.92112E+03_JPRB,0.77517E+03_JPRB, &
+ & 0.74927E+03_JPRB,0.89114E+03_JPRB,0.10330E+04_JPRB,0.11749E+04_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.14676E+04_JPRB,0.12966E+04_JPRB,0.11042E+04_JPRB,0.93875E+03_JPRB,0.79645E+03_JPRB, &
+ & 0.74772E+03_JPRB,0.88943E+03_JPRB,0.10311E+04_JPRB,0.11729E+04_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.14571E+04_JPRB,0.12955E+04_JPRB,0.11734E+04_JPRB,0.89731E+03_JPRB,0.76986E+03_JPRB, &
+ & 0.74578E+03_JPRB,0.88723E+03_JPRB,0.10287E+04_JPRB,0.11702E+04_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.14311E+04_JPRB,0.13054E+04_JPRB,0.10738E+04_JPRB,0.10079E+04_JPRB,0.72704E+03_JPRB, &
+ & 0.74437E+03_JPRB,0.88461E+03_JPRB,0.10260E+04_JPRB,0.11675E+04_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.14715E+04_JPRB,0.12798E+04_JPRB,0.11182E+04_JPRB,0.92160E+03_JPRB,0.75379E+03_JPRB, &
+ & 0.75023E+03_JPRB,0.89251E+03_JPRB,0.10348E+04_JPRB,0.11771E+04_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.14479E+04_JPRB,0.12414E+04_JPRB,0.11222E+04_JPRB,0.91289E+03_JPRB,0.75013E+03_JPRB, &
+ & 0.74921E+03_JPRB,0.89141E+03_JPRB,0.10336E+04_JPRB,0.11758E+04_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.14270E+04_JPRB,0.12651E+04_JPRB,0.10793E+04_JPRB,0.91215E+03_JPRB,0.74649E+03_JPRB, &
+ & 0.74796E+03_JPRB,0.89005E+03_JPRB,0.10321E+04_JPRB,0.11739E+04_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.14058E+04_JPRB,0.12702E+04_JPRB,0.11005E+04_JPRB,0.93809E+03_JPRB,0.69854E+03_JPRB, &
+ & 0.74632E+03_JPRB,0.88820E+03_JPRB,0.10301E+04_JPRB,0.11720E+04_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.14048E+04_JPRB,0.12100E+04_JPRB,0.10413E+04_JPRB,0.84934E+03_JPRB,0.69794E+03_JPRB, &
+ & 0.74429E+03_JPRB,0.88588E+03_JPRB,0.10284E+04_JPRB,0.11701E+04_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.14325E+04_JPRB,0.12413E+04_JPRB,0.10595E+04_JPRB,0.88906E+03_JPRB,0.71717E+03_JPRB, &
+ & 0.75037E+03_JPRB,0.89273E+03_JPRB,0.10353E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.13620E+04_JPRB,0.12089E+04_JPRB,0.10598E+04_JPRB,0.89550E+03_JPRB,0.73134E+03_JPRB, &
+ & 0.74911E+03_JPRB,0.89161E+03_JPRB,0.10341E+04_JPRB,0.11766E+04_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.13346E+04_JPRB,0.12111E+04_JPRB,0.10262E+04_JPRB,0.84775E+03_JPRB,0.68161E+03_JPRB, &
+ & 0.74811E+03_JPRB,0.89050E+03_JPRB,0.10329E+04_JPRB,0.11753E+04_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.13132E+04_JPRB,0.11998E+04_JPRB,0.99757E+03_JPRB,0.86083E+03_JPRB,0.70251E+03_JPRB, &
+ & 0.74653E+03_JPRB,0.88899E+03_JPRB,0.10312E+04_JPRB,0.11735E+04_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.13232E+04_JPRB,0.11634E+04_JPRB,0.10230E+04_JPRB,0.84353E+03_JPRB,0.68339E+03_JPRB, &
+ & 0.74500E+03_JPRB,0.88698E+03_JPRB,0.10287E+04_JPRB,0.11709E+04_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.13366E+04_JPRB,0.11630E+04_JPRB,0.10188E+04_JPRB,0.86405E+03_JPRB,0.71800E+03_JPRB, &
+ & 0.75008E+03_JPRB,0.89285E+03_JPRB,0.10357E+04_JPRB,0.11785E+04_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.13647E+04_JPRB,0.11518E+04_JPRB,0.10110E+04_JPRB,0.84719E+03_JPRB,0.67819E+03_JPRB, &
+ & 0.74911E+03_JPRB,0.89187E+03_JPRB,0.10343E+04_JPRB,0.11777E+04_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.13128E+04_JPRB,0.11472E+04_JPRB,0.99038E+03_JPRB,0.82656E+03_JPRB,0.66483E+03_JPRB, &
+ & 0.74815E+03_JPRB,0.89080E+03_JPRB,0.10335E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.12817E+04_JPRB,0.11127E+04_JPRB,0.10092E+04_JPRB,0.82047E+03_JPRB,0.65442E+03_JPRB, &
+ & 0.74685E+03_JPRB,0.88933E+03_JPRB,0.10318E+04_JPRB,0.11746E+04_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.13162E+04_JPRB,0.11356E+04_JPRB,0.98305E+03_JPRB,0.84668E+03_JPRB,0.66544E+03_JPRB, &
+ & 0.74558E+03_JPRB,0.88790E+03_JPRB,0.10302E+04_JPRB,0.11725E+04_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.13174E+04_JPRB,0.11399E+04_JPRB,0.97696E+03_JPRB,0.84117E+03_JPRB,0.66145E+03_JPRB, &
+ & 0.75011E+03_JPRB,0.89307E+03_JPRB,0.10362E+04_JPRB,0.11789E+04_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.13196E+04_JPRB,0.11310E+04_JPRB,0.99094E+03_JPRB,0.80674E+03_JPRB,0.67265E+03_JPRB, &
+ & 0.74915E+03_JPRB,0.89213E+03_JPRB,0.10351E+04_JPRB,0.11781E+04_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.12950E+04_JPRB,0.10983E+04_JPRB,0.10229E+04_JPRB,0.86051E+03_JPRB,0.66007E+03_JPRB, &
+ & 0.74819E+03_JPRB,0.89107E+03_JPRB,0.10339E+04_JPRB,0.11768E+04_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.12605E+04_JPRB,0.10785E+04_JPRB,0.10061E+04_JPRB,0.79531E+03_JPRB,0.63414E+03_JPRB, &
+ & 0.74728E+03_JPRB,0.89004E+03_JPRB,0.10328E+04_JPRB,0.11756E+04_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.12553E+04_JPRB,0.10628E+04_JPRB,0.94908E+03_JPRB,0.82074E+03_JPRB,0.64983E+03_JPRB, &
+ & 0.74606E+03_JPRB,0.88866E+03_JPRB,0.10313E+04_JPRB,0.11739E+04_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.13413E+04_JPRB,0.11632E+04_JPRB,0.10048E+04_JPRB,0.80476E+03_JPRB,0.65189E+03_JPRB, &
+ & 0.75022E+03_JPRB,0.89354E+03_JPRB,0.10369E+04_JPRB,0.11806E+04_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.12838E+04_JPRB,0.11017E+04_JPRB,0.10173E+04_JPRB,0.85213E+03_JPRB,0.64367E+03_JPRB, &
+ & 0.74909E+03_JPRB,0.89223E+03_JPRB,0.10354E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.12657E+04_JPRB,0.11229E+04_JPRB,0.92134E+03_JPRB,0.80214E+03_JPRB,0.64195E+03_JPRB, &
+ & 0.74870E+03_JPRB,0.89159E+03_JPRB,0.10344E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.12310E+04_JPRB,0.10594E+04_JPRB,0.92792E+03_JPRB,0.78251E+03_JPRB,0.62401E+03_JPRB, &
+ & 0.74734E+03_JPRB,0.89003E+03_JPRB,0.10332E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.12088E+04_JPRB,0.10663E+04_JPRB,0.92275E+03_JPRB,0.77707E+03_JPRB,0.64354E+03_JPRB, &
+ & 0.74634E+03_JPRB,0.88914E+03_JPRB,0.10320E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.12205E+04_JPRB,0.10982E+04_JPRB,0.93349E+03_JPRB,0.79899E+03_JPRB,0.64961E+03_JPRB, &
+ & 0.74981E+03_JPRB,0.89329E+03_JPRB,0.10368E+04_JPRB,0.11803E+04_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.12266E+04_JPRB,0.10977E+04_JPRB,0.90836E+03_JPRB,0.76723E+03_JPRB,0.61851E+03_JPRB, &
+ & 0.74871E+03_JPRB,0.89199E+03_JPRB,0.10353E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.11876E+04_JPRB,0.10750E+04_JPRB,0.92258E+03_JPRB,0.76849E+03_JPRB,0.61349E+03_JPRB, &
+ & 0.74902E+03_JPRB,0.89163E+03_JPRB,0.10343E+04_JPRB,0.11775E+04_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.12363E+04_JPRB,0.10327E+04_JPRB,0.91965E+03_JPRB,0.74736E+03_JPRB,0.60206E+03_JPRB, &
+ & 0.74703E+03_JPRB,0.88982E+03_JPRB,0.10331E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.11827E+04_JPRB,0.10266E+04_JPRB,0.89018E+03_JPRB,0.76668E+03_JPRB,0.60360E+03_JPRB, &
+ & 0.74604E+03_JPRB,0.88895E+03_JPRB,0.10316E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.11808E+04_JPRB,0.10792E+04_JPRB,0.88334E+03_JPRB,0.76947E+03_JPRB,0.60663E+03_JPRB, &
+ & 0.74904E+03_JPRB,0.89307E+03_JPRB,0.10367E+04_JPRB,0.11803E+04_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.12120E+04_JPRB,0.10402E+04_JPRB,0.92096E+03_JPRB,0.78880E+03_JPRB,0.60609E+03_JPRB, &
+ & 0.74841E+03_JPRB,0.89179E+03_JPRB,0.10352E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.12016E+04_JPRB,0.10899E+04_JPRB,0.90018E+03_JPRB,0.73017E+03_JPRB,0.60527E+03_JPRB, &
+ & 0.75028E+03_JPRB,0.89119E+03_JPRB,0.10342E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.11901E+04_JPRB,0.10101E+04_JPRB,0.88929E+03_JPRB,0.75342E+03_JPRB,0.60426E+03_JPRB, &
+ & 0.74677E+03_JPRB,0.88991E+03_JPRB,0.10327E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.12404E+04_JPRB,0.10285E+04_JPRB,0.87283E+03_JPRB,0.77029E+03_JPRB,0.60316E+03_JPRB, &
+ & 0.74579E+03_JPRB,0.88852E+03_JPRB,0.10318E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.11819E+04_JPRB,0.10465E+04_JPRB,0.87588E+03_JPRB,0.72550E+03_JPRB,0.60649E+03_JPRB, &
+ & 0.74922E+03_JPRB,0.89289E+03_JPRB,0.10366E+04_JPRB,0.11799E+04_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.11759E+04_JPRB,0.10245E+04_JPRB,0.86816E+03_JPRB,0.77411E+03_JPRB,0.60565E+03_JPRB, &
+ & 0.74816E+03_JPRB,0.89163E+03_JPRB,0.10351E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.11354E+04_JPRB,0.10124E+04_JPRB,0.96299E+03_JPRB,0.72358E+03_JPRB,0.60486E+03_JPRB, &
+ & 0.74851E+03_JPRB,0.89156E+03_JPRB,0.10341E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.11811E+04_JPRB,0.10736E+04_JPRB,0.85638E+03_JPRB,0.74549E+03_JPRB,0.60366E+03_JPRB, &
+ & 0.74655E+03_JPRB,0.88977E+03_JPRB,0.10330E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.11332E+04_JPRB,0.99282E+03_JPRB,0.87259E+03_JPRB,0.77082E+03_JPRB,0.60280E+03_JPRB, &
+ & 0.74559E+03_JPRB,0.88865E+03_JPRB,0.10317E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.19847E+04_JPRB,0.16615E+04_JPRB,0.16299E+04_JPRB,0.11466E+04_JPRB,0.10123E+04_JPRB, &
+ & 0.72871E+03_JPRB,0.89405E+03_JPRB,0.10334E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.18867E+04_JPRB,0.16470E+04_JPRB,0.14051E+04_JPRB,0.12848E+04_JPRB,0.91870E+03_JPRB, &
+ & 0.75104E+03_JPRB,0.89013E+03_JPRB,0.10307E+04_JPRB,0.11650E+04_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.17405E+04_JPRB,0.16240E+04_JPRB,0.14364E+04_JPRB,0.10773E+04_JPRB,0.10008E+04_JPRB, &
+ & 0.74790E+03_JPRB,0.89023E+03_JPRB,0.10382E+04_JPRB,0.11720E+04_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.19099E+04_JPRB,0.16930E+04_JPRB,0.14454E+04_JPRB,0.12410E+04_JPRB,0.95925E+03_JPRB, &
+ & 0.74605E+03_JPRB,0.88544E+03_JPRB,0.10248E+04_JPRB,0.11651E+04_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.19738E+04_JPRB,0.13892E+04_JPRB,0.14377E+04_JPRB,0.12129E+04_JPRB,0.77083E+03_JPRB, &
+ & 0.74496E+03_JPRB,0.88458E+03_JPRB,0.10242E+04_JPRB,0.11638E+04_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.18788E+04_JPRB,0.15414E+04_JPRB,0.14391E+04_JPRB,0.94831E+03_JPRB,0.88384E+03_JPRB, &
+ & 0.75320E+03_JPRB,0.89399E+03_JPRB,0.10340E+04_JPRB,0.11746E+04_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.16660E+04_JPRB,0.14507E+04_JPRB,0.12145E+04_JPRB,0.11753E+04_JPRB,0.91977E+03_JPRB, &
+ & 0.75003E+03_JPRB,0.89113E+03_JPRB,0.10308E+04_JPRB,0.11712E+04_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.15746E+04_JPRB,0.14551E+04_JPRB,0.13375E+04_JPRB,0.10698E+04_JPRB,0.76931E+03_JPRB, &
+ & 0.74657E+03_JPRB,0.88729E+03_JPRB,0.10267E+04_JPRB,0.11695E+04_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.16772E+04_JPRB,0.16415E+04_JPRB,0.13391E+04_JPRB,0.10287E+04_JPRB,0.88207E+03_JPRB, &
+ & 0.74593E+03_JPRB,0.88530E+03_JPRB,0.10252E+04_JPRB,0.11661E+04_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.16581E+04_JPRB,0.15452E+04_JPRB,0.12479E+04_JPRB,0.10067E+04_JPRB,0.83698E+03_JPRB, &
+ & 0.74419E+03_JPRB,0.88279E+03_JPRB,0.10234E+04_JPRB,0.11634E+04_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.17888E+04_JPRB,0.13395E+04_JPRB,0.12224E+04_JPRB,0.11479E+04_JPRB,0.91734E+03_JPRB, &
+ & 0.75291E+03_JPRB,0.89358E+03_JPRB,0.10348E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.16146E+04_JPRB,0.11805E+04_JPRB,0.12709E+04_JPRB,0.85911E+03_JPRB,0.90210E+03_JPRB, &
+ & 0.75028E+03_JPRB,0.89203E+03_JPRB,0.10324E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.14717E+04_JPRB,0.15353E+04_JPRB,0.12224E+04_JPRB,0.96001E+03_JPRB,0.77554E+03_JPRB, &
+ & 0.74753E+03_JPRB,0.88823E+03_JPRB,0.10297E+04_JPRB,0.11678E+04_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.15479E+04_JPRB,0.14535E+04_JPRB,0.11756E+04_JPRB,0.99609E+03_JPRB,0.71892E+03_JPRB, &
+ & 0.74634E+03_JPRB,0.88703E+03_JPRB,0.10366E+04_JPRB,0.11684E+04_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.15155E+04_JPRB,0.14515E+04_JPRB,0.11733E+04_JPRB,0.10638E+04_JPRB,0.80510E+03_JPRB, &
+ & 0.74461E+03_JPRB,0.88580E+03_JPRB,0.10240E+04_JPRB,0.11652E+04_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.15848E+04_JPRB,0.14083E+04_JPRB,0.12006E+04_JPRB,0.10439E+04_JPRB,0.81336E+03_JPRB, &
+ & 0.75201E+03_JPRB,0.89444E+03_JPRB,0.10363E+04_JPRB,0.11781E+04_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.13736E+04_JPRB,0.13760E+04_JPRB,0.12165E+04_JPRB,0.94289E+03_JPRB,0.75006E+03_JPRB, &
+ & 0.75167E+03_JPRB,0.89210E+03_JPRB,0.10337E+04_JPRB,0.11753E+04_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.14353E+04_JPRB,0.13702E+04_JPRB,0.10217E+04_JPRB,0.10119E+04_JPRB,0.72585E+03_JPRB, &
+ & 0.74883E+03_JPRB,0.88956E+03_JPRB,0.10325E+04_JPRB,0.11731E+04_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.14295E+04_JPRB,0.12548E+04_JPRB,0.12198E+04_JPRB,0.96945E+03_JPRB,0.84557E+03_JPRB, &
+ & 0.73846E+03_JPRB,0.88641E+03_JPRB,0.10258E+04_JPRB,0.11703E+04_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.15742E+04_JPRB,0.13268E+04_JPRB,0.10395E+04_JPRB,0.90301E+03_JPRB,0.67604E+03_JPRB, &
+ & 0.74473E+03_JPRB,0.88569E+03_JPRB,0.10266E+04_JPRB,0.11676E+04_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.15038E+04_JPRB,0.11787E+04_JPRB,0.11191E+04_JPRB,0.96573E+03_JPRB,0.74364E+03_JPRB, &
+ & 0.75161E+03_JPRB,0.89373E+03_JPRB,0.10358E+04_JPRB,0.11780E+04_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.12972E+04_JPRB,0.14157E+04_JPRB,0.10073E+04_JPRB,0.10120E+04_JPRB,0.78829E+03_JPRB, &
+ & 0.75051E+03_JPRB,0.89254E+03_JPRB,0.10346E+04_JPRB,0.11785E+04_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.15562E+04_JPRB,0.12980E+04_JPRB,0.11053E+04_JPRB,0.96784E+03_JPRB,0.68156E+03_JPRB, &
+ & 0.74938E+03_JPRB,0.89063E+03_JPRB,0.10325E+04_JPRB,0.11743E+04_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.15203E+04_JPRB,0.12953E+04_JPRB,0.96757E+03_JPRB,0.95061E+03_JPRB,0.68480E+03_JPRB, &
+ & 0.74750E+03_JPRB,0.88780E+03_JPRB,0.10293E+04_JPRB,0.11708E+04_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.14730E+04_JPRB,0.11456E+04_JPRB,0.11151E+04_JPRB,0.68408E+03_JPRB,0.76176E+03_JPRB, &
+ & 0.75307E+03_JPRB,0.89322E+03_JPRB,0.10317E+04_JPRB,0.11682E+04_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.15240E+04_JPRB,0.12794E+04_JPRB,0.10826E+04_JPRB,0.93131E+03_JPRB,0.69525E+03_JPRB, &
+ & 0.75122E+03_JPRB,0.89364E+03_JPRB,0.10361E+04_JPRB,0.11785E+04_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.13735E+04_JPRB,0.12837E+04_JPRB,0.10725E+04_JPRB,0.91616E+03_JPRB,0.69548E+03_JPRB, &
+ & 0.75041E+03_JPRB,0.89279E+03_JPRB,0.10360E+04_JPRB,0.11776E+04_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.14287E+04_JPRB,0.11366E+04_JPRB,0.10240E+04_JPRB,0.87529E+03_JPRB,0.70795E+03_JPRB, &
+ & 0.75034E+03_JPRB,0.89142E+03_JPRB,0.10337E+04_JPRB,0.11759E+04_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.12768E+04_JPRB,0.11078E+04_JPRB,0.98805E+03_JPRB,0.76254E+03_JPRB,0.77383E+03_JPRB, &
+ & 0.74782E+03_JPRB,0.88921E+03_JPRB,0.10312E+04_JPRB,0.11732E+04_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.13045E+04_JPRB,0.12087E+04_JPRB,0.10585E+04_JPRB,0.89185E+03_JPRB,0.69378E+03_JPRB, &
+ & 0.74461E+03_JPRB,0.88618E+03_JPRB,0.10253E+04_JPRB,0.11684E+04_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.13068E+04_JPRB,0.11778E+04_JPRB,0.10485E+04_JPRB,0.87245E+03_JPRB,0.70237E+03_JPRB, &
+ & 0.75029E+03_JPRB,0.89358E+03_JPRB,0.10363E+04_JPRB,0.11790E+04_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.13988E+04_JPRB,0.11525E+04_JPRB,0.98924E+03_JPRB,0.83779E+03_JPRB,0.64617E+03_JPRB, &
+ & 0.75022E+03_JPRB,0.89357E+03_JPRB,0.10355E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.14294E+04_JPRB,0.11695E+04_JPRB,0.10182E+04_JPRB,0.91196E+03_JPRB,0.69696E+03_JPRB, &
+ & 0.74932E+03_JPRB,0.89330E+03_JPRB,0.10353E+04_JPRB,0.11780E+04_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.14082E+04_JPRB,0.10640E+04_JPRB,0.10540E+04_JPRB,0.79295E+03_JPRB,0.62688E+03_JPRB, &
+ & 0.74789E+03_JPRB,0.89097E+03_JPRB,0.10327E+04_JPRB,0.11750E+04_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.13514E+04_JPRB,0.12038E+04_JPRB,0.10012E+04_JPRB,0.83544E+03_JPRB,0.67927E+03_JPRB, &
+ & 0.74629E+03_JPRB,0.88843E+03_JPRB,0.10298E+04_JPRB,0.11718E+04_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.14761E+04_JPRB,0.12412E+04_JPRB,0.10429E+04_JPRB,0.84370E+03_JPRB,0.62388E+03_JPRB, &
+ & 0.75133E+03_JPRB,0.89371E+03_JPRB,0.10367E+04_JPRB,0.11796E+04_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.12119E+04_JPRB,0.11409E+04_JPRB,0.10121E+04_JPRB,0.85755E+03_JPRB,0.70976E+03_JPRB, &
+ & 0.74998E+03_JPRB,0.89216E+03_JPRB,0.10357E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.12581E+04_JPRB,0.11663E+04_JPRB,0.10198E+04_JPRB,0.88649E+03_JPRB,0.69509E+03_JPRB, &
+ & 0.74932E+03_JPRB,0.89355E+03_JPRB,0.10350E+04_JPRB,0.11787E+04_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.12478E+04_JPRB,0.12066E+04_JPRB,0.87201E+03_JPRB,0.84155E+03_JPRB,0.70223E+03_JPRB, &
+ & 0.74886E+03_JPRB,0.89098E+03_JPRB,0.10337E+04_JPRB,0.11764E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8,15) = (/ &
+ & 0.12322E+04_JPRB,0.11048E+04_JPRB,0.93070E+03_JPRB,0.68296E+03_JPRB,0.66022E+03_JPRB, &
+ & 0.74776E+03_JPRB,0.88972E+03_JPRB,0.10315E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.13164E+04_JPRB,0.12093E+04_JPRB,0.10729E+04_JPRB,0.80022E+03_JPRB,0.68605E+03_JPRB, &
+ & 0.75075E+03_JPRB,0.89396E+03_JPRB,0.10372E+04_JPRB,0.11804E+04_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.12738E+04_JPRB,0.11851E+04_JPRB,0.88381E+03_JPRB,0.85846E+03_JPRB,0.65813E+03_JPRB, &
+ & 0.74985E+03_JPRB,0.89295E+03_JPRB,0.10369E+04_JPRB,0.11792E+04_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.12657E+04_JPRB,0.12031E+04_JPRB,0.79849E+03_JPRB,0.64636E+03_JPRB,0.60824E+03_JPRB, &
+ & 0.74924E+03_JPRB,0.89227E+03_JPRB,0.10353E+04_JPRB,0.11783E+04_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.12866E+04_JPRB,0.11531E+04_JPRB,0.85958E+03_JPRB,0.76890E+03_JPRB,0.66204E+03_JPRB, &
+ & 0.74965E+03_JPRB,0.89143E+03_JPRB,0.10344E+04_JPRB,0.11773E+04_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.11604E+04_JPRB,0.11730E+04_JPRB,0.87009E+03_JPRB,0.73148E+03_JPRB,0.58106E+03_JPRB, &
+ & 0.74723E+03_JPRB,0.88998E+03_JPRB,0.10327E+04_JPRB,0.11755E+04_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.11188E+04_JPRB,0.99215E+03_JPRB,0.73460E+03_JPRB,0.83046E+03_JPRB,0.68844E+03_JPRB, &
+ & 0.75085E+03_JPRB,0.89429E+03_JPRB,0.10377E+04_JPRB,0.11803E+04_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.12059E+04_JPRB,0.10804E+04_JPRB,0.70761E+03_JPRB,0.65712E+03_JPRB,0.66535E+03_JPRB, &
+ & 0.74980E+03_JPRB,0.89311E+03_JPRB,0.10364E+04_JPRB,0.11807E+04_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.11817E+04_JPRB,0.10195E+04_JPRB,0.95365E+03_JPRB,0.71601E+03_JPRB,0.59959E+03_JPRB, &
+ & 0.74791E+03_JPRB,0.89228E+03_JPRB,0.10355E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.11350E+04_JPRB,0.11533E+04_JPRB,0.91058E+03_JPRB,0.81845E+03_JPRB,0.64874E+03_JPRB, &
+ & 0.74908E+03_JPRB,0.89233E+03_JPRB,0.10356E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.12000E+04_JPRB,0.10896E+04_JPRB,0.93671E+03_JPRB,0.81314E+03_JPRB,0.60750E+03_JPRB, &
+ & 0.74754E+03_JPRB,0.89053E+03_JPRB,0.10335E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.12887E+04_JPRB,0.10795E+04_JPRB,0.92507E+03_JPRB,0.76020E+03_JPRB,0.61621E+03_JPRB, &
+ & 0.75046E+03_JPRB,0.89404E+03_JPRB,0.10376E+04_JPRB,0.11812E+04_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.11864E+04_JPRB,0.99352E+03_JPRB,0.96688E+03_JPRB,0.81999E+03_JPRB,0.65449E+03_JPRB, &
+ & 0.74944E+03_JPRB,0.89287E+03_JPRB,0.10363E+04_JPRB,0.11797E+04_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.11946E+04_JPRB,0.10069E+04_JPRB,0.91904E+03_JPRB,0.81170E+03_JPRB,0.65606E+03_JPRB, &
+ & 0.74582E+03_JPRB,0.89066E+03_JPRB,0.10354E+04_JPRB,0.11787E+04_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.10269E+04_JPRB,0.10463E+04_JPRB,0.82697E+03_JPRB,0.81731E+03_JPRB,0.61185E+03_JPRB, &
+ & 0.74876E+03_JPRB,0.89142E+03_JPRB,0.10347E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.11483E+04_JPRB,0.10490E+04_JPRB,0.91718E+03_JPRB,0.72295E+03_JPRB,0.60510E+03_JPRB, &
+ & 0.74783E+03_JPRB,0.89173E+03_JPRB,0.10334E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.12157E+04_JPRB,0.94948E+03_JPRB,0.89441E+03_JPRB,0.76380E+03_JPRB,0.60866E+03_JPRB, &
+ & 0.75013E+03_JPRB,0.89382E+03_JPRB,0.10375E+04_JPRB,0.11812E+04_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.10470E+04_JPRB,0.10059E+04_JPRB,0.83704E+03_JPRB,0.70161E+03_JPRB,0.60721E+03_JPRB, &
+ & 0.74914E+03_JPRB,0.89267E+03_JPRB,0.10370E+04_JPRB,0.11807E+04_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.10541E+04_JPRB,0.86865E+03_JPRB,0.86614E+03_JPRB,0.79420E+03_JPRB,0.60576E+03_JPRB, &
+ & 0.74144E+03_JPRB,0.89117E+03_JPRB,0.10353E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.11152E+04_JPRB,0.10946E+04_JPRB,0.91200E+03_JPRB,0.75719E+03_JPRB,0.60459E+03_JPRB, &
+ & 0.74791E+03_JPRB,0.89124E+03_JPRB,0.10346E+04_JPRB,0.11788E+04_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.10232E+04_JPRB,0.97767E+03_JPRB,0.95862E+03_JPRB,0.62268E+03_JPRB,0.60382E+03_JPRB, &
+ & 0.74758E+03_JPRB,0.88947E+03_JPRB,0.10333E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.11027E+04_JPRB,0.93786E+03_JPRB,0.84040E+03_JPRB,0.77686E+03_JPRB,0.60858E+03_JPRB, &
+ & 0.74987E+03_JPRB,0.89364E+03_JPRB,0.10374E+04_JPRB,0.11812E+04_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.10816E+04_JPRB,0.10747E+04_JPRB,0.88690E+03_JPRB,0.66213E+03_JPRB,0.60670E+03_JPRB, &
+ & 0.74889E+03_JPRB,0.89251E+03_JPRB,0.10369E+04_JPRB,0.11797E+04_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.11963E+04_JPRB,0.98701E+03_JPRB,0.69767E+03_JPRB,0.73646E+03_JPRB,0.60528E+03_JPRB, &
+ & 0.74531E+03_JPRB,0.88962E+03_JPRB,0.10352E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.10530E+04_JPRB,0.78530E+03_JPRB,0.91477E+03_JPRB,0.71026E+03_JPRB,0.60430E+03_JPRB, &
+ & 0.74770E+03_JPRB,0.89110E+03_JPRB,0.10345E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.11409E+04_JPRB,0.10574E+04_JPRB,0.83207E+03_JPRB,0.61034E+03_JPRB,0.60355E+03_JPRB, &
+ & 0.74679E+03_JPRB,0.89073E+03_JPRB,0.10333E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.34848E+03_JPRB,0.49670E+03_JPRB,0.29569E+03_JPRB,0.31627E+03_JPRB,0.46514E+03_JPRB, &
+ & 0.42834E+03_JPRB,0.88848E+03_JPRB,0.10335E+04_JPRB,0.11735E+04_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.18044E+04_JPRB,0.87518E+03_JPRB,0.11930E+04_JPRB,0.45580E+03_JPRB,0.83690E+03_JPRB, &
+ & 0.74631E+03_JPRB,0.89022E+03_JPRB,0.10242E+04_JPRB,0.11632E+04_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.11196E+04_JPRB,0.73658E+03_JPRB,0.10480E+04_JPRB,0.53695E+03_JPRB,0.39566E+03_JPRB, &
+ & 0.74377E+03_JPRB,0.86775E+03_JPRB,0.94144E+03_JPRB,0.11277E+04_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.72013E+03_JPRB,0.40040E+03_JPRB,0.39030E+03_JPRB,0.31401E+03_JPRB,0.31498E+03_JPRB, &
+ & 0.74613E+03_JPRB,0.88553E+03_JPRB,0.10249E+04_JPRB,0.11579E+04_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.34789E+03_JPRB,0.14911E+04_JPRB,0.33003E+03_JPRB,0.29522E+03_JPRB,0.31385E+03_JPRB, &
+ & 0.74516E+03_JPRB,0.88480E+03_JPRB,0.10244E+04_JPRB,0.11641E+04_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.41247E+03_JPRB,0.81197E+03_JPRB,0.68322E+03_JPRB,0.50855E+03_JPRB,0.24076E+03_JPRB, &
+ & 0.74851E+03_JPRB,0.88842E+03_JPRB,0.10341E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.16209E+04_JPRB,0.56884E+03_JPRB,0.94156E+03_JPRB,0.29182E+03_JPRB,0.46039E+03_JPRB, &
+ & 0.75011E+03_JPRB,0.88557E+03_JPRB,0.10309E+04_JPRB,0.11714E+04_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.11534E+04_JPRB,0.51443E+03_JPRB,0.23941E+03_JPRB,0.44358E+03_JPRB,0.58779E+03_JPRB, &
+ & 0.74720E+03_JPRB,0.88237E+03_JPRB,0.10275E+04_JPRB,0.11547E+04_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.78193E+03_JPRB,0.30585E+03_JPRB,0.42670E+03_JPRB,0.10365E+04_JPRB,0.43225E+03_JPRB, &
+ & 0.74126E+03_JPRB,0.88535E+03_JPRB,0.10253E+04_JPRB,0.11588E+04_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.67509E+03_JPRB,0.40574E+03_JPRB,0.57252E+03_JPRB,0.10353E+04_JPRB,0.15564E+03_JPRB, &
+ & 0.73954E+03_JPRB,0.88360E+03_JPRB,0.10236E+04_JPRB,0.11636E+04_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.91257E+03_JPRB,0.11144E+04_JPRB,0.54685E+03_JPRB,0.19037E+03_JPRB,0.25900E+03_JPRB, &
+ & 0.74823E+03_JPRB,0.89369E+03_JPRB,0.10350E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.67162E+03_JPRB,0.10092E+04_JPRB,0.40983E+03_JPRB,0.37826E+03_JPRB,0.42702E+03_JPRB, &
+ & 0.75035E+03_JPRB,0.88647E+03_JPRB,0.10325E+04_JPRB,0.11736E+04_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.94657E+03_JPRB,0.26107E+03_JPRB,0.43567E+03_JPRB,0.41065E+03_JPRB,0.70838E+03_JPRB, &
+ & 0.74760E+03_JPRB,0.88832E+03_JPRB,0.10233E+04_JPRB,0.11698E+04_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.10618E+03_JPRB,0.45040E+03_JPRB,0.10291E+04_JPRB,0.30237E+03_JPRB,0.57813E+03_JPRB, &
+ & 0.73277E+03_JPRB,0.87582E+03_JPRB,0.95203E+03_JPRB,0.11472E+04_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.96551E+03_JPRB,0.68706E+03_JPRB,0.56500E+03_JPRB,0.14865E+03_JPRB,0.35532E+03_JPRB, &
+ & 0.73527E+03_JPRB,0.86908E+03_JPRB,0.10241E+04_JPRB,0.11579E+04_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.13211E+04_JPRB,0.11050E+04_JPRB,0.91067E+03_JPRB,0.34788E+03_JPRB,0.76485E+03_JPRB, &
+ & 0.75213E+03_JPRB,0.88892E+03_JPRB,0.10299E+04_JPRB,0.11709E+04_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.15543E+04_JPRB,0.92211E+03_JPRB,0.72798E+03_JPRB,0.86839E+03_JPRB,0.36802E+03_JPRB, &
+ & 0.74223E+03_JPRB,0.89219E+03_JPRB,0.10338E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.53676E+03_JPRB,0.46363E+03_JPRB,0.10941E+04_JPRB,0.19958E+03_JPRB,0.68767E+03_JPRB, &
+ & 0.74416E+03_JPRB,0.88965E+03_JPRB,0.10195E+04_JPRB,0.11658E+04_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.66992E+03_JPRB,0.61007E+03_JPRB,0.50612E+03_JPRB,0.34999E+03_JPRB,0.19685E+03_JPRB, &
+ & 0.74139E+03_JPRB,0.88155E+03_JPRB,0.10274E+04_JPRB,0.11555E+04_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.55226E+03_JPRB,0.42689E+03_JPRB,0.10712E+04_JPRB,0.69959E+03_JPRB,0.69105E+03_JPRB, &
+ & 0.73534E+03_JPRB,0.87452E+03_JPRB,0.10137E+04_JPRB,0.11529E+04_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.11854E+04_JPRB,0.90025E+03_JPRB,0.10734E+04_JPRB,0.36732E+03_JPRB,0.51551E+03_JPRB, &
+ & 0.75181E+03_JPRB,0.89397E+03_JPRB,0.10361E+04_JPRB,0.11783E+04_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.13933E+04_JPRB,0.23882E+03_JPRB,0.71015E+03_JPRB,0.29765E+03_JPRB,0.88507E+02_JPRB, &
+ & 0.75060E+03_JPRB,0.89266E+03_JPRB,0.10347E+04_JPRB,0.11637E+04_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.30783E+03_JPRB,0.72533E+03_JPRB,0.99782E+03_JPRB,0.22581E+03_JPRB,0.21957E+03_JPRB, &
+ & 0.74471E+03_JPRB,0.89072E+03_JPRB,0.10326E+04_JPRB,0.11744E+04_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.12756E+03_JPRB,0.23797E+03_JPRB,0.16871E+03_JPRB,0.60625E+03_JPRB,0.35893E+03_JPRB, &
+ & 0.73811E+03_JPRB,0.88789E+03_JPRB,0.10294E+04_JPRB,0.11709E+04_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.67577E+03_JPRB,0.67606E+03_JPRB,0.57612E+03_JPRB,0.15439E+03_JPRB,0.22922E+03_JPRB, &
+ & 0.66526E+03_JPRB,0.82593E+03_JPRB,0.98621E+03_JPRB,0.11543E+04_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.35294E+03_JPRB,0.92951E+03_JPRB,0.39404E+03_JPRB,0.59466E+03_JPRB,0.46365E+03_JPRB, &
+ & 0.75155E+03_JPRB,0.89403E+03_JPRB,0.10365E+04_JPRB,0.11790E+04_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.83494E+03_JPRB,0.91972E+03_JPRB,0.83351E+02_JPRB,0.26459E+03_JPRB,0.33053E+03_JPRB, &
+ & 0.75056E+03_JPRB,0.89298E+03_JPRB,0.10296E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.77495E+02_JPRB,0.67358E+03_JPRB,0.71470E+03_JPRB,0.28985E+03_JPRB,0.12695E+03_JPRB, &
+ & 0.74093E+03_JPRB,0.89153E+03_JPRB,0.10338E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.12524E+04_JPRB,0.52300E+03_JPRB,0.17321E+03_JPRB,0.31958E+03_JPRB,0.15643E+03_JPRB, &
+ & 0.74316E+03_JPRB,0.88930E+03_JPRB,0.10313E+04_JPRB,0.11733E+04_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.79880E+03_JPRB,0.54259E+03_JPRB,0.31909E+03_JPRB,0.47791E+03_JPRB,0.45938E+03_JPRB, &
+ & 0.74468E+03_JPRB,0.88626E+03_JPRB,0.10278E+04_JPRB,0.11499E+04_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.10078E+04_JPRB,0.83081E+03_JPRB,0.68047E+03_JPRB,0.68284E+03_JPRB,0.57904E+03_JPRB, &
+ & 0.75128E+03_JPRB,0.89403E+03_JPRB,0.10368E+04_JPRB,0.11795E+04_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.67323E+03_JPRB,0.10228E+04_JPRB,0.49758E+03_JPRB,0.33578E+03_JPRB,0.38746E+03_JPRB, &
+ & 0.75047E+03_JPRB,0.88822E+03_JPRB,0.10359E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.60358E+03_JPRB,0.41876E+03_JPRB,0.74942E+03_JPRB,0.38757E+03_JPRB,0.61092E+03_JPRB, &
+ & 0.74943E+03_JPRB,0.88213E+03_JPRB,0.10289E+04_JPRB,0.11707E+04_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.69109E+03_JPRB,0.11040E+04_JPRB,0.46705E+03_JPRB,0.74628E+03_JPRB,0.47483E+03_JPRB, &
+ & 0.74797E+03_JPRB,0.88542E+03_JPRB,0.10328E+04_JPRB,0.11752E+04_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.68277E+03_JPRB,0.46564E+03_JPRB,0.19228E+03_JPRB,0.48854E+03_JPRB,0.28304E+03_JPRB, &
+ & 0.74163E+03_JPRB,0.88289E+03_JPRB,0.10299E+04_JPRB,0.11719E+04_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.26685E+03_JPRB,0.60532E+03_JPRB,0.51009E+03_JPRB,0.40907E+03_JPRB,0.39126E+03_JPRB, &
+ & 0.74682E+03_JPRB,0.89396E+03_JPRB,0.10369E+04_JPRB,0.11799E+04_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.94869E+03_JPRB,0.11471E+04_JPRB,0.44706E+03_JPRB,0.23151E+03_JPRB,0.93532E+02_JPRB, &
+ & 0.75035E+03_JPRB,0.89331E+03_JPRB,0.10363E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.11588E+04_JPRB,0.74588E+03_JPRB,0.28311E+03_JPRB,0.27864E+03_JPRB,0.32853E+03_JPRB, &
+ & 0.74950E+03_JPRB,0.88246E+03_JPRB,0.10352E+04_JPRB,0.11716E+04_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.11874E+04_JPRB,0.47456E+03_JPRB,0.83368E+03_JPRB,0.31591E+03_JPRB,0.30274E+03_JPRB, &
+ & 0.74421E+03_JPRB,0.89109E+03_JPRB,0.10338E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.45710E+03_JPRB,0.66086E+03_JPRB,0.55863E+03_JPRB,0.58037E+03_JPRB,0.20569E+03_JPRB, &
+ & 0.73836E+03_JPRB,0.88417E+03_JPRB,0.10316E+04_JPRB,0.11675E+04_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.55233E+03_JPRB,0.18269E+03_JPRB,0.18991E+03_JPRB,0.35964E+03_JPRB,0.38998E+03_JPRB, &
+ & 0.75089E+03_JPRB,0.89415E+03_JPRB,0.10374E+04_JPRB,0.11807E+04_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.31819E+03_JPRB,0.14904E+03_JPRB,0.79703E+03_JPRB,0.32317E+03_JPRB,0.20679E+03_JPRB, &
+ & 0.75021E+03_JPRB,0.89337E+03_JPRB,0.10308E+04_JPRB,0.11797E+04_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.16059E+03_JPRB,0.37409E+03_JPRB,0.62337E+03_JPRB,0.62951E+03_JPRB,0.47662E+03_JPRB, &
+ & 0.74953E+03_JPRB,0.89262E+03_JPRB,0.10357E+04_JPRB,0.11788E+04_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.15191E+03_JPRB,0.63681E+03_JPRB,0.25601E+03_JPRB,0.65772E+03_JPRB,0.38994E+03_JPRB, &
+ & 0.74029E+03_JPRB,0.89158E+03_JPRB,0.10346E+04_JPRB,0.11775E+04_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.10392E+04_JPRB,0.33629E+03_JPRB,0.90538E+03_JPRB,0.33435E+03_JPRB,0.46694E+03_JPRB, &
+ & 0.74731E+03_JPRB,0.89008E+03_JPRB,0.10329E+04_JPRB,0.11756E+04_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.43161E+03_JPRB,0.53194E+03_JPRB,0.82168E+03_JPRB,0.11050E+03_JPRB,0.32159E+02_JPRB, &
+ & 0.75101E+03_JPRB,0.89450E+03_JPRB,0.10380E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.23362E+03_JPRB,0.50697E+03_JPRB,0.75913E+03_JPRB,0.37965E+03_JPRB,0.15877E+03_JPRB, &
+ & 0.75002E+03_JPRB,0.89333E+03_JPRB,0.10366E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.66577E+03_JPRB,0.22676E+03_JPRB,0.63752E+03_JPRB,0.50488E+03_JPRB,0.52339E+03_JPRB, &
+ & 0.74947E+03_JPRB,0.88778E+03_JPRB,0.10360E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.12040E+04_JPRB,0.37222E+03_JPRB,0.71269E+03_JPRB,0.68368E+02_JPRB,0.31445E+03_JPRB, &
+ & 0.74453E+03_JPRB,0.88691E+03_JPRB,0.10293E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.85334E+03_JPRB,0.50951E+03_JPRB,0.43397E+03_JPRB,0.11861E+03_JPRB,0.15074E+03_JPRB, &
+ & 0.74764E+03_JPRB,0.89065E+03_JPRB,0.10337E+04_JPRB,0.11767E+04_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.45853E+03_JPRB,0.29024E+03_JPRB,0.38275E+03_JPRB,0.26130E+03_JPRB,0.12124E+03_JPRB, &
+ & 0.75062E+03_JPRB,0.89424E+03_JPRB,0.10379E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.66691E+03_JPRB,0.55656E+03_JPRB,0.39879E+03_JPRB,0.16526E+03_JPRB,0.24675E+03_JPRB, &
+ & 0.74965E+03_JPRB,0.89309E+03_JPRB,0.10365E+04_JPRB,0.11800E+04_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.10239E+04_JPRB,0.60930E+03_JPRB,0.22001E+03_JPRB,0.10914E+03_JPRB,0.22748E+03_JPRB, &
+ & 0.74913E+03_JPRB,0.89251E+03_JPRB,0.10359E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.80567E+03_JPRB,0.90344E+03_JPRB,0.77356E+03_JPRB,0.12489E+03_JPRB,0.55902E+03_JPRB, &
+ & 0.74421E+03_JPRB,0.89165E+03_JPRB,0.10349E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.80619E+03_JPRB,0.87963E+03_JPRB,0.47254E+03_JPRB,0.39261E+03_JPRB,0.59752E+03_JPRB, &
+ & 0.74319E+03_JPRB,0.88056E+03_JPRB,0.10336E+04_JPRB,0.11767E+04_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.54479E+03_JPRB,0.73809E+03_JPRB,0.74534E+03_JPRB,0.30870E+03_JPRB,0.60893E+03_JPRB, &
+ & 0.75030E+03_JPRB,0.89402E+03_JPRB,0.10378E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.10600E+04_JPRB,0.76559E+03_JPRB,0.34957E+03_JPRB,0.18602E+03_JPRB,0.60736E+03_JPRB, &
+ & 0.74935E+03_JPRB,0.89289E+03_JPRB,0.10307E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.10515E+04_JPRB,0.60079E+03_JPRB,0.43472E+03_JPRB,0.33220E+03_JPRB,0.60582E+03_JPRB, &
+ & 0.74885E+03_JPRB,0.89233E+03_JPRB,0.10358E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.32670E+03_JPRB,0.23075E+03_JPRB,0.13581E+03_JPRB,0.17106E+03_JPRB,0.60474E+03_JPRB, &
+ & 0.74811E+03_JPRB,0.89148E+03_JPRB,0.10348E+04_JPRB,0.11717E+04_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.20371E+03_JPRB,0.68798E+03_JPRB,0.91592E+02_JPRB,0.60316E+03_JPRB,0.60390E+03_JPRB, &
+ & 0.74294E+03_JPRB,0.89029E+03_JPRB,0.10335E+04_JPRB,0.11767E+04_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.85988E+03_JPRB,0.94717E+03_JPRB,0.84544E+03_JPRB,0.31415E+03_JPRB,0.60500E+03_JPRB, &
+ & 0.75003E+03_JPRB,0.89385E+03_JPRB,0.10377E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.10379E+04_JPRB,0.11189E+03_JPRB,0.20733E+03_JPRB,0.17410E+03_JPRB,0.60685E+03_JPRB, &
+ & 0.74910E+03_JPRB,0.89272E+03_JPRB,0.10306E+04_JPRB,0.11800E+04_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.70206E+03_JPRB,0.77801E+03_JPRB,0.11974E+03_JPRB,0.34591E+03_JPRB,0.60534E+03_JPRB, &
+ & 0.74861E+03_JPRB,0.89217E+03_JPRB,0.10357E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.69165E+03_JPRB,0.93369E+03_JPRB,0.16190E+03_JPRB,0.16396E+03_JPRB,0.60445E+03_JPRB, &
+ & 0.74789E+03_JPRB,0.89133E+03_JPRB,0.10348E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.20016E+03_JPRB,0.25832E+03_JPRB,0.57797E+03_JPRB,0.24270E+03_JPRB,0.60363E+03_JPRB, &
+ & 0.74689E+03_JPRB,0.88521E+03_JPRB,0.10334E+04_JPRB,0.11767E+04_JPRB /)  
+  
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     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.
+!     -----------------------------------------------------------------
+
+KB(:, 1,13, 1) = (/ &
+ & 0.27369E+02_JPRB,0.29903E+03_JPRB,0.42924E+03_JPRB,0.31039E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,13, 1) = (/ &
+ & 0.27158E+02_JPRB,0.29898E+03_JPRB,0.42745E+03_JPRB,0.30840E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,13, 1) = (/ &
+ & 0.26976E+02_JPRB,0.29889E+03_JPRB,0.42590E+03_JPRB,0.30668E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,13, 1) = (/ &
+ & 0.26818E+02_JPRB,0.29875E+03_JPRB,0.42455E+03_JPRB,0.30517E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,13, 1) = (/ &
+ & 0.26679E+02_JPRB,0.29855E+03_JPRB,0.42335E+03_JPRB,0.30384E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,14, 1) = (/ &
+ & 0.26840E+02_JPRB,0.29863E+03_JPRB,0.42474E+03_JPRB,0.30538E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,14, 1) = (/ &
+ & 0.26669E+02_JPRB,0.29862E+03_JPRB,0.42327E+03_JPRB,0.30375E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,14, 1) = (/ &
+ & 0.26522E+02_JPRB,0.29854E+03_JPRB,0.42199E+03_JPRB,0.30234E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,14, 1) = (/ &
+ & 0.26394E+02_JPRB,0.29842E+03_JPRB,0.42088E+03_JPRB,0.30111E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,14, 1) = (/ &
+ & 0.26282E+02_JPRB,0.29824E+03_JPRB,0.41990E+03_JPRB,0.30002E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,15, 1) = (/ &
+ & 0.26408E+02_JPRB,0.29831E+03_JPRB,0.42100E+03_JPRB,0.30124E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,15, 1) = (/ &
+ & 0.26271E+02_JPRB,0.29832E+03_JPRB,0.41980E+03_JPRB,0.29991E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,15, 1) = (/ &
+ & 0.26152E+02_JPRB,0.29826E+03_JPRB,0.41876E+03_JPRB,0.29877E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,15, 1) = (/ &
+ & 0.26049E+02_JPRB,0.29814E+03_JPRB,0.41785E+03_JPRB,0.29776E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,15, 1) = (/ &
+ & 0.25958E+02_JPRB,0.29797E+03_JPRB,0.41705E+03_JPRB,0.29688E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,16, 1) = (/ &
+ & 0.26057E+02_JPRB,0.29806E+03_JPRB,0.41793E+03_JPRB,0.29784E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,16, 1) = (/ &
+ & 0.25946E+02_JPRB,0.29807E+03_JPRB,0.41695E+03_JPRB,0.29676E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,16, 1) = (/ &
+ & 0.25851E+02_JPRB,0.29803E+03_JPRB,0.41610E+03_JPRB,0.29583E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,16, 1) = (/ &
+ & 0.25767E+02_JPRB,0.29792E+03_JPRB,0.41536E+03_JPRB,0.29502E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,16, 1) = (/ &
+ & 0.25694E+02_JPRB,0.29776E+03_JPRB,0.41470E+03_JPRB,0.29430E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,17, 1) = (/ &
+ & 0.25772E+02_JPRB,0.29785E+03_JPRB,0.41540E+03_JPRB,0.29506E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,17, 1) = (/ &
+ & 0.25683E+02_JPRB,0.29787E+03_JPRB,0.41460E+03_JPRB,0.29419E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,17, 1) = (/ &
+ & 0.25606E+02_JPRB,0.29784E+03_JPRB,0.41391E+03_JPRB,0.29343E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,17, 1) = (/ &
+ & 0.25538E+02_JPRB,0.29774E+03_JPRB,0.41331E+03_JPRB,0.29277E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,17, 1) = (/ &
+ & 0.25479E+02_JPRB,0.29758E+03_JPRB,0.41278E+03_JPRB,0.29219E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,18, 1) = (/ &
+ & 0.25541E+02_JPRB,0.29768E+03_JPRB,0.41334E+03_JPRB,0.29280E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,18, 1) = (/ &
+ & 0.25469E+02_JPRB,0.29772E+03_JPRB,0.41269E+03_JPRB,0.29209E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,18, 1) = (/ &
+ & 0.25407E+02_JPRB,0.29768E+03_JPRB,0.41213E+03_JPRB,0.29147E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,18, 1) = (/ &
+ & 0.25353E+02_JPRB,0.29758E+03_JPRB,0.41163E+03_JPRB,0.29094E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,18, 1) = (/ &
+ & 0.25305E+02_JPRB,0.29743E+03_JPRB,0.41120E+03_JPRB,0.29046E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,19, 1) = (/ &
+ & 0.25354E+02_JPRB,0.29755E+03_JPRB,0.41165E+03_JPRB,0.29095E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,19, 1) = (/ &
+ & 0.25296E+02_JPRB,0.29758E+03_JPRB,0.41112E+03_JPRB,0.29037E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,19, 1) = (/ &
+ & 0.25245E+02_JPRB,0.29755E+03_JPRB,0.41067E+03_JPRB,0.28988E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,19, 1) = (/ &
+ & 0.25201E+02_JPRB,0.29746E+03_JPRB,0.41027E+03_JPRB,0.28944E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,19, 1) = (/ &
+ & 0.25163E+02_JPRB,0.29730E+03_JPRB,0.40991E+03_JPRB,0.28905E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,20, 1) = (/ &
+ & 0.25201E+02_JPRB,0.29744E+03_JPRB,0.41026E+03_JPRB,0.28943E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,20, 1) = (/ &
+ & 0.25154E+02_JPRB,0.29748E+03_JPRB,0.40984E+03_JPRB,0.28897E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,20, 1) = (/ &
+ & 0.25113E+02_JPRB,0.29745E+03_JPRB,0.40947E+03_JPRB,0.28856E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,20, 1) = (/ &
+ & 0.25078E+02_JPRB,0.29735E+03_JPRB,0.40914E+03_JPRB,0.28821E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,20, 1) = (/ &
+ & 0.25047E+02_JPRB,0.29719E+03_JPRB,0.40886E+03_JPRB,0.28790E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,21, 1) = (/ &
+ & 0.25076E+02_JPRB,0.29736E+03_JPRB,0.40913E+03_JPRB,0.28819E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,21, 1) = (/ &
+ & 0.25039E+02_JPRB,0.29739E+03_JPRB,0.40879E+03_JPRB,0.28782E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,21, 1) = (/ &
+ & 0.25006E+02_JPRB,0.29736E+03_JPRB,0.40849E+03_JPRB,0.28749E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,21, 1) = (/ &
+ & 0.24978E+02_JPRB,0.29726E+03_JPRB,0.40823E+03_JPRB,0.28722E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,21, 1) = (/ &
+ & 0.24952E+02_JPRB,0.29710E+03_JPRB,0.40800E+03_JPRB,0.28695E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,22, 1) = (/ &
+ & 0.24973E+02_JPRB,0.29729E+03_JPRB,0.40819E+03_JPRB,0.28717E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,22, 1) = (/ &
+ & 0.24944E+02_JPRB,0.29732E+03_JPRB,0.40792E+03_JPRB,0.28687E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,22, 1) = (/ &
+ & 0.24917E+02_JPRB,0.29728E+03_JPRB,0.40768E+03_JPRB,0.28661E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,22, 1) = (/ &
+ & 0.24895E+02_JPRB,0.29717E+03_JPRB,0.40747E+03_JPRB,0.28638E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,22, 1) = (/ &
+ & 0.24874E+02_JPRB,0.29700E+03_JPRB,0.40728E+03_JPRB,0.28618E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,23, 1) = (/ &
+ & 0.24890E+02_JPRB,0.29724E+03_JPRB,0.40743E+03_JPRB,0.28634E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,23, 1) = (/ &
+ & 0.24866E+02_JPRB,0.29726E+03_JPRB,0.40721E+03_JPRB,0.28610E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,23, 1) = (/ &
+ & 0.24846E+02_JPRB,0.29721E+03_JPRB,0.40702E+03_JPRB,0.28589E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,23, 1) = (/ &
+ & 0.24827E+02_JPRB,0.29710E+03_JPRB,0.40685E+03_JPRB,0.28571E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,23, 1) = (/ &
+ & 0.24811E+02_JPRB,0.29692E+03_JPRB,0.40671E+03_JPRB,0.28554E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,24, 1) = (/ &
+ & 0.24823E+02_JPRB,0.29721E+03_JPRB,0.40681E+03_JPRB,0.28566E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,24, 1) = (/ &
+ & 0.24804E+02_JPRB,0.29721E+03_JPRB,0.40664E+03_JPRB,0.28547E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,24, 1) = (/ &
+ & 0.24787E+02_JPRB,0.29715E+03_JPRB,0.40649E+03_JPRB,0.28530E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,24, 1) = (/ &
+ & 0.24773E+02_JPRB,0.29703E+03_JPRB,0.40635E+03_JPRB,0.28516E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,24, 1) = (/ &
+ & 0.24760E+02_JPRB,0.29684E+03_JPRB,0.40623E+03_JPRB,0.28503E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,25, 1) = (/ &
+ & 0.24769E+02_JPRB,0.29717E+03_JPRB,0.40631E+03_JPRB,0.28511E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,25, 1) = (/ &
+ & 0.24753E+02_JPRB,0.29717E+03_JPRB,0.40618E+03_JPRB,0.28496E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,25, 1) = (/ &
+ & 0.24740E+02_JPRB,0.29710E+03_JPRB,0.40606E+03_JPRB,0.28483E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,25, 1) = (/ &
+ & 0.24729E+02_JPRB,0.29696E+03_JPRB,0.40595E+03_JPRB,0.28472E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,25, 1) = (/ &
+ & 0.24718E+02_JPRB,0.29676E+03_JPRB,0.40585E+03_JPRB,0.28462E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,26, 1) = (/ &
+ & 0.24724E+02_JPRB,0.29715E+03_JPRB,0.40591E+03_JPRB,0.28467E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,26, 1) = (/ &
+ & 0.24712E+02_JPRB,0.29713E+03_JPRB,0.40580E+03_JPRB,0.28456E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,26, 1) = (/ &
+ & 0.24702E+02_JPRB,0.29704E+03_JPRB,0.40570E+03_JPRB,0.28445E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,26, 1) = (/ &
+ & 0.24693E+02_JPRB,0.29689E+03_JPRB,0.40562E+03_JPRB,0.28435E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,26, 1) = (/ &
+ & 0.24684E+02_JPRB,0.29668E+03_JPRB,0.40554E+03_JPRB,0.28427E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,27, 1) = (/ &
+ & 0.24689E+02_JPRB,0.29713E+03_JPRB,0.40558E+03_JPRB,0.28431E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,27, 1) = (/ &
+ & 0.24679E+02_JPRB,0.29709E+03_JPRB,0.40550E+03_JPRB,0.28422E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,27, 1) = (/ &
+ & 0.24671E+02_JPRB,0.29699E+03_JPRB,0.40542E+03_JPRB,0.28423E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,27, 1) = (/ &
+ & 0.24664E+02_JPRB,0.29683E+03_JPRB,0.40535E+03_JPRB,0.28405E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,27, 1) = (/ &
+ & 0.24657E+02_JPRB,0.29660E+03_JPRB,0.40529E+03_JPRB,0.28399E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,28, 1) = (/ &
+ & 0.24660E+02_JPRB,0.29710E+03_JPRB,0.40532E+03_JPRB,0.28404E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,28, 1) = (/ &
+ & 0.24653E+02_JPRB,0.29706E+03_JPRB,0.40525E+03_JPRB,0.28395E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,28, 1) = (/ &
+ & 0.24646E+02_JPRB,0.29694E+03_JPRB,0.40519E+03_JPRB,0.28389E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,28, 1) = (/ &
+ & 0.24640E+02_JPRB,0.29676E+03_JPRB,0.40514E+03_JPRB,0.28383E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,28, 1) = (/ &
+ & 0.24635E+02_JPRB,0.29651E+03_JPRB,0.40509E+03_JPRB,0.28376E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,29, 1) = (/ &
+ & 0.24637E+02_JPRB,0.29708E+03_JPRB,0.40511E+03_JPRB,0.28380E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,29, 1) = (/ &
+ & 0.24631E+02_JPRB,0.29702E+03_JPRB,0.40505E+03_JPRB,0.28374E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,29, 1) = (/ &
+ & 0.24626E+02_JPRB,0.29689E+03_JPRB,0.40500E+03_JPRB,0.28368E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,29, 1) = (/ &
+ & 0.24621E+02_JPRB,0.29669E+03_JPRB,0.40496E+03_JPRB,0.28364E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,29, 1) = (/ &
+ & 0.24617E+02_JPRB,0.29643E+03_JPRB,0.40492E+03_JPRB,0.28359E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,30, 1) = (/ &
+ & 0.24619E+02_JPRB,0.29706E+03_JPRB,0.40494E+03_JPRB,0.28360E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,30, 1) = (/ &
+ & 0.24614E+02_JPRB,0.29698E+03_JPRB,0.40489E+03_JPRB,0.28355E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,30, 1) = (/ &
+ & 0.24610E+02_JPRB,0.29683E+03_JPRB,0.40485E+03_JPRB,0.28351E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,30, 1) = (/ &
+ & 0.24606E+02_JPRB,0.29662E+03_JPRB,0.40482E+03_JPRB,0.28347E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,30, 1) = (/ &
+ & 0.24603E+02_JPRB,0.29634E+03_JPRB,0.40479E+03_JPRB,0.28344E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,31, 1) = (/ &
+ & 0.24604E+02_JPRB,0.29704E+03_JPRB,0.40480E+03_JPRB,0.28345E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,31, 1) = (/ &
+ & 0.24600E+02_JPRB,0.29694E+03_JPRB,0.40477E+03_JPRB,0.28341E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,31, 1) = (/ &
+ & 0.24597E+02_JPRB,0.29678E+03_JPRB,0.40473E+03_JPRB,0.28338E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,31, 1) = (/ &
+ & 0.24594E+02_JPRB,0.29655E+03_JPRB,0.40471E+03_JPRB,0.28336E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,31, 1) = (/ &
+ & 0.24591E+02_JPRB,0.29625E+03_JPRB,0.40468E+03_JPRB,0.28332E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,32, 1) = (/ &
+ & 0.24592E+02_JPRB,0.29701E+03_JPRB,0.40469E+03_JPRB,0.28333E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,32, 1) = (/ &
+ & 0.24589E+02_JPRB,0.29689E+03_JPRB,0.40466E+03_JPRB,0.28330E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,32, 1) = (/ &
+ & 0.24586E+02_JPRB,0.29672E+03_JPRB,0.40464E+03_JPRB,0.28328E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,32, 1) = (/ &
+ & 0.24584E+02_JPRB,0.29647E+03_JPRB,0.40461E+03_JPRB,0.28324E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,32, 1) = (/ &
+ & 0.24582E+02_JPRB,0.29615E+03_JPRB,0.40459E+03_JPRB,0.28325E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,33, 1) = (/ &
+ & 0.24582E+02_JPRB,0.29698E+03_JPRB,0.40460E+03_JPRB,0.28323E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,33, 1) = (/ &
+ & 0.24580E+02_JPRB,0.29685E+03_JPRB,0.40458E+03_JPRB,0.28321E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,33, 1) = (/ &
+ & 0.24578E+02_JPRB,0.29665E+03_JPRB,0.40456E+03_JPRB,0.28318E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,33, 1) = (/ &
+ & 0.24576E+02_JPRB,0.29639E+03_JPRB,0.40454E+03_JPRB,0.28317E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,33, 1) = (/ &
+ & 0.24574E+02_JPRB,0.29605E+03_JPRB,0.40452E+03_JPRB,0.28315E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,34, 1) = (/ &
+ & 0.24574E+02_JPRB,0.29695E+03_JPRB,0.40453E+03_JPRB,0.28315E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,34, 1) = (/ &
+ & 0.24572E+02_JPRB,0.29680E+03_JPRB,0.40451E+03_JPRB,0.28313E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,34, 1) = (/ &
+ & 0.24571E+02_JPRB,0.29659E+03_JPRB,0.40449E+03_JPRB,0.28312E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,34, 1) = (/ &
+ & 0.24569E+02_JPRB,0.29631E+03_JPRB,0.40448E+03_JPRB,0.28310E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,34, 1) = (/ &
+ & 0.24568E+02_JPRB,0.29596E+03_JPRB,0.40447E+03_JPRB,0.28308E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,35, 1) = (/ &
+ & 0.24568E+02_JPRB,0.29693E+03_JPRB,0.40447E+03_JPRB,0.28309E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,35, 1) = (/ &
+ & 0.24567E+02_JPRB,0.29678E+03_JPRB,0.40446E+03_JPRB,0.28308E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,35, 1) = (/ &
+ & 0.24565E+02_JPRB,0.29656E+03_JPRB,0.40444E+03_JPRB,0.28306E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,35, 1) = (/ &
+ & 0.24564E+02_JPRB,0.29627E+03_JPRB,0.40443E+03_JPRB,0.28305E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,35, 1) = (/ &
+ & 0.24563E+02_JPRB,0.29590E+03_JPRB,0.40442E+03_JPRB,0.28304E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,36, 1) = (/ &
+ & 0.24563E+02_JPRB,0.29692E+03_JPRB,0.40443E+03_JPRB,0.28305E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,36, 1) = (/ &
+ & 0.24562E+02_JPRB,0.29677E+03_JPRB,0.40442E+03_JPRB,0.28304E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,36, 1) = (/ &
+ & 0.24561E+02_JPRB,0.29655E+03_JPRB,0.40440E+03_JPRB,0.28301E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,36, 1) = (/ &
+ & 0.24560E+02_JPRB,0.29626E+03_JPRB,0.40440E+03_JPRB,0.28302E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,36, 1) = (/ &
+ & 0.24559E+02_JPRB,0.29589E+03_JPRB,0.40439E+03_JPRB,0.28301E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,37, 1) = (/ &
+ & 0.24560E+02_JPRB,0.29693E+03_JPRB,0.40439E+03_JPRB,0.28301E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,37, 1) = (/ &
+ & 0.24559E+02_JPRB,0.29679E+03_JPRB,0.40438E+03_JPRB,0.28299E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,37, 1) = (/ &
+ & 0.24558E+02_JPRB,0.29658E+03_JPRB,0.40437E+03_JPRB,0.28299E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,37, 1) = (/ &
+ & 0.24557E+02_JPRB,0.29630E+03_JPRB,0.40437E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,37, 1) = (/ &
+ & 0.24556E+02_JPRB,0.29594E+03_JPRB,0.40436E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,38, 1) = (/ &
+ & 0.24557E+02_JPRB,0.29695E+03_JPRB,0.40436E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,38, 1) = (/ &
+ & 0.24556E+02_JPRB,0.29681E+03_JPRB,0.40436E+03_JPRB,0.28296E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,38, 1) = (/ &
+ & 0.24555E+02_JPRB,0.29661E+03_JPRB,0.40435E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,38, 1) = (/ &
+ & 0.24554E+02_JPRB,0.29634E+03_JPRB,0.40434E+03_JPRB,0.28296E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,38, 1) = (/ &
+ & 0.24554E+02_JPRB,0.29599E+03_JPRB,0.40434E+03_JPRB,0.28294E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,39, 1) = (/ &
+ & 0.24554E+02_JPRB,0.29696E+03_JPRB,0.40434E+03_JPRB,0.28295E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,39, 1) = (/ &
+ & 0.24553E+02_JPRB,0.29683E+03_JPRB,0.40433E+03_JPRB,0.28294E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,39, 1) = (/ &
+ & 0.24553E+02_JPRB,0.29664E+03_JPRB,0.40433E+03_JPRB,0.28293E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,39, 1) = (/ &
+ & 0.24552E+02_JPRB,0.29638E+03_JPRB,0.40432E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,39, 1) = (/ &
+ & 0.24552E+02_JPRB,0.29604E+03_JPRB,0.40432E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,40, 1) = (/ &
+ & 0.24552E+02_JPRB,0.29698E+03_JPRB,0.40432E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,40, 1) = (/ &
+ & 0.24551E+02_JPRB,0.29687E+03_JPRB,0.40432E+03_JPRB,0.28293E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,40, 1) = (/ &
+ & 0.24551E+02_JPRB,0.29669E+03_JPRB,0.40431E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,40, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29645E+03_JPRB,0.40431E+03_JPRB,0.28291E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,40, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29613E+03_JPRB,0.40430E+03_JPRB,0.28291E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,41, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29699E+03_JPRB,0.40431E+03_JPRB,0.28290E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,41, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29690E+03_JPRB,0.40430E+03_JPRB,0.28291E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,41, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29674E+03_JPRB,0.40430E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,41, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29651E+03_JPRB,0.40429E+03_JPRB,0.28290E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,41, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29622E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,42, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29700E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,42, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29693E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,42, 1) = (/ &
+ & 0.24548E+02_JPRB,0.29679E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,42, 1) = (/ &
+ & 0.24548E+02_JPRB,0.29658E+03_JPRB,0.40428E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,42, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29630E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,43, 1) = (/ &
+ & 0.24548E+02_JPRB,0.29701E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29696E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29684E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29665E+03_JPRB,0.40427E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29639E+03_JPRB,0.40427E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,44, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29702E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,44, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29698E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,44, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29688E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,44, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29672E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,44, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29649E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,45, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29701E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,45, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29700E+03_JPRB,0.40426E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,45, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29692E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,45, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29678E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,45, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29657E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29699E+03_JPRB,0.40426E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29701E+03_JPRB,0.40426E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29696E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29684E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29665E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,47, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29696E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,47, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29701E+03_JPRB,0.40425E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,47, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29699E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,47, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29690E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,47, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29674E+03_JPRB,0.40425E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29691E+03_JPRB,0.40425E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29700E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29701E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29694E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29681E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29685E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29698E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29697E+03_JPRB,0.40424E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29687E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,50, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29678E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,50, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29694E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,50, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,50, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29700E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,50, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29692E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29670E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29689E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29699E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29695E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29660E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29684E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29697E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29698E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29648E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29676E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29693E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29700E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29635E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29668E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29688E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29699E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40423E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29622E+03_JPRB,0.40424E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29659E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29683E+03_JPRB,0.40423E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29696E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,56, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29607E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,56, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29649E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,56, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29676E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,56, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29693E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,56, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29700E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,57, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29591E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29637E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29669E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29689E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29699E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29574E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29624E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29660E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29684E+03_JPRB,0.40423E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29697E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29566E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29619E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29657E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29682E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29696E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,13, 2) = (/ &
+ & 0.10177E+03_JPRB,0.32761E+03_JPRB,0.45575E+03_JPRB,0.31335E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,13, 2) = (/ &
+ & 0.10099E+03_JPRB,0.32713E+03_JPRB,0.45383E+03_JPRB,0.31125E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,13, 2) = (/ &
+ & 0.10031E+03_JPRB,0.32663E+03_JPRB,0.45216E+03_JPRB,0.30943E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,13, 2) = (/ &
+ & 0.99721E+02_JPRB,0.32612E+03_JPRB,0.45071E+03_JPRB,0.30785E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,13, 2) = (/ &
+ & 0.99204E+02_JPRB,0.32558E+03_JPRB,0.44942E+03_JPRB,0.30646E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,14, 2) = (/ &
+ & 0.99803E+02_JPRB,0.32613E+03_JPRB,0.45091E+03_JPRB,0.30807E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,14, 2) = (/ &
+ & 0.99169E+02_JPRB,0.32574E+03_JPRB,0.44934E+03_JPRB,0.30636E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,14, 2) = (/ &
+ & 0.98622E+02_JPRB,0.32534E+03_JPRB,0.44797E+03_JPRB,0.30489E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,14, 2) = (/ &
+ & 0.98146E+02_JPRB,0.32491E+03_JPRB,0.44677E+03_JPRB,0.30362E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,14, 2) = (/ &
+ & 0.97728E+02_JPRB,0.32444E+03_JPRB,0.44571E+03_JPRB,0.30248E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,15, 2) = (/ &
+ & 0.98198E+02_JPRB,0.32493E+03_JPRB,0.44690E+03_JPRB,0.30375E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,15, 2) = (/ &
+ & 0.97687E+02_JPRB,0.32462E+03_JPRB,0.44560E+03_JPRB,0.30237E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,15, 2) = (/ &
+ & 0.97245E+02_JPRB,0.32429E+03_JPRB,0.44448E+03_JPRB,0.30119E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,15, 2) = (/ &
+ & 0.96861E+02_JPRB,0.32392E+03_JPRB,0.44350E+03_JPRB,0.30014E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,15, 2) = (/ &
+ & 0.96523E+02_JPRB,0.32350E+03_JPRB,0.44263E+03_JPRB,0.29923E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,16, 2) = (/ &
+ & 0.96892E+02_JPRB,0.32395E+03_JPRB,0.44358E+03_JPRB,0.30023E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,16, 2) = (/ &
+ & 0.96480E+02_JPRB,0.32371E+03_JPRB,0.44252E+03_JPRB,0.29912E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,16, 2) = (/ &
+ & 0.96125E+02_JPRB,0.32343E+03_JPRB,0.44161E+03_JPRB,0.29817E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,16, 2) = (/ &
+ & 0.95814E+02_JPRB,0.32311E+03_JPRB,0.44081E+03_JPRB,0.29733E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,16, 2) = (/ &
+ & 0.95541E+02_JPRB,0.32273E+03_JPRB,0.44010E+03_JPRB,0.29661E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,17, 2) = (/ &
+ & 0.95833E+02_JPRB,0.32316E+03_JPRB,0.44086E+03_JPRB,0.29737E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,17, 2) = (/ &
+ & 0.95501E+02_JPRB,0.32297E+03_JPRB,0.44000E+03_JPRB,0.29648E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,17, 2) = (/ &
+ & 0.95214E+02_JPRB,0.32274E+03_JPRB,0.43925E+03_JPRB,0.29569E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,17, 2) = (/ &
+ & 0.94964E+02_JPRB,0.32245E+03_JPRB,0.43860E+03_JPRB,0.29502E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,17, 2) = (/ &
+ & 0.94743E+02_JPRB,0.32210E+03_JPRB,0.43803E+03_JPRB,0.29442E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,18, 2) = (/ &
+ & 0.94974E+02_JPRB,0.32251E+03_JPRB,0.43863E+03_JPRB,0.29504E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,18, 2) = (/ &
+ & 0.94707E+02_JPRB,0.32236E+03_JPRB,0.43793E+03_JPRB,0.29432E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,18, 2) = (/ &
+ & 0.94475E+02_JPRB,0.32217E+03_JPRB,0.43733E+03_JPRB,0.29369E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,18, 2) = (/ &
+ & 0.94272E+02_JPRB,0.32191E+03_JPRB,0.43680E+03_JPRB,0.29315E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,18, 2) = (/ &
+ & 0.94094E+02_JPRB,0.32158E+03_JPRB,0.43633E+03_JPRB,0.29267E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,19, 2) = (/ &
+ & 0.94277E+02_JPRB,0.32199E+03_JPRB,0.43681E+03_JPRB,0.29316E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,19, 2) = (/ &
+ & 0.94061E+02_JPRB,0.32187E+03_JPRB,0.43624E+03_JPRB,0.29258E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,19, 2) = (/ &
+ & 0.93874E+02_JPRB,0.32170E+03_JPRB,0.43575E+03_JPRB,0.29207E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,19, 2) = (/ &
+ & 0.93711E+02_JPRB,0.32146E+03_JPRB,0.43532E+03_JPRB,0.29164E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,19, 2) = (/ &
+ & 0.93566E+02_JPRB,0.32115E+03_JPRB,0.43494E+03_JPRB,0.29125E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,20, 2) = (/ &
+ & 0.93708E+02_JPRB,0.32157E+03_JPRB,0.43531E+03_JPRB,0.29163E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,20, 2) = (/ &
+ & 0.93534E+02_JPRB,0.32147E+03_JPRB,0.43485E+03_JPRB,0.29117E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,20, 2) = (/ &
+ & 0.93383E+02_JPRB,0.32132E+03_JPRB,0.43445E+03_JPRB,0.29076E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,20, 2) = (/ &
+ & 0.93251E+02_JPRB,0.32109E+03_JPRB,0.43411E+03_JPRB,0.29041E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,20, 2) = (/ &
+ & 0.93135E+02_JPRB,0.32079E+03_JPRB,0.43380E+03_JPRB,0.29010E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,21, 2) = (/ &
+ & 0.93246E+02_JPRB,0.32122E+03_JPRB,0.43409E+03_JPRB,0.29040E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,21, 2) = (/ &
+ & 0.93106E+02_JPRB,0.32114E+03_JPRB,0.43372E+03_JPRB,0.29003E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,21, 2) = (/ &
+ & 0.92985E+02_JPRB,0.32100E+03_JPRB,0.43340E+03_JPRB,0.28970E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,21, 2) = (/ &
+ & 0.92878E+02_JPRB,0.32079E+03_JPRB,0.43311E+03_JPRB,0.28941E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,21, 2) = (/ &
+ & 0.92784E+02_JPRB,0.32049E+03_JPRB,0.43286E+03_JPRB,0.28917E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,22, 2) = (/ &
+ & 0.92863E+02_JPRB,0.32094E+03_JPRB,0.43307E+03_JPRB,0.28938E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,22, 2) = (/ &
+ & 0.92751E+02_JPRB,0.32087E+03_JPRB,0.43278E+03_JPRB,0.28908E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,22, 2) = (/ &
+ & 0.92655E+02_JPRB,0.32073E+03_JPRB,0.43252E+03_JPRB,0.28882E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,22, 2) = (/ &
+ & 0.92569E+02_JPRB,0.32051E+03_JPRB,0.43229E+03_JPRB,0.28860E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,22, 2) = (/ &
+ & 0.92494E+02_JPRB,0.32022E+03_JPRB,0.43209E+03_JPRB,0.28840E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,23, 2) = (/ &
+ & 0.92553E+02_JPRB,0.32072E+03_JPRB,0.43225E+03_JPRB,0.28855E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,23, 2) = (/ &
+ & 0.92465E+02_JPRB,0.32064E+03_JPRB,0.43201E+03_JPRB,0.28832E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,23, 2) = (/ &
+ & 0.92387E+02_JPRB,0.32050E+03_JPRB,0.43180E+03_JPRB,0.28811E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,23, 2) = (/ &
+ & 0.92319E+02_JPRB,0.32029E+03_JPRB,0.43162E+03_JPRB,0.28793E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,23, 2) = (/ &
+ & 0.92259E+02_JPRB,0.31998E+03_JPRB,0.43146E+03_JPRB,0.28778E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,24, 2) = (/ &
+ & 0.92303E+02_JPRB,0.32053E+03_JPRB,0.43158E+03_JPRB,0.28789E+03_JPRB,0.71839E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,24, 2) = (/ &
+ & 0.92233E+02_JPRB,0.32046E+03_JPRB,0.43139E+03_JPRB,0.28770E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,24, 2) = (/ &
+ & 0.92171E+02_JPRB,0.32031E+03_JPRB,0.43122E+03_JPRB,0.28754E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,24, 2) = (/ &
+ & 0.92117E+02_JPRB,0.32009E+03_JPRB,0.43108E+03_JPRB,0.28740E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,24, 2) = (/ &
+ & 0.92068E+02_JPRB,0.31978E+03_JPRB,0.43095E+03_JPRB,0.28727E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,25, 2) = (/ &
+ & 0.92101E+02_JPRB,0.32038E+03_JPRB,0.43103E+03_JPRB,0.28736E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,25, 2) = (/ &
+ & 0.92045E+02_JPRB,0.32030E+03_JPRB,0.43088E+03_JPRB,0.28721E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,25, 2) = (/ &
+ & 0.91996E+02_JPRB,0.32015E+03_JPRB,0.43075E+03_JPRB,0.28708E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,25, 2) = (/ &
+ & 0.91952E+02_JPRB,0.31991E+03_JPRB,0.43064E+03_JPRB,0.28696E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,25, 2) = (/ &
+ & 0.91914E+02_JPRB,0.31959E+03_JPRB,0.43053E+03_JPRB,0.28684E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,26, 2) = (/ &
+ & 0.91937E+02_JPRB,0.32025E+03_JPRB,0.43059E+03_JPRB,0.28693E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,26, 2) = (/ &
+ & 0.91892E+02_JPRB,0.32016E+03_JPRB,0.43047E+03_JPRB,0.28680E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,26, 2) = (/ &
+ & 0.91853E+02_JPRB,0.32000E+03_JPRB,0.43037E+03_JPRB,0.28670E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,26, 2) = (/ &
+ & 0.91819E+02_JPRB,0.31975E+03_JPRB,0.43028E+03_JPRB,0.28661E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,26, 2) = (/ &
+ & 0.91788E+02_JPRB,0.31942E+03_JPRB,0.43019E+03_JPRB,0.28653E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,27, 2) = (/ &
+ & 0.91805E+02_JPRB,0.32015E+03_JPRB,0.43024E+03_JPRB,0.28658E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,27, 2) = (/ &
+ & 0.91770E+02_JPRB,0.32005E+03_JPRB,0.43014E+03_JPRB,0.28648E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,27, 2) = (/ &
+ & 0.91738E+02_JPRB,0.31986E+03_JPRB,0.43006E+03_JPRB,0.28630E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,27, 2) = (/ &
+ & 0.91711E+02_JPRB,0.31960E+03_JPRB,0.42998E+03_JPRB,0.28633E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,27, 2) = (/ &
+ & 0.91687E+02_JPRB,0.31925E+03_JPRB,0.42992E+03_JPRB,0.28626E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,28, 2) = (/ &
+ & 0.91698E+02_JPRB,0.32005E+03_JPRB,0.42995E+03_JPRB,0.28628E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,28, 2) = (/ &
+ & 0.91670E+02_JPRB,0.31994E+03_JPRB,0.42987E+03_JPRB,0.28622E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,28, 2) = (/ &
+ & 0.91646E+02_JPRB,0.31974E+03_JPRB,0.42981E+03_JPRB,0.28615E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,28, 2) = (/ &
+ & 0.91624E+02_JPRB,0.31946E+03_JPRB,0.42975E+03_JPRB,0.28609E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,28, 2) = (/ &
+ & 0.91604E+02_JPRB,0.31910E+03_JPRB,0.42970E+03_JPRB,0.28605E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,29, 2) = (/ &
+ & 0.91613E+02_JPRB,0.31997E+03_JPRB,0.42972E+03_JPRB,0.28605E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,29, 2) = (/ &
+ & 0.91591E+02_JPRB,0.31984E+03_JPRB,0.42966E+03_JPRB,0.28600E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,29, 2) = (/ &
+ & 0.91571E+02_JPRB,0.31963E+03_JPRB,0.42960E+03_JPRB,0.28595E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,29, 2) = (/ &
+ & 0.91554E+02_JPRB,0.31933E+03_JPRB,0.42956E+03_JPRB,0.28590E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,29, 2) = (/ &
+ & 0.91538E+02_JPRB,0.31895E+03_JPRB,0.42952E+03_JPRB,0.28586E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,30, 2) = (/ &
+ & 0.91544E+02_JPRB,0.31990E+03_JPRB,0.42953E+03_JPRB,0.28589E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,30, 2) = (/ &
+ & 0.91526E+02_JPRB,0.31975E+03_JPRB,0.42948E+03_JPRB,0.28584E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,30, 2) = (/ &
+ & 0.91511E+02_JPRB,0.31952E+03_JPRB,0.42944E+03_JPRB,0.28580E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,30, 2) = (/ &
+ & 0.91497E+02_JPRB,0.31920E+03_JPRB,0.42940E+03_JPRB,0.28577E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,30, 2) = (/ &
+ & 0.91484E+02_JPRB,0.31880E+03_JPRB,0.42937E+03_JPRB,0.28573E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,31, 2) = (/ &
+ & 0.91488E+02_JPRB,0.31983E+03_JPRB,0.42938E+03_JPRB,0.28574E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,31, 2) = (/ &
+ & 0.91474E+02_JPRB,0.31966E+03_JPRB,0.42934E+03_JPRB,0.28571E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,31, 2) = (/ &
+ & 0.91462E+02_JPRB,0.31941E+03_JPRB,0.42931E+03_JPRB,0.28567E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,31, 2) = (/ &
+ & 0.91451E+02_JPRB,0.31908E+03_JPRB,0.42928E+03_JPRB,0.28564E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,31, 2) = (/ &
+ & 0.91441E+02_JPRB,0.31866E+03_JPRB,0.42925E+03_JPRB,0.28562E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,32, 2) = (/ &
+ & 0.91443E+02_JPRB,0.31976E+03_JPRB,0.42926E+03_JPRB,0.28562E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,32, 2) = (/ &
+ & 0.91432E+02_JPRB,0.31958E+03_JPRB,0.42923E+03_JPRB,0.28559E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,32, 2) = (/ &
+ & 0.91423E+02_JPRB,0.31930E+03_JPRB,0.42920E+03_JPRB,0.28557E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,32, 2) = (/ &
+ & 0.91414E+02_JPRB,0.31895E+03_JPRB,0.42918E+03_JPRB,0.28555E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,32, 2) = (/ &
+ & 0.91406E+02_JPRB,0.31851E+03_JPRB,0.42916E+03_JPRB,0.28551E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,33, 2) = (/ &
+ & 0.91407E+02_JPRB,0.31970E+03_JPRB,0.42916E+03_JPRB,0.28553E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,33, 2) = (/ &
+ & 0.91399E+02_JPRB,0.31949E+03_JPRB,0.42914E+03_JPRB,0.28551E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,33, 2) = (/ &
+ & 0.91391E+02_JPRB,0.31920E+03_JPRB,0.42912E+03_JPRB,0.28549E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,33, 2) = (/ &
+ & 0.91384E+02_JPRB,0.31882E+03_JPRB,0.42910E+03_JPRB,0.28547E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,33, 2) = (/ &
+ & 0.91378E+02_JPRB,0.31837E+03_JPRB,0.42908E+03_JPRB,0.28546E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,34, 2) = (/ &
+ & 0.91379E+02_JPRB,0.31964E+03_JPRB,0.42908E+03_JPRB,0.28546E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,34, 2) = (/ &
+ & 0.91372E+02_JPRB,0.31941E+03_JPRB,0.42906E+03_JPRB,0.28544E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,34, 2) = (/ &
+ & 0.91365E+02_JPRB,0.31910E+03_JPRB,0.42905E+03_JPRB,0.28542E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,34, 2) = (/ &
+ & 0.91360E+02_JPRB,0.31871E+03_JPRB,0.42903E+03_JPRB,0.28541E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,34, 2) = (/ &
+ & 0.91355E+02_JPRB,0.31824E+03_JPRB,0.42902E+03_JPRB,0.28540E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,35, 2) = (/ &
+ & 0.91356E+02_JPRB,0.31960E+03_JPRB,0.42902E+03_JPRB,0.28539E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,35, 2) = (/ &
+ & 0.91350E+02_JPRB,0.31936E+03_JPRB,0.42901E+03_JPRB,0.28538E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,35, 2) = (/ &
+ & 0.91345E+02_JPRB,0.31904E+03_JPRB,0.42899E+03_JPRB,0.28537E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,35, 2) = (/ &
+ & 0.91341E+02_JPRB,0.31863E+03_JPRB,0.42898E+03_JPRB,0.28535E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,35, 2) = (/ &
+ & 0.91337E+02_JPRB,0.31816E+03_JPRB,0.42897E+03_JPRB,0.28535E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,36, 2) = (/ &
+ & 0.91338E+02_JPRB,0.31958E+03_JPRB,0.42897E+03_JPRB,0.28535E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,36, 2) = (/ &
+ & 0.91334E+02_JPRB,0.31934E+03_JPRB,0.42896E+03_JPRB,0.28533E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,36, 2) = (/ &
+ & 0.91330E+02_JPRB,0.31902E+03_JPRB,0.42895E+03_JPRB,0.28533E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,36, 2) = (/ &
+ & 0.91326E+02_JPRB,0.31862E+03_JPRB,0.42894E+03_JPRB,0.28530E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,36, 2) = (/ &
+ & 0.91323E+02_JPRB,0.31814E+03_JPRB,0.42893E+03_JPRB,0.28530E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,37, 2) = (/ &
+ & 0.91324E+02_JPRB,0.31959E+03_JPRB,0.42894E+03_JPRB,0.28531E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,37, 2) = (/ &
+ & 0.91320E+02_JPRB,0.31937E+03_JPRB,0.42893E+03_JPRB,0.28530E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,37, 2) = (/ &
+ & 0.91317E+02_JPRB,0.31906E+03_JPRB,0.42892E+03_JPRB,0.28529E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,37, 2) = (/ &
+ & 0.91314E+02_JPRB,0.31866E+03_JPRB,0.42891E+03_JPRB,0.28529E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,37, 2) = (/ &
+ & 0.91311E+02_JPRB,0.31819E+03_JPRB,0.42890E+03_JPRB,0.28527E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,38, 2) = (/ &
+ & 0.91313E+02_JPRB,0.31961E+03_JPRB,0.42890E+03_JPRB,0.28528E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,38, 2) = (/ &
+ & 0.91310E+02_JPRB,0.31939E+03_JPRB,0.42890E+03_JPRB,0.28528E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,38, 2) = (/ &
+ & 0.91307E+02_JPRB,0.31910E+03_JPRB,0.42889E+03_JPRB,0.28526E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,38, 2) = (/ &
+ & 0.91304E+02_JPRB,0.31871E+03_JPRB,0.42888E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,38, 2) = (/ &
+ & 0.91302E+02_JPRB,0.31826E+03_JPRB,0.42888E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,39, 2) = (/ &
+ & 0.91303E+02_JPRB,0.31962E+03_JPRB,0.42888E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,39, 2) = (/ &
+ & 0.91301E+02_JPRB,0.31942E+03_JPRB,0.42887E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,39, 2) = (/ &
+ & 0.91298E+02_JPRB,0.31914E+03_JPRB,0.42886E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,39, 2) = (/ &
+ & 0.91296E+02_JPRB,0.31877E+03_JPRB,0.42886E+03_JPRB,0.28524E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,39, 2) = (/ &
+ & 0.91294E+02_JPRB,0.31832E+03_JPRB,0.42885E+03_JPRB,0.28523E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,40, 2) = (/ &
+ & 0.91296E+02_JPRB,0.31965E+03_JPRB,0.42886E+03_JPRB,0.28524E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,40, 2) = (/ &
+ & 0.91293E+02_JPRB,0.31947E+03_JPRB,0.42885E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,40, 2) = (/ &
+ & 0.91292E+02_JPRB,0.31921E+03_JPRB,0.42885E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,40, 2) = (/ &
+ & 0.91290E+02_JPRB,0.31886E+03_JPRB,0.42884E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,40, 2) = (/ &
+ & 0.91288E+02_JPRB,0.31843E+03_JPRB,0.42884E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,41, 2) = (/ &
+ & 0.91289E+02_JPRB,0.31968E+03_JPRB,0.42884E+03_JPRB,0.28523E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,41, 2) = (/ &
+ & 0.91288E+02_JPRB,0.31952E+03_JPRB,0.42884E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,41, 2) = (/ &
+ & 0.91286E+02_JPRB,0.31928E+03_JPRB,0.42883E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,41, 2) = (/ &
+ & 0.91284E+02_JPRB,0.31895E+03_JPRB,0.42883E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,41, 2) = (/ &
+ & 0.91283E+02_JPRB,0.31854E+03_JPRB,0.42882E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,42, 2) = (/ &
+ & 0.91284E+02_JPRB,0.31970E+03_JPRB,0.42883E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,42, 2) = (/ &
+ & 0.91283E+02_JPRB,0.31957E+03_JPRB,0.42882E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,42, 2) = (/ &
+ & 0.91281E+02_JPRB,0.31934E+03_JPRB,0.42882E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,42, 2) = (/ &
+ & 0.91280E+02_JPRB,0.31904E+03_JPRB,0.42882E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,42, 2) = (/ &
+ & 0.91279E+02_JPRB,0.31865E+03_JPRB,0.42881E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,43, 2) = (/ &
+ & 0.91280E+02_JPRB,0.31972E+03_JPRB,0.42882E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,43, 2) = (/ &
+ & 0.91279E+02_JPRB,0.31961E+03_JPRB,0.42881E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,43, 2) = (/ &
+ & 0.91277E+02_JPRB,0.31942E+03_JPRB,0.42881E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,43, 2) = (/ &
+ & 0.91276E+02_JPRB,0.31914E+03_JPRB,0.42881E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,43, 2) = (/ &
+ & 0.91275E+02_JPRB,0.31878E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,44, 2) = (/ &
+ & 0.91276E+02_JPRB,0.31974E+03_JPRB,0.42881E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,44, 2) = (/ &
+ & 0.91275E+02_JPRB,0.31966E+03_JPRB,0.42880E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,44, 2) = (/ &
+ & 0.91274E+02_JPRB,0.31949E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,44, 2) = (/ &
+ & 0.91273E+02_JPRB,0.31924E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,44, 2) = (/ &
+ & 0.91273E+02_JPRB,0.31890E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,45, 2) = (/ &
+ & 0.91274E+02_JPRB,0.31974E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,45, 2) = (/ &
+ & 0.91273E+02_JPRB,0.31969E+03_JPRB,0.42880E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,45, 2) = (/ &
+ & 0.91272E+02_JPRB,0.31955E+03_JPRB,0.42879E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,45, 2) = (/ &
+ & 0.91271E+02_JPRB,0.31933E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,45, 2) = (/ &
+ & 0.91270E+02_JPRB,0.31903E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,46, 2) = (/ &
+ & 0.91271E+02_JPRB,0.31974E+03_JPRB,0.42879E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,46, 2) = (/ &
+ & 0.91270E+02_JPRB,0.31972E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,46, 2) = (/ &
+ & 0.91270E+02_JPRB,0.31961E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,46, 2) = (/ &
+ & 0.91269E+02_JPRB,0.31942E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,46, 2) = (/ &
+ & 0.91268E+02_JPRB,0.31914E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,47, 2) = (/ &
+ & 0.91269E+02_JPRB,0.31973E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,47, 2) = (/ &
+ & 0.91268E+02_JPRB,0.31974E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,47, 2) = (/ &
+ & 0.91268E+02_JPRB,0.31966E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,47, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31951E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,47, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31926E+03_JPRB,0.42878E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,48, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31970E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,48, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31974E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,48, 2) = (/ &
+ & 0.91266E+02_JPRB,0.31970E+03_JPRB,0.42878E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,48, 2) = (/ &
+ & 0.91266E+02_JPRB,0.31958E+03_JPRB,0.42878E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,48, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31937E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,49, 2) = (/ &
+ & 0.91266E+02_JPRB,0.31966E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,49, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31973E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,49, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31973E+03_JPRB,0.42877E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,49, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31964E+03_JPRB,0.42878E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,49, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31946E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,50, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31962E+03_JPRB,0.42877E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,50, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31972E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,50, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31974E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,50, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31968E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,50, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31954E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,51, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31958E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,51, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31969E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,51, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31974E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,51, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31971E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,51, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31960E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,52, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31953E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,52, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31965E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,52, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31973E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,52, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31973E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,52, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31965E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,53, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31948E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,53, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31961E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,53, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31971E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,53, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31974E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,53, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31969E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,54, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31942E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31957E+03_JPRB,0.42877E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31968E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31971E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31937E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31953E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31965E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,55, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,56, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31932E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31947E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31961E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31971E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31974E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31927E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31943E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31957E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31968E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31974E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31922E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31938E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31953E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31965E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,59, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31920E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,59, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31936E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,59, 2) = (/ &
+ & 0.91259E+02_JPRB,0.31952E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,59, 2) = (/ &
+ & 0.91259E+02_JPRB,0.31964E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,59, 2) = (/ &
+ & 0.91259E+02_JPRB,0.31972E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,13, 3) = (/ &
+ & 0.26463E+03_JPRB,0.36163E+03_JPRB,0.49889E+03_JPRB,0.32504E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,13, 3) = (/ &
+ & 0.26258E+03_JPRB,0.36010E+03_JPRB,0.49695E+03_JPRB,0.32345E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,13, 3) = (/ &
+ & 0.26083E+03_JPRB,0.35879E+03_JPRB,0.49519E+03_JPRB,0.32209E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,13, 3) = (/ &
+ & 0.25930E+03_JPRB,0.35766E+03_JPRB,0.49360E+03_JPRB,0.32093E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,13, 3) = (/ &
+ & 0.25795E+03_JPRB,0.35666E+03_JPRB,0.49217E+03_JPRB,0.31991E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,14, 3) = (/ &
+ & 0.25951E+03_JPRB,0.35782E+03_JPRB,0.49358E+03_JPRB,0.32109E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,14, 3) = (/ &
+ & 0.25786E+03_JPRB,0.35659E+03_JPRB,0.49191E+03_JPRB,0.31984E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,14, 3) = (/ &
+ & 0.25644E+03_JPRB,0.35554E+03_JPRB,0.49043E+03_JPRB,0.31877E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,14, 3) = (/ &
+ & 0.25520E+03_JPRB,0.35461E+03_JPRB,0.48912E+03_JPRB,0.31784E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,14, 3) = (/ &
+ & 0.25411E+03_JPRB,0.35381E+03_JPRB,0.48795E+03_JPRB,0.31704E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,15, 3) = (/ &
+ & 0.25534E+03_JPRB,0.35471E+03_JPRB,0.48908E+03_JPRB,0.31794E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,15, 3) = (/ &
+ & 0.25401E+03_JPRB,0.35373E+03_JPRB,0.48771E+03_JPRB,0.31695E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,15, 3) = (/ &
+ & 0.25286E+03_JPRB,0.35287E+03_JPRB,0.48651E+03_JPRB,0.31610E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,15, 3) = (/ &
+ & 0.25186E+03_JPRB,0.35213E+03_JPRB,0.48543E+03_JPRB,0.31537E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,15, 3) = (/ &
+ & 0.25098E+03_JPRB,0.35147E+03_JPRB,0.48447E+03_JPRB,0.31472E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,16, 3) = (/ &
+ & 0.25194E+03_JPRB,0.35219E+03_JPRB,0.48538E+03_JPRB,0.31543E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,16, 3) = (/ &
+ & 0.25087E+03_JPRB,0.35140E+03_JPRB,0.48427E+03_JPRB,0.31463E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,16, 3) = (/ &
+ & 0.24994E+03_JPRB,0.35071E+03_JPRB,0.48328E+03_JPRB,0.31395E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,16, 3) = (/ &
+ & 0.24914E+03_JPRB,0.35011E+03_JPRB,0.48239E+03_JPRB,0.31337E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,16, 3) = (/ &
+ & 0.24843E+03_JPRB,0.34958E+03_JPRB,0.48159E+03_JPRB,0.31282E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,17, 3) = (/ &
+ & 0.24919E+03_JPRB,0.35014E+03_JPRB,0.48236E+03_JPRB,0.31341E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,17, 3) = (/ &
+ & 0.24832E+03_JPRB,0.34950E+03_JPRB,0.48145E+03_JPRB,0.31278E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,17, 3) = (/ &
+ & 0.24758E+03_JPRB,0.34895E+03_JPRB,0.48063E+03_JPRB,0.31225E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,17, 3) = (/ &
+ & 0.24693E+03_JPRB,0.34847E+03_JPRB,0.47989E+03_JPRB,0.31178E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,17, 3) = (/ &
+ & 0.24635E+03_JPRB,0.34804E+03_JPRB,0.47924E+03_JPRB,0.31137E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,18, 3) = (/ &
+ & 0.24695E+03_JPRB,0.34848E+03_JPRB,0.47988E+03_JPRB,0.31180E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,18, 3) = (/ &
+ & 0.24626E+03_JPRB,0.34797E+03_JPRB,0.47913E+03_JPRB,0.31130E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,18, 3) = (/ &
+ & 0.24565E+03_JPRB,0.34752E+03_JPRB,0.47845E+03_JPRB,0.31086E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,18, 3) = (/ &
+ & 0.24513E+03_JPRB,0.34713E+03_JPRB,0.47784E+03_JPRB,0.31048E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,18, 3) = (/ &
+ & 0.24466E+03_JPRB,0.34679E+03_JPRB,0.47731E+03_JPRB,0.31015E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,19, 3) = (/ &
+ & 0.24514E+03_JPRB,0.34714E+03_JPRB,0.47784E+03_JPRB,0.31049E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,19, 3) = (/ &
+ & 0.24458E+03_JPRB,0.34672E+03_JPRB,0.47721E+03_JPRB,0.31009E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,19, 3) = (/ &
+ & 0.24409E+03_JPRB,0.34636E+03_JPRB,0.47665E+03_JPRB,0.30974E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,19, 3) = (/ &
+ & 0.24367E+03_JPRB,0.34605E+03_JPRB,0.47616E+03_JPRB,0.30943E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,19, 3) = (/ &
+ & 0.24329E+03_JPRB,0.34577E+03_JPRB,0.47573E+03_JPRB,0.30916E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,20, 3) = (/ &
+ & 0.24366E+03_JPRB,0.34604E+03_JPRB,0.47615E+03_JPRB,0.30943E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,20, 3) = (/ &
+ & 0.24321E+03_JPRB,0.34571E+03_JPRB,0.47563E+03_JPRB,0.30910E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,20, 3) = (/ &
+ & 0.24282E+03_JPRB,0.34542E+03_JPRB,0.47518E+03_JPRB,0.30882E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,20, 3) = (/ &
+ & 0.24247E+03_JPRB,0.34516E+03_JPRB,0.47478E+03_JPRB,0.30857E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,20, 3) = (/ &
+ & 0.24217E+03_JPRB,0.34494E+03_JPRB,0.47443E+03_JPRB,0.30835E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,21, 3) = (/ &
+ & 0.24246E+03_JPRB,0.34515E+03_JPRB,0.47476E+03_JPRB,0.30856E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,21, 3) = (/ &
+ & 0.24210E+03_JPRB,0.34488E+03_JPRB,0.47434E+03_JPRB,0.30830E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,21, 3) = (/ &
+ & 0.24178E+03_JPRB,0.34465E+03_JPRB,0.47397E+03_JPRB,0.30807E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,21, 3) = (/ &
+ & 0.24150E+03_JPRB,0.34444E+03_JPRB,0.47364E+03_JPRB,0.30787E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,21, 3) = (/ &
+ & 0.24126E+03_JPRB,0.34426E+03_JPRB,0.47341E+03_JPRB,0.30769E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,22, 3) = (/ &
+ & 0.24146E+03_JPRB,0.34441E+03_JPRB,0.47360E+03_JPRB,0.30784E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,22, 3) = (/ &
+ & 0.24117E+03_JPRB,0.34420E+03_JPRB,0.47327E+03_JPRB,0.30763E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,22, 3) = (/ &
+ & 0.24092E+03_JPRB,0.34401E+03_JPRB,0.47296E+03_JPRB,0.30745E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,22, 3) = (/ &
+ & 0.24070E+03_JPRB,0.34385E+03_JPRB,0.47270E+03_JPRB,0.30729E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,22, 3) = (/ &
+ & 0.24050E+03_JPRB,0.34370E+03_JPRB,0.47246E+03_JPRB,0.30715E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,23, 3) = (/ &
+ & 0.24066E+03_JPRB,0.34382E+03_JPRB,0.47265E+03_JPRB,0.30726E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,23, 3) = (/ &
+ & 0.24043E+03_JPRB,0.34365E+03_JPRB,0.47237E+03_JPRB,0.30709E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,23, 3) = (/ &
+ & 0.24023E+03_JPRB,0.34350E+03_JPRB,0.47213E+03_JPRB,0.30695E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,23, 3) = (/ &
+ & 0.24005E+03_JPRB,0.34336E+03_JPRB,0.47191E+03_JPRB,0.30682E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,23, 3) = (/ &
+ & 0.23989E+03_JPRB,0.34325E+03_JPRB,0.47173E+03_JPRB,0.30671E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,24, 3) = (/ &
+ & 0.24001E+03_JPRB,0.34333E+03_JPRB,0.47187E+03_JPRB,0.30679E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,24, 3) = (/ &
+ & 0.23982E+03_JPRB,0.34320E+03_JPRB,0.47164E+03_JPRB,0.30666E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,24, 3) = (/ &
+ & 0.23966E+03_JPRB,0.34308E+03_JPRB,0.47145E+03_JPRB,0.30654E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,24, 3) = (/ &
+ & 0.23952E+03_JPRB,0.34297E+03_JPRB,0.47128E+03_JPRB,0.30644E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,24, 3) = (/ &
+ & 0.23940E+03_JPRB,0.34288E+03_JPRB,0.47113E+03_JPRB,0.30635E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,25, 3) = (/ &
+ & 0.23948E+03_JPRB,0.34294E+03_JPRB,0.47124E+03_JPRB,0.30641E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,25, 3) = (/ &
+ & 0.23934E+03_JPRB,0.34284E+03_JPRB,0.47105E+03_JPRB,0.30631E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,25, 3) = (/ &
+ & 0.23921E+03_JPRB,0.34274E+03_JPRB,0.47089E+03_JPRB,0.30622E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,25, 3) = (/ &
+ & 0.23910E+03_JPRB,0.34266E+03_JPRB,0.47075E+03_JPRB,0.30613E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,25, 3) = (/ &
+ & 0.23900E+03_JPRB,0.34258E+03_JPRB,0.47063E+03_JPRB,0.30606E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,26, 3) = (/ &
+ & 0.23906E+03_JPRB,0.34263E+03_JPRB,0.47070E+03_JPRB,0.30610E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,26, 3) = (/ &
+ & 0.23894E+03_JPRB,0.34254E+03_JPRB,0.47056E+03_JPRB,0.30602E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,26, 3) = (/ &
+ & 0.23884E+03_JPRB,0.34247E+03_JPRB,0.47044E+03_JPRB,0.30595E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,26, 3) = (/ &
+ & 0.23875E+03_JPRB,0.34240E+03_JPRB,0.47033E+03_JPRB,0.30588E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,26, 3) = (/ &
+ & 0.23867E+03_JPRB,0.34234E+03_JPRB,0.47023E+03_JPRB,0.30583E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,27, 3) = (/ &
+ & 0.23871E+03_JPRB,0.34237E+03_JPRB,0.47028E+03_JPRB,0.30586E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,27, 3) = (/ &
+ & 0.23862E+03_JPRB,0.34230E+03_JPRB,0.47017E+03_JPRB,0.30579E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,27, 3) = (/ &
+ & 0.23854E+03_JPRB,0.34225E+03_JPRB,0.47007E+03_JPRB,0.30573E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,27, 3) = (/ &
+ & 0.23847E+03_JPRB,0.34219E+03_JPRB,0.46998E+03_JPRB,0.30568E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,27, 3) = (/ &
+ & 0.23840E+03_JPRB,0.34214E+03_JPRB,0.46990E+03_JPRB,0.30564E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,28, 3) = (/ &
+ & 0.23844E+03_JPRB,0.34217E+03_JPRB,0.46994E+03_JPRB,0.30566E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,28, 3) = (/ &
+ & 0.23836E+03_JPRB,0.34211E+03_JPRB,0.46985E+03_JPRB,0.30561E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,28, 3) = (/ &
+ & 0.23830E+03_JPRB,0.34207E+03_JPRB,0.46977E+03_JPRB,0.30556E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,28, 3) = (/ &
+ & 0.23824E+03_JPRB,0.34202E+03_JPRB,0.46970E+03_JPRB,0.30552E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,28, 3) = (/ &
+ & 0.23819E+03_JPRB,0.34198E+03_JPRB,0.46964E+03_JPRB,0.30548E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,29, 3) = (/ &
+ & 0.23821E+03_JPRB,0.34200E+03_JPRB,0.46966E+03_JPRB,0.30550E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,29, 3) = (/ &
+ & 0.23815E+03_JPRB,0.34196E+03_JPRB,0.46959E+03_JPRB,0.30546E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,29, 3) = (/ &
+ & 0.23810E+03_JPRB,0.34192E+03_JPRB,0.46953E+03_JPRB,0.30542E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,29, 3) = (/ &
+ & 0.23806E+03_JPRB,0.34189E+03_JPRB,0.46948E+03_JPRB,0.30539E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,29, 3) = (/ &
+ & 0.23802E+03_JPRB,0.34185E+03_JPRB,0.46942E+03_JPRB,0.30536E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,30, 3) = (/ &
+ & 0.23803E+03_JPRB,0.34187E+03_JPRB,0.46944E+03_JPRB,0.30537E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,30, 3) = (/ &
+ & 0.23799E+03_JPRB,0.34184E+03_JPRB,0.46939E+03_JPRB,0.30533E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,30, 3) = (/ &
+ & 0.23795E+03_JPRB,0.34180E+03_JPRB,0.46934E+03_JPRB,0.30531E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,30, 3) = (/ &
+ & 0.23791E+03_JPRB,0.34178E+03_JPRB,0.46929E+03_JPRB,0.30528E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,30, 3) = (/ &
+ & 0.23788E+03_JPRB,0.34175E+03_JPRB,0.46925E+03_JPRB,0.30526E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,31, 3) = (/ &
+ & 0.23789E+03_JPRB,0.34176E+03_JPRB,0.46926E+03_JPRB,0.30526E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,31, 3) = (/ &
+ & 0.23785E+03_JPRB,0.34173E+03_JPRB,0.46922E+03_JPRB,0.30524E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,31, 3) = (/ &
+ & 0.23782E+03_JPRB,0.34171E+03_JPRB,0.46918E+03_JPRB,0.30521E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,31, 3) = (/ &
+ & 0.23779E+03_JPRB,0.34169E+03_JPRB,0.46914E+03_JPRB,0.30519E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,31, 3) = (/ &
+ & 0.23777E+03_JPRB,0.34167E+03_JPRB,0.46911E+03_JPRB,0.30518E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,32, 3) = (/ &
+ & 0.23777E+03_JPRB,0.34168E+03_JPRB,0.46912E+03_JPRB,0.30518E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,32, 3) = (/ &
+ & 0.23774E+03_JPRB,0.34166E+03_JPRB,0.46908E+03_JPRB,0.30516E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,32, 3) = (/ &
+ & 0.23772E+03_JPRB,0.34163E+03_JPRB,0.46905E+03_JPRB,0.30514E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,32, 3) = (/ &
+ & 0.23770E+03_JPRB,0.34162E+03_JPRB,0.46902E+03_JPRB,0.30512E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,32, 3) = (/ &
+ & 0.23767E+03_JPRB,0.34160E+03_JPRB,0.46900E+03_JPRB,0.30511E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,33, 3) = (/ &
+ & 0.23768E+03_JPRB,0.34161E+03_JPRB,0.46900E+03_JPRB,0.30511E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,33, 3) = (/ &
+ & 0.23766E+03_JPRB,0.34159E+03_JPRB,0.46897E+03_JPRB,0.30510E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,33, 3) = (/ &
+ & 0.23764E+03_JPRB,0.34157E+03_JPRB,0.46895E+03_JPRB,0.30508E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,33, 3) = (/ &
+ & 0.23762E+03_JPRB,0.34156E+03_JPRB,0.46893E+03_JPRB,0.30507E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,33, 3) = (/ &
+ & 0.23760E+03_JPRB,0.34154E+03_JPRB,0.46891E+03_JPRB,0.30506E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,34, 3) = (/ &
+ & 0.23760E+03_JPRB,0.34155E+03_JPRB,0.46891E+03_JPRB,0.30506E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,34, 3) = (/ &
+ & 0.23759E+03_JPRB,0.34154E+03_JPRB,0.46889E+03_JPRB,0.30505E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,34, 3) = (/ &
+ & 0.23757E+03_JPRB,0.34152E+03_JPRB,0.46887E+03_JPRB,0.30503E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,34, 3) = (/ &
+ & 0.23756E+03_JPRB,0.34151E+03_JPRB,0.46885E+03_JPRB,0.30502E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,34, 3) = (/ &
+ & 0.23754E+03_JPRB,0.34150E+03_JPRB,0.46883E+03_JPRB,0.30501E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,35, 3) = (/ &
+ & 0.23755E+03_JPRB,0.34151E+03_JPRB,0.46884E+03_JPRB,0.30502E+03_JPRB,0.17829E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,35, 3) = (/ &
+ & 0.23753E+03_JPRB,0.34150E+03_JPRB,0.46882E+03_JPRB,0.30501E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,35, 3) = (/ &
+ & 0.23752E+03_JPRB,0.34148E+03_JPRB,0.46880E+03_JPRB,0.30500E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,35, 3) = (/ &
+ & 0.23751E+03_JPRB,0.34147E+03_JPRB,0.46879E+03_JPRB,0.30499E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,35, 3) = (/ &
+ & 0.23750E+03_JPRB,0.34146E+03_JPRB,0.46878E+03_JPRB,0.30498E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,36, 3) = (/ &
+ & 0.23750E+03_JPRB,0.34147E+03_JPRB,0.46878E+03_JPRB,0.30498E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,36, 3) = (/ &
+ & 0.23749E+03_JPRB,0.34146E+03_JPRB,0.46877E+03_JPRB,0.30497E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,36, 3) = (/ &
+ & 0.23748E+03_JPRB,0.34145E+03_JPRB,0.46875E+03_JPRB,0.30497E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,36, 3) = (/ &
+ & 0.23747E+03_JPRB,0.34144E+03_JPRB,0.46874E+03_JPRB,0.30496E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,36, 3) = (/ &
+ & 0.23746E+03_JPRB,0.34144E+03_JPRB,0.46873E+03_JPRB,0.30495E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,37, 3) = (/ &
+ & 0.23746E+03_JPRB,0.34145E+03_JPRB,0.46874E+03_JPRB,0.30496E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,37, 3) = (/ &
+ & 0.23745E+03_JPRB,0.34144E+03_JPRB,0.46872E+03_JPRB,0.30495E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,37, 3) = (/ &
+ & 0.23744E+03_JPRB,0.34143E+03_JPRB,0.46871E+03_JPRB,0.30494E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,37, 3) = (/ &
+ & 0.23744E+03_JPRB,0.34142E+03_JPRB,0.46870E+03_JPRB,0.30494E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,37, 3) = (/ &
+ & 0.23743E+03_JPRB,0.34141E+03_JPRB,0.46869E+03_JPRB,0.30493E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,38, 3) = (/ &
+ & 0.23743E+03_JPRB,0.34143E+03_JPRB,0.46870E+03_JPRB,0.30493E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,38, 3) = (/ &
+ & 0.23742E+03_JPRB,0.34142E+03_JPRB,0.46869E+03_JPRB,0.30493E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,38, 3) = (/ &
+ & 0.23742E+03_JPRB,0.34141E+03_JPRB,0.46868E+03_JPRB,0.30492E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,38, 3) = (/ &
+ & 0.23741E+03_JPRB,0.34140E+03_JPRB,0.46867E+03_JPRB,0.30492E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,38, 3) = (/ &
+ & 0.23740E+03_JPRB,0.34140E+03_JPRB,0.46866E+03_JPRB,0.30491E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,39, 3) = (/ &
+ & 0.23741E+03_JPRB,0.34141E+03_JPRB,0.46867E+03_JPRB,0.30492E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,39, 3) = (/ &
+ & 0.23740E+03_JPRB,0.34140E+03_JPRB,0.46866E+03_JPRB,0.30491E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,39, 3) = (/ &
+ & 0.23739E+03_JPRB,0.34139E+03_JPRB,0.46865E+03_JPRB,0.30491E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,39, 3) = (/ &
+ & 0.23739E+03_JPRB,0.34139E+03_JPRB,0.46865E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,39, 3) = (/ &
+ & 0.23738E+03_JPRB,0.34138E+03_JPRB,0.46864E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,40, 3) = (/ &
+ & 0.23739E+03_JPRB,0.34139E+03_JPRB,0.46864E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,40, 3) = (/ &
+ & 0.23738E+03_JPRB,0.34139E+03_JPRB,0.46864E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,40, 3) = (/ &
+ & 0.23738E+03_JPRB,0.34138E+03_JPRB,0.46863E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,40, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34138E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,40, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34137E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,41, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34138E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,41, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34138E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,41, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34137E+03_JPRB,0.46861E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,41, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34137E+03_JPRB,0.46861E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,41, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34136E+03_JPRB,0.46860E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,42, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34137E+03_JPRB,0.46861E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,42, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34137E+03_JPRB,0.46860E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,42, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34136E+03_JPRB,0.46860E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,42, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34136E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,42, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,43, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34136E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34136E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34136E+03_JPRB,0.46858E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46858E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46858E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,44, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34136E+03_JPRB,0.46858E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,44, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46858E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,44, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,44, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,44, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34134E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,45, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,45, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,45, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,45, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,45, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34135E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,47, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34135E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,47, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,47, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,47, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,47, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34135E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34135E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,50, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34136E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,50, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,50, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,50, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,50, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,51, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34136E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34136E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34132E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46851E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46849E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34136E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34132E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34138E+03_JPRB,0.46847E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34136E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34132E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34139E+03_JPRB,0.46844E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46850E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34140E+03_JPRB,0.46840E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46849E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,57, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34132E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,58, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34140E+03_JPRB,0.46837E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34138E+03_JPRB,0.46847E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34136E+03_JPRB,0.46851E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34141E+03_JPRB,0.46835E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34138E+03_JPRB,0.46846E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34136E+03_JPRB,0.46851E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,13, 4) = (/ &
+ & 0.51214E+03_JPRB,0.47089E+03_JPRB,0.53698E+03_JPRB,0.40623E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,13, 4) = (/ &
+ & 0.50819E+03_JPRB,0.46793E+03_JPRB,0.53525E+03_JPRB,0.40532E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,13, 4) = (/ &
+ & 0.50478E+03_JPRB,0.46537E+03_JPRB,0.53379E+03_JPRB,0.40453E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,13, 4) = (/ &
+ & 0.50182E+03_JPRB,0.46315E+03_JPRB,0.53251E+03_JPRB,0.40385E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,13, 4) = (/ &
+ & 0.49922E+03_JPRB,0.46120E+03_JPRB,0.53137E+03_JPRB,0.40325E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,14, 4) = (/ &
+ & 0.50224E+03_JPRB,0.46346E+03_JPRB,0.53224E+03_JPRB,0.40395E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,14, 4) = (/ &
+ & 0.49905E+03_JPRB,0.46107E+03_JPRB,0.53090E+03_JPRB,0.40321E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,14, 4) = (/ &
+ & 0.49629E+03_JPRB,0.45901E+03_JPRB,0.52974E+03_JPRB,0.40258E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,14, 4) = (/ &
+ & 0.49390E+03_JPRB,0.45721E+03_JPRB,0.52871E+03_JPRB,0.40203E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,14, 4) = (/ &
+ & 0.49179E+03_JPRB,0.45563E+03_JPRB,0.52774E+03_JPRB,0.40154E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,15, 4) = (/ &
+ & 0.49416E+03_JPRB,0.45741E+03_JPRB,0.52835E+03_JPRB,0.40209E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,15, 4) = (/ &
+ & 0.49159E+03_JPRB,0.45548E+03_JPRB,0.52725E+03_JPRB,0.40149E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,15, 4) = (/ &
+ & 0.48937E+03_JPRB,0.45381E+03_JPRB,0.52626E+03_JPRB,0.40098E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,15, 4) = (/ &
+ & 0.48743E+03_JPRB,0.45236E+03_JPRB,0.52534E+03_JPRB,0.40054E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,15, 4) = (/ &
+ & 0.48573E+03_JPRB,0.45108E+03_JPRB,0.52448E+03_JPRB,0.40015E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,16, 4) = (/ &
+ & 0.48759E+03_JPRB,0.45248E+03_JPRB,0.52492E+03_JPRB,0.40057E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,16, 4) = (/ &
+ & 0.48552E+03_JPRB,0.45092E+03_JPRB,0.52397E+03_JPRB,0.40010E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,16, 4) = (/ &
+ & 0.48373E+03_JPRB,0.44958E+03_JPRB,0.52310E+03_JPRB,0.39968E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,16, 4) = (/ &
+ & 0.48216E+03_JPRB,0.44841E+03_JPRB,0.52232E+03_JPRB,0.39932E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,16, 4) = (/ &
+ & 0.48079E+03_JPRB,0.44738E+03_JPRB,0.52159E+03_JPRB,0.39901E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,17, 4) = (/ &
+ & 0.48226E+03_JPRB,0.44848E+03_JPRB,0.52188E+03_JPRB,0.39935E+03_JPRB,0.38437E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,17, 4) = (/ &
+ & 0.48059E+03_JPRB,0.44723E+03_JPRB,0.52110E+03_JPRB,0.39896E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,17, 4) = (/ &
+ & 0.47915E+03_JPRB,0.44615E+03_JPRB,0.52038E+03_JPRB,0.39863E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,17, 4) = (/ &
+ & 0.47788E+03_JPRB,0.44520E+03_JPRB,0.51974E+03_JPRB,0.39834E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,17, 4) = (/ &
+ & 0.47677E+03_JPRB,0.44437E+03_JPRB,0.51913E+03_JPRB,0.39808E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,18, 4) = (/ &
+ & 0.47794E+03_JPRB,0.44524E+03_JPRB,0.51928E+03_JPRB,0.39835E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,18, 4) = (/ &
+ & 0.47659E+03_JPRB,0.44423E+03_JPRB,0.51865E+03_JPRB,0.39804E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,18, 4) = (/ &
+ & 0.47542E+03_JPRB,0.44336E+03_JPRB,0.51808E+03_JPRB,0.39777E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,18, 4) = (/ &
+ & 0.47441E+03_JPRB,0.44259E+03_JPRB,0.51755E+03_JPRB,0.39754E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,18, 4) = (/ &
+ & 0.47351E+03_JPRB,0.44192E+03_JPRB,0.51705E+03_JPRB,0.39733E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,19, 4) = (/ &
+ & 0.47443E+03_JPRB,0.44261E+03_JPRB,0.51710E+03_JPRB,0.39754E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,19, 4) = (/ &
+ & 0.47334E+03_JPRB,0.44179E+03_JPRB,0.51660E+03_JPRB,0.39729E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,19, 4) = (/ &
+ & 0.47240E+03_JPRB,0.44109E+03_JPRB,0.51615E+03_JPRB,0.39708E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,19, 4) = (/ &
+ & 0.47158E+03_JPRB,0.44047E+03_JPRB,0.51573E+03_JPRB,0.39689E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,19, 4) = (/ &
+ & 0.47085E+03_JPRB,0.43993E+03_JPRB,0.51533E+03_JPRB,0.39672E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,20, 4) = (/ &
+ & 0.47156E+03_JPRB,0.44046E+03_JPRB,0.51527E+03_JPRB,0.39688E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,20, 4) = (/ &
+ & 0.47069E+03_JPRB,0.43980E+03_JPRB,0.51490E+03_JPRB,0.39668E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,20, 4) = (/ &
+ & 0.46993E+03_JPRB,0.43924E+03_JPRB,0.51455E+03_JPRB,0.39651E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,20, 4) = (/ &
+ & 0.46927E+03_JPRB,0.43874E+03_JPRB,0.51422E+03_JPRB,0.39635E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,20, 4) = (/ &
+ & 0.46868E+03_JPRB,0.43830E+03_JPRB,0.51389E+03_JPRB,0.39622E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,21, 4) = (/ &
+ & 0.46924E+03_JPRB,0.43872E+03_JPRB,0.51377E+03_JPRB,0.39635E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,21, 4) = (/ &
+ & 0.46853E+03_JPRB,0.43819E+03_JPRB,0.51350E+03_JPRB,0.39619E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,21, 4) = (/ &
+ & 0.46792E+03_JPRB,0.43773E+03_JPRB,0.51323E+03_JPRB,0.39604E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,21, 4) = (/ &
+ & 0.46739E+03_JPRB,0.43733E+03_JPRB,0.51296E+03_JPRB,0.39592E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,21, 4) = (/ &
+ & 0.46692E+03_JPRB,0.43697E+03_JPRB,0.51263E+03_JPRB,0.39581E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,22, 4) = (/ &
+ & 0.46731E+03_JPRB,0.43727E+03_JPRB,0.51254E+03_JPRB,0.39590E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,22, 4) = (/ &
+ & 0.46675E+03_JPRB,0.43685E+03_JPRB,0.51231E+03_JPRB,0.39577E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,22, 4) = (/ &
+ & 0.46626E+03_JPRB,0.43648E+03_JPRB,0.51212E+03_JPRB,0.39566E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,22, 4) = (/ &
+ & 0.46584E+03_JPRB,0.43616E+03_JPRB,0.51190E+03_JPRB,0.39556E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,22, 4) = (/ &
+ & 0.46546E+03_JPRB,0.43588E+03_JPRB,0.51168E+03_JPRB,0.39548E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,23, 4) = (/ &
+ & 0.46575E+03_JPRB,0.43610E+03_JPRB,0.51153E+03_JPRB,0.39554E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,23, 4) = (/ &
+ & 0.46531E+03_JPRB,0.43577E+03_JPRB,0.51138E+03_JPRB,0.39544E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,23, 4) = (/ &
+ & 0.46492E+03_JPRB,0.43548E+03_JPRB,0.51122E+03_JPRB,0.39535E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,23, 4) = (/ &
+ & 0.46458E+03_JPRB,0.43522E+03_JPRB,0.51104E+03_JPRB,0.39527E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,23, 4) = (/ &
+ & 0.46427E+03_JPRB,0.43499E+03_JPRB,0.51086E+03_JPRB,0.39520E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,24, 4) = (/ &
+ & 0.46450E+03_JPRB,0.43516E+03_JPRB,0.51071E+03_JPRB,0.39525E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,24, 4) = (/ &
+ & 0.46414E+03_JPRB,0.43489E+03_JPRB,0.51060E+03_JPRB,0.39517E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,24, 4) = (/ &
+ & 0.46383E+03_JPRB,0.43466E+03_JPRB,0.51047E+03_JPRB,0.39510E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,24, 4) = (/ &
+ & 0.46356E+03_JPRB,0.43445E+03_JPRB,0.51033E+03_JPRB,0.39504E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,24, 4) = (/ &
+ & 0.46331E+03_JPRB,0.43427E+03_JPRB,0.51019E+03_JPRB,0.39498E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,25, 4) = (/ &
+ & 0.46348E+03_JPRB,0.43439E+03_JPRB,0.51003E+03_JPRB,0.39502E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,25, 4) = (/ &
+ & 0.46319E+03_JPRB,0.43418E+03_JPRB,0.50997E+03_JPRB,0.39496E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,25, 4) = (/ &
+ & 0.46295E+03_JPRB,0.43400E+03_JPRB,0.50987E+03_JPRB,0.39490E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,25, 4) = (/ &
+ & 0.46273E+03_JPRB,0.43383E+03_JPRB,0.50976E+03_JPRB,0.39485E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,25, 4) = (/ &
+ & 0.46254E+03_JPRB,0.43369E+03_JPRB,0.50965E+03_JPRB,0.39480E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,26, 4) = (/ &
+ & 0.46265E+03_JPRB,0.43378E+03_JPRB,0.50951E+03_JPRB,0.39483E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,26, 4) = (/ &
+ & 0.46243E+03_JPRB,0.43361E+03_JPRB,0.50946E+03_JPRB,0.39478E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,26, 4) = (/ &
+ & 0.46223E+03_JPRB,0.43346E+03_JPRB,0.50938E+03_JPRB,0.39473E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,26, 4) = (/ &
+ & 0.46206E+03_JPRB,0.43333E+03_JPRB,0.50930E+03_JPRB,0.39469E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,26, 4) = (/ &
+ & 0.46190E+03_JPRB,0.43321E+03_JPRB,0.50921E+03_JPRB,0.39466E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,27, 4) = (/ &
+ & 0.46199E+03_JPRB,0.43328E+03_JPRB,0.50908E+03_JPRB,0.39468E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,27, 4) = (/ &
+ & 0.46181E+03_JPRB,0.43314E+03_JPRB,0.50904E+03_JPRB,0.39464E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,27, 4) = (/ &
+ & 0.46165E+03_JPRB,0.43303E+03_JPRB,0.50899E+03_JPRB,0.39460E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,27, 4) = (/ &
+ & 0.46152E+03_JPRB,0.43292E+03_JPRB,0.50892E+03_JPRB,0.39457E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,27, 4) = (/ &
+ & 0.46139E+03_JPRB,0.43283E+03_JPRB,0.50885E+03_JPRB,0.39454E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,28, 4) = (/ &
+ & 0.46145E+03_JPRB,0.43288E+03_JPRB,0.50873E+03_JPRB,0.39455E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,28, 4) = (/ &
+ & 0.46131E+03_JPRB,0.43277E+03_JPRB,0.50871E+03_JPRB,0.39452E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,28, 4) = (/ &
+ & 0.46119E+03_JPRB,0.43268E+03_JPRB,0.50867E+03_JPRB,0.39449E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,28, 4) = (/ &
+ & 0.46108E+03_JPRB,0.43259E+03_JPRB,0.50862E+03_JPRB,0.39447E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,28, 4) = (/ &
+ & 0.46098E+03_JPRB,0.43252E+03_JPRB,0.50856E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,29, 4) = (/ &
+ & 0.46102E+03_JPRB,0.43255E+03_JPRB,0.50845E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,29, 4) = (/ &
+ & 0.46091E+03_JPRB,0.43247E+03_JPRB,0.50844E+03_JPRB,0.39443E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,29, 4) = (/ &
+ & 0.46081E+03_JPRB,0.43239E+03_JPRB,0.50842E+03_JPRB,0.39441E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,29, 4) = (/ &
+ & 0.46072E+03_JPRB,0.43233E+03_JPRB,0.50837E+03_JPRB,0.39439E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,29, 4) = (/ &
+ & 0.46064E+03_JPRB,0.43227E+03_JPRB,0.50832E+03_JPRB,0.39437E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,30, 4) = (/ &
+ & 0.46067E+03_JPRB,0.43229E+03_JPRB,0.50823E+03_JPRB,0.39437E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,30, 4) = (/ &
+ & 0.46058E+03_JPRB,0.43223E+03_JPRB,0.50823E+03_JPRB,0.39435E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,30, 4) = (/ &
+ & 0.46051E+03_JPRB,0.43217E+03_JPRB,0.50821E+03_JPRB,0.39434E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,30, 4) = (/ &
+ & 0.46044E+03_JPRB,0.43211E+03_JPRB,0.50818E+03_JPRB,0.39432E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,30, 4) = (/ &
+ & 0.46037E+03_JPRB,0.43207E+03_JPRB,0.50813E+03_JPRB,0.39431E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,31, 4) = (/ &
+ & 0.46039E+03_JPRB,0.43208E+03_JPRB,0.50805E+03_JPRB,0.39431E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,31, 4) = (/ &
+ & 0.46032E+03_JPRB,0.43203E+03_JPRB,0.50805E+03_JPRB,0.39429E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,31, 4) = (/ &
+ & 0.46026E+03_JPRB,0.43198E+03_JPRB,0.50804E+03_JPRB,0.39428E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,31, 4) = (/ &
+ & 0.46021E+03_JPRB,0.43194E+03_JPRB,0.50801E+03_JPRB,0.39427E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,31, 4) = (/ &
+ & 0.46016E+03_JPRB,0.43190E+03_JPRB,0.50797E+03_JPRB,0.39426E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,32, 4) = (/ &
+ & 0.46017E+03_JPRB,0.43191E+03_JPRB,0.50790E+03_JPRB,0.39426E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,32, 4) = (/ &
+ & 0.46011E+03_JPRB,0.43187E+03_JPRB,0.50792E+03_JPRB,0.39425E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,32, 4) = (/ &
+ & 0.46006E+03_JPRB,0.43183E+03_JPRB,0.50791E+03_JPRB,0.39423E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,32, 4) = (/ &
+ & 0.46002E+03_JPRB,0.43180E+03_JPRB,0.50788E+03_JPRB,0.39422E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,32, 4) = (/ &
+ & 0.45998E+03_JPRB,0.43177E+03_JPRB,0.50784E+03_JPRB,0.39421E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,33, 4) = (/ &
+ & 0.45999E+03_JPRB,0.43178E+03_JPRB,0.50779E+03_JPRB,0.39422E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,33, 4) = (/ &
+ & 0.45994E+03_JPRB,0.43174E+03_JPRB,0.50781E+03_JPRB,0.39421E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,33, 4) = (/ &
+ & 0.45990E+03_JPRB,0.43171E+03_JPRB,0.50780E+03_JPRB,0.39420E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,33, 4) = (/ &
+ & 0.45987E+03_JPRB,0.43169E+03_JPRB,0.50777E+03_JPRB,0.39419E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,33, 4) = (/ &
+ & 0.45984E+03_JPRB,0.43166E+03_JPRB,0.50773E+03_JPRB,0.39418E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,34, 4) = (/ &
+ & 0.45984E+03_JPRB,0.43167E+03_JPRB,0.50770E+03_JPRB,0.39418E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,34, 4) = (/ &
+ & 0.45981E+03_JPRB,0.43164E+03_JPRB,0.50772E+03_JPRB,0.39418E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,34, 4) = (/ &
+ & 0.45978E+03_JPRB,0.43162E+03_JPRB,0.50771E+03_JPRB,0.39417E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,34, 4) = (/ &
+ & 0.45975E+03_JPRB,0.43160E+03_JPRB,0.50768E+03_JPRB,0.39416E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,34, 4) = (/ &
+ & 0.45972E+03_JPRB,0.43158E+03_JPRB,0.50764E+03_JPRB,0.39416E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,35, 4) = (/ &
+ & 0.45973E+03_JPRB,0.43158E+03_JPRB,0.50763E+03_JPRB,0.39416E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,35, 4) = (/ &
+ & 0.45970E+03_JPRB,0.43156E+03_JPRB,0.50764E+03_JPRB,0.39415E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,35, 4) = (/ &
+ & 0.45968E+03_JPRB,0.43154E+03_JPRB,0.50764E+03_JPRB,0.39414E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,35, 4) = (/ &
+ & 0.45965E+03_JPRB,0.43153E+03_JPRB,0.50761E+03_JPRB,0.39414E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,35, 4) = (/ &
+ & 0.45963E+03_JPRB,0.43151E+03_JPRB,0.50757E+03_JPRB,0.39413E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,36, 4) = (/ &
+ & 0.45964E+03_JPRB,0.43152E+03_JPRB,0.50757E+03_JPRB,0.39414E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,36, 4) = (/ &
+ & 0.45962E+03_JPRB,0.43150E+03_JPRB,0.50758E+03_JPRB,0.39413E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,36, 4) = (/ &
+ & 0.45960E+03_JPRB,0.43148E+03_JPRB,0.50758E+03_JPRB,0.39413E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,36, 4) = (/ &
+ & 0.45958E+03_JPRB,0.43147E+03_JPRB,0.50756E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,36, 4) = (/ &
+ & 0.45956E+03_JPRB,0.43146E+03_JPRB,0.50752E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,37, 4) = (/ &
+ & 0.45957E+03_JPRB,0.43146E+03_JPRB,0.50751E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,37, 4) = (/ &
+ & 0.45955E+03_JPRB,0.43145E+03_JPRB,0.50753E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,37, 4) = (/ &
+ & 0.45953E+03_JPRB,0.43144E+03_JPRB,0.50754E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,37, 4) = (/ &
+ & 0.45952E+03_JPRB,0.43142E+03_JPRB,0.50752E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,37, 4) = (/ &
+ & 0.45950E+03_JPRB,0.43141E+03_JPRB,0.50748E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,38, 4) = (/ &
+ & 0.45951E+03_JPRB,0.43142E+03_JPRB,0.50746E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,38, 4) = (/ &
+ & 0.45950E+03_JPRB,0.43141E+03_JPRB,0.50749E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,38, 4) = (/ &
+ & 0.45948E+03_JPRB,0.43140E+03_JPRB,0.50750E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,38, 4) = (/ &
+ & 0.45947E+03_JPRB,0.43139E+03_JPRB,0.50749E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,38, 4) = (/ &
+ & 0.45946E+03_JPRB,0.43138E+03_JPRB,0.50745E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,39, 4) = (/ &
+ & 0.45946E+03_JPRB,0.43138E+03_JPRB,0.50742E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,39, 4) = (/ &
+ & 0.45945E+03_JPRB,0.43137E+03_JPRB,0.50746E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,39, 4) = (/ &
+ & 0.45944E+03_JPRB,0.43137E+03_JPRB,0.50747E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,39, 4) = (/ &
+ & 0.45943E+03_JPRB,0.43136E+03_JPRB,0.50746E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,39, 4) = (/ &
+ & 0.45942E+03_JPRB,0.43135E+03_JPRB,0.50743E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,40, 4) = (/ &
+ & 0.45943E+03_JPRB,0.43136E+03_JPRB,0.50738E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,40, 4) = (/ &
+ & 0.45941E+03_JPRB,0.43135E+03_JPRB,0.50742E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,40, 4) = (/ &
+ & 0.45940E+03_JPRB,0.43134E+03_JPRB,0.50744E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,40, 4) = (/ &
+ & 0.45940E+03_JPRB,0.43133E+03_JPRB,0.50744E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,40, 4) = (/ &
+ & 0.45939E+03_JPRB,0.43133E+03_JPRB,0.50742E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,41, 4) = (/ &
+ & 0.45939E+03_JPRB,0.43133E+03_JPRB,0.50734E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,41, 4) = (/ &
+ & 0.45938E+03_JPRB,0.43133E+03_JPRB,0.50739E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,41, 4) = (/ &
+ & 0.45938E+03_JPRB,0.43132E+03_JPRB,0.50742E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,41, 4) = (/ &
+ & 0.45937E+03_JPRB,0.43131E+03_JPRB,0.50742E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,41, 4) = (/ &
+ & 0.45936E+03_JPRB,0.43131E+03_JPRB,0.50741E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,42, 4) = (/ &
+ & 0.45937E+03_JPRB,0.43131E+03_JPRB,0.50731E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,42, 4) = (/ &
+ & 0.45936E+03_JPRB,0.43131E+03_JPRB,0.50736E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,42, 4) = (/ &
+ & 0.45935E+03_JPRB,0.43130E+03_JPRB,0.50739E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,42, 4) = (/ &
+ & 0.45935E+03_JPRB,0.43130E+03_JPRB,0.50741E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,42, 4) = (/ &
+ & 0.45934E+03_JPRB,0.43129E+03_JPRB,0.50740E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,43, 4) = (/ &
+ & 0.45935E+03_JPRB,0.43130E+03_JPRB,0.50727E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,43, 4) = (/ &
+ & 0.45934E+03_JPRB,0.43129E+03_JPRB,0.50733E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,43, 4) = (/ &
+ & 0.45933E+03_JPRB,0.43129E+03_JPRB,0.50737E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,43, 4) = (/ &
+ & 0.45933E+03_JPRB,0.43128E+03_JPRB,0.50739E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,43, 4) = (/ &
+ & 0.45932E+03_JPRB,0.43128E+03_JPRB,0.50739E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,44, 4) = (/ &
+ & 0.45933E+03_JPRB,0.43128E+03_JPRB,0.50723E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,44, 4) = (/ &
+ & 0.45932E+03_JPRB,0.43128E+03_JPRB,0.50730E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,44, 4) = (/ &
+ & 0.45932E+03_JPRB,0.43128E+03_JPRB,0.50735E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,44, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50737E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,44, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50738E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,45, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50718E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,45, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50727E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,45, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43127E+03_JPRB,0.50732E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,45, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50736E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,45, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50737E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,46, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50714E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART18',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,46, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50723E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,46, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43126E+03_JPRB,0.50730E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,46, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43125E+03_JPRB,0.50734E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,46, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43125E+03_JPRB,0.50736E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,47, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43126E+03_JPRB,0.50708E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,47, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43125E+03_JPRB,0.50719E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,47, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50727E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,47, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50732E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,47, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50735E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,48, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50701E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,48, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50714E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,48, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43124E+03_JPRB,0.50723E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,48, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50729E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,48, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50733E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,49, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43124E+03_JPRB,0.50694E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50709E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50720E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50727E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50732E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,50, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50686E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,50, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50704E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,50, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50716E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,50, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50724E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,50, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50730E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43124E+03_JPRB,0.50679E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50697E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50711E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50721E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50728E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50671E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50691E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50707E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50718E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,52, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50725E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,53, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50663E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,53, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50684E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,53, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50701E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,53, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50714E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,53, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50722E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50655E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50677E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50696E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50710E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50720E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50647E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50670E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50690E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50706E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50717E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50640E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50663E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50683E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50701E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50714E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50632E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50656E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50677E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50696E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,57, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50710E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,58, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50624E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,58, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50648E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,58, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50671E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,58, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50690E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,58, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50706E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50622E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50645E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50668E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50688E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50704E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,13, 5) = (/ &
+ & 0.78037E+03_JPRB,0.62743E+03_JPRB,0.56495E+03_JPRB,0.56633E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,13, 5) = (/ &
+ & 0.77434E+03_JPRB,0.62291E+03_JPRB,0.56343E+03_JPRB,0.56584E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,13, 5) = (/ &
+ & 0.76915E+03_JPRB,0.61902E+03_JPRB,0.56189E+03_JPRB,0.56542E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,13, 5) = (/ &
+ & 0.76464E+03_JPRB,0.61563E+03_JPRB,0.56027E+03_JPRB,0.56506E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,13, 5) = (/ &
+ & 0.76068E+03_JPRB,0.61266E+03_JPRB,0.55865E+03_JPRB,0.56474E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,14, 5) = (/ &
+ & 0.76527E+03_JPRB,0.61611E+03_JPRB,0.56011E+03_JPRB,0.56511E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,14, 5) = (/ &
+ & 0.76041E+03_JPRB,0.61246E+03_JPRB,0.55859E+03_JPRB,0.56472E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,14, 5) = (/ &
+ & 0.75622E+03_JPRB,0.60932E+03_JPRB,0.55696E+03_JPRB,0.56438E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,14, 5) = (/ &
+ & 0.75257E+03_JPRB,0.60658E+03_JPRB,0.55539E+03_JPRB,0.56408E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,14, 5) = (/ &
+ & 0.74936E+03_JPRB,0.60417E+03_JPRB,0.55391E+03_JPRB,0.56383E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,15, 5) = (/ &
+ & 0.75296E+03_JPRB,0.60688E+03_JPRB,0.55521E+03_JPRB,0.56412E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,15, 5) = (/ &
+ & 0.74904E+03_JPRB,0.60394E+03_JPRB,0.55372E+03_JPRB,0.56380E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,15, 5) = (/ &
+ & 0.74566E+03_JPRB,0.60140E+03_JPRB,0.55235E+03_JPRB,0.56353E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,15, 5) = (/ &
+ & 0.74271E+03_JPRB,0.59919E+03_JPRB,0.55103E+03_JPRB,0.56329E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,15, 5) = (/ &
+ & 0.74012E+03_JPRB,0.59724E+03_JPRB,0.54977E+03_JPRB,0.56308E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,16, 5) = (/ &
+ & 0.74295E+03_JPRB,0.59937E+03_JPRB,0.55079E+03_JPRB,0.56331E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,16, 5) = (/ &
+ & 0.73979E+03_JPRB,0.59700E+03_JPRB,0.54953E+03_JPRB,0.56305E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,16, 5) = (/ &
+ & 0.73707E+03_JPRB,0.59495E+03_JPRB,0.54828E+03_JPRB,0.56283E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,16, 5) = (/ &
+ & 0.73469E+03_JPRB,0.59317E+03_JPRB,0.54708E+03_JPRB,0.56264E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,16, 5) = (/ &
+ & 0.73259E+03_JPRB,0.59160E+03_JPRB,0.54600E+03_JPRB,0.56247E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,17, 5) = (/ &
+ & 0.73483E+03_JPRB,0.59328E+03_JPRB,0.54695E+03_JPRB,0.56265E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,17, 5) = (/ &
+ & 0.73229E+03_JPRB,0.59137E+03_JPRB,0.54572E+03_JPRB,0.56245E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,17, 5) = (/ &
+ & 0.73009E+03_JPRB,0.58972E+03_JPRB,0.54462E+03_JPRB,0.56227E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,17, 5) = (/ &
+ & 0.72817E+03_JPRB,0.58828E+03_JPRB,0.54366E+03_JPRB,0.56212E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,17, 5) = (/ &
+ & 0.72647E+03_JPRB,0.58701E+03_JPRB,0.54281E+03_JPRB,0.56198E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,18, 5) = (/ &
+ & 0.72825E+03_JPRB,0.58834E+03_JPRB,0.54354E+03_JPRB,0.56212E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,18, 5) = (/ &
+ & 0.72619E+03_JPRB,0.58680E+03_JPRB,0.54253E+03_JPRB,0.56196E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,18, 5) = (/ &
+ & 0.72442E+03_JPRB,0.58547E+03_JPRB,0.54166E+03_JPRB,0.56181E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,18, 5) = (/ &
+ & 0.72286E+03_JPRB,0.58430E+03_JPRB,0.54091E+03_JPRB,0.56169E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,18, 5) = (/ &
+ & 0.72150E+03_JPRB,0.58328E+03_JPRB,0.54024E+03_JPRB,0.56158E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,19, 5) = (/ &
+ & 0.72290E+03_JPRB,0.58433E+03_JPRB,0.54075E+03_JPRB,0.56169E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,19, 5) = (/ &
+ & 0.72124E+03_JPRB,0.58309E+03_JPRB,0.53996E+03_JPRB,0.56156E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,19, 5) = (/ &
+ & 0.71981E+03_JPRB,0.58201E+03_JPRB,0.53928E+03_JPRB,0.56144E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,19, 5) = (/ &
+ & 0.71856E+03_JPRB,0.58107E+03_JPRB,0.53868E+03_JPRB,0.56134E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,19, 5) = (/ &
+ & 0.71745E+03_JPRB,0.58024E+03_JPRB,0.53816E+03_JPRB,0.56125E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,20, 5) = (/ &
+ & 0.71853E+03_JPRB,0.58105E+03_JPRB,0.53849E+03_JPRB,0.56134E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,20, 5) = (/ &
+ & 0.71720E+03_JPRB,0.58006E+03_JPRB,0.53788E+03_JPRB,0.56123E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,20, 5) = (/ &
+ & 0.71605E+03_JPRB,0.57919E+03_JPRB,0.53734E+03_JPRB,0.56114E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,20, 5) = (/ &
+ & 0.71504E+03_JPRB,0.57843E+03_JPRB,0.53687E+03_JPRB,0.56106E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,20, 5) = (/ &
+ & 0.71414E+03_JPRB,0.57776E+03_JPRB,0.53643E+03_JPRB,0.56098E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,21, 5) = (/ &
+ & 0.71499E+03_JPRB,0.57840E+03_JPRB,0.53667E+03_JPRB,0.56105E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,21, 5) = (/ &
+ & 0.71392E+03_JPRB,0.57759E+03_JPRB,0.53620E+03_JPRB,0.56097E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,21, 5) = (/ &
+ & 0.71299E+03_JPRB,0.57690E+03_JPRB,0.53578E+03_JPRB,0.56089E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,21, 5) = (/ &
+ & 0.71217E+03_JPRB,0.57628E+03_JPRB,0.53541E+03_JPRB,0.56083E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,21, 5) = (/ &
+ & 0.71145E+03_JPRB,0.57574E+03_JPRB,0.53506E+03_JPRB,0.56077E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,22, 5) = (/ &
+ & 0.71206E+03_JPRB,0.57620E+03_JPRB,0.53519E+03_JPRB,0.56082E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,22, 5) = (/ &
+ & 0.71120E+03_JPRB,0.57555E+03_JPRB,0.53482E+03_JPRB,0.56075E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,22, 5) = (/ &
+ & 0.71046E+03_JPRB,0.57500E+03_JPRB,0.53450E+03_JPRB,0.56069E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,22, 5) = (/ &
+ & 0.70981E+03_JPRB,0.57451E+03_JPRB,0.53420E+03_JPRB,0.56064E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,22, 5) = (/ &
+ & 0.70923E+03_JPRB,0.57408E+03_JPRB,0.53390E+03_JPRB,0.56059E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,23, 5) = (/ &
+ & 0.70968E+03_JPRB,0.57442E+03_JPRB,0.53396E+03_JPRB,0.56063E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,23, 5) = (/ &
+ & 0.70900E+03_JPRB,0.57391E+03_JPRB,0.53367E+03_JPRB,0.56057E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,23, 5) = (/ &
+ & 0.70841E+03_JPRB,0.57346E+03_JPRB,0.53341E+03_JPRB,0.56052E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,23, 5) = (/ &
+ & 0.70789E+03_JPRB,0.57307E+03_JPRB,0.53316E+03_JPRB,0.56048E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,23, 5) = (/ &
+ & 0.70743E+03_JPRB,0.57272E+03_JPRB,0.53290E+03_JPRB,0.56044E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,24, 5) = (/ &
+ & 0.70776E+03_JPRB,0.57298E+03_JPRB,0.53293E+03_JPRB,0.56047E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,24, 5) = (/ &
+ & 0.70722E+03_JPRB,0.57257E+03_JPRB,0.53269E+03_JPRB,0.56043E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,24, 5) = (/ &
+ & 0.70675E+03_JPRB,0.57222E+03_JPRB,0.53248E+03_JPRB,0.56039E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,24, 5) = (/ &
+ & 0.70633E+03_JPRB,0.57190E+03_JPRB,0.53228E+03_JPRB,0.56036E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,24, 5) = (/ &
+ & 0.70596E+03_JPRB,0.57163E+03_JPRB,0.53207E+03_JPRB,0.56033E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,25, 5) = (/ &
+ & 0.70621E+03_JPRB,0.57181E+03_JPRB,0.53206E+03_JPRB,0.56035E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,25, 5) = (/ &
+ & 0.70578E+03_JPRB,0.57149E+03_JPRB,0.53188E+03_JPRB,0.56031E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,25, 5) = (/ &
+ & 0.70541E+03_JPRB,0.57121E+03_JPRB,0.53172E+03_JPRB,0.56028E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,25, 5) = (/ &
+ & 0.70507E+03_JPRB,0.57096E+03_JPRB,0.53156E+03_JPRB,0.56025E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,25, 5) = (/ &
+ & 0.70478E+03_JPRB,0.57074E+03_JPRB,0.53138E+03_JPRB,0.56023E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,26, 5) = (/ &
+ & 0.70496E+03_JPRB,0.57087E+03_JPRB,0.53135E+03_JPRB,0.56024E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,26, 5) = (/ &
+ & 0.70461E+03_JPRB,0.57061E+03_JPRB,0.53122E+03_JPRB,0.56022E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,26, 5) = (/ &
+ & 0.70432E+03_JPRB,0.57039E+03_JPRB,0.53110E+03_JPRB,0.56019E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,26, 5) = (/ &
+ & 0.70405E+03_JPRB,0.57019E+03_JPRB,0.53097E+03_JPRB,0.56017E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,26, 5) = (/ &
+ & 0.70382E+03_JPRB,0.57001E+03_JPRB,0.53082E+03_JPRB,0.56015E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,27, 5) = (/ &
+ & 0.70394E+03_JPRB,0.57011E+03_JPRB,0.53077E+03_JPRB,0.56016E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,27, 5) = (/ &
+ & 0.70367E+03_JPRB,0.56991E+03_JPRB,0.53069E+03_JPRB,0.56014E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,27, 5) = (/ &
+ & 0.70343E+03_JPRB,0.56973E+03_JPRB,0.53060E+03_JPRB,0.56012E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,27, 5) = (/ &
+ & 0.70322E+03_JPRB,0.56957E+03_JPRB,0.53049E+03_JPRB,0.56010E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,27, 5) = (/ &
+ & 0.70304E+03_JPRB,0.56943E+03_JPRB,0.53036E+03_JPRB,0.56009E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,28, 5) = (/ &
+ & 0.70313E+03_JPRB,0.56950E+03_JPRB,0.53032E+03_JPRB,0.56010E+03_JPRB,0.67117E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART19',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,28, 5) = (/ &
+ & 0.70291E+03_JPRB,0.56934E+03_JPRB,0.53026E+03_JPRB,0.56008E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,28, 5) = (/ &
+ & 0.70272E+03_JPRB,0.56920E+03_JPRB,0.53019E+03_JPRB,0.56006E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,28, 5) = (/ &
+ & 0.70256E+03_JPRB,0.56907E+03_JPRB,0.53010E+03_JPRB,0.56005E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,28, 5) = (/ &
+ & 0.70241E+03_JPRB,0.56896E+03_JPRB,0.52998E+03_JPRB,0.56004E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,29, 5) = (/ &
+ & 0.70247E+03_JPRB,0.56901E+03_JPRB,0.52995E+03_JPRB,0.56004E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,29, 5) = (/ &
+ & 0.70230E+03_JPRB,0.56888E+03_JPRB,0.52991E+03_JPRB,0.56003E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,29, 5) = (/ &
+ & 0.70215E+03_JPRB,0.56877E+03_JPRB,0.52985E+03_JPRB,0.56002E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,29, 5) = (/ &
+ & 0.70202E+03_JPRB,0.56867E+03_JPRB,0.52978E+03_JPRB,0.56001E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,29, 5) = (/ &
+ & 0.70190E+03_JPRB,0.56858E+03_JPRB,0.52967E+03_JPRB,0.56000E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,30, 5) = (/ &
+ & 0.70194E+03_JPRB,0.56861E+03_JPRB,0.52966E+03_JPRB,0.56000E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,30, 5) = (/ &
+ & 0.70181E+03_JPRB,0.56851E+03_JPRB,0.52963E+03_JPRB,0.55999E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,30, 5) = (/ &
+ & 0.70169E+03_JPRB,0.56842E+03_JPRB,0.52958E+03_JPRB,0.55998E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,30, 5) = (/ &
+ & 0.70158E+03_JPRB,0.56834E+03_JPRB,0.52951E+03_JPRB,0.55997E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,30, 5) = (/ &
+ & 0.70149E+03_JPRB,0.56827E+03_JPRB,0.52941E+03_JPRB,0.55996E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,31, 5) = (/ &
+ & 0.70151E+03_JPRB,0.56829E+03_JPRB,0.52942E+03_JPRB,0.55997E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,31, 5) = (/ &
+ & 0.70141E+03_JPRB,0.56821E+03_JPRB,0.52941E+03_JPRB,0.55996E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,31, 5) = (/ &
+ & 0.70131E+03_JPRB,0.56814E+03_JPRB,0.52936E+03_JPRB,0.55995E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,31, 5) = (/ &
+ & 0.70123E+03_JPRB,0.56807E+03_JPRB,0.52930E+03_JPRB,0.55994E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,31, 5) = (/ &
+ & 0.70115E+03_JPRB,0.56802E+03_JPRB,0.52920E+03_JPRB,0.55994E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,32, 5) = (/ &
+ & 0.70117E+03_JPRB,0.56803E+03_JPRB,0.52924E+03_JPRB,0.55994E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,32, 5) = (/ &
+ & 0.70109E+03_JPRB,0.56797E+03_JPRB,0.52922E+03_JPRB,0.55993E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,32, 5) = (/ &
+ & 0.70101E+03_JPRB,0.56791E+03_JPRB,0.52919E+03_JPRB,0.55993E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,32, 5) = (/ &
+ & 0.70094E+03_JPRB,0.56786E+03_JPRB,0.52912E+03_JPRB,0.55992E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,32, 5) = (/ &
+ & 0.70088E+03_JPRB,0.56782E+03_JPRB,0.52902E+03_JPRB,0.55992E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,33, 5) = (/ &
+ & 0.70090E+03_JPRB,0.56782E+03_JPRB,0.52908E+03_JPRB,0.55992E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,33, 5) = (/ &
+ & 0.70083E+03_JPRB,0.56777E+03_JPRB,0.52907E+03_JPRB,0.55991E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,33, 5) = (/ &
+ & 0.70077E+03_JPRB,0.56773E+03_JPRB,0.52904E+03_JPRB,0.55991E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,33, 5) = (/ &
+ & 0.70072E+03_JPRB,0.56769E+03_JPRB,0.52897E+03_JPRB,0.55990E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,33, 5) = (/ &
+ & 0.70067E+03_JPRB,0.56765E+03_JPRB,0.52887E+03_JPRB,0.55990E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,34, 5) = (/ &
+ & 0.70068E+03_JPRB,0.56766E+03_JPRB,0.52896E+03_JPRB,0.55990E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,34, 5) = (/ &
+ & 0.70062E+03_JPRB,0.56762E+03_JPRB,0.52895E+03_JPRB,0.55989E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,34, 5) = (/ &
+ & 0.70057E+03_JPRB,0.56758E+03_JPRB,0.52892E+03_JPRB,0.55989E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,34, 5) = (/ &
+ & 0.70053E+03_JPRB,0.56755E+03_JPRB,0.52885E+03_JPRB,0.55989E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,34, 5) = (/ &
+ & 0.70049E+03_JPRB,0.56752E+03_JPRB,0.52874E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,35, 5) = (/ &
+ & 0.70050E+03_JPRB,0.56753E+03_JPRB,0.52886E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,35, 5) = (/ &
+ & 0.70046E+03_JPRB,0.56750E+03_JPRB,0.52885E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,35, 5) = (/ &
+ & 0.70042E+03_JPRB,0.56747E+03_JPRB,0.52883E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,35, 5) = (/ &
+ & 0.70039E+03_JPRB,0.56744E+03_JPRB,0.52876E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,35, 5) = (/ &
+ & 0.70035E+03_JPRB,0.56742E+03_JPRB,0.52864E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,36, 5) = (/ &
+ & 0.70037E+03_JPRB,0.56743E+03_JPRB,0.52877E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,36, 5) = (/ &
+ & 0.70033E+03_JPRB,0.56740E+03_JPRB,0.52878E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,36, 5) = (/ &
+ & 0.70030E+03_JPRB,0.56738E+03_JPRB,0.52875E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,36, 5) = (/ &
+ & 0.70027E+03_JPRB,0.56736E+03_JPRB,0.52869E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,36, 5) = (/ &
+ & 0.70025E+03_JPRB,0.56734E+03_JPRB,0.52857E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,37, 5) = (/ &
+ & 0.70026E+03_JPRB,0.56735E+03_JPRB,0.52870E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,37, 5) = (/ &
+ & 0.70023E+03_JPRB,0.56733E+03_JPRB,0.52872E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,37, 5) = (/ &
+ & 0.70020E+03_JPRB,0.56731E+03_JPRB,0.52870E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,37, 5) = (/ &
+ & 0.70018E+03_JPRB,0.56729E+03_JPRB,0.52864E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,37, 5) = (/ &
+ & 0.70016E+03_JPRB,0.56727E+03_JPRB,0.52854E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,38, 5) = (/ &
+ & 0.70017E+03_JPRB,0.56728E+03_JPRB,0.52864E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,38, 5) = (/ &
+ & 0.70015E+03_JPRB,0.56726E+03_JPRB,0.52866E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,38, 5) = (/ &
+ & 0.70012E+03_JPRB,0.56725E+03_JPRB,0.52866E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,38, 5) = (/ &
+ & 0.70010E+03_JPRB,0.56723E+03_JPRB,0.52860E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,38, 5) = (/ &
+ & 0.70009E+03_JPRB,0.56722E+03_JPRB,0.52852E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,39, 5) = (/ &
+ & 0.70010E+03_JPRB,0.56723E+03_JPRB,0.52860E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,39, 5) = (/ &
+ & 0.70008E+03_JPRB,0.56721E+03_JPRB,0.52862E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,39, 5) = (/ &
+ & 0.70006E+03_JPRB,0.56720E+03_JPRB,0.52861E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,39, 5) = (/ &
+ & 0.70004E+03_JPRB,0.56719E+03_JPRB,0.52858E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,39, 5) = (/ &
+ & 0.70003E+03_JPRB,0.56717E+03_JPRB,0.52850E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,40, 5) = (/ &
+ & 0.70004E+03_JPRB,0.56718E+03_JPRB,0.52855E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,40, 5) = (/ &
+ & 0.70002E+03_JPRB,0.56717E+03_JPRB,0.52858E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,40, 5) = (/ &
+ & 0.70001E+03_JPRB,0.56716E+03_JPRB,0.52859E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,40, 5) = (/ &
+ & 0.69999E+03_JPRB,0.56715E+03_JPRB,0.52856E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,40, 5) = (/ &
+ & 0.69998E+03_JPRB,0.56714E+03_JPRB,0.52849E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,41, 5) = (/ &
+ & 0.69999E+03_JPRB,0.56715E+03_JPRB,0.52850E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,41, 5) = (/ &
+ & 0.69998E+03_JPRB,0.56714E+03_JPRB,0.52854E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,41, 5) = (/ &
+ & 0.69996E+03_JPRB,0.56713E+03_JPRB,0.52856E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,41, 5) = (/ &
+ & 0.69995E+03_JPRB,0.56712E+03_JPRB,0.52854E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,41, 5) = (/ &
+ & 0.69994E+03_JPRB,0.56711E+03_JPRB,0.52848E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,42, 5) = (/ &
+ & 0.69995E+03_JPRB,0.56712E+03_JPRB,0.52846E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,42, 5) = (/ &
+ & 0.69994E+03_JPRB,0.56711E+03_JPRB,0.52851E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,42, 5) = (/ &
+ & 0.69993E+03_JPRB,0.56710E+03_JPRB,0.52853E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,42, 5) = (/ &
+ & 0.69992E+03_JPRB,0.56709E+03_JPRB,0.52853E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,42, 5) = (/ &
+ & 0.69991E+03_JPRB,0.56709E+03_JPRB,0.52848E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,43, 5) = (/ &
+ & 0.69992E+03_JPRB,0.56709E+03_JPRB,0.52843E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,43, 5) = (/ &
+ & 0.69991E+03_JPRB,0.56708E+03_JPRB,0.52848E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,43, 5) = (/ &
+ & 0.69990E+03_JPRB,0.56708E+03_JPRB,0.52851E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,43, 5) = (/ &
+ & 0.69989E+03_JPRB,0.56707E+03_JPRB,0.52851E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,43, 5) = (/ &
+ & 0.69988E+03_JPRB,0.56707E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,44, 5) = (/ &
+ & 0.69989E+03_JPRB,0.56707E+03_JPRB,0.52838E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,44, 5) = (/ &
+ & 0.69988E+03_JPRB,0.56707E+03_JPRB,0.52844E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,44, 5) = (/ &
+ & 0.69988E+03_JPRB,0.56706E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,44, 5) = (/ &
+ & 0.69987E+03_JPRB,0.56705E+03_JPRB,0.52850E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,44, 5) = (/ &
+ & 0.69986E+03_JPRB,0.56705E+03_JPRB,0.52849E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,45, 5) = (/ &
+ & 0.69987E+03_JPRB,0.56706E+03_JPRB,0.52834E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,45, 5) = (/ &
+ & 0.69986E+03_JPRB,0.56705E+03_JPRB,0.52841E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,45, 5) = (/ &
+ & 0.69986E+03_JPRB,0.56704E+03_JPRB,0.52846E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,45, 5) = (/ &
+ & 0.69985E+03_JPRB,0.56704E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,45, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56704E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,46, 5) = (/ &
+ & 0.69985E+03_JPRB,0.56704E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,46, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56704E+03_JPRB,0.52837E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,46, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56703E+03_JPRB,0.52843E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,46, 5) = (/ &
+ & 0.69983E+03_JPRB,0.56703E+03_JPRB,0.52847E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,46, 5) = (/ &
+ & 0.69983E+03_JPRB,0.56703E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,47, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56703E+03_JPRB,0.52826E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,47, 5) = (/ &
+ & 0.69983E+03_JPRB,0.56703E+03_JPRB,0.52834E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,47, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52840E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,47, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52845E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,47, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52847E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,48, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52821E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,48, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,48, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52837E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,48, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52842E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,48, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52845E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,49, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52817E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,49, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52825E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,49, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56701E+03_JPRB,0.52833E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,49, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52840E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,49, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52844E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,50, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56701E+03_JPRB,0.52812E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,50, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52821E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,50, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,50, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52837E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,50, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52842E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52807E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52818E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52827E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52834E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,51, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52841E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,52, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52802E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,52, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52814E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,52, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52823E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,52, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52831E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,52, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52838E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52798E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52809E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52820E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52828E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,53, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52836E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,54, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52794E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,54, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52804E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,54, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52816E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,54, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52825E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,54, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52833E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52790E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52801E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52812E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52822E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52786E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52797E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52808E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52819E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52827E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,57, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52781E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART20',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,57, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52794E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,57, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52805E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,57, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52815E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,57, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52825E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,58, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52777E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52790E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52801E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52812E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52822E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52775E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52788E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52801E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52811E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52821E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,13, 6) = (/ &
+ & 0.99182E+03_JPRB,0.76479E+03_JPRB,0.58123E+03_JPRB,0.73928E+03_JPRB,0.94808E+03_JPRB /)  
+KB(:, 2,13, 6) = (/ &
+ & 0.98417E+03_JPRB,0.75904E+03_JPRB,0.57888E+03_JPRB,0.73991E+03_JPRB,0.94920E+03_JPRB /)  
+KB(:, 3,13, 6) = (/ &
+ & 0.97757E+03_JPRB,0.75410E+03_JPRB,0.57650E+03_JPRB,0.74029E+03_JPRB,0.94995E+03_JPRB /)  
+KB(:, 4,13, 6) = (/ &
+ & 0.97184E+03_JPRB,0.74980E+03_JPRB,0.57428E+03_JPRB,0.74046E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 5,13, 6) = (/ &
+ & 0.96680E+03_JPRB,0.74602E+03_JPRB,0.57217E+03_JPRB,0.74043E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 1,14, 6) = (/ &
+ & 0.97264E+03_JPRB,0.75040E+03_JPRB,0.57482E+03_JPRB,0.73884E+03_JPRB,0.94820E+03_JPRB /)  
+KB(:, 2,14, 6) = (/ &
+ & 0.96646E+03_JPRB,0.74576E+03_JPRB,0.57229E+03_JPRB,0.73949E+03_JPRB,0.94928E+03_JPRB /)  
+KB(:, 3,14, 6) = (/ &
+ & 0.96113E+03_JPRB,0.74177E+03_JPRB,0.57016E+03_JPRB,0.73988E+03_JPRB,0.95000E+03_JPRB /)  
+KB(:, 4,14, 6) = (/ &
+ & 0.95649E+03_JPRB,0.73829E+03_JPRB,0.56822E+03_JPRB,0.74006E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 5,14, 6) = (/ &
+ & 0.95242E+03_JPRB,0.73523E+03_JPRB,0.56635E+03_JPRB,0.74003E+03_JPRB,0.95032E+03_JPRB /)  
+KB(:, 1,15, 6) = (/ &
+ & 0.95700E+03_JPRB,0.73867E+03_JPRB,0.56844E+03_JPRB,0.73851E+03_JPRB,0.94832E+03_JPRB /)  
+KB(:, 2,15, 6) = (/ &
+ & 0.95201E+03_JPRB,0.73493E+03_JPRB,0.56632E+03_JPRB,0.73916E+03_JPRB,0.94937E+03_JPRB /)  
+KB(:, 3,15, 6) = (/ &
+ & 0.94772E+03_JPRB,0.73170E+03_JPRB,0.56426E+03_JPRB,0.73956E+03_JPRB,0.95005E+03_JPRB /)  
+KB(:, 4,15, 6) = (/ &
+ & 0.94397E+03_JPRB,0.72889E+03_JPRB,0.56242E+03_JPRB,0.73973E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 5,15, 6) = (/ &
+ & 0.94067E+03_JPRB,0.72642E+03_JPRB,0.56076E+03_JPRB,0.73970E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 1,16, 6) = (/ &
+ & 0.94427E+03_JPRB,0.72912E+03_JPRB,0.56257E+03_JPRB,0.73826E+03_JPRB,0.94846E+03_JPRB /)  
+KB(:, 2,16, 6) = (/ &
+ & 0.94026E+03_JPRB,0.72611E+03_JPRB,0.56064E+03_JPRB,0.73891E+03_JPRB,0.94946E+03_JPRB /)  
+KB(:, 3,16, 6) = (/ &
+ & 0.93679E+03_JPRB,0.72351E+03_JPRB,0.55906E+03_JPRB,0.73929E+03_JPRB,0.95011E+03_JPRB /)  
+KB(:, 4,16, 6) = (/ &
+ & 0.93377E+03_JPRB,0.72124E+03_JPRB,0.55770E+03_JPRB,0.73948E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 5,16, 6) = (/ &
+ & 0.93110E+03_JPRB,0.71925E+03_JPRB,0.55641E+03_JPRB,0.73943E+03_JPRB,0.95027E+03_JPRB /)  
+KB(:, 1,17, 6) = (/ &
+ & 0.93395E+03_JPRB,0.72138E+03_JPRB,0.55755E+03_JPRB,0.73807E+03_JPRB,0.94857E+03_JPRB /)  
+KB(:, 2,17, 6) = (/ &
+ & 0.93072E+03_JPRB,0.71896E+03_JPRB,0.55622E+03_JPRB,0.73871E+03_JPRB,0.94955E+03_JPRB /)  
+KB(:, 3,17, 6) = (/ &
+ & 0.92792E+03_JPRB,0.71686E+03_JPRB,0.55497E+03_JPRB,0.73909E+03_JPRB,0.95015E+03_JPRB /)  
+KB(:, 4,17, 6) = (/ &
+ & 0.92548E+03_JPRB,0.71503E+03_JPRB,0.55372E+03_JPRB,0.73925E+03_JPRB,0.95038E+03_JPRB /)  
+KB(:, 5,17, 6) = (/ &
+ & 0.92333E+03_JPRB,0.71341E+03_JPRB,0.55252E+03_JPRB,0.73921E+03_JPRB,0.95024E+03_JPRB /)  
+KB(:, 1,18, 6) = (/ &
+ & 0.92558E+03_JPRB,0.71510E+03_JPRB,0.55360E+03_JPRB,0.73792E+03_JPRB,0.94869E+03_JPRB /)  
+KB(:, 2,18, 6) = (/ &
+ & 0.92297E+03_JPRB,0.71315E+03_JPRB,0.55237E+03_JPRB,0.73856E+03_JPRB,0.94963E+03_JPRB /)  
+KB(:, 3,18, 6) = (/ &
+ & 0.92072E+03_JPRB,0.71146E+03_JPRB,0.55114E+03_JPRB,0.73892E+03_JPRB,0.95019E+03_JPRB /)  
+KB(:, 4,18, 6) = (/ &
+ & 0.91874E+03_JPRB,0.70998E+03_JPRB,0.55001E+03_JPRB,0.73908E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 5,18, 6) = (/ &
+ & 0.91700E+03_JPRB,0.70867E+03_JPRB,0.54903E+03_JPRB,0.73903E+03_JPRB,0.95021E+03_JPRB /)  
+KB(:, 1,19, 6) = (/ &
+ & 0.91879E+03_JPRB,0.71001E+03_JPRB,0.55004E+03_JPRB,0.73782E+03_JPRB,0.94880E+03_JPRB /)  
+KB(:, 2,19, 6) = (/ &
+ & 0.91668E+03_JPRB,0.70843E+03_JPRB,0.54889E+03_JPRB,0.73844E+03_JPRB,0.94970E+03_JPRB /)  
+KB(:, 3,19, 6) = (/ &
+ & 0.91486E+03_JPRB,0.70706E+03_JPRB,0.54830E+03_JPRB,0.73880E+03_JPRB,0.95023E+03_JPRB /)  
+KB(:, 4,19, 6) = (/ &
+ & 0.91327E+03_JPRB,0.70587E+03_JPRB,0.54705E+03_JPRB,0.73894E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 5,19, 6) = (/ &
+ & 0.91186E+03_JPRB,0.70481E+03_JPRB,0.54615E+03_JPRB,0.73887E+03_JPRB,0.95019E+03_JPRB /)  
+KB(:, 1,20, 6) = (/ &
+ & 0.91324E+03_JPRB,0.70585E+03_JPRB,0.54718E+03_JPRB,0.73776E+03_JPRB,0.94893E+03_JPRB /)  
+KB(:, 2,20, 6) = (/ &
+ & 0.91155E+03_JPRB,0.70458E+03_JPRB,0.54599E+03_JPRB,0.73835E+03_JPRB,0.94979E+03_JPRB /)  
+KB(:, 3,20, 6) = (/ &
+ & 0.91008E+03_JPRB,0.70348E+03_JPRB,0.54519E+03_JPRB,0.73870E+03_JPRB,0.95026E+03_JPRB /)  
+KB(:, 4,20, 6) = (/ &
+ & 0.90879E+03_JPRB,0.70251E+03_JPRB,0.54450E+03_JPRB,0.73882E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 5,20, 6) = (/ &
+ & 0.90766E+03_JPRB,0.70166E+03_JPRB,0.54390E+03_JPRB,0.73874E+03_JPRB,0.95013E+03_JPRB /)  
+KB(:, 1,21, 6) = (/ &
+ & 0.90874E+03_JPRB,0.70247E+03_JPRB,0.54444E+03_JPRB,0.73773E+03_JPRB,0.94905E+03_JPRB /)  
+KB(:, 2,21, 6) = (/ &
+ & 0.90737E+03_JPRB,0.70145E+03_JPRB,0.54370E+03_JPRB,0.73831E+03_JPRB,0.94986E+03_JPRB /)  
+KB(:, 3,21, 6) = (/ &
+ & 0.90619E+03_JPRB,0.70056E+03_JPRB,0.54308E+03_JPRB,0.73862E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 4,21, 6) = (/ &
+ & 0.90515E+03_JPRB,0.69978E+03_JPRB,0.54255E+03_JPRB,0.73872E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 5,21, 6) = (/ &
+ & 0.90424E+03_JPRB,0.69910E+03_JPRB,0.54208E+03_JPRB,0.73862E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 1,22, 6) = (/ &
+ & 0.90500E+03_JPRB,0.69967E+03_JPRB,0.54240E+03_JPRB,0.73776E+03_JPRB,0.94923E+03_JPRB /)  
+KB(:, 2,22, 6) = (/ &
+ & 0.90392E+03_JPRB,0.69886E+03_JPRB,0.54185E+03_JPRB,0.73829E+03_JPRB,0.94997E+03_JPRB /)  
+KB(:, 3,22, 6) = (/ &
+ & 0.90297E+03_JPRB,0.69815E+03_JPRB,0.54138E+03_JPRB,0.73857E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 4,22, 6) = (/ &
+ & 0.90215E+03_JPRB,0.69753E+03_JPRB,0.54099E+03_JPRB,0.73864E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 5,22, 6) = (/ &
+ & 0.90141E+03_JPRB,0.69698E+03_JPRB,0.54066E+03_JPRB,0.73851E+03_JPRB,0.94999E+03_JPRB /)  
+KB(:, 1,23, 6) = (/ &
+ & 0.90199E+03_JPRB,0.69741E+03_JPRB,0.54083E+03_JPRB,0.73780E+03_JPRB,0.94940E+03_JPRB /)  
+KB(:, 2,23, 6) = (/ &
+ & 0.90112E+03_JPRB,0.69676E+03_JPRB,0.54044E+03_JPRB,0.73828E+03_JPRB,0.95007E+03_JPRB /)  
+KB(:, 3,23, 6) = (/ &
+ & 0.90037E+03_JPRB,0.69620E+03_JPRB,0.54010E+03_JPRB,0.73854E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 4,23, 6) = (/ &
+ & 0.89971E+03_JPRB,0.69570E+03_JPRB,0.53983E+03_JPRB,0.73858E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 5,23, 6) = (/ &
+ & 0.89912E+03_JPRB,0.69526E+03_JPRB,0.53959E+03_JPRB,0.73840E+03_JPRB,0.94989E+03_JPRB /)  
+KB(:, 1,24, 6) = (/ &
+ & 0.89955E+03_JPRB,0.69558E+03_JPRB,0.53965E+03_JPRB,0.73787E+03_JPRB,0.94957E+03_JPRB /)  
+KB(:, 2,24, 6) = (/ &
+ & 0.89886E+03_JPRB,0.69507E+03_JPRB,0.53937E+03_JPRB,0.73829E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:, 3,24, 6) = (/ &
+ & 0.89826E+03_JPRB,0.69461E+03_JPRB,0.53914E+03_JPRB,0.73851E+03_JPRB,0.95038E+03_JPRB /)  
+KB(:, 4,24, 6) = (/ &
+ & 0.89773E+03_JPRB,0.69422E+03_JPRB,0.53895E+03_JPRB,0.73850E+03_JPRB,0.95023E+03_JPRB /)  
+KB(:, 5,24, 6) = (/ &
+ & 0.89726E+03_JPRB,0.69387E+03_JPRB,0.53876E+03_JPRB,0.73829E+03_JPRB,0.94977E+03_JPRB /)  
+KB(:, 1,25, 6) = (/ &
+ & 0.89758E+03_JPRB,0.69410E+03_JPRB,0.53876E+03_JPRB,0.73792E+03_JPRB,0.94973E+03_JPRB /)  
+KB(:, 2,25, 6) = (/ &
+ & 0.89703E+03_JPRB,0.69369E+03_JPRB,0.53857E+03_JPRB,0.73831E+03_JPRB,0.95024E+03_JPRB /)  
+KB(:, 3,25, 6) = (/ &
+ & 0.89655E+03_JPRB,0.69333E+03_JPRB,0.53841E+03_JPRB,0.73848E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 4,25, 6) = (/ &
+ & 0.89613E+03_JPRB,0.69302E+03_JPRB,0.53826E+03_JPRB,0.73843E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:, 5,25, 6) = (/ &
+ & 0.89576E+03_JPRB,0.69273E+03_JPRB,0.53811E+03_JPRB,0.73818E+03_JPRB,0.94963E+03_JPRB /)  
+KB(:, 1,26, 6) = (/ &
+ & 0.89598E+03_JPRB,0.69290E+03_JPRB,0.53808E+03_JPRB,0.73799E+03_JPRB,0.94987E+03_JPRB /)  
+KB(:, 2,26, 6) = (/ &
+ & 0.89555E+03_JPRB,0.69258E+03_JPRB,0.53794E+03_JPRB,0.73834E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:, 3,26, 6) = (/ &
+ & 0.89517E+03_JPRB,0.69229E+03_JPRB,0.53782E+03_JPRB,0.73845E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 4,26, 6) = (/ &
+ & 0.89483E+03_JPRB,0.69204E+03_JPRB,0.53770E+03_JPRB,0.73836E+03_JPRB,0.95007E+03_JPRB /)  
+KB(:, 5,26, 6) = (/ &
+ & 0.89453E+03_JPRB,0.69182E+03_JPRB,0.53759E+03_JPRB,0.73806E+03_JPRB,0.94946E+03_JPRB /)  
+KB(:, 1,27, 6) = (/ &
+ & 0.89469E+03_JPRB,0.69194E+03_JPRB,0.53754E+03_JPRB,0.73806E+03_JPRB,0.95001E+03_JPRB /)  
+KB(:, 2,27, 6) = (/ &
+ & 0.89435E+03_JPRB,0.69168E+03_JPRB,0.53744E+03_JPRB,0.73835E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 3,27, 6) = (/ &
+ & 0.89405E+03_JPRB,0.69145E+03_JPRB,0.53736E+03_JPRB,0.73843E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 4,27, 6) = (/ &
+ & 0.89378E+03_JPRB,0.69125E+03_JPRB,0.53727E+03_JPRB,0.73828E+03_JPRB,0.94995E+03_JPRB /)  
+KB(:, 5,27, 6) = (/ &
+ & 0.89354E+03_JPRB,0.69107E+03_JPRB,0.53717E+03_JPRB,0.73792E+03_JPRB,0.94926E+03_JPRB /)  
+KB(:, 1,28, 6) = (/ &
+ & 0.89366E+03_JPRB,0.69116E+03_JPRB,0.53711E+03_JPRB,0.73814E+03_JPRB,0.95012E+03_JPRB /)  
+KB(:, 2,28, 6) = (/ &
+ & 0.89338E+03_JPRB,0.69096E+03_JPRB,0.53705E+03_JPRB,0.73836E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 3,28, 6) = (/ &
+ & 0.89314E+03_JPRB,0.69078E+03_JPRB,0.53699E+03_JPRB,0.73838E+03_JPRB,0.95026E+03_JPRB /)  
+KB(:, 4,28, 6) = (/ &
+ & 0.89293E+03_JPRB,0.69062E+03_JPRB,0.53692E+03_JPRB,0.73819E+03_JPRB,0.94982E+03_JPRB /)  
+KB(:, 5,28, 6) = (/ &
+ & 0.89274E+03_JPRB,0.69047E+03_JPRB,0.53684E+03_JPRB,0.73778E+03_JPRB,0.94904E+03_JPRB /)  
+KB(:, 1,29, 6) = (/ &
+ & 0.89282E+03_JPRB,0.69053E+03_JPRB,0.53678E+03_JPRB,0.73818E+03_JPRB,0.95022E+03_JPRB /)  
+KB(:, 2,29, 6) = (/ &
+ & 0.89261E+03_JPRB,0.69037E+03_JPRB,0.53674E+03_JPRB,0.73837E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 3,29, 6) = (/ &
+ & 0.89241E+03_JPRB,0.69023E+03_JPRB,0.53670E+03_JPRB,0.73834E+03_JPRB,0.95018E+03_JPRB /)  
+KB(:, 4,29, 6) = (/ &
+ & 0.89224E+03_JPRB,0.69010E+03_JPRB,0.53663E+03_JPRB,0.73810E+03_JPRB,0.94966E+03_JPRB /)  
+KB(:, 5,29, 6) = (/ &
+ & 0.89209E+03_JPRB,0.68999E+03_JPRB,0.53656E+03_JPRB,0.73762E+03_JPRB,0.94880E+03_JPRB /)  
+KB(:, 1,30, 6) = (/ &
+ & 0.89215E+03_JPRB,0.69003E+03_JPRB,0.53652E+03_JPRB,0.73823E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 2,30, 6) = (/ &
+ & 0.89198E+03_JPRB,0.68990E+03_JPRB,0.53650E+03_JPRB,0.73836E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 3,30, 6) = (/ &
+ & 0.89183E+03_JPRB,0.68979E+03_JPRB,0.53646E+03_JPRB,0.73828E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 4,30, 6) = (/ &
+ & 0.89169E+03_JPRB,0.68969E+03_JPRB,0.53641E+03_JPRB,0.73798E+03_JPRB,0.94948E+03_JPRB /)  
+KB(:, 5,30, 6) = (/ &
+ & 0.89157E+03_JPRB,0.68960E+03_JPRB,0.53634E+03_JPRB,0.73744E+03_JPRB,0.94852E+03_JPRB /)  
+KB(:, 1,31, 6) = (/ &
+ & 0.89161E+03_JPRB,0.68962E+03_JPRB,0.53631E+03_JPRB,0.73827E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 2,31, 6) = (/ &
+ & 0.89147E+03_JPRB,0.68952E+03_JPRB,0.53629E+03_JPRB,0.73835E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 3,31, 6) = (/ &
+ & 0.89135E+03_JPRB,0.68943E+03_JPRB,0.53627E+03_JPRB,0.73821E+03_JPRB,0.94996E+03_JPRB /)  
+KB(:, 4,31, 6) = (/ &
+ & 0.89124E+03_JPRB,0.68935E+03_JPRB,0.53622E+03_JPRB,0.73786E+03_JPRB,0.94927E+03_JPRB /)  
+KB(:, 5,31, 6) = (/ &
+ & 0.89115E+03_JPRB,0.68928E+03_JPRB,0.53615E+03_JPRB,0.73725E+03_JPRB,0.94822E+03_JPRB /)  
+KB(:, 1,32, 6) = (/ &
+ & 0.89117E+03_JPRB,0.68930E+03_JPRB,0.53614E+03_JPRB,0.73830E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 2,32, 6) = (/ &
+ & 0.89106E+03_JPRB,0.68922E+03_JPRB,0.53614E+03_JPRB,0.73833E+03_JPRB,0.95025E+03_JPRB /)  
+KB(:, 3,32, 6) = (/ &
+ & 0.89097E+03_JPRB,0.68914E+03_JPRB,0.53611E+03_JPRB,0.73813E+03_JPRB,0.94981E+03_JPRB /)  
+KB(:, 4,32, 6) = (/ &
+ & 0.89088E+03_JPRB,0.68908E+03_JPRB,0.53608E+03_JPRB,0.73772E+03_JPRB,0.94903E+03_JPRB /)  
+KB(:, 5,32, 6) = (/ &
+ & 0.89081E+03_JPRB,0.68902E+03_JPRB,0.53600E+03_JPRB,0.73703E+03_JPRB,0.94789E+03_JPRB /)  
+KB(:, 1,33, 6) = (/ &
+ & 0.89082E+03_JPRB,0.68903E+03_JPRB,0.53602E+03_JPRB,0.73832E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 2,33, 6) = (/ &
+ & 0.89073E+03_JPRB,0.68897E+03_JPRB,0.53601E+03_JPRB,0.73829E+03_JPRB,0.95017E+03_JPRB /)  
+KB(:, 3,33, 6) = (/ &
+ & 0.89066E+03_JPRB,0.68891E+03_JPRB,0.53599E+03_JPRB,0.73804E+03_JPRB,0.94964E+03_JPRB /)  
+KB(:, 4,33, 6) = (/ &
+ & 0.89059E+03_JPRB,0.68886E+03_JPRB,0.53595E+03_JPRB,0.73756E+03_JPRB,0.94877E+03_JPRB /)  
+KB(:, 5,33, 6) = (/ &
+ & 0.89053E+03_JPRB,0.68882E+03_JPRB,0.53586E+03_JPRB,0.73678E+03_JPRB,0.94753E+03_JPRB /)  
+KB(:, 1,34, 6) = (/ &
+ & 0.89054E+03_JPRB,0.68882E+03_JPRB,0.53592E+03_JPRB,0.73832E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 2,34, 6) = (/ &
+ & 0.89047E+03_JPRB,0.68877E+03_JPRB,0.53592E+03_JPRB,0.73824E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 3,34, 6) = (/ &
+ & 0.89041E+03_JPRB,0.68873E+03_JPRB,0.53589E+03_JPRB,0.73795E+03_JPRB,0.94947E+03_JPRB /)  
+KB(:, 4,34, 6) = (/ &
+ & 0.89036E+03_JPRB,0.68869E+03_JPRB,0.53584E+03_JPRB,0.73741E+03_JPRB,0.94852E+03_JPRB /)  
+KB(:, 5,34, 6) = (/ &
+ & 0.89031E+03_JPRB,0.68865E+03_JPRB,0.53575E+03_JPRB,0.73655E+03_JPRB,0.94719E+03_JPRB /)  
+KB(:, 1,35, 6) = (/ &
+ & 0.89032E+03_JPRB,0.68866E+03_JPRB,0.53584E+03_JPRB,0.73832E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 2,35, 6) = (/ &
+ & 0.89027E+03_JPRB,0.68862E+03_JPRB,0.53584E+03_JPRB,0.73821E+03_JPRB,0.95002E+03_JPRB /)  
+KB(:, 3,35, 6) = (/ &
+ & 0.89022E+03_JPRB,0.68858E+03_JPRB,0.53581E+03_JPRB,0.73788E+03_JPRB,0.94937E+03_JPRB /)  
+KB(:, 4,35, 6) = (/ &
+ & 0.89017E+03_JPRB,0.68855E+03_JPRB,0.53576E+03_JPRB,0.73731E+03_JPRB,0.94836E+03_JPRB /)  
+KB(:, 5,35, 6) = (/ &
+ & 0.89013E+03_JPRB,0.68852E+03_JPRB,0.53567E+03_JPRB,0.73640E+03_JPRB,0.94700E+03_JPRB /)  
+KB(:, 1,36, 6) = (/ &
+ & 0.89015E+03_JPRB,0.68853E+03_JPRB,0.53577E+03_JPRB,0.73831E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 2,36, 6) = (/ &
+ & 0.89010E+03_JPRB,0.68849E+03_JPRB,0.53577E+03_JPRB,0.73820E+03_JPRB,0.95001E+03_JPRB /)  
+KB(:, 3,36, 6) = (/ &
+ & 0.89006E+03_JPRB,0.68846E+03_JPRB,0.53575E+03_JPRB,0.73787E+03_JPRB,0.94935E+03_JPRB /)  
+KB(:, 4,36, 6) = (/ &
+ & 0.89003E+03_JPRB,0.68844E+03_JPRB,0.53570E+03_JPRB,0.73729E+03_JPRB,0.94834E+03_JPRB /)  
+KB(:, 5,36, 6) = (/ &
+ & 0.88999E+03_JPRB,0.68841E+03_JPRB,0.53561E+03_JPRB,0.73637E+03_JPRB,0.94696E+03_JPRB /)  
+KB(:, 1,37, 6) = (/ &
+ & 0.89001E+03_JPRB,0.68843E+03_JPRB,0.53571E+03_JPRB,0.73831E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 2,37, 6) = (/ &
+ & 0.88997E+03_JPRB,0.68840E+03_JPRB,0.53572E+03_JPRB,0.73823E+03_JPRB,0.95007E+03_JPRB /)  
+KB(:, 3,37, 6) = (/ &
+ & 0.88994E+03_JPRB,0.68837E+03_JPRB,0.53570E+03_JPRB,0.73792E+03_JPRB,0.94946E+03_JPRB /)  
+KB(:, 4,37, 6) = (/ &
+ & 0.88991E+03_JPRB,0.68835E+03_JPRB,0.53566E+03_JPRB,0.73738E+03_JPRB,0.94849E+03_JPRB /)  
+KB(:, 5,37, 6) = (/ &
+ & 0.88988E+03_JPRB,0.68833E+03_JPRB,0.53557E+03_JPRB,0.73651E+03_JPRB,0.94716E+03_JPRB /)  
+KB(:, 1,38, 6) = (/ &
+ & 0.88990E+03_JPRB,0.68834E+03_JPRB,0.53566E+03_JPRB,0.73830E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 2,38, 6) = (/ &
+ & 0.88987E+03_JPRB,0.68832E+03_JPRB,0.53568E+03_JPRB,0.73825E+03_JPRB,0.95013E+03_JPRB /)  
+KB(:, 3,38, 6) = (/ &
+ & 0.88984E+03_JPRB,0.68830E+03_JPRB,0.53566E+03_JPRB,0.73798E+03_JPRB,0.94957E+03_JPRB /)  
+KB(:, 4,38, 6) = (/ &
+ & 0.88982E+03_JPRB,0.68828E+03_JPRB,0.53563E+03_JPRB,0.73747E+03_JPRB,0.94865E+03_JPRB /)  
+KB(:, 5,38, 6) = (/ &
+ & 0.88979E+03_JPRB,0.68826E+03_JPRB,0.53555E+03_JPRB,0.73665E+03_JPRB,0.94737E+03_JPRB /)  
+KB(:, 1,39, 6) = (/ &
+ & 0.88981E+03_JPRB,0.68827E+03_JPRB,0.53562E+03_JPRB,0.73829E+03_JPRB,0.95037E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART21',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,39, 6) = (/ &
+ & 0.88978E+03_JPRB,0.68825E+03_JPRB,0.53564E+03_JPRB,0.73826E+03_JPRB,0.95018E+03_JPRB /)  
+KB(:, 3,39, 6) = (/ &
+ & 0.88976E+03_JPRB,0.68824E+03_JPRB,0.53563E+03_JPRB,0.73803E+03_JPRB,0.94966E+03_JPRB /)  
+KB(:, 4,39, 6) = (/ &
+ & 0.88974E+03_JPRB,0.68822E+03_JPRB,0.53560E+03_JPRB,0.73755E+03_JPRB,0.94880E+03_JPRB /)  
+KB(:, 5,39, 6) = (/ &
+ & 0.88972E+03_JPRB,0.68821E+03_JPRB,0.53553E+03_JPRB,0.73679E+03_JPRB,0.94757E+03_JPRB /)  
+KB(:, 1,40, 6) = (/ &
+ & 0.88973E+03_JPRB,0.68822E+03_JPRB,0.53558E+03_JPRB,0.73826E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 2,40, 6) = (/ &
+ & 0.88971E+03_JPRB,0.68820E+03_JPRB,0.53561E+03_JPRB,0.73829E+03_JPRB,0.95026E+03_JPRB /)  
+KB(:, 3,40, 6) = (/ &
+ & 0.88969E+03_JPRB,0.68819E+03_JPRB,0.53561E+03_JPRB,0.73810E+03_JPRB,0.94982E+03_JPRB /)  
+KB(:, 4,40, 6) = (/ &
+ & 0.88967E+03_JPRB,0.68817E+03_JPRB,0.53559E+03_JPRB,0.73769E+03_JPRB,0.94904E+03_JPRB /)  
+KB(:, 5,40, 6) = (/ &
+ & 0.88966E+03_JPRB,0.68816E+03_JPRB,0.53553E+03_JPRB,0.73700E+03_JPRB,0.94790E+03_JPRB /)  
+KB(:, 1,41, 6) = (/ &
+ & 0.88967E+03_JPRB,0.68817E+03_JPRB,0.53555E+03_JPRB,0.73822E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 2,41, 6) = (/ &
+ & 0.88965E+03_JPRB,0.68816E+03_JPRB,0.53558E+03_JPRB,0.73830E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 3,41, 6) = (/ &
+ & 0.88964E+03_JPRB,0.68815E+03_JPRB,0.53559E+03_JPRB,0.73817E+03_JPRB,0.94996E+03_JPRB /)  
+KB(:, 4,41, 6) = (/ &
+ & 0.88962E+03_JPRB,0.68813E+03_JPRB,0.53558E+03_JPRB,0.73782E+03_JPRB,0.94927E+03_JPRB /)  
+KB(:, 5,41, 6) = (/ &
+ & 0.88961E+03_JPRB,0.68812E+03_JPRB,0.53553E+03_JPRB,0.73722E+03_JPRB,0.94822E+03_JPRB /)  
+KB(:, 1,42, 6) = (/ &
+ & 0.88962E+03_JPRB,0.68813E+03_JPRB,0.53551E+03_JPRB,0.73816E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 2,42, 6) = (/ &
+ & 0.88960E+03_JPRB,0.68812E+03_JPRB,0.53555E+03_JPRB,0.73830E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 3,42, 6) = (/ &
+ & 0.88959E+03_JPRB,0.68811E+03_JPRB,0.53557E+03_JPRB,0.73822E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 4,42, 6) = (/ &
+ & 0.88958E+03_JPRB,0.68810E+03_JPRB,0.53556E+03_JPRB,0.73793E+03_JPRB,0.94948E+03_JPRB /)  
+KB(:, 5,42, 6) = (/ &
+ & 0.88957E+03_JPRB,0.68809E+03_JPRB,0.53553E+03_JPRB,0.73739E+03_JPRB,0.94853E+03_JPRB /)  
+KB(:, 1,43, 6) = (/ &
+ & 0.88958E+03_JPRB,0.68810E+03_JPRB,0.53547E+03_JPRB,0.73807E+03_JPRB,0.95020E+03_JPRB /)  
+KB(:, 2,43, 6) = (/ &
+ & 0.88957E+03_JPRB,0.68809E+03_JPRB,0.53552E+03_JPRB,0.73828E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 3,43, 6) = (/ &
+ & 0.88955E+03_JPRB,0.68808E+03_JPRB,0.53555E+03_JPRB,0.73826E+03_JPRB,0.95020E+03_JPRB /)  
+KB(:, 4,43, 6) = (/ &
+ & 0.88954E+03_JPRB,0.68808E+03_JPRB,0.53555E+03_JPRB,0.73804E+03_JPRB,0.94970E+03_JPRB /)  
+KB(:, 5,43, 6) = (/ &
+ & 0.88953E+03_JPRB,0.68807E+03_JPRB,0.53553E+03_JPRB,0.73758E+03_JPRB,0.94886E+03_JPRB /)  
+KB(:, 1,44, 6) = (/ &
+ & 0.88954E+03_JPRB,0.68808E+03_JPRB,0.53544E+03_JPRB,0.73795E+03_JPRB,0.95005E+03_JPRB /)  
+KB(:, 2,44, 6) = (/ &
+ & 0.88953E+03_JPRB,0.68807E+03_JPRB,0.53549E+03_JPRB,0.73823E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 3,44, 6) = (/ &
+ & 0.88952E+03_JPRB,0.68806E+03_JPRB,0.53553E+03_JPRB,0.73829E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:, 4,44, 6) = (/ &
+ & 0.88951E+03_JPRB,0.68805E+03_JPRB,0.53554E+03_JPRB,0.73815E+03_JPRB,0.94991E+03_JPRB /)  
+KB(:, 5,44, 6) = (/ &
+ & 0.88951E+03_JPRB,0.68805E+03_JPRB,0.53553E+03_JPRB,0.73776E+03_JPRB,0.94919E+03_JPRB /)  
+KB(:, 1,45, 6) = (/ &
+ & 0.88952E+03_JPRB,0.68806E+03_JPRB,0.53540E+03_JPRB,0.73782E+03_JPRB,0.94987E+03_JPRB /)  
+KB(:, 2,45, 6) = (/ &
+ & 0.88951E+03_JPRB,0.68805E+03_JPRB,0.53547E+03_JPRB,0.73816E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:, 3,45, 6) = (/ &
+ & 0.88950E+03_JPRB,0.68804E+03_JPRB,0.53551E+03_JPRB,0.73830E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 4,45, 6) = (/ &
+ & 0.88949E+03_JPRB,0.68804E+03_JPRB,0.53553E+03_JPRB,0.73821E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 5,45, 6) = (/ &
+ & 0.88948E+03_JPRB,0.68803E+03_JPRB,0.53553E+03_JPRB,0.73792E+03_JPRB,0.94947E+03_JPRB /)  
+KB(:, 1,46, 6) = (/ &
+ & 0.88949E+03_JPRB,0.68804E+03_JPRB,0.53537E+03_JPRB,0.73763E+03_JPRB,0.94962E+03_JPRB /)  
+KB(:, 2,46, 6) = (/ &
+ & 0.88948E+03_JPRB,0.68803E+03_JPRB,0.53544E+03_JPRB,0.73806E+03_JPRB,0.95019E+03_JPRB /)  
+KB(:, 3,46, 6) = (/ &
+ & 0.88948E+03_JPRB,0.68803E+03_JPRB,0.53549E+03_JPRB,0.73827E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 4,46, 6) = (/ &
+ & 0.88947E+03_JPRB,0.68802E+03_JPRB,0.53552E+03_JPRB,0.73827E+03_JPRB,0.95021E+03_JPRB /)  
+KB(:, 5,46, 6) = (/ &
+ & 0.88946E+03_JPRB,0.68802E+03_JPRB,0.53552E+03_JPRB,0.73805E+03_JPRB,0.94973E+03_JPRB /)  
+KB(:, 1,47, 6) = (/ &
+ & 0.88947E+03_JPRB,0.68802E+03_JPRB,0.53531E+03_JPRB,0.73737E+03_JPRB,0.94929E+03_JPRB /)  
+KB(:, 2,47, 6) = (/ &
+ & 0.88947E+03_JPRB,0.68802E+03_JPRB,0.53539E+03_JPRB,0.73792E+03_JPRB,0.95000E+03_JPRB /)  
+KB(:, 3,47, 6) = (/ &
+ & 0.88946E+03_JPRB,0.68801E+03_JPRB,0.53546E+03_JPRB,0.73821E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 4,47, 6) = (/ &
+ & 0.88945E+03_JPRB,0.68801E+03_JPRB,0.53550E+03_JPRB,0.73829E+03_JPRB,0.95032E+03_JPRB /)  
+KB(:, 5,47, 6) = (/ &
+ & 0.88945E+03_JPRB,0.68800E+03_JPRB,0.53551E+03_JPRB,0.73816E+03_JPRB,0.94996E+03_JPRB /)  
+KB(:, 1,48, 6) = (/ &
+ & 0.88946E+03_JPRB,0.68801E+03_JPRB,0.53528E+03_JPRB,0.73708E+03_JPRB,0.94889E+03_JPRB /)  
+KB(:, 2,48, 6) = (/ &
+ & 0.88945E+03_JPRB,0.68801E+03_JPRB,0.53536E+03_JPRB,0.73773E+03_JPRB,0.94976E+03_JPRB /)  
+KB(:, 3,48, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53543E+03_JPRB,0.73812E+03_JPRB,0.95025E+03_JPRB /)  
+KB(:, 4,48, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53548E+03_JPRB,0.73829E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 5,48, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53551E+03_JPRB,0.73824E+03_JPRB,0.95014E+03_JPRB /)  
+KB(:, 1,49, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53524E+03_JPRB,0.73674E+03_JPRB,0.94844E+03_JPRB /)  
+KB(:, 2,49, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53533E+03_JPRB,0.73750E+03_JPRB,0.94945E+03_JPRB /)  
+KB(:, 3,49, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53540E+03_JPRB,0.73799E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:, 4,49, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53546E+03_JPRB,0.73825E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 5,49, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68799E+03_JPRB,0.53549E+03_JPRB,0.73828E+03_JPRB,0.95027E+03_JPRB /)  
+KB(:, 1,50, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53521E+03_JPRB,0.73638E+03_JPRB,0.94796E+03_JPRB /)  
+KB(:, 2,50, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53529E+03_JPRB,0.73724E+03_JPRB,0.94911E+03_JPRB /)  
+KB(:, 3,50, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53537E+03_JPRB,0.73783E+03_JPRB,0.94990E+03_JPRB /)  
+KB(:, 4,50, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53544E+03_JPRB,0.73817E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 5,50, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53548E+03_JPRB,0.73829E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 1,51, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53518E+03_JPRB,0.73600E+03_JPRB,0.94745E+03_JPRB /)  
+KB(:, 2,51, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53525E+03_JPRB,0.73696E+03_JPRB,0.94873E+03_JPRB /)  
+KB(:, 3,51, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53533E+03_JPRB,0.73765E+03_JPRB,0.94966E+03_JPRB /)  
+KB(:, 4,51, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53541E+03_JPRB,0.73807E+03_JPRB,0.95020E+03_JPRB /)  
+KB(:, 5,51, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68797E+03_JPRB,0.53546E+03_JPRB,0.73827E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 1,52, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53513E+03_JPRB,0.73556E+03_JPRB,0.94688E+03_JPRB /)  
+KB(:, 2,52, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53522E+03_JPRB,0.73664E+03_JPRB,0.94831E+03_JPRB /)  
+KB(:, 3,52, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68797E+03_JPRB,0.53531E+03_JPRB,0.73743E+03_JPRB,0.94936E+03_JPRB /)  
+KB(:, 4,52, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53538E+03_JPRB,0.73795E+03_JPRB,0.95005E+03_JPRB /)  
+KB(:, 5,52, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53545E+03_JPRB,0.73822E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 1,53, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68797E+03_JPRB,0.53507E+03_JPRB,0.73509E+03_JPRB,0.94627E+03_JPRB /)  
+KB(:, 2,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53519E+03_JPRB,0.73629E+03_JPRB,0.94784E+03_JPRB /)  
+KB(:, 3,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53527E+03_JPRB,0.73717E+03_JPRB,0.94902E+03_JPRB /)  
+KB(:, 4,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53535E+03_JPRB,0.73779E+03_JPRB,0.94984E+03_JPRB /)  
+KB(:, 5,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53542E+03_JPRB,0.73815E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 1,54, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53502E+03_JPRB,0.73463E+03_JPRB,0.94566E+03_JPRB /)  
+KB(:, 2,54, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53516E+03_JPRB,0.73592E+03_JPRB,0.94735E+03_JPRB /)  
+KB(:, 3,54, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68796E+03_JPRB,0.53524E+03_JPRB,0.73691E+03_JPRB,0.94866E+03_JPRB /)  
+KB(:, 4,54, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53533E+03_JPRB,0.73761E+03_JPRB,0.94961E+03_JPRB /)  
+KB(:, 5,54, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53539E+03_JPRB,0.73805E+03_JPRB,0.95018E+03_JPRB /)  
+KB(:, 1,55, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68796E+03_JPRB,0.53495E+03_JPRB,0.73415E+03_JPRB,0.94503E+03_JPRB /)  
+KB(:, 2,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53513E+03_JPRB,0.73554E+03_JPRB,0.94685E+03_JPRB /)  
+KB(:, 3,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53521E+03_JPRB,0.73662E+03_JPRB,0.94828E+03_JPRB /)  
+KB(:, 4,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53530E+03_JPRB,0.73742E+03_JPRB,0.94934E+03_JPRB /)  
+KB(:, 5,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53537E+03_JPRB,0.73794E+03_JPRB,0.95004E+03_JPRB /)  
+KB(:, 1,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53489E+03_JPRB,0.73364E+03_JPRB,0.94437E+03_JPRB /)  
+KB(:, 2,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53507E+03_JPRB,0.73512E+03_JPRB,0.94631E+03_JPRB /)  
+KB(:, 3,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53519E+03_JPRB,0.73631E+03_JPRB,0.94787E+03_JPRB /)  
+KB(:, 4,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53527E+03_JPRB,0.73719E+03_JPRB,0.94904E+03_JPRB /)  
+KB(:, 5,56, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53535E+03_JPRB,0.73780E+03_JPRB,0.94987E+03_JPRB /)  
+KB(:, 1,57, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53481E+03_JPRB,0.73310E+03_JPRB,0.94366E+03_JPRB /)  
+KB(:, 2,57, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53502E+03_JPRB,0.73469E+03_JPRB,0.94573E+03_JPRB /)  
+KB(:, 3,57, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53516E+03_JPRB,0.73597E+03_JPRB,0.94741E+03_JPRB /)  
+KB(:, 4,57, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53524E+03_JPRB,0.73694E+03_JPRB,0.94871E+03_JPRB /)  
+KB(:, 5,57, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53532E+03_JPRB,0.73764E+03_JPRB,0.94964E+03_JPRB /)  
+KB(:, 1,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53474E+03_JPRB,0.73255E+03_JPRB,0.94296E+03_JPRB /)  
+KB(:, 2,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53496E+03_JPRB,0.73423E+03_JPRB,0.94515E+03_JPRB /)  
+KB(:, 3,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53512E+03_JPRB,0.73561E+03_JPRB,0.94695E+03_JPRB /)  
+KB(:, 4,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53522E+03_JPRB,0.73667E+03_JPRB,0.94836E+03_JPRB /)  
+KB(:, 5,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53530E+03_JPRB,0.73745E+03_JPRB,0.94939E+03_JPRB /)  
+KB(:, 1,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53470E+03_JPRB,0.73233E+03_JPRB,0.94266E+03_JPRB /)  
+KB(:, 2,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53494E+03_JPRB,0.73405E+03_JPRB,0.94490E+03_JPRB /)  
+KB(:, 3,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53510E+03_JPRB,0.73546E+03_JPRB,0.94675E+03_JPRB /)  
+KB(:, 4,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53521E+03_JPRB,0.73657E+03_JPRB,0.94820E+03_JPRB /)  
+KB(:, 5,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53529E+03_JPRB,0.73737E+03_JPRB,0.94929E+03_JPRB /)  
+KB(:, 1,13, 7) = (/ &
+ & 0.11104E+04_JPRB,0.84453E+03_JPRB,0.58852E+03_JPRB,0.81799E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 2,13, 7) = (/ &
+ & 0.11019E+04_JPRB,0.83810E+03_JPRB,0.58572E+03_JPRB,0.81836E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,13, 7) = (/ &
+ & 0.10945E+04_JPRB,0.83257E+03_JPRB,0.58306E+03_JPRB,0.81848E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,13, 7) = (/ &
+ & 0.10881E+04_JPRB,0.82775E+03_JPRB,0.58047E+03_JPRB,0.81831E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,13, 7) = (/ &
+ & 0.10824E+04_JPRB,0.82352E+03_JPRB,0.57809E+03_JPRB,0.81788E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 1,14, 7) = (/ &
+ & 0.10890E+04_JPRB,0.82842E+03_JPRB,0.58087E+03_JPRB,0.81780E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 2,14, 7) = (/ &
+ & 0.10820E+04_JPRB,0.82323E+03_JPRB,0.57803E+03_JPRB,0.81816E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,14, 7) = (/ &
+ & 0.10761E+04_JPRB,0.81875E+03_JPRB,0.57524E+03_JPRB,0.81827E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,14, 7) = (/ &
+ & 0.10709E+04_JPRB,0.81486E+03_JPRB,0.57281E+03_JPRB,0.81809E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,14, 7) = (/ &
+ & 0.10663E+04_JPRB,0.81144E+03_JPRB,0.57087E+03_JPRB,0.81766E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 1,15, 7) = (/ &
+ & 0.10714E+04_JPRB,0.81529E+03_JPRB,0.57324E+03_JPRB,0.81765E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 2,15, 7) = (/ &
+ & 0.10659E+04_JPRB,0.81110E+03_JPRB,0.57094E+03_JPRB,0.81800E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,15, 7) = (/ &
+ & 0.10611E+04_JPRB,0.80749E+03_JPRB,0.56926E+03_JPRB,0.81809E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,15, 7) = (/ &
+ & 0.10569E+04_JPRB,0.80434E+03_JPRB,0.56791E+03_JPRB,0.81790E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,15, 7) = (/ &
+ & 0.10532E+04_JPRB,0.80157E+03_JPRB,0.56672E+03_JPRB,0.81746E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 1,16, 7) = (/ &
+ & 0.10572E+04_JPRB,0.80460E+03_JPRB,0.56822E+03_JPRB,0.81755E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 2,16, 7) = (/ &
+ & 0.10527E+04_JPRB,0.80122E+03_JPRB,0.56701E+03_JPRB,0.81788E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,16, 7) = (/ &
+ & 0.10488E+04_JPRB,0.79831E+03_JPRB,0.56599E+03_JPRB,0.81796E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,16, 7) = (/ &
+ & 0.10454E+04_JPRB,0.79577E+03_JPRB,0.56505E+03_JPRB,0.81773E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,16, 7) = (/ &
+ & 0.10425E+04_JPRB,0.79354E+03_JPRB,0.56418E+03_JPRB,0.81728E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 1,17, 7) = (/ &
+ & 0.10456E+04_JPRB,0.79593E+03_JPRB,0.56540E+03_JPRB,0.81747E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,17, 7) = (/ &
+ & 0.10420E+04_JPRB,0.79321E+03_JPRB,0.56464E+03_JPRB,0.81778E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,17, 7) = (/ &
+ & 0.10389E+04_JPRB,0.79086E+03_JPRB,0.56406E+03_JPRB,0.81783E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,17, 7) = (/ &
+ & 0.10362E+04_JPRB,0.78881E+03_JPRB,0.56355E+03_JPRB,0.81761E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 5,17, 7) = (/ &
+ & 0.10337E+04_JPRB,0.78701E+03_JPRB,0.56298E+03_JPRB,0.81712E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 1,18, 7) = (/ &
+ & 0.10363E+04_JPRB,0.78890E+03_JPRB,0.56372E+03_JPRB,0.81741E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 2,18, 7) = (/ &
+ & 0.10334E+04_JPRB,0.78671E+03_JPRB,0.56351E+03_JPRB,0.81771E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,18, 7) = (/ &
+ & 0.10308E+04_JPRB,0.78481E+03_JPRB,0.56335E+03_JPRB,0.81775E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,18, 7) = (/ &
+ & 0.10286E+04_JPRB,0.78316E+03_JPRB,0.56306E+03_JPRB,0.81749E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 5,18, 7) = (/ &
+ & 0.10267E+04_JPRB,0.78170E+03_JPRB,0.56253E+03_JPRB,0.81698E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 1,19, 7) = (/ &
+ & 0.10287E+04_JPRB,0.78319E+03_JPRB,0.56306E+03_JPRB,0.81737E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,19, 7) = (/ &
+ & 0.10263E+04_JPRB,0.78143E+03_JPRB,0.56317E+03_JPRB,0.81766E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,19, 7) = (/ &
+ & 0.10243E+04_JPRB,0.77990E+03_JPRB,0.56256E+03_JPRB,0.81764E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,19, 7) = (/ &
+ & 0.10225E+04_JPRB,0.77856E+03_JPRB,0.56270E+03_JPRB,0.81737E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 5,19, 7) = (/ &
+ & 0.10209E+04_JPRB,0.77738E+03_JPRB,0.56230E+03_JPRB,0.81685E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 1,20, 7) = (/ &
+ & 0.10225E+04_JPRB,0.77853E+03_JPRB,0.56258E+03_JPRB,0.81735E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,20, 7) = (/ &
+ & 0.10206E+04_JPRB,0.77711E+03_JPRB,0.56304E+03_JPRB,0.81761E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,20, 7) = (/ &
+ & 0.10189E+04_JPRB,0.77589E+03_JPRB,0.56295E+03_JPRB,0.81757E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,20, 7) = (/ &
+ & 0.10175E+04_JPRB,0.77480E+03_JPRB,0.56264E+03_JPRB,0.81728E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,20, 7) = (/ &
+ & 0.10162E+04_JPRB,0.77385E+03_JPRB,0.56211E+03_JPRB,0.81672E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 1,21, 7) = (/ &
+ & 0.10174E+04_JPRB,0.77475E+03_JPRB,0.56279E+03_JPRB,0.81734E+03_JPRB,0.10752E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART22',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,21, 7) = (/ &
+ & 0.10159E+04_JPRB,0.77361E+03_JPRB,0.56292E+03_JPRB,0.81756E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,21, 7) = (/ &
+ & 0.10146E+04_JPRB,0.77262E+03_JPRB,0.56281E+03_JPRB,0.81751E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,21, 7) = (/ &
+ & 0.10134E+04_JPRB,0.77175E+03_JPRB,0.56248E+03_JPRB,0.81718E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,21, 7) = (/ &
+ & 0.10124E+04_JPRB,0.77098E+03_JPRB,0.56193E+03_JPRB,0.81661E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 1,22, 7) = (/ &
+ & 0.10132E+04_JPRB,0.77163E+03_JPRB,0.56273E+03_JPRB,0.81736E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,22, 7) = (/ &
+ & 0.10120E+04_JPRB,0.77071E+03_JPRB,0.56281E+03_JPRB,0.81753E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,22, 7) = (/ &
+ & 0.10110E+04_JPRB,0.76992E+03_JPRB,0.56267E+03_JPRB,0.81743E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,22, 7) = (/ &
+ & 0.10100E+04_JPRB,0.76922E+03_JPRB,0.56230E+03_JPRB,0.81706E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 5,22, 7) = (/ &
+ & 0.10092E+04_JPRB,0.76860E+03_JPRB,0.56172E+03_JPRB,0.81643E+03_JPRB,0.10742E+04_JPRB /)  
+KB(:, 1,23, 7) = (/ &
+ & 0.10099E+04_JPRB,0.76909E+03_JPRB,0.56267E+03_JPRB,0.81738E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,23, 7) = (/ &
+ & 0.10089E+04_JPRB,0.76836E+03_JPRB,0.56273E+03_JPRB,0.81751E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,23, 7) = (/ &
+ & 0.10080E+04_JPRB,0.76773E+03_JPRB,0.56254E+03_JPRB,0.81734E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 4,23, 7) = (/ &
+ & 0.10073E+04_JPRB,0.76717E+03_JPRB,0.56214E+03_JPRB,0.81691E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 5,23, 7) = (/ &
+ & 0.10067E+04_JPRB,0.76668E+03_JPRB,0.56152E+03_JPRB,0.81625E+03_JPRB,0.10740E+04_JPRB /)  
+KB(:, 1,24, 7) = (/ &
+ & 0.10071E+04_JPRB,0.76704E+03_JPRB,0.56263E+03_JPRB,0.81739E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,24, 7) = (/ &
+ & 0.10064E+04_JPRB,0.76647E+03_JPRB,0.56264E+03_JPRB,0.81747E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,24, 7) = (/ &
+ & 0.10057E+04_JPRB,0.76596E+03_JPRB,0.56242E+03_JPRB,0.81725E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 4,24, 7) = (/ &
+ & 0.10051E+04_JPRB,0.76551E+03_JPRB,0.56198E+03_JPRB,0.81678E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 5,24, 7) = (/ &
+ & 0.10046E+04_JPRB,0.76512E+03_JPRB,0.56132E+03_JPRB,0.81606E+03_JPRB,0.10738E+04_JPRB /)  
+KB(:, 1,25, 7) = (/ &
+ & 0.10049E+04_JPRB,0.76538E+03_JPRB,0.56260E+03_JPRB,0.81741E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,25, 7) = (/ &
+ & 0.10043E+04_JPRB,0.76492E+03_JPRB,0.56256E+03_JPRB,0.81742E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,25, 7) = (/ &
+ & 0.10038E+04_JPRB,0.76453E+03_JPRB,0.56229E+03_JPRB,0.81717E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 4,25, 7) = (/ &
+ & 0.10033E+04_JPRB,0.76417E+03_JPRB,0.56181E+03_JPRB,0.81663E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 5,25, 7) = (/ &
+ & 0.10029E+04_JPRB,0.76385E+03_JPRB,0.56111E+03_JPRB,0.81585E+03_JPRB,0.10736E+04_JPRB /)  
+KB(:, 1,26, 7) = (/ &
+ & 0.10031E+04_JPRB,0.76404E+03_JPRB,0.56257E+03_JPRB,0.81743E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,26, 7) = (/ &
+ & 0.10026E+04_JPRB,0.76368E+03_JPRB,0.56248E+03_JPRB,0.81736E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,26, 7) = (/ &
+ & 0.10022E+04_JPRB,0.76336E+03_JPRB,0.56216E+03_JPRB,0.81707E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 4,26, 7) = (/ &
+ & 0.10018E+04_JPRB,0.76308E+03_JPRB,0.56163E+03_JPRB,0.81645E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 5,26, 7) = (/ &
+ & 0.10015E+04_JPRB,0.76282E+03_JPRB,0.56088E+03_JPRB,0.81561E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 1,27, 7) = (/ &
+ & 0.10017E+04_JPRB,0.76296E+03_JPRB,0.56253E+03_JPRB,0.81743E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,27, 7) = (/ &
+ & 0.10013E+04_JPRB,0.76268E+03_JPRB,0.56239E+03_JPRB,0.81730E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,27, 7) = (/ &
+ & 0.10010E+04_JPRB,0.76242E+03_JPRB,0.56202E+03_JPRB,0.81696E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 4,27, 7) = (/ &
+ & 0.10007E+04_JPRB,0.76220E+03_JPRB,0.56144E+03_JPRB,0.81630E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 5,27, 7) = (/ &
+ & 0.10004E+04_JPRB,0.76200E+03_JPRB,0.56064E+03_JPRB,0.81536E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 1,28, 7) = (/ &
+ & 0.10005E+04_JPRB,0.76209E+03_JPRB,0.56249E+03_JPRB,0.81738E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,28, 7) = (/ &
+ & 0.10002E+04_JPRB,0.76186E+03_JPRB,0.56229E+03_JPRB,0.81724E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,28, 7) = (/ &
+ & 0.99995E+03_JPRB,0.76166E+03_JPRB,0.56188E+03_JPRB,0.81687E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 4,28, 7) = (/ &
+ & 0.99971E+03_JPRB,0.76148E+03_JPRB,0.56124E+03_JPRB,0.81607E+03_JPRB,0.10739E+04_JPRB /)  
+KB(:, 5,28, 7) = (/ &
+ & 0.99950E+03_JPRB,0.76132E+03_JPRB,0.56040E+03_JPRB,0.81510E+03_JPRB,0.10728E+04_JPRB /)  
+KB(:, 1,29, 7) = (/ &
+ & 0.99960E+03_JPRB,0.76139E+03_JPRB,0.56244E+03_JPRB,0.81739E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,29, 7) = (/ &
+ & 0.99935E+03_JPRB,0.76121E+03_JPRB,0.56219E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 3,29, 7) = (/ &
+ & 0.99914E+03_JPRB,0.76105E+03_JPRB,0.56172E+03_JPRB,0.81663E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 4,29, 7) = (/ &
+ & 0.99895E+03_JPRB,0.76091E+03_JPRB,0.56103E+03_JPRB,0.81584E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 5,29, 7) = (/ &
+ & 0.99878E+03_JPRB,0.76078E+03_JPRB,0.56014E+03_JPRB,0.81482E+03_JPRB,0.10725E+04_JPRB /)  
+KB(:, 1,30, 7) = (/ &
+ & 0.99885E+03_JPRB,0.76083E+03_JPRB,0.56238E+03_JPRB,0.81733E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,30, 7) = (/ &
+ & 0.99865E+03_JPRB,0.76069E+03_JPRB,0.56207E+03_JPRB,0.81703E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 3,30, 7) = (/ &
+ & 0.99848E+03_JPRB,0.76055E+03_JPRB,0.56155E+03_JPRB,0.81643E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 4,30, 7) = (/ &
+ & 0.99833E+03_JPRB,0.76044E+03_JPRB,0.56081E+03_JPRB,0.81561E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 5,30, 7) = (/ &
+ & 0.99819E+03_JPRB,0.76034E+03_JPRB,0.55986E+03_JPRB,0.81451E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 1,31, 7) = (/ &
+ & 0.99824E+03_JPRB,0.76037E+03_JPRB,0.56231E+03_JPRB,0.81727E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,31, 7) = (/ &
+ & 0.99808E+03_JPRB,0.76026E+03_JPRB,0.56195E+03_JPRB,0.81690E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 3,31, 7) = (/ &
+ & 0.99794E+03_JPRB,0.76015E+03_JPRB,0.56137E+03_JPRB,0.81625E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 4,31, 7) = (/ &
+ & 0.99782E+03_JPRB,0.76006E+03_JPRB,0.56058E+03_JPRB,0.81535E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 5,31, 7) = (/ &
+ & 0.99772E+03_JPRB,0.75998E+03_JPRB,0.55958E+03_JPRB,0.81419E+03_JPRB,0.10717E+04_JPRB /)  
+KB(:, 1,32, 7) = (/ &
+ & 0.99774E+03_JPRB,0.76000E+03_JPRB,0.56222E+03_JPRB,0.81719E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,32, 7) = (/ &
+ & 0.99763E+03_JPRB,0.75991E+03_JPRB,0.56181E+03_JPRB,0.81675E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 3,32, 7) = (/ &
+ & 0.99752E+03_JPRB,0.75984E+03_JPRB,0.56117E+03_JPRB,0.81604E+03_JPRB,0.10739E+04_JPRB /)  
+KB(:, 4,32, 7) = (/ &
+ & 0.99742E+03_JPRB,0.75976E+03_JPRB,0.56033E+03_JPRB,0.81507E+03_JPRB,0.10728E+04_JPRB /)  
+KB(:, 5,32, 7) = (/ &
+ & 0.99733E+03_JPRB,0.75970E+03_JPRB,0.55927E+03_JPRB,0.81384E+03_JPRB,0.10713E+04_JPRB /)  
+KB(:, 1,33, 7) = (/ &
+ & 0.99735E+03_JPRB,0.75971E+03_JPRB,0.56212E+03_JPRB,0.81709E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,33, 7) = (/ &
+ & 0.99725E+03_JPRB,0.75964E+03_JPRB,0.56165E+03_JPRB,0.81658E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 3,33, 7) = (/ &
+ & 0.99717E+03_JPRB,0.75957E+03_JPRB,0.56096E+03_JPRB,0.81581E+03_JPRB,0.10736E+04_JPRB /)  
+KB(:, 4,33, 7) = (/ &
+ & 0.99709E+03_JPRB,0.75952E+03_JPRB,0.56006E+03_JPRB,0.81477E+03_JPRB,0.10724E+04_JPRB /)  
+KB(:, 5,33, 7) = (/ &
+ & 0.99703E+03_JPRB,0.75946E+03_JPRB,0.55896E+03_JPRB,0.81347E+03_JPRB,0.10709E+04_JPRB /)  
+KB(:, 1,34, 7) = (/ &
+ & 0.99704E+03_JPRB,0.75947E+03_JPRB,0.56203E+03_JPRB,0.81702E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 2,34, 7) = (/ &
+ & 0.99696E+03_JPRB,0.75942E+03_JPRB,0.56151E+03_JPRB,0.81642E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 3,34, 7) = (/ &
+ & 0.99689E+03_JPRB,0.75937E+03_JPRB,0.56077E+03_JPRB,0.81558E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 4,34, 7) = (/ &
+ & 0.99683E+03_JPRB,0.75932E+03_JPRB,0.55982E+03_JPRB,0.81449E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 5,34, 7) = (/ &
+ & 0.99678E+03_JPRB,0.75928E+03_JPRB,0.55868E+03_JPRB,0.81314E+03_JPRB,0.10704E+04_JPRB /)  
+KB(:, 1,35, 7) = (/ &
+ & 0.99679E+03_JPRB,0.75929E+03_JPRB,0.56197E+03_JPRB,0.81693E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,35, 7) = (/ &
+ & 0.99673E+03_JPRB,0.75925E+03_JPRB,0.56142E+03_JPRB,0.81633E+03_JPRB,0.10742E+04_JPRB /)  
+KB(:, 3,35, 7) = (/ &
+ & 0.99667E+03_JPRB,0.75920E+03_JPRB,0.56065E+03_JPRB,0.81545E+03_JPRB,0.10733E+04_JPRB /)  
+KB(:, 4,35, 7) = (/ &
+ & 0.99663E+03_JPRB,0.75916E+03_JPRB,0.55968E+03_JPRB,0.81434E+03_JPRB,0.10719E+04_JPRB /)  
+KB(:, 5,35, 7) = (/ &
+ & 0.99658E+03_JPRB,0.75913E+03_JPRB,0.55851E+03_JPRB,0.81294E+03_JPRB,0.10702E+04_JPRB /)  
+KB(:, 1,36, 7) = (/ &
+ & 0.99660E+03_JPRB,0.75914E+03_JPRB,0.56195E+03_JPRB,0.81692E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,36, 7) = (/ &
+ & 0.99655E+03_JPRB,0.75911E+03_JPRB,0.56140E+03_JPRB,0.81631E+03_JPRB,0.10742E+04_JPRB /)  
+KB(:, 3,36, 7) = (/ &
+ & 0.99650E+03_JPRB,0.75907E+03_JPRB,0.56063E+03_JPRB,0.81543E+03_JPRB,0.10732E+04_JPRB /)  
+KB(:, 4,36, 7) = (/ &
+ & 0.99646E+03_JPRB,0.75904E+03_JPRB,0.55965E+03_JPRB,0.81430E+03_JPRB,0.10719E+04_JPRB /)  
+KB(:, 5,36, 7) = (/ &
+ & 0.99642E+03_JPRB,0.75901E+03_JPRB,0.55848E+03_JPRB,0.81290E+03_JPRB,0.10702E+04_JPRB /)  
+KB(:, 1,37, 7) = (/ &
+ & 0.99645E+03_JPRB,0.75903E+03_JPRB,0.56200E+03_JPRB,0.81697E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,37, 7) = (/ &
+ & 0.99640E+03_JPRB,0.75900E+03_JPRB,0.56148E+03_JPRB,0.81640E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 3,37, 7) = (/ &
+ & 0.99636E+03_JPRB,0.75897E+03_JPRB,0.56074E+03_JPRB,0.81556E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 4,37, 7) = (/ &
+ & 0.99633E+03_JPRB,0.75894E+03_JPRB,0.55979E+03_JPRB,0.81446E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 5,37, 7) = (/ &
+ & 0.99630E+03_JPRB,0.75892E+03_JPRB,0.55864E+03_JPRB,0.81313E+03_JPRB,0.10704E+04_JPRB /)  
+KB(:, 1,38, 7) = (/ &
+ & 0.99632E+03_JPRB,0.75894E+03_JPRB,0.56206E+03_JPRB,0.81703E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 2,38, 7) = (/ &
+ & 0.99628E+03_JPRB,0.75891E+03_JPRB,0.56157E+03_JPRB,0.81650E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 3,38, 7) = (/ &
+ & 0.99625E+03_JPRB,0.75889E+03_JPRB,0.56085E+03_JPRB,0.81569E+03_JPRB,0.10735E+04_JPRB /)  
+KB(:, 4,38, 7) = (/ &
+ & 0.99623E+03_JPRB,0.75887E+03_JPRB,0.55993E+03_JPRB,0.81464E+03_JPRB,0.10723E+04_JPRB /)  
+KB(:, 5,38, 7) = (/ &
+ & 0.99620E+03_JPRB,0.75885E+03_JPRB,0.55881E+03_JPRB,0.81331E+03_JPRB,0.10707E+04_JPRB /)  
+KB(:, 1,39, 7) = (/ &
+ & 0.99622E+03_JPRB,0.75886E+03_JPRB,0.56210E+03_JPRB,0.81708E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,39, 7) = (/ &
+ & 0.99619E+03_JPRB,0.75884E+03_JPRB,0.56164E+03_JPRB,0.81666E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 3,39, 7) = (/ &
+ & 0.99617E+03_JPRB,0.75882E+03_JPRB,0.56096E+03_JPRB,0.81582E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 4,39, 7) = (/ &
+ & 0.99614E+03_JPRB,0.75880E+03_JPRB,0.56007E+03_JPRB,0.81479E+03_JPRB,0.10725E+04_JPRB /)  
+KB(:, 5,39, 7) = (/ &
+ & 0.99612E+03_JPRB,0.75878E+03_JPRB,0.55897E+03_JPRB,0.81351E+03_JPRB,0.10709E+04_JPRB /)  
+KB(:, 1,40, 7) = (/ &
+ & 0.99613E+03_JPRB,0.75880E+03_JPRB,0.56218E+03_JPRB,0.81716E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,40, 7) = (/ &
+ & 0.99611E+03_JPRB,0.75878E+03_JPRB,0.56177E+03_JPRB,0.81672E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 3,40, 7) = (/ &
+ & 0.99609E+03_JPRB,0.75876E+03_JPRB,0.56114E+03_JPRB,0.81603E+03_JPRB,0.10739E+04_JPRB /)  
+KB(:, 4,40, 7) = (/ &
+ & 0.99607E+03_JPRB,0.75875E+03_JPRB,0.56030E+03_JPRB,0.81506E+03_JPRB,0.10728E+04_JPRB /)  
+KB(:, 5,40, 7) = (/ &
+ & 0.99605E+03_JPRB,0.75874E+03_JPRB,0.55925E+03_JPRB,0.81383E+03_JPRB,0.10713E+04_JPRB /)  
+KB(:, 1,41, 7) = (/ &
+ & 0.99606E+03_JPRB,0.75874E+03_JPRB,0.56225E+03_JPRB,0.81724E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,41, 7) = (/ &
+ & 0.99604E+03_JPRB,0.75873E+03_JPRB,0.56189E+03_JPRB,0.81688E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 3,41, 7) = (/ &
+ & 0.99602E+03_JPRB,0.75871E+03_JPRB,0.56132E+03_JPRB,0.81623E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 4,41, 7) = (/ &
+ & 0.99601E+03_JPRB,0.75870E+03_JPRB,0.56053E+03_JPRB,0.81532E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 5,41, 7) = (/ &
+ & 0.99600E+03_JPRB,0.75869E+03_JPRB,0.55954E+03_JPRB,0.81416E+03_JPRB,0.10717E+04_JPRB /)  
+KB(:, 1,42, 7) = (/ &
+ & 0.99601E+03_JPRB,0.75870E+03_JPRB,0.56231E+03_JPRB,0.81730E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,42, 7) = (/ &
+ & 0.99599E+03_JPRB,0.75869E+03_JPRB,0.56200E+03_JPRB,0.81698E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 3,42, 7) = (/ &
+ & 0.99597E+03_JPRB,0.75868E+03_JPRB,0.56149E+03_JPRB,0.81641E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 4,42, 7) = (/ &
+ & 0.99596E+03_JPRB,0.75867E+03_JPRB,0.56075E+03_JPRB,0.81559E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 5,42, 7) = (/ &
+ & 0.99595E+03_JPRB,0.75866E+03_JPRB,0.55981E+03_JPRB,0.81449E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 1,43, 7) = (/ &
+ & 0.99596E+03_JPRB,0.75867E+03_JPRB,0.56235E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,43, 7) = (/ &
+ & 0.99595E+03_JPRB,0.75866E+03_JPRB,0.56212E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 3,43, 7) = (/ &
+ & 0.99594E+03_JPRB,0.75865E+03_JPRB,0.56167E+03_JPRB,0.81662E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 4,43, 7) = (/ &
+ & 0.99592E+03_JPRB,0.75864E+03_JPRB,0.56100E+03_JPRB,0.81588E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 5,43, 7) = (/ &
+ & 0.99591E+03_JPRB,0.75863E+03_JPRB,0.56012E+03_JPRB,0.81487E+03_JPRB,0.10726E+04_JPRB /)  
+KB(:, 1,44, 7) = (/ &
+ & 0.99592E+03_JPRB,0.75864E+03_JPRB,0.56237E+03_JPRB,0.81736E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,44, 7) = (/ &
+ & 0.99591E+03_JPRB,0.75863E+03_JPRB,0.56222E+03_JPRB,0.81722E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,44, 7) = (/ &
+ & 0.99591E+03_JPRB,0.75862E+03_JPRB,0.56184E+03_JPRB,0.81680E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 4,44, 7) = (/ &
+ & 0.99589E+03_JPRB,0.75861E+03_JPRB,0.56125E+03_JPRB,0.81614E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 5,44, 7) = (/ &
+ & 0.99588E+03_JPRB,0.75861E+03_JPRB,0.56044E+03_JPRB,0.81523E+03_JPRB,0.10730E+04_JPRB /)  
+KB(:, 1,45, 7) = (/ &
+ & 0.99589E+03_JPRB,0.75861E+03_JPRB,0.56237E+03_JPRB,0.81733E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,45, 7) = (/ &
+ & 0.99588E+03_JPRB,0.75861E+03_JPRB,0.56230E+03_JPRB,0.81729E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,45, 7) = (/ &
+ & 0.99587E+03_JPRB,0.75860E+03_JPRB,0.56199E+03_JPRB,0.81699E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 4,45, 7) = (/ &
+ & 0.99586E+03_JPRB,0.75859E+03_JPRB,0.56147E+03_JPRB,0.81641E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 5,45, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75859E+03_JPRB,0.56074E+03_JPRB,0.81557E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 1,46, 7) = (/ &
+ & 0.99586E+03_JPRB,0.75859E+03_JPRB,0.56233E+03_JPRB,0.81728E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,46, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75859E+03_JPRB,0.56235E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,46, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75858E+03_JPRB,0.56213E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 4,46, 7) = (/ &
+ & 0.99584E+03_JPRB,0.75858E+03_JPRB,0.56169E+03_JPRB,0.81663E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 5,46, 7) = (/ &
+ & 0.99583E+03_JPRB,0.75858E+03_JPRB,0.56103E+03_JPRB,0.81590E+03_JPRB,0.10738E+04_JPRB /)  
+KB(:, 1,47, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75858E+03_JPRB,0.56226E+03_JPRB,0.81718E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,47, 7) = (/ &
+ & 0.99583E+03_JPRB,0.75857E+03_JPRB,0.56237E+03_JPRB,0.81736E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,47, 7) = (/ &
+ & 0.99583E+03_JPRB,0.75857E+03_JPRB,0.56224E+03_JPRB,0.81723E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 4,47, 7) = (/ &
+ & 0.99582E+03_JPRB,0.75856E+03_JPRB,0.56189E+03_JPRB,0.81686E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 5,47, 7) = (/ &
+ & 0.99581E+03_JPRB,0.75856E+03_JPRB,0.56132E+03_JPRB,0.81626E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 1,48, 7) = (/ &
+ & 0.99582E+03_JPRB,0.75856E+03_JPRB,0.56215E+03_JPRB,0.81703E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,48, 7) = (/ &
+ & 0.99582E+03_JPRB,0.75856E+03_JPRB,0.56235E+03_JPRB,0.81732E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,48, 7) = (/ &
+ & 0.99581E+03_JPRB,0.75855E+03_JPRB,0.56232E+03_JPRB,0.81733E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,48, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75855E+03_JPRB,0.56206E+03_JPRB,0.81704E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,48, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75855E+03_JPRB,0.56157E+03_JPRB,0.81651E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 1,49, 7) = (/ &
+ & 0.99581E+03_JPRB,0.75855E+03_JPRB,0.56199E+03_JPRB,0.81684E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 2,49, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75855E+03_JPRB,0.56230E+03_JPRB,0.81724E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,49, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75854E+03_JPRB,0.56236E+03_JPRB,0.81736E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,49, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56219E+03_JPRB,0.81718E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,49, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56179E+03_JPRB,0.81678E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 1,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56180E+03_JPRB,0.81662E+03_JPRB,0.10745E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART23',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56221E+03_JPRB,0.81713E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56237E+03_JPRB,0.81735E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56228E+03_JPRB,0.81728E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,50, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56197E+03_JPRB,0.81695E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 1,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56158E+03_JPRB,0.81637E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 2,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56209E+03_JPRB,0.81697E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 3,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56234E+03_JPRB,0.81729E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56234E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 5,51, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56211E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 1,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75853E+03_JPRB,0.56131E+03_JPRB,0.81608E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 2,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56194E+03_JPRB,0.81678E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 3,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56228E+03_JPRB,0.81721E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56237E+03_JPRB,0.81738E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 5,52, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56222E+03_JPRB,0.81722E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 1,53, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56102E+03_JPRB,0.81574E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 2,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56174E+03_JPRB,0.81656E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 3,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56218E+03_JPRB,0.81709E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 4,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75851E+03_JPRB,0.56236E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 5,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56230E+03_JPRB,0.81736E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 1,54, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56072E+03_JPRB,0.81536E+03_JPRB,0.10726E+04_JPRB /)  
+KB(:, 2,54, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75851E+03_JPRB,0.56153E+03_JPRB,0.81633E+03_JPRB,0.10740E+04_JPRB /)  
+KB(:, 3,54, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56207E+03_JPRB,0.81694E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 4,54, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56233E+03_JPRB,0.81728E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,54, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75851E+03_JPRB,0.56235E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56039E+03_JPRB,0.81495E+03_JPRB,0.10720E+04_JPRB /)  
+KB(:, 2,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56128E+03_JPRB,0.81606E+03_JPRB,0.10736E+04_JPRB /)  
+KB(:, 3,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56193E+03_JPRB,0.81677E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 4,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56227E+03_JPRB,0.81720E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56237E+03_JPRB,0.81736E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,56, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56002E+03_JPRB,0.81448E+03_JPRB,0.10713E+04_JPRB /)  
+KB(:, 2,56, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56104E+03_JPRB,0.81576E+03_JPRB,0.10732E+04_JPRB /)  
+KB(:, 3,56, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56175E+03_JPRB,0.81659E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 4,56, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56219E+03_JPRB,0.81709E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,56, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56236E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,57, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.55963E+03_JPRB,0.81395E+03_JPRB,0.10705E+04_JPRB /)  
+KB(:, 2,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56076E+03_JPRB,0.81540E+03_JPRB,0.10727E+04_JPRB /)  
+KB(:, 3,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56157E+03_JPRB,0.81635E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 4,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56208E+03_JPRB,0.81696E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56234E+03_JPRB,0.81729E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,58, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75850E+03_JPRB,0.55922E+03_JPRB,0.81340E+03_JPRB,0.10697E+04_JPRB /)  
+KB(:, 2,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56044E+03_JPRB,0.81503E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 3,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75851E+03_JPRB,0.56134E+03_JPRB,0.81611E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 4,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75851E+03_JPRB,0.56195E+03_JPRB,0.81681E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 5,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56228E+03_JPRB,0.81722E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 1,59, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75850E+03_JPRB,0.55905E+03_JPRB,0.81317E+03_JPRB,0.10694E+04_JPRB /)  
+KB(:, 2,59, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56032E+03_JPRB,0.81485E+03_JPRB,0.10718E+04_JPRB /)  
+KB(:, 3,59, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56125E+03_JPRB,0.81601E+03_JPRB,0.10735E+04_JPRB /)  
+KB(:, 4,59, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56189E+03_JPRB,0.81673E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 5,59, 7) = (/ &
+ & 0.99573E+03_JPRB,0.75850E+03_JPRB,0.56225E+03_JPRB,0.81718E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 1,13, 8) = (/ &
+ & 0.11451E+04_JPRB,0.86748E+03_JPRB,0.59259E+03_JPRB,0.85187E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,13, 8) = (/ &
+ & 0.11363E+04_JPRB,0.86085E+03_JPRB,0.58896E+03_JPRB,0.85188E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,13, 8) = (/ &
+ & 0.11286E+04_JPRB,0.85515E+03_JPRB,0.58586E+03_JPRB,0.85170E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,13, 8) = (/ &
+ & 0.11220E+04_JPRB,0.85016E+03_JPRB,0.58378E+03_JPRB,0.85132E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 5,13, 8) = (/ &
+ & 0.11162E+04_JPRB,0.84582E+03_JPRB,0.58229E+03_JPRB,0.85074E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 1,14, 8) = (/ &
+ & 0.11230E+04_JPRB,0.85087E+03_JPRB,0.58392E+03_JPRB,0.85168E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,14, 8) = (/ &
+ & 0.11158E+04_JPRB,0.84552E+03_JPRB,0.58280E+03_JPRB,0.85169E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,14, 8) = (/ &
+ & 0.11097E+04_JPRB,0.84090E+03_JPRB,0.58233E+03_JPRB,0.85151E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,14, 8) = (/ &
+ & 0.11043E+04_JPRB,0.83689E+03_JPRB,0.58194E+03_JPRB,0.85113E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 5,14, 8) = (/ &
+ & 0.10996E+04_JPRB,0.83336E+03_JPRB,0.58140E+03_JPRB,0.85052E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 1,15, 8) = (/ &
+ & 0.11049E+04_JPRB,0.83731E+03_JPRB,0.58207E+03_JPRB,0.85153E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,15, 8) = (/ &
+ & 0.10991E+04_JPRB,0.83301E+03_JPRB,0.58217E+03_JPRB,0.85153E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,15, 8) = (/ &
+ & 0.10942E+04_JPRB,0.82928E+03_JPRB,0.58200E+03_JPRB,0.85134E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,15, 8) = (/ &
+ & 0.10899E+04_JPRB,0.82605E+03_JPRB,0.58161E+03_JPRB,0.85094E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 5,15, 8) = (/ &
+ & 0.10860E+04_JPRB,0.82320E+03_JPRB,0.58108E+03_JPRB,0.85034E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 1,16, 8) = (/ &
+ & 0.10902E+04_JPRB,0.82630E+03_JPRB,0.58181E+03_JPRB,0.85141E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,16, 8) = (/ &
+ & 0.10856E+04_JPRB,0.82283E+03_JPRB,0.58190E+03_JPRB,0.85139E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,16, 8) = (/ &
+ & 0.10816E+04_JPRB,0.81983E+03_JPRB,0.58172E+03_JPRB,0.85119E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,16, 8) = (/ &
+ & 0.10781E+04_JPRB,0.81721E+03_JPRB,0.58133E+03_JPRB,0.85078E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 5,16, 8) = (/ &
+ & 0.10750E+04_JPRB,0.81491E+03_JPRB,0.58080E+03_JPRB,0.85015E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 1,17, 8) = (/ &
+ & 0.10783E+04_JPRB,0.81738E+03_JPRB,0.58160E+03_JPRB,0.85131E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,17, 8) = (/ &
+ & 0.10746E+04_JPRB,0.81457E+03_JPRB,0.58168E+03_JPRB,0.85129E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,17, 8) = (/ &
+ & 0.10713E+04_JPRB,0.81215E+03_JPRB,0.58149E+03_JPRB,0.85108E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,17, 8) = (/ &
+ & 0.10685E+04_JPRB,0.81004E+03_JPRB,0.58109E+03_JPRB,0.85064E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 5,17, 8) = (/ &
+ & 0.10660E+04_JPRB,0.80818E+03_JPRB,0.58056E+03_JPRB,0.85000E+03_JPRB,0.11214E+04_JPRB /)  
+KB(:, 1,18, 8) = (/ &
+ & 0.10686E+04_JPRB,0.81013E+03_JPRB,0.58144E+03_JPRB,0.85124E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,18, 8) = (/ &
+ & 0.10656E+04_JPRB,0.80786E+03_JPRB,0.58150E+03_JPRB,0.85119E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,18, 8) = (/ &
+ & 0.10630E+04_JPRB,0.80591E+03_JPRB,0.58129E+03_JPRB,0.85095E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,18, 8) = (/ &
+ & 0.10607E+04_JPRB,0.80419E+03_JPRB,0.58089E+03_JPRB,0.85052E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 5,18, 8) = (/ &
+ & 0.10587E+04_JPRB,0.80269E+03_JPRB,0.58036E+03_JPRB,0.84984E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 1,19, 8) = (/ &
+ & 0.10608E+04_JPRB,0.80424E+03_JPRB,0.58130E+03_JPRB,0.85117E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,19, 8) = (/ &
+ & 0.10584E+04_JPRB,0.80242E+03_JPRB,0.58135E+03_JPRB,0.85109E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,19, 8) = (/ &
+ & 0.10562E+04_JPRB,0.80084E+03_JPRB,0.58113E+03_JPRB,0.85087E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,19, 8) = (/ &
+ & 0.10544E+04_JPRB,0.79946E+03_JPRB,0.58072E+03_JPRB,0.85040E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 5,19, 8) = (/ &
+ & 0.10528E+04_JPRB,0.79825E+03_JPRB,0.58019E+03_JPRB,0.84971E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 1,20, 8) = (/ &
+ & 0.10544E+04_JPRB,0.79943E+03_JPRB,0.58120E+03_JPRB,0.85111E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,20, 8) = (/ &
+ & 0.10524E+04_JPRB,0.79797E+03_JPRB,0.58122E+03_JPRB,0.85103E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,20, 8) = (/ &
+ & 0.10507E+04_JPRB,0.79669E+03_JPRB,0.58098E+03_JPRB,0.85078E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,20, 8) = (/ &
+ & 0.10492E+04_JPRB,0.79558E+03_JPRB,0.58056E+03_JPRB,0.85028E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 5,20, 8) = (/ &
+ & 0.10479E+04_JPRB,0.79460E+03_JPRB,0.58002E+03_JPRB,0.84958E+03_JPRB,0.11211E+04_JPRB /)  
+KB(:, 1,21, 8) = (/ &
+ & 0.10492E+04_JPRB,0.79553E+03_JPRB,0.58112E+03_JPRB,0.85107E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,21, 8) = (/ &
+ & 0.10476E+04_JPRB,0.79436E+03_JPRB,0.58112E+03_JPRB,0.85096E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,21, 8) = (/ &
+ & 0.10462E+04_JPRB,0.79334E+03_JPRB,0.58085E+03_JPRB,0.85069E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 4,21, 8) = (/ &
+ & 0.10450E+04_JPRB,0.79243E+03_JPRB,0.58042E+03_JPRB,0.85021E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 5,21, 8) = (/ &
+ & 0.10440E+04_JPRB,0.79165E+03_JPRB,0.57987E+03_JPRB,0.84945E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 1,22, 8) = (/ &
+ & 0.10449E+04_JPRB,0.79230E+03_JPRB,0.58106E+03_JPRB,0.85103E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,22, 8) = (/ &
+ & 0.10436E+04_JPRB,0.79136E+03_JPRB,0.58100E+03_JPRB,0.85090E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,22, 8) = (/ &
+ & 0.10425E+04_JPRB,0.79054E+03_JPRB,0.58071E+03_JPRB,0.85058E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 4,22, 8) = (/ &
+ & 0.10416E+04_JPRB,0.78983E+03_JPRB,0.58026E+03_JPRB,0.85002E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 5,22, 8) = (/ &
+ & 0.10407E+04_JPRB,0.78921E+03_JPRB,0.57969E+03_JPRB,0.84925E+03_JPRB,0.11208E+04_JPRB /)  
+KB(:, 1,23, 8) = (/ &
+ & 0.10414E+04_JPRB,0.78969E+03_JPRB,0.58100E+03_JPRB,0.85099E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,23, 8) = (/ &
+ & 0.10404E+04_JPRB,0.78894E+03_JPRB,0.58090E+03_JPRB,0.85083E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,23, 8) = (/ &
+ & 0.10395E+04_JPRB,0.78829E+03_JPRB,0.58058E+03_JPRB,0.85047E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 4,23, 8) = (/ &
+ & 0.10387E+04_JPRB,0.78772E+03_JPRB,0.58011E+03_JPRB,0.84989E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 5,23, 8) = (/ &
+ & 0.10381E+04_JPRB,0.78721E+03_JPRB,0.57952E+03_JPRB,0.84905E+03_JPRB,0.11206E+04_JPRB /)  
+KB(:, 1,24, 8) = (/ &
+ & 0.10386E+04_JPRB,0.78759E+03_JPRB,0.58095E+03_JPRB,0.85095E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,24, 8) = (/ &
+ & 0.10378E+04_JPRB,0.78698E+03_JPRB,0.58081E+03_JPRB,0.85075E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,24, 8) = (/ &
+ & 0.10371E+04_JPRB,0.78646E+03_JPRB,0.58046E+03_JPRB,0.85035E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 4,24, 8) = (/ &
+ & 0.10365E+04_JPRB,0.78601E+03_JPRB,0.57995E+03_JPRB,0.84971E+03_JPRB,0.11214E+04_JPRB /)  
+KB(:, 5,24, 8) = (/ &
+ & 0.10359E+04_JPRB,0.78561E+03_JPRB,0.57934E+03_JPRB,0.84885E+03_JPRB,0.11203E+04_JPRB /)  
+KB(:, 1,25, 8) = (/ &
+ & 0.10363E+04_JPRB,0.78588E+03_JPRB,0.58090E+03_JPRB,0.85090E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,25, 8) = (/ &
+ & 0.10357E+04_JPRB,0.78541E+03_JPRB,0.58070E+03_JPRB,0.85067E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 3,25, 8) = (/ &
+ & 0.10351E+04_JPRB,0.78498E+03_JPRB,0.58032E+03_JPRB,0.85020E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 4,25, 8) = (/ &
+ & 0.10346E+04_JPRB,0.78461E+03_JPRB,0.57980E+03_JPRB,0.84953E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 5,25, 8) = (/ &
+ & 0.10342E+04_JPRB,0.78430E+03_JPRB,0.57916E+03_JPRB,0.84863E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 1,26, 8) = (/ &
+ & 0.10345E+04_JPRB,0.78450E+03_JPRB,0.58084E+03_JPRB,0.85084E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,26, 8) = (/ &
+ & 0.10339E+04_JPRB,0.78411E+03_JPRB,0.58059E+03_JPRB,0.85057E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 3,26, 8) = (/ &
+ & 0.10335E+04_JPRB,0.78378E+03_JPRB,0.58018E+03_JPRB,0.85004E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 4,26, 8) = (/ &
+ & 0.10331E+04_JPRB,0.78349E+03_JPRB,0.57964E+03_JPRB,0.84934E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 5,26, 8) = (/ &
+ & 0.10328E+04_JPRB,0.78323E+03_JPRB,0.57897E+03_JPRB,0.84838E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 1,27, 8) = (/ &
+ & 0.10329E+04_JPRB,0.78338E+03_JPRB,0.58078E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,27, 8) = (/ &
+ & 0.10326E+04_JPRB,0.78307E+03_JPRB,0.58048E+03_JPRB,0.85045E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 3,27, 8) = (/ &
+ & 0.10322E+04_JPRB,0.78282E+03_JPRB,0.58003E+03_JPRB,0.84982E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 4,27, 8) = (/ &
+ & 0.10319E+04_JPRB,0.78258E+03_JPRB,0.57947E+03_JPRB,0.84907E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 5,27, 8) = (/ &
+ & 0.10316E+04_JPRB,0.78237E+03_JPRB,0.57877E+03_JPRB,0.84811E+03_JPRB,0.11194E+04_JPRB /)  
+KB(:, 1,28, 8) = (/ &
+ & 0.10318E+04_JPRB,0.78248E+03_JPRB,0.58069E+03_JPRB,0.85072E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,28, 8) = (/ &
+ & 0.10314E+04_JPRB,0.78225E+03_JPRB,0.58037E+03_JPRB,0.85030E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 3,28, 8) = (/ &
+ & 0.10312E+04_JPRB,0.78205E+03_JPRB,0.57989E+03_JPRB,0.84960E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 4,28, 8) = (/ &
+ & 0.10309E+04_JPRB,0.78185E+03_JPRB,0.57929E+03_JPRB,0.84888E+03_JPRB,0.11204E+04_JPRB /)  
+KB(:, 5,28, 8) = (/ &
+ & 0.10307E+04_JPRB,0.78168E+03_JPRB,0.57856E+03_JPRB,0.84784E+03_JPRB,0.11191E+04_JPRB /)  
+KB(:, 1,29, 8) = (/ &
+ & 0.10308E+04_JPRB,0.78175E+03_JPRB,0.58061E+03_JPRB,0.85062E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,29, 8) = (/ &
+ & 0.10305E+04_JPRB,0.78157E+03_JPRB,0.58024E+03_JPRB,0.85019E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 3,29, 8) = (/ &
+ & 0.10303E+04_JPRB,0.78140E+03_JPRB,0.57974E+03_JPRB,0.84950E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 4,29, 8) = (/ &
+ & 0.10301E+04_JPRB,0.78126E+03_JPRB,0.57911E+03_JPRB,0.84863E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 5,29, 8) = (/ &
+ & 0.10300E+04_JPRB,0.78112E+03_JPRB,0.57834E+03_JPRB,0.84752E+03_JPRB,0.11188E+04_JPRB /)  
+KB(:, 1,30, 8) = (/ &
+ & 0.10300E+04_JPRB,0.78117E+03_JPRB,0.58052E+03_JPRB,0.85055E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,30, 8) = (/ &
+ & 0.10298E+04_JPRB,0.78102E+03_JPRB,0.58011E+03_JPRB,0.85001E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 3,30, 8) = (/ &
+ & 0.10296E+04_JPRB,0.78089E+03_JPRB,0.57958E+03_JPRB,0.84932E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 4,30, 8) = (/ &
+ & 0.10295E+04_JPRB,0.78077E+03_JPRB,0.57892E+03_JPRB,0.84838E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 5,30, 8) = (/ &
+ & 0.10294E+04_JPRB,0.78066E+03_JPRB,0.57811E+03_JPRB,0.84720E+03_JPRB,0.11184E+04_JPRB /)  
+KB(:, 1,31, 8) = (/ &
+ & 0.10294E+04_JPRB,0.78070E+03_JPRB,0.58042E+03_JPRB,0.85041E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 2,31, 8) = (/ &
+ & 0.10292E+04_JPRB,0.78058E+03_JPRB,0.57998E+03_JPRB,0.84985E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 3,31, 8) = (/ &
+ & 0.10291E+04_JPRB,0.78049E+03_JPRB,0.57941E+03_JPRB,0.84908E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 4,31, 8) = (/ &
+ & 0.10290E+04_JPRB,0.78039E+03_JPRB,0.57872E+03_JPRB,0.84808E+03_JPRB,0.11195E+04_JPRB /)  
+KB(:, 5,31, 8) = (/ &
+ & 0.10289E+04_JPRB,0.78030E+03_JPRB,0.57786E+03_JPRB,0.84686E+03_JPRB,0.11179E+04_JPRB /)  
+KB(:, 1,32, 8) = (/ &
+ & 0.10289E+04_JPRB,0.78033E+03_JPRB,0.58031E+03_JPRB,0.85030E+03_JPRB,0.11222E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART24',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,32, 8) = (/ &
+ & 0.10288E+04_JPRB,0.78024E+03_JPRB,0.57984E+03_JPRB,0.84967E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 3,32, 8) = (/ &
+ & 0.10287E+04_JPRB,0.78016E+03_JPRB,0.57924E+03_JPRB,0.84884E+03_JPRB,0.11204E+04_JPRB /)  
+KB(:, 4,32, 8) = (/ &
+ & 0.10286E+04_JPRB,0.78009E+03_JPRB,0.57851E+03_JPRB,0.84778E+03_JPRB,0.11191E+04_JPRB /)  
+KB(:, 5,32, 8) = (/ &
+ & 0.10285E+04_JPRB,0.78000E+03_JPRB,0.57759E+03_JPRB,0.84651E+03_JPRB,0.11175E+04_JPRB /)  
+KB(:, 1,33, 8) = (/ &
+ & 0.10285E+04_JPRB,0.78003E+03_JPRB,0.58019E+03_JPRB,0.85016E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 2,33, 8) = (/ &
+ & 0.10284E+04_JPRB,0.77995E+03_JPRB,0.57968E+03_JPRB,0.84947E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 3,33, 8) = (/ &
+ & 0.10283E+04_JPRB,0.77988E+03_JPRB,0.57905E+03_JPRB,0.84858E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 4,33, 8) = (/ &
+ & 0.10282E+04_JPRB,0.77982E+03_JPRB,0.57829E+03_JPRB,0.84747E+03_JPRB,0.11187E+04_JPRB /)  
+KB(:, 5,33, 8) = (/ &
+ & 0.10282E+04_JPRB,0.77978E+03_JPRB,0.57730E+03_JPRB,0.84615E+03_JPRB,0.11170E+04_JPRB /)  
+KB(:, 1,34, 8) = (/ &
+ & 0.10282E+04_JPRB,0.77978E+03_JPRB,0.58008E+03_JPRB,0.84998E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 2,34, 8) = (/ &
+ & 0.10281E+04_JPRB,0.77972E+03_JPRB,0.57954E+03_JPRB,0.84930E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 3,34, 8) = (/ &
+ & 0.10280E+04_JPRB,0.77967E+03_JPRB,0.57889E+03_JPRB,0.84836E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 4,34, 8) = (/ &
+ & 0.10280E+04_JPRB,0.77962E+03_JPRB,0.57808E+03_JPRB,0.84718E+03_JPRB,0.11184E+04_JPRB /)  
+KB(:, 5,34, 8) = (/ &
+ & 0.10279E+04_JPRB,0.77958E+03_JPRB,0.57705E+03_JPRB,0.84582E+03_JPRB,0.11166E+04_JPRB /)  
+KB(:, 1,35, 8) = (/ &
+ & 0.10279E+04_JPRB,0.77958E+03_JPRB,0.58001E+03_JPRB,0.84995E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 2,35, 8) = (/ &
+ & 0.10278E+04_JPRB,0.77953E+03_JPRB,0.57946E+03_JPRB,0.84916E+03_JPRB,0.11209E+04_JPRB /)  
+KB(:, 3,35, 8) = (/ &
+ & 0.10278E+04_JPRB,0.77951E+03_JPRB,0.57880E+03_JPRB,0.84823E+03_JPRB,0.11196E+04_JPRB /)  
+KB(:, 4,35, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77946E+03_JPRB,0.57796E+03_JPRB,0.84701E+03_JPRB,0.11181E+04_JPRB /)  
+KB(:, 5,35, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77943E+03_JPRB,0.57689E+03_JPRB,0.84563E+03_JPRB,0.11163E+04_JPRB /)  
+KB(:, 1,36, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77944E+03_JPRB,0.58000E+03_JPRB,0.84992E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 2,36, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77940E+03_JPRB,0.57944E+03_JPRB,0.84917E+03_JPRB,0.11208E+04_JPRB /)  
+KB(:, 3,36, 8) = (/ &
+ & 0.10276E+04_JPRB,0.77936E+03_JPRB,0.57877E+03_JPRB,0.84819E+03_JPRB,0.11196E+04_JPRB /)  
+KB(:, 4,36, 8) = (/ &
+ & 0.10276E+04_JPRB,0.77933E+03_JPRB,0.57793E+03_JPRB,0.84697E+03_JPRB,0.11181E+04_JPRB /)  
+KB(:, 5,36, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77931E+03_JPRB,0.57686E+03_JPRB,0.84561E+03_JPRB,0.11162E+04_JPRB /)  
+KB(:, 1,37, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77932E+03_JPRB,0.58006E+03_JPRB,0.85002E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 2,37, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77929E+03_JPRB,0.57952E+03_JPRB,0.84927E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 3,37, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77926E+03_JPRB,0.57886E+03_JPRB,0.84832E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 4,37, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77924E+03_JPRB,0.57805E+03_JPRB,0.84715E+03_JPRB,0.11183E+04_JPRB /)  
+KB(:, 5,37, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77921E+03_JPRB,0.57701E+03_JPRB,0.84575E+03_JPRB,0.11165E+04_JPRB /)  
+KB(:, 1,38, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77922E+03_JPRB,0.58012E+03_JPRB,0.85009E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 2,38, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77920E+03_JPRB,0.57959E+03_JPRB,0.84938E+03_JPRB,0.11211E+04_JPRB /)  
+KB(:, 3,38, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77918E+03_JPRB,0.57896E+03_JPRB,0.84848E+03_JPRB,0.11200E+04_JPRB /)  
+KB(:, 4,38, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77915E+03_JPRB,0.57818E+03_JPRB,0.84731E+03_JPRB,0.11185E+04_JPRB /)  
+KB(:, 5,38, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77912E+03_JPRB,0.57716E+03_JPRB,0.84599E+03_JPRB,0.11168E+04_JPRB /)  
+KB(:, 1,39, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77914E+03_JPRB,0.58018E+03_JPRB,0.85016E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 2,39, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77912E+03_JPRB,0.57968E+03_JPRB,0.84939E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 3,39, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77911E+03_JPRB,0.57905E+03_JPRB,0.84861E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 4,39, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77910E+03_JPRB,0.57829E+03_JPRB,0.84750E+03_JPRB,0.11187E+04_JPRB /)  
+KB(:, 5,39, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77907E+03_JPRB,0.57732E+03_JPRB,0.84617E+03_JPRB,0.11171E+04_JPRB /)  
+KB(:, 1,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77908E+03_JPRB,0.58028E+03_JPRB,0.85029E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 2,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77906E+03_JPRB,0.57981E+03_JPRB,0.84968E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 3,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77904E+03_JPRB,0.57922E+03_JPRB,0.84885E+03_JPRB,0.11204E+04_JPRB /)  
+KB(:, 4,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77904E+03_JPRB,0.57849E+03_JPRB,0.84779E+03_JPRB,0.11191E+04_JPRB /)  
+KB(:, 5,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77901E+03_JPRB,0.57757E+03_JPRB,0.84651E+03_JPRB,0.11176E+04_JPRB /)  
+KB(:, 1,41, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77903E+03_JPRB,0.58037E+03_JPRB,0.85041E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,41, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77902E+03_JPRB,0.57994E+03_JPRB,0.84983E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 3,41, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77900E+03_JPRB,0.57937E+03_JPRB,0.84906E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 4,41, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77898E+03_JPRB,0.57870E+03_JPRB,0.84808E+03_JPRB,0.11195E+04_JPRB /)  
+KB(:, 5,41, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77898E+03_JPRB,0.57782E+03_JPRB,0.84685E+03_JPRB,0.11180E+04_JPRB /)  
+KB(:, 1,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77900E+03_JPRB,0.58046E+03_JPRB,0.85051E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77898E+03_JPRB,0.58006E+03_JPRB,0.85002E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 3,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77896E+03_JPRB,0.57953E+03_JPRB,0.84930E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 4,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77895E+03_JPRB,0.57888E+03_JPRB,0.84835E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 5,42, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77894E+03_JPRB,0.57806E+03_JPRB,0.84718E+03_JPRB,0.11184E+04_JPRB /)  
+KB(:, 1,43, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77895E+03_JPRB,0.58056E+03_JPRB,0.85062E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77895E+03_JPRB,0.58020E+03_JPRB,0.85017E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 3,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77892E+03_JPRB,0.57970E+03_JPRB,0.84954E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 4,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77892E+03_JPRB,0.57909E+03_JPRB,0.84866E+03_JPRB,0.11202E+04_JPRB /)  
+KB(:, 5,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77891E+03_JPRB,0.57834E+03_JPRB,0.84756E+03_JPRB,0.11188E+04_JPRB /)  
+KB(:, 1,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77892E+03_JPRB,0.58064E+03_JPRB,0.85071E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77891E+03_JPRB,0.58034E+03_JPRB,0.85036E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 3,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77891E+03_JPRB,0.57988E+03_JPRB,0.84979E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 4,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77890E+03_JPRB,0.57931E+03_JPRB,0.84899E+03_JPRB,0.11206E+04_JPRB /)  
+KB(:, 5,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.57861E+03_JPRB,0.84797E+03_JPRB,0.11193E+04_JPRB /)  
+KB(:, 1,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77889E+03_JPRB,0.58069E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.58047E+03_JPRB,0.85051E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 3,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.58005E+03_JPRB,0.84999E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 4,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.57952E+03_JPRB,0.84927E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 5,45, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77886E+03_JPRB,0.57890E+03_JPRB,0.84837E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 1,46, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77887E+03_JPRB,0.58072E+03_JPRB,0.85082E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,46, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77886E+03_JPRB,0.58056E+03_JPRB,0.85063E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,46, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77886E+03_JPRB,0.58022E+03_JPRB,0.85021E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 4,46, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77885E+03_JPRB,0.57972E+03_JPRB,0.84957E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 5,46, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.57911E+03_JPRB,0.84871E+03_JPRB,0.11203E+04_JPRB /)  
+KB(:, 1,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77885E+03_JPRB,0.58070E+03_JPRB,0.85086E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77886E+03_JPRB,0.58066E+03_JPRB,0.85073E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77885E+03_JPRB,0.58037E+03_JPRB,0.85041E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 4,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.57993E+03_JPRB,0.84985E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 5,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.57937E+03_JPRB,0.84903E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 1,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.58064E+03_JPRB,0.85086E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58071E+03_JPRB,0.85080E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58051E+03_JPRB,0.85055E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58013E+03_JPRB,0.85010E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 5,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.57961E+03_JPRB,0.84941E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 1,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.58054E+03_JPRB,0.85082E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58072E+03_JPRB,0.85085E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58061E+03_JPRB,0.85068E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58029E+03_JPRB,0.85032E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 5,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.57983E+03_JPRB,0.84969E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 1,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58042E+03_JPRB,0.85074E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.58068E+03_JPRB,0.85085E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58069E+03_JPRB,0.85077E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58043E+03_JPRB,0.85048E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 5,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58002E+03_JPRB,0.84997E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 1,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.58027E+03_JPRB,0.85064E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58061E+03_JPRB,0.85085E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58071E+03_JPRB,0.85082E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58055E+03_JPRB,0.85061E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.58020E+03_JPRB,0.85015E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 1,52, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58011E+03_JPRB,0.85051E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 2,52, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58051E+03_JPRB,0.85080E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 3,52, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58071E+03_JPRB,0.85085E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,52, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58064E+03_JPRB,0.85068E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,52, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58034E+03_JPRB,0.85037E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 1,53, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.57994E+03_JPRB,0.85036E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 2,53, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77879E+03_JPRB,0.58038E+03_JPRB,0.85072E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 3,53, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58066E+03_JPRB,0.85087E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,53, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58069E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 5,53, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58047E+03_JPRB,0.85044E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 1,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.57977E+03_JPRB,0.85022E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 2,54, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77879E+03_JPRB,0.58026E+03_JPRB,0.85061E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 3,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77881E+03_JPRB,0.58060E+03_JPRB,0.85084E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58072E+03_JPRB,0.85083E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 5,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58058E+03_JPRB,0.85063E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 1,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.57962E+03_JPRB,0.85008E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 2,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58011E+03_JPRB,0.85050E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 3,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58050E+03_JPRB,0.85080E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77880E+03_JPRB,0.58071E+03_JPRB,0.85085E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58064E+03_JPRB,0.85072E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 1,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57945E+03_JPRB,0.84993E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 2,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.57995E+03_JPRB,0.85037E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 3,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58039E+03_JPRB,0.85071E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 4,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58067E+03_JPRB,0.85086E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58069E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.57927E+03_JPRB,0.84978E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 2,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57979E+03_JPRB,0.85024E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 3,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58025E+03_JPRB,0.85063E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 4,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58060E+03_JPRB,0.85084E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58071E+03_JPRB,0.85083E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57911E+03_JPRB,0.84962E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 2,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57964E+03_JPRB,0.85010E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 3,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58013E+03_JPRB,0.85053E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 4,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58052E+03_JPRB,0.85080E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 5,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58071E+03_JPRB,0.85085E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57904E+03_JPRB,0.84955E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 2,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.57958E+03_JPRB,0.85006E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 3,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58007E+03_JPRB,0.85048E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 4,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58048E+03_JPRB,0.85078E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 5,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58070E+03_JPRB,0.85086E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,13, 9) = (/ &
+ & 0.11533E+04_JPRB,0.87327E+03_JPRB,0.59473E+03_JPRB,0.87046E+03_JPRB,0.11487E+04_JPRB /)  
+KB(:, 2,13, 9) = (/ &
+ & 0.11444E+04_JPRB,0.86660E+03_JPRB,0.59240E+03_JPRB,0.87005E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 3,13, 9) = (/ &
+ & 0.11367E+04_JPRB,0.86090E+03_JPRB,0.59185E+03_JPRB,0.86950E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 4,13, 9) = (/ &
+ & 0.11301E+04_JPRB,0.85587E+03_JPRB,0.59143E+03_JPRB,0.86883E+03_JPRB,0.11469E+04_JPRB /)  
+KB(:, 5,13, 9) = (/ &
+ & 0.11242E+04_JPRB,0.85148E+03_JPRB,0.59084E+03_JPRB,0.86797E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 1,14, 9) = (/ &
+ & 0.11310E+04_JPRB,0.85656E+03_JPRB,0.59238E+03_JPRB,0.87026E+03_JPRB,0.11487E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART25',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,14, 9) = (/ &
+ & 0.11238E+04_JPRB,0.85118E+03_JPRB,0.59190E+03_JPRB,0.86988E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 3,14, 9) = (/ &
+ & 0.11176E+04_JPRB,0.84654E+03_JPRB,0.59149E+03_JPRB,0.86931E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 4,14, 9) = (/ &
+ & 0.11122E+04_JPRB,0.84248E+03_JPRB,0.59105E+03_JPRB,0.86863E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 5,14, 9) = (/ &
+ & 0.11074E+04_JPRB,0.83890E+03_JPRB,0.59046E+03_JPRB,0.86777E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 1,15, 9) = (/ &
+ & 0.11128E+04_JPRB,0.84292E+03_JPRB,0.59202E+03_JPRB,0.87009E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 2,15, 9) = (/ &
+ & 0.11070E+04_JPRB,0.83857E+03_JPRB,0.59157E+03_JPRB,0.86969E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 3,15, 9) = (/ &
+ & 0.11020E+04_JPRB,0.83480E+03_JPRB,0.59118E+03_JPRB,0.86913E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 4,15, 9) = (/ &
+ & 0.10976E+04_JPRB,0.83151E+03_JPRB,0.59076E+03_JPRB,0.86843E+03_JPRB,0.11467E+04_JPRB /)  
+KB(:, 5,15, 9) = (/ &
+ & 0.10938E+04_JPRB,0.82865E+03_JPRB,0.59015E+03_JPRB,0.86756E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 1,16, 9) = (/ &
+ & 0.10980E+04_JPRB,0.83182E+03_JPRB,0.59172E+03_JPRB,0.86994E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 2,16, 9) = (/ &
+ & 0.10933E+04_JPRB,0.82831E+03_JPRB,0.59129E+03_JPRB,0.86966E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 3,16, 9) = (/ &
+ & 0.10893E+04_JPRB,0.82527E+03_JPRB,0.59092E+03_JPRB,0.86898E+03_JPRB,0.11475E+04_JPRB /)  
+KB(:, 4,16, 9) = (/ &
+ & 0.10858E+04_JPRB,0.82261E+03_JPRB,0.59049E+03_JPRB,0.86826E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 5,16, 9) = (/ &
+ & 0.10827E+04_JPRB,0.82037E+03_JPRB,0.58989E+03_JPRB,0.86738E+03_JPRB,0.11455E+04_JPRB /)  
+KB(:, 1,17, 9) = (/ &
+ & 0.10860E+04_JPRB,0.82280E+03_JPRB,0.59147E+03_JPRB,0.86983E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,17, 9) = (/ &
+ & 0.10822E+04_JPRB,0.81997E+03_JPRB,0.59107E+03_JPRB,0.86941E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 3,17, 9) = (/ &
+ & 0.10790E+04_JPRB,0.81753E+03_JPRB,0.59070E+03_JPRB,0.86883E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 4,17, 9) = (/ &
+ & 0.10761E+04_JPRB,0.81539E+03_JPRB,0.59027E+03_JPRB,0.86811E+03_JPRB,0.11465E+04_JPRB /)  
+KB(:, 5,17, 9) = (/ &
+ & 0.10736E+04_JPRB,0.81353E+03_JPRB,0.58965E+03_JPRB,0.86721E+03_JPRB,0.11454E+04_JPRB /)  
+KB(:, 1,18, 9) = (/ &
+ & 0.10762E+04_JPRB,0.81555E+03_JPRB,0.59126E+03_JPRB,0.86969E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,18, 9) = (/ &
+ & 0.10732E+04_JPRB,0.81322E+03_JPRB,0.59088E+03_JPRB,0.86928E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 3,18, 9) = (/ &
+ & 0.10706E+04_JPRB,0.81128E+03_JPRB,0.59052E+03_JPRB,0.86870E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 4,18, 9) = (/ &
+ & 0.10683E+04_JPRB,0.80956E+03_JPRB,0.59008E+03_JPRB,0.86800E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 5,18, 9) = (/ &
+ & 0.10663E+04_JPRB,0.80808E+03_JPRB,0.58945E+03_JPRB,0.86705E+03_JPRB,0.11452E+04_JPRB /)  
+KB(:, 1,19, 9) = (/ &
+ & 0.10684E+04_JPRB,0.80963E+03_JPRB,0.59108E+03_JPRB,0.86962E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,19, 9) = (/ &
+ & 0.10659E+04_JPRB,0.80774E+03_JPRB,0.59072E+03_JPRB,0.86917E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 3,19, 9) = (/ &
+ & 0.10638E+04_JPRB,0.80613E+03_JPRB,0.59038E+03_JPRB,0.86858E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 4,19, 9) = (/ &
+ & 0.10619E+04_JPRB,0.80481E+03_JPRB,0.58991E+03_JPRB,0.86784E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 5,19, 9) = (/ &
+ & 0.10603E+04_JPRB,0.80353E+03_JPRB,0.58926E+03_JPRB,0.86690E+03_JPRB,0.11451E+04_JPRB /)  
+KB(:, 1,20, 9) = (/ &
+ & 0.10619E+04_JPRB,0.80474E+03_JPRB,0.59092E+03_JPRB,0.86952E+03_JPRB,0.11484E+04_JPRB /)  
+KB(:, 2,20, 9) = (/ &
+ & 0.10599E+04_JPRB,0.80326E+03_JPRB,0.59057E+03_JPRB,0.86907E+03_JPRB,0.11479E+04_JPRB /)  
+KB(:, 3,20, 9) = (/ &
+ & 0.10582E+04_JPRB,0.80198E+03_JPRB,0.59022E+03_JPRB,0.86845E+03_JPRB,0.11472E+04_JPRB /)  
+KB(:, 4,20, 9) = (/ &
+ & 0.10567E+04_JPRB,0.80089E+03_JPRB,0.58976E+03_JPRB,0.86771E+03_JPRB,0.11462E+04_JPRB /)  
+KB(:, 5,20, 9) = (/ &
+ & 0.10554E+04_JPRB,0.79986E+03_JPRB,0.58910E+03_JPRB,0.86674E+03_JPRB,0.11449E+04_JPRB /)  
+KB(:, 1,21, 9) = (/ &
+ & 0.10567E+04_JPRB,0.80080E+03_JPRB,0.59079E+03_JPRB,0.86945E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 2,21, 9) = (/ &
+ & 0.10550E+04_JPRB,0.79960E+03_JPRB,0.59045E+03_JPRB,0.86897E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 3,21, 9) = (/ &
+ & 0.10537E+04_JPRB,0.79858E+03_JPRB,0.59010E+03_JPRB,0.86836E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 4,21, 9) = (/ &
+ & 0.10525E+04_JPRB,0.79770E+03_JPRB,0.58962E+03_JPRB,0.86752E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 5,21, 9) = (/ &
+ & 0.10514E+04_JPRB,0.79685E+03_JPRB,0.58893E+03_JPRB,0.86654E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 1,22, 9) = (/ &
+ & 0.10523E+04_JPRB,0.79754E+03_JPRB,0.59066E+03_JPRB,0.86933E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 2,22, 9) = (/ &
+ & 0.10510E+04_JPRB,0.79661E+03_JPRB,0.59033E+03_JPRB,0.86884E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 3,22, 9) = (/ &
+ & 0.10500E+04_JPRB,0.79577E+03_JPRB,0.58997E+03_JPRB,0.86819E+03_JPRB,0.11469E+04_JPRB /)  
+KB(:, 4,22, 9) = (/ &
+ & 0.10490E+04_JPRB,0.79506E+03_JPRB,0.58945E+03_JPRB,0.86737E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 5,22, 9) = (/ &
+ & 0.10482E+04_JPRB,0.79443E+03_JPRB,0.58872E+03_JPRB,0.86635E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 1,23, 9) = (/ &
+ & 0.10488E+04_JPRB,0.79491E+03_JPRB,0.59053E+03_JPRB,0.86922E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 2,23, 9) = (/ &
+ & 0.10478E+04_JPRB,0.79417E+03_JPRB,0.59023E+03_JPRB,0.86872E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 3,23, 9) = (/ &
+ & 0.10469E+04_JPRB,0.79351E+03_JPRB,0.58983E+03_JPRB,0.86802E+03_JPRB,0.11467E+04_JPRB /)  
+KB(:, 4,23, 9) = (/ &
+ & 0.10461E+04_JPRB,0.79293E+03_JPRB,0.58929E+03_JPRB,0.86717E+03_JPRB,0.11456E+04_JPRB /)  
+KB(:, 5,23, 9) = (/ &
+ & 0.10455E+04_JPRB,0.79241E+03_JPRB,0.58851E+03_JPRB,0.86610E+03_JPRB,0.11442E+04_JPRB /)  
+KB(:, 1,24, 9) = (/ &
+ & 0.10460E+04_JPRB,0.79285E+03_JPRB,0.59042E+03_JPRB,0.86910E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 2,24, 9) = (/ &
+ & 0.10452E+04_JPRB,0.79220E+03_JPRB,0.59009E+03_JPRB,0.86856E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 3,24, 9) = (/ &
+ & 0.10445E+04_JPRB,0.79170E+03_JPRB,0.58968E+03_JPRB,0.86785E+03_JPRB,0.11465E+04_JPRB /)  
+KB(:, 4,24, 9) = (/ &
+ & 0.10439E+04_JPRB,0.79123E+03_JPRB,0.58911E+03_JPRB,0.86698E+03_JPRB,0.11453E+04_JPRB /)  
+KB(:, 5,24, 9) = (/ &
+ & 0.10433E+04_JPRB,0.79086E+03_JPRB,0.58830E+03_JPRB,0.86584E+03_JPRB,0.11439E+04_JPRB /)  
+KB(:, 1,25, 9) = (/ &
+ & 0.10438E+04_JPRB,0.79109E+03_JPRB,0.59032E+03_JPRB,0.86899E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 2,25, 9) = (/ &
+ & 0.10430E+04_JPRB,0.79059E+03_JPRB,0.58999E+03_JPRB,0.86841E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 3,25, 9) = (/ &
+ & 0.10425E+04_JPRB,0.79018E+03_JPRB,0.58955E+03_JPRB,0.86768E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 4,25, 9) = (/ &
+ & 0.10420E+04_JPRB,0.78985E+03_JPRB,0.58893E+03_JPRB,0.86674E+03_JPRB,0.11450E+04_JPRB /)  
+KB(:, 5,25, 9) = (/ &
+ & 0.10416E+04_JPRB,0.78947E+03_JPRB,0.58810E+03_JPRB,0.86557E+03_JPRB,0.11436E+04_JPRB /)  
+KB(:, 1,26, 9) = (/ &
+ & 0.10418E+04_JPRB,0.78966E+03_JPRB,0.59022E+03_JPRB,0.86886E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 2,26, 9) = (/ &
+ & 0.10414E+04_JPRB,0.78932E+03_JPRB,0.58989E+03_JPRB,0.86824E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 3,26, 9) = (/ &
+ & 0.10409E+04_JPRB,0.78898E+03_JPRB,0.58940E+03_JPRB,0.86743E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 4,26, 9) = (/ &
+ & 0.10405E+04_JPRB,0.78870E+03_JPRB,0.58873E+03_JPRB,0.86647E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 5,26, 9) = (/ &
+ & 0.10401E+04_JPRB,0.78842E+03_JPRB,0.58782E+03_JPRB,0.86527E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 1,27, 9) = (/ &
+ & 0.10403E+04_JPRB,0.78855E+03_JPRB,0.59012E+03_JPRB,0.86872E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 2,27, 9) = (/ &
+ & 0.10399E+04_JPRB,0.78827E+03_JPRB,0.58977E+03_JPRB,0.86806E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 3,27, 9) = (/ &
+ & 0.10396E+04_JPRB,0.78799E+03_JPRB,0.58924E+03_JPRB,0.86723E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 4,27, 9) = (/ &
+ & 0.10392E+04_JPRB,0.78776E+03_JPRB,0.58850E+03_JPRB,0.86619E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 5,27, 9) = (/ &
+ & 0.10390E+04_JPRB,0.78757E+03_JPRB,0.58756E+03_JPRB,0.86495E+03_JPRB,0.11428E+04_JPRB /)  
+KB(:, 1,28, 9) = (/ &
+ & 0.10391E+04_JPRB,0.78770E+03_JPRB,0.59002E+03_JPRB,0.86856E+03_JPRB,0.11475E+04_JPRB /)  
+KB(:, 2,28, 9) = (/ &
+ & 0.10388E+04_JPRB,0.78747E+03_JPRB,0.58964E+03_JPRB,0.86790E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 3,28, 9) = (/ &
+ & 0.10385E+04_JPRB,0.78719E+03_JPRB,0.58908E+03_JPRB,0.86701E+03_JPRB,0.11455E+04_JPRB /)  
+KB(:, 4,28, 9) = (/ &
+ & 0.10383E+04_JPRB,0.78704E+03_JPRB,0.58829E+03_JPRB,0.86590E+03_JPRB,0.11440E+04_JPRB /)  
+KB(:, 5,28, 9) = (/ &
+ & 0.10381E+04_JPRB,0.78687E+03_JPRB,0.58729E+03_JPRB,0.86461E+03_JPRB,0.11423E+04_JPRB /)  
+KB(:, 1,29, 9) = (/ &
+ & 0.10382E+04_JPRB,0.78694E+03_JPRB,0.58994E+03_JPRB,0.86841E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 2,29, 9) = (/ &
+ & 0.10379E+04_JPRB,0.78677E+03_JPRB,0.58950E+03_JPRB,0.86767E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 3,29, 9) = (/ &
+ & 0.10377E+04_JPRB,0.78658E+03_JPRB,0.58888E+03_JPRB,0.86674E+03_JPRB,0.11451E+04_JPRB /)  
+KB(:, 4,29, 9) = (/ &
+ & 0.10375E+04_JPRB,0.78645E+03_JPRB,0.58805E+03_JPRB,0.86559E+03_JPRB,0.11436E+04_JPRB /)  
+KB(:, 5,29, 9) = (/ &
+ & 0.10374E+04_JPRB,0.78628E+03_JPRB,0.58702E+03_JPRB,0.86429E+03_JPRB,0.11419E+04_JPRB /)  
+KB(:, 1,30, 9) = (/ &
+ & 0.10373E+04_JPRB,0.78632E+03_JPRB,0.58983E+03_JPRB,0.86822E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 2,30, 9) = (/ &
+ & 0.10371E+04_JPRB,0.78619E+03_JPRB,0.58935E+03_JPRB,0.86746E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 3,30, 9) = (/ &
+ & 0.10370E+04_JPRB,0.78613E+03_JPRB,0.58869E+03_JPRB,0.86647E+03_JPRB,0.11448E+04_JPRB /)  
+KB(:, 4,30, 9) = (/ &
+ & 0.10369E+04_JPRB,0.78594E+03_JPRB,0.58779E+03_JPRB,0.86529E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 5,30, 9) = (/ &
+ & 0.10367E+04_JPRB,0.78585E+03_JPRB,0.58673E+03_JPRB,0.86393E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 1,31, 9) = (/ &
+ & 0.10367E+04_JPRB,0.78588E+03_JPRB,0.58971E+03_JPRB,0.86804E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 2,31, 9) = (/ &
+ & 0.10365E+04_JPRB,0.78574E+03_JPRB,0.58919E+03_JPRB,0.86720E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 3,31, 9) = (/ &
+ & 0.10364E+04_JPRB,0.78562E+03_JPRB,0.58847E+03_JPRB,0.86618E+03_JPRB,0.11443E+04_JPRB /)  
+KB(:, 4,31, 9) = (/ &
+ & 0.10363E+04_JPRB,0.78557E+03_JPRB,0.58752E+03_JPRB,0.86495E+03_JPRB,0.11427E+04_JPRB /)  
+KB(:, 5,31, 9) = (/ &
+ & 0.10362E+04_JPRB,0.78546E+03_JPRB,0.58644E+03_JPRB,0.86356E+03_JPRB,0.11409E+04_JPRB /)  
+KB(:, 1,32, 9) = (/ &
+ & 0.10362E+04_JPRB,0.78556E+03_JPRB,0.58958E+03_JPRB,0.86784E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 2,32, 9) = (/ &
+ & 0.10361E+04_JPRB,0.78539E+03_JPRB,0.58901E+03_JPRB,0.86697E+03_JPRB,0.11454E+04_JPRB /)  
+KB(:, 3,32, 9) = (/ &
+ & 0.10360E+04_JPRB,0.78539E+03_JPRB,0.58824E+03_JPRB,0.86587E+03_JPRB,0.11440E+04_JPRB /)  
+KB(:, 4,32, 9) = (/ &
+ & 0.10359E+04_JPRB,0.78525E+03_JPRB,0.58724E+03_JPRB,0.86459E+03_JPRB,0.11423E+04_JPRB /)  
+KB(:, 5,32, 9) = (/ &
+ & 0.10358E+04_JPRB,0.78516E+03_JPRB,0.58615E+03_JPRB,0.86318E+03_JPRB,0.11404E+04_JPRB /)  
+KB(:, 1,33, 9) = (/ &
+ & 0.10358E+04_JPRB,0.78520E+03_JPRB,0.58945E+03_JPRB,0.86763E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 2,33, 9) = (/ &
+ & 0.10357E+04_JPRB,0.78510E+03_JPRB,0.58883E+03_JPRB,0.86670E+03_JPRB,0.11450E+04_JPRB /)  
+KB(:, 3,33, 9) = (/ &
+ & 0.10356E+04_JPRB,0.78504E+03_JPRB,0.58799E+03_JPRB,0.86554E+03_JPRB,0.11435E+04_JPRB /)  
+KB(:, 4,33, 9) = (/ &
+ & 0.10356E+04_JPRB,0.78500E+03_JPRB,0.58695E+03_JPRB,0.86422E+03_JPRB,0.11418E+04_JPRB /)  
+KB(:, 5,33, 9) = (/ &
+ & 0.10355E+04_JPRB,0.78493E+03_JPRB,0.58586E+03_JPRB,0.86281E+03_JPRB,0.11399E+04_JPRB /)  
+KB(:, 1,34, 9) = (/ &
+ & 0.10355E+04_JPRB,0.78495E+03_JPRB,0.58932E+03_JPRB,0.86743E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 2,34, 9) = (/ &
+ & 0.10354E+04_JPRB,0.78487E+03_JPRB,0.58865E+03_JPRB,0.86644E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 3,34, 9) = (/ &
+ & 0.10354E+04_JPRB,0.78485E+03_JPRB,0.58776E+03_JPRB,0.86524E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 4,34, 9) = (/ &
+ & 0.10353E+04_JPRB,0.78479E+03_JPRB,0.58670E+03_JPRB,0.86390E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 5,34, 9) = (/ &
+ & 0.10352E+04_JPRB,0.78474E+03_JPRB,0.58560E+03_JPRB,0.86249E+03_JPRB,0.11395E+04_JPRB /)  
+KB(:, 1,35, 9) = (/ &
+ & 0.10352E+04_JPRB,0.78478E+03_JPRB,0.58924E+03_JPRB,0.86731E+03_JPRB,0.11459E+04_JPRB /)  
+KB(:, 2,35, 9) = (/ &
+ & 0.10352E+04_JPRB,0.78472E+03_JPRB,0.58855E+03_JPRB,0.86632E+03_JPRB,0.11445E+04_JPRB /)  
+KB(:, 3,35, 9) = (/ &
+ & 0.10351E+04_JPRB,0.78465E+03_JPRB,0.58761E+03_JPRB,0.86508E+03_JPRB,0.11430E+04_JPRB /)  
+KB(:, 4,35, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78465E+03_JPRB,0.58655E+03_JPRB,0.86369E+03_JPRB,0.11412E+04_JPRB /)  
+KB(:, 5,35, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78456E+03_JPRB,0.58545E+03_JPRB,0.86237E+03_JPRB,0.11393E+04_JPRB /)  
+KB(:, 1,36, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78465E+03_JPRB,0.58922E+03_JPRB,0.86729E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 2,36, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78456E+03_JPRB,0.58852E+03_JPRB,0.86627E+03_JPRB,0.11445E+04_JPRB /)  
+KB(:, 3,36, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78452E+03_JPRB,0.58759E+03_JPRB,0.86505E+03_JPRB,0.11429E+04_JPRB /)  
+KB(:, 4,36, 9) = (/ &
+ & 0.10349E+04_JPRB,0.78450E+03_JPRB,0.58651E+03_JPRB,0.86369E+03_JPRB,0.11411E+04_JPRB /)  
+KB(:, 5,36, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78444E+03_JPRB,0.58544E+03_JPRB,0.86227E+03_JPRB,0.11392E+04_JPRB /)  
+KB(:, 1,37, 9) = (/ &
+ & 0.10349E+04_JPRB,0.78446E+03_JPRB,0.58930E+03_JPRB,0.86738E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 2,37, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78444E+03_JPRB,0.58863E+03_JPRB,0.86642E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 3,37, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78441E+03_JPRB,0.58773E+03_JPRB,0.86522E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 4,37, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78439E+03_JPRB,0.58667E+03_JPRB,0.86387E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 5,37, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78436E+03_JPRB,0.58559E+03_JPRB,0.86245E+03_JPRB,0.11394E+04_JPRB /)  
+KB(:, 1,38, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78440E+03_JPRB,0.58936E+03_JPRB,0.86753E+03_JPRB,0.11462E+04_JPRB /)  
+KB(:, 2,38, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78434E+03_JPRB,0.58873E+03_JPRB,0.86658E+03_JPRB,0.11449E+04_JPRB /)  
+KB(:, 3,38, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78432E+03_JPRB,0.58786E+03_JPRB,0.86537E+03_JPRB,0.11434E+04_JPRB /)  
+KB(:, 4,38, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78431E+03_JPRB,0.58681E+03_JPRB,0.86407E+03_JPRB,0.11416E+04_JPRB /)  
+KB(:, 5,38, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78428E+03_JPRB,0.58573E+03_JPRB,0.86265E+03_JPRB,0.11397E+04_JPRB /)  
+KB(:, 1,39, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78431E+03_JPRB,0.58943E+03_JPRB,0.86764E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 2,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78431E+03_JPRB,0.58882E+03_JPRB,0.86672E+03_JPRB,0.11451E+04_JPRB /)  
+KB(:, 3,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78424E+03_JPRB,0.58800E+03_JPRB,0.86557E+03_JPRB,0.11436E+04_JPRB /)  
+KB(:, 4,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78421E+03_JPRB,0.58697E+03_JPRB,0.86426E+03_JPRB,0.11419E+04_JPRB /)  
+KB(:, 5,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78429E+03_JPRB,0.58587E+03_JPRB,0.86284E+03_JPRB,0.11400E+04_JPRB /)  
+KB(:, 1,40, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78426E+03_JPRB,0.58957E+03_JPRB,0.86785E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 2,40, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78427E+03_JPRB,0.58899E+03_JPRB,0.86697E+03_JPRB,0.11454E+04_JPRB /)  
+KB(:, 3,40, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78422E+03_JPRB,0.58822E+03_JPRB,0.86585E+03_JPRB,0.11440E+04_JPRB /)  
+KB(:, 4,40, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78421E+03_JPRB,0.58723E+03_JPRB,0.86460E+03_JPRB,0.11423E+04_JPRB /)  
+KB(:, 5,40, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78416E+03_JPRB,0.58614E+03_JPRB,0.86319E+03_JPRB,0.11403E+04_JPRB /)  
+KB(:, 1,41, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78421E+03_JPRB,0.58967E+03_JPRB,0.86804E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 2,41, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78418E+03_JPRB,0.58916E+03_JPRB,0.86720E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 3,41, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78415E+03_JPRB,0.58844E+03_JPRB,0.86618E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 4,41, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78413E+03_JPRB,0.58748E+03_JPRB,0.86492E+03_JPRB,0.11428E+04_JPRB /)  
+KB(:, 5,41, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78411E+03_JPRB,0.58642E+03_JPRB,0.86355E+03_JPRB,0.11409E+04_JPRB /)  
+KB(:, 1,42, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78414E+03_JPRB,0.58976E+03_JPRB,0.86830E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 2,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78417E+03_JPRB,0.58930E+03_JPRB,0.86744E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 3,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78411E+03_JPRB,0.58863E+03_JPRB,0.86645E+03_JPRB,0.11448E+04_JPRB /)  
+KB(:, 4,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78409E+03_JPRB,0.58775E+03_JPRB,0.86525E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 5,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78408E+03_JPRB,0.58670E+03_JPRB,0.86391E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 1,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78410E+03_JPRB,0.58987E+03_JPRB,0.86842E+03_JPRB,0.11473E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART26',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78408E+03_JPRB,0.58947E+03_JPRB,0.86769E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 3,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78409E+03_JPRB,0.58887E+03_JPRB,0.86678E+03_JPRB,0.11452E+04_JPRB /)  
+KB(:, 4,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78410E+03_JPRB,0.58806E+03_JPRB,0.86567E+03_JPRB,0.11437E+04_JPRB /)  
+KB(:, 5,43, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78406E+03_JPRB,0.58704E+03_JPRB,0.86435E+03_JPRB,0.11420E+04_JPRB /)  
+KB(:, 1,44, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78409E+03_JPRB,0.58998E+03_JPRB,0.86862E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 2,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78407E+03_JPRB,0.58962E+03_JPRB,0.86796E+03_JPRB,0.11467E+04_JPRB /)  
+KB(:, 3,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78406E+03_JPRB,0.58910E+03_JPRB,0.86711E+03_JPRB,0.11456E+04_JPRB /)  
+KB(:, 4,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58835E+03_JPRB,0.86607E+03_JPRB,0.11442E+04_JPRB /)  
+KB(:, 5,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58738E+03_JPRB,0.86483E+03_JPRB,0.11426E+04_JPRB /)  
+KB(:, 1,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78404E+03_JPRB,0.59009E+03_JPRB,0.86881E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 2,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78405E+03_JPRB,0.58975E+03_JPRB,0.86821E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 3,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78404E+03_JPRB,0.58930E+03_JPRB,0.86741E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 4,45, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78400E+03_JPRB,0.58862E+03_JPRB,0.86644E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 5,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78402E+03_JPRB,0.58769E+03_JPRB,0.86520E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 1,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.59019E+03_JPRB,0.86899E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 2,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58989E+03_JPRB,0.86845E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 3,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58947E+03_JPRB,0.86773E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 4,46, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78401E+03_JPRB,0.58890E+03_JPRB,0.86681E+03_JPRB,0.11452E+04_JPRB /)  
+KB(:, 5,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78405E+03_JPRB,0.58808E+03_JPRB,0.86568E+03_JPRB,0.11438E+04_JPRB /)  
+KB(:, 1,47, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78401E+03_JPRB,0.59032E+03_JPRB,0.86917E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 2,47, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.59001E+03_JPRB,0.86868E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 3,47, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.58967E+03_JPRB,0.86807E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 4,47, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78397E+03_JPRB,0.58916E+03_JPRB,0.86720E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 5,47, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58844E+03_JPRB,0.86618E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 1,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.59046E+03_JPRB,0.86932E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,48, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78398E+03_JPRB,0.59013E+03_JPRB,0.86890E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 3,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78402E+03_JPRB,0.58982E+03_JPRB,0.86829E+03_JPRB,0.11472E+04_JPRB /)  
+KB(:, 4,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.58938E+03_JPRB,0.86756E+03_JPRB,0.11462E+04_JPRB /)  
+KB(:, 5,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78400E+03_JPRB,0.58875E+03_JPRB,0.86661E+03_JPRB,0.11449E+04_JPRB /)  
+KB(:, 1,49, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78402E+03_JPRB,0.59060E+03_JPRB,0.86945E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 2,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.59025E+03_JPRB,0.86908E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 3,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58995E+03_JPRB,0.86856E+03_JPRB,0.11475E+04_JPRB /)  
+KB(:, 4,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58958E+03_JPRB,0.86790E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 5,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.58903E+03_JPRB,0.86700E+03_JPRB,0.11455E+04_JPRB /)  
+KB(:, 1,50, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78395E+03_JPRB,0.59074E+03_JPRB,0.86956E+03_JPRB,0.11487E+04_JPRB /)  
+KB(:, 2,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.59038E+03_JPRB,0.86924E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 3,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.59006E+03_JPRB,0.86878E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 4,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58974E+03_JPRB,0.86817E+03_JPRB,0.11470E+04_JPRB /)  
+KB(:, 5,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58927E+03_JPRB,0.86736E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 1,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.59088E+03_JPRB,0.86965E+03_JPRB,0.11488E+04_JPRB /)  
+KB(:, 2,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59051E+03_JPRB,0.86937E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 3,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78400E+03_JPRB,0.59018E+03_JPRB,0.86897E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 4,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.58987E+03_JPRB,0.86840E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 5,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.58946E+03_JPRB,0.86768E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 1,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59100E+03_JPRB,0.86971E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 2,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.59064E+03_JPRB,0.86949E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 3,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59029E+03_JPRB,0.86915E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 4,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.58998E+03_JPRB,0.86864E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 5,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58963E+03_JPRB,0.86796E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 1,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78397E+03_JPRB,0.59111E+03_JPRB,0.86975E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 2,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.59078E+03_JPRB,0.86960E+03_JPRB,0.11488E+04_JPRB /)  
+KB(:, 3,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59041E+03_JPRB,0.86926E+03_JPRB,0.11484E+04_JPRB /)  
+KB(:, 4,53, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59010E+03_JPRB,0.86884E+03_JPRB,0.11479E+04_JPRB /)  
+KB(:, 5,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58977E+03_JPRB,0.86822E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 1,54, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78394E+03_JPRB,0.59121E+03_JPRB,0.86979E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 2,54, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78399E+03_JPRB,0.59088E+03_JPRB,0.86966E+03_JPRB,0.11489E+04_JPRB /)  
+KB(:, 3,54, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78394E+03_JPRB,0.59052E+03_JPRB,0.86939E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 4,54, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78394E+03_JPRB,0.59020E+03_JPRB,0.86900E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 5,54, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58987E+03_JPRB,0.86845E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 1,55, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59130E+03_JPRB,0.86983E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 2,55, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59100E+03_JPRB,0.86971E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 3,55, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59065E+03_JPRB,0.86949E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 4,55, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59029E+03_JPRB,0.86914E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 5,55, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59000E+03_JPRB,0.86864E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 1,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59137E+03_JPRB,0.86987E+03_JPRB,0.11492E+04_JPRB /)  
+KB(:, 2,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59111E+03_JPRB,0.86975E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 3,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78392E+03_JPRB,0.59077E+03_JPRB,0.86958E+03_JPRB,0.11488E+04_JPRB /)  
+KB(:, 4,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59040E+03_JPRB,0.86926E+03_JPRB,0.11484E+04_JPRB /)  
+KB(:, 5,56, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59009E+03_JPRB,0.86883E+03_JPRB,0.11479E+04_JPRB /)  
+KB(:, 1,57, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59143E+03_JPRB,0.86993E+03_JPRB,0.11492E+04_JPRB /)  
+KB(:, 2,57, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78392E+03_JPRB,0.59122E+03_JPRB,0.86979E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 3,57, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78392E+03_JPRB,0.59089E+03_JPRB,0.86966E+03_JPRB,0.11489E+04_JPRB /)  
+KB(:, 4,57, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78395E+03_JPRB,0.59052E+03_JPRB,0.86938E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 5,57, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59018E+03_JPRB,0.86897E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 1,58, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78395E+03_JPRB,0.59147E+03_JPRB,0.86996E+03_JPRB,0.11493E+04_JPRB /)  
+KB(:, 2,58, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78397E+03_JPRB,0.59129E+03_JPRB,0.86982E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 3,58, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59099E+03_JPRB,0.86970E+03_JPRB,0.11489E+04_JPRB /)  
+KB(:, 4,58, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78397E+03_JPRB,0.59063E+03_JPRB,0.86948E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 5,58, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78390E+03_JPRB,0.59028E+03_JPRB,0.86913E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,59, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59148E+03_JPRB,0.86998E+03_JPRB,0.11494E+04_JPRB /)  
+KB(:, 2,59, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59132E+03_JPRB,0.86982E+03_JPRB,0.11492E+04_JPRB /)  
+KB(:, 3,59, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59103E+03_JPRB,0.86972E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 4,59, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78394E+03_JPRB,0.59067E+03_JPRB,0.86951E+03_JPRB,0.11487E+04_JPRB /)  
+KB(:, 5,59, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78397E+03_JPRB,0.59032E+03_JPRB,0.86918E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 1,13,10) = (/ &
+ & 0.11544E+04_JPRB,0.87486E+03_JPRB,0.59975E+03_JPRB,0.88029E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 2,13,10) = (/ &
+ & 0.11458E+04_JPRB,0.86752E+03_JPRB,0.59921E+03_JPRB,0.87889E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 3,13,10) = (/ &
+ & 0.11380E+04_JPRB,0.86177E+03_JPRB,0.59836E+03_JPRB,0.87789E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 4,13,10) = (/ &
+ & 0.11310E+04_JPRB,0.85697E+03_JPRB,0.59745E+03_JPRB,0.87697E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 5,13,10) = (/ &
+ & 0.11259E+04_JPRB,0.85279E+03_JPRB,0.59663E+03_JPRB,0.87606E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 1,14,10) = (/ &
+ & 0.11329E+04_JPRB,0.85757E+03_JPRB,0.59935E+03_JPRB,0.88000E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 2,14,10) = (/ &
+ & 0.11257E+04_JPRB,0.85228E+03_JPRB,0.59878E+03_JPRB,0.87841E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 3,14,10) = (/ &
+ & 0.11201E+04_JPRB,0.84731E+03_JPRB,0.59797E+03_JPRB,0.87766E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 4,14,10) = (/ &
+ & 0.11140E+04_JPRB,0.84389E+03_JPRB,0.59731E+03_JPRB,0.87707E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 5,14,10) = (/ &
+ & 0.11094E+04_JPRB,0.84001E+03_JPRB,0.59642E+03_JPRB,0.87571E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 1,15,10) = (/ &
+ & 0.11142E+04_JPRB,0.84370E+03_JPRB,0.59900E+03_JPRB,0.87973E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 2,15,10) = (/ &
+ & 0.11097E+04_JPRB,0.84029E+03_JPRB,0.59841E+03_JPRB,0.87827E+03_JPRB,0.11607E+04_JPRB /)  
+KB(:, 3,15,10) = (/ &
+ & 0.11039E+04_JPRB,0.83570E+03_JPRB,0.59763E+03_JPRB,0.87745E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 4,15,10) = (/ &
+ & 0.10995E+04_JPRB,0.83295E+03_JPRB,0.59685E+03_JPRB,0.87664E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 5,15,10) = (/ &
+ & 0.10956E+04_JPRB,0.82966E+03_JPRB,0.59611E+03_JPRB,0.87548E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 1,16,10) = (/ &
+ & 0.11006E+04_JPRB,0.83290E+03_JPRB,0.59871E+03_JPRB,0.87947E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 2,16,10) = (/ &
+ & 0.10967E+04_JPRB,0.82960E+03_JPRB,0.59809E+03_JPRB,0.87696E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 3,16,10) = (/ &
+ & 0.10908E+04_JPRB,0.82627E+03_JPRB,0.59735E+03_JPRB,0.87716E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 4,16,10) = (/ &
+ & 0.10878E+04_JPRB,0.82496E+03_JPRB,0.59665E+03_JPRB,0.87645E+03_JPRB,0.11573E+04_JPRB /)  
+KB(:, 5,16,10) = (/ &
+ & 0.10846E+04_JPRB,0.82140E+03_JPRB,0.59584E+03_JPRB,0.87537E+03_JPRB,0.11556E+04_JPRB /)  
+KB(:, 1,17,10) = (/ &
+ & 0.10872E+04_JPRB,0.82399E+03_JPRB,0.59847E+03_JPRB,0.87912E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 2,17,10) = (/ &
+ & 0.10836E+04_JPRB,0.82137E+03_JPRB,0.59782E+03_JPRB,0.87785E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 3,17,10) = (/ &
+ & 0.10806E+04_JPRB,0.81903E+03_JPRB,0.59710E+03_JPRB,0.87700E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 4,17,10) = (/ &
+ & 0.10781E+04_JPRB,0.81649E+03_JPRB,0.59641E+03_JPRB,0.87627E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 5,17,10) = (/ &
+ & 0.10750E+04_JPRB,0.81461E+03_JPRB,0.59560E+03_JPRB,0.87517E+03_JPRB,0.11554E+04_JPRB /)  
+KB(:, 1,18,10) = (/ &
+ & 0.10783E+04_JPRB,0.81627E+03_JPRB,0.59826E+03_JPRB,0.87902E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 2,18,10) = (/ &
+ & 0.10752E+04_JPRB,0.81450E+03_JPRB,0.59759E+03_JPRB,0.87778E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 3,18,10) = (/ &
+ & 0.10718E+04_JPRB,0.81284E+03_JPRB,0.59689E+03_JPRB,0.87707E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 4,18,10) = (/ &
+ & 0.10695E+04_JPRB,0.81051E+03_JPRB,0.59620E+03_JPRB,0.87578E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 5,18,10) = (/ &
+ & 0.10675E+04_JPRB,0.80859E+03_JPRB,0.59539E+03_JPRB,0.87498E+03_JPRB,0.11554E+04_JPRB /)  
+KB(:, 1,19,10) = (/ &
+ & 0.10693E+04_JPRB,0.81014E+03_JPRB,0.59808E+03_JPRB,0.87871E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 2,19,10) = (/ &
+ & 0.10674E+04_JPRB,0.80961E+03_JPRB,0.59739E+03_JPRB,0.87763E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 3,19,10) = (/ &
+ & 0.10651E+04_JPRB,0.80782E+03_JPRB,0.59664E+03_JPRB,0.87683E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 4,19,10) = (/ &
+ & 0.10639E+04_JPRB,0.80562E+03_JPRB,0.59610E+03_JPRB,0.87595E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 5,19,10) = (/ &
+ & 0.10620E+04_JPRB,0.80440E+03_JPRB,0.59520E+03_JPRB,0.87481E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 1,20,10) = (/ &
+ & 0.10633E+04_JPRB,0.80580E+03_JPRB,0.59791E+03_JPRB,0.87862E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 2,20,10) = (/ &
+ & 0.10619E+04_JPRB,0.80442E+03_JPRB,0.59720E+03_JPRB,0.87747E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 3,20,10) = (/ &
+ & 0.10607E+04_JPRB,0.80344E+03_JPRB,0.59654E+03_JPRB,0.87680E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 4,20,10) = (/ &
+ & 0.10584E+04_JPRB,0.80182E+03_JPRB,0.59585E+03_JPRB,0.87568E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 5,20,10) = (/ &
+ & 0.10568E+04_JPRB,0.80142E+03_JPRB,0.59502E+03_JPRB,0.87461E+03_JPRB,0.11549E+04_JPRB /)  
+KB(:, 1,21,10) = (/ &
+ & 0.10577E+04_JPRB,0.80247E+03_JPRB,0.59775E+03_JPRB,0.87831E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 2,21,10) = (/ &
+ & 0.10572E+04_JPRB,0.80108E+03_JPRB,0.59703E+03_JPRB,0.87733E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 3,21,10) = (/ &
+ & 0.10551E+04_JPRB,0.79955E+03_JPRB,0.59639E+03_JPRB,0.87689E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 4,21,10) = (/ &
+ & 0.10548E+04_JPRB,0.79914E+03_JPRB,0.59569E+03_JPRB,0.87563E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 5,21,10) = (/ &
+ & 0.10533E+04_JPRB,0.79794E+03_JPRB,0.59484E+03_JPRB,0.87454E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 1,22,10) = (/ &
+ & 0.10544E+04_JPRB,0.79901E+03_JPRB,0.59755E+03_JPRB,0.87816E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 2,22,10) = (/ &
+ & 0.10524E+04_JPRB,0.79865E+03_JPRB,0.59692E+03_JPRB,0.87715E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 3,22,10) = (/ &
+ & 0.10518E+04_JPRB,0.79733E+03_JPRB,0.59621E+03_JPRB,0.87638E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 4,22,10) = (/ &
+ & 0.10503E+04_JPRB,0.79602E+03_JPRB,0.59549E+03_JPRB,0.87540E+03_JPRB,0.11562E+04_JPRB /)  
+KB(:, 5,22,10) = (/ &
+ & 0.10497E+04_JPRB,0.79577E+03_JPRB,0.59455E+03_JPRB,0.87415E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 1,23,10) = (/ &
+ & 0.10504E+04_JPRB,0.79618E+03_JPRB,0.59736E+03_JPRB,0.87790E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 2,23,10) = (/ &
+ & 0.10488E+04_JPRB,0.79542E+03_JPRB,0.59652E+03_JPRB,0.87687E+03_JPRB,0.11588E+04_JPRB /)  
+KB(:, 3,23,10) = (/ &
+ & 0.10489E+04_JPRB,0.79466E+03_JPRB,0.59603E+03_JPRB,0.87619E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 4,23,10) = (/ &
+ & 0.10477E+04_JPRB,0.79399E+03_JPRB,0.59528E+03_JPRB,0.87505E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 5,23,10) = (/ &
+ & 0.10468E+04_JPRB,0.79357E+03_JPRB,0.59440E+03_JPRB,0.87388E+03_JPRB,0.11537E+04_JPRB /)  
+KB(:, 1,24,10) = (/ &
+ & 0.10475E+04_JPRB,0.79355E+03_JPRB,0.59716E+03_JPRB,0.87766E+03_JPRB,0.11603E+04_JPRB /)  
+KB(:, 2,24,10) = (/ &
+ & 0.10471E+04_JPRB,0.79325E+03_JPRB,0.59650E+03_JPRB,0.87681E+03_JPRB,0.11585E+04_JPRB /)  
+KB(:, 3,24,10) = (/ &
+ & 0.10463E+04_JPRB,0.79243E+03_JPRB,0.59586E+03_JPRB,0.87587E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 4,24,10) = (/ &
+ & 0.10454E+04_JPRB,0.79206E+03_JPRB,0.59508E+03_JPRB,0.87468E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 5,24,10) = (/ &
+ & 0.10455E+04_JPRB,0.79146E+03_JPRB,0.59426E+03_JPRB,0.87360E+03_JPRB,0.11532E+04_JPRB /)  
+KB(:, 1,25,10) = (/ &
+ & 0.10443E+04_JPRB,0.79222E+03_JPRB,0.59698E+03_JPRB,0.87742E+03_JPRB,0.11598E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART27',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,25,10) = (/ &
+ & 0.10446E+04_JPRB,0.79165E+03_JPRB,0.59633E+03_JPRB,0.87696E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 3,25,10) = (/ &
+ & 0.10440E+04_JPRB,0.79123E+03_JPRB,0.59567E+03_JPRB,0.87565E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 4,25,10) = (/ &
+ & 0.10433E+04_JPRB,0.79106E+03_JPRB,0.59487E+03_JPRB,0.87451E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 5,25,10) = (/ &
+ & 0.10423E+04_JPRB,0.79063E+03_JPRB,0.59375E+03_JPRB,0.87329E+03_JPRB,0.11525E+04_JPRB /)  
+KB(:, 1,26,10) = (/ &
+ & 0.10431E+04_JPRB,0.79112E+03_JPRB,0.59671E+03_JPRB,0.87720E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 2,26,10) = (/ &
+ & 0.10430E+04_JPRB,0.79016E+03_JPRB,0.59608E+03_JPRB,0.87633E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 3,26,10) = (/ &
+ & 0.10422E+04_JPRB,0.78992E+03_JPRB,0.59547E+03_JPRB,0.87551E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 4,26,10) = (/ &
+ & 0.10418E+04_JPRB,0.78943E+03_JPRB,0.59456E+03_JPRB,0.87419E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 5,26,10) = (/ &
+ & 0.10417E+04_JPRB,0.78966E+03_JPRB,0.59375E+03_JPRB,0.87285E+03_JPRB,0.11523E+04_JPRB /)  
+KB(:, 1,27,10) = (/ &
+ & 0.10421E+04_JPRB,0.78970E+03_JPRB,0.59653E+03_JPRB,0.87700E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 2,27,10) = (/ &
+ & 0.10419E+04_JPRB,0.78911E+03_JPRB,0.59591E+03_JPRB,0.87623E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 3,27,10) = (/ &
+ & 0.10414E+04_JPRB,0.78914E+03_JPRB,0.59527E+03_JPRB,0.87524E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 4,27,10) = (/ &
+ & 0.10412E+04_JPRB,0.78891E+03_JPRB,0.59440E+03_JPRB,0.87398E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 5,27,10) = (/ &
+ & 0.10400E+04_JPRB,0.78850E+03_JPRB,0.59354E+03_JPRB,0.87262E+03_JPRB,0.11516E+04_JPRB /)  
+KB(:, 1,28,10) = (/ &
+ & 0.10402E+04_JPRB,0.78860E+03_JPRB,0.59644E+03_JPRB,0.87682E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 2,28,10) = (/ &
+ & 0.10405E+04_JPRB,0.78788E+03_JPRB,0.59574E+03_JPRB,0.87579E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 3,28,10) = (/ &
+ & 0.10403E+04_JPRB,0.78855E+03_JPRB,0.59498E+03_JPRB,0.87473E+03_JPRB,0.11552E+04_JPRB /)  
+KB(:, 4,28,10) = (/ &
+ & 0.10397E+04_JPRB,0.78826E+03_JPRB,0.59417E+03_JPRB,0.87377E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 5,28,10) = (/ &
+ & 0.10396E+04_JPRB,0.78810E+03_JPRB,0.59333E+03_JPRB,0.87227E+03_JPRB,0.11511E+04_JPRB /)  
+KB(:, 1,29,10) = (/ &
+ & 0.10391E+04_JPRB,0.78797E+03_JPRB,0.59612E+03_JPRB,0.87685E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 2,29,10) = (/ &
+ & 0.10393E+04_JPRB,0.78808E+03_JPRB,0.59562E+03_JPRB,0.87577E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 3,29,10) = (/ &
+ & 0.10401E+04_JPRB,0.78791E+03_JPRB,0.59476E+03_JPRB,0.87463E+03_JPRB,0.11550E+04_JPRB /)  
+KB(:, 4,29,10) = (/ &
+ & 0.10388E+04_JPRB,0.78727E+03_JPRB,0.59387E+03_JPRB,0.87332E+03_JPRB,0.11526E+04_JPRB /)  
+KB(:, 5,29,10) = (/ &
+ & 0.10383E+04_JPRB,0.78753E+03_JPRB,0.59306E+03_JPRB,0.87189E+03_JPRB,0.11504E+04_JPRB /)  
+KB(:, 1,30,10) = (/ &
+ & 0.10398E+04_JPRB,0.78748E+03_JPRB,0.59603E+03_JPRB,0.87643E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 2,30,10) = (/ &
+ & 0.10387E+04_JPRB,0.78733E+03_JPRB,0.59550E+03_JPRB,0.87550E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 3,30,10) = (/ &
+ & 0.10384E+04_JPRB,0.78700E+03_JPRB,0.59460E+03_JPRB,0.87431E+03_JPRB,0.11543E+04_JPRB /)  
+KB(:, 4,30,10) = (/ &
+ & 0.10381E+04_JPRB,0.78738E+03_JPRB,0.59372E+03_JPRB,0.87275E+03_JPRB,0.11522E+04_JPRB /)  
+KB(:, 5,30,10) = (/ &
+ & 0.10382E+04_JPRB,0.78707E+03_JPRB,0.59292E+03_JPRB,0.87137E+03_JPRB,0.11500E+04_JPRB /)  
+KB(:, 1,31,10) = (/ &
+ & 0.10388E+04_JPRB,0.78740E+03_JPRB,0.59593E+03_JPRB,0.87621E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 2,31,10) = (/ &
+ & 0.10385E+04_JPRB,0.78757E+03_JPRB,0.59522E+03_JPRB,0.87522E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 3,31,10) = (/ &
+ & 0.10386E+04_JPRB,0.78718E+03_JPRB,0.59436E+03_JPRB,0.87397E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 4,31,10) = (/ &
+ & 0.10377E+04_JPRB,0.78650E+03_JPRB,0.59350E+03_JPRB,0.87250E+03_JPRB,0.11516E+04_JPRB /)  
+KB(:, 5,31,10) = (/ &
+ & 0.10376E+04_JPRB,0.78651E+03_JPRB,0.59269E+03_JPRB,0.87108E+03_JPRB,0.11495E+04_JPRB /)  
+KB(:, 1,32,10) = (/ &
+ & 0.10383E+04_JPRB,0.78682E+03_JPRB,0.59576E+03_JPRB,0.87597E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 2,32,10) = (/ &
+ & 0.10383E+04_JPRB,0.78712E+03_JPRB,0.59500E+03_JPRB,0.87480E+03_JPRB,0.11556E+04_JPRB /)  
+KB(:, 3,32,10) = (/ &
+ & 0.10381E+04_JPRB,0.78606E+03_JPRB,0.59405E+03_JPRB,0.87362E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 4,32,10) = (/ &
+ & 0.10372E+04_JPRB,0.78628E+03_JPRB,0.59329E+03_JPRB,0.87223E+03_JPRB,0.11510E+04_JPRB /)  
+KB(:, 5,32,10) = (/ &
+ & 0.10377E+04_JPRB,0.78690E+03_JPRB,0.59245E+03_JPRB,0.87068E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 1,33,10) = (/ &
+ & 0.10380E+04_JPRB,0.78593E+03_JPRB,0.59549E+03_JPRB,0.87572E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 2,33,10) = (/ &
+ & 0.10375E+04_JPRB,0.78654E+03_JPRB,0.59477E+03_JPRB,0.87458E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 3,33,10) = (/ &
+ & 0.10374E+04_JPRB,0.78686E+03_JPRB,0.59389E+03_JPRB,0.87337E+03_JPRB,0.11527E+04_JPRB /)  
+KB(:, 4,33,10) = (/ &
+ & 0.10366E+04_JPRB,0.78593E+03_JPRB,0.59308E+03_JPRB,0.87194E+03_JPRB,0.11506E+04_JPRB /)  
+KB(:, 5,33,10) = (/ &
+ & 0.10369E+04_JPRB,0.78626E+03_JPRB,0.59219E+03_JPRB,0.87038E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 1,34,10) = (/ &
+ & 0.10373E+04_JPRB,0.78657E+03_JPRB,0.59539E+03_JPRB,0.87559E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 2,34,10) = (/ &
+ & 0.10370E+04_JPRB,0.78641E+03_JPRB,0.59464E+03_JPRB,0.87429E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 3,34,10) = (/ &
+ & 0.10370E+04_JPRB,0.78587E+03_JPRB,0.59369E+03_JPRB,0.87295E+03_JPRB,0.11522E+04_JPRB /)  
+KB(:, 4,34,10) = (/ &
+ & 0.10371E+04_JPRB,0.78562E+03_JPRB,0.59289E+03_JPRB,0.87146E+03_JPRB,0.11500E+04_JPRB /)  
+KB(:, 5,34,10) = (/ &
+ & 0.10372E+04_JPRB,0.78597E+03_JPRB,0.59202E+03_JPRB,0.86991E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,35,10) = (/ &
+ & 0.10364E+04_JPRB,0.78559E+03_JPRB,0.59529E+03_JPRB,0.87523E+03_JPRB,0.11563E+04_JPRB /)  
+KB(:, 2,35,10) = (/ &
+ & 0.10362E+04_JPRB,0.78545E+03_JPRB,0.59445E+03_JPRB,0.87400E+03_JPRB,0.11543E+04_JPRB /)  
+KB(:, 3,35,10) = (/ &
+ & 0.10372E+04_JPRB,0.78599E+03_JPRB,0.59365E+03_JPRB,0.87265E+03_JPRB,0.11519E+04_JPRB /)  
+KB(:, 4,35,10) = (/ &
+ & 0.10370E+04_JPRB,0.78527E+03_JPRB,0.59278E+03_JPRB,0.87136E+03_JPRB,0.11496E+04_JPRB /)  
+KB(:, 5,35,10) = (/ &
+ & 0.10363E+04_JPRB,0.78582E+03_JPRB,0.59179E+03_JPRB,0.86905E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 1,36,10) = (/ &
+ & 0.10368E+04_JPRB,0.78515E+03_JPRB,0.59520E+03_JPRB,0.87532E+03_JPRB,0.11563E+04_JPRB /)  
+KB(:, 2,36,10) = (/ &
+ & 0.10358E+04_JPRB,0.78589E+03_JPRB,0.59443E+03_JPRB,0.87419E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 3,36,10) = (/ &
+ & 0.10361E+04_JPRB,0.78556E+03_JPRB,0.59355E+03_JPRB,0.87273E+03_JPRB,0.11517E+04_JPRB /)  
+KB(:, 4,36,10) = (/ &
+ & 0.10361E+04_JPRB,0.78543E+03_JPRB,0.59275E+03_JPRB,0.87122E+03_JPRB,0.11497E+04_JPRB /)  
+KB(:, 5,36,10) = (/ &
+ & 0.10368E+04_JPRB,0.78570E+03_JPRB,0.59176E+03_JPRB,0.86999E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 1,37,10) = (/ &
+ & 0.10363E+04_JPRB,0.78591E+03_JPRB,0.59537E+03_JPRB,0.87546E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 2,37,10) = (/ &
+ & 0.10360E+04_JPRB,0.78548E+03_JPRB,0.59454E+03_JPRB,0.87425E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 3,37,10) = (/ &
+ & 0.10362E+04_JPRB,0.78546E+03_JPRB,0.59366E+03_JPRB,0.87291E+03_JPRB,0.11521E+04_JPRB /)  
+KB(:, 4,37,10) = (/ &
+ & 0.10364E+04_JPRB,0.78543E+03_JPRB,0.59286E+03_JPRB,0.87142E+03_JPRB,0.11500E+04_JPRB /)  
+KB(:, 5,37,10) = (/ &
+ & 0.10360E+04_JPRB,0.78560E+03_JPRB,0.59177E+03_JPRB,0.86987E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,38,10) = (/ &
+ & 0.10362E+04_JPRB,0.78542E+03_JPRB,0.59547E+03_JPRB,0.87560E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 2,38,10) = (/ &
+ & 0.10357E+04_JPRB,0.78588E+03_JPRB,0.59466E+03_JPRB,0.87433E+03_JPRB,0.11549E+04_JPRB /)  
+KB(:, 3,38,10) = (/ &
+ & 0.10370E+04_JPRB,0.78605E+03_JPRB,0.59385E+03_JPRB,0.87310E+03_JPRB,0.11524E+04_JPRB /)  
+KB(:, 4,38,10) = (/ &
+ & 0.10362E+04_JPRB,0.78574E+03_JPRB,0.59297E+03_JPRB,0.87186E+03_JPRB,0.11501E+04_JPRB /)  
+KB(:, 5,38,10) = (/ &
+ & 0.10364E+04_JPRB,0.78533E+03_JPRB,0.59199E+03_JPRB,0.87009E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,39,10) = (/ &
+ & 0.10359E+04_JPRB,0.78514E+03_JPRB,0.59557E+03_JPRB,0.87574E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 2,39,10) = (/ &
+ & 0.10371E+04_JPRB,0.78541E+03_JPRB,0.59478E+03_JPRB,0.87461E+03_JPRB,0.11552E+04_JPRB /)  
+KB(:, 3,39,10) = (/ &
+ & 0.10366E+04_JPRB,0.78569E+03_JPRB,0.59382E+03_JPRB,0.87329E+03_JPRB,0.11528E+04_JPRB /)  
+KB(:, 4,39,10) = (/ &
+ & 0.10359E+04_JPRB,0.78528E+03_JPRB,0.59308E+03_JPRB,0.87198E+03_JPRB,0.11506E+04_JPRB /)  
+KB(:, 5,39,10) = (/ &
+ & 0.10356E+04_JPRB,0.78487E+03_JPRB,0.59220E+03_JPRB,0.87042E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 1,40,10) = (/ &
+ & 0.10357E+04_JPRB,0.78518E+03_JPRB,0.59566E+03_JPRB,0.87586E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 2,40,10) = (/ &
+ & 0.10357E+04_JPRB,0.78506E+03_JPRB,0.59498E+03_JPRB,0.87480E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 3,40,10) = (/ &
+ & 0.10366E+04_JPRB,0.78504E+03_JPRB,0.59396E+03_JPRB,0.87362E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 4,40,10) = (/ &
+ & 0.10363E+04_JPRB,0.78503E+03_JPRB,0.59319E+03_JPRB,0.87212E+03_JPRB,0.11511E+04_JPRB /)  
+KB(:, 5,40,10) = (/ &
+ & 0.10363E+04_JPRB,0.78540E+03_JPRB,0.59243E+03_JPRB,0.87078E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 1,41,10) = (/ &
+ & 0.10363E+04_JPRB,0.78503E+03_JPRB,0.59590E+03_JPRB,0.87608E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 2,41,10) = (/ &
+ & 0.10356E+04_JPRB,0.78491E+03_JPRB,0.59519E+03_JPRB,0.87520E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 3,41,10) = (/ &
+ & 0.10364E+04_JPRB,0.78558E+03_JPRB,0.59433E+03_JPRB,0.87384E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 4,41,10) = (/ &
+ & 0.10357E+04_JPRB,0.78518E+03_JPRB,0.59354E+03_JPRB,0.87259E+03_JPRB,0.11516E+04_JPRB /)  
+KB(:, 5,41,10) = (/ &
+ & 0.10360E+04_JPRB,0.78526E+03_JPRB,0.59259E+03_JPRB,0.87107E+03_JPRB,0.11495E+04_JPRB /)  
+KB(:, 1,42,10) = (/ &
+ & 0.10360E+04_JPRB,0.78488E+03_JPRB,0.59605E+03_JPRB,0.87553E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 2,42,10) = (/ &
+ & 0.10363E+04_JPRB,0.78507E+03_JPRB,0.59538E+03_JPRB,0.87537E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 3,42,10) = (/ &
+ & 0.10362E+04_JPRB,0.78535E+03_JPRB,0.59456E+03_JPRB,0.87429E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 4,42,10) = (/ &
+ & 0.10361E+04_JPRB,0.78514E+03_JPRB,0.59368E+03_JPRB,0.87295E+03_JPRB,0.11522E+04_JPRB /)  
+KB(:, 5,42,10) = (/ &
+ & 0.10360E+04_JPRB,0.78523E+03_JPRB,0.59281E+03_JPRB,0.87146E+03_JPRB,0.11502E+04_JPRB /)  
+KB(:, 1,43,10) = (/ &
+ & 0.10359E+04_JPRB,0.78504E+03_JPRB,0.59624E+03_JPRB,0.87675E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 2,43,10) = (/ &
+ & 0.10355E+04_JPRB,0.78552E+03_JPRB,0.59568E+03_JPRB,0.87580E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 3,43,10) = (/ &
+ & 0.10354E+04_JPRB,0.78512E+03_JPRB,0.59483E+03_JPRB,0.87469E+03_JPRB,0.11553E+04_JPRB /)  
+KB(:, 4,43,10) = (/ &
+ & 0.10354E+04_JPRB,0.78569E+03_JPRB,0.59395E+03_JPRB,0.87316E+03_JPRB,0.11531E+04_JPRB /)  
+KB(:, 5,43,10) = (/ &
+ & 0.10359E+04_JPRB,0.78598E+03_JPRB,0.59313E+03_JPRB,0.87186E+03_JPRB,0.11507E+04_JPRB /)  
+KB(:, 1,44,10) = (/ &
+ & 0.10359E+04_JPRB,0.78521E+03_JPRB,0.59645E+03_JPRB,0.87700E+03_JPRB,0.11590E+04_JPRB /)  
+KB(:, 2,44,10) = (/ &
+ & 0.10361E+04_JPRB,0.78510E+03_JPRB,0.59583E+03_JPRB,0.87611E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 3,44,10) = (/ &
+ & 0.10368E+04_JPRB,0.78519E+03_JPRB,0.59511E+03_JPRB,0.87509E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 4,44,10) = (/ &
+ & 0.10360E+04_JPRB,0.78508E+03_JPRB,0.59424E+03_JPRB,0.87372E+03_JPRB,0.11538E+04_JPRB /)  
+KB(:, 5,44,10) = (/ &
+ & 0.10356E+04_JPRB,0.78537E+03_JPRB,0.59339E+03_JPRB,0.87213E+03_JPRB,0.11514E+04_JPRB /)  
+KB(:, 1,45,10) = (/ &
+ & 0.10357E+04_JPRB,0.78557E+03_JPRB,0.59666E+03_JPRB,0.87715E+03_JPRB,0.11597E+04_JPRB /)  
+KB(:, 2,45,10) = (/ &
+ & 0.10356E+04_JPRB,0.78527E+03_JPRB,0.59604E+03_JPRB,0.87639E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 3,45,10) = (/ &
+ & 0.10360E+04_JPRB,0.78546E+03_JPRB,0.59537E+03_JPRB,0.87547E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 4,45,10) = (/ &
+ & 0.10361E+04_JPRB,0.78506E+03_JPRB,0.59454E+03_JPRB,0.87427E+03_JPRB,0.11544E+04_JPRB /)  
+KB(:, 5,45,10) = (/ &
+ & 0.10353E+04_JPRB,0.78535E+03_JPRB,0.59366E+03_JPRB,0.87293E+03_JPRB,0.11520E+04_JPRB /)  
+KB(:, 1,46,10) = (/ &
+ & 0.10358E+04_JPRB,0.78506E+03_JPRB,0.59691E+03_JPRB,0.87749E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 2,46,10) = (/ &
+ & 0.10353E+04_JPRB,0.78486E+03_JPRB,0.59626E+03_JPRB,0.87678E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 3,46,10) = (/ &
+ & 0.10353E+04_JPRB,0.78495E+03_JPRB,0.59563E+03_JPRB,0.87572E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 4,46,10) = (/ &
+ & 0.10363E+04_JPRB,0.78534E+03_JPRB,0.59478E+03_JPRB,0.87473E+03_JPRB,0.11554E+04_JPRB /)  
+KB(:, 5,46,10) = (/ &
+ & 0.10355E+04_JPRB,0.78455E+03_JPRB,0.59398E+03_JPRB,0.87342E+03_JPRB,0.11530E+04_JPRB /)  
+KB(:, 1,47,10) = (/ &
+ & 0.10357E+04_JPRB,0.78544E+03_JPRB,0.59719E+03_JPRB,0.87795E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 2,47,10) = (/ &
+ & 0.10355E+04_JPRB,0.78533E+03_JPRB,0.59651E+03_JPRB,0.87696E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 3,47,10) = (/ &
+ & 0.10358E+04_JPRB,0.78543E+03_JPRB,0.59590E+03_JPRB,0.87576E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 4,47,10) = (/ &
+ & 0.10351E+04_JPRB,0.78562E+03_JPRB,0.59519E+03_JPRB,0.87521E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 5,47,10) = (/ &
+ & 0.10359E+04_JPRB,0.78571E+03_JPRB,0.59433E+03_JPRB,0.87385E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 1,48,10) = (/ &
+ & 0.10363E+04_JPRB,0.78513E+03_JPRB,0.59744E+03_JPRB,0.87846E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 2,48,10) = (/ &
+ & 0.10360E+04_JPRB,0.78532E+03_JPRB,0.59677E+03_JPRB,0.87730E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 3,48,10) = (/ &
+ & 0.10365E+04_JPRB,0.78483E+03_JPRB,0.59614E+03_JPRB,0.87707E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 4,48,10) = (/ &
+ & 0.10355E+04_JPRB,0.78521E+03_JPRB,0.59549E+03_JPRB,0.87564E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 5,48,10) = (/ &
+ & 0.10355E+04_JPRB,0.78531E+03_JPRB,0.59469E+03_JPRB,0.87448E+03_JPRB,0.11550E+04_JPRB /)  
+KB(:, 1,49,10) = (/ &
+ & 0.10351E+04_JPRB,0.78492E+03_JPRB,0.59768E+03_JPRB,0.87902E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 2,49,10) = (/ &
+ & 0.10355E+04_JPRB,0.78541E+03_JPRB,0.59705E+03_JPRB,0.87772E+03_JPRB,0.11606E+04_JPRB /)  
+KB(:, 3,49,10) = (/ &
+ & 0.10352E+04_JPRB,0.78472E+03_JPRB,0.59639E+03_JPRB,0.87682E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 4,49,10) = (/ &
+ & 0.10356E+04_JPRB,0.78511E+03_JPRB,0.59577E+03_JPRB,0.87591E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 5,49,10) = (/ &
+ & 0.10352E+04_JPRB,0.78501E+03_JPRB,0.59510E+03_JPRB,0.87498E+03_JPRB,0.11558E+04_JPRB /)  
+KB(:, 1,50,10) = (/ &
+ & 0.10361E+04_JPRB,0.78540E+03_JPRB,0.59770E+03_JPRB,0.87956E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 2,50,10) = (/ &
+ & 0.10357E+04_JPRB,0.78530E+03_JPRB,0.59731E+03_JPRB,0.87817E+03_JPRB,0.11612E+04_JPRB /)  
+KB(:, 3,50,10) = (/ &
+ & 0.10365E+04_JPRB,0.78510E+03_JPRB,0.59662E+03_JPRB,0.87710E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 4,50,10) = (/ &
+ & 0.10365E+04_JPRB,0.78510E+03_JPRB,0.59601E+03_JPRB,0.87645E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 5,50,10) = (/ &
+ & 0.10352E+04_JPRB,0.78588E+03_JPRB,0.59525E+03_JPRB,0.87541E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 1,51,10) = (/ &
+ & 0.10356E+04_JPRB,0.78490E+03_JPRB,0.59781E+03_JPRB,0.88010E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 2,51,10) = (/ &
+ & 0.10356E+04_JPRB,0.78539E+03_JPRB,0.59751E+03_JPRB,0.87866E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 3,51,10) = (/ &
+ & 0.10359E+04_JPRB,0.78461E+03_JPRB,0.59687E+03_JPRB,0.87744E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 4,51,10) = (/ &
+ & 0.10352E+04_JPRB,0.78519E+03_JPRB,0.59623E+03_JPRB,0.87674E+03_JPRB,0.11583E+04_JPRB /)  
+KB(:, 5,51,10) = (/ &
+ & 0.10356E+04_JPRB,0.78470E+03_JPRB,0.59552E+03_JPRB,0.87578E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 1,52,10) = (/ &
+ & 0.10352E+04_JPRB,0.78509E+03_JPRB,0.59800E+03_JPRB,0.88094E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 2,52,10) = (/ &
+ & 0.10355E+04_JPRB,0.78528E+03_JPRB,0.59763E+03_JPRB,0.87918E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 3,52,10) = (/ &
+ & 0.10361E+04_JPRB,0.78479E+03_JPRB,0.59712E+03_JPRB,0.87762E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 4,52,10) = (/ &
+ & 0.10358E+04_JPRB,0.78528E+03_JPRB,0.59645E+03_JPRB,0.87678E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 5,52,10) = (/ &
+ & 0.10355E+04_JPRB,0.78528E+03_JPRB,0.59584E+03_JPRB,0.87612E+03_JPRB,0.11573E+04_JPRB /)  
+KB(:, 1,53,10) = (/ &
+ & 0.10357E+04_JPRB,0.78528E+03_JPRB,0.59832E+03_JPRB,0.88148E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 2,53,10) = (/ &
+ & 0.10357E+04_JPRB,0.78596E+03_JPRB,0.59772E+03_JPRB,0.87969E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 3,53,10) = (/ &
+ & 0.10361E+04_JPRB,0.78547E+03_JPRB,0.59737E+03_JPRB,0.87830E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 4,53,10) = (/ &
+ & 0.10362E+04_JPRB,0.78537E+03_JPRB,0.59668E+03_JPRB,0.87707E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 5,53,10) = (/ &
+ & 0.10356E+04_JPRB,0.78498E+03_JPRB,0.59606E+03_JPRB,0.87642E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 1,54,10) = (/ &
+ & 0.10351E+04_JPRB,0.78567E+03_JPRB,0.59851E+03_JPRB,0.88199E+03_JPRB,0.11656E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART28',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,54,10) = (/ &
+ & 0.10366E+04_JPRB,0.78518E+03_JPRB,0.59776E+03_JPRB,0.88021E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 3,54,10) = (/ &
+ & 0.10364E+04_JPRB,0.78478E+03_JPRB,0.59753E+03_JPRB,0.87875E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 4,54,10) = (/ &
+ & 0.10356E+04_JPRB,0.78498E+03_JPRB,0.59692E+03_JPRB,0.87751E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 5,54,10) = (/ &
+ & 0.10362E+04_JPRB,0.78527E+03_JPRB,0.59627E+03_JPRB,0.87657E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 1,55,10) = (/ &
+ & 0.10355E+04_JPRB,0.78488E+03_JPRB,0.59876E+03_JPRB,0.88250E+03_JPRB,0.11663E+04_JPRB /)  
+KB(:, 2,55,10) = (/ &
+ & 0.10362E+04_JPRB,0.78527E+03_JPRB,0.59801E+03_JPRB,0.88087E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 3,55,10) = (/ &
+ & 0.10356E+04_JPRB,0.78507E+03_JPRB,0.59764E+03_JPRB,0.87920E+03_JPRB,0.11628E+04_JPRB /)  
+KB(:, 4,55,10) = (/ &
+ & 0.10353E+04_JPRB,0.78488E+03_JPRB,0.59714E+03_JPRB,0.87787E+03_JPRB,0.11606E+04_JPRB /)  
+KB(:, 5,55,10) = (/ &
+ & 0.10356E+04_JPRB,0.78488E+03_JPRB,0.59639E+03_JPRB,0.87691E+03_JPRB,0.11585E+04_JPRB /)  
+KB(:, 1,56,10) = (/ &
+ & 0.10353E+04_JPRB,0.78537E+03_JPRB,0.59904E+03_JPRB,0.88318E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 2,56,10) = (/ &
+ & 0.10354E+04_JPRB,0.78497E+03_JPRB,0.59830E+03_JPRB,0.88144E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 3,56,10) = (/ &
+ & 0.10361E+04_JPRB,0.78536E+03_JPRB,0.59771E+03_JPRB,0.87966E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 4,56,10) = (/ &
+ & 0.10357E+04_JPRB,0.78497E+03_JPRB,0.59736E+03_JPRB,0.87826E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 5,56,10) = (/ &
+ & 0.10353E+04_JPRB,0.78478E+03_JPRB,0.59667E+03_JPRB,0.87705E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 1,57,10) = (/ &
+ & 0.10358E+04_JPRB,0.78458E+03_JPRB,0.59927E+03_JPRB,0.88350E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 2,57,10) = (/ &
+ & 0.10352E+04_JPRB,0.78536E+03_JPRB,0.59840E+03_JPRB,0.88193E+03_JPRB,0.11656E+04_JPRB /)  
+KB(:, 3,57,10) = (/ &
+ & 0.10352E+04_JPRB,0.78526E+03_JPRB,0.59782E+03_JPRB,0.88003E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 4,57,10) = (/ &
+ & 0.10358E+04_JPRB,0.78497E+03_JPRB,0.59751E+03_JPRB,0.87869E+03_JPRB,0.11622E+04_JPRB /)  
+KB(:, 5,57,10) = (/ &
+ & 0.10360E+04_JPRB,0.78497E+03_JPRB,0.59689E+03_JPRB,0.87746E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 1,58,10) = (/ &
+ & 0.10358E+04_JPRB,0.78468E+03_JPRB,0.59969E+03_JPRB,0.88402E+03_JPRB,0.11685E+04_JPRB /)  
+KB(:, 2,58,10) = (/ &
+ & 0.10357E+04_JPRB,0.78458E+03_JPRB,0.59873E+03_JPRB,0.88241E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 3,58,10) = (/ &
+ & 0.10358E+04_JPRB,0.78526E+03_JPRB,0.59797E+03_JPRB,0.88085E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 4,58,10) = (/ &
+ & 0.10356E+04_JPRB,0.78487E+03_JPRB,0.59762E+03_JPRB,0.87912E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 5,58,10) = (/ &
+ & 0.10357E+04_JPRB,0.78565E+03_JPRB,0.59710E+03_JPRB,0.87769E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 1,59,10) = (/ &
+ & 0.10360E+04_JPRB,0.78507E+03_JPRB,0.59979E+03_JPRB,0.88416E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 2,59,10) = (/ &
+ & 0.10357E+04_JPRB,0.78477E+03_JPRB,0.59879E+03_JPRB,0.88260E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 3,59,10) = (/ &
+ & 0.10350E+04_JPRB,0.78526E+03_JPRB,0.59804E+03_JPRB,0.88100E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 4,59,10) = (/ &
+ & 0.10357E+04_JPRB,0.78467E+03_JPRB,0.59773E+03_JPRB,0.87930E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 5,59,10) = (/ &
+ & 0.10358E+04_JPRB,0.78457E+03_JPRB,0.59718E+03_JPRB,0.87783E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 1,13,11) = (/ &
+ & 0.11563E+04_JPRB,0.87491E+03_JPRB,0.60253E+03_JPRB,0.88362E+03_JPRB,0.11664E+04_JPRB /)  
+KB(:, 2,13,11) = (/ &
+ & 0.11454E+04_JPRB,0.86861E+03_JPRB,0.60211E+03_JPRB,0.88300E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 3,13,11) = (/ &
+ & 0.11392E+04_JPRB,0.86181E+03_JPRB,0.60140E+03_JPRB,0.88181E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 4,13,11) = (/ &
+ & 0.11315E+04_JPRB,0.85680E+03_JPRB,0.60042E+03_JPRB,0.88057E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 5,13,11) = (/ &
+ & 0.11273E+04_JPRB,0.85330E+03_JPRB,0.59929E+03_JPRB,0.87908E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 1,14,11) = (/ &
+ & 0.11333E+04_JPRB,0.85776E+03_JPRB,0.60215E+03_JPRB,0.88338E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 2,14,11) = (/ &
+ & 0.11256E+04_JPRB,0.85211E+03_JPRB,0.60176E+03_JPRB,0.88258E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 3,14,11) = (/ &
+ & 0.11185E+04_JPRB,0.84809E+03_JPRB,0.60101E+03_JPRB,0.88154E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 4,14,11) = (/ &
+ & 0.11137E+04_JPRB,0.84328E+03_JPRB,0.59992E+03_JPRB,0.87989E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 5,14,11) = (/ &
+ & 0.11092E+04_JPRB,0.83997E+03_JPRB,0.59898E+03_JPRB,0.87879E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 1,15,11) = (/ &
+ & 0.11149E+04_JPRB,0.84435E+03_JPRB,0.60192E+03_JPRB,0.88317E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 2,15,11) = (/ &
+ & 0.11071E+04_JPRB,0.83899E+03_JPRB,0.60145E+03_JPRB,0.88233E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 3,15,11) = (/ &
+ & 0.11058E+04_JPRB,0.83612E+03_JPRB,0.60066E+03_JPRB,0.88128E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 4,15,11) = (/ &
+ & 0.10996E+04_JPRB,0.83410E+03_JPRB,0.59965E+03_JPRB,0.88002E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 5,15,11) = (/ &
+ & 0.10957E+04_JPRB,0.83022E+03_JPRB,0.59863E+03_JPRB,0.87850E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 1,16,11) = (/ &
+ & 0.10993E+04_JPRB,0.83361E+03_JPRB,0.60157E+03_JPRB,0.88298E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,16,11) = (/ &
+ & 0.10933E+04_JPRB,0.82961E+03_JPRB,0.60127E+03_JPRB,0.88210E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 3,16,11) = (/ &
+ & 0.10924E+04_JPRB,0.82745E+03_JPRB,0.60035E+03_JPRB,0.88104E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,16,11) = (/ &
+ & 0.10885E+04_JPRB,0.82319E+03_JPRB,0.59934E+03_JPRB,0.87977E+03_JPRB,0.11597E+04_JPRB /)  
+KB(:, 5,16,11) = (/ &
+ & 0.10838E+04_JPRB,0.82062E+03_JPRB,0.59823E+03_JPRB,0.87823E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 1,17,11) = (/ &
+ & 0.10881E+04_JPRB,0.82385E+03_JPRB,0.60135E+03_JPRB,0.88282E+03_JPRB,0.11656E+04_JPRB /)  
+KB(:, 2,17,11) = (/ &
+ & 0.10840E+04_JPRB,0.82201E+03_JPRB,0.60094E+03_JPRB,0.88190E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 3,17,11) = (/ &
+ & 0.10809E+04_JPRB,0.81908E+03_JPRB,0.60007E+03_JPRB,0.88083E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 4,17,11) = (/ &
+ & 0.10772E+04_JPRB,0.81792E+03_JPRB,0.59907E+03_JPRB,0.87953E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 5,17,11) = (/ &
+ & 0.10760E+04_JPRB,0.81580E+03_JPRB,0.59806E+03_JPRB,0.87798E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 1,18,11) = (/ &
+ & 0.10780E+04_JPRB,0.81679E+03_JPRB,0.60116E+03_JPRB,0.88267E+03_JPRB,0.11653E+04_JPRB /)  
+KB(:, 2,18,11) = (/ &
+ & 0.10749E+04_JPRB,0.81512E+03_JPRB,0.60072E+03_JPRB,0.88171E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 3,18,11) = (/ &
+ & 0.10728E+04_JPRB,0.81180E+03_JPRB,0.59983E+03_JPRB,0.88050E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 4,18,11) = (/ &
+ & 0.10707E+04_JPRB,0.81081E+03_JPRB,0.59883E+03_JPRB,0.87944E+03_JPRB,0.11593E+04_JPRB /)  
+KB(:, 5,18,11) = (/ &
+ & 0.10678E+04_JPRB,0.80905E+03_JPRB,0.59782E+03_JPRB,0.87775E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 1,19,11) = (/ &
+ & 0.10696E+04_JPRB,0.81122E+03_JPRB,0.60101E+03_JPRB,0.88252E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 2,19,11) = (/ &
+ & 0.10692E+04_JPRB,0.80792E+03_JPRB,0.60053E+03_JPRB,0.88155E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,19,11) = (/ &
+ & 0.10653E+04_JPRB,0.80791E+03_JPRB,0.59962E+03_JPRB,0.88058E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 4,19,11) = (/ &
+ & 0.10635E+04_JPRB,0.80651E+03_JPRB,0.59853E+03_JPRB,0.87910E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 5,19,11) = (/ &
+ & 0.10626E+04_JPRB,0.80552E+03_JPRB,0.59761E+03_JPRB,0.87753E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 1,20,11) = (/ &
+ & 0.10638E+04_JPRB,0.80613E+03_JPRB,0.60096E+03_JPRB,0.88236E+03_JPRB,0.11646E+04_JPRB /)  
+KB(:, 2,20,11) = (/ &
+ & 0.10623E+04_JPRB,0.80416E+03_JPRB,0.60035E+03_JPRB,0.88137E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,20,11) = (/ &
+ & 0.10590E+04_JPRB,0.80264E+03_JPRB,0.59950E+03_JPRB,0.88013E+03_JPRB,0.11607E+04_JPRB /)  
+KB(:, 4,20,11) = (/ &
+ & 0.10603E+04_JPRB,0.80308E+03_JPRB,0.59841E+03_JPRB,0.87915E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 5,20,11) = (/ &
+ & 0.10573E+04_JPRB,0.80101E+03_JPRB,0.59740E+03_JPRB,0.87729E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 1,21,11) = (/ &
+ & 0.10580E+04_JPRB,0.80255E+03_JPRB,0.60075E+03_JPRB,0.88233E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 2,21,11) = (/ &
+ & 0.10580E+04_JPRB,0.80172E+03_JPRB,0.60017E+03_JPRB,0.88121E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 3,21,11) = (/ &
+ & 0.10551E+04_JPRB,0.80129E+03_JPRB,0.59922E+03_JPRB,0.87954E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 4,21,11) = (/ &
+ & 0.10544E+04_JPRB,0.79894E+03_JPRB,0.59822E+03_JPRB,0.87866E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 5,21,11) = (/ &
+ & 0.10531E+04_JPRB,0.79850E+03_JPRB,0.59721E+03_JPRB,0.87693E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 1,22,11) = (/ &
+ & 0.10535E+04_JPRB,0.79809E+03_JPRB,0.60064E+03_JPRB,0.88198E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 2,22,11) = (/ &
+ & 0.10534E+04_JPRB,0.79679E+03_JPRB,0.59986E+03_JPRB,0.88098E+03_JPRB,0.11619E+04_JPRB /)  
+KB(:, 3,22,11) = (/ &
+ & 0.10517E+04_JPRB,0.79764E+03_JPRB,0.59897E+03_JPRB,0.87993E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 4,22,11) = (/ &
+ & 0.10510E+04_JPRB,0.79739E+03_JPRB,0.59797E+03_JPRB,0.87835E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 5,22,11) = (/ &
+ & 0.10492E+04_JPRB,0.79579E+03_JPRB,0.59697E+03_JPRB,0.87672E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 1,23,11) = (/ &
+ & 0.10516E+04_JPRB,0.79606E+03_JPRB,0.60095E+03_JPRB,0.88176E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 2,23,11) = (/ &
+ & 0.10497E+04_JPRB,0.79542E+03_JPRB,0.59972E+03_JPRB,0.88074E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 3,23,11) = (/ &
+ & 0.10482E+04_JPRB,0.79453E+03_JPRB,0.59873E+03_JPRB,0.87952E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 4,23,11) = (/ &
+ & 0.10486E+04_JPRB,0.79431E+03_JPRB,0.59782E+03_JPRB,0.87802E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 5,23,11) = (/ &
+ & 0.10473E+04_JPRB,0.79522E+03_JPRB,0.59672E+03_JPRB,0.87637E+03_JPRB,0.11562E+04_JPRB /)  
+KB(:, 1,24,11) = (/ &
+ & 0.10467E+04_JPRB,0.79476E+03_JPRB,0.60034E+03_JPRB,0.88154E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 2,24,11) = (/ &
+ & 0.10461E+04_JPRB,0.79357E+03_JPRB,0.59948E+03_JPRB,0.88049E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 3,24,11) = (/ &
+ & 0.10460E+04_JPRB,0.79280E+03_JPRB,0.59849E+03_JPRB,0.87921E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 4,24,11) = (/ &
+ & 0.10457E+04_JPRB,0.79222E+03_JPRB,0.59749E+03_JPRB,0.87768E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 5,24,11) = (/ &
+ & 0.10450E+04_JPRB,0.79193E+03_JPRB,0.59639E+03_JPRB,0.87600E+03_JPRB,0.11558E+04_JPRB /)  
+KB(:, 1,25,11) = (/ &
+ & 0.10463E+04_JPRB,0.79209E+03_JPRB,0.60015E+03_JPRB,0.88131E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 2,25,11) = (/ &
+ & 0.10455E+04_JPRB,0.79185E+03_JPRB,0.59924E+03_JPRB,0.87983E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 3,25,11) = (/ &
+ & 0.10450E+04_JPRB,0.79214E+03_JPRB,0.59824E+03_JPRB,0.87889E+03_JPRB,0.11590E+04_JPRB /)  
+KB(:, 4,25,11) = (/ &
+ & 0.10445E+04_JPRB,0.79118E+03_JPRB,0.59725E+03_JPRB,0.87732E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 5,25,11) = (/ &
+ & 0.10428E+04_JPRB,0.79168E+03_JPRB,0.59624E+03_JPRB,0.87561E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 1,26,11) = (/ &
+ & 0.10437E+04_JPRB,0.79093E+03_JPRB,0.59993E+03_JPRB,0.88106E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 2,26,11) = (/ &
+ & 0.10430E+04_JPRB,0.79091E+03_JPRB,0.59898E+03_JPRB,0.87993E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 3,26,11) = (/ &
+ & 0.10430E+04_JPRB,0.79069E+03_JPRB,0.59808E+03_JPRB,0.87852E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 4,26,11) = (/ &
+ & 0.10425E+04_JPRB,0.79087E+03_JPRB,0.59699E+03_JPRB,0.87692E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 5,26,11) = (/ &
+ & 0.10414E+04_JPRB,0.78954E+03_JPRB,0.59598E+03_JPRB,0.87517E+03_JPRB,0.11547E+04_JPRB /)  
+KB(:, 1,27,11) = (/ &
+ & 0.10423E+04_JPRB,0.79028E+03_JPRB,0.59970E+03_JPRB,0.88080E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 2,27,11) = (/ &
+ & 0.10415E+04_JPRB,0.78939E+03_JPRB,0.59872E+03_JPRB,0.87961E+03_JPRB,0.11600E+04_JPRB /)  
+KB(:, 3,27,11) = (/ &
+ & 0.10419E+04_JPRB,0.78972E+03_JPRB,0.59773E+03_JPRB,0.87814E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 4,27,11) = (/ &
+ & 0.10405E+04_JPRB,0.78901E+03_JPRB,0.59673E+03_JPRB,0.87651E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 5,27,11) = (/ &
+ & 0.10410E+04_JPRB,0.78880E+03_JPRB,0.59572E+03_JPRB,0.87471E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 1,28,11) = (/ &
+ & 0.10411E+04_JPRB,0.78831E+03_JPRB,0.59945E+03_JPRB,0.88052E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 2,28,11) = (/ &
+ & 0.10402E+04_JPRB,0.78866E+03_JPRB,0.59846E+03_JPRB,0.87954E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 3,28,11) = (/ &
+ & 0.10401E+04_JPRB,0.78798E+03_JPRB,0.59747E+03_JPRB,0.87776E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 4,28,11) = (/ &
+ & 0.10407E+04_JPRB,0.78779E+03_JPRB,0.59647E+03_JPRB,0.87596E+03_JPRB,0.11560E+04_JPRB /)  
+KB(:, 5,28,11) = (/ &
+ & 0.10407E+04_JPRB,0.78751E+03_JPRB,0.59548E+03_JPRB,0.87425E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 1,29,11) = (/ &
+ & 0.10408E+04_JPRB,0.78876E+03_JPRB,0.59920E+03_JPRB,0.87983E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 2,29,11) = (/ &
+ & 0.10408E+04_JPRB,0.78834E+03_JPRB,0.59820E+03_JPRB,0.87891E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 3,29,11) = (/ &
+ & 0.10387E+04_JPRB,0.78864E+03_JPRB,0.59721E+03_JPRB,0.87735E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 4,29,11) = (/ &
+ & 0.10384E+04_JPRB,0.78778E+03_JPRB,0.59621E+03_JPRB,0.87578E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 5,29,11) = (/ &
+ & 0.10412E+04_JPRB,0.78824E+03_JPRB,0.59524E+03_JPRB,0.87368E+03_JPRB,0.11538E+04_JPRB /)  
+KB(:, 1,30,11) = (/ &
+ & 0.10383E+04_JPRB,0.78758E+03_JPRB,0.59894E+03_JPRB,0.87992E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 2,30,11) = (/ &
+ & 0.10390E+04_JPRB,0.78755E+03_JPRB,0.59785E+03_JPRB,0.87840E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 3,30,11) = (/ &
+ & 0.10391E+04_JPRB,0.78813E+03_JPRB,0.59695E+03_JPRB,0.87693E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 4,30,11) = (/ &
+ & 0.10384E+04_JPRB,0.78683E+03_JPRB,0.59594E+03_JPRB,0.87519E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 5,30,11) = (/ &
+ & 0.10388E+04_JPRB,0.78660E+03_JPRB,0.59501E+03_JPRB,0.87341E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 1,31,11) = (/ &
+ & 0.10376E+04_JPRB,0.78640E+03_JPRB,0.59867E+03_JPRB,0.87959E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 2,31,11) = (/ &
+ & 0.10381E+04_JPRB,0.78687E+03_JPRB,0.59768E+03_JPRB,0.87813E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 3,31,11) = (/ &
+ & 0.10369E+04_JPRB,0.78736E+03_JPRB,0.59668E+03_JPRB,0.87650E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 4,31,11) = (/ &
+ & 0.10380E+04_JPRB,0.78738E+03_JPRB,0.59577E+03_JPRB,0.87483E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 5,31,11) = (/ &
+ & 0.10391E+04_JPRB,0.78671E+03_JPRB,0.59479E+03_JPRB,0.87299E+03_JPRB,0.11532E+04_JPRB /)  
+KB(:, 1,32,11) = (/ &
+ & 0.10371E+04_JPRB,0.78531E+03_JPRB,0.59840E+03_JPRB,0.87936E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 2,32,11) = (/ &
+ & 0.10383E+04_JPRB,0.78734E+03_JPRB,0.59742E+03_JPRB,0.87771E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 3,32,11) = (/ &
+ & 0.10363E+04_JPRB,0.78691E+03_JPRB,0.59641E+03_JPRB,0.87605E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 4,32,11) = (/ &
+ & 0.10373E+04_JPRB,0.78648E+03_JPRB,0.59543E+03_JPRB,0.87420E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 5,32,11) = (/ &
+ & 0.10376E+04_JPRB,0.78617E+03_JPRB,0.59455E+03_JPRB,0.87256E+03_JPRB,0.11529E+04_JPRB /)  
+KB(:, 1,33,11) = (/ &
+ & 0.10366E+04_JPRB,0.78725E+03_JPRB,0.59814E+03_JPRB,0.87885E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 2,33,11) = (/ &
+ & 0.10366E+04_JPRB,0.78694E+03_JPRB,0.59715E+03_JPRB,0.87729E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 3,33,11) = (/ &
+ & 0.10365E+04_JPRB,0.78534E+03_JPRB,0.59614E+03_JPRB,0.87545E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 4,33,11) = (/ &
+ & 0.10377E+04_JPRB,0.78705E+03_JPRB,0.59518E+03_JPRB,0.87362E+03_JPRB,0.11536E+04_JPRB /)  
+KB(:, 5,33,11) = (/ &
+ & 0.10381E+04_JPRB,0.78546E+03_JPRB,0.59428E+03_JPRB,0.87201E+03_JPRB,0.11526E+04_JPRB /)  
+KB(:, 1,34,11) = (/ &
+ & 0.10370E+04_JPRB,0.78547E+03_JPRB,0.59791E+03_JPRB,0.87837E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 2,34,11) = (/ &
+ & 0.10369E+04_JPRB,0.78635E+03_JPRB,0.59683E+03_JPRB,0.87691E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 3,34,11) = (/ &
+ & 0.10373E+04_JPRB,0.78607E+03_JPRB,0.59591E+03_JPRB,0.87516E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 4,34,11) = (/ &
+ & 0.10371E+04_JPRB,0.78696E+03_JPRB,0.59498E+03_JPRB,0.87338E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 5,34,11) = (/ &
+ & 0.10366E+04_JPRB,0.78538E+03_JPRB,0.59374E+03_JPRB,0.87179E+03_JPRB,0.11524E+04_JPRB /)  
+KB(:, 1,35,11) = (/ &
+ & 0.10371E+04_JPRB,0.78681E+03_JPRB,0.59778E+03_JPRB,0.87830E+03_JPRB,0.11583E+04_JPRB /)  
+KB(:, 2,35,11) = (/ &
+ & 0.10367E+04_JPRB,0.78665E+03_JPRB,0.59678E+03_JPRB,0.87669E+03_JPRB,0.11566E+04_JPRB /)  
+KB(:, 3,35,11) = (/ &
+ & 0.10363E+04_JPRB,0.78613E+03_JPRB,0.59569E+03_JPRB,0.87491E+03_JPRB,0.11549E+04_JPRB /)  
+KB(:, 4,35,11) = (/ &
+ & 0.10364E+04_JPRB,0.78668E+03_JPRB,0.59487E+03_JPRB,0.87304E+03_JPRB,0.11533E+04_JPRB /)  
+KB(:, 5,35,11) = (/ &
+ & 0.10370E+04_JPRB,0.78641E+03_JPRB,0.59363E+03_JPRB,0.87159E+03_JPRB,0.11523E+04_JPRB /)  
+KB(:, 1,36,11) = (/ &
+ & 0.10366E+04_JPRB,0.78595E+03_JPRB,0.59775E+03_JPRB,0.87827E+03_JPRB,0.11583E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART29',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,36,11) = (/ &
+ & 0.10367E+04_JPRB,0.78568E+03_JPRB,0.59676E+03_JPRB,0.87652E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 3,36,11) = (/ &
+ & 0.10363E+04_JPRB,0.78600E+03_JPRB,0.59575E+03_JPRB,0.87487E+03_JPRB,0.11548E+04_JPRB /)  
+KB(:, 4,36,11) = (/ &
+ & 0.10370E+04_JPRB,0.78596E+03_JPRB,0.59503E+03_JPRB,0.87314E+03_JPRB,0.11533E+04_JPRB /)  
+KB(:, 5,36,11) = (/ &
+ & 0.10356E+04_JPRB,0.78546E+03_JPRB,0.59359E+03_JPRB,0.87116E+03_JPRB,0.11523E+04_JPRB /)  
+KB(:, 1,37,11) = (/ &
+ & 0.10367E+04_JPRB,0.78524E+03_JPRB,0.59788E+03_JPRB,0.87847E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 2,37,11) = (/ &
+ & 0.10373E+04_JPRB,0.78580E+03_JPRB,0.59689E+03_JPRB,0.87687E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 3,37,11) = (/ &
+ & 0.10369E+04_JPRB,0.78554E+03_JPRB,0.59588E+03_JPRB,0.87512E+03_JPRB,0.11550E+04_JPRB /)  
+KB(:, 4,37,11) = (/ &
+ & 0.10372E+04_JPRB,0.78551E+03_JPRB,0.59495E+03_JPRB,0.87335E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 5,37,11) = (/ &
+ & 0.10364E+04_JPRB,0.78631E+03_JPRB,0.59378E+03_JPRB,0.87175E+03_JPRB,0.11524E+04_JPRB /)  
+KB(:, 1,38,11) = (/ &
+ & 0.10372E+04_JPRB,0.78574E+03_JPRB,0.59801E+03_JPRB,0.87867E+03_JPRB,0.11588E+04_JPRB /)  
+KB(:, 2,38,11) = (/ &
+ & 0.10364E+04_JPRB,0.78476E+03_JPRB,0.59702E+03_JPRB,0.87710E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 3,38,11) = (/ &
+ & 0.10351E+04_JPRB,0.78521E+03_JPRB,0.59593E+03_JPRB,0.87537E+03_JPRB,0.11553E+04_JPRB /)  
+KB(:, 4,38,11) = (/ &
+ & 0.10362E+04_JPRB,0.78507E+03_JPRB,0.59507E+03_JPRB,0.87344E+03_JPRB,0.11536E+04_JPRB /)  
+KB(:, 5,38,11) = (/ &
+ & 0.10371E+04_JPRB,0.78635E+03_JPRB,0.59400E+03_JPRB,0.87197E+03_JPRB,0.11525E+04_JPRB /)  
+KB(:, 1,39,11) = (/ &
+ & 0.10359E+04_JPRB,0.78601E+03_JPRB,0.59815E+03_JPRB,0.87888E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 2,39,11) = (/ &
+ & 0.10375E+04_JPRB,0.78669E+03_JPRB,0.59716E+03_JPRB,0.87732E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 3,39,11) = (/ &
+ & 0.10350E+04_JPRB,0.78597E+03_JPRB,0.59615E+03_JPRB,0.87562E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 4,39,11) = (/ &
+ & 0.10366E+04_JPRB,0.78524E+03_JPRB,0.59519E+03_JPRB,0.87365E+03_JPRB,0.11538E+04_JPRB /)  
+KB(:, 5,39,11) = (/ &
+ & 0.10373E+04_JPRB,0.78605E+03_JPRB,0.59422E+03_JPRB,0.87205E+03_JPRB,0.11526E+04_JPRB /)  
+KB(:, 1,40,11) = (/ &
+ & 0.10361E+04_JPRB,0.78559E+03_JPRB,0.59838E+03_JPRB,0.87949E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 2,40,11) = (/ &
+ & 0.10364E+04_JPRB,0.78533E+03_JPRB,0.59740E+03_JPRB,0.87771E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 3,40,11) = (/ &
+ & 0.10357E+04_JPRB,0.78567E+03_JPRB,0.59640E+03_JPRB,0.87605E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 4,40,11) = (/ &
+ & 0.10354E+04_JPRB,0.78518E+03_JPRB,0.59541E+03_JPRB,0.87434E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 5,40,11) = (/ &
+ & 0.10361E+04_JPRB,0.78553E+03_JPRB,0.59453E+03_JPRB,0.87244E+03_JPRB,0.11529E+04_JPRB /)  
+KB(:, 1,41,11) = (/ &
+ & 0.10352E+04_JPRB,0.78554E+03_JPRB,0.59863E+03_JPRB,0.87958E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 2,41,11) = (/ &
+ & 0.10361E+04_JPRB,0.78611E+03_JPRB,0.59765E+03_JPRB,0.87811E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 3,41,11) = (/ &
+ & 0.10357E+04_JPRB,0.78586E+03_JPRB,0.59665E+03_JPRB,0.87648E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 4,41,11) = (/ &
+ & 0.10369E+04_JPRB,0.78632E+03_JPRB,0.59556E+03_JPRB,0.87469E+03_JPRB,0.11547E+04_JPRB /)  
+KB(:, 5,41,11) = (/ &
+ & 0.10372E+04_JPRB,0.78631E+03_JPRB,0.59476E+03_JPRB,0.87298E+03_JPRB,0.11532E+04_JPRB /)  
+KB(:, 1,42,11) = (/ &
+ & 0.10352E+04_JPRB,0.78620E+03_JPRB,0.59889E+03_JPRB,0.87990E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 2,42,11) = (/ &
+ & 0.10362E+04_JPRB,0.78666E+03_JPRB,0.59790E+03_JPRB,0.87851E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 3,42,11) = (/ &
+ & 0.10358E+04_JPRB,0.78476E+03_JPRB,0.59691E+03_JPRB,0.87691E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 4,42,11) = (/ &
+ & 0.10367E+04_JPRB,0.78534E+03_JPRB,0.59590E+03_JPRB,0.87517E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 5,42,11) = (/ &
+ & 0.10374E+04_JPRB,0.78497E+03_JPRB,0.59497E+03_JPRB,0.87339E+03_JPRB,0.11533E+04_JPRB /)  
+KB(:, 1,43,11) = (/ &
+ & 0.10357E+04_JPRB,0.78569E+03_JPRB,0.59919E+03_JPRB,0.88014E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 2,43,11) = (/ &
+ & 0.10384E+04_JPRB,0.78603E+03_JPRB,0.59811E+03_JPRB,0.87910E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 3,43,11) = (/ &
+ & 0.10376E+04_JPRB,0.78685E+03_JPRB,0.59731E+03_JPRB,0.87742E+03_JPRB,0.11573E+04_JPRB /)  
+KB(:, 4,43,11) = (/ &
+ & 0.10368E+04_JPRB,0.78484E+03_JPRB,0.59612E+03_JPRB,0.87573E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 5,43,11) = (/ &
+ & 0.10371E+04_JPRB,0.78612E+03_JPRB,0.59525E+03_JPRB,0.87389E+03_JPRB,0.11539E+04_JPRB /)  
+KB(:, 1,44,11) = (/ &
+ & 0.10362E+04_JPRB,0.78531E+03_JPRB,0.59952E+03_JPRB,0.88052E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 2,44,11) = (/ &
+ & 0.10357E+04_JPRB,0.78506E+03_JPRB,0.59854E+03_JPRB,0.87945E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 3,44,11) = (/ &
+ & 0.10347E+04_JPRB,0.78494E+03_JPRB,0.59755E+03_JPRB,0.87796E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 4,44,11) = (/ &
+ & 0.10360E+04_JPRB,0.78599E+03_JPRB,0.59655E+03_JPRB,0.87632E+03_JPRB,0.11562E+04_JPRB /)  
+KB(:, 5,44,11) = (/ &
+ & 0.10364E+04_JPRB,0.78610E+03_JPRB,0.59556E+03_JPRB,0.87451E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 1,45,11) = (/ &
+ & 0.10355E+04_JPRB,0.78552E+03_JPRB,0.59982E+03_JPRB,0.88100E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 2,45,11) = (/ &
+ & 0.10357E+04_JPRB,0.78527E+03_JPRB,0.59887E+03_JPRB,0.87975E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 3,45,11) = (/ &
+ & 0.10358E+04_JPRB,0.78432E+03_JPRB,0.59788E+03_JPRB,0.87848E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 4,45,11) = (/ &
+ & 0.10358E+04_JPRB,0.78597E+03_JPRB,0.59689E+03_JPRB,0.87689E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 5,45,11) = (/ &
+ & 0.10353E+04_JPRB,0.78525E+03_JPRB,0.59589E+03_JPRB,0.87514E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 1,46,11) = (/ &
+ & 0.10358E+04_JPRB,0.78503E+03_JPRB,0.60010E+03_JPRB,0.88136E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 2,46,11) = (/ &
+ & 0.10366E+04_JPRB,0.78667E+03_JPRB,0.59923E+03_JPRB,0.88004E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 3,46,11) = (/ &
+ & 0.10372E+04_JPRB,0.78560E+03_JPRB,0.59824E+03_JPRB,0.87915E+03_JPRB,0.11593E+04_JPRB /)  
+KB(:, 4,46,11) = (/ &
+ & 0.10348E+04_JPRB,0.78513E+03_JPRB,0.59725E+03_JPRB,0.87748E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 5,46,11) = (/ &
+ & 0.10372E+04_JPRB,0.78595E+03_JPRB,0.59625E+03_JPRB,0.87592E+03_JPRB,0.11557E+04_JPRB /)  
+KB(:, 1,47,11) = (/ &
+ & 0.10352E+04_JPRB,0.78466E+03_JPRB,0.60059E+03_JPRB,0.88175E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 2,47,11) = (/ &
+ & 0.10362E+04_JPRB,0.78477E+03_JPRB,0.59970E+03_JPRB,0.88075E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 3,47,11) = (/ &
+ & 0.10362E+04_JPRB,0.78559E+03_JPRB,0.59863E+03_JPRB,0.87958E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 4,47,11) = (/ &
+ & 0.10356E+04_JPRB,0.78476E+03_JPRB,0.59765E+03_JPRB,0.87812E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 5,47,11) = (/ &
+ & 0.10361E+04_JPRB,0.78428E+03_JPRB,0.59665E+03_JPRB,0.87649E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 1,48,11) = (/ &
+ & 0.10354E+04_JPRB,0.78500E+03_JPRB,0.60042E+03_JPRB,0.88214E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 2,48,11) = (/ &
+ & 0.10348E+04_JPRB,0.78582E+03_JPRB,0.59995E+03_JPRB,0.88117E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,48,11) = (/ &
+ & 0.10353E+04_JPRB,0.78569E+03_JPRB,0.59903E+03_JPRB,0.87942E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 4,48,11) = (/ &
+ & 0.10359E+04_JPRB,0.78569E+03_JPRB,0.59804E+03_JPRB,0.87873E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 5,48,11) = (/ &
+ & 0.10354E+04_JPRB,0.78509E+03_JPRB,0.59705E+03_JPRB,0.87716E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 1,49,11) = (/ &
+ & 0.10362E+04_JPRB,0.78463E+03_JPRB,0.60042E+03_JPRB,0.88242E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,49,11) = (/ &
+ & 0.10367E+04_JPRB,0.78580E+03_JPRB,0.60023E+03_JPRB,0.88156E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 3,49,11) = (/ &
+ & 0.10373E+04_JPRB,0.78533E+03_JPRB,0.59942E+03_JPRB,0.88054E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,49,11) = (/ &
+ & 0.10373E+04_JPRB,0.78462E+03_JPRB,0.59844E+03_JPRB,0.87918E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 5,49,11) = (/ &
+ & 0.10370E+04_JPRB,0.78532E+03_JPRB,0.59736E+03_JPRB,0.87781E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 1,50,11) = (/ &
+ & 0.10356E+04_JPRB,0.78474E+03_JPRB,0.60056E+03_JPRB,0.88267E+03_JPRB,0.11666E+04_JPRB /)  
+KB(:, 2,50,11) = (/ &
+ & 0.10370E+04_JPRB,0.78497E+03_JPRB,0.60046E+03_JPRB,0.88192E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 3,50,11) = (/ &
+ & 0.10348E+04_JPRB,0.78508E+03_JPRB,0.59977E+03_JPRB,0.88094E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 4,50,11) = (/ &
+ & 0.10352E+04_JPRB,0.78473E+03_JPRB,0.59881E+03_JPRB,0.87954E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 5,50,11) = (/ &
+ & 0.10360E+04_JPRB,0.78437E+03_JPRB,0.59782E+03_JPRB,0.87840E+03_JPRB,0.11585E+04_JPRB /)  
+KB(:, 1,51,11) = (/ &
+ & 0.10365E+04_JPRB,0.78532E+03_JPRB,0.60054E+03_JPRB,0.88306E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 2,51,11) = (/ &
+ & 0.10360E+04_JPRB,0.78555E+03_JPRB,0.60046E+03_JPRB,0.88226E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 3,51,11) = (/ &
+ & 0.10359E+04_JPRB,0.78508E+03_JPRB,0.60006E+03_JPRB,0.88131E+03_JPRB,0.11628E+04_JPRB /)  
+KB(:, 4,51,11) = (/ &
+ & 0.10359E+04_JPRB,0.78554E+03_JPRB,0.59917E+03_JPRB,0.88011E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 5,51,11) = (/ &
+ & 0.10363E+04_JPRB,0.78507E+03_JPRB,0.59818E+03_JPRB,0.87894E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,52,11) = (/ &
+ & 0.10357E+04_JPRB,0.78531E+03_JPRB,0.60048E+03_JPRB,0.88333E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 2,52,11) = (/ &
+ & 0.10368E+04_JPRB,0.78554E+03_JPRB,0.60053E+03_JPRB,0.88249E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 3,52,11) = (/ &
+ & 0.10362E+04_JPRB,0.78601E+03_JPRB,0.60037E+03_JPRB,0.88166E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 4,52,11) = (/ &
+ & 0.10354E+04_JPRB,0.78507E+03_JPRB,0.59952E+03_JPRB,0.88066E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 5,52,11) = (/ &
+ & 0.10363E+04_JPRB,0.78565E+03_JPRB,0.59854E+03_JPRB,0.87959E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 1,53,11) = (/ &
+ & 0.10366E+04_JPRB,0.78460E+03_JPRB,0.60030E+03_JPRB,0.88415E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 2,53,11) = (/ &
+ & 0.10366E+04_JPRB,0.78400E+03_JPRB,0.60056E+03_JPRB,0.88262E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 3,53,11) = (/ &
+ & 0.10358E+04_JPRB,0.78459E+03_JPRB,0.60039E+03_JPRB,0.88202E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 4,53,11) = (/ &
+ & 0.10348E+04_JPRB,0.78471E+03_JPRB,0.59985E+03_JPRB,0.88104E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 5,53,11) = (/ &
+ & 0.10366E+04_JPRB,0.78577E+03_JPRB,0.59891E+03_JPRB,0.87992E+03_JPRB,0.11606E+04_JPRB /)  
+KB(:, 1,54,11) = (/ &
+ & 0.10355E+04_JPRB,0.78471E+03_JPRB,0.60033E+03_JPRB,0.88501E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 2,54,11) = (/ &
+ & 0.10360E+04_JPRB,0.78494E+03_JPRB,0.60053E+03_JPRB,0.88313E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 3,54,11) = (/ &
+ & 0.10360E+04_JPRB,0.78671E+03_JPRB,0.60047E+03_JPRB,0.88230E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 4,54,11) = (/ &
+ & 0.10355E+04_JPRB,0.78588E+03_JPRB,0.60010E+03_JPRB,0.88137E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 5,54,11) = (/ &
+ & 0.10357E+04_JPRB,0.78517E+03_JPRB,0.59924E+03_JPRB,0.88032E+03_JPRB,0.11612E+04_JPRB /)  
+KB(:, 1,55,11) = (/ &
+ & 0.10357E+04_JPRB,0.78506E+03_JPRB,0.60035E+03_JPRB,0.88567E+03_JPRB,0.11714E+04_JPRB /)  
+KB(:, 2,55,11) = (/ &
+ & 0.10357E+04_JPRB,0.78518E+03_JPRB,0.60047E+03_JPRB,0.88349E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 3,55,11) = (/ &
+ & 0.10361E+04_JPRB,0.78517E+03_JPRB,0.60053E+03_JPRB,0.88250E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 4,55,11) = (/ &
+ & 0.10357E+04_JPRB,0.78529E+03_JPRB,0.60029E+03_JPRB,0.88168E+03_JPRB,0.11636E+04_JPRB /)  
+KB(:, 5,55,11) = (/ &
+ & 0.10360E+04_JPRB,0.78529E+03_JPRB,0.59954E+03_JPRB,0.88068E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 1,56,11) = (/ &
+ & 0.10361E+04_JPRB,0.78494E+03_JPRB,0.60049E+03_JPRB,0.88607E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 2,56,11) = (/ &
+ & 0.10360E+04_JPRB,0.78482E+03_JPRB,0.60030E+03_JPRB,0.88410E+03_JPRB,0.11698E+04_JPRB /)  
+KB(:, 3,56,11) = (/ &
+ & 0.10354E+04_JPRB,0.78493E+03_JPRB,0.60056E+03_JPRB,0.88273E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 4,56,11) = (/ &
+ & 0.10357E+04_JPRB,0.78552E+03_JPRB,0.60038E+03_JPRB,0.88199E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 5,56,11) = (/ &
+ & 0.10357E+04_JPRB,0.78517E+03_JPRB,0.59983E+03_JPRB,0.88101E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 1,57,11) = (/ &
+ & 0.10357E+04_JPRB,0.78588E+03_JPRB,0.60099E+03_JPRB,0.88686E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 2,57,11) = (/ &
+ & 0.10366E+04_JPRB,0.78458E+03_JPRB,0.60033E+03_JPRB,0.88491E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,57,11) = (/ &
+ & 0.10366E+04_JPRB,0.78481E+03_JPRB,0.60053E+03_JPRB,0.88335E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 4,57,11) = (/ &
+ & 0.10358E+04_JPRB,0.78611E+03_JPRB,0.60046E+03_JPRB,0.88227E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 5,57,11) = (/ &
+ & 0.10355E+04_JPRB,0.78599E+03_JPRB,0.60008E+03_JPRB,0.88133E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 1,58,11) = (/ &
+ & 0.10363E+04_JPRB,0.78576E+03_JPRB,0.60143E+03_JPRB,0.88764E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 2,58,11) = (/ &
+ & 0.10354E+04_JPRB,0.78611E+03_JPRB,0.60042E+03_JPRB,0.88557E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 3,58,11) = (/ &
+ & 0.10363E+04_JPRB,0.78576E+03_JPRB,0.60048E+03_JPRB,0.88329E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 4,58,11) = (/ &
+ & 0.10364E+04_JPRB,0.78505E+03_JPRB,0.60052E+03_JPRB,0.88247E+03_JPRB,0.11659E+04_JPRB /)  
+KB(:, 5,58,11) = (/ &
+ & 0.10357E+04_JPRB,0.78552E+03_JPRB,0.60026E+03_JPRB,0.88163E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 1,59,11) = (/ &
+ & 0.10354E+04_JPRB,0.78634E+03_JPRB,0.60176E+03_JPRB,0.88797E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 2,59,11) = (/ &
+ & 0.10350E+04_JPRB,0.78505E+03_JPRB,0.60038E+03_JPRB,0.88577E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 3,59,11) = (/ &
+ & 0.10360E+04_JPRB,0.78469E+03_JPRB,0.60046E+03_JPRB,0.88358E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 4,59,11) = (/ &
+ & 0.10357E+04_JPRB,0.78493E+03_JPRB,0.60045E+03_JPRB,0.88254E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 5,59,11) = (/ &
+ & 0.10366E+04_JPRB,0.78516E+03_JPRB,0.60041E+03_JPRB,0.88174E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 1,13,12) = (/ &
+ & 0.11535E+04_JPRB,0.87955E+03_JPRB,0.60434E+03_JPRB,0.88744E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 2,13,12) = (/ &
+ & 0.11485E+04_JPRB,0.86886E+03_JPRB,0.60369E+03_JPRB,0.88598E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 3,13,12) = (/ &
+ & 0.11395E+04_JPRB,0.86441E+03_JPRB,0.60332E+03_JPRB,0.88477E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 4,13,12) = (/ &
+ & 0.11350E+04_JPRB,0.86216E+03_JPRB,0.60276E+03_JPRB,0.88294E+03_JPRB,0.11659E+04_JPRB /)  
+KB(:, 5,13,12) = (/ &
+ & 0.11237E+04_JPRB,0.85514E+03_JPRB,0.60186E+03_JPRB,0.88131E+03_JPRB,0.11640E+04_JPRB /)  
+KB(:, 1,14,12) = (/ &
+ & 0.11312E+04_JPRB,0.85960E+03_JPRB,0.60391E+03_JPRB,0.88683E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 2,14,12) = (/ &
+ & 0.11248E+04_JPRB,0.85192E+03_JPRB,0.60329E+03_JPRB,0.88591E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 3,14,12) = (/ &
+ & 0.11210E+04_JPRB,0.84824E+03_JPRB,0.60297E+03_JPRB,0.88444E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 4,14,12) = (/ &
+ & 0.11139E+04_JPRB,0.84322E+03_JPRB,0.60241E+03_JPRB,0.88264E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 5,14,12) = (/ &
+ & 0.11123E+04_JPRB,0.84158E+03_JPRB,0.60150E+03_JPRB,0.88104E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,15,12) = (/ &
+ & 0.11159E+04_JPRB,0.84414E+03_JPRB,0.60344E+03_JPRB,0.88657E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 2,15,12) = (/ &
+ & 0.11106E+04_JPRB,0.84043E+03_JPRB,0.60296E+03_JPRB,0.88568E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 3,15,12) = (/ &
+ & 0.11018E+04_JPRB,0.83588E+03_JPRB,0.60268E+03_JPRB,0.88413E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 4,15,12) = (/ &
+ & 0.10976E+04_JPRB,0.83213E+03_JPRB,0.60210E+03_JPRB,0.88235E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 5,15,12) = (/ &
+ & 0.10965E+04_JPRB,0.83273E+03_JPRB,0.60128E+03_JPRB,0.88077E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,16,12) = (/ &
+ & 0.11003E+04_JPRB,0.83414E+03_JPRB,0.60325E+03_JPRB,0.88634E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 2,16,12) = (/ &
+ & 0.10991E+04_JPRB,0.82921E+03_JPRB,0.60259E+03_JPRB,0.88546E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 3,16,12) = (/ &
+ & 0.10955E+04_JPRB,0.82665E+03_JPRB,0.60243E+03_JPRB,0.88384E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 4,16,12) = (/ &
+ & 0.10851E+04_JPRB,0.82401E+03_JPRB,0.60183E+03_JPRB,0.88207E+03_JPRB,0.11653E+04_JPRB /)  
+KB(:, 5,16,12) = (/ &
+ & 0.10849E+04_JPRB,0.82356E+03_JPRB,0.60085E+03_JPRB,0.88053E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 1,17,12) = (/ &
+ & 0.10876E+04_JPRB,0.82527E+03_JPRB,0.60299E+03_JPRB,0.88614E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 2,17,12) = (/ &
+ & 0.10859E+04_JPRB,0.82135E+03_JPRB,0.60250E+03_JPRB,0.88526E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 3,17,12) = (/ &
+ & 0.10841E+04_JPRB,0.81891E+03_JPRB,0.60222E+03_JPRB,0.88356E+03_JPRB,0.11671E+04_JPRB /)  
+KB(:, 4,17,12) = (/ &
+ & 0.10784E+04_JPRB,0.81708E+03_JPRB,0.60159E+03_JPRB,0.88183E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 5,17,12) = (/ &
+ & 0.10763E+04_JPRB,0.81350E+03_JPRB,0.60170E+03_JPRB,0.88030E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,18,12) = (/ &
+ & 0.10781E+04_JPRB,0.81748E+03_JPRB,0.60276E+03_JPRB,0.88597E+03_JPRB,0.11700E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART30',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,18,12) = (/ &
+ & 0.10771E+04_JPRB,0.81396E+03_JPRB,0.60232E+03_JPRB,0.88573E+03_JPRB,0.11691E+04_JPRB /)  
+KB(:, 3,18,12) = (/ &
+ & 0.10718E+04_JPRB,0.81415E+03_JPRB,0.60204E+03_JPRB,0.88331E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 4,18,12) = (/ &
+ & 0.10689E+04_JPRB,0.81027E+03_JPRB,0.60137E+03_JPRB,0.88144E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 5,18,12) = (/ &
+ & 0.10691E+04_JPRB,0.80937E+03_JPRB,0.60029E+03_JPRB,0.88009E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 1,19,12) = (/ &
+ & 0.10732E+04_JPRB,0.81093E+03_JPRB,0.60257E+03_JPRB,0.88582E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 2,19,12) = (/ &
+ & 0.10665E+04_JPRB,0.81093E+03_JPRB,0.60218E+03_JPRB,0.88486E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 3,19,12) = (/ &
+ & 0.10668E+04_JPRB,0.80596E+03_JPRB,0.60188E+03_JPRB,0.88291E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 4,19,12) = (/ &
+ & 0.10625E+04_JPRB,0.80871E+03_JPRB,0.60129E+03_JPRB,0.88139E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 5,19,12) = (/ &
+ & 0.10641E+04_JPRB,0.80549E+03_JPRB,0.60005E+03_JPRB,0.87990E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 1,20,12) = (/ &
+ & 0.10655E+04_JPRB,0.80608E+03_JPRB,0.60228E+03_JPRB,0.88568E+03_JPRB,0.11700E+04_JPRB /)  
+KB(:, 2,20,12) = (/ &
+ & 0.10621E+04_JPRB,0.80582E+03_JPRB,0.60205E+03_JPRB,0.88462E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 3,20,12) = (/ &
+ & 0.10596E+04_JPRB,0.80439E+03_JPRB,0.60161E+03_JPRB,0.88282E+03_JPRB,0.11664E+04_JPRB /)  
+KB(:, 4,20,12) = (/ &
+ & 0.10569E+04_JPRB,0.80052E+03_JPRB,0.60133E+03_JPRB,0.88084E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 5,20,12) = (/ &
+ & 0.10576E+04_JPRB,0.80029E+03_JPRB,0.59980E+03_JPRB,0.87969E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 1,21,12) = (/ &
+ & 0.10601E+04_JPRB,0.80047E+03_JPRB,0.60235E+03_JPRB,0.88539E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 2,21,12) = (/ &
+ & 0.10553E+04_JPRB,0.80126E+03_JPRB,0.60195E+03_JPRB,0.88437E+03_JPRB,0.11684E+04_JPRB /)  
+KB(:, 3,21,12) = (/ &
+ & 0.10581E+04_JPRB,0.79916E+03_JPRB,0.60159E+03_JPRB,0.88257E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 4,21,12) = (/ &
+ & 0.10523E+04_JPRB,0.79871E+03_JPRB,0.60090E+03_JPRB,0.88096E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 5,21,12) = (/ &
+ & 0.10536E+04_JPRB,0.79852E+03_JPRB,0.59957E+03_JPRB,0.87950E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 1,22,12) = (/ &
+ & 0.10543E+04_JPRB,0.79995E+03_JPRB,0.60207E+03_JPRB,0.88538E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 2,22,12) = (/ &
+ & 0.10531E+04_JPRB,0.79794E+03_JPRB,0.60195E+03_JPRB,0.88401E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 3,22,12) = (/ &
+ & 0.10510E+04_JPRB,0.79590E+03_JPRB,0.60141E+03_JPRB,0.88205E+03_JPRB,0.11658E+04_JPRB /)  
+KB(:, 4,22,12) = (/ &
+ & 0.10516E+04_JPRB,0.79518E+03_JPRB,0.60121E+03_JPRB,0.88065E+03_JPRB,0.11640E+04_JPRB /)  
+KB(:, 5,22,12) = (/ &
+ & 0.10507E+04_JPRB,0.79514E+03_JPRB,0.59925E+03_JPRB,0.87922E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 1,23,12) = (/ &
+ & 0.10496E+04_JPRB,0.79686E+03_JPRB,0.60138E+03_JPRB,0.88518E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 2,23,12) = (/ &
+ & 0.10500E+04_JPRB,0.79504E+03_JPRB,0.60174E+03_JPRB,0.88363E+03_JPRB,0.11675E+04_JPRB /)  
+KB(:, 3,23,12) = (/ &
+ & 0.10497E+04_JPRB,0.79559E+03_JPRB,0.60122E+03_JPRB,0.88187E+03_JPRB,0.11654E+04_JPRB /)  
+KB(:, 4,23,12) = (/ &
+ & 0.10478E+04_JPRB,0.79456E+03_JPRB,0.60013E+03_JPRB,0.88034E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 5,23,12) = (/ &
+ & 0.10481E+04_JPRB,0.79269E+03_JPRB,0.59893E+03_JPRB,0.87894E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 1,24,12) = (/ &
+ & 0.10504E+04_JPRB,0.79322E+03_JPRB,0.60186E+03_JPRB,0.88494E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 2,24,12) = (/ &
+ & 0.10474E+04_JPRB,0.79292E+03_JPRB,0.60174E+03_JPRB,0.88325E+03_JPRB,0.11671E+04_JPRB /)  
+KB(:, 3,24,12) = (/ &
+ & 0.10457E+04_JPRB,0.79315E+03_JPRB,0.60103E+03_JPRB,0.88153E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 4,24,12) = (/ &
+ & 0.10462E+04_JPRB,0.79329E+03_JPRB,0.59996E+03_JPRB,0.88003E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 5,24,12) = (/ &
+ & 0.10477E+04_JPRB,0.79348E+03_JPRB,0.59860E+03_JPRB,0.87867E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 1,25,12) = (/ &
+ & 0.10437E+04_JPRB,0.79315E+03_JPRB,0.60179E+03_JPRB,0.88497E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 2,25,12) = (/ &
+ & 0.10446E+04_JPRB,0.79177E+03_JPRB,0.60151E+03_JPRB,0.88285E+03_JPRB,0.11666E+04_JPRB /)  
+KB(:, 3,25,12) = (/ &
+ & 0.10443E+04_JPRB,0.79105E+03_JPRB,0.60081E+03_JPRB,0.88119E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 4,25,12) = (/ &
+ & 0.10440E+04_JPRB,0.79204E+03_JPRB,0.59965E+03_JPRB,0.87971E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 5,25,12) = (/ &
+ & 0.10441E+04_JPRB,0.79141E+03_JPRB,0.59825E+03_JPRB,0.87840E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 1,26,12) = (/ &
+ & 0.10444E+04_JPRB,0.79040E+03_JPRB,0.60171E+03_JPRB,0.88422E+03_JPRB,0.11681E+04_JPRB /)  
+KB(:, 2,26,12) = (/ &
+ & 0.10415E+04_JPRB,0.78987E+03_JPRB,0.60136E+03_JPRB,0.88243E+03_JPRB,0.11661E+04_JPRB /)  
+KB(:, 3,26,12) = (/ &
+ & 0.10417E+04_JPRB,0.79014E+03_JPRB,0.60043E+03_JPRB,0.88082E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 4,26,12) = (/ &
+ & 0.10442E+04_JPRB,0.78985E+03_JPRB,0.59932E+03_JPRB,0.87937E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 5,26,12) = (/ &
+ & 0.10421E+04_JPRB,0.79004E+03_JPRB,0.59787E+03_JPRB,0.87814E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 1,27,12) = (/ &
+ & 0.10431E+04_JPRB,0.78868E+03_JPRB,0.60163E+03_JPRB,0.88378E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 2,27,12) = (/ &
+ & 0.10423E+04_JPRB,0.79138E+03_JPRB,0.60118E+03_JPRB,0.88201E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 3,27,12) = (/ &
+ & 0.10404E+04_JPRB,0.78916E+03_JPRB,0.60037E+03_JPRB,0.88046E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 4,27,12) = (/ &
+ & 0.10405E+04_JPRB,0.78893E+03_JPRB,0.59897E+03_JPRB,0.87905E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 5,27,12) = (/ &
+ & 0.10396E+04_JPRB,0.78917E+03_JPRB,0.59748E+03_JPRB,0.87790E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 1,28,12) = (/ &
+ & 0.10409E+04_JPRB,0.79152E+03_JPRB,0.60155E+03_JPRB,0.88334E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 2,28,12) = (/ &
+ & 0.10439E+04_JPRB,0.78963E+03_JPRB,0.60099E+03_JPRB,0.88127E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 3,28,12) = (/ &
+ & 0.10423E+04_JPRB,0.78823E+03_JPRB,0.60006E+03_JPRB,0.88010E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 4,28,12) = (/ &
+ & 0.10442E+04_JPRB,0.78834E+03_JPRB,0.59861E+03_JPRB,0.87873E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 5,28,12) = (/ &
+ & 0.10392E+04_JPRB,0.79042E+03_JPRB,0.59708E+03_JPRB,0.87768E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 1,29,12) = (/ &
+ & 0.10405E+04_JPRB,0.79019E+03_JPRB,0.60167E+03_JPRB,0.88289E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 2,29,12) = (/ &
+ & 0.10432E+04_JPRB,0.78865E+03_JPRB,0.60111E+03_JPRB,0.88122E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 3,29,12) = (/ &
+ & 0.10406E+04_JPRB,0.78834E+03_JPRB,0.59962E+03_JPRB,0.87974E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 4,29,12) = (/ &
+ & 0.10397E+04_JPRB,0.78909E+03_JPRB,0.59824E+03_JPRB,0.87826E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 5,29,12) = (/ &
+ & 0.10387E+04_JPRB,0.78925E+03_JPRB,0.59665E+03_JPRB,0.87746E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 1,30,12) = (/ &
+ & 0.10411E+04_JPRB,0.78840E+03_JPRB,0.60130E+03_JPRB,0.88244E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 2,30,12) = (/ &
+ & 0.10395E+04_JPRB,0.79020E+03_JPRB,0.60051E+03_JPRB,0.88083E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 3,30,12) = (/ &
+ & 0.10384E+04_JPRB,0.78543E+03_JPRB,0.59928E+03_JPRB,0.87938E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 4,30,12) = (/ &
+ & 0.10394E+04_JPRB,0.78756E+03_JPRB,0.59785E+03_JPRB,0.87814E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 5,30,12) = (/ &
+ & 0.10383E+04_JPRB,0.78820E+03_JPRB,0.59620E+03_JPRB,0.87743E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 1,31,12) = (/ &
+ & 0.10385E+04_JPRB,0.78703E+03_JPRB,0.60113E+03_JPRB,0.88199E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,31,12) = (/ &
+ & 0.10401E+04_JPRB,0.79050E+03_JPRB,0.60021E+03_JPRB,0.88045E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 3,31,12) = (/ &
+ & 0.10412E+04_JPRB,0.78681E+03_JPRB,0.59892E+03_JPRB,0.87903E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 4,31,12) = (/ &
+ & 0.10385E+04_JPRB,0.78582E+03_JPRB,0.59732E+03_JPRB,0.87772E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 5,31,12) = (/ &
+ & 0.10372E+04_JPRB,0.78947E+03_JPRB,0.59573E+03_JPRB,0.87705E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 1,32,12) = (/ &
+ & 0.10378E+04_JPRB,0.78710E+03_JPRB,0.60105E+03_JPRB,0.88140E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 2,32,12) = (/ &
+ & 0.10375E+04_JPRB,0.78506E+03_JPRB,0.59989E+03_JPRB,0.88006E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 3,32,12) = (/ &
+ & 0.10409E+04_JPRB,0.78648E+03_JPRB,0.59855E+03_JPRB,0.87869E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 4,32,12) = (/ &
+ & 0.10389E+04_JPRB,0.78640E+03_JPRB,0.59701E+03_JPRB,0.87765E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 5,32,12) = (/ &
+ & 0.10378E+04_JPRB,0.78589E+03_JPRB,0.59527E+03_JPRB,0.87675E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 1,33,12) = (/ &
+ & 0.10380E+04_JPRB,0.78620E+03_JPRB,0.60093E+03_JPRB,0.88116E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 2,33,12) = (/ &
+ & 0.10383E+04_JPRB,0.78582E+03_JPRB,0.59966E+03_JPRB,0.87968E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 3,33,12) = (/ &
+ & 0.10388E+04_JPRB,0.78740E+03_JPRB,0.59816E+03_JPRB,0.87838E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 4,33,12) = (/ &
+ & 0.10367E+04_JPRB,0.78734E+03_JPRB,0.59657E+03_JPRB,0.87743E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 5,33,12) = (/ &
+ & 0.10382E+04_JPRB,0.78803E+03_JPRB,0.59484E+03_JPRB,0.87630E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,34,12) = (/ &
+ & 0.10390E+04_JPRB,0.78774E+03_JPRB,0.60058E+03_JPRB,0.88098E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 2,34,12) = (/ &
+ & 0.10374E+04_JPRB,0.78664E+03_JPRB,0.59936E+03_JPRB,0.87936E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 3,34,12) = (/ &
+ & 0.10352E+04_JPRB,0.78733E+03_JPRB,0.59781E+03_JPRB,0.87813E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,34,12) = (/ &
+ & 0.10386E+04_JPRB,0.78609E+03_JPRB,0.59617E+03_JPRB,0.87742E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 5,34,12) = (/ &
+ & 0.10400E+04_JPRB,0.78709E+03_JPRB,0.59476E+03_JPRB,0.87581E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,35,12) = (/ &
+ & 0.10374E+04_JPRB,0.78486E+03_JPRB,0.60032E+03_JPRB,0.88061E+03_JPRB,0.11641E+04_JPRB /)  
+KB(:, 2,35,12) = (/ &
+ & 0.10385E+04_JPRB,0.78482E+03_JPRB,0.59906E+03_JPRB,0.87918E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 3,35,12) = (/ &
+ & 0.10371E+04_JPRB,0.78627E+03_JPRB,0.59760E+03_JPRB,0.87799E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 4,35,12) = (/ &
+ & 0.10378E+04_JPRB,0.78697E+03_JPRB,0.59593E+03_JPRB,0.87715E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 5,35,12) = (/ &
+ & 0.10370E+04_JPRB,0.78545E+03_JPRB,0.59500E+03_JPRB,0.87549E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,36,12) = (/ &
+ & 0.10362E+04_JPRB,0.78845E+03_JPRB,0.60029E+03_JPRB,0.88058E+03_JPRB,0.11640E+04_JPRB /)  
+KB(:, 2,36,12) = (/ &
+ & 0.10379E+04_JPRB,0.78676E+03_JPRB,0.59903E+03_JPRB,0.87915E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,36,12) = (/ &
+ & 0.10369E+04_JPRB,0.78598E+03_JPRB,0.59768E+03_JPRB,0.87797E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 4,36,12) = (/ &
+ & 0.10369E+04_JPRB,0.78595E+03_JPRB,0.59566E+03_JPRB,0.87713E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 5,36,12) = (/ &
+ & 0.10368E+04_JPRB,0.78548E+03_JPRB,0.59464E+03_JPRB,0.87594E+03_JPRB,0.11600E+04_JPRB /)  
+KB(:, 1,37,12) = (/ &
+ & 0.10374E+04_JPRB,0.78579E+03_JPRB,0.60055E+03_JPRB,0.88077E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 2,37,12) = (/ &
+ & 0.10362E+04_JPRB,0.78844E+03_JPRB,0.59921E+03_JPRB,0.87933E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 3,37,12) = (/ &
+ & 0.10360E+04_JPRB,0.78603E+03_JPRB,0.59777E+03_JPRB,0.87810E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,37,12) = (/ &
+ & 0.10367E+04_JPRB,0.78734E+03_JPRB,0.59623E+03_JPRB,0.87723E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 5,37,12) = (/ &
+ & 0.10361E+04_JPRB,0.78702E+03_JPRB,0.59474E+03_JPRB,0.87592E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 1,38,12) = (/ &
+ & 0.10367E+04_JPRB,0.78778E+03_JPRB,0.60058E+03_JPRB,0.88098E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 2,38,12) = (/ &
+ & 0.10387E+04_JPRB,0.78865E+03_JPRB,0.59939E+03_JPRB,0.87952E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 3,38,12) = (/ &
+ & 0.10363E+04_JPRB,0.78758E+03_JPRB,0.59820E+03_JPRB,0.87825E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 4,38,12) = (/ &
+ & 0.10372E+04_JPRB,0.78786E+03_JPRB,0.59636E+03_JPRB,0.87717E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 5,38,12) = (/ &
+ & 0.10362E+04_JPRB,0.78470E+03_JPRB,0.59485E+03_JPRB,0.87657E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 1,39,12) = (/ &
+ & 0.10374E+04_JPRB,0.78680E+03_JPRB,0.60094E+03_JPRB,0.88119E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 2,39,12) = (/ &
+ & 0.10352E+04_JPRB,0.78618E+03_JPRB,0.60014E+03_JPRB,0.87971E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 3,39,12) = (/ &
+ & 0.10401E+04_JPRB,0.78497E+03_JPRB,0.59818E+03_JPRB,0.87840E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 4,39,12) = (/ &
+ & 0.10369E+04_JPRB,0.78868E+03_JPRB,0.59660E+03_JPRB,0.87744E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 5,39,12) = (/ &
+ & 0.10353E+04_JPRB,0.78494E+03_JPRB,0.59497E+03_JPRB,0.87635E+03_JPRB,0.11593E+04_JPRB /)  
+KB(:, 1,40,12) = (/ &
+ & 0.10385E+04_JPRB,0.78584E+03_JPRB,0.60091E+03_JPRB,0.88123E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 2,40,12) = (/ &
+ & 0.10387E+04_JPRB,0.78568E+03_JPRB,0.59987E+03_JPRB,0.88006E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 3,40,12) = (/ &
+ & 0.10371E+04_JPRB,0.78626E+03_JPRB,0.59853E+03_JPRB,0.87869E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 4,40,12) = (/ &
+ & 0.10386E+04_JPRB,0.78684E+03_JPRB,0.59700E+03_JPRB,0.87748E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 5,40,12) = (/ &
+ & 0.10362E+04_JPRB,0.78503E+03_JPRB,0.59526E+03_JPRB,0.87692E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 1,41,12) = (/ &
+ & 0.10384E+04_JPRB,0.78504E+03_JPRB,0.60109E+03_JPRB,0.88198E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,41,12) = (/ &
+ & 0.10360E+04_JPRB,0.78533E+03_JPRB,0.60017E+03_JPRB,0.88043E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 3,41,12) = (/ &
+ & 0.10374E+04_JPRB,0.78412E+03_JPRB,0.59889E+03_JPRB,0.87902E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 4,41,12) = (/ &
+ & 0.10350E+04_JPRB,0.78545E+03_JPRB,0.59741E+03_JPRB,0.87788E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 5,41,12) = (/ &
+ & 0.10385E+04_JPRB,0.78529E+03_JPRB,0.59570E+03_JPRB,0.87704E+03_JPRB,0.11607E+04_JPRB /)  
+KB(:, 1,42,12) = (/ &
+ & 0.10370E+04_JPRB,0.78560E+03_JPRB,0.60125E+03_JPRB,0.88242E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 2,42,12) = (/ &
+ & 0.10383E+04_JPRB,0.78469E+03_JPRB,0.60057E+03_JPRB,0.88081E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 3,42,12) = (/ &
+ & 0.10368E+04_JPRB,0.78617E+03_JPRB,0.59924E+03_JPRB,0.87937E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 4,42,12) = (/ &
+ & 0.10362E+04_JPRB,0.78586E+03_JPRB,0.59780E+03_JPRB,0.87813E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 5,42,12) = (/ &
+ & 0.10350E+04_JPRB,0.78958E+03_JPRB,0.59616E+03_JPRB,0.87725E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 1,43,12) = (/ &
+ & 0.10375E+04_JPRB,0.78586E+03_JPRB,0.60140E+03_JPRB,0.88280E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 2,43,12) = (/ &
+ & 0.10344E+04_JPRB,0.78615E+03_JPRB,0.60088E+03_JPRB,0.88112E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 3,43,12) = (/ &
+ & 0.10344E+04_JPRB,0.78345E+03_JPRB,0.59953E+03_JPRB,0.87980E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 4,43,12) = (/ &
+ & 0.10347E+04_JPRB,0.78777E+03_JPRB,0.59827E+03_JPRB,0.87847E+03_JPRB,0.11619E+04_JPRB /)  
+KB(:, 5,43,12) = (/ &
+ & 0.10355E+04_JPRB,0.78627E+03_JPRB,0.59681E+03_JPRB,0.87766E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 1,44,12) = (/ &
+ & 0.10355E+04_JPRB,0.78449E+03_JPRB,0.60162E+03_JPRB,0.88358E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 2,44,12) = (/ &
+ & 0.10359E+04_JPRB,0.78627E+03_JPRB,0.60103E+03_JPRB,0.88182E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 3,44,12) = (/ &
+ & 0.10377E+04_JPRB,0.78715E+03_JPRB,0.60005E+03_JPRB,0.88029E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 4,44,12) = (/ &
+ & 0.10378E+04_JPRB,0.78625E+03_JPRB,0.59875E+03_JPRB,0.87890E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 5,44,12) = (/ &
+ & 0.10374E+04_JPRB,0.78401E+03_JPRB,0.59725E+03_JPRB,0.87779E+03_JPRB,0.11612E+04_JPRB /)  
+KB(:, 1,45,12) = (/ &
+ & 0.10390E+04_JPRB,0.78655E+03_JPRB,0.60158E+03_JPRB,0.88419E+03_JPRB,0.11684E+04_JPRB /)  
+KB(:, 2,45,12) = (/ &
+ & 0.10396E+04_JPRB,0.78684E+03_JPRB,0.60124E+03_JPRB,0.88239E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 3,45,12) = (/ &
+ & 0.10355E+04_JPRB,0.78758E+03_JPRB,0.60044E+03_JPRB,0.88079E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 4,45,12) = (/ &
+ & 0.10368E+04_JPRB,0.78548E+03_JPRB,0.59922E+03_JPRB,0.87935E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 5,45,12) = (/ &
+ & 0.10360E+04_JPRB,0.78578E+03_JPRB,0.59778E+03_JPRB,0.87811E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 1,46,12) = (/ &
+ & 0.10390E+04_JPRB,0.78534E+03_JPRB,0.60165E+03_JPRB,0.88476E+03_JPRB,0.11691E+04_JPRB /)  
+KB(:, 2,46,12) = (/ &
+ & 0.10368E+04_JPRB,0.78339E+03_JPRB,0.60141E+03_JPRB,0.88303E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 3,46,12) = (/ &
+ & 0.10364E+04_JPRB,0.78696E+03_JPRB,0.60079E+03_JPRB,0.88117E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 4,46,12) = (/ &
+ & 0.10407E+04_JPRB,0.78666E+03_JPRB,0.59968E+03_JPRB,0.87985E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 5,46,12) = (/ &
+ & 0.10344E+04_JPRB,0.78501E+03_JPRB,0.59832E+03_JPRB,0.87835E+03_JPRB,0.11619E+04_JPRB /)  
+KB(:, 1,47,12) = (/ &
+ & 0.10372E+04_JPRB,0.78547E+03_JPRB,0.60140E+03_JPRB,0.88518E+03_JPRB,0.11696E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART31',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,47,12) = (/ &
+ & 0.10368E+04_JPRB,0.78740E+03_JPRB,0.60142E+03_JPRB,0.88376E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 3,47,12) = (/ &
+ & 0.10360E+04_JPRB,0.78411E+03_JPRB,0.60109E+03_JPRB,0.88198E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 4,47,12) = (/ &
+ & 0.10358E+04_JPRB,0.78709E+03_JPRB,0.60017E+03_JPRB,0.88044E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 5,47,12) = (/ &
+ & 0.10354E+04_JPRB,0.78664E+03_JPRB,0.59889E+03_JPRB,0.87902E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 1,48,12) = (/ &
+ & 0.10362E+04_JPRB,0.78680E+03_JPRB,0.60195E+03_JPRB,0.88548E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 2,48,12) = (/ &
+ & 0.10362E+04_JPRB,0.78545E+03_JPRB,0.60161E+03_JPRB,0.88447E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 3,48,12) = (/ &
+ & 0.10378E+04_JPRB,0.78604E+03_JPRB,0.60144E+03_JPRB,0.88268E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 4,48,12) = (/ &
+ & 0.10382E+04_JPRB,0.78544E+03_JPRB,0.60061E+03_JPRB,0.88104E+03_JPRB,0.11646E+04_JPRB /)  
+KB(:, 5,48,12) = (/ &
+ & 0.10364E+04_JPRB,0.78424E+03_JPRB,0.59943E+03_JPRB,0.87957E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 1,49,12) = (/ &
+ & 0.10370E+04_JPRB,0.78693E+03_JPRB,0.60225E+03_JPRB,0.88600E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 2,49,12) = (/ &
+ & 0.10356E+04_JPRB,0.78469E+03_JPRB,0.60169E+03_JPRB,0.88499E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 3,49,12) = (/ &
+ & 0.10350E+04_JPRB,0.78588E+03_JPRB,0.60148E+03_JPRB,0.88340E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 4,49,12) = (/ &
+ & 0.10352E+04_JPRB,0.78677E+03_JPRB,0.60095E+03_JPRB,0.88166E+03_JPRB,0.11653E+04_JPRB /)  
+KB(:, 5,49,12) = (/ &
+ & 0.10356E+04_JPRB,0.78647E+03_JPRB,0.59993E+03_JPRB,0.88015E+03_JPRB,0.11636E+04_JPRB /)  
+KB(:, 1,50,12) = (/ &
+ & 0.10356E+04_JPRB,0.78558E+03_JPRB,0.60226E+03_JPRB,0.88620E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 2,50,12) = (/ &
+ & 0.10346E+04_JPRB,0.78796E+03_JPRB,0.60171E+03_JPRB,0.88533E+03_JPRB,0.11698E+04_JPRB /)  
+KB(:, 3,50,12) = (/ &
+ & 0.10366E+04_JPRB,0.78751E+03_JPRB,0.60168E+03_JPRB,0.88408E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 4,50,12) = (/ &
+ & 0.10366E+04_JPRB,0.78646E+03_JPRB,0.60132E+03_JPRB,0.88229E+03_JPRB,0.11661E+04_JPRB /)  
+KB(:, 5,50,12) = (/ &
+ & 0.10393E+04_JPRB,0.78616E+03_JPRB,0.60083E+03_JPRB,0.88070E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 1,51,12) = (/ &
+ & 0.10356E+04_JPRB,0.78468E+03_JPRB,0.60241E+03_JPRB,0.88644E+03_JPRB,0.11719E+04_JPRB /)  
+KB(:, 2,51,12) = (/ &
+ & 0.10368E+04_JPRB,0.78423E+03_JPRB,0.60203E+03_JPRB,0.88559E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 3,51,12) = (/ &
+ & 0.10356E+04_JPRB,0.78586E+03_JPRB,0.60163E+03_JPRB,0.88469E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 4,51,12) = (/ &
+ & 0.10358E+04_JPRB,0.78601E+03_JPRB,0.60139E+03_JPRB,0.88294E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 5,51,12) = (/ &
+ & 0.10379E+04_JPRB,0.78646E+03_JPRB,0.60074E+03_JPRB,0.88126E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 1,52,12) = (/ &
+ & 0.10383E+04_JPRB,0.78512E+03_JPRB,0.60257E+03_JPRB,0.88672E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 2,52,12) = (/ &
+ & 0.10350E+04_JPRB,0.78646E+03_JPRB,0.60217E+03_JPRB,0.88594E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,52,12) = (/ &
+ & 0.10358E+04_JPRB,0.78466E+03_JPRB,0.60160E+03_JPRB,0.88510E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 4,52,12) = (/ &
+ & 0.10356E+04_JPRB,0.78511E+03_JPRB,0.60151E+03_JPRB,0.88359E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,52,12) = (/ &
+ & 0.10365E+04_JPRB,0.78541E+03_JPRB,0.60103E+03_JPRB,0.88167E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 1,53,12) = (/ &
+ & 0.10352E+04_JPRB,0.78496E+03_JPRB,0.60273E+03_JPRB,0.88710E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 2,53,12) = (/ &
+ & 0.10359E+04_JPRB,0.78600E+03_JPRB,0.60229E+03_JPRB,0.88628E+03_JPRB,0.11714E+04_JPRB /)  
+KB(:, 3,53,12) = (/ &
+ & 0.10369E+04_JPRB,0.78526E+03_JPRB,0.60188E+03_JPRB,0.88540E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 4,53,12) = (/ &
+ & 0.10383E+04_JPRB,0.78660E+03_JPRB,0.60159E+03_JPRB,0.88425E+03_JPRB,0.11685E+04_JPRB /)  
+KB(:, 5,53,12) = (/ &
+ & 0.10373E+04_JPRB,0.78555E+03_JPRB,0.60126E+03_JPRB,0.88246E+03_JPRB,0.11663E+04_JPRB /)  
+KB(:, 1,54,12) = (/ &
+ & 0.10367E+04_JPRB,0.78451E+03_JPRB,0.60297E+03_JPRB,0.88752E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 2,54,12) = (/ &
+ & 0.10355E+04_JPRB,0.78600E+03_JPRB,0.60244E+03_JPRB,0.88648E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 3,54,12) = (/ &
+ & 0.10348E+04_JPRB,0.78301E+03_JPRB,0.60206E+03_JPRB,0.88564E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 4,54,12) = (/ &
+ & 0.10395E+04_JPRB,0.78629E+03_JPRB,0.60165E+03_JPRB,0.88477E+03_JPRB,0.11691E+04_JPRB /)  
+KB(:, 5,54,12) = (/ &
+ & 0.10361E+04_JPRB,0.78420E+03_JPRB,0.60141E+03_JPRB,0.88305E+03_JPRB,0.11670E+04_JPRB /)  
+KB(:, 1,55,12) = (/ &
+ & 0.10361E+04_JPRB,0.78555E+03_JPRB,0.60296E+03_JPRB,0.88822E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 2,55,12) = (/ &
+ & 0.10355E+04_JPRB,0.78495E+03_JPRB,0.60258E+03_JPRB,0.88674E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 3,55,12) = (/ &
+ & 0.10349E+04_JPRB,0.78525E+03_JPRB,0.60217E+03_JPRB,0.88596E+03_JPRB,0.11709E+04_JPRB /)  
+KB(:, 4,55,12) = (/ &
+ & 0.10361E+04_JPRB,0.78465E+03_JPRB,0.60184E+03_JPRB,0.88512E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 5,55,12) = (/ &
+ & 0.10363E+04_JPRB,0.78599E+03_JPRB,0.60163E+03_JPRB,0.88363E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 1,56,12) = (/ &
+ & 0.10361E+04_JPRB,0.78599E+03_JPRB,0.60309E+03_JPRB,0.88918E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 2,56,12) = (/ &
+ & 0.10391E+04_JPRB,0.78674E+03_JPRB,0.60272E+03_JPRB,0.88707E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 3,56,12) = (/ &
+ & 0.10363E+04_JPRB,0.78584E+03_JPRB,0.60228E+03_JPRB,0.88626E+03_JPRB,0.11716E+04_JPRB /)  
+KB(:, 4,56,12) = (/ &
+ & 0.10369E+04_JPRB,0.78509E+03_JPRB,0.60186E+03_JPRB,0.88538E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 5,56,12) = (/ &
+ & 0.10363E+04_JPRB,0.78554E+03_JPRB,0.60158E+03_JPRB,0.88421E+03_JPRB,0.11682E+04_JPRB /)  
+KB(:, 1,57,12) = (/ &
+ & 0.10381E+04_JPRB,0.78509E+03_JPRB,0.60327E+03_JPRB,0.89026E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 2,57,12) = (/ &
+ & 0.10344E+04_JPRB,0.78852E+03_JPRB,0.60284E+03_JPRB,0.88747E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 3,57,12) = (/ &
+ & 0.10369E+04_JPRB,0.78509E+03_JPRB,0.60242E+03_JPRB,0.88612E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 4,57,12) = (/ &
+ & 0.10393E+04_JPRB,0.78330E+03_JPRB,0.60216E+03_JPRB,0.88561E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 5,57,12) = (/ &
+ & 0.10365E+04_JPRB,0.78494E+03_JPRB,0.60164E+03_JPRB,0.88472E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 1,58,12) = (/ &
+ & 0.10353E+04_JPRB,0.78509E+03_JPRB,0.60357E+03_JPRB,0.89125E+03_JPRB,0.11802E+04_JPRB /)  
+KB(:, 2,58,12) = (/ &
+ & 0.10371E+04_JPRB,0.78524E+03_JPRB,0.60283E+03_JPRB,0.88807E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 3,58,12) = (/ &
+ & 0.10365E+04_JPRB,0.78718E+03_JPRB,0.60278E+03_JPRB,0.88669E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 4,58,12) = (/ &
+ & 0.10349E+04_JPRB,0.78673E+03_JPRB,0.60216E+03_JPRB,0.88590E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 5,58,12) = (/ &
+ & 0.10365E+04_JPRB,0.78389E+03_JPRB,0.60170E+03_JPRB,0.88506E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 1,59,12) = (/ &
+ & 0.10365E+04_JPRB,0.78390E+03_JPRB,0.60373E+03_JPRB,0.89165E+03_JPRB,0.11808E+04_JPRB /)  
+KB(:, 2,59,12) = (/ &
+ & 0.10369E+04_JPRB,0.78479E+03_JPRB,0.60298E+03_JPRB,0.88840E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 3,59,12) = (/ &
+ & 0.10357E+04_JPRB,0.78703E+03_JPRB,0.60261E+03_JPRB,0.88680E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 4,59,12) = (/ &
+ & 0.10363E+04_JPRB,0.78509E+03_JPRB,0.60219E+03_JPRB,0.88602E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 5,59,12) = (/ &
+ & 0.10365E+04_JPRB,0.78479E+03_JPRB,0.60174E+03_JPRB,0.88517E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 1,13,13) = (/ &
+ & 0.11661E+04_JPRB,0.87073E+03_JPRB,0.60556E+03_JPRB,0.88929E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,13,13) = (/ &
+ & 0.11527E+04_JPRB,0.87014E+03_JPRB,0.60489E+03_JPRB,0.88914E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 3,13,13) = (/ &
+ & 0.11423E+04_JPRB,0.85968E+03_JPRB,0.60419E+03_JPRB,0.88867E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,13,13) = (/ &
+ & 0.11371E+04_JPRB,0.85890E+03_JPRB,0.60344E+03_JPRB,0.88820E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 5,13,13) = (/ &
+ & 0.11390E+04_JPRB,0.85008E+03_JPRB,0.60234E+03_JPRB,0.88705E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 1,14,13) = (/ &
+ & 0.11362E+04_JPRB,0.85805E+03_JPRB,0.60511E+03_JPRB,0.88957E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,14,13) = (/ &
+ & 0.11276E+04_JPRB,0.85398E+03_JPRB,0.60448E+03_JPRB,0.88893E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 3,14,13) = (/ &
+ & 0.11208E+04_JPRB,0.84888E+03_JPRB,0.60397E+03_JPRB,0.88854E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,14,13) = (/ &
+ & 0.11194E+04_JPRB,0.85006E+03_JPRB,0.60305E+03_JPRB,0.88823E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 5,14,13) = (/ &
+ & 0.11083E+04_JPRB,0.84212E+03_JPRB,0.60191E+03_JPRB,0.88682E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 1,15,13) = (/ &
+ & 0.11142E+04_JPRB,0.84766E+03_JPRB,0.60488E+03_JPRB,0.88941E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,15,13) = (/ &
+ & 0.11176E+04_JPRB,0.84112E+03_JPRB,0.60414E+03_JPRB,0.88873E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 3,15,13) = (/ &
+ & 0.11051E+04_JPRB,0.84191E+03_JPRB,0.60348E+03_JPRB,0.88843E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,15,13) = (/ &
+ & 0.11036E+04_JPRB,0.83753E+03_JPRB,0.60270E+03_JPRB,0.88781E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 5,15,13) = (/ &
+ & 0.10935E+04_JPRB,0.82883E+03_JPRB,0.60139E+03_JPRB,0.88658E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 1,16,13) = (/ &
+ & 0.11074E+04_JPRB,0.83456E+03_JPRB,0.60440E+03_JPRB,0.88927E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 2,16,13) = (/ &
+ & 0.11018E+04_JPRB,0.83298E+03_JPRB,0.60385E+03_JPRB,0.88856E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 3,16,13) = (/ &
+ & 0.10859E+04_JPRB,0.83101E+03_JPRB,0.60319E+03_JPRB,0.88832E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,16,13) = (/ &
+ & 0.10925E+04_JPRB,0.82836E+03_JPRB,0.60254E+03_JPRB,0.88762E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 5,16,13) = (/ &
+ & 0.10900E+04_JPRB,0.82283E+03_JPRB,0.60124E+03_JPRB,0.88636E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,17,13) = (/ &
+ & 0.10953E+04_JPRB,0.82596E+03_JPRB,0.60413E+03_JPRB,0.88915E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 2,17,13) = (/ &
+ & 0.10864E+04_JPRB,0.82504E+03_JPRB,0.60360E+03_JPRB,0.88842E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,17,13) = (/ &
+ & 0.10812E+04_JPRB,0.81898E+03_JPRB,0.60295E+03_JPRB,0.88822E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 4,17,13) = (/ &
+ & 0.10806E+04_JPRB,0.81706E+03_JPRB,0.60242E+03_JPRB,0.88745E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 5,17,13) = (/ &
+ & 0.10764E+04_JPRB,0.81771E+03_JPRB,0.59943E+03_JPRB,0.88638E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 1,18,13) = (/ &
+ & 0.10787E+04_JPRB,0.82265E+03_JPRB,0.60390E+03_JPRB,0.88903E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 2,18,13) = (/ &
+ & 0.10743E+04_JPRB,0.81466E+03_JPRB,0.60339E+03_JPRB,0.88738E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 3,18,13) = (/ &
+ & 0.10792E+04_JPRB,0.81648E+03_JPRB,0.60273E+03_JPRB,0.88812E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 4,18,13) = (/ &
+ & 0.10724E+04_JPRB,0.81516E+03_JPRB,0.60185E+03_JPRB,0.88728E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 5,18,13) = (/ &
+ & 0.10737E+04_JPRB,0.81301E+03_JPRB,0.60092E+03_JPRB,0.88618E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 1,19,13) = (/ &
+ & 0.10778E+04_JPRB,0.81646E+03_JPRB,0.60388E+03_JPRB,0.88893E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 2,19,13) = (/ &
+ & 0.10709E+04_JPRB,0.81021E+03_JPRB,0.60321E+03_JPRB,0.88822E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,19,13) = (/ &
+ & 0.10651E+04_JPRB,0.80945E+03_JPRB,0.60254E+03_JPRB,0.88803E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 4,19,13) = (/ &
+ & 0.10677E+04_JPRB,0.80743E+03_JPRB,0.60147E+03_JPRB,0.88735E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 5,19,13) = (/ &
+ & 0.10575E+04_JPRB,0.80245E+03_JPRB,0.60072E+03_JPRB,0.88575E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,20,13) = (/ &
+ & 0.10622E+04_JPRB,0.81096E+03_JPRB,0.60356E+03_JPRB,0.88881E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 2,20,13) = (/ &
+ & 0.10607E+04_JPRB,0.80739E+03_JPRB,0.60305E+03_JPRB,0.88816E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,20,13) = (/ &
+ & 0.10623E+04_JPRB,0.80381E+03_JPRB,0.60252E+03_JPRB,0.88792E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 4,20,13) = (/ &
+ & 0.10570E+04_JPRB,0.80456E+03_JPRB,0.60093E+03_JPRB,0.88695E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 5,20,13) = (/ &
+ & 0.10628E+04_JPRB,0.80481E+03_JPRB,0.60051E+03_JPRB,0.88554E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 1,21,13) = (/ &
+ & 0.10564E+04_JPRB,0.80721E+03_JPRB,0.60326E+03_JPRB,0.88869E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 2,21,13) = (/ &
+ & 0.10630E+04_JPRB,0.79813E+03_JPRB,0.60290E+03_JPRB,0.88813E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,21,13) = (/ &
+ & 0.10553E+04_JPRB,0.80228E+03_JPRB,0.60219E+03_JPRB,0.88781E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 4,21,13) = (/ &
+ & 0.10544E+04_JPRB,0.79888E+03_JPRB,0.60136E+03_JPRB,0.88677E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 5,21,13) = (/ &
+ & 0.10596E+04_JPRB,0.81049E+03_JPRB,0.60032E+03_JPRB,0.88532E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 1,22,13) = (/ &
+ & 0.10550E+04_JPRB,0.80310E+03_JPRB,0.60326E+03_JPRB,0.88850E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 2,22,13) = (/ &
+ & 0.10516E+04_JPRB,0.80380E+03_JPRB,0.60256E+03_JPRB,0.88810E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,22,13) = (/ &
+ & 0.10562E+04_JPRB,0.80152E+03_JPRB,0.60229E+03_JPRB,0.88764E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 4,22,13) = (/ &
+ & 0.10509E+04_JPRB,0.80224E+03_JPRB,0.60002E+03_JPRB,0.88651E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 5,22,13) = (/ &
+ & 0.10563E+04_JPRB,0.79871E+03_JPRB,0.59990E+03_JPRB,0.88500E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 1,23,13) = (/ &
+ & 0.10567E+04_JPRB,0.79860E+03_JPRB,0.60326E+03_JPRB,0.88832E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 2,23,13) = (/ &
+ & 0.10532E+04_JPRB,0.79557E+03_JPRB,0.60254E+03_JPRB,0.88806E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,23,13) = (/ &
+ & 0.10534E+04_JPRB,0.79512E+03_JPRB,0.60237E+03_JPRB,0.88744E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 4,23,13) = (/ &
+ & 0.10472E+04_JPRB,0.79721E+03_JPRB,0.60072E+03_JPRB,0.88622E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 5,23,13) = (/ &
+ & 0.10509E+04_JPRB,0.79423E+03_JPRB,0.59964E+03_JPRB,0.88466E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 1,24,13) = (/ &
+ & 0.10549E+04_JPRB,0.79502E+03_JPRB,0.60296E+03_JPRB,0.88817E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 2,24,13) = (/ &
+ & 0.10498E+04_JPRB,0.80428E+03_JPRB,0.60221E+03_JPRB,0.88799E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,24,13) = (/ &
+ & 0.10553E+04_JPRB,0.79369E+03_JPRB,0.60149E+03_JPRB,0.88721E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 4,24,13) = (/ &
+ & 0.10517E+04_JPRB,0.79240E+03_JPRB,0.60048E+03_JPRB,0.88592E+03_JPRB,0.11719E+04_JPRB /)  
+KB(:, 5,24,13) = (/ &
+ & 0.10493E+04_JPRB,0.79281E+03_JPRB,0.59936E+03_JPRB,0.88429E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 1,25,13) = (/ &
+ & 0.10472E+04_JPRB,0.79884E+03_JPRB,0.60281E+03_JPRB,0.88760E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,25,13) = (/ &
+ & 0.10433E+04_JPRB,0.79261E+03_JPRB,0.60217E+03_JPRB,0.88787E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 3,25,13) = (/ &
+ & 0.10495E+04_JPRB,0.79568E+03_JPRB,0.60138E+03_JPRB,0.88696E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 4,25,13) = (/ &
+ & 0.10412E+04_JPRB,0.79264E+03_JPRB,0.60023E+03_JPRB,0.88559E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 5,25,13) = (/ &
+ & 0.10432E+04_JPRB,0.79682E+03_JPRB,0.59908E+03_JPRB,0.88390E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 1,26,13) = (/ &
+ & 0.10426E+04_JPRB,0.79538E+03_JPRB,0.60266E+03_JPRB,0.88804E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,26,13) = (/ &
+ & 0.10459E+04_JPRB,0.79909E+03_JPRB,0.60196E+03_JPRB,0.88771E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 3,26,13) = (/ &
+ & 0.10455E+04_JPRB,0.79078E+03_JPRB,0.60113E+03_JPRB,0.88666E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 4,26,13) = (/ &
+ & 0.10380E+04_JPRB,0.79069E+03_JPRB,0.60011E+03_JPRB,0.88521E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 5,26,13) = (/ &
+ & 0.10428E+04_JPRB,0.79124E+03_JPRB,0.59892E+03_JPRB,0.88345E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 1,27,13) = (/ &
+ & 0.10409E+04_JPRB,0.79057E+03_JPRB,0.60249E+03_JPRB,0.88802E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 2,27,13) = (/ &
+ & 0.10432E+04_JPRB,0.78863E+03_JPRB,0.60172E+03_JPRB,0.88750E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 3,27,13) = (/ &
+ & 0.10404E+04_JPRB,0.79041E+03_JPRB,0.60057E+03_JPRB,0.88634E+03_JPRB,0.11728E+04_JPRB /)  
+KB(:, 4,27,13) = (/ &
+ & 0.10425E+04_JPRB,0.78854E+03_JPRB,0.59967E+03_JPRB,0.88481E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 5,27,13) = (/ &
+ & 0.10492E+04_JPRB,0.78874E+03_JPRB,0.59843E+03_JPRB,0.88297E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 1,28,13) = (/ &
+ & 0.10434E+04_JPRB,0.79273E+03_JPRB,0.60231E+03_JPRB,0.88820E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 2,28,13) = (/ &
+ & 0.10472E+04_JPRB,0.78799E+03_JPRB,0.60162E+03_JPRB,0.88726E+03_JPRB,0.11737E+04_JPRB /)  
+KB(:, 3,28,13) = (/ &
+ & 0.10366E+04_JPRB,0.79125E+03_JPRB,0.60032E+03_JPRB,0.88600E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 4,28,13) = (/ &
+ & 0.10345E+04_JPRB,0.78841E+03_JPRB,0.59938E+03_JPRB,0.88440E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 5,28,13) = (/ &
+ & 0.10534E+04_JPRB,0.78866E+03_JPRB,0.59808E+03_JPRB,0.88245E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 1,29,13) = (/ &
+ & 0.10524E+04_JPRB,0.78934E+03_JPRB,0.60181E+03_JPRB,0.88786E+03_JPRB,0.11745E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART32',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,29,13) = (/ &
+ & 0.10481E+04_JPRB,0.78588E+03_JPRB,0.60321E+03_JPRB,0.88698E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 3,29,13) = (/ &
+ & 0.10466E+04_JPRB,0.79266E+03_JPRB,0.60021E+03_JPRB,0.88562E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 4,29,13) = (/ &
+ & 0.10466E+04_JPRB,0.79965E+03_JPRB,0.59906E+03_JPRB,0.88395E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 5,29,13) = (/ &
+ & 0.10459E+04_JPRB,0.78993E+03_JPRB,0.59799E+03_JPRB,0.88185E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 1,30,13) = (/ &
+ & 0.10360E+04_JPRB,0.78916E+03_JPRB,0.60191E+03_JPRB,0.88770E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 2,30,13) = (/ &
+ & 0.10409E+04_JPRB,0.78411E+03_JPRB,0.60093E+03_JPRB,0.88667E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 3,30,13) = (/ &
+ & 0.10391E+04_JPRB,0.79193E+03_JPRB,0.59993E+03_JPRB,0.88546E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 4,30,13) = (/ &
+ & 0.10409E+04_JPRB,0.78876E+03_JPRB,0.59874E+03_JPRB,0.88348E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 5,30,13) = (/ &
+ & 0.10396E+04_JPRB,0.78722E+03_JPRB,0.59722E+03_JPRB,0.88117E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 1,31,13) = (/ &
+ & 0.10394E+04_JPRB,0.79419E+03_JPRB,0.60167E+03_JPRB,0.88749E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 2,31,13) = (/ &
+ & 0.10363E+04_JPRB,0.79203E+03_JPRB,0.60068E+03_JPRB,0.88633E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 3,31,13) = (/ &
+ & 0.10437E+04_JPRB,0.78663E+03_JPRB,0.59963E+03_JPRB,0.88481E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 4,31,13) = (/ &
+ & 0.10406E+04_JPRB,0.79000E+03_JPRB,0.59839E+03_JPRB,0.88297E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 5,31,13) = (/ &
+ & 0.10413E+04_JPRB,0.79093E+03_JPRB,0.59674E+03_JPRB,0.88044E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 1,32,13) = (/ &
+ & 0.10440E+04_JPRB,0.79014E+03_JPRB,0.60327E+03_JPRB,0.88723E+03_JPRB,0.11737E+04_JPRB /)  
+KB(:, 2,32,13) = (/ &
+ & 0.10391E+04_JPRB,0.79106E+03_JPRB,0.60042E+03_JPRB,0.88596E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 3,32,13) = (/ &
+ & 0.10467E+04_JPRB,0.78955E+03_JPRB,0.59932E+03_JPRB,0.88436E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 4,32,13) = (/ &
+ & 0.10407E+04_JPRB,0.79722E+03_JPRB,0.59818E+03_JPRB,0.88241E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 5,32,13) = (/ &
+ & 0.10382E+04_JPRB,0.78961E+03_JPRB,0.59626E+03_JPRB,0.87980E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,33,13) = (/ &
+ & 0.10522E+04_JPRB,0.78494E+03_JPRB,0.60081E+03_JPRB,0.88693E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 2,33,13) = (/ &
+ & 0.10373E+04_JPRB,0.79220E+03_JPRB,0.59999E+03_JPRB,0.88557E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 3,33,13) = (/ &
+ & 0.10359E+04_JPRB,0.78622E+03_JPRB,0.59900E+03_JPRB,0.88389E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 4,33,13) = (/ &
+ & 0.10377E+04_JPRB,0.78474E+03_JPRB,0.59760E+03_JPRB,0.88177E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 5,33,13) = (/ &
+ & 0.10406E+04_JPRB,0.78876E+03_JPRB,0.59580E+03_JPRB,0.87933E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 1,34,13) = (/ &
+ & 0.10360E+04_JPRB,0.79366E+03_JPRB,0.60074E+03_JPRB,0.88666E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 2,34,13) = (/ &
+ & 0.10445E+04_JPRB,0.78362E+03_JPRB,0.59974E+03_JPRB,0.88521E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 3,34,13) = (/ &
+ & 0.10445E+04_JPRB,0.78784E+03_JPRB,0.59871E+03_JPRB,0.88346E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 4,34,13) = (/ &
+ & 0.10420E+04_JPRB,0.78840E+03_JPRB,0.59718E+03_JPRB,0.88091E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 5,34,13) = (/ &
+ & 0.10384E+04_JPRB,0.79182E+03_JPRB,0.59540E+03_JPRB,0.87927E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 1,35,13) = (/ &
+ & 0.10422E+04_JPRB,0.79326E+03_JPRB,0.60077E+03_JPRB,0.88648E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 2,35,13) = (/ &
+ & 0.10360E+04_JPRB,0.79158E+03_JPRB,0.59975E+03_JPRB,0.88500E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,35,13) = (/ &
+ & 0.10370E+04_JPRB,0.78869E+03_JPRB,0.59854E+03_JPRB,0.88320E+03_JPRB,0.11683E+04_JPRB /)  
+KB(:, 4,35,13) = (/ &
+ & 0.10364E+04_JPRB,0.79354E+03_JPRB,0.59694E+03_JPRB,0.88077E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 5,35,13) = (/ &
+ & 0.10369E+04_JPRB,0.78943E+03_JPRB,0.59473E+03_JPRB,0.87892E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 1,36,13) = (/ &
+ & 0.10401E+04_JPRB,0.78191E+03_JPRB,0.60075E+03_JPRB,0.88645E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 2,36,13) = (/ &
+ & 0.10371E+04_JPRB,0.78614E+03_JPRB,0.59972E+03_JPRB,0.88519E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,36,13) = (/ &
+ & 0.10392E+04_JPRB,0.78550E+03_JPRB,0.59835E+03_JPRB,0.88339E+03_JPRB,0.11683E+04_JPRB /)  
+KB(:, 4,36,13) = (/ &
+ & 0.10378E+04_JPRB,0.78649E+03_JPRB,0.59690E+03_JPRB,0.88071E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 5,36,13) = (/ &
+ & 0.10389E+04_JPRB,0.79012E+03_JPRB,0.59516E+03_JPRB,0.87821E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 1,37,13) = (/ &
+ & 0.10397E+04_JPRB,0.78790E+03_JPRB,0.60071E+03_JPRB,0.88662E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 2,37,13) = (/ &
+ & 0.10413E+04_JPRB,0.78135E+03_JPRB,0.59986E+03_JPRB,0.88540E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 3,37,13) = (/ &
+ & 0.10434E+04_JPRB,0.78885E+03_JPRB,0.59867E+03_JPRB,0.88341E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 4,37,13) = (/ &
+ & 0.10382E+04_JPRB,0.79636E+03_JPRB,0.59698E+03_JPRB,0.88108E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 5,37,13) = (/ &
+ & 0.10369E+04_JPRB,0.78656E+03_JPRB,0.59536E+03_JPRB,0.87879E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 1,38,13) = (/ &
+ & 0.10433E+04_JPRB,0.78475E+03_JPRB,0.60099E+03_JPRB,0.88680E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 2,38,13) = (/ &
+ & 0.10422E+04_JPRB,0.78187E+03_JPRB,0.60001E+03_JPRB,0.88539E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 3,38,13) = (/ &
+ & 0.10376E+04_JPRB,0.78470E+03_JPRB,0.59854E+03_JPRB,0.88368E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 4,38,13) = (/ &
+ & 0.10379E+04_JPRB,0.78467E+03_JPRB,0.59739E+03_JPRB,0.88147E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 5,38,13) = (/ &
+ & 0.10346E+04_JPRB,0.79279E+03_JPRB,0.59559E+03_JPRB,0.87849E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 1,39,13) = (/ &
+ & 0.10564E+04_JPRB,0.79016E+03_JPRB,0.60113E+03_JPRB,0.88696E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 2,39,13) = (/ &
+ & 0.10405E+04_JPRB,0.78139E+03_JPRB,0.59938E+03_JPRB,0.88561E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 3,39,13) = (/ &
+ & 0.10386E+04_JPRB,0.79256E+03_JPRB,0.59902E+03_JPRB,0.88393E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 4,39,13) = (/ &
+ & 0.10351E+04_JPRB,0.78501E+03_JPRB,0.59779E+03_JPRB,0.88184E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 5,39,13) = (/ &
+ & 0.10353E+04_JPRB,0.78561E+03_JPRB,0.59583E+03_JPRB,0.87937E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,40,13) = (/ &
+ & 0.10351E+04_JPRB,0.78501E+03_JPRB,0.60325E+03_JPRB,0.88723E+03_JPRB,0.11737E+04_JPRB /)  
+KB(:, 2,40,13) = (/ &
+ & 0.10332E+04_JPRB,0.78519E+03_JPRB,0.60040E+03_JPRB,0.88596E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 3,40,13) = (/ &
+ & 0.10393E+04_JPRB,0.78843E+03_JPRB,0.59931E+03_JPRB,0.88436E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 4,40,13) = (/ &
+ & 0.10339E+04_JPRB,0.78821E+03_JPRB,0.59801E+03_JPRB,0.88242E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,40,13) = (/ &
+ & 0.10476E+04_JPRB,0.78616E+03_JPRB,0.59626E+03_JPRB,0.87958E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,41,13) = (/ &
+ & 0.10420E+04_JPRB,0.78658E+03_JPRB,0.60226E+03_JPRB,0.88748E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 2,41,13) = (/ &
+ & 0.10471E+04_JPRB,0.78433E+03_JPRB,0.60065E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 3,41,13) = (/ &
+ & 0.10385E+04_JPRB,0.78777E+03_JPRB,0.59960E+03_JPRB,0.88480E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 4,41,13) = (/ &
+ & 0.10374E+04_JPRB,0.79305E+03_JPRB,0.59837E+03_JPRB,0.88319E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 5,41,13) = (/ &
+ & 0.10341E+04_JPRB,0.79121E+03_JPRB,0.59671E+03_JPRB,0.88067E+03_JPRB,0.11641E+04_JPRB /)  
+KB(:, 1,42,13) = (/ &
+ & 0.10427E+04_JPRB,0.78654E+03_JPRB,0.60202E+03_JPRB,0.88768E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 2,42,13) = (/ &
+ & 0.10376E+04_JPRB,0.78774E+03_JPRB,0.60073E+03_JPRB,0.88666E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 3,42,13) = (/ &
+ & 0.10387E+04_JPRB,0.78631E+03_JPRB,0.59989E+03_JPRB,0.88522E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 4,42,13) = (/ &
+ & 0.10432E+04_JPRB,0.79240E+03_JPRB,0.59870E+03_JPRB,0.88347E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 5,42,13) = (/ &
+ & 0.10408E+04_JPRB,0.78283E+03_JPRB,0.59718E+03_JPRB,0.88116E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 1,43,13) = (/ &
+ & 0.10384E+04_JPRB,0.78732E+03_JPRB,0.60211E+03_JPRB,0.88787E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 2,43,13) = (/ &
+ & 0.10392E+04_JPRB,0.79483E+03_JPRB,0.60103E+03_JPRB,0.88703E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 3,43,13) = (/ &
+ & 0.10435E+04_JPRB,0.79279E+03_JPRB,0.60022E+03_JPRB,0.88570E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 4,43,13) = (/ &
+ & 0.10453E+04_JPRB,0.78261E+03_JPRB,0.59909E+03_JPRB,0.88405E+03_JPRB,0.11698E+04_JPRB /)  
+KB(:, 5,43,13) = (/ &
+ & 0.10349E+04_JPRB,0.78239E+03_JPRB,0.59773E+03_JPRB,0.88200E+03_JPRB,0.11670E+04_JPRB /)  
+KB(:, 1,44,13) = (/ &
+ & 0.10376E+04_JPRB,0.78973E+03_JPRB,0.60218E+03_JPRB,0.88797E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 2,44,13) = (/ &
+ & 0.10357E+04_JPRB,0.79073E+03_JPRB,0.60154E+03_JPRB,0.88738E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 3,44,13) = (/ &
+ & 0.10381E+04_JPRB,0.78584E+03_JPRB,0.60056E+03_JPRB,0.88619E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 4,44,13) = (/ &
+ & 0.10410E+04_JPRB,0.78726E+03_JPRB,0.59965E+03_JPRB,0.88464E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 5,44,13) = (/ &
+ & 0.10370E+04_JPRB,0.78461E+03_JPRB,0.59824E+03_JPRB,0.88299E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 1,45,13) = (/ &
+ & 0.10383E+04_JPRB,0.78177E+03_JPRB,0.60254E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,45,13) = (/ &
+ & 0.10337E+04_JPRB,0.78400E+03_JPRB,0.60200E+03_JPRB,0.88790E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 3,45,13) = (/ &
+ & 0.10407E+04_JPRB,0.78928E+03_JPRB,0.60087E+03_JPRB,0.88664E+03_JPRB,0.11732E+04_JPRB /)  
+KB(:, 4,45,13) = (/ &
+ & 0.10410E+04_JPRB,0.79578E+03_JPRB,0.59987E+03_JPRB,0.88519E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 5,45,13) = (/ &
+ & 0.10369E+04_JPRB,0.78337E+03_JPRB,0.59884E+03_JPRB,0.88344E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 1,46,13) = (/ &
+ & 0.10415E+04_JPRB,0.79090E+03_JPRB,0.60272E+03_JPRB,0.88805E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 2,46,13) = (/ &
+ & 0.10332E+04_JPRB,0.79374E+03_JPRB,0.60213E+03_JPRB,0.88788E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,46,13) = (/ &
+ & 0.10495E+04_JPRB,0.78743E+03_JPRB,0.60122E+03_JPRB,0.88707E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 4,46,13) = (/ &
+ & 0.10359E+04_JPRB,0.78275E+03_JPRB,0.60025E+03_JPRB,0.88575E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 5,46,13) = (/ &
+ & 0.10407E+04_JPRB,0.79210E+03_JPRB,0.59913E+03_JPRB,0.88411E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 1,47,13) = (/ &
+ & 0.10396E+04_JPRB,0.78478E+03_JPRB,0.60291E+03_JPRB,0.88833E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 2,47,13) = (/ &
+ & 0.10391E+04_JPRB,0.78254E+03_JPRB,0.60239E+03_JPRB,0.88798E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,47,13) = (/ &
+ & 0.10358E+04_JPRB,0.79087E+03_JPRB,0.60194E+03_JPRB,0.88748E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 4,47,13) = (/ &
+ & 0.10382E+04_JPRB,0.78212E+03_JPRB,0.60065E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 5,47,13) = (/ &
+ & 0.10417E+04_JPRB,0.78639E+03_JPRB,0.59976E+03_JPRB,0.88480E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 1,48,13) = (/ &
+ & 0.10401E+04_JPRB,0.78456E+03_JPRB,0.60307E+03_JPRB,0.88865E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 2,48,13) = (/ &
+ & 0.10385E+04_JPRB,0.78639E+03_JPRB,0.60262E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,48,13) = (/ &
+ & 0.10377E+04_JPRB,0.78374E+03_JPRB,0.60183E+03_JPRB,0.88778E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 4,48,13) = (/ &
+ & 0.10347E+04_JPRB,0.78455E+03_JPRB,0.60102E+03_JPRB,0.88707E+03_JPRB,0.11732E+04_JPRB /)  
+KB(:, 5,48,13) = (/ &
+ & 0.10420E+04_JPRB,0.79085E+03_JPRB,0.60005E+03_JPRB,0.88545E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 1,49,13) = (/ &
+ & 0.10372E+04_JPRB,0.78740E+03_JPRB,0.60317E+03_JPRB,0.88862E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 2,49,13) = (/ &
+ & 0.10417E+04_JPRB,0.78862E+03_JPRB,0.60282E+03_JPRB,0.88818E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 3,49,13) = (/ &
+ & 0.10345E+04_JPRB,0.78780E+03_JPRB,0.60227E+03_JPRB,0.88818E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,49,13) = (/ &
+ & 0.10406E+04_JPRB,0.78617E+03_JPRB,0.60221E+03_JPRB,0.88729E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 5,49,13) = (/ &
+ & 0.10382E+04_JPRB,0.79023E+03_JPRB,0.60061E+03_JPRB,0.88605E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,50,13) = (/ &
+ & 0.10347E+04_JPRB,0.79207E+03_JPRB,0.60367E+03_JPRB,0.88900E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,50,13) = (/ &
+ & 0.10350E+04_JPRB,0.78739E+03_JPRB,0.60298E+03_JPRB,0.88872E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 3,50,13) = (/ &
+ & 0.10353E+04_JPRB,0.78433E+03_JPRB,0.60234E+03_JPRB,0.88799E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 4,50,13) = (/ &
+ & 0.10489E+04_JPRB,0.79267E+03_JPRB,0.60164E+03_JPRB,0.88763E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 5,50,13) = (/ &
+ & 0.10406E+04_JPRB,0.78514E+03_JPRB,0.60019E+03_JPRB,0.88656E+03_JPRB,0.11728E+04_JPRB /)  
+KB(:, 1,51,13) = (/ &
+ & 0.10345E+04_JPRB,0.78799E+03_JPRB,0.60398E+03_JPRB,0.88932E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 2,51,13) = (/ &
+ & 0.10401E+04_JPRB,0.78697E+03_JPRB,0.60314E+03_JPRB,0.88874E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,51,13) = (/ &
+ & 0.10366E+04_JPRB,0.78656E+03_JPRB,0.60285E+03_JPRB,0.88803E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 4,51,13) = (/ &
+ & 0.10374E+04_JPRB,0.78473E+03_JPRB,0.60240E+03_JPRB,0.88809E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,51,13) = (/ &
+ & 0.10390E+04_JPRB,0.78920E+03_JPRB,0.60116E+03_JPRB,0.88701E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,52,13) = (/ &
+ & 0.10369E+04_JPRB,0.78758E+03_JPRB,0.60425E+03_JPRB,0.88974E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 2,52,13) = (/ &
+ & 0.10369E+04_JPRB,0.78229E+03_JPRB,0.60357E+03_JPRB,0.88889E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 3,52,13) = (/ &
+ & 0.10371E+04_JPRB,0.78737E+03_JPRB,0.60287E+03_JPRB,0.88826E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 4,52,13) = (/ &
+ & 0.10414E+04_JPRB,0.78574E+03_JPRB,0.60234E+03_JPRB,0.88797E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 5,52,13) = (/ &
+ & 0.10377E+04_JPRB,0.78696E+03_JPRB,0.60170E+03_JPRB,0.88739E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 1,53,13) = (/ &
+ & 0.10446E+04_JPRB,0.78533E+03_JPRB,0.60451E+03_JPRB,0.89022E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 2,53,13) = (/ &
+ & 0.10366E+04_JPRB,0.78675E+03_JPRB,0.60391E+03_JPRB,0.88907E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 3,53,13) = (/ &
+ & 0.10339E+04_JPRB,0.78472E+03_JPRB,0.60302E+03_JPRB,0.88857E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 4,53,13) = (/ &
+ & 0.10347E+04_JPRB,0.78858E+03_JPRB,0.60271E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 5,53,13) = (/ &
+ & 0.10414E+04_JPRB,0.78370E+03_JPRB,0.60188E+03_JPRB,0.88770E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 1,54,13) = (/ &
+ & 0.10366E+04_JPRB,0.78980E+03_JPRB,0.60463E+03_JPRB,0.89072E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 2,54,13) = (/ &
+ & 0.10376E+04_JPRB,0.78289E+03_JPRB,0.60402E+03_JPRB,0.88939E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 3,54,13) = (/ &
+ & 0.10387E+04_JPRB,0.78695E+03_JPRB,0.60318E+03_JPRB,0.88877E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,54,13) = (/ &
+ & 0.10435E+04_JPRB,0.78370E+03_JPRB,0.60273E+03_JPRB,0.88806E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 5,54,13) = (/ &
+ & 0.10492E+04_JPRB,0.79000E+03_JPRB,0.60214E+03_JPRB,0.88789E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 1,55,13) = (/ &
+ & 0.10395E+04_JPRB,0.78654E+03_JPRB,0.60524E+03_JPRB,0.89136E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,55,13) = (/ &
+ & 0.10379E+04_JPRB,0.78553E+03_JPRB,0.60426E+03_JPRB,0.88977E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 3,55,13) = (/ &
+ & 0.10376E+04_JPRB,0.78959E+03_JPRB,0.60343E+03_JPRB,0.88890E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 4,55,13) = (/ &
+ & 0.10360E+04_JPRB,0.78634E+03_JPRB,0.60272E+03_JPRB,0.88828E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 5,55,13) = (/ &
+ & 0.10355E+04_JPRB,0.78796E+03_JPRB,0.60219E+03_JPRB,0.88821E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 1,56,13) = (/ &
+ & 0.10500E+04_JPRB,0.78471E+03_JPRB,0.60540E+03_JPRB,0.89210E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,56,13) = (/ &
+ & 0.10441E+04_JPRB,0.78735E+03_JPRB,0.60449E+03_JPRB,0.89019E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 3,56,13) = (/ &
+ & 0.10382E+04_JPRB,0.78755E+03_JPRB,0.60374E+03_JPRB,0.88905E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,56,13) = (/ &
+ & 0.10470E+04_JPRB,0.78715E+03_JPRB,0.60301E+03_JPRB,0.88855E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 5,56,13) = (/ &
+ & 0.10358E+04_JPRB,0.78674E+03_JPRB,0.60270E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 1,57,13) = (/ &
+ & 0.10339E+04_JPRB,0.78715E+03_JPRB,0.60588E+03_JPRB,0.89295E+03_JPRB,0.11828E+04_JPRB /)  
+KB(:, 2,57,13) = (/ &
+ & 0.10441E+04_JPRB,0.78267E+03_JPRB,0.60475E+03_JPRB,0.89065E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 3,57,13) = (/ &
+ & 0.10435E+04_JPRB,0.78938E+03_JPRB,0.60399E+03_JPRB,0.88934E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 4,57,13) = (/ &
+ & 0.10392E+04_JPRB,0.79203E+03_JPRB,0.60300E+03_JPRB,0.88875E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,57,13) = (/ &
+ & 0.10360E+04_JPRB,0.78491E+03_JPRB,0.60271E+03_JPRB,0.88827E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 1,58,13) = (/ &
+ & 0.10392E+04_JPRB,0.78430E+03_JPRB,0.60601E+03_JPRB,0.89398E+03_JPRB,0.11847E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART33',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,58,13) = (/ &
+ & 0.10363E+04_JPRB,0.78694E+03_JPRB,0.60503E+03_JPRB,0.89124E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,58,13) = (/ &
+ & 0.10360E+04_JPRB,0.78084E+03_JPRB,0.60391E+03_JPRB,0.88970E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,58,13) = (/ &
+ & 0.10459E+04_JPRB,0.78267E+03_JPRB,0.60338E+03_JPRB,0.88888E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 5,58,13) = (/ &
+ & 0.10368E+04_JPRB,0.79101E+03_JPRB,0.60285E+03_JPRB,0.88823E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 1,59,13) = (/ &
+ & 0.10403E+04_JPRB,0.78613E+03_JPRB,0.60612E+03_JPRB,0.89444E+03_JPRB,0.11849E+04_JPRB /)  
+KB(:, 2,59,13) = (/ &
+ & 0.10349E+04_JPRB,0.78531E+03_JPRB,0.60514E+03_JPRB,0.89150E+03_JPRB,0.11802E+04_JPRB /)  
+KB(:, 3,59,13) = (/ &
+ & 0.10360E+04_JPRB,0.78470E+03_JPRB,0.60447E+03_JPRB,0.88985E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,59,13) = (/ &
+ & 0.10411E+04_JPRB,0.78531E+03_JPRB,0.60349E+03_JPRB,0.88892E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 5,59,13) = (/ &
+ & 0.10355E+04_JPRB,0.78795E+03_JPRB,0.60275E+03_JPRB,0.88833E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 1,13,14) = (/ &
+ & 0.12194E+04_JPRB,0.91192E+03_JPRB,0.60649E+03_JPRB,0.89289E+03_JPRB,0.11803E+04_JPRB /)  
+KB(:, 2,13,14) = (/ &
+ & 0.11340E+04_JPRB,0.93388E+03_JPRB,0.60565E+03_JPRB,0.89163E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 3,13,14) = (/ &
+ & 0.11287E+04_JPRB,0.93154E+03_JPRB,0.60510E+03_JPRB,0.89077E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 4,13,14) = (/ &
+ & 0.11571E+04_JPRB,0.89198E+03_JPRB,0.60383E+03_JPRB,0.88977E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 5,13,14) = (/ &
+ & 0.11232E+04_JPRB,0.85932E+03_JPRB,0.60280E+03_JPRB,0.88865E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 1,14,14) = (/ &
+ & 0.11313E+04_JPRB,0.85574E+03_JPRB,0.60604E+03_JPRB,0.89259E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 2,14,14) = (/ &
+ & 0.11392E+04_JPRB,0.85278E+03_JPRB,0.60523E+03_JPRB,0.89143E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 3,14,14) = (/ &
+ & 0.11402E+04_JPRB,0.86846E+03_JPRB,0.60420E+03_JPRB,0.89055E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 4,14,14) = (/ &
+ & 0.11058E+04_JPRB,0.85128E+03_JPRB,0.60339E+03_JPRB,0.88920E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 5,14,14) = (/ &
+ & 0.11286E+04_JPRB,0.84325E+03_JPRB,0.60241E+03_JPRB,0.88842E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 1,15,14) = (/ &
+ & 0.11349E+04_JPRB,0.84417E+03_JPRB,0.60541E+03_JPRB,0.89231E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 2,15,14) = (/ &
+ & 0.11015E+04_JPRB,0.88045E+03_JPRB,0.60487E+03_JPRB,0.89125E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,15,14) = (/ &
+ & 0.11261E+04_JPRB,0.83776E+03_JPRB,0.60408E+03_JPRB,0.89034E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 4,15,14) = (/ &
+ & 0.10962E+04_JPRB,0.86597E+03_JPRB,0.60302E+03_JPRB,0.88937E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 5,15,14) = (/ &
+ & 0.10995E+04_JPRB,0.86095E+03_JPRB,0.60207E+03_JPRB,0.88855E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,16,14) = (/ &
+ & 0.11556E+04_JPRB,0.89943E+03_JPRB,0.60533E+03_JPRB,0.89241E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,16,14) = (/ &
+ & 0.10928E+04_JPRB,0.87845E+03_JPRB,0.60456E+03_JPRB,0.89108E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 3,16,14) = (/ &
+ & 0.11526E+04_JPRB,0.84568E+03_JPRB,0.60375E+03_JPRB,0.89014E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,16,14) = (/ &
+ & 0.11224E+04_JPRB,0.82958E+03_JPRB,0.60245E+03_JPRB,0.88919E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,16,14) = (/ &
+ & 0.11104E+04_JPRB,0.83492E+03_JPRB,0.60177E+03_JPRB,0.88796E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 1,17,14) = (/ &
+ & 0.11093E+04_JPRB,0.86391E+03_JPRB,0.60505E+03_JPRB,0.89183E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 2,17,14) = (/ &
+ & 0.10879E+04_JPRB,0.83992E+03_JPRB,0.60455E+03_JPRB,0.89093E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 3,17,14) = (/ &
+ & 0.11180E+04_JPRB,0.83675E+03_JPRB,0.60345E+03_JPRB,0.88997E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,17,14) = (/ &
+ & 0.11203E+04_JPRB,0.81299E+03_JPRB,0.60195E+03_JPRB,0.88902E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 5,17,14) = (/ &
+ & 0.10902E+04_JPRB,0.84755E+03_JPRB,0.60151E+03_JPRB,0.88739E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 1,18,14) = (/ &
+ & 0.10889E+04_JPRB,0.82171E+03_JPRB,0.60482E+03_JPRB,0.89199E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,18,14) = (/ &
+ & 0.10836E+04_JPRB,0.85518E+03_JPRB,0.60408E+03_JPRB,0.89079E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 3,18,14) = (/ &
+ & 0.10919E+04_JPRB,0.82437E+03_JPRB,0.60318E+03_JPRB,0.88981E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 4,18,14) = (/ &
+ & 0.11143E+04_JPRB,0.86811E+03_JPRB,0.60223E+03_JPRB,0.88886E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 5,18,14) = (/ &
+ & 0.10618E+04_JPRB,0.80694E+03_JPRB,0.60104E+03_JPRB,0.88718E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 1,19,14) = (/ &
+ & 0.10700E+04_JPRB,0.81179E+03_JPRB,0.60437E+03_JPRB,0.89145E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 2,19,14) = (/ &
+ & 0.11096E+04_JPRB,0.84185E+03_JPRB,0.60389E+03_JPRB,0.89066E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 3,19,14) = (/ &
+ & 0.10919E+04_JPRB,0.82575E+03_JPRB,0.60295E+03_JPRB,0.89004E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 4,19,14) = (/ &
+ & 0.10874E+04_JPRB,0.81974E+03_JPRB,0.60205E+03_JPRB,0.88835E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 5,19,14) = (/ &
+ & 0.11077E+04_JPRB,0.86723E+03_JPRB,0.60084E+03_JPRB,0.88734E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 1,20,14) = (/ &
+ & 0.10813E+04_JPRB,0.82037E+03_JPRB,0.60443E+03_JPRB,0.89128E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 2,20,14) = (/ &
+ & 0.10944E+04_JPRB,0.83718E+03_JPRB,0.60369E+03_JPRB,0.89052E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,20,14) = (/ &
+ & 0.10922E+04_JPRB,0.81527E+03_JPRB,0.60248E+03_JPRB,0.88953E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 4,20,14) = (/ &
+ & 0.10962E+04_JPRB,0.82815E+03_JPRB,0.60188E+03_JPRB,0.88854E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 5,20,14) = (/ &
+ & 0.10768E+04_JPRB,0.81150E+03_JPRB,0.60064E+03_JPRB,0.88711E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,21,14) = (/ &
+ & 0.10919E+04_JPRB,0.79941E+03_JPRB,0.60426E+03_JPRB,0.89114E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 2,21,14) = (/ &
+ & 0.10481E+04_JPRB,0.83111E+03_JPRB,0.60351E+03_JPRB,0.89037E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 3,21,14) = (/ &
+ & 0.10716E+04_JPRB,0.81475E+03_JPRB,0.60253E+03_JPRB,0.88975E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 4,21,14) = (/ &
+ & 0.11197E+04_JPRB,0.80344E+03_JPRB,0.60123E+03_JPRB,0.88837E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 5,21,14) = (/ &
+ & 0.10436E+04_JPRB,0.80977E+03_JPRB,0.60045E+03_JPRB,0.88688E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 1,22,14) = (/ &
+ & 0.11028E+04_JPRB,0.82019E+03_JPRB,0.60406E+03_JPRB,0.89099E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 2,22,14) = (/ &
+ & 0.10664E+04_JPRB,0.84127E+03_JPRB,0.60327E+03_JPRB,0.89089E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 3,22,14) = (/ &
+ & 0.10764E+04_JPRB,0.83101E+03_JPRB,0.60182E+03_JPRB,0.88920E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 4,22,14) = (/ &
+ & 0.10955E+04_JPRB,0.82928E+03_JPRB,0.60175E+03_JPRB,0.88811E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 5,22,14) = (/ &
+ & 0.10429E+04_JPRB,0.82150E+03_JPRB,0.60042E+03_JPRB,0.88653E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 1,23,14) = (/ &
+ & 0.10449E+04_JPRB,0.79677E+03_JPRB,0.60363E+03_JPRB,0.89084E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 2,23,14) = (/ &
+ & 0.10443E+04_JPRB,0.81477E+03_JPRB,0.60352E+03_JPRB,0.88994E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 3,23,14) = (/ &
+ & 0.10490E+04_JPRB,0.84026E+03_JPRB,0.60112E+03_JPRB,0.88900E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,23,14) = (/ &
+ & 0.10652E+04_JPRB,0.80737E+03_JPRB,0.60128E+03_JPRB,0.88783E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 5,23,14) = (/ &
+ & 0.10777E+04_JPRB,0.80975E+03_JPRB,0.60014E+03_JPRB,0.88615E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 1,24,14) = (/ &
+ & 0.10587E+04_JPRB,0.83370E+03_JPRB,0.60369E+03_JPRB,0.89067E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 2,24,14) = (/ &
+ & 0.10413E+04_JPRB,0.79049E+03_JPRB,0.60278E+03_JPRB,0.88972E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 3,24,14) = (/ &
+ & 0.10508E+04_JPRB,0.83928E+03_JPRB,0.60192E+03_JPRB,0.88879E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 4,24,14) = (/ &
+ & 0.10667E+04_JPRB,0.80304E+03_JPRB,0.60105E+03_JPRB,0.88752E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 5,24,14) = (/ &
+ & 0.10776E+04_JPRB,0.78685E+03_JPRB,0.59985E+03_JPRB,0.88574E+03_JPRB,0.11716E+04_JPRB /)  
+KB(:, 1,25,14) = (/ &
+ & 0.10559E+04_JPRB,0.78648E+03_JPRB,0.60348E+03_JPRB,0.89048E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 2,25,14) = (/ &
+ & 0.10600E+04_JPRB,0.81980E+03_JPRB,0.60253E+03_JPRB,0.88951E+03_JPRB,0.11766E+04_JPRB /)  
+KB(:, 3,25,14) = (/ &
+ & 0.10484E+04_JPRB,0.79331E+03_JPRB,0.60149E+03_JPRB,0.88854E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 4,25,14) = (/ &
+ & 0.11000E+04_JPRB,0.80548E+03_JPRB,0.60080E+03_JPRB,0.88717E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 5,25,14) = (/ &
+ & 0.11165E+04_JPRB,0.79968E+03_JPRB,0.59952E+03_JPRB,0.88528E+03_JPRB,0.11711E+04_JPRB /)  
+KB(:, 1,26,14) = (/ &
+ & 0.10604E+04_JPRB,0.79570E+03_JPRB,0.60325E+03_JPRB,0.89026E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,26,14) = (/ &
+ & 0.10870E+04_JPRB,0.78311E+03_JPRB,0.60230E+03_JPRB,0.88929E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 3,26,14) = (/ &
+ & 0.10476E+04_JPRB,0.79338E+03_JPRB,0.60128E+03_JPRB,0.88826E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 4,26,14) = (/ &
+ & 0.10459E+04_JPRB,0.80175E+03_JPRB,0.60027E+03_JPRB,0.88677E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 5,26,14) = (/ &
+ & 0.10485E+04_JPRB,0.81112E+03_JPRB,0.59892E+03_JPRB,0.88476E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 1,27,14) = (/ &
+ & 0.10458E+04_JPRB,0.79457E+03_JPRB,0.60301E+03_JPRB,0.89001E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 2,27,14) = (/ &
+ & 0.10576E+04_JPRB,0.79170E+03_JPRB,0.60208E+03_JPRB,0.88906E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 3,27,14) = (/ &
+ & 0.10632E+04_JPRB,0.79464E+03_JPRB,0.60130E+03_JPRB,0.88794E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 4,27,14) = (/ &
+ & 0.10506E+04_JPRB,0.80916E+03_JPRB,0.60021E+03_JPRB,0.88633E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 5,27,14) = (/ &
+ & 0.10406E+04_JPRB,0.79035E+03_JPRB,0.59878E+03_JPRB,0.88422E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 1,28,14) = (/ &
+ & 0.10390E+04_JPRB,0.79142E+03_JPRB,0.60274E+03_JPRB,0.88940E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 2,28,14) = (/ &
+ & 0.10793E+04_JPRB,0.84664E+03_JPRB,0.60165E+03_JPRB,0.88883E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,28,14) = (/ &
+ & 0.10389E+04_JPRB,0.81244E+03_JPRB,0.60106E+03_JPRB,0.88760E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 4,28,14) = (/ &
+ & 0.10910E+04_JPRB,0.82250E+03_JPRB,0.59988E+03_JPRB,0.88586E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 5,28,14) = (/ &
+ & 0.10984E+04_JPRB,0.79766E+03_JPRB,0.59863E+03_JPRB,0.88510E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 1,29,14) = (/ &
+ & 0.10453E+04_JPRB,0.79421E+03_JPRB,0.60249E+03_JPRB,0.88988E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,29,14) = (/ &
+ & 0.10759E+04_JPRB,0.85231E+03_JPRB,0.59780E+03_JPRB,0.88856E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 3,29,14) = (/ &
+ & 0.10355E+04_JPRB,0.83260E+03_JPRB,0.60079E+03_JPRB,0.88721E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 4,29,14) = (/ &
+ & 0.10260E+04_JPRB,0.78313E+03_JPRB,0.59953E+03_JPRB,0.88535E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 5,29,14) = (/ &
+ & 0.10495E+04_JPRB,0.79101E+03_JPRB,0.59751E+03_JPRB,0.88309E+03_JPRB,0.11682E+04_JPRB /)  
+KB(:, 1,30,14) = (/ &
+ & 0.10479E+04_JPRB,0.78753E+03_JPRB,0.60225E+03_JPRB,0.88928E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 2,30,14) = (/ &
+ & 0.10451E+04_JPRB,0.80563E+03_JPRB,0.60150E+03_JPRB,0.88827E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,30,14) = (/ &
+ & 0.10758E+04_JPRB,0.79525E+03_JPRB,0.60050E+03_JPRB,0.88643E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,30,14) = (/ &
+ & 0.10781E+04_JPRB,0.79929E+03_JPRB,0.59916E+03_JPRB,0.88480E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 5,30,14) = (/ &
+ & 0.10459E+04_JPRB,0.81358E+03_JPRB,0.59790E+03_JPRB,0.88220E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 1,31,14) = (/ &
+ & 0.10607E+04_JPRB,0.80146E+03_JPRB,0.60204E+03_JPRB,0.88905E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,31,14) = (/ &
+ & 0.10395E+04_JPRB,0.78822E+03_JPRB,0.60127E+03_JPRB,0.88793E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,31,14) = (/ &
+ & 0.10321E+04_JPRB,0.80923E+03_JPRB,0.60018E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 4,31,14) = (/ &
+ & 0.11042E+04_JPRB,0.80049E+03_JPRB,0.59875E+03_JPRB,0.88457E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 5,31,14) = (/ &
+ & 0.10581E+04_JPRB,0.80105E+03_JPRB,0.59750E+03_JPRB,0.88200E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 1,32,14) = (/ &
+ & 0.10889E+04_JPRB,0.84488E+03_JPRB,0.59867E+03_JPRB,0.88880E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 2,32,14) = (/ &
+ & 0.10428E+04_JPRB,0.79586E+03_JPRB,0.60101E+03_JPRB,0.88756E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 3,32,14) = (/ &
+ & 0.10671E+04_JPRB,0.82487E+03_JPRB,0.59984E+03_JPRB,0.88582E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 4,32,14) = (/ &
+ & 0.10426E+04_JPRB,0.83726E+03_JPRB,0.59809E+03_JPRB,0.88469E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 5,32,14) = (/ &
+ & 0.10522E+04_JPRB,0.80937E+03_JPRB,0.59684E+03_JPRB,0.88175E+03_JPRB,0.11659E+04_JPRB /)  
+KB(:, 1,33,14) = (/ &
+ & 0.10391E+04_JPRB,0.79980E+03_JPRB,0.60166E+03_JPRB,0.88852E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 2,33,14) = (/ &
+ & 0.10719E+04_JPRB,0.78917E+03_JPRB,0.60073E+03_JPRB,0.88751E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 3,33,14) = (/ &
+ & 0.10389E+04_JPRB,0.82235E+03_JPRB,0.59947E+03_JPRB,0.88564E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 4,33,14) = (/ &
+ & 0.10819E+04_JPRB,0.81877E+03_JPRB,0.59794E+03_JPRB,0.88337E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,33,14) = (/ &
+ & 0.10266E+04_JPRB,0.78772E+03_JPRB,0.59642E+03_JPRB,0.88112E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 1,34,14) = (/ &
+ & 0.10675E+04_JPRB,0.78932E+03_JPRB,0.60147E+03_JPRB,0.88789E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 2,34,14) = (/ &
+ & 0.10375E+04_JPRB,0.79310E+03_JPRB,0.60047E+03_JPRB,0.88677E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 3,34,14) = (/ &
+ & 0.10378E+04_JPRB,0.82372E+03_JPRB,0.59913E+03_JPRB,0.88478E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 4,34,14) = (/ &
+ & 0.10677E+04_JPRB,0.78757E+03_JPRB,0.59836E+03_JPRB,0.88254E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 5,34,14) = (/ &
+ & 0.10419E+04_JPRB,0.77666E+03_JPRB,0.59604E+03_JPRB,0.87984E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 1,35,14) = (/ &
+ & 0.10613E+04_JPRB,0.80031E+03_JPRB,0.60136E+03_JPRB,0.88808E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,35,14) = (/ &
+ & 0.11118E+04_JPRB,0.80250E+03_JPRB,0.60031E+03_JPRB,0.88654E+03_JPRB,0.11732E+04_JPRB /)  
+KB(:, 3,35,14) = (/ &
+ & 0.10759E+04_JPRB,0.83185E+03_JPRB,0.59892E+03_JPRB,0.88448E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 4,35,14) = (/ &
+ & 0.11049E+04_JPRB,0.77622E+03_JPRB,0.59743E+03_JPRB,0.88477E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 5,35,14) = (/ &
+ & 0.10459E+04_JPRB,0.78322E+03_JPRB,0.59581E+03_JPRB,0.87986E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,36,14) = (/ &
+ & 0.10396E+04_JPRB,0.79026E+03_JPRB,0.60134E+03_JPRB,0.88805E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,36,14) = (/ &
+ & 0.10471E+04_JPRB,0.80778E+03_JPRB,0.60028E+03_JPRB,0.88614E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 3,36,14) = (/ &
+ & 0.10450E+04_JPRB,0.79912E+03_JPRB,0.59889E+03_JPRB,0.88407E+03_JPRB,0.11700E+04_JPRB /)  
+KB(:, 4,36,14) = (/ &
+ & 0.10626E+04_JPRB,0.80803E+03_JPRB,0.59740E+03_JPRB,0.88257E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 5,36,14) = (/ &
+ & 0.10609E+04_JPRB,0.81056E+03_JPRB,0.59577E+03_JPRB,0.87981E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,37,14) = (/ &
+ & 0.10479E+04_JPRB,0.79014E+03_JPRB,0.60145E+03_JPRB,0.88822E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 2,37,14) = (/ &
+ & 0.10744E+04_JPRB,0.81437E+03_JPRB,0.60044E+03_JPRB,0.88637E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 3,37,14) = (/ &
+ & 0.10335E+04_JPRB,0.79550E+03_JPRB,0.59909E+03_JPRB,0.88473E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 4,37,14) = (/ &
+ & 0.10410E+04_JPRB,0.77504E+03_JPRB,0.59808E+03_JPRB,0.88321E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 5,37,14) = (/ &
+ & 0.10557E+04_JPRB,0.79226E+03_JPRB,0.59599E+03_JPRB,0.88014E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 1,38,14) = (/ &
+ & 0.10418E+04_JPRB,0.80249E+03_JPRB,0.60156E+03_JPRB,0.88838E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 2,38,14) = (/ &
+ & 0.10220E+04_JPRB,0.82577E+03_JPRB,0.60060E+03_JPRB,0.88697E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 3,38,14) = (/ &
+ & 0.10502E+04_JPRB,0.80915E+03_JPRB,0.59929E+03_JPRB,0.88503E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 4,38,14) = (/ &
+ & 0.10497E+04_JPRB,0.81774E+03_JPRB,0.59826E+03_JPRB,0.88277E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 5,38,14) = (/ &
+ & 0.10771E+04_JPRB,0.81134E+03_JPRB,0.59623E+03_JPRB,0.88049E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 1,39,14) = (/ &
+ & 0.10165E+04_JPRB,0.77782E+03_JPRB,0.60118E+03_JPRB,0.88854E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 2,39,14) = (/ &
+ & 0.10531E+04_JPRB,0.80302E+03_JPRB,0.60075E+03_JPRB,0.88719E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 3,39,14) = (/ &
+ & 0.10758E+04_JPRB,0.78257E+03_JPRB,0.59949E+03_JPRB,0.88533E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 4,39,14) = (/ &
+ & 0.10568E+04_JPRB,0.79852E+03_JPRB,0.59772E+03_JPRB,0.88307E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 5,39,14) = (/ &
+ & 0.11120E+04_JPRB,0.79275E+03_JPRB,0.59645E+03_JPRB,0.88083E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 1,40,14) = (/ &
+ & 0.10416E+04_JPRB,0.79660E+03_JPRB,0.59890E+03_JPRB,0.88879E+03_JPRB,0.11758E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART34',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,40,14) = (/ &
+ & 0.10391E+04_JPRB,0.79051E+03_JPRB,0.60100E+03_JPRB,0.88756E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 3,40,14) = (/ &
+ & 0.10420E+04_JPRB,0.78155E+03_JPRB,0.59983E+03_JPRB,0.88583E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 4,40,14) = (/ &
+ & 0.10496E+04_JPRB,0.79527E+03_JPRB,0.59833E+03_JPRB,0.88434E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 5,40,14) = (/ &
+ & 0.10264E+04_JPRB,0.78919E+03_JPRB,0.59684E+03_JPRB,0.88140E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 1,41,14) = (/ &
+ & 0.10689E+04_JPRB,0.80516E+03_JPRB,0.60103E+03_JPRB,0.88904E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,41,14) = (/ &
+ & 0.10416E+04_JPRB,0.82239E+03_JPRB,0.60124E+03_JPRB,0.88792E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,41,14) = (/ &
+ & 0.10563E+04_JPRB,0.81535E+03_JPRB,0.60016E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 4,41,14) = (/ &
+ & 0.10676E+04_JPRB,0.82044E+03_JPRB,0.59873E+03_JPRB,0.88421E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 5,41,14) = (/ &
+ & 0.10596E+04_JPRB,0.78372E+03_JPRB,0.59724E+03_JPRB,0.88164E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 1,42,14) = (/ &
+ & 0.10655E+04_JPRB,0.80320E+03_JPRB,0.60196E+03_JPRB,0.88927E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 2,42,14) = (/ &
+ & 0.10714E+04_JPRB,0.78435E+03_JPRB,0.60147E+03_JPRB,0.88825E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,42,14) = (/ &
+ & 0.10516E+04_JPRB,0.79392E+03_JPRB,0.60071E+03_JPRB,0.88678E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,42,14) = (/ &
+ & 0.10516E+04_JPRB,0.77763E+03_JPRB,0.59913E+03_JPRB,0.88479E+03_JPRB,0.11700E+04_JPRB /)  
+KB(:, 5,42,14) = (/ &
+ & 0.10486E+04_JPRB,0.79390E+03_JPRB,0.59811E+03_JPRB,0.88255E+03_JPRB,0.11641E+04_JPRB /)  
+KB(:, 1,43,14) = (/ &
+ & 0.10979E+04_JPRB,0.83796E+03_JPRB,0.60248E+03_JPRB,0.88955E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 2,43,14) = (/ &
+ & 0.11147E+04_JPRB,0.76548E+03_JPRB,0.60171E+03_JPRB,0.88861E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,43,14) = (/ &
+ & 0.10326E+04_JPRB,0.79357E+03_JPRB,0.60081E+03_JPRB,0.88729E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 4,43,14) = (/ &
+ & 0.10439E+04_JPRB,0.86155E+03_JPRB,0.59958E+03_JPRB,0.88546E+03_JPRB,0.11709E+04_JPRB /)  
+KB(:, 5,43,14) = (/ &
+ & 0.10945E+04_JPRB,0.81749E+03_JPRB,0.59781E+03_JPRB,0.88321E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 1,44,14) = (/ &
+ & 0.10684E+04_JPRB,0.83027E+03_JPRB,0.60306E+03_JPRB,0.88988E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 2,44,14) = (/ &
+ & 0.10549E+04_JPRB,0.78589E+03_JPRB,0.60194E+03_JPRB,0.88895E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 3,44,14) = (/ &
+ & 0.10654E+04_JPRB,0.79705E+03_JPRB,0.60140E+03_JPRB,0.88779E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 4,44,14) = (/ &
+ & 0.10595E+04_JPRB,0.79130E+03_JPRB,0.59979E+03_JPRB,0.88614E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 5,44,14) = (/ &
+ & 0.10477E+04_JPRB,0.80597E+03_JPRB,0.59858E+03_JPRB,0.88363E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 1,45,14) = (/ &
+ & 0.10873E+04_JPRB,0.79417E+03_JPRB,0.60313E+03_JPRB,0.89023E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,45,14) = (/ &
+ & 0.10616E+04_JPRB,0.78299E+03_JPRB,0.60195E+03_JPRB,0.88889E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 3,45,14) = (/ &
+ & 0.10452E+04_JPRB,0.80979E+03_JPRB,0.60145E+03_JPRB,0.88823E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 4,45,14) = (/ &
+ & 0.10957E+04_JPRB,0.80372E+03_JPRB,0.60045E+03_JPRB,0.88675E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 5,45,14) = (/ &
+ & 0.10725E+04_JPRB,0.79223E+03_JPRB,0.59886E+03_JPRB,0.88476E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 1,46,14) = (/ &
+ & 0.10477E+04_JPRB,0.79958E+03_JPRB,0.60344E+03_JPRB,0.89054E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 2,46,14) = (/ &
+ & 0.10873E+04_JPRB,0.80021E+03_JPRB,0.60251E+03_JPRB,0.88958E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 3,46,14) = (/ &
+ & 0.10228E+04_JPRB,0.78903E+03_JPRB,0.60173E+03_JPRB,0.88864E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 4,46,14) = (/ &
+ & 0.10295E+04_JPRB,0.83052E+03_JPRB,0.60085E+03_JPRB,0.88734E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 5,46,14) = (/ &
+ & 0.10527E+04_JPRB,0.80434E+03_JPRB,0.59963E+03_JPRB,0.88553E+03_JPRB,0.11714E+04_JPRB /)  
+KB(:, 1,47,14) = (/ &
+ & 0.10317E+04_JPRB,0.78934E+03_JPRB,0.60373E+03_JPRB,0.89119E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 2,47,14) = (/ &
+ & 0.10325E+04_JPRB,0.79125E+03_JPRB,0.60291E+03_JPRB,0.88999E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,47,14) = (/ &
+ & 0.10417E+04_JPRB,0.79891E+03_JPRB,0.60152E+03_JPRB,0.88904E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 4,47,14) = (/ &
+ & 0.10561E+04_JPRB,0.78901E+03_JPRB,0.60124E+03_JPRB,0.88793E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,47,14) = (/ &
+ & 0.10468E+04_JPRB,0.79347E+03_JPRB,0.59991E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 1,48,14) = (/ &
+ & 0.10540E+04_JPRB,0.78901E+03_JPRB,0.60401E+03_JPRB,0.89113E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 2,48,14) = (/ &
+ & 0.10320E+04_JPRB,0.80975E+03_JPRB,0.60327E+03_JPRB,0.89037E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 3,48,14) = (/ &
+ & 0.10535E+04_JPRB,0.79283E+03_JPRB,0.60233E+03_JPRB,0.88940E+03_JPRB,0.11766E+04_JPRB /)  
+KB(:, 4,48,14) = (/ &
+ & 0.10485E+04_JPRB,0.81102E+03_JPRB,0.60158E+03_JPRB,0.88807E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 5,48,14) = (/ &
+ & 0.10337E+04_JPRB,0.82793E+03_JPRB,0.60064E+03_JPRB,0.88703E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,49,14) = (/ &
+ & 0.10304E+04_JPRB,0.83177E+03_JPRB,0.60454E+03_JPRB,0.89164E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,49,14) = (/ &
+ & 0.10417E+04_JPRB,0.78580E+03_JPRB,0.60359E+03_JPRB,0.89069E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 3,49,14) = (/ &
+ & 0.10725E+04_JPRB,0.82186E+03_JPRB,0.60271E+03_JPRB,0.88942E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,49,14) = (/ &
+ & 0.10362E+04_JPRB,0.80207E+03_JPRB,0.60065E+03_JPRB,0.88885E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,49,14) = (/ &
+ & 0.10383E+04_JPRB,0.79856E+03_JPRB,0.60081E+03_JPRB,0.88765E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 1,50,14) = (/ &
+ & 0.10581E+04_JPRB,0.78356E+03_JPRB,0.60457E+03_JPRB,0.89226E+03_JPRB,0.11805E+04_JPRB /)  
+KB(:, 2,50,14) = (/ &
+ & 0.10447E+04_JPRB,0.80207E+03_JPRB,0.60385E+03_JPRB,0.89058E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 3,50,14) = (/ &
+ & 0.10788E+04_JPRB,0.82154E+03_JPRB,0.60308E+03_JPRB,0.89017E+03_JPRB,0.11776E+04_JPRB /)  
+KB(:, 4,50,14) = (/ &
+ & 0.10695E+04_JPRB,0.79696E+03_JPRB,0.60214E+03_JPRB,0.88920E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 5,50,14) = (/ &
+ & 0.10859E+04_JPRB,0.79983E+03_JPRB,0.60140E+03_JPRB,0.88816E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 1,51,14) = (/ &
+ & 0.10459E+04_JPRB,0.79632E+03_JPRB,0.60498E+03_JPRB,0.89284E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,51,14) = (/ &
+ & 0.10371E+04_JPRB,0.78419E+03_JPRB,0.60411E+03_JPRB,0.89166E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,51,14) = (/ &
+ & 0.10657E+04_JPRB,0.82185E+03_JPRB,0.60315E+03_JPRB,0.89049E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 4,51,14) = (/ &
+ & 0.10396E+04_JPRB,0.78418E+03_JPRB,0.60197E+03_JPRB,0.88917E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 5,51,14) = (/ &
+ & 0.10354E+04_JPRB,0.78290E+03_JPRB,0.60169E+03_JPRB,0.88859E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 1,52,14) = (/ &
+ & 0.10434E+04_JPRB,0.78546E+03_JPRB,0.60574E+03_JPRB,0.89370E+03_JPRB,0.11824E+04_JPRB /)  
+KB(:, 2,52,14) = (/ &
+ & 0.10665E+04_JPRB,0.78610E+03_JPRB,0.60413E+03_JPRB,0.89180E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 3,52,14) = (/ &
+ & 0.10821E+04_JPRB,0.78641E+03_JPRB,0.60367E+03_JPRB,0.89113E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 4,52,14) = (/ &
+ & 0.10514E+04_JPRB,0.79279E+03_JPRB,0.60282E+03_JPRB,0.88989E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,52,14) = (/ &
+ & 0.10408E+04_JPRB,0.77939E+03_JPRB,0.60170E+03_JPRB,0.88895E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 1,53,14) = (/ &
+ & 0.10497E+04_JPRB,0.80875E+03_JPRB,0.60601E+03_JPRB,0.89382E+03_JPRB,0.11825E+04_JPRB /)  
+KB(:, 2,53,14) = (/ &
+ & 0.10514E+04_JPRB,0.81226E+03_JPRB,0.60441E+03_JPRB,0.89243E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 3,53,14) = (/ &
+ & 0.11137E+04_JPRB,0.80237E+03_JPRB,0.60392E+03_JPRB,0.89101E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,53,14) = (/ &
+ & 0.10661E+04_JPRB,0.79885E+03_JPRB,0.60292E+03_JPRB,0.89026E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,53,14) = (/ &
+ & 0.10324E+04_JPRB,0.82343E+03_JPRB,0.60222E+03_JPRB,0.88929E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 1,54,14) = (/ &
+ & 0.10594E+04_JPRB,0.86492E+03_JPRB,0.60646E+03_JPRB,0.89428E+03_JPRB,0.11831E+04_JPRB /)  
+KB(:, 2,54,14) = (/ &
+ & 0.10303E+04_JPRB,0.85949E+03_JPRB,0.60506E+03_JPRB,0.89294E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 3,54,14) = (/ &
+ & 0.10905E+04_JPRB,0.84800E+03_JPRB,0.60416E+03_JPRB,0.89138E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 4,54,14) = (/ &
+ & 0.10438E+04_JPRB,0.78736E+03_JPRB,0.60344E+03_JPRB,0.89055E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 5,54,14) = (/ &
+ & 0.10324E+04_JPRB,0.83619E+03_JPRB,0.60252E+03_JPRB,0.88959E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 1,55,14) = (/ &
+ & 0.10463E+04_JPRB,0.78385E+03_JPRB,0.60663E+03_JPRB,0.89475E+03_JPRB,0.11838E+04_JPRB /)  
+KB(:, 2,55,14) = (/ &
+ & 0.10543E+04_JPRB,0.79119E+03_JPRB,0.60552E+03_JPRB,0.89337E+03_JPRB,0.11824E+04_JPRB /)  
+KB(:, 3,55,14) = (/ &
+ & 0.10391E+04_JPRB,0.80395E+03_JPRB,0.60439E+03_JPRB,0.89183E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 4,55,14) = (/ &
+ & 0.10421E+04_JPRB,0.79916E+03_JPRB,0.60368E+03_JPRB,0.89078E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 5,55,14) = (/ &
+ & 0.10909E+04_JPRB,0.78448E+03_JPRB,0.60284E+03_JPRB,0.88955E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 1,56,14) = (/ &
+ & 0.10143E+04_JPRB,0.81481E+03_JPRB,0.60727E+03_JPRB,0.89531E+03_JPRB,0.11848E+04_JPRB /)  
+KB(:, 2,56,14) = (/ &
+ & 0.10240E+04_JPRB,0.81034E+03_JPRB,0.60598E+03_JPRB,0.89378E+03_JPRB,0.11825E+04_JPRB /)  
+KB(:, 3,56,14) = (/ &
+ & 0.10324E+04_JPRB,0.78927E+03_JPRB,0.60463E+03_JPRB,0.89238E+03_JPRB,0.11806E+04_JPRB /)  
+KB(:, 4,56,14) = (/ &
+ & 0.10273E+04_JPRB,0.78959E+03_JPRB,0.60390E+03_JPRB,0.89099E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 5,56,14) = (/ &
+ & 0.10404E+04_JPRB,0.80937E+03_JPRB,0.60290E+03_JPRB,0.89024E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 1,57,14) = (/ &
+ & 0.10408E+04_JPRB,0.79150E+03_JPRB,0.60742E+03_JPRB,0.89593E+03_JPRB,0.11860E+04_JPRB /)  
+KB(:, 2,57,14) = (/ &
+ & 0.10640E+04_JPRB,0.82150E+03_JPRB,0.60641E+03_JPRB,0.89422E+03_JPRB,0.11831E+04_JPRB /)  
+KB(:, 3,57,14) = (/ &
+ & 0.10551E+04_JPRB,0.79661E+03_JPRB,0.60501E+03_JPRB,0.89288E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 4,57,14) = (/ &
+ & 0.10817E+04_JPRB,0.79118E+03_JPRB,0.60413E+03_JPRB,0.89133E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 5,57,14) = (/ &
+ & 0.10370E+04_JPRB,0.79629E+03_JPRB,0.60341E+03_JPRB,0.89015E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 1,58,14) = (/ &
+ & 0.10442E+04_JPRB,0.84033E+03_JPRB,0.60809E+03_JPRB,0.89672E+03_JPRB,0.11869E+04_JPRB /)  
+KB(:, 2,58,14) = (/ &
+ & 0.10934E+04_JPRB,0.79820E+03_JPRB,0.60680E+03_JPRB,0.89466E+03_JPRB,0.11837E+04_JPRB /)  
+KB(:, 3,58,14) = (/ &
+ & 0.10657E+04_JPRB,0.80043E+03_JPRB,0.60544E+03_JPRB,0.89329E+03_JPRB,0.11818E+04_JPRB /)  
+KB(:, 4,58,14) = (/ &
+ & 0.10223E+04_JPRB,0.78480E+03_JPRB,0.60435E+03_JPRB,0.89175E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 5,58,14) = (/ &
+ & 0.10438E+04_JPRB,0.81735E+03_JPRB,0.60364E+03_JPRB,0.89074E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 1,59,14) = (/ &
+ & 0.10513E+04_JPRB,0.80331E+03_JPRB,0.60826E+03_JPRB,0.89709E+03_JPRB,0.11883E+04_JPRB /)  
+KB(:, 2,59,14) = (/ &
+ & 0.10429E+04_JPRB,0.81799E+03_JPRB,0.60696E+03_JPRB,0.89486E+03_JPRB,0.11840E+04_JPRB /)  
+KB(:, 3,59,14) = (/ &
+ & 0.10400E+04_JPRB,0.80905E+03_JPRB,0.60537E+03_JPRB,0.89345E+03_JPRB,0.11830E+04_JPRB /)  
+KB(:, 4,59,14) = (/ &
+ & 0.10488E+04_JPRB,0.79628E+03_JPRB,0.60443E+03_JPRB,0.89194E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 5,59,14) = (/ &
+ & 0.10795E+04_JPRB,0.78415E+03_JPRB,0.60372E+03_JPRB,0.89082E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 1,13,15) = (/ &
+ & 0.98934E+03_JPRB,0.75572E+03_JPRB,0.60810E+03_JPRB,0.89364E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,13,15) = (/ &
+ & 0.12809E+04_JPRB,0.72091E+03_JPRB,0.60670E+03_JPRB,0.89251E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,13,15) = (/ &
+ & 0.11704E+04_JPRB,0.77844E+03_JPRB,0.60529E+03_JPRB,0.89171E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,13,15) = (/ &
+ & 0.11159E+04_JPRB,0.83495E+03_JPRB,0.60430E+03_JPRB,0.89110E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 5,13,15) = (/ &
+ & 0.11939E+04_JPRB,0.93553E+03_JPRB,0.60355E+03_JPRB,0.89003E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 1,14,15) = (/ &
+ & 0.11963E+04_JPRB,0.95315E+03_JPRB,0.60753E+03_JPRB,0.89338E+03_JPRB,0.11810E+04_JPRB /)  
+KB(:, 2,14,15) = (/ &
+ & 0.11729E+04_JPRB,0.92141E+03_JPRB,0.60616E+03_JPRB,0.89229E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,14,15) = (/ &
+ & 0.11471E+04_JPRB,0.85602E+03_JPRB,0.60478E+03_JPRB,0.89154E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 4,14,15) = (/ &
+ & 0.11824E+04_JPRB,0.88196E+03_JPRB,0.60401E+03_JPRB,0.89091E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 5,14,15) = (/ &
+ & 0.11271E+04_JPRB,0.87462E+03_JPRB,0.60324E+03_JPRB,0.89075E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 1,15,15) = (/ &
+ & 0.10604E+04_JPRB,0.90519E+03_JPRB,0.60703E+03_JPRB,0.89409E+03_JPRB,0.11809E+04_JPRB /)  
+KB(:, 2,15,15) = (/ &
+ & 0.11577E+04_JPRB,0.75557E+03_JPRB,0.60568E+03_JPRB,0.89209E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 3,15,15) = (/ &
+ & 0.11406E+04_JPRB,0.81803E+03_JPRB,0.60438E+03_JPRB,0.89138E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 4,15,15) = (/ &
+ & 0.11847E+04_JPRB,0.71960E+03_JPRB,0.60376E+03_JPRB,0.89073E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 5,15,15) = (/ &
+ & 0.11179E+04_JPRB,0.81112E+03_JPRB,0.60296E+03_JPRB,0.88859E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 1,16,15) = (/ &
+ & 0.10356E+04_JPRB,0.71983E+03_JPRB,0.60659E+03_JPRB,0.89194E+03_JPRB,0.11820E+04_JPRB /)  
+KB(:, 2,16,15) = (/ &
+ & 0.11364E+04_JPRB,0.76870E+03_JPRB,0.60526E+03_JPRB,0.89190E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 3,16,15) = (/ &
+ & 0.96034E+03_JPRB,0.83277E+03_JPRB,0.60407E+03_JPRB,0.89124E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 4,16,15) = (/ &
+ & 0.10077E+04_JPRB,0.87988E+03_JPRB,0.60354E+03_JPRB,0.89055E+03_JPRB,0.11776E+04_JPRB /)  
+KB(:, 5,16,15) = (/ &
+ & 0.10422E+04_JPRB,0.83397E+03_JPRB,0.60335E+03_JPRB,0.88931E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 1,17,15) = (/ &
+ & 0.10091E+04_JPRB,0.77782E+03_JPRB,0.60621E+03_JPRB,0.89269E+03_JPRB,0.11805E+04_JPRB /)  
+KB(:, 2,17,15) = (/ &
+ & 0.11716E+04_JPRB,0.80971E+03_JPRB,0.60425E+03_JPRB,0.89175E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 3,17,15) = (/ &
+ & 0.10550E+04_JPRB,0.78786E+03_JPRB,0.60385E+03_JPRB,0.89112E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 4,17,15) = (/ &
+ & 0.99990E+03_JPRB,0.88096E+03_JPRB,0.60335E+03_JPRB,0.89039E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 5,17,15) = (/ &
+ & 0.11263E+04_JPRB,0.73127E+03_JPRB,0.60311E+03_JPRB,0.88908E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 1,18,15) = (/ &
+ & 0.11151E+04_JPRB,0.85991E+03_JPRB,0.60588E+03_JPRB,0.89155E+03_JPRB,0.11804E+04_JPRB /)  
+KB(:, 2,18,15) = (/ &
+ & 0.10413E+04_JPRB,0.70815E+03_JPRB,0.60458E+03_JPRB,0.89161E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 3,18,15) = (/ &
+ & 0.11058E+04_JPRB,0.82037E+03_JPRB,0.60370E+03_JPRB,0.89101E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 4,18,15) = (/ &
+ & 0.10134E+04_JPRB,0.64109E+03_JPRB,0.60383E+03_JPRB,0.89024E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 5,18,15) = (/ &
+ & 0.11497E+04_JPRB,0.88170E+03_JPRB,0.60224E+03_JPRB,0.88981E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 1,19,15) = (/ &
+ & 0.10261E+04_JPRB,0.82130E+03_JPRB,0.60625E+03_JPRB,0.89236E+03_JPRB,0.11802E+04_JPRB /)  
+KB(:, 2,19,15) = (/ &
+ & 0.10077E+04_JPRB,0.78017E+03_JPRB,0.60431E+03_JPRB,0.89148E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,19,15) = (/ &
+ & 0.10505E+04_JPRB,0.75163E+03_JPRB,0.60422E+03_JPRB,0.88995E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 4,19,15) = (/ &
+ & 0.10498E+04_JPRB,0.84163E+03_JPRB,0.60302E+03_JPRB,0.89009E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,19,15) = (/ &
+ & 0.94853E+03_JPRB,0.71012E+03_JPRB,0.60269E+03_JPRB,0.88958E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 1,20,15) = (/ &
+ & 0.11198E+04_JPRB,0.83291E+03_JPRB,0.60532E+03_JPRB,0.89221E+03_JPRB,0.11814E+04_JPRB /)  
+KB(:, 2,20,15) = (/ &
+ & 0.10146E+04_JPRB,0.70988E+03_JPRB,0.60473E+03_JPRB,0.89136E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 3,20,15) = (/ &
+ & 0.98440E+03_JPRB,0.83872E+03_JPRB,0.60345E+03_JPRB,0.89080E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 4,20,15) = (/ &
+ & 0.10595E+04_JPRB,0.75621E+03_JPRB,0.60286E+03_JPRB,0.88992E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 5,20,15) = (/ &
+ & 0.10274E+04_JPRB,0.81836E+03_JPRB,0.60247E+03_JPRB,0.88836E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 1,21,15) = (/ &
+ & 0.10788E+04_JPRB,0.78645E+03_JPRB,0.60506E+03_JPRB,0.89207E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,21,15) = (/ &
+ & 0.10852E+04_JPRB,0.74295E+03_JPRB,0.60386E+03_JPRB,0.89125E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 3,21,15) = (/ &
+ & 0.10428E+04_JPRB,0.82396E+03_JPRB,0.60333E+03_JPRB,0.88973E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 4,21,15) = (/ &
+ & 0.10018E+04_JPRB,0.87387E+03_JPRB,0.60336E+03_JPRB,0.89071E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 5,21,15) = (/ &
+ & 0.11155E+04_JPRB,0.79293E+03_JPRB,0.60225E+03_JPRB,0.88809E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 1,22,15) = (/ &
+ & 0.10301E+04_JPRB,0.79445E+03_JPRB,0.60539E+03_JPRB,0.89186E+03_JPRB,0.11797E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART35',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,22,15) = (/ &
+ & 0.11174E+04_JPRB,0.68851E+03_JPRB,0.60364E+03_JPRB,0.88919E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 3,22,15) = (/ &
+ & 0.10845E+04_JPRB,0.72821E+03_JPRB,0.60320E+03_JPRB,0.89053E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 4,22,15) = (/ &
+ & 0.94182E+03_JPRB,0.74129E+03_JPRB,0.60185E+03_JPRB,0.88948E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,22,15) = (/ &
+ & 0.11256E+04_JPRB,0.74069E+03_JPRB,0.60323E+03_JPRB,0.88766E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,23,15) = (/ &
+ & 0.11218E+04_JPRB,0.85968E+03_JPRB,0.60443E+03_JPRB,0.89167E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 2,23,15) = (/ &
+ & 0.10449E+04_JPRB,0.80739E+03_JPRB,0.60218E+03_JPRB,0.89100E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 3,23,15) = (/ &
+ & 0.11277E+04_JPRB,0.69098E+03_JPRB,0.60306E+03_JPRB,0.89036E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 4,23,15) = (/ &
+ & 0.10580E+04_JPRB,0.81384E+03_JPRB,0.60228E+03_JPRB,0.88919E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 5,23,15) = (/ &
+ & 0.10279E+04_JPRB,0.82530E+03_JPRB,0.60094E+03_JPRB,0.88718E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,24,15) = (/ &
+ & 0.10227E+04_JPRB,0.68179E+03_JPRB,0.60412E+03_JPRB,0.89149E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,24,15) = (/ &
+ & 0.11518E+04_JPRB,0.80624E+03_JPRB,0.60338E+03_JPRB,0.89088E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,24,15) = (/ &
+ & 0.10788E+04_JPRB,0.70820E+03_JPRB,0.60290E+03_JPRB,0.89016E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,24,15) = (/ &
+ & 0.10466E+04_JPRB,0.82233E+03_JPRB,0.60268E+03_JPRB,0.88884E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 5,24,15) = (/ &
+ & 0.10066E+04_JPRB,0.82618E+03_JPRB,0.60057E+03_JPRB,0.88665E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,25,15) = (/ &
+ & 0.10780E+04_JPRB,0.80937E+03_JPRB,0.60386E+03_JPRB,0.89131E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 2,25,15) = (/ &
+ & 0.10199E+04_JPRB,0.81059E+03_JPRB,0.60327E+03_JPRB,0.89075E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 3,25,15) = (/ &
+ & 0.11207E+04_JPRB,0.80162E+03_JPRB,0.60338E+03_JPRB,0.88992E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,25,15) = (/ &
+ & 0.97495E+03_JPRB,0.78589E+03_JPRB,0.60305E+03_JPRB,0.88845E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 5,25,15) = (/ &
+ & 0.95428E+03_JPRB,0.80945E+03_JPRB,0.60015E+03_JPRB,0.88605E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 1,26,15) = (/ &
+ & 0.10862E+04_JPRB,0.78235E+03_JPRB,0.60361E+03_JPRB,0.89115E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 2,26,15) = (/ &
+ & 0.91581E+03_JPRB,0.82546E+03_JPRB,0.60381E+03_JPRB,0.89059E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 3,26,15) = (/ &
+ & 0.10920E+04_JPRB,0.84813E+03_JPRB,0.60253E+03_JPRB,0.88964E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 4,26,15) = (/ &
+ & 0.11174E+04_JPRB,0.83078E+03_JPRB,0.60207E+03_JPRB,0.88892E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 5,26,15) = (/ &
+ & 0.11159E+04_JPRB,0.75128E+03_JPRB,0.59967E+03_JPRB,0.88536E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 1,27,15) = (/ &
+ & 0.10835E+04_JPRB,0.80424E+03_JPRB,0.60343E+03_JPRB,0.89101E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 2,27,15) = (/ &
+ & 0.10910E+04_JPRB,0.86525E+03_JPRB,0.60302E+03_JPRB,0.89041E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,27,15) = (/ &
+ & 0.10210E+04_JPRB,0.77642E+03_JPRB,0.60231E+03_JPRB,0.89027E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 4,27,15) = (/ &
+ & 0.10645E+04_JPRB,0.80598E+03_JPRB,0.60105E+03_JPRB,0.88742E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 5,27,15) = (/ &
+ & 0.10451E+04_JPRB,0.82023E+03_JPRB,0.59981E+03_JPRB,0.88559E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 1,28,15) = (/ &
+ & 0.10856E+04_JPRB,0.83991E+03_JPRB,0.60332E+03_JPRB,0.89088E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 2,28,15) = (/ &
+ & 0.93268E+03_JPRB,0.70779E+03_JPRB,0.60288E+03_JPRB,0.89019E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 3,28,15) = (/ &
+ & 0.11243E+04_JPRB,0.76544E+03_JPRB,0.60205E+03_JPRB,0.88894E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 4,28,15) = (/ &
+ & 0.10096E+04_JPRB,0.72189E+03_JPRB,0.60064E+03_JPRB,0.88682E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 5,28,15) = (/ &
+ & 0.88490E+03_JPRB,0.83821E+03_JPRB,0.59801E+03_JPRB,0.88198E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 1,29,15) = (/ &
+ & 0.10218E+04_JPRB,0.78897E+03_JPRB,0.60322E+03_JPRB,0.88978E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 2,29,15) = (/ &
+ & 0.97223E+03_JPRB,0.70803E+03_JPRB,0.60270E+03_JPRB,0.88994E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 3,29,15) = (/ &
+ & 0.10729E+04_JPRB,0.71638E+03_JPRB,0.60175E+03_JPRB,0.88850E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 4,29,15) = (/ &
+ & 0.10369E+04_JPRB,0.79357E+03_JPRB,0.60017E+03_JPRB,0.88614E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 5,29,15) = (/ &
+ & 0.10748E+04_JPRB,0.83591E+03_JPRB,0.59814E+03_JPRB,0.88321E+03_JPRB,0.11671E+04_JPRB /)  
+KB(:, 1,30,15) = (/ &
+ & 0.10681E+04_JPRB,0.78838E+03_JPRB,0.60311E+03_JPRB,0.89058E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 2,30,15) = (/ &
+ & 0.10690E+04_JPRB,0.81372E+03_JPRB,0.60250E+03_JPRB,0.88965E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 3,30,15) = (/ &
+ & 0.10330E+04_JPRB,0.79065E+03_JPRB,0.60271E+03_JPRB,0.88800E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,30,15) = (/ &
+ & 0.99812E+03_JPRB,0.80751E+03_JPRB,0.60032E+03_JPRB,0.88541E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 5,30,15) = (/ &
+ & 0.10394E+04_JPRB,0.71741E+03_JPRB,0.59705E+03_JPRB,0.88643E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 1,31,15) = (/ &
+ & 0.10025E+04_JPRB,0.73187E+03_JPRB,0.60298E+03_JPRB,0.89039E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 2,31,15) = (/ &
+ & 0.11099E+04_JPRB,0.74280E+03_JPRB,0.60227E+03_JPRB,0.88930E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 3,31,15) = (/ &
+ & 0.10884E+04_JPRB,0.79617E+03_JPRB,0.60102E+03_JPRB,0.88838E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 4,31,15) = (/ &
+ & 0.90245E+03_JPRB,0.76637E+03_JPRB,0.59915E+03_JPRB,0.88368E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 5,31,15) = (/ &
+ & 0.10031E+04_JPRB,0.78751E+03_JPRB,0.59673E+03_JPRB,0.89640E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 1,32,15) = (/ &
+ & 0.87663E+03_JPRB,0.68400E+03_JPRB,0.60283E+03_JPRB,0.89016E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 2,32,15) = (/ &
+ & 0.10467E+04_JPRB,0.83071E+03_JPRB,0.60330E+03_JPRB,0.88890E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,32,15) = (/ &
+ & 0.97045E+03_JPRB,0.72881E+03_JPRB,0.60123E+03_JPRB,0.88677E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 4,32,15) = (/ &
+ & 0.11080E+04_JPRB,0.69141E+03_JPRB,0.59860E+03_JPRB,0.88193E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 5,32,15) = (/ &
+ & 0.10206E+04_JPRB,0.73037E+03_JPRB,0.59837E+03_JPRB,0.88358E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 1,33,15) = (/ &
+ & 0.10520E+04_JPRB,0.78807E+03_JPRB,0.60265E+03_JPRB,0.89086E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 2,33,15) = (/ &
+ & 0.98139E+03_JPRB,0.81175E+03_JPRB,0.60169E+03_JPRB,0.88843E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 3,33,15) = (/ &
+ & 0.11223E+04_JPRB,0.75994E+03_JPRB,0.60074E+03_JPRB,0.88510E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 4,33,15) = (/ &
+ & 0.10271E+04_JPRB,0.75564E+03_JPRB,0.59806E+03_JPRB,0.88218E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 5,33,15) = (/ &
+ & 0.10438E+04_JPRB,0.78527E+03_JPRB,0.59677E+03_JPRB,0.88217E+03_JPRB,0.11682E+04_JPRB /)  
+KB(:, 1,34,15) = (/ &
+ & 0.10293E+04_JPRB,0.82175E+03_JPRB,0.60313E+03_JPRB,0.88963E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 2,34,15) = (/ &
+ & 0.11086E+04_JPRB,0.80472E+03_JPRB,0.60138E+03_JPRB,0.88797E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,34,15) = (/ &
+ & 0.10235E+04_JPRB,0.72497E+03_JPRB,0.60029E+03_JPRB,0.88634E+03_JPRB,0.11724E+04_JPRB /)  
+KB(:, 4,34,15) = (/ &
+ & 0.10022E+04_JPRB,0.79360E+03_JPRB,0.59703E+03_JPRB,0.88927E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,34,15) = (/ &
+ & 0.11107E+04_JPRB,0.84019E+03_JPRB,0.59650E+03_JPRB,0.88082E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 1,35,15) = (/ &
+ & 0.10782E+04_JPRB,0.81052E+03_JPRB,0.60236E+03_JPRB,0.89138E+03_JPRB,0.11766E+04_JPRB /)  
+KB(:, 2,35,15) = (/ &
+ & 0.89922E+03_JPRB,0.74859E+03_JPRB,0.60119E+03_JPRB,0.88769E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 3,35,15) = (/ &
+ & 0.10088E+04_JPRB,0.71209E+03_JPRB,0.59938E+03_JPRB,0.88499E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 4,35,15) = (/ &
+ & 0.96175E+03_JPRB,0.77055E+03_JPRB,0.60072E+03_JPRB,0.87852E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 5,35,15) = (/ &
+ & 0.10310E+04_JPRB,0.84426E+03_JPRB,0.59635E+03_JPRB,0.88059E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 1,36,15) = (/ &
+ & 0.10188E+04_JPRB,0.85190E+03_JPRB,0.60234E+03_JPRB,0.88943E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 2,36,15) = (/ &
+ & 0.10154E+04_JPRB,0.76964E+03_JPRB,0.60245E+03_JPRB,0.88859E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 3,36,15) = (/ &
+ & 0.10902E+04_JPRB,0.77130E+03_JPRB,0.59998E+03_JPRB,0.88588E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 4,36,15) = (/ &
+ & 0.98172E+03_JPRB,0.79246E+03_JPRB,0.59876E+03_JPRB,0.89371E+03_JPRB,0.11495E+04_JPRB /)  
+KB(:, 5,36,15) = (/ &
+ & 0.10409E+04_JPRB,0.75260E+03_JPRB,0.59632E+03_JPRB,0.88055E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 1,37,15) = (/ &
+ & 0.10398E+04_JPRB,0.81024E+03_JPRB,0.60310E+03_JPRB,0.88960E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,37,15) = (/ &
+ & 0.94253E+03_JPRB,0.72207E+03_JPRB,0.60199E+03_JPRB,0.88792E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 3,37,15) = (/ &
+ & 0.11326E+04_JPRB,0.78984E+03_JPRB,0.60024E+03_JPRB,0.88532E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 4,37,15) = (/ &
+ & 0.10789E+04_JPRB,0.84320E+03_JPRB,0.59634E+03_JPRB,0.88350E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 5,37,15) = (/ &
+ & 0.10084E+04_JPRB,0.82623E+03_JPRB,0.59647E+03_JPRB,0.88078E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 1,38,15) = (/ &
+ & 0.99835E+03_JPRB,0.77031E+03_JPRB,0.60321E+03_JPRB,0.88977E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 2,38,15) = (/ &
+ & 0.11135E+04_JPRB,0.73046E+03_JPRB,0.60283E+03_JPRB,0.88917E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 3,38,15) = (/ &
+ & 0.10419E+04_JPRB,0.72620E+03_JPRB,0.59987E+03_JPRB,0.88669E+03_JPRB,0.11716E+04_JPRB /)  
+KB(:, 4,38,15) = (/ &
+ & 0.10631E+04_JPRB,0.75245E+03_JPRB,0.59721E+03_JPRB,0.88572E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 5,38,15) = (/ &
+ & 0.10228E+04_JPRB,0.73209E+03_JPRB,0.59792E+03_JPRB,0.88102E+03_JPRB,0.11654E+04_JPRB /)  
+KB(:, 1,39,15) = (/ &
+ & 0.10910E+04_JPRB,0.86853E+03_JPRB,0.60266E+03_JPRB,0.88992E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 2,39,15) = (/ &
+ & 0.10519E+04_JPRB,0.73802E+03_JPRB,0.60236E+03_JPRB,0.88944E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 3,39,15) = (/ &
+ & 0.90206E+03_JPRB,0.82442E+03_JPRB,0.60079E+03_JPRB,0.88708E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 4,39,15) = (/ &
+ & 0.10954E+04_JPRB,0.83033E+03_JPRB,0.59811E+03_JPRB,0.88319E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 5,39,15) = (/ &
+ & 0.92773E+03_JPRB,0.79134E+03_JPRB,0.59808E+03_JPRB,0.88316E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 1,40,15) = (/ &
+ & 0.10887E+04_JPRB,0.78119E+03_JPRB,0.60281E+03_JPRB,0.89016E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 2,40,15) = (/ &
+ & 0.10361E+04_JPRB,0.78964E+03_JPRB,0.60199E+03_JPRB,0.88890E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,40,15) = (/ &
+ & 0.10674E+04_JPRB,0.81250E+03_JPRB,0.60058E+03_JPRB,0.88678E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 4,40,15) = (/ &
+ & 0.11076E+04_JPRB,0.76250E+03_JPRB,0.59989E+03_JPRB,0.88480E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 5,40,15) = (/ &
+ & 0.11154E+04_JPRB,0.83280E+03_JPRB,0.59900E+03_JPRB,0.88168E+03_JPRB,0.11814E+04_JPRB /)  
+KB(:, 1,41,15) = (/ &
+ & 0.10350E+04_JPRB,0.79893E+03_JPRB,0.60296E+03_JPRB,0.89038E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 2,41,15) = (/ &
+ & 0.10104E+04_JPRB,0.69640E+03_JPRB,0.60225E+03_JPRB,0.88929E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 3,41,15) = (/ &
+ & 0.10193E+04_JPRB,0.78110E+03_JPRB,0.60100E+03_JPRB,0.88741E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 4,41,15) = (/ &
+ & 0.10785E+04_JPRB,0.73450E+03_JPRB,0.59977E+03_JPRB,0.88368E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 5,41,15) = (/ &
+ & 0.96003E+03_JPRB,0.80480E+03_JPRB,0.59865E+03_JPRB,0.90400E+03_JPRB,0.11833E+04_JPRB /)  
+KB(:, 1,42,15) = (/ &
+ & 0.97569E+03_JPRB,0.77685E+03_JPRB,0.60307E+03_JPRB,0.89056E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 2,42,15) = (/ &
+ & 0.98796E+03_JPRB,0.83953E+03_JPRB,0.60247E+03_JPRB,0.88963E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 3,42,15) = (/ &
+ & 0.10852E+04_JPRB,0.82427E+03_JPRB,0.60332E+03_JPRB,0.88798E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 4,42,15) = (/ &
+ & 0.10360E+04_JPRB,0.83188E+03_JPRB,0.59965E+03_JPRB,0.88636E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 5,42,15) = (/ &
+ & 0.10125E+04_JPRB,0.74885E+03_JPRB,0.59702E+03_JPRB,0.88356E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 1,43,15) = (/ &
+ & 0.91082E+03_JPRB,0.72514E+03_JPRB,0.60320E+03_JPRB,0.89075E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,43,15) = (/ &
+ & 0.82029E+03_JPRB,0.80137E+03_JPRB,0.60335E+03_JPRB,0.88998E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 3,43,15) = (/ &
+ & 0.11298E+04_JPRB,0.78950E+03_JPRB,0.60243E+03_JPRB,0.88859E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 4,43,15) = (/ &
+ & 0.10717E+04_JPRB,0.65904E+03_JPRB,0.60090E+03_JPRB,0.88726E+03_JPRB,0.11724E+04_JPRB /)  
+KB(:, 5,43,15) = (/ &
+ & 0.89290E+03_JPRB,0.78779E+03_JPRB,0.59823E+03_JPRB,0.88240E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 1,44,15) = (/ &
+ & 0.10292E+04_JPRB,0.72935E+03_JPRB,0.60266E+03_JPRB,0.89093E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 2,44,15) = (/ &
+ & 0.10616E+04_JPRB,0.76323E+03_JPRB,0.60355E+03_JPRB,0.89030E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 3,44,15) = (/ &
+ & 0.10058E+04_JPRB,0.82082E+03_JPRB,0.60215E+03_JPRB,0.88915E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 4,44,15) = (/ &
+ & 0.96216E+03_JPRB,0.76914E+03_JPRB,0.60084E+03_JPRB,0.88814E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 5,44,15) = (/ &
+ & 0.10069E+04_JPRB,0.76998E+03_JPRB,0.59893E+03_JPRB,0.88624E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 1,45,15) = (/ &
+ & 0.92082E+03_JPRB,0.79879E+03_JPRB,0.60350E+03_JPRB,0.89110E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 2,45,15) = (/ &
+ & 0.96551E+03_JPRB,0.79963E+03_JPRB,0.60307E+03_JPRB,0.89055E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 3,45,15) = (/ &
+ & 0.10337E+04_JPRB,0.76320E+03_JPRB,0.60246E+03_JPRB,0.88962E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 4,45,15) = (/ &
+ & 0.97219E+03_JPRB,0.72677E+03_JPRB,0.60201E+03_JPRB,0.88795E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,45,15) = (/ &
+ & 0.10146E+04_JPRB,0.80892E+03_JPRB,0.59962E+03_JPRB,0.88632E+03_JPRB,0.11711E+04_JPRB /)  
+KB(:, 1,46,15) = (/ &
+ & 0.10772E+04_JPRB,0.81655E+03_JPRB,0.60383E+03_JPRB,0.89135E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,46,15) = (/ &
+ & 0.98671E+03_JPRB,0.73523E+03_JPRB,0.60321E+03_JPRB,0.89077E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,46,15) = (/ &
+ & 0.10348E+04_JPRB,0.84026E+03_JPRB,0.60272E+03_JPRB,0.89002E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 4,46,15) = (/ &
+ & 0.11018E+04_JPRB,0.66661E+03_JPRB,0.60312E+03_JPRB,0.88865E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 5,46,15) = (/ &
+ & 0.10012E+04_JPRB,0.71404E+03_JPRB,0.60161E+03_JPRB,0.88639E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 1,47,15) = (/ &
+ & 0.10560E+04_JPRB,0.78520E+03_JPRB,0.60429E+03_JPRB,0.89072E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,47,15) = (/ &
+ & 0.10627E+04_JPRB,0.82754E+03_JPRB,0.60335E+03_JPRB,0.89097E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 3,47,15) = (/ &
+ & 0.10705E+04_JPRB,0.76570E+03_JPRB,0.60295E+03_JPRB,0.89038E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 4,47,15) = (/ &
+ & 0.11051E+04_JPRB,0.83346E+03_JPRB,0.60225E+03_JPRB,0.89026E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 5,47,15) = (/ &
+ & 0.10627E+04_JPRB,0.79957E+03_JPRB,0.60100E+03_JPRB,0.88742E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 1,48,15) = (/ &
+ & 0.10526E+04_JPRB,0.83431E+03_JPRB,0.60478E+03_JPRB,0.89205E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 2,48,15) = (/ &
+ & 0.11375E+04_JPRB,0.74537E+03_JPRB,0.60363E+03_JPRB,0.89121E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 3,48,15) = (/ &
+ & 0.10571E+04_JPRB,0.77077E+03_JPRB,0.60313E+03_JPRB,0.89066E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 4,48,15) = (/ &
+ & 0.10694E+04_JPRB,0.73604E+03_JPRB,0.60258E+03_JPRB,0.88981E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 5,48,15) = (/ &
+ & 0.11062E+04_JPRB,0.66828E+03_JPRB,0.60158E+03_JPRB,0.88925E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 1,49,15) = (/ &
+ & 0.10727E+04_JPRB,0.73859E+03_JPRB,0.60462E+03_JPRB,0.89249E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 2,49,15) = (/ &
+ & 0.11006E+04_JPRB,0.84446E+03_JPRB,0.60404E+03_JPRB,0.89152E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 3,49,15) = (/ &
+ & 0.96096E+03_JPRB,0.73858E+03_JPRB,0.60393E+03_JPRB,0.89088E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 4,49,15) = (/ &
+ & 0.11140E+04_JPRB,0.80464E+03_JPRB,0.60285E+03_JPRB,0.89021E+03_JPRB,0.11776E+04_JPRB /)  
+KB(:, 5,49,15) = (/ &
+ & 0.10928E+04_JPRB,0.75297E+03_JPRB,0.60205E+03_JPRB,0.88996E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 1,50,15) = (/ &
+ & 0.10626E+04_JPRB,0.84953E+03_JPRB,0.60572E+03_JPRB,0.89295E+03_JPRB,0.11814E+04_JPRB /)  
+KB(:, 2,50,15) = (/ &
+ & 0.11017E+04_JPRB,0.71824E+03_JPRB,0.60451E+03_JPRB,0.89185E+03_JPRB,0.11811E+04_JPRB /)  
+KB(:, 3,50,15) = (/ &
+ & 0.10336E+04_JPRB,0.71570E+03_JPRB,0.60345E+03_JPRB,0.89107E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 4,50,15) = (/ &
+ & 0.95200E+03_JPRB,0.76482E+03_JPRB,0.60304E+03_JPRB,0.89051E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 5,50,15) = (/ &
+ & 0.96988E+03_JPRB,0.83512E+03_JPRB,0.60306E+03_JPRB,0.88954E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 1,51,15) = (/ &
+ & 0.11017E+04_JPRB,0.77329E+03_JPRB,0.60615E+03_JPRB,0.89371E+03_JPRB,0.11825E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART36',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,51,15) = (/ &
+ & 0.10950E+04_JPRB,0.81479E+03_JPRB,0.60496E+03_JPRB,0.89123E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 3,51,15) = (/ &
+ & 0.99893E+03_JPRB,0.69452E+03_JPRB,0.60377E+03_JPRB,0.89131E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 4,51,15) = (/ &
+ & 0.10704E+04_JPRB,0.82834E+03_JPRB,0.60319E+03_JPRB,0.89074E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 5,51,15) = (/ &
+ & 0.10391E+04_JPRB,0.80716E+03_JPRB,0.60333E+03_JPRB,0.89092E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 1,52,15) = (/ &
+ & 0.10358E+04_JPRB,0.83681E+03_JPRB,0.60593E+03_JPRB,0.89390E+03_JPRB,0.11828E+04_JPRB /)  
+KB(:, 2,52,15) = (/ &
+ & 0.95423E+03_JPRB,0.78599E+03_JPRB,0.60540E+03_JPRB,0.89262E+03_JPRB,0.11809E+04_JPRB /)  
+KB(:, 3,52,15) = (/ &
+ & 0.98439E+03_JPRB,0.83257E+03_JPRB,0.60417E+03_JPRB,0.89064E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 4,52,15) = (/ &
+ & 0.10548E+04_JPRB,0.77074E+03_JPRB,0.60331E+03_JPRB,0.89093E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 5,52,15) = (/ &
+ & 0.10358E+04_JPRB,0.81478E+03_JPRB,0.60291E+03_JPRB,0.89030E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 1,53,15) = (/ &
+ & 0.96204E+03_JPRB,0.74448E+03_JPRB,0.60716E+03_JPRB,0.89629E+03_JPRB,0.11860E+04_JPRB /)  
+KB(:, 2,53,15) = (/ &
+ & 0.10872E+04_JPRB,0.75126E+03_JPRB,0.60583E+03_JPRB,0.89310E+03_JPRB,0.11816E+04_JPRB /)  
+KB(:, 3,53,15) = (/ &
+ & 0.90617E+03_JPRB,0.75210E+03_JPRB,0.60463E+03_JPRB,0.89194E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 4,53,15) = (/ &
+ & 0.97991E+03_JPRB,0.76565E+03_JPRB,0.60352E+03_JPRB,0.89113E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 5,53,15) = (/ &
+ & 0.10425E+04_JPRB,0.76988E+03_JPRB,0.60308E+03_JPRB,0.89058E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 1,54,15) = (/ &
+ & 0.10112E+04_JPRB,0.55645E+03_JPRB,0.60785E+03_JPRB,0.89766E+03_JPRB,0.11878E+04_JPRB /)  
+KB(:, 2,54,15) = (/ &
+ & 0.10637E+04_JPRB,0.66232E+03_JPRB,0.60623E+03_JPRB,0.89389E+03_JPRB,0.11827E+04_JPRB /)  
+KB(:, 3,54,15) = (/ &
+ & 0.88717E+03_JPRB,0.63014E+03_JPRB,0.60503E+03_JPRB,0.89226E+03_JPRB,0.11804E+04_JPRB /)  
+KB(:, 4,54,15) = (/ &
+ & 0.10369E+04_JPRB,0.84103E+03_JPRB,0.60384E+03_JPRB,0.89232E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 5,54,15) = (/ &
+ & 0.10000E+04_JPRB,0.70043E+03_JPRB,0.60321E+03_JPRB,0.89174E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 1,55,15) = (/ &
+ & 0.10615E+04_JPRB,0.77920E+03_JPRB,0.60858E+03_JPRB,0.89903E+03_JPRB,0.11896E+04_JPRB /)  
+KB(:, 2,55,15) = (/ &
+ & 0.10425E+04_JPRB,0.78513E+03_JPRB,0.60661E+03_JPRB,0.89494E+03_JPRB,0.11829E+04_JPRB /)  
+KB(:, 3,55,15) = (/ &
+ & 0.10916E+04_JPRB,0.73854E+03_JPRB,0.60542E+03_JPRB,0.89361E+03_JPRB,0.11809E+04_JPRB /)  
+KB(:, 4,55,15) = (/ &
+ & 0.10715E+04_JPRB,0.78936E+03_JPRB,0.60420E+03_JPRB,0.89162E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 5,55,15) = (/ &
+ & 0.96091E+03_JPRB,0.82578E+03_JPRB,0.60397E+03_JPRB,0.89094E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 1,56,15) = (/ &
+ & 0.10458E+04_JPRB,0.77242E+03_JPRB,0.60942E+03_JPRB,0.90044E+03_JPRB,0.11915E+04_JPRB /)  
+KB(:, 2,56,15) = (/ &
+ & 0.11062E+04_JPRB,0.77581E+03_JPRB,0.60712E+03_JPRB,0.89619E+03_JPRB,0.11859E+04_JPRB /)  
+KB(:, 3,56,15) = (/ &
+ & 0.10883E+04_JPRB,0.80121E+03_JPRB,0.60580E+03_JPRB,0.89306E+03_JPRB,0.11815E+04_JPRB /)  
+KB(:, 4,56,15) = (/ &
+ & 0.10726E+04_JPRB,0.82069E+03_JPRB,0.60459E+03_JPRB,0.89192E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 5,56,15) = (/ &
+ & 0.11263E+04_JPRB,0.78597E+03_JPRB,0.60416E+03_JPRB,0.89111E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 1,57,15) = (/ &
+ & 0.11095E+04_JPRB,0.76988E+03_JPRB,0.61034E+03_JPRB,0.90190E+03_JPRB,0.11935E+04_JPRB /)  
+KB(:, 2,57,15) = (/ &
+ & 0.97543E+03_JPRB,0.72583E+03_JPRB,0.60777E+03_JPRB,0.89749E+03_JPRB,0.11876E+04_JPRB /)  
+KB(:, 3,57,15) = (/ &
+ & 0.98548E+03_JPRB,0.78597E+03_JPRB,0.60618E+03_JPRB,0.89378E+03_JPRB,0.11826E+04_JPRB /)  
+KB(:, 4,57,15) = (/ &
+ & 0.98213E+03_JPRB,0.81053E+03_JPRB,0.60499E+03_JPRB,0.89222E+03_JPRB,0.11804E+04_JPRB /)  
+KB(:, 5,57,15) = (/ &
+ & 0.10760E+04_JPRB,0.81137E+03_JPRB,0.60380E+03_JPRB,0.89133E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 1,58,15) = (/ &
+ & 0.10034E+04_JPRB,0.71059E+03_JPRB,0.61128E+03_JPRB,0.90333E+03_JPRB,0.11954E+04_JPRB /)  
+KB(:, 2,58,15) = (/ &
+ & 0.97431E+03_JPRB,0.80290E+03_JPRB,0.60845E+03_JPRB,0.89878E+03_JPRB,0.11893E+04_JPRB /)  
+KB(:, 3,58,15) = (/ &
+ & 0.95308E+03_JPRB,0.77157E+03_JPRB,0.60654E+03_JPRB,0.89474E+03_JPRB,0.11839E+04_JPRB /)  
+KB(:, 4,58,15) = (/ &
+ & 0.10737E+04_JPRB,0.87404E+03_JPRB,0.60535E+03_JPRB,0.89257E+03_JPRB,0.11808E+04_JPRB /)  
+KB(:, 5,58,15) = (/ &
+ & 0.10626E+04_JPRB,0.67671E+03_JPRB,0.60413E+03_JPRB,0.89157E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 1,59,15) = (/ &
+ & 0.98325E+03_JPRB,0.78258E+03_JPRB,0.61167E+03_JPRB,0.90392E+03_JPRB,0.11962E+04_JPRB /)  
+KB(:, 2,59,15) = (/ &
+ & 0.10481E+04_JPRB,0.74785E+03_JPRB,0.60874E+03_JPRB,0.89931E+03_JPRB,0.11900E+04_JPRB /)  
+KB(:, 3,59,15) = (/ &
+ & 0.11151E+04_JPRB,0.73006E+03_JPRB,0.60669E+03_JPRB,0.89518E+03_JPRB,0.11820E+04_JPRB /)  
+KB(:, 4,59,15) = (/ &
+ & 0.10425E+04_JPRB,0.79358E+03_JPRB,0.60550E+03_JPRB,0.89369E+03_JPRB,0.11810E+04_JPRB /)  
+KB(:, 5,59,15) = (/ &
+ & 0.97877E+03_JPRB,0.79866E+03_JPRB,0.60428E+03_JPRB,0.89168E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 1,13,16) = (/ &
+ & 0.75523E+03_JPRB,0.86786E+03_JPRB,0.60838E+03_JPRB,0.89385E+03_JPRB,0.11815E+04_JPRB /)  
+KB(:, 2,13,16) = (/ &
+ & 0.10580E+03_JPRB,0.52074E+03_JPRB,0.60685E+03_JPRB,0.89272E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 3,13,16) = (/ &
+ & 0.88450E+03_JPRB,0.99478E+02_JPRB,0.60069E+03_JPRB,0.89217E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 4,13,16) = (/ &
+ & 0.47883E+03_JPRB,0.85714E+02_JPRB,0.60445E+03_JPRB,0.89133E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 5,13,16) = (/ &
+ & 0.30313E+03_JPRB,0.39357E+02_JPRB,0.60363E+03_JPRB,0.89015E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 1,14,16) = (/ &
+ & 0.59250E+03_JPRB,0.12538E+03_JPRB,0.60779E+03_JPRB,0.89359E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 2,14,16) = (/ &
+ & 0.45021E+03_JPRB,0.30819E+03_JPRB,0.60630E+03_JPRB,0.89255E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 3,14,16) = (/ &
+ & 0.38746E+03_JPRB,0.31955E+03_JPRB,0.60482E+03_JPRB,0.89198E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 4,14,16) = (/ &
+ & 0.59123E+03_JPRB,0.24014E+03_JPRB,0.60415E+03_JPRB,0.89112E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 5,14,16) = (/ &
+ & 0.47780E+03_JPRB,0.41362E+03_JPRB,0.60332E+03_JPRB,0.88306E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 1,15,16) = (/ &
+ & 0.10202E+04_JPRB,0.29221E+03_JPRB,0.60727E+03_JPRB,0.88647E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,15,16) = (/ &
+ & 0.55435E+03_JPRB,0.58788E+03_JPRB,0.60581E+03_JPRB,0.89239E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 3,15,16) = (/ &
+ & 0.31413E+03_JPRB,0.75889E+03_JPRB,0.60450E+03_JPRB,0.89181E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 4,15,16) = (/ &
+ & 0.41436E+03_JPRB,0.80717E+03_JPRB,0.60389E+03_JPRB,0.89092E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 5,15,16) = (/ &
+ & 0.84269E+03_JPRB,0.27451E+03_JPRB,0.60303E+03_JPRB,0.88966E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 1,16,16) = (/ &
+ & 0.19456E+03_JPRB,0.24351E+03_JPRB,0.60682E+03_JPRB,0.89311E+03_JPRB,0.11719E+04_JPRB /)  
+KB(:, 2,16,16) = (/ &
+ & 0.43800E+03_JPRB,0.21696E+03_JPRB,0.60538E+03_JPRB,0.89225E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 3,16,16) = (/ &
+ & 0.73851E+03_JPRB,0.22888E+03_JPRB,0.60428E+03_JPRB,0.89164E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 4,16,16) = (/ &
+ & 0.83650E+03_JPRB,0.13309E+03_JPRB,0.60366E+03_JPRB,0.89073E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 5,16,16) = (/ &
+ & 0.65895E+03_JPRB,0.36022E+03_JPRB,0.59813E+03_JPRB,0.88942E+03_JPRB,0.11670E+04_JPRB /)  
+KB(:, 1,17,16) = (/ &
+ & 0.97890E+03_JPRB,0.27257E+03_JPRB,0.60643E+03_JPRB,0.89290E+03_JPRB,0.11808E+04_JPRB /)  
+KB(:, 2,17,16) = (/ &
+ & 0.21678E+03_JPRB,0.36639E+03_JPRB,0.60501E+03_JPRB,0.89213E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,17,16) = (/ &
+ & 0.36576E+03_JPRB,0.64243E+03_JPRB,0.60409E+03_JPRB,0.89150E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 4,17,16) = (/ &
+ & 0.71301E+03_JPRB,0.32666E+03_JPRB,0.60345E+03_JPRB,0.89056E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,17,16) = (/ &
+ & 0.30605E+03_JPRB,0.68315E+03_JPRB,0.59789E+03_JPRB,0.88918E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 1,18,16) = (/ &
+ & 0.52238E+03_JPRB,0.17591E+03_JPRB,0.60609E+03_JPRB,0.89271E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 2,18,16) = (/ &
+ & 0.10253E+04_JPRB,0.75807E+03_JPRB,0.60468E+03_JPRB,0.89202E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,18,16) = (/ &
+ & 0.23095E+03_JPRB,0.31874E+03_JPRB,0.60392E+03_JPRB,0.89136E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 4,18,16) = (/ &
+ & 0.55144E+03_JPRB,0.80452E+03_JPRB,0.59863E+03_JPRB,0.89039E+03_JPRB,0.11685E+04_JPRB /)  
+KB(:, 5,18,16) = (/ &
+ & 0.36145E+03_JPRB,0.21165E+03_JPRB,0.60231E+03_JPRB,0.88211E+03_JPRB,0.11666E+04_JPRB /)  
+KB(:, 1,19,16) = (/ &
+ & 0.10124E+04_JPRB,0.51143E+03_JPRB,0.60113E+03_JPRB,0.89253E+03_JPRB,0.11805E+04_JPRB /)  
+KB(:, 2,19,16) = (/ &
+ & 0.54199E+03_JPRB,0.26758E+03_JPRB,0.60439E+03_JPRB,0.89192E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,19,16) = (/ &
+ & 0.61467E+03_JPRB,0.78253E+03_JPRB,0.59913E+03_JPRB,0.89123E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,19,16) = (/ &
+ & 0.58906E+03_JPRB,0.74398E+02_JPRB,0.60311E+03_JPRB,0.89023E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 5,19,16) = (/ &
+ & 0.98025E+03_JPRB,0.28476E+03_JPRB,0.59747E+03_JPRB,0.88189E+03_JPRB,0.11663E+04_JPRB /)  
+KB(:, 1,20,16) = (/ &
+ & 0.25361E+03_JPRB,0.16739E+03_JPRB,0.60550E+03_JPRB,0.89234E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 2,20,16) = (/ &
+ & 0.70227E+03_JPRB,0.71784E+03_JPRB,0.59948E+03_JPRB,0.89182E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 3,20,16) = (/ &
+ & 0.89681E+03_JPRB,0.24714E+03_JPRB,0.60364E+03_JPRB,0.89109E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 4,20,16) = (/ &
+ & 0.30123E+03_JPRB,0.54911E+03_JPRB,0.60295E+03_JPRB,0.89006E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,20,16) = (/ &
+ & 0.68301E+03_JPRB,0.36973E+03_JPRB,0.59725E+03_JPRB,0.88846E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 1,21,16) = (/ &
+ & 0.25236E+03_JPRB,0.80202E+03_JPRB,0.60523E+03_JPRB,0.89218E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 2,21,16) = (/ &
+ & 0.77221E+03_JPRB,0.62834E+03_JPRB,0.60401E+03_JPRB,0.89171E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 3,21,16) = (/ &
+ & 0.70626E+03_JPRB,0.20918E+03_JPRB,0.60351E+03_JPRB,0.89096E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 4,21,16) = (/ &
+ & 0.16217E+03_JPRB,0.14134E+03_JPRB,0.59816E+03_JPRB,0.88303E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 5,21,16) = (/ &
+ & 0.51843E+03_JPRB,0.20259E+03_JPRB,0.59703E+03_JPRB,0.88818E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 1,22,16) = (/ &
+ & 0.21890E+03_JPRB,0.24577E+03_JPRB,0.60023E+03_JPRB,0.89209E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,22,16) = (/ &
+ & 0.30771E+03_JPRB,0.55233E+03_JPRB,0.60388E+03_JPRB,0.89157E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 3,22,16) = (/ &
+ & 0.17796E+03_JPRB,0.48432E+03_JPRB,0.60334E+03_JPRB,0.89076E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 4,22,16) = (/ &
+ & 0.88899E+03_JPRB,0.36751E+03_JPRB,0.60258E+03_JPRB,0.88960E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,22,16) = (/ &
+ & 0.37953E+03_JPRB,0.56918E+03_JPRB,0.58746E+03_JPRB,0.88775E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 1,23,16) = (/ &
+ & 0.42018E+03_JPRB,0.21434E+03_JPRB,0.60456E+03_JPRB,0.89198E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 2,23,16) = (/ &
+ & 0.10252E+04_JPRB,0.32427E+03_JPRB,0.60375E+03_JPRB,0.89142E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 3,23,16) = (/ &
+ & 0.25811E+03_JPRB,0.61743E+03_JPRB,0.60318E+03_JPRB,0.89055E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 4,23,16) = (/ &
+ & 0.60449E+03_JPRB,0.28100E+03_JPRB,0.60235E+03_JPRB,0.88930E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 5,23,16) = (/ &
+ & 0.43495E+03_JPRB,0.18925E+03_JPRB,0.60100E+03_JPRB,0.88727E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 1,24,16) = (/ &
+ & 0.68497E+03_JPRB,0.77568E+03_JPRB,0.60423E+03_JPRB,0.89188E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 2,24,16) = (/ &
+ & 0.27378E+03_JPRB,0.43332E+03_JPRB,0.60362E+03_JPRB,0.89125E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 3,24,16) = (/ &
+ & 0.44258E+03_JPRB,0.48182E+03_JPRB,0.60301E+03_JPRB,0.89032E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 4,24,16) = (/ &
+ & 0.38603E+03_JPRB,0.34135E+03_JPRB,0.59747E+03_JPRB,0.88895E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,24,16) = (/ &
+ & 0.39386E+03_JPRB,0.54222E+03_JPRB,0.60062E+03_JPRB,0.88674E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 1,25,16) = (/ &
+ & 0.55482E+03_JPRB,0.53022E+03_JPRB,0.60394E+03_JPRB,0.89175E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,25,16) = (/ &
+ & 0.90002E+03_JPRB,0.91361E+02_JPRB,0.60348E+03_JPRB,0.89107E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 3,25,16) = (/ &
+ & 0.17670E+03_JPRB,0.51744E+03_JPRB,0.59819E+03_JPRB,0.89007E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 4,25,16) = (/ &
+ & 0.44153E+03_JPRB,0.41376E+03_JPRB,0.59256E+03_JPRB,0.88854E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 5,25,16) = (/ &
+ & 0.24073E+03_JPRB,0.21288E+03_JPRB,0.60020E+03_JPRB,0.88614E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,26,16) = (/ &
+ & 0.37725E+03_JPRB,0.61445E+03_JPRB,0.60383E+03_JPRB,0.89161E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 2,26,16) = (/ &
+ & 0.10269E+04_JPRB,0.42565E+03_JPRB,0.59868E+03_JPRB,0.89085E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,26,16) = (/ &
+ & 0.49719E+03_JPRB,0.26744E+03_JPRB,0.60261E+03_JPRB,0.88977E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,26,16) = (/ &
+ & 0.41684E+03_JPRB,0.19443E+03_JPRB,0.59685E+03_JPRB,0.88123E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,26,16) = (/ &
+ & 0.32855E+03_JPRB,0.57095E+03_JPRB,0.59973E+03_JPRB,0.88545E+03_JPRB,0.11622E+04_JPRB /)  
+KB(:, 1,27,16) = (/ &
+ & 0.60914E+03_JPRB,0.57105E+03_JPRB,0.60371E+03_JPRB,0.89145E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,27,16) = (/ &
+ & 0.26439E+03_JPRB,0.15182E+03_JPRB,0.60316E+03_JPRB,0.89062E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 3,27,16) = (/ &
+ & 0.73685E+03_JPRB,0.69813E+03_JPRB,0.60238E+03_JPRB,0.88259E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 4,27,16) = (/ &
+ & 0.64054E+03_JPRB,0.28524E+03_JPRB,0.60110E+03_JPRB,0.88751E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 5,27,16) = (/ &
+ & 0.75244E+03_JPRB,0.50359E+03_JPRB,0.59461E+03_JPRB,0.87791E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 1,28,16) = (/ &
+ & 0.64046E+03_JPRB,0.15170E+03_JPRB,0.60358E+03_JPRB,0.89127E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 2,28,16) = (/ &
+ & 0.70429E+03_JPRB,0.23052E+03_JPRB,0.60299E+03_JPRB,0.89037E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 3,28,16) = (/ &
+ & 0.44006E+03_JPRB,0.41240E+03_JPRB,0.60212E+03_JPRB,0.88904E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 4,28,16) = (/ &
+ & 0.22398E+03_JPRB,0.59419E+03_JPRB,0.60069E+03_JPRB,0.88691E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 5,28,16) = (/ &
+ & 0.55183E+03_JPRB,0.13336E+03_JPRB,0.59871E+03_JPRB,0.87038E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 1,29,16) = (/ &
+ & 0.59987E+03_JPRB,0.49106E+03_JPRB,0.60344E+03_JPRB,0.89107E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 2,29,16) = (/ &
+ & 0.34384E+03_JPRB,0.96976E+02_JPRB,0.60280E+03_JPRB,0.89009E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 3,29,16) = (/ &
+ & 0.54363E+03_JPRB,0.20603E+03_JPRB,0.60181E+03_JPRB,0.88860E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 4,29,16) = (/ &
+ & 0.10391E+04_JPRB,0.38775E+03_JPRB,0.60023E+03_JPRB,0.88623E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 5,29,16) = (/ &
+ & 0.22377E+03_JPRB,0.17567E+03_JPRB,0.59820E+03_JPRB,0.88324E+03_JPRB,0.11684E+04_JPRB /)  
+KB(:, 1,30,16) = (/ &
+ & 0.63138E+03_JPRB,0.68455E+03_JPRB,0.60329E+03_JPRB,0.89085E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 2,30,16) = (/ &
+ & 0.58332E+03_JPRB,0.21199E+03_JPRB,0.60259E+03_JPRB,0.88978E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 3,30,16) = (/ &
+ & 0.33555E+03_JPRB,0.46024E+03_JPRB,0.59221E+03_JPRB,0.88809E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 4,30,16) = (/ &
+ & 0.44733E+03_JPRB,0.32696E+03_JPRB,0.59512E+03_JPRB,0.88550E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 5,30,16) = (/ &
+ & 0.79071E+03_JPRB,0.72043E+03_JPRB,0.59773E+03_JPRB,0.85548E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 1,31,16) = (/ &
+ & 0.81471E+03_JPRB,0.68414E+03_JPRB,0.60312E+03_JPRB,0.89060E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 2,31,16) = (/ &
+ & 0.44722E+03_JPRB,0.73246E+03_JPRB,0.60235E+03_JPRB,0.88942E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 3,31,16) = (/ &
+ & 0.48709E+03_JPRB,0.24210E+03_JPRB,0.60108E+03_JPRB,0.88068E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 4,31,16) = (/ &
+ & 0.63873E+03_JPRB,0.56888E+03_JPRB,0.59920E+03_JPRB,0.88472E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 5,31,16) = (/ &
+ & 0.72647E+03_JPRB,0.26020E+03_JPRB,0.59739E+03_JPRB,0.78035E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 1,32,16) = (/ &
+ & 0.10219E+04_JPRB,0.29652E+03_JPRB,0.60294E+03_JPRB,0.89034E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,32,16) = (/ &
+ & 0.75833E+03_JPRB,0.13311E+03_JPRB,0.59281E+03_JPRB,0.88900E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 3,32,16) = (/ &
+ & 0.54275E+03_JPRB,0.31460E+03_JPRB,0.59602E+03_JPRB,0.88686E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,32,16) = (/ &
+ & 0.28731E+03_JPRB,0.15124E+03_JPRB,0.59865E+03_JPRB,0.87712E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 5,32,16) = (/ &
+ & 0.79004E+03_JPRB,0.63514E+03_JPRB,0.58791E+03_JPRB,0.86135E+03_JPRB,0.11214E+04_JPRB /)  
+KB(:, 1,33,16) = (/ &
+ & 0.42295E+03_JPRB,0.52022E+03_JPRB,0.60275E+03_JPRB,0.88319E+03_JPRB,0.11773E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART37',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,33,16) = (/ &
+ & 0.72614E+03_JPRB,0.33266E+03_JPRB,0.60175E+03_JPRB,0.88169E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 3,33,16) = (/ &
+ & 0.36703E+03_JPRB,0.22982E+03_JPRB,0.59554E+03_JPRB,0.88614E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 4,33,16) = (/ &
+ & 0.23137E+03_JPRB,0.32656E+03_JPRB,0.59813E+03_JPRB,0.88315E+03_JPRB,0.11503E+04_JPRB /)  
+KB(:, 5,33,16) = (/ &
+ & 0.98125E+03_JPRB,0.60471E+03_JPRB,0.59681E+03_JPRB,0.86770E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 1,34,16) = (/ &
+ & 0.44676E+03_JPRB,0.16327E+03_JPRB,0.59792E+03_JPRB,0.88976E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 2,34,16) = (/ &
+ & 0.27122E+03_JPRB,0.52002E+03_JPRB,0.60144E+03_JPRB,0.88807E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,34,16) = (/ &
+ & 0.89338E+03_JPRB,0.37487E+03_JPRB,0.59509E+03_JPRB,0.87866E+03_JPRB,0.11622E+04_JPRB /)  
+KB(:, 4,34,16) = (/ &
+ & 0.43071E+03_JPRB,0.56832E+03_JPRB,0.58850E+03_JPRB,0.83509E+03_JPRB,0.10958E+04_JPRB /)  
+KB(:, 5,34,16) = (/ &
+ & 0.20737E+03_JPRB,0.35064E+03_JPRB,0.59655E+03_JPRB,0.88088E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 1,35,16) = (/ &
+ & 0.79758E+02_JPRB,0.10278E+03_JPRB,0.60244E+03_JPRB,0.87589E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,35,16) = (/ &
+ & 0.52637E+03_JPRB,0.56826E+03_JPRB,0.60124E+03_JPRB,0.88778E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 3,35,16) = (/ &
+ & 0.43064E+03_JPRB,0.29620E+03_JPRB,0.59943E+03_JPRB,0.88508E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 4,35,16) = (/ &
+ & 0.21531E+03_JPRB,0.74954E+03_JPRB,0.57453E+03_JPRB,0.86197E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 5,35,16) = (/ &
+ & 0.85323E+03_JPRB,0.27200E+03_JPRB,0.59640E+03_JPRB,0.88066E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 1,36,16) = (/ &
+ & 0.99678E+03_JPRB,0.21760E+03_JPRB,0.60242E+03_JPRB,0.88955E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,36,16) = (/ &
+ & 0.90902E+03_JPRB,0.40496E+03_JPRB,0.59196E+03_JPRB,0.88090E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 3,36,16) = (/ &
+ & 0.38273E+03_JPRB,0.60439E+03_JPRB,0.59478E+03_JPRB,0.87820E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 4,36,16) = (/ &
+ & 0.84516E+03_JPRB,0.25383E+03_JPRB,0.58829E+03_JPRB,0.79406E+03_JPRB,0.11312E+04_JPRB /)  
+KB(:, 5,36,16) = (/ &
+ & 0.45445E+03_JPRB,0.41700E+03_JPRB,0.59637E+03_JPRB,0.88062E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 1,37,16) = (/ &
+ & 0.62987E+03_JPRB,0.44723E+03_JPRB,0.59790E+03_JPRB,0.88973E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 2,37,16) = (/ &
+ & 0.80524E+03_JPRB,0.68894E+03_JPRB,0.59677E+03_JPRB,0.88802E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,37,16) = (/ &
+ & 0.18337E+03_JPRB,0.45323E+03_JPRB,0.59504E+03_JPRB,0.88541E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 4,37,16) = (/ &
+ & 0.50224E+03_JPRB,0.16920E+03_JPRB,0.59765E+03_JPRB,0.86220E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 5,37,16) = (/ &
+ & 0.85299E+03_JPRB,0.22358E+03_JPRB,0.59652E+03_JPRB,0.88084E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 1,38,16) = (/ &
+ & 0.91678E+03_JPRB,0.47738E+03_JPRB,0.59801E+03_JPRB,0.88990E+03_JPRB,0.11681E+04_JPRB /)  
+KB(:, 2,38,16) = (/ &
+ & 0.47033E+03_JPRB,0.39881E+03_JPRB,0.59234E+03_JPRB,0.88147E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,38,16) = (/ &
+ & 0.69352E+03_JPRB,0.66467E+03_JPRB,0.59993E+03_JPRB,0.87901E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 4,38,16) = (/ &
+ & 0.48625E+03_JPRB,0.32628E+03_JPRB,0.59330E+03_JPRB,0.86251E+03_JPRB,0.11590E+04_JPRB /)  
+KB(:, 5,38,16) = (/ &
+ & 0.31087E+03_JPRB,0.44108E+03_JPRB,0.58749E+03_JPRB,0.88107E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 1,39,16) = (/ &
+ & 0.35870E+03_JPRB,0.11480E+03_JPRB,0.60275E+03_JPRB,0.89007E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 2,39,16) = (/ &
+ & 0.37464E+03_JPRB,0.78547E+03_JPRB,0.59714E+03_JPRB,0.88174E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 3,39,16) = (/ &
+ & 0.10123E+04_JPRB,0.30814E+03_JPRB,0.59558E+03_JPRB,0.87940E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 4,39,16) = (/ &
+ & 0.17535E+03_JPRB,0.96668E+02_JPRB,0.59817E+03_JPRB,0.88323E+03_JPRB,0.11594E+04_JPRB /)  
+KB(:, 5,39,16) = (/ &
+ & 0.36664E+03_JPRB,0.56187E+03_JPRB,0.58764E+03_JPRB,0.86774E+03_JPRB,0.11658E+04_JPRB /)  
+KB(:, 1,40,16) = (/ &
+ & 0.48620E+03_JPRB,0.57396E+03_JPRB,0.60293E+03_JPRB,0.89033E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,40,16) = (/ &
+ & 0.94847E+03_JPRB,0.62832E+03_JPRB,0.60206E+03_JPRB,0.88901E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 3,40,16) = (/ &
+ & 0.54197E+03_JPRB,0.51352E+03_JPRB,0.60063E+03_JPRB,0.88687E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,40,16) = (/ &
+ & 0.21519E+03_JPRB,0.61017E+03_JPRB,0.58944E+03_JPRB,0.86354E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 5,40,16) = (/ &
+ & 0.27098E+03_JPRB,0.33831E+03_JPRB,0.58331E+03_JPRB,0.88170E+03_JPRB,0.10587E+04_JPRB /)  
+KB(:, 1,41,16) = (/ &
+ & 0.14346E+03_JPRB,0.26582E+03_JPRB,0.60309E+03_JPRB,0.89059E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 2,41,16) = (/ &
+ & 0.76510E+03_JPRB,0.70682E+03_JPRB,0.60232E+03_JPRB,0.88941E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 3,41,16) = (/ &
+ & 0.62163E+03_JPRB,0.16311E+03_JPRB,0.60105E+03_JPRB,0.88750E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 4,41,16) = (/ &
+ & 0.87665E+02_JPRB,0.19331E+03_JPRB,0.59457E+03_JPRB,0.88472E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 5,41,16) = (/ &
+ & 0.10041E+04_JPRB,0.44098E+03_JPRB,0.58818E+03_JPRB,0.72606E+03_JPRB,0.10412E+04_JPRB /)  
+KB(:, 1,42,16) = (/ &
+ & 0.66944E+03_JPRB,0.41079E+03_JPRB,0.60325E+03_JPRB,0.89083E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 2,42,16) = (/ &
+ & 0.51801E+03_JPRB,0.25976E+03_JPRB,0.60255E+03_JPRB,0.88976E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 3,42,16) = (/ &
+ & 0.23111E+03_JPRB,0.27788E+03_JPRB,0.58293E+03_JPRB,0.88808E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,42,16) = (/ &
+ & 0.44627E+03_JPRB,0.35036E+03_JPRB,0.59971E+03_JPRB,0.87868E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 5,42,16) = (/ &
+ & 0.75706E+03_JPRB,0.77924E+03_JPRB,0.59310E+03_JPRB,0.87584E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 1,43,16) = (/ &
+ & 0.60566E+03_JPRB,0.10873E+03_JPRB,0.60342E+03_JPRB,0.89110E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 2,43,16) = (/ &
+ & 0.92441E+03_JPRB,0.64634E+03_JPRB,0.59816E+03_JPRB,0.89014E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 3,43,16) = (/ &
+ & 0.18329E+03_JPRB,0.35035E+03_JPRB,0.59722E+03_JPRB,0.88869E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 4,43,16) = (/ &
+ & 0.34266E+03_JPRB,0.17517E+03_JPRB,0.59569E+03_JPRB,0.87957E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 5,43,16) = (/ &
+ & 0.92438E+03_JPRB,0.90606E+02_JPRB,0.59829E+03_JPRB,0.88341E+03_JPRB,0.11057E+04_JPRB /)  
+KB(:, 1,44,16) = (/ &
+ & 0.38251E+03_JPRB,0.19934E+03_JPRB,0.60359E+03_JPRB,0.89135E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 2,44,16) = (/ &
+ & 0.48609E+03_JPRB,0.71881E+03_JPRB,0.59839E+03_JPRB,0.89050E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 3,44,16) = (/ &
+ & 0.54984E+03_JPRB,0.19933E+03_JPRB,0.59759E+03_JPRB,0.88926E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 4,44,16) = (/ &
+ & 0.85264E+03_JPRB,0.64027E+03_JPRB,0.60090E+03_JPRB,0.88045E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 5,44,16) = (/ &
+ & 0.88451E+03_JPRB,0.49530E+03_JPRB,0.59898E+03_JPRB,0.87082E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 1,45,16) = (/ &
+ & 0.66936E+03_JPRB,0.51946E+03_JPRB,0.60373E+03_JPRB,0.89157E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 2,45,16) = (/ &
+ & 0.95622E+03_JPRB,0.66442E+03_JPRB,0.60324E+03_JPRB,0.89082E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,45,16) = (/ &
+ & 0.70122E+03_JPRB,0.25973E+03_JPRB,0.60254E+03_JPRB,0.88974E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,45,16) = (/ &
+ & 0.13546E+03_JPRB,0.47717E+03_JPRB,0.59679E+03_JPRB,0.88805E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 5,45,16) = (/ &
+ & 0.44623E+03_JPRB,0.47716E+03_JPRB,0.59968E+03_JPRB,0.87864E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 1,46,16) = (/ &
+ & 0.16734E+03_JPRB,0.11476E+03_JPRB,0.60389E+03_JPRB,0.89176E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 2,46,16) = (/ &
+ & 0.41435E+03_JPRB,0.59796E+03_JPRB,0.60344E+03_JPRB,0.89112E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 3,46,16) = (/ &
+ & 0.78886E+03_JPRB,0.13892E+03_JPRB,0.60282E+03_JPRB,0.89018E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 4,46,16) = (/ &
+ & 0.48606E+03_JPRB,0.76103E+03_JPRB,0.59263E+03_JPRB,0.88876E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 5,46,16) = (/ &
+ & 0.77291E+03_JPRB,0.68855E+03_JPRB,0.59113E+03_JPRB,0.88648E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 1,47,16) = (/ &
+ & 0.80479E+03_JPRB,0.70064E+03_JPRB,0.60443E+03_JPRB,0.89194E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,47,16) = (/ &
+ & 0.74901E+03_JPRB,0.35032E+03_JPRB,0.60363E+03_JPRB,0.89142E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 3,47,16) = (/ &
+ & 0.62948E+03_JPRB,0.48923E+03_JPRB,0.60309E+03_JPRB,0.89059E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 4,47,16) = (/ &
+ & 0.87648E+02_JPRB,0.36239E+03_JPRB,0.60232E+03_JPRB,0.88257E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 5,47,16) = (/ &
+ & 0.44621E+03_JPRB,0.42279E+03_JPRB,0.60106E+03_JPRB,0.88751E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,48,16) = (/ &
+ & 0.39044E+03_JPRB,0.31407E+03_JPRB,0.60497E+03_JPRB,0.89220E+03_JPRB,0.11803E+04_JPRB /)  
+KB(:, 2,48,16) = (/ &
+ & 0.28685E+03_JPRB,0.50131E+03_JPRB,0.60379E+03_JPRB,0.89166E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 3,48,16) = (/ &
+ & 0.38246E+03_JPRB,0.70665E+03_JPRB,0.60333E+03_JPRB,0.89096E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 4,48,16) = (/ &
+ & 0.47011E+03_JPRB,0.61002E+03_JPRB,0.60267E+03_JPRB,0.88995E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,48,16) = (/ &
+ & 0.36652E+03_JPRB,0.63417E+03_JPRB,0.60164E+03_JPRB,0.88155E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 1,49,16) = (/ &
+ & 0.76492E+03_JPRB,0.96636E+02_JPRB,0.60550E+03_JPRB,0.89270E+03_JPRB,0.11810E+04_JPRB /)  
+KB(:, 2,49,16) = (/ &
+ & 0.23107E+03_JPRB,0.19931E+03_JPRB,0.60416E+03_JPRB,0.89186E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 3,49,16) = (/ &
+ & 0.86850E+03_JPRB,0.30199E+03_JPRB,0.59890E+03_JPRB,0.89128E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 4,49,16) = (/ &
+ & 0.27091E+03_JPRB,0.22951E+03_JPRB,0.60296E+03_JPRB,0.89040E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 5,49,16) = (/ &
+ & 0.45416E+03_JPRB,0.53149E+03_JPRB,0.60212E+03_JPRB,0.88227E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 1,50,16) = (/ &
+ & 0.39042E+03_JPRB,0.12079E+03_JPRB,0.60601E+03_JPRB,0.89316E+03_JPRB,0.11816E+04_JPRB /)  
+KB(:, 2,50,16) = (/ &
+ & 0.38245E+03_JPRB,0.73080E+03_JPRB,0.60467E+03_JPRB,0.89201E+03_JPRB,0.11709E+04_JPRB /)  
+KB(:, 3,50,16) = (/ &
+ & 0.19919E+03_JPRB,0.50733E+03_JPRB,0.60370E+03_JPRB,0.89153E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 4,50,16) = (/ &
+ & 0.52587E+03_JPRB,0.41673E+03_JPRB,0.60320E+03_JPRB,0.89076E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 5,50,16) = (/ &
+ & 0.25497E+03_JPRB,0.90594E+02_JPRB,0.59785E+03_JPRB,0.88966E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 1,51,16) = (/ &
+ & 0.35058E+03_JPRB,0.56772E+03_JPRB,0.60650E+03_JPRB,0.89405E+03_JPRB,0.11830E+04_JPRB /)  
+KB(:, 2,51,16) = (/ &
+ & 0.39839E+03_JPRB,0.52545E+03_JPRB,0.60516E+03_JPRB,0.89238E+03_JPRB,0.11806E+04_JPRB /)  
+KB(:, 3,51,16) = (/ &
+ & 0.69319E+03_JPRB,0.65831E+03_JPRB,0.60384E+03_JPRB,0.89174E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 4,51,16) = (/ &
+ & 0.66132E+03_JPRB,0.42881E+03_JPRB,0.60341E+03_JPRB,0.89108E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 5,51,16) = (/ &
+ & 0.80473E+03_JPRB,0.49524E+03_JPRB,0.59814E+03_JPRB,0.88327E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 1,52,16) = (/ &
+ & 0.75693E+03_JPRB,0.32010E+03_JPRB,0.60698E+03_JPRB,0.89551E+03_JPRB,0.11849E+04_JPRB /)  
+KB(:, 2,52,16) = (/ &
+ & 0.98002E+03_JPRB,0.74890E+03_JPRB,0.60565E+03_JPRB,0.89283E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 3,52,16) = (/ &
+ & 0.42228E+03_JPRB,0.32613E+03_JPRB,0.60430E+03_JPRB,0.89190E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 4,52,16) = (/ &
+ & 0.43025E+03_JPRB,0.70662E+03_JPRB,0.60359E+03_JPRB,0.89136E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 5,52,16) = (/ &
+ & 0.81269E+03_JPRB,0.56167E+03_JPRB,0.60303E+03_JPRB,0.89051E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 1,53,16) = (/ &
+ & 0.98002E+03_JPRB,0.61603E+03_JPRB,0.60747E+03_JPRB,0.89705E+03_JPRB,0.11870E+04_JPRB /)  
+KB(:, 2,53,16) = (/ &
+ & 0.28683E+03_JPRB,0.42277E+03_JPRB,0.60613E+03_JPRB,0.89328E+03_JPRB,0.11818E+04_JPRB /)  
+KB(:, 3,53,16) = (/ &
+ & 0.45415E+03_JPRB,0.68246E+03_JPRB,0.60479E+03_JPRB,0.89204E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 4,53,16) = (/ &
+ & 0.78879E+03_JPRB,0.48920E+03_JPRB,0.60374E+03_JPRB,0.89159E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 5,53,16) = (/ &
+ & 0.76488E+03_JPRB,0.14495E+03_JPRB,0.60326E+03_JPRB,0.89085E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 1,54,16) = (/ &
+ & 0.67724E+03_JPRB,0.76701E+03_JPRB,0.60808E+03_JPRB,0.89852E+03_JPRB,0.11890E+04_JPRB /)  
+KB(:, 2,54,16) = (/ &
+ & 0.81269E+03_JPRB,0.24762E+03_JPRB,0.60658E+03_JPRB,0.89430E+03_JPRB,0.11833E+04_JPRB /)  
+KB(:, 3,54,16) = (/ &
+ & 0.94813E+03_JPRB,0.63414E+03_JPRB,0.60524E+03_JPRB,0.89246E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 4,54,16) = (/ &
+ & 0.49398E+03_JPRB,0.28989E+03_JPRB,0.60390E+03_JPRB,0.88491E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 5,54,16) = (/ &
+ & 0.89236E+03_JPRB,0.27781E+03_JPRB,0.60344E+03_JPRB,0.88428E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 1,55,16) = (/ &
+ & 0.52586E+03_JPRB,0.77305E+03_JPRB,0.60906E+03_JPRB,0.89999E+03_JPRB,0.11909E+04_JPRB /)  
+KB(:, 2,55,16) = (/ &
+ & 0.54179E+03_JPRB,0.64018E+03_JPRB,0.60701E+03_JPRB,0.89560E+03_JPRB,0.11851E+04_JPRB /)  
+KB(:, 3,55,16) = (/ &
+ & 0.50992E+03_JPRB,0.60394E+03_JPRB,0.60567E+03_JPRB,0.88598E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 4,55,16) = (/ &
+ & 0.63740E+03_JPRB,0.44088E+03_JPRB,0.60433E+03_JPRB,0.89191E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 5,55,16) = (/ &
+ & 0.49398E+03_JPRB,0.37444E+03_JPRB,0.59895E+03_JPRB,0.89137E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 1,56,16) = (/ &
+ & 0.90829E+03_JPRB,0.27177E+03_JPRB,0.61007E+03_JPRB,0.90151E+03_JPRB,0.11929E+04_JPRB /)  
+KB(:, 2,56,16) = (/ &
+ & 0.35854E+03_JPRB,0.24158E+03_JPRB,0.60744E+03_JPRB,0.89694E+03_JPRB,0.11869E+04_JPRB /)  
+KB(:, 3,56,16) = (/ &
+ & 0.59756E+03_JPRB,0.47107E+03_JPRB,0.60610E+03_JPRB,0.89325E+03_JPRB,0.11817E+04_JPRB /)  
+KB(:, 4,56,16) = (/ &
+ & 0.52585E+03_JPRB,0.35632E+03_JPRB,0.60476E+03_JPRB,0.89203E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 5,56,16) = (/ &
+ & 0.27886E+03_JPRB,0.24761E+03_JPRB,0.59909E+03_JPRB,0.89157E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 1,57,16) = (/ &
+ & 0.34260E+03_JPRB,0.66433E+03_JPRB,0.61112E+03_JPRB,0.90308E+03_JPRB,0.11950E+04_JPRB /)  
+KB(:, 2,57,16) = (/ &
+ & 0.66130E+03_JPRB,0.45295E+03_JPRB,0.60796E+03_JPRB,0.89834E+03_JPRB,0.11887E+04_JPRB /)  
+KB(:, 3,57,16) = (/ &
+ & 0.69317E+03_JPRB,0.42880E+03_JPRB,0.60653E+03_JPRB,0.89415E+03_JPRB,0.11831E+04_JPRB /)  
+KB(:, 4,57,16) = (/ &
+ & 0.27089E+03_JPRB,0.28385E+03_JPRB,0.60519E+03_JPRB,0.89241E+03_JPRB,0.11806E+04_JPRB /)  
+KB(:, 5,57,16) = (/ &
+ & 0.66926E+03_JPRB,0.34424E+03_JPRB,0.60385E+03_JPRB,0.89175E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 1,58,16) = (/ &
+ & 0.96406E+03_JPRB,0.25365E+03_JPRB,0.61214E+03_JPRB,0.90462E+03_JPRB,0.11971E+04_JPRB /)  
+KB(:, 2,58,16) = (/ &
+ & 0.31073E+03_JPRB,0.28385E+03_JPRB,0.60888E+03_JPRB,0.89972E+03_JPRB,0.11906E+04_JPRB /)  
+KB(:, 3,58,16) = (/ &
+ & 0.96405E+03_JPRB,0.57374E+03_JPRB,0.60693E+03_JPRB,0.89536E+03_JPRB,0.11848E+04_JPRB /)  
+KB(:, 4,58,16) = (/ &
+ & 0.69316E+03_JPRB,0.13891E+03_JPRB,0.60560E+03_JPRB,0.89278E+03_JPRB,0.11811E+04_JPRB /)  
+KB(:, 5,58,16) = (/ &
+ & 0.59755E+03_JPRB,0.75492E+03_JPRB,0.60426E+03_JPRB,0.89189E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 1,59,16) = (/ &
+ & 0.92422E+03_JPRB,0.39860E+03_JPRB,0.61256E+03_JPRB,0.90525E+03_JPRB,0.11979E+04_JPRB /)  
+KB(:, 2,59,16) = (/ &
+ & 0.78877E+03_JPRB,0.42275E+03_JPRB,0.60926E+03_JPRB,0.90029E+03_JPRB,0.11913E+04_JPRB /)  
+KB(:, 3,59,16) = (/ &
+ & 0.35853E+03_JPRB,0.65225E+03_JPRB,0.60710E+03_JPRB,0.89586E+03_JPRB,0.11854E+04_JPRB /)  
+KB(:, 4,59,16) = (/ &
+ & 0.54975E+03_JPRB,0.50730E+03_JPRB,0.60576E+03_JPRB,0.88606E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 5,59,16) = (/ &
+ & 0.52585E+03_JPRB,0.62205E+03_JPRB,0.60442E+03_JPRB,0.89194E+03_JPRB,0.11799E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+END SUBROUTINE SRTM_KGB28
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb28.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb28.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb28.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB28
+END SUBROUTINE SRTM_KGB28
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb29.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb29.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb29.F90	(revision 3330)
@@ -0,0 +1,2083 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB29
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 29:   820-2600 cm-1 (low - H2O; high - CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA29, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL &
+ & , ABSH2O, ABSCO2, LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB29',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 1.32880_JPRB    , 2.14018_JPRB    , 1.97612_JPRB    , 1.79000_JPRB    , &
+ & 1.51242_JPRB    , 1.22977_JPRB    , 1.06052_JPRB    , 0.800996_JPRB   , &
+ & 0.748053_JPRB   , 8.64369E-02_JPRB, 7.10675E-02_JPRB, 5.62425E-02_JPRB, &
+ & 4.46988E-02_JPRB, 3.07441E-02_JPRB, 1.16728E-02_JPRB, 1.65573E-03_JPRB /)  
+
+ABSCO2 = (/ &
+ & 2.90073E-06_JPRB, 2.12382E-05_JPRB, 1.03032E-04_JPRB, 1.86481E-04_JPRB, &
+ & 4.31997E-04_JPRB, 6.08238E-04_JPRB, 2.17603E-03_JPRB, 4.64479E-02_JPRB, &
+ & 2.96956_JPRB    , 14.9569_JPRB    , 28.4831_JPRB    , 61.3998_JPRB    , &
+ & 164.129_JPRB    , 832.282_JPRB    , 4995.02_JPRB    , 12678.1_JPRB     /)  
+     
+ABSH2O = (/ &
+ & 2.99508E-04_JPRB, 3.95012E-03_JPRB, 1.49316E-02_JPRB, 3.24384E-02_JPRB, &
+ & 6.92879E-02_JPRB, 0.123523_JPRB   , 0.360985_JPRB   , 1.86434_JPRB    , &
+ & 10.38157_JPRB   , 0.214129_JPRB   , 0.213914_JPRB   , 0.212781_JPRB   , &
+ & 0.215562_JPRB   , 0.218087_JPRB   , 0.220918_JPRB   , 0.218546_JPRB    /)  
+     
+!     Rayleigh extinction coefficient at v = 2200 cm-1.
+RAYL = 9.30E-11_JPRB
+
+LAYREFFR = 49
+
+!     ------------------------------------------------------------------
+
+!     The array KA 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.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.11565E-03_JPRB,0.10123E-03_JPRB,0.90804E-04_JPRB,0.82282E-04_JPRB,0.71083E-04_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.96434E-04_JPRB,0.82830E-04_JPRB,0.72366E-04_JPRB,0.61803E-04_JPRB,0.52497E-04_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.64539E-04_JPRB,0.56659E-04_JPRB,0.46605E-04_JPRB,0.39815E-04_JPRB,0.37118E-04_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.34417E-04_JPRB,0.27113E-04_JPRB,0.25362E-04_JPRB,0.30345E-04_JPRB,0.36275E-04_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.12260E-04_JPRB,0.15856E-04_JPRB,0.20834E-04_JPRB,0.27363E-04_JPRB,0.36114E-04_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.10221E-04_JPRB,0.14598E-04_JPRB,0.19695E-04_JPRB,0.25976E-04_JPRB,0.33702E-04_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.97563E-05_JPRB,0.13809E-04_JPRB,0.20231E-04_JPRB,0.27238E-04_JPRB,0.36110E-04_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.14062E-04_JPRB,0.19587E-04_JPRB,0.27069E-04_JPRB,0.36937E-04_JPRB,0.49415E-04_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.36371E-04_JPRB,0.48122E-04_JPRB,0.61586E-04_JPRB,0.77647E-04_JPRB,0.99897E-04_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.99203E-04_JPRB,0.12842E-03_JPRB,0.16588E-03_JPRB,0.20834E-03_JPRB,0.26000E-03_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.13233E-03_JPRB,0.17318E-03_JPRB,0.22059E-03_JPRB,0.28904E-03_JPRB,0.36062E-03_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.13379E-03_JPRB,0.17484E-03_JPRB,0.23687E-03_JPRB,0.30286E-03_JPRB,0.37504E-03_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.11740E-03_JPRB,0.15667E-03_JPRB,0.20962E-03_JPRB,0.26768E-03_JPRB,0.33485E-03_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.10246E-03_JPRB,0.10450E-03_JPRB,0.97383E-04_JPRB,0.96398E-04_JPRB,0.10549E-03_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.10589E-03_JPRB,0.10240E-03_JPRB,0.95801E-04_JPRB,0.98509E-04_JPRB,0.11993E-03_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.94054E-04_JPRB,0.87009E-04_JPRB,0.10941E-03_JPRB,0.13486E-03_JPRB,0.15918E-03_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.11883E-03_JPRB,0.14236E-03_JPRB,0.16636E-03_JPRB,0.18235E-03_JPRB,0.19785E-03_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.17800E-03_JPRB,0.19347E-03_JPRB,0.20977E-03_JPRB,0.22730E-03_JPRB,0.25111E-03_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.22243E-03_JPRB,0.24157E-03_JPRB,0.26567E-03_JPRB,0.28549E-03_JPRB,0.30723E-03_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.29248E-03_JPRB,0.32242E-03_JPRB,0.34635E-03_JPRB,0.37915E-03_JPRB,0.40803E-03_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.43386E-03_JPRB,0.48611E-03_JPRB,0.52681E-03_JPRB,0.56812E-03_JPRB,0.60642E-03_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.89109E-03_JPRB,0.10345E-02_JPRB,0.11794E-02_JPRB,0.13045E-02_JPRB,0.14303E-02_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.21538E-02_JPRB,0.24459E-02_JPRB,0.27329E-02_JPRB,0.30932E-02_JPRB,0.35253E-02_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.29272E-02_JPRB,0.32676E-02_JPRB,0.36353E-02_JPRB,0.40062E-02_JPRB,0.45441E-02_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.30762E-02_JPRB,0.34365E-02_JPRB,0.38146E-02_JPRB,0.41556E-02_JPRB,0.47164E-02_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.27808E-02_JPRB,0.31114E-02_JPRB,0.34383E-02_JPRB,0.37954E-02_JPRB,0.42576E-02_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.24042E-03_JPRB,0.32719E-03_JPRB,0.44370E-03_JPRB,0.56836E-03_JPRB,0.70357E-03_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.23303E-03_JPRB,0.31901E-03_JPRB,0.41926E-03_JPRB,0.52400E-03_JPRB,0.62365E-03_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.35050E-03_JPRB,0.42158E-03_JPRB,0.47490E-03_JPRB,0.53390E-03_JPRB,0.60411E-03_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.49954E-03_JPRB,0.53067E-03_JPRB,0.56338E-03_JPRB,0.60859E-03_JPRB,0.66569E-03_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.66908E-03_JPRB,0.69727E-03_JPRB,0.72898E-03_JPRB,0.76756E-03_JPRB,0.80358E-03_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.88634E-03_JPRB,0.92853E-03_JPRB,0.96856E-03_JPRB,0.10101E-02_JPRB,0.10556E-02_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.11659E-02_JPRB,0.12355E-02_JPRB,0.13238E-02_JPRB,0.13889E-02_JPRB,0.14491E-02_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.17485E-02_JPRB,0.18223E-02_JPRB,0.19411E-02_JPRB,0.20705E-02_JPRB,0.22025E-02_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.42442E-02_JPRB,0.43561E-02_JPRB,0.45061E-02_JPRB,0.47505E-02_JPRB,0.50358E-02_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.10940E-01_JPRB,0.11499E-01_JPRB,0.11906E-01_JPRB,0.12570E-01_JPRB,0.12803E-01_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.14287E-01_JPRB,0.15010E-01_JPRB,0.15581E-01_JPRB,0.16054E-01_JPRB,0.16609E-01_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.14856E-01_JPRB,0.15546E-01_JPRB,0.16074E-01_JPRB,0.16478E-01_JPRB,0.17057E-01_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.13257E-01_JPRB,0.13834E-01_JPRB,0.14155E-01_JPRB,0.14723E-01_JPRB,0.15095E-01_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.24391E-02_JPRB,0.28720E-02_JPRB,0.33497E-02_JPRB,0.38926E-02_JPRB,0.45054E-02_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.22506E-02_JPRB,0.26004E-02_JPRB,0.30002E-02_JPRB,0.34490E-02_JPRB,0.39579E-02_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.22153E-02_JPRB,0.25711E-02_JPRB,0.29320E-02_JPRB,0.33330E-02_JPRB,0.37728E-02_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.22483E-02_JPRB,0.25445E-02_JPRB,0.28745E-02_JPRB,0.32484E-02_JPRB,0.36554E-02_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.23388E-02_JPRB,0.25985E-02_JPRB,0.28914E-02_JPRB,0.32377E-02_JPRB,0.36113E-02_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.24669E-02_JPRB,0.26579E-02_JPRB,0.28834E-02_JPRB,0.31538E-02_JPRB,0.34593E-02_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.32536E-02_JPRB,0.33413E-02_JPRB,0.34375E-02_JPRB,0.35905E-02_JPRB,0.38010E-02_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.51228E-02_JPRB,0.51967E-02_JPRB,0.52820E-02_JPRB,0.53446E-02_JPRB,0.53797E-02_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.13029E-01_JPRB,0.13065E-01_JPRB,0.12891E-01_JPRB,0.12848E-01_JPRB,0.12777E-01_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.29911E-01_JPRB,0.30117E-01_JPRB,0.28340E-01_JPRB,0.27321E-01_JPRB,0.27485E-01_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.36663E-01_JPRB,0.36877E-01_JPRB,0.34688E-01_JPRB,0.33004E-01_JPRB,0.32437E-01_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.37282E-01_JPRB,0.37775E-01_JPRB,0.34910E-01_JPRB,0.33463E-01_JPRB,0.33074E-01_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.33412E-01_JPRB,0.32961E-01_JPRB,0.30323E-01_JPRB,0.29437E-01_JPRB,0.29572E-01_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.20792E-01_JPRB,0.22727E-01_JPRB,0.25207E-01_JPRB,0.27650E-01_JPRB,0.29866E-01_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.17515E-01_JPRB,0.19421E-01_JPRB,0.21509E-01_JPRB,0.23389E-01_JPRB,0.25418E-01_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.14912E-01_JPRB,0.16535E-01_JPRB,0.18159E-01_JPRB,0.19873E-01_JPRB,0.21718E-01_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.13498E-01_JPRB,0.14786E-01_JPRB,0.16253E-01_JPRB,0.17812E-01_JPRB,0.19494E-01_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.12840E-01_JPRB,0.13983E-01_JPRB,0.15257E-01_JPRB,0.16617E-01_JPRB,0.18015E-01_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.12557E-01_JPRB,0.13714E-01_JPRB,0.14939E-01_JPRB,0.16145E-01_JPRB,0.17356E-01_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.11839E-01_JPRB,0.12951E-01_JPRB,0.14090E-01_JPRB,0.15237E-01_JPRB,0.16396E-01_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.13190E-01_JPRB,0.13998E-01_JPRB,0.14783E-01_JPRB,0.15641E-01_JPRB,0.16632E-01_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.24479E-01_JPRB,0.24660E-01_JPRB,0.25206E-01_JPRB,0.25571E-01_JPRB,0.26098E-01_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.62373E-01_JPRB,0.60241E-01_JPRB,0.61372E-01_JPRB,0.61530E-01_JPRB,0.60978E-01_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.76394E-01_JPRB,0.73727E-01_JPRB,0.74701E-01_JPRB,0.75649E-01_JPRB,0.75608E-01_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.76656E-01_JPRB,0.73608E-01_JPRB,0.75610E-01_JPRB,0.76362E-01_JPRB,0.76033E-01_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.66025E-01_JPRB,0.64890E-01_JPRB,0.66873E-01_JPRB,0.66992E-01_JPRB,0.66685E-01_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.99799E-01_JPRB,0.10479E+00_JPRB,0.10918E+00_JPRB,0.11347E+00_JPRB,0.11767E+00_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.87946E-01_JPRB,0.91820E-01_JPRB,0.95208E-01_JPRB,0.99071E-01_JPRB,0.10286E+00_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.76753E-01_JPRB,0.80377E-01_JPRB,0.84204E-01_JPRB,0.87924E-01_JPRB,0.91370E-01_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.67002E-01_JPRB,0.70630E-01_JPRB,0.73736E-01_JPRB,0.76764E-01_JPRB,0.79671E-01_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.58933E-01_JPRB,0.61857E-01_JPRB,0.64756E-01_JPRB,0.67323E-01_JPRB,0.69871E-01_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.53143E-01_JPRB,0.55386E-01_JPRB,0.57507E-01_JPRB,0.59715E-01_JPRB,0.62263E-01_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.50856E-01_JPRB,0.52603E-01_JPRB,0.54414E-01_JPRB,0.56230E-01_JPRB,0.58483E-01_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.50528E-01_JPRB,0.52598E-01_JPRB,0.54634E-01_JPRB,0.56710E-01_JPRB,0.58872E-01_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.64616E-01_JPRB,0.65915E-01_JPRB,0.67210E-01_JPRB,0.68742E-01_JPRB,0.70092E-01_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.11509E+00_JPRB,0.11448E+00_JPRB,0.11368E+00_JPRB,0.11348E+00_JPRB,0.11401E+00_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.14266E+00_JPRB,0.13997E+00_JPRB,0.13810E+00_JPRB,0.13688E+00_JPRB,0.13622E+00_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.14464E+00_JPRB,0.14198E+00_JPRB,0.13915E+00_JPRB,0.13789E+00_JPRB,0.13781E+00_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.12550E+00_JPRB,0.12328E+00_JPRB,0.12173E+00_JPRB,0.12127E+00_JPRB,0.12078E+00_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.30825E+00_JPRB,0.31119E+00_JPRB,0.31335E+00_JPRB,0.31641E+00_JPRB,0.32024E+00_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.28100E+00_JPRB,0.28660E+00_JPRB,0.29192E+00_JPRB,0.29680E+00_JPRB,0.30014E+00_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.26374E+00_JPRB,0.27129E+00_JPRB,0.27887E+00_JPRB,0.28626E+00_JPRB,0.29478E+00_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.24539E+00_JPRB,0.25325E+00_JPRB,0.26070E+00_JPRB,0.26955E+00_JPRB,0.27794E+00_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.21737E+00_JPRB,0.22642E+00_JPRB,0.23531E+00_JPRB,0.24408E+00_JPRB,0.25322E+00_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.19066E+00_JPRB,0.19913E+00_JPRB,0.20834E+00_JPRB,0.21782E+00_JPRB,0.22698E+00_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.17386E+00_JPRB,0.18325E+00_JPRB,0.19211E+00_JPRB,0.20024E+00_JPRB,0.20881E+00_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.17625E+00_JPRB,0.18236E+00_JPRB,0.18905E+00_JPRB,0.19574E+00_JPRB,0.20193E+00_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.21820E+00_JPRB,0.22416E+00_JPRB,0.22986E+00_JPRB,0.23737E+00_JPRB,0.24518E+00_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.33529E+00_JPRB,0.34302E+00_JPRB,0.35397E+00_JPRB,0.36397E+00_JPRB,0.37339E+00_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.38474E+00_JPRB,0.39863E+00_JPRB,0.41168E+00_JPRB,0.42115E+00_JPRB,0.42917E+00_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.38499E+00_JPRB,0.39580E+00_JPRB,0.40497E+00_JPRB,0.41279E+00_JPRB,0.42045E+00_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.34291E+00_JPRB,0.35180E+00_JPRB,0.35970E+00_JPRB,0.36697E+00_JPRB,0.37460E+00_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.87131E+00_JPRB,0.87876E+00_JPRB,0.88509E+00_JPRB,0.89061E+00_JPRB,0.89432E+00_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.78963E+00_JPRB,0.79236E+00_JPRB,0.79978E+00_JPRB,0.80959E+00_JPRB,0.82163E+00_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.82479E+00_JPRB,0.82842E+00_JPRB,0.83069E+00_JPRB,0.83679E+00_JPRB,0.84334E+00_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.90877E+00_JPRB,0.91962E+00_JPRB,0.92466E+00_JPRB,0.93139E+00_JPRB,0.93904E+00_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.97131E+00_JPRB,0.99301E+00_JPRB,0.10095E+01_JPRB,0.10270E+01_JPRB,0.10371E+01_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.96984E+00_JPRB,0.10040E+01_JPRB,0.10393E+01_JPRB,0.10670E+01_JPRB,0.10990E+01_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.95686E+00_JPRB,0.10029E+01_JPRB,0.10449E+01_JPRB,0.10923E+01_JPRB,0.11334E+01_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.97227E+00_JPRB,0.10380E+01_JPRB,0.11014E+01_JPRB,0.11624E+01_JPRB,0.12218E+01_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.12290E+01_JPRB,0.13071E+01_JPRB,0.14005E+01_JPRB,0.15005E+01_JPRB,0.15980E+01_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.17996E+01_JPRB,0.19304E+01_JPRB,0.20752E+01_JPRB,0.22219E+01_JPRB,0.23814E+01_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.19289E+01_JPRB,0.20656E+01_JPRB,0.22166E+01_JPRB,0.23715E+01_JPRB,0.25386E+01_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.18429E+01_JPRB,0.19765E+01_JPRB,0.21175E+01_JPRB,0.22722E+01_JPRB,0.24239E+01_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.16420E+01_JPRB,0.17464E+01_JPRB,0.18635E+01_JPRB,0.19773E+01_JPRB,0.21012E+01_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.39892E+01_JPRB,0.40153E+01_JPRB,0.40324E+01_JPRB,0.40465E+01_JPRB,0.40524E+01_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.38871E+01_JPRB,0.39035E+01_JPRB,0.39123E+01_JPRB,0.39056E+01_JPRB,0.38966E+01_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.37883E+01_JPRB,0.37950E+01_JPRB,0.38080E+01_JPRB,0.37991E+01_JPRB,0.37826E+01_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.37778E+01_JPRB,0.37663E+01_JPRB,0.37745E+01_JPRB,0.37709E+01_JPRB,0.37556E+01_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.38757E+01_JPRB,0.38404E+01_JPRB,0.38539E+01_JPRB,0.39228E+01_JPRB,0.39777E+01_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.40990E+01_JPRB,0.41407E+01_JPRB,0.41745E+01_JPRB,0.42258E+01_JPRB,0.42574E+01_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.46288E+01_JPRB,0.46726E+01_JPRB,0.47096E+01_JPRB,0.47165E+01_JPRB,0.47374E+01_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.58432E+01_JPRB,0.58474E+01_JPRB,0.58608E+01_JPRB,0.58935E+01_JPRB,0.59261E+01_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.88685E+01_JPRB,0.88567E+01_JPRB,0.88137E+01_JPRB,0.87653E+01_JPRB,0.87262E+01_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.10455E+02_JPRB,0.10242E+02_JPRB,0.10004E+02_JPRB,0.97643E+01_JPRB,0.95067E+01_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.10240E+02_JPRB,0.99968E+01_JPRB,0.97347E+01_JPRB,0.94750E+01_JPRB,0.92006E+01_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.10401E+02_JPRB,0.10165E+02_JPRB,0.99240E+01_JPRB,0.96656E+01_JPRB,0.94112E+01_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.10764E+02_JPRB,0.10580E+02_JPRB,0.10381E+02_JPRB,0.10188E+02_JPRB,0.99802E+01_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.10712E+02_JPRB,0.10575E+02_JPRB,0.10581E+02_JPRB,0.10556E+02_JPRB,0.10575E+02_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.11144E+02_JPRB,0.11109E+02_JPRB,0.11034E+02_JPRB,0.11107E+02_JPRB,0.11138E+02_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.12257E+02_JPRB,0.12112E+02_JPRB,0.11992E+02_JPRB,0.11951E+02_JPRB,0.12031E+02_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.13040E+02_JPRB,0.13085E+02_JPRB,0.12882E+02_JPRB,0.12756E+02_JPRB,0.12737E+02_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.13809E+02_JPRB,0.13771E+02_JPRB,0.13452E+02_JPRB,0.12567E+02_JPRB,0.12086E+02_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.14608E+02_JPRB,0.13942E+02_JPRB,0.13365E+02_JPRB,0.13494E+02_JPRB,0.13762E+02_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.14665E+02_JPRB,0.14685E+02_JPRB,0.15121E+02_JPRB,0.15602E+02_JPRB,0.15768E+02_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.15612E+02_JPRB,0.16507E+02_JPRB,0.16644E+02_JPRB,0.16706E+02_JPRB,0.16696E+02_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.15405E+02_JPRB,0.15874E+02_JPRB,0.16716E+02_JPRB,0.17957E+02_JPRB,0.17859E+02_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.19406E+00_JPRB,0.17932E+00_JPRB,0.16660E+00_JPRB,0.15558E+00_JPRB,0.14589E+00_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.27650E+00_JPRB,0.25556E+00_JPRB,0.23727E+00_JPRB,0.22182E+00_JPRB,0.20805E+00_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.29298E+00_JPRB,0.27044E+00_JPRB,0.25162E+00_JPRB,0.23497E+00_JPRB,0.22076E+00_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.24883E+00_JPRB,0.22985E+00_JPRB,0.21413E+00_JPRB,0.20012E+00_JPRB,0.18795E+00_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.13650E+02_JPRB,0.13767E+02_JPRB,0.13771E+02_JPRB,0.13650E+02_JPRB,0.13663E+02_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.15146E+02_JPRB,0.15253E+02_JPRB,0.15272E+02_JPRB,0.15152E+02_JPRB,0.15138E+02_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.16834E+02_JPRB,0.17107E+02_JPRB,0.17158E+02_JPRB,0.17187E+02_JPRB,0.17057E+02_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.19191E+02_JPRB,0.19144E+02_JPRB,0.19155E+02_JPRB,0.19247E+02_JPRB,0.19292E+02_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.20953E+02_JPRB,0.21248E+02_JPRB,0.21186E+02_JPRB,0.21027E+02_JPRB,0.20703E+02_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.22592E+02_JPRB,0.22192E+02_JPRB,0.22056E+02_JPRB,0.20972E+02_JPRB,0.19910E+02_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.24652E+02_JPRB,0.23679E+02_JPRB,0.22339E+02_JPRB,0.21302E+02_JPRB,0.21697E+02_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.22508E+02_JPRB,0.20438E+02_JPRB,0.20163E+02_JPRB,0.20628E+02_JPRB,0.20954E+02_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.10264E+02_JPRB,0.85820E+01_JPRB,0.65270E+01_JPRB,0.38883E+01_JPRB,0.27974E+01_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.19324E+00_JPRB,0.17913E+00_JPRB,0.16619E+00_JPRB,0.15516E+00_JPRB,0.14524E+00_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.27573E+00_JPRB,0.25425E+00_JPRB,0.23627E+00_JPRB,0.22036E+00_JPRB,0.20639E+00_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.29224E+00_JPRB,0.26998E+00_JPRB,0.25055E+00_JPRB,0.23380E+00_JPRB,0.21908E+00_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.24964E+00_JPRB,0.23056E+00_JPRB,0.21391E+00_JPRB,0.19980E+00_JPRB,0.18698E+00_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.17721E+02_JPRB,0.17805E+02_JPRB,0.17752E+02_JPRB,0.17857E+02_JPRB,0.17872E+02_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.20222E+02_JPRB,0.20161E+02_JPRB,0.20267E+02_JPRB,0.20335E+02_JPRB,0.20254E+02_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.23717E+02_JPRB,0.23414E+02_JPRB,0.23571E+02_JPRB,0.23552E+02_JPRB,0.23687E+02_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.26876E+02_JPRB,0.26972E+02_JPRB,0.27155E+02_JPRB,0.26947E+02_JPRB,0.27025E+02_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.30213E+02_JPRB,0.29978E+02_JPRB,0.30226E+02_JPRB,0.30477E+02_JPRB,0.30329E+02_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.33660E+02_JPRB,0.33482E+02_JPRB,0.33159E+02_JPRB,0.32959E+02_JPRB,0.32299E+02_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.35893E+02_JPRB,0.35649E+02_JPRB,0.35067E+02_JPRB,0.34565E+02_JPRB,0.32437E+02_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.33426E+02_JPRB,0.33323E+02_JPRB,0.31984E+02_JPRB,0.29587E+02_JPRB,0.27505E+02_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.46633E-01_JPRB,0.43205E-01_JPRB,0.40562E-01_JPRB,0.38133E-01_JPRB,0.35900E-01_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.19421E+00_JPRB,0.18024E+00_JPRB,0.16872E+00_JPRB,0.15815E+00_JPRB,0.14837E+00_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.27315E+00_JPRB,0.25480E+00_JPRB,0.23771E+00_JPRB,0.22191E+00_JPRB,0.20780E+00_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.29027E+00_JPRB,0.26969E+00_JPRB,0.25017E+00_JPRB,0.23314E+00_JPRB,0.21774E+00_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.24833E+00_JPRB,0.22943E+00_JPRB,0.21278E+00_JPRB,0.19800E+00_JPRB,0.18543E+00_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.29672E+02_JPRB,0.29291E+02_JPRB,0.29191E+02_JPRB,0.29170E+02_JPRB,0.29116E+02_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.24713E+02_JPRB,0.24965E+02_JPRB,0.25039E+02_JPRB,0.25355E+02_JPRB,0.25650E+02_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.30510E+02_JPRB,0.31166E+02_JPRB,0.30663E+02_JPRB,0.31021E+02_JPRB,0.30901E+02_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.38695E+02_JPRB,0.38922E+02_JPRB,0.38741E+02_JPRB,0.39204E+02_JPRB,0.38826E+02_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.45118E+02_JPRB,0.44337E+02_JPRB,0.43664E+02_JPRB,0.43267E+02_JPRB,0.43524E+02_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.34652E+02_JPRB,0.35182E+02_JPRB,0.35339E+02_JPRB,0.35340E+02_JPRB,0.35899E+02_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.18801E+02_JPRB,0.18598E+02_JPRB,0.18855E+02_JPRB,0.18819E+02_JPRB,0.19052E+02_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.12297E-01_JPRB,0.11425E-01_JPRB,0.10670E-01_JPRB,0.99994E-02_JPRB,0.94139E-02_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.46821E-01_JPRB,0.43361E-01_JPRB,0.40368E-01_JPRB,0.37752E-01_JPRB,0.35493E-01_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.19817E+00_JPRB,0.18303E+00_JPRB,0.17002E+00_JPRB,0.15883E+00_JPRB,0.14933E+00_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.28145E+00_JPRB,0.25995E+00_JPRB,0.24181E+00_JPRB,0.22660E+00_JPRB,0.21326E+00_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.29510E+00_JPRB,0.27294E+00_JPRB,0.25519E+00_JPRB,0.23947E+00_JPRB,0.22551E+00_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.24830E+00_JPRB,0.23074E+00_JPRB,0.21556E+00_JPRB,0.20226E+00_JPRB,0.19029E+00_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.47168E+02_JPRB,0.46890E+02_JPRB,0.46612E+02_JPRB,0.46353E+02_JPRB,0.46088E+02_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.47771E+02_JPRB,0.46980E+02_JPRB,0.46445E+02_JPRB,0.45828E+02_JPRB,0.45437E+02_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.42946E+02_JPRB,0.42652E+02_JPRB,0.43791E+02_JPRB,0.43237E+02_JPRB,0.44104E+02_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.30957E+02_JPRB,0.30098E+02_JPRB,0.30055E+02_JPRB,0.29555E+02_JPRB,0.29902E+02_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.28397E+01_JPRB,0.38572E+01_JPRB,0.42906E+01_JPRB,0.47091E+01_JPRB,0.48135E+01_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.36978E-02_JPRB,0.34591E-02_JPRB,0.32524E-02_JPRB,0.30649E-02_JPRB,0.29018E-02_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.61733E-02_JPRB,0.57589E-02_JPRB,0.53925E-02_JPRB,0.50742E-02_JPRB,0.47835E-02_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.12390E-01_JPRB,0.11526E-01_JPRB,0.10766E-01_JPRB,0.10096E-01_JPRB,0.95010E-02_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.47105E-01_JPRB,0.43648E-01_JPRB,0.40665E-01_JPRB,0.38054E-01_JPRB,0.35722E-01_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.19915E+00_JPRB,0.18412E+00_JPRB,0.17099E+00_JPRB,0.15957E+00_JPRB,0.14948E+00_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.28280E+00_JPRB,0.26124E+00_JPRB,0.24266E+00_JPRB,0.22645E+00_JPRB,0.21214E+00_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.29891E+00_JPRB,0.27613E+00_JPRB,0.25648E+00_JPRB,0.23927E+00_JPRB,0.22423E+00_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.25421E+00_JPRB,0.23484E+00_JPRB,0.21809E+00_JPRB,0.20347E+00_JPRB,0.19057E+00_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.64994E+02_JPRB,0.64283E+02_JPRB,0.63755E+02_JPRB,0.63407E+02_JPRB,0.63287E+02_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.78266E+02_JPRB,0.77364E+02_JPRB,0.76722E+02_JPRB,0.76285E+02_JPRB,0.75992E+02_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.41710E+02_JPRB,0.38379E+02_JPRB,0.35076E+02_JPRB,0.35418E+02_JPRB,0.33306E+02_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.14170E-02_JPRB,0.13401E-02_JPRB,0.12716E-02_JPRB,0.12073E-02_JPRB,0.11535E-02_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.23659E-02_JPRB,0.22261E-02_JPRB,0.21042E-02_JPRB,0.19950E-02_JPRB,0.18970E-02_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.37432E-02_JPRB,0.35105E-02_JPRB,0.33006E-02_JPRB,0.31222E-02_JPRB,0.29521E-02_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.62408E-02_JPRB,0.58258E-02_JPRB,0.54782E-02_JPRB,0.51594E-02_JPRB,0.48767E-02_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.12522E-01_JPRB,0.11652E-01_JPRB,0.10922E-01_JPRB,0.10265E-01_JPRB,0.96672E-02_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.47545E-01_JPRB,0.44152E-01_JPRB,0.41251E-01_JPRB,0.38666E-01_JPRB,0.36358E-01_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.20097E+00_JPRB,0.18592E+00_JPRB,0.17341E+00_JPRB,0.16203E+00_JPRB,0.15235E+00_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.28499E+00_JPRB,0.26428E+00_JPRB,0.24585E+00_JPRB,0.22980E+00_JPRB,0.21575E+00_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.30172E+00_JPRB,0.27929E+00_JPRB,0.25980E+00_JPRB,0.24306E+00_JPRB,0.22789E+00_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.25655E+00_JPRB,0.23731E+00_JPRB,0.22092E+00_JPRB,0.20639E+00_JPRB,0.19367E+00_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.80810E+02_JPRB,0.81099E+02_JPRB,0.81190E+02_JPRB,0.81107E+02_JPRB,0.80989E+02_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.99319E+02_JPRB,0.99708E+02_JPRB,0.99822E+02_JPRB,0.99871E+02_JPRB,0.99993E+02_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.46927E+02_JPRB,0.54316E+02_JPRB,0.57355E+02_JPRB,0.53715E+02_JPRB,0.52802E+02_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.12802E-02_JPRB,0.12027E-02_JPRB,0.11386E-02_JPRB,0.10866E-02_JPRB,0.10525E-02_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.21675E-02_JPRB,0.20715E-02_JPRB,0.19422E-02_JPRB,0.18402E-02_JPRB,0.17681E-02_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.34707E-02_JPRB,0.32796E-02_JPRB,0.30986E-02_JPRB,0.29246E-02_JPRB,0.28034E-02_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.58659E-02_JPRB,0.55310E-02_JPRB,0.51820E-02_JPRB,0.48829E-02_JPRB,0.46784E-02_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.11875E-01_JPRB,0.11183E-01_JPRB,0.10438E-01_JPRB,0.98038E-02_JPRB,0.93665E-02_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.45519E-01_JPRB,0.42850E-01_JPRB,0.39715E-01_JPRB,0.37447E-01_JPRB,0.35369E-01_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.19392E+00_JPRB,0.18108E+00_JPRB,0.16817E+00_JPRB,0.15883E+00_JPRB,0.14864E+00_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.27830E+00_JPRB,0.25715E+00_JPRB,0.24100E+00_JPRB,0.22595E+00_JPRB,0.21321E+00_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.29533E+00_JPRB,0.27422E+00_JPRB,0.25636E+00_JPRB,0.23936E+00_JPRB,0.22658E+00_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.25310E+00_JPRB,0.23535E+00_JPRB,0.21855E+00_JPRB,0.20552E+00_JPRB,0.19293E+00_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.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.18379E-05_JPRB,0.23296E-05_JPRB,0.29007E-05_JPRB,0.35902E-05_JPRB,0.43437E-05_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.15919E-05_JPRB,0.19832E-05_JPRB,0.24720E-05_JPRB,0.30683E-05_JPRB,0.37253E-05_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.13850E-05_JPRB,0.17115E-05_JPRB,0.21225E-05_JPRB,0.26292E-05_JPRB,0.31945E-05_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.11896E-05_JPRB,0.14680E-05_JPRB,0.18142E-05_JPRB,0.22537E-05_JPRB,0.27284E-05_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.10228E-05_JPRB,0.12597E-05_JPRB,0.15532E-05_JPRB,0.19272E-05_JPRB,0.23163E-05_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.88243E-06_JPRB,0.10835E-05_JPRB,0.13316E-05_JPRB,0.16603E-05_JPRB,0.19808E-05_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.75677E-06_JPRB,0.92925E-06_JPRB,0.11401E-05_JPRB,0.14107E-05_JPRB,0.16901E-05_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.64614E-06_JPRB,0.79361E-06_JPRB,0.97353E-06_JPRB,0.11964E-05_JPRB,0.14414E-05_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.55323E-06_JPRB,0.67580E-06_JPRB,0.82647E-06_JPRB,0.10137E-05_JPRB,0.12318E-05_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.47719E-06_JPRB,0.58149E-06_JPRB,0.71060E-06_JPRB,0.87005E-06_JPRB,0.10605E-05_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.41128E-06_JPRB,0.50080E-06_JPRB,0.61104E-06_JPRB,0.75347E-06_JPRB,0.91200E-06_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.35306E-06_JPRB,0.42860E-06_JPRB,0.52320E-06_JPRB,0.65156E-06_JPRB,0.78122E-06_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.30363E-06_JPRB,0.36731E-06_JPRB,0.44673E-06_JPRB,0.56097E-06_JPRB,0.66791E-06_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.26073E-06_JPRB,0.31537E-06_JPRB,0.38738E-06_JPRB,0.48210E-06_JPRB,0.57382E-06_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.22303E-06_JPRB,0.26986E-06_JPRB,0.33628E-06_JPRB,0.41161E-06_JPRB,0.48722E-06_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.18954E-06_JPRB,0.22952E-06_JPRB,0.28797E-06_JPRB,0.35166E-06_JPRB,0.41440E-06_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.16106E-06_JPRB,0.19430E-06_JPRB,0.24661E-06_JPRB,0.29815E-06_JPRB,0.35151E-06_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.13630E-06_JPRB,0.16528E-06_JPRB,0.20922E-06_JPRB,0.25193E-06_JPRB,0.29913E-06_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.11504E-06_JPRB,0.14276E-06_JPRB,0.17807E-06_JPRB,0.21482E-06_JPRB,0.25451E-06_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.96980E-07_JPRB,0.12215E-06_JPRB,0.15159E-06_JPRB,0.18179E-06_JPRB,0.21515E-06_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.81598E-07_JPRB,0.10315E-06_JPRB,0.12730E-06_JPRB,0.15190E-06_JPRB,0.18093E-06_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.67700E-07_JPRB,0.85970E-07_JPRB,0.10559E-06_JPRB,0.12608E-06_JPRB,0.15006E-06_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.55177E-07_JPRB,0.69519E-07_JPRB,0.85967E-07_JPRB,0.10223E-06_JPRB,0.12147E-06_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.43924E-07_JPRB,0.54395E-07_JPRB,0.67998E-07_JPRB,0.81142E-07_JPRB,0.95717E-07_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.34469E-07_JPRB,0.41036E-07_JPRB,0.52575E-07_JPRB,0.63117E-07_JPRB,0.74301E-07_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.26777E-07_JPRB,0.31734E-07_JPRB,0.40555E-07_JPRB,0.49032E-07_JPRB,0.57653E-07_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.20670E-07_JPRB,0.24721E-07_JPRB,0.30685E-07_JPRB,0.37873E-07_JPRB,0.44555E-07_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.15860E-07_JPRB,0.19032E-07_JPRB,0.22612E-07_JPRB,0.28845E-07_JPRB,0.34246E-07_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.12129E-07_JPRB,0.14603E-07_JPRB,0.17357E-07_JPRB,0.21851E-07_JPRB,0.26346E-07_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.92319E-08_JPRB,0.11199E-07_JPRB,0.13365E-07_JPRB,0.16174E-07_JPRB,0.20019E-07_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.69289E-08_JPRB,0.84537E-08_JPRB,0.10159E-07_JPRB,0.11992E-07_JPRB,0.14940E-07_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.51546E-08_JPRB,0.63380E-08_JPRB,0.76593E-08_JPRB,0.90562E-08_JPRB,0.10716E-07_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.38335E-08_JPRB,0.47085E-08_JPRB,0.57219E-08_JPRB,0.68148E-08_JPRB,0.79518E-08_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.28583E-08_JPRB,0.34724E-08_JPRB,0.42447E-08_JPRB,0.50888E-08_JPRB,0.59494E-08_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.20945E-08_JPRB,0.25418E-08_JPRB,0.31058E-08_JPRB,0.37494E-08_JPRB,0.44274E-08_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.15164E-08_JPRB,0.18560E-08_JPRB,0.22628E-08_JPRB,0.27371E-08_JPRB,0.32773E-08_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.10916E-08_JPRB,0.13465E-08_JPRB,0.16387E-08_JPRB,0.19740E-08_JPRB,0.23865E-08_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.78324E-09_JPRB,0.98361E-09_JPRB,0.11977E-08_JPRB,0.14517E-08_JPRB,0.17457E-08_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.57263E-09_JPRB,0.71786E-09_JPRB,0.87689E-09_JPRB,0.10705E-08_JPRB,0.12881E-08_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.41574E-09_JPRB,0.51264E-09_JPRB,0.64152E-09_JPRB,0.78315E-09_JPRB,0.94705E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.29940E-09_JPRB,0.36836E-09_JPRB,0.45886E-09_JPRB,0.56405E-09_JPRB,0.69166E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.22617E-09_JPRB,0.27395E-09_JPRB,0.33754E-09_JPRB,0.42095E-09_JPRB,0.51544E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.17483E-09_JPRB,0.20845E-09_JPRB,0.25546E-09_JPRB,0.31817E-09_JPRB,0.39119E-09_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.13496E-09_JPRB,0.15930E-09_JPRB,0.19380E-09_JPRB,0.23861E-09_JPRB,0.29770E-09_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.10406E-09_JPRB,0.12247E-09_JPRB,0.14749E-09_JPRB,0.18078E-09_JPRB,0.22597E-09_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.81345E-10_JPRB,0.94816E-10_JPRB,0.11329E-09_JPRB,0.13832E-09_JPRB,0.17161E-09_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.67159E-10_JPRB,0.78312E-10_JPRB,0.94745E-10_JPRB,0.11544E-09_JPRB,0.14442E-09_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.16654E-04_JPRB,0.18728E-04_JPRB,0.21238E-04_JPRB,0.24491E-04_JPRB,0.29038E-04_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.15636E-04_JPRB,0.17574E-04_JPRB,0.19918E-04_JPRB,0.23671E-04_JPRB,0.27237E-04_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.14853E-04_JPRB,0.16629E-04_JPRB,0.19700E-04_JPRB,0.22604E-04_JPRB,0.25586E-04_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.13519E-04_JPRB,0.15923E-04_JPRB,0.18289E-04_JPRB,0.20530E-04_JPRB,0.22799E-04_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.12411E-04_JPRB,0.14439E-04_JPRB,0.16431E-04_JPRB,0.18235E-04_JPRB,0.20109E-04_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.11267E-04_JPRB,0.12880E-04_JPRB,0.14429E-04_JPRB,0.16005E-04_JPRB,0.17538E-04_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.10025E-04_JPRB,0.11332E-04_JPRB,0.12550E-04_JPRB,0.13853E-04_JPRB,0.15103E-04_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.86342E-05_JPRB,0.97455E-05_JPRB,0.10778E-04_JPRB,0.11898E-04_JPRB,0.12789E-04_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.74004E-05_JPRB,0.83107E-05_JPRB,0.91633E-05_JPRB,0.10071E-04_JPRB,0.10674E-04_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.63700E-05_JPRB,0.70549E-05_JPRB,0.78271E-05_JPRB,0.85170E-05_JPRB,0.90022E-05_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.54404E-05_JPRB,0.60156E-05_JPRB,0.66393E-05_JPRB,0.71320E-05_JPRB,0.75007E-05_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.45997E-05_JPRB,0.50718E-05_JPRB,0.55713E-05_JPRB,0.59455E-05_JPRB,0.62118E-05_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.38745E-05_JPRB,0.42617E-05_JPRB,0.46479E-05_JPRB,0.49297E-05_JPRB,0.51638E-05_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.32488E-05_JPRB,0.35592E-05_JPRB,0.38685E-05_JPRB,0.40759E-05_JPRB,0.43092E-05_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.26995E-05_JPRB,0.29601E-05_JPRB,0.32065E-05_JPRB,0.33666E-05_JPRB,0.35609E-05_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.22359E-05_JPRB,0.24429E-05_JPRB,0.26408E-05_JPRB,0.27752E-05_JPRB,0.29293E-05_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.18487E-05_JPRB,0.20089E-05_JPRB,0.21668E-05_JPRB,0.22793E-05_JPRB,0.24029E-05_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.15291E-05_JPRB,0.16589E-05_JPRB,0.17733E-05_JPRB,0.18706E-05_JPRB,0.19584E-05_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.12554E-05_JPRB,0.13589E-05_JPRB,0.14436E-05_JPRB,0.15195E-05_JPRB,0.15928E-05_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.10248E-05_JPRB,0.11046E-05_JPRB,0.11716E-05_JPRB,0.12288E-05_JPRB,0.12916E-05_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.83272E-06_JPRB,0.89120E-06_JPRB,0.95036E-06_JPRB,0.99040E-06_JPRB,0.10409E-05_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.67518E-06_JPRB,0.72097E-06_JPRB,0.76854E-06_JPRB,0.80246E-06_JPRB,0.83912E-06_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.53577E-06_JPRB,0.57870E-06_JPRB,0.61715E-06_JPRB,0.64987E-06_JPRB,0.67220E-06_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.42402E-06_JPRB,0.45825E-06_JPRB,0.49307E-06_JPRB,0.52005E-06_JPRB,0.54029E-06_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.33419E-06_JPRB,0.36213E-06_JPRB,0.38911E-06_JPRB,0.41359E-06_JPRB,0.43177E-06_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.26240E-06_JPRB,0.28355E-06_JPRB,0.30530E-06_JPRB,0.32881E-06_JPRB,0.34617E-06_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.20468E-06_JPRB,0.22245E-06_JPRB,0.23980E-06_JPRB,0.25776E-06_JPRB,0.27424E-06_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.16070E-06_JPRB,0.17478E-06_JPRB,0.18856E-06_JPRB,0.20230E-06_JPRB,0.21801E-06_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.12583E-06_JPRB,0.13680E-06_JPRB,0.14851E-06_JPRB,0.15917E-06_JPRB,0.17184E-06_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.98494E-07_JPRB,0.10639E-06_JPRB,0.11634E-06_JPRB,0.12500E-06_JPRB,0.13490E-06_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.75196E-07_JPRB,0.82809E-07_JPRB,0.90095E-07_JPRB,0.97952E-07_JPRB,0.10509E-06_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.57305E-07_JPRB,0.63787E-07_JPRB,0.69227E-07_JPRB,0.75635E-07_JPRB,0.81687E-07_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.42965E-07_JPRB,0.48245E-07_JPRB,0.53346E-07_JPRB,0.58061E-07_JPRB,0.63120E-07_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.31048E-07_JPRB,0.36457E-07_JPRB,0.40514E-07_JPRB,0.44557E-07_JPRB,0.48550E-07_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.23094E-07_JPRB,0.26356E-07_JPRB,0.30443E-07_JPRB,0.33954E-07_JPRB,0.36789E-07_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.16858E-07_JPRB,0.19402E-07_JPRB,0.22449E-07_JPRB,0.25401E-07_JPRB,0.28254E-07_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.11413E-07_JPRB,0.14055E-07_JPRB,0.16046E-07_JPRB,0.18927E-07_JPRB,0.21080E-07_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.78650E-08_JPRB,0.99879E-08_JPRB,0.11846E-07_JPRB,0.13654E-07_JPRB,0.15871E-07_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.55417E-08_JPRB,0.68977E-08_JPRB,0.87006E-08_JPRB,0.10108E-07_JPRB,0.11829E-07_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.39143E-08_JPRB,0.48025E-08_JPRB,0.60180E-08_JPRB,0.73762E-08_JPRB,0.85851E-08_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.27637E-08_JPRB,0.33397E-08_JPRB,0.41996E-08_JPRB,0.52787E-08_JPRB,0.62923E-08_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.19691E-08_JPRB,0.24529E-08_JPRB,0.30071E-08_JPRB,0.38041E-08_JPRB,0.46981E-08_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.13034E-08_JPRB,0.18257E-08_JPRB,0.22359E-08_JPRB,0.28210E-08_JPRB,0.35386E-08_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.10026E-08_JPRB,0.13422E-08_JPRB,0.16687E-08_JPRB,0.20793E-08_JPRB,0.26054E-08_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.77730E-09_JPRB,0.91190E-09_JPRB,0.12468E-08_JPRB,0.15302E-08_JPRB,0.19418E-08_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.60359E-09_JPRB,0.67848E-09_JPRB,0.92414E-09_JPRB,0.11511E-08_JPRB,0.14401E-08_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.50441E-09_JPRB,0.56797E-09_JPRB,0.77369E-09_JPRB,0.95612E-09_JPRB,0.11957E-08_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.98124E-04_JPRB,0.10149E-03_JPRB,0.10303E-03_JPRB,0.10669E-03_JPRB,0.10870E-03_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.88110E-04_JPRB,0.89730E-04_JPRB,0.90679E-04_JPRB,0.91892E-04_JPRB,0.91413E-04_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.78555E-04_JPRB,0.78633E-04_JPRB,0.79145E-04_JPRB,0.77689E-04_JPRB,0.77791E-04_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.67245E-04_JPRB,0.67743E-04_JPRB,0.66690E-04_JPRB,0.65765E-04_JPRB,0.65950E-04_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.57553E-04_JPRB,0.57490E-04_JPRB,0.56012E-04_JPRB,0.55634E-04_JPRB,0.56016E-04_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.49729E-04_JPRB,0.48302E-04_JPRB,0.47418E-04_JPRB,0.47262E-04_JPRB,0.47732E-04_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.42101E-04_JPRB,0.40906E-04_JPRB,0.40541E-04_JPRB,0.40229E-04_JPRB,0.40671E-04_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.35046E-04_JPRB,0.34193E-04_JPRB,0.34032E-04_JPRB,0.33881E-04_JPRB,0.34691E-04_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.29192E-04_JPRB,0.28813E-04_JPRB,0.28525E-04_JPRB,0.28485E-04_JPRB,0.29764E-04_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.24212E-04_JPRB,0.23970E-04_JPRB,0.23804E-04_JPRB,0.23947E-04_JPRB,0.24310E-04_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.20167E-04_JPRB,0.19961E-04_JPRB,0.19837E-04_JPRB,0.20528E-04_JPRB,0.19887E-04_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.16817E-04_JPRB,0.16624E-04_JPRB,0.16525E-04_JPRB,0.17263E-04_JPRB,0.16481E-04_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.13896E-04_JPRB,0.13806E-04_JPRB,0.13810E-04_JPRB,0.14348E-04_JPRB,0.13634E-04_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11515E-04_JPRB,0.11474E-04_JPRB,0.11553E-04_JPRB,0.11705E-04_JPRB,0.11167E-04_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.95004E-05_JPRB,0.94543E-05_JPRB,0.95650E-05_JPRB,0.95316E-05_JPRB,0.91651E-05_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.78135E-05_JPRB,0.77862E-05_JPRB,0.78715E-05_JPRB,0.77825E-05_JPRB,0.74877E-05_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.63615E-05_JPRB,0.63601E-05_JPRB,0.64198E-05_JPRB,0.63507E-05_JPRB,0.61200E-05_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.51738E-05_JPRB,0.51781E-05_JPRB,0.52250E-05_JPRB,0.51709E-05_JPRB,0.50243E-05_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.41825E-05_JPRB,0.42240E-05_JPRB,0.42510E-05_JPRB,0.42241E-05_JPRB,0.41058E-05_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.34024E-05_JPRB,0.34302E-05_JPRB,0.34514E-05_JPRB,0.34436E-05_JPRB,0.33474E-05_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.27510E-05_JPRB,0.27828E-05_JPRB,0.28059E-05_JPRB,0.28125E-05_JPRB,0.27394E-05_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.22195E-05_JPRB,0.22517E-05_JPRB,0.22743E-05_JPRB,0.22728E-05_JPRB,0.22254E-05_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.18029E-05_JPRB,0.18238E-05_JPRB,0.18432E-05_JPRB,0.18461E-05_JPRB,0.18241E-05_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.14477E-05_JPRB,0.14734E-05_JPRB,0.14936E-05_JPRB,0.15116E-05_JPRB,0.14874E-05_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.11637E-05_JPRB,0.11929E-05_JPRB,0.12098E-05_JPRB,0.12265E-05_JPRB,0.12076E-05_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.93292E-06_JPRB,0.96246E-06_JPRB,0.98169E-06_JPRB,0.99435E-06_JPRB,0.98749E-06_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.74927E-06_JPRB,0.76742E-06_JPRB,0.79020E-06_JPRB,0.80604E-06_JPRB,0.81415E-06_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.60479E-06_JPRB,0.61743E-06_JPRB,0.63973E-06_JPRB,0.65295E-06_JPRB,0.66261E-06_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.48450E-06_JPRB,0.49742E-06_JPRB,0.51366E-06_JPRB,0.52876E-06_JPRB,0.53813E-06_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.38298E-06_JPRB,0.40088E-06_JPRB,0.41192E-06_JPRB,0.42651E-06_JPRB,0.43595E-06_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.30310E-06_JPRB,0.31905E-06_JPRB,0.32907E-06_JPRB,0.34154E-06_JPRB,0.35007E-06_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.23745E-06_JPRB,0.25035E-06_JPRB,0.26224E-06_JPRB,0.27145E-06_JPRB,0.28146E-06_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.18653E-06_JPRB,0.19510E-06_JPRB,0.20644E-06_JPRB,0.21510E-06_JPRB,0.22354E-06_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.14759E-06_JPRB,0.15322E-06_JPRB,0.16145E-06_JPRB,0.17034E-06_JPRB,0.17744E-06_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.11410E-06_JPRB,0.12007E-06_JPRB,0.12507E-06_JPRB,0.13237E-06_JPRB,0.13995E-06_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.88327E-07_JPRB,0.93967E-07_JPRB,0.97683E-07_JPRB,0.10257E-06_JPRB,0.10921E-06_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.66715E-07_JPRB,0.72172E-07_JPRB,0.76442E-07_JPRB,0.79214E-07_JPRB,0.84006E-07_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.51458E-07_JPRB,0.55761E-07_JPRB,0.59239E-07_JPRB,0.62292E-07_JPRB,0.64470E-07_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.39957E-07_JPRB,0.42400E-07_JPRB,0.45870E-07_JPRB,0.48592E-07_JPRB,0.50287E-07_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.31150E-07_JPRB,0.32725E-07_JPRB,0.35598E-07_JPRB,0.37633E-07_JPRB,0.39607E-07_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.23783E-07_JPRB,0.25415E-07_JPRB,0.26634E-07_JPRB,0.28885E-07_JPRB,0.30620E-07_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.18531E-07_JPRB,0.19938E-07_JPRB,0.20988E-07_JPRB,0.22678E-07_JPRB,0.23867E-07_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.14810E-07_JPRB,0.15772E-07_JPRB,0.16651E-07_JPRB,0.17727E-07_JPRB,0.18861E-07_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.11652E-07_JPRB,0.12557E-07_JPRB,0.13319E-07_JPRB,0.13930E-07_JPRB,0.15077E-07_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.91523E-08_JPRB,0.99835E-08_JPRB,0.10603E-07_JPRB,0.11081E-07_JPRB,0.11999E-07_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.72383E-08_JPRB,0.79060E-08_JPRB,0.84489E-08_JPRB,0.88615E-08_JPRB,0.94456E-08_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.60315E-08_JPRB,0.65931E-08_JPRB,0.71001E-08_JPRB,0.74012E-08_JPRB,0.78761E-08_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.21882E-03_JPRB,0.20968E-03_JPRB,0.18648E-03_JPRB,0.17505E-03_JPRB,0.17320E-03_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.19140E-03_JPRB,0.17026E-03_JPRB,0.15903E-03_JPRB,0.15552E-03_JPRB,0.16009E-03_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.16003E-03_JPRB,0.14531E-03_JPRB,0.14007E-03_JPRB,0.14511E-03_JPRB,0.14619E-03_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.13387E-03_JPRB,0.12423E-03_JPRB,0.12444E-03_JPRB,0.12743E-03_JPRB,0.12749E-03_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.11266E-03_JPRB,0.10780E-03_JPRB,0.11110E-03_JPRB,0.11051E-03_JPRB,0.11075E-03_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.96156E-04_JPRB,0.95617E-04_JPRB,0.96775E-04_JPRB,0.96220E-04_JPRB,0.96078E-04_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.82712E-04_JPRB,0.82946E-04_JPRB,0.83265E-04_JPRB,0.82827E-04_JPRB,0.82044E-04_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.71080E-04_JPRB,0.71167E-04_JPRB,0.71040E-04_JPRB,0.70443E-04_JPRB,0.69069E-04_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.60110E-04_JPRB,0.60836E-04_JPRB,0.59994E-04_JPRB,0.58992E-04_JPRB,0.57237E-04_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.50688E-04_JPRB,0.51296E-04_JPRB,0.50271E-04_JPRB,0.48889E-04_JPRB,0.48471E-04_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.42706E-04_JPRB,0.42628E-04_JPRB,0.41764E-04_JPRB,0.39999E-04_JPRB,0.40893E-04_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.35803E-04_JPRB,0.35316E-04_JPRB,0.34535E-04_JPRB,0.33229E-04_JPRB,0.34127E-04_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.29906E-04_JPRB,0.29201E-04_JPRB,0.28336E-04_JPRB,0.27455E-04_JPRB,0.28044E-04_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.24659E-04_JPRB,0.23926E-04_JPRB,0.23159E-04_JPRB,0.22827E-04_JPRB,0.23266E-04_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.20221E-04_JPRB,0.19578E-04_JPRB,0.18838E-04_JPRB,0.18853E-04_JPRB,0.19067E-04_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.16345E-04_JPRB,0.15913E-04_JPRB,0.15327E-04_JPRB,0.15412E-04_JPRB,0.15560E-04_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.13195E-04_JPRB,0.12870E-04_JPRB,0.12430E-04_JPRB,0.12518E-04_JPRB,0.12639E-04_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.10622E-04_JPRB,0.10384E-04_JPRB,0.10068E-04_JPRB,0.10151E-04_JPRB,0.10256E-04_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.85785E-05_JPRB,0.83523E-05_JPRB,0.81227E-05_JPRB,0.81998E-05_JPRB,0.83313E-05_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.69114E-05_JPRB,0.67093E-05_JPRB,0.65758E-05_JPRB,0.66222E-05_JPRB,0.67679E-05_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.55456E-05_JPRB,0.54342E-05_JPRB,0.53229E-05_JPRB,0.53610E-05_JPRB,0.54819E-05_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.44461E-05_JPRB,0.43891E-05_JPRB,0.43112E-05_JPRB,0.43632E-05_JPRB,0.44560E-05_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.35725E-05_JPRB,0.35192E-05_JPRB,0.34703E-05_JPRB,0.35075E-05_JPRB,0.35919E-05_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.28842E-05_JPRB,0.28362E-05_JPRB,0.28143E-05_JPRB,0.28097E-05_JPRB,0.29057E-05_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.23374E-05_JPRB,0.22987E-05_JPRB,0.22934E-05_JPRB,0.22812E-05_JPRB,0.23451E-05_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.18966E-05_JPRB,0.18679E-05_JPRB,0.18613E-05_JPRB,0.18437E-05_JPRB,0.18894E-05_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.15300E-05_JPRB,0.15180E-05_JPRB,0.15096E-05_JPRB,0.14915E-05_JPRB,0.15107E-05_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.12426E-05_JPRB,0.12357E-05_JPRB,0.12171E-05_JPRB,0.12170E-05_JPRB,0.12227E-05_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.10102E-05_JPRB,0.10077E-05_JPRB,0.98593E-06_JPRB,0.98478E-06_JPRB,0.99213E-06_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.82201E-06_JPRB,0.81050E-06_JPRB,0.80313E-06_JPRB,0.80181E-06_JPRB,0.80361E-06_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.67318E-06_JPRB,0.65347E-06_JPRB,0.65478E-06_JPRB,0.64360E-06_JPRB,0.64722E-06_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.55598E-06_JPRB,0.53355E-06_JPRB,0.52778E-06_JPRB,0.52097E-06_JPRB,0.51997E-06_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.46157E-06_JPRB,0.43457E-06_JPRB,0.42412E-06_JPRB,0.42137E-06_JPRB,0.41750E-06_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.39156E-06_JPRB,0.35690E-06_JPRB,0.34498E-06_JPRB,0.33995E-06_JPRB,0.33614E-06_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.33392E-06_JPRB,0.29746E-06_JPRB,0.28074E-06_JPRB,0.27344E-06_JPRB,0.27079E-06_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.27066E-06_JPRB,0.25369E-06_JPRB,0.23115E-06_JPRB,0.22213E-06_JPRB,0.21766E-06_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.22198E-06_JPRB,0.21395E-06_JPRB,0.19274E-06_JPRB,0.18040E-06_JPRB,0.17542E-06_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.18070E-06_JPRB,0.17367E-06_JPRB,0.16473E-06_JPRB,0.14916E-06_JPRB,0.14306E-06_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.14595E-06_JPRB,0.14287E-06_JPRB,0.13847E-06_JPRB,0.12418E-06_JPRB,0.11697E-06_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.11819E-06_JPRB,0.11588E-06_JPRB,0.11225E-06_JPRB,0.10604E-06_JPRB,0.96269E-07_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.95028E-07_JPRB,0.93094E-07_JPRB,0.91303E-07_JPRB,0.88900E-07_JPRB,0.80262E-07_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.77005E-07_JPRB,0.76238E-07_JPRB,0.74228E-07_JPRB,0.72526E-07_JPRB,0.67965E-07_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.62979E-07_JPRB,0.62692E-07_JPRB,0.60930E-07_JPRB,0.59579E-07_JPRB,0.57700E-07_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.51571E-07_JPRB,0.51196E-07_JPRB,0.50031E-07_JPRB,0.48916E-07_JPRB,0.48127E-07_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.42602E-07_JPRB,0.41678E-07_JPRB,0.41006E-07_JPRB,0.39709E-07_JPRB,0.39283E-07_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.35155E-07_JPRB,0.34052E-07_JPRB,0.33561E-07_JPRB,0.32395E-07_JPRB,0.32057E-07_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.29318E-07_JPRB,0.28516E-07_JPRB,0.28097E-07_JPRB,0.26888E-07_JPRB,0.26840E-07_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.43718E-03_JPRB,0.42279E-03_JPRB,0.43200E-03_JPRB,0.42910E-03_JPRB,0.42775E-03_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.37902E-03_JPRB,0.38090E-03_JPRB,0.38058E-03_JPRB,0.37637E-03_JPRB,0.36798E-03_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.33222E-03_JPRB,0.33597E-03_JPRB,0.33205E-03_JPRB,0.32000E-03_JPRB,0.31310E-03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.28736E-03_JPRB,0.28700E-03_JPRB,0.27853E-03_JPRB,0.26891E-03_JPRB,0.26391E-03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.24534E-03_JPRB,0.24098E-03_JPRB,0.23072E-03_JPRB,0.22519E-03_JPRB,0.22013E-03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.20645E-03_JPRB,0.20019E-03_JPRB,0.19266E-03_JPRB,0.18716E-03_JPRB,0.18139E-03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.17271E-03_JPRB,0.16642E-03_JPRB,0.16064E-03_JPRB,0.15556E-03_JPRB,0.14951E-03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.14266E-03_JPRB,0.13766E-03_JPRB,0.13239E-03_JPRB,0.12767E-03_JPRB,0.12305E-03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.11797E-03_JPRB,0.11256E-03_JPRB,0.10880E-03_JPRB,0.10424E-03_JPRB,0.10062E-03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.97085E-04_JPRB,0.92101E-04_JPRB,0.88420E-04_JPRB,0.85535E-04_JPRB,0.82201E-04_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.79380E-04_JPRB,0.75312E-04_JPRB,0.72177E-04_JPRB,0.69710E-04_JPRB,0.66966E-04_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.64591E-04_JPRB,0.61520E-04_JPRB,0.58891E-04_JPRB,0.56626E-04_JPRB,0.54603E-04_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.52423E-04_JPRB,0.49934E-04_JPRB,0.48122E-04_JPRB,0.46331E-04_JPRB,0.44875E-04_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.42528E-04_JPRB,0.40739E-04_JPRB,0.39218E-04_JPRB,0.37806E-04_JPRB,0.36631E-04_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.34453E-04_JPRB,0.33104E-04_JPRB,0.32009E-04_JPRB,0.30764E-04_JPRB,0.30000E-04_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.28076E-04_JPRB,0.26948E-04_JPRB,0.26097E-04_JPRB,0.25065E-04_JPRB,0.24596E-04_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.22814E-04_JPRB,0.21902E-04_JPRB,0.21222E-04_JPRB,0.20350E-04_JPRB,0.20152E-04_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.18551E-04_JPRB,0.17731E-04_JPRB,0.17162E-04_JPRB,0.16614E-04_JPRB,0.16461E-04_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.15020E-04_JPRB,0.14383E-04_JPRB,0.13922E-04_JPRB,0.13548E-04_JPRB,0.13388E-04_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.12091E-04_JPRB,0.11653E-04_JPRB,0.11308E-04_JPRB,0.11033E-04_JPRB,0.10954E-04_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.97901E-05_JPRB,0.93570E-05_JPRB,0.91428E-05_JPRB,0.89594E-05_JPRB,0.89614E-05_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.79439E-05_JPRB,0.76095E-05_JPRB,0.74365E-05_JPRB,0.73099E-05_JPRB,0.73269E-05_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.64505E-05_JPRB,0.62326E-05_JPRB,0.60921E-05_JPRB,0.59939E-05_JPRB,0.59799E-05_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.52745E-05_JPRB,0.51017E-05_JPRB,0.49658E-05_JPRB,0.48988E-05_JPRB,0.48773E-05_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.43522E-05_JPRB,0.42053E-05_JPRB,0.40681E-05_JPRB,0.40176E-05_JPRB,0.40058E-05_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.35676E-05_JPRB,0.34559E-05_JPRB,0.33446E-05_JPRB,0.33017E-05_JPRB,0.32771E-05_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.29238E-05_JPRB,0.28445E-05_JPRB,0.27512E-05_JPRB,0.27095E-05_JPRB,0.26825E-05_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.23985E-05_JPRB,0.23437E-05_JPRB,0.22756E-05_JPRB,0.22251E-05_JPRB,0.22009E-05_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.19763E-05_JPRB,0.19311E-05_JPRB,0.18886E-05_JPRB,0.18370E-05_JPRB,0.18072E-05_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.16256E-05_JPRB,0.15918E-05_JPRB,0.15558E-05_JPRB,0.15108E-05_JPRB,0.14861E-05_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.13290E-05_JPRB,0.13116E-05_JPRB,0.12833E-05_JPRB,0.12550E-05_JPRB,0.12262E-05_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.10777E-05_JPRB,0.10760E-05_JPRB,0.10566E-05_JPRB,0.10365E-05_JPRB,0.10136E-05_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.86690E-06_JPRB,0.87981E-06_JPRB,0.87044E-06_JPRB,0.85428E-06_JPRB,0.83627E-06_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.68706E-06_JPRB,0.71088E-06_JPRB,0.70939E-06_JPRB,0.70110E-06_JPRB,0.69032E-06_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.54665E-06_JPRB,0.56934E-06_JPRB,0.58033E-06_JPRB,0.57830E-06_JPRB,0.57105E-06_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.44874E-06_JPRB,0.44653E-06_JPRB,0.46650E-06_JPRB,0.47090E-06_JPRB,0.46732E-06_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.36869E-06_JPRB,0.35456E-06_JPRB,0.36842E-06_JPRB,0.37978E-06_JPRB,0.38217E-06_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.30489E-06_JPRB,0.29229E-06_JPRB,0.29104E-06_JPRB,0.30430E-06_JPRB,0.31068E-06_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.25290E-06_JPRB,0.24012E-06_JPRB,0.23271E-06_JPRB,0.24366E-06_JPRB,0.25149E-06_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.21148E-06_JPRB,0.19715E-06_JPRB,0.19121E-06_JPRB,0.19177E-06_JPRB,0.20148E-06_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.17334E-06_JPRB,0.16335E-06_JPRB,0.15574E-06_JPRB,0.15266E-06_JPRB,0.15921E-06_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.14189E-06_JPRB,0.13650E-06_JPRB,0.12781E-06_JPRB,0.12535E-06_JPRB,0.12749E-06_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.11763E-06_JPRB,0.11398E-06_JPRB,0.10627E-06_JPRB,0.10373E-06_JPRB,0.10268E-06_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.98316E-07_JPRB,0.94892E-07_JPRB,0.88799E-07_JPRB,0.85036E-07_JPRB,0.83393E-07_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.83049E-07_JPRB,0.78499E-07_JPRB,0.74140E-07_JPRB,0.70137E-07_JPRB,0.68774E-07_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.71768E-07_JPRB,0.64682E-07_JPRB,0.62012E-07_JPRB,0.58149E-07_JPRB,0.57037E-07_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.60166E-07_JPRB,0.54824E-07_JPRB,0.52042E-07_JPRB,0.49198E-07_JPRB,0.47862E-07_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.71254E-03_JPRB,0.65708E-03_JPRB,0.60824E-03_JPRB,0.57965E-03_JPRB,0.55389E-03_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.58852E-03_JPRB,0.54811E-03_JPRB,0.51125E-03_JPRB,0.48557E-03_JPRB,0.47730E-03_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.50599E-03_JPRB,0.46869E-03_JPRB,0.44362E-03_JPRB,0.43503E-03_JPRB,0.43705E-03_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.43493E-03_JPRB,0.40996E-03_JPRB,0.39680E-03_JPRB,0.39623E-03_JPRB,0.40784E-03_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.38028E-03_JPRB,0.36175E-03_JPRB,0.35696E-03_JPRB,0.36547E-03_JPRB,0.38127E-03_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.33113E-03_JPRB,0.32205E-03_JPRB,0.32458E-03_JPRB,0.33502E-03_JPRB,0.35577E-03_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.28886E-03_JPRB,0.29134E-03_JPRB,0.29799E-03_JPRB,0.31134E-03_JPRB,0.33676E-03_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.25113E-03_JPRB,0.25555E-03_JPRB,0.26535E-03_JPRB,0.28470E-03_JPRB,0.30677E-03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.21640E-03_JPRB,0.22152E-03_JPRB,0.23323E-03_JPRB,0.25467E-03_JPRB,0.27764E-03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.18601E-03_JPRB,0.19217E-03_JPRB,0.20696E-03_JPRB,0.22593E-03_JPRB,0.24729E-03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.15978E-03_JPRB,0.16833E-03_JPRB,0.18229E-03_JPRB,0.19994E-03_JPRB,0.21913E-03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.13748E-03_JPRB,0.14696E-03_JPRB,0.16025E-03_JPRB,0.17620E-03_JPRB,0.19459E-03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.11841E-03_JPRB,0.12828E-03_JPRB,0.13998E-03_JPRB,0.15487E-03_JPRB,0.17174E-03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.10209E-03_JPRB,0.11175E-03_JPRB,0.12193E-03_JPRB,0.13590E-03_JPRB,0.15125E-03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.87003E-04_JPRB,0.95681E-04_JPRB,0.10499E-03_JPRB,0.11744E-03_JPRB,0.13086E-03_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.73110E-04_JPRB,0.80653E-04_JPRB,0.89103E-04_JPRB,0.99988E-04_JPRB,0.11120E-03_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.60620E-04_JPRB,0.66736E-04_JPRB,0.74222E-04_JPRB,0.82863E-04_JPRB,0.92471E-04_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.49831E-04_JPRB,0.54602E-04_JPRB,0.61288E-04_JPRB,0.68281E-04_JPRB,0.75599E-04_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.40315E-04_JPRB,0.44435E-04_JPRB,0.49703E-04_JPRB,0.55140E-04_JPRB,0.60140E-04_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.32490E-04_JPRB,0.36020E-04_JPRB,0.39894E-04_JPRB,0.44068E-04_JPRB,0.48080E-04_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.26085E-04_JPRB,0.29063E-04_JPRB,0.32003E-04_JPRB,0.35074E-04_JPRB,0.38662E-04_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.21201E-04_JPRB,0.23256E-04_JPRB,0.25636E-04_JPRB,0.28140E-04_JPRB,0.31273E-04_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.17022E-04_JPRB,0.18534E-04_JPRB,0.20322E-04_JPRB,0.22464E-04_JPRB,0.25109E-04_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.13427E-04_JPRB,0.14606E-04_JPRB,0.16055E-04_JPRB,0.17783E-04_JPRB,0.19877E-04_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.10630E-04_JPRB,0.11559E-04_JPRB,0.12731E-04_JPRB,0.14118E-04_JPRB,0.15831E-04_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.84365E-05_JPRB,0.91300E-05_JPRB,0.10077E-04_JPRB,0.11171E-04_JPRB,0.12568E-04_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.66762E-05_JPRB,0.71770E-05_JPRB,0.79359E-05_JPRB,0.88044E-05_JPRB,0.99043E-05_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.53561E-05_JPRB,0.57216E-05_JPRB,0.63210E-05_JPRB,0.70080E-05_JPRB,0.79213E-05_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.42954E-05_JPRB,0.45692E-05_JPRB,0.50356E-05_JPRB,0.56102E-05_JPRB,0.63394E-05_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.34409E-05_JPRB,0.36788E-05_JPRB,0.40124E-05_JPRB,0.44898E-05_JPRB,0.50645E-05_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.27453E-05_JPRB,0.29361E-05_JPRB,0.31651E-05_JPRB,0.35498E-05_JPRB,0.40058E-05_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.21863E-05_JPRB,0.23320E-05_JPRB,0.24965E-05_JPRB,0.27915E-05_JPRB,0.31593E-05_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.17409E-05_JPRB,0.18472E-05_JPRB,0.19801E-05_JPRB,0.21812E-05_JPRB,0.24741E-05_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.13903E-05_JPRB,0.14639E-05_JPRB,0.15660E-05_JPRB,0.17042E-05_JPRB,0.19243E-05_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.11229E-05_JPRB,0.11661E-05_JPRB,0.12377E-05_JPRB,0.13335E-05_JPRB,0.14898E-05_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.90528E-06_JPRB,0.92962E-06_JPRB,0.97799E-06_JPRB,0.10483E-05_JPRB,0.11575E-05_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.72877E-06_JPRB,0.74278E-06_JPRB,0.77380E-06_JPRB,0.82564E-06_JPRB,0.89736E-06_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.59358E-06_JPRB,0.59955E-06_JPRB,0.62170E-06_JPRB,0.65720E-06_JPRB,0.70771E-06_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.48783E-06_JPRB,0.48769E-06_JPRB,0.50300E-06_JPRB,0.52655E-06_JPRB,0.56377E-06_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.39834E-06_JPRB,0.39922E-06_JPRB,0.40604E-06_JPRB,0.42316E-06_JPRB,0.45057E-06_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.33019E-06_JPRB,0.32505E-06_JPRB,0.33011E-06_JPRB,0.33917E-06_JPRB,0.35858E-06_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.27829E-06_JPRB,0.26763E-06_JPRB,0.27219E-06_JPRB,0.27714E-06_JPRB,0.29159E-06_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.23259E-06_JPRB,0.22250E-06_JPRB,0.22510E-06_JPRB,0.22855E-06_JPRB,0.23937E-06_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.19401E-06_JPRB,0.18605E-06_JPRB,0.18566E-06_JPRB,0.18937E-06_JPRB,0.19605E-06_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.15908E-06_JPRB,0.15649E-06_JPRB,0.15396E-06_JPRB,0.15754E-06_JPRB,0.16039E-06_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.12892E-06_JPRB,0.13132E-06_JPRB,0.12793E-06_JPRB,0.13093E-06_JPRB,0.13273E-06_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.11177E-06_JPRB,0.11165E-06_JPRB,0.10875E-06_JPRB,0.11132E-06_JPRB,0.11431E-06_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.19357E-02_JPRB,0.20341E-02_JPRB,0.21760E-02_JPRB,0.22982E-02_JPRB,0.24550E-02_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.20343E-02_JPRB,0.21709E-02_JPRB,0.23192E-02_JPRB,0.24854E-02_JPRB,0.27026E-02_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.21108E-02_JPRB,0.23009E-02_JPRB,0.25488E-02_JPRB,0.28048E-02_JPRB,0.30159E-02_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.21016E-02_JPRB,0.23581E-02_JPRB,0.25958E-02_JPRB,0.28093E-02_JPRB,0.29839E-02_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.21350E-02_JPRB,0.23722E-02_JPRB,0.25718E-02_JPRB,0.27703E-02_JPRB,0.30036E-02_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.21493E-02_JPRB,0.23550E-02_JPRB,0.25593E-02_JPRB,0.27827E-02_JPRB,0.29722E-02_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.21677E-02_JPRB,0.23602E-02_JPRB,0.25446E-02_JPRB,0.27267E-02_JPRB,0.29542E-02_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.21009E-02_JPRB,0.22669E-02_JPRB,0.24261E-02_JPRB,0.26095E-02_JPRB,0.28436E-02_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.19811E-02_JPRB,0.21249E-02_JPRB,0.22790E-02_JPRB,0.24716E-02_JPRB,0.26844E-02_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.18393E-02_JPRB,0.19585E-02_JPRB,0.21127E-02_JPRB,0.22962E-02_JPRB,0.25211E-02_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.16905E-02_JPRB,0.18032E-02_JPRB,0.19594E-02_JPRB,0.21280E-02_JPRB,0.23466E-02_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.15327E-02_JPRB,0.16542E-02_JPRB,0.18047E-02_JPRB,0.19642E-02_JPRB,0.21591E-02_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.13831E-02_JPRB,0.14932E-02_JPRB,0.16391E-02_JPRB,0.17921E-02_JPRB,0.19606E-02_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.12298E-02_JPRB,0.13325E-02_JPRB,0.14676E-02_JPRB,0.16086E-02_JPRB,0.17628E-02_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.10692E-02_JPRB,0.11652E-02_JPRB,0.12858E-02_JPRB,0.14124E-02_JPRB,0.15514E-02_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.91706E-03_JPRB,0.10034E-02_JPRB,0.11100E-02_JPRB,0.12231E-02_JPRB,0.13481E-02_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.76824E-03_JPRB,0.84492E-03_JPRB,0.93654E-03_JPRB,0.10377E-02_JPRB,0.11448E-02_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.63841E-03_JPRB,0.70573E-03_JPRB,0.78553E-03_JPRB,0.87197E-03_JPRB,0.96607E-03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.51979E-03_JPRB,0.58056E-03_JPRB,0.64728E-03_JPRB,0.71891E-03_JPRB,0.80875E-03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.42659E-03_JPRB,0.47686E-03_JPRB,0.53347E-03_JPRB,0.60016E-03_JPRB,0.67592E-03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.34820E-03_JPRB,0.39030E-03_JPRB,0.44004E-03_JPRB,0.49875E-03_JPRB,0.56492E-03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.28753E-03_JPRB,0.32477E-03_JPRB,0.36831E-03_JPRB,0.41989E-03_JPRB,0.47708E-03_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.23568E-03_JPRB,0.26716E-03_JPRB,0.30618E-03_JPRB,0.35062E-03_JPRB,0.39934E-03_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.19116E-03_JPRB,0.21863E-03_JPRB,0.25180E-03_JPRB,0.28983E-03_JPRB,0.33082E-03_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.15437E-03_JPRB,0.17829E-03_JPRB,0.20646E-03_JPRB,0.23900E-03_JPRB,0.27320E-03_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.12397E-03_JPRB,0.14462E-03_JPRB,0.16847E-03_JPRB,0.19621E-03_JPRB,0.22528E-03_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.98930E-04_JPRB,0.11647E-03_JPRB,0.13711E-03_JPRB,0.16057E-03_JPRB,0.18549E-03_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.79845E-04_JPRB,0.94437E-04_JPRB,0.11202E-03_JPRB,0.13217E-03_JPRB,0.15346E-03_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.64260E-04_JPRB,0.76439E-04_JPRB,0.91253E-04_JPRB,0.10837E-03_JPRB,0.12691E-03_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.51561E-04_JPRB,0.61686E-04_JPRB,0.74044E-04_JPRB,0.88504E-04_JPRB,0.10431E-03_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.40906E-04_JPRB,0.49267E-04_JPRB,0.59361E-04_JPRB,0.71417E-04_JPRB,0.84751E-04_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.32247E-04_JPRB,0.38955E-04_JPRB,0.47246E-04_JPRB,0.57199E-04_JPRB,0.68540E-04_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.25243E-04_JPRB,0.30790E-04_JPRB,0.37490E-04_JPRB,0.45754E-04_JPRB,0.55394E-04_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.19604E-04_JPRB,0.24131E-04_JPRB,0.29598E-04_JPRB,0.36431E-04_JPRB,0.44419E-04_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.15116E-04_JPRB,0.18785E-04_JPRB,0.23180E-04_JPRB,0.28780E-04_JPRB,0.35381E-04_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.11550E-04_JPRB,0.14451E-04_JPRB,0.18039E-04_JPRB,0.22545E-04_JPRB,0.28005E-04_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.87452E-05_JPRB,0.10992E-04_JPRB,0.13863E-04_JPRB,0.17498E-04_JPRB,0.21949E-04_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.66768E-05_JPRB,0.84974E-05_JPRB,0.10835E-04_JPRB,0.13777E-04_JPRB,0.17448E-04_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.51359E-05_JPRB,0.66277E-05_JPRB,0.85196E-05_JPRB,0.10905E-04_JPRB,0.13933E-04_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.38737E-05_JPRB,0.51001E-05_JPRB,0.66347E-05_JPRB,0.85842E-05_JPRB,0.11033E-04_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.28793E-05_JPRB,0.38820E-05_JPRB,0.50987E-05_JPRB,0.66800E-05_JPRB,0.86846E-05_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.22250E-05_JPRB,0.30528E-05_JPRB,0.40721E-05_JPRB,0.53813E-05_JPRB,0.70529E-05_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.17548E-05_JPRB,0.24455E-05_JPRB,0.32962E-05_JPRB,0.43877E-05_JPRB,0.58071E-05_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.13740E-05_JPRB,0.19413E-05_JPRB,0.26523E-05_JPRB,0.35566E-05_JPRB,0.47512E-05_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.10745E-05_JPRB,0.15242E-05_JPRB,0.21190E-05_JPRB,0.28679E-05_JPRB,0.38612E-05_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.84271E-06_JPRB,0.12117E-05_JPRB,0.17039E-05_JPRB,0.23246E-05_JPRB,0.31564E-05_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.75625E-06_JPRB,0.11002E-05_JPRB,0.15376E-05_JPRB,0.20855E-05_JPRB,0.28548E-05_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.41133E-01_JPRB,0.43585E-01_JPRB,0.46448E-01_JPRB,0.50156E-01_JPRB,0.54607E-01_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.39162E-01_JPRB,0.41636E-01_JPRB,0.44649E-01_JPRB,0.48118E-01_JPRB,0.52078E-01_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.37770E-01_JPRB,0.40048E-01_JPRB,0.43090E-01_JPRB,0.46524E-01_JPRB,0.50698E-01_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.35235E-01_JPRB,0.37712E-01_JPRB,0.40429E-01_JPRB,0.44092E-01_JPRB,0.48470E-01_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.32748E-01_JPRB,0.35232E-01_JPRB,0.38049E-01_JPRB,0.41536E-01_JPRB,0.45596E-01_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.30656E-01_JPRB,0.33078E-01_JPRB,0.36084E-01_JPRB,0.39403E-01_JPRB,0.43319E-01_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.28887E-01_JPRB,0.31462E-01_JPRB,0.34348E-01_JPRB,0.37660E-01_JPRB,0.41532E-01_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.26521E-01_JPRB,0.29153E-01_JPRB,0.32006E-01_JPRB,0.35368E-01_JPRB,0.39083E-01_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.23988E-01_JPRB,0.26537E-01_JPRB,0.29508E-01_JPRB,0.32666E-01_JPRB,0.36356E-01_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.21655E-01_JPRB,0.24205E-01_JPRB,0.27193E-01_JPRB,0.30346E-01_JPRB,0.33820E-01_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.19724E-01_JPRB,0.22257E-01_JPRB,0.25021E-01_JPRB,0.27997E-01_JPRB,0.31309E-01_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.18094E-01_JPRB,0.20464E-01_JPRB,0.23167E-01_JPRB,0.26069E-01_JPRB,0.29357E-01_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.16666E-01_JPRB,0.18896E-01_JPRB,0.21422E-01_JPRB,0.24282E-01_JPRB,0.27401E-01_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.15252E-01_JPRB,0.17451E-01_JPRB,0.19828E-01_JPRB,0.22565E-01_JPRB,0.25604E-01_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.13902E-01_JPRB,0.15940E-01_JPRB,0.18143E-01_JPRB,0.20720E-01_JPRB,0.23727E-01_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.12642E-01_JPRB,0.14401E-01_JPRB,0.16467E-01_JPRB,0.18975E-01_JPRB,0.21740E-01_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.11177E-01_JPRB,0.12765E-01_JPRB,0.14750E-01_JPRB,0.16957E-01_JPRB,0.19575E-01_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.97810E-02_JPRB,0.11281E-01_JPRB,0.13066E-01_JPRB,0.15112E-01_JPRB,0.17581E-01_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.84562E-02_JPRB,0.98553E-02_JPRB,0.11427E-01_JPRB,0.13312E-01_JPRB,0.15536E-01_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.73434E-02_JPRB,0.85939E-02_JPRB,0.10020E-01_JPRB,0.11770E-01_JPRB,0.13758E-01_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.63801E-02_JPRB,0.74957E-02_JPRB,0.87874E-02_JPRB,0.10375E-01_JPRB,0.12145E-01_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.56002E-02_JPRB,0.65926E-02_JPRB,0.77964E-02_JPRB,0.92186E-02_JPRB,0.10768E-01_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.48489E-02_JPRB,0.57164E-02_JPRB,0.68333E-02_JPRB,0.80886E-02_JPRB,0.94500E-02_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.41428E-02_JPRB,0.49220E-02_JPRB,0.58884E-02_JPRB,0.69905E-02_JPRB,0.81862E-02_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.34967E-02_JPRB,0.41841E-02_JPRB,0.50244E-02_JPRB,0.59657E-02_JPRB,0.70167E-02_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.29333E-02_JPRB,0.35364E-02_JPRB,0.42644E-02_JPRB,0.50719E-02_JPRB,0.59938E-02_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.24443E-02_JPRB,0.29647E-02_JPRB,0.35953E-02_JPRB,0.42898E-02_JPRB,0.50972E-02_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.20439E-02_JPRB,0.25046E-02_JPRB,0.30512E-02_JPRB,0.36459E-02_JPRB,0.43466E-02_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.17068E-02_JPRB,0.21107E-02_JPRB,0.25838E-02_JPRB,0.30959E-02_JPRB,0.36971E-02_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.14199E-02_JPRB,0.17705E-02_JPRB,0.21755E-02_JPRB,0.26204E-02_JPRB,0.31356E-02_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.11616E-02_JPRB,0.14584E-02_JPRB,0.18069E-02_JPRB,0.21876E-02_JPRB,0.26286E-02_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.93807E-03_JPRB,0.11864E-02_JPRB,0.14851E-02_JPRB,0.18080E-02_JPRB,0.21849E-02_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.75026E-03_JPRB,0.95460E-03_JPRB,0.12092E-02_JPRB,0.14831E-02_JPRB,0.18037E-02_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.59319E-03_JPRB,0.76134E-03_JPRB,0.97292E-03_JPRB,0.12059E-02_JPRB,0.14787E-02_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.46546E-03_JPRB,0.60113E-03_JPRB,0.77762E-03_JPRB,0.97379E-03_JPRB,0.12030E-02_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.36131E-03_JPRB,0.46999E-03_JPRB,0.61292E-03_JPRB,0.77778E-03_JPRB,0.96667E-03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.27490E-03_JPRB,0.36153E-03_JPRB,0.47561E-03_JPRB,0.61173E-03_JPRB,0.76634E-03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.21403E-03_JPRB,0.28416E-03_JPRB,0.37592E-03_JPRB,0.48994E-03_JPRB,0.61812E-03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.16745E-03_JPRB,0.22425E-03_JPRB,0.29943E-03_JPRB,0.39474E-03_JPRB,0.50310E-03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.12927E-03_JPRB,0.17496E-03_JPRB,0.23541E-03_JPRB,0.31434E-03_JPRB,0.40442E-03_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.98512E-04_JPRB,0.13503E-03_JPRB,0.18276E-03_JPRB,0.24681E-03_JPRB,0.32086E-03_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.78150E-04_JPRB,0.10819E-03_JPRB,0.14843E-03_JPRB,0.20243E-03_JPRB,0.26646E-03_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.63455E-04_JPRB,0.88570E-04_JPRB,0.12297E-03_JPRB,0.17015E-03_JPRB,0.22626E-03_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.51095E-04_JPRB,0.72223E-04_JPRB,0.10144E-03_JPRB,0.14188E-03_JPRB,0.19132E-03_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.40866E-04_JPRB,0.58631E-04_JPRB,0.83096E-04_JPRB,0.11753E-03_JPRB,0.16055E-03_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.32890E-04_JPRB,0.47893E-04_JPRB,0.68644E-04_JPRB,0.98156E-04_JPRB,0.13564E-03_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.29702E-04_JPRB,0.43928E-04_JPRB,0.64217E-04_JPRB,0.92621E-04_JPRB,0.12965E-03_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.27690E+01_JPRB,0.28644E+01_JPRB,0.29696E+01_JPRB,0.30850E+01_JPRB,0.32162E+01_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.23162E+01_JPRB,0.23973E+01_JPRB,0.24876E+01_JPRB,0.25913E+01_JPRB,0.27107E+01_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.19377E+01_JPRB,0.20096E+01_JPRB,0.20909E+01_JPRB,0.21846E+01_JPRB,0.22904E+01_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.16221E+01_JPRB,0.16854E+01_JPRB,0.17596E+01_JPRB,0.18440E+01_JPRB,0.19374E+01_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.13581E+01_JPRB,0.14147E+01_JPRB,0.14813E+01_JPRB,0.15562E+01_JPRB,0.16364E+01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.11494E+01_JPRB,0.11995E+01_JPRB,0.12558E+01_JPRB,0.13168E+01_JPRB,0.13828E+01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.99857E+00_JPRB,0.10422E+01_JPRB,0.10890E+01_JPRB,0.11391E+01_JPRB,0.11917E+01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.86585E+00_JPRB,0.90292E+00_JPRB,0.94341E+00_JPRB,0.98616E+00_JPRB,0.10332E+01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.74752E+00_JPRB,0.77983E+00_JPRB,0.81433E+00_JPRB,0.85283E+00_JPRB,0.89462E+00_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.64494E+00_JPRB,0.67286E+00_JPRB,0.70277E+00_JPRB,0.73658E+00_JPRB,0.77352E+00_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.55485E+00_JPRB,0.57897E+00_JPRB,0.60654E+00_JPRB,0.63699E+00_JPRB,0.66979E+00_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.47664E+00_JPRB,0.49869E+00_JPRB,0.52329E+00_JPRB,0.54973E+00_JPRB,0.57955E+00_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.41114E+00_JPRB,0.42988E+00_JPRB,0.45044E+00_JPRB,0.47447E+00_JPRB,0.50163E+00_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.35513E+00_JPRB,0.37142E+00_JPRB,0.38942E+00_JPRB,0.41045E+00_JPRB,0.43493E+00_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.30546E+00_JPRB,0.31995E+00_JPRB,0.33673E+00_JPRB,0.35597E+00_JPRB,0.37742E+00_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.26188E+00_JPRB,0.27552E+00_JPRB,0.29117E+00_JPRB,0.30879E+00_JPRB,0.32839E+00_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.22377E+00_JPRB,0.23654E+00_JPRB,0.25102E+00_JPRB,0.26735E+00_JPRB,0.28587E+00_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.19129E+00_JPRB,0.20332E+00_JPRB,0.21691E+00_JPRB,0.23233E+00_JPRB,0.24924E+00_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.16347E+00_JPRB,0.17463E+00_JPRB,0.18745E+00_JPRB,0.20165E+00_JPRB,0.21712E+00_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.14037E+00_JPRB,0.15075E+00_JPRB,0.16282E+00_JPRB,0.17567E+00_JPRB,0.18973E+00_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.12095E+00_JPRB,0.13081E+00_JPRB,0.14161E+00_JPRB,0.15337E+00_JPRB,0.16632E+00_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.10468E+00_JPRB,0.11371E+00_JPRB,0.12351E+00_JPRB,0.13423E+00_JPRB,0.14632E+00_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.90259E-01_JPRB,0.98421E-01_JPRB,0.10717E+00_JPRB,0.11695E+00_JPRB,0.12831E+00_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.77272E-01_JPRB,0.84599E-01_JPRB,0.92464E-01_JPRB,0.10140E+00_JPRB,0.11193E+00_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.65606E-01_JPRB,0.72029E-01_JPRB,0.79063E-01_JPRB,0.87174E-01_JPRB,0.96643E-01_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.55528E-01_JPRB,0.61268E-01_JPRB,0.67613E-01_JPRB,0.74898E-01_JPRB,0.83456E-01_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.46985E-01_JPRB,0.52085E-01_JPRB,0.57765E-01_JPRB,0.64303E-01_JPRB,0.72021E-01_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.39626E-01_JPRB,0.44094E-01_JPRB,0.49150E-01_JPRB,0.55005E-01_JPRB,0.61884E-01_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.33376E-01_JPRB,0.37326E-01_JPRB,0.41783E-01_JPRB,0.46997E-01_JPRB,0.53158E-01_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.28074E-01_JPRB,0.31535E-01_JPRB,0.35493E-01_JPRB,0.40112E-01_JPRB,0.45645E-01_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.23419E-01_JPRB,0.26419E-01_JPRB,0.29889E-01_JPRB,0.33982E-01_JPRB,0.38867E-01_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.19437E-01_JPRB,0.22035E-01_JPRB,0.25042E-01_JPRB,0.28622E-01_JPRB,0.32930E-01_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.16083E-01_JPRB,0.18329E-01_JPRB,0.20937E-01_JPRB,0.24027E-01_JPRB,0.27786E-01_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.13236E-01_JPRB,0.15146E-01_JPRB,0.17420E-01_JPRB,0.20094E-01_JPRB,0.23328E-01_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.10820E-01_JPRB,0.12455E-01_JPRB,0.14377E-01_JPRB,0.16656E-01_JPRB,0.19464E-01_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.88043E-02_JPRB,0.10190E-01_JPRB,0.11813E-01_JPRB,0.13745E-01_JPRB,0.16141E-01_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.71234E-02_JPRB,0.82775E-02_JPRB,0.96453E-02_JPRB,0.11284E-01_JPRB,0.13310E-01_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.58127E-02_JPRB,0.67802E-02_JPRB,0.79379E-02_JPRB,0.93254E-02_JPRB,0.11078E-01_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.47494E-02_JPRB,0.55659E-02_JPRB,0.65602E-02_JPRB,0.77407E-02_JPRB,0.92288E-02_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.38618E-02_JPRB,0.45424E-02_JPRB,0.53925E-02_JPRB,0.64011E-02_JPRB,0.76645E-02_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.31264E-02_JPRB,0.36823E-02_JPRB,0.43952E-02_JPRB,0.52615E-02_JPRB,0.63311E-02_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.25794E-02_JPRB,0.30481E-02_JPRB,0.36548E-02_JPRB,0.44037E-02_JPRB,0.53380E-02_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.21508E-02_JPRB,0.25472E-02_JPRB,0.30665E-02_JPRB,0.37188E-02_JPRB,0.45472E-02_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.17938E-02_JPRB,0.21263E-02_JPRB,0.25713E-02_JPRB,0.31411E-02_JPRB,0.38667E-02_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.14949E-02_JPRB,0.17755E-02_JPRB,0.21510E-02_JPRB,0.26439E-02_JPRB,0.32830E-02_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.12521E-02_JPRB,0.14938E-02_JPRB,0.18137E-02_JPRB,0.22426E-02_JPRB,0.28028E-02_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.11302E-02_JPRB,0.13552E-02_JPRB,0.16582E-02_JPRB,0.20691E-02_JPRB,0.26051E-02_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.14370E+02_JPRB,0.14649E+02_JPRB,0.14957E+02_JPRB,0.15296E+02_JPRB,0.15663E+02_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.12178E+02_JPRB,0.12411E+02_JPRB,0.12682E+02_JPRB,0.12978E+02_JPRB,0.13316E+02_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.10211E+02_JPRB,0.10402E+02_JPRB,0.10625E+02_JPRB,0.10894E+02_JPRB,0.11239E+02_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.85974E+01_JPRB,0.87539E+01_JPRB,0.89410E+01_JPRB,0.91849E+01_JPRB,0.95108E+01_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.72440E+01_JPRB,0.73858E+01_JPRB,0.75683E+01_JPRB,0.78199E+01_JPRB,0.81516E+01_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.59680E+01_JPRB,0.61054E+01_JPRB,0.63108E+01_JPRB,0.66074E+01_JPRB,0.69367E+01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.47759E+01_JPRB,0.49000E+01_JPRB,0.51125E+01_JPRB,0.53858E+01_JPRB,0.56972E+01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.40682E+01_JPRB,0.42060E+01_JPRB,0.43988E+01_JPRB,0.46035E+01_JPRB,0.48052E+01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.35226E+01_JPRB,0.36715E+01_JPRB,0.38357E+01_JPRB,0.40017E+01_JPRB,0.41636E+01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.30730E+01_JPRB,0.32059E+01_JPRB,0.33607E+01_JPRB,0.35055E+01_JPRB,0.36621E+01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.26688E+01_JPRB,0.27999E+01_JPRB,0.29296E+01_JPRB,0.30668E+01_JPRB,0.32115E+01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.23228E+01_JPRB,0.24338E+01_JPRB,0.25510E+01_JPRB,0.26866E+01_JPRB,0.28223E+01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.19964E+01_JPRB,0.21083E+01_JPRB,0.22332E+01_JPRB,0.23566E+01_JPRB,0.24845E+01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.17097E+01_JPRB,0.18190E+01_JPRB,0.19420E+01_JPRB,0.20663E+01_JPRB,0.21952E+01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.14729E+01_JPRB,0.15741E+01_JPRB,0.16825E+01_JPRB,0.17963E+01_JPRB,0.19295E+01_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.12788E+01_JPRB,0.13609E+01_JPRB,0.14562E+01_JPRB,0.15668E+01_JPRB,0.17032E+01_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.11113E+01_JPRB,0.11813E+01_JPRB,0.12669E+01_JPRB,0.13763E+01_JPRB,0.15012E+01_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.96661E+00_JPRB,0.10287E+01_JPRB,0.11081E+01_JPRB,0.12093E+01_JPRB,0.13273E+01_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.83795E+00_JPRB,0.89792E+00_JPRB,0.97327E+00_JPRB,0.10727E+01_JPRB,0.11828E+01_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.72634E+00_JPRB,0.78480E+00_JPRB,0.86071E+00_JPRB,0.95503E+00_JPRB,0.10615E+01_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.63134E+00_JPRB,0.68789E+00_JPRB,0.76628E+00_JPRB,0.85854E+00_JPRB,0.96370E+00_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.55172E+00_JPRB,0.60863E+00_JPRB,0.68672E+00_JPRB,0.77637E+00_JPRB,0.87664E+00_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.48039E+00_JPRB,0.53701E+00_JPRB,0.61125E+00_JPRB,0.69795E+00_JPRB,0.79084E+00_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.41819E+00_JPRB,0.47188E+00_JPRB,0.54096E+00_JPRB,0.62096E+00_JPRB,0.70693E+00_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.36050E+00_JPRB,0.40906E+00_JPRB,0.47069E+00_JPRB,0.54184E+00_JPRB,0.62144E+00_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.31156E+00_JPRB,0.35409E+00_JPRB,0.40958E+00_JPRB,0.47371E+00_JPRB,0.54611E+00_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.26782E+00_JPRB,0.30677E+00_JPRB,0.35645E+00_JPRB,0.41535E+00_JPRB,0.48073E+00_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.23006E+00_JPRB,0.26273E+00_JPRB,0.30670E+00_JPRB,0.35934E+00_JPRB,0.41871E+00_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.19681E+00_JPRB,0.22601E+00_JPRB,0.26383E+00_JPRB,0.31041E+00_JPRB,0.36443E+00_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.16794E+00_JPRB,0.19457E+00_JPRB,0.22757E+00_JPRB,0.26875E+00_JPRB,0.31708E+00_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.14222E+00_JPRB,0.16606E+00_JPRB,0.19480E+00_JPRB,0.23049E+00_JPRB,0.27422E+00_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.11907E+00_JPRB,0.14059E+00_JPRB,0.16567E+00_JPRB,0.19741E+00_JPRB,0.23557E+00_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.99508E-01_JPRB,0.11792E+00_JPRB,0.14029E+00_JPRB,0.16912E+00_JPRB,0.20294E+00_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.82787E-01_JPRB,0.98729E-01_JPRB,0.11783E+00_JPRB,0.14344E+00_JPRB,0.17433E+00_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.68205E-01_JPRB,0.81739E-01_JPRB,0.98558E-01_JPRB,0.12017E+00_JPRB,0.14798E+00_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.55907E-01_JPRB,0.67050E-01_JPRB,0.81465E-01_JPRB,0.10030E+00_JPRB,0.12506E+00_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.45682E-01_JPRB,0.54871E-01_JPRB,0.66950E-01_JPRB,0.83270E-01_JPRB,0.10500E+00_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.37515E-01_JPRB,0.45259E-01_JPRB,0.55584E-01_JPRB,0.69475E-01_JPRB,0.88432E-01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.31052E-01_JPRB,0.37347E-01_JPRB,0.46136E-01_JPRB,0.58029E-01_JPRB,0.74379E-01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.25697E-01_JPRB,0.30758E-01_JPRB,0.38027E-01_JPRB,0.48169E-01_JPRB,0.62340E-01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.21053E-01_JPRB,0.25282E-01_JPRB,0.31221E-01_JPRB,0.39765E-01_JPRB,0.52061E-01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.17506E-01_JPRB,0.21171E-01_JPRB,0.26181E-01_JPRB,0.33450E-01_JPRB,0.43837E-01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.14733E-01_JPRB,0.17912E-01_JPRB,0.22352E-01_JPRB,0.28517E-01_JPRB,0.37310E-01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.12382E-01_JPRB,0.15138E-01_JPRB,0.19031E-01_JPRB,0.24337E-01_JPRB,0.31780E-01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.10363E-01_JPRB,0.12802E-01_JPRB,0.16188E-01_JPRB,0.20731E-01_JPRB,0.27252E-01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.87632E-02_JPRB,0.10863E-01_JPRB,0.13823E-01_JPRB,0.17907E-01_JPRB,0.23570E-01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.79477E-02_JPRB,0.99708E-02_JPRB,0.12797E-01_JPRB,0.16832E-01_JPRB,0.22384E-01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.27028E+02_JPRB,0.27753E+02_JPRB,0.28483E+02_JPRB,0.29219E+02_JPRB,0.29909E+02_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.23419E+02_JPRB,0.24025E+02_JPRB,0.24638E+02_JPRB,0.25228E+02_JPRB,0.25789E+02_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.20150E+02_JPRB,0.20660E+02_JPRB,0.21151E+02_JPRB,0.21642E+02_JPRB,0.22118E+02_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.17107E+02_JPRB,0.17510E+02_JPRB,0.17925E+02_JPRB,0.18355E+02_JPRB,0.18823E+02_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.14361E+02_JPRB,0.14686E+02_JPRB,0.15035E+02_JPRB,0.15422E+02_JPRB,0.15903E+02_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.12138E+02_JPRB,0.12397E+02_JPRB,0.12696E+02_JPRB,0.13058E+02_JPRB,0.13553E+02_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.10135E+02_JPRB,0.10395E+02_JPRB,0.10708E+02_JPRB,0.11115E+02_JPRB,0.11638E+02_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.81786E+01_JPRB,0.84190E+01_JPRB,0.87492E+01_JPRB,0.92221E+01_JPRB,0.97673E+01_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.68203E+01_JPRB,0.70074E+01_JPRB,0.73249E+01_JPRB,0.77062E+01_JPRB,0.81227E+01_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.58880E+01_JPRB,0.61142E+01_JPRB,0.64089E+01_JPRB,0.67273E+01_JPRB,0.70540E+01_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.51482E+01_JPRB,0.53972E+01_JPRB,0.56613E+01_JPRB,0.59190E+01_JPRB,0.62039E+01_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.45460E+01_JPRB,0.47798E+01_JPRB,0.50055E+01_JPRB,0.52340E+01_JPRB,0.54793E+01_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.40038E+01_JPRB,0.42162E+01_JPRB,0.44356E+01_JPRB,0.46519E+01_JPRB,0.48861E+01_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.35330E+01_JPRB,0.37282E+01_JPRB,0.39261E+01_JPRB,0.41342E+01_JPRB,0.43614E+01_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.30918E+01_JPRB,0.32790E+01_JPRB,0.34783E+01_JPRB,0.36774E+01_JPRB,0.38933E+01_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.27019E+01_JPRB,0.28880E+01_JPRB,0.30842E+01_JPRB,0.32755E+01_JPRB,0.34826E+01_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.23567E+01_JPRB,0.25399E+01_JPRB,0.27237E+01_JPRB,0.29118E+01_JPRB,0.31184E+01_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.20673E+01_JPRB,0.22421E+01_JPRB,0.24146E+01_JPRB,0.26001E+01_JPRB,0.28136E+01_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.18233E+01_JPRB,0.19796E+01_JPRB,0.21491E+01_JPRB,0.23275E+01_JPRB,0.25391E+01_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.16164E+01_JPRB,0.17629E+01_JPRB,0.19137E+01_JPRB,0.20921E+01_JPRB,0.23020E+01_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.14325E+01_JPRB,0.15691E+01_JPRB,0.17171E+01_JPRB,0.18965E+01_JPRB,0.20991E+01_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.12711E+01_JPRB,0.14025E+01_JPRB,0.15514E+01_JPRB,0.17231E+01_JPRB,0.19204E+01_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.11251E+01_JPRB,0.12478E+01_JPRB,0.13948E+01_JPRB,0.15591E+01_JPRB,0.17428E+01_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.98734E+00_JPRB,0.11026E+01_JPRB,0.12425E+01_JPRB,0.13991E+01_JPRB,0.15730E+01_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.85152E+00_JPRB,0.96327E+00_JPRB,0.10911E+01_JPRB,0.12398E+01_JPRB,0.14045E+01_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.73399E+00_JPRB,0.83942E+00_JPRB,0.95984E+00_JPRB,0.10967E+01_JPRB,0.12526E+01_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.63468E+00_JPRB,0.73175E+00_JPRB,0.84488E+00_JPRB,0.97279E+00_JPRB,0.11163E+01_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.54166E+00_JPRB,0.63099E+00_JPRB,0.73459E+00_JPRB,0.85525E+00_JPRB,0.98986E+00_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.46341E+00_JPRB,0.54185E+00_JPRB,0.63786E+00_JPRB,0.75041E+00_JPRB,0.87557E+00_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.39710E+00_JPRB,0.46604E+00_JPRB,0.55335E+00_JPRB,0.65788E+00_JPRB,0.77518E+00_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.33809E+00_JPRB,0.39845E+00_JPRB,0.47656E+00_JPRB,0.56991E+00_JPRB,0.67763E+00_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.28738E+00_JPRB,0.33811E+00_JPRB,0.40783E+00_JPRB,0.49238E+00_JPRB,0.58805E+00_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.24372E+00_JPRB,0.28787E+00_JPRB,0.34858E+00_JPRB,0.42338E+00_JPRB,0.51131E+00_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.20655E+00_JPRB,0.24407E+00_JPRB,0.29751E+00_JPRB,0.36239E+00_JPRB,0.44206E+00_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.17359E+00_JPRB,0.20653E+00_JPRB,0.25158E+00_JPRB,0.30900E+00_JPRB,0.37888E+00_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.14508E+00_JPRB,0.17395E+00_JPRB,0.21335E+00_JPRB,0.26232E+00_JPRB,0.32328E+00_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.12016E+00_JPRB,0.14523E+00_JPRB,0.17928E+00_JPRB,0.22128E+00_JPRB,0.27412E+00_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.99920E-01_JPRB,0.12218E+00_JPRB,0.15097E+00_JPRB,0.18907E+00_JPRB,0.23575E+00_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.82909E-01_JPRB,0.10226E+00_JPRB,0.12737E+00_JPRB,0.16132E+00_JPRB,0.20378E+00_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.68577E-01_JPRB,0.85131E-01_JPRB,0.10673E+00_JPRB,0.13644E+00_JPRB,0.17453E+00_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.56302E-01_JPRB,0.70491E-01_JPRB,0.88684E-01_JPRB,0.11469E+00_JPRB,0.14786E+00_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.47171E-01_JPRB,0.59185E-01_JPRB,0.74877E-01_JPRB,0.97387E-01_JPRB,0.12762E+00_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.40028E-01_JPRB,0.50199E-01_JPRB,0.63960E-01_JPRB,0.83211E-01_JPRB,0.11104E+00_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.33854E-01_JPRB,0.42508E-01_JPRB,0.54649E-01_JPRB,0.71262E-01_JPRB,0.95596E-01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.28590E-01_JPRB,0.36142E-01_JPRB,0.46409E-01_JPRB,0.61269E-01_JPRB,0.82012E-01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.24352E-01_JPRB,0.30934E-01_JPRB,0.39697E-01_JPRB,0.52483E-01_JPRB,0.71167E-01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.22598E-01_JPRB,0.29152E-01_JPRB,0.37468E-01_JPRB,0.48573E-01_JPRB,0.66434E-01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.57172E+02_JPRB,0.59297E+02_JPRB,0.61400E+02_JPRB,0.63512E+02_JPRB,0.65627E+02_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.50361E+02_JPRB,0.52086E+02_JPRB,0.53828E+02_JPRB,0.55595E+02_JPRB,0.57346E+02_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.44078E+02_JPRB,0.45453E+02_JPRB,0.46902E+02_JPRB,0.48347E+02_JPRB,0.49789E+02_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.38395E+02_JPRB,0.39554E+02_JPRB,0.40754E+02_JPRB,0.41955E+02_JPRB,0.43150E+02_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.33363E+02_JPRB,0.34355E+02_JPRB,0.35352E+02_JPRB,0.36337E+02_JPRB,0.37312E+02_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.28599E+02_JPRB,0.29463E+02_JPRB,0.30307E+02_JPRB,0.31155E+02_JPRB,0.32043E+02_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.24284E+02_JPRB,0.24982E+02_JPRB,0.25685E+02_JPRB,0.26424E+02_JPRB,0.27289E+02_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.20576E+02_JPRB,0.21117E+02_JPRB,0.21693E+02_JPRB,0.22370E+02_JPRB,0.23304E+02_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.17126E+02_JPRB,0.17629E+02_JPRB,0.18193E+02_JPRB,0.18968E+02_JPRB,0.20012E+02_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.14084E+02_JPRB,0.14526E+02_JPRB,0.15112E+02_JPRB,0.15986E+02_JPRB,0.17086E+02_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.11727E+02_JPRB,0.12073E+02_JPRB,0.12663E+02_JPRB,0.13546E+02_JPRB,0.14594E+02_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.10116E+02_JPRB,0.10483E+02_JPRB,0.11087E+02_JPRB,0.11839E+02_JPRB,0.12630E+02_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.89362E+01_JPRB,0.93748E+01_JPRB,0.99578E+01_JPRB,0.10576E+02_JPRB,0.11263E+02_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.79574E+01_JPRB,0.84325E+01_JPRB,0.89960E+01_JPRB,0.95862E+01_JPRB,0.10135E+02_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.71290E+01_JPRB,0.76343E+01_JPRB,0.81343E+01_JPRB,0.86609E+01_JPRB,0.91441E+01_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.64441E+01_JPRB,0.69081E+01_JPRB,0.73340E+01_JPRB,0.77892E+01_JPRB,0.82579E+01_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.57859E+01_JPRB,0.61904E+01_JPRB,0.65762E+01_JPRB,0.69937E+01_JPRB,0.74255E+01_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.51602E+01_JPRB,0.55338E+01_JPRB,0.58953E+01_JPRB,0.62766E+01_JPRB,0.66823E+01_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.45943E+01_JPRB,0.49270E+01_JPRB,0.52739E+01_JPRB,0.56298E+01_JPRB,0.60118E+01_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.40881E+01_JPRB,0.44095E+01_JPRB,0.47450E+01_JPRB,0.50839E+01_JPRB,0.54488E+01_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.36534E+01_JPRB,0.39549E+01_JPRB,0.42670E+01_JPRB,0.46043E+01_JPRB,0.49743E+01_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.32874E+01_JPRB,0.35667E+01_JPRB,0.38571E+01_JPRB,0.41872E+01_JPRB,0.45862E+01_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.29379E+01_JPRB,0.31963E+01_JPRB,0.34845E+01_JPRB,0.38151E+01_JPRB,0.42290E+01_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.26101E+01_JPRB,0.28628E+01_JPRB,0.31405E+01_JPRB,0.34760E+01_JPRB,0.38927E+01_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.23047E+01_JPRB,0.25368E+01_JPRB,0.28124E+01_JPRB,0.31292E+01_JPRB,0.35310E+01_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.20413E+01_JPRB,0.22603E+01_JPRB,0.25129E+01_JPRB,0.28252E+01_JPRB,0.32149E+01_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.18040E+01_JPRB,0.20133E+01_JPRB,0.22565E+01_JPRB,0.25571E+01_JPRB,0.29423E+01_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.15898E+01_JPRB,0.17862E+01_JPRB,0.20189E+01_JPRB,0.22992E+01_JPRB,0.26576E+01_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.14002E+01_JPRB,0.15861E+01_JPRB,0.18008E+01_JPRB,0.20620E+01_JPRB,0.24028E+01_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.12302E+01_JPRB,0.14049E+01_JPRB,0.16015E+01_JPRB,0.18444E+01_JPRB,0.21658E+01_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.10668E+01_JPRB,0.12258E+01_JPRB,0.14101E+01_JPRB,0.16347E+01_JPRB,0.19297E+01_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.91800E+00_JPRB,0.10642E+01_JPRB,0.12324E+01_JPRB,0.14347E+01_JPRB,0.17074E+01_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.78687E+00_JPRB,0.91967E+00_JPRB,0.10737E+01_JPRB,0.12598E+01_JPRB,0.15049E+01_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.67148E+00_JPRB,0.79041E+00_JPRB,0.92761E+00_JPRB,0.10973E+01_JPRB,0.13177E+01_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.57045E+00_JPRB,0.67640E+00_JPRB,0.80034E+00_JPRB,0.94779E+00_JPRB,0.11432E+01_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.48142E+00_JPRB,0.57646E+00_JPRB,0.68676E+00_JPRB,0.82116E+00_JPRB,0.98898E+00_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.40194E+00_JPRB,0.48757E+00_JPRB,0.58498E+00_JPRB,0.70838E+00_JPRB,0.85881E+00_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.34095E+00_JPRB,0.41499E+00_JPRB,0.50425E+00_JPRB,0.61464E+00_JPRB,0.75451E+00_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.29038E+00_JPRB,0.35608E+00_JPRB,0.43553E+00_JPRB,0.53422E+00_JPRB,0.66315E+00_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.24615E+00_JPRB,0.30360E+00_JPRB,0.37359E+00_JPRB,0.46378E+00_JPRB,0.57808E+00_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.20660E+00_JPRB,0.25764E+00_JPRB,0.31993E+00_JPRB,0.39869E+00_JPRB,0.50232E+00_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.17518E+00_JPRB,0.22280E+00_JPRB,0.27852E+00_JPRB,0.34881E+00_JPRB,0.44243E+00_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.14906E+00_JPRB,0.19392E+00_JPRB,0.24538E+00_JPRB,0.31045E+00_JPRB,0.39204E+00_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.12564E+00_JPRB,0.16748E+00_JPRB,0.21535E+00_JPRB,0.27386E+00_JPRB,0.34816E+00_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.10489E+00_JPRB,0.14334E+00_JPRB,0.18902E+00_JPRB,0.24147E+00_JPRB,0.30976E+00_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.88415E-01_JPRB,0.12250E+00_JPRB,0.16566E+00_JPRB,0.21499E+00_JPRB,0.27515E+00_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.80710E-01_JPRB,0.11375E+00_JPRB,0.15629E+00_JPRB,0.20737E+00_JPRB,0.26838E+00_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.16465E+03_JPRB,0.16298E+03_JPRB,0.16413E+03_JPRB,0.16796E+03_JPRB,0.17425E+03_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.14134E+03_JPRB,0.14223E+03_JPRB,0.14584E+03_JPRB,0.15183E+03_JPRB,0.15823E+03_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.12334E+03_JPRB,0.12642E+03_JPRB,0.13170E+03_JPRB,0.13719E+03_JPRB,0.14248E+03_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.10903E+03_JPRB,0.11350E+03_JPRB,0.11825E+03_JPRB,0.12284E+03_JPRB,0.12720E+03_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.96744E+02_JPRB,0.10077E+03_JPRB,0.10473E+03_JPRB,0.10856E+03_JPRB,0.11225E+03_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.85368E+02_JPRB,0.88669E+02_JPRB,0.91934E+02_JPRB,0.95127E+02_JPRB,0.98216E+02_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.74865E+02_JPRB,0.77560E+02_JPRB,0.80263E+02_JPRB,0.82912E+02_JPRB,0.85499E+02_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.65304E+02_JPRB,0.67588E+02_JPRB,0.69849E+02_JPRB,0.72099E+02_JPRB,0.74316E+02_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.56704E+02_JPRB,0.58616E+02_JPRB,0.60541E+02_JPRB,0.62457E+02_JPRB,0.64444E+02_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.49099E+02_JPRB,0.50788E+02_JPRB,0.52451E+02_JPRB,0.54119E+02_JPRB,0.55970E+02_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.42076E+02_JPRB,0.43646E+02_JPRB,0.45230E+02_JPRB,0.46888E+02_JPRB,0.48798E+02_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.35457E+02_JPRB,0.36904E+02_JPRB,0.38447E+02_JPRB,0.40262E+02_JPRB,0.42565E+02_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.29832E+02_JPRB,0.31036E+02_JPRB,0.32508E+02_JPRB,0.34502E+02_JPRB,0.36979E+02_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.25205E+02_JPRB,0.26348E+02_JPRB,0.27792E+02_JPRB,0.29788E+02_JPRB,0.32459E+02_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.21486E+02_JPRB,0.22586E+02_JPRB,0.24162E+02_JPRB,0.26260E+02_JPRB,0.28944E+02_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.18712E+02_JPRB,0.19693E+02_JPRB,0.21370E+02_JPRB,0.23591E+02_JPRB,0.26158E+02_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.16630E+02_JPRB,0.17716E+02_JPRB,0.19369E+02_JPRB,0.21565E+02_JPRB,0.24102E+02_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.14923E+02_JPRB,0.16119E+02_JPRB,0.17783E+02_JPRB,0.19989E+02_JPRB,0.22379E+02_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.13532E+02_JPRB,0.14853E+02_JPRB,0.16576E+02_JPRB,0.18745E+02_JPRB,0.21084E+02_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.12453E+02_JPRB,0.13784E+02_JPRB,0.15587E+02_JPRB,0.17718E+02_JPRB,0.20022E+02_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.11580E+02_JPRB,0.13038E+02_JPRB,0.14851E+02_JPRB,0.16892E+02_JPRB,0.19192E+02_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.10820E+02_JPRB,0.12376E+02_JPRB,0.14134E+02_JPRB,0.16152E+02_JPRB,0.18402E+02_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.10116E+02_JPRB,0.11686E+02_JPRB,0.13402E+02_JPRB,0.15346E+02_JPRB,0.17556E+02_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.93933E+01_JPRB,0.10910E+02_JPRB,0.12572E+02_JPRB,0.14432E+02_JPRB,0.16536E+02_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.85160E+01_JPRB,0.99755E+01_JPRB,0.11554E+02_JPRB,0.13358E+02_JPRB,0.15350E+02_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.77505E+01_JPRB,0.91225E+01_JPRB,0.10670E+02_JPRB,0.12380E+02_JPRB,0.14273E+02_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.70897E+01_JPRB,0.83885E+01_JPRB,0.98694E+01_JPRB,0.11502E+02_JPRB,0.13343E+02_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.63295E+01_JPRB,0.75506E+01_JPRB,0.89466E+01_JPRB,0.10495E+02_JPRB,0.12287E+02_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.56302E+01_JPRB,0.67988E+01_JPRB,0.80957E+01_JPRB,0.96013E+01_JPRB,0.11280E+02_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.50234E+01_JPRB,0.61071E+01_JPRB,0.73389E+01_JPRB,0.87816E+01_JPRB,0.10380E+02_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.44225E+01_JPRB,0.54282E+01_JPRB,0.65963E+01_JPRB,0.79433E+01_JPRB,0.94666E+01_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.38558E+01_JPRB,0.47912E+01_JPRB,0.58905E+01_JPRB,0.71478E+01_JPRB,0.86145E+01_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.33575E+01_JPRB,0.42351E+01_JPRB,0.52475E+01_JPRB,0.64292E+01_JPRB,0.78296E+01_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.29053E+01_JPRB,0.37074E+01_JPRB,0.46432E+01_JPRB,0.57484E+01_JPRB,0.70674E+01_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.24706E+01_JPRB,0.31851E+01_JPRB,0.40524E+01_JPRB,0.50837E+01_JPRB,0.62990E+01_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.20907E+01_JPRB,0.27320E+01_JPRB,0.35232E+01_JPRB,0.44689E+01_JPRB,0.55998E+01_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.17652E+01_JPRB,0.23397E+01_JPRB,0.30525E+01_JPRB,0.39130E+01_JPRB,0.49641E+01_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.14980E+01_JPRB,0.19995E+01_JPRB,0.26386E+01_JPRB,0.34309E+01_JPRB,0.43930E+01_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.12883E+01_JPRB,0.17229E+01_JPRB,0.22808E+01_JPRB,0.30058E+01_JPRB,0.38921E+01_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.11032E+01_JPRB,0.14878E+01_JPRB,0.19945E+01_JPRB,0.26225E+01_JPRB,0.34327E+01_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.94256E+00_JPRB,0.12803E+01_JPRB,0.17436E+01_JPRB,0.23095E+01_JPRB,0.30258E+01_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.80847E+00_JPRB,0.11045E+01_JPRB,0.15250E+01_JPRB,0.20573E+01_JPRB,0.27048E+01_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.69972E+00_JPRB,0.95008E+00_JPRB,0.13215E+01_JPRB,0.18178E+01_JPRB,0.24326E+01_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.60659E+00_JPRB,0.81298E+00_JPRB,0.11430E+01_JPRB,0.15925E+01_JPRB,0.21783E+01_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.52664E+00_JPRB,0.69670E+00_JPRB,0.97998E+00_JPRB,0.13891E+01_JPRB,0.19333E+01_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.45985E+00_JPRB,0.60682E+00_JPRB,0.84337E+00_JPRB,0.12113E+01_JPRB,0.17188E+01_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.43853E+00_JPRB,0.57879E+00_JPRB,0.79018E+00_JPRB,0.11130E+01_JPRB,0.16039E+01_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.86016E+03_JPRB,0.84626E+03_JPRB,0.83228E+03_JPRB,0.81817E+03_JPRB,0.80450E+03_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.75981E+03_JPRB,0.74663E+03_JPRB,0.73345E+03_JPRB,0.72104E+03_JPRB,0.71224E+03_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.66201E+03_JPRB,0.64993E+03_JPRB,0.63891E+03_JPRB,0.63210E+03_JPRB,0.62978E+03_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.57014E+03_JPRB,0.56027E+03_JPRB,0.55466E+03_JPRB,0.55378E+03_JPRB,0.55721E+03_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.48861E+03_JPRB,0.48354E+03_JPRB,0.48324E+03_JPRB,0.48760E+03_JPRB,0.49602E+03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.41987E+03_JPRB,0.41964E+03_JPRB,0.42411E+03_JPRB,0.43291E+03_JPRB,0.44575E+03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.36303E+03_JPRB,0.36702E+03_JPRB,0.37556E+03_JPRB,0.38834E+03_JPRB,0.40471E+03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.31651E+03_JPRB,0.32421E+03_JPRB,0.33627E+03_JPRB,0.35219E+03_JPRB,0.37072E+03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.27867E+03_JPRB,0.28947E+03_JPRB,0.30434E+03_JPRB,0.32131E+03_JPRB,0.33823E+03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.24916E+03_JPRB,0.26251E+03_JPRB,0.27768E+03_JPRB,0.29296E+03_JPRB,0.30844E+03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.22571E+03_JPRB,0.23932E+03_JPRB,0.25291E+03_JPRB,0.26670E+03_JPRB,0.28069E+03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.20503E+03_JPRB,0.21765E+03_JPRB,0.23029E+03_JPRB,0.24291E+03_JPRB,0.25575E+03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.18574E+03_JPRB,0.19763E+03_JPRB,0.20960E+03_JPRB,0.22151E+03_JPRB,0.23356E+03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.16825E+03_JPRB,0.17945E+03_JPRB,0.19085E+03_JPRB,0.20242E+03_JPRB,0.21406E+03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.15254E+03_JPRB,0.16311E+03_JPRB,0.17402E+03_JPRB,0.18521E+03_JPRB,0.19696E+03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.13815E+03_JPRB,0.14857E+03_JPRB,0.15913E+03_JPRB,0.17022E+03_JPRB,0.18238E+03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.12560E+03_JPRB,0.13571E+03_JPRB,0.14630E+03_JPRB,0.15763E+03_JPRB,0.17019E+03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.11497E+03_JPRB,0.12476E+03_JPRB,0.13550E+03_JPRB,0.14719E+03_JPRB,0.16044E+03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.10602E+03_JPRB,0.11577E+03_JPRB,0.12671E+03_JPRB,0.13889E+03_JPRB,0.15289E+03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.98519E+02_JPRB,0.10855E+03_JPRB,0.11978E+03_JPRB,0.13265E+03_JPRB,0.14744E+03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.92517E+02_JPRB,0.10274E+03_JPRB,0.11452E+03_JPRB,0.12822E+03_JPRB,0.14389E+03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.87441E+02_JPRB,0.97936E+02_JPRB,0.11044E+03_JPRB,0.12495E+03_JPRB,0.14148E+03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.82499E+02_JPRB,0.93333E+02_JPRB,0.10635E+03_JPRB,0.12151E+03_JPRB,0.13874E+03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.77442E+02_JPRB,0.88493E+02_JPRB,0.10184E+03_JPRB,0.11740E+03_JPRB,0.13513E+03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.71771E+02_JPRB,0.82731E+02_JPRB,0.96032E+02_JPRB,0.11158E+03_JPRB,0.12941E+03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.66727E+02_JPRB,0.77610E+02_JPRB,0.90795E+02_JPRB,0.10632E+03_JPRB,0.12415E+03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.62339E+02_JPRB,0.73113E+02_JPRB,0.86200E+02_JPRB,0.10167E+03_JPRB,0.11942E+03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.57601E+02_JPRB,0.67999E+02_JPRB,0.80724E+02_JPRB,0.95858E+02_JPRB,0.11323E+03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.53285E+02_JPRB,0.63203E+02_JPRB,0.75577E+02_JPRB,0.90242E+02_JPRB,0.10726E+03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.49392E+02_JPRB,0.58908E+02_JPRB,0.70834E+02_JPRB,0.85045E+02_JPRB,0.10163E+03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.45446E+02_JPRB,0.54452E+02_JPRB,0.65751E+02_JPRB,0.79402E+02_JPRB,0.95397E+02_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.41620E+02_JPRB,0.50184E+02_JPRB,0.60777E+02_JPRB,0.73786E+02_JPRB,0.89076E+02_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.38059E+02_JPRB,0.46282E+02_JPRB,0.56226E+02_JPRB,0.68539E+02_JPRB,0.83136E+02_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.34554E+02_JPRB,0.42501E+02_JPRB,0.51829E+02_JPRB,0.63383E+02_JPRB,0.77220E+02_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.31009E+02_JPRB,0.38610E+02_JPRB,0.47385E+02_JPRB,0.58058E+02_JPRB,0.71080E+02_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.27715E+02_JPRB,0.34934E+02_JPRB,0.43319E+02_JPRB,0.53190E+02_JPRB,0.65347E+02_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.24658E+02_JPRB,0.31478E+02_JPRB,0.39500E+02_JPRB,0.48743E+02_JPRB,0.59997E+02_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.22034E+02_JPRB,0.28437E+02_JPRB,0.36093E+02_JPRB,0.44894E+02_JPRB,0.55346E+02_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.19684E+02_JPRB,0.25626E+02_JPRB,0.32937E+02_JPRB,0.41385E+02_JPRB,0.51154E+02_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.17504E+02_JPRB,0.22995E+02_JPRB,0.29925E+02_JPRB,0.38057E+02_JPRB,0.47307E+02_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.15552E+02_JPRB,0.20544E+02_JPRB,0.27079E+02_JPRB,0.34832E+02_JPRB,0.43722E+02_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.13886E+02_JPRB,0.18476E+02_JPRB,0.24607E+02_JPRB,0.31966E+02_JPRB,0.40540E+02_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.12396E+02_JPRB,0.16681E+02_JPRB,0.22385E+02_JPRB,0.29384E+02_JPRB,0.37592E+02_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.11028E+02_JPRB,0.15006E+02_JPRB,0.20297E+02_JPRB,0.26955E+02_JPRB,0.34780E+02_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.97493E+01_JPRB,0.13452E+02_JPRB,0.18354E+02_JPRB,0.24644E+02_JPRB,0.32099E+02_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.86411E+01_JPRB,0.12068E+02_JPRB,0.16627E+02_JPRB,0.22569E+02_JPRB,0.29684E+02_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.80894E+01_JPRB,0.11449E+02_JPRB,0.15905E+02_JPRB,0.21753E+02_JPRB,0.28728E+02_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.50046E+04_JPRB,0.50034E+04_JPRB,0.49950E+04_JPRB,0.49781E+04_JPRB,0.49542E+04_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.51812E+04_JPRB,0.51738E+04_JPRB,0.51582E+04_JPRB,0.51357E+04_JPRB,0.51054E+04_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.52793E+04_JPRB,0.52645E+04_JPRB,0.52450E+04_JPRB,0.52172E+04_JPRB,0.51836E+04_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.53001E+04_JPRB,0.52818E+04_JPRB,0.52568E+04_JPRB,0.52274E+04_JPRB,0.51924E+04_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.52448E+04_JPRB,0.52242E+04_JPRB,0.52004E+04_JPRB,0.51715E+04_JPRB,0.51377E+04_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.51200E+04_JPRB,0.51031E+04_JPRB,0.50817E+04_JPRB,0.50571E+04_JPRB,0.50308E+04_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.49389E+04_JPRB,0.49284E+04_JPRB,0.49153E+04_JPRB,0.49007E+04_JPRB,0.48819E+04_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.47181E+04_JPRB,0.47168E+04_JPRB,0.47163E+04_JPRB,0.47129E+04_JPRB,0.47111E+04_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.44718E+04_JPRB,0.44865E+04_JPRB,0.44990E+04_JPRB,0.45153E+04_JPRB,0.45403E+04_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.42192E+04_JPRB,0.42497E+04_JPRB,0.42861E+04_JPRB,0.43316E+04_JPRB,0.43809E+04_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.39727E+04_JPRB,0.40275E+04_JPRB,0.40936E+04_JPRB,0.41646E+04_JPRB,0.42404E+04_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.37507E+04_JPRB,0.38336E+04_JPRB,0.39239E+04_JPRB,0.40206E+04_JPRB,0.41209E+04_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.35606E+04_JPRB,0.36694E+04_JPRB,0.37826E+04_JPRB,0.39026E+04_JPRB,0.40244E+04_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.34043E+04_JPRB,0.35364E+04_JPRB,0.36731E+04_JPRB,0.38130E+04_JPRB,0.39519E+04_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.32803E+04_JPRB,0.34346E+04_JPRB,0.35912E+04_JPRB,0.37476E+04_JPRB,0.39014E+04_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.31876E+04_JPRB,0.33610E+04_JPRB,0.35344E+04_JPRB,0.37042E+04_JPRB,0.38699E+04_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.31239E+04_JPRB,0.33137E+04_JPRB,0.34995E+04_JPRB,0.36813E+04_JPRB,0.38573E+04_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.30850E+04_JPRB,0.32872E+04_JPRB,0.34837E+04_JPRB,0.36745E+04_JPRB,0.38591E+04_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.30674E+04_JPRB,0.32795E+04_JPRB,0.34848E+04_JPRB,0.36826E+04_JPRB,0.38724E+04_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.30683E+04_JPRB,0.32879E+04_JPRB,0.34990E+04_JPRB,0.37022E+04_JPRB,0.38953E+04_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.30831E+04_JPRB,0.33087E+04_JPRB,0.35243E+04_JPRB,0.37303E+04_JPRB,0.39250E+04_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.31017E+04_JPRB,0.33308E+04_JPRB,0.35496E+04_JPRB,0.37580E+04_JPRB,0.39527E+04_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.31057E+04_JPRB,0.33387E+04_JPRB,0.35601E+04_JPRB,0.37700E+04_JPRB,0.39654E+04_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.30895E+04_JPRB,0.33260E+04_JPRB,0.35504E+04_JPRB,0.37630E+04_JPRB,0.39606E+04_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.30400E+04_JPRB,0.32811E+04_JPRB,0.35096E+04_JPRB,0.37263E+04_JPRB,0.39277E+04_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.29913E+04_JPRB,0.32361E+04_JPRB,0.34690E+04_JPRB,0.36890E+04_JPRB,0.38942E+04_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.29441E+04_JPRB,0.31926E+04_JPRB,0.34294E+04_JPRB,0.36526E+04_JPRB,0.38612E+04_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.28722E+04_JPRB,0.31254E+04_JPRB,0.33667E+04_JPRB,0.35943E+04_JPRB,0.38073E+04_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.27971E+04_JPRB,0.30548E+04_JPRB,0.33004E+04_JPRB,0.35326E+04_JPRB,0.37505E+04_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.27226E+04_JPRB,0.29837E+04_JPRB,0.32336E+04_JPRB,0.34701E+04_JPRB,0.36925E+04_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.26332E+04_JPRB,0.28981E+04_JPRB,0.31525E+04_JPRB,0.33944E+04_JPRB,0.36223E+04_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.25372E+04_JPRB,0.28050E+04_JPRB,0.30643E+04_JPRB,0.33114E+04_JPRB,0.35441E+04_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.24417E+04_JPRB,0.27113E+04_JPRB,0.29748E+04_JPRB,0.32268E+04_JPRB,0.34651E+04_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.23395E+04_JPRB,0.26115E+04_JPRB,0.28783E+04_JPRB,0.31351E+04_JPRB,0.33792E+04_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.22243E+04_JPRB,0.24998E+04_JPRB,0.27694E+04_JPRB,0.30313E+04_JPRB,0.32810E+04_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.21083E+04_JPRB,0.23877E+04_JPRB,0.26592E+04_JPRB,0.29257E+04_JPRB,0.31803E+04_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.19925E+04_JPRB,0.22741E+04_JPRB,0.25488E+04_JPRB,0.28180E+04_JPRB,0.30783E+04_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.18841E+04_JPRB,0.21666E+04_JPRB,0.24447E+04_JPRB,0.27159E+04_JPRB,0.29806E+04_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.17798E+04_JPRB,0.20618E+04_JPRB,0.23428E+04_JPRB,0.26160E+04_JPRB,0.28839E+04_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.16762E+04_JPRB,0.19574E+04_JPRB,0.22398E+04_JPRB,0.25156E+04_JPRB,0.27862E+04_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.15731E+04_JPRB,0.18530E+04_JPRB,0.21358E+04_JPRB,0.24152E+04_JPRB,0.26872E+04_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.14802E+04_JPRB,0.17581E+04_JPRB,0.20401E+04_JPRB,0.23219E+04_JPRB,0.25956E+04_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.13915E+04_JPRB,0.16675E+04_JPRB,0.19488E+04_JPRB,0.22318E+04_JPRB,0.25080E+04_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.13039E+04_JPRB,0.15778E+04_JPRB,0.18577E+04_JPRB,0.21406E+04_JPRB,0.24200E+04_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.12167E+04_JPRB,0.14890E+04_JPRB,0.17672E+04_JPRB,0.20493E+04_JPRB,0.23313E+04_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.11349E+04_JPRB,0.14057E+04_JPRB,0.16818E+04_JPRB,0.19631E+04_JPRB,0.22464E+04_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.11025E+04_JPRB,0.13721E+04_JPRB,0.16476E+04_JPRB,0.19283E+04_JPRB,0.22117E+04_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.12492E+05_JPRB,0.12602E+05_JPRB,0.12678E+05_JPRB,0.12730E+05_JPRB,0.12749E+05_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.14696E+05_JPRB,0.14792E+05_JPRB,0.14862E+05_JPRB,0.14890E+05_JPRB,0.14889E+05_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.17153E+05_JPRB,0.17242E+05_JPRB,0.17275E+05_JPRB,0.17274E+05_JPRB,0.17231E+05_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.19843E+05_JPRB,0.19894E+05_JPRB,0.19898E+05_JPRB,0.19845E+05_JPRB,0.19747E+05_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.22727E+05_JPRB,0.22731E+05_JPRB,0.22667E+05_JPRB,0.22551E+05_JPRB,0.22386E+05_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.25761E+05_JPRB,0.25684E+05_JPRB,0.25544E+05_JPRB,0.25342E+05_JPRB,0.25070E+05_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.28878E+05_JPRB,0.28701E+05_JPRB,0.28454E+05_JPRB,0.28131E+05_JPRB,0.27759E+05_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.31981E+05_JPRB,0.31695E+05_JPRB,0.31314E+05_JPRB,0.30871E+05_JPRB,0.30360E+05_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.35017E+05_JPRB,0.34575E+05_JPRB,0.34064E+05_JPRB,0.33480E+05_JPRB,0.32821E+05_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.37854E+05_JPRB,0.37264E+05_JPRB,0.36589E+05_JPRB,0.35840E+05_JPRB,0.35046E+05_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.40473E+05_JPRB,0.39710E+05_JPRB,0.38862E+05_JPRB,0.37967E+05_JPRB,0.37023E+05_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.42796E+05_JPRB,0.41864E+05_JPRB,0.40869E+05_JPRB,0.39817E+05_JPRB,0.38718E+05_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.44813E+05_JPRB,0.43719E+05_JPRB,0.42578E+05_JPRB,0.41380E+05_JPRB,0.40143E+05_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.46504E+05_JPRB,0.45263E+05_JPRB,0.43973E+05_JPRB,0.42641E+05_JPRB,0.41294E+05_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.47893E+05_JPRB,0.46507E+05_JPRB,0.45087E+05_JPRB,0.43647E+05_JPRB,0.42197E+05_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.48993E+05_JPRB,0.47480E+05_JPRB,0.45952E+05_JPRB,0.44417E+05_JPRB,0.42878E+05_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.49823E+05_JPRB,0.48206E+05_JPRB,0.46588E+05_JPRB,0.44969E+05_JPRB,0.43353E+05_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.50415E+05_JPRB,0.48716E+05_JPRB,0.47025E+05_JPRB,0.45339E+05_JPRB,0.43659E+05_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.50811E+05_JPRB,0.49042E+05_JPRB,0.47288E+05_JPRB,0.45543E+05_JPRB,0.43813E+05_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.51032E+05_JPRB,0.49203E+05_JPRB,0.47400E+05_JPRB,0.45610E+05_JPRB,0.43841E+05_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.51107E+05_JPRB,0.49234E+05_JPRB,0.47393E+05_JPRB,0.45565E+05_JPRB,0.43775E+05_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.51130E+05_JPRB,0.49228E+05_JPRB,0.47350E+05_JPRB,0.45497E+05_JPRB,0.43688E+05_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.51256E+05_JPRB,0.49316E+05_JPRB,0.47413E+05_JPRB,0.45540E+05_JPRB,0.43711E+05_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.51519E+05_JPRB,0.49555E+05_JPRB,0.47626E+05_JPRB,0.45731E+05_JPRB,0.43885E+05_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.52034E+05_JPRB,0.50041E+05_JPRB,0.48090E+05_JPRB,0.46168E+05_JPRB,0.44302E+05_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.52529E+05_JPRB,0.50511E+05_JPRB,0.48535E+05_JPRB,0.46595E+05_JPRB,0.44706E+05_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.52985E+05_JPRB,0.50952E+05_JPRB,0.48954E+05_JPRB,0.46996E+05_JPRB,0.45085E+05_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.53633E+05_JPRB,0.51575E+05_JPRB,0.49556E+05_JPRB,0.47578E+05_JPRB,0.45648E+05_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.54289E+05_JPRB,0.52211E+05_JPRB,0.50171E+05_JPRB,0.48171E+05_JPRB,0.46220E+05_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.54932E+05_JPRB,0.52836E+05_JPRB,0.50778E+05_JPRB,0.48759E+05_JPRB,0.46785E+05_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.55673E+05_JPRB,0.53569E+05_JPRB,0.51488E+05_JPRB,0.49449E+05_JPRB,0.47456E+05_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.56461E+05_JPRB,0.54346E+05_JPRB,0.52247E+05_JPRB,0.50190E+05_JPRB,0.48178E+05_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.57241E+05_JPRB,0.55121E+05_JPRB,0.53007E+05_JPRB,0.50929E+05_JPRB,0.48897E+05_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.58063E+05_JPRB,0.55933E+05_JPRB,0.53806E+05_JPRB,0.51710E+05_JPRB,0.49656E+05_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.58978E+05_JPRB,0.56828E+05_JPRB,0.54697E+05_JPRB,0.52582E+05_JPRB,0.50505E+05_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.59891E+05_JPRB,0.57720E+05_JPRB,0.55586E+05_JPRB,0.53459E+05_JPRB,0.51367E+05_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.60795E+05_JPRB,0.58621E+05_JPRB,0.56472E+05_JPRB,0.54336E+05_JPRB,0.52224E+05_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.61639E+05_JPRB,0.59466E+05_JPRB,0.57298E+05_JPRB,0.55162E+05_JPRB,0.53034E+05_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.62447E+05_JPRB,0.60284E+05_JPRB,0.58110E+05_JPRB,0.55961E+05_JPRB,0.53824E+05_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.63240E+05_JPRB,0.61098E+05_JPRB,0.58916E+05_JPRB,0.56760E+05_JPRB,0.54612E+05_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.64030E+05_JPRB,0.61903E+05_JPRB,0.59727E+05_JPRB,0.57558E+05_JPRB,0.55411E+05_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.64735E+05_JPRB,0.62637E+05_JPRB,0.60471E+05_JPRB,0.58287E+05_JPRB,0.56138E+05_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.65407E+05_JPRB,0.63332E+05_JPRB,0.61181E+05_JPRB,0.59003E+05_JPRB,0.56834E+05_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.66069E+05_JPRB,0.64015E+05_JPRB,0.61881E+05_JPRB,0.59702E+05_JPRB,0.57529E+05_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.66725E+05_JPRB,0.64683E+05_JPRB,0.62576E+05_JPRB,0.60411E+05_JPRB,0.58225E+05_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.67327E+05_JPRB,0.65315E+05_JPRB,0.63232E+05_JPRB,0.61078E+05_JPRB,0.58891E+05_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.67577E+05_JPRB,0.65572E+05_JPRB,0.63496E+05_JPRB,0.61349E+05_JPRB,0.59161E+05_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.299818E-05_JPRB, 0.209282E-05_JPRB, 0.988353E-04_JPRB, 0.632178E-03_JPRB /)
+FORREF(:, 2) = (/ 0.633648E-05_JPRB, 0.509214E-04_JPRB, 0.650535E-03_JPRB, 0.264019E-02_JPRB /)
+FORREF(:, 3) = (/ 0.636782E-04_JPRB, 0.136577E-03_JPRB, 0.166500E-02_JPRB, 0.750821E-02_JPRB /)
+FORREF(:, 4) = (/ 0.472314E-03_JPRB, 0.988296E-03_JPRB, 0.585751E-02_JPRB, 0.187352E-01_JPRB /)
+FORREF(:, 5) = (/ 0.558635E-02_JPRB, 0.856489E-02_JPRB, 0.157438E-01_JPRB, 0.181471E-01_JPRB /)
+FORREF(:, 6) = (/ 0.217395E-01_JPRB, 0.229156E-01_JPRB, 0.230125E-01_JPRB, 0.143821E-01_JPRB /)
+FORREF(:, 7) = (/ 0.277222E-01_JPRB, 0.299252E-01_JPRB, 0.208929E-01_JPRB, 0.826748E-02_JPRB /)
+FORREF(:, 8) = (/ 0.252119E-01_JPRB, 0.262911E-01_JPRB, 0.187663E-01_JPRB, 0.417110E-02_JPRB /)
+FORREF(:, 9) = (/ 0.304941E-01_JPRB, 0.175545E-01_JPRB, 0.971224E-02_JPRB, 0.142023E-02_JPRB /)
+FORREF(:,10) = (/ 0.327200E-01_JPRB, 0.215788E-01_JPRB, 0.346831E-02_JPRB, 0.157989E-02_JPRB /)
+FORREF(:,11) = (/ 0.324955E-01_JPRB, 0.228571E-01_JPRB, 0.171749E-02_JPRB, 0.226853E-02_JPRB /)
+FORREF(:,12) = (/ 0.326588E-01_JPRB, 0.198544E-01_JPRB, 0.532339E-06_JPRB, 0.279086E-02_JPRB /)
+FORREF(:,13) = (/ 0.345157E-01_JPRB, 0.168679E-01_JPRB, 0.505361E-06_JPRB, 0.276647E-02_JPRB /)
+FORREF(:,14) = (/ 0.448765E-01_JPRB, 0.123791E-02_JPRB, 0.488367E-06_JPRB, 0.122245E-02_JPRB /)
+FORREF(:,15) = (/ 0.486925E-01_JPRB, 0.464371E-06_JPRB, 0.464241E-06_JPRB, 0.753846E-06_JPRB /)
+FORREF(:,16) = (/ 0.530511E-01_JPRB, 0.376234E-06_JPRB, 0.409824E-06_JPRB, 0.470650E-06_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF 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).
+
+SELFREF(:, 1) = (/ &
+ & 0.118069E+00_JPRB, 0.713523E-01_JPRB, 0.431199E-01_JPRB, 0.260584E-01_JPRB, 0.157477E-01_JPRB, &
+ & 0.951675E-02_JPRB, 0.575121E-02_JPRB, 0.347560E-02_JPRB, 0.210039E-02_JPRB, 0.126932E-02_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.137081E-01_JPRB, 0.139046E-01_JPRB, 0.141040E-01_JPRB, 0.143061E-01_JPRB, 0.145112E-01_JPRB, &
+ & 0.147193E-01_JPRB, 0.149303E-01_JPRB, 0.151443E-01_JPRB, 0.153614E-01_JPRB, 0.155816E-01_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.166575E-01_JPRB, 0.164916E-01_JPRB, 0.163273E-01_JPRB, 0.161647E-01_JPRB, 0.160037E-01_JPRB, &
+ & 0.158443E-01_JPRB, 0.156864E-01_JPRB, 0.155302E-01_JPRB, 0.153755E-01_JPRB, 0.152224E-01_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.597379E-01_JPRB, 0.509517E-01_JPRB, 0.434579E-01_JPRB, 0.370662E-01_JPRB, 0.316145E-01_JPRB, &
+ & 0.269647E-01_JPRB, 0.229988E-01_JPRB, 0.196162E-01_JPRB, 0.167311E-01_JPRB, 0.142703E-01_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.227517E+00_JPRB, 0.198401E+00_JPRB, 0.173011E+00_JPRB, 0.150870E+00_JPRB, 0.131563E+00_JPRB, &
+ & 0.114726E+00_JPRB, 0.100044E+00_JPRB, 0.872415E-01_JPRB, 0.760769E-01_JPRB, 0.663411E-01_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.453235E+00_JPRB, 0.414848E+00_JPRB, 0.379712E+00_JPRB, 0.347552E+00_JPRB, 0.318116E+00_JPRB, &
+ & 0.291173E+00_JPRB, 0.266512E+00_JPRB, 0.243940E+00_JPRB, 0.223279E+00_JPRB, 0.204368E+00_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.569263E+00_JPRB, 0.516415E+00_JPRB, 0.468473E+00_JPRB, 0.424982E+00_JPRB, 0.385528E+00_JPRB, &
+ & 0.349737E+00_JPRB, 0.317269E+00_JPRB, 0.287815E+00_JPRB, 0.261095E+00_JPRB, 0.236856E+00_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.490314E+00_JPRB, 0.448042E+00_JPRB, 0.409413E+00_JPRB, 0.374116E+00_JPRB, 0.341861E+00_JPRB, &
+ & 0.312387E+00_JPRB, 0.285455E+00_JPRB, 0.260844E+00_JPRB, 0.238355E+00_JPRB, 0.217805E+00_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.258162E+00_JPRB, 0.265085E+00_JPRB, 0.272193E+00_JPRB, 0.279493E+00_JPRB, 0.286988E+00_JPRB, &
+ & 0.294684E+00_JPRB, 0.302586E+00_JPRB, 0.310701E+00_JPRB, 0.319033E+00_JPRB, 0.327588E+00_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.332019E+00_JPRB, 0.331902E+00_JPRB, 0.331784E+00_JPRB, 0.331666E+00_JPRB, 0.331549E+00_JPRB, &
+ & 0.331431E+00_JPRB, 0.331314E+00_JPRB, 0.331197E+00_JPRB, 0.331079E+00_JPRB, 0.330962E+00_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.357523E+00_JPRB, 0.353154E+00_JPRB, 0.348839E+00_JPRB, 0.344576E+00_JPRB, 0.340366E+00_JPRB, &
+ & 0.336207E+00_JPRB, 0.332099E+00_JPRB, 0.328041E+00_JPRB, 0.324032E+00_JPRB, 0.320073E+00_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.294662E+00_JPRB, 0.299043E+00_JPRB, 0.303488E+00_JPRB, 0.308000E+00_JPRB, 0.312579E+00_JPRB, &
+ & 0.317226E+00_JPRB, 0.321941E+00_JPRB, 0.326727E+00_JPRB, 0.331585E+00_JPRB, 0.336514E+00_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.227445E+00_JPRB, 0.241545E+00_JPRB, 0.256519E+00_JPRB, 0.272422E+00_JPRB, 0.289311E+00_JPRB, &
+ & 0.307247E+00_JPRB, 0.326294E+00_JPRB, 0.346523E+00_JPRB, 0.368005E+00_JPRB, 0.390820E+00_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.616203E-02_JPRB, 0.113523E-01_JPRB, 0.209144E-01_JPRB, 0.385307E-01_JPRB, 0.709852E-01_JPRB, &
+ & 0.130776E+00_JPRB, 0.240929E+00_JPRB, 0.443865E+00_JPRB, 0.817733E+00_JPRB, 0.150651E+01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.279552E-03_JPRB, 0.808472E-03_JPRB, 0.233812E-02_JPRB, 0.676192E-02_JPRB, 0.195557E-01_JPRB, &
+ & 0.565555E-01_JPRB, 0.163560E+00_JPRB, 0.473020E+00_JPRB, 0.136799E+01_JPRB, 0.395626E+01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.261006E-03_JPRB, 0.771043E-03_JPRB, 0.227776E-02_JPRB, 0.672879E-02_JPRB, 0.198777E-01_JPRB, &
+ & 0.587212E-01_JPRB, 0.173470E+00_JPRB, 0.512452E+00_JPRB, 0.151385E+01_JPRB, 0.447209E+01_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB29',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB29
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb29.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb29.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb29.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB29
+END SUBROUTINE SRTM_KGB29
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_reftra.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_reftra.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_reftra.F90	(revision 3330)
@@ -0,0 +1,264 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_REFTRA &
+ & ( KLEV  , KMODTS, &
+ &   LDRTCHK, &
+ &   PGG   , PRMUZ, PTAU , PW, &
+ &   PREF  , PREFD, PTRA , PTRAD &
+ & )  
+  
+!**** *SRTM_REFTRA* - REFLECTIVITY AND TRANSMISSIVITY
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLEAR OR 
+!     CLOUDY LAYER USING A CHOICE OF VARIOUS APPROXIMATIONS.
+
+!**   INTERFACE.
+!     ----------
+!          *SRTM_REFTRA* IS CALLED BY *SRTM_SPCVRT*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! INPUTS
+! ------ 
+!      KMODTS  = 1 EDDINGTON (JOSEPH ET AL., 1976)
+!              = 2 PIFM (ZDUNKOWSKI ET AL., 1980)
+!              = 3 DISCRETE ORDINATES (LIOU, 1973)
+!      LDRTCHK = .T. IF CLOUDY
+!              = .F. IF CLEAR-SKY
+!      PGG     = ASSYMETRY FACTOR
+!      PRMUZ   = COSINE SOLAR ZENITH ANGLE
+!      PTAU    = OPTICAL THICKNESS
+!      PW      = SINGLE SCATTERING ALBEDO
+
+! OUTPUTS
+! -------
+!      PREF    : COLLIMATED BEAM REFLECTIVITY
+!      PREFD   : DIFFUSE BEAM REFLECTIVITY 
+!      PTRA    : COLLIMATED BEAM TRANSMISSIVITY
+!      PTRAD   : DIFFUSE BEAM TRANSMISSIVITY
+
+!     METHOD.
+!     -------
+!          STANDARD DELTA-EDDINGTON, P.I.F.M., OR D.O.M. LAYER CALCULATIONS.
+
+!     EXTERNALS.
+!     ----------
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-02-27
+!        M.Hamrud   01-Oct-2003      CY28 Cleaning
+!        Mike Iacono, AER, Mar 2004: bug fix 
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM , ONLY : JPLAY
+!USE YOESW   , ONLY : NDBUG
+USE YOERDU  , ONLY : REPLOG
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KMODTS 
+LOGICAL           ,INTENT(IN)    :: LDRTCHK(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGG(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMUZ 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PW(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PREF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PREFD(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PTRA(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PTRAD(JPLAY) 
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: JK
+
+REAL(KIND=JPRB) :: ZA, ZA1, ZA2
+REAL(KIND=JPRB) :: ZBETA, ZDEND, ZDENR, ZDENT
+REAL(KIND=JPRB) :: ZE1, ZE2, ZEM1, ZEM2, ZEMM, ZEP1, ZEP2
+REAL(KIND=JPRB) :: ZG, ZG3, ZGAMMA1, ZGAMMA2, ZGAMMA3, ZGAMMA4, ZGT
+REAL(KIND=JPRB) :: ZR1, ZR2, ZR3, ZR4, ZR5, ZRK, ZRK2, ZRKG, ZRM1, ZRP, ZRP1, ZRPP
+REAL(KIND=JPRB) :: ZSR3, ZT1, ZT2, ZT3, ZT4, ZT5, ZTO1
+REAL(KIND=JPRB) :: ZW, ZWCRIT, ZWO
+REAL(KIND=JPRB) :: ZHOOK_HANDLE,EXP500,ZTEMP
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SRTM_REFTRA',0,ZHOOK_HANDLE)
+EXP500=EXP(500.0_JPRB)
+ZSR3=SQRT(3._JPRB)
+ZWCRIT=0.9995_JPRB
+KMODTS=2
+
+!NDBUG=3
+
+DO JK=1,KLEV
+!  if (NDBUG < 2) then
+!    print 9000,JK,LRTCHK(JK),PTAU(JK),PW(JK),PGG(JK),PRMUZ
+  9000 format(1x,'SRTM_REFTRA:inputs:',I3,L8,4E13.6)
+!  end if
+  IF (.NOT.LDRTCHK(JK)) THEN
+    PREF(JK) =0.0_JPRB
+    PTRA(JK) =1.0_JPRB
+    PREFD(JK)=0.0_JPRB
+    PTRAD(JK)=1.0_JPRB
+!    if (NDBUG < 2) then
+!      print 9001,JL,JK,PREF(JK),PTRA(JK),PREFD(JK),PTRAD(JK)
+    9001  format(1x,'SRTM_REFTRA:not.LRTCKH:',2I3,4F10.6)
+!    end if
+  ELSE
+    ZTO1=PTAU(JK)
+    ZW  =PW(JK)
+    ZG  =PGG(JK)  
+
+!-- GENERAL TWO-STREAM EXPRESSIONS
+
+    ZG3= 3._JPRB * ZG
+    IF (KMODTS == 1) THEN
+      ZGAMMA1= (7._JPRB - ZW * (4._JPRB + ZG3)) * 0.25_JPRB
+      ZGAMMA2=-(1._JPRB - ZW * (4._JPRB - ZG3)) * 0.25_JPRB
+      ZGAMMA3= (2._JPRB - ZG3 * PRMUZ ) * 0.25_JPRB
+    ELSEIF (KMODTS == 2) THEN  
+      ZGAMMA1= (8._JPRB - ZW * (5._JPRB + ZG3)) * 0.25_JPRB
+      ZGAMMA2=  3._JPRB *(ZW * (1._JPRB - ZG )) * 0.25_JPRB
+      ZGAMMA3= (2._JPRB - ZG3 * PRMUZ ) * 0.25_JPRB
+    ELSEIF (KMODTS == 3) THEN  
+      ZGAMMA1= ZSR3 * (2._JPRB - ZW * (1._JPRB + ZG)) * 0.5_JPRB
+      ZGAMMA2= ZSR3 * ZW * (1._JPRB - ZG ) * 0.5_JPRB
+      ZGAMMA3= (1._JPRB - ZSR3 * ZG * PRMUZ ) * 0.5_JPRB
+    ENDIF
+    ZGAMMA4= 1._JPRB - ZGAMMA3
+    
+!-- RECOMPUTE ORIGINAL S.S.A. TO TEST FOR CONSERVATIVE SOLUTION
+    ZWO= ZW / (1._JPRB - (1._JPRB - ZW) * (ZG / (1._JPRB - ZG))**2)
+!   ZTEMP=(1._JPRB - ZG)**2
+!   ZWO= ZW*ZTEMP/ (ZTEMP - (1._JPRB - ZW)*(ZG **2))
+    
+    IF (ZWO >= ZWCRIT) THEN
+!!-- conservative scattering
+
+      ZA  = ZGAMMA1 * PRMUZ 
+      ZA1 = ZA - ZGAMMA3
+      ZGT = ZGAMMA1 * ZTO1
+        
+!-- Homogeneous reflectance and transmittance
+
+! collimated beam
+
+      ZE1 = MIN ( ZTO1 / PRMUZ , 500._JPRB)
+      ZE2 = EXP ( - ZE1 )
+      ZTEMP=1.0_JPRB/(1._JPRB + ZGT)
+      PREF(JK) = (ZGT - ZA1 * (1._JPRB - ZE2)) *ZTEMP
+      PTRA(JK) = 1._JPRB - PREF(JK)
+
+! isotropic incidence
+
+      PREFD(JK) = ZGT *ZTEMP
+      PTRAD(JK) = 1._JPRB - PREFD(JK)        
+
+!      if (NDBUG < 2) then
+!        print 9002,JL,JK,PREF(JK),PTRA(JK),PREFD(JK),PTRAD(JK)
+      9002  format(1x,'SRTM_REFTRA: consrv: LDRTCHK:',2I3,4F10.6)
+!      end if
+
+    ELSE
+
+!-- non-conservative scattering
+
+      ZA1 = ZGAMMA1 * ZGAMMA4 + ZGAMMA2 * ZGAMMA3
+      ZA2 = ZGAMMA1 * ZGAMMA3 + ZGAMMA2 * ZGAMMA4
+!      ZRK = SQRT ( ZGAMMA1**2 - ZGAMMA2**2)
+      ZRK = SQRT ( MAX ( REPLOG, ZGAMMA1**2 - ZGAMMA2**2) )
+      ZRP = ZRK * PRMUZ               
+      ZRP1 = 1._JPRB + ZRP
+      ZRM1 = 1._JPRB - ZRP
+      ZRK2 = 2._JPRB * ZRK
+      ZRPP = 1._JPRB - ZRP*ZRP
+      ZRKG = ZRK + ZGAMMA1
+      ZR1  = ZRM1 * (ZA2 + ZRK * ZGAMMA3)
+      ZR2  = ZRP1 * (ZA2 - ZRK * ZGAMMA3)
+      ZR3  = ZRK2 * (ZGAMMA3 - ZA2 * PRMUZ )
+      ZR4  = ZRPP * ZRKG
+      ZR5  = ZRPP * (ZRK - ZGAMMA1)
+      ZT1  = ZRP1 * (ZA1 + ZRK * ZGAMMA4)
+      ZT2  = ZRM1 * (ZA1 - ZRK * ZGAMMA4)
+      ZT3  = ZRK2 * (ZGAMMA4 + ZA1 * PRMUZ )
+      ZT4  = ZR4
+      ZT5  = ZR5
+      ZBETA = - ZR5 / ZR4
+        
+!-- Homogeneous reflectance and transmittance
+
+      IF(ZRK * ZTO1 > 500._JPRB)THEN
+        ZEP1=EXP500
+      ELSE
+        ZEP1=EXP(ZRK * ZTO1)
+      ENDIF
+      ZEM1=1.0_JPRB/ZEP1
+      IF(ZTO1 > 500._JPRB*PRMUZ)THEN
+        ZEP2=EXP500
+      ELSE
+        ZEP2=EXP(ZTO1 / PRMUZ)
+      ENDIF
+      ZEM2=1.0_JPRB/ZEP2
+
+!     ZE1 = MIN ( ZRK * ZTO1, 500._JPRB)
+!     ZE2 = MIN ( ZTO1 / PRMUZ , 500._JPRB)
+
+!     ZEP1 = EXP( ZE1 )
+!      ZEM1 = EXP(-ZE1 )
+!     ZEM1=1.0_JPRB/ZEP1
+
+!     ZEP2 = EXP( ZE2 )
+!      ZEM2 = EXP(-ZE2 )
+!     ZEM2=1.0_JPRB/ZEP2
+
+! collimated beam
+
+      ZDENR = ZR4*ZEP1 + ZR5*ZEM1
+!- bug noticed by Mike Iacono
+!      PREF(JK) = ZWO * (ZR1*ZEP1 - ZR2*ZEM1 - ZR3*ZEM2) / ZDENR
+      PREF(JK) = ZW  * (ZR1*ZEP1 - ZR2*ZEM1 - ZR3*ZEM2) / ZDENR
+
+      ZDENT = ZT4*ZEP1 + ZT5*ZEM1
+!- bug noticed by Mike Iacono
+!      PTRA(JK) = ZEM2 * (1._JPRB - ZWO * (ZT1*ZEP1 - ZT2*ZEM1 - ZT3*ZEP2) / ZDENT)
+      PTRA(JK) = ZEM2 * (1._JPRB - ZW  * (ZT1*ZEP1 - ZT2*ZEM1 - ZT3*ZEP2) / ZDENT)
+
+! diffuse beam
+
+      ZEMM = ZEM1*ZEM1
+      ZDEND = 1._JPRB / ( (1._JPRB - ZBETA*ZEMM ) * ZRKG)
+      PREFD(JK) =  ZGAMMA2 * (1._JPRB - ZEMM) * ZDEND
+      PTRAD(JK) =  ZRK2*ZEM1*ZDEND
+
+!      if (NDBUG < 2) then        
+!        print 9003,JL,JK,PREF(JK),PTRA(JK),PREFD(JK),PTRAD(JK)
+      9003  format(1x,'SRTM_REFTRA: OMG<1:  LDRTCHK:',2I3,4F10.6)
+!      end if
+    ENDIF
+
+  ENDIF         
+
+ENDDO    
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_REFTRA',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_REFTRA     
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_reftra.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_reftra.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_reftra.intfb.h	(revision 3330)
@@ -0,0 +1,22 @@
+INTERFACE
+SUBROUTINE SRTM_REFTRA&
+ & ( KLEV , KMODTS,&
+ & LDRTCHK,&
+ & PGG , PRMUZ, PTAU , PW,&
+ & PREF , PREFD, PTRA , PTRAD&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMODTS
+LOGICAL ,INTENT(IN) :: LDRTCHK(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGG(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMUZ
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PW(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PREF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PREFD(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PTRA(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PTRAD(JPLAY)
+END SUBROUTINE SRTM_REFTRA
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_setcoef.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_setcoef.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_setcoef.F90	(revision 3330)
@@ -0,0 +1,256 @@
+SUBROUTINE SRTM_SETCOEF &
+ & ( KLEV    , KNMOL ,&
+ &   PAVEL   , PTAVEL   , PZ      , PTZ     , PTBOUND  ,&
+ &   PCOLDRY , PWKL     ,&
+ &   KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ &   PCO2MULT, PCOLCH4  , PCOLCO2 , PCOLH2O , PCOLMOL  , PCOLN2O  , PCOLO2 , PCOLO3 ,&
+ &   PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ &   PFAC00  , PFAC01   , PFAC10  , PFAC11  ,&
+ &   KJP     , KJT      , KJT1    &
+ & )  
+
+!     J. Delamere, AER, Inc. (version 2.5, 02/04/01)
+
+!     Modifications:
+!     JJMorcrette 030224   rewritten / adapted to ECMWF F90 system
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     Purpose:  For a given atmosphere, calculate the indices and
+!     fractions related to the pressure and temperature interpolations.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM , ONLY : JPLAY
+USE YOESRTWN, ONLY :  PREFLOG, TREF
+!!  USE YOESWN  , ONLY : NDBUG
+                   
+IMPLICIT NONE
+
+!-- Input arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM)               :: KNMOL ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVEL(JPLAY) 
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTBOUND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCOLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWKL(35,JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KLAYTROP 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KLAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KLAYLOW 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCO2MULT(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KINDFOR(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KINDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KJP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KJT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KJT1(JPLAY) 
+!-- Output arguments
+
+!-- local integers
+
+INTEGER(KIND=JPIM) :: I_NLAYERS, INDBOUND, INDLEV0, JK
+INTEGER(KIND=JPIM) :: JP1
+
+!-- local reals
+
+REAL(KIND=JPRB) :: Z_STPFAC, Z_TBNDFRAC, Z_T0FRAC, Z_PLOG, Z_FP, Z_FT, Z_FT1, Z_WATER, Z_SCALEFAC
+REAL(KIND=JPRB) :: Z_FACTOR, Z_CO2REG, Z_COMPFP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+
+
+IF (LHOOK) CALL DR_HOOK('SRTM_SETCOEF',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+Z_STPFAC = 296._JPRB/1013._JPRB
+
+INDBOUND = PTBOUND - 159._JPRB
+Z_TBNDFRAC = PTBOUND - INT(PTBOUND)
+INDLEV0  = PTZ(0) - 159._JPRB
+Z_T0FRAC   = PTZ(0) - INT(PTZ(0))
+
+KLAYTROP  = 0
+KLAYSWTCH = 0
+KLAYLOW   = 0
+
+!IF (NDBUG.LE.3) THEN
+!  print *,'-------- Computed in SETCOEF --------'
+!  print 8990
+8990 format(18x,'  T     PFAC00,    01,    10,    11  PCO2MULT     MOL   &
+ & CH4      CO2      H2O      N2O      O2      O3      SFAC  &
+ & SFRAC    FFAC    FFRAC  ISLF IFOR')  
+!END IF
+
+DO JK = 1, I_NLAYERS
+!        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.
+
+  Z_PLOG = LOG(PAVEL(JK))
+  KJP(JK) = INT(36. - 5*(Z_PLOG+0.04))
+  IF (KJP(JK) < 1) THEN
+    KJP(JK) = 1
+  ELSEIF (KJP(JK) > 58) THEN
+    KJP(JK) = 58
+  ENDIF
+  JP1 = KJP(JK) + 1
+  Z_FP = 5. * (PREFLOG(KJP(JK)) - Z_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.
+
+  KJT(JK) = INT(3. + (PTAVEL(JK)-TREF(KJP(JK)))/15.)
+  IF (KJT(JK) < 1) THEN
+    KJT(JK) = 1
+  ELSEIF (KJT(JK) > 4) THEN
+    KJT(JK) = 4
+  ENDIF
+  Z_FT = ((PTAVEL(JK)-TREF(KJP(JK)))/15.) - REAL(KJT(JK)-3)
+  KJT1(JK) = INT(3. + (PTAVEL(JK)-TREF(JP1))/15.)
+  IF (KJT1(JK) < 1) THEN
+    KJT1(JK) = 1
+  ELSEIF (KJT1(JK) > 4) THEN
+    KJT1(JK) = 4
+  ENDIF
+  Z_FT1 = ((PTAVEL(JK)-TREF(JP1))/15.) - REAL(KJT1(JK)-3)
+
+  Z_WATER = PWKL(1,JK)/PCOLDRY(JK)
+  Z_SCALEFAC = PAVEL(JK) * Z_STPFAC / PTAVEL(JK)
+
+!        If the pressure is less than ~100mb, perform a different
+!        set of species interpolations.
+
+  IF (Z_PLOG <= 4.56) GO TO 5300
+  KLAYTROP =  KLAYTROP + 1
+  IF (Z_PLOG >= 6.62) KLAYLOW = KLAYLOW + 1
+
+!        Set up factors needed to separately include the water vapor
+!        foreign-continuum in the calculation of absorption coefficient.
+
+  PFORFAC(JK) = Z_SCALEFAC / (1.+Z_WATER)
+  Z_FACTOR = (332.0-PTAVEL(JK))/36.0
+  KINDFOR(JK) = MIN(2, MAX(1, INT(Z_FACTOR)))
+  PFORFRAC(JK) = Z_FACTOR - REAL(KINDFOR(JK))
+
+!        Set up factors needed to separately include the water vapor
+!        self-continuum in the calculation of absorption coefficient.
+
+  PSELFFAC(JK) = Z_WATER * PFORFAC(JK)
+  Z_FACTOR = (PTAVEL(JK)-188.0)/7.2
+  KINDSELF(JK) = MIN(9, MAX(1, INT(Z_FACTOR)-7))
+  PSELFFRAC(JK) = Z_FACTOR - REAL(KINDSELF(JK) + 7)
+
+!        Calculate needed column amounts.
+
+  PCOLH2O(JK) = 1.E-20 * PWKL(1,JK)
+  PCOLCO2(JK) = 1.E-20 * PWKL(2,JK)
+  PCOLO3(JK) = 1.E-20 * PWKL(3,JK)
+!         COLO3(LAY) = 0.
+!         COLO3(LAY) = colo3(lay)/1.16
+  PCOLN2O(JK) = 1.E-20 * PWKL(4,JK)
+  PCOLCH4(JK) = 1.E-20 * PWKL(6,JK)
+  PCOLO2(JK) = 1.E-20 * PWKL(7,JK)
+  PCOLMOL(JK) = 1.E-20 * PCOLDRY(JK) + PCOLH2O(JK)
+!         colco2(lay) = 0.
+!         colo3(lay) = 0.
+!         coln2o(lay) = 0.
+!         colch4(lay) = 0.
+!         colo2(lay) = 0.
+!         colmol(lay) = 0.
+  IF (PCOLCO2(JK) == 0.) PCOLCO2(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLN2O(JK) == 0.) PCOLN2O(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLCH4(JK) == 0.) PCOLCH4(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLO2(JK) == 0.) PCOLO2(JK) = 1.E-32 * PCOLDRY(JK)
+!        Using E = 1334.2 cm-1.
+  Z_CO2REG = 3.55E-24 * PCOLDRY(JK)
+  PCO2MULT(JK)= (PCOLCO2(JK) - Z_CO2REG) * &
+   & 272.63*EXP(-1919.4/PTAVEL(JK))/(8.7604E-4*PTAVEL(JK))  
+  GO TO 5400
+
+!        Above LAYTROP.
+  5300    CONTINUE
+
+!        Set up factors needed to separately include the water vapor
+!        foreign-continuum in the calculation of absorption coefficient.
+
+  PFORFAC(JK) = Z_SCALEFAC / (1.+Z_WATER)
+  Z_FACTOR = (PTAVEL(JK)-188.0)/36.0
+  KINDFOR(JK) = 3
+  PFORFRAC(JK) = Z_FACTOR - 1.0
+
+!        Calculate needed column amounts.
+
+  PCOLH2O(JK) = 1.E-20 * PWKL(1,JK)
+  PCOLCO2(JK) = 1.E-20 * PWKL(2,JK)
+  PCOLO3(JK)  = 1.E-20 * PWKL(3,JK)
+  PCOLN2O(JK) = 1.E-20 * PWKL(4,JK)
+  PCOLCH4(JK) = 1.E-20 * PWKL(6,JK)
+  PCOLO2(JK)  = 1.E-20 * PWKL(7,JK)
+  PCOLMOL(JK) = 1.E-20 * PCOLDRY(JK) + PCOLH2O(JK)
+  IF (PCOLCO2(JK) == 0.) PCOLCO2(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLN2O(JK) == 0.) PCOLN2O(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLCH4(JK) == 0.) PCOLCH4(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLO2(JK) == 0.) PCOLO2(JK)  = 1.E-32 * PCOLDRY(JK)
+  Z_CO2REG = 3.55E-24 * PCOLDRY(JK)
+  PCO2MULT(JK)= (PCOLCO2(JK) - Z_CO2REG) * &
+   & 272.63*EXP(-1919.4/PTAVEL(JK))/(8.7604E-4*PTAVEL(JK))  
+
+  PSELFFAC(JK) =0.0_JPRB
+  PSELFFRAC(JK)=0.0_JPRB
+  KINDSELF(JK) = 0
+
+  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).
+
+  Z_COMPFP = 1. - Z_FP
+  PFAC10(JK) = Z_COMPFP * Z_FT
+  PFAC00(JK) = Z_COMPFP * (1. - Z_FT)
+  PFAC11(JK) = Z_FP * Z_FT1
+  PFAC01(JK) = Z_FP * (1. - Z_FT1)
+
+!  IF (NDBUG.LE.3) THEN
+!    print 9000,LAY,LAYTROP,JP(LAY),JT(LAY),JT1(LAY),TAVEL(LAY) &
+!      &,FAC00(LAY),FAC01(LAY),FAC10(LAY),FAC11(LAY) &
+!      &,CO2MULT(LAY),COLMOL(LAY),COLCH4(LAY),COLCO2(LAY),COLH2O(LAY) &
+!      &,COLN2O(LAY),COLO2(LAY),COLO3(LAY),SELFFAC(LAY),SELFFRAC(LAY) &
+!      &,FORFAC(LAY),FORFRAC(LAY),INDSELF(LAY),INDFOR(LAY)
+  9000 format(1x,2I3,3I4,F6.1,4F7.2,12E9.2,2I5)
+!  END IF
+
+ENDDO
+
+!----------------------------------------------------------------------- 
+IF (LHOOK) CALL DR_HOOK('SRTM_SETCOEF',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SETCOEF
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_setcoef.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_setcoef.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_setcoef.intfb.h	(revision 3330)
@@ -0,0 +1,48 @@
+INTERFACE
+SUBROUTINE SRTM_SETCOEF&
+ & ( KLEV , KNMOL ,&
+ & PAVEL , PTAVEL , PZ , PTZ , PTBOUND ,&
+ & PCOLDRY , PWKL ,&
+ & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
+ & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
+ & KJP , KJT , KJT1&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM) :: KNMOL
+REAL(KIND=JPRB) ,INTENT(IN) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PCOLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWKL(35,JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYTROP
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYSWTCH
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYLOW
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCO2MULT(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KINDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KINDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KJP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KJT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KJT1(JPLAY)
+END SUBROUTINE SRTM_SETCOEF
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt.F90	(revision 3330)
@@ -0,0 +1,673 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_SPCVRT &
+ & ( KLEV    , KMOL    , KSW    , PONEMINUS, &
+ &   PAVEL   , PTAVEL   , PZ     , PTZ     , PTBOUND  , PALBD   , PALBP, &
+ &   PFRCL   , PTAUC   , PASYC  , POMGC  , PTAUA   , PASYA   , POMGA , PRMU0, &
+ &   PCOLDRY , PWKL, &
+ &   KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ &   PCO2MULT, PCOLCH4  , PCOLCO2 , PCOLH2O , PCOLMOL  , PCOLN2O  , PCOLO2 , PCOLO3 ,&
+ &   PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ &   PFAC00  , PFAC01   , PFAC10  , PFAC11 ,&
+ &   KJP     , KJT      , KJT1 ,&
+!-- output arrays 
+ &   PBBFD, PBBFU, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
+ &   PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU &
+ & )  
+
+!**** *SRTM_SPCVRT* - SPECTRAL LOOP TO COMPUTE THE SHORTWAVE RADIATION FLUXES.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE TWO-STREAM METHOD OF BARKER
+
+!**   INTERFACE.
+!     ----------
+
+!          *SRTM_SPCVRT* IS CALLED FROM *SRTM_SRTM_224GP*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWVRTQDR*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION
+!     AUTHOR.
+!     -------
+!        from Howard Barker
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-02-27
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPB1, JPB2, JPGPT
+
+USE YOESRTWN , ONLY : NGC
+USE YOERDI   , ONLY : REPCLC
+
+!USE YOERAD   , ONLY : NSW
+!USE YOERDU   , ONLY : RCDAY
+!USE YOESWN   , ONLY : NTBANDS, NBANDS, NGS, NUV, NVS, RWGT, NDBUG
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+INTEGER(KIND=JPIM)               :: KLEV ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KMOL ! Argument NOT used
+REAL(KIND=JPRB)                  :: PONEMINUS ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTBOUND ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(JPLAY)     ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUA(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYA(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGA(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)                  :: PRMU0 ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLDRY(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PWKL(35,JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYTROP ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KLAYSWTCH ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYLOW ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCO2MULT(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLCH4(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLCO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLH2O(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLMOL(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLN2O(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLO3(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDFOR(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDSELF(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC00(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC01(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC10(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC11(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJP(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT1(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFU(JPLAY+1) 
+REAL(KIND=JPRB)                  :: PUVFD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PUVFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSFD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNIFD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNIFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCU(JPLAY+1) 
+REAL(KIND=JPRB)                  :: PUVCD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PUVCU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSCD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSCU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNICD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNICU(JPLAY+1) ! Argument NOT used
+!     ------------------------------------------------------------------
+
+!              ------------
+
+LOGICAL :: LLRTCHK(JPLAY)
+
+REAL(KIND=JPRB) :: &
+ & ZCLEAR      , ZCLOUD       &
+ & , ZDBT(JPLAY+1) &
+ & , ZGCC(JPLAY)   , ZGCO(JPLAY)     &
+ & , ZOMCC(JPLAY)  , ZOMCO(JPLAY)    &
+ & , ZRDND(JPLAY+1), ZRDNDC(JPLAY+1)&
+ & , ZREF(JPLAY+1) , ZREFC(JPLAY+1) , ZREFO(JPLAY+1)  &
+ & , ZREFD(JPLAY+1), ZREFDC(JPLAY+1), ZREFDO(JPLAY+1) &
+ & , ZRUP(JPLAY+1) , ZRUPD(JPLAY+1) &
+ & , ZRUPC(JPLAY+1), ZRUPDC(JPLAY+1)&
+ & , ZTAUC(JPLAY)  , ZTAUO(JPLAY)    &
+ & , ZTDBT(JPLAY+1) &
+ & , ZTRA(JPLAY+1) , ZTRAC(JPLAY+1) , ZTRAO(JPLAY+1)  &
+ & , ZTRAD(JPLAY+1), ZTRADC(JPLAY+1), ZTRADO(JPLAY+1)   
+REAL(KIND=JPRB) :: &
+ & ZDBTC(JPLAY+1), ZTDBTC(JPLAY+1), ZINCFLX(JPGPT)  &
+ & ,  ZINCF14(14)   , ZINCTOT   
+  
+INTEGER(KIND=JPIM) :: IB1, IB2, IBM, IGT, IKL, IW, JB, JG, JK, I_KMODTS
+
+REAL(KIND=JPRB) :: ZDBTMC, ZDBTMO, ZF, ZINCFLUX, ZWF
+
+!-- Output of SRTM_TAUMOLn routines
+
+REAL(KIND=JPRB) :: ZTAUG(JPLAY,16), ZTAUR(JPLAY,16), ZSFLXZEN(16)
+
+!-- Output of SRTM_VRTQDR routine
+REAL(KIND=JPRB) :: &
+ & ZCD(JPLAY+1,JPGPT), ZCU(JPLAY+1,JPGPT) &
+ & ,  ZFD(JPLAY+1,JPGPT), ZFU(JPLAY+1,JPGPT)  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_taumol16.intfb.h"
+#include "srtm_taumol17.intfb.h"
+#include "srtm_taumol18.intfb.h"
+#include "srtm_taumol19.intfb.h"
+#include "srtm_taumol20.intfb.h"
+#include "srtm_taumol21.intfb.h"
+#include "srtm_taumol22.intfb.h"
+#include "srtm_taumol23.intfb.h"
+#include "srtm_taumol24.intfb.h"
+#include "srtm_taumol25.intfb.h"
+#include "srtm_taumol26.intfb.h"
+#include "srtm_taumol27.intfb.h"
+#include "srtm_taumol28.intfb.h"
+#include "srtm_taumol29.intfb.h"
+#include "srtm_reftra.intfb.h"
+#include "srtm_vrtqdr.intfb.h"
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT',0,ZHOOK_HANDLE)
+
+!-- Two-stream model 1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates
+! KMODTS is set in SWREFTRA
+!NDBUG=4
+
+IB1=JPB1
+IB2=JPB2
+!print *,'IB1, IB2, KSW, KMOL, KLEV: ', IB1,IB2,KSW,KMOL,KLEV
+
+IW=0
+ZINCFLUX=0.0_JPRB
+ZINCTOT=0.0_JPRB
+
+JB=IB1-1
+DO JB = IB1, IB2
+  IBM = JB-15
+  IGT = NGC(IBM)
+  ZINCF14(IBM)=0.0_JPRB
+
+!  print *,'=== spectral band === JB= ',JB,' ====== i.e. IBM= ',IBM,' with IGT= ',IGT
+        
+!-- for each band, computes the gaseous and Rayleigh optical thickness 
+!  for all g-points within the band
+
+  IF (JB == 16) THEN
+    CALL SRTM_TAUMOL16 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01   , PFAC10   , PFAC11   ,&
+     &   KJP     , KJT      , KJT1     , PONEMINUS,&
+     &   PCOLH2O , PCOLCH4  , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC , PSELFFRAC, KINDSELF, PFORFAC  , PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG    , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL16'
+
+  ELSEIF (JB == 17) THEN
+    CALL SRTM_TAUMOL17 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL17'
+
+  ELSEIF (JB == 18) THEN
+    CALL SRTM_TAUMOL18 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL18'
+
+  ELSEIF (JB == 19) THEN
+    CALL SRTM_TAUMOL19 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL19'
+
+  ELSEIF (JB == 20) THEN
+    CALL SRTM_TAUMOL20 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL20'
+
+  ELSEIF (JB == 21) THEN
+    CALL SRTM_TAUMOL21 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL21'
+
+  ELSEIF (JB == 22) THEN
+    CALL SRTM_TAUMOL22 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL22'
+
+  ELSEIF (JB == 23) THEN
+    CALL SRTM_TAUMOL23 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL23'
+
+  ELSEIF (JB == 24) THEN
+    CALL SRTM_TAUMOL24 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   , PCOLO3 ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL24'
+
+  ELSEIF (JB == 25) THEN
+!--- visible 16000-22650 cm-1   0.4415 - 0.6250 um
+    CALL SRTM_TAUMOL25 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP      , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLH2O  , PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR   &
+     & )  
+!    print *,'After  SRTM_TAUMOL25'
+
+  ELSEIF (JB == 26) THEN
+!--- UV-A 22650-29000 cm-1   0.3448 - 0.4415 um
+    CALL SRTM_TAUMOL26 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL26'
+
+  ELSEIF (JB == 27) THEN
+!--- UV-B 29000-38000 cm-1   0.2632 - 0.3448 um
+    CALL SRTM_TAUMOL27 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL27'
+
+  ELSEIF (JB == 28) THEN
+!--- UV-C 38000-50000 cm-1   0.2000 - 0.2632 um
+    CALL SRTM_TAUMOL28 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP     , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLMOL , PCOLO2  , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR  &
+     & )  
+!    print *,'After  SRTM_TAUMOL28'
+
+  ELSEIF (JB == 29) THEN
+    CALL SRTM_TAUMOL29 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP      , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O  , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP , PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN , ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL29'
+
+  ENDIF
+
+!  IF (NDBUG.LE.3) THEN
+!    print *,'Incident Solar Flux'
+!    PRINT 9010,(ZSFLXZEN(JG),JG=1,16)
+  9010 format(1x,'SolFlx ',16F8.4)
+!    print *,'Optical thickness for molecular absorption for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9011,JK,(ZTAUG(JK,JG),JG=1,16)
+  9011  format(1x,'TauGas ',I3,16E9.2)
+!    ENDDO
+!    print *,'Optical thickness for Rayleigh scattering for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9012,JK,(ZTAUR(JK,JG),JG=1,16)
+  9012  format(1x,'TauRay ',I3,16E9.2)
+!    ENDDO
+!    print *,'Cloud optical properties for JB= ',JB
+!    DO JK=1,KLEV
+!      PRINT 9013,JK,PFRCL(JK),PTAUC(JK,IBM),POMGC(JK,IBM),PASYC(JK,IBM)
+  9013  format(1x,'Cloud optprop ',I3,f8.4,f8.3,2f8.5)
+!    ENDDO
+!  ENDIF
+
+  DO JG=1,IGT
+    IW=IW+1
+
+!    IF (NDBUG.LE.1) THEN
+!      print *,' === JG= ',JG,' === for JB= ',JB,' with IW, IBM, JPLAY, KLEV=',IW,IBM,JPLAY,KLEV
+!    ENDIF
+
+    ZINCFLX(IW) =ZSFLXZEN(JG)*PRMU0
+    ZINCFLUX    =ZINCFLUX+ZSFLXZEN(JG)*PRMU0           
+    ZINCTOT     =ZINCTOT+ZSFLXZEN(JG)
+    ZINCF14(IBM)=ZINCF14(IBM)+ZSFLXZEN(JG)
+
+!-- CALL to compute layer reflectances and transmittances for direct 
+!  and diffuse sources, first clear then cloudy.
+!   Use direct/parallel albedo for direct radiation and diffuse albedo
+!   otherwise.
+
+! ZREFC(JK)  direct albedo for clear
+! ZREFO(JK)  direct albedo for cloud
+! ZREFDC(JK) diffuse albedo for clear
+! ZREFDO(JK) diffuse albedo for cloud
+! ZTRAC(JK)  direct transmittance for clear
+! ZTRAO(JK)  direct transmittance for cloudy
+! ZTRADC(JK) diffuse transmittance for clear
+! ZTRADO(JK) diffuse transmittance for cloudy
+
+! ZREF(JK)   direct reflectance
+! ZREFD(JK)  diffuse reflectance
+! ZTRA(JK)   direct transmittance
+! ZTRAD(JK)  diffuse transmittance
+
+! ZDBTC(JK)  clear direct beam transmittance
+! ZDBTO(JK)  cloudy direct beam transmittance
+! ZDBT(JK)   layer mean direct beam transmittance
+! ZTDBT(JK)  total direct beam transmittance at levels
+
+!-- clear-sky    
+!----- TOA direct beam    
+    ZTDBTC(1)=1._JPRB
+!----- surface values
+    ZDBTC(KLEV+1) =0.0_JPRB
+    ZTRAC(KLEV+1) =0.0_JPRB
+    ZTRADC(KLEV+1)=0.0_JPRB
+    ZREFC(KLEV+1) =PALBP(IBM)
+    ZREFDC(KLEV+1)=PALBD(IBM)
+    ZRUPC(KLEV+1) =PALBP(IBM)
+    ZRUPDC(KLEV+1)=PALBD(IBM)
+           
+!-- total sky    
+!----- TOA direct beam    
+    ZTDBT(1)=1._JPRB
+!----- surface values
+    ZDBT(KLEV+1) =0.0_JPRB
+    ZTRA(KLEV+1) =0.0_JPRB
+    ZTRAD(KLEV+1)=0.0_JPRB
+    ZREF(KLEV+1) =PALBP(IBM)
+    ZREFD(KLEV+1)=PALBD(IBM)
+    ZRUP(KLEV+1) =PALBP(IBM)
+    ZRUPD(KLEV+1)=PALBD(IBM)
+!    if (NDBUG < 2) print *,'SWSPCTRL after 1 with JB,JG,IBM and IW= ',JB,JG,IBM,IW
+    
+    DO JK=1,KLEV
+
+!-- NB: a two-stream calculations from top to bottom, but RRTM_SW quantities 
+!       are given bottom to top (argh!)
+!       Inputs for clouds and aerosols are bottom to top as inputs
+
+      IKL=KLEV+1-JK
+
+!-- clear-sky optical parameters      
+      LLRTCHK(JK)=.TRUE.
+
+!      print 9000,JK,JG,IKL,ZTAUR(IKL,JG),ZTAUG(IKL,JG),PTAUC(IKL,IBM)
+      9000  format(1x,'Cloud quantities ',3I4,3E12.5)
+
+!-- original
+!      ZTAUC(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)
+!      ZOMCC(JK)=ZTAUR(IKL,JG)/ZTAUC(JK)
+!      ZGCC (JK)=0.0001_JPRB
+
+!-- total sky optical parameters        
+!      ZTAUO(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)+PTAUC(IKL,IBM)
+!      ZOMCO(JK)=PTAUC(IKL,IBM)*POMGC(IKL,IBM)+ZTAUR(IKL,JG)
+!      ZGCO (JK)=(PTAUC(IKL,IBM)*POMGC(IKL,IBM)*PASYC(IKL,IBM) &
+!        & +ZTAUR(IKL,JG)*0.0001_JPRB)/ZOMCO(JK)
+!      ZOMCO(JK)=ZOMCO(JK)/ZTAUO(JK)
+
+!-- clear-sky optical parameters including aerosols
+      ZTAUC(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM)
+      ZOMCC(JK) = ZTAUR(IKL,JG)*1.0_JPRB + PTAUA(IKL,IBM)*POMGA(IKL,IBM)
+      ZGCC (JK) = PASYA(IKL,IBM)*POMGA(IKL,IBM)*PTAUA(IKL,IBM) / ZOMCC(JK)
+      ZOMCC(JK) = ZOMCC(JK) / ZTAUC(JK)
+
+!-- total sky optical parameters        
+      ZTAUO(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM) + PTAUC(IKL,IBM)
+      ZOMCO(JK) = PTAUA(IKL,IBM)*POMGA(IKL,IBM) + PTAUC(IKL,IBM)*POMGC(IKL,IBM) &
+       & + ZTAUR(IKL,JG)*1.0_JPRB  
+      ZGCO (JK) = (PTAUC(IKL,IBM)*POMGC(IKL,IBM)*PASYC(IKL,IBM)  &
+       & +  PTAUA(IKL,IBM)*POMGA(IKL,IBM)*PASYA(IKL,IBM)) &
+       & /  ZOMCO(JK)  
+      ZOMCO(JK) = ZOMCO(JK) / ZTAUO(JK)
+
+!      if (NDBUG <2) THEN
+!        print 9001,JK,JG,LRTCHK(JK),0.00,ZTAUC(JK),ZOMCC(JK),ZGCC(JK),ZTAUR(IKL,JG),ZTAUG(IKL,JG)
+      9001    format(1x,'clear :',2I3,L4,7(1x,E13.6))
+!        print 9002,JK,JG,LRTCHK(JK),PFRCL(IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IBM),POMGC(IKL,IBM),PASYC(IKL,IBM)
+      9002    format(1x,'total0:',2I3,L4,7(1x,E13.6))
+!      end if
+    ENDDO    
+!    if (NDBUG < 2) print *,'SWSPCTRL after 2'
+
+!-- Delta scaling for clear-sky / aerosol optical quantities
+    DO  JK=1,KLEV
+      ZF=ZGCC(JK)*ZGCC(JK)
+      ZWF=ZOMCC(JK)*ZF
+      ZTAUC(JK)=(1._JPRB-ZWF)*ZTAUC(JK)
+      ZOMCC(JK)=(ZOMCC(JK)-ZWF)/(1.0_JPRB-ZWF)
+      ZGCC (JK)=(ZGCC(JK)-ZF)/(1.0_JPRB-ZF)
+    ENDDO
+   
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCC  , PRMU0, ZTAUC , ZOMCC ,&
+     &   ZREFC  , ZREFDC, ZTRAC, ZTRADC )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for clear-sky'
+    
+!-- Delta scaling for cloudy quantities
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+      LLRTCHK(JK)=.FALSE.
+      ZF=ZGCO(JK)*ZGCO(JK)
+      ZWF=ZOMCO(JK)*ZF
+      ZTAUO(JK)=(1._JPRB-ZWF)*ZTAUO(JK)
+      ZOMCO(JK)=(ZOMCO(JK)-ZWF)/(1._JPRB-ZWF)
+      ZGCO (JK)=(ZGCO(JK)-ZF)/(1._JPRB-ZF)
+      LLRTCHK(JK)=(PFRCL(IKL) > REPCLC)
+
+!      if (NDBUG < 2) THEN 
+!        print 9003,JK,LRTCHK(JK),PFRCL(IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IBM),POMGC(IKL,IBM),PASYC(IKL,IBM)
+      9003    format(1x,'totalD:',I3,L4,7(1x,E13.6))
+!      end if
+
+    ENDDO
+!    if (NDBUG < 2) print *,'SWSPCTR after Delta scaling'
+    
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCO  , PRMU0, ZTAUO , ZOMCO ,&
+     &   ZREFO , ZREFDO, ZTRAO, ZTRADO )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for cloudy'
+
+    DO JK=1,KLEV
+
+!-- combine clear and cloudy contributions for total sky
+
+      IKL=KLEV+1-JK 
+      ZCLEAR   = 1.0_JPRB - PFRCL(IKL)
+      ZCLOUD   = PFRCL(IKL)
+
+      ZREF(JK) = ZCLEAR*ZREFC(JK) + ZCLOUD*ZREFO(JK)
+      ZREFD(JK)= ZCLEAR*ZREFDC(JK)+ ZCLOUD*ZREFDO(JK)
+      ZTRA(JK) = ZCLEAR*ZTRAC(JK) + ZCLOUD*ZTRAO(JK)
+      ZTRAD(JK)= ZCLEAR*ZTRADC(JK)+ ZCLOUD*ZTRADO(JK)
+
+!-- direct beam transmittance        
+
+      ZDBTMC     = EXP(-ZTAUC(JK)/PRMU0)
+      ZDBTMO     = EXP(-ZTAUO(JK)/PRMU0)
+      ZDBT(JK)   = ZCLEAR*ZDBTMC+ZCLOUD*ZDBTMO
+      ZTDBT(JK+1)= ZDBT(JK)*ZTDBT(JK)
+        
+!-- clear-sky        
+      ZDBTC(JK)   =ZDBTMC
+      ZTDBTC(JK+1)=ZDBTC(JK)*ZTDBTC(JK)
+
+!      if (NDBUG < 2) print 9200,JK,ZREFC(JK),ZREFDC(JK),ZTRAC(JK),ZTRADC(JK),ZDBTC(JK),ZTDBTC(JK+1)
+!      if (NDBUG < 2) print 9199,JK,ZREF(JK),ZREFD(JK),ZTRA(JK),ZTRAD(JK),ZDBT(JK),ZTDBT(JK+1)
+      9199  format(1x,'Comb total:',I3,6E13.6)
+      9200  format(1x,'Comb clear:',I3,6E13.6)
+
+    ENDDO           
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT after combining clear and cloudy'
+                 
+!-- vertical quadrature producing clear-sky fluxes
+
+!    print *,'SRTM_SPCVRT after 3 before SRTM_VRTQDR clear'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREFC, ZREFDC, ZTRAC , ZTRADC ,&
+     &   ZDBTC, ZRDNDC, ZRUPC , ZRUPDC, ZTDBTC ,&
+     &   ZCD  , ZCU   )  
+      
+!    IF (NDBUG < 2) THEN
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for clear IW=',IW  
+!      DO JK=1,KLEV+1
+!        print 9201,JK,ZCD(JK,IW),ZCU(JK,IW)
+    9201    format(1x,'clear-sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- vertical quadrature producing cloudy fluxes
+
+!    print *,'SRTM_SPCVRT after 4 before SRTM_VRTQDR cloudy'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREF , ZREFD , ZTRA , ZTRAD ,&
+     &   ZDBT , ZRDND , ZRUP , ZRUPD , ZTDBT ,&
+     &   ZFD  , ZFU   )  
+ 
+!    IF (NDBUG < 2) THEN     
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for cloudy IW=',IW
+!      DO JK=1,KLEV+1
+!        print 9202,JK,ZFD(JK,IW),ZFU(JK,IW)
+    9202    format(1x,'cloudy sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- up and down-welling fluxes at levels
+    DO JK=1,KLEV+1
+!-- accumulation of spectral fluxes          
+      PBBFU(JK) = PBBFU(JK) + ZINCFLX(IW)*ZFU(JK,IW)
+      PBBFD(JK) = PBBFD(JK) + ZINCFLX(IW)*ZFD(JK,IW)
+      PBBCU(JK) = PBBCU(JK) + ZINCFLX(IW)*ZCU(JK,IW)
+      PBBCD(JK) = PBBCD(JK) + ZINCFLX(IW)*ZCD(JK,IW)
+
+! to get NIR, visible and UV quantities
+
+!      PBBFU(JK)=PBBFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!      PBBFD(JK)=PBBFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!      PBBCU(JK)=PBBCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      PBBCD(JK)=PBBCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!      IF (IW <= NUV) THEN
+!        PUVFD(JK)=PUVFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PUVFU(JK)=PUVFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PUVCD(JK)=PUVCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PUVCU(JK)=PUVCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW == NUV+1 .AND. IW <= NVS) THEN  
+!        PVSFD(JK)=PVSFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PVSFU(JK)=PVSFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PVSCD(JK)=PVSCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PVSCU(JK)=PVSCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW > NVS) THEN  
+!        PNIFD(JK)=PNIFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PNIFU(JK)=PNIFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PNICD(JK)=PNICD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PNICU(JK)=PNICU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ENDIF  
+!      if (NDBUG < 2) then
+!!      if (JG.EQ.IGT) THEN 
+!          print 9206,JB,JG,JK,IW,PBBCU(JK),PBBCD(JK),PBBFU(JK),PBBFD(JK)
+      9206      format(1x,'fluxes up to:',3I3,I4,6E13.6)       
+!      end if
+    ENDDO
+
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT end of JG=',JG,' for JB=',JB,' i.e. IW=',IW
+  ENDDO             
+!-- end loop on JG
+
+!  print *,' --- JB= ',JB,' with IB1, IB2= ',IB1,IB2
+ENDDO                    
+!-- end loop on JB
+!if (NDBUG < 2) print *,'SRTM_SPCVRT about to come out'
+
+!DO IBM=1,14
+!  print 9301,IBM,ZINCF14(IBM), ZINCTOT, ZINCF14(IBM)/ZINCTOT
+9301 format(1x,'Incident Spectral Flux: ',I3,2E15.8,F12.8)
+!ENDDO
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SPCVRT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt.intfb.h	(revision 3330)
@@ -0,0 +1,79 @@
+INTERFACE
+SUBROUTINE SRTM_SPCVRT&
+ & ( KLEV , KMOL , KSW , PONEMINUS,&
+ & PAVEL , PTAVEL , PZ , PTZ , PTBOUND , PALBD , PALBP,&
+ & PFRCL , PTAUC , PASYC , POMGC , PTAUA , PASYA , POMGA , PRMU0,&
+ & PCOLDRY , PWKL,&
+ & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
+ & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
+ & KJP , KJT , KJT1 ,&
+ & PBBFD, PBBFU, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
+ & PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPB1, JPB2, JPGPT
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM) :: KLEV
+INTEGER(KIND=JPIM) :: KMOL
+REAL(KIND=JPRB) :: PONEMINUS
+REAL(KIND=JPRB) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) :: PTAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGA(JPLAY,KSW)
+REAL(KIND=JPRB) :: PRMU0
+REAL(KIND=JPRB) :: PCOLDRY(JPLAY)
+REAL(KIND=JPRB) :: PWKL(35,JPLAY)
+INTEGER(KIND=JPIM) :: KLAYTROP
+INTEGER(KIND=JPIM) :: KLAYSWTCH
+INTEGER(KIND=JPIM) :: KLAYLOW
+REAL(KIND=JPRB) :: PCO2MULT(JPLAY)
+REAL(KIND=JPRB) :: PCOLCH4(JPLAY)
+REAL(KIND=JPRB) :: PCOLCO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLH2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLMOL(JPLAY)
+REAL(KIND=JPRB) :: PCOLN2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLO3(JPLAY)
+REAL(KIND=JPRB) :: PFORFAC(JPLAY)
+REAL(KIND=JPRB) :: PFORFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDFOR(JPLAY)
+REAL(KIND=JPRB) :: PSELFFAC(JPLAY)
+REAL(KIND=JPRB) :: PSELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDSELF(JPLAY)
+REAL(KIND=JPRB) :: PFAC00(JPLAY)
+REAL(KIND=JPRB) :: PFAC01(JPLAY)
+REAL(KIND=JPRB) :: PFAC10(JPLAY)
+REAL(KIND=JPRB) :: PFAC11(JPLAY)
+INTEGER(KIND=JPIM) :: KJP(JPLAY)
+INTEGER(KIND=JPIM) :: KJT(JPLAY)
+INTEGER(KIND=JPIM) :: KJT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFU(JPLAY+1)
+REAL(KIND=JPRB) :: PUVFD(JPLAY+1)
+REAL(KIND=JPRB) :: PUVFU(JPLAY+1)
+REAL(KIND=JPRB) :: PVSFD(JPLAY+1)
+REAL(KIND=JPRB) :: PVSFU(JPLAY+1)
+REAL(KIND=JPRB) :: PNIFD(JPLAY+1)
+REAL(KIND=JPRB) :: PNIFU(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCU(JPLAY+1)
+REAL(KIND=JPRB) :: PUVCD(JPLAY+1)
+REAL(KIND=JPRB) :: PUVCU(JPLAY+1)
+REAL(KIND=JPRB) :: PVSCD(JPLAY+1)
+REAL(KIND=JPRB) :: PVSCU(JPLAY+1)
+REAL(KIND=JPRB) :: PNICD(JPLAY+1)
+REAL(KIND=JPRB) :: PNICU(JPLAY+1)
+END SUBROUTINE SRTM_SPCVRT
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt_mcica.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt_mcica.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt_mcica.F90	(revision 3330)
@@ -0,0 +1,698 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_SPCVRT_MCICA &
+ & ( KLEV    , KMOL    , KSW    , KCOLS  , PONEMINUS, &
+ &   PAVEL   , PTAVEL  , PZ     , PTZ    , PTBOUND  , PALBD   , PALBP, &
+ &   PFRCL   , PTAUC   , PASYC  , POMGC  , PTAUA    , PASYA   , POMGA , PRMU0, &
+ &   PCOLDRY , PWKL, &
+ &   KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ &   PCO2MULT, PCOLCH4  , PCOLCO2 , PCOLH2O , PCOLMOL  , PCOLN2O  , PCOLO2 , PCOLO3 ,&
+ &   PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ &   PFAC00  , PFAC01   , PFAC10  , PFAC11 ,&
+ &   KJP     , KJT      , KJT1 ,&
+!-- output arrays 
+ &   PBBFD, PBBFU, PBBCD, PBBCU )
+
+! &   PBBFD, PBBFU, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
+! &   PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU &
+! & )  
+
+!**** *SRTM_SPCVRT* - SPECTRAL LOOP TO COMPUTE THE SHORTWAVE RADIATION FLUXES.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE TWO-STREAM METHOD OF BARKER
+
+!**   INTERFACE.
+!     ----------
+
+!          *SRTM_SPCVRT_MCICA* IS CALLED FROM *SRTM_SRTM_224GP*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWVRTQDR*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION
+!     AUTHOR.
+!     -------
+!        from Howard Barker
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-02-27
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        JJMorcrette   20050110 McICA version
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPB1, JPB2, JPGPT
+
+USE YOESRTWN , ONLY : NGC
+USE YOERDI   , ONLY : REPCLC
+
+!USE YOERAD   , ONLY : NSW
+!USE YOERDU   , ONLY : RCDAY
+!USE YOESWN   , ONLY : NTBANDS, NBANDS, NGS, NUV, NVS, RWGT, NDBUG
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCOLS
+ 
+INTEGER(KIND=JPIM)               :: KLEV ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KMOL ! Argument NOT used
+!INTEGER(KIND=JPIM)               :: KPT
+
+REAL(KIND=JPRB)                  :: PONEMINUS ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTBOUND ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(KCOLS,JPLAY)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(JPLAY,KCOLS)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(JPLAY,KCOLS)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(JPLAY,KCOLS)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUA(JPLAY,KSW)    ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYA(JPLAY,KSW)    ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGA(JPLAY,KSW)    ! bottom to top
+REAL(KIND=JPRB)                  :: PRMU0 ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLDRY(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PWKL(35,JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYTROP ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KLAYSWTCH ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYLOW ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCO2MULT(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLCH4(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLCO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLH2O(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLMOL(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLN2O(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLO3(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDFOR(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDSELF(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC00(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC01(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC10(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC11(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJP(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT1(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFU(JPLAY+1) 
+!REAL(KIND=JPRB)                  :: PUVFD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PUVFU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSFD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSFU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNIFD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNIFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCU(JPLAY+1) 
+!REAL(KIND=JPRB)                  :: PUVCD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PUVCU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSCD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSCU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNICD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNICU(JPLAY+1) ! Argument NOT used
+!     ------------------------------------------------------------------
+
+!              ------------
+
+LOGICAL :: LLRTCHK(JPLAY)
+
+REAL(KIND=JPRB) :: &
+ & ZCLEAR      , ZCLOUD       &
+ & , ZDBT(JPLAY+1) &
+ & , ZGCC(JPLAY)   , ZGCO(JPLAY)     &
+ & , ZOMCC(JPLAY)  , ZOMCO(JPLAY)    &
+ & , ZRDND(JPLAY+1), ZRDNDC(JPLAY+1)&
+ & , ZREF(JPLAY+1) , ZREFC(JPLAY+1) , ZREFO(JPLAY+1)  &
+ & , ZREFD(JPLAY+1), ZREFDC(JPLAY+1), ZREFDO(JPLAY+1) &
+ & , ZRUP(JPLAY+1) , ZRUPD(JPLAY+1) &
+ & , ZRUPC(JPLAY+1), ZRUPDC(JPLAY+1)&
+ & , ZTAUC(JPLAY)  , ZTAUO(JPLAY)    &
+ & , ZTDBT(JPLAY+1) &
+ & , ZTRA(JPLAY+1) , ZTRAC(JPLAY+1) , ZTRAO(JPLAY+1)  &
+ & , ZTRAD(JPLAY+1), ZTRADC(JPLAY+1), ZTRADO(JPLAY+1)   
+REAL(KIND=JPRB) :: &
+ & ZDBTC(JPLAY+1), ZTDBTC(JPLAY+1), ZINCFLX(JPGPT)  &
+ & ,  ZINCF14(14)   , ZINCTOT   
+  
+INTEGER(KIND=JPIM) :: IB1, IB2, IBM, IGT, IKL, IW, JB, JG, JK, I_KMODTS
+
+REAL(KIND=JPRB) :: ZARG1, ZARG2, ZDBTMC, ZDBTMO, ZF, ZINCFLUX, ZWF
+
+!-- Output of SRTM_TAUMOLn routines
+
+REAL(KIND=JPRB) :: ZTAUG(JPLAY,16), ZTAUR(JPLAY,16), ZSFLXZEN(16)
+
+!-- Output of SRTM_VRTQDR routine
+REAL(KIND=JPRB) :: &
+ & ZCD(JPLAY+1,JPGPT), ZCU(JPLAY+1,JPGPT) &
+ & ,  ZFD(JPLAY+1,JPGPT), ZFU(JPLAY+1,JPGPT)  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_taumol16.intfb.h"
+#include "srtm_taumol17.intfb.h"
+#include "srtm_taumol18.intfb.h"
+#include "srtm_taumol19.intfb.h"
+#include "srtm_taumol20.intfb.h"
+#include "srtm_taumol21.intfb.h"
+#include "srtm_taumol22.intfb.h"
+#include "srtm_taumol23.intfb.h"
+#include "srtm_taumol24.intfb.h"
+#include "srtm_taumol25.intfb.h"
+#include "srtm_taumol26.intfb.h"
+#include "srtm_taumol27.intfb.h"
+#include "srtm_taumol28.intfb.h"
+#include "srtm_taumol29.intfb.h"
+#include "srtm_reftra.intfb.h"
+#include "srtm_vrtqdr.intfb.h"
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',0,ZHOOK_HANDLE)
+
+!-- Two-stream model 1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates
+! KMODTS is set in SWREFTRA
+!NDBUG=4
+
+IB1=JPB1
+IB2=JPB2
+!print *,'IB1, IB2, KSW, KMOL, KLEV: ', IB1,IB2,KSW,KMOL,KLEV
+
+IW=0
+ZINCFLUX=0.0_JPRB
+ZINCTOT=0.0_JPRB
+
+JB=IB1-1
+DO JB = IB1, IB2
+  IBM = JB-15
+  IGT = NGC(IBM)
+  ZINCF14(IBM)=0.0_JPRB
+
+!  print *,'=== spectral band === JB= ',JB,' ====== i.e. IBM= ',IBM,' with IGT= ',IGT
+        
+!-- for each band, computes the gaseous and Rayleigh optical thickness 
+!  for all g-points within the band
+
+  IF (JB == 16) THEN
+    CALL SRTM_TAUMOL16 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01   , PFAC10   , PFAC11   ,&
+     &   KJP     , KJT      , KJT1     , PONEMINUS,&
+     &   PCOLH2O , PCOLCH4  , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC , PSELFFRAC, KINDSELF, PFORFAC  , PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG    , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL16'
+
+  ELSEIF (JB == 17) THEN
+    CALL SRTM_TAUMOL17 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL17'
+
+  ELSEIF (JB == 18) THEN
+    CALL SRTM_TAUMOL18 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL18'
+
+  ELSEIF (JB == 19) THEN
+    CALL SRTM_TAUMOL19 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL19'
+
+  ELSEIF (JB == 20) THEN
+    CALL SRTM_TAUMOL20 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL20'
+
+  ELSEIF (JB == 21) THEN
+    CALL SRTM_TAUMOL21 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL21'
+
+  ELSEIF (JB == 22) THEN
+    CALL SRTM_TAUMOL22 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL22'
+
+  ELSEIF (JB == 23) THEN
+    CALL SRTM_TAUMOL23 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL23'
+
+  ELSEIF (JB == 24) THEN
+    CALL SRTM_TAUMOL24 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   , PCOLO3 ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL24'
+
+  ELSEIF (JB == 25) THEN
+!--- visible 16000-22650 cm-1   0.4415 - 0.6250 um
+    CALL SRTM_TAUMOL25 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP      , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLH2O  , PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR   &
+     & )  
+!    print *,'After  SRTM_TAUMOL25'
+
+  ELSEIF (JB == 26) THEN
+!--- UV-A 22650-29000 cm-1   0.3448 - 0.4415 um
+    CALL SRTM_TAUMOL26 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL26'
+
+  ELSEIF (JB == 27) THEN
+!--- UV-B 29000-38000 cm-1   0.2632 - 0.3448 um
+    CALL SRTM_TAUMOL27 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL27'
+
+  ELSEIF (JB == 28) THEN
+!--- UV-C 38000-50000 cm-1   0.2000 - 0.2632 um
+    CALL SRTM_TAUMOL28 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP     , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLMOL , PCOLO2  , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR  &
+     & )  
+!    print *,'After  SRTM_TAUMOL28'
+
+  ELSEIF (JB == 29) THEN
+    CALL SRTM_TAUMOL29 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP      , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O  , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP , PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN , ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL29'
+
+  ENDIF
+
+!  IF (NDBUG.LE.3) THEN
+!    print *,'Incident Solar Flux'
+!    PRINT 9010,(ZSFLXZEN(JG),JG=1,16)
+  9010 format(1x,'SolFlx ',16F8.4)
+!    print *,'Optical thickness for molecular absorption for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9011,JK,(ZTAUG(JK,JG),JG=1,16)
+  9011  format(1x,'TauGas ',I3,16E9.2)
+!    ENDDO
+!    print *,'Optical thickness for Rayleigh scattering for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9012,JK,(ZTAUR(JK,JG),JG=1,16)
+  9012  format(1x,'TauRay ',I3,16E9.2)
+!    ENDDO
+!  ENDIF
+
+  DO JG=1,IGT
+    IW=IW+1
+
+!    IF (NDBUG.LE.1) THEN
+!      print *,' === JG= ',JG,' === for JB= ',JB,' with IW, IBM, JPLAY, KLEV=',IW,IBM,JPLAY,KLEV
+!    ENDIF
+!    IF (NDBUG.LE.3) THEN
+!      print *,'Cloud optical properties for JB= ',JB
+!      DO JK=1,KLEV
+!        PRINT 9013,JK,PFRCL(IW,JK),PTAUC(JK,IW),POMGC(JK,IW),PASYC(JK,IW)
+  9013   format(1x,'Cloud optprop ',I3,f8.4,f8.3,2f8.5)
+!      ENDDO
+!    ENDIF
+
+    ZINCFLX(IW) =ZSFLXZEN(JG)*PRMU0
+    ZINCFLUX    =ZINCFLUX+ZSFLXZEN(JG)*PRMU0           
+    ZINCTOT     =ZINCTOT+ZSFLXZEN(JG)
+    ZINCF14(IBM)=ZINCF14(IBM)+ZSFLXZEN(JG)
+
+!-- CALL to compute layer reflectances and transmittances for direct 
+!  and diffuse sources, first clear then cloudy.
+!   Use direct/parallel albedo for direct radiation and diffuse albedo
+!   otherwise.
+
+! ZREFC(JK)  direct albedo for clear
+! ZREFO(JK)  direct albedo for cloud
+! ZREFDC(JK) diffuse albedo for clear
+! ZREFDO(JK) diffuse albedo for cloud
+! ZTRAC(JK)  direct transmittance for clear
+! ZTRAO(JK)  direct transmittance for cloudy
+! ZTRADC(JK) diffuse transmittance for clear
+! ZTRADO(JK) diffuse transmittance for cloudy
+
+! ZREF(JK)   direct reflectance
+! ZREFD(JK)  diffuse reflectance
+! ZTRA(JK)   direct transmittance
+! ZTRAD(JK)  diffuse transmittance
+
+! ZDBTC(JK)  clear direct beam transmittance
+! ZDBTO(JK)  cloudy direct beam transmittance
+! ZDBT(JK)   layer mean direct beam transmittance
+! ZTDBT(JK)  total direct beam transmittance at levels
+
+!-- clear-sky    
+!----- TOA direct beam    
+    ZTDBTC(1)=1._JPRB
+!----- surface values
+    ZDBTC(KLEV+1) =0.0_JPRB
+    ZTRAC(KLEV+1) =0.0_JPRB
+    ZTRADC(KLEV+1)=0.0_JPRB
+    ZREFC(KLEV+1) =PALBP(IBM)
+    ZREFDC(KLEV+1)=PALBD(IBM)
+    ZRUPC(KLEV+1) =PALBP(IBM)
+    ZRUPDC(KLEV+1)=PALBD(IBM)
+           
+!-- total sky    
+!----- TOA direct beam    
+    ZTDBT(1)=1._JPRB
+!----- surface values
+    ZDBT(KLEV+1) =0.0_JPRB
+    ZTRA(KLEV+1) =0.0_JPRB
+    ZTRAD(KLEV+1)=0.0_JPRB
+    ZREF(KLEV+1) =PALBP(IBM)
+    ZREFD(KLEV+1)=PALBD(IBM)
+    ZRUP(KLEV+1) =PALBP(IBM)
+    ZRUPD(KLEV+1)=PALBD(IBM)
+!    if (NDBUG < 2) print *,'SWSPCTRL after 1 with JB,JG,IBM and IW= ',JB,JG,IBM,IW
+    
+
+!-- NB: a two-stream calculations from top to bottom, but RRTM_SW quantities 
+!       are given bottom to top (argh!)
+!       Inputs for clouds and aerosols are bottom to top as inputs
+
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+
+!-- clear-sky optical parameters      
+      LLRTCHK(JK)=.TRUE.
+
+!      print 9000,JK,JG,IKL,ZTAUR(IKL,JG),ZTAUG(IKL,JG),PTAUC(IKL,IW)
+      9000  format(1x,'Cloud quantities ',3I4,3E12.5)
+
+!-- original
+!      ZTAUC(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)
+!      ZOMCC(JK)=ZTAUR(IKL,JG)/ZTAUC(JK)
+!      ZGCC (JK)=0.0001_JPRB
+
+!-- total sky optical parameters        
+!      ZTAUO(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)+PTAUC(IKL,IW)
+!      ZOMCO(JK)=PTAUC(IKL,IW)*POMGC(IKL,IW)+ZTAUR(IKL,JG)
+!      ZGCO (JK)=(PTAUC(IKL,IW)*POMGC(IKL,IW)*PASYC(IKL,IW) &
+!        & +ZTAUR(IKL,JG)*0.0001_JPRB)/ZOMCO(JK)
+!      ZOMCO(JK)=ZOMCO(JK)/ZTAUO(JK)
+
+!-- clear-sky optical parameters including aerosols
+      ZTAUC(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM)
+      ZOMCC(JK) = ZTAUR(IKL,JG)*1.0_JPRB + PTAUA(IKL,IBM)*POMGA(IKL,IBM)
+      ZGCC (JK) = PASYA(IKL,IBM)*POMGA(IKL,IBM)*PTAUA(IKL,IBM) / ZOMCC(JK)
+      ZOMCC(JK) = ZOMCC(JK) / ZTAUC(JK)
+
+    ENDDO
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+!-- total sky optical parameters        
+      ZTAUO(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM) + PTAUC(IKL,IW)
+      ZOMCO(JK) = PTAUA(IKL,IBM)*POMGA(IKL,IBM) + PTAUC(IKL,IW)*POMGC(IKL,IW) &
+       & + ZTAUR(IKL,JG)*1.0_JPRB  
+      ZGCO (JK) = (PTAUC(IKL,IW)*POMGC(IKL,IW)*PASYC(IKL,IW)  &
+       & +  PTAUA(IKL,IBM)*POMGA(IKL,IBM)*PASYA(IKL,IBM)) &
+       & /  ZOMCO(JK)  
+      ZOMCO(JK) = ZOMCO(JK) / ZTAUO(JK)
+
+!      if (NDBUG <2) THEN
+!        print 9001,JK,JG,LRTCHK(JK),0.00,ZTAUC(JK),ZOMCC(JK),ZGCC(JK),ZTAUR(IKL,JG),ZTAUG(IKL,JG)
+      9001    format(1x,'clear :',2I3,L4,7(1x,E13.6))
+!        print 9002,JK,JG,LRTCHK(JK),PFRCL(IW,IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IW),POMGC(IKL,IW),PASYC(IKL,IW)
+      9002    format(1x,'total0:',2I3,L4,7(1x,E13.6))
+!      end if
+    ENDDO    
+!    if (NDBUG < 2) print *,'SWSPCTRL after 2'
+
+!-- Delta scaling for clear-sky / aerosol optical quantities
+    DO  JK=1,KLEV
+      ZF=ZGCC(JK)*ZGCC(JK)
+      ZWF=ZOMCC(JK)*ZF
+      ZTAUC(JK)=(1._JPRB-ZWF)*ZTAUC(JK)
+      ZOMCC(JK)=(ZOMCC(JK)-ZWF)/(1.0_JPRB-ZWF)
+      ZGCC (JK)=(ZGCC(JK)-ZF)/(1.0_JPRB-ZF)
+    ENDDO
+   
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCC  , PRMU0, ZTAUC , ZOMCC ,&
+     &   ZREFC  , ZREFDC, ZTRAC, ZTRADC )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for clear-sky'
+    
+!-- Delta scaling for cloudy quantities
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+      LLRTCHK(JK)=.FALSE.
+      ZF=ZGCO(JK)*ZGCO(JK)
+      ZWF=ZOMCO(JK)*ZF
+      ZTAUO(JK)=(1._JPRB-ZWF)*ZTAUO(JK)
+      ZOMCO(JK)=(ZOMCO(JK)-ZWF)/(1._JPRB-ZWF)
+      ZGCO (JK)=(ZGCO(JK)-ZF)/(1._JPRB-ZF)
+      LLRTCHK(JK)=(PFRCL(IW,IKL) > REPCLC)
+
+!      if (NDBUG < 2) THEN 
+!        print 9003,JK,LRTCHK(JK),PFRCL(IW,IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IW),POMGC(IKL,IW),PASYC(IKL,IW)
+      9003    format(1x,'totalD:',I3,L4,7(1x,E13.6))
+!      end if
+
+    ENDDO
+!    if (NDBUG < 2) print *,'SWSPCTR after Delta scaling'
+    
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCO  , PRMU0, ZTAUO , ZOMCO ,&
+     &   ZREFO , ZREFDO, ZTRAO, ZTRADO )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for cloudy'
+
+    DO JK=1,KLEV
+
+!-- combine clear and cloudy contributions for total sky
+
+      IKL=KLEV+1-JK 
+      ZCLEAR   = 1.0_JPRB - PFRCL(IW,IKL)
+      ZCLOUD   = PFRCL(IW,IKL)
+
+      ZREF(JK) = ZCLEAR*ZREFC(JK) + ZCLOUD*ZREFO(JK)
+      ZREFD(JK)= ZCLEAR*ZREFDC(JK)+ ZCLOUD*ZREFDO(JK)
+      ZTRA(JK) = ZCLEAR*ZTRAC(JK) + ZCLOUD*ZTRAO(JK)
+      ZTRAD(JK)= ZCLEAR*ZTRADC(JK)+ ZCLOUD*ZTRADO(JK)
+
+!-- direct beam transmittance        
+      ZARG1      = MIN( 200._JPRB, ZTAUC(JK)/PRMU0 )
+      ZARG2      = MIN( 200._JPRB, ZTAUO(JK)/PRMU0 )
+!      if (PRMU0 <= 0.05_JPRB ) THEN
+!        print 9198,JB,IW,JK,PRMU0,ZTAUC(JK),ZTAUO(JK),PTAUC(IKL,IW),ZARG1,ZARG2,ZCLEAR,ZCLOUD,ZTDBT(JK),PFRCL(IW,IKL)
+9198    format(1x,'Dbg:',3I4,10E13.6)
+!        print 9198,KPT,JB,IW,JK,ZTAUC(JK),ZTAUO(JK),ZARG1,ZARG2,ZCLEAR,ZCLOUD,ZTDBT(JK),PFRCL(IW,IKL)
+!9198    format(1x,'Dbg:',4I4,9E13.6)
+!      endif
+      ZDBTMC     = EXP(-ZARG1 )
+      ZDBTMO     = EXP(-ZARG2 )
+      ZDBT(JK)   = ZCLEAR*ZDBTMC+ZCLOUD*ZDBTMO
+      ZTDBT(JK+1)= ZDBT(JK)*ZTDBT(JK)
+        
+!-- clear-sky        
+      ZDBTC(JK)   =ZDBTMC
+      ZTDBTC(JK+1)=ZDBTC(JK)*ZTDBTC(JK)
+
+      
+      IF (PRMU0 <= 0.05_JPRB) THEN
+!      if (NDBUG < 2) print 9200,JK,ZREFC(JK),ZREFDC(JK),ZTRAC(JK),ZTRADC(JK),ZDBTC(JK),ZTDBTC(JK+1)
+!      if (NDBUG < 2) print 9199,JK,ZREF(JK),ZREFD(JK),ZTRA(JK),ZTRAD(JK),ZDBT(JK),ZTDBT(JK+1)
+!        print 9200,JK,ZREFC(JK),ZREFDC(JK),ZTRAC(JK),ZTRADC(JK),ZDBTC(JK),ZTDBTC(JK+1),ZCLEAR,ZCLOUD,PRMU0
+!        print 9199,JK,ZREF (JK),ZREFD (JK),ZTRA (JK),ZTRAD (JK),ZDBT (JK),ZTDBT (JK+1),ZTAUC(JK),ZTAUO(JK)
+      ENDIF
+      9199  format(1x,'Comb total:',I3,9E13.6)
+      9200  format(1x,'Comb clear:',I3,9E13.6)
+
+    ENDDO           
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT after combining clear and cloudy'
+                 
+!-- vertical quadrature producing clear-sky fluxes
+
+!    print *,'SRTM_SPCVRT after 3 before SRTM_VRTQDR clear'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREFC, ZREFDC, ZTRAC , ZTRADC ,&
+     &   ZDBTC, ZRDNDC, ZRUPC , ZRUPDC, ZTDBTC ,&
+     &   ZCD  , ZCU   )  
+      
+!    IF (NDBUG < 2) THEN
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for clear IW=',IW  
+!      DO JK=1,KLEV+1
+!        print 9201,JK,ZCD(JK,IW),ZCU(JK,IW)
+    9201    format(1x,'clear-sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- vertical quadrature producing cloudy fluxes
+
+!    print *,'SRTM_SPCVRT after 4 before SRTM_VRTQDR cloudy'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREF , ZREFD , ZTRA , ZTRAD ,&
+     &   ZDBT , ZRDND , ZRUP , ZRUPD , ZTDBT ,&
+     &   ZFD  , ZFU   )  
+ 
+!    IF (NDBUG < 2) THEN     
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for cloudy IW=',IW
+!      DO JK=1,KLEV+1
+!        print 9202,JK,ZFD(JK,IW),ZFU(JK,IW)
+    9202    format(1x,'cloudy sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- up and down-welling fluxes at levels
+    DO JK=1,KLEV+1
+!-- accumulation of spectral fluxes          
+      PBBFU(JK) = PBBFU(JK) + ZINCFLX(IW)*ZFU(JK,IW)
+      PBBFD(JK) = PBBFD(JK) + ZINCFLX(IW)*ZFD(JK,IW)
+      PBBCU(JK) = PBBCU(JK) + ZINCFLX(IW)*ZCU(JK,IW)
+      PBBCD(JK) = PBBCD(JK) + ZINCFLX(IW)*ZCD(JK,IW)
+
+! to get NIR, visible and UV quantities
+
+!      PBBFU(JK)=PBBFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!      PBBFD(JK)=PBBFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!      PBBCU(JK)=PBBCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      PBBCD(JK)=PBBCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!      IF (IW <= NUV) THEN
+!        PUVFD(JK)=PUVFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PUVFU(JK)=PUVFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PUVCD(JK)=PUVCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PUVCU(JK)=PUVCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW == NUV+1 .AND. IW <= NVS) THEN  
+!        PVSFD(JK)=PVSFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PVSFU(JK)=PVSFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PVSCD(JK)=PVSCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PVSCU(JK)=PVSCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW > NVS) THEN  
+!        PNIFD(JK)=PNIFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PNIFU(JK)=PNIFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PNICD(JK)=PNICD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PNICU(JK)=PNICU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ENDIF  
+!      if (NDBUG < 2) then
+!!      if (JG.EQ.IGT) THEN 
+!           print 9206,JB,JG,JK,IW,PBBCU(JK),PBBCD(JK),PBBFU(JK),PBBFD(JK)
+      9206      format(1x,'fluxes up to:',3I3,I4,6E13.6)       
+!      end if
+    ENDDO
+
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT end of JG=',JG,' for JB=',JB,' i.e. IW=',IW
+  ENDDO             
+!-- end loop on JG
+
+!  print *,' --- JB= ',JB,' with IB1, IB2= ',IB1,IB2
+ENDDO                    
+!-- end loop on JB
+!if (NDBUG < 2) print *,'SRTM_SPCVRT about to come out'
+!print *,'SRTM_SPCVRT about to come out'
+
+!DO IBM=1,14
+!  print 9301,IBM,ZINCF14(IBM), ZINCTOT, ZINCF14(IBM)/ZINCTOT
+9301 format(1x,'Incident Spectral Flux: ',I3,2E15.8,F12.8)
+!ENDDO
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SPCVRT_MCICA
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h	(revision 3330)
@@ -0,0 +1,66 @@
+INTERFACE
+SUBROUTINE SRTM_SPCVRT_MCICA&
+ & ( KLEV , KMOL , KSW , KCOLS , PONEMINUS,&
+ & PAVEL , PTAVEL , PZ , PTZ , PTBOUND , PALBD , PALBP,&
+ & PFRCL , PTAUC , PASYC , POMGC , PTAUA , PASYA , POMGA , PRMU0,&
+ & PCOLDRY , PWKL,&
+ & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
+ & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
+ & KJP , KJT , KJT1 ,&
+ & PBBFD, PBBFU, PBBCD, PBBCU ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPB1, JPB2, JPGPT
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KCOLS
+INTEGER(KIND=JPIM) :: KLEV
+INTEGER(KIND=JPIM) :: KMOL
+REAL(KIND=JPRB) :: PONEMINUS
+REAL(KIND=JPRB) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) :: PTAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KCOLS,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(JPLAY,KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(JPLAY,KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(JPLAY,KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGA(JPLAY,KSW)
+REAL(KIND=JPRB) :: PRMU0
+REAL(KIND=JPRB) :: PCOLDRY(JPLAY)
+REAL(KIND=JPRB) :: PWKL(35,JPLAY)
+INTEGER(KIND=JPIM) :: KLAYTROP
+INTEGER(KIND=JPIM) :: KLAYSWTCH
+INTEGER(KIND=JPIM) :: KLAYLOW
+REAL(KIND=JPRB) :: PCO2MULT(JPLAY)
+REAL(KIND=JPRB) :: PCOLCH4(JPLAY)
+REAL(KIND=JPRB) :: PCOLCO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLH2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLMOL(JPLAY)
+REAL(KIND=JPRB) :: PCOLN2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLO3(JPLAY)
+REAL(KIND=JPRB) :: PFORFAC(JPLAY)
+REAL(KIND=JPRB) :: PFORFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDFOR(JPLAY)
+REAL(KIND=JPRB) :: PSELFFAC(JPLAY)
+REAL(KIND=JPRB) :: PSELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDSELF(JPLAY)
+REAL(KIND=JPRB) :: PFAC00(JPLAY)
+REAL(KIND=JPRB) :: PFAC01(JPLAY)
+REAL(KIND=JPRB) :: PFAC10(JPLAY)
+REAL(KIND=JPRB) :: PFAC11(JPLAY)
+INTEGER(KIND=JPIM) :: KJP(JPLAY)
+INTEGER(KIND=JPIM) :: KJT(JPLAY)
+INTEGER(KIND=JPIM) :: KJT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFU(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCU(JPLAY+1)
+END SUBROUTINE SRTM_SPCVRT_MCICA
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp.F90	(revision 3330)
@@ -0,0 +1,396 @@
+!
+! $Id$
+!
+SUBROUTINE SRTM_SRTM_224GP &
+ & ( KIDIA , KFDIA  , KLON  , KLEV  , KSW , KOVLP ,&
+ &   PAER  , PALBD  , PALBP , PAPH  , PAP ,&
+ &   PTS   , PTH    , PT    ,&
+ &   PQ    , PCCO2  , POZN  , PRMU0 ,&
+ &   PFRCL , PTAUC  , PASYC , POMGC ,&
+ &   PALBT , PFSUX  , PFSUC &
+ & )  
+
+!-- interface to RRTM_SW
+!     JJMorcrette 030225
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY
+!USE YOERDI   , ONLY : RCH4   , RN2O   
+USE YOERAD   , ONLY : NAER
+USE YOESRTAER, ONLY : RSRTAUA, RSRPIZA, RSRASYA
+USE YOMPHY3  , ONLY : RII0
+USE YOMCST   , ONLY : RI0 
+
+
+
+IMPLICIT NONE
+
+#include "clesphys.h"
+
+!-- Input arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM)               :: KLEV! UNDETERMINED INTENT 
+INTEGER(KIND=JPIM)               :: KSW! UNDETERMINED INTENT 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KOVLP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV)    ! top to bottom
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(KLON,KLEV)     ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(KLON,KSW,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(KLON,KSW,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(KLON,KSW,KLEV) ! bottom to top
+REAL(KIND=JPRB)                  :: PALBT(KLON,KSW) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUX(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUC(KLON,2,KLEV+1) 
+!INTEGER_M :: KMOL, KCLDATM, KNFLAG, KCEFLAG, KIQFLAG, KSTR  
+
+!-- Output arguments
+
+!-----------------------------------------------------------------------
+
+!-- dummy integers
+
+INTEGER(KIND=JPIM) :: ICLDATM, INFLAG, ICEFLAG, I_LIQFLAG, I_NMOL, I_NSTR
+
+INTEGER(KIND=JPIM) :: IK, IMOL, J1, J2, JAE, JL, JK, JSW
+
+!-- dummy reals
+
+REAL(KIND=JPRB) :: Z_PZ(0:JPLAY)   , Z_TZ(0:JPLAY)   , Z_PAVEL(JPLAY)  , Z_TAVEL(JPLAY)
+REAL(KIND=JPRB) :: Z_COLDRY(JPLAY) , Z_COLMOL(JPLAY) , Z_WKL(35,JPLAY)
+REAL(KIND=JPRB) :: Z_CO2MULT(JPLAY), Z_COLCH4(JPLAY) , Z_COLCO2(JPLAY) , Z_COLH2O(JPLAY)
+REAL(KIND=JPRB) :: Z_COLN2O(JPLAY) , Z_COLO2(JPLAY)  , Z_COLO3(JPLAY)
+REAL(KIND=JPRB) :: Z_FORFAC(JPLAY) , Z_FORFRAC(JPLAY), Z_SELFFAC(JPLAY), Z_SELFFRAC(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC00(JPLAY)  , Z_FAC01(JPLAY)  , Z_FAC10(JPLAY)  , Z_FAC11(JPLAY)
+REAL(KIND=JPRB) :: Z_TBOUND        , Z_ONEMINUS    , ZRMU0 , ZADJI0
+REAL(KIND=JPRB) :: ZALBD(KSW)    , ZALBP(KSW)    , ZFRCL(JPLAY)
+REAL(KIND=JPRB) :: ZTAUC(JPLAY,KSW), ZASYC(JPLAY,KSW), ZOMGC(JPLAY,KSW)
+REAL(KIND=JPRB) :: ZTAUA(JPLAY,KSW), ZASYA(JPLAY,KSW), ZOMGA(JPLAY,KSW)
+
+REAL(KIND=JPRB) :: ZBBCD(JPLAY+1), ZBBCU(JPLAY+1), ZBBFD(JPLAY+1), ZBBFU(JPLAY+1)
+REAL(KIND=JPRB) :: ZUVCD(JPLAY+1), ZUVCU(JPLAY+1), ZUVFD(JPLAY+1), ZUVFU(JPLAY+1)
+REAL(KIND=JPRB) :: ZVSCD(JPLAY+1), ZVSCU(JPLAY+1), ZVSFD(JPLAY+1), ZVSFU(JPLAY+1)
+REAL(KIND=JPRB) :: ZNICD(JPLAY+1), ZNICU(JPLAY+1), ZNIFD(JPLAY+1), ZNIFU(JPLAY+1)
+
+INTEGER(KIND=JPIM) :: I_LAYTROP, I_LAYSWTCH, I_LAYLOW
+INTEGER(KIND=JPIM) :: INDFOR(JPLAY), INDSELF(JPLAY)
+INTEGER(KIND=JPIM) :: JP(JPLAY), JT(JPLAY), JT1(JPLAY)
+
+REAL(KIND=JPRB) :: Z_AMD                  ! Effective molecular weight of dry air (g/mol)
+REAL(KIND=JPRB) :: Z_AMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: Z_AMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: Z_AMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: Z_AMN2O                ! Molecular weight of nitrous oxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMC11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL(KIND=JPRB) :: Z_AMC12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL(KIND=JPRB) :: Z_AVGDRO               ! Avogadro's number (molecules/mole)
+REAL(KIND=JPRB) :: Z_GRAVIT               ! Gravitational acceleration (cm/sec2)
+REAL(KIND=JPRB) :: Z_AMM
+
+! 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 Z_AMD   /  28.970_JPRB    /
+data Z_AMW   /  18.0154_JPRB   /
+data Z_AMCO2 /  44.011_JPRB    /
+data Z_AMO   /  47.9982_JPRB   /
+data Z_AMCH4 /  16.043_JPRB    /
+data Z_AMN2O /  44.013_JPRB    /
+data Z_AMC11 / 137.3686_JPRB   /
+data Z_AMC12 / 120.9140_JPRB   /
+data Z_AVGDRO/ 6.02214E23_JPRB /
+data Z_GRAVIT/ 9.80665E02_JPRB /
+
+REAL(KIND=JPRB) :: ZCLEAR, ZCLOUD, ZEPSEC, ZTOTCC
+
+INTEGER(KIND=JPIM) :: IOVLP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_setcoef.intfb.h"
+#include "srtm_spcvrt.intfb.h"
+
+
+!-----------------------------------------------------------------------
+!-- calculate information needed ny the radiative transfer routine 
+
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP',0,ZHOOK_HANDLE)
+ZEPSEC  = 1.E-06_JPRB
+Z_ONEMINUS=1.0_JPRB -  ZEPSEC
+ZADJI0 = RII0 / RI0
+!-- overlap: 1=max-ran, 2=maximum, 3=random
+IOVLP=3
+
+!print *,'Entering srtm_srtm_224gp'
+
+ICLDATM = 1
+INFLAG    = 2
+ICEFLAG    = 3
+I_LIQFLAG = 1
+I_NMOL    = 6
+I_NSTR    = 2
+
+DO JL = KIDIA, KFDIA
+  ZRMU0=PRMU0(JL)
+  IF (ZRMU0 > 0.0_JPRB) THEN
+
+!- coefficients related to the cloud optical properties (original RRTM_SW)
+
+!  print *,'just before SRTM_CLDPROP'
+
+!  DO JK=1,KLEV 
+!    CLDFRAC(JK) = PFRCL (JL,JK)
+!    CLDDAT1(JK) = PSCLA1(JL,JK)
+!    CLDDAT2(JK) = PSCLA2(JL,JK)
+!    CLDDAT3(JK) = PSCLA3(JL,JK)
+!    CLDDAT4(JK) = PSCLA4(JL,JK)
+!    DO JMOM=0,16
+!      CLDDATMOM(JMOM,JK)=PSCLMOM(JL,JMOM,JK)
+!    ENDDO
+!    print 9101,JK,CLDFRAC(JK),CLDDAT1(JK),CLDDAT2(JK),CLDDAT3(JK)&
+!    &,CLDDAT4(JK),(CLDDATMOM(JMOM,JK),JMOM=0,NSTR)
+    9101 format(1x,'srtm_srtm_224gp Cld :',I3,f7.4,7E12.5)
+!  ENDDO
+
+!  CALL SRTM_CLDPROP &
+!    &( KLEV, ICLDATM, INFLAG, ICEFLAG, LIQFLAG, NSTR &
+!    &, CLDFRAC, CLDDAT1, CLDDAT2, CLDDAT3, CLDDAT4, CLDDATMOM &
+!    &, TAUCLDORIG, TAUCLOUD, SSACLOUD, XMOM &
+!    &)
+
+!- coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients
+
+    DO J1=1,35
+      DO J2=1,KLEV
+        Z_WKL(J1,J2)=0.0_JPRB 
+      ENDDO
+    ENDDO
+
+    Z_TBOUND=PTS(JL)
+    Z_PZ(0) = paph(JL,klev+1)/100._JPRB
+    Z_TZ(0) = pth (JL,klev+1)
+
+    ZCLEAR=1.0_JPRB
+    ZCLOUD=0.0_JPRB
+    ZTOTCC=0.0_JPRB
+    DO JK = 1, KLEV
+      Z_PAVEL(JK) = pap(JL,KLEV-JK+1) /100._JPRB
+      Z_TAVEL(JK) = pt (JL,KLEV-JK+1)
+      Z_PZ(JK)    = paph(JL,KLEV-JK+1)/100._JPRB
+      Z_TZ(JK)    = pth (JL,KLEV-JK+1)
+      Z_WKL(1,JK) = pq(JL,KLEV-JK+1)  *Z_AMD/Z_AMW
+      Z_WKL(2,JK) = pcco2             *Z_AMD/Z_AMCO2
+      Z_WKL(3,JK) = pozn(JL,KLEV-JK+1)*Z_AMD/Z_AMO
+      Z_WKL(4,JK) = rn2o              *Z_AMD/Z_AMN2O
+      Z_WKL(6,JK) = rch4              *Z_AMD/Z_AMCH4
+      Z_AMM = (1-Z_WKL(1,JK))*Z_AMD + Z_WKL(1,JK)*Z_AMW
+      Z_COLDRY(JK) = (Z_PZ(JK-1)-Z_PZ(JK))*1.E3_JPRB*Z_AVGDRO/(Z_GRAVIT*Z_AMM*(1+Z_WKL(1,JK)))
+!    print 9200,JK,PAVEL(JK),TAVEL(JK),(WKL(JA,JK),JA=1,4),WKL(6,JK),COLDRY(JK)
+      9200 format(1x,'SRTM ',I3,2F7.1,6E13.5)
+
+      IF (KOVLP == 1) THEN
+        ZCLEAR=ZCLEAR*(1.0_JPRB-MAX(PFRCL(JL,JK),ZCLOUD)) &
+         & /(1.0_JPRB-MIN(ZCLOUD,1.0_JPRB-ZEPSEC))  
+        ZCLOUD=PFRCL(JL,JK)
+        ZTOTCC=1.0_JPRB-ZCLEAR
+      ELSEIF (KOVLP == 2) THEN
+        ZCLOUD=MAX(ZCLOUD,PFRCL(JL,JK))
+        ZCLEAR=1.0_JPRB-ZCLOUD
+        ZTOTCC=ZCLOUD
+      ELSEIF (KOVLP == 3) THEN
+        ZCLEAR=ZCLEAR*(1.0_JPRB-PFRCL(JL,JK))
+        ZCLOUD=1.0_JPRB-ZCLEAR
+        ZTOTCC=ZCLOUD
+      ENDIF
+
+    ENDDO
+
+!  print *,'ZTOTCC ZCLEAR : ',ZTOTCC,' ',ZCLEAR
+
+    DO IMOL=1,I_NMOL
+      DO JK=1,KLEV
+        Z_WKL(IMOL,JK)=Z_COLDRY(JK)* Z_WKL(IMOL,JK)
+      ENDDO
+    ENDDO
+
+!    IF (ZTOTCC == 0.0_JPRB) THEN
+!      DO JK=1,KLEV
+!        ZFRCL(JK)=0.0_JPRB   
+!      ENDDO
+!    ELSE
+!      DO JK=1,KLEV
+!        ZFRCL(JK)=PFRCL(JL,JK)/ZTOTCC
+!      ENDDO
+!    ENDIF
+
+!  print *,'just before SRTM_SETCOEF'
+
+    ZFRCL(1:KLEV)=PFRCL(JL,1:KLEV)
+    ZCLEAR=0._JPRB
+    ZCLOUD=1._JPRB
+
+    CALL SRTM_SETCOEF &
+     & ( KLEV   , I_NMOL,&
+     & Z_PAVEL  , Z_TAVEL   , Z_PZ     , Z_TZ     , Z_TBOUND,&
+     & Z_COLDRY , Z_WKL,&
+     & I_LAYTROP, I_LAYSWTCH, I_LAYLOW,&
+     & Z_CO2MULT, Z_COLCH4  , Z_COLCO2 , Z_COLH2O , Z_COLMOL  , Z_COLN2O  , Z_COLO2 , Z_COLO3,&
+     & Z_FORFAC , Z_FORFRAC , INDFOR , Z_SELFFAC, Z_SELFFRAC, INDSELF,&
+     & Z_FAC00  , Z_FAC01   , Z_FAC10  , Z_FAC11,&
+     & JP     , JT      , JT1     &
+     & )  
+  
+!  print *,'just after SRTM_SETCOEF'
+
+!- call the radiation transfer routine
+  
+    DO JSW=1,KSW
+      ZALBD(JSW)=PALBD(JL,JSW)
+      ZALBP(JSW)=PALBP(JL,JSW)
+      DO JK=1,KLEV
+        ZTAUC(JK,JSW) = PTAUC(JL,JSW,JK)
+        ZASYC(JK,JSW) = PASYC(JL,JSW,JK)
+        ZOMGC(JK,JSW) = POMGC(JL,JSW,JK)
+!      print 9002,JSW,JK,ZFRCL(JK),ZTAUC(JK,JSW),ZASYC(JK,JSW),ZOMGC(JK,JSW)
+        9002  format(1x,'srtm_224gp ClOPropECmodel ',2I3,f8.4,3E12.5)
+      ENDDO
+    ENDDO
+
+!- mixing of aerosols
+ 
+!  print *,'Aerosol optical properties computations'
+!  DO JSW=1,KSW
+!    print 9012,JSW,(JAE,RSRTAUA(JSW,JAE),RSRPIZA(JSW,JAE),RSRASYA(JSW,JAE),JAE=1,6)
+    9012 format(I3,(/,I3,3E13.5))
+!  ENDDO
+
+!  DO JK=1,KLEV
+!    print 9013,JK,(PAER(JL,JAE,JK),JAE=1,6)
+    9013 format(1x,I3,6E12.5)
+!  ENDDO
+
+    IF (NAER == 0) THEN
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          ZTAUA(JK,JSW)= 0.0_JPRB
+          ZASYA(JK,JSW)= 0.0_JPRB
+          ZOMGA(JK,JSW)= 1.0_JPRB
+        ENDDO
+      ENDDO
+    ELSE
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          IK=KLEV+1-JK
+          ZTAUA(JK,JSW)=0.0_JPRB
+          ZASYA(JK,JSW)=0.0_JPRB
+          ZOMGA(JK,JSW)=0.0_JPRB
+          DO JAE=1,6
+            ZTAUA(JK,JSW)=ZTAUA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK)
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)  
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)*RSRASYA(JSW,JAE)  
+          ENDDO
+          IF (ZOMGA(JK,JSW) /= 0.0_JPRB) THEN
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)/ZOMGA(JK,JSW)
+          ENDIF
+          IF (ZTAUA(JK,JSW) /= 0.0_JPRB) THEN
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)/ZTAUA(JK,JSW)
+          ENDIF
+!      print 9003,JSW,JK,ZTAUA(JK,JSW),ZOMGA(JK,JSW),ZASYA(JK,JSW)
+9003  format(1x,'Aerosols ',2I3,3F10.4)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JK=1,KLEV+1
+      ZBBCU(JK)=0.0_JPRB
+      ZBBCD(JK)=0.0_JPRB
+      ZBBFU(JK)=0.0_JPRB
+      ZBBFD(JK)=0.0_JPRB
+      ZUVCU(JK)=0.0_JPRB
+      ZUVCD(JK)=0.0_JPRB
+      ZUVFU(JK)=0.0_JPRB
+      ZUVFD(JK)=0.0_JPRB
+      ZVSCU(JK)=0.0_JPRB
+      ZVSCD(JK)=0.0_JPRB
+      ZVSFU(JK)=0.0_JPRB
+      ZVSFD(JK)=0.0_JPRB
+      ZNICU(JK)=0.0_JPRB
+      ZNICD(JK)=0.0_JPRB
+      ZNIFU(JK)=0.0_JPRB
+      ZNIFD(JK)=0.0_JPRB
+    ENDDO
+
+!  print *,'just before calling STRM_SPCVRT for JL=',JL,' and ZRMU0=',ZRMU0
+
+    CALL SRTM_SPCVRT &
+     & ( KLEV   , I_NMOL    , KSW    , Z_ONEMINUS,&
+     & Z_PAVEL  , Z_TAVEL   , Z_PZ     , Z_TZ     , Z_TBOUND  , ZALBD   , ZALBP,&
+     & ZFRCL  , ZTAUC   , ZASYC  , ZOMGC  , ZTAUA   , ZASYA   , ZOMGA , ZRMU0,&
+     & Z_COLDRY , Z_WKL,&
+     & I_LAYTROP, I_LAYSWTCH, I_LAYLOW,&
+     & Z_CO2MULT, Z_COLCH4  , Z_COLCO2 , Z_COLH2O , Z_COLMOL  , Z_COLN2O  , Z_COLO2 , Z_COLO3,&
+     & Z_FORFAC , Z_FORFRAC , INDFOR , Z_SELFFAC, Z_SELFFRAC, INDSELF,&
+     & Z_FAC00  , Z_FAC01   , Z_FAC10  , Z_FAC11,&
+     & JP     , JT      , JT1,&
+     & ZBBFD  , ZBBFU   , ZUVFD  , ZUVFU  , ZVSFD   , ZVSFU   , ZNIFD , ZNIFU,&
+     & ZBBCD  , ZBBCU   , ZUVCD  , ZUVCU  , ZVSCD   , ZVSCU   , ZNICD , ZNICU &
+     & )  
+
+!  print *,'SRTM_SRTM_224GP before potential scaling'
+!    IF (IOVLP == 3) THEN
+!      DO JK=1,KLEV+1
+!!      print 9004,JK,ZBBCU(JK),ZBBCD(JK),ZBBFU(JK),ZBBFD(JK)
+        9004 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!        PFSUC(JL,1,JK)=ZBBCU(JK)
+!        PFSUC(JL,2,JK)=ZBBCD(JK)
+!        PFSUX(JL,1,JK)=ZBBFU(JK)
+!        PFSUX(JL,2,JK)=ZBBFD(JK)
+!      ENDDO
+!    ELSE
+!    print *,'SRTM_SRTM_224GP after potential scaling'
+      DO JK=1,KLEV+1
+        PFSUC(JL,1,JK)=ZADJI0 * ZBBCU(JK)
+        PFSUC(JL,2,JK)=ZADJI0 * ZBBCD(JK)
+        PFSUX(JL,1,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFU(JK)+ZCLEAR*ZBBCU(JK) )
+        PFSUX(JL,2,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFD(JK)+ZCLEAR*ZBBCD(JK) )
+      ENDDO
+!    ENDIF
+
+!  DO JK=1,KLEV+1
+!    print 9005,JK,PFSUC(JL,1,JK),PFSUC(JL,2,JK),PFSUX(JL,1,JK),PFSUX(JL,2,JK)
+    9005 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!  ENDDO
+  
+  ELSE
+    DO JK=1,KLEV+1
+      PFSUC(JL,1,JK)=0.0_JPRB
+      PFSUC(JL,2,JK)=0.0_JPRB
+      PFSUX(JL,1,JK)=0.0_JPRB
+      PFSUX(JL,2,JK)=0.0_JPRB
+    ENDDO
+  ENDIF
+ENDDO
+
+!PRINT *,'OUT OF SRTM_224GP'
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SRTM_224GP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp.intfb.h	(revision 3330)
@@ -0,0 +1,38 @@
+INTERFACE
+SUBROUTINE SRTM_SRTM_224GP&
+ & ( KIDIA , KFDIA , KLON , KLEV , KSW , KOVLP ,&
+ & PAER , PALBD , PALBP , PAPH , PAP ,&
+ & PTS , PTH , PT ,&
+ & PQ , PCCO2 , POZN , PRMU0 ,&
+ & PFRCL , PTAUC , PASYC , POMGC ,&
+ & PALBT , PFSUX , PFSUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM) :: KLEV
+INTEGER(KIND=JPIM) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KOVLP
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(KLON,KSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(KLON,KSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(KLON,KSW,KLEV)
+REAL(KIND=JPRB) :: PALBT(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUC(KLON,2,KLEV+1)
+END SUBROUTINE SRTM_SRTM_224GP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90	(revision 3330)
@@ -0,0 +1,396 @@
+SUBROUTINE SRTM_SRTM_224GP_MCICA &
+ & ( KIDIA , KFDIA  , KLON  , KLEV  , KSW , KCOLS , KCLDLY ,&
+ &   PAER  , PALBD  , PALBP , PAPH  , PAP , &
+ &   PTS   , PTH    , PT    ,&
+ &   PQ    , PCCO2  , POZN  , PRMU0 ,&
+ &   PFRCL , PTAUC  , PASYC , POMGC ,&
+ &   PFSUX , PFSUC &
+ & )  
+
+!-- interface to RRTM_SW
+!     JJMorcrette 030225
+!     JJMorcrette 20050110  McICA version
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY
+USE YOERDI   , ONLY : RCH4   , RN2O   
+USE YOERAD   , ONLY : NAER
+USE YOESRTAER, ONLY : RSRTAUA, RSRPIZA, RSRASYA
+USE YOMPHY3  , ONLY : RII0
+USE YOMCST   , ONLY : RI0 
+
+IMPLICIT NONE
+
+!-- Input arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW  
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCOLS
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCLDLY(KCOLS) 
+
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV)    ! top to bottom
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON)
+
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(KLON,KCOLS,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(KLON,KCOLS,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(KLON,KCOLS,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(KLON,KCOLS,KLEV) ! bottom to top
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUX(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUC(KLON,2,KLEV+1) 
+
+!-- Output arguments
+
+!-----------------------------------------------------------------------
+
+!-- dummy integers
+
+INTEGER(KIND=JPIM) :: ICLDATM, INFLAG, ICEFLAG, I_LIQFLAG, ITMOL, I_NSTR
+
+INTEGER(KIND=JPIM) :: IK, IMOL, J1, J2, JAE, JL, JK, JSW
+
+!-- dummy reals
+
+REAL(KIND=JPRB) :: ZPZ(0:JPLAY)   , ZTZ(0:JPLAY)   , ZPAVEL(JPLAY)  , ZTAVEL(JPLAY)
+REAL(KIND=JPRB) :: ZCOLDRY(JPLAY) , ZCOLMOL(JPLAY) , ZWKL(35,JPLAY)
+REAL(KIND=JPRB) :: ZCO2MULT(JPLAY), ZCOLCH4(JPLAY) , ZCOLCO2(JPLAY) , ZCOLH2O(JPLAY)
+REAL(KIND=JPRB) :: ZCOLN2O(JPLAY) , ZCOLO2(JPLAY)  , ZCOLO3(JPLAY)
+REAL(KIND=JPRB) :: ZFORFAC(JPLAY) , ZFORFRAC(JPLAY), ZSELFFAC(JPLAY), ZSELFFRAC(JPLAY)
+REAL(KIND=JPRB) :: ZFAC00(JPLAY)  , ZFAC01(JPLAY)  , ZFAC10(JPLAY)  , ZFAC11(JPLAY)
+REAL(KIND=JPRB) :: ZTBOUND        , ZONEMINUS    , ZRMU0 , ZADJI0
+REAL(KIND=JPRB) :: ZALBD(KSW)    , ZALBP(KSW)    
+
+REAL(KIND=JPRB) :: ZFRCL(KCOLS,JPLAY), ZTAUC(JPLAY,KCOLS), ZASYC(JPLAY,KCOLS), ZOMGC(JPLAY,KCOLS)
+REAL(KIND=JPRB) :: ZTAUA(JPLAY,KSW), ZASYA(JPLAY,KSW), ZOMGA(JPLAY,KSW)
+
+REAL(KIND=JPRB) :: ZBBCD(JPLAY+1), ZBBCU(JPLAY+1), ZBBFD(JPLAY+1), ZBBFU(JPLAY+1)
+!REAL(KIND=JPRB) :: ZUVCD(JPLAY+1), ZUVCU(JPLAY+1), ZUVFD(JPLAY+1), ZUVFU(JPLAY+1)
+!REAL(KIND=JPRB) :: ZVSCD(JPLAY+1), ZVSCU(JPLAY+1), ZVSFD(JPLAY+1), ZVSFU(JPLAY+1)
+!REAL(KIND=JPRB) :: ZNICD(JPLAY+1), ZNICU(JPLAY+1), ZNIFD(JPLAY+1), ZNIFU(JPLAY+1)
+
+INTEGER(KIND=JPIM) :: ILAYTROP, ILAYSWTCH, ILAYLOW
+INTEGER(KIND=JPIM) :: INDFOR(JPLAY), INDSELF(JPLAY)
+INTEGER(KIND=JPIM) :: JP(JPLAY), JT(JPLAY), JT1(JPLAY)
+
+REAL(KIND=JPRB) :: ZAMD                  ! Effective molecular weight of dry air (g/mol)
+REAL(KIND=JPRB) :: ZAMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: ZAMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: ZAMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: ZAMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: ZAMN2O                ! Molecular weight of nitrous oxide (g/mol)
+REAL(KIND=JPRB) :: ZAMC11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL(KIND=JPRB) :: ZAMC12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL(KIND=JPRB) :: ZAVGDRO               ! Avogadro's number (molecules/mole)
+REAL(KIND=JPRB) :: ZGRAVIT               ! Gravitational acceleration (cm/sec2)
+REAL(KIND=JPRB) :: ZAMM
+
+REAL(KIND=JPRB) :: RAMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: RAMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: RAMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: RAMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: RAMN2O                ! Molecular weight of nitrous oxide (g/mol)
+
+! 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 ZAMD   /  28.970_JPRB    /
+data ZAMW   /  18.0154_JPRB   /
+data ZAMCO2 /  44.011_JPRB    /
+data ZAMO   /  47.9982_JPRB   /
+data ZAMCH4 /  16.043_JPRB    /
+data ZAMN2O /  44.013_JPRB    /
+data ZAMC11 / 137.3686_JPRB   /
+data ZAMC12 / 120.9140_JPRB   /
+data ZAVGDRO/ 6.02214E23_JPRB /
+data ZGRAVIT/ 9.80665E02_JPRB /
+data RAMW   /  0.05550_JPRB   /
+data RAMCO2 /  0.02272_JPRB   /
+data RAMO   /  0.02083_JPRB   /
+data RAMCH4 /  0.06233_JPRB    /
+data RAMN2O /  0.02272_JPRB    /
+
+
+REAL(KIND=JPRB) :: ZCLEAR, ZCLOUD, ZEPSEC, ZTOTCC
+
+INTEGER(KIND=JPIM) :: IOVLP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_setcoef.intfb.h"
+#include "srtm_spcvrt_mcica.intfb.h"
+
+
+!-----------------------------------------------------------------------
+!-- calculate information needed ny the radiative transfer routine 
+
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP_MCICA',0,ZHOOK_HANDLE)
+ZEPSEC  = 1.E-06_JPRB
+ZONEMINUS=1.0_JPRB -  ZEPSEC
+ZADJI0 = RII0 / RI0
+!-- overlap: 1=max-ran, 2=maximum, 3=random
+IOVLP=3
+
+!print *,'Entering srtm_srtm_224gp_mcica'
+
+ICLDATM  = 1
+INFLAG   = 2
+ICEFLAG  = 3
+I_LIQFLAG= 1
+ITMOL    = 6
+I_NSTR   = 2
+
+DO JL = KIDIA, KFDIA
+  ZRMU0=PRMU0(JL)
+  IF (ZRMU0 > 0.0_JPRB) THEN
+
+!- coefficients related to the cloud optical properties (original RRTM_SW)
+
+!  print *,'just before SRTM_CLDPROP'
+
+!  DO JK=1,KLEV 
+!    CLDFRAC(JK) = PFRCL (JL,JK)
+!    CLDDAT1(JK) = PSCLA1(JL,JK)
+!    CLDDAT2(JK) = PSCLA2(JL,JK)
+!    CLDDAT3(JK) = PSCLA3(JL,JK)
+!    CLDDAT4(JK) = PSCLA4(JL,JK)
+!    DO JMOM=0,16
+!      CLDDATMOM(JMOM,JK)=PSCLMOM(JL,JMOM,JK)
+!    ENDDO
+!    print 9101,JK,CLDFRAC(JK),CLDDAT1(JK),CLDDAT2(JK),CLDDAT3(JK)&
+!    &,CLDDAT4(JK),(CLDDATMOM(JMOM,JK),JMOM=0,NSTR)
+    9101 format(1x,'srtm_srtm_224gp Cld :',I3,f7.4,7E12.5)
+!  ENDDO
+
+!  CALL SRTM_CLDPROP &
+!    &( KLEV, ICLDATM, INFLAG, ICEFLAG, LIQFLAG, NSTR &
+!    &, CLDFRAC, CLDDAT1, CLDDAT2, CLDDAT3, CLDDAT4, CLDDATMOM &
+!    &, TAUCLDORIG, TAUCLOUD, SSACLOUD, XMOM &
+!    &)
+
+!- coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients
+
+    DO J1=1,35
+      DO J2=1,KLEV
+        ZWKL(J1,J2)=0.0_JPRB 
+      ENDDO
+    ENDDO
+
+    ZTBOUND=PTS(JL)
+    ZPZ(0) = paph(JL,klev+1)*0.01_JPRB
+    ZTZ(0) = pth (JL,klev+1)
+
+    ZCLEAR=1.0_JPRB
+    ZCLOUD=0.0_JPRB
+    ZTOTCC=0.0_JPRB
+    DO JK = 1, KLEV
+      ZPAVEL(JK) = pap(JL,KLEV-JK+1) *0.01_JPRB
+      ZTAVEL(JK) = pt (JL,KLEV-JK+1)
+      ZPZ(JK)    = paph(JL,KLEV-JK+1) *0.01_JPRB
+      ZTZ(JK)    = pth (JL,KLEV-JK+1)
+      ZWKL(1,JK) = pq(JL,KLEV-JK+1)  *ZAMD*RAMW
+      ZWKL(2,JK) = pcco2             *ZAMD*RAMCO2
+      ZWKL(3,JK) = pozn(JL,KLEV-JK+1)*ZAMD*RAMO
+      ZWKL(4,JK) = rn2o              *ZAMD*RAMN2O
+      ZWKL(6,JK) = rch4              *ZAMD*RAMCH4
+      ZAMM = (1-ZWKL(1,JK))*ZAMD + ZWKL(1,JK)*ZAMW
+      ZCOLDRY(JK) = (ZPZ(JK-1)-ZPZ(JK))*1.E3_JPRB*ZAVGDRO/(ZGRAVIT*ZAMM*(1+ZWKL(1,JK)))
+!    print 9200,JK,PAVEL(JK),TAVEL(JK),(WKL(JA,JK),JA=1,4),WKL(6,JK),COLDRY(JK)
+      9200 format(1x,'SRTM ',I3,2F7.1,6E13.5)
+
+
+
+    ENDDO
+
+!  print *,'ZTOTCC ZCLEAR : ',ZTOTCC,' ',ZCLEAR
+
+    DO IMOL=1,ITMOL
+      DO JK=1,KLEV
+        ZWKL(IMOL,JK)=ZCOLDRY(JK)* ZWKL(IMOL,JK)
+      ENDDO
+    ENDDO
+
+!  print *,'just before SRTM_SETCOEF'
+
+    CALL SRTM_SETCOEF &
+     & ( KLEV   , ITMOL,&
+     & ZPAVEL  , ZTAVEL   , ZPZ     , ZTZ     , ZTBOUND,&
+     & ZCOLDRY , ZWKL,&
+     & ILAYTROP, ILAYSWTCH, ILAYLOW,&
+     & ZCO2MULT, ZCOLCH4  , ZCOLCO2 , ZCOLH2O , ZCOLMOL  , ZCOLN2O  , ZCOLO2 , ZCOLO3,&
+     & ZFORFAC , ZFORFRAC , INDFOR  , ZSELFFAC, ZSELFFRAC, INDSELF, &
+     & ZFAC00  , ZFAC01   , ZFAC10  , ZFAC11,&
+     & JP      , JT       , JT1     &
+     & )  
+  
+!  print *,'just after SRTM_SETCOEF'
+
+!- call the radiation transfer routine
+  
+    DO JSW=1,KSW
+      ZALBD(JSW)=PALBD(JL,JSW)
+      ZALBP(JSW)=PALBP(JL,JSW)
+    ENDDO
+
+    DO JSW=1,KCOLS
+      DO JK=1,KLEV        
+        ZFRCL(JSW,JK) = PFRCL(JL,JSW,JK)
+        ZTAUC(JK,JSW) = PTAUC(JL,JSW,JK)
+        ZASYC(JK,JSW) = PASYC(JL,JSW,JK)
+        ZOMGC(JK,JSW) = POMGC(JL,JSW,JK)
+
+!---- security: might have to be moved upstream to radlswr -------
+!        IF(ZTAUC(JK,JSW) == 0._JPRB) ZFRCL(JSW,JK) = 0._JPRB
+!-----------------------------------------------------------------
+
+
+!       IF (ZFRCL(JSW,JK) /= 0._JPRB) THEN
+!          print 9002,JSW,JK,ZFRCL(JSW,JK),ZTAUC(JK,JSW),ZASYC(JK,JSW),ZOMGC(JK,JSW)
+9002      format(1x,'srtm_224gp_McICA ClOPropECmodel ',2I3,f8.4,3E12.5)
+!        ENDIF
+      ENDDO
+    ENDDO
+
+!- mixing of aerosols
+ 
+!  print *,'Aerosol optical properties computations'
+!  DO JSW=1,KSW
+!    print 9012,JSW,(JAE,RSRTAUA(JSW,JAE),RSRPIZA(JSW,JAE),RSRASYA(JSW,JAE),JAE=1,6)
+    9012 format(I3,(/,I3,3E13.5))
+!  ENDDO
+
+!  DO JK=1,KLEV
+!    print 9013,JK,(PAER(JL,JAE,JK),JAE=1,6)
+    9013 format(1x,I3,6E12.5)
+!  ENDDO
+
+    IF (NAER == 0) THEN
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          ZTAUA(JK,JSW)= 0.0_JPRB
+          ZASYA(JK,JSW)= 0.0_JPRB
+          ZOMGA(JK,JSW)= 1.0_JPRB
+        ENDDO
+      ENDDO
+    ELSE
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          IK=KLEV+1-JK
+          ZTAUA(JK,JSW)=0.0_JPRB
+          ZASYA(JK,JSW)=0.0_JPRB
+          ZOMGA(JK,JSW)=0.0_JPRB
+          DO JAE=1,6
+            ZTAUA(JK,JSW)=ZTAUA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK)
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)  
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)*RSRASYA(JSW,JAE)  
+          ENDDO
+          IF (ZOMGA(JK,JSW) /= 0.0_JPRB) THEN
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)/ZOMGA(JK,JSW)
+          ENDIF
+          IF (ZTAUA(JK,JSW) /= 0.0_JPRB) THEN
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)/ZTAUA(JK,JSW)
+          ENDIF
+!      print 9003,JSW,JK,ZTAUA(JK,JSW),ZOMGA(JK,JSW),ZASYA(JK,JSW)
+9003  format(1x,'Aerosols ',2I3,3F10.4)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JK=1,KLEV+1
+      ZBBCU(JK)=0.0_JPRB
+      ZBBCD(JK)=0.0_JPRB
+      ZBBFU(JK)=0.0_JPRB
+      ZBBFD(JK)=0.0_JPRB
+!      ZUVCU(JK)=0.0_JPRB
+!      ZUVCD(JK)=0.0_JPRB
+!      ZUVFU(JK)=0.0_JPRB
+!      ZUVFD(JK)=0.0_JPRB
+!      ZVSCU(JK)=0.0_JPRB
+!      ZVSCD(JK)=0.0_JPRB
+!      ZVSFU(JK)=0.0_JPRB
+!      ZVSFD(JK)=0.0_JPRB
+!      ZNICU(JK)=0.0_JPRB
+!      ZNICD(JK)=0.0_JPRB
+!      ZNIFU(JK)=0.0_JPRB
+!      ZNIFD(JK)=0.0_JPRB
+    ENDDO
+
+!    print *,'just before calling STRM_SPCVRT for JL=',JL,' and ZRMU0=',ZRMU0
+
+    CALL SRTM_SPCVRT_MCICA &
+     &( KLEV   , ITMOL    , KSW    , KCOLS  , ZONEMINUS,&
+     & ZPAVEL  , ZTAVEL   , ZPZ    , ZTZ    , ZTBOUND , ZALBD   , ZALBP,&
+     & ZFRCL   , ZTAUC    , ZASYC  , ZOMGC  , ZTAUA   , ZASYA   , ZOMGA , ZRMU0,&
+     & ZCOLDRY , ZWKL     ,&
+     & ILAYTROP, ILAYSWTCH, ILAYLOW,&
+     & ZCO2MULT, ZCOLCH4  , ZCOLCO2, ZCOLH2O , ZCOLMOL  , ZCOLN2O, ZCOLO2 , ZCOLO3,&
+     & ZFORFAC , ZFORFRAC , INDFOR , ZSELFFAC, ZSELFFRAC, INDSELF,&
+     & ZFAC00  , ZFAC01   , ZFAC10 , ZFAC11  ,&
+     & JP      , JT       , JT1    ,&
+     & ZBBFD   , ZBBFU    , ZBBCD  , ZBBCU )
+     
+!     & ZBBFD   , ZBBFU    , ZUVFD  , ZUVFU  , ZVSFD   , ZVSFU   , ZNIFD , ZNIFU,&
+!     & ZBBCD   , ZBBCU    , ZUVCD  , ZUVCU  , ZVSCD   , ZVSCU   , ZNICD , ZNICU &
+!     & )  
+
+!  print *,'SRTM_SRTM_224GP before potential scaling'
+!    IF (IOVLP == 3) THEN
+!      DO JK=1,KLEV+1
+!!      print 9004,JK,ZBBCU(JK),ZBBCD(JK),ZBBFU(JK),ZBBFD(JK)
+        9004 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!        PFSUC(JL,1,JK)=ZBBCU(JK)
+!        PFSUC(JL,2,JK)=ZBBCD(JK)
+!        PFSUX(JL,1,JK)=ZBBFU(JK)
+!        PFSUX(JL,2,JK)=ZBBFD(JK)
+!      ENDDO
+!    ELSE
+!    print *,'SRTM_SRTM_224GP after potential scaling'
+      DO JK=1,KLEV+1
+        PFSUC(JL,1,JK)=ZADJI0 * ZBBCU(JK)
+        PFSUC(JL,2,JK)=ZADJI0 * ZBBCD(JK)
+        PFSUX(JL,1,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFU(JK)+ZCLEAR*ZBBCU(JK) )
+        PFSUX(JL,2,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFD(JK)+ZCLEAR*ZBBCD(JK) )
+!-- for testing only
+        PFSUC(JL,1,JK)=ZADJI0 * ZBBCU(JK)
+        PFSUC(JL,2,JK)=ZADJI0 * ZBBCD(JK)
+        PFSUX(JL,1,JK)=ZADJI0 * ZBBFU(JK)
+        PFSUX(JL,2,JK)=ZADJI0 * ZBBFD(JK)
+      ENDDO
+!    ENDIF
+
+!  DO JK=1,KLEV+1
+!    print 9005,JK,PFSUC(JL,1,JK),PFSUC(JL,2,JK),PFSUX(JL,1,JK),PFSUX(JL,2,JK)
+    9005 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!  ENDDO
+  
+  ELSE
+    DO JK=1,KLEV+1
+      PFSUC(JL,1,JK)=0.0_JPRB
+      PFSUC(JL,2,JK)=0.0_JPRB
+      PFSUX(JL,1,JK)=0.0_JPRB
+      PFSUX(JL,2,JK)=0.0_JPRB
+    ENDDO
+  ENDIF
+ENDDO
+
+!PRINT *,'OUT OF SRTM_224GP_MCICA'
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP_MCICA',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SRTM_224GP_MCICA
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.intfb.h	(revision 3330)
@@ -0,0 +1,38 @@
+INTERFACE
+SUBROUTINE SRTM_SRTM_224GP_MCICA&
+ & ( KIDIA , KFDIA , KLON , KLEV , KSW , KCOLS , KCLDLY ,&
+ & PAER , PALBD , PALBP , PAPH , PAP ,&
+ & PTS , PTH , PT ,&
+ & PQ , PCCO2 , POZN , PRMU0 ,&
+ & PFRCL , PTAUC , PASYC , POMGC ,&
+ & PFSUX , PFSUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KCOLS
+INTEGER(KIND=JPIM),INTENT(IN) :: KCLDLY(KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUC(KLON,2,KLEV+1)
+END SUBROUTINE SRTM_SRTM_224GP_MCICA
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol16.F90	(revision 3330)
@@ -0,0 +1,169 @@
+SUBROUTINE SRTM_TAUMOL16 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01   , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT      , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCH4  , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC , P_SELFFRAC, K_INDSELF , P_FORFAC  , P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG    , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 16:  2600-3250 cm-1 (low - H2O,CH4; high - CH4)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG16
+USE YOESRTA16, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT1  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL16',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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 I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT1*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1.0_JPRB - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1.0_JPRB - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1.0_JPRB - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1.0_JPRB - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(16) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(16) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  print 9001,LAY,IND0,IND1,INDS,INDF,FAC000,FAC010,FAC100,FAC110,FAC001,FAC011,FAC101,FAC111 &
+!   &,TAURAY,SELFFAC(LAY),SELFFRAC(LAY),FORFAC(LAY),FORFRAC(LAY)
+  9001 format(1x,'T16 ',5I4,13E12.3)
+
+!  DO IG = 1, NG(16)
+  DO IG = 1, NG16
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0   ,IG) + &
+!    & Z_FAC100 * ABSA(IND0 +1,IG) + &
+!    & Z_FAC010 * ABSA(IND0 +9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1   ,IG) + &
+!    & Z_FAC101 * ABSA(IND1 +1,IG) + &
+!    & Z_FAC011 * ABSA(IND1 +9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+!    print 9002,LAY,IG,ABSA(IND0,IG),ABSA(IND0+1,IG),ABSA(IND0+9,IG),ABSA(IND0+10,IG) & 
+!      &, ABSA(IND1,IG),ABSA(IND1+1,IG),ABSA(IND1+9,IG),ABSA(IND1+10,IG) & 
+!      &, SELFREFC(INDS+1,IG),SELFREFC(INDS,IG),FORREFC(INDF+1,IG),FORREFC(INDF,IG)
+    9002 format(1x,'U16 ',2I3,12E12.3)
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(16) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(16) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(16)
+  DO IG = 1, NG16
+    P_TAUG(I_LAY,IG) = P_COLCH4(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0  ,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1  ,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY  
+  ENDDO
+ENDDO
+
+!DO LAY=1,NLAYERS
+!  print 9003,LAY,(TAUG(LAY,IG),IG=1,NG16)
+9003 format(1x,'O16 ',I3,16E13.5)
+!END DO
+
+!----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL16',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL16
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol16.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol16.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol16.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL16&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC , P_SELFFRAC, K_INDSELF , P_FORFAC , P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG16
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL16
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol17.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol17.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol17.F90	(revision 3330)
@@ -0,0 +1,181 @@
+SUBROUTINE SRTM_TAUMOL17 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG17
+USE YOESRTA17, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL17',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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 I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(17) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(17) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(17)
+  DO IG = 1, NG17
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 4.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(17) + JS
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(17) + JS
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(17)
+  DO IG = 1, NG17
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSB(IND0,IG) + &
+!    & Z_FAC100 * ABSB(IND0+1,IG) + &
+!    & Z_FAC010 * ABSB(IND0+5,IG) + &
+!    & Z_FAC110 * ABSB(IND0+6,IG) + &
+!    & Z_FAC001 * ABSB(IND1,IG) + &
+!    & Z_FAC101 * ABSB(IND1+1,IG) + &
+!    & Z_FAC011 * ABSB(IND1+5,IG) + &
+!    & Z_FAC111 * ABSB(IND1+6,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSB(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+5,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+5,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSB(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+6,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+6,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL17',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL17
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol17.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol17.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol17.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL17&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG17
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL17
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol18.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol18.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol18.F90	(revision 3330)
@@ -0,0 +1,150 @@
+SUBROUTINE SRTM_TAUMOL18 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG18
+USE YOESRTA18, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY)
+ 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL18',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+      
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(18) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(18) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(18)
+  DO IG = 1, NG18
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS)  &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(18) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(18) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(18)
+  DO IG = 1, NG18
+    P_TAUG(I_LAY,IG) = P_COLCH4(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) +       &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL18',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL18
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol18.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol18.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol18.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL18&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG18
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL18
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol19.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol19.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol19.F90	(revision 3330)
@@ -0,0 +1,157 @@
+SUBROUTINE SRTM_TAUMOL19 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 19:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG19
+USE YOESRTA19, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL19',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+      
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(19) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(19) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(19)
+  DO IG = 1 , NG19
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) +  &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY   
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(19) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(19) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(19)
+  DO IG = 1 , NG19
+    P_TAUG(I_LAY,IG) = P_COLCO2(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY   
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL19',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL19
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol19.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol19.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol19.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL19&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG19
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL19
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol20.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol20.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol20.F90	(revision 3330)
@@ -0,0 +1,132 @@
+SUBROUTINE SRTM_TAUMOL20 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG20
+USE YOESRTA20, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, ABSCH4C, RAYL &
+ & , LAYREFFR  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL20',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(20) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(20) + 1
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(20)
+  DO IG = 1 , NG20
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & ((P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) +  &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) &
+     & + P_COLCH4(I_LAY) * ABSCH4C(IG)  
+!     &           + TAURAY &
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY 
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(20) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(20) + 1
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(20)
+  DO IG = 1 , NG20
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) + &
+     & P_COLCH4(I_LAY) * ABSCH4C(IG)  
+!     &           TAURAY + &
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY 
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL20',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL20
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol20.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol20.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol20.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL20&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG20
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL20
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol21.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol21.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol21.F90	(revision 3330)
@@ -0,0 +1,189 @@
+SUBROUTINE SRTM_TAUMOL21 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG21
+USE YOESRTA21, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL21',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+I_LAYSOLFR = K_LAYTROP
+      
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(21) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(21) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(21)
+  DO IG = 1 , NG21
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))  
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 4.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(21) + JS
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(21) + JS
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(21)
+  DO IG = 1 , NG21
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSB(IND0,IG) + &
+!    & Z_FAC100 * ABSB(IND0+1,IG) + &
+!    & Z_FAC010 * ABSB(IND0+5,IG) + &
+!    & Z_FAC110 * ABSB(IND0+6,IG) + &
+!    & Z_FAC001 * ABSB(IND1,IG) + &
+!    & Z_FAC101 * ABSB(IND1+1,IG) + &
+!    & Z_FAC011 * ABSB(IND1+5,IG) + &
+!    & Z_FAC111 * ABSB(IND1+6,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSB(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+5,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+5,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSB(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+6,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+6,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))  
+!     &           + TAURAY 
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL21',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL21
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol21.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol21.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol21.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL21&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG21
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL21
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol22.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol22.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol22.F90	(revision 3330)
@@ -0,0 +1,167 @@
+SUBROUTINE SRTM_TAUMOL22 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL , P_COLO2,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 22:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG22
+USE YOESRTA22, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO2(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY, Z_O2ADJ , Z_O2CONT  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL22',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     The following factor is the ratio of total O2 band intensity (lines 
+!     and Mate continuum) to O2 band intensity (line only).  It is needed
+!     to adjust the optical depths since the k's include only lines.
+Z_O2ADJ = 1.6_JPRB
+      
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_O2CONT = 4.35e-4*P_COLO2(I_LAY)/(350.0*2.0)
+  Z_SPECCOMB = P_COLH2O(I_LAY) + Z_O2ADJ*STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+!         ODADJ = SPECPARM + O2ADJ * (1. - SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(22) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(22) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(22)
+  DO IG = 1 , NG22
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) &
+     & + Z_O2CONT  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  Z_O2CONT = 4.35e-4*P_COLO2(I_LAY)/(350.0*2.0)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(22) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(22) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(22)
+  DO IG = 1 , NG22
+    P_TAUG(I_LAY,IG) = P_COLO2(I_LAY) * Z_O2ADJ * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) + &
+     & Z_O2CONT  
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL22',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL22
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol22.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol22.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol22.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL22&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL , P_COLO2,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG22
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO2(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL22
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol23.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol23.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol23.F90	(revision 3330)
@@ -0,0 +1,117 @@
+SUBROUTINE SRTM_TAUMOL23 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 23:  8050-12850 cm-1 (low - H2O; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG23
+USE YOESRTA23, ONLY : ABSA, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYLC &
+ & , LAYREFFR, GIVFAC   
+USE YOESRTWN , ONLY : NSPA
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY)
+ 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL23',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(23) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(23) + 1
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+
+!  DO IG = 1, NG(23)
+  DO IG = 1 , NG23
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & (GIVFAC * (P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+!  DO IG = 1, NG(23)
+  DO IG = 1 , NG23
+!    TAUG(LAY,IG) = COLMOL(LAY) * RAYLC(IG)
+!    SSA(LAY,IG) = 1.0
+    P_TAUG(I_LAY,IG) = 0.0_JPRB
+    P_TAUR(I_LAY,IG) = P_COLMOL(I_LAY) * RAYLC(IG) 
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL23',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL23
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol23.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol23.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol23.intfb.h	(revision 3330)
@@ -0,0 +1,34 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL23&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG23
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL23
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol24.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol24.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol24.F90	(revision 3330)
@@ -0,0 +1,161 @@
+SUBROUTINE SRTM_TAUMOL24 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL , P_COLO2   , P_COLO3,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 24:  12850-16000 cm-1 (low - H2O,O2; high - O2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG24
+USE YOESRTA24, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, ABSO3AC, ABSO3BC, RAYLAC, RAYLBC &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL24',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(24) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(24) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+
+!  DO IG = 1, NG(24)
+  DO IG = 1 , NG24
+    Z_TAURAY = P_COLMOL(I_LAY) * (RAYLAC(IG,JS) + &
+     & Z_FS * (RAYLAC(IG,JS+1) - RAYLAC(IG,JS)))  
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLO3(I_LAY) * ABSO3AC(IG) + &
+     & P_COLH2O(I_LAY) *  &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) +  &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))  
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) =  Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(24) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(24) + 1
+
+!  DO IG = 1, NG(24)
+  DO IG = 1 , NG24
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLBC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO2(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) + &
+     & P_COLO3(I_LAY) * ABSO3BC(IG)  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL24',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL24
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol24.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol24.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol24.intfb.h	(revision 3330)
@@ -0,0 +1,36 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL24&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL , P_COLO2 , P_COLO3,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG24
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL24
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol25.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol25.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol25.F90	(revision 3330)
@@ -0,0 +1,108 @@
+SUBROUTINE SRTM_TAUMOL25 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 25:  16000-22650 cm-1 (low - H2O; high - nothing)
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG25
+USE YOESRTA25, ONLY : ABSA &
+ & , SFLUXREFC, ABSO3AC, ABSO3BC, RAYLC &
+ & , LAYREFFR  
+USE YOESRTWN , ONLY : NSPA
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL25',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(25) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(25) + 1
+
+!  DO IG = 1, NG(25)
+  DO IG = 1 , NG25
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_COLO3(I_LAY) * ABSO3AC(IG)   
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+!  DO IG = 1, NG(25)
+  DO IG = 1 , NG25
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO3(I_LAY) * ABSO3BC(IG) 
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL25',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL25
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol25.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol25.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol25.intfb.h	(revision 3330)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL25&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG25
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL25
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol26.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol26.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol26.F90	(revision 3330)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_TAUMOL26 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG26
+USE YOESRTA26, ONLY : SFLUXREFC, RAYLC
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)                  :: P_FAC00(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FAC01(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FAC10(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FAC11(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_JP(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_JT(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_JT1(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_COLH2O(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_COLCO2(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)                  :: P_SELFFAC(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_SELFFRAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_INDSELF(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FORFAC(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FORFRAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_INDFOR(JPLAY) ! Argument NOT used
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL26',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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.  
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+!  DO IG = 1, NG(26)
+  DO IG = 1 , NG26 
+!    TAUG(LAY,IG) = COLMOL(LAY) * RAYLC(IG)
+!    SSA(LAY,IG) = 1.0
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUG(I_LAY,IG) = 0.0_JPRB
+    P_TAUR(I_LAY,IG) = P_COLMOL(I_LAY) * RAYLC(IG) 
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+!  DO IG = 1, NG(26)
+  DO IG = 1 , NG26
+!    TAUG(LAY,IG) = COLMOL(LAY) * RAYLC(IG)
+!    SSA(LAY,IG) = 1.0
+    P_TAUG(I_LAY,IG) = 0.0_JPRB
+    P_TAUR(I_LAY,IG) = P_COLMOL(I_LAY) * RAYLC(IG) 
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL26',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL26
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol26.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol26.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol26.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL26&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG26
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL26
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol27.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol27.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol27.F90	(revision 3330)
@@ -0,0 +1,110 @@
+SUBROUTINE SRTM_TAUMOL27 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLMOL  , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 27:  29000-38000 cm-1 (low - O3; high - O3)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG27
+USE YOESRTA27, ONLY : ABSA, ABSB &
+ & , SFLUXREFC, RAYLC &
+ & , LAYREFFR, SCALEKUR  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL27',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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 I_LAY = 1, K_LAYTROP
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(27) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(27) + 1
+
+!  DO IG = 1, NG(27)
+  DO IG = 1 , NG27
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO3(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG))  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(27) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(27) + 1
+
+!  DO IG = 1, NG(27)
+  DO IG = 1 , NG27
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO3(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) +  &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SCALEKUR * SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL27',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL27
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol27.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol27.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol27.intfb.h	(revision 3330)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL27&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLMOL , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG27
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL27
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol28.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol28.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol28.F90	(revision 3330)
@@ -0,0 +1,170 @@
+SUBROUTINE SRTM_TAUMOL28 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLMOL  , P_COLO2  , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 28:  38000-50000 cm-1 (low - O3,O2; high - O3,O2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG28
+USE YOESRTA28, ONLY : ABSA, ABSB &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL28',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     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 I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLO3(I_LAY) + STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(28) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(28) + JS
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(28)
+  DO IG = 1 , NG28
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG))   
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) 
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  Z_SPECCOMB = P_COLO3(I_LAY) + STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 4.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(28) + JS
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(28) + JS
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(28)
+  DO IG = 1 , NG28
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSB(IND0,IG) + &
+!    & Z_FAC100 * ABSB(IND0+1,IG) + &
+!    & Z_FAC010 * ABSB(IND0+5,IG) + &
+!    & Z_FAC110 * ABSB(IND0+6,IG) + &
+!    & Z_FAC001 * ABSB(IND1,IG) + &
+!    & Z_FAC101 * ABSB(IND1+1,IG) + &
+!    & Z_FAC011 * ABSB(IND1+5,IG) + &
+!    & Z_FAC111 * ABSB(IND1+6,IG))   
+     & (&
+     & (1. - Z_FS) * ( ABSB(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+5,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+5,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSB(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+6,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+6,IG) * P_FAC11(I_LAY) ) &
+     & ) 
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL28',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL28
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol28.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol28.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol28.intfb.h	(revision 3330)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL28&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLMOL , P_COLO2 , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG28
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL28
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol29.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol29.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol29.F90	(revision 3330)
@@ -0,0 +1,128 @@
+SUBROUTINE SRTM_TAUMOL29 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 29:  820-2600 cm-1 (low - H2O; high - CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2002-10-03 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG29
+USE YOESRTA29, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, ABSH2OC, ABSCO2C, RAYL &
+ & , LAYREFFR  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY)
+ 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!-- from FOREIGN
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL29',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+! 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 I_LAY = 1, K_LAYTROP
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(29) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(29) + 1
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(29)
+  DO IG = 1, NG29
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & ((P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) +  &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) &
+     & + P_COLCO2(I_LAY) * ABSCO2C(IG)   
+!     &           + TAURAY &
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(29) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(29) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(29)
+  DO IG = 1 , NG29
+    P_TAUG(I_LAY,IG) = P_COLCO2(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   &
+     & + P_COLH2O(I_LAY) * ABSH2OC(IG)   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL29',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL29
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol29.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol29.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_taumol29.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL29&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG29
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL29
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_vrtqdr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_vrtqdr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_vrtqdr.F90	(revision 3330)
@@ -0,0 +1,199 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_VRTQDR &
+ & ( KLEV , KW,&
+ & PREF , PREFD, PTRA , PTRAD,&
+ & PDBT , PRDND, PRUP , PRUPD , PTDBT,&
+ & PFD  , PFU  &
+ & )  
+ 
+!**** *SRTM_VRTQDR* - VERTICAL QUADRATURE
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE PERFORMS THE VERTICAL INTEGRATION
+
+!**   INTERFACE.
+!     ----------
+
+!          *SRTM_VRTQDR* IS CALLED FROM *SRTM_SPCVRT*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        from Howard Barker
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 02-10-04
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPGPT 
+
+!USE YOESWN   , ONLY : NDBUG
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREFD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTRA(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTRAD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBT(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRDND(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRUP(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRUPD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTDBT(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PFD(JPLAY+1,JPGPT) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PFU(JPLAY+1,JPGPT) 
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZTDN(JPLAY+1)  
+
+INTEGER(KIND=JPIM) :: IKP, IKX, JK, I_NDBUG
+
+REAL(KIND=JPRB) :: ZREFLECT
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+! PREF(JK)   direct reflectance
+! PREFD(JK)  diffuse reflectance
+! PTRA(JK)   direct transmittance
+! PTRAD(JK)  diffuse transmittance
+
+! PDBT(JK)   layer mean direct beam transmittance
+! PTDBT(JK)  total direct beam transmittance at levels
+                   
+IF (LHOOK) CALL DR_HOOK('SRTM_VRTQDR',0,ZHOOK_HANDLE)
+I_NDBUG=3
+    
+!-- link lowest layer with surface
+             
+ZREFLECT=1.0_JPRB / (1.0_JPRB -PREFD(KLEV+1)*PREFD(KLEV))
+PRUP(KLEV)=PREF(KLEV)+(PTRAD(KLEV)* &
+ & ((PTRA(KLEV)-PDBT(KLEV))*PREFD(KLEV+1)+ &
+ & PDBT(KLEV)*PREF(KLEV+1)))*ZREFLECT  
+PRUPD(KLEV)=PREFD(KLEV)+PTRAD(KLEV)* &
+ & PTRAD(KLEV)*PREFD(KLEV+1)*ZREFLECT  
+
+!IF (NDBUG.LE.1) THEN
+!  print 9201,PRUP(KLEV),PRUPD(KLEV)
+9201 format(1x,'link surf:',6E13.6)
+!  print *,'SRTM_VRTQDR after linking with surface layer'
+!END IF
+    
+!-- pass from bottom to top 
+
+DO JK=1,KLEV-1
+  IKP=KLEV+1-JK                       
+  IKX=IKP-1
+!  print 9202,JK,IKP,IKX
+  9202  format(1x,'Pass from bottom to top:',3I3)      
+  ZREFLECT=1.0_JPRB / (1.0_JPRB -PRUPD(IKP)*PREFD(IKX))
+  PRUP(IKX)=PREF(IKX)+(PTRAD(IKX)* &
+   & ((PTRA(IKX)-PDBT(IKX))*PRUPD(IKP)+ &
+   & PDBT(IKX)*PRUP(IKP)))*ZREFLECT  
+  PRUPD(IKX)=PREFD(IKX)+PTRAD(IKX)* &
+   & PTRAD(IKX)*PRUPD(IKP)*ZREFLECT  
+
+!  print 9203,PRUP(IKX),PRUPD(IKX)
+  9203 format(1x,'bot2top:',6E13.6)
+ENDDO
+!print *,'SRTM_VRTQDR after passing from bottom to top'
+    
+!-- upper boundary conditions
+
+ZTDN(1)=1.0_JPRB
+PRDND(1)=0.0_JPRB
+ZTDN(2)=PTRA(1)
+PRDND(2)=PREFD(1)
+
+!IF (NDBUG.LE.1) THEN
+!  print 9204,ZTDN(1),PRDND(1),ZTDN(2),PRDND(2)
+9204 format(1x,'link upper bound:',6E13.6)
+!  print *,'SRTM_VRTQDR after upper boundary conditions'
+!END IF
+    
+!-- pass from top to bottom
+
+DO JK=2,KLEV
+  IKP=JK+1
+  ZREFLECT=1.0_JPRB / (1.0_JPRB -PREFD(JK)*PRDND(JK))
+  ZTDN(IKP)=PTDBT(JK)*PTRA(JK)+ &
+   & (PTRAD(JK)*((ZTDN(JK)-PTDBT(JK))+ &
+   & PTDBT(JK)*PREF(JK)*PRDND(JK))) * ZREFLECT  
+  PRDND(IKP)=PREFD(JK)+PTRAD(JK)*PTRAD(JK) &
+   & *PRDND(JK)*ZREFLECT  
+
+!  IF (NDBUG.LE.1) THEN
+!    print 9205,ZTDN(IKP),PRDND(IKP)
+  9205 format(1x,'top2bot2:',6E13.6)
+!  END IF
+
+ENDDO
+!print *,'SRTM_VRTQDR after passing from top to bottom'
+                                              
+!-- up and down-welling fluxes at levels
+
+DO JK=1,KLEV+1
+!  IF (NDBUG.LE.1) THEN
+!    print 9207,JK,PRDND(JK),PRUPD(JK)
+!    print 9208,JK,PTDBT(JK),PRUP(JK),ZTDN(JK)
+  9207 format(1x,'A',I3,4E13.6)      
+  9208 format(1x,'B',I3,4E13.6)      
+!  END IF 
+
+  ZREFLECT=1.0_JPRB / (1.0_JPRB - PRDND(JK)*PRUPD(JK))
+  PFU(JK,KW)=(PTDBT(JK)*PRUP(JK) + &
+   & (ZTDN(JK)-PTDBT(JK))*PRUPD(JK))*ZREFLECT  
+  PFD(JK,KW)=PTDBT(JK) + (ZTDN(JK)-PTDBT(JK)+ &
+   & PTDBT(JK)*PRUP(JK)*PRDND(JK))*ZREFLECT  
+
+!  IF (NDBUG.LE.2) THEN
+!    print 9206,JK,PFU(JK,KW),PFD(JK,KW)
+  9206 format(1x,'fluxes:',I3,6E13.6)
+!  END IF
+
+ENDDO
+!print *,'SRTM_VRTQDR after up and down flux'
+   
+!print *,'SRTM_VRTQDR about to come out'
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SRTM_VRTQDR',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_VRTQDR
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_vrtqdr.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_vrtqdr.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_vrtqdr.intfb.h	(revision 3330)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE SRTM_VRTQDR&
+ & ( KLEV , KW,&
+ & PREF , PREFD, PTRA , PTRAD,&
+ & PDBT , PRDND, PRUP , PRUPD , PTDBT,&
+ & PFD , PFU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPGPT
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KW
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREFD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTRA(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTRAD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBT(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRDND(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRUP(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRUPD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTDBT(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PFD(JPLAY+1,JPGPT)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PFU(JPLAY+1,JPGPT)
+END SUBROUTINE SRTM_VRTQDR
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su0phy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su0phy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su0phy.F90	(revision 3330)
@@ -0,0 +1,1122 @@
+SUBROUTINE SU0PHY(KULOUT)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!USE YOMLUN   , ONLY : NULOUT   ,NULNAM  MPL 14.04.09
+USE YOMLUN   , ONLY : NULOUT
+! Ce qui concerne LSLPHY commente par MPL 24.11.08
+!USE YOMSLPHY , ONLY : LSLPHY
+USE YOMPHY   , ONLY : NBITER   ,NOIR, NDPSFI, NPHYREP ,LMPHYS   ,LREASUR  ,&
+ & LCAPE    ,LCONDWT  ,LCVPP    ,LCVDD    ,LHUNEG   ,&
+ & LNEIGE   ,LRNUMX   ,LCLSATUR,L2PHYS    ,LCVRA    ,LGWD     ,&
+ & LGWDC    ,LHMTO    ,LNEBCO   ,LNEBN    ,LNEBR    ,LQXRTGH, LHUCN,&
+ & LNEBT    ,LND2DIFF  ,LOZONE   ,LRAY     ,LRAYFM   ,LRAYFM15 ,&
+ & LRRMES   ,LSFHYD   ,LSNV     ,LSOLV    ,LFGEL    ,&
+ & LSRCON   ,LSRCONT  ,LSLC     ,LRRGUST  ,LRELAXW  ,&
+ & LAEROSEA ,LAEROLAN ,LAEROSOO ,LAERODES ,LAEROVOL ,LAEROSUL ,LRELAXT  ,&
+ & LO3ABC   ,LSTRA    ,LSTRAS   ,LTHERMO  ,LVDIF    ,&
+ & LRAYLU   ,LREWS    ,LRPROX   ,LRMIX    ,LRSTAB   ,&
+ & LRAUTOEV ,LRAYPL   ,LCVLIS   ,LCVCAS   ,LVGSN    ,&
+ & LNEBNXR  ,LFPCOR   ,LNOIAS   ,CGMIXLEN ,LPRGML   ,LGLT     ,&
+ & LNEWD    ,LRTPP    ,LRTDL    ,LDIFCONS ,LECT     ,&
+ & LCVPGY   ,LPROCLD  ,LEVAPP   ,LCOLLEC  ,LPTKE    ,L3MT     ,&
+ & LCVPRO   ,LCDDPRO  ,LSCMF    ,LVOIGT   ,LVFULL   ,&
+ & LNSMLIS, LPHCDPI   ,&
+ & NPHY     ,JPHYEC   ,JPHYMF   ,JPHYARO  , & 
+ & LAJUCV   ,LPBLE    ,LNEBGR   ,LNEBGY   ,&
+ & LBCCOND  ,LCVRAV3  ,LZ0HSREL ,LBLVAR   ,&
+ & LADJCLD  ,LAUTONEB ,LSSD     ,LCVPPKF  ,LECTFL ,&
+ & LPIL     ,LPHSPSH  ,LSMROT   ,LSMNIMBT ,&
+ & LSMTPS   ,L1DRHCRI ,LGWRHCRI ,NSMTBOT   , &
+ & NSMDNEB  ,NPRAG    ,NPRAC    ,NPRRI    ,LSTRAPRO, LNEWSTAT
+USE YOMARPHY , ONLY : LMPA    ,LMICRO   ,LTURB    ,&
+ & LMSE  ,LKFBCONV ,LKFBD    ,LKFBS    ,LUSECHEM ,&
+ & LORILAM  ,LRDUST, LBUFLUX ,CCOUPLING 
+USE YOEPHY   , ONLY : LEPHYS    ,&
+ & LECOND   ,LECUMF   ,LEDCLD   ,LEEVAP   ,LEGWDG   ,&
+ & LEOZOC   ,LEQNGT   ,LERADI   ,LERADS   ,&
+ & LESHCV   ,LESICE   ,LESURF   ,LEVDIF   ,&
+ & LAGPHY   ,LEPCLD   ,LECO2DIU ,&
+ & LEO3CH   ,LBUD23   ,LEMETHOX ,LERA40   ,LECURR   ,LVDFTRAC ,&
+ & LEOCWA   ,LEOCCO   ,LEOCSA   ,LMFTRAC  ,LERAIN   ,LE4ALB   ,&
+ & RTHRFRTI ,NEPHYS_PCFULL, LEMWAVE
+USE YOEWCOU  , ONLY : NSTPW    ,RSOUTW   ,RNORTW   ,RDEGREW  ,&
+ & LWCOU    ,LWCOU2W
+! Ce qui concerne RCLDTOPP commente par MPL 24.11.08
+!USE YOECLDP  , ONLY : RCLDTOPP  
+USE YOPHLC   , ONLY : ALPHA    ,AH0      ,USTARL   ,&
+ & USTARS   ,ALANDZ0  ,ASEAZ0   ,LSPHLC   ,LVDFLC   ,&
+ & LSDRLC   ,LCZDEB   ,LZMCON   ,LKEXP    ,LVDFDS   ,&
+ & LSDRDS  
+USE YOMCT0   , ONLY : NCONF    ,&
+ & LRETCFOU ,LWRTCFOU, LAROME,LFPOS,LPC_FULL
+USE YOMCT0B  , ONLY : LECMWF
+! Tous les YOM* ci-dessous commentes par MPL 24.11.08
+!USE YOMINI   , ONLY : NEINI
+!USE YOMDFI   , ONLY : NEDFI
+!USE YOMVRTL  , ONLY : L131TL
+!USE YOPHNC   , ONLY : LETRAJP  ,LETRAJPT ,LERADI2  ,LERADS2   ,&
+! & LERADSW2 ,LERADN2 ,LERADFL2 ,LEDCLD2  ,LENCLD2   ,&
+! & LEVAPLS2 ,LEVDIF2 ,LEGWDG2  ,LECUMF2  ,LECUBM2   ,&
+! & LECOND2  ,LEQNGT2 ,LESURF2  ,LEKPERT  ,LTRACLNPH
+!USE YOEPHLI  , ONLY : LENOPERT
+!USE YOMNCL   , ONLY : LNCLIN   ,LREGCL
+USE YOMSIMPHL, ONLY : LSIMPH   ,LTRAJPS  ,LTRAJPST ,&
+ & LSMOOTHD ,LSMOOTHA ,LSMOOTHB ,LCVRASP  ,&
+ & LGWDSP   ,LRAYSP   ,LSTRASP  ,LVDIFSP  ,LRRMESSP ,LCLOUDS  
+USE YOMRCOEF , ONLY : LRCOEF    ,LTLADDIA ,LGLOBRAD
+!USE YOMIOP   , ONLY : NPCKFT95 ,NEXPBT95
+!USE YOMDYNA  , ONLY : LGWADV
+!USE YOMCOAPHY   , ONLY : NPHYINT
+
+!**** *SU0PHY*   - Initialize common YOxPHY controlling physics
+
+!     Purpose.
+!     --------
+!           Initialize YOxPHY, the common that includes the
+!           basic switches for the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SU0PHY(KULOUT) from SU0YOMA
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!        or
+
+!        Documentation ARPEGE (depending on which physics will be used)
+
+!     Author.
+!     -------
+!        J.-J. Morcrette                    *ECMWF*
+!        J.-F. Geleyn for the ARPEGE rewriting.
+
+!     Modifications.
+!     --------------
+!        Original : 91-11-12
+!        Modified 92-02-22 by M. Deque (tests of consistency with *YOMDPHY*)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified 94-02-28 by M.  Deque  : Shallow convection clouds
+!        Modified 93-10-28 by Ph. Dandin : FMR scheme with MF physics
+!        Modified 93-08-24 by D. Giard (test of consistency with digital filter)
+!        Modified by M. Hamrud    : 93-06-05 Make use of LECMWF for ECMWF
+!        Modified 95-11-27 by M. Deque (2nd call to APLPAR)
+!        Modified 96-01-10 by M. Janiskova (logical switches for simpl.ph.par.)
+!        Modified 97-02-28 by J.M. Piriou (cloudiness scheme switch LNEBN)
+!        Modified 97-04-17 by J.M. Piriou (default values)
+!        Modified by F. Rabier    : 96-09-25 Full physics set-up for 801 job
+!        Modified by G. Hello     : 97-07-31 Full MF physics set-up for 801
+!        Modified by M. Deque     : 97-05-25 Frozen FMR
+!        Modified by E.Bazile     : 97-11-18 Soil freezing (LFGEL)
+!        Modified by M. Deque     : 98-01-05 Cleaning of NDPSFI
+!        Modified by M. Janiskova : 98-11-18 Full MF physics set-up for 131
+!                                 : 99-02-21 Set-up for radiation coef.
+!        Modified by C. Jakob     : 98-04    Methane oxidation
+!        Modified by T. Bergot    : 98-08  Full MF physics set-up for 601
+!        Modified by E.Bazile     : 99-02-12 Superficial soil freezing (LFGELS)
+!        Modified by L. Gerard    : 98-12-07 LSRCON
+!        Modified by J.M. Piriou  : 99-04-19 Moon radiation
+!        Modified 99-02-17 by K. YESSAD: options LRETCFOU, LWRTCFOU.
+!        Modified by J.M. Piriou  : 99-06-18 LCVLIS and LCVCAS
+!        Modified by J.M. Piriou  : 99-07-07 Introduce reproductibility in physics (NPHYREP).
+!        Modified by D. Giard     : 2000-10-25 LVGSN (snow and vegetation)
+!        Modified by E. Bazile    : 2000-11-12 CYCORA's default value.      
+!        Modified by F. Bouyssel  : 2001-03-03 LRRMESSP     
+!        Modified by J.M. Piriou  : 2001-11-27 LSRCONT
+!        Modified by J.M. Piriou  : 2002-11-15 LNEBNXR
+!        Modified by F. Bouyssel  : 2002-06-25 LCVPPLIS and LRRGUST
+!        R. El Khatib : 2001-08-07 Pruning options
+!        J.M. Piriou  : 2002-01-10 set default values to operational ones.
+!        Modified by A.Beljaars   : 2002-11-12 LECURR (Ocean current)
+!        Modified by Y. Bouteloup : 2002-03-05 LO3ABC
+!        Modified 08-2002 C. Smith : use "w" as prognostic variable in the
+!         semi-lag advection of vertical divergence in the NH model. 
+!        Modified by F. Bouyssel  : 2002-12-18 Cleaning of LCVPPLIS
+!        Modified by E. Bazile      : 2003-02-13 LFPCOR
+!        Modified by E. Bazile      : 2003-02-18 LNOIAS
+!        Modified by M. Janiskova : 2003-05 set-up for ECMWF stat.cloud scheme
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
+!        Modified by Y Seity      : 2004-11-16 For AROME setup, default values 
+!            for namarphy keys,read namarphy, switch off arp/ald physics keys
+!        Modified by R. Brozkova : 2004-11 modifs for Xu-Randall cloud. scheme
+!        P. Marquet and F. Bouyssel : 2004-08-18 (Lopez) 
+!        G. Hello : 2005-04-25 Lground initialization (surfex and arome)
+!        Y. Seity : 2005-09-25 LRDUST, LORILAM and LUSECHEM initialisation
+!                 for AROME
+!        T. Kovacic : 2006-03-17 LPHCDPI, NPHY, LBUFLUX; for DDH and BUDGET
+!        Modified by F. Bouyssel  : 2005-01-25 Change default of LNSMLIS
+!        D.Salmond     22-Nov-2005 Mods for coarser/finer physics
+!        P. Lopez      14-02-2006  Added switch LTRACLNPH for including  
+!                                  tracers in linearized physics
+!        R.Brozkova : pre ALARO 0 modset: mixing lengths computation
+!        Modified by GMGEC/EAC   : 2006-03 list of modif.
+!                 P. Marquet  : 99-01-18 Dry Conv. Adj.     (LAJUCV)
+!                 P. Marquet  : 02-02-14 YOMPHY
+!                 P. Marquet  : 02-06-18 LBCCOND (Becht/Chab ACCOND)
+!                 P. Marquet  : 02-08-30 LCVRAV3    (old ACCVIMP_V3)
+!                     and new cloud model : 2006-03-03
+!        Modified by E. Bazile    : 2006-04-11 Add LPBLE in case of LECT
+!        Modified by E. Bazile    : 2006-04-20 Add LADJCLD,LCVPPKF, LECTFL
+!                 JF. Gueremy : LZ0HSREL initialised (used in ACHMT)
+!        Modified by F. Bouyssel  : 2006-10-30 Add LAUTONEB, LSSD
+!        Modified by F. Vana     : 2006-01-30 LPTKE
+!        Modifed by D. Banciu    : 2006-08-31 LND2DIFF
+!        M. Bellus : 28-Sep-2006 ALARO-0 phasing: L3MT,LCVPRO,LCDDPRO,LSCMF,
+!                    LVOIGT,LVFULL,LPIL,LPHSPSH,LSMROT,LSMNIMBT,LSMTPS,
+!                    L1DRHCRI,LGWRHCRI,NSMTBOT,NSMDNEB,NPRAG,NPRAC,NPRRI,
+!                    LSTRAPRO,LNEWSTAT ; removed duplicity in LPBLE
+!        JJMorcrette 20060721 MODIS albedo
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: IERR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "suscm.intfb.h"
+
+!     ------------------------------------------------------------------
+
+#include "namphy.h"
+!#include "namarphy.h"
+#include "naephy.h"
+#include "naphlc.h"
+!#include "namtrajp.h"
+!#include "namsimphl.h"
+!#include "namrcoef.h"
+
+!     ------------------------------------------------------------------
+print*,'Dans SUOPHY ', KULOUT
+
+IF (LHOOK) CALL DR_HOOK('SU0PHY',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!*       1.1.1 Set default values for Meteo-France physics
+!              -------------------------------------------
+
+LMPHYS=.FALSE.
+LREASUR=.TRUE.
+
+CGMIXLEN='Z'
+LPRGML=.FALSE.
+LCAPE=.FALSE.
+LCONDWT=.FALSE.
+LCVCAS=.FALSE.
+LCVLIS=.FALSE.
+LCVPP=.FALSE.
+LCVPPKF=.FALSE.
+LCVDD=.FALSE.
+LHUNEG=.TRUE.
+LNEIGE=.TRUE.
+LRNUMX=.FALSE.
+LCLSATUR=.FALSE.
+LVOIGT=.FALSE.
+LVFULL=.FALSE.
+LRRGUST=.FALSE.
+L2PHYS=.FALSE.
+LO3ABC=.FALSE.
+LAEROSEA=.FALSE.
+LAEROLAN=.FALSE.
+LAEROSOO=.FALSE.
+LAERODES=.FALSE.
+LAEROVOL=.FALSE.
+LAEROSUL=.FALSE.
+LRELAXT=.FALSE.
+LRELAXW=.FALSE.
+LE4ALB=.FALSE.
+LGLT=.FALSE.
+LNEWD=.FALSE.
+LDIFCONS=.FALSE.
+LECT=.FALSE.
+LPTKE=.FALSE.
+LECTFL=.FALSE.
+LPBLE=.FALSE.
+LCVPGY=.FALSE.
+L3MT=.FALSE.
+
+LCVRA=.FALSE.
+LGWDC=.FALSE.
+LGWD=.FALSE.
+LHMTO=.FALSE.
+LNEBCO=.FALSE.
+LNEBN=.FALSE.
+LNEBNXR=.FALSE.
+LNEBR=.FALSE.
+LNEBT=.FALSE.
+LND2DIFF=.FALSE.
+LQXRTGH=.FALSE.
+LHUCN=.FALSE.
+LOZONE=.FALSE.
+LRAY=.FALSE.
+LRAYLU=.FALSE.
+LREWS=.FALSE.
+LRPROX=.FALSE.
+LRMIX=.FALSE.
+LRSTAB=.FALSE.
+LRAUTOEV=.FALSE.
+LRTPP=.FALSE.
+LRTDL=.FALSE.
+LRAYPL=.FALSE.
+LRAYFM=.FALSE.
+LRAYFM15=.FALSE.
+LRRMES=.FALSE.
+LSFHYD=.FALSE.
+LSNV=.FALSE.
+LSOLV=.FALSE.
+LFGEL=.FALSE.
+LSRCON=.FALSE.
+LSRCONT=.FALSE.
+LSLC=.FALSE.
+LSTRA=.FALSE.
+LSTRAS=.FALSE.
+LTHERMO=.FALSE.
+LVDIF=.FALSE.
+LVGSN=.FALSE.
+LFPCOR=.FALSE.
+LNOIAS=.FALSE.
+LPHCDPI=.FALSE.
+LBLVAR=.FALSE.
+
+LZ0HSREL=.FALSE.
+
+NBITER=2
+NDPSFI=0
+NPHYREP=1
+NOIR=0
+
+! ---------------------------------------------------
+! ALARO-0 (cloud)
+! ---------------------------------------------------
+LPIL=.FALSE.
+LSTRAPRO=.FALSE.
+LNEWSTAT=.TRUE.
+LPHSPSH=.FALSE. ! Pseudo Historic Surface Precip Sensible Heat Flux
+LSMROT=.FALSE.
+LSMTPS=.FALSE.
+LSMNIMBT=.FALSE.
+L1DRHCRI=.FALSE.
+LGWRHCRI=.FALSE.
+NSMTBOT=0 ! interpolate
+NSMDNEB=2 ! gradient limitation
+NPRAG=1
+NPRAC=1
+NPRRI=1
+! ---------------------------------------------------
+! ALARO-0 (prognostic convection)
+! ---------------------------------------------------
+LCVPRO=.FALSE.
+LCDDPRO=.FALSE. 
+LSCMF=.FALSE.
+
+! - - - - - - - - - - - - - - - - - - - - - - - - - -
+! Cloud and precipitation prognostic scheme (Lopez) :
+! - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+LPROCLD=.FALSE.
+LEVAPP=.TRUE.
+LCOLLEC=.TRUE.
+LNSMLIS=.TRUE.
+LADJCLD=.TRUE.
+LAUTONEB=.FALSE.
+LSSD=.FALSE.
+
+!AROME physics
+LMPA=.FALSE.
+LMICRO=.FALSE.
+LTURB=.FALSE.
+LMSE=.FALSE.
+LKFBCONV=.FALSE.
+LKFBD=.FALSE.
+LKFBS=.FALSE.
+LUSECHEM=.FALSE.
+LORILAM=.FALSE.
+LRDUST=.FALSE.
+LBUFLUX=.TRUE.
+CCOUPLING='E'
+
+! - - - - - - - - - - -
+! Module YOMPHY :
+! - - - - - - - - - - -
+
+LAJUCV=.FALSE.
+LNEBGR=.FALSE.
+LNEBGY=.FALSE.
+LBCCOND=.FALSE.
+
+LCVRAV3=.FALSE.
+
+!*    1.1.2  Set default values for simplified physical parametrization
+!            of Meteo-France
+!     -----------------------------------------------------------------
+
+LSIMPH=.FALSE.
+LTRAJPS=.FALSE.
+LTRAJPST=.FALSE.
+LSMOOTHD=.FALSE.
+LSMOOTHA=.FALSE.
+LSMOOTHB=.FALSE.
+LCLOUDS=.FALSE.
+
+LCVRASP=.FALSE.
+LGWDSP=.FALSE.
+LRAYSP=.FALSE.
+LSTRASP=.FALSE.
+LVDIFSP=.FALSE.
+LRRMESSP=.FALSE.
+
+LRCOEF=.FALSE.
+LTLADDIA=.FALSE.
+LGLOBRAD=.FALSE.
+
+!*    1.2.1  Set default values for ECMWF physics package
+!            --------------------------------------------
+
+LEPHYS=.FALSE.
+LAGPHY=.TRUE.
+
+LECOND=.FALSE.
+LEPCLD=.FALSE.
+LECUMF=.FALSE.
+LEDCLD=.FALSE.
+LEEVAP=.TRUE.
+LEGWDG=.FALSE.
+LEOZOC=.FALSE.
+LEQNGT=.FALSE.
+LERADI=.FALSE.
+LERADS=.FALSE.
+LESHCV=.FALSE.
+LESICE=.TRUE.
+LESURF=.FALSE.
+LEVDIF=.FALSE.
+LEOCWA=.FALSE.
+LEOCCO=.FALSE.
+LEOCSA=.FALSE.
+LEMETHOX=.FALSE.
+LERA40=.FALSE.
+LECURR=.FALSE.
+LVDFTRAC=.TRUE.
+LMFTRAC=.TRUE.
+LERAIN=.FALSE.
+LE4ALB=.FALSE.
+RTHRFRTI=0.0_JPRB
+!NPHYINT=0
+LE4ALB=.FALSE.
+
+!-------------------------------------------------------
+! pressure above which cloud scheme is not called
+! !!!WARNING!!! this has to be in the part of the domain 
+! where the pure pressure level grid is used, otherwise
+! the code is not bit-reproducible!!!
+! Don't call the cloud scheme for pressures lower than 1hPa
+!RCLDTOPP=100.0_JPRB
+
+!--------------------------------------------------------
+
+!*     1.2.2  Set-up linearized physical parametrization of ECMWF
+!             ---------------------------------------------------
+
+!LETRAJP = .FALSE.
+!LETRAJPT= .FALSE.
+!LERADI2 = .FALSE.
+!LERADS2 = .FALSE.
+!LERADSW2= .FALSE.
+!LERADN2 = .FALSE.
+!LERADFL2= .FALSE.
+!LEDCLD2 = .FALSE.
+!LENCLD2 = .FALSE.
+!LEVAPLS2= .FALSE.
+!LEVDIF2 = .FALSE.
+!LEGWDG2 = .FALSE.
+!LECUMF2 = .FALSE.
+!LECUBM2 = .FALSE.
+!LECOND2 = .FALSE.
+!LEQNGT2 = .FALSE.
+!LESURF2 = .FALSE.
+!LEKPERT = .FALSE.
+!LNCLIN  = .FALSE.
+!LREGCL  = .FALSE.
+!LTRACLNPH = .FALSE.
+
+! No perturbation of surface arrays
+!LENOPERT = .TRUE.
+
+!*       Packing parameters
+!        -------------------
+!NPCKFT95 = 1
+!NEXPBT95 = 6
+
+!     LOGICAL FOR THE VERT DIFF SCHEME VDIFLCZ USED IN CONF 601
+
+LSPHLC  = .FALSE.
+LVDFLC  = .FALSE.
+LVDFDS  = .TRUE.
+LSDRLC  = .TRUE.
+LSDRDS  = .FALSE.
+LCZDEB  = .FALSE.
+LZMCON  = .TRUE.
+LKEXP   = .TRUE.
+ALPHA   = 3._JPRB
+AH0     = 1000.0_JPRB
+USTARL  = 0.5_JPRB
+USTARS  = 0.2_JPRB
+ALANDZ0 = 0.05_JPRB
+ASEAZ0  = 0.0005_JPRB
+
+NSTPW=2
+!     NSTPW=30
+
+LWCOU=.FALSE.
+LWCOU2W=.FALSE.
+
+!  Setup for 3 degree resolution wave model
+
+!     RNORTW= 72.0
+!     RSOUTW=-63.0
+!     RDEGREW=3.0
+
+!  Setup for 1.5 degree resolution wave model
+
+RNORTW= 81.0_JPRB
+RSOUTW=-81.0_JPRB
+RDEGREW=1.5_JPRB
+
+!        1.3 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+  LEPCLD=.TRUE.
+  LEVDIF=.TRUE.
+  LEOCWA=.FALSE.
+  LEOCCO=.FALSE.
+  LEOCSA=.TRUE.
+  LESURF=.TRUE.
+  LECOND=.FALSE.
+  LECUMF=.TRUE.
+  LEEVAP=.TRUE.
+  LEGWDG=.TRUE.
+  LEOZOC=.TRUE.
+  LEQNGT=.TRUE.
+  LERADI=.TRUE.
+  LERADS=.TRUE.
+  LESICE=.TRUE.
+  LEDCLD=.TRUE.
+  LEO3CH=.FALSE.
+  LECO2DIU=.FALSE.
+  LEMETHOX=.TRUE.
+  IF(NCONF == 1) THEN
+    LEPHYS=.TRUE.
+  ENDIF
+  IF(NCONF == 131) THEN
+!   LERADI2 = .TRUE.
+!   LERADS2 = .TRUE.
+!   LEVDIF2 = .TRUE.
+!   LEGWDG2 = .TRUE.
+!   LECUMF2 = .TRUE.
+!   LECOND2 = .TRUE.
+!    IF(L131TL) THEN
+!      LEPHYS=.TRUE.
+!      LECOND=.TRUE.
+!      LEPCLD=.FALSE.
+!    ENDIF
+    LSPHLC=.TRUE.
+    LVDFLC=.TRUE.
+    LSDRLC=.TRUE.
+    LZMCON=.TRUE.
+    LKEXP =.TRUE.
+  ENDIF
+  IF (NCONF == 401 .OR. NCONF == 501) THEN
+    LEPHYS = .TRUE.
+    LECOND = .TRUE.
+    LEPCLD = .FALSE.
+
+!   LETRAJP = .TRUE.
+!   LERADI2 = .TRUE.
+!   LERADS2 = .TRUE.
+!   LEVDIF2 = .TRUE.
+!   LEGWDG2 = .TRUE.
+!   LECUMF2 = .TRUE.
+!   LECOND2 = .TRUE.
+  ENDIF
+
+  IF(NCONF == 601.OR.NCONF == 801) THEN
+
+!      Full physics when computing the trajectory
+
+    LEPHYS=.TRUE.
+
+!      Simple scheme for TL and ADJ
+
+    LSPHLC  = .TRUE.
+    LVDFLC  = .TRUE.
+    LVDFDS  = .TRUE.
+    LSDRLC  = .TRUE.
+    LSDRDS  = .TRUE.
+    LCZDEB  = .FALSE.
+    LZMCON  = .TRUE.
+    LKEXP   = .TRUE.
+    ALPHA   = 3._JPRB
+    AH0     = 1000.0_JPRB
+    USTARL  = 0.5_JPRB
+    USTARS  = 0.2_JPRB
+    ALANDZ0 = 0.05_JPRB
+    ASEAZ0  = 0.0005_JPRB
+
+  ENDIF
+  NPHY = JPHYEC
+ELSE
+  IF ((NCONF == 1).OR.(NCONF == 131).OR.(NCONF == 401)&
+     & .OR.(NCONF == 501).OR.(NCONF == 601)&
+     & .OR.(NCONF == 701).OR.(NCONF == 801)) THEN  
+    LAGPHY=.FALSE.
+    LCVCAS=.TRUE.
+    LCVDD=.TRUE.
+    LCVLIS=.TRUE.
+    LCVPP=.TRUE.
+    LSRCONT=.FALSE.
+    LCVRA=.TRUE.
+    LFGEL=.TRUE.
+    LGWD=.TRUE.
+    LHMTO=.TRUE.
+    LMPHYS=.TRUE.
+    LNEBN=.TRUE.
+    LNEBT=.FALSE.
+    LNEBNXR=.FALSE.
+    LNEIGE=.TRUE.
+    LRAY=.TRUE.
+    LRAYLU=.TRUE.
+    LRAYPL=.TRUE.
+    LRRMES=.TRUE.
+    LSFHYD=.TRUE.
+    LSOLV=.TRUE.
+    LSRCON=.TRUE.
+    LSTRA=.TRUE.
+    LTHERMO=.TRUE.
+    LVDIF=.TRUE.
+    NPHY = JPHYMF
+    IF(LAROME.AND..NOT.LFPOS) THEN
+      !extinction of MF phsic's keys for arome's run
+      !lfpos is added for 927 confs for example.
+      LCVRA=.FALSE.
+      LGWD=.FALSE.
+      LGWDC=.FALSE.
+      LNEBCO=.FALSE.
+      LNEBN=.FALSE.
+      LNEBR=.FALSE.
+      LNEBT=.FALSE.
+      LOZONE=.FALSE.
+      LRAY=.FALSE.
+      LRAYLU=.FALSE.
+      LREWS=.FALSE.
+      LRAYPL=.FALSE.
+      LRAYFM=.FALSE.
+      LRAYFM15=.FALSE.
+      LRRMES=.FALSE.
+      LSFHYD=.FALSE.
+      LSNV=.FALSE.
+      LSOLV=.FALSE.
+      LFGEL=.FALSE.
+      LSTRA=.FALSE.
+      LSTRAS=.FALSE.
+      LVDIF=.FALSE.
+      !initialisation of AROME's physic ones
+      LMPA=.TRUE.
+      LMICRO=.FALSE.
+      LTURB=.FALSE.
+      LMSE=.FALSE.
+      LKFBCONV=.FALSE.
+      LUSECHEM=.FALSE.
+      LKFBD=.FALSE.
+      LKFBS=.FALSE.
+      LUSECHEM=.FALSE.
+      LORILAM=.FALSE.
+      LRDUST=.FALSE.
+      NPHY = JPHYARO 
+    ENDIF
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY commente par MPL le 14.04.09
+!CALL POSNAM(NULNAM,'NAMPHY')
+!READ(NULNAM,NAMPHY)
+
+! Ce qui concerne NAMARPHY commente par MPL le 24.11.08
+!CALL POSNAM(NULNAM,'NAMARPHY')
+!READ(NULNAM,NAMARPHY)
+!IF(LMSE) THEN
+!  LSOLV=.FALSE.
+!  LFGEL=.FALSE.
+!  LSNV=.FALSE.
+!  LVGSN=.FALSE.
+!  WRITE(NULOUT,'('' INFO -old isba-lsolv,lfgel,lsnv,lvgsn- reset to .F. '', &
+!                 &'' when using lground i.e. surfex '')')
+!ENDIF
+
+NEPHYS_PCFULL=3
+
+! Ce qui concerne NAEPHY commente par MPL le 14.04.09
+!CALL POSNAM(NULNAM,'NAEPHY')
+!READ(NULNAM,NAEPHY)
+
+IF(LPC_FULL)THEN
+  IF(NEPHYS_PCFULL < 2 .OR.NEPHYS_PCFULL > 3)THEN
+    CALL ABOR1(' SU0PHY: NEPHYS_PCFULL')
+  ENDIF
+ELSE
+  NEPHYS_PCFULL=3
+ENDIF
+
+IF(     NCONF == 201.OR.NCONF == 202 &
+   & .OR.NCONF == 421.OR.NCONF == 422 &
+   & .OR.NCONF == 521.OR.NCONF == 522  )THEN  
+  LREASUR=.FALSE.
+ENDIF
+!IF(.NOT.(LEPHYS.OR.LMPHYS)) THEN
+!  LAGPHY=.FALSE.
+!  LSLPHY=.FALSE.
+!  WRITE(NULOUT,'('' INFO - LSLPHY RESET TO .FALSE. '')')
+!ENDIF
+IF(LEPCLD) THEN
+  LECOND=.FALSE.
+ENDIF
+IF(LAGPHY.AND.NDPSFI /= 0) THEN
+  NDPSFI=0
+  WRITE(NULOUT,'('' WARNING - NDPSFI RESET TO 0 '')')
+ENDIF
+
+! Commente par MPL 24.11.08
+!CALL POSNAM(NULNAM,'NAPHLC')
+!READ(NULNAM,NAPHLC)
+
+! Commente par MPL 24.11.08
+!CALL POSNAM (NULNAM,'NAMTRAJP')
+!READ (NULNAM,NAMTRAJP)
+
+! Commente par MPL 24.11.08
+!CALL POSNAM(NULNAM,'NAMSIMPHL')
+!READ(NULNAM,NAMSIMPHL)
+
+! Commente par MPL 24.11.08
+!CALL POSNAM(NULNAM,'NAMRCOEF')
+!READ(NULNAM,NAMRCOEF)
+
+!-------------------------------------------------
+! Initialize profile extractions for the Single Column Model .
+!-------------------------------------------------
+
+CALL SUSCM(KULOUT)
+
+!     ------------------------------------------------------------------
+
+!*       3.    Do tests of consistency.
+!              ------------------------
+
+IERR=0
+
+! * Test that adequate physics is activated when at least one of the
+!   options LRETCFOU, LWRTCFOU, LRCOEF,is set to .TRUE.
+IF( LWRTCFOU .AND. ((.NOT.LMPHYS).OR.LEPHYS.OR.LAGPHY) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LWRTC, LWRTCFOU ',&
+   & 'require the following options for physics:'  
+  WRITE(KULOUT,'(1X,A)') '         - LMPHYS=.TRUE. '
+  WRITE(KULOUT,'(1X,A)') '         - LEPHYS=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LAGPHY=.FALSE. '
+  IF(.NOT.LRAYSP) THEN
+    WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: option ',&
+     & ' LWRTCFOU ',&
+     & 'require the following option for simplified physics:'  
+    WRITE(KULOUT,'(1X,A)') '         - LRAYSP=.TRUE. '
+  ENDIF
+ENDIF
+IF( LRETCFOU .AND. ((.NOT.(LMPHYS.OR.LSIMPH)).OR.LEPHYS.OR.LAGPHY) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: option ',&
+   & ' LRETCFOU ',&
+   & 'require the following options for physics:'  
+  WRITE(KULOUT,'(1X,A)') '         - LMPHYS=.TRUE. or LSIMPH=.TRUE.'
+  WRITE(KULOUT,'(1X,A)') '         - LEPHYS=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LAGPHY=.FALSE. '
+ENDIF
+IF( LRCOEF .AND. ((.NOT.LMPHYS).OR.LEPHYS.OR.LAGPHY) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LRCOEF ',&
+   & 'require the following options for physics:'  
+  WRITE(KULOUT,'(1X,A)') '         - LMPHYS=.TRUE. '
+  WRITE(KULOUT,'(1X,A)') '         - LEPHYS=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LAGPHY=.FALSE. '
+  IF(.NOT.LRAYSP) THEN
+    WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+     & 'LRCOEF ',&
+     & 'require the following option for simplified physics:'  
+    WRITE(KULOUT,'(1X,A)') '         - LRAYSP=.TRUE. '
+  ENDIF
+ENDIF
+
+! * Test that options LRETCFOU, LWRTCFOU are set to .FALSE.
+!   when at least LRCOEF=.TRUE. 
+IF( (LRCOEF) .AND. (LRETCFOU.OR.LWRTCFOU) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LRCOEF ',&
+   & 'require that:'  
+  WRITE(KULOUT,'(1X,A)') '         - LRETCFOU=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LWRTCFOU=.FALSE. '
+ENDIF
+
+! * Test that option LSRCONT is set to .FALSE. when LSRCON=.FALSE. 
+IF( (LSRCONT) .AND. (.NOT.LSRCON) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LSRCONT ',&
+   & 'require that:'  
+  WRITE(KULOUT,'(1X,A)') '         - LSRCON=.TRUE. '
+ENDIF
+
+! * Use NDPSFI=1 when not available or inconsistent with some other options?
+!IF(LGWADV .AND. (NDPSFI==1)) THEN
+  ! * these two options actually can run together on an informatic
+  !   point of view, but the current assumptions done with LGWADV=T
+  !   are that a particle which is on the Earth surface remains
+  !   on the Earth surface; this is equivalent to assume that "etadot_surf"
+  !   is always zero. This condition is satisfied when NDPSFI=0
+  !   but not when NDPSFI=1 which gives a non-zero value to "etadot_surf".
+  !   So one forbids combination "LGWADV .AND. (NDPSFI==1)" which leads
+  !   to inconsistencies in the model at the surface.
+!  IERR=IERR+1
+!  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+!  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+!   & 'NDPSFI=1 ',&
+!   & 'require that:'  
+!  WRITE(KULOUT,'(1X,A)') '         - LGWADV=.FALSE. '
+!ENDIF
+
+! TESTS FOR ALARO-0 (cloud)
+IF (LPIL.AND..NOT.LCONDWT) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A)') ' SU0PHY: LPIL requires LCONDWT '
+ENDIF
+
+! TESTS FOR ALARO-0 (prognostic convection)
+IF (LCVPRO) THEN
+  LCDDPRO=.TRUE.
+  IF (NCONF /= 1)THEN
+    WRITE(KULOUT,'(1X, A)') 'WARNING: LCVPRO requires NCONF=1'
+    LCVPRO=.FALSE.
+    LCDDPRO=.FALSE.
+  ENDIF
+ENDIF
+
+IF (LPHSPSH .AND. .NOT.(L3MT.OR.LSTRAPRO)) THEN
+  ! * For the time being, LPHSPSH requires L3MT.OR.LSTRAPRO (missing code
+  !   in CPTEND in the other cases, to be coded later).
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A)') ' SU0PHY: LPHSPSH requires L3MT.OR.LSTRAPRO '
+ENDIF
+
+! * Use simplified physics with LMPA=T?
+IF(LMPA.AND.LSIMPH) THEN
+  ! * Simplified physics is not consistent with AROME physics
+  !   concerning most of the physical parameterizations.
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A)') ' SU0PHY: LMPA and LSIMPH cannot be both to T.'
+ENDIF
+
+
+IF (IERR >= 1) THEN
+  CALL FLUSH(KULOUT)
+  CALL ABOR1(' SU0PHY: ABOR1 CALLED')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       4.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY '')')
+WRITE(UNIT=KULOUT,FMT='('' LMPHYS= '',L5,'' LREASUR = '',L5)')LMPHYS,LREASUR
+if (1==0) then       !!!!! A REVOIR (MPL)
+WRITE(UNIT=KULOUT,FMT='('' LCONDWT='',L5,'' LCVPP = '',L5,&
+ & '' LCVPPKF = '',L5,&
+ & '' LNEIGE = '',L5,'' LRNUMX = '',L5,'' LCLSATUR = '',L5,'' LHUNEG = '',L5,&
+ & '' LVOIGT = '',L5,'' LVFULL = '',L5,&
+ & '' L2PHYS = '',L5,&
+ & '' LCVDD = '',L5,'' LCAPE= '',L5,'' LSRCON = '',L5,&
+ & '' LCVLIS = '',L5,'' LCVCAS= '',L5,'' LSRCONT= '',L5,'' LO3ABC= '',L5,  &
+ & '' LAEROSEA = '',L5,'' LAEROLAN = '',L5,'' LAEROSOO = '',L5, &
+ & '' LAERODES = '',L5,'' LAEROVOL = '',L5,'' LAEROSUL = '',L5, &
+ & '' LRELAXT  = '',L5,'' LRELAXW  = '',L5,&
+ & '' LSLC = '',L5,'' LRRGUST= '',L5, &
+ & '' LNEWD = '',L5,'' LGLT= '',L5,'' LDIFCONS= '',L5, &
+ & '' LECT = '',L5,'' LECTFL = '',L5,'' LPBLE = '',L5,'' LCVPGY= '',L5, &
+ & '' LPTKE= '',L5,'' L3MT= '',L5 &
+ & )')&
+ & LCONDWT,LCVPP,LCVPPKF,LNEIGE,LRNUMX,LCLSATUR,LHUNEG,LVOIGT,LVFULL,L2PHYS,LCVDD,&
+ & LCAPE,LSRCON,LCVLIS,LCVCAS,LSRCONT,LO3ABC,LAEROSEA,LAEROLAN,LAEROSOO, &
+ & LAERODES,LAEROVOL,LAEROSUL,LRELAXT,LRELAXW,LSLC,LRRGUST,LNEWD,LGLT,&
+ & LDIFCONS,LECT,LECTFL,LPBLE,LCVPGY,LPTKE,L3MT 
+else
+  print*,'OKL'
+  print*,'LOGICS',&
+ & LCONDWT,LCVPP,LCVPPKF,LNEIGE,LRNUMX,LCLSATUR,LHUNEG,LVOIGT,LVFULL,L2PHYS,LCVDD,&
+ & LCAPE,LSRCON,LCVLIS,LCVCAS,LSRCONT,LO3ABC,LAEROSEA,LAEROLAN,LAEROSOO, &
+ & LAERODES,LAEROVOL,LAEROSUL,LRELAXT,LRELAXW,LSLC,LRRGUST,LNEWD,LGLT,&
+ & LDIFCONS,LECT,LECTFL,LPBLE,LCVPGY,LPTKE,L3MT 
+endif
+WRITE(UNIT=KULOUT,FMT='('' LCVRA = '',L5 ,'' LFPCOR = '',L5&
+ & ,'' LNOIAS = '',L5 &
+ & ,'' LGWD = '',L5,'' LHMTO = '',L5,'' LRAY = '',L5 &
+ & ,'' LSFHYD = '',L5,'' LSTRA = '',L5,'' LTHERMO = '',L5,/&
+ & ,'' LVDIF = '',L5,'' LNEBCO = '',L5,'' LNEBT = '',L5,/&
+ & ,'' LRRMES = '',L5,'' LOZONE = '',L5,'' LNEBR = '',L5,/&
+ & ,'' LSNV = '',L5,'' LSOLV = '',L5,'' LFGEL = '',L5,/&
+ & ,'' LVGSN ='',L5,'' LND2DIFF ='',L5,/&
+ & ,'' LNEBN = '',L5,'' LNEBNXR = '',L5,'' LQXRTGH = '',L5,'' LSTRAS = '',L5,/&
+ & ,'' LHUCN = '',L5,'' LGWDC     = '',L5,'' LRAYFM = '',L5,'' LRAYFM15= '',L5,/&
+ & ,'' LRAYLU  = '',L5,'' LREWS  = '',L5,'' LRPROX = '',L5 /&
+ & ,'' LRMIX   = '',L5,'' LRSTAB = '',L5,''LRAUTOEV = '',L5 /&
+ & ,'' LRTPP = '',L5,'' LRTDL = '',L5,'' LRAYPL = '',L5 &
+ & )')&
+ & LCVRA,LFPCOR,LNOIAS,LGWD,LHMTO,LRAY,LSFHYD,LSTRA,LTHERMO,LVDIF,LNEBCO,&
+ & LNEBT,LRRMES,LOZONE,LNEBR,LSNV,LSOLV,LFGEL,LVGSN,LND2DIFF,&
+ & LNEBN,LNEBNXR,LQXRTGH,LSTRAS,LHUCN,LGWDC,&
+ & LRAYFM,LRAYFM15,LRAYLU,LREWS,&
+ & LRPROX,LRMIX,LRSTAB,LRAUTOEV,LRTPP,LRTDL,LRAYPL
+WRITE(UNIT=KULOUT,FMT='('' NBITER = '',I2,'' NDPSFI = '',I2,'' NPHYREP = '',I2)') &
+ & NBITER,NDPSFI,NPHYREP  
+WRITE(UNIT=KULOUT,FMT='('' NOIR = '',I2)')NOIR
+!WRITE(UNIT=KULOUT,FMT='('' NPHYINT = '',I2)')NPHYINT
+
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY'')')
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' LECT    = '',L5,'' LAJUCV  = '',L5,/, &
+ & '' LCVRAV3 = '',L5, &
+ & '' LNEBGR  = '',L5,'' LNEBGY  = '',L5,'' LBCCOND = '',L5 &
+ & )') LECT,    LAJUCV,  &
+ & LCVRAV3, LNEBGR, LNEBGY, LBCCOND
+
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='('' MICROPHYSICS KEY '')')
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='(  '' LPROCLD = '',L5 &
+ &,'' LEVAPP  = '',L5,'' LCOLLEC = '',L5,'' LNSMLIS  = '',L5 &
+ &,'' LADJCLD  = '',L5,'' LAUTONEB  = '',L5,'' LSSD = '',L5)')&
+ &LPROCLD,LEVAPP,LCOLLEC,LNSMLIS,LADJCLD,LAUTONEB,LSSD
+
+WRITE(UNIT=KULOUT,FMT='('' ALARO-0 cloud '')')
+WRITE(UNIT=KULOUT,FMT='('' LPIL = '',L5,'' LSTRAPRO = '',L5 &
+  &,'' LNEWSTAT = '',L5 &
+  &,'' LPHSPSH = '',L5 ,'' LSMROT = '',L5 &
+  &,'' LSMTPS = '',L5 ,'' LSMNIMBT = '',L5 &
+  &,'' L1DRHCRI = '',L5 ,'' LGWRHCRI = '',L5 &
+  &,'' NSMTBOT = '',I2,'' NSMDNEB = '',I2 &
+  &,'' NPRAG = '',I2,'' NPRAC = '',I2 &
+  &,'' NPRRI = '',I2 &
+  &) ')LPIL,LSTRAPRO,LNEWSTAT,LPHSPSH,LSMROT,LSMTPS, LSMNIMBT, &
+  &    L1DRHCRI, LGWRHCRI,&
+  &    NSMTBOT,NSMDNEB, NPRAG,NPRAC,NPRRI
+
+WRITE(UNIT=KULOUT,FMT='('' ALARO-0 prognostic convection  '')')
+WRITE(UNIT=KULOUT,&
+  &FMT='('' LCVPRO ='',L1,'' LCDDPRO ='',L1,'' LSCMF ='',L1)') &
+  &    LCVPRO,LCDDPRO,LSCMF
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMSIMPHL '')')
+WRITE(UNIT=KULOUT,FMT='('' LSIMPH= '',L5,'' LTRAJPS = '',L5 &
+ & ,'' LTRAJPST = '',L5 &
+ & ,'' LSMOOTHD = '',L5,'' LSMOOTHA = '',L5,'' LSMOOTHB = '',L5 &
+ & ,'' LCLOUDS = '',L5 )')&
+ & LSIMPH,LTRAJPS,LTRAJPST,LSMOOTHD,LSMOOTHA, &
+ & LSMOOTHB,LCLOUDS  
+WRITE(UNIT=KULOUT,FMT='('' LCVRASP = '',L5,'' LGWDSP = '',L5 &
+ & ,'' LRAYSP = '',L5,'' LSTRASP = '',L5,'' LVDIFSP = '',L5 &
+ & ,'' LRRMESSP = '',L5)')&
+ & LCVRASP,LGWDSP,LRAYSP,LSTRASP,LVDIFSP,LRRMESSP  
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMRCOEF '')')
+WRITE(UNIT=KULOUT,FMT='('' LRCOEF= '',L5 &
+ & ,'' LTLADDIA = '',L5,'' LGLOBRAD = '',L5)')&
+ & LRCOEF,LTLADDIA,LGLOBRAD  
+
+! TEST OF CONSISTENCY FOR RADIATION SCHEMES
+
+IF(LMPHYS) THEN
+  IF((LRAY.AND.LRAYFM).OR.(LRAY.AND.LRAYFM15).OR.(LRAYFM15.AND.LRAYFM)) THEN
+    WRITE(NULOUT,'('' WARNING - 2 RADIATION SCHEMES... '')')
+    CALL ABOR1('SU0PHY: ABOR1 CALLED')
+  ENDIF
+ENDIF
+
+!     TESTS OF CONSISTENCY INSIDE YOMPHY
+
+IF(LSTRAS.AND.LRNUMX)THEN
+  WRITE(NULOUT,FMT='('' ACPLUIS AND LRNUMX ARE NOT COMPATIBLE''&
+   & ,''      FOR THE MOMENT'')')  
+  CALL ABOR1('SU0PHY: ABOR1 CALLED')
+ENDIF
+
+!     TESTS OF CONSISTENCY BETWEEN YOMPHY AND INITIALIZATION
+
+!IF (.NOT.LMPHYS.AND..NOT.LEPHYS) THEN
+! Digital Filter Initialisation
+!  IF ((NEINI == 2.OR.NEINI == 4).AND.NEDFI >= 2) THEN
+!    IF (NEDFI <= 5) THEN
+!      WRITE(NULOUT,FMT='('' YOMPHY AND YEMDFI ARE NOT COMPATIBLE'')')
+!      CALL ABOR1(' DIABATIC DFI WITHOUT PHYSICS !')
+!    ELSE
+!      WRITE(NULOUT,FMT='('' CAUTION : FORWARD DFI WITHOUT PHYSICS'')')
+!    ENDIF
+!  ENDIF
+!ENDIF
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMARPHY '')')
+WRITE(UNIT=KULOUT,FMT='('' LMPA = '',L5, &
+ & '' LMICRO = '',L5,'' LTURB = '',L5, &
+ & '' LMSE = '',L5,'' LKFBCONV = '',L5,&
+ & '' LKFBD = '',L5,'' LKFBS = '',L5,&
+ & '' LUSECHEM = '',L5,'' LORILAM = '',L5,'' LRDUST = '',L5)')&
+ & LMPA,LMICRO,LTURB,LMSE,LKFBCONV,LKFBD,LKFBS,LUSECHEM,&
+ & LORILAM,LRDUST
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOEPHY '')')
+WRITE(UNIT=KULOUT,FMT='('' LEPHYS = '',L5, &
+ & '' LECOND = '',L5,'' LECUMF = '',L5 &
+ & )')&
+ & LEPHYS,LECOND,LECUMF  
+!WRITE(NULOUT,'("RCLDTOPP=",F10.2)') RCLDTOPP
+WRITE(UNIT=KULOUT,FMT='('' LEDCLD = '',L5,'' LEGWDG = '',L5 &
+ & ,'' LEOZOC = '',L5,'' LEQNGT = '',L5 &
+ & ,'' LEO3CH = '',L5)')&
+ & LEDCLD,LEGWDG,LEOZOC,LEQNGT,LEO3CH  
+WRITE(UNIT=KULOUT,FMT='('' LERADI = '',L5 &
+ & ,'' LESHCV = '',L5,'' LESURF = '',L5,'' LEVDIF = '',L5 &
+ & ,'' LEOCWA = '',L5,'' LEOCCO = '',L5,'' LEOCSA = '',L5 &
+ & ,'' LECURR = '',L5,'' RTHRFRTI = '',F7.2 &
+ & )')&
+ & LERADI,LESHCV,LESURF,LEVDIF,LEOCWA,LEOCCO,LEOCSA,LECURR,RTHRFRTI 
+WRITE(UNIT=KULOUT,FMT='('' LEPCLD = '',L5,'' LEMETHOX= '',L5 &
+ & ,'' LE4ALB = '',L5 &
+ & )')&
+ & LEPCLD,LEMETHOX,LE4ALB  
+
+! Do not allow storage of trajectory in TL physics if tracers 
+! are to be included in linearized physics (temporary) 
+!IF (LETRAJP .AND. LETRAJPT .AND. LTRACLNPH) THEN
+!  WRITE(UNIT=KULOUT,FMT='('' CAUTION : STORAGE OF TRAJECTORY IN LINEAR. PHYSICS NOT YET '')')
+!  WRITE(UNIT=KULOUT,FMT='('' IMPLEMENTED FOR TRACERS: LETRAJPT WILL BE RESET TO .FALSE. '')')
+!ENDIF
+
+!IF (LETRAJP) THEN
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LINEAR PHYSICS ACTIVATED '')')
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LERADI2 = '',L4 &
+!   & ,'' LERADS2 = '',L4 &
+!   & ,'' LERADSW2= '',L4 &
+!   & ,'' LERADN2 = '',L4 &
+!   & ,'' LERADFL2= '',L4 &
+!   & )')&
+!   & LERADI2,LERADS2,LERADSW2,LERADN2,LERADFL2  
+!  WRITE(UNIT=KULOUT,FMT='('' LEDCLD2 = '',L4 &
+!   & ,'' LENCLD2 = '',L4 &
+!   & ,'' LEVAPLS2= '',L4 &
+!   & ,'' LREGCL  = '',L4 &
+!   & ,'' LNCLIN  = '',L4 &
+!   & )')&
+!   & LEDCLD2,LENCLD2,LEVAPLS2,LREGCL,LNCLIN
+!  WRITE(UNIT=KULOUT,FMT='('' LECUMF2 = '',L4 &
+!   & ,'' LECUBM2 = '',L4 &
+!   & ,'' LECOND2 = '',L4    &
+!   & )')&
+!   & LECUMF2,LECUBM2,LECOND2  
+!  WRITE(UNIT=KULOUT,FMT='('' LEVDIF2 = '',L4 &
+!   & ,'' LEGWDG2 = '',L4 &
+!   & ,'' LEQNGT2 = '',L4 &
+!   & ,'' LESURF2 = '',L4 &
+!   & )')&
+!   & LEVDIF2,LEGWDG2,LEQNGT2,LESURF2  
+!  WRITE(UNIT=KULOUT,FMT='('' LEKPERT = '',L4,'' LENOPERT = '',L4)')&
+!   & LEKPERT,LENOPERT
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LETRAJPT = '',L4)')LETRAJPT
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LTRACLNPH = '',L4)')LTRACLNPH
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!ELSE
+!  WRITE(UNIT=KULOUT,FMT='('' ============================ '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LINEAR PHYSICS NOT ACTIVATED '')')
+!  WRITE(UNIT=KULOUT,FMT='('' ============================ '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LENCLD2 = '',L4)')LENCLD2
+!  WRITE(UNIT=KULOUT,FMT='('' LEVAPLS2= '',L4)')LEVAPLS2
+!ENDIF
+
+WRITE(UNIT=KULOUT,FMT='('' LSPHLC = '',L5,'' LVDFLC = '',L5 &
+ & ,'' LVDFDS = '',L5,'' LSDRLC = '',L5,'' LSDRDS = '',L5)')&
+ & LSPHLC,LVDFLC,LVDFDS,LSDRLC,LSDRDS  
+WRITE(UNIT=KULOUT,FMT='('' LCZDEB = '',L5,'' LZMCON = '',L5 &
+ & ,'' LKEXP  = '',L5)') LCZDEB,LZMCON,LKEXP  
+WRITE(UNIT=KULOUT,FMT='('' ALPHA  = '',E16.6)') ALPHA
+WRITE(UNIT=KULOUT,FMT='('' AH0    = '',E16.6,''m'')') AH0
+WRITE(UNIT=KULOUT,FMT='('' USTARL = '',E16.6,''m s-1'')') USTARL
+WRITE(UNIT=KULOUT,FMT='('' USTARS = '',E16.6,''m s-1'')') USTARS
+WRITE(UNIT=KULOUT,FMT='('' ALANDZ0= '',E16.6,''m'')') ALANDZ0
+WRITE(UNIT=KULOUT,FMT='('' ASEAZ0 = '',E16.6,''m'')') ASEAZ0
+
+IF (LAGPHY) THEN
+  WRITE(UNIT=KULOUT,FMT='('' LAGPHY = '',L5,'' THE PHYSICS PAC&
+   & KAGE IS CALLED AFTER THE DYNAMICS IN LAGGED MODE'')')LAGPHY  
+ELSE
+  WRITE(UNIT=KULOUT,FMT='('' LAGPHY = '',L5,'' THE PHYSICS PAC&
+   & KAGE IS CALLED BEFORE THE DYNAMICS '')')LAGPHY  
+ENDIF
+WRITE(UNIT=KULOUT,FMT=*) 'CGMIXLEN=',TRIM(CGMIXLEN)
+WRITE(UNIT=KULOUT,FMT='('' LPRGML = '',L4)') LPRGML
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SU0PHY',1,ZHOOK_HANDLE)
+END SUBROUTINE SU0PHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su0phy.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su0phy.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su0phy.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SU0PHY(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SU0PHY
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerop.F90	(revision 3330)
@@ -0,0 +1,972 @@
+SUBROUTINE SU_AEROP
+
+!**** *SU_AEROP*   - INITIALIZE MODULES YOEAEROP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAEROP THE MODULE THAT CONTAINS THE
+!           OPTICAL PROPERTIES FOR THE PROGNOSTIC AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_AEROP
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        YOEAEROP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+!        from O.BOUCHER's stand-alone codes (LOA, 2005-03) 
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2005-03-25
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAEROP  , ONLY : ALF_SU, ASY_SU, OMG_SU, ALF_OM, ASY_OM, OMG_OM, &
+  & ALF_DD, ASY_DD, OMG_DD, ALF_SS, ASY_SS, OMG_SS, ALF_BC, ASY_BC, OMG_BC, &
+  & ALF_FA, ASY_FA, OMG_FA 
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AEROP',0,ZHOOK_HANDLE)
+
+
+!*      1.    PARAMETERS RELATED TO OPTICAL PROPERTIES
+!             ----------------------------------------
+
+! All arrays are given in three blocks: 
+! first, for 16 wavelengths relevant to observations 
+! 340, 380, 400, 440, 469, 500, 532, 555, 645, 670, 800, 858, 865, 1240, 1640, 2130 
+
+!(  not done yet, depends whether SW6 or RRTM_SW is used, to be computed for RRTM_LW)
+! second, for the spectral intervals of the SW radiation scheme
+! third, for the spectral intervals of the LW radiation scheme
+
+! For sulfates (_SU) and organic matters (_OM), values are given as function 
+! of RH (12 values) for the 8 wavelengths
+! For sea-salt (_SS), 3 bins are considered      (0.03, 0.50, 5.0, 20.)
+! For desert dust (_DD), 3 bins are considered	 (0.03, 0.55, 0.9, 20.)
+!
+! IF BIN LIMITS ARE CHANGED, MAKE SURE THAT THE RELEVANT SEDIMENTATION SPEEDS ARE 
+! RECOMPUTED ACCORDINGLY
+
+! RH  0.   	 10.	     20.         30.         40.         50.
+!    60.         70.         80.         85.         90.         95.    
+
+ALF_FA(:) =0.0_JPRB
+ASY_FA(:) =0.0_JPRB
+OMG_FA(:) =0.0_JPRB
+
+! alpha_aer_bc
+ALF_BC( :) = (/ &
+  & 14.237_JPRB, 14.237_JPRB, &
+  & 14.237_JPRB, 12.619_JPRB, 12.000_JPRB, 10.684_JPRB,  9.840_JPRB,  9.412_JPRB,  9.000_JPRB, &
+  &  7.212_JPRB,  5.677_JPRB,  5.500_JPRB,  5.113_JPRB,  5.000_JPRB,  5.000_JPRB,  5.000_JPRB /)
+
+! cg_aer_bc
+ASY_BC( :) = (/ &
+  &   .398_JPRB,   .398_JPRB, &
+  &   .398_JPRB,   .379_JPRB,   .353_JPRB,   .350_JPRB,   .341_JPRB,   .335_JPRB,   .300_JPRB, & 
+  &   .296_JPRB,   .263_JPRB,   .250_JPRB,   .248_JPRB,   .200_JPRB,   .200_JPRB,   .200_JPRB /)
+
+! om_aer_bc
+OMG_BC( :) = (/ &
+  &   .270_JPRB,   .270_JPRB, &
+  &   .270_JPRB,   .251_JPRB,   .240_JPRB,   .226_JPRB,   .213_JPRB,   .206_JPRB,   .180_JPRB, &
+  &   .166_JPRB,   .132_JPRB,   .120_JPRB,   .118_JPRB,   .100_JPRB,   .100_JPRB,   .100_JPRB  /)
+
+! alpha_aer_sulfate
+ALF_SU( :,1) = (/ &
+  &  6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, &
+  & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /)
+ALF_SU( :,2) = (/ &
+  &  6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, &
+  & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /)
+ALF_SU( :,3) = (/ &
+  &  6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, &
+  & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /)
+ALF_SU( :,4) = (/ &
+  &  6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 8.115_JPRB, 9.094_JPRB, &
+  & 10.407_JPRB,12.344_JPRB,15.773_JPRB,18.661_JPRB,24.014_JPRB,39.387_JPRB /)
+ALF_SU( :,5) = (/ &
+  &  6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 8.115_JPRB, 9.094_JPRB, &
+  & 10.407_JPRB,12.344_JPRB,15.773_JPRB,18.661_JPRB,24.014_JPRB,39.387_JPRB /)
+
+ALF_SU( :,6) = (/ &
+  &  5.009_JPRB, 5.009_JPRB, 5.009_JPRB, 5.009_JPRB, 6.779_JPRB, 7.626_JPRB, &
+  &  8.769_JPRB,10.466_JPRB,13.501_JPRB,16.072_JPRB,20.889_JPRB,34.944_JPRB /)
+ALF_SU( :,7) = (/ &
+  &  4.548_JPRB, 4.548_JPRB, 4.548_JPRB, 4.548_JPRB, 6.171_JPRB, 6.956_JPRB, &
+  &  8.016_JPRB, 9.597_JPRB,12.438_JPRB,14.852_JPRB,19.397_JPRB,32.764_JPRB /)
+
+ALF_SU( :,8) = (/ &
+  &  4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 5.858_JPRB, 6.609_JPRB, &
+  &  7.626_JPRB, 9.145_JPRB,11.882_JPRB,14.211_JPRB,18.609_JPRB,31.596_JPRB /)
+ALF_SU( :,9) = (/ &
+  &  4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 5.858_JPRB, 6.609_JPRB, &
+  &  7.626_JPRB, 9.145_JPRB,11.882_JPRB,14.211_JPRB,18.609_JPRB,31.596_JPRB /)
+
+ALF_SU(:,10) = (/ &
+  &  3.053_JPRB, 3.053_JPRB, 3.053_JPRB, 3.053_JPRB, 4.191_JPRB, 4.758_JPRB, &
+  &  5.532_JPRB, 6.700_JPRB, 8.836_JPRB,10.671_JPRB,14.193_JPRB,24.859_JPRB /)
+ALF_SU(:,11) = (/ &
+  &  2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.992_JPRB, 3.416_JPRB, &
+  &  3.999_JPRB, 4.886_JPRB, 6.532_JPRB, 7.958_JPRB,10.735_JPRB,19.336_JPRB /)
+ALF_SU(:,12) = (/ &
+  &  2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.992_JPRB, 3.416_JPRB, &
+  &  3.999_JPRB, 4.886_JPRB, 6.532_JPRB, 7.958_JPRB,10.735_JPRB,19.336_JPRB /)
+
+ALF_SU(:,13) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+ALF_SU(:,14) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+ALF_SU(:,15) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+ALF_SU(:,16) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+
+! cg_aer_sulfate
+ASY_SU( :,1) = (/ &
+  &  0.640_JPRB,  .640_JPRB,  .640_JPRB,  .640_JPRB,  .695_JPRB,  .704_JPRB, &
+  &   .713_JPRB,  .723_JPRB,  .734_JPRB,  .744_JPRB,  .754_JPRB,  .775_JPRB /)
+ASY_SU( :,2) = (/ &
+  &  0.640_JPRB,  .640_JPRB,  .640_JPRB,  .640_JPRB,  .695_JPRB,  .704_JPRB, &
+  &   .713_JPRB,  .723_JPRB,  .734_JPRB,  .744_JPRB,  .754_JPRB,  .775_JPRB /)
+ASY_SU( :,3) = (/ &
+  &  0.640_JPRB,  .640_JPRB,  .640_JPRB,  .640_JPRB,  .695_JPRB,  .704_JPRB, &
+  &   .713_JPRB,  .723_JPRB,  .734_JPRB,  .744_JPRB,  .754_JPRB,  .775_JPRB /)
+ASY_SU( :,4) = (/ &
+  &   .632_JPRB,  .632_JPRB,  .632_JPRB,  .632_JPRB,  .687_JPRB,  .696_JPRB, &
+  &   .705_JPRB,  .716_JPRB,  .728_JPRB,  .738_JPRB,  .749_JPRB,  .771_JPRB /)
+ASY_SU( :,5) = (/ &
+  &   .632_JPRB,  .632_JPRB,  .632_JPRB,  .632_JPRB,  .687_JPRB,  .696_JPRB, &
+  &   .705_JPRB,  .716_JPRB,  .728_JPRB,  .738_JPRB,  .749_JPRB,  .771_JPRB /)
+
+ASY_SU( :,6) = (/ &
+  &   .620_JPRB,  .620_JPRB,  .620_JPRB,  .620_JPRB,  .674_JPRB,  .683_JPRB, &
+  &   .693_JPRB,  .704_JPRB,  .717_JPRB,  .728_JPRB,  .740_JPRB,  .764_JPRB /)
+ASY_SU( :,7) = (/ &
+  &   .613_JPRB,  .613_JPRB,  .613_JPRB,  .613_JPRB,  .667_JPRB,  .677_JPRB, &
+  &   .687_JPRB,  .698_JPRB,  .711_JPRB,  .722_JPRB,  .735_JPRB,  .760_JPRB /)
+
+ASY_SU( :,8) = (/ &
+  &   .609_JPRB,  .609_JPRB,  .609_JPRB,  .609_JPRB,  .664_JPRB,  .673_JPRB, &
+  &   .683_JPRB,  .694_JPRB,  .708_JPRB,  .719_JPRB,  .733_JPRB,  .758_JPRB /)
+ASY_SU( :,9) = (/ &
+  &   .609_JPRB,  .609_JPRB,  .609_JPRB,  .609_JPRB,  .664_JPRB,  .673_JPRB, &
+  &   .683_JPRB,  .694_JPRB,  .708_JPRB,  .719_JPRB,  .733_JPRB,  .758_JPRB /)
+
+ASY_SU(:,10) = (/ &
+  &   .584_JPRB,  .584_JPRB,  .584_JPRB,  .584_JPRB,  .637_JPRB,  .647_JPRB, &
+  &   .658_JPRB,  .670_JPRB,  .686_JPRB,  .698_JPRB,  .713_JPRB,  .742_JPRB /)
+ASY_SU(:,11) = (/ &
+  &   .558_JPRB,  .558_JPRB,  .558_JPRB,  .558_JPRB,  .609_JPRB,  .620_JPRB, &
+  &   .631_JPRB,  .644_JPRB,  .661_JPRB,  .674_JPRB,  .691_JPRB,  .723_JPRB /)
+ASY_SU(:,12) = (/ &
+  &   .558_JPRB,  .558_JPRB,  .558_JPRB,  .558_JPRB,  .609_JPRB,  .620_JPRB, &
+  &   .631_JPRB,  .644_JPRB,  .661_JPRB,  .674_JPRB,  .691_JPRB,  .723_JPRB /)
+
+ASY_SU(:,13) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+ASY_SU(:,14) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+ASY_SU(:,15) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+ASY_SU(:,16) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+
+! om_aer_sulfate
+OMG_SU( :,1) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU( :,2) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU( :,3) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU( :,4) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,5) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,6) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,7) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)  
+
+OMG_SU( :,8) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,9) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU(:,10) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, &  
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU(:,11) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,12) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,13) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,14) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,15) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,16) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+
+! alpha_aer_om (organic matter)
+ALF_OM( :,1) = (/ &
+  &  4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, &
+  &  9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /)
+ALF_OM( :,2) = (/ &
+  &  4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, &
+  &  9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /)
+ALF_OM( :,3) = (/ &
+  &  4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, &
+  &  9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /)
+ALF_OM( :,4) = (/ &
+  &  4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 6.612_JPRB, 7.425_JPRB, &
+  &  8.508_JPRB,10.084_JPRB,12.810_JPRB,15.257_JPRB,19.652_JPRB,22.764_JPRB /)
+ALF_OM( :,5) = (/ &
+  &  4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 6.612_JPRB, 7.425_JPRB, &
+  &  8.508_JPRB,10.084_JPRB,12.810_JPRB,15.257_JPRB,19.652_JPRB,22.764_JPRB /)
+
+ALF_OM( :,6) = (/ &
+  &  3.664_JPRB, 3.664_JPRB, 3.664_JPRB, 3.664_JPRB, 5.585_JPRB, 6.298_JPRB, &
+  &  7.253_JPRB, 8.652_JPRB,11.097_JPRB,13.314_JPRB,17.340_JPRB,20.901_JPRB /)
+ALF_OM( :,7) = (/ &
+  &  3.331_JPRB, 3.331_JPRB, 3.331_JPRB, 3.331_JPRB, 5.111_JPRB, 5.775_JPRB, &
+  &  6.667_JPRB, 7.979_JPRB,10.281_JPRB,12.380_JPRB,16.211_JPRB,19.964_JPRB /)
+
+ALF_OM( :,8) = (/ &
+  &  3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 4.865_JPRB, 5.502_JPRB, &
+  &  6.361_JPRB, 7.625_JPRB, 9.851_JPRB,11.885_JPRB,15.608_JPRB,19.454_JPRB /)
+ALF_OM( :,9) = (/ &
+  &  3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 4.865_JPRB, 5.502_JPRB, &
+  &  6.361_JPRB, 7.625_JPRB, 9.851_JPRB,11.885_JPRB,15.608_JPRB,19.454_JPRB /)
+
+ALF_OM(:,10) = (/ &
+  &  2.248_JPRB, 2.248_JPRB, 2.248_JPRB, 2.248_JPRB, 3.537_JPRB, 4.027_JPRB, &
+  &  4.692_JPRB, 5.682_JPRB, 7.451_JPRB, 9.094_JPRB,12.150_JPRB,16.386_JPRB /)
+ALF_OM(:,11) = (/ &
+  &  1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 2.559_JPRB, 2.931_JPRB, &
+  &  3.439_JPRB, 4.203_JPRB, 5.587_JPRB, 6.888_JPRB, 9.348_JPRB,13.658_JPRB /)
+ALF_OM(:,12) = (/ &
+  &  1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 2.559_JPRB, 2.931_JPRB, &
+  &  3.439_JPRB, 4.203_JPRB, 5.587_JPRB, 6.888_JPRB, 9.348_JPRB,13.658_JPRB /)
+
+ALF_OM(:,13) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+ALF_OM(:,14) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+ALF_OM(:,15) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+ALF_OM(:,16) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+
+ASY_OM( :,1) = (/ &
+  &   .644_JPRB,  .644_JPRB,  .644_JPRB,  .644_JPRB,  .676_JPRB,  .684_JPRB, &
+  &   .692_JPRB,  .700_JPRB,  .711_JPRB,  .718_JPRB,  .726_JPRB,  .543_JPRB /)
+ASY_OM( :,2) = (/ &
+  &   .644_JPRB,  .644_JPRB,  .644_JPRB,  .644_JPRB,  .676_JPRB,  .684_JPRB, &
+  &   .692_JPRB,  .700_JPRB,  .711_JPRB,  .718_JPRB,  .726_JPRB,  .543_JPRB /)
+ASY_OM( :,3) = (/ &
+  &   .644_JPRB,  .644_JPRB,  .644_JPRB,  .644_JPRB,  .676_JPRB,  .684_JPRB, &
+  &   .692_JPRB,  .700_JPRB,  .711_JPRB,  .718_JPRB,  .726_JPRB,  .543_JPRB /)
+ASY_OM( :,4) = (/ &
+  &   .635_JPRB,  .635_JPRB,  .635_JPRB,  .635_JPRB,  .669_JPRB,  .676_JPRB, &
+  &   .685_JPRB,  .694_JPRB,  .705_JPRB,  .713_JPRB,  .721_JPRB,  .538_JPRB /)
+ASY_OM( :,5) = (/ &
+  &   .635_JPRB,  .635_JPRB,  .635_JPRB,  .635_JPRB,  .669_JPRB,  .676_JPRB, &
+  &   .685_JPRB,  .694_JPRB,  .705_JPRB,  .713_JPRB,  .721_JPRB,  .538_JPRB /)
+
+ASY_OM( :,6) = (/ &
+  &   .623_JPRB,  .623_JPRB,  .623_JPRB,  .623_JPRB,  .657_JPRB,  .665_JPRB, &
+  &   .674_JPRB,  .684_JPRB,  .696_JPRB,  .704_JPRB,  .714_JPRB,  .529_JPRB /)
+ASY_OM( :,7) = (/ &
+  &   .616_JPRB,  .616_JPRB,  .616_JPRB,  .616_JPRB,  .651_JPRB,  .659_JPRB, &
+  &   .668_JPRB,  .678_JPRB,  .691_JPRB,  .699_JPRB,  .710_JPRB,  .524_JPRB /)
+
+ASY_OM( :,8) = (/ &
+  &   .612_JPRB,  .612_JPRB,  .612_JPRB,  .612_JPRB,  .647_JPRB,  .655_JPRB, &
+  &   .664_JPRB,  .675_JPRB,  .688_JPRB,  .696_JPRB,  .707_JPRB,  .521_JPRB /)
+ASY_OM( :,9) = (/ &
+  &   .612_JPRB,  .612_JPRB,  .612_JPRB,  .612_JPRB,  .647_JPRB,  .655_JPRB, &
+  &   .664_JPRB,  .675_JPRB,  .688_JPRB,  .696_JPRB,  .707_JPRB,  .521_JPRB /)
+
+ASY_OM(:,10) = (/ &
+  &   .586_JPRB,  .586_JPRB,  .586_JPRB,  .586_JPRB,  .623_JPRB,  .632_JPRB, &
+  &   .641_JPRB,  .653_JPRB,  .667_JPRB,  .677_JPRB,  .690_JPRB,  .502_JPRB /)
+ASY_OM(:,11) = (/ &
+  &   .559_JPRB,  .559_JPRB,  .559_JPRB,  .559_JPRB,  .597_JPRB,  .606_JPRB, &
+  &   .617_JPRB,  .629_JPRB,  .645_JPRB,  .656_JPRB,  .670_JPRB,  .482_JPRB /)
+ASY_OM(:,12) = (/ &
+  &   .559_JPRB,  .559_JPRB,  .559_JPRB,  .559_JPRB,  .597_JPRB,  .606_JPRB, &
+  &   .617_JPRB,  .629_JPRB,  .645_JPRB,  .656_JPRB,  .670_JPRB,  .482_JPRB /)
+
+ASY_OM(:,13) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+ASY_OM(:,14) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+ASY_OM(:,15) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+ASY_OM(:,16) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+
+OMG_OM( :,1) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,2) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,3) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,4) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, & 
+  &   .985_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,5) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, & 
+  &   .985_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM( :,6) = (/ &
+  &   .970_JPRB,  .970_JPRB,  .970_JPRB,  .970_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,7) = (/ &
+  &   .970_JPRB,  .970_JPRB,  .970_JPRB,  .970_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM( :,8) = (/ &
+  &   .969_JPRB,  .969_JPRB,  .969_JPRB,  .969_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,9) = (/ &
+  &   .969_JPRB,  .969_JPRB,  .969_JPRB,  .969_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM(:,10) = (/ &
+  &   .967_JPRB,  .967_JPRB,  .967_JPRB,  .967_JPRB,  .979_JPRB,  .981_JPRB, &
+  &   .984_JPRB,  .986_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM(:,11) = (/ &
+  &   .964_JPRB,  .964_JPRB,  .964_JPRB,  .964_JPRB,  .977_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM(:,12) = (/ &
+  &   .964_JPRB,  .964_JPRB,  .964_JPRB,  .964_JPRB,  .977_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM(:,13) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+OMG_OM(:,14) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+OMG_OM(:,15) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+OMG_OM(:,16) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+
+
+!alpha_aer_dd (desert dust) 
+!                    bin1,       bin2,       bin3
+ALF_DD( :,1) = (/ 2.210_JPRB, 1.011_JPRB,  .398_JPRB /)
+ALF_DD( :,2) = (/ 2.210_JPRB, 1.011_JPRB,  .398_JPRB /)
+ALF_DD( :,3) = (/ 2.210_JPRB, 1.011_JPRB,  .398_JPRB /)
+ALF_DD( :,4) = (/ 2.357_JPRB,  .985_JPRB,  .398_JPRB /)
+ALF_DD( :,5) = (/ 2.453_JPRB, 0.949_JPRB, 0.404_JPRB /)
+ALF_DD( :,6) = (/ 2.549_JPRB,  .901_JPRB,  .414_JPRB /)
+ALF_DD( :,7) = (/ 2.605_JPRB,  .877_JPRB,  .423_JPRB /)
+ALF_DD( :,8) = (/ 2.635_JPRB, 0.869_JPRB, 0.428_JPRB /)
+ALF_DD( :,9) = (/ 2.596_JPRB, 0.978_JPRB, 0.428_JPRB /)
+ALF_DD(:,10) = (/ 2.555_JPRB, 1.039_JPRB,  .424_JPRB /)
+ALF_DD(:,11) = (/ 2.227_JPRB, 1.360_JPRB,  .404_JPRB /)
+ALF_DD(:,12) = (/ 2.058_JPRB, 1.460_JPRB, 0.405_JPRB /)
+ALF_DD(:,13) = (/ 2.041_JPRB, 1.474_JPRB,  .405_JPRB /)
+ALF_DD(:,14) = (/ 1.117_JPRB, 1.523_JPRB, 0.502_JPRB /)
+ALF_DD(:,15) = (/ 0.583_JPRB, 1.117_JPRB, 0.596_JPRB /)
+ALF_DD(:,16) = (/ 0.263_JPRB, 0.705_JPRB, 0.607_JPRB /)
+
+ASY_DD( :,1) = (/  .673_JPRB,  .745_JPRB,  .799_JPRB /)
+ASY_DD( :,2) = (/  .673_JPRB,  .745_JPRB,  .799_JPRB /)
+ASY_DD( :,3) = (/  .673_JPRB,  .745_JPRB,  .799_JPRB /)
+ASY_DD( :,4) = (/  .691_JPRB,  .712_JPRB,  .792_JPRB /)
+ASY_DD( :,5) = (/ 0.704_JPRB, 0.679_JPRB, 0.791_JPRB /)
+ASY_DD( :,6) = (/  .715_JPRB,  .640_JPRB,  .786_JPRB /)
+ASY_DD( :,7) = (/  .726_JPRB,  .605_JPRB,  .782_JPRB /)
+ASY_DD( :,8) = (/ 0.731_JPRB, 0.591_JPRB, 0.782_JPRB /)
+ASY_DD( :,9) = (/ 0.741_JPRB, 0.606_JPRB, 0.756_JPRB /)
+ASY_DD(:,10) = (/  .740_JPRB,  .617_JPRB,  .738_JPRB /)
+ASY_DD(:,11) = (/  .732_JPRB,  .698_JPRB,  .687_JPRB /)
+ASY_DD(:,12) = (/ 0.725_JPRB, 0.722_JPRB, 0.679_JPRB /)
+ASY_DD(:,13) = (/  .723_JPRB,  .722_JPRB,  .669_JPRB /)
+ASY_DD(:,14) = (/ 0.645_JPRB, 0.755_JPRB, 0.682_JPRB /)
+ASY_DD(:,15) = (/ 0.556_JPRB, 0.716_JPRB, 0.718_JPRB /)
+ASY_DD(:,16) = (/ 0.392_JPRB, 0.652_JPRB, 0.730_JPRB /)
+
+OMG_DD( :,1) = (/  .974_JPRB,  .944_JPRB,  .894_JPRB /)
+OMG_DD( :,2) = (/  .974_JPRB,  .944_JPRB,  .894_JPRB /)
+OMG_DD( :,3) = (/  .974_JPRB,  .944_JPRB,  .894_JPRB /)
+OMG_DD( :,4) = (/  .978_JPRB,  .947_JPRB,  .900_JPRB /)
+OMG_DD( :,5) = (/ 0.980_JPRB, 0.947_JPRB, 0.905_JPRB /)
+OMG_DD( :,6) = (/  .985_JPRB,  .957_JPRB,  .926_JPRB /)
+OMG_DD( :,7) = (/  .988_JPRB,  .963_JPRB,  .938_JPRB /)
+OMG_DD( :,8) = (/ 0.987_JPRB, 0.960_JPRB, 0.933_JPRB /)
+OMG_DD( :,9) = (/ 0.990_JPRB, 0.973_JPRB, 0.946_JPRB /)
+OMG_DD(:,10) = (/  .996_JPRB,  .990_JPRB,  .978_JPRB /)
+OMG_DD(:,11) = (/  .997_JPRB,  .994_JPRB,  .982_JPRB /)
+OMG_DD(:,12) = (/ 0.992_JPRB, 0.988_JPRB, 0.958_JPRB /)
+OMG_DD(:,13) = (/  .997_JPRB,  .996_JPRB,  .984_JPRB /)
+OMG_DD(:,14) = (/ 0.996_JPRB, 0.997_JPRB, 0.989_JPRB /)
+OMG_DD(:,15) = (/ 0.995_JPRB, 0.997_JPRB, 0.994_JPRB /)
+OMG_DD(:,16) = (/ 0.994_JPRB, 0.997_JPRB, 0.996_JPRB /)
+
+
+!-- For sea-salt, XX( RH, wavelength, binNo)
+
+! BIN No. 1
+! optical thickness
+ALF_SS( :, 1, 1) = (/ &
+  & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, &
+  & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /)
+ALF_SS( :, 2, 1) = (/ &
+  & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, &
+  & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /)
+ALF_SS( :, 3, 1) = (/ &
+  & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, &
+  & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /)
+ALF_SS( :, 4, 1) = (/ &
+  & 1.143_JPRB, 1.143_JPRB, 1.143_JPRB, 1.143_JPRB, 3.393_JPRB, 3.761_JPRB, &
+  & 4.436_JPRB, 5.291_JPRB, 6.530_JPRB, 7.452_JPRB, 8.917_JPRB,12.189_JPRB /)
+ALF_SS( :, 5, 1) = (/ &
+  & 1.031_JPRB, 1.031_JPRB, 1.031_JPRB, 1.031_JPRB, 3.266_JPRB, 3.589_JPRB, &
+  & 4.286_JPRB, 5.165_JPRB, 6.472_JPRB, 7.496_JPRB, 9.102_JPRB,12.541_JPRB /)
+
+ALF_SS( :, 6, 1) = (/ &
+  &  .927_JPRB,  .927_JPRB,  .927_JPRB,  .927_JPRB, 3.124_JPRB, 3.387_JPRB, &
+  & 4.083_JPRB, 4.985_JPRB, 6.361_JPRB, 7.426_JPRB, 9.175_JPRB,12.904_JPRB /)
+ALF_SS( :, 7, 1) = (/ &
+  &  .830_JPRB,  .830_JPRB,  .830_JPRB,  .830_JPRB, 2.943_JPRB, 3.174_JPRB, &
+  & 3.855_JPRB, 4.761_JPRB, 6.156_JPRB, 7.300_JPRB, 9.170_JPRB,13.236_JPRB /)
+
+ALF_SS( :, 8, 1) = (/ &
+  & 0.763_JPRB, 0.763_JPRB, 0.763_JPRB, 0.763_JPRB, 2.806_JPRB, 3.012_JPRB, &
+  & 3.691_JPRB, 4.578_JPRB, 5.999_JPRB, 7.146_JPRB, 9.085_JPRB,13.416_JPRB /)
+ALF_SS( :, 9, 1) = (/ &
+  & 0.545_JPRB, 0.545_JPRB, 0.545_JPRB, 0.545_JPRB, 2.301_JPRB, 2.434_JPRB, &
+  & 3.035_JPRB, 3.857_JPRB, 5.227_JPRB, 6.386_JPRB, 8.466_JPRB,13.570_JPRB /)
+
+ALF_SS( :,10, 1) = (/ &
+  &  .500_JPRB,  .500_JPRB,  .500_JPRB,  .500_JPRB, 2.162_JPRB, 2.283_JPRB, &
+  & 2.869_JPRB, 3.662_JPRB, 5.004_JPRB, 6.147_JPRB, 8.239_JPRB,13.447_JPRB /)
+ALF_SS( :,11, 1) = (/ &
+  &  .314_JPRB,  .314_JPRB,  .314_JPRB,  .314_JPRB, 1.575_JPRB, 1.648_JPRB, &
+  & 2.106_JPRB, 2.754_JPRB, 3.898_JPRB, 4.910_JPRB, 6.855_JPRB,12.275_JPRB /)
+ALF_SS( :,12, 1) = (/ &
+  & 0.252_JPRB, 0.252_JPRB, 0.252_JPRB, 0.252_JPRB, 1.350_JPRB, 1.417_JPRB, &
+  & 1.836_JPRB, 2.425_JPRB, 3.458_JPRB, 4.416_JPRB, 6.229_JPRB,11.532_JPRB /)
+
+ALF_SS( :,13, 1) = (/ &
+  &  .246_JPRB,  .246_JPRB,  .246_JPRB,  .246_JPRB, 1.325_JPRB, 1.391_JPRB, &
+  & 1.805_JPRB, 2.388_JPRB, 3.408_JPRB, 4.357_JPRB, 6.157_JPRB,11.438_JPRB /)
+ALF_SS( :,14, 1) = (/ &
+  & 0.078_JPRB, 0.078_JPRB, 0.078_JPRB, 0.078_JPRB, 0.516_JPRB, 0.557_JPRB, &
+  & 0.759_JPRB, 1.059_JPRB, 1.601_JPRB, 2.125_JPRB, 3.232_JPRB, 6.884_JPRB /)
+ALF_SS( :,15, 1) = (/ &
+  & 0.028_JPRB, 0.028_JPRB, 0.028_JPRB, 0.028_JPRB, 0.213_JPRB, 0.237_JPRB, &
+  & 0.327_JPRB, 0.466_JPRB, 0.746_JPRB, 1.037_JPRB, 1.666_JPRB, 3.881_JPRB /)
+ALF_SS( :,16, 1) = (/ &
+  & 0.010_JPRB, 0.010_JPRB, 0.010_JPRB, 0.010_JPRB, 0.086_JPRB, 0.099_JPRB, &
+  & 0.141_JPRB, 0.207_JPRB, 0.338_JPRB, 0.472_JPRB, 0.773_JPRB, 2.013_JPRB /)
+
+
+
+
+
+
+! assymetry factor
+ASY_SS( :, 1, 1) = (/ & 
+  &  .698_JPRB,  .698_JPRB,  .698_JPRB,  .698_JPRB,  .707_JPRB,  .754_JPRB, &
+  &  .756_JPRB,  .755_JPRB,  .750_JPRB,  .744_JPRB,  .732_JPRB,  .717_JPRB /)
+ASY_SS( :, 2, 1) = (/ & 
+  &  .698_JPRB,  .698_JPRB,  .698_JPRB,  .698_JPRB,  .707_JPRB,  .754_JPRB, &
+  &  .756_JPRB,  .755_JPRB,  .750_JPRB,  .744_JPRB,  .732_JPRB,  .717_JPRB /)
+ASY_SS( :, 3, 1) = (/ & 
+  &  .698_JPRB,  .698_JPRB,  .698_JPRB,  .698_JPRB,  .707_JPRB,  .754_JPRB, &
+  &  .756_JPRB,  .755_JPRB,  .750_JPRB,  .744_JPRB,  .732_JPRB,  .717_JPRB /)
+ASY_SS( :, 4, 1) = (/ & 
+  &  .682_JPRB,  .682_JPRB,  .682_JPRB,  .682_JPRB,  .711_JPRB,  .755_JPRB, &
+  &  .759_JPRB,  .762_JPRB,  .760_JPRB,  .757_JPRB,  .747_JPRB,  .724_JPRB /)
+ASY_SS( :, 5, 1) = (/ & 
+  & 0.670_JPRB, 0.670_JPRB, 0.670_JPRB, 0.670_JPRB, 0.711_JPRB, 0.753_JPRB, &
+  & 0.759_JPRB, 0.763_JPRB, 0.765_JPRB, 0.763_JPRB, 0.756_JPRB, 0.733_JPRB /)
+
+ASY_SS( :, 6, 1) = (/ & 
+  &  .659_JPRB,  .659_JPRB,  .659_JPRB,  .659_JPRB,  .709_JPRB,  .749_JPRB, &
+  &  .756_JPRB,  .763_JPRB,  .767_JPRB,  .767_JPRB,  .764_JPRB,  .743_JPRB /)
+ASY_SS( :, 7, 1) = (/ & 
+  &  .645_JPRB,  .645_JPRB,  .645_JPRB,  .645_JPRB,  .705_JPRB,  .743_JPRB, &
+  &  .752_JPRB,  .761_JPRB,  .767_JPRB,  .770_JPRB,  .768_JPRB,  .751_JPRB /)
+
+ASY_SS( :, 8, 1) = (/ & 
+  & 0.633_JPRB, 0.633_JPRB, 0.633_JPRB, 0.633_JPRB, 0.701_JPRB, 0.738_JPRB, &
+  & 0.749_JPRB, 0.758_JPRB, 0.767_JPRB, 0.769_JPRB, 0.771_JPRB, 0.758_JPRB /)
+ASY_SS( :, 9, 1) = (/ & 
+  & 0.581_JPRB, 0.581_JPRB, 0.581_JPRB, 0.581_JPRB, 0.679_JPRB, 0.715_JPRB, &
+  & 0.729_JPRB, 0.743_JPRB, 0.757_JPRB, 0.764_JPRB, 0.772_JPRB, 0.772_JPRB /)
+
+ASY_SS( :,10, 1) = (/ & 
+  &  .569_JPRB,  .569_JPRB,  .569_JPRB,  .569_JPRB,  .672_JPRB,  .707_JPRB, &
+  &  .723_JPRB,  .738_JPRB,  .753_JPRB,  .761_JPRB,  .771_JPRB,  .774_JPRB /)
+ASY_SS( :,11, 1) = (/ & 
+  &  .513_JPRB,  .513_JPRB,  .513_JPRB,  .513_JPRB,  .633_JPRB,  .667_JPRB, &
+  &  .685_JPRB,  .704_JPRB,  .726_JPRB,  .740_JPRB,  .756_JPRB,  .774_JPRB /)
+ASY_SS( :,12, 1) = (/ & 
+  & 0.475_JPRB, 0.475_JPRB, 0.475_JPRB, 0.475_JPRB, 0.609_JPRB, 0.644_JPRB, &
+  & 0.667_JPRB, 0.688_JPRB, 0.712_JPRB, 0.727_JPRB, 0.746_JPRB, 0.770_JPRB /)
+
+ASY_SS( :,13, 1) = (/ & 
+  &  .470_JPRB,  .470_JPRB,  .470_JPRB,  .470_JPRB,  .606_JPRB,  .641_JPRB, &
+  &  .665_JPRB,  .686_JPRB,  .710_JPRB,  .726_JPRB,  .745_JPRB,  .769_JPRB /)
+ASY_SS( :,14, 1) = (/ & 
+  & 0.230_JPRB, 0.230_JPRB, 0.230_JPRB, 0.230_JPRB, 0.473_JPRB, 0.506_JPRB, &
+  & 0.539_JPRB, 0.568_JPRB, 0.601_JPRB, 0.627_JPRB, 0.664_JPRB, 0.716_JPRB /)
+ASY_SS( :,15, 1) = (/ & 
+  & 0.128_JPRB, 0.128_JPRB, 0.128_JPRB, 0.128_JPRB, 0.276_JPRB, 0.311_JPRB, &
+  & 0.357_JPRB, 0.413_JPRB, 0.482_JPRB, 0.522_JPRB, 0.566_JPRB, 0.635_JPRB /)
+ASY_SS( :,16, 1) = (/ & 
+  & 0.076_JPRB, 0.076_JPRB, 0.076_JPRB, 0.076_JPRB, 0.158_JPRB, 0.179_JPRB, &
+  & 0.206_JPRB, 0.242_JPRB, 0.297_JPRB, 0.343_JPRB, 0.417_JPRB, 0.540_JPRB /)
+
+! single scattering albedo
+OMG_SS( :, 1, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 2, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 3, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 4, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 5, 1) = (/ &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :, 6, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 7, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :, 8, 1) = (/ &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 9, 1) = (/ &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :,10, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,11, 1) = (/ &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,12, 1) = (/ &
+  & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :,13, 1) = (/ &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,14, 1) = (/ &
+  & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,15, 1) = (/ &
+  & 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.997_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,16, 1) = (/ &
+  & 0.988_JPRB, 0.988_JPRB, 0.988_JPRB, 0.988_JPRB, 0.995_JPRB, 0.998_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+! BIN No. 2
+ALF_SS( :, 1, 2) = (/ &
+  &  .137_JPRB,  .137_JPRB,  .137_JPRB,  .137_JPRB,  .264_JPRB,  .309_JPRB, &
+  &  .351_JPRB,  .406_JPRB,  .494_JPRB,  .567_JPRB,  .697_JPRB, 1.031_JPRB /)
+ALF_SS( :, 2, 2) = (/ &
+  &  .137_JPRB,  .137_JPRB,  .137_JPRB,  .137_JPRB,  .264_JPRB,  .309_JPRB, &
+  &  .351_JPRB,  .406_JPRB,  .494_JPRB,  .567_JPRB,  .697_JPRB, 1.031_JPRB /)
+ALF_SS( :, 3, 2) = (/ &
+  &  .137_JPRB,  .137_JPRB,  .137_JPRB,  .137_JPRB,  .264_JPRB,  .309_JPRB, &
+  &  .351_JPRB,  .406_JPRB,  .494_JPRB,  .567_JPRB,  .697_JPRB, 1.031_JPRB /)
+ALF_SS( :, 4, 2) = (/ &
+  &  .140_JPRB,  .140_JPRB,  .140_JPRB,  .140_JPRB,  .268_JPRB,  .313_JPRB, &
+  &  .356_JPRB,  .411_JPRB,  .496_JPRB,  .568_JPRB,  .697_JPRB, 1.035_JPRB /)
+ALF_SS( :, 5, 2) = (/ &
+  & 0.141_JPRB, 0.141_JPRB, 0.141_JPRB, 0.141_JPRB, 0.272_JPRB, 0.317_JPRB, &
+  & 0.360_JPRB, 0.415_JPRB, 0.500_JPRB, 0.571_JPRB, 0.697_JPRB, 1.033_JPRB /)
+
+ALF_SS( :, 6, 2) = (/ &
+  &  .143_JPRB,  .143_JPRB,  .143_JPRB,  .143_JPRB,  .274_JPRB,  .322_JPRB, &
+  &  .365_JPRB,  .420_JPRB,  .505_JPRB,  .574_JPRB,  .699_JPRB, 1.033_JPRB /)
+ALF_SS( :, 7, 2) = (/ &
+  &  .144_JPRB,  .144_JPRB,  .144_JPRB,  .144_JPRB,  .279_JPRB,  .326_JPRB, &
+  &  .370_JPRB,  .425_JPRB,  .510_JPRB,  .578_JPRB,  .701_JPRB, 1.032_JPRB /)
+
+ALF_SS( :, 8, 2) = (/ &
+  & 0.144_JPRB, 0.144_JPRB, 0.144_JPRB, 0.144_JPRB, 0.281_JPRB, 0.329_JPRB, &
+  & 0.373_JPRB, 0.429_JPRB, 0.514_JPRB, 0.584_JPRB, 0.707_JPRB, 1.032_JPRB /)
+ALF_SS( :, 9, 2) = (/ &
+  & 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.290_JPRB, 0.337_JPRB, &
+  & 0.384_JPRB, 0.443_JPRB, 0.530_JPRB, 0.602_JPRB, 0.724_JPRB, 1.041_JPRB /)
+
+ALF_SS( :,10, 2) = (/ &
+  &  .147_JPRB,  .147_JPRB,  .147_JPRB,  .147_JPRB,  .292_JPRB,  .340_JPRB, &
+  &  .385_JPRB,  .446_JPRB,  .533_JPRB,  .606_JPRB,  .728_JPRB, 1.047_JPRB /)
+ALF_SS( :,11, 2) = (/ &
+  &  .146_JPRB,  .146_JPRB,  .146_JPRB,  .146_JPRB,  .299_JPRB,  .345_JPRB, &
+  &  .395_JPRB,  .459_JPRB,  .551_JPRB,  .628_JPRB,  .758_JPRB, 1.078_JPRB /)
+ALF_SS( :,12, 2) = (/ &
+  & 0.147_JPRB, 0.147_JPRB, 0.147_JPRB, 0.147_JPRB, 0.300_JPRB, 0.348_JPRB, &
+  & 0.397_JPRB, 0.459_JPRB, 0.559_JPRB, 0.634_JPRB, 0.768_JPRB, 1.095_JPRB /)
+
+ALF_SS( :,13, 2) = (/ &
+  &  .147_JPRB,  .147_JPRB,  .147_JPRB,  .147_JPRB,  .301_JPRB,  .348_JPRB, &
+  &  .398_JPRB,  .459_JPRB,  .559_JPRB,  .635_JPRB,  .769_JPRB, 1.098_JPRB /)
+ALF_SS( :,14, 2) = (/ &
+  & 0.148_JPRB, 0.148_JPRB, 0.148_JPRB, 0.148_JPRB, 0.305_JPRB, 0.349_JPRB, &
+  & 0.403_JPRB, 0.466_JPRB, 0.566_JPRB, 0.651_JPRB, 0.802_JPRB, 1.167_JPRB /)
+ALF_SS( :,15, 2) = (/ &
+  & 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.302_JPRB, 0.351_JPRB, &
+  & 0.399_JPRB, 0.461_JPRB, 0.563_JPRB, 0.651_JPRB, 0.805_JPRB, 1.183_JPRB /)
+ALF_SS( :,16, 2) = (/ &
+  & 0.155_JPRB, 0.155_JPRB, 0.155_JPRB, 0.155_JPRB, 0.305_JPRB, 0.348_JPRB, &
+  & 0.402_JPRB, 0.472_JPRB, 0.576_JPRB, 0.657_JPRB, 0.793_JPRB, 1.187_JPRB /)
+
+! assymetry factor
+ASY_SS( :, 1, 2) = (/ &
+  &  .741_JPRB,  .741_JPRB,  .741_JPRB,  .741_JPRB,  .755_JPRB,  .778_JPRB, &
+  &  .782_JPRB,  .789_JPRB,  .796_JPRB,  .801_JPRB,  .809_JPRB,  .819_JPRB /)
+ASY_SS( :, 2, 2) = (/ &
+  &  .741_JPRB,  .741_JPRB,  .741_JPRB,  .741_JPRB,  .755_JPRB,  .778_JPRB, &
+  &  .782_JPRB,  .789_JPRB,  .796_JPRB,  .801_JPRB,  .809_JPRB,  .819_JPRB /)
+ASY_SS( :, 3, 2) = (/ &
+  &  .741_JPRB,  .741_JPRB,  .741_JPRB,  .741_JPRB,  .755_JPRB,  .778_JPRB, &
+  &  .782_JPRB,  .789_JPRB,  .796_JPRB,  .801_JPRB,  .809_JPRB,  .819_JPRB /)
+ASY_SS( :, 4, 2) = (/ &
+  &  .739_JPRB,  .739_JPRB,  .739_JPRB,  .739_JPRB,  .750_JPRB,  .776_JPRB, &
+  &  .779_JPRB,  .784_JPRB,  .792_JPRB,  .795_JPRB,  .802_JPRB,  .816_JPRB /)
+ASY_SS( :, 5, 2) = (/ &
+  & 0.737_JPRB, 0.737_JPRB, 0.737_JPRB, 0.737_JPRB, 0.747_JPRB, 0.773_JPRB, &
+  & 0.778_JPRB, 0.782_JPRB, 0.788_JPRB, 0.791_JPRB, 0.798_JPRB, 0.812_JPRB /)
+
+ASY_SS( :, 6, 2) = (/ &
+  &  .734_JPRB,  .734_JPRB,  .734_JPRB,  .734_JPRB,  .745_JPRB,  .772_JPRB, &
+  &  .775_JPRB,  .780_JPRB,  .785_JPRB,  .789_JPRB,  .795_JPRB,  .807_JPRB /)
+ASY_SS( :, 7, 2) = (/ &
+  &  .732_JPRB,  .732_JPRB,  .732_JPRB,  .732_JPRB,  .744_JPRB,  .770_JPRB, &
+  &  .775_JPRB,  .778_JPRB,  .784_JPRB,  .787_JPRB,  .793_JPRB,  .804_JPRB /)
+
+ASY_SS( :, 8, 2) = (/ &
+  & 0.730_JPRB, 0.730_JPRB, 0.730_JPRB, 0.730_JPRB, 0.742_JPRB, 0.770_JPRB, &
+  & 0.773_JPRB, 0.779_JPRB, 0.782_JPRB, 0.785_JPRB, 0.790_JPRB, 0.802_JPRB /)
+ASY_SS( :, 9, 2) = (/ &
+  & 0.723_JPRB, 0.723_JPRB, 0.723_JPRB, 0.723_JPRB, 0.739_JPRB, 0.766_JPRB, &
+  & 0.771_JPRB, 0.776_JPRB, 0.780_JPRB, 0.783_JPRB, 0.786_JPRB, 0.794_JPRB /)
+
+ASY_SS( :,10, 2) = (/ &
+  &  .720_JPRB,  .720_JPRB,  .720_JPRB,  .720_JPRB,  .737_JPRB,  .765_JPRB, &
+  &  .770_JPRB,  .774_JPRB,  .780_JPRB,  .782_JPRB,  .785_JPRB,  .793_JPRB /)
+ASY_SS( :,11, 2) = (/ &
+  &  .705_JPRB,  .705_JPRB,  .705_JPRB,  .705_JPRB,  .730_JPRB,  .758_JPRB, &
+  &  .763_JPRB,  .770_JPRB,  .775_JPRB,  .777_JPRB,  .781_JPRB,  .787_JPRB /)
+ASY_SS( :,12, 2) = (/ &
+  & 0.701_JPRB, 0.701_JPRB, 0.701_JPRB, 0.701_JPRB, 0.727_JPRB, 0.757_JPRB, &
+  & 0.760_JPRB, 0.767_JPRB, 0.773_JPRB, 0.776_JPRB, 0.780_JPRB, 0.788_JPRB /)
+
+ASY_SS( :,13, 2) = (/ &
+  &  .701_JPRB,  .701_JPRB,  .701_JPRB,  .701_JPRB,  .726_JPRB,  .756_JPRB, &
+  &  .760_JPRB,  .766_JPRB,  .773_JPRB,  .776_JPRB,  .780_JPRB,  .787_JPRB /)
+ASY_SS( :,14, 2) = (/ &
+  & 0.671_JPRB, 0.671_JPRB, 0.671_JPRB, 0.671_JPRB, 0.701_JPRB, 0.731_JPRB, &
+  & 0.738_JPRB, 0.747_JPRB, 0.753_JPRB, 0.759_JPRB, 0.767_JPRB, 0.779_JPRB /)
+ASY_SS( :,15, 2) = (/ &
+  & 0.642_JPRB, 0.642_JPRB, 0.642_JPRB, 0.642_JPRB, 0.675_JPRB, 0.711_JPRB, &
+  & 0.716_JPRB, 0.723_JPRB, 0.733_JPRB, 0.742_JPRB, 0.751_JPRB, 0.764_JPRB /)
+ASY_SS( :,16, 2) = (/ &
+  & 0.662_JPRB, 0.662_JPRB, 0.662_JPRB, 0.662_JPRB, 0.653_JPRB, 0.690_JPRB, &
+  & 0.699_JPRB, 0.709_JPRB, 0.720_JPRB, 0.724_JPRB, 0.730_JPRB, 0.748_JPRB /)
+
+! single scattering albedo
+OMG_SS( :, 1, 2) = (/ &
+  &  .990_JPRB,  .990_JPRB,  .990_JPRB,  .990_JPRB,  .986_JPRB,  .994_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 2, 2) = (/ &
+  &  .990_JPRB,  .990_JPRB,  .990_JPRB,  .990_JPRB,  .986_JPRB,  .994_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 3, 2) = (/ &
+  &  .990_JPRB,  .990_JPRB,  .990_JPRB,  .990_JPRB,  .986_JPRB,  .994_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 4, 2) = (/ &
+  &  .991_JPRB,  .991_JPRB,  .991_JPRB,  .991_JPRB,  .987_JPRB,  .995_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 5, 2) = (/ &
+  & 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.988_JPRB, 0.995_JPRB, &
+  & 0.996_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB /)
+
+OMG_SS( :, 6, 2) = (/ &
+  &  .992_JPRB,  .992_JPRB,  .992_JPRB,  .992_JPRB,  .989_JPRB,  .996_JPRB, &
+  &  .996_JPRB,  .997_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 7, 2) = (/ &
+  &  .993_JPRB,  .993_JPRB,  .993_JPRB,  .993_JPRB,  .989_JPRB,  .996_JPRB, &
+  &  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB /)
+
+OMG_SS( :, 8, 2) = (/ &
+  & 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.990_JPRB, 0.996_JPRB, &
+  & 0.996_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+OMG_SS( :, 9, 2) = (/ &
+  & 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.991_JPRB, 0.997_JPRB, &
+  & 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+
+OMG_SS( :,10, 2) = (/ &
+  &  .994_JPRB,  .994_JPRB,  .994_JPRB,  .994_JPRB,  .992_JPRB,  .997_JPRB, &
+  &  .997_JPRB,  .997_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB,  .999_JPRB /)
+OMG_SS( :,11, 2) = (/ &
+  &  .995_JPRB,  .995_JPRB,  .995_JPRB,  .995_JPRB,  .993_JPRB,  .997_JPRB, &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB,  .999_JPRB /)
+OMG_SS( :,12, 2) = (/ &
+  & 0.995_JPRB, 0.995_JPRB, 0.995_JPRB, 0.995_JPRB, 0.993_JPRB, 0.998_JPRB, &
+  & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB /)
+
+OMG_SS( :,13, 2) = (/ &
+  &  .995_JPRB,  .995_JPRB,  .995_JPRB,  .995_JPRB,  .993_JPRB,  .998_JPRB, &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB /)
+OMG_SS( :,14, 2) = (/ &
+  & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.995_JPRB, 0.998_JPRB, &
+  & 0.998_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB /)
+OMG_SS( :,15, 2) = (/ &
+  & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.996_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB /)
+OMG_SS( :,16, 2) = (/ &
+  & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.997_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+! BIN No. 3
+ALF_SS( :, 1, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .078_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .148_JPRB,  .170_JPRB,  .208_JPRB,  .308_JPRB /)
+ALF_SS( :, 2, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .078_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .148_JPRB,  .170_JPRB,  .208_JPRB,  .308_JPRB /)
+ALF_SS( :, 3, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .078_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .148_JPRB,  .170_JPRB,  .208_JPRB,  .308_JPRB /)
+ALF_SS( :, 4, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .079_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .149_JPRB,  .171_JPRB,  .209_JPRB,  .308_JPRB /)
+ALF_SS( :, 5, 3) = (/ &
+  & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.079_JPRB, 0.092_JPRB, &
+  & 0.105_JPRB, 0.122_JPRB, 0.149_JPRB, 0.171_JPRB, 0.210_JPRB, 0.309_JPRB /)
+
+ALF_SS( :, 6, 3) = (/ &
+  &  .039_JPRB,  .039_JPRB,  .039_JPRB,  .039_JPRB,  .079_JPRB,  .092_JPRB, &
+  &  .105_JPRB,  .123_JPRB,  .149_JPRB,  .171_JPRB,  .209_JPRB,  .309_JPRB /)
+ALF_SS( :, 7, 3) = (/ &
+  &  .039_JPRB,  .039_JPRB,  .039_JPRB,  .039_JPRB,  .079_JPRB,  .092_JPRB, &
+  &  .105_JPRB,  .123_JPRB,  .149_JPRB,  .172_JPRB,  .210_JPRB,  .310_JPRB /)
+
+ALF_SS( :, 8, 3) = (/ &
+  & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.079_JPRB, 0.092_JPRB, &
+  & 0.106_JPRB, 0.123_JPRB, 0.150_JPRB, 0.172_JPRB, 0.210_JPRB, 0.310_JPRB /)
+ALF_SS( :, 9, 3) = (/ &
+  & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.080_JPRB, 0.093_JPRB, &
+  & 0.106_JPRB, 0.123_JPRB, 0.151_JPRB, 0.172_JPRB, 0.211_JPRB, 0.311_JPRB /)
+
+ALF_SS( :,10, 3) = (/ &
+  &  .039_JPRB,  .039_JPRB,  .039_JPRB,  .039_JPRB,  .080_JPRB,  .093_JPRB, &
+  &  .107_JPRB,  .124_JPRB,  .151_JPRB,  .173_JPRB,  .212_JPRB,  .311_JPRB /)
+ALF_SS( :,11, 3) = (/ &
+  &  .040_JPRB,  .040_JPRB,  .040_JPRB,  .040_JPRB,  .081_JPRB,  .094_JPRB, &
+  &  .108_JPRB,  .124_JPRB,  .152_JPRB,  .174_JPRB,  .212_JPRB,  .314_JPRB /)
+ALF_SS( :,12, 3) = (/ &
+  & 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.081_JPRB, 0.094_JPRB, &
+  & 0.108_JPRB, 0.126_JPRB, 0.152_JPRB, 0.174_JPRB, 0.213_JPRB, 0.314_JPRB /)
+
+ALF_SS( :,13, 3) = (/ &
+  &  .040_JPRB,  .040_JPRB,  .040_JPRB,  .040_JPRB,  .081_JPRB,  .094_JPRB, &
+  &  .108_JPRB,  .126_JPRB,  .152_JPRB,  .174_JPRB,  .213_JPRB,  .314_JPRB /)
+ALF_SS( :,14, 3) = (/ &
+  & 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.082_JPRB, 0.096_JPRB, &
+  & 0.109_JPRB, 0.127_JPRB, 0.156_JPRB, 0.178_JPRB, 0.215_JPRB, 0.318_JPRB /)
+ALF_SS( :,15, 3) = (/ &
+  & 0.043_JPRB, 0.043_JPRB, 0.043_JPRB, 0.043_JPRB, 0.084_JPRB, 0.097_JPRB, &
+  & 0.112_JPRB, 0.131_JPRB, 0.159_JPRB, 0.180_JPRB, 0.218_JPRB, 0.324_JPRB /)
+ALF_SS( :,16, 3) = (/ &
+  & 0.042_JPRB, 0.042_JPRB, 0.042_JPRB, 0.042_JPRB, 0.086_JPRB, 0.102_JPRB, &
+  & 0.115_JPRB, 0.131_JPRB, 0.157_JPRB, 0.181_JPRB, 0.225_JPRB, 0.326_JPRB /)
+
+! assymetry factor
+ASY_SS( :, 1, 3) = (/ &
+  &  .803_JPRB,  .803_JPRB,  .803_JPRB,  .803_JPRB,  .810_JPRB,  .828_JPRB, &
+  &  .831_JPRB,  .834_JPRB,  .837_JPRB,  .839_JPRB,  .842_JPRB,  .845_JPRB /)
+ASY_SS( :, 2, 3) = (/ &
+  &  .803_JPRB,  .803_JPRB,  .803_JPRB,  .803_JPRB,  .810_JPRB,  .828_JPRB, &
+  &  .831_JPRB,  .834_JPRB,  .837_JPRB,  .839_JPRB,  .842_JPRB,  .845_JPRB /)
+ASY_SS( :, 3, 3) = (/ &
+  &  .803_JPRB,  .803_JPRB,  .803_JPRB,  .803_JPRB,  .810_JPRB,  .828_JPRB, &
+  &  .831_JPRB,  .834_JPRB,  .837_JPRB,  .839_JPRB,  .842_JPRB,  .845_JPRB /)
+ASY_SS( :, 4, 3) = (/ &
+  &  .800_JPRB,  .800_JPRB,  .800_JPRB,  .800_JPRB,  .808_JPRB,  .827_JPRB, &
+  &  .830_JPRB,  .832_JPRB,  .836_JPRB,  .838_JPRB,  .840_JPRB,  .844_JPRB /)
+ASY_SS( :, 5, 3) = (/ &
+  & 0.799_JPRB, 0.799_JPRB, 0.799_JPRB, 0.799_JPRB, 0.807_JPRB, 0.826_JPRB, &
+  & 0.829_JPRB, 0.832_JPRB, 0.834_JPRB, 0.837_JPRB, 0.840_JPRB, 0.845_JPRB /)
+ASY_SS( :, 6, 3) = (/ &
+  &  .796_JPRB,  .796_JPRB,  .796_JPRB,  .796_JPRB,  .806_JPRB,  .824_JPRB, &
+  &  .828_JPRB,  .830_JPRB,  .834_JPRB,  .836_JPRB,  .839_JPRB,  .843_JPRB /)
+ASY_SS( :, 7, 3) = (/ &
+  &  .795_JPRB,  .795_JPRB,  .795_JPRB,  .795_JPRB,  .804_JPRB,  .823_JPRB, &
+  &  .826_JPRB,  .829_JPRB,  .833_JPRB,  .835_JPRB,  .837_JPRB,  .842_JPRB /)
+
+ASY_SS( :, 8, 3) = (/ &
+  & 0.794_JPRB, 0.794_JPRB, 0.794_JPRB, 0.794_JPRB, 0.803_JPRB, 0.822_JPRB, &
+  & 0.826_JPRB, 0.829_JPRB, 0.832_JPRB, 0.834_JPRB, 0.837_JPRB, 0.841_JPRB /)
+ASY_SS( :, 9, 3) = (/ &
+  & 0.788_JPRB, 0.788_JPRB, 0.788_JPRB, 0.788_JPRB, 0.800_JPRB, 0.819_JPRB, &
+  & 0.823_JPRB, 0.825_JPRB, 0.829_JPRB, 0.832_JPRB, 0.835_JPRB, 0.840_JPRB /)
+
+ASY_SS( :,10, 3) = (/ &
+  &  .786_JPRB,  .786_JPRB,  .786_JPRB,  .786_JPRB,  .800_JPRB,  .818_JPRB, &
+  &  .822_JPRB,  .824_JPRB,  .829_JPRB,  .831_JPRB,  .834_JPRB,  .838_JPRB /)
+ASY_SS( :,11, 3) = (/ &
+  &  .779_JPRB,  .779_JPRB,  .779_JPRB,  .779_JPRB,  .794_JPRB,  .813_JPRB, &
+  &  .817_JPRB,  .820_JPRB,  .824_JPRB,  .827_JPRB,  .830_JPRB,  .836_JPRB /)
+ASY_SS( :,12, 3) = (/ &
+  & 0.774_JPRB, 0.774_JPRB, 0.774_JPRB, 0.774_JPRB, 0.791_JPRB, 0.810_JPRB, &
+  & 0.815_JPRB, 0.819_JPRB, 0.822_JPRB, 0.826_JPRB, 0.829_JPRB, 0.833_JPRB /)
+
+ASY_SS( :,13, 3) = (/ &
+  &  .774_JPRB,  .774_JPRB,  .774_JPRB,  .774_JPRB,  .791_JPRB,  .809_JPRB, &
+  &  .814_JPRB,  .819_JPRB,  .821_JPRB,  .825_JPRB,  .829_JPRB,  .834_JPRB /)
+ASY_SS( :,14, 3) = (/ &
+  & 0.754_JPRB, 0.754_JPRB, 0.754_JPRB, 0.754_JPRB, 0.774_JPRB, 0.795_JPRB, &
+  & 0.799_JPRB, 0.805_JPRB, 0.813_JPRB, 0.816_JPRB, 0.819_JPRB, 0.826_JPRB /)
+ASY_SS( :,15, 3) = (/ &
+  & 0.751_JPRB, 0.751_JPRB, 0.751_JPRB, 0.751_JPRB, 0.762_JPRB, 0.784_JPRB, &
+  & 0.790_JPRB, 0.797_JPRB, 0.802_JPRB, 0.804_JPRB, 0.808_JPRB, 0.819_JPRB /)
+ASY_SS( :,16, 3) = (/ &
+  & 0.708_JPRB, 0.708_JPRB, 0.708_JPRB, 0.708_JPRB, 0.752_JPRB, 0.778_JPRB, &
+  & 0.781_JPRB, 0.783_JPRB, 0.788_JPRB, 0.792_JPRB, 0.801_JPRB, 0.808_JPRB /)
+
+! single scattering albedo
+OMG_SS( :, 1, 3) = (/ &
+  &  .980_JPRB,  .980_JPRB,  .980_JPRB,  .980_JPRB,  .982_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 2, 3) = (/ &
+  &  .980_JPRB,  .980_JPRB,  .980_JPRB,  .980_JPRB,  .982_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 3, 3) = (/ &
+  &  .980_JPRB,  .980_JPRB,  .980_JPRB,  .980_JPRB,  .982_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 4, 3) = (/ &
+  &  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .991_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 5, 3) = (/ &
+  & 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.991_JPRB, &
+  & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /)
+
+OMG_SS( :, 6, 3) = (/ &
+  &  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .991_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .995_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 7, 3) = (/ &
+  &  .982_JPRB,  .982_JPRB,  .982_JPRB,  .982_JPRB,  .990_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .995_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+
+OMG_SS( :, 8, 3) = (/ &
+  & 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.990_JPRB, 0.992_JPRB, &
+  & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /)
+OMG_SS( :, 9, 3) = (/ &
+  & 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.990_JPRB, 0.992_JPRB, &
+  & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /)
+
+OMG_SS( :,10, 3) = (/ &
+  &  .983_JPRB,  .983_JPRB,  .983_JPRB,  .983_JPRB,  .987_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :,11, 3) = (/ &
+  &  .985_JPRB,  .985_JPRB,  .985_JPRB,  .985_JPRB,  .990_JPRB,  .993_JPRB, &
+  &  .994_JPRB,  .995_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :,12, 3) = (/ &
+  & 0.985_JPRB, 0.985_JPRB, 0.985_JPRB, 0.985_JPRB, 0.990_JPRB, 0.993_JPRB, &
+  & 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB /)
+
+OMG_SS( :,13, 3) = (/ &
+  &  .986_JPRB,  .986_JPRB,  .986_JPRB,  .986_JPRB,  .990_JPRB,  .993_JPRB, &
+  &  .994_JPRB,  .995_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :,14, 3) = (/ &
+  & 0.989_JPRB, 0.989_JPRB, 0.989_JPRB, 0.989_JPRB, 0.991_JPRB, 0.994_JPRB, &
+  & 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB /)
+OMG_SS( :,15, 3) = (/ &
+  & 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.994_JPRB, 0.996_JPRB, &
+  & 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+OMG_SS( :,16, 3) = (/ &
+  & 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.995_JPRB, 0.997_JPRB, &
+  & 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AEROP',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_AEROP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerop.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerop.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerop.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_AEROP
+END SUBROUTINE SU_AEROP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerp.F90	(revision 3330)
@@ -0,0 +1,288 @@
+SUBROUTINE SU_AERP
+
+!**** *SU_AERP*   - INITIALIZE MODULES YOEAERSRC, YOEAERSNK
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAERSRC AND YOEAERSNK, THE MODULES THAT CONTAINS 
+!           COEFFICIENTS NEEDED TO RUN THE PROGNOSTIC AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_AERP
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        YOEAERSRC, YOEAERSNK, YOEAERATM
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+!        from O.BOUCHER (LOA, 1998-03) 
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2004-05-10
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAERSRC , ONLY : RSSFLX
+
+USE YOEAERSNK , ONLY : R_R, R_S, RALPHAR, RALPHAS, RFRAER, RFRGAS, &
+  &  RRHMAX, RRHTAB, RRHO_SS, RSSGROW, RMMD_SS, RMMD_DD, RRHO_DD, &
+  &  RFRBC , RFRIF , RFROM  , RFRSO4 , RFRDD  , RFRSS , RHO_WAT, RHO_ICE, &
+  &  RVDPOCE, RVDPSIC, RVDPLND, RVDPLIC, RVSEDOCE, RVSEDSIC, RVSEDLND, RVSEDLIC, &
+  &  NBRH
+
+USE YOEAERATM , ONLY : RMASSE, RMFMIN, NDD1, NSS1
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERP',0,ZHOOK_HANDLE)
+
+!-- For the ECMWF model, the following tables when dimensioned to 12 
+!   can refer to 12 values of RH
+!      (RHTAB, RHHO_SS, RSSGROW)
+!   or to 12 types/bins of aerosols with the following mapping: NTYPAER
+!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns		   1
+!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns		   2
+!   7- 8  POM	    hydrophilic, hydrophobic			   3
+!   9-10  BC	    hydrophilic, hydrophobic			   4
+!  11     sulfate						   5
+!  12     fly ash						   6
+!  13     stratospheric aerosols				   7
+!  14     volcanic aerosols					   8
+!  15    							   9
+!      (RVDPOCE, RVDSIC, RVDPLND, RVDPLIC)
+!      (RVSEDOCE,RVSEDSIC,RVSEDLND,RVSEDLIC)
+
+
+
+!*      1.    PARAMETERS RELATED TO SOURCES
+!             -----------------------------
+
+!-- OB's original 12 types and 24 different values had the following mapping
+! DMS SO2 SO4 H2S DMSO MSA H2O2
+! BC(2) OM(2) FlyAsh DU(2) SS(10)
+
+!-- OB's original SS 10 bins     
+! bin sizes: 0.03-0.06-0.13-0.25-0.5-1.0-2.0-5.0-10.-15.-20
+!RSSFLX = (/ &
+!  &  0.20526E-09_JPRB, 0.49292E-09_JPRB, 0.97079E-09_JPRB, 0.31938E-08_JPRB &
+!  &, 0.16245E-07_JPRB, 0.86292E-07_JPRB, 0.31326E-06_JPRB, 0.24671E-06_JPRB &
+!  &, 0.14109E-06_JPRB, 0.11784E-06_JPRB /)
+
+! maximum possible number of aerosol types
+!NMAXTAER=9   already defined in SU_AERW
+
+!N.B. Fluxes of sea salt for each size bin are given in mg m-2 s-1 at wind 
+!     speed of 1 m s-1 at 10m height (at 80% RH) in OB's seasalt.F
+! RSSFLX also in mg m-2 s-1       
+!-- OB's ECMWF 3 bins of sea salt: 0.03, 0.5, 5, 20 microns  
+RSSFLX = (/ 4.85963536E-09_JPRB, 4.15358556E-07_JPRB, 5.04905813E-07_JPRB /)
+
+! OB's original vdep_oce, vdep_sic, vdep_ter, vdep_lic were given over 24 values 
+
+! following 12 values for 10 SS and 2 DU in cm s-1
+!RVDPOCE = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+!
+!RVDPSIC = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+!
+!RVDPLND = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+!
+!RVDPLIC = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+
+
+
+!*      2.    PARAMETERS RELATED TO SINKS
+!             ---------------------------
+
+R_R = 0.001_JPRB
+R_S = 0.001_JPRB
+
+RFRAER = 0.5_JPRB
+RFRGAS = 1.0_JPRB
+
+!*      2.1   SEA SALT
+!             -------- 
+!-- parameters related to SEA SALT: 12 relates to 12 values of relative humidity
+
+NBRH=12
+RRHMAX = 95._JPRB
+RRHTAB = (/ 0._JPRB, 10._JPRB, 20._JPRB, 30._JPRB, 40._JPRB, 50._JPRB &
+       & , 60._JPRB, 70._JPRB, 80._JPRB, 85._JPRB, 90._JPRB, 95._JPRB /)
+RRHO_SS = (/ 2160._JPRB, 2160._JPRB, 2160._JPRB, 2160._JPRB, 1451.6_JPRB &
+     & , 1367.9_JPRB, 1302.9_JPRB, 1243.2_JPRB, 1182.7_JPRB, 1149.5_JPRB &
+     & , 1111.6_JPRB, 1063.1_JPRB /)
+RSSGROW = (/ 0.503_JPRB, 0.503_JPRB, 0.503_JPRB, 0.503_JPRB, 0.724_JPRB &
+     & , 0.782_JPRB, 0.838_JPRB, 0.905_JPRB, 1.000_JPRB, 1.072_JPRB &
+     & , 1.188_JPRB, 1.447_JPRB /)
+
+!-- OB's original 10 bins !RMMD_SS = (/ 0.09_JPRB, 0.19_JPRB, 0.38_JPRB, 0.75_JPRB, 1.50_JPRB &
+!         & , 3.00_JPRB, 7.00_JPRB, 15.0_JPRB, 25.0_JPRB, 35.0_JPRB /)
+
+!-- OB's ECMWF 3 bins of sea salt
+!  bins are 0.03 - 0.5 -  5.0  - 20 microns
+
+RMMD_SS = (/ 0.30_JPRB, 3.00_JPRB, 10.00_JPRB /)
+RFRSS   = (/  0.7_JPRB,  0.7_JPRB,   0.7_JPRB /)
+RHO_WAT = 1000._JPRB
+RHO_ICE = 500._JPRB
+
+!-  computed off-line by gems_ss.f  (m s-1)
+
+RVSEDOCE(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+RVSEDSIC(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+RVSEDLND(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+RVSEDLIC(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+RVDPSIC(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+RVDPLND(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+RVDPLIC(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+
+
+!*      2.2   DESERT DUST
+!             ----------- 
+!- parameters related to DESERT DUST  (OB's ECMWF 3 bins)
+!  bins are 0.03 - 0.55 -  0.9  - 20 microns
+
+RMMD_DD = (/  0.32_JPRB,  0.75_JPRB,   9.0_JPRB /)
+RRHO_DD = (/ 2600._JPRB, 2600._JPRB, 2600._JPRB /)
+RFRDD   = (/   0.7_JPRB,   0.7_JPRB,   0.7_JPRB /)
+
+!-  computed off-line by gems_dust.f
+
+RVSEDOCE(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+RVSEDSIC(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+RVSEDLND(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+RVSEDLIC(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+RVDPSIC(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+RVDPLND(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+RVDPLIC(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+
+
+!*      2.3   OTHER AEROSOLS (to be improved later!)
+!             --------------
+!- parameters related to other aerosol types
+!- particulate organic matter POM
+RFROM = (/  0.0_JPRB,  0.7_JPRB /)
+
+RVSEDOCE(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDSIC(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLND(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLIC(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPSIC(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLND(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLIC(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+
+
+!- black carbon
+RFRBC = (/  0.0_JPRB,  0.7_JPRB /)
+
+RVSEDOCE(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDSIC(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLND(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLIC(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPSIC(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLND(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLIC(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+
+!- sulfate
+RFRSO4 = 0.7_JPRB
+
+RVSEDOCE(11) = 0.05_JPRB
+RVSEDSIC(11) = 0.25_JPRB
+RVSEDLND(11) = 0.25_JPRB
+RVSEDLIC(11) = 0.25_JPRB
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(11) = 0.05E-02_JPRB
+RVDPSIC(11) = 0.25E-02_JPRB
+RVDPLND(11) = 0.25E-02_JPRB
+RVDPLIC(11) = 0.25E-02_JPRB
+
+!- fly ash
+RFRIF  = 0.7_JPRB
+
+RVSEDOCE(12) = 0.20E+00_JPRB
+RVSEDSIC(12) = 0.20E+00_JPRB
+RVSEDLND(12) = 0.20E+00_JPRB
+RVSEDLIC(12) = 0.20E+00_JPRB
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(12) = 0.20E-02_JPRB
+RVDPSIC(12) = 0.20E-02_JPRB
+RVDPLND(12) = 0.20E-02_JPRB
+RVDPLIC(12) = 0.20E-02_JPRB
+
+
+
+
+!- NB: 15 values for all possible types of ECMWF aerosols
+RALPHAR = (/ &
+ & 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, &
+ & 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB /)
+RALPHAS = (/ &
+ &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB, &
+ &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB /)
+
+										 
+!*      3.    PARAMETERS RELATED TO TRANSPORT WITHIN THE FREE ATMOSPHERE
+!             ----------------------------------------------------------
+
+NDD1=4
+NSS1=1
+
+RMFMIN = 1.E-10_JPRB
+
+RMASSE = (/ &
+  &  6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB &
+  &, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB &
+  &, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB /)
+
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERP',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_AERP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerp.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_AERP
+END SUBROUTINE SU_AERP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerw.F90	(revision 3330)
@@ -0,0 +1,283 @@
+SUBROUTINE SU_AERW
+
+!**** *SU_AERW*   - DEFINES INDICES AND PARAMETERS FOR VARIOUS AEROSOL VARIABLES
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAERATM, YOEAERSRC, YOEAERSNK, THE MODULES THAT CONTAINS INDICES
+!           ALLOWING TO GET THE AEROSOL PARAMETERS RELEVANT FOR THE PROGNOSTIC AEROSOL
+!           CONFIGURATION.
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_AERW
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        YOEAERW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2005-07-08
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAERATM, ONLY : LAERGBUD, LAERSCAV ,LAERSEDIM, LAERSURF, LAER6SDIA, &
+ & LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERNGAT, LAERPRNT, &
+ & REPSCAER , INDBG
+
+USE YOEAERSRC, ONLY : JKBIN, JKTYP, LEPAERO  , &
+ & NBINAER, NINDAER , NMAXTAER, NTAER  , NTYPAER, RGELAV , RGEMUV , &
+ & RDGLAV , RDGMUV  , RCLONV  , RSLONV , RDCLONV, RDSLONV, LAEREXTR, &
+ & RSSFLX , RLATVOL , RLONVOL , NDDUST
+
+USE YOEPHY   , ONLY : LE4ALB
+
+USE YOEDBUG  , ONLY : KSTPDBG
+
+USE YOMCST   , ONLY : RPI
+USE YOMGC    , ONLY : GELAM
+USE YOMGEM   , ONLY : NGPTOT
+USE YOMLEG   , ONLY : RMU
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM, NULOUT
+USE YOMLUN   , ONLY : NULOUT
+
+USE YOM_YGFL, ONLY : NAERO
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IAER, ICAER, ITAER
+INTEGER(KIND=JPIM) :: J, JAER, JL
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+
+#include "posnam.intfb.h"
+
+#include "su_aerp.intfb.h"
+#include "su_aerop.intfb.h"
+!      ----------------------------------------------------------------
+
+#include "naeaer.h"
+
+!      ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERW',0,ZHOOK_HANDLE)
+
+!*         1.       DEFAULT VALUES OF PARAMETERS
+!                   ----------------------------
+
+print *,'DANS SU_AERW'
+NBINAER(:) = (/ 3, 3, 2, 2, 1, 1, 1, 1, 1 /)
+
+NMAXTAER=9
+NTYPAER(:) = 0
+JKBIN(:) = 0
+JKTYP(:) = 0
+
+LEPAERO=.FALSE.
+LAERCLIMG=.FALSE.
+LAERCLIMZ=.FALSE.
+LAERCLIST=.FALSE.
+LAERDRYDP=.FALSE.
+LAEREXTR=.FALSE.
+LAERGBUD=.FALSE.
+LAERNGAT=.FALSE.
+LAERPRNT=.FALSE.
+LAERSCAV=.FALSE.
+LAERSEDIM=.FALSE.
+LAERSURF=.FALSE.
+LAER6SDIA=.FALSE.
+INDBG=1
+NTAER  =0
+NDDUST =2
+
+! the 9 types and assumed number of bins are:
+!  NTYPAER    bins  type
+!     1       1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns
+!     2       4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns
+!     3       7- 8  POM	    hydrophilic, hydrophobic
+!     4       9-10  BC	    hydrophilic, hydrophobic
+!     5      11     sulfate
+!     6      12     fly ash
+!     7      13     pseudo-prognostic stratospheric aerosols
+!     8      14     pseudo-prognostic volcanic aerosols
+!     9      15     prognostic stratospheric aerosols
+ 
+DO JAER=1,NMAXTAER
+  NTYPAER(JAER)=0
+ENDDO
+
+RLATVOL=-999._JPRB
+RLONVOL=-999._JPRB
+RGELAV =-999._JPRB
+RGEMUV =-999._JPRB
+RDGLAV = 999._JPRB
+RDGMUV = 999._JPRB
+RCLONV =-999._JPRB
+RSLONV =-999._JPRB
+RDCLONV= 999._JPRB
+RDSLONV= 999._JPRB
+DO J=1,3
+  KSTPDBG(J)=-999
+ENDDO
+
+REPSCAER=1.E-15_JPRB
+
+!     ------------------------------------------------------------------
+
+!*         2.       READ VALUES OF PROGNOSTIC AEROSOL CONFIGURATION
+!                   -----------------------------------------------
+! Ce qui concerne NAEAER commente par MPL le 15.04.09
+!IF(NAERO > 0) THEN
+! CALL POSNAM(NULNAM,'NAEAER')
+! READ (NULNAM,NAEAER)
+!ENDIF
+
+IF (.NOT.LE4ALB) THEN
+  NDDUST=2
+ENDIF
+!     ------------------------------------------------------------------
+
+!*       3.    INITIALIZE PROGNOSTIC AEROSOL PHYSICAL AND OPTICAL PARAMETERS
+!              -------------------------------------------------------------
+
+  CALL SU_AERP
+print *,'SU_AERW: apres SU_AERP'
+  CALL SU_AEROP
+print *,'SU_AERW: apres SU_AEROP'
+
+IF (LEPAERO) THEN
+
+! define a composite index for each bin of each different aerosol type to be used
+! in source, sedimentation and deposition routines
+ 
+  ICAER=0
+  DO JAER=1,NMAXTAER
+    IF (NTYPAER(JAER) /= 0) THEN
+      NTAER=NTAER+1
+      ITAER=NTYPAER(JAER)
+      DO IAER=1,ITAER
+        ICAER=ICAER+1
+        NINDAER(ICAER)=JAER*10+IAER
+        JKTYP(ICAER)=JAER
+        JKBIN(ICAER)=IAER
+      ENDDO
+    ENDIF
+  ENDDO
+
+!-- if volcanic aerosols, define the model coordinates
+
+  IF (NTYPAER(9) /= 0) THEN
+    RGEMUV=(RLATVOL+90._JPRB)*RPI/180._JPRB
+    RGELAV=RLONVOL*RPI/180._JPRB
+    RCLONV=COS(RGELAV)
+    RSLONV=SIN(RGELAV)
+    DO J=1,NGPTOT-1
+      IF (RGELAV > GELAM(J) .AND. RGELAV <= GELAM(J+1) .AND. &
+        & RGEMUV < RMU(JL) .AND. RGEMUV >= RMU(JL+1) ) THEN
+        RDGMUV=ABS( RMU(J+1) - RMU(J))
+        RDGLAV=ABS( GELAM(J+1)-GELAM(J) )
+        RDSLONV=ABS( SIN(GELAM(JL+1))-SIN(GELAM(JL)) )
+        RDCLONV=ABS( COS(GELAM(JL+1))-COS(GELAM(JL)) )
+      ENDIF
+    ENDDO
+  ENDIF  
+
+!      ----------------------------------------------------------------
+
+!*       4.    PRINT FINAL VALUES.
+!              -------------------
+
+  WRITE(UNIT=NULOUT,FMT='('' LEPAERO = '',L5 &
+   & ,'' NTAER   = '',I2 ,'' NDDUST = '',I1,/&
+   & ,'' NTYPAER = '',9I3,/ &
+   & ,'' NBINAER = '',9I3,/ &
+   & ,'' JKTYP   = '',15I3,/&
+   & ,'' JKBIN   = '',15I3  &
+   & )')&
+   & LEPAERO,NTAER,(NTYPAER(JAER),JAER=1,9),(NBINAER(JAER),JAER=1,9), &
+   & (JKTYP(JAER),JAER=1,15),(JKBIN(JAER),JAER=1,15)
+  WRITE(UNIT=NULOUT,FMT='('' LAERGBUD = '',L3 &
+   & ,'' LAERNGAT = '',L3 &
+   & ,'' LAERDRYDP= '',L3 &
+   & ,'' LAERSEDIM= '',L3 &
+   & ,'' LAERSCAV = '',L3 &
+   & ,'' LAER6SDIA= '',L3 &
+   & ,'' LAERCLIMZ= '',L3 &
+   & ,'' LAERCLIMG= '',L3 &
+   & ,'' LAERCLIST= '',L3 &
+   & )')&
+   & LAERGBUD,LAERNGAT, LAERDRYDP,LAERSEDIM,LAERSCAV,LAER6SDIA,LAERCLIMZ,LAERCLIMG,LAERCLIST
+  WRITE(UNIT=NULOUT,FMT='('' RSSFLX= '',10E10.3)') RSSFLX
+  IF (NTYPAER(9) /= 0) THEN
+    WRITE(UNIT=NULOUT,FMT='('' RLATVOL= '',F5.2 &
+     & ,'' RLONVOL= '',F6.2,'' RGEMUV= '',F6.4,'' RGELAV= '',F6.4 &
+     & ,'' RCLONV = '',F6.4,'' RSLONV= '',F6.4,'' RDGMUV= '',F6.4 &
+     & ,'' RDGLAV = '',F6.4,'' RDCLONV= '',F6.4,'' RDSLONV= '',F6.4 &
+     & )')&
+     & RLATVOL,RLONVOL,RGEMUV,RGELAV,RCLONV,RSLONV,RDGMUV,RDGLAV,RDCLONV,RDSLONV
+  ENDIF
+ENDIF
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERW',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_AERW
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerw.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerw.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_aerw.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_AERW
+END SUBROUTINE SU_AERW
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_mcica.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_mcica.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_mcica.F90	(revision 3330)
@@ -0,0 +1,43646 @@
+!OCL SCALAR
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE SU_MCICA
+
+!**** *SU_MCICA*   - INITIALIZE COMMON YOE_MCICA
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOE_MCICA, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE RAISANEN-COLE-BARKER VERSION OF McICA
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_MCICA* FROM *SUECRAD*
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOE_MCICA
+
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+!        from Jason Cole's XCW_DATA.dat
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2006-01-05
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOE_MCICA, ONLY : NMCI1, NMCI2, XCW
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SU_MCICA',0,ZHOOK_HANDLE)
+
+NMCI1 = 1000
+NMCI2 = 140
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+CALL PART39
+CALL PART40
+CALL PART41
+CALL PART42
+CALL PART43
+CALL PART44
+CALL PART45
+CALL PART46
+CALL PART47
+CALL PART48
+CALL PART49
+CALL PART50
+CALL PART51
+CALL PART52
+CALL PART53
+CALL PART54
+CALL PART55
+CALL PART56
+CALL PART57
+CALL PART58
+CALL PART59
+CALL PART60
+CALL PART61
+CALL PART62
+CALL PART63
+CALL PART64
+CALL PART65
+CALL PART66
+CALL PART67
+CALL PART68
+CALL PART69
+CALL PART70
+CALL PART71
+CALL PART72
+CALL PART73
+CALL PART74
+CALL PART75
+CALL PART76
+CALL PART77
+CALL PART78
+CALL PART79
+CALL PART80
+CALL PART81
+CALL PART82
+CALL PART83
+CALL PART84
+CALL PART85
+CALL PART86
+CALL PART87
+CALL PART88
+CALL PART89
+CALL PART90
+CALL PART91
+CALL PART92
+CALL PART93
+CALL PART94
+CALL PART95
+CALL PART96
+CALL PART97
+CALL PART98
+CALL PART99
+CALL PART100
+CALL PART101
+CALL PART102
+CALL PART103
+CALL PART104
+CALL PART105
+CALL PART106
+CALL PART107
+CALL PART108
+CALL PART109
+CALL PART110
+CALL PART111
+CALL PART112
+CALL PART113
+CALL PART114
+CALL PART115
+CALL PART116
+CALL PART117
+CALL PART118
+CALL PART119
+CALL PART120
+CALL PART121
+CALL PART122
+CALL PART123
+CALL PART124
+CALL PART125
+CALL PART126
+CALL PART127
+CALL PART128
+CALL PART129
+CALL PART130
+CALL PART131
+CALL PART132
+CALL PART133
+CALL PART134
+CALL PART135
+CALL PART136
+CALL PART137
+CALL PART138
+CALL PART139
+CALL PART140
+CALL PART141
+CALL PART142
+CALL PART143
+
+  
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_MCICA',1,ZHOOK_HANDLE)
+
+CONTAINS
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART1',0,ZHOOK_HANDLE)
+
+XCW(   1, :) = (/ &
+  &  0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   2, :) = (/ &
+  &  0.719238E+00_JPRB, 0.657746E+00_JPRB, 0.599658E+00_JPRB, 0.544932E+00_JPRB &
+  &, 0.493515E+00_JPRB, 0.445349E+00_JPRB, 0.400372E+00_JPRB &
+  &, 0.358514E+00_JPRB, 0.319698E+00_JPRB, 0.283841E+00_JPRB, 0.250852E+00_JPRB &
+  &, 0.220633E+00_JPRB, 0.193079E+00_JPRB, 0.168076E+00_JPRB &
+  &, 0.145509E+00_JPRB, 0.125249E+00_JPRB, 0.107167E+00_JPRB, 0.911265E-01_JPRB &
+  &, 0.769881E-01_JPRB, 0.646107E-01_JPRB, 0.538483E-01_JPRB &
+  &, 0.445637E-01_JPRB, 0.366111E-01_JPRB, 0.298526E-01_JPRB, 0.241559E-01_JPRB &
+  &, 0.193935E-01_JPRB, 0.154439E-01_JPRB, 0.122027E-01_JPRB &
+  &, 0.956228E-02_JPRB, 0.743081E-02_JPRB, 0.572660E-02_JPRB, 0.437533E-02_JPRB &
+  &, 0.331126E-02_JPRB, 0.248752E-02_JPRB, 0.185158E-02_JPRB &
+  &, 0.136799E-02_JPRB, 0.992284E-03_JPRB, 0.723804E-03_JPRB, 0.521300E-03_JPRB &
+  &, 0.369758E-03_JPRB, 0.262914E-03_JPRB, 0.182853E-03_JPRB &
+  &, 0.120745E-03_JPRB, 0.781102E-04_JPRB, 0.565393E-04_JPRB, 0.338478E-04_JPRB &
+  &, 0.222189E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   3, :) = (/ &
+  &  0.736354E+00_JPRB, 0.677916E+00_JPRB, 0.622423E+00_JPRB, 0.569848E+00_JPRB &
+  &, 0.520155E+00_JPRB, 0.473308E+00_JPRB, 0.429266E+00_JPRB &
+  &, 0.387977E+00_JPRB, 0.349393E+00_JPRB, 0.313452E+00_JPRB, 0.280090E+00_JPRB &
+  &, 0.249239E+00_JPRB, 0.220818E+00_JPRB, 0.194749E+00_JPRB &
+  &, 0.170941E+00_JPRB, 0.149301E+00_JPRB, 0.129726E+00_JPRB, 0.112113E+00_JPRB &
+  &, 0.963518E-01_JPRB, 0.823288E-01_JPRB, 0.699278E-01_JPRB &
+  &, 0.590260E-01_JPRB, 0.495089E-01_JPRB, 0.412566E-01_JPRB, 0.341524E-01_JPRB &
+  &, 0.280759E-01_JPRB, 0.229205E-01_JPRB, 0.185757E-01_JPRB &
+  &, 0.149503E-01_JPRB, 0.119426E-01_JPRB, 0.946786E-02_JPRB, 0.744832E-02_JPRB &
+  &, 0.581849E-02_JPRB, 0.450936E-02_JPRB, 0.346636E-02_JPRB &
+  &, 0.264227E-02_JPRB, 0.200318E-02_JPRB, 0.149628E-02_JPRB, 0.111280E-02_JPRB &
+  &, 0.822026E-03_JPRB, 0.600133E-03_JPRB, 0.442133E-03_JPRB &
+  &, 0.309012E-03_JPRB, 0.225682E-03_JPRB, 0.161253E-03_JPRB, 0.105391E-03_JPRB &
+  &, 0.710947E-04_JPRB, 0.475598E-04_JPRB, 0.356538E-04_JPRB &
+  &, 0.231398E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   4, :) = (/ &
+  &  0.747015E+00_JPRB, 0.690526E+00_JPRB, 0.636713E+00_JPRB, 0.585555E+00_JPRB &
+  &, 0.537027E+00_JPRB, 0.491103E+00_JPRB, 0.447751E+00_JPRB &
+  &, 0.406935E+00_JPRB, 0.368614E+00_JPRB, 0.332744E+00_JPRB, 0.299273E+00_JPRB &
+  &, 0.268143E+00_JPRB, 0.239300E+00_JPRB, 0.212671E+00_JPRB &
+  &, 0.188187E+00_JPRB, 0.165768E+00_JPRB, 0.145335E+00_JPRB, 0.126795E+00_JPRB &
+  &, 0.110061E+00_JPRB, 0.950281E-01_JPRB, 0.816072E-01_JPRB &
+  &, 0.696853E-01_JPRB, 0.591577E-01_JPRB, 0.499224E-01_JPRB, 0.418719E-01_JPRB &
+  &, 0.348996E-01_JPRB, 0.289033E-01_JPRB, 0.237772E-01_JPRB &
+  &, 0.194313E-01_JPRB, 0.157732E-01_JPRB, 0.127163E-01_JPRB, 0.101803E-01_JPRB &
+  &, 0.808838E-02_JPRB, 0.638520E-02_JPRB, 0.500403E-02_JPRB &
+  &, 0.388864E-02_JPRB, 0.300453E-02_JPRB, 0.229808E-02_JPRB, 0.175444E-02_JPRB &
+  &, 0.132569E-02_JPRB, 0.990042E-03_JPRB, 0.733823E-03_JPRB &
+  &, 0.541578E-03_JPRB, 0.395958E-03_JPRB, 0.289236E-03_JPRB, 0.200782E-03_JPRB &
+  &, 0.144408E-03_JPRB, 0.976396E-04_JPRB, 0.741345E-04_JPRB &
+  &, 0.494195E-04_JPRB, 0.369174E-04_JPRB, 0.237836E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   5, :) = (/ &
+  &  0.754906E+00_JPRB, 0.699885E+00_JPRB, 0.647346E+00_JPRB, 0.597275E+00_JPRB &
+  &, 0.549655E+00_JPRB, 0.504464E+00_JPRB, 0.461678E+00_JPRB &
+  &, 0.421269E+00_JPRB, 0.383205E+00_JPRB, 0.347448E+00_JPRB, 0.313958E+00_JPRB &
+  &, 0.282687E+00_JPRB, 0.253587E+00_JPRB, 0.226601E+00_JPRB &
+  &, 0.201668E+00_JPRB, 0.178721E+00_JPRB, 0.157691E+00_JPRB, 0.138500E+00_JPRB &
+  &, 0.121068E+00_JPRB, 0.105310E+00_JPRB, 0.911369E-01_JPRB &
+  &, 0.784581E-01_JPRB, 0.671787E-01_JPRB, 0.572000E-01_JPRB, 0.484225E-01_JPRB &
+  &, 0.407522E-01_JPRB, 0.340926E-01_JPRB, 0.283452E-01_JPRB &
+  &, 0.234156E-01_JPRB, 0.192232E-01_JPRB, 0.156814E-01_JPRB, 0.127061E-01_JPRB &
+  &, 0.102245E-01_JPRB, 0.817698E-02_JPRB, 0.649181E-02_JPRB &
+  &, 0.511641E-02_JPRB, 0.400589E-02_JPRB, 0.311945E-02_JPRB, 0.240609E-02_JPRB &
+  &, 0.183963E-02_JPRB, 0.140103E-02_JPRB, 0.105792E-02_JPRB &
+  &, 0.796292E-03_JPRB, 0.588936E-03_JPRB, 0.440488E-03_JPRB, 0.320021E-03_JPRB &
+  &, 0.229941E-03_JPRB, 0.160239E-03_JPRB, 0.112615E-03_JPRB &
+  &, 0.756992E-04_JPRB, 0.503762E-04_JPRB, 0.375671E-04_JPRB, 0.241144E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   6, :) = (/ &
+  &  0.761234E+00_JPRB, 0.707403E+00_JPRB, 0.655904E+00_JPRB, 0.606728E+00_JPRB &
+  &, 0.559862E+00_JPRB, 0.515289E+00_JPRB, 0.472990E+00_JPRB &
+  &, 0.432943E+00_JPRB, 0.395121E+00_JPRB, 0.359494E+00_JPRB, 0.326027E+00_JPRB &
+  &, 0.294681E+00_JPRB, 0.265414E+00_JPRB, 0.238177E+00_JPRB &
+  &, 0.212918E+00_JPRB, 0.189579E+00_JPRB, 0.168099E+00_JPRB, 0.148410E+00_JPRB &
+  &, 0.130440E+00_JPRB, 0.114114E+00_JPRB, 0.993501E-01_JPRB &
+  &, 0.860705E-01_JPRB, 0.741787E-01_JPRB, 0.635961E-01_JPRB, 0.542272E-01_JPRB &
+  &, 0.459791E-01_JPRB, 0.387641E-01_JPRB, 0.324933E-01_JPRB &
+  &, 0.270715E-01_JPRB, 0.224207E-01_JPRB, 0.184534E-01_JPRB, 0.150929E-01_JPRB &
+  &, 0.122657E-01_JPRB, 0.990682E-02_JPRB, 0.794784E-02_JPRB &
+  &, 0.633488E-02_JPRB, 0.501679E-02_JPRB, 0.394081E-02_JPRB, 0.307780E-02_JPRB &
+  &, 0.238441E-02_JPRB, 0.184363E-02_JPRB, 0.140363E-02_JPRB &
+  &, 0.107316E-02_JPRB, 0.804619E-03_JPRB, 0.603376E-03_JPRB, 0.451184E-03_JPRB &
+  &, 0.327692E-03_JPRB, 0.235359E-03_JPRB, 0.176750E-03_JPRB &
+  &, 0.128259E-03_JPRB, 0.907523E-04_JPRB, 0.651343E-04_JPRB, 0.382287E-04_JPRB &
+  &, 0.244511E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   7, :) = (/ &
+  &  0.766547E+00_JPRB, 0.713724E+00_JPRB, 0.663112E+00_JPRB, 0.614703E+00_JPRB &
+  &, 0.568488E+00_JPRB, 0.524455E+00_JPRB, 0.482589E+00_JPRB &
+  &, 0.442870E+00_JPRB, 0.405277E+00_JPRB, 0.369786E+00_JPRB, 0.336366E+00_JPRB &
+  &, 0.304984E+00_JPRB, 0.275603E+00_JPRB, 0.248182E+00_JPRB &
+  &, 0.222674E+00_JPRB, 0.199029E+00_JPRB, 0.177192E+00_JPRB, 0.157102E+00_JPRB &
+  &, 0.138695E+00_JPRB, 0.121902E+00_JPRB, 0.106652E+00_JPRB &
+  &, 0.928706E-01_JPRB, 0.804699E-01_JPRB, 0.693779E-01_JPRB, 0.595026E-01_JPRB &
+  &, 0.507622E-01_JPRB, 0.430706E-01_JPRB, 0.363401E-01_JPRB &
+  &, 0.304850E-01_JPRB, 0.254259E-01_JPRB, 0.210818E-01_JPRB, 0.173745E-01_JPRB &
+  &, 0.142335E-01_JPRB, 0.115880E-01_JPRB, 0.937665E-02_JPRB &
+  &, 0.753475E-02_JPRB, 0.601814E-02_JPRB, 0.478173E-02_JPRB, 0.376956E-02_JPRB &
+  &, 0.294974E-02_JPRB, 0.229677E-02_JPRB, 0.177094E-02_JPRB &
+  &, 0.136109E-02_JPRB, 0.104300E-02_JPRB, 0.789533E-03_JPRB, 0.594271E-03_JPRB &
+  &, 0.437663E-03_JPRB, 0.322999E-03_JPRB, 0.240884E-03_JPRB &
+  &, 0.167678E-03_JPRB, 0.131128E-03_JPRB, 0.927014E-04_JPRB, 0.664575E-04_JPRB &
+  &, 0.389023E-04_JPRB, 0.247939E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART2',0,ZHOOK_HANDLE)
+
+XCW(   8, :) = (/ &
+  &  0.771146E+00_JPRB, 0.719203E+00_JPRB, 0.669367E+00_JPRB, 0.621634E+00_JPRB &
+  &, 0.575996E+00_JPRB, 0.532446E+00_JPRB, 0.490970E+00_JPRB &
+  &, 0.451554E+00_JPRB, 0.414179E+00_JPRB, 0.378824E+00_JPRB, 0.345465E+00_JPRB &
+  &, 0.314072E+00_JPRB, 0.284613E+00_JPRB, 0.257053E+00_JPRB &
+  &, 0.231348E+00_JPRB, 0.207455E+00_JPRB, 0.185325E+00_JPRB, 0.164903E+00_JPRB &
+  &, 0.146130E+00_JPRB, 0.128945E+00_JPRB, 0.113280E+00_JPRB &
+  &, 0.990673E-01_JPRB, 0.862287E-01_JPRB, 0.746946E-01_JPRB, 0.643801E-01_JPRB &
+  &, 0.552071E-01_JPRB, 0.470902E-01_JPRB, 0.399540E-01_JPRB &
+  &, 0.337147E-01_JPRB, 0.282868E-01_JPRB, 0.236033E-01_JPRB, 0.195761E-01_JPRB &
+  &, 0.161452E-01_JPRB, 0.132338E-01_JPRB, 0.107828E-01_JPRB &
+  &, 0.873461E-02_JPRB, 0.702904E-02_JPRB, 0.562265E-02_JPRB, 0.447134E-02_JPRB &
+  &, 0.352535E-02_JPRB, 0.277098E-02_JPRB, 0.215986E-02_JPRB &
+  &, 0.167118E-02_JPRB, 0.129274E-02_JPRB, 0.987325E-03_JPRB, 0.749282E-03_JPRB &
+  &, 0.559852E-03_JPRB, 0.423158E-03_JPRB, 0.317846E-03_JPRB &
+  &, 0.233377E-03_JPRB, 0.171505E-03_JPRB, 0.120269E-03_JPRB, 0.805719E-04_JPRB &
+  &, 0.533534E-04_JPRB, 0.395877E-04_JPRB, 0.251426E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   9, :) = (/ &
+  &  0.775213E+00_JPRB, 0.724053E+00_JPRB, 0.674911E+00_JPRB, 0.627784E+00_JPRB &
+  &, 0.582668E+00_JPRB, 0.539556E+00_JPRB, 0.498439E+00_JPRB &
+  &, 0.459304E+00_JPRB, 0.422136E+00_JPRB, 0.386918E+00_JPRB, 0.353627E+00_JPRB &
+  &, 0.322241E+00_JPRB, 0.292729E+00_JPRB, 0.265061E+00_JPRB &
+  &, 0.239196E+00_JPRB, 0.215099E+00_JPRB, 0.192722E+00_JPRB, 0.172018E+00_JPRB &
+  &, 0.152932E+00_JPRB, 0.135407E+00_JPRB, 0.119382E+00_JPRB &
+  &, 0.104797E+00_JPRB, 0.915737E-01_JPRB, 0.796470E-01_JPRB, 0.689414E-01_JPRB &
+  &, 0.593791E-01_JPRB, 0.508862E-01_JPRB, 0.433847E-01_JPRB &
+  &, 0.367919E-01_JPRB, 0.310316E-01_JPRB, 0.260304E-01_JPRB, 0.217104E-01_JPRB &
+  &, 0.180051E-01_JPRB, 0.148486E-01_JPRB, 0.121753E-01_JPRB &
+  &, 0.991588E-02_JPRB, 0.803993E-02_JPRB, 0.647335E-02_JPRB, 0.518315E-02_JPRB &
+  &, 0.412152E-02_JPRB, 0.325573E-02_JPRB, 0.255959E-02_JPRB &
+  &, 0.199234E-02_JPRB, 0.155383E-02_JPRB, 0.119675E-02_JPRB, 0.916216E-03_JPRB &
+  &, 0.694261E-03_JPRB, 0.523318E-03_JPRB, 0.394807E-03_JPRB &
+  &, 0.285937E-03_JPRB, 0.211881E-03_JPRB, 0.161619E-03_JPRB, 0.108801E-03_JPRB &
+  &, 0.822557E-04_JPRB, 0.543816E-04_JPRB, 0.402851E-04_JPRB &
+  &, 0.254972E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  10, :) = (/ &
+  &  0.778867E+00_JPRB, 0.728416E+00_JPRB, 0.679903E+00_JPRB, 0.633328E+00_JPRB &
+  &, 0.588688E+00_JPRB, 0.545980E+00_JPRB, 0.505195E+00_JPRB &
+  &, 0.466324E+00_JPRB, 0.429355E+00_JPRB, 0.394272E+00_JPRB, 0.361057E+00_JPRB &
+  &, 0.329688E+00_JPRB, 0.300143E+00_JPRB, 0.272388E+00_JPRB &
+  &, 0.246394E+00_JPRB, 0.222123E+00_JPRB, 0.199536E+00_JPRB, 0.178587E+00_JPRB &
+  &, 0.159228E+00_JPRB, 0.141406E+00_JPRB, 0.125066E+00_JPRB &
+  &, 0.110144E+00_JPRB, 0.965796E-01_JPRB, 0.843044E-01_JPRB, 0.732469E-01_JPRB &
+  &, 0.633366E-01_JPRB, 0.544997E-01_JPRB, 0.466590E-01_JPRB &
+  &, 0.397401E-01_JPRB, 0.336721E-01_JPRB, 0.283795E-01_JPRB, 0.237899E-01_JPRB &
+  &, 0.198305E-01_JPRB, 0.164369E-01_JPRB, 0.135497E-01_JPRB &
+  &, 0.110971E-01_JPRB, 0.904129E-02_JPRB, 0.732404E-02_JPRB, 0.589496E-02_JPRB &
+  &, 0.471770E-02_JPRB, 0.376156E-02_JPRB, 0.297011E-02_JPRB &
+  &, 0.233565E-02_JPRB, 0.182627E-02_JPRB, 0.141781E-02_JPRB, 0.109507E-02_JPRB &
+  &, 0.840888E-03_JPRB, 0.635997E-03_JPRB, 0.484596E-03_JPRB &
+  &, 0.364776E-03_JPRB, 0.265716E-03_JPRB, 0.202970E-03_JPRB, 0.151144E-03_JPRB &
+  &, 0.111158E-03_JPRB, 0.691755E-04_JPRB, 0.554277E-04_JPRB &
+  &, 0.409944E-04_JPRB, 0.258578E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  11, :) = (/ &
+  &  0.782192E+00_JPRB, 0.732388E+00_JPRB, 0.684452E+00_JPRB, 0.638386E+00_JPRB &
+  &, 0.594186E+00_JPRB, 0.551852E+00_JPRB, 0.511378E+00_JPRB &
+  &, 0.472757E+00_JPRB, 0.435978E+00_JPRB, 0.401028E+00_JPRB, 0.367892E+00_JPRB &
+  &, 0.336551E+00_JPRB, 0.306983E+00_JPRB, 0.279163E+00_JPRB &
+  &, 0.253060E+00_JPRB, 0.228642E+00_JPRB, 0.205872E+00_JPRB, 0.184711E+00_JPRB &
+  &, 0.165112E+00_JPRB, 0.147025E+00_JPRB, 0.130400E+00_JPRB &
+  &, 0.115181E+00_JPRB, 0.101307E+00_JPRB, 0.887154E-01_JPRB, 0.773358E-01_JPRB &
+  &, 0.671049E-01_JPRB, 0.579531E-01_JPRB, 0.498036E-01_JPRB &
+  &, 0.425866E-01_JPRB, 0.362325E-01_JPRB, 0.306628E-01_JPRB, 0.258147E-01_JPRB &
+  &, 0.216171E-01_JPRB, 0.180030E-01_JPRB, 0.149105E-01_JPRB &
+  &, 0.122784E-01_JPRB, 0.100522E-01_JPRB, 0.818452E-02_JPRB, 0.662682E-02_JPRB &
+  &, 0.533442E-02_JPRB, 0.426739E-02_JPRB, 0.339144E-02_JPRB &
+  &, 0.269004E-02_JPRB, 0.211006E-02_JPRB, 0.165051E-02_JPRB, 0.127393E-02_JPRB &
+  &, 0.987515E-03_JPRB, 0.761197E-03_JPRB, 0.574384E-03_JPRB &
+  &, 0.430475E-03_JPRB, 0.333009E-03_JPRB, 0.244321E-03_JPRB, 0.179372E-03_JPRB &
+  &, 0.125609E-03_JPRB, 0.987632E-04_JPRB, 0.705702E-04_JPRB &
+  &, 0.409944E-04_JPRB, 0.258578E-04_JPRB, 0.262244E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  12, :) = (/ &
+  &  0.785247E+00_JPRB, 0.736041E+00_JPRB, 0.688639E+00_JPRB, 0.643044E+00_JPRB &
+  &, 0.599255E+00_JPRB, 0.557271E+00_JPRB, 0.517091E+00_JPRB &
+  &, 0.478706E+00_JPRB, 0.442109E+00_JPRB, 0.407291E+00_JPRB, 0.374237E+00_JPRB &
+  &, 0.342929E+00_JPRB, 0.313351E+00_JPRB, 0.285478E+00_JPRB &
+  &, 0.259284E+00_JPRB, 0.234740E+00_JPRB, 0.211810E+00_JPRB, 0.190461E+00_JPRB &
+  &, 0.170647E+00_JPRB, 0.152323E+00_JPRB, 0.135442E+00_JPRB &
+  &, 0.119955E+00_JPRB, 0.105798E+00_JPRB, 0.929146E-01_JPRB, 0.812435E-01_JPRB &
+  &, 0.707204E-01_JPRB, 0.612723E-01_JPRB, 0.528374E-01_JPRB &
+  &, 0.453432E-01_JPRB, 0.387168E-01_JPRB, 0.328928E-01_JPRB, 0.278016E-01_JPRB &
+  &, 0.233777E-01_JPRB, 0.195515E-01_JPRB, 0.162622E-01_JPRB &
+  &, 0.134504E-01_JPRB, 0.110631E-01_JPRB, 0.905477E-02_JPRB, 0.736871E-02_JPRB &
+  &, 0.596143E-02_JPRB, 0.479429E-02_JPRB, 0.383438E-02_JPRB &
+  &, 0.304442E-02_JPRB, 0.240521E-02_JPRB, 0.189484E-02_JPRB, 0.147664E-02_JPRB &
+  &, 0.114636E-02_JPRB, 0.886396E-03_JPRB, 0.676999E-03_JPRB &
+  &, 0.522454E-03_JPRB, 0.386844E-03_JPRB, 0.299455E-03_JPRB, 0.221716E-03_JPRB &
+  &, 0.154511E-03_JPRB, 0.113557E-03_JPRB, 0.857127E-04_JPRB &
+  &, 0.564916E-04_JPRB, 0.417156E-04_JPRB, 0.262244E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  13, :) = (/ &
+  &  0.788076E+00_JPRB, 0.739426E+00_JPRB, 0.692522E+00_JPRB, 0.647367E+00_JPRB &
+  &, 0.603964E+00_JPRB, 0.562311E+00_JPRB, 0.522407E+00_JPRB &
+  &, 0.484248E+00_JPRB, 0.447829E+00_JPRB, 0.413139E+00_JPRB, 0.380168E+00_JPRB &
+  &, 0.348900E+00_JPRB, 0.319320E+00_JPRB, 0.291406E+00_JPRB &
+  &, 0.265135E+00_JPRB, 0.240481E+00_JPRB, 0.217412E+00_JPRB, 0.195892E+00_JPRB &
+  &, 0.175886E+00_JPRB, 0.157348E+00_JPRB, 0.140235E+00_JPRB &
+  &, 0.124501E+00_JPRB, 0.110085E+00_JPRB, 0.969369E-01_JPRB, 0.849948E-01_JPRB &
+  &, 0.741941E-01_JPRB, 0.644761E-01_JPRB, 0.557721E-01_JPRB &
+  &, 0.480177E-01_JPRB, 0.411370E-01_JPRB, 0.350735E-01_JPRB, 0.297506E-01_JPRB &
+  &, 0.251082E-01_JPRB, 0.210778E-01_JPRB, 0.176048E-01_JPRB &
+  &, 0.146223E-01_JPRB, 0.120835E-01_JPRB, 0.992503E-02_JPRB, 0.811060E-02_JPRB &
+  &, 0.658844E-02_JPRB, 0.533174E-02_JPRB, 0.427732E-02_JPRB &
+  &, 0.342096E-02_JPRB, 0.271170E-02_JPRB, 0.215081E-02_JPRB, 0.167935E-02_JPRB &
+  &, 0.131743E-02_JPRB, 0.102412E-02_JPRB, 0.792442E-03_JPRB &
+  &, 0.601293E-03_JPRB, 0.454138E-03_JPRB, 0.340806E-03_JPRB, 0.264059E-03_JPRB &
+  &, 0.197865E-03_JPRB, 0.143145E-03_JPRB, 0.100855E-03_JPRB &
+  &, 0.719888E-04_JPRB, 0.575734E-04_JPRB, 0.424488E-04_JPRB, 0.265969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  14, :) = (/ &
+  &  0.790713E+00_JPRB, 0.742585E+00_JPRB, 0.696148E+00_JPRB, 0.651408E+00_JPRB &
+  &, 0.608367E+00_JPRB, 0.567027E+00_JPRB, 0.527387E+00_JPRB &
+  &, 0.489445E+00_JPRB, 0.453196E+00_JPRB, 0.418632E+00_JPRB, 0.385744E+00_JPRB &
+  &, 0.354521E+00_JPRB, 0.324945E+00_JPRB, 0.297001E+00_JPRB &
+  &, 0.270666E+00_JPRB, 0.245915E+00_JPRB, 0.222719E+00_JPRB, 0.201049E+00_JPRB &
+  &, 0.180868E+00_JPRB, 0.162135E+00_JPRB, 0.144810E+00_JPRB &
+  &, 0.128847E+00_JPRB, 0.114195E+00_JPRB, 0.100800E+00_JPRB, 0.886041E-01_JPRB &
+  &, 0.775514E-01_JPRB, 0.675792E-01_JPRB, 0.586227E-01_JPRB &
+  &, 0.506179E-01_JPRB, 0.435011E-01_JPRB, 0.372049E-01_JPRB, 0.316660E-01_JPRB &
+  &, 0.268128E-01_JPRB, 0.225909E-01_JPRB, 0.189338E-01_JPRB &
+  &, 0.157850E-01_JPRB, 0.130944E-01_JPRB, 0.108051E-01_JPRB, 0.886251E-02_JPRB &
+  &, 0.723601E-02_JPRB, 0.586918E-02_JPRB, 0.474186E-02_JPRB &
+  &, 0.380856E-02_JPRB, 0.304090E-02_JPRB, 0.240677E-02_JPRB, 0.190590E-02_JPRB &
+  &, 0.148849E-02_JPRB, 0.116184E-02_JPRB, 0.895057E-03_JPRB &
+  &, 0.693271E-03_JPRB, 0.534890E-03_JPRB, 0.409723E-03_JPRB, 0.306402E-03_JPRB &
+  &, 0.226767E-03_JPRB, 0.172732E-03_JPRB, 0.131140E-03_JPRB &
+  &, 0.874860E-04_JPRB, 0.575734E-04_JPRB, 0.424488E-04_JPRB, 0.265969E-04_JPRB &
+  &, 0.269754E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART3',0,ZHOOK_HANDLE)
+
+XCW(  15, :) = (/ &
+  &  0.793186E+00_JPRB, 0.745548E+00_JPRB, 0.699551E+00_JPRB, 0.655203E+00_JPRB &
+  &, 0.612506E+00_JPRB, 0.571464E+00_JPRB, 0.532076E+00_JPRB &
+  &, 0.494341E+00_JPRB, 0.458258E+00_JPRB, 0.423819E+00_JPRB, 0.391016E+00_JPRB &
+  &, 0.359839E+00_JPRB, 0.330274E+00_JPRB, 0.302307E+00_JPRB &
+  &, 0.275917E+00_JPRB, 0.251081E+00_JPRB, 0.227774E+00_JPRB, 0.205967E+00_JPRB &
+  &, 0.185626E+00_JPRB, 0.166716E+00_JPRB, 0.149197E+00_JPRB &
+  &, 0.133021E+00_JPRB, 0.118150E+00_JPRB, 0.104523E+00_JPRB, 0.920926E-01_JPRB &
+  &, 0.808032E-01_JPRB, 0.705893E-01_JPRB, 0.613971E-01_JPRB &
+  &, 0.531594E-01_JPRB, 0.458171E-01_JPRB, 0.392993E-01_JPRB, 0.335477E-01_JPRB &
+  &, 0.285001E-01_JPRB, 0.240906E-01_JPRB, 0.202583E-01_JPRB &
+  &, 0.169477E-01_JPRB, 0.141053E-01_JPRB, 0.116851E-01_JPRB, 0.962445E-02_JPRB &
+  &, 0.788357E-02_JPRB, 0.642770E-02_JPRB, 0.520640E-02_JPRB &
+  &, 0.419617E-02_JPRB, 0.335875E-02_JPRB, 0.268601E-02_JPRB, 0.212053E-02_JPRB &
+  &, 0.167178E-02_JPRB, 0.131207E-02_JPRB, 0.102333E-02_JPRB &
+  &, 0.785250E-03_JPRB, 0.615642E-03_JPRB, 0.464858E-03_JPRB, 0.348745E-03_JPRB &
+  &, 0.270120E-03_JPRB, 0.202320E-03_JPRB, 0.146283E-03_JPRB &
+  &, 0.102983E-03_JPRB, 0.734312E-04_JPRB, 0.586731E-04_JPRB, 0.431938E-04_JPRB &
+  &, 0.269754E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  16, :) = (/ &
+  &  0.795517E+00_JPRB, 0.748342E+00_JPRB, 0.702762E+00_JPRB, 0.658786E+00_JPRB &
+  &, 0.616416E+00_JPRB, 0.575658E+00_JPRB, 0.536511E+00_JPRB &
+  &, 0.498977E+00_JPRB, 0.463054E+00_JPRB, 0.428737E+00_JPRB, 0.396019E+00_JPRB &
+  &, 0.364890E+00_JPRB, 0.335342E+00_JPRB, 0.307358E+00_JPRB &
+  &, 0.280921E+00_JPRB, 0.256011E+00_JPRB, 0.232603E+00_JPRB, 0.210672E+00_JPRB &
+  &, 0.190186E+00_JPRB, 0.171113E+00_JPRB, 0.153412E+00_JPRB &
+  &, 0.137043E+00_JPRB, 0.121965E+00_JPRB, 0.108122E+00_JPRB, 0.954745E-01_JPRB &
+  &, 0.839568E-01_JPRB, 0.735211E-01_JPRB, 0.641028E-01_JPRB &
+  &, 0.556423E-01_JPRB, 0.480810E-01_JPRB, 0.413568E-01_JPRB, 0.354041E-01_JPRB &
+  &, 0.301658E-01_JPRB, 0.255772E-01_JPRB, 0.215782E-01_JPRB &
+  &, 0.181103E-01_JPRB, 0.151257E-01_JPRB, 0.125651E-01_JPRB, 0.103864E-01_JPRB &
+  &, 0.854141E-02_JPRB, 0.698622E-02_JPRB, 0.568175E-02_JPRB &
+  &, 0.459486E-02_JPRB, 0.369930E-02_JPRB, 0.296524E-02_JPRB, 0.235901E-02_JPRB &
+  &, 0.186728E-02_JPRB, 0.147483E-02_JPRB, 0.115159E-02_JPRB &
+  &, 0.890369E-03_JPRB, 0.696395E-03_JPRB, 0.533775E-03_JPRB, 0.405202E-03_JPRB &
+  &, 0.313474E-03_JPRB, 0.231908E-03_JPRB, 0.176568E-03_JPRB &
+  &, 0.133978E-03_JPRB, 0.892890E-04_JPRB, 0.586731E-04_JPRB, 0.431938E-04_JPRB &
+  &, 0.269754E-04_JPRB, 0.273598E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  17, :) = (/ &
+  &  0.797721E+00_JPRB, 0.750986E+00_JPRB, 0.705803E+00_JPRB, 0.662181E+00_JPRB &
+  &, 0.620124E+00_JPRB, 0.579637E+00_JPRB, 0.540723E+00_JPRB &
+  &, 0.503383E+00_JPRB, 0.467615E+00_JPRB, 0.433418E+00_JPRB, 0.400785E+00_JPRB &
+  &, 0.369709E+00_JPRB, 0.340180E+00_JPRB, 0.312185E+00_JPRB &
+  &, 0.285709E+00_JPRB, 0.260733E+00_JPRB, 0.237235E+00_JPRB, 0.215190E+00_JPRB &
+  &, 0.194571E+00_JPRB, 0.175345E+00_JPRB, 0.157475E+00_JPRB &
+  &, 0.140926E+00_JPRB, 0.125655E+00_JPRB, 0.111614E+00_JPRB, 0.987534E-01_JPRB &
+  &, 0.870268E-01_JPRB, 0.763746E-01_JPRB, 0.667436E-01_JPRB &
+  &, 0.580744E-01_JPRB, 0.503088E-01_JPRB, 0.433814E-01_JPRB, 0.372353E-01_JPRB &
+  &, 0.318143E-01_JPRB, 0.270504E-01_JPRB, 0.228846E-01_JPRB &
+  &, 0.192637E-01_JPRB, 0.161366E-01_JPRB, 0.134549E-01_JPRB, 0.111583E-01_JPRB &
+  &, 0.920954E-02_JPRB, 0.755527E-02_JPRB, 0.616790E-02_JPRB &
+  &, 0.500462E-02_JPRB, 0.405120E-02_JPRB, 0.325611E-02_JPRB, 0.259749E-02_JPRB &
+  &, 0.206278E-02_JPRB, 0.163759E-02_JPRB, 0.127986E-02_JPRB &
+  &, 0.100863E-02_JPRB, 0.777147E-03_JPRB, 0.602693E-03_JPRB, 0.461660E-03_JPRB &
+  &, 0.356827E-03_JPRB, 0.261496E-03_JPRB, 0.206853E-03_JPRB &
+  &, 0.149475E-03_JPRB, 0.105147E-03_JPRB, 0.748975E-04_JPRB, 0.597907E-04_JPRB &
+  &, 0.439508E-04_JPRB, 0.273598E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  18, :) = (/ &
+  &  0.799815E+00_JPRB, 0.753498E+00_JPRB, 0.708694E+00_JPRB, 0.665410E+00_JPRB &
+  &, 0.623652E+00_JPRB, 0.583427E+00_JPRB, 0.544737E+00_JPRB &
+  &, 0.507584E+00_JPRB, 0.471968E+00_JPRB, 0.437889E+00_JPRB, 0.405341E+00_JPRB &
+  &, 0.374317E+00_JPRB, 0.344811E+00_JPRB, 0.316810E+00_JPRB &
+  &, 0.290302E+00_JPRB, 0.265266E+00_JPRB, 0.241687E+00_JPRB, 0.219539E+00_JPRB &
+  &, 0.198797E+00_JPRB, 0.179428E+00_JPRB, 0.161405E+00_JPRB &
+  &, 0.144685E+00_JPRB, 0.129233E+00_JPRB, 0.115001E+00_JPRB, 0.101947E+00_JPRB &
+  &, 0.900167E-01_JPRB, 0.791649E-01_JPRB, 0.693310E-01_JPRB &
+  &, 0.604595E-01_JPRB, 0.524966E-01_JPRB, 0.453773E-01_JPRB, 0.390454E-01_JPRB &
+  &, 0.334455E-01_JPRB, 0.285104E-01_JPRB, 0.241909E-01_JPRB &
+  &, 0.204263E-01_JPRB, 0.171570E-01_JPRB, 0.143447E-01_JPRB, 0.119303E-01_JPRB &
+  &, 0.987766E-02_JPRB, 0.813487E-02_JPRB, 0.666485E-02_JPRB &
+  &, 0.542545E-02_JPRB, 0.440311E-02_JPRB, 0.354698E-02_JPRB, 0.284789E-02_JPRB &
+  &, 0.227050E-02_JPRB, 0.180035E-02_JPRB, 0.142096E-02_JPRB &
+  &, 0.111375E-02_JPRB, 0.871358E-03_JPRB, 0.671611E-03_JPRB, 0.518117E-03_JPRB &
+  &, 0.400181E-03_JPRB, 0.305877E-03_JPRB, 0.221996E-03_JPRB &
+  &, 0.164972E-03_JPRB, 0.121005E-03_JPRB, 0.911219E-04_JPRB, 0.597907E-04_JPRB &
+  &, 0.439508E-04_JPRB, 0.273598E-04_JPRB, 0.277503E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  19, :) = (/ &
+  &  0.801808E+00_JPRB, 0.755892E+00_JPRB, 0.711450E+00_JPRB, 0.668491E+00_JPRB &
+  &, 0.627020E+00_JPRB, 0.587046E+00_JPRB, 0.548572E+00_JPRB &
+  &, 0.511601E+00_JPRB, 0.476134E+00_JPRB, 0.442171E+00_JPRB, 0.409707E+00_JPRB &
+  &, 0.378738E+00_JPRB, 0.349258E+00_JPRB, 0.321256E+00_JPRB &
+  &, 0.294720E+00_JPRB, 0.269633E+00_JPRB, 0.245979E+00_JPRB, 0.223736E+00_JPRB &
+  &, 0.202879E+00_JPRB, 0.183381E+00_JPRB, 0.165208E+00_JPRB &
+  &, 0.148332E+00_JPRB, 0.132709E+00_JPRB, 0.118298E+00_JPRB, 0.105059E+00_JPRB &
+  &, 0.929375E-01_JPRB, 0.818918E-01_JPRB, 0.718649E-01_JPRB &
+  &, 0.628017E-01_JPRB, 0.546483E-01_JPRB, 0.473445E-01_JPRB, 0.408344E-01_JPRB &
+  &, 0.350594E-01_JPRB, 0.299615E-01_JPRB, 0.254882E-01_JPRB &
+  &, 0.215797E-01_JPRB, 0.181775E-01_JPRB, 0.152443E-01_JPRB, 0.127123E-01_JPRB &
+  &, 0.105561E-01_JPRB, 0.871446E-02_JPRB, 0.716181E-02_JPRB &
+  &, 0.585735E-02_JPRB, 0.476636E-02_JPRB, 0.384949E-02_JPRB, 0.309829E-02_JPRB &
+  &, 0.247823E-02_JPRB, 0.197563E-02_JPRB, 0.156206E-02_JPRB &
+  &, 0.123200E-02_JPRB, 0.965569E-03_JPRB, 0.754312E-03_JPRB, 0.588689E-03_JPRB &
+  &, 0.443534E-03_JPRB, 0.350259E-03_JPRB, 0.267423E-03_JPRB &
+  &, 0.195966E-03_JPRB, 0.152720E-03_JPRB, 0.107346E-03_JPRB, 0.763876E-04_JPRB &
+  &, 0.609262E-04_JPRB, 0.447197E-04_JPRB, 0.277503E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  20, :) = (/ &
+  &  0.803713E+00_JPRB, 0.758180E+00_JPRB, 0.714085E+00_JPRB, 0.671438E+00_JPRB &
+  &, 0.630244E+00_JPRB, 0.590513E+00_JPRB, 0.552248E+00_JPRB &
+  &, 0.515454E+00_JPRB, 0.480131E+00_JPRB, 0.446281E+00_JPRB, 0.413902E+00_JPRB &
+  &, 0.382990E+00_JPRB, 0.353538E+00_JPRB, 0.325537E+00_JPRB &
+  &, 0.298979E+00_JPRB, 0.273847E+00_JPRB, 0.250126E+00_JPRB, 0.227794E+00_JPRB &
+  &, 0.206833E+00_JPRB, 0.187210E+00_JPRB, 0.168901E+00_JPRB &
+  &, 0.151873E+00_JPRB, 0.136091E+00_JPRB, 0.121511E+00_JPRB, 0.108093E+00_JPRB &
+  &, 0.957928E-01_JPRB, 0.845628E-01_JPRB, 0.743492E-01_JPRB &
+  &, 0.651008E-01_JPRB, 0.567640E-01_JPRB, 0.492828E-01_JPRB, 0.426025E-01_JPRB &
+  &, 0.366604E-01_JPRB, 0.314082E-01_JPRB, 0.267809E-01_JPRB &
+  &, 0.227238E-01_JPRB, 0.191979E-01_JPRB, 0.161341E-01_JPRB, 0.135043E-01_JPRB &
+  &, 0.112345E-01_JPRB, 0.930460E-02_JPRB, 0.766956E-02_JPRB &
+  &, 0.628926E-02_JPRB, 0.512961E-02_JPRB, 0.416363E-02_JPRB, 0.336062E-02_JPRB &
+  &, 0.269817E-02_JPRB, 0.216343E-02_JPRB, 0.171598E-02_JPRB &
+  &, 0.136340E-02_JPRB, 0.107324E-02_JPRB, 0.837014E-03_JPRB, 0.645147E-03_JPRB &
+  &, 0.501339E-03_JPRB, 0.379847E-03_JPRB, 0.297708E-03_JPRB &
+  &, 0.226961E-03_JPRB, 0.168578E-03_JPRB, 0.123571E-03_JPRB, 0.929845E-04_JPRB &
+  &, 0.609262E-04_JPRB, 0.447197E-04_JPRB, 0.277503E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  21, :) = (/ &
+  &  0.805537E+00_JPRB, 0.760373E+00_JPRB, 0.716611E+00_JPRB, 0.674264E+00_JPRB &
+  &, 0.633338E+00_JPRB, 0.593841E+00_JPRB, 0.555779E+00_JPRB &
+  &, 0.519156E+00_JPRB, 0.483975E+00_JPRB, 0.450238E+00_JPRB, 0.417942E+00_JPRB &
+  &, 0.387087E+00_JPRB, 0.357665E+00_JPRB, 0.329660E+00_JPRB &
+  &, 0.303093E+00_JPRB, 0.277920E+00_JPRB, 0.254138E+00_JPRB, 0.231727E+00_JPRB &
+  &, 0.210666E+00_JPRB, 0.190928E+00_JPRB, 0.172494E+00_JPRB &
+  &, 0.155325E+00_JPRB, 0.139387E+00_JPRB, 0.124649E+00_JPRB, 0.111063E+00_JPRB &
+  &, 0.985900E-01_JPRB, 0.871817E-01_JPRB, 0.767916E-01_JPRB &
+  &, 0.673686E-01_JPRB, 0.588556E-01_JPRB, 0.512007E-01_JPRB, 0.443536E-01_JPRB &
+  &, 0.382485E-01_JPRB, 0.328416E-01_JPRB, 0.280691E-01_JPRB &
+  &, 0.238771E-01_JPRB, 0.202183E-01_JPRB, 0.170435E-01_JPRB, 0.142963E-01_JPRB &
+  &, 0.119334E-01_JPRB, 0.990527E-02_JPRB, 0.818812E-02_JPRB &
+  &, 0.673224E-02_JPRB, 0.551557E-02_JPRB, 0.448940E-02_JPRB, 0.363487E-02_JPRB &
+  &, 0.293033E-02_JPRB, 0.235123E-02_JPRB, 0.186990E-02_JPRB &
+  &, 0.148166E-02_JPRB, 0.116745E-02_JPRB, 0.919715E-03_JPRB, 0.715718E-03_JPRB &
+  &, 0.559143E-03_JPRB, 0.424228E-03_JPRB, 0.327994E-03_JPRB &
+  &, 0.257955E-03_JPRB, 0.184436E-03_JPRB, 0.139795E-03_JPRB, 0.109581E-03_JPRB &
+  &, 0.779016E-04_JPRB, 0.620795E-04_JPRB, 0.455005E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART4',0,ZHOOK_HANDLE)
+
+XCW(  22, :) = (/ &
+  &  0.807289E+00_JPRB, 0.762478E+00_JPRB, 0.719039E+00_JPRB, 0.676981E+00_JPRB &
+  &, 0.636312E+00_JPRB, 0.597043E+00_JPRB, 0.559178E+00_JPRB &
+  &, 0.522722E+00_JPRB, 0.487680E+00_JPRB, 0.454053E+00_JPRB, 0.421842E+00_JPRB &
+  &, 0.391042E+00_JPRB, 0.361653E+00_JPRB, 0.333668E+00_JPRB &
+  &, 0.307076E+00_JPRB, 0.281868E+00_JPRB, 0.258029E+00_JPRB, 0.235542E+00_JPRB &
+  &, 0.214390E+00_JPRB, 0.194548E+00_JPRB, 0.175990E+00_JPRB &
+  &, 0.158687E+00_JPRB, 0.142606E+00_JPRB, 0.127713E+00_JPRB, 0.113968E+00_JPRB &
+  &, 0.101329E+00_JPRB, 0.897521E-01_JPRB, 0.791920E-01_JPRB &
+  &, 0.695973E-01_JPRB, 0.609151E-01_JPRB, 0.530980E-01_JPRB, 0.460838E-01_JPRB &
+  &, 0.398279E-01_JPRB, 0.342662E-01_JPRB, 0.293528E-01_JPRB &
+  &, 0.250212E-01_JPRB, 0.212388E-01_JPRB, 0.179431E-01_JPRB, 0.150883E-01_JPRB &
+  &, 0.126221E-01_JPRB, 0.105165E-01_JPRB, 0.871749E-02_JPRB &
+  &, 0.718630E-02_JPRB, 0.590153E-02_JPRB, 0.481518E-02_JPRB, 0.390912E-02_JPRB &
+  &, 0.316249E-02_JPRB, 0.253903E-02_JPRB, 0.203665E-02_JPRB &
+  &, 0.162620E-02_JPRB, 0.128858E-02_JPRB, 0.101620E-02_JPRB, 0.786290E-03_JPRB &
+  &, 0.616948E-03_JPRB, 0.483404E-03_JPRB, 0.373421E-03_JPRB &
+  &, 0.273452E-03_JPRB, 0.216151E-03_JPRB, 0.156019E-03_JPRB, 0.126178E-03_JPRB &
+  &, 0.948770E-04_JPRB, 0.620795E-04_JPRB, 0.455005E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  23, :) = (/ &
+  &  0.808973E+00_JPRB, 0.764504E+00_JPRB, 0.721375E+00_JPRB, 0.679597E+00_JPRB &
+  &, 0.639179E+00_JPRB, 0.600130E+00_JPRB, 0.562456E+00_JPRB &
+  &, 0.526164E+00_JPRB, 0.491258E+00_JPRB, 0.457739E+00_JPRB, 0.425610E+00_JPRB &
+  &, 0.394870E+00_JPRB, 0.365514E+00_JPRB, 0.337540E+00_JPRB &
+  &, 0.310937E+00_JPRB, 0.285698E+00_JPRB, 0.261808E+00_JPRB, 0.239253E+00_JPRB &
+  &, 0.218014E+00_JPRB, 0.198069E+00_JPRB, 0.179397E+00_JPRB &
+  &, 0.161966E+00_JPRB, 0.145750E+00_JPRB, 0.130712E+00_JPRB, 0.116814E+00_JPRB &
+  &, 0.104017E+00_JPRB, 0.922816E-01_JPRB, 0.815542E-01_JPRB &
+  &, 0.717948E-01_JPRB, 0.629507E-01_JPRB, 0.549707E-01_JPRB, 0.478013E-01_JPRB &
+  &, 0.413901E-01_JPRB, 0.356863E-01_JPRB, 0.306319E-01_JPRB &
+  &, 0.261745E-01_JPRB, 0.222592E-01_JPRB, 0.188525E-01_JPRB, 0.158904E-01_JPRB &
+  &, 0.133313E-01_JPRB, 0.111277E-01_JPRB, 0.924685E-02_JPRB &
+  &, 0.764035E-02_JPRB, 0.628749E-02_JPRB, 0.515259E-02_JPRB, 0.419529E-02_JPRB &
+  &, 0.340687E-02_JPRB, 0.273935E-02_JPRB, 0.220340E-02_JPRB &
+  &, 0.175760E-02_JPRB, 0.139625E-02_JPRB, 0.109890E-02_JPRB, 0.870977E-03_JPRB &
+  &, 0.674752E-03_JPRB, 0.527785E-03_JPRB, 0.403706E-03_JPRB &
+  &, 0.319944E-03_JPRB, 0.232009E-03_JPRB, 0.172244E-03_JPRB, 0.142775E-03_JPRB &
+  &, 0.948770E-04_JPRB, 0.794394E-04_JPRB, 0.455005E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  24, :) = (/ &
+  &  0.810596E+00_JPRB, 0.766457E+00_JPRB, 0.723628E+00_JPRB, 0.682121E+00_JPRB &
+  &, 0.641946E+00_JPRB, 0.603110E+00_JPRB, 0.565623E+00_JPRB &
+  &, 0.529490E+00_JPRB, 0.494717E+00_JPRB, 0.461307E+00_JPRB, 0.429261E+00_JPRB &
+  &, 0.398579E+00_JPRB, 0.369259E+00_JPRB, 0.341298E+00_JPRB &
+  &, 0.314687E+00_JPRB, 0.289419E+00_JPRB, 0.265483E+00_JPRB, 0.242864E+00_JPRB &
+  &, 0.221544E+00_JPRB, 0.201505E+00_JPRB, 0.182724E+00_JPRB &
+  &, 0.165175E+00_JPRB, 0.148826E+00_JPRB, 0.133648E+00_JPRB, 0.119606E+00_JPRB &
+  &, 0.106658E+00_JPRB, 0.947664E-01_JPRB, 0.838821E-01_JPRB &
+  &, 0.739649E-01_JPRB, 0.649621E-01_JPRB, 0.568270E-01_JPRB, 0.495062E-01_JPRB &
+  &, 0.429479E-01_JPRB, 0.370977E-01_JPRB, 0.319065E-01_JPRB &
+  &, 0.273186E-01_JPRB, 0.232892E-01_JPRB, 0.197618E-01_JPRB, 0.166924E-01_JPRB &
+  &, 0.140303E-01_JPRB, 0.117494E-01_JPRB, 0.978702E-02_JPRB &
+  &, 0.810548E-02_JPRB, 0.668480E-02_JPRB, 0.549000E-02_JPRB, 0.448146E-02_JPRB &
+  &, 0.365124E-02_JPRB, 0.295219E-02_JPRB, 0.237015E-02_JPRB &
+  &, 0.190214E-02_JPRB, 0.151738E-02_JPRB, 0.119539E-02_JPRB, 0.941548E-03_JPRB &
+  &, 0.747008E-03_JPRB, 0.572167E-03_JPRB, 0.449134E-03_JPRB &
+  &, 0.350938E-03_JPRB, 0.263725E-03_JPRB, 0.204692E-03_JPRB, 0.159372E-03_JPRB &
+  &, 0.111852E-03_JPRB, 0.794394E-04_JPRB, 0.632508E-04_JPRB &
+  &, 0.462932E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  25, :) = (/ &
+  &  0.812163E+00_JPRB, 0.768343E+00_JPRB, 0.725804E+00_JPRB, 0.684561E+00_JPRB &
+  &, 0.644621E+00_JPRB, 0.605994E+00_JPRB, 0.568689E+00_JPRB &
+  &, 0.532712E+00_JPRB, 0.498069E+00_JPRB, 0.464764E+00_JPRB, 0.432801E+00_JPRB &
+  &, 0.402177E+00_JPRB, 0.372894E+00_JPRB, 0.344948E+00_JPRB &
+  &, 0.318332E+00_JPRB, 0.293041E+00_JPRB, 0.269062E+00_JPRB, 0.246383E+00_JPRB &
+  &, 0.224990E+00_JPRB, 0.204862E+00_JPRB, 0.185976E+00_JPRB &
+  &, 0.168312E+00_JPRB, 0.151841E+00_JPRB, 0.136528E+00_JPRB, 0.122345E+00_JPRB &
+  &, 0.109251E+00_JPRB, 0.972102E-01_JPRB, 0.861756E-01_JPRB &
+  &, 0.761037E-01_JPRB, 0.669496E-01_JPRB, 0.586627E-01_JPRB, 0.511942E-01_JPRB &
+  &, 0.444885E-01_JPRB, 0.385045E-01_JPRB, 0.331766E-01_JPRB &
+  &, 0.284627E-01_JPRB, 0.243096E-01_JPRB, 0.206712E-01_JPRB, 0.175045E-01_JPRB &
+  &, 0.147498E-01_JPRB, 0.123712E-01_JPRB, 0.103272E-01_JPRB &
+  &, 0.858169E-02_JPRB, 0.709346E-02_JPRB, 0.583904E-02_JPRB, 0.477956E-02_JPRB &
+  &, 0.389562E-02_JPRB, 0.316503E-02_JPRB, 0.254973E-02_JPRB &
+  &, 0.204667E-02_JPRB, 0.163851E-02_JPRB, 0.130565E-02_JPRB, 0.102623E-02_JPRB &
+  &, 0.804813E-03_JPRB, 0.631342E-03_JPRB, 0.494562E-03_JPRB &
+  &, 0.381933E-03_JPRB, 0.295441E-03_JPRB, 0.220917E-03_JPRB, 0.175969E-03_JPRB &
+  &, 0.128828E-03_JPRB, 0.967992E-04_JPRB, 0.632508E-04_JPRB &
+  &, 0.462932E-04_JPRB, 0.285490E-04_JPRB, 0.289572E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  26, :) = (/ &
+  &  0.813677E+00_JPRB, 0.770167E+00_JPRB, 0.727911E+00_JPRB, 0.686922E+00_JPRB &
+  &, 0.647211E+00_JPRB, 0.608787E+00_JPRB, 0.571659E+00_JPRB &
+  &, 0.535835E+00_JPRB, 0.501321E+00_JPRB, 0.468121E+00_JPRB, 0.436238E+00_JPRB &
+  &, 0.405674E+00_JPRB, 0.376429E+00_JPRB, 0.348499E+00_JPRB &
+  &, 0.321883E+00_JPRB, 0.296569E+00_JPRB, 0.272552E+00_JPRB, 0.249818E+00_JPRB &
+  &, 0.228353E+00_JPRB, 0.208139E+00_JPRB, 0.189157E+00_JPRB &
+  &, 0.171385E+00_JPRB, 0.154795E+00_JPRB, 0.139357E+00_JPRB, 0.125038E+00_JPRB &
+  &, 0.111805E+00_JPRB, 0.996204E-01_JPRB, 0.884386E-01_JPRB &
+  &, 0.782190E-01_JPRB, 0.689170E-01_JPRB, 0.604820E-01_JPRB, 0.528696E-01_JPRB &
+  &, 0.460248E-01_JPRB, 0.399026E-01_JPRB, 0.344466E-01_JPRB &
+  &, 0.296067E-01_JPRB, 0.253396E-01_JPRB, 0.215903E-01_JPRB, 0.183165E-01_JPRB &
+  &, 0.154693E-01_JPRB, 0.130035E-01_JPRB, 0.108782E-01_JPRB &
+  &, 0.905789E-02_JPRB, 0.751347E-02_JPRB, 0.619972E-02_JPRB, 0.508958E-02_JPRB &
+  &, 0.415222E-02_JPRB, 0.337787E-02_JPRB, 0.274213E-02_JPRB &
+  &, 0.220435E-02_JPRB, 0.175963E-02_JPRB, 0.140214E-02_JPRB, 0.111092E-02_JPRB &
+  &, 0.877068E-03_JPRB, 0.690518E-03_JPRB, 0.539989E-03_JPRB &
+  &, 0.412927E-03_JPRB, 0.327156E-03_JPRB, 0.253366E-03_JPRB, 0.192566E-03_JPRB &
+  &, 0.145803E-03_JPRB, 0.967992E-04_JPRB, 0.810010E-04_JPRB &
+  &, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  27, :) = (/ &
+  &  0.815145E+00_JPRB, 0.771933E+00_JPRB, 0.729952E+00_JPRB, 0.689211E+00_JPRB &
+  &, 0.649723E+00_JPRB, 0.611497E+00_JPRB, 0.574542E+00_JPRB &
+  &, 0.538868E+00_JPRB, 0.504480E+00_JPRB, 0.471383E+00_JPRB, 0.439581E+00_JPRB &
+  &, 0.409076E+00_JPRB, 0.379871E+00_JPRB, 0.351960E+00_JPRB &
+  &, 0.325342E+00_JPRB, 0.300012E+00_JPRB, 0.275958E+00_JPRB, 0.253173E+00_JPRB &
+  &, 0.231642E+00_JPRB, 0.211349E+00_JPRB, 0.192277E+00_JPRB &
+  &, 0.174399E+00_JPRB, 0.157694E+00_JPRB, 0.142133E+00_JPRB, 0.127688E+00_JPRB &
+  &, 0.114318E+00_JPRB, 0.101993E+00_JPRB, 0.906711E-01_JPRB &
+  &, 0.803070E-01_JPRB, 0.708603E-01_JPRB, 0.622848E-01_JPRB, 0.545324E-01_JPRB &
+  &, 0.475481E-01_JPRB, 0.412917E-01_JPRB, 0.357121E-01_JPRB &
+  &, 0.307508E-01_JPRB, 0.263695E-01_JPRB, 0.225095E-01_JPRB, 0.191286E-01_JPRB &
+  &, 0.161888E-01_JPRB, 0.136358E-01_JPRB, 0.114291E-01_JPRB &
+  &, 0.954517E-02_JPRB, 0.793348E-02_JPRB, 0.656040E-02_JPRB, 0.539960E-02_JPRB &
+  &, 0.442104E-02_JPRB, 0.360322E-02_JPRB, 0.292171E-02_JPRB &
+  &, 0.236203E-02_JPRB, 0.189422E-02_JPRB, 0.151241E-02_JPRB, 0.120972E-02_JPRB &
+  &, 0.949324E-03_JPRB, 0.749693E-03_JPRB, 0.585417E-03_JPRB &
+  &, 0.459419E-03_JPRB, 0.358872E-03_JPRB, 0.269590E-03_JPRB, 0.209163E-03_JPRB &
+  &, 0.162779E-03_JPRB, 0.114159E-03_JPRB, 0.810010E-04_JPRB &
+  &, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  28, :) = (/ &
+  &  0.816566E+00_JPRB, 0.773647E+00_JPRB, 0.731931E+00_JPRB, 0.691432E+00_JPRB &
+  &, 0.652161E+00_JPRB, 0.614128E+00_JPRB, 0.577344E+00_JPRB &
+  &, 0.541816E+00_JPRB, 0.507551E+00_JPRB, 0.474557E+00_JPRB, 0.442835E+00_JPRB &
+  &, 0.412391E+00_JPRB, 0.383224E+00_JPRB, 0.355334E+00_JPRB &
+  &, 0.328719E+00_JPRB, 0.303372E+00_JPRB, 0.279287E+00_JPRB, 0.256454E+00_JPRB &
+  &, 0.234860E+00_JPRB, 0.214490E+00_JPRB, 0.195331E+00_JPRB &
+  &, 0.177356E+00_JPRB, 0.160543E+00_JPRB, 0.144864E+00_JPRB, 0.130292E+00_JPRB &
+  &, 0.116795E+00_JPRB, 0.104337E+00_JPRB, 0.928768E-01_JPRB &
+  &, 0.823715E-01_JPRB, 0.727876E-01_JPRB, 0.640713E-01_JPRB, 0.561825E-01_JPRB &
+  &, 0.490671E-01_JPRB, 0.426809E-01_JPRB, 0.369731E-01_JPRB &
+  &, 0.318948E-01_JPRB, 0.273900E-01_JPRB, 0.234286E-01_JPRB, 0.199507E-01_JPRB &
+  &, 0.169186E-01_JPRB, 0.142786E-01_JPRB, 0.120017E-01_JPRB &
+  &, 0.100325E-01_JPRB, 0.835350E-02_JPRB, 0.692108E-02_JPRB, 0.570962E-02_JPRB &
+  &, 0.468985E-02_JPRB, 0.382858E-02_JPRB, 0.311411E-02_JPRB &
+  &, 0.251971E-02_JPRB, 0.202881E-02_JPRB, 0.163646E-02_JPRB, 0.129441E-02_JPRB &
+  &, 0.103603E-02_JPRB, 0.808869E-03_JPRB, 0.645987E-03_JPRB &
+  &, 0.505910E-03_JPRB, 0.390587E-03_JPRB, 0.302039E-03_JPRB, 0.225760E-03_JPRB &
+  &, 0.179754E-03_JPRB, 0.131519E-03_JPRB, 0.987513E-04_JPRB &
+  &, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART5',0,ZHOOK_HANDLE)
+
+XCW(  29, :) = (/ &
+  &  0.817947E+00_JPRB, 0.775311E+00_JPRB, 0.733854E+00_JPRB, 0.693591E+00_JPRB &
+  &, 0.654531E+00_JPRB, 0.616687E+00_JPRB, 0.580069E+00_JPRB &
+  &, 0.544685E+00_JPRB, 0.510542E+00_JPRB, 0.477648E+00_JPRB, 0.446007E+00_JPRB &
+  &, 0.415622E+00_JPRB, 0.386496E+00_JPRB, 0.358628E+00_JPRB &
+  &, 0.332016E+00_JPRB, 0.306657E+00_JPRB, 0.282543E+00_JPRB, 0.259664E+00_JPRB &
+  &, 0.238014E+00_JPRB, 0.217574E+00_JPRB, 0.198327E+00_JPRB &
+  &, 0.180257E+00_JPRB, 0.163341E+00_JPRB, 0.147550E+00_JPRB, 0.132860E+00_JPRB &
+  &, 0.119236E+00_JPRB, 0.106646E+00_JPRB, 0.950520E-01_JPRB &
+  &, 0.844165E-01_JPRB, 0.746949E-01_JPRB, 0.658454E-01_JPRB, 0.578201E-01_JPRB &
+  &, 0.505775E-01_JPRB, 0.440613E-01_JPRB, 0.382296E-01_JPRB &
+  &, 0.330296E-01_JPRB, 0.284199E-01_JPRB, 0.243575E-01_JPRB, 0.207728E-01_JPRB &
+  &, 0.176484E-01_JPRB, 0.149214E-01_JPRB, 0.125635E-01_JPRB &
+  &, 0.105308E-01_JPRB, 0.878486E-02_JPRB, 0.729340E-02_JPRB, 0.603157E-02_JPRB &
+  &, 0.497089E-02_JPRB, 0.406646E-02_JPRB, 0.331934E-02_JPRB &
+  &, 0.269053E-02_JPRB, 0.217685E-02_JPRB, 0.174673E-02_JPRB, 0.139321E-02_JPRB &
+  &, 0.110829E-02_JPRB, 0.882838E-03_JPRB, 0.691415E-03_JPRB &
+  &, 0.536905E-03_JPRB, 0.422303E-03_JPRB, 0.334488E-03_JPRB, 0.258954E-03_JPRB &
+  &, 0.196729E-03_JPRB, 0.148879E-03_JPRB, 0.116502E-03_JPRB &
+  &, 0.825865E-04_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  30, :) = (/ &
+  &  0.819288E+00_JPRB, 0.776928E+00_JPRB, 0.735724E+00_JPRB, 0.695691E+00_JPRB &
+  &, 0.656838E+00_JPRB, 0.619179E+00_JPRB, 0.582723E+00_JPRB &
+  &, 0.547480E+00_JPRB, 0.513458E+00_JPRB, 0.480663E+00_JPRB, 0.449101E+00_JPRB &
+  &, 0.418776E+00_JPRB, 0.389692E+00_JPRB, 0.361847E+00_JPRB &
+  &, 0.335240E+00_JPRB, 0.309869E+00_JPRB, 0.285729E+00_JPRB, 0.262811E+00_JPRB &
+  &, 0.241104E+00_JPRB, 0.220594E+00_JPRB, 0.201268E+00_JPRB &
+  &, 0.183109E+00_JPRB, 0.166092E+00_JPRB, 0.150195E+00_JPRB, 0.135390E+00_JPRB &
+  &, 0.121644E+00_JPRB, 0.108930E+00_JPRB, 0.972082E-01_JPRB &
+  &, 0.864380E-01_JPRB, 0.765862E-01_JPRB, 0.676031E-01_JPRB, 0.594492E-01_JPRB &
+  &, 0.520750E-01_JPRB, 0.454372E-01_JPRB, 0.394860E-01_JPRB &
+  &, 0.341737E-01_JPRB, 0.294499E-01_JPRB, 0.252767E-01_JPRB, 0.216049E-01_JPRB &
+  &, 0.183885E-01_JPRB, 0.155748E-01_JPRB, 0.131360E-01_JPRB &
+  &, 0.110292E-01_JPRB, 0.922757E-02_JPRB, 0.767734E-02_JPRB, 0.636544E-02_JPRB &
+  &, 0.525193E-02_JPRB, 0.430434E-02_JPRB, 0.352457E-02_JPRB &
+  &, 0.286134E-02_JPRB, 0.231144E-02_JPRB, 0.187078E-02_JPRB, 0.149201E-02_JPRB &
+  &, 0.119499E-02_JPRB, 0.942013E-03_JPRB, 0.751985E-03_JPRB &
+  &, 0.583396E-03_JPRB, 0.454019E-03_JPRB, 0.350712E-03_JPRB, 0.275550E-03_JPRB &
+  &, 0.213705E-03_JPRB, 0.166239E-03_JPRB, 0.116502E-03_JPRB &
+  &, 0.825865E-04_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  31, :) = (/ &
+  &  0.820593E+00_JPRB, 0.778502E+00_JPRB, 0.737544E+00_JPRB, 0.697735E+00_JPRB &
+  &, 0.659085E+00_JPRB, 0.621606E+00_JPRB, 0.585310E+00_JPRB &
+  &, 0.550206E+00_JPRB, 0.516301E+00_JPRB, 0.483605E+00_JPRB, 0.452123E+00_JPRB &
+  &, 0.421858E+00_JPRB, 0.392815E+00_JPRB, 0.364994E+00_JPRB &
+  &, 0.338395E+00_JPRB, 0.313017E+00_JPRB, 0.288851E+00_JPRB, 0.265895E+00_JPRB &
+  &, 0.244135E+00_JPRB, 0.223560E+00_JPRB, 0.204160E+00_JPRB &
+  &, 0.185914E+00_JPRB, 0.168802E+00_JPRB, 0.152798E+00_JPRB, 0.137880E+00_JPRB &
+  &, 0.124019E+00_JPRB, 0.111184E+00_JPRB, 0.993376E-01_JPRB &
+  &, 0.884399E-01_JPRB, 0.784614E-01_JPRB, 0.693485E-01_JPRB, 0.610699E-01_JPRB &
+  &, 0.535724E-01_JPRB, 0.468087E-01_JPRB, 0.407425E-01_JPRB &
+  &, 0.353177E-01_JPRB, 0.304894E-01_JPRB, 0.262056E-01_JPRB, 0.224370E-01_JPRB &
+  &, 0.191286E-01_JPRB, 0.162387E-01_JPRB, 0.137194E-01_JPRB &
+  &, 0.115386E-01_JPRB, 0.967029E-02_JPRB, 0.806129E-02_JPRB, 0.669931E-02_JPRB &
+  &, 0.553296E-02_JPRB, 0.455474E-02_JPRB, 0.372980E-02_JPRB &
+  &, 0.303216E-02_JPRB, 0.245949E-02_JPRB, 0.199483E-02_JPRB, 0.160492E-02_JPRB &
+  &, 0.128170E-02_JPRB, 0.101598E-02_JPRB, 0.812555E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.501592E-03_JPRB, 0.383161E-03_JPRB, 0.292147E-03_JPRB &
+  &, 0.230680E-03_JPRB, 0.183598E-03_JPRB, 0.134252E-03_JPRB &
+  &, 0.100733E-03_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  32, :) = (/ &
+  &  0.821863E+00_JPRB, 0.780035E+00_JPRB, 0.739318E+00_JPRB, 0.699727E+00_JPRB &
+  &, 0.661275E+00_JPRB, 0.623974E+00_JPRB, 0.587834E+00_JPRB &
+  &, 0.552866E+00_JPRB, 0.519078E+00_JPRB, 0.486479E+00_JPRB, 0.455075E+00_JPRB &
+  &, 0.424871E+00_JPRB, 0.395870E+00_JPRB, 0.368075E+00_JPRB &
+  &, 0.341486E+00_JPRB, 0.316099E+00_JPRB, 0.291913E+00_JPRB, 0.268919E+00_JPRB &
+  &, 0.247111E+00_JPRB, 0.226476E+00_JPRB, 0.207004E+00_JPRB &
+  &, 0.188672E+00_JPRB, 0.171467E+00_JPRB, 0.155366E+00_JPRB, 0.140342E+00_JPRB &
+  &, 0.126365E+00_JPRB, 0.113411E+00_JPRB, 0.101444E+00_JPRB &
+  &, 0.904262E-01_JPRB, 0.803166E-01_JPRB, 0.710815E-01_JPRB, 0.626779E-01_JPRB &
+  &, 0.550569E-01_JPRB, 0.481757E-01_JPRB, 0.419898E-01_JPRB &
+  &, 0.364525E-01_JPRB, 0.315194E-01_JPRB, 0.271345E-01_JPRB, 0.232691E-01_JPRB &
+  &, 0.198687E-01_JPRB, 0.168920E-01_JPRB, 0.143028E-01_JPRB &
+  &, 0.120591E-01_JPRB, 0.101244E-01_JPRB, 0.845688E-02_JPRB, 0.703318E-02_JPRB &
+  &, 0.582622E-02_JPRB, 0.480514E-02_JPRB, 0.393503E-02_JPRB &
+  &, 0.321612E-02_JPRB, 0.262099E-02_JPRB, 0.211889E-02_JPRB, 0.170372E-02_JPRB &
+  &, 0.136841E-02_JPRB, 0.108995E-02_JPRB, 0.873125E-03_JPRB &
+  &, 0.691877E-03_JPRB, 0.533308E-03_JPRB, 0.415609E-03_JPRB, 0.325341E-03_JPRB &
+  &, 0.247656E-03_JPRB, 0.200958E-03_JPRB, 0.152002E-03_JPRB &
+  &, 0.118880E-03_JPRB, 0.841958E-04_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  33, :) = (/ &
+  &  0.823102E+00_JPRB, 0.781529E+00_JPRB, 0.741047E+00_JPRB, 0.701671E+00_JPRB &
+  &, 0.663413E+00_JPRB, 0.626280E+00_JPRB, 0.590299E+00_JPRB &
+  &, 0.555465E+00_JPRB, 0.521792E+00_JPRB, 0.489290E+00_JPRB, 0.457963E+00_JPRB &
+  &, 0.427819E+00_JPRB, 0.398861E+00_JPRB, 0.371092E+00_JPRB &
+  &, 0.344513E+00_JPRB, 0.319122E+00_JPRB, 0.294915E+00_JPRB, 0.271889E+00_JPRB &
+  &, 0.250035E+00_JPRB, 0.229340E+00_JPRB, 0.209799E+00_JPRB &
+  &, 0.191388E+00_JPRB, 0.174096E+00_JPRB, 0.157896E+00_JPRB, 0.142768E+00_JPRB &
+  &, 0.128686E+00_JPRB, 0.115613E+00_JPRB, 0.103528E+00_JPRB &
+  &, 0.923891E-01_JPRB, 0.821598E-01_JPRB, 0.728063E-01_JPRB, 0.642776E-01_JPRB &
+  &, 0.565371E-01_JPRB, 0.495384E-01_JPRB, 0.432417E-01_JPRB &
+  &, 0.375872E-01_JPRB, 0.325493E-01_JPRB, 0.280732E-01_JPRB, 0.241113E-01_JPRB &
+  &, 0.206190E-01_JPRB, 0.175665E-01_JPRB, 0.148970E-01_JPRB &
+  &, 0.125796E-01_JPRB, 0.105784E-01_JPRB, 0.885246E-02_JPRB, 0.737897E-02_JPRB &
+  &, 0.611947E-02_JPRB, 0.505554E-02_JPRB, 0.415309E-02_JPRB &
+  &, 0.340008E-02_JPRB, 0.276904E-02_JPRB, 0.225672E-02_JPRB, 0.181664E-02_JPRB &
+  &, 0.145511E-02_JPRB, 0.116392E-02_JPRB, 0.933696E-03_JPRB &
+  &, 0.738368E-03_JPRB, 0.580881E-03_JPRB, 0.448058E-03_JPRB, 0.358535E-03_JPRB &
+  &, 0.281606E-03_JPRB, 0.218318E-03_JPRB, 0.152002E-03_JPRB &
+  &, 0.118880E-03_JPRB, 0.841958E-04_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  34, :) = (/ &
+  &  0.824310E+00_JPRB, 0.782987E+00_JPRB, 0.742736E+00_JPRB, 0.703569E+00_JPRB &
+  &, 0.665501E+00_JPRB, 0.628543E+00_JPRB, 0.592708E+00_JPRB &
+  &, 0.558006E+00_JPRB, 0.524447E+00_JPRB, 0.492039E+00_JPRB, 0.460791E+00_JPRB &
+  &, 0.430707E+00_JPRB, 0.401793E+00_JPRB, 0.374051E+00_JPRB &
+  &, 0.347482E+00_JPRB, 0.322088E+00_JPRB, 0.297864E+00_JPRB, 0.274807E+00_JPRB &
+  &, 0.252909E+00_JPRB, 0.232161E+00_JPRB, 0.212552E+00_JPRB &
+  &, 0.194063E+00_JPRB, 0.176687E+00_JPRB, 0.160395E+00_JPRB, 0.145166E+00_JPRB &
+  &, 0.130973E+00_JPRB, 0.117796E+00_JPRB, 0.105592E+00_JPRB &
+  &, 0.943363E-01_JPRB, 0.839910E-01_JPRB, 0.745148E-01_JPRB, 0.658688E-01_JPRB &
+  &, 0.580129E-01_JPRB, 0.509010E-01_JPRB, 0.444891E-01_JPRB &
+  &, 0.387313E-01_JPRB, 0.335888E-01_JPRB, 0.290119E-01_JPRB, 0.249534E-01_JPRB &
+  &, 0.213796E-01_JPRB, 0.182304E-01_JPRB, 0.154912E-01_JPRB &
+  &, 0.131001E-01_JPRB, 0.110325E-01_JPRB, 0.925968E-02_JPRB, 0.772476E-02_JPRB &
+  &, 0.642494E-02_JPRB, 0.531846E-02_JPRB, 0.438398E-02_JPRB &
+  &, 0.359717E-02_JPRB, 0.293054E-02_JPRB, 0.238077E-02_JPRB, 0.192955E-02_JPRB &
+  &, 0.155627E-02_JPRB, 0.125268E-02_JPRB, 0.994266E-03_JPRB &
+  &, 0.784860E-03_JPRB, 0.628454E-03_JPRB, 0.496731E-03_JPRB, 0.375132E-03_JPRB &
+  &, 0.298582E-03_JPRB, 0.235678E-03_JPRB, 0.169752E-03_JPRB &
+  &, 0.137026E-03_JPRB, 0.102745E-03_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  35, :) = (/ &
+  &  0.825489E+00_JPRB, 0.784411E+00_JPRB, 0.744385E+00_JPRB, 0.705424E+00_JPRB &
+  &, 0.667541E+00_JPRB, 0.630751E+00_JPRB, 0.595064E+00_JPRB &
+  &, 0.560492E+00_JPRB, 0.527045E+00_JPRB, 0.494732E+00_JPRB, 0.463560E+00_JPRB &
+  &, 0.433536E+00_JPRB, 0.404666E+00_JPRB, 0.376952E+00_JPRB &
+  &, 0.350396E+00_JPRB, 0.325000E+00_JPRB, 0.300761E+00_JPRB, 0.277675E+00_JPRB &
+  &, 0.255736E+00_JPRB, 0.234933E+00_JPRB, 0.215259E+00_JPRB &
+  &, 0.196702E+00_JPRB, 0.179241E+00_JPRB, 0.162859E+00_JPRB, 0.147532E+00_JPRB &
+  &, 0.133240E+00_JPRB, 0.119953E+00_JPRB, 0.107638E+00_JPRB &
+  &, 0.962678E-01_JPRB, 0.858061E-01_JPRB, 0.762149E-01_JPRB, 0.674516E-01_JPRB &
+  &, 0.594801E-01_JPRB, 0.522548E-01_JPRB, 0.457320E-01_JPRB &
+  &, 0.398661E-01_JPRB, 0.346188E-01_JPRB, 0.299506E-01_JPRB, 0.257956E-01_JPRB &
+  &, 0.221300E-01_JPRB, 0.189153E-01_JPRB, 0.160962E-01_JPRB &
+  &, 0.136317E-01_JPRB, 0.114979E-01_JPRB, 0.966690E-02_JPRB, 0.808248E-02_JPRB &
+  &, 0.673042E-02_JPRB, 0.558138E-02_JPRB, 0.461486E-02_JPRB &
+  &, 0.379427E-02_JPRB, 0.310551E-02_JPRB, 0.251861E-02_JPRB, 0.204247E-02_JPRB &
+  &, 0.165743E-02_JPRB, 0.132665E-02_JPRB, 0.105484E-02_JPRB &
+  &, 0.846849E-03_JPRB, 0.676028E-03_JPRB, 0.529180E-03_JPRB, 0.408326E-03_JPRB &
+  &, 0.315557E-03_JPRB, 0.253038E-03_JPRB, 0.187503E-03_JPRB &
+  &, 0.137026E-03_JPRB, 0.102745E-03_JPRB, 0.858290E-04_JPRB, 0.681145E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART6',0,ZHOOK_HANDLE)
+
+XCW(  36, :) = (/ &
+  &  0.826642E+00_JPRB, 0.785803E+00_JPRB, 0.745996E+00_JPRB, 0.707237E+00_JPRB &
+  &, 0.669537E+00_JPRB, 0.632911E+00_JPRB, 0.597370E+00_JPRB &
+  &, 0.562926E+00_JPRB, 0.529589E+00_JPRB, 0.497370E+00_JPRB, 0.466275E+00_JPRB &
+  &, 0.436310E+00_JPRB, 0.407484E+00_JPRB, 0.379800E+00_JPRB &
+  &, 0.353259E+00_JPRB, 0.327862E+00_JPRB, 0.303609E+00_JPRB, 0.280496E+00_JPRB &
+  &, 0.258517E+00_JPRB, 0.237665E+00_JPRB, 0.217931E+00_JPRB &
+  &, 0.199302E+00_JPRB, 0.181760E+00_JPRB, 0.165291E+00_JPRB, 0.149873E+00_JPRB &
+  &, 0.135480E+00_JPRB, 0.122088E+00_JPRB, 0.109664E+00_JPRB &
+  &, 0.981838E-01_JPRB, 0.876092E-01_JPRB, 0.779028E-01_JPRB, 0.690260E-01_JPRB &
+  &, 0.609387E-01_JPRB, 0.536042E-01_JPRB, 0.469748E-01_JPRB &
+  &, 0.410101E-01_JPRB, 0.356583E-01_JPRB, 0.308893E-01_JPRB, 0.266477E-01_JPRB &
+  &, 0.229009E-01_JPRB, 0.195898E-01_JPRB, 0.167011E-01_JPRB &
+  &, 0.141743E-01_JPRB, 0.119747E-01_JPRB, 0.100741E-01_JPRB, 0.844020E-02_JPRB &
+  &, 0.704811E-02_JPRB, 0.585681E-02_JPRB, 0.484574E-02_JPRB &
+  &, 0.399137E-02_JPRB, 0.326701E-02_JPRB, 0.267023E-02_JPRB, 0.216950E-02_JPRB &
+  &, 0.175859E-02_JPRB, 0.141542E-02_JPRB, 0.113055E-02_JPRB &
+  &, 0.908837E-03_JPRB, 0.707744E-03_JPRB, 0.561629E-03_JPRB, 0.441520E-03_JPRB &
+  &, 0.349508E-03_JPRB, 0.270398E-03_JPRB, 0.205253E-03_JPRB &
+  &, 0.155173E-03_JPRB, 0.121294E-03_JPRB, 0.858290E-04_JPRB, 0.681145E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  37, :) = (/ &
+  &  0.827767E+00_JPRB, 0.787164E+00_JPRB, 0.747573E+00_JPRB, 0.709011E+00_JPRB &
+  &, 0.671491E+00_JPRB, 0.635026E+00_JPRB, 0.599629E+00_JPRB &
+  &, 0.565311E+00_JPRB, 0.532084E+00_JPRB, 0.499956E+00_JPRB, 0.468937E+00_JPRB &
+  &, 0.439034E+00_JPRB, 0.410251E+00_JPRB, 0.382597E+00_JPRB &
+  &, 0.356070E+00_JPRB, 0.330675E+00_JPRB, 0.306410E+00_JPRB, 0.283271E+00_JPRB &
+  &, 0.261256E+00_JPRB, 0.240358E+00_JPRB, 0.220564E+00_JPRB &
+  &, 0.201868E+00_JPRB, 0.184250E+00_JPRB, 0.167696E+00_JPRB, 0.152186E+00_JPRB &
+  &, 0.137695E+00_JPRB, 0.124200E+00_JPRB, 0.111675E+00_JPRB &
+  &, 0.100084E+00_JPRB, 0.893963E-01_JPRB, 0.795784E-01_JPRB, 0.705919E-01_JPRB &
+  &, 0.623973E-01_JPRB, 0.549535E-01_JPRB, 0.482176E-01_JPRB &
+  &, 0.421449E-01_JPRB, 0.366978E-01_JPRB, 0.318280E-01_JPRB, 0.274999E-01_JPRB &
+  &, 0.236615E-01_JPRB, 0.202747E-01_JPRB, 0.173061E-01_JPRB &
+  &, 0.147170E-01_JPRB, 0.124515E-01_JPRB, 0.104930E-01_JPRB, 0.880984E-02_JPRB &
+  &, 0.736580E-02_JPRB, 0.613225E-02_JPRB, 0.507663E-02_JPRB &
+  &, 0.418847E-02_JPRB, 0.344197E-02_JPRB, 0.280806E-02_JPRB, 0.229653E-02_JPRB &
+  &, 0.185975E-02_JPRB, 0.150418E-02_JPRB, 0.120626E-02_JPRB &
+  &, 0.955329E-03_JPRB, 0.771175E-03_JPRB, 0.610302E-03_JPRB, 0.474713E-03_JPRB &
+  &, 0.366483E-03_JPRB, 0.287757E-03_JPRB, 0.223003E-03_JPRB &
+  &, 0.173320E-03_JPRB, 0.139843E-03_JPRB, 0.104786E-03_JPRB, 0.681145E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  38, :) = (/ &
+  &  0.828871E+00_JPRB, 0.788496E+00_JPRB, 0.749117E+00_JPRB, 0.710749E+00_JPRB &
+  &, 0.673404E+00_JPRB, 0.637098E+00_JPRB, 0.601842E+00_JPRB &
+  &, 0.567649E+00_JPRB, 0.534530E+00_JPRB, 0.502494E+00_JPRB, 0.471550E+00_JPRB &
+  &, 0.441706E+00_JPRB, 0.412970E+00_JPRB, 0.385344E+00_JPRB &
+  &, 0.358834E+00_JPRB, 0.333442E+00_JPRB, 0.309165E+00_JPRB, 0.286005E+00_JPRB &
+  &, 0.263955E+00_JPRB, 0.243010E+00_JPRB, 0.223161E+00_JPRB &
+  &, 0.204398E+00_JPRB, 0.186709E+00_JPRB, 0.170070E+00_JPRB, 0.154473E+00_JPRB &
+  &, 0.139889E+00_JPRB, 0.126297E+00_JPRB, 0.113667E+00_JPRB &
+  &, 0.101969E+00_JPRB, 0.911754E-01_JPRB, 0.812498E-01_JPRB, 0.721537E-01_JPRB &
+  &, 0.638473E-01_JPRB, 0.562940E-01_JPRB, 0.494559E-01_JPRB &
+  &, 0.432796E-01_JPRB, 0.377373E-01_JPRB, 0.327765E-01_JPRB, 0.283521E-01_JPRB &
+  &, 0.244325E-01_JPRB, 0.209703E-01_JPRB, 0.179219E-01_JPRB &
+  &, 0.152596E-01_JPRB, 0.129396E-01_JPRB, 0.109235E-01_JPRB, 0.917948E-02_JPRB &
+  &, 0.768350E-02_JPRB, 0.640769E-02_JPRB, 0.532034E-02_JPRB &
+  &, 0.439870E-02_JPRB, 0.361694E-02_JPRB, 0.295968E-02_JPRB, 0.242356E-02_JPRB &
+  &, 0.196090E-02_JPRB, 0.159294E-02_JPRB, 0.128197E-02_JPRB &
+  &, 0.101732E-02_JPRB, 0.818748E-03_JPRB, 0.642751E-03_JPRB, 0.507907E-03_JPRB &
+  &, 0.400434E-03_JPRB, 0.305117E-03_JPRB, 0.240753E-03_JPRB &
+  &, 0.191466E-03_JPRB, 0.139843E-03_JPRB, 0.104786E-03_JPRB, 0.874860E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  39, :) = (/ &
+  &  0.829949E+00_JPRB, 0.789801E+00_JPRB, 0.750629E+00_JPRB, 0.712451E+00_JPRB &
+  &, 0.675280E+00_JPRB, 0.639129E+00_JPRB, 0.604013E+00_JPRB &
+  &, 0.569942E+00_JPRB, 0.536929E+00_JPRB, 0.504984E+00_JPRB, 0.474116E+00_JPRB &
+  &, 0.444331E+00_JPRB, 0.415640E+00_JPRB, 0.388046E+00_JPRB &
+  &, 0.361553E+00_JPRB, 0.336164E+00_JPRB, 0.311879E+00_JPRB, 0.288697E+00_JPRB &
+  &, 0.266615E+00_JPRB, 0.245624E+00_JPRB, 0.225723E+00_JPRB &
+  &, 0.206897E+00_JPRB, 0.189137E+00_JPRB, 0.172420E+00_JPRB, 0.156736E+00_JPRB &
+  &, 0.142060E+00_JPRB, 0.128372E+00_JPRB, 0.115640E+00_JPRB &
+  &, 0.103842E+00_JPRB, 0.929424E-01_JPRB, 0.829090E-01_JPRB, 0.737028E-01_JPRB &
+  &, 0.652929E-01_JPRB, 0.576346E-01_JPRB, 0.506942E-01_JPRB &
+  &, 0.444144E-01_JPRB, 0.387768E-01_JPRB, 0.337250E-01_JPRB, 0.292143E-01_JPRB &
+  &, 0.252034E-01_JPRB, 0.216658E-01_JPRB, 0.185485E-01_JPRB &
+  &, 0.158134E-01_JPRB, 0.134277E-01_JPRB, 0.113539E-01_JPRB, 0.956105E-02_JPRB &
+  &, 0.801341E-02_JPRB, 0.669565E-02_JPRB, 0.556405E-02_JPRB &
+  &, 0.460894E-02_JPRB, 0.379190E-02_JPRB, 0.311130E-02_JPRB, 0.255059E-02_JPRB &
+  &, 0.207651E-02_JPRB, 0.168171E-02_JPRB, 0.135769E-02_JPRB &
+  &, 0.107931E-02_JPRB, 0.866322E-03_JPRB, 0.691424E-03_JPRB, 0.541101E-03_JPRB &
+  &, 0.434385E-03_JPRB, 0.339837E-03_JPRB, 0.258504E-03_JPRB &
+  &, 0.209613E-03_JPRB, 0.158392E-03_JPRB, 0.123743E-03_JPRB, 0.874860E-04_JPRB &
+  &, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  40, :) = (/ &
+  &  0.831007E+00_JPRB, 0.791079E+00_JPRB, 0.752111E+00_JPRB, 0.714120E+00_JPRB &
+  &, 0.677119E+00_JPRB, 0.641122E+00_JPRB, 0.606143E+00_JPRB &
+  &, 0.572193E+00_JPRB, 0.539286E+00_JPRB, 0.507430E+00_JPRB, 0.476636E+00_JPRB &
+  &, 0.446913E+00_JPRB, 0.418266E+00_JPRB, 0.390703E+00_JPRB &
+  &, 0.364228E+00_JPRB, 0.338844E+00_JPRB, 0.314552E+00_JPRB, 0.291350E+00_JPRB &
+  &, 0.269237E+00_JPRB, 0.248207E+00_JPRB, 0.228252E+00_JPRB &
+  &, 0.209367E+00_JPRB, 0.191535E+00_JPRB, 0.174745E+00_JPRB, 0.158978E+00_JPRB &
+  &, 0.144213E+00_JPRB, 0.130429E+00_JPRB, 0.117602E+00_JPRB &
+  &, 0.105699E+00_JPRB, 0.946975E-01_JPRB, 0.845599E-01_JPRB, 0.752477E-01_JPRB &
+  &, 0.667343E-01_JPRB, 0.589751E-01_JPRB, 0.519280E-01_JPRB &
+  &, 0.455584E-01_JPRB, 0.398163E-01_JPRB, 0.346735E-01_JPRB, 0.300764E-01_JPRB &
+  &, 0.259846E-01_JPRB, 0.223613E-01_JPRB, 0.191751E-01_JPRB &
+  &, 0.163671E-01_JPRB, 0.139158E-01_JPRB, 0.117844E-01_JPRB, 0.994261E-02_JPRB &
+  &, 0.834332E-02_JPRB, 0.698361E-02_JPRB, 0.582059E-02_JPRB &
+  &, 0.481918E-02_JPRB, 0.398032E-02_JPRB, 0.327670E-02_JPRB, 0.267762E-02_JPRB &
+  &, 0.219212E-02_JPRB, 0.177047E-02_JPRB, 0.143340E-02_JPRB &
+  &, 0.115679E-02_JPRB, 0.929753E-03_JPRB, 0.740097E-03_JPRB, 0.590892E-03_JPRB &
+  &, 0.451360E-03_JPRB, 0.357197E-03_JPRB, 0.276254E-03_JPRB &
+  &, 0.209613E-03_JPRB, 0.158392E-03_JPRB, 0.123743E-03_JPRB, 0.874860E-04_JPRB &
+  &, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  41, :) = (/ &
+  &  0.832042E+00_JPRB, 0.792332E+00_JPRB, 0.753564E+00_JPRB, 0.715757E+00_JPRB &
+  &, 0.678923E+00_JPRB, 0.643078E+00_JPRB, 0.608234E+00_JPRB &
+  &, 0.574404E+00_JPRB, 0.541601E+00_JPRB, 0.509834E+00_JPRB, 0.479115E+00_JPRB &
+  &, 0.449451E+00_JPRB, 0.420849E+00_JPRB, 0.393318E+00_JPRB &
+  &, 0.366863E+00_JPRB, 0.341484E+00_JPRB, 0.317185E+00_JPRB, 0.293966E+00_JPRB &
+  &, 0.271822E+00_JPRB, 0.250754E+00_JPRB, 0.230752E+00_JPRB &
+  &, 0.211804E+00_JPRB, 0.193909E+00_JPRB, 0.177042E+00_JPRB, 0.161194E+00_JPRB &
+  &, 0.146345E+00_JPRB, 0.132466E+00_JPRB, 0.119544E+00_JPRB &
+  &, 0.107544E+00_JPRB, 0.964405E-01_JPRB, 0.861985E-01_JPRB, 0.767884E-01_JPRB &
+  &, 0.681713E-01_JPRB, 0.603067E-01_JPRB, 0.531618E-01_JPRB &
+  &, 0.466932E-01_JPRB, 0.408558E-01_JPRB, 0.356220E-01_JPRB, 0.309386E-01_JPRB &
+  &, 0.267657E-01_JPRB, 0.230673E-01_JPRB, 0.198017E-01_JPRB &
+  &, 0.169319E-01_JPRB, 0.144153E-01_JPRB, 0.122266E-01_JPRB, 0.103242E-01_JPRB &
+  &, 0.868545E-02_JPRB, 0.727157E-02_JPRB, 0.607713E-02_JPRB &
+  &, 0.504256E-02_JPRB, 0.416874E-02_JPRB, 0.344211E-02_JPRB, 0.281876E-02_JPRB &
+  &, 0.230773E-02_JPRB, 0.187403E-02_JPRB, 0.150911E-02_JPRB &
+  &, 0.121878E-02_JPRB, 0.977326E-03_JPRB, 0.788770E-03_JPRB, 0.624086E-03_JPRB &
+  &, 0.485311E-03_JPRB, 0.391917E-03_JPRB, 0.294004E-03_JPRB &
+  &, 0.227760E-03_JPRB, 0.176941E-03_JPRB, 0.142701E-03_JPRB, 0.106858E-03_JPRB &
+  &, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  42, :) = (/ &
+  &  0.833059E+00_JPRB, 0.793561E+00_JPRB, 0.754990E+00_JPRB, 0.717364E+00_JPRB &
+  &, 0.680694E+00_JPRB, 0.644998E+00_JPRB, 0.610288E+00_JPRB &
+  &, 0.576576E+00_JPRB, 0.543875E+00_JPRB, 0.512197E+00_JPRB, 0.481552E+00_JPRB &
+  &, 0.451947E+00_JPRB, 0.423392E+00_JPRB, 0.395894E+00_JPRB &
+  &, 0.369458E+00_JPRB, 0.344086E+00_JPRB, 0.319781E+00_JPRB, 0.296545E+00_JPRB &
+  &, 0.274375E+00_JPRB, 0.253267E+00_JPRB, 0.233216E+00_JPRB &
+  &, 0.214218E+00_JPRB, 0.196256E+00_JPRB, 0.179319E+00_JPRB, 0.163390E+00_JPRB &
+  &, 0.148455E+00_JPRB, 0.134489E+00_JPRB, 0.121475E+00_JPRB &
+  &, 0.109378E+00_JPRB, 0.981755E-01_JPRB, 0.878330E-01_JPRB, 0.783207E-01_JPRB &
+  &, 0.696040E-01_JPRB, 0.616384E-01_JPRB, 0.543955E-01_JPRB &
+  &, 0.478280E-01_JPRB, 0.419049E-01_JPRB, 0.365704E-01_JPRB, 0.318008E-01_JPRB &
+  &, 0.275469E-01_JPRB, 0.237734E-01_JPRB, 0.204391E-01_JPRB &
+  &, 0.174967E-01_JPRB, 0.149148E-01_JPRB, 0.126687E-01_JPRB, 0.107177E-01_JPRB &
+  &, 0.902758E-02_JPRB, 0.757205E-02_JPRB, 0.633367E-02_JPRB &
+  &, 0.526593E-02_JPRB, 0.437062E-02_JPRB, 0.360751E-02_JPRB, 0.295990E-02_JPRB &
+  &, 0.242334E-02_JPRB, 0.197758E-02_JPRB, 0.159997E-02_JPRB &
+  &, 0.129627E-02_JPRB, 0.104076E-02_JPRB, 0.837443E-03_JPRB, 0.657279E-03_JPRB &
+  &, 0.519262E-03_JPRB, 0.409276E-03_JPRB, 0.329505E-03_JPRB &
+  &, 0.245906E-03_JPRB, 0.195490E-03_JPRB, 0.142701E-03_JPRB, 0.106858E-03_JPRB &
+  &, 0.891668E-04_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART7',0,ZHOOK_HANDLE)
+
+XCW(  43, :) = (/ &
+  &  0.834056E+00_JPRB, 0.794767E+00_JPRB, 0.756390E+00_JPRB, 0.718941E+00_JPRB &
+  &, 0.682434E+00_JPRB, 0.646884E+00_JPRB, 0.612306E+00_JPRB &
+  &, 0.578711E+00_JPRB, 0.546112E+00_JPRB, 0.514522E+00_JPRB, 0.483950E+00_JPRB &
+  &, 0.454404E+00_JPRB, 0.425895E+00_JPRB, 0.398430E+00_JPRB &
+  &, 0.372013E+00_JPRB, 0.346650E+00_JPRB, 0.322342E+00_JPRB, 0.299091E+00_JPRB &
+  &, 0.276895E+00_JPRB, 0.255751E+00_JPRB, 0.235655E+00_JPRB &
+  &, 0.216602E+00_JPRB, 0.198576E+00_JPRB, 0.181568E+00_JPRB, 0.165568E+00_JPRB &
+  &, 0.150550E+00_JPRB, 0.136497E+00_JPRB, 0.123391E+00_JPRB &
+  &, 0.111200E+00_JPRB, 0.998984E-01_JPRB, 0.894592E-01_JPRB, 0.798488E-01_JPRB &
+  &, 0.710281E-01_JPRB, 0.629701E-01_JPRB, 0.556293E-01_JPRB &
+  &, 0.489627E-01_JPRB, 0.429444E-01_JPRB, 0.375287E-01_JPRB, 0.326731E-01_JPRB &
+  &, 0.283384E-01_JPRB, 0.244794E-01_JPRB, 0.210765E-01_JPRB &
+  &, 0.180615E-01_JPRB, 0.154256E-01_JPRB, 0.131224E-01_JPRB, 0.111112E-01_JPRB &
+  &, 0.938193E-02_JPRB, 0.788505E-02_JPRB, 0.659020E-02_JPRB &
+  &, 0.548931E-02_JPRB, 0.455905E-02_JPRB, 0.377291E-02_JPRB, 0.310105E-02_JPRB &
+  &, 0.253895E-02_JPRB, 0.208114E-02_JPRB, 0.169082E-02_JPRB &
+  &, 0.135826E-02_JPRB, 0.110419E-02_JPRB, 0.886116E-03_JPRB, 0.707070E-03_JPRB &
+  &, 0.553213E-03_JPRB, 0.443996E-03_JPRB, 0.347255E-03_JPRB &
+  &, 0.264053E-03_JPRB, 0.214039E-03_JPRB, 0.161658E-03_JPRB, 0.126229E-03_JPRB &
+  &, 0.891668E-04_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  44, :) = (/ &
+  &  0.835035E+00_JPRB, 0.795952E+00_JPRB, 0.757765E+00_JPRB, 0.720491E+00_JPRB &
+  &, 0.684143E+00_JPRB, 0.648739E+00_JPRB, 0.614290E+00_JPRB &
+  &, 0.580811E+00_JPRB, 0.548313E+00_JPRB, 0.516809E+00_JPRB, 0.486310E+00_JPRB &
+  &, 0.456824E+00_JPRB, 0.428361E+00_JPRB, 0.400930E+00_JPRB &
+  &, 0.374533E+00_JPRB, 0.349179E+00_JPRB, 0.324868E+00_JPRB, 0.301603E+00_JPRB &
+  &, 0.279382E+00_JPRB, 0.258203E+00_JPRB, 0.238067E+00_JPRB &
+  &, 0.218959E+00_JPRB, 0.200872E+00_JPRB, 0.183799E+00_JPRB, 0.167720E+00_JPRB &
+  &, 0.152623E+00_JPRB, 0.138490E+00_JPRB, 0.125291E+00_JPRB &
+  &, 0.113007E+00_JPRB, 0.101613E+00_JPRB, 0.910773E-01_JPRB, 0.813684E-01_JPRB &
+  &, 0.724521E-01_JPRB, 0.642929E-01_JPRB, 0.568585E-01_JPRB &
+  &, 0.500975E-01_JPRB, 0.439934E-01_JPRB, 0.384870E-01_JPRB, 0.335453E-01_JPRB &
+  &, 0.291299E-01_JPRB, 0.251960E-01_JPRB, 0.217139E-01_JPRB &
+  &, 0.186374E-01_JPRB, 0.159364E-01_JPRB, 0.135762E-01_JPRB, 0.115166E-01_JPRB &
+  &, 0.973628E-02_JPRB, 0.818552E-02_JPRB, 0.685957E-02_JPRB &
+  &, 0.572583E-02_JPRB, 0.476093E-02_JPRB, 0.393831E-02_JPRB, 0.325631E-02_JPRB &
+  &, 0.266901E-02_JPRB, 0.218470E-02_JPRB, 0.178168E-02_JPRB &
+  &, 0.143574E-02_JPRB, 0.116762E-02_JPRB, 0.934789E-03_JPRB, 0.740264E-03_JPRB &
+  &, 0.587163E-03_JPRB, 0.461356E-03_JPRB, 0.365005E-03_JPRB &
+  &, 0.282199E-03_JPRB, 0.232587E-03_JPRB, 0.180615E-03_JPRB, 0.126229E-03_JPRB &
+  &, 0.108959E-03_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  45, :) = (/ &
+  &  0.835997E+00_JPRB, 0.797115E+00_JPRB, 0.759115E+00_JPRB, 0.722014E+00_JPRB &
+  &, 0.685824E+00_JPRB, 0.650562E+00_JPRB, 0.616241E+00_JPRB &
+  &, 0.582876E+00_JPRB, 0.550479E+00_JPRB, 0.519061E+00_JPRB, 0.488634E+00_JPRB &
+  &, 0.459208E+00_JPRB, 0.430792E+00_JPRB, 0.403393E+00_JPRB &
+  &, 0.377019E+00_JPRB, 0.351673E+00_JPRB, 0.327361E+00_JPRB, 0.304083E+00_JPRB &
+  &, 0.281840E+00_JPRB, 0.260630E+00_JPRB, 0.240450E+00_JPRB &
+  &, 0.221290E+00_JPRB, 0.203147E+00_JPRB, 0.186007E+00_JPRB, 0.169859E+00_JPRB &
+  &, 0.154682E+00_JPRB, 0.140464E+00_JPRB, 0.127180E+00_JPRB &
+  &, 0.114805E+00_JPRB, 0.103320E+00_JPRB, 0.926871E-01_JPRB, 0.828839E-01_JPRB &
+  &, 0.738719E-01_JPRB, 0.656201E-01_JPRB, 0.580878E-01_JPRB &
+  &, 0.512415E-01_JPRB, 0.450425E-01_JPRB, 0.394452E-01_JPRB, 0.344175E-01_JPRB &
+  &, 0.299213E-01_JPRB, 0.259232E-01_JPRB, 0.223621E-01_JPRB &
+  &, 0.192243E-01_JPRB, 0.164586E-01_JPRB, 0.140416E-01_JPRB, 0.119220E-01_JPRB &
+  &, 0.100906E-01_JPRB, 0.849852E-02_JPRB, 0.714176E-02_JPRB &
+  &, 0.596234E-02_JPRB, 0.496281E-02_JPRB, 0.411750E-02_JPRB, 0.339745E-02_JPRB &
+  &, 0.279907E-02_JPRB, 0.228825E-02_JPRB, 0.187253E-02_JPRB &
+  &, 0.151323E-02_JPRB, 0.123105E-02_JPRB, 0.983462E-03_JPRB, 0.790054E-03_JPRB &
+  &, 0.621114E-03_JPRB, 0.496076E-03_JPRB, 0.400506E-03_JPRB &
+  &, 0.300346E-03_JPRB, 0.232587E-03_JPRB, 0.180615E-03_JPRB, 0.145600E-03_JPRB &
+  &, 0.108959E-03_JPRB, 0.908716E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  46, :) = (/ &
+  &  0.836941E+00_JPRB, 0.798259E+00_JPRB, 0.760443E+00_JPRB, 0.723511E+00_JPRB &
+  &, 0.687477E+00_JPRB, 0.652355E+00_JPRB, 0.618162E+00_JPRB &
+  &, 0.584909E+00_JPRB, 0.552610E+00_JPRB, 0.521278E+00_JPRB, 0.490923E+00_JPRB &
+  &, 0.461556E+00_JPRB, 0.433187E+00_JPRB, 0.405822E+00_JPRB &
+  &, 0.379470E+00_JPRB, 0.354135E+00_JPRB, 0.329823E+00_JPRB, 0.306534E+00_JPRB &
+  &, 0.284269E+00_JPRB, 0.263029E+00_JPRB, 0.242807E+00_JPRB &
+  &, 0.223601E+00_JPRB, 0.205399E+00_JPRB, 0.188197E+00_JPRB, 0.171976E+00_JPRB &
+  &, 0.156726E+00_JPRB, 0.142424E+00_JPRB, 0.129054E+00_JPRB &
+  &, 0.116596E+00_JPRB, 0.105015E+00_JPRB, 0.942929E-01_JPRB, 0.843909E-01_JPRB &
+  &, 0.752873E-01_JPRB, 0.669385E-01_JPRB, 0.593170E-01_JPRB &
+  &, 0.523763E-01_JPRB, 0.460820E-01_JPRB, 0.404035E-01_JPRB, 0.352997E-01_JPRB &
+  &, 0.307231E-01_JPRB, 0.266398E-01_JPRB, 0.230211E-01_JPRB &
+  &, 0.198113E-01_JPRB, 0.169808E-01_JPRB, 0.144953E-01_JPRB, 0.123393E-01_JPRB &
+  &, 0.104450E-01_JPRB, 0.882404E-02_JPRB, 0.741113E-02_JPRB &
+  &, 0.621200E-02_JPRB, 0.517815E-02_JPRB, 0.429669E-02_JPRB, 0.355271E-02_JPRB &
+  &, 0.292913E-02_JPRB, 0.240661E-02_JPRB, 0.196339E-02_JPRB &
+  &, 0.159071E-02_JPRB, 0.129448E-02_JPRB, 0.103214E-02_JPRB, 0.839845E-03_JPRB &
+  &, 0.672040E-03_JPRB, 0.530795E-03_JPRB, 0.418256E-03_JPRB &
+  &, 0.336639E-03_JPRB, 0.251136E-03_JPRB, 0.199572E-03_JPRB, 0.145600E-03_JPRB &
+  &, 0.108959E-03_JPRB, 0.908716E-04_JPRB, 0.719501E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  47, :) = (/ &
+  &  0.837869E+00_JPRB, 0.799384E+00_JPRB, 0.761750E+00_JPRB, 0.724984E+00_JPRB &
+  &, 0.689103E+00_JPRB, 0.654120E+00_JPRB, 0.620052E+00_JPRB &
+  &, 0.586910E+00_JPRB, 0.554710E+00_JPRB, 0.523463E+00_JPRB, 0.493180E+00_JPRB &
+  &, 0.463872E+00_JPRB, 0.435549E+00_JPRB, 0.408219E+00_JPRB &
+  &, 0.381890E+00_JPRB, 0.356566E+00_JPRB, 0.332253E+00_JPRB, 0.308955E+00_JPRB &
+  &, 0.286669E+00_JPRB, 0.265398E+00_JPRB, 0.245139E+00_JPRB &
+  &, 0.225885E+00_JPRB, 0.207631E+00_JPRB, 0.190366E+00_JPRB, 0.174076E+00_JPRB &
+  &, 0.158752E+00_JPRB, 0.144372E+00_JPRB, 0.130920E+00_JPRB &
+  &, 0.118371E+00_JPRB, 0.106702E+00_JPRB, 0.958904E-01_JPRB, 0.858979E-01_JPRB &
+  &, 0.766985E-01_JPRB, 0.682569E-01_JPRB, 0.605417E-01_JPRB &
+  &, 0.535111E-01_JPRB, 0.471310E-01_JPRB, 0.413715E-01_JPRB, 0.361820E-01_JPRB &
+  &, 0.315248E-01_JPRB, 0.273669E-01_JPRB, 0.236693E-01_JPRB &
+  &, 0.203982E-01_JPRB, 0.175030E-01_JPRB, 0.149724E-01_JPRB, 0.127447E-01_JPRB &
+  &, 0.108115E-01_JPRB, 0.913704E-02_JPRB, 0.769332E-02_JPRB &
+  &, 0.644852E-02_JPRB, 0.538003E-02_JPRB, 0.447587E-02_JPRB, 0.370797E-02_JPRB &
+  &, 0.305919E-02_JPRB, 0.251016E-02_JPRB, 0.205424E-02_JPRB &
+  &, 0.166820E-02_JPRB, 0.135791E-02_JPRB, 0.109703E-02_JPRB, 0.889636E-03_JPRB &
+  &, 0.705991E-03_JPRB, 0.565515E-03_JPRB, 0.453756E-03_JPRB &
+  &, 0.354786E-03_JPRB, 0.269685E-03_JPRB, 0.218530E-03_JPRB, 0.164972E-03_JPRB &
+  &, 0.128750E-03_JPRB, 0.908716E-04_JPRB, 0.719501E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  48, :) = (/ &
+  &  0.838783E+00_JPRB, 0.800490E+00_JPRB, 0.763034E+00_JPRB, 0.726434E+00_JPRB &
+  &, 0.690703E+00_JPRB, 0.655858E+00_JPRB, 0.621913E+00_JPRB &
+  &, 0.588882E+00_JPRB, 0.556778E+00_JPRB, 0.525616E+00_JPRB, 0.495405E+00_JPRB &
+  &, 0.466155E+00_JPRB, 0.437879E+00_JPRB, 0.410584E+00_JPRB &
+  &, 0.384278E+00_JPRB, 0.358967E+00_JPRB, 0.334655E+00_JPRB, 0.311347E+00_JPRB &
+  &, 0.289043E+00_JPRB, 0.267743E+00_JPRB, 0.247447E+00_JPRB &
+  &, 0.228146E+00_JPRB, 0.209839E+00_JPRB, 0.192514E+00_JPRB, 0.176157E+00_JPRB &
+  &, 0.160763E+00_JPRB, 0.146306E+00_JPRB, 0.132771E+00_JPRB &
+  &, 0.120139E+00_JPRB, 0.108385E+00_JPRB, 0.974797E-01_JPRB, 0.873965E-01_JPRB &
+  &, 0.781053E-01_JPRB, 0.695753E-01_JPRB, 0.617664E-01_JPRB &
+  &, 0.546458E-01_JPRB, 0.481896E-01_JPRB, 0.423395E-01_JPRB, 0.370642E-01_JPRB &
+  &, 0.323369E-01_JPRB, 0.281046E-01_JPRB, 0.243283E-01_JPRB &
+  &, 0.209962E-01_JPRB, 0.180365E-01_JPRB, 0.154494E-01_JPRB, 0.131740E-01_JPRB &
+  &, 0.111903E-01_JPRB, 0.946256E-02_JPRB, 0.797551E-02_JPRB &
+  &, 0.669818E-02_JPRB, 0.560883E-02_JPRB, 0.466884E-02_JPRB, 0.387734E-02_JPRB &
+  &, 0.320370E-02_JPRB, 0.262851E-02_JPRB, 0.216024E-02_JPRB &
+  &, 0.176118E-02_JPRB, 0.142134E-02_JPRB, 0.116193E-02_JPRB, 0.922830E-03_JPRB &
+  &, 0.739942E-03_JPRB, 0.600235E-03_JPRB, 0.471507E-03_JPRB &
+  &, 0.372933E-03_JPRB, 0.288234E-03_JPRB, 0.237487E-03_JPRB, 0.184343E-03_JPRB &
+  &, 0.128750E-03_JPRB, 0.111089E-03_JPRB, 0.719501E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  49, :) = (/ &
+  &  0.839682E+00_JPRB, 0.801578E+00_JPRB, 0.764299E+00_JPRB, 0.727861E+00_JPRB &
+  &, 0.692279E+00_JPRB, 0.657570E+00_JPRB, 0.623747E+00_JPRB &
+  &, 0.590825E+00_JPRB, 0.558818E+00_JPRB, 0.527739E+00_JPRB, 0.497598E+00_JPRB &
+  &, 0.468408E+00_JPRB, 0.440179E+00_JPRB, 0.412918E+00_JPRB &
+  &, 0.386636E+00_JPRB, 0.361338E+00_JPRB, 0.337029E+00_JPRB, 0.313712E+00_JPRB &
+  &, 0.291391E+00_JPRB, 0.270065E+00_JPRB, 0.249730E+00_JPRB &
+  &, 0.230388E+00_JPRB, 0.212030E+00_JPRB, 0.194645E+00_JPRB, 0.178225E+00_JPRB &
+  &, 0.162757E+00_JPRB, 0.148228E+00_JPRB, 0.134614E+00_JPRB &
+  &, 0.121898E+00_JPRB, 0.110056E+00_JPRB, 0.990608E-01_JPRB, 0.888909E-01_JPRB &
+  &, 0.795121E-01_JPRB, 0.708893E-01_JPRB, 0.629911E-01_JPRB &
+  &, 0.557899E-01_JPRB, 0.492386E-01_JPRB, 0.433076E-01_JPRB, 0.379465E-01_JPRB &
+  &, 0.331386E-01_JPRB, 0.288317E-01_JPRB, 0.249981E-01_JPRB &
+  &, 0.215943E-01_JPRB, 0.185814E-01_JPRB, 0.159264E-01_JPRB, 0.135913E-01_JPRB &
+  &, 0.115691E-01_JPRB, 0.980060E-02_JPRB, 0.827053E-02_JPRB &
+  &, 0.694783E-02_JPRB, 0.582417E-02_JPRB, 0.486181E-02_JPRB, 0.403260E-02_JPRB &
+  &, 0.333376E-02_JPRB, 0.274687E-02_JPRB, 0.225110E-02_JPRB &
+  &, 0.183867E-02_JPRB, 0.150063E-02_JPRB, 0.121060E-02_JPRB, 0.989217E-03_JPRB &
+  &, 0.790868E-03_JPRB, 0.634954E-03_JPRB, 0.507007E-03_JPRB &
+  &, 0.391079E-03_JPRB, 0.306783E-03_JPRB, 0.237487E-03_JPRB, 0.184343E-03_JPRB &
+  &, 0.148542E-03_JPRB, 0.111089E-03_JPRB, 0.926001E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART8',0,ZHOOK_HANDLE)
+
+XCW(  50, :) = (/ &
+  &  0.840566E+00_JPRB, 0.802650E+00_JPRB, 0.765543E+00_JPRB, 0.729266E+00_JPRB &
+  &, 0.693831E+00_JPRB, 0.659256E+00_JPRB, 0.625554E+00_JPRB &
+  &, 0.592741E+00_JPRB, 0.560829E+00_JPRB, 0.529832E+00_JPRB, 0.499762E+00_JPRB &
+  &, 0.470631E+00_JPRB, 0.442448E+00_JPRB, 0.415223E+00_JPRB &
+  &, 0.388966E+00_JPRB, 0.363680E+00_JPRB, 0.339374E+00_JPRB, 0.316052E+00_JPRB &
+  &, 0.293714E+00_JPRB, 0.272362E+00_JPRB, 0.251993E+00_JPRB &
+  &, 0.232609E+00_JPRB, 0.214200E+00_JPRB, 0.196758E+00_JPRB, 0.180275E+00_JPRB &
+  &, 0.164739E+00_JPRB, 0.150135E+00_JPRB, 0.136442E+00_JPRB &
+  &, 0.123646E+00_JPRB, 0.111719E+00_JPRB, 0.100638E+00_JPRB, 0.903811E-01_JPRB &
+  &, 0.809103E-01_JPRB, 0.721989E-01_JPRB, 0.642158E-01_JPRB &
+  &, 0.569246E-01_JPRB, 0.502877E-01_JPRB, 0.442756E-01_JPRB, 0.388387E-01_JPRB &
+  &, 0.339506E-01_JPRB, 0.295693E-01_JPRB, 0.256679E-01_JPRB &
+  &, 0.221923E-01_JPRB, 0.191149E-01_JPRB, 0.164035E-01_JPRB, 0.140206E-01_JPRB &
+  &, 0.119479E-01_JPRB, 0.101386E-01_JPRB, 0.856555E-02_JPRB &
+  &, 0.721063E-02_JPRB, 0.603951E-02_JPRB, 0.505478E-02_JPRB, 0.420197E-02_JPRB &
+  &, 0.347827E-02_JPRB, 0.286522E-02_JPRB, 0.235710E-02_JPRB &
+  &, 0.193165E-02_JPRB, 0.157992E-02_JPRB, 0.127550E-02_JPRB, 0.103901E-02_JPRB &
+  &, 0.824819E-03_JPRB, 0.669674E-03_JPRB, 0.524757E-03_JPRB &
+  &, 0.427372E-03_JPRB, 0.325332E-03_JPRB, 0.256444E-03_JPRB, 0.203715E-03_JPRB &
+  &, 0.148542E-03_JPRB, 0.111089E-03_JPRB, 0.926001E-04_JPRB &
+  &, 0.732644E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  51, :) = (/ &
+  &  0.841436E+00_JPRB, 0.803705E+00_JPRB, 0.766770E+00_JPRB, 0.730650E+00_JPRB &
+  &, 0.695361E+00_JPRB, 0.660918E+00_JPRB, 0.627336E+00_JPRB &
+  &, 0.594629E+00_JPRB, 0.562812E+00_JPRB, 0.531898E+00_JPRB, 0.501898E+00_JPRB &
+  &, 0.472824E+00_JPRB, 0.444689E+00_JPRB, 0.417501E+00_JPRB &
+  &, 0.391267E+00_JPRB, 0.365996E+00_JPRB, 0.341695E+00_JPRB, 0.318365E+00_JPRB &
+  &, 0.296012E+00_JPRB, 0.274633E+00_JPRB, 0.254234E+00_JPRB &
+  &, 0.234807E+00_JPRB, 0.216350E+00_JPRB, 0.198854E+00_JPRB, 0.182310E+00_JPRB &
+  &, 0.166707E+00_JPRB, 0.152028E+00_JPRB, 0.138263E+00_JPRB &
+  &, 0.125386E+00_JPRB, 0.113374E+00_JPRB, 0.102211E+00_JPRB, 0.918671E-01_JPRB &
+  &, 0.823084E-01_JPRB, 0.735128E-01_JPRB, 0.654405E-01_JPRB &
+  &, 0.580594E-01_JPRB, 0.513367E-01_JPRB, 0.452436E-01_JPRB, 0.397310E-01_JPRB &
+  &, 0.347729E-01_JPRB, 0.303176E-01_JPRB, 0.263377E-01_JPRB &
+  &, 0.228014E-01_JPRB, 0.196598E-01_JPRB, 0.168921E-01_JPRB, 0.144618E-01_JPRB &
+  &, 0.123267E-01_JPRB, 0.104767E-01_JPRB, 0.886057E-02_JPRB &
+  &, 0.747343E-02_JPRB, 0.626830E-02_JPRB, 0.524775E-02_JPRB, 0.437134E-02_JPRB &
+  &, 0.362278E-02_JPRB, 0.299836E-02_JPRB, 0.246309E-02_JPRB &
+  &, 0.202464E-02_JPRB, 0.164335E-02_JPRB, 0.134040E-02_JPRB, 0.108880E-02_JPRB &
+  &, 0.875745E-03_JPRB, 0.704394E-03_JPRB, 0.560258E-03_JPRB &
+  &, 0.445519E-03_JPRB, 0.343881E-03_JPRB, 0.275401E-03_JPRB, 0.223086E-03_JPRB &
+  &, 0.168334E-03_JPRB, 0.131307E-03_JPRB, 0.926001E-04_JPRB &
+  &, 0.732644E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  52, :) = (/ &
+  &  0.842294E+00_JPRB, 0.804744E+00_JPRB, 0.767978E+00_JPRB, 0.732014E+00_JPRB &
+  &, 0.696869E+00_JPRB, 0.662556E+00_JPRB, 0.629092E+00_JPRB &
+  &, 0.596491E+00_JPRB, 0.564768E+00_JPRB, 0.533936E+00_JPRB, 0.504006E+00_JPRB &
+  &, 0.474992E+00_JPRB, 0.446903E+00_JPRB, 0.419750E+00_JPRB &
+  &, 0.393541E+00_JPRB, 0.368285E+00_JPRB, 0.343988E+00_JPRB, 0.320654E+00_JPRB &
+  &, 0.298286E+00_JPRB, 0.276886E+00_JPRB, 0.256455E+00_JPRB &
+  &, 0.236989E+00_JPRB, 0.218484E+00_JPRB, 0.200933E+00_JPRB, 0.184328E+00_JPRB &
+  &, 0.168660E+00_JPRB, 0.153913E+00_JPRB, 0.140072E+00_JPRB &
+  &, 0.127114E+00_JPRB, 0.115025E+00_JPRB, 0.103775E+00_JPRB, 0.933447E-01_JPRB &
+  &, 0.837023E-01_JPRB, 0.748180E-01_JPRB, 0.666606E-01_JPRB &
+  &, 0.591941E-01_JPRB, 0.523953E-01_JPRB, 0.462214E-01_JPRB, 0.406233E-01_JPRB &
+  &, 0.355850E-01_JPRB, 0.310658E-01_JPRB, 0.270183E-01_JPRB &
+  &, 0.234105E-01_JPRB, 0.202160E-01_JPRB, 0.173808E-01_JPRB, 0.149030E-01_JPRB &
+  &, 0.127177E-01_JPRB, 0.108147E-01_JPRB, 0.916841E-02_JPRB &
+  &, 0.773622E-02_JPRB, 0.651056E-02_JPRB, 0.545451E-02_JPRB, 0.454071E-02_JPRB &
+  &, 0.378175E-02_JPRB, 0.313151E-02_JPRB, 0.256909E-02_JPRB &
+  &, 0.211762E-02_JPRB, 0.172264E-02_JPRB, 0.140530E-02_JPRB, 0.113859E-02_JPRB &
+  &, 0.926671E-03_JPRB, 0.739113E-03_JPRB, 0.595758E-03_JPRB &
+  &, 0.463666E-03_JPRB, 0.380979E-03_JPRB, 0.294359E-03_JPRB, 0.223086E-03_JPRB &
+  &, 0.188125E-03_JPRB, 0.131307E-03_JPRB, 0.113250E-03_JPRB &
+  &, 0.732644E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  53, :) = (/ &
+  &  0.843139E+00_JPRB, 0.805768E+00_JPRB, 0.769168E+00_JPRB, 0.733359E+00_JPRB &
+  &, 0.698355E+00_JPRB, 0.664172E+00_JPRB, 0.630825E+00_JPRB &
+  &, 0.598329E+00_JPRB, 0.566699E+00_JPRB, 0.535948E+00_JPRB, 0.506088E+00_JPRB &
+  &, 0.477132E+00_JPRB, 0.449089E+00_JPRB, 0.421973E+00_JPRB &
+  &, 0.395791E+00_JPRB, 0.370550E+00_JPRB, 0.346259E+00_JPRB, 0.322919E+00_JPRB &
+  &, 0.300538E+00_JPRB, 0.279116E+00_JPRB, 0.258654E+00_JPRB &
+  &, 0.239151E+00_JPRB, 0.220600E+00_JPRB, 0.202998E+00_JPRB, 0.186335E+00_JPRB &
+  &, 0.170603E+00_JPRB, 0.155787E+00_JPRB, 0.141869E+00_JPRB &
+  &, 0.128835E+00_JPRB, 0.116667E+00_JPRB, 0.105336E+00_JPRB, 0.948222E-01_JPRB &
+  &, 0.850962E-01_JPRB, 0.761275E-01_JPRB, 0.678853E-01_JPRB &
+  &, 0.603382E-01_JPRB, 0.534539E-01_JPRB, 0.471895E-01_JPRB, 0.415256E-01_JPRB &
+  &, 0.364073E-01_JPRB, 0.318140E-01_JPRB, 0.276989E-01_JPRB &
+  &, 0.240307E-01_JPRB, 0.207609E-01_JPRB, 0.178811E-01_JPRB, 0.153441E-01_JPRB &
+  &, 0.131087E-01_JPRB, 0.111653E-01_JPRB, 0.947626E-02_JPRB &
+  &, 0.801216E-02_JPRB, 0.673936E-02_JPRB, 0.564748E-02_JPRB, 0.472420E-02_JPRB &
+  &, 0.392626E-02_JPRB, 0.324986E-02_JPRB, 0.269023E-02_JPRB &
+  &, 0.221060E-02_JPRB, 0.180193E-02_JPRB, 0.147019E-02_JPRB, 0.120498E-02_JPRB &
+  &, 0.960622E-03_JPRB, 0.773833E-03_JPRB, 0.631259E-03_JPRB &
+  &, 0.499959E-03_JPRB, 0.399528E-03_JPRB, 0.313316E-03_JPRB, 0.242458E-03_JPRB &
+  &, 0.188125E-03_JPRB, 0.151525E-03_JPRB, 0.113250E-03_JPRB &
+  &, 0.943525E-04_JPRB, 0.530643E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  54, :) = (/ &
+  &  0.843971E+00_JPRB, 0.806777E+00_JPRB, 0.770342E+00_JPRB, 0.734685E+00_JPRB &
+  &, 0.699821E+00_JPRB, 0.665766E+00_JPRB, 0.632535E+00_JPRB &
+  &, 0.600143E+00_JPRB, 0.568605E+00_JPRB, 0.537934E+00_JPRB, 0.508144E+00_JPRB &
+  &, 0.479245E+00_JPRB, 0.451251E+00_JPRB, 0.424172E+00_JPRB &
+  &, 0.398015E+00_JPRB, 0.372790E+00_JPRB, 0.348504E+00_JPRB, 0.325162E+00_JPRB &
+  &, 0.302769E+00_JPRB, 0.281324E+00_JPRB, 0.260832E+00_JPRB &
+  &, 0.241292E+00_JPRB, 0.222699E+00_JPRB, 0.205046E+00_JPRB, 0.188324E+00_JPRB &
+  &, 0.172530E+00_JPRB, 0.157645E+00_JPRB, 0.143659E+00_JPRB &
+  &, 0.130551E+00_JPRB, 0.118302E+00_JPRB, 0.106892E+00_JPRB, 0.962956E-01_JPRB &
+  &, 0.864814E-01_JPRB, 0.774282E-01_JPRB, 0.691055E-01_JPRB &
+  &, 0.614730E-01_JPRB, 0.545029E-01_JPRB, 0.481673E-01_JPRB, 0.424178E-01_JPRB &
+  &, 0.372296E-01_JPRB, 0.325622E-01_JPRB, 0.283796E-01_JPRB &
+  &, 0.246398E-01_JPRB, 0.213285E-01_JPRB, 0.183814E-01_JPRB, 0.157853E-01_JPRB &
+  &, 0.135119E-01_JPRB, 0.115158E-01_JPRB, 0.978411E-02_JPRB &
+  &, 0.827496E-02_JPRB, 0.698162E-02_JPRB, 0.585423E-02_JPRB, 0.490769E-02_JPRB &
+  &, 0.408522E-02_JPRB, 0.338300E-02_JPRB, 0.279623E-02_JPRB &
+  &, 0.230359E-02_JPRB, 0.189708E-02_JPRB, 0.155132E-02_JPRB, 0.125477E-02_JPRB &
+  &, 0.101155E-02_JPRB, 0.825913E-03_JPRB, 0.666759E-03_JPRB &
+  &, 0.518106E-03_JPRB, 0.418077E-03_JPRB, 0.332273E-03_JPRB, 0.261829E-03_JPRB &
+  &, 0.207917E-03_JPRB, 0.151525E-03_JPRB, 0.113250E-03_JPRB &
+  &, 0.943525E-04_JPRB, 0.745965E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  55, :) = (/ &
+  &  0.844791E+00_JPRB, 0.807772E+00_JPRB, 0.771500E+00_JPRB, 0.735993E+00_JPRB &
+  &, 0.701267E+00_JPRB, 0.667338E+00_JPRB, 0.634222E+00_JPRB &
+  &, 0.601934E+00_JPRB, 0.570487E+00_JPRB, 0.539897E+00_JPRB, 0.510175E+00_JPRB &
+  &, 0.481335E+00_JPRB, 0.453387E+00_JPRB, 0.426345E+00_JPRB &
+  &, 0.400214E+00_JPRB, 0.375006E+00_JPRB, 0.350728E+00_JPRB, 0.327383E+00_JPRB &
+  &, 0.304977E+00_JPRB, 0.283513E+00_JPRB, 0.262995E+00_JPRB &
+  &, 0.243418E+00_JPRB, 0.224782E+00_JPRB, 0.207076E+00_JPRB, 0.190303E+00_JPRB &
+  &, 0.174447E+00_JPRB, 0.159497E+00_JPRB, 0.145437E+00_JPRB &
+  &, 0.132256E+00_JPRB, 0.119929E+00_JPRB, 0.108441E+00_JPRB, 0.977605E-01_JPRB &
+  &, 0.878666E-01_JPRB, 0.787333E-01_JPRB, 0.703257E-01_JPRB &
+  &, 0.626170E-01_JPRB, 0.555615E-01_JPRB, 0.491451E-01_JPRB, 0.433201E-01_JPRB &
+  &, 0.380622E-01_JPRB, 0.333209E-01_JPRB, 0.290710E-01_JPRB &
+  &, 0.252710E-01_JPRB, 0.218847E-01_JPRB, 0.188933E-01_JPRB, 0.162384E-01_JPRB &
+  &, 0.139152E-01_JPRB, 0.118789E-01_JPRB, 0.101048E-01_JPRB &
+  &, 0.855089E-02_JPRB, 0.722387E-02_JPRB, 0.607477E-02_JPRB, 0.509117E-02_JPRB &
+  &, 0.424418E-02_JPRB, 0.353094E-02_JPRB, 0.291737E-02_JPRB &
+  &, 0.241207E-02_JPRB, 0.197637E-02_JPRB, 0.161621E-02_JPRB, 0.132116E-02_JPRB &
+  &, 0.106247E-02_JPRB, 0.860632E-03_JPRB, 0.702260E-03_JPRB &
+  &, 0.554399E-03_JPRB, 0.436626E-03_JPRB, 0.351230E-03_JPRB, 0.281201E-03_JPRB &
+  &, 0.207917E-03_JPRB, 0.171743E-03_JPRB, 0.133900E-03_JPRB &
+  &, 0.943525E-04_JPRB, 0.745965E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  56, :) = (/ &
+  &  0.845601E+00_JPRB, 0.808753E+00_JPRB, 0.772642E+00_JPRB, 0.737283E+00_JPRB &
+  &, 0.702694E+00_JPRB, 0.668890E+00_JPRB, 0.635888E+00_JPRB &
+  &, 0.603701E+00_JPRB, 0.572346E+00_JPRB, 0.541835E+00_JPRB, 0.512182E+00_JPRB &
+  &, 0.483400E+00_JPRB, 0.455500E+00_JPRB, 0.428494E+00_JPRB &
+  &, 0.402390E+00_JPRB, 0.377199E+00_JPRB, 0.352927E+00_JPRB, 0.329581E+00_JPRB &
+  &, 0.307166E+00_JPRB, 0.285683E+00_JPRB, 0.265139E+00_JPRB &
+  &, 0.245526E+00_JPRB, 0.226847E+00_JPRB, 0.209096E+00_JPRB, 0.192268E+00_JPRB &
+  &, 0.176350E+00_JPRB, 0.161333E+00_JPRB, 0.147208E+00_JPRB &
+  &, 0.133953E+00_JPRB, 0.121552E+00_JPRB, 0.109985E+00_JPRB, 0.992254E-01_JPRB &
+  &, 0.892519E-01_JPRB, 0.800340E-01_JPRB, 0.715458E-01_JPRB &
+  &, 0.637518E-01_JPRB, 0.566201E-01_JPRB, 0.501229E-01_JPRB, 0.442324E-01_JPRB &
+  &, 0.388947E-01_JPRB, 0.340796E-01_JPRB, 0.297624E-01_JPRB &
+  &, 0.259023E-01_JPRB, 0.224523E-01_JPRB, 0.194052E-01_JPRB, 0.167035E-01_JPRB &
+  &, 0.143184E-01_JPRB, 0.122420E-01_JPRB, 0.104255E-01_JPRB &
+  &, 0.883997E-02_JPRB, 0.746613E-02_JPRB, 0.628152E-02_JPRB, 0.527466E-02_JPRB &
+  &, 0.440315E-02_JPRB, 0.366408E-02_JPRB, 0.303851E-02_JPRB &
+  &, 0.250505E-02_JPRB, 0.205566E-02_JPRB, 0.169733E-02_JPRB, 0.137095E-02_JPRB &
+  &, 0.111340E-02_JPRB, 0.912712E-03_JPRB, 0.737760E-03_JPRB &
+  &, 0.590692E-03_JPRB, 0.473724E-03_JPRB, 0.370188E-03_JPRB, 0.300572E-03_JPRB &
+  &, 0.227709E-03_JPRB, 0.171743E-03_JPRB, 0.133900E-03_JPRB &
+  &, 0.115441E-03_JPRB, 0.745965E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART9',0,ZHOOK_HANDLE)
+
+XCW(  57, :) = (/ &
+  &  0.846399E+00_JPRB, 0.809722E+00_JPRB, 0.773768E+00_JPRB, 0.738557E+00_JPRB &
+  &, 0.704103E+00_JPRB, 0.670423E+00_JPRB, 0.637533E+00_JPRB &
+  &, 0.605448E+00_JPRB, 0.574182E+00_JPRB, 0.543750E+00_JPRB, 0.514167E+00_JPRB &
+  &, 0.485441E+00_JPRB, 0.457590E+00_JPRB, 0.430620E+00_JPRB &
+  &, 0.404544E+00_JPRB, 0.379370E+00_JPRB, 0.355107E+00_JPRB, 0.331759E+00_JPRB &
+  &, 0.309334E+00_JPRB, 0.287834E+00_JPRB, 0.267262E+00_JPRB &
+  &, 0.247615E+00_JPRB, 0.228896E+00_JPRB, 0.211098E+00_JPRB, 0.194218E+00_JPRB &
+  &, 0.178241E+00_JPRB, 0.163163E+00_JPRB, 0.148971E+00_JPRB &
+  &, 0.135642E+00_JPRB, 0.123167E+00_JPRB, 0.111525E+00_JPRB, 0.100686E+00_JPRB &
+  &, 0.906328E-01_JPRB, 0.813347E-01_JPRB, 0.727660E-01_JPRB &
+  &, 0.648865E-01_JPRB, 0.576882E-01_JPRB, 0.511105E-01_JPRB, 0.451347E-01_JPRB &
+  &, 0.397273E-01_JPRB, 0.348384E-01_JPRB, 0.304538E-01_JPRB &
+  &, 0.265335E-01_JPRB, 0.230312E-01_JPRB, 0.199172E-01_JPRB, 0.171566E-01_JPRB &
+  &, 0.147338E-01_JPRB, 0.126051E-01_JPRB, 0.107461E-01_JPRB &
+  &, 0.912904E-02_JPRB, 0.772185E-02_JPRB, 0.650206E-02_JPRB, 0.545815E-02_JPRB &
+  &, 0.456211E-02_JPRB, 0.381202E-02_JPRB, 0.315965E-02_JPRB &
+  &, 0.261353E-02_JPRB, 0.215080E-02_JPRB, 0.176223E-02_JPRB, 0.143733E-02_JPRB &
+  &, 0.118130E-02_JPRB, 0.947432E-03_JPRB, 0.773261E-03_JPRB &
+  &, 0.608839E-03_JPRB, 0.492273E-03_JPRB, 0.389145E-03_JPRB, 0.300572E-03_JPRB &
+  &, 0.247501E-03_JPRB, 0.191961E-03_JPRB, 0.154550E-03_JPRB &
+  &, 0.115441E-03_JPRB, 0.961287E-04_JPRB, 0.539644E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  58, :) = (/ &
+  &  0.847186E+00_JPRB, 0.810677E+00_JPRB, 0.774880E+00_JPRB, 0.739814E+00_JPRB &
+  &, 0.705494E+00_JPRB, 0.671937E+00_JPRB, 0.639158E+00_JPRB &
+  &, 0.607173E+00_JPRB, 0.575997E+00_JPRB, 0.545644E+00_JPRB, 0.516128E+00_JPRB &
+  &, 0.487460E+00_JPRB, 0.459656E+00_JPRB, 0.432723E+00_JPRB &
+  &, 0.406675E+00_JPRB, 0.381520E+00_JPRB, 0.357265E+00_JPRB, 0.333918E+00_JPRB &
+  &, 0.311483E+00_JPRB, 0.289966E+00_JPRB, 0.269370E+00_JPRB &
+  &, 0.249691E+00_JPRB, 0.230934E+00_JPRB, 0.213090E+00_JPRB, 0.196154E+00_JPRB &
+  &, 0.180122E+00_JPRB, 0.164984E+00_JPRB, 0.150723E+00_JPRB &
+  &, 0.137327E+00_JPRB, 0.124777E+00_JPRB, 0.113057E+00_JPRB, 0.102143E+00_JPRB &
+  &, 0.920094E-01_JPRB, 0.826310E-01_JPRB, 0.739816E-01_JPRB &
+  &, 0.660306E-01_JPRB, 0.587467E-01_JPRB, 0.520981E-01_JPRB, 0.460471E-01_JPRB &
+  &, 0.405599E-01_JPRB, 0.356077E-01_JPRB, 0.311560E-01_JPRB &
+  &, 0.271648E-01_JPRB, 0.235988E-01_JPRB, 0.204291E-01_JPRB, 0.176216E-01_JPRB &
+  &, 0.151493E-01_JPRB, 0.129807E-01_JPRB, 0.110668E-01_JPRB &
+  &, 0.941812E-02_JPRB, 0.797756E-02_JPRB, 0.672260E-02_JPRB, 0.565575E-02_JPRB &
+  &, 0.473552E-02_JPRB, 0.394517E-02_JPRB, 0.328079E-02_JPRB &
+  &, 0.272201E-02_JPRB, 0.224595E-02_JPRB, 0.184335E-02_JPRB, 0.150372E-02_JPRB &
+  &, 0.123223E-02_JPRB, 0.999511E-03_JPRB, 0.808761E-03_JPRB &
+  &, 0.645132E-03_JPRB, 0.510822E-03_JPRB, 0.408102E-03_JPRB, 0.319944E-03_JPRB &
+  &, 0.267292E-03_JPRB, 0.212179E-03_JPRB, 0.154550E-03_JPRB &
+  &, 0.115441E-03_JPRB, 0.961287E-04_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  59, :) = (/ &
+  &  0.847964E+00_JPRB, 0.811620E+00_JPRB, 0.775978E+00_JPRB, 0.741055E+00_JPRB &
+  &, 0.706868E+00_JPRB, 0.673432E+00_JPRB, 0.640764E+00_JPRB &
+  &, 0.608878E+00_JPRB, 0.577791E+00_JPRB, 0.547516E+00_JPRB, 0.518068E+00_JPRB &
+  &, 0.489458E+00_JPRB, 0.461701E+00_JPRB, 0.434806E+00_JPRB &
+  &, 0.408785E+00_JPRB, 0.383648E+00_JPRB, 0.359403E+00_JPRB, 0.336056E+00_JPRB &
+  &, 0.313613E+00_JPRB, 0.292082E+00_JPRB, 0.271458E+00_JPRB &
+  &, 0.251750E+00_JPRB, 0.232955E+00_JPRB, 0.215065E+00_JPRB, 0.198083E+00_JPRB &
+  &, 0.181995E+00_JPRB, 0.166791E+00_JPRB, 0.152467E+00_JPRB &
+  &, 0.139001E+00_JPRB, 0.126380E+00_JPRB, 0.114584E+00_JPRB, 0.103595E+00_JPRB &
+  &, 0.933860E-01_JPRB, 0.839273E-01_JPRB, 0.752017E-01_JPRB &
+  &, 0.671654E-01_JPRB, 0.598053E-01_JPRB, 0.530759E-01_JPRB, 0.469594E-01_JPRB &
+  &, 0.414028E-01_JPRB, 0.363770E-01_JPRB, 0.318582E-01_JPRB &
+  &, 0.278071E-01_JPRB, 0.241778E-01_JPRB, 0.209527E-01_JPRB, 0.180986E-01_JPRB &
+  &, 0.155647E-01_JPRB, 0.133437E-01_JPRB, 0.114003E-01_JPRB &
+  &, 0.970720E-02_JPRB, 0.823328E-02_JPRB, 0.695692E-02_JPRB, 0.585335E-02_JPRB &
+  &, 0.490894E-02_JPRB, 0.409311E-02_JPRB, 0.341707E-02_JPRB &
+  &, 0.283049E-02_JPRB, 0.234110E-02_JPRB, 0.192448E-02_JPRB, 0.157011E-02_JPRB &
+  &, 0.128315E-02_JPRB, 0.105159E-02_JPRB, 0.844262E-03_JPRB &
+  &, 0.681425E-03_JPRB, 0.547920E-03_JPRB, 0.427059E-03_JPRB, 0.339316E-03_JPRB &
+  &, 0.267292E-03_JPRB, 0.212179E-03_JPRB, 0.175200E-03_JPRB &
+  &, 0.136529E-03_JPRB, 0.961287E-04_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  60, :) = (/ &
+  &  0.848730E+00_JPRB, 0.812552E+00_JPRB, 0.777062E+00_JPRB, 0.742282E+00_JPRB &
+  &, 0.708225E+00_JPRB, 0.674909E+00_JPRB, 0.642350E+00_JPRB &
+  &, 0.610563E+00_JPRB, 0.579565E+00_JPRB, 0.549368E+00_JPRB, 0.519985E+00_JPRB &
+  &, 0.491434E+00_JPRB, 0.463724E+00_JPRB, 0.436867E+00_JPRB &
+  &, 0.410875E+00_JPRB, 0.385757E+00_JPRB, 0.361521E+00_JPRB, 0.338175E+00_JPRB &
+  &, 0.315726E+00_JPRB, 0.294176E+00_JPRB, 0.273533E+00_JPRB &
+  &, 0.253795E+00_JPRB, 0.234960E+00_JPRB, 0.217029E+00_JPRB, 0.199994E+00_JPRB &
+  &, 0.183854E+00_JPRB, 0.168594E+00_JPRB, 0.154203E+00_JPRB &
+  &, 0.140671E+00_JPRB, 0.127979E+00_JPRB, 0.116112E+00_JPRB, 0.105043E+00_JPRB &
+  &, 0.947583E-01_JPRB, 0.852236E-01_JPRB, 0.764174E-01_JPRB &
+  &, 0.683094E-01_JPRB, 0.608734E-01_JPRB, 0.540635E-01_JPRB, 0.478717E-01_JPRB &
+  &, 0.422456E-01_JPRB, 0.371568E-01_JPRB, 0.325712E-01_JPRB &
+  &, 0.284494E-01_JPRB, 0.247680E-01_JPRB, 0.214879E-01_JPRB, 0.185755E-01_JPRB &
+  &, 0.159924E-01_JPRB, 0.137319E-01_JPRB, 0.117338E-01_JPRB &
+  &, 0.999627E-02_JPRB, 0.848899E-02_JPRB, 0.717745E-02_JPRB, 0.605095E-02_JPRB &
+  &, 0.508235E-02_JPRB, 0.425584E-02_JPRB, 0.353821E-02_JPRB &
+  &, 0.293897E-02_JPRB, 0.243624E-02_JPRB, 0.200560E-02_JPRB, 0.163650E-02_JPRB &
+  &, 0.133408E-02_JPRB, 0.108631E-02_JPRB, 0.879762E-03_JPRB &
+  &, 0.717718E-03_JPRB, 0.566469E-03_JPRB, 0.464974E-03_JPRB, 0.358687E-03_JPRB &
+  &, 0.287084E-03_JPRB, 0.232397E-03_JPRB, 0.175200E-03_JPRB &
+  &, 0.136529E-03_JPRB, 0.961287E-04_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  61, :) = (/ &
+  &  0.849488E+00_JPRB, 0.813471E+00_JPRB, 0.778133E+00_JPRB, 0.743493E+00_JPRB &
+  &, 0.709566E+00_JPRB, 0.676369E+00_JPRB, 0.643919E+00_JPRB &
+  &, 0.612230E+00_JPRB, 0.581318E+00_JPRB, 0.551198E+00_JPRB, 0.521885E+00_JPRB &
+  &, 0.493390E+00_JPRB, 0.465726E+00_JPRB, 0.438909E+00_JPRB &
+  &, 0.412944E+00_JPRB, 0.387845E+00_JPRB, 0.363620E+00_JPRB, 0.340276E+00_JPRB &
+  &, 0.317821E+00_JPRB, 0.296257E+00_JPRB, 0.275592E+00_JPRB &
+  &, 0.255824E+00_JPRB, 0.236954E+00_JPRB, 0.218980E+00_JPRB, 0.201898E+00_JPRB &
+  &, 0.185701E+00_JPRB, 0.170382E+00_JPRB, 0.155932E+00_JPRB &
+  &, 0.142332E+00_JPRB, 0.129574E+00_JPRB, 0.117632E+00_JPRB, 0.106491E+00_JPRB &
+  &, 0.961263E-01_JPRB, 0.865198E-01_JPRB, 0.776375E-01_JPRB &
+  &, 0.694535E-01_JPRB, 0.619320E-01_JPRB, 0.550609E-01_JPRB, 0.487840E-01_JPRB &
+  &, 0.430885E-01_JPRB, 0.379260E-01_JPRB, 0.332735E-01_JPRB &
+  &, 0.290917E-01_JPRB, 0.253470E-01_JPRB, 0.220114E-01_JPRB, 0.190525E-01_JPRB &
+  &, 0.164200E-01_JPRB, 0.141075E-01_JPRB, 0.120801E-01_JPRB &
+  &, 0.102985E-01_JPRB, 0.875817E-02_JPRB, 0.741177E-02_JPRB, 0.624855E-02_JPRB &
+  &, 0.525576E-02_JPRB, 0.440378E-02_JPRB, 0.367450E-02_JPRB &
+  &, 0.304745E-02_JPRB, 0.253139E-02_JPRB, 0.208672E-02_JPRB, 0.171948E-02_JPRB &
+  &, 0.140198E-02_JPRB, 0.113839E-02_JPRB, 0.933013E-03_JPRB &
+  &, 0.754012E-03_JPRB, 0.603567E-03_JPRB, 0.483931E-03_JPRB, 0.378058E-03_JPRB &
+  &, 0.306876E-03_JPRB, 0.232397E-03_JPRB, 0.195850E-03_JPRB &
+  &, 0.136529E-03_JPRB, 0.117661E-03_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  62, :) = (/ &
+  &  0.850236E+00_JPRB, 0.814379E+00_JPRB, 0.779191E+00_JPRB, 0.744690E+00_JPRB &
+  &, 0.710891E+00_JPRB, 0.677812E+00_JPRB, 0.645469E+00_JPRB &
+  &, 0.613878E+00_JPRB, 0.583053E+00_JPRB, 0.553010E+00_JPRB, 0.523763E+00_JPRB &
+  &, 0.495325E+00_JPRB, 0.467709E+00_JPRB, 0.440928E+00_JPRB &
+  &, 0.414994E+00_JPRB, 0.389915E+00_JPRB, 0.365700E+00_JPRB, 0.342360E+00_JPRB &
+  &, 0.319898E+00_JPRB, 0.298322E+00_JPRB, 0.277635E+00_JPRB &
+  &, 0.257837E+00_JPRB, 0.238934E+00_JPRB, 0.220920E+00_JPRB, 0.203788E+00_JPRB &
+  &, 0.187542E+00_JPRB, 0.172167E+00_JPRB, 0.157653E+00_JPRB &
+  &, 0.143986E+00_JPRB, 0.131160E+00_JPRB, 0.119147E+00_JPRB, 0.107935E+00_JPRB &
+  &, 0.974942E-01_JPRB, 0.878117E-01_JPRB, 0.788532E-01_JPRB &
+  &, 0.705882E-01_JPRB, 0.630001E-01_JPRB, 0.560485E-01_JPRB, 0.497064E-01_JPRB &
+  &, 0.439416E-01_JPRB, 0.387059E-01_JPRB, 0.339865E-01_JPRB &
+  &, 0.297451E-01_JPRB, 0.259486E-01_JPRB, 0.225466E-01_JPRB, 0.195294E-01_JPRB &
+  &, 0.168599E-01_JPRB, 0.144956E-01_JPRB, 0.124264E-01_JPRB &
+  &, 0.106138E-01_JPRB, 0.902734E-02_JPRB, 0.764609E-02_JPRB, 0.646027E-02_JPRB &
+  &, 0.544363E-02_JPRB, 0.456651E-02_JPRB, 0.381078E-02_JPRB &
+  &, 0.317143E-02_JPRB, 0.262654E-02_JPRB, 0.216784E-02_JPRB, 0.178587E-02_JPRB &
+  &, 0.146988E-02_JPRB, 0.119047E-02_JPRB, 0.968514E-03_JPRB &
+  &, 0.790305E-03_JPRB, 0.640665E-03_JPRB, 0.502888E-03_JPRB, 0.397430E-03_JPRB &
+  &, 0.326667E-03_JPRB, 0.252615E-03_JPRB, 0.195850E-03_JPRB &
+  &, 0.157617E-03_JPRB, 0.117661E-03_JPRB, 0.979287E-04_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  63, :) = (/ &
+  &  0.850975E+00_JPRB, 0.815277E+00_JPRB, 0.780237E+00_JPRB, 0.745873E+00_JPRB &
+  &, 0.712201E+00_JPRB, 0.679239E+00_JPRB, 0.647003E+00_JPRB &
+  &, 0.615507E+00_JPRB, 0.584769E+00_JPRB, 0.554803E+00_JPRB, 0.525622E+00_JPRB &
+  &, 0.497241E+00_JPRB, 0.469673E+00_JPRB, 0.442931E+00_JPRB &
+  &, 0.417025E+00_JPRB, 0.391965E+00_JPRB, 0.367763E+00_JPRB, 0.344425E+00_JPRB &
+  &, 0.321959E+00_JPRB, 0.300368E+00_JPRB, 0.279662E+00_JPRB &
+  &, 0.259839E+00_JPRB, 0.240901E+00_JPRB, 0.222846E+00_JPRB, 0.205671E+00_JPRB &
+  &, 0.189371E+00_JPRB, 0.173940E+00_JPRB, 0.159366E+00_JPRB &
+  &, 0.145636E+00_JPRB, 0.132739E+00_JPRB, 0.120658E+00_JPRB, 0.109375E+00_JPRB &
+  &, 0.988622E-01_JPRB, 0.891035E-01_JPRB, 0.800688E-01_JPRB &
+  &, 0.717323E-01_JPRB, 0.640682E-01_JPRB, 0.570458E-01_JPRB, 0.506287E-01_JPRB &
+  &, 0.447845E-01_JPRB, 0.394962E-01_JPRB, 0.347103E-01_JPRB &
+  &, 0.303985E-01_JPRB, 0.265389E-01_JPRB, 0.230935E-01_JPRB, 0.200183E-01_JPRB &
+  &, 0.172876E-01_JPRB, 0.148837E-01_JPRB, 0.127728E-01_JPRB &
+  &, 0.109161E-01_JPRB, 0.929652E-02_JPRB, 0.789420E-02_JPRB, 0.667198E-02_JPRB &
+  &, 0.561704E-02_JPRB, 0.471445E-02_JPRB, 0.394706E-02_JPRB &
+  &, 0.329541E-02_JPRB, 0.272168E-02_JPRB, 0.224896E-02_JPRB, 0.185226E-02_JPRB &
+  &, 0.152081E-02_JPRB, 0.124255E-02_JPRB, 0.102176E-02_JPRB &
+  &, 0.826598E-03_JPRB, 0.659214E-03_JPRB, 0.540803E-03_JPRB, 0.436173E-03_JPRB &
+  &, 0.346459E-03_JPRB, 0.272833E-03_JPRB, 0.216500E-03_JPRB &
+  &, 0.157617E-03_JPRB, 0.117661E-03_JPRB, 0.979287E-04_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART10',0,ZHOOK_HANDLE)
+
+XCW(  64, :) = (/ &
+  &  0.851705E+00_JPRB, 0.816164E+00_JPRB, 0.781270E+00_JPRB, 0.747042E+00_JPRB &
+  &, 0.713496E+00_JPRB, 0.680650E+00_JPRB, 0.648519E+00_JPRB &
+  &, 0.617120E+00_JPRB, 0.586468E+00_JPRB, 0.556577E+00_JPRB, 0.527463E+00_JPRB &
+  &, 0.499139E+00_JPRB, 0.471618E+00_JPRB, 0.444914E+00_JPRB &
+  &, 0.419038E+00_JPRB, 0.393999E+00_JPRB, 0.369807E+00_JPRB, 0.346473E+00_JPRB &
+  &, 0.324002E+00_JPRB, 0.302402E+00_JPRB, 0.281675E+00_JPRB &
+  &, 0.261825E+00_JPRB, 0.242855E+00_JPRB, 0.224758E+00_JPRB, 0.207540E+00_JPRB &
+  &, 0.191190E+00_JPRB, 0.175706E+00_JPRB, 0.161072E+00_JPRB &
+  &, 0.147279E+00_JPRB, 0.134318E+00_JPRB, 0.122165E+00_JPRB, 0.110810E+00_JPRB &
+  &, 0.100226E+00_JPRB, 0.903910E-01_JPRB, 0.812844E-01_JPRB &
+  &, 0.728763E-01_JPRB, 0.651364E-01_JPRB, 0.580334E-01_JPRB, 0.515511E-01_JPRB &
+  &, 0.456376E-01_JPRB, 0.402760E-01_JPRB, 0.354341E-01_JPRB &
+  &, 0.310630E-01_JPRB, 0.271406E-01_JPRB, 0.236287E-01_JPRB, 0.205072E-01_JPRB &
+  &, 0.177397E-01_JPRB, 0.152843E-01_JPRB, 0.131191E-01_JPRB &
+  &, 0.112314E-01_JPRB, 0.957915E-02_JPRB, 0.812852E-02_JPRB, 0.688370E-02_JPRB &
+  &, 0.580491E-02_JPRB, 0.487718E-02_JPRB, 0.408335E-02_JPRB &
+  &, 0.340389E-02_JPRB, 0.283269E-02_JPRB, 0.234631E-02_JPRB, 0.193524E-02_JPRB &
+  &, 0.158871E-02_JPRB, 0.129463E-02_JPRB, 0.105727E-02_JPRB &
+  &, 0.862891E-03_JPRB, 0.696311E-03_JPRB, 0.559760E-03_JPRB, 0.455544E-03_JPRB &
+  &, 0.366251E-03_JPRB, 0.293050E-03_JPRB, 0.216500E-03_JPRB &
+  &, 0.178705E-03_JPRB, 0.139193E-03_JPRB, 0.979287E-04_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  65, :) = (/ &
+  &  0.852427E+00_JPRB, 0.817041E+00_JPRB, 0.782291E+00_JPRB, 0.748198E+00_JPRB &
+  &, 0.714777E+00_JPRB, 0.682046E+00_JPRB, 0.650020E+00_JPRB &
+  &, 0.618715E+00_JPRB, 0.588148E+00_JPRB, 0.558334E+00_JPRB, 0.529285E+00_JPRB &
+  &, 0.501018E+00_JPRB, 0.473545E+00_JPRB, 0.446879E+00_JPRB &
+  &, 0.421032E+00_JPRB, 0.396013E+00_JPRB, 0.371835E+00_JPRB, 0.348506E+00_JPRB &
+  &, 0.326032E+00_JPRB, 0.304420E+00_JPRB, 0.283673E+00_JPRB &
+  &, 0.263798E+00_JPRB, 0.244795E+00_JPRB, 0.226663E+00_JPRB, 0.209401E+00_JPRB &
+  &, 0.193001E+00_JPRB, 0.177460E+00_JPRB, 0.162770E+00_JPRB &
+  &, 0.148917E+00_JPRB, 0.135889E+00_JPRB, 0.123669E+00_JPRB, 0.112241E+00_JPRB &
+  &, 0.101585E+00_JPRB, 0.916828E-01_JPRB, 0.825000E-01_JPRB &
+  &, 0.740111E-01_JPRB, 0.662045E-01_JPRB, 0.590308E-01_JPRB, 0.524734E-01_JPRB &
+  &, 0.465011E-01_JPRB, 0.410664E-01_JPRB, 0.361580E-01_JPRB &
+  &, 0.317275E-01_JPRB, 0.277422E-01_JPRB, 0.241755E-01_JPRB, 0.209961E-01_JPRB &
+  &, 0.181796E-01_JPRB, 0.156850E-01_JPRB, 0.134783E-01_JPRB &
+  &, 0.115468E-01_JPRB, 0.984832E-02_JPRB, 0.837662E-02_JPRB, 0.709541E-02_JPRB &
+  &, 0.599277E-02_JPRB, 0.503991E-02_JPRB, 0.423477E-02_JPRB &
+  &, 0.352786E-02_JPRB, 0.294369E-02_JPRB, 0.244366E-02_JPRB, 0.201823E-02_JPRB &
+  &, 0.165661E-02_JPRB, 0.136407E-02_JPRB, 0.111052E-02_JPRB &
+  &, 0.899185E-03_JPRB, 0.733409E-03_JPRB, 0.578718E-03_JPRB, 0.474916E-03_JPRB &
+  &, 0.386043E-03_JPRB, 0.293050E-03_JPRB, 0.237150E-03_JPRB &
+  &, 0.178705E-03_JPRB, 0.139193E-03_JPRB, 0.119911E-03_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  66, :) = (/ &
+  &  0.853141E+00_JPRB, 0.817907E+00_JPRB, 0.783301E+00_JPRB, 0.749342E+00_JPRB &
+  &, 0.716044E+00_JPRB, 0.683427E+00_JPRB, 0.651504E+00_JPRB &
+  &, 0.620294E+00_JPRB, 0.589812E+00_JPRB, 0.560072E+00_JPRB, 0.531090E+00_JPRB &
+  &, 0.502878E+00_JPRB, 0.475453E+00_JPRB, 0.448827E+00_JPRB &
+  &, 0.423008E+00_JPRB, 0.398012E+00_JPRB, 0.373847E+00_JPRB, 0.350521E+00_JPRB &
+  &, 0.328044E+00_JPRB, 0.306421E+00_JPRB, 0.285657E+00_JPRB &
+  &, 0.265758E+00_JPRB, 0.246725E+00_JPRB, 0.228555E+00_JPRB, 0.211248E+00_JPRB &
+  &, 0.194802E+00_JPRB, 0.179211E+00_JPRB, 0.164461E+00_JPRB &
+  &, 0.150547E+00_JPRB, 0.137455E+00_JPRB, 0.125172E+00_JPRB, 0.113673E+00_JPRB &
+  &, 0.102949E+00_JPRB, 0.929702E-01_JPRB, 0.837156E-01_JPRB &
+  &, 0.751552E-01_JPRB, 0.672726E-01_JPRB, 0.600282E-01_JPRB, 0.534058E-01_JPRB &
+  &, 0.473542E-01_JPRB, 0.418673E-01_JPRB, 0.368818E-01_JPRB &
+  &, 0.323919E-01_JPRB, 0.283552E-01_JPRB, 0.247340E-01_JPRB, 0.214969E-01_JPRB &
+  &, 0.186317E-01_JPRB, 0.160856E-01_JPRB, 0.138374E-01_JPRB &
+  &, 0.118621E-01_JPRB, 0.101310E-01_JPRB, 0.862473E-02_JPRB, 0.732124E-02_JPRB &
+  &, 0.619509E-02_JPRB, 0.521744E-02_JPRB, 0.437105E-02_JPRB &
+  &, 0.365184E-02_JPRB, 0.305470E-02_JPRB, 0.252478E-02_JPRB, 0.208461E-02_JPRB &
+  &, 0.172451E-02_JPRB, 0.141615E-02_JPRB, 0.116377E-02_JPRB &
+  &, 0.935478E-03_JPRB, 0.770507E-03_JPRB, 0.616632E-03_JPRB, 0.494287E-03_JPRB &
+  &, 0.386043E-03_JPRB, 0.313268E-03_JPRB, 0.257800E-03_JPRB &
+  &, 0.199793E-03_JPRB, 0.160725E-03_JPRB, 0.119911E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  67, :) = (/ &
+  &  0.853846E+00_JPRB, 0.818764E+00_JPRB, 0.784300E+00_JPRB, 0.750473E+00_JPRB &
+  &, 0.717298E+00_JPRB, 0.684793E+00_JPRB, 0.652974E+00_JPRB &
+  &, 0.621857E+00_JPRB, 0.591459E+00_JPRB, 0.561794E+00_JPRB, 0.532878E+00_JPRB &
+  &, 0.504724E+00_JPRB, 0.477345E+00_JPRB, 0.450756E+00_JPRB &
+  &, 0.424968E+00_JPRB, 0.399993E+00_JPRB, 0.375842E+00_JPRB, 0.352522E+00_JPRB &
+  &, 0.330042E+00_JPRB, 0.308410E+00_JPRB, 0.287628E+00_JPRB &
+  &, 0.267707E+00_JPRB, 0.248641E+00_JPRB, 0.230436E+00_JPRB, 0.213088E+00_JPRB &
+  &, 0.196595E+00_JPRB, 0.180951E+00_JPRB, 0.166148E+00_JPRB &
+  &, 0.152174E+00_JPRB, 0.139018E+00_JPRB, 0.126666E+00_JPRB, 0.115100E+00_JPRB &
+  &, 0.104304E+00_JPRB, 0.942577E-01_JPRB, 0.849313E-01_JPRB &
+  &, 0.762992E-01_JPRB, 0.683407E-01_JPRB, 0.610353E-01_JPRB, 0.543381E-01_JPRB &
+  &, 0.482176E-01_JPRB, 0.426577E-01_JPRB, 0.376164E-01_JPRB &
+  &, 0.330564E-01_JPRB, 0.289568E-01_JPRB, 0.252808E-01_JPRB, 0.219977E-01_JPRB &
+  &, 0.190838E-01_JPRB, 0.164862E-01_JPRB, 0.141966E-01_JPRB &
+  &, 0.121906E-01_JPRB, 0.104270E-01_JPRB, 0.888662E-02_JPRB, 0.754707E-02_JPRB &
+  &, 0.638295E-02_JPRB, 0.538017E-02_JPRB, 0.452248E-02_JPRB &
+  &, 0.379132E-02_JPRB, 0.314985E-02_JPRB, 0.262212E-02_JPRB, 0.216760E-02_JPRB &
+  &, 0.179242E-02_JPRB, 0.146823E-02_JPRB, 0.119927E-02_JPRB &
+  &, 0.989918E-03_JPRB, 0.789056E-03_JPRB, 0.635589E-03_JPRB, 0.513659E-03_JPRB &
+  &, 0.405834E-03_JPRB, 0.333486E-03_JPRB, 0.257800E-03_JPRB &
+  &, 0.199793E-03_JPRB, 0.160725E-03_JPRB, 0.119911E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  68, :) = (/ &
+  &  0.854543E+00_JPRB, 0.819611E+00_JPRB, 0.785288E+00_JPRB, 0.751592E+00_JPRB &
+  &, 0.718538E+00_JPRB, 0.686145E+00_JPRB, 0.654427E+00_JPRB &
+  &, 0.623404E+00_JPRB, 0.593090E+00_JPRB, 0.563499E+00_JPRB, 0.534648E+00_JPRB &
+  &, 0.506550E+00_JPRB, 0.479220E+00_JPRB, 0.452669E+00_JPRB &
+  &, 0.426912E+00_JPRB, 0.401960E+00_JPRB, 0.377821E+00_JPRB, 0.354507E+00_JPRB &
+  &, 0.332027E+00_JPRB, 0.310384E+00_JPRB, 0.289587E+00_JPRB &
+  &, 0.269643E+00_JPRB, 0.250550E+00_JPRB, 0.232306E+00_JPRB, 0.214918E+00_JPRB &
+  &, 0.198381E+00_JPRB, 0.182683E+00_JPRB, 0.167823E+00_JPRB &
+  &, 0.153793E+00_JPRB, 0.140573E+00_JPRB, 0.128157E+00_JPRB, 0.116527E+00_JPRB &
+  &, 0.105659E+00_JPRB, 0.955407E-01_JPRB, 0.861424E-01_JPRB &
+  &, 0.774433E-01_JPRB, 0.694183E-01_JPRB, 0.620327E-01_JPRB, 0.552705E-01_JPRB &
+  &, 0.490810E-01_JPRB, 0.434586E-01_JPRB, 0.383510E-01_JPRB &
+  &, 0.337320E-01_JPRB, 0.295812E-01_JPRB, 0.258509E-01_JPRB, 0.225104E-01_JPRB &
+  &, 0.195359E-01_JPRB, 0.168994E-01_JPRB, 0.145685E-01_JPRB &
+  &, 0.125191E-01_JPRB, 0.107097E-01_JPRB, 0.914850E-02_JPRB, 0.777290E-02_JPRB &
+  &, 0.658527E-02_JPRB, 0.555770E-02_JPRB, 0.467391E-02_JPRB &
+  &, 0.391529E-02_JPRB, 0.327671E-02_JPRB, 0.271947E-02_JPRB, 0.225058E-02_JPRB &
+  &, 0.186032E-02_JPRB, 0.153767E-02_JPRB, 0.125252E-02_JPRB &
+  &, 0.102621E-02_JPRB, 0.826154E-03_JPRB, 0.673504E-03_JPRB, 0.552402E-03_JPRB &
+  &, 0.445418E-03_JPRB, 0.353704E-03_JPRB, 0.278450E-03_JPRB &
+  &, 0.220881E-03_JPRB, 0.160725E-03_JPRB, 0.141893E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  69, :) = (/ &
+  &  0.855233E+00_JPRB, 0.820450E+00_JPRB, 0.786266E+00_JPRB, 0.752699E+00_JPRB &
+  &, 0.719766E+00_JPRB, 0.687483E+00_JPRB, 0.655868E+00_JPRB &
+  &, 0.624937E+00_JPRB, 0.594705E+00_JPRB, 0.565189E+00_JPRB, 0.536403E+00_JPRB &
+  &, 0.508361E+00_JPRB, 0.481078E+00_JPRB, 0.454566E+00_JPRB &
+  &, 0.428840E+00_JPRB, 0.403909E+00_JPRB, 0.379785E+00_JPRB, 0.356477E+00_JPRB &
+  &, 0.333995E+00_JPRB, 0.312344E+00_JPRB, 0.291532E+00_JPRB &
+  &, 0.271566E+00_JPRB, 0.252443E+00_JPRB, 0.234170E+00_JPRB, 0.216740E+00_JPRB &
+  &, 0.200156E+00_JPRB, 0.184408E+00_JPRB, 0.169494E+00_JPRB &
+  &, 0.155408E+00_JPRB, 0.142127E+00_JPRB, 0.129648E+00_JPRB, 0.117950E+00_JPRB &
+  &, 0.107014E+00_JPRB, 0.968281E-01_JPRB, 0.873580E-01_JPRB &
+  &, 0.785873E-01_JPRB, 0.704865E-01_JPRB, 0.630398E-01_JPRB, 0.562029E-01_JPRB &
+  &, 0.499547E-01_JPRB, 0.442594E-01_JPRB, 0.390857E-01_JPRB &
+  &, 0.344075E-01_JPRB, 0.301942E-01_JPRB, 0.264094E-01_JPRB, 0.230231E-01_JPRB &
+  &, 0.200002E-01_JPRB, 0.173126E-01_JPRB, 0.149405E-01_JPRB &
+  &, 0.128476E-01_JPRB, 0.110058E-01_JPRB, 0.939661E-02_JPRB, 0.799873E-02_JPRB &
+  &, 0.678758E-02_JPRB, 0.573523E-02_JPRB, 0.482533E-02_JPRB &
+  &, 0.405477E-02_JPRB, 0.338771E-02_JPRB, 0.281682E-02_JPRB, 0.233357E-02_JPRB &
+  &, 0.192822E-02_JPRB, 0.158975E-02_JPRB, 0.130577E-02_JPRB &
+  &, 0.106250E-02_JPRB, 0.863252E-03_JPRB, 0.711418E-03_JPRB, 0.571773E-03_JPRB &
+  &, 0.465209E-03_JPRB, 0.373922E-03_JPRB, 0.299100E-03_JPRB &
+  &, 0.220881E-03_JPRB, 0.182257E-03_JPRB, 0.141893E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  70, :) = (/ &
+  &  0.855916E+00_JPRB, 0.821280E+00_JPRB, 0.787233E+00_JPRB, 0.753795E+00_JPRB &
+  &, 0.720981E+00_JPRB, 0.688808E+00_JPRB, 0.657294E+00_JPRB &
+  &, 0.626455E+00_JPRB, 0.596305E+00_JPRB, 0.566863E+00_JPRB, 0.538142E+00_JPRB &
+  &, 0.510156E+00_JPRB, 0.482920E+00_JPRB, 0.456448E+00_JPRB &
+  &, 0.430752E+00_JPRB, 0.405843E+00_JPRB, 0.381734E+00_JPRB, 0.358434E+00_JPRB &
+  &, 0.335950E+00_JPRB, 0.314292E+00_JPRB, 0.293468E+00_JPRB &
+  &, 0.273476E+00_JPRB, 0.254328E+00_JPRB, 0.236020E+00_JPRB, 0.218552E+00_JPRB &
+  &, 0.201924E+00_JPRB, 0.186129E+00_JPRB, 0.171162E+00_JPRB &
+  &, 0.157015E+00_JPRB, 0.143674E+00_JPRB, 0.131130E+00_JPRB, 0.119368E+00_JPRB &
+  &, 0.108369E+00_JPRB, 0.981111E-01_JPRB, 0.885736E-01_JPRB &
+  &, 0.797314E-01_JPRB, 0.715641E-01_JPRB, 0.640470E-01_JPRB, 0.571353E-01_JPRB &
+  &, 0.508284E-01_JPRB, 0.450603E-01_JPRB, 0.398311E-01_JPRB &
+  &, 0.350941E-01_JPRB, 0.308185E-01_JPRB, 0.269795E-01_JPRB, 0.235359E-01_JPRB &
+  &, 0.204645E-01_JPRB, 0.177382E-01_JPRB, 0.153125E-01_JPRB &
+  &, 0.131893E-01_JPRB, 0.113153E-01_JPRB, 0.967228E-02_JPRB, 0.823868E-02_JPRB &
+  &, 0.698990E-02_JPRB, 0.591275E-02_JPRB, 0.497676E-02_JPRB &
+  &, 0.417875E-02_JPRB, 0.349872E-02_JPRB, 0.291416E-02_JPRB, 0.243315E-02_JPRB &
+  &, 0.201310E-02_JPRB, 0.165919E-02_JPRB, 0.135902E-02_JPRB &
+  &, 0.111694E-02_JPRB, 0.900350E-03_JPRB, 0.730375E-03_JPRB, 0.591145E-03_JPRB &
+  &, 0.485001E-03_JPRB, 0.394140E-03_JPRB, 0.299100E-03_JPRB &
+  &, 0.241969E-03_JPRB, 0.182257E-03_JPRB, 0.141893E-03_JPRB, 0.122191E-03_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART11',0,ZHOOK_HANDLE)
+
+XCW(  71, :) = (/ &
+  &  0.856591E+00_JPRB, 0.822100E+00_JPRB, 0.788191E+00_JPRB, 0.754880E+00_JPRB &
+  &, 0.722184E+00_JPRB, 0.690121E+00_JPRB, 0.658706E+00_JPRB &
+  &, 0.627958E+00_JPRB, 0.597891E+00_JPRB, 0.568522E+00_JPRB, 0.539865E+00_JPRB &
+  &, 0.511934E+00_JPRB, 0.484747E+00_JPRB, 0.458314E+00_JPRB &
+  &, 0.432649E+00_JPRB, 0.407763E+00_JPRB, 0.383668E+00_JPRB, 0.360376E+00_JPRB &
+  &, 0.337893E+00_JPRB, 0.316227E+00_JPRB, 0.295388E+00_JPRB &
+  &, 0.275379E+00_JPRB, 0.256200E+00_JPRB, 0.237859E+00_JPRB, 0.220353E+00_JPRB &
+  &, 0.203681E+00_JPRB, 0.187839E+00_JPRB, 0.172822E+00_JPRB &
+  &, 0.158618E+00_JPRB, 0.145221E+00_JPRB, 0.132613E+00_JPRB, 0.120787E+00_JPRB &
+  &, 0.109720E+00_JPRB, 0.993941E-01_JPRB, 0.897892E-01_JPRB &
+  &, 0.808755E-01_JPRB, 0.726418E-01_JPRB, 0.650541E-01_JPRB, 0.580776E-01_JPRB &
+  &, 0.516919E-01_JPRB, 0.458718E-01_JPRB, 0.405765E-01_JPRB &
+  &, 0.357807E-01_JPRB, 0.314428E-01_JPRB, 0.275496E-01_JPRB, 0.240605E-01_JPRB &
+  &, 0.209288E-01_JPRB, 0.181639E-01_JPRB, 0.156973E-01_JPRB &
+  &, 0.135178E-01_JPRB, 0.116114E-01_JPRB, 0.993417E-02_JPRB, 0.846451E-02_JPRB &
+  &, 0.719222E-02_JPRB, 0.609028E-02_JPRB, 0.514332E-02_JPRB &
+  &, 0.431822E-02_JPRB, 0.362558E-02_JPRB, 0.302773E-02_JPRB, 0.251613E-02_JPRB &
+  &, 0.208100E-02_JPRB, 0.172862E-02_JPRB, 0.141227E-02_JPRB &
+  &, 0.115324E-02_JPRB, 0.955997E-03_JPRB, 0.768290E-03_JPRB, 0.629888E-03_JPRB &
+  &, 0.504793E-03_JPRB, 0.394140E-03_JPRB, 0.319750E-03_JPRB &
+  &, 0.263057E-03_JPRB, 0.203790E-03_JPRB, 0.163875E-03_JPRB, 0.122191E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  72, :) = (/ &
+  &  0.857259E+00_JPRB, 0.822913E+00_JPRB, 0.789139E+00_JPRB, 0.755954E+00_JPRB &
+  &, 0.723375E+00_JPRB, 0.691420E+00_JPRB, 0.660105E+00_JPRB &
+  &, 0.629447E+00_JPRB, 0.599461E+00_JPRB, 0.570165E+00_JPRB, 0.541573E+00_JPRB &
+  &, 0.513699E+00_JPRB, 0.486558E+00_JPRB, 0.460165E+00_JPRB &
+  &, 0.434531E+00_JPRB, 0.409668E+00_JPRB, 0.385589E+00_JPRB, 0.362304E+00_JPRB &
+  &, 0.339821E+00_JPRB, 0.318150E+00_JPRB, 0.297298E+00_JPRB &
+  &, 0.277266E+00_JPRB, 0.258066E+00_JPRB, 0.239691E+00_JPRB, 0.222147E+00_JPRB &
+  &, 0.205434E+00_JPRB, 0.189545E+00_JPRB, 0.174474E+00_JPRB &
+  &, 0.160217E+00_JPRB, 0.146759E+00_JPRB, 0.134091E+00_JPRB, 0.122201E+00_JPRB &
+  &, 0.111066E+00_JPRB, 0.100673E+00_JPRB, 0.910003E-01_JPRB &
+  &, 0.820195E-01_JPRB, 0.737194E-01_JPRB, 0.660613E-01_JPRB, 0.590200E-01_JPRB &
+  &, 0.525758E-01_JPRB, 0.466832E-01_JPRB, 0.413219E-01_JPRB &
+  &, 0.364674E-01_JPRB, 0.320785E-01_JPRB, 0.281197E-01_JPRB, 0.245732E-01_JPRB &
+  &, 0.214054E-01_JPRB, 0.185896E-01_JPRB, 0.160821E-01_JPRB &
+  &, 0.138725E-01_JPRB, 0.119210E-01_JPRB, 0.102098E-01_JPRB, 0.870445E-02_JPRB &
+  &, 0.740898E-02_JPRB, 0.628260E-02_JPRB, 0.530989E-02_JPRB &
+  &, 0.445770E-02_JPRB, 0.373658E-02_JPRB, 0.312508E-02_JPRB, 0.259912E-02_JPRB &
+  &, 0.216588E-02_JPRB, 0.178070E-02_JPRB, 0.146552E-02_JPRB &
+  &, 0.120768E-02_JPRB, 0.993095E-03_JPRB, 0.806204E-03_JPRB, 0.649259E-03_JPRB &
+  &, 0.524585E-03_JPRB, 0.414358E-03_JPRB, 0.340400E-03_JPRB &
+  &, 0.263057E-03_JPRB, 0.203790E-03_JPRB, 0.163875E-03_JPRB, 0.122191E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  73, :) = (/ &
+  &  0.857920E+00_JPRB, 0.823718E+00_JPRB, 0.790077E+00_JPRB, 0.757017E+00_JPRB &
+  &, 0.724554E+00_JPRB, 0.692707E+00_JPRB, 0.661491E+00_JPRB &
+  &, 0.630923E+00_JPRB, 0.601019E+00_JPRB, 0.571795E+00_JPRB, 0.543267E+00_JPRB &
+  &, 0.515448E+00_JPRB, 0.488355E+00_JPRB, 0.462000E+00_JPRB &
+  &, 0.436397E+00_JPRB, 0.411559E+00_JPRB, 0.387496E+00_JPRB, 0.364219E+00_JPRB &
+  &, 0.341737E+00_JPRB, 0.320060E+00_JPRB, 0.299194E+00_JPRB &
+  &, 0.279146E+00_JPRB, 0.259918E+00_JPRB, 0.241513E+00_JPRB, 0.223934E+00_JPRB &
+  &, 0.207180E+00_JPRB, 0.191244E+00_JPRB, 0.176123E+00_JPRB &
+  &, 0.161808E+00_JPRB, 0.148294E+00_JPRB, 0.135566E+00_JPRB, 0.123611E+00_JPRB &
+  &, 0.112417E+00_JPRB, 0.101956E+00_JPRB, 0.922159E-01_JPRB &
+  &, 0.831729E-01_JPRB, 0.747971E-01_JPRB, 0.670684E-01_JPRB, 0.599624E-01_JPRB &
+  &, 0.534495E-01_JPRB, 0.474946E-01_JPRB, 0.420782E-01_JPRB &
+  &, 0.371540E-01_JPRB, 0.327142E-01_JPRB, 0.287015E-01_JPRB, 0.251098E-01_JPRB &
+  &, 0.218819E-01_JPRB, 0.190153E-01_JPRB, 0.164669E-01_JPRB &
+  &, 0.142142E-01_JPRB, 0.122305E-01_JPRB, 0.104855E-01_JPRB, 0.895851E-02_JPRB &
+  &, 0.762575E-02_JPRB, 0.647492E-02_JPRB, 0.546132E-02_JPRB &
+  &, 0.461267E-02_JPRB, 0.386345E-02_JPRB, 0.323865E-02_JPRB, 0.269870E-02_JPRB &
+  &, 0.223378E-02_JPRB, 0.185014E-02_JPRB, 0.153652E-02_JPRB &
+  &, 0.126212E-02_JPRB, 0.103019E-02_JPRB, 0.844119E-03_JPRB, 0.688002E-03_JPRB &
+  &, 0.544376E-03_JPRB, 0.434576E-03_JPRB, 0.361050E-03_JPRB &
+  &, 0.284145E-03_JPRB, 0.225322E-03_JPRB, 0.185857E-03_JPRB, 0.144629E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  74, :) = (/ &
+  &  0.858575E+00_JPRB, 0.824514E+00_JPRB, 0.791005E+00_JPRB, 0.758070E+00_JPRB &
+  &, 0.725723E+00_JPRB, 0.693982E+00_JPRB, 0.662864E+00_JPRB &
+  &, 0.632385E+00_JPRB, 0.602562E+00_JPRB, 0.573410E+00_JPRB, 0.544946E+00_JPRB &
+  &, 0.517183E+00_JPRB, 0.490137E+00_JPRB, 0.463823E+00_JPRB &
+  &, 0.438251E+00_JPRB, 0.413435E+00_JPRB, 0.389389E+00_JPRB, 0.366120E+00_JPRB &
+  &, 0.343641E+00_JPRB, 0.321957E+00_JPRB, 0.301081E+00_JPRB &
+  &, 0.281012E+00_JPRB, 0.261763E+00_JPRB, 0.243329E+00_JPRB, 0.225710E+00_JPRB &
+  &, 0.208915E+00_JPRB, 0.192935E+00_JPRB, 0.177764E+00_JPRB &
+  &, 0.163396E+00_JPRB, 0.149825E+00_JPRB, 0.137040E+00_JPRB, 0.125022E+00_JPRB &
+  &, 0.113759E+00_JPRB, 0.103234E+00_JPRB, 0.934270E-01_JPRB &
+  &, 0.843169E-01_JPRB, 0.758747E-01_JPRB, 0.680854E-01_JPRB, 0.609149E-01_JPRB &
+  &, 0.543335E-01_JPRB, 0.483166E-01_JPRB, 0.428344E-01_JPRB &
+  &, 0.378517E-01_JPRB, 0.333499E-01_JPRB, 0.292832E-01_JPRB, 0.256345E-01_JPRB &
+  &, 0.223707E-01_JPRB, 0.194535E-01_JPRB, 0.168517E-01_JPRB &
+  &, 0.145689E-01_JPRB, 0.125401E-01_JPRB, 0.107612E-01_JPRB, 0.919845E-02_JPRB &
+  &, 0.784252E-02_JPRB, 0.665245E-02_JPRB, 0.564303E-02_JPRB &
+  &, 0.475214E-02_JPRB, 0.399031E-02_JPRB, 0.335222E-02_JPRB, 0.279828E-02_JPRB &
+  &, 0.231865E-02_JPRB, 0.191958E-02_JPRB, 0.158977E-02_JPRB &
+  &, 0.129841E-02_JPRB, 0.106729E-02_JPRB, 0.882033E-03_JPRB, 0.707374E-03_JPRB &
+  &, 0.583960E-03_JPRB, 0.454794E-03_JPRB, 0.361050E-03_JPRB &
+  &, 0.305234E-03_JPRB, 0.225322E-03_JPRB, 0.185857E-03_JPRB, 0.144629E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  75, :) = (/ &
+  &  0.859223E+00_JPRB, 0.825302E+00_JPRB, 0.791926E+00_JPRB, 0.759114E+00_JPRB &
+  &, 0.726880E+00_JPRB, 0.695246E+00_JPRB, 0.664225E+00_JPRB &
+  &, 0.633834E+00_JPRB, 0.604091E+00_JPRB, 0.575012E+00_JPRB, 0.546611E+00_JPRB &
+  &, 0.518904E+00_JPRB, 0.491906E+00_JPRB, 0.465630E+00_JPRB &
+  &, 0.440090E+00_JPRB, 0.415299E+00_JPRB, 0.391269E+00_JPRB, 0.368010E+00_JPRB &
+  &, 0.345532E+00_JPRB, 0.323844E+00_JPRB, 0.302956E+00_JPRB &
+  &, 0.282872E+00_JPRB, 0.263594E+00_JPRB, 0.245130E+00_JPRB, 0.227483E+00_JPRB &
+  &, 0.210646E+00_JPRB, 0.194619E+00_JPRB, 0.179401E+00_JPRB &
+  &, 0.164983E+00_JPRB, 0.151355E+00_JPRB, 0.138510E+00_JPRB, 0.126432E+00_JPRB &
+  &, 0.115105E+00_JPRB, 0.104517E+00_JPRB, 0.946427E-01_JPRB &
+  &, 0.854610E-01_JPRB, 0.769524E-01_JPRB, 0.690925E-01_JPRB, 0.618573E-01_JPRB &
+  &, 0.552175E-01_JPRB, 0.491386E-01_JPRB, 0.435906E-01_JPRB &
+  &, 0.385494E-01_JPRB, 0.339856E-01_JPRB, 0.298766E-01_JPRB, 0.261710E-01_JPRB &
+  &, 0.228472E-01_JPRB, 0.198917E-01_JPRB, 0.172494E-01_JPRB &
+  &, 0.149106E-01_JPRB, 0.128496E-01_JPRB, 0.110369E-01_JPRB, 0.945251E-02_JPRB &
+  &, 0.805928E-02_JPRB, 0.685956E-02_JPRB, 0.580960E-02_JPRB &
+  &, 0.490711E-02_JPRB, 0.411717E-02_JPRB, 0.344957E-02_JPRB, 0.288126E-02_JPRB &
+  &, 0.240353E-02_JPRB, 0.198902E-02_JPRB, 0.164302E-02_JPRB &
+  &, 0.135285E-02_JPRB, 0.110439E-02_JPRB, 0.900991E-03_JPRB, 0.746117E-03_JPRB &
+  &, 0.603751E-03_JPRB, 0.475011E-03_JPRB, 0.381700E-03_JPRB &
+  &, 0.305234E-03_JPRB, 0.246854E-03_JPRB, 0.185857E-03_JPRB, 0.144629E-03_JPRB &
+  &, 0.124500E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  76, :) = (/ &
+  &  0.859865E+00_JPRB, 0.826083E+00_JPRB, 0.792837E+00_JPRB, 0.760147E+00_JPRB &
+  &, 0.728028E+00_JPRB, 0.696497E+00_JPRB, 0.665573E+00_JPRB &
+  &, 0.635271E+00_JPRB, 0.605608E+00_JPRB, 0.576600E+00_JPRB, 0.548263E+00_JPRB &
+  &, 0.520611E+00_JPRB, 0.493661E+00_JPRB, 0.467424E+00_JPRB &
+  &, 0.441916E+00_JPRB, 0.417149E+00_JPRB, 0.393135E+00_JPRB, 0.369886E+00_JPRB &
+  &, 0.347411E+00_JPRB, 0.325719E+00_JPRB, 0.304820E+00_JPRB &
+  &, 0.284719E+00_JPRB, 0.265419E+00_JPRB, 0.246927E+00_JPRB, 0.229241E+00_JPRB &
+  &, 0.212367E+00_JPRB, 0.196299E+00_JPRB, 0.181031E+00_JPRB &
+  &, 0.166559E+00_JPRB, 0.152878E+00_JPRB, 0.139976E+00_JPRB, 0.127838E+00_JPRB &
+  &, 0.116447E+00_JPRB, 0.105796E+00_JPRB, 0.958583E-01_JPRB &
+  &, 0.866144E-01_JPRB, 0.780396E-01_JPRB, 0.701094E-01_JPRB, 0.628097E-01_JPRB &
+  &, 0.561015E-01_JPRB, 0.499605E-01_JPRB, 0.443577E-01_JPRB &
+  &, 0.392581E-01_JPRB, 0.346327E-01_JPRB, 0.304583E-01_JPRB, 0.267076E-01_JPRB &
+  &, 0.233360E-01_JPRB, 0.203299E-01_JPRB, 0.176470E-01_JPRB &
+  &, 0.152785E-01_JPRB, 0.131726E-01_JPRB, 0.113263E-01_JPRB, 0.970657E-02_JPRB &
+  &, 0.829050E-02_JPRB, 0.705188E-02_JPRB, 0.597616E-02_JPRB &
+  &, 0.504659E-02_JPRB, 0.425989E-02_JPRB, 0.356314E-02_JPRB, 0.298085E-02_JPRB &
+  &, 0.248841E-02_JPRB, 0.205846E-02_JPRB, 0.171402E-02_JPRB &
+  &, 0.140729E-02_JPRB, 0.116004E-02_JPRB, 0.938905E-03_JPRB, 0.765488E-03_JPRB &
+  &, 0.623543E-03_JPRB, 0.515447E-03_JPRB, 0.402350E-03_JPRB &
+  &, 0.326322E-03_JPRB, 0.268386E-03_JPRB, 0.207840E-03_JPRB, 0.167067E-03_JPRB &
+  &, 0.124500E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  77, :) = (/ &
+  &  0.860500E+00_JPRB, 0.826857E+00_JPRB, 0.793740E+00_JPRB, 0.761171E+00_JPRB &
+  &, 0.729164E+00_JPRB, 0.697739E+00_JPRB, 0.666910E+00_JPRB &
+  &, 0.636695E+00_JPRB, 0.607112E+00_JPRB, 0.578175E+00_JPRB, 0.549901E+00_JPRB &
+  &, 0.522305E+00_JPRB, 0.495402E+00_JPRB, 0.469205E+00_JPRB &
+  &, 0.443729E+00_JPRB, 0.418987E+00_JPRB, 0.394990E+00_JPRB, 0.371751E+00_JPRB &
+  &, 0.349279E+00_JPRB, 0.327585E+00_JPRB, 0.306675E+00_JPRB &
+  &, 0.286556E+00_JPRB, 0.267233E+00_JPRB, 0.248715E+00_JPRB, 0.230996E+00_JPRB &
+  &, 0.214084E+00_JPRB, 0.197972E+00_JPRB, 0.182656E+00_JPRB &
+  &, 0.168135E+00_JPRB, 0.154401E+00_JPRB, 0.141438E+00_JPRB, 0.129240E+00_JPRB &
+  &, 0.117789E+00_JPRB, 0.107074E+00_JPRB, 0.970694E-01_JPRB &
+  &, 0.877584E-01_JPRB, 0.791172E-01_JPRB, 0.711263E-01_JPRB, 0.637621E-01_JPRB &
+  &, 0.569855E-01_JPRB, 0.507825E-01_JPRB, 0.451139E-01_JPRB &
+  &, 0.399669E-01_JPRB, 0.352797E-01_JPRB, 0.310517E-01_JPRB, 0.272442E-01_JPRB &
+  &, 0.238369E-01_JPRB, 0.207806E-01_JPRB, 0.180575E-01_JPRB &
+  &, 0.156333E-01_JPRB, 0.134956E-01_JPRB, 0.116158E-01_JPRB, 0.996063E-02_JPRB &
+  &, 0.850727E-02_JPRB, 0.724420E-02_JPRB, 0.615788E-02_JPRB &
+  &, 0.520156E-02_JPRB, 0.438675E-02_JPRB, 0.369293E-02_JPRB, 0.308043E-02_JPRB &
+  &, 0.257328E-02_JPRB, 0.214526E-02_JPRB, 0.176728E-02_JPRB &
+  &, 0.146173E-02_JPRB, 0.119713E-02_JPRB, 0.976820E-03_JPRB, 0.804232E-03_JPRB &
+  &, 0.663127E-03_JPRB, 0.535665E-03_JPRB, 0.423000E-03_JPRB &
+  &, 0.347410E-03_JPRB, 0.268386E-03_JPRB, 0.207840E-03_JPRB, 0.167067E-03_JPRB &
+  &, 0.124500E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART12',0,ZHOOK_HANDLE)
+
+XCW(  78, :) = (/ &
+  &  0.861131E+00_JPRB, 0.827623E+00_JPRB, 0.794635E+00_JPRB, 0.762186E+00_JPRB &
+  &, 0.730291E+00_JPRB, 0.698968E+00_JPRB, 0.668235E+00_JPRB &
+  &, 0.638108E+00_JPRB, 0.608603E+00_JPRB, 0.579738E+00_JPRB, 0.551527E+00_JPRB &
+  &, 0.523986E+00_JPRB, 0.497129E+00_JPRB, 0.470972E+00_JPRB &
+  &, 0.445529E+00_JPRB, 0.420810E+00_JPRB, 0.396832E+00_JPRB, 0.373603E+00_JPRB &
+  &, 0.351134E+00_JPRB, 0.329437E+00_JPRB, 0.308517E+00_JPRB &
+  &, 0.288383E+00_JPRB, 0.269041E+00_JPRB, 0.250492E+00_JPRB, 0.232744E+00_JPRB &
+  &, 0.215790E+00_JPRB, 0.199637E+00_JPRB, 0.184278E+00_JPRB &
+  &, 0.169707E+00_JPRB, 0.155915E+00_JPRB, 0.142896E+00_JPRB, 0.130641E+00_JPRB &
+  &, 0.119132E+00_JPRB, 0.108349E+00_JPRB, 0.982850E-01_JPRB &
+  &, 0.889118E-01_JPRB, 0.802044E-01_JPRB, 0.721531E-01_JPRB, 0.647145E-01_JPRB &
+  &, 0.578797E-01_JPRB, 0.516150E-01_JPRB, 0.458918E-01_JPRB &
+  &, 0.406757E-01_JPRB, 0.359381E-01_JPRB, 0.316567E-01_JPRB, 0.277927E-01_JPRB &
+  &, 0.243257E-01_JPRB, 0.212313E-01_JPRB, 0.184551E-01_JPRB &
+  &, 0.160012E-01_JPRB, 0.138186E-01_JPRB, 0.119052E-01_JPRB, 0.102147E-01_JPRB &
+  &, 0.873849E-02_JPRB, 0.745131E-02_JPRB, 0.632444E-02_JPRB &
+  &, 0.535653E-02_JPRB, 0.452947E-02_JPRB, 0.380650E-02_JPRB, 0.319661E-02_JPRB &
+  &, 0.265816E-02_JPRB, 0.221470E-02_JPRB, 0.183828E-02_JPRB &
+  &, 0.151617E-02_JPRB, 0.125278E-02_JPRB, 0.103369E-02_JPRB, 0.842974E-03_JPRB &
+  &, 0.682918E-03_JPRB, 0.555883E-03_JPRB, 0.443650E-03_JPRB &
+  &, 0.347410E-03_JPRB, 0.289918E-03_JPRB, 0.229822E-03_JPRB, 0.189505E-03_JPRB &
+  &, 0.147401E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  79, :) = (/ &
+  &  0.861754E+00_JPRB, 0.828382E+00_JPRB, 0.795521E+00_JPRB, 0.763191E+00_JPRB &
+  &, 0.731407E+00_JPRB, 0.700188E+00_JPRB, 0.669549E+00_JPRB &
+  &, 0.639509E+00_JPRB, 0.610083E+00_JPRB, 0.581288E+00_JPRB, 0.553140E+00_JPRB &
+  &, 0.525654E+00_JPRB, 0.498845E+00_JPRB, 0.472727E+00_JPRB &
+  &, 0.447316E+00_JPRB, 0.422624E+00_JPRB, 0.398662E+00_JPRB, 0.375445E+00_JPRB &
+  &, 0.352980E+00_JPRB, 0.331277E+00_JPRB, 0.310349E+00_JPRB &
+  &, 0.290199E+00_JPRB, 0.270838E+00_JPRB, 0.252262E+00_JPRB, 0.234481E+00_JPRB &
+  &, 0.217492E+00_JPRB, 0.201298E+00_JPRB, 0.185892E+00_JPRB &
+  &, 0.171271E+00_JPRB, 0.157430E+00_JPRB, 0.144354E+00_JPRB, 0.132039E+00_JPRB &
+  &, 0.120469E+00_JPRB, 0.109627E+00_JPRB, 0.994961E-01_JPRB &
+  &, 0.900558E-01_JPRB, 0.812916E-01_JPRB, 0.731700E-01_JPRB, 0.656770E-01_JPRB &
+  &, 0.587740E-01_JPRB, 0.524475E-01_JPRB, 0.466588E-01_JPRB &
+  &, 0.413845E-01_JPRB, 0.365965E-01_JPRB, 0.322617E-01_JPRB, 0.283412E-01_JPRB &
+  &, 0.248267E-01_JPRB, 0.216820E-01_JPRB, 0.188656E-01_JPRB &
+  &, 0.163691E-01_JPRB, 0.141551E-01_JPRB, 0.121947E-01_JPRB, 0.104829E-01_JPRB &
+  &, 0.896971E-02_JPRB, 0.765843E-02_JPRB, 0.650615E-02_JPRB &
+  &, 0.552700E-02_JPRB, 0.465634E-02_JPRB, 0.392007E-02_JPRB, 0.329619E-02_JPRB &
+  &, 0.276001E-02_JPRB, 0.230150E-02_JPRB, 0.190928E-02_JPRB &
+  &, 0.157061E-02_JPRB, 0.128988E-02_JPRB, 0.107161E-02_JPRB, 0.862346E-03_JPRB &
+  &, 0.702710E-03_JPRB, 0.576101E-03_JPRB, 0.464300E-03_JPRB &
+  &, 0.368498E-03_JPRB, 0.289918E-03_JPRB, 0.229822E-03_JPRB, 0.189505E-03_JPRB &
+  &, 0.147401E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  80, :) = (/ &
+  &  0.862372E+00_JPRB, 0.829134E+00_JPRB, 0.796400E+00_JPRB, 0.764188E+00_JPRB &
+  &, 0.732514E+00_JPRB, 0.701396E+00_JPRB, 0.670852E+00_JPRB &
+  &, 0.640898E+00_JPRB, 0.611550E+00_JPRB, 0.582826E+00_JPRB, 0.554741E+00_JPRB &
+  &, 0.527309E+00_JPRB, 0.500547E+00_JPRB, 0.474470E+00_JPRB &
+  &, 0.449091E+00_JPRB, 0.424424E+00_JPRB, 0.400481E+00_JPRB, 0.377274E+00_JPRB &
+  &, 0.354814E+00_JPRB, 0.333111E+00_JPRB, 0.312174E+00_JPRB &
+  &, 0.292010E+00_JPRB, 0.272626E+00_JPRB, 0.254025E+00_JPRB, 0.236211E+00_JPRB &
+  &, 0.219187E+00_JPRB, 0.202952E+00_JPRB, 0.187503E+00_JPRB &
+  &, 0.172835E+00_JPRB, 0.158940E+00_JPRB, 0.145812E+00_JPRB, 0.133437E+00_JPRB &
+  &, 0.121807E+00_JPRB, 0.110906E+00_JPRB, 0.100712E+00_JPRB &
+  &, 0.912092E-01_JPRB, 0.823788E-01_JPRB, 0.741967E-01_JPRB, 0.666294E-01_JPRB &
+  &, 0.596682E-01_JPRB, 0.532801E-01_JPRB, 0.474366E-01_JPRB &
+  &, 0.421043E-01_JPRB, 0.372549E-01_JPRB, 0.328667E-01_JPRB, 0.289016E-01_JPRB &
+  &, 0.253399E-01_JPRB, 0.221327E-01_JPRB, 0.192888E-01_JPRB &
+  &, 0.167370E-01_JPRB, 0.144916E-01_JPRB, 0.124979E-01_JPRB, 0.107510E-01_JPRB &
+  &, 0.921537E-02_JPRB, 0.786554E-02_JPRB, 0.670301E-02_JPRB &
+  &, 0.568197E-02_JPRB, 0.479906E-02_JPRB, 0.404987E-02_JPRB, 0.339577E-02_JPRB &
+  &, 0.284489E-02_JPRB, 0.237094E-02_JPRB, 0.198028E-02_JPRB &
+  &, 0.162505E-02_JPRB, 0.134552E-02_JPRB, 0.110952E-02_JPRB, 0.901089E-03_JPRB &
+  &, 0.742293E-03_JPRB, 0.596319E-03_JPRB, 0.484950E-03_JPRB &
+  &, 0.389586E-03_JPRB, 0.311450E-03_JPRB, 0.251804E-03_JPRB, 0.189505E-03_JPRB &
+  &, 0.147401E-03_JPRB, 0.126840E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  81, :) = (/ &
+  &  0.862984E+00_JPRB, 0.829880E+00_JPRB, 0.797271E+00_JPRB, 0.765176E+00_JPRB &
+  &, 0.733612E+00_JPRB, 0.702595E+00_JPRB, 0.672145E+00_JPRB &
+  &, 0.642276E+00_JPRB, 0.613006E+00_JPRB, 0.584352E+00_JPRB, 0.556329E+00_JPRB &
+  &, 0.528953E+00_JPRB, 0.502238E+00_JPRB, 0.476201E+00_JPRB &
+  &, 0.450854E+00_JPRB, 0.426212E+00_JPRB, 0.402287E+00_JPRB, 0.379093E+00_JPRB &
+  &, 0.356637E+00_JPRB, 0.334932E+00_JPRB, 0.313987E+00_JPRB &
+  &, 0.293810E+00_JPRB, 0.274406E+00_JPRB, 0.255781E+00_JPRB, 0.237938E+00_JPRB &
+  &, 0.220878E+00_JPRB, 0.204603E+00_JPRB, 0.189109E+00_JPRB &
+  &, 0.174391E+00_JPRB, 0.160447E+00_JPRB, 0.147262E+00_JPRB, 0.134834E+00_JPRB &
+  &, 0.123145E+00_JPRB, 0.112180E+00_JPRB, 0.101923E+00_JPRB &
+  &, 0.923626E-01_JPRB, 0.834660E-01_JPRB, 0.752136E-01_JPRB, 0.675918E-01_JPRB &
+  &, 0.605728E-01_JPRB, 0.541126E-01_JPRB, 0.482145E-01_JPRB &
+  &, 0.428242E-01_JPRB, 0.379133E-01_JPRB, 0.334717E-01_JPRB, 0.294620E-01_JPRB &
+  &, 0.258408E-01_JPRB, 0.225960E-01_JPRB, 0.196993E-01_JPRB &
+  &, 0.171181E-01_JPRB, 0.148281E-01_JPRB, 0.128011E-01_JPRB, 0.110192E-01_JPRB &
+  &, 0.944659E-02_JPRB, 0.807266E-02_JPRB, 0.688472E-02_JPRB &
+  &, 0.583695E-02_JPRB, 0.494178E-02_JPRB, 0.417966E-02_JPRB, 0.351195E-02_JPRB &
+  &, 0.292977E-02_JPRB, 0.245774E-02_JPRB, 0.203353E-02_JPRB &
+  &, 0.169764E-02_JPRB, 0.140117E-02_JPRB, 0.114743E-02_JPRB, 0.939832E-03_JPRB &
+  &, 0.762085E-03_JPRB, 0.616537E-03_JPRB, 0.505600E-03_JPRB &
+  &, 0.410674E-03_JPRB, 0.332983E-03_JPRB, 0.251804E-03_JPRB, 0.211943E-03_JPRB &
+  &, 0.170301E-03_JPRB, 0.126840E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  82, :) = (/ &
+  &  0.863590E+00_JPRB, 0.830619E+00_JPRB, 0.798134E+00_JPRB, 0.766156E+00_JPRB &
+  &, 0.734699E+00_JPRB, 0.703784E+00_JPRB, 0.673426E+00_JPRB &
+  &, 0.643643E+00_JPRB, 0.614451E+00_JPRB, 0.585867E+00_JPRB, 0.557906E+00_JPRB &
+  &, 0.530584E+00_JPRB, 0.503917E+00_JPRB, 0.477919E+00_JPRB &
+  &, 0.452606E+00_JPRB, 0.427989E+00_JPRB, 0.404083E+00_JPRB, 0.380899E+00_JPRB &
+  &, 0.358450E+00_JPRB, 0.336744E+00_JPRB, 0.315793E+00_JPRB &
+  &, 0.295600E+00_JPRB, 0.276176E+00_JPRB, 0.257526E+00_JPRB, 0.239654E+00_JPRB &
+  &, 0.222562E+00_JPRB, 0.206246E+00_JPRB, 0.190708E+00_JPRB &
+  &, 0.175943E+00_JPRB, 0.161950E+00_JPRB, 0.148711E+00_JPRB, 0.136228E+00_JPRB &
+  &, 0.124478E+00_JPRB, 0.113454E+00_JPRB, 0.103138E+00_JPRB &
+  &, 0.935066E-01_JPRB, 0.845531E-01_JPRB, 0.762403E-01_JPRB, 0.685543E-01_JPRB &
+  &, 0.614670E-01_JPRB, 0.549556E-01_JPRB, 0.489923E-01_JPRB &
+  &, 0.435440E-01_JPRB, 0.385831E-01_JPRB, 0.340884E-01_JPRB, 0.300225E-01_JPRB &
+  &, 0.263540E-01_JPRB, 0.230592E-01_JPRB, 0.201226E-01_JPRB &
+  &, 0.174991E-01_JPRB, 0.151645E-01_JPRB, 0.131044E-01_JPRB, 0.112874E-01_JPRB &
+  &, 0.969226E-02_JPRB, 0.829456E-02_JPRB, 0.706643E-02_JPRB &
+  &, 0.600742E-02_JPRB, 0.508450E-02_JPRB, 0.429324E-02_JPRB, 0.361153E-02_JPRB &
+  &, 0.303162E-02_JPRB, 0.252718E-02_JPRB, 0.210453E-02_JPRB &
+  &, 0.175208E-02_JPRB, 0.145682E-02_JPRB, 0.118535E-02_JPRB, 0.978575E-03_JPRB &
+  &, 0.801669E-03_JPRB, 0.656972E-03_JPRB, 0.526251E-03_JPRB &
+  &, 0.431762E-03_JPRB, 0.332983E-03_JPRB, 0.273786E-03_JPRB, 0.211943E-03_JPRB &
+  &, 0.170301E-03_JPRB, 0.126840E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  83, :) = (/ &
+  &  0.864193E+00_JPRB, 0.831352E+00_JPRB, 0.798990E+00_JPRB, 0.767127E+00_JPRB &
+  &, 0.735779E+00_JPRB, 0.704964E+00_JPRB, 0.674698E+00_JPRB &
+  &, 0.644999E+00_JPRB, 0.615884E+00_JPRB, 0.587370E+00_JPRB, 0.559471E+00_JPRB &
+  &, 0.532204E+00_JPRB, 0.505583E+00_JPRB, 0.479627E+00_JPRB &
+  &, 0.454346E+00_JPRB, 0.429755E+00_JPRB, 0.405868E+00_JPRB, 0.382697E+00_JPRB &
+  &, 0.360253E+00_JPRB, 0.338546E+00_JPRB, 0.317586E+00_JPRB &
+  &, 0.297384E+00_JPRB, 0.277940E+00_JPRB, 0.259268E+00_JPRB, 0.241366E+00_JPRB &
+  &, 0.224239E+00_JPRB, 0.207885E+00_JPRB, 0.192304E+00_JPRB &
+  &, 0.177495E+00_JPRB, 0.163448E+00_JPRB, 0.150161E+00_JPRB, 0.137617E+00_JPRB &
+  &, 0.125812E+00_JPRB, 0.114728E+00_JPRB, 0.104354E+00_JPRB &
+  &, 0.946600E-01_JPRB, 0.856403E-01_JPRB, 0.772670E-01_JPRB, 0.695267E-01_JPRB &
+  &, 0.623716E-01_JPRB, 0.557987E-01_JPRB, 0.497702E-01_JPRB &
+  &, 0.442638E-01_JPRB, 0.392528E-01_JPRB, 0.347050E-01_JPRB, 0.305829E-01_JPRB &
+  &, 0.268672E-01_JPRB, 0.235350E-01_JPRB, 0.205459E-01_JPRB &
+  &, 0.178802E-01_JPRB, 0.155144E-01_JPRB, 0.134214E-01_JPRB, 0.115697E-01_JPRB &
+  &, 0.993793E-02_JPRB, 0.851647E-02_JPRB, 0.726328E-02_JPRB &
+  &, 0.617788E-02_JPRB, 0.524308E-02_JPRB, 0.442303E-02_JPRB, 0.372771E-02_JPRB &
+  &, 0.313347E-02_JPRB, 0.261398E-02_JPRB, 0.217553E-02_JPRB &
+  &, 0.180652E-02_JPRB, 0.149392E-02_JPRB, 0.124222E-02_JPRB, 0.101732E-02_JPRB &
+  &, 0.841252E-03_JPRB, 0.677190E-03_JPRB, 0.546901E-03_JPRB &
+  &, 0.452850E-03_JPRB, 0.354515E-03_JPRB, 0.295768E-03_JPRB, 0.234382E-03_JPRB &
+  &, 0.170301E-03_JPRB, 0.150208E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  84, :) = (/ &
+  &  0.864789E+00_JPRB, 0.832078E+00_JPRB, 0.799839E+00_JPRB, 0.768091E+00_JPRB &
+  &, 0.736849E+00_JPRB, 0.706133E+00_JPRB, 0.675960E+00_JPRB &
+  &, 0.646346E+00_JPRB, 0.617307E+00_JPRB, 0.588862E+00_JPRB, 0.561024E+00_JPRB &
+  &, 0.533812E+00_JPRB, 0.507240E+00_JPRB, 0.481322E+00_JPRB &
+  &, 0.456075E+00_JPRB, 0.431510E+00_JPRB, 0.407643E+00_JPRB, 0.384483E+00_JPRB &
+  &, 0.362045E+00_JPRB, 0.340338E+00_JPRB, 0.319372E+00_JPRB &
+  &, 0.299158E+00_JPRB, 0.279697E+00_JPRB, 0.261000E+00_JPRB, 0.243071E+00_JPRB &
+  &, 0.225909E+00_JPRB, 0.209516E+00_JPRB, 0.193895E+00_JPRB &
+  &, 0.179040E+00_JPRB, 0.164943E+00_JPRB, 0.151603E+00_JPRB, 0.139006E+00_JPRB &
+  &, 0.127145E+00_JPRB, 0.116002E+00_JPRB, 0.105565E+00_JPRB &
+  &, 0.958134E-01_JPRB, 0.867371E-01_JPRB, 0.783035E-01_JPRB, 0.704892E-01_JPRB &
+  &, 0.632864E-01_JPRB, 0.566522E-01_JPRB, 0.505588E-01_JPRB &
+  &, 0.449948E-01_JPRB, 0.399226E-01_JPRB, 0.353217E-01_JPRB, 0.311552E-01_JPRB &
+  &, 0.273926E-01_JPRB, 0.240107E-01_JPRB, 0.209820E-01_JPRB &
+  &, 0.182744E-01_JPRB, 0.158644E-01_JPRB, 0.137246E-01_JPRB, 0.118378E-01_JPRB &
+  &, 0.101836E-01_JPRB, 0.872359E-02_JPRB, 0.746013E-02_JPRB &
+  &, 0.634835E-02_JPRB, 0.538580E-02_JPRB, 0.455282E-02_JPRB, 0.384389E-02_JPRB &
+  &, 0.323533E-02_JPRB, 0.270078E-02_JPRB, 0.226428E-02_JPRB &
+  &, 0.187910E-02_JPRB, 0.154956E-02_JPRB, 0.128014E-02_JPRB, 0.105606E-02_JPRB &
+  &, 0.861044E-03_JPRB, 0.697408E-03_JPRB, 0.567551E-03_JPRB &
+  &, 0.473939E-03_JPRB, 0.376047E-03_JPRB, 0.295768E-03_JPRB, 0.234382E-03_JPRB &
+  &, 0.193201E-03_JPRB, 0.150208E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART13',0,ZHOOK_HANDLE)
+
+XCW(  85, :) = (/ &
+  &  0.865380E+00_JPRB, 0.832799E+00_JPRB, 0.800680E+00_JPRB, 0.769044E+00_JPRB &
+  &, 0.737911E+00_JPRB, 0.707294E+00_JPRB, 0.677212E+00_JPRB &
+  &, 0.647681E+00_JPRB, 0.618720E+00_JPRB, 0.590343E+00_JPRB, 0.562567E+00_JPRB &
+  &, 0.535408E+00_JPRB, 0.508884E+00_JPRB, 0.483007E+00_JPRB &
+  &, 0.457792E+00_JPRB, 0.433254E+00_JPRB, 0.409405E+00_JPRB, 0.386259E+00_JPRB &
+  &, 0.363827E+00_JPRB, 0.342121E+00_JPRB, 0.321149E+00_JPRB &
+  &, 0.300922E+00_JPRB, 0.281447E+00_JPRB, 0.262725E+00_JPRB, 0.244769E+00_JPRB &
+  &, 0.227575E+00_JPRB, 0.211144E+00_JPRB, 0.195483E+00_JPRB &
+  &, 0.180580E+00_JPRB, 0.166437E+00_JPRB, 0.153044E+00_JPRB, 0.140395E+00_JPRB &
+  &, 0.128479E+00_JPRB, 0.117277E+00_JPRB, 0.106781E+00_JPRB &
+  &, 0.969667E-01_JPRB, 0.878242E-01_JPRB, 0.793302E-01_JPRB, 0.714617E-01_JPRB &
+  &, 0.641909E-01_JPRB, 0.574953E-01_JPRB, 0.513474E-01_JPRB &
+  &, 0.457257E-01_JPRB, 0.406037E-01_JPRB, 0.359383E-01_JPRB, 0.317276E-01_JPRB &
+  &, 0.279181E-01_JPRB, 0.244865E-01_JPRB, 0.214053E-01_JPRB &
+  &, 0.186554E-01_JPRB, 0.162143E-01_JPRB, 0.140417E-01_JPRB, 0.121342E-01_JPRB &
+  &, 0.104437E-01_JPRB, 0.896029E-02_JPRB, 0.765699E-02_JPRB &
+  &, 0.651882E-02_JPRB, 0.554438E-02_JPRB, 0.469884E-02_JPRB, 0.396006E-02_JPRB &
+  &, 0.333718E-02_JPRB, 0.278757E-02_JPRB, 0.233528E-02_JPRB &
+  &, 0.193354E-02_JPRB, 0.160521E-02_JPRB, 0.133701E-02_JPRB, 0.109480E-02_JPRB &
+  &, 0.900627E-03_JPRB, 0.737844E-03_JPRB, 0.608851E-03_JPRB &
+  &, 0.495027E-03_JPRB, 0.397579E-03_JPRB, 0.317751E-03_JPRB, 0.256820E-03_JPRB &
+  &, 0.193201E-03_JPRB, 0.150208E-03_JPRB, 0.129209E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  86, :) = (/ &
+  &  0.865968E+00_JPRB, 0.833513E+00_JPRB, 0.801515E+00_JPRB, 0.769993E+00_JPRB &
+  &, 0.738964E+00_JPRB, 0.708446E+00_JPRB, 0.678454E+00_JPRB &
+  &, 0.649007E+00_JPRB, 0.620121E+00_JPRB, 0.591813E+00_JPRB, 0.564099E+00_JPRB &
+  &, 0.536995E+00_JPRB, 0.510517E+00_JPRB, 0.484681E+00_JPRB &
+  &, 0.459499E+00_JPRB, 0.434987E+00_JPRB, 0.411159E+00_JPRB, 0.388026E+00_JPRB &
+  &, 0.365503E+00_JPRB, 0.343894E+00_JPRB, 0.322920E+00_JPRB &
+  &, 0.302679E+00_JPRB, 0.283187E+00_JPRB, 0.264443E+00_JPRB, 0.246460E+00_JPRB &
+  &, 0.229233E+00_JPRB, 0.212769E+00_JPRB, 0.197066E+00_JPRB &
+  &, 0.182121E+00_JPRB, 0.167928E+00_JPRB, 0.154486E+00_JPRB, 0.141784E+00_JPRB &
+  &, 0.129808E+00_JPRB, 0.118551E+00_JPRB, 0.107996E+00_JPRB &
+  &, 0.981201E-01_JPRB, 0.889210E-01_JPRB, 0.803667E-01_JPRB, 0.724341E-01_JPRB &
+  &, 0.651057E-01_JPRB, 0.583489E-01_JPRB, 0.521469E-01_JPRB &
+  &, 0.464677E-01_JPRB, 0.412848E-01_JPRB, 0.365666E-01_JPRB, 0.322999E-01_JPRB &
+  &, 0.284435E-01_JPRB, 0.249623E-01_JPRB, 0.218414E-01_JPRB &
+  &, 0.190628E-01_JPRB, 0.165777E-01_JPRB, 0.143587E-01_JPRB, 0.124165E-01_JPRB &
+  &, 0.106894E-01_JPRB, 0.918220E-02_JPRB, 0.785384E-02_JPRB &
+  &, 0.670479E-02_JPRB, 0.570295E-02_JPRB, 0.482864E-02_JPRB, 0.407624E-02_JPRB &
+  &, 0.343903E-02_JPRB, 0.287437E-02_JPRB, 0.240628E-02_JPRB &
+  &, 0.200613E-02_JPRB, 0.166086E-02_JPRB, 0.137492E-02_JPRB, 0.113355E-02_JPRB &
+  &, 0.940211E-03_JPRB, 0.758062E-03_JPRB, 0.629501E-03_JPRB &
+  &, 0.516115E-03_JPRB, 0.419111E-03_JPRB, 0.339733E-03_JPRB, 0.256820E-03_JPRB &
+  &, 0.216101E-03_JPRB, 0.173576E-03_JPRB, 0.129209E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  87, :) = (/ &
+  &  0.866548E+00_JPRB, 0.834220E+00_JPRB, 0.802343E+00_JPRB, 0.770934E+00_JPRB &
+  &, 0.740009E+00_JPRB, 0.709588E+00_JPRB, 0.679687E+00_JPRB &
+  &, 0.650322E+00_JPRB, 0.621513E+00_JPRB, 0.593273E+00_JPRB, 0.565621E+00_JPRB &
+  &, 0.538571E+00_JPRB, 0.512141E+00_JPRB, 0.486322E+00_JPRB &
+  &, 0.461195E+00_JPRB, 0.436710E+00_JPRB, 0.412901E+00_JPRB, 0.389783E+00_JPRB &
+  &, 0.367366E+00_JPRB, 0.345661E+00_JPRB, 0.324677E+00_JPRB &
+  &, 0.304430E+00_JPRB, 0.284920E+00_JPRB, 0.266157E+00_JPRB, 0.248144E+00_JPRB &
+  &, 0.230888E+00_JPRB, 0.214385E+00_JPRB, 0.198642E+00_JPRB &
+  &, 0.183654E+00_JPRB, 0.169418E+00_JPRB, 0.155923E+00_JPRB, 0.143169E+00_JPRB &
+  &, 0.131137E+00_JPRB, 0.119825E+00_JPRB, 0.109207E+00_JPRB &
+  &, 0.992734E-01_JPRB, 0.900177E-01_JPRB, 0.813934E-01_JPRB, 0.734066E-01_JPRB &
+  &, 0.660103E-01_JPRB, 0.592025E-01_JPRB, 0.529463E-01_JPRB &
+  &, 0.472097E-01_JPRB, 0.419659E-01_JPRB, 0.372065E-01_JPRB, 0.328842E-01_JPRB &
+  &, 0.289689E-01_JPRB, 0.254505E-01_JPRB, 0.222903E-01_JPRB &
+  &, 0.194570E-01_JPRB, 0.169276E-01_JPRB, 0.146895E-01_JPRB, 0.126988E-01_JPRB &
+  &, 0.109495E-01_JPRB, 0.940410E-02_JPRB, 0.806584E-02_JPRB &
+  &, 0.687526E-02_JPRB, 0.586153E-02_JPRB, 0.497466E-02_JPRB, 0.419242E-02_JPRB &
+  &, 0.354088E-02_JPRB, 0.297853E-02_JPRB, 0.249504E-02_JPRB &
+  &, 0.207872E-02_JPRB, 0.171650E-02_JPRB, 0.143179E-02_JPRB, 0.117229E-02_JPRB &
+  &, 0.960002E-03_JPRB, 0.798498E-03_JPRB, 0.650151E-03_JPRB &
+  &, 0.537203E-03_JPRB, 0.419111E-03_JPRB, 0.339733E-03_JPRB, 0.279258E-03_JPRB &
+  &, 0.216101E-03_JPRB, 0.173576E-03_JPRB, 0.129209E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  88, :) = (/ &
+  &  0.867125E+00_JPRB, 0.834923E+00_JPRB, 0.803164E+00_JPRB, 0.771867E+00_JPRB &
+  &, 0.741047E+00_JPRB, 0.710722E+00_JPRB, 0.680911E+00_JPRB &
+  &, 0.651629E+00_JPRB, 0.622895E+00_JPRB, 0.594723E+00_JPRB, 0.567132E+00_JPRB &
+  &, 0.540136E+00_JPRB, 0.513753E+00_JPRB, 0.487996E+00_JPRB &
+  &, 0.462881E+00_JPRB, 0.438423E+00_JPRB, 0.414636E+00_JPRB, 0.391530E+00_JPRB &
+  &, 0.369121E+00_JPRB, 0.347416E+00_JPRB, 0.326431E+00_JPRB &
+  &, 0.306170E+00_JPRB, 0.286646E+00_JPRB, 0.267861E+00_JPRB, 0.249824E+00_JPRB &
+  &, 0.232536E+00_JPRB, 0.216002E+00_JPRB, 0.200218E+00_JPRB &
+  &, 0.185187E+00_JPRB, 0.170901E+00_JPRB, 0.157360E+00_JPRB, 0.144550E+00_JPRB &
+  &, 0.132466E+00_JPRB, 0.121095E+00_JPRB, 0.110423E+00_JPRB &
+  &, 0.100436E+00_JPRB, 0.911144E-01_JPRB, 0.824299E-01_JPRB, 0.743791E-01_JPRB &
+  &, 0.669353E-01_JPRB, 0.600560E-01_JPRB, 0.537350E-01_JPRB &
+  &, 0.479517E-01_JPRB, 0.426583E-01_JPRB, 0.378348E-01_JPRB, 0.334565E-01_JPRB &
+  &, 0.295065E-01_JPRB, 0.259388E-01_JPRB, 0.227265E-01_JPRB &
+  &, 0.198511E-01_JPRB, 0.172910E-01_JPRB, 0.150203E-01_JPRB, 0.129952E-01_JPRB &
+  &, 0.112096E-01_JPRB, 0.964081E-02_JPRB, 0.826269E-02_JPRB &
+  &, 0.706122E-02_JPRB, 0.602011E-02_JPRB, 0.510445E-02_JPRB, 0.432520E-02_JPRB &
+  &, 0.364273E-02_JPRB, 0.306533E-02_JPRB, 0.256604E-02_JPRB &
+  &, 0.215130E-02_JPRB, 0.179070E-02_JPRB, 0.146971E-02_JPRB, 0.123040E-02_JPRB &
+  &, 0.999586E-03_JPRB, 0.818715E-03_JPRB, 0.670801E-03_JPRB &
+  &, 0.558291E-03_JPRB, 0.440643E-03_JPRB, 0.361715E-03_JPRB, 0.279258E-03_JPRB &
+  &, 0.239001E-03_JPRB, 0.173576E-03_JPRB, 0.153051E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  89, :) = (/ &
+  &  0.867697E+00_JPRB, 0.835621E+00_JPRB, 0.803980E+00_JPRB, 0.772792E+00_JPRB &
+  &, 0.742076E+00_JPRB, 0.711848E+00_JPRB, 0.682126E+00_JPRB &
+  &, 0.652926E+00_JPRB, 0.624267E+00_JPRB, 0.596162E+00_JPRB, 0.568633E+00_JPRB &
+  &, 0.541690E+00_JPRB, 0.515354E+00_JPRB, 0.489639E+00_JPRB &
+  &, 0.464558E+00_JPRB, 0.440127E+00_JPRB, 0.416358E+00_JPRB, 0.393268E+00_JPRB &
+  &, 0.370866E+00_JPRB, 0.349164E+00_JPRB, 0.328172E+00_JPRB &
+  &, 0.307904E+00_JPRB, 0.288362E+00_JPRB, 0.269558E+00_JPRB, 0.251497E+00_JPRB &
+  &, 0.234180E+00_JPRB, 0.217608E+00_JPRB, 0.201787E+00_JPRB &
+  &, 0.186715E+00_JPRB, 0.172384E+00_JPRB, 0.158794E+00_JPRB, 0.145931E+00_JPRB &
+  &, 0.133795E+00_JPRB, 0.122369E+00_JPRB, 0.111639E+00_JPRB &
+  &, 0.101589E+00_JPRB, 0.922111E-01_JPRB, 0.834664E-01_JPRB, 0.753616E-01_JPRB &
+  &, 0.678502E-01_JPRB, 0.609202E-01_JPRB, 0.545452E-01_JPRB &
+  &, 0.486937E-01_JPRB, 0.433508E-01_JPRB, 0.384747E-01_JPRB, 0.340527E-01_JPRB &
+  &, 0.300442E-01_JPRB, 0.264271E-01_JPRB, 0.231754E-01_JPRB &
+  &, 0.202585E-01_JPRB, 0.176544E-01_JPRB, 0.153511E-01_JPRB, 0.132916E-01_JPRB &
+  &, 0.114698E-01_JPRB, 0.987751E-02_JPRB, 0.847469E-02_JPRB &
+  &, 0.724719E-02_JPRB, 0.617869E-02_JPRB, 0.525047E-02_JPRB, 0.444137E-02_JPRB &
+  &, 0.376156E-02_JPRB, 0.315213E-02_JPRB, 0.265479E-02_JPRB &
+  &, 0.220574E-02_JPRB, 0.184635E-02_JPRB, 0.152658E-02_JPRB, 0.126915E-02_JPRB &
+  &, 0.103917E-02_JPRB, 0.859151E-03_JPRB, 0.691451E-03_JPRB &
+  &, 0.579379E-03_JPRB, 0.462176E-03_JPRB, 0.383697E-03_JPRB, 0.301696E-03_JPRB &
+  &, 0.239001E-03_JPRB, 0.196944E-03_JPRB, 0.153051E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  90, :) = (/ &
+  &  0.868265E+00_JPRB, 0.836312E+00_JPRB, 0.804788E+00_JPRB, 0.773711E+00_JPRB &
+  &, 0.743097E+00_JPRB, 0.712965E+00_JPRB, 0.683332E+00_JPRB &
+  &, 0.654214E+00_JPRB, 0.625629E+00_JPRB, 0.597593E+00_JPRB, 0.570124E+00_JPRB &
+  &, 0.543236E+00_JPRB, 0.516946E+00_JPRB, 0.491271E+00_JPRB &
+  &, 0.466224E+00_JPRB, 0.441820E+00_JPRB, 0.418073E+00_JPRB, 0.394996E+00_JPRB &
+  &, 0.372603E+00_JPRB, 0.350902E+00_JPRB, 0.329910E+00_JPRB &
+  &, 0.309632E+00_JPRB, 0.290075E+00_JPRB, 0.271252E+00_JPRB, 0.253163E+00_JPRB &
+  &, 0.235817E+00_JPRB, 0.219213E+00_JPRB, 0.203355E+00_JPRB &
+  &, 0.188236E+00_JPRB, 0.173862E+00_JPRB, 0.160223E+00_JPRB, 0.147311E+00_JPRB &
+  &, 0.135120E+00_JPRB, 0.123638E+00_JPRB, 0.112854E+00_JPRB &
+  &, 0.102743E+00_JPRB, 0.933079E-01_JPRB, 0.845126E-01_JPRB, 0.763341E-01_JPRB &
+  &, 0.687753E-01_JPRB, 0.617843E-01_JPRB, 0.553447E-01_JPRB &
+  &, 0.494467E-01_JPRB, 0.440432E-01_JPRB, 0.391146E-01_JPRB, 0.346370E-01_JPRB &
+  &, 0.305818E-01_JPRB, 0.269154E-01_JPRB, 0.236243E-01_JPRB &
+  &, 0.206658E-01_JPRB, 0.180312E-01_JPRB, 0.156819E-01_JPRB, 0.135880E-01_JPRB &
+  &, 0.117443E-01_JPRB, 0.101142E-01_JPRB, 0.868668E-02_JPRB &
+  &, 0.743316E-02_JPRB, 0.633727E-02_JPRB, 0.539649E-02_JPRB, 0.457415E-02_JPRB &
+  &, 0.386341E-02_JPRB, 0.325629E-02_JPRB, 0.272579E-02_JPRB &
+  &, 0.227833E-02_JPRB, 0.190199E-02_JPRB, 0.158345E-02_JPRB, 0.130789E-02_JPRB &
+  &, 0.107875E-02_JPRB, 0.879369E-03_JPRB, 0.732751E-03_JPRB &
+  &, 0.600467E-03_JPRB, 0.483708E-03_JPRB, 0.383697E-03_JPRB, 0.324134E-03_JPRB &
+  &, 0.261901E-03_JPRB, 0.196944E-03_JPRB, 0.153051E-03_JPRB &
+  &, 0.131608E-03_JPRB, 0.844223E-04_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  91, :) = (/ &
+  &  0.868828E+00_JPRB, 0.836998E+00_JPRB, 0.805590E+00_JPRB, 0.774623E+00_JPRB &
+  &, 0.744111E+00_JPRB, 0.714075E+00_JPRB, 0.684529E+00_JPRB &
+  &, 0.655493E+00_JPRB, 0.626982E+00_JPRB, 0.599014E+00_JPRB, 0.571606E+00_JPRB &
+  &, 0.544772E+00_JPRB, 0.518529E+00_JPRB, 0.492894E+00_JPRB &
+  &, 0.467881E+00_JPRB, 0.443503E+00_JPRB, 0.419778E+00_JPRB, 0.396715E+00_JPRB &
+  &, 0.374331E+00_JPRB, 0.352634E+00_JPRB, 0.331635E+00_JPRB &
+  &, 0.311349E+00_JPRB, 0.291781E+00_JPRB, 0.272935E+00_JPRB, 0.254826E+00_JPRB &
+  &, 0.237450E+00_JPRB, 0.220811E+00_JPRB, 0.204916E+00_JPRB &
+  &, 0.189757E+00_JPRB, 0.175341E+00_JPRB, 0.161652E+00_JPRB, 0.148692E+00_JPRB &
+  &, 0.136449E+00_JPRB, 0.124913E+00_JPRB, 0.114070E+00_JPRB &
+  &, 0.103905E+00_JPRB, 0.944046E-01_JPRB, 0.855491E-01_JPRB, 0.773166E-01_JPRB &
+  &, 0.696901E-01_JPRB, 0.626484E-01_JPRB, 0.561549E-01_JPRB &
+  &, 0.501998E-01_JPRB, 0.447357E-01_JPRB, 0.397662E-01_JPRB, 0.352332E-01_JPRB &
+  &, 0.311316E-01_JPRB, 0.274162E-01_JPRB, 0.240861E-01_JPRB &
+  &, 0.210863E-01_JPRB, 0.184081E-01_JPRB, 0.160127E-01_JPRB, 0.138985E-01_JPRB &
+  &, 0.120189E-01_JPRB, 0.103509E-01_JPRB, 0.889868E-02_JPRB &
+  &, 0.761912E-02_JPRB, 0.651170E-02_JPRB, 0.554251E-02_JPRB, 0.470692E-02_JPRB &
+  &, 0.398224E-02_JPRB, 0.334309E-02_JPRB, 0.281454E-02_JPRB &
+  &, 0.235091E-02_JPRB, 0.197619E-02_JPRB, 0.164032E-02_JPRB, 0.136600E-02_JPRB &
+  &, 0.111834E-02_JPRB, 0.919805E-03_JPRB, 0.753401E-03_JPRB &
+  &, 0.621555E-03_JPRB, 0.505240E-03_JPRB, 0.405679E-03_JPRB, 0.324134E-03_JPRB &
+  &, 0.261901E-03_JPRB, 0.220312E-03_JPRB, 0.176893E-03_JPRB &
+  &, 0.131608E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART14',0,ZHOOK_HANDLE)
+
+XCW(  92, :) = (/ &
+  &  0.869385E+00_JPRB, 0.837680E+00_JPRB, 0.806387E+00_JPRB, 0.775527E+00_JPRB &
+  &, 0.745118E+00_JPRB, 0.715176E+00_JPRB, 0.685718E+00_JPRB &
+  &, 0.656762E+00_JPRB, 0.628326E+00_JPRB, 0.600425E+00_JPRB, 0.573077E+00_JPRB &
+  &, 0.546297E+00_JPRB, 0.520102E+00_JPRB, 0.494507E+00_JPRB &
+  &, 0.469528E+00_JPRB, 0.445178E+00_JPRB, 0.421474E+00_JPRB, 0.398426E+00_JPRB &
+  &, 0.376050E+00_JPRB, 0.354357E+00_JPRB, 0.333357E+00_JPRB &
+  &, 0.313060E+00_JPRB, 0.293480E+00_JPRB, 0.274615E+00_JPRB, 0.256481E+00_JPRB &
+  &, 0.239076E+00_JPRB, 0.222406E+00_JPRB, 0.206473E+00_JPRB &
+  &, 0.191278E+00_JPRB, 0.176815E+00_JPRB, 0.163081E+00_JPRB, 0.150069E+00_JPRB &
+  &, 0.137774E+00_JPRB, 0.126182E+00_JPRB, 0.115286E+00_JPRB &
+  &, 0.105059E+00_JPRB, 0.955013E-01_JPRB, 0.865954E-01_JPRB, 0.783091E-01_JPRB &
+  &, 0.706152E-01_JPRB, 0.635125E-01_JPRB, 0.569652E-01_JPRB &
+  &, 0.509529E-01_JPRB, 0.454395E-01_JPRB, 0.404061E-01_JPRB, 0.358294E-01_JPRB &
+  &, 0.316815E-01_JPRB, 0.279170E-01_JPRB, 0.245351E-01_JPRB &
+  &, 0.215068E-01_JPRB, 0.187849E-01_JPRB, 0.163573E-01_JPRB, 0.141949E-01_JPRB &
+  &, 0.122935E-01_JPRB, 0.106024E-01_JPRB, 0.911067E-02_JPRB &
+  &, 0.782059E-02_JPRB, 0.668614E-02_JPRB, 0.568853E-02_JPRB, 0.483970E-02_JPRB &
+  &, 0.408409E-02_JPRB, 0.344725E-02_JPRB, 0.290329E-02_JPRB &
+  &, 0.244165E-02_JPRB, 0.203184E-02_JPRB, 0.169719E-02_JPRB, 0.140475E-02_JPRB &
+  &, 0.115792E-02_JPRB, 0.960241E-03_JPRB, 0.794701E-03_JPRB &
+  &, 0.642643E-03_JPRB, 0.526772E-03_JPRB, 0.427662E-03_JPRB, 0.346572E-03_JPRB &
+  &, 0.284801E-03_JPRB, 0.220312E-03_JPRB, 0.176893E-03_JPRB &
+  &, 0.131608E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  93, :) = (/ &
+  &  0.869941E+00_JPRB, 0.838355E+00_JPRB, 0.807177E+00_JPRB, 0.776426E+00_JPRB &
+  &, 0.746117E+00_JPRB, 0.716269E+00_JPRB, 0.686899E+00_JPRB &
+  &, 0.658024E+00_JPRB, 0.629661E+00_JPRB, 0.601828E+00_JPRB, 0.574539E+00_JPRB &
+  &, 0.547813E+00_JPRB, 0.521664E+00_JPRB, 0.496110E+00_JPRB &
+  &, 0.471165E+00_JPRB, 0.446843E+00_JPRB, 0.423161E+00_JPRB, 0.400128E+00_JPRB &
+  &, 0.377761E+00_JPRB, 0.356070E+00_JPRB, 0.335069E+00_JPRB &
+  &, 0.314767E+00_JPRB, 0.295169E+00_JPRB, 0.276291E+00_JPRB, 0.258130E+00_JPRB &
+  &, 0.240698E+00_JPRB, 0.223997E+00_JPRB, 0.208030E+00_JPRB &
+  &, 0.192792E+00_JPRB, 0.178286E+00_JPRB, 0.164506E+00_JPRB, 0.151445E+00_JPRB &
+  &, 0.139099E+00_JPRB, 0.127452E+00_JPRB, 0.116501E+00_JPRB &
+  &, 0.106222E+00_JPRB, 0.966076E-01_JPRB, 0.876416E-01_JPRB, 0.792916E-01_JPRB &
+  &, 0.715505E-01_JPRB, 0.643872E-01_JPRB, 0.577862E-01_JPRB &
+  &, 0.517059E-01_JPRB, 0.461433E-01_JPRB, 0.410576E-01_JPRB, 0.364375E-01_JPRB &
+  &, 0.322313E-01_JPRB, 0.284303E-01_JPRB, 0.249968E-01_JPRB &
+  &, 0.219141E-01_JPRB, 0.191618E-01_JPRB, 0.167019E-01_JPRB, 0.145055E-01_JPRB &
+  &, 0.125680E-01_JPRB, 0.108539E-01_JPRB, 0.933781E-02_JPRB &
+  &, 0.800656E-02_JPRB, 0.686057E-02_JPRB, 0.585077E-02_JPRB, 0.497247E-02_JPRB &
+  &, 0.420292E-02_JPRB, 0.355141E-02_JPRB, 0.299204E-02_JPRB &
+  &, 0.251423E-02_JPRB, 0.210603E-02_JPRB, 0.175407E-02_JPRB, 0.144349E-02_JPRB &
+  &, 0.119750E-02_JPRB, 0.100068E-02_JPRB, 0.815351E-03_JPRB &
+  &, 0.663732E-03_JPRB, 0.548304E-03_JPRB, 0.449644E-03_JPRB, 0.346572E-03_JPRB &
+  &, 0.284801E-03_JPRB, 0.220312E-03_JPRB, 0.176893E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  94, :) = (/ &
+  &  0.870491E+00_JPRB, 0.839026E+00_JPRB, 0.807962E+00_JPRB, 0.777318E+00_JPRB &
+  &, 0.747109E+00_JPRB, 0.717355E+00_JPRB, 0.688072E+00_JPRB &
+  &, 0.659277E+00_JPRB, 0.630988E+00_JPRB, 0.603221E+00_JPRB, 0.575993E+00_JPRB &
+  &, 0.549320E+00_JPRB, 0.523219E+00_JPRB, 0.497705E+00_JPRB &
+  &, 0.472793E+00_JPRB, 0.448500E+00_JPRB, 0.424838E+00_JPRB, 0.401822E+00_JPRB &
+  &, 0.379465E+00_JPRB, 0.357777E+00_JPRB, 0.336775E+00_JPRB &
+  &, 0.316465E+00_JPRB, 0.296854E+00_JPRB, 0.277957E+00_JPRB, 0.259775E+00_JPRB &
+  &, 0.242317E+00_JPRB, 0.225583E+00_JPRB, 0.209579E+00_JPRB &
+  &, 0.194305E+00_JPRB, 0.179752E+00_JPRB, 0.165927E+00_JPRB, 0.152818E+00_JPRB &
+  &, 0.140419E+00_JPRB, 0.128722E+00_JPRB, 0.117717E+00_JPRB &
+  &, 0.107384E+00_JPRB, 0.977138E-01_JPRB, 0.886781E-01_JPRB, 0.802741E-01_JPRB &
+  &, 0.724756E-01_JPRB, 0.652619E-01_JPRB, 0.585965E-01_JPRB &
+  &, 0.524701E-01_JPRB, 0.468584E-01_JPRB, 0.417208E-01_JPRB, 0.370337E-01_JPRB &
+  &, 0.327812E-01_JPRB, 0.289436E-01_JPRB, 0.254714E-01_JPRB &
+  &, 0.223477E-01_JPRB, 0.195521E-01_JPRB, 0.170465E-01_JPRB, 0.148160E-01_JPRB &
+  &, 0.128426E-01_JPRB, 0.111054E-01_JPRB, 0.956495E-02_JPRB &
+  &, 0.820802E-02_JPRB, 0.703501E-02_JPRB, 0.599679E-02_JPRB, 0.510525E-02_JPRB &
+  &, 0.432175E-02_JPRB, 0.365557E-02_JPRB, 0.308079E-02_JPRB &
+  &, 0.258682E-02_JPRB, 0.216168E-02_JPRB, 0.181094E-02_JPRB, 0.150161E-02_JPRB &
+  &, 0.123709E-02_JPRB, 0.102089E-02_JPRB, 0.836001E-03_JPRB &
+  &, 0.684820E-03_JPRB, 0.569836E-03_JPRB, 0.449644E-03_JPRB, 0.369011E-03_JPRB &
+  &, 0.307701E-03_JPRB, 0.243680E-03_JPRB, 0.200735E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  95, :) = (/ &
+  &  0.871035E+00_JPRB, 0.839691E+00_JPRB, 0.808741E+00_JPRB, 0.778203E+00_JPRB &
+  &, 0.748095E+00_JPRB, 0.718433E+00_JPRB, 0.689237E+00_JPRB &
+  &, 0.660521E+00_JPRB, 0.632305E+00_JPRB, 0.604605E+00_JPRB, 0.577437E+00_JPRB &
+  &, 0.550817E+00_JPRB, 0.524763E+00_JPRB, 0.499289E+00_JPRB &
+  &, 0.474413E+00_JPRB, 0.450147E+00_JPRB, 0.426507E+00_JPRB, 0.403508E+00_JPRB &
+  &, 0.381160E+00_JPRB, 0.359477E+00_JPRB, 0.338474E+00_JPRB &
+  &, 0.318156E+00_JPRB, 0.298533E+00_JPRB, 0.279619E+00_JPRB, 0.261416E+00_JPRB &
+  &, 0.243917E+00_JPRB, 0.227167E+00_JPRB, 0.211125E+00_JPRB &
+  &, 0.195810E+00_JPRB, 0.181219E+00_JPRB, 0.167348E+00_JPRB, 0.154194E+00_JPRB &
+  &, 0.141744E+00_JPRB, 0.129996E+00_JPRB, 0.118932E+00_JPRB &
+  &, 0.108547E+00_JPRB, 0.988106E-01_JPRB, 0.897341E-01_JPRB, 0.812666E-01_JPRB &
+  &, 0.734110E-01_JPRB, 0.661365E-01_JPRB, 0.594175E-01_JPRB &
+  &, 0.532342E-01_JPRB, 0.475622E-01_JPRB, 0.423724E-01_JPRB, 0.376418E-01_JPRB &
+  &, 0.333433E-01_JPRB, 0.294569E-01_JPRB, 0.259332E-01_JPRB &
+  &, 0.227682E-01_JPRB, 0.199289E-01_JPRB, 0.173911E-01_JPRB, 0.151406E-01_JPRB &
+  &, 0.131316E-01_JPRB, 0.113569E-01_JPRB, 0.979209E-02_JPRB &
+  &, 0.840948E-02_JPRB, 0.720944E-02_JPRB, 0.615904E-02_JPRB, 0.523802E-02_JPRB &
+  &, 0.444058E-02_JPRB, 0.375973E-02_JPRB, 0.316954E-02_JPRB &
+  &, 0.265941E-02_JPRB, 0.223587E-02_JPRB, 0.186781E-02_JPRB, 0.155972E-02_JPRB &
+  &, 0.129646E-02_JPRB, 0.106133E-02_JPRB, 0.877301E-03_JPRB &
+  &, 0.726996E-03_JPRB, 0.591369E-03_JPRB, 0.471626E-03_JPRB, 0.391449E-03_JPRB &
+  &, 0.307701E-03_JPRB, 0.243680E-03_JPRB, 0.200735E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.134037E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  96, :) = (/ &
+  &  0.871578E+00_JPRB, 0.840352E+00_JPRB, 0.809514E+00_JPRB, 0.779082E+00_JPRB &
+  &, 0.749073E+00_JPRB, 0.719504E+00_JPRB, 0.690394E+00_JPRB &
+  &, 0.661758E+00_JPRB, 0.633615E+00_JPRB, 0.605981E+00_JPRB, 0.578873E+00_JPRB &
+  &, 0.552306E+00_JPRB, 0.526300E+00_JPRB, 0.500867E+00_JPRB &
+  &, 0.476024E+00_JPRB, 0.451786E+00_JPRB, 0.428169E+00_JPRB, 0.405184E+00_JPRB &
+  &, 0.382848E+00_JPRB, 0.361168E+00_JPRB, 0.340163E+00_JPRB &
+  &, 0.319840E+00_JPRB, 0.300205E+00_JPRB, 0.281275E+00_JPRB, 0.263050E+00_JPRB &
+  &, 0.245540E+00_JPRB, 0.228746E+00_JPRB, 0.212671E+00_JPRB &
+  &, 0.197316E+00_JPRB, 0.182685E+00_JPRB, 0.168769E+00_JPRB, 0.155562E+00_JPRB &
+  &, 0.143065E+00_JPRB, 0.131266E+00_JPRB, 0.120148E+00_JPRB &
+  &, 0.109700E+00_JPRB, 0.999168E-01_JPRB, 0.907804E-01_JPRB, 0.822591E-01_JPRB &
+  &, 0.743464E-01_JPRB, 0.670112E-01_JPRB, 0.602386E-01_JPRB &
+  &, 0.540094E-01_JPRB, 0.482774E-01_JPRB, 0.430356E-01_JPRB, 0.382619E-01_JPRB &
+  &, 0.339053E-01_JPRB, 0.299702E-01_JPRB, 0.264078E-01_JPRB &
+  &, 0.232018E-01_JPRB, 0.203192E-01_JPRB, 0.177494E-01_JPRB, 0.154511E-01_JPRB &
+  &, 0.134207E-01_JPRB, 0.116084E-01_JPRB, 0.100192E-01_JPRB &
+  &, 0.861095E-02_JPRB, 0.738388E-02_JPRB, 0.630506E-02_JPRB, 0.537080E-02_JPRB &
+  &, 0.457638E-02_JPRB, 0.386389E-02_JPRB, 0.325830E-02_JPRB &
+  &, 0.275014E-02_JPRB, 0.231007E-02_JPRB, 0.192468E-02_JPRB, 0.159846E-02_JPRB &
+  &, 0.133604E-02_JPRB, 0.110177E-02_JPRB, 0.897951E-03_JPRB &
+  &, 0.748084E-03_JPRB, 0.612901E-03_JPRB, 0.493608E-03_JPRB, 0.413887E-03_JPRB &
+  &, 0.330601E-03_JPRB, 0.267048E-03_JPRB, 0.200735E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.134037E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  97, :) = (/ &
+  &  0.872115E+00_JPRB, 0.841008E+00_JPRB, 0.810282E+00_JPRB, 0.779955E+00_JPRB &
+  &, 0.750045E+00_JPRB, 0.720568E+00_JPRB, 0.691543E+00_JPRB &
+  &, 0.662986E+00_JPRB, 0.634916E+00_JPRB, 0.607348E+00_JPRB, 0.580299E+00_JPRB &
+  &, 0.553787E+00_JPRB, 0.527826E+00_JPRB, 0.502434E+00_JPRB &
+  &, 0.477626E+00_JPRB, 0.453417E+00_JPRB, 0.429821E+00_JPRB, 0.406854E+00_JPRB &
+  &, 0.384528E+00_JPRB, 0.362853E+00_JPRB, 0.341846E+00_JPRB &
+  &, 0.321518E+00_JPRB, 0.301874E+00_JPRB, 0.282927E+00_JPRB, 0.264680E+00_JPRB &
+  &, 0.247144E+00_JPRB, 0.230318E+00_JPRB, 0.214212E+00_JPRB &
+  &, 0.198821E+00_JPRB, 0.184144E+00_JPRB, 0.170186E+00_JPRB, 0.156934E+00_JPRB &
+  &, 0.144389E+00_JPRB, 0.132535E+00_JPRB, 0.121368E+00_JPRB &
+  &, 0.110863E+00_JPRB, 0.101023E+00_JPRB, 0.918267E-01_JPRB, 0.832516E-01_JPRB &
+  &, 0.752817E-01_JPRB, 0.678964E-01_JPRB, 0.610704E-01_JPRB &
+  &, 0.547736E-01_JPRB, 0.489926E-01_JPRB, 0.436987E-01_JPRB, 0.388700E-01_JPRB &
+  &, 0.344796E-01_JPRB, 0.304836E-01_JPRB, 0.268824E-01_JPRB &
+  &, 0.236354E-01_JPRB, 0.207230E-01_JPRB, 0.181078E-01_JPRB, 0.157758E-01_JPRB &
+  &, 0.137097E-01_JPRB, 0.118747E-01_JPRB, 0.102464E-01_JPRB &
+  &, 0.882791E-02_JPRB, 0.757417E-02_JPRB, 0.646730E-02_JPRB, 0.552017E-02_JPRB &
+  &, 0.469521E-02_JPRB, 0.398540E-02_JPRB, 0.336480E-02_JPRB &
+  &, 0.282273E-02_JPRB, 0.236572E-02_JPRB, 0.198155E-02_JPRB, 0.165658E-02_JPRB &
+  &, 0.137563E-02_JPRB, 0.114220E-02_JPRB, 0.939251E-03_JPRB &
+  &, 0.769172E-03_JPRB, 0.634433E-03_JPRB, 0.515590E-03_JPRB, 0.413887E-03_JPRB &
+  &, 0.330601E-03_JPRB, 0.267048E-03_JPRB, 0.224577E-03_JPRB &
+  &, 0.180252E-03_JPRB, 0.134037E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  98, :) = (/ &
+  &  0.872650E+00_JPRB, 0.841660E+00_JPRB, 0.811045E+00_JPRB, 0.780823E+00_JPRB &
+  &, 0.751010E+00_JPRB, 0.721625E+00_JPRB, 0.692685E+00_JPRB &
+  &, 0.664207E+00_JPRB, 0.636209E+00_JPRB, 0.608707E+00_JPRB, 0.581718E+00_JPRB &
+  &, 0.555258E+00_JPRB, 0.529344E+00_JPRB, 0.503993E+00_JPRB &
+  &, 0.479220E+00_JPRB, 0.455040E+00_JPRB, 0.431466E+00_JPRB, 0.408516E+00_JPRB &
+  &, 0.386197E+00_JPRB, 0.364531E+00_JPRB, 0.343526E+00_JPRB &
+  &, 0.323189E+00_JPRB, 0.303536E+00_JPRB, 0.284568E+00_JPRB, 0.266304E+00_JPRB &
+  &, 0.248741E+00_JPRB, 0.231887E+00_JPRB, 0.215746E+00_JPRB &
+  &, 0.200318E+00_JPRB, 0.185606E+00_JPRB, 0.171603E+00_JPRB, 0.158303E+00_JPRB &
+  &, 0.145710E+00_JPRB, 0.133805E+00_JPRB, 0.122584E+00_JPRB &
+  &, 0.112026E+00_JPRB, 0.102139E+00_JPRB, 0.928827E-01_JPRB, 0.842542E-01_JPRB &
+  &, 0.762274E-01_JPRB, 0.687816E-01_JPRB, 0.618915E-01_JPRB &
+  &, 0.555488E-01_JPRB, 0.497191E-01_JPRB, 0.443736E-01_JPRB, 0.394900E-01_JPRB &
+  &, 0.350417E-01_JPRB, 0.310094E-01_JPRB, 0.273698E-01_JPRB &
+  &, 0.240690E-01_JPRB, 0.211133E-01_JPRB, 0.184662E-01_JPRB, 0.161004E-01_JPRB &
+  &, 0.139987E-01_JPRB, 0.121262E-01_JPRB, 0.104886E-01_JPRB &
+  &, 0.902937E-02_JPRB, 0.774861E-02_JPRB, 0.664577E-02_JPRB, 0.566954E-02_JPRB &
+  &, 0.481404E-02_JPRB, 0.408956E-02_JPRB, 0.345355E-02_JPRB &
+  &, 0.291346E-02_JPRB, 0.243991E-02_JPRB, 0.205738E-02_JPRB, 0.171469E-02_JPRB &
+  &, 0.141521E-02_JPRB, 0.118264E-02_JPRB, 0.980551E-03_JPRB &
+  &, 0.811348E-03_JPRB, 0.655965E-03_JPRB, 0.537572E-03_JPRB, 0.436325E-03_JPRB &
+  &, 0.353501E-03_JPRB, 0.290416E-03_JPRB, 0.224577E-03_JPRB &
+  &, 0.180252E-03_JPRB, 0.134037E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART15',0,ZHOOK_HANDLE)
+
+XCW(  99, :) = (/ &
+  &  0.873179E+00_JPRB, 0.842306E+00_JPRB, 0.811802E+00_JPRB, 0.781684E+00_JPRB &
+  &, 0.751968E+00_JPRB, 0.722675E+00_JPRB, 0.693820E+00_JPRB &
+  &, 0.665420E+00_JPRB, 0.637494E+00_JPRB, 0.610057E+00_JPRB, 0.583128E+00_JPRB &
+  &, 0.556721E+00_JPRB, 0.530855E+00_JPRB, 0.505544E+00_JPRB &
+  &, 0.480805E+00_JPRB, 0.456653E+00_JPRB, 0.433103E+00_JPRB, 0.410169E+00_JPRB &
+  &, 0.387865E+00_JPRB, 0.366203E+00_JPRB, 0.345196E+00_JPRB &
+  &, 0.324853E+00_JPRB, 0.305187E+00_JPRB, 0.286210E+00_JPRB, 0.267924E+00_JPRB &
+  &, 0.250337E+00_JPRB, 0.233455E+00_JPRB, 0.217281E+00_JPRB &
+  &, 0.201816E+00_JPRB, 0.187061E+00_JPRB, 0.173015E+00_JPRB, 0.159671E+00_JPRB &
+  &, 0.147026E+00_JPRB, 0.135075E+00_JPRB, 0.123799E+00_JPRB &
+  &, 0.113197E+00_JPRB, 0.103245E+00_JPRB, 0.939387E-01_JPRB, 0.852467E-01_JPRB &
+  &, 0.771628E-01_JPRB, 0.696668E-01_JPRB, 0.627233E-01_JPRB &
+  &, 0.563240E-01_JPRB, 0.504456E-01_JPRB, 0.450484E-01_JPRB, 0.401101E-01_JPRB &
+  &, 0.356160E-01_JPRB, 0.315477E-01_JPRB, 0.278444E-01_JPRB &
+  &, 0.245158E-01_JPRB, 0.215170E-01_JPRB, 0.188383E-01_JPRB, 0.164250E-01_JPRB &
+  &, 0.142877E-01_JPRB, 0.123925E-01_JPRB, 0.107158E-01_JPRB &
+  &, 0.924633E-02_JPRB, 0.793890E-02_JPRB, 0.680801E-02_JPRB, 0.581892E-02_JPRB &
+  &, 0.494984E-02_JPRB, 0.419372E-02_JPRB, 0.356005E-02_JPRB &
+  &, 0.300419E-02_JPRB, 0.251411E-02_JPRB, 0.211425E-02_JPRB, 0.177281E-02_JPRB &
+  &, 0.147459E-02_JPRB, 0.122307E-02_JPRB, 0.100120E-02_JPRB &
+  &, 0.832436E-03_JPRB, 0.677497E-03_JPRB, 0.559555E-03_JPRB, 0.458763E-03_JPRB &
+  &, 0.376402E-03_JPRB, 0.290416E-03_JPRB, 0.248418E-03_JPRB &
+  &, 0.180252E-03_JPRB, 0.158845E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 100, :) = (/ &
+  &  0.873706E+00_JPRB, 0.842949E+00_JPRB, 0.812554E+00_JPRB, 0.782539E+00_JPRB &
+  &, 0.752921E+00_JPRB, 0.723718E+00_JPRB, 0.694947E+00_JPRB &
+  &, 0.666626E+00_JPRB, 0.638771E+00_JPRB, 0.611400E+00_JPRB, 0.584530E+00_JPRB &
+  &, 0.558176E+00_JPRB, 0.532358E+00_JPRB, 0.507087E+00_JPRB &
+  &, 0.482383E+00_JPRB, 0.458260E+00_JPRB, 0.434733E+00_JPRB, 0.411814E+00_JPRB &
+  &, 0.389522E+00_JPRB, 0.367865E+00_JPRB, 0.346859E+00_JPRB &
+  &, 0.326511E+00_JPRB, 0.306839E+00_JPRB, 0.287844E+00_JPRB, 0.269537E+00_JPRB &
+  &, 0.251927E+00_JPRB, 0.235016E+00_JPRB, 0.218811E+00_JPRB &
+  &, 0.203310E+00_JPRB, 0.188515E+00_JPRB, 0.174428E+00_JPRB, 0.161039E+00_JPRB &
+  &, 0.148347E+00_JPRB, 0.136345E+00_JPRB, 0.125020E+00_JPRB &
+  &, 0.114360E+00_JPRB, 0.104351E+00_JPRB, 0.949948E-01_JPRB, 0.862493E-01_JPRB &
+  &, 0.781084E-01_JPRB, 0.705520E-01_JPRB, 0.635660E-01_JPRB &
+  &, 0.571103E-01_JPRB, 0.511721E-01_JPRB, 0.457232E-01_JPRB, 0.407420E-01_JPRB &
+  &, 0.362025E-01_JPRB, 0.320736E-01_JPRB, 0.283318E-01_JPRB &
+  &, 0.249625E-01_JPRB, 0.219208E-01_JPRB, 0.191967E-01_JPRB, 0.167638E-01_JPRB &
+  &, 0.145912E-01_JPRB, 0.126735E-01_JPRB, 0.109581E-01_JPRB &
+  &, 0.944779E-02_JPRB, 0.812920E-02_JPRB, 0.697026E-02_JPRB, 0.596829E-02_JPRB &
+  &, 0.508564E-02_JPRB, 0.431524E-02_JPRB, 0.364880E-02_JPRB &
+  &, 0.307678E-02_JPRB, 0.258831E-02_JPRB, 0.217113E-02_JPRB, 0.181155E-02_JPRB &
+  &, 0.151417E-02_JPRB, 0.126351E-02_JPRB, 0.104250E-02_JPRB &
+  &, 0.853525E-03_JPRB, 0.699029E-03_JPRB, 0.581537E-03_JPRB, 0.481201E-03_JPRB &
+  &, 0.376402E-03_JPRB, 0.313784E-03_JPRB, 0.248418E-03_JPRB &
+  &, 0.204573E-03_JPRB, 0.158845E-03_JPRB, 0.136496E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 101, :) = (/ &
+  &  0.874229E+00_JPRB, 0.843587E+00_JPRB, 0.813300E+00_JPRB, 0.783389E+00_JPRB &
+  &, 0.753867E+00_JPRB, 0.724754E+00_JPRB, 0.696067E+00_JPRB &
+  &, 0.667824E+00_JPRB, 0.640040E+00_JPRB, 0.612735E+00_JPRB, 0.585924E+00_JPRB &
+  &, 0.559624E+00_JPRB, 0.533851E+00_JPRB, 0.508622E+00_JPRB &
+  &, 0.483953E+00_JPRB, 0.459859E+00_JPRB, 0.436354E+00_JPRB, 0.413453E+00_JPRB &
+  &, 0.391172E+00_JPRB, 0.369521E+00_JPRB, 0.348516E+00_JPRB &
+  &, 0.328165E+00_JPRB, 0.308480E+00_JPRB, 0.289472E+00_JPRB, 0.271146E+00_JPRB &
+  &, 0.253513E+00_JPRB, 0.236577E+00_JPRB, 0.220337E+00_JPRB &
+  &, 0.204803E+00_JPRB, 0.189970E+00_JPRB, 0.175837E+00_JPRB, 0.162407E+00_JPRB &
+  &, 0.149667E+00_JPRB, 0.137614E+00_JPRB, 0.126235E+00_JPRB &
+  &, 0.115523E+00_JPRB, 0.105467E+00_JPRB, 0.960508E-01_JPRB, 0.872518E-01_JPRB &
+  &, 0.790541E-01_JPRB, 0.714477E-01_JPRB, 0.643979E-01_JPRB &
+  &, 0.578966E-01_JPRB, 0.518986E-01_JPRB, 0.463980E-01_JPRB, 0.413740E-01_JPRB &
+  &, 0.367768E-01_JPRB, 0.326119E-01_JPRB, 0.288321E-01_JPRB &
+  &, 0.254093E-01_JPRB, 0.223380E-01_JPRB, 0.195689E-01_JPRB, 0.171025E-01_JPRB &
+  &, 0.148947E-01_JPRB, 0.129398E-01_JPRB, 0.112003E-01_JPRB &
+  &, 0.966475E-02_JPRB, 0.831949E-02_JPRB, 0.714873E-02_JPRB, 0.611766E-02_JPRB &
+  &, 0.520447E-02_JPRB, 0.443676E-02_JPRB, 0.375530E-02_JPRB &
+  &, 0.316751E-02_JPRB, 0.268105E-02_JPRB, 0.224696E-02_JPRB, 0.186966E-02_JPRB &
+  &, 0.157355E-02_JPRB, 0.130394E-02_JPRB, 0.108380E-02_JPRB &
+  &, 0.895701E-03_JPRB, 0.742094E-03_JPRB, 0.603519E-03_JPRB, 0.481201E-03_JPRB &
+  &, 0.399302E-03_JPRB, 0.313784E-03_JPRB, 0.248418E-03_JPRB &
+  &, 0.204573E-03_JPRB, 0.158845E-03_JPRB, 0.136496E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 102, :) = (/ &
+  &  0.874749E+00_JPRB, 0.844221E+00_JPRB, 0.814043E+00_JPRB, 0.784233E+00_JPRB &
+  &, 0.754807E+00_JPRB, 0.725784E+00_JPRB, 0.697181E+00_JPRB &
+  &, 0.669015E+00_JPRB, 0.641303E+00_JPRB, 0.614062E+00_JPRB, 0.587310E+00_JPRB &
+  &, 0.561063E+00_JPRB, 0.535336E+00_JPRB, 0.510149E+00_JPRB &
+  &, 0.485514E+00_JPRB, 0.461448E+00_JPRB, 0.437968E+00_JPRB, 0.415085E+00_JPRB &
+  &, 0.392815E+00_JPRB, 0.371171E+00_JPRB, 0.350166E+00_JPRB &
+  &, 0.329813E+00_JPRB, 0.310119E+00_JPRB, 0.291096E+00_JPRB, 0.272752E+00_JPRB &
+  &, 0.255095E+00_JPRB, 0.238130E+00_JPRB, 0.221860E+00_JPRB &
+  &, 0.206293E+00_JPRB, 0.191420E+00_JPRB, 0.177249E+00_JPRB, 0.163771E+00_JPRB &
+  &, 0.150983E+00_JPRB, 0.138884E+00_JPRB, 0.127455E+00_JPRB &
+  &, 0.116695E+00_JPRB, 0.106583E+00_JPRB, 0.971069E-01_JPRB, 0.882544E-01_JPRB &
+  &, 0.800100E-01_JPRB, 0.723435E-01_JPRB, 0.652405E-01_JPRB &
+  &, 0.586829E-01_JPRB, 0.526364E-01_JPRB, 0.470845E-01_JPRB, 0.420060E-01_JPRB &
+  &, 0.373633E-01_JPRB, 0.331503E-01_JPRB, 0.293195E-01_JPRB &
+  &, 0.258561E-01_JPRB, 0.227418E-01_JPRB, 0.199410E-01_JPRB, 0.174412E-01_JPRB &
+  &, 0.151981E-01_JPRB, 0.132061E-01_JPRB, 0.114426E-01_JPRB &
+  &, 0.989721E-02_JPRB, 0.852564E-02_JPRB, 0.731097E-02_JPRB, 0.626703E-02_JPRB &
+  &, 0.534027E-02_JPRB, 0.454092E-02_JPRB, 0.386181E-02_JPRB &
+  &, 0.325825E-02_JPRB, 0.275525E-02_JPRB, 0.230383E-02_JPRB, 0.192778E-02_JPRB &
+  &, 0.161313E-02_JPRB, 0.134438E-02_JPRB, 0.112510E-02_JPRB &
+  &, 0.916789E-03_JPRB, 0.763626E-03_JPRB, 0.625501E-03_JPRB, 0.503640E-03_JPRB &
+  &, 0.422202E-03_JPRB, 0.337152E-03_JPRB, 0.272260E-03_JPRB &
+  &, 0.204573E-03_JPRB, 0.183652E-03_JPRB, 0.136496E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 103, :) = (/ &
+  &  0.875264E+00_JPRB, 0.844851E+00_JPRB, 0.814780E+00_JPRB, 0.785072E+00_JPRB &
+  &, 0.755741E+00_JPRB, 0.726808E+00_JPRB, 0.698287E+00_JPRB &
+  &, 0.670198E+00_JPRB, 0.642557E+00_JPRB, 0.615382E+00_JPRB, 0.588689E+00_JPRB &
+  &, 0.562494E+00_JPRB, 0.536815E+00_JPRB, 0.511668E+00_JPRB &
+  &, 0.487068E+00_JPRB, 0.463032E+00_JPRB, 0.439574E+00_JPRB, 0.416709E+00_JPRB &
+  &, 0.394451E+00_JPRB, 0.372814E+00_JPRB, 0.351810E+00_JPRB &
+  &, 0.331454E+00_JPRB, 0.311750E+00_JPRB, 0.292713E+00_JPRB, 0.274354E+00_JPRB &
+  &, 0.256674E+00_JPRB, 0.239684E+00_JPRB, 0.223383E+00_JPRB &
+  &, 0.207779E+00_JPRB, 0.192867E+00_JPRB, 0.178654E+00_JPRB, 0.165135E+00_JPRB &
+  &, 0.152304E+00_JPRB, 0.140154E+00_JPRB, 0.128676E+00_JPRB &
+  &, 0.117857E+00_JPRB, 0.107699E+00_JPRB, 0.981629E-01_JPRB, 0.892569E-01_JPRB &
+  &, 0.809556E-01_JPRB, 0.732392E-01_JPRB, 0.660832E-01_JPRB &
+  &, 0.594692E-01_JPRB, 0.533743E-01_JPRB, 0.477709E-01_JPRB, 0.426379E-01_JPRB &
+  &, 0.379498E-01_JPRB, 0.336887E-01_JPRB, 0.298197E-01_JPRB &
+  &, 0.263159E-01_JPRB, 0.231590E-01_JPRB, 0.203270E-01_JPRB, 0.177800E-01_JPRB &
+  &, 0.155161E-01_JPRB, 0.134872E-01_JPRB, 0.117000E-01_JPRB &
+  &, 0.101142E-01_JPRB, 0.871594E-02_JPRB, 0.748944E-02_JPRB, 0.641641E-02_JPRB &
+  &, 0.547608E-02_JPRB, 0.466244E-02_JPRB, 0.396831E-02_JPRB &
+  &, 0.334898E-02_JPRB, 0.282944E-02_JPRB, 0.237966E-02_JPRB, 0.198589E-02_JPRB &
+  &, 0.167250E-02_JPRB, 0.138482E-02_JPRB, 0.114575E-02_JPRB &
+  &, 0.958965E-03_JPRB, 0.785158E-03_JPRB, 0.647483E-03_JPRB, 0.526078E-03_JPRB &
+  &, 0.422202E-03_JPRB, 0.337152E-03_JPRB, 0.272260E-03_JPRB &
+  &, 0.228895E-03_JPRB, 0.183652E-03_JPRB, 0.136496E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 104, :) = (/ &
+  &  0.875776E+00_JPRB, 0.845476E+00_JPRB, 0.815512E+00_JPRB, 0.785905E+00_JPRB &
+  &, 0.756670E+00_JPRB, 0.727825E+00_JPRB, 0.699387E+00_JPRB &
+  &, 0.671374E+00_JPRB, 0.643805E+00_JPRB, 0.616694E+00_JPRB, 0.590060E+00_JPRB &
+  &, 0.563918E+00_JPRB, 0.538284E+00_JPRB, 0.513179E+00_JPRB &
+  &, 0.488615E+00_JPRB, 0.464607E+00_JPRB, 0.441173E+00_JPRB, 0.418326E+00_JPRB &
+  &, 0.396082E+00_JPRB, 0.374451E+00_JPRB, 0.353451E+00_JPRB &
+  &, 0.333089E+00_JPRB, 0.313378E+00_JPRB, 0.294327E+00_JPRB, 0.275949E+00_JPRB &
+  &, 0.258249E+00_JPRB, 0.241230E+00_JPRB, 0.224901E+00_JPRB &
+  &, 0.209261E+00_JPRB, 0.194313E+00_JPRB, 0.180062E+00_JPRB, 0.166499E+00_JPRB &
+  &, 0.153620E+00_JPRB, 0.141419E+00_JPRB, 0.129896E+00_JPRB &
+  &, 0.119029E+00_JPRB, 0.108805E+00_JPRB, 0.992287E-01_JPRB, 0.902695E-01_JPRB &
+  &, 0.819116E-01_JPRB, 0.741349E-01_JPRB, 0.669258E-01_JPRB &
+  &, 0.602555E-01_JPRB, 0.541122E-01_JPRB, 0.484574E-01_JPRB, 0.432818E-01_JPRB &
+  &, 0.385485E-01_JPRB, 0.342395E-01_JPRB, 0.303200E-01_JPRB &
+  &, 0.267758E-01_JPRB, 0.235762E-01_JPRB, 0.206991E-01_JPRB, 0.181329E-01_JPRB &
+  &, 0.158195E-01_JPRB, 0.137683E-01_JPRB, 0.119575E-01_JPRB &
+  &, 0.103466E-01_JPRB, 0.892209E-02_JPRB, 0.766791E-02_JPRB, 0.658237E-02_JPRB &
+  &, 0.562886E-02_JPRB, 0.478396E-02_JPRB, 0.407481E-02_JPRB &
+  &, 0.343971E-02_JPRB, 0.290364E-02_JPRB, 0.245549E-02_JPRB, 0.206338E-02_JPRB &
+  &, 0.171209E-02_JPRB, 0.142525E-02_JPRB, 0.118705E-02_JPRB &
+  &, 0.980053E-03_JPRB, 0.806690E-03_JPRB, 0.669466E-03_JPRB, 0.548516E-03_JPRB &
+  &, 0.445102E-03_JPRB, 0.360520E-03_JPRB, 0.296102E-03_JPRB &
+  &, 0.228895E-03_JPRB, 0.183652E-03_JPRB, 0.161795E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 105, :) = (/ &
+  &  0.876285E+00_JPRB, 0.846097E+00_JPRB, 0.816240E+00_JPRB, 0.786733E+00_JPRB &
+  &, 0.757592E+00_JPRB, 0.728836E+00_JPRB, 0.700481E+00_JPRB &
+  &, 0.672545E+00_JPRB, 0.645046E+00_JPRB, 0.617999E+00_JPRB, 0.591423E+00_JPRB &
+  &, 0.565333E+00_JPRB, 0.539747E+00_JPRB, 0.514682E+00_JPRB &
+  &, 0.490153E+00_JPRB, 0.466175E+00_JPRB, 0.442765E+00_JPRB, 0.419936E+00_JPRB &
+  &, 0.397704E+00_JPRB, 0.376082E+00_JPRB, 0.355082E+00_JPRB &
+  &, 0.334717E+00_JPRB, 0.314999E+00_JPRB, 0.295938E+00_JPRB, 0.277540E+00_JPRB &
+  &, 0.259816E+00_JPRB, 0.242776E+00_JPRB, 0.226416E+00_JPRB &
+  &, 0.210743E+00_JPRB, 0.195760E+00_JPRB, 0.181467E+00_JPRB, 0.167858E+00_JPRB &
+  &, 0.154936E+00_JPRB, 0.142689E+00_JPRB, 0.131116E+00_JPRB &
+  &, 0.120192E+00_JPRB, 0.109930E+00_JPRB, 0.100295E+00_JPRB, 0.912821E-01_JPRB &
+  &, 0.828675E-01_JPRB, 0.750412E-01_JPRB, 0.677793E-01_JPRB &
+  &, 0.610528E-01_JPRB, 0.548500E-01_JPRB, 0.491555E-01_JPRB, 0.439257E-01_JPRB &
+  &, 0.391473E-01_JPRB, 0.347779E-01_JPRB, 0.308202E-01_JPRB &
+  &, 0.272357E-01_JPRB, 0.240069E-01_JPRB, 0.210851E-01_JPRB, 0.184716E-01_JPRB &
+  &, 0.161375E-01_JPRB, 0.140494E-01_JPRB, 0.121998E-01_JPRB &
+  &, 0.105636E-01_JPRB, 0.912824E-02_JPRB, 0.784637E-02_JPRB, 0.673175E-02_JPRB &
+  &, 0.576466E-02_JPRB, 0.492284E-02_JPRB, 0.418131E-02_JPRB &
+  &, 0.354859E-02_JPRB, 0.299638E-02_JPRB, 0.253131E-02_JPRB, 0.212149E-02_JPRB &
+  &, 0.177146E-02_JPRB, 0.148591E-02_JPRB, 0.122835E-02_JPRB &
+  &, 0.102223E-02_JPRB, 0.849755E-03_JPRB, 0.691448E-03_JPRB, 0.570954E-03_JPRB &
+  &, 0.468002E-03_JPRB, 0.383888E-03_JPRB, 0.296102E-03_JPRB &
+  &, 0.253217E-03_JPRB, 0.208460E-03_JPRB, 0.161795E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART16',0,ZHOOK_HANDLE)
+
+XCW( 106, :) = (/ &
+  &  0.876790E+00_JPRB, 0.846714E+00_JPRB, 0.816963E+00_JPRB, 0.787556E+00_JPRB &
+  &, 0.758509E+00_JPRB, 0.729841E+00_JPRB, 0.701568E+00_JPRB &
+  &, 0.673709E+00_JPRB, 0.646279E+00_JPRB, 0.619296E+00_JPRB, 0.592779E+00_JPRB &
+  &, 0.566742E+00_JPRB, 0.541204E+00_JPRB, 0.516178E+00_JPRB &
+  &, 0.491684E+00_JPRB, 0.467737E+00_JPRB, 0.444350E+00_JPRB, 0.421540E+00_JPRB &
+  &, 0.399321E+00_JPRB, 0.377706E+00_JPRB, 0.356710E+00_JPRB &
+  &, 0.336341E+00_JPRB, 0.316617E+00_JPRB, 0.297541E+00_JPRB, 0.279128E+00_JPRB &
+  &, 0.261384E+00_JPRB, 0.244314E+00_JPRB, 0.227928E+00_JPRB &
+  &, 0.212221E+00_JPRB, 0.197202E+00_JPRB, 0.182871E+00_JPRB, 0.169222E+00_JPRB &
+  &, 0.156252E+00_JPRB, 0.143959E+00_JPRB, 0.132336E+00_JPRB &
+  &, 0.121364E+00_JPRB, 0.111046E+00_JPRB, 0.101360E+00_JPRB, 0.922946E-01_JPRB &
+  &, 0.838234E-01_JPRB, 0.759475E-01_JPRB, 0.686328E-01_JPRB &
+  &, 0.618502E-01_JPRB, 0.555992E-01_JPRB, 0.498536E-01_JPRB, 0.445696E-01_JPRB &
+  &, 0.397460E-01_JPRB, 0.353413E-01_JPRB, 0.313333E-01_JPRB &
+  &, 0.277088E-01_JPRB, 0.244241E-01_JPRB, 0.214710E-01_JPRB, 0.188245E-01_JPRB &
+  &, 0.164554E-01_JPRB, 0.143453E-01_JPRB, 0.124572E-01_JPRB &
+  &, 0.107961E-01_JPRB, 0.933439E-02_JPRB, 0.804107E-02_JPRB, 0.689772E-02_JPRB &
+  &, 0.590046E-02_JPRB, 0.504435E-02_JPRB, 0.428781E-02_JPRB &
+  &, 0.363933E-02_JPRB, 0.307058E-02_JPRB, 0.258819E-02_JPRB, 0.217961E-02_JPRB &
+  &, 0.183084E-02_JPRB, 0.152634E-02_JPRB, 0.126965E-02_JPRB &
+  &, 0.106441E-02_JPRB, 0.871287E-03_JPRB, 0.713430E-03_JPRB, 0.593392E-03_JPRB &
+  &, 0.490902E-03_JPRB, 0.383888E-03_JPRB, 0.319944E-03_JPRB &
+  &, 0.253217E-03_JPRB, 0.208460E-03_JPRB, 0.161795E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 107, :) = (/ &
+  &  0.877294E+00_JPRB, 0.847327E+00_JPRB, 0.817681E+00_JPRB, 0.788374E+00_JPRB &
+  &, 0.759421E+00_JPRB, 0.730840E+00_JPRB, 0.702649E+00_JPRB &
+  &, 0.674865E+00_JPRB, 0.647505E+00_JPRB, 0.620587E+00_JPRB, 0.594128E+00_JPRB &
+  &, 0.568144E+00_JPRB, 0.542651E+00_JPRB, 0.517667E+00_JPRB &
+  &, 0.493209E+00_JPRB, 0.469291E+00_JPRB, 0.445928E+00_JPRB, 0.423137E+00_JPRB &
+  &, 0.400931E+00_JPRB, 0.379324E+00_JPRB, 0.358328E+00_JPRB &
+  &, 0.337959E+00_JPRB, 0.318228E+00_JPRB, 0.299141E+00_JPRB, 0.280713E+00_JPRB &
+  &, 0.262948E+00_JPRB, 0.245853E+00_JPRB, 0.229435E+00_JPRB &
+  &, 0.213699E+00_JPRB, 0.198645E+00_JPRB, 0.184272E+00_JPRB, 0.170582E+00_JPRB &
+  &, 0.157569E+00_JPRB, 0.145228E+00_JPRB, 0.133556E+00_JPRB &
+  &, 0.122536E+00_JPRB, 0.112162E+00_JPRB, 0.102426E+00_JPRB, 0.933072E-01_JPRB &
+  &, 0.847896E-01_JPRB, 0.768538E-01_JPRB, 0.694862E-01_JPRB &
+  &, 0.626586E-01_JPRB, 0.563485E-01_JPRB, 0.505516E-01_JPRB, 0.452254E-01_JPRB &
+  &, 0.403447E-01_JPRB, 0.358922E-01_JPRB, 0.318464E-01_JPRB &
+  &, 0.281687E-01_JPRB, 0.248548E-01_JPRB, 0.218707E-01_JPRB, 0.191773E-01_JPRB &
+  &, 0.167733E-01_JPRB, 0.146263E-01_JPRB, 0.127297E-01_JPRB &
+  &, 0.110285E-01_JPRB, 0.954054E-02_JPRB, 0.821953E-02_JPRB, 0.706368E-02_JPRB &
+  &, 0.605324E-02_JPRB, 0.516587E-02_JPRB, 0.441206E-02_JPRB &
+  &, 0.373006E-02_JPRB, 0.316332E-02_JPRB, 0.266401E-02_JPRB, 0.223772E-02_JPRB &
+  &, 0.189021E-02_JPRB, 0.156678E-02_JPRB, 0.131095E-02_JPRB &
+  &, 0.108549E-02_JPRB, 0.892819E-03_JPRB, 0.735412E-03_JPRB, 0.615830E-03_JPRB &
+  &, 0.490902E-03_JPRB, 0.407256E-03_JPRB, 0.319944E-03_JPRB &
+  &, 0.277538E-03_JPRB, 0.208460E-03_JPRB, 0.161795E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 108, :) = (/ &
+  &  0.877792E+00_JPRB, 0.847937E+00_JPRB, 0.818395E+00_JPRB, 0.789187E+00_JPRB &
+  &, 0.760326E+00_JPRB, 0.731833E+00_JPRB, 0.703723E+00_JPRB &
+  &, 0.676015E+00_JPRB, 0.648725E+00_JPRB, 0.621871E+00_JPRB, 0.595470E+00_JPRB &
+  &, 0.569538E+00_JPRB, 0.544092E+00_JPRB, 0.519150E+00_JPRB &
+  &, 0.494726E+00_JPRB, 0.470837E+00_JPRB, 0.447499E+00_JPRB, 0.424726E+00_JPRB &
+  &, 0.402535E+00_JPRB, 0.380936E+00_JPRB, 0.359946E+00_JPRB &
+  &, 0.339574E+00_JPRB, 0.319835E+00_JPRB, 0.300737E+00_JPRB, 0.282290E+00_JPRB &
+  &, 0.264505E+00_JPRB, 0.247388E+00_JPRB, 0.230942E+00_JPRB &
+  &, 0.215173E+00_JPRB, 0.200083E+00_JPRB, 0.185672E+00_JPRB, 0.171942E+00_JPRB &
+  &, 0.158885E+00_JPRB, 0.146498E+00_JPRB, 0.134776E+00_JPRB &
+  &, 0.123708E+00_JPRB, 0.113287E+00_JPRB, 0.103492E+00_JPRB, 0.943198E-01_JPRB &
+  &, 0.857456E-01_JPRB, 0.777600E-01_JPRB, 0.703397E-01_JPRB &
+  &, 0.634560E-01_JPRB, 0.571090E-01_JPRB, 0.512497E-01_JPRB, 0.458693E-01_JPRB &
+  &, 0.409435E-01_JPRB, 0.364556E-01_JPRB, 0.323595E-01_JPRB &
+  &, 0.286548E-01_JPRB, 0.252855E-01_JPRB, 0.222567E-01_JPRB, 0.195443E-01_JPRB &
+  &, 0.171057E-01_JPRB, 0.149222E-01_JPRB, 0.129872E-01_JPRB &
+  &, 0.112765E-01_JPRB, 0.974669E-02_JPRB, 0.841423E-02_JPRB, 0.722965E-02_JPRB &
+  &, 0.620602E-02_JPRB, 0.530475E-02_JPRB, 0.451856E-02_JPRB &
+  &, 0.383894E-02_JPRB, 0.325607E-02_JPRB, 0.273984E-02_JPRB, 0.231521E-02_JPRB &
+  &, 0.194959E-02_JPRB, 0.162743E-02_JPRB, 0.135225E-02_JPRB &
+  &, 0.112767E-02_JPRB, 0.935883E-03_JPRB, 0.779376E-03_JPRB, 0.638268E-03_JPRB &
+  &, 0.513802E-03_JPRB, 0.430624E-03_JPRB, 0.343786E-03_JPRB &
+  &, 0.277538E-03_JPRB, 0.233267E-03_JPRB, 0.187094E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 109, :) = (/ &
+  &  0.878288E+00_JPRB, 0.848542E+00_JPRB, 0.819105E+00_JPRB, 0.789994E+00_JPRB &
+  &, 0.761227E+00_JPRB, 0.732820E+00_JPRB, 0.704792E+00_JPRB &
+  &, 0.677159E+00_JPRB, 0.649938E+00_JPRB, 0.623148E+00_JPRB, 0.596805E+00_JPRB &
+  &, 0.570925E+00_JPRB, 0.545526E+00_JPRB, 0.520625E+00_JPRB &
+  &, 0.496237E+00_JPRB, 0.472378E+00_JPRB, 0.449065E+00_JPRB, 0.426311E+00_JPRB &
+  &, 0.404132E+00_JPRB, 0.382541E+00_JPRB, 0.361554E+00_JPRB &
+  &, 0.341182E+00_JPRB, 0.321436E+00_JPRB, 0.302327E+00_JPRB, 0.283867E+00_JPRB &
+  &, 0.266062E+00_JPRB, 0.248919E+00_JPRB, 0.232446E+00_JPRB &
+  &, 0.216643E+00_JPRB, 0.201518E+00_JPRB, 0.187073E+00_JPRB, 0.173297E+00_JPRB &
+  &, 0.160197E+00_JPRB, 0.147768E+00_JPRB, 0.135997E+00_JPRB &
+  &, 0.124880E+00_JPRB, 0.114403E+00_JPRB, 0.104568E+00_JPRB, 0.953424E-01_JPRB &
+  &, 0.867118E-01_JPRB, 0.786768E-01_JPRB, 0.712040E-01_JPRB &
+  &, 0.642644E-01_JPRB, 0.578582E-01_JPRB, 0.519595E-01_JPRB, 0.465251E-01_JPRB &
+  &, 0.415544E-01_JPRB, 0.370190E-01_JPRB, 0.328854E-01_JPRB &
+  &, 0.291279E-01_JPRB, 0.257296E-01_JPRB, 0.226564E-01_JPRB, 0.198971E-01_JPRB &
+  &, 0.174381E-01_JPRB, 0.152181E-01_JPRB, 0.132597E-01_JPRB &
+  &, 0.115089E-01_JPRB, 0.996870E-02_JPRB, 0.859269E-02_JPRB, 0.739562E-02_JPRB &
+  &, 0.635880E-02_JPRB, 0.542627E-02_JPRB, 0.464282E-02_JPRB &
+  &, 0.394782E-02_JPRB, 0.334881E-02_JPRB, 0.281567E-02_JPRB, 0.237332E-02_JPRB &
+  &, 0.198917E-02_JPRB, 0.166787E-02_JPRB, 0.139355E-02_JPRB &
+  &, 0.116985E-02_JPRB, 0.957415E-03_JPRB, 0.801359E-03_JPRB, 0.660707E-03_JPRB &
+  &, 0.536702E-03_JPRB, 0.430624E-03_JPRB, 0.367628E-03_JPRB &
+  &, 0.277538E-03_JPRB, 0.233267E-03_JPRB, 0.187094E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 110, :) = (/ &
+  &  0.878779E+00_JPRB, 0.849144E+00_JPRB, 0.819810E+00_JPRB, 0.790798E+00_JPRB &
+  &, 0.762122E+00_JPRB, 0.733802E+00_JPRB, 0.705854E+00_JPRB &
+  &, 0.678296E+00_JPRB, 0.651145E+00_JPRB, 0.624418E+00_JPRB, 0.598133E+00_JPRB &
+  &, 0.572306E+00_JPRB, 0.546953E+00_JPRB, 0.522092E+00_JPRB &
+  &, 0.497740E+00_JPRB, 0.473911E+00_JPRB, 0.450622E+00_JPRB, 0.427888E+00_JPRB &
+  &, 0.405722E+00_JPRB, 0.384140E+00_JPRB, 0.363159E+00_JPRB &
+  &, 0.342783E+00_JPRB, 0.323033E+00_JPRB, 0.303913E+00_JPRB, 0.285437E+00_JPRB &
+  &, 0.267611E+00_JPRB, 0.250446E+00_JPRB, 0.233946E+00_JPRB &
+  &, 0.218113E+00_JPRB, 0.202956E+00_JPRB, 0.188469E+00_JPRB, 0.174657E+00_JPRB &
+  &, 0.161513E+00_JPRB, 0.149037E+00_JPRB, 0.137221E+00_JPRB &
+  &, 0.126052E+00_JPRB, 0.115528E+00_JPRB, 0.105633E+00_JPRB, 0.963550E-01_JPRB &
+  &, 0.876780E-01_JPRB, 0.795937E-01_JPRB, 0.720574E-01_JPRB &
+  &, 0.650840E-01_JPRB, 0.586188E-01_JPRB, 0.526692E-01_JPRB, 0.471929E-01_JPRB &
+  &, 0.421776E-01_JPRB, 0.375824E-01_JPRB, 0.333984E-01_JPRB &
+  &, 0.296009E-01_JPRB, 0.261603E-01_JPRB, 0.230561E-01_JPRB, 0.202641E-01_JPRB &
+  &, 0.177560E-01_JPRB, 0.155288E-01_JPRB, 0.135323E-01_JPRB &
+  &, 0.117569E-01_JPRB, 0.101749E-01_JPRB, 0.878739E-02_JPRB, 0.757819E-02_JPRB &
+  &, 0.649460E-02_JPRB, 0.556515E-02_JPRB, 0.474932E-02_JPRB &
+  &, 0.403855E-02_JPRB, 0.342301E-02_JPRB, 0.291046E-02_JPRB, 0.245081E-02_JPRB &
+  &, 0.204855E-02_JPRB, 0.172852E-02_JPRB, 0.143485E-02_JPRB &
+  &, 0.119093E-02_JPRB, 0.100048E-02_JPRB, 0.823341E-03_JPRB, 0.683145E-03_JPRB &
+  &, 0.559602E-03_JPRB, 0.453992E-03_JPRB, 0.367628E-03_JPRB &
+  &, 0.301860E-03_JPRB, 0.233267E-03_JPRB, 0.187094E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 111, :) = (/ &
+  &  0.879270E+00_JPRB, 0.849742E+00_JPRB, 0.820511E+00_JPRB, 0.791596E+00_JPRB &
+  &, 0.763012E+00_JPRB, 0.734778E+00_JPRB, 0.706910E+00_JPRB &
+  &, 0.679427E+00_JPRB, 0.652346E+00_JPRB, 0.625682E+00_JPRB, 0.599455E+00_JPRB &
+  &, 0.573680E+00_JPRB, 0.548374E+00_JPRB, 0.523555E+00_JPRB &
+  &, 0.499237E+00_JPRB, 0.475438E+00_JPRB, 0.452175E+00_JPRB, 0.429458E+00_JPRB &
+  &, 0.407309E+00_JPRB, 0.385736E+00_JPRB, 0.364757E+00_JPRB &
+  &, 0.344381E+00_JPRB, 0.324624E+00_JPRB, 0.305495E+00_JPRB, 0.287004E+00_JPRB &
+  &, 0.269161E+00_JPRB, 0.251970E+00_JPRB, 0.235446E+00_JPRB &
+  &, 0.219583E+00_JPRB, 0.204387E+00_JPRB, 0.189865E+00_JPRB, 0.176012E+00_JPRB &
+  &, 0.162829E+00_JPRB, 0.150307E+00_JPRB, 0.138441E+00_JPRB &
+  &, 0.127224E+00_JPRB, 0.116654E+00_JPRB, 0.106709E+00_JPRB, 0.973776E-01_JPRB &
+  &, 0.886545E-01_JPRB, 0.805105E-01_JPRB, 0.729217E-01_JPRB &
+  &, 0.658924E-01_JPRB, 0.593794E-01_JPRB, 0.533789E-01_JPRB, 0.478606E-01_JPRB &
+  &, 0.427885E-01_JPRB, 0.381583E-01_JPRB, 0.339244E-01_JPRB &
+  &, 0.300871E-01_JPRB, 0.266044E-01_JPRB, 0.234696E-01_JPRB, 0.206311E-01_JPRB &
+  &, 0.181028E-01_JPRB, 0.158246E-01_JPRB, 0.138049E-01_JPRB &
+  &, 0.119893E-01_JPRB, 0.103969E-01_JPRB, 0.898208E-02_JPRB, 0.774416E-02_JPRB &
+  &, 0.666435E-02_JPRB, 0.570403E-02_JPRB, 0.487357E-02_JPRB &
+  &, 0.414743E-02_JPRB, 0.351575E-02_JPRB, 0.298629E-02_JPRB, 0.250892E-02_JPRB &
+  &, 0.212771E-02_JPRB, 0.176896E-02_JPRB, 0.147615E-02_JPRB &
+  &, 0.123311E-02_JPRB, 0.102201E-02_JPRB, 0.845323E-03_JPRB, 0.705583E-03_JPRB &
+  &, 0.582502E-03_JPRB, 0.477360E-03_JPRB, 0.391470E-03_JPRB &
+  &, 0.301860E-03_JPRB, 0.258074E-03_JPRB, 0.212393E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 112, :) = (/ &
+  &  0.879756E+00_JPRB, 0.850337E+00_JPRB, 0.821208E+00_JPRB, 0.792390E+00_JPRB &
+  &, 0.763897E+00_JPRB, 0.735749E+00_JPRB, 0.707961E+00_JPRB &
+  &, 0.680552E+00_JPRB, 0.653539E+00_JPRB, 0.626940E+00_JPRB, 0.600770E+00_JPRB &
+  &, 0.575046E+00_JPRB, 0.549787E+00_JPRB, 0.525009E+00_JPRB &
+  &, 0.500728E+00_JPRB, 0.476959E+00_JPRB, 0.453720E+00_JPRB, 0.431025E+00_JPRB &
+  &, 0.408888E+00_JPRB, 0.387325E+00_JPRB, 0.366350E+00_JPRB &
+  &, 0.345973E+00_JPRB, 0.326211E+00_JPRB, 0.307071E+00_JPRB, 0.288567E+00_JPRB &
+  &, 0.270707E+00_JPRB, 0.253493E+00_JPRB, 0.236938E+00_JPRB &
+  &, 0.221046E+00_JPRB, 0.205821E+00_JPRB, 0.191262E+00_JPRB, 0.177368E+00_JPRB &
+  &, 0.164141E+00_JPRB, 0.151577E+00_JPRB, 0.139666E+00_JPRB &
+  &, 0.128405E+00_JPRB, 0.117779E+00_JPRB, 0.107785E+00_JPRB, 0.984002E-01_JPRB &
+  &, 0.896207E-01_JPRB, 0.814273E-01_JPRB, 0.737968E-01_JPRB &
+  &, 0.667119E-01_JPRB, 0.601513E-01_JPRB, 0.541003E-01_JPRB, 0.485283E-01_JPRB &
+  &, 0.434117E-01_JPRB, 0.387342E-01_JPRB, 0.344631E-01_JPRB &
+  &, 0.305733E-01_JPRB, 0.270620E-01_JPRB, 0.238694E-01_JPRB, 0.210122E-01_JPRB &
+  &, 0.184352E-01_JPRB, 0.161353E-01_JPRB, 0.140774E-01_JPRB &
+  &, 0.122373E-01_JPRB, 0.106189E-01_JPRB, 0.919300E-02_JPRB, 0.792672E-02_JPRB &
+  &, 0.681713E-02_JPRB, 0.584291E-02_JPRB, 0.499782E-02_JPRB &
+  &, 0.425631E-02_JPRB, 0.360850E-02_JPRB, 0.306212E-02_JPRB, 0.258641E-02_JPRB &
+  &, 0.218709E-02_JPRB, 0.182961E-02_JPRB, 0.153810E-02_JPRB &
+  &, 0.127529E-02_JPRB, 0.106508E-02_JPRB, 0.889287E-03_JPRB, 0.728021E-03_JPRB &
+  &, 0.605402E-03_JPRB, 0.500728E-03_JPRB, 0.391470E-03_JPRB &
+  &, 0.326182E-03_JPRB, 0.258074E-03_JPRB, 0.212393E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART17',0,ZHOOK_HANDLE)
+
+XCW( 113, :) = (/ &
+  &  0.880240E+00_JPRB, 0.850928E+00_JPRB, 0.821901E+00_JPRB, 0.793179E+00_JPRB &
+  &, 0.764777E+00_JPRB, 0.736714E+00_JPRB, 0.709006E+00_JPRB &
+  &, 0.681671E+00_JPRB, 0.654727E+00_JPRB, 0.628190E+00_JPRB, 0.602078E+00_JPRB &
+  &, 0.576407E+00_JPRB, 0.551195E+00_JPRB, 0.526457E+00_JPRB &
+  &, 0.502211E+00_JPRB, 0.478474E+00_JPRB, 0.455259E+00_JPRB, 0.432583E+00_JPRB &
+  &, 0.410461E+00_JPRB, 0.388908E+00_JPRB, 0.367938E+00_JPRB &
+  &, 0.347561E+00_JPRB, 0.327795E+00_JPRB, 0.308646E+00_JPRB, 0.290127E+00_JPRB &
+  &, 0.272245E+00_JPRB, 0.255013E+00_JPRB, 0.238434E+00_JPRB &
+  &, 0.222512E+00_JPRB, 0.207252E+00_JPRB, 0.192654E+00_JPRB, 0.178723E+00_JPRB &
+  &, 0.165453E+00_JPRB, 0.152842E+00_JPRB, 0.140886E+00_JPRB &
+  &, 0.129577E+00_JPRB, 0.118904E+00_JPRB, 0.108860E+00_JPRB, 0.994328E-01_JPRB &
+  &, 0.905972E-01_JPRB, 0.823441E-01_JPRB, 0.746610E-01_JPRB &
+  &, 0.675314E-01_JPRB, 0.609232E-01_JPRB, 0.548100E-01_JPRB, 0.491961E-01_JPRB &
+  &, 0.440348E-01_JPRB, 0.393101E-01_JPRB, 0.349890E-01_JPRB &
+  &, 0.310726E-01_JPRB, 0.275062E-01_JPRB, 0.242829E-01_JPRB, 0.213792E-01_JPRB &
+  &, 0.187820E-01_JPRB, 0.164460E-01_JPRB, 0.143500E-01_JPRB &
+  &, 0.125007E-01_JPRB, 0.108409E-01_JPRB, 0.938769E-02_JPRB, 0.810929E-02_JPRB &
+  &, 0.696991E-02_JPRB, 0.598179E-02_JPRB, 0.512207E-02_JPRB &
+  &, 0.436519E-02_JPRB, 0.371979E-02_JPRB, 0.315690E-02_JPRB, 0.266390E-02_JPRB &
+  &, 0.224646E-02_JPRB, 0.189026E-02_JPRB, 0.157940E-02_JPRB &
+  &, 0.131746E-02_JPRB, 0.108661E-02_JPRB, 0.911270E-03_JPRB, 0.750459E-03_JPRB &
+  &, 0.628303E-03_JPRB, 0.500728E-03_JPRB, 0.415311E-03_JPRB &
+  &, 0.326182E-03_JPRB, 0.282882E-03_JPRB, 0.212393E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 114, :) = (/ &
+  &  0.880720E+00_JPRB, 0.851515E+00_JPRB, 0.822590E+00_JPRB, 0.793964E+00_JPRB &
+  &, 0.765652E+00_JPRB, 0.737674E+00_JPRB, 0.710046E+00_JPRB &
+  &, 0.682785E+00_JPRB, 0.655909E+00_JPRB, 0.629435E+00_JPRB, 0.603380E+00_JPRB &
+  &, 0.577761E+00_JPRB, 0.552595E+00_JPRB, 0.527899E+00_JPRB &
+  &, 0.503689E+00_JPRB, 0.479982E+00_JPRB, 0.456792E+00_JPRB, 0.434136E+00_JPRB &
+  &, 0.412029E+00_JPRB, 0.390485E+00_JPRB, 0.369521E+00_JPRB &
+  &, 0.349146E+00_JPRB, 0.329372E+00_JPRB, 0.310215E+00_JPRB, 0.291682E+00_JPRB &
+  &, 0.273784E+00_JPRB, 0.256529E+00_JPRB, 0.239922E+00_JPRB &
+  &, 0.223970E+00_JPRB, 0.208678E+00_JPRB, 0.194046E+00_JPRB, 0.180079E+00_JPRB &
+  &, 0.166769E+00_JPRB, 0.154112E+00_JPRB, 0.142111E+00_JPRB &
+  &, 0.130749E+00_JPRB, 0.120030E+00_JPRB, 0.109936E+00_JPRB, 0.100455E+00_JPRB &
+  &, 0.915736E-01_JPRB, 0.832715E-01_JPRB, 0.755361E-01_JPRB &
+  &, 0.683509E-01_JPRB, 0.616951E-01_JPRB, 0.555430E-01_JPRB, 0.498638E-01_JPRB &
+  &, 0.446580E-01_JPRB, 0.398860E-01_JPRB, 0.355277E-01_JPRB &
+  &, 0.315587E-01_JPRB, 0.279638E-01_JPRB, 0.246964E-01_JPRB, 0.217602E-01_JPRB &
+  &, 0.191144E-01_JPRB, 0.167567E-01_JPRB, 0.146377E-01_JPRB &
+  &, 0.127487E-01_JPRB, 0.110787E-01_JPRB, 0.959860E-02_JPRB, 0.829186E-02_JPRB &
+  &, 0.713967E-02_JPRB, 0.612066E-02_JPRB, 0.524632E-02_JPRB &
+  &, 0.447407E-02_JPRB, 0.381254E-02_JPRB, 0.323273E-02_JPRB, 0.274138E-02_JPRB &
+  &, 0.230584E-02_JPRB, 0.193070E-02_JPRB, 0.162070E-02_JPRB &
+  &, 0.135964E-02_JPRB, 0.112967E-02_JPRB, 0.933252E-03_JPRB, 0.772897E-03_JPRB &
+  &, 0.651203E-03_JPRB, 0.524096E-03_JPRB, 0.439153E-03_JPRB &
+  &, 0.350503E-03_JPRB, 0.282882E-03_JPRB, 0.237693E-03_JPRB, 0.190578E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 115, :) = (/ &
+  &  0.881198E+00_JPRB, 0.852099E+00_JPRB, 0.823275E+00_JPRB, 0.794744E+00_JPRB &
+  &, 0.766523E+00_JPRB, 0.738629E+00_JPRB, 0.711080E+00_JPRB &
+  &, 0.683892E+00_JPRB, 0.657084E+00_JPRB, 0.630673E+00_JPRB, 0.604676E+00_JPRB &
+  &, 0.579109E+00_JPRB, 0.553989E+00_JPRB, 0.529335E+00_JPRB &
+  &, 0.505160E+00_JPRB, 0.481484E+00_JPRB, 0.458318E+00_JPRB, 0.435684E+00_JPRB &
+  &, 0.413591E+00_JPRB, 0.392059E+00_JPRB, 0.371096E+00_JPRB &
+  &, 0.350724E+00_JPRB, 0.330946E+00_JPRB, 0.311780E+00_JPRB, 0.293235E+00_JPRB &
+  &, 0.275319E+00_JPRB, 0.258042E+00_JPRB, 0.241410E+00_JPRB &
+  &, 0.225429E+00_JPRB, 0.210105E+00_JPRB, 0.195438E+00_JPRB, 0.181430E+00_JPRB &
+  &, 0.168081E+00_JPRB, 0.155382E+00_JPRB, 0.143336E+00_JPRB &
+  &, 0.131930E+00_JPRB, 0.121165E+00_JPRB, 0.111021E+00_JPRB, 0.101488E+00_JPRB &
+  &, 0.925501E-01_JPRB, 0.841988E-01_JPRB, 0.764112E-01_JPRB &
+  &, 0.691815E-01_JPRB, 0.624670E-01_JPRB, 0.562643E-01_JPRB, 0.505435E-01_JPRB &
+  &, 0.452934E-01_JPRB, 0.404745E-01_JPRB, 0.360664E-01_JPRB &
+  &, 0.320581E-01_JPRB, 0.284214E-01_JPRB, 0.251237E-01_JPRB, 0.221413E-01_JPRB &
+  &, 0.194612E-01_JPRB, 0.170673E-01_JPRB, 0.149254E-01_JPRB &
+  &, 0.130121E-01_JPRB, 0.113008E-01_JPRB, 0.979330E-02_JPRB, 0.847442E-02_JPRB &
+  &, 0.729244E-02_JPRB, 0.627690E-02_JPRB, 0.537058E-02_JPRB &
+  &, 0.458295E-02_JPRB, 0.390528E-02_JPRB, 0.332752E-02_JPRB, 0.281887E-02_JPRB &
+  &, 0.236521E-02_JPRB, 0.199135E-02_JPRB, 0.168265E-02_JPRB &
+  &, 0.140182E-02_JPRB, 0.117274E-02_JPRB, 0.977216E-03_JPRB, 0.795336E-03_JPRB &
+  &, 0.651203E-03_JPRB, 0.547464E-03_JPRB, 0.439153E-03_JPRB &
+  &, 0.374825E-03_JPRB, 0.282882E-03_JPRB, 0.237693E-03_JPRB, 0.190578E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 116, :) = (/ &
+  &  0.881674E+00_JPRB, 0.852680E+00_JPRB, 0.823956E+00_JPRB, 0.795520E+00_JPRB &
+  &, 0.767388E+00_JPRB, 0.739578E+00_JPRB, 0.712108E+00_JPRB &
+  &, 0.684994E+00_JPRB, 0.658255E+00_JPRB, 0.631906E+00_JPRB, 0.605966E+00_JPRB &
+  &, 0.580450E+00_JPRB, 0.555378E+00_JPRB, 0.530763E+00_JPRB &
+  &, 0.506625E+00_JPRB, 0.482978E+00_JPRB, 0.459840E+00_JPRB, 0.437224E+00_JPRB &
+  &, 0.415149E+00_JPRB, 0.393626E+00_JPRB, 0.372669E+00_JPRB &
+  &, 0.352296E+00_JPRB, 0.332516E+00_JPRB, 0.313342E+00_JPRB, 0.294780E+00_JPRB &
+  &, 0.276850E+00_JPRB, 0.259551E+00_JPRB, 0.242895E+00_JPRB &
+  &, 0.226887E+00_JPRB, 0.211531E+00_JPRB, 0.196830E+00_JPRB, 0.182785E+00_JPRB &
+  &, 0.169393E+00_JPRB, 0.156651E+00_JPRB, 0.144560E+00_JPRB &
+  &, 0.133112E+00_JPRB, 0.122290E+00_JPRB, 0.112097E+00_JPRB, 0.102521E+00_JPRB &
+  &, 0.935369E-01_JPRB, 0.851262E-01_JPRB, 0.772970E-01_JPRB &
+  &, 0.700011E-01_JPRB, 0.632503E-01_JPRB, 0.569973E-01_JPRB, 0.512232E-01_JPRB &
+  &, 0.459166E-01_JPRB, 0.410629E-01_JPRB, 0.366180E-01_JPRB &
+  &, 0.325574E-01_JPRB, 0.288790E-01_JPRB, 0.255372E-01_JPRB, 0.225365E-01_JPRB &
+  &, 0.198225E-01_JPRB, 0.173780E-01_JPRB, 0.152131E-01_JPRB &
+  &, 0.132601E-01_JPRB, 0.115386E-01_JPRB, 0.100042E-01_JPRB, 0.865699E-02_JPRB &
+  &, 0.746220E-02_JPRB, 0.641578E-02_JPRB, 0.549483E-02_JPRB &
+  &, 0.470998E-02_JPRB, 0.401657E-02_JPRB, 0.340335E-02_JPRB, 0.287698E-02_JPRB &
+  &, 0.244438E-02_JPRB, 0.205201E-02_JPRB, 0.172395E-02_JPRB &
+  &, 0.144399E-02_JPRB, 0.119427E-02_JPRB, 0.999198E-03_JPRB, 0.840212E-03_JPRB &
+  &, 0.674103E-03_JPRB, 0.570832E-03_JPRB, 0.462995E-03_JPRB &
+  &, 0.374825E-03_JPRB, 0.307689E-03_JPRB, 0.237693E-03_JPRB, 0.190578E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 117, :) = (/ &
+  &  0.882147E+00_JPRB, 0.853258E+00_JPRB, 0.824633E+00_JPRB, 0.796292E+00_JPRB &
+  &, 0.768249E+00_JPRB, 0.740523E+00_JPRB, 0.713131E+00_JPRB &
+  &, 0.686091E+00_JPRB, 0.659419E+00_JPRB, 0.633132E+00_JPRB, 0.607249E+00_JPRB &
+  &, 0.581786E+00_JPRB, 0.556759E+00_JPRB, 0.532186E+00_JPRB &
+  &, 0.508084E+00_JPRB, 0.484469E+00_JPRB, 0.461355E+00_JPRB, 0.438760E+00_JPRB &
+  &, 0.416700E+00_JPRB, 0.395187E+00_JPRB, 0.374238E+00_JPRB &
+  &, 0.353864E+00_JPRB, 0.334080E+00_JPRB, 0.314897E+00_JPRB, 0.296326E+00_JPRB &
+  &, 0.278378E+00_JPRB, 0.261059E+00_JPRB, 0.244379E+00_JPRB &
+  &, 0.228342E+00_JPRB, 0.212954E+00_JPRB, 0.198218E+00_JPRB, 0.184137E+00_JPRB &
+  &, 0.170705E+00_JPRB, 0.157921E+00_JPRB, 0.145790E+00_JPRB &
+  &, 0.134293E+00_JPRB, 0.123425E+00_JPRB, 0.113182E+00_JPRB, 0.103553E+00_JPRB &
+  &, 0.945134E-01_JPRB, 0.860641E-01_JPRB, 0.781721E-01_JPRB &
+  &, 0.708427E-01_JPRB, 0.640222E-01_JPRB, 0.577303E-01_JPRB, 0.519147E-01_JPRB &
+  &, 0.465642E-01_JPRB, 0.416513E-01_JPRB, 0.371567E-01_JPRB &
+  &, 0.330698E-01_JPRB, 0.293500E-01_JPRB, 0.259645E-01_JPRB, 0.229176E-01_JPRB &
+  &, 0.201693E-01_JPRB, 0.177035E-01_JPRB, 0.155008E-01_JPRB &
+  &, 0.135236E-01_JPRB, 0.117765E-01_JPRB, 0.102151E-01_JPRB, 0.883955E-02_JPRB &
+  &, 0.763195E-02_JPRB, 0.657202E-02_JPRB, 0.563683E-02_JPRB &
+  &, 0.481886E-02_JPRB, 0.410932E-02_JPRB, 0.349813E-02_JPRB, 0.295447E-02_JPRB &
+  &, 0.250376E-02_JPRB, 0.211266E-02_JPRB, 0.176525E-02_JPRB &
+  &, 0.148617E-02_JPRB, 0.123733E-02_JPRB, 0.104316E-02_JPRB, 0.862650E-03_JPRB &
+  &, 0.719903E-03_JPRB, 0.594200E-03_JPRB, 0.486837E-03_JPRB &
+  &, 0.399147E-03_JPRB, 0.307689E-03_JPRB, 0.262992E-03_JPRB, 0.216375E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.144051E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 118, :) = (/ &
+  &  0.882615E+00_JPRB, 0.853832E+00_JPRB, 0.825306E+00_JPRB, 0.797059E+00_JPRB &
+  &, 0.769105E+00_JPRB, 0.741462E+00_JPRB, 0.714149E+00_JPRB &
+  &, 0.687181E+00_JPRB, 0.660577E+00_JPRB, 0.634353E+00_JPRB, 0.608527E+00_JPRB &
+  &, 0.583115E+00_JPRB, 0.558135E+00_JPRB, 0.533604E+00_JPRB &
+  &, 0.509537E+00_JPRB, 0.485953E+00_JPRB, 0.462865E+00_JPRB, 0.440292E+00_JPRB &
+  &, 0.418246E+00_JPRB, 0.396744E+00_JPRB, 0.375801E+00_JPRB &
+  &, 0.355429E+00_JPRB, 0.335640E+00_JPRB, 0.316451E+00_JPRB, 0.297867E+00_JPRB &
+  &, 0.279902E+00_JPRB, 0.262564E+00_JPRB, 0.245860E+00_JPRB &
+  &, 0.229796E+00_JPRB, 0.214376E+00_JPRB, 0.199606E+00_JPRB, 0.185488E+00_JPRB &
+  &, 0.172016E+00_JPRB, 0.159195E+00_JPRB, 0.147014E+00_JPRB &
+  &, 0.135474E+00_JPRB, 0.124560E+00_JPRB, 0.114267E+00_JPRB, 0.104586E+00_JPRB &
+  &, 0.955002E-01_JPRB, 0.870019E-01_JPRB, 0.790580E-01_JPRB &
+  &, 0.716733E-01_JPRB, 0.648168E-01_JPRB, 0.584633E-01_JPRB, 0.525944E-01_JPRB &
+  &, 0.471996E-01_JPRB, 0.422398E-01_JPRB, 0.377083E-01_JPRB &
+  &, 0.335691E-01_JPRB, 0.298076E-01_JPRB, 0.263917E-01_JPRB, 0.233128E-01_JPRB &
+  &, 0.205306E-01_JPRB, 0.180289E-01_JPRB, 0.157885E-01_JPRB &
+  &, 0.137870E-01_JPRB, 0.120144E-01_JPRB, 0.104260E-01_JPRB, 0.903872E-02_JPRB &
+  &, 0.780171E-02_JPRB, 0.671090E-02_JPRB, 0.576108E-02_JPRB &
+  &, 0.492774E-02_JPRB, 0.422061E-02_JPRB, 0.359292E-02_JPRB, 0.305133E-02_JPRB &
+  &, 0.258292E-02_JPRB, 0.217331E-02_JPRB, 0.182720E-02_JPRB &
+  &, 0.152834E-02_JPRB, 0.128040E-02_JPRB, 0.106514E-02_JPRB, 0.885088E-03_JPRB &
+  &, 0.742803E-03_JPRB, 0.594200E-03_JPRB, 0.486837E-03_JPRB &
+  &, 0.399147E-03_JPRB, 0.332497E-03_JPRB, 0.262992E-03_JPRB, 0.216375E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 119, :) = (/ &
+  &  0.883084E+00_JPRB, 0.854403E+00_JPRB, 0.825976E+00_JPRB, 0.797823E+00_JPRB &
+  &, 0.769957E+00_JPRB, 0.742398E+00_JPRB, 0.715162E+00_JPRB &
+  &, 0.688267E+00_JPRB, 0.661730E+00_JPRB, 0.635568E+00_JPRB, 0.609799E+00_JPRB &
+  &, 0.584439E+00_JPRB, 0.559505E+00_JPRB, 0.535015E+00_JPRB &
+  &, 0.510984E+00_JPRB, 0.487430E+00_JPRB, 0.464370E+00_JPRB, 0.441817E+00_JPRB &
+  &, 0.419787E+00_JPRB, 0.398296E+00_JPRB, 0.377358E+00_JPRB &
+  &, 0.356987E+00_JPRB, 0.337200E+00_JPRB, 0.317999E+00_JPRB, 0.299405E+00_JPRB &
+  &, 0.281426E+00_JPRB, 0.264066E+00_JPRB, 0.247337E+00_JPRB &
+  &, 0.231247E+00_JPRB, 0.215799E+00_JPRB, 0.200995E+00_JPRB, 0.186839E+00_JPRB &
+  &, 0.173328E+00_JPRB, 0.160465E+00_JPRB, 0.148239E+00_JPRB &
+  &, 0.136655E+00_JPRB, 0.125695E+00_JPRB, 0.115353E+00_JPRB, 0.105619E+00_JPRB &
+  &, 0.964869E-01_JPRB, 0.879398E-01_JPRB, 0.799439E-01_JPRB &
+  &, 0.725039E-01_JPRB, 0.656001E-01_JPRB, 0.591963E-01_JPRB, 0.532860E-01_JPRB &
+  &, 0.478472E-01_JPRB, 0.428407E-01_JPRB, 0.382598E-01_JPRB &
+  &, 0.340816E-01_JPRB, 0.302787E-01_JPRB, 0.268328E-01_JPRB, 0.237080E-01_JPRB &
+  &, 0.208919E-01_JPRB, 0.183544E-01_JPRB, 0.160914E-01_JPRB &
+  &, 0.140660E-01_JPRB, 0.122522E-01_JPRB, 0.106532E-01_JPRB, 0.922128E-02_JPRB &
+  &, 0.797146E-02_JPRB, 0.686714E-02_JPRB, 0.590308E-02_JPRB &
+  &, 0.505476E-02_JPRB, 0.431336E-02_JPRB, 0.368771E-02_JPRB, 0.312881E-02_JPRB &
+  &, 0.264230E-02_JPRB, 0.223397E-02_JPRB, 0.188915E-02_JPRB &
+  &, 0.157052E-02_JPRB, 0.132346E-02_JPRB, 0.110911E-02_JPRB, 0.907526E-03_JPRB &
+  &, 0.765703E-03_JPRB, 0.617568E-03_JPRB, 0.510679E-03_JPRB &
+  &, 0.423468E-03_JPRB, 0.332497E-03_JPRB, 0.288291E-03_JPRB, 0.216375E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART18',0,ZHOOK_HANDLE)
+
+XCW( 120, :) = (/ &
+  &  0.883547E+00_JPRB, 0.854971E+00_JPRB, 0.826642E+00_JPRB, 0.798579E+00_JPRB &
+  &, 0.770804E+00_JPRB, 0.743327E+00_JPRB, 0.716169E+00_JPRB &
+  &, 0.689347E+00_JPRB, 0.662877E+00_JPRB, 0.636777E+00_JPRB, 0.611065E+00_JPRB &
+  &, 0.585755E+00_JPRB, 0.560869E+00_JPRB, 0.536420E+00_JPRB &
+  &, 0.512426E+00_JPRB, 0.488903E+00_JPRB, 0.465867E+00_JPRB, 0.443336E+00_JPRB &
+  &, 0.421322E+00_JPRB, 0.399844E+00_JPRB, 0.378911E+00_JPRB &
+  &, 0.358545E+00_JPRB, 0.338750E+00_JPRB, 0.319547E+00_JPRB, 0.300940E+00_JPRB &
+  &, 0.282943E+00_JPRB, 0.265567E+00_JPRB, 0.248814E+00_JPRB &
+  &, 0.232698E+00_JPRB, 0.217217E+00_JPRB, 0.202383E+00_JPRB, 0.188191E+00_JPRB &
+  &, 0.174640E+00_JPRB, 0.161735E+00_JPRB, 0.149468E+00_JPRB &
+  &, 0.137837E+00_JPRB, 0.126829E+00_JPRB, 0.116438E+00_JPRB, 0.106661E+00_JPRB &
+  &, 0.974737E-01_JPRB, 0.888777E-01_JPRB, 0.808405E-01_JPRB &
+  &, 0.733456E-01_JPRB, 0.663947E-01_JPRB, 0.599409E-01_JPRB, 0.539776E-01_JPRB &
+  &, 0.484948E-01_JPRB, 0.434417E-01_JPRB, 0.388242E-01_JPRB &
+  &, 0.346072E-01_JPRB, 0.307632E-01_JPRB, 0.272601E-01_JPRB, 0.241032E-01_JPRB &
+  &, 0.212532E-01_JPRB, 0.186947E-01_JPRB, 0.163942E-01_JPRB &
+  &, 0.143294E-01_JPRB, 0.124901E-01_JPRB, 0.108641E-01_JPRB, 0.942044E-02_JPRB &
+  &, 0.814121E-02_JPRB, 0.702338E-02_JPRB, 0.604509E-02_JPRB &
+  &, 0.518179E-02_JPRB, 0.442465E-02_JPRB, 0.376354E-02_JPRB, 0.320630E-02_JPRB &
+  &, 0.272146E-02_JPRB, 0.229462E-02_JPRB, 0.193045E-02_JPRB &
+  &, 0.163378E-02_JPRB, 0.136653E-02_JPRB, 0.113109E-02_JPRB, 0.952403E-03_JPRB &
+  &, 0.788603E-03_JPRB, 0.640936E-03_JPRB, 0.534521E-03_JPRB &
+  &, 0.447790E-03_JPRB, 0.357304E-03_JPRB, 0.288291E-03_JPRB, 0.242172E-03_JPRB &
+  &, 0.194104E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 121, :) = (/ &
+  &  0.884009E+00_JPRB, 0.855535E+00_JPRB, 0.827305E+00_JPRB, 0.799337E+00_JPRB &
+  &, 0.771647E+00_JPRB, 0.744253E+00_JPRB, 0.717172E+00_JPRB &
+  &, 0.690421E+00_JPRB, 0.664019E+00_JPRB, 0.637981E+00_JPRB, 0.612325E+00_JPRB &
+  &, 0.587067E+00_JPRB, 0.562227E+00_JPRB, 0.537819E+00_JPRB &
+  &, 0.513861E+00_JPRB, 0.490370E+00_JPRB, 0.467360E+00_JPRB, 0.444851E+00_JPRB &
+  &, 0.422853E+00_JPRB, 0.401386E+00_JPRB, 0.380461E+00_JPRB &
+  &, 0.360094E+00_JPRB, 0.340300E+00_JPRB, 0.321088E+00_JPRB, 0.302471E+00_JPRB &
+  &, 0.284459E+00_JPRB, 0.267065E+00_JPRB, 0.250291E+00_JPRB &
+  &, 0.234144E+00_JPRB, 0.218635E+00_JPRB, 0.203767E+00_JPRB, 0.189538E+00_JPRB &
+  &, 0.175952E+00_JPRB, 0.163005E+00_JPRB, 0.150697E+00_JPRB &
+  &, 0.139018E+00_JPRB, 0.127964E+00_JPRB, 0.117533E+00_JPRB, 0.107704E+00_JPRB &
+  &, 0.984707E-01_JPRB, 0.898156E-01_JPRB, 0.817264E-01_JPRB &
+  &, 0.741872E-01_JPRB, 0.671780E-01_JPRB, 0.606856E-01_JPRB, 0.546811E-01_JPRB &
+  &, 0.491424E-01_JPRB, 0.440552E-01_JPRB, 0.393886E-01_JPRB &
+  &, 0.351196E-01_JPRB, 0.312342E-01_JPRB, 0.277012E-01_JPRB, 0.245125E-01_JPRB &
+  &, 0.216145E-01_JPRB, 0.190201E-01_JPRB, 0.166971E-01_JPRB &
+  &, 0.146084E-01_JPRB, 0.127438E-01_JPRB, 0.110912E-01_JPRB, 0.961961E-02_JPRB &
+  &, 0.832794E-02_JPRB, 0.717962E-02_JPRB, 0.618709E-02_JPRB &
+  &, 0.530881E-02_JPRB, 0.453595E-02_JPRB, 0.387728E-02_JPRB, 0.328378E-02_JPRB &
+  &, 0.278084E-02_JPRB, 0.235527E-02_JPRB, 0.199240E-02_JPRB &
+  &, 0.167596E-02_JPRB, 0.140959E-02_JPRB, 0.117506E-02_JPRB, 0.974841E-03_JPRB &
+  &, 0.811503E-03_JPRB, 0.664304E-03_JPRB, 0.558363E-03_JPRB &
+  &, 0.447790E-03_JPRB, 0.357304E-03_JPRB, 0.288291E-03_JPRB, 0.242172E-03_JPRB &
+  &, 0.194104E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 122, :) = (/ &
+  &  0.884468E+00_JPRB, 0.856097E+00_JPRB, 0.827964E+00_JPRB, 0.800088E+00_JPRB &
+  &, 0.772485E+00_JPRB, 0.745173E+00_JPRB, 0.718170E+00_JPRB &
+  &, 0.691491E+00_JPRB, 0.665155E+00_JPRB, 0.639179E+00_JPRB, 0.613580E+00_JPRB &
+  &, 0.588374E+00_JPRB, 0.563579E+00_JPRB, 0.539214E+00_JPRB &
+  &, 0.515292E+00_JPRB, 0.491831E+00_JPRB, 0.468849E+00_JPRB, 0.446359E+00_JPRB &
+  &, 0.424378E+00_JPRB, 0.402921E+00_JPRB, 0.382004E+00_JPRB &
+  &, 0.361642E+00_JPRB, 0.341843E+00_JPRB, 0.322625E+00_JPRB, 0.303999E+00_JPRB &
+  &, 0.285973E+00_JPRB, 0.268558E+00_JPRB, 0.251760E+00_JPRB &
+  &, 0.235591E+00_JPRB, 0.220054E+00_JPRB, 0.205151E+00_JPRB, 0.190889E+00_JPRB &
+  &, 0.177264E+00_JPRB, 0.164274E+00_JPRB, 0.151922E+00_JPRB &
+  &, 0.140199E+00_JPRB, 0.129099E+00_JPRB, 0.118619E+00_JPRB, 0.108746E+00_JPRB &
+  &, 0.994678E-01_JPRB, 0.907640E-01_JPRB, 0.826231E-01_JPRB &
+  &, 0.750400E-01_JPRB, 0.679839E-01_JPRB, 0.614302E-01_JPRB, 0.553846E-01_JPRB &
+  &, 0.497900E-01_JPRB, 0.446561E-01_JPRB, 0.399530E-01_JPRB &
+  &, 0.356452E-01_JPRB, 0.317187E-01_JPRB, 0.281423E-01_JPRB, 0.249078E-01_JPRB &
+  &, 0.219902E-01_JPRB, 0.193604E-01_JPRB, 0.169999E-01_JPRB &
+  &, 0.148873E-01_JPRB, 0.129975E-01_JPRB, 0.113184E-01_JPRB, 0.981877E-02_JPRB &
+  &, 0.849770E-02_JPRB, 0.733585E-02_JPRB, 0.632909E-02_JPRB &
+  &, 0.541769E-02_JPRB, 0.464724E-02_JPRB, 0.397206E-02_JPRB, 0.338064E-02_JPRB &
+  &, 0.286001E-02_JPRB, 0.241593E-02_JPRB, 0.205435E-02_JPRB &
+  &, 0.171814E-02_JPRB, 0.143112E-02_JPRB, 0.119704E-02_JPRB, 0.997279E-03_JPRB &
+  &, 0.834403E-03_JPRB, 0.687672E-03_JPRB, 0.558363E-03_JPRB &
+  &, 0.472112E-03_JPRB, 0.382112E-03_JPRB, 0.313590E-03_JPRB, 0.242172E-03_JPRB &
+  &, 0.194104E-03_JPRB, 0.170861E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 123, :) = (/ &
+  &  0.884926E+00_JPRB, 0.856656E+00_JPRB, 0.828619E+00_JPRB, 0.800836E+00_JPRB &
+  &, 0.773320E+00_JPRB, 0.746090E+00_JPRB, 0.719163E+00_JPRB &
+  &, 0.692556E+00_JPRB, 0.666287E+00_JPRB, 0.640372E+00_JPRB, 0.614829E+00_JPRB &
+  &, 0.589674E+00_JPRB, 0.564927E+00_JPRB, 0.540601E+00_JPRB &
+  &, 0.516717E+00_JPRB, 0.493288E+00_JPRB, 0.470330E+00_JPRB, 0.447863E+00_JPRB &
+  &, 0.425900E+00_JPRB, 0.404453E+00_JPRB, 0.383544E+00_JPRB &
+  &, 0.363184E+00_JPRB, 0.343386E+00_JPRB, 0.324159E+00_JPRB, 0.305523E+00_JPRB &
+  &, 0.287482E+00_JPRB, 0.270048E+00_JPRB, 0.253233E+00_JPRB &
+  &, 0.237034E+00_JPRB, 0.221468E+00_JPRB, 0.206535E+00_JPRB, 0.192236E+00_JPRB &
+  &, 0.178576E+00_JPRB, 0.165548E+00_JPRB, 0.153151E+00_JPRB &
+  &, 0.141390E+00_JPRB, 0.130244E+00_JPRB, 0.119714E+00_JPRB, 0.109789E+00_JPRB &
+  &, 0.100465E+00_JPRB, 0.917125E-01_JPRB, 0.835198E-01_JPRB &
+  &, 0.758816E-01_JPRB, 0.687786E-01_JPRB, 0.621865E-01_JPRB, 0.560881E-01_JPRB &
+  &, 0.504498E-01_JPRB, 0.452696E-01_JPRB, 0.405174E-01_JPRB &
+  &, 0.361708E-01_JPRB, 0.322033E-01_JPRB, 0.285971E-01_JPRB, 0.253171E-01_JPRB &
+  &, 0.223659E-01_JPRB, 0.197006E-01_JPRB, 0.173028E-01_JPRB &
+  &, 0.151663E-01_JPRB, 0.132513E-01_JPRB, 0.115455E-01_JPRB, 0.100179E-01_JPRB &
+  &, 0.868443E-02_JPRB, 0.750945E-02_JPRB, 0.647109E-02_JPRB &
+  &, 0.554472E-02_JPRB, 0.475853E-02_JPRB, 0.406685E-02_JPRB, 0.345813E-02_JPRB &
+  &, 0.293917E-02_JPRB, 0.249680E-02_JPRB, 0.209565E-02_JPRB &
+  &, 0.176031E-02_JPRB, 0.147419E-02_JPRB, 0.124100E-02_JPRB, 0.104216E-02_JPRB &
+  &, 0.857304E-03_JPRB, 0.711040E-03_JPRB, 0.582204E-03_JPRB &
+  &, 0.472112E-03_JPRB, 0.406919E-03_JPRB, 0.313590E-03_JPRB, 0.267969E-03_JPRB &
+  &, 0.220404E-03_JPRB, 0.170861E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 124, :) = (/ &
+  &  0.885380E+00_JPRB, 0.857211E+00_JPRB, 0.829272E+00_JPRB, 0.801580E+00_JPRB &
+  &, 0.774150E+00_JPRB, 0.747001E+00_JPRB, 0.720151E+00_JPRB &
+  &, 0.693615E+00_JPRB, 0.667413E+00_JPRB, 0.641559E+00_JPRB, 0.616073E+00_JPRB &
+  &, 0.590970E+00_JPRB, 0.566269E+00_JPRB, 0.541985E+00_JPRB &
+  &, 0.518136E+00_JPRB, 0.494738E+00_JPRB, 0.471808E+00_JPRB, 0.449362E+00_JPRB &
+  &, 0.427415E+00_JPRB, 0.405982E+00_JPRB, 0.385081E+00_JPRB &
+  &, 0.364722E+00_JPRB, 0.344922E+00_JPRB, 0.325693E+00_JPRB, 0.307043E+00_JPRB &
+  &, 0.288988E+00_JPRB, 0.271539E+00_JPRB, 0.254698E+00_JPRB &
+  &, 0.238477E+00_JPRB, 0.222883E+00_JPRB, 0.207919E+00_JPRB, 0.193583E+00_JPRB &
+  &, 0.179883E+00_JPRB, 0.166818E+00_JPRB, 0.154385E+00_JPRB &
+  &, 0.142571E+00_JPRB, 0.131388E+00_JPRB, 0.120809E+00_JPRB, 0.110842E+00_JPRB &
+  &, 0.101462E+00_JPRB, 0.926609E-01_JPRB, 0.844273E-01_JPRB &
+  &, 0.767344E-01_JPRB, 0.695845E-01_JPRB, 0.629427E-01_JPRB, 0.567916E-01_JPRB &
+  &, 0.511096E-01_JPRB, 0.458831E-01_JPRB, 0.410946E-01_JPRB &
+  &, 0.366964E-01_JPRB, 0.326878E-01_JPRB, 0.290382E-01_JPRB, 0.257405E-01_JPRB &
+  &, 0.227416E-01_JPRB, 0.200409E-01_JPRB, 0.176208E-01_JPRB &
+  &, 0.154452E-01_JPRB, 0.135050E-01_JPRB, 0.117727E-01_JPRB, 0.102337E-01_JPRB &
+  &, 0.887116E-02_JPRB, 0.766569E-02_JPRB, 0.661309E-02_JPRB &
+  &, 0.568989E-02_JPRB, 0.486983E-02_JPRB, 0.416164E-02_JPRB, 0.355498E-02_JPRB &
+  &, 0.301834E-02_JPRB, 0.255745E-02_JPRB, 0.215760E-02_JPRB &
+  &, 0.182358E-02_JPRB, 0.153878E-02_JPRB, 0.128497E-02_JPRB, 0.106459E-02_JPRB &
+  &, 0.880204E-03_JPRB, 0.734408E-03_JPRB, 0.606046E-03_JPRB &
+  &, 0.496433E-03_JPRB, 0.406919E-03_JPRB, 0.338889E-03_JPRB, 0.267969E-03_JPRB &
+  &, 0.220404E-03_JPRB, 0.170861E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 125, :) = (/ &
+  &  0.885831E+00_JPRB, 0.857764E+00_JPRB, 0.829920E+00_JPRB, 0.802319E+00_JPRB &
+  &, 0.774976E+00_JPRB, 0.747909E+00_JPRB, 0.721134E+00_JPRB &
+  &, 0.694670E+00_JPRB, 0.668533E+00_JPRB, 0.642741E+00_JPRB, 0.617311E+00_JPRB &
+  &, 0.592260E+00_JPRB, 0.567605E+00_JPRB, 0.543361E+00_JPRB &
+  &, 0.519549E+00_JPRB, 0.496183E+00_JPRB, 0.473279E+00_JPRB, 0.450856E+00_JPRB &
+  &, 0.428926E+00_JPRB, 0.407505E+00_JPRB, 0.386612E+00_JPRB &
+  &, 0.366257E+00_JPRB, 0.346455E+00_JPRB, 0.327220E+00_JPRB, 0.308564E+00_JPRB &
+  &, 0.290494E+00_JPRB, 0.273025E+00_JPRB, 0.256164E+00_JPRB &
+  &, 0.239920E+00_JPRB, 0.224297E+00_JPRB, 0.209298E+00_JPRB, 0.194930E+00_JPRB &
+  &, 0.181195E+00_JPRB, 0.168088E+00_JPRB, 0.155614E+00_JPRB &
+  &, 0.143762E+00_JPRB, 0.132523E+00_JPRB, 0.121904E+00_JPRB, 0.111884E+00_JPRB &
+  &, 0.102459E+00_JPRB, 0.936093E-01_JPRB, 0.853239E-01_JPRB &
+  &, 0.775871E-01_JPRB, 0.703905E-01_JPRB, 0.636990E-01_JPRB, 0.575070E-01_JPRB &
+  &, 0.517817E-01_JPRB, 0.465091E-01_JPRB, 0.416590E-01_JPRB &
+  &, 0.372352E-01_JPRB, 0.331857E-01_JPRB, 0.294930E-01_JPRB, 0.261498E-01_JPRB &
+  &, 0.231174E-01_JPRB, 0.203959E-01_JPRB, 0.179388E-01_JPRB &
+  &, 0.157242E-01_JPRB, 0.137587E-01_JPRB, 0.119998E-01_JPRB, 0.104329E-01_JPRB &
+  &, 0.905789E-02_JPRB, 0.783929E-02_JPRB, 0.675510E-02_JPRB &
+  &, 0.581692E-02_JPRB, 0.498112E-02_JPRB, 0.425642E-02_JPRB, 0.363247E-02_JPRB &
+  &, 0.309751E-02_JPRB, 0.261811E-02_JPRB, 0.221955E-02_JPRB &
+  &, 0.186575E-02_JPRB, 0.158185E-02_JPRB, 0.130695E-02_JPRB, 0.110947E-02_JPRB &
+  &, 0.926004E-03_JPRB, 0.757776E-03_JPRB, 0.629888E-03_JPRB &
+  &, 0.520755E-03_JPRB, 0.431727E-03_JPRB, 0.338889E-03_JPRB, 0.293766E-03_JPRB &
+  &, 0.220404E-03_JPRB, 0.170861E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 126, :) = (/ &
+  &  0.886281E+00_JPRB, 0.858314E+00_JPRB, 0.830566E+00_JPRB, 0.803055E+00_JPRB &
+  &, 0.775798E+00_JPRB, 0.748811E+00_JPRB, 0.722113E+00_JPRB &
+  &, 0.695720E+00_JPRB, 0.669649E+00_JPRB, 0.643918E+00_JPRB, 0.618545E+00_JPRB &
+  &, 0.593544E+00_JPRB, 0.568935E+00_JPRB, 0.544733E+00_JPRB &
+  &, 0.520957E+00_JPRB, 0.497624E+00_JPRB, 0.474747E+00_JPRB, 0.452344E+00_JPRB &
+  &, 0.430432E+00_JPRB, 0.409025E+00_JPRB, 0.388139E+00_JPRB &
+  &, 0.367789E+00_JPRB, 0.347985E+00_JPRB, 0.328744E+00_JPRB, 0.310077E+00_JPRB &
+  &, 0.291996E+00_JPRB, 0.274511E+00_JPRB, 0.257629E+00_JPRB &
+  &, 0.241358E+00_JPRB, 0.225708E+00_JPRB, 0.210678E+00_JPRB, 0.196277E+00_JPRB &
+  &, 0.182507E+00_JPRB, 0.169362E+00_JPRB, 0.156844E+00_JPRB &
+  &, 0.144943E+00_JPRB, 0.133667E+00_JPRB, 0.122999E+00_JPRB, 0.112937E+00_JPRB &
+  &, 0.103466E+00_JPRB, 0.945683E-01_JPRB, 0.862314E-01_JPRB &
+  &, 0.784509E-01_JPRB, 0.711965E-01_JPRB, 0.644552E-01_JPRB, 0.582106E-01_JPRB &
+  &, 0.524415E-01_JPRB, 0.471226E-01_JPRB, 0.422490E-01_JPRB &
+  &, 0.377607E-01_JPRB, 0.336837E-01_JPRB, 0.299479E-01_JPRB, 0.265732E-01_JPRB &
+  &, 0.235076E-01_JPRB, 0.207362E-01_JPRB, 0.182568E-01_JPRB &
+  &, 0.160186E-01_JPRB, 0.140124E-01_JPRB, 0.122270E-01_JPRB, 0.106486E-01_JPRB &
+  &, 0.924462E-02_JPRB, 0.799553E-02_JPRB, 0.691485E-02_JPRB &
+  &, 0.594395E-02_JPRB, 0.511096E-02_JPRB, 0.437017E-02_JPRB, 0.372933E-02_JPRB &
+  &, 0.317667E-02_JPRB, 0.269898E-02_JPRB, 0.228150E-02_JPRB &
+  &, 0.192902E-02_JPRB, 0.162491E-02_JPRB, 0.135091E-02_JPRB, 0.113191E-02_JPRB &
+  &, 0.948904E-03_JPRB, 0.781144E-03_JPRB, 0.653730E-03_JPRB &
+  &, 0.545077E-03_JPRB, 0.431727E-03_JPRB, 0.364189E-03_JPRB, 0.293766E-03_JPRB &
+  &, 0.246705E-03_JPRB, 0.197671E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART19',0,ZHOOK_HANDLE)
+
+XCW( 127, :) = (/ &
+  &  0.886728E+00_JPRB, 0.858861E+00_JPRB, 0.831208E+00_JPRB, 0.803788E+00_JPRB &
+  &, 0.776615E+00_JPRB, 0.749710E+00_JPRB, 0.723087E+00_JPRB &
+  &, 0.696765E+00_JPRB, 0.670760E+00_JPRB, 0.645091E+00_JPRB, 0.619773E+00_JPRB &
+  &, 0.594823E+00_JPRB, 0.570261E+00_JPRB, 0.546101E+00_JPRB &
+  &, 0.522361E+00_JPRB, 0.499059E+00_JPRB, 0.476209E+00_JPRB, 0.453829E+00_JPRB &
+  &, 0.431933E+00_JPRB, 0.410538E+00_JPRB, 0.389660E+00_JPRB &
+  &, 0.369314E+00_JPRB, 0.349511E+00_JPRB, 0.330264E+00_JPRB, 0.311590E+00_JPRB &
+  &, 0.293495E+00_JPRB, 0.275994E+00_JPRB, 0.259091E+00_JPRB &
+  &, 0.242797E+00_JPRB, 0.227118E+00_JPRB, 0.212058E+00_JPRB, 0.197624E+00_JPRB &
+  &, 0.183819E+00_JPRB, 0.170636E+00_JPRB, 0.158077E+00_JPRB &
+  &, 0.146133E+00_JPRB, 0.134812E+00_JPRB, 0.124104E+00_JPRB, 0.113990E+00_JPRB &
+  &, 0.104463E+00_JPRB, 0.955273E-01_JPRB, 0.871389E-01_JPRB &
+  &, 0.793147E-01_JPRB, 0.720138E-01_JPRB, 0.652231E-01_JPRB, 0.589379E-01_JPRB &
+  &, 0.531135E-01_JPRB, 0.477486E-01_JPRB, 0.428262E-01_JPRB &
+  &, 0.382995E-01_JPRB, 0.341817E-01_JPRB, 0.304165E-01_JPRB, 0.269967E-01_JPRB &
+  &, 0.238977E-01_JPRB, 0.210913E-01_JPRB, 0.185748E-01_JPRB &
+  &, 0.163131E-01_JPRB, 0.142820E-01_JPRB, 0.124703E-01_JPRB, 0.108644E-01_JPRB &
+  &, 0.943134E-02_JPRB, 0.816913E-02_JPRB, 0.705685E-02_JPRB &
+  &, 0.608912E-02_JPRB, 0.522226E-02_JPRB, 0.448391E-02_JPRB, 0.382619E-02_JPRB &
+  &, 0.325584E-02_JPRB, 0.275963E-02_JPRB, 0.234345E-02_JPRB &
+  &, 0.197119E-02_JPRB, 0.166798E-02_JPRB, 0.139488E-02_JPRB, 0.117678E-02_JPRB &
+  &, 0.971804E-03_JPRB, 0.804512E-03_JPRB, 0.677572E-03_JPRB &
+  &, 0.545077E-03_JPRB, 0.456534E-03_JPRB, 0.364189E-03_JPRB, 0.293766E-03_JPRB &
+  &, 0.246705E-03_JPRB, 0.197671E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 128, :) = (/ &
+  &  0.887173E+00_JPRB, 0.859406E+00_JPRB, 0.831847E+00_JPRB, 0.804517E+00_JPRB &
+  &, 0.777430E+00_JPRB, 0.750605E+00_JPRB, 0.724057E+00_JPRB &
+  &, 0.697806E+00_JPRB, 0.671867E+00_JPRB, 0.646258E+00_JPRB, 0.620996E+00_JPRB &
+  &, 0.596097E+00_JPRB, 0.571582E+00_JPRB, 0.547462E+00_JPRB &
+  &, 0.523760E+00_JPRB, 0.500489E+00_JPRB, 0.477666E+00_JPRB, 0.455308E+00_JPRB &
+  &, 0.433430E+00_JPRB, 0.412048E+00_JPRB, 0.391180E+00_JPRB &
+  &, 0.370836E+00_JPRB, 0.351034E+00_JPRB, 0.331784E+00_JPRB, 0.313100E+00_JPRB &
+  &, 0.294993E+00_JPRB, 0.277473E+00_JPRB, 0.260548E+00_JPRB &
+  &, 0.244232E+00_JPRB, 0.228529E+00_JPRB, 0.213438E+00_JPRB, 0.198971E+00_JPRB &
+  &, 0.185126E+00_JPRB, 0.171906E+00_JPRB, 0.159307E+00_JPRB &
+  &, 0.147324E+00_JPRB, 0.135956E+00_JPRB, 0.125199E+00_JPRB, 0.115042E+00_JPRB &
+  &, 0.105471E+00_JPRB, 0.964862E-01_JPRB, 0.880572E-01_JPRB &
+  &, 0.801675E-01_JPRB, 0.728198E-01_JPRB, 0.659910E-01_JPRB, 0.596534E-01_JPRB &
+  &, 0.537856E-01_JPRB, 0.483871E-01_JPRB, 0.434163E-01_JPRB &
+  &, 0.388514E-01_JPRB, 0.346797E-01_JPRB, 0.308714E-01_JPRB, 0.274201E-01_JPRB &
+  &, 0.242879E-01_JPRB, 0.214463E-01_JPRB, 0.188928E-01_JPRB &
+  &, 0.166075E-01_JPRB, 0.145516E-01_JPRB, 0.127137E-01_JPRB, 0.110801E-01_JPRB &
+  &, 0.963505E-02_JPRB, 0.834272E-02_JPRB, 0.721660E-02_JPRB &
+  &, 0.621615E-02_JPRB, 0.535210E-02_JPRB, 0.457870E-02_JPRB, 0.392304E-02_JPRB &
+  &, 0.333501E-02_JPRB, 0.284050E-02_JPRB, 0.240540E-02_JPRB &
+  &, 0.203446E-02_JPRB, 0.171104E-02_JPRB, 0.143884E-02_JPRB, 0.119922E-02_JPRB &
+  &, 0.994704E-03_JPRB, 0.827880E-03_JPRB, 0.701414E-03_JPRB &
+  &, 0.569398E-03_JPRB, 0.481341E-03_JPRB, 0.389488E-03_JPRB, 0.319563E-03_JPRB &
+  &, 0.246705E-03_JPRB, 0.197671E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 129, :) = (/ &
+  &  0.887615E+00_JPRB, 0.859947E+00_JPRB, 0.832483E+00_JPRB, 0.805242E+00_JPRB &
+  &, 0.778240E+00_JPRB, 0.751495E+00_JPRB, 0.725023E+00_JPRB &
+  &, 0.698841E+00_JPRB, 0.672968E+00_JPRB, 0.647420E+00_JPRB, 0.622213E+00_JPRB &
+  &, 0.597366E+00_JPRB, 0.572897E+00_JPRB, 0.548819E+00_JPRB &
+  &, 0.525153E+00_JPRB, 0.501914E+00_JPRB, 0.479117E+00_JPRB, 0.456783E+00_JPRB &
+  &, 0.434924E+00_JPRB, 0.413555E+00_JPRB, 0.392695E+00_JPRB &
+  &, 0.372354E+00_JPRB, 0.352553E+00_JPRB, 0.333297E+00_JPRB, 0.314606E+00_JPRB &
+  &, 0.296485E+00_JPRB, 0.278952E+00_JPRB, 0.262010E+00_JPRB &
+  &, 0.245667E+00_JPRB, 0.229935E+00_JPRB, 0.214818E+00_JPRB, 0.200318E+00_JPRB &
+  &, 0.186438E+00_JPRB, 0.173180E+00_JPRB, 0.160540E+00_JPRB &
+  &, 0.148514E+00_JPRB, 0.137110E+00_JPRB, 0.126304E+00_JPRB, 0.116105E+00_JPRB &
+  &, 0.106488E+00_JPRB, 0.974452E-01_JPRB, 0.889646E-01_JPRB &
+  &, 0.810424E-01_JPRB, 0.736371E-01_JPRB, 0.667589E-01_JPRB, 0.603807E-01_JPRB &
+  &, 0.544698E-01_JPRB, 0.490131E-01_JPRB, 0.439935E-01_JPRB &
+  &, 0.393901E-01_JPRB, 0.351776E-01_JPRB, 0.313400E-01_JPRB, 0.278435E-01_JPRB &
+  &, 0.246781E-01_JPRB, 0.218014E-01_JPRB, 0.192259E-01_JPRB &
+  &, 0.169019E-01_JPRB, 0.148212E-01_JPRB, 0.129571E-01_JPRB, 0.112959E-01_JPRB &
+  &, 0.982178E-02_JPRB, 0.851632E-02_JPRB, 0.737636E-02_JPRB &
+  &, 0.636132E-02_JPRB, 0.546339E-02_JPRB, 0.469244E-02_JPRB, 0.401990E-02_JPRB &
+  &, 0.341417E-02_JPRB, 0.290116E-02_JPRB, 0.246735E-02_JPRB &
+  &, 0.207664E-02_JPRB, 0.175411E-02_JPRB, 0.148281E-02_JPRB, 0.124410E-02_JPRB &
+  &, 0.104050E-02_JPRB, 0.851248E-03_JPRB, 0.725255E-03_JPRB &
+  &, 0.593720E-03_JPRB, 0.481341E-03_JPRB, 0.389488E-03_JPRB, 0.319563E-03_JPRB &
+  &, 0.273005E-03_JPRB, 0.224481E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 130, :) = (/ &
+  &  0.888056E+00_JPRB, 0.860485E+00_JPRB, 0.833116E+00_JPRB, 0.805964E+00_JPRB &
+  &, 0.779046E+00_JPRB, 0.752381E+00_JPRB, 0.725984E+00_JPRB &
+  &, 0.699872E+00_JPRB, 0.674065E+00_JPRB, 0.648577E+00_JPRB, 0.623426E+00_JPRB &
+  &, 0.598630E+00_JPRB, 0.574206E+00_JPRB, 0.550170E+00_JPRB &
+  &, 0.526541E+00_JPRB, 0.503334E+00_JPRB, 0.480566E+00_JPRB, 0.458252E+00_JPRB &
+  &, 0.436411E+00_JPRB, 0.415056E+00_JPRB, 0.394206E+00_JPRB &
+  &, 0.373869E+00_JPRB, 0.354066E+00_JPRB, 0.334810E+00_JPRB, 0.316109E+00_JPRB &
+  &, 0.297976E+00_JPRB, 0.280427E+00_JPRB, 0.263464E+00_JPRB &
+  &, 0.247102E+00_JPRB, 0.231341E+00_JPRB, 0.216194E+00_JPRB, 0.201661E+00_JPRB &
+  &, 0.187750E+00_JPRB, 0.174454E+00_JPRB, 0.161774E+00_JPRB &
+  &, 0.149705E+00_JPRB, 0.138254E+00_JPRB, 0.127409E+00_JPRB, 0.117158E+00_JPRB &
+  &, 0.107496E+00_JPRB, 0.984042E-01_JPRB, 0.898829E-01_JPRB &
+  &, 0.819062E-01_JPRB, 0.744658E-01_JPRB, 0.675385E-01_JPRB, 0.611081E-01_JPRB &
+  &, 0.551541E-01_JPRB, 0.496516E-01_JPRB, 0.445963E-01_JPRB &
+  &, 0.399420E-01_JPRB, 0.356891E-01_JPRB, 0.318087E-01_JPRB, 0.282811E-01_JPRB &
+  &, 0.250683E-01_JPRB, 0.221712E-01_JPRB, 0.195590E-01_JPRB &
+  &, 0.171964E-01_JPRB, 0.150908E-01_JPRB, 0.132004E-01_JPRB, 0.115117E-01_JPRB &
+  &, 0.100255E-01_JPRB, 0.870728E-02_JPRB, 0.753611E-02_JPRB &
+  &, 0.650649E-02_JPRB, 0.559324E-02_JPRB, 0.480618E-02_JPRB, 0.411676E-02_JPRB &
+  &, 0.351313E-02_JPRB, 0.298203E-02_JPRB, 0.252930E-02_JPRB &
+  &, 0.213990E-02_JPRB, 0.181870E-02_JPRB, 0.152677E-02_JPRB, 0.126654E-02_JPRB &
+  &, 0.106340E-02_JPRB, 0.897984E-03_JPRB, 0.749097E-03_JPRB &
+  &, 0.618042E-03_JPRB, 0.506149E-03_JPRB, 0.414787E-03_JPRB, 0.345359E-03_JPRB &
+  &, 0.273005E-03_JPRB, 0.224481E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 131, :) = (/ &
+  &  0.888493E+00_JPRB, 0.861022E+00_JPRB, 0.833745E+00_JPRB, 0.806683E+00_JPRB &
+  &, 0.779849E+00_JPRB, 0.753263E+00_JPRB, 0.726940E+00_JPRB &
+  &, 0.700899E+00_JPRB, 0.675156E+00_JPRB, 0.649729E+00_JPRB, 0.624635E+00_JPRB &
+  &, 0.599890E+00_JPRB, 0.575512E+00_JPRB, 0.551517E+00_JPRB &
+  &, 0.527924E+00_JPRB, 0.504750E+00_JPRB, 0.482008E+00_JPRB, 0.459718E+00_JPRB &
+  &, 0.437896E+00_JPRB, 0.416553E+00_JPRB, 0.395710E+00_JPRB &
+  &, 0.375381E+00_JPRB, 0.355578E+00_JPRB, 0.336316E+00_JPRB, 0.317608E+00_JPRB &
+  &, 0.299467E+00_JPRB, 0.281899E+00_JPRB, 0.264918E+00_JPRB &
+  &, 0.248533E+00_JPRB, 0.232748E+00_JPRB, 0.217574E+00_JPRB, 0.203008E+00_JPRB &
+  &, 0.189058E+00_JPRB, 0.175724E+00_JPRB, 0.163008E+00_JPRB &
+  &, 0.150905E+00_JPRB, 0.139408E+00_JPRB, 0.128514E+00_JPRB, 0.118221E+00_JPRB &
+  &, 0.108513E+00_JPRB, 0.993737E-01_JPRB, 0.908012E-01_JPRB &
+  &, 0.827811E-01_JPRB, 0.752831E-01_JPRB, 0.683064E-01_JPRB, 0.618354E-01_JPRB &
+  &, 0.558384E-01_JPRB, 0.502901E-01_JPRB, 0.451864E-01_JPRB &
+  &, 0.404938E-01_JPRB, 0.362005E-01_JPRB, 0.322773E-01_JPRB, 0.287186E-01_JPRB &
+  &, 0.254729E-01_JPRB, 0.225411E-01_JPRB, 0.198922E-01_JPRB &
+  &, 0.175063E-01_JPRB, 0.153604E-01_JPRB, 0.134438E-01_JPRB, 0.117440E-01_JPRB &
+  &, 0.102292E-01_JPRB, 0.888088E-02_JPRB, 0.769586E-02_JPRB &
+  &, 0.663352E-02_JPRB, 0.572308E-02_JPRB, 0.491993E-02_JPRB, 0.421362E-02_JPRB &
+  &, 0.359230E-02_JPRB, 0.306290E-02_JPRB, 0.259125E-02_JPRB &
+  &, 0.220316E-02_JPRB, 0.186177E-02_JPRB, 0.157074E-02_JPRB, 0.131141E-02_JPRB &
+  &, 0.110920E-02_JPRB, 0.921352E-03_JPRB, 0.772939E-03_JPRB &
+  &, 0.642363E-03_JPRB, 0.530956E-03_JPRB, 0.440086E-03_JPRB, 0.345359E-03_JPRB &
+  &, 0.299306E-03_JPRB, 0.224481E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 132, :) = (/ &
+  &  0.888929E+00_JPRB, 0.861556E+00_JPRB, 0.834372E+00_JPRB, 0.807398E+00_JPRB &
+  &, 0.780648E+00_JPRB, 0.754141E+00_JPRB, 0.727893E+00_JPRB &
+  &, 0.701922E+00_JPRB, 0.676244E+00_JPRB, 0.650877E+00_JPRB, 0.625838E+00_JPRB &
+  &, 0.601143E+00_JPRB, 0.576811E+00_JPRB, 0.552860E+00_JPRB &
+  &, 0.529303E+00_JPRB, 0.506159E+00_JPRB, 0.483446E+00_JPRB, 0.461179E+00_JPRB &
+  &, 0.439374E+00_JPRB, 0.418047E+00_JPRB, 0.397215E+00_JPRB &
+  &, 0.376890E+00_JPRB, 0.357087E+00_JPRB, 0.337823E+00_JPRB, 0.319107E+00_JPRB &
+  &, 0.300951E+00_JPRB, 0.283370E+00_JPRB, 0.266372E+00_JPRB &
+  &, 0.249964E+00_JPRB, 0.234154E+00_JPRB, 0.218949E+00_JPRB, 0.204351E+00_JPRB &
+  &, 0.190370E+00_JPRB, 0.176998E+00_JPRB, 0.164242E+00_JPRB &
+  &, 0.152095E+00_JPRB, 0.140562E+00_JPRB, 0.129619E+00_JPRB, 0.119283E+00_JPRB &
+  &, 0.109520E+00_JPRB, 0.100343E+00_JPRB, 0.917195E-01_JPRB &
+  &, 0.836560E-01_JPRB, 0.761118E-01_JPRB, 0.690859E-01_JPRB, 0.625628E-01_JPRB &
+  &, 0.565226E-01_JPRB, 0.509286E-01_JPRB, 0.457892E-01_JPRB &
+  &, 0.410588E-01_JPRB, 0.367254E-01_JPRB, 0.327597E-01_JPRB, 0.291562E-01_JPRB &
+  &, 0.258775E-01_JPRB, 0.229109E-01_JPRB, 0.202253E-01_JPRB &
+  &, 0.178163E-01_JPRB, 0.156458E-01_JPRB, 0.137034E-01_JPRB, 0.119764E-01_JPRB &
+  &, 0.104329E-01_JPRB, 0.905448E-02_JPRB, 0.785561E-02_JPRB &
+  &, 0.677869E-02_JPRB, 0.585292E-02_JPRB, 0.503367E-02_JPRB, 0.431047E-02_JPRB &
+  &, 0.369126E-02_JPRB, 0.314377E-02_JPRB, 0.267385E-02_JPRB &
+  &, 0.226643E-02_JPRB, 0.190483E-02_JPRB, 0.161470E-02_JPRB, 0.135629E-02_JPRB &
+  &, 0.113210E-02_JPRB, 0.944720E-03_JPRB, 0.796781E-03_JPRB &
+  &, 0.642363E-03_JPRB, 0.530956E-03_JPRB, 0.440086E-03_JPRB, 0.371156E-03_JPRB &
+  &, 0.299306E-03_JPRB, 0.251291E-03_JPRB, 0.201280E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 133, :) = (/ &
+  &  0.889363E+00_JPRB, 0.862087E+00_JPRB, 0.834996E+00_JPRB, 0.808109E+00_JPRB &
+  &, 0.781443E+00_JPRB, 0.755015E+00_JPRB, 0.728841E+00_JPRB &
+  &, 0.702940E+00_JPRB, 0.677327E+00_JPRB, 0.652020E+00_JPRB, 0.627037E+00_JPRB &
+  &, 0.602393E+00_JPRB, 0.578107E+00_JPRB, 0.554197E+00_JPRB &
+  &, 0.530678E+00_JPRB, 0.507566E+00_JPRB, 0.484880E+00_JPRB, 0.462636E+00_JPRB &
+  &, 0.440849E+00_JPRB, 0.419535E+00_JPRB, 0.398713E+00_JPRB &
+  &, 0.378395E+00_JPRB, 0.358593E+00_JPRB, 0.339325E+00_JPRB, 0.320603E+00_JPRB &
+  &, 0.302435E+00_JPRB, 0.284842E+00_JPRB, 0.267822E+00_JPRB &
+  &, 0.251392E+00_JPRB, 0.235557E+00_JPRB, 0.220325E+00_JPRB, 0.205698E+00_JPRB &
+  &, 0.191682E+00_JPRB, 0.178272E+00_JPRB, 0.165480E+00_JPRB &
+  &, 0.153295E+00_JPRB, 0.141707E+00_JPRB, 0.130734E+00_JPRB, 0.120346E+00_JPRB &
+  &, 0.110538E+00_JPRB, 0.101313E+00_JPRB, 0.926486E-01_JPRB &
+  &, 0.845309E-01_JPRB, 0.769404E-01_JPRB, 0.698771E-01_JPRB, 0.633021E-01_JPRB &
+  &, 0.572069E-01_JPRB, 0.515797E-01_JPRB, 0.463921E-01_JPRB &
+  &, 0.416107E-01_JPRB, 0.372368E-01_JPRB, 0.332422E-01_JPRB, 0.295937E-01_JPRB &
+  &, 0.262822E-01_JPRB, 0.232807E-01_JPRB, 0.205584E-01_JPRB &
+  &, 0.181107E-01_JPRB, 0.159154E-01_JPRB, 0.139467E-01_JPRB, 0.121921E-01_JPRB &
+  &, 0.106366E-01_JPRB, 0.924544E-02_JPRB, 0.801536E-02_JPRB &
+  &, 0.692386E-02_JPRB, 0.598276E-02_JPRB, 0.514741E-02_JPRB, 0.440733E-02_JPRB &
+  &, 0.377043E-02_JPRB, 0.322464E-02_JPRB, 0.273580E-02_JPRB &
+  &, 0.232969E-02_JPRB, 0.196943E-02_JPRB, 0.165866E-02_JPRB, 0.140117E-02_JPRB &
+  &, 0.115500E-02_JPRB, 0.968088E-03_JPRB, 0.820623E-03_JPRB &
+  &, 0.666685E-03_JPRB, 0.555764E-03_JPRB, 0.465385E-03_JPRB, 0.371156E-03_JPRB &
+  &, 0.299306E-03_JPRB, 0.251291E-03_JPRB, 0.201280E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART20',0,ZHOOK_HANDLE)
+
+XCW( 134, :) = (/ &
+  &  0.889795E+00_JPRB, 0.862614E+00_JPRB, 0.835616E+00_JPRB, 0.808818E+00_JPRB &
+  &, 0.782235E+00_JPRB, 0.755885E+00_JPRB, 0.729786E+00_JPRB &
+  &, 0.703954E+00_JPRB, 0.678405E+00_JPRB, 0.653158E+00_JPRB, 0.628230E+00_JPRB &
+  &, 0.603638E+00_JPRB, 0.579399E+00_JPRB, 0.555528E+00_JPRB &
+  &, 0.532047E+00_JPRB, 0.508968E+00_JPRB, 0.486310E+00_JPRB, 0.464088E+00_JPRB &
+  &, 0.442321E+00_JPRB, 0.421023E+00_JPRB, 0.400208E+00_JPRB &
+  &, 0.379894E+00_JPRB, 0.360096E+00_JPRB, 0.340825E+00_JPRB, 0.322095E+00_JPRB &
+  &, 0.303919E+00_JPRB, 0.286306E+00_JPRB, 0.269272E+00_JPRB &
+  &, 0.252819E+00_JPRB, 0.236959E+00_JPRB, 0.221697E+00_JPRB, 0.207041E+00_JPRB &
+  &, 0.192989E+00_JPRB, 0.179546E+00_JPRB, 0.166714E+00_JPRB &
+  &, 0.154486E+00_JPRB, 0.142861E+00_JPRB, 0.131839E+00_JPRB, 0.121409E+00_JPRB &
+  &, 0.111566E+00_JPRB, 0.102293E+00_JPRB, 0.935777E-01_JPRB &
+  &, 0.854057E-01_JPRB, 0.777804E-01_JPRB, 0.706566E-01_JPRB, 0.640413E-01_JPRB &
+  &, 0.579033E-01_JPRB, 0.522307E-01_JPRB, 0.469950E-01_JPRB &
+  &, 0.421757E-01_JPRB, 0.377617E-01_JPRB, 0.337246E-01_JPRB, 0.300454E-01_JPRB &
+  &, 0.266868E-01_JPRB, 0.236506E-01_JPRB, 0.209067E-01_JPRB &
+  &, 0.184362E-01_JPRB, 0.162008E-01_JPRB, 0.142063E-01_JPRB, 0.124245E-01_JPRB &
+  &, 0.108403E-01_JPRB, 0.943640E-02_JPRB, 0.817512E-02_JPRB &
+  &, 0.708718E-02_JPRB, 0.611261E-02_JPRB, 0.526116E-02_JPRB, 0.450419E-02_JPRB &
+  &, 0.386938E-02_JPRB, 0.330552E-02_JPRB, 0.279775E-02_JPRB &
+  &, 0.237187E-02_JPRB, 0.201249E-02_JPRB, 0.170263E-02_JPRB, 0.142360E-02_JPRB &
+  &, 0.120080E-02_JPRB, 0.101482E-02_JPRB, 0.844465E-03_JPRB &
+  &, 0.691007E-03_JPRB, 0.580571E-03_JPRB, 0.465385E-03_JPRB, 0.396953E-03_JPRB &
+  &, 0.325606E-03_JPRB, 0.251291E-03_JPRB, 0.201280E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 135, :) = (/ &
+  &  0.890225E+00_JPRB, 0.863140E+00_JPRB, 0.836234E+00_JPRB, 0.809523E+00_JPRB &
+  &, 0.783023E+00_JPRB, 0.756752E+00_JPRB, 0.730726E+00_JPRB &
+  &, 0.704963E+00_JPRB, 0.679479E+00_JPRB, 0.654292E+00_JPRB, 0.629420E+00_JPRB &
+  &, 0.604878E+00_JPRB, 0.580685E+00_JPRB, 0.556857E+00_JPRB &
+  &, 0.533411E+00_JPRB, 0.510364E+00_JPRB, 0.487735E+00_JPRB, 0.465536E+00_JPRB &
+  &, 0.443788E+00_JPRB, 0.422501E+00_JPRB, 0.401699E+00_JPRB &
+  &, 0.381392E+00_JPRB, 0.361595E+00_JPRB, 0.342320E+00_JPRB, 0.323583E+00_JPRB &
+  &, 0.305396E+00_JPRB, 0.287773E+00_JPRB, 0.270719E+00_JPRB &
+  &, 0.254246E+00_JPRB, 0.238361E+00_JPRB, 0.223072E+00_JPRB, 0.208384E+00_JPRB &
+  &, 0.194301E+00_JPRB, 0.180825E+00_JPRB, 0.167952E+00_JPRB &
+  &, 0.155686E+00_JPRB, 0.144024E+00_JPRB, 0.132953E+00_JPRB, 0.122481E+00_JPRB &
+  &, 0.112584E+00_JPRB, 0.103262E+00_JPRB, 0.945067E-01_JPRB &
+  &, 0.862917E-01_JPRB, 0.786091E-01_JPRB, 0.714478E-01_JPRB, 0.647806E-01_JPRB &
+  &, 0.585998E-01_JPRB, 0.528817E-01_JPRB, 0.476107E-01_JPRB &
+  &, 0.427407E-01_JPRB, 0.382866E-01_JPRB, 0.342070E-01_JPRB, 0.304829E-01_JPRB &
+  &, 0.271059E-01_JPRB, 0.240352E-01_JPRB, 0.212550E-01_JPRB &
+  &, 0.187461E-01_JPRB, 0.164863E-01_JPRB, 0.144659E-01_JPRB, 0.126568E-01_JPRB &
+  &, 0.110610E-01_JPRB, 0.962735E-02_JPRB, 0.835262E-02_JPRB &
+  &, 0.723236E-02_JPRB, 0.624245E-02_JPRB, 0.537490E-02_JPRB, 0.462042E-02_JPRB &
+  &, 0.394855E-02_JPRB, 0.338639E-02_JPRB, 0.288035E-02_JPRB &
+  &, 0.243513E-02_JPRB, 0.207709E-02_JPRB, 0.174659E-02_JPRB, 0.146848E-02_JPRB &
+  &, 0.122371E-02_JPRB, 0.103819E-02_JPRB, 0.868307E-03_JPRB &
+  &, 0.715328E-03_JPRB, 0.605379E-03_JPRB, 0.490684E-03_JPRB, 0.396953E-03_JPRB &
+  &, 0.325606E-03_JPRB, 0.278102E-03_JPRB, 0.228606E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 136, :) = (/ &
+  &  0.890652E+00_JPRB, 0.863664E+00_JPRB, 0.836849E+00_JPRB, 0.810225E+00_JPRB &
+  &, 0.783807E+00_JPRB, 0.757614E+00_JPRB, 0.731662E+00_JPRB &
+  &, 0.705967E+00_JPRB, 0.680549E+00_JPRB, 0.655422E+00_JPRB, 0.630605E+00_JPRB &
+  &, 0.606113E+00_JPRB, 0.581967E+00_JPRB, 0.558180E+00_JPRB &
+  &, 0.534770E+00_JPRB, 0.511757E+00_JPRB, 0.489155E+00_JPRB, 0.466981E+00_JPRB &
+  &, 0.445251E+00_JPRB, 0.423980E+00_JPRB, 0.403187E+00_JPRB &
+  &, 0.382884E+00_JPRB, 0.363090E+00_JPRB, 0.343813E+00_JPRB, 0.325072E+00_JPRB &
+  &, 0.306873E+00_JPRB, 0.289234E+00_JPRB, 0.272165E+00_JPRB &
+  &, 0.255669E+00_JPRB, 0.239764E+00_JPRB, 0.224448E+00_JPRB, 0.209727E+00_JPRB &
+  &, 0.195613E+00_JPRB, 0.182099E+00_JPRB, 0.169190E+00_JPRB &
+  &, 0.156886E+00_JPRB, 0.145178E+00_JPRB, 0.134068E+00_JPRB, 0.123544E+00_JPRB &
+  &, 0.113611E+00_JPRB, 0.104242E+00_JPRB, 0.954358E-01_JPRB &
+  &, 0.871777E-01_JPRB, 0.794491E-01_JPRB, 0.722389E-01_JPRB, 0.655318E-01_JPRB &
+  &, 0.593085E-01_JPRB, 0.535453E-01_JPRB, 0.482135E-01_JPRB &
+  &, 0.433189E-01_JPRB, 0.388249E-01_JPRB, 0.347032E-01_JPRB, 0.309346E-01_JPRB &
+  &, 0.275250E-01_JPRB, 0.244199E-01_JPRB, 0.216033E-01_JPRB &
+  &, 0.190561E-01_JPRB, 0.167876E-01_JPRB, 0.147255E-01_JPRB, 0.129058E-01_JPRB &
+  &, 0.112647E-01_JPRB, 0.981831E-02_JPRB, 0.853012E-02_JPRB &
+  &, 0.737753E-02_JPRB, 0.637229E-02_JPRB, 0.548865E-02_JPRB, 0.471727E-02_JPRB &
+  &, 0.404751E-02_JPRB, 0.346726E-02_JPRB, 0.294230E-02_JPRB &
+  &, 0.249840E-02_JPRB, 0.212015E-02_JPRB, 0.179056E-02_JPRB, 0.151336E-02_JPRB &
+  &, 0.126951E-02_JPRB, 0.106156E-02_JPRB, 0.892148E-03_JPRB &
+  &, 0.739650E-03_JPRB, 0.605379E-03_JPRB, 0.515984E-03_JPRB, 0.422750E-03_JPRB &
+  &, 0.351907E-03_JPRB, 0.278102E-03_JPRB, 0.228606E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 137, :) = (/ &
+  &  0.891078E+00_JPRB, 0.864185E+00_JPRB, 0.837461E+00_JPRB, 0.810924E+00_JPRB &
+  &, 0.784589E+00_JPRB, 0.758473E+00_JPRB, 0.732594E+00_JPRB &
+  &, 0.706969E+00_JPRB, 0.681614E+00_JPRB, 0.656547E+00_JPRB, 0.631785E+00_JPRB &
+  &, 0.607344E+00_JPRB, 0.583243E+00_JPRB, 0.559499E+00_JPRB &
+  &, 0.536126E+00_JPRB, 0.513145E+00_JPRB, 0.490570E+00_JPRB, 0.468421E+00_JPRB &
+  &, 0.446709E+00_JPRB, 0.425455E+00_JPRB, 0.404672E+00_JPRB &
+  &, 0.384376E+00_JPRB, 0.364583E+00_JPRB, 0.345305E+00_JPRB, 0.326557E+00_JPRB &
+  &, 0.308350E+00_JPRB, 0.290698E+00_JPRB, 0.273607E+00_JPRB &
+  &, 0.257093E+00_JPRB, 0.241162E+00_JPRB, 0.225820E+00_JPRB, 0.211070E+00_JPRB &
+  &, 0.196920E+00_JPRB, 0.183373E+00_JPRB, 0.170429E+00_JPRB &
+  &, 0.158086E+00_JPRB, 0.146332E+00_JPRB, 0.135183E+00_JPRB, 0.124617E+00_JPRB &
+  &, 0.114639E+00_JPRB, 0.105222E+00_JPRB, 0.963757E-01_JPRB &
+  &, 0.880636E-01_JPRB, 0.802892E-01_JPRB, 0.730418E-01_JPRB, 0.662830E-01_JPRB &
+  &, 0.600050E-01_JPRB, 0.541963E-01_JPRB, 0.488292E-01_JPRB &
+  &, 0.438970E-01_JPRB, 0.393498E-01_JPRB, 0.351994E-01_JPRB, 0.314004E-01_JPRB &
+  &, 0.279440E-01_JPRB, 0.248045E-01_JPRB, 0.219516E-01_JPRB &
+  &, 0.193815E-01_JPRB, 0.170730E-01_JPRB, 0.150013E-01_JPRB, 0.131382E-01_JPRB &
+  &, 0.114854E-01_JPRB, 0.100093E-01_JPRB, 0.868987E-02_JPRB &
+  &, 0.754085E-02_JPRB, 0.652068E-02_JPRB, 0.562135E-02_JPRB, 0.483350E-02_JPRB &
+  &, 0.414647E-02_JPRB, 0.354813E-02_JPRB, 0.302490E-02_JPRB &
+  &, 0.256166E-02_JPRB, 0.218475E-02_JPRB, 0.183452E-02_JPRB, 0.155823E-02_JPRB &
+  &, 0.131531E-02_JPRB, 0.108493E-02_JPRB, 0.915990E-03_JPRB &
+  &, 0.763972E-03_JPRB, 0.630186E-03_JPRB, 0.515984E-03_JPRB, 0.422750E-03_JPRB &
+  &, 0.351907E-03_JPRB, 0.278102E-03_JPRB, 0.228606E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 138, :) = (/ &
+  &  0.891501E+00_JPRB, 0.864704E+00_JPRB, 0.838071E+00_JPRB, 0.811620E+00_JPRB &
+  &, 0.785366E+00_JPRB, 0.759329E+00_JPRB, 0.733523E+00_JPRB &
+  &, 0.707966E+00_JPRB, 0.682675E+00_JPRB, 0.657668E+00_JPRB, 0.632960E+00_JPRB &
+  &, 0.608570E+00_JPRB, 0.584515E+00_JPRB, 0.560812E+00_JPRB &
+  &, 0.537478E+00_JPRB, 0.514528E+00_JPRB, 0.491983E+00_JPRB, 0.469856E+00_JPRB &
+  &, 0.448164E+00_JPRB, 0.426924E+00_JPRB, 0.406151E+00_JPRB &
+  &, 0.385862E+00_JPRB, 0.366072E+00_JPRB, 0.346790E+00_JPRB, 0.328038E+00_JPRB &
+  &, 0.309823E+00_JPRB, 0.292154E+00_JPRB, 0.275050E+00_JPRB &
+  &, 0.258516E+00_JPRB, 0.242561E+00_JPRB, 0.227192E+00_JPRB, 0.212412E+00_JPRB &
+  &, 0.198232E+00_JPRB, 0.184652E+00_JPRB, 0.171667E+00_JPRB &
+  &, 0.159285E+00_JPRB, 0.147496E+00_JPRB, 0.136298E+00_JPRB, 0.125690E+00_JPRB &
+  &, 0.115667E+00_JPRB, 0.106213E+00_JPRB, 0.973048E-01_JPRB &
+  &, 0.889607E-01_JPRB, 0.811406E-01_JPRB, 0.738329E-01_JPRB, 0.670342E-01_JPRB &
+  &, 0.607137E-01_JPRB, 0.548599E-01_JPRB, 0.494577E-01_JPRB &
+  &, 0.444752E-01_JPRB, 0.398882E-01_JPRB, 0.356956E-01_JPRB, 0.318520E-01_JPRB &
+  &, 0.283631E-01_JPRB, 0.251892E-01_JPRB, 0.223150E-01_JPRB &
+  &, 0.197069E-01_JPRB, 0.173743E-01_JPRB, 0.152609E-01_JPRB, 0.133871E-01_JPRB &
+  &, 0.117060E-01_JPRB, 0.102002E-01_JPRB, 0.886738E-02_JPRB &
+  &, 0.770417E-02_JPRB, 0.665053E-02_JPRB, 0.573509E-02_JPRB, 0.494973E-02_JPRB &
+  &, 0.424543E-02_JPRB, 0.362900E-02_JPRB, 0.310750E-02_JPRB &
+  &, 0.264601E-02_JPRB, 0.222781E-02_JPRB, 0.190047E-02_JPRB, 0.160311E-02_JPRB &
+  &, 0.133821E-02_JPRB, 0.113166E-02_JPRB, 0.939832E-03_JPRB &
+  &, 0.788293E-03_JPRB, 0.654994E-03_JPRB, 0.541283E-03_JPRB, 0.448547E-03_JPRB &
+  &, 0.378208E-03_JPRB, 0.304912E-03_JPRB, 0.255932E-03_JPRB &
+  &, 0.204931E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 139, :) = (/ &
+  &  0.891922E+00_JPRB, 0.865220E+00_JPRB, 0.838677E+00_JPRB, 0.812312E+00_JPRB &
+  &, 0.786141E+00_JPRB, 0.760180E+00_JPRB, 0.734447E+00_JPRB &
+  &, 0.708959E+00_JPRB, 0.683732E+00_JPRB, 0.658783E+00_JPRB, 0.634133E+00_JPRB &
+  &, 0.609792E+00_JPRB, 0.585784E+00_JPRB, 0.562122E+00_JPRB &
+  &, 0.538824E+00_JPRB, 0.515909E+00_JPRB, 0.493390E+00_JPRB, 0.471287E+00_JPRB &
+  &, 0.449616E+00_JPRB, 0.428389E+00_JPRB, 0.407630E+00_JPRB &
+  &, 0.387347E+00_JPRB, 0.367557E+00_JPRB, 0.348276E+00_JPRB, 0.329516E+00_JPRB &
+  &, 0.311292E+00_JPRB, 0.293615E+00_JPRB, 0.276492E+00_JPRB &
+  &, 0.259939E+00_JPRB, 0.243959E+00_JPRB, 0.228563E+00_JPRB, 0.213755E+00_JPRB &
+  &, 0.199544E+00_JPRB, 0.185926E+00_JPRB, 0.172905E+00_JPRB &
+  &, 0.160485E+00_JPRB, 0.148659E+00_JPRB, 0.137422E+00_JPRB, 0.126772E+00_JPRB &
+  &, 0.116695E+00_JPRB, 0.107193E+00_JPRB, 0.982447E-01_JPRB &
+  &, 0.898466E-01_JPRB, 0.819806E-01_JPRB, 0.746357E-01_JPRB, 0.677855E-01_JPRB &
+  &, 0.614224E-01_JPRB, 0.555234E-01_JPRB, 0.500734E-01_JPRB &
+  &, 0.450534E-01_JPRB, 0.404265E-01_JPRB, 0.361919E-01_JPRB, 0.323178E-01_JPRB &
+  &, 0.287822E-01_JPRB, 0.255738E-01_JPRB, 0.226633E-01_JPRB &
+  &, 0.200324E-01_JPRB, 0.176597E-01_JPRB, 0.155367E-01_JPRB, 0.136195E-01_JPRB &
+  &, 0.119267E-01_JPRB, 0.104085E-01_JPRB, 0.904488E-02_JPRB &
+  &, 0.784934E-02_JPRB, 0.679892E-02_JPRB, 0.586779E-02_JPRB, 0.504659E-02_JPRB &
+  &, 0.434439E-02_JPRB, 0.370987E-02_JPRB, 0.316945E-02_JPRB &
+  &, 0.270928E-02_JPRB, 0.229241E-02_JPRB, 0.194443E-02_JPRB, 0.164799E-02_JPRB &
+  &, 0.138401E-02_JPRB, 0.115503E-02_JPRB, 0.963674E-03_JPRB &
+  &, 0.812615E-03_JPRB, 0.679801E-03_JPRB, 0.566582E-03_JPRB, 0.448547E-03_JPRB &
+  &, 0.378208E-03_JPRB, 0.304912E-03_JPRB, 0.255932E-03_JPRB &
+  &, 0.204931E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 140, :) = (/ &
+  &  0.892341E+00_JPRB, 0.865734E+00_JPRB, 0.839281E+00_JPRB, 0.813002E+00_JPRB &
+  &, 0.786912E+00_JPRB, 0.761028E+00_JPRB, 0.735368E+00_JPRB &
+  &, 0.709948E+00_JPRB, 0.684785E+00_JPRB, 0.659896E+00_JPRB, 0.635300E+00_JPRB &
+  &, 0.611011E+00_JPRB, 0.587047E+00_JPRB, 0.563428E+00_JPRB &
+  &, 0.540167E+00_JPRB, 0.517284E+00_JPRB, 0.494793E+00_JPRB, 0.472715E+00_JPRB &
+  &, 0.451063E+00_JPRB, 0.429852E+00_JPRB, 0.409102E+00_JPRB &
+  &, 0.388826E+00_JPRB, 0.369042E+00_JPRB, 0.349758E+00_JPRB, 0.330994E+00_JPRB &
+  &, 0.312762E+00_JPRB, 0.295068E+00_JPRB, 0.277931E+00_JPRB &
+  &, 0.261358E+00_JPRB, 0.245358E+00_JPRB, 0.229935E+00_JPRB, 0.215098E+00_JPRB &
+  &, 0.200856E+00_JPRB, 0.187205E+00_JPRB, 0.174148E+00_JPRB &
+  &, 0.161685E+00_JPRB, 0.149813E+00_JPRB, 0.138537E+00_JPRB, 0.127845E+00_JPRB &
+  &, 0.117733E+00_JPRB, 0.108184E+00_JPRB, 0.991954E-01_JPRB &
+  &, 0.907437E-01_JPRB, 0.828320E-01_JPRB, 0.754385E-01_JPRB, 0.685486E-01_JPRB &
+  &, 0.621433E-01_JPRB, 0.561995E-01_JPRB, 0.507019E-01_JPRB &
+  &, 0.456315E-01_JPRB, 0.409783E-01_JPRB, 0.367018E-01_JPRB, 0.327836E-01_JPRB &
+  &, 0.292157E-01_JPRB, 0.259732E-01_JPRB, 0.230267E-01_JPRB &
+  &, 0.203733E-01_JPRB, 0.179610E-01_JPRB, 0.158125E-01_JPRB, 0.138684E-01_JPRB &
+  &, 0.121474E-01_JPRB, 0.105995E-01_JPRB, 0.924013E-02_JPRB &
+  &, 0.801266E-02_JPRB, 0.694731E-02_JPRB, 0.600049E-02_JPRB, 0.516282E-02_JPRB &
+  &, 0.444334E-02_JPRB, 0.381096E-02_JPRB, 0.325205E-02_JPRB &
+  &, 0.277254E-02_JPRB, 0.235701E-02_JPRB, 0.198840E-02_JPRB, 0.169286E-02_JPRB &
+  &, 0.142981E-02_JPRB, 0.120177E-02_JPRB, 0.101136E-02_JPRB &
+  &, 0.836937E-03_JPRB, 0.704608E-03_JPRB, 0.566582E-03_JPRB, 0.474344E-03_JPRB &
+  &, 0.404508E-03_JPRB, 0.331722E-03_JPRB, 0.255932E-03_JPRB &
+  &, 0.204931E-03_JPRB, 0.180249E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART21',0,ZHOOK_HANDLE)
+
+XCW( 141, :) = (/ &
+  &  0.892760E+00_JPRB, 0.866246E+00_JPRB, 0.839882E+00_JPRB, 0.813689E+00_JPRB &
+  &, 0.787680E+00_JPRB, 0.761873E+00_JPRB, 0.736285E+00_JPRB &
+  &, 0.710933E+00_JPRB, 0.685834E+00_JPRB, 0.661005E+00_JPRB, 0.636463E+00_JPRB &
+  &, 0.612224E+00_JPRB, 0.588307E+00_JPRB, 0.564728E+00_JPRB &
+  &, 0.541506E+00_JPRB, 0.518654E+00_JPRB, 0.496194E+00_JPRB, 0.474138E+00_JPRB &
+  &, 0.452505E+00_JPRB, 0.431311E+00_JPRB, 0.410574E+00_JPRB &
+  &, 0.390304E+00_JPRB, 0.370521E+00_JPRB, 0.351240E+00_JPRB, 0.332468E+00_JPRB &
+  &, 0.314228E+00_JPRB, 0.296524E+00_JPRB, 0.279370E+00_JPRB &
+  &, 0.262778E+00_JPRB, 0.246752E+00_JPRB, 0.231307E+00_JPRB, 0.216441E+00_JPRB &
+  &, 0.202164E+00_JPRB, 0.188479E+00_JPRB, 0.175391E+00_JPRB &
+  &, 0.162885E+00_JPRB, 0.150976E+00_JPRB, 0.139661E+00_JPRB, 0.128928E+00_JPRB &
+  &, 0.118761E+00_JPRB, 0.109174E+00_JPRB, 0.100135E+00_JPRB &
+  &, 0.916518E-01_JPRB, 0.836947E-01_JPRB, 0.762530E-01_JPRB, 0.693117E-01_JPRB &
+  &, 0.628642E-01_JPRB, 0.568756E-01_JPRB, 0.513305E-01_JPRB &
+  &, 0.462228E-01_JPRB, 0.415167E-01_JPRB, 0.371981E-01_JPRB, 0.332493E-01_JPRB &
+  &, 0.296493E-01_JPRB, 0.263727E-01_JPRB, 0.233901E-01_JPRB &
+  &, 0.206988E-01_JPRB, 0.182782E-01_JPRB, 0.160884E-01_JPRB, 0.141174E-01_JPRB &
+  &, 0.123681E-01_JPRB, 0.108078E-01_JPRB, 0.941763E-02_JPRB &
+  &, 0.817598E-02_JPRB, 0.709570E-02_JPRB, 0.613319E-02_JPRB, 0.527905E-02_JPRB &
+  &, 0.454230E-02_JPRB, 0.389183E-02_JPRB, 0.333465E-02_JPRB &
+  &, 0.283581E-02_JPRB, 0.242160E-02_JPRB, 0.205434E-02_JPRB, 0.173774E-02_JPRB &
+  &, 0.145271E-02_JPRB, 0.122514E-02_JPRB, 0.103520E-02_JPRB &
+  &, 0.861258E-03_JPRB, 0.704608E-03_JPRB, 0.591881E-03_JPRB, 0.500141E-03_JPRB &
+  &, 0.404508E-03_JPRB, 0.331722E-03_JPRB, 0.283257E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.180249E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 142, :) = (/ &
+  &  0.893175E+00_JPRB, 0.866754E+00_JPRB, 0.840481E+00_JPRB, 0.814373E+00_JPRB &
+  &, 0.788445E+00_JPRB, 0.762715E+00_JPRB, 0.737198E+00_JPRB &
+  &, 0.711914E+00_JPRB, 0.686879E+00_JPRB, 0.662109E+00_JPRB, 0.637622E+00_JPRB &
+  &, 0.613434E+00_JPRB, 0.589562E+00_JPRB, 0.566026E+00_JPRB &
+  &, 0.542839E+00_JPRB, 0.520022E+00_JPRB, 0.497589E+00_JPRB, 0.475559E+00_JPRB &
+  &, 0.453946E+00_JPRB, 0.432767E+00_JPRB, 0.412039E+00_JPRB &
+  &, 0.391780E+00_JPRB, 0.372000E+00_JPRB, 0.352714E+00_JPRB, 0.333942E+00_JPRB &
+  &, 0.315690E+00_JPRB, 0.297973E+00_JPRB, 0.280805E+00_JPRB &
+  &, 0.264193E+00_JPRB, 0.248146E+00_JPRB, 0.232674E+00_JPRB, 0.217784E+00_JPRB &
+  &, 0.203475E+00_JPRB, 0.189757E+00_JPRB, 0.176629E+00_JPRB &
+  &, 0.164094E+00_JPRB, 0.152150E+00_JPRB, 0.140786E+00_JPRB, 0.130011E+00_JPRB &
+  &, 0.119799E+00_JPRB, 0.110165E+00_JPRB, 0.101086E+00_JPRB &
+  &, 0.925488E-01_JPRB, 0.845461E-01_JPRB, 0.770558E-01_JPRB, 0.700748E-01_JPRB &
+  &, 0.635852E-01_JPRB, 0.575517E-01_JPRB, 0.519718E-01_JPRB &
+  &, 0.468141E-01_JPRB, 0.420685E-01_JPRB, 0.377080E-01_JPRB, 0.337292E-01_JPRB &
+  &, 0.300828E-01_JPRB, 0.267721E-01_JPRB, 0.237687E-01_JPRB &
+  &, 0.210397E-01_JPRB, 0.185795E-01_JPRB, 0.163642E-01_JPRB, 0.143829E-01_JPRB &
+  &, 0.126057E-01_JPRB, 0.110161E-01_JPRB, 0.959514E-02_JPRB &
+  &, 0.833930E-02_JPRB, 0.724409E-02_JPRB, 0.626589E-02_JPRB, 0.539528E-02_JPRB &
+  &, 0.464126E-02_JPRB, 0.399292E-02_JPRB, 0.341725E-02_JPRB &
+  &, 0.292016E-02_JPRB, 0.248620E-02_JPRB, 0.209831E-02_JPRB, 0.178261E-02_JPRB &
+  &, 0.149851E-02_JPRB, 0.127187E-02_JPRB, 0.105904E-02_JPRB &
+  &, 0.885580E-03_JPRB, 0.729416E-03_JPRB, 0.617180E-03_JPRB, 0.500141E-03_JPRB &
+  &, 0.430809E-03_JPRB, 0.331722E-03_JPRB, 0.283257E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.180249E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 143, :) = (/ &
+  &  0.893589E+00_JPRB, 0.867262E+00_JPRB, 0.841077E+00_JPRB, 0.815054E+00_JPRB &
+  &, 0.789206E+00_JPRB, 0.763552E+00_JPRB, 0.738109E+00_JPRB &
+  &, 0.712892E+00_JPRB, 0.687920E+00_JPRB, 0.663209E+00_JPRB, 0.638777E+00_JPRB &
+  &, 0.614639E+00_JPRB, 0.590814E+00_JPRB, 0.567318E+00_JPRB &
+  &, 0.544170E+00_JPRB, 0.521385E+00_JPRB, 0.498981E+00_JPRB, 0.476974E+00_JPRB &
+  &, 0.455382E+00_JPRB, 0.434217E+00_JPRB, 0.413502E+00_JPRB &
+  &, 0.393249E+00_JPRB, 0.373472E+00_JPRB, 0.354189E+00_JPRB, 0.335413E+00_JPRB &
+  &, 0.317152E+00_JPRB, 0.299426E+00_JPRB, 0.282240E+00_JPRB &
+  &, 0.265609E+00_JPRB, 0.249541E+00_JPRB, 0.234046E+00_JPRB, 0.219127E+00_JPRB &
+  &, 0.204787E+00_JPRB, 0.191036E+00_JPRB, 0.177872E+00_JPRB &
+  &, 0.165294E+00_JPRB, 0.153313E+00_JPRB, 0.141910E+00_JPRB, 0.131093E+00_JPRB &
+  &, 0.120837E+00_JPRB, 0.111166E+00_JPRB, 0.102037E+00_JPRB &
+  &, 0.934569E-01_JPRB, 0.854088E-01_JPRB, 0.778702E-01_JPRB, 0.708499E-01_JPRB &
+  &, 0.643061E-01_JPRB, 0.582278E-01_JPRB, 0.526003E-01_JPRB &
+  &, 0.474054E-01_JPRB, 0.426203E-01_JPRB, 0.382318E-01_JPRB, 0.342091E-01_JPRB &
+  &, 0.305308E-01_JPRB, 0.271715E-01_JPRB, 0.241321E-01_JPRB &
+  &, 0.213806E-01_JPRB, 0.188808E-01_JPRB, 0.166400E-01_JPRB, 0.146319E-01_JPRB &
+  &, 0.128264E-01_JPRB, 0.112245E-01_JPRB, 0.979039E-02_JPRB &
+  &, 0.852077E-02_JPRB, 0.739248E-02_JPRB, 0.639859E-02_JPRB, 0.551151E-02_JPRB &
+  &, 0.476001E-02_JPRB, 0.407380E-02_JPRB, 0.349985E-02_JPRB &
+  &, 0.298342E-02_JPRB, 0.252926E-02_JPRB, 0.216425E-02_JPRB, 0.182749E-02_JPRB &
+  &, 0.154431E-02_JPRB, 0.129524E-02_JPRB, 0.108288E-02_JPRB &
+  &, 0.909902E-03_JPRB, 0.754223E-03_JPRB, 0.642480E-03_JPRB, 0.525938E-03_JPRB &
+  &, 0.430809E-03_JPRB, 0.358532E-03_JPRB, 0.283257E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.180249E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 144, :) = (/ &
+  &  0.894001E+00_JPRB, 0.867766E+00_JPRB, 0.841671E+00_JPRB, 0.815732E+00_JPRB &
+  &, 0.789964E+00_JPRB, 0.764387E+00_JPRB, 0.739015E+00_JPRB &
+  &, 0.713866E+00_JPRB, 0.688957E+00_JPRB, 0.664305E+00_JPRB, 0.639927E+00_JPRB &
+  &, 0.615839E+00_JPRB, 0.592061E+00_JPRB, 0.568607E+00_JPRB &
+  &, 0.545496E+00_JPRB, 0.522744E+00_JPRB, 0.500368E+00_JPRB, 0.478386E+00_JPRB &
+  &, 0.456814E+00_JPRB, 0.435667E+00_JPRB, 0.414964E+00_JPRB &
+  &, 0.394717E+00_JPRB, 0.374944E+00_JPRB, 0.355661E+00_JPRB, 0.336880E+00_JPRB &
+  &, 0.318611E+00_JPRB, 0.300872E+00_JPRB, 0.283675E+00_JPRB &
+  &, 0.267024E+00_JPRB, 0.250935E+00_JPRB, 0.235413E+00_JPRB, 0.220465E+00_JPRB &
+  &, 0.206099E+00_JPRB, 0.192315E+00_JPRB, 0.179119E+00_JPRB &
+  &, 0.166503E+00_JPRB, 0.154476E+00_JPRB, 0.143035E+00_JPRB, 0.132176E+00_JPRB &
+  &, 0.121886E+00_JPRB, 0.112156E+00_JPRB, 0.102987E+00_JPRB &
+  &, 0.943650E-01_JPRB, 0.862715E-01_JPRB, 0.786963E-01_JPRB, 0.716130E-01_JPRB &
+  &, 0.650270E-01_JPRB, 0.589163E-01_JPRB, 0.532417E-01_JPRB &
+  &, 0.480098E-01_JPRB, 0.431856E-01_JPRB, 0.387418E-01_JPRB, 0.346749E-01_JPRB &
+  &, 0.309643E-01_JPRB, 0.275858E-01_JPRB, 0.245106E-01_JPRB &
+  &, 0.217216E-01_JPRB, 0.191979E-01_JPRB, 0.169320E-01_JPRB, 0.148974E-01_JPRB &
+  &, 0.130641E-01_JPRB, 0.114328E-01_JPRB, 0.996789E-02_JPRB &
+  &, 0.868409E-02_JPRB, 0.754088E-02_JPRB, 0.653129E-02_JPRB, 0.564711E-02_JPRB &
+  &, 0.485897E-02_JPRB, 0.417488E-02_JPRB, 0.358245E-02_JPRB &
+  &, 0.304669E-02_JPRB, 0.259386E-02_JPRB, 0.220822E-02_JPRB, 0.187237E-02_JPRB &
+  &, 0.159011E-02_JPRB, 0.134198E-02_JPRB, 0.113057E-02_JPRB &
+  &, 0.934223E-03_JPRB, 0.779031E-03_JPRB, 0.642480E-03_JPRB, 0.551734E-03_JPRB &
+  &, 0.457109E-03_JPRB, 0.358532E-03_JPRB, 0.310583E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.208623E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 145, :) = (/ &
+  &  0.894411E+00_JPRB, 0.868269E+00_JPRB, 0.842262E+00_JPRB, 0.816407E+00_JPRB &
+  &, 0.790720E+00_JPRB, 0.765218E+00_JPRB, 0.739918E+00_JPRB &
+  &, 0.714836E+00_JPRB, 0.689990E+00_JPRB, 0.665397E+00_JPRB, 0.641074E+00_JPRB &
+  &, 0.617037E+00_JPRB, 0.593303E+00_JPRB, 0.569891E+00_JPRB &
+  &, 0.546817E+00_JPRB, 0.524098E+00_JPRB, 0.501752E+00_JPRB, 0.479795E+00_JPRB &
+  &, 0.458242E+00_JPRB, 0.437114E+00_JPRB, 0.416420E+00_JPRB &
+  &, 0.396183E+00_JPRB, 0.376416E+00_JPRB, 0.357129E+00_JPRB, 0.338344E+00_JPRB &
+  &, 0.320069E+00_JPRB, 0.302321E+00_JPRB, 0.285106E+00_JPRB &
+  &, 0.268440E+00_JPRB, 0.252330E+00_JPRB, 0.236781E+00_JPRB, 0.221808E+00_JPRB &
+  &, 0.207411E+00_JPRB, 0.193593E+00_JPRB, 0.180362E+00_JPRB &
+  &, 0.167712E+00_JPRB, 0.155649E+00_JPRB, 0.144169E+00_JPRB, 0.133259E+00_JPRB &
+  &, 0.122924E+00_JPRB, 0.113157E+00_JPRB, 0.103949E+00_JPRB &
+  &, 0.952731E-01_JPRB, 0.871342E-01_JPRB, 0.795107E-01_JPRB, 0.723881E-01_JPRB &
+  &, 0.657601E-01_JPRB, 0.596049E-01_JPRB, 0.538830E-01_JPRB &
+  &, 0.486142E-01_JPRB, 0.437374E-01_JPRB, 0.392656E-01_JPRB, 0.351689E-01_JPRB &
+  &, 0.314123E-01_JPRB, 0.280000E-01_JPRB, 0.248892E-01_JPRB &
+  &, 0.220625E-01_JPRB, 0.195151E-01_JPRB, 0.172241E-01_JPRB, 0.151464E-01_JPRB &
+  &, 0.133017E-01_JPRB, 0.116411E-01_JPRB, 0.101631E-01_JPRB &
+  &, 0.884741E-02_JPRB, 0.768927E-02_JPRB, 0.666399E-02_JPRB, 0.576334E-02_JPRB &
+  &, 0.495793E-02_JPRB, 0.427597E-02_JPRB, 0.366505E-02_JPRB &
+  &, 0.313104E-02_JPRB, 0.265846E-02_JPRB, 0.227416E-02_JPRB, 0.191724E-02_JPRB &
+  &, 0.163591E-02_JPRB, 0.136534E-02_JPRB, 0.115441E-02_JPRB &
+  &, 0.958545E-03_JPRB, 0.803838E-03_JPRB, 0.667779E-03_JPRB, 0.551734E-03_JPRB &
+  &, 0.457109E-03_JPRB, 0.385342E-03_JPRB, 0.310583E-03_JPRB &
+  &, 0.260626E-03_JPRB, 0.208623E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 146, :) = (/ &
+  &  0.894820E+00_JPRB, 0.868769E+00_JPRB, 0.842850E+00_JPRB, 0.817079E+00_JPRB &
+  &, 0.791472E+00_JPRB, 0.766046E+00_JPRB, 0.740817E+00_JPRB &
+  &, 0.715803E+00_JPRB, 0.691020E+00_JPRB, 0.666485E+00_JPRB, 0.642216E+00_JPRB &
+  &, 0.618230E+00_JPRB, 0.594542E+00_JPRB, 0.571172E+00_JPRB &
+  &, 0.548136E+00_JPRB, 0.525450E+00_JPRB, 0.503132E+00_JPRB, 0.481199E+00_JPRB &
+  &, 0.459668E+00_JPRB, 0.438554E+00_JPRB, 0.417876E+00_JPRB &
+  &, 0.397645E+00_JPRB, 0.377881E+00_JPRB, 0.358597E+00_JPRB, 0.339807E+00_JPRB &
+  &, 0.321524E+00_JPRB, 0.303766E+00_JPRB, 0.286537E+00_JPRB &
+  &, 0.269851E+00_JPRB, 0.253720E+00_JPRB, 0.238153E+00_JPRB, 0.223151E+00_JPRB &
+  &, 0.208723E+00_JPRB, 0.194876E+00_JPRB, 0.181605E+00_JPRB &
+  &, 0.168922E+00_JPRB, 0.156823E+00_JPRB, 0.145293E+00_JPRB, 0.134352E+00_JPRB &
+  &, 0.123972E+00_JPRB, 0.114159E+00_JPRB, 0.104900E+00_JPRB &
+  &, 0.961813E-01_JPRB, 0.879970E-01_JPRB, 0.803368E-01_JPRB, 0.731751E-01_JPRB &
+  &, 0.664933E-01_JPRB, 0.602935E-01_JPRB, 0.545372E-01_JPRB &
+  &, 0.492187E-01_JPRB, 0.443026E-01_JPRB, 0.397894E-01_JPRB, 0.356488E-01_JPRB &
+  &, 0.318603E-01_JPRB, 0.284142E-01_JPRB, 0.252678E-01_JPRB &
+  &, 0.224189E-01_JPRB, 0.198323E-01_JPRB, 0.174999E-01_JPRB, 0.154119E-01_JPRB &
+  &, 0.135394E-01_JPRB, 0.118668E-01_JPRB, 0.103584E-01_JPRB &
+  &, 0.902887E-02_JPRB, 0.785621E-02_JPRB, 0.679669E-02_JPRB, 0.587956E-02_JPRB &
+  &, 0.507668E-02_JPRB, 0.435685E-02_JPRB, 0.374765E-02_JPRB &
+  &, 0.319431E-02_JPRB, 0.274459E-02_JPRB, 0.231813E-02_JPRB, 0.198456E-02_JPRB &
+  &, 0.168171E-02_JPRB, 0.141208E-02_JPRB, 0.117825E-02_JPRB &
+  &, 0.100719E-02_JPRB, 0.828646E-03_JPRB, 0.693078E-03_JPRB, 0.577531E-03_JPRB &
+  &, 0.483410E-03_JPRB, 0.385342E-03_JPRB, 0.310583E-03_JPRB &
+  &, 0.260626E-03_JPRB, 0.208623E-03_JPRB, 0.183449E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 147, :) = (/ &
+  &  0.895226E+00_JPRB, 0.869269E+00_JPRB, 0.843436E+00_JPRB, 0.817749E+00_JPRB &
+  &, 0.792221E+00_JPRB, 0.766870E+00_JPRB, 0.741713E+00_JPRB &
+  &, 0.716766E+00_JPRB, 0.692046E+00_JPRB, 0.667570E+00_JPRB, 0.643355E+00_JPRB &
+  &, 0.619418E+00_JPRB, 0.595777E+00_JPRB, 0.572448E+00_JPRB &
+  &, 0.549449E+00_JPRB, 0.526798E+00_JPRB, 0.504509E+00_JPRB, 0.482601E+00_JPRB &
+  &, 0.461090E+00_JPRB, 0.439991E+00_JPRB, 0.419325E+00_JPRB &
+  &, 0.399104E+00_JPRB, 0.379346E+00_JPRB, 0.360061E+00_JPRB, 0.341267E+00_JPRB &
+  &, 0.322979E+00_JPRB, 0.305208E+00_JPRB, 0.287968E+00_JPRB &
+  &, 0.271263E+00_JPRB, 0.255110E+00_JPRB, 0.239520E+00_JPRB, 0.224490E+00_JPRB &
+  &, 0.210035E+00_JPRB, 0.196155E+00_JPRB, 0.182852E+00_JPRB &
+  &, 0.170131E+00_JPRB, 0.157986E+00_JPRB, 0.146428E+00_JPRB, 0.135444E+00_JPRB &
+  &, 0.125021E+00_JPRB, 0.115170E+00_JPRB, 0.105861E+00_JPRB &
+  &, 0.971004E-01_JPRB, 0.888711E-01_JPRB, 0.811628E-01_JPRB, 0.739501E-01_JPRB &
+  &, 0.672264E-01_JPRB, 0.609821E-01_JPRB, 0.551785E-01_JPRB &
+  &, 0.498231E-01_JPRB, 0.448679E-01_JPRB, 0.403131E-01_JPRB, 0.361428E-01_JPRB &
+  &, 0.323227E-01_JPRB, 0.288284E-01_JPRB, 0.256463E-01_JPRB &
+  &, 0.227599E-01_JPRB, 0.201494E-01_JPRB, 0.178081E-01_JPRB, 0.156775E-01_JPRB &
+  &, 0.137770E-01_JPRB, 0.120751E-01_JPRB, 0.105537E-01_JPRB &
+  &, 0.921034E-02_JPRB, 0.800460E-02_JPRB, 0.694835E-02_JPRB, 0.601517E-02_JPRB &
+  &, 0.519543E-02_JPRB, 0.445794E-02_JPRB, 0.383025E-02_JPRB &
+  &, 0.327866E-02_JPRB, 0.280918E-02_JPRB, 0.238408E-02_JPRB, 0.202943E-02_JPRB &
+  &, 0.170461E-02_JPRB, 0.145882E-02_JPRB, 0.122593E-02_JPRB &
+  &, 0.103151E-02_JPRB, 0.853453E-03_JPRB, 0.718377E-03_JPRB, 0.603328E-03_JPRB &
+  &, 0.483410E-03_JPRB, 0.412152E-03_JPRB, 0.337909E-03_JPRB &
+  &, 0.260626E-03_JPRB, 0.236998E-03_JPRB, 0.183449E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART22',0,ZHOOK_HANDLE)
+
+XCW( 148, :) = (/ &
+  &  0.895631E+00_JPRB, 0.869765E+00_JPRB, 0.844020E+00_JPRB, 0.818416E+00_JPRB &
+  &, 0.792967E+00_JPRB, 0.767692E+00_JPRB, 0.742606E+00_JPRB &
+  &, 0.717725E+00_JPRB, 0.693067E+00_JPRB, 0.668651E+00_JPRB, 0.644490E+00_JPRB &
+  &, 0.620604E+00_JPRB, 0.597009E+00_JPRB, 0.573722E+00_JPRB &
+  &, 0.550761E+00_JPRB, 0.528141E+00_JPRB, 0.505881E+00_JPRB, 0.483998E+00_JPRB &
+  &, 0.462509E+00_JPRB, 0.441428E+00_JPRB, 0.420775E+00_JPRB &
+  &, 0.400559E+00_JPRB, 0.380804E+00_JPRB, 0.361522E+00_JPRB, 0.342727E+00_JPRB &
+  &, 0.324430E+00_JPRB, 0.306649E+00_JPRB, 0.289395E+00_JPRB &
+  &, 0.272674E+00_JPRB, 0.256505E+00_JPRB, 0.240888E+00_JPRB, 0.225833E+00_JPRB &
+  &, 0.211347E+00_JPRB, 0.197433E+00_JPRB, 0.184100E+00_JPRB &
+  &, 0.171340E+00_JPRB, 0.159159E+00_JPRB, 0.147562E+00_JPRB, 0.136537E+00_JPRB &
+  &, 0.126069E+00_JPRB, 0.116171E+00_JPRB, 0.106823E+00_JPRB &
+  &, 0.980196E-01_JPRB, 0.897451E-01_JPRB, 0.819889E-01_JPRB, 0.747371E-01_JPRB &
+  &, 0.679718E-01_JPRB, 0.616833E-01_JPRB, 0.558327E-01_JPRB &
+  &, 0.504275E-01_JPRB, 0.454466E-01_JPRB, 0.408507E-01_JPRB, 0.366368E-01_JPRB &
+  &, 0.327707E-01_JPRB, 0.292427E-01_JPRB, 0.260400E-01_JPRB &
+  &, 0.231163E-01_JPRB, 0.204824E-01_JPRB, 0.181002E-01_JPRB, 0.159430E-01_JPRB &
+  &, 0.140147E-01_JPRB, 0.123008E-01_JPRB, 0.107489E-01_JPRB &
+  &, 0.939181E-02_JPRB, 0.817154E-02_JPRB, 0.708105E-02_JPRB, 0.613139E-02_JPRB &
+  &, 0.529439E-02_JPRB, 0.455902E-02_JPRB, 0.391285E-02_JPRB &
+  &, 0.336301E-02_JPRB, 0.287378E-02_JPRB, 0.245002E-02_JPRB, 0.207431E-02_JPRB &
+  &, 0.175041E-02_JPRB, 0.148218E-02_JPRB, 0.124978E-02_JPRB &
+  &, 0.105583E-02_JPRB, 0.878260E-03_JPRB, 0.743676E-03_JPRB, 0.603328E-03_JPRB &
+  &, 0.509710E-03_JPRB, 0.412152E-03_JPRB, 0.337909E-03_JPRB &
+  &, 0.288473E-03_JPRB, 0.236998E-03_JPRB, 0.183449E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 149, :) = (/ &
+  &  0.896035E+00_JPRB, 0.870259E+00_JPRB, 0.844601E+00_JPRB, 0.819080E+00_JPRB &
+  &, 0.793711E+00_JPRB, 0.768510E+00_JPRB, 0.743492E+00_JPRB &
+  &, 0.718681E+00_JPRB, 0.694086E+00_JPRB, 0.669727E+00_JPRB, 0.645622E+00_JPRB &
+  &, 0.621785E+00_JPRB, 0.598235E+00_JPRB, 0.574991E+00_JPRB &
+  &, 0.552067E+00_JPRB, 0.529481E+00_JPRB, 0.507251E+00_JPRB, 0.485393E+00_JPRB &
+  &, 0.463924E+00_JPRB, 0.442859E+00_JPRB, 0.422218E+00_JPRB &
+  &, 0.402015E+00_JPRB, 0.382263E+00_JPRB, 0.362984E+00_JPRB, 0.344184E+00_JPRB &
+  &, 0.325882E+00_JPRB, 0.308091E+00_JPRB, 0.290822E+00_JPRB &
+  &, 0.274086E+00_JPRB, 0.257891E+00_JPRB, 0.242251E+00_JPRB, 0.227171E+00_JPRB &
+  &, 0.212659E+00_JPRB, 0.198716E+00_JPRB, 0.185347E+00_JPRB &
+  &, 0.172549E+00_JPRB, 0.160342E+00_JPRB, 0.148696E+00_JPRB, 0.137630E+00_JPRB &
+  &, 0.127128E+00_JPRB, 0.117183E+00_JPRB, 0.107795E+00_JPRB &
+  &, 0.989388E-01_JPRB, 0.906192E-01_JPRB, 0.828266E-01_JPRB, 0.755241E-01_JPRB &
+  &, 0.687171E-01_JPRB, 0.623844E-01_JPRB, 0.564997E-01_JPRB &
+  &, 0.510451E-01_JPRB, 0.460119E-01_JPRB, 0.413883E-01_JPRB, 0.371308E-01_JPRB &
+  &, 0.332332E-01_JPRB, 0.296717E-01_JPRB, 0.264186E-01_JPRB &
+  &, 0.234728E-01_JPRB, 0.208154E-01_JPRB, 0.183922E-01_JPRB, 0.162252E-01_JPRB &
+  &, 0.142693E-01_JPRB, 0.125264E-01_JPRB, 0.109619E-01_JPRB &
+  &, 0.957327E-02_JPRB, 0.831993E-02_JPRB, 0.723271E-02_JPRB, 0.626699E-02_JPRB &
+  &, 0.541314E-02_JPRB, 0.466011E-02_JPRB, 0.401610E-02_JPRB &
+  &, 0.344736E-02_JPRB, 0.293837E-02_JPRB, 0.251597E-02_JPRB, 0.214163E-02_JPRB &
+  &, 0.179621E-02_JPRB, 0.152892E-02_JPRB, 0.129746E-02_JPRB &
+  &, 0.108015E-02_JPRB, 0.903068E-03_JPRB, 0.768975E-03_JPRB, 0.629125E-03_JPRB &
+  &, 0.536011E-03_JPRB, 0.438963E-03_JPRB, 0.365235E-03_JPRB &
+  &, 0.288473E-03_JPRB, 0.236998E-03_JPRB, 0.183449E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 150, :) = (/ &
+  &  0.896436E+00_JPRB, 0.870751E+00_JPRB, 0.845180E+00_JPRB, 0.819742E+00_JPRB &
+  &, 0.794451E+00_JPRB, 0.769325E+00_JPRB, 0.744380E+00_JPRB &
+  &, 0.719633E+00_JPRB, 0.695101E+00_JPRB, 0.670801E+00_JPRB, 0.646749E+00_JPRB &
+  &, 0.622963E+00_JPRB, 0.599459E+00_JPRB, 0.576255E+00_JPRB &
+  &, 0.553370E+00_JPRB, 0.530818E+00_JPRB, 0.508616E+00_JPRB, 0.486783E+00_JPRB &
+  &, 0.465335E+00_JPRB, 0.444287E+00_JPRB, 0.423661E+00_JPRB &
+  &, 0.403464E+00_JPRB, 0.383721E+00_JPRB, 0.364441E+00_JPRB, 0.345640E+00_JPRB &
+  &, 0.327329E+00_JPRB, 0.309529E+00_JPRB, 0.292246E+00_JPRB &
+  &, 0.275493E+00_JPRB, 0.259282E+00_JPRB, 0.243619E+00_JPRB, 0.228514E+00_JPRB &
+  &, 0.213970E+00_JPRB, 0.199999E+00_JPRB, 0.186595E+00_JPRB &
+  &, 0.173768E+00_JPRB, 0.161515E+00_JPRB, 0.149831E+00_JPRB, 0.138723E+00_JPRB &
+  &, 0.128176E+00_JPRB, 0.118195E+00_JPRB, 0.108756E+00_JPRB &
+  &, 0.998691E-01_JPRB, 0.915047E-01_JPRB, 0.836527E-01_JPRB, 0.763110E-01_JPRB &
+  &, 0.694625E-01_JPRB, 0.630855E-01_JPRB, 0.571539E-01_JPRB &
+  &, 0.516627E-01_JPRB, 0.465906E-01_JPRB, 0.419258E-01_JPRB, 0.376248E-01_JPRB &
+  &, 0.336956E-01_JPRB, 0.301007E-01_JPRB, 0.268123E-01_JPRB &
+  &, 0.238447E-01_JPRB, 0.211326E-01_JPRB, 0.187005E-01_JPRB, 0.164907E-01_JPRB &
+  &, 0.145240E-01_JPRB, 0.127521E-01_JPRB, 0.111572E-01_JPRB &
+  &, 0.975474E-02_JPRB, 0.848687E-02_JPRB, 0.738437E-02_JPRB, 0.640260E-02_JPRB &
+  &, 0.553189E-02_JPRB, 0.476120E-02_JPRB, 0.409870E-02_JPRB &
+  &, 0.351063E-02_JPRB, 0.300297E-02_JPRB, 0.255993E-02_JPRB, 0.218650E-02_JPRB &
+  &, 0.186491E-02_JPRB, 0.157566E-02_JPRB, 0.132130E-02_JPRB &
+  &, 0.110447E-02_JPRB, 0.927875E-03_JPRB, 0.794275E-03_JPRB, 0.654922E-03_JPRB &
+  &, 0.536011E-03_JPRB, 0.438963E-03_JPRB, 0.365235E-03_JPRB &
+  &, 0.316320E-03_JPRB, 0.236998E-03_JPRB, 0.212358E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 151, :) = (/ &
+  &  0.896836E+00_JPRB, 0.871241E+00_JPRB, 0.845757E+00_JPRB, 0.820401E+00_JPRB &
+  &, 0.795189E+00_JPRB, 0.770138E+00_JPRB, 0.745263E+00_JPRB &
+  &, 0.720582E+00_JPRB, 0.696113E+00_JPRB, 0.671870E+00_JPRB, 0.647873E+00_JPRB &
+  &, 0.624136E+00_JPRB, 0.600679E+00_JPRB, 0.577518E+00_JPRB &
+  &, 0.554669E+00_JPRB, 0.532150E+00_JPRB, 0.509978E+00_JPRB, 0.488171E+00_JPRB &
+  &, 0.466743E+00_JPRB, 0.445714E+00_JPRB, 0.425097E+00_JPRB &
+  &, 0.404913E+00_JPRB, 0.385172E+00_JPRB, 0.365895E+00_JPRB, 0.347090E+00_JPRB &
+  &, 0.328777E+00_JPRB, 0.310967E+00_JPRB, 0.293673E+00_JPRB &
+  &, 0.276901E+00_JPRB, 0.260672E+00_JPRB, 0.244986E+00_JPRB, 0.229853E+00_JPRB &
+  &, 0.215282E+00_JPRB, 0.201278E+00_JPRB, 0.187846E+00_JPRB &
+  &, 0.174977E+00_JPRB, 0.162688E+00_JPRB, 0.150975E+00_JPRB, 0.139825E+00_JPRB &
+  &, 0.129235E+00_JPRB, 0.119206E+00_JPRB, 0.109729E+00_JPRB &
+  &, 0.100788E+00_JPRB, 0.923901E-01_JPRB, 0.845020E-01_JPRB, 0.771099E-01_JPRB &
+  &, 0.702078E-01_JPRB, 0.637866E-01_JPRB, 0.578209E-01_JPRB &
+  &, 0.522934E-01_JPRB, 0.471828E-01_JPRB, 0.424634E-01_JPRB, 0.381329E-01_JPRB &
+  &, 0.341580E-01_JPRB, 0.305297E-01_JPRB, 0.272212E-01_JPRB &
+  &, 0.242011E-01_JPRB, 0.214656E-01_JPRB, 0.190087E-01_JPRB, 0.167729E-01_JPRB &
+  &, 0.147786E-01_JPRB, 0.129778E-01_JPRB, 0.113702E-01_JPRB &
+  &, 0.993620E-02_JPRB, 0.865381E-02_JPRB, 0.753603E-02_JPRB, 0.653820E-02_JPRB &
+  &, 0.565064E-02_JPRB, 0.488251E-02_JPRB, 0.420195E-02_JPRB &
+  &, 0.359498E-02_JPRB, 0.308910E-02_JPRB, 0.262588E-02_JPRB, 0.223138E-02_JPRB &
+  &, 0.191071E-02_JPRB, 0.162239E-02_JPRB, 0.136899E-02_JPRB &
+  &, 0.115312E-02_JPRB, 0.952683E-03_JPRB, 0.794275E-03_JPRB, 0.680719E-03_JPRB &
+  &, 0.562311E-03_JPRB, 0.465773E-03_JPRB, 0.392560E-03_JPRB &
+  &, 0.316320E-03_JPRB, 0.265373E-03_JPRB, 0.212358E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 152, :) = (/ &
+  &  0.897233E+00_JPRB, 0.871729E+00_JPRB, 0.846331E+00_JPRB, 0.821058E+00_JPRB &
+  &, 0.795924E+00_JPRB, 0.770946E+00_JPRB, 0.746143E+00_JPRB &
+  &, 0.721529E+00_JPRB, 0.697120E+00_JPRB, 0.672937E+00_JPRB, 0.648993E+00_JPRB &
+  &, 0.625307E+00_JPRB, 0.601896E+00_JPRB, 0.578774E+00_JPRB &
+  &, 0.555964E+00_JPRB, 0.533478E+00_JPRB, 0.511337E+00_JPRB, 0.489555E+00_JPRB &
+  &, 0.468149E+00_JPRB, 0.447135E+00_JPRB, 0.426533E+00_JPRB &
+  &, 0.406358E+00_JPRB, 0.386624E+00_JPRB, 0.367346E+00_JPRB, 0.348543E+00_JPRB &
+  &, 0.330221E+00_JPRB, 0.312401E+00_JPRB, 0.295096E+00_JPRB &
+  &, 0.278309E+00_JPRB, 0.262058E+00_JPRB, 0.246350E+00_JPRB, 0.231196E+00_JPRB &
+  &, 0.216599E+00_JPRB, 0.202561E+00_JPRB, 0.189094E+00_JPRB &
+  &, 0.176195E+00_JPRB, 0.163870E+00_JPRB, 0.152109E+00_JPRB, 0.140918E+00_JPRB &
+  &, 0.130294E+00_JPRB, 0.120229E+00_JPRB, 0.110701E+00_JPRB &
+  &, 0.101719E+00_JPRB, 0.932755E-01_JPRB, 0.853397E-01_JPRB, 0.779088E-01_JPRB &
+  &, 0.709654E-01_JPRB, 0.645002E-01_JPRB, 0.584879E-01_JPRB &
+  &, 0.529110E-01_JPRB, 0.477615E-01_JPRB, 0.430147E-01_JPRB, 0.386410E-01_JPRB &
+  &, 0.346349E-01_JPRB, 0.309588E-01_JPRB, 0.276149E-01_JPRB &
+  &, 0.245731E-01_JPRB, 0.218145E-01_JPRB, 0.193170E-01_JPRB, 0.170550E-01_JPRB &
+  &, 0.150332E-01_JPRB, 0.132035E-01_JPRB, 0.115832E-01_JPRB &
+  &, 0.101177E-01_JPRB, 0.882075E-02_JPRB, 0.768769E-02_JPRB, 0.667380E-02_JPRB &
+  &, 0.576939E-02_JPRB, 0.498360E-02_JPRB, 0.428455E-02_JPRB &
+  &, 0.367933E-02_JPRB, 0.315370E-02_JPRB, 0.269183E-02_JPRB, 0.229869E-02_JPRB &
+  &, 0.195651E-02_JPRB, 0.164576E-02_JPRB, 0.139283E-02_JPRB &
+  &, 0.117744E-02_JPRB, 0.977490E-03_JPRB, 0.819574E-03_JPRB, 0.680719E-03_JPRB &
+  &, 0.588612E-03_JPRB, 0.465773E-03_JPRB, 0.392560E-03_JPRB &
+  &, 0.316320E-03_JPRB, 0.265373E-03_JPRB, 0.212358E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 153, :) = (/ &
+  &  0.897630E+00_JPRB, 0.872215E+00_JPRB, 0.846903E+00_JPRB, 0.821712E+00_JPRB &
+  &, 0.796656E+00_JPRB, 0.771753E+00_JPRB, 0.747018E+00_JPRB &
+  &, 0.722470E+00_JPRB, 0.698125E+00_JPRB, 0.673999E+00_JPRB, 0.650110E+00_JPRB &
+  &, 0.626474E+00_JPRB, 0.603107E+00_JPRB, 0.580030E+00_JPRB &
+  &, 0.557256E+00_JPRB, 0.534805E+00_JPRB, 0.512691E+00_JPRB, 0.490936E+00_JPRB &
+  &, 0.469551E+00_JPRB, 0.448557E+00_JPRB, 0.427967E+00_JPRB &
+  &, 0.407800E+00_JPRB, 0.388072E+00_JPRB, 0.368797E+00_JPRB, 0.349992E+00_JPRB &
+  &, 0.331665E+00_JPRB, 0.313835E+00_JPRB, 0.296516E+00_JPRB &
+  &, 0.279716E+00_JPRB, 0.263445E+00_JPRB, 0.247717E+00_JPRB, 0.232534E+00_JPRB &
+  &, 0.217910E+00_JPRB, 0.203844E+00_JPRB, 0.190346E+00_JPRB &
+  &, 0.177414E+00_JPRB, 0.165053E+00_JPRB, 0.153253E+00_JPRB, 0.142021E+00_JPRB &
+  &, 0.131353E+00_JPRB, 0.121240E+00_JPRB, 0.111684E+00_JPRB &
+  &, 0.102660E+00_JPRB, 0.941610E-01_JPRB, 0.861775E-01_JPRB, 0.787077E-01_JPRB &
+  &, 0.717230E-01_JPRB, 0.652139E-01_JPRB, 0.591549E-01_JPRB &
+  &, 0.535417E-01_JPRB, 0.483537E-01_JPRB, 0.435523E-01_JPRB, 0.391491E-01_JPRB &
+  &, 0.350974E-01_JPRB, 0.314026E-01_JPRB, 0.280237E-01_JPRB &
+  &, 0.249450E-01_JPRB, 0.221475E-01_JPRB, 0.196253E-01_JPRB, 0.173372E-01_JPRB &
+  &, 0.152879E-01_JPRB, 0.134292E-01_JPRB, 0.117784E-01_JPRB &
+  &, 0.103173E-01_JPRB, 0.900624E-02_JPRB, 0.783934E-02_JPRB, 0.680940E-02_JPRB &
+  &, 0.588814E-02_JPRB, 0.508469E-02_JPRB, 0.438780E-02_JPRB &
+  &, 0.376368E-02_JPRB, 0.323983E-02_JPRB, 0.275777E-02_JPRB, 0.234357E-02_JPRB &
+  &, 0.200231E-02_JPRB, 0.169250E-02_JPRB, 0.144051E-02_JPRB &
+  &, 0.120176E-02_JPRB, 0.102711E-02_JPRB, 0.844873E-03_JPRB, 0.706516E-03_JPRB &
+  &, 0.588612E-03_JPRB, 0.492583E-03_JPRB, 0.419886E-03_JPRB &
+  &, 0.344167E-03_JPRB, 0.265373E-03_JPRB, 0.212358E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 154, :) = (/ &
+  &  0.898025E+00_JPRB, 0.872699E+00_JPRB, 0.847473E+00_JPRB, 0.822363E+00_JPRB &
+  &, 0.797385E+00_JPRB, 0.772555E+00_JPRB, 0.747892E+00_JPRB &
+  &, 0.723410E+00_JPRB, 0.699126E+00_JPRB, 0.675058E+00_JPRB, 0.651222E+00_JPRB &
+  &, 0.627636E+00_JPRB, 0.604316E+00_JPRB, 0.581280E+00_JPRB &
+  &, 0.558545E+00_JPRB, 0.536127E+00_JPRB, 0.514044E+00_JPRB, 0.492312E+00_JPRB &
+  &, 0.470950E+00_JPRB, 0.449972E+00_JPRB, 0.429396E+00_JPRB &
+  &, 0.409243E+00_JPRB, 0.389520E+00_JPRB, 0.370247E+00_JPRB, 0.351438E+00_JPRB &
+  &, 0.333109E+00_JPRB, 0.315270E+00_JPRB, 0.297939E+00_JPRB &
+  &, 0.281120E+00_JPRB, 0.264835E+00_JPRB, 0.249081E+00_JPRB, 0.233877E+00_JPRB &
+  &, 0.219222E+00_JPRB, 0.205131E+00_JPRB, 0.191598E+00_JPRB &
+  &, 0.178632E+00_JPRB, 0.166235E+00_JPRB, 0.154397E+00_JPRB, 0.143124E+00_JPRB &
+  &, 0.132422E+00_JPRB, 0.122262E+00_JPRB, 0.112656E+00_JPRB &
+  &, 0.103590E+00_JPRB, 0.950577E-01_JPRB, 0.870268E-01_JPRB, 0.795067E-01_JPRB &
+  &, 0.724805E-01_JPRB, 0.659275E-01_JPRB, 0.598347E-01_JPRB &
+  &, 0.541724E-01_JPRB, 0.489459E-01_JPRB, 0.441036E-01_JPRB, 0.396573E-01_JPRB &
+  &, 0.355743E-01_JPRB, 0.318464E-01_JPRB, 0.284326E-01_JPRB &
+  &, 0.253169E-01_JPRB, 0.224964E-01_JPRB, 0.199335E-01_JPRB, 0.176193E-01_JPRB &
+  &, 0.155425E-01_JPRB, 0.136722E-01_JPRB, 0.119914E-01_JPRB &
+  &, 0.104987E-01_JPRB, 0.917318E-02_JPRB, 0.799100E-02_JPRB, 0.694500E-02_JPRB &
+  &, 0.600689E-02_JPRB, 0.520600E-02_JPRB, 0.449105E-02_JPRB &
+  &, 0.384804E-02_JPRB, 0.330442E-02_JPRB, 0.282372E-02_JPRB, 0.241088E-02_JPRB &
+  &, 0.204811E-02_JPRB, 0.173923E-02_JPRB, 0.146435E-02_JPRB &
+  &, 0.125041E-02_JPRB, 0.105191E-02_JPRB, 0.870172E-03_JPRB, 0.732313E-03_JPRB &
+  &, 0.614912E-03_JPRB, 0.519393E-03_JPRB, 0.419886E-03_JPRB &
+  &, 0.344167E-03_JPRB, 0.293748E-03_JPRB, 0.241266E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART23',0,ZHOOK_HANDLE)
+
+XCW( 155, :) = (/ &
+  &  0.898419E+00_JPRB, 0.873182E+00_JPRB, 0.848041E+00_JPRB, 0.823012E+00_JPRB &
+  &, 0.798112E+00_JPRB, 0.773356E+00_JPRB, 0.748762E+00_JPRB &
+  &, 0.724346E+00_JPRB, 0.700124E+00_JPRB, 0.676114E+00_JPRB, 0.652332E+00_JPRB &
+  &, 0.628796E+00_JPRB, 0.605522E+00_JPRB, 0.582527E+00_JPRB &
+  &, 0.559829E+00_JPRB, 0.537445E+00_JPRB, 0.515391E+00_JPRB, 0.493687E+00_JPRB &
+  &, 0.472346E+00_JPRB, 0.451387E+00_JPRB, 0.430826E+00_JPRB &
+  &, 0.410678E+00_JPRB, 0.390962E+00_JPRB, 0.371691E+00_JPRB, 0.352884E+00_JPRB &
+  &, 0.334546E+00_JPRB, 0.316700E+00_JPRB, 0.299359E+00_JPRB &
+  &, 0.282527E+00_JPRB, 0.266214E+00_JPRB, 0.250448E+00_JPRB, 0.235216E+00_JPRB &
+  &, 0.220538E+00_JPRB, 0.206414E+00_JPRB, 0.192850E+00_JPRB &
+  &, 0.179851E+00_JPRB, 0.167418E+00_JPRB, 0.155541E+00_JPRB, 0.144237E+00_JPRB &
+  &, 0.133480E+00_JPRB, 0.123285E+00_JPRB, 0.113639E+00_JPRB &
+  &, 0.104531E+00_JPRB, 0.959432E-01_JPRB, 0.878761E-01_JPRB, 0.803175E-01_JPRB &
+  &, 0.732503E-01_JPRB, 0.666537E-01_JPRB, 0.605145E-01_JPRB &
+  &, 0.548162E-01_JPRB, 0.495381E-01_JPRB, 0.446687E-01_JPRB, 0.401795E-01_JPRB &
+  &, 0.360511E-01_JPRB, 0.322902E-01_JPRB, 0.288414E-01_JPRB &
+  &, 0.256889E-01_JPRB, 0.228452E-01_JPRB, 0.202580E-01_JPRB, 0.179181E-01_JPRB &
+  &, 0.157971E-01_JPRB, 0.139152E-01_JPRB, 0.122222E-01_JPRB &
+  &, 0.106984E-01_JPRB, 0.934013E-02_JPRB, 0.814266E-02_JPRB, 0.708060E-02_JPRB &
+  &, 0.614543E-02_JPRB, 0.530709E-02_JPRB, 0.457365E-02_JPRB &
+  &, 0.393239E-02_JPRB, 0.339055E-02_JPRB, 0.288967E-02_JPRB, 0.247820E-02_JPRB &
+  &, 0.209391E-02_JPRB, 0.178597E-02_JPRB, 0.151204E-02_JPRB &
+  &, 0.127473E-02_JPRB, 0.107672E-02_JPRB, 0.895471E-03_JPRB, 0.758110E-03_JPRB &
+  &, 0.641213E-03_JPRB, 0.519393E-03_JPRB, 0.447212E-03_JPRB &
+  &, 0.372015E-03_JPRB, 0.293748E-03_JPRB, 0.241266E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 156, :) = (/ &
+  &  0.898809E+00_JPRB, 0.873663E+00_JPRB, 0.848606E+00_JPRB, 0.823659E+00_JPRB &
+  &, 0.798835E+00_JPRB, 0.774154E+00_JPRB, 0.749629E+00_JPRB &
+  &, 0.725278E+00_JPRB, 0.701118E+00_JPRB, 0.677166E+00_JPRB, 0.653438E+00_JPRB &
+  &, 0.629952E+00_JPRB, 0.606723E+00_JPRB, 0.583771E+00_JPRB &
+  &, 0.561111E+00_JPRB, 0.538760E+00_JPRB, 0.516737E+00_JPRB, 0.495057E+00_JPRB &
+  &, 0.473738E+00_JPRB, 0.452795E+00_JPRB, 0.432250E+00_JPRB &
+  &, 0.412114E+00_JPRB, 0.392403E+00_JPRB, 0.373135E+00_JPRB, 0.354326E+00_JPRB &
+  &, 0.335986E+00_JPRB, 0.318131E+00_JPRB, 0.300775E+00_JPRB &
+  &, 0.283931E+00_JPRB, 0.267604E+00_JPRB, 0.251812E+00_JPRB, 0.236559E+00_JPRB &
+  &, 0.221850E+00_JPRB, 0.207697E+00_JPRB, 0.194106E+00_JPRB &
+  &, 0.181069E+00_JPRB, 0.168600E+00_JPRB, 0.156685E+00_JPRB, 0.145340E+00_JPRB &
+  &, 0.134549E+00_JPRB, 0.124317E+00_JPRB, 0.114623E+00_JPRB &
+  &, 0.105473E+00_JPRB, 0.968400E-01_JPRB, 0.887371E-01_JPRB, 0.811283E-01_JPRB &
+  &, 0.740079E-01_JPRB, 0.673673E-01_JPRB, 0.611944E-01_JPRB &
+  &, 0.554470E-01_JPRB, 0.501303E-01_JPRB, 0.452201E-01_JPRB, 0.407017E-01_JPRB &
+  &, 0.365425E-01_JPRB, 0.327340E-01_JPRB, 0.292503E-01_JPRB &
+  &, 0.260763E-01_JPRB, 0.231941E-01_JPRB, 0.205663E-01_JPRB, 0.182002E-01_JPRB &
+  &, 0.160687E-01_JPRB, 0.141583E-01_JPRB, 0.124352E-01_JPRB &
+  &, 0.108980E-01_JPRB, 0.952561E-02_JPRB, 0.829432E-02_JPRB, 0.721620E-02_JPRB &
+  &, 0.626418E-02_JPRB, 0.542839E-02_JPRB, 0.467690E-02_JPRB &
+  &, 0.403783E-02_JPRB, 0.345515E-02_JPRB, 0.295561E-02_JPRB, 0.252307E-02_JPRB &
+  &, 0.216261E-02_JPRB, 0.183270E-02_JPRB, 0.155972E-02_JPRB &
+  &, 0.132337E-02_JPRB, 0.110153E-02_JPRB, 0.920771E-03_JPRB, 0.783906E-03_JPRB &
+  &, 0.641213E-03_JPRB, 0.546203E-03_JPRB, 0.447212E-03_JPRB &
+  &, 0.372015E-03_JPRB, 0.293748E-03_JPRB, 0.241266E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 157, :) = (/ &
+  &  0.899201E+00_JPRB, 0.874141E+00_JPRB, 0.849169E+00_JPRB, 0.824303E+00_JPRB &
+  &, 0.799557E+00_JPRB, 0.774948E+00_JPRB, 0.750493E+00_JPRB &
+  &, 0.726208E+00_JPRB, 0.702109E+00_JPRB, 0.678215E+00_JPRB, 0.654541E+00_JPRB &
+  &, 0.631104E+00_JPRB, 0.607922E+00_JPRB, 0.585011E+00_JPRB &
+  &, 0.562388E+00_JPRB, 0.540072E+00_JPRB, 0.518078E+00_JPRB, 0.496425E+00_JPRB &
+  &, 0.475128E+00_JPRB, 0.454204E+00_JPRB, 0.433673E+00_JPRB &
+  &, 0.413546E+00_JPRB, 0.393841E+00_JPRB, 0.374578E+00_JPRB, 0.355765E+00_JPRB &
+  &, 0.337423E+00_JPRB, 0.319561E+00_JPRB, 0.302194E+00_JPRB &
+  &, 0.285331E+00_JPRB, 0.268990E+00_JPRB, 0.253175E+00_JPRB, 0.237897E+00_JPRB &
+  &, 0.223166E+00_JPRB, 0.208985E+00_JPRB, 0.195358E+00_JPRB &
+  &, 0.182287E+00_JPRB, 0.169783E+00_JPRB, 0.157839E+00_JPRB, 0.146452E+00_JPRB &
+  &, 0.135618E+00_JPRB, 0.125340E+00_JPRB, 0.115606E+00_JPRB &
+  &, 0.106414E+00_JPRB, 0.977481E-01_JPRB, 0.895865E-01_JPRB, 0.819391E-01_JPRB &
+  &, 0.747777E-01_JPRB, 0.681060E-01_JPRB, 0.618742E-01_JPRB &
+  &, 0.560908E-01_JPRB, 0.507359E-01_JPRB, 0.457852E-01_JPRB, 0.412240E-01_JPRB &
+  &, 0.370338E-01_JPRB, 0.331778E-01_JPRB, 0.296591E-01_JPRB &
+  &, 0.264482E-01_JPRB, 0.235430E-01_JPRB, 0.208908E-01_JPRB, 0.184990E-01_JPRB &
+  &, 0.163403E-01_JPRB, 0.144013E-01_JPRB, 0.126482E-01_JPRB &
+  &, 0.110976E-01_JPRB, 0.971110E-02_JPRB, 0.846493E-02_JPRB, 0.737117E-02_JPRB &
+  &, 0.640272E-02_JPRB, 0.552948E-02_JPRB, 0.478015E-02_JPRB &
+  &, 0.412218E-02_JPRB, 0.354128E-02_JPRB, 0.304354E-02_JPRB, 0.259039E-02_JPRB &
+  &, 0.220841E-02_JPRB, 0.187944E-02_JPRB, 0.158356E-02_JPRB &
+  &, 0.134769E-02_JPRB, 0.112633E-02_JPRB, 0.946070E-03_JPRB, 0.809703E-03_JPRB &
+  &, 0.667514E-03_JPRB, 0.546203E-03_JPRB, 0.474538E-03_JPRB &
+  &, 0.372015E-03_JPRB, 0.322123E-03_JPRB, 0.270174E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 158, :) = (/ &
+  &  0.899590E+00_JPRB, 0.874617E+00_JPRB, 0.849731E+00_JPRB, 0.824945E+00_JPRB &
+  &, 0.800275E+00_JPRB, 0.775740E+00_JPRB, 0.751354E+00_JPRB &
+  &, 0.727134E+00_JPRB, 0.703097E+00_JPRB, 0.679260E+00_JPRB, 0.655640E+00_JPRB &
+  &, 0.632253E+00_JPRB, 0.609117E+00_JPRB, 0.586248E+00_JPRB &
+  &, 0.563664E+00_JPRB, 0.541381E+00_JPRB, 0.519417E+00_JPRB, 0.497789E+00_JPRB &
+  &, 0.476514E+00_JPRB, 0.455609E+00_JPRB, 0.435090E+00_JPRB &
+  &, 0.414975E+00_JPRB, 0.395279E+00_JPRB, 0.376019E+00_JPRB, 0.357204E+00_JPRB &
+  &, 0.338856E+00_JPRB, 0.320988E+00_JPRB, 0.303610E+00_JPRB &
+  &, 0.286735E+00_JPRB, 0.270377E+00_JPRB, 0.254538E+00_JPRB, 0.239240E+00_JPRB &
+  &, 0.224483E+00_JPRB, 0.210272E+00_JPRB, 0.196614E+00_JPRB &
+  &, 0.183515E+00_JPRB, 0.170965E+00_JPRB, 0.158983E+00_JPRB, 0.147565E+00_JPRB &
+  &, 0.136698E+00_JPRB, 0.126372E+00_JPRB, 0.116600E+00_JPRB &
+  &, 0.107355E+00_JPRB, 0.986449E-01_JPRB, 0.904474E-01_JPRB, 0.827619E-01_JPRB &
+  &, 0.755597E-01_JPRB, 0.688321E-01_JPRB, 0.625668E-01_JPRB &
+  &, 0.567347E-01_JPRB, 0.513416E-01_JPRB, 0.463503E-01_JPRB, 0.417462E-01_JPRB &
+  &, 0.375107E-01_JPRB, 0.336365E-01_JPRB, 0.300831E-01_JPRB &
+  &, 0.268357E-01_JPRB, 0.238919E-01_JPRB, 0.212153E-01_JPRB, 0.187977E-01_JPRB &
+  &, 0.166119E-01_JPRB, 0.146443E-01_JPRB, 0.128789E-01_JPRB &
+  &, 0.112972E-01_JPRB, 0.987804E-02_JPRB, 0.863555E-02_JPRB, 0.750677E-02_JPRB &
+  &, 0.652147E-02_JPRB, 0.565079E-02_JPRB, 0.488341E-02_JPRB &
+  &, 0.420653E-02_JPRB, 0.362740E-02_JPRB, 0.310949E-02_JPRB, 0.265770E-02_JPRB &
+  &, 0.225421E-02_JPRB, 0.192618E-02_JPRB, 0.163125E-02_JPRB &
+  &, 0.137201E-02_JPRB, 0.117595E-02_JPRB, 0.971369E-03_JPRB, 0.835500E-03_JPRB &
+  &, 0.693814E-03_JPRB, 0.573013E-03_JPRB, 0.474538E-03_JPRB &
+  &, 0.399862E-03_JPRB, 0.322123E-03_JPRB, 0.270174E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 159, :) = (/ &
+  &  0.899977E+00_JPRB, 0.875093E+00_JPRB, 0.850289E+00_JPRB, 0.825584E+00_JPRB &
+  &, 0.800992E+00_JPRB, 0.776529E+00_JPRB, 0.752212E+00_JPRB &
+  &, 0.728058E+00_JPRB, 0.704082E+00_JPRB, 0.680303E+00_JPRB, 0.656736E+00_JPRB &
+  &, 0.633399E+00_JPRB, 0.610308E+00_JPRB, 0.587481E+00_JPRB &
+  &, 0.564934E+00_JPRB, 0.542686E+00_JPRB, 0.520753E+00_JPRB, 0.499152E+00_JPRB &
+  &, 0.477898E+00_JPRB, 0.457011E+00_JPRB, 0.436507E+00_JPRB &
+  &, 0.416404E+00_JPRB, 0.396714E+00_JPRB, 0.377456E+00_JPRB, 0.358642E+00_JPRB &
+  &, 0.340289E+00_JPRB, 0.322415E+00_JPRB, 0.305026E+00_JPRB &
+  &, 0.288134E+00_JPRB, 0.271759E+00_JPRB, 0.255906E+00_JPRB, 0.240579E+00_JPRB &
+  &, 0.225795E+00_JPRB, 0.211560E+00_JPRB, 0.197871E+00_JPRB &
+  &, 0.184734E+00_JPRB, 0.172158E+00_JPRB, 0.160137E+00_JPRB, 0.148678E+00_JPRB &
+  &, 0.137767E+00_JPRB, 0.127405E+00_JPRB, 0.117593E+00_JPRB &
+  &, 0.108308E+00_JPRB, 0.995530E-01_JPRB, 0.913084E-01_JPRB, 0.835727E-01_JPRB &
+  &, 0.763295E-01_JPRB, 0.695583E-01_JPRB, 0.632595E-01_JPRB &
+  &, 0.573917E-01_JPRB, 0.519472E-01_JPRB, 0.469155E-01_JPRB, 0.422825E-01_JPRB &
+  &, 0.380165E-01_JPRB, 0.340951E-01_JPRB, 0.305071E-01_JPRB &
+  &, 0.272386E-01_JPRB, 0.242566E-01_JPRB, 0.215397E-01_JPRB, 0.190964E-01_JPRB &
+  &, 0.168835E-01_JPRB, 0.148874E-01_JPRB, 0.131097E-01_JPRB &
+  &, 0.114968E-01_JPRB, 0.100635E-01_JPRB, 0.878721E-02_JPRB, 0.766174E-02_JPRB &
+  &, 0.666002E-02_JPRB, 0.577210E-02_JPRB, 0.498666E-02_JPRB &
+  &, 0.431198E-02_JPRB, 0.369200E-02_JPRB, 0.317543E-02_JPRB, 0.272502E-02_JPRB &
+  &, 0.232291E-02_JPRB, 0.197291E-02_JPRB, 0.167893E-02_JPRB &
+  &, 0.142066E-02_JPRB, 0.120076E-02_JPRB, 0.102197E-02_JPRB, 0.835500E-03_JPRB &
+  &, 0.720115E-03_JPRB, 0.599824E-03_JPRB, 0.501863E-03_JPRB &
+  &, 0.399862E-03_JPRB, 0.350497E-03_JPRB, 0.270174E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 160, :) = (/ &
+  &  0.900363E+00_JPRB, 0.875566E+00_JPRB, 0.850846E+00_JPRB, 0.826222E+00_JPRB &
+  &, 0.801705E+00_JPRB, 0.777315E+00_JPRB, 0.753067E+00_JPRB &
+  &, 0.728978E+00_JPRB, 0.705064E+00_JPRB, 0.681342E+00_JPRB, 0.657829E+00_JPRB &
+  &, 0.634541E+00_JPRB, 0.611495E+00_JPRB, 0.588711E+00_JPRB &
+  &, 0.566202E+00_JPRB, 0.543988E+00_JPRB, 0.522085E+00_JPRB, 0.500510E+00_JPRB &
+  &, 0.479280E+00_JPRB, 0.458410E+00_JPRB, 0.437921E+00_JPRB &
+  &, 0.417830E+00_JPRB, 0.398145E+00_JPRB, 0.378892E+00_JPRB, 0.360077E+00_JPRB &
+  &, 0.341723E+00_JPRB, 0.323838E+00_JPRB, 0.306438E+00_JPRB &
+  &, 0.289538E+00_JPRB, 0.273142E+00_JPRB, 0.257269E+00_JPRB, 0.241922E+00_JPRB &
+  &, 0.227111E+00_JPRB, 0.212847E+00_JPRB, 0.199127E+00_JPRB &
+  &, 0.185962E+00_JPRB, 0.173350E+00_JPRB, 0.161291E+00_JPRB, 0.149791E+00_JPRB &
+  &, 0.138846E+00_JPRB, 0.128438E+00_JPRB, 0.118587E+00_JPRB &
+  &, 0.109260E+00_JPRB, 0.100461E+00_JPRB, 0.921810E-01_JPRB, 0.843954E-01_JPRB &
+  &, 0.771115E-01_JPRB, 0.702970E-01_JPRB, 0.639521E-01_JPRB &
+  &, 0.580486E-01_JPRB, 0.525663E-01_JPRB, 0.474944E-01_JPRB, 0.428189E-01_JPRB &
+  &, 0.385078E-01_JPRB, 0.345537E-01_JPRB, 0.309311E-01_JPRB &
+  &, 0.276260E-01_JPRB, 0.246055E-01_JPRB, 0.218805E-01_JPRB, 0.193952E-01_JPRB &
+  &, 0.171551E-01_JPRB, 0.151478E-01_JPRB, 0.133227E-01_JPRB &
+  &, 0.116964E-01_JPRB, 0.102490E-01_JPRB, 0.895782E-02_JPRB, 0.781671E-02_JPRB &
+  &, 0.679856E-02_JPRB, 0.589341E-02_JPRB, 0.508991E-02_JPRB &
+  &, 0.439633E-02_JPRB, 0.377813E-02_JPRB, 0.324138E-02_JPRB, 0.279233E-02_JPRB &
+  &, 0.236871E-02_JPRB, 0.201965E-02_JPRB, 0.172661E-02_JPRB &
+  &, 0.146930E-02_JPRB, 0.122556E-02_JPRB, 0.104727E-02_JPRB, 0.861297E-03_JPRB &
+  &, 0.720115E-03_JPRB, 0.599824E-03_JPRB, 0.501863E-03_JPRB &
+  &, 0.427709E-03_JPRB, 0.350497E-03_JPRB, 0.299082E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 161, :) = (/ &
+  &  0.900746E+00_JPRB, 0.876037E+00_JPRB, 0.851402E+00_JPRB, 0.826856E+00_JPRB &
+  &, 0.802416E+00_JPRB, 0.778099E+00_JPRB, 0.753920E+00_JPRB &
+  &, 0.729895E+00_JPRB, 0.706042E+00_JPRB, 0.682378E+00_JPRB, 0.658919E+00_JPRB &
+  &, 0.635680E+00_JPRB, 0.612680E+00_JPRB, 0.589938E+00_JPRB &
+  &, 0.567467E+00_JPRB, 0.545287E+00_JPRB, 0.523414E+00_JPRB, 0.501865E+00_JPRB &
+  &, 0.480657E+00_JPRB, 0.459806E+00_JPRB, 0.439335E+00_JPRB &
+  &, 0.419252E+00_JPRB, 0.399576E+00_JPRB, 0.380326E+00_JPRB, 0.361513E+00_JPRB &
+  &, 0.343152E+00_JPRB, 0.325261E+00_JPRB, 0.307854E+00_JPRB &
+  &, 0.290938E+00_JPRB, 0.274528E+00_JPRB, 0.258633E+00_JPRB, 0.243264E+00_JPRB &
+  &, 0.228427E+00_JPRB, 0.214134E+00_JPRB, 0.200384E+00_JPRB &
+  &, 0.187189E+00_JPRB, 0.174542E+00_JPRB, 0.162444E+00_JPRB, 0.150914E+00_JPRB &
+  &, 0.139925E+00_JPRB, 0.129481E+00_JPRB, 0.119581E+00_JPRB &
+  &, 0.110213E+00_JPRB, 0.101369E+00_JPRB, 0.930420E-01_JPRB, 0.852301E-01_JPRB &
+  &, 0.778935E-01_JPRB, 0.710357E-01_JPRB, 0.646448E-01_JPRB &
+  &, 0.586925E-01_JPRB, 0.531854E-01_JPRB, 0.480733E-01_JPRB, 0.433552E-01_JPRB &
+  &, 0.390136E-01_JPRB, 0.350123E-01_JPRB, 0.313551E-01_JPRB &
+  &, 0.280134E-01_JPRB, 0.249702E-01_JPRB, 0.222049E-01_JPRB, 0.197105E-01_JPRB &
+  &, 0.174437E-01_JPRB, 0.153908E-01_JPRB, 0.135534E-01_JPRB &
+  &, 0.119142E-01_JPRB, 0.104345E-01_JPRB, 0.912844E-02_JPRB, 0.797169E-02_JPRB &
+  &, 0.691731E-02_JPRB, 0.601471E-02_JPRB, 0.521381E-02_JPRB &
+  &, 0.450177E-02_JPRB, 0.386426E-02_JPRB, 0.332931E-02_JPRB, 0.285965E-02_JPRB &
+  &, 0.243741E-02_JPRB, 0.206638E-02_JPRB, 0.177430E-02_JPRB &
+  &, 0.149362E-02_JPRB, 0.127518E-02_JPRB, 0.107257E-02_JPRB, 0.887094E-03_JPRB &
+  &, 0.746415E-03_JPRB, 0.626634E-03_JPRB, 0.529189E-03_JPRB &
+  &, 0.427709E-03_JPRB, 0.350497E-03_JPRB, 0.299082E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART24',0,ZHOOK_HANDLE)
+
+XCW( 162, :) = (/ &
+  &  0.901130E+00_JPRB, 0.876507E+00_JPRB, 0.851955E+00_JPRB, 0.827489E+00_JPRB &
+  &, 0.803125E+00_JPRB, 0.778880E+00_JPRB, 0.754770E+00_JPRB &
+  &, 0.730810E+00_JPRB, 0.707018E+00_JPRB, 0.683411E+00_JPRB, 0.660004E+00_JPRB &
+  &, 0.636816E+00_JPRB, 0.613863E+00_JPRB, 0.591161E+00_JPRB &
+  &, 0.568728E+00_JPRB, 0.546582E+00_JPRB, 0.524740E+00_JPRB, 0.503218E+00_JPRB &
+  &, 0.482033E+00_JPRB, 0.461202E+00_JPRB, 0.440742E+00_JPRB &
+  &, 0.420671E+00_JPRB, 0.401004E+00_JPRB, 0.381755E+00_JPRB, 0.362944E+00_JPRB &
+  &, 0.344582E+00_JPRB, 0.326684E+00_JPRB, 0.309266E+00_JPRB &
+  &, 0.292334E+00_JPRB, 0.275910E+00_JPRB, 0.259996E+00_JPRB, 0.244603E+00_JPRB &
+  &, 0.229743E+00_JPRB, 0.215422E+00_JPRB, 0.201645E+00_JPRB &
+  &, 0.188408E+00_JPRB, 0.175734E+00_JPRB, 0.163608E+00_JPRB, 0.152027E+00_JPRB &
+  &, 0.141004E+00_JPRB, 0.130524E+00_JPRB, 0.120575E+00_JPRB &
+  &, 0.111176E+00_JPRB, 0.102289E+00_JPRB, 0.939146E-01_JPRB, 0.860529E-01_JPRB &
+  &, 0.786755E-01_JPRB, 0.717869E-01_JPRB, 0.653503E-01_JPRB &
+  &, 0.593626E-01_JPRB, 0.538045E-01_JPRB, 0.486522E-01_JPRB, 0.438916E-01_JPRB &
+  &, 0.395050E-01_JPRB, 0.354857E-01_JPRB, 0.317942E-01_JPRB &
+  &, 0.284164E-01_JPRB, 0.253508E-01_JPRB, 0.225457E-01_JPRB, 0.200093E-01_JPRB &
+  &, 0.177153E-01_JPRB, 0.156512E-01_JPRB, 0.138019E-01_JPRB &
+  &, 0.121319E-01_JPRB, 0.106386E-01_JPRB, 0.929905E-02_JPRB, 0.810729E-02_JPRB &
+  &, 0.705585E-02_JPRB, 0.613602E-02_JPRB, 0.531706E-02_JPRB &
+  &, 0.458612E-02_JPRB, 0.395039E-02_JPRB, 0.339526E-02_JPRB, 0.292696E-02_JPRB &
+  &, 0.248321E-02_JPRB, 0.213649E-02_JPRB, 0.182198E-02_JPRB &
+  &, 0.154226E-02_JPRB, 0.129999E-02_JPRB, 0.109786E-02_JPRB, 0.912891E-03_JPRB &
+  &, 0.772716E-03_JPRB, 0.653444E-03_JPRB, 0.529189E-03_JPRB &
+  &, 0.455557E-03_JPRB, 0.378872E-03_JPRB, 0.299082E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 163, :) = (/ &
+  &  0.901510E+00_JPRB, 0.876975E+00_JPRB, 0.852505E+00_JPRB, 0.828120E+00_JPRB &
+  &, 0.803831E+00_JPRB, 0.779658E+00_JPRB, 0.755616E+00_JPRB &
+  &, 0.731722E+00_JPRB, 0.707991E+00_JPRB, 0.684440E+00_JPRB, 0.661088E+00_JPRB &
+  &, 0.637948E+00_JPRB, 0.615041E+00_JPRB, 0.592381E+00_JPRB &
+  &, 0.569987E+00_JPRB, 0.547876E+00_JPRB, 0.526063E+00_JPRB, 0.504567E+00_JPRB &
+  &, 0.483405E+00_JPRB, 0.462592E+00_JPRB, 0.442149E+00_JPRB &
+  &, 0.422090E+00_JPRB, 0.402428E+00_JPRB, 0.383185E+00_JPRB, 0.364376E+00_JPRB &
+  &, 0.346011E+00_JPRB, 0.328107E+00_JPRB, 0.310674E+00_JPRB &
+  &, 0.293734E+00_JPRB, 0.277293E+00_JPRB, 0.261360E+00_JPRB, 0.245946E+00_JPRB &
+  &, 0.231059E+00_JPRB, 0.216709E+00_JPRB, 0.202901E+00_JPRB &
+  &, 0.189636E+00_JPRB, 0.176926E+00_JPRB, 0.164762E+00_JPRB, 0.153149E+00_JPRB &
+  &, 0.142084E+00_JPRB, 0.131557E+00_JPRB, 0.121580E+00_JPRB &
+  &, 0.112129E+00_JPRB, 0.103208E+00_JPRB, 0.947988E-01_JPRB, 0.868875E-01_JPRB &
+  &, 0.794698E-01_JPRB, 0.725255E-01_JPRB, 0.660558E-01_JPRB &
+  &, 0.600196E-01_JPRB, 0.544236E-01_JPRB, 0.492311E-01_JPRB, 0.444420E-01_JPRB &
+  &, 0.400108E-01_JPRB, 0.359591E-01_JPRB, 0.322333E-01_JPRB &
+  &, 0.288193E-01_JPRB, 0.257155E-01_JPRB, 0.228864E-01_JPRB, 0.203246E-01_JPRB &
+  &, 0.180039E-01_JPRB, 0.159116E-01_JPRB, 0.140327E-01_JPRB &
+  &, 0.123316E-01_JPRB, 0.108240E-01_JPRB, 0.946967E-02_JPRB, 0.826226E-02_JPRB &
+  &, 0.721418E-02_JPRB, 0.625733E-02_JPRB, 0.542031E-02_JPRB &
+  &, 0.469156E-02_JPRB, 0.403652E-02_JPRB, 0.348319E-02_JPRB, 0.299428E-02_JPRB &
+  &, 0.255191E-02_JPRB, 0.218322E-02_JPRB, 0.184582E-02_JPRB &
+  &, 0.156659E-02_JPRB, 0.132479E-02_JPRB, 0.112316E-02_JPRB, 0.938688E-03_JPRB &
+  &, 0.799016E-03_JPRB, 0.653444E-03_JPRB, 0.556515E-03_JPRB &
+  &, 0.455557E-03_JPRB, 0.378872E-03_JPRB, 0.327991E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 164, :) = (/ &
+  &  0.901889E+00_JPRB, 0.877441E+00_JPRB, 0.853055E+00_JPRB, 0.828747E+00_JPRB &
+  &, 0.804535E+00_JPRB, 0.780434E+00_JPRB, 0.756460E+00_JPRB &
+  &, 0.732630E+00_JPRB, 0.708960E+00_JPRB, 0.685467E+00_JPRB, 0.662168E+00_JPRB &
+  &, 0.639078E+00_JPRB, 0.616216E+00_JPRB, 0.593599E+00_JPRB &
+  &, 0.571243E+00_JPRB, 0.549166E+00_JPRB, 0.527384E+00_JPRB, 0.505914E+00_JPRB &
+  &, 0.484775E+00_JPRB, 0.463981E+00_JPRB, 0.443553E+00_JPRB &
+  &, 0.423506E+00_JPRB, 0.403853E+00_JPRB, 0.384615E+00_JPRB, 0.365804E+00_JPRB &
+  &, 0.347437E+00_JPRB, 0.329526E+00_JPRB, 0.312086E+00_JPRB &
+  &, 0.295130E+00_JPRB, 0.278671E+00_JPRB, 0.262719E+00_JPRB, 0.247285E+00_JPRB &
+  &, 0.232376E+00_JPRB, 0.218001E+00_JPRB, 0.204162E+00_JPRB &
+  &, 0.190873E+00_JPRB, 0.178118E+00_JPRB, 0.165925E+00_JPRB, 0.154272E+00_JPRB &
+  &, 0.143163E+00_JPRB, 0.132611E+00_JPRB, 0.122585E+00_JPRB &
+  &, 0.113092E+00_JPRB, 0.104128E+00_JPRB, 0.956715E-01_JPRB, 0.877222E-01_JPRB &
+  &, 0.802640E-01_JPRB, 0.732767E-01_JPRB, 0.667612E-01_JPRB &
+  &, 0.606898E-01_JPRB, 0.550427E-01_JPRB, 0.498238E-01_JPRB, 0.449784E-01_JPRB &
+  &, 0.405310E-01_JPRB, 0.364325E-01_JPRB, 0.326725E-01_JPRB &
+  &, 0.292222E-01_JPRB, 0.260961E-01_JPRB, 0.232271E-01_JPRB, 0.206400E-01_JPRB &
+  &, 0.182925E-01_JPRB, 0.161720E-01_JPRB, 0.142635E-01_JPRB &
+  &, 0.125493E-01_JPRB, 0.110281E-01_JPRB, 0.965924E-02_JPRB, 0.843660E-02_JPRB &
+  &, 0.735273E-02_JPRB, 0.637863E-02_JPRB, 0.554421E-02_JPRB &
+  &, 0.479700E-02_JPRB, 0.412264E-02_JPRB, 0.354913E-02_JPRB, 0.306159E-02_JPRB &
+  &, 0.262061E-02_JPRB, 0.222996E-02_JPRB, 0.189351E-02_JPRB &
+  &, 0.161523E-02_JPRB, 0.137441E-02_JPRB, 0.114846E-02_JPRB, 0.964485E-03_JPRB &
+  &, 0.825317E-03_JPRB, 0.680254E-03_JPRB, 0.583841E-03_JPRB &
+  &, 0.483404E-03_JPRB, 0.407247E-03_JPRB, 0.327991E-03_JPRB, 0.275029E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.193266E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 165, :) = (/ &
+  &  0.902269E+00_JPRB, 0.877906E+00_JPRB, 0.853601E+00_JPRB, 0.829373E+00_JPRB &
+  &, 0.805237E+00_JPRB, 0.781207E+00_JPRB, 0.757301E+00_JPRB &
+  &, 0.733536E+00_JPRB, 0.709927E+00_JPRB, 0.686490E+00_JPRB, 0.663242E+00_JPRB &
+  &, 0.640204E+00_JPRB, 0.617389E+00_JPRB, 0.594813E+00_JPRB &
+  &, 0.572496E+00_JPRB, 0.550451E+00_JPRB, 0.528701E+00_JPRB, 0.507258E+00_JPRB &
+  &, 0.486141E+00_JPRB, 0.465368E+00_JPRB, 0.444954E+00_JPRB &
+  &, 0.424918E+00_JPRB, 0.405274E+00_JPRB, 0.386041E+00_JPRB, 0.367229E+00_JPRB &
+  &, 0.348859E+00_JPRB, 0.330946E+00_JPRB, 0.313494E+00_JPRB &
+  &, 0.296529E+00_JPRB, 0.280053E+00_JPRB, 0.264083E+00_JPRB, 0.248627E+00_JPRB &
+  &, 0.233696E+00_JPRB, 0.219293E+00_JPRB, 0.205428E+00_JPRB &
+  &, 0.192100E+00_JPRB, 0.179320E+00_JPRB, 0.167089E+00_JPRB, 0.155395E+00_JPRB &
+  &, 0.144253E+00_JPRB, 0.133654E+00_JPRB, 0.123589E+00_JPRB &
+  &, 0.114056E+00_JPRB, 0.105047E+00_JPRB, 0.965557E-01_JPRB, 0.885569E-01_JPRB &
+  &, 0.810582E-01_JPRB, 0.740279E-01_JPRB, 0.674667E-01_JPRB &
+  &, 0.613599E-01_JPRB, 0.556753E-01_JPRB, 0.504027E-01_JPRB, 0.455288E-01_JPRB &
+  &, 0.410368E-01_JPRB, 0.369059E-01_JPRB, 0.331116E-01_JPRB &
+  &, 0.296406E-01_JPRB, 0.264608E-01_JPRB, 0.235840E-01_JPRB, 0.209553E-01_JPRB &
+  &, 0.185811E-01_JPRB, 0.164324E-01_JPRB, 0.145120E-01_JPRB &
+  &, 0.127671E-01_JPRB, 0.112136E-01_JPRB, 0.982985E-02_JPRB, 0.859157E-02_JPRB &
+  &, 0.749127E-02_JPRB, 0.652016E-02_JPRB, 0.564746E-02_JPRB &
+  &, 0.488135E-02_JPRB, 0.423030E-02_JPRB, 0.363706E-02_JPRB, 0.312890E-02_JPRB &
+  &, 0.266641E-02_JPRB, 0.227670E-02_JPRB, 0.194119E-02_JPRB &
+  &, 0.166387E-02_JPRB, 0.139922E-02_JPRB, 0.119906E-02_JPRB, 0.990281E-03_JPRB &
+  &, 0.851617E-03_JPRB, 0.707064E-03_JPRB, 0.583841E-03_JPRB &
+  &, 0.483404E-03_JPRB, 0.407247E-03_JPRB, 0.327991E-03_JPRB, 0.275029E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.193266E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 166, :) = (/ &
+  &  0.902646E+00_JPRB, 0.878368E+00_JPRB, 0.854146E+00_JPRB, 0.829998E+00_JPRB &
+  &, 0.805936E+00_JPRB, 0.781978E+00_JPRB, 0.758140E+00_JPRB &
+  &, 0.734439E+00_JPRB, 0.710890E+00_JPRB, 0.687511E+00_JPRB, 0.664318E+00_JPRB &
+  &, 0.641327E+00_JPRB, 0.618557E+00_JPRB, 0.596024E+00_JPRB &
+  &, 0.573744E+00_JPRB, 0.551736E+00_JPRB, 0.530015E+00_JPRB, 0.508600E+00_JPRB &
+  &, 0.487506E+00_JPRB, 0.466751E+00_JPRB, 0.446355E+00_JPRB &
+  &, 0.426331E+00_JPRB, 0.406695E+00_JPRB, 0.387464E+00_JPRB, 0.368657E+00_JPRB &
+  &, 0.350285E+00_JPRB, 0.332361E+00_JPRB, 0.314902E+00_JPRB &
+  &, 0.297925E+00_JPRB, 0.281436E+00_JPRB, 0.265446E+00_JPRB, 0.249970E+00_JPRB &
+  &, 0.235012E+00_JPRB, 0.220585E+00_JPRB, 0.206689E+00_JPRB &
+  &, 0.193328E+00_JPRB, 0.180521E+00_JPRB, 0.168253E+00_JPRB, 0.156528E+00_JPRB &
+  &, 0.145342E+00_JPRB, 0.134708E+00_JPRB, 0.124594E+00_JPRB &
+  &, 0.115030E+00_JPRB, 0.105978E+00_JPRB, 0.974400E-01_JPRB, 0.894035E-01_JPRB &
+  &, 0.818525E-01_JPRB, 0.747916E-01_JPRB, 0.681850E-01_JPRB &
+  &, 0.620300E-01_JPRB, 0.563078E-01_JPRB, 0.509954E-01_JPRB, 0.460934E-01_JPRB &
+  &, 0.415570E-01_JPRB, 0.373793E-01_JPRB, 0.335507E-01_JPRB &
+  &, 0.300436E-01_JPRB, 0.268414E-01_JPRB, 0.239247E-01_JPRB, 0.212706E-01_JPRB &
+  &, 0.188697E-01_JPRB, 0.167102E-01_JPRB, 0.147427E-01_JPRB &
+  &, 0.129848E-01_JPRB, 0.114176E-01_JPRB, 0.100005E-01_JPRB, 0.874655E-02_JPRB &
+  &, 0.762981E-02_JPRB, 0.664147E-02_JPRB, 0.577136E-02_JPRB &
+  &, 0.498680E-02_JPRB, 0.431643E-02_JPRB, 0.372499E-02_JPRB, 0.319622E-02_JPRB &
+  &, 0.273511E-02_JPRB, 0.234680E-02_JPRB, 0.198887E-02_JPRB &
+  &, 0.168820E-02_JPRB, 0.144883E-02_JPRB, 0.122436E-02_JPRB, 0.104188E-02_JPRB &
+  &, 0.877918E-03_JPRB, 0.733874E-03_JPRB, 0.611166E-03_JPRB &
+  &, 0.511251E-03_JPRB, 0.407247E-03_JPRB, 0.356899E-03_JPRB, 0.275029E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.193266E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 167, :) = (/ &
+  &  0.903021E+00_JPRB, 0.878829E+00_JPRB, 0.854690E+00_JPRB, 0.830619E+00_JPRB &
+  &, 0.806632E+00_JPRB, 0.782746E+00_JPRB, 0.758976E+00_JPRB &
+  &, 0.735339E+00_JPRB, 0.711851E+00_JPRB, 0.688529E+00_JPRB, 0.665389E+00_JPRB &
+  &, 0.642448E+00_JPRB, 0.619723E+00_JPRB, 0.597231E+00_JPRB &
+  &, 0.574990E+00_JPRB, 0.553016E+00_JPRB, 0.531326E+00_JPRB, 0.509938E+00_JPRB &
+  &, 0.488868E+00_JPRB, 0.468134E+00_JPRB, 0.447752E+00_JPRB &
+  &, 0.427740E+00_JPRB, 0.408113E+00_JPRB, 0.388887E+00_JPRB, 0.370081E+00_JPRB &
+  &, 0.351704E+00_JPRB, 0.333777E+00_JPRB, 0.316310E+00_JPRB &
+  &, 0.299321E+00_JPRB, 0.282814E+00_JPRB, 0.266809E+00_JPRB, 0.251313E+00_JPRB &
+  &, 0.236328E+00_JPRB, 0.221877E+00_JPRB, 0.207950E+00_JPRB &
+  &, 0.194565E+00_JPRB, 0.181713E+00_JPRB, 0.169416E+00_JPRB, 0.157651E+00_JPRB &
+  &, 0.146432E+00_JPRB, 0.135751E+00_JPRB, 0.125610E+00_JPRB &
+  &, 0.115994E+00_JPRB, 0.106898E+00_JPRB, 0.983242E-01_JPRB, 0.902501E-01_JPRB &
+  &, 0.826589E-01_JPRB, 0.755554E-01_JPRB, 0.689033E-01_JPRB &
+  &, 0.627133E-01_JPRB, 0.569404E-01_JPRB, 0.516019E-01_JPRB, 0.466439E-01_JPRB &
+  &, 0.420773E-01_JPRB, 0.378675E-01_JPRB, 0.340050E-01_JPRB &
+  &, 0.304620E-01_JPRB, 0.272220E-01_JPRB, 0.242817E-01_JPRB, 0.216026E-01_JPRB &
+  &, 0.191752E-01_JPRB, 0.169706E-01_JPRB, 0.149912E-01_JPRB &
+  &, 0.132207E-01_JPRB, 0.116216E-01_JPRB, 0.101900E-01_JPRB, 0.892089E-02_JPRB &
+  &, 0.778814E-02_JPRB, 0.678299E-02_JPRB, 0.589526E-02_JPRB &
+  &, 0.509224E-02_JPRB, 0.440256E-02_JPRB, 0.379094E-02_JPRB, 0.326353E-02_JPRB &
+  &, 0.280381E-02_JPRB, 0.239354E-02_JPRB, 0.203656E-02_JPRB &
+  &, 0.173684E-02_JPRB, 0.147364E-02_JPRB, 0.124966E-02_JPRB, 0.106767E-02_JPRB &
+  &, 0.877918E-03_JPRB, 0.760685E-03_JPRB, 0.638492E-03_JPRB &
+  &, 0.511251E-03_JPRB, 0.435622E-03_JPRB, 0.356899E-03_JPRB, 0.304477E-03_JPRB &
+  &, 0.249944E-03_JPRB, 0.193266E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 168, :) = (/ &
+  &  0.903396E+00_JPRB, 0.879290E+00_JPRB, 0.855231E+00_JPRB, 0.831239E+00_JPRB &
+  &, 0.807327E+00_JPRB, 0.783512E+00_JPRB, 0.759809E+00_JPRB &
+  &, 0.736237E+00_JPRB, 0.712809E+00_JPRB, 0.689544E+00_JPRB, 0.666457E+00_JPRB &
+  &, 0.643565E+00_JPRB, 0.620886E+00_JPRB, 0.598436E+00_JPRB &
+  &, 0.576234E+00_JPRB, 0.554294E+00_JPRB, 0.532635E+00_JPRB, 0.511273E+00_JPRB &
+  &, 0.490226E+00_JPRB, 0.469511E+00_JPRB, 0.449146E+00_JPRB &
+  &, 0.429146E+00_JPRB, 0.409527E+00_JPRB, 0.390307E+00_JPRB, 0.371502E+00_JPRB &
+  &, 0.353126E+00_JPRB, 0.335193E+00_JPRB, 0.317719E+00_JPRB &
+  &, 0.300717E+00_JPRB, 0.284197E+00_JPRB, 0.268173E+00_JPRB, 0.252652E+00_JPRB &
+  &, 0.237649E+00_JPRB, 0.223169E+00_JPRB, 0.209215E+00_JPRB &
+  &, 0.195793E+00_JPRB, 0.182915E+00_JPRB, 0.170580E+00_JPRB, 0.158784E+00_JPRB &
+  &, 0.147531E+00_JPRB, 0.136805E+00_JPRB, 0.126625E+00_JPRB &
+  &, 0.116968E+00_JPRB, 0.107840E+00_JPRB, 0.992085E-01_JPRB, 0.910967E-01_JPRB &
+  &, 0.834654E-01_JPRB, 0.763191E-01_JPRB, 0.696216E-01_JPRB &
+  &, 0.633834E-01_JPRB, 0.575864E-01_JPRB, 0.521946E-01_JPRB, 0.472085E-01_JPRB &
+  &, 0.425975E-01_JPRB, 0.383557E-01_JPRB, 0.344593E-01_JPRB &
+  &, 0.308804E-01_JPRB, 0.276184E-01_JPRB, 0.246386E-01_JPRB, 0.219345E-01_JPRB &
+  &, 0.194638E-01_JPRB, 0.172483E-01_JPRB, 0.152397E-01_JPRB &
+  &, 0.134385E-01_JPRB, 0.118257E-01_JPRB, 0.103796E-01_JPRB, 0.907586E-02_JPRB &
+  &, 0.792669E-02_JPRB, 0.690430E-02_JPRB, 0.599851E-02_JPRB &
+  &, 0.519768E-02_JPRB, 0.451022E-02_JPRB, 0.387886E-02_JPRB, 0.333085E-02_JPRB &
+  &, 0.287251E-02_JPRB, 0.246364E-02_JPRB, 0.210808E-02_JPRB &
+  &, 0.178548E-02_JPRB, 0.152325E-02_JPRB, 0.127496E-02_JPRB, 0.109347E-02_JPRB &
+  &, 0.904218E-03_JPRB, 0.760685E-03_JPRB, 0.638492E-03_JPRB &
+  &, 0.539098E-03_JPRB, 0.435622E-03_JPRB, 0.356899E-03_JPRB, 0.304477E-03_JPRB &
+  &, 0.249944E-03_JPRB, 0.193266E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART25',0,ZHOOK_HANDLE)
+
+XCW( 169, :) = (/ &
+  &  0.903769E+00_JPRB, 0.879747E+00_JPRB, 0.855770E+00_JPRB, 0.831856E+00_JPRB &
+  &, 0.808019E+00_JPRB, 0.784275E+00_JPRB, 0.760640E+00_JPRB &
+  &, 0.737131E+00_JPRB, 0.713764E+00_JPRB, 0.690555E+00_JPRB, 0.667521E+00_JPRB &
+  &, 0.644679E+00_JPRB, 0.622046E+00_JPRB, 0.599639E+00_JPRB &
+  &, 0.577474E+00_JPRB, 0.555568E+00_JPRB, 0.533940E+00_JPRB, 0.512607E+00_JPRB &
+  &, 0.491583E+00_JPRB, 0.470888E+00_JPRB, 0.450538E+00_JPRB &
+  &, 0.430551E+00_JPRB, 0.410941E+00_JPRB, 0.391726E+00_JPRB, 0.372923E+00_JPRB &
+  &, 0.354544E+00_JPRB, 0.336608E+00_JPRB, 0.319123E+00_JPRB &
+  &, 0.302109E+00_JPRB, 0.285575E+00_JPRB, 0.269532E+00_JPRB, 0.253995E+00_JPRB &
+  &, 0.238969E+00_JPRB, 0.224460E+00_JPRB, 0.210481E+00_JPRB &
+  &, 0.197030E+00_JPRB, 0.184117E+00_JPRB, 0.171743E+00_JPRB, 0.159917E+00_JPRB &
+  &, 0.148621E+00_JPRB, 0.137869E+00_JPRB, 0.127641E+00_JPRB &
+  &, 0.117943E+00_JPRB, 0.108771E+00_JPRB, 0.100104E+00_JPRB, 0.919433E-01_JPRB &
+  &, 0.842718E-01_JPRB, 0.770828E-01_JPRB, 0.703528E-01_JPRB &
+  &, 0.640667E-01_JPRB, 0.582324E-01_JPRB, 0.528011E-01_JPRB, 0.477730E-01_JPRB &
+  &, 0.431322E-01_JPRB, 0.388439E-01_JPRB, 0.349136E-01_JPRB &
+  &, 0.312988E-01_JPRB, 0.279990E-01_JPRB, 0.249955E-01_JPRB, 0.222499E-01_JPRB &
+  &, 0.197694E-01_JPRB, 0.175261E-01_JPRB, 0.154882E-01_JPRB &
+  &, 0.136744E-01_JPRB, 0.120297E-01_JPRB, 0.105692E-01_JPRB, 0.925021E-02_JPRB &
+  &, 0.808502E-02_JPRB, 0.704583E-02_JPRB, 0.612241E-02_JPRB &
+  &, 0.530312E-02_JPRB, 0.459635E-02_JPRB, 0.396679E-02_JPRB, 0.342060E-02_JPRB &
+  &, 0.294121E-02_JPRB, 0.251038E-02_JPRB, 0.215577E-02_JPRB &
+  &, 0.183413E-02_JPRB, 0.154806E-02_JPRB, 0.132556E-02_JPRB, 0.111927E-02_JPRB &
+  &, 0.930519E-03_JPRB, 0.787495E-03_JPRB, 0.665818E-03_JPRB &
+  &, 0.566946E-03_JPRB, 0.463997E-03_JPRB, 0.385807E-03_JPRB, 0.304477E-03_JPRB &
+  &, 0.249944E-03_JPRB, 0.223811E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 170, :) = (/ &
+  &  0.904141E+00_JPRB, 0.880204E+00_JPRB, 0.856308E+00_JPRB, 0.832472E+00_JPRB &
+  &, 0.808709E+00_JPRB, 0.785035E+00_JPRB, 0.761468E+00_JPRB &
+  &, 0.738023E+00_JPRB, 0.714716E+00_JPRB, 0.691564E+00_JPRB, 0.668584E+00_JPRB &
+  &, 0.645791E+00_JPRB, 0.623204E+00_JPRB, 0.600838E+00_JPRB &
+  &, 0.578711E+00_JPRB, 0.556841E+00_JPRB, 0.535244E+00_JPRB, 0.513937E+00_JPRB &
+  &, 0.492937E+00_JPRB, 0.472261E+00_JPRB, 0.451928E+00_JPRB &
+  &, 0.431954E+00_JPRB, 0.412352E+00_JPRB, 0.393145E+00_JPRB, 0.374341E+00_JPRB &
+  &, 0.355963E+00_JPRB, 0.338020E+00_JPRB, 0.320531E+00_JPRB &
+  &, 0.303505E+00_JPRB, 0.286957E+00_JPRB, 0.270896E+00_JPRB, 0.255337E+00_JPRB &
+  &, 0.240286E+00_JPRB, 0.225757E+00_JPRB, 0.211746E+00_JPRB &
+  &, 0.198267E+00_JPRB, 0.185328E+00_JPRB, 0.172917E+00_JPRB, 0.161049E+00_JPRB &
+  &, 0.149721E+00_JPRB, 0.138923E+00_JPRB, 0.128656E+00_JPRB &
+  &, 0.118928E+00_JPRB, 0.109701E+00_JPRB, 0.101000E+00_JPRB, 0.928018E-01_JPRB &
+  &, 0.850905E-01_JPRB, 0.778465E-01_JPRB, 0.710839E-01_JPRB &
+  &, 0.647631E-01_JPRB, 0.588784E-01_JPRB, 0.534075E-01_JPRB, 0.483376E-01_JPRB &
+  &, 0.436524E-01_JPRB, 0.393469E-01_JPRB, 0.353679E-01_JPRB &
+  &, 0.317328E-01_JPRB, 0.283955E-01_JPRB, 0.253525E-01_JPRB, 0.225818E-01_JPRB &
+  &, 0.200749E-01_JPRB, 0.178038E-01_JPRB, 0.157545E-01_JPRB &
+  &, 0.138922E-01_JPRB, 0.122338E-01_JPRB, 0.107588E-01_JPRB, 0.942455E-02_JPRB &
+  &, 0.824335E-02_JPRB, 0.718735E-02_JPRB, 0.624631E-02_JPRB &
+  &, 0.542965E-02_JPRB, 0.470401E-02_JPRB, 0.405472E-02_JPRB, 0.348791E-02_JPRB &
+  &, 0.300991E-02_JPRB, 0.258048E-02_JPRB, 0.220345E-02_JPRB &
+  &, 0.188277E-02_JPRB, 0.159768E-02_JPRB, 0.135086E-02_JPRB, 0.114506E-02_JPRB &
+  &, 0.956820E-03_JPRB, 0.814305E-03_JPRB, 0.693144E-03_JPRB &
+  &, 0.566946E-03_JPRB, 0.463997E-03_JPRB, 0.385807E-03_JPRB, 0.333924E-03_JPRB &
+  &, 0.279937E-03_JPRB, 0.223811E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 171, :) = (/ &
+  &  0.904512E+00_JPRB, 0.880658E+00_JPRB, 0.856844E+00_JPRB, 0.833085E+00_JPRB &
+  &, 0.809396E+00_JPRB, 0.785794E+00_JPRB, 0.762294E+00_JPRB &
+  &, 0.738912E+00_JPRB, 0.715666E+00_JPRB, 0.692570E+00_JPRB, 0.669643E+00_JPRB &
+  &, 0.646900E+00_JPRB, 0.624357E+00_JPRB, 0.602035E+00_JPRB &
+  &, 0.579945E+00_JPRB, 0.558110E+00_JPRB, 0.536543E+00_JPRB, 0.515265E+00_JPRB &
+  &, 0.494288E+00_JPRB, 0.473632E+00_JPRB, 0.453316E+00_JPRB &
+  &, 0.433353E+00_JPRB, 0.413763E+00_JPRB, 0.394558E+00_JPRB, 0.375761E+00_JPRB &
+  &, 0.357378E+00_JPRB, 0.339432E+00_JPRB, 0.321936E+00_JPRB &
+  &, 0.304897E+00_JPRB, 0.288336E+00_JPRB, 0.272259E+00_JPRB, 0.256680E+00_JPRB &
+  &, 0.241606E+00_JPRB, 0.227049E+00_JPRB, 0.213016E+00_JPRB &
+  &, 0.199504E+00_JPRB, 0.186529E+00_JPRB, 0.174090E+00_JPRB, 0.162182E+00_JPRB &
+  &, 0.150821E+00_JPRB, 0.139987E+00_JPRB, 0.129682E+00_JPRB &
+  &, 0.119903E+00_JPRB, 0.110644E+00_JPRB, 0.101896E+00_JPRB, 0.936603E-01_JPRB &
+  &, 0.858969E-01_JPRB, 0.786227E-01_JPRB, 0.718150E-01_JPRB &
+  &, 0.654464E-01_JPRB, 0.595245E-01_JPRB, 0.540140E-01_JPRB, 0.489163E-01_JPRB &
+  &, 0.441871E-01_JPRB, 0.398351E-01_JPRB, 0.358373E-01_JPRB &
+  &, 0.321512E-01_JPRB, 0.287919E-01_JPRB, 0.257256E-01_JPRB, 0.229303E-01_JPRB &
+  &, 0.203805E-01_JPRB, 0.180816E-01_JPRB, 0.160030E-01_JPRB &
+  &, 0.141281E-01_JPRB, 0.124563E-01_JPRB, 0.109483E-01_JPRB, 0.959889E-02_JPRB &
+  &, 0.838189E-02_JPRB, 0.732887E-02_JPRB, 0.637021E-02_JPRB &
+  &, 0.553509E-02_JPRB, 0.479014E-02_JPRB, 0.414265E-02_JPRB, 0.357767E-02_JPRB &
+  &, 0.307861E-02_JPRB, 0.262722E-02_JPRB, 0.225113E-02_JPRB &
+  &, 0.193141E-02_JPRB, 0.164729E-02_JPRB, 0.140145E-02_JPRB, 0.117086E-02_JPRB &
+  &, 0.983120E-03_JPRB, 0.841115E-03_JPRB, 0.693144E-03_JPRB &
+  &, 0.594793E-03_JPRB, 0.492371E-03_JPRB, 0.414715E-03_JPRB, 0.333924E-03_JPRB &
+  &, 0.279937E-03_JPRB, 0.223811E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 172, :) = (/ &
+  &  0.904880E+00_JPRB, 0.881111E+00_JPRB, 0.857378E+00_JPRB, 0.833697E+00_JPRB &
+  &, 0.810082E+00_JPRB, 0.786550E+00_JPRB, 0.763117E+00_JPRB &
+  &, 0.739799E+00_JPRB, 0.716612E+00_JPRB, 0.693573E+00_JPRB, 0.670699E+00_JPRB &
+  &, 0.648005E+00_JPRB, 0.625509E+00_JPRB, 0.603227E+00_JPRB &
+  &, 0.581178E+00_JPRB, 0.559377E+00_JPRB, 0.537841E+00_JPRB, 0.516589E+00_JPRB &
+  &, 0.495638E+00_JPRB, 0.475002E+00_JPRB, 0.454701E+00_JPRB &
+  &, 0.434752E+00_JPRB, 0.415170E+00_JPRB, 0.395974E+00_JPRB, 0.377175E+00_JPRB &
+  &, 0.358793E+00_JPRB, 0.340844E+00_JPRB, 0.323336E+00_JPRB &
+  &, 0.306289E+00_JPRB, 0.289714E+00_JPRB, 0.273623E+00_JPRB, 0.258023E+00_JPRB &
+  &, 0.242927E+00_JPRB, 0.228345E+00_JPRB, 0.214282E+00_JPRB &
+  &, 0.200741E+00_JPRB, 0.187741E+00_JPRB, 0.175263E+00_JPRB, 0.163325E+00_JPRB &
+  &, 0.151921E+00_JPRB, 0.141052E+00_JPRB, 0.130709E+00_JPRB &
+  &, 0.120889E+00_JPRB, 0.111586E+00_JPRB, 0.102804E+00_JPRB, 0.945188E-01_JPRB &
+  &, 0.867156E-01_JPRB, 0.793990E-01_JPRB, 0.725462E-01_JPRB &
+  &, 0.661428E-01_JPRB, 0.601839E-01_JPRB, 0.546343E-01_JPRB, 0.494950E-01_JPRB &
+  &, 0.447363E-01_JPRB, 0.403381E-01_JPRB, 0.362916E-01_JPRB &
+  &, 0.325851E-01_JPRB, 0.291884E-01_JPRB, 0.260826E-01_JPRB, 0.232623E-01_JPRB &
+  &, 0.207030E-01_JPRB, 0.183767E-01_JPRB, 0.162692E-01_JPRB &
+  &, 0.143640E-01_JPRB, 0.126604E-01_JPRB, 0.111379E-01_JPRB, 0.977324E-02_JPRB &
+  &, 0.854023E-02_JPRB, 0.747040E-02_JPRB, 0.649411E-02_JPRB &
+  &, 0.564053E-02_JPRB, 0.489780E-02_JPRB, 0.423058E-02_JPRB, 0.364498E-02_JPRB &
+  &, 0.314731E-02_JPRB, 0.269732E-02_JPRB, 0.229882E-02_JPRB &
+  &, 0.198006E-02_JPRB, 0.167210E-02_JPRB, 0.142675E-02_JPRB, 0.119666E-02_JPRB &
+  &, 0.100942E-02_JPRB, 0.867925E-03_JPRB, 0.720469E-03_JPRB &
+  &, 0.594793E-03_JPRB, 0.492371E-03_JPRB, 0.414715E-03_JPRB, 0.333924E-03_JPRB &
+  &, 0.279937E-03_JPRB, 0.223811E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 173, :) = (/ &
+  &  0.905248E+00_JPRB, 0.881563E+00_JPRB, 0.857910E+00_JPRB, 0.834306E+00_JPRB &
+  &, 0.810765E+00_JPRB, 0.787304E+00_JPRB, 0.763938E+00_JPRB &
+  &, 0.740683E+00_JPRB, 0.717557E+00_JPRB, 0.694574E+00_JPRB, 0.671753E+00_JPRB &
+  &, 0.649108E+00_JPRB, 0.626657E+00_JPRB, 0.604418E+00_JPRB &
+  &, 0.582407E+00_JPRB, 0.560641E+00_JPRB, 0.539136E+00_JPRB, 0.517912E+00_JPRB &
+  &, 0.496984E+00_JPRB, 0.476370E+00_JPRB, 0.456085E+00_JPRB &
+  &, 0.436148E+00_JPRB, 0.416578E+00_JPRB, 0.397386E+00_JPRB, 0.378593E+00_JPRB &
+  &, 0.360208E+00_JPRB, 0.342252E+00_JPRB, 0.324740E+00_JPRB &
+  &, 0.307681E+00_JPRB, 0.291093E+00_JPRB, 0.274982E+00_JPRB, 0.259366E+00_JPRB &
+  &, 0.244247E+00_JPRB, 0.229641E+00_JPRB, 0.215552E+00_JPRB &
+  &, 0.201988E+00_JPRB, 0.188942E+00_JPRB, 0.176437E+00_JPRB, 0.164468E+00_JPRB &
+  &, 0.153020E+00_JPRB, 0.142116E+00_JPRB, 0.131735E+00_JPRB &
+  &, 0.121874E+00_JPRB, 0.112539E+00_JPRB, 0.103711E+00_JPRB, 0.953774E-01_JPRB &
+  &, 0.875343E-01_JPRB, 0.801752E-01_JPRB, 0.732901E-01_JPRB &
+  &, 0.668392E-01_JPRB, 0.608300E-01_JPRB, 0.552545E-01_JPRB, 0.500737E-01_JPRB &
+  &, 0.452710E-01_JPRB, 0.408411E-01_JPRB, 0.367610E-01_JPRB &
+  &, 0.330190E-01_JPRB, 0.296007E-01_JPRB, 0.264557E-01_JPRB, 0.236108E-01_JPRB &
+  &, 0.210086E-01_JPRB, 0.186545E-01_JPRB, 0.165177E-01_JPRB &
+  &, 0.145999E-01_JPRB, 0.128830E-01_JPRB, 0.113275E-01_JPRB, 0.994758E-02_JPRB &
+  &, 0.869856E-02_JPRB, 0.761193E-02_JPRB, 0.661801E-02_JPRB &
+  &, 0.576706E-02_JPRB, 0.500546E-02_JPRB, 0.431851E-02_JPRB, 0.373473E-02_JPRB &
+  &, 0.321601E-02_JPRB, 0.276742E-02_JPRB, 0.237034E-02_JPRB &
+  &, 0.202870E-02_JPRB, 0.172171E-02_JPRB, 0.145205E-02_JPRB, 0.124825E-02_JPRB &
+  &, 0.103572E-02_JPRB, 0.894735E-03_JPRB, 0.747795E-03_JPRB &
+  &, 0.622640E-03_JPRB, 0.520746E-03_JPRB, 0.443624E-03_JPRB, 0.363372E-03_JPRB &
+  &, 0.309930E-03_JPRB, 0.254355E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 174, :) = (/ &
+  &  0.905614E+00_JPRB, 0.882012E+00_JPRB, 0.858440E+00_JPRB, 0.834914E+00_JPRB &
+  &, 0.811445E+00_JPRB, 0.788055E+00_JPRB, 0.764756E+00_JPRB &
+  &, 0.741565E+00_JPRB, 0.718498E+00_JPRB, 0.695572E+00_JPRB, 0.672803E+00_JPRB &
+  &, 0.650208E+00_JPRB, 0.627803E+00_JPRB, 0.605605E+00_JPRB &
+  &, 0.583632E+00_JPRB, 0.561902E+00_JPRB, 0.540428E+00_JPRB, 0.519232E+00_JPRB &
+  &, 0.498328E+00_JPRB, 0.477734E+00_JPRB, 0.457467E+00_JPRB &
+  &, 0.437544E+00_JPRB, 0.417982E+00_JPRB, 0.398795E+00_JPRB, 0.380003E+00_JPRB &
+  &, 0.361623E+00_JPRB, 0.343664E+00_JPRB, 0.326141E+00_JPRB &
+  &, 0.309073E+00_JPRB, 0.292471E+00_JPRB, 0.276345E+00_JPRB, 0.260709E+00_JPRB &
+  &, 0.245568E+00_JPRB, 0.230937E+00_JPRB, 0.216822E+00_JPRB &
+  &, 0.203225E+00_JPRB, 0.190153E+00_JPRB, 0.177620E+00_JPRB, 0.165611E+00_JPRB &
+  &, 0.154130E+00_JPRB, 0.143181E+00_JPRB, 0.132761E+00_JPRB &
+  &, 0.122860E+00_JPRB, 0.113482E+00_JPRB, 0.104619E+00_JPRB, 0.962478E-01_JPRB &
+  &, 0.883652E-01_JPRB, 0.809640E-01_JPRB, 0.740213E-01_JPRB &
+  &, 0.675487E-01_JPRB, 0.614894E-01_JPRB, 0.558748E-01_JPRB, 0.506524E-01_JPRB &
+  &, 0.458201E-01_JPRB, 0.413588E-01_JPRB, 0.372455E-01_JPRB &
+  &, 0.334685E-01_JPRB, 0.299971E-01_JPRB, 0.268289E-01_JPRB, 0.239427E-01_JPRB &
+  &, 0.213311E-01_JPRB, 0.189496E-01_JPRB, 0.167840E-01_JPRB &
+  &, 0.148539E-01_JPRB, 0.131056E-01_JPRB, 0.115360E-01_JPRB, 0.101219E-01_JPRB &
+  &, 0.887669E-02_JPRB, 0.775345E-02_JPRB, 0.676256E-02_JPRB &
+  &, 0.587250E-02_JPRB, 0.509159E-02_JPRB, 0.440644E-02_JPRB, 0.380205E-02_JPRB &
+  &, 0.328471E-02_JPRB, 0.281416E-02_JPRB, 0.241803E-02_JPRB &
+  &, 0.207734E-02_JPRB, 0.177133E-02_JPRB, 0.150265E-02_JPRB, 0.127405E-02_JPRB &
+  &, 0.108832E-02_JPRB, 0.894735E-03_JPRB, 0.775121E-03_JPRB &
+  &, 0.650487E-03_JPRB, 0.549121E-03_JPRB, 0.443624E-03_JPRB, 0.363372E-03_JPRB &
+  &, 0.309930E-03_JPRB, 0.254355E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 175, :) = (/ &
+  &  0.905979E+00_JPRB, 0.882462E+00_JPRB, 0.858969E+00_JPRB, 0.835519E+00_JPRB &
+  &, 0.812125E+00_JPRB, 0.788804E+00_JPRB, 0.765572E+00_JPRB &
+  &, 0.742444E+00_JPRB, 0.719437E+00_JPRB, 0.696567E+00_JPRB, 0.673851E+00_JPRB &
+  &, 0.651305E+00_JPRB, 0.628945E+00_JPRB, 0.606790E+00_JPRB &
+  &, 0.584856E+00_JPRB, 0.563160E+00_JPRB, 0.541719E+00_JPRB, 0.520549E+00_JPRB &
+  &, 0.499670E+00_JPRB, 0.479095E+00_JPRB, 0.458845E+00_JPRB &
+  &, 0.438936E+00_JPRB, 0.419383E+00_JPRB, 0.400204E+00_JPRB, 0.381417E+00_JPRB &
+  &, 0.363034E+00_JPRB, 0.345072E+00_JPRB, 0.327530E+00_JPRB &
+  &, 0.310465E+00_JPRB, 0.293849E+00_JPRB, 0.277709E+00_JPRB, 0.262052E+00_JPRB &
+  &, 0.246892E+00_JPRB, 0.232238E+00_JPRB, 0.218092E+00_JPRB &
+  &, 0.204471E+00_JPRB, 0.191365E+00_JPRB, 0.178793E+00_JPRB, 0.166754E+00_JPRB &
+  &, 0.155241E+00_JPRB, 0.144255E+00_JPRB, 0.133798E+00_JPRB &
+  &, 0.123857E+00_JPRB, 0.114435E+00_JPRB, 0.105526E+00_JPRB, 0.971182E-01_JPRB &
+  &, 0.891961E-01_JPRB, 0.817527E-01_JPRB, 0.747781E-01_JPRB &
+  &, 0.682452E-01_JPRB, 0.621624E-01_JPRB, 0.564950E-01_JPRB, 0.512310E-01_JPRB &
+  &, 0.463693E-01_JPRB, 0.418618E-01_JPRB, 0.377149E-01_JPRB &
+  &, 0.339024E-01_JPRB, 0.304094E-01_JPRB, 0.272183E-01_JPRB, 0.242913E-01_JPRB &
+  &, 0.216367E-01_JPRB, 0.192447E-01_JPRB, 0.170502E-01_JPRB &
+  &, 0.150898E-01_JPRB, 0.133096E-01_JPRB, 0.117256E-01_JPRB, 0.102963E-01_JPRB &
+  &, 0.903502E-02_JPRB, 0.789498E-02_JPRB, 0.688646E-02_JPRB &
+  &, 0.599902E-02_JPRB, 0.519925E-02_JPRB, 0.451635E-02_JPRB, 0.389180E-02_JPRB &
+  &, 0.335341E-02_JPRB, 0.288426E-02_JPRB, 0.246571E-02_JPRB &
+  &, 0.212598E-02_JPRB, 0.179614E-02_JPRB, 0.152795E-02_JPRB, 0.129984E-02_JPRB &
+  &, 0.111462E-02_JPRB, 0.921545E-03_JPRB, 0.775121E-03_JPRB &
+  &, 0.650487E-03_JPRB, 0.549121E-03_JPRB, 0.472532E-03_JPRB, 0.392820E-03_JPRB &
+  &, 0.309930E-03_JPRB, 0.254355E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART26',0,ZHOOK_HANDLE)
+
+XCW( 176, :) = (/ &
+  &  0.906343E+00_JPRB, 0.882908E+00_JPRB, 0.859496E+00_JPRB, 0.836123E+00_JPRB &
+  &, 0.812802E+00_JPRB, 0.789551E+00_JPRB, 0.766385E+00_JPRB &
+  &, 0.743321E+00_JPRB, 0.720373E+00_JPRB, 0.697560E+00_JPRB, 0.674896E+00_JPRB &
+  &, 0.652400E+00_JPRB, 0.630086E+00_JPRB, 0.607973E+00_JPRB &
+  &, 0.586078E+00_JPRB, 0.564416E+00_JPRB, 0.543006E+00_JPRB, 0.521864E+00_JPRB &
+  &, 0.501008E+00_JPRB, 0.480456E+00_JPRB, 0.460223E+00_JPRB &
+  &, 0.440325E+00_JPRB, 0.420783E+00_JPRB, 0.401613E+00_JPRB, 0.382827E+00_JPRB &
+  &, 0.364445E+00_JPRB, 0.346476E+00_JPRB, 0.328942E+00_JPRB &
+  &, 0.311857E+00_JPRB, 0.295228E+00_JPRB, 0.279068E+00_JPRB, 0.263395E+00_JPRB &
+  &, 0.248213E+00_JPRB, 0.233534E+00_JPRB, 0.219367E+00_JPRB &
+  &, 0.205708E+00_JPRB, 0.192576E+00_JPRB, 0.179977E+00_JPRB, 0.167897E+00_JPRB &
+  &, 0.156351E+00_JPRB, 0.145320E+00_JPRB, 0.134825E+00_JPRB &
+  &, 0.124853E+00_JPRB, 0.115389E+00_JPRB, 0.106434E+00_JPRB, 0.979887E-01_JPRB &
+  &, 0.900269E-01_JPRB, 0.825415E-01_JPRB, 0.755220E-01_JPRB &
+  &, 0.689547E-01_JPRB, 0.628219E-01_JPRB, 0.571291E-01_JPRB, 0.518239E-01_JPRB &
+  &, 0.469184E-01_JPRB, 0.423796E-01_JPRB, 0.381995E-01_JPRB &
+  &, 0.343518E-01_JPRB, 0.308217E-01_JPRB, 0.275914E-01_JPRB, 0.246398E-01_JPRB &
+  &, 0.219592E-01_JPRB, 0.195398E-01_JPRB, 0.173342E-01_JPRB &
+  &, 0.153439E-01_JPRB, 0.135507E-01_JPRB, 0.119341E-01_JPRB, 0.104900E-01_JPRB &
+  &, 0.919336E-02_JPRB, 0.803650E-02_JPRB, 0.701036E-02_JPRB &
+  &, 0.610447E-02_JPRB, 0.530691E-02_JPRB, 0.460428E-02_JPRB, 0.398155E-02_JPRB &
+  &, 0.342211E-02_JPRB, 0.295437E-02_JPRB, 0.253724E-02_JPRB &
+  &, 0.217463E-02_JPRB, 0.184575E-02_JPRB, 0.157855E-02_JPRB, 0.135144E-02_JPRB &
+  &, 0.114092E-02_JPRB, 0.948356E-03_JPRB, 0.802447E-03_JPRB &
+  &, 0.678335E-03_JPRB, 0.577496E-03_JPRB, 0.472532E-03_JPRB, 0.392820E-03_JPRB &
+  &, 0.339924E-03_JPRB, 0.254355E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 177, :) = (/ &
+  &  0.906707E+00_JPRB, 0.883355E+00_JPRB, 0.860022E+00_JPRB, 0.836725E+00_JPRB &
+  &, 0.813477E+00_JPRB, 0.790296E+00_JPRB, 0.767196E+00_JPRB &
+  &, 0.744195E+00_JPRB, 0.721307E+00_JPRB, 0.698550E+00_JPRB, 0.675939E+00_JPRB &
+  &, 0.653491E+00_JPRB, 0.631224E+00_JPRB, 0.609152E+00_JPRB &
+  &, 0.587295E+00_JPRB, 0.565670E+00_JPRB, 0.544290E+00_JPRB, 0.523177E+00_JPRB &
+  &, 0.502345E+00_JPRB, 0.481814E+00_JPRB, 0.461598E+00_JPRB &
+  &, 0.441715E+00_JPRB, 0.422184E+00_JPRB, 0.403019E+00_JPRB, 0.384238E+00_JPRB &
+  &, 0.365853E+00_JPRB, 0.347885E+00_JPRB, 0.330343E+00_JPRB &
+  &, 0.313245E+00_JPRB, 0.296606E+00_JPRB, 0.280432E+00_JPRB, 0.264737E+00_JPRB &
+  &, 0.249538E+00_JPRB, 0.234835E+00_JPRB, 0.220637E+00_JPRB &
+  &, 0.206955E+00_JPRB, 0.193796E+00_JPRB, 0.181160E+00_JPRB, 0.169040E+00_JPRB &
+  &, 0.157461E+00_JPRB, 0.146405E+00_JPRB, 0.135862E+00_JPRB &
+  &, 0.125850E+00_JPRB, 0.116354E+00_JPRB, 0.107353E+00_JPRB, 0.988591E-01_JPRB &
+  &, 0.908578E-01_JPRB, 0.833302E-01_JPRB, 0.762660E-01_JPRB &
+  &, 0.696643E-01_JPRB, 0.634948E-01_JPRB, 0.577493E-01_JPRB, 0.524167E-01_JPRB &
+  &, 0.474675E-01_JPRB, 0.428974E-01_JPRB, 0.386841E-01_JPRB &
+  &, 0.348012E-01_JPRB, 0.312340E-01_JPRB, 0.279808E-01_JPRB, 0.250049E-01_JPRB &
+  &, 0.222987E-01_JPRB, 0.198349E-01_JPRB, 0.176005E-01_JPRB &
+  &, 0.155798E-01_JPRB, 0.137733E-01_JPRB, 0.121426E-01_JPRB, 0.106643E-01_JPRB &
+  &, 0.937148E-02_JPRB, 0.819824E-02_JPRB, 0.715491E-02_JPRB &
+  &, 0.623099E-02_JPRB, 0.541457E-02_JPRB, 0.469221E-02_JPRB, 0.407131E-02_JPRB &
+  &, 0.351371E-02_JPRB, 0.302447E-02_JPRB, 0.258492E-02_JPRB &
+  &, 0.222327E-02_JPRB, 0.189537E-02_JPRB, 0.160385E-02_JPRB, 0.137723E-02_JPRB &
+  &, 0.116722E-02_JPRB, 0.975166E-03_JPRB, 0.829772E-03_JPRB &
+  &, 0.706182E-03_JPRB, 0.577496E-03_JPRB, 0.501440E-03_JPRB, 0.392820E-03_JPRB &
+  &, 0.339924E-03_JPRB, 0.284900E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 178, :) = (/ &
+  &  0.907068E+00_JPRB, 0.883799E+00_JPRB, 0.860545E+00_JPRB, 0.837325E+00_JPRB &
+  &, 0.814150E+00_JPRB, 0.791038E+00_JPRB, 0.768005E+00_JPRB &
+  &, 0.745066E+00_JPRB, 0.722238E+00_JPRB, 0.699537E+00_JPRB, 0.676979E+00_JPRB &
+  &, 0.654581E+00_JPRB, 0.632358E+00_JPRB, 0.610330E+00_JPRB &
+  &, 0.588512E+00_JPRB, 0.566920E+00_JPRB, 0.545573E+00_JPRB, 0.524487E+00_JPRB &
+  &, 0.503681E+00_JPRB, 0.483168E+00_JPRB, 0.462969E+00_JPRB &
+  &, 0.443104E+00_JPRB, 0.423581E+00_JPRB, 0.404425E+00_JPRB, 0.385644E+00_JPRB &
+  &, 0.367261E+00_JPRB, 0.349289E+00_JPRB, 0.331743E+00_JPRB &
+  &, 0.314637E+00_JPRB, 0.297980E+00_JPRB, 0.281795E+00_JPRB, 0.266084E+00_JPRB &
+  &, 0.250858E+00_JPRB, 0.236131E+00_JPRB, 0.221911E+00_JPRB &
+  &, 0.208201E+00_JPRB, 0.195008E+00_JPRB, 0.182343E+00_JPRB, 0.170193E+00_JPRB &
+  &, 0.158571E+00_JPRB, 0.147480E+00_JPRB, 0.136899E+00_JPRB &
+  &, 0.126847E+00_JPRB, 0.117307E+00_JPRB, 0.108272E+00_JPRB, 0.997415E-01_JPRB &
+  &, 0.916887E-01_JPRB, 0.841315E-01_JPRB, 0.770228E-01_JPRB &
+  &, 0.703870E-01_JPRB, 0.641677E-01_JPRB, 0.583834E-01_JPRB, 0.530095E-01_JPRB &
+  &, 0.480311E-01_JPRB, 0.434152E-01_JPRB, 0.391686E-01_JPRB &
+  &, 0.352506E-01_JPRB, 0.316463E-01_JPRB, 0.283702E-01_JPRB, 0.253535E-01_JPRB &
+  &, 0.226212E-01_JPRB, 0.201301E-01_JPRB, 0.178668E-01_JPRB &
+  &, 0.158339E-01_JPRB, 0.139959E-01_JPRB, 0.123512E-01_JPRB, 0.108580E-01_JPRB &
+  &, 0.952981E-02_JPRB, 0.833977E-02_JPRB, 0.729946E-02_JPRB &
+  &, 0.635752E-02_JPRB, 0.552224E-02_JPRB, 0.480212E-02_JPRB, 0.413862E-02_JPRB &
+  &, 0.358241E-02_JPRB, 0.309458E-02_JPRB, 0.265645E-02_JPRB &
+  &, 0.227192E-02_JPRB, 0.194498E-02_JPRB, 0.165445E-02_JPRB, 0.140303E-02_JPRB &
+  &, 0.119352E-02_JPRB, 0.100198E-02_JPRB, 0.857098E-03_JPRB &
+  &, 0.706182E-03_JPRB, 0.605870E-03_JPRB, 0.501440E-03_JPRB, 0.422267E-03_JPRB &
+  &, 0.339924E-03_JPRB, 0.284900E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 179, :) = (/ &
+  &  0.907428E+00_JPRB, 0.884243E+00_JPRB, 0.861068E+00_JPRB, 0.837923E+00_JPRB &
+  &, 0.814820E+00_JPRB, 0.791779E+00_JPRB, 0.768812E+00_JPRB &
+  &, 0.745935E+00_JPRB, 0.723167E+00_JPRB, 0.700522E+00_JPRB, 0.678016E+00_JPRB &
+  &, 0.655667E+00_JPRB, 0.633491E+00_JPRB, 0.611504E+00_JPRB &
+  &, 0.589725E+00_JPRB, 0.568168E+00_JPRB, 0.546852E+00_JPRB, 0.525795E+00_JPRB &
+  &, 0.505013E+00_JPRB, 0.484523E+00_JPRB, 0.464341E+00_JPRB &
+  &, 0.444486E+00_JPRB, 0.424978E+00_JPRB, 0.405827E+00_JPRB, 0.387051E+00_JPRB &
+  &, 0.368668E+00_JPRB, 0.350693E+00_JPRB, 0.333140E+00_JPRB &
+  &, 0.316025E+00_JPRB, 0.299359E+00_JPRB, 0.283154E+00_JPRB, 0.267427E+00_JPRB &
+  &, 0.252183E+00_JPRB, 0.237432E+00_JPRB, 0.223186E+00_JPRB &
+  &, 0.209447E+00_JPRB, 0.196228E+00_JPRB, 0.183526E+00_JPRB, 0.171346E+00_JPRB &
+  &, 0.159691E+00_JPRB, 0.148555E+00_JPRB, 0.137947E+00_JPRB &
+  &, 0.127854E+00_JPRB, 0.118272E+00_JPRB, 0.109203E+00_JPRB, 0.100624E+00_JPRB &
+  &, 0.925318E-01_JPRB, 0.849328E-01_JPRB, 0.777924E-01_JPRB &
+  &, 0.710965E-01_JPRB, 0.648541E-01_JPRB, 0.590312E-01_JPRB, 0.536164E-01_JPRB &
+  &, 0.485947E-01_JPRB, 0.439478E-01_JPRB, 0.396532E-01_JPRB &
+  &, 0.357000E-01_JPRB, 0.320745E-01_JPRB, 0.287596E-01_JPRB, 0.257186E-01_JPRB &
+  &, 0.229438E-01_JPRB, 0.204252E-01_JPRB, 0.181508E-01_JPRB &
+  &, 0.160879E-01_JPRB, 0.142185E-01_JPRB, 0.125597E-01_JPRB, 0.110518E-01_JPRB &
+  &, 0.970794E-02_JPRB, 0.850151E-02_JPRB, 0.742336E-02_JPRB &
+  &, 0.648405E-02_JPRB, 0.562990E-02_JPRB, 0.489005E-02_JPRB, 0.422837E-02_JPRB &
+  &, 0.365111E-02_JPRB, 0.316468E-02_JPRB, 0.270413E-02_JPRB &
+  &, 0.232056E-02_JPRB, 0.199460E-02_JPRB, 0.170505E-02_JPRB, 0.145463E-02_JPRB &
+  &, 0.121982E-02_JPRB, 0.102879E-02_JPRB, 0.884424E-03_JPRB &
+  &, 0.734029E-03_JPRB, 0.605870E-03_JPRB, 0.530348E-03_JPRB, 0.422267E-03_JPRB &
+  &, 0.369917E-03_JPRB, 0.284900E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 180, :) = (/ &
+  &  0.907788E+00_JPRB, 0.884683E+00_JPRB, 0.861588E+00_JPRB, 0.838519E+00_JPRB &
+  &, 0.815490E+00_JPRB, 0.792517E+00_JPRB, 0.769616E+00_JPRB &
+  &, 0.746803E+00_JPRB, 0.724093E+00_JPRB, 0.701504E+00_JPRB, 0.679051E+00_JPRB &
+  &, 0.656751E+00_JPRB, 0.634620E+00_JPRB, 0.612676E+00_JPRB &
+  &, 0.590934E+00_JPRB, 0.569413E+00_JPRB, 0.548131E+00_JPRB, 0.527100E+00_JPRB &
+  &, 0.506343E+00_JPRB, 0.485874E+00_JPRB, 0.465709E+00_JPRB &
+  &, 0.445872E+00_JPRB, 0.426372E+00_JPRB, 0.407229E+00_JPRB, 0.388458E+00_JPRB &
+  &, 0.370076E+00_JPRB, 0.352098E+00_JPRB, 0.334540E+00_JPRB &
+  &, 0.317413E+00_JPRB, 0.300737E+00_JPRB, 0.284518E+00_JPRB, 0.268770E+00_JPRB &
+  &, 0.253508E+00_JPRB, 0.238737E+00_JPRB, 0.224465E+00_JPRB &
+  &, 0.210694E+00_JPRB, 0.197449E+00_JPRB, 0.184709E+00_JPRB, 0.172499E+00_JPRB &
+  &, 0.160812E+00_JPRB, 0.149640E+00_JPRB, 0.138995E+00_JPRB &
+  &, 0.128862E+00_JPRB, 0.119237E+00_JPRB, 0.110122E+00_JPRB, 0.101506E+00_JPRB &
+  &, 0.933749E-01_JPRB, 0.857341E-01_JPRB, 0.785492E-01_JPRB &
+  &, 0.718192E-01_JPRB, 0.655271E-01_JPRB, 0.596653E-01_JPRB, 0.542092E-01_JPRB &
+  &, 0.491583E-01_JPRB, 0.444656E-01_JPRB, 0.401378E-01_JPRB &
+  &, 0.361650E-01_JPRB, 0.325026E-01_JPRB, 0.291490E-01_JPRB, 0.260837E-01_JPRB &
+  &, 0.232833E-01_JPRB, 0.207377E-01_JPRB, 0.184348E-01_JPRB &
+  &, 0.163420E-01_JPRB, 0.144596E-01_JPRB, 0.127682E-01_JPRB, 0.112455E-01_JPRB &
+  &, 0.986627E-02_JPRB, 0.866326E-02_JPRB, 0.756791E-02_JPRB &
+  &, 0.661058E-02_JPRB, 0.575909E-02_JPRB, 0.499996E-02_JPRB, 0.431813E-02_JPRB &
+  &, 0.374272E-02_JPRB, 0.323478E-02_JPRB, 0.277565E-02_JPRB &
+  &, 0.236920E-02_JPRB, 0.204421E-02_JPRB, 0.173034E-02_JPRB, 0.148042E-02_JPRB &
+  &, 0.124613E-02_JPRB, 0.105560E-02_JPRB, 0.911749E-03_JPRB &
+  &, 0.761877E-03_JPRB, 0.634245E-03_JPRB, 0.530348E-03_JPRB, 0.451715E-03_JPRB &
+  &, 0.369917E-03_JPRB, 0.315444E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 181, :) = (/ &
+  &  0.908147E+00_JPRB, 0.885123E+00_JPRB, 0.862107E+00_JPRB, 0.839113E+00_JPRB &
+  &, 0.816156E+00_JPRB, 0.793253E+00_JPRB, 0.770417E+00_JPRB &
+  &, 0.747667E+00_JPRB, 0.725017E+00_JPRB, 0.702484E+00_JPRB, 0.680083E+00_JPRB &
+  &, 0.657832E+00_JPRB, 0.635747E+00_JPRB, 0.613844E+00_JPRB &
+  &, 0.592143E+00_JPRB, 0.570656E+00_JPRB, 0.549405E+00_JPRB, 0.528403E+00_JPRB &
+  &, 0.507671E+00_JPRB, 0.487223E+00_JPRB, 0.467077E+00_JPRB &
+  &, 0.447252E+00_JPRB, 0.427763E+00_JPRB, 0.408627E+00_JPRB, 0.389861E+00_JPRB &
+  &, 0.371480E+00_JPRB, 0.353499E+00_JPRB, 0.335937E+00_JPRB &
+  &, 0.318801E+00_JPRB, 0.302100E+00_JPRB, 0.285881E+00_JPRB, 0.270117E+00_JPRB &
+  &, 0.254833E+00_JPRB, 0.240038E+00_JPRB, 0.225740E+00_JPRB &
+  &, 0.211949E+00_JPRB, 0.198670E+00_JPRB, 0.185902E+00_JPRB, 0.173652E+00_JPRB &
+  &, 0.161932E+00_JPRB, 0.150726E+00_JPRB, 0.140032E+00_JPRB &
+  &, 0.129870E+00_JPRB, 0.120202E+00_JPRB, 0.111053E+00_JPRB, 0.102401E+00_JPRB &
+  &, 0.942303E-01_JPRB, 0.865353E-01_JPRB, 0.793188E-01_JPRB &
+  &, 0.725419E-01_JPRB, 0.662134E-01_JPRB, 0.603131E-01_JPRB, 0.548161E-01_JPRB &
+  &, 0.497219E-01_JPRB, 0.449981E-01_JPRB, 0.406375E-01_JPRB &
+  &, 0.366144E-01_JPRB, 0.329308E-01_JPRB, 0.295384E-01_JPRB, 0.264489E-01_JPRB &
+  &, 0.236228E-01_JPRB, 0.210501E-01_JPRB, 0.187188E-01_JPRB &
+  &, 0.165960E-01_JPRB, 0.147008E-01_JPRB, 0.129768E-01_JPRB, 0.114392E-01_JPRB &
+  &, 0.100444E-01_JPRB, 0.882500E-02_JPRB, 0.771246E-02_JPRB &
+  &, 0.673711E-02_JPRB, 0.586675E-02_JPRB, 0.508788E-02_JPRB, 0.440788E-02_JPRB &
+  &, 0.381142E-02_JPRB, 0.330489E-02_JPRB, 0.284718E-02_JPRB &
+  &, 0.244217E-02_JPRB, 0.209383E-02_JPRB, 0.178094E-02_JPRB, 0.150622E-02_JPRB &
+  &, 0.129873E-02_JPRB, 0.108241E-02_JPRB, 0.911749E-03_JPRB &
+  &, 0.789724E-03_JPRB, 0.662620E-03_JPRB, 0.559257E-03_JPRB, 0.451715E-03_JPRB &
+  &, 0.369917E-03_JPRB, 0.315444E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 182, :) = (/ &
+  &  0.908503E+00_JPRB, 0.885562E+00_JPRB, 0.862624E+00_JPRB, 0.839706E+00_JPRB &
+  &, 0.816821E+00_JPRB, 0.793987E+00_JPRB, 0.771217E+00_JPRB &
+  &, 0.748527E+00_JPRB, 0.725938E+00_JPRB, 0.703456E+00_JPRB, 0.681113E+00_JPRB &
+  &, 0.658910E+00_JPRB, 0.636872E+00_JPRB, 0.615011E+00_JPRB &
+  &, 0.593348E+00_JPRB, 0.571897E+00_JPRB, 0.550677E+00_JPRB, 0.529705E+00_JPRB &
+  &, 0.508997E+00_JPRB, 0.488571E+00_JPRB, 0.468443E+00_JPRB &
+  &, 0.448631E+00_JPRB, 0.429153E+00_JPRB, 0.410026E+00_JPRB, 0.391264E+00_JPRB &
+  &, 0.372884E+00_JPRB, 0.354903E+00_JPRB, 0.337334E+00_JPRB &
+  &, 0.320193E+00_JPRB, 0.303490E+00_JPRB, 0.287245E+00_JPRB, 0.271464E+00_JPRB &
+  &, 0.256158E+00_JPRB, 0.241343E+00_JPRB, 0.227019E+00_JPRB &
+  &, 0.213196E+00_JPRB, 0.199890E+00_JPRB, 0.187095E+00_JPRB, 0.174814E+00_JPRB &
+  &, 0.163053E+00_JPRB, 0.151811E+00_JPRB, 0.141091E+00_JPRB &
+  &, 0.130878E+00_JPRB, 0.121178E+00_JPRB, 0.111983E+00_JPRB, 0.103283E+00_JPRB &
+  &, 0.950734E-01_JPRB, 0.873491E-01_JPRB, 0.800884E-01_JPRB &
+  &, 0.732777E-01_JPRB, 0.668998E-01_JPRB, 0.609609E-01_JPRB, 0.554371E-01_JPRB &
+  &, 0.503000E-01_JPRB, 0.455307E-01_JPRB, 0.411372E-01_JPRB &
+  &, 0.370793E-01_JPRB, 0.333590E-01_JPRB, 0.299440E-01_JPRB, 0.268140E-01_JPRB &
+  &, 0.239623E-01_JPRB, 0.213626E-01_JPRB, 0.190028E-01_JPRB &
+  &, 0.168682E-01_JPRB, 0.149419E-01_JPRB, 0.131853E-01_JPRB, 0.116329E-01_JPRB &
+  &, 0.102225E-01_JPRB, 0.896652E-02_JPRB, 0.785701E-02_JPRB &
+  &, 0.686364E-02_JPRB, 0.597441E-02_JPRB, 0.519780E-02_JPRB, 0.449763E-02_JPRB &
+  &, 0.390302E-02_JPRB, 0.337499E-02_JPRB, 0.289486E-02_JPRB &
+  &, 0.249081E-02_JPRB, 0.214344E-02_JPRB, 0.183154E-02_JPRB, 0.155781E-02_JPRB &
+  &, 0.132503E-02_JPRB, 0.110922E-02_JPRB, 0.939075E-03_JPRB &
+  &, 0.789724E-03_JPRB, 0.662620E-03_JPRB, 0.559257E-03_JPRB, 0.481163E-03_JPRB &
+  &, 0.399910E-03_JPRB, 0.315444E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART27',0,ZHOOK_HANDLE)
+
+XCW( 183, :) = (/ &
+  &  0.908859E+00_JPRB, 0.885999E+00_JPRB, 0.863139E+00_JPRB, 0.840297E+00_JPRB &
+  &, 0.817484E+00_JPRB, 0.794718E+00_JPRB, 0.772015E+00_JPRB &
+  &, 0.749389E+00_JPRB, 0.726858E+00_JPRB, 0.704436E+00_JPRB, 0.682140E+00_JPRB &
+  &, 0.659987E+00_JPRB, 0.637993E+00_JPRB, 0.616175E+00_JPRB &
+  &, 0.594551E+00_JPRB, 0.573136E+00_JPRB, 0.551948E+00_JPRB, 0.531004E+00_JPRB &
+  &, 0.510320E+00_JPRB, 0.489916E+00_JPRB, 0.469808E+00_JPRB &
+  &, 0.450010E+00_JPRB, 0.430544E+00_JPRB, 0.411425E+00_JPRB, 0.392667E+00_JPRB &
+  &, 0.374288E+00_JPRB, 0.356304E+00_JPRB, 0.338731E+00_JPRB &
+  &, 0.321577E+00_JPRB, 0.304868E+00_JPRB, 0.288604E+00_JPRB, 0.272807E+00_JPRB &
+  &, 0.257482E+00_JPRB, 0.242644E+00_JPRB, 0.228298E+00_JPRB &
+  &, 0.214451E+00_JPRB, 0.201111E+00_JPRB, 0.188288E+00_JPRB, 0.175967E+00_JPRB &
+  &, 0.164173E+00_JPRB, 0.152897E+00_JPRB, 0.142139E+00_JPRB &
+  &, 0.131886E+00_JPRB, 0.122154E+00_JPRB, 0.112914E+00_JPRB, 0.104177E+00_JPRB &
+  &, 0.959287E-01_JPRB, 0.881629E-01_JPRB, 0.808580E-01_JPRB &
+  &, 0.740004E-01_JPRB, 0.675997E-01_JPRB, 0.616087E-01_JPRB, 0.560440E-01_JPRB &
+  &, 0.508636E-01_JPRB, 0.460781E-01_JPRB, 0.416369E-01_JPRB &
+  &, 0.375597E-01_JPRB, 0.337871E-01_JPRB, 0.303496E-01_JPRB, 0.271791E-01_JPRB &
+  &, 0.243018E-01_JPRB, 0.216751E-01_JPRB, 0.192868E-01_JPRB &
+  &, 0.171223E-01_JPRB, 0.151830E-01_JPRB, 0.134128E-01_JPRB, 0.118266E-01_JPRB &
+  &, 0.104006E-01_JPRB, 0.912827E-02_JPRB, 0.800156E-02_JPRB &
+  &, 0.699017E-02_JPRB, 0.610360E-02_JPRB, 0.530771E-02_JPRB, 0.460982E-02_JPRB &
+  &, 0.399462E-02_JPRB, 0.344509E-02_JPRB, 0.296639E-02_JPRB &
+  &, 0.253945E-02_JPRB, 0.219305E-02_JPRB, 0.185684E-02_JPRB, 0.158361E-02_JPRB &
+  &, 0.135133E-02_JPRB, 0.116284E-02_JPRB, 0.966401E-03_JPRB &
+  &, 0.817571E-03_JPRB, 0.690995E-03_JPRB, 0.588165E-03_JPRB, 0.481163E-03_JPRB &
+  &, 0.399910E-03_JPRB, 0.345988E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 184, :) = (/ &
+  &  0.909213E+00_JPRB, 0.886436E+00_JPRB, 0.863654E+00_JPRB, 0.840886E+00_JPRB &
+  &, 0.818145E+00_JPRB, 0.795449E+00_JPRB, 0.772810E+00_JPRB &
+  &, 0.750247E+00_JPRB, 0.727774E+00_JPRB, 0.705408E+00_JPRB, 0.683165E+00_JPRB &
+  &, 0.661061E+00_JPRB, 0.639113E+00_JPRB, 0.617338E+00_JPRB &
+  &, 0.595751E+00_JPRB, 0.574372E+00_JPRB, 0.553215E+00_JPRB, 0.532299E+00_JPRB &
+  &, 0.511641E+00_JPRB, 0.491258E+00_JPRB, 0.471166E+00_JPRB &
+  &, 0.451386E+00_JPRB, 0.431931E+00_JPRB, 0.412820E+00_JPRB, 0.394067E+00_JPRB &
+  &, 0.375688E+00_JPRB, 0.357704E+00_JPRB, 0.340123E+00_JPRB &
+  &, 0.322965E+00_JPRB, 0.306243E+00_JPRB, 0.289967E+00_JPRB, 0.274154E+00_JPRB &
+  &, 0.258811E+00_JPRB, 0.243949E+00_JPRB, 0.229577E+00_JPRB &
+  &, 0.215707E+00_JPRB, 0.202332E+00_JPRB, 0.189481E+00_JPRB, 0.177130E+00_JPRB &
+  &, 0.165304E+00_JPRB, 0.153993E+00_JPRB, 0.143187E+00_JPRB &
+  &, 0.132904E+00_JPRB, 0.123130E+00_JPRB, 0.113857E+00_JPRB, 0.105071E+00_JPRB &
+  &, 0.967840E-01_JPRB, 0.889767E-01_JPRB, 0.816276E-01_JPRB &
+  &, 0.747362E-01_JPRB, 0.682861E-01_JPRB, 0.622704E-01_JPRB, 0.566651E-01_JPRB &
+  &, 0.514561E-01_JPRB, 0.466107E-01_JPRB, 0.421517E-01_JPRB &
+  &, 0.380246E-01_JPRB, 0.342311E-01_JPRB, 0.307552E-01_JPRB, 0.275609E-01_JPRB &
+  &, 0.246413E-01_JPRB, 0.219876E-01_JPRB, 0.195885E-01_JPRB &
+  &, 0.173945E-01_JPRB, 0.154242E-01_JPRB, 0.136403E-01_JPRB, 0.120397E-01_JPRB &
+  &, 0.105986E-01_JPRB, 0.931023E-02_JPRB, 0.814611E-02_JPRB &
+  &, 0.711670E-02_JPRB, 0.621126E-02_JPRB, 0.541762E-02_JPRB, 0.469958E-02_JPRB &
+  &, 0.406332E-02_JPRB, 0.351520E-02_JPRB, 0.303791E-02_JPRB &
+  &, 0.261242E-02_JPRB, 0.224267E-02_JPRB, 0.190744E-02_JPRB, 0.163520E-02_JPRB &
+  &, 0.137763E-02_JPRB, 0.118965E-02_JPRB, 0.993727E-03_JPRB &
+  &, 0.845418E-03_JPRB, 0.719370E-03_JPRB, 0.588165E-03_JPRB, 0.510610E-03_JPRB &
+  &, 0.429903E-03_JPRB, 0.345988E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.203405E-03_JPRB, 0.141237E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 185, :) = (/ &
+  &  0.909567E+00_JPRB, 0.886870E+00_JPRB, 0.864166E+00_JPRB, 0.841473E+00_JPRB &
+  &, 0.818805E+00_JPRB, 0.796176E+00_JPRB, 0.773604E+00_JPRB &
+  &, 0.751102E+00_JPRB, 0.728688E+00_JPRB, 0.706378E+00_JPRB, 0.684187E+00_JPRB &
+  &, 0.662133E+00_JPRB, 0.640229E+00_JPRB, 0.618494E+00_JPRB &
+  &, 0.596949E+00_JPRB, 0.575605E+00_JPRB, 0.554481E+00_JPRB, 0.533595E+00_JPRB &
+  &, 0.512961E+00_JPRB, 0.492600E+00_JPRB, 0.472528E+00_JPRB &
+  &, 0.452762E+00_JPRB, 0.433318E+00_JPRB, 0.414215E+00_JPRB, 0.395467E+00_JPRB &
+  &, 0.377089E+00_JPRB, 0.359101E+00_JPRB, 0.341520E+00_JPRB &
+  &, 0.324353E+00_JPRB, 0.307621E+00_JPRB, 0.291331E+00_JPRB, 0.275501E+00_JPRB &
+  &, 0.260136E+00_JPRB, 0.245254E+00_JPRB, 0.230861E+00_JPRB &
+  &, 0.216963E+00_JPRB, 0.203562E+00_JPRB, 0.190674E+00_JPRB, 0.178293E+00_JPRB &
+  &, 0.166434E+00_JPRB, 0.155089E+00_JPRB, 0.144245E+00_JPRB &
+  &, 0.133923E+00_JPRB, 0.124107E+00_JPRB, 0.114799E+00_JPRB, 0.105978E+00_JPRB &
+  &, 0.976516E-01_JPRB, 0.897905E-01_JPRB, 0.824101E-01_JPRB &
+  &, 0.754721E-01_JPRB, 0.689859E-01_JPRB, 0.629320E-01_JPRB, 0.572861E-01_JPRB &
+  &, 0.520341E-01_JPRB, 0.471580E-01_JPRB, 0.426514E-01_JPRB &
+  &, 0.385050E-01_JPRB, 0.346752E-01_JPRB, 0.311608E-01_JPRB, 0.279426E-01_JPRB &
+  &, 0.249978E-01_JPRB, 0.223174E-01_JPRB, 0.198725E-01_JPRB &
+  &, 0.176667E-01_JPRB, 0.156653E-01_JPRB, 0.138677E-01_JPRB, 0.122334E-01_JPRB &
+  &, 0.107767E-01_JPRB, 0.947197E-02_JPRB, 0.829066E-02_JPRB &
+  &, 0.726431E-02_JPRB, 0.634046E-02_JPRB, 0.552753E-02_JPRB, 0.478933E-02_JPRB &
+  &, 0.415492E-02_JPRB, 0.358530E-02_JPRB, 0.308560E-02_JPRB &
+  &, 0.266106E-02_JPRB, 0.229228E-02_JPRB, 0.195804E-02_JPRB, 0.166100E-02_JPRB &
+  &, 0.143023E-02_JPRB, 0.121646E-02_JPRB, 0.102105E-02_JPRB &
+  &, 0.873266E-03_JPRB, 0.719370E-03_JPRB, 0.617073E-03_JPRB, 0.510610E-03_JPRB &
+  &, 0.429903E-03_JPRB, 0.345988E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.203405E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 186, :) = (/ &
+  &  0.909919E+00_JPRB, 0.887303E+00_JPRB, 0.864677E+00_JPRB, 0.842059E+00_JPRB &
+  &, 0.819462E+00_JPRB, 0.796902E+00_JPRB, 0.774394E+00_JPRB &
+  &, 0.751955E+00_JPRB, 0.729600E+00_JPRB, 0.707345E+00_JPRB, 0.685207E+00_JPRB &
+  &, 0.663201E+00_JPRB, 0.641344E+00_JPRB, 0.619653E+00_JPRB &
+  &, 0.598145E+00_JPRB, 0.576837E+00_JPRB, 0.555745E+00_JPRB, 0.534886E+00_JPRB &
+  &, 0.514279E+00_JPRB, 0.493939E+00_JPRB, 0.473887E+00_JPRB &
+  &, 0.454135E+00_JPRB, 0.434702E+00_JPRB, 0.415606E+00_JPRB, 0.396863E+00_JPRB &
+  &, 0.378489E+00_JPRB, 0.360502E+00_JPRB, 0.342913E+00_JPRB &
+  &, 0.325741E+00_JPRB, 0.308995E+00_JPRB, 0.292694E+00_JPRB, 0.276848E+00_JPRB &
+  &, 0.261465E+00_JPRB, 0.246559E+00_JPRB, 0.232144E+00_JPRB &
+  &, 0.218218E+00_JPRB, 0.204792E+00_JPRB, 0.191867E+00_JPRB, 0.179456E+00_JPRB &
+  &, 0.167565E+00_JPRB, 0.156185E+00_JPRB, 0.145304E+00_JPRB &
+  &, 0.134942E+00_JPRB, 0.125094E+00_JPRB, 0.115742E+00_JPRB, 0.106884E+00_JPRB &
+  &, 0.985069E-01_JPRB, 0.906169E-01_JPRB, 0.831925E-01_JPRB &
+  &, 0.762210E-01_JPRB, 0.696858E-01_JPRB, 0.635936E-01_JPRB, 0.579071E-01_JPRB &
+  &, 0.526121E-01_JPRB, 0.477054E-01_JPRB, 0.431663E-01_JPRB &
+  &, 0.389855E-01_JPRB, 0.351192E-01_JPRB, 0.315664E-01_JPRB, 0.283243E-01_JPRB &
+  &, 0.253543E-01_JPRB, 0.226472E-01_JPRB, 0.201743E-01_JPRB &
+  &, 0.179389E-01_JPRB, 0.159065E-01_JPRB, 0.140763E-01_JPRB, 0.124465E-01_JPRB &
+  &, 0.109548E-01_JPRB, 0.963372E-02_JPRB, 0.845586E-02_JPRB &
+  &, 0.739084E-02_JPRB, 0.644812E-02_JPRB, 0.561546E-02_JPRB, 0.487908E-02_JPRB &
+  &, 0.424652E-02_JPRB, 0.367878E-02_JPRB, 0.315712E-02_JPRB &
+  &, 0.273403E-02_JPRB, 0.234190E-02_JPRB, 0.200864E-02_JPRB, 0.171259E-02_JPRB &
+  &, 0.145653E-02_JPRB, 0.124327E-02_JPRB, 0.104838E-02_JPRB &
+  &, 0.901113E-03_JPRB, 0.747744E-03_JPRB, 0.645981E-03_JPRB, 0.540058E-03_JPRB &
+  &, 0.429903E-03_JPRB, 0.376533E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.203405E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 187, :) = (/ &
+  &  0.910271E+00_JPRB, 0.887735E+00_JPRB, 0.865187E+00_JPRB, 0.842643E+00_JPRB &
+  &, 0.820117E+00_JPRB, 0.797626E+00_JPRB, 0.775182E+00_JPRB &
+  &, 0.752806E+00_JPRB, 0.730510E+00_JPRB, 0.708311E+00_JPRB, 0.686224E+00_JPRB &
+  &, 0.664267E+00_JPRB, 0.642457E+00_JPRB, 0.620808E+00_JPRB &
+  &, 0.599339E+00_JPRB, 0.578065E+00_JPRB, 0.557006E+00_JPRB, 0.536177E+00_JPRB &
+  &, 0.515594E+00_JPRB, 0.495277E+00_JPRB, 0.475242E+00_JPRB &
+  &, 0.455504E+00_JPRB, 0.436086E+00_JPRB, 0.416998E+00_JPRB, 0.398263E+00_JPRB &
+  &, 0.379889E+00_JPRB, 0.361899E+00_JPRB, 0.344306E+00_JPRB &
+  &, 0.327126E+00_JPRB, 0.310374E+00_JPRB, 0.294058E+00_JPRB, 0.278195E+00_JPRB &
+  &, 0.262795E+00_JPRB, 0.247869E+00_JPRB, 0.233423E+00_JPRB &
+  &, 0.219474E+00_JPRB, 0.206023E+00_JPRB, 0.193069E+00_JPRB, 0.180629E+00_JPRB &
+  &, 0.168696E+00_JPRB, 0.157280E+00_JPRB, 0.146374E+00_JPRB &
+  &, 0.135972E+00_JPRB, 0.126082E+00_JPRB, 0.116684E+00_JPRB, 0.107790E+00_JPRB &
+  &, 0.993744E-01_JPRB, 0.914432E-01_JPRB, 0.839750E-01_JPRB &
+  &, 0.769700E-01_JPRB, 0.703991E-01_JPRB, 0.642552E-01_JPRB, 0.585282E-01_JPRB &
+  &, 0.532046E-01_JPRB, 0.482676E-01_JPRB, 0.436811E-01_JPRB &
+  &, 0.394659E-01_JPRB, 0.355632E-01_JPRB, 0.319882E-01_JPRB, 0.287060E-01_JPRB &
+  &, 0.257108E-01_JPRB, 0.229597E-01_JPRB, 0.204760E-01_JPRB &
+  &, 0.182111E-01_JPRB, 0.161661E-01_JPRB, 0.143227E-01_JPRB, 0.126402E-01_JPRB &
+  &, 0.111527E-01_JPRB, 0.981568E-02_JPRB, 0.860041E-02_JPRB &
+  &, 0.753846E-02_JPRB, 0.657731E-02_JPRB, 0.574735E-02_JPRB, 0.499127E-02_JPRB &
+  &, 0.433812E-02_JPRB, 0.374888E-02_JPRB, 0.322865E-02_JPRB &
+  &, 0.278267E-02_JPRB, 0.239151E-02_JPRB, 0.205923E-02_JPRB, 0.176419E-02_JPRB &
+  &, 0.150913E-02_JPRB, 0.127008E-02_JPRB, 0.107570E-02_JPRB &
+  &, 0.928960E-03_JPRB, 0.776119E-03_JPRB, 0.645981E-03_JPRB, 0.540058E-03_JPRB &
+  &, 0.459896E-03_JPRB, 0.376533E-03_JPRB, 0.321017E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.203405E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 188, :) = (/ &
+  &  0.910622E+00_JPRB, 0.888165E+00_JPRB, 0.865695E+00_JPRB, 0.843226E+00_JPRB &
+  &, 0.820771E+00_JPRB, 0.798347E+00_JPRB, 0.775970E+00_JPRB &
+  &, 0.753655E+00_JPRB, 0.731417E+00_JPRB, 0.709274E+00_JPRB, 0.687240E+00_JPRB &
+  &, 0.665332E+00_JPRB, 0.643566E+00_JPRB, 0.621960E+00_JPRB &
+  &, 0.600530E+00_JPRB, 0.579293E+00_JPRB, 0.558265E+00_JPRB, 0.537463E+00_JPRB &
+  &, 0.516908E+00_JPRB, 0.496613E+00_JPRB, 0.476594E+00_JPRB &
+  &, 0.456873E+00_JPRB, 0.437466E+00_JPRB, 0.418390E+00_JPRB, 0.399659E+00_JPRB &
+  &, 0.381286E+00_JPRB, 0.363296E+00_JPRB, 0.345699E+00_JPRB &
+  &, 0.328514E+00_JPRB, 0.311748E+00_JPRB, 0.295421E+00_JPRB, 0.279543E+00_JPRB &
+  &, 0.264124E+00_JPRB, 0.244648E+00_JPRB, 0.234712E+00_JPRB &
+  &, 0.220730E+00_JPRB, 0.207253E+00_JPRB, 0.194272E+00_JPRB, 0.181802E+00_JPRB &
+  &, 0.169837E+00_JPRB, 0.158376E+00_JPRB, 0.147432E+00_JPRB &
+  &, 0.137002E+00_JPRB, 0.127070E+00_JPRB, 0.117638E+00_JPRB, 0.108696E+00_JPRB &
+  &, 0.100242E+00_JPRB, 0.922695E-01_JPRB, 0.847702E-01_JPRB &
+  &, 0.777190E-01_JPRB, 0.711124E-01_JPRB, 0.649306E-01_JPRB, 0.591633E-01_JPRB &
+  &, 0.537971E-01_JPRB, 0.488150E-01_JPRB, 0.442111E-01_JPRB &
+  &, 0.399463E-01_JPRB, 0.360231E-01_JPRB, 0.324101E-01_JPRB, 0.290878E-01_JPRB &
+  &, 0.260672E-01_JPRB, 0.232896E-01_JPRB, 0.207778E-01_JPRB &
+  &, 0.184833E-01_JPRB, 0.164258E-01_JPRB, 0.145502E-01_JPRB, 0.128533E-01_JPRB &
+  &, 0.113309E-01_JPRB, 0.997742E-02_JPRB, 0.876561E-02_JPRB &
+  &, 0.766499E-02_JPRB, 0.670650E-02_JPRB, 0.585726E-02_JPRB, 0.508102E-02_JPRB &
+  &, 0.440682E-02_JPRB, 0.381898E-02_JPRB, 0.330018E-02_JPRB &
+  &, 0.285563E-02_JPRB, 0.244113E-02_JPRB, 0.210983E-02_JPRB, 0.178998E-02_JPRB &
+  &, 0.153543E-02_JPRB, 0.129689E-02_JPRB, 0.110303E-02_JPRB &
+  &, 0.928960E-03_JPRB, 0.804494E-03_JPRB, 0.674890E-03_JPRB, 0.569506E-03_JPRB &
+  &, 0.459896E-03_JPRB, 0.376533E-03_JPRB, 0.321017E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.235639E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 189, :) = (/ &
+  &  0.910970E+00_JPRB, 0.888595E+00_JPRB, 0.866201E+00_JPRB, 0.843806E+00_JPRB &
+  &, 0.821422E+00_JPRB, 0.799068E+00_JPRB, 0.776755E+00_JPRB &
+  &, 0.754501E+00_JPRB, 0.732323E+00_JPRB, 0.710234E+00_JPRB, 0.688253E+00_JPRB &
+  &, 0.666391E+00_JPRB, 0.644674E+00_JPRB, 0.623109E+00_JPRB &
+  &, 0.601718E+00_JPRB, 0.580517E+00_JPRB, 0.559521E+00_JPRB, 0.538750E+00_JPRB &
+  &, 0.518219E+00_JPRB, 0.497945E+00_JPRB, 0.477946E+00_JPRB &
+  &, 0.458242E+00_JPRB, 0.438846E+00_JPRB, 0.419778E+00_JPRB, 0.401051E+00_JPRB &
+  &, 0.382687E+00_JPRB, 0.364693E+00_JPRB, 0.347092E+00_JPRB &
+  &, 0.329898E+00_JPRB, 0.313123E+00_JPRB, 0.296785E+00_JPRB, 0.280890E+00_JPRB &
+  &, 0.265453E+00_JPRB, 0.250483E+00_JPRB, 0.235995E+00_JPRB &
+  &, 0.221995E+00_JPRB, 0.208483E+00_JPRB, 0.195475E+00_JPRB, 0.182965E+00_JPRB &
+  &, 0.170967E+00_JPRB, 0.159483E+00_JPRB, 0.148502E+00_JPRB &
+  &, 0.138032E+00_JPRB, 0.128057E+00_JPRB, 0.118592E+00_JPRB, 0.109614E+00_JPRB &
+  &, 0.101122E+00_JPRB, 0.931083E-01_JPRB, 0.855527E-01_JPRB &
+  &, 0.784679E-01_JPRB, 0.718257E-01_JPRB, 0.656060E-01_JPRB, 0.597985E-01_JPRB &
+  &, 0.543896E-01_JPRB, 0.493771E-01_JPRB, 0.447260E-01_JPRB &
+  &, 0.404267E-01_JPRB, 0.364671E-01_JPRB, 0.328319E-01_JPRB, 0.294861E-01_JPRB &
+  &, 0.264237E-01_JPRB, 0.236367E-01_JPRB, 0.210796E-01_JPRB &
+  &, 0.187736E-01_JPRB, 0.166670E-01_JPRB, 0.147777E-01_JPRB, 0.130664E-01_JPRB &
+  &, 0.115288E-01_JPRB, 0.101594E-01_JPRB, 0.891016E-02_JPRB &
+  &, 0.781260E-02_JPRB, 0.683570E-02_JPRB, 0.596717E-02_JPRB, 0.519321E-02_JPRB &
+  &, 0.449842E-02_JPRB, 0.391245E-02_JPRB, 0.337170E-02_JPRB &
+  &, 0.290428E-02_JPRB, 0.251555E-02_JPRB, 0.216043E-02_JPRB, 0.184158E-02_JPRB &
+  &, 0.156173E-02_JPRB, 0.135051E-02_JPRB, 0.113036E-02_JPRB &
+  &, 0.956808E-03_JPRB, 0.804494E-03_JPRB, 0.674890E-03_JPRB, 0.569506E-03_JPRB &
+  &, 0.489889E-03_JPRB, 0.407077E-03_JPRB, 0.321017E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.235639E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART28',0,ZHOOK_HANDLE)
+
+XCW( 190, :) = (/ &
+  &  0.911319E+00_JPRB, 0.889023E+00_JPRB, 0.866706E+00_JPRB, 0.844385E+00_JPRB &
+  &, 0.822072E+00_JPRB, 0.799785E+00_JPRB, 0.777538E+00_JPRB &
+  &, 0.755346E+00_JPRB, 0.733226E+00_JPRB, 0.711192E+00_JPRB, 0.689263E+00_JPRB &
+  &, 0.667453E+00_JPRB, 0.645778E+00_JPRB, 0.624258E+00_JPRB &
+  &, 0.602905E+00_JPRB, 0.581738E+00_JPRB, 0.560776E+00_JPRB, 0.540033E+00_JPRB &
+  &, 0.519529E+00_JPRB, 0.499278E+00_JPRB, 0.479298E+00_JPRB &
+  &, 0.459608E+00_JPRB, 0.440227E+00_JPRB, 0.421166E+00_JPRB, 0.402447E+00_JPRB &
+  &, 0.384083E+00_JPRB, 0.366090E+00_JPRB, 0.348485E+00_JPRB &
+  &, 0.331286E+00_JPRB, 0.314501E+00_JPRB, 0.298148E+00_JPRB, 0.282237E+00_JPRB &
+  &, 0.266782E+00_JPRB, 0.251793E+00_JPRB, 0.237283E+00_JPRB &
+  &, 0.223250E+00_JPRB, 0.209713E+00_JPRB, 0.196678E+00_JPRB, 0.184138E+00_JPRB &
+  &, 0.172108E+00_JPRB, 0.160589E+00_JPRB, 0.149571E+00_JPRB &
+  &, 0.139062E+00_JPRB, 0.129056E+00_JPRB, 0.119546E+00_JPRB, 0.110521E+00_JPRB &
+  &, 0.102002E+00_JPRB, 0.939472E-01_JPRB, 0.863479E-01_JPRB &
+  &, 0.792169E-01_JPRB, 0.725390E-01_JPRB, 0.662814E-01_JPRB, 0.604336E-01_JPRB &
+  &, 0.549966E-01_JPRB, 0.499393E-01_JPRB, 0.452559E-01_JPRB &
+  &, 0.409226E-01_JPRB, 0.369270E-01_JPRB, 0.332537E-01_JPRB, 0.298844E-01_JPRB &
+  &, 0.267802E-01_JPRB, 0.239666E-01_JPRB, 0.213991E-01_JPRB &
+  &, 0.190458E-01_JPRB, 0.169266E-01_JPRB, 0.150241E-01_JPRB, 0.132795E-01_JPRB &
+  &, 0.117267E-01_JPRB, 0.103211E-01_JPRB, 0.907536E-02_JPRB &
+  &, 0.796022E-02_JPRB, 0.696489E-02_JPRB, 0.607708E-02_JPRB, 0.530541E-02_JPRB &
+  &, 0.459002E-02_JPRB, 0.398256E-02_JPRB, 0.344323E-02_JPRB &
+  &, 0.297724E-02_JPRB, 0.256517E-02_JPRB, 0.221103E-02_JPRB, 0.189317E-02_JPRB &
+  &, 0.161433E-02_JPRB, 0.137732E-02_JPRB, 0.115768E-02_JPRB &
+  &, 0.984655E-03_JPRB, 0.832869E-03_JPRB, 0.703798E-03_JPRB, 0.598953E-03_JPRB &
+  &, 0.489889E-03_JPRB, 0.407077E-03_JPRB, 0.352119E-03_JPRB &
+  &, 0.294985E-03_JPRB, 0.235639E-03_JPRB, 0.206856E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 191, :) = (/ &
+  &  0.911666E+00_JPRB, 0.889450E+00_JPRB, 0.867210E+00_JPRB, 0.844963E+00_JPRB &
+  &, 0.822721E+00_JPRB, 0.800501E+00_JPRB, 0.778319E+00_JPRB &
+  &, 0.756188E+00_JPRB, 0.734126E+00_JPRB, 0.712149E+00_JPRB, 0.690272E+00_JPRB &
+  &, 0.668510E+00_JPRB, 0.646882E+00_JPRB, 0.625402E+00_JPRB &
+  &, 0.604090E+00_JPRB, 0.582958E+00_JPRB, 0.562029E+00_JPRB, 0.541315E+00_JPRB &
+  &, 0.520836E+00_JPRB, 0.500607E+00_JPRB, 0.480647E+00_JPRB &
+  &, 0.460974E+00_JPRB, 0.441604E+00_JPRB, 0.422551E+00_JPRB, 0.403840E+00_JPRB &
+  &, 0.385476E+00_JPRB, 0.367483E+00_JPRB, 0.349878E+00_JPRB &
+  &, 0.332670E+00_JPRB, 0.315875E+00_JPRB, 0.299512E+00_JPRB, 0.283584E+00_JPRB &
+  &, 0.268115E+00_JPRB, 0.253107E+00_JPRB, 0.238572E+00_JPRB &
+  &, 0.224515E+00_JPRB, 0.210953E+00_JPRB, 0.197880E+00_JPRB, 0.185321E+00_JPRB &
+  &, 0.173249E+00_JPRB, 0.161696E+00_JPRB, 0.150641E+00_JPRB &
+  &, 0.140092E+00_JPRB, 0.130044E+00_JPRB, 0.120500E+00_JPRB, 0.111451E+00_JPRB &
+  &, 0.102869E+00_JPRB, 0.947860E-01_JPRB, 0.871560E-01_JPRB &
+  &, 0.799790E-01_JPRB, 0.732524E-01_JPRB, 0.669568E-01_JPRB, 0.610829E-01_JPRB &
+  &, 0.556035E-01_JPRB, 0.505163E-01_JPRB, 0.457859E-01_JPRB &
+  &, 0.414185E-01_JPRB, 0.373869E-01_JPRB, 0.336756E-01_JPRB, 0.302828E-01_JPRB &
+  &, 0.271537E-01_JPRB, 0.242964E-01_JPRB, 0.217008E-01_JPRB &
+  &, 0.193362E-01_JPRB, 0.171863E-01_JPRB, 0.152516E-01_JPRB, 0.134926E-01_JPRB &
+  &, 0.119246E-01_JPRB, 0.105031E-01_JPRB, 0.924056E-02_JPRB &
+  &, 0.810784E-02_JPRB, 0.709408E-02_JPRB, 0.618699E-02_JPRB, 0.539516E-02_JPRB &
+  &, 0.470452E-02_JPRB, 0.407603E-02_JPRB, 0.351475E-02_JPRB &
+  &, 0.305021E-02_JPRB, 0.261478E-02_JPRB, 0.226163E-02_JPRB, 0.191897E-02_JPRB &
+  &, 0.164063E-02_JPRB, 0.140413E-02_JPRB, 0.118501E-02_JPRB &
+  &, 0.101250E-02_JPRB, 0.861244E-03_JPRB, 0.732706E-03_JPRB, 0.598953E-03_JPRB &
+  &, 0.519882E-03_JPRB, 0.437621E-03_JPRB, 0.352119E-03_JPRB &
+  &, 0.294985E-03_JPRB, 0.235639E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 192, :) = (/ &
+  &  0.912011E+00_JPRB, 0.889875E+00_JPRB, 0.867712E+00_JPRB, 0.845538E+00_JPRB &
+  &, 0.823368E+00_JPRB, 0.801215E+00_JPRB, 0.779097E+00_JPRB &
+  &, 0.757029E+00_JPRB, 0.735026E+00_JPRB, 0.713103E+00_JPRB, 0.691278E+00_JPRB &
+  &, 0.669565E+00_JPRB, 0.647983E+00_JPRB, 0.626545E+00_JPRB &
+  &, 0.605271E+00_JPRB, 0.584177E+00_JPRB, 0.563279E+00_JPRB, 0.542594E+00_JPRB &
+  &, 0.522141E+00_JPRB, 0.501936E+00_JPRB, 0.481996E+00_JPRB &
+  &, 0.462337E+00_JPRB, 0.442981E+00_JPRB, 0.423939E+00_JPRB, 0.405229E+00_JPRB &
+  &, 0.386873E+00_JPRB, 0.368880E+00_JPRB, 0.351271E+00_JPRB &
+  &, 0.334054E+00_JPRB, 0.317254E+00_JPRB, 0.300875E+00_JPRB, 0.284935E+00_JPRB &
+  &, 0.269445E+00_JPRB, 0.254416E+00_JPRB, 0.239860E+00_JPRB &
+  &, 0.225780E+00_JPRB, 0.212183E+00_JPRB, 0.199093E+00_JPRB, 0.186494E+00_JPRB &
+  &, 0.174400E+00_JPRB, 0.162802E+00_JPRB, 0.151721E+00_JPRB &
+  &, 0.141133E+00_JPRB, 0.131054E+00_JPRB, 0.121466E+00_JPRB, 0.112369E+00_JPRB &
+  &, 0.103761E+00_JPRB, 0.956248E-01_JPRB, 0.879513E-01_JPRB &
+  &, 0.807411E-01_JPRB, 0.739791E-01_JPRB, 0.676459E-01_JPRB, 0.617180E-01_JPRB &
+  &, 0.562105E-01_JPRB, 0.510784E-01_JPRB, 0.463159E-01_JPRB &
+  &, 0.419144E-01_JPRB, 0.378626E-01_JPRB, 0.341136E-01_JPRB, 0.306811E-01_JPRB &
+  &, 0.275271E-01_JPRB, 0.246436E-01_JPRB, 0.220203E-01_JPRB &
+  &, 0.196265E-01_JPRB, 0.174646E-01_JPRB, 0.154981E-01_JPRB, 0.137250E-01_JPRB &
+  &, 0.121225E-01_JPRB, 0.106850E-01_JPRB, 0.940576E-02_JPRB &
+  &, 0.825545E-02_JPRB, 0.722328E-02_JPRB, 0.631889E-02_JPRB, 0.550735E-02_JPRB &
+  &, 0.479612E-02_JPRB, 0.414613E-02_JPRB, 0.361012E-02_JPRB &
+  &, 0.309885E-02_JPRB, 0.268920E-02_JPRB, 0.231223E-02_JPRB, 0.197056E-02_JPRB &
+  &, 0.169323E-02_JPRB, 0.143094E-02_JPRB, 0.123966E-02_JPRB &
+  &, 0.104035E-02_JPRB, 0.889618E-03_JPRB, 0.732706E-03_JPRB, 0.628401E-03_JPRB &
+  &, 0.519882E-03_JPRB, 0.437621E-03_JPRB, 0.352119E-03_JPRB &
+  &, 0.294985E-03_JPRB, 0.267873E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 193, :) = (/ &
+  &  0.912357E+00_JPRB, 0.890300E+00_JPRB, 0.868213E+00_JPRB, 0.846112E+00_JPRB &
+  &, 0.824012E+00_JPRB, 0.801928E+00_JPRB, 0.779874E+00_JPRB &
+  &, 0.757867E+00_JPRB, 0.735922E+00_JPRB, 0.714055E+00_JPRB, 0.692281E+00_JPRB &
+  &, 0.670617E+00_JPRB, 0.649081E+00_JPRB, 0.627686E+00_JPRB &
+  &, 0.606450E+00_JPRB, 0.585392E+00_JPRB, 0.564528E+00_JPRB, 0.543873E+00_JPRB &
+  &, 0.523445E+00_JPRB, 0.503263E+00_JPRB, 0.483342E+00_JPRB &
+  &, 0.463700E+00_JPRB, 0.444354E+00_JPRB, 0.425324E+00_JPRB, 0.406621E+00_JPRB &
+  &, 0.388266E+00_JPRB, 0.370274E+00_JPRB, 0.352660E+00_JPRB &
+  &, 0.335438E+00_JPRB, 0.318628E+00_JPRB, 0.302238E+00_JPRB, 0.286282E+00_JPRB &
+  &, 0.270778E+00_JPRB, 0.255730E+00_JPRB, 0.241148E+00_JPRB &
+  &, 0.227045E+00_JPRB, 0.213423E+00_JPRB, 0.200305E+00_JPRB, 0.187667E+00_JPRB &
+  &, 0.175541E+00_JPRB, 0.163919E+00_JPRB, 0.152791E+00_JPRB &
+  &, 0.142174E+00_JPRB, 0.132053E+00_JPRB, 0.122432E+00_JPRB, 0.113287E+00_JPRB &
+  &, 0.104641E+00_JPRB, 0.964637E-01_JPRB, 0.887594E-01_JPRB &
+  &, 0.815164E-01_JPRB, 0.747059E-01_JPRB, 0.683351E-01_JPRB, 0.623673E-01_JPRB &
+  &, 0.568174E-01_JPRB, 0.516554E-01_JPRB, 0.468610E-01_JPRB &
+  &, 0.424258E-01_JPRB, 0.383225E-01_JPRB, 0.345517E-01_JPRB, 0.310794E-01_JPRB &
+  &, 0.279006E-01_JPRB, 0.249908E-01_JPRB, 0.223398E-01_JPRB &
+  &, 0.199168E-01_JPRB, 0.177243E-01_JPRB, 0.157445E-01_JPRB, 0.139381E-01_JPRB &
+  &, 0.123204E-01_JPRB, 0.108670E-01_JPRB, 0.957096E-02_JPRB &
+  &, 0.840307E-02_JPRB, 0.735247E-02_JPRB, 0.642880E-02_JPRB, 0.561954E-02_JPRB &
+  &, 0.488772E-02_JPRB, 0.423961E-02_JPRB, 0.368164E-02_JPRB &
+  &, 0.317182E-02_JPRB, 0.273882E-02_JPRB, 0.236282E-02_JPRB, 0.202216E-02_JPRB &
+  &, 0.171954E-02_JPRB, 0.148456E-02_JPRB, 0.126698E-02_JPRB &
+  &, 0.106820E-02_JPRB, 0.917993E-03_JPRB, 0.761614E-03_JPRB, 0.657849E-03_JPRB &
+  &, 0.549875E-03_JPRB, 0.468166E-03_JPRB, 0.383220E-03_JPRB &
+  &, 0.326650E-03_JPRB, 0.267873E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 194, :) = (/ &
+  &  0.912701E+00_JPRB, 0.890723E+00_JPRB, 0.868712E+00_JPRB, 0.846685E+00_JPRB &
+  &, 0.824655E+00_JPRB, 0.802638E+00_JPRB, 0.780649E+00_JPRB &
+  &, 0.758703E+00_JPRB, 0.736816E+00_JPRB, 0.715004E+00_JPRB, 0.693283E+00_JPRB &
+  &, 0.671668E+00_JPRB, 0.650177E+00_JPRB, 0.628825E+00_JPRB &
+  &, 0.607629E+00_JPRB, 0.586607E+00_JPRB, 0.565773E+00_JPRB, 0.545147E+00_JPRB &
+  &, 0.524746E+00_JPRB, 0.504585E+00_JPRB, 0.484684E+00_JPRB &
+  &, 0.465059E+00_JPRB, 0.445728E+00_JPRB, 0.426705E+00_JPRB, 0.408010E+00_JPRB &
+  &, 0.389659E+00_JPRB, 0.371667E+00_JPRB, 0.354049E+00_JPRB &
+  &, 0.336823E+00_JPRB, 0.320002E+00_JPRB, 0.303602E+00_JPRB, 0.287633E+00_JPRB &
+  &, 0.272111E+00_JPRB, 0.257040E+00_JPRB, 0.242441E+00_JPRB &
+  &, 0.228310E+00_JPRB, 0.214663E+00_JPRB, 0.201508E+00_JPRB, 0.188850E+00_JPRB &
+  &, 0.176693E+00_JPRB, 0.165037E+00_JPRB, 0.153871E+00_JPRB &
+  &, 0.143215E+00_JPRB, 0.133052E+00_JPRB, 0.123397E+00_JPRB, 0.114217E+00_JPRB &
+  &, 0.105533E+00_JPRB, 0.973150E-01_JPRB, 0.895675E-01_JPRB &
+  &, 0.822785E-01_JPRB, 0.754327E-01_JPRB, 0.690243E-01_JPRB, 0.630307E-01_JPRB &
+  &, 0.574388E-01_JPRB, 0.522323E-01_JPRB, 0.474062E-01_JPRB &
+  &, 0.429217E-01_JPRB, 0.387982E-01_JPRB, 0.349898E-01_JPRB, 0.314943E-01_JPRB &
+  &, 0.282740E-01_JPRB, 0.253380E-01_JPRB, 0.226593E-01_JPRB &
+  &, 0.202072E-01_JPRB, 0.180025E-01_JPRB, 0.159910E-01_JPRB, 0.141706E-01_JPRB &
+  &, 0.125382E-01_JPRB, 0.110490E-01_JPRB, 0.973616E-02_JPRB &
+  &, 0.855069E-02_JPRB, 0.750320E-02_JPRB, 0.656069E-02_JPRB, 0.573173E-02_JPRB &
+  &, 0.497932E-02_JPRB, 0.433308E-02_JPRB, 0.375317E-02_JPRB &
+  &, 0.324478E-02_JPRB, 0.278843E-02_JPRB, 0.241342E-02_JPRB, 0.207375E-02_JPRB &
+  &, 0.177214E-02_JPRB, 0.151137E-02_JPRB, 0.129431E-02_JPRB &
+  &, 0.109604E-02_JPRB, 0.917993E-03_JPRB, 0.790523E-03_JPRB, 0.657849E-03_JPRB &
+  &, 0.549875E-03_JPRB, 0.468166E-03_JPRB, 0.383220E-03_JPRB &
+  &, 0.326650E-03_JPRB, 0.267873E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 195, :) = (/ &
+  &  0.913043E+00_JPRB, 0.891144E+00_JPRB, 0.869210E+00_JPRB, 0.847256E+00_JPRB &
+  &, 0.825296E+00_JPRB, 0.803347E+00_JPRB, 0.781422E+00_JPRB &
+  &, 0.759537E+00_JPRB, 0.737704E+00_JPRB, 0.715952E+00_JPRB, 0.694283E+00_JPRB &
+  &, 0.672717E+00_JPRB, 0.651271E+00_JPRB, 0.629961E+00_JPRB &
+  &, 0.608804E+00_JPRB, 0.587818E+00_JPRB, 0.567018E+00_JPRB, 0.546422E+00_JPRB &
+  &, 0.526047E+00_JPRB, 0.505908E+00_JPRB, 0.486026E+00_JPRB &
+  &, 0.466419E+00_JPRB, 0.447098E+00_JPRB, 0.428086E+00_JPRB, 0.409399E+00_JPRB &
+  &, 0.391053E+00_JPRB, 0.373060E+00_JPRB, 0.355442E+00_JPRB &
+  &, 0.338211E+00_JPRB, 0.321381E+00_JPRB, 0.304965E+00_JPRB, 0.288985E+00_JPRB &
+  &, 0.273445E+00_JPRB, 0.258354E+00_JPRB, 0.243733E+00_JPRB &
+  &, 0.229575E+00_JPRB, 0.215912E+00_JPRB, 0.202720E+00_JPRB, 0.190033E+00_JPRB &
+  &, 0.177844E+00_JPRB, 0.166154E+00_JPRB, 0.154951E+00_JPRB &
+  &, 0.144267E+00_JPRB, 0.134062E+00_JPRB, 0.124363E+00_JPRB, 0.115147E+00_JPRB &
+  &, 0.106425E+00_JPRB, 0.981664E-01_JPRB, 0.903884E-01_JPRB &
+  &, 0.830538E-01_JPRB, 0.761729E-01_JPRB, 0.697135E-01_JPRB, 0.636799E-01_JPRB &
+  &, 0.580458E-01_JPRB, 0.528093E-01_JPRB, 0.479513E-01_JPRB &
+  &, 0.434332E-01_JPRB, 0.392739E-01_JPRB, 0.354278E-01_JPRB, 0.318927E-01_JPRB &
+  &, 0.286475E-01_JPRB, 0.256852E-01_JPRB, 0.229788E-01_JPRB &
+  &, 0.205157E-01_JPRB, 0.182622E-01_JPRB, 0.162374E-01_JPRB, 0.144030E-01_JPRB &
+  &, 0.127361E-01_JPRB, 0.112511E-01_JPRB, 0.990136E-02_JPRB &
+  &, 0.869830E-02_JPRB, 0.763239E-02_JPRB, 0.669258E-02_JPRB, 0.584392E-02_JPRB &
+  &, 0.509382E-02_JPRB, 0.442655E-02_JPRB, 0.382470E-02_JPRB &
+  &, 0.331775E-02_JPRB, 0.286286E-02_JPRB, 0.246402E-02_JPRB, 0.212534E-02_JPRB &
+  &, 0.182474E-02_JPRB, 0.153818E-02_JPRB, 0.132164E-02_JPRB &
+  &, 0.112389E-02_JPRB, 0.946368E-03_JPRB, 0.819431E-03_JPRB, 0.687296E-03_JPRB &
+  &, 0.579868E-03_JPRB, 0.468166E-03_JPRB, 0.414322E-03_JPRB &
+  &, 0.326650E-03_JPRB, 0.267873E-03_JPRB, 0.239666E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 196, :) = (/ &
+  &  0.913386E+00_JPRB, 0.891566E+00_JPRB, 0.869707E+00_JPRB, 0.847826E+00_JPRB &
+  &, 0.825936E+00_JPRB, 0.804054E+00_JPRB, 0.782193E+00_JPRB &
+  &, 0.760370E+00_JPRB, 0.738599E+00_JPRB, 0.716897E+00_JPRB, 0.695280E+00_JPRB &
+  &, 0.673762E+00_JPRB, 0.652362E+00_JPRB, 0.631095E+00_JPRB &
+  &, 0.609978E+00_JPRB, 0.589028E+00_JPRB, 0.568260E+00_JPRB, 0.547693E+00_JPRB &
+  &, 0.527345E+00_JPRB, 0.507231E+00_JPRB, 0.487369E+00_JPRB &
+  &, 0.467775E+00_JPRB, 0.448471E+00_JPRB, 0.429468E+00_JPRB, 0.410788E+00_JPRB &
+  &, 0.392442E+00_JPRB, 0.374453E+00_JPRB, 0.356831E+00_JPRB &
+  &, 0.339595E+00_JPRB, 0.322755E+00_JPRB, 0.306333E+00_JPRB, 0.290336E+00_JPRB &
+  &, 0.274778E+00_JPRB, 0.259672E+00_JPRB, 0.245026E+00_JPRB &
+  &, 0.230850E+00_JPRB, 0.217152E+00_JPRB, 0.203943E+00_JPRB, 0.191216E+00_JPRB &
+  &, 0.178995E+00_JPRB, 0.167271E+00_JPRB, 0.156043E+00_JPRB &
+  &, 0.145308E+00_JPRB, 0.135072E+00_JPRB, 0.125340E+00_JPRB, 0.116089E+00_JPRB &
+  &, 0.107317E+00_JPRB, 0.990303E-01_JPRB, 0.911965E-01_JPRB &
+  &, 0.838290E-01_JPRB, 0.768997E-01_JPRB, 0.704164E-01_JPRB, 0.643433E-01_JPRB &
+  &, 0.586672E-01_JPRB, 0.534011E-01_JPRB, 0.484964E-01_JPRB &
+  &, 0.439446E-01_JPRB, 0.397497E-01_JPRB, 0.358821E-01_JPRB, 0.323076E-01_JPRB &
+  &, 0.290379E-01_JPRB, 0.260324E-01_JPRB, 0.232983E-01_JPRB &
+  &, 0.208060E-01_JPRB, 0.185404E-01_JPRB, 0.164838E-01_JPRB, 0.146161E-01_JPRB &
+  &, 0.129538E-01_JPRB, 0.114331E-01_JPRB, 0.100872E-01_JPRB &
+  &, 0.886701E-02_JPRB, 0.778311E-02_JPRB, 0.680250E-02_JPRB, 0.595611E-02_JPRB &
+  &, 0.518542E-02_JPRB, 0.449665E-02_JPRB, 0.392006E-02_JPRB &
+  &, 0.339071E-02_JPRB, 0.291247E-02_JPRB, 0.251462E-02_JPRB, 0.217694E-02_JPRB &
+  &, 0.185104E-02_JPRB, 0.159180E-02_JPRB, 0.134896E-02_JPRB &
+  &, 0.115174E-02_JPRB, 0.974743E-03_JPRB, 0.819431E-03_JPRB, 0.687296E-03_JPRB &
+  &, 0.579868E-03_JPRB, 0.498710E-03_JPRB, 0.414322E-03_JPRB &
+  &, 0.358315E-03_JPRB, 0.300108E-03_JPRB, 0.239666E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART29',0,ZHOOK_HANDLE)
+
+XCW( 197, :) = (/ &
+  &  0.913727E+00_JPRB, 0.891985E+00_JPRB, 0.870202E+00_JPRB, 0.848394E+00_JPRB &
+  &, 0.826574E+00_JPRB, 0.804759E+00_JPRB, 0.782962E+00_JPRB &
+  &, 0.761199E+00_JPRB, 0.739488E+00_JPRB, 0.717840E+00_JPRB, 0.696275E+00_JPRB &
+  &, 0.674807E+00_JPRB, 0.653452E+00_JPRB, 0.632227E+00_JPRB &
+  &, 0.611149E+00_JPRB, 0.590234E+00_JPRB, 0.569500E+00_JPRB, 0.548964E+00_JPRB &
+  &, 0.528640E+00_JPRB, 0.508548E+00_JPRB, 0.488708E+00_JPRB &
+  &, 0.469131E+00_JPRB, 0.449838E+00_JPRB, 0.430849E+00_JPRB, 0.412174E+00_JPRB &
+  &, 0.393831E+00_JPRB, 0.375843E+00_JPRB, 0.358220E+00_JPRB &
+  &, 0.340979E+00_JPRB, 0.324130E+00_JPRB, 0.307696E+00_JPRB, 0.291687E+00_JPRB &
+  &, 0.276112E+00_JPRB, 0.260986E+00_JPRB, 0.246319E+00_JPRB &
+  &, 0.232115E+00_JPRB, 0.218392E+00_JPRB, 0.205155E+00_JPRB, 0.192409E+00_JPRB &
+  &, 0.180146E+00_JPRB, 0.168388E+00_JPRB, 0.157123E+00_JPRB &
+  &, 0.146360E+00_JPRB, 0.136094E+00_JPRB, 0.126318E+00_JPRB, 0.117019E+00_JPRB &
+  &, 0.108221E+00_JPRB, 0.998816E-01_JPRB, 0.920174E-01_JPRB &
+  &, 0.846042E-01_JPRB, 0.776399E-01_JPRB, 0.711194E-01_JPRB, 0.650067E-01_JPRB &
+  &, 0.593030E-01_JPRB, 0.539780E-01_JPRB, 0.490416E-01_JPRB &
+  &, 0.444715E-01_JPRB, 0.402254E-01_JPRB, 0.363201E-01_JPRB, 0.327225E-01_JPRB &
+  &, 0.294284E-01_JPRB, 0.263970E-01_JPRB, 0.236356E-01_JPRB &
+  &, 0.211145E-01_JPRB, 0.188186E-01_JPRB, 0.167303E-01_JPRB, 0.148486E-01_JPRB &
+  &, 0.131517E-01_JPRB, 0.116353E-01_JPRB, 0.102524E-01_JPRB &
+  &, 0.901463E-02_JPRB, 0.791231E-02_JPRB, 0.693439E-02_JPRB, 0.606830E-02_JPRB &
+  &, 0.527702E-02_JPRB, 0.459013E-02_JPRB, 0.399159E-02_JPRB &
+  &, 0.346368E-02_JPRB, 0.298689E-02_JPRB, 0.256522E-02_JPRB, 0.220273E-02_JPRB &
+  &, 0.190364E-02_JPRB, 0.161861E-02_JPRB, 0.137629E-02_JPRB &
+  &, 0.117959E-02_JPRB, 0.100312E-02_JPRB, 0.848339E-03_JPRB, 0.716744E-03_JPRB &
+  &, 0.609861E-03_JPRB, 0.498710E-03_JPRB, 0.414322E-03_JPRB &
+  &, 0.358315E-03_JPRB, 0.300108E-03_JPRB, 0.239666E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 198, :) = (/ &
+  &  0.914067E+00_JPRB, 0.892403E+00_JPRB, 0.870696E+00_JPRB, 0.848961E+00_JPRB &
+  &, 0.827211E+00_JPRB, 0.805462E+00_JPRB, 0.783729E+00_JPRB &
+  &, 0.762028E+00_JPRB, 0.740373E+00_JPRB, 0.718782E+00_JPRB, 0.697268E+00_JPRB &
+  &, 0.675848E+00_JPRB, 0.654539E+00_JPRB, 0.633357E+00_JPRB &
+  &, 0.612318E+00_JPRB, 0.591440E+00_JPRB, 0.570738E+00_JPRB, 0.550231E+00_JPRB &
+  &, 0.529935E+00_JPRB, 0.509868E+00_JPRB, 0.490044E+00_JPRB &
+  &, 0.470487E+00_JPRB, 0.451208E+00_JPRB, 0.432227E+00_JPRB, 0.413559E+00_JPRB &
+  &, 0.395225E+00_JPRB, 0.377232E+00_JPRB, 0.359609E+00_JPRB &
+  &, 0.342359E+00_JPRB, 0.325508E+00_JPRB, 0.309064E+00_JPRB, 0.293038E+00_JPRB &
+  &, 0.277445E+00_JPRB, 0.262305E+00_JPRB, 0.247616E+00_JPRB &
+  &, 0.233389E+00_JPRB, 0.219641E+00_JPRB, 0.206377E+00_JPRB, 0.193592E+00_JPRB &
+  &, 0.181308E+00_JPRB, 0.169515E+00_JPRB, 0.158214E+00_JPRB &
+  &, 0.147412E+00_JPRB, 0.137104E+00_JPRB, 0.127295E+00_JPRB, 0.117961E+00_JPRB &
+  &, 0.109125E+00_JPRB, 0.100745E+00_JPRB, 0.928383E-01_JPRB &
+  &, 0.853926E-01_JPRB, 0.783936E-01_JPRB, 0.718224E-01_JPRB, 0.656701E-01_JPRB &
+  &, 0.599244E-01_JPRB, 0.545698E-01_JPRB, 0.496018E-01_JPRB &
+  &, 0.449829E-01_JPRB, 0.407170E-01_JPRB, 0.367744E-01_JPRB, 0.331540E-01_JPRB &
+  &, 0.298188E-01_JPRB, 0.267615E-01_JPRB, 0.239728E-01_JPRB &
+  &, 0.214230E-01_JPRB, 0.190969E-01_JPRB, 0.169957E-01_JPRB, 0.151004E-01_JPRB &
+  &, 0.133694E-01_JPRB, 0.118172E-01_JPRB, 0.104176E-01_JPRB &
+  &, 0.918333E-02_JPRB, 0.806303E-02_JPRB, 0.706628E-02_JPRB, 0.618049E-02_JPRB &
+  &, 0.539152E-02_JPRB, 0.468360E-02_JPRB, 0.406311E-02_JPRB &
+  &, 0.353664E-02_JPRB, 0.306132E-02_JPRB, 0.264112E-02_JPRB, 0.225433E-02_JPRB &
+  &, 0.195624E-02_JPRB, 0.167223E-02_JPRB, 0.143094E-02_JPRB &
+  &, 0.120743E-02_JPRB, 0.103149E-02_JPRB, 0.877247E-03_JPRB, 0.746192E-03_JPRB &
+  &, 0.609861E-03_JPRB, 0.529255E-03_JPRB, 0.445424E-03_JPRB &
+  &, 0.358315E-03_JPRB, 0.300108E-03_JPRB, 0.239666E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 199, :) = (/ &
+  &  0.914407E+00_JPRB, 0.892821E+00_JPRB, 0.871188E+00_JPRB, 0.849526E+00_JPRB &
+  &, 0.827846E+00_JPRB, 0.806163E+00_JPRB, 0.784495E+00_JPRB &
+  &, 0.762855E+00_JPRB, 0.741258E+00_JPRB, 0.719721E+00_JPRB, 0.698259E+00_JPRB &
+  &, 0.676888E+00_JPRB, 0.655624E+00_JPRB, 0.634485E+00_JPRB &
+  &, 0.613486E+00_JPRB, 0.592644E+00_JPRB, 0.571975E+00_JPRB, 0.551497E+00_JPRB &
+  &, 0.531229E+00_JPRB, 0.511184E+00_JPRB, 0.491383E+00_JPRB &
+  &, 0.471839E+00_JPRB, 0.452575E+00_JPRB, 0.433604E+00_JPRB, 0.414945E+00_JPRB &
+  &, 0.396610E+00_JPRB, 0.378626E+00_JPRB, 0.360998E+00_JPRB &
+  &, 0.343743E+00_JPRB, 0.326882E+00_JPRB, 0.310427E+00_JPRB, 0.294390E+00_JPRB &
+  &, 0.278783E+00_JPRB, 0.263619E+00_JPRB, 0.248909E+00_JPRB &
+  &, 0.234663E+00_JPRB, 0.220890E+00_JPRB, 0.207590E+00_JPRB, 0.194785E+00_JPRB &
+  &, 0.182469E+00_JPRB, 0.170643E+00_JPRB, 0.159305E+00_JPRB &
+  &, 0.148475E+00_JPRB, 0.138126E+00_JPRB, 0.128272E+00_JPRB, 0.118915E+00_JPRB &
+  &, 0.110029E+00_JPRB, 0.101609E+00_JPRB, 0.936721E-01_JPRB &
+  &, 0.861810E-01_JPRB, 0.791338E-01_JPRB, 0.725253E-01_JPRB, 0.663334E-01_JPRB &
+  &, 0.605603E-01_JPRB, 0.551615E-01_JPRB, 0.501621E-01_JPRB &
+  &, 0.455098E-01_JPRB, 0.412086E-01_JPRB, 0.372287E-01_JPRB, 0.335689E-01_JPRB &
+  &, 0.302092E-01_JPRB, 0.271261E-01_JPRB, 0.242923E-01_JPRB &
+  &, 0.217315E-01_JPRB, 0.193751E-01_JPRB, 0.172611E-01_JPRB, 0.153329E-01_JPRB &
+  &, 0.135871E-01_JPRB, 0.120194E-01_JPRB, 0.106035E-01_JPRB &
+  &, 0.933095E-02_JPRB, 0.821376E-02_JPRB, 0.719817E-02_JPRB, 0.629268E-02_JPRB &
+  &, 0.548312E-02_JPRB, 0.477707E-02_JPRB, 0.415848E-02_JPRB &
+  &, 0.360961E-02_JPRB, 0.311093E-02_JPRB, 0.269171E-02_JPRB, 0.230592E-02_JPRB &
+  &, 0.198254E-02_JPRB, 0.169904E-02_JPRB, 0.145826E-02_JPRB &
+  &, 0.123528E-02_JPRB, 0.105987E-02_JPRB, 0.906156E-03_JPRB, 0.746192E-03_JPRB &
+  &, 0.639854E-03_JPRB, 0.529255E-03_JPRB, 0.445424E-03_JPRB &
+  &, 0.389979E-03_JPRB, 0.300108E-03_JPRB, 0.272475E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 200, :) = (/ &
+  &  0.914744E+00_JPRB, 0.893236E+00_JPRB, 0.871680E+00_JPRB, 0.850089E+00_JPRB &
+  &, 0.828478E+00_JPRB, 0.806864E+00_JPRB, 0.785259E+00_JPRB &
+  &, 0.763678E+00_JPRB, 0.742140E+00_JPRB, 0.720658E+00_JPRB, 0.699248E+00_JPRB &
+  &, 0.677926E+00_JPRB, 0.656708E+00_JPRB, 0.635611E+00_JPRB &
+  &, 0.614652E+00_JPRB, 0.593845E+00_JPRB, 0.573209E+00_JPRB, 0.552763E+00_JPRB &
+  &, 0.532519E+00_JPRB, 0.512498E+00_JPRB, 0.492716E+00_JPRB &
+  &, 0.473192E+00_JPRB, 0.453942E+00_JPRB, 0.434979E+00_JPRB, 0.416327E+00_JPRB &
+  &, 0.398000E+00_JPRB, 0.380015E+00_JPRB, 0.362383E+00_JPRB &
+  &, 0.345128E+00_JPRB, 0.328261E+00_JPRB, 0.311795E+00_JPRB, 0.295741E+00_JPRB &
+  &, 0.280121E+00_JPRB, 0.264937E+00_JPRB, 0.250211E+00_JPRB &
+  &, 0.235937E+00_JPRB, 0.222140E+00_JPRB, 0.208812E+00_JPRB, 0.195978E+00_JPRB &
+  &, 0.183631E+00_JPRB, 0.171770E+00_JPRB, 0.160407E+00_JPRB &
+  &, 0.149527E+00_JPRB, 0.139148E+00_JPRB, 0.129261E+00_JPRB, 0.119857E+00_JPRB &
+  &, 0.110934E+00_JPRB, 0.102486E+00_JPRB, 0.944930E-01_JPRB &
+  &, 0.869694E-01_JPRB, 0.798875E-01_JPRB, 0.732421E-01_JPRB, 0.670109E-01_JPRB &
+  &, 0.611961E-01_JPRB, 0.557681E-01_JPRB, 0.507224E-01_JPRB &
+  &, 0.460367E-01_JPRB, 0.417002E-01_JPRB, 0.376830E-01_JPRB, 0.340005E-01_JPRB &
+  &, 0.305997E-01_JPRB, 0.274906E-01_JPRB, 0.246296E-01_JPRB &
+  &, 0.220400E-01_JPRB, 0.196719E-01_JPRB, 0.175265E-01_JPRB, 0.155653E-01_JPRB &
+  &, 0.138048E-01_JPRB, 0.122216E-01_JPRB, 0.107893E-01_JPRB &
+  &, 0.949965E-02_JPRB, 0.834295E-02_JPRB, 0.733007E-02_JPRB, 0.640488E-02_JPRB &
+  &, 0.559762E-02_JPRB, 0.487054E-02_JPRB, 0.425385E-02_JPRB &
+  &, 0.368257E-02_JPRB, 0.318535E-02_JPRB, 0.274231E-02_JPRB, 0.235752E-02_JPRB &
+  &, 0.203514E-02_JPRB, 0.175266E-02_JPRB, 0.148559E-02_JPRB &
+  &, 0.126313E-02_JPRB, 0.108824E-02_JPRB, 0.935064E-03_JPRB, 0.775639E-03_JPRB &
+  &, 0.669847E-03_JPRB, 0.559799E-03_JPRB, 0.476525E-03_JPRB &
+  &, 0.389979E-03_JPRB, 0.332342E-03_JPRB, 0.272475E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 201, :) = (/ &
+  &  0.915082E+00_JPRB, 0.893652E+00_JPRB, 0.872170E+00_JPRB, 0.850652E+00_JPRB &
+  &, 0.829110E+00_JPRB, 0.807562E+00_JPRB, 0.786020E+00_JPRB &
+  &, 0.764502E+00_JPRB, 0.743020E+00_JPRB, 0.721593E+00_JPRB, 0.700235E+00_JPRB &
+  &, 0.678962E+00_JPRB, 0.657790E+00_JPRB, 0.636734E+00_JPRB &
+  &, 0.615814E+00_JPRB, 0.595044E+00_JPRB, 0.574443E+00_JPRB, 0.554025E+00_JPRB &
+  &, 0.533809E+00_JPRB, 0.513811E+00_JPRB, 0.494048E+00_JPRB &
+  &, 0.474541E+00_JPRB, 0.455305E+00_JPRB, 0.436356E+00_JPRB, 0.417712E+00_JPRB &
+  &, 0.399389E+00_JPRB, 0.381405E+00_JPRB, 0.363772E+00_JPRB &
+  &, 0.346512E+00_JPRB, 0.329635E+00_JPRB, 0.313158E+00_JPRB, 0.297096E+00_JPRB &
+  &, 0.281459E+00_JPRB, 0.266260E+00_JPRB, 0.251508E+00_JPRB &
+  &, 0.237212E+00_JPRB, 0.223389E+00_JPRB, 0.210044E+00_JPRB, 0.197171E+00_JPRB &
+  &, 0.184792E+00_JPRB, 0.172898E+00_JPRB, 0.161498E+00_JPRB &
+  &, 0.150590E+00_JPRB, 0.140181E+00_JPRB, 0.130250E+00_JPRB, 0.120811E+00_JPRB &
+  &, 0.111850E+00_JPRB, 0.103350E+00_JPRB, 0.953268E-01_JPRB &
+  &, 0.877578E-01_JPRB, 0.806412E-01_JPRB, 0.739588E-01_JPRB, 0.676884E-01_JPRB &
+  &, 0.618320E-01_JPRB, 0.563746E-01_JPRB, 0.512827E-01_JPRB &
+  &, 0.465636E-01_JPRB, 0.421918E-01_JPRB, 0.381535E-01_JPRB, 0.344320E-01_JPRB &
+  &, 0.310071E-01_JPRB, 0.278552E-01_JPRB, 0.249846E-01_JPRB &
+  &, 0.223485E-01_JPRB, 0.199501E-01_JPRB, 0.177729E-01_JPRB, 0.158171E-01_JPRB &
+  &, 0.140225E-01_JPRB, 0.124238E-01_JPRB, 0.109752E-01_JPRB &
+  &, 0.966836E-02_JPRB, 0.849367E-02_JPRB, 0.746196E-02_JPRB, 0.653950E-02_JPRB &
+  &, 0.571212E-02_JPRB, 0.498738E-02_JPRB, 0.432537E-02_JPRB &
+  &, 0.375554E-02_JPRB, 0.325977E-02_JPRB, 0.281821E-02_JPRB, 0.243491E-02_JPRB &
+  &, 0.208774E-02_JPRB, 0.177947E-02_JPRB, 0.154024E-02_JPRB &
+  &, 0.131882E-02_JPRB, 0.111662E-02_JPRB, 0.935064E-03_JPRB, 0.805087E-03_JPRB &
+  &, 0.669847E-03_JPRB, 0.559799E-03_JPRB, 0.476525E-03_JPRB &
+  &, 0.389979E-03_JPRB, 0.332342E-03_JPRB, 0.272475E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 202, :) = (/ &
+  &  0.915418E+00_JPRB, 0.894066E+00_JPRB, 0.872659E+00_JPRB, 0.851212E+00_JPRB &
+  &, 0.829740E+00_JPRB, 0.808258E+00_JPRB, 0.786780E+00_JPRB &
+  &, 0.765322E+00_JPRB, 0.743899E+00_JPRB, 0.722526E+00_JPRB, 0.701220E+00_JPRB &
+  &, 0.679995E+00_JPRB, 0.658868E+00_JPRB, 0.637856E+00_JPRB &
+  &, 0.616975E+00_JPRB, 0.596242E+00_JPRB, 0.575674E+00_JPRB, 0.555285E+00_JPRB &
+  &, 0.535096E+00_JPRB, 0.515121E+00_JPRB, 0.495381E+00_JPRB &
+  &, 0.475891E+00_JPRB, 0.456669E+00_JPRB, 0.437731E+00_JPRB, 0.419094E+00_JPRB &
+  &, 0.400775E+00_JPRB, 0.382791E+00_JPRB, 0.365161E+00_JPRB &
+  &, 0.347896E+00_JPRB, 0.331013E+00_JPRB, 0.314526E+00_JPRB, 0.298448E+00_JPRB &
+  &, 0.282796E+00_JPRB, 0.267578E+00_JPRB, 0.252805E+00_JPRB &
+  &, 0.238486E+00_JPRB, 0.224638E+00_JPRB, 0.211267E+00_JPRB, 0.198364E+00_JPRB &
+  &, 0.185954E+00_JPRB, 0.174036E+00_JPRB, 0.162600E+00_JPRB &
+  &, 0.151654E+00_JPRB, 0.141202E+00_JPRB, 0.131239E+00_JPRB, 0.121765E+00_JPRB &
+  &, 0.112754E+00_JPRB, 0.104226E+00_JPRB, 0.961733E-01_JPRB &
+  &, 0.885593E-01_JPRB, 0.813949E-01_JPRB, 0.746756E-01_JPRB, 0.683659E-01_JPRB &
+  &, 0.624678E-01_JPRB, 0.569664E-01_JPRB, 0.518581E-01_JPRB &
+  &, 0.470905E-01_JPRB, 0.426834E-01_JPRB, 0.386078E-01_JPRB, 0.348635E-01_JPRB &
+  &, 0.313975E-01_JPRB, 0.282197E-01_JPRB, 0.253219E-01_JPRB &
+  &, 0.226751E-01_JPRB, 0.202469E-01_JPRB, 0.180573E-01_JPRB, 0.160496E-01_JPRB &
+  &, 0.142402E-01_JPRB, 0.126260E-01_JPRB, 0.111610E-01_JPRB &
+  &, 0.983706E-02_JPRB, 0.864440E-02_JPRB, 0.759385E-02_JPRB, 0.665170E-02_JPRB &
+  &, 0.582662E-02_JPRB, 0.508085E-02_JPRB, 0.442074E-02_JPRB &
+  &, 0.382850E-02_JPRB, 0.333420E-02_JPRB, 0.286881E-02_JPRB, 0.248650E-02_JPRB &
+  &, 0.214034E-02_JPRB, 0.183309E-02_JPRB, 0.156757E-02_JPRB &
+  &, 0.134667E-02_JPRB, 0.114499E-02_JPRB, 0.963972E-03_JPRB, 0.834535E-03_JPRB &
+  &, 0.699840E-03_JPRB, 0.590343E-03_JPRB, 0.476525E-03_JPRB &
+  &, 0.421644E-03_JPRB, 0.332342E-03_JPRB, 0.272475E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 203, :) = (/ &
+  &  0.915755E+00_JPRB, 0.894479E+00_JPRB, 0.873146E+00_JPRB, 0.851772E+00_JPRB &
+  &, 0.830369E+00_JPRB, 0.808953E+00_JPRB, 0.787538E+00_JPRB &
+  &, 0.766141E+00_JPRB, 0.744776E+00_JPRB, 0.723457E+00_JPRB, 0.702203E+00_JPRB &
+  &, 0.681026E+00_JPRB, 0.659945E+00_JPRB, 0.638977E+00_JPRB &
+  &, 0.618135E+00_JPRB, 0.597437E+00_JPRB, 0.576902E+00_JPRB, 0.556545E+00_JPRB &
+  &, 0.536382E+00_JPRB, 0.516431E+00_JPRB, 0.496711E+00_JPRB &
+  &, 0.477240E+00_JPRB, 0.458032E+00_JPRB, 0.439105E+00_JPRB, 0.420476E+00_JPRB &
+  &, 0.402161E+00_JPRB, 0.384180E+00_JPRB, 0.366547E+00_JPRB &
+  &, 0.349280E+00_JPRB, 0.332388E+00_JPRB, 0.315893E+00_JPRB, 0.299803E+00_JPRB &
+  &, 0.284134E+00_JPRB, 0.268901E+00_JPRB, 0.254107E+00_JPRB &
+  &, 0.239770E+00_JPRB, 0.225897E+00_JPRB, 0.212489E+00_JPRB, 0.199567E+00_JPRB &
+  &, 0.187125E+00_JPRB, 0.175164E+00_JPRB, 0.163702E+00_JPRB &
+  &, 0.152728E+00_JPRB, 0.142235E+00_JPRB, 0.132240E+00_JPRB, 0.122719E+00_JPRB &
+  &, 0.113683E+00_JPRB, 0.105115E+00_JPRB, 0.970071E-01_JPRB &
+  &, 0.893609E-01_JPRB, 0.821620E-01_JPRB, 0.753923E-01_JPRB, 0.690575E-01_JPRB &
+  &, 0.631181E-01_JPRB, 0.575877E-01_JPRB, 0.524184E-01_JPRB &
+  &, 0.476329E-01_JPRB, 0.431908E-01_JPRB, 0.390783E-01_JPRB, 0.352950E-01_JPRB &
+  &, 0.318049E-01_JPRB, 0.286017E-01_JPRB, 0.256769E-01_JPRB &
+  &, 0.229836E-01_JPRB, 0.205437E-01_JPRB, 0.183227E-01_JPRB, 0.163014E-01_JPRB &
+  &, 0.144777E-01_JPRB, 0.128281E-01_JPRB, 0.113469E-01_JPRB &
+  &, 0.100058E-01_JPRB, 0.881666E-02_JPRB, 0.772575E-02_JPRB, 0.678632E-02_JPRB &
+  &, 0.591822E-02_JPRB, 0.517433E-02_JPRB, 0.451611E-02_JPRB &
+  &, 0.392579E-02_JPRB, 0.338381E-02_JPRB, 0.294471E-02_JPRB, 0.253809E-02_JPRB &
+  &, 0.219294E-02_JPRB, 0.185990E-02_JPRB, 0.159489E-02_JPRB &
+  &, 0.137452E-02_JPRB, 0.117337E-02_JPRB, 0.992880E-03_JPRB, 0.834535E-03_JPRB &
+  &, 0.699840E-03_JPRB, 0.590343E-03_JPRB, 0.507627E-03_JPRB &
+  &, 0.421644E-03_JPRB, 0.364576E-03_JPRB, 0.305284E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.148283E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART30',0,ZHOOK_HANDLE)
+
+XCW( 204, :) = (/ &
+  &  0.916088E+00_JPRB, 0.894890E+00_JPRB, 0.873632E+00_JPRB, 0.852330E+00_JPRB &
+  &, 0.830996E+00_JPRB, 0.809646E+00_JPRB, 0.788294E+00_JPRB &
+  &, 0.766958E+00_JPRB, 0.745650E+00_JPRB, 0.724387E+00_JPRB, 0.703184E+00_JPRB &
+  &, 0.682057E+00_JPRB, 0.661021E+00_JPRB, 0.640094E+00_JPRB &
+  &, 0.619292E+00_JPRB, 0.598631E+00_JPRB, 0.578129E+00_JPRB, 0.557802E+00_JPRB &
+  &, 0.537666E+00_JPRB, 0.517742E+00_JPRB, 0.498040E+00_JPRB &
+  &, 0.478586E+00_JPRB, 0.459392E+00_JPRB, 0.440476E+00_JPRB, 0.421854E+00_JPRB &
+  &, 0.403547E+00_JPRB, 0.385570E+00_JPRB, 0.367936E+00_JPRB &
+  &, 0.350660E+00_JPRB, 0.333766E+00_JPRB, 0.317257E+00_JPRB, 0.301159E+00_JPRB &
+  &, 0.285476E+00_JPRB, 0.270224E+00_JPRB, 0.255409E+00_JPRB &
+  &, 0.241053E+00_JPRB, 0.227146E+00_JPRB, 0.213721E+00_JPRB, 0.200770E+00_JPRB &
+  &, 0.188297E+00_JPRB, 0.176302E+00_JPRB, 0.164804E+00_JPRB &
+  &, 0.153791E+00_JPRB, 0.143268E+00_JPRB, 0.133229E+00_JPRB, 0.123673E+00_JPRB &
+  &, 0.114599E+00_JPRB, 0.105991E+00_JPRB, 0.978537E-01_JPRB &
+  &, 0.901624E-01_JPRB, 0.829292E-01_JPRB, 0.761228E-01_JPRB, 0.697350E-01_JPRB &
+  &, 0.637684E-01_JPRB, 0.581943E-01_JPRB, 0.529938E-01_JPRB &
+  &, 0.481753E-01_JPRB, 0.436983E-01_JPRB, 0.395488E-01_JPRB, 0.357265E-01_JPRB &
+  &, 0.322123E-01_JPRB, 0.289836E-01_JPRB, 0.260141E-01_JPRB &
+  &, 0.233103E-01_JPRB, 0.208405E-01_JPRB, 0.185881E-01_JPRB, 0.165533E-01_JPRB &
+  &, 0.146955E-01_JPRB, 0.130303E-01_JPRB, 0.115327E-01_JPRB &
+  &, 0.101745E-01_JPRB, 0.896738E-02_JPRB, 0.787962E-02_JPRB, 0.689851E-02_JPRB &
+  &, 0.603272E-02_JPRB, 0.526780E-02_JPRB, 0.458763E-02_JPRB &
+  &, 0.399875E-02_JPRB, 0.345823E-02_JPRB, 0.299530E-02_JPRB, 0.258969E-02_JPRB &
+  &, 0.221925E-02_JPRB, 0.191352E-02_JPRB, 0.164954E-02_JPRB &
+  &, 0.140236E-02_JPRB, 0.120174E-02_JPRB, 0.102179E-02_JPRB, 0.863982E-03_JPRB &
+  &, 0.729833E-03_JPRB, 0.620888E-03_JPRB, 0.507627E-03_JPRB &
+  &, 0.421644E-03_JPRB, 0.364576E-03_JPRB, 0.305284E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 205, :) = (/ &
+  &  0.916422E+00_JPRB, 0.895301E+00_JPRB, 0.874117E+00_JPRB, 0.852886E+00_JPRB &
+  &, 0.831621E+00_JPRB, 0.810338E+00_JPRB, 0.789050E+00_JPRB &
+  &, 0.767773E+00_JPRB, 0.746522E+00_JPRB, 0.725314E+00_JPRB, 0.704162E+00_JPRB &
+  &, 0.683084E+00_JPRB, 0.662094E+00_JPRB, 0.641210E+00_JPRB &
+  &, 0.620449E+00_JPRB, 0.599823E+00_JPRB, 0.579354E+00_JPRB, 0.559058E+00_JPRB &
+  &, 0.538950E+00_JPRB, 0.519045E+00_JPRB, 0.499369E+00_JPRB &
+  &, 0.479933E+00_JPRB, 0.460752E+00_JPRB, 0.441847E+00_JPRB, 0.423236E+00_JPRB &
+  &, 0.404933E+00_JPRB, 0.386955E+00_JPRB, 0.369321E+00_JPRB &
+  &, 0.352044E+00_JPRB, 0.335141E+00_JPRB, 0.318624E+00_JPRB, 0.302514E+00_JPRB &
+  &, 0.286814E+00_JPRB, 0.271547E+00_JPRB, 0.256715E+00_JPRB &
+  &, 0.242327E+00_JPRB, 0.228405E+00_JPRB, 0.214953E+00_JPRB, 0.201974E+00_JPRB &
+  &, 0.189469E+00_JPRB, 0.177450E+00_JPRB, 0.165917E+00_JPRB &
+  &, 0.154865E+00_JPRB, 0.144301E+00_JPRB, 0.134229E+00_JPRB, 0.124639E+00_JPRB &
+  &, 0.115528E+00_JPRB, 0.106880E+00_JPRB, 0.987002E-01_JPRB &
+  &, 0.909771E-01_JPRB, 0.836963E-01_JPRB, 0.768534E-01_JPRB, 0.704266E-01_JPRB &
+  &, 0.644187E-01_JPRB, 0.588156E-01_JPRB, 0.535843E-01_JPRB &
+  &, 0.487177E-01_JPRB, 0.442057E-01_JPRB, 0.400355E-01_JPRB, 0.361747E-01_JPRB &
+  &, 0.326197E-01_JPRB, 0.293655E-01_JPRB, 0.263691E-01_JPRB &
+  &, 0.236369E-01_JPRB, 0.211373E-01_JPRB, 0.188725E-01_JPRB, 0.168051E-01_JPRB &
+  &, 0.149330E-01_JPRB, 0.132325E-01_JPRB, 0.117186E-01_JPRB &
+  &, 0.103432E-01_JPRB, 0.911811E-02_JPRB, 0.801151E-02_JPRB, 0.703314E-02_JPRB &
+  &, 0.614722E-02_JPRB, 0.538464E-02_JPRB, 0.468300E-02_JPRB &
+  &, 0.407172E-02_JPRB, 0.353266E-02_JPRB, 0.307120E-02_JPRB, 0.264128E-02_JPRB &
+  &, 0.227185E-02_JPRB, 0.196714E-02_JPRB, 0.167687E-02_JPRB &
+  &, 0.143021E-02_JPRB, 0.123012E-02_JPRB, 0.105070E-02_JPRB, 0.893430E-03_JPRB &
+  &, 0.759826E-03_JPRB, 0.620888E-03_JPRB, 0.538729E-03_JPRB &
+  &, 0.453309E-03_JPRB, 0.364576E-03_JPRB, 0.305284E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 206, :) = (/ &
+  &  0.916754E+00_JPRB, 0.895710E+00_JPRB, 0.874600E+00_JPRB, 0.853441E+00_JPRB &
+  &, 0.832245E+00_JPRB, 0.811027E+00_JPRB, 0.789803E+00_JPRB &
+  &, 0.768587E+00_JPRB, 0.747393E+00_JPRB, 0.726239E+00_JPRB, 0.705140E+00_JPRB &
+  &, 0.684110E+00_JPRB, 0.663166E+00_JPRB, 0.642325E+00_JPRB &
+  &, 0.621601E+00_JPRB, 0.601014E+00_JPRB, 0.580578E+00_JPRB, 0.560311E+00_JPRB &
+  &, 0.540231E+00_JPRB, 0.520352E+00_JPRB, 0.500695E+00_JPRB &
+  &, 0.481275E+00_JPRB, 0.462112E+00_JPRB, 0.443218E+00_JPRB, 0.424615E+00_JPRB &
+  &, 0.406319E+00_JPRB, 0.388341E+00_JPRB, 0.370706E+00_JPRB &
+  &, 0.353429E+00_JPRB, 0.336519E+00_JPRB, 0.319992E+00_JPRB, 0.303870E+00_JPRB &
+  &, 0.288156E+00_JPRB, 0.272869E+00_JPRB, 0.258017E+00_JPRB &
+  &, 0.243611E+00_JPRB, 0.229664E+00_JPRB, 0.216185E+00_JPRB, 0.203177E+00_JPRB &
+  &, 0.190641E+00_JPRB, 0.178589E+00_JPRB, 0.167019E+00_JPRB &
+  &, 0.155939E+00_JPRB, 0.145346E+00_JPRB, 0.135230E+00_JPRB, 0.125604E+00_JPRB &
+  &, 0.116444E+00_JPRB, 0.107769E+00_JPRB, 0.995468E-01_JPRB &
+  &, 0.917786E-01_JPRB, 0.844635E-01_JPRB, 0.775839E-01_JPRB, 0.711323E-01_JPRB &
+  &, 0.650835E-01_JPRB, 0.594222E-01_JPRB, 0.541598E-01_JPRB &
+  &, 0.492601E-01_JPRB, 0.447132E-01_JPRB, 0.405060E-01_JPRB, 0.366228E-01_JPRB &
+  &, 0.330441E-01_JPRB, 0.297474E-01_JPRB, 0.267241E-01_JPRB &
+  &, 0.239635E-01_JPRB, 0.214340E-01_JPRB, 0.191379E-01_JPRB, 0.170569E-01_JPRB &
+  &, 0.151705E-01_JPRB, 0.134549E-01_JPRB, 0.119044E-01_JPRB &
+  &, 0.105330E-01_JPRB, 0.926883E-02_JPRB, 0.816539E-02_JPRB, 0.716777E-02_JPRB &
+  &, 0.626173E-02_JPRB, 0.547811E-02_JPRB, 0.477837E-02_JPRB &
+  &, 0.416900E-02_JPRB, 0.360708E-02_JPRB, 0.312180E-02_JPRB, 0.269288E-02_JPRB &
+  &, 0.232445E-02_JPRB, 0.199395E-02_JPRB, 0.173152E-02_JPRB &
+  &, 0.148591E-02_JPRB, 0.125849E-02_JPRB, 0.107960E-02_JPRB, 0.922878E-03_JPRB &
+  &, 0.759826E-03_JPRB, 0.651432E-03_JPRB, 0.538729E-03_JPRB &
+  &, 0.453309E-03_JPRB, 0.396810E-03_JPRB, 0.338094E-03_JPRB, 0.277124E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 207, :) = (/ &
+  &  0.917086E+00_JPRB, 0.896119E+00_JPRB, 0.875083E+00_JPRB, 0.853995E+00_JPRB &
+  &, 0.832867E+00_JPRB, 0.811716E+00_JPRB, 0.790554E+00_JPRB &
+  &, 0.769398E+00_JPRB, 0.748263E+00_JPRB, 0.727163E+00_JPRB, 0.706115E+00_JPRB &
+  &, 0.685134E+00_JPRB, 0.664235E+00_JPRB, 0.643437E+00_JPRB &
+  &, 0.622754E+00_JPRB, 0.602202E+00_JPRB, 0.581800E+00_JPRB, 0.561564E+00_JPRB &
+  &, 0.541511E+00_JPRB, 0.521656E+00_JPRB, 0.502018E+00_JPRB &
+  &, 0.482618E+00_JPRB, 0.463469E+00_JPRB, 0.444588E+00_JPRB, 0.425993E+00_JPRB &
+  &, 0.407701E+00_JPRB, 0.389731E+00_JPRB, 0.372095E+00_JPRB &
+  &, 0.354809E+00_JPRB, 0.337893E+00_JPRB, 0.321359E+00_JPRB, 0.305225E+00_JPRB &
+  &, 0.289498E+00_JPRB, 0.274192E+00_JPRB, 0.259323E+00_JPRB &
+  &, 0.244895E+00_JPRB, 0.230923E+00_JPRB, 0.217417E+00_JPRB, 0.204380E+00_JPRB &
+  &, 0.191823E+00_JPRB, 0.179737E+00_JPRB, 0.168131E+00_JPRB &
+  &, 0.157025E+00_JPRB, 0.146390E+00_JPRB, 0.136242E+00_JPRB, 0.126570E+00_JPRB &
+  &, 0.117385E+00_JPRB, 0.108658E+00_JPRB, 0.100406E+00_JPRB &
+  &, 0.925933E-01_JPRB, 0.852441E-01_JPRB, 0.783282E-01_JPRB, 0.718239E-01_JPRB &
+  &, 0.657338E-01_JPRB, 0.600583E-01_JPRB, 0.547503E-01_JPRB &
+  &, 0.498180E-01_JPRB, 0.452365E-01_JPRB, 0.409928E-01_JPRB, 0.370709E-01_JPRB &
+  &, 0.334515E-01_JPRB, 0.301293E-01_JPRB, 0.270791E-01_JPRB &
+  &, 0.242902E-01_JPRB, 0.217494E-01_JPRB, 0.194222E-01_JPRB, 0.173088E-01_JPRB &
+  &, 0.154080E-01_JPRB, 0.136773E-01_JPRB, 0.121109E-01_JPRB &
+  &, 0.107017E-01_JPRB, 0.944109E-02_JPRB, 0.829728E-02_JPRB, 0.730240E-02_JPRB &
+  &, 0.639913E-02_JPRB, 0.559495E-02_JPRB, 0.487374E-02_JPRB &
+  &, 0.424197E-02_JPRB, 0.368150E-02_JPRB, 0.319770E-02_JPRB, 0.277027E-02_JPRB &
+  &, 0.237705E-02_JPRB, 0.204757E-02_JPRB, 0.175885E-02_JPRB &
+  &, 0.151375E-02_JPRB, 0.128687E-02_JPRB, 0.110851E-02_JPRB, 0.922878E-03_JPRB &
+  &, 0.789819E-03_JPRB, 0.681977E-03_JPRB, 0.569830E-03_JPRB &
+  &, 0.484974E-03_JPRB, 0.396810E-03_JPRB, 0.338094E-03_JPRB, 0.277124E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 208, :) = (/ &
+  &  0.917419E+00_JPRB, 0.896527E+00_JPRB, 0.875564E+00_JPRB, 0.854548E+00_JPRB &
+  &, 0.833488E+00_JPRB, 0.812402E+00_JPRB, 0.791304E+00_JPRB &
+  &, 0.770208E+00_JPRB, 0.749130E+00_JPRB, 0.728085E+00_JPRB, 0.707088E+00_JPRB &
+  &, 0.686155E+00_JPRB, 0.665302E+00_JPRB, 0.644547E+00_JPRB &
+  &, 0.623903E+00_JPRB, 0.603388E+00_JPRB, 0.583020E+00_JPRB, 0.562814E+00_JPRB &
+  &, 0.542788E+00_JPRB, 0.522957E+00_JPRB, 0.503345E+00_JPRB &
+  &, 0.483961E+00_JPRB, 0.464825E+00_JPRB, 0.445956E+00_JPRB, 0.427371E+00_JPRB &
+  &, 0.409083E+00_JPRB, 0.391117E+00_JPRB, 0.373481E+00_JPRB &
+  &, 0.356193E+00_JPRB, 0.339272E+00_JPRB, 0.322731E+00_JPRB, 0.306581E+00_JPRB &
+  &, 0.290840E+00_JPRB, 0.275519E+00_JPRB, 0.260630E+00_JPRB &
+  &, 0.246187E+00_JPRB, 0.232191E+00_JPRB, 0.218659E+00_JPRB, 0.205593E+00_JPRB &
+  &, 0.192995E+00_JPRB, 0.180886E+00_JPRB, 0.169255E+00_JPRB &
+  &, 0.158099E+00_JPRB, 0.147434E+00_JPRB, 0.137254E+00_JPRB, 0.127548E+00_JPRB &
+  &, 0.118314E+00_JPRB, 0.109560E+00_JPRB, 0.101253E+00_JPRB &
+  &, 0.934211E-01_JPRB, 0.860247E-01_JPRB, 0.790587E-01_JPRB, 0.725296E-01_JPRB &
+  &, 0.663985E-01_JPRB, 0.606796E-01_JPRB, 0.553409E-01_JPRB &
+  &, 0.503759E-01_JPRB, 0.457598E-01_JPRB, 0.414795E-01_JPRB, 0.375190E-01_JPRB &
+  &, 0.338759E-01_JPRB, 0.305286E-01_JPRB, 0.274519E-01_JPRB &
+  &, 0.246350E-01_JPRB, 0.220647E-01_JPRB, 0.197066E-01_JPRB, 0.175800E-01_JPRB &
+  &, 0.156455E-01_JPRB, 0.138795E-01_JPRB, 0.122968E-01_JPRB &
+  &, 0.108704E-01_JPRB, 0.959182E-02_JPRB, 0.845116E-02_JPRB, 0.741459E-02_JPRB &
+  &, 0.651363E-02_JPRB, 0.568842E-02_JPRB, 0.496910E-02_JPRB &
+  &, 0.433926E-02_JPRB, 0.375592E-02_JPRB, 0.327359E-02_JPRB, 0.282186E-02_JPRB &
+  &, 0.242965E-02_JPRB, 0.210119E-02_JPRB, 0.181350E-02_JPRB &
+  &, 0.154160E-02_JPRB, 0.131524E-02_JPRB, 0.113742E-02_JPRB, 0.952325E-03_JPRB &
+  &, 0.819812E-03_JPRB, 0.681977E-03_JPRB, 0.569830E-03_JPRB &
+  &, 0.484974E-03_JPRB, 0.396810E-03_JPRB, 0.338094E-03_JPRB, 0.277124E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 209, :) = (/ &
+  &  0.917749E+00_JPRB, 0.896933E+00_JPRB, 0.876044E+00_JPRB, 0.855098E+00_JPRB &
+  &, 0.834107E+00_JPRB, 0.813088E+00_JPRB, 0.792052E+00_JPRB &
+  &, 0.771016E+00_JPRB, 0.749996E+00_JPRB, 0.729005E+00_JPRB, 0.708060E+00_JPRB &
+  &, 0.687176E+00_JPRB, 0.666369E+00_JPRB, 0.645655E+00_JPRB &
+  &, 0.625051E+00_JPRB, 0.604573E+00_JPRB, 0.584239E+00_JPRB, 0.564063E+00_JPRB &
+  &, 0.544065E+00_JPRB, 0.524258E+00_JPRB, 0.504664E+00_JPRB &
+  &, 0.485300E+00_JPRB, 0.466182E+00_JPRB, 0.447323E+00_JPRB, 0.428746E+00_JPRB &
+  &, 0.410469E+00_JPRB, 0.392502E+00_JPRB, 0.374866E+00_JPRB &
+  &, 0.357577E+00_JPRB, 0.340650E+00_JPRB, 0.324099E+00_JPRB, 0.307940E+00_JPRB &
+  &, 0.292178E+00_JPRB, 0.276847E+00_JPRB, 0.261941E+00_JPRB &
+  &, 0.247471E+00_JPRB, 0.233450E+00_JPRB, 0.219891E+00_JPRB, 0.206796E+00_JPRB &
+  &, 0.194177E+00_JPRB, 0.182034E+00_JPRB, 0.170368E+00_JPRB &
+  &, 0.159184E+00_JPRB, 0.148479E+00_JPRB, 0.138267E+00_JPRB, 0.128514E+00_JPRB &
+  &, 0.119255E+00_JPRB, 0.110448E+00_JPRB, 0.102125E+00_JPRB &
+  &, 0.942358E-01_JPRB, 0.868053E-01_JPRB, 0.798030E-01_JPRB, 0.732353E-01_JPRB &
+  &, 0.670777E-01_JPRB, 0.613158E-01_JPRB, 0.559314E-01_JPRB &
+  &, 0.509338E-01_JPRB, 0.462831E-01_JPRB, 0.419662E-01_JPRB, 0.379837E-01_JPRB &
+  &, 0.343003E-01_JPRB, 0.309279E-01_JPRB, 0.278069E-01_JPRB &
+  &, 0.249616E-01_JPRB, 0.223615E-01_JPRB, 0.199909E-01_JPRB, 0.178318E-01_JPRB &
+  &, 0.158830E-01_JPRB, 0.141019E-01_JPRB, 0.125033E-01_JPRB &
+  &, 0.110602E-01_JPRB, 0.976407E-02_JPRB, 0.860503E-02_JPRB, 0.754922E-02_JPRB &
+  &, 0.662813E-02_JPRB, 0.580526E-02_JPRB, 0.506447E-02_JPRB &
+  &, 0.441222E-02_JPRB, 0.383035E-02_JPRB, 0.332419E-02_JPRB, 0.287345E-02_JPRB &
+  &, 0.248225E-02_JPRB, 0.215481E-02_JPRB, 0.184082E-02_JPRB &
+  &, 0.156945E-02_JPRB, 0.134362E-02_JPRB, 0.116633E-02_JPRB, 0.981773E-03_JPRB &
+  &, 0.849805E-03_JPRB, 0.712521E-03_JPRB, 0.600932E-03_JPRB &
+  &, 0.516639E-03_JPRB, 0.429044E-03_JPRB, 0.338094E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.217424E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 210, :) = (/ &
+  &  0.918076E+00_JPRB, 0.897338E+00_JPRB, 0.876523E+00_JPRB, 0.855648E+00_JPRB &
+  &, 0.834726E+00_JPRB, 0.813771E+00_JPRB, 0.792799E+00_JPRB &
+  &, 0.771823E+00_JPRB, 0.750859E+00_JPRB, 0.729923E+00_JPRB, 0.709029E+00_JPRB &
+  &, 0.688193E+00_JPRB, 0.667432E+00_JPRB, 0.646762E+00_JPRB &
+  &, 0.626198E+00_JPRB, 0.605757E+00_JPRB, 0.585455E+00_JPRB, 0.565311E+00_JPRB &
+  &, 0.545339E+00_JPRB, 0.525559E+00_JPRB, 0.505987E+00_JPRB &
+  &, 0.486640E+00_JPRB, 0.467535E+00_JPRB, 0.448691E+00_JPRB, 0.430124E+00_JPRB &
+  &, 0.411851E+00_JPRB, 0.393888E+00_JPRB, 0.376251E+00_JPRB &
+  &, 0.358957E+00_JPRB, 0.342024E+00_JPRB, 0.325466E+00_JPRB, 0.309296E+00_JPRB &
+  &, 0.293529E+00_JPRB, 0.278174E+00_JPRB, 0.263247E+00_JPRB &
+  &, 0.248755E+00_JPRB, 0.234719E+00_JPRB, 0.221133E+00_JPRB, 0.208009E+00_JPRB &
+  &, 0.195359E+00_JPRB, 0.183183E+00_JPRB, 0.171491E+00_JPRB &
+  &, 0.160270E+00_JPRB, 0.149535E+00_JPRB, 0.139279E+00_JPRB, 0.129492E+00_JPRB &
+  &, 0.120196E+00_JPRB, 0.111350E+00_JPRB, 0.102984E+00_JPRB &
+  &, 0.950636E-01_JPRB, 0.875859E-01_JPRB, 0.805611E-01_JPRB, 0.739411E-01_JPRB &
+  &, 0.677425E-01_JPRB, 0.619371E-01_JPRB, 0.565371E-01_JPRB &
+  &, 0.514917E-01_JPRB, 0.468064E-01_JPRB, 0.424530E-01_JPRB, 0.384484E-01_JPRB &
+  &, 0.347417E-01_JPRB, 0.313272E-01_JPRB, 0.281797E-01_JPRB &
+  &, 0.253064E-01_JPRB, 0.226768E-01_JPRB, 0.202753E-01_JPRB, 0.181030E-01_JPRB &
+  &, 0.161205E-01_JPRB, 0.143243E-01_JPRB, 0.127098E-01_JPRB &
+  &, 0.112500E-01_JPRB, 0.993633E-02_JPRB, 0.875891E-02_JPRB, 0.770629E-02_JPRB &
+  &, 0.674263E-02_JPRB, 0.592210E-02_JPRB, 0.515984E-02_JPRB &
+  &, 0.450951E-02_JPRB, 0.392958E-02_JPRB, 0.340009E-02_JPRB, 0.295084E-02_JPRB &
+  &, 0.253485E-02_JPRB, 0.218162E-02_JPRB, 0.189548E-02_JPRB &
+  &, 0.162514E-02_JPRB, 0.140036E-02_JPRB, 0.119524E-02_JPRB, 0.101122E-02_JPRB &
+  &, 0.849805E-03_JPRB, 0.712521E-03_JPRB, 0.600932E-03_JPRB &
+  &, 0.516639E-03_JPRB, 0.429044E-03_JPRB, 0.370903E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART31',0,ZHOOK_HANDLE)
+
+XCW( 211, :) = (/ &
+  &  0.918405E+00_JPRB, 0.897743E+00_JPRB, 0.877001E+00_JPRB, 0.856197E+00_JPRB &
+  &, 0.835343E+00_JPRB, 0.814453E+00_JPRB, 0.793543E+00_JPRB &
+  &, 0.772628E+00_JPRB, 0.751721E+00_JPRB, 0.730839E+00_JPRB, 0.709997E+00_JPRB &
+  &, 0.689210E+00_JPRB, 0.668495E+00_JPRB, 0.647867E+00_JPRB &
+  &, 0.627342E+00_JPRB, 0.606939E+00_JPRB, 0.586671E+00_JPRB, 0.566557E+00_JPRB &
+  &, 0.546613E+00_JPRB, 0.526856E+00_JPRB, 0.507307E+00_JPRB &
+  &, 0.487976E+00_JPRB, 0.468888E+00_JPRB, 0.450058E+00_JPRB, 0.431499E+00_JPRB &
+  &, 0.413230E+00_JPRB, 0.395270E+00_JPRB, 0.377637E+00_JPRB &
+  &, 0.360342E+00_JPRB, 0.343403E+00_JPRB, 0.326838E+00_JPRB, 0.310655E+00_JPRB &
+  &, 0.294875E+00_JPRB, 0.279506E+00_JPRB, 0.264558E+00_JPRB &
+  &, 0.250047E+00_JPRB, 0.235987E+00_JPRB, 0.222374E+00_JPRB, 0.209222E+00_JPRB &
+  &, 0.196551E+00_JPRB, 0.184342E+00_JPRB, 0.172604E+00_JPRB &
+  &, 0.161355E+00_JPRB, 0.150590E+00_JPRB, 0.140291E+00_JPRB, 0.130481E+00_JPRB &
+  &, 0.121136E+00_JPRB, 0.112264E+00_JPRB, 0.103844E+00_JPRB &
+  &, 0.958914E-01_JPRB, 0.883799E-01_JPRB, 0.813055E-01_JPRB, 0.746609E-01_JPRB &
+  &, 0.684217E-01_JPRB, 0.625880E-01_JPRB, 0.571277E-01_JPRB &
+  &, 0.520496E-01_JPRB, 0.473297E-01_JPRB, 0.429559E-01_JPRB, 0.389131E-01_JPRB &
+  &, 0.351660E-01_JPRB, 0.317264E-01_JPRB, 0.285524E-01_JPRB &
+  &, 0.256512E-01_JPRB, 0.229922E-01_JPRB, 0.205786E-01_JPRB, 0.183742E-01_JPRB &
+  &, 0.163580E-01_JPRB, 0.145467E-01_JPRB, 0.129163E-01_JPRB &
+  &, 0.114398E-01_JPRB, 0.101086E-01_JPRB, 0.891278E-02_JPRB, 0.784092E-02_JPRB &
+  &, 0.688003E-02_JPRB, 0.601557E-02_JPRB, 0.525521E-02_JPRB &
+  &, 0.458247E-02_JPRB, 0.400400E-02_JPRB, 0.347599E-02_JPRB, 0.300244E-02_JPRB &
+  &, 0.258745E-02_JPRB, 0.223524E-02_JPRB, 0.192280E-02_JPRB &
+  &, 0.165299E-02_JPRB, 0.142874E-02_JPRB, 0.122415E-02_JPRB, 0.104067E-02_JPRB &
+  &, 0.879798E-03_JPRB, 0.743065E-03_JPRB, 0.632034E-03_JPRB &
+  &, 0.516639E-03_JPRB, 0.461279E-03_JPRB, 0.370903E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 212, :) = (/ &
+  &  0.918733E+00_JPRB, 0.898146E+00_JPRB, 0.877477E+00_JPRB, 0.856744E+00_JPRB &
+  &, 0.835958E+00_JPRB, 0.815134E+00_JPRB, 0.794286E+00_JPRB &
+  &, 0.773431E+00_JPRB, 0.752582E+00_JPRB, 0.731753E+00_JPRB, 0.710963E+00_JPRB &
+  &, 0.690224E+00_JPRB, 0.669555E+00_JPRB, 0.648969E+00_JPRB &
+  &, 0.628485E+00_JPRB, 0.608118E+00_JPRB, 0.587884E+00_JPRB, 0.567801E+00_JPRB &
+  &, 0.547883E+00_JPRB, 0.528154E+00_JPRB, 0.508623E+00_JPRB &
+  &, 0.489315E+00_JPRB, 0.470241E+00_JPRB, 0.451422E+00_JPRB, 0.432874E+00_JPRB &
+  &, 0.414612E+00_JPRB, 0.396656E+00_JPRB, 0.379022E+00_JPRB &
+  &, 0.361726E+00_JPRB, 0.344781E+00_JPRB, 0.328205E+00_JPRB, 0.312015E+00_JPRB &
+  &, 0.296221E+00_JPRB, 0.280833E+00_JPRB, 0.265873E+00_JPRB &
+  &, 0.251340E+00_JPRB, 0.237255E+00_JPRB, 0.223616E+00_JPRB, 0.210445E+00_JPRB &
+  &, 0.197733E+00_JPRB, 0.185501E+00_JPRB, 0.173738E+00_JPRB &
+  &, 0.162451E+00_JPRB, 0.151646E+00_JPRB, 0.141315E+00_JPRB, 0.131459E+00_JPRB &
+  &, 0.122077E+00_JPRB, 0.113165E+00_JPRB, 0.104716E+00_JPRB &
+  &, 0.967192E-01_JPRB, 0.891740E-01_JPRB, 0.820636E-01_JPRB, 0.753666E-01_JPRB &
+  &, 0.691009E-01_JPRB, 0.632242E-01_JPRB, 0.577334E-01_JPRB &
+  &, 0.526230E-01_JPRB, 0.478689E-01_JPRB, 0.434589E-01_JPRB, 0.393779E-01_JPRB &
+  &, 0.356074E-01_JPRB, 0.321257E-01_JPRB, 0.289252E-01_JPRB &
+  &, 0.259960E-01_JPRB, 0.233260E-01_JPRB, 0.208630E-01_JPRB, 0.186454E-01_JPRB &
+  &, 0.166152E-01_JPRB, 0.147691E-01_JPRB, 0.131228E-01_JPRB &
+  &, 0.116085E-01_JPRB, 0.102593E-01_JPRB, 0.906666E-02_JPRB, 0.797555E-02_JPRB &
+  &, 0.699453E-02_JPRB, 0.613241E-02_JPRB, 0.537442E-02_JPRB &
+  &, 0.467976E-02_JPRB, 0.407842E-02_JPRB, 0.355189E-02_JPRB, 0.307983E-02_JPRB &
+  &, 0.266635E-02_JPRB, 0.228886E-02_JPRB, 0.197745E-02_JPRB &
+  &, 0.170868E-02_JPRB, 0.145711E-02_JPRB, 0.125305E-02_JPRB, 0.107012E-02_JPRB &
+  &, 0.909791E-03_JPRB, 0.773610E-03_JPRB, 0.663136E-03_JPRB &
+  &, 0.548304E-03_JPRB, 0.461279E-03_JPRB, 0.370903E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 213, :) = (/ &
+  &  0.919060E+00_JPRB, 0.898548E+00_JPRB, 0.877953E+00_JPRB, 0.857290E+00_JPRB &
+  &, 0.836572E+00_JPRB, 0.815813E+00_JPRB, 0.795028E+00_JPRB &
+  &, 0.774232E+00_JPRB, 0.753440E+00_JPRB, 0.732667E+00_JPRB, 0.711928E+00_JPRB &
+  &, 0.691238E+00_JPRB, 0.670614E+00_JPRB, 0.650071E+00_JPRB &
+  &, 0.629626E+00_JPRB, 0.609295E+00_JPRB, 0.589095E+00_JPRB, 0.569043E+00_JPRB &
+  &, 0.549156E+00_JPRB, 0.529448E+00_JPRB, 0.509940E+00_JPRB &
+  &, 0.490651E+00_JPRB, 0.471591E+00_JPRB, 0.452786E+00_JPRB, 0.434245E+00_JPRB &
+  &, 0.415994E+00_JPRB, 0.398042E+00_JPRB, 0.380407E+00_JPRB &
+  &, 0.363106E+00_JPRB, 0.346160E+00_JPRB, 0.329577E+00_JPRB, 0.313375E+00_JPRB &
+  &, 0.297568E+00_JPRB, 0.282165E+00_JPRB, 0.267184E+00_JPRB &
+  &, 0.252633E+00_JPRB, 0.238524E+00_JPRB, 0.224858E+00_JPRB, 0.211658E+00_JPRB &
+  &, 0.198926E+00_JPRB, 0.186661E+00_JPRB, 0.174862E+00_JPRB &
+  &, 0.163548E+00_JPRB, 0.152702E+00_JPRB, 0.142339E+00_JPRB, 0.132449E+00_JPRB &
+  &, 0.123030E+00_JPRB, 0.114079E+00_JPRB, 0.105588E+00_JPRB &
+  &, 0.975601E-01_JPRB, 0.899681E-01_JPRB, 0.828216E-01_JPRB, 0.760864E-01_JPRB &
+  &, 0.697801E-01_JPRB, 0.638603E-01_JPRB, 0.583391E-01_JPRB &
+  &, 0.531964E-01_JPRB, 0.484080E-01_JPRB, 0.439618E-01_JPRB, 0.398426E-01_JPRB &
+  &, 0.360318E-01_JPRB, 0.325250E-01_JPRB, 0.293157E-01_JPRB &
+  &, 0.263408E-01_JPRB, 0.236414E-01_JPRB, 0.211663E-01_JPRB, 0.189166E-01_JPRB &
+  &, 0.168725E-01_JPRB, 0.150117E-01_JPRB, 0.133293E-01_JPRB &
+  &, 0.118193E-01_JPRB, 0.104531E-01_JPRB, 0.922053E-02_JPRB, 0.811018E-02_JPRB &
+  &, 0.713193E-02_JPRB, 0.624925E-02_JPRB, 0.546978E-02_JPRB &
+  &, 0.477705E-02_JPRB, 0.415284E-02_JPRB, 0.362778E-02_JPRB, 0.313142E-02_JPRB &
+  &, 0.271896E-02_JPRB, 0.234248E-02_JPRB, 0.203211E-02_JPRB &
+  &, 0.173653E-02_JPRB, 0.148549E-02_JPRB, 0.128196E-02_JPRB, 0.109956E-02_JPRB &
+  &, 0.939784E-03_JPRB, 0.773610E-03_JPRB, 0.663136E-03_JPRB &
+  &, 0.548304E-03_JPRB, 0.461279E-03_JPRB, 0.403712E-03_JPRB, 0.343905E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 214, :) = (/ &
+  &  0.919386E+00_JPRB, 0.898950E+00_JPRB, 0.878427E+00_JPRB, 0.857835E+00_JPRB &
+  &, 0.837184E+00_JPRB, 0.816490E+00_JPRB, 0.795768E+00_JPRB &
+  &, 0.775031E+00_JPRB, 0.754297E+00_JPRB, 0.733577E+00_JPRB, 0.712890E+00_JPRB &
+  &, 0.692249E+00_JPRB, 0.671670E+00_JPRB, 0.651170E+00_JPRB &
+  &, 0.630765E+00_JPRB, 0.610472E+00_JPRB, 0.590307E+00_JPRB, 0.570285E+00_JPRB &
+  &, 0.550425E+00_JPRB, 0.530742E+00_JPRB, 0.511256E+00_JPRB &
+  &, 0.491984E+00_JPRB, 0.472944E+00_JPRB, 0.454150E+00_JPRB, 0.435620E+00_JPRB &
+  &, 0.417373E+00_JPRB, 0.399424E+00_JPRB, 0.381792E+00_JPRB &
+  &, 0.364490E+00_JPRB, 0.347538E+00_JPRB, 0.330949E+00_JPRB, 0.314735E+00_JPRB &
+  &, 0.298914E+00_JPRB, 0.283496E+00_JPRB, 0.268499E+00_JPRB &
+  &, 0.253926E+00_JPRB, 0.239792E+00_JPRB, 0.226110E+00_JPRB, 0.212881E+00_JPRB &
+  &, 0.200118E+00_JPRB, 0.187820E+00_JPRB, 0.175996E+00_JPRB &
+  &, 0.164644E+00_JPRB, 0.153769E+00_JPRB, 0.143363E+00_JPRB, 0.133438E+00_JPRB &
+  &, 0.123983E+00_JPRB, 0.114993E+00_JPRB, 0.106473E+00_JPRB &
+  &, 0.984011E-01_JPRB, 0.907756E-01_JPRB, 0.835797E-01_JPRB, 0.768204E-01_JPRB &
+  &, 0.704593E-01_JPRB, 0.645112E-01_JPRB, 0.589599E-01_JPRB &
+  &, 0.537698E-01_JPRB, 0.489472E-01_JPRB, 0.444648E-01_JPRB, 0.403073E-01_JPRB &
+  &, 0.364731E-01_JPRB, 0.329416E-01_JPRB, 0.296884E-01_JPRB &
+  &, 0.267037E-01_JPRB, 0.239753E-01_JPRB, 0.214696E-01_JPRB, 0.191878E-01_JPRB &
+  &, 0.171100E-01_JPRB, 0.152341E-01_JPRB, 0.135358E-01_JPRB &
+  &, 0.120091E-01_JPRB, 0.106254E-01_JPRB, 0.937441E-02_JPRB, 0.826724E-02_JPRB &
+  &, 0.726933E-02_JPRB, 0.636609E-02_JPRB, 0.556515E-02_JPRB &
+  &, 0.487433E-02_JPRB, 0.425207E-02_JPRB, 0.367838E-02_JPRB, 0.320881E-02_JPRB &
+  &, 0.277156E-02_JPRB, 0.239610E-02_JPRB, 0.205943E-02_JPRB &
+  &, 0.176438E-02_JPRB, 0.151386E-02_JPRB, 0.131087E-02_JPRB, 0.112901E-02_JPRB &
+  &, 0.939784E-03_JPRB, 0.804154E-03_JPRB, 0.694237E-03_JPRB &
+  &, 0.579969E-03_JPRB, 0.493513E-03_JPRB, 0.403712E-03_JPRB, 0.343905E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.251995E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 215, :) = (/ &
+  &  0.919712E+00_JPRB, 0.899349E+00_JPRB, 0.878900E+00_JPRB, 0.858378E+00_JPRB &
+  &, 0.837795E+00_JPRB, 0.817166E+00_JPRB, 0.796507E+00_JPRB &
+  &, 0.775830E+00_JPRB, 0.755152E+00_JPRB, 0.734487E+00_JPRB, 0.713850E+00_JPRB &
+  &, 0.693258E+00_JPRB, 0.672725E+00_JPRB, 0.652268E+00_JPRB &
+  &, 0.631904E+00_JPRB, 0.611646E+00_JPRB, 0.591515E+00_JPRB, 0.571525E+00_JPRB &
+  &, 0.551693E+00_JPRB, 0.532037E+00_JPRB, 0.512573E+00_JPRB &
+  &, 0.493317E+00_JPRB, 0.474294E+00_JPRB, 0.455510E+00_JPRB, 0.436991E+00_JPRB &
+  &, 0.418751E+00_JPRB, 0.400806E+00_JPRB, 0.383178E+00_JPRB &
+  &, 0.365874E+00_JPRB, 0.348916E+00_JPRB, 0.332312E+00_JPRB, 0.316094E+00_JPRB &
+  &, 0.300261E+00_JPRB, 0.284832E+00_JPRB, 0.269815E+00_JPRB &
+  &, 0.255219E+00_JPRB, 0.241070E+00_JPRB, 0.227361E+00_JPRB, 0.214104E+00_JPRB &
+  &, 0.201310E+00_JPRB, 0.188979E+00_JPRB, 0.177120E+00_JPRB &
+  &, 0.165740E+00_JPRB, 0.154836E+00_JPRB, 0.144398E+00_JPRB, 0.134428E+00_JPRB &
+  &, 0.124936E+00_JPRB, 0.115920E+00_JPRB, 0.107358E+00_JPRB &
+  &, 0.992420E-01_JPRB, 0.915697E-01_JPRB, 0.843516E-01_JPRB, 0.775402E-01_JPRB &
+  &, 0.711530E-01_JPRB, 0.651622E-01_JPRB, 0.595657E-01_JPRB &
+  &, 0.543432E-01_JPRB, 0.494864E-01_JPRB, 0.449677E-01_JPRB, 0.407886E-01_JPRB &
+  &, 0.369315E-01_JPRB, 0.333583E-01_JPRB, 0.300789E-01_JPRB &
+  &, 0.270666E-01_JPRB, 0.242906E-01_JPRB, 0.217729E-01_JPRB, 0.194784E-01_JPRB &
+  &, 0.173673E-01_JPRB, 0.154767E-01_JPRB, 0.137423E-01_JPRB &
+  &, 0.121989E-01_JPRB, 0.107976E-01_JPRB, 0.952829E-02_JPRB, 0.840187E-02_JPRB &
+  &, 0.738383E-02_JPRB, 0.648293E-02_JPRB, 0.568436E-02_JPRB &
+  &, 0.497162E-02_JPRB, 0.432650E-02_JPRB, 0.375428E-02_JPRB, 0.326041E-02_JPRB &
+  &, 0.282416E-02_JPRB, 0.244972E-02_JPRB, 0.211408E-02_JPRB &
+  &, 0.182007E-02_JPRB, 0.157061E-02_JPRB, 0.133978E-02_JPRB, 0.112901E-02_JPRB &
+  &, 0.969778E-03_JPRB, 0.834698E-03_JPRB, 0.694237E-03_JPRB &
+  &, 0.579969E-03_JPRB, 0.493513E-03_JPRB, 0.403712E-03_JPRB, 0.343905E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.251995E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 216, :) = (/ &
+  &  0.920036E+00_JPRB, 0.899750E+00_JPRB, 0.879373E+00_JPRB, 0.858920E+00_JPRB &
+  &, 0.838404E+00_JPRB, 0.817841E+00_JPRB, 0.797241E+00_JPRB &
+  &, 0.776627E+00_JPRB, 0.756004E+00_JPRB, 0.735394E+00_JPRB, 0.714809E+00_JPRB &
+  &, 0.694266E+00_JPRB, 0.673779E+00_JPRB, 0.653364E+00_JPRB &
+  &, 0.633039E+00_JPRB, 0.612819E+00_JPRB, 0.592722E+00_JPRB, 0.572762E+00_JPRB &
+  &, 0.552959E+00_JPRB, 0.533328E+00_JPRB, 0.513886E+00_JPRB &
+  &, 0.494650E+00_JPRB, 0.475641E+00_JPRB, 0.456874E+00_JPRB, 0.438362E+00_JPRB &
+  &, 0.420130E+00_JPRB, 0.402192E+00_JPRB, 0.384559E+00_JPRB &
+  &, 0.367258E+00_JPRB, 0.350295E+00_JPRB, 0.333688E+00_JPRB, 0.317458E+00_JPRB &
+  &, 0.301611E+00_JPRB, 0.286164E+00_JPRB, 0.271130E+00_JPRB &
+  &, 0.256521E+00_JPRB, 0.242338E+00_JPRB, 0.228613E+00_JPRB, 0.215327E+00_JPRB &
+  &, 0.202503E+00_JPRB, 0.190149E+00_JPRB, 0.178254E+00_JPRB &
+  &, 0.166837E+00_JPRB, 0.155903E+00_JPRB, 0.145434E+00_JPRB, 0.135430E+00_JPRB &
+  &, 0.125902E+00_JPRB, 0.116834E+00_JPRB, 0.108231E+00_JPRB &
+  &, 0.100083E+00_JPRB, 0.923772E-01_JPRB, 0.851097E-01_JPRB, 0.782742E-01_JPRB &
+  &, 0.718466E-01_JPRB, 0.658279E-01_JPRB, 0.601865E-01_JPRB &
+  &, 0.549321E-01_JPRB, 0.500414E-01_JPRB, 0.454869E-01_JPRB, 0.412699E-01_JPRB &
+  &, 0.373728E-01_JPRB, 0.337749E-01_JPRB, 0.303984E-01_JPRB &
+  &, 0.274114E-01_JPRB, 0.246245E-01_JPRB, 0.220762E-01_JPRB, 0.197496E-01_JPRB &
+  &, 0.176246E-01_JPRB, 0.157193E-01_JPRB, 0.139694E-01_JPRB &
+  &, 0.123887E-01_JPRB, 0.109699E-01_JPRB, 0.970414E-02_JPRB, 0.855894E-02_JPRB &
+  &, 0.752123E-02_JPRB, 0.659977E-02_JPRB, 0.577973E-02_JPRB &
+  &, 0.506891E-02_JPRB, 0.442572E-02_JPRB, 0.385548E-02_JPRB, 0.333780E-02_JPRB &
+  &, 0.290306E-02_JPRB, 0.250334E-02_JPRB, 0.216873E-02_JPRB &
+  &, 0.184792E-02_JPRB, 0.159899E-02_JPRB, 0.136869E-02_JPRB, 0.115846E-02_JPRB &
+  &, 0.999771E-03_JPRB, 0.834698E-03_JPRB, 0.725339E-03_JPRB &
+  &, 0.611634E-03_JPRB, 0.525747E-03_JPRB, 0.436522E-03_JPRB, 0.377296E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.251995E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 217, :) = (/ &
+  &  0.920359E+00_JPRB, 0.900148E+00_JPRB, 0.879843E+00_JPRB, 0.859461E+00_JPRB &
+  &, 0.839013E+00_JPRB, 0.818514E+00_JPRB, 0.797979E+00_JPRB &
+  &, 0.777421E+00_JPRB, 0.756857E+00_JPRB, 0.736300E+00_JPRB, 0.715767E+00_JPRB &
+  &, 0.695272E+00_JPRB, 0.674830E+00_JPRB, 0.654459E+00_JPRB &
+  &, 0.634174E+00_JPRB, 0.613991E+00_JPRB, 0.593928E+00_JPRB, 0.573999E+00_JPRB &
+  &, 0.554224E+00_JPRB, 0.534616E+00_JPRB, 0.515199E+00_JPRB &
+  &, 0.495983E+00_JPRB, 0.476991E+00_JPRB, 0.458234E+00_JPRB, 0.439734E+00_JPRB &
+  &, 0.421508E+00_JPRB, 0.403574E+00_JPRB, 0.385944E+00_JPRB &
+  &, 0.368639E+00_JPRB, 0.351673E+00_JPRB, 0.335060E+00_JPRB, 0.318818E+00_JPRB &
+  &, 0.302962E+00_JPRB, 0.287500E+00_JPRB, 0.272450E+00_JPRB &
+  &, 0.257814E+00_JPRB, 0.243616E+00_JPRB, 0.229865E+00_JPRB, 0.216551E+00_JPRB &
+  &, 0.203705E+00_JPRB, 0.191319E+00_JPRB, 0.179399E+00_JPRB &
+  &, 0.167944E+00_JPRB, 0.156970E+00_JPRB, 0.146469E+00_JPRB, 0.136431E+00_JPRB &
+  &, 0.126867E+00_JPRB, 0.117760E+00_JPRB, 0.109129E+00_JPRB &
+  &, 0.100937E+00_JPRB, 0.931982E-01_JPRB, 0.858954E-01_JPRB, 0.790081E-01_JPRB &
+  &, 0.725403E-01_JPRB, 0.664788E-01_JPRB, 0.608073E-01_JPRB &
+  &, 0.555210E-01_JPRB, 0.505805E-01_JPRB, 0.460061E-01_JPRB, 0.417512E-01_JPRB &
+  &, 0.378312E-01_JPRB, 0.341915E-01_JPRB, 0.308599E-01_JPRB &
+  &, 0.277743E-01_JPRB, 0.249583E-01_JPRB, 0.223796E-01_JPRB, 0.200401E-01_JPRB &
+  &, 0.179017E-01_JPRB, 0.159417E-01_JPRB, 0.141759E-01_JPRB &
+  &, 0.125996E-01_JPRB, 0.111637E-01_JPRB, 0.985802E-02_JPRB, 0.869357E-02_JPRB &
+  &, 0.765863E-02_JPRB, 0.671661E-02_JPRB, 0.589894E-02_JPRB &
+  &, 0.516619E-02_JPRB, 0.450015E-02_JPRB, 0.393137E-02_JPRB, 0.341519E-02_JPRB &
+  &, 0.295566E-02_JPRB, 0.255696E-02_JPRB, 0.219606E-02_JPRB &
+  &, 0.190362E-02_JPRB, 0.162736E-02_JPRB, 0.139760E-02_JPRB, 0.118791E-02_JPRB &
+  &, 0.102976E-02_JPRB, 0.865243E-03_JPRB, 0.725339E-03_JPRB &
+  &, 0.611634E-03_JPRB, 0.525747E-03_JPRB, 0.436522E-03_JPRB, 0.377296E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.251995E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART32',0,ZHOOK_HANDLE)
+
+XCW( 218, :) = (/ &
+  &  0.920681E+00_JPRB, 0.900545E+00_JPRB, 0.880313E+00_JPRB, 0.860001E+00_JPRB &
+  &, 0.839620E+00_JPRB, 0.819186E+00_JPRB, 0.798713E+00_JPRB &
+  &, 0.778215E+00_JPRB, 0.757707E+00_JPRB, 0.737205E+00_JPRB, 0.716722E+00_JPRB &
+  &, 0.696275E+00_JPRB, 0.675880E+00_JPRB, 0.655552E+00_JPRB &
+  &, 0.635307E+00_JPRB, 0.615162E+00_JPRB, 0.595132E+00_JPRB, 0.575235E+00_JPRB &
+  &, 0.555486E+00_JPRB, 0.535907E+00_JPRB, 0.516509E+00_JPRB &
+  &, 0.497312E+00_JPRB, 0.478337E+00_JPRB, 0.459595E+00_JPRB, 0.441105E+00_JPRB &
+  &, 0.422887E+00_JPRB, 0.404956E+00_JPRB, 0.387330E+00_JPRB &
+  &, 0.370023E+00_JPRB, 0.353051E+00_JPRB, 0.336435E+00_JPRB, 0.320182E+00_JPRB &
+  &, 0.304313E+00_JPRB, 0.288836E+00_JPRB, 0.273766E+00_JPRB &
+  &, 0.259116E+00_JPRB, 0.244894E+00_JPRB, 0.231116E+00_JPRB, 0.217784E+00_JPRB &
+  &, 0.204908E+00_JPRB, 0.192488E+00_JPRB, 0.180534E+00_JPRB &
+  &, 0.169052E+00_JPRB, 0.158048E+00_JPRB, 0.147505E+00_JPRB, 0.137433E+00_JPRB &
+  &, 0.127832E+00_JPRB, 0.118699E+00_JPRB, 0.110014E+00_JPRB &
+  &, 0.101791E+00_JPRB, 0.940057E-01_JPRB, 0.866673E-01_JPRB, 0.797421E-01_JPRB &
+  &, 0.732484E-01_JPRB, 0.671446E-01_JPRB, 0.614433E-01_JPRB &
+  &, 0.561099E-01_JPRB, 0.511356E-01_JPRB, 0.465253E-01_JPRB, 0.422491E-01_JPRB &
+  &, 0.382725E-01_JPRB, 0.346255E-01_JPRB, 0.312504E-01_JPRB &
+  &, 0.281373E-01_JPRB, 0.252922E-01_JPRB, 0.227018E-01_JPRB, 0.203307E-01_JPRB &
+  &, 0.181590E-01_JPRB, 0.161843E-01_JPRB, 0.144031E-01_JPRB &
+  &, 0.127894E-01_JPRB, 0.113359E-01_JPRB, 0.100339E-01_JPRB, 0.885063E-02_JPRB &
+  &, 0.779603E-02_JPRB, 0.685682E-02_JPRB, 0.599430E-02_JPRB &
+  &, 0.526348E-02_JPRB, 0.459938E-02_JPRB, 0.400727E-02_JPRB, 0.346678E-02_JPRB &
+  &, 0.300826E-02_JPRB, 0.261059E-02_JPRB, 0.225071E-02_JPRB &
+  &, 0.195931E-02_JPRB, 0.168411E-02_JPRB, 0.142650E-02_JPRB, 0.121735E-02_JPRB &
+  &, 0.105976E-02_JPRB, 0.895787E-03_JPRB, 0.756441E-03_JPRB &
+  &, 0.643299E-03_JPRB, 0.557981E-03_JPRB, 0.469331E-03_JPRB, 0.377296E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.251995E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 219, :) = (/ &
+  &  0.921004E+00_JPRB, 0.900941E+00_JPRB, 0.880782E+00_JPRB, 0.860539E+00_JPRB &
+  &, 0.840225E+00_JPRB, 0.819856E+00_JPRB, 0.799445E+00_JPRB &
+  &, 0.779006E+00_JPRB, 0.758556E+00_JPRB, 0.738107E+00_JPRB, 0.717676E+00_JPRB &
+  &, 0.697277E+00_JPRB, 0.676928E+00_JPRB, 0.656642E+00_JPRB &
+  &, 0.636438E+00_JPRB, 0.616329E+00_JPRB, 0.596334E+00_JPRB, 0.576468E+00_JPRB &
+  &, 0.556749E+00_JPRB, 0.537192E+00_JPRB, 0.517819E+00_JPRB &
+  &, 0.498642E+00_JPRB, 0.479683E+00_JPRB, 0.460955E+00_JPRB, 0.442476E+00_JPRB &
+  &, 0.424265E+00_JPRB, 0.406338E+00_JPRB, 0.388715E+00_JPRB &
+  &, 0.371407E+00_JPRB, 0.354430E+00_JPRB, 0.337807E+00_JPRB, 0.321546E+00_JPRB &
+  &, 0.305663E+00_JPRB, 0.290172E+00_JPRB, 0.275086E+00_JPRB &
+  &, 0.260418E+00_JPRB, 0.246172E+00_JPRB, 0.232368E+00_JPRB, 0.219017E+00_JPRB &
+  &, 0.206110E+00_JPRB, 0.193658E+00_JPRB, 0.181679E+00_JPRB &
+  &, 0.170170E+00_JPRB, 0.159115E+00_JPRB, 0.148540E+00_JPRB, 0.138435E+00_JPRB &
+  &, 0.128798E+00_JPRB, 0.119626E+00_JPRB, 0.110911E+00_JPRB &
+  &, 0.102645E+00_JPRB, 0.948267E-01_JPRB, 0.874391E-01_JPRB, 0.804901E-01_JPRB &
+  &, 0.739420E-01_JPRB, 0.678103E-01_JPRB, 0.620642E-01_JPRB &
+  &, 0.566988E-01_JPRB, 0.517064E-01_JPRB, 0.470445E-01_JPRB, 0.427304E-01_JPRB &
+  &, 0.387309E-01_JPRB, 0.350422E-01_JPRB, 0.316410E-01_JPRB &
+  &, 0.285183E-01_JPRB, 0.256447E-01_JPRB, 0.230051E-01_JPRB, 0.206019E-01_JPRB &
+  &, 0.184163E-01_JPRB, 0.164269E-01_JPRB, 0.146302E-01_JPRB &
+  &, 0.130003E-01_JPRB, 0.115297E-01_JPRB, 0.101878E-01_JPRB, 0.900770E-02_JPRB &
+  &, 0.793343E-02_JPRB, 0.697366E-02_JPRB, 0.611351E-02_JPRB &
+  &, 0.536077E-02_JPRB, 0.467380E-02_JPRB, 0.408317E-02_JPRB, 0.354417E-02_JPRB &
+  &, 0.308716E-02_JPRB, 0.266421E-02_JPRB, 0.230536E-02_JPRB &
+  &, 0.198716E-02_JPRB, 0.171249E-02_JPRB, 0.145541E-02_JPRB, 0.124680E-02_JPRB &
+  &, 0.108975E-02_JPRB, 0.926332E-03_JPRB, 0.787542E-03_JPRB &
+  &, 0.674964E-03_JPRB, 0.557981E-03_JPRB, 0.469331E-03_JPRB, 0.410686E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.286565E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 220, :) = (/ &
+  &  0.921324E+00_JPRB, 0.901338E+00_JPRB, 0.881250E+00_JPRB, 0.861077E+00_JPRB &
+  &, 0.840830E+00_JPRB, 0.820525E+00_JPRB, 0.800176E+00_JPRB &
+  &, 0.779797E+00_JPRB, 0.759403E+00_JPRB, 0.739008E+00_JPRB, 0.718628E+00_JPRB &
+  &, 0.698278E+00_JPRB, 0.677975E+00_JPRB, 0.657732E+00_JPRB &
+  &, 0.637567E+00_JPRB, 0.617496E+00_JPRB, 0.597535E+00_JPRB, 0.577700E+00_JPRB &
+  &, 0.558010E+00_JPRB, 0.538480E+00_JPRB, 0.519129E+00_JPRB &
+  &, 0.499971E+00_JPRB, 0.481026E+00_JPRB, 0.462312E+00_JPRB, 0.443844E+00_JPRB &
+  &, 0.425644E+00_JPRB, 0.407720E+00_JPRB, 0.390096E+00_JPRB &
+  &, 0.372791E+00_JPRB, 0.355812E+00_JPRB, 0.339179E+00_JPRB, 0.322910E+00_JPRB &
+  &, 0.307014E+00_JPRB, 0.291513E+00_JPRB, 0.276410E+00_JPRB &
+  &, 0.261721E+00_JPRB, 0.247460E+00_JPRB, 0.233629E+00_JPRB, 0.220240E+00_JPRB &
+  &, 0.207313E+00_JPRB, 0.194838E+00_JPRB, 0.182824E+00_JPRB &
+  &, 0.171278E+00_JPRB, 0.160194E+00_JPRB, 0.149587E+00_JPRB, 0.139448E+00_JPRB &
+  &, 0.129775E+00_JPRB, 0.120565E+00_JPRB, 0.111809E+00_JPRB &
+  &, 0.103512E+00_JPRB, 0.956477E-01_JPRB, 0.882248E-01_JPRB, 0.812382E-01_JPRB &
+  &, 0.746501E-01_JPRB, 0.684908E-01_JPRB, 0.627002E-01_JPRB &
+  &, 0.573031E-01_JPRB, 0.522615E-01_JPRB, 0.475799E-01_JPRB, 0.432283E-01_JPRB &
+  &, 0.392062E-01_JPRB, 0.354762E-01_JPRB, 0.320492E-01_JPRB &
+  &, 0.288813E-01_JPRB, 0.259785E-01_JPRB, 0.233274E-01_JPRB, 0.209118E-01_JPRB &
+  &, 0.186934E-01_JPRB, 0.166898E-01_JPRB, 0.148574E-01_JPRB &
+  &, 0.132112E-01_JPRB, 0.117020E-01_JPRB, 0.103636E-01_JPRB, 0.916477E-02_JPRB &
+  &, 0.807083E-02_JPRB, 0.709050E-02_JPRB, 0.623272E-02_JPRB &
+  &, 0.545805E-02_JPRB, 0.477303E-02_JPRB, 0.415907E-02_JPRB, 0.362156E-02_JPRB &
+  &, 0.313976E-02_JPRB, 0.271783E-02_JPRB, 0.236001E-02_JPRB &
+  &, 0.204285E-02_JPRB, 0.174086E-02_JPRB, 0.151323E-02_JPRB, 0.127625E-02_JPRB &
+  &, 0.108975E-02_JPRB, 0.926332E-03_JPRB, 0.787542E-03_JPRB &
+  &, 0.674964E-03_JPRB, 0.557981E-03_JPRB, 0.469331E-03_JPRB, 0.410686E-03_JPRB &
+  &, 0.349776E-03_JPRB, 0.286565E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 221, :) = (/ &
+  &  0.921645E+00_JPRB, 0.901733E+00_JPRB, 0.881716E+00_JPRB, 0.861611E+00_JPRB &
+  &, 0.841433E+00_JPRB, 0.821193E+00_JPRB, 0.800905E+00_JPRB &
+  &, 0.780585E+00_JPRB, 0.760248E+00_JPRB, 0.739908E+00_JPRB, 0.719579E+00_JPRB &
+  &, 0.699278E+00_JPRB, 0.679020E+00_JPRB, 0.658820E+00_JPRB &
+  &, 0.638695E+00_JPRB, 0.618661E+00_JPRB, 0.598735E+00_JPRB, 0.578932E+00_JPRB &
+  &, 0.559270E+00_JPRB, 0.539765E+00_JPRB, 0.520436E+00_JPRB &
+  &, 0.501298E+00_JPRB, 0.482373E+00_JPRB, 0.463669E+00_JPRB, 0.445215E+00_JPRB &
+  &, 0.427019E+00_JPRB, 0.409102E+00_JPRB, 0.391482E+00_JPRB &
+  &, 0.374171E+00_JPRB, 0.357191E+00_JPRB, 0.340554E+00_JPRB, 0.324273E+00_JPRB &
+  &, 0.308369E+00_JPRB, 0.292849E+00_JPRB, 0.277730E+00_JPRB &
+  &, 0.263023E+00_JPRB, 0.248738E+00_JPRB, 0.234891E+00_JPRB, 0.221483E+00_JPRB &
+  &, 0.208516E+00_JPRB, 0.196019E+00_JPRB, 0.183969E+00_JPRB &
+  &, 0.172396E+00_JPRB, 0.161284E+00_JPRB, 0.150634E+00_JPRB, 0.140462E+00_JPRB &
+  &, 0.130753E+00_JPRB, 0.121504E+00_JPRB, 0.112707E+00_JPRB &
+  &, 0.104367E+00_JPRB, 0.964686E-01_JPRB, 0.890105E-01_JPRB, 0.819863E-01_JPRB &
+  &, 0.753727E-01_JPRB, 0.691565E-01_JPRB, 0.633361E-01_JPRB &
+  &, 0.579075E-01_JPRB, 0.528324E-01_JPRB, 0.481153E-01_JPRB, 0.437262E-01_JPRB &
+  &, 0.396645E-01_JPRB, 0.359102E-01_JPRB, 0.324397E-01_JPRB &
+  &, 0.292624E-01_JPRB, 0.263310E-01_JPRB, 0.236497E-01_JPRB, 0.212024E-01_JPRB &
+  &, 0.189705E-01_JPRB, 0.169324E-01_JPRB, 0.150845E-01_JPRB &
+  &, 0.134010E-01_JPRB, 0.118958E-01_JPRB, 0.105395E-01_JPRB, 0.932184E-02_JPRB &
+  &, 0.820823E-02_JPRB, 0.723071E-02_JPRB, 0.635193E-02_JPRB &
+  &, 0.555534E-02_JPRB, 0.487226E-02_JPRB, 0.423496E-02_JPRB, 0.369895E-02_JPRB &
+  &, 0.321867E-02_JPRB, 0.279826E-02_JPRB, 0.241467E-02_JPRB &
+  &, 0.207070E-02_JPRB, 0.179761E-02_JPRB, 0.154214E-02_JPRB, 0.130570E-02_JPRB &
+  &, 0.111974E-02_JPRB, 0.956876E-03_JPRB, 0.818644E-03_JPRB &
+  &, 0.706629E-03_JPRB, 0.590215E-03_JPRB, 0.502140E-03_JPRB, 0.410686E-03_JPRB &
+  &, 0.349776E-03_JPRB, 0.286565E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 222, :) = (/ &
+  &  0.921965E+00_JPRB, 0.902126E+00_JPRB, 0.882182E+00_JPRB, 0.862147E+00_JPRB &
+  &, 0.842035E+00_JPRB, 0.821859E+00_JPRB, 0.801633E+00_JPRB &
+  &, 0.781373E+00_JPRB, 0.761092E+00_JPRB, 0.740805E+00_JPRB, 0.720528E+00_JPRB &
+  &, 0.700276E+00_JPRB, 0.680063E+00_JPRB, 0.659906E+00_JPRB &
+  &, 0.639822E+00_JPRB, 0.619825E+00_JPRB, 0.599933E+00_JPRB, 0.580162E+00_JPRB &
+  &, 0.560528E+00_JPRB, 0.541050E+00_JPRB, 0.521743E+00_JPRB &
+  &, 0.502624E+00_JPRB, 0.483716E+00_JPRB, 0.465029E+00_JPRB, 0.446583E+00_JPRB &
+  &, 0.428397E+00_JPRB, 0.410484E+00_JPRB, 0.392867E+00_JPRB &
+  &, 0.375556E+00_JPRB, 0.358573E+00_JPRB, 0.341926E+00_JPRB, 0.325642E+00_JPRB &
+  &, 0.309724E+00_JPRB, 0.294189E+00_JPRB, 0.279055E+00_JPRB &
+  &, 0.264325E+00_JPRB, 0.250025E+00_JPRB, 0.236152E+00_JPRB, 0.222716E+00_JPRB &
+  &, 0.209729E+00_JPRB, 0.197199E+00_JPRB, 0.185125E+00_JPRB &
+  &, 0.173515E+00_JPRB, 0.162362E+00_JPRB, 0.151693E+00_JPRB, 0.141475E+00_JPRB &
+  &, 0.131730E+00_JPRB, 0.122443E+00_JPRB, 0.113618E+00_JPRB &
+  &, 0.105234E+00_JPRB, 0.973031E-01_JPRB, 0.898099E-01_JPRB, 0.827343E-01_JPRB &
+  &, 0.760808E-01_JPRB, 0.698370E-01_JPRB, 0.639873E-01_JPRB &
+  &, 0.585119E-01_JPRB, 0.534032E-01_JPRB, 0.486507E-01_JPRB, 0.442242E-01_JPRB &
+  &, 0.401398E-01_JPRB, 0.363442E-01_JPRB, 0.328480E-01_JPRB &
+  &, 0.296434E-01_JPRB, 0.266834E-01_JPRB, 0.239720E-01_JPRB, 0.214930E-01_JPRB &
+  &, 0.192475E-01_JPRB, 0.171750E-01_JPRB, 0.153117E-01_JPRB &
+  &, 0.136118E-01_JPRB, 0.120895E-01_JPRB, 0.107153E-01_JPRB, 0.947890E-02_JPRB &
+  &, 0.834563E-02_JPRB, 0.734755E-02_JPRB, 0.647114E-02_JPRB &
+  &, 0.567695E-02_JPRB, 0.494668E-02_JPRB, 0.433616E-02_JPRB, 0.377634E-02_JPRB &
+  &, 0.327127E-02_JPRB, 0.285188E-02_JPRB, 0.246932E-02_JPRB &
+  &, 0.212639E-02_JPRB, 0.182599E-02_JPRB, 0.157105E-02_JPRB, 0.136459E-02_JPRB &
+  &, 0.114974E-02_JPRB, 0.987421E-03_JPRB, 0.849746E-03_JPRB &
+  &, 0.706629E-03_JPRB, 0.590215E-03_JPRB, 0.502140E-03_JPRB, 0.444077E-03_JPRB &
+  &, 0.349776E-03_JPRB, 0.286565E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.155543E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 223, :) = (/ &
+  &  0.922283E+00_JPRB, 0.902519E+00_JPRB, 0.882646E+00_JPRB, 0.862681E+00_JPRB &
+  &, 0.842635E+00_JPRB, 0.822524E+00_JPRB, 0.802360E+00_JPRB &
+  &, 0.782159E+00_JPRB, 0.761924E+00_JPRB, 0.741702E+00_JPRB, 0.721476E+00_JPRB &
+  &, 0.701271E+00_JPRB, 0.681104E+00_JPRB, 0.660991E+00_JPRB &
+  &, 0.640946E+00_JPRB, 0.620987E+00_JPRB, 0.601129E+00_JPRB, 0.581389E+00_JPRB &
+  &, 0.561783E+00_JPRB, 0.542331E+00_JPRB, 0.523049E+00_JPRB &
+  &, 0.503950E+00_JPRB, 0.485056E+00_JPRB, 0.466386E+00_JPRB, 0.447950E+00_JPRB &
+  &, 0.429772E+00_JPRB, 0.411866E+00_JPRB, 0.394248E+00_JPRB &
+  &, 0.376940E+00_JPRB, 0.359951E+00_JPRB, 0.343302E+00_JPRB, 0.327005E+00_JPRB &
+  &, 0.311079E+00_JPRB, 0.295534E+00_JPRB, 0.280384E+00_JPRB &
+  &, 0.265636E+00_JPRB, 0.251312E+00_JPRB, 0.237413E+00_JPRB, 0.223949E+00_JPRB &
+  &, 0.210942E+00_JPRB, 0.198379E+00_JPRB, 0.186270E+00_JPRB &
+  &, 0.174633E+00_JPRB, 0.163452E+00_JPRB, 0.152740E+00_JPRB, 0.142501E+00_JPRB &
+  &, 0.132708E+00_JPRB, 0.123394E+00_JPRB, 0.114529E+00_JPRB &
+  &, 0.106101E+00_JPRB, 0.981375E-01_JPRB, 0.905956E-01_JPRB, 0.834965E-01_JPRB &
+  &, 0.768033E-01_JPRB, 0.705176E-01_JPRB, 0.646233E-01_JPRB &
+  &, 0.591163E-01_JPRB, 0.539741E-01_JPRB, 0.491861E-01_JPRB, 0.447387E-01_JPRB &
+  &, 0.405982E-01_JPRB, 0.367781E-01_JPRB, 0.332562E-01_JPRB &
+  &, 0.300245E-01_JPRB, 0.270358E-01_JPRB, 0.242942E-01_JPRB, 0.218029E-01_JPRB &
+  &, 0.195246E-01_JPRB, 0.174378E-01_JPRB, 0.155388E-01_JPRB &
+  &, 0.138438E-01_JPRB, 0.122833E-01_JPRB, 0.108912E-01_JPRB, 0.963597E-02_JPRB &
+  &, 0.850593E-02_JPRB, 0.748776E-02_JPRB, 0.659035E-02_JPRB &
+  &, 0.577424E-02_JPRB, 0.504591E-02_JPRB, 0.441206E-02_JPRB, 0.385374E-02_JPRB &
+  &, 0.335017E-02_JPRB, 0.290550E-02_JPRB, 0.252397E-02_JPRB &
+  &, 0.218209E-02_JPRB, 0.188274E-02_JPRB, 0.159995E-02_JPRB, 0.139404E-02_JPRB &
+  &, 0.117973E-02_JPRB, 0.101796E-02_JPRB, 0.849746E-03_JPRB &
+  &, 0.738294E-03_JPRB, 0.622449E-03_JPRB, 0.534950E-03_JPRB, 0.444077E-03_JPRB &
+  &, 0.383754E-03_JPRB, 0.321136E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 224, :) = (/ &
+  &  0.922601E+00_JPRB, 0.902911E+00_JPRB, 0.883110E+00_JPRB, 0.863214E+00_JPRB &
+  &, 0.843234E+00_JPRB, 0.823187E+00_JPRB, 0.803085E+00_JPRB &
+  &, 0.782943E+00_JPRB, 0.762775E+00_JPRB, 0.742596E+00_JPRB, 0.722421E+00_JPRB &
+  &, 0.702265E+00_JPRB, 0.682145E+00_JPRB, 0.662074E+00_JPRB &
+  &, 0.642070E+00_JPRB, 0.622147E+00_JPRB, 0.602324E+00_JPRB, 0.582616E+00_JPRB &
+  &, 0.563040E+00_JPRB, 0.543613E+00_JPRB, 0.524353E+00_JPRB &
+  &, 0.505276E+00_JPRB, 0.486399E+00_JPRB, 0.467740E+00_JPRB, 0.449318E+00_JPRB &
+  &, 0.431147E+00_JPRB, 0.413248E+00_JPRB, 0.395634E+00_JPRB &
+  &, 0.378324E+00_JPRB, 0.361334E+00_JPRB, 0.344678E+00_JPRB, 0.328374E+00_JPRB &
+  &, 0.312434E+00_JPRB, 0.296875E+00_JPRB, 0.281708E+00_JPRB &
+  &, 0.266948E+00_JPRB, 0.252600E+00_JPRB, 0.238675E+00_JPRB, 0.225193E+00_JPRB &
+  &, 0.212154E+00_JPRB, 0.199559E+00_JPRB, 0.187426E+00_JPRB &
+  &, 0.175752E+00_JPRB, 0.164541E+00_JPRB, 0.153799E+00_JPRB, 0.143514E+00_JPRB &
+  &, 0.133697E+00_JPRB, 0.124333E+00_JPRB, 0.115439E+00_JPRB &
+  &, 0.106981E+00_JPRB, 0.989720E-01_JPRB, 0.913950E-01_JPRB, 0.842587E-01_JPRB &
+  &, 0.775259E-01_JPRB, 0.711981E-01_JPRB, 0.652744E-01_JPRB &
+  &, 0.597207E-01_JPRB, 0.545450E-01_JPRB, 0.497215E-01_JPRB, 0.452366E-01_JPRB &
+  &, 0.410735E-01_JPRB, 0.372295E-01_JPRB, 0.336822E-01_JPRB &
+  &, 0.304056E-01_JPRB, 0.273883E-01_JPRB, 0.246355E-01_JPRB, 0.220935E-01_JPRB &
+  &, 0.198017E-01_JPRB, 0.177007E-01_JPRB, 0.157866E-01_JPRB &
+  &, 0.140547E-01_JPRB, 0.124771E-01_JPRB, 0.110670E-01_JPRB, 0.979304E-02_JPRB &
+  &, 0.864334E-02_JPRB, 0.762796E-02_JPRB, 0.670956E-02_JPRB &
+  &, 0.587152E-02_JPRB, 0.514514E-02_JPRB, 0.448796E-02_JPRB, 0.393113E-02_JPRB &
+  &, 0.340277E-02_JPRB, 0.295912E-02_JPRB, 0.257862E-02_JPRB &
+  &, 0.220994E-02_JPRB, 0.191111E-02_JPRB, 0.165777E-02_JPRB, 0.142349E-02_JPRB &
+  &, 0.120972E-02_JPRB, 0.104851E-02_JPRB, 0.880847E-03_JPRB &
+  &, 0.738294E-03_JPRB, 0.622449E-03_JPRB, 0.534950E-03_JPRB, 0.444077E-03_JPRB &
+  &, 0.383754E-03_JPRB, 0.321136E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART33',0,ZHOOK_HANDLE)
+
+XCW( 225, :) = (/ &
+  &  0.922919E+00_JPRB, 0.903302E+00_JPRB, 0.883572E+00_JPRB, 0.863746E+00_JPRB &
+  &, 0.843833E+00_JPRB, 0.823849E+00_JPRB, 0.803809E+00_JPRB &
+  &, 0.783726E+00_JPRB, 0.763614E+00_JPRB, 0.743489E+00_JPRB, 0.723366E+00_JPRB &
+  &, 0.703259E+00_JPRB, 0.683182E+00_JPRB, 0.663156E+00_JPRB &
+  &, 0.643191E+00_JPRB, 0.623307E+00_JPRB, 0.603518E+00_JPRB, 0.583842E+00_JPRB &
+  &, 0.564295E+00_JPRB, 0.544895E+00_JPRB, 0.525656E+00_JPRB &
+  &, 0.506599E+00_JPRB, 0.487738E+00_JPRB, 0.469097E+00_JPRB, 0.450686E+00_JPRB &
+  &, 0.432522E+00_JPRB, 0.414627E+00_JPRB, 0.397019E+00_JPRB &
+  &, 0.379708E+00_JPRB, 0.362712E+00_JPRB, 0.346053E+00_JPRB, 0.329742E+00_JPRB &
+  &, 0.313789E+00_JPRB, 0.298220E+00_JPRB, 0.283037E+00_JPRB &
+  &, 0.268250E+00_JPRB, 0.253887E+00_JPRB, 0.239946E+00_JPRB, 0.226436E+00_JPRB &
+  &, 0.213367E+00_JPRB, 0.200750E+00_JPRB, 0.188593E+00_JPRB &
+  &, 0.176881E+00_JPRB, 0.165643E+00_JPRB, 0.154858E+00_JPRB, 0.144540E+00_JPRB &
+  &, 0.134687E+00_JPRB, 0.125285E+00_JPRB, 0.116350E+00_JPRB &
+  &, 0.107862E+00_JPRB, 0.998064E-01_JPRB, 0.921945E-01_JPRB, 0.850208E-01_JPRB &
+  &, 0.782485E-01_JPRB, 0.718934E-01_JPRB, 0.659255E-01_JPRB &
+  &, 0.603406E-01_JPRB, 0.551317E-01_JPRB, 0.502731E-01_JPRB, 0.457511E-01_JPRB &
+  &, 0.415658E-01_JPRB, 0.376809E-01_JPRB, 0.340905E-01_JPRB &
+  &, 0.307867E-01_JPRB, 0.277407E-01_JPRB, 0.249577E-01_JPRB, 0.224035E-01_JPRB &
+  &, 0.200788E-01_JPRB, 0.179433E-01_JPRB, 0.160138E-01_JPRB &
+  &, 0.142656E-01_JPRB, 0.126709E-01_JPRB, 0.112429E-01_JPRB, 0.995010E-02_JPRB &
+  &, 0.880364E-02_JPRB, 0.774480E-02_JPRB, 0.682877E-02_JPRB &
+  &, 0.599313E-02_JPRB, 0.524437E-02_JPRB, 0.458915E-02_JPRB, 0.400852E-02_JPRB &
+  &, 0.348167E-02_JPRB, 0.303955E-02_JPRB, 0.263327E-02_JPRB &
+  &, 0.226563E-02_JPRB, 0.196786E-02_JPRB, 0.168668E-02_JPRB, 0.145294E-02_JPRB &
+  &, 0.123971E-02_JPRB, 0.107905E-02_JPRB, 0.911949E-03_JPRB &
+  &, 0.769959E-03_JPRB, 0.654684E-03_JPRB, 0.567759E-03_JPRB, 0.477467E-03_JPRB &
+  &, 0.383754E-03_JPRB, 0.321136E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 226, :) = (/ &
+  &  0.923236E+00_JPRB, 0.903692E+00_JPRB, 0.884034E+00_JPRB, 0.864276E+00_JPRB &
+  &, 0.844429E+00_JPRB, 0.824511E+00_JPRB, 0.804531E+00_JPRB &
+  &, 0.784507E+00_JPRB, 0.764451E+00_JPRB, 0.744380E+00_JPRB, 0.724309E+00_JPRB &
+  &, 0.704250E+00_JPRB, 0.684220E+00_JPRB, 0.664235E+00_JPRB &
+  &, 0.644312E+00_JPRB, 0.624464E+00_JPRB, 0.604710E+00_JPRB, 0.585066E+00_JPRB &
+  &, 0.565548E+00_JPRB, 0.546173E+00_JPRB, 0.526960E+00_JPRB &
+  &, 0.507922E+00_JPRB, 0.489081E+00_JPRB, 0.470450E+00_JPRB, 0.452050E+00_JPRB &
+  &, 0.433897E+00_JPRB, 0.416009E+00_JPRB, 0.398400E+00_JPRB &
+  &, 0.381092E+00_JPRB, 0.364095E+00_JPRB, 0.347429E+00_JPRB, 0.331110E+00_JPRB &
+  &, 0.315149E+00_JPRB, 0.299565E+00_JPRB, 0.284366E+00_JPRB &
+  &, 0.269562E+00_JPRB, 0.255175E+00_JPRB, 0.241217E+00_JPRB, 0.227679E+00_JPRB &
+  &, 0.214590E+00_JPRB, 0.201941E+00_JPRB, 0.189749E+00_JPRB &
+  &, 0.178011E+00_JPRB, 0.166732E+00_JPRB, 0.155917E+00_JPRB, 0.145565E+00_JPRB &
+  &, 0.135677E+00_JPRB, 0.126249E+00_JPRB, 0.117274E+00_JPRB &
+  &, 0.108742E+00_JPRB, 0.100654E+00_JPRB, 0.930077E-01_JPRB, 0.857830E-01_JPRB &
+  &, 0.789855E-01_JPRB, 0.725887E-01_JPRB, 0.665767E-01_JPRB &
+  &, 0.609605E-01_JPRB, 0.557185E-01_JPRB, 0.508247E-01_JPRB, 0.462656E-01_JPRB &
+  &, 0.420411E-01_JPRB, 0.381322E-01_JPRB, 0.345165E-01_JPRB &
+  &, 0.311859E-01_JPRB, 0.281117E-01_JPRB, 0.252990E-01_JPRB, 0.227134E-01_JPRB &
+  &, 0.203559E-01_JPRB, 0.182061E-01_JPRB, 0.162616E-01_JPRB &
+  &, 0.144975E-01_JPRB, 0.128862E-01_JPRB, 0.114407E-01_JPRB, 0.101296E-01_JPRB &
+  &, 0.894104E-02_JPRB, 0.788501E-02_JPRB, 0.694798E-02_JPRB &
+  &, 0.609042E-02_JPRB, 0.534360E-02_JPRB, 0.466505E-02_JPRB, 0.408591E-02_JPRB &
+  &, 0.356057E-02_JPRB, 0.309317E-02_JPRB, 0.268792E-02_JPRB &
+  &, 0.232132E-02_JPRB, 0.199623E-02_JPRB, 0.171559E-02_JPRB, 0.148238E-02_JPRB &
+  &, 0.126971E-02_JPRB, 0.107905E-02_JPRB, 0.943051E-03_JPRB &
+  &, 0.801624E-03_JPRB, 0.686918E-03_JPRB, 0.567759E-03_JPRB, 0.477467E-03_JPRB &
+  &, 0.417731E-03_JPRB, 0.355707E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 227, :) = (/ &
+  &  0.923551E+00_JPRB, 0.904081E+00_JPRB, 0.884494E+00_JPRB, 0.864805E+00_JPRB &
+  &, 0.845025E+00_JPRB, 0.825170E+00_JPRB, 0.805252E+00_JPRB &
+  &, 0.785287E+00_JPRB, 0.765288E+00_JPRB, 0.745271E+00_JPRB, 0.725249E+00_JPRB &
+  &, 0.705239E+00_JPRB, 0.685255E+00_JPRB, 0.665313E+00_JPRB &
+  &, 0.645430E+00_JPRB, 0.625621E+00_JPRB, 0.605902E+00_JPRB, 0.586289E+00_JPRB &
+  &, 0.566801E+00_JPRB, 0.547452E+00_JPRB, 0.528260E+00_JPRB &
+  &, 0.509245E+00_JPRB, 0.490421E+00_JPRB, 0.471804E+00_JPRB, 0.453418E+00_JPRB &
+  &, 0.435272E+00_JPRB, 0.417391E+00_JPRB, 0.399786E+00_JPRB &
+  &, 0.382476E+00_JPRB, 0.365477E+00_JPRB, 0.348805E+00_JPRB, 0.332478E+00_JPRB &
+  &, 0.316508E+00_JPRB, 0.300910E+00_JPRB, 0.285695E+00_JPRB &
+  &, 0.270873E+00_JPRB, 0.256472E+00_JPRB, 0.242488E+00_JPRB, 0.228932E+00_JPRB &
+  &, 0.215814E+00_JPRB, 0.203132E+00_JPRB, 0.190916E+00_JPRB &
+  &, 0.179141E+00_JPRB, 0.167833E+00_JPRB, 0.156987E+00_JPRB, 0.146602E+00_JPRB &
+  &, 0.136679E+00_JPRB, 0.127200E+00_JPRB, 0.118184E+00_JPRB &
+  &, 0.109622E+00_JPRB, 0.101502E+00_JPRB, 0.938209E-01_JPRB, 0.865593E-01_JPRB &
+  &, 0.797080E-01_JPRB, 0.732840E-01_JPRB, 0.672429E-01_JPRB &
+  &, 0.615804E-01_JPRB, 0.563052E-01_JPRB, 0.513764E-01_JPRB, 0.467801E-01_JPRB &
+  &, 0.425334E-01_JPRB, 0.385836E-01_JPRB, 0.349425E-01_JPRB &
+  &, 0.315670E-01_JPRB, 0.284826E-01_JPRB, 0.256402E-01_JPRB, 0.230233E-01_JPRB &
+  &, 0.206528E-01_JPRB, 0.184892E-01_JPRB, 0.165094E-01_JPRB &
+  &, 0.147084E-01_JPRB, 0.130800E-01_JPRB, 0.116166E-01_JPRB, 0.102867E-01_JPRB &
+  &, 0.910134E-02_JPRB, 0.802522E-02_JPRB, 0.706719E-02_JPRB &
+  &, 0.621203E-02_JPRB, 0.544283E-02_JPRB, 0.476625E-02_JPRB, 0.416330E-02_JPRB &
+  &, 0.363947E-02_JPRB, 0.314679E-02_JPRB, 0.274257E-02_JPRB &
+  &, 0.237702E-02_JPRB, 0.205298E-02_JPRB, 0.177340E-02_JPRB, 0.151183E-02_JPRB &
+  &, 0.129970E-02_JPRB, 0.110960E-02_JPRB, 0.943051E-03_JPRB &
+  &, 0.801624E-03_JPRB, 0.686918E-03_JPRB, 0.600569E-03_JPRB, 0.510858E-03_JPRB &
+  &, 0.417731E-03_JPRB, 0.355707E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 228, :) = (/ &
+  &  0.923867E+00_JPRB, 0.904471E+00_JPRB, 0.884954E+00_JPRB, 0.865333E+00_JPRB &
+  &, 0.845620E+00_JPRB, 0.825828E+00_JPRB, 0.805972E+00_JPRB &
+  &, 0.786065E+00_JPRB, 0.766123E+00_JPRB, 0.746159E+00_JPRB, 0.726189E+00_JPRB &
+  &, 0.706227E+00_JPRB, 0.686290E+00_JPRB, 0.666391E+00_JPRB &
+  &, 0.646548E+00_JPRB, 0.626776E+00_JPRB, 0.607091E+00_JPRB, 0.587511E+00_JPRB &
+  &, 0.568051E+00_JPRB, 0.548727E+00_JPRB, 0.529560E+00_JPRB &
+  &, 0.510564E+00_JPRB, 0.491757E+00_JPRB, 0.473157E+00_JPRB, 0.454782E+00_JPRB &
+  &, 0.436647E+00_JPRB, 0.418769E+00_JPRB, 0.401171E+00_JPRB &
+  &, 0.383861E+00_JPRB, 0.366859E+00_JPRB, 0.350185E+00_JPRB, 0.333846E+00_JPRB &
+  &, 0.317867E+00_JPRB, 0.302255E+00_JPRB, 0.287029E+00_JPRB &
+  &, 0.272194E+00_JPRB, 0.257769E+00_JPRB, 0.243759E+00_JPRB, 0.230175E+00_JPRB &
+  &, 0.217027E+00_JPRB, 0.204333E+00_JPRB, 0.192082E+00_JPRB &
+  &, 0.180281E+00_JPRB, 0.168935E+00_JPRB, 0.158057E+00_JPRB, 0.147640E+00_JPRB &
+  &, 0.137669E+00_JPRB, 0.128164E+00_JPRB, 0.119121E+00_JPRB &
+  &, 0.110516E+00_JPRB, 0.102350E+00_JPRB, 0.946342E-01_JPRB, 0.873356E-01_JPRB &
+  &, 0.804450E-01_JPRB, 0.739793E-01_JPRB, 0.679092E-01_JPRB &
+  &, 0.622158E-01_JPRB, 0.568920E-01_JPRB, 0.519280E-01_JPRB, 0.473112E-01_JPRB &
+  &, 0.430087E-01_JPRB, 0.390349E-01_JPRB, 0.353685E-01_JPRB &
+  &, 0.319662E-01_JPRB, 0.288536E-01_JPRB, 0.259814E-01_JPRB, 0.233527E-01_JPRB &
+  &, 0.209496E-01_JPRB, 0.187520E-01_JPRB, 0.167572E-01_JPRB &
+  &, 0.149404E-01_JPRB, 0.132953E-01_JPRB, 0.118144E-01_JPRB, 0.104662E-01_JPRB &
+  &, 0.926164E-02_JPRB, 0.816543E-02_JPRB, 0.718640E-02_JPRB &
+  &, 0.633363E-02_JPRB, 0.554206E-02_JPRB, 0.486744E-02_JPRB, 0.424069E-02_JPRB &
+  &, 0.369208E-02_JPRB, 0.322722E-02_JPRB, 0.279723E-02_JPRB &
+  &, 0.243271E-02_JPRB, 0.208136E-02_JPRB, 0.180231E-02_JPRB, 0.154128E-02_JPRB &
+  &, 0.132969E-02_JPRB, 0.114014E-02_JPRB, 0.974152E-03_JPRB &
+  &, 0.833289E-03_JPRB, 0.719152E-03_JPRB, 0.600569E-03_JPRB, 0.510858E-03_JPRB &
+  &, 0.417731E-03_JPRB, 0.355707E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 229, :) = (/ &
+  &  0.924182E+00_JPRB, 0.904857E+00_JPRB, 0.885412E+00_JPRB, 0.865860E+00_JPRB &
+  &, 0.846213E+00_JPRB, 0.826485E+00_JPRB, 0.806690E+00_JPRB &
+  &, 0.786842E+00_JPRB, 0.766956E+00_JPRB, 0.747046E+00_JPRB, 0.727127E+00_JPRB &
+  &, 0.707214E+00_JPRB, 0.687323E+00_JPRB, 0.667467E+00_JPRB &
+  &, 0.647663E+00_JPRB, 0.627930E+00_JPRB, 0.608280E+00_JPRB, 0.588731E+00_JPRB &
+  &, 0.569301E+00_JPRB, 0.550005E+00_JPRB, 0.530860E+00_JPRB &
+  &, 0.511884E+00_JPRB, 0.493097E+00_JPRB, 0.474511E+00_JPRB, 0.456146E+00_JPRB &
+  &, 0.438022E+00_JPRB, 0.420151E+00_JPRB, 0.402552E+00_JPRB &
+  &, 0.385245E+00_JPRB, 0.368242E+00_JPRB, 0.351561E+00_JPRB, 0.335218E+00_JPRB &
+  &, 0.319227E+00_JPRB, 0.303604E+00_JPRB, 0.288362E+00_JPRB &
+  &, 0.273505E+00_JPRB, 0.259066E+00_JPRB, 0.245030E+00_JPRB, 0.231428E+00_JPRB &
+  &, 0.218260E+00_JPRB, 0.205524E+00_JPRB, 0.193249E+00_JPRB &
+  &, 0.181422E+00_JPRB, 0.170047E+00_JPRB, 0.159128E+00_JPRB, 0.148677E+00_JPRB &
+  &, 0.138671E+00_JPRB, 0.129128E+00_JPRB, 0.120044E+00_JPRB &
+  &, 0.111410E+00_JPRB, 0.103211E+00_JPRB, 0.954474E-01_JPRB, 0.881119E-01_JPRB &
+  &, 0.811965E-01_JPRB, 0.746894E-01_JPRB, 0.685755E-01_JPRB &
+  &, 0.628356E-01_JPRB, 0.574787E-01_JPRB, 0.524796E-01_JPRB, 0.478257E-01_JPRB &
+  &, 0.435010E-01_JPRB, 0.395036E-01_JPRB, 0.357945E-01_JPRB &
+  &, 0.323654E-01_JPRB, 0.292246E-01_JPRB, 0.263227E-01_JPRB, 0.236626E-01_JPRB &
+  &, 0.212267E-01_JPRB, 0.190148E-01_JPRB, 0.170050E-01_JPRB &
+  &, 0.151724E-01_JPRB, 0.134891E-01_JPRB, 0.119903E-01_JPRB, 0.106233E-01_JPRB &
+  &, 0.939904E-02_JPRB, 0.830564E-02_JPRB, 0.732945E-02_JPRB &
+  &, 0.643092E-02_JPRB, 0.566610E-02_JPRB, 0.494334E-02_JPRB, 0.431808E-02_JPRB &
+  &, 0.377098E-02_JPRB, 0.328084E-02_JPRB, 0.285188E-02_JPRB &
+  &, 0.248841E-02_JPRB, 0.213811E-02_JPRB, 0.186013E-02_JPRB, 0.160017E-02_JPRB &
+  &, 0.135969E-02_JPRB, 0.117069E-02_JPRB, 0.100525E-02_JPRB &
+  &, 0.864954E-03_JPRB, 0.719152E-03_JPRB, 0.633378E-03_JPRB, 0.510858E-03_JPRB &
+  &, 0.451709E-03_JPRB, 0.355707E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 230, :) = (/ &
+  &  0.924496E+00_JPRB, 0.905244E+00_JPRB, 0.885870E+00_JPRB, 0.866386E+00_JPRB &
+  &, 0.846804E+00_JPRB, 0.827140E+00_JPRB, 0.807407E+00_JPRB &
+  &, 0.787618E+00_JPRB, 0.767788E+00_JPRB, 0.747932E+00_JPRB, 0.728064E+00_JPRB &
+  &, 0.708199E+00_JPRB, 0.688353E+00_JPRB, 0.668541E+00_JPRB &
+  &, 0.648779E+00_JPRB, 0.629081E+00_JPRB, 0.609467E+00_JPRB, 0.589950E+00_JPRB &
+  &, 0.570549E+00_JPRB, 0.551278E+00_JPRB, 0.532157E+00_JPRB &
+  &, 0.513204E+00_JPRB, 0.494433E+00_JPRB, 0.475864E+00_JPRB, 0.457510E+00_JPRB &
+  &, 0.439393E+00_JPRB, 0.421530E+00_JPRB, 0.403938E+00_JPRB &
+  &, 0.386629E+00_JPRB, 0.369624E+00_JPRB, 0.352940E+00_JPRB, 0.336591E+00_JPRB &
+  &, 0.320590E+00_JPRB, 0.304953E+00_JPRB, 0.289696E+00_JPRB &
+  &, 0.274826E+00_JPRB, 0.260363E+00_JPRB, 0.246311E+00_JPRB, 0.232682E+00_JPRB &
+  &, 0.219483E+00_JPRB, 0.206725E+00_JPRB, 0.194416E+00_JPRB &
+  &, 0.182552E+00_JPRB, 0.171148E+00_JPRB, 0.160198E+00_JPRB, 0.149715E+00_JPRB &
+  &, 0.139685E+00_JPRB, 0.130105E+00_JPRB, 0.120981E+00_JPRB &
+  &, 0.112303E+00_JPRB, 0.104059E+00_JPRB, 0.962606E-01_JPRB, 0.888882E-01_JPRB &
+  &, 0.819335E-01_JPRB, 0.753847E-01_JPRB, 0.692417E-01_JPRB &
+  &, 0.634710E-01_JPRB, 0.580813E-01_JPRB, 0.530475E-01_JPRB, 0.483568E-01_JPRB &
+  &, 0.440102E-01_JPRB, 0.399724E-01_JPRB, 0.362205E-01_JPRB &
+  &, 0.327647E-01_JPRB, 0.295956E-01_JPRB, 0.266639E-01_JPRB, 0.239919E-01_JPRB &
+  &, 0.215236E-01_JPRB, 0.192979E-01_JPRB, 0.172528E-01_JPRB &
+  &, 0.153832E-01_JPRB, 0.137045E-01_JPRB, 0.121881E-01_JPRB, 0.108028E-01_JPRB &
+  &, 0.955934E-02_JPRB, 0.844584E-02_JPRB, 0.744866E-02_JPRB &
+  &, 0.655253E-02_JPRB, 0.576533E-02_JPRB, 0.504454E-02_JPRB, 0.442127E-02_JPRB &
+  &, 0.384988E-02_JPRB, 0.336127E-02_JPRB, 0.290653E-02_JPRB &
+  &, 0.251626E-02_JPRB, 0.219486E-02_JPRB, 0.188904E-02_JPRB, 0.162962E-02_JPRB &
+  &, 0.138968E-02_JPRB, 0.120123E-02_JPRB, 0.103636E-02_JPRB &
+  &, 0.864954E-03_JPRB, 0.751386E-03_JPRB, 0.633378E-03_JPRB, 0.544248E-03_JPRB &
+  &, 0.451709E-03_JPRB, 0.390278E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 231, :) = (/ &
+  &  0.924809E+00_JPRB, 0.905631E+00_JPRB, 0.886326E+00_JPRB, 0.866911E+00_JPRB &
+  &, 0.847396E+00_JPRB, 0.827795E+00_JPRB, 0.808122E+00_JPRB &
+  &, 0.788392E+00_JPRB, 0.768618E+00_JPRB, 0.748816E+00_JPRB, 0.728999E+00_JPRB &
+  &, 0.709183E+00_JPRB, 0.689383E+00_JPRB, 0.669613E+00_JPRB &
+  &, 0.649891E+00_JPRB, 0.630232E+00_JPRB, 0.610653E+00_JPRB, 0.591168E+00_JPRB &
+  &, 0.571796E+00_JPRB, 0.552553E+00_JPRB, 0.533458E+00_JPRB &
+  &, 0.514523E+00_JPRB, 0.495769E+00_JPRB, 0.477214E+00_JPRB, 0.458874E+00_JPRB &
+  &, 0.440768E+00_JPRB, 0.422912E+00_JPRB, 0.405319E+00_JPRB &
+  &, 0.388013E+00_JPRB, 0.371006E+00_JPRB, 0.354320E+00_JPRB, 0.337963E+00_JPRB &
+  &, 0.321950E+00_JPRB, 0.306303E+00_JPRB, 0.291029E+00_JPRB &
+  &, 0.276147E+00_JPRB, 0.261660E+00_JPRB, 0.247583E+00_JPRB, 0.233935E+00_JPRB &
+  &, 0.220717E+00_JPRB, 0.207927E+00_JPRB, 0.195594E+00_JPRB &
+  &, 0.183703E+00_JPRB, 0.172261E+00_JPRB, 0.161280E+00_JPRB, 0.150752E+00_JPRB &
+  &, 0.140687E+00_JPRB, 0.131069E+00_JPRB, 0.121917E+00_JPRB &
+  &, 0.113197E+00_JPRB, 0.104921E+00_JPRB, 0.970876E-01_JPRB, 0.896786E-01_JPRB &
+  &, 0.826850E-01_JPRB, 0.761096E-01_JPRB, 0.699232E-01_JPRB &
+  &, 0.641219E-01_JPRB, 0.586839E-01_JPRB, 0.536153E-01_JPRB, 0.488879E-01_JPRB &
+  &, 0.445025E-01_JPRB, 0.404411E-01_JPRB, 0.366643E-01_JPRB &
+  &, 0.331820E-01_JPRB, 0.299666E-01_JPRB, 0.270241E-01_JPRB, 0.243019E-01_JPRB &
+  &, 0.218403E-01_JPRB, 0.195607E-01_JPRB, 0.175006E-01_JPRB &
+  &, 0.156152E-01_JPRB, 0.139198E-01_JPRB, 0.123860E-01_JPRB, 0.109823E-01_JPRB &
+  &, 0.971964E-02_JPRB, 0.860942E-02_JPRB, 0.759171E-02_JPRB &
+  &, 0.667414E-02_JPRB, 0.586456E-02_JPRB, 0.514573E-02_JPRB, 0.449866E-02_JPRB &
+  &, 0.392878E-02_JPRB, 0.341489E-02_JPRB, 0.298851E-02_JPRB &
+  &, 0.257195E-02_JPRB, 0.222323E-02_JPRB, 0.191794E-02_JPRB, 0.165907E-02_JPRB &
+  &, 0.141967E-02_JPRB, 0.123178E-02_JPRB, 0.106746E-02_JPRB &
+  &, 0.896619E-03_JPRB, 0.751386E-03_JPRB, 0.666187E-03_JPRB, 0.544248E-03_JPRB &
+  &, 0.451709E-03_JPRB, 0.390278E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART34',0,ZHOOK_HANDLE)
+
+XCW( 232, :) = (/ &
+  &  0.925119E+00_JPRB, 0.906016E+00_JPRB, 0.886782E+00_JPRB, 0.867435E+00_JPRB &
+  &, 0.847985E+00_JPRB, 0.828448E+00_JPRB, 0.808837E+00_JPRB &
+  &, 0.789166E+00_JPRB, 0.769448E+00_JPRB, 0.749699E+00_JPRB, 0.729933E+00_JPRB &
+  &, 0.710165E+00_JPRB, 0.690410E+00_JPRB, 0.670684E+00_JPRB &
+  &, 0.651003E+00_JPRB, 0.631382E+00_JPRB, 0.611837E+00_JPRB, 0.592385E+00_JPRB &
+  &, 0.573043E+00_JPRB, 0.553825E+00_JPRB, 0.534751E+00_JPRB &
+  &, 0.515839E+00_JPRB, 0.497106E+00_JPRB, 0.478564E+00_JPRB, 0.460238E+00_JPRB &
+  &, 0.442139E+00_JPRB, 0.424290E+00_JPRB, 0.406704E+00_JPRB &
+  &, 0.389401E+00_JPRB, 0.372393E+00_JPRB, 0.355700E+00_JPRB, 0.339335E+00_JPRB &
+  &, 0.323313E+00_JPRB, 0.307657E+00_JPRB, 0.292367E+00_JPRB &
+  &, 0.277468E+00_JPRB, 0.262957E+00_JPRB, 0.248863E+00_JPRB, 0.235188E+00_JPRB &
+  &, 0.221940E+00_JPRB, 0.209138E+00_JPRB, 0.196760E+00_JPRB &
+  &, 0.184844E+00_JPRB, 0.173373E+00_JPRB, 0.162362E+00_JPRB, 0.151801E+00_JPRB &
+  &, 0.141701E+00_JPRB, 0.132045E+00_JPRB, 0.122853E+00_JPRB &
+  &, 0.114103E+00_JPRB, 0.105796E+00_JPRB, 0.979147E-01_JPRB, 0.904690E-01_JPRB &
+  &, 0.834364E-01_JPRB, 0.768197E-01_JPRB, 0.705894E-01_JPRB &
+  &, 0.647573E-01_JPRB, 0.592865E-01_JPRB, 0.541832E-01_JPRB, 0.494356E-01_JPRB &
+  &, 0.450118E-01_JPRB, 0.409098E-01_JPRB, 0.371080E-01_JPRB &
+  &, 0.335813E-01_JPRB, 0.303561E-01_JPRB, 0.273653E-01_JPRB, 0.246312E-01_JPRB &
+  &, 0.221371E-01_JPRB, 0.198437E-01_JPRB, 0.177484E-01_JPRB &
+  &, 0.158683E-01_JPRB, 0.141351E-01_JPRB, 0.125838E-01_JPRB, 0.111618E-01_JPRB &
+  &, 0.987994E-02_JPRB, 0.874963E-02_JPRB, 0.771092E-02_JPRB &
+  &, 0.679575E-02_JPRB, 0.596379E-02_JPRB, 0.524693E-02_JPRB, 0.457605E-02_JPRB &
+  &, 0.400768E-02_JPRB, 0.349532E-02_JPRB, 0.304316E-02_JPRB &
+  &, 0.262764E-02_JPRB, 0.227998E-02_JPRB, 0.197576E-02_JPRB, 0.171796E-02_JPRB &
+  &, 0.147966E-02_JPRB, 0.126232E-02_JPRB, 0.106746E-02_JPRB &
+  &, 0.928284E-03_JPRB, 0.783620E-03_JPRB, 0.666187E-03_JPRB, 0.577639E-03_JPRB &
+  &, 0.485687E-03_JPRB, 0.390278E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 233, :) = (/ &
+  &  0.925433E+00_JPRB, 0.906401E+00_JPRB, 0.887237E+00_JPRB, 0.867957E+00_JPRB &
+  &, 0.848574E+00_JPRB, 0.829100E+00_JPRB, 0.809550E+00_JPRB &
+  &, 0.789937E+00_JPRB, 0.770275E+00_JPRB, 0.750580E+00_JPRB, 0.730865E+00_JPRB &
+  &, 0.711145E+00_JPRB, 0.691438E+00_JPRB, 0.671755E+00_JPRB &
+  &, 0.652114E+00_JPRB, 0.632531E+00_JPRB, 0.613020E+00_JPRB, 0.593602E+00_JPRB &
+  &, 0.574288E+00_JPRB, 0.555097E+00_JPRB, 0.536048E+00_JPRB &
+  &, 0.517156E+00_JPRB, 0.498442E+00_JPRB, 0.479918E+00_JPRB, 0.461602E+00_JPRB &
+  &, 0.443514E+00_JPRB, 0.425672E+00_JPRB, 0.408090E+00_JPRB &
+  &, 0.390785E+00_JPRB, 0.373775E+00_JPRB, 0.357080E+00_JPRB, 0.340708E+00_JPRB &
+  &, 0.324677E+00_JPRB, 0.309006E+00_JPRB, 0.293706E+00_JPRB &
+  &, 0.278788E+00_JPRB, 0.264263E+00_JPRB, 0.250144E+00_JPRB, 0.236451E+00_JPRB &
+  &, 0.223019E+00_JPRB, 0.210340E+00_JPRB, 0.197949E+00_JPRB &
+  &, 0.185996E+00_JPRB, 0.174497E+00_JPRB, 0.163444E+00_JPRB, 0.152851E+00_JPRB &
+  &, 0.142715E+00_JPRB, 0.133034E+00_JPRB, 0.123790E+00_JPRB &
+  &, 0.115010E+00_JPRB, 0.106657E+00_JPRB, 0.987417E-01_JPRB, 0.912594E-01_JPRB &
+  &, 0.841879E-01_JPRB, 0.775299E-01_JPRB, 0.712708E-01_JPRB &
+  &, 0.654082E-01_JPRB, 0.599049E-01_JPRB, 0.547673E-01_JPRB, 0.499667E-01_JPRB &
+  &, 0.455210E-01_JPRB, 0.413785E-01_JPRB, 0.375518E-01_JPRB &
+  &, 0.339986E-01_JPRB, 0.307271E-01_JPRB, 0.277255E-01_JPRB, 0.249605E-01_JPRB &
+  &, 0.224340E-01_JPRB, 0.201268E-01_JPRB, 0.180168E-01_JPRB &
+  &, 0.161002E-01_JPRB, 0.143504E-01_JPRB, 0.127816E-01_JPRB, 0.113413E-01_JPRB &
+  &, 0.100631E-01_JPRB, 0.888984E-02_JPRB, 0.785397E-02_JPRB &
+  &, 0.691735E-02_JPRB, 0.608782E-02_JPRB, 0.534813E-02_JPRB, 0.467924E-02_JPRB &
+  &, 0.408658E-02_JPRB, 0.357575E-02_JPRB, 0.309781E-02_JPRB &
+  &, 0.268334E-02_JPRB, 0.233673E-02_JPRB, 0.203358E-02_JPRB, 0.174741E-02_JPRB &
+  &, 0.150965E-02_JPRB, 0.129286E-02_JPRB, 0.109856E-02_JPRB &
+  &, 0.959949E-03_JPRB, 0.815855E-03_JPRB, 0.698997E-03_JPRB, 0.577639E-03_JPRB &
+  &, 0.485687E-03_JPRB, 0.424848E-03_JPRB, 0.361697E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 234, :) = (/ &
+  &  0.925744E+00_JPRB, 0.906783E+00_JPRB, 0.887690E+00_JPRB, 0.868479E+00_JPRB &
+  &, 0.849161E+00_JPRB, 0.829751E+00_JPRB, 0.810261E+00_JPRB &
+  &, 0.790707E+00_JPRB, 0.771102E+00_JPRB, 0.751460E+00_JPRB, 0.731796E+00_JPRB &
+  &, 0.712126E+00_JPRB, 0.692463E+00_JPRB, 0.672823E+00_JPRB &
+  &, 0.653222E+00_JPRB, 0.633677E+00_JPRB, 0.614202E+00_JPRB, 0.594815E+00_JPRB &
+  &, 0.575532E+00_JPRB, 0.556369E+00_JPRB, 0.537342E+00_JPRB &
+  &, 0.518472E+00_JPRB, 0.499775E+00_JPRB, 0.481268E+00_JPRB, 0.462963E+00_JPRB &
+  &, 0.444886E+00_JPRB, 0.427051E+00_JPRB, 0.409471E+00_JPRB &
+  &, 0.392169E+00_JPRB, 0.375162E+00_JPRB, 0.358460E+00_JPRB, 0.342084E+00_JPRB &
+  &, 0.326045E+00_JPRB, 0.310360E+00_JPRB, 0.295044E+00_JPRB &
+  &, 0.280109E+00_JPRB, 0.265570E+00_JPRB, 0.251435E+00_JPRB, 0.237714E+00_JPRB &
+  &, 0.224417E+00_JPRB, 0.211552E+00_JPRB, 0.199126E+00_JPRB &
+  &, 0.187147E+00_JPRB, 0.175609E+00_JPRB, 0.164538E+00_JPRB, 0.153912E+00_JPRB &
+  &, 0.143729E+00_JPRB, 0.134011E+00_JPRB, 0.124739E+00_JPRB &
+  &, 0.115916E+00_JPRB, 0.107532E+00_JPRB, 0.995825E-01_JPRB, 0.920639E-01_JPRB &
+  &, 0.849538E-01_JPRB, 0.782548E-01_JPRB, 0.719674E-01_JPRB &
+  &, 0.660436E-01_JPRB, 0.605234E-01_JPRB, 0.553351E-01_JPRB, 0.505144E-01_JPRB &
+  &, 0.460303E-01_JPRB, 0.418646E-01_JPRB, 0.379955E-01_JPRB &
+  &, 0.344160E-01_JPRB, 0.311166E-01_JPRB, 0.280857E-01_JPRB, 0.253092E-01_JPRB &
+  &, 0.227507E-01_JPRB, 0.204098E-01_JPRB, 0.182853E-01_JPRB &
+  &, 0.163322E-01_JPRB, 0.145657E-01_JPRB, 0.129795E-01_JPRB, 0.115208E-01_JPRB &
+  &, 0.102234E-01_JPRB, 0.905341E-02_JPRB, 0.799702E-02_JPRB &
+  &, 0.703896E-02_JPRB, 0.618705E-02_JPRB, 0.544932E-02_JPRB, 0.475663E-02_JPRB &
+  &, 0.416549E-02_JPRB, 0.362937E-02_JPRB, 0.317979E-02_JPRB &
+  &, 0.273903E-02_JPRB, 0.239348E-02_JPRB, 0.206249E-02_JPRB, 0.177686E-02_JPRB &
+  &, 0.153965E-02_JPRB, 0.132341E-02_JPRB, 0.112966E-02_JPRB &
+  &, 0.959949E-03_JPRB, 0.815855E-03_JPRB, 0.698997E-03_JPRB, 0.611029E-03_JPRB &
+  &, 0.519664E-03_JPRB, 0.424848E-03_JPRB, 0.361697E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.264700E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 235, :) = (/ &
+  &  0.926054E+00_JPRB, 0.907166E+00_JPRB, 0.888143E+00_JPRB, 0.869000E+00_JPRB &
+  &, 0.849748E+00_JPRB, 0.830400E+00_JPRB, 0.810972E+00_JPRB &
+  &, 0.791476E+00_JPRB, 0.771927E+00_JPRB, 0.752339E+00_JPRB, 0.732726E+00_JPRB &
+  &, 0.713103E+00_JPRB, 0.693486E+00_JPRB, 0.673890E+00_JPRB &
+  &, 0.654330E+00_JPRB, 0.634823E+00_JPRB, 0.615384E+00_JPRB, 0.596028E+00_JPRB &
+  &, 0.576775E+00_JPRB, 0.557638E+00_JPRB, 0.538636E+00_JPRB &
+  &, 0.519788E+00_JPRB, 0.501107E+00_JPRB, 0.482614E+00_JPRB, 0.464327E+00_JPRB &
+  &, 0.446261E+00_JPRB, 0.428429E+00_JPRB, 0.410856E+00_JPRB &
+  &, 0.393558E+00_JPRB, 0.376544E+00_JPRB, 0.359840E+00_JPRB, 0.343456E+00_JPRB &
+  &, 0.327409E+00_JPRB, 0.311713E+00_JPRB, 0.296386E+00_JPRB &
+  &, 0.281430E+00_JPRB, 0.266876E+00_JPRB, 0.252716E+00_JPRB, 0.238978E+00_JPRB &
+  &, 0.225650E+00_JPRB, 0.212764E+00_JPRB, 0.200304E+00_JPRB &
+  &, 0.188299E+00_JPRB, 0.176733E+00_JPRB, 0.165620E+00_JPRB, 0.154961E+00_JPRB &
+  &, 0.144756E+00_JPRB, 0.135000E+00_JPRB, 0.125688E+00_JPRB &
+  &, 0.116823E+00_JPRB, 0.108407E+00_JPRB, 0.100423E+00_JPRB, 0.928543E-01_JPRB &
+  &, 0.857197E-01_JPRB, 0.789796E-01_JPRB, 0.726488E-01_JPRB &
+  &, 0.667099E-01_JPRB, 0.611260E-01_JPRB, 0.559192E-01_JPRB, 0.510621E-01_JPRB &
+  &, 0.465396E-01_JPRB, 0.423333E-01_JPRB, 0.384393E-01_JPRB &
+  &, 0.348334E-01_JPRB, 0.315061E-01_JPRB, 0.284459E-01_JPRB, 0.256385E-01_JPRB &
+  &, 0.230673E-01_JPRB, 0.206929E-01_JPRB, 0.185331E-01_JPRB &
+  &, 0.165853E-01_JPRB, 0.148026E-01_JPRB, 0.131773E-01_JPRB, 0.117227E-01_JPRB &
+  &, 0.103837E-01_JPRB, 0.919362E-02_JPRB, 0.814007E-02_JPRB &
+  &, 0.716057E-02_JPRB, 0.631109E-02_JPRB, 0.555052E-02_JPRB, 0.485981E-02_JPRB &
+  &, 0.424439E-02_JPRB, 0.370980E-02_JPRB, 0.323444E-02_JPRB &
+  &, 0.282258E-02_JPRB, 0.245023E-02_JPRB, 0.212030E-02_JPRB, 0.183576E-02_JPRB &
+  &, 0.156964E-02_JPRB, 0.135395E-02_JPRB, 0.116076E-02_JPRB &
+  &, 0.991614E-03_JPRB, 0.848089E-03_JPRB, 0.731806E-03_JPRB, 0.611029E-03_JPRB &
+  &, 0.519664E-03_JPRB, 0.424848E-03_JPRB, 0.361697E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 236, :) = (/ &
+  &  0.926364E+00_JPRB, 0.907549E+00_JPRB, 0.888595E+00_JPRB, 0.869520E+00_JPRB &
+  &, 0.850333E+00_JPRB, 0.831049E+00_JPRB, 0.811681E+00_JPRB &
+  &, 0.792244E+00_JPRB, 0.772750E+00_JPRB, 0.753216E+00_JPRB, 0.733654E+00_JPRB &
+  &, 0.714080E+00_JPRB, 0.694509E+00_JPRB, 0.674956E+00_JPRB &
+  &, 0.655437E+00_JPRB, 0.635967E+00_JPRB, 0.616562E+00_JPRB, 0.597240E+00_JPRB &
+  &, 0.578016E+00_JPRB, 0.558907E+00_JPRB, 0.539930E+00_JPRB &
+  &, 0.521104E+00_JPRB, 0.502440E+00_JPRB, 0.483964E+00_JPRB, 0.465688E+00_JPRB &
+  &, 0.447632E+00_JPRB, 0.429811E+00_JPRB, 0.412242E+00_JPRB &
+  &, 0.394942E+00_JPRB, 0.377930E+00_JPRB, 0.361224E+00_JPRB, 0.344833E+00_JPRB &
+  &, 0.328777E+00_JPRB, 0.313072E+00_JPRB, 0.297729E+00_JPRB &
+  &, 0.282760E+00_JPRB, 0.268183E+00_JPRB, 0.254007E+00_JPRB, 0.240241E+00_JPRB &
+  &, 0.226894E+00_JPRB, 0.213975E+00_JPRB, 0.201492E+00_JPRB &
+  &, 0.189451E+00_JPRB, 0.177857E+00_JPRB, 0.166714E+00_JPRB, 0.156022E+00_JPRB &
+  &, 0.145782E+00_JPRB, 0.135989E+00_JPRB, 0.126650E+00_JPRB &
+  &, 0.117743E+00_JPRB, 0.109281E+00_JPRB, 0.101264E+00_JPRB, 0.936588E-01_JPRB &
+  &, 0.864856E-01_JPRB, 0.797193E-01_JPRB, 0.733454E-01_JPRB &
+  &, 0.673608E-01_JPRB, 0.617603E-01_JPRB, 0.565033E-01_JPRB, 0.516098E-01_JPRB &
+  &, 0.470658E-01_JPRB, 0.428194E-01_JPRB, 0.389008E-01_JPRB &
+  &, 0.352689E-01_JPRB, 0.319142E-01_JPRB, 0.288250E-01_JPRB, 0.259678E-01_JPRB &
+  &, 0.233642E-01_JPRB, 0.209962E-01_JPRB, 0.188015E-01_JPRB &
+  &, 0.168172E-01_JPRB, 0.150179E-01_JPRB, 0.133752E-01_JPRB, 0.119022E-01_JPRB &
+  &, 0.105669E-01_JPRB, 0.935720E-02_JPRB, 0.825928E-02_JPRB &
+  &, 0.730650E-02_JPRB, 0.643513E-02_JPRB, 0.565172E-02_JPRB, 0.493720E-02_JPRB &
+  &, 0.432329E-02_JPRB, 0.379023E-02_JPRB, 0.328909E-02_JPRB &
+  &, 0.287827E-02_JPRB, 0.247861E-02_JPRB, 0.214921E-02_JPRB, 0.186520E-02_JPRB &
+  &, 0.159963E-02_JPRB, 0.138450E-02_JPRB, 0.119186E-02_JPRB &
+  &, 0.102328E-02_JPRB, 0.880323E-03_JPRB, 0.731806E-03_JPRB, 0.644420E-03_JPRB &
+  &, 0.519664E-03_JPRB, 0.459419E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 237, :) = (/ &
+  &  0.926673E+00_JPRB, 0.907930E+00_JPRB, 0.889046E+00_JPRB, 0.870038E+00_JPRB &
+  &, 0.850917E+00_JPRB, 0.831696E+00_JPRB, 0.812389E+00_JPRB &
+  &, 0.793010E+00_JPRB, 0.773573E+00_JPRB, 0.754092E+00_JPRB, 0.734581E+00_JPRB &
+  &, 0.715054E+00_JPRB, 0.695530E+00_JPRB, 0.676020E+00_JPRB &
+  &, 0.656542E+00_JPRB, 0.637110E+00_JPRB, 0.617741E+00_JPRB, 0.598451E+00_JPRB &
+  &, 0.579257E+00_JPRB, 0.560176E+00_JPRB, 0.541223E+00_JPRB &
+  &, 0.522417E+00_JPRB, 0.503773E+00_JPRB, 0.485314E+00_JPRB, 0.467052E+00_JPRB &
+  &, 0.449003E+00_JPRB, 0.431189E+00_JPRB, 0.413627E+00_JPRB &
+  &, 0.396330E+00_JPRB, 0.379317E+00_JPRB, 0.362604E+00_JPRB, 0.346209E+00_JPRB &
+  &, 0.330145E+00_JPRB, 0.314430E+00_JPRB, 0.299071E+00_JPRB &
+  &, 0.284090E+00_JPRB, 0.269489E+00_JPRB, 0.255297E+00_JPRB, 0.241504E+00_JPRB &
+  &, 0.228138E+00_JPRB, 0.215198E+00_JPRB, 0.202681E+00_JPRB &
+  &, 0.190614E+00_JPRB, 0.178992E+00_JPRB, 0.167807E+00_JPRB, 0.157084E+00_JPRB &
+  &, 0.146808E+00_JPRB, 0.136978E+00_JPRB, 0.127599E+00_JPRB &
+  &, 0.118663E+00_JPRB, 0.110170E+00_JPRB, 0.102105E+00_JPRB, 0.944775E-01_JPRB &
+  &, 0.872515E-01_JPRB, 0.804442E-01_JPRB, 0.740419E-01_JPRB &
+  &, 0.680272E-01_JPRB, 0.623788E-01_JPRB, 0.571036E-01_JPRB, 0.521741E-01_JPRB &
+  &, 0.475751E-01_JPRB, 0.433055E-01_JPRB, 0.393623E-01_JPRB &
+  &, 0.356863E-01_JPRB, 0.323037E-01_JPRB, 0.291852E-01_JPRB, 0.263165E-01_JPRB &
+  &, 0.236809E-01_JPRB, 0.212792E-01_JPRB, 0.190700E-01_JPRB &
+  &, 0.170703E-01_JPRB, 0.152548E-01_JPRB, 0.135950E-01_JPRB, 0.120817E-01_JPRB &
+  &, 0.107272E-01_JPRB, 0.952077E-02_JPRB, 0.840233E-02_JPRB &
+  &, 0.742811E-02_JPRB, 0.653436E-02_JPRB, 0.575291E-02_JPRB, 0.504039E-02_JPRB &
+  &, 0.442849E-02_JPRB, 0.387066E-02_JPRB, 0.337107E-02_JPRB &
+  &, 0.293396E-02_JPRB, 0.253536E-02_JPRB, 0.220703E-02_JPRB, 0.189465E-02_JPRB &
+  &, 0.162962E-02_JPRB, 0.141504E-02_JPRB, 0.122297E-02_JPRB &
+  &, 0.105494E-02_JPRB, 0.880323E-03_JPRB, 0.764615E-03_JPRB, 0.644420E-03_JPRB &
+  &, 0.553642E-03_JPRB, 0.459419E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 238, :) = (/ &
+  &  0.926982E+00_JPRB, 0.908310E+00_JPRB, 0.889496E+00_JPRB, 0.870556E+00_JPRB &
+  &, 0.851500E+00_JPRB, 0.832342E+00_JPRB, 0.813095E+00_JPRB &
+  &, 0.793775E+00_JPRB, 0.774394E+00_JPRB, 0.754965E+00_JPRB, 0.735506E+00_JPRB &
+  &, 0.716029E+00_JPRB, 0.696550E+00_JPRB, 0.677084E+00_JPRB &
+  &, 0.657646E+00_JPRB, 0.638252E+00_JPRB, 0.618918E+00_JPRB, 0.599661E+00_JPRB &
+  &, 0.580497E+00_JPRB, 0.561442E+00_JPRB, 0.542514E+00_JPRB &
+  &, 0.523730E+00_JPRB, 0.505106E+00_JPRB, 0.486661E+00_JPRB, 0.468412E+00_JPRB &
+  &, 0.450374E+00_JPRB, 0.432568E+00_JPRB, 0.415008E+00_JPRB &
+  &, 0.397718E+00_JPRB, 0.380703E+00_JPRB, 0.363988E+00_JPRB, 0.347586E+00_JPRB &
+  &, 0.331517E+00_JPRB, 0.315788E+00_JPRB, 0.300419E+00_JPRB &
+  &, 0.285420E+00_JPRB, 0.270806E+00_JPRB, 0.256588E+00_JPRB, 0.242777E+00_JPRB &
+  &, 0.229382E+00_JPRB, 0.216410E+00_JPRB, 0.203880E+00_JPRB &
+  &, 0.191777E+00_JPRB, 0.180116E+00_JPRB, 0.168913E+00_JPRB, 0.158145E+00_JPRB &
+  &, 0.147835E+00_JPRB, 0.137980E+00_JPRB, 0.128561E+00_JPRB &
+  &, 0.119582E+00_JPRB, 0.111058E+00_JPRB, 0.102959E+00_JPRB, 0.952820E-01_JPRB &
+  &, 0.880319E-01_JPRB, 0.811839E-01_JPRB, 0.747385E-01_JPRB &
+  &, 0.686781E-01_JPRB, 0.630131E-01_JPRB, 0.576877E-01_JPRB, 0.527218E-01_JPRB &
+  &, 0.481013E-01_JPRB, 0.438089E-01_JPRB, 0.398061E-01_JPRB &
+  &, 0.361218E-01_JPRB, 0.327118E-01_JPRB, 0.295644E-01_JPRB, 0.266652E-01_JPRB &
+  &, 0.240173E-01_JPRB, 0.215825E-01_JPRB, 0.193591E-01_JPRB &
+  &, 0.173233E-01_JPRB, 0.154701E-01_JPRB, 0.137928E-01_JPRB, 0.122837E-01_JPRB &
+  &, 0.109104E-01_JPRB, 0.966098E-02_JPRB, 0.854538E-02_JPRB &
+  &, 0.754972E-02_JPRB, 0.665839E-02_JPRB, 0.585411E-02_JPRB, 0.514358E-02_JPRB &
+  &, 0.450739E-02_JPRB, 0.392428E-02_JPRB, 0.342572E-02_JPRB &
+  &, 0.298966E-02_JPRB, 0.259211E-02_JPRB, 0.226484E-02_JPRB, 0.195355E-02_JPRB &
+  &, 0.168961E-02_JPRB, 0.144559E-02_JPRB, 0.125407E-02_JPRB &
+  &, 0.105494E-02_JPRB, 0.912557E-03_JPRB, 0.764615E-03_JPRB, 0.677810E-03_JPRB &
+  &, 0.553642E-03_JPRB, 0.459419E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART35',0,ZHOOK_HANDLE)
+
+XCW( 239, :) = (/ &
+  &  0.927289E+00_JPRB, 0.908689E+00_JPRB, 0.889945E+00_JPRB, 0.871073E+00_JPRB &
+  &, 0.852082E+00_JPRB, 0.832987E+00_JPRB, 0.813801E+00_JPRB &
+  &, 0.794539E+00_JPRB, 0.775213E+00_JPRB, 0.755839E+00_JPRB, 0.736430E+00_JPRB &
+  &, 0.717002E+00_JPRB, 0.697568E+00_JPRB, 0.678145E+00_JPRB &
+  &, 0.658749E+00_JPRB, 0.639393E+00_JPRB, 0.620094E+00_JPRB, 0.600870E+00_JPRB &
+  &, 0.581736E+00_JPRB, 0.562708E+00_JPRB, 0.543804E+00_JPRB &
+  &, 0.525043E+00_JPRB, 0.506439E+00_JPRB, 0.488007E+00_JPRB, 0.469773E+00_JPRB &
+  &, 0.451746E+00_JPRB, 0.433950E+00_JPRB, 0.416394E+00_JPRB &
+  &, 0.399102E+00_JPRB, 0.382090E+00_JPRB, 0.365372E+00_JPRB, 0.348967E+00_JPRB &
+  &, 0.332885E+00_JPRB, 0.317146E+00_JPRB, 0.301761E+00_JPRB &
+  &, 0.286750E+00_JPRB, 0.272112E+00_JPRB, 0.257879E+00_JPRB, 0.244051E+00_JPRB &
+  &, 0.230625E+00_JPRB, 0.217632E+00_JPRB, 0.205068E+00_JPRB &
+  &, 0.192939E+00_JPRB, 0.181251E+00_JPRB, 0.170018E+00_JPRB, 0.159218E+00_JPRB &
+  &, 0.148873E+00_JPRB, 0.138981E+00_JPRB, 0.129523E+00_JPRB &
+  &, 0.120515E+00_JPRB, 0.111946E+00_JPRB, 0.103814E+00_JPRB, 0.961006E-01_JPRB &
+  &, 0.888122E-01_JPRB, 0.819236E-01_JPRB, 0.754502E-01_JPRB &
+  &, 0.693600E-01_JPRB, 0.636315E-01_JPRB, 0.582880E-01_JPRB, 0.532861E-01_JPRB &
+  &, 0.486275E-01_JPRB, 0.442950E-01_JPRB, 0.402853E-01_JPRB &
+  &, 0.365573E-01_JPRB, 0.331199E-01_JPRB, 0.299435E-01_JPRB, 0.270139E-01_JPRB &
+  &, 0.243340E-01_JPRB, 0.218655E-01_JPRB, 0.196275E-01_JPRB &
+  &, 0.175764E-01_JPRB, 0.157070E-01_JPRB, 0.140127E-01_JPRB, 0.124632E-01_JPRB &
+  &, 0.110936E-01_JPRB, 0.982456E-02_JPRB, 0.871227E-02_JPRB &
+  &, 0.769565E-02_JPRB, 0.678243E-02_JPRB, 0.595531E-02_JPRB, 0.524677E-02_JPRB &
+  &, 0.458629E-02_JPRB, 0.400471E-02_JPRB, 0.350769E-02_JPRB &
+  &, 0.304535E-02_JPRB, 0.264886E-02_JPRB, 0.229375E-02_JPRB, 0.198299E-02_JPRB &
+  &, 0.171960E-02_JPRB, 0.147613E-02_JPRB, 0.128517E-02_JPRB &
+  &, 0.108661E-02_JPRB, 0.944791E-03_JPRB, 0.797425E-03_JPRB, 0.677810E-03_JPRB &
+  &, 0.587619E-03_JPRB, 0.493990E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.301085E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 240, :) = (/ &
+  &  0.927595E+00_JPRB, 0.909068E+00_JPRB, 0.890394E+00_JPRB, 0.871588E+00_JPRB &
+  &, 0.852662E+00_JPRB, 0.833630E+00_JPRB, 0.814505E+00_JPRB &
+  &, 0.795301E+00_JPRB, 0.776031E+00_JPRB, 0.756710E+00_JPRB, 0.737353E+00_JPRB &
+  &, 0.717972E+00_JPRB, 0.698586E+00_JPRB, 0.679206E+00_JPRB &
+  &, 0.659849E+00_JPRB, 0.640531E+00_JPRB, 0.621270E+00_JPRB, 0.602078E+00_JPRB &
+  &, 0.582974E+00_JPRB, 0.563974E+00_JPRB, 0.545095E+00_JPRB &
+  &, 0.526353E+00_JPRB, 0.507768E+00_JPRB, 0.489354E+00_JPRB, 0.471134E+00_JPRB &
+  &, 0.453117E+00_JPRB, 0.435328E+00_JPRB, 0.417779E+00_JPRB &
+  &, 0.400490E+00_JPRB, 0.383476E+00_JPRB, 0.366755E+00_JPRB, 0.350343E+00_JPRB &
+  &, 0.334257E+00_JPRB, 0.318505E+00_JPRB, 0.303113E+00_JPRB &
+  &, 0.288080E+00_JPRB, 0.273428E+00_JPRB, 0.259179E+00_JPRB, 0.245324E+00_JPRB &
+  &, 0.231879E+00_JPRB, 0.218855E+00_JPRB, 0.206267E+00_JPRB &
+  &, 0.194113E+00_JPRB, 0.182386E+00_JPRB, 0.171123E+00_JPRB, 0.160291E+00_JPRB &
+  &, 0.149912E+00_JPRB, 0.139983E+00_JPRB, 0.130485E+00_JPRB &
+  &, 0.121448E+00_JPRB, 0.112834E+00_JPRB, 0.104669E+00_JPRB, 0.969193E-01_JPRB &
+  &, 0.895926E-01_JPRB, 0.826781E-01_JPRB, 0.761467E-01_JPRB &
+  &, 0.700263E-01_JPRB, 0.642817E-01_JPRB, 0.588883E-01_JPRB, 0.538504E-01_JPRB &
+  &, 0.491707E-01_JPRB, 0.447984E-01_JPRB, 0.407468E-01_JPRB &
+  &, 0.369928E-01_JPRB, 0.335094E-01_JPRB, 0.303226E-01_JPRB, 0.273626E-01_JPRB &
+  &, 0.246507E-01_JPRB, 0.221688E-01_JPRB, 0.198960E-01_JPRB &
+  &, 0.178295E-01_JPRB, 0.159438E-01_JPRB, 0.142325E-01_JPRB, 0.126651E-01_JPRB &
+  &, 0.112539E-01_JPRB, 0.998813E-02_JPRB, 0.885533E-02_JPRB &
+  &, 0.781726E-02_JPRB, 0.690647E-02_JPRB, 0.608180E-02_JPRB, 0.532416E-02_JPRB &
+  &, 0.466520E-02_JPRB, 0.408514E-02_JPRB, 0.356235E-02_JPRB &
+  &, 0.310105E-02_JPRB, 0.270560E-02_JPRB, 0.235157E-02_JPRB, 0.204189E-02_JPRB &
+  &, 0.174960E-02_JPRB, 0.150668E-02_JPRB, 0.131627E-02_JPRB &
+  &, 0.111827E-02_JPRB, 0.944791E-03_JPRB, 0.830234E-03_JPRB, 0.711201E-03_JPRB &
+  &, 0.587619E-03_JPRB, 0.493990E-03_JPRB, 0.432037E-03_JPRB &
+  &, 0.367747E-03_JPRB, 0.301085E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 241, :) = (/ &
+  &  0.927903E+00_JPRB, 0.909446E+00_JPRB, 0.890841E+00_JPRB, 0.872103E+00_JPRB &
+  &, 0.853242E+00_JPRB, 0.834273E+00_JPRB, 0.815209E+00_JPRB &
+  &, 0.796062E+00_JPRB, 0.776848E+00_JPRB, 0.757581E+00_JPRB, 0.738275E+00_JPRB &
+  &, 0.718942E+00_JPRB, 0.699601E+00_JPRB, 0.680264E+00_JPRB &
+  &, 0.660949E+00_JPRB, 0.641670E+00_JPRB, 0.622442E+00_JPRB, 0.603284E+00_JPRB &
+  &, 0.584210E+00_JPRB, 0.565236E+00_JPRB, 0.546382E+00_JPRB &
+  &, 0.527666E+00_JPRB, 0.509098E+00_JPRB, 0.490701E+00_JPRB, 0.472494E+00_JPRB &
+  &, 0.454488E+00_JPRB, 0.436707E+00_JPRB, 0.419164E+00_JPRB &
+  &, 0.401878E+00_JPRB, 0.384866E+00_JPRB, 0.368140E+00_JPRB, 0.351724E+00_JPRB &
+  &, 0.335629E+00_JPRB, 0.319867E+00_JPRB, 0.304460E+00_JPRB &
+  &, 0.289411E+00_JPRB, 0.274744E+00_JPRB, 0.260470E+00_JPRB, 0.246597E+00_JPRB &
+  &, 0.233133E+00_JPRB, 0.220087E+00_JPRB, 0.207466E+00_JPRB &
+  &, 0.195276E+00_JPRB, 0.183533E+00_JPRB, 0.172229E+00_JPRB, 0.161364E+00_JPRB &
+  &, 0.150951E+00_JPRB, 0.140985E+00_JPRB, 0.131460E+00_JPRB &
+  &, 0.122381E+00_JPRB, 0.113736E+00_JPRB, 0.105523E+00_JPRB, 0.977379E-01_JPRB &
+  &, 0.903730E-01_JPRB, 0.834178E-01_JPRB, 0.768584E-01_JPRB &
+  &, 0.707082E-01_JPRB, 0.649160E-01_JPRB, 0.594886E-01_JPRB, 0.544313E-01_JPRB &
+  &, 0.496970E-01_JPRB, 0.453018E-01_JPRB, 0.412261E-01_JPRB &
+  &, 0.374283E-01_JPRB, 0.339360E-01_JPRB, 0.307018E-01_JPRB, 0.277112E-01_JPRB &
+  &, 0.249871E-01_JPRB, 0.224721E-01_JPRB, 0.201851E-01_JPRB &
+  &, 0.180825E-01_JPRB, 0.161807E-01_JPRB, 0.144523E-01_JPRB, 0.128671E-01_JPRB &
+  &, 0.114371E-01_JPRB, 0.101517E-01_JPRB, 0.899838E-02_JPRB &
+  &, 0.796319E-02_JPRB, 0.703051E-02_JPRB, 0.618300E-02_JPRB, 0.542734E-02_JPRB &
+  &, 0.477040E-02_JPRB, 0.416557E-02_JPRB, 0.364432E-02_JPRB &
+  &, 0.318459E-02_JPRB, 0.276235E-02_JPRB, 0.240938E-02_JPRB, 0.207134E-02_JPRB &
+  &, 0.180958E-02_JPRB, 0.153722E-02_JPRB, 0.134737E-02_JPRB &
+  &, 0.114994E-02_JPRB, 0.977025E-03_JPRB, 0.830234E-03_JPRB, 0.711201E-03_JPRB &
+  &, 0.621597E-03_JPRB, 0.528560E-03_JPRB, 0.432037E-03_JPRB &
+  &, 0.367747E-03_JPRB, 0.301085E-03_JPRB, 0.269018E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 242, :) = (/ &
+  &  0.928209E+00_JPRB, 0.909824E+00_JPRB, 0.891288E+00_JPRB, 0.872617E+00_JPRB &
+  &, 0.853821E+00_JPRB, 0.834915E+00_JPRB, 0.815910E+00_JPRB &
+  &, 0.796822E+00_JPRB, 0.777664E+00_JPRB, 0.758450E+00_JPRB, 0.739195E+00_JPRB &
+  &, 0.719911E+00_JPRB, 0.700616E+00_JPRB, 0.681323E+00_JPRB &
+  &, 0.662048E+00_JPRB, 0.642806E+00_JPRB, 0.623615E+00_JPRB, 0.604490E+00_JPRB &
+  &, 0.585446E+00_JPRB, 0.566499E+00_JPRB, 0.547673E+00_JPRB &
+  &, 0.528975E+00_JPRB, 0.510427E+00_JPRB, 0.492047E+00_JPRB, 0.473855E+00_JPRB &
+  &, 0.455860E+00_JPRB, 0.438085E+00_JPRB, 0.420550E+00_JPRB &
+  &, 0.403266E+00_JPRB, 0.386253E+00_JPRB, 0.369528E+00_JPRB, 0.353105E+00_JPRB &
+  &, 0.337002E+00_JPRB, 0.321230E+00_JPRB, 0.305812E+00_JPRB &
+  &, 0.290750E+00_JPRB, 0.276070E+00_JPRB, 0.261771E+00_JPRB, 0.247870E+00_JPRB &
+  &, 0.234387E+00_JPRB, 0.221310E+00_JPRB, 0.208666E+00_JPRB &
+  &, 0.196450E+00_JPRB, 0.184679E+00_JPRB, 0.173334E+00_JPRB, 0.162449E+00_JPRB &
+  &, 0.152001E+00_JPRB, 0.141999E+00_JPRB, 0.132435E+00_JPRB &
+  &, 0.123314E+00_JPRB, 0.114638E+00_JPRB, 0.106392E+00_JPRB, 0.985707E-01_JPRB &
+  &, 0.911678E-01_JPRB, 0.841723E-01_JPRB, 0.775853E-01_JPRB &
+  &, 0.713746E-01_JPRB, 0.655503E-01_JPRB, 0.601051E-01_JPRB, 0.549955E-01_JPRB &
+  &, 0.502402E-01_JPRB, 0.458053E-01_JPRB, 0.416876E-01_JPRB &
+  &, 0.378820E-01_JPRB, 0.343441E-01_JPRB, 0.310809E-01_JPRB, 0.280793E-01_JPRB &
+  &, 0.253236E-01_JPRB, 0.227753E-01_JPRB, 0.204742E-01_JPRB &
+  &, 0.183567E-01_JPRB, 0.164175E-01_JPRB, 0.146721E-01_JPRB, 0.130690E-01_JPRB &
+  &, 0.116203E-01_JPRB, 0.103153E-01_JPRB, 0.914143E-02_JPRB &
+  &, 0.808479E-02_JPRB, 0.715454E-02_JPRB, 0.628420E-02_JPRB, 0.553053E-02_JPRB &
+  &, 0.484930E-02_JPRB, 0.424601E-02_JPRB, 0.372630E-02_JPRB &
+  &, 0.324028E-02_JPRB, 0.281910E-02_JPRB, 0.243829E-02_JPRB, 0.213023E-02_JPRB &
+  &, 0.183958E-02_JPRB, 0.159831E-02_JPRB, 0.137847E-02_JPRB &
+  &, 0.118160E-02_JPRB, 0.100926E-02_JPRB, 0.863044E-03_JPRB, 0.744591E-03_JPRB &
+  &, 0.621597E-03_JPRB, 0.528560E-03_JPRB, 0.432037E-03_JPRB &
+  &, 0.367747E-03_JPRB, 0.301085E-03_JPRB, 0.269018E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 243, :) = (/ &
+  &  0.928514E+00_JPRB, 0.910200E+00_JPRB, 0.891734E+00_JPRB, 0.873130E+00_JPRB &
+  &, 0.854398E+00_JPRB, 0.835555E+00_JPRB, 0.816611E+00_JPRB &
+  &, 0.797581E+00_JPRB, 0.778479E+00_JPRB, 0.759318E+00_JPRB, 0.740113E+00_JPRB &
+  &, 0.720878E+00_JPRB, 0.701628E+00_JPRB, 0.682380E+00_JPRB &
+  &, 0.663145E+00_JPRB, 0.643943E+00_JPRB, 0.624786E+00_JPRB, 0.605694E+00_JPRB &
+  &, 0.586680E+00_JPRB, 0.567762E+00_JPRB, 0.548960E+00_JPRB &
+  &, 0.530285E+00_JPRB, 0.511757E+00_JPRB, 0.493394E+00_JPRB, 0.475212E+00_JPRB &
+  &, 0.457231E+00_JPRB, 0.439467E+00_JPRB, 0.421935E+00_JPRB &
+  &, 0.404654E+00_JPRB, 0.387643E+00_JPRB, 0.370912E+00_JPRB, 0.354486E+00_JPRB &
+  &, 0.338374E+00_JPRB, 0.322597E+00_JPRB, 0.307164E+00_JPRB &
+  &, 0.292089E+00_JPRB, 0.277386E+00_JPRB, 0.263071E+00_JPRB, 0.249153E+00_JPRB &
+  &, 0.235641E+00_JPRB, 0.222543E+00_JPRB, 0.209876E+00_JPRB &
+  &, 0.197624E+00_JPRB, 0.185815E+00_JPRB, 0.174451E+00_JPRB, 0.163522E+00_JPRB &
+  &, 0.153040E+00_JPRB, 0.143013E+00_JPRB, 0.133410E+00_JPRB &
+  &, 0.124260E+00_JPRB, 0.115540E+00_JPRB, 0.107260E+00_JPRB, 0.994034E-01_JPRB &
+  &, 0.919626E-01_JPRB, 0.849268E-01_JPRB, 0.782970E-01_JPRB &
+  &, 0.720565E-01_JPRB, 0.662005E-01_JPRB, 0.607054E-01_JPRB, 0.555764E-01_JPRB &
+  &, 0.507834E-01_JPRB, 0.463261E-01_JPRB, 0.421669E-01_JPRB &
+  &, 0.383175E-01_JPRB, 0.347522E-01_JPRB, 0.314790E-01_JPRB, 0.284474E-01_JPRB &
+  &, 0.256601E-01_JPRB, 0.230988E-01_JPRB, 0.207426E-01_JPRB &
+  &, 0.186097E-01_JPRB, 0.166544E-01_JPRB, 0.148919E-01_JPRB, 0.132710E-01_JPRB &
+  &, 0.118035E-01_JPRB, 0.105022E-01_JPRB, 0.930832E-02_JPRB &
+  &, 0.823072E-02_JPRB, 0.727858E-02_JPRB, 0.641069E-02_JPRB, 0.563372E-02_JPRB &
+  &, 0.495450E-02_JPRB, 0.432644E-02_JPRB, 0.378095E-02_JPRB &
+  &, 0.329598E-02_JPRB, 0.287585E-02_JPRB, 0.249611E-02_JPRB, 0.215968E-02_JPRB &
+  &, 0.186957E-02_JPRB, 0.162885E-02_JPRB, 0.140958E-02_JPRB &
+  &, 0.121327E-02_JPRB, 0.104149E-02_JPRB, 0.895853E-03_JPRB, 0.744591E-03_JPRB &
+  &, 0.655575E-03_JPRB, 0.528560E-03_JPRB, 0.467206E-03_JPRB &
+  &, 0.403522E-03_JPRB, 0.337471E-03_JPRB, 0.269018E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 244, :) = (/ &
+  &  0.928819E+00_JPRB, 0.910576E+00_JPRB, 0.892179E+00_JPRB, 0.873642E+00_JPRB &
+  &, 0.854975E+00_JPRB, 0.836194E+00_JPRB, 0.817311E+00_JPRB &
+  &, 0.798339E+00_JPRB, 0.779292E+00_JPRB, 0.760185E+00_JPRB, 0.741030E+00_JPRB &
+  &, 0.721844E+00_JPRB, 0.702640E+00_JPRB, 0.683435E+00_JPRB &
+  &, 0.664242E+00_JPRB, 0.645077E+00_JPRB, 0.625958E+00_JPRB, 0.606897E+00_JPRB &
+  &, 0.587914E+00_JPRB, 0.569024E+00_JPRB, 0.550244E+00_JPRB &
+  &, 0.531595E+00_JPRB, 0.513086E+00_JPRB, 0.494740E+00_JPRB, 0.476572E+00_JPRB &
+  &, 0.458602E+00_JPRB, 0.440845E+00_JPRB, 0.423320E+00_JPRB &
+  &, 0.406042E+00_JPRB, 0.389030E+00_JPRB, 0.372300E+00_JPRB, 0.355866E+00_JPRB &
+  &, 0.339751E+00_JPRB, 0.323959E+00_JPRB, 0.308515E+00_JPRB &
+  &, 0.293429E+00_JPRB, 0.278712E+00_JPRB, 0.264372E+00_JPRB, 0.250437E+00_JPRB &
+  &, 0.236896E+00_JPRB, 0.223776E+00_JPRB, 0.211075E+00_JPRB &
+  &, 0.198809E+00_JPRB, 0.186972E+00_JPRB, 0.175568E+00_JPRB, 0.164608E+00_JPRB &
+  &, 0.154091E+00_JPRB, 0.144027E+00_JPRB, 0.134398E+00_JPRB &
+  &, 0.125206E+00_JPRB, 0.116455E+00_JPRB, 0.108128E+00_JPRB, 0.100236E+00_JPRB &
+  &, 0.927574E-01_JPRB, 0.856961E-01_JPRB, 0.790238E-01_JPRB &
+  &, 0.727539E-01_JPRB, 0.668507E-01_JPRB, 0.613219E-01_JPRB, 0.561573E-01_JPRB &
+  &, 0.513266E-01_JPRB, 0.468295E-01_JPRB, 0.426461E-01_JPRB &
+  &, 0.387712E-01_JPRB, 0.351788E-01_JPRB, 0.318582E-01_JPRB, 0.287960E-01_JPRB &
+  &, 0.259965E-01_JPRB, 0.234021E-01_JPRB, 0.210317E-01_JPRB &
+  &, 0.188839E-01_JPRB, 0.169128E-01_JPRB, 0.151118E-01_JPRB, 0.134729E-01_JPRB &
+  &, 0.120096E-01_JPRB, 0.106658E-01_JPRB, 0.945137E-02_JPRB &
+  &, 0.837665E-02_JPRB, 0.740262E-02_JPRB, 0.651189E-02_JPRB, 0.573691E-02_JPRB &
+  &, 0.503340E-02_JPRB, 0.440687E-02_JPRB, 0.386293E-02_JPRB &
+  &, 0.337952E-02_JPRB, 0.293260E-02_JPRB, 0.255393E-02_JPRB, 0.221857E-02_JPRB &
+  &, 0.192956E-02_JPRB, 0.165940E-02_JPRB, 0.144068E-02_JPRB &
+  &, 0.124493E-02_JPRB, 0.104149E-02_JPRB, 0.895853E-03_JPRB, 0.777982E-03_JPRB &
+  &, 0.655575E-03_JPRB, 0.563131E-03_JPRB, 0.467206E-03_JPRB &
+  &, 0.403522E-03_JPRB, 0.337471E-03_JPRB, 0.269018E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 245, :) = (/ &
+  &  0.929123E+00_JPRB, 0.910950E+00_JPRB, 0.892622E+00_JPRB, 0.874153E+00_JPRB &
+  &, 0.855551E+00_JPRB, 0.836832E+00_JPRB, 0.818009E+00_JPRB &
+  &, 0.799095E+00_JPRB, 0.780104E+00_JPRB, 0.761050E+00_JPRB, 0.741947E+00_JPRB &
+  &, 0.722809E+00_JPRB, 0.703651E+00_JPRB, 0.684489E+00_JPRB &
+  &, 0.665337E+00_JPRB, 0.646210E+00_JPRB, 0.627126E+00_JPRB, 0.608100E+00_JPRB &
+  &, 0.589147E+00_JPRB, 0.570284E+00_JPRB, 0.551531E+00_JPRB &
+  &, 0.532901E+00_JPRB, 0.514412E+00_JPRB, 0.496083E+00_JPRB, 0.477933E+00_JPRB &
+  &, 0.459973E+00_JPRB, 0.442224E+00_JPRB, 0.424705E+00_JPRB &
+  &, 0.407430E+00_JPRB, 0.390420E+00_JPRB, 0.373688E+00_JPRB, 0.357251E+00_JPRB &
+  &, 0.341127E+00_JPRB, 0.325327E+00_JPRB, 0.309871E+00_JPRB &
+  &, 0.294768E+00_JPRB, 0.280028E+00_JPRB, 0.265682E+00_JPRB, 0.251720E+00_JPRB &
+  &, 0.238160E+00_JPRB, 0.225009E+00_JPRB, 0.212285E+00_JPRB &
+  &, 0.199983E+00_JPRB, 0.188119E+00_JPRB, 0.176685E+00_JPRB, 0.165705E+00_JPRB &
+  &, 0.155154E+00_JPRB, 0.145041E+00_JPRB, 0.135385E+00_JPRB &
+  &, 0.126152E+00_JPRB, 0.117370E+00_JPRB, 0.109010E+00_JPRB, 0.101069E+00_JPRB &
+  &, 0.935522E-01_JPRB, 0.864506E-01_JPRB, 0.797507E-01_JPRB &
+  &, 0.734357E-01_JPRB, 0.675167E-01_JPRB, 0.619547E-01_JPRB, 0.567382E-01_JPRB &
+  &, 0.518868E-01_JPRB, 0.473503E-01_JPRB, 0.431431E-01_JPRB &
+  &, 0.392249E-01_JPRB, 0.356054E-01_JPRB, 0.322563E-01_JPRB, 0.291641E-01_JPRB &
+  &, 0.263330E-01_JPRB, 0.237256E-01_JPRB, 0.213208E-01_JPRB &
+  &, 0.191369E-01_JPRB, 0.171496E-01_JPRB, 0.153316E-01_JPRB, 0.136748E-01_JPRB &
+  &, 0.121929E-01_JPRB, 0.108294E-01_JPRB, 0.961827E-02_JPRB &
+  &, 0.852258E-02_JPRB, 0.752666E-02_JPRB, 0.663839E-02_JPRB, 0.584010E-02_JPRB &
+  &, 0.513860E-02_JPRB, 0.451411E-02_JPRB, 0.394491E-02_JPRB &
+  &, 0.343522E-02_JPRB, 0.298935E-02_JPRB, 0.261174E-02_JPRB, 0.227747E-02_JPRB &
+  &, 0.195955E-02_JPRB, 0.168994E-02_JPRB, 0.147178E-02_JPRB &
+  &, 0.127660E-02_JPRB, 0.107373E-02_JPRB, 0.928662E-03_JPRB, 0.777982E-03_JPRB &
+  &, 0.689552E-03_JPRB, 0.563131E-03_JPRB, 0.502376E-03_JPRB &
+  &, 0.403522E-03_JPRB, 0.337471E-03_JPRB, 0.306020E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART36',0,ZHOOK_HANDLE)
+
+XCW( 246, :) = (/ &
+  &  0.929426E+00_JPRB, 0.911325E+00_JPRB, 0.893066E+00_JPRB, 0.874663E+00_JPRB &
+  &, 0.856126E+00_JPRB, 0.837469E+00_JPRB, 0.818706E+00_JPRB &
+  &, 0.799850E+00_JPRB, 0.780915E+00_JPRB, 0.761914E+00_JPRB, 0.742862E+00_JPRB &
+  &, 0.723772E+00_JPRB, 0.704660E+00_JPRB, 0.685542E+00_JPRB &
+  &, 0.666431E+00_JPRB, 0.647343E+00_JPRB, 0.628294E+00_JPRB, 0.609301E+00_JPRB &
+  &, 0.590380E+00_JPRB, 0.571546E+00_JPRB, 0.552815E+00_JPRB &
+  &, 0.534207E+00_JPRB, 0.515742E+00_JPRB, 0.497430E+00_JPRB, 0.479290E+00_JPRB &
+  &, 0.461345E+00_JPRB, 0.443606E+00_JPRB, 0.426091E+00_JPRB &
+  &, 0.408822E+00_JPRB, 0.391810E+00_JPRB, 0.375076E+00_JPRB, 0.358636E+00_JPRB &
+  &, 0.342504E+00_JPRB, 0.326694E+00_JPRB, 0.311228E+00_JPRB &
+  &, 0.296107E+00_JPRB, 0.281353E+00_JPRB, 0.266982E+00_JPRB, 0.253003E+00_JPRB &
+  &, 0.239424E+00_JPRB, 0.226252E+00_JPRB, 0.213495E+00_JPRB &
+  &, 0.201168E+00_JPRB, 0.189277E+00_JPRB, 0.177813E+00_JPRB, 0.166790E+00_JPRB &
+  &, 0.156205E+00_JPRB, 0.146068E+00_JPRB, 0.136373E+00_JPRB &
+  &, 0.127112E+00_JPRB, 0.118285E+00_JPRB, 0.109879E+00_JPRB, 0.101916E+00_JPRB &
+  &, 0.943615E-01_JPRB, 0.872198E-01_JPRB, 0.804775E-01_JPRB &
+  &, 0.741331E-01_JPRB, 0.681669E-01_JPRB, 0.625712E-01_JPRB, 0.573357E-01_JPRB &
+  &, 0.524300E-01_JPRB, 0.478711E-01_JPRB, 0.436224E-01_JPRB &
+  &, 0.396785E-01_JPRB, 0.360321E-01_JPRB, 0.326544E-01_JPRB, 0.295322E-01_JPRB &
+  &, 0.266694E-01_JPRB, 0.240491E-01_JPRB, 0.216306E-01_JPRB &
+  &, 0.194111E-01_JPRB, 0.174080E-01_JPRB, 0.155734E-01_JPRB, 0.138992E-01_JPRB &
+  &, 0.123761E-01_JPRB, 0.110163E-01_JPRB, 0.978516E-02_JPRB &
+  &, 0.866851E-02_JPRB, 0.765069E-02_JPRB, 0.676488E-02_JPRB, 0.594328E-02_JPRB &
+  &, 0.524381E-02_JPRB, 0.459454E-02_JPRB, 0.402688E-02_JPRB &
+  &, 0.351876E-02_JPRB, 0.307448E-02_JPRB, 0.266956E-02_JPRB, 0.230692E-02_JPRB &
+  &, 0.201953E-02_JPRB, 0.175103E-02_JPRB, 0.150288E-02_JPRB &
+  &, 0.127660E-02_JPRB, 0.110596E-02_JPRB, 0.961472E-03_JPRB, 0.811372E-03_JPRB &
+  &, 0.689552E-03_JPRB, 0.597702E-03_JPRB, 0.502376E-03_JPRB &
+  &, 0.439296E-03_JPRB, 0.373856E-03_JPRB, 0.306020E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 247, :) = (/ &
+  &  0.929728E+00_JPRB, 0.911699E+00_JPRB, 0.893508E+00_JPRB, 0.875171E+00_JPRB &
+  &, 0.856699E+00_JPRB, 0.838105E+00_JPRB, 0.819403E+00_JPRB &
+  &, 0.800604E+00_JPRB, 0.781725E+00_JPRB, 0.762777E+00_JPRB, 0.743776E+00_JPRB &
+  &, 0.724734E+00_JPRB, 0.705669E+00_JPRB, 0.686593E+00_JPRB &
+  &, 0.667523E+00_JPRB, 0.648475E+00_JPRB, 0.629462E+00_JPRB, 0.610502E+00_JPRB &
+  &, 0.591610E+00_JPRB, 0.572803E+00_JPRB, 0.554099E+00_JPRB &
+  &, 0.535517E+00_JPRB, 0.517068E+00_JPRB, 0.498773E+00_JPRB, 0.480651E+00_JPRB &
+  &, 0.462712E+00_JPRB, 0.444984E+00_JPRB, 0.427476E+00_JPRB &
+  &, 0.410210E+00_JPRB, 0.393201E+00_JPRB, 0.376464E+00_JPRB, 0.360021E+00_JPRB &
+  &, 0.343880E+00_JPRB, 0.328065E+00_JPRB, 0.312584E+00_JPRB &
+  &, 0.297447E+00_JPRB, 0.282688E+00_JPRB, 0.268293E+00_JPRB, 0.254297E+00_JPRB &
+  &, 0.240688E+00_JPRB, 0.227496E+00_JPRB, 0.214715E+00_JPRB &
+  &, 0.202353E+00_JPRB, 0.190435E+00_JPRB, 0.178942E+00_JPRB, 0.167887E+00_JPRB &
+  &, 0.157268E+00_JPRB, 0.147094E+00_JPRB, 0.137361E+00_JPRB &
+  &, 0.128058E+00_JPRB, 0.119200E+00_JPRB, 0.110775E+00_JPRB, 0.102763E+00_JPRB &
+  &, 0.951707E-01_JPRB, 0.879891E-01_JPRB, 0.812195E-01_JPRB &
+  &, 0.748305E-01_JPRB, 0.688329E-01_JPRB, 0.632039E-01_JPRB, 0.579166E-01_JPRB &
+  &, 0.529902E-01_JPRB, 0.483919E-01_JPRB, 0.441194E-01_JPRB &
+  &, 0.401503E-01_JPRB, 0.364587E-01_JPRB, 0.330525E-01_JPRB, 0.299196E-01_JPRB &
+  &, 0.270257E-01_JPRB, 0.243523E-01_JPRB, 0.219197E-01_JPRB &
+  &, 0.196852E-01_JPRB, 0.176448E-01_JPRB, 0.157932E-01_JPRB, 0.141012E-01_JPRB &
+  &, 0.125822E-01_JPRB, 0.111799E-01_JPRB, 0.992821E-02_JPRB &
+  &, 0.881444E-02_JPRB, 0.779954E-02_JPRB, 0.686608E-02_JPRB, 0.607227E-02_JPRB &
+  &, 0.532271E-02_JPRB, 0.467497E-02_JPRB, 0.410886E-02_JPRB &
+  &, 0.357445E-02_JPRB, 0.313123E-02_JPRB, 0.272737E-02_JPRB, 0.236581E-02_JPRB &
+  &, 0.204953E-02_JPRB, 0.178157E-02_JPRB, 0.153398E-02_JPRB &
+  &, 0.130826E-02_JPRB, 0.113820E-02_JPRB, 0.961472E-03_JPRB, 0.844763E-03_JPRB &
+  &, 0.723530E-03_JPRB, 0.597702E-03_JPRB, 0.502376E-03_JPRB &
+  &, 0.439296E-03_JPRB, 0.373856E-03_JPRB, 0.306020E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 248, :) = (/ &
+  &  0.930031E+00_JPRB, 0.912071E+00_JPRB, 0.893950E+00_JPRB, 0.875680E+00_JPRB &
+  &, 0.857271E+00_JPRB, 0.838740E+00_JPRB, 0.820098E+00_JPRB &
+  &, 0.801358E+00_JPRB, 0.782533E+00_JPRB, 0.763639E+00_JPRB, 0.744688E+00_JPRB &
+  &, 0.725696E+00_JPRB, 0.706677E+00_JPRB, 0.687643E+00_JPRB &
+  &, 0.668615E+00_JPRB, 0.649604E+00_JPRB, 0.630628E+00_JPRB, 0.611700E+00_JPRB &
+  &, 0.592841E+00_JPRB, 0.574062E+00_JPRB, 0.555383E+00_JPRB &
+  &, 0.536823E+00_JPRB, 0.518394E+00_JPRB, 0.500116E+00_JPRB, 0.482008E+00_JPRB &
+  &, 0.464084E+00_JPRB, 0.446363E+00_JPRB, 0.428861E+00_JPRB &
+  &, 0.411599E+00_JPRB, 0.394591E+00_JPRB, 0.377856E+00_JPRB, 0.361406E+00_JPRB &
+  &, 0.345261E+00_JPRB, 0.329437E+00_JPRB, 0.313945E+00_JPRB &
+  &, 0.298795E+00_JPRB, 0.284014E+00_JPRB, 0.269603E+00_JPRB, 0.255580E+00_JPRB &
+  &, 0.241953E+00_JPRB, 0.228739E+00_JPRB, 0.215936E+00_JPRB &
+  &, 0.203549E+00_JPRB, 0.191593E+00_JPRB, 0.180070E+00_JPRB, 0.168984E+00_JPRB &
+  &, 0.158331E+00_JPRB, 0.148121E+00_JPRB, 0.138348E+00_JPRB &
+  &, 0.129017E+00_JPRB, 0.120129E+00_JPRB, 0.111657E+00_JPRB, 0.103609E+00_JPRB &
+  &, 0.959800E-01_JPRB, 0.887732E-01_JPRB, 0.819615E-01_JPRB &
+  &, 0.755434E-01_JPRB, 0.694989E-01_JPRB, 0.638367E-01_JPRB, 0.585141E-01_JPRB &
+  &, 0.535504E-01_JPRB, 0.489300E-01_JPRB, 0.446164E-01_JPRB &
+  &, 0.406040E-01_JPRB, 0.369039E-01_JPRB, 0.334695E-01_JPRB, 0.302877E-01_JPRB &
+  &, 0.273621E-01_JPRB, 0.246758E-01_JPRB, 0.222294E-01_JPRB &
+  &, 0.199594E-01_JPRB, 0.179032E-01_JPRB, 0.160350E-01_JPRB, 0.143255E-01_JPRB &
+  &, 0.127654E-01_JPRB, 0.113668E-01_JPRB, 0.100951E-01_JPRB &
+  &, 0.896037E-02_JPRB, 0.792357E-02_JPRB, 0.699257E-02_JPRB, 0.617545E-02_JPRB &
+  &, 0.542791E-02_JPRB, 0.475540E-02_JPRB, 0.419084E-02_JPRB &
+  &, 0.365799E-02_JPRB, 0.318798E-02_JPRB, 0.278519E-02_JPRB, 0.242471E-02_JPRB &
+  &, 0.210951E-02_JPRB, 0.181212E-02_JPRB, 0.156508E-02_JPRB &
+  &, 0.133993E-02_JPRB, 0.117043E-02_JPRB, 0.994281E-03_JPRB, 0.844763E-03_JPRB &
+  &, 0.723530E-03_JPRB, 0.632272E-03_JPRB, 0.537546E-03_JPRB &
+  &, 0.439296E-03_JPRB, 0.373856E-03_JPRB, 0.306020E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.165556E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 249, :) = (/ &
+  &  0.930332E+00_JPRB, 0.912445E+00_JPRB, 0.894391E+00_JPRB, 0.876187E+00_JPRB &
+  &, 0.857844E+00_JPRB, 0.839374E+00_JPRB, 0.820791E+00_JPRB &
+  &, 0.802109E+00_JPRB, 0.783340E+00_JPRB, 0.764499E+00_JPRB, 0.745600E+00_JPRB &
+  &, 0.726656E+00_JPRB, 0.707682E+00_JPRB, 0.688693E+00_JPRB &
+  &, 0.669706E+00_JPRB, 0.650734E+00_JPRB, 0.631793E+00_JPRB, 0.612900E+00_JPRB &
+  &, 0.594069E+00_JPRB, 0.575318E+00_JPRB, 0.556667E+00_JPRB &
+  &, 0.538130E+00_JPRB, 0.519720E+00_JPRB, 0.501459E+00_JPRB, 0.483365E+00_JPRB &
+  &, 0.465455E+00_JPRB, 0.447745E+00_JPRB, 0.430250E+00_JPRB &
+  &, 0.412991E+00_JPRB, 0.395986E+00_JPRB, 0.379244E+00_JPRB, 0.362791E+00_JPRB &
+  &, 0.346642E+00_JPRB, 0.330808E+00_JPRB, 0.315301E+00_JPRB &
+  &, 0.300144E+00_JPRB, 0.285349E+00_JPRB, 0.270913E+00_JPRB, 0.256873E+00_JPRB &
+  &, 0.243227E+00_JPRB, 0.229983E+00_JPRB, 0.217146E+00_JPRB &
+  &, 0.204745E+00_JPRB, 0.192750E+00_JPRB, 0.181199E+00_JPRB, 0.170081E+00_JPRB &
+  &, 0.159406E+00_JPRB, 0.149160E+00_JPRB, 0.139349E+00_JPRB &
+  &, 0.129989E+00_JPRB, 0.121044E+00_JPRB, 0.112539E+00_JPRB, 0.104470E+00_JPRB &
+  &, 0.968037E-01_JPRB, 0.895573E-01_JPRB, 0.827035E-01_JPRB &
+  &, 0.762407E-01_JPRB, 0.701649E-01_JPRB, 0.644694E-01_JPRB, 0.591116E-01_JPRB &
+  &, 0.541276E-01_JPRB, 0.494508E-01_JPRB, 0.451134E-01_JPRB &
+  &, 0.410758E-01_JPRB, 0.373305E-01_JPRB, 0.338676E-01_JPRB, 0.306751E-01_JPRB &
+  &, 0.277184E-01_JPRB, 0.250195E-01_JPRB, 0.225185E-01_JPRB &
+  &, 0.202546E-01_JPRB, 0.181616E-01_JPRB, 0.162548E-01_JPRB, 0.145275E-01_JPRB &
+  &, 0.129715E-01_JPRB, 0.115538E-01_JPRB, 0.102620E-01_JPRB &
+  &, 0.910630E-02_JPRB, 0.804761E-02_JPRB, 0.711907E-02_JPRB, 0.627864E-02_JPRB &
+  &, 0.553311E-02_JPRB, 0.486264E-02_JPRB, 0.424549E-02_JPRB &
+  &, 0.371369E-02_JPRB, 0.324473E-02_JPRB, 0.284301E-02_JPRB, 0.245416E-02_JPRB &
+  &, 0.213951E-02_JPRB, 0.184266E-02_JPRB, 0.159619E-02_JPRB &
+  &, 0.137159E-02_JPRB, 0.120266E-02_JPRB, 0.102709E-02_JPRB, 0.878153E-03_JPRB &
+  &, 0.757508E-03_JPRB, 0.632272E-03_JPRB, 0.537546E-03_JPRB &
+  &, 0.475071E-03_JPRB, 0.373856E-03_JPRB, 0.343023E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 250, :) = (/ &
+  &  0.930633E+00_JPRB, 0.912815E+00_JPRB, 0.894831E+00_JPRB, 0.876693E+00_JPRB &
+  &, 0.858414E+00_JPRB, 0.840007E+00_JPRB, 0.821484E+00_JPRB &
+  &, 0.802859E+00_JPRB, 0.784146E+00_JPRB, 0.765359E+00_JPRB, 0.746509E+00_JPRB &
+  &, 0.727614E+00_JPRB, 0.708686E+00_JPRB, 0.689742E+00_JPRB &
+  &, 0.670796E+00_JPRB, 0.651862E+00_JPRB, 0.632957E+00_JPRB, 0.614097E+00_JPRB &
+  &, 0.595299E+00_JPRB, 0.576578E+00_JPRB, 0.557948E+00_JPRB &
+  &, 0.539433E+00_JPRB, 0.521046E+00_JPRB, 0.502802E+00_JPRB, 0.484725E+00_JPRB &
+  &, 0.466823E+00_JPRB, 0.449123E+00_JPRB, 0.431636E+00_JPRB &
+  &, 0.414383E+00_JPRB, 0.397376E+00_JPRB, 0.380636E+00_JPRB, 0.364180E+00_JPRB &
+  &, 0.348023E+00_JPRB, 0.332180E+00_JPRB, 0.316666E+00_JPRB &
+  &, 0.301493E+00_JPRB, 0.286675E+00_JPRB, 0.272233E+00_JPRB, 0.258166E+00_JPRB &
+  &, 0.244502E+00_JPRB, 0.231226E+00_JPRB, 0.218378E+00_JPRB &
+  &, 0.205930E+00_JPRB, 0.193920E+00_JPRB, 0.182339E+00_JPRB, 0.171190E+00_JPRB &
+  &, 0.160469E+00_JPRB, 0.150199E+00_JPRB, 0.140349E+00_JPRB &
+  &, 0.130948E+00_JPRB, 0.121986E+00_JPRB, 0.113435E+00_JPRB, 0.105317E+00_JPRB &
+  &, 0.976274E-01_JPRB, 0.903413E-01_JPRB, 0.834455E-01_JPRB &
+  &, 0.769536E-01_JPRB, 0.708468E-01_JPRB, 0.651022E-01_JPRB, 0.597257E-01_JPRB &
+  &, 0.546877E-01_JPRB, 0.499890E-01_JPRB, 0.456104E-01_JPRB &
+  &, 0.415476E-01_JPRB, 0.377757E-01_JPRB, 0.342847E-01_JPRB, 0.310625E-01_JPRB &
+  &, 0.280747E-01_JPRB, 0.253430E-01_JPRB, 0.228283E-01_JPRB &
+  &, 0.205287E-01_JPRB, 0.184200E-01_JPRB, 0.164966E-01_JPRB, 0.147519E-01_JPRB &
+  &, 0.131776E-01_JPRB, 0.117407E-01_JPRB, 0.104289E-01_JPRB &
+  &, 0.925223E-02_JPRB, 0.819646E-02_JPRB, 0.724557E-02_JPRB, 0.638183E-02_JPRB &
+  &, 0.563831E-02_JPRB, 0.494307E-02_JPRB, 0.432747E-02_JPRB &
+  &, 0.379723E-02_JPRB, 0.332985E-02_JPRB, 0.290082E-02_JPRB, 0.251305E-02_JPRB &
+  &, 0.219949E-02_JPRB, 0.190375E-02_JPRB, 0.162729E-02_JPRB &
+  &, 0.140326E-02_JPRB, 0.123490E-02_JPRB, 0.105990E-02_JPRB, 0.911544E-03_JPRB &
+  &, 0.757508E-03_JPRB, 0.666843E-03_JPRB, 0.572715E-03_JPRB &
+  &, 0.475071E-03_JPRB, 0.410242E-03_JPRB, 0.343023E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 251, :) = (/ &
+  &  0.930935E+00_JPRB, 0.913186E+00_JPRB, 0.895270E+00_JPRB, 0.877199E+00_JPRB &
+  &, 0.858984E+00_JPRB, 0.840639E+00_JPRB, 0.822176E+00_JPRB &
+  &, 0.803609E+00_JPRB, 0.784951E+00_JPRB, 0.766217E+00_JPRB, 0.747419E+00_JPRB &
+  &, 0.728572E+00_JPRB, 0.709690E+00_JPRB, 0.690789E+00_JPRB &
+  &, 0.671884E+00_JPRB, 0.652988E+00_JPRB, 0.634120E+00_JPRB, 0.615294E+00_JPRB &
+  &, 0.596526E+00_JPRB, 0.577831E+00_JPRB, 0.559232E+00_JPRB &
+  &, 0.540739E+00_JPRB, 0.522372E+00_JPRB, 0.504145E+00_JPRB, 0.486082E+00_JPRB &
+  &, 0.468194E+00_JPRB, 0.450501E+00_JPRB, 0.433009E+00_JPRB &
+  &, 0.415759E+00_JPRB, 0.398770E+00_JPRB, 0.382029E+00_JPRB, 0.365569E+00_JPRB &
+  &, 0.349404E+00_JPRB, 0.333551E+00_JPRB, 0.318027E+00_JPRB &
+  &, 0.302842E+00_JPRB, 0.288010E+00_JPRB, 0.273553E+00_JPRB, 0.259470E+00_JPRB &
+  &, 0.245776E+00_JPRB, 0.232480E+00_JPRB, 0.219599E+00_JPRB &
+  &, 0.207137E+00_JPRB, 0.195089E+00_JPRB, 0.183479E+00_JPRB, 0.172298E+00_JPRB &
+  &, 0.161544E+00_JPRB, 0.151238E+00_JPRB, 0.141363E+00_JPRB &
+  &, 0.131921E+00_JPRB, 0.122915E+00_JPRB, 0.114331E+00_JPRB, 0.106178E+00_JPRB &
+  &, 0.984512E-01_JPRB, 0.911254E-01_JPRB, 0.842026E-01_JPRB &
+  &, 0.776665E-01_JPRB, 0.715129E-01_JPRB, 0.657512E-01_JPRB, 0.603232E-01_JPRB &
+  &, 0.552649E-01_JPRB, 0.505271E-01_JPRB, 0.461252E-01_JPRB &
+  &, 0.420194E-01_JPRB, 0.382208E-01_JPRB, 0.347018E-01_JPRB, 0.314499E-01_JPRB &
+  &, 0.284309E-01_JPRB, 0.256665E-01_JPRB, 0.231380E-01_JPRB &
+  &, 0.208029E-01_JPRB, 0.186784E-01_JPRB, 0.167384E-01_JPRB, 0.149763E-01_JPRB &
+  &, 0.133837E-01_JPRB, 0.119277E-01_JPRB, 0.105958E-01_JPRB &
+  &, 0.939816E-02_JPRB, 0.834530E-02_JPRB, 0.737206E-02_JPRB, 0.651081E-02_JPRB &
+  &, 0.574352E-02_JPRB, 0.505031E-02_JPRB, 0.443677E-02_JPRB &
+  &, 0.388077E-02_JPRB, 0.338660E-02_JPRB, 0.295864E-02_JPRB, 0.257195E-02_JPRB &
+  &, 0.222949E-02_JPRB, 0.193430E-02_JPRB, 0.168949E-02_JPRB &
+  &, 0.143492E-02_JPRB, 0.123490E-02_JPRB, 0.105990E-02_JPRB, 0.911544E-03_JPRB &
+  &, 0.791485E-03_JPRB, 0.666843E-03_JPRB, 0.572715E-03_JPRB &
+  &, 0.475071E-03_JPRB, 0.410242E-03_JPRB, 0.343023E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 252, :) = (/ &
+  &  0.931233E+00_JPRB, 0.913557E+00_JPRB, 0.895708E+00_JPRB, 0.877704E+00_JPRB &
+  &, 0.859553E+00_JPRB, 0.841270E+00_JPRB, 0.822867E+00_JPRB &
+  &, 0.804357E+00_JPRB, 0.785755E+00_JPRB, 0.767073E+00_JPRB, 0.748326E+00_JPRB &
+  &, 0.729527E+00_JPRB, 0.710692E+00_JPRB, 0.691835E+00_JPRB &
+  &, 0.672970E+00_JPRB, 0.654115E+00_JPRB, 0.635283E+00_JPRB, 0.616489E+00_JPRB &
+  &, 0.597752E+00_JPRB, 0.579087E+00_JPRB, 0.560513E+00_JPRB &
+  &, 0.542042E+00_JPRB, 0.523695E+00_JPRB, 0.505488E+00_JPRB, 0.487439E+00_JPRB &
+  &, 0.469565E+00_JPRB, 0.451883E+00_JPRB, 0.434410E+00_JPRB &
+  &, 0.417163E+00_JPRB, 0.400161E+00_JPRB, 0.383421E+00_JPRB, 0.366958E+00_JPRB &
+  &, 0.350789E+00_JPRB, 0.334927E+00_JPRB, 0.319392E+00_JPRB &
+  &, 0.304190E+00_JPRB, 0.289345E+00_JPRB, 0.274864E+00_JPRB, 0.260763E+00_JPRB &
+  &, 0.247051E+00_JPRB, 0.233734E+00_JPRB, 0.220830E+00_JPRB &
+  &, 0.208333E+00_JPRB, 0.196258E+00_JPRB, 0.184620E+00_JPRB, 0.173407E+00_JPRB &
+  &, 0.162620E+00_JPRB, 0.152278E+00_JPRB, 0.142376E+00_JPRB &
+  &, 0.132893E+00_JPRB, 0.123857E+00_JPRB, 0.115241E+00_JPRB, 0.107053E+00_JPRB &
+  &, 0.992749E-01_JPRB, 0.919095E-01_JPRB, 0.849597E-01_JPRB &
+  &, 0.783793E-01_JPRB, 0.721947E-01_JPRB, 0.663839E-01_JPRB, 0.609372E-01_JPRB &
+  &, 0.558421E-01_JPRB, 0.510827E-01_JPRB, 0.466399E-01_JPRB &
+  &, 0.425094E-01_JPRB, 0.386660E-01_JPRB, 0.351188E-01_JPRB, 0.318374E-01_JPRB &
+  &, 0.288069E-01_JPRB, 0.260102E-01_JPRB, 0.234478E-01_JPRB &
+  &, 0.210981E-01_JPRB, 0.189583E-01_JPRB, 0.169802E-01_JPRB, 0.152006E-01_JPRB &
+  &, 0.135669E-01_JPRB, 0.121146E-01_JPRB, 0.107627E-01_JPRB &
+  &, 0.956842E-02_JPRB, 0.846934E-02_JPRB, 0.749856E-02_JPRB, 0.661400E-02_JPRB &
+  &, 0.584872E-02_JPRB, 0.513074E-02_JPRB, 0.451875E-02_JPRB &
+  &, 0.396431E-02_JPRB, 0.344335E-02_JPRB, 0.301646E-02_JPRB, 0.263084E-02_JPRB &
+  &, 0.228947E-02_JPRB, 0.199539E-02_JPRB, 0.172059E-02_JPRB &
+  &, 0.146659E-02_JPRB, 0.126713E-02_JPRB, 0.109271E-02_JPRB, 0.944934E-03_JPRB &
+  &, 0.791485E-03_JPRB, 0.701414E-03_JPRB, 0.572715E-03_JPRB &
+  &, 0.510846E-03_JPRB, 0.410242E-03_JPRB, 0.343023E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART37',0,ZHOOK_HANDLE)
+
+XCW( 253, :) = (/ &
+  &  0.931534E+00_JPRB, 0.913926E+00_JPRB, 0.896146E+00_JPRB, 0.878207E+00_JPRB &
+  &, 0.860120E+00_JPRB, 0.841900E+00_JPRB, 0.823556E+00_JPRB &
+  &, 0.805104E+00_JPRB, 0.786558E+00_JPRB, 0.767929E+00_JPRB, 0.749233E+00_JPRB &
+  &, 0.730482E+00_JPRB, 0.711694E+00_JPRB, 0.692880E+00_JPRB &
+  &, 0.674057E+00_JPRB, 0.655240E+00_JPRB, 0.636444E+00_JPRB, 0.617684E+00_JPRB &
+  &, 0.598979E+00_JPRB, 0.580340E+00_JPRB, 0.561794E+00_JPRB &
+  &, 0.543345E+00_JPRB, 0.525021E+00_JPRB, 0.506831E+00_JPRB, 0.488796E+00_JPRB &
+  &, 0.470936E+00_JPRB, 0.453262E+00_JPRB, 0.435795E+00_JPRB &
+  &, 0.418555E+00_JPRB, 0.401555E+00_JPRB, 0.384817E+00_JPRB, 0.368348E+00_JPRB &
+  &, 0.352175E+00_JPRB, 0.336303E+00_JPRB, 0.320758E+00_JPRB &
+  &, 0.305548E+00_JPRB, 0.290680E+00_JPRB, 0.276184E+00_JPRB, 0.262066E+00_JPRB &
+  &, 0.248326E+00_JPRB, 0.234988E+00_JPRB, 0.222062E+00_JPRB &
+  &, 0.209540E+00_JPRB, 0.197439E+00_JPRB, 0.185760E+00_JPRB, 0.174516E+00_JPRB &
+  &, 0.163707E+00_JPRB, 0.153329E+00_JPRB, 0.143389E+00_JPRB &
+  &, 0.133879E+00_JPRB, 0.124799E+00_JPRB, 0.116150E+00_JPRB, 0.107914E+00_JPRB &
+  &, 0.100113E+00_JPRB, 0.927083E-01_JPRB, 0.857168E-01_JPRB &
+  &, 0.791077E-01_JPRB, 0.728925E-01_JPRB, 0.670329E-01_JPRB, 0.615513E-01_JPRB &
+  &, 0.564192E-01_JPRB, 0.516208E-01_JPRB, 0.471547E-01_JPRB &
+  &, 0.429812E-01_JPRB, 0.391112E-01_JPRB, 0.355359E-01_JPRB, 0.322248E-01_JPRB &
+  &, 0.291632E-01_JPRB, 0.263539E-01_JPRB, 0.237575E-01_JPRB &
+  &, 0.213933E-01_JPRB, 0.192167E-01_JPRB, 0.172440E-01_JPRB, 0.154250E-01_JPRB &
+  &, 0.137959E-01_JPRB, 0.123016E-01_JPRB, 0.109534E-01_JPRB &
+  &, 0.971435E-02_JPRB, 0.861818E-02_JPRB, 0.762505E-02_JPRB, 0.674299E-02_JPRB &
+  &, 0.595392E-02_JPRB, 0.523798E-02_JPRB, 0.460072E-02_JPRB &
+  &, 0.402001E-02_JPRB, 0.352847E-02_JPRB, 0.307427E-02_JPRB, 0.268974E-02_JPRB &
+  &, 0.231946E-02_JPRB, 0.202593E-02_JPRB, 0.175169E-02_JPRB &
+  &, 0.152992E-02_JPRB, 0.129937E-02_JPRB, 0.112552E-02_JPRB, 0.978325E-03_JPRB &
+  &, 0.825463E-03_JPRB, 0.701414E-03_JPRB, 0.607885E-03_JPRB &
+  &, 0.510846E-03_JPRB, 0.446628E-03_JPRB, 0.380026E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 254, :) = (/ &
+  &  0.931833E+00_JPRB, 0.914285E+00_JPRB, 0.896582E+00_JPRB, 0.878710E+00_JPRB &
+  &, 0.860687E+00_JPRB, 0.842528E+00_JPRB, 0.824245E+00_JPRB &
+  &, 0.805850E+00_JPRB, 0.787359E+00_JPRB, 0.768784E+00_JPRB, 0.750138E+00_JPRB &
+  &, 0.731436E+00_JPRB, 0.712693E+00_JPRB, 0.693923E+00_JPRB &
+  &, 0.675142E+00_JPRB, 0.656363E+00_JPRB, 0.637603E+00_JPRB, 0.618878E+00_JPRB &
+  &, 0.600204E+00_JPRB, 0.581597E+00_JPRB, 0.563071E+00_JPRB &
+  &, 0.544648E+00_JPRB, 0.526344E+00_JPRB, 0.508171E+00_JPRB, 0.490153E+00_JPRB &
+  &, 0.472304E+00_JPRB, 0.454644E+00_JPRB, 0.437184E+00_JPRB &
+  &, 0.419919E+00_JPRB, 0.402950E+00_JPRB, 0.386209E+00_JPRB, 0.369741E+00_JPRB &
+  &, 0.353560E+00_JPRB, 0.337683E+00_JPRB, 0.322123E+00_JPRB &
+  &, 0.306897E+00_JPRB, 0.292025E+00_JPRB, 0.277513E+00_JPRB, 0.263370E+00_JPRB &
+  &, 0.249610E+00_JPRB, 0.236253E+00_JPRB, 0.223293E+00_JPRB &
+  &, 0.210747E+00_JPRB, 0.198619E+00_JPRB, 0.186912E+00_JPRB, 0.175637E+00_JPRB &
+  &, 0.164795E+00_JPRB, 0.154381E+00_JPRB, 0.144403E+00_JPRB &
+  &, 0.134851E+00_JPRB, 0.125741E+00_JPRB, 0.117060E+00_JPRB, 0.108789E+00_JPRB &
+  &, 0.100937E+00_JPRB, 0.935072E-01_JPRB, 0.864740E-01_JPRB &
+  &, 0.798361E-01_JPRB, 0.735744E-01_JPRB, 0.676981E-01_JPRB, 0.621820E-01_JPRB &
+  &, 0.570134E-01_JPRB, 0.521763E-01_JPRB, 0.476694E-01_JPRB &
+  &, 0.434712E-01_JPRB, 0.395749E-01_JPRB, 0.359719E-01_JPRB, 0.326122E-01_JPRB &
+  &, 0.295392E-01_JPRB, 0.266976E-01_JPRB, 0.240879E-01_JPRB &
+  &, 0.216886E-01_JPRB, 0.194966E-01_JPRB, 0.174858E-01_JPRB, 0.156494E-01_JPRB &
+  &, 0.140020E-01_JPRB, 0.124885E-01_JPRB, 0.111203E-01_JPRB &
+  &, 0.988460E-02_JPRB, 0.876703E-02_JPRB, 0.775155E-02_JPRB, 0.687197E-02_JPRB &
+  &, 0.605912E-02_JPRB, 0.531841E-02_JPRB, 0.468270E-02_JPRB &
+  &, 0.410355E-02_JPRB, 0.358522E-02_JPRB, 0.313209E-02_JPRB, 0.274863E-02_JPRB &
+  &, 0.237945E-02_JPRB, 0.205647E-02_JPRB, 0.178280E-02_JPRB &
+  &, 0.156158E-02_JPRB, 0.133160E-02_JPRB, 0.115833E-02_JPRB, 0.978325E-03_JPRB &
+  &, 0.859440E-03_JPRB, 0.735984E-03_JPRB, 0.607885E-03_JPRB &
+  &, 0.510846E-03_JPRB, 0.446628E-03_JPRB, 0.380026E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 255, :) = (/ &
+  &  0.932132E+00_JPRB, 0.914664E+00_JPRB, 0.897019E+00_JPRB, 0.879212E+00_JPRB &
+  &, 0.861253E+00_JPRB, 0.843156E+00_JPRB, 0.824932E+00_JPRB &
+  &, 0.806596E+00_JPRB, 0.788159E+00_JPRB, 0.769637E+00_JPRB, 0.751043E+00_JPRB &
+  &, 0.732390E+00_JPRB, 0.713692E+00_JPRB, 0.694966E+00_JPRB &
+  &, 0.676226E+00_JPRB, 0.657485E+00_JPRB, 0.638762E+00_JPRB, 0.620072E+00_JPRB &
+  &, 0.601428E+00_JPRB, 0.582850E+00_JPRB, 0.564352E+00_JPRB &
+  &, 0.545951E+00_JPRB, 0.527666E+00_JPRB, 0.509514E+00_JPRB, 0.491510E+00_JPRB &
+  &, 0.473675E+00_JPRB, 0.456022E+00_JPRB, 0.438573E+00_JPRB &
+  &, 0.421342E+00_JPRB, 0.404348E+00_JPRB, 0.387606E+00_JPRB, 0.371130E+00_JPRB &
+  &, 0.354945E+00_JPRB, 0.339064E+00_JPRB, 0.323493E+00_JPRB &
+  &, 0.308255E+00_JPRB, 0.293369E+00_JPRB, 0.278833E+00_JPRB, 0.264673E+00_JPRB &
+  &, 0.250895E+00_JPRB, 0.237507E+00_JPRB, 0.224525E+00_JPRB &
+  &, 0.211954E+00_JPRB, 0.199800E+00_JPRB, 0.188064E+00_JPRB, 0.176758E+00_JPRB &
+  &, 0.165882E+00_JPRB, 0.155433E+00_JPRB, 0.145416E+00_JPRB &
+  &, 0.135836E+00_JPRB, 0.126683E+00_JPRB, 0.117970E+00_JPRB, 0.109665E+00_JPRB &
+  &, 0.101789E+00_JPRB, 0.943061E-01_JPRB, 0.872462E-01_JPRB &
+  &, 0.805644E-01_JPRB, 0.742721E-01_JPRB, 0.683471E-01_JPRB, 0.627961E-01_JPRB &
+  &, 0.575905E-01_JPRB, 0.527318E-01_JPRB, 0.481842E-01_JPRB &
+  &, 0.439611E-01_JPRB, 0.400386E-01_JPRB, 0.363890E-01_JPRB, 0.330190E-01_JPRB &
+  &, 0.299153E-01_JPRB, 0.270413E-01_JPRB, 0.243977E-01_JPRB &
+  &, 0.219838E-01_JPRB, 0.197550E-01_JPRB, 0.177276E-01_JPRB, 0.158962E-01_JPRB &
+  &, 0.142081E-01_JPRB, 0.126755E-01_JPRB, 0.112872E-01_JPRB &
+  &, 0.100548E-01_JPRB, 0.891587E-02_JPRB, 0.790334E-02_JPRB, 0.697516E-02_JPRB &
+  &, 0.616433E-02_JPRB, 0.542565E-02_JPRB, 0.476468E-02_JPRB &
+  &, 0.418709E-02_JPRB, 0.367035E-02_JPRB, 0.318991E-02_JPRB, 0.280753E-02_JPRB &
+  &, 0.243944E-02_JPRB, 0.211756E-02_JPRB, 0.184500E-02_JPRB &
+  &, 0.159325E-02_JPRB, 0.136384E-02_JPRB, 0.119114E-02_JPRB, 0.101172E-02_JPRB &
+  &, 0.859440E-03_JPRB, 0.735984E-03_JPRB, 0.643055E-03_JPRB &
+  &, 0.546620E-03_JPRB, 0.446628E-03_JPRB, 0.380026E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 256, :) = (/ &
+  &  0.932428E+00_JPRB, 0.915031E+00_JPRB, 0.897455E+00_JPRB, 0.879714E+00_JPRB &
+  &, 0.861818E+00_JPRB, 0.843783E+00_JPRB, 0.825619E+00_JPRB &
+  &, 0.807339E+00_JPRB, 0.788959E+00_JPRB, 0.770490E+00_JPRB, 0.751945E+00_JPRB &
+  &, 0.733342E+00_JPRB, 0.714690E+00_JPRB, 0.696008E+00_JPRB &
+  &, 0.677308E+00_JPRB, 0.658608E+00_JPRB, 0.639920E+00_JPRB, 0.621262E+00_JPRB &
+  &, 0.602651E+00_JPRB, 0.584100E+00_JPRB, 0.565630E+00_JPRB &
+  &, 0.547254E+00_JPRB, 0.528989E+00_JPRB, 0.510850E+00_JPRB, 0.492867E+00_JPRB &
+  &, 0.475043E+00_JPRB, 0.457404E+00_JPRB, 0.439962E+00_JPRB &
+  &, 0.422734E+00_JPRB, 0.405742E+00_JPRB, 0.389002E+00_JPRB, 0.372524E+00_JPRB &
+  &, 0.356335E+00_JPRB, 0.340439E+00_JPRB, 0.324863E+00_JPRB &
+  &, 0.309613E+00_JPRB, 0.294705E+00_JPRB, 0.280163E+00_JPRB, 0.265976E+00_JPRB &
+  &, 0.252180E+00_JPRB, 0.238772E+00_JPRB, 0.225767E+00_JPRB &
+  &, 0.213162E+00_JPRB, 0.200980E+00_JPRB, 0.189215E+00_JPRB, 0.177879E+00_JPRB &
+  &, 0.166970E+00_JPRB, 0.156484E+00_JPRB, 0.146442E+00_JPRB &
+  &, 0.136822E+00_JPRB, 0.127639E+00_JPRB, 0.118879E+00_JPRB, 0.110540E+00_JPRB &
+  &, 0.102628E+00_JPRB, 0.951197E-01_JPRB, 0.880034E-01_JPRB &
+  &, 0.812928E-01_JPRB, 0.749699E-01_JPRB, 0.690123E-01_JPRB, 0.634268E-01_JPRB &
+  &, 0.581847E-01_JPRB, 0.532874E-01_JPRB, 0.487167E-01_JPRB &
+  &, 0.444511E-01_JPRB, 0.405024E-01_JPRB, 0.368250E-01_JPRB, 0.334258E-01_JPRB &
+  &, 0.302913E-01_JPRB, 0.273850E-01_JPRB, 0.247281E-01_JPRB &
+  &, 0.222791E-01_JPRB, 0.200349E-01_JPRB, 0.179914E-01_JPRB, 0.161206E-01_JPRB &
+  &, 0.144142E-01_JPRB, 0.128858E-01_JPRB, 0.114779E-01_JPRB &
+  &, 0.102008E-01_JPRB, 0.906472E-02_JPRB, 0.802984E-02_JPRB, 0.710414E-02_JPRB &
+  &, 0.626953E-02_JPRB, 0.553289E-02_JPRB, 0.487398E-02_JPRB &
+  &, 0.427063E-02_JPRB, 0.372710E-02_JPRB, 0.327663E-02_JPRB, 0.286642E-02_JPRB &
+  &, 0.249942E-02_JPRB, 0.214811E-02_JPRB, 0.187610E-02_JPRB &
+  &, 0.162491E-02_JPRB, 0.139607E-02_JPRB, 0.119114E-02_JPRB, 0.104511E-02_JPRB &
+  &, 0.893418E-03_JPRB, 0.770555E-03_JPRB, 0.643055E-03_JPRB &
+  &, 0.546620E-03_JPRB, 0.483013E-03_JPRB, 0.380026E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 257, :) = (/ &
+  &  0.932726E+00_JPRB, 0.915397E+00_JPRB, 0.897889E+00_JPRB, 0.880214E+00_JPRB &
+  &, 0.862383E+00_JPRB, 0.844409E+00_JPRB, 0.826304E+00_JPRB &
+  &, 0.808083E+00_JPRB, 0.789757E+00_JPRB, 0.771341E+00_JPRB, 0.752848E+00_JPRB &
+  &, 0.734292E+00_JPRB, 0.715687E+00_JPRB, 0.697048E+00_JPRB &
+  &, 0.678390E+00_JPRB, 0.659728E+00_JPRB, 0.641078E+00_JPRB, 0.622455E+00_JPRB &
+  &, 0.603875E+00_JPRB, 0.585353E+00_JPRB, 0.566907E+00_JPRB &
+  &, 0.548553E+00_JPRB, 0.530312E+00_JPRB, 0.512197E+00_JPRB, 0.494224E+00_JPRB &
+  &, 0.476414E+00_JPRB, 0.458783E+00_JPRB, 0.441348E+00_JPRB &
+  &, 0.424126E+00_JPRB, 0.407137E+00_JPRB, 0.390398E+00_JPRB, 0.373921E+00_JPRB &
+  &, 0.357724E+00_JPRB, 0.341824E+00_JPRB, 0.326237E+00_JPRB &
+  &, 0.310971E+00_JPRB, 0.296049E+00_JPRB, 0.281493E+00_JPRB, 0.267290E+00_JPRB &
+  &, 0.253475E+00_JPRB, 0.240036E+00_JPRB, 0.227010E+00_JPRB &
+  &, 0.214380E+00_JPRB, 0.202161E+00_JPRB, 0.190367E+00_JPRB, 0.179000E+00_JPRB &
+  &, 0.168057E+00_JPRB, 0.157549E+00_JPRB, 0.147468E+00_JPRB &
+  &, 0.137821E+00_JPRB, 0.128595E+00_JPRB, 0.119803E+00_JPRB, 0.111429E+00_JPRB &
+  &, 0.103480E+00_JPRB, 0.959334E-01_JPRB, 0.887908E-01_JPRB &
+  &, 0.820367E-01_JPRB, 0.756676E-01_JPRB, 0.696775E-01_JPRB, 0.640575E-01_JPRB &
+  &, 0.587788E-01_JPRB, 0.538429E-01_JPRB, 0.492492E-01_JPRB &
+  &, 0.449592E-01_JPRB, 0.409661E-01_JPRB, 0.372610E-01_JPRB, 0.338326E-01_JPRB &
+  &, 0.306674E-01_JPRB, 0.277489E-01_JPRB, 0.250585E-01_JPRB &
+  &, 0.225743E-01_JPRB, 0.203148E-01_JPRB, 0.182552E-01_JPRB, 0.163674E-01_JPRB &
+  &, 0.146432E-01_JPRB, 0.130727E-01_JPRB, 0.116687E-01_JPRB &
+  &, 0.103710E-01_JPRB, 0.921356E-02_JPRB, 0.815634E-02_JPRB, 0.723313E-02_JPRB &
+  &, 0.637473E-02_JPRB, 0.564013E-02_JPRB, 0.495596E-02_JPRB &
+  &, 0.435418E-02_JPRB, 0.381222E-02_JPRB, 0.333445E-02_JPRB, 0.292532E-02_JPRB &
+  &, 0.252942E-02_JPRB, 0.220920E-02_JPRB, 0.190720E-02_JPRB &
+  &, 0.165658E-02_JPRB, 0.142830E-02_JPRB, 0.122395E-02_JPRB, 0.107850E-02_JPRB &
+  &, 0.927396E-03_JPRB, 0.770555E-03_JPRB, 0.678224E-03_JPRB &
+  &, 0.582395E-03_JPRB, 0.483013E-03_JPRB, 0.417028E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 258, :) = (/ &
+  &  0.933022E+00_JPRB, 0.915763E+00_JPRB, 0.898323E+00_JPRB, 0.880713E+00_JPRB &
+  &, 0.862946E+00_JPRB, 0.845034E+00_JPRB, 0.826989E+00_JPRB &
+  &, 0.808824E+00_JPRB, 0.790554E+00_JPRB, 0.772191E+00_JPRB, 0.753749E+00_JPRB &
+  &, 0.735241E+00_JPRB, 0.716683E+00_JPRB, 0.698088E+00_JPRB &
+  &, 0.679471E+00_JPRB, 0.660849E+00_JPRB, 0.642234E+00_JPRB, 0.623645E+00_JPRB &
+  &, 0.605097E+00_JPRB, 0.586603E+00_JPRB, 0.568185E+00_JPRB &
+  &, 0.549856E+00_JPRB, 0.531634E+00_JPRB, 0.513536E+00_JPRB, 0.495581E+00_JPRB &
+  &, 0.477786E+00_JPRB, 0.460165E+00_JPRB, 0.442737E+00_JPRB &
+  &, 0.425522E+00_JPRB, 0.408535E+00_JPRB, 0.391794E+00_JPRB, 0.375314E+00_JPRB &
+  &, 0.359114E+00_JPRB, 0.343205E+00_JPRB, 0.327607E+00_JPRB &
+  &, 0.312338E+00_JPRB, 0.297404E+00_JPRB, 0.282823E+00_JPRB, 0.268603E+00_JPRB &
+  &, 0.254760E+00_JPRB, 0.241311E+00_JPRB, 0.228252E+00_JPRB &
+  &, 0.215598E+00_JPRB, 0.203353E+00_JPRB, 0.191531E+00_JPRB, 0.180132E+00_JPRB &
+  &, 0.169157E+00_JPRB, 0.158613E+00_JPRB, 0.148507E+00_JPRB &
+  &, 0.138819E+00_JPRB, 0.129564E+00_JPRB, 0.120726E+00_JPRB, 0.112318E+00_JPRB &
+  &, 0.104318E+00_JPRB, 0.967471E-01_JPRB, 0.895630E-01_JPRB &
+  &, 0.827805E-01_JPRB, 0.763812E-01_JPRB, 0.703427E-01_JPRB, 0.646881E-01_JPRB &
+  &, 0.593730E-01_JPRB, 0.544157E-01_JPRB, 0.497817E-01_JPRB &
+  &, 0.454492E-01_JPRB, 0.414298E-01_JPRB, 0.376970E-01_JPRB, 0.342394E-01_JPRB &
+  &, 0.310434E-01_JPRB, 0.280926E-01_JPRB, 0.253889E-01_JPRB &
+  &, 0.228906E-01_JPRB, 0.205948E-01_JPRB, 0.185190E-01_JPRB, 0.165918E-01_JPRB &
+  &, 0.148493E-01_JPRB, 0.132830E-01_JPRB, 0.118356E-01_JPRB &
+  &, 0.105413E-01_JPRB, 0.936241E-02_JPRB, 0.830813E-02_JPRB, 0.736211E-02_JPRB &
+  &, 0.650623E-02_JPRB, 0.572056E-02_JPRB, 0.503794E-02_JPRB &
+  &, 0.443772E-02_JPRB, 0.389735E-02_JPRB, 0.339226E-02_JPRB, 0.298421E-02_JPRB &
+  &, 0.258940E-02_JPRB, 0.223974E-02_JPRB, 0.196941E-02_JPRB &
+  &, 0.168824E-02_JPRB, 0.146054E-02_JPRB, 0.125676E-02_JPRB, 0.107850E-02_JPRB &
+  &, 0.927396E-03_JPRB, 0.805126E-03_JPRB, 0.678224E-03_JPRB &
+  &, 0.582395E-03_JPRB, 0.483013E-03_JPRB, 0.417028E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 259, :) = (/ &
+  &  0.933318E+00_JPRB, 0.916130E+00_JPRB, 0.898756E+00_JPRB, 0.881212E+00_JPRB &
+  &, 0.863508E+00_JPRB, 0.845657E+00_JPRB, 0.827672E+00_JPRB &
+  &, 0.809565E+00_JPRB, 0.791350E+00_JPRB, 0.773040E+00_JPRB, 0.754649E+00_JPRB &
+  &, 0.736189E+00_JPRB, 0.717677E+00_JPRB, 0.699127E+00_JPRB &
+  &, 0.680552E+00_JPRB, 0.661968E+00_JPRB, 0.643390E+00_JPRB, 0.624834E+00_JPRB &
+  &, 0.606317E+00_JPRB, 0.587853E+00_JPRB, 0.569462E+00_JPRB &
+  &, 0.551156E+00_JPRB, 0.532957E+00_JPRB, 0.514879E+00_JPRB, 0.496938E+00_JPRB &
+  &, 0.479153E+00_JPRB, 0.461547E+00_JPRB, 0.444126E+00_JPRB &
+  &, 0.426918E+00_JPRB, 0.409934E+00_JPRB, 0.393191E+00_JPRB, 0.376708E+00_JPRB &
+  &, 0.360503E+00_JPRB, 0.344589E+00_JPRB, 0.328986E+00_JPRB &
+  &, 0.313696E+00_JPRB, 0.298748E+00_JPRB, 0.284153E+00_JPRB, 0.269916E+00_JPRB &
+  &, 0.256055E+00_JPRB, 0.242576E+00_JPRB, 0.229494E+00_JPRB &
+  &, 0.216816E+00_JPRB, 0.204545E+00_JPRB, 0.192694E+00_JPRB, 0.181265E+00_JPRB &
+  &, 0.170257E+00_JPRB, 0.159689E+00_JPRB, 0.149533E+00_JPRB &
+  &, 0.139818E+00_JPRB, 0.130519E+00_JPRB, 0.121650E+00_JPRB, 0.113207E+00_JPRB &
+  &, 0.105185E+00_JPRB, 0.975607E-01_JPRB, 0.903505E-01_JPRB &
+  &, 0.835244E-01_JPRB, 0.770790E-01_JPRB, 0.710241E-01_JPRB, 0.653188E-01_JPRB &
+  &, 0.599841E-01_JPRB, 0.549886E-01_JPRB, 0.503142E-01_JPRB &
+  &, 0.459573E-01_JPRB, 0.419121E-01_JPRB, 0.381330E-01_JPRB, 0.346462E-01_JPRB &
+  &, 0.314392E-01_JPRB, 0.284566E-01_JPRB, 0.257193E-01_JPRB &
+  &, 0.231858E-01_JPRB, 0.208962E-01_JPRB, 0.187828E-01_JPRB, 0.168386E-01_JPRB &
+  &, 0.150783E-01_JPRB, 0.134700E-01_JPRB, 0.120263E-01_JPRB &
+  &, 0.107115E-01_JPRB, 0.951125E-02_JPRB, 0.845993E-02_JPRB, 0.749110E-02_JPRB &
+  &, 0.661144E-02_JPRB, 0.582781E-02_JPRB, 0.514724E-02_JPRB &
+  &, 0.452126E-02_JPRB, 0.395409E-02_JPRB, 0.347899E-02_JPRB, 0.304311E-02_JPRB &
+  &, 0.264939E-02_JPRB, 0.230083E-02_JPRB, 0.200051E-02_JPRB &
+  &, 0.171991E-02_JPRB, 0.149277E-02_JPRB, 0.128957E-02_JPRB, 0.111189E-02_JPRB &
+  &, 0.961373E-03_JPRB, 0.805126E-03_JPRB, 0.713394E-03_JPRB &
+  &, 0.582395E-03_JPRB, 0.519399E-03_JPRB, 0.417028E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART38',0,ZHOOK_HANDLE)
+
+XCW( 260, :) = (/ &
+  &  0.933612E+00_JPRB, 0.916494E+00_JPRB, 0.899188E+00_JPRB, 0.881710E+00_JPRB &
+  &, 0.864070E+00_JPRB, 0.846280E+00_JPRB, 0.828355E+00_JPRB &
+  &, 0.810305E+00_JPRB, 0.792146E+00_JPRB, 0.773888E+00_JPRB, 0.755548E+00_JPRB &
+  &, 0.737137E+00_JPRB, 0.718671E+00_JPRB, 0.700164E+00_JPRB &
+  &, 0.681630E+00_JPRB, 0.663086E+00_JPRB, 0.644544E+00_JPRB, 0.626024E+00_JPRB &
+  &, 0.607538E+00_JPRB, 0.589103E+00_JPRB, 0.570737E+00_JPRB &
+  &, 0.552456E+00_JPRB, 0.534276E+00_JPRB, 0.516219E+00_JPRB, 0.498295E+00_JPRB &
+  &, 0.480525E+00_JPRB, 0.462925E+00_JPRB, 0.445515E+00_JPRB &
+  &, 0.428314E+00_JPRB, 0.411332E+00_JPRB, 0.394591E+00_JPRB, 0.378105E+00_JPRB &
+  &, 0.361897E+00_JPRB, 0.345974E+00_JPRB, 0.330360E+00_JPRB &
+  &, 0.315063E+00_JPRB, 0.300102E+00_JPRB, 0.285483E+00_JPRB, 0.271230E+00_JPRB &
+  &, 0.257350E+00_JPRB, 0.243851E+00_JPRB, 0.230748E+00_JPRB &
+  &, 0.218034E+00_JPRB, 0.205748E+00_JPRB, 0.193858E+00_JPRB, 0.182398E+00_JPRB &
+  &, 0.171368E+00_JPRB, 0.160754E+00_JPRB, 0.150572E+00_JPRB &
+  &, 0.140816E+00_JPRB, 0.131488E+00_JPRB, 0.122587E+00_JPRB, 0.114111E+00_JPRB &
+  &, 0.106038E+00_JPRB, 0.983892E-01_JPRB, 0.911227E-01_JPRB &
+  &, 0.842683E-01_JPRB, 0.777925E-01_JPRB, 0.717055E-01_JPRB, 0.659661E-01_JPRB &
+  &, 0.605952E-01_JPRB, 0.555615E-01_JPRB, 0.508467E-01_JPRB &
+  &, 0.464654E-01_JPRB, 0.423758E-01_JPRB, 0.385880E-01_JPRB, 0.350724E-01_JPRB &
+  &, 0.318153E-01_JPRB, 0.288205E-01_JPRB, 0.260497E-01_JPRB &
+  &, 0.235022E-01_JPRB, 0.211761E-01_JPRB, 0.190466E-01_JPRB, 0.170854E-01_JPRB &
+  &, 0.153073E-01_JPRB, 0.136803E-01_JPRB, 0.122170E-01_JPRB &
+  &, 0.108818E-01_JPRB, 0.968490E-02_JPRB, 0.858642E-02_JPRB, 0.762008E-02_JPRB &
+  &, 0.674294E-02_JPRB, 0.593505E-02_JPRB, 0.522922E-02_JPRB &
+  &, 0.460480E-02_JPRB, 0.403922E-02_JPRB, 0.353681E-02_JPRB, 0.310200E-02_JPRB &
+  &, 0.270937E-02_JPRB, 0.236192E-02_JPRB, 0.203161E-02_JPRB &
+  &, 0.178324E-02_JPRB, 0.152501E-02_JPRB, 0.132237E-02_JPRB, 0.114528E-02_JPRB &
+  &, 0.995351E-03_JPRB, 0.839696E-03_JPRB, 0.713394E-03_JPRB &
+  &, 0.618170E-03_JPRB, 0.519399E-03_JPRB, 0.454031E-03_JPRB, 0.386254E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.282223E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 261, :) = (/ &
+  &  0.933908E+00_JPRB, 0.916858E+00_JPRB, 0.899619E+00_JPRB, 0.882207E+00_JPRB &
+  &, 0.864630E+00_JPRB, 0.846903E+00_JPRB, 0.829037E+00_JPRB &
+  &, 0.811045E+00_JPRB, 0.792939E+00_JPRB, 0.774735E+00_JPRB, 0.756446E+00_JPRB &
+  &, 0.738083E+00_JPRB, 0.719663E+00_JPRB, 0.701200E+00_JPRB &
+  &, 0.682708E+00_JPRB, 0.664202E+00_JPRB, 0.645699E+00_JPRB, 0.627211E+00_JPRB &
+  &, 0.608758E+00_JPRB, 0.590353E+00_JPRB, 0.572014E+00_JPRB &
+  &, 0.553755E+00_JPRB, 0.535599E+00_JPRB, 0.517559E+00_JPRB, 0.499653E+00_JPRB &
+  &, 0.481896E+00_JPRB, 0.464307E+00_JPRB, 0.446908E+00_JPRB &
+  &, 0.429706E+00_JPRB, 0.412730E+00_JPRB, 0.395992E+00_JPRB, 0.379503E+00_JPRB &
+  &, 0.363291E+00_JPRB, 0.347363E+00_JPRB, 0.331739E+00_JPRB &
+  &, 0.316431E+00_JPRB, 0.301457E+00_JPRB, 0.286822E+00_JPRB, 0.272553E+00_JPRB &
+  &, 0.258645E+00_JPRB, 0.245126E+00_JPRB, 0.232001E+00_JPRB &
+  &, 0.219264E+00_JPRB, 0.206940E+00_JPRB, 0.195033E+00_JPRB, 0.183543E+00_JPRB &
+  &, 0.172468E+00_JPRB, 0.161830E+00_JPRB, 0.151611E+00_JPRB &
+  &, 0.141828E+00_JPRB, 0.132457E+00_JPRB, 0.123525E+00_JPRB, 0.115000E+00_JPRB &
+  &, 0.106905E+00_JPRB, 0.992029E-01_JPRB, 0.919253E-01_JPRB &
+  &, 0.850276E-01_JPRB, 0.785220E-01_JPRB, 0.723869E-01_JPRB, 0.666134E-01_JPRB &
+  &, 0.612063E-01_JPRB, 0.561344E-01_JPRB, 0.513970E-01_JPRB &
+  &, 0.469735E-01_JPRB, 0.428581E-01_JPRB, 0.390430E-01_JPRB, 0.354986E-01_JPRB &
+  &, 0.322111E-01_JPRB, 0.291844E-01_JPRB, 0.263801E-01_JPRB &
+  &, 0.238185E-01_JPRB, 0.214560E-01_JPRB, 0.193104E-01_JPRB, 0.173323E-01_JPRB &
+  &, 0.155363E-01_JPRB, 0.138906E-01_JPRB, 0.124078E-01_JPRB &
+  &, 0.110520E-01_JPRB, 0.983375E-02_JPRB, 0.873822E-02_JPRB, 0.774906E-02_JPRB &
+  &, 0.684814E-02_JPRB, 0.604229E-02_JPRB, 0.533852E-02_JPRB &
+  &, 0.468834E-02_JPRB, 0.412434E-02_JPRB, 0.359462E-02_JPRB, 0.316090E-02_JPRB &
+  &, 0.276936E-02_JPRB, 0.239246E-02_JPRB, 0.209381E-02_JPRB &
+  &, 0.181490E-02_JPRB, 0.155724E-02_JPRB, 0.135518E-02_JPRB, 0.117867E-02_JPRB &
+  &, 0.995351E-03_JPRB, 0.874267E-03_JPRB, 0.748564E-03_JPRB &
+  &, 0.618170E-03_JPRB, 0.555785E-03_JPRB, 0.454031E-03_JPRB, 0.386254E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 262, :) = (/ &
+  &  0.934203E+00_JPRB, 0.917223E+00_JPRB, 0.900051E+00_JPRB, 0.882704E+00_JPRB &
+  &, 0.865190E+00_JPRB, 0.847523E+00_JPRB, 0.829717E+00_JPRB &
+  &, 0.811782E+00_JPRB, 0.793732E+00_JPRB, 0.775581E+00_JPRB, 0.757342E+00_JPRB &
+  &, 0.739028E+00_JPRB, 0.720654E+00_JPRB, 0.702235E+00_JPRB &
+  &, 0.683784E+00_JPRB, 0.665318E+00_JPRB, 0.646851E+00_JPRB, 0.628399E+00_JPRB &
+  &, 0.609977E+00_JPRB, 0.591599E+00_JPRB, 0.573288E+00_JPRB &
+  &, 0.555055E+00_JPRB, 0.536918E+00_JPRB, 0.518898E+00_JPRB, 0.501006E+00_JPRB &
+  &, 0.483267E+00_JPRB, 0.465689E+00_JPRB, 0.448297E+00_JPRB &
+  &, 0.431102E+00_JPRB, 0.414129E+00_JPRB, 0.397392E+00_JPRB, 0.380905E+00_JPRB &
+  &, 0.364685E+00_JPRB, 0.348752E+00_JPRB, 0.333118E+00_JPRB &
+  &, 0.317798E+00_JPRB, 0.302811E+00_JPRB, 0.288162E+00_JPRB, 0.273866E+00_JPRB &
+  &, 0.259951E+00_JPRB, 0.246401E+00_JPRB, 0.233254E+00_JPRB &
+  &, 0.220493E+00_JPRB, 0.208143E+00_JPRB, 0.196208E+00_JPRB, 0.184687E+00_JPRB &
+  &, 0.173580E+00_JPRB, 0.162907E+00_JPRB, 0.152663E+00_JPRB &
+  &, 0.142840E+00_JPRB, 0.133440E+00_JPRB, 0.124462E+00_JPRB, 0.115903E+00_JPRB &
+  &, 0.107772E+00_JPRB, 0.100046E+00_JPRB, 0.927127E-01_JPRB &
+  &, 0.857870E-01_JPRB, 0.792356E-01_JPRB, 0.730684E-01_JPRB, 0.672607E-01_JPRB &
+  &, 0.618174E-01_JPRB, 0.567072E-01_JPRB, 0.519472E-01_JPRB &
+  &, 0.474816E-01_JPRB, 0.433404E-01_JPRB, 0.394979E-01_JPRB, 0.359054E-01_JPRB &
+  &, 0.326070E-01_JPRB, 0.295483E-01_JPRB, 0.267311E-01_JPRB &
+  &, 0.241348E-01_JPRB, 0.217575E-01_JPRB, 0.195741E-01_JPRB, 0.175791E-01_JPRB &
+  &, 0.157653E-01_JPRB, 0.141009E-01_JPRB, 0.125985E-01_JPRB &
+  &, 0.112223E-01_JPRB, 0.100074E-01_JPRB, 0.889001E-02_JPRB, 0.787805E-02_JPRB &
+  &, 0.697964E-02_JPRB, 0.614953E-02_JPRB, 0.542050E-02_JPRB &
+  &, 0.477189E-02_JPRB, 0.420947E-02_JPRB, 0.368135E-02_JPRB, 0.321980E-02_JPRB &
+  &, 0.279935E-02_JPRB, 0.245355E-02_JPRB, 0.212492E-02_JPRB &
+  &, 0.184657E-02_JPRB, 0.158947E-02_JPRB, 0.138799E-02_JPRB, 0.121206E-02_JPRB &
+  &, 0.102933E-02_JPRB, 0.874267E-03_JPRB, 0.748564E-03_JPRB &
+  &, 0.653945E-03_JPRB, 0.555785E-03_JPRB, 0.454031E-03_JPRB, 0.386254E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 263, :) = (/ &
+  &  0.934497E+00_JPRB, 0.917584E+00_JPRB, 0.900481E+00_JPRB, 0.883199E+00_JPRB &
+  &, 0.865749E+00_JPRB, 0.848144E+00_JPRB, 0.830396E+00_JPRB &
+  &, 0.812518E+00_JPRB, 0.794524E+00_JPRB, 0.776426E+00_JPRB, 0.758238E+00_JPRB &
+  &, 0.739973E+00_JPRB, 0.721646E+00_JPRB, 0.703270E+00_JPRB &
+  &, 0.684861E+00_JPRB, 0.666434E+00_JPRB, 0.648004E+00_JPRB, 0.629585E+00_JPRB &
+  &, 0.611194E+00_JPRB, 0.592846E+00_JPRB, 0.574563E+00_JPRB &
+  &, 0.556355E+00_JPRB, 0.538241E+00_JPRB, 0.520238E+00_JPRB, 0.502363E+00_JPRB &
+  &, 0.484635E+00_JPRB, 0.467071E+00_JPRB, 0.449686E+00_JPRB &
+  &, 0.432502E+00_JPRB, 0.415531E+00_JPRB, 0.398792E+00_JPRB, 0.382302E+00_JPRB &
+  &, 0.366079E+00_JPRB, 0.350142E+00_JPRB, 0.334497E+00_JPRB &
+  &, 0.319165E+00_JPRB, 0.304165E+00_JPRB, 0.289501E+00_JPRB, 0.275190E+00_JPRB &
+  &, 0.261246E+00_JPRB, 0.247687E+00_JPRB, 0.234507E+00_JPRB &
+  &, 0.221722E+00_JPRB, 0.209347E+00_JPRB, 0.197383E+00_JPRB, 0.185832E+00_JPRB &
+  &, 0.174692E+00_JPRB, 0.163984E+00_JPRB, 0.153702E+00_JPRB &
+  &, 0.143852E+00_JPRB, 0.134422E+00_JPRB, 0.125413E+00_JPRB, 0.116821E+00_JPRB &
+  &, 0.108639E+00_JPRB, 0.100875E+00_JPRB, 0.935152E-01_JPRB &
+  &, 0.865464E-01_JPRB, 0.799651E-01_JPRB, 0.737498E-01_JPRB, 0.679245E-01_JPRB &
+  &, 0.624285E-01_JPRB, 0.572975E-01_JPRB, 0.524975E-01_JPRB &
+  &, 0.480078E-01_JPRB, 0.438226E-01_JPRB, 0.399529E-01_JPRB, 0.363316E-01_JPRB &
+  &, 0.330028E-01_JPRB, 0.299123E-01_JPRB, 0.270822E-01_JPRB &
+  &, 0.244511E-01_JPRB, 0.220589E-01_JPRB, 0.198599E-01_JPRB, 0.178259E-01_JPRB &
+  &, 0.159943E-01_JPRB, 0.143112E-01_JPRB, 0.127892E-01_JPRB &
+  &, 0.114169E-01_JPRB, 0.101562E-01_JPRB, 0.901651E-02_JPRB, 0.800703E-02_JPRB &
+  &, 0.708485E-02_JPRB, 0.625677E-02_JPRB, 0.552980E-02_JPRB &
+  &, 0.485543E-02_JPRB, 0.426622E-02_JPRB, 0.373916E-02_JPRB, 0.327869E-02_JPRB &
+  &, 0.285934E-02_JPRB, 0.251464E-02_JPRB, 0.218712E-02_JPRB &
+  &, 0.187823E-02_JPRB, 0.165394E-02_JPRB, 0.142080E-02_JPRB, 0.121206E-02_JPRB &
+  &, 0.106331E-02_JPRB, 0.908838E-03_JPRB, 0.783734E-03_JPRB &
+  &, 0.653945E-03_JPRB, 0.555785E-03_JPRB, 0.491033E-03_JPRB, 0.423880E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 264, :) = (/ &
+  &  0.934791E+00_JPRB, 0.917948E+00_JPRB, 0.900910E+00_JPRB, 0.883694E+00_JPRB &
+  &, 0.866307E+00_JPRB, 0.848763E+00_JPRB, 0.831075E+00_JPRB &
+  &, 0.813254E+00_JPRB, 0.795316E+00_JPRB, 0.777270E+00_JPRB, 0.759133E+00_JPRB &
+  &, 0.740915E+00_JPRB, 0.722634E+00_JPRB, 0.704303E+00_JPRB &
+  &, 0.685936E+00_JPRB, 0.667548E+00_JPRB, 0.649154E+00_JPRB, 0.630768E+00_JPRB &
+  &, 0.612411E+00_JPRB, 0.594096E+00_JPRB, 0.575837E+00_JPRB &
+  &, 0.557651E+00_JPRB, 0.539560E+00_JPRB, 0.521577E+00_JPRB, 0.503720E+00_JPRB &
+  &, 0.486006E+00_JPRB, 0.468453E+00_JPRB, 0.451079E+00_JPRB &
+  &, 0.433898E+00_JPRB, 0.416930E+00_JPRB, 0.400193E+00_JPRB, 0.383704E+00_JPRB &
+  &, 0.367477E+00_JPRB, 0.351531E+00_JPRB, 0.335880E+00_JPRB &
+  &, 0.320533E+00_JPRB, 0.305519E+00_JPRB, 0.290841E+00_JPRB, 0.276513E+00_JPRB &
+  &, 0.262551E+00_JPRB, 0.248972E+00_JPRB, 0.235771E+00_JPRB &
+  &, 0.222962E+00_JPRB, 0.210550E+00_JPRB, 0.198558E+00_JPRB, 0.186977E+00_JPRB &
+  &, 0.175816E+00_JPRB, 0.165073E+00_JPRB, 0.154754E+00_JPRB &
+  &, 0.144864E+00_JPRB, 0.135405E+00_JPRB, 0.126350E+00_JPRB, 0.117724E+00_JPRB &
+  &, 0.109521E+00_JPRB, 0.101718E+00_JPRB, 0.943178E-01_JPRB &
+  &, 0.873057E-01_JPRB, 0.806945E-01_JPRB, 0.744474E-01_JPRB, 0.685718E-01_JPRB &
+  &, 0.630566E-01_JPRB, 0.578877E-01_JPRB, 0.530478E-01_JPRB &
+  &, 0.485341E-01_JPRB, 0.443235E-01_JPRB, 0.404079E-01_JPRB, 0.367771E-01_JPRB &
+  &, 0.333986E-01_JPRB, 0.302964E-01_JPRB, 0.274332E-01_JPRB &
+  &, 0.247885E-01_JPRB, 0.223604E-01_JPRB, 0.201237E-01_JPRB, 0.180952E-01_JPRB &
+  &, 0.162233E-01_JPRB, 0.145215E-01_JPRB, 0.129800E-01_JPRB &
+  &, 0.115871E-01_JPRB, 0.103299E-01_JPRB, 0.916830E-02_JPRB, 0.813602E-02_JPRB &
+  &, 0.721635E-02_JPRB, 0.639082E-02_JPRB, 0.563910E-02_JPRB &
+  &, 0.496682E-02_JPRB, 0.435134E-02_JPRB, 0.382589E-02_JPRB, 0.333759E-02_JPRB &
+  &, 0.291933E-02_JPRB, 0.254518E-02_JPRB, 0.221822E-02_JPRB &
+  &, 0.194156E-02_JPRB, 0.168618E-02_JPRB, 0.145361E-02_JPRB, 0.124545E-02_JPRB &
+  &, 0.106331E-02_JPRB, 0.943409E-03_JPRB, 0.783734E-03_JPRB &
+  &, 0.689719E-03_JPRB, 0.592170E-03_JPRB, 0.491033E-03_JPRB, 0.423880E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 265, :) = (/ &
+  &  0.935083E+00_JPRB, 0.918309E+00_JPRB, 0.901339E+00_JPRB, 0.884188E+00_JPRB &
+  &, 0.866864E+00_JPRB, 0.849382E+00_JPRB, 0.831752E+00_JPRB &
+  &, 0.813989E+00_JPRB, 0.796105E+00_JPRB, 0.778113E+00_JPRB, 0.760026E+00_JPRB &
+  &, 0.741857E+00_JPRB, 0.723623E+00_JPRB, 0.705336E+00_JPRB &
+  &, 0.687010E+00_JPRB, 0.668661E+00_JPRB, 0.650305E+00_JPRB, 0.631956E+00_JPRB &
+  &, 0.613629E+00_JPRB, 0.595340E+00_JPRB, 0.577111E+00_JPRB &
+  &, 0.558951E+00_JPRB, 0.540880E+00_JPRB, 0.522917E+00_JPRB, 0.505077E+00_JPRB &
+  &, 0.487377E+00_JPRB, 0.469836E+00_JPRB, 0.452468E+00_JPRB &
+  &, 0.435293E+00_JPRB, 0.418332E+00_JPRB, 0.401597E+00_JPRB, 0.385106E+00_JPRB &
+  &, 0.368875E+00_JPRB, 0.352924E+00_JPRB, 0.337264E+00_JPRB &
+  &, 0.321909E+00_JPRB, 0.306883E+00_JPRB, 0.292190E+00_JPRB, 0.277846E+00_JPRB &
+  &, 0.263867E+00_JPRB, 0.250258E+00_JPRB, 0.237024E+00_JPRB &
+  &, 0.224192E+00_JPRB, 0.211764E+00_JPRB, 0.199745E+00_JPRB, 0.188133E+00_JPRB &
+  &, 0.176940E+00_JPRB, 0.166162E+00_JPRB, 0.155818E+00_JPRB &
+  &, 0.145888E+00_JPRB, 0.136387E+00_JPRB, 0.127301E+00_JPRB, 0.118641E+00_JPRB &
+  &, 0.110388E+00_JPRB, 0.102561E+00_JPRB, 0.951204E-01_JPRB &
+  &, 0.880806E-01_JPRB, 0.814240E-01_JPRB, 0.751451E-01_JPRB, 0.692357E-01_JPRB &
+  &, 0.636847E-01_JPRB, 0.584779E-01_JPRB, 0.536158E-01_JPRB &
+  &, 0.490603E-01_JPRB, 0.448243E-01_JPRB, 0.408629E-01_JPRB, 0.372033E-01_JPRB &
+  &, 0.338142E-01_JPRB, 0.306805E-01_JPRB, 0.277843E-01_JPRB &
+  &, 0.251049E-01_JPRB, 0.226618E-01_JPRB, 0.204095E-01_JPRB, 0.183420E-01_JPRB &
+  &, 0.164752E-01_JPRB, 0.147552E-01_JPRB, 0.131945E-01_JPRB &
+  &, 0.117817E-01_JPRB, 0.104787E-01_JPRB, 0.932010E-02_JPRB, 0.829080E-02_JPRB &
+  &, 0.734785E-02_JPRB, 0.649806E-02_JPRB, 0.572108E-02_JPRB &
+  &, 0.505036E-02_JPRB, 0.443647E-02_JPRB, 0.391261E-02_JPRB, 0.342593E-02_JPRB &
+  &, 0.297931E-02_JPRB, 0.260627E-02_JPRB, 0.228042E-02_JPRB &
+  &, 0.197323E-02_JPRB, 0.171841E-02_JPRB, 0.148642E-02_JPRB, 0.127884E-02_JPRB &
+  &, 0.109728E-02_JPRB, 0.943409E-03_JPRB, 0.818903E-03_JPRB &
+  &, 0.689719E-03_JPRB, 0.592170E-03_JPRB, 0.491033E-03_JPRB, 0.423880E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.321112E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 266, :) = (/ &
+  &  0.935377E+00_JPRB, 0.918671E+00_JPRB, 0.901767E+00_JPRB, 0.884681E+00_JPRB &
+  &, 0.867421E+00_JPRB, 0.849999E+00_JPRB, 0.832429E+00_JPRB &
+  &, 0.814723E+00_JPRB, 0.796894E+00_JPRB, 0.778954E+00_JPRB, 0.760919E+00_JPRB &
+  &, 0.742798E+00_JPRB, 0.724611E+00_JPRB, 0.706368E+00_JPRB &
+  &, 0.688083E+00_JPRB, 0.669774E+00_JPRB, 0.651455E+00_JPRB, 0.633139E+00_JPRB &
+  &, 0.614846E+00_JPRB, 0.596587E+00_JPRB, 0.578382E+00_JPRB &
+  &, 0.560247E+00_JPRB, 0.542199E+00_JPRB, 0.524257E+00_JPRB, 0.506434E+00_JPRB &
+  &, 0.488749E+00_JPRB, 0.471218E+00_JPRB, 0.453861E+00_JPRB &
+  &, 0.436693E+00_JPRB, 0.419735E+00_JPRB, 0.403002E+00_JPRB, 0.386508E+00_JPRB &
+  &, 0.370273E+00_JPRB, 0.354318E+00_JPRB, 0.338647E+00_JPRB &
+  &, 0.323286E+00_JPRB, 0.308237E+00_JPRB, 0.293530E+00_JPRB, 0.279170E+00_JPRB &
+  &, 0.265173E+00_JPRB, 0.251544E+00_JPRB, 0.238299E+00_JPRB &
+  &, 0.225432E+00_JPRB, 0.212979E+00_JPRB, 0.200932E+00_JPRB, 0.189290E+00_JPRB &
+  &, 0.178064E+00_JPRB, 0.167251E+00_JPRB, 0.156870E+00_JPRB &
+  &, 0.146913E+00_JPRB, 0.137383E+00_JPRB, 0.128266E+00_JPRB, 0.119559E+00_JPRB &
+  &, 0.111284E+00_JPRB, 0.103404E+00_JPRB, 0.959229E-01_JPRB &
+  &, 0.888554E-01_JPRB, 0.821534E-01_JPRB, 0.758427E-01_JPRB, 0.698996E-01_JPRB &
+  &, 0.643128E-01_JPRB, 0.590855E-01_JPRB, 0.541660E-01_JPRB &
+  &, 0.495866E-01_JPRB, 0.453066E-01_JPRB, 0.413368E-01_JPRB, 0.376488E-01_JPRB &
+  &, 0.342101E-01_JPRB, 0.310445E-01_JPRB, 0.281353E-01_JPRB &
+  &, 0.254423E-01_JPRB, 0.229633E-01_JPRB, 0.206952E-01_JPRB, 0.186112E-01_JPRB &
+  &, 0.167042E-01_JPRB, 0.149655E-01_JPRB, 0.133853E-01_JPRB &
+  &, 0.119519E-01_JPRB, 0.106524E-01_JPRB, 0.947189E-02_JPRB, 0.841978E-02_JPRB &
+  &, 0.745305E-02_JPRB, 0.660530E-02_JPRB, 0.583038E-02_JPRB &
+  &, 0.513390E-02_JPRB, 0.452159E-02_JPRB, 0.397043E-02_JPRB, 0.348482E-02_JPRB &
+  &, 0.303930E-02_JPRB, 0.266736E-02_JPRB, 0.231153E-02_JPRB &
+  &, 0.200489E-02_JPRB, 0.175065E-02_JPRB, 0.151923E-02_JPRB, 0.131223E-02_JPRB &
+  &, 0.113126E-02_JPRB, 0.977979E-03_JPRB, 0.854073E-03_JPRB &
+  &, 0.725494E-03_JPRB, 0.628556E-03_JPRB, 0.528036E-03_JPRB, 0.461505E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.321112E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART39
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART39',0,ZHOOK_HANDLE)
+
+XCW( 267, :) = (/ &
+  &  0.935668E+00_JPRB, 0.919031E+00_JPRB, 0.902194E+00_JPRB, 0.885173E+00_JPRB &
+  &, 0.867976E+00_JPRB, 0.850616E+00_JPRB, 0.833105E+00_JPRB &
+  &, 0.815456E+00_JPRB, 0.797682E+00_JPRB, 0.779795E+00_JPRB, 0.761810E+00_JPRB &
+  &, 0.743739E+00_JPRB, 0.725598E+00_JPRB, 0.707398E+00_JPRB &
+  &, 0.689156E+00_JPRB, 0.670886E+00_JPRB, 0.652604E+00_JPRB, 0.634323E+00_JPRB &
+  &, 0.616059E+00_JPRB, 0.597833E+00_JPRB, 0.579657E+00_JPRB &
+  &, 0.561547E+00_JPRB, 0.543522E+00_JPRB, 0.525596E+00_JPRB, 0.507788E+00_JPRB &
+  &, 0.490116E+00_JPRB, 0.472600E+00_JPRB, 0.455250E+00_JPRB &
+  &, 0.438093E+00_JPRB, 0.421137E+00_JPRB, 0.404406E+00_JPRB, 0.387914E+00_JPRB &
+  &, 0.371676E+00_JPRB, 0.355712E+00_JPRB, 0.340035E+00_JPRB &
+  &, 0.324662E+00_JPRB, 0.309601E+00_JPRB, 0.294879E+00_JPRB, 0.280503E+00_JPRB &
+  &, 0.266488E+00_JPRB, 0.252829E+00_JPRB, 0.239563E+00_JPRB &
+  &, 0.226684E+00_JPRB, 0.214194E+00_JPRB, 0.202118E+00_JPRB, 0.190447E+00_JPRB &
+  &, 0.179189E+00_JPRB, 0.168353E+00_JPRB, 0.157935E+00_JPRB &
+  &, 0.147938E+00_JPRB, 0.138366E+00_JPRB, 0.129217E+00_JPRB, 0.120490E+00_JPRB &
+  &, 0.112165E+00_JPRB, 0.104248E+00_JPRB, 0.967406E-01_JPRB &
+  &, 0.896303E-01_JPRB, 0.828988E-01_JPRB, 0.765566E-01_JPRB, 0.705800E-01_JPRB &
+  &, 0.649579E-01_JPRB, 0.596758E-01_JPRB, 0.547340E-01_JPRB &
+  &, 0.501128E-01_JPRB, 0.458074E-01_JPRB, 0.418107E-01_JPRB, 0.380750E-01_JPRB &
+  &, 0.346257E-01_JPRB, 0.314286E-01_JPRB, 0.284864E-01_JPRB &
+  &, 0.257586E-01_JPRB, 0.232647E-01_JPRB, 0.209810E-01_JPRB, 0.188581E-01_JPRB &
+  &, 0.169561E-01_JPRB, 0.151992E-01_JPRB, 0.135999E-01_JPRB &
+  &, 0.121465E-01_JPRB, 0.108260E-01_JPRB, 0.964899E-02_JPRB, 0.857456E-02_JPRB &
+  &, 0.758456E-02_JPRB, 0.671254E-02_JPRB, 0.593969E-02_JPRB &
+  &, 0.524529E-02_JPRB, 0.460671E-02_JPRB, 0.405715E-02_JPRB, 0.354372E-02_JPRB &
+  &, 0.309928E-02_JPRB, 0.272845E-02_JPRB, 0.237373E-02_JPRB &
+  &, 0.206822E-02_JPRB, 0.178288E-02_JPRB, 0.155204E-02_JPRB, 0.134562E-02_JPRB &
+  &, 0.116524E-02_JPRB, 0.101255E-02_JPRB, 0.854073E-03_JPRB &
+  &, 0.725494E-03_JPRB, 0.628556E-03_JPRB, 0.528036E-03_JPRB, 0.461505E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.321112E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 268, :) = (/ &
+  &  0.935958E+00_JPRB, 0.919391E+00_JPRB, 0.902622E+00_JPRB, 0.885665E+00_JPRB &
+  &, 0.868530E+00_JPRB, 0.851232E+00_JPRB, 0.833780E+00_JPRB &
+  &, 0.816188E+00_JPRB, 0.798469E+00_JPRB, 0.780635E+00_JPRB, 0.762701E+00_JPRB &
+  &, 0.744679E+00_JPRB, 0.726582E+00_JPRB, 0.708428E+00_JPRB &
+  &, 0.690228E+00_JPRB, 0.671997E+00_JPRB, 0.653751E+00_JPRB, 0.635505E+00_JPRB &
+  &, 0.617276E+00_JPRB, 0.599077E+00_JPRB, 0.580928E+00_JPRB &
+  &, 0.562843E+00_JPRB, 0.544837E+00_JPRB, 0.526932E+00_JPRB, 0.509145E+00_JPRB &
+  &, 0.491488E+00_JPRB, 0.473982E+00_JPRB, 0.456643E+00_JPRB &
+  &, 0.439493E+00_JPRB, 0.422539E+00_JPRB, 0.405811E+00_JPRB, 0.389316E+00_JPRB &
+  &, 0.373078E+00_JPRB, 0.357105E+00_JPRB, 0.341423E+00_JPRB &
+  &, 0.326039E+00_JPRB, 0.310965E+00_JPRB, 0.296229E+00_JPRB, 0.281837E+00_JPRB &
+  &, 0.267794E+00_JPRB, 0.254126E+00_JPRB, 0.240827E+00_JPRB &
+  &, 0.227924E+00_JPRB, 0.215408E+00_JPRB, 0.203305E+00_JPRB, 0.191603E+00_JPRB &
+  &, 0.180325E+00_JPRB, 0.169455E+00_JPRB, 0.159000E+00_JPRB &
+  &, 0.148976E+00_JPRB, 0.139375E+00_JPRB, 0.130182E+00_JPRB, 0.121408E+00_JPRB &
+  &, 0.113061E+00_JPRB, 0.105106E+00_JPRB, 0.975583E-01_JPRB &
+  &, 0.904052E-01_JPRB, 0.836441E-01_JPRB, 0.772705E-01_JPRB, 0.712439E-01_JPRB &
+  &, 0.655859E-01_JPRB, 0.602834E-01_JPRB, 0.553020E-01_JPRB &
+  &, 0.506572E-01_JPRB, 0.463267E-01_JPRB, 0.422847E-01_JPRB, 0.385205E-01_JPRB &
+  &, 0.350413E-01_JPRB, 0.318330E-01_JPRB, 0.288374E-01_JPRB &
+  &, 0.260960E-01_JPRB, 0.235877E-01_JPRB, 0.212668E-01_JPRB, 0.191273E-01_JPRB &
+  &, 0.171851E-01_JPRB, 0.154095E-01_JPRB, 0.137906E-01_JPRB &
+  &, 0.123411E-01_JPRB, 0.109997E-01_JPRB, 0.980078E-02_JPRB, 0.870355E-02_JPRB &
+  &, 0.771606E-02_JPRB, 0.684659E-02_JPRB, 0.604899E-02_JPRB &
+  &, 0.532883E-02_JPRB, 0.469184E-02_JPRB, 0.414388E-02_JPRB, 0.363206E-02_JPRB &
+  &, 0.315927E-02_JPRB, 0.275900E-02_JPRB, 0.240483E-02_JPRB &
+  &, 0.209989E-02_JPRB, 0.181511E-02_JPRB, 0.158485E-02_JPRB, 0.137901E-02_JPRB &
+  &, 0.119922E-02_JPRB, 0.101255E-02_JPRB, 0.889243E-03_JPRB &
+  &, 0.761269E-03_JPRB, 0.628556E-03_JPRB, 0.565038E-03_JPRB, 0.461505E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.321112E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 269, :) = (/ &
+  &  0.936250E+00_JPRB, 0.919751E+00_JPRB, 0.903048E+00_JPRB, 0.886156E+00_JPRB &
+  &, 0.869084E+00_JPRB, 0.851847E+00_JPRB, 0.834444E+00_JPRB &
+  &, 0.816919E+00_JPRB, 0.799255E+00_JPRB, 0.781474E+00_JPRB, 0.763591E+00_JPRB &
+  &, 0.745617E+00_JPRB, 0.727567E+00_JPRB, 0.709457E+00_JPRB &
+  &, 0.691299E+00_JPRB, 0.673107E+00_JPRB, 0.654899E+00_JPRB, 0.636688E+00_JPRB &
+  &, 0.618490E+00_JPRB, 0.600321E+00_JPRB, 0.582199E+00_JPRB &
+  &, 0.564140E+00_JPRB, 0.546157E+00_JPRB, 0.528272E+00_JPRB, 0.510502E+00_JPRB &
+  &, 0.492859E+00_JPRB, 0.475364E+00_JPRB, 0.458036E+00_JPRB &
+  &, 0.440893E+00_JPRB, 0.423946E+00_JPRB, 0.407215E+00_JPRB, 0.390721E+00_JPRB &
+  &, 0.374481E+00_JPRB, 0.358503E+00_JPRB, 0.342811E+00_JPRB &
+  &, 0.327416E+00_JPRB, 0.312338E+00_JPRB, 0.297588E+00_JPRB, 0.283170E+00_JPRB &
+  &, 0.269120E+00_JPRB, 0.255422E+00_JPRB, 0.242102E+00_JPRB &
+  &, 0.229175E+00_JPRB, 0.216634E+00_JPRB, 0.204504E+00_JPRB, 0.192772E+00_JPRB &
+  &, 0.181449E+00_JPRB, 0.170557E+00_JPRB, 0.160077E+00_JPRB &
+  &, 0.150014E+00_JPRB, 0.140371E+00_JPRB, 0.131147E+00_JPRB, 0.122339E+00_JPRB &
+  &, 0.113943E+00_JPRB, 0.105964E+00_JPRB, 0.983760E-01_JPRB &
+  &, 0.911955E-01_JPRB, 0.843894E-01_JPRB, 0.779681E-01_JPRB, 0.719244E-01_JPRB &
+  &, 0.662310E-01_JPRB, 0.608910E-01_JPRB, 0.558878E-01_JPRB &
+  &, 0.512016E-01_JPRB, 0.468276E-01_JPRB, 0.427586E-01_JPRB, 0.389855E-01_JPRB &
+  &, 0.354570E-01_JPRB, 0.322171E-01_JPRB, 0.292091E-01_JPRB &
+  &, 0.264334E-01_JPRB, 0.238892E-01_JPRB, 0.215525E-01_JPRB, 0.193966E-01_JPRB &
+  &, 0.174370E-01_JPRB, 0.156432E-01_JPRB, 0.140052E-01_JPRB &
+  &, 0.125357E-01_JPRB, 0.111733E-01_JPRB, 0.995258E-02_JPRB, 0.885833E-02_JPRB &
+  &, 0.784756E-02_JPRB, 0.695383E-02_JPRB, 0.615829E-02_JPRB &
+  &, 0.544022E-02_JPRB, 0.477696E-02_JPRB, 0.420170E-02_JPRB, 0.369096E-02_JPRB &
+  &, 0.324925E-02_JPRB, 0.282008E-02_JPRB, 0.246703E-02_JPRB &
+  &, 0.216322E-02_JPRB, 0.187958E-02_JPRB, 0.161766E-02_JPRB, 0.141240E-02_JPRB &
+  &, 0.119922E-02_JPRB, 0.104712E-02_JPRB, 0.889243E-03_JPRB &
+  &, 0.761269E-03_JPRB, 0.664942E-03_JPRB, 0.565038E-03_JPRB, 0.499131E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.360001E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 270, :) = (/ &
+  &  0.936540E+00_JPRB, 0.920109E+00_JPRB, 0.903473E+00_JPRB, 0.886646E+00_JPRB &
+  &, 0.869638E+00_JPRB, 0.852461E+00_JPRB, 0.835127E+00_JPRB &
+  &, 0.817649E+00_JPRB, 0.800040E+00_JPRB, 0.782312E+00_JPRB, 0.764480E+00_JPRB &
+  &, 0.746554E+00_JPRB, 0.728552E+00_JPRB, 0.710484E+00_JPRB &
+  &, 0.692368E+00_JPRB, 0.674216E+00_JPRB, 0.656045E+00_JPRB, 0.637868E+00_JPRB &
+  &, 0.619704E+00_JPRB, 0.601564E+00_JPRB, 0.583470E+00_JPRB &
+  &, 0.565436E+00_JPRB, 0.547476E+00_JPRB, 0.529612E+00_JPRB, 0.511859E+00_JPRB &
+  &, 0.494230E+00_JPRB, 0.476750E+00_JPRB, 0.459429E+00_JPRB &
+  &, 0.442293E+00_JPRB, 0.425352E+00_JPRB, 0.408624E+00_JPRB, 0.392132E+00_JPRB &
+  &, 0.375883E+00_JPRB, 0.359901E+00_JPRB, 0.344204E+00_JPRB &
+  &, 0.328802E+00_JPRB, 0.313702E+00_JPRB, 0.298937E+00_JPRB, 0.284513E+00_JPRB &
+  &, 0.270435E+00_JPRB, 0.256718E+00_JPRB, 0.243377E+00_JPRB &
+  &, 0.230427E+00_JPRB, 0.217860E+00_JPRB, 0.205702E+00_JPRB, 0.193940E+00_JPRB &
+  &, 0.182598E+00_JPRB, 0.171658E+00_JPRB, 0.161142E+00_JPRB &
+  &, 0.151052E+00_JPRB, 0.141380E+00_JPRB, 0.132125E+00_JPRB, 0.123271E+00_JPRB &
+  &, 0.114853E+00_JPRB, 0.106822E+00_JPRB, 0.992088E-01_JPRB &
+  &, 0.919859E-01_JPRB, 0.851506E-01_JPRB, 0.786982E-01_JPRB, 0.726049E-01_JPRB &
+  &, 0.668761E-01_JPRB, 0.614986E-01_JPRB, 0.564558E-01_JPRB &
+  &, 0.517460E-01_JPRB, 0.473469E-01_JPRB, 0.432515E-01_JPRB, 0.394310E-01_JPRB &
+  &, 0.358924E-01_JPRB, 0.326012E-01_JPRB, 0.295808E-01_JPRB &
+  &, 0.267919E-01_JPRB, 0.242122E-01_JPRB, 0.218383E-01_JPRB, 0.196658E-01_JPRB &
+  &, 0.176889E-01_JPRB, 0.158769E-01_JPRB, 0.142197E-01_JPRB &
+  &, 0.127302E-01_JPRB, 0.113470E-01_JPRB, 0.101297E-01_JPRB, 0.898731E-02_JPRB &
+  &, 0.797906E-02_JPRB, 0.708788E-02_JPRB, 0.626759E-02_JPRB &
+  &, 0.552376E-02_JPRB, 0.486209E-02_JPRB, 0.428842E-02_JPRB, 0.377930E-02_JPRB &
+  &, 0.330924E-02_JPRB, 0.288117E-02_JPRB, 0.252924E-02_JPRB &
+  &, 0.219488E-02_JPRB, 0.191182E-02_JPRB, 0.165047E-02_JPRB, 0.144579E-02_JPRB &
+  &, 0.123319E-02_JPRB, 0.108169E-02_JPRB, 0.924413E-03_JPRB &
+  &, 0.797043E-03_JPRB, 0.664942E-03_JPRB, 0.565038E-03_JPRB, 0.499131E-03_JPRB &
+  &, 0.430797E-03_JPRB, 0.360001E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 271, :) = (/ &
+  &  0.936830E+00_JPRB, 0.920468E+00_JPRB, 0.903898E+00_JPRB, 0.887136E+00_JPRB &
+  &, 0.870190E+00_JPRB, 0.853074E+00_JPRB, 0.835799E+00_JPRB &
+  &, 0.818378E+00_JPRB, 0.800824E+00_JPRB, 0.783149E+00_JPRB, 0.765367E+00_JPRB &
+  &, 0.747491E+00_JPRB, 0.729533E+00_JPRB, 0.711512E+00_JPRB &
+  &, 0.693436E+00_JPRB, 0.675325E+00_JPRB, 0.657190E+00_JPRB, 0.639050E+00_JPRB &
+  &, 0.620917E+00_JPRB, 0.602808E+00_JPRB, 0.584741E+00_JPRB &
+  &, 0.566732E+00_JPRB, 0.548795E+00_JPRB, 0.530951E+00_JPRB, 0.513212E+00_JPRB &
+  &, 0.495601E+00_JPRB, 0.478132E+00_JPRB, 0.460822E+00_JPRB &
+  &, 0.443692E+00_JPRB, 0.426755E+00_JPRB, 0.410032E+00_JPRB, 0.393538E+00_JPRB &
+  &, 0.377290E+00_JPRB, 0.361304E+00_JPRB, 0.345596E+00_JPRB &
+  &, 0.330178E+00_JPRB, 0.315075E+00_JPRB, 0.300296E+00_JPRB, 0.285847E+00_JPRB &
+  &, 0.271751E+00_JPRB, 0.258025E+00_JPRB, 0.244662E+00_JPRB &
+  &, 0.231678E+00_JPRB, 0.219086E+00_JPRB, 0.206900E+00_JPRB, 0.195109E+00_JPRB &
+  &, 0.183734E+00_JPRB, 0.172773E+00_JPRB, 0.162219E+00_JPRB &
+  &, 0.152090E+00_JPRB, 0.142390E+00_JPRB, 0.133090E+00_JPRB, 0.124216E+00_JPRB &
+  &, 0.115749E+00_JPRB, 0.107695E+00_JPRB, 0.100042E+00_JPRB &
+  &, 0.927762E-01_JPRB, 0.859117E-01_JPRB, 0.794121E-01_JPRB, 0.732853E-01_JPRB &
+  &, 0.675381E-01_JPRB, 0.621235E-01_JPRB, 0.570416E-01_JPRB &
+  &, 0.522904E-01_JPRB, 0.478663E-01_JPRB, 0.437254E-01_JPRB, 0.398765E-01_JPRB &
+  &, 0.363080E-01_JPRB, 0.330056E-01_JPRB, 0.299525E-01_JPRB &
+  &, 0.271293E-01_JPRB, 0.245351E-01_JPRB, 0.221461E-01_JPRB, 0.199575E-01_JPRB &
+  &, 0.179408E-01_JPRB, 0.161105E-01_JPRB, 0.144343E-01_JPRB &
+  &, 0.129248E-01_JPRB, 0.115207E-01_JPRB, 0.102815E-01_JPRB, 0.914210E-02_JPRB &
+  &, 0.813687E-02_JPRB, 0.719512E-02_JPRB, 0.637690E-02_JPRB &
+  &, 0.563515E-02_JPRB, 0.497559E-02_JPRB, 0.437514E-02_JPRB, 0.383820E-02_JPRB &
+  &, 0.336922E-02_JPRB, 0.294226E-02_JPRB, 0.256034E-02_JPRB &
+  &, 0.225821E-02_JPRB, 0.194405E-02_JPRB, 0.168328E-02_JPRB, 0.147918E-02_JPRB &
+  &, 0.126717E-02_JPRB, 0.108169E-02_JPRB, 0.959582E-03_JPRB &
+  &, 0.797043E-03_JPRB, 0.701327E-03_JPRB, 0.602041E-03_JPRB, 0.499131E-03_JPRB &
+  &, 0.430797E-03_JPRB, 0.360001E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 272, :) = (/ &
+  &  0.937120E+00_JPRB, 0.920826E+00_JPRB, 0.904322E+00_JPRB, 0.887624E+00_JPRB &
+  &, 0.870741E+00_JPRB, 0.853686E+00_JPRB, 0.836471E+00_JPRB &
+  &, 0.819107E+00_JPRB, 0.801607E+00_JPRB, 0.783985E+00_JPRB, 0.766254E+00_JPRB &
+  &, 0.748426E+00_JPRB, 0.730515E+00_JPRB, 0.712538E+00_JPRB &
+  &, 0.694504E+00_JPRB, 0.676432E+00_JPRB, 0.658335E+00_JPRB, 0.640230E+00_JPRB &
+  &, 0.622130E+00_JPRB, 0.604051E+00_JPRB, 0.586012E+00_JPRB &
+  &, 0.568025E+00_JPRB, 0.550115E+00_JPRB, 0.532287E+00_JPRB, 0.514569E+00_JPRB &
+  &, 0.496973E+00_JPRB, 0.479518E+00_JPRB, 0.462218E+00_JPRB &
+  &, 0.445092E+00_JPRB, 0.428161E+00_JPRB, 0.411441E+00_JPRB, 0.394948E+00_JPRB &
+  &, 0.378697E+00_JPRB, 0.362706E+00_JPRB, 0.346989E+00_JPRB &
+  &, 0.331564E+00_JPRB, 0.316448E+00_JPRB, 0.301656E+00_JPRB, 0.287190E+00_JPRB &
+  &, 0.273077E+00_JPRB, 0.259321E+00_JPRB, 0.245937E+00_JPRB &
+  &, 0.232941E+00_JPRB, 0.220324E+00_JPRB, 0.208099E+00_JPRB, 0.196289E+00_JPRB &
+  &, 0.184883E+00_JPRB, 0.173887E+00_JPRB, 0.163309E+00_JPRB &
+  &, 0.153142E+00_JPRB, 0.143399E+00_JPRB, 0.134069E+00_JPRB, 0.125162E+00_JPRB &
+  &, 0.116660E+00_JPRB, 0.108567E+00_JPRB, 0.100875E+00_JPRB &
+  &, 0.935821E-01_JPRB, 0.866729E-01_JPRB, 0.801422E-01_JPRB, 0.739824E-01_JPRB &
+  &, 0.681832E-01_JPRB, 0.627311E-01_JPRB, 0.576273E-01_JPRB &
+  &, 0.528530E-01_JPRB, 0.483857E-01_JPRB, 0.442183E-01_JPRB, 0.403415E-01_JPRB &
+  &, 0.367434E-01_JPRB, 0.334100E-01_JPRB, 0.303242E-01_JPRB &
+  &, 0.274667E-01_JPRB, 0.248581E-01_JPRB, 0.224318E-01_JPRB, 0.202268E-01_JPRB &
+  &, 0.181927E-01_JPRB, 0.163442E-01_JPRB, 0.146489E-01_JPRB &
+  &, 0.131194E-01_JPRB, 0.117191E-01_JPRB, 0.104586E-01_JPRB, 0.929688E-02_JPRB &
+  &, 0.826837E-02_JPRB, 0.732917E-02_JPRB, 0.648620E-02_JPRB &
+  &, 0.574654E-02_JPRB, 0.506071E-02_JPRB, 0.446187E-02_JPRB, 0.392654E-02_JPRB &
+  &, 0.342921E-02_JPRB, 0.300335E-02_JPRB, 0.262254E-02_JPRB &
+  &, 0.228988E-02_JPRB, 0.200852E-02_JPRB, 0.174890E-02_JPRB, 0.151257E-02_JPRB &
+  &, 0.130115E-02_JPRB, 0.111626E-02_JPRB, 0.959582E-03_JPRB &
+  &, 0.832818E-03_JPRB, 0.701327E-03_JPRB, 0.602041E-03_JPRB, 0.536756E-03_JPRB &
+  &, 0.430797E-03_JPRB, 0.360001E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 273, :) = (/ &
+  &  0.937410E+00_JPRB, 0.921182E+00_JPRB, 0.904746E+00_JPRB, 0.888113E+00_JPRB &
+  &, 0.871292E+00_JPRB, 0.854298E+00_JPRB, 0.837141E+00_JPRB &
+  &, 0.819834E+00_JPRB, 0.802389E+00_JPRB, 0.784820E+00_JPRB, 0.767140E+00_JPRB &
+  &, 0.749361E+00_JPRB, 0.731497E+00_JPRB, 0.713562E+00_JPRB &
+  &, 0.695572E+00_JPRB, 0.677540E+00_JPRB, 0.659479E+00_JPRB, 0.641408E+00_JPRB &
+  &, 0.623341E+00_JPRB, 0.605292E+00_JPRB, 0.587280E+00_JPRB &
+  &, 0.569322E+00_JPRB, 0.551431E+00_JPRB, 0.533627E+00_JPRB, 0.515926E+00_JPRB &
+  &, 0.498344E+00_JPRB, 0.480900E+00_JPRB, 0.463611E+00_JPRB &
+  &, 0.446496E+00_JPRB, 0.429572E+00_JPRB, 0.412850E+00_JPRB, 0.396358E+00_JPRB &
+  &, 0.380104E+00_JPRB, 0.364109E+00_JPRB, 0.348386E+00_JPRB &
+  &, 0.332950E+00_JPRB, 0.317822E+00_JPRB, 0.303015E+00_JPRB, 0.288534E+00_JPRB &
+  &, 0.274403E+00_JPRB, 0.260628E+00_JPRB, 0.247223E+00_JPRB &
+  &, 0.234192E+00_JPRB, 0.221550E+00_JPRB, 0.209309E+00_JPRB, 0.197470E+00_JPRB &
+  &, 0.186031E+00_JPRB, 0.175001E+00_JPRB, 0.164387E+00_JPRB &
+  &, 0.154193E+00_JPRB, 0.144409E+00_JPRB, 0.135048E+00_JPRB, 0.126108E+00_JPRB &
+  &, 0.117570E+00_JPRB, 0.109440E+00_JPRB, 0.101707E+00_JPRB &
+  &, 0.943724E-01_JPRB, 0.874341E-01_JPRB, 0.808723E-01_JPRB, 0.746795E-01_JPRB &
+  &, 0.688452E-01_JPRB, 0.633561E-01_JPRB, 0.582131E-01_JPRB &
+  &, 0.533974E-01_JPRB, 0.489050E-01_JPRB, 0.447112E-01_JPRB, 0.408064E-01_JPRB &
+  &, 0.371788E-01_JPRB, 0.338143E-01_JPRB, 0.306959E-01_JPRB &
+  &, 0.278252E-01_JPRB, 0.251811E-01_JPRB, 0.227396E-01_JPRB, 0.204960E-01_JPRB &
+  &, 0.184446E-01_JPRB, 0.165779E-01_JPRB, 0.148635E-01_JPRB &
+  &, 0.133140E-01_JPRB, 0.118928E-01_JPRB, 0.106104E-01_JPRB, 0.945166E-02_JPRB &
+  &, 0.839987E-02_JPRB, 0.746322E-02_JPRB, 0.659550E-02_JPRB &
+  &, 0.583008E-02_JPRB, 0.514584E-02_JPRB, 0.454859E-02_JPRB, 0.398543E-02_JPRB &
+  &, 0.348919E-02_JPRB, 0.306444E-02_JPRB, 0.268475E-02_JPRB &
+  &, 0.235321E-02_JPRB, 0.204075E-02_JPRB, 0.178171E-02_JPRB, 0.154596E-02_JPRB &
+  &, 0.133513E-02_JPRB, 0.115083E-02_JPRB, 0.994752E-03_JPRB &
+  &, 0.868593E-03_JPRB, 0.737713E-03_JPRB, 0.639043E-03_JPRB, 0.536756E-03_JPRB &
+  &, 0.469051E-03_JPRB, 0.398890E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART39',1,ZHOOK_HANDLE)
+END SUBROUTINE PART39
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART40
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART40',0,ZHOOK_HANDLE)
+
+XCW( 274, :) = (/ &
+  &  0.937697E+00_JPRB, 0.921540E+00_JPRB, 0.905169E+00_JPRB, 0.888600E+00_JPRB &
+  &, 0.871842E+00_JPRB, 0.854908E+00_JPRB, 0.837811E+00_JPRB &
+  &, 0.820561E+00_JPRB, 0.803171E+00_JPRB, 0.785655E+00_JPRB, 0.768024E+00_JPRB &
+  &, 0.750295E+00_JPRB, 0.732476E+00_JPRB, 0.714587E+00_JPRB &
+  &, 0.696639E+00_JPRB, 0.678646E+00_JPRB, 0.660624E+00_JPRB, 0.642587E+00_JPRB &
+  &, 0.624552E+00_JPRB, 0.606535E+00_JPRB, 0.588551E+00_JPRB &
+  &, 0.570618E+00_JPRB, 0.552750E+00_JPRB, 0.534967E+00_JPRB, 0.517283E+00_JPRB &
+  &, 0.499715E+00_JPRB, 0.482285E+00_JPRB, 0.465008E+00_JPRB &
+  &, 0.447900E+00_JPRB, 0.430978E+00_JPRB, 0.414262E+00_JPRB, 0.397768E+00_JPRB &
+  &, 0.381510E+00_JPRB, 0.365511E+00_JPRB, 0.349783E+00_JPRB &
+  &, 0.334336E+00_JPRB, 0.319205E+00_JPRB, 0.304374E+00_JPRB, 0.289887E+00_JPRB &
+  &, 0.275739E+00_JPRB, 0.261934E+00_JPRB, 0.248508E+00_JPRB &
+  &, 0.235455E+00_JPRB, 0.222787E+00_JPRB, 0.210519E+00_JPRB, 0.198650E+00_JPRB &
+  &, 0.187180E+00_JPRB, 0.176116E+00_JPRB, 0.165477E+00_JPRB &
+  &, 0.155244E+00_JPRB, 0.145431E+00_JPRB, 0.136040E+00_JPRB, 0.127053E+00_JPRB &
+  &, 0.118480E+00_JPRB, 0.110313E+00_JPRB, 0.102555E+00_JPRB &
+  &, 0.951783E-01_JPRB, 0.882111E-01_JPRB, 0.816024E-01_JPRB, 0.753765E-01_JPRB &
+  &, 0.695073E-01_JPRB, 0.639984E-01_JPRB, 0.588166E-01_JPRB &
+  &, 0.539599E-01_JPRB, 0.494430E-01_JPRB, 0.452041E-01_JPRB, 0.412713E-01_JPRB &
+  &, 0.376143E-01_JPRB, 0.342187E-01_JPRB, 0.310883E-01_JPRB &
+  &, 0.281837E-01_JPRB, 0.255041E-01_JPRB, 0.230473E-01_JPRB, 0.207877E-01_JPRB &
+  &, 0.187194E-01_JPRB, 0.168116E-01_JPRB, 0.151019E-01_JPRB &
+  &, 0.135085E-01_JPRB, 0.120912E-01_JPRB, 0.107875E-01_JPRB, 0.960644E-02_JPRB &
+  &, 0.853137E-02_JPRB, 0.757047E-02_JPRB, 0.673213E-02_JPRB &
+  &, 0.594147E-02_JPRB, 0.525934E-02_JPRB, 0.463532E-02_JPRB, 0.407378E-02_JPRB &
+  &, 0.357917E-02_JPRB, 0.312553E-02_JPRB, 0.274695E-02_JPRB &
+  &, 0.238487E-02_JPRB, 0.207299E-02_JPRB, 0.181452E-02_JPRB, 0.157935E-02_JPRB &
+  &, 0.136910E-02_JPRB, 0.118540E-02_JPRB, 0.102992E-02_JPRB &
+  &, 0.868593E-03_JPRB, 0.737713E-03_JPRB, 0.639043E-03_JPRB, 0.536756E-03_JPRB &
+  &, 0.469051E-03_JPRB, 0.398890E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 275, :) = (/ &
+  &  0.937985E+00_JPRB, 0.921896E+00_JPRB, 0.905591E+00_JPRB, 0.889087E+00_JPRB &
+  &, 0.872391E+00_JPRB, 0.855519E+00_JPRB, 0.838479E+00_JPRB &
+  &, 0.821286E+00_JPRB, 0.803951E+00_JPRB, 0.786488E+00_JPRB, 0.768909E+00_JPRB &
+  &, 0.751226E+00_JPRB, 0.733456E+00_JPRB, 0.715610E+00_JPRB &
+  &, 0.697704E+00_JPRB, 0.679750E+00_JPRB, 0.661767E+00_JPRB, 0.643765E+00_JPRB &
+  &, 0.625763E+00_JPRB, 0.607776E+00_JPRB, 0.589819E+00_JPRB &
+  &, 0.571911E+00_JPRB, 0.554066E+00_JPRB, 0.536303E+00_JPRB, 0.518637E+00_JPRB &
+  &, 0.501087E+00_JPRB, 0.483671E+00_JPRB, 0.466401E+00_JPRB &
+  &, 0.449303E+00_JPRB, 0.432388E+00_JPRB, 0.415675E+00_JPRB, 0.399179E+00_JPRB &
+  &, 0.382922E+00_JPRB, 0.366918E+00_JPRB, 0.351185E+00_JPRB &
+  &, 0.335731E+00_JPRB, 0.320578E+00_JPRB, 0.305743E+00_JPRB, 0.291230E+00_JPRB &
+  &, 0.277065E+00_JPRB, 0.263252E+00_JPRB, 0.249805E+00_JPRB &
+  &, 0.236728E+00_JPRB, 0.224036E+00_JPRB, 0.211729E+00_JPRB, 0.199831E+00_JPRB &
+  &, 0.188328E+00_JPRB, 0.177242E+00_JPRB, 0.166567E+00_JPRB &
+  &, 0.156308E+00_JPRB, 0.146454E+00_JPRB, 0.137032E+00_JPRB, 0.128013E+00_JPRB &
+  &, 0.119405E+00_JPRB, 0.111201E+00_JPRB, 0.103403E+00_JPRB &
+  &, 0.959996E-01_JPRB, 0.889723E-01_JPRB, 0.823487E-01_JPRB, 0.760736E-01_JPRB &
+  &, 0.701693E-01_JPRB, 0.646233E-01_JPRB, 0.594201E-01_JPRB &
+  &, 0.545225E-01_JPRB, 0.499623E-01_JPRB, 0.457159E-01_JPRB, 0.417362E-01_JPRB &
+  &, 0.380497E-01_JPRB, 0.346230E-01_JPRB, 0.314600E-01_JPRB &
+  &, 0.285422E-01_JPRB, 0.258271E-01_JPRB, 0.233551E-01_JPRB, 0.210794E-01_JPRB &
+  &, 0.189713E-01_JPRB, 0.170686E-01_JPRB, 0.153165E-01_JPRB &
+  &, 0.137274E-01_JPRB, 0.122649E-01_JPRB, 0.109645E-01_JPRB, 0.976122E-02_JPRB &
+  &, 0.868918E-02_JPRB, 0.770452E-02_JPRB, 0.684144E-02_JPRB &
+  &, 0.605286E-02_JPRB, 0.534446E-02_JPRB, 0.472204E-02_JPRB, 0.413267E-02_JPRB &
+  &, 0.363916E-02_JPRB, 0.318662E-02_JPRB, 0.280915E-02_JPRB &
+  &, 0.244820E-02_JPRB, 0.213746E-02_JPRB, 0.184732E-02_JPRB, 0.161274E-02_JPRB &
+  &, 0.140308E-02_JPRB, 0.121997E-02_JPRB, 0.102992E-02_JPRB &
+  &, 0.904368E-03_JPRB, 0.774099E-03_JPRB, 0.676046E-03_JPRB, 0.574381E-03_JPRB &
+  &, 0.469051E-03_JPRB, 0.398890E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 276, :) = (/ &
+  &  0.938274E+00_JPRB, 0.922249E+00_JPRB, 0.906012E+00_JPRB, 0.889573E+00_JPRB &
+  &, 0.872939E+00_JPRB, 0.856127E+00_JPRB, 0.839147E+00_JPRB &
+  &, 0.822011E+00_JPRB, 0.804731E+00_JPRB, 0.787320E+00_JPRB, 0.769792E+00_JPRB &
+  &, 0.752159E+00_JPRB, 0.734434E+00_JPRB, 0.716633E+00_JPRB &
+  &, 0.698769E+00_JPRB, 0.680855E+00_JPRB, 0.662908E+00_JPRB, 0.644942E+00_JPRB &
+  &, 0.626974E+00_JPRB, 0.609016E+00_JPRB, 0.591090E+00_JPRB &
+  &, 0.573204E+00_JPRB, 0.555385E+00_JPRB, 0.537642E+00_JPRB, 0.519994E+00_JPRB &
+  &, 0.502458E+00_JPRB, 0.485053E+00_JPRB, 0.467798E+00_JPRB &
+  &, 0.450707E+00_JPRB, 0.433795E+00_JPRB, 0.417088E+00_JPRB, 0.400593E+00_JPRB &
+  &, 0.384333E+00_JPRB, 0.368325E+00_JPRB, 0.352582E+00_JPRB &
+  &, 0.337117E+00_JPRB, 0.321961E+00_JPRB, 0.307112E+00_JPRB, 0.292584E+00_JPRB &
+  &, 0.278401E+00_JPRB, 0.264569E+00_JPRB, 0.251090E+00_JPRB &
+  &, 0.237991E+00_JPRB, 0.225273E+00_JPRB, 0.212950E+00_JPRB, 0.201023E+00_JPRB &
+  &, 0.189489E+00_JPRB, 0.178369E+00_JPRB, 0.167671E+00_JPRB &
+  &, 0.157373E+00_JPRB, 0.147491E+00_JPRB, 0.138025E+00_JPRB, 0.128973E+00_JPRB &
+  &, 0.120330E+00_JPRB, 0.112088E+00_JPRB, 0.104251E+00_JPRB &
+  &, 0.968055E-01_JPRB, 0.897493E-01_JPRB, 0.830788E-01_JPRB, 0.767873E-01_JPRB &
+  &, 0.708483E-01_JPRB, 0.652656E-01_JPRB, 0.600059E-01_JPRB &
+  &, 0.551032E-01_JPRB, 0.505003E-01_JPRB, 0.462088E-01_JPRB, 0.422205E-01_JPRB &
+  &, 0.385049E-01_JPRB, 0.350476E-01_JPRB, 0.318523E-01_JPRB &
+  &, 0.289007E-01_JPRB, 0.261716E-01_JPRB, 0.236628E-01_JPRB, 0.213487E-01_JPRB &
+  &, 0.192461E-01_JPRB, 0.173023E-01_JPRB, 0.155310E-01_JPRB &
+  &, 0.139220E-01_JPRB, 0.124633E-01_JPRB, 0.111163E-01_JPRB, 0.991600E-02_JPRB &
+  &, 0.882068E-02_JPRB, 0.783857E-02_JPRB, 0.695074E-02_JPRB &
+  &, 0.616425E-02_JPRB, 0.542958E-02_JPRB, 0.480877E-02_JPRB, 0.422102E-02_JPRB &
+  &, 0.369915E-02_JPRB, 0.324771E-02_JPRB, 0.284025E-02_JPRB &
+  &, 0.247987E-02_JPRB, 0.216969E-02_JPRB, 0.188013E-02_JPRB, 0.164614E-02_JPRB &
+  &, 0.143706E-02_JPRB, 0.121997E-02_JPRB, 0.106509E-02_JPRB &
+  &, 0.904368E-03_JPRB, 0.774099E-03_JPRB, 0.676046E-03_JPRB, 0.574381E-03_JPRB &
+  &, 0.507305E-03_JPRB, 0.437779E-03_JPRB, 0.365768E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 277, :) = (/ &
+  &  0.938253E+00_JPRB, 0.922605E+00_JPRB, 0.906433E+00_JPRB, 0.890057E+00_JPRB &
+  &, 0.873488E+00_JPRB, 0.856736E+00_JPRB, 0.839814E+00_JPRB &
+  &, 0.822735E+00_JPRB, 0.805509E+00_JPRB, 0.788152E+00_JPRB, 0.770675E+00_JPRB &
+  &, 0.753089E+00_JPRB, 0.735412E+00_JPRB, 0.717655E+00_JPRB &
+  &, 0.699832E+00_JPRB, 0.681960E+00_JPRB, 0.664049E+00_JPRB, 0.646119E+00_JPRB &
+  &, 0.628184E+00_JPRB, 0.610257E+00_JPRB, 0.592357E+00_JPRB &
+  &, 0.574501E+00_JPRB, 0.556701E+00_JPRB, 0.538978E+00_JPRB, 0.521351E+00_JPRB &
+  &, 0.503833E+00_JPRB, 0.486439E+00_JPRB, 0.469194E+00_JPRB &
+  &, 0.452111E+00_JPRB, 0.435205E+00_JPRB, 0.418501E+00_JPRB, 0.402007E+00_JPRB &
+  &, 0.385748E+00_JPRB, 0.369732E+00_JPRB, 0.353983E+00_JPRB &
+  &, 0.338512E+00_JPRB, 0.323343E+00_JPRB, 0.308481E+00_JPRB, 0.293937E+00_JPRB &
+  &, 0.279738E+00_JPRB, 0.265875E+00_JPRB, 0.252387E+00_JPRB &
+  &, 0.239264E+00_JPRB, 0.226522E+00_JPRB, 0.214172E+00_JPRB, 0.202215E+00_JPRB &
+  &, 0.190650E+00_JPRB, 0.179508E+00_JPRB, 0.168761E+00_JPRB &
+  &, 0.158437E+00_JPRB, 0.148527E+00_JPRB, 0.139017E+00_JPRB, 0.129933E+00_JPRB &
+  &, 0.121255E+00_JPRB, 0.112976E+00_JPRB, 0.105099E+00_JPRB &
+  &, 0.976269E-01_JPRB, 0.905422E-01_JPRB, 0.838251E-01_JPRB, 0.774843E-01_JPRB &
+  &, 0.715273E-01_JPRB, 0.658906E-01_JPRB, 0.606271E-01_JPRB &
+  &, 0.556657E-01_JPRB, 0.510382E-01_JPRB, 0.467207E-01_JPRB, 0.426854E-01_JPRB &
+  &, 0.389403E-01_JPRB, 0.354722E-01_JPRB, 0.322447E-01_JPRB &
+  &, 0.292592E-01_JPRB, 0.265161E-01_JPRB, 0.239706E-01_JPRB, 0.216404E-01_JPRB &
+  &, 0.195209E-01_JPRB, 0.175594E-01_JPRB, 0.157695E-01_JPRB &
+  &, 0.141409E-01_JPRB, 0.126618E-01_JPRB, 0.112934E-01_JPRB, 0.100708E-01_JPRB &
+  &, 0.897848E-02_JPRB, 0.797262E-02_JPRB, 0.708737E-02_JPRB &
+  &, 0.627564E-02_JPRB, 0.554308E-02_JPRB, 0.489549E-02_JPRB, 0.430936E-02_JPRB &
+  &, 0.378912E-02_JPRB, 0.330879E-02_JPRB, 0.290246E-02_JPRB &
+  &, 0.254320E-02_JPRB, 0.223416E-02_JPRB, 0.194575E-02_JPRB, 0.167953E-02_JPRB &
+  &, 0.147104E-02_JPRB, 0.125454E-02_JPRB, 0.110026E-02_JPRB &
+  &, 0.940142E-03_JPRB, 0.810484E-03_JPRB, 0.676046E-03_JPRB, 0.574381E-03_JPRB &
+  &, 0.507305E-03_JPRB, 0.437779E-03_JPRB, 0.365768E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 278, :) = (/ &
+  &  0.938848E+00_JPRB, 0.922960E+00_JPRB, 0.906854E+00_JPRB, 0.890542E+00_JPRB &
+  &, 0.874034E+00_JPRB, 0.857344E+00_JPRB, 0.840480E+00_JPRB &
+  &, 0.823458E+00_JPRB, 0.806288E+00_JPRB, 0.788982E+00_JPRB, 0.771556E+00_JPRB &
+  &, 0.754019E+00_JPRB, 0.736388E+00_JPRB, 0.718675E+00_JPRB &
+  &, 0.700896E+00_JPRB, 0.683063E+00_JPRB, 0.665191E+00_JPRB, 0.647295E+00_JPRB &
+  &, 0.629392E+00_JPRB, 0.611497E+00_JPRB, 0.593625E+00_JPRB &
+  &, 0.575794E+00_JPRB, 0.558020E+00_JPRB, 0.540318E+00_JPRB, 0.522708E+00_JPRB &
+  &, 0.505204E+00_JPRB, 0.487825E+00_JPRB, 0.470591E+00_JPRB &
+  &, 0.453514E+00_JPRB, 0.436616E+00_JPRB, 0.419913E+00_JPRB, 0.403422E+00_JPRB &
+  &, 0.387159E+00_JPRB, 0.371143E+00_JPRB, 0.355389E+00_JPRB &
+  &, 0.339907E+00_JPRB, 0.324726E+00_JPRB, 0.309850E+00_JPRB, 0.295291E+00_JPRB &
+  &, 0.281074E+00_JPRB, 0.267203E+00_JPRB, 0.253683E+00_JPRB &
+  &, 0.240538E+00_JPRB, 0.227770E+00_JPRB, 0.215394E+00_JPRB, 0.203408E+00_JPRB &
+  &, 0.191823E+00_JPRB, 0.180635E+00_JPRB, 0.169864E+00_JPRB &
+  &, 0.159501E+00_JPRB, 0.149563E+00_JPRB, 0.140023E+00_JPRB, 0.130893E+00_JPRB &
+  &, 0.122180E+00_JPRB, 0.113878E+00_JPRB, 0.105962E+00_JPRB &
+  &, 0.984482E-01_JPRB, 0.913193E-01_JPRB, 0.845714E-01_JPRB, 0.782146E-01_JPRB &
+  &, 0.722064E-01_JPRB, 0.665503E-01_JPRB, 0.612306E-01_JPRB &
+  &, 0.562464E-01_JPRB, 0.515761E-01_JPRB, 0.472325E-01_JPRB, 0.431697E-01_JPRB &
+  &, 0.393955E-01_JPRB, 0.358765E-01_JPRB, 0.326370E-01_JPRB &
+  &, 0.296177E-01_JPRB, 0.268606E-01_JPRB, 0.243003E-01_JPRB, 0.219321E-01_JPRB &
+  &, 0.197728E-01_JPRB, 0.178164E-01_JPRB, 0.160079E-01_JPRB &
+  &, 0.143598E-01_JPRB, 0.128354E-01_JPRB, 0.114705E-01_JPRB, 0.102514E-01_JPRB &
+  &, 0.913629E-02_JPRB, 0.810667E-02_JPRB, 0.719667E-02_JPRB &
+  &, 0.638703E-02_JPRB, 0.562821E-02_JPRB, 0.498222E-02_JPRB, 0.439770E-02_JPRB &
+  &, 0.384911E-02_JPRB, 0.340043E-02_JPRB, 0.296466E-02_JPRB &
+  &, 0.260653E-02_JPRB, 0.226639E-02_JPRB, 0.197856E-02_JPRB, 0.171292E-02_JPRB &
+  &, 0.150502E-02_JPRB, 0.128912E-02_JPRB, 0.110026E-02_JPRB &
+  &, 0.975917E-03_JPRB, 0.810484E-03_JPRB, 0.713049E-03_JPRB, 0.612007E-03_JPRB &
+  &, 0.507305E-03_JPRB, 0.437779E-03_JPRB, 0.365768E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 279, :) = (/ &
+  &  0.939135E+00_JPRB, 0.923314E+00_JPRB, 0.907274E+00_JPRB, 0.891026E+00_JPRB &
+  &, 0.874581E+00_JPRB, 0.857950E+00_JPRB, 0.841146E+00_JPRB &
+  &, 0.824180E+00_JPRB, 0.807065E+00_JPRB, 0.789812E+00_JPRB, 0.772436E+00_JPRB &
+  &, 0.754949E+00_JPRB, 0.737364E+00_JPRB, 0.719696E+00_JPRB &
+  &, 0.701958E+00_JPRB, 0.684164E+00_JPRB, 0.666331E+00_JPRB, 0.648470E+00_JPRB &
+  &, 0.630601E+00_JPRB, 0.612734E+00_JPRB, 0.594893E+00_JPRB &
+  &, 0.577087E+00_JPRB, 0.559336E+00_JPRB, 0.541654E+00_JPRB, 0.524065E+00_JPRB &
+  &, 0.506575E+00_JPRB, 0.489211E+00_JPRB, 0.471988E+00_JPRB &
+  &, 0.454922E+00_JPRB, 0.438030E+00_JPRB, 0.421330E+00_JPRB, 0.404840E+00_JPRB &
+  &, 0.388575E+00_JPRB, 0.372554E+00_JPRB, 0.356795E+00_JPRB &
+  &, 0.341302E+00_JPRB, 0.326109E+00_JPRB, 0.311219E+00_JPRB, 0.296654E+00_JPRB &
+  &, 0.282410E+00_JPRB, 0.268521E+00_JPRB, 0.254979E+00_JPRB &
+  &, 0.241811E+00_JPRB, 0.229019E+00_JPRB, 0.216615E+00_JPRB, 0.204600E+00_JPRB &
+  &, 0.192984E+00_JPRB, 0.181775E+00_JPRB, 0.170967E+00_JPRB &
+  &, 0.160579E+00_JPRB, 0.150600E+00_JPRB, 0.141030E+00_JPRB, 0.131866E+00_JPRB &
+  &, 0.123119E+00_JPRB, 0.114766E+00_JPRB, 0.106826E+00_JPRB &
+  &, 0.992696E-01_JPRB, 0.921121E-01_JPRB, 0.853340E-01_JPRB, 0.789283E-01_JPRB &
+  &, 0.728854E-01_JPRB, 0.671926E-01_JPRB, 0.618519E-01_JPRB &
+  &, 0.568271E-01_JPRB, 0.521326E-01_JPRB, 0.477444E-01_JPRB, 0.436540E-01_JPRB &
+  &, 0.398507E-01_JPRB, 0.363011E-01_JPRB, 0.330294E-01_JPRB &
+  &, 0.299973E-01_JPRB, 0.272051E-01_JPRB, 0.246081E-01_JPRB, 0.222462E-01_JPRB &
+  &, 0.200476E-01_JPRB, 0.180501E-01_JPRB, 0.162225E-01_JPRB &
+  &, 0.145544E-01_JPRB, 0.130339E-01_JPRB, 0.116729E-01_JPRB, 0.104061E-01_JPRB &
+  &, 0.926779E-02_JPRB, 0.824072E-02_JPRB, 0.733330E-02_JPRB &
+  &, 0.649842E-02_JPRB, 0.574171E-02_JPRB, 0.506894E-02_JPRB, 0.445660E-02_JPRB &
+  &, 0.393909E-02_JPRB, 0.346152E-02_JPRB, 0.302686E-02_JPRB &
+  &, 0.263819E-02_JPRB, 0.229863E-02_JPRB, 0.201137E-02_JPRB, 0.174631E-02_JPRB &
+  &, 0.153899E-02_JPRB, 0.132369E-02_JPRB, 0.113543E-02_JPRB &
+  &, 0.975917E-03_JPRB, 0.846870E-03_JPRB, 0.713049E-03_JPRB, 0.612007E-03_JPRB &
+  &, 0.545560E-03_JPRB, 0.437779E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.295804E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 280, :) = (/ &
+  &  0.939420E+00_JPRB, 0.923666E+00_JPRB, 0.907693E+00_JPRB, 0.891509E+00_JPRB &
+  &, 0.875126E+00_JPRB, 0.858557E+00_JPRB, 0.841811E+00_JPRB &
+  &, 0.824901E+00_JPRB, 0.807840E+00_JPRB, 0.790641E+00_JPRB, 0.773316E+00_JPRB &
+  &, 0.755876E+00_JPRB, 0.738339E+00_JPRB, 0.720715E+00_JPRB &
+  &, 0.703019E+00_JPRB, 0.685266E+00_JPRB, 0.667469E+00_JPRB, 0.649646E+00_JPRB &
+  &, 0.631809E+00_JPRB, 0.613975E+00_JPRB, 0.596161E+00_JPRB &
+  &, 0.578380E+00_JPRB, 0.560652E+00_JPRB, 0.542994E+00_JPRB, 0.525422E+00_JPRB &
+  &, 0.507950E+00_JPRB, 0.490600E+00_JPRB, 0.473385E+00_JPRB &
+  &, 0.456330E+00_JPRB, 0.439441E+00_JPRB, 0.422747E+00_JPRB, 0.406259E+00_JPRB &
+  &, 0.389990E+00_JPRB, 0.373970E+00_JPRB, 0.358202E+00_JPRB &
+  &, 0.342707E+00_JPRB, 0.327501E+00_JPRB, 0.312597E+00_JPRB, 0.298008E+00_JPRB &
+  &, 0.283757E+00_JPRB, 0.269848E+00_JPRB, 0.256287E+00_JPRB &
+  &, 0.243096E+00_JPRB, 0.230279E+00_JPRB, 0.217849E+00_JPRB, 0.205805E+00_JPRB &
+  &, 0.194157E+00_JPRB, 0.182914E+00_JPRB, 0.172083E+00_JPRB &
+  &, 0.161656E+00_JPRB, 0.151636E+00_JPRB, 0.142036E+00_JPRB, 0.132840E+00_JPRB &
+  &, 0.124059E+00_JPRB, 0.115668E+00_JPRB, 0.107689E+00_JPRB &
+  &, 0.100106E+00_JPRB, 0.929050E-01_JPRB, 0.860965E-01_JPRB, 0.796420E-01_JPRB &
+  &, 0.735644E-01_JPRB, 0.678349E-01_JPRB, 0.624554E-01_JPRB &
+  &, 0.574078E-01_JPRB, 0.526890E-01_JPRB, 0.482562E-01_JPRB, 0.441383E-01_JPRB &
+  &, 0.403059E-01_JPRB, 0.367459E-01_JPRB, 0.334424E-01_JPRB &
+  &, 0.303769E-01_JPRB, 0.275496E-01_JPRB, 0.249378E-01_JPRB, 0.225379E-01_JPRB &
+  &, 0.203453E-01_JPRB, 0.183071E-01_JPRB, 0.164609E-01_JPRB &
+  &, 0.147733E-01_JPRB, 0.132324E-01_JPRB, 0.118500E-01_JPRB, 0.105867E-01_JPRB &
+  &, 0.942559E-02_JPRB, 0.837477E-02_JPRB, 0.744260E-02_JPRB &
+  &, 0.660981E-02_JPRB, 0.585521E-02_JPRB, 0.515567E-02_JPRB, 0.454494E-02_JPRB &
+  &, 0.399908E-02_JPRB, 0.352261E-02_JPRB, 0.308907E-02_JPRB &
+  &, 0.270152E-02_JPRB, 0.236310E-02_JPRB, 0.207699E-02_JPRB, 0.177970E-02_JPRB &
+  &, 0.157297E-02_JPRB, 0.135826E-02_JPRB, 0.117060E-02_JPRB &
+  &, 0.101169E-02_JPRB, 0.883256E-03_JPRB, 0.750051E-03_JPRB, 0.649632E-03_JPRB &
+  &, 0.545560E-03_JPRB, 0.476668E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART40',1,ZHOOK_HANDLE)
+END SUBROUTINE PART40
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART41
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART41',0,ZHOOK_HANDLE)
+
+XCW( 281, :) = (/ &
+  &  0.939705E+00_JPRB, 0.924019E+00_JPRB, 0.908111E+00_JPRB, 0.891991E+00_JPRB &
+  &, 0.875671E+00_JPRB, 0.859161E+00_JPRB, 0.842474E+00_JPRB &
+  &, 0.825622E+00_JPRB, 0.808616E+00_JPRB, 0.791470E+00_JPRB, 0.774194E+00_JPRB &
+  &, 0.756805E+00_JPRB, 0.739313E+00_JPRB, 0.721734E+00_JPRB &
+  &, 0.704080E+00_JPRB, 0.686368E+00_JPRB, 0.668609E+00_JPRB, 0.650820E+00_JPRB &
+  &, 0.633017E+00_JPRB, 0.615212E+00_JPRB, 0.597425E+00_JPRB &
+  &, 0.579673E+00_JPRB, 0.561971E+00_JPRB, 0.544333E+00_JPRB, 0.526779E+00_JPRB &
+  &, 0.509322E+00_JPRB, 0.491986E+00_JPRB, 0.474785E+00_JPRB &
+  &, 0.457733E+00_JPRB, 0.440855E+00_JPRB, 0.424164E+00_JPRB, 0.407678E+00_JPRB &
+  &, 0.391410E+00_JPRB, 0.375381E+00_JPRB, 0.359608E+00_JPRB &
+  &, 0.344102E+00_JPRB, 0.328884E+00_JPRB, 0.313976E+00_JPRB, 0.299371E+00_JPRB &
+  &, 0.285103E+00_JPRB, 0.271166E+00_JPRB, 0.257594E+00_JPRB &
+  &, 0.244381E+00_JPRB, 0.231539E+00_JPRB, 0.219082E+00_JPRB, 0.207009E+00_JPRB &
+  &, 0.195330E+00_JPRB, 0.184066E+00_JPRB, 0.173199E+00_JPRB &
+  &, 0.162734E+00_JPRB, 0.152686E+00_JPRB, 0.143056E+00_JPRB, 0.133814E+00_JPRB &
+  &, 0.124998E+00_JPRB, 0.116586E+00_JPRB, 0.108567E+00_JPRB &
+  &, 0.100943E+00_JPRB, 0.937138E-01_JPRB, 0.868591E-01_JPRB, 0.803722E-01_JPRB &
+  &, 0.742604E-01_JPRB, 0.684946E-01_JPRB, 0.630767E-01_JPRB &
+  &, 0.580066E-01_JPRB, 0.532455E-01_JPRB, 0.487870E-01_JPRB, 0.446419E-01_JPRB &
+  &, 0.407611E-01_JPRB, 0.371705E-01_JPRB, 0.338347E-01_JPRB &
+  &, 0.307565E-01_JPRB, 0.278942E-01_JPRB, 0.252675E-01_JPRB, 0.228296E-01_JPRB &
+  &, 0.206201E-01_JPRB, 0.185642E-01_JPRB, 0.166993E-01_JPRB &
+  &, 0.149921E-01_JPRB, 0.134556E-01_JPRB, 0.120271E-01_JPRB, 0.107415E-01_JPRB &
+  &, 0.958340E-02_JPRB, 0.853563E-02_JPRB, 0.757923E-02_JPRB &
+  &, 0.672119E-02_JPRB, 0.594033E-02_JPRB, 0.527130E-02_JPRB, 0.463328E-02_JPRB &
+  &, 0.408905E-02_JPRB, 0.358369E-02_JPRB, 0.315127E-02_JPRB &
+  &, 0.276485E-02_JPRB, 0.242756E-02_JPRB, 0.210980E-02_JPRB, 0.184648E-02_JPRB &
+  &, 0.160695E-02_JPRB, 0.139283E-02_JPRB, 0.120577E-02_JPRB &
+  &, 0.104747E-02_JPRB, 0.883256E-03_JPRB, 0.750051E-03_JPRB, 0.649632E-03_JPRB &
+  &, 0.545560E-03_JPRB, 0.476668E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 282, :) = (/ &
+  &  0.939991E+00_JPRB, 0.924373E+00_JPRB, 0.908529E+00_JPRB, 0.892474E+00_JPRB &
+  &, 0.876215E+00_JPRB, 0.859766E+00_JPRB, 0.843137E+00_JPRB &
+  &, 0.826341E+00_JPRB, 0.809390E+00_JPRB, 0.792297E+00_JPRB, 0.775072E+00_JPRB &
+  &, 0.757731E+00_JPRB, 0.740286E+00_JPRB, 0.722751E+00_JPRB &
+  &, 0.705141E+00_JPRB, 0.687468E+00_JPRB, 0.669746E+00_JPRB, 0.651994E+00_JPRB &
+  &, 0.634224E+00_JPRB, 0.616452E+00_JPRB, 0.598693E+00_JPRB &
+  &, 0.580966E+00_JPRB, 0.563287E+00_JPRB, 0.545669E+00_JPRB, 0.528132E+00_JPRB &
+  &, 0.510697E+00_JPRB, 0.493372E+00_JPRB, 0.476182E+00_JPRB &
+  &, 0.459141E+00_JPRB, 0.442270E+00_JPRB, 0.425581E+00_JPRB, 0.409096E+00_JPRB &
+  &, 0.392830E+00_JPRB, 0.376797E+00_JPRB, 0.361018E+00_JPRB &
+  &, 0.345507E+00_JPRB, 0.330277E+00_JPRB, 0.315355E+00_JPRB, 0.300735E+00_JPRB &
+  &, 0.286450E+00_JPRB, 0.272504E+00_JPRB, 0.258901E+00_JPRB &
+  &, 0.245665E+00_JPRB, 0.232799E+00_JPRB, 0.220315E+00_JPRB, 0.208213E+00_JPRB &
+  &, 0.196515E+00_JPRB, 0.185218E+00_JPRB, 0.174315E+00_JPRB &
+  &, 0.163824E+00_JPRB, 0.153735E+00_JPRB, 0.144062E+00_JPRB, 0.134802E+00_JPRB &
+  &, 0.125952E+00_JPRB, 0.117488E+00_JPRB, 0.109445E+00_JPRB &
+  &, 0.101780E+00_JPRB, 0.945067E-01_JPRB, 0.876216E-01_JPRB, 0.811025E-01_JPRB &
+  &, 0.749564E-01_JPRB, 0.691543E-01_JPRB, 0.637157E-01_JPRB &
+  &, 0.585873E-01_JPRB, 0.538020E-01_JPRB, 0.493178E-01_JPRB, 0.451262E-01_JPRB &
+  &, 0.412361E-01_JPRB, 0.376153E-01_JPRB, 0.342477E-01_JPRB &
+  &, 0.311361E-01_JPRB, 0.282387E-01_JPRB, 0.255973E-01_JPRB, 0.231437E-01_JPRB &
+  &, 0.208949E-01_JPRB, 0.188446E-01_JPRB, 0.169377E-01_JPRB &
+  &, 0.152110E-01_JPRB, 0.136541E-01_JPRB, 0.122042E-01_JPRB, 0.109221E-01_JPRB &
+  &, 0.974120E-02_JPRB, 0.866968E-02_JPRB, 0.771586E-02_JPRB &
+  &, 0.683258E-02_JPRB, 0.605383E-02_JPRB, 0.535802E-02_JPRB, 0.472163E-02_JPRB &
+  &, 0.414904E-02_JPRB, 0.367533E-02_JPRB, 0.321347E-02_JPRB &
+  &, 0.282818E-02_JPRB, 0.245980E-02_JPRB, 0.214261E-02_JPRB, 0.187987E-02_JPRB &
+  &, 0.164093E-02_JPRB, 0.142740E-02_JPRB, 0.124094E-02_JPRB &
+  &, 0.104747E-02_JPRB, 0.919641E-03_JPRB, 0.787054E-03_JPRB, 0.687258E-03_JPRB &
+  &, 0.583814E-03_JPRB, 0.476668E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 283, :) = (/ &
+  &  0.940276E+00_JPRB, 0.924724E+00_JPRB, 0.908946E+00_JPRB, 0.892955E+00_JPRB &
+  &, 0.876758E+00_JPRB, 0.860369E+00_JPRB, 0.843799E+00_JPRB &
+  &, 0.827060E+00_JPRB, 0.810164E+00_JPRB, 0.793122E+00_JPRB, 0.775949E+00_JPRB &
+  &, 0.758657E+00_JPRB, 0.741258E+00_JPRB, 0.723769E+00_JPRB &
+  &, 0.706200E+00_JPRB, 0.688566E+00_JPRB, 0.670885E+00_JPRB, 0.653167E+00_JPRB &
+  &, 0.635430E+00_JPRB, 0.617690E+00_JPRB, 0.599961E+00_JPRB &
+  &, 0.582259E+00_JPRB, 0.564603E+00_JPRB, 0.547009E+00_JPRB, 0.529465E+00_JPRB &
+  &, 0.512071E+00_JPRB, 0.494761E+00_JPRB, 0.477582E+00_JPRB &
+  &, 0.460553E+00_JPRB, 0.443684E+00_JPRB, 0.427002E+00_JPRB, 0.410515E+00_JPRB &
+  &, 0.394249E+00_JPRB, 0.378217E+00_JPRB, 0.362429E+00_JPRB &
+  &, 0.346911E+00_JPRB, 0.331679E+00_JPRB, 0.316733E+00_JPRB, 0.302108E+00_JPRB &
+  &, 0.287796E+00_JPRB, 0.273832E+00_JPRB, 0.260208E+00_JPRB &
+  &, 0.246950E+00_JPRB, 0.234059E+00_JPRB, 0.221549E+00_JPRB, 0.209429E+00_JPRB &
+  &, 0.197700E+00_JPRB, 0.186369E+00_JPRB, 0.175431E+00_JPRB &
+  &, 0.164915E+00_JPRB, 0.154799E+00_JPRB, 0.145082E+00_JPRB, 0.135790E+00_JPRB &
+  &, 0.126891E+00_JPRB, 0.118405E+00_JPRB, 0.110323E+00_JPRB &
+  &, 0.102617E+00_JPRB, 0.953154E-01_JPRB, 0.883842E-01_JPRB, 0.818327E-01_JPRB &
+  &, 0.756524E-01_JPRB, 0.698313E-01_JPRB, 0.643369E-01_JPRB &
+  &, 0.591861E-01_JPRB, 0.543584E-01_JPRB, 0.498486E-01_JPRB, 0.456299E-01_JPRB &
+  &, 0.416913E-01_JPRB, 0.380398E-01_JPRB, 0.346607E-01_JPRB &
+  &, 0.315156E-01_JPRB, 0.286047E-01_JPRB, 0.259270E-01_JPRB, 0.234579E-01_JPRB &
+  &, 0.211926E-01_JPRB, 0.191016E-01_JPRB, 0.172000E-01_JPRB &
+  &, 0.154543E-01_JPRB, 0.138526E-01_JPRB, 0.124066E-01_JPRB, 0.110769E-01_JPRB &
+  &, 0.989900E-02_JPRB, 0.880373E-02_JPRB, 0.782516E-02_JPRB &
+  &, 0.694397E-02_JPRB, 0.616733E-02_JPRB, 0.544475E-02_JPRB, 0.480997E-02_JPRB &
+  &, 0.423902E-02_JPRB, 0.373642E-02_JPRB, 0.327568E-02_JPRB &
+  &, 0.285985E-02_JPRB, 0.252427E-02_JPRB, 0.220823E-02_JPRB, 0.191326E-02_JPRB &
+  &, 0.167490E-02_JPRB, 0.146197E-02_JPRB, 0.124094E-02_JPRB &
+  &, 0.108324E-02_JPRB, 0.919641E-03_JPRB, 0.787054E-03_JPRB, 0.687258E-03_JPRB &
+  &, 0.583814E-03_JPRB, 0.515558E-03_JPRB, 0.444828E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 284, :) = (/ &
+  &  0.940559E+00_JPRB, 0.925076E+00_JPRB, 0.909363E+00_JPRB, 0.893436E+00_JPRB &
+  &, 0.877301E+00_JPRB, 0.860973E+00_JPRB, 0.844461E+00_JPRB &
+  &, 0.827778E+00_JPRB, 0.810937E+00_JPRB, 0.793948E+00_JPRB, 0.776826E+00_JPRB &
+  &, 0.759581E+00_JPRB, 0.742230E+00_JPRB, 0.724785E+00_JPRB &
+  &, 0.707258E+00_JPRB, 0.689665E+00_JPRB, 0.672022E+00_JPRB, 0.654340E+00_JPRB &
+  &, 0.636637E+00_JPRB, 0.618927E+00_JPRB, 0.601226E+00_JPRB &
+  &, 0.583552E+00_JPRB, 0.565919E+00_JPRB, 0.548345E+00_JPRB, 0.530850E+00_JPRB &
+  &, 0.513443E+00_JPRB, 0.496147E+00_JPRB, 0.478983E+00_JPRB &
+  &, 0.461960E+00_JPRB, 0.445102E+00_JPRB, 0.428423E+00_JPRB, 0.411938E+00_JPRB &
+  &, 0.395669E+00_JPRB, 0.379633E+00_JPRB, 0.363844E+00_JPRB &
+  &, 0.348316E+00_JPRB, 0.333071E+00_JPRB, 0.318122E+00_JPRB, 0.303472E+00_JPRB &
+  &, 0.289153E+00_JPRB, 0.275170E+00_JPRB, 0.261526E+00_JPRB &
+  &, 0.248246E+00_JPRB, 0.235331E+00_JPRB, 0.222793E+00_JPRB, 0.210646E+00_JPRB &
+  &, 0.198886E+00_JPRB, 0.187521E+00_JPRB, 0.176560E+00_JPRB &
+  &, 0.166006E+00_JPRB, 0.155848E+00_JPRB, 0.146116E+00_JPRB, 0.136778E+00_JPRB &
+  &, 0.127845E+00_JPRB, 0.119323E+00_JPRB, 0.111202E+00_JPRB &
+  &, 0.103469E+00_JPRB, 0.961242E-01_JPRB, 0.891630E-01_JPRB, 0.825796E-01_JPRB &
+  &, 0.763653E-01_JPRB, 0.704910E-01_JPRB, 0.649759E-01_JPRB &
+  &, 0.597850E-01_JPRB, 0.549335E-01_JPRB, 0.503794E-01_JPRB, 0.461335E-01_JPRB &
+  &, 0.421663E-01_JPRB, 0.384846E-01_JPRB, 0.350737E-01_JPRB &
+  &, 0.318952E-01_JPRB, 0.289708E-01_JPRB, 0.262567E-01_JPRB, 0.237720E-01_JPRB &
+  &, 0.214674E-01_JPRB, 0.193587E-01_JPRB, 0.174384E-01_JPRB &
+  &, 0.156732E-01_JPRB, 0.140510E-01_JPRB, 0.125837E-01_JPRB, 0.112574E-01_JPRB &
+  &, 0.100568E-01_JPRB, 0.896459E-02_JPRB, 0.796179E-02_JPRB &
+  &, 0.708321E-02_JPRB, 0.628083E-02_JPRB, 0.556038E-02_JPRB, 0.489831E-02_JPRB &
+  &, 0.432900E-02_JPRB, 0.379750E-02_JPRB, 0.333788E-02_JPRB &
+  &, 0.292318E-02_JPRB, 0.255650E-02_JPRB, 0.224104E-02_JPRB, 0.194665E-02_JPRB &
+  &, 0.170888E-02_JPRB, 0.146197E-02_JPRB, 0.127611E-02_JPRB &
+  &, 0.111902E-02_JPRB, 0.956027E-03_JPRB, 0.824056E-03_JPRB, 0.724883E-03_JPRB &
+  &, 0.622068E-03_JPRB, 0.515558E-03_JPRB, 0.444828E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.336633E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 285, :) = (/ &
+  &  0.940843E+00_JPRB, 0.925426E+00_JPRB, 0.909780E+00_JPRB, 0.893916E+00_JPRB &
+  &, 0.877843E+00_JPRB, 0.861575E+00_JPRB, 0.845122E+00_JPRB &
+  &, 0.828495E+00_JPRB, 0.811708E+00_JPRB, 0.794773E+00_JPRB, 0.777702E+00_JPRB &
+  &, 0.760506E+00_JPRB, 0.743201E+00_JPRB, 0.725800E+00_JPRB &
+  &, 0.708317E+00_JPRB, 0.690764E+00_JPRB, 0.673157E+00_JPRB, 0.655512E+00_JPRB &
+  &, 0.637842E+00_JPRB, 0.620164E+00_JPRB, 0.602490E+00_JPRB &
+  &, 0.584845E+00_JPRB, 0.567235E+00_JPRB, 0.549685E+00_JPRB, 0.532207E+00_JPRB &
+  &, 0.514818E+00_JPRB, 0.497537E+00_JPRB, 0.480383E+00_JPRB &
+  &, 0.463372E+00_JPRB, 0.446517E+00_JPRB, 0.429843E+00_JPRB, 0.413361E+00_JPRB &
+  &, 0.397093E+00_JPRB, 0.381053E+00_JPRB, 0.365259E+00_JPRB &
+  &, 0.349720E+00_JPRB, 0.334463E+00_JPRB, 0.319501E+00_JPRB, 0.304845E+00_JPRB &
+  &, 0.290510E+00_JPRB, 0.276498E+00_JPRB, 0.262844E+00_JPRB &
+  &, 0.249541E+00_JPRB, 0.236602E+00_JPRB, 0.224038E+00_JPRB, 0.211862E+00_JPRB &
+  &, 0.200071E+00_JPRB, 0.188673E+00_JPRB, 0.177688E+00_JPRB &
+  &, 0.167096E+00_JPRB, 0.156912E+00_JPRB, 0.147136E+00_JPRB, 0.137766E+00_JPRB &
+  &, 0.128813E+00_JPRB, 0.120255E+00_JPRB, 0.112095E+00_JPRB &
+  &, 0.104322E+00_JPRB, 0.969488E-01_JPRB, 0.899417E-01_JPRB, 0.833265E-01_JPRB &
+  &, 0.770613E-01_JPRB, 0.711680E-01_JPRB, 0.656149E-01_JPRB &
+  &, 0.604020E-01_JPRB, 0.555085E-01_JPRB, 0.509102E-01_JPRB, 0.466372E-01_JPRB &
+  &, 0.426413E-01_JPRB, 0.389294E-01_JPRB, 0.354867E-01_JPRB &
+  &, 0.322959E-01_JPRB, 0.293368E-01_JPRB, 0.266084E-01_JPRB, 0.240861E-01_JPRB &
+  &, 0.217651E-01_JPRB, 0.196391E-01_JPRB, 0.176768E-01_JPRB &
+  &, 0.158920E-01_JPRB, 0.142743E-01_JPRB, 0.127861E-01_JPRB, 0.114380E-01_JPRB &
+  &, 0.102146E-01_JPRB, 0.909864E-02_JPRB, 0.809842E-02_JPRB &
+  &, 0.719460E-02_JPRB, 0.639433E-02_JPRB, 0.564711E-02_JPRB, 0.498666E-02_JPRB &
+  &, 0.441898E-02_JPRB, 0.388914E-02_JPRB, 0.340008E-02_JPRB &
+  &, 0.298651E-02_JPRB, 0.262097E-02_JPRB, 0.227385E-02_JPRB, 0.201343E-02_JPRB &
+  &, 0.174286E-02_JPRB, 0.149654E-02_JPRB, 0.131128E-02_JPRB &
+  &, 0.111902E-02_JPRB, 0.992412E-03_JPRB, 0.861059E-03_JPRB, 0.724883E-03_JPRB &
+  &, 0.622068E-03_JPRB, 0.515558E-03_JPRB, 0.444828E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.336633E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 286, :) = (/ &
+  &  0.941125E+00_JPRB, 0.925777E+00_JPRB, 0.910195E+00_JPRB, 0.894395E+00_JPRB &
+  &, 0.878384E+00_JPRB, 0.862176E+00_JPRB, 0.845781E+00_JPRB &
+  &, 0.829212E+00_JPRB, 0.812480E+00_JPRB, 0.795597E+00_JPRB, 0.778576E+00_JPRB &
+  &, 0.761429E+00_JPRB, 0.744172E+00_JPRB, 0.726814E+00_JPRB &
+  &, 0.709374E+00_JPRB, 0.691861E+00_JPRB, 0.674294E+00_JPRB, 0.656683E+00_JPRB &
+  &, 0.639048E+00_JPRB, 0.621398E+00_JPRB, 0.603758E+00_JPRB &
+  &, 0.586135E+00_JPRB, 0.568551E+00_JPRB, 0.551021E+00_JPRB, 0.533564E+00_JPRB &
+  &, 0.516193E+00_JPRB, 0.498926E+00_JPRB, 0.481784E+00_JPRB &
+  &, 0.464779E+00_JPRB, 0.447935E+00_JPRB, 0.431264E+00_JPRB, 0.414788E+00_JPRB &
+  &, 0.398517E+00_JPRB, 0.382473E+00_JPRB, 0.366675E+00_JPRB &
+  &, 0.351134E+00_JPRB, 0.335865E+00_JPRB, 0.320889E+00_JPRB, 0.306219E+00_JPRB &
+  &, 0.291867E+00_JPRB, 0.277847E+00_JPRB, 0.264162E+00_JPRB &
+  &, 0.250837E+00_JPRB, 0.237873E+00_JPRB, 0.225283E+00_JPRB, 0.213078E+00_JPRB &
+  &, 0.201268E+00_JPRB, 0.189837E+00_JPRB, 0.178817E+00_JPRB &
+  &, 0.168200E+00_JPRB, 0.157988E+00_JPRB, 0.148170E+00_JPRB, 0.138768E+00_JPRB &
+  &, 0.129767E+00_JPRB, 0.121172E+00_JPRB, 0.112973E+00_JPRB &
+  &, 0.105174E+00_JPRB, 0.977575E-01_JPRB, 0.907367E-01_JPRB, 0.840733E-01_JPRB &
+  &, 0.777743E-01_JPRB, 0.718450E-01_JPRB, 0.662539E-01_JPRB &
+  &, 0.610008E-01_JPRB, 0.560835E-01_JPRB, 0.514600E-01_JPRB, 0.471602E-01_JPRB &
+  &, 0.431361E-01_JPRB, 0.393944E-01_JPRB, 0.358997E-01_JPRB &
+  &, 0.326755E-01_JPRB, 0.297029E-01_JPRB, 0.269382E-01_JPRB, 0.244003E-01_JPRB &
+  &, 0.220628E-01_JPRB, 0.198962E-01_JPRB, 0.179391E-01_JPRB &
+  &, 0.161353E-01_JPRB, 0.144975E-01_JPRB, 0.129885E-01_JPRB, 0.116186E-01_JPRB &
+  &, 0.103724E-01_JPRB, 0.925950E-02_JPRB, 0.823505E-02_JPRB &
+  &, 0.733384E-02_JPRB, 0.650783E-02_JPRB, 0.576274E-02_JPRB, 0.507500E-02_JPRB &
+  &, 0.447896E-02_JPRB, 0.395023E-02_JPRB, 0.346229E-02_JPRB &
+  &, 0.304984E-02_JPRB, 0.268544E-02_JPRB, 0.233947E-02_JPRB, 0.204682E-02_JPRB &
+  &, 0.177684E-02_JPRB, 0.153111E-02_JPRB, 0.134645E-02_JPRB &
+  &, 0.115479E-02_JPRB, 0.992412E-03_JPRB, 0.861059E-03_JPRB, 0.762508E-03_JPRB &
+  &, 0.622068E-03_JPRB, 0.554447E-03_JPRB, 0.484358E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.336633E-03_JPRB, 0.300415E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 287, :) = (/ &
+  &  0.941408E+00_JPRB, 0.926126E+00_JPRB, 0.910610E+00_JPRB, 0.894873E+00_JPRB &
+  &, 0.878924E+00_JPRB, 0.862777E+00_JPRB, 0.846441E+00_JPRB &
+  &, 0.829927E+00_JPRB, 0.813250E+00_JPRB, 0.796420E+00_JPRB, 0.779450E+00_JPRB &
+  &, 0.762353E+00_JPRB, 0.745141E+00_JPRB, 0.727829E+00_JPRB &
+  &, 0.710430E+00_JPRB, 0.692958E+00_JPRB, 0.675428E+00_JPRB, 0.657854E+00_JPRB &
+  &, 0.640250E+00_JPRB, 0.622636E+00_JPRB, 0.605023E+00_JPRB &
+  &, 0.587428E+00_JPRB, 0.569867E+00_JPRB, 0.552360E+00_JPRB, 0.534921E+00_JPRB &
+  &, 0.517568E+00_JPRB, 0.500316E+00_JPRB, 0.483185E+00_JPRB &
+  &, 0.466191E+00_JPRB, 0.449354E+00_JPRB, 0.432689E+00_JPRB, 0.416210E+00_JPRB &
+  &, 0.399941E+00_JPRB, 0.383898E+00_JPRB, 0.368094E+00_JPRB &
+  &, 0.352548E+00_JPRB, 0.337267E+00_JPRB, 0.322278E+00_JPRB, 0.307592E+00_JPRB &
+  &, 0.293223E+00_JPRB, 0.279185E+00_JPRB, 0.265480E+00_JPRB &
+  &, 0.252133E+00_JPRB, 0.239156E+00_JPRB, 0.226540E+00_JPRB, 0.214306E+00_JPRB &
+  &, 0.202466E+00_JPRB, 0.191014E+00_JPRB, 0.179959E+00_JPRB &
+  &, 0.169304E+00_JPRB, 0.159052E+00_JPRB, 0.149217E+00_JPRB, 0.139770E+00_JPRB &
+  &, 0.130735E+00_JPRB, 0.122104E+00_JPRB, 0.113882E+00_JPRB &
+  &, 0.106042E+00_JPRB, 0.985821E-01_JPRB, 0.915155E-01_JPRB, 0.848202E-01_JPRB &
+  &, 0.784872E-01_JPRB, 0.725221E-01_JPRB, 0.668930E-01_JPRB &
+  &, 0.616178E-01_JPRB, 0.566585E-01_JPRB, 0.520097E-01_JPRB, 0.476639E-01_JPRB &
+  &, 0.436111E-01_JPRB, 0.398392E-01_JPRB, 0.363334E-01_JPRB &
+  &, 0.330762E-01_JPRB, 0.300689E-01_JPRB, 0.272899E-01_JPRB, 0.247144E-01_JPRB &
+  &, 0.223605E-01_JPRB, 0.201766E-01_JPRB, 0.182013E-01_JPRB &
+  &, 0.163785E-01_JPRB, 0.146960E-01_JPRB, 0.131909E-01_JPRB, 0.117992E-01_JPRB &
+  &, 0.105565E-01_JPRB, 0.942037E-02_JPRB, 0.837168E-02_JPRB &
+  &, 0.744522E-02_JPRB, 0.662132E-02_JPRB, 0.584947E-02_JPRB, 0.519279E-02_JPRB &
+  &, 0.456894E-02_JPRB, 0.404186E-02_JPRB, 0.355559E-02_JPRB &
+  &, 0.311317E-02_JPRB, 0.271767E-02_JPRB, 0.237227E-02_JPRB, 0.208021E-02_JPRB &
+  &, 0.181081E-02_JPRB, 0.156568E-02_JPRB, 0.138162E-02_JPRB &
+  &, 0.119057E-02_JPRB, 0.102880E-02_JPRB, 0.898061E-03_JPRB, 0.762508E-03_JPRB &
+  &, 0.660322E-03_JPRB, 0.554447E-03_JPRB, 0.484358E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.336633E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART41',1,ZHOOK_HANDLE)
+END SUBROUTINE PART41
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART42
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART42',0,ZHOOK_HANDLE)
+
+XCW( 288, :) = (/ &
+  &  0.941692E+00_JPRB, 0.926475E+00_JPRB, 0.911024E+00_JPRB, 0.895352E+00_JPRB &
+  &, 0.879465E+00_JPRB, 0.863377E+00_JPRB, 0.847099E+00_JPRB &
+  &, 0.830642E+00_JPRB, 0.814020E+00_JPRB, 0.797242E+00_JPRB, 0.780323E+00_JPRB &
+  &, 0.763275E+00_JPRB, 0.746109E+00_JPRB, 0.728842E+00_JPRB &
+  &, 0.711487E+00_JPRB, 0.694056E+00_JPRB, 0.676563E+00_JPRB, 0.659025E+00_JPRB &
+  &, 0.641456E+00_JPRB, 0.623873E+00_JPRB, 0.606287E+00_JPRB &
+  &, 0.588721E+00_JPRB, 0.571186E+00_JPRB, 0.553700E+00_JPRB, 0.536278E+00_JPRB &
+  &, 0.518942E+00_JPRB, 0.501705E+00_JPRB, 0.484585E+00_JPRB &
+  &, 0.467602E+00_JPRB, 0.450772E+00_JPRB, 0.434110E+00_JPRB, 0.417638E+00_JPRB &
+  &, 0.401370E+00_JPRB, 0.385323E+00_JPRB, 0.369514E+00_JPRB &
+  &, 0.353952E+00_JPRB, 0.338669E+00_JPRB, 0.323676E+00_JPRB, 0.308976E+00_JPRB &
+  &, 0.294590E+00_JPRB, 0.280523E+00_JPRB, 0.266809E+00_JPRB &
+  &, 0.253440E+00_JPRB, 0.240428E+00_JPRB, 0.227796E+00_JPRB, 0.215534E+00_JPRB &
+  &, 0.203663E+00_JPRB, 0.192179E+00_JPRB, 0.181100E+00_JPRB &
+  &, 0.170407E+00_JPRB, 0.160128E+00_JPRB, 0.150251E+00_JPRB, 0.140787E+00_JPRB &
+  &, 0.131718E+00_JPRB, 0.123051E+00_JPRB, 0.114775E+00_JPRB &
+  &, 0.106894E+00_JPRB, 0.994067E-01_JPRB, 0.923105E-01_JPRB, 0.855836E-01_JPRB &
+  &, 0.792172E-01_JPRB, 0.732165E-01_JPRB, 0.675497E-01_JPRB &
+  &, 0.622348E-01_JPRB, 0.572335E-01_JPRB, 0.525595E-01_JPRB, 0.481869E-01_JPRB &
+  &, 0.441059E-01_JPRB, 0.403043E-01_JPRB, 0.367670E-01_JPRB &
+  &, 0.334768E-01_JPRB, 0.304350E-01_JPRB, 0.276416E-01_JPRB, 0.250510E-01_JPRB &
+  &, 0.226582E-01_JPRB, 0.204570E-01_JPRB, 0.184397E-01_JPRB &
+  &, 0.165974E-01_JPRB, 0.149193E-01_JPRB, 0.133933E-01_JPRB, 0.119798E-01_JPRB &
+  &, 0.107143E-01_JPRB, 0.955442E-02_JPRB, 0.850831E-02_JPRB &
+  &, 0.758446E-02_JPRB, 0.673482E-02_JPRB, 0.596510E-02_JPRB, 0.528113E-02_JPRB &
+  &, 0.465892E-02_JPRB, 0.410295E-02_JPRB, 0.361780E-02_JPRB &
+  &, 0.317650E-02_JPRB, 0.278214E-02_JPRB, 0.243789E-02_JPRB, 0.211360E-02_JPRB &
+  &, 0.184479E-02_JPRB, 0.160025E-02_JPRB, 0.141679E-02_JPRB &
+  &, 0.122634E-02_JPRB, 0.106518E-02_JPRB, 0.898061E-03_JPRB, 0.800134E-03_JPRB &
+  &, 0.660322E-03_JPRB, 0.593336E-03_JPRB, 0.484358E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.336633E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 289, :) = (/ &
+  &  0.941973E+00_JPRB, 0.926824E+00_JPRB, 0.911439E+00_JPRB, 0.895829E+00_JPRB &
+  &, 0.880004E+00_JPRB, 0.863976E+00_JPRB, 0.847757E+00_JPRB &
+  &, 0.831357E+00_JPRB, 0.814788E+00_JPRB, 0.798064E+00_JPRB, 0.781196E+00_JPRB &
+  &, 0.764195E+00_JPRB, 0.747077E+00_JPRB, 0.729855E+00_JPRB &
+  &, 0.712542E+00_JPRB, 0.695150E+00_JPRB, 0.677697E+00_JPRB, 0.660196E+00_JPRB &
+  &, 0.642659E+00_JPRB, 0.625107E+00_JPRB, 0.607552E+00_JPRB &
+  &, 0.590011E+00_JPRB, 0.572502E+00_JPRB, 0.555036E+00_JPRB, 0.537635E+00_JPRB &
+  &, 0.520317E+00_JPRB, 0.503095E+00_JPRB, 0.485989E+00_JPRB &
+  &, 0.469018E+00_JPRB, 0.452195E+00_JPRB, 0.435535E+00_JPRB, 0.419065E+00_JPRB &
+  &, 0.402798E+00_JPRB, 0.386747E+00_JPRB, 0.370934E+00_JPRB &
+  &, 0.355375E+00_JPRB, 0.340080E+00_JPRB, 0.325064E+00_JPRB, 0.310349E+00_JPRB &
+  &, 0.295958E+00_JPRB, 0.281872E+00_JPRB, 0.268138E+00_JPRB &
+  &, 0.254746E+00_JPRB, 0.241710E+00_JPRB, 0.229053E+00_JPRB, 0.216763E+00_JPRB &
+  &, 0.204861E+00_JPRB, 0.193356E+00_JPRB, 0.182242E+00_JPRB &
+  &, 0.171524E+00_JPRB, 0.161205E+00_JPRB, 0.151298E+00_JPRB, 0.141789E+00_JPRB &
+  &, 0.132686E+00_JPRB, 0.123983E+00_JPRB, 0.115684E+00_JPRB &
+  &, 0.107762E+00_JPRB, 0.100247E+00_JPRB, 0.931055E-01_JPRB, 0.863471E-01_JPRB &
+  &, 0.799471E-01_JPRB, 0.738935E-01_JPRB, 0.682065E-01_JPRB &
+  &, 0.628518E-01_JPRB, 0.578271E-01_JPRB, 0.531093E-01_JPRB, 0.487100E-01_JPRB &
+  &, 0.446007E-01_JPRB, 0.407693E-01_JPRB, 0.372007E-01_JPRB &
+  &, 0.338775E-01_JPRB, 0.308225E-01_JPRB, 0.279933E-01_JPRB, 0.253651E-01_JPRB &
+  &, 0.229559E-01_JPRB, 0.207374E-01_JPRB, 0.187020E-01_JPRB &
+  &, 0.168406E-01_JPRB, 0.151425E-01_JPRB, 0.135957E-01_JPRB, 0.121603E-01_JPRB &
+  &, 0.108721E-01_JPRB, 0.971528E-02_JPRB, 0.867226E-02_JPRB &
+  &, 0.769585E-02_JPRB, 0.684832E-02_JPRB, 0.608073E-02_JPRB, 0.536948E-02_JPRB &
+  &, 0.474890E-02_JPRB, 0.419458E-02_JPRB, 0.368000E-02_JPRB &
+  &, 0.323983E-02_JPRB, 0.284661E-02_JPRB, 0.250351E-02_JPRB, 0.218038E-02_JPRB &
+  &, 0.191275E-02_JPRB, 0.163482E-02_JPRB, 0.145196E-02_JPRB &
+  &, 0.126211E-02_JPRB, 0.106518E-02_JPRB, 0.935064E-03_JPRB, 0.800134E-03_JPRB &
+  &, 0.698577E-03_JPRB, 0.593336E-03_JPRB, 0.523887E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.377463E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 290, :) = (/ &
+  &  0.942255E+00_JPRB, 0.927172E+00_JPRB, 0.911852E+00_JPRB, 0.896306E+00_JPRB &
+  &, 0.880543E+00_JPRB, 0.864574E+00_JPRB, 0.848414E+00_JPRB &
+  &, 0.832070E+00_JPRB, 0.815557E+00_JPRB, 0.798885E+00_JPRB, 0.782067E+00_JPRB &
+  &, 0.765116E+00_JPRB, 0.748045E+00_JPRB, 0.730866E+00_JPRB &
+  &, 0.713597E+00_JPRB, 0.696246E+00_JPRB, 0.678830E+00_JPRB, 0.661365E+00_JPRB &
+  &, 0.643864E+00_JPRB, 0.626341E+00_JPRB, 0.608816E+00_JPRB &
+  &, 0.591304E+00_JPRB, 0.573818E+00_JPRB, 0.556376E+00_JPRB, 0.538996E+00_JPRB &
+  &, 0.521692E+00_JPRB, 0.504488E+00_JPRB, 0.487394E+00_JPRB &
+  &, 0.470429E+00_JPRB, 0.453613E+00_JPRB, 0.436965E+00_JPRB, 0.420496E+00_JPRB &
+  &, 0.404227E+00_JPRB, 0.388176E+00_JPRB, 0.372358E+00_JPRB &
+  &, 0.356789E+00_JPRB, 0.341482E+00_JPRB, 0.326463E+00_JPRB, 0.311733E+00_JPRB &
+  &, 0.297325E+00_JPRB, 0.283221E+00_JPRB, 0.269467E+00_JPRB &
+  &, 0.256053E+00_JPRB, 0.243004E+00_JPRB, 0.230310E+00_JPRB, 0.218003E+00_JPRB &
+  &, 0.206070E+00_JPRB, 0.194532E+00_JPRB, 0.183384E+00_JPRB &
+  &, 0.172641E+00_JPRB, 0.162295E+00_JPRB, 0.152346E+00_JPRB, 0.142805E+00_JPRB &
+  &, 0.133669E+00_JPRB, 0.124929E+00_JPRB, 0.116592E+00_JPRB &
+  &, 0.108645E+00_JPRB, 0.101088E+00_JPRB, 0.939005E-01_JPRB, 0.871106E-01_JPRB &
+  &, 0.806771E-01_JPRB, 0.745879E-01_JPRB, 0.688632E-01_JPRB &
+  &, 0.634687E-01_JPRB, 0.584207E-01_JPRB, 0.536780E-01_JPRB, 0.492330E-01_JPRB &
+  &, 0.450955E-01_JPRB, 0.412343E-01_JPRB, 0.376343E-01_JPRB &
+  &, 0.342993E-01_JPRB, 0.312101E-01_JPRB, 0.283450E-01_JPRB, 0.257017E-01_JPRB &
+  &, 0.232536E-01_JPRB, 0.210178E-01_JPRB, 0.189643E-01_JPRB &
+  &, 0.170838E-01_JPRB, 0.153658E-01_JPRB, 0.137981E-01_JPRB, 0.123667E-01_JPRB &
+  &, 0.110562E-01_JPRB, 0.987614E-02_JPRB, 0.880889E-02_JPRB &
+  &, 0.783509E-02_JPRB, 0.696182E-02_JPRB, 0.616746E-02_JPRB, 0.545782E-02_JPRB &
+  &, 0.483888E-02_JPRB, 0.425567E-02_JPRB, 0.374220E-02_JPRB &
+  &, 0.330316E-02_JPRB, 0.291108E-02_JPRB, 0.253632E-02_JPRB, 0.221377E-02_JPRB &
+  &, 0.194672E-02_JPRB, 0.170396E-02_JPRB, 0.145196E-02_JPRB &
+  &, 0.126211E-02_JPRB, 0.110157E-02_JPRB, 0.935064E-03_JPRB, 0.837759E-03_JPRB &
+  &, 0.698577E-03_JPRB, 0.593336E-03_JPRB, 0.523887E-03_JPRB &
+  &, 0.451942E-03_JPRB, 0.377463E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 291, :) = (/ &
+  &  0.942536E+00_JPRB, 0.927521E+00_JPRB, 0.912265E+00_JPRB, 0.896782E+00_JPRB &
+  &, 0.881081E+00_JPRB, 0.865173E+00_JPRB, 0.849070E+00_JPRB &
+  &, 0.832783E+00_JPRB, 0.816324E+00_JPRB, 0.799704E+00_JPRB, 0.782938E+00_JPRB &
+  &, 0.766036E+00_JPRB, 0.749012E+00_JPRB, 0.731878E+00_JPRB &
+  &, 0.714650E+00_JPRB, 0.697340E+00_JPRB, 0.679964E+00_JPRB, 0.662535E+00_JPRB &
+  &, 0.645066E+00_JPRB, 0.627578E+00_JPRB, 0.610081E+00_JPRB &
+  &, 0.592593E+00_JPRB, 0.575134E+00_JPRB, 0.557712E+00_JPRB, 0.540353E+00_JPRB &
+  &, 0.523067E+00_JPRB, 0.505878E+00_JPRB, 0.488798E+00_JPRB &
+  &, 0.471845E+00_JPRB, 0.455036E+00_JPRB, 0.438390E+00_JPRB, 0.421927E+00_JPRB &
+  &, 0.405659E+00_JPRB, 0.389605E+00_JPRB, 0.373782E+00_JPRB &
+  &, 0.358203E+00_JPRB, 0.342894E+00_JPRB, 0.327861E+00_JPRB, 0.313126E+00_JPRB &
+  &, 0.298692E+00_JPRB, 0.284581E+00_JPRB, 0.270796E+00_JPRB &
+  &, 0.257371E+00_JPRB, 0.244287E+00_JPRB, 0.231578E+00_JPRB, 0.219243E+00_JPRB &
+  &, 0.207280E+00_JPRB, 0.195709E+00_JPRB, 0.184538E+00_JPRB &
+  &, 0.173758E+00_JPRB, 0.163372E+00_JPRB, 0.153393E+00_JPRB, 0.143821E+00_JPRB &
+  &, 0.134651E+00_JPRB, 0.125876E+00_JPRB, 0.117501E+00_JPRB &
+  &, 0.109513E+00_JPRB, 0.101928E+00_JPRB, 0.947117E-01_JPRB, 0.878740E-01_JPRB &
+  &, 0.814070E-01_JPRB, 0.752823E-01_JPRB, 0.695200E-01_JPRB &
+  &, 0.641039E-01_JPRB, 0.590142E-01_JPRB, 0.542277E-01_JPRB, 0.497560E-01_JPRB &
+  &, 0.455903E-01_JPRB, 0.416993E-01_JPRB, 0.380680E-01_JPRB &
+  &, 0.347000E-01_JPRB, 0.315762E-01_JPRB, 0.286967E-01_JPRB, 0.260383E-01_JPRB &
+  &, 0.235742E-01_JPRB, 0.213216E-01_JPRB, 0.192265E-01_JPRB &
+  &, 0.173270E-01_JPRB, 0.155891E-01_JPRB, 0.140004E-01_JPRB, 0.125473E-01_JPRB &
+  &, 0.112403E-01_JPRB, 0.100370E-01_JPRB, 0.894552E-02_JPRB &
+  &, 0.797432E-02_JPRB, 0.707532E-02_JPRB, 0.628309E-02_JPRB, 0.557561E-02_JPRB &
+  &, 0.492886E-02_JPRB, 0.434730E-02_JPRB, 0.383551E-02_JPRB &
+  &, 0.336649E-02_JPRB, 0.294331E-02_JPRB, 0.260194E-02_JPRB, 0.228055E-02_JPRB &
+  &, 0.198070E-02_JPRB, 0.173853E-02_JPRB, 0.148713E-02_JPRB &
+  &, 0.129789E-02_JPRB, 0.113795E-02_JPRB, 0.972066E-03_JPRB, 0.837759E-03_JPRB &
+  &, 0.736831E-03_JPRB, 0.632225E-03_JPRB, 0.523887E-03_JPRB &
+  &, 0.451942E-03_JPRB, 0.377463E-03_JPRB, 0.341902E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 292, :) = (/ &
+  &  0.942817E+00_JPRB, 0.927868E+00_JPRB, 0.912677E+00_JPRB, 0.897257E+00_JPRB &
+  &, 0.881617E+00_JPRB, 0.865770E+00_JPRB, 0.849725E+00_JPRB &
+  &, 0.833495E+00_JPRB, 0.817090E+00_JPRB, 0.800524E+00_JPRB, 0.783808E+00_JPRB &
+  &, 0.766954E+00_JPRB, 0.749977E+00_JPRB, 0.732889E+00_JPRB &
+  &, 0.715704E+00_JPRB, 0.698434E+00_JPRB, 0.681096E+00_JPRB, 0.663703E+00_JPRB &
+  &, 0.646269E+00_JPRB, 0.628812E+00_JPRB, 0.611345E+00_JPRB &
+  &, 0.593886E+00_JPRB, 0.576450E+00_JPRB, 0.559052E+00_JPRB, 0.541713E+00_JPRB &
+  &, 0.524446E+00_JPRB, 0.507267E+00_JPRB, 0.490203E+00_JPRB &
+  &, 0.473256E+00_JPRB, 0.456458E+00_JPRB, 0.439819E+00_JPRB, 0.423358E+00_JPRB &
+  &, 0.407092E+00_JPRB, 0.391034E+00_JPRB, 0.375211E+00_JPRB &
+  &, 0.359626E+00_JPRB, 0.344305E+00_JPRB, 0.329259E+00_JPRB, 0.314510E+00_JPRB &
+  &, 0.300059E+00_JPRB, 0.285930E+00_JPRB, 0.272135E+00_JPRB &
+  &, 0.258678E+00_JPRB, 0.245581E+00_JPRB, 0.232846E+00_JPRB, 0.220483E+00_JPRB &
+  &, 0.208490E+00_JPRB, 0.196899E+00_JPRB, 0.185692E+00_JPRB &
+  &, 0.174875E+00_JPRB, 0.164462E+00_JPRB, 0.154455E+00_JPRB, 0.144852E+00_JPRB &
+  &, 0.135634E+00_JPRB, 0.126838E+00_JPRB, 0.118425E+00_JPRB &
+  &, 0.110397E+00_JPRB, 0.102769E+00_JPRB, 0.955229E-01_JPRB, 0.886541E-01_JPRB &
+  &, 0.821370E-01_JPRB, 0.759940E-01_JPRB, 0.701945E-01_JPRB &
+  &, 0.647390E-01_JPRB, 0.596078E-01_JPRB, 0.547965E-01_JPRB, 0.502984E-01_JPRB &
+  &, 0.460851E-01_JPRB, 0.421643E-01_JPRB, 0.385223E-01_JPRB &
+  &, 0.351217E-01_JPRB, 0.319637E-01_JPRB, 0.290485E-01_JPRB, 0.263748E-01_JPRB &
+  &, 0.238948E-01_JPRB, 0.216020E-01_JPRB, 0.195126E-01_JPRB &
+  &, 0.175702E-01_JPRB, 0.158123E-01_JPRB, 0.142028E-01_JPRB, 0.127537E-01_JPRB &
+  &, 0.113981E-01_JPRB, 0.101979E-01_JPRB, 0.910947E-02_JPRB &
+  &, 0.811356E-02_JPRB, 0.721720E-02_JPRB, 0.639872E-02_JPRB, 0.566395E-02_JPRB &
+  &, 0.501884E-02_JPRB, 0.443894E-02_JPRB, 0.389771E-02_JPRB &
+  &, 0.342982E-02_JPRB, 0.300778E-02_JPRB, 0.263475E-02_JPRB, 0.231395E-02_JPRB &
+  &, 0.201468E-02_JPRB, 0.177310E-02_JPRB, 0.152230E-02_JPRB &
+  &, 0.133366E-02_JPRB, 0.113795E-02_JPRB, 0.100907E-02_JPRB, 0.875385E-03_JPRB &
+  &, 0.736831E-03_JPRB, 0.632225E-03_JPRB, 0.563417E-03_JPRB &
+  &, 0.451942E-03_JPRB, 0.377463E-03_JPRB, 0.341902E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 293, :) = (/ &
+  &  0.943097E+00_JPRB, 0.928215E+00_JPRB, 0.913088E+00_JPRB, 0.897733E+00_JPRB &
+  &, 0.882154E+00_JPRB, 0.866367E+00_JPRB, 0.850380E+00_JPRB &
+  &, 0.834206E+00_JPRB, 0.817856E+00_JPRB, 0.801342E+00_JPRB, 0.784677E+00_JPRB &
+  &, 0.767872E+00_JPRB, 0.750942E+00_JPRB, 0.733899E+00_JPRB &
+  &, 0.716756E+00_JPRB, 0.699527E+00_JPRB, 0.682227E+00_JPRB, 0.664870E+00_JPRB &
+  &, 0.647471E+00_JPRB, 0.630046E+00_JPRB, 0.612610E+00_JPRB &
+  &, 0.595176E+00_JPRB, 0.577766E+00_JPRB, 0.560391E+00_JPRB, 0.543070E+00_JPRB &
+  &, 0.525821E+00_JPRB, 0.508660E+00_JPRB, 0.491607E+00_JPRB &
+  &, 0.474660E+00_JPRB, 0.457880E+00_JPRB, 0.441248E+00_JPRB, 0.424790E+00_JPRB &
+  &, 0.408525E+00_JPRB, 0.392467E+00_JPRB, 0.376636E+00_JPRB &
+  &, 0.361049E+00_JPRB, 0.345717E+00_JPRB, 0.330667E+00_JPRB, 0.315903E+00_JPRB &
+  &, 0.301436E+00_JPRB, 0.287289E+00_JPRB, 0.273475E+00_JPRB &
+  &, 0.259996E+00_JPRB, 0.246875E+00_JPRB, 0.234114E+00_JPRB, 0.221723E+00_JPRB &
+  &, 0.209711E+00_JPRB, 0.198088E+00_JPRB, 0.186847E+00_JPRB &
+  &, 0.176005E+00_JPRB, 0.165566E+00_JPRB, 0.155516E+00_JPRB, 0.145868E+00_JPRB &
+  &, 0.136631E+00_JPRB, 0.127785E+00_JPRB, 0.119333E+00_JPRB &
+  &, 0.111280E+00_JPRB, 0.103625E+00_JPRB, 0.963341E-01_JPRB, 0.894175E-01_JPRB &
+  &, 0.828839E-01_JPRB, 0.767058E-01_JPRB, 0.708690E-01_JPRB &
+  &, 0.653742E-01_JPRB, 0.602199E-01_JPRB, 0.553652E-01_JPRB, 0.508408E-01_JPRB &
+  &, 0.465997E-01_JPRB, 0.426495E-01_JPRB, 0.389559E-01_JPRB &
+  &, 0.355435E-01_JPRB, 0.323729E-01_JPRB, 0.294222E-01_JPRB, 0.267114E-01_JPRB &
+  &, 0.241925E-01_JPRB, 0.218824E-01_JPRB, 0.197749E-01_JPRB &
+  &, 0.178378E-01_JPRB, 0.160356E-01_JPRB, 0.144305E-01_JPRB, 0.129342E-01_JPRB &
+  &, 0.115822E-01_JPRB, 0.103587E-01_JPRB, 0.924610E-02_JPRB &
+  &, 0.822495E-02_JPRB, 0.733069E-02_JPRB, 0.651436E-02_JPRB, 0.578174E-02_JPRB &
+  &, 0.510882E-02_JPRB, 0.450003E-02_JPRB, 0.399102E-02_JPRB &
+  &, 0.349315E-02_JPRB, 0.307225E-02_JPRB, 0.270037E-02_JPRB, 0.234734E-02_JPRB &
+  &, 0.204866E-02_JPRB, 0.180768E-02_JPRB, 0.155747E-02_JPRB &
+  &, 0.136944E-02_JPRB, 0.117434E-02_JPRB, 0.100907E-02_JPRB, 0.875385E-03_JPRB &
+  &, 0.775085E-03_JPRB, 0.671114E-03_JPRB, 0.563417E-03_JPRB &
+  &, 0.492118E-03_JPRB, 0.418292E-03_JPRB, 0.341902E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 294, :) = (/ &
+  &  0.943377E+00_JPRB, 0.928560E+00_JPRB, 0.913500E+00_JPRB, 0.898207E+00_JPRB &
+  &, 0.882691E+00_JPRB, 0.866962E+00_JPRB, 0.851034E+00_JPRB &
+  &, 0.834917E+00_JPRB, 0.818621E+00_JPRB, 0.802160E+00_JPRB, 0.785546E+00_JPRB &
+  &, 0.768790E+00_JPRB, 0.751907E+00_JPRB, 0.734908E+00_JPRB &
+  &, 0.717808E+00_JPRB, 0.700620E+00_JPRB, 0.683360E+00_JPRB, 0.666038E+00_JPRB &
+  &, 0.648675E+00_JPRB, 0.631280E+00_JPRB, 0.613871E+00_JPRB &
+  &, 0.596466E+00_JPRB, 0.579082E+00_JPRB, 0.561731E+00_JPRB, 0.544431E+00_JPRB &
+  &, 0.527199E+00_JPRB, 0.510054E+00_JPRB, 0.493011E+00_JPRB &
+  &, 0.476091E+00_JPRB, 0.459307E+00_JPRB, 0.442677E+00_JPRB, 0.426225E+00_JPRB &
+  &, 0.409957E+00_JPRB, 0.393901E+00_JPRB, 0.378069E+00_JPRB &
+  &, 0.362472E+00_JPRB, 0.347138E+00_JPRB, 0.332066E+00_JPRB, 0.317287E+00_JPRB &
+  &, 0.302814E+00_JPRB, 0.288648E+00_JPRB, 0.274814E+00_JPRB &
+  &, 0.261325E+00_JPRB, 0.248169E+00_JPRB, 0.235394E+00_JPRB, 0.222975E+00_JPRB &
+  &, 0.210933E+00_JPRB, 0.199277E+00_JPRB, 0.188014E+00_JPRB &
+  &, 0.177135E+00_JPRB, 0.166656E+00_JPRB, 0.156578E+00_JPRB, 0.146898E+00_JPRB &
+  &, 0.137628E+00_JPRB, 0.128746E+00_JPRB, 0.120272E+00_JPRB &
+  &, 0.112179E+00_JPRB, 0.104465E+00_JPRB, 0.971453E-01_JPRB, 0.901976E-01_JPRB &
+  &, 0.836308E-01_JPRB, 0.774175E-01_JPRB, 0.715435E-01_JPRB &
+  &, 0.660093E-01_JPRB, 0.608135E-01_JPRB, 0.559528E-01_JPRB, 0.513832E-01_JPRB &
+  &, 0.471143E-01_JPRB, 0.431145E-01_JPRB, 0.394102E-01_JPRB &
+  &, 0.359652E-01_JPRB, 0.327604E-01_JPRB, 0.297959E-01_JPRB, 0.270480E-01_JPRB &
+  &, 0.245131E-01_JPRB, 0.221862E-01_JPRB, 0.200372E-01_JPRB &
+  &, 0.180810E-01_JPRB, 0.162837E-01_JPRB, 0.146329E-01_JPRB, 0.131406E-01_JPRB &
+  &, 0.117663E-01_JPRB, 0.105196E-01_JPRB, 0.941005E-02_JPRB &
+  &, 0.836418E-02_JPRB, 0.744419E-02_JPRB, 0.662999E-02_JPRB, 0.587009E-02_JPRB &
+  &, 0.519880E-02_JPRB, 0.459166E-02_JPRB, 0.405322E-02_JPRB &
+  &, 0.355648E-02_JPRB, 0.313672E-02_JPRB, 0.276599E-02_JPRB, 0.241412E-02_JPRB &
+  &, 0.211661E-02_JPRB, 0.184225E-02_JPRB, 0.159264E-02_JPRB &
+  &, 0.140521E-02_JPRB, 0.121073E-02_JPRB, 0.104607E-02_JPRB, 0.913010E-03_JPRB &
+  &, 0.775085E-03_JPRB, 0.671114E-03_JPRB, 0.563417E-03_JPRB &
+  &, 0.492118E-03_JPRB, 0.418292E-03_JPRB, 0.341902E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART42',1,ZHOOK_HANDLE)
+END SUBROUTINE PART42
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART43
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART43',0,ZHOOK_HANDLE)
+
+XCW( 295, :) = (/ &
+  &  0.943656E+00_JPRB, 0.928907E+00_JPRB, 0.913910E+00_JPRB, 0.898681E+00_JPRB &
+  &, 0.883226E+00_JPRB, 0.867558E+00_JPRB, 0.851687E+00_JPRB &
+  &, 0.835626E+00_JPRB, 0.819385E+00_JPRB, 0.802977E+00_JPRB, 0.786413E+00_JPRB &
+  &, 0.769707E+00_JPRB, 0.752870E+00_JPRB, 0.735916E+00_JPRB &
+  &, 0.718859E+00_JPRB, 0.701713E+00_JPRB, 0.684491E+00_JPRB, 0.667206E+00_JPRB &
+  &, 0.649875E+00_JPRB, 0.632515E+00_JPRB, 0.615136E+00_JPRB &
+  &, 0.597759E+00_JPRB, 0.580397E+00_JPRB, 0.563067E+00_JPRB, 0.545788E+00_JPRB &
+  &, 0.528578E+00_JPRB, 0.511447E+00_JPRB, 0.494419E+00_JPRB &
+  &, 0.477507E+00_JPRB, 0.460733E+00_JPRB, 0.444110E+00_JPRB, 0.427661E+00_JPRB &
+  &, 0.411394E+00_JPRB, 0.395334E+00_JPRB, 0.379498E+00_JPRB &
+  &, 0.363895E+00_JPRB, 0.348549E+00_JPRB, 0.333474E+00_JPRB, 0.318690E+00_JPRB &
+  &, 0.304191E+00_JPRB, 0.290018E+00_JPRB, 0.276165E+00_JPRB &
+  &, 0.262643E+00_JPRB, 0.249475E+00_JPRB, 0.236662E+00_JPRB, 0.224227E+00_JPRB &
+  &, 0.212155E+00_JPRB, 0.200467E+00_JPRB, 0.189168E+00_JPRB &
+  &, 0.178265E+00_JPRB, 0.167759E+00_JPRB, 0.157653E+00_JPRB, 0.147943E+00_JPRB &
+  &, 0.138625E+00_JPRB, 0.129708E+00_JPRB, 0.121196E+00_JPRB &
+  &, 0.113062E+00_JPRB, 0.105338E+00_JPRB, 0.979728E-01_JPRB, 0.909942E-01_JPRB &
+  &, 0.843777E-01_JPRB, 0.781293E-01_JPRB, 0.722180E-01_JPRB &
+  &, 0.666626E-01_JPRB, 0.614256E-01_JPRB, 0.565215E-01_JPRB, 0.519256E-01_JPRB &
+  &, 0.476289E-01_JPRB, 0.435998E-01_JPRB, 0.398645E-01_JPRB &
+  &, 0.363870E-01_JPRB, 0.331480E-01_JPRB, 0.301696E-01_JPRB, 0.273846E-01_JPRB &
+  &, 0.248337E-01_JPRB, 0.224900E-01_JPRB, 0.203233E-01_JPRB &
+  &, 0.183242E-01_JPRB, 0.165070E-01_JPRB, 0.148606E-01_JPRB, 0.133212E-01_JPRB &
+  &, 0.119504E-01_JPRB, 0.106804E-01_JPRB, 0.954668E-02_JPRB &
+  &, 0.850342E-02_JPRB, 0.758607E-02_JPRB, 0.674562E-02_JPRB, 0.598788E-02_JPRB &
+  &, 0.528878E-02_JPRB, 0.468329E-02_JPRB, 0.411542E-02_JPRB &
+  &, 0.365147E-02_JPRB, 0.320118E-02_JPRB, 0.279880E-02_JPRB, 0.244751E-02_JPRB &
+  &, 0.215059E-02_JPRB, 0.187682E-02_JPRB, 0.162781E-02_JPRB &
+  &, 0.144099E-02_JPRB, 0.124711E-02_JPRB, 0.108307E-02_JPRB, 0.913010E-03_JPRB &
+  &, 0.813339E-03_JPRB, 0.671114E-03_JPRB, 0.602947E-03_JPRB &
+  &, 0.492118E-03_JPRB, 0.418292E-03_JPRB, 0.383390E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 296, :) = (/ &
+  &  0.943936E+00_JPRB, 0.929253E+00_JPRB, 0.914312E+00_JPRB, 0.899154E+00_JPRB &
+  &, 0.883760E+00_JPRB, 0.868153E+00_JPRB, 0.852340E+00_JPRB &
+  &, 0.836335E+00_JPRB, 0.820149E+00_JPRB, 0.803794E+00_JPRB, 0.787281E+00_JPRB &
+  &, 0.770622E+00_JPRB, 0.753834E+00_JPRB, 0.736925E+00_JPRB &
+  &, 0.719911E+00_JPRB, 0.702804E+00_JPRB, 0.685620E+00_JPRB, 0.668373E+00_JPRB &
+  &, 0.651077E+00_JPRB, 0.633745E+00_JPRB, 0.616400E+00_JPRB &
+  &, 0.599049E+00_JPRB, 0.581713E+00_JPRB, 0.564407E+00_JPRB, 0.547149E+00_JPRB &
+  &, 0.529953E+00_JPRB, 0.512840E+00_JPRB, 0.495824E+00_JPRB &
+  &, 0.478926E+00_JPRB, 0.462160E+00_JPRB, 0.445544E+00_JPRB, 0.429096E+00_JPRB &
+  &, 0.412831E+00_JPRB, 0.396772E+00_JPRB, 0.380931E+00_JPRB &
+  &, 0.365328E+00_JPRB, 0.349970E+00_JPRB, 0.334882E+00_JPRB, 0.320084E+00_JPRB &
+  &, 0.305579E+00_JPRB, 0.291378E+00_JPRB, 0.277504E+00_JPRB &
+  &, 0.263972E+00_JPRB, 0.250780E+00_JPRB, 0.237942E+00_JPRB, 0.225479E+00_JPRB &
+  &, 0.213389E+00_JPRB, 0.201669E+00_JPRB, 0.190349E+00_JPRB &
+  &, 0.179408E+00_JPRB, 0.168863E+00_JPRB, 0.158728E+00_JPRB, 0.148973E+00_JPRB &
+  &, 0.139637E+00_JPRB, 0.130684E+00_JPRB, 0.122135E+00_JPRB &
+  &, 0.113961E+00_JPRB, 0.106194E+00_JPRB, 0.988002E-01_JPRB, 0.917743E-01_JPRB &
+  &, 0.851246E-01_JPRB, 0.788410E-01_JPRB, 0.729103E-01_JPRB &
+  &, 0.673158E-01_JPRB, 0.620377E-01_JPRB, 0.571092E-01_JPRB, 0.524680E-01_JPRB &
+  &, 0.481434E-01_JPRB, 0.440850E-01_JPRB, 0.403188E-01_JPRB &
+  &, 0.368088E-01_JPRB, 0.335571E-01_JPRB, 0.305433E-01_JPRB, 0.277436E-01_JPRB &
+  &, 0.251543E-01_JPRB, 0.227938E-01_JPRB, 0.206094E-01_JPRB &
+  &, 0.185918E-01_JPRB, 0.167550E-01_JPRB, 0.150630E-01_JPRB, 0.135276E-01_JPRB &
+  &, 0.121345E-01_JPRB, 0.108681E-01_JPRB, 0.971064E-02_JPRB &
+  &, 0.867051E-02_JPRB, 0.769957E-02_JPRB, 0.686125E-02_JPRB, 0.607622E-02_JPRB &
+  &, 0.537876E-02_JPRB, 0.477492E-02_JPRB, 0.420873E-02_JPRB &
+  &, 0.371480E-02_JPRB, 0.326565E-02_JPRB, 0.286442E-02_JPRB, 0.251429E-02_JPRB &
+  &, 0.218457E-02_JPRB, 0.191139E-02_JPRB, 0.166298E-02_JPRB &
+  &, 0.144099E-02_JPRB, 0.128350E-02_JPRB, 0.108307E-02_JPRB, 0.950636E-03_JPRB &
+  &, 0.813339E-03_JPRB, 0.710003E-03_JPRB, 0.602947E-03_JPRB &
+  &, 0.532294E-03_JPRB, 0.459121E-03_JPRB, 0.383390E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 297, :) = (/ &
+  &  0.944215E+00_JPRB, 0.929598E+00_JPRB, 0.914730E+00_JPRB, 0.899627E+00_JPRB &
+  &, 0.884295E+00_JPRB, 0.868746E+00_JPRB, 0.852993E+00_JPRB &
+  &, 0.837044E+00_JPRB, 0.820912E+00_JPRB, 0.804609E+00_JPRB, 0.788148E+00_JPRB &
+  &, 0.771539E+00_JPRB, 0.754796E+00_JPRB, 0.737932E+00_JPRB &
+  &, 0.720960E+00_JPRB, 0.703896E+00_JPRB, 0.686750E+00_JPRB, 0.669539E+00_JPRB &
+  &, 0.652278E+00_JPRB, 0.634980E+00_JPRB, 0.617662E+00_JPRB &
+  &, 0.600338E+00_JPRB, 0.583029E+00_JPRB, 0.565746E+00_JPRB, 0.548509E+00_JPRB &
+  &, 0.531331E+00_JPRB, 0.514233E+00_JPRB, 0.497232E+00_JPRB &
+  &, 0.480345E+00_JPRB, 0.463586E+00_JPRB, 0.446977E+00_JPRB, 0.430531E+00_JPRB &
+  &, 0.414273E+00_JPRB, 0.398210E+00_JPRB, 0.382369E+00_JPRB &
+  &, 0.366751E+00_JPRB, 0.351391E+00_JPRB, 0.336300E+00_JPRB, 0.321477E+00_JPRB &
+  &, 0.306966E+00_JPRB, 0.292748E+00_JPRB, 0.278855E+00_JPRB &
+  &, 0.265300E+00_JPRB, 0.252086E+00_JPRB, 0.239233E+00_JPRB, 0.226731E+00_JPRB &
+  &, 0.214611E+00_JPRB, 0.202871E+00_JPRB, 0.191516E+00_JPRB &
+  &, 0.180551E+00_JPRB, 0.169980E+00_JPRB, 0.159803E+00_JPRB, 0.150018E+00_JPRB &
+  &, 0.140648E+00_JPRB, 0.131661E+00_JPRB, 0.123074E+00_JPRB &
+  &, 0.114875E+00_JPRB, 0.107066E+00_JPRB, 0.996277E-01_JPRB, 0.925709E-01_JPRB &
+  &, 0.858885E-01_JPRB, 0.795702E-01_JPRB, 0.736026E-01_JPRB &
+  &, 0.679691E-01_JPRB, 0.626684E-01_JPRB, 0.576969E-01_JPRB, 0.530298E-01_JPRB &
+  &, 0.486580E-01_JPRB, 0.445904E-01_JPRB, 0.407938E-01_JPRB &
+  &, 0.372516E-01_JPRB, 0.339662E-01_JPRB, 0.309169E-01_JPRB, 0.281026E-01_JPRB &
+  &, 0.254978E-01_JPRB, 0.230976E-01_JPRB, 0.208955E-01_JPRB &
+  &, 0.188593E-01_JPRB, 0.170031E-01_JPRB, 0.152907E-01_JPRB, 0.137339E-01_JPRB &
+  &, 0.123187E-01_JPRB, 0.110290E-01_JPRB, 0.987459E-02_JPRB &
+  &, 0.880974E-02_JPRB, 0.784144E-02_JPRB, 0.697689E-02_JPRB, 0.619401E-02_JPRB &
+  &, 0.549873E-02_JPRB, 0.486656E-02_JPRB, 0.430203E-02_JPRB &
+  &, 0.377813E-02_JPRB, 0.333012E-02_JPRB, 0.293003E-02_JPRB, 0.258107E-02_JPRB &
+  &, 0.225252E-02_JPRB, 0.194596E-02_JPRB, 0.169815E-02_JPRB &
+  &, 0.147676E-02_JPRB, 0.128350E-02_JPRB, 0.112008E-02_JPRB, 0.988261E-03_JPRB &
+  &, 0.851594E-03_JPRB, 0.710003E-03_JPRB, 0.602947E-03_JPRB &
+  &, 0.532294E-03_JPRB, 0.459121E-03_JPRB, 0.383390E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 298, :) = (/ &
+  &  0.944494E+00_JPRB, 0.929942E+00_JPRB, 0.915139E+00_JPRB, 0.900099E+00_JPRB &
+  &, 0.884828E+00_JPRB, 0.869340E+00_JPRB, 0.853644E+00_JPRB &
+  &, 0.837751E+00_JPRB, 0.821674E+00_JPRB, 0.805424E+00_JPRB, 0.789013E+00_JPRB &
+  &, 0.772453E+00_JPRB, 0.755757E+00_JPRB, 0.738939E+00_JPRB &
+  &, 0.722011E+00_JPRB, 0.704986E+00_JPRB, 0.687879E+00_JPRB, 0.670705E+00_JPRB &
+  &, 0.653479E+00_JPRB, 0.636214E+00_JPRB, 0.618926E+00_JPRB &
+  &, 0.601631E+00_JPRB, 0.584345E+00_JPRB, 0.567086E+00_JPRB, 0.549870E+00_JPRB &
+  &, 0.532710E+00_JPRB, 0.515627E+00_JPRB, 0.498640E+00_JPRB &
+  &, 0.481765E+00_JPRB, 0.465013E+00_JPRB, 0.448410E+00_JPRB, 0.431971E+00_JPRB &
+  &, 0.415710E+00_JPRB, 0.399652E+00_JPRB, 0.383802E+00_JPRB &
+  &, 0.368183E+00_JPRB, 0.352812E+00_JPRB, 0.337708E+00_JPRB, 0.322881E+00_JPRB &
+  &, 0.308343E+00_JPRB, 0.294118E+00_JPRB, 0.280216E+00_JPRB &
+  &, 0.266629E+00_JPRB, 0.253403E+00_JPRB, 0.240513E+00_JPRB, 0.227995E+00_JPRB &
+  &, 0.215845E+00_JPRB, 0.204085E+00_JPRB, 0.192696E+00_JPRB &
+  &, 0.181694E+00_JPRB, 0.171097E+00_JPRB, 0.160878E+00_JPRB, 0.151076E+00_JPRB &
+  &, 0.141660E+00_JPRB, 0.132637E+00_JPRB, 0.124012E+00_JPRB &
+  &, 0.115774E+00_JPRB, 0.107922E+00_JPRB, 0.100471E+00_JPRB, 0.933676E-01_JPRB &
+  &, 0.866524E-01_JPRB, 0.802993E-01_JPRB, 0.742948E-01_JPRB &
+  &, 0.686224E-01_JPRB, 0.632990E-01_JPRB, 0.582846E-01_JPRB, 0.535916E-01_JPRB &
+  &, 0.491924E-01_JPRB, 0.450757E-01_JPRB, 0.412481E-01_JPRB &
+  &, 0.376734E-01_JPRB, 0.343753E-01_JPRB, 0.312906E-01_JPRB, 0.284616E-01_JPRB &
+  &, 0.258184E-01_JPRB, 0.234014E-01_JPRB, 0.211577E-01_JPRB &
+  &, 0.191268E-01_JPRB, 0.172512E-01_JPRB, 0.155184E-01_JPRB, 0.139403E-01_JPRB &
+  &, 0.125028E-01_JPRB, 0.112166E-01_JPRB, 0.100112E-01_JPRB &
+  &, 0.894898E-02_JPRB, 0.798331E-02_JPRB, 0.709252E-02_JPRB, 0.631180E-02_JPRB &
+  &, 0.558871E-02_JPRB, 0.495819E-02_JPRB, 0.436424E-02_JPRB &
+  &, 0.384146E-02_JPRB, 0.339459E-02_JPRB, 0.299565E-02_JPRB, 0.261446E-02_JPRB &
+  &, 0.228650E-02_JPRB, 0.201510E-02_JPRB, 0.173332E-02_JPRB &
+  &, 0.151254E-02_JPRB, 0.131988E-02_JPRB, 0.115708E-02_JPRB, 0.988261E-03_JPRB &
+  &, 0.851594E-03_JPRB, 0.748892E-03_JPRB, 0.642477E-03_JPRB &
+  &, 0.532294E-03_JPRB, 0.459121E-03_JPRB, 0.383390E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 299, :) = (/ &
+  &  0.944772E+00_JPRB, 0.930286E+00_JPRB, 0.915548E+00_JPRB, 0.900571E+00_JPRB &
+  &, 0.885361E+00_JPRB, 0.869933E+00_JPRB, 0.854294E+00_JPRB &
+  &, 0.838458E+00_JPRB, 0.822436E+00_JPRB, 0.806238E+00_JPRB, 0.789879E+00_JPRB &
+  &, 0.773368E+00_JPRB, 0.756718E+00_JPRB, 0.739943E+00_JPRB &
+  &, 0.723059E+00_JPRB, 0.706076E+00_JPRB, 0.689009E+00_JPRB, 0.671872E+00_JPRB &
+  &, 0.654679E+00_JPRB, 0.637445E+00_JPRB, 0.620188E+00_JPRB &
+  &, 0.602921E+00_JPRB, 0.585661E+00_JPRB, 0.568425E+00_JPRB, 0.551230E+00_JPRB &
+  &, 0.534088E+00_JPRB, 0.517024E+00_JPRB, 0.500048E+00_JPRB &
+  &, 0.483184E+00_JPRB, 0.466443E+00_JPRB, 0.449847E+00_JPRB, 0.433411E+00_JPRB &
+  &, 0.417155E+00_JPRB, 0.401090E+00_JPRB, 0.385240E+00_JPRB &
+  &, 0.369616E+00_JPRB, 0.354242E+00_JPRB, 0.339125E+00_JPRB, 0.324285E+00_JPRB &
+  &, 0.309741E+00_JPRB, 0.295498E+00_JPRB, 0.281566E+00_JPRB &
+  &, 0.267969E+00_JPRB, 0.254708E+00_JPRB, 0.241805E+00_JPRB, 0.229259E+00_JPRB &
+  &, 0.217092E+00_JPRB, 0.205287E+00_JPRB, 0.193876E+00_JPRB &
+  &, 0.182851E+00_JPRB, 0.172214E+00_JPRB, 0.161967E+00_JPRB, 0.152121E+00_JPRB &
+  &, 0.142672E+00_JPRB, 0.133613E+00_JPRB, 0.124951E+00_JPRB &
+  &, 0.116688E+00_JPRB, 0.108810E+00_JPRB, 0.101299E+00_JPRB, 0.941808E-01_JPRB &
+  &, 0.874163E-01_JPRB, 0.810284E-01_JPRB, 0.749871E-01_JPRB &
+  &, 0.692757E-01_JPRB, 0.639112E-01_JPRB, 0.588723E-01_JPRB, 0.541533E-01_JPRB &
+  &, 0.497268E-01_JPRB, 0.455811E-01_JPRB, 0.417230E-01_JPRB &
+  &, 0.381162E-01_JPRB, 0.347845E-01_JPRB, 0.316863E-01_JPRB, 0.288206E-01_JPRB &
+  &, 0.261619E-01_JPRB, 0.237051E-01_JPRB, 0.214677E-01_JPRB &
+  &, 0.193944E-01_JPRB, 0.174744E-01_JPRB, 0.157461E-01_JPRB, 0.141467E-01_JPRB &
+  &, 0.127132E-01_JPRB, 0.113775E-01_JPRB, 0.101752E-01_JPRB &
+  &, 0.908821E-02_JPRB, 0.809681E-02_JPRB, 0.720815E-02_JPRB, 0.640014E-02_JPRB &
+  &, 0.567869E-02_JPRB, 0.504982E-02_JPRB, 0.445754E-02_JPRB &
+  &, 0.393645E-02_JPRB, 0.345906E-02_JPRB, 0.302846E-02_JPRB, 0.268124E-02_JPRB &
+  &, 0.235446E-02_JPRB, 0.204967E-02_JPRB, 0.180366E-02_JPRB &
+  &, 0.154831E-02_JPRB, 0.135627E-02_JPRB, 0.119408E-02_JPRB, 0.102589E-02_JPRB &
+  &, 0.889848E-03_JPRB, 0.748892E-03_JPRB, 0.642477E-03_JPRB &
+  &, 0.572471E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 300, :) = (/ &
+  &  0.945050E+00_JPRB, 0.930630E+00_JPRB, 0.915956E+00_JPRB, 0.901042E+00_JPRB &
+  &, 0.885894E+00_JPRB, 0.870524E+00_JPRB, 0.854944E+00_JPRB &
+  &, 0.839165E+00_JPRB, 0.823196E+00_JPRB, 0.807052E+00_JPRB, 0.790742E+00_JPRB &
+  &, 0.774280E+00_JPRB, 0.757679E+00_JPRB, 0.740951E+00_JPRB &
+  &, 0.724108E+00_JPRB, 0.707166E+00_JPRB, 0.690137E+00_JPRB, 0.673036E+00_JPRB &
+  &, 0.655879E+00_JPRB, 0.638679E+00_JPRB, 0.621449E+00_JPRB &
+  &, 0.604211E+00_JPRB, 0.586977E+00_JPRB, 0.569765E+00_JPRB, 0.552591E+00_JPRB &
+  &, 0.535467E+00_JPRB, 0.518421E+00_JPRB, 0.501460E+00_JPRB &
+  &, 0.484603E+00_JPRB, 0.467874E+00_JPRB, 0.451285E+00_JPRB, 0.434850E+00_JPRB &
+  &, 0.418597E+00_JPRB, 0.402532E+00_JPRB, 0.386683E+00_JPRB &
+  &, 0.371057E+00_JPRB, 0.355673E+00_JPRB, 0.340543E+00_JPRB, 0.325698E+00_JPRB &
+  &, 0.311129E+00_JPRB, 0.296868E+00_JPRB, 0.282928E+00_JPRB &
+  &, 0.269309E+00_JPRB, 0.256025E+00_JPRB, 0.243096E+00_JPRB, 0.230535E+00_JPRB &
+  &, 0.218326E+00_JPRB, 0.206501E+00_JPRB, 0.195056E+00_JPRB &
+  &, 0.183994E+00_JPRB, 0.173331E+00_JPRB, 0.163056E+00_JPRB, 0.153179E+00_JPRB &
+  &, 0.143698E+00_JPRB, 0.134605E+00_JPRB, 0.125905E+00_JPRB &
+  &, 0.117603E+00_JPRB, 0.109683E+00_JPRB, 0.102142E+00_JPRB, 0.949941E-01_JPRB &
+  &, 0.881972E-01_JPRB, 0.817575E-01_JPRB, 0.756793E-01_JPRB &
+  &, 0.699471E-01_JPRB, 0.645418E-01_JPRB, 0.594789E-01_JPRB, 0.547151E-01_JPRB &
+  &, 0.502612E-01_JPRB, 0.460866E-01_JPRB, 0.421980E-01_JPRB &
+  &, 0.385591E-01_JPRB, 0.351936E-01_JPRB, 0.320600E-01_JPRB, 0.291796E-01_JPRB &
+  &, 0.265054E-01_JPRB, 0.240323E-01_JPRB, 0.217538E-01_JPRB &
+  &, 0.196619E-01_JPRB, 0.177225E-01_JPRB, 0.159738E-01_JPRB, 0.143789E-01_JPRB &
+  &, 0.128973E-01_JPRB, 0.115652E-01_JPRB, 0.103391E-01_JPRB &
+  &, 0.925530E-02_JPRB, 0.823869E-02_JPRB, 0.735269E-02_JPRB, 0.651793E-02_JPRB &
+  &, 0.579866E-02_JPRB, 0.514146E-02_JPRB, 0.455085E-02_JPRB &
+  &, 0.399978E-02_JPRB, 0.352353E-02_JPRB, 0.309408E-02_JPRB, 0.271463E-02_JPRB &
+  &, 0.238843E-02_JPRB, 0.208424E-02_JPRB, 0.183883E-02_JPRB &
+  &, 0.158409E-02_JPRB, 0.139265E-02_JPRB, 0.119408E-02_JPRB, 0.102589E-02_JPRB &
+  &, 0.889848E-03_JPRB, 0.787781E-03_JPRB, 0.682006E-03_JPRB &
+  &, 0.572471E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 301, :) = (/ &
+  &  0.945328E+00_JPRB, 0.930973E+00_JPRB, 0.916364E+00_JPRB, 0.901512E+00_JPRB &
+  &, 0.886425E+00_JPRB, 0.871116E+00_JPRB, 0.855594E+00_JPRB &
+  &, 0.839870E+00_JPRB, 0.823956E+00_JPRB, 0.807865E+00_JPRB, 0.791606E+00_JPRB &
+  &, 0.775194E+00_JPRB, 0.758639E+00_JPRB, 0.741955E+00_JPRB &
+  &, 0.725156E+00_JPRB, 0.708256E+00_JPRB, 0.691265E+00_JPRB, 0.674201E+00_JPRB &
+  &, 0.657078E+00_JPRB, 0.639910E+00_JPRB, 0.622714E+00_JPRB &
+  &, 0.605504E+00_JPRB, 0.588293E+00_JPRB, 0.571105E+00_JPRB, 0.553951E+00_JPRB &
+  &, 0.536849E+00_JPRB, 0.519814E+00_JPRB, 0.502868E+00_JPRB &
+  &, 0.486027E+00_JPRB, 0.469304E+00_JPRB, 0.452722E+00_JPRB, 0.436294E+00_JPRB &
+  &, 0.420042E+00_JPRB, 0.403979E+00_JPRB, 0.388125E+00_JPRB &
+  &, 0.372490E+00_JPRB, 0.357103E+00_JPRB, 0.341961E+00_JPRB, 0.327102E+00_JPRB &
+  &, 0.312527E+00_JPRB, 0.298249E+00_JPRB, 0.284289E+00_JPRB &
+  &, 0.270649E+00_JPRB, 0.257353E+00_JPRB, 0.244399E+00_JPRB, 0.231799E+00_JPRB &
+  &, 0.219572E+00_JPRB, 0.207716E+00_JPRB, 0.196249E+00_JPRB &
+  &, 0.185150E+00_JPRB, 0.174462E+00_JPRB, 0.164145E+00_JPRB, 0.154238E+00_JPRB &
+  &, 0.144724E+00_JPRB, 0.135596E+00_JPRB, 0.126859E+00_JPRB &
+  &, 0.118517E+00_JPRB, 0.110571E+00_JPRB, 0.103002E+00_JPRB, 0.957907E-01_JPRB &
+  &, 0.889780E-01_JPRB, 0.825040E-01_JPRB, 0.763893E-01_JPRB &
+  &, 0.706185E-01_JPRB, 0.651910E-01_JPRB, 0.600855E-01_JPRB, 0.552769E-01_JPRB &
+  &, 0.507955E-01_JPRB, 0.465920E-01_JPRB, 0.426729E-01_JPRB &
+  &, 0.390230E-01_JPRB, 0.356242E-01_JPRB, 0.324557E-01_JPRB, 0.295386E-01_JPRB &
+  &, 0.268260E-01_JPRB, 0.243361E-01_JPRB, 0.220399E-01_JPRB &
+  &, 0.199294E-01_JPRB, 0.179954E-01_JPRB, 0.162015E-01_JPRB, 0.145852E-01_JPRB &
+  &, 0.131077E-01_JPRB, 0.117529E-01_JPRB, 0.105031E-01_JPRB &
+  &, 0.939453E-02_JPRB, 0.838056E-02_JPRB, 0.746833E-02_JPRB, 0.663573E-02_JPRB &
+  &, 0.588864E-02_JPRB, 0.523309E-02_JPRB, 0.461305E-02_JPRB &
+  &, 0.409478E-02_JPRB, 0.358799E-02_JPRB, 0.315970E-02_JPRB, 0.278141E-02_JPRB &
+  &, 0.245639E-02_JPRB, 0.215338E-02_JPRB, 0.187399E-02_JPRB &
+  &, 0.161986E-02_JPRB, 0.142904E-02_JPRB, 0.123108E-02_JPRB, 0.106351E-02_JPRB &
+  &, 0.928102E-03_JPRB, 0.787781E-03_JPRB, 0.682006E-03_JPRB &
+  &, 0.572471E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART43',1,ZHOOK_HANDLE)
+END SUBROUTINE PART43
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART44
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART44',0,ZHOOK_HANDLE)
+
+XCW( 302, :) = (/ &
+  &  0.945605E+00_JPRB, 0.931316E+00_JPRB, 0.916771E+00_JPRB, 0.901982E+00_JPRB &
+  &, 0.886957E+00_JPRB, 0.871707E+00_JPRB, 0.856242E+00_JPRB &
+  &, 0.840575E+00_JPRB, 0.824716E+00_JPRB, 0.808677E+00_JPRB, 0.792469E+00_JPRB &
+  &, 0.776105E+00_JPRB, 0.759599E+00_JPRB, 0.742960E+00_JPRB &
+  &, 0.726204E+00_JPRB, 0.709344E+00_JPRB, 0.692393E+00_JPRB, 0.675366E+00_JPRB &
+  &, 0.658278E+00_JPRB, 0.641140E+00_JPRB, 0.623975E+00_JPRB &
+  &, 0.606794E+00_JPRB, 0.589612E+00_JPRB, 0.572444E+00_JPRB, 0.555312E+00_JPRB &
+  &, 0.538228E+00_JPRB, 0.521211E+00_JPRB, 0.504280E+00_JPRB &
+  &, 0.487450E+00_JPRB, 0.470735E+00_JPRB, 0.454160E+00_JPRB, 0.437738E+00_JPRB &
+  &, 0.421488E+00_JPRB, 0.405426E+00_JPRB, 0.389567E+00_JPRB &
+  &, 0.373931E+00_JPRB, 0.358534E+00_JPRB, 0.343389E+00_JPRB, 0.328515E+00_JPRB &
+  &, 0.313925E+00_JPRB, 0.299629E+00_JPRB, 0.285650E+00_JPRB &
+  &, 0.271989E+00_JPRB, 0.258670E+00_JPRB, 0.245702E+00_JPRB, 0.233075E+00_JPRB &
+  &, 0.220818E+00_JPRB, 0.208943E+00_JPRB, 0.197442E+00_JPRB &
+  &, 0.186320E+00_JPRB, 0.175592E+00_JPRB, 0.165247E+00_JPRB, 0.155296E+00_JPRB &
+  &, 0.145750E+00_JPRB, 0.136587E+00_JPRB, 0.127828E+00_JPRB &
+  &, 0.119447E+00_JPRB, 0.111459E+00_JPRB, 0.103846E+00_JPRB, 0.966206E-01_JPRB &
+  &, 0.897589E-01_JPRB, 0.832505E-01_JPRB, 0.770994E-01_JPRB &
+  &, 0.712899E-01_JPRB, 0.658217E-01_JPRB, 0.606921E-01_JPRB, 0.558580E-01_JPRB &
+  &, 0.513299E-01_JPRB, 0.470975E-01_JPRB, 0.431479E-01_JPRB &
+  &, 0.394659E-01_JPRB, 0.360333E-01_JPRB, 0.328514E-01_JPRB, 0.298976E-01_JPRB &
+  &, 0.271695E-01_JPRB, 0.246632E-01_JPRB, 0.223498E-01_JPRB &
+  &, 0.201970E-01_JPRB, 0.182435E-01_JPRB, 0.164545E-01_JPRB, 0.147916E-01_JPRB &
+  &, 0.132918E-01_JPRB, 0.119137E-01_JPRB, 0.106670E-01_JPRB &
+  &, 0.953377E-02_JPRB, 0.852244E-02_JPRB, 0.758396E-02_JPRB, 0.675352E-02_JPRB &
+  &, 0.600861E-02_JPRB, 0.532472E-02_JPRB, 0.470636E-02_JPRB &
+  &, 0.415811E-02_JPRB, 0.365246E-02_JPRB, 0.322532E-02_JPRB, 0.284819E-02_JPRB &
+  &, 0.249037E-02_JPRB, 0.218795E-02_JPRB, 0.190916E-02_JPRB &
+  &, 0.165564E-02_JPRB, 0.146543E-02_JPRB, 0.126809E-02_JPRB, 0.110114E-02_JPRB &
+  &, 0.928102E-03_JPRB, 0.826670E-03_JPRB, 0.721536E-03_JPRB &
+  &, 0.612648E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 303, :) = (/ &
+  &  0.945881E+00_JPRB, 0.931659E+00_JPRB, 0.917178E+00_JPRB, 0.902451E+00_JPRB &
+  &, 0.887488E+00_JPRB, 0.872297E+00_JPRB, 0.856891E+00_JPRB &
+  &, 0.841280E+00_JPRB, 0.825474E+00_JPRB, 0.809489E+00_JPRB, 0.793332E+00_JPRB &
+  &, 0.777017E+00_JPRB, 0.760557E+00_JPRB, 0.743964E+00_JPRB &
+  &, 0.727251E+00_JPRB, 0.710431E+00_JPRB, 0.693521E+00_JPRB, 0.676531E+00_JPRB &
+  &, 0.659477E+00_JPRB, 0.642375E+00_JPRB, 0.625236E+00_JPRB &
+  &, 0.608083E+00_JPRB, 0.590928E+00_JPRB, 0.573784E+00_JPRB, 0.556673E+00_JPRB &
+  &, 0.539610E+00_JPRB, 0.522608E+00_JPRB, 0.505692E+00_JPRB &
+  &, 0.488873E+00_JPRB, 0.472169E+00_JPRB, 0.455601E+00_JPRB, 0.439182E+00_JPRB &
+  &, 0.422934E+00_JPRB, 0.406873E+00_JPRB, 0.391010E+00_JPRB &
+  &, 0.375373E+00_JPRB, 0.359965E+00_JPRB, 0.344816E+00_JPRB, 0.329929E+00_JPRB &
+  &, 0.315323E+00_JPRB, 0.301020E+00_JPRB, 0.287022E+00_JPRB &
+  &, 0.273341E+00_JPRB, 0.259998E+00_JPRB, 0.247006E+00_JPRB, 0.234362E+00_JPRB &
+  &, 0.222077E+00_JPRB, 0.210170E+00_JPRB, 0.198635E+00_JPRB &
+  &, 0.187489E+00_JPRB, 0.176723E+00_JPRB, 0.166350E+00_JPRB, 0.156369E+00_JPRB &
+  &, 0.146790E+00_JPRB, 0.137593E+00_JPRB, 0.128782E+00_JPRB &
+  &, 0.120377E+00_JPRB, 0.112347E+00_JPRB, 0.104706E+00_JPRB, 0.974338E-01_JPRB &
+  &, 0.905398E-01_JPRB, 0.839969E-01_JPRB, 0.778094E-01_JPRB &
+  &, 0.719795E-01_JPRB, 0.664709E-01_JPRB, 0.612988E-01_JPRB, 0.564392E-01_JPRB &
+  &, 0.518841E-01_JPRB, 0.476231E-01_JPRB, 0.436228E-01_JPRB &
+  &, 0.399087E-01_JPRB, 0.364640E-01_JPRB, 0.332471E-01_JPRB, 0.302791E-01_JPRB &
+  &, 0.275359E-01_JPRB, 0.249904E-01_JPRB, 0.226359E-01_JPRB &
+  &, 0.204888E-01_JPRB, 0.184915E-01_JPRB, 0.166822E-01_JPRB, 0.150238E-01_JPRB &
+  &, 0.135022E-01_JPRB, 0.121014E-01_JPRB, 0.108583E-01_JPRB &
+  &, 0.970086E-02_JPRB, 0.866431E-02_JPRB, 0.772850E-02_JPRB, 0.687131E-02_JPRB &
+  &, 0.609859E-02_JPRB, 0.541636E-02_JPRB, 0.479966E-02_JPRB &
+  &, 0.425310E-02_JPRB, 0.374916E-02_JPRB, 0.329094E-02_JPRB, 0.288158E-02_JPRB &
+  &, 0.255832E-02_JPRB, 0.222252E-02_JPRB, 0.194433E-02_JPRB &
+  &, 0.169141E-02_JPRB, 0.146543E-02_JPRB, 0.130509E-02_JPRB, 0.110114E-02_JPRB &
+  &, 0.966356E-03_JPRB, 0.826670E-03_JPRB, 0.721536E-03_JPRB &
+  &, 0.612648E-03_JPRB, 0.540779E-03_JPRB, 0.466366E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 304, :) = (/ &
+  &  0.946157E+00_JPRB, 0.932000E+00_JPRB, 0.917584E+00_JPRB, 0.902921E+00_JPRB &
+  &, 0.888016E+00_JPRB, 0.872886E+00_JPRB, 0.857538E+00_JPRB &
+  &, 0.841983E+00_JPRB, 0.826233E+00_JPRB, 0.810299E+00_JPRB, 0.794194E+00_JPRB &
+  &, 0.777927E+00_JPRB, 0.761514E+00_JPRB, 0.744967E+00_JPRB &
+  &, 0.728297E+00_JPRB, 0.711520E+00_JPRB, 0.694647E+00_JPRB, 0.677694E+00_JPRB &
+  &, 0.660675E+00_JPRB, 0.643605E+00_JPRB, 0.626501E+00_JPRB &
+  &, 0.609373E+00_JPRB, 0.592244E+00_JPRB, 0.575127E+00_JPRB, 0.558037E+00_JPRB &
+  &, 0.540989E+00_JPRB, 0.524009E+00_JPRB, 0.507104E+00_JPRB &
+  &, 0.490296E+00_JPRB, 0.473604E+00_JPRB, 0.457043E+00_JPRB, 0.440630E+00_JPRB &
+  &, 0.424384E+00_JPRB, 0.408319E+00_JPRB, 0.392457E+00_JPRB &
+  &, 0.376815E+00_JPRB, 0.361405E+00_JPRB, 0.346234E+00_JPRB, 0.331342E+00_JPRB &
+  &, 0.316721E+00_JPRB, 0.302400E+00_JPRB, 0.288383E+00_JPRB &
+  &, 0.274692E+00_JPRB, 0.261326E+00_JPRB, 0.248309E+00_JPRB, 0.235638E+00_JPRB &
+  &, 0.223336E+00_JPRB, 0.211397E+00_JPRB, 0.199828E+00_JPRB &
+  &, 0.188659E+00_JPRB, 0.177854E+00_JPRB, 0.167453E+00_JPRB, 0.157442E+00_JPRB &
+  &, 0.147816E+00_JPRB, 0.138599E+00_JPRB, 0.129751E+00_JPRB &
+  &, 0.121307E+00_JPRB, 0.113251E+00_JPRB, 0.105566E+00_JPRB, 0.982637E-01_JPRB &
+  &, 0.913206E-01_JPRB, 0.847608E-01_JPRB, 0.785371E-01_JPRB &
+  &, 0.726509E-01_JPRB, 0.671201E-01_JPRB, 0.619054E-01_JPRB, 0.570203E-01_JPRB &
+  &, 0.524185E-01_JPRB, 0.481286E-01_JPRB, 0.441184E-01_JPRB &
+  &, 0.403727E-01_JPRB, 0.368946E-01_JPRB, 0.336647E-01_JPRB, 0.306605E-01_JPRB &
+  &, 0.278794E-01_JPRB, 0.253175E-01_JPRB, 0.229459E-01_JPRB &
+  &, 0.207564E-01_JPRB, 0.187644E-01_JPRB, 0.169099E-01_JPRB, 0.152302E-01_JPRB &
+  &, 0.137126E-01_JPRB, 0.122891E-01_JPRB, 0.110223E-01_JPRB &
+  &, 0.986794E-02_JPRB, 0.880618E-02_JPRB, 0.784413E-02_JPRB, 0.698910E-02_JPRB &
+  &, 0.621856E-02_JPRB, 0.550799E-02_JPRB, 0.489297E-02_JPRB &
+  &, 0.431643E-02_JPRB, 0.381363E-02_JPRB, 0.335656E-02_JPRB, 0.294837E-02_JPRB &
+  &, 0.259230E-02_JPRB, 0.229167E-02_JPRB, 0.197950E-02_JPRB &
+  &, 0.172719E-02_JPRB, 0.150181E-02_JPRB, 0.130509E-02_JPRB, 0.113876E-02_JPRB &
+  &, 0.100461E-02_JPRB, 0.865559E-03_JPRB, 0.721536E-03_JPRB &
+  &, 0.652824E-03_JPRB, 0.540779E-03_JPRB, 0.466366E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 305, :) = (/ &
+  &  0.946432E+00_JPRB, 0.932342E+00_JPRB, 0.917990E+00_JPRB, 0.903389E+00_JPRB &
+  &, 0.888547E+00_JPRB, 0.873476E+00_JPRB, 0.858185E+00_JPRB &
+  &, 0.842686E+00_JPRB, 0.826990E+00_JPRB, 0.811110E+00_JPRB, 0.795054E+00_JPRB &
+  &, 0.778838E+00_JPRB, 0.762472E+00_JPRB, 0.745969E+00_JPRB &
+  &, 0.729344E+00_JPRB, 0.712607E+00_JPRB, 0.695774E+00_JPRB, 0.678858E+00_JPRB &
+  &, 0.661874E+00_JPRB, 0.644836E+00_JPRB, 0.627762E+00_JPRB &
+  &, 0.610659E+00_JPRB, 0.593560E+00_JPRB, 0.576466E+00_JPRB, 0.559397E+00_JPRB &
+  &, 0.542371E+00_JPRB, 0.525406E+00_JPRB, 0.508516E+00_JPRB &
+  &, 0.491720E+00_JPRB, 0.475038E+00_JPRB, 0.458484E+00_JPRB, 0.442078E+00_JPRB &
+  &, 0.425834E+00_JPRB, 0.409770E+00_JPRB, 0.393908E+00_JPRB &
+  &, 0.378257E+00_JPRB, 0.362835E+00_JPRB, 0.347671E+00_JPRB, 0.332756E+00_JPRB &
+  &, 0.318129E+00_JPRB, 0.303792E+00_JPRB, 0.289755E+00_JPRB &
+  &, 0.276043E+00_JPRB, 0.262666E+00_JPRB, 0.249612E+00_JPRB, 0.236926E+00_JPRB &
+  &, 0.224594E+00_JPRB, 0.212624E+00_JPRB, 0.201033E+00_JPRB &
+  &, 0.189828E+00_JPRB, 0.178998E+00_JPRB, 0.168569E+00_JPRB, 0.158514E+00_JPRB &
+  &, 0.148871E+00_JPRB, 0.139605E+00_JPRB, 0.130736E+00_JPRB &
+  &, 0.122252E+00_JPRB, 0.114154E+00_JPRB, 0.106426E+00_JPRB, 0.990935E-01_JPRB &
+  &, 0.921185E-01_JPRB, 0.855072E-01_JPRB, 0.792649E-01_JPRB &
+  &, 0.733405E-01_JPRB, 0.677693E-01_JPRB, 0.625310E-01_JPRB, 0.576015E-01_JPRB &
+  &, 0.529924E-01_JPRB, 0.486542E-01_JPRB, 0.446140E-01_JPRB &
+  &, 0.408366E-01_JPRB, 0.373252E-01_JPRB, 0.340604E-01_JPRB, 0.310420E-01_JPRB &
+  &, 0.282229E-01_JPRB, 0.256447E-01_JPRB, 0.232558E-01_JPRB &
+  &, 0.210482E-01_JPRB, 0.190125E-01_JPRB, 0.171628E-01_JPRB, 0.154623E-01_JPRB &
+  &, 0.138967E-01_JPRB, 0.124767E-01_JPRB, 0.111862E-01_JPRB &
+  &, 0.100072E-01_JPRB, 0.894806E-02_JPRB, 0.798868E-02_JPRB, 0.710689E-02_JPRB &
+  &, 0.630854E-02_JPRB, 0.559962E-02_JPRB, 0.498627E-02_JPRB &
+  &, 0.441143E-02_JPRB, 0.387810E-02_JPRB, 0.342217E-02_JPRB, 0.301515E-02_JPRB &
+  &, 0.266025E-02_JPRB, 0.232624E-02_JPRB, 0.204984E-02_JPRB &
+  &, 0.176296E-02_JPRB, 0.153820E-02_JPRB, 0.134209E-02_JPRB, 0.117639E-02_JPRB &
+  &, 0.100461E-02_JPRB, 0.865559E-03_JPRB, 0.761066E-03_JPRB &
+  &, 0.652824E-03_JPRB, 0.581608E-03_JPRB, 0.466366E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.314496E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 306, :) = (/ &
+  &  0.946710E+00_JPRB, 0.932683E+00_JPRB, 0.918395E+00_JPRB, 0.903856E+00_JPRB &
+  &, 0.889076E+00_JPRB, 0.874064E+00_JPRB, 0.858831E+00_JPRB &
+  &, 0.843388E+00_JPRB, 0.827747E+00_JPRB, 0.811920E+00_JPRB, 0.795916E+00_JPRB &
+  &, 0.779748E+00_JPRB, 0.763429E+00_JPRB, 0.746971E+00_JPRB &
+  &, 0.730389E+00_JPRB, 0.713694E+00_JPRB, 0.696899E+00_JPRB, 0.680021E+00_JPRB &
+  &, 0.663073E+00_JPRB, 0.646067E+00_JPRB, 0.629023E+00_JPRB &
+  &, 0.611956E+00_JPRB, 0.594876E+00_JPRB, 0.577806E+00_JPRB, 0.560762E+00_JPRB &
+  &, 0.543753E+00_JPRB, 0.526803E+00_JPRB, 0.509928E+00_JPRB &
+  &, 0.493147E+00_JPRB, 0.476473E+00_JPRB, 0.459930E+00_JPRB, 0.443526E+00_JPRB &
+  &, 0.427284E+00_JPRB, 0.411221E+00_JPRB, 0.395360E+00_JPRB &
+  &, 0.379698E+00_JPRB, 0.364275E+00_JPRB, 0.349099E+00_JPRB, 0.334180E+00_JPRB &
+  &, 0.319537E+00_JPRB, 0.305183E+00_JPRB, 0.291138E+00_JPRB &
+  &, 0.277405E+00_JPRB, 0.263994E+00_JPRB, 0.250926E+00_JPRB, 0.238214E+00_JPRB &
+  &, 0.225853E+00_JPRB, 0.213863E+00_JPRB, 0.202239E+00_JPRB &
+  &, 0.190997E+00_JPRB, 0.180141E+00_JPRB, 0.169672E+00_JPRB, 0.159601E+00_JPRB &
+  &, 0.149912E+00_JPRB, 0.140611E+00_JPRB, 0.131705E+00_JPRB &
+  &, 0.123182E+00_JPRB, 0.115058E+00_JPRB, 0.107302E+00_JPRB, 0.999234E-01_JPRB &
+  &, 0.929163E-01_JPRB, 0.862711E-01_JPRB, 0.799749E-01_JPRB &
+  &, 0.740482E-01_JPRB, 0.684371E-01_JPRB, 0.631566E-01_JPRB, 0.582020E-01_JPRB &
+  &, 0.535466E-01_JPRB, 0.491799E-01_JPRB, 0.451096E-01_JPRB &
+  &, 0.413005E-01_JPRB, 0.377559E-01_JPRB, 0.344781E-01_JPRB, 0.314234E-01_JPRB &
+  &, 0.285893E-01_JPRB, 0.259718E-01_JPRB, 0.235657E-01_JPRB &
+  &, 0.213401E-01_JPRB, 0.192854E-01_JPRB, 0.174158E-01_JPRB, 0.156945E-01_JPRB &
+  &, 0.141071E-01_JPRB, 0.126912E-01_JPRB, 0.113775E-01_JPRB &
+  &, 0.101743E-01_JPRB, 0.908993E-02_JPRB, 0.813322E-02_JPRB, 0.722468E-02_JPRB &
+  &, 0.642851E-02_JPRB, 0.572180E-02_JPRB, 0.504847E-02_JPRB &
+  &, 0.447476E-02_JPRB, 0.397480E-02_JPRB, 0.348779E-02_JPRB, 0.308193E-02_JPRB &
+  &, 0.269423E-02_JPRB, 0.236081E-02_JPRB, 0.208501E-02_JPRB &
+  &, 0.179874E-02_JPRB, 0.157458E-02_JPRB, 0.137909E-02_JPRB, 0.121401E-02_JPRB &
+  &, 0.104286E-02_JPRB, 0.904448E-03_JPRB, 0.761066E-03_JPRB &
+  &, 0.652824E-03_JPRB, 0.581608E-03_JPRB, 0.507854E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 307, :) = (/ &
+  &  0.946985E+00_JPRB, 0.933024E+00_JPRB, 0.918799E+00_JPRB, 0.904324E+00_JPRB &
+  &, 0.889604E+00_JPRB, 0.874651E+00_JPRB, 0.859476E+00_JPRB &
+  &, 0.844090E+00_JPRB, 0.828504E+00_JPRB, 0.812728E+00_JPRB, 0.796775E+00_JPRB &
+  &, 0.780656E+00_JPRB, 0.764385E+00_JPRB, 0.747974E+00_JPRB &
+  &, 0.731434E+00_JPRB, 0.714779E+00_JPRB, 0.698025E+00_JPRB, 0.681184E+00_JPRB &
+  &, 0.664270E+00_JPRB, 0.647298E+00_JPRB, 0.630285E+00_JPRB &
+  &, 0.613246E+00_JPRB, 0.596195E+00_JPRB, 0.579149E+00_JPRB, 0.562122E+00_JPRB &
+  &, 0.545135E+00_JPRB, 0.528203E+00_JPRB, 0.511344E+00_JPRB &
+  &, 0.494574E+00_JPRB, 0.477911E+00_JPRB, 0.461371E+00_JPRB, 0.444975E+00_JPRB &
+  &, 0.428738E+00_JPRB, 0.412677E+00_JPRB, 0.396811E+00_JPRB &
+  &, 0.381149E+00_JPRB, 0.365725E+00_JPRB, 0.350536E+00_JPRB, 0.335603E+00_JPRB &
+  &, 0.320945E+00_JPRB, 0.306584E+00_JPRB, 0.292510E+00_JPRB &
+  &, 0.278756E+00_JPRB, 0.265333E+00_JPRB, 0.252241E+00_JPRB, 0.239502E+00_JPRB &
+  &, 0.227123E+00_JPRB, 0.215103E+00_JPRB, 0.203458E+00_JPRB &
+  &, 0.192180E+00_JPRB, 0.181299E+00_JPRB, 0.170802E+00_JPRB, 0.160688E+00_JPRB &
+  &, 0.150967E+00_JPRB, 0.141632E+00_JPRB, 0.132689E+00_JPRB &
+  &, 0.124143E+00_JPRB, 0.115962E+00_JPRB, 0.108178E+00_JPRB, 0.100770E+00_JPRB &
+  &, 0.937142E-01_JPRB, 0.870349E-01_JPRB, 0.807204E-01_JPRB &
+  &, 0.747378E-01_JPRB, 0.691049E-01_JPRB, 0.637822E-01_JPRB, 0.587831E-01_JPRB &
+  &, 0.541008E-01_JPRB, 0.497056E-01_JPRB, 0.456052E-01_JPRB &
+  &, 0.417856E-01_JPRB, 0.382081E-01_JPRB, 0.348957E-01_JPRB, 0.318049E-01_JPRB &
+  &, 0.289557E-01_JPRB, 0.262990E-01_JPRB, 0.238757E-01_JPRB &
+  &, 0.216320E-01_JPRB, 0.195583E-01_JPRB, 0.176435E-01_JPRB, 0.159267E-01_JPRB &
+  &, 0.143175E-01_JPRB, 0.128789E-01_JPRB, 0.115415E-01_JPRB &
+  &, 0.103413E-01_JPRB, 0.926018E-02_JPRB, 0.824885E-02_JPRB, 0.737192E-02_JPRB &
+  &, 0.654848E-02_JPRB, 0.581343E-02_JPRB, 0.514178E-02_JPRB &
+  &, 0.456975E-02_JPRB, 0.403927E-02_JPRB, 0.355341E-02_JPRB, 0.314871E-02_JPRB &
+  &, 0.276219E-02_JPRB, 0.242995E-02_JPRB, 0.212018E-02_JPRB &
+  &, 0.187028E-02_JPRB, 0.161097E-02_JPRB, 0.141610E-02_JPRB, 0.121401E-02_JPRB &
+  &, 0.108112E-02_JPRB, 0.904448E-03_JPRB, 0.800596E-03_JPRB &
+  &, 0.693000E-03_JPRB, 0.581608E-03_JPRB, 0.507854E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 308, :) = (/ &
+  &  0.947258E+00_JPRB, 0.933364E+00_JPRB, 0.919204E+00_JPRB, 0.904791E+00_JPRB &
+  &, 0.890132E+00_JPRB, 0.875239E+00_JPRB, 0.860122E+00_JPRB &
+  &, 0.844791E+00_JPRB, 0.829259E+00_JPRB, 0.813537E+00_JPRB, 0.797634E+00_JPRB &
+  &, 0.781566E+00_JPRB, 0.765342E+00_JPRB, 0.748974E+00_JPRB &
+  &, 0.732479E+00_JPRB, 0.715863E+00_JPRB, 0.699151E+00_JPRB, 0.682346E+00_JPRB &
+  &, 0.665469E+00_JPRB, 0.648529E+00_JPRB, 0.631546E+00_JPRB &
+  &, 0.614535E+00_JPRB, 0.597511E+00_JPRB, 0.580489E+00_JPRB, 0.563486E+00_JPRB &
+  &, 0.546517E+00_JPRB, 0.529604E+00_JPRB, 0.512760E+00_JPRB &
+  &, 0.496001E+00_JPRB, 0.479349E+00_JPRB, 0.462817E+00_JPRB, 0.446427E+00_JPRB &
+  &, 0.430192E+00_JPRB, 0.414133E+00_JPRB, 0.398263E+00_JPRB &
+  &, 0.382600E+00_JPRB, 0.367165E+00_JPRB, 0.351964E+00_JPRB, 0.337027E+00_JPRB &
+  &, 0.322364E+00_JPRB, 0.307975E+00_JPRB, 0.293893E+00_JPRB &
+  &, 0.280129E+00_JPRB, 0.266673E+00_JPRB, 0.253568E+00_JPRB, 0.240801E+00_JPRB &
+  &, 0.228394E+00_JPRB, 0.216342E+00_JPRB, 0.204663E+00_JPRB &
+  &, 0.193363E+00_JPRB, 0.182456E+00_JPRB, 0.171919E+00_JPRB, 0.161775E+00_JPRB &
+  &, 0.152022E+00_JPRB, 0.142652E+00_JPRB, 0.133673E+00_JPRB &
+  &, 0.125088E+00_JPRB, 0.116882E+00_JPRB, 0.109054E+00_JPRB, 0.101600E+00_JPRB &
+  &, 0.945290E-01_JPRB, 0.878161E-01_JPRB, 0.814482E-01_JPRB &
+  &, 0.754455E-01_JPRB, 0.697541E-01_JPRB, 0.644078E-01_JPRB, 0.593836E-01_JPRB &
+  &, 0.546747E-01_JPRB, 0.502514E-01_JPRB, 0.461215E-01_JPRB &
+  &, 0.422495E-01_JPRB, 0.386602E-01_JPRB, 0.353134E-01_JPRB, 0.321863E-01_JPRB &
+  &, 0.293221E-01_JPRB, 0.266495E-01_JPRB, 0.241856E-01_JPRB &
+  &, 0.219238E-01_JPRB, 0.198311E-01_JPRB, 0.178965E-01_JPRB, 0.161588E-01_JPRB &
+  &, 0.145279E-01_JPRB, 0.130665E-01_JPRB, 0.117327E-01_JPRB &
+  &, 0.105084E-01_JPRB, 0.940205E-02_JPRB, 0.839339E-02_JPRB, 0.748971E-02_JPRB &
+  &, 0.666846E-02_JPRB, 0.590507E-02_JPRB, 0.526619E-02_JPRB &
+  &, 0.466475E-02_JPRB, 0.410374E-02_JPRB, 0.361903E-02_JPRB, 0.318210E-02_JPRB &
+  &, 0.283014E-02_JPRB, 0.246452E-02_JPRB, 0.215535E-02_JPRB &
+  &, 0.190606E-02_JPRB, 0.164735E-02_JPRB, 0.145310E-02_JPRB, 0.125164E-02_JPRB &
+  &, 0.108112E-02_JPRB, 0.943337E-03_JPRB, 0.800596E-03_JPRB &
+  &, 0.693000E-03_JPRB, 0.622438E-03_JPRB, 0.507854E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART44',1,ZHOOK_HANDLE)
+END SUBROUTINE PART44
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART45
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART45',0,ZHOOK_HANDLE)
+
+XCW( 309, :) = (/ &
+  &  0.947533E+00_JPRB, 0.933703E+00_JPRB, 0.919608E+00_JPRB, 0.905257E+00_JPRB &
+  &, 0.890659E+00_JPRB, 0.875825E+00_JPRB, 0.860766E+00_JPRB &
+  &, 0.845492E+00_JPRB, 0.830014E+00_JPRB, 0.814344E+00_JPRB, 0.798493E+00_JPRB &
+  &, 0.782472E+00_JPRB, 0.766296E+00_JPRB, 0.749975E+00_JPRB &
+  &, 0.733522E+00_JPRB, 0.716950E+00_JPRB, 0.700276E+00_JPRB, 0.683509E+00_JPRB &
+  &, 0.666666E+00_JPRB, 0.649760E+00_JPRB, 0.632811E+00_JPRB &
+  &, 0.615825E+00_JPRB, 0.598827E+00_JPRB, 0.581832E+00_JPRB, 0.564850E+00_JPRB &
+  &, 0.547903E+00_JPRB, 0.531005E+00_JPRB, 0.514176E+00_JPRB &
+  &, 0.497432E+00_JPRB, 0.480788E+00_JPRB, 0.464266E+00_JPRB, 0.447879E+00_JPRB &
+  &, 0.431651E+00_JPRB, 0.415588E+00_JPRB, 0.399719E+00_JPRB &
+  &, 0.384051E+00_JPRB, 0.368614E+00_JPRB, 0.353392E+00_JPRB, 0.338461E+00_JPRB &
+  &, 0.323772E+00_JPRB, 0.309377E+00_JPRB, 0.295276E+00_JPRB &
+  &, 0.281491E+00_JPRB, 0.268023E+00_JPRB, 0.254894E+00_JPRB, 0.242101E+00_JPRB &
+  &, 0.229665E+00_JPRB, 0.217594E+00_JPRB, 0.205882E+00_JPRB &
+  &, 0.194558E+00_JPRB, 0.183614E+00_JPRB, 0.173049E+00_JPRB, 0.162862E+00_JPRB &
+  &, 0.153076E+00_JPRB, 0.143673E+00_JPRB, 0.134673E+00_JPRB &
+  &, 0.126049E+00_JPRB, 0.117802E+00_JPRB, 0.109946E+00_JPRB, 0.102463E+00_JPRB &
+  &, 0.953438E-01_JPRB, 0.885799E-01_JPRB, 0.821937E-01_JPRB &
+  &, 0.761351E-01_JPRB, 0.704404E-01_JPRB, 0.650523E-01_JPRB, 0.599842E-01_JPRB &
+  &, 0.552487E-01_JPRB, 0.507771E-01_JPRB, 0.466171E-01_JPRB &
+  &, 0.427345E-01_JPRB, 0.390909E-01_JPRB, 0.357310E-01_JPRB, 0.325902E-01_JPRB &
+  &, 0.296885E-01_JPRB, 0.269767E-01_JPRB, 0.244956E-01_JPRB &
+  &, 0.222157E-01_JPRB, 0.201040E-01_JPRB, 0.181495E-01_JPRB, 0.163910E-01_JPRB &
+  &, 0.147646E-01_JPRB, 0.132542E-01_JPRB, 0.118967E-01_JPRB &
+  &, 0.106755E-01_JPRB, 0.954393E-02_JPRB, 0.853793E-02_JPRB, 0.760750E-02_JPRB &
+  &, 0.678843E-02_JPRB, 0.602724E-02_JPRB, 0.535949E-02_JPRB &
+  &, 0.472808E-02_JPRB, 0.420044E-02_JPRB, 0.368465E-02_JPRB, 0.324888E-02_JPRB &
+  &, 0.286412E-02_JPRB, 0.253366E-02_JPRB, 0.222569E-02_JPRB &
+  &, 0.194183E-02_JPRB, 0.168374E-02_JPRB, 0.149010E-02_JPRB, 0.128926E-02_JPRB &
+  &, 0.111937E-02_JPRB, 0.982226E-03_JPRB, 0.840126E-03_JPRB &
+  &, 0.733177E-03_JPRB, 0.622438E-03_JPRB, 0.549341E-03_JPRB, 0.473676E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 310, :) = (/ &
+  &  0.947808E+00_JPRB, 0.934044E+00_JPRB, 0.920011E+00_JPRB, 0.905723E+00_JPRB &
+  &, 0.891186E+00_JPRB, 0.876411E+00_JPRB, 0.861410E+00_JPRB &
+  &, 0.846191E+00_JPRB, 0.830768E+00_JPRB, 0.815151E+00_JPRB, 0.799351E+00_JPRB &
+  &, 0.783379E+00_JPRB, 0.767250E+00_JPRB, 0.750974E+00_JPRB &
+  &, 0.734566E+00_JPRB, 0.718036E+00_JPRB, 0.701401E+00_JPRB, 0.684671E+00_JPRB &
+  &, 0.667863E+00_JPRB, 0.650991E+00_JPRB, 0.634072E+00_JPRB &
+  &, 0.617118E+00_JPRB, 0.600146E+00_JPRB, 0.583171E+00_JPRB, 0.566215E+00_JPRB &
+  &, 0.549285E+00_JPRB, 0.532405E+00_JPRB, 0.515592E+00_JPRB &
+  &, 0.498859E+00_JPRB, 0.482226E+00_JPRB, 0.465712E+00_JPRB, 0.449336E+00_JPRB &
+  &, 0.433105E+00_JPRB, 0.417048E+00_JPRB, 0.401175E+00_JPRB &
+  &, 0.385502E+00_JPRB, 0.370054E+00_JPRB, 0.354849E+00_JPRB, 0.339884E+00_JPRB &
+  &, 0.325190E+00_JPRB, 0.310778E+00_JPRB, 0.296670E+00_JPRB &
+  &, 0.282854E+00_JPRB, 0.269374E+00_JPRB, 0.256220E+00_JPRB, 0.243401E+00_JPRB &
+  &, 0.230948E+00_JPRB, 0.218846E+00_JPRB, 0.207113E+00_JPRB &
+  &, 0.195754E+00_JPRB, 0.184771E+00_JPRB, 0.174179E+00_JPRB, 0.163963E+00_JPRB &
+  &, 0.154146E+00_JPRB, 0.144709E+00_JPRB, 0.135657E+00_JPRB &
+  &, 0.126994E+00_JPRB, 0.118722E+00_JPRB, 0.110822E+00_JPRB, 0.103309E+00_JPRB &
+  &, 0.961586E-01_JPRB, 0.893611E-01_JPRB, 0.829392E-01_JPRB &
+  &, 0.768610E-01_JPRB, 0.711081E-01_JPRB, 0.656969E-01_JPRB, 0.606040E-01_JPRB &
+  &, 0.558226E-01_JPRB, 0.513230E-01_JPRB, 0.471333E-01_JPRB &
+  &, 0.431985E-01_JPRB, 0.395431E-01_JPRB, 0.361487E-01_JPRB, 0.329941E-01_JPRB &
+  &, 0.300549E-01_JPRB, 0.273272E-01_JPRB, 0.248294E-01_JPRB &
+  &, 0.225075E-01_JPRB, 0.203769E-01_JPRB, 0.184278E-01_JPRB, 0.166232E-01_JPRB &
+  &, 0.149750E-01_JPRB, 0.134687E-01_JPRB, 0.120880E-01_JPRB &
+  &, 0.108426E-01_JPRB, 0.971418E-02_JPRB, 0.868247E-02_JPRB, 0.772529E-02_JPRB &
+  &, 0.690840E-02_JPRB, 0.611888E-02_JPRB, 0.545280E-02_JPRB &
+  &, 0.482307E-02_JPRB, 0.426491E-02_JPRB, 0.378308E-02_JPRB, 0.331566E-02_JPRB &
+  &, 0.293208E-02_JPRB, 0.256823E-02_JPRB, 0.226086E-02_JPRB &
+  &, 0.197761E-02_JPRB, 0.172013E-02_JPRB, 0.149010E-02_JPRB, 0.132689E-02_JPRB &
+  &, 0.115763E-02_JPRB, 0.982226E-03_JPRB, 0.840126E-03_JPRB &
+  &, 0.733177E-03_JPRB, 0.622438E-03_JPRB, 0.549341E-03_JPRB, 0.473676E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.357996E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 311, :) = (/ &
+  &  0.948082E+00_JPRB, 0.934384E+00_JPRB, 0.920414E+00_JPRB, 0.906188E+00_JPRB &
+  &, 0.891711E+00_JPRB, 0.876997E+00_JPRB, 0.862053E+00_JPRB &
+  &, 0.846891E+00_JPRB, 0.831523E+00_JPRB, 0.815957E+00_JPRB, 0.800209E+00_JPRB &
+  &, 0.784286E+00_JPRB, 0.768204E+00_JPRB, 0.751975E+00_JPRB &
+  &, 0.735608E+00_JPRB, 0.719120E+00_JPRB, 0.702524E+00_JPRB, 0.685833E+00_JPRB &
+  &, 0.669060E+00_JPRB, 0.652222E+00_JPRB, 0.635333E+00_JPRB &
+  &, 0.618408E+00_JPRB, 0.601462E+00_JPRB, 0.584515E+00_JPRB, 0.567579E+00_JPRB &
+  &, 0.550671E+00_JPRB, 0.533810E+00_JPRB, 0.517011E+00_JPRB &
+  &, 0.500290E+00_JPRB, 0.483669E+00_JPRB, 0.467162E+00_JPRB, 0.450788E+00_JPRB &
+  &, 0.434564E+00_JPRB, 0.418508E+00_JPRB, 0.402635E+00_JPRB &
+  &, 0.386963E+00_JPRB, 0.371513E+00_JPRB, 0.356286E+00_JPRB, 0.341318E+00_JPRB &
+  &, 0.326619E+00_JPRB, 0.312190E+00_JPRB, 0.298052E+00_JPRB &
+  &, 0.284227E+00_JPRB, 0.270725E+00_JPRB, 0.257547E+00_JPRB, 0.244712E+00_JPRB &
+  &, 0.232219E+00_JPRB, 0.220098E+00_JPRB, 0.208332E+00_JPRB &
+  &, 0.196950E+00_JPRB, 0.185942E+00_JPRB, 0.175309E+00_JPRB, 0.165063E+00_JPRB &
+  &, 0.155215E+00_JPRB, 0.145744E+00_JPRB, 0.136656E+00_JPRB &
+  &, 0.127970E+00_JPRB, 0.119657E+00_JPRB, 0.111715E+00_JPRB, 0.104172E+00_JPRB &
+  &, 0.969735E-01_JPRB, 0.901597E-01_JPRB, 0.836847E-01_JPRB &
+  &, 0.775687E-01_JPRB, 0.717945E-01_JPRB, 0.663414E-01_JPRB, 0.612046E-01_JPRB &
+  &, 0.563966E-01_JPRB, 0.518689E-01_JPRB, 0.476496E-01_JPRB &
+  &, 0.437046E-01_JPRB, 0.400168E-01_JPRB, 0.365664E-01_JPRB, 0.333755E-01_JPRB &
+  &, 0.304213E-01_JPRB, 0.276777E-01_JPRB, 0.251393E-01_JPRB &
+  &, 0.227994E-01_JPRB, 0.206498E-01_JPRB, 0.186808E-01_JPRB, 0.168554E-01_JPRB &
+  &, 0.151854E-01_JPRB, 0.136832E-01_JPRB, 0.122793E-01_JPRB &
+  &, 0.110097E-01_JPRB, 0.985605E-02_JPRB, 0.882701E-02_JPRB, 0.787253E-02_JPRB &
+  &, 0.702837E-02_JPRB, 0.624106E-02_JPRB, 0.554610E-02_JPRB &
+  &, 0.491807E-02_JPRB, 0.436161E-02_JPRB, 0.384870E-02_JPRB, 0.338244E-02_JPRB &
+  &, 0.300003E-02_JPRB, 0.263737E-02_JPRB, 0.229603E-02_JPRB &
+  &, 0.201338E-02_JPRB, 0.175651E-02_JPRB, 0.152710E-02_JPRB, 0.132689E-02_JPRB &
+  &, 0.115763E-02_JPRB, 0.102111E-02_JPRB, 0.879655E-03_JPRB &
+  &, 0.773353E-03_JPRB, 0.663267E-03_JPRB, 0.549341E-03_JPRB, 0.473676E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.357996E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 312, :) = (/ &
+  &  0.948356E+00_JPRB, 0.934722E+00_JPRB, 0.920817E+00_JPRB, 0.906653E+00_JPRB &
+  &, 0.892237E+00_JPRB, 0.877582E+00_JPRB, 0.862695E+00_JPRB &
+  &, 0.847590E+00_JPRB, 0.832276E+00_JPRB, 0.816763E+00_JPRB, 0.801066E+00_JPRB &
+  &, 0.785193E+00_JPRB, 0.769158E+00_JPRB, 0.752973E+00_JPRB &
+  &, 0.736652E+00_JPRB, 0.720204E+00_JPRB, 0.703648E+00_JPRB, 0.686994E+00_JPRB &
+  &, 0.670257E+00_JPRB, 0.653453E+00_JPRB, 0.636595E+00_JPRB &
+  &, 0.619698E+00_JPRB, 0.602781E+00_JPRB, 0.585858E+00_JPRB, 0.568943E+00_JPRB &
+  &, 0.552053E+00_JPRB, 0.535211E+00_JPRB, 0.518427E+00_JPRB &
+  &, 0.501722E+00_JPRB, 0.485111E+00_JPRB, 0.468615E+00_JPRB, 0.452244E+00_JPRB &
+  &, 0.436027E+00_JPRB, 0.419972E+00_JPRB, 0.404096E+00_JPRB &
+  &, 0.388423E+00_JPRB, 0.372963E+00_JPRB, 0.357733E+00_JPRB, 0.342751E+00_JPRB &
+  &, 0.328038E+00_JPRB, 0.313602E+00_JPRB, 0.299446E+00_JPRB &
+  &, 0.285600E+00_JPRB, 0.272076E+00_JPRB, 0.258885E+00_JPRB, 0.246024E+00_JPRB &
+  &, 0.233514E+00_JPRB, 0.221350E+00_JPRB, 0.209563E+00_JPRB &
+  &, 0.198146E+00_JPRB, 0.187113E+00_JPRB, 0.176453E+00_JPRB, 0.166178E+00_JPRB &
+  &, 0.156285E+00_JPRB, 0.146780E+00_JPRB, 0.137671E+00_JPRB &
+  &, 0.128931E+00_JPRB, 0.120593E+00_JPRB, 0.112623E+00_JPRB, 0.105019E+00_JPRB &
+  &, 0.978053E-01_JPRB, 0.909409E-01_JPRB, 0.844480E-01_JPRB &
+  &, 0.782946E-01_JPRB, 0.724808E-01_JPRB, 0.669860E-01_JPRB, 0.618245E-01_JPRB &
+  &, 0.569706E-01_JPRB, 0.524350E-01_JPRB, 0.481658E-01_JPRB &
+  &, 0.441896E-01_JPRB, 0.404689E-01_JPRB, 0.370060E-01_JPRB, 0.337794E-01_JPRB &
+  &, 0.308106E-01_JPRB, 0.280282E-01_JPRB, 0.254731E-01_JPRB &
+  &, 0.231156E-01_JPRB, 0.209475E-01_JPRB, 0.189338E-01_JPRB, 0.171133E-01_JPRB &
+  &, 0.154221E-01_JPRB, 0.138709E-01_JPRB, 0.124705E-01_JPRB &
+  &, 0.111768E-01_JPRB, 0.100263E-01_JPRB, 0.897156E-02_JPRB, 0.799032E-02_JPRB &
+  &, 0.714835E-02_JPRB, 0.636323E-02_JPRB, 0.563941E-02_JPRB &
+  &, 0.501306E-02_JPRB, 0.442608E-02_JPRB, 0.391431E-02_JPRB, 0.344922E-02_JPRB &
+  &, 0.303401E-02_JPRB, 0.267194E-02_JPRB, 0.236637E-02_JPRB &
+  &, 0.204916E-02_JPRB, 0.179290E-02_JPRB, 0.156411E-02_JPRB, 0.136452E-02_JPRB &
+  &, 0.119588E-02_JPRB, 0.102111E-02_JPRB, 0.919185E-03_JPRB &
+  &, 0.773353E-03_JPRB, 0.663267E-03_JPRB, 0.590829E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.438230E-03_JPRB, 0.357996E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 313, :) = (/ &
+  &  0.948629E+00_JPRB, 0.935060E+00_JPRB, 0.921219E+00_JPRB, 0.907117E+00_JPRB &
+  &, 0.892763E+00_JPRB, 0.878166E+00_JPRB, 0.863338E+00_JPRB &
+  &, 0.848288E+00_JPRB, 0.833028E+00_JPRB, 0.817569E+00_JPRB, 0.801922E+00_JPRB &
+  &, 0.786099E+00_JPRB, 0.770111E+00_JPRB, 0.753972E+00_JPRB &
+  &, 0.737694E+00_JPRB, 0.721288E+00_JPRB, 0.704771E+00_JPRB, 0.688155E+00_JPRB &
+  &, 0.671454E+00_JPRB, 0.654684E+00_JPRB, 0.637856E+00_JPRB &
+  &, 0.620991E+00_JPRB, 0.604097E+00_JPRB, 0.587201E+00_JPRB, 0.570307E+00_JPRB &
+  &, 0.553439E+00_JPRB, 0.536615E+00_JPRB, 0.519847E+00_JPRB &
+  &, 0.503153E+00_JPRB, 0.486554E+00_JPRB, 0.470065E+00_JPRB, 0.453705E+00_JPRB &
+  &, 0.437489E+00_JPRB, 0.421432E+00_JPRB, 0.405561E+00_JPRB &
+  &, 0.389883E+00_JPRB, 0.374413E+00_JPRB, 0.359180E+00_JPRB, 0.344195E+00_JPRB &
+  &, 0.329466E+00_JPRB, 0.315004E+00_JPRB, 0.300840E+00_JPRB &
+  &, 0.286984E+00_JPRB, 0.273438E+00_JPRB, 0.260211E+00_JPRB, 0.247336E+00_JPRB &
+  &, 0.234797E+00_JPRB, 0.222615E+00_JPRB, 0.210795E+00_JPRB &
+  &, 0.199354E+00_JPRB, 0.188284E+00_JPRB, 0.177584E+00_JPRB, 0.167279E+00_JPRB &
+  &, 0.157354E+00_JPRB, 0.147815E+00_JPRB, 0.138670E+00_JPRB &
+  &, 0.129908E+00_JPRB, 0.121528E+00_JPRB, 0.113516E+00_JPRB, 0.105898E+00_JPRB &
+  &, 0.986370E-01_JPRB, 0.917394E-01_JPRB, 0.851935E-01_JPRB &
+  &, 0.790023E-01_JPRB, 0.731671E-01_JPRB, 0.676495E-01_JPRB, 0.624443E-01_JPRB &
+  &, 0.575643E-01_JPRB, 0.529809E-01_JPRB, 0.486821E-01_JPRB &
+  &, 0.446746E-01_JPRB, 0.409211E-01_JPRB, 0.374457E-01_JPRB, 0.342058E-01_JPRB &
+  &, 0.311770E-01_JPRB, 0.283787E-01_JPRB, 0.258069E-01_JPRB &
+  &, 0.234318E-01_JPRB, 0.212204E-01_JPRB, 0.192121E-01_JPRB, 0.173455E-01_JPRB &
+  &, 0.156325E-01_JPRB, 0.140853E-01_JPRB, 0.126618E-01_JPRB &
+  &, 0.113717E-01_JPRB, 0.101965E-01_JPRB, 0.911610E-02_JPRB, 0.813756E-02_JPRB &
+  &, 0.726832E-02_JPRB, 0.645487E-02_JPRB, 0.573271E-02_JPRB &
+  &, 0.510806E-02_JPRB, 0.452279E-02_JPRB, 0.397993E-02_JPRB, 0.351600E-02_JPRB &
+  &, 0.310196E-02_JPRB, 0.274108E-02_JPRB, 0.240154E-02_JPRB &
+  &, 0.212071E-02_JPRB, 0.182928E-02_JPRB, 0.160111E-02_JPRB, 0.140214E-02_JPRB &
+  &, 0.123414E-02_JPRB, 0.106000E-02_JPRB, 0.919185E-03_JPRB &
+  &, 0.813530E-03_JPRB, 0.704096E-03_JPRB, 0.590829E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.438230E-03_JPRB, 0.357996E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 314, :) = (/ &
+  &  0.948900E+00_JPRB, 0.935398E+00_JPRB, 0.921620E+00_JPRB, 0.907581E+00_JPRB &
+  &, 0.893287E+00_JPRB, 0.878749E+00_JPRB, 0.863979E+00_JPRB &
+  &, 0.848985E+00_JPRB, 0.833780E+00_JPRB, 0.818374E+00_JPRB, 0.802778E+00_JPRB &
+  &, 0.787003E+00_JPRB, 0.771064E+00_JPRB, 0.754970E+00_JPRB &
+  &, 0.738734E+00_JPRB, 0.722372E+00_JPRB, 0.705895E+00_JPRB, 0.689317E+00_JPRB &
+  &, 0.672651E+00_JPRB, 0.655911E+00_JPRB, 0.639117E+00_JPRB &
+  &, 0.622280E+00_JPRB, 0.605416E+00_JPRB, 0.588540E+00_JPRB, 0.571675E+00_JPRB &
+  &, 0.554825E+00_JPRB, 0.538019E+00_JPRB, 0.521266E+00_JPRB &
+  &, 0.504588E+00_JPRB, 0.488000E+00_JPRB, 0.471519E+00_JPRB, 0.455162E+00_JPRB &
+  &, 0.438952E+00_JPRB, 0.422897E+00_JPRB, 0.407026E+00_JPRB &
+  &, 0.391343E+00_JPRB, 0.375872E+00_JPRB, 0.360628E+00_JPRB, 0.345629E+00_JPRB &
+  &, 0.330895E+00_JPRB, 0.316427E+00_JPRB, 0.302244E+00_JPRB &
+  &, 0.288369E+00_JPRB, 0.274800E+00_JPRB, 0.261561E+00_JPRB, 0.248647E+00_JPRB &
+  &, 0.236092E+00_JPRB, 0.223879E+00_JPRB, 0.212039E+00_JPRB &
+  &, 0.200563E+00_JPRB, 0.189455E+00_JPRB, 0.178741E+00_JPRB, 0.168394E+00_JPRB &
+  &, 0.158438E+00_JPRB, 0.148866E+00_JPRB, 0.139685E+00_JPRB &
+  &, 0.130884E+00_JPRB, 0.122464E+00_JPRB, 0.114424E+00_JPRB, 0.106761E+00_JPRB &
+  &, 0.994688E-01_JPRB, 0.925380E-01_JPRB, 0.859567E-01_JPRB &
+  &, 0.797463E-01_JPRB, 0.738534E-01_JPRB, 0.682940E-01_JPRB, 0.630642E-01_JPRB &
+  &, 0.581581E-01_JPRB, 0.535470E-01_JPRB, 0.492190E-01_JPRB &
+  &, 0.451807E-01_JPRB, 0.413948E-01_JPRB, 0.378853E-01_JPRB, 0.346096E-01_JPRB &
+  &, 0.315663E-01_JPRB, 0.287526E-01_JPRB, 0.261407E-01_JPRB &
+  &, 0.237236E-01_JPRB, 0.215181E-01_JPRB, 0.194651E-01_JPRB, 0.176035E-01_JPRB &
+  &, 0.158692E-01_JPRB, 0.142998E-01_JPRB, 0.128531E-01_JPRB &
+  &, 0.115388E-01_JPRB, 0.103384E-01_JPRB, 0.926064E-02_JPRB, 0.828479E-02_JPRB &
+  &, 0.738829E-02_JPRB, 0.657704E-02_JPRB, 0.585712E-02_JPRB &
+  &, 0.520305E-02_JPRB, 0.458725E-02_JPRB, 0.407836E-02_JPRB, 0.358279E-02_JPRB &
+  &, 0.316992E-02_JPRB, 0.277565E-02_JPRB, 0.243671E-02_JPRB &
+  &, 0.215648E-02_JPRB, 0.190205E-02_JPRB, 0.163811E-02_JPRB, 0.143977E-02_JPRB &
+  &, 0.123414E-02_JPRB, 0.109889E-02_JPRB, 0.958715E-03_JPRB &
+  &, 0.813530E-03_JPRB, 0.704096E-03_JPRB, 0.590829E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.438230E-03_JPRB, 0.401495E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 315, :) = (/ &
+  &  0.949174E+00_JPRB, 0.935734E+00_JPRB, 0.922021E+00_JPRB, 0.908044E+00_JPRB &
+  &, 0.893811E+00_JPRB, 0.879333E+00_JPRB, 0.864620E+00_JPRB &
+  &, 0.849683E+00_JPRB, 0.834531E+00_JPRB, 0.819178E+00_JPRB, 0.803633E+00_JPRB &
+  &, 0.787909E+00_JPRB, 0.772015E+00_JPRB, 0.755968E+00_JPRB &
+  &, 0.739776E+00_JPRB, 0.723455E+00_JPRB, 0.707018E+00_JPRB, 0.690477E+00_JPRB &
+  &, 0.673847E+00_JPRB, 0.657142E+00_JPRB, 0.640379E+00_JPRB &
+  &, 0.623570E+00_JPRB, 0.606736E+00_JPRB, 0.589880E+00_JPRB, 0.573039E+00_JPRB &
+  &, 0.556211E+00_JPRB, 0.539424E+00_JPRB, 0.522686E+00_JPRB &
+  &, 0.506023E+00_JPRB, 0.489443E+00_JPRB, 0.472973E+00_JPRB, 0.456622E+00_JPRB &
+  &, 0.440415E+00_JPRB, 0.424366E+00_JPRB, 0.408491E+00_JPRB &
+  &, 0.392804E+00_JPRB, 0.377331E+00_JPRB, 0.362084E+00_JPRB, 0.347072E+00_JPRB &
+  &, 0.332324E+00_JPRB, 0.317839E+00_JPRB, 0.303648E+00_JPRB &
+  &, 0.289753E+00_JPRB, 0.276163E+00_JPRB, 0.262899E+00_JPRB, 0.249971E+00_JPRB &
+  &, 0.237387E+00_JPRB, 0.225156E+00_JPRB, 0.213283E+00_JPRB &
+  &, 0.201772E+00_JPRB, 0.190639E+00_JPRB, 0.179885E+00_JPRB, 0.169509E+00_JPRB &
+  &, 0.159522E+00_JPRB, 0.149916E+00_JPRB, 0.140699E+00_JPRB &
+  &, 0.131860E+00_JPRB, 0.123415E+00_JPRB, 0.115333E+00_JPRB, 0.107641E+00_JPRB &
+  &, 0.100301E+00_JPRB, 0.933365E-01_JPRB, 0.867377E-01_JPRB &
+  &, 0.804721E-01_JPRB, 0.745583E-01_JPRB, 0.689575E-01_JPRB, 0.637035E-01_JPRB &
+  &, 0.587518E-01_JPRB, 0.541131E-01_JPRB, 0.497559E-01_JPRB &
+  &, 0.456658E-01_JPRB, 0.418685E-01_JPRB, 0.383249E-01_JPRB, 0.350135E-01_JPRB &
+  &, 0.319556E-01_JPRB, 0.291032E-01_JPRB, 0.264745E-01_JPRB &
+  &, 0.240398E-01_JPRB, 0.218157E-01_JPRB, 0.197434E-01_JPRB, 0.178356E-01_JPRB &
+  &, 0.161059E-01_JPRB, 0.145143E-01_JPRB, 0.130444E-01_JPRB &
+  &, 0.117337E-01_JPRB, 0.105087E-01_JPRB, 0.940518E-02_JPRB, 0.840259E-02_JPRB &
+  &, 0.750826E-02_JPRB, 0.669922E-02_JPRB, 0.595042E-02_JPRB &
+  &, 0.529805E-02_JPRB, 0.468396E-02_JPRB, 0.414398E-02_JPRB, 0.364957E-02_JPRB &
+  &, 0.323787E-02_JPRB, 0.284480E-02_JPRB, 0.250705E-02_JPRB &
+  &, 0.219226E-02_JPRB, 0.193844E-02_JPRB, 0.167511E-02_JPRB, 0.147739E-02_JPRB &
+  &, 0.127239E-02_JPRB, 0.109889E-02_JPRB, 0.958715E-03_JPRB &
+  &, 0.853706E-03_JPRB, 0.704096E-03_JPRB, 0.632317E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.401495E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART45',1,ZHOOK_HANDLE)
+END SUBROUTINE PART45
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART46
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART46',0,ZHOOK_HANDLE)
+
+XCW( 316, :) = (/ &
+  &  0.949448E+00_JPRB, 0.936072E+00_JPRB, 0.922422E+00_JPRB, 0.908507E+00_JPRB &
+  &, 0.894335E+00_JPRB, 0.879916E+00_JPRB, 0.865261E+00_JPRB &
+  &, 0.850379E+00_JPRB, 0.835283E+00_JPRB, 0.819982E+00_JPRB, 0.804488E+00_JPRB &
+  &, 0.788812E+00_JPRB, 0.772967E+00_JPRB, 0.756964E+00_JPRB &
+  &, 0.740817E+00_JPRB, 0.724538E+00_JPRB, 0.708140E+00_JPRB, 0.691637E+00_JPRB &
+  &, 0.675044E+00_JPRB, 0.658373E+00_JPRB, 0.641640E+00_JPRB &
+  &, 0.624863E+00_JPRB, 0.608052E+00_JPRB, 0.591230E+00_JPRB, 0.574406E+00_JPRB &
+  &, 0.557600E+00_JPRB, 0.540828E+00_JPRB, 0.524109E+00_JPRB &
+  &, 0.507458E+00_JPRB, 0.490889E+00_JPRB, 0.474426E+00_JPRB, 0.458087E+00_JPRB &
+  &, 0.441882E+00_JPRB, 0.425834E+00_JPRB, 0.409961E+00_JPRB &
+  &, 0.394273E+00_JPRB, 0.378790E+00_JPRB, 0.363532E+00_JPRB, 0.348516E+00_JPRB &
+  &, 0.333753E+00_JPRB, 0.319261E+00_JPRB, 0.305053E+00_JPRB &
+  &, 0.291137E+00_JPRB, 0.277525E+00_JPRB, 0.264248E+00_JPRB, 0.251294E+00_JPRB &
+  &, 0.238683E+00_JPRB, 0.226421E+00_JPRB, 0.214527E+00_JPRB &
+  &, 0.202994E+00_JPRB, 0.191824E+00_JPRB, 0.181043E+00_JPRB, 0.170639E+00_JPRB &
+  &, 0.160620E+00_JPRB, 0.150981E+00_JPRB, 0.141729E+00_JPRB &
+  &, 0.132852E+00_JPRB, 0.124367E+00_JPRB, 0.116258E+00_JPRB, 0.108521E+00_JPRB &
+  &, 0.101149E+00_JPRB, 0.941524E-01_JPRB, 0.875010E-01_JPRB &
+  &, 0.811980E-01_JPRB, 0.752446E-01_JPRB, 0.696400E-01_JPRB, 0.643427E-01_JPRB &
+  &, 0.593456E-01_JPRB, 0.546792E-01_JPRB, 0.502928E-01_JPRB &
+  &, 0.461719E-01_JPRB, 0.423422E-01_JPRB, 0.387646E-01_JPRB, 0.354398E-01_JPRB &
+  &, 0.323449E-01_JPRB, 0.294770E-01_JPRB, 0.268082E-01_JPRB &
+  &, 0.243560E-01_JPRB, 0.220886E-01_JPRB, 0.200217E-01_JPRB, 0.180936E-01_JPRB &
+  &, 0.163426E-01_JPRB, 0.147288E-01_JPRB, 0.132630E-01_JPRB &
+  &, 0.119008E-01_JPRB, 0.106789E-01_JPRB, 0.957863E-02_JPRB, 0.854982E-02_JPRB &
+  &, 0.762823E-02_JPRB, 0.679085E-02_JPRB, 0.604373E-02_JPRB &
+  &, 0.539304E-02_JPRB, 0.478066E-02_JPRB, 0.420960E-02_JPRB, 0.374974E-02_JPRB &
+  &, 0.330583E-02_JPRB, 0.291394E-02_JPRB, 0.254222E-02_JPRB &
+  &, 0.222803E-02_JPRB, 0.197483E-02_JPRB, 0.171212E-02_JPRB, 0.151502E-02_JPRB &
+  &, 0.131064E-02_JPRB, 0.113778E-02_JPRB, 0.998245E-03_JPRB &
+  &, 0.853706E-03_JPRB, 0.744925E-03_JPRB, 0.632317E-03_JPRB, 0.557981E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.401495E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 317, :) = (/ &
+  &  0.949720E+00_JPRB, 0.936410E+00_JPRB, 0.922822E+00_JPRB, 0.908970E+00_JPRB &
+  &, 0.894858E+00_JPRB, 0.880498E+00_JPRB, 0.865900E+00_JPRB &
+  &, 0.851075E+00_JPRB, 0.836033E+00_JPRB, 0.820785E+00_JPRB, 0.805342E+00_JPRB &
+  &, 0.789716E+00_JPRB, 0.773918E+00_JPRB, 0.757961E+00_JPRB &
+  &, 0.741858E+00_JPRB, 0.725620E+00_JPRB, 0.709262E+00_JPRB, 0.692797E+00_JPRB &
+  &, 0.676240E+00_JPRB, 0.659604E+00_JPRB, 0.642901E+00_JPRB &
+  &, 0.626153E+00_JPRB, 0.609371E+00_JPRB, 0.592573E+00_JPRB, 0.575771E+00_JPRB &
+  &, 0.558986E+00_JPRB, 0.542233E+00_JPRB, 0.525529E+00_JPRB &
+  &, 0.508893E+00_JPRB, 0.492336E+00_JPRB, 0.475884E+00_JPRB, 0.459548E+00_JPRB &
+  &, 0.443350E+00_JPRB, 0.427303E+00_JPRB, 0.411431E+00_JPRB &
+  &, 0.395743E+00_JPRB, 0.380259E+00_JPRB, 0.364989E+00_JPRB, 0.349970E+00_JPRB &
+  &, 0.335192E+00_JPRB, 0.320684E+00_JPRB, 0.306457E+00_JPRB &
+  &, 0.292522E+00_JPRB, 0.278898E+00_JPRB, 0.265598E+00_JPRB, 0.252618E+00_JPRB &
+  &, 0.239990E+00_JPRB, 0.227698E+00_JPRB, 0.215771E+00_JPRB &
+  &, 0.204216E+00_JPRB, 0.193021E+00_JPRB, 0.182201E+00_JPRB, 0.171768E+00_JPRB &
+  &, 0.161704E+00_JPRB, 0.152032E+00_JPRB, 0.142744E+00_JPRB &
+  &, 0.133844E+00_JPRB, 0.125318E+00_JPRB, 0.117166E+00_JPRB, 0.109400E+00_JPRB &
+  &, 0.101998E+00_JPRB, 0.949510E-01_JPRB, 0.882820E-01_JPRB &
+  &, 0.819420E-01_JPRB, 0.759680E-01_JPRB, 0.703035E-01_JPRB, 0.649820E-01_JPRB &
+  &, 0.599591E-01_JPRB, 0.552453E-01_JPRB, 0.508297E-01_JPRB &
+  &, 0.466991E-01_JPRB, 0.428159E-01_JPRB, 0.392262E-01_JPRB, 0.358662E-01_JPRB &
+  &, 0.327342E-01_JPRB, 0.298509E-01_JPRB, 0.271659E-01_JPRB &
+  &, 0.246965E-01_JPRB, 0.223863E-01_JPRB, 0.202999E-01_JPRB, 0.183516E-01_JPRB &
+  &, 0.165793E-01_JPRB, 0.149433E-01_JPRB, 0.134543E-01_JPRB &
+  &, 0.120957E-01_JPRB, 0.108492E-01_JPRB, 0.972317E-02_JPRB, 0.869706E-02_JPRB &
+  &, 0.777820E-02_JPRB, 0.691303E-02_JPRB, 0.616814E-02_JPRB &
+  &, 0.548804E-02_JPRB, 0.484513E-02_JPRB, 0.430803E-02_JPRB, 0.381652E-02_JPRB &
+  &, 0.337378E-02_JPRB, 0.294851E-02_JPRB, 0.261256E-02_JPRB &
+  &, 0.229958E-02_JPRB, 0.201121E-02_JPRB, 0.174912E-02_JPRB, 0.155264E-02_JPRB &
+  &, 0.134890E-02_JPRB, 0.117667E-02_JPRB, 0.998245E-03_JPRB &
+  &, 0.893883E-03_JPRB, 0.744925E-03_JPRB, 0.673805E-03_JPRB, 0.557981E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.401495E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 318, :) = (/ &
+  &  0.949989E+00_JPRB, 0.936746E+00_JPRB, 0.923222E+00_JPRB, 0.909432E+00_JPRB &
+  &, 0.895380E+00_JPRB, 0.881080E+00_JPRB, 0.866540E+00_JPRB &
+  &, 0.851768E+00_JPRB, 0.836783E+00_JPRB, 0.821587E+00_JPRB, 0.806196E+00_JPRB &
+  &, 0.790619E+00_JPRB, 0.774868E+00_JPRB, 0.758957E+00_JPRB &
+  &, 0.742897E+00_JPRB, 0.726701E+00_JPRB, 0.710384E+00_JPRB, 0.693958E+00_JPRB &
+  &, 0.677435E+00_JPRB, 0.660832E+00_JPRB, 0.644163E+00_JPRB &
+  &, 0.627446E+00_JPRB, 0.610690E+00_JPRB, 0.593916E+00_JPRB, 0.577138E+00_JPRB &
+  &, 0.560376E+00_JPRB, 0.543641E+00_JPRB, 0.526952E+00_JPRB &
+  &, 0.510328E+00_JPRB, 0.493786E+00_JPRB, 0.477342E+00_JPRB, 0.461013E+00_JPRB &
+  &, 0.444821E+00_JPRB, 0.428776E+00_JPRB, 0.412900E+00_JPRB &
+  &, 0.397213E+00_JPRB, 0.381718E+00_JPRB, 0.366455E+00_JPRB, 0.351413E+00_JPRB &
+  &, 0.336631E+00_JPRB, 0.322107E+00_JPRB, 0.307862E+00_JPRB &
+  &, 0.293917E+00_JPRB, 0.280272E+00_JPRB, 0.266948E+00_JPRB, 0.253953E+00_JPRB &
+  &, 0.241297E+00_JPRB, 0.228987E+00_JPRB, 0.217028E+00_JPRB &
+  &, 0.205438E+00_JPRB, 0.194219E+00_JPRB, 0.183373E+00_JPRB, 0.172897E+00_JPRB &
+  &, 0.162802E+00_JPRB, 0.153097E+00_JPRB, 0.143773E+00_JPRB &
+  &, 0.134836E+00_JPRB, 0.126286E+00_JPRB, 0.118091E+00_JPRB, 0.110296E+00_JPRB &
+  &, 0.102847E+00_JPRB, 0.957843E-01_JPRB, 0.890630E-01_JPRB &
+  &, 0.826860E-01_JPRB, 0.766728E-01_JPRB, 0.709859E-01_JPRB, 0.656213E-01_JPRB &
+  &, 0.605726E-01_JPRB, 0.558114E-01_JPRB, 0.513666E-01_JPRB &
+  &, 0.472052E-01_JPRB, 0.433112E-01_JPRB, 0.396659E-01_JPRB, 0.362925E-01_JPRB &
+  &, 0.331464E-01_JPRB, 0.302248E-01_JPRB, 0.275235E-01_JPRB &
+  &, 0.250127E-01_JPRB, 0.227088E-01_JPRB, 0.205782E-01_JPRB, 0.186095E-01_JPRB &
+  &, 0.168160E-01_JPRB, 0.151577E-01_JPRB, 0.136455E-01_JPRB &
+  &, 0.122628E-01_JPRB, 0.110194E-01_JPRB, 0.986771E-02_JPRB, 0.884430E-02_JPRB &
+  &, 0.789817E-02_JPRB, 0.703521E-02_JPRB, 0.626144E-02_JPRB &
+  &, 0.558303E-02_JPRB, 0.494183E-02_JPRB, 0.437365E-02_JPRB, 0.388330E-02_JPRB &
+  &, 0.344174E-02_JPRB, 0.301765E-02_JPRB, 0.264773E-02_JPRB &
+  &, 0.233536E-02_JPRB, 0.204760E-02_JPRB, 0.178612E-02_JPRB, 0.155264E-02_JPRB &
+  &, 0.138715E-02_JPRB, 0.117667E-02_JPRB, 0.103777E-02_JPRB &
+  &, 0.893883E-03_JPRB, 0.785754E-03_JPRB, 0.673805E-03_JPRB, 0.600133E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.444995E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 319, :) = (/ &
+  &  0.950262E+00_JPRB, 0.937082E+00_JPRB, 0.923621E+00_JPRB, 0.909893E+00_JPRB &
+  &, 0.895902E+00_JPRB, 0.881661E+00_JPRB, 0.867179E+00_JPRB &
+  &, 0.852466E+00_JPRB, 0.837532E+00_JPRB, 0.822389E+00_JPRB, 0.807049E+00_JPRB &
+  &, 0.791522E+00_JPRB, 0.775818E+00_JPRB, 0.759953E+00_JPRB &
+  &, 0.743938E+00_JPRB, 0.727784E+00_JPRB, 0.711506E+00_JPRB, 0.695118E+00_JPRB &
+  &, 0.678631E+00_JPRB, 0.662063E+00_JPRB, 0.645427E+00_JPRB &
+  &, 0.628736E+00_JPRB, 0.612010E+00_JPRB, 0.595263E+00_JPRB, 0.578506E+00_JPRB &
+  &, 0.561762E+00_JPRB, 0.545049E+00_JPRB, 0.528376E+00_JPRB &
+  &, 0.511766E+00_JPRB, 0.495237E+00_JPRB, 0.478800E+00_JPRB, 0.462482E+00_JPRB &
+  &, 0.446293E+00_JPRB, 0.430250E+00_JPRB, 0.414374E+00_JPRB &
+  &, 0.398682E+00_JPRB, 0.383186E+00_JPRB, 0.367912E+00_JPRB, 0.352867E+00_JPRB &
+  &, 0.338070E+00_JPRB, 0.323540E+00_JPRB, 0.309277E+00_JPRB &
+  &, 0.295312E+00_JPRB, 0.281657E+00_JPRB, 0.268309E+00_JPRB, 0.255289E+00_JPRB &
+  &, 0.242605E+00_JPRB, 0.230264E+00_JPRB, 0.218286E+00_JPRB &
+  &, 0.206660E+00_JPRB, 0.195417E+00_JPRB, 0.184531E+00_JPRB, 0.174026E+00_JPRB &
+  &, 0.163915E+00_JPRB, 0.154177E+00_JPRB, 0.144818E+00_JPRB &
+  &, 0.135843E+00_JPRB, 0.127237E+00_JPRB, 0.119032E+00_JPRB, 0.111176E+00_JPRB &
+  &, 0.103713E+00_JPRB, 0.966002E-01_JPRB, 0.898440E-01_JPRB &
+  &, 0.834482E-01_JPRB, 0.773777E-01_JPRB, 0.716684E-01_JPRB, 0.662605E-01_JPRB &
+  &, 0.611862E-01_JPRB, 0.563977E-01_JPRB, 0.519242E-01_JPRB &
+  &, 0.477113E-01_JPRB, 0.437849E-01_JPRB, 0.401275E-01_JPRB, 0.367188E-01_JPRB &
+  &, 0.335357E-01_JPRB, 0.305987E-01_JPRB, 0.278573E-01_JPRB &
+  &, 0.253289E-01_JPRB, 0.230065E-01_JPRB, 0.208565E-01_JPRB, 0.188675E-01_JPRB &
+  &, 0.170527E-01_JPRB, 0.153990E-01_JPRB, 0.138642E-01_JPRB &
+  &, 0.124577E-01_JPRB, 0.111897E-01_JPRB, 0.100412E-01_JPRB, 0.899154E-02_JPRB &
+  &, 0.801814E-02_JPRB, 0.715739E-02_JPRB, 0.638585E-02_JPRB &
+  &, 0.567803E-02_JPRB, 0.503853E-02_JPRB, 0.447207E-02_JPRB, 0.395008E-02_JPRB &
+  &, 0.350969E-02_JPRB, 0.308679E-02_JPRB, 0.271807E-02_JPRB &
+  &, 0.237113E-02_JPRB, 0.208398E-02_JPRB, 0.182313E-02_JPRB, 0.159027E-02_JPRB &
+  &, 0.138715E-02_JPRB, 0.121556E-02_JPRB, 0.107730E-02_JPRB &
+  &, 0.934059E-03_JPRB, 0.785754E-03_JPRB, 0.673805E-03_JPRB, 0.600133E-03_JPRB &
+  &, 0.523875E-03_JPRB, 0.444995E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 320, :) = (/ &
+  &  0.950531E+00_JPRB, 0.937418E+00_JPRB, 0.924020E+00_JPRB, 0.910354E+00_JPRB &
+  &, 0.896424E+00_JPRB, 0.882242E+00_JPRB, 0.867817E+00_JPRB &
+  &, 0.853160E+00_JPRB, 0.838280E+00_JPRB, 0.823191E+00_JPRB, 0.807902E+00_JPRB &
+  &, 0.792423E+00_JPRB, 0.776768E+00_JPRB, 0.760948E+00_JPRB &
+  &, 0.744977E+00_JPRB, 0.728865E+00_JPRB, 0.712627E+00_JPRB, 0.696277E+00_JPRB &
+  &, 0.679827E+00_JPRB, 0.663291E+00_JPRB, 0.646689E+00_JPRB &
+  &, 0.630029E+00_JPRB, 0.613329E+00_JPRB, 0.596606E+00_JPRB, 0.579874E+00_JPRB &
+  &, 0.563151E+00_JPRB, 0.546457E+00_JPRB, 0.529799E+00_JPRB &
+  &, 0.513205E+00_JPRB, 0.496688E+00_JPRB, 0.480262E+00_JPRB, 0.463947E+00_JPRB &
+  &, 0.447764E+00_JPRB, 0.431723E+00_JPRB, 0.415848E+00_JPRB &
+  &, 0.400152E+00_JPRB, 0.384655E+00_JPRB, 0.369379E+00_JPRB, 0.354321E+00_JPRB &
+  &, 0.339519E+00_JPRB, 0.324973E+00_JPRB, 0.310692E+00_JPRB &
+  &, 0.296719E+00_JPRB, 0.283030E+00_JPRB, 0.269670E+00_JPRB, 0.256624E+00_JPRB &
+  &, 0.243912E+00_JPRB, 0.231554E+00_JPRB, 0.219543E+00_JPRB &
+  &, 0.207895E+00_JPRB, 0.196615E+00_JPRB, 0.185702E+00_JPRB, 0.175169E+00_JPRB &
+  &, 0.165013E+00_JPRB, 0.155242E+00_JPRB, 0.145848E+00_JPRB &
+  &, 0.136850E+00_JPRB, 0.128220E+00_JPRB, 0.119957E+00_JPRB, 0.112072E+00_JPRB &
+  &, 0.104561E+00_JPRB, 0.974161E-01_JPRB, 0.906428E-01_JPRB &
+  &, 0.841922E-01_JPRB, 0.781011E-01_JPRB, 0.723509E-01_JPRB, 0.669192E-01_JPRB &
+  &, 0.617997E-01_JPRB, 0.569840E-01_JPRB, 0.524611E-01_JPRB &
+  &, 0.482385E-01_JPRB, 0.442801E-01_JPRB, 0.405891E-01_JPRB, 0.371452E-01_JPRB &
+  &, 0.339479E-01_JPRB, 0.309726E-01_JPRB, 0.282149E-01_JPRB &
+  &, 0.256694E-01_JPRB, 0.233042E-01_JPRB, 0.211348E-01_JPRB, 0.191255E-01_JPRB &
+  &, 0.172895E-01_JPRB, 0.156135E-01_JPRB, 0.140554E-01_JPRB &
+  &, 0.126527E-01_JPRB, 0.113599E-01_JPRB, 0.101857E-01_JPRB, 0.913878E-02_JPRB &
+  &, 0.816811E-02_JPRB, 0.727957E-02_JPRB, 0.647915E-02_JPRB &
+  &, 0.577302E-02_JPRB, 0.513523E-02_JPRB, 0.453769E-02_JPRB, 0.401686E-02_JPRB &
+  &, 0.357765E-02_JPRB, 0.315593E-02_JPRB, 0.275324E-02_JPRB &
+  &, 0.244268E-02_JPRB, 0.215675E-02_JPRB, 0.186013E-02_JPRB, 0.162789E-02_JPRB &
+  &, 0.142541E-02_JPRB, 0.125445E-02_JPRB, 0.107730E-02_JPRB &
+  &, 0.934059E-03_JPRB, 0.826583E-03_JPRB, 0.715293E-03_JPRB, 0.600133E-03_JPRB &
+  &, 0.523875E-03_JPRB, 0.444995E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 321, :) = (/ &
+  &  0.950803E+00_JPRB, 0.937753E+00_JPRB, 0.924419E+00_JPRB, 0.910814E+00_JPRB &
+  &, 0.896945E+00_JPRB, 0.882822E+00_JPRB, 0.868454E+00_JPRB &
+  &, 0.853853E+00_JPRB, 0.839029E+00_JPRB, 0.823991E+00_JPRB, 0.808753E+00_JPRB &
+  &, 0.793324E+00_JPRB, 0.777717E+00_JPRB, 0.761944E+00_JPRB &
+  &, 0.746015E+00_JPRB, 0.729946E+00_JPRB, 0.713749E+00_JPRB, 0.697435E+00_JPRB &
+  &, 0.681022E+00_JPRB, 0.664521E+00_JPRB, 0.647950E+00_JPRB &
+  &, 0.631318E+00_JPRB, 0.614648E+00_JPRB, 0.597952E+00_JPRB, 0.581245E+00_JPRB &
+  &, 0.564541E+00_JPRB, 0.547865E+00_JPRB, 0.531226E+00_JPRB &
+  &, 0.514644E+00_JPRB, 0.498138E+00_JPRB, 0.481724E+00_JPRB, 0.465416E+00_JPRB &
+  &, 0.449236E+00_JPRB, 0.433201E+00_JPRB, 0.417327E+00_JPRB &
+  &, 0.401631E+00_JPRB, 0.386133E+00_JPRB, 0.370836E+00_JPRB, 0.355775E+00_JPRB &
+  &, 0.340958E+00_JPRB, 0.326406E+00_JPRB, 0.312118E+00_JPRB &
+  &, 0.298114E+00_JPRB, 0.284415E+00_JPRB, 0.271031E+00_JPRB, 0.257960E+00_JPRB &
+  &, 0.245232E+00_JPRB, 0.232843E+00_JPRB, 0.220812E+00_JPRB &
+  &, 0.209130E+00_JPRB, 0.197826E+00_JPRB, 0.186888E+00_JPRB, 0.176313E+00_JPRB &
+  &, 0.166126E+00_JPRB, 0.156322E+00_JPRB, 0.146893E+00_JPRB &
+  &, 0.137858E+00_JPRB, 0.129188E+00_JPRB, 0.120898E+00_JPRB, 0.112985E+00_JPRB &
+  &, 0.105444E+00_JPRB, 0.982494E-01_JPRB, 0.914238E-01_JPRB &
+  &, 0.849544E-01_JPRB, 0.788245E-01_JPRB, 0.730333E-01_JPRB, 0.675778E-01_JPRB &
+  &, 0.624133E-01_JPRB, 0.575703E-01_JPRB, 0.530186E-01_JPRB &
+  &, 0.487657E-01_JPRB, 0.447754E-01_JPRB, 0.410507E-01_JPRB, 0.375939E-01_JPRB &
+  &, 0.343601E-01_JPRB, 0.313465E-01_JPRB, 0.285725E-01_JPRB &
+  &, 0.260099E-01_JPRB, 0.236267E-01_JPRB, 0.214131E-01_JPRB, 0.194093E-01_JPRB &
+  &, 0.175525E-01_JPRB, 0.158280E-01_JPRB, 0.142740E-01_JPRB &
+  &, 0.128476E-01_JPRB, 0.115585E-01_JPRB, 0.103592E-01_JPRB, 0.928601E-02_JPRB &
+  &, 0.828808E-02_JPRB, 0.740174E-02_JPRB, 0.660356E-02_JPRB &
+  &, 0.586802E-02_JPRB, 0.523194E-02_JPRB, 0.463612E-02_JPRB, 0.411703E-02_JPRB &
+  &, 0.364561E-02_JPRB, 0.319050E-02_JPRB, 0.282358E-02_JPRB &
+  &, 0.247845E-02_JPRB, 0.219314E-02_JPRB, 0.193413E-02_JPRB, 0.166552E-02_JPRB &
+  &, 0.146366E-02_JPRB, 0.129334E-02_JPRB, 0.111683E-02_JPRB &
+  &, 0.974236E-03_JPRB, 0.826583E-03_JPRB, 0.715293E-03_JPRB, 0.642286E-03_JPRB &
+  &, 0.523875E-03_JPRB, 0.444995E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 322, :) = (/ &
+  &  0.951073E+00_JPRB, 0.938088E+00_JPRB, 0.924818E+00_JPRB, 0.911275E+00_JPRB &
+  &, 0.897466E+00_JPRB, 0.883402E+00_JPRB, 0.869092E+00_JPRB &
+  &, 0.854547E+00_JPRB, 0.839776E+00_JPRB, 0.824793E+00_JPRB, 0.809605E+00_JPRB &
+  &, 0.794225E+00_JPRB, 0.778665E+00_JPRB, 0.762937E+00_JPRB &
+  &, 0.747054E+00_JPRB, 0.731028E+00_JPRB, 0.714870E+00_JPRB, 0.698596E+00_JPRB &
+  &, 0.682218E+00_JPRB, 0.665752E+00_JPRB, 0.649211E+00_JPRB &
+  &, 0.632611E+00_JPRB, 0.615967E+00_JPRB, 0.599295E+00_JPRB, 0.582612E+00_JPRB &
+  &, 0.565934E+00_JPRB, 0.549274E+00_JPRB, 0.532654E+00_JPRB &
+  &, 0.516087E+00_JPRB, 0.499592E+00_JPRB, 0.483186E+00_JPRB, 0.466885E+00_JPRB &
+  &, 0.450712E+00_JPRB, 0.434678E+00_JPRB, 0.418806E+00_JPRB &
+  &, 0.403110E+00_JPRB, 0.387602E+00_JPRB, 0.372312E+00_JPRB, 0.357238E+00_JPRB &
+  &, 0.342407E+00_JPRB, 0.327839E+00_JPRB, 0.313534E+00_JPRB &
+  &, 0.299521E+00_JPRB, 0.285800E+00_JPRB, 0.272393E+00_JPRB, 0.259307E+00_JPRB &
+  &, 0.246552E+00_JPRB, 0.234146E+00_JPRB, 0.222082E+00_JPRB &
+  &, 0.210379E+00_JPRB, 0.199038E+00_JPRB, 0.188059E+00_JPRB, 0.177470E+00_JPRB &
+  &, 0.167253E+00_JPRB, 0.157402E+00_JPRB, 0.147953E+00_JPRB &
+  &, 0.138865E+00_JPRB, 0.130171E+00_JPRB, 0.121839E+00_JPRB, 0.113881E+00_JPRB &
+  &, 0.106310E+00_JPRB, 0.990826E-01_JPRB, 0.922226E-01_JPRB &
+  &, 0.857165E-01_JPRB, 0.795665E-01_JPRB, 0.737347E-01_JPRB, 0.682364E-01_JPRB &
+  &, 0.630466E-01_JPRB, 0.581769E-01_JPRB, 0.535968E-01_JPRB &
+  &, 0.492929E-01_JPRB, 0.452706E-01_JPRB, 0.415343E-01_JPRB, 0.380202E-01_JPRB &
+  &, 0.347723E-01_JPRB, 0.317437E-01_JPRB, 0.289302E-01_JPRB &
+  &, 0.263260E-01_JPRB, 0.239244E-01_JPRB, 0.217167E-01_JPRB, 0.196672E-01_JPRB &
+  &, 0.177892E-01_JPRB, 0.160693E-01_JPRB, 0.144926E-01_JPRB &
+  &, 0.130425E-01_JPRB, 0.117288E-01_JPRB, 0.105326E-01_JPRB, 0.943325E-02_JPRB &
+  &, 0.843805E-02_JPRB, 0.752392E-02_JPRB, 0.672797E-02_JPRB &
+  &, 0.599468E-02_JPRB, 0.532864E-02_JPRB, 0.473455E-02_JPRB, 0.418381E-02_JPRB &
+  &, 0.371356E-02_JPRB, 0.325964E-02_JPRB, 0.289392E-02_JPRB &
+  &, 0.255000E-02_JPRB, 0.222952E-02_JPRB, 0.197114E-02_JPRB, 0.170314E-02_JPRB &
+  &, 0.150192E-02_JPRB, 0.129334E-02_JPRB, 0.115636E-02_JPRB &
+  &, 0.974236E-03_JPRB, 0.867413E-03_JPRB, 0.756781E-03_JPRB, 0.642286E-03_JPRB &
+  &, 0.566698E-03_JPRB, 0.488494E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART46',1,ZHOOK_HANDLE)
+END SUBROUTINE PART46
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART47
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART47',0,ZHOOK_HANDLE)
+
+XCW( 323, :) = (/ &
+  &  0.951344E+00_JPRB, 0.938422E+00_JPRB, 0.925216E+00_JPRB, 0.911735E+00_JPRB &
+  &, 0.897986E+00_JPRB, 0.883980E+00_JPRB, 0.869729E+00_JPRB &
+  &, 0.855239E+00_JPRB, 0.840523E+00_JPRB, 0.825592E+00_JPRB, 0.810456E+00_JPRB &
+  &, 0.795126E+00_JPRB, 0.779614E+00_JPRB, 0.763932E+00_JPRB &
+  &, 0.748092E+00_JPRB, 0.732107E+00_JPRB, 0.715990E+00_JPRB, 0.699754E+00_JPRB &
+  &, 0.683413E+00_JPRB, 0.666980E+00_JPRB, 0.650473E+00_JPRB &
+  &, 0.633904E+00_JPRB, 0.617287E+00_JPRB, 0.600642E+00_JPRB, 0.583980E+00_JPRB &
+  &, 0.567323E+00_JPRB, 0.550682E+00_JPRB, 0.534081E+00_JPRB &
+  &, 0.517526E+00_JPRB, 0.501043E+00_JPRB, 0.484648E+00_JPRB, 0.468359E+00_JPRB &
+  &, 0.452192E+00_JPRB, 0.436160E+00_JPRB, 0.420289E+00_JPRB &
+  &, 0.404588E+00_JPRB, 0.389080E+00_JPRB, 0.373779E+00_JPRB, 0.358702E+00_JPRB &
+  &, 0.343857E+00_JPRB, 0.329273E+00_JPRB, 0.314960E+00_JPRB &
+  &, 0.300927E+00_JPRB, 0.287197E+00_JPRB, 0.273766E+00_JPRB, 0.260655E+00_JPRB &
+  &, 0.247883E+00_JPRB, 0.235435E+00_JPRB, 0.223352E+00_JPRB &
+  &, 0.211614E+00_JPRB, 0.200249E+00_JPRB, 0.189245E+00_JPRB, 0.178613E+00_JPRB &
+  &, 0.168366E+00_JPRB, 0.158497E+00_JPRB, 0.148998E+00_JPRB &
+  &, 0.139888E+00_JPRB, 0.131154E+00_JPRB, 0.122796E+00_JPRB, 0.114794E+00_JPRB &
+  &, 0.107176E+00_JPRB, 0.999333E-01_JPRB, 0.930391E-01_JPRB &
+  &, 0.864968E-01_JPRB, 0.802899E-01_JPRB, 0.744362E-01_JPRB, 0.688950E-01_JPRB &
+  &, 0.636799E-01_JPRB, 0.587632E-01_JPRB, 0.541544E-01_JPRB &
+  &, 0.498201E-01_JPRB, 0.457874E-01_JPRB, 0.419960E-01_JPRB, 0.384690E-01_JPRB &
+  &, 0.351845E-01_JPRB, 0.321410E-01_JPRB, 0.293116E-01_JPRB &
+  &, 0.266665E-01_JPRB, 0.242469E-01_JPRB, 0.220203E-01_JPRB, 0.199510E-01_JPRB &
+  &, 0.180522E-01_JPRB, 0.163106E-01_JPRB, 0.147112E-01_JPRB &
+  &, 0.132375E-01_JPRB, 0.118990E-01_JPRB, 0.107061E-01_JPRB, 0.958049E-02_JPRB &
+  &, 0.858801E-02_JPRB, 0.767664E-02_JPRB, 0.685237E-02_JPRB &
+  &, 0.608967E-02_JPRB, 0.542534E-02_JPRB, 0.480017E-02_JPRB, 0.425060E-02_JPRB &
+  &, 0.378152E-02_JPRB, 0.332879E-02_JPRB, 0.292909E-02_JPRB &
+  &, 0.258578E-02_JPRB, 0.226591E-02_JPRB, 0.200814E-02_JPRB, 0.174077E-02_JPRB &
+  &, 0.154017E-02_JPRB, 0.133223E-02_JPRB, 0.115636E-02_JPRB &
+  &, 0.101441E-02_JPRB, 0.867413E-03_JPRB, 0.756781E-03_JPRB, 0.642286E-03_JPRB &
+  &, 0.566698E-03_JPRB, 0.488494E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 324, :) = (/ &
+  &  0.951612E+00_JPRB, 0.938757E+00_JPRB, 0.925613E+00_JPRB, 0.912194E+00_JPRB &
+  &, 0.898505E+00_JPRB, 0.884559E+00_JPRB, 0.870365E+00_JPRB &
+  &, 0.855931E+00_JPRB, 0.841270E+00_JPRB, 0.826391E+00_JPRB, 0.811307E+00_JPRB &
+  &, 0.796026E+00_JPRB, 0.780562E+00_JPRB, 0.764926E+00_JPRB &
+  &, 0.749130E+00_JPRB, 0.733187E+00_JPRB, 0.717111E+00_JPRB, 0.700913E+00_JPRB &
+  &, 0.684609E+00_JPRB, 0.668211E+00_JPRB, 0.651734E+00_JPRB &
+  &, 0.635194E+00_JPRB, 0.618609E+00_JPRB, 0.601988E+00_JPRB, 0.585351E+00_JPRB &
+  &, 0.568716E+00_JPRB, 0.552094E+00_JPRB, 0.535508E+00_JPRB &
+  &, 0.518969E+00_JPRB, 0.502501E+00_JPRB, 0.486114E+00_JPRB, 0.469832E+00_JPRB &
+  &, 0.453668E+00_JPRB, 0.437642E+00_JPRB, 0.421772E+00_JPRB &
+  &, 0.406067E+00_JPRB, 0.390558E+00_JPRB, 0.375246E+00_JPRB, 0.360166E+00_JPRB &
+  &, 0.345316E+00_JPRB, 0.330716E+00_JPRB, 0.316386E+00_JPRB &
+  &, 0.302345E+00_JPRB, 0.288581E+00_JPRB, 0.275138E+00_JPRB, 0.262014E+00_JPRB &
+  &, 0.249203E+00_JPRB, 0.236750E+00_JPRB, 0.224635E+00_JPRB &
+  &, 0.212862E+00_JPRB, 0.201474E+00_JPRB, 0.190444E+00_JPRB, 0.179771E+00_JPRB &
+  &, 0.169493E+00_JPRB, 0.159591E+00_JPRB, 0.150058E+00_JPRB &
+  &, 0.140911E+00_JPRB, 0.132137E+00_JPRB, 0.123737E+00_JPRB, 0.115724E+00_JPRB &
+  &, 0.108058E+00_JPRB, 0.100767E+00_JPRB, 0.938378E-01_JPRB &
+  &, 0.872590E-01_JPRB, 0.810318E-01_JPRB, 0.751376E-01_JPRB, 0.695537E-01_JPRB &
+  &, 0.643133E-01_JPRB, 0.593697E-01_JPRB, 0.547326E-01_JPRB &
+  &, 0.503684E-01_JPRB, 0.462826E-01_JPRB, 0.424796E-01_JPRB, 0.389178E-01_JPRB &
+  &, 0.355967E-01_JPRB, 0.325382E-01_JPRB, 0.296693E-01_JPRB &
+  &, 0.270314E-01_JPRB, 0.245694E-01_JPRB, 0.222986E-01_JPRB, 0.202090E-01_JPRB &
+  &, 0.183152E-01_JPRB, 0.165519E-01_JPRB, 0.149299E-01_JPRB &
+  &, 0.134602E-01_JPRB, 0.120977E-01_JPRB, 0.108506E-01_JPRB, 0.972773E-02_JPRB &
+  &, 0.870798E-02_JPRB, 0.779882E-02_JPRB, 0.694568E-02_JPRB &
+  &, 0.618467E-02_JPRB, 0.552204E-02_JPRB, 0.489860E-02_JPRB, 0.435077E-02_JPRB &
+  &, 0.384947E-02_JPRB, 0.339793E-02_JPRB, 0.299943E-02_JPRB &
+  &, 0.265733E-02_JPRB, 0.233868E-02_JPRB, 0.204514E-02_JPRB, 0.177839E-02_JPRB &
+  &, 0.157842E-02_JPRB, 0.137112E-02_JPRB, 0.119589E-02_JPRB &
+  &, 0.105459E-02_JPRB, 0.908242E-03_JPRB, 0.798268E-03_JPRB, 0.684438E-03_JPRB &
+  &, 0.566698E-03_JPRB, 0.488494E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 325, :) = (/ &
+  &  0.951883E+00_JPRB, 0.939090E+00_JPRB, 0.926011E+00_JPRB, 0.912653E+00_JPRB &
+  &, 0.899024E+00_JPRB, 0.885137E+00_JPRB, 0.871000E+00_JPRB &
+  &, 0.856623E+00_JPRB, 0.842016E+00_JPRB, 0.827190E+00_JPRB, 0.812156E+00_JPRB &
+  &, 0.796925E+00_JPRB, 0.781510E+00_JPRB, 0.765919E+00_JPRB &
+  &, 0.750168E+00_JPRB, 0.734267E+00_JPRB, 0.718231E+00_JPRB, 0.702072E+00_JPRB &
+  &, 0.685804E+00_JPRB, 0.669439E+00_JPRB, 0.652998E+00_JPRB &
+  &, 0.636487E+00_JPRB, 0.619929E+00_JPRB, 0.603335E+00_JPRB, 0.586723E+00_JPRB &
+  &, 0.570106E+00_JPRB, 0.553505E+00_JPRB, 0.536935E+00_JPRB &
+  &, 0.520412E+00_JPRB, 0.503956E+00_JPRB, 0.487580E+00_JPRB, 0.471305E+00_JPRB &
+  &, 0.455148E+00_JPRB, 0.439125E+00_JPRB, 0.423256E+00_JPRB &
+  &, 0.407556E+00_JPRB, 0.392037E+00_JPRB, 0.376722E+00_JPRB, 0.361629E+00_JPRB &
+  &, 0.346776E+00_JPRB, 0.332160E+00_JPRB, 0.317822E+00_JPRB &
+  &, 0.303751E+00_JPRB, 0.289989E+00_JPRB, 0.276511E+00_JPRB, 0.263361E+00_JPRB &
+  &, 0.250535E+00_JPRB, 0.238052E+00_JPRB, 0.225905E+00_JPRB &
+  &, 0.214124E+00_JPRB, 0.202698E+00_JPRB, 0.191629E+00_JPRB, 0.180942E+00_JPRB &
+  &, 0.170620E+00_JPRB, 0.160686E+00_JPRB, 0.151118E+00_JPRB &
+  &, 0.141933E+00_JPRB, 0.133136E+00_JPRB, 0.124694E+00_JPRB, 0.116636E+00_JPRB &
+  &, 0.108958E+00_JPRB, 0.101617E+00_JPRB, 0.946544E-01_JPRB &
+  &, 0.880393E-01_JPRB, 0.817738E-01_JPRB, 0.758390E-01_JPRB, 0.702317E-01_JPRB &
+  &, 0.649466E-01_JPRB, 0.599763E-01_JPRB, 0.552901E-01_JPRB &
+  &, 0.509167E-01_JPRB, 0.467994E-01_JPRB, 0.429632E-01_JPRB, 0.393665E-01_JPRB &
+  &, 0.360318E-01_JPRB, 0.329355E-01_JPRB, 0.300507E-01_JPRB &
+  &, 0.273719E-01_JPRB, 0.248919E-01_JPRB, 0.226022E-01_JPRB, 0.204927E-01_JPRB &
+  &, 0.185519E-01_JPRB, 0.167932E-01_JPRB, 0.151485E-01_JPRB &
+  &, 0.136552E-01_JPRB, 0.122963E-01_JPRB, 0.110240E-01_JPRB, 0.990442E-02_JPRB &
+  &, 0.885795E-02_JPRB, 0.792100E-02_JPRB, 0.707008E-02_JPRB &
+  &, 0.631133E-02_JPRB, 0.561875E-02_JPRB, 0.499702E-02_JPRB, 0.441755E-02_JPRB &
+  &, 0.391743E-02_JPRB, 0.346707E-02_JPRB, 0.306976E-02_JPRB &
+  &, 0.269310E-02_JPRB, 0.237507E-02_JPRB, 0.208214E-02_JPRB, 0.181602E-02_JPRB &
+  &, 0.161668E-02_JPRB, 0.141001E-02_JPRB, 0.123542E-02_JPRB &
+  &, 0.105459E-02_JPRB, 0.908242E-03_JPRB, 0.798268E-03_JPRB, 0.684438E-03_JPRB &
+  &, 0.609521E-03_JPRB, 0.531994E-03_JPRB, 0.451819E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 326, :) = (/ &
+  &  0.952153E+00_JPRB, 0.939424E+00_JPRB, 0.926407E+00_JPRB, 0.913111E+00_JPRB &
+  &, 0.899543E+00_JPRB, 0.885715E+00_JPRB, 0.871635E+00_JPRB &
+  &, 0.857314E+00_JPRB, 0.842761E+00_JPRB, 0.827989E+00_JPRB, 0.813006E+00_JPRB &
+  &, 0.797824E+00_JPRB, 0.782455E+00_JPRB, 0.766912E+00_JPRB &
+  &, 0.751204E+00_JPRB, 0.735346E+00_JPRB, 0.719350E+00_JPRB, 0.703231E+00_JPRB &
+  &, 0.686998E+00_JPRB, 0.670670E+00_JPRB, 0.654260E+00_JPRB &
+  &, 0.637780E+00_JPRB, 0.621224E+00_JPRB, 0.604681E+00_JPRB, 0.588094E+00_JPRB &
+  &, 0.571499E+00_JPRB, 0.554917E+00_JPRB, 0.538367E+00_JPRB &
+  &, 0.521858E+00_JPRB, 0.505415E+00_JPRB, 0.489051E+00_JPRB, 0.472783E+00_JPRB &
+  &, 0.456632E+00_JPRB, 0.440611E+00_JPRB, 0.424743E+00_JPRB &
+  &, 0.409034E+00_JPRB, 0.393524E+00_JPRB, 0.378199E+00_JPRB, 0.363103E+00_JPRB &
+  &, 0.348236E+00_JPRB, 0.333614E+00_JPRB, 0.319259E+00_JPRB &
+  &, 0.305180E+00_JPRB, 0.291385E+00_JPRB, 0.277896E+00_JPRB, 0.264721E+00_JPRB &
+  &, 0.251879E+00_JPRB, 0.239366E+00_JPRB, 0.227187E+00_JPRB &
+  &, 0.215372E+00_JPRB, 0.203923E+00_JPRB, 0.192828E+00_JPRB, 0.182099E+00_JPRB &
+  &, 0.171762E+00_JPRB, 0.161781E+00_JPRB, 0.152193E+00_JPRB &
+  &, 0.142972E+00_JPRB, 0.134119E+00_JPRB, 0.125652E+00_JPRB, 0.117566E+00_JPRB &
+  &, 0.109841E+00_JPRB, 0.102485E+00_JPRB, 0.954709E-01_JPRB &
+  &, 0.888196E-01_JPRB, 0.825158E-01_JPRB, 0.765594E-01_JPRB, 0.709097E-01_JPRB &
+  &, 0.655997E-01_JPRB, 0.605828E-01_JPRB, 0.558683E-01_JPRB &
+  &, 0.514650E-01_JPRB, 0.473162E-01_JPRB, 0.434468E-01_JPRB, 0.398377E-01_JPRB &
+  &, 0.364669E-01_JPRB, 0.333328E-01_JPRB, 0.304084E-01_JPRB &
+  &, 0.277124E-01_JPRB, 0.252144E-01_JPRB, 0.229058E-01_JPRB, 0.207765E-01_JPRB &
+  &, 0.188149E-01_JPRB, 0.170345E-01_JPRB, 0.153671E-01_JPRB &
+  &, 0.138501E-01_JPRB, 0.124665E-01_JPRB, 0.111975E-01_JPRB, 0.100517E-01_JPRB &
+  &, 0.900791E-02_JPRB, 0.807372E-02_JPRB, 0.719449E-02_JPRB &
+  &, 0.640632E-02_JPRB, 0.571545E-02_JPRB, 0.509545E-02_JPRB, 0.451772E-02_JPRB &
+  &, 0.398538E-02_JPRB, 0.353621E-02_JPRB, 0.310493E-02_JPRB &
+  &, 0.276465E-02_JPRB, 0.241145E-02_JPRB, 0.211915E-02_JPRB, 0.185365E-02_JPRB &
+  &, 0.165493E-02_JPRB, 0.144889E-02_JPRB, 0.123542E-02_JPRB &
+  &, 0.109477E-02_JPRB, 0.949071E-03_JPRB, 0.798268E-03_JPRB, 0.726591E-03_JPRB &
+  &, 0.609521E-03_JPRB, 0.531994E-03_JPRB, 0.451819E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 327, :) = (/ &
+  &  0.952421E+00_JPRB, 0.939758E+00_JPRB, 0.926803E+00_JPRB, 0.913569E+00_JPRB &
+  &, 0.900062E+00_JPRB, 0.886292E+00_JPRB, 0.872270E+00_JPRB &
+  &, 0.858005E+00_JPRB, 0.843507E+00_JPRB, 0.828787E+00_JPRB, 0.813856E+00_JPRB &
+  &, 0.798723E+00_JPRB, 0.783403E+00_JPRB, 0.767904E+00_JPRB &
+  &, 0.752242E+00_JPRB, 0.736426E+00_JPRB, 0.720471E+00_JPRB, 0.704386E+00_JPRB &
+  &, 0.688194E+00_JPRB, 0.671901E+00_JPRB, 0.655521E+00_JPRB &
+  &, 0.639073E+00_JPRB, 0.622571E+00_JPRB, 0.606028E+00_JPRB, 0.589465E+00_JPRB &
+  &, 0.572892E+00_JPRB, 0.556333E+00_JPRB, 0.539798E+00_JPRB &
+  &, 0.523305E+00_JPRB, 0.506873E+00_JPRB, 0.490517E+00_JPRB, 0.474261E+00_JPRB &
+  &, 0.458113E+00_JPRB, 0.442098E+00_JPRB, 0.426231E+00_JPRB &
+  &, 0.410523E+00_JPRB, 0.395002E+00_JPRB, 0.379685E+00_JPRB, 0.364577E+00_JPRB &
+  &, 0.349695E+00_JPRB, 0.335069E+00_JPRB, 0.320696E+00_JPRB &
+  &, 0.306597E+00_JPRB, 0.292793E+00_JPRB, 0.279280E+00_JPRB, 0.266080E+00_JPRB &
+  &, 0.253211E+00_JPRB, 0.240681E+00_JPRB, 0.228483E+00_JPRB &
+  &, 0.216633E+00_JPRB, 0.205148E+00_JPRB, 0.194027E+00_JPRB, 0.183271E+00_JPRB &
+  &, 0.172889E+00_JPRB, 0.162890E+00_JPRB, 0.153253E+00_JPRB &
+  &, 0.144010E+00_JPRB, 0.135134E+00_JPRB, 0.126625E+00_JPRB, 0.118495E+00_JPRB &
+  &, 0.110740E+00_JPRB, 0.103336E+00_JPRB, 0.963051E-01_JPRB &
+  &, 0.896180E-01_JPRB, 0.832763E-01_JPRB, 0.772608E-01_JPRB, 0.715877E-01_JPRB &
+  &, 0.662331E-01_JPRB, 0.611893E-01_JPRB, 0.564672E-01_JPRB &
+  &, 0.520133E-01_JPRB, 0.478329E-01_JPRB, 0.439304E-01_JPRB, 0.402865E-01_JPRB &
+  &, 0.369021E-01_JPRB, 0.337300E-01_JPRB, 0.307898E-01_JPRB &
+  &, 0.280772E-01_JPRB, 0.255369E-01_JPRB, 0.232093E-01_JPRB, 0.210603E-01_JPRB &
+  &, 0.190779E-01_JPRB, 0.172757E-01_JPRB, 0.155857E-01_JPRB &
+  &, 0.140729E-01_JPRB, 0.126652E-01_JPRB, 0.113998E-01_JPRB, 0.102283E-01_JPRB &
+  &, 0.915788E-02_JPRB, 0.819590E-02_JPRB, 0.731890E-02_JPRB &
+  &, 0.653298E-02_JPRB, 0.581215E-02_JPRB, 0.516107E-02_JPRB, 0.458450E-02_JPRB &
+  &, 0.408731E-02_JPRB, 0.360535E-02_JPRB, 0.317527E-02_JPRB &
+  &, 0.280043E-02_JPRB, 0.248422E-02_JPRB, 0.215615E-02_JPRB, 0.189127E-02_JPRB &
+  &, 0.165493E-02_JPRB, 0.144889E-02_JPRB, 0.127495E-02_JPRB &
+  &, 0.109477E-02_JPRB, 0.949071E-03_JPRB, 0.839756E-03_JPRB, 0.726591E-03_JPRB &
+  &, 0.609521E-03_JPRB, 0.531994E-03_JPRB, 0.451819E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 328, :) = (/ &
+  &  0.952690E+00_JPRB, 0.940091E+00_JPRB, 0.927199E+00_JPRB, 0.914027E+00_JPRB &
+  &, 0.900579E+00_JPRB, 0.886869E+00_JPRB, 0.872904E+00_JPRB &
+  &, 0.858695E+00_JPRB, 0.844251E+00_JPRB, 0.829584E+00_JPRB, 0.814704E+00_JPRB &
+  &, 0.799621E+00_JPRB, 0.784349E+00_JPRB, 0.768896E+00_JPRB &
+  &, 0.753278E+00_JPRB, 0.737505E+00_JPRB, 0.721590E+00_JPRB, 0.705547E+00_JPRB &
+  &, 0.689390E+00_JPRB, 0.673128E+00_JPRB, 0.656782E+00_JPRB &
+  &, 0.640366E+00_JPRB, 0.623893E+00_JPRB, 0.607378E+00_JPRB, 0.590836E+00_JPRB &
+  &, 0.574289E+00_JPRB, 0.557745E+00_JPRB, 0.541229E+00_JPRB &
+  &, 0.524752E+00_JPRB, 0.508332E+00_JPRB, 0.491987E+00_JPRB, 0.475738E+00_JPRB &
+  &, 0.459601E+00_JPRB, 0.443589E+00_JPRB, 0.427723E+00_JPRB &
+  &, 0.412020E+00_JPRB, 0.396490E+00_JPRB, 0.381162E+00_JPRB, 0.366051E+00_JPRB &
+  &, 0.351165E+00_JPRB, 0.336512E+00_JPRB, 0.322133E+00_JPRB &
+  &, 0.308015E+00_JPRB, 0.294189E+00_JPRB, 0.280665E+00_JPRB, 0.267451E+00_JPRB &
+  &, 0.254555E+00_JPRB, 0.241996E+00_JPRB, 0.229778E+00_JPRB &
+  &, 0.217908E+00_JPRB, 0.206386E+00_JPRB, 0.195240E+00_JPRB, 0.184457E+00_JPRB &
+  &, 0.174031E+00_JPRB, 0.164000E+00_JPRB, 0.154328E+00_JPRB &
+  &, 0.145048E+00_JPRB, 0.136133E+00_JPRB, 0.127598E+00_JPRB, 0.119425E+00_JPRB &
+  &, 0.111640E+00_JPRB, 0.104204E+00_JPRB, 0.971216E-01_JPRB &
+  &, 0.903983E-01_JPRB, 0.840368E-01_JPRB, 0.779812E-01_JPRB, 0.722851E-01_JPRB &
+  &, 0.668862E-01_JPRB, 0.618161E-01_JPRB, 0.570454E-01_JPRB &
+  &, 0.525616E-01_JPRB, 0.483497E-01_JPRB, 0.444360E-01_JPRB, 0.407577E-01_JPRB &
+  &, 0.373372E-01_JPRB, 0.341273E-01_JPRB, 0.311713E-01_JPRB &
+  &, 0.284177E-01_JPRB, 0.258842E-01_JPRB, 0.235382E-01_JPRB, 0.213440E-01_JPRB &
+  &, 0.193409E-01_JPRB, 0.175170E-01_JPRB, 0.158316E-01_JPRB &
+  &, 0.142678E-01_JPRB, 0.128638E-01_JPRB, 0.115733E-01_JPRB, 0.103756E-01_JPRB &
+  &, 0.930785E-02_JPRB, 0.834862E-02_JPRB, 0.744331E-02_JPRB &
+  &, 0.665964E-02_JPRB, 0.590886E-02_JPRB, 0.525950E-02_JPRB, 0.468467E-02_JPRB &
+  &, 0.415527E-02_JPRB, 0.367449E-02_JPRB, 0.324561E-02_JPRB &
+  &, 0.287198E-02_JPRB, 0.252061E-02_JPRB, 0.223015E-02_JPRB, 0.196652E-02_JPRB &
+  &, 0.169319E-02_JPRB, 0.148778E-02_JPRB, 0.131448E-02_JPRB &
+  &, 0.113494E-02_JPRB, 0.989900E-03_JPRB, 0.839756E-03_JPRB, 0.726591E-03_JPRB &
+  &, 0.652344E-03_JPRB, 0.575493E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 329, :) = (/ &
+  &  0.952959E+00_JPRB, 0.940424E+00_JPRB, 0.927595E+00_JPRB, 0.914483E+00_JPRB &
+  &, 0.901097E+00_JPRB, 0.887446E+00_JPRB, 0.873538E+00_JPRB &
+  &, 0.859384E+00_JPRB, 0.844995E+00_JPRB, 0.830382E+00_JPRB, 0.815553E+00_JPRB &
+  &, 0.800519E+00_JPRB, 0.785294E+00_JPRB, 0.769888E+00_JPRB &
+  &, 0.754312E+00_JPRB, 0.738584E+00_JPRB, 0.722709E+00_JPRB, 0.706705E+00_JPRB &
+  &, 0.690584E+00_JPRB, 0.674359E+00_JPRB, 0.658047E+00_JPRB &
+  &, 0.641659E+00_JPRB, 0.625213E+00_JPRB, 0.608725E+00_JPRB, 0.592208E+00_JPRB &
+  &, 0.575682E+00_JPRB, 0.559160E+00_JPRB, 0.542660E+00_JPRB &
+  &, 0.526199E+00_JPRB, 0.509794E+00_JPRB, 0.493461E+00_JPRB, 0.477220E+00_JPRB &
+  &, 0.461086E+00_JPRB, 0.445080E+00_JPRB, 0.429216E+00_JPRB &
+  &, 0.413508E+00_JPRB, 0.397978E+00_JPRB, 0.382648E+00_JPRB, 0.367524E+00_JPRB &
+  &, 0.352625E+00_JPRB, 0.337977E+00_JPRB, 0.323570E+00_JPRB &
+  &, 0.309444E+00_JPRB, 0.295608E+00_JPRB, 0.282061E+00_JPRB, 0.268822E+00_JPRB &
+  &, 0.255899E+00_JPRB, 0.243323E+00_JPRB, 0.231074E+00_JPRB &
+  &, 0.219169E+00_JPRB, 0.207624E+00_JPRB, 0.196453E+00_JPRB, 0.185628E+00_JPRB &
+  &, 0.175187E+00_JPRB, 0.165110E+00_JPRB, 0.155418E+00_JPRB &
+  &, 0.146087E+00_JPRB, 0.137148E+00_JPRB, 0.128572E+00_JPRB, 0.120371E+00_JPRB &
+  &, 0.112540E+00_JPRB, 0.105072E+00_JPRB, 0.979559E-01_JPRB &
+  &, 0.911968E-01_JPRB, 0.847973E-01_JPRB, 0.787205E-01_JPRB, 0.729824E-01_JPRB &
+  &, 0.675591E-01_JPRB, 0.624428E-01_JPRB, 0.576442E-01_JPRB &
+  &, 0.531099E-01_JPRB, 0.488880E-01_JPRB, 0.449196E-01_JPRB, 0.412289E-01_JPRB &
+  &, 0.377723E-01_JPRB, 0.345479E-01_JPRB, 0.315528E-01_JPRB &
+  &, 0.287825E-01_JPRB, 0.262067E-01_JPRB, 0.238418E-01_JPRB, 0.216536E-01_JPRB &
+  &, 0.196302E-01_JPRB, 0.177583E-01_JPRB, 0.160502E-01_JPRB &
+  &, 0.144906E-01_JPRB, 0.130624E-01_JPRB, 0.117467E-01_JPRB, 0.105523E-01_JPRB &
+  &, 0.945781E-02_JPRB, 0.847080E-02_JPRB, 0.756771E-02_JPRB &
+  &, 0.675464E-02_JPRB, 0.603779E-02_JPRB, 0.535793E-02_JPRB, 0.475145E-02_JPRB &
+  &, 0.422322E-02_JPRB, 0.374363E-02_JPRB, 0.331595E-02_JPRB &
+  &, 0.290775E-02_JPRB, 0.259338E-02_JPRB, 0.226716E-02_JPRB, 0.200415E-02_JPRB &
+  &, 0.173144E-02_JPRB, 0.152667E-02_JPRB, 0.135401E-02_JPRB &
+  &, 0.117512E-02_JPRB, 0.103073E-02_JPRB, 0.881244E-03_JPRB, 0.768743E-03_JPRB &
+  &, 0.652344E-03_JPRB, 0.575493E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.374518E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART47',1,ZHOOK_HANDLE)
+END SUBROUTINE PART47
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART48
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART48',0,ZHOOK_HANDLE)
+
+XCW( 330, :) = (/ &
+  &  0.953227E+00_JPRB, 0.940756E+00_JPRB, 0.927989E+00_JPRB, 0.914941E+00_JPRB &
+  &, 0.901614E+00_JPRB, 0.888021E+00_JPRB, 0.874171E+00_JPRB &
+  &, 0.860074E+00_JPRB, 0.845740E+00_JPRB, 0.831178E+00_JPRB, 0.816400E+00_JPRB &
+  &, 0.801416E+00_JPRB, 0.786239E+00_JPRB, 0.770881E+00_JPRB &
+  &, 0.755350E+00_JPRB, 0.739663E+00_JPRB, 0.723828E+00_JPRB, 0.707863E+00_JPRB &
+  &, 0.691779E+00_JPRB, 0.675587E+00_JPRB, 0.659308E+00_JPRB &
+  &, 0.642953E+00_JPRB, 0.626535E+00_JPRB, 0.610075E+00_JPRB, 0.593582E+00_JPRB &
+  &, 0.577079E+00_JPRB, 0.560576E+00_JPRB, 0.544091E+00_JPRB &
+  &, 0.527645E+00_JPRB, 0.511253E+00_JPRB, 0.494936E+00_JPRB, 0.478702E+00_JPRB &
+  &, 0.462575E+00_JPRB, 0.446570E+00_JPRB, 0.430708E+00_JPRB &
+  &, 0.415006E+00_JPRB, 0.399475E+00_JPRB, 0.384134E+00_JPRB, 0.369008E+00_JPRB &
+  &, 0.354095E+00_JPRB, 0.339431E+00_JPRB, 0.325017E+00_JPRB &
+  &, 0.310883E+00_JPRB, 0.297016E+00_JPRB, 0.283457E+00_JPRB, 0.270194E+00_JPRB &
+  &, 0.257255E+00_JPRB, 0.244650E+00_JPRB, 0.232369E+00_JPRB &
+  &, 0.220444E+00_JPRB, 0.208876E+00_JPRB, 0.197666E+00_JPRB, 0.186814E+00_JPRB &
+  &, 0.176343E+00_JPRB, 0.166234E+00_JPRB, 0.156493E+00_JPRB &
+  &, 0.147140E+00_JPRB, 0.138163E+00_JPRB, 0.129545E+00_JPRB, 0.121317E+00_JPRB &
+  &, 0.113440E+00_JPRB, 0.105940E+00_JPRB, 0.987902E-01_JPRB &
+  &, 0.919952E-01_JPRB, 0.855578E-01_JPRB, 0.794409E-01_JPRB, 0.736604E-01_JPRB &
+  &, 0.682122E-01_JPRB, 0.630696E-01_JPRB, 0.582224E-01_JPRB &
+  &, 0.536793E-01_JPRB, 0.494263E-01_JPRB, 0.454252E-01_JPRB, 0.417001E-01_JPRB &
+  &, 0.382074E-01_JPRB, 0.349685E-01_JPRB, 0.319581E-01_JPRB &
+  &, 0.291474E-01_JPRB, 0.265540E-01_JPRB, 0.241454E-01_JPRB, 0.219373E-01_JPRB &
+  &, 0.198932E-01_JPRB, 0.180264E-01_JPRB, 0.162961E-01_JPRB &
+  &, 0.147134E-01_JPRB, 0.132610E-01_JPRB, 0.119202E-01_JPRB, 0.107290E-01_JPRB &
+  &, 0.960778E-02_JPRB, 0.862352E-02_JPRB, 0.769212E-02_JPRB &
+  &, 0.688130E-02_JPRB, 0.613449E-02_JPRB, 0.545635E-02_JPRB, 0.485162E-02_JPRB &
+  &, 0.432516E-02_JPRB, 0.381278E-02_JPRB, 0.338629E-02_JPRB &
+  &, 0.297930E-02_JPRB, 0.262977E-02_JPRB, 0.230416E-02_JPRB, 0.204177E-02_JPRB &
+  &, 0.176970E-02_JPRB, 0.156556E-02_JPRB, 0.135401E-02_JPRB &
+  &, 0.117512E-02_JPRB, 0.103073E-02_JPRB, 0.881244E-03_JPRB, 0.768743E-03_JPRB &
+  &, 0.695167E-03_JPRB, 0.575493E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.374518E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 331, :) = (/ &
+  &  0.953496E+00_JPRB, 0.941088E+00_JPRB, 0.928384E+00_JPRB, 0.915397E+00_JPRB &
+  &, 0.902130E+00_JPRB, 0.888596E+00_JPRB, 0.874804E+00_JPRB &
+  &, 0.860762E+00_JPRB, 0.846483E+00_JPRB, 0.831974E+00_JPRB, 0.817248E+00_JPRB &
+  &, 0.802314E+00_JPRB, 0.787185E+00_JPRB, 0.771872E+00_JPRB &
+  &, 0.756385E+00_JPRB, 0.740741E+00_JPRB, 0.724947E+00_JPRB, 0.709021E+00_JPRB &
+  &, 0.692973E+00_JPRB, 0.676818E+00_JPRB, 0.660570E+00_JPRB &
+  &, 0.644246E+00_JPRB, 0.627858E+00_JPRB, 0.611425E+00_JPRB, 0.594957E+00_JPRB &
+  &, 0.578472E+00_JPRB, 0.561992E+00_JPRB, 0.545526E+00_JPRB &
+  &, 0.529096E+00_JPRB, 0.512719E+00_JPRB, 0.496410E+00_JPRB, 0.480183E+00_JPRB &
+  &, 0.464063E+00_JPRB, 0.448066E+00_JPRB, 0.432205E+00_JPRB &
+  &, 0.416494E+00_JPRB, 0.400963E+00_JPRB, 0.385620E+00_JPRB, 0.370482E+00_JPRB &
+  &, 0.355575E+00_JPRB, 0.340896E+00_JPRB, 0.326465E+00_JPRB &
+  &, 0.312312E+00_JPRB, 0.298435E+00_JPRB, 0.284854E+00_JPRB, 0.271577E+00_JPRB &
+  &, 0.258612E+00_JPRB, 0.245977E+00_JPRB, 0.233678E+00_JPRB &
+  &, 0.221718E+00_JPRB, 0.210128E+00_JPRB, 0.198879E+00_JPRB, 0.187999E+00_JPRB &
+  &, 0.177499E+00_JPRB, 0.167358E+00_JPRB, 0.157583E+00_JPRB &
+  &, 0.148194E+00_JPRB, 0.139178E+00_JPRB, 0.130535E+00_JPRB, 0.122263E+00_JPRB &
+  &, 0.114356E+00_JPRB, 0.106825E+00_JPRB, 0.996422E-01_JPRB &
+  &, 0.928118E-01_JPRB, 0.863183E-01_JPRB, 0.801802E-01_JPRB, 0.743772E-01_JPRB &
+  &, 0.688852E-01_JPRB, 0.636963E-01_JPRB, 0.588213E-01_JPRB &
+  &, 0.542486E-01_JPRB, 0.499646E-01_JPRB, 0.459308E-01_JPRB, 0.421713E-01_JPRB &
+  &, 0.386654E-01_JPRB, 0.353891E-01_JPRB, 0.323395E-01_JPRB &
+  &, 0.295122E-01_JPRB, 0.269013E-01_JPRB, 0.244743E-01_JPRB, 0.222469E-01_JPRB &
+  &, 0.201825E-01_JPRB, 0.182677E-01_JPRB, 0.165147E-01_JPRB &
+  &, 0.149361E-01_JPRB, 0.134596E-01_JPRB, 0.121226E-01_JPRB, 0.108762E-01_JPRB &
+  &, 0.978773E-02_JPRB, 0.874570E-02_JPRB, 0.784763E-02_JPRB &
+  &, 0.700796E-02_JPRB, 0.623120E-02_JPRB, 0.555478E-02_JPRB, 0.495180E-02_JPRB &
+  &, 0.439311E-02_JPRB, 0.388192E-02_JPRB, 0.345663E-02_JPRB &
+  &, 0.305085E-02_JPRB, 0.266615E-02_JPRB, 0.237816E-02_JPRB, 0.207940E-02_JPRB &
+  &, 0.180795E-02_JPRB, 0.160445E-02_JPRB, 0.139354E-02_JPRB &
+  &, 0.121529E-02_JPRB, 0.107156E-02_JPRB, 0.922732E-03_JPRB, 0.810895E-03_JPRB &
+  &, 0.695167E-03_JPRB, 0.618992E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.374518E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 332, :) = (/ &
+  &  0.953763E+00_JPRB, 0.941420E+00_JPRB, 0.928779E+00_JPRB, 0.915852E+00_JPRB &
+  &, 0.902647E+00_JPRB, 0.889171E+00_JPRB, 0.875436E+00_JPRB &
+  &, 0.861451E+00_JPRB, 0.847225E+00_JPRB, 0.832769E+00_JPRB, 0.818094E+00_JPRB &
+  &, 0.803210E+00_JPRB, 0.788129E+00_JPRB, 0.772862E+00_JPRB &
+  &, 0.757421E+00_JPRB, 0.741818E+00_JPRB, 0.726066E+00_JPRB, 0.710178E+00_JPRB &
+  &, 0.694169E+00_JPRB, 0.678049E+00_JPRB, 0.661834E+00_JPRB &
+  &, 0.645539E+00_JPRB, 0.629181E+00_JPRB, 0.612771E+00_JPRB, 0.596328E+00_JPRB &
+  &, 0.579868E+00_JPRB, 0.563407E+00_JPRB, 0.546961E+00_JPRB &
+  &, 0.530546E+00_JPRB, 0.514182E+00_JPRB, 0.497884E+00_JPRB, 0.481669E+00_JPRB &
+  &, 0.465557E+00_JPRB, 0.449561E+00_JPRB, 0.433702E+00_JPRB &
+  &, 0.417992E+00_JPRB, 0.402460E+00_JPRB, 0.387116E+00_JPRB, 0.371976E+00_JPRB &
+  &, 0.357045E+00_JPRB, 0.342361E+00_JPRB, 0.327924E+00_JPRB &
+  &, 0.313752E+00_JPRB, 0.299854E+00_JPRB, 0.286250E+00_JPRB, 0.272948E+00_JPRB &
+  &, 0.259968E+00_JPRB, 0.247304E+00_JPRB, 0.234986E+00_JPRB &
+  &, 0.223006E+00_JPRB, 0.211379E+00_JPRB, 0.200106E+00_JPRB, 0.189199E+00_JPRB &
+  &, 0.178655E+00_JPRB, 0.168483E+00_JPRB, 0.158689E+00_JPRB &
+  &, 0.149264E+00_JPRB, 0.140209E+00_JPRB, 0.131525E+00_JPRB, 0.123225E+00_JPRB &
+  &, 0.115273E+00_JPRB, 0.107710E+00_JPRB, 0.100494E+00_JPRB &
+  &, 0.936284E-01_JPRB, 0.870974E-01_JPRB, 0.809195E-01_JPRB, 0.750746E-01_JPRB &
+  &, 0.695581E-01_JPRB, 0.643433E-01_JPRB, 0.594408E-01_JPRB &
+  &, 0.548180E-01_JPRB, 0.505029E-01_JPRB, 0.464364E-01_JPRB, 0.426425E-01_JPRB &
+  &, 0.391005E-01_JPRB, 0.358098E-01_JPRB, 0.327449E-01_JPRB &
+  &, 0.298770E-01_JPRB, 0.272486E-01_JPRB, 0.248032E-01_JPRB, 0.225307E-01_JPRB &
+  &, 0.204455E-01_JPRB, 0.185358E-01_JPRB, 0.167607E-01_JPRB &
+  &, 0.151311E-01_JPRB, 0.136583E-01_JPRB, 0.122960E-01_JPRB, 0.110529E-01_JPRB &
+  &, 0.993770E-02_JPRB, 0.889842E-02_JPRB, 0.797203E-02_JPRB &
+  &, 0.713462E-02_JPRB, 0.636013E-02_JPRB, 0.565321E-02_JPRB, 0.505197E-02_JPRB &
+  &, 0.446107E-02_JPRB, 0.395106E-02_JPRB, 0.352697E-02_JPRB &
+  &, 0.308662E-02_JPRB, 0.273892E-02_JPRB, 0.241517E-02_JPRB, 0.211702E-02_JPRB &
+  &, 0.184620E-02_JPRB, 0.164334E-02_JPRB, 0.143307E-02_JPRB &
+  &, 0.125547E-02_JPRB, 0.107156E-02_JPRB, 0.964220E-03_JPRB, 0.810895E-03_JPRB &
+  &, 0.695167E-03_JPRB, 0.618992E-03_JPRB, 0.540183E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.374518E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 333, :) = (/ &
+  &  0.954029E+00_JPRB, 0.941751E+00_JPRB, 0.929172E+00_JPRB, 0.916308E+00_JPRB &
+  &, 0.903162E+00_JPRB, 0.889746E+00_JPRB, 0.876068E+00_JPRB &
+  &, 0.862139E+00_JPRB, 0.847968E+00_JPRB, 0.833565E+00_JPRB, 0.818941E+00_JPRB &
+  &, 0.804106E+00_JPRB, 0.789074E+00_JPRB, 0.773850E+00_JPRB &
+  &, 0.758456E+00_JPRB, 0.742896E+00_JPRB, 0.727185E+00_JPRB, 0.711336E+00_JPRB &
+  &, 0.695363E+00_JPRB, 0.679277E+00_JPRB, 0.663096E+00_JPRB &
+  &, 0.646835E+00_JPRB, 0.630503E+00_JPRB, 0.614121E+00_JPRB, 0.597703E+00_JPRB &
+  &, 0.581269E+00_JPRB, 0.564827E+00_JPRB, 0.548399E+00_JPRB &
+  &, 0.532001E+00_JPRB, 0.515648E+00_JPRB, 0.499363E+00_JPRB, 0.483155E+00_JPRB &
+  &, 0.467050E+00_JPRB, 0.451061E+00_JPRB, 0.435203E+00_JPRB &
+  &, 0.419498E+00_JPRB, 0.403957E+00_JPRB, 0.388613E+00_JPRB, 0.373460E+00_JPRB &
+  &, 0.358525E+00_JPRB, 0.343826E+00_JPRB, 0.329382E+00_JPRB &
+  &, 0.315191E+00_JPRB, 0.301273E+00_JPRB, 0.287658E+00_JPRB, 0.274331E+00_JPRB &
+  &, 0.261324E+00_JPRB, 0.248644E+00_JPRB, 0.236294E+00_JPRB &
+  &, 0.224294E+00_JPRB, 0.212631E+00_JPRB, 0.201333E+00_JPRB, 0.190399E+00_JPRB &
+  &, 0.179825E+00_JPRB, 0.169622E+00_JPRB, 0.159779E+00_JPRB &
+  &, 0.150317E+00_JPRB, 0.141240E+00_JPRB, 0.132531E+00_JPRB, 0.124188E+00_JPRB &
+  &, 0.116207E+00_JPRB, 0.108596E+00_JPRB, 0.101328E+00_JPRB &
+  &, 0.944450E-01_JPRB, 0.878764E-01_JPRB, 0.816589E-01_JPRB, 0.757913E-01_JPRB &
+  &, 0.702310E-01_JPRB, 0.649903E-01_JPRB, 0.600396E-01_JPRB &
+  &, 0.554085E-01_JPRB, 0.510412E-01_JPRB, 0.469639E-01_JPRB, 0.431361E-01_JPRB &
+  &, 0.395585E-01_JPRB, 0.362304E-01_JPRB, 0.331502E-01_JPRB &
+  &, 0.302662E-01_JPRB, 0.275959E-01_JPRB, 0.251321E-01_JPRB, 0.228402E-01_JPRB &
+  &, 0.207348E-01_JPRB, 0.188039E-01_JPRB, 0.170066E-01_JPRB &
+  &, 0.153539E-01_JPRB, 0.138569E-01_JPRB, 0.124984E-01_JPRB, 0.112296E-01_JPRB &
+  &, 0.100877E-01_JPRB, 0.905114E-02_JPRB, 0.809644E-02_JPRB &
+  &, 0.722961E-02_JPRB, 0.645684E-02_JPRB, 0.575164E-02_JPRB, 0.511875E-02_JPRB &
+  &, 0.456300E-02_JPRB, 0.405477E-02_JPRB, 0.356214E-02_JPRB &
+  &, 0.315817E-02_JPRB, 0.281169E-02_JPRB, 0.245217E-02_JPRB, 0.215465E-02_JPRB &
+  &, 0.188446E-02_JPRB, 0.168223E-02_JPRB, 0.147260E-02_JPRB &
+  &, 0.129565E-02_JPRB, 0.111239E-02_JPRB, 0.964220E-03_JPRB, 0.853048E-03_JPRB &
+  &, 0.737990E-03_JPRB, 0.618992E-03_JPRB, 0.540183E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.420083E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 334, :) = (/ &
+  &  0.954297E+00_JPRB, 0.942081E+00_JPRB, 0.929566E+00_JPRB, 0.916764E+00_JPRB &
+  &, 0.903678E+00_JPRB, 0.890320E+00_JPRB, 0.876700E+00_JPRB &
+  &, 0.862826E+00_JPRB, 0.848707E+00_JPRB, 0.834359E+00_JPRB, 0.819787E+00_JPRB &
+  &, 0.805002E+00_JPRB, 0.790017E+00_JPRB, 0.774843E+00_JPRB &
+  &, 0.759491E+00_JPRB, 0.743974E+00_JPRB, 0.728303E+00_JPRB, 0.712494E+00_JPRB &
+  &, 0.696557E+00_JPRB, 0.680507E+00_JPRB, 0.664360E+00_JPRB &
+  &, 0.648128E+00_JPRB, 0.631826E+00_JPRB, 0.615471E+00_JPRB, 0.599081E+00_JPRB &
+  &, 0.582666E+00_JPRB, 0.566246E+00_JPRB, 0.549834E+00_JPRB &
+  &, 0.533452E+00_JPRB, 0.517115E+00_JPRB, 0.500837E+00_JPRB, 0.484641E+00_JPRB &
+  &, 0.468543E+00_JPRB, 0.452561E+00_JPRB, 0.436705E+00_JPRB &
+  &, 0.420996E+00_JPRB, 0.405464E+00_JPRB, 0.390109E+00_JPRB, 0.374953E+00_JPRB &
+  &, 0.360005E+00_JPRB, 0.345301E+00_JPRB, 0.330830E+00_JPRB &
+  &, 0.316631E+00_JPRB, 0.302703E+00_JPRB, 0.289065E+00_JPRB, 0.275726E+00_JPRB &
+  &, 0.262693E+00_JPRB, 0.249983E+00_JPRB, 0.237616E+00_JPRB &
+  &, 0.225582E+00_JPRB, 0.213896E+00_JPRB, 0.202559E+00_JPRB, 0.191598E+00_JPRB &
+  &, 0.180982E+00_JPRB, 0.170746E+00_JPRB, 0.160884E+00_JPRB &
+  &, 0.151387E+00_JPRB, 0.142270E+00_JPRB, 0.133520E+00_JPRB, 0.125151E+00_JPRB &
+  &, 0.117140E+00_JPRB, 0.109481E+00_JPRB, 0.102198E+00_JPRB &
+  &, 0.952616E-01_JPRB, 0.886740E-01_JPRB, 0.824172E-01_JPRB, 0.765081E-01_JPRB &
+  &, 0.709039E-01_JPRB, 0.656373E-01_JPRB, 0.606591E-01_JPRB &
+  &, 0.559779E-01_JPRB, 0.515795E-01_JPRB, 0.474695E-01_JPRB, 0.436298E-01_JPRB &
+  &, 0.400165E-01_JPRB, 0.366744E-01_JPRB, 0.335555E-01_JPRB &
+  &, 0.306310E-01_JPRB, 0.279432E-01_JPRB, 0.254610E-01_JPRB, 0.231498E-01_JPRB &
+  &, 0.210241E-01_JPRB, 0.190452E-01_JPRB, 0.172525E-01_JPRB &
+  &, 0.156045E-01_JPRB, 0.140839E-01_JPRB, 0.126718E-01_JPRB, 0.114062E-01_JPRB &
+  &, 0.102676E-01_JPRB, 0.920386E-02_JPRB, 0.825195E-02_JPRB &
+  &, 0.735627E-02_JPRB, 0.658577E-02_JPRB, 0.585007E-02_JPRB, 0.521892E-02_JPRB &
+  &, 0.463096E-02_JPRB, 0.412391E-02_JPRB, 0.363248E-02_JPRB &
+  &, 0.322972E-02_JPRB, 0.284808E-02_JPRB, 0.252617E-02_JPRB, 0.222990E-02_JPRB &
+  &, 0.196097E-02_JPRB, 0.172112E-02_JPRB, 0.151213E-02_JPRB &
+  &, 0.129565E-02_JPRB, 0.115322E-02_JPRB, 0.100571E-02_JPRB, 0.853048E-03_JPRB &
+  &, 0.737990E-03_JPRB, 0.662492E-03_JPRB, 0.540183E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.420083E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 335, :) = (/ &
+  &  0.954562E+00_JPRB, 0.942412E+00_JPRB, 0.929960E+00_JPRB, 0.917218E+00_JPRB &
+  &, 0.904193E+00_JPRB, 0.890894E+00_JPRB, 0.877331E+00_JPRB &
+  &, 0.863513E+00_JPRB, 0.849451E+00_JPRB, 0.835153E+00_JPRB, 0.820633E+00_JPRB &
+  &, 0.805898E+00_JPRB, 0.790961E+00_JPRB, 0.775832E+00_JPRB &
+  &, 0.760525E+00_JPRB, 0.745051E+00_JPRB, 0.729422E+00_JPRB, 0.713652E+00_JPRB &
+  &, 0.697752E+00_JPRB, 0.681738E+00_JPRB, 0.665625E+00_JPRB &
+  &, 0.649424E+00_JPRB, 0.633152E+00_JPRB, 0.616825E+00_JPRB, 0.600456E+00_JPRB &
+  &, 0.584062E+00_JPRB, 0.567665E+00_JPRB, 0.551273E+00_JPRB &
+  &, 0.534906E+00_JPRB, 0.518581E+00_JPRB, 0.502320E+00_JPRB, 0.486132E+00_JPRB &
+  &, 0.470040E+00_JPRB, 0.454060E+00_JPRB, 0.438210E+00_JPRB &
+  &, 0.422503E+00_JPRB, 0.406962E+00_JPRB, 0.391605E+00_JPRB, 0.376437E+00_JPRB &
+  &, 0.361495E+00_JPRB, 0.346776E+00_JPRB, 0.332299E+00_JPRB &
+  &, 0.318082E+00_JPRB, 0.304133E+00_JPRB, 0.290473E+00_JPRB, 0.277110E+00_JPRB &
+  &, 0.264061E+00_JPRB, 0.251335E+00_JPRB, 0.238937E+00_JPRB &
+  &, 0.226869E+00_JPRB, 0.215161E+00_JPRB, 0.203800E+00_JPRB, 0.192798E+00_JPRB &
+  &, 0.182167E+00_JPRB, 0.171900E+00_JPRB, 0.161990E+00_JPRB &
+  &, 0.152471E+00_JPRB, 0.143317E+00_JPRB, 0.134526E+00_JPRB, 0.126113E+00_JPRB &
+  &, 0.118057E+00_JPRB, 0.110384E+00_JPRB, 0.103050E+00_JPRB &
+  &, 0.960782E-01_JPRB, 0.894531E-01_JPRB, 0.831755E-01_JPRB, 0.772248E-01_JPRB &
+  &, 0.715966E-01_JPRB, 0.662842E-01_JPRB, 0.612786E-01_JPRB &
+  &, 0.565683E-01_JPRB, 0.521394E-01_JPRB, 0.479971E-01_JPRB, 0.441234E-01_JPRB &
+  &, 0.404745E-01_JPRB, 0.370950E-01_JPRB, 0.339608E-01_JPRB &
+  &, 0.310201E-01_JPRB, 0.283153E-01_JPRB, 0.257899E-01_JPRB, 0.234594E-01_JPRB &
+  &, 0.213134E-01_JPRB, 0.193133E-01_JPRB, 0.174985E-01_JPRB &
+  &, 0.158273E-01_JPRB, 0.142825E-01_JPRB, 0.128742E-01_JPRB, 0.115829E-01_JPRB &
+  &, 0.104176E-01_JPRB, 0.935658E-02_JPRB, 0.837636E-02_JPRB &
+  &, 0.748293E-02_JPRB, 0.668248E-02_JPRB, 0.598130E-02_JPRB, 0.531909E-02_JPRB &
+  &, 0.473289E-02_JPRB, 0.419305E-02_JPRB, 0.370282E-02_JPRB &
+  &, 0.330127E-02_JPRB, 0.292085E-02_JPRB, 0.256318E-02_JPRB, 0.226753E-02_JPRB &
+  &, 0.199922E-02_JPRB, 0.176001E-02_JPRB, 0.151213E-02_JPRB &
+  &, 0.133582E-02_JPRB, 0.115322E-02_JPRB, 0.100571E-02_JPRB, 0.895200E-03_JPRB &
+  &, 0.780813E-03_JPRB, 0.662492E-03_JPRB, 0.584365E-03_JPRB &
+  &, 0.503574E-03_JPRB, 0.420083E-03_JPRB, 0.380121E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 336, :) = (/ &
+  &  0.954830E+00_JPRB, 0.942742E+00_JPRB, 0.930353E+00_JPRB, 0.917673E+00_JPRB &
+  &, 0.904707E+00_JPRB, 0.891467E+00_JPRB, 0.877961E+00_JPRB &
+  &, 0.864200E+00_JPRB, 0.850192E+00_JPRB, 0.835948E+00_JPRB, 0.821478E+00_JPRB &
+  &, 0.806793E+00_JPRB, 0.791903E+00_JPRB, 0.776811E+00_JPRB &
+  &, 0.761560E+00_JPRB, 0.746128E+00_JPRB, 0.730540E+00_JPRB, 0.714809E+00_JPRB &
+  &, 0.698946E+00_JPRB, 0.682969E+00_JPRB, 0.666886E+00_JPRB &
+  &, 0.650717E+00_JPRB, 0.634475E+00_JPRB, 0.618175E+00_JPRB, 0.601831E+00_JPRB &
+  &, 0.585463E+00_JPRB, 0.569085E+00_JPRB, 0.552712E+00_JPRB &
+  &, 0.536361E+00_JPRB, 0.520052E+00_JPRB, 0.503798E+00_JPRB, 0.487622E+00_JPRB &
+  &, 0.471538E+00_JPRB, 0.455565E+00_JPRB, 0.439716E+00_JPRB &
+  &, 0.424010E+00_JPRB, 0.408468E+00_JPRB, 0.393101E+00_JPRB, 0.377931E+00_JPRB &
+  &, 0.362975E+00_JPRB, 0.348252E+00_JPRB, 0.333757E+00_JPRB &
+  &, 0.319532E+00_JPRB, 0.305564E+00_JPRB, 0.291893E+00_JPRB, 0.278505E+00_JPRB &
+  &, 0.265442E+00_JPRB, 0.252688E+00_JPRB, 0.240258E+00_JPRB &
+  &, 0.228170E+00_JPRB, 0.216426E+00_JPRB, 0.205041E+00_JPRB, 0.194012E+00_JPRB &
+  &, 0.183337E+00_JPRB, 0.173039E+00_JPRB, 0.163110E+00_JPRB &
+  &, 0.153541E+00_JPRB, 0.144364E+00_JPRB, 0.135532E+00_JPRB, 0.127093E+00_JPRB &
+  &, 0.119008E+00_JPRB, 0.111287E+00_JPRB, 0.103920E+00_JPRB &
+  &, 0.969130E-01_JPRB, 0.902507E-01_JPRB, 0.839337E-01_JPRB, 0.779415E-01_JPRB &
+  &, 0.722893E-01_JPRB, 0.669312E-01_JPRB, 0.618981E-01_JPRB &
+  &, 0.571588E-01_JPRB, 0.526992E-01_JPRB, 0.485247E-01_JPRB, 0.446171E-01_JPRB &
+  &, 0.409554E-01_JPRB, 0.375390E-01_JPRB, 0.343661E-01_JPRB &
+  &, 0.314093E-01_JPRB, 0.286626E-01_JPRB, 0.261188E-01_JPRB, 0.237689E-01_JPRB &
+  &, 0.216027E-01_JPRB, 0.195814E-01_JPRB, 0.177444E-01_JPRB &
+  &, 0.160500E-01_JPRB, 0.145095E-01_JPRB, 0.130765E-01_JPRB, 0.117596E-01_JPRB &
+  &, 0.105975E-01_JPRB, 0.950931E-02_JPRB, 0.853186E-02_JPRB &
+  &, 0.760959E-02_JPRB, 0.681141E-02_JPRB, 0.607973E-02_JPRB, 0.541926E-02_JPRB &
+  &, 0.480084E-02_JPRB, 0.426219E-02_JPRB, 0.380833E-02_JPRB &
+  &, 0.337282E-02_JPRB, 0.295724E-02_JPRB, 0.260018E-02_JPRB, 0.230515E-02_JPRB &
+  &, 0.203748E-02_JPRB, 0.179890E-02_JPRB, 0.155166E-02_JPRB &
+  &, 0.137600E-02_JPRB, 0.119405E-02_JPRB, 0.104720E-02_JPRB, 0.895200E-03_JPRB &
+  &, 0.780813E-03_JPRB, 0.662492E-03_JPRB, 0.584365E-03_JPRB &
+  &, 0.503574E-03_JPRB, 0.420083E-03_JPRB, 0.380121E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART48',1,ZHOOK_HANDLE)
+END SUBROUTINE PART48
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART49
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART49',0,ZHOOK_HANDLE)
+
+XCW( 337, :) = (/ &
+  &  0.955096E+00_JPRB, 0.943074E+00_JPRB, 0.930745E+00_JPRB, 0.918127E+00_JPRB &
+  &, 0.905221E+00_JPRB, 0.892040E+00_JPRB, 0.878592E+00_JPRB &
+  &, 0.864885E+00_JPRB, 0.850932E+00_JPRB, 0.836741E+00_JPRB, 0.822323E+00_JPRB &
+  &, 0.807687E+00_JPRB, 0.792846E+00_JPRB, 0.777811E+00_JPRB &
+  &, 0.762593E+00_JPRB, 0.747204E+00_JPRB, 0.731659E+00_JPRB, 0.715966E+00_JPRB &
+  &, 0.700142E+00_JPRB, 0.684197E+00_JPRB, 0.668151E+00_JPRB &
+  &, 0.652014E+00_JPRB, 0.635801E+00_JPRB, 0.619528E+00_JPRB, 0.603209E+00_JPRB &
+  &, 0.586863E+00_JPRB, 0.570504E+00_JPRB, 0.554150E+00_JPRB &
+  &, 0.537819E+00_JPRB, 0.521522E+00_JPRB, 0.505280E+00_JPRB, 0.489116E+00_JPRB &
+  &, 0.473039E+00_JPRB, 0.457069E+00_JPRB, 0.441222E+00_JPRB &
+  &, 0.425516E+00_JPRB, 0.409975E+00_JPRB, 0.394607E+00_JPRB, 0.379435E+00_JPRB &
+  &, 0.364466E+00_JPRB, 0.349727E+00_JPRB, 0.335227E+00_JPRB &
+  &, 0.320983E+00_JPRB, 0.307005E+00_JPRB, 0.293312E+00_JPRB, 0.279912E+00_JPRB &
+  &, 0.266811E+00_JPRB, 0.254040E+00_JPRB, 0.241592E+00_JPRB &
+  &, 0.229471E+00_JPRB, 0.217705E+00_JPRB, 0.206281E+00_JPRB, 0.195226E+00_JPRB &
+  &, 0.184522E+00_JPRB, 0.174193E+00_JPRB, 0.164231E+00_JPRB &
+  &, 0.154626E+00_JPRB, 0.145410E+00_JPRB, 0.136554E+00_JPRB, 0.128072E+00_JPRB &
+  &, 0.119941E+00_JPRB, 0.112189E+00_JPRB, 0.104790E+00_JPRB &
+  &, 0.977477E-01_JPRB, 0.910483E-01_JPRB, 0.846920E-01_JPRB, 0.786777E-01_JPRB &
+  &, 0.729820E-01_JPRB, 0.675984E-01_JPRB, 0.625176E-01_JPRB &
+  &, 0.577493E-01_JPRB, 0.532590E-01_JPRB, 0.490523E-01_JPRB, 0.451107E-01_JPRB &
+  &, 0.414134E-01_JPRB, 0.379830E-01_JPRB, 0.347714E-01_JPRB &
+  &, 0.317984E-01_JPRB, 0.290347E-01_JPRB, 0.264729E-01_JPRB, 0.240785E-01_JPRB &
+  &, 0.218920E-01_JPRB, 0.198763E-01_JPRB, 0.179903E-01_JPRB &
+  &, 0.163007E-01_JPRB, 0.147081E-01_JPRB, 0.132789E-01_JPRB, 0.119658E-01_JPRB &
+  &, 0.107475E-01_JPRB, 0.966203E-02_JPRB, 0.865627E-02_JPRB &
+  &, 0.773625E-02_JPRB, 0.694035E-02_JPRB, 0.617816E-02_JPRB, 0.551944E-02_JPRB &
+  &, 0.490278E-02_JPRB, 0.436591E-02_JPRB, 0.387867E-02_JPRB &
+  &, 0.340860E-02_JPRB, 0.303001E-02_JPRB, 0.267418E-02_JPRB, 0.234278E-02_JPRB &
+  &, 0.207573E-02_JPRB, 0.183779E-02_JPRB, 0.159119E-02_JPRB &
+  &, 0.141618E-02_JPRB, 0.123488E-02_JPRB, 0.104720E-02_JPRB, 0.937353E-03_JPRB &
+  &, 0.823636E-03_JPRB, 0.705991E-03_JPRB, 0.584365E-03_JPRB &
+  &, 0.503574E-03_JPRB, 0.465648E-03_JPRB, 0.380121E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 338, :) = (/ &
+  &  0.955362E+00_JPRB, 0.943402E+00_JPRB, 0.931138E+00_JPRB, 0.918580E+00_JPRB &
+  &, 0.905735E+00_JPRB, 0.892612E+00_JPRB, 0.879221E+00_JPRB &
+  &, 0.865571E+00_JPRB, 0.851672E+00_JPRB, 0.837534E+00_JPRB, 0.823166E+00_JPRB &
+  &, 0.808582E+00_JPRB, 0.793789E+00_JPRB, 0.778800E+00_JPRB &
+  &, 0.763627E+00_JPRB, 0.748281E+00_JPRB, 0.732776E+00_JPRB, 0.717123E+00_JPRB &
+  &, 0.701336E+00_JPRB, 0.685428E+00_JPRB, 0.669415E+00_JPRB &
+  &, 0.653307E+00_JPRB, 0.637124E+00_JPRB, 0.620878E+00_JPRB, 0.604588E+00_JPRB &
+  &, 0.588263E+00_JPRB, 0.571927E+00_JPRB, 0.555593E+00_JPRB &
+  &, 0.539274E+00_JPRB, 0.522993E+00_JPRB, 0.506767E+00_JPRB, 0.490611E+00_JPRB &
+  &, 0.474541E+00_JPRB, 0.458573E+00_JPRB, 0.442733E+00_JPRB &
+  &, 0.427033E+00_JPRB, 0.411482E+00_JPRB, 0.396112E+00_JPRB, 0.380939E+00_JPRB &
+  &, 0.365956E+00_JPRB, 0.351213E+00_JPRB, 0.336696E+00_JPRB &
+  &, 0.322434E+00_JPRB, 0.308447E+00_JPRB, 0.294732E+00_JPRB, 0.281307E+00_JPRB &
+  &, 0.268191E+00_JPRB, 0.255392E+00_JPRB, 0.242926E+00_JPRB &
+  &, 0.230785E+00_JPRB, 0.218983E+00_JPRB, 0.207535E+00_JPRB, 0.196440E+00_JPRB &
+  &, 0.185707E+00_JPRB, 0.175347E+00_JPRB, 0.165351E+00_JPRB &
+  &, 0.155726E+00_JPRB, 0.146457E+00_JPRB, 0.137576E+00_JPRB, 0.129051E+00_JPRB &
+  &, 0.120892E+00_JPRB, 0.113109E+00_JPRB, 0.105660E+00_JPRB &
+  &, 0.985825E-01_JPRB, 0.918644E-01_JPRB, 0.854693E-01_JPRB, 0.794138E-01_JPRB &
+  &, 0.736748E-01_JPRB, 0.682656E-01_JPRB, 0.631578E-01_JPRB &
+  &, 0.583397E-01_JPRB, 0.538189E-01_JPRB, 0.495798E-01_JPRB, 0.456043E-01_JPRB &
+  &, 0.418943E-01_JPRB, 0.384270E-01_JPRB, 0.352006E-01_JPRB &
+  &, 0.321876E-01_JPRB, 0.294068E-01_JPRB, 0.268018E-01_JPRB, 0.244139E-01_JPRB &
+  &, 0.221814E-01_JPRB, 0.201444E-01_JPRB, 0.182636E-01_JPRB &
+  &, 0.165234E-01_JPRB, 0.149351E-01_JPRB, 0.134812E-01_JPRB, 0.121424E-01_JPRB &
+  &, 0.109275E-01_JPRB, 0.981475E-02_JPRB, 0.881178E-02_JPRB &
+  &, 0.789457E-02_JPRB, 0.703705E-02_JPRB, 0.630940E-02_JPRB, 0.561961E-02_JPRB &
+  &, 0.500471E-02_JPRB, 0.443505E-02_JPRB, 0.394901E-02_JPRB &
+  &, 0.348015E-02_JPRB, 0.310278E-02_JPRB, 0.271119E-02_JPRB, 0.241803E-02_JPRB &
+  &, 0.211398E-02_JPRB, 0.187667E-02_JPRB, 0.163072E-02_JPRB &
+  &, 0.141618E-02_JPRB, 0.123488E-02_JPRB, 0.108868E-02_JPRB, 0.937353E-03_JPRB &
+  &, 0.823636E-03_JPRB, 0.705991E-03_JPRB, 0.628547E-03_JPRB &
+  &, 0.548444E-03_JPRB, 0.465648E-03_JPRB, 0.380121E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 339, :) = (/ &
+  &  0.955629E+00_JPRB, 0.943732E+00_JPRB, 0.931530E+00_JPRB, 0.919033E+00_JPRB &
+  &, 0.906248E+00_JPRB, 0.893184E+00_JPRB, 0.879850E+00_JPRB &
+  &, 0.866257E+00_JPRB, 0.852412E+00_JPRB, 0.838325E+00_JPRB, 0.824011E+00_JPRB &
+  &, 0.809475E+00_JPRB, 0.794731E+00_JPRB, 0.779788E+00_JPRB &
+  &, 0.764660E+00_JPRB, 0.749358E+00_JPRB, 0.733894E+00_JPRB, 0.718281E+00_JPRB &
+  &, 0.702532E+00_JPRB, 0.686659E+00_JPRB, 0.670680E+00_JPRB &
+  &, 0.654603E+00_JPRB, 0.638450E+00_JPRB, 0.622232E+00_JPRB, 0.605966E+00_JPRB &
+  &, 0.589664E+00_JPRB, 0.573350E+00_JPRB, 0.557032E+00_JPRB &
+  &, 0.540732E+00_JPRB, 0.524467E+00_JPRB, 0.508250E+00_JPRB, 0.492105E+00_JPRB &
+  &, 0.476043E+00_JPRB, 0.460082E+00_JPRB, 0.444243E+00_JPRB &
+  &, 0.428539E+00_JPRB, 0.412998E+00_JPRB, 0.397618E+00_JPRB, 0.382432E+00_JPRB &
+  &, 0.367457E+00_JPRB, 0.352699E+00_JPRB, 0.338165E+00_JPRB &
+  &, 0.323896E+00_JPRB, 0.309889E+00_JPRB, 0.296151E+00_JPRB, 0.282714E+00_JPRB &
+  &, 0.269584E+00_JPRB, 0.256757E+00_JPRB, 0.244260E+00_JPRB &
+  &, 0.232086E+00_JPRB, 0.220262E+00_JPRB, 0.208790E+00_JPRB, 0.197668E+00_JPRB &
+  &, 0.186907E+00_JPRB, 0.176501E+00_JPRB, 0.166472E+00_JPRB &
+  &, 0.156811E+00_JPRB, 0.147519E+00_JPRB, 0.138599E+00_JPRB, 0.130030E+00_JPRB &
+  &, 0.121842E+00_JPRB, 0.114012E+00_JPRB, 0.106547E+00_JPRB &
+  &, 0.994354E-01_JPRB, 0.926621E-01_JPRB, 0.862465E-01_JPRB, 0.801499E-01_JPRB &
+  &, 0.743873E-01_JPRB, 0.689328E-01_JPRB, 0.637979E-01_JPRB &
+  &, 0.589513E-01_JPRB, 0.544003E-01_JPRB, 0.501294E-01_JPRB, 0.461204E-01_JPRB &
+  &, 0.423752E-01_JPRB, 0.388710E-01_JPRB, 0.356297E-01_JPRB &
+  &, 0.325767E-01_JPRB, 0.297541E-01_JPRB, 0.271560E-01_JPRB, 0.247234E-01_JPRB &
+  &, 0.224970E-01_JPRB, 0.204125E-01_JPRB, 0.185095E-01_JPRB &
+  &, 0.167741E-01_JPRB, 0.151621E-01_JPRB, 0.136836E-01_JPRB, 0.123191E-01_JPRB &
+  &, 0.111074E-01_JPRB, 0.996747E-02_JPRB, 0.893619E-02_JPRB &
+  &, 0.802123E-02_JPRB, 0.716599E-02_JPRB, 0.640783E-02_JPRB, 0.571978E-02_JPRB &
+  &, 0.507267E-02_JPRB, 0.453876E-02_JPRB, 0.401935E-02_JPRB &
+  &, 0.355170E-02_JPRB, 0.313917E-02_JPRB, 0.278519E-02_JPRB, 0.245565E-02_JPRB &
+  &, 0.215224E-02_JPRB, 0.191556E-02_JPRB, 0.167025E-02_JPRB &
+  &, 0.145635E-02_JPRB, 0.127570E-02_JPRB, 0.113017E-02_JPRB, 0.979505E-03_JPRB &
+  &, 0.823636E-03_JPRB, 0.749491E-03_JPRB, 0.628547E-03_JPRB &
+  &, 0.548444E-03_JPRB, 0.465648E-03_JPRB, 0.426386E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 340, :) = (/ &
+  &  0.955893E+00_JPRB, 0.944061E+00_JPRB, 0.931921E+00_JPRB, 0.919486E+00_JPRB &
+  &, 0.906761E+00_JPRB, 0.893755E+00_JPRB, 0.880479E+00_JPRB &
+  &, 0.866941E+00_JPRB, 0.853151E+00_JPRB, 0.839119E+00_JPRB, 0.824855E+00_JPRB &
+  &, 0.810369E+00_JPRB, 0.795673E+00_JPRB, 0.780778E+00_JPRB &
+  &, 0.765694E+00_JPRB, 0.750435E+00_JPRB, 0.735012E+00_JPRB, 0.719438E+00_JPRB &
+  &, 0.703726E+00_JPRB, 0.687890E+00_JPRB, 0.671941E+00_JPRB &
+  &, 0.655900E+00_JPRB, 0.639776E+00_JPRB, 0.623585E+00_JPRB, 0.607344E+00_JPRB &
+  &, 0.591068E+00_JPRB, 0.574773E+00_JPRB, 0.558474E+00_JPRB &
+  &, 0.542191E+00_JPRB, 0.525942E+00_JPRB, 0.509736E+00_JPRB, 0.493599E+00_JPRB &
+  &, 0.477549E+00_JPRB, 0.461595E+00_JPRB, 0.445758E+00_JPRB &
+  &, 0.430055E+00_JPRB, 0.414515E+00_JPRB, 0.399134E+00_JPRB, 0.383946E+00_JPRB &
+  &, 0.368958E+00_JPRB, 0.354185E+00_JPRB, 0.339645E+00_JPRB &
+  &, 0.325358E+00_JPRB, 0.311330E+00_JPRB, 0.297582E+00_JPRB, 0.284121E+00_JPRB &
+  &, 0.270965E+00_JPRB, 0.258121E+00_JPRB, 0.245594E+00_JPRB &
+  &, 0.233400E+00_JPRB, 0.221554E+00_JPRB, 0.210044E+00_JPRB, 0.198896E+00_JPRB &
+  &, 0.188106E+00_JPRB, 0.177670E+00_JPRB, 0.167608E+00_JPRB &
+  &, 0.157911E+00_JPRB, 0.148582E+00_JPRB, 0.139621E+00_JPRB, 0.131026E+00_JPRB &
+  &, 0.122810E+00_JPRB, 0.114932E+00_JPRB, 0.107435E+00_JPRB &
+  &, 0.100288E+00_JPRB, 0.934782E-01_JPRB, 0.870238E-01_JPRB, 0.808860E-01_JPRB &
+  &, 0.750800E-01_JPRB, 0.696000E-01_JPRB, 0.644381E-01_JPRB &
+  &, 0.595628E-01_JPRB, 0.549816E-01_JPRB, 0.506789E-01_JPRB, 0.466365E-01_JPRB &
+  &, 0.428561E-01_JPRB, 0.393383E-01_JPRB, 0.360350E-01_JPRB &
+  &, 0.329902E-01_JPRB, 0.301510E-01_JPRB, 0.275102E-01_JPRB, 0.250588E-01_JPRB &
+  &, 0.227863E-01_JPRB, 0.207074E-01_JPRB, 0.187828E-01_JPRB &
+  &, 0.169968E-01_JPRB, 0.153891E-01_JPRB, 0.138860E-01_JPRB, 0.125253E-01_JPRB &
+  &, 0.112874E-01_JPRB, 0.101202E-01_JPRB, 0.909169E-02_JPRB &
+  &, 0.814789E-02_JPRB, 0.729492E-02_JPRB, 0.650625E-02_JPRB, 0.581995E-02_JPRB &
+  &, 0.517460E-02_JPRB, 0.460790E-02_JPRB, 0.408969E-02_JPRB &
+  &, 0.362324E-02_JPRB, 0.321194E-02_JPRB, 0.282219E-02_JPRB, 0.249328E-02_JPRB &
+  &, 0.219049E-02_JPRB, 0.195445E-02_JPRB, 0.170978E-02_JPRB &
+  &, 0.149653E-02_JPRB, 0.131653E-02_JPRB, 0.113017E-02_JPRB, 0.979505E-03_JPRB &
+  &, 0.866459E-03_JPRB, 0.749491E-03_JPRB, 0.672729E-03_JPRB &
+  &, 0.548444E-03_JPRB, 0.465648E-03_JPRB, 0.426386E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 341, :) = (/ &
+  &  0.956158E+00_JPRB, 0.944390E+00_JPRB, 0.932313E+00_JPRB, 0.919939E+00_JPRB &
+  &, 0.907273E+00_JPRB, 0.894327E+00_JPRB, 0.881108E+00_JPRB &
+  &, 0.867625E+00_JPRB, 0.853890E+00_JPRB, 0.839911E+00_JPRB, 0.825698E+00_JPRB &
+  &, 0.811262E+00_JPRB, 0.796614E+00_JPRB, 0.781766E+00_JPRB &
+  &, 0.766728E+00_JPRB, 0.751510E+00_JPRB, 0.736129E+00_JPRB, 0.720595E+00_JPRB &
+  &, 0.704921E+00_JPRB, 0.689121E+00_JPRB, 0.673206E+00_JPRB &
+  &, 0.657196E+00_JPRB, 0.641102E+00_JPRB, 0.624939E+00_JPRB, 0.608723E+00_JPRB &
+  &, 0.592472E+00_JPRB, 0.576196E+00_JPRB, 0.559920E+00_JPRB &
+  &, 0.543653E+00_JPRB, 0.527417E+00_JPRB, 0.511227E+00_JPRB, 0.495098E+00_JPRB &
+  &, 0.479055E+00_JPRB, 0.463108E+00_JPRB, 0.447273E+00_JPRB &
+  &, 0.431571E+00_JPRB, 0.416031E+00_JPRB, 0.400649E+00_JPRB, 0.385450E+00_JPRB &
+  &, 0.370458E+00_JPRB, 0.355671E+00_JPRB, 0.341125E+00_JPRB &
+  &, 0.326819E+00_JPRB, 0.312783E+00_JPRB, 0.299013E+00_JPRB, 0.285540E+00_JPRB &
+  &, 0.272358E+00_JPRB, 0.259486E+00_JPRB, 0.246941E+00_JPRB &
+  &, 0.234727E+00_JPRB, 0.222846E+00_JPRB, 0.211312E+00_JPRB, 0.200124E+00_JPRB &
+  &, 0.189305E+00_JPRB, 0.178838E+00_JPRB, 0.168743E+00_JPRB &
+  &, 0.159011E+00_JPRB, 0.149644E+00_JPRB, 0.140659E+00_JPRB, 0.132022E+00_JPRB &
+  &, 0.123761E+00_JPRB, 0.115870E+00_JPRB, 0.108322E+00_JPRB &
+  &, 0.101141E+00_JPRB, 0.942943E-01_JPRB, 0.878010E-01_JPRB, 0.816415E-01_JPRB &
+  &, 0.757925E-01_JPRB, 0.702874E-01_JPRB, 0.650782E-01_JPRB &
+  &, 0.601744E-01_JPRB, 0.555415E-01_JPRB, 0.512065E-01_JPRB, 0.471526E-01_JPRB &
+  &, 0.433370E-01_JPRB, 0.397823E-01_JPRB, 0.364880E-01_JPRB &
+  &, 0.333793E-01_JPRB, 0.305232E-01_JPRB, 0.278644E-01_JPRB, 0.253941E-01_JPRB &
+  &, 0.231019E-01_JPRB, 0.209755E-01_JPRB, 0.190287E-01_JPRB &
+  &, 0.172475E-01_JPRB, 0.156161E-01_JPRB, 0.140883E-01_JPRB, 0.127019E-01_JPRB &
+  &, 0.114374E-01_JPRB, 0.103035E-01_JPRB, 0.924720E-02_JPRB &
+  &, 0.827455E-02_JPRB, 0.742386E-02_JPRB, 0.663749E-02_JPRB, 0.592012E-02_JPRB &
+  &, 0.527653E-02_JPRB, 0.467704E-02_JPRB, 0.416003E-02_JPRB &
+  &, 0.369479E-02_JPRB, 0.328471E-02_JPRB, 0.289620E-02_JPRB, 0.256853E-02_JPRB &
+  &, 0.226700E-02_JPRB, 0.199334E-02_JPRB, 0.174931E-02_JPRB &
+  &, 0.153671E-02_JPRB, 0.131653E-02_JPRB, 0.117166E-02_JPRB, 0.102166E-02_JPRB &
+  &, 0.866459E-03_JPRB, 0.749491E-03_JPRB, 0.672729E-03_JPRB &
+  &, 0.593315E-03_JPRB, 0.511212E-03_JPRB, 0.426386E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 342, :) = (/ &
+  &  0.956423E+00_JPRB, 0.944718E+00_JPRB, 0.932704E+00_JPRB, 0.920391E+00_JPRB &
+  &, 0.907785E+00_JPRB, 0.894897E+00_JPRB, 0.881736E+00_JPRB &
+  &, 0.868310E+00_JPRB, 0.854628E+00_JPRB, 0.840702E+00_JPRB, 0.826541E+00_JPRB &
+  &, 0.812155E+00_JPRB, 0.797556E+00_JPRB, 0.782754E+00_JPRB &
+  &, 0.767760E+00_JPRB, 0.752587E+00_JPRB, 0.737247E+00_JPRB, 0.721752E+00_JPRB &
+  &, 0.706115E+00_JPRB, 0.690352E+00_JPRB, 0.674470E+00_JPRB &
+  &, 0.658492E+00_JPRB, 0.642428E+00_JPRB, 0.626292E+00_JPRB, 0.610105E+00_JPRB &
+  &, 0.593876E+00_JPRB, 0.577623E+00_JPRB, 0.561363E+00_JPRB &
+  &, 0.545115E+00_JPRB, 0.528891E+00_JPRB, 0.512714E+00_JPRB, 0.496601E+00_JPRB &
+  &, 0.480561E+00_JPRB, 0.464621E+00_JPRB, 0.448793E+00_JPRB &
+  &, 0.433097E+00_JPRB, 0.417547E+00_JPRB, 0.402165E+00_JPRB, 0.386964E+00_JPRB &
+  &, 0.371959E+00_JPRB, 0.357167E+00_JPRB, 0.342605E+00_JPRB &
+  &, 0.328292E+00_JPRB, 0.314236E+00_JPRB, 0.300456E+00_JPRB, 0.286959E+00_JPRB &
+  &, 0.273751E+00_JPRB, 0.260863E+00_JPRB, 0.248288E+00_JPRB &
+  &, 0.236041E+00_JPRB, 0.224138E+00_JPRB, 0.212580E+00_JPRB, 0.201366E+00_JPRB &
+  &, 0.190505E+00_JPRB, 0.180022E+00_JPRB, 0.169879E+00_JPRB &
+  &, 0.160127E+00_JPRB, 0.150723E+00_JPRB, 0.141697E+00_JPRB, 0.133034E+00_JPRB &
+  &, 0.124728E+00_JPRB, 0.116668E+00_JPRB, 0.109227E+00_JPRB &
+  &, 0.101994E+00_JPRB, 0.951290E-01_JPRB, 0.885783E-01_JPRB, 0.823970E-01_JPRB &
+  &, 0.765248E-01_JPRB, 0.709748E-01_JPRB, 0.657184E-01_JPRB &
+  &, 0.607859E-01_JPRB, 0.561444E-01_JPRB, 0.517780E-01_JPRB, 0.476687E-01_JPRB &
+  &, 0.438408E-01_JPRB, 0.402497E-01_JPRB, 0.369172E-01_JPRB &
+  &, 0.337928E-01_JPRB, 0.308953E-01_JPRB, 0.282186E-01_JPRB, 0.257037E-01_JPRB &
+  &, 0.234175E-01_JPRB, 0.212705E-01_JPRB, 0.193020E-01_JPRB &
+  &, 0.174981E-01_JPRB, 0.158431E-01_JPRB, 0.143196E-01_JPRB, 0.129081E-01_JPRB &
+  &, 0.116173E-01_JPRB, 0.104562E-01_JPRB, 0.940271E-02_JPRB &
+  &, 0.843288E-02_JPRB, 0.755280E-02_JPRB, 0.673592E-02_JPRB, 0.602029E-02_JPRB &
+  &, 0.537846E-02_JPRB, 0.478075E-02_JPRB, 0.426554E-02_JPRB &
+  &, 0.376634E-02_JPRB, 0.335748E-02_JPRB, 0.297020E-02_JPRB, 0.260615E-02_JPRB &
+  &, 0.230526E-02_JPRB, 0.203223E-02_JPRB, 0.178884E-02_JPRB &
+  &, 0.157688E-02_JPRB, 0.135736E-02_JPRB, 0.121315E-02_JPRB, 0.102166E-02_JPRB &
+  &, 0.909282E-03_JPRB, 0.792990E-03_JPRB, 0.672729E-03_JPRB &
+  &, 0.593315E-03_JPRB, 0.511212E-03_JPRB, 0.426386E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.252010E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 343, :) = (/ &
+  &  0.956689E+00_JPRB, 0.945047E+00_JPRB, 0.933094E+00_JPRB, 0.920843E+00_JPRB &
+  &, 0.908297E+00_JPRB, 0.895468E+00_JPRB, 0.882364E+00_JPRB &
+  &, 0.868994E+00_JPRB, 0.855367E+00_JPRB, 0.841494E+00_JPRB, 0.827384E+00_JPRB &
+  &, 0.813047E+00_JPRB, 0.798496E+00_JPRB, 0.783741E+00_JPRB &
+  &, 0.768793E+00_JPRB, 0.753662E+00_JPRB, 0.738364E+00_JPRB, 0.722909E+00_JPRB &
+  &, 0.707311E+00_JPRB, 0.691582E+00_JPRB, 0.675735E+00_JPRB &
+  &, 0.659789E+00_JPRB, 0.643754E+00_JPRB, 0.627649E+00_JPRB, 0.611483E+00_JPRB &
+  &, 0.595280E+00_JPRB, 0.579050E+00_JPRB, 0.562809E+00_JPRB &
+  &, 0.546578E+00_JPRB, 0.530370E+00_JPRB, 0.514204E+00_JPRB, 0.498099E+00_JPRB &
+  &, 0.482071E+00_JPRB, 0.466134E+00_JPRB, 0.450312E+00_JPRB &
+  &, 0.434613E+00_JPRB, 0.419064E+00_JPRB, 0.403681E+00_JPRB, 0.388478E+00_JPRB &
+  &, 0.373460E+00_JPRB, 0.358663E+00_JPRB, 0.344096E+00_JPRB &
+  &, 0.329765E+00_JPRB, 0.315689E+00_JPRB, 0.301899E+00_JPRB, 0.288378E+00_JPRB &
+  &, 0.275156E+00_JPRB, 0.262240E+00_JPRB, 0.249647E+00_JPRB &
+  &, 0.237368E+00_JPRB, 0.225444E+00_JPRB, 0.213848E+00_JPRB, 0.202608E+00_JPRB &
+  &, 0.191719E+00_JPRB, 0.181190E+00_JPRB, 0.171030E+00_JPRB &
+  &, 0.161227E+00_JPRB, 0.151801E+00_JPRB, 0.142736E+00_JPRB, 0.134047E+00_JPRB &
+  &, 0.125713E+00_JPRB, 0.117727E+00_JPRB, 0.110115E+00_JPRB &
+  &, 0.102865E+00_JPRB, 0.959452E-01_JPRB, 0.893745E-01_JPRB, 0.831525E-01_JPRB &
+  &, 0.772373E-01_JPRB, 0.716622E-01_JPRB, 0.663792E-01_JPRB &
+  &, 0.613975E-01_JPRB, 0.567257E-01_JPRB, 0.523276E-01_JPRB, 0.482072E-01_JPRB &
+  &, 0.443446E-01_JPRB, 0.407170E-01_JPRB, 0.373463E-01_JPRB &
+  &, 0.342063E-01_JPRB, 0.312922E-01_JPRB, 0.285728E-01_JPRB, 0.260391E-01_JPRB &
+  &, 0.237331E-01_JPRB, 0.215654E-01_JPRB, 0.195752E-01_JPRB &
+  &, 0.177487E-01_JPRB, 0.160701E-01_JPRB, 0.145219E-01_JPRB, 0.131142E-01_JPRB &
+  &, 0.118273E-01_JPRB, 0.106394E-01_JPRB, 0.955822E-02_JPRB &
+  &, 0.855954E-02_JPRB, 0.768173E-02_JPRB, 0.686716E-02_JPRB, 0.612046E-02_JPRB &
+  &, 0.548040E-02_JPRB, 0.488447E-02_JPRB, 0.433587E-02_JPRB &
+  &, 0.383789E-02_JPRB, 0.339387E-02_JPRB, 0.300721E-02_JPRB, 0.268140E-02_JPRB &
+  &, 0.234351E-02_JPRB, 0.207112E-02_JPRB, 0.182837E-02_JPRB &
+  &, 0.157688E-02_JPRB, 0.139819E-02_JPRB, 0.121315E-02_JPRB, 0.106381E-02_JPRB &
+  &, 0.909282E-03_JPRB, 0.792990E-03_JPRB, 0.716911E-03_JPRB &
+  &, 0.593315E-03_JPRB, 0.511212E-03_JPRB, 0.472651E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART49',1,ZHOOK_HANDLE)
+END SUBROUTINE PART49
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART50
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART50',0,ZHOOK_HANDLE)
+
+XCW( 344, :) = (/ &
+  &  0.956954E+00_JPRB, 0.945374E+00_JPRB, 0.933485E+00_JPRB, 0.921294E+00_JPRB &
+  &, 0.908808E+00_JPRB, 0.896038E+00_JPRB, 0.882990E+00_JPRB &
+  &, 0.869677E+00_JPRB, 0.856104E+00_JPRB, 0.842284E+00_JPRB, 0.828227E+00_JPRB &
+  &, 0.813939E+00_JPRB, 0.799437E+00_JPRB, 0.784728E+00_JPRB &
+  &, 0.769825E+00_JPRB, 0.754733E+00_JPRB, 0.739482E+00_JPRB, 0.724067E+00_JPRB &
+  &, 0.708505E+00_JPRB, 0.692813E+00_JPRB, 0.677003E+00_JPRB &
+  &, 0.661088E+00_JPRB, 0.645083E+00_JPRB, 0.629003E+00_JPRB, 0.612865E+00_JPRB &
+  &, 0.596684E+00_JPRB, 0.580476E+00_JPRB, 0.564256E+00_JPRB &
+  &, 0.548040E+00_JPRB, 0.531852E+00_JPRB, 0.515699E+00_JPRB, 0.499602E+00_JPRB &
+  &, 0.483582E+00_JPRB, 0.467656E+00_JPRB, 0.451836E+00_JPRB &
+  &, 0.436138E+00_JPRB, 0.420590E+00_JPRB, 0.405196E+00_JPRB, 0.389992E+00_JPRB &
+  &, 0.374971E+00_JPRB, 0.360160E+00_JPRB, 0.345587E+00_JPRB &
+  &, 0.331238E+00_JPRB, 0.317154E+00_JPRB, 0.303341E+00_JPRB, 0.289797E+00_JPRB &
+  &, 0.276561E+00_JPRB, 0.263617E+00_JPRB, 0.251007E+00_JPRB &
+  &, 0.238708E+00_JPRB, 0.226749E+00_JPRB, 0.215130E+00_JPRB, 0.203850E+00_JPRB &
+  &, 0.192933E+00_JPRB, 0.182374E+00_JPRB, 0.172181E+00_JPRB &
+  &, 0.162359E+00_JPRB, 0.152879E+00_JPRB, 0.143790E+00_JPRB, 0.135059E+00_JPRB &
+  &, 0.126680E+00_JPRB, 0.118682E+00_JPRB, 0.111020E+00_JPRB &
+  &, 0.103736E+00_JPRB, 0.967799E-01_JPRB, 0.901707E-01_JPRB, 0.839080E-01_JPRB &
+  &, 0.779696E-01_JPRB, 0.723496E-01_JPRB, 0.670400E-01_JPRB &
+  &, 0.620301E-01_JPRB, 0.573071E-01_JPRB, 0.528772E-01_JPRB, 0.487232E-01_JPRB &
+  &, 0.448255E-01_JPRB, 0.411844E-01_JPRB, 0.377993E-01_JPRB &
+  &, 0.346197E-01_JPRB, 0.316643E-01_JPRB, 0.289270E-01_JPRB, 0.264002E-01_JPRB &
+  &, 0.240487E-01_JPRB, 0.218603E-01_JPRB, 0.198485E-01_JPRB &
+  &, 0.179993E-01_JPRB, 0.162971E-01_JPRB, 0.147532E-01_JPRB, 0.133203E-01_JPRB &
+  &, 0.120072E-01_JPRB, 0.107922E-01_JPRB, 0.971373E-02_JPRB &
+  &, 0.871786E-02_JPRB, 0.781067E-02_JPRB, 0.699840E-02_JPRB, 0.625403E-02_JPRB &
+  &, 0.558233E-02_JPRB, 0.495361E-02_JPRB, 0.440621E-02_JPRB &
+  &, 0.390944E-02_JPRB, 0.346664E-02_JPRB, 0.308121E-02_JPRB, 0.271903E-02_JPRB &
+  &, 0.238176E-02_JPRB, 0.211001E-02_JPRB, 0.186790E-02_JPRB &
+  &, 0.161706E-02_JPRB, 0.143902E-02_JPRB, 0.125463E-02_JPRB, 0.110596E-02_JPRB &
+  &, 0.952105E-03_JPRB, 0.836490E-03_JPRB, 0.716911E-03_JPRB &
+  &, 0.638185E-03_JPRB, 0.556777E-03_JPRB, 0.472651E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 345, :) = (/ &
+  &  0.957218E+00_JPRB, 0.945703E+00_JPRB, 0.933875E+00_JPRB, 0.921745E+00_JPRB &
+  &, 0.909319E+00_JPRB, 0.896608E+00_JPRB, 0.883618E+00_JPRB &
+  &, 0.870360E+00_JPRB, 0.856842E+00_JPRB, 0.843075E+00_JPRB, 0.829068E+00_JPRB &
+  &, 0.814830E+00_JPRB, 0.800377E+00_JPRB, 0.785716E+00_JPRB &
+  &, 0.770857E+00_JPRB, 0.755815E+00_JPRB, 0.740598E+00_JPRB, 0.725224E+00_JPRB &
+  &, 0.709700E+00_JPRB, 0.694044E+00_JPRB, 0.678267E+00_JPRB &
+  &, 0.662385E+00_JPRB, 0.646410E+00_JPRB, 0.630359E+00_JPRB, 0.614247E+00_JPRB &
+  &, 0.598092E+00_JPRB, 0.581903E+00_JPRB, 0.565702E+00_JPRB &
+  &, 0.549506E+00_JPRB, 0.533331E+00_JPRB, 0.517190E+00_JPRB, 0.501109E+00_JPRB &
+  &, 0.485097E+00_JPRB, 0.469173E+00_JPRB, 0.453356E+00_JPRB &
+  &, 0.437664E+00_JPRB, 0.422115E+00_JPRB, 0.406722E+00_JPRB, 0.391505E+00_JPRB &
+  &, 0.376482E+00_JPRB, 0.361667E+00_JPRB, 0.347078E+00_JPRB &
+  &, 0.332722E+00_JPRB, 0.318618E+00_JPRB, 0.304784E+00_JPRB, 0.291227E+00_JPRB &
+  &, 0.277966E+00_JPRB, 0.265007E+00_JPRB, 0.252367E+00_JPRB &
+  &, 0.240035E+00_JPRB, 0.228055E+00_JPRB, 0.216398E+00_JPRB, 0.205106E+00_JPRB &
+  &, 0.194161E+00_JPRB, 0.183572E+00_JPRB, 0.173332E+00_JPRB &
+  &, 0.163474E+00_JPRB, 0.153973E+00_JPRB, 0.144845E+00_JPRB, 0.136071E+00_JPRB &
+  &, 0.127665E+00_JPRB, 0.119619E+00_JPRB, 0.111943E+00_JPRB &
+  &, 0.104607E+00_JPRB, 0.976146E-01_JPRB, 0.909858E-01_JPRB, 0.846828E-01_JPRB &
+  &, 0.787019E-01_JPRB, 0.730370E-01_JPRB, 0.677008E-01_JPRB &
+  &, 0.626628E-01_JPRB, 0.579100E-01_JPRB, 0.534487E-01_JPRB, 0.492618E-01_JPRB &
+  &, 0.453293E-01_JPRB, 0.416751E-01_JPRB, 0.382285E-01_JPRB &
+  &, 0.350332E-01_JPRB, 0.320612E-01_JPRB, 0.293065E-01_JPRB, 0.267356E-01_JPRB &
+  &, 0.243643E-01_JPRB, 0.221552E-01_JPRB, 0.201217E-01_JPRB &
+  &, 0.182500E-01_JPRB, 0.165525E-01_JPRB, 0.149556E-01_JPRB, 0.134970E-01_JPRB &
+  &, 0.121872E-01_JPRB, 0.109754E-01_JPRB, 0.986924E-02_JPRB &
+  &, 0.884452E-02_JPRB, 0.793961E-02_JPRB, 0.709682E-02_JPRB, 0.635420E-02_JPRB &
+  &, 0.568426E-02_JPRB, 0.505732E-02_JPRB, 0.447655E-02_JPRB &
+  &, 0.398099E-02_JPRB, 0.353941E-02_JPRB, 0.311821E-02_JPRB, 0.275666E-02_JPRB &
+  &, 0.245827E-02_JPRB, 0.214890E-02_JPRB, 0.190743E-02_JPRB &
+  &, 0.165724E-02_JPRB, 0.147985E-02_JPRB, 0.129612E-02_JPRB, 0.110596E-02_JPRB &
+  &, 0.994928E-03_JPRB, 0.836490E-03_JPRB, 0.716911E-03_JPRB &
+  &, 0.638185E-03_JPRB, 0.556777E-03_JPRB, 0.472651E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 346, :) = (/ &
+  &  0.957481E+00_JPRB, 0.946030E+00_JPRB, 0.934264E+00_JPRB, 0.922196E+00_JPRB &
+  &, 0.909830E+00_JPRB, 0.897177E+00_JPRB, 0.884244E+00_JPRB &
+  &, 0.871041E+00_JPRB, 0.857579E+00_JPRB, 0.843865E+00_JPRB, 0.829910E+00_JPRB &
+  &, 0.815723E+00_JPRB, 0.801317E+00_JPRB, 0.786703E+00_JPRB &
+  &, 0.771890E+00_JPRB, 0.756890E+00_JPRB, 0.741716E+00_JPRB, 0.726380E+00_JPRB &
+  &, 0.710896E+00_JPRB, 0.695275E+00_JPRB, 0.679532E+00_JPRB &
+  &, 0.663681E+00_JPRB, 0.647739E+00_JPRB, 0.631716E+00_JPRB, 0.615629E+00_JPRB &
+  &, 0.599496E+00_JPRB, 0.583334E+00_JPRB, 0.567152E+00_JPRB &
+  &, 0.550973E+00_JPRB, 0.534813E+00_JPRB, 0.518689E+00_JPRB, 0.502612E+00_JPRB &
+  &, 0.486611E+00_JPRB, 0.470695E+00_JPRB, 0.454884E+00_JPRB &
+  &, 0.439189E+00_JPRB, 0.423641E+00_JPRB, 0.408247E+00_JPRB, 0.393029E+00_JPRB &
+  &, 0.378003E+00_JPRB, 0.363174E+00_JPRB, 0.348569E+00_JPRB &
+  &, 0.334206E+00_JPRB, 0.320082E+00_JPRB, 0.306238E+00_JPRB, 0.292658E+00_JPRB &
+  &, 0.279372E+00_JPRB, 0.266397E+00_JPRB, 0.253726E+00_JPRB &
+  &, 0.241376E+00_JPRB, 0.229360E+00_JPRB, 0.217694E+00_JPRB, 0.206362E+00_JPRB &
+  &, 0.195375E+00_JPRB, 0.184756E+00_JPRB, 0.174498E+00_JPRB &
+  &, 0.164606E+00_JPRB, 0.155068E+00_JPRB, 0.145900E+00_JPRB, 0.137100E+00_JPRB &
+  &, 0.128650E+00_JPRB, 0.120574E+00_JPRB, 0.112848E+00_JPRB &
+  &, 0.105478E+00_JPRB, 0.984679E-01_JPRB, 0.917820E-01_JPRB, 0.854577E-01_JPRB &
+  &, 0.794341E-01_JPRB, 0.737446E-01_JPRB, 0.683616E-01_JPRB &
+  &, 0.632954E-01_JPRB, 0.585129E-01_JPRB, 0.540202E-01_JPRB, 0.498003E-01_JPRB &
+  &, 0.458560E-01_JPRB, 0.421425E-01_JPRB, 0.386815E-01_JPRB &
+  &, 0.354710E-01_JPRB, 0.324581E-01_JPRB, 0.296606E-01_JPRB, 0.270709E-01_JPRB &
+  &, 0.246799E-01_JPRB, 0.224501E-01_JPRB, 0.204223E-01_JPRB &
+  &, 0.185284E-01_JPRB, 0.167795E-01_JPRB, 0.151868E-01_JPRB, 0.137032E-01_JPRB &
+  &, 0.123671E-01_JPRB, 0.111587E-01_JPRB, 0.100247E-01_JPRB &
+  &, 0.900285E-02_JPRB, 0.806855E-02_JPRB, 0.722806E-02_JPRB, 0.645437E-02_JPRB &
+  &, 0.578620E-02_JPRB, 0.512646E-02_JPRB, 0.458206E-02_JPRB &
+  &, 0.405254E-02_JPRB, 0.361218E-02_JPRB, 0.319222E-02_JPRB, 0.283191E-02_JPRB &
+  &, 0.249653E-02_JPRB, 0.218779E-02_JPRB, 0.194696E-02_JPRB &
+  &, 0.169741E-02_JPRB, 0.147985E-02_JPRB, 0.129612E-02_JPRB, 0.114811E-02_JPRB &
+  &, 0.994928E-03_JPRB, 0.879989E-03_JPRB, 0.761093E-03_JPRB &
+  &, 0.638185E-03_JPRB, 0.556777E-03_JPRB, 0.472651E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 347, :) = (/ &
+  &  0.957745E+00_JPRB, 0.946357E+00_JPRB, 0.934654E+00_JPRB, 0.922646E+00_JPRB &
+  &, 0.910340E+00_JPRB, 0.897745E+00_JPRB, 0.884870E+00_JPRB &
+  &, 0.871724E+00_JPRB, 0.858315E+00_JPRB, 0.844654E+00_JPRB, 0.830751E+00_JPRB &
+  &, 0.816615E+00_JPRB, 0.802258E+00_JPRB, 0.787689E+00_JPRB &
+  &, 0.772922E+00_JPRB, 0.757965E+00_JPRB, 0.742833E+00_JPRB, 0.727537E+00_JPRB &
+  &, 0.712092E+00_JPRB, 0.696506E+00_JPRB, 0.680800E+00_JPRB &
+  &, 0.664981E+00_JPRB, 0.649068E+00_JPRB, 0.633073E+00_JPRB, 0.617014E+00_JPRB &
+  &, 0.600903E+00_JPRB, 0.584761E+00_JPRB, 0.568602E+00_JPRB &
+  &, 0.552439E+00_JPRB, 0.536296E+00_JPRB, 0.520184E+00_JPRB, 0.504123E+00_JPRB &
+  &, 0.488126E+00_JPRB, 0.472217E+00_JPRB, 0.456413E+00_JPRB &
+  &, 0.440724E+00_JPRB, 0.425177E+00_JPRB, 0.409772E+00_JPRB, 0.394553E+00_JPRB &
+  &, 0.379514E+00_JPRB, 0.364681E+00_JPRB, 0.350070E+00_JPRB &
+  &, 0.335690E+00_JPRB, 0.321558E+00_JPRB, 0.307693E+00_JPRB, 0.294101E+00_JPRB &
+  &, 0.280789E+00_JPRB, 0.267787E+00_JPRB, 0.255099E+00_JPRB &
+  &, 0.242729E+00_JPRB, 0.230679E+00_JPRB, 0.218976E+00_JPRB, 0.207618E+00_JPRB &
+  &, 0.196618E+00_JPRB, 0.185954E+00_JPRB, 0.175664E+00_JPRB &
+  &, 0.165737E+00_JPRB, 0.156162E+00_JPRB, 0.146954E+00_JPRB, 0.138129E+00_JPRB &
+  &, 0.129651E+00_JPRB, 0.121529E+00_JPRB, 0.113771E+00_JPRB &
+  &, 0.106367E+00_JPRB, 0.993211E-01_JPRB, 0.925972E-01_JPRB, 0.862326E-01_JPRB &
+  &, 0.801862E-01_JPRB, 0.744523E-01_JPRB, 0.690430E-01_JPRB &
+  &, 0.639281E-01_JPRB, 0.591158E-01_JPRB, 0.545918E-01_JPRB, 0.503388E-01_JPRB &
+  &, 0.463598E-01_JPRB, 0.426332E-01_JPRB, 0.391345E-01_JPRB &
+  &, 0.358845E-01_JPRB, 0.328551E-01_JPRB, 0.300401E-01_JPRB, 0.274321E-01_JPRB &
+  &, 0.249955E-01_JPRB, 0.227718E-01_JPRB, 0.206956E-01_JPRB &
+  &, 0.187791E-01_JPRB, 0.170349E-01_JPRB, 0.154181E-01_JPRB, 0.139093E-01_JPRB &
+  &, 0.125771E-01_JPRB, 0.113114E-01_JPRB, 0.101803E-01_JPRB &
+  &, 0.916117E-02_JPRB, 0.819748E-02_JPRB, 0.735930E-02_JPRB, 0.658793E-02_JPRB &
+  &, 0.588813E-02_JPRB, 0.523017E-02_JPRB, 0.465240E-02_JPRB &
+  &, 0.415987E-02_JPRB, 0.368495E-02_JPRB, 0.326622E-02_JPRB, 0.286953E-02_JPRB &
+  &, 0.253478E-02_JPRB, 0.226556E-02_JPRB, 0.198649E-02_JPRB &
+  &, 0.173759E-02_JPRB, 0.152068E-02_JPRB, 0.133761E-02_JPRB, 0.119027E-02_JPRB &
+  &, 0.103775E-02_JPRB, 0.879989E-03_JPRB, 0.761093E-03_JPRB &
+  &, 0.683056E-03_JPRB, 0.602342E-03_JPRB, 0.518916E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 348, :) = (/ &
+  &  0.958008E+00_JPRB, 0.946684E+00_JPRB, 0.935043E+00_JPRB, 0.923096E+00_JPRB &
+  &, 0.910850E+00_JPRB, 0.898314E+00_JPRB, 0.885496E+00_JPRB &
+  &, 0.872406E+00_JPRB, 0.859051E+00_JPRB, 0.845443E+00_JPRB, 0.831592E+00_JPRB &
+  &, 0.817506E+00_JPRB, 0.803196E+00_JPRB, 0.788676E+00_JPRB &
+  &, 0.773952E+00_JPRB, 0.759041E+00_JPRB, 0.743951E+00_JPRB, 0.728694E+00_JPRB &
+  &, 0.713287E+00_JPRB, 0.697737E+00_JPRB, 0.682064E+00_JPRB &
+  &, 0.666280E+00_JPRB, 0.650394E+00_JPRB, 0.634430E+00_JPRB, 0.618396E+00_JPRB &
+  &, 0.602315E+00_JPRB, 0.586191E+00_JPRB, 0.570052E+00_JPRB &
+  &, 0.553909E+00_JPRB, 0.537778E+00_JPRB, 0.521683E+00_JPRB, 0.505630E+00_JPRB &
+  &, 0.489645E+00_JPRB, 0.473744E+00_JPRB, 0.457942E+00_JPRB &
+  &, 0.442259E+00_JPRB, 0.426703E+00_JPRB, 0.411308E+00_JPRB, 0.396077E+00_JPRB &
+  &, 0.381035E+00_JPRB, 0.366198E+00_JPRB, 0.351572E+00_JPRB &
+  &, 0.337174E+00_JPRB, 0.323034E+00_JPRB, 0.309147E+00_JPRB, 0.295532E+00_JPRB &
+  &, 0.282206E+00_JPRB, 0.269189E+00_JPRB, 0.256471E+00_JPRB &
+  &, 0.244069E+00_JPRB, 0.232011E+00_JPRB, 0.220271E+00_JPRB, 0.208889E+00_JPRB &
+  &, 0.197846E+00_JPRB, 0.187167E+00_JPRB, 0.176830E+00_JPRB &
+  &, 0.166868E+00_JPRB, 0.157272E+00_JPRB, 0.148025E+00_JPRB, 0.139158E+00_JPRB &
+  &, 0.130636E+00_JPRB, 0.122501E+00_JPRB, 0.114694E+00_JPRB &
+  &, 0.107257E+00_JPRB, 0.100174E+00_JPRB, 0.934124E-01_JPRB, 0.870074E-01_JPRB &
+  &, 0.809185E-01_JPRB, 0.751599E-01_JPRB, 0.697245E-01_JPRB &
+  &, 0.645818E-01_JPRB, 0.597402E-01_JPRB, 0.551853E-01_JPRB, 0.508997E-01_JPRB &
+  &, 0.468865E-01_JPRB, 0.431239E-01_JPRB, 0.396113E-01_JPRB &
+  &, 0.363223E-01_JPRB, 0.332768E-01_JPRB, 0.304196E-01_JPRB, 0.277932E-01_JPRB &
+  &, 0.253374E-01_JPRB, 0.230667E-01_JPRB, 0.209688E-01_JPRB &
+  &, 0.190575E-01_JPRB, 0.172619E-01_JPRB, 0.156205E-01_JPRB, 0.141449E-01_JPRB &
+  &, 0.127570E-01_JPRB, 0.114947E-01_JPRB, 0.103358E-01_JPRB &
+  &, 0.928783E-02_JPRB, 0.835865E-02_JPRB, 0.749054E-02_JPRB, 0.668810E-02_JPRB &
+  &, 0.599006E-02_JPRB, 0.533389E-02_JPRB, 0.475791E-02_JPRB &
+  &, 0.423141E-02_JPRB, 0.375772E-02_JPRB, 0.334023E-02_JPRB, 0.294478E-02_JPRB &
+  &, 0.261129E-02_JPRB, 0.230445E-02_JPRB, 0.202602E-02_JPRB &
+  &, 0.177777E-02_JPRB, 0.156151E-02_JPRB, 0.137910E-02_JPRB, 0.119027E-02_JPRB &
+  &, 0.103775E-02_JPRB, 0.923489E-03_JPRB, 0.805275E-03_JPRB &
+  &, 0.683056E-03_JPRB, 0.602342E-03_JPRB, 0.518916E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 349, :) = (/ &
+  &  0.958271E+00_JPRB, 0.947010E+00_JPRB, 0.935432E+00_JPRB, 0.923546E+00_JPRB &
+  &, 0.911360E+00_JPRB, 0.898882E+00_JPRB, 0.886121E+00_JPRB &
+  &, 0.873087E+00_JPRB, 0.859788E+00_JPRB, 0.846233E+00_JPRB, 0.832433E+00_JPRB &
+  &, 0.818397E+00_JPRB, 0.804137E+00_JPRB, 0.789662E+00_JPRB &
+  &, 0.774984E+00_JPRB, 0.760116E+00_JPRB, 0.745067E+00_JPRB, 0.729851E+00_JPRB &
+  &, 0.714481E+00_JPRB, 0.698971E+00_JPRB, 0.683332E+00_JPRB &
+  &, 0.667577E+00_JPRB, 0.651724E+00_JPRB, 0.635787E+00_JPRB, 0.619782E+00_JPRB &
+  &, 0.603722E+00_JPRB, 0.587625E+00_JPRB, 0.571502E+00_JPRB &
+  &, 0.555379E+00_JPRB, 0.539265E+00_JPRB, 0.523182E+00_JPRB, 0.507141E+00_JPRB &
+  &, 0.491134E+00_JPRB, 0.475270E+00_JPRB, 0.459475E+00_JPRB &
+  &, 0.443793E+00_JPRB, 0.428238E+00_JPRB, 0.412843E+00_JPRB, 0.397611E+00_JPRB &
+  &, 0.382556E+00_JPRB, 0.367705E+00_JPRB, 0.353074E+00_JPRB &
+  &, 0.338669E+00_JPRB, 0.324510E+00_JPRB, 0.310601E+00_JPRB, 0.296975E+00_JPRB &
+  &, 0.283636E+00_JPRB, 0.270591E+00_JPRB, 0.257844E+00_JPRB &
+  &, 0.245423E+00_JPRB, 0.233330E+00_JPRB, 0.221567E+00_JPRB, 0.210159E+00_JPRB &
+  &, 0.199089E+00_JPRB, 0.188365E+00_JPRB, 0.178011E+00_JPRB &
+  &, 0.168015E+00_JPRB, 0.158382E+00_JPRB, 0.149096E+00_JPRB, 0.140187E+00_JPRB &
+  &, 0.131654E+00_JPRB, 0.123456E+00_JPRB, 0.115635E+00_JPRB &
+  &, 0.108146E+00_JPRB, 0.101028E+00_JPRB, 0.942465E-01_JPRB, 0.878016E-01_JPRB &
+  &, 0.816706E-01_JPRB, 0.758877E-01_JPRB, 0.704059E-01_JPRB &
+  &, 0.652355E-01_JPRB, 0.603431E-01_JPRB, 0.557568E-01_JPRB, 0.514383E-01_JPRB &
+  &, 0.473903E-01_JPRB, 0.436147E-01_JPRB, 0.400643E-01_JPRB &
+  &, 0.367600E-01_JPRB, 0.336737E-01_JPRB, 0.307991E-01_JPRB, 0.281286E-01_JPRB &
+  &, 0.256793E-01_JPRB, 0.233885E-01_JPRB, 0.212694E-01_JPRB &
+  &, 0.193082E-01_JPRB, 0.175172E-01_JPRB, 0.158517E-01_JPRB, 0.143510E-01_JPRB &
+  &, 0.129670E-01_JPRB, 0.116780E-01_JPRB, 0.105224E-01_JPRB &
+  &, 0.944616E-02_JPRB, 0.848759E-02_JPRB, 0.762177E-02_JPRB, 0.682166E-02_JPRB &
+  &, 0.609199E-02_JPRB, 0.543760E-02_JPRB, 0.482825E-02_JPRB &
+  &, 0.430296E-02_JPRB, 0.383049E-02_JPRB, 0.337723E-02_JPRB, 0.302003E-02_JPRB &
+  &, 0.264954E-02_JPRB, 0.234334E-02_JPRB, 0.206555E-02_JPRB &
+  &, 0.181794E-02_JPRB, 0.160234E-02_JPRB, 0.142059E-02_JPRB, 0.123242E-02_JPRB &
+  &, 0.108057E-02_JPRB, 0.923489E-03_JPRB, 0.805275E-03_JPRB &
+  &, 0.727926E-03_JPRB, 0.602342E-03_JPRB, 0.518916E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 350, :) = (/ &
+  &  0.958536E+00_JPRB, 0.947337E+00_JPRB, 0.935820E+00_JPRB, 0.923995E+00_JPRB &
+  &, 0.911869E+00_JPRB, 0.899450E+00_JPRB, 0.886747E+00_JPRB &
+  &, 0.873767E+00_JPRB, 0.860522E+00_JPRB, 0.847021E+00_JPRB, 0.833273E+00_JPRB &
+  &, 0.819287E+00_JPRB, 0.805076E+00_JPRB, 0.790648E+00_JPRB &
+  &, 0.776017E+00_JPRB, 0.761191E+00_JPRB, 0.746184E+00_JPRB, 0.731009E+00_JPRB &
+  &, 0.715677E+00_JPRB, 0.700202E+00_JPRB, 0.684596E+00_JPRB &
+  &, 0.668876E+00_JPRB, 0.653057E+00_JPRB, 0.637148E+00_JPRB, 0.621167E+00_JPRB &
+  &, 0.605134E+00_JPRB, 0.589056E+00_JPRB, 0.572956E+00_JPRB &
+  &, 0.556849E+00_JPRB, 0.540752E+00_JPRB, 0.524681E+00_JPRB, 0.508653E+00_JPRB &
+  &, 0.492687E+00_JPRB, 0.476801E+00_JPRB, 0.461008E+00_JPRB &
+  &, 0.445328E+00_JPRB, 0.429773E+00_JPRB, 0.414378E+00_JPRB, 0.399135E+00_JPRB &
+  &, 0.384088E+00_JPRB, 0.369223E+00_JPRB, 0.354575E+00_JPRB &
+  &, 0.340164E+00_JPRB, 0.325985E+00_JPRB, 0.312067E+00_JPRB, 0.298429E+00_JPRB &
+  &, 0.285066E+00_JPRB, 0.271993E+00_JPRB, 0.259229E+00_JPRB &
+  &, 0.246776E+00_JPRB, 0.234663E+00_JPRB, 0.222876E+00_JPRB, 0.211429E+00_JPRB &
+  &, 0.200332E+00_JPRB, 0.189579E+00_JPRB, 0.179192E+00_JPRB &
+  &, 0.169162E+00_JPRB, 0.159492E+00_JPRB, 0.150183E+00_JPRB, 0.141233E+00_JPRB &
+  &, 0.132656E+00_JPRB, 0.124428E+00_JPRB, 0.116558E+00_JPRB &
+  &, 0.109053E+00_JPRB, 0.101881E+00_JPRB, 0.950617E-01_JPRB, 0.885959E-01_JPRB &
+  &, 0.824425E-01_JPRB, 0.765954E-01_JPRB, 0.710874E-01_JPRB &
+  &, 0.658893E-01_JPRB, 0.609676E-01_JPRB, 0.563503E-01_JPRB, 0.519992E-01_JPRB &
+  &, 0.479170E-01_JPRB, 0.441054E-01_JPRB, 0.405411E-01_JPRB &
+  &, 0.371978E-01_JPRB, 0.340954E-01_JPRB, 0.311786E-01_JPRB, 0.284898E-01_JPRB &
+  &, 0.259949E-01_JPRB, 0.236834E-01_JPRB, 0.215700E-01_JPRB &
+  &, 0.195866E-01_JPRB, 0.177726E-01_JPRB, 0.160830E-01_JPRB, 0.145571E-01_JPRB &
+  &, 0.131470E-01_JPRB, 0.118612E-01_JPRB, 0.106779E-01_JPRB &
+  &, 0.960448E-02_JPRB, 0.861653E-02_JPRB, 0.775301E-02_JPRB, 0.692184E-02_JPRB &
+  &, 0.619393E-02_JPRB, 0.554131E-02_JPRB, 0.493376E-02_JPRB &
+  &, 0.437451E-02_JPRB, 0.390326E-02_JPRB, 0.345124E-02_JPRB, 0.305766E-02_JPRB &
+  &, 0.272605E-02_JPRB, 0.238223E-02_JPRB, 0.210508E-02_JPRB &
+  &, 0.185812E-02_JPRB, 0.164317E-02_JPRB, 0.142059E-02_JPRB, 0.127457E-02_JPRB &
+  &, 0.108057E-02_JPRB, 0.966988E-03_JPRB, 0.849457E-03_JPRB &
+  &, 0.727926E-03_JPRB, 0.647907E-03_JPRB, 0.565181E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART50',1,ZHOOK_HANDLE)
+END SUBROUTINE PART50
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART51
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART51',0,ZHOOK_HANDLE)
+
+XCW( 351, :) = (/ &
+  &  0.958798E+00_JPRB, 0.947663E+00_JPRB, 0.936208E+00_JPRB, 0.924445E+00_JPRB &
+  &, 0.912378E+00_JPRB, 0.900017E+00_JPRB, 0.887371E+00_JPRB &
+  &, 0.874448E+00_JPRB, 0.861258E+00_JPRB, 0.847810E+00_JPRB, 0.834113E+00_JPRB &
+  &, 0.820178E+00_JPRB, 0.806015E+00_JPRB, 0.791634E+00_JPRB &
+  &, 0.777047E+00_JPRB, 0.762265E+00_JPRB, 0.747302E+00_JPRB, 0.732166E+00_JPRB &
+  &, 0.716874E+00_JPRB, 0.701433E+00_JPRB, 0.685864E+00_JPRB &
+  &, 0.670176E+00_JPRB, 0.654386E+00_JPRB, 0.638508E+00_JPRB, 0.622552E+00_JPRB &
+  &, 0.606545E+00_JPRB, 0.590490E+00_JPRB, 0.574410E+00_JPRB &
+  &, 0.558324E+00_JPRB, 0.542242E+00_JPRB, 0.526184E+00_JPRB, 0.510168E+00_JPRB &
+  &, 0.494211E+00_JPRB, 0.478331E+00_JPRB, 0.462546E+00_JPRB &
+  &, 0.446863E+00_JPRB, 0.431318E+00_JPRB, 0.415913E+00_JPRB, 0.400679E+00_JPRB &
+  &, 0.385609E+00_JPRB, 0.370751E+00_JPRB, 0.356088E+00_JPRB &
+  &, 0.341659E+00_JPRB, 0.327472E+00_JPRB, 0.313533E+00_JPRB, 0.299872E+00_JPRB &
+  &, 0.286495E+00_JPRB, 0.273396E+00_JPRB, 0.260614E+00_JPRB &
+  &, 0.248143E+00_JPRB, 0.235995E+00_JPRB, 0.224186E+00_JPRB, 0.212699E+00_JPRB &
+  &, 0.201574E+00_JPRB, 0.190792E+00_JPRB, 0.180373E+00_JPRB &
+  &, 0.170309E+00_JPRB, 0.160602E+00_JPRB, 0.151270E+00_JPRB, 0.142279E+00_JPRB &
+  &, 0.133674E+00_JPRB, 0.125400E+00_JPRB, 0.117499E+00_JPRB &
+  &, 0.109960E+00_JPRB, 0.102753E+00_JPRB, 0.958958E-01_JPRB, 0.893901E-01_JPRB &
+  &, 0.831946E-01_JPRB, 0.773232E-01_JPRB, 0.717895E-01_JPRB &
+  &, 0.665430E-01_JPRB, 0.615920E-01_JPRB, 0.569439E-01_JPRB, 0.525602E-01_JPRB &
+  &, 0.484437E-01_JPRB, 0.445961E-01_JPRB, 0.409941E-01_JPRB &
+  &, 0.376356E-01_JPRB, 0.344923E-01_JPRB, 0.315834E-01_JPRB, 0.288509E-01_JPRB &
+  &, 0.263368E-01_JPRB, 0.240051E-01_JPRB, 0.218433E-01_JPRB &
+  &, 0.198651E-01_JPRB, 0.180280E-01_JPRB, 0.163432E-01_JPRB, 0.147927E-01_JPRB &
+  &, 0.133569E-01_JPRB, 0.120445E-01_JPRB, 0.108645E-01_JPRB &
+  &, 0.976281E-02_JPRB, 0.877770E-02_JPRB, 0.788425E-02_JPRB, 0.705540E-02_JPRB &
+  &, 0.629586E-02_JPRB, 0.564502E-02_JPRB, 0.500410E-02_JPRB &
+  &, 0.448184E-02_JPRB, 0.397604E-02_JPRB, 0.352524E-02_JPRB, 0.313291E-02_JPRB &
+  &, 0.276431E-02_JPRB, 0.246001E-02_JPRB, 0.214461E-02_JPRB &
+  &, 0.189830E-02_JPRB, 0.168400E-02_JPRB, 0.146207E-02_JPRB, 0.127457E-02_JPRB &
+  &, 0.112340E-02_JPRB, 0.966988E-03_JPRB, 0.849457E-03_JPRB &
+  &, 0.727926E-03_JPRB, 0.647907E-03_JPRB, 0.565181E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 352, :) = (/ &
+  &  0.959060E+00_JPRB, 0.947989E+00_JPRB, 0.936595E+00_JPRB, 0.924894E+00_JPRB &
+  &, 0.912887E+00_JPRB, 0.900584E+00_JPRB, 0.887996E+00_JPRB &
+  &, 0.875128E+00_JPRB, 0.861993E+00_JPRB, 0.848597E+00_JPRB, 0.834953E+00_JPRB &
+  &, 0.821067E+00_JPRB, 0.806952E+00_JPRB, 0.792619E+00_JPRB &
+  &, 0.778078E+00_JPRB, 0.763340E+00_JPRB, 0.748418E+00_JPRB, 0.733323E+00_JPRB &
+  &, 0.718069E+00_JPRB, 0.702667E+00_JPRB, 0.687132E+00_JPRB &
+  &, 0.671476E+00_JPRB, 0.655716E+00_JPRB, 0.639865E+00_JPRB, 0.623941E+00_JPRB &
+  &, 0.607956E+00_JPRB, 0.591924E+00_JPRB, 0.575864E+00_JPRB &
+  &, 0.559798E+00_JPRB, 0.543733E+00_JPRB, 0.527687E+00_JPRB, 0.511684E+00_JPRB &
+  &, 0.495738E+00_JPRB, 0.479862E+00_JPRB, 0.464083E+00_JPRB &
+  &, 0.448407E+00_JPRB, 0.432863E+00_JPRB, 0.417458E+00_JPRB, 0.402213E+00_JPRB &
+  &, 0.387141E+00_JPRB, 0.372268E+00_JPRB, 0.357600E+00_JPRB &
+  &, 0.343166E+00_JPRB, 0.328959E+00_JPRB, 0.315011E+00_JPRB, 0.301327E+00_JPRB &
+  &, 0.287925E+00_JPRB, 0.274810E+00_JPRB, 0.262000E+00_JPRB &
+  &, 0.249509E+00_JPRB, 0.237341E+00_JPRB, 0.225495E+00_JPRB, 0.213984E+00_JPRB &
+  &, 0.202832E+00_JPRB, 0.192020E+00_JPRB, 0.181569E+00_JPRB &
+  &, 0.171471E+00_JPRB, 0.161728E+00_JPRB, 0.152357E+00_JPRB, 0.143341E+00_JPRB &
+  &, 0.134693E+00_JPRB, 0.126390E+00_JPRB, 0.118457E+00_JPRB &
+  &, 0.110868E+00_JPRB, 0.103624E+00_JPRB, 0.967488E-01_JPRB, 0.901843E-01_JPRB &
+  &, 0.839664E-01_JPRB, 0.780713E-01_JPRB, 0.724709E-01_JPRB &
+  &, 0.671967E-01_JPRB, 0.622164E-01_JPRB, 0.575374E-01_JPRB, 0.531211E-01_JPRB &
+  &, 0.489933E-01_JPRB, 0.451102E-01_JPRB, 0.414710E-01_JPRB &
+  &, 0.380734E-01_JPRB, 0.349141E-01_JPRB, 0.319629E-01_JPRB, 0.292379E-01_JPRB &
+  &, 0.266787E-01_JPRB, 0.243268E-01_JPRB, 0.221439E-01_JPRB &
+  &, 0.201436E-01_JPRB, 0.182834E-01_JPRB, 0.165744E-01_JPRB, 0.149989E-01_JPRB &
+  &, 0.135669E-01_JPRB, 0.122278E-01_JPRB, 0.110200E-01_JPRB &
+  &, 0.992113E-02_JPRB, 0.890663E-02_JPRB, 0.801549E-02_JPRB, 0.715557E-02_JPRB &
+  &, 0.643177E-02_JPRB, 0.571416E-02_JPRB, 0.510961E-02_JPRB &
+  &, 0.455339E-02_JPRB, 0.404881E-02_JPRB, 0.359925E-02_JPRB, 0.317054E-02_JPRB &
+  &, 0.284081E-02_JPRB, 0.249890E-02_JPRB, 0.218414E-02_JPRB &
+  &, 0.193847E-02_JPRB, 0.172483E-02_JPRB, 0.150356E-02_JPRB, 0.131672E-02_JPRB &
+  &, 0.116622E-02_JPRB, 0.101049E-02_JPRB, 0.893639E-03_JPRB &
+  &, 0.772796E-03_JPRB, 0.647907E-03_JPRB, 0.565181E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 353, :) = (/ &
+  &  0.959323E+00_JPRB, 0.948314E+00_JPRB, 0.936983E+00_JPRB, 0.925342E+00_JPRB &
+  &, 0.913394E+00_JPRB, 0.901151E+00_JPRB, 0.888620E+00_JPRB &
+  &, 0.875809E+00_JPRB, 0.862727E+00_JPRB, 0.849385E+00_JPRB, 0.835792E+00_JPRB &
+  &, 0.821956E+00_JPRB, 0.807891E+00_JPRB, 0.793605E+00_JPRB &
+  &, 0.779110E+00_JPRB, 0.764416E+00_JPRB, 0.749536E+00_JPRB, 0.734480E+00_JPRB &
+  &, 0.719265E+00_JPRB, 0.703898E+00_JPRB, 0.688400E+00_JPRB &
+  &, 0.672779E+00_JPRB, 0.657049E+00_JPRB, 0.641229E+00_JPRB, 0.625327E+00_JPRB &
+  &, 0.609367E+00_JPRB, 0.593359E+00_JPRB, 0.577322E+00_JPRB &
+  &, 0.561272E+00_JPRB, 0.545223E+00_JPRB, 0.529194E+00_JPRB, 0.513203E+00_JPRB &
+  &, 0.497266E+00_JPRB, 0.481397E+00_JPRB, 0.465621E+00_JPRB &
+  &, 0.449951E+00_JPRB, 0.434408E+00_JPRB, 0.419003E+00_JPRB, 0.403747E+00_JPRB &
+  &, 0.388683E+00_JPRB, 0.373796E+00_JPRB, 0.359124E+00_JPRB &
+  &, 0.344672E+00_JPRB, 0.330446E+00_JPRB, 0.316489E+00_JPRB, 0.302782E+00_JPRB &
+  &, 0.289367E+00_JPRB, 0.276225E+00_JPRB, 0.263398E+00_JPRB &
+  &, 0.250876E+00_JPRB, 0.238673E+00_JPRB, 0.226805E+00_JPRB, 0.215282E+00_JPRB &
+  &, 0.204089E+00_JPRB, 0.193247E+00_JPRB, 0.182765E+00_JPRB &
+  &, 0.172633E+00_JPRB, 0.162854E+00_JPRB, 0.153444E+00_JPRB, 0.144403E+00_JPRB &
+  &, 0.135711E+00_JPRB, 0.127379E+00_JPRB, 0.119398E+00_JPRB &
+  &, 0.111775E+00_JPRB, 0.104515E+00_JPRB, 0.975830E-01_JPRB, 0.909979E-01_JPRB &
+  &, 0.847383E-01_JPRB, 0.787991E-01_JPRB, 0.731730E-01_JPRB &
+  &, 0.678716E-01_JPRB, 0.628624E-01_JPRB, 0.581309E-01_JPRB, 0.537045E-01_JPRB &
+  &, 0.495200E-01_JPRB, 0.456243E-01_JPRB, 0.419478E-01_JPRB &
+  &, 0.385355E-01_JPRB, 0.353358E-01_JPRB, 0.323677E-01_JPRB, 0.295990E-01_JPRB &
+  &, 0.270470E-01_JPRB, 0.246485E-01_JPRB, 0.224444E-01_JPRB &
+  &, 0.204221E-01_JPRB, 0.185387E-01_JPRB, 0.168057E-01_JPRB, 0.152344E-01_JPRB &
+  &, 0.137768E-01_JPRB, 0.124416E-01_JPRB, 0.112066E-01_JPRB &
+  &, 0.100795E-01_JPRB, 0.906780E-02_JPRB, 0.814672E-02_JPRB, 0.728913E-02_JPRB &
+  &, 0.653370E-02_JPRB, 0.581788E-02_JPRB, 0.521512E-02_JPRB &
+  &, 0.462494E-02_JPRB, 0.412158E-02_JPRB, 0.367325E-02_JPRB, 0.324579E-02_JPRB &
+  &, 0.287907E-02_JPRB, 0.253779E-02_JPRB, 0.226320E-02_JPRB &
+  &, 0.197865E-02_JPRB, 0.172483E-02_JPRB, 0.154505E-02_JPRB, 0.135888E-02_JPRB &
+  &, 0.116622E-02_JPRB, 0.101049E-02_JPRB, 0.893639E-03_JPRB &
+  &, 0.772796E-03_JPRB, 0.693472E-03_JPRB, 0.565181E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.397216E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 354, :) = (/ &
+  &  0.959586E+00_JPRB, 0.948639E+00_JPRB, 0.937370E+00_JPRB, 0.925790E+00_JPRB &
+  &, 0.913902E+00_JPRB, 0.901717E+00_JPRB, 0.889243E+00_JPRB &
+  &, 0.876488E+00_JPRB, 0.863462E+00_JPRB, 0.850173E+00_JPRB, 0.836631E+00_JPRB &
+  &, 0.822846E+00_JPRB, 0.808829E+00_JPRB, 0.794590E+00_JPRB &
+  &, 0.780141E+00_JPRB, 0.765490E+00_JPRB, 0.750652E+00_JPRB, 0.735639E+00_JPRB &
+  &, 0.720461E+00_JPRB, 0.705132E+00_JPRB, 0.689668E+00_JPRB &
+  &, 0.674078E+00_JPRB, 0.658382E+00_JPRB, 0.642590E+00_JPRB, 0.626716E+00_JPRB &
+  &, 0.610779E+00_JPRB, 0.594796E+00_JPRB, 0.578780E+00_JPRB &
+  &, 0.562746E+00_JPRB, 0.546714E+00_JPRB, 0.530701E+00_JPRB, 0.514719E+00_JPRB &
+  &, 0.498794E+00_JPRB, 0.482937E+00_JPRB, 0.467163E+00_JPRB &
+  &, 0.451495E+00_JPRB, 0.435953E+00_JPRB, 0.420548E+00_JPRB, 0.405290E+00_JPRB &
+  &, 0.390214E+00_JPRB, 0.375324E+00_JPRB, 0.360636E+00_JPRB &
+  &, 0.346178E+00_JPRB, 0.331945E+00_JPRB, 0.317966E+00_JPRB, 0.304248E+00_JPRB &
+  &, 0.290809E+00_JPRB, 0.277652E+00_JPRB, 0.264796E+00_JPRB &
+  &, 0.252255E+00_JPRB, 0.240033E+00_JPRB, 0.228128E+00_JPRB, 0.216567E+00_JPRB &
+  &, 0.205346E+00_JPRB, 0.194475E+00_JPRB, 0.183962E+00_JPRB &
+  &, 0.173796E+00_JPRB, 0.163996E+00_JPRB, 0.154547E+00_JPRB, 0.145465E+00_JPRB &
+  &, 0.136730E+00_JPRB, 0.128369E+00_JPRB, 0.120357E+00_JPRB &
+  &, 0.112701E+00_JPRB, 0.105405E+00_JPRB, 0.984360E-01_JPRB, 0.918115E-01_JPRB &
+  &, 0.855102E-01_JPRB, 0.795472E-01_JPRB, 0.738958E-01_JPRB &
+  &, 0.685464E-01_JPRB, 0.634868E-01_JPRB, 0.587464E-01_JPRB, 0.542655E-01_JPRB &
+  &, 0.500696E-01_JPRB, 0.461150E-01_JPRB, 0.424247E-01_JPRB &
+  &, 0.389976E-01_JPRB, 0.357575E-01_JPRB, 0.327724E-01_JPRB, 0.299860E-01_JPRB &
+  &, 0.273889E-01_JPRB, 0.249703E-01_JPRB, 0.227450E-01_JPRB &
+  &, 0.207005E-01_JPRB, 0.187941E-01_JPRB, 0.170659E-01_JPRB, 0.154406E-01_JPRB &
+  &, 0.139868E-01_JPRB, 0.126248E-01_JPRB, 0.113932E-01_JPRB &
+  &, 0.102378E-01_JPRB, 0.922898E-02_JPRB, 0.827796E-02_JPRB, 0.742269E-02_JPRB &
+  &, 0.663564E-02_JPRB, 0.595616E-02_JPRB, 0.528546E-02_JPRB &
+  &, 0.473226E-02_JPRB, 0.419435E-02_JPRB, 0.374726E-02_JPRB, 0.332104E-02_JPRB &
+  &, 0.295558E-02_JPRB, 0.261557E-02_JPRB, 0.230273E-02_JPRB &
+  &, 0.201882E-02_JPRB, 0.176565E-02_JPRB, 0.158654E-02_JPRB, 0.135888E-02_JPRB &
+  &, 0.120904E-02_JPRB, 0.105399E-02_JPRB, 0.937821E-03_JPRB &
+  &, 0.817667E-03_JPRB, 0.693472E-03_JPRB, 0.611447E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 355, :) = (/ &
+  &  0.959845E+00_JPRB, 0.948965E+00_JPRB, 0.937757E+00_JPRB, 0.926238E+00_JPRB &
+  &, 0.914410E+00_JPRB, 0.902284E+00_JPRB, 0.889866E+00_JPRB &
+  &, 0.877167E+00_JPRB, 0.864195E+00_JPRB, 0.850960E+00_JPRB, 0.837470E+00_JPRB &
+  &, 0.823735E+00_JPRB, 0.809768E+00_JPRB, 0.795575E+00_JPRB &
+  &, 0.781171E+00_JPRB, 0.766565E+00_JPRB, 0.751769E+00_JPRB, 0.736796E+00_JPRB &
+  &, 0.721658E+00_JPRB, 0.706366E+00_JPRB, 0.690936E+00_JPRB &
+  &, 0.675381E+00_JPRB, 0.659714E+00_JPRB, 0.643950E+00_JPRB, 0.628105E+00_JPRB &
+  &, 0.612194E+00_JPRB, 0.596234E+00_JPRB, 0.580238E+00_JPRB &
+  &, 0.564224E+00_JPRB, 0.548208E+00_JPRB, 0.532209E+00_JPRB, 0.516243E+00_JPRB &
+  &, 0.500326E+00_JPRB, 0.484472E+00_JPRB, 0.468710E+00_JPRB &
+  &, 0.453039E+00_JPRB, 0.437498E+00_JPRB, 0.422093E+00_JPRB, 0.406834E+00_JPRB &
+  &, 0.391756E+00_JPRB, 0.376863E+00_JPRB, 0.362159E+00_JPRB &
+  &, 0.347684E+00_JPRB, 0.333443E+00_JPRB, 0.319444E+00_JPRB, 0.305715E+00_JPRB &
+  &, 0.292250E+00_JPRB, 0.279080E+00_JPRB, 0.266194E+00_JPRB &
+  &, 0.253635E+00_JPRB, 0.241379E+00_JPRB, 0.229451E+00_JPRB, 0.217865E+00_JPRB &
+  &, 0.206618E+00_JPRB, 0.195718E+00_JPRB, 0.185158E+00_JPRB &
+  &, 0.174958E+00_JPRB, 0.165121E+00_JPRB, 0.155650E+00_JPRB, 0.146527E+00_JPRB &
+  &, 0.137765E+00_JPRB, 0.129376E+00_JPRB, 0.121315E+00_JPRB &
+  &, 0.113626E+00_JPRB, 0.106277E+00_JPRB, 0.992891E-01_JPRB, 0.926251E-01_JPRB &
+  &, 0.863019E-01_JPRB, 0.802952E-01_JPRB, 0.745979E-01_JPRB &
+  &, 0.692212E-01_JPRB, 0.641328E-01_JPRB, 0.593619E-01_JPRB, 0.548489E-01_JPRB &
+  &, 0.506192E-01_JPRB, 0.466525E-01_JPRB, 0.429253E-01_JPRB &
+  &, 0.394354E-01_JPRB, 0.362041E-01_JPRB, 0.331772E-01_JPRB, 0.303471E-01_JPRB &
+  &, 0.277308E-01_JPRB, 0.253188E-01_JPRB, 0.230729E-01_JPRB &
+  &, 0.209790E-01_JPRB, 0.190779E-01_JPRB, 0.172971E-01_JPRB, 0.156762E-01_JPRB &
+  &, 0.141967E-01_JPRB, 0.128081E-01_JPRB, 0.115487E-01_JPRB &
+  &, 0.104278E-01_JPRB, 0.935791E-02_JPRB, 0.840920E-02_JPRB, 0.755626E-02_JPRB &
+  &, 0.677155E-02_JPRB, 0.605987E-02_JPRB, 0.539097E-02_JPRB &
+  &, 0.480381E-02_JPRB, 0.430351E-02_JPRB, 0.382126E-02_JPRB, 0.339629E-02_JPRB &
+  &, 0.299383E-02_JPRB, 0.265445E-02_JPRB, 0.234226E-02_JPRB &
+  &, 0.205900E-02_JPRB, 0.180648E-02_JPRB, 0.158654E-02_JPRB, 0.140103E-02_JPRB &
+  &, 0.125187E-02_JPRB, 0.109749E-02_JPRB, 0.937821E-03_JPRB &
+  &, 0.817667E-03_JPRB, 0.693472E-03_JPRB, 0.611447E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 356, :) = (/ &
+  &  0.960109E+00_JPRB, 0.949290E+00_JPRB, 0.938145E+00_JPRB, 0.926686E+00_JPRB &
+  &, 0.914917E+00_JPRB, 0.902849E+00_JPRB, 0.890489E+00_JPRB &
+  &, 0.877846E+00_JPRB, 0.864928E+00_JPRB, 0.851746E+00_JPRB, 0.838309E+00_JPRB &
+  &, 0.824624E+00_JPRB, 0.810705E+00_JPRB, 0.796560E+00_JPRB &
+  &, 0.782202E+00_JPRB, 0.767640E+00_JPRB, 0.752886E+00_JPRB, 0.737953E+00_JPRB &
+  &, 0.722853E+00_JPRB, 0.707600E+00_JPRB, 0.692203E+00_JPRB &
+  &, 0.676681E+00_JPRB, 0.661047E+00_JPRB, 0.645314E+00_JPRB, 0.629494E+00_JPRB &
+  &, 0.613609E+00_JPRB, 0.597672E+00_JPRB, 0.581695E+00_JPRB &
+  &, 0.565702E+00_JPRB, 0.549703E+00_JPRB, 0.533720E+00_JPRB, 0.517762E+00_JPRB &
+  &, 0.501858E+00_JPRB, 0.486016E+00_JPRB, 0.470257E+00_JPRB &
+  &, 0.454592E+00_JPRB, 0.439053E+00_JPRB, 0.423648E+00_JPRB, 0.408388E+00_JPRB &
+  &, 0.393298E+00_JPRB, 0.378391E+00_JPRB, 0.363693E+00_JPRB &
+  &, 0.349201E+00_JPRB, 0.334942E+00_JPRB, 0.320933E+00_JPRB, 0.307182E+00_JPRB &
+  &, 0.293705E+00_JPRB, 0.280507E+00_JPRB, 0.267605E+00_JPRB &
+  &, 0.255015E+00_JPRB, 0.242738E+00_JPRB, 0.230788E+00_JPRB, 0.219164E+00_JPRB &
+  &, 0.207890E+00_JPRB, 0.196961E+00_JPRB, 0.186369E+00_JPRB &
+  &, 0.176136E+00_JPRB, 0.166263E+00_JPRB, 0.156754E+00_JPRB, 0.147606E+00_JPRB &
+  &, 0.138801E+00_JPRB, 0.130365E+00_JPRB, 0.122291E+00_JPRB &
+  &, 0.114552E+00_JPRB, 0.107186E+00_JPRB, 0.100142E+00_JPRB, 0.934387E-01_JPRB &
+  &, 0.870737E-01_JPRB, 0.810433E-01_JPRB, 0.753206E-01_JPRB &
+  &, 0.698960E-01_JPRB, 0.648003E-01_JPRB, 0.599774E-01_JPRB, 0.554323E-01_JPRB &
+  &, 0.511688E-01_JPRB, 0.471666E-01_JPRB, 0.434260E-01_JPRB &
+  &, 0.398975E-01_JPRB, 0.366258E-01_JPRB, 0.335820E-01_JPRB, 0.307341E-01_JPRB &
+  &, 0.280990E-01_JPRB, 0.256405E-01_JPRB, 0.233735E-01_JPRB &
+  &, 0.212853E-01_JPRB, 0.193332E-01_JPRB, 0.175573E-01_JPRB, 0.159117E-01_JPRB &
+  &, 0.144067E-01_JPRB, 0.130219E-01_JPRB, 0.117353E-01_JPRB &
+  &, 0.105861E-01_JPRB, 0.951908E-02_JPRB, 0.854043E-02_JPRB, 0.768982E-02_JPRB &
+  &, 0.687348E-02_JPRB, 0.616358E-02_JPRB, 0.549647E-02_JPRB &
+  &, 0.491113E-02_JPRB, 0.437628E-02_JPRB, 0.389527E-02_JPRB, 0.343391E-02_JPRB &
+  &, 0.307034E-02_JPRB, 0.269334E-02_JPRB, 0.238179E-02_JPRB &
+  &, 0.209918E-02_JPRB, 0.184731E-02_JPRB, 0.162802E-02_JPRB, 0.144318E-02_JPRB &
+  &, 0.125187E-02_JPRB, 0.109749E-02_JPRB, 0.982002E-03_JPRB &
+  &, 0.817667E-03_JPRB, 0.739036E-03_JPRB, 0.611447E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.486837E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 357, :) = (/ &
+  &  0.960371E+00_JPRB, 0.949613E+00_JPRB, 0.938531E+00_JPRB, 0.927133E+00_JPRB &
+  &, 0.915425E+00_JPRB, 0.903414E+00_JPRB, 0.891112E+00_JPRB &
+  &, 0.878525E+00_JPRB, 0.865661E+00_JPRB, 0.852533E+00_JPRB, 0.839147E+00_JPRB &
+  &, 0.825513E+00_JPRB, 0.811643E+00_JPRB, 0.797545E+00_JPRB &
+  &, 0.783233E+00_JPRB, 0.768714E+00_JPRB, 0.754003E+00_JPRB, 0.739111E+00_JPRB &
+  &, 0.724050E+00_JPRB, 0.708831E+00_JPRB, 0.693471E+00_JPRB &
+  &, 0.677984E+00_JPRB, 0.662380E+00_JPRB, 0.646674E+00_JPRB, 0.630886E+00_JPRB &
+  &, 0.615027E+00_JPRB, 0.599110E+00_JPRB, 0.583157E+00_JPRB &
+  &, 0.567180E+00_JPRB, 0.551202E+00_JPRB, 0.535231E+00_JPRB, 0.519286E+00_JPRB &
+  &, 0.503389E+00_JPRB, 0.487556E+00_JPRB, 0.471803E+00_JPRB &
+  &, 0.456146E+00_JPRB, 0.440607E+00_JPRB, 0.425193E+00_JPRB, 0.409932E+00_JPRB &
+  &, 0.394840E+00_JPRB, 0.379929E+00_JPRB, 0.365217E+00_JPRB &
+  &, 0.350718E+00_JPRB, 0.336452E+00_JPRB, 0.322422E+00_JPRB, 0.308660E+00_JPRB &
+  &, 0.295159E+00_JPRB, 0.281934E+00_JPRB, 0.269016E+00_JPRB &
+  &, 0.256394E+00_JPRB, 0.244097E+00_JPRB, 0.232125E+00_JPRB, 0.220476E+00_JPRB &
+  &, 0.209161E+00_JPRB, 0.198203E+00_JPRB, 0.187581E+00_JPRB &
+  &, 0.177329E+00_JPRB, 0.167421E+00_JPRB, 0.157873E+00_JPRB, 0.148685E+00_JPRB &
+  &, 0.139853E+00_JPRB, 0.131372E+00_JPRB, 0.123268E+00_JPRB &
+  &, 0.115495E+00_JPRB, 0.108076E+00_JPRB, 0.101014E+00_JPRB, 0.942717E-01_JPRB &
+  &, 0.878654E-01_JPRB, 0.817913E-01_JPRB, 0.760434E-01_JPRB &
+  &, 0.705919E-01_JPRB, 0.654463E-01_JPRB, 0.605929E-01_JPRB, 0.560156E-01_JPRB &
+  &, 0.517184E-01_JPRB, 0.476807E-01_JPRB, 0.439028E-01_JPRB &
+  &, 0.403840E-01_JPRB, 0.370723E-01_JPRB, 0.339868E-01_JPRB, 0.311210E-01_JPRB &
+  &, 0.284672E-01_JPRB, 0.259890E-01_JPRB, 0.237014E-01_JPRB &
+  &, 0.215638E-01_JPRB, 0.196170E-01_JPRB, 0.178175E-01_JPRB, 0.161473E-01_JPRB &
+  &, 0.146166E-01_JPRB, 0.132052E-01_JPRB, 0.119219E-01_JPRB &
+  &, 0.107444E-01_JPRB, 0.968025E-02_JPRB, 0.870448E-02_JPRB, 0.782338E-02_JPRB &
+  &, 0.700939E-02_JPRB, 0.626729E-02_JPRB, 0.560198E-02_JPRB &
+  &, 0.498268E-02_JPRB, 0.444905E-02_JPRB, 0.396927E-02_JPRB, 0.350916E-02_JPRB &
+  &, 0.310859E-02_JPRB, 0.277112E-02_JPRB, 0.246085E-02_JPRB &
+  &, 0.213935E-02_JPRB, 0.188814E-02_JPRB, 0.166951E-02_JPRB, 0.148533E-02_JPRB &
+  &, 0.129469E-02_JPRB, 0.114099E-02_JPRB, 0.982002E-03_JPRB &
+  &, 0.862537E-03_JPRB, 0.739036E-03_JPRB, 0.657712E-03_JPRB, 0.573657E-03_JPRB &
+  &, 0.486837E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART51',1,ZHOOK_HANDLE)
+END SUBROUTINE PART51
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART52
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART52',0,ZHOOK_HANDLE)
+
+XCW( 358, :) = (/ &
+  &  0.960632E+00_JPRB, 0.949939E+00_JPRB, 0.938917E+00_JPRB, 0.927580E+00_JPRB &
+  &, 0.915931E+00_JPRB, 0.903980E+00_JPRB, 0.891734E+00_JPRB &
+  &, 0.879203E+00_JPRB, 0.866395E+00_JPRB, 0.853318E+00_JPRB, 0.839984E+00_JPRB &
+  &, 0.826401E+00_JPRB, 0.812580E+00_JPRB, 0.798529E+00_JPRB &
+  &, 0.784261E+00_JPRB, 0.769788E+00_JPRB, 0.755121E+00_JPRB, 0.740269E+00_JPRB &
+  &, 0.725248E+00_JPRB, 0.710065E+00_JPRB, 0.694742E+00_JPRB &
+  &, 0.679287E+00_JPRB, 0.663713E+00_JPRB, 0.648038E+00_JPRB, 0.632275E+00_JPRB &
+  &, 0.616442E+00_JPRB, 0.600552E+00_JPRB, 0.584619E+00_JPRB &
+  &, 0.568662E+00_JPRB, 0.552696E+00_JPRB, 0.536742E+00_JPRB, 0.520814E+00_JPRB &
+  &, 0.504926E+00_JPRB, 0.489100E+00_JPRB, 0.473355E+00_JPRB &
+  &, 0.457699E+00_JPRB, 0.442162E+00_JPRB, 0.426757E+00_JPRB, 0.411486E+00_JPRB &
+  &, 0.396392E+00_JPRB, 0.381478E+00_JPRB, 0.366751E+00_JPRB &
+  &, 0.352247E+00_JPRB, 0.337961E+00_JPRB, 0.323923E+00_JPRB, 0.310127E+00_JPRB &
+  &, 0.296613E+00_JPRB, 0.283374E+00_JPRB, 0.270427E+00_JPRB &
+  &, 0.257787E+00_JPRB, 0.245470E+00_JPRB, 0.233462E+00_JPRB, 0.221789E+00_JPRB &
+  &, 0.210447E+00_JPRB, 0.199446E+00_JPRB, 0.188807E+00_JPRB &
+  &, 0.178507E+00_JPRB, 0.168578E+00_JPRB, 0.158993E+00_JPRB, 0.149764E+00_JPRB &
+  &, 0.140906E+00_JPRB, 0.132396E+00_JPRB, 0.124244E+00_JPRB &
+  &, 0.116439E+00_JPRB, 0.108985E+00_JPRB, 0.101867E+00_JPRB, 0.951047E-01_JPRB &
+  &, 0.886769E-01_JPRB, 0.825596E-01_JPRB, 0.767661E-01_JPRB &
+  &, 0.712878E-01_JPRB, 0.660922E-01_JPRB, 0.612084E-01_JPRB, 0.566215E-01_JPRB &
+  &, 0.522909E-01_JPRB, 0.482182E-01_JPRB, 0.444035E-01_JPRB &
+  &, 0.408461E-01_JPRB, 0.375189E-01_JPRB, 0.344169E-01_JPRB, 0.315080E-01_JPRB &
+  &, 0.288354E-01_JPRB, 0.263376E-01_JPRB, 0.240020E-01_JPRB &
+  &, 0.218701E-01_JPRB, 0.199007E-01_JPRB, 0.180487E-01_JPRB, 0.163829E-01_JPRB &
+  &, 0.148266E-01_JPRB, 0.134190E-01_JPRB, 0.121086E-01_JPRB &
+  &, 0.109344E-01_JPRB, 0.984143E-02_JPRB, 0.883572E-02_JPRB, 0.795694E-02_JPRB &
+  &, 0.711132E-02_JPRB, 0.637101E-02_JPRB, 0.570749E-02_JPRB &
+  &, 0.509001E-02_JPRB, 0.452182E-02_JPRB, 0.404328E-02_JPRB, 0.358441E-02_JPRB &
+  &, 0.318510E-02_JPRB, 0.281001E-02_JPRB, 0.250038E-02_JPRB &
+  &, 0.221971E-02_JPRB, 0.192897E-02_JPRB, 0.171100E-02_JPRB, 0.148533E-02_JPRB &
+  &, 0.133751E-02_JPRB, 0.114099E-02_JPRB, 0.102618E-02_JPRB &
+  &, 0.862537E-03_JPRB, 0.784601E-03_JPRB, 0.657712E-03_JPRB, 0.573657E-03_JPRB &
+  &, 0.486837E-03_JPRB, 0.445618E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 359, :) = (/ &
+  &  0.960892E+00_JPRB, 0.950262E+00_JPRB, 0.939303E+00_JPRB, 0.928027E+00_JPRB &
+  &, 0.916437E+00_JPRB, 0.904545E+00_JPRB, 0.892356E+00_JPRB &
+  &, 0.879880E+00_JPRB, 0.867127E+00_JPRB, 0.854105E+00_JPRB, 0.840823E+00_JPRB &
+  &, 0.827289E+00_JPRB, 0.813517E+00_JPRB, 0.799514E+00_JPRB &
+  &, 0.785293E+00_JPRB, 0.770863E+00_JPRB, 0.756237E+00_JPRB, 0.741427E+00_JPRB &
+  &, 0.726443E+00_JPRB, 0.711299E+00_JPRB, 0.696010E+00_JPRB &
+  &, 0.680590E+00_JPRB, 0.665049E+00_JPRB, 0.649405E+00_JPRB, 0.633668E+00_JPRB &
+  &, 0.617861E+00_JPRB, 0.601994E+00_JPRB, 0.586080E+00_JPRB &
+  &, 0.570144E+00_JPRB, 0.554199E+00_JPRB, 0.538258E+00_JPRB, 0.522342E+00_JPRB &
+  &, 0.506466E+00_JPRB, 0.490648E+00_JPRB, 0.474906E+00_JPRB &
+  &, 0.459261E+00_JPRB, 0.443716E+00_JPRB, 0.428312E+00_JPRB, 0.413050E+00_JPRB &
+  &, 0.397944E+00_JPRB, 0.383017E+00_JPRB, 0.368285E+00_JPRB &
+  &, 0.353764E+00_JPRB, 0.339471E+00_JPRB, 0.325413E+00_JPRB, 0.311617E+00_JPRB &
+  &, 0.298079E+00_JPRB, 0.284814E+00_JPRB, 0.271851E+00_JPRB &
+  &, 0.259193E+00_JPRB, 0.246829E+00_JPRB, 0.234799E+00_JPRB, 0.223102E+00_JPRB &
+  &, 0.211734E+00_JPRB, 0.200704E+00_JPRB, 0.190034E+00_JPRB &
+  &, 0.179700E+00_JPRB, 0.169736E+00_JPRB, 0.160112E+00_JPRB, 0.150859E+00_JPRB &
+  &, 0.141958E+00_JPRB, 0.133403E+00_JPRB, 0.125220E+00_JPRB &
+  &, 0.117382E+00_JPRB, 0.109894E+00_JPRB, 0.102758E+00_JPRB, 0.959377E-01_JPRB &
+  &, 0.894685E-01_JPRB, 0.833279E-01_JPRB, 0.774889E-01_JPRB &
+  &, 0.719837E-01_JPRB, 0.667597E-01_JPRB, 0.618459E-01_JPRB, 0.572049E-01_JPRB &
+  &, 0.528405E-01_JPRB, 0.487556E-01_JPRB, 0.449042E-01_JPRB &
+  &, 0.413325E-01_JPRB, 0.379654E-01_JPRB, 0.348217E-01_JPRB, 0.319207E-01_JPRB &
+  &, 0.292036E-01_JPRB, 0.266593E-01_JPRB, 0.243299E-01_JPRB &
+  &, 0.221764E-01_JPRB, 0.201561E-01_JPRB, 0.183089E-01_JPRB, 0.166185E-01_JPRB &
+  &, 0.150665E-01_JPRB, 0.136328E-01_JPRB, 0.122952E-01_JPRB &
+  &, 0.110927E-01_JPRB, 0.100026E-01_JPRB, 0.899977E-02_JPRB, 0.809050E-02_JPRB &
+  &, 0.724723E-02_JPRB, 0.647472E-02_JPRB, 0.581300E-02_JPRB &
+  &, 0.519733E-02_JPRB, 0.463098E-02_JPRB, 0.411728E-02_JPRB, 0.365967E-02_JPRB &
+  &, 0.326161E-02_JPRB, 0.288779E-02_JPRB, 0.253991E-02_JPRB &
+  &, 0.225988E-02_JPRB, 0.196980E-02_JPRB, 0.175249E-02_JPRB, 0.152749E-02_JPRB &
+  &, 0.133751E-02_JPRB, 0.118449E-02_JPRB, 0.102618E-02_JPRB &
+  &, 0.907407E-03_JPRB, 0.784601E-03_JPRB, 0.703977E-03_JPRB, 0.573657E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.445618E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 360, :) = (/ &
+  &  0.961154E+00_JPRB, 0.950586E+00_JPRB, 0.939688E+00_JPRB, 0.928473E+00_JPRB &
+  &, 0.916943E+00_JPRB, 0.905109E+00_JPRB, 0.892978E+00_JPRB &
+  &, 0.880559E+00_JPRB, 0.867860E+00_JPRB, 0.854889E+00_JPRB, 0.841660E+00_JPRB &
+  &, 0.828177E+00_JPRB, 0.814454E+00_JPRB, 0.800498E+00_JPRB &
+  &, 0.786323E+00_JPRB, 0.771939E+00_JPRB, 0.757354E+00_JPRB, 0.742585E+00_JPRB &
+  &, 0.727640E+00_JPRB, 0.712537E+00_JPRB, 0.697281E+00_JPRB &
+  &, 0.681893E+00_JPRB, 0.666385E+00_JPRB, 0.650769E+00_JPRB, 0.635061E+00_JPRB &
+  &, 0.619279E+00_JPRB, 0.603435E+00_JPRB, 0.587546E+00_JPRB &
+  &, 0.571629E+00_JPRB, 0.555697E+00_JPRB, 0.539773E+00_JPRB, 0.523870E+00_JPRB &
+  &, 0.508007E+00_JPRB, 0.492197E+00_JPRB, 0.476462E+00_JPRB &
+  &, 0.460815E+00_JPRB, 0.445280E+00_JPRB, 0.429876E+00_JPRB, 0.414604E+00_JPRB &
+  &, 0.399496E+00_JPRB, 0.384566E+00_JPRB, 0.369830E+00_JPRB &
+  &, 0.355292E+00_JPRB, 0.340992E+00_JPRB, 0.326913E+00_JPRB, 0.313096E+00_JPRB &
+  &, 0.299545E+00_JPRB, 0.286266E+00_JPRB, 0.273275E+00_JPRB &
+  &, 0.260586E+00_JPRB, 0.248216E+00_JPRB, 0.236150E+00_JPRB, 0.224414E+00_JPRB &
+  &, 0.213020E+00_JPRB, 0.201961E+00_JPRB, 0.191260E+00_JPRB &
+  &, 0.180893E+00_JPRB, 0.170894E+00_JPRB, 0.161248E+00_JPRB, 0.151955E+00_JPRB &
+  &, 0.143011E+00_JPRB, 0.134427E+00_JPRB, 0.126214E+00_JPRB &
+  &, 0.118326E+00_JPRB, 0.110803E+00_JPRB, 0.103630E+00_JPRB, 0.967900E-01_JPRB &
+  &, 0.902800E-01_JPRB, 0.840962E-01_JPRB, 0.782323E-01_JPRB &
+  &, 0.726796E-01_JPRB, 0.674272E-01_JPRB, 0.624834E-01_JPRB, 0.578107E-01_JPRB &
+  &, 0.534130E-01_JPRB, 0.492931E-01_JPRB, 0.454287E-01_JPRB &
+  &, 0.417946E-01_JPRB, 0.384119E-01_JPRB, 0.352518E-01_JPRB, 0.323077E-01_JPRB &
+  &, 0.295718E-01_JPRB, 0.270078E-01_JPRB, 0.246578E-01_JPRB &
+  &, 0.224828E-01_JPRB, 0.204398E-01_JPRB, 0.185691E-01_JPRB, 0.168541E-01_JPRB &
+  &, 0.152765E-01_JPRB, 0.138161E-01_JPRB, 0.124818E-01_JPRB &
+  &, 0.112827E-01_JPRB, 0.101638E-01_JPRB, 0.913100E-02_JPRB, 0.822407E-02_JPRB &
+  &, 0.738314E-02_JPRB, 0.661300E-02_JPRB, 0.591851E-02_JPRB &
+  &, 0.526888E-02_JPRB, 0.470375E-02_JPRB, 0.419129E-02_JPRB, 0.373492E-02_JPRB &
+  &, 0.329987E-02_JPRB, 0.292668E-02_JPRB, 0.257944E-02_JPRB &
+  &, 0.230006E-02_JPRB, 0.201063E-02_JPRB, 0.179398E-02_JPRB, 0.156964E-02_JPRB &
+  &, 0.138033E-02_JPRB, 0.122798E-02_JPRB, 0.107037E-02_JPRB &
+  &, 0.907407E-03_JPRB, 0.784601E-03_JPRB, 0.703977E-03_JPRB, 0.620629E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.445618E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.262962E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 361, :) = (/ &
+  &  0.961415E+00_JPRB, 0.950909E+00_JPRB, 0.940074E+00_JPRB, 0.928919E+00_JPRB &
+  &, 0.917449E+00_JPRB, 0.905673E+00_JPRB, 0.893599E+00_JPRB &
+  &, 0.881236E+00_JPRB, 0.868591E+00_JPRB, 0.855676E+00_JPRB, 0.842498E+00_JPRB &
+  &, 0.829065E+00_JPRB, 0.815390E+00_JPRB, 0.801483E+00_JPRB &
+  &, 0.787354E+00_JPRB, 0.773013E+00_JPRB, 0.758472E+00_JPRB, 0.743743E+00_JPRB &
+  &, 0.728839E+00_JPRB, 0.713771E+00_JPRB, 0.698552E+00_JPRB &
+  &, 0.683196E+00_JPRB, 0.667722E+00_JPRB, 0.652133E+00_JPRB, 0.636457E+00_JPRB &
+  &, 0.620698E+00_JPRB, 0.604877E+00_JPRB, 0.589011E+00_JPRB &
+  &, 0.573111E+00_JPRB, 0.557200E+00_JPRB, 0.541288E+00_JPRB, 0.525398E+00_JPRB &
+  &, 0.509548E+00_JPRB, 0.493750E+00_JPRB, 0.478018E+00_JPRB &
+  &, 0.462377E+00_JPRB, 0.446844E+00_JPRB, 0.431441E+00_JPRB, 0.416168E+00_JPRB &
+  &, 0.401058E+00_JPRB, 0.386115E+00_JPRB, 0.371375E+00_JPRB &
+  &, 0.356831E+00_JPRB, 0.342502E+00_JPRB, 0.328426E+00_JPRB, 0.314586E+00_JPRB &
+  &, 0.301011E+00_JPRB, 0.287718E+00_JPRB, 0.274698E+00_JPRB &
+  &, 0.261992E+00_JPRB, 0.249588E+00_JPRB, 0.237501E+00_JPRB, 0.225741E+00_JPRB &
+  &, 0.214320E+00_JPRB, 0.203233E+00_JPRB, 0.192487E+00_JPRB &
+  &, 0.182102E+00_JPRB, 0.172067E+00_JPRB, 0.162384E+00_JPRB, 0.153050E+00_JPRB &
+  &, 0.144080E+00_JPRB, 0.135469E+00_JPRB, 0.127208E+00_JPRB &
+  &, 0.119288E+00_JPRB, 0.111730E+00_JPRB, 0.104521E+00_JPRB, 0.976424E-01_JPRB &
+  &, 0.910915E-01_JPRB, 0.848645E-01_JPRB, 0.789757E-01_JPRB &
+  &, 0.733966E-01_JPRB, 0.681162E-01_JPRB, 0.631208E-01_JPRB, 0.584165E-01_JPRB &
+  &, 0.539855E-01_JPRB, 0.498306E-01_JPRB, 0.459294E-01_JPRB &
+  &, 0.422811E-01_JPRB, 0.388585E-01_JPRB, 0.356818E-01_JPRB, 0.326946E-01_JPRB &
+  &, 0.299400E-01_JPRB, 0.273564E-01_JPRB, 0.249857E-01_JPRB &
+  &, 0.227891E-01_JPRB, 0.207236E-01_JPRB, 0.188582E-01_JPRB, 0.171191E-01_JPRB &
+  &, 0.155164E-01_JPRB, 0.140299E-01_JPRB, 0.126995E-01_JPRB &
+  &, 0.114410E-01_JPRB, 0.103249E-01_JPRB, 0.929505E-02_JPRB, 0.835763E-02_JPRB &
+  &, 0.748508E-02_JPRB, 0.671671E-02_JPRB, 0.602402E-02_JPRB &
+  &, 0.537620E-02_JPRB, 0.477652E-02_JPRB, 0.426529E-02_JPRB, 0.381017E-02_JPRB &
+  &, 0.337637E-02_JPRB, 0.300446E-02_JPRB, 0.265850E-02_JPRB &
+  &, 0.234024E-02_JPRB, 0.205146E-02_JPRB, 0.183546E-02_JPRB, 0.161179E-02_JPRB &
+  &, 0.142316E-02_JPRB, 0.122798E-02_JPRB, 0.107037E-02_JPRB &
+  &, 0.952278E-03_JPRB, 0.830166E-03_JPRB, 0.703977E-03_JPRB, 0.620629E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.445618E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 362, :) = (/ &
+  &  0.961676E+00_JPRB, 0.951232E+00_JPRB, 0.940459E+00_JPRB, 0.929364E+00_JPRB &
+  &, 0.917954E+00_JPRB, 0.906237E+00_JPRB, 0.894221E+00_JPRB &
+  &, 0.881913E+00_JPRB, 0.869323E+00_JPRB, 0.856461E+00_JPRB, 0.843335E+00_JPRB &
+  &, 0.829953E+00_JPRB, 0.816328E+00_JPRB, 0.802467E+00_JPRB &
+  &, 0.788383E+00_JPRB, 0.774086E+00_JPRB, 0.759589E+00_JPRB, 0.744901E+00_JPRB &
+  &, 0.730036E+00_JPRB, 0.715005E+00_JPRB, 0.699823E+00_JPRB &
+  &, 0.684502E+00_JPRB, 0.669058E+00_JPRB, 0.653501E+00_JPRB, 0.637849E+00_JPRB &
+  &, 0.622120E+00_JPRB, 0.606323E+00_JPRB, 0.590477E+00_JPRB &
+  &, 0.574597E+00_JPRB, 0.558702E+00_JPRB, 0.542808E+00_JPRB, 0.526931E+00_JPRB &
+  &, 0.511088E+00_JPRB, 0.495298E+00_JPRB, 0.479578E+00_JPRB &
+  &, 0.463940E+00_JPRB, 0.448408E+00_JPRB, 0.433005E+00_JPRB, 0.417732E+00_JPRB &
+  &, 0.402621E+00_JPRB, 0.387675E+00_JPRB, 0.372920E+00_JPRB &
+  &, 0.358360E+00_JPRB, 0.344034E+00_JPRB, 0.329927E+00_JPRB, 0.316077E+00_JPRB &
+  &, 0.302490E+00_JPRB, 0.289171E+00_JPRB, 0.276135E+00_JPRB &
+  &, 0.263398E+00_JPRB, 0.250975E+00_JPRB, 0.238865E+00_JPRB, 0.227068E+00_JPRB &
+  &, 0.215621E+00_JPRB, 0.204506E+00_JPRB, 0.193729E+00_JPRB &
+  &, 0.183311E+00_JPRB, 0.173241E+00_JPRB, 0.163519E+00_JPRB, 0.154145E+00_JPRB &
+  &, 0.145150E+00_JPRB, 0.136493E+00_JPRB, 0.128202E+00_JPRB &
+  &, 0.120250E+00_JPRB, 0.112658E+00_JPRB, 0.105393E+00_JPRB, 0.984947E-01_JPRB &
+  &, 0.919029E-01_JPRB, 0.856530E-01_JPRB, 0.797191E-01_JPRB &
+  &, 0.740926E-01_JPRB, 0.687837E-01_JPRB, 0.637583E-01_JPRB, 0.590224E-01_JPRB &
+  &, 0.545809E-01_JPRB, 0.503914E-01_JPRB, 0.464539E-01_JPRB &
+  &, 0.427675E-01_JPRB, 0.393298E-01_JPRB, 0.361119E-01_JPRB, 0.331074E-01_JPRB &
+  &, 0.303082E-01_JPRB, 0.277317E-01_JPRB, 0.253136E-01_JPRB &
+  &, 0.230954E-01_JPRB, 0.210073E-01_JPRB, 0.191183E-01_JPRB, 0.173547E-01_JPRB &
+  &, 0.157264E-01_JPRB, 0.142437E-01_JPRB, 0.128861E-01_JPRB &
+  &, 0.116310E-01_JPRB, 0.104861E-01_JPRB, 0.945910E-02_JPRB, 0.849119E-02_JPRB &
+  &, 0.762099E-02_JPRB, 0.682042E-02_JPRB, 0.612953E-02_JPRB &
+  &, 0.548353E-02_JPRB, 0.488568E-02_JPRB, 0.433930E-02_JPRB, 0.388542E-02_JPRB &
+  &, 0.345288E-02_JPRB, 0.304335E-02_JPRB, 0.269803E-02_JPRB &
+  &, 0.238041E-02_JPRB, 0.213312E-02_JPRB, 0.187695E-02_JPRB, 0.165394E-02_JPRB &
+  &, 0.142316E-02_JPRB, 0.127148E-02_JPRB, 0.111455E-02_JPRB &
+  &, 0.952278E-03_JPRB, 0.830166E-03_JPRB, 0.750242E-03_JPRB, 0.620629E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.494019E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 363, :) = (/ &
+  &  0.961936E+00_JPRB, 0.951556E+00_JPRB, 0.940843E+00_JPRB, 0.929810E+00_JPRB &
+  &, 0.918459E+00_JPRB, 0.906800E+00_JPRB, 0.894841E+00_JPRB &
+  &, 0.882589E+00_JPRB, 0.870055E+00_JPRB, 0.857246E+00_JPRB, 0.844172E+00_JPRB &
+  &, 0.830840E+00_JPRB, 0.817264E+00_JPRB, 0.803451E+00_JPRB &
+  &, 0.789414E+00_JPRB, 0.775162E+00_JPRB, 0.760706E+00_JPRB, 0.746060E+00_JPRB &
+  &, 0.731233E+00_JPRB, 0.716239E+00_JPRB, 0.701094E+00_JPRB &
+  &, 0.685805E+00_JPRB, 0.670394E+00_JPRB, 0.654868E+00_JPRB, 0.639245E+00_JPRB &
+  &, 0.623539E+00_JPRB, 0.607768E+00_JPRB, 0.591942E+00_JPRB &
+  &, 0.576087E+00_JPRB, 0.560209E+00_JPRB, 0.544332E+00_JPRB, 0.528467E+00_JPRB &
+  &, 0.512637E+00_JPRB, 0.496855E+00_JPRB, 0.481138E+00_JPRB &
+  &, 0.465512E+00_JPRB, 0.449982E+00_JPRB, 0.434570E+00_JPRB, 0.419296E+00_JPRB &
+  &, 0.404183E+00_JPRB, 0.389224E+00_JPRB, 0.374464E+00_JPRB &
+  &, 0.359899E+00_JPRB, 0.345556E+00_JPRB, 0.331439E+00_JPRB, 0.317567E+00_JPRB &
+  &, 0.303968E+00_JPRB, 0.290623E+00_JPRB, 0.277571E+00_JPRB &
+  &, 0.264817E+00_JPRB, 0.252361E+00_JPRB, 0.240216E+00_JPRB, 0.228409E+00_JPRB &
+  &, 0.216922E+00_JPRB, 0.205778E+00_JPRB, 0.194970E+00_JPRB &
+  &, 0.184520E+00_JPRB, 0.174414E+00_JPRB, 0.164655E+00_JPRB, 0.155257E+00_JPRB &
+  &, 0.146219E+00_JPRB, 0.137535E+00_JPRB, 0.129196E+00_JPRB &
+  &, 0.121229E+00_JPRB, 0.113585E+00_JPRB, 0.106303E+00_JPRB, 0.993471E-01_JPRB &
+  &, 0.927342E-01_JPRB, 0.864415E-01_JPRB, 0.804625E-01_JPRB &
+  &, 0.748095E-01_JPRB, 0.694728E-01_JPRB, 0.644178E-01_JPRB, 0.596506E-01_JPRB &
+  &, 0.551534E-01_JPRB, 0.509289E-01_JPRB, 0.469784E-01_JPRB &
+  &, 0.432539E-01_JPRB, 0.398011E-01_JPRB, 0.365420E-01_JPRB, 0.335202E-01_JPRB &
+  &, 0.307027E-01_JPRB, 0.280802E-01_JPRB, 0.256415E-01_JPRB &
+  &, 0.234017E-01_JPRB, 0.213195E-01_JPRB, 0.193785E-01_JPRB, 0.176197E-01_JPRB &
+  &, 0.159663E-01_JPRB, 0.144575E-01_JPRB, 0.130727E-01_JPRB &
+  &, 0.118210E-01_JPRB, 0.106473E-01_JPRB, 0.959033E-02_JPRB, 0.862475E-02_JPRB &
+  &, 0.775690E-02_JPRB, 0.695871E-02_JPRB, 0.623504E-02_JPRB &
+  &, 0.555508E-02_JPRB, 0.495845E-02_JPRB, 0.445031E-02_JPRB, 0.396067E-02_JPRB &
+  &, 0.352939E-02_JPRB, 0.312112E-02_JPRB, 0.277709E-02_JPRB &
+  &, 0.246077E-02_JPRB, 0.217395E-02_JPRB, 0.191844E-02_JPRB, 0.169610E-02_JPRB &
+  &, 0.146598E-02_JPRB, 0.131498E-02_JPRB, 0.111455E-02_JPRB &
+  &, 0.997148E-03_JPRB, 0.875731E-03_JPRB, 0.750242E-03_JPRB, 0.667600E-03_JPRB &
+  &, 0.582205E-03_JPRB, 0.494019E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 364, :) = (/ &
+  &  0.962196E+00_JPRB, 0.951879E+00_JPRB, 0.941228E+00_JPRB, 0.930255E+00_JPRB &
+  &, 0.918964E+00_JPRB, 0.907363E+00_JPRB, 0.895462E+00_JPRB &
+  &, 0.883266E+00_JPRB, 0.870786E+00_JPRB, 0.858031E+00_JPRB, 0.845008E+00_JPRB &
+  &, 0.831727E+00_JPRB, 0.818200E+00_JPRB, 0.804435E+00_JPRB &
+  &, 0.790443E+00_JPRB, 0.776236E+00_JPRB, 0.761823E+00_JPRB, 0.747219E+00_JPRB &
+  &, 0.732432E+00_JPRB, 0.717476E+00_JPRB, 0.702365E+00_JPRB &
+  &, 0.687112E+00_JPRB, 0.671730E+00_JPRB, 0.656235E+00_JPRB, 0.640641E+00_JPRB &
+  &, 0.624961E+00_JPRB, 0.609213E+00_JPRB, 0.593411E+00_JPRB &
+  &, 0.577573E+00_JPRB, 0.561716E+00_JPRB, 0.545851E+00_JPRB, 0.530004E+00_JPRB &
+  &, 0.514182E+00_JPRB, 0.498413E+00_JPRB, 0.482703E+00_JPRB &
+  &, 0.467075E+00_JPRB, 0.451555E+00_JPRB, 0.436144E+00_JPRB, 0.420870E+00_JPRB &
+  &, 0.405745E+00_JPRB, 0.390794E+00_JPRB, 0.376020E+00_JPRB &
+  &, 0.361438E+00_JPRB, 0.347088E+00_JPRB, 0.332952E+00_JPRB, 0.319070E+00_JPRB &
+  &, 0.305447E+00_JPRB, 0.292088E+00_JPRB, 0.279008E+00_JPRB &
+  &, 0.266236E+00_JPRB, 0.253747E+00_JPRB, 0.241595E+00_JPRB, 0.229750E+00_JPRB &
+  &, 0.218237E+00_JPRB, 0.207065E+00_JPRB, 0.196227E+00_JPRB &
+  &, 0.185728E+00_JPRB, 0.175603E+00_JPRB, 0.165807E+00_JPRB, 0.156386E+00_JPRB &
+  &, 0.147306E+00_JPRB, 0.138576E+00_JPRB, 0.130208E+00_JPRB &
+  &, 0.122191E+00_JPRB, 0.114531E+00_JPRB, 0.107194E+00_JPRB, 0.100219E+00_JPRB &
+  &, 0.935654E-01_JPRB, 0.872300E-01_JPRB, 0.812265E-01_JPRB &
+  &, 0.755476E-01_JPRB, 0.701618E-01_JPRB, 0.650553E-01_JPRB, 0.602565E-01_JPRB &
+  &, 0.557488E-01_JPRB, 0.514897E-01_JPRB, 0.475030E-01_JPRB &
+  &, 0.437647E-01_JPRB, 0.402477E-01_JPRB, 0.369974E-01_JPRB, 0.339329E-01_JPRB &
+  &, 0.310972E-01_JPRB, 0.284556E-01_JPRB, 0.259968E-01_JPRB &
+  &, 0.237080E-01_JPRB, 0.216032E-01_JPRB, 0.196676E-01_JPRB, 0.178553E-01_JPRB &
+  &, 0.162062E-01_JPRB, 0.146713E-01_JPRB, 0.132904E-01_JPRB &
+  &, 0.120110E-01_JPRB, 0.108407E-01_JPRB, 0.975438E-02_JPRB, 0.879171E-02_JPRB &
+  &, 0.789281E-02_JPRB, 0.706242E-02_JPRB, 0.634055E-02_JPRB &
+  &, 0.566240E-02_JPRB, 0.506761E-02_JPRB, 0.452431E-02_JPRB, 0.403592E-02_JPRB &
+  &, 0.356765E-02_JPRB, 0.316001E-02_JPRB, 0.281662E-02_JPRB &
+  &, 0.250094E-02_JPRB, 0.221478E-02_JPRB, 0.195993E-02_JPRB, 0.169610E-02_JPRB &
+  &, 0.150880E-02_JPRB, 0.131498E-02_JPRB, 0.115873E-02_JPRB &
+  &, 0.997148E-03_JPRB, 0.875731E-03_JPRB, 0.796507E-03_JPRB, 0.667600E-03_JPRB &
+  &, 0.582205E-03_JPRB, 0.494019E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART52',1,ZHOOK_HANDLE)
+END SUBROUTINE PART52
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART53
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART53',0,ZHOOK_HANDLE)
+
+XCW( 365, :) = (/ &
+  &  0.962455E+00_JPRB, 0.952201E+00_JPRB, 0.941613E+00_JPRB, 0.930700E+00_JPRB &
+  &, 0.919468E+00_JPRB, 0.907926E+00_JPRB, 0.896082E+00_JPRB &
+  &, 0.883943E+00_JPRB, 0.871517E+00_JPRB, 0.858815E+00_JPRB, 0.845844E+00_JPRB &
+  &, 0.832614E+00_JPRB, 0.819136E+00_JPRB, 0.805418E+00_JPRB &
+  &, 0.791474E+00_JPRB, 0.777311E+00_JPRB, 0.762941E+00_JPRB, 0.748376E+00_JPRB &
+  &, 0.733629E+00_JPRB, 0.718710E+00_JPRB, 0.703636E+00_JPRB &
+  &, 0.688418E+00_JPRB, 0.673070E+00_JPRB, 0.657603E+00_JPRB, 0.642038E+00_JPRB &
+  &, 0.626379E+00_JPRB, 0.610663E+00_JPRB, 0.594880E+00_JPRB &
+  &, 0.579063E+00_JPRB, 0.563222E+00_JPRB, 0.547375E+00_JPRB, 0.531540E+00_JPRB &
+  &, 0.515731E+00_JPRB, 0.499970E+00_JPRB, 0.484268E+00_JPRB &
+  &, 0.468646E+00_JPRB, 0.453129E+00_JPRB, 0.437718E+00_JPRB, 0.422444E+00_JPRB &
+  &, 0.407318E+00_JPRB, 0.392354E+00_JPRB, 0.377576E+00_JPRB &
+  &, 0.362989E+00_JPRB, 0.348621E+00_JPRB, 0.334476E+00_JPRB, 0.320572E+00_JPRB &
+  &, 0.306925E+00_JPRB, 0.293553E+00_JPRB, 0.280458E+00_JPRB &
+  &, 0.267655E+00_JPRB, 0.255147E+00_JPRB, 0.242959E+00_JPRB, 0.231090E+00_JPRB &
+  &, 0.219552E+00_JPRB, 0.208337E+00_JPRB, 0.197484E+00_JPRB &
+  &, 0.186953E+00_JPRB, 0.176793E+00_JPRB, 0.166959E+00_JPRB, 0.157498E+00_JPRB &
+  &, 0.148392E+00_JPRB, 0.139635E+00_JPRB, 0.131220E+00_JPRB &
+  &, 0.123171E+00_JPRB, 0.115459E+00_JPRB, 0.108104E+00_JPRB, 0.101071E+00_JPRB &
+  &, 0.943967E-01_JPRB, 0.880387E-01_JPRB, 0.819906E-01_JPRB &
+  &, 0.762646E-01_JPRB, 0.708508E-01_JPRB, 0.657147E-01_JPRB, 0.608847E-01_JPRB &
+  &, 0.563442E-01_JPRB, 0.520505E-01_JPRB, 0.480275E-01_JPRB &
+  &, 0.442511E-01_JPRB, 0.407190E-01_JPRB, 0.374275E-01_JPRB, 0.343456E-01_JPRB &
+  &, 0.314917E-01_JPRB, 0.288041E-01_JPRB, 0.263247E-01_JPRB &
+  &, 0.240422E-01_JPRB, 0.219153E-01_JPRB, 0.199278E-01_JPRB, 0.181203E-01_JPRB &
+  &, 0.164462E-01_JPRB, 0.149157E-01_JPRB, 0.134770E-01_JPRB &
+  &, 0.122010E-01_JPRB, 0.110019E-01_JPRB, 0.991843E-02_JPRB, 0.892527E-02_JPRB &
+  &, 0.802872E-02_JPRB, 0.720070E-02_JPRB, 0.644606E-02_JPRB &
+  &, 0.576973E-02_JPRB, 0.517676E-02_JPRB, 0.459832E-02_JPRB, 0.411117E-02_JPRB &
+  &, 0.364415E-02_JPRB, 0.323779E-02_JPRB, 0.289567E-02_JPRB &
+  &, 0.254112E-02_JPRB, 0.225560E-02_JPRB, 0.200141E-02_JPRB, 0.173825E-02_JPRB &
+  &, 0.155163E-02_JPRB, 0.135848E-02_JPRB, 0.120291E-02_JPRB &
+  &, 0.104202E-02_JPRB, 0.921295E-03_JPRB, 0.796507E-03_JPRB, 0.667600E-03_JPRB &
+  &, 0.582205E-03_JPRB, 0.542421E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 366, :) = (/ &
+  &  0.962714E+00_JPRB, 0.952522E+00_JPRB, 0.941997E+00_JPRB, 0.931145E+00_JPRB &
+  &, 0.919973E+00_JPRB, 0.908489E+00_JPRB, 0.896702E+00_JPRB &
+  &, 0.884618E+00_JPRB, 0.872248E+00_JPRB, 0.859599E+00_JPRB, 0.846680E+00_JPRB &
+  &, 0.833502E+00_JPRB, 0.820072E+00_JPRB, 0.806404E+00_JPRB &
+  &, 0.792503E+00_JPRB, 0.778385E+00_JPRB, 0.764058E+00_JPRB, 0.749535E+00_JPRB &
+  &, 0.734828E+00_JPRB, 0.719947E+00_JPRB, 0.704911E+00_JPRB &
+  &, 0.689724E+00_JPRB, 0.674406E+00_JPRB, 0.658974E+00_JPRB, 0.643434E+00_JPRB &
+  &, 0.627809E+00_JPRB, 0.612108E+00_JPRB, 0.596353E+00_JPRB &
+  &, 0.580556E+00_JPRB, 0.564733E+00_JPRB, 0.548902E+00_JPRB, 0.533081E+00_JPRB &
+  &, 0.517268E+00_JPRB, 0.501532E+00_JPRB, 0.485838E+00_JPRB &
+  &, 0.470218E+00_JPRB, 0.454702E+00_JPRB, 0.439293E+00_JPRB, 0.424018E+00_JPRB &
+  &, 0.408891E+00_JPRB, 0.393913E+00_JPRB, 0.379131E+00_JPRB &
+  &, 0.364539E+00_JPRB, 0.350153E+00_JPRB, 0.336000E+00_JPRB, 0.322086E+00_JPRB &
+  &, 0.308416E+00_JPRB, 0.295030E+00_JPRB, 0.281907E+00_JPRB &
+  &, 0.269074E+00_JPRB, 0.256547E+00_JPRB, 0.244337E+00_JPRB, 0.232445E+00_JPRB &
+  &, 0.220867E+00_JPRB, 0.209639E+00_JPRB, 0.198741E+00_JPRB &
+  &, 0.188177E+00_JPRB, 0.177982E+00_JPRB, 0.168127E+00_JPRB, 0.158627E+00_JPRB &
+  &, 0.149478E+00_JPRB, 0.140694E+00_JPRB, 0.132249E+00_JPRB &
+  &, 0.124151E+00_JPRB, 0.116405E+00_JPRB, 0.109014E+00_JPRB, 0.101962E+00_JPRB &
+  &, 0.952279E-01_JPRB, 0.888272E-01_JPRB, 0.827546E-01_JPRB &
+  &, 0.770027E-01_JPRB, 0.715399E-01_JPRB, 0.663962E-01_JPRB, 0.615130E-01_JPRB &
+  &, 0.569396E-01_JPRB, 0.526114E-01_JPRB, 0.485758E-01_JPRB &
+  &, 0.447619E-01_JPRB, 0.412152E-01_JPRB, 0.378829E-01_JPRB, 0.347842E-01_JPRB &
+  &, 0.318863E-01_JPRB, 0.291795E-01_JPRB, 0.266799E-01_JPRB &
+  &, 0.243485E-01_JPRB, 0.221991E-01_JPRB, 0.202169E-01_JPRB, 0.183853E-01_JPRB &
+  &, 0.166861E-01_JPRB, 0.151295E-01_JPRB, 0.136947E-01_JPRB &
+  &, 0.123910E-01_JPRB, 0.111953E-01_JPRB, 0.100825E-01_JPRB, 0.905883E-02_JPRB &
+  &, 0.816463E-02_JPRB, 0.733898E-02_JPRB, 0.655157E-02_JPRB &
+  &, 0.587705E-02_JPRB, 0.524953E-02_JPRB, 0.467232E-02_JPRB, 0.418642E-02_JPRB &
+  &, 0.372066E-02_JPRB, 0.331557E-02_JPRB, 0.293520E-02_JPRB &
+  &, 0.258130E-02_JPRB, 0.229643E-02_JPRB, 0.204290E-02_JPRB, 0.178040E-02_JPRB &
+  &, 0.159445E-02_JPRB, 0.140198E-02_JPRB, 0.120291E-02_JPRB &
+  &, 0.108689E-02_JPRB, 0.921295E-03_JPRB, 0.796507E-03_JPRB, 0.714572E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.542421E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 367, :) = (/ &
+  &  0.962973E+00_JPRB, 0.952846E+00_JPRB, 0.942381E+00_JPRB, 0.931590E+00_JPRB &
+  &, 0.920477E+00_JPRB, 0.909052E+00_JPRB, 0.897321E+00_JPRB &
+  &, 0.885294E+00_JPRB, 0.872978E+00_JPRB, 0.860362E+00_JPRB, 0.847516E+00_JPRB &
+  &, 0.834388E+00_JPRB, 0.821009E+00_JPRB, 0.807386E+00_JPRB &
+  &, 0.793534E+00_JPRB, 0.779460E+00_JPRB, 0.765176E+00_JPRB, 0.750695E+00_JPRB &
+  &, 0.736026E+00_JPRB, 0.721185E+00_JPRB, 0.706182E+00_JPRB &
+  &, 0.691031E+00_JPRB, 0.675746E+00_JPRB, 0.660344E+00_JPRB, 0.644833E+00_JPRB &
+  &, 0.629235E+00_JPRB, 0.613557E+00_JPRB, 0.597826E+00_JPRB &
+  &, 0.582046E+00_JPRB, 0.566244E+00_JPRB, 0.550426E+00_JPRB, 0.534622E+00_JPRB &
+  &, 0.518834E+00_JPRB, 0.503093E+00_JPRB, 0.487407E+00_JPRB &
+  &, 0.471800E+00_JPRB, 0.456276E+00_JPRB, 0.440877E+00_JPRB, 0.425592E+00_JPRB &
+  &, 0.410463E+00_JPRB, 0.395483E+00_JPRB, 0.380687E+00_JPRB &
+  &, 0.366090E+00_JPRB, 0.351697E+00_JPRB, 0.337524E+00_JPRB, 0.323589E+00_JPRB &
+  &, 0.309919E+00_JPRB, 0.296495E+00_JPRB, 0.283356E+00_JPRB &
+  &, 0.270507E+00_JPRB, 0.257960E+00_JPRB, 0.245716E+00_JPRB, 0.233786E+00_JPRB &
+  &, 0.222196E+00_JPRB, 0.210926E+00_JPRB, 0.199998E+00_JPRB &
+  &, 0.189417E+00_JPRB, 0.179171E+00_JPRB, 0.169295E+00_JPRB, 0.159755E+00_JPRB &
+  &, 0.150582E+00_JPRB, 0.141753E+00_JPRB, 0.133208E+00_JPRB &
+  &, 0.125149E+00_JPRB, 0.117369E+00_JPRB, 0.109924E+00_JPRB, 0.102834E+00_JPRB &
+  &, 0.960790E-01_JPRB, 0.896359E-01_JPRB, 0.835393E-01_JPRB &
+  &, 0.777408E-01_JPRB, 0.722504E-01_JPRB, 0.670557E-01_JPRB, 0.621637E-01_JPRB &
+  &, 0.575350E-01_JPRB, 0.531956E-01_JPRB, 0.491004E-01_JPRB &
+  &, 0.452726E-01_JPRB, 0.416865E-01_JPRB, 0.383383E-01_JPRB, 0.351969E-01_JPRB &
+  &, 0.322808E-01_JPRB, 0.295548E-01_JPRB, 0.270352E-01_JPRB &
+  &, 0.246827E-01_JPRB, 0.225112E-01_JPRB, 0.205059E-01_JPRB, 0.186504E-01_JPRB &
+  &, 0.169261E-01_JPRB, 0.153433E-01_JPRB, 0.139125E-01_JPRB &
+  &, 0.125810E-01_JPRB, 0.113564E-01_JPRB, 0.102465E-01_JPRB, 0.922578E-02_JPRB &
+  &, 0.830054E-02_JPRB, 0.744270E-02_JPRB, 0.669225E-02_JPRB &
+  &, 0.598437E-02_JPRB, 0.535869E-02_JPRB, 0.478333E-02_JPRB, 0.426167E-02_JPRB &
+  &, 0.379717E-02_JPRB, 0.335446E-02_JPRB, 0.297473E-02_JPRB &
+  &, 0.266165E-02_JPRB, 0.233726E-02_JPRB, 0.208439E-02_JPRB, 0.182255E-02_JPRB &
+  &, 0.159445E-02_JPRB, 0.140198E-02_JPRB, 0.124709E-02_JPRB &
+  &, 0.108689E-02_JPRB, 0.966860E-03_JPRB, 0.842772E-03_JPRB, 0.714572E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.542421E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 368, :) = (/ &
+  &  0.963234E+00_JPRB, 0.953169E+00_JPRB, 0.942764E+00_JPRB, 0.932033E+00_JPRB &
+  &, 0.920981E+00_JPRB, 0.909614E+00_JPRB, 0.897940E+00_JPRB &
+  &, 0.885970E+00_JPRB, 0.873707E+00_JPRB, 0.861166E+00_JPRB, 0.848347E+00_JPRB &
+  &, 0.835275E+00_JPRB, 0.821945E+00_JPRB, 0.808370E+00_JPRB &
+  &, 0.794563E+00_JPRB, 0.780534E+00_JPRB, 0.766294E+00_JPRB, 0.751854E+00_JPRB &
+  &, 0.737225E+00_JPRB, 0.722422E+00_JPRB, 0.707456E+00_JPRB &
+  &, 0.692340E+00_JPRB, 0.677086E+00_JPRB, 0.661715E+00_JPRB, 0.646233E+00_JPRB &
+  &, 0.630661E+00_JPRB, 0.615010E+00_JPRB, 0.599299E+00_JPRB &
+  &, 0.583540E+00_JPRB, 0.567754E+00_JPRB, 0.551958E+00_JPRB, 0.536162E+00_JPRB &
+  &, 0.520392E+00_JPRB, 0.504655E+00_JPRB, 0.488981E+00_JPRB &
+  &, 0.473372E+00_JPRB, 0.457859E+00_JPRB, 0.442451E+00_JPRB, 0.427176E+00_JPRB &
+  &, 0.412036E+00_JPRB, 0.397064E+00_JPRB, 0.382254E+00_JPRB &
+  &, 0.367640E+00_JPRB, 0.353241E+00_JPRB, 0.339060E+00_JPRB, 0.325115E+00_JPRB &
+  &, 0.311410E+00_JPRB, 0.297972E+00_JPRB, 0.284819E+00_JPRB &
+  &, 0.271939E+00_JPRB, 0.259373E+00_JPRB, 0.247108E+00_JPRB, 0.235155E+00_JPRB &
+  &, 0.223526E+00_JPRB, 0.212228E+00_JPRB, 0.201270E+00_JPRB &
+  &, 0.190657E+00_JPRB, 0.180377E+00_JPRB, 0.170463E+00_JPRB, 0.160900E+00_JPRB &
+  &, 0.151668E+00_JPRB, 0.142812E+00_JPRB, 0.134308E+00_JPRB &
+  &, 0.126129E+00_JPRB, 0.118315E+00_JPRB, 0.110853E+00_JPRB, 0.103725E+00_JPRB &
+  &, 0.969300E-01_JPRB, 0.904648E-01_JPRB, 0.843034E-01_JPRB &
+  &, 0.784789E-01_JPRB, 0.729610E-01_JPRB, 0.677371E-01_JPRB, 0.627920E-01_JPRB &
+  &, 0.581533E-01_JPRB, 0.537798E-01_JPRB, 0.496487E-01_JPRB &
+  &, 0.457834E-01_JPRB, 0.421827E-01_JPRB, 0.387936E-01_JPRB, 0.356355E-01_JPRB &
+  &, 0.326753E-01_JPRB, 0.299301E-01_JPRB, 0.273904E-01_JPRB &
+  &, 0.250169E-01_JPRB, 0.228233E-01_JPRB, 0.207950E-01_JPRB, 0.189154E-01_JPRB &
+  &, 0.171660E-01_JPRB, 0.155876E-01_JPRB, 0.141302E-01_JPRB &
+  &, 0.127710E-01_JPRB, 0.115498E-01_JPRB, 0.104106E-01_JPRB, 0.939273E-02_JPRB &
+  &, 0.843645E-02_JPRB, 0.758098E-02_JPRB, 0.679775E-02_JPRB &
+  &, 0.609170E-02_JPRB, 0.543146E-02_JPRB, 0.485733E-02_JPRB, 0.433692E-02_JPRB &
+  &, 0.387368E-02_JPRB, 0.343224E-02_JPRB, 0.305379E-02_JPRB &
+  &, 0.270183E-02_JPRB, 0.237809E-02_JPRB, 0.212588E-02_JPRB, 0.186471E-02_JPRB &
+  &, 0.163727E-02_JPRB, 0.144548E-02_JPRB, 0.129128E-02_JPRB &
+  &, 0.113176E-02_JPRB, 0.966860E-03_JPRB, 0.842772E-03_JPRB, 0.761543E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.542421E-03_JPRB, 0.501261E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 369, :) = (/ &
+  &  0.963494E+00_JPRB, 0.953488E+00_JPRB, 0.943148E+00_JPRB, 0.932478E+00_JPRB &
+  &, 0.921484E+00_JPRB, 0.910175E+00_JPRB, 0.898559E+00_JPRB &
+  &, 0.886644E+00_JPRB, 0.874438E+00_JPRB, 0.861950E+00_JPRB, 0.849187E+00_JPRB &
+  &, 0.836161E+00_JPRB, 0.822880E+00_JPRB, 0.809354E+00_JPRB &
+  &, 0.795594E+00_JPRB, 0.781609E+00_JPRB, 0.767411E+00_JPRB, 0.753013E+00_JPRB &
+  &, 0.738425E+00_JPRB, 0.723659E+00_JPRB, 0.708727E+00_JPRB &
+  &, 0.693646E+00_JPRB, 0.678429E+00_JPRB, 0.663086E+00_JPRB, 0.647633E+00_JPRB &
+  &, 0.632086E+00_JPRB, 0.616463E+00_JPRB, 0.600773E+00_JPRB &
+  &, 0.585037E+00_JPRB, 0.569269E+00_JPRB, 0.553486E+00_JPRB, 0.537707E+00_JPRB &
+  &, 0.521946E+00_JPRB, 0.506226E+00_JPRB, 0.490555E+00_JPRB &
+  &, 0.474953E+00_JPRB, 0.459442E+00_JPRB, 0.444045E+00_JPRB, 0.428760E+00_JPRB &
+  &, 0.413619E+00_JPRB, 0.398634E+00_JPRB, 0.383831E+00_JPRB &
+  &, 0.369202E+00_JPRB, 0.354785E+00_JPRB, 0.340596E+00_JPRB, 0.326629E+00_JPRB &
+  &, 0.312913E+00_JPRB, 0.299462E+00_JPRB, 0.286281E+00_JPRB &
+  &, 0.273384E+00_JPRB, 0.260786E+00_JPRB, 0.248486E+00_JPRB, 0.236510E+00_JPRB &
+  &, 0.224855E+00_JPRB, 0.213530E+00_JPRB, 0.202542E+00_JPRB &
+  &, 0.191896E+00_JPRB, 0.181598E+00_JPRB, 0.171631E+00_JPRB, 0.162029E+00_JPRB &
+  &, 0.152789E+00_JPRB, 0.143888E+00_JPRB, 0.135338E+00_JPRB &
+  &, 0.127145E+00_JPRB, 0.119280E+00_JPRB, 0.111782E+00_JPRB, 0.104616E+00_JPRB &
+  &, 0.977811E-01_JPRB, 0.912735E-01_JPRB, 0.850881E-01_JPRB &
+  &, 0.792170E-01_JPRB, 0.736715E-01_JPRB, 0.684186E-01_JPRB, 0.634427E-01_JPRB &
+  &, 0.587487E-01_JPRB, 0.543406E-01_JPRB, 0.501971E-01_JPRB &
+  &, 0.463185E-01_JPRB, 0.426540E-01_JPRB, 0.392490E-01_JPRB, 0.360482E-01_JPRB &
+  &, 0.330961E-01_JPRB, 0.303055E-01_JPRB, 0.277456E-01_JPRB &
+  &, 0.253510E-01_JPRB, 0.231354E-01_JPRB, 0.210841E-01_JPRB, 0.191804E-01_JPRB &
+  &, 0.174360E-01_JPRB, 0.158015E-01_JPRB, 0.143479E-01_JPRB &
+  &, 0.129610E-01_JPRB, 0.117110E-01_JPRB, 0.105746E-01_JPRB, 0.952630E-02_JPRB &
+  &, 0.857236E-02_JPRB, 0.771926E-02_JPRB, 0.690326E-02_JPRB &
+  &, 0.619902E-02_JPRB, 0.554062E-02_JPRB, 0.496834E-02_JPRB, 0.441217E-02_JPRB &
+  &, 0.395019E-02_JPRB, 0.351001E-02_JPRB, 0.313285E-02_JPRB &
+  &, 0.278218E-02_JPRB, 0.245975E-02_JPRB, 0.216737E-02_JPRB, 0.190686E-02_JPRB &
+  &, 0.168009E-02_JPRB, 0.148898E-02_JPRB, 0.129128E-02_JPRB &
+  &, 0.113176E-02_JPRB, 0.101242E-02_JPRB, 0.889037E-03_JPRB, 0.761543E-03_JPRB &
+  &, 0.677572E-03_JPRB, 0.590823E-03_JPRB, 0.501261E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 370, :) = (/ &
+  &  0.963752E+00_JPRB, 0.953810E+00_JPRB, 0.943530E+00_JPRB, 0.932922E+00_JPRB &
+  &, 0.921986E+00_JPRB, 0.910737E+00_JPRB, 0.899178E+00_JPRB &
+  &, 0.887319E+00_JPRB, 0.875168E+00_JPRB, 0.862733E+00_JPRB, 0.850023E+00_JPRB &
+  &, 0.837047E+00_JPRB, 0.823816E+00_JPRB, 0.810337E+00_JPRB &
+  &, 0.796623E+00_JPRB, 0.782683E+00_JPRB, 0.768530E+00_JPRB, 0.754173E+00_JPRB &
+  &, 0.739624E+00_JPRB, 0.724896E+00_JPRB, 0.710001E+00_JPRB &
+  &, 0.694956E+00_JPRB, 0.679768E+00_JPRB, 0.664457E+00_JPRB, 0.649032E+00_JPRB &
+  &, 0.633516E+00_JPRB, 0.617916E+00_JPRB, 0.602249E+00_JPRB &
+  &, 0.586531E+00_JPRB, 0.570783E+00_JPRB, 0.555017E+00_JPRB, 0.539252E+00_JPRB &
+  &, 0.523503E+00_JPRB, 0.507792E+00_JPRB, 0.492129E+00_JPRB &
+  &, 0.476534E+00_JPRB, 0.461035E+00_JPRB, 0.445629E+00_JPRB, 0.430344E+00_JPRB &
+  &, 0.415202E+00_JPRB, 0.400215E+00_JPRB, 0.385397E+00_JPRB &
+  &, 0.370763E+00_JPRB, 0.356340E+00_JPRB, 0.342132E+00_JPRB, 0.328156E+00_JPRB &
+  &, 0.314416E+00_JPRB, 0.300952E+00_JPRB, 0.287743E+00_JPRB &
+  &, 0.274830E+00_JPRB, 0.262213E+00_JPRB, 0.249892E+00_JPRB, 0.237879E+00_JPRB &
+  &, 0.226199E+00_JPRB, 0.214846E+00_JPRB, 0.203829E+00_JPRB &
+  &, 0.193136E+00_JPRB, 0.182803E+00_JPRB, 0.172816E+00_JPRB, 0.163174E+00_JPRB &
+  &, 0.153892E+00_JPRB, 0.144965E+00_JPRB, 0.136385E+00_JPRB &
+  &, 0.128143E+00_JPRB, 0.120263E+00_JPRB, 0.112711E+00_JPRB, 0.105507E+00_JPRB &
+  &, 0.986321E-01_JPRB, 0.921025E-01_JPRB, 0.858728E-01_JPRB &
+  &, 0.799761E-01_JPRB, 0.743821E-01_JPRB, 0.691000E-01_JPRB, 0.640934E-01_JPRB &
+  &, 0.593670E-01_JPRB, 0.549248E-01_JPRB, 0.507455E-01_JPRB &
+  &, 0.468292E-01_JPRB, 0.431501E-01_JPRB, 0.397044E-01_JPRB, 0.364868E-01_JPRB &
+  &, 0.334906E-01_JPRB, 0.307076E-01_JPRB, 0.281009E-01_JPRB &
+  &, 0.256852E-01_JPRB, 0.234476E-01_JPRB, 0.213732E-01_JPRB, 0.194455E-01_JPRB &
+  &, 0.176759E-01_JPRB, 0.160458E-01_JPRB, 0.145345E-01_JPRB &
+  &, 0.131826E-01_JPRB, 0.119044E-01_JPRB, 0.107387E-01_JPRB, 0.969325E-02_JPRB &
+  &, 0.870827E-02_JPRB, 0.785755E-02_JPRB, 0.704394E-02_JPRB &
+  &, 0.630635E-02_JPRB, 0.564978E-02_JPRB, 0.504235E-02_JPRB, 0.452505E-02_JPRB &
+  &, 0.402670E-02_JPRB, 0.358779E-02_JPRB, 0.317238E-02_JPRB &
+  &, 0.282235E-02_JPRB, 0.250058E-02_JPRB, 0.220885E-02_JPRB, 0.194901E-02_JPRB &
+  &, 0.172292E-02_JPRB, 0.153248E-02_JPRB, 0.133546E-02_JPRB &
+  &, 0.117663E-02_JPRB, 0.101242E-02_JPRB, 0.889037E-03_JPRB, 0.761543E-03_JPRB &
+  &, 0.677572E-03_JPRB, 0.590823E-03_JPRB, 0.501261E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 371, :) = (/ &
+  &  0.964009E+00_JPRB, 0.954132E+00_JPRB, 0.943913E+00_JPRB, 0.933365E+00_JPRB &
+  &, 0.922490E+00_JPRB, 0.911298E+00_JPRB, 0.899797E+00_JPRB &
+  &, 0.887994E+00_JPRB, 0.875897E+00_JPRB, 0.863516E+00_JPRB, 0.850858E+00_JPRB &
+  &, 0.837933E+00_JPRB, 0.824751E+00_JPRB, 0.811321E+00_JPRB &
+  &, 0.797654E+00_JPRB, 0.783759E+00_JPRB, 0.769648E+00_JPRB, 0.755332E+00_JPRB &
+  &, 0.740824E+00_JPRB, 0.726134E+00_JPRB, 0.711276E+00_JPRB &
+  &, 0.696266E+00_JPRB, 0.681111E+00_JPRB, 0.665831E+00_JPRB, 0.650435E+00_JPRB &
+  &, 0.634942E+00_JPRB, 0.619369E+00_JPRB, 0.603726E+00_JPRB &
+  &, 0.588028E+00_JPRB, 0.572302E+00_JPRB, 0.556553E+00_JPRB, 0.540801E+00_JPRB &
+  &, 0.525066E+00_JPRB, 0.509362E+00_JPRB, 0.493707E+00_JPRB &
+  &, 0.478124E+00_JPRB, 0.462618E+00_JPRB, 0.447223E+00_JPRB, 0.431938E+00_JPRB &
+  &, 0.416795E+00_JPRB, 0.401796E+00_JPRB, 0.386975E+00_JPRB &
+  &, 0.372336E+00_JPRB, 0.357895E+00_JPRB, 0.343668E+00_JPRB, 0.329682E+00_JPRB &
+  &, 0.315931E+00_JPRB, 0.302442E+00_JPRB, 0.289218E+00_JPRB &
+  &, 0.276275E+00_JPRB, 0.263626E+00_JPRB, 0.251284E+00_JPRB, 0.239249E+00_JPRB &
+  &, 0.227543E+00_JPRB, 0.216163E+00_JPRB, 0.205101E+00_JPRB &
+  &, 0.194391E+00_JPRB, 0.184024E+00_JPRB, 0.174000E+00_JPRB, 0.164336E+00_JPRB &
+  &, 0.155012E+00_JPRB, 0.146041E+00_JPRB, 0.137432E+00_JPRB &
+  &, 0.129160E+00_JPRB, 0.121227E+00_JPRB, 0.113659E+00_JPRB, 0.106418E+00_JPRB &
+  &, 0.995029E-01_JPRB, 0.929314E-01_JPRB, 0.866781E-01_JPRB &
+  &, 0.807353E-01_JPRB, 0.751142E-01_JPRB, 0.697815E-01_JPRB, 0.647441E-01_JPRB &
+  &, 0.600082E-01_JPRB, 0.555324E-01_JPRB, 0.513177E-01_JPRB &
+  &, 0.473643E-01_JPRB, 0.436463E-01_JPRB, 0.401851E-01_JPRB, 0.369253E-01_JPRB &
+  &, 0.339114E-01_JPRB, 0.310830E-01_JPRB, 0.284561E-01_JPRB &
+  &, 0.260194E-01_JPRB, 0.237597E-01_JPRB, 0.216623E-01_JPRB, 0.197399E-01_JPRB &
+  &, 0.179458E-01_JPRB, 0.162902E-01_JPRB, 0.147833E-01_JPRB &
+  &, 0.133726E-01_JPRB, 0.120978E-01_JPRB, 0.109355E-01_JPRB, 0.986020E-02_JPRB &
+  &, 0.887816E-02_JPRB, 0.796126E-02_JPRB, 0.714945E-02_JPRB &
+  &, 0.641367E-02_JPRB, 0.575893E-02_JPRB, 0.515335E-02_JPRB, 0.460030E-02_JPRB &
+  &, 0.410320E-02_JPRB, 0.366557E-02_JPRB, 0.325144E-02_JPRB &
+  &, 0.286253E-02_JPRB, 0.254141E-02_JPRB, 0.225034E-02_JPRB, 0.199116E-02_JPRB &
+  &, 0.176574E-02_JPRB, 0.153248E-02_JPRB, 0.137964E-02_JPRB &
+  &, 0.117663E-02_JPRB, 0.105799E-02_JPRB, 0.935302E-03_JPRB, 0.808514E-03_JPRB &
+  &, 0.677572E-03_JPRB, 0.590823E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.414739E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART53',1,ZHOOK_HANDLE)
+END SUBROUTINE PART53
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART54
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART54',0,ZHOOK_HANDLE)
+
+XCW( 372, :) = (/ &
+  &  0.964269E+00_JPRB, 0.954453E+00_JPRB, 0.944296E+00_JPRB, 0.933808E+00_JPRB &
+  &, 0.922992E+00_JPRB, 0.911860E+00_JPRB, 0.900415E+00_JPRB &
+  &, 0.888668E+00_JPRB, 0.876627E+00_JPRB, 0.864299E+00_JPRB, 0.851693E+00_JPRB &
+  &, 0.838818E+00_JPRB, 0.825685E+00_JPRB, 0.812304E+00_JPRB &
+  &, 0.798683E+00_JPRB, 0.784833E+00_JPRB, 0.770765E+00_JPRB, 0.756492E+00_JPRB &
+  &, 0.742024E+00_JPRB, 0.727371E+00_JPRB, 0.712553E+00_JPRB &
+  &, 0.697575E+00_JPRB, 0.682454E+00_JPRB, 0.667202E+00_JPRB, 0.651839E+00_JPRB &
+  &, 0.636346E+00_JPRB, 0.620821E+00_JPRB, 0.605203E+00_JPRB &
+  &, 0.589530E+00_JPRB, 0.573817E+00_JPRB, 0.558085E+00_JPRB, 0.542350E+00_JPRB &
+  &, 0.526628E+00_JPRB, 0.510937E+00_JPRB, 0.495290E+00_JPRB &
+  &, 0.479706E+00_JPRB, 0.464211E+00_JPRB, 0.448807E+00_JPRB, 0.433532E+00_JPRB &
+  &, 0.418378E+00_JPRB, 0.403387E+00_JPRB, 0.388552E+00_JPRB &
+  &, 0.373897E+00_JPRB, 0.359450E+00_JPRB, 0.345215E+00_JPRB, 0.331208E+00_JPRB &
+  &, 0.317446E+00_JPRB, 0.303932E+00_JPRB, 0.290693E+00_JPRB &
+  &, 0.277734E+00_JPRB, 0.265066E+00_JPRB, 0.252690E+00_JPRB, 0.240632E+00_JPRB &
+  &, 0.228887E+00_JPRB, 0.217480E+00_JPRB, 0.206403E+00_JPRB &
+  &, 0.195647E+00_JPRB, 0.185261E+00_JPRB, 0.175201E+00_JPRB, 0.165498E+00_JPRB &
+  &, 0.156133E+00_JPRB, 0.147135E+00_JPRB, 0.138480E+00_JPRB &
+  &, 0.130176E+00_JPRB, 0.122211E+00_JPRB, 0.114588E+00_JPRB, 0.107309E+00_JPRB &
+  &, 0.100374E+00_JPRB, 0.937603E-01_JPRB, 0.874628E-01_JPRB &
+  &, 0.814945E-01_JPRB, 0.758463E-01_JPRB, 0.704849E-01_JPRB, 0.654172E-01_JPRB &
+  &, 0.606265E-01_JPRB, 0.561166E-01_JPRB, 0.518660E-01_JPRB &
+  &, 0.478994E-01_JPRB, 0.441672E-01_JPRB, 0.406658E-01_JPRB, 0.373897E-01_JPRB &
+  &, 0.343322E-01_JPRB, 0.314851E-01_JPRB, 0.288387E-01_JPRB &
+  &, 0.263535E-01_JPRB, 0.240718E-01_JPRB, 0.219514E-01_JPRB, 0.200050E-01_JPRB &
+  &, 0.181858E-01_JPRB, 0.165345E-01_JPRB, 0.150010E-01_JPRB &
+  &, 0.135943E-01_JPRB, 0.122912E-01_JPRB, 0.110996E-01_JPRB, 0.100272E-01_JPRB &
+  &, 0.901407E-02_JPRB, 0.809954E-02_JPRB, 0.729013E-02_JPRB &
+  &, 0.652100E-02_JPRB, 0.586809E-02_JPRB, 0.522736E-02_JPRB, 0.467555E-02_JPRB &
+  &, 0.417971E-02_JPRB, 0.370446E-02_JPRB, 0.329097E-02_JPRB &
+  &, 0.294288E-02_JPRB, 0.262307E-02_JPRB, 0.229183E-02_JPRB, 0.203331E-02_JPRB &
+  &, 0.180856E-02_JPRB, 0.157598E-02_JPRB, 0.137964E-02_JPRB &
+  &, 0.122150E-02_JPRB, 0.105799E-02_JPRB, 0.935302E-03_JPRB, 0.808514E-03_JPRB &
+  &, 0.725256E-03_JPRB, 0.639225E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 373, :) = (/ &
+  &  0.964527E+00_JPRB, 0.954774E+00_JPRB, 0.944678E+00_JPRB, 0.934251E+00_JPRB &
+  &, 0.923495E+00_JPRB, 0.912420E+00_JPRB, 0.901032E+00_JPRB &
+  &, 0.889342E+00_JPRB, 0.877355E+00_JPRB, 0.865081E+00_JPRB, 0.852528E+00_JPRB &
+  &, 0.839705E+00_JPRB, 0.826622E+00_JPRB, 0.813287E+00_JPRB &
+  &, 0.799712E+00_JPRB, 0.785908E+00_JPRB, 0.771884E+00_JPRB, 0.757652E+00_JPRB &
+  &, 0.743225E+00_JPRB, 0.728611E+00_JPRB, 0.713828E+00_JPRB &
+  &, 0.698885E+00_JPRB, 0.683797E+00_JPRB, 0.668576E+00_JPRB, 0.653242E+00_JPRB &
+  &, 0.637804E+00_JPRB, 0.622278E+00_JPRB, 0.606684E+00_JPRB &
+  &, 0.591031E+00_JPRB, 0.575339E+00_JPRB, 0.559625E+00_JPRB, 0.543904E+00_JPRB &
+  &, 0.528194E+00_JPRB, 0.512512E+00_JPRB, 0.496873E+00_JPRB &
+  &, 0.481296E+00_JPRB, 0.465803E+00_JPRB, 0.450410E+00_JPRB, 0.435126E+00_JPRB &
+  &, 0.419971E+00_JPRB, 0.404968E+00_JPRB, 0.390129E+00_JPRB &
+  &, 0.375481E+00_JPRB, 0.361017E+00_JPRB, 0.346762E+00_JPRB, 0.332746E+00_JPRB &
+  &, 0.318961E+00_JPRB, 0.305434E+00_JPRB, 0.292169E+00_JPRB &
+  &, 0.279192E+00_JPRB, 0.266493E+00_JPRB, 0.254096E+00_JPRB, 0.242015E+00_JPRB &
+  &, 0.230246E+00_JPRB, 0.218796E+00_JPRB, 0.207690E+00_JPRB &
+  &, 0.196917E+00_JPRB, 0.186482E+00_JPRB, 0.176401E+00_JPRB, 0.166660E+00_JPRB &
+  &, 0.157270E+00_JPRB, 0.148228E+00_JPRB, 0.139527E+00_JPRB &
+  &, 0.131192E+00_JPRB, 0.123194E+00_JPRB, 0.115535E+00_JPRB, 0.108219E+00_JPRB &
+  &, 0.101245E+00_JPRB, 0.946095E-01_JPRB, 0.882682E-01_JPRB &
+  &, 0.822747E-01_JPRB, 0.765784E-01_JPRB, 0.711663E-01_JPRB, 0.660679E-01_JPRB &
+  &, 0.612678E-01_JPRB, 0.567241E-01_JPRB, 0.524382E-01_JPRB &
+  &, 0.484344E-01_JPRB, 0.446634E-01_JPRB, 0.411212E-01_JPRB, 0.378282E-01_JPRB &
+  &, 0.347530E-01_JPRB, 0.318873E-01_JPRB, 0.291939E-01_JPRB &
+  &, 0.267155E-01_JPRB, 0.244123E-01_JPRB, 0.222693E-01_JPRB, 0.202994E-01_JPRB &
+  &, 0.184557E-01_JPRB, 0.167789E-01_JPRB, 0.152187E-01_JPRB &
+  &, 0.137843E-01_JPRB, 0.124846E-01_JPRB, 0.112636E-01_JPRB, 0.101607E-01_JPRB &
+  &, 0.918396E-02_JPRB, 0.823782E-02_JPRB, 0.743081E-02_JPRB &
+  &, 0.666409E-02_JPRB, 0.597725E-02_JPRB, 0.533837E-02_JPRB, 0.475080E-02_JPRB &
+  &, 0.425622E-02_JPRB, 0.378224E-02_JPRB, 0.337003E-02_JPRB &
+  &, 0.298306E-02_JPRB, 0.266390E-02_JPRB, 0.237480E-02_JPRB, 0.207547E-02_JPRB &
+  &, 0.185139E-02_JPRB, 0.161948E-02_JPRB, 0.142382E-02_JPRB &
+  &, 0.126637E-02_JPRB, 0.110355E-02_JPRB, 0.981568E-03_JPRB, 0.855486E-03_JPRB &
+  &, 0.725256E-03_JPRB, 0.639225E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 374, :) = (/ &
+  &  0.964784E+00_JPRB, 0.955094E+00_JPRB, 0.945061E+00_JPRB, 0.934693E+00_JPRB &
+  &, 0.923998E+00_JPRB, 0.912981E+00_JPRB, 0.901651E+00_JPRB &
+  &, 0.890016E+00_JPRB, 0.878084E+00_JPRB, 0.865863E+00_JPRB, 0.853363E+00_JPRB &
+  &, 0.840590E+00_JPRB, 0.827556E+00_JPRB, 0.814270E+00_JPRB &
+  &, 0.800743E+00_JPRB, 0.786983E+00_JPRB, 0.773002E+00_JPRB, 0.758812E+00_JPRB &
+  &, 0.744425E+00_JPRB, 0.729849E+00_JPRB, 0.715102E+00_JPRB &
+  &, 0.700195E+00_JPRB, 0.685140E+00_JPRB, 0.669954E+00_JPRB, 0.654645E+00_JPRB &
+  &, 0.639234E+00_JPRB, 0.623735E+00_JPRB, 0.608157E+00_JPRB &
+  &, 0.592533E+00_JPRB, 0.576858E+00_JPRB, 0.561161E+00_JPRB, 0.545457E+00_JPRB &
+  &, 0.529761E+00_JPRB, 0.514087E+00_JPRB, 0.498461E+00_JPRB &
+  &, 0.482887E+00_JPRB, 0.467396E+00_JPRB, 0.452004E+00_JPRB, 0.436720E+00_JPRB &
+  &, 0.421565E+00_JPRB, 0.406559E+00_JPRB, 0.391717E+00_JPRB &
+  &, 0.377054E+00_JPRB, 0.362583E+00_JPRB, 0.348321E+00_JPRB, 0.334285E+00_JPRB &
+  &, 0.320488E+00_JPRB, 0.306937E+00_JPRB, 0.293656E+00_JPRB &
+  &, 0.280651E+00_JPRB, 0.267933E+00_JPRB, 0.255516E+00_JPRB, 0.243398E+00_JPRB &
+  &, 0.231604E+00_JPRB, 0.220128E+00_JPRB, 0.208992E+00_JPRB &
+  &, 0.198188E+00_JPRB, 0.187719E+00_JPRB, 0.177602E+00_JPRB, 0.167821E+00_JPRB &
+  &, 0.158407E+00_JPRB, 0.149322E+00_JPRB, 0.140592E+00_JPRB &
+  &, 0.132226E+00_JPRB, 0.124177E+00_JPRB, 0.116502E+00_JPRB, 0.109149E+00_JPRB &
+  &, 0.102135E+00_JPRB, 0.954384E-01_JPRB, 0.890942E-01_JPRB &
+  &, 0.830339E-01_JPRB, 0.773105E-01_JPRB, 0.718698E-01_JPRB, 0.667411E-01_JPRB &
+  &, 0.618861E-01_JPRB, 0.573317E-01_JPRB, 0.530104E-01_JPRB &
+  &, 0.489695E-01_JPRB, 0.451844E-01_JPRB, 0.416272E-01_JPRB, 0.382926E-01_JPRB &
+  &, 0.351738E-01_JPRB, 0.322894E-01_JPRB, 0.295765E-01_JPRB &
+  &, 0.270776E-01_JPRB, 0.247244E-01_JPRB, 0.225584E-01_JPRB, 0.205645E-01_JPRB &
+  &, 0.187257E-01_JPRB, 0.170232E-01_JPRB, 0.154364E-01_JPRB &
+  &, 0.140059E-01_JPRB, 0.126780E-01_JPRB, 0.114605E-01_JPRB, 0.103277E-01_JPRB &
+  &, 0.931987E-02_JPRB, 0.837610E-02_JPRB, 0.753632E-02_JPRB &
+  &, 0.677142E-02_JPRB, 0.608640E-02_JPRB, 0.544938E-02_JPRB, 0.486368E-02_JPRB &
+  &, 0.433273E-02_JPRB, 0.386001E-02_JPRB, 0.344909E-02_JPRB &
+  &, 0.306341E-02_JPRB, 0.270473E-02_JPRB, 0.241629E-02_JPRB, 0.211762E-02_JPRB &
+  &, 0.189421E-02_JPRB, 0.166298E-02_JPRB, 0.146800E-02_JPRB &
+  &, 0.126637E-02_JPRB, 0.114912E-02_JPRB, 0.981568E-03_JPRB, 0.855486E-03_JPRB &
+  &, 0.772939E-03_JPRB, 0.639225E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.508563E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 375, :) = (/ &
+  &  0.965044E+00_JPRB, 0.955415E+00_JPRB, 0.945443E+00_JPRB, 0.935136E+00_JPRB &
+  &, 0.924499E+00_JPRB, 0.913541E+00_JPRB, 0.902269E+00_JPRB &
+  &, 0.890690E+00_JPRB, 0.878812E+00_JPRB, 0.866646E+00_JPRB, 0.854192E+00_JPRB &
+  &, 0.841475E+00_JPRB, 0.828491E+00_JPRB, 0.815253E+00_JPRB &
+  &, 0.801772E+00_JPRB, 0.788059E+00_JPRB, 0.774121E+00_JPRB, 0.759973E+00_JPRB &
+  &, 0.745625E+00_JPRB, 0.731089E+00_JPRB, 0.716379E+00_JPRB &
+  &, 0.701508E+00_JPRB, 0.686484E+00_JPRB, 0.671328E+00_JPRB, 0.656052E+00_JPRB &
+  &, 0.640667E+00_JPRB, 0.625195E+00_JPRB, 0.609645E+00_JPRB &
+  &, 0.594034E+00_JPRB, 0.578380E+00_JPRB, 0.562701E+00_JPRB, 0.547010E+00_JPRB &
+  &, 0.531327E+00_JPRB, 0.515667E+00_JPRB, 0.500049E+00_JPRB &
+  &, 0.484487E+00_JPRB, 0.468998E+00_JPRB, 0.453608E+00_JPRB, 0.438324E+00_JPRB &
+  &, 0.423168E+00_JPRB, 0.408161E+00_JPRB, 0.393305E+00_JPRB &
+  &, 0.378637E+00_JPRB, 0.364150E+00_JPRB, 0.349881E+00_JPRB, 0.335823E+00_JPRB &
+  &, 0.322016E+00_JPRB, 0.308451E+00_JPRB, 0.295144E+00_JPRB &
+  &, 0.282122E+00_JPRB, 0.269373E+00_JPRB, 0.256936E+00_JPRB, 0.244796E+00_JPRB &
+  &, 0.232977E+00_JPRB, 0.221474E+00_JPRB, 0.210295E+00_JPRB &
+  &, 0.199459E+00_JPRB, 0.188956E+00_JPRB, 0.178803E+00_JPRB, 0.169000E+00_JPRB &
+  &, 0.159545E+00_JPRB, 0.150433E+00_JPRB, 0.141657E+00_JPRB &
+  &, 0.133243E+00_JPRB, 0.125178E+00_JPRB, 0.117450E+00_JPRB, 0.110079E+00_JPRB &
+  &, 0.103026E+00_JPRB, 0.962876E-01_JPRB, 0.898995E-01_JPRB &
+  &, 0.838142E-01_JPRB, 0.780641E-01_JPRB, 0.725952E-01_JPRB, 0.674142E-01_JPRB &
+  &, 0.625273E-01_JPRB, 0.579393E-01_JPRB, 0.535826E-01_JPRB &
+  &, 0.495289E-01_JPRB, 0.456805E-01_JPRB, 0.421078E-01_JPRB, 0.387569E-01_JPRB &
+  &, 0.356209E-01_JPRB, 0.326916E-01_JPRB, 0.299590E-01_JPRB &
+  &, 0.274117E-01_JPRB, 0.250649E-01_JPRB, 0.228764E-01_JPRB, 0.208589E-01_JPRB &
+  &, 0.189956E-01_JPRB, 0.172676E-01_JPRB, 0.156853E-01_JPRB &
+  &, 0.142276E-01_JPRB, 0.128714E-01_JPRB, 0.116245E-01_JPRB, 0.104946E-01_JPRB &
+  &, 0.948976E-02_JPRB, 0.854896E-02_JPRB, 0.767700E-02_JPRB &
+  &, 0.687874E-02_JPRB, 0.619556E-02_JPRB, 0.552338E-02_JPRB, 0.493893E-02_JPRB &
+  &, 0.440924E-02_JPRB, 0.393779E-02_JPRB, 0.352815E-02_JPRB &
+  &, 0.310359E-02_JPRB, 0.278638E-02_JPRB, 0.245778E-02_JPRB, 0.215977E-02_JPRB &
+  &, 0.193703E-02_JPRB, 0.170648E-02_JPRB, 0.151219E-02_JPRB &
+  &, 0.131124E-02_JPRB, 0.114912E-02_JPRB, 0.102783E-02_JPRB, 0.902457E-03_JPRB &
+  &, 0.772939E-03_JPRB, 0.687627E-03_JPRB, 0.599514E-03_JPRB &
+  &, 0.508563E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 376, :) = (/ &
+  &  0.965302E+00_JPRB, 0.955736E+00_JPRB, 0.945824E+00_JPRB, 0.935578E+00_JPRB &
+  &, 0.925001E+00_JPRB, 0.914101E+00_JPRB, 0.902886E+00_JPRB &
+  &, 0.891363E+00_JPRB, 0.879541E+00_JPRB, 0.867428E+00_JPRB, 0.855032E+00_JPRB &
+  &, 0.842361E+00_JPRB, 0.829426E+00_JPRB, 0.816237E+00_JPRB &
+  &, 0.802803E+00_JPRB, 0.789134E+00_JPRB, 0.775240E+00_JPRB, 0.761134E+00_JPRB &
+  &, 0.746827E+00_JPRB, 0.732329E+00_JPRB, 0.717657E+00_JPRB &
+  &, 0.702817E+00_JPRB, 0.687830E+00_JPRB, 0.672706E+00_JPRB, 0.657459E+00_JPRB &
+  &, 0.642104E+00_JPRB, 0.626655E+00_JPRB, 0.611126E+00_JPRB &
+  &, 0.595540E+00_JPRB, 0.579907E+00_JPRB, 0.564245E+00_JPRB, 0.548568E+00_JPRB &
+  &, 0.532898E+00_JPRB, 0.517246E+00_JPRB, 0.501636E+00_JPRB &
+  &, 0.486077E+00_JPRB, 0.470600E+00_JPRB, 0.455211E+00_JPRB, 0.439929E+00_JPRB &
+  &, 0.424772E+00_JPRB, 0.409752E+00_JPRB, 0.394893E+00_JPRB &
+  &, 0.380221E+00_JPRB, 0.365728E+00_JPRB, 0.351440E+00_JPRB, 0.337373E+00_JPRB &
+  &, 0.323543E+00_JPRB, 0.309954E+00_JPRB, 0.296632E+00_JPRB &
+  &, 0.283594E+00_JPRB, 0.270826E+00_JPRB, 0.258355E+00_JPRB, 0.246193E+00_JPRB &
+  &, 0.234335E+00_JPRB, 0.222806E+00_JPRB, 0.211612E+00_JPRB &
+  &, 0.200745E+00_JPRB, 0.190209E+00_JPRB, 0.180019E+00_JPRB, 0.170178E+00_JPRB &
+  &, 0.160682E+00_JPRB, 0.151544E+00_JPRB, 0.142740E+00_JPRB &
+  &, 0.134295E+00_JPRB, 0.126180E+00_JPRB, 0.118417E+00_JPRB, 0.110989E+00_JPRB &
+  &, 0.103916E+00_JPRB, 0.971569E-01_JPRB, 0.907255E-01_JPRB &
+  &, 0.846155E-01_JPRB, 0.787962E-01_JPRB, 0.732986E-01_JPRB, 0.681098E-01_JPRB &
+  &, 0.631914E-01_JPRB, 0.585468E-01_JPRB, 0.541787E-01_JPRB &
+  &, 0.500640E-01_JPRB, 0.462015E-01_JPRB, 0.425885E-01_JPRB, 0.391955E-01_JPRB &
+  &, 0.360417E-01_JPRB, 0.330937E-01_JPRB, 0.303416E-01_JPRB &
+  &, 0.277737E-01_JPRB, 0.254054E-01_JPRB, 0.231944E-01_JPRB, 0.211534E-01_JPRB &
+  &, 0.192655E-01_JPRB, 0.175119E-01_JPRB, 0.159030E-01_JPRB &
+  &, 0.144176E-01_JPRB, 0.130648E-01_JPRB, 0.118214E-01_JPRB, 0.106950E-01_JPRB &
+  &, 0.962567E-02_JPRB, 0.868724E-02_JPRB, 0.781768E-02_JPRB &
+  &, 0.702184E-02_JPRB, 0.630472E-02_JPRB, 0.563439E-02_JPRB, 0.505181E-02_JPRB &
+  &, 0.448575E-02_JPRB, 0.401557E-02_JPRB, 0.356768E-02_JPRB &
+  &, 0.318394E-02_JPRB, 0.282721E-02_JPRB, 0.249927E-02_JPRB, 0.220192E-02_JPRB &
+  &, 0.197986E-02_JPRB, 0.174998E-02_JPRB, 0.151219E-02_JPRB &
+  &, 0.135611E-02_JPRB, 0.119468E-02_JPRB, 0.102783E-02_JPRB, 0.902457E-03_JPRB &
+  &, 0.772939E-03_JPRB, 0.687627E-03_JPRB, 0.599514E-03_JPRB &
+  &, 0.508563E-03_JPRB, 0.465332E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 377, :) = (/ &
+  &  0.965560E+00_JPRB, 0.956056E+00_JPRB, 0.946205E+00_JPRB, 0.936020E+00_JPRB &
+  &, 0.925502E+00_JPRB, 0.914661E+00_JPRB, 0.903503E+00_JPRB &
+  &, 0.892036E+00_JPRB, 0.880269E+00_JPRB, 0.868209E+00_JPRB, 0.855865E+00_JPRB &
+  &, 0.843246E+00_JPRB, 0.830361E+00_JPRB, 0.817220E+00_JPRB &
+  &, 0.803832E+00_JPRB, 0.790208E+00_JPRB, 0.776359E+00_JPRB, 0.762295E+00_JPRB &
+  &, 0.748029E+00_JPRB, 0.733570E+00_JPRB, 0.718934E+00_JPRB &
+  &, 0.704130E+00_JPRB, 0.689176E+00_JPRB, 0.674084E+00_JPRB, 0.658865E+00_JPRB &
+  &, 0.643537E+00_JPRB, 0.628115E+00_JPRB, 0.612610E+00_JPRB &
+  &, 0.597045E+00_JPRB, 0.581434E+00_JPRB, 0.565785E+00_JPRB, 0.550125E+00_JPRB &
+  &, 0.534469E+00_JPRB, 0.518830E+00_JPRB, 0.503228E+00_JPRB &
+  &, 0.487677E+00_JPRB, 0.472202E+00_JPRB, 0.456815E+00_JPRB, 0.441533E+00_JPRB &
+  &, 0.426375E+00_JPRB, 0.411354E+00_JPRB, 0.396492E+00_JPRB &
+  &, 0.381805E+00_JPRB, 0.367305E+00_JPRB, 0.352999E+00_JPRB, 0.338923E+00_JPRB &
+  &, 0.325071E+00_JPRB, 0.311469E+00_JPRB, 0.298133E+00_JPRB &
+  &, 0.285066E+00_JPRB, 0.272280E+00_JPRB, 0.259789E+00_JPRB, 0.247590E+00_JPRB &
+  &, 0.235708E+00_JPRB, 0.224152E+00_JPRB, 0.212929E+00_JPRB &
+  &, 0.202016E+00_JPRB, 0.191461E+00_JPRB, 0.181236E+00_JPRB, 0.171356E+00_JPRB &
+  &, 0.161836E+00_JPRB, 0.152655E+00_JPRB, 0.143823E+00_JPRB &
+  &, 0.135329E+00_JPRB, 0.127200E+00_JPRB, 0.119384E+00_JPRB, 0.111939E+00_JPRB &
+  &, 0.104807E+00_JPRB, 0.980061E-01_JPRB, 0.915515E-01_JPRB &
+  &, 0.853958E-01_JPRB, 0.795498E-01_JPRB, 0.740240E-01_JPRB, 0.687830E-01_JPRB &
+  &, 0.638326E-01_JPRB, 0.591544E-01_JPRB, 0.547509E-01_JPRB &
+  &, 0.506234E-01_JPRB, 0.467472E-01_JPRB, 0.430945E-01_JPRB, 0.396856E-01_JPRB &
+  &, 0.364889E-01_JPRB, 0.334959E-01_JPRB, 0.307241E-01_JPRB &
+  &, 0.281358E-01_JPRB, 0.257459E-01_JPRB, 0.235124E-01_JPRB, 0.214479E-01_JPRB &
+  &, 0.195355E-01_JPRB, 0.177868E-01_JPRB, 0.161518E-01_JPRB &
+  &, 0.146392E-01_JPRB, 0.132582E-01_JPRB, 0.120182E-01_JPRB, 0.108619E-01_JPRB &
+  &, 0.979555E-02_JPRB, 0.882552E-02_JPRB, 0.792318E-02_JPRB &
+  &, 0.712916E-02_JPRB, 0.641387E-02_JPRB, 0.574540E-02_JPRB, 0.512706E-02_JPRB &
+  &, 0.460051E-02_JPRB, 0.409335E-02_JPRB, 0.364674E-02_JPRB &
+  &, 0.326430E-02_JPRB, 0.286804E-02_JPRB, 0.254076E-02_JPRB, 0.228623E-02_JPRB &
+  &, 0.202268E-02_JPRB, 0.174998E-02_JPRB, 0.155637E-02_JPRB &
+  &, 0.135611E-02_JPRB, 0.119468E-02_JPRB, 0.107410E-02_JPRB, 0.949429E-03_JPRB &
+  &, 0.820623E-03_JPRB, 0.687627E-03_JPRB, 0.599514E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.465332E-03_JPRB, 0.420676E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 378, :) = (/ &
+  &  0.965818E+00_JPRB, 0.956375E+00_JPRB, 0.946587E+00_JPRB, 0.936462E+00_JPRB &
+  &, 0.926004E+00_JPRB, 0.915220E+00_JPRB, 0.904119E+00_JPRB &
+  &, 0.892709E+00_JPRB, 0.880997E+00_JPRB, 0.868991E+00_JPRB, 0.856700E+00_JPRB &
+  &, 0.844131E+00_JPRB, 0.831297E+00_JPRB, 0.818203E+00_JPRB &
+  &, 0.804863E+00_JPRB, 0.791283E+00_JPRB, 0.777478E+00_JPRB, 0.763456E+00_JPRB &
+  &, 0.749231E+00_JPRB, 0.734810E+00_JPRB, 0.720212E+00_JPRB &
+  &, 0.705443E+00_JPRB, 0.690523E+00_JPRB, 0.675462E+00_JPRB, 0.660272E+00_JPRB &
+  &, 0.644974E+00_JPRB, 0.629576E+00_JPRB, 0.614099E+00_JPRB &
+  &, 0.598554E+00_JPRB, 0.582960E+00_JPRB, 0.567334E+00_JPRB, 0.551687E+00_JPRB &
+  &, 0.536044E+00_JPRB, 0.520418E+00_JPRB, 0.504825E+00_JPRB &
+  &, 0.489277E+00_JPRB, 0.473814E+00_JPRB, 0.458428E+00_JPRB, 0.443147E+00_JPRB &
+  &, 0.427979E+00_JPRB, 0.412956E+00_JPRB, 0.398091E+00_JPRB &
+  &, 0.383388E+00_JPRB, 0.368883E+00_JPRB, 0.354569E+00_JPRB, 0.340473E+00_JPRB &
+  &, 0.326610E+00_JPRB, 0.312996E+00_JPRB, 0.299634E+00_JPRB &
+  &, 0.286537E+00_JPRB, 0.273733E+00_JPRB, 0.261222E+00_JPRB, 0.249002E+00_JPRB &
+  &, 0.237095E+00_JPRB, 0.225513E+00_JPRB, 0.214247E+00_JPRB &
+  &, 0.203318E+00_JPRB, 0.192714E+00_JPRB, 0.182469E+00_JPRB, 0.172551E+00_JPRB &
+  &, 0.162991E+00_JPRB, 0.153766E+00_JPRB, 0.144905E+00_JPRB &
+  &, 0.136382E+00_JPRB, 0.128202E+00_JPRB, 0.120370E+00_JPRB, 0.112868E+00_JPRB &
+  &, 0.105718E+00_JPRB, 0.988755E-01_JPRB, 0.923776E-01_JPRB &
+  &, 0.861971E-01_JPRB, 0.803250E-01_JPRB, 0.747494E-01_JPRB, 0.694785E-01_JPRB &
+  &, 0.644967E-01_JPRB, 0.597853E-01_JPRB, 0.553469E-01_JPRB &
+  &, 0.511828E-01_JPRB, 0.472682E-01_JPRB, 0.436005E-01_JPRB, 0.401499E-01_JPRB &
+  &, 0.369360E-01_JPRB, 0.339249E-01_JPRB, 0.311067E-01_JPRB &
+  &, 0.284978E-01_JPRB, 0.260864E-01_JPRB, 0.238304E-01_JPRB, 0.217424E-01_JPRB &
+  &, 0.198054E-01_JPRB, 0.180312E-01_JPRB, 0.164006E-01_JPRB &
+  &, 0.148609E-01_JPRB, 0.134839E-01_JPRB, 0.122151E-01_JPRB, 0.110289E-01_JPRB &
+  &, 0.996544E-02_JPRB, 0.896381E-02_JPRB, 0.806386E-02_JPRB &
+  &, 0.727226E-02_JPRB, 0.652303E-02_JPRB, 0.585640E-02_JPRB, 0.523993E-02_JPRB &
+  &, 0.467702E-02_JPRB, 0.417113E-02_JPRB, 0.372580E-02_JPRB &
+  &, 0.330447E-02_JPRB, 0.294970E-02_JPRB, 0.262373E-02_JPRB, 0.232838E-02_JPRB &
+  &, 0.206550E-02_JPRB, 0.179348E-02_JPRB, 0.160055E-02_JPRB &
+  &, 0.140098E-02_JPRB, 0.124025E-02_JPRB, 0.107410E-02_JPRB, 0.949429E-03_JPRB &
+  &, 0.820623E-03_JPRB, 0.736029E-03_JPRB, 0.648640E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.465332E-03_JPRB, 0.420676E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART54',1,ZHOOK_HANDLE)
+END SUBROUTINE PART54
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART55
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART55',0,ZHOOK_HANDLE)
+
+XCW( 379, :) = (/ &
+  &  0.966075E+00_JPRB, 0.956695E+00_JPRB, 0.946967E+00_JPRB, 0.936903E+00_JPRB &
+  &, 0.926504E+00_JPRB, 0.915779E+00_JPRB, 0.904737E+00_JPRB &
+  &, 0.893382E+00_JPRB, 0.881725E+00_JPRB, 0.869773E+00_JPRB, 0.857533E+00_JPRB &
+  &, 0.845016E+00_JPRB, 0.832232E+00_JPRB, 0.819187E+00_JPRB &
+  &, 0.805892E+00_JPRB, 0.792358E+00_JPRB, 0.778597E+00_JPRB, 0.764618E+00_JPRB &
+  &, 0.750432E+00_JPRB, 0.736051E+00_JPRB, 0.721489E+00_JPRB &
+  &, 0.706756E+00_JPRB, 0.691869E+00_JPRB, 0.676840E+00_JPRB, 0.661682E+00_JPRB &
+  &, 0.646410E+00_JPRB, 0.631040E+00_JPRB, 0.615583E+00_JPRB &
+  &, 0.600064E+00_JPRB, 0.584487E+00_JPRB, 0.568878E+00_JPRB, 0.553249E+00_JPRB &
+  &, 0.537619E+00_JPRB, 0.522002E+00_JPRB, 0.506422E+00_JPRB &
+  &, 0.490886E+00_JPRB, 0.475416E+00_JPRB, 0.460032E+00_JPRB, 0.444761E+00_JPRB &
+  &, 0.429592E+00_JPRB, 0.414568E+00_JPRB, 0.399690E+00_JPRB &
+  &, 0.384983E+00_JPRB, 0.370461E+00_JPRB, 0.356140E+00_JPRB, 0.342035E+00_JPRB &
+  &, 0.328162E+00_JPRB, 0.314524E+00_JPRB, 0.301135E+00_JPRB &
+  &, 0.288022E+00_JPRB, 0.275200E+00_JPRB, 0.262656E+00_JPRB, 0.250413E+00_JPRB &
+  &, 0.238483E+00_JPRB, 0.226859E+00_JPRB, 0.215564E+00_JPRB &
+  &, 0.204604E+00_JPRB, 0.193983E+00_JPRB, 0.183702E+00_JPRB, 0.173746E+00_JPRB &
+  &, 0.164145E+00_JPRB, 0.154895E+00_JPRB, 0.145988E+00_JPRB &
+  &, 0.137434E+00_JPRB, 0.129222E+00_JPRB, 0.121355E+00_JPRB, 0.113818E+00_JPRB &
+  &, 0.106628E+00_JPRB, 0.997651E-01_JPRB, 0.932242E-01_JPRB &
+  &, 0.869985E-01_JPRB, 0.810786E-01_JPRB, 0.754748E-01_JPRB, 0.701741E-01_JPRB &
+  &, 0.651608E-01_JPRB, 0.604163E-01_JPRB, 0.559430E-01_JPRB &
+  &, 0.517422E-01_JPRB, 0.477891E-01_JPRB, 0.440812E-01_JPRB, 0.406143E-01_JPRB &
+  &, 0.373831E-01_JPRB, 0.343270E-01_JPRB, 0.315166E-01_JPRB &
+  &, 0.288876E-01_JPRB, 0.264269E-01_JPRB, 0.241484E-01_JPRB, 0.220369E-01_JPRB &
+  &, 0.201053E-01_JPRB, 0.183061E-01_JPRB, 0.166183E-01_JPRB &
+  &, 0.150825E-01_JPRB, 0.136773E-01_JPRB, 0.123791E-01_JPRB, 0.111958E-01_JPRB &
+  &, 0.101014E-01_JPRB, 0.913666E-02_JPRB, 0.820454E-02_JPRB &
+  &, 0.737959E-02_JPRB, 0.663219E-02_JPRB, 0.593041E-02_JPRB, 0.531518E-02_JPRB &
+  &, 0.475353E-02_JPRB, 0.424891E-02_JPRB, 0.380486E-02_JPRB &
+  &, 0.338483E-02_JPRB, 0.299053E-02_JPRB, 0.266522E-02_JPRB, 0.237053E-02_JPRB &
+  &, 0.210832E-02_JPRB, 0.183698E-02_JPRB, 0.164473E-02_JPRB &
+  &, 0.144585E-02_JPRB, 0.128581E-02_JPRB, 0.112036E-02_JPRB, 0.996400E-03_JPRB &
+  &, 0.868307E-03_JPRB, 0.736029E-03_JPRB, 0.648640E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.465332E-03_JPRB, 0.420676E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 380, :) = (/ &
+  &  0.966332E+00_JPRB, 0.957014E+00_JPRB, 0.947349E+00_JPRB, 0.937345E+00_JPRB &
+  &, 0.927005E+00_JPRB, 0.916339E+00_JPRB, 0.905353E+00_JPRB &
+  &, 0.894054E+00_JPRB, 0.882453E+00_JPRB, 0.870554E+00_JPRB, 0.858368E+00_JPRB &
+  &, 0.845901E+00_JPRB, 0.833166E+00_JPRB, 0.820170E+00_JPRB &
+  &, 0.806923E+00_JPRB, 0.793435E+00_JPRB, 0.779716E+00_JPRB, 0.765780E+00_JPRB &
+  &, 0.751634E+00_JPRB, 0.737291E+00_JPRB, 0.722767E+00_JPRB &
+  &, 0.708072E+00_JPRB, 0.693219E+00_JPRB, 0.678221E+00_JPRB, 0.663093E+00_JPRB &
+  &, 0.647847E+00_JPRB, 0.632504E+00_JPRB, 0.617071E+00_JPRB &
+  &, 0.601573E+00_JPRB, 0.586018E+00_JPRB, 0.570426E+00_JPRB, 0.554815E+00_JPRB &
+  &, 0.539198E+00_JPRB, 0.523595E+00_JPRB, 0.508018E+00_JPRB &
+  &, 0.492495E+00_JPRB, 0.477028E+00_JPRB, 0.461655E+00_JPRB, 0.446375E+00_JPRB &
+  &, 0.431206E+00_JPRB, 0.416180E+00_JPRB, 0.401300E+00_JPRB &
+  &, 0.386589E+00_JPRB, 0.372050E+00_JPRB, 0.357722E+00_JPRB, 0.343597E+00_JPRB &
+  &, 0.329701E+00_JPRB, 0.316051E+00_JPRB, 0.302648E+00_JPRB &
+  &, 0.289520E+00_JPRB, 0.276667E+00_JPRB, 0.264089E+00_JPRB, 0.251824E+00_JPRB &
+  &, 0.239870E+00_JPRB, 0.228220E+00_JPRB, 0.216897E+00_JPRB &
+  &, 0.205906E+00_JPRB, 0.195251E+00_JPRB, 0.184935E+00_JPRB, 0.174958E+00_JPRB &
+  &, 0.165316E+00_JPRB, 0.156040E+00_JPRB, 0.147089E+00_JPRB &
+  &, 0.138505E+00_JPRB, 0.130242E+00_JPRB, 0.122341E+00_JPRB, 0.114767E+00_JPRB &
+  &, 0.107538E+00_JPRB, 0.100634E+00_JPRB, 0.940502E-01_JPRB &
+  &, 0.877998E-01_JPRB, 0.818538E-01_JPRB, 0.762222E-01_JPRB, 0.708697E-01_JPRB &
+  &, 0.658249E-01_JPRB, 0.610472E-01_JPRB, 0.565629E-01_JPRB &
+  &, 0.523259E-01_JPRB, 0.483349E-01_JPRB, 0.446125E-01_JPRB, 0.411044E-01_JPRB &
+  &, 0.378302E-01_JPRB, 0.347560E-01_JPRB, 0.318991E-01_JPRB &
+  &, 0.292496E-01_JPRB, 0.267674E-01_JPRB, 0.244664E-01_JPRB, 0.223608E-01_JPRB &
+  &, 0.203753E-01_JPRB, 0.185504E-01_JPRB, 0.168671E-01_JPRB &
+  &, 0.153358E-01_JPRB, 0.139029E-01_JPRB, 0.125760E-01_JPRB, 0.113962E-01_JPRB &
+  &, 0.102712E-01_JPRB, 0.927494E-02_JPRB, 0.834522E-02_JPRB &
+  &, 0.752269E-02_JPRB, 0.674134E-02_JPRB, 0.604142E-02_JPRB, 0.542806E-02_JPRB &
+  &, 0.486829E-02_JPRB, 0.432668E-02_JPRB, 0.388392E-02_JPRB &
+  &, 0.346518E-02_JPRB, 0.307219E-02_JPRB, 0.270671E-02_JPRB, 0.241269E-02_JPRB &
+  &, 0.215115E-02_JPRB, 0.188048E-02_JPRB, 0.168891E-02_JPRB &
+  &, 0.149072E-02_JPRB, 0.128581E-02_JPRB, 0.112036E-02_JPRB, 0.996400E-03_JPRB &
+  &, 0.868307E-03_JPRB, 0.784431E-03_JPRB, 0.648640E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.515924E-03_JPRB, 0.420676E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 381, :) = (/ &
+  &  0.966588E+00_JPRB, 0.957334E+00_JPRB, 0.947729E+00_JPRB, 0.937786E+00_JPRB &
+  &, 0.927506E+00_JPRB, 0.916898E+00_JPRB, 0.905969E+00_JPRB &
+  &, 0.894726E+00_JPRB, 0.883180E+00_JPRB, 0.871335E+00_JPRB, 0.859201E+00_JPRB &
+  &, 0.846786E+00_JPRB, 0.834101E+00_JPRB, 0.821153E+00_JPRB &
+  &, 0.807953E+00_JPRB, 0.794511E+00_JPRB, 0.780837E+00_JPRB, 0.766942E+00_JPRB &
+  &, 0.752837E+00_JPRB, 0.738535E+00_JPRB, 0.724048E+00_JPRB &
+  &, 0.709385E+00_JPRB, 0.694565E+00_JPRB, 0.679602E+00_JPRB, 0.664503E+00_JPRB &
+  &, 0.649288E+00_JPRB, 0.633968E+00_JPRB, 0.618564E+00_JPRB &
+  &, 0.603086E+00_JPRB, 0.587548E+00_JPRB, 0.571978E+00_JPRB, 0.556381E+00_JPRB &
+  &, 0.540778E+00_JPRB, 0.525188E+00_JPRB, 0.509619E+00_JPRB &
+  &, 0.494104E+00_JPRB, 0.478649E+00_JPRB, 0.463269E+00_JPRB, 0.447989E+00_JPRB &
+  &, 0.432830E+00_JPRB, 0.417793E+00_JPRB, 0.402909E+00_JPRB &
+  &, 0.388184E+00_JPRB, 0.373640E+00_JPRB, 0.359305E+00_JPRB, 0.345159E+00_JPRB &
+  &, 0.331253E+00_JPRB, 0.317578E+00_JPRB, 0.304162E+00_JPRB &
+  &, 0.291018E+00_JPRB, 0.278134E+00_JPRB, 0.265537E+00_JPRB, 0.253250E+00_JPRB &
+  &, 0.241257E+00_JPRB, 0.229581E+00_JPRB, 0.218229E+00_JPRB &
+  &, 0.207208E+00_JPRB, 0.196520E+00_JPRB, 0.186168E+00_JPRB, 0.176153E+00_JPRB &
+  &, 0.166488E+00_JPRB, 0.157169E+00_JPRB, 0.148189E+00_JPRB &
+  &, 0.139558E+00_JPRB, 0.131281E+00_JPRB, 0.123327E+00_JPRB, 0.115735E+00_JPRB &
+  &, 0.108449E+00_JPRB, 0.101524E+00_JPRB, 0.948969E-01_JPRB &
+  &, 0.886012E-01_JPRB, 0.826289E-01_JPRB, 0.769477E-01_JPRB, 0.715877E-01_JPRB &
+  &, 0.664890E-01_JPRB, 0.616781E-01_JPRB, 0.571589E-01_JPRB &
+  &, 0.528853E-01_JPRB, 0.488807E-01_JPRB, 0.451184E-01_JPRB, 0.415946E-01_JPRB &
+  &, 0.382773E-01_JPRB, 0.351849E-01_JPRB, 0.323090E-01_JPRB &
+  &, 0.296395E-01_JPRB, 0.271363E-01_JPRB, 0.248133E-01_JPRB, 0.226553E-01_JPRB &
+  &, 0.206752E-01_JPRB, 0.188253E-01_JPRB, 0.171159E-01_JPRB &
+  &, 0.155575E-01_JPRB, 0.140963E-01_JPRB, 0.127728E-01_JPRB, 0.115631E-01_JPRB &
+  &, 0.104411E-01_JPRB, 0.941323E-02_JPRB, 0.848590E-02_JPRB &
+  &, 0.763001E-02_JPRB, 0.688689E-02_JPRB, 0.615242E-02_JPRB, 0.554094E-02_JPRB &
+  &, 0.494480E-02_JPRB, 0.440446E-02_JPRB, 0.396298E-02_JPRB &
+  &, 0.350536E-02_JPRB, 0.311302E-02_JPRB, 0.278968E-02_JPRB, 0.245484E-02_JPRB &
+  &, 0.219397E-02_JPRB, 0.192398E-02_JPRB, 0.168891E-02_JPRB &
+  &, 0.149072E-02_JPRB, 0.133138E-02_JPRB, 0.116663E-02_JPRB, 0.104337E-02_JPRB &
+  &, 0.915991E-03_JPRB, 0.784431E-03_JPRB, 0.697766E-03_JPRB &
+  &, 0.608276E-03_JPRB, 0.515924E-03_JPRB, 0.472010E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 382, :) = (/ &
+  &  0.966846E+00_JPRB, 0.957654E+00_JPRB, 0.948110E+00_JPRB, 0.938227E+00_JPRB &
+  &, 0.928005E+00_JPRB, 0.917456E+00_JPRB, 0.906585E+00_JPRB &
+  &, 0.895399E+00_JPRB, 0.883907E+00_JPRB, 0.872116E+00_JPRB, 0.860034E+00_JPRB &
+  &, 0.847672E+00_JPRB, 0.835035E+00_JPRB, 0.822136E+00_JPRB &
+  &, 0.808982E+00_JPRB, 0.795586E+00_JPRB, 0.781956E+00_JPRB, 0.768104E+00_JPRB &
+  &, 0.754041E+00_JPRB, 0.739775E+00_JPRB, 0.725325E+00_JPRB &
+  &, 0.710701E+00_JPRB, 0.695915E+00_JPRB, 0.680983E+00_JPRB, 0.665913E+00_JPRB &
+  &, 0.650728E+00_JPRB, 0.635436E+00_JPRB, 0.620052E+00_JPRB &
+  &, 0.604599E+00_JPRB, 0.589083E+00_JPRB, 0.573527E+00_JPRB, 0.557947E+00_JPRB &
+  &, 0.542357E+00_JPRB, 0.526780E+00_JPRB, 0.511225E+00_JPRB &
+  &, 0.495713E+00_JPRB, 0.480261E+00_JPRB, 0.464892E+00_JPRB, 0.449613E+00_JPRB &
+  &, 0.434444E+00_JPRB, 0.419405E+00_JPRB, 0.404519E+00_JPRB &
+  &, 0.389789E+00_JPRB, 0.375240E+00_JPRB, 0.360887E+00_JPRB, 0.346733E+00_JPRB &
+  &, 0.332805E+00_JPRB, 0.319118E+00_JPRB, 0.305688E+00_JPRB &
+  &, 0.292516E+00_JPRB, 0.279615E+00_JPRB, 0.266998E+00_JPRB, 0.254676E+00_JPRB &
+  &, 0.242659E+00_JPRB, 0.230957E+00_JPRB, 0.219577E+00_JPRB &
+  &, 0.208525E+00_JPRB, 0.197804E+00_JPRB, 0.187418E+00_JPRB, 0.177381E+00_JPRB &
+  &, 0.167676E+00_JPRB, 0.158314E+00_JPRB, 0.149307E+00_JPRB &
+  &, 0.140628E+00_JPRB, 0.132320E+00_JPRB, 0.124332E+00_JPRB, 0.116685E+00_JPRB &
+  &, 0.109379E+00_JPRB, 0.102414E+00_JPRB, 0.957641E-01_JPRB &
+  &, 0.894236E-01_JPRB, 0.834041E-01_JPRB, 0.776950E-01_JPRB, 0.722833E-01_JPRB &
+  &, 0.671760E-01_JPRB, 0.623324E-01_JPRB, 0.577788E-01_JPRB &
+  &, 0.534690E-01_JPRB, 0.494264E-01_JPRB, 0.456244E-01_JPRB, 0.420847E-01_JPRB &
+  &, 0.387507E-01_JPRB, 0.356139E-01_JPRB, 0.327189E-01_JPRB &
+  &, 0.300015E-01_JPRB, 0.274768E-01_JPRB, 0.251313E-01_JPRB, 0.229792E-01_JPRB &
+  &, 0.209451E-01_JPRB, 0.191002E-01_JPRB, 0.173647E-01_JPRB &
+  &, 0.157792E-01_JPRB, 0.143220E-01_JPRB, 0.129697E-01_JPRB, 0.117635E-01_JPRB &
+  &, 0.106110E-01_JPRB, 0.958608E-02_JPRB, 0.862658E-02_JPRB &
+  &, 0.777311E-02_JPRB, 0.699604E-02_JPRB, 0.626343E-02_JPRB, 0.561619E-02_JPRB &
+  &, 0.502131E-02_JPRB, 0.452113E-02_JPRB, 0.400251E-02_JPRB &
+  &, 0.358571E-02_JPRB, 0.319468E-02_JPRB, 0.283117E-02_JPRB, 0.249699E-02_JPRB &
+  &, 0.223679E-02_JPRB, 0.196748E-02_JPRB, 0.173310E-02_JPRB &
+  &, 0.153559E-02_JPRB, 0.137694E-02_JPRB, 0.121289E-02_JPRB, 0.104337E-02_JPRB &
+  &, 0.915991E-03_JPRB, 0.784431E-03_JPRB, 0.697766E-03_JPRB &
+  &, 0.608276E-03_JPRB, 0.515924E-03_JPRB, 0.472010E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 383, :) = (/ &
+  &  0.967104E+00_JPRB, 0.957972E+00_JPRB, 0.948490E+00_JPRB, 0.938667E+00_JPRB &
+  &, 0.928505E+00_JPRB, 0.918015E+00_JPRB, 0.907201E+00_JPRB &
+  &, 0.896071E+00_JPRB, 0.884634E+00_JPRB, 0.872897E+00_JPRB, 0.860868E+00_JPRB &
+  &, 0.848555E+00_JPRB, 0.835969E+00_JPRB, 0.823120E+00_JPRB &
+  &, 0.810013E+00_JPRB, 0.796663E+00_JPRB, 0.783077E+00_JPRB, 0.769267E+00_JPRB &
+  &, 0.755244E+00_JPRB, 0.741019E+00_JPRB, 0.726606E+00_JPRB &
+  &, 0.712018E+00_JPRB, 0.697265E+00_JPRB, 0.682365E+00_JPRB, 0.667327E+00_JPRB &
+  &, 0.652168E+00_JPRB, 0.636903E+00_JPRB, 0.621544E+00_JPRB &
+  &, 0.606112E+00_JPRB, 0.590618E+00_JPRB, 0.575083E+00_JPRB, 0.559517E+00_JPRB &
+  &, 0.543945E+00_JPRB, 0.528377E+00_JPRB, 0.512831E+00_JPRB &
+  &, 0.497322E+00_JPRB, 0.481882E+00_JPRB, 0.466515E+00_JPRB, 0.451237E+00_JPRB &
+  &, 0.436068E+00_JPRB, 0.421028E+00_JPRB, 0.406129E+00_JPRB &
+  &, 0.391395E+00_JPRB, 0.376841E+00_JPRB, 0.362469E+00_JPRB, 0.348307E+00_JPRB &
+  &, 0.334369E+00_JPRB, 0.320621E+00_JPRB, 0.307214E+00_JPRB &
+  &, 0.294014E+00_JPRB, 0.281095E+00_JPRB, 0.268445E+00_JPRB, 0.256101E+00_JPRB &
+  &, 0.244061E+00_JPRB, 0.232333E+00_JPRB, 0.220925E+00_JPRB &
+  &, 0.209842E+00_JPRB, 0.199089E+00_JPRB, 0.188667E+00_JPRB, 0.178593E+00_JPRB &
+  &, 0.168847E+00_JPRB, 0.159460E+00_JPRB, 0.150408E+00_JPRB &
+  &, 0.141717E+00_JPRB, 0.133358E+00_JPRB, 0.125336E+00_JPRB, 0.117653E+00_JPRB &
+  &, 0.110309E+00_JPRB, 0.103303E+00_JPRB, 0.966108E-01_JPRB &
+  &, 0.902461E-01_JPRB, 0.842008E-01_JPRB, 0.784424E-01_JPRB, 0.730013E-01_JPRB &
+  &, 0.678630E-01_JPRB, 0.629867E-01_JPRB, 0.583748E-01_JPRB &
+  &, 0.540527E-01_JPRB, 0.499722E-01_JPRB, 0.461557E-01_JPRB, 0.425749E-01_JPRB &
+  &, 0.391978E-01_JPRB, 0.360697E-01_JPRB, 0.331288E-01_JPRB &
+  &, 0.303914E-01_JPRB, 0.278457E-01_JPRB, 0.254782E-01_JPRB, 0.232737E-01_JPRB &
+  &, 0.212451E-01_JPRB, 0.193751E-01_JPRB, 0.176136E-01_JPRB &
+  &, 0.160325E-01_JPRB, 0.145476E-01_JPRB, 0.131994E-01_JPRB, 0.119304E-01_JPRB &
+  &, 0.107809E-01_JPRB, 0.975893E-02_JPRB, 0.880243E-02_JPRB &
+  &, 0.791621E-02_JPRB, 0.710520E-02_JPRB, 0.637444E-02_JPRB, 0.572906E-02_JPRB &
+  &, 0.513607E-02_JPRB, 0.459891E-02_JPRB, 0.408157E-02_JPRB &
+  &, 0.366606E-02_JPRB, 0.323550E-02_JPRB, 0.291415E-02_JPRB, 0.258130E-02_JPRB &
+  &, 0.227962E-02_JPRB, 0.201098E-02_JPRB, 0.177728E-02_JPRB &
+  &, 0.158046E-02_JPRB, 0.137694E-02_JPRB, 0.121289E-02_JPRB, 0.109034E-02_JPRB &
+  &, 0.915991E-03_JPRB, 0.832833E-03_JPRB, 0.697766E-03_JPRB &
+  &, 0.608276E-03_JPRB, 0.566517E-03_JPRB, 0.472010E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 384, :) = (/ &
+  &  0.967358E+00_JPRB, 0.958292E+00_JPRB, 0.948870E+00_JPRB, 0.939107E+00_JPRB &
+  &, 0.929006E+00_JPRB, 0.918573E+00_JPRB, 0.907816E+00_JPRB &
+  &, 0.896743E+00_JPRB, 0.885361E+00_JPRB, 0.873677E+00_JPRB, 0.861702E+00_JPRB &
+  &, 0.849441E+00_JPRB, 0.836904E+00_JPRB, 0.824102E+00_JPRB &
+  &, 0.811044E+00_JPRB, 0.797738E+00_JPRB, 0.784196E+00_JPRB, 0.770429E+00_JPRB &
+  &, 0.756447E+00_JPRB, 0.742262E+00_JPRB, 0.727887E+00_JPRB &
+  &, 0.713334E+00_JPRB, 0.698618E+00_JPRB, 0.683749E+00_JPRB, 0.668741E+00_JPRB &
+  &, 0.653609E+00_JPRB, 0.638371E+00_JPRB, 0.623040E+00_JPRB &
+  &, 0.607629E+00_JPRB, 0.592156E+00_JPRB, 0.576635E+00_JPRB, 0.561091E+00_JPRB &
+  &, 0.545529E+00_JPRB, 0.529974E+00_JPRB, 0.514441E+00_JPRB &
+  &, 0.498941E+00_JPRB, 0.483503E+00_JPRB, 0.468138E+00_JPRB, 0.452861E+00_JPRB &
+  &, 0.437692E+00_JPRB, 0.422651E+00_JPRB, 0.407749E+00_JPRB &
+  &, 0.393012E+00_JPRB, 0.378441E+00_JPRB, 0.364063E+00_JPRB, 0.349893E+00_JPRB &
+  &, 0.335933E+00_JPRB, 0.322211E+00_JPRB, 0.308741E+00_JPRB &
+  &, 0.295525E+00_JPRB, 0.282576E+00_JPRB, 0.269920E+00_JPRB, 0.257541E+00_JPRB &
+  &, 0.245477E+00_JPRB, 0.233723E+00_JPRB, 0.222272E+00_JPRB &
+  &, 0.211159E+00_JPRB, 0.200373E+00_JPRB, 0.189933E+00_JPRB, 0.179821E+00_JPRB &
+  &, 0.170053E+00_JPRB, 0.160623E+00_JPRB, 0.151544E+00_JPRB &
+  &, 0.142806E+00_JPRB, 0.134397E+00_JPRB, 0.126341E+00_JPRB, 0.118641E+00_JPRB &
+  &, 0.111259E+00_JPRB, 0.104213E+00_JPRB, 0.974781E-01_JPRB &
+  &, 0.910685E-01_JPRB, 0.849975E-01_JPRB, 0.792118E-01_JPRB, 0.737194E-01_JPRB &
+  &, 0.685500E-01_JPRB, 0.636410E-01_JPRB, 0.590186E-01_JPRB &
+  &, 0.546365E-01_JPRB, 0.505428E-01_JPRB, 0.466870E-01_JPRB, 0.430650E-01_JPRB &
+  &, 0.396712E-01_JPRB, 0.364986E-01_JPRB, 0.335387E-01_JPRB &
+  &, 0.307812E-01_JPRB, 0.282145E-01_JPRB, 0.258251E-01_JPRB, 0.235976E-01_JPRB &
+  &, 0.215450E-01_JPRB, 0.196500E-01_JPRB, 0.178935E-01_JPRB &
+  &, 0.162541E-01_JPRB, 0.147733E-01_JPRB, 0.133962E-01_JPRB, 0.121308E-01_JPRB &
+  &, 0.109508E-01_JPRB, 0.989722E-02_JPRB, 0.894311E-02_JPRB &
+  &, 0.805931E-02_JPRB, 0.725074E-02_JPRB, 0.648545E-02_JPRB, 0.584194E-02_JPRB &
+  &, 0.521258E-02_JPRB, 0.467668E-02_JPRB, 0.416063E-02_JPRB &
+  &, 0.374641E-02_JPRB, 0.331716E-02_JPRB, 0.295563E-02_JPRB, 0.262345E-02_JPRB &
+  &, 0.232244E-02_JPRB, 0.205447E-02_JPRB, 0.182146E-02_JPRB &
+  &, 0.162533E-02_JPRB, 0.142251E-02_JPRB, 0.125916E-02_JPRB, 0.109034E-02_JPRB &
+  &, 0.963674E-03_JPRB, 0.832833E-03_JPRB, 0.746892E-03_JPRB &
+  &, 0.658132E-03_JPRB, 0.566517E-03_JPRB, 0.472010E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 385, :) = (/ &
+  &  0.967617E+00_JPRB, 0.958609E+00_JPRB, 0.949251E+00_JPRB, 0.939548E+00_JPRB &
+  &, 0.929505E+00_JPRB, 0.919131E+00_JPRB, 0.908432E+00_JPRB &
+  &, 0.897415E+00_JPRB, 0.886087E+00_JPRB, 0.874458E+00_JPRB, 0.862535E+00_JPRB &
+  &, 0.850324E+00_JPRB, 0.837839E+00_JPRB, 0.825086E+00_JPRB &
+  &, 0.812075E+00_JPRB, 0.798815E+00_JPRB, 0.785316E+00_JPRB, 0.771592E+00_JPRB &
+  &, 0.757652E+00_JPRB, 0.743506E+00_JPRB, 0.729171E+00_JPRB &
+  &, 0.714653E+00_JPRB, 0.699968E+00_JPRB, 0.685131E+00_JPRB, 0.670155E+00_JPRB &
+  &, 0.655053E+00_JPRB, 0.639843E+00_JPRB, 0.624532E+00_JPRB &
+  &, 0.609146E+00_JPRB, 0.593695E+00_JPRB, 0.578196E+00_JPRB, 0.562662E+00_JPRB &
+  &, 0.547117E+00_JPRB, 0.531576E+00_JPRB, 0.516051E+00_JPRB &
+  &, 0.500559E+00_JPRB, 0.485125E+00_JPRB, 0.469761E+00_JPRB, 0.454496E+00_JPRB &
+  &, 0.439326E+00_JPRB, 0.424284E+00_JPRB, 0.409370E+00_JPRB &
+  &, 0.394629E+00_JPRB, 0.380053E+00_JPRB, 0.365657E+00_JPRB, 0.351467E+00_JPRB &
+  &, 0.337497E+00_JPRB, 0.323763E+00_JPRB, 0.310267E+00_JPRB &
+  &, 0.297036E+00_JPRB, 0.284070E+00_JPRB, 0.271381E+00_JPRB, 0.258980E+00_JPRB &
+  &, 0.246893E+00_JPRB, 0.235099E+00_JPRB, 0.223635E+00_JPRB &
+  &, 0.212492E+00_JPRB, 0.201674E+00_JPRB, 0.191182E+00_JPRB, 0.181049E+00_JPRB &
+  &, 0.171241E+00_JPRB, 0.161786E+00_JPRB, 0.152662E+00_JPRB &
+  &, 0.143895E+00_JPRB, 0.135454E+00_JPRB, 0.127365E+00_JPRB, 0.119610E+00_JPRB &
+  &, 0.112189E+00_JPRB, 0.105103E+00_JPRB, 0.983454E-01_JPRB &
+  &, 0.919120E-01_JPRB, 0.857942E-01_JPRB, 0.799812E-01_JPRB, 0.744598E-01_JPRB &
+  &, 0.692370E-01_JPRB, 0.642953E-01_JPRB, 0.596385E-01_JPRB &
+  &, 0.552445E-01_JPRB, 0.511133E-01_JPRB, 0.472183E-01_JPRB, 0.435551E-01_JPRB &
+  &, 0.401446E-01_JPRB, 0.369544E-01_JPRB, 0.339759E-01_JPRB &
+  &, 0.311711E-01_JPRB, 0.285834E-01_JPRB, 0.261720E-01_JPRB, 0.239215E-01_JPRB &
+  &, 0.218449E-01_JPRB, 0.199249E-01_JPRB, 0.181423E-01_JPRB &
+  &, 0.165074E-01_JPRB, 0.149989E-01_JPRB, 0.135931E-01_JPRB, 0.123311E-01_JPRB &
+  &, 0.111547E-01_JPRB, 0.100701E-01_JPRB, 0.908379E-02_JPRB &
+  &, 0.820241E-02_JPRB, 0.735990E-02_JPRB, 0.663346E-02_JPRB, 0.595482E-02_JPRB &
+  &, 0.532734E-02_JPRB, 0.475446E-02_JPRB, 0.423969E-02_JPRB &
+  &, 0.378659E-02_JPRB, 0.339882E-02_JPRB, 0.299712E-02_JPRB, 0.266560E-02_JPRB &
+  &, 0.236526E-02_JPRB, 0.209797E-02_JPRB, 0.186564E-02_JPRB &
+  &, 0.162533E-02_JPRB, 0.146807E-02_JPRB, 0.125916E-02_JPRB, 0.113731E-02_JPRB &
+  &, 0.963674E-03_JPRB, 0.881235E-03_JPRB, 0.746892E-03_JPRB &
+  &, 0.658132E-03_JPRB, 0.566517E-03_JPRB, 0.523345E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART55',1,ZHOOK_HANDLE)
+END SUBROUTINE PART55
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART56
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART56',0,ZHOOK_HANDLE)
+
+XCW( 386, :) = (/ &
+  &  0.967874E+00_JPRB, 0.958927E+00_JPRB, 0.949630E+00_JPRB, 0.939988E+00_JPRB &
+  &, 0.930005E+00_JPRB, 0.919689E+00_JPRB, 0.909047E+00_JPRB &
+  &, 0.898086E+00_JPRB, 0.886813E+00_JPRB, 0.875238E+00_JPRB, 0.863368E+00_JPRB &
+  &, 0.851210E+00_JPRB, 0.838774E+00_JPRB, 0.826068E+00_JPRB &
+  &, 0.813105E+00_JPRB, 0.799890E+00_JPRB, 0.786438E+00_JPRB, 0.772755E+00_JPRB &
+  &, 0.758857E+00_JPRB, 0.744750E+00_JPRB, 0.730452E+00_JPRB &
+  &, 0.715970E+00_JPRB, 0.701321E+00_JPRB, 0.686512E+00_JPRB, 0.671572E+00_JPRB &
+  &, 0.656497E+00_JPRB, 0.641314E+00_JPRB, 0.626028E+00_JPRB &
+  &, 0.610664E+00_JPRB, 0.595234E+00_JPRB, 0.579752E+00_JPRB, 0.564240E+00_JPRB &
+  &, 0.548710E+00_JPRB, 0.533178E+00_JPRB, 0.517662E+00_JPRB &
+  &, 0.502178E+00_JPRB, 0.486755E+00_JPRB, 0.471394E+00_JPRB, 0.456130E+00_JPRB &
+  &, 0.440961E+00_JPRB, 0.425907E+00_JPRB, 0.411001E+00_JPRB &
+  &, 0.396246E+00_JPRB, 0.381654E+00_JPRB, 0.367263E+00_JPRB, 0.353053E+00_JPRB &
+  &, 0.339073E+00_JPRB, 0.325316E+00_JPRB, 0.311807E+00_JPRB &
+  &, 0.298547E+00_JPRB, 0.285564E+00_JPRB, 0.272856E+00_JPRB, 0.260434E+00_JPRB &
+  &, 0.248309E+00_JPRB, 0.236490E+00_JPRB, 0.224998E+00_JPRB &
+  &, 0.213825E+00_JPRB, 0.202974E+00_JPRB, 0.192464E+00_JPRB, 0.182277E+00_JPRB &
+  &, 0.172446E+00_JPRB, 0.162949E+00_JPRB, 0.153798E+00_JPRB &
+  &, 0.144983E+00_JPRB, 0.136512E+00_JPRB, 0.128388E+00_JPRB, 0.120598E+00_JPRB &
+  &, 0.113139E+00_JPRB, 0.106012E+00_JPRB, 0.992334E-01_JPRB &
+  &, 0.927555E-01_JPRB, 0.865909E-01_JPRB, 0.807286E-01_JPRB, 0.751778E-01_JPRB &
+  &, 0.699240E-01_JPRB, 0.649496E-01_JPRB, 0.602584E-01_JPRB &
+  &, 0.558282E-01_JPRB, 0.516591E-01_JPRB, 0.477496E-01_JPRB, 0.440711E-01_JPRB &
+  &, 0.406180E-01_JPRB, 0.374102E-01_JPRB, 0.343858E-01_JPRB &
+  &, 0.315610E-01_JPRB, 0.289523E-01_JPRB, 0.265189E-01_JPRB, 0.242454E-01_JPRB &
+  &, 0.221449E-01_JPRB, 0.201998E-01_JPRB, 0.184222E-01_JPRB &
+  &, 0.167608E-01_JPRB, 0.152245E-01_JPRB, 0.138227E-01_JPRB, 0.124981E-01_JPRB &
+  &, 0.113245E-01_JPRB, 0.102429E-01_JPRB, 0.922446E-02_JPRB &
+  &, 0.830973E-02_JPRB, 0.750544E-02_JPRB, 0.674446E-02_JPRB, 0.603007E-02_JPRB &
+  &, 0.540385E-02_JPRB, 0.487113E-02_JPRB, 0.435828E-02_JPRB &
+  &, 0.386694E-02_JPRB, 0.343965E-02_JPRB, 0.308010E-02_JPRB, 0.274991E-02_JPRB &
+  &, 0.240808E-02_JPRB, 0.214147E-02_JPRB, 0.190982E-02_JPRB &
+  &, 0.167020E-02_JPRB, 0.146807E-02_JPRB, 0.130542E-02_JPRB, 0.113731E-02_JPRB &
+  &, 0.101136E-02_JPRB, 0.881235E-03_JPRB, 0.796018E-03_JPRB &
+  &, 0.658132E-03_JPRB, 0.566517E-03_JPRB, 0.523345E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 387, :) = (/ &
+  &  0.968127E+00_JPRB, 0.959247E+00_JPRB, 0.950009E+00_JPRB, 0.940427E+00_JPRB &
+  &, 0.930504E+00_JPRB, 0.920247E+00_JPRB, 0.909662E+00_JPRB &
+  &, 0.898757E+00_JPRB, 0.887540E+00_JPRB, 0.876018E+00_JPRB, 0.864201E+00_JPRB &
+  &, 0.852093E+00_JPRB, 0.839709E+00_JPRB, 0.827052E+00_JPRB &
+  &, 0.814136E+00_JPRB, 0.800967E+00_JPRB, 0.787559E+00_JPRB, 0.773920E+00_JPRB &
+  &, 0.760062E+00_JPRB, 0.745996E+00_JPRB, 0.731733E+00_JPRB &
+  &, 0.717289E+00_JPRB, 0.702675E+00_JPRB, 0.687903E+00_JPRB, 0.672986E+00_JPRB &
+  &, 0.657945E+00_JPRB, 0.642786E+00_JPRB, 0.627528E+00_JPRB &
+  &, 0.612185E+00_JPRB, 0.596776E+00_JPRB, 0.581313E+00_JPRB, 0.565814E+00_JPRB &
+  &, 0.550298E+00_JPRB, 0.534784E+00_JPRB, 0.519281E+00_JPRB &
+  &, 0.503805E+00_JPRB, 0.488386E+00_JPRB, 0.473027E+00_JPRB, 0.457764E+00_JPRB &
+  &, 0.442595E+00_JPRB, 0.427540E+00_JPRB, 0.412632E+00_JPRB &
+  &, 0.397863E+00_JPRB, 0.383277E+00_JPRB, 0.368857E+00_JPRB, 0.354651E+00_JPRB &
+  &, 0.340650E+00_JPRB, 0.326881E+00_JPRB, 0.313346E+00_JPRB &
+  &, 0.300071E+00_JPRB, 0.287058E+00_JPRB, 0.274330E+00_JPRB, 0.261888E+00_JPRB &
+  &, 0.249740E+00_JPRB, 0.237895E+00_JPRB, 0.226361E+00_JPRB &
+  &, 0.215158E+00_JPRB, 0.204274E+00_JPRB, 0.193729E+00_JPRB, 0.183522E+00_JPRB &
+  &, 0.173651E+00_JPRB, 0.164113E+00_JPRB, 0.154934E+00_JPRB &
+  &, 0.146090E+00_JPRB, 0.137569E+00_JPRB, 0.129412E+00_JPRB, 0.121586E+00_JPRB &
+  &, 0.114089E+00_JPRB, 0.106942E+00_JPRB, 0.100101E+00_JPRB &
+  &, 0.935991E-01_JPRB, 0.874091E-01_JPRB, 0.815199E-01_JPRB, 0.759183E-01_JPRB &
+  &, 0.706339E-01_JPRB, 0.656273E-01_JPRB, 0.609021E-01_JPRB &
+  &, 0.564363E-01_JPRB, 0.522297E-01_JPRB, 0.482808E-01_JPRB, 0.445870E-01_JPRB &
+  &, 0.411177E-01_JPRB, 0.378659E-01_JPRB, 0.348230E-01_JPRB &
+  &, 0.319787E-01_JPRB, 0.293212E-01_JPRB, 0.268658E-01_JPRB, 0.245694E-01_JPRB &
+  &, 0.224448E-01_JPRB, 0.205053E-01_JPRB, 0.186710E-01_JPRB &
+  &, 0.169824E-01_JPRB, 0.154502E-01_JPRB, 0.140196E-01_JPRB, 0.126984E-01_JPRB &
+  &, 0.114944E-01_JPRB, 0.104158E-01_JPRB, 0.940031E-02_JPRB &
+  &, 0.845283E-02_JPRB, 0.761460E-02_JPRB, 0.685547E-02_JPRB, 0.614294E-02_JPRB &
+  &, 0.551861E-02_JPRB, 0.494891E-02_JPRB, 0.443734E-02_JPRB &
+  &, 0.394730E-02_JPRB, 0.352131E-02_JPRB, 0.312159E-02_JPRB, 0.279206E-02_JPRB &
+  &, 0.249373E-02_JPRB, 0.218497E-02_JPRB, 0.195400E-02_JPRB &
+  &, 0.171507E-02_JPRB, 0.151364E-02_JPRB, 0.135169E-02_JPRB, 0.118429E-02_JPRB &
+  &, 0.101136E-02_JPRB, 0.929637E-03_JPRB, 0.796018E-03_JPRB &
+  &, 0.707988E-03_JPRB, 0.617109E-03_JPRB, 0.523345E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 388, :) = (/ &
+  &  0.968384E+00_JPRB, 0.959564E+00_JPRB, 0.950388E+00_JPRB, 0.940867E+00_JPRB &
+  &, 0.931003E+00_JPRB, 0.920804E+00_JPRB, 0.910276E+00_JPRB &
+  &, 0.899428E+00_JPRB, 0.888266E+00_JPRB, 0.876799E+00_JPRB, 0.865034E+00_JPRB &
+  &, 0.852979E+00_JPRB, 0.840643E+00_JPRB, 0.828036E+00_JPRB &
+  &, 0.815167E+00_JPRB, 0.802044E+00_JPRB, 0.788680E+00_JPRB, 0.775083E+00_JPRB &
+  &, 0.761267E+00_JPRB, 0.747240E+00_JPRB, 0.733017E+00_JPRB &
+  &, 0.718609E+00_JPRB, 0.704028E+00_JPRB, 0.689288E+00_JPRB, 0.674404E+00_JPRB &
+  &, 0.659389E+00_JPRB, 0.644257E+00_JPRB, 0.629028E+00_JPRB &
+  &, 0.613706E+00_JPRB, 0.598319E+00_JPRB, 0.582874E+00_JPRB, 0.567393E+00_JPRB &
+  &, 0.551894E+00_JPRB, 0.536389E+00_JPRB, 0.520896E+00_JPRB &
+  &, 0.505433E+00_JPRB, 0.490017E+00_JPRB, 0.474670E+00_JPRB, 0.459398E+00_JPRB &
+  &, 0.444229E+00_JPRB, 0.429184E+00_JPRB, 0.414264E+00_JPRB &
+  &, 0.399491E+00_JPRB, 0.384889E+00_JPRB, 0.370463E+00_JPRB, 0.356248E+00_JPRB &
+  &, 0.342226E+00_JPRB, 0.328446E+00_JPRB, 0.314898E+00_JPRB &
+  &, 0.301596E+00_JPRB, 0.288565E+00_JPRB, 0.275805E+00_JPRB, 0.263342E+00_JPRB &
+  &, 0.251171E+00_JPRB, 0.239301E+00_JPRB, 0.227739E+00_JPRB &
+  &, 0.216506E+00_JPRB, 0.205591E+00_JPRB, 0.195011E+00_JPRB, 0.184767E+00_JPRB &
+  &, 0.174857E+00_JPRB, 0.165293E+00_JPRB, 0.156070E+00_JPRB &
+  &, 0.147179E+00_JPRB, 0.138645E+00_JPRB, 0.130455E+00_JPRB, 0.122593E+00_JPRB &
+  &, 0.115059E+00_JPRB, 0.107872E+00_JPRB, 0.100989E+00_JPRB &
+  &, 0.944426E-01_JPRB, 0.882058E-01_JPRB, 0.822893E-01_JPRB, 0.766812E-01_JPRB &
+  &, 0.713438E-01_JPRB, 0.663050E-01_JPRB, 0.615458E-01_JPRB &
+  &, 0.570443E-01_JPRB, 0.528250E-01_JPRB, 0.488374E-01_JPRB, 0.451030E-01_JPRB &
+  &, 0.415912E-01_JPRB, 0.383217E-01_JPRB, 0.352329E-01_JPRB &
+  &, 0.323685E-01_JPRB, 0.297184E-01_JPRB, 0.272127E-01_JPRB, 0.249227E-01_JPRB &
+  &, 0.227747E-01_JPRB, 0.207802E-01_JPRB, 0.189509E-01_JPRB &
+  &, 0.172357E-01_JPRB, 0.156758E-01_JPRB, 0.142493E-01_JPRB, 0.128987E-01_JPRB &
+  &, 0.116983E-01_JPRB, 0.105886E-01_JPRB, 0.954099E-02_JPRB &
+  &, 0.859593E-02_JPRB, 0.776014E-02_JPRB, 0.696648E-02_JPRB, 0.625582E-02_JPRB &
+  &, 0.563337E-02_JPRB, 0.502669E-02_JPRB, 0.451640E-02_JPRB &
+  &, 0.402765E-02_JPRB, 0.360297E-02_JPRB, 0.320456E-02_JPRB, 0.283421E-02_JPRB &
+  &, 0.253655E-02_JPRB, 0.222847E-02_JPRB, 0.199819E-02_JPRB &
+  &, 0.175994E-02_JPRB, 0.155920E-02_JPRB, 0.135169E-02_JPRB, 0.118429E-02_JPRB &
+  &, 0.105904E-02_JPRB, 0.929637E-03_JPRB, 0.796018E-03_JPRB &
+  &, 0.707988E-03_JPRB, 0.617109E-03_JPRB, 0.523345E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 389, :) = (/ &
+  &  0.968640E+00_JPRB, 0.959883E+00_JPRB, 0.950768E+00_JPRB, 0.941307E+00_JPRB &
+  &, 0.931502E+00_JPRB, 0.921361E+00_JPRB, 0.910891E+00_JPRB &
+  &, 0.900099E+00_JPRB, 0.888992E+00_JPRB, 0.877579E+00_JPRB, 0.865866E+00_JPRB &
+  &, 0.853862E+00_JPRB, 0.841577E+00_JPRB, 0.829019E+00_JPRB &
+  &, 0.816197E+00_JPRB, 0.803121E+00_JPRB, 0.789802E+00_JPRB, 0.776248E+00_JPRB &
+  &, 0.762473E+00_JPRB, 0.748487E+00_JPRB, 0.734301E+00_JPRB &
+  &, 0.719929E+00_JPRB, 0.705384E+00_JPRB, 0.690676E+00_JPRB, 0.675825E+00_JPRB &
+  &, 0.660836E+00_JPRB, 0.645732E+00_JPRB, 0.630527E+00_JPRB &
+  &, 0.615231E+00_JPRB, 0.599862E+00_JPRB, 0.584438E+00_JPRB, 0.568976E+00_JPRB &
+  &, 0.553491E+00_JPRB, 0.538000E+00_JPRB, 0.522515E+00_JPRB &
+  &, 0.507061E+00_JPRB, 0.491657E+00_JPRB, 0.476313E+00_JPRB, 0.461042E+00_JPRB &
+  &, 0.445874E+00_JPRB, 0.430818E+00_JPRB, 0.415895E+00_JPRB &
+  &, 0.401119E+00_JPRB, 0.386513E+00_JPRB, 0.372080E+00_JPRB, 0.357846E+00_JPRB &
+  &, 0.343814E+00_JPRB, 0.330011E+00_JPRB, 0.316450E+00_JPRB &
+  &, 0.303133E+00_JPRB, 0.290072E+00_JPRB, 0.277294E+00_JPRB, 0.264796E+00_JPRB &
+  &, 0.252601E+00_JPRB, 0.240706E+00_JPRB, 0.229117E+00_JPRB &
+  &, 0.217854E+00_JPRB, 0.206907E+00_JPRB, 0.196292E+00_JPRB, 0.186012E+00_JPRB &
+  &, 0.176079E+00_JPRB, 0.166474E+00_JPRB, 0.157224E+00_JPRB &
+  &, 0.148304E+00_JPRB, 0.139721E+00_JPRB, 0.131479E+00_JPRB, 0.123581E+00_JPRB &
+  &, 0.116029E+00_JPRB, 0.108782E+00_JPRB, 0.101877E+00_JPRB &
+  &, 0.953072E-01_JPRB, 0.890240E-01_JPRB, 0.830807E-01_JPRB, 0.774217E-01_JPRB &
+  &, 0.720537E-01_JPRB, 0.669827E-01_JPRB, 0.621895E-01_JPRB &
+  &, 0.576524E-01_JPRB, 0.533956E-01_JPRB, 0.493940E-01_JPRB, 0.456189E-01_JPRB &
+  &, 0.420909E-01_JPRB, 0.387775E-01_JPRB, 0.356701E-01_JPRB &
+  &, 0.327863E-01_JPRB, 0.300873E-01_JPRB, 0.275885E-01_JPRB, 0.252466E-01_JPRB &
+  &, 0.230747E-01_JPRB, 0.210856E-01_JPRB, 0.192308E-01_JPRB &
+  &, 0.174891E-01_JPRB, 0.159015E-01_JPRB, 0.144461E-01_JPRB, 0.130991E-01_JPRB &
+  &, 0.118682E-01_JPRB, 0.107615E-01_JPRB, 0.971684E-02_JPRB &
+  &, 0.877480E-02_JPRB, 0.790568E-02_JPRB, 0.711449E-02_JPRB, 0.636870E-02_JPRB &
+  &, 0.570988E-02_JPRB, 0.514335E-02_JPRB, 0.459546E-02_JPRB &
+  &, 0.410800E-02_JPRB, 0.368463E-02_JPRB, 0.324605E-02_JPRB, 0.291852E-02_JPRB &
+  &, 0.257938E-02_JPRB, 0.227197E-02_JPRB, 0.204237E-02_JPRB &
+  &, 0.180482E-02_JPRB, 0.160477E-02_JPRB, 0.139795E-02_JPRB, 0.123126E-02_JPRB &
+  &, 0.110673E-02_JPRB, 0.929637E-03_JPRB, 0.845144E-03_JPRB &
+  &, 0.707988E-03_JPRB, 0.617109E-03_JPRB, 0.574679E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 390, :) = (/ &
+  &  0.968895E+00_JPRB, 0.960199E+00_JPRB, 0.951147E+00_JPRB, 0.941746E+00_JPRB &
+  &, 0.932001E+00_JPRB, 0.921919E+00_JPRB, 0.911506E+00_JPRB &
+  &, 0.900770E+00_JPRB, 0.889718E+00_JPRB, 0.878359E+00_JPRB, 0.866699E+00_JPRB &
+  &, 0.854748E+00_JPRB, 0.842512E+00_JPRB, 0.830002E+00_JPRB &
+  &, 0.817228E+00_JPRB, 0.804197E+00_JPRB, 0.790922E+00_JPRB, 0.777413E+00_JPRB &
+  &, 0.763678E+00_JPRB, 0.749734E+00_JPRB, 0.735585E+00_JPRB &
+  &, 0.721251E+00_JPRB, 0.706738E+00_JPRB, 0.692065E+00_JPRB, 0.677242E+00_JPRB &
+  &, 0.662288E+00_JPRB, 0.647211E+00_JPRB, 0.632027E+00_JPRB &
+  &, 0.616755E+00_JPRB, 0.601408E+00_JPRB, 0.586007E+00_JPRB, 0.570559E+00_JPRB &
+  &, 0.555088E+00_JPRB, 0.539610E+00_JPRB, 0.524139E+00_JPRB &
+  &, 0.508689E+00_JPRB, 0.493288E+00_JPRB, 0.477955E+00_JPRB, 0.462686E+00_JPRB &
+  &, 0.447519E+00_JPRB, 0.432462E+00_JPRB, 0.417537E+00_JPRB &
+  &, 0.402758E+00_JPRB, 0.388136E+00_JPRB, 0.373697E+00_JPRB, 0.359444E+00_JPRB &
+  &, 0.345403E+00_JPRB, 0.331588E+00_JPRB, 0.318002E+00_JPRB &
+  &, 0.304657E+00_JPRB, 0.291593E+00_JPRB, 0.278783E+00_JPRB, 0.266263E+00_JPRB &
+  &, 0.254047E+00_JPRB, 0.242112E+00_JPRB, 0.230510E+00_JPRB &
+  &, 0.219202E+00_JPRB, 0.208239E+00_JPRB, 0.197590E+00_JPRB, 0.187273E+00_JPRB &
+  &, 0.177301E+00_JPRB, 0.167671E+00_JPRB, 0.158378E+00_JPRB &
+  &, 0.149411E+00_JPRB, 0.140797E+00_JPRB, 0.132540E+00_JPRB, 0.124588E+00_JPRB &
+  &, 0.116999E+00_JPRB, 0.109732E+00_JPRB, 0.102785E+00_JPRB &
+  &, 0.961718E-01_JPRB, 0.898637E-01_JPRB, 0.838720E-01_JPRB, 0.781845E-01_JPRB &
+  &, 0.727865E-01_JPRB, 0.676603E-01_JPRB, 0.628333E-01_JPRB &
+  &, 0.582847E-01_JPRB, 0.539910E-01_JPRB, 0.499506E-01_JPRB, 0.461348E-01_JPRB &
+  &, 0.425906E-01_JPRB, 0.392333E-01_JPRB, 0.361073E-01_JPRB &
+  &, 0.332040E-01_JPRB, 0.304845E-01_JPRB, 0.279354E-01_JPRB, 0.256000E-01_JPRB &
+  &, 0.234046E-01_JPRB, 0.213605E-01_JPRB, 0.194797E-01_JPRB &
+  &, 0.177424E-01_JPRB, 0.161593E-01_JPRB, 0.146758E-01_JPRB, 0.132994E-01_JPRB &
+  &, 0.120721E-01_JPRB, 0.109343E-01_JPRB, 0.985752E-02_JPRB &
+  &, 0.891790E-02_JPRB, 0.801484E-02_JPRB, 0.722550E-02_JPRB, 0.648157E-02_JPRB &
+  &, 0.582465E-02_JPRB, 0.522113E-02_JPRB, 0.467452E-02_JPRB &
+  &, 0.418836E-02_JPRB, 0.372545E-02_JPRB, 0.332902E-02_JPRB, 0.296067E-02_JPRB &
+  &, 0.262220E-02_JPRB, 0.235897E-02_JPRB, 0.208655E-02_JPRB &
+  &, 0.184969E-02_JPRB, 0.160477E-02_JPRB, 0.144422E-02_JPRB, 0.127823E-02_JPRB &
+  &, 0.110673E-02_JPRB, 0.978039E-03_JPRB, 0.845144E-03_JPRB &
+  &, 0.757844E-03_JPRB, 0.667701E-03_JPRB, 0.574679E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 391, :) = (/ &
+  &  0.969151E+00_JPRB, 0.960518E+00_JPRB, 0.951526E+00_JPRB, 0.942185E+00_JPRB &
+  &, 0.932498E+00_JPRB, 0.922475E+00_JPRB, 0.912119E+00_JPRB &
+  &, 0.901440E+00_JPRB, 0.890444E+00_JPRB, 0.879139E+00_JPRB, 0.867532E+00_JPRB &
+  &, 0.855631E+00_JPRB, 0.843446E+00_JPRB, 0.830985E+00_JPRB &
+  &, 0.818259E+00_JPRB, 0.805276E+00_JPRB, 0.792044E+00_JPRB, 0.778578E+00_JPRB &
+  &, 0.764885E+00_JPRB, 0.750977E+00_JPRB, 0.736869E+00_JPRB &
+  &, 0.722571E+00_JPRB, 0.708094E+00_JPRB, 0.693456E+00_JPRB, 0.678663E+00_JPRB &
+  &, 0.663735E+00_JPRB, 0.648687E+00_JPRB, 0.633531E+00_JPRB &
+  &, 0.618280E+00_JPRB, 0.602959E+00_JPRB, 0.587572E+00_JPRB, 0.572146E+00_JPRB &
+  &, 0.556689E+00_JPRB, 0.541221E+00_JPRB, 0.525763E+00_JPRB &
+  &, 0.510326E+00_JPRB, 0.494928E+00_JPRB, 0.479598E+00_JPRB, 0.464341E+00_JPRB &
+  &, 0.449173E+00_JPRB, 0.434116E+00_JPRB, 0.419179E+00_JPRB &
+  &, 0.404397E+00_JPRB, 0.389770E+00_JPRB, 0.375314E+00_JPRB, 0.361054E+00_JPRB &
+  &, 0.346991E+00_JPRB, 0.333166E+00_JPRB, 0.319554E+00_JPRB &
+  &, 0.306208E+00_JPRB, 0.293114E+00_JPRB, 0.280285E+00_JPRB, 0.267745E+00_JPRB &
+  &, 0.255492E+00_JPRB, 0.243532E+00_JPRB, 0.231888E+00_JPRB &
+  &, 0.220566E+00_JPRB, 0.209555E+00_JPRB, 0.198888E+00_JPRB, 0.188534E+00_JPRB &
+  &, 0.178540E+00_JPRB, 0.168869E+00_JPRB, 0.159532E+00_JPRB &
+  &, 0.150536E+00_JPRB, 0.141891E+00_JPRB, 0.133583E+00_JPRB, 0.125615E+00_JPRB &
+  &, 0.117969E+00_JPRB, 0.110663E+00_JPRB, 0.103694E+00_JPRB &
+  &, 0.970364E-01_JPRB, 0.906820E-01_JPRB, 0.846634E-01_JPRB, 0.789250E-01_JPRB &
+  &, 0.734964E-01_JPRB, 0.683614E-01_JPRB, 0.635008E-01_JPRB &
+  &, 0.589171E-01_JPRB, 0.545864E-01_JPRB, 0.505072E-01_JPRB, 0.466766E-01_JPRB &
+  &, 0.430903E-01_JPRB, 0.397158E-01_JPRB, 0.365718E-01_JPRB &
+  &, 0.336217E-01_JPRB, 0.308818E-01_JPRB, 0.283112E-01_JPRB, 0.259239E-01_JPRB &
+  &, 0.237345E-01_JPRB, 0.216660E-01_JPRB, 0.197596E-01_JPRB &
+  &, 0.180274E-01_JPRB, 0.163850E-01_JPRB, 0.149055E-01_JPRB, 0.135332E-01_JPRB &
+  &, 0.122419E-01_JPRB, 0.111072E-01_JPRB, 0.100334E-01_JPRB &
+  &, 0.906100E-02_JPRB, 0.816038E-02_JPRB, 0.733651E-02_JPRB, 0.659445E-02_JPRB &
+  &, 0.593941E-02_JPRB, 0.533780E-02_JPRB, 0.475357E-02_JPRB &
+  &, 0.426871E-02_JPRB, 0.380711E-02_JPRB, 0.341200E-02_JPRB, 0.304497E-02_JPRB &
+  &, 0.270785E-02_JPRB, 0.240247E-02_JPRB, 0.213073E-02_JPRB &
+  &, 0.189456E-02_JPRB, 0.165033E-02_JPRB, 0.144422E-02_JPRB, 0.127823E-02_JPRB &
+  &, 0.115441E-02_JPRB, 0.978039E-03_JPRB, 0.894271E-03_JPRB &
+  &, 0.757844E-03_JPRB, 0.667701E-03_JPRB, 0.574679E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 392, :) = (/ &
+  &  0.969408E+00_JPRB, 0.960835E+00_JPRB, 0.951905E+00_JPRB, 0.942624E+00_JPRB &
+  &, 0.932997E+00_JPRB, 0.923031E+00_JPRB, 0.912734E+00_JPRB &
+  &, 0.902111E+00_JPRB, 0.891169E+00_JPRB, 0.879918E+00_JPRB, 0.868364E+00_JPRB &
+  &, 0.856515E+00_JPRB, 0.844381E+00_JPRB, 0.831969E+00_JPRB &
+  &, 0.819291E+00_JPRB, 0.806352E+00_JPRB, 0.793168E+00_JPRB, 0.779743E+00_JPRB &
+  &, 0.766093E+00_JPRB, 0.752227E+00_JPRB, 0.738156E+00_JPRB &
+  &, 0.723894E+00_JPRB, 0.709451E+00_JPRB, 0.694844E+00_JPRB, 0.680031E+00_JPRB &
+  &, 0.665187E+00_JPRB, 0.650165E+00_JPRB, 0.635034E+00_JPRB &
+  &, 0.619809E+00_JPRB, 0.604506E+00_JPRB, 0.589140E+00_JPRB, 0.573733E+00_JPRB &
+  &, 0.558290E+00_JPRB, 0.542840E+00_JPRB, 0.527391E+00_JPRB &
+  &, 0.511963E+00_JPRB, 0.496578E+00_JPRB, 0.481241E+00_JPRB, 0.465985E+00_JPRB &
+  &, 0.450818E+00_JPRB, 0.435760E+00_JPRB, 0.420832E+00_JPRB &
+  &, 0.406036E+00_JPRB, 0.391394E+00_JPRB, 0.376932E+00_JPRB, 0.362664E+00_JPRB &
+  &, 0.348592E+00_JPRB, 0.334743E+00_JPRB, 0.321119E+00_JPRB &
+  &, 0.307745E+00_JPRB, 0.294635E+00_JPRB, 0.281787E+00_JPRB, 0.269213E+00_JPRB &
+  &, 0.256937E+00_JPRB, 0.244952E+00_JPRB, 0.233281E+00_JPRB &
+  &, 0.221930E+00_JPRB, 0.210903E+00_JPRB, 0.200186E+00_JPRB, 0.189812E+00_JPRB &
+  &, 0.179762E+00_JPRB, 0.170067E+00_JPRB, 0.160703E+00_JPRB &
+  &, 0.151680E+00_JPRB, 0.142985E+00_JPRB, 0.134644E+00_JPRB, 0.126641E+00_JPRB &
+  &, 0.118958E+00_JPRB, 0.111613E+00_JPRB, 0.104602E+00_JPRB &
+  &, 0.979010E-01_JPRB, 0.915217E-01_JPRB, 0.854548E-01_JPRB, 0.797103E-01_JPRB &
+  &, 0.742292E-01_JPRB, 0.690624E-01_JPRB, 0.641684E-01_JPRB &
+  &, 0.595251E-01_JPRB, 0.551818E-01_JPRB, 0.510637E-01_JPRB, 0.472183E-01_JPRB &
+  &, 0.435900E-01_JPRB, 0.401984E-01_JPRB, 0.370091E-01_JPRB &
+  &, 0.340394E-01_JPRB, 0.312790E-01_JPRB, 0.286870E-01_JPRB, 0.262773E-01_JPRB &
+  &, 0.240344E-01_JPRB, 0.219714E-01_JPRB, 0.200706E-01_JPRB &
+  &, 0.182807E-01_JPRB, 0.166428E-01_JPRB, 0.151351E-01_JPRB, 0.137335E-01_JPRB &
+  &, 0.124458E-01_JPRB, 0.112800E-01_JPRB, 0.102092E-01_JPRB &
+  &, 0.920410E-02_JPRB, 0.830593E-02_JPRB, 0.748452E-02_JPRB, 0.674495E-02_JPRB &
+  &, 0.605417E-02_JPRB, 0.541558E-02_JPRB, 0.487216E-02_JPRB &
+  &, 0.434906E-02_JPRB, 0.388877E-02_JPRB, 0.345349E-02_JPRB, 0.308712E-02_JPRB &
+  &, 0.275067E-02_JPRB, 0.244597E-02_JPRB, 0.217491E-02_JPRB &
+  &, 0.193943E-02_JPRB, 0.169590E-02_JPRB, 0.149048E-02_JPRB, 0.132520E-02_JPRB &
+  &, 0.115441E-02_JPRB, 0.102644E-02_JPRB, 0.894271E-03_JPRB &
+  &, 0.807701E-03_JPRB, 0.667701E-03_JPRB, 0.574679E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART56',1,ZHOOK_HANDLE)
+END SUBROUTINE PART56
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART57
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART57',0,ZHOOK_HANDLE)
+
+XCW( 393, :) = (/ &
+  &  0.969662E+00_JPRB, 0.961152E+00_JPRB, 0.952282E+00_JPRB, 0.943063E+00_JPRB &
+  &, 0.933495E+00_JPRB, 0.923588E+00_JPRB, 0.913348E+00_JPRB &
+  &, 0.902781E+00_JPRB, 0.891896E+00_JPRB, 0.880698E+00_JPRB, 0.869197E+00_JPRB &
+  &, 0.857400E+00_JPRB, 0.845316E+00_JPRB, 0.832953E+00_JPRB &
+  &, 0.820321E+00_JPRB, 0.807431E+00_JPRB, 0.794290E+00_JPRB, 0.780909E+00_JPRB &
+  &, 0.767301E+00_JPRB, 0.753474E+00_JPRB, 0.739440E+00_JPRB &
+  &, 0.725217E+00_JPRB, 0.710811E+00_JPRB, 0.696236E+00_JPRB, 0.681509E+00_JPRB &
+  &, 0.666641E+00_JPRB, 0.651644E+00_JPRB, 0.636542E+00_JPRB &
+  &, 0.621338E+00_JPRB, 0.606060E+00_JPRB, 0.590713E+00_JPRB, 0.575320E+00_JPRB &
+  &, 0.559895E+00_JPRB, 0.544455E+00_JPRB, 0.529019E+00_JPRB &
+  &, 0.513600E+00_JPRB, 0.498219E+00_JPRB, 0.482893E+00_JPRB, 0.467639E+00_JPRB &
+  &, 0.452473E+00_JPRB, 0.437414E+00_JPRB, 0.422474E+00_JPRB &
+  &, 0.407675E+00_JPRB, 0.393040E+00_JPRB, 0.378560E+00_JPRB, 0.364273E+00_JPRB &
+  &, 0.350193E+00_JPRB, 0.336333E+00_JPRB, 0.322697E+00_JPRB &
+  &, 0.309295E+00_JPRB, 0.296156E+00_JPRB, 0.283290E+00_JPRB, 0.270695E+00_JPRB &
+  &, 0.258396E+00_JPRB, 0.246387E+00_JPRB, 0.234689E+00_JPRB &
+  &, 0.223309E+00_JPRB, 0.212235E+00_JPRB, 0.201501E+00_JPRB, 0.191090E+00_JPRB &
+  &, 0.181002E+00_JPRB, 0.171265E+00_JPRB, 0.161875E+00_JPRB &
+  &, 0.152805E+00_JPRB, 0.144080E+00_JPRB, 0.135706E+00_JPRB, 0.127649E+00_JPRB &
+  &, 0.119948E+00_JPRB, 0.112563E+00_JPRB, 0.105511E+00_JPRB &
+  &, 0.987867E-01_JPRB, 0.923615E-01_JPRB, 0.862681E-01_JPRB, 0.804732E-01_JPRB &
+  &, 0.749620E-01_JPRB, 0.697635E-01_JPRB, 0.648360E-01_JPRB &
+  &, 0.601818E-01_JPRB, 0.557771E-01_JPRB, 0.516456E-01_JPRB, 0.477600E-01_JPRB &
+  &, 0.440897E-01_JPRB, 0.406810E-01_JPRB, 0.374736E-01_JPRB &
+  &, 0.344571E-01_JPRB, 0.316763E-01_JPRB, 0.290628E-01_JPRB, 0.266307E-01_JPRB &
+  &, 0.243644E-01_JPRB, 0.222769E-01_JPRB, 0.203505E-01_JPRB &
+  &, 0.185340E-01_JPRB, 0.169007E-01_JPRB, 0.153648E-01_JPRB, 0.139338E-01_JPRB &
+  &, 0.126497E-01_JPRB, 0.114529E-01_JPRB, 0.103499E-01_JPRB &
+  &, 0.934720E-02_JPRB, 0.845147E-02_JPRB, 0.759552E-02_JPRB, 0.685783E-02_JPRB &
+  &, 0.616893E-02_JPRB, 0.553224E-02_JPRB, 0.495122E-02_JPRB &
+  &, 0.442941E-02_JPRB, 0.397043E-02_JPRB, 0.353646E-02_JPRB, 0.317143E-02_JPRB &
+  &, 0.279349E-02_JPRB, 0.248947E-02_JPRB, 0.221910E-02_JPRB &
+  &, 0.193943E-02_JPRB, 0.174146E-02_JPRB, 0.153675E-02_JPRB, 0.137217E-02_JPRB &
+  &, 0.120209E-02_JPRB, 0.102644E-02_JPRB, 0.943397E-03_JPRB &
+  &, 0.807701E-03_JPRB, 0.718294E-03_JPRB, 0.626014E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 394, :) = (/ &
+  &  0.969918E+00_JPRB, 0.961470E+00_JPRB, 0.952661E+00_JPRB, 0.943502E+00_JPRB &
+  &, 0.933993E+00_JPRB, 0.924145E+00_JPRB, 0.913962E+00_JPRB &
+  &, 0.903451E+00_JPRB, 0.892611E+00_JPRB, 0.881477E+00_JPRB, 0.870029E+00_JPRB &
+  &, 0.858284E+00_JPRB, 0.846251E+00_JPRB, 0.833937E+00_JPRB &
+  &, 0.821354E+00_JPRB, 0.808509E+00_JPRB, 0.795412E+00_JPRB, 0.782075E+00_JPRB &
+  &, 0.768509E+00_JPRB, 0.754721E+00_JPRB, 0.740727E+00_JPRB &
+  &, 0.726540E+00_JPRB, 0.712171E+00_JPRB, 0.697628E+00_JPRB, 0.682933E+00_JPRB &
+  &, 0.668093E+00_JPRB, 0.653127E+00_JPRB, 0.638049E+00_JPRB &
+  &, 0.622871E+00_JPRB, 0.607611E+00_JPRB, 0.592286E+00_JPRB, 0.576911E+00_JPRB &
+  &, 0.561505E+00_JPRB, 0.546078E+00_JPRB, 0.530652E+00_JPRB &
+  &, 0.515246E+00_JPRB, 0.499868E+00_JPRB, 0.484546E+00_JPRB, 0.469293E+00_JPRB &
+  &, 0.454128E+00_JPRB, 0.439069E+00_JPRB, 0.424127E+00_JPRB &
+  &, 0.409325E+00_JPRB, 0.394674E+00_JPRB, 0.380189E+00_JPRB, 0.365895E+00_JPRB &
+  &, 0.351806E+00_JPRB, 0.337923E+00_JPRB, 0.324261E+00_JPRB &
+  &, 0.310859E+00_JPRB, 0.297690E+00_JPRB, 0.284806E+00_JPRB, 0.272177E+00_JPRB &
+  &, 0.259856E+00_JPRB, 0.247822E+00_JPRB, 0.236097E+00_JPRB &
+  &, 0.224673E+00_JPRB, 0.213583E+00_JPRB, 0.202815E+00_JPRB, 0.192368E+00_JPRB &
+  &, 0.182258E+00_JPRB, 0.172480E+00_JPRB, 0.163046E+00_JPRB &
+  &, 0.153948E+00_JPRB, 0.145193E+00_JPRB, 0.136768E+00_JPRB, 0.128695E+00_JPRB &
+  &, 0.120937E+00_JPRB, 0.113533E+00_JPRB, 0.106440E+00_JPRB &
+  &, 0.996724E-01_JPRB, 0.932228E-01_JPRB, 0.870814E-01_JPRB, 0.812361E-01_JPRB &
+  &, 0.757177E-01_JPRB, 0.704645E-01_JPRB, 0.655036E-01_JPRB &
+  &, 0.608142E-01_JPRB, 0.563973E-01_JPRB, 0.522275E-01_JPRB, 0.483018E-01_JPRB &
+  &, 0.446157E-01_JPRB, 0.411636E-01_JPRB, 0.379108E-01_JPRB &
+  &, 0.349026E-01_JPRB, 0.320735E-01_JPRB, 0.294386E-01_JPRB, 0.269841E-01_JPRB &
+  &, 0.246943E-01_JPRB, 0.225823E-01_JPRB, 0.206304E-01_JPRB &
+  &, 0.188190E-01_JPRB, 0.171264E-01_JPRB, 0.155944E-01_JPRB, 0.141676E-01_JPRB &
+  &, 0.128535E-01_JPRB, 0.116257E-01_JPRB, 0.105257E-01_JPRB &
+  &, 0.952607E-02_JPRB, 0.859701E-02_JPRB, 0.774353E-02_JPRB, 0.697070E-02_JPRB &
+  &, 0.628370E-02_JPRB, 0.561002E-02_JPRB, 0.503028E-02_JPRB &
+  &, 0.450977E-02_JPRB, 0.405209E-02_JPRB, 0.361944E-02_JPRB, 0.321358E-02_JPRB &
+  &, 0.287914E-02_JPRB, 0.253297E-02_JPRB, 0.226328E-02_JPRB &
+  &, 0.198430E-02_JPRB, 0.178703E-02_JPRB, 0.158301E-02_JPRB, 0.137217E-02_JPRB &
+  &, 0.120209E-02_JPRB, 0.107484E-02_JPRB, 0.943397E-03_JPRB &
+  &, 0.807701E-03_JPRB, 0.718294E-03_JPRB, 0.626014E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.438772E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 395, :) = (/ &
+  &  0.970173E+00_JPRB, 0.961787E+00_JPRB, 0.953039E+00_JPRB, 0.943940E+00_JPRB &
+  &, 0.934491E+00_JPRB, 0.924701E+00_JPRB, 0.914575E+00_JPRB &
+  &, 0.904121E+00_JPRB, 0.893346E+00_JPRB, 0.882256E+00_JPRB, 0.870862E+00_JPRB &
+  &, 0.859168E+00_JPRB, 0.847185E+00_JPRB, 0.834921E+00_JPRB &
+  &, 0.822386E+00_JPRB, 0.809586E+00_JPRB, 0.796535E+00_JPRB, 0.783242E+00_JPRB &
+  &, 0.769717E+00_JPRB, 0.755971E+00_JPRB, 0.742015E+00_JPRB &
+  &, 0.727866E+00_JPRB, 0.713527E+00_JPRB, 0.699023E+00_JPRB, 0.684358E+00_JPRB &
+  &, 0.669548E+00_JPRB, 0.654610E+00_JPRB, 0.639557E+00_JPRB &
+  &, 0.624404E+00_JPRB, 0.609166E+00_JPRB, 0.593863E+00_JPRB, 0.578502E+00_JPRB &
+  &, 0.563110E+00_JPRB, 0.547702E+00_JPRB, 0.532285E+00_JPRB &
+  &, 0.516883E+00_JPRB, 0.501518E+00_JPRB, 0.486208E+00_JPRB, 0.470957E+00_JPRB &
+  &, 0.455793E+00_JPRB, 0.440734E+00_JPRB, 0.425791E+00_JPRB &
+  &, 0.410975E+00_JPRB, 0.396320E+00_JPRB, 0.381830E+00_JPRB, 0.367517E+00_JPRB &
+  &, 0.353406E+00_JPRB, 0.339513E+00_JPRB, 0.325839E+00_JPRB &
+  &, 0.312410E+00_JPRB, 0.299238E+00_JPRB, 0.286322E+00_JPRB, 0.273674E+00_JPRB &
+  &, 0.261315E+00_JPRB, 0.249257E+00_JPRB, 0.237506E+00_JPRB &
+  &, 0.226052E+00_JPRB, 0.214931E+00_JPRB, 0.204129E+00_JPRB, 0.193646E+00_JPRB &
+  &, 0.183514E+00_JPRB, 0.173695E+00_JPRB, 0.164235E+00_JPRB &
+  &, 0.155091E+00_JPRB, 0.146306E+00_JPRB, 0.137848E+00_JPRB, 0.129722E+00_JPRB &
+  &, 0.121947E+00_JPRB, 0.114484E+00_JPRB, 0.107369E+00_JPRB &
+  &, 0.100558E+00_JPRB, 0.940840E-01_JPRB, 0.878948E-01_JPRB, 0.820215E-01_JPRB &
+  &, 0.764505E-01_JPRB, 0.711889E-01_JPRB, 0.661711E-01_JPRB &
+  &, 0.614465E-01_JPRB, 0.569927E-01_JPRB, 0.528094E-01_JPRB, 0.488435E-01_JPRB &
+  &, 0.451417E-01_JPRB, 0.416462E-01_JPRB, 0.383753E-01_JPRB &
+  &, 0.353204E-01_JPRB, 0.324708E-01_JPRB, 0.298144E-01_JPRB, 0.273374E-01_JPRB &
+  &, 0.250542E-01_JPRB, 0.229183E-01_JPRB, 0.209103E-01_JPRB &
+  &, 0.191040E-01_JPRB, 0.173842E-01_JPRB, 0.158241E-01_JPRB, 0.143679E-01_JPRB &
+  &, 0.130574E-01_JPRB, 0.118332E-01_JPRB, 0.107016E-01_JPRB &
+  &, 0.966917E-02_JPRB, 0.874255E-02_JPRB, 0.789154E-02_JPRB, 0.708358E-02_JPRB &
+  &, 0.639846E-02_JPRB, 0.572669E-02_JPRB, 0.514887E-02_JPRB &
+  &, 0.459012E-02_JPRB, 0.413375E-02_JPRB, 0.366093E-02_JPRB, 0.329789E-02_JPRB &
+  &, 0.292196E-02_JPRB, 0.261997E-02_JPRB, 0.230746E-02_JPRB &
+  &, 0.202917E-02_JPRB, 0.183259E-02_JPRB, 0.158301E-02_JPRB, 0.141914E-02_JPRB &
+  &, 0.124978E-02_JPRB, 0.107484E-02_JPRB, 0.943397E-03_JPRB &
+  &, 0.857557E-03_JPRB, 0.718294E-03_JPRB, 0.626014E-03_JPRB, 0.582908E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 396, :) = (/ &
+  &  0.970427E+00_JPRB, 0.962103E+00_JPRB, 0.953417E+00_JPRB, 0.944378E+00_JPRB &
+  &, 0.934989E+00_JPRB, 0.925256E+00_JPRB, 0.915189E+00_JPRB &
+  &, 0.904791E+00_JPRB, 0.894071E+00_JPRB, 0.883036E+00_JPRB, 0.871695E+00_JPRB &
+  &, 0.860053E+00_JPRB, 0.848120E+00_JPRB, 0.835904E+00_JPRB &
+  &, 0.823416E+00_JPRB, 0.810665E+00_JPRB, 0.797659E+00_JPRB, 0.784408E+00_JPRB &
+  &, 0.770925E+00_JPRB, 0.757221E+00_JPRB, 0.743305E+00_JPRB &
+  &, 0.729189E+00_JPRB, 0.714891E+00_JPRB, 0.700414E+00_JPRB, 0.685782E+00_JPRB &
+  &, 0.671003E+00_JPRB, 0.656092E+00_JPRB, 0.641068E+00_JPRB &
+  &, 0.625936E+00_JPRB, 0.610724E+00_JPRB, 0.595436E+00_JPRB, 0.580098E+00_JPRB &
+  &, 0.564724E+00_JPRB, 0.549326E+00_JPRB, 0.533923E+00_JPRB &
+  &, 0.518529E+00_JPRB, 0.503178E+00_JPRB, 0.487870E+00_JPRB, 0.472622E+00_JPRB &
+  &, 0.457458E+00_JPRB, 0.442399E+00_JPRB, 0.427444E+00_JPRB &
+  &, 0.412636E+00_JPRB, 0.397966E+00_JPRB, 0.383470E+00_JPRB, 0.369150E+00_JPRB &
+  &, 0.355031E+00_JPRB, 0.341116E+00_JPRB, 0.327430E+00_JPRB &
+  &, 0.313973E+00_JPRB, 0.300772E+00_JPRB, 0.287838E+00_JPRB, 0.275170E+00_JPRB &
+  &, 0.262789E+00_JPRB, 0.250707E+00_JPRB, 0.238929E+00_JPRB &
+  &, 0.227447E+00_JPRB, 0.216295E+00_JPRB, 0.205459E+00_JPRB, 0.194941E+00_JPRB &
+  &, 0.184770E+00_JPRB, 0.174928E+00_JPRB, 0.165425E+00_JPRB &
+  &, 0.156252E+00_JPRB, 0.147419E+00_JPRB, 0.138929E+00_JPRB, 0.130768E+00_JPRB &
+  &, 0.122956E+00_JPRB, 0.115454E+00_JPRB, 0.108299E+00_JPRB &
+  &, 0.101465E+00_JPRB, 0.949238E-01_JPRB, 0.887301E-01_JPRB, 0.828068E-01_JPRB &
+  &, 0.772062E-01_JPRB, 0.718899E-01_JPRB, 0.668625E-01_JPRB &
+  &, 0.621032E-01_JPRB, 0.576129E-01_JPRB, 0.533913E-01_JPRB, 0.494110E-01_JPRB &
+  &, 0.456677E-01_JPRB, 0.421556E-01_JPRB, 0.388399E-01_JPRB &
+  &, 0.357659E-01_JPRB, 0.328964E-01_JPRB, 0.302191E-01_JPRB, 0.277203E-01_JPRB &
+  &, 0.253841E-01_JPRB, 0.232237E-01_JPRB, 0.212214E-01_JPRB &
+  &, 0.193573E-01_JPRB, 0.176421E-01_JPRB, 0.160538E-01_JPRB, 0.146017E-01_JPRB &
+  &, 0.132613E-01_JPRB, 0.120060E-01_JPRB, 0.108774E-01_JPRB &
+  &, 0.984804E-02_JPRB, 0.888810E-02_JPRB, 0.800255E-02_JPRB, 0.723408E-02_JPRB &
+  &, 0.651322E-02_JPRB, 0.584336E-02_JPRB, 0.522793E-02_JPRB &
+  &, 0.471065E-02_JPRB, 0.421540E-02_JPRB, 0.374390E-02_JPRB, 0.334004E-02_JPRB &
+  &, 0.296478E-02_JPRB, 0.266347E-02_JPRB, 0.235164E-02_JPRB &
+  &, 0.207404E-02_JPRB, 0.183259E-02_JPRB, 0.162928E-02_JPRB, 0.146611E-02_JPRB &
+  &, 0.129746E-02_JPRB, 0.112324E-02_JPRB, 0.992523E-03_JPRB &
+  &, 0.857557E-03_JPRB, 0.768886E-03_JPRB, 0.677348E-03_JPRB, 0.582908E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 397, :) = (/ &
+  &  0.970682E+00_JPRB, 0.962420E+00_JPRB, 0.953795E+00_JPRB, 0.944816E+00_JPRB &
+  &, 0.935486E+00_JPRB, 0.925812E+00_JPRB, 0.915802E+00_JPRB &
+  &, 0.905461E+00_JPRB, 0.894797E+00_JPRB, 0.883816E+00_JPRB, 0.872527E+00_JPRB &
+  &, 0.860937E+00_JPRB, 0.849055E+00_JPRB, 0.836890E+00_JPRB &
+  &, 0.824448E+00_JPRB, 0.811744E+00_JPRB, 0.798783E+00_JPRB, 0.785576E+00_JPRB &
+  &, 0.772134E+00_JPRB, 0.758471E+00_JPRB, 0.744592E+00_JPRB &
+  &, 0.730515E+00_JPRB, 0.716251E+00_JPRB, 0.701810E+00_JPRB, 0.687210E+00_JPRB &
+  &, 0.672461E+00_JPRB, 0.657579E+00_JPRB, 0.642579E+00_JPRB &
+  &, 0.627473E+00_JPRB, 0.612283E+00_JPRB, 0.597017E+00_JPRB, 0.581697E+00_JPRB &
+  &, 0.566333E+00_JPRB, 0.550954E+00_JPRB, 0.535565E+00_JPRB &
+  &, 0.520185E+00_JPRB, 0.504837E+00_JPRB, 0.489533E+00_JPRB, 0.474286E+00_JPRB &
+  &, 0.459123E+00_JPRB, 0.444064E+00_JPRB, 0.429108E+00_JPRB &
+  &, 0.414297E+00_JPRB, 0.399624E+00_JPRB, 0.385111E+00_JPRB, 0.370784E+00_JPRB &
+  &, 0.356644E+00_JPRB, 0.342718E+00_JPRB, 0.329007E+00_JPRB &
+  &, 0.315550E+00_JPRB, 0.302320E+00_JPRB, 0.289368E+00_JPRB, 0.276680E+00_JPRB &
+  &, 0.264264E+00_JPRB, 0.252157E+00_JPRB, 0.240337E+00_JPRB &
+  &, 0.228842E+00_JPRB, 0.217658E+00_JPRB, 0.206790E+00_JPRB, 0.196235E+00_JPRB &
+  &, 0.186026E+00_JPRB, 0.176160E+00_JPRB, 0.166614E+00_JPRB &
+  &, 0.157414E+00_JPRB, 0.148550E+00_JPRB, 0.140009E+00_JPRB, 0.131814E+00_JPRB &
+  &, 0.123966E+00_JPRB, 0.116445E+00_JPRB, 0.109228E+00_JPRB &
+  &, 0.102351E+00_JPRB, 0.958066E-01_JPRB, 0.895434E-01_JPRB, 0.836146E-01_JPRB &
+  &, 0.779619E-01_JPRB, 0.726144E-01_JPRB, 0.675540E-01_JPRB &
+  &, 0.627599E-01_JPRB, 0.582331E-01_JPRB, 0.539732E-01_JPRB, 0.499528E-01_JPRB &
+  &, 0.461937E-01_JPRB, 0.426382E-01_JPRB, 0.393317E-01_JPRB &
+  &, 0.362115E-01_JPRB, 0.333220E-01_JPRB, 0.305949E-01_JPRB, 0.280736E-01_JPRB &
+  &, 0.257140E-01_JPRB, 0.235597E-01_JPRB, 0.215324E-01_JPRB &
+  &, 0.196423E-01_JPRB, 0.179000E-01_JPRB, 0.163163E-01_JPRB, 0.148354E-01_JPRB &
+  &, 0.134651E-01_JPRB, 0.122135E-01_JPRB, 0.110533E-01_JPRB &
+  &, 0.999114E-02_JPRB, 0.903364E-02_JPRB, 0.815056E-02_JPRB, 0.734696E-02_JPRB &
+  &, 0.662799E-02_JPRB, 0.596002E-02_JPRB, 0.534652E-02_JPRB &
+  &, 0.479100E-02_JPRB, 0.429706E-02_JPRB, 0.382688E-02_JPRB, 0.342434E-02_JPRB &
+  &, 0.305043E-02_JPRB, 0.270697E-02_JPRB, 0.239582E-02_JPRB &
+  &, 0.211891E-02_JPRB, 0.187816E-02_JPRB, 0.167554E-02_JPRB, 0.146611E-02_JPRB &
+  &, 0.129746E-02_JPRB, 0.117165E-02_JPRB, 0.992523E-03_JPRB &
+  &, 0.907413E-03_JPRB, 0.768886E-03_JPRB, 0.677348E-03_JPRB, 0.582908E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 398, :) = (/ &
+  &  0.970934E+00_JPRB, 0.962736E+00_JPRB, 0.954172E+00_JPRB, 0.945254E+00_JPRB &
+  &, 0.935984E+00_JPRB, 0.926369E+00_JPRB, 0.916416E+00_JPRB &
+  &, 0.906130E+00_JPRB, 0.895522E+00_JPRB, 0.884595E+00_JPRB, 0.873359E+00_JPRB &
+  &, 0.861821E+00_JPRB, 0.849990E+00_JPRB, 0.837873E+00_JPRB &
+  &, 0.825480E+00_JPRB, 0.812822E+00_JPRB, 0.799906E+00_JPRB, 0.786744E+00_JPRB &
+  &, 0.773344E+00_JPRB, 0.759721E+00_JPRB, 0.745883E+00_JPRB &
+  &, 0.731841E+00_JPRB, 0.717614E+00_JPRB, 0.703208E+00_JPRB, 0.688638E+00_JPRB &
+  &, 0.673920E+00_JPRB, 0.659065E+00_JPRB, 0.644090E+00_JPRB &
+  &, 0.629010E+00_JPRB, 0.613842E+00_JPRB, 0.598598E+00_JPRB, 0.583293E+00_JPRB &
+  &, 0.567952E+00_JPRB, 0.552582E+00_JPRB, 0.537207E+00_JPRB &
+  &, 0.521831E+00_JPRB, 0.506496E+00_JPRB, 0.491195E+00_JPRB, 0.475960E+00_JPRB &
+  &, 0.460799E+00_JPRB, 0.445729E+00_JPRB, 0.430782E+00_JPRB &
+  &, 0.415958E+00_JPRB, 0.401281E+00_JPRB, 0.386763E+00_JPRB, 0.372417E+00_JPRB &
+  &, 0.358269E+00_JPRB, 0.344321E+00_JPRB, 0.330611E+00_JPRB &
+  &, 0.317114E+00_JPRB, 0.303881E+00_JPRB, 0.290898E+00_JPRB, 0.278190E+00_JPRB &
+  &, 0.265752E+00_JPRB, 0.253606E+00_JPRB, 0.241776E+00_JPRB &
+  &, 0.230236E+00_JPRB, 0.219022E+00_JPRB, 0.208120E+00_JPRB, 0.197546E+00_JPRB &
+  &, 0.187300E+00_JPRB, 0.177393E+00_JPRB, 0.167821E+00_JPRB &
+  &, 0.158575E+00_JPRB, 0.149682E+00_JPRB, 0.141109E+00_JPRB, 0.132879E+00_JPRB &
+  &, 0.124975E+00_JPRB, 0.117415E+00_JPRB, 0.110178E+00_JPRB &
+  &, 0.103279E+00_JPRB, 0.966679E-01_JPRB, 0.903788E-01_JPRB, 0.843999E-01_JPRB &
+  &, 0.787405E-01_JPRB, 0.733388E-01_JPRB, 0.682454E-01_JPRB &
+  &, 0.634166E-01_JPRB, 0.588781E-01_JPRB, 0.545803E-01_JPRB, 0.505203E-01_JPRB &
+  &, 0.467198E-01_JPRB, 0.431476E-01_JPRB, 0.397963E-01_JPRB &
+  &, 0.366570E-01_JPRB, 0.337192E-01_JPRB, 0.309996E-01_JPRB, 0.284564E-01_JPRB &
+  &, 0.260740E-01_JPRB, 0.238652E-01_JPRB, 0.218123E-01_JPRB &
+  &, 0.199273E-01_JPRB, 0.181578E-01_JPRB, 0.165459E-01_JPRB, 0.150691E-01_JPRB &
+  &, 0.136690E-01_JPRB, 0.124209E-01_JPRB, 0.112291E-01_JPRB &
+  &, 0.101700E-01_JPRB, 0.917918E-02_JPRB, 0.829857E-02_JPRB, 0.745983E-02_JPRB &
+  &, 0.674275E-02_JPRB, 0.603780E-02_JPRB, 0.542558E-02_JPRB &
+  &, 0.487136E-02_JPRB, 0.437872E-02_JPRB, 0.390985E-02_JPRB, 0.346650E-02_JPRB &
+  &, 0.309325E-02_JPRB, 0.275047E-02_JPRB, 0.244001E-02_JPRB &
+  &, 0.216378E-02_JPRB, 0.192372E-02_JPRB, 0.172181E-02_JPRB, 0.151309E-02_JPRB &
+  &, 0.134514E-02_JPRB, 0.117165E-02_JPRB, 0.104165E-02_JPRB &
+  &, 0.907413E-03_JPRB, 0.819479E-03_JPRB, 0.677348E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 399, :) = (/ &
+  &  0.971185E+00_JPRB, 0.963052E+00_JPRB, 0.954550E+00_JPRB, 0.945692E+00_JPRB &
+  &, 0.936480E+00_JPRB, 0.926924E+00_JPRB, 0.917029E+00_JPRB &
+  &, 0.906800E+00_JPRB, 0.896246E+00_JPRB, 0.885372E+00_JPRB, 0.874192E+00_JPRB &
+  &, 0.862705E+00_JPRB, 0.850925E+00_JPRB, 0.838857E+00_JPRB &
+  &, 0.826514E+00_JPRB, 0.813902E+00_JPRB, 0.801031E+00_JPRB, 0.787912E+00_JPRB &
+  &, 0.774555E+00_JPRB, 0.760970E+00_JPRB, 0.747170E+00_JPRB &
+  &, 0.733171E+00_JPRB, 0.718974E+00_JPRB, 0.704603E+00_JPRB, 0.690066E+00_JPRB &
+  &, 0.675378E+00_JPRB, 0.660552E+00_JPRB, 0.645605E+00_JPRB &
+  &, 0.630550E+00_JPRB, 0.615404E+00_JPRB, 0.600179E+00_JPRB, 0.584897E+00_JPRB &
+  &, 0.569501E+00_JPRB, 0.554214E+00_JPRB, 0.538849E+00_JPRB &
+  &, 0.523487E+00_JPRB, 0.508156E+00_JPRB, 0.492867E+00_JPRB, 0.477624E+00_JPRB &
+  &, 0.462474E+00_JPRB, 0.447405E+00_JPRB, 0.432446E+00_JPRB &
+  &, 0.417620E+00_JPRB, 0.402938E+00_JPRB, 0.388415E+00_JPRB, 0.374063E+00_JPRB &
+  &, 0.359894E+00_JPRB, 0.345936E+00_JPRB, 0.332201E+00_JPRB &
+  &, 0.318690E+00_JPRB, 0.305429E+00_JPRB, 0.292428E+00_JPRB, 0.279700E+00_JPRB &
+  &, 0.267240E+00_JPRB, 0.255071E+00_JPRB, 0.243199E+00_JPRB &
+  &, 0.231647E+00_JPRB, 0.220386E+00_JPRB, 0.209467E+00_JPRB, 0.198858E+00_JPRB &
+  &, 0.188573E+00_JPRB, 0.178625E+00_JPRB, 0.169028E+00_JPRB &
+  &, 0.159755E+00_JPRB, 0.150813E+00_JPRB, 0.142208E+00_JPRB, 0.133945E+00_JPRB &
+  &, 0.126004E+00_JPRB, 0.118406E+00_JPRB, 0.111128E+00_JPRB &
+  &, 0.104185E+00_JPRB, 0.975507E-01_JPRB, 0.912361E-01_JPRB, 0.852077E-01_JPRB &
+  &, 0.794962E-01_JPRB, 0.740865E-01_JPRB, 0.689368E-01_JPRB &
+  &, 0.640976E-01_JPRB, 0.594983E-01_JPRB, 0.551622E-01_JPRB, 0.510878E-01_JPRB &
+  &, 0.472458E-01_JPRB, 0.436569E-01_JPRB, 0.402881E-01_JPRB &
+  &, 0.371026E-01_JPRB, 0.341449E-01_JPRB, 0.314043E-01_JPRB, 0.288098E-01_JPRB &
+  &, 0.264339E-01_JPRB, 0.242012E-01_JPRB, 0.221233E-01_JPRB &
+  &, 0.202122E-01_JPRB, 0.184480E-01_JPRB, 0.168084E-01_JPRB, 0.152695E-01_JPRB &
+  &, 0.138729E-01_JPRB, 0.125937E-01_JPRB, 0.114402E-01_JPRB &
+  &, 0.103489E-01_JPRB, 0.936111E-02_JPRB, 0.844658E-02_JPRB, 0.761034E-02_JPRB &
+  &, 0.685751E-02_JPRB, 0.615447E-02_JPRB, 0.554417E-02_JPRB &
+  &, 0.495171E-02_JPRB, 0.446038E-02_JPRB, 0.399283E-02_JPRB, 0.355080E-02_JPRB &
+  &, 0.317890E-02_JPRB, 0.283747E-02_JPRB, 0.252837E-02_JPRB &
+  &, 0.225352E-02_JPRB, 0.196928E-02_JPRB, 0.176807E-02_JPRB, 0.156006E-02_JPRB &
+  &, 0.139283E-02_JPRB, 0.122005E-02_JPRB, 0.104165E-02_JPRB &
+  &, 0.957270E-03_JPRB, 0.819479E-03_JPRB, 0.728683E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.492368E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART57',1,ZHOOK_HANDLE)
+END SUBROUTINE PART57
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART58
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART58',0,ZHOOK_HANDLE)
+
+XCW( 400, :) = (/ &
+  &  0.971444E+00_JPRB, 0.963370E+00_JPRB, 0.954927E+00_JPRB, 0.946129E+00_JPRB &
+  &, 0.936978E+00_JPRB, 0.927480E+00_JPRB, 0.917641E+00_JPRB &
+  &, 0.907469E+00_JPRB, 0.896971E+00_JPRB, 0.886153E+00_JPRB, 0.875024E+00_JPRB &
+  &, 0.863590E+00_JPRB, 0.851859E+00_JPRB, 0.839842E+00_JPRB &
+  &, 0.827546E+00_JPRB, 0.814980E+00_JPRB, 0.802155E+00_JPRB, 0.789079E+00_JPRB &
+  &, 0.775766E+00_JPRB, 0.762220E+00_JPRB, 0.748461E+00_JPRB &
+  &, 0.734497E+00_JPRB, 0.720341E+00_JPRB, 0.706002E+00_JPRB, 0.691498E+00_JPRB &
+  &, 0.676841E+00_JPRB, 0.662042E+00_JPRB, 0.647120E+00_JPRB &
+  &, 0.632091E+00_JPRB, 0.616967E+00_JPRB, 0.601765E+00_JPRB, 0.586496E+00_JPRB &
+  &, 0.571188E+00_JPRB, 0.555847E+00_JPRB, 0.540495E+00_JPRB &
+  &, 0.525143E+00_JPRB, 0.509825E+00_JPRB, 0.494529E+00_JPRB, 0.479309E+00_JPRB &
+  &, 0.464150E+00_JPRB, 0.449080E+00_JPRB, 0.434131E+00_JPRB &
+  &, 0.419292E+00_JPRB, 0.404596E+00_JPRB, 0.390067E+00_JPRB, 0.375708E+00_JPRB &
+  &, 0.361532E+00_JPRB, 0.347551E+00_JPRB, 0.333805E+00_JPRB &
+  &, 0.320280E+00_JPRB, 0.307003E+00_JPRB, 0.293972E+00_JPRB, 0.281211E+00_JPRB &
+  &, 0.268729E+00_JPRB, 0.256536E+00_JPRB, 0.244638E+00_JPRB &
+  &, 0.233057E+00_JPRB, 0.221766E+00_JPRB, 0.210813E+00_JPRB, 0.200169E+00_JPRB &
+  &, 0.189863E+00_JPRB, 0.179875E+00_JPRB, 0.170235E+00_JPRB &
+  &, 0.160916E+00_JPRB, 0.151945E+00_JPRB, 0.143308E+00_JPRB, 0.135010E+00_JPRB &
+  &, 0.127033E+00_JPRB, 0.119397E+00_JPRB, 0.112098E+00_JPRB &
+  &, 0.105113E+00_JPRB, 0.984335E-01_JPRB, 0.920714E-01_JPRB, 0.860379E-01_JPRB &
+  &, 0.802748E-01_JPRB, 0.748109E-01_JPRB, 0.696520E-01_JPRB &
+  &, 0.647543E-01_JPRB, 0.601432E-01_JPRB, 0.557694E-01_JPRB, 0.516554E-01_JPRB &
+  &, 0.477981E-01_JPRB, 0.441663E-01_JPRB, 0.407527E-01_JPRB &
+  &, 0.375760E-01_JPRB, 0.345989E-01_JPRB, 0.318091E-01_JPRB, 0.291926E-01_JPRB &
+  &, 0.267938E-01_JPRB, 0.245371E-01_JPRB, 0.224343E-01_JPRB &
+  &, 0.204972E-01_JPRB, 0.187058E-01_JPRB, 0.170381E-01_JPRB, 0.155032E-01_JPRB &
+  &, 0.141107E-01_JPRB, 0.128012E-01_JPRB, 0.116160E-01_JPRB &
+  &, 0.105278E-01_JPRB, 0.950665E-02_JPRB, 0.859459E-02_JPRB, 0.776084E-02_JPRB &
+  &, 0.697227E-02_JPRB, 0.627114E-02_JPRB, 0.562323E-02_JPRB &
+  &, 0.507224E-02_JPRB, 0.454204E-02_JPRB, 0.407580E-02_JPRB, 0.363511E-02_JPRB &
+  &, 0.322172E-02_JPRB, 0.288096E-02_JPRB, 0.257255E-02_JPRB &
+  &, 0.229839E-02_JPRB, 0.201485E-02_JPRB, 0.181434E-02_JPRB, 0.160703E-02_JPRB &
+  &, 0.139283E-02_JPRB, 0.122005E-02_JPRB, 0.109078E-02_JPRB &
+  &, 0.957270E-03_JPRB, 0.819479E-03_JPRB, 0.728683E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.492368E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 401, :) = (/ &
+  &  0.971700E+00_JPRB, 0.963685E+00_JPRB, 0.955304E+00_JPRB, 0.946566E+00_JPRB &
+  &, 0.937474E+00_JPRB, 0.928034E+00_JPRB, 0.918254E+00_JPRB &
+  &, 0.908139E+00_JPRB, 0.897696E+00_JPRB, 0.886933E+00_JPRB, 0.875856E+00_JPRB &
+  &, 0.864474E+00_JPRB, 0.852794E+00_JPRB, 0.840826E+00_JPRB &
+  &, 0.828578E+00_JPRB, 0.816060E+00_JPRB, 0.803280E+00_JPRB, 0.790249E+00_JPRB &
+  &, 0.776977E+00_JPRB, 0.763473E+00_JPRB, 0.749754E+00_JPRB &
+  &, 0.735826E+00_JPRB, 0.721704E+00_JPRB, 0.707401E+00_JPRB, 0.692930E+00_JPRB &
+  &, 0.678299E+00_JPRB, 0.663532E+00_JPRB, 0.648639E+00_JPRB &
+  &, 0.633631E+00_JPRB, 0.618530E+00_JPRB, 0.603350E+00_JPRB, 0.588104E+00_JPRB &
+  &, 0.572811E+00_JPRB, 0.557484E+00_JPRB, 0.542146E+00_JPRB &
+  &, 0.526807E+00_JPRB, 0.511484E+00_JPRB, 0.496211E+00_JPRB, 0.480983E+00_JPRB &
+  &, 0.465825E+00_JPRB, 0.450766E+00_JPRB, 0.435806E+00_JPRB &
+  &, 0.420964E+00_JPRB, 0.406264E+00_JPRB, 0.391719E+00_JPRB, 0.377354E+00_JPRB &
+  &, 0.363169E+00_JPRB, 0.349179E+00_JPRB, 0.335408E+00_JPRB &
+  &, 0.321870E+00_JPRB, 0.308565E+00_JPRB, 0.295516E+00_JPRB, 0.282735E+00_JPRB &
+  &, 0.270232E+00_JPRB, 0.258015E+00_JPRB, 0.246092E+00_JPRB &
+  &, 0.234467E+00_JPRB, 0.223161E+00_JPRB, 0.212160E+00_JPRB, 0.201496E+00_JPRB &
+  &, 0.191153E+00_JPRB, 0.181143E+00_JPRB, 0.171460E+00_JPRB &
+  &, 0.162114E+00_JPRB, 0.153095E+00_JPRB, 0.144426E+00_JPRB, 0.136075E+00_JPRB &
+  &, 0.128082E+00_JPRB, 0.120408E+00_JPRB, 0.113048E+00_JPRB &
+  &, 0.106020E+00_JPRB, 0.993164E-01_JPRB, 0.929287E-01_JPRB, 0.868457E-01_JPRB &
+  &, 0.810534E-01_JPRB, 0.755587E-01_JPRB, 0.703673E-01_JPRB &
+  &, 0.654353E-01_JPRB, 0.607882E-01_JPRB, 0.563766E-01_JPRB, 0.522487E-01_JPRB &
+  &, 0.483504E-01_JPRB, 0.446757E-01_JPRB, 0.412445E-01_JPRB &
+  &, 0.380215E-01_JPRB, 0.350245E-01_JPRB, 0.322138E-01_JPRB, 0.295755E-01_JPRB &
+  &, 0.271537E-01_JPRB, 0.248731E-01_JPRB, 0.227453E-01_JPRB &
+  &, 0.207822E-01_JPRB, 0.189637E-01_JPRB, 0.173005E-01_JPRB, 0.157369E-01_JPRB &
+  &, 0.143146E-01_JPRB, 0.130086E-01_JPRB, 0.117919E-01_JPRB &
+  &, 0.106709E-01_JPRB, 0.965220E-02_JPRB, 0.874260E-02_JPRB, 0.787371E-02_JPRB &
+  &, 0.708704E-02_JPRB, 0.638780E-02_JPRB, 0.574182E-02_JPRB &
+  &, 0.515259E-02_JPRB, 0.462370E-02_JPRB, 0.411729E-02_JPRB, 0.367726E-02_JPRB &
+  &, 0.330737E-02_JPRB, 0.292446E-02_JPRB, 0.261673E-02_JPRB &
+  &, 0.234326E-02_JPRB, 0.206041E-02_JPRB, 0.181434E-02_JPRB, 0.160703E-02_JPRB &
+  &, 0.144051E-02_JPRB, 0.126845E-02_JPRB, 0.109078E-02_JPRB &
+  &, 0.957270E-03_JPRB, 0.870071E-03_JPRB, 0.728683E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.591202E-03_JPRB, 0.492368E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 402, :) = (/ &
+  &  0.971953E+00_JPRB, 0.964000E+00_JPRB, 0.955681E+00_JPRB, 0.947004E+00_JPRB &
+  &, 0.937971E+00_JPRB, 0.928589E+00_JPRB, 0.918867E+00_JPRB &
+  &, 0.908807E+00_JPRB, 0.898420E+00_JPRB, 0.887712E+00_JPRB, 0.876689E+00_JPRB &
+  &, 0.865358E+00_JPRB, 0.853730E+00_JPRB, 0.841811E+00_JPRB &
+  &, 0.829612E+00_JPRB, 0.817139E+00_JPRB, 0.804405E+00_JPRB, 0.791418E+00_JPRB &
+  &, 0.778188E+00_JPRB, 0.764727E+00_JPRB, 0.751045E+00_JPRB &
+  &, 0.737156E+00_JPRB, 0.723071E+00_JPRB, 0.708799E+00_JPRB, 0.694361E+00_JPRB &
+  &, 0.679765E+00_JPRB, 0.665026E+00_JPRB, 0.650158E+00_JPRB &
+  &, 0.635176E+00_JPRB, 0.620097E+00_JPRB, 0.604935E+00_JPRB, 0.589708E+00_JPRB &
+  &, 0.574433E+00_JPRB, 0.559121E+00_JPRB, 0.543797E+00_JPRB &
+  &, 0.528463E+00_JPRB, 0.513163E+00_JPRB, 0.497883E+00_JPRB, 0.482667E+00_JPRB &
+  &, 0.467511E+00_JPRB, 0.452452E+00_JPRB, 0.437491E+00_JPRB &
+  &, 0.422647E+00_JPRB, 0.407944E+00_JPRB, 0.393383E+00_JPRB, 0.378999E+00_JPRB &
+  &, 0.364807E+00_JPRB, 0.350806E+00_JPRB, 0.337024E+00_JPRB &
+  &, 0.323460E+00_JPRB, 0.310139E+00_JPRB, 0.297073E+00_JPRB, 0.284259E+00_JPRB &
+  &, 0.271735E+00_JPRB, 0.259494E+00_JPRB, 0.247545E+00_JPRB &
+  &, 0.235893E+00_JPRB, 0.224541E+00_JPRB, 0.213523E+00_JPRB, 0.202824E+00_JPRB &
+  &, 0.192443E+00_JPRB, 0.182393E+00_JPRB, 0.172684E+00_JPRB &
+  &, 0.163293E+00_JPRB, 0.154245E+00_JPRB, 0.145545E+00_JPRB, 0.137160E+00_JPRB &
+  &, 0.129131E+00_JPRB, 0.121418E+00_JPRB, 0.114019E+00_JPRB &
+  &, 0.106969E+00_JPRB, 0.100221E+00_JPRB, 0.937860E-01_JPRB, 0.876759E-01_JPRB &
+  &, 0.818549E-01_JPRB, 0.763299E-01_JPRB, 0.710826E-01_JPRB &
+  &, 0.661163E-01_JPRB, 0.614332E-01_JPRB, 0.570091E-01_JPRB, 0.528420E-01_JPRB &
+  &, 0.489027E-01_JPRB, 0.452119E-01_JPRB, 0.417364E-01_JPRB &
+  &, 0.384949E-01_JPRB, 0.354501E-01_JPRB, 0.326185E-01_JPRB, 0.299583E-01_JPRB &
+  &, 0.275136E-01_JPRB, 0.252091E-01_JPRB, 0.230564E-01_JPRB &
+  &, 0.210989E-01_JPRB, 0.192538E-01_JPRB, 0.175630E-01_JPRB, 0.160041E-01_JPRB &
+  &, 0.145524E-01_JPRB, 0.132160E-01_JPRB, 0.119677E-01_JPRB &
+  &, 0.108497E-01_JPRB, 0.983412E-02_JPRB, 0.889061E-02_JPRB, 0.802421E-02_JPRB &
+  &, 0.724005E-02_JPRB, 0.650447E-02_JPRB, 0.586041E-02_JPRB &
+  &, 0.523294E-02_JPRB, 0.470535E-02_JPRB, 0.420027E-02_JPRB, 0.376156E-02_JPRB &
+  &, 0.335019E-02_JPRB, 0.301146E-02_JPRB, 0.266092E-02_JPRB &
+  &, 0.238813E-02_JPRB, 0.210598E-02_JPRB, 0.186060E-02_JPRB, 0.165400E-02_JPRB &
+  &, 0.148819E-02_JPRB, 0.131685E-02_JPRB, 0.113990E-02_JPRB &
+  &, 0.100713E-02_JPRB, 0.870071E-03_JPRB, 0.780017E-03_JPRB, 0.687073E-03_JPRB &
+  &, 0.591202E-03_JPRB, 0.492368E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 403, :) = (/ &
+  &  0.972208E+00_JPRB, 0.964317E+00_JPRB, 0.956058E+00_JPRB, 0.947441E+00_JPRB &
+  &, 0.938467E+00_JPRB, 0.929145E+00_JPRB, 0.919479E+00_JPRB &
+  &, 0.909476E+00_JPRB, 0.899144E+00_JPRB, 0.888491E+00_JPRB, 0.877520E+00_JPRB &
+  &, 0.866243E+00_JPRB, 0.854665E+00_JPRB, 0.842797E+00_JPRB &
+  &, 0.830645E+00_JPRB, 0.818221E+00_JPRB, 0.805531E+00_JPRB, 0.792588E+00_JPRB &
+  &, 0.779401E+00_JPRB, 0.765980E+00_JPRB, 0.752339E+00_JPRB &
+  &, 0.738485E+00_JPRB, 0.724434E+00_JPRB, 0.710201E+00_JPRB, 0.695793E+00_JPRB &
+  &, 0.681227E+00_JPRB, 0.666516E+00_JPRB, 0.651677E+00_JPRB &
+  &, 0.636720E+00_JPRB, 0.621667E+00_JPRB, 0.606528E+00_JPRB, 0.591320E+00_JPRB &
+  &, 0.576060E+00_JPRB, 0.560762E+00_JPRB, 0.545448E+00_JPRB &
+  &, 0.530128E+00_JPRB, 0.514832E+00_JPRB, 0.499565E+00_JPRB, 0.484351E+00_JPRB &
+  &, 0.469197E+00_JPRB, 0.454138E+00_JPRB, 0.439176E+00_JPRB &
+  &, 0.424331E+00_JPRB, 0.409613E+00_JPRB, 0.395059E+00_JPRB, 0.380657E+00_JPRB &
+  &, 0.366456E+00_JPRB, 0.352434E+00_JPRB, 0.338628E+00_JPRB &
+  &, 0.325050E+00_JPRB, 0.311714E+00_JPRB, 0.298631E+00_JPRB, 0.285798E+00_JPRB &
+  &, 0.273238E+00_JPRB, 0.260974E+00_JPRB, 0.248999E+00_JPRB &
+  &, 0.237319E+00_JPRB, 0.225952E+00_JPRB, 0.214886E+00_JPRB, 0.204152E+00_JPRB &
+  &, 0.193750E+00_JPRB, 0.183660E+00_JPRB, 0.173909E+00_JPRB &
+  &, 0.164491E+00_JPRB, 0.155413E+00_JPRB, 0.146663E+00_JPRB, 0.138245E+00_JPRB &
+  &, 0.130180E+00_JPRB, 0.122429E+00_JPRB, 0.114989E+00_JPRB &
+  &, 0.107897E+00_JPRB, 0.101125E+00_JPRB, 0.946433E-01_JPRB, 0.884837E-01_JPRB &
+  &, 0.826335E-01_JPRB, 0.770776E-01_JPRB, 0.717978E-01_JPRB &
+  &, 0.667973E-01_JPRB, 0.620782E-01_JPRB, 0.576162E-01_JPRB, 0.534095E-01_JPRB &
+  &, 0.494550E-01_JPRB, 0.457481E-01_JPRB, 0.422556E-01_JPRB &
+  &, 0.389684E-01_JPRB, 0.359041E-01_JPRB, 0.330232E-01_JPRB, 0.303705E-01_JPRB &
+  &, 0.278735E-01_JPRB, 0.255451E-01_JPRB, 0.233985E-01_JPRB &
+  &, 0.213838E-01_JPRB, 0.195439E-01_JPRB, 0.178255E-01_JPRB, 0.162378E-01_JPRB &
+  &, 0.147563E-01_JPRB, 0.134234E-01_JPRB, 0.121787E-01_JPRB &
+  &, 0.110286E-01_JPRB, 0.997967E-02_JPRB, 0.903862E-02_JPRB, 0.813709E-02_JPRB &
+  &, 0.735482E-02_JPRB, 0.662114E-02_JPRB, 0.593947E-02_JPRB &
+  &, 0.535347E-02_JPRB, 0.478701E-02_JPRB, 0.428324E-02_JPRB, 0.384587E-02_JPRB &
+  &, 0.343584E-02_JPRB, 0.305496E-02_JPRB, 0.274928E-02_JPRB &
+  &, 0.243300E-02_JPRB, 0.215154E-02_JPRB, 0.190687E-02_JPRB, 0.170097E-02_JPRB &
+  &, 0.148819E-02_JPRB, 0.131685E-02_JPRB, 0.118903E-02_JPRB &
+  &, 0.100713E-02_JPRB, 0.920664E-03_JPRB, 0.780017E-03_JPRB, 0.687073E-03_JPRB &
+  &, 0.591202E-03_JPRB, 0.545965E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 404, :) = (/ &
+  &  0.972462E+00_JPRB, 0.964632E+00_JPRB, 0.956435E+00_JPRB, 0.947878E+00_JPRB &
+  &, 0.938964E+00_JPRB, 0.929700E+00_JPRB, 0.920091E+00_JPRB &
+  &, 0.910146E+00_JPRB, 0.899870E+00_JPRB, 0.889269E+00_JPRB, 0.878353E+00_JPRB &
+  &, 0.867127E+00_JPRB, 0.855600E+00_JPRB, 0.843782E+00_JPRB &
+  &, 0.831679E+00_JPRB, 0.819300E+00_JPRB, 0.806656E+00_JPRB, 0.793757E+00_JPRB &
+  &, 0.780614E+00_JPRB, 0.767233E+00_JPRB, 0.753632E+00_JPRB &
+  &, 0.739818E+00_JPRB, 0.725805E+00_JPRB, 0.711603E+00_JPRB, 0.697228E+00_JPRB &
+  &, 0.682693E+00_JPRB, 0.668013E+00_JPRB, 0.653199E+00_JPRB &
+  &, 0.638269E+00_JPRB, 0.623238E+00_JPRB, 0.608118E+00_JPRB, 0.592928E+00_JPRB &
+  &, 0.577687E+00_JPRB, 0.562408E+00_JPRB, 0.547109E+00_JPRB &
+  &, 0.531802E+00_JPRB, 0.516510E+00_JPRB, 0.501247E+00_JPRB, 0.486036E+00_JPRB &
+  &, 0.470893E+00_JPRB, 0.455825E+00_JPRB, 0.440862E+00_JPRB &
+  &, 0.426014E+00_JPRB, 0.411293E+00_JPRB, 0.396722E+00_JPRB, 0.382326E+00_JPRB &
+  &, 0.368106E+00_JPRB, 0.354074E+00_JPRB, 0.340257E+00_JPRB &
+  &, 0.326653E+00_JPRB, 0.313302E+00_JPRB, 0.300188E+00_JPRB, 0.287336E+00_JPRB &
+  &, 0.274755E+00_JPRB, 0.262468E+00_JPRB, 0.250453E+00_JPRB &
+  &, 0.238744E+00_JPRB, 0.227348E+00_JPRB, 0.216265E+00_JPRB, 0.205496E+00_JPRB &
+  &, 0.195057E+00_JPRB, 0.184927E+00_JPRB, 0.175152E+00_JPRB &
+  &, 0.165689E+00_JPRB, 0.156582E+00_JPRB, 0.147801E+00_JPRB, 0.139349E+00_JPRB &
+  &, 0.131229E+00_JPRB, 0.123440E+00_JPRB, 0.115981E+00_JPRB &
+  &, 0.108846E+00_JPRB, 0.102029E+00_JPRB, 0.955226E-01_JPRB, 0.893363E-01_JPRB &
+  &, 0.834350E-01_JPRB, 0.778488E-01_JPRB, 0.725369E-01_JPRB &
+  &, 0.675026E-01_JPRB, 0.627480E-01_JPRB, 0.582487E-01_JPRB, 0.540029E-01_JPRB &
+  &, 0.500336E-01_JPRB, 0.462843E-01_JPRB, 0.427475E-01_JPRB &
+  &, 0.394418E-01_JPRB, 0.363581E-01_JPRB, 0.334568E-01_JPRB, 0.307534E-01_JPRB &
+  &, 0.282335E-01_JPRB, 0.258811E-01_JPRB, 0.237095E-01_JPRB &
+  &, 0.217005E-01_JPRB, 0.198018E-01_JPRB, 0.180880E-01_JPRB, 0.164715E-01_JPRB &
+  &, 0.149941E-01_JPRB, 0.136308E-01_JPRB, 0.123897E-01_JPRB &
+  &, 0.112075E-01_JPRB, 0.101616E-01_JPRB, 0.918663E-02_JPRB, 0.828759E-02_JPRB &
+  &, 0.746958E-02_JPRB, 0.673780E-02_JPRB, 0.605806E-02_JPRB &
+  &, 0.543383E-02_JPRB, 0.490950E-02_JPRB, 0.436622E-02_JPRB, 0.393017E-02_JPRB &
+  &, 0.352148E-02_JPRB, 0.314196E-02_JPRB, 0.279346E-02_JPRB &
+  &, 0.247787E-02_JPRB, 0.219711E-02_JPRB, 0.195314E-02_JPRB, 0.174794E-02_JPRB &
+  &, 0.153588E-02_JPRB, 0.136525E-02_JPRB, 0.118903E-02_JPRB &
+  &, 0.105698E-02_JPRB, 0.920664E-03_JPRB, 0.831352E-03_JPRB, 0.687073E-03_JPRB &
+  &, 0.644038E-03_JPRB, 0.545965E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 405, :) = (/ &
+  &  0.972716E+00_JPRB, 0.964947E+00_JPRB, 0.956812E+00_JPRB, 0.948315E+00_JPRB &
+  &, 0.939460E+00_JPRB, 0.930254E+00_JPRB, 0.920704E+00_JPRB &
+  &, 0.910815E+00_JPRB, 0.900593E+00_JPRB, 0.890048E+00_JPRB, 0.879185E+00_JPRB &
+  &, 0.868012E+00_JPRB, 0.856536E+00_JPRB, 0.844767E+00_JPRB &
+  &, 0.832712E+00_JPRB, 0.820376E+00_JPRB, 0.807783E+00_JPRB, 0.794928E+00_JPRB &
+  &, 0.781826E+00_JPRB, 0.768489E+00_JPRB, 0.754926E+00_JPRB &
+  &, 0.741148E+00_JPRB, 0.727171E+00_JPRB, 0.713005E+00_JPRB, 0.698663E+00_JPRB &
+  &, 0.684159E+00_JPRB, 0.669507E+00_JPRB, 0.654722E+00_JPRB &
+  &, 0.639817E+00_JPRB, 0.624809E+00_JPRB, 0.609711E+00_JPRB, 0.594541E+00_JPRB &
+  &, 0.579318E+00_JPRB, 0.564054E+00_JPRB, 0.548764E+00_JPRB &
+  &, 0.533467E+00_JPRB, 0.518188E+00_JPRB, 0.502938E+00_JPRB, 0.487730E+00_JPRB &
+  &, 0.472589E+00_JPRB, 0.457521E+00_JPRB, 0.442558E+00_JPRB &
+  &, 0.427697E+00_JPRB, 0.412973E+00_JPRB, 0.398398E+00_JPRB, 0.383995E+00_JPRB &
+  &, 0.369755E+00_JPRB, 0.355714E+00_JPRB, 0.341873E+00_JPRB &
+  &, 0.328269E+00_JPRB, 0.314890E+00_JPRB, 0.301760E+00_JPRB, 0.288889E+00_JPRB &
+  &, 0.276272E+00_JPRB, 0.263962E+00_JPRB, 0.251921E+00_JPRB &
+  &, 0.240186E+00_JPRB, 0.228759E+00_JPRB, 0.217644E+00_JPRB, 0.206841E+00_JPRB &
+  &, 0.196364E+00_JPRB, 0.186212E+00_JPRB, 0.176394E+00_JPRB &
+  &, 0.166905E+00_JPRB, 0.157750E+00_JPRB, 0.148938E+00_JPRB, 0.140453E+00_JPRB &
+  &, 0.132298E+00_JPRB, 0.124471E+00_JPRB, 0.116972E+00_JPRB &
+  &, 0.109795E+00_JPRB, 0.102934E+00_JPRB, 0.964019E-01_JPRB, 0.901665E-01_JPRB &
+  &, 0.842365E-01_JPRB, 0.785966E-01_JPRB, 0.732522E-01_JPRB &
+  &, 0.682080E-01_JPRB, 0.634178E-01_JPRB, 0.588812E-01_JPRB, 0.546220E-01_JPRB &
+  &, 0.505859E-01_JPRB, 0.468205E-01_JPRB, 0.432666E-01_JPRB &
+  &, 0.399152E-01_JPRB, 0.368121E-01_JPRB, 0.338905E-01_JPRB, 0.311656E-01_JPRB &
+  &, 0.286234E-01_JPRB, 0.262476E-01_JPRB, 0.240516E-01_JPRB &
+  &, 0.219855E-01_JPRB, 0.200919E-01_JPRB, 0.183504E-01_JPRB, 0.167387E-01_JPRB &
+  &, 0.152320E-01_JPRB, 0.138383E-01_JPRB, 0.125656E-01_JPRB &
+  &, 0.113864E-01_JPRB, 0.103435E-01_JPRB, 0.933464E-02_JPRB, 0.843809E-02_JPRB &
+  &, 0.762260E-02_JPRB, 0.685447E-02_JPRB, 0.617665E-02_JPRB &
+  &, 0.555436E-02_JPRB, 0.499116E-02_JPRB, 0.444920E-02_JPRB, 0.401448E-02_JPRB &
+  &, 0.356430E-02_JPRB, 0.318546E-02_JPRB, 0.283764E-02_JPRB &
+  &, 0.252274E-02_JPRB, 0.224267E-02_JPRB, 0.199940E-02_JPRB, 0.179491E-02_JPRB &
+  &, 0.158356E-02_JPRB, 0.136525E-02_JPRB, 0.123815E-02_JPRB &
+  &, 0.105698E-02_JPRB, 0.971256E-03_JPRB, 0.831352E-03_JPRB, 0.739156E-03_JPRB &
+  &, 0.644038E-03_JPRB, 0.545965E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 406, :) = (/ &
+  &  0.972970E+00_JPRB, 0.965263E+00_JPRB, 0.957188E+00_JPRB, 0.948752E+00_JPRB &
+  &, 0.939956E+00_JPRB, 0.930809E+00_JPRB, 0.921316E+00_JPRB &
+  &, 0.911483E+00_JPRB, 0.901318E+00_JPRB, 0.890827E+00_JPRB, 0.880018E+00_JPRB &
+  &, 0.868896E+00_JPRB, 0.857471E+00_JPRB, 0.845752E+00_JPRB &
+  &, 0.833746E+00_JPRB, 0.821461E+00_JPRB, 0.808909E+00_JPRB, 0.796099E+00_JPRB &
+  &, 0.783041E+00_JPRB, 0.769742E+00_JPRB, 0.756220E+00_JPRB &
+  &, 0.742481E+00_JPRB, 0.728541E+00_JPRB, 0.714411E+00_JPRB, 0.700102E+00_JPRB &
+  &, 0.685628E+00_JPRB, 0.671005E+00_JPRB, 0.656248E+00_JPRB &
+  &, 0.641369E+00_JPRB, 0.626383E+00_JPRB, 0.611309E+00_JPRB, 0.596157E+00_JPRB &
+  &, 0.580950E+00_JPRB, 0.565700E+00_JPRB, 0.550429E+00_JPRB &
+  &, 0.535141E+00_JPRB, 0.519867E+00_JPRB, 0.504620E+00_JPRB, 0.489424E+00_JPRB &
+  &, 0.474285E+00_JPRB, 0.459218E+00_JPRB, 0.444254E+00_JPRB &
+  &, 0.429392E+00_JPRB, 0.414665E+00_JPRB, 0.400085E+00_JPRB, 0.385665E+00_JPRB &
+  &, 0.371417E+00_JPRB, 0.357354E+00_JPRB, 0.343502E+00_JPRB &
+  &, 0.329872E+00_JPRB, 0.316478E+00_JPRB, 0.303331E+00_JPRB, 0.290427E+00_JPRB &
+  &, 0.277804E+00_JPRB, 0.265456E+00_JPRB, 0.253390E+00_JPRB &
+  &, 0.241627E+00_JPRB, 0.230170E+00_JPRB, 0.219023E+00_JPRB, 0.208185E+00_JPRB &
+  &, 0.197672E+00_JPRB, 0.187496E+00_JPRB, 0.177637E+00_JPRB &
+  &, 0.168120E+00_JPRB, 0.158937E+00_JPRB, 0.150076E+00_JPRB, 0.141558E+00_JPRB &
+  &, 0.133367E+00_JPRB, 0.125502E+00_JPRB, 0.117963E+00_JPRB &
+  &, 0.110744E+00_JPRB, 0.103860E+00_JPRB, 0.972812E-01_JPRB, 0.910192E-01_JPRB &
+  &, 0.850609E-01_JPRB, 0.793911E-01_JPRB, 0.739913E-01_JPRB &
+  &, 0.689133E-01_JPRB, 0.640876E-01_JPRB, 0.595137E-01_JPRB, 0.552153E-01_JPRB &
+  &, 0.511646E-01_JPRB, 0.473567E-01_JPRB, 0.437585E-01_JPRB &
+  &, 0.404164E-01_JPRB, 0.372661E-01_JPRB, 0.343241E-01_JPRB, 0.315485E-01_JPRB &
+  &, 0.289833E-01_JPRB, 0.266142E-01_JPRB, 0.243626E-01_JPRB &
+  &, 0.223021E-01_JPRB, 0.203820E-01_JPRB, 0.186129E-01_JPRB, 0.169724E-01_JPRB &
+  &, 0.154698E-01_JPRB, 0.140457E-01_JPRB, 0.127766E-01_JPRB &
+  &, 0.116010E-01_JPRB, 0.104891E-01_JPRB, 0.948265E-02_JPRB, 0.858860E-02_JPRB &
+  &, 0.773736E-02_JPRB, 0.697114E-02_JPRB, 0.629524E-02_JPRB &
+  &, 0.563471E-02_JPRB, 0.507282E-02_JPRB, 0.453217E-02_JPRB, 0.405663E-02_JPRB &
+  &, 0.364995E-02_JPRB, 0.327246E-02_JPRB, 0.292601E-02_JPRB &
+  &, 0.256761E-02_JPRB, 0.228824E-02_JPRB, 0.204567E-02_JPRB, 0.179491E-02_JPRB &
+  &, 0.158356E-02_JPRB, 0.141366E-02_JPRB, 0.123815E-02_JPRB &
+  &, 0.110684E-02_JPRB, 0.971256E-03_JPRB, 0.831352E-03_JPRB, 0.739156E-03_JPRB &
+  &, 0.644038E-03_JPRB, 0.545965E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART58',1,ZHOOK_HANDLE)
+END SUBROUTINE PART58
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART59
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART59',0,ZHOOK_HANDLE)
+
+XCW( 407, :) = (/ &
+  &  0.973221E+00_JPRB, 0.965579E+00_JPRB, 0.957564E+00_JPRB, 0.949188E+00_JPRB &
+  &, 0.940452E+00_JPRB, 0.931364E+00_JPRB, 0.921928E+00_JPRB &
+  &, 0.912152E+00_JPRB, 0.902043E+00_JPRB, 0.891606E+00_JPRB, 0.880850E+00_JPRB &
+  &, 0.869781E+00_JPRB, 0.858407E+00_JPRB, 0.846737E+00_JPRB &
+  &, 0.834780E+00_JPRB, 0.822542E+00_JPRB, 0.810037E+00_JPRB, 0.797270E+00_JPRB &
+  &, 0.784255E+00_JPRB, 0.770999E+00_JPRB, 0.757517E+00_JPRB &
+  &, 0.743817E+00_JPRB, 0.729912E+00_JPRB, 0.715813E+00_JPRB, 0.701537E+00_JPRB &
+  &, 0.687098E+00_JPRB, 0.672502E+00_JPRB, 0.657775E+00_JPRB &
+  &, 0.642918E+00_JPRB, 0.627958E+00_JPRB, 0.612906E+00_JPRB, 0.597774E+00_JPRB &
+  &, 0.582585E+00_JPRB, 0.567350E+00_JPRB, 0.552089E+00_JPRB &
+  &, 0.536816E+00_JPRB, 0.521555E+00_JPRB, 0.506322E+00_JPRB, 0.491119E+00_JPRB &
+  &, 0.475981E+00_JPRB, 0.460914E+00_JPRB, 0.445950E+00_JPRB &
+  &, 0.431086E+00_JPRB, 0.416356E+00_JPRB, 0.401760E+00_JPRB, 0.387334E+00_JPRB &
+  &, 0.373079E+00_JPRB, 0.359007E+00_JPRB, 0.345144E+00_JPRB &
+  &, 0.331489E+00_JPRB, 0.318080E+00_JPRB, 0.304902E+00_JPRB, 0.291980E+00_JPRB &
+  &, 0.279336E+00_JPRB, 0.266965E+00_JPRB, 0.254874E+00_JPRB &
+  &, 0.243084E+00_JPRB, 0.231597E+00_JPRB, 0.220418E+00_JPRB, 0.209546E+00_JPRB &
+  &, 0.198996E+00_JPRB, 0.188781E+00_JPRB, 0.178897E+00_JPRB &
+  &, 0.169336E+00_JPRB, 0.160106E+00_JPRB, 0.151213E+00_JPRB, 0.142662E+00_JPRB &
+  &, 0.134435E+00_JPRB, 0.126534E+00_JPRB, 0.118954E+00_JPRB &
+  &, 0.111714E+00_JPRB, 0.104786E+00_JPRB, 0.981824E-01_JPRB, 0.918718E-01_JPRB &
+  &, 0.858625E-01_JPRB, 0.801622E-01_JPRB, 0.747542E-01_JPRB &
+  &, 0.696186E-01_JPRB, 0.647574E-01_JPRB, 0.601715E-01_JPRB, 0.558345E-01_JPRB &
+  &, 0.517432E-01_JPRB, 0.478929E-01_JPRB, 0.442777E-01_JPRB &
+  &, 0.408898E-01_JPRB, 0.377201E-01_JPRB, 0.347577E-01_JPRB, 0.319607E-01_JPRB &
+  &, 0.293732E-01_JPRB, 0.269502E-01_JPRB, 0.247047E-01_JPRB &
+  &, 0.226188E-01_JPRB, 0.206721E-01_JPRB, 0.188754E-01_JPRB, 0.172395E-01_JPRB &
+  &, 0.157077E-01_JPRB, 0.142877E-01_JPRB, 0.129876E-01_JPRB &
+  &, 0.117799E-01_JPRB, 0.106710E-01_JPRB, 0.966767E-02_JPRB, 0.873910E-02_JPRB &
+  &, 0.789038E-02_JPRB, 0.712669E-02_JPRB, 0.641383E-02_JPRB &
+  &, 0.575524E-02_JPRB, 0.515448E-02_JPRB, 0.465663E-02_JPRB, 0.414093E-02_JPRB &
+  &, 0.373560E-02_JPRB, 0.331596E-02_JPRB, 0.297019E-02_JPRB &
+  &, 0.265735E-02_JPRB, 0.233380E-02_JPRB, 0.209193E-02_JPRB, 0.184189E-02_JPRB &
+  &, 0.163125E-02_JPRB, 0.146206E-02_JPRB, 0.128728E-02_JPRB &
+  &, 0.115669E-02_JPRB, 0.102185E-02_JPRB, 0.882686E-03_JPRB, 0.791238E-03_JPRB &
+  &, 0.696875E-03_JPRB, 0.599561E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 408, :) = (/ &
+  &  0.973475E+00_JPRB, 0.965894E+00_JPRB, 0.957941E+00_JPRB, 0.949624E+00_JPRB &
+  &, 0.940948E+00_JPRB, 0.931918E+00_JPRB, 0.922540E+00_JPRB &
+  &, 0.912821E+00_JPRB, 0.902766E+00_JPRB, 0.892385E+00_JPRB, 0.881682E+00_JPRB &
+  &, 0.870666E+00_JPRB, 0.859343E+00_JPRB, 0.847723E+00_JPRB &
+  &, 0.835815E+00_JPRB, 0.823625E+00_JPRB, 0.811164E+00_JPRB, 0.798442E+00_JPRB &
+  &, 0.785469E+00_JPRB, 0.772255E+00_JPRB, 0.758811E+00_JPRB &
+  &, 0.745150E+00_JPRB, 0.731282E+00_JPRB, 0.717222E+00_JPRB, 0.702979E+00_JPRB &
+  &, 0.688568E+00_JPRB, 0.674003E+00_JPRB, 0.659301E+00_JPRB &
+  &, 0.644474E+00_JPRB, 0.629537E+00_JPRB, 0.614504E+00_JPRB, 0.599394E+00_JPRB &
+  &, 0.584221E+00_JPRB, 0.569004E+00_JPRB, 0.553758E+00_JPRB &
+  &, 0.538499E+00_JPRB, 0.523243E+00_JPRB, 0.508013E+00_JPRB, 0.492823E+00_JPRB &
+  &, 0.477687E+00_JPRB, 0.462622E+00_JPRB, 0.447657E+00_JPRB &
+  &, 0.432792E+00_JPRB, 0.418047E+00_JPRB, 0.403459E+00_JPRB, 0.389015E+00_JPRB &
+  &, 0.374740E+00_JPRB, 0.360660E+00_JPRB, 0.346786E+00_JPRB &
+  &, 0.333118E+00_JPRB, 0.319682E+00_JPRB, 0.306488E+00_JPRB, 0.293547E+00_JPRB &
+  &, 0.280868E+00_JPRB, 0.268474E+00_JPRB, 0.256358E+00_JPRB &
+  &, 0.244540E+00_JPRB, 0.233009E+00_JPRB, 0.221813E+00_JPRB, 0.210907E+00_JPRB &
+  &, 0.200337E+00_JPRB, 0.190083E+00_JPRB, 0.180157E+00_JPRB &
+  &, 0.170570E+00_JPRB, 0.161312E+00_JPRB, 0.152369E+00_JPRB, 0.143785E+00_JPRB &
+  &, 0.135504E+00_JPRB, 0.127585E+00_JPRB, 0.119966E+00_JPRB &
+  &, 0.112684E+00_JPRB, 0.105711E+00_JPRB, 0.990617E-01_JPRB, 0.927245E-01_JPRB &
+  &, 0.866869E-01_JPRB, 0.809567E-01_JPRB, 0.754933E-01_JPRB &
+  &, 0.703239E-01_JPRB, 0.654272E-01_JPRB, 0.608039E-01_JPRB, 0.564536E-01_JPRB &
+  &, 0.523218E-01_JPRB, 0.484560E-01_JPRB, 0.447969E-01_JPRB &
+  &, 0.413911E-01_JPRB, 0.381741E-01_JPRB, 0.351913E-01_JPRB, 0.323730E-01_JPRB &
+  &, 0.297631E-01_JPRB, 0.273167E-01_JPRB, 0.250469E-01_JPRB &
+  &, 0.229354E-01_JPRB, 0.209945E-01_JPRB, 0.191707E-01_JPRB, 0.174732E-01_JPRB &
+  &, 0.159455E-01_JPRB, 0.144951E-01_JPRB, 0.131635E-01_JPRB &
+  &, 0.119587E-01_JPRB, 0.108529E-01_JPRB, 0.981568E-02_JPRB, 0.888960E-02_JPRB &
+  &, 0.800514E-02_JPRB, 0.724336E-02_JPRB, 0.653241E-02_JPRB &
+  &, 0.587577E-02_JPRB, 0.527696E-02_JPRB, 0.473961E-02_JPRB, 0.422524E-02_JPRB &
+  &, 0.377842E-02_JPRB, 0.340296E-02_JPRB, 0.301437E-02_JPRB &
+  &, 0.270222E-02_JPRB, 0.242493E-02_JPRB, 0.213820E-02_JPRB, 0.188886E-02_JPRB &
+  &, 0.167893E-02_JPRB, 0.151046E-02_JPRB, 0.133641E-02_JPRB &
+  &, 0.115669E-02_JPRB, 0.102185E-02_JPRB, 0.882686E-03_JPRB, 0.791238E-03_JPRB &
+  &, 0.696875E-03_JPRB, 0.599561E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 409, :) = (/ &
+  &  0.973730E+00_JPRB, 0.966211E+00_JPRB, 0.958316E+00_JPRB, 0.950061E+00_JPRB &
+  &, 0.941444E+00_JPRB, 0.932472E+00_JPRB, 0.923152E+00_JPRB &
+  &, 0.913489E+00_JPRB, 0.903491E+00_JPRB, 0.893164E+00_JPRB, 0.882514E+00_JPRB &
+  &, 0.871550E+00_JPRB, 0.860279E+00_JPRB, 0.848709E+00_JPRB &
+  &, 0.836848E+00_JPRB, 0.824706E+00_JPRB, 0.812292E+00_JPRB, 0.799615E+00_JPRB &
+  &, 0.786685E+00_JPRB, 0.773511E+00_JPRB, 0.760108E+00_JPRB &
+  &, 0.746486E+00_JPRB, 0.732655E+00_JPRB, 0.718628E+00_JPRB, 0.704418E+00_JPRB &
+  &, 0.690041E+00_JPRB, 0.675505E+00_JPRB, 0.660832E+00_JPRB &
+  &, 0.646014E+00_JPRB, 0.631115E+00_JPRB, 0.616105E+00_JPRB, 0.601015E+00_JPRB &
+  &, 0.585860E+00_JPRB, 0.570659E+00_JPRB, 0.555427E+00_JPRB &
+  &, 0.540173E+00_JPRB, 0.524931E+00_JPRB, 0.509715E+00_JPRB, 0.494527E+00_JPRB &
+  &, 0.479393E+00_JPRB, 0.464329E+00_JPRB, 0.449364E+00_JPRB &
+  &, 0.434497E+00_JPRB, 0.419750E+00_JPRB, 0.405146E+00_JPRB, 0.390697E+00_JPRB &
+  &, 0.376415E+00_JPRB, 0.362325E+00_JPRB, 0.348427E+00_JPRB &
+  &, 0.334747E+00_JPRB, 0.321283E+00_JPRB, 0.308073E+00_JPRB, 0.295113E+00_JPRB &
+  &, 0.282414E+00_JPRB, 0.269983E+00_JPRB, 0.257842E+00_JPRB &
+  &, 0.245997E+00_JPRB, 0.234452E+00_JPRB, 0.223209E+00_JPRB, 0.212284E+00_JPRB &
+  &, 0.201678E+00_JPRB, 0.191385E+00_JPRB, 0.181435E+00_JPRB &
+  &, 0.171804E+00_JPRB, 0.162499E+00_JPRB, 0.153545E+00_JPRB, 0.144909E+00_JPRB &
+  &, 0.136593E+00_JPRB, 0.128636E+00_JPRB, 0.120978E+00_JPRB &
+  &, 0.113654E+00_JPRB, 0.106659E+00_JPRB, 0.999630E-01_JPRB, 0.935996E-01_JPRB &
+  &, 0.875113E-01_JPRB, 0.817279E-01_JPRB, 0.762562E-01_JPRB &
+  &, 0.710536E-01_JPRB, 0.661218E-01_JPRB, 0.614617E-01_JPRB, 0.570727E-01_JPRB &
+  &, 0.529267E-01_JPRB, 0.490190E-01_JPRB, 0.453434E-01_JPRB &
+  &, 0.418923E-01_JPRB, 0.386565E-01_JPRB, 0.356250E-01_JPRB, 0.327853E-01_JPRB &
+  &, 0.301530E-01_JPRB, 0.276832E-01_JPRB, 0.253890E-01_JPRB &
+  &, 0.232521E-01_JPRB, 0.212846E-01_JPRB, 0.194331E-01_JPRB, 0.177404E-01_JPRB &
+  &, 0.161833E-01_JPRB, 0.147371E-01_JPRB, 0.133745E-01_JPRB &
+  &, 0.121734E-01_JPRB, 0.110349E-01_JPRB, 0.100007E-01_JPRB, 0.904010E-02_JPRB &
+  &, 0.815816E-02_JPRB, 0.736003E-02_JPRB, 0.665100E-02_JPRB &
+  &, 0.595612E-02_JPRB, 0.535862E-02_JPRB, 0.482259E-02_JPRB, 0.430954E-02_JPRB &
+  &, 0.386407E-02_JPRB, 0.344646E-02_JPRB, 0.310274E-02_JPRB &
+  &, 0.274709E-02_JPRB, 0.247050E-02_JPRB, 0.218446E-02_JPRB, 0.193583E-02_JPRB &
+  &, 0.172661E-02_JPRB, 0.151046E-02_JPRB, 0.133641E-02_JPRB &
+  &, 0.120655E-02_JPRB, 0.102185E-02_JPRB, 0.934021E-03_JPRB, 0.791238E-03_JPRB &
+  &, 0.696875E-03_JPRB, 0.599561E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 410, :) = (/ &
+  &  0.973982E+00_JPRB, 0.966523E+00_JPRB, 0.958692E+00_JPRB, 0.950497E+00_JPRB &
+  &, 0.941939E+00_JPRB, 0.933026E+00_JPRB, 0.923763E+00_JPRB &
+  &, 0.914157E+00_JPRB, 0.904215E+00_JPRB, 0.893943E+00_JPRB, 0.883347E+00_JPRB &
+  &, 0.872435E+00_JPRB, 0.861214E+00_JPRB, 0.849694E+00_JPRB &
+  &, 0.837883E+00_JPRB, 0.825789E+00_JPRB, 0.813420E+00_JPRB, 0.800787E+00_JPRB &
+  &, 0.787901E+00_JPRB, 0.774770E+00_JPRB, 0.761405E+00_JPRB &
+  &, 0.747822E+00_JPRB, 0.734026E+00_JPRB, 0.720037E+00_JPRB, 0.705861E+00_JPRB &
+  &, 0.691514E+00_JPRB, 0.677010E+00_JPRB, 0.662362E+00_JPRB &
+  &, 0.647586E+00_JPRB, 0.632694E+00_JPRB, 0.617707E+00_JPRB, 0.602640E+00_JPRB &
+  &, 0.587487E+00_JPRB, 0.572318E+00_JPRB, 0.557097E+00_JPRB &
+  &, 0.541857E+00_JPRB, 0.526628E+00_JPRB, 0.511416E+00_JPRB, 0.496232E+00_JPRB &
+  &, 0.481099E+00_JPRB, 0.466047E+00_JPRB, 0.451071E+00_JPRB &
+  &, 0.436203E+00_JPRB, 0.421453E+00_JPRB, 0.406845E+00_JPRB, 0.392378E+00_JPRB &
+  &, 0.378089E+00_JPRB, 0.363977E+00_JPRB, 0.350069E+00_JPRB &
+  &, 0.336377E+00_JPRB, 0.322898E+00_JPRB, 0.309672E+00_JPRB, 0.296680E+00_JPRB &
+  &, 0.283960E+00_JPRB, 0.271507E+00_JPRB, 0.259341E+00_JPRB &
+  &, 0.247469E+00_JPRB, 0.235879E+00_JPRB, 0.224620E+00_JPRB, 0.213662E+00_JPRB &
+  &, 0.203019E+00_JPRB, 0.192687E+00_JPRB, 0.182696E+00_JPRB &
+  &, 0.173038E+00_JPRB, 0.163705E+00_JPRB, 0.154701E+00_JPRB, 0.146032E+00_JPRB &
+  &, 0.137701E+00_JPRB, 0.129688E+00_JPRB, 0.122010E+00_JPRB &
+  &, 0.114645E+00_JPRB, 0.107606E+00_JPRB, 0.100864E+00_JPRB, 0.944522E-01_JPRB &
+  &, 0.883586E-01_JPRB, 0.825457E-01_JPRB, 0.770192E-01_JPRB &
+  &, 0.717832E-01_JPRB, 0.668164E-01_JPRB, 0.621195E-01_JPRB, 0.576918E-01_JPRB &
+  &, 0.535053E-01_JPRB, 0.495820E-01_JPRB, 0.458626E-01_JPRB &
+  &, 0.423936E-01_JPRB, 0.391388E-01_JPRB, 0.360875E-01_JPRB, 0.332270E-01_JPRB &
+  &, 0.305429E-01_JPRB, 0.280498E-01_JPRB, 0.257311E-01_JPRB &
+  &, 0.236004E-01_JPRB, 0.215747E-01_JPRB, 0.197284E-01_JPRB, 0.180075E-01_JPRB &
+  &, 0.164212E-01_JPRB, 0.149445E-01_JPRB, 0.135855E-01_JPRB &
+  &, 0.123523E-01_JPRB, 0.112168E-01_JPRB, 0.101487E-01_JPRB, 0.919060E-02_JPRB &
+  &, 0.831117E-02_JPRB, 0.747670E-02_JPRB, 0.676959E-02_JPRB &
+  &, 0.607665E-02_JPRB, 0.548111E-02_JPRB, 0.490556E-02_JPRB, 0.439385E-02_JPRB &
+  &, 0.394971E-02_JPRB, 0.353346E-02_JPRB, 0.314692E-02_JPRB &
+  &, 0.279196E-02_JPRB, 0.251606E-02_JPRB, 0.223073E-02_JPRB, 0.198280E-02_JPRB &
+  &, 0.177430E-02_JPRB, 0.155886E-02_JPRB, 0.138553E-02_JPRB &
+  &, 0.120655E-02_JPRB, 0.107244E-02_JPRB, 0.934021E-03_JPRB, 0.843321E-03_JPRB &
+  &, 0.749711E-03_JPRB, 0.653158E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 411, :) = (/ &
+  &  0.974236E+00_JPRB, 0.966838E+00_JPRB, 0.959069E+00_JPRB, 0.950933E+00_JPRB &
+  &, 0.942434E+00_JPRB, 0.933580E+00_JPRB, 0.924375E+00_JPRB &
+  &, 0.914826E+00_JPRB, 0.904940E+00_JPRB, 0.894721E+00_JPRB, 0.884179E+00_JPRB &
+  &, 0.873320E+00_JPRB, 0.862150E+00_JPRB, 0.850681E+00_JPRB &
+  &, 0.838918E+00_JPRB, 0.826872E+00_JPRB, 0.814549E+00_JPRB, 0.801961E+00_JPRB &
+  &, 0.789118E+00_JPRB, 0.776027E+00_JPRB, 0.762705E+00_JPRB &
+  &, 0.749158E+00_JPRB, 0.735402E+00_JPRB, 0.721446E+00_JPRB, 0.707303E+00_JPRB &
+  &, 0.692987E+00_JPRB, 0.678511E+00_JPRB, 0.663892E+00_JPRB &
+  &, 0.649143E+00_JPRB, 0.634277E+00_JPRB, 0.619313E+00_JPRB, 0.604265E+00_JPRB &
+  &, 0.589144E+00_JPRB, 0.573977E+00_JPRB, 0.558775E+00_JPRB &
+  &, 0.543550E+00_JPRB, 0.528326E+00_JPRB, 0.513117E+00_JPRB, 0.497936E+00_JPRB &
+  &, 0.482816E+00_JPRB, 0.467764E+00_JPRB, 0.452789E+00_JPRB &
+  &, 0.437919E+00_JPRB, 0.423167E+00_JPRB, 0.408543E+00_JPRB, 0.394071E+00_JPRB &
+  &, 0.379775E+00_JPRB, 0.365655E+00_JPRB, 0.351724E+00_JPRB &
+  &, 0.338006E+00_JPRB, 0.324513E+00_JPRB, 0.311270E+00_JPRB, 0.298261E+00_JPRB &
+  &, 0.285507E+00_JPRB, 0.273031E+00_JPRB, 0.260840E+00_JPRB &
+  &, 0.248941E+00_JPRB, 0.237322E+00_JPRB, 0.226032E+00_JPRB, 0.215039E+00_JPRB &
+  &, 0.204360E+00_JPRB, 0.194006E+00_JPRB, 0.183991E+00_JPRB &
+  &, 0.174290E+00_JPRB, 0.164910E+00_JPRB, 0.155877E+00_JPRB, 0.147175E+00_JPRB &
+  &, 0.138790E+00_JPRB, 0.130739E+00_JPRB, 0.123022E+00_JPRB &
+  &, 0.115636E+00_JPRB, 0.108554E+00_JPRB, 0.101788E+00_JPRB, 0.953273E-01_JPRB &
+  &, 0.891830E-01_JPRB, 0.833403E-01_JPRB, 0.777821E-01_JPRB &
+  &, 0.725129E-01_JPRB, 0.675111E-01_JPRB, 0.627773E-01_JPRB, 0.583110E-01_JPRB &
+  &, 0.541102E-01_JPRB, 0.501450E-01_JPRB, 0.464091E-01_JPRB &
+  &, 0.428948E-01_JPRB, 0.396212E-01_JPRB, 0.365211E-01_JPRB, 0.336392E-01_JPRB &
+  &, 0.309328E-01_JPRB, 0.284468E-01_JPRB, 0.261043E-01_JPRB &
+  &, 0.239170E-01_JPRB, 0.218970E-01_JPRB, 0.200237E-01_JPRB, 0.182746E-01_JPRB &
+  &, 0.166590E-01_JPRB, 0.151865E-01_JPRB, 0.137965E-01_JPRB &
+  &, 0.125669E-01_JPRB, 0.113987E-01_JPRB, 0.103337E-01_JPRB, 0.934110E-02_JPRB &
+  &, 0.846419E-02_JPRB, 0.763225E-02_JPRB, 0.688818E-02_JPRB &
+  &, 0.619718E-02_JPRB, 0.556277E-02_JPRB, 0.498854E-02_JPRB, 0.447815E-02_JPRB &
+  &, 0.403536E-02_JPRB, 0.362046E-02_JPRB, 0.323528E-02_JPRB &
+  &, 0.288170E-02_JPRB, 0.256163E-02_JPRB, 0.227699E-02_JPRB, 0.202977E-02_JPRB &
+  &, 0.177430E-02_JPRB, 0.160726E-02_JPRB, 0.138553E-02_JPRB &
+  &, 0.125641E-02_JPRB, 0.112303E-02_JPRB, 0.985355E-03_JPRB, 0.843321E-03_JPRB &
+  &, 0.749711E-03_JPRB, 0.653158E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.457297E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 412, :) = (/ &
+  &  0.974489E+00_JPRB, 0.967154E+00_JPRB, 0.959444E+00_JPRB, 0.951369E+00_JPRB &
+  &, 0.942930E+00_JPRB, 0.934134E+00_JPRB, 0.924987E+00_JPRB &
+  &, 0.915495E+00_JPRB, 0.905663E+00_JPRB, 0.895500E+00_JPRB, 0.885012E+00_JPRB &
+  &, 0.874204E+00_JPRB, 0.863088E+00_JPRB, 0.851668E+00_JPRB &
+  &, 0.839953E+00_JPRB, 0.827954E+00_JPRB, 0.815677E+00_JPRB, 0.803135E+00_JPRB &
+  &, 0.790334E+00_JPRB, 0.777286E+00_JPRB, 0.764005E+00_JPRB &
+  &, 0.750497E+00_JPRB, 0.736776E+00_JPRB, 0.722855E+00_JPRB, 0.708745E+00_JPRB &
+  &, 0.694464E+00_JPRB, 0.680020E+00_JPRB, 0.665426E+00_JPRB &
+  &, 0.650703E+00_JPRB, 0.635864E+00_JPRB, 0.620919E+00_JPRB, 0.605890E+00_JPRB &
+  &, 0.590793E+00_JPRB, 0.575640E+00_JPRB, 0.560449E+00_JPRB &
+  &, 0.545233E+00_JPRB, 0.530024E+00_JPRB, 0.514819E+00_JPRB, 0.499650E+00_JPRB &
+  &, 0.484533E+00_JPRB, 0.469482E+00_JPRB, 0.454506E+00_JPRB &
+  &, 0.439636E+00_JPRB, 0.424870E+00_JPRB, 0.410242E+00_JPRB, 0.395776E+00_JPRB &
+  &, 0.381461E+00_JPRB, 0.367320E+00_JPRB, 0.353379E+00_JPRB &
+  &, 0.339648E+00_JPRB, 0.326142E+00_JPRB, 0.312869E+00_JPRB, 0.299842E+00_JPRB &
+  &, 0.287067E+00_JPRB, 0.274569E+00_JPRB, 0.262355E+00_JPRB &
+  &, 0.250414E+00_JPRB, 0.238781E+00_JPRB, 0.227443E+00_JPRB, 0.216417E+00_JPRB &
+  &, 0.205718E+00_JPRB, 0.195326E+00_JPRB, 0.185269E+00_JPRB &
+  &, 0.175542E+00_JPRB, 0.166134E+00_JPRB, 0.157052E+00_JPRB, 0.148318E+00_JPRB &
+  &, 0.139898E+00_JPRB, 0.131810E+00_JPRB, 0.124055E+00_JPRB &
+  &, 0.116627E+00_JPRB, 0.109501E+00_JPRB, 0.102711E+00_JPRB, 0.962248E-01_JPRB &
+  &, 0.900303E-01_JPRB, 0.841581E-01_JPRB, 0.785450E-01_JPRB &
+  &, 0.732425E-01_JPRB, 0.682305E-01_JPRB, 0.634604E-01_JPRB, 0.589559E-01_JPRB &
+  &, 0.547151E-01_JPRB, 0.507080E-01_JPRB, 0.469556E-01_JPRB &
+  &, 0.434239E-01_JPRB, 0.401036E-01_JPRB, 0.369836E-01_JPRB, 0.340809E-01_JPRB &
+  &, 0.313527E-01_JPRB, 0.288134E-01_JPRB, 0.264464E-01_JPRB &
+  &, 0.242337E-01_JPRB, 0.221871E-01_JPRB, 0.203190E-01_JPRB, 0.185417E-01_JPRB &
+  &, 0.169309E-01_JPRB, 0.154285E-01_JPRB, 0.140427E-01_JPRB &
+  &, 0.127458E-01_JPRB, 0.115806E-01_JPRB, 0.104817E-01_JPRB, 0.949161E-02_JPRB &
+  &, 0.857895E-02_JPRB, 0.774892E-02_JPRB, 0.700677E-02_JPRB &
+  &, 0.631771E-02_JPRB, 0.568525E-02_JPRB, 0.511300E-02_JPRB, 0.456246E-02_JPRB &
+  &, 0.412100E-02_JPRB, 0.366395E-02_JPRB, 0.327946E-02_JPRB &
+  &, 0.292657E-02_JPRB, 0.260719E-02_JPRB, 0.232326E-02_JPRB, 0.207674E-02_JPRB &
+  &, 0.182198E-02_JPRB, 0.160726E-02_JPRB, 0.143466E-02_JPRB &
+  &, 0.125641E-02_JPRB, 0.112303E-02_JPRB, 0.985355E-03_JPRB, 0.895403E-03_JPRB &
+  &, 0.749711E-03_JPRB, 0.653158E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 413, :) = (/ &
+  &  0.974741E+00_JPRB, 0.967467E+00_JPRB, 0.959819E+00_JPRB, 0.951805E+00_JPRB &
+  &, 0.943425E+00_JPRB, 0.934688E+00_JPRB, 0.925598E+00_JPRB &
+  &, 0.916163E+00_JPRB, 0.906387E+00_JPRB, 0.896279E+00_JPRB, 0.885844E+00_JPRB &
+  &, 0.875089E+00_JPRB, 0.864024E+00_JPRB, 0.852654E+00_JPRB &
+  &, 0.840989E+00_JPRB, 0.829037E+00_JPRB, 0.816807E+00_JPRB, 0.804309E+00_JPRB &
+  &, 0.791552E+00_JPRB, 0.778546E+00_JPRB, 0.765302E+00_JPRB &
+  &, 0.751834E+00_JPRB, 0.738153E+00_JPRB, 0.724267E+00_JPRB, 0.710191E+00_JPRB &
+  &, 0.695940E+00_JPRB, 0.681525E+00_JPRB, 0.666964E+00_JPRB &
+  &, 0.652267E+00_JPRB, 0.637450E+00_JPRB, 0.622528E+00_JPRB, 0.607523E+00_JPRB &
+  &, 0.592441E+00_JPRB, 0.577304E+00_JPRB, 0.562127E+00_JPRB &
+  &, 0.546926E+00_JPRB, 0.531721E+00_JPRB, 0.516530E+00_JPRB, 0.501375E+00_JPRB &
+  &, 0.486249E+00_JPRB, 0.471200E+00_JPRB, 0.456224E+00_JPRB &
+  &, 0.441352E+00_JPRB, 0.426584E+00_JPRB, 0.411952E+00_JPRB, 0.397469E+00_JPRB &
+  &, 0.383147E+00_JPRB, 0.368998E+00_JPRB, 0.355046E+00_JPRB &
+  &, 0.341304E+00_JPRB, 0.327770E+00_JPRB, 0.314482E+00_JPRB, 0.301422E+00_JPRB &
+  &, 0.288628E+00_JPRB, 0.276108E+00_JPRB, 0.263854E+00_JPRB &
+  &, 0.251901E+00_JPRB, 0.240240E+00_JPRB, 0.228871E+00_JPRB, 0.217811E+00_JPRB &
+  &, 0.207076E+00_JPRB, 0.196662E+00_JPRB, 0.186565E+00_JPRB &
+  &, 0.176794E+00_JPRB, 0.167359E+00_JPRB, 0.158246E+00_JPRB, 0.149461E+00_JPRB &
+  &, 0.141006E+00_JPRB, 0.132882E+00_JPRB, 0.125087E+00_JPRB &
+  &, 0.117618E+00_JPRB, 0.110470E+00_JPRB, 0.103634E+00_JPRB, 0.970999E-01_JPRB &
+  &, 0.908776E-01_JPRB, 0.849760E-01_JPRB, 0.793318E-01_JPRB &
+  &, 0.739965E-01_JPRB, 0.689251E-01_JPRB, 0.641434E-01_JPRB, 0.596008E-01_JPRB &
+  &, 0.553200E-01_JPRB, 0.512978E-01_JPRB, 0.475021E-01_JPRB &
+  &, 0.439252E-01_JPRB, 0.405859E-01_JPRB, 0.374462E-01_JPRB, 0.344932E-01_JPRB &
+  &, 0.317726E-01_JPRB, 0.292104E-01_JPRB, 0.268197E-01_JPRB &
+  &, 0.245820E-01_JPRB, 0.225095E-01_JPRB, 0.206143E-01_JPRB, 0.188089E-01_JPRB &
+  &, 0.171687E-01_JPRB, 0.156705E-01_JPRB, 0.142537E-01_JPRB &
+  &, 0.129604E-01_JPRB, 0.117626E-01_JPRB, 0.106667E-01_JPRB, 0.967973E-02_JPRB &
+  &, 0.873197E-02_JPRB, 0.790447E-02_JPRB, 0.712536E-02_JPRB &
+  &, 0.643824E-02_JPRB, 0.576691E-02_JPRB, 0.519598E-02_JPRB, 0.464676E-02_JPRB &
+  &, 0.416383E-02_JPRB, 0.375095E-02_JPRB, 0.336783E-02_JPRB &
+  &, 0.297144E-02_JPRB, 0.265276E-02_JPRB, 0.236952E-02_JPRB, 0.212371E-02_JPRB &
+  &, 0.186966E-02_JPRB, 0.165567E-02_JPRB, 0.148378E-02_JPRB &
+  &, 0.130626E-02_JPRB, 0.117363E-02_JPRB, 0.103669E-02_JPRB, 0.895403E-03_JPRB &
+  &, 0.802548E-03_JPRB, 0.706754E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART59',1,ZHOOK_HANDLE)
+END SUBROUTINE PART59
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART60
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART60',0,ZHOOK_HANDLE)
+
+XCW( 414, :) = (/ &
+  &  0.974995E+00_JPRB, 0.967782E+00_JPRB, 0.960195E+00_JPRB, 0.952240E+00_JPRB &
+  &, 0.943920E+00_JPRB, 0.935241E+00_JPRB, 0.926209E+00_JPRB &
+  &, 0.916831E+00_JPRB, 0.907112E+00_JPRB, 0.897058E+00_JPRB, 0.886677E+00_JPRB &
+  &, 0.875974E+00_JPRB, 0.864960E+00_JPRB, 0.853641E+00_JPRB &
+  &, 0.842024E+00_JPRB, 0.830121E+00_JPRB, 0.817936E+00_JPRB, 0.805483E+00_JPRB &
+  &, 0.792770E+00_JPRB, 0.779805E+00_JPRB, 0.766606E+00_JPRB &
+  &, 0.753173E+00_JPRB, 0.739530E+00_JPRB, 0.725680E+00_JPRB, 0.711637E+00_JPRB &
+  &, 0.697417E+00_JPRB, 0.683034E+00_JPRB, 0.668498E+00_JPRB &
+  &, 0.653831E+00_JPRB, 0.639037E+00_JPRB, 0.624142E+00_JPRB, 0.609152E+00_JPRB &
+  &, 0.594090E+00_JPRB, 0.578972E+00_JPRB, 0.563810E+00_JPRB &
+  &, 0.548619E+00_JPRB, 0.533428E+00_JPRB, 0.518251E+00_JPRB, 0.503089E+00_JPRB &
+  &, 0.487976E+00_JPRB, 0.472928E+00_JPRB, 0.457952E+00_JPRB &
+  &, 0.443069E+00_JPRB, 0.428309E+00_JPRB, 0.413674E+00_JPRB, 0.399174E+00_JPRB &
+  &, 0.384846E+00_JPRB, 0.370688E+00_JPRB, 0.356714E+00_JPRB &
+  &, 0.342947E+00_JPRB, 0.329399E+00_JPRB, 0.316095E+00_JPRB, 0.303017E+00_JPRB &
+  &, 0.290203E+00_JPRB, 0.277646E+00_JPRB, 0.265383E+00_JPRB &
+  &, 0.253389E+00_JPRB, 0.241699E+00_JPRB, 0.230299E+00_JPRB, 0.219222E+00_JPRB &
+  &, 0.208451E+00_JPRB, 0.197999E+00_JPRB, 0.187861E+00_JPRB &
+  &, 0.178065E+00_JPRB, 0.168583E+00_JPRB, 0.159440E+00_JPRB, 0.150623E+00_JPRB &
+  &, 0.142134E+00_JPRB, 0.133974E+00_JPRB, 0.126140E+00_JPRB &
+  &, 0.118631E+00_JPRB, 0.111439E+00_JPRB, 0.104557E+00_JPRB, 0.979974E-01_JPRB &
+  &, 0.917478E-01_JPRB, 0.857939E-01_JPRB, 0.801186E-01_JPRB &
+  &, 0.747505E-01_JPRB, 0.696445E-01_JPRB, 0.648265E-01_JPRB, 0.602457E-01_JPRB &
+  &, 0.559513E-01_JPRB, 0.518877E-01_JPRB, 0.480487E-01_JPRB &
+  &, 0.444543E-01_JPRB, 0.410683E-01_JPRB, 0.379087E-01_JPRB, 0.349349E-01_JPRB &
+  &, 0.321626E-01_JPRB, 0.295770E-01_JPRB, 0.271618E-01_JPRB &
+  &, 0.249303E-01_JPRB, 0.228318E-01_JPRB, 0.209096E-01_JPRB, 0.191094E-01_JPRB &
+  &, 0.174405E-01_JPRB, 0.158779E-01_JPRB, 0.144648E-01_JPRB &
+  &, 0.131751E-01_JPRB, 0.119445E-01_JPRB, 0.108517E-01_JPRB, 0.983023E-02_JPRB &
+  &, 0.888498E-02_JPRB, 0.802114E-02_JPRB, 0.724395E-02_JPRB &
+  &, 0.655877E-02_JPRB, 0.588940E-02_JPRB, 0.527895E-02_JPRB, 0.477322E-02_JPRB &
+  &, 0.424947E-02_JPRB, 0.383795E-02_JPRB, 0.341201E-02_JPRB &
+  &, 0.306119E-02_JPRB, 0.274389E-02_JPRB, 0.241579E-02_JPRB, 0.217069E-02_JPRB &
+  &, 0.191735E-02_JPRB, 0.170407E-02_JPRB, 0.153291E-02_JPRB &
+  &, 0.135612E-02_JPRB, 0.117363E-02_JPRB, 0.103669E-02_JPRB, 0.895403E-03_JPRB &
+  &, 0.802548E-03_JPRB, 0.706754E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 415, :) = (/ &
+  &  0.975247E+00_JPRB, 0.968097E+00_JPRB, 0.960570E+00_JPRB, 0.952676E+00_JPRB &
+  &, 0.944416E+00_JPRB, 0.935795E+00_JPRB, 0.926822E+00_JPRB &
+  &, 0.917499E+00_JPRB, 0.907836E+00_JPRB, 0.897837E+00_JPRB, 0.887509E+00_JPRB &
+  &, 0.876859E+00_JPRB, 0.865898E+00_JPRB, 0.854629E+00_JPRB &
+  &, 0.843061E+00_JPRB, 0.831205E+00_JPRB, 0.819067E+00_JPRB, 0.806658E+00_JPRB &
+  &, 0.793989E+00_JPRB, 0.781068E+00_JPRB, 0.767906E+00_JPRB &
+  &, 0.754516E+00_JPRB, 0.740907E+00_JPRB, 0.727092E+00_JPRB, 0.713086E+00_JPRB &
+  &, 0.698898E+00_JPRB, 0.684546E+00_JPRB, 0.670040E+00_JPRB &
+  &, 0.655395E+00_JPRB, 0.640628E+00_JPRB, 0.625752E+00_JPRB, 0.610785E+00_JPRB &
+  &, 0.595743E+00_JPRB, 0.580640E+00_JPRB, 0.565497E+00_JPRB &
+  &, 0.550321E+00_JPRB, 0.535135E+00_JPRB, 0.519962E+00_JPRB, 0.504813E+00_JPRB &
+  &, 0.489703E+00_JPRB, 0.474656E+00_JPRB, 0.459681E+00_JPRB &
+  &, 0.444796E+00_JPRB, 0.430035E+00_JPRB, 0.415385E+00_JPRB, 0.400880E+00_JPRB &
+  &, 0.386544E+00_JPRB, 0.372366E+00_JPRB, 0.358381E+00_JPRB &
+  &, 0.344602E+00_JPRB, 0.331041E+00_JPRB, 0.317707E+00_JPRB, 0.304612E+00_JPRB &
+  &, 0.291778E+00_JPRB, 0.279200E+00_JPRB, 0.266897E+00_JPRB &
+  &, 0.254892E+00_JPRB, 0.243158E+00_JPRB, 0.231743E+00_JPRB, 0.220616E+00_JPRB &
+  &, 0.209826E+00_JPRB, 0.199336E+00_JPRB, 0.189174E+00_JPRB &
+  &, 0.179335E+00_JPRB, 0.169826E+00_JPRB, 0.160635E+00_JPRB, 0.151786E+00_JPRB &
+  &, 0.143262E+00_JPRB, 0.135065E+00_JPRB, 0.127193E+00_JPRB &
+  &, 0.119643E+00_JPRB, 0.112408E+00_JPRB, 0.105503E+00_JPRB, 0.988950E-01_JPRB &
+  &, 0.926180E-01_JPRB, 0.866118E-01_JPRB, 0.809054E-01_JPRB &
+  &, 0.755045E-01_JPRB, 0.703639E-01_JPRB, 0.655096E-01_JPRB, 0.609164E-01_JPRB &
+  &, 0.565562E-01_JPRB, 0.524775E-01_JPRB, 0.485952E-01_JPRB &
+  &, 0.449834E-01_JPRB, 0.415791E-01_JPRB, 0.383712E-01_JPRB, 0.353766E-01_JPRB &
+  &, 0.325825E-01_JPRB, 0.299740E-01_JPRB, 0.275350E-01_JPRB &
+  &, 0.252786E-01_JPRB, 0.231541E-01_JPRB, 0.212049E-01_JPRB, 0.193765E-01_JPRB &
+  &, 0.176784E-01_JPRB, 0.161199E-01_JPRB, 0.147109E-01_JPRB &
+  &, 0.133540E-01_JPRB, 0.121628E-01_JPRB, 0.110368E-01_JPRB, 0.998074E-02_JPRB &
+  &, 0.903800E-02_JPRB, 0.817670E-02_JPRB, 0.740207E-02_JPRB &
+  &, 0.667930E-02_JPRB, 0.601189E-02_JPRB, 0.540341E-02_JPRB, 0.485752E-02_JPRB &
+  &, 0.433512E-02_JPRB, 0.388145E-02_JPRB, 0.350037E-02_JPRB &
+  &, 0.310606E-02_JPRB, 0.278945E-02_JPRB, 0.246205E-02_JPRB, 0.221766E-02_JPRB &
+  &, 0.196503E-02_JPRB, 0.175247E-02_JPRB, 0.153291E-02_JPRB &
+  &, 0.135612E-02_JPRB, 0.122422E-02_JPRB, 0.108802E-02_JPRB, 0.947486E-03_JPRB &
+  &, 0.802548E-03_JPRB, 0.706754E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 416, :) = (/ &
+  &  0.975499E+00_JPRB, 0.968411E+00_JPRB, 0.960946E+00_JPRB, 0.953112E+00_JPRB &
+  &, 0.944910E+00_JPRB, 0.936349E+00_JPRB, 0.927433E+00_JPRB &
+  &, 0.918167E+00_JPRB, 0.908559E+00_JPRB, 0.898615E+00_JPRB, 0.888342E+00_JPRB &
+  &, 0.877746E+00_JPRB, 0.866834E+00_JPRB, 0.855615E+00_JPRB &
+  &, 0.844097E+00_JPRB, 0.832289E+00_JPRB, 0.820198E+00_JPRB, 0.807834E+00_JPRB &
+  &, 0.795209E+00_JPRB, 0.782327E+00_JPRB, 0.769209E+00_JPRB &
+  &, 0.755855E+00_JPRB, 0.742284E+00_JPRB, 0.728508E+00_JPRB, 0.714532E+00_JPRB &
+  &, 0.700378E+00_JPRB, 0.686055E+00_JPRB, 0.671578E+00_JPRB &
+  &, 0.656963E+00_JPRB, 0.642219E+00_JPRB, 0.627370E+00_JPRB, 0.612423E+00_JPRB &
+  &, 0.597400E+00_JPRB, 0.582312E+00_JPRB, 0.567184E+00_JPRB &
+  &, 0.552023E+00_JPRB, 0.536852E+00_JPRB, 0.521683E+00_JPRB, 0.506538E+00_JPRB &
+  &, 0.491440E+00_JPRB, 0.476384E+00_JPRB, 0.461420E+00_JPRB &
+  &, 0.446535E+00_JPRB, 0.431760E+00_JPRB, 0.417107E+00_JPRB, 0.402597E+00_JPRB &
+  &, 0.388242E+00_JPRB, 0.374056E+00_JPRB, 0.360061E+00_JPRB &
+  &, 0.346271E+00_JPRB, 0.332683E+00_JPRB, 0.319334E+00_JPRB, 0.306221E+00_JPRB &
+  &, 0.293354E+00_JPRB, 0.280753E+00_JPRB, 0.268427E+00_JPRB &
+  &, 0.256380E+00_JPRB, 0.244633E+00_JPRB, 0.233187E+00_JPRB, 0.222027E+00_JPRB &
+  &, 0.211201E+00_JPRB, 0.200672E+00_JPRB, 0.190488E+00_JPRB &
+  &, 0.180605E+00_JPRB, 0.171068E+00_JPRB, 0.161848E+00_JPRB, 0.152948E+00_JPRB &
+  &, 0.144391E+00_JPRB, 0.136157E+00_JPRB, 0.128247E+00_JPRB &
+  &, 0.120655E+00_JPRB, 0.113398E+00_JPRB, 0.106448E+00_JPRB, 0.998149E-01_JPRB &
+  &, 0.934882E-01_JPRB, 0.874530E-01_JPRB, 0.817160E-01_JPRB &
+  &, 0.762584E-01_JPRB, 0.710833E-01_JPRB, 0.661927E-01_JPRB, 0.615614E-01_JPRB &
+  &, 0.571874E-01_JPRB, 0.530673E-01_JPRB, 0.491690E-01_JPRB &
+  &, 0.455125E-01_JPRB, 0.420898E-01_JPRB, 0.388627E-01_JPRB, 0.358478E-01_JPRB &
+  &, 0.330024E-01_JPRB, 0.303711E-01_JPRB, 0.279082E-01_JPRB &
+  &, 0.256269E-01_JPRB, 0.234765E-01_JPRB, 0.215001E-01_JPRB, 0.196770E-01_JPRB &
+  &, 0.179502E-01_JPRB, 0.163965E-01_JPRB, 0.149220E-01_JPRB &
+  &, 0.135686E-01_JPRB, 0.123447E-01_JPRB, 0.112218E-01_JPRB, 0.101689E-01_JPRB &
+  &, 0.919102E-02_JPRB, 0.833225E-02_JPRB, 0.752066E-02_JPRB &
+  &, 0.679983E-02_JPRB, 0.609355E-02_JPRB, 0.548639E-02_JPRB, 0.494183E-02_JPRB &
+  &, 0.442076E-02_JPRB, 0.396845E-02_JPRB, 0.354455E-02_JPRB &
+  &, 0.319580E-02_JPRB, 0.283502E-02_JPRB, 0.255458E-02_JPRB, 0.226463E-02_JPRB &
+  &, 0.201272E-02_JPRB, 0.180087E-02_JPRB, 0.158204E-02_JPRB &
+  &, 0.140598E-02_JPRB, 0.122422E-02_JPRB, 0.108802E-02_JPRB, 0.947486E-03_JPRB &
+  &, 0.855384E-03_JPRB, 0.760351E-03_JPRB, 0.662349E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.513209E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 417, :) = (/ &
+  &  0.975753E+00_JPRB, 0.968726E+00_JPRB, 0.961321E+00_JPRB, 0.953547E+00_JPRB &
+  &, 0.945405E+00_JPRB, 0.936902E+00_JPRB, 0.928044E+00_JPRB &
+  &, 0.918836E+00_JPRB, 0.909284E+00_JPRB, 0.899395E+00_JPRB, 0.889175E+00_JPRB &
+  &, 0.878631E+00_JPRB, 0.867772E+00_JPRB, 0.856603E+00_JPRB &
+  &, 0.845134E+00_JPRB, 0.833373E+00_JPRB, 0.821329E+00_JPRB, 0.809011E+00_JPRB &
+  &, 0.796428E+00_JPRB, 0.783590E+00_JPRB, 0.770509E+00_JPRB &
+  &, 0.757198E+00_JPRB, 0.743664E+00_JPRB, 0.729920E+00_JPRB, 0.715985E+00_JPRB &
+  &, 0.701862E+00_JPRB, 0.687567E+00_JPRB, 0.673120E+00_JPRB &
+  &, 0.658531E+00_JPRB, 0.643813E+00_JPRB, 0.628984E+00_JPRB, 0.614060E+00_JPRB &
+  &, 0.599057E+00_JPRB, 0.583989E+00_JPRB, 0.568872E+00_JPRB &
+  &, 0.553725E+00_JPRB, 0.538559E+00_JPRB, 0.523404E+00_JPRB, 0.508272E+00_JPRB &
+  &, 0.493167E+00_JPRB, 0.478123E+00_JPRB, 0.463149E+00_JPRB &
+  &, 0.448274E+00_JPRB, 0.433486E+00_JPRB, 0.418828E+00_JPRB, 0.404314E+00_JPRB &
+  &, 0.389953E+00_JPRB, 0.375759E+00_JPRB, 0.361742E+00_JPRB &
+  &, 0.347940E+00_JPRB, 0.334338E+00_JPRB, 0.320960E+00_JPRB, 0.307830E+00_JPRB &
+  &, 0.294943E+00_JPRB, 0.282321E+00_JPRB, 0.269971E+00_JPRB &
+  &, 0.257899E+00_JPRB, 0.246107E+00_JPRB, 0.234631E+00_JPRB, 0.223454E+00_JPRB &
+  &, 0.212593E+00_JPRB, 0.202026E+00_JPRB, 0.191801E+00_JPRB &
+  &, 0.181894E+00_JPRB, 0.172311E+00_JPRB, 0.163061E+00_JPRB, 0.154130E+00_JPRB &
+  &, 0.145519E+00_JPRB, 0.137249E+00_JPRB, 0.129320E+00_JPRB &
+  &, 0.121688E+00_JPRB, 0.114389E+00_JPRB, 0.107393E+00_JPRB, 0.100735E+00_JPRB &
+  &, 0.943584E-01_JPRB, 0.882943E-01_JPRB, 0.825266E-01_JPRB &
+  &, 0.770367E-01_JPRB, 0.718275E-01_JPRB, 0.669010E-01_JPRB, 0.622321E-01_JPRB &
+  &, 0.578186E-01_JPRB, 0.536571E-01_JPRB, 0.497428E-01_JPRB &
+  &, 0.460416E-01_JPRB, 0.425722E-01_JPRB, 0.393252E-01_JPRB, 0.362895E-01_JPRB &
+  &, 0.334223E-01_JPRB, 0.307682E-01_JPRB, 0.282814E-01_JPRB &
+  &, 0.259753E-01_JPRB, 0.237988E-01_JPRB, 0.217954E-01_JPRB, 0.199441E-01_JPRB &
+  &, 0.182220E-01_JPRB, 0.166385E-01_JPRB, 0.151681E-01_JPRB &
+  &, 0.137833E-01_JPRB, 0.125267E-01_JPRB, 0.114068E-01_JPRB, 0.103194E-01_JPRB &
+  &, 0.934404E-02_JPRB, 0.844892E-02_JPRB, 0.763925E-02_JPRB &
+  &, 0.692036E-02_JPRB, 0.621603E-02_JPRB, 0.561085E-02_JPRB, 0.502613E-02_JPRB &
+  &, 0.450641E-02_JPRB, 0.405545E-02_JPRB, 0.363292E-02_JPRB &
+  &, 0.324067E-02_JPRB, 0.288058E-02_JPRB, 0.260085E-02_JPRB, 0.231160E-02_JPRB &
+  &, 0.206040E-02_JPRB, 0.180087E-02_JPRB, 0.163116E-02_JPRB &
+  &, 0.145583E-02_JPRB, 0.127481E-02_JPRB, 0.113936E-02_JPRB, 0.999568E-03_JPRB &
+  &, 0.855384E-03_JPRB, 0.760351E-03_JPRB, 0.662349E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.513209E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 418, :) = (/ &
+  &  0.976003E+00_JPRB, 0.969041E+00_JPRB, 0.961696E+00_JPRB, 0.953982E+00_JPRB &
+  &, 0.945900E+00_JPRB, 0.937456E+00_JPRB, 0.928655E+00_JPRB &
+  &, 0.919503E+00_JPRB, 0.910008E+00_JPRB, 0.900173E+00_JPRB, 0.890008E+00_JPRB &
+  &, 0.879516E+00_JPRB, 0.868709E+00_JPRB, 0.857590E+00_JPRB &
+  &, 0.846171E+00_JPRB, 0.834457E+00_JPRB, 0.822460E+00_JPRB, 0.810188E+00_JPRB &
+  &, 0.797648E+00_JPRB, 0.784853E+00_JPRB, 0.771816E+00_JPRB &
+  &, 0.758541E+00_JPRB, 0.745044E+00_JPRB, 0.731340E+00_JPRB, 0.717434E+00_JPRB &
+  &, 0.703346E+00_JPRB, 0.689083E+00_JPRB, 0.674665E+00_JPRB &
+  &, 0.660102E+00_JPRB, 0.645408E+00_JPRB, 0.630606E+00_JPRB, 0.615702E+00_JPRB &
+  &, 0.600718E+00_JPRB, 0.585666E+00_JPRB, 0.570564E+00_JPRB &
+  &, 0.555428E+00_JPRB, 0.540276E+00_JPRB, 0.525135E+00_JPRB, 0.509997E+00_JPRB &
+  &, 0.494904E+00_JPRB, 0.479862E+00_JPRB, 0.464888E+00_JPRB &
+  &, 0.450013E+00_JPRB, 0.435223E+00_JPRB, 0.420562E+00_JPRB, 0.406043E+00_JPRB &
+  &, 0.391664E+00_JPRB, 0.377461E+00_JPRB, 0.363435E+00_JPRB &
+  &, 0.349608E+00_JPRB, 0.335993E+00_JPRB, 0.322601E+00_JPRB, 0.309439E+00_JPRB &
+  &, 0.296533E+00_JPRB, 0.283889E+00_JPRB, 0.271501E+00_JPRB &
+  &, 0.259402E+00_JPRB, 0.247598E+00_JPRB, 0.236091E+00_JPRB, 0.224881E+00_JPRB &
+  &, 0.213985E+00_JPRB, 0.203398E+00_JPRB, 0.193133E+00_JPRB &
+  &, 0.183182E+00_JPRB, 0.173573E+00_JPRB, 0.164275E+00_JPRB, 0.155311E+00_JPRB &
+  &, 0.146667E+00_JPRB, 0.138361E+00_JPRB, 0.130374E+00_JPRB &
+  &, 0.122722E+00_JPRB, 0.115379E+00_JPRB, 0.108360E+00_JPRB, 0.101655E+00_JPRB &
+  &, 0.952286E-01_JPRB, 0.891355E-01_JPRB, 0.833134E-01_JPRB &
+  &, 0.778150E-01_JPRB, 0.725718E-01_JPRB, 0.676094E-01_JPRB, 0.629028E-01_JPRB &
+  &, 0.584498E-01_JPRB, 0.542738E-01_JPRB, 0.503167E-01_JPRB &
+  &, 0.465985E-01_JPRB, 0.431113E-01_JPRB, 0.398167E-01_JPRB, 0.367312E-01_JPRB &
+  &, 0.338722E-01_JPRB, 0.311653E-01_JPRB, 0.286547E-01_JPRB &
+  &, 0.263236E-01_JPRB, 0.241534E-01_JPRB, 0.221235E-01_JPRB, 0.202447E-01_JPRB &
+  &, 0.184938E-01_JPRB, 0.168805E-01_JPRB, 0.153792E-01_JPRB &
+  &, 0.139979E-01_JPRB, 0.127450E-01_JPRB, 0.115918E-01_JPRB, 0.105075E-01_JPRB &
+  &, 0.953531E-02_JPRB, 0.860448E-02_JPRB, 0.779737E-02_JPRB &
+  &, 0.704089E-02_JPRB, 0.633852E-02_JPRB, 0.569383E-02_JPRB, 0.515259E-02_JPRB &
+  &, 0.459206E-02_JPRB, 0.414245E-02_JPRB, 0.372128E-02_JPRB &
+  &, 0.333041E-02_JPRB, 0.297171E-02_JPRB, 0.264711E-02_JPRB, 0.235857E-02_JPRB &
+  &, 0.210808E-02_JPRB, 0.184927E-02_JPRB, 0.163116E-02_JPRB &
+  &, 0.145583E-02_JPRB, 0.127481E-02_JPRB, 0.113936E-02_JPRB, 0.999568E-03_JPRB &
+  &, 0.908221E-03_JPRB, 0.760351E-03_JPRB, 0.662349E-03_JPRB &
+  &, 0.616477E-03_JPRB, 0.513209E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 419, :) = (/ &
+  &  0.976256E+00_JPRB, 0.969354E+00_JPRB, 0.962071E+00_JPRB, 0.954417E+00_JPRB &
+  &, 0.946395E+00_JPRB, 0.938009E+00_JPRB, 0.929266E+00_JPRB &
+  &, 0.920172E+00_JPRB, 0.910732E+00_JPRB, 0.900952E+00_JPRB, 0.890841E+00_JPRB &
+  &, 0.880403E+00_JPRB, 0.869645E+00_JPRB, 0.858578E+00_JPRB &
+  &, 0.847208E+00_JPRB, 0.835543E+00_JPRB, 0.823593E+00_JPRB, 0.811365E+00_JPRB &
+  &, 0.798870E+00_JPRB, 0.786118E+00_JPRB, 0.773120E+00_JPRB &
+  &, 0.759884E+00_JPRB, 0.746428E+00_JPRB, 0.732756E+00_JPRB, 0.718887E+00_JPRB &
+  &, 0.704830E+00_JPRB, 0.690600E+00_JPRB, 0.676211E+00_JPRB &
+  &, 0.661674E+00_JPRB, 0.647007E+00_JPRB, 0.632224E+00_JPRB, 0.617344E+00_JPRB &
+  &, 0.602380E+00_JPRB, 0.587347E+00_JPRB, 0.572260E+00_JPRB &
+  &, 0.557139E+00_JPRB, 0.542002E+00_JPRB, 0.526856E+00_JPRB, 0.511741E+00_JPRB &
+  &, 0.496651E+00_JPRB, 0.481611E+00_JPRB, 0.466638E+00_JPRB &
+  &, 0.451751E+00_JPRB, 0.436971E+00_JPRB, 0.422296E+00_JPRB, 0.407760E+00_JPRB &
+  &, 0.393387E+00_JPRB, 0.379164E+00_JPRB, 0.365128E+00_JPRB &
+  &, 0.351277E+00_JPRB, 0.337649E+00_JPRB, 0.324241E+00_JPRB, 0.311062E+00_JPRB &
+  &, 0.298137E+00_JPRB, 0.285458E+00_JPRB, 0.273060E+00_JPRB &
+  &, 0.260936E+00_JPRB, 0.249089E+00_JPRB, 0.237551E+00_JPRB, 0.226309E+00_JPRB &
+  &, 0.215377E+00_JPRB, 0.204752E+00_JPRB, 0.194464E+00_JPRB &
+  &, 0.184470E+00_JPRB, 0.174834E+00_JPRB, 0.165488E+00_JPRB, 0.156493E+00_JPRB &
+  &, 0.147815E+00_JPRB, 0.139473E+00_JPRB, 0.131447E+00_JPRB &
+  &, 0.123755E+00_JPRB, 0.116391E+00_JPRB, 0.109327E+00_JPRB, 0.102575E+00_JPRB &
+  &, 0.961217E-01_JPRB, 0.899768E-01_JPRB, 0.841479E-01_JPRB &
+  &, 0.785933E-01_JPRB, 0.733160E-01_JPRB, 0.683178E-01_JPRB, 0.635735E-01_JPRB &
+  &, 0.591073E-01_JPRB, 0.548636E-01_JPRB, 0.508905E-01_JPRB &
+  &, 0.471276E-01_JPRB, 0.436220E-01_JPRB, 0.403081E-01_JPRB, 0.372024E-01_JPRB &
+  &, 0.342921E-01_JPRB, 0.315929E-01_JPRB, 0.290590E-01_JPRB &
+  &, 0.266719E-01_JPRB, 0.244757E-01_JPRB, 0.224188E-01_JPRB, 0.205452E-01_JPRB &
+  &, 0.187656E-01_JPRB, 0.171225E-01_JPRB, 0.156254E-01_JPRB &
+  &, 0.142483E-01_JPRB, 0.129633E-01_JPRB, 0.117768E-01_JPRB, 0.106956E-01_JPRB &
+  &, 0.968833E-02_JPRB, 0.876003E-02_JPRB, 0.791596E-02_JPRB &
+  &, 0.716142E-02_JPRB, 0.646101E-02_JPRB, 0.581829E-02_JPRB, 0.523690E-02_JPRB &
+  &, 0.472052E-02_JPRB, 0.422945E-02_JPRB, 0.376546E-02_JPRB &
+  &, 0.337528E-02_JPRB, 0.301727E-02_JPRB, 0.269338E-02_JPRB, 0.240554E-02_JPRB &
+  &, 0.215577E-02_JPRB, 0.189768E-02_JPRB, 0.168029E-02_JPRB &
+  &, 0.150569E-02_JPRB, 0.132540E-02_JPRB, 0.119069E-02_JPRB, 0.105165E-02_JPRB &
+  &, 0.908221E-03_JPRB, 0.813947E-03_JPRB, 0.716711E-03_JPRB &
+  &, 0.616477E-03_JPRB, 0.513209E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 420, :) = (/ &
+  &  0.976508E+00_JPRB, 0.969668E+00_JPRB, 0.962446E+00_JPRB, 0.954853E+00_JPRB &
+  &, 0.946889E+00_JPRB, 0.938562E+00_JPRB, 0.929878E+00_JPRB &
+  &, 0.920840E+00_JPRB, 0.911455E+00_JPRB, 0.901732E+00_JPRB, 0.891674E+00_JPRB &
+  &, 0.881288E+00_JPRB, 0.870583E+00_JPRB, 0.859567E+00_JPRB &
+  &, 0.848246E+00_JPRB, 0.836628E+00_JPRB, 0.824725E+00_JPRB, 0.812543E+00_JPRB &
+  &, 0.800092E+00_JPRB, 0.787381E+00_JPRB, 0.774423E+00_JPRB &
+  &, 0.761230E+00_JPRB, 0.747809E+00_JPRB, 0.734175E+00_JPRB, 0.720340E+00_JPRB &
+  &, 0.706318E+00_JPRB, 0.692116E+00_JPRB, 0.677756E+00_JPRB &
+  &, 0.663246E+00_JPRB, 0.648606E+00_JPRB, 0.633851E+00_JPRB, 0.618990E+00_JPRB &
+  &, 0.604041E+00_JPRB, 0.589028E+00_JPRB, 0.573957E+00_JPRB &
+  &, 0.558850E+00_JPRB, 0.543718E+00_JPRB, 0.528596E+00_JPRB, 0.513476E+00_JPRB &
+  &, 0.498388E+00_JPRB, 0.483361E+00_JPRB, 0.468388E+00_JPRB &
+  &, 0.453501E+00_JPRB, 0.438708E+00_JPRB, 0.424041E+00_JPRB, 0.409501E+00_JPRB &
+  &, 0.395097E+00_JPRB, 0.380867E+00_JPRB, 0.366821E+00_JPRB &
+  &, 0.352959E+00_JPRB, 0.339318E+00_JPRB, 0.325881E+00_JPRB, 0.312686E+00_JPRB &
+  &, 0.299727E+00_JPRB, 0.287041E+00_JPRB, 0.274605E+00_JPRB &
+  &, 0.262455E+00_JPRB, 0.250595E+00_JPRB, 0.239011E+00_JPRB, 0.227753E+00_JPRB &
+  &, 0.216786E+00_JPRB, 0.206123E+00_JPRB, 0.195795E+00_JPRB &
+  &, 0.185777E+00_JPRB, 0.176095E+00_JPRB, 0.166720E+00_JPRB, 0.157694E+00_JPRB &
+  &, 0.148982E+00_JPRB, 0.140605E+00_JPRB, 0.132542E+00_JPRB &
+  &, 0.124809E+00_JPRB, 0.117382E+00_JPRB, 0.110295E+00_JPRB, 0.103495E+00_JPRB &
+  &, 0.970148E-01_JPRB, 0.908414E-01_JPRB, 0.849585E-01_JPRB &
+  &, 0.793716E-01_JPRB, 0.740602E-01_JPRB, 0.690262E-01_JPRB, 0.642442E-01_JPRB &
+  &, 0.597385E-01_JPRB, 0.554802E-01_JPRB, 0.514644E-01_JPRB &
+  &, 0.476846E-01_JPRB, 0.441328E-01_JPRB, 0.407995E-01_JPRB, 0.376736E-01_JPRB &
+  &, 0.347420E-01_JPRB, 0.319900E-01_JPRB, 0.294322E-01_JPRB &
+  &, 0.270519E-01_JPRB, 0.248303E-01_JPRB, 0.227469E-01_JPRB, 0.208457E-01_JPRB &
+  &, 0.190375E-01_JPRB, 0.173991E-01_JPRB, 0.158715E-01_JPRB &
+  &, 0.144630E-01_JPRB, 0.131452E-01_JPRB, 0.119618E-01_JPRB, 0.108461E-01_JPRB &
+  &, 0.984134E-02_JPRB, 0.891559E-02_JPRB, 0.807408E-02_JPRB &
+  &, 0.728195E-02_JPRB, 0.658350E-02_JPRB, 0.590127E-02_JPRB, 0.532120E-02_JPRB &
+  &, 0.480617E-02_JPRB, 0.431645E-02_JPRB, 0.385383E-02_JPRB &
+  &, 0.346502E-02_JPRB, 0.310840E-02_JPRB, 0.273964E-02_JPRB, 0.245251E-02_JPRB &
+  &, 0.220345E-02_JPRB, 0.194608E-02_JPRB, 0.172941E-02_JPRB &
+  &, 0.155555E-02_JPRB, 0.137600E-02_JPRB, 0.119069E-02_JPRB, 0.105165E-02_JPRB &
+  &, 0.908221E-03_JPRB, 0.813947E-03_JPRB, 0.716711E-03_JPRB &
+  &, 0.616477E-03_JPRB, 0.569121E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART60',1,ZHOOK_HANDLE)
+END SUBROUTINE PART60
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART61
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART61',0,ZHOOK_HANDLE)
+
+XCW( 421, :) = (/ &
+  &  0.976761E+00_JPRB, 0.969981E+00_JPRB, 0.962821E+00_JPRB, 0.955287E+00_JPRB &
+  &, 0.947384E+00_JPRB, 0.939116E+00_JPRB, 0.930488E+00_JPRB &
+  &, 0.921507E+00_JPRB, 0.912180E+00_JPRB, 0.902510E+00_JPRB, 0.892506E+00_JPRB &
+  &, 0.882175E+00_JPRB, 0.871522E+00_JPRB, 0.860555E+00_JPRB &
+  &, 0.849284E+00_JPRB, 0.837716E+00_JPRB, 0.825858E+00_JPRB, 0.813722E+00_JPRB &
+  &, 0.801314E+00_JPRB, 0.788647E+00_JPRB, 0.775730E+00_JPRB &
+  &, 0.762576E+00_JPRB, 0.749192E+00_JPRB, 0.735595E+00_JPRB, 0.721797E+00_JPRB &
+  &, 0.707806E+00_JPRB, 0.693636E+00_JPRB, 0.679306E+00_JPRB &
+  &, 0.664826E+00_JPRB, 0.650208E+00_JPRB, 0.635473E+00_JPRB, 0.620636E+00_JPRB &
+  &, 0.605711E+00_JPRB, 0.590714E+00_JPRB, 0.575657E+00_JPRB &
+  &, 0.560562E+00_JPRB, 0.545444E+00_JPRB, 0.530327E+00_JPRB, 0.515220E+00_JPRB &
+  &, 0.500136E+00_JPRB, 0.485110E+00_JPRB, 0.470139E+00_JPRB &
+  &, 0.455251E+00_JPRB, 0.440456E+00_JPRB, 0.425775E+00_JPRB, 0.411230E+00_JPRB &
+  &, 0.396832E+00_JPRB, 0.382582E+00_JPRB, 0.368527E+00_JPRB &
+  &, 0.354654E+00_JPRB, 0.340987E+00_JPRB, 0.327535E+00_JPRB, 0.314309E+00_JPRB &
+  &, 0.301345E+00_JPRB, 0.288623E+00_JPRB, 0.276165E+00_JPRB &
+  &, 0.263989E+00_JPRB, 0.252086E+00_JPRB, 0.240488E+00_JPRB, 0.229180E+00_JPRB &
+  &, 0.218195E+00_JPRB, 0.207512E+00_JPRB, 0.197144E+00_JPRB &
+  &, 0.187084E+00_JPRB, 0.177375E+00_JPRB, 0.167971E+00_JPRB, 0.158895E+00_JPRB &
+  &, 0.150150E+00_JPRB, 0.141717E+00_JPRB, 0.133636E+00_JPRB &
+  &, 0.125864E+00_JPRB, 0.118394E+00_JPRB, 0.111262E+00_JPRB, 0.104437E+00_JPRB &
+  &, 0.979308E-01_JPRB, 0.917060E-01_JPRB, 0.857930E-01_JPRB &
+  &, 0.801742E-01_JPRB, 0.748044E-01_JPRB, 0.697345E-01_JPRB, 0.649408E-01_JPRB &
+  &, 0.603960E-01_JPRB, 0.561237E-01_JPRB, 0.520655E-01_JPRB &
+  &, 0.482415E-01_JPRB, 0.446719E-01_JPRB, 0.412910E-01_JPRB, 0.381447E-01_JPRB &
+  &, 0.351918E-01_JPRB, 0.324176E-01_JPRB, 0.298365E-01_JPRB &
+  &, 0.274002E-01_JPRB, 0.251527E-01_JPRB, 0.230750E-01_JPRB, 0.211462E-01_JPRB &
+  &, 0.193433E-01_JPRB, 0.176756E-01_JPRB, 0.161177E-01_JPRB &
+  &, 0.146776E-01_JPRB, 0.133635E-01_JPRB, 0.121468E-01_JPRB, 0.110342E-01_JPRB &
+  &, 0.999436E-02_JPRB, 0.907115E-02_JPRB, 0.819267E-02_JPRB &
+  &, 0.740248E-02_JPRB, 0.670598E-02_JPRB, 0.602573E-02_JPRB, 0.544766E-02_JPRB &
+  &, 0.489182E-02_JPRB, 0.440345E-02_JPRB, 0.394219E-02_JPRB &
+  &, 0.350989E-02_JPRB, 0.315397E-02_JPRB, 0.283217E-02_JPRB, 0.249949E-02_JPRB &
+  &, 0.225113E-02_JPRB, 0.199448E-02_JPRB, 0.177854E-02_JPRB &
+  &, 0.155555E-02_JPRB, 0.137600E-02_JPRB, 0.124203E-02_JPRB, 0.110373E-02_JPRB &
+  &, 0.961057E-03_JPRB, 0.867544E-03_JPRB, 0.716711E-03_JPRB &
+  &, 0.671611E-03_JPRB, 0.569121E-03_JPRB, 0.520263E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 422, :) = (/ &
+  &  0.977014E+00_JPRB, 0.970296E+00_JPRB, 0.963195E+00_JPRB, 0.955723E+00_JPRB &
+  &, 0.947878E+00_JPRB, 0.939669E+00_JPRB, 0.931100E+00_JPRB &
+  &, 0.922176E+00_JPRB, 0.912904E+00_JPRB, 0.903289E+00_JPRB, 0.893340E+00_JPRB &
+  &, 0.883060E+00_JPRB, 0.872459E+00_JPRB, 0.861545E+00_JPRB &
+  &, 0.850323E+00_JPRB, 0.838801E+00_JPRB, 0.826992E+00_JPRB, 0.814900E+00_JPRB &
+  &, 0.802538E+00_JPRB, 0.789913E+00_JPRB, 0.777037E+00_JPRB &
+  &, 0.763922E+00_JPRB, 0.750579E+00_JPRB, 0.737018E+00_JPRB, 0.723250E+00_JPRB &
+  &, 0.709293E+00_JPRB, 0.695156E+00_JPRB, 0.680855E+00_JPRB &
+  &, 0.666402E+00_JPRB, 0.651811E+00_JPRB, 0.637103E+00_JPRB, 0.622286E+00_JPRB &
+  &, 0.607381E+00_JPRB, 0.592399E+00_JPRB, 0.577358E+00_JPRB &
+  &, 0.562283E+00_JPRB, 0.547180E+00_JPRB, 0.532068E+00_JPRB, 0.516964E+00_JPRB &
+  &, 0.501894E+00_JPRB, 0.486859E+00_JPRB, 0.471889E+00_JPRB &
+  &, 0.457001E+00_JPRB, 0.442204E+00_JPRB, 0.427531E+00_JPRB, 0.412970E+00_JPRB &
+  &, 0.398555E+00_JPRB, 0.384310E+00_JPRB, 0.370233E+00_JPRB &
+  &, 0.356336E+00_JPRB, 0.342656E+00_JPRB, 0.329189E+00_JPRB, 0.315946E+00_JPRB &
+  &, 0.302949E+00_JPRB, 0.290206E+00_JPRB, 0.277724E+00_JPRB &
+  &, 0.265523E+00_JPRB, 0.253608E+00_JPRB, 0.241964E+00_JPRB, 0.230641E+00_JPRB &
+  &, 0.219604E+00_JPRB, 0.208901E+00_JPRB, 0.198493E+00_JPRB &
+  &, 0.188408E+00_JPRB, 0.178655E+00_JPRB, 0.169203E+00_JPRB, 0.160096E+00_JPRB &
+  &, 0.151318E+00_JPRB, 0.142870E+00_JPRB, 0.134731E+00_JPRB &
+  &, 0.126918E+00_JPRB, 0.119427E+00_JPRB, 0.112251E+00_JPRB, 0.105380E+00_JPRB &
+  &, 0.988239E-01_JPRB, 0.925706E-01_JPRB, 0.866274E-01_JPRB &
+  &, 0.809525E-01_JPRB, 0.755735E-01_JPRB, 0.704682E-01_JPRB, 0.656373E-01_JPRB &
+  &, 0.610536E-01_JPRB, 0.567403E-01_JPRB, 0.526667E-01_JPRB &
+  &, 0.488263E-01_JPRB, 0.452110E-01_JPRB, 0.418113E-01_JPRB, 0.386159E-01_JPRB &
+  &, 0.356417E-01_JPRB, 0.328452E-01_JPRB, 0.302097E-01_JPRB &
+  &, 0.277802E-01_JPRB, 0.255072E-01_JPRB, 0.234031E-01_JPRB, 0.214467E-01_JPRB &
+  &, 0.196151E-01_JPRB, 0.179176E-01_JPRB, 0.163639E-01_JPRB &
+  &, 0.149281E-01_JPRB, 0.135818E-01_JPRB, 0.123689E-01_JPRB, 0.112224E-01_JPRB &
+  &, 0.101856E-01_JPRB, 0.922670E-02_JPRB, 0.835078E-02_JPRB &
+  &, 0.756318E-02_JPRB, 0.682847E-02_JPRB, 0.615020E-02_JPRB, 0.553196E-02_JPRB &
+  &, 0.497746E-02_JPRB, 0.449044E-02_JPRB, 0.403056E-02_JPRB &
+  &, 0.359963E-02_JPRB, 0.319953E-02_JPRB, 0.287844E-02_JPRB, 0.254646E-02_JPRB &
+  &, 0.229882E-02_JPRB, 0.204288E-02_JPRB, 0.182767E-02_JPRB &
+  &, 0.160540E-02_JPRB, 0.142659E-02_JPRB, 0.124203E-02_JPRB, 0.110373E-02_JPRB &
+  &, 0.961057E-03_JPRB, 0.867544E-03_JPRB, 0.771074E-03_JPRB &
+  &, 0.671611E-03_JPRB, 0.569121E-03_JPRB, 0.520263E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 423, :) = (/ &
+  &  0.977266E+00_JPRB, 0.970608E+00_JPRB, 0.963569E+00_JPRB, 0.956157E+00_JPRB &
+  &, 0.948372E+00_JPRB, 0.940222E+00_JPRB, 0.931711E+00_JPRB &
+  &, 0.922844E+00_JPRB, 0.913627E+00_JPRB, 0.904069E+00_JPRB, 0.894173E+00_JPRB &
+  &, 0.883946E+00_JPRB, 0.873398E+00_JPRB, 0.862533E+00_JPRB &
+  &, 0.851361E+00_JPRB, 0.839888E+00_JPRB, 0.828126E+00_JPRB, 0.816080E+00_JPRB &
+  &, 0.803761E+00_JPRB, 0.791178E+00_JPRB, 0.778347E+00_JPRB &
+  &, 0.765271E+00_JPRB, 0.751963E+00_JPRB, 0.738441E+00_JPRB, 0.724710E+00_JPRB &
+  &, 0.710785E+00_JPRB, 0.696679E+00_JPRB, 0.682405E+00_JPRB &
+  &, 0.667981E+00_JPRB, 0.653418E+00_JPRB, 0.638730E+00_JPRB, 0.623936E+00_JPRB &
+  &, 0.609051E+00_JPRB, 0.594089E+00_JPRB, 0.579069E+00_JPRB &
+  &, 0.564003E+00_JPRB, 0.548906E+00_JPRB, 0.533808E+00_JPRB, 0.518719E+00_JPRB &
+  &, 0.503651E+00_JPRB, 0.488619E+00_JPRB, 0.473650E+00_JPRB &
+  &, 0.458762E+00_JPRB, 0.443963E+00_JPRB, 0.429277E+00_JPRB, 0.414711E+00_JPRB &
+  &, 0.400290E+00_JPRB, 0.386038E+00_JPRB, 0.371939E+00_JPRB &
+  &, 0.358044E+00_JPRB, 0.344338E+00_JPRB, 0.330857E+00_JPRB, 0.317597E+00_JPRB &
+  &, 0.304568E+00_JPRB, 0.291804E+00_JPRB, 0.279299E+00_JPRB &
+  &, 0.267073E+00_JPRB, 0.255115E+00_JPRB, 0.243457E+00_JPRB, 0.232101E+00_JPRB &
+  &, 0.221030E+00_JPRB, 0.210290E+00_JPRB, 0.199842E+00_JPRB &
+  &, 0.189733E+00_JPRB, 0.179935E+00_JPRB, 0.170455E+00_JPRB, 0.161316E+00_JPRB &
+  &, 0.152505E+00_JPRB, 0.144002E+00_JPRB, 0.135825E+00_JPRB &
+  &, 0.127973E+00_JPRB, 0.120461E+00_JPRB, 0.113240E+00_JPRB, 0.106344E+00_JPRB &
+  &, 0.997399E-01_JPRB, 0.934586E-01_JPRB, 0.874619E-01_JPRB &
+  &, 0.817551E-01_JPRB, 0.763425E-01_JPRB, 0.712019E-01_JPRB, 0.663338E-01_JPRB &
+  &, 0.617374E-01_JPRB, 0.573569E-01_JPRB, 0.532679E-01_JPRB &
+  &, 0.493832E-01_JPRB, 0.457502E-01_JPRB, 0.423028E-01_JPRB, 0.390871E-01_JPRB &
+  &, 0.360916E-01_JPRB, 0.332728E-01_JPRB, 0.306141E-01_JPRB &
+  &, 0.281601E-01_JPRB, 0.258618E-01_JPRB, 0.237312E-01_JPRB, 0.217472E-01_JPRB &
+  &, 0.198869E-01_JPRB, 0.181942E-01_JPRB, 0.166101E-01_JPRB &
+  &, 0.151427E-01_JPRB, 0.138002E-01_JPRB, 0.125539E-01_JPRB, 0.114105E-01_JPRB &
+  &, 0.103386E-01_JPRB, 0.938226E-02_JPRB, 0.850890E-02_JPRB &
+  &, 0.768371E-02_JPRB, 0.695096E-02_JPRB, 0.627466E-02_JPRB, 0.565842E-02_JPRB &
+  &, 0.506311E-02_JPRB, 0.457744E-02_JPRB, 0.407474E-02_JPRB &
+  &, 0.368937E-02_JPRB, 0.329066E-02_JPRB, 0.292470E-02_JPRB, 0.264040E-02_JPRB &
+  &, 0.234650E-02_JPRB, 0.209128E-02_JPRB, 0.182767E-02_JPRB &
+  &, 0.165526E-02_JPRB, 0.147718E-02_JPRB, 0.129336E-02_JPRB, 0.115582E-02_JPRB &
+  &, 0.101389E-02_JPRB, 0.867544E-03_JPRB, 0.771074E-03_JPRB &
+  &, 0.671611E-03_JPRB, 0.625033E-03_JPRB, 0.520263E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 424, :) = (/ &
+  &  0.977516E+00_JPRB, 0.970923E+00_JPRB, 0.963944E+00_JPRB, 0.956591E+00_JPRB &
+  &, 0.948866E+00_JPRB, 0.940774E+00_JPRB, 0.932321E+00_JPRB &
+  &, 0.923511E+00_JPRB, 0.914352E+00_JPRB, 0.904848E+00_JPRB, 0.895006E+00_JPRB &
+  &, 0.884833E+00_JPRB, 0.874336E+00_JPRB, 0.863522E+00_JPRB &
+  &, 0.852400E+00_JPRB, 0.840975E+00_JPRB, 0.829260E+00_JPRB, 0.817260E+00_JPRB &
+  &, 0.804986E+00_JPRB, 0.792447E+00_JPRB, 0.779653E+00_JPRB &
+  &, 0.766621E+00_JPRB, 0.753350E+00_JPRB, 0.739863E+00_JPRB, 0.726166E+00_JPRB &
+  &, 0.712276E+00_JPRB, 0.698203E+00_JPRB, 0.683958E+00_JPRB &
+  &, 0.669561E+00_JPRB, 0.655025E+00_JPRB, 0.640364E+00_JPRB, 0.625590E+00_JPRB &
+  &, 0.610726E+00_JPRB, 0.595779E+00_JPRB, 0.580774E+00_JPRB &
+  &, 0.565724E+00_JPRB, 0.550642E+00_JPRB, 0.535549E+00_JPRB, 0.520463E+00_JPRB &
+  &, 0.505409E+00_JPRB, 0.490379E+00_JPRB, 0.475421E+00_JPRB &
+  &, 0.460522E+00_JPRB, 0.445723E+00_JPRB, 0.431033E+00_JPRB, 0.416464E+00_JPRB &
+  &, 0.402038E+00_JPRB, 0.387765E+00_JPRB, 0.373658E+00_JPRB &
+  &, 0.359739E+00_JPRB, 0.346020E+00_JPRB, 0.332511E+00_JPRB, 0.319235E+00_JPRB &
+  &, 0.306201E+00_JPRB, 0.293402E+00_JPRB, 0.280874E+00_JPRB &
+  &, 0.268623E+00_JPRB, 0.256637E+00_JPRB, 0.244949E+00_JPRB, 0.233562E+00_JPRB &
+  &, 0.222473E+00_JPRB, 0.211679E+00_JPRB, 0.201209E+00_JPRB &
+  &, 0.191058E+00_JPRB, 0.181233E+00_JPRB, 0.171725E+00_JPRB, 0.162537E+00_JPRB &
+  &, 0.153673E+00_JPRB, 0.145154E+00_JPRB, 0.136940E+00_JPRB &
+  &, 0.129048E+00_JPRB, 0.121494E+00_JPRB, 0.114229E+00_JPRB, 0.107309E+00_JPRB &
+  &, 0.100679E+00_JPRB, 0.943466E-01_JPRB, 0.883202E-01_JPRB &
+  &, 0.825821E-01_JPRB, 0.771115E-01_JPRB, 0.719356E-01_JPRB, 0.670303E-01_JPRB &
+  &, 0.623949E-01_JPRB, 0.580004E-01_JPRB, 0.538690E-01_JPRB &
+  &, 0.499680E-01_JPRB, 0.462893E-01_JPRB, 0.428231E-01_JPRB, 0.395877E-01_JPRB &
+  &, 0.365415E-01_JPRB, 0.337005E-01_JPRB, 0.310184E-01_JPRB &
+  &, 0.285401E-01_JPRB, 0.262164E-01_JPRB, 0.240593E-01_JPRB, 0.220477E-01_JPRB &
+  &, 0.201927E-01_JPRB, 0.184707E-01_JPRB, 0.168563E-01_JPRB &
+  &, 0.153931E-01_JPRB, 0.140185E-01_JPRB, 0.127389E-01_JPRB, 0.115986E-01_JPRB &
+  &, 0.105299E-01_JPRB, 0.953782E-02_JPRB, 0.862749E-02_JPRB &
+  &, 0.780424E-02_JPRB, 0.707345E-02_JPRB, 0.635763E-02_JPRB, 0.574273E-02_JPRB &
+  &, 0.514875E-02_JPRB, 0.466444E-02_JPRB, 0.416310E-02_JPRB &
+  &, 0.373424E-02_JPRB, 0.333623E-02_JPRB, 0.301723E-02_JPRB, 0.268737E-02_JPRB &
+  &, 0.239419E-02_JPRB, 0.213969E-02_JPRB, 0.187679E-02_JPRB &
+  &, 0.170511E-02_JPRB, 0.147718E-02_JPRB, 0.134470E-02_JPRB, 0.115582E-02_JPRB &
+  &, 0.101389E-02_JPRB, 0.921140E-03_JPRB, 0.825436E-03_JPRB &
+  &, 0.726746E-03_JPRB, 0.625033E-03_JPRB, 0.520263E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 425, :) = (/ &
+  &  0.977768E+00_JPRB, 0.971235E+00_JPRB, 0.964318E+00_JPRB, 0.957027E+00_JPRB &
+  &, 0.949361E+00_JPRB, 0.941328E+00_JPRB, 0.932932E+00_JPRB &
+  &, 0.924179E+00_JPRB, 0.915076E+00_JPRB, 0.905627E+00_JPRB, 0.895840E+00_JPRB &
+  &, 0.885719E+00_JPRB, 0.875275E+00_JPRB, 0.864512E+00_JPRB &
+  &, 0.853439E+00_JPRB, 0.842064E+00_JPRB, 0.830394E+00_JPRB, 0.818440E+00_JPRB &
+  &, 0.806211E+00_JPRB, 0.793716E+00_JPRB, 0.780963E+00_JPRB &
+  &, 0.767970E+00_JPRB, 0.754741E+00_JPRB, 0.741290E+00_JPRB, 0.727626E+00_JPRB &
+  &, 0.713771E+00_JPRB, 0.699727E+00_JPRB, 0.685515E+00_JPRB &
+  &, 0.671144E+00_JPRB, 0.656636E+00_JPRB, 0.641994E+00_JPRB, 0.627245E+00_JPRB &
+  &, 0.612400E+00_JPRB, 0.597474E+00_JPRB, 0.582484E+00_JPRB &
+  &, 0.567445E+00_JPRB, 0.552378E+00_JPRB, 0.537299E+00_JPRB, 0.522218E+00_JPRB &
+  &, 0.507167E+00_JPRB, 0.492149E+00_JPRB, 0.477182E+00_JPRB &
+  &, 0.462294E+00_JPRB, 0.447494E+00_JPRB, 0.432790E+00_JPRB, 0.418217E+00_JPRB &
+  &, 0.403785E+00_JPRB, 0.389493E+00_JPRB, 0.375377E+00_JPRB &
+  &, 0.361447E+00_JPRB, 0.347716E+00_JPRB, 0.334193E+00_JPRB, 0.320886E+00_JPRB &
+  &, 0.307834E+00_JPRB, 0.295014E+00_JPRB, 0.282464E+00_JPRB &
+  &, 0.270173E+00_JPRB, 0.258175E+00_JPRB, 0.246442E+00_JPRB, 0.235022E+00_JPRB &
+  &, 0.223898E+00_JPRB, 0.213085E+00_JPRB, 0.202576E+00_JPRB &
+  &, 0.192401E+00_JPRB, 0.182532E+00_JPRB, 0.172995E+00_JPRB, 0.163777E+00_JPRB &
+  &, 0.154880E+00_JPRB, 0.146307E+00_JPRB, 0.138055E+00_JPRB &
+  &, 0.130124E+00_JPRB, 0.122528E+00_JPRB, 0.115241E+00_JPRB, 0.108274E+00_JPRB &
+  &, 0.101595E+00_JPRB, 0.952346E-01_JPRB, 0.891785E-01_JPRB &
+  &, 0.833847E-01_JPRB, 0.779054E-01_JPRB, 0.726946E-01_JPRB, 0.677526E-01_JPRB &
+  &, 0.630787E-01_JPRB, 0.586438E-01_JPRB, 0.544702E-01_JPRB &
+  &, 0.505250E-01_JPRB, 0.468284E-01_JPRB, 0.433435E-01_JPRB, 0.400588E-01_JPRB &
+  &, 0.369914E-01_JPRB, 0.341281E-01_JPRB, 0.314227E-01_JPRB &
+  &, 0.289201E-01_JPRB, 0.265710E-01_JPRB, 0.243874E-01_JPRB, 0.223816E-01_JPRB &
+  &, 0.204985E-01_JPRB, 0.187473E-01_JPRB, 0.171376E-01_JPRB &
+  &, 0.156078E-01_JPRB, 0.142368E-01_JPRB, 0.129609E-01_JPRB, 0.117868E-01_JPRB &
+  &, 0.107212E-01_JPRB, 0.969337E-02_JPRB, 0.878561E-02_JPRB &
+  &, 0.796495E-02_JPRB, 0.719593E-02_JPRB, 0.648210E-02_JPRB, 0.586918E-02_JPRB &
+  &, 0.527722E-02_JPRB, 0.475144E-02_JPRB, 0.425147E-02_JPRB &
+  &, 0.382398E-02_JPRB, 0.342736E-02_JPRB, 0.306350E-02_JPRB, 0.273434E-02_JPRB &
+  &, 0.244187E-02_JPRB, 0.218809E-02_JPRB, 0.192592E-02_JPRB &
+  &, 0.170511E-02_JPRB, 0.152777E-02_JPRB, 0.134470E-02_JPRB, 0.120790E-02_JPRB &
+  &, 0.106673E-02_JPRB, 0.921140E-03_JPRB, 0.825436E-03_JPRB &
+  &, 0.726746E-03_JPRB, 0.625033E-03_JPRB, 0.576959E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 426, :) = (/ &
+  &  0.978022E+00_JPRB, 0.971548E+00_JPRB, 0.964692E+00_JPRB, 0.957461E+00_JPRB &
+  &, 0.949855E+00_JPRB, 0.941881E+00_JPRB, 0.933543E+00_JPRB &
+  &, 0.924848E+00_JPRB, 0.915800E+00_JPRB, 0.906407E+00_JPRB, 0.896673E+00_JPRB &
+  &, 0.886606E+00_JPRB, 0.876214E+00_JPRB, 0.865502E+00_JPRB &
+  &, 0.854479E+00_JPRB, 0.843152E+00_JPRB, 0.831529E+00_JPRB, 0.819622E+00_JPRB &
+  &, 0.807437E+00_JPRB, 0.794985E+00_JPRB, 0.782273E+00_JPRB &
+  &, 0.769319E+00_JPRB, 0.756128E+00_JPRB, 0.742716E+00_JPRB, 0.729090E+00_JPRB &
+  &, 0.715266E+00_JPRB, 0.701254E+00_JPRB, 0.687072E+00_JPRB &
+  &, 0.672732E+00_JPRB, 0.658246E+00_JPRB, 0.643633E+00_JPRB, 0.628903E+00_JPRB &
+  &, 0.614079E+00_JPRB, 0.599173E+00_JPRB, 0.584199E+00_JPRB &
+  &, 0.569175E+00_JPRB, 0.554123E+00_JPRB, 0.539049E+00_JPRB, 0.523982E+00_JPRB &
+  &, 0.508934E+00_JPRB, 0.493920E+00_JPRB, 0.478954E+00_JPRB &
+  &, 0.464066E+00_JPRB, 0.449265E+00_JPRB, 0.434559E+00_JPRB, 0.419970E+00_JPRB &
+  &, 0.405532E+00_JPRB, 0.391233E+00_JPRB, 0.377108E+00_JPRB &
+  &, 0.363156E+00_JPRB, 0.349412E+00_JPRB, 0.335874E+00_JPRB, 0.322552E+00_JPRB &
+  &, 0.309467E+00_JPRB, 0.296627E+00_JPRB, 0.284054E+00_JPRB &
+  &, 0.271738E+00_JPRB, 0.259697E+00_JPRB, 0.247951E+00_JPRB, 0.236499E+00_JPRB &
+  &, 0.225341E+00_JPRB, 0.214491E+00_JPRB, 0.203960E+00_JPRB &
+  &, 0.193743E+00_JPRB, 0.183830E+00_JPRB, 0.174265E+00_JPRB, 0.164997E+00_JPRB &
+  &, 0.156068E+00_JPRB, 0.147459E+00_JPRB, 0.139170E+00_JPRB &
+  &, 0.131220E+00_JPRB, 0.123583E+00_JPRB, 0.116252E+00_JPRB, 0.109239E+00_JPRB &
+  &, 0.102534E+00_JPRB, 0.961225E-01_JPRB, 0.900368E-01_JPRB &
+  &, 0.842116E-01_JPRB, 0.786992E-01_JPRB, 0.734535E-01_JPRB, 0.684749E-01_JPRB &
+  &, 0.637625E-01_JPRB, 0.592873E-01_JPRB, 0.550987E-01_JPRB &
+  &, 0.511098E-01_JPRB, 0.473959E-01_JPRB, 0.438638E-01_JPRB, 0.405594E-01_JPRB &
+  &, 0.374713E-01_JPRB, 0.345557E-01_JPRB, 0.318581E-01_JPRB &
+  &, 0.293001E-01_JPRB, 0.269578E-01_JPRB, 0.247483E-01_JPRB, 0.226822E-01_JPRB &
+  &, 0.208043E-01_JPRB, 0.190239E-01_JPRB, 0.173838E-01_JPRB &
+  &, 0.158582E-01_JPRB, 0.144551E-01_JPRB, 0.131829E-01_JPRB, 0.119749E-01_JPRB &
+  &, 0.108742E-01_JPRB, 0.988782E-02_JPRB, 0.894373E-02_JPRB &
+  &, 0.808548E-02_JPRB, 0.731842E-02_JPRB, 0.660656E-02_JPRB, 0.595349E-02_JPRB &
+  &, 0.536287E-02_JPRB, 0.483844E-02_JPRB, 0.433983E-02_JPRB &
+  &, 0.391372E-02_JPRB, 0.347292E-02_JPRB, 0.310976E-02_JPRB, 0.278131E-02_JPRB &
+  &, 0.248955E-02_JPRB, 0.223649E-02_JPRB, 0.197505E-02_JPRB &
+  &, 0.175497E-02_JPRB, 0.157836E-02_JPRB, 0.139603E-02_JPRB, 0.120790E-02_JPRB &
+  &, 0.106673E-02_JPRB, 0.974737E-03_JPRB, 0.825436E-03_JPRB &
+  &, 0.726746E-03_JPRB, 0.625033E-03_JPRB, 0.576959E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 427, :) = (/ &
+  &  0.978272E+00_JPRB, 0.971862E+00_JPRB, 0.965067E+00_JPRB, 0.957895E+00_JPRB &
+  &, 0.950348E+00_JPRB, 0.942434E+00_JPRB, 0.934154E+00_JPRB &
+  &, 0.925515E+00_JPRB, 0.916524E+00_JPRB, 0.907186E+00_JPRB, 0.897508E+00_JPRB &
+  &, 0.887494E+00_JPRB, 0.877153E+00_JPRB, 0.866492E+00_JPRB &
+  &, 0.855519E+00_JPRB, 0.844241E+00_JPRB, 0.832666E+00_JPRB, 0.820804E+00_JPRB &
+  &, 0.808663E+00_JPRB, 0.796254E+00_JPRB, 0.783586E+00_JPRB &
+  &, 0.770672E+00_JPRB, 0.757518E+00_JPRB, 0.744142E+00_JPRB, 0.730550E+00_JPRB &
+  &, 0.716761E+00_JPRB, 0.702781E+00_JPRB, 0.688629E+00_JPRB &
+  &, 0.674315E+00_JPRB, 0.659857E+00_JPRB, 0.645272E+00_JPRB, 0.630566E+00_JPRB &
+  &, 0.615762E+00_JPRB, 0.600872E+00_JPRB, 0.585918E+00_JPRB &
+  &, 0.570905E+00_JPRB, 0.555868E+00_JPRB, 0.540809E+00_JPRB, 0.525747E+00_JPRB &
+  &, 0.510702E+00_JPRB, 0.495690E+00_JPRB, 0.480726E+00_JPRB &
+  &, 0.465838E+00_JPRB, 0.451035E+00_JPRB, 0.436327E+00_JPRB, 0.421735E+00_JPRB &
+  &, 0.407280E+00_JPRB, 0.392974E+00_JPRB, 0.378840E+00_JPRB &
+  &, 0.364877E+00_JPRB, 0.351108E+00_JPRB, 0.337556E+00_JPRB, 0.324217E+00_JPRB &
+  &, 0.311114E+00_JPRB, 0.298254E+00_JPRB, 0.285644E+00_JPRB &
+  &, 0.273303E+00_JPRB, 0.261236E+00_JPRB, 0.249460E+00_JPRB, 0.237976E+00_JPRB &
+  &, 0.226801E+00_JPRB, 0.215914E+00_JPRB, 0.205345E+00_JPRB &
+  &, 0.195086E+00_JPRB, 0.185147E+00_JPRB, 0.175535E+00_JPRB, 0.166237E+00_JPRB &
+  &, 0.157275E+00_JPRB, 0.148632E+00_JPRB, 0.140306E+00_JPRB &
+  &, 0.132317E+00_JPRB, 0.124638E+00_JPRB, 0.117263E+00_JPRB, 0.110204E+00_JPRB &
+  &, 0.103473E+00_JPRB, 0.970339E-01_JPRB, 0.908951E-01_JPRB &
+  &, 0.850385E-01_JPRB, 0.794931E-01_JPRB, 0.742125E-01_JPRB, 0.691972E-01_JPRB &
+  &, 0.644463E-01_JPRB, 0.599575E-01_JPRB, 0.557272E-01_JPRB &
+  &, 0.517224E-01_JPRB, 0.479350E-01_JPRB, 0.443842E-01_JPRB, 0.410600E-01_JPRB &
+  &, 0.379512E-01_JPRB, 0.350139E-01_JPRB, 0.322625E-01_JPRB &
+  &, 0.297117E-01_JPRB, 0.273124E-01_JPRB, 0.250764E-01_JPRB, 0.230161E-01_JPRB &
+  &, 0.210761E-01_JPRB, 0.193004E-01_JPRB, 0.176300E-01_JPRB &
+  &, 0.161086E-01_JPRB, 0.147098E-01_JPRB, 0.133679E-01_JPRB, 0.121630E-01_JPRB &
+  &, 0.110655E-01_JPRB, 0.100434E-01_JPRB, 0.910185E-02_JPRB &
+  &, 0.824618E-02_JPRB, 0.744091E-02_JPRB, 0.673102E-02_JPRB, 0.607994E-02_JPRB &
+  &, 0.549134E-02_JPRB, 0.492544E-02_JPRB, 0.442819E-02_JPRB &
+  &, 0.395859E-02_JPRB, 0.356405E-02_JPRB, 0.320229E-02_JPRB, 0.282829E-02_JPRB &
+  &, 0.253724E-02_JPRB, 0.228489E-02_JPRB, 0.202417E-02_JPRB &
+  &, 0.180483E-02_JPRB, 0.157836E-02_JPRB, 0.139603E-02_JPRB, 0.125998E-02_JPRB &
+  &, 0.111957E-02_JPRB, 0.974737E-03_JPRB, 0.879799E-03_JPRB &
+  &, 0.781880E-03_JPRB, 0.680946E-03_JPRB, 0.576959E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART61',1,ZHOOK_HANDLE)
+END SUBROUTINE PART61
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART62
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART62',0,ZHOOK_HANDLE)
+
+XCW( 428, :) = (/ &
+  &  0.978524E+00_JPRB, 0.972175E+00_JPRB, 0.965441E+00_JPRB, 0.958330E+00_JPRB &
+  &, 0.950842E+00_JPRB, 0.942986E+00_JPRB, 0.934765E+00_JPRB &
+  &, 0.926184E+00_JPRB, 0.917248E+00_JPRB, 0.907965E+00_JPRB, 0.898341E+00_JPRB &
+  &, 0.888380E+00_JPRB, 0.878092E+00_JPRB, 0.867483E+00_JPRB &
+  &, 0.856559E+00_JPRB, 0.845329E+00_JPRB, 0.833802E+00_JPRB, 0.821987E+00_JPRB &
+  &, 0.809890E+00_JPRB, 0.797523E+00_JPRB, 0.784900E+00_JPRB &
+  &, 0.772025E+00_JPRB, 0.758909E+00_JPRB, 0.745569E+00_JPRB, 0.732014E+00_JPRB &
+  &, 0.718259E+00_JPRB, 0.704312E+00_JPRB, 0.690190E+00_JPRB &
+  &, 0.675907E+00_JPRB, 0.661476E+00_JPRB, 0.646910E+00_JPRB, 0.632229E+00_JPRB &
+  &, 0.617445E+00_JPRB, 0.602575E+00_JPRB, 0.587637E+00_JPRB &
+  &, 0.572644E+00_JPRB, 0.557613E+00_JPRB, 0.542559E+00_JPRB, 0.527511E+00_JPRB &
+  &, 0.512470E+00_JPRB, 0.497471E+00_JPRB, 0.482509E+00_JPRB &
+  &, 0.467621E+00_JPRB, 0.452806E+00_JPRB, 0.438096E+00_JPRB, 0.423511E+00_JPRB &
+  &, 0.409039E+00_JPRB, 0.394726E+00_JPRB, 0.380572E+00_JPRB &
+  &, 0.366598E+00_JPRB, 0.352817E+00_JPRB, 0.339237E+00_JPRB, 0.325883E+00_JPRB &
+  &, 0.312762E+00_JPRB, 0.299867E+00_JPRB, 0.287249E+00_JPRB &
+  &, 0.274884E+00_JPRB, 0.262790E+00_JPRB, 0.250985E+00_JPRB, 0.239470E+00_JPRB &
+  &, 0.228244E+00_JPRB, 0.217338E+00_JPRB, 0.206729E+00_JPRB &
+  &, 0.196447E+00_JPRB, 0.186464E+00_JPRB, 0.176824E+00_JPRB, 0.167496E+00_JPRB &
+  &, 0.158482E+00_JPRB, 0.149804E+00_JPRB, 0.141442E+00_JPRB &
+  &, 0.133413E+00_JPRB, 0.125693E+00_JPRB, 0.118296E+00_JPRB, 0.111191E+00_JPRB &
+  &, 0.104412E+00_JPRB, 0.979453E-01_JPRB, 0.917534E-01_JPRB &
+  &, 0.858898E-01_JPRB, 0.802869E-01_JPRB, 0.749715E-01_JPRB, 0.699195E-01_JPRB &
+  &, 0.651301E-01_JPRB, 0.606278E-01_JPRB, 0.563283E-01_JPRB &
+  &, 0.523072E-01_JPRB, 0.485025E-01_JPRB, 0.449334E-01_JPRB, 0.415607E-01_JPRB &
+  &, 0.384311E-01_JPRB, 0.354720E-01_JPRB, 0.326979E-01_JPRB &
+  &, 0.300917E-01_JPRB, 0.276992E-01_JPRB, 0.254373E-01_JPRB, 0.233500E-01_JPRB &
+  &, 0.213819E-01_JPRB, 0.195770E-01_JPRB, 0.179114E-01_JPRB &
+  &, 0.163590E-01_JPRB, 0.149281E-01_JPRB, 0.135899E-01_JPRB, 0.123888E-01_JPRB &
+  &, 0.112567E-01_JPRB, 0.101989E-01_JPRB, 0.925997E-02_JPRB &
+  &, 0.836671E-02_JPRB, 0.760423E-02_JPRB, 0.685549E-02_JPRB, 0.620640E-02_JPRB &
+  &, 0.557698E-02_JPRB, 0.501244E-02_JPRB, 0.451656E-02_JPRB &
+  &, 0.404833E-02_JPRB, 0.365518E-02_JPRB, 0.324856E-02_JPRB, 0.292223E-02_JPRB &
+  &, 0.258492E-02_JPRB, 0.233329E-02_JPRB, 0.207330E-02_JPRB &
+  &, 0.185468E-02_JPRB, 0.162896E-02_JPRB, 0.144737E-02_JPRB, 0.125998E-02_JPRB &
+  &, 0.111957E-02_JPRB, 0.102833E-02_JPRB, 0.879799E-03_JPRB &
+  &, 0.781880E-03_JPRB, 0.680946E-03_JPRB, 0.576959E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 429, :) = (/ &
+  &  0.978775E+00_JPRB, 0.972489E+00_JPRB, 0.965815E+00_JPRB, 0.958764E+00_JPRB &
+  &, 0.951337E+00_JPRB, 0.943539E+00_JPRB, 0.935376E+00_JPRB &
+  &, 0.926852E+00_JPRB, 0.917972E+00_JPRB, 0.908746E+00_JPRB, 0.899175E+00_JPRB &
+  &, 0.889268E+00_JPRB, 0.879032E+00_JPRB, 0.868473E+00_JPRB &
+  &, 0.857599E+00_JPRB, 0.846419E+00_JPRB, 0.834939E+00_JPRB, 0.823170E+00_JPRB &
+  &, 0.811118E+00_JPRB, 0.798796E+00_JPRB, 0.786213E+00_JPRB &
+  &, 0.773378E+00_JPRB, 0.760303E+00_JPRB, 0.746999E+00_JPRB, 0.733481E+00_JPRB &
+  &, 0.719758E+00_JPRB, 0.705844E+00_JPRB, 0.691750E+00_JPRB &
+  &, 0.677494E+00_JPRB, 0.663091E+00_JPRB, 0.648553E+00_JPRB, 0.633892E+00_JPRB &
+  &, 0.619132E+00_JPRB, 0.604278E+00_JPRB, 0.589356E+00_JPRB &
+  &, 0.574374E+00_JPRB, 0.559359E+00_JPRB, 0.544319E+00_JPRB, 0.529276E+00_JPRB &
+  &, 0.514249E+00_JPRB, 0.499252E+00_JPRB, 0.484291E+00_JPRB &
+  &, 0.469404E+00_JPRB, 0.454589E+00_JPRB, 0.439876E+00_JPRB, 0.425276E+00_JPRB &
+  &, 0.410811E+00_JPRB, 0.396479E+00_JPRB, 0.382316E+00_JPRB &
+  &, 0.368333E+00_JPRB, 0.354526E+00_JPRB, 0.340933E+00_JPRB, 0.327562E+00_JPRB &
+  &, 0.314409E+00_JPRB, 0.301509E+00_JPRB, 0.288854E+00_JPRB &
+  &, 0.276465E+00_JPRB, 0.264344E+00_JPRB, 0.252510E+00_JPRB, 0.240964E+00_JPRB &
+  &, 0.229721E+00_JPRB, 0.218761E+00_JPRB, 0.208132E+00_JPRB &
+  &, 0.197808E+00_JPRB, 0.187800E+00_JPRB, 0.178113E+00_JPRB, 0.168755E+00_JPRB &
+  &, 0.159709E+00_JPRB, 0.150977E+00_JPRB, 0.142598E+00_JPRB &
+  &, 0.134510E+00_JPRB, 0.126748E+00_JPRB, 0.119307E+00_JPRB, 0.112201E+00_JPRB &
+  &, 0.105373E+00_JPRB, 0.988566E-01_JPRB, 0.926356E-01_JPRB &
+  &, 0.867167E-01_JPRB, 0.810807E-01_JPRB, 0.757305E-01_JPRB, 0.706419E-01_JPRB &
+  &, 0.658403E-01_JPRB, 0.612712E-01_JPRB, 0.569842E-01_JPRB &
+  &, 0.529198E-01_JPRB, 0.490700E-01_JPRB, 0.454827E-01_JPRB, 0.420907E-01_JPRB &
+  &, 0.389110E-01_JPRB, 0.358997E-01_JPRB, 0.331333E-01_JPRB &
+  &, 0.305034E-01_JPRB, 0.280537E-01_JPRB, 0.257982E-01_JPRB, 0.236839E-01_JPRB &
+  &, 0.217217E-01_JPRB, 0.198881E-01_JPRB, 0.181927E-01_JPRB &
+  &, 0.166095E-01_JPRB, 0.151464E-01_JPRB, 0.138120E-01_JPRB, 0.125769E-01_JPRB &
+  &, 0.114480E-01_JPRB, 0.103934E-01_JPRB, 0.941809E-02_JPRB &
+  &, 0.852742E-02_JPRB, 0.772671E-02_JPRB, 0.697995E-02_JPRB, 0.629071E-02_JPRB &
+  &, 0.566263E-02_JPRB, 0.509944E-02_JPRB, 0.460492E-02_JPRB &
+  &, 0.413807E-02_JPRB, 0.370075E-02_JPRB, 0.334109E-02_JPRB, 0.296920E-02_JPRB &
+  &, 0.268029E-02_JPRB, 0.238170E-02_JPRB, 0.212242E-02_JPRB &
+  &, 0.190454E-02_JPRB, 0.167955E-02_JPRB, 0.149870E-02_JPRB, 0.131206E-02_JPRB &
+  &, 0.117240E-02_JPRB, 0.102833E-02_JPRB, 0.934161E-03_JPRB &
+  &, 0.781880E-03_JPRB, 0.680946E-03_JPRB, 0.633655E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 430, :) = (/ &
+  &  0.979028E+00_JPRB, 0.972800E+00_JPRB, 0.966189E+00_JPRB, 0.959199E+00_JPRB &
+  &, 0.951831E+00_JPRB, 0.944092E+00_JPRB, 0.935986E+00_JPRB &
+  &, 0.927519E+00_JPRB, 0.918697E+00_JPRB, 0.909525E+00_JPRB, 0.900009E+00_JPRB &
+  &, 0.890155E+00_JPRB, 0.879972E+00_JPRB, 0.869464E+00_JPRB &
+  &, 0.858636E+00_JPRB, 0.847509E+00_JPRB, 0.836077E+00_JPRB, 0.824353E+00_JPRB &
+  &, 0.812346E+00_JPRB, 0.800068E+00_JPRB, 0.787526E+00_JPRB &
+  &, 0.774731E+00_JPRB, 0.761697E+00_JPRB, 0.748432E+00_JPRB, 0.734948E+00_JPRB &
+  &, 0.721257E+00_JPRB, 0.707375E+00_JPRB, 0.693315E+00_JPRB &
+  &, 0.679090E+00_JPRB, 0.664710E+00_JPRB, 0.650196E+00_JPRB, 0.635559E+00_JPRB &
+  &, 0.620819E+00_JPRB, 0.605986E+00_JPRB, 0.591084E+00_JPRB &
+  &, 0.576114E+00_JPRB, 0.561113E+00_JPRB, 0.546089E+00_JPRB, 0.531050E+00_JPRB &
+  &, 0.516027E+00_JPRB, 0.501033E+00_JPRB, 0.486084E+00_JPRB &
+  &, 0.471187E+00_JPRB, 0.456371E+00_JPRB, 0.441656E+00_JPRB, 0.427053E+00_JPRB &
+  &, 0.412570E+00_JPRB, 0.398244E+00_JPRB, 0.384060E+00_JPRB &
+  &, 0.370067E+00_JPRB, 0.356249E+00_JPRB, 0.342628E+00_JPRB, 0.329242E+00_JPRB &
+  &, 0.316071E+00_JPRB, 0.303136E+00_JPRB, 0.290459E+00_JPRB &
+  &, 0.278045E+00_JPRB, 0.265898E+00_JPRB, 0.254035E+00_JPRB, 0.242458E+00_JPRB &
+  &, 0.231181E+00_JPRB, 0.220202E+00_JPRB, 0.209534E+00_JPRB &
+  &, 0.199169E+00_JPRB, 0.189135E+00_JPRB, 0.179421E+00_JPRB, 0.170014E+00_JPRB &
+  &, 0.160936E+00_JPRB, 0.152170E+00_JPRB, 0.143734E+00_JPRB &
+  &, 0.135628E+00_JPRB, 0.127825E+00_JPRB, 0.120362E+00_JPRB, 0.113188E+00_JPRB &
+  &, 0.106335E+00_JPRB, 0.997913E-01_JPRB, 0.935177E-01_JPRB &
+  &, 0.875680E-01_JPRB, 0.818994E-01_JPRB, 0.765147E-01_JPRB, 0.713900E-01_JPRB &
+  &, 0.665504E-01_JPRB, 0.619415E-01_JPRB, 0.576127E-01_JPRB &
+  &, 0.535046E-01_JPRB, 0.496659E-01_JPRB, 0.460030E-01_JPRB, 0.425913E-01_JPRB &
+  &, 0.393909E-01_JPRB, 0.363578E-01_JPRB, 0.335376E-01_JPRB &
+  &, 0.309150E-01_JPRB, 0.284405E-01_JPRB, 0.261591E-01_JPRB, 0.240178E-01_JPRB &
+  &, 0.220275E-01_JPRB, 0.201647E-01_JPRB, 0.184389E-01_JPRB &
+  &, 0.168599E-01_JPRB, 0.154011E-01_JPRB, 0.140340E-01_JPRB, 0.127650E-01_JPRB &
+  &, 0.116393E-01_JPRB, 0.105489E-01_JPRB, 0.957621E-02_JPRB &
+  &, 0.868812E-02_JPRB, 0.784920E-02_JPRB, 0.710441E-02_JPRB, 0.641716E-02_JPRB &
+  &, 0.579110E-02_JPRB, 0.522994E-02_JPRB, 0.469328E-02_JPRB &
+  &, 0.422782E-02_JPRB, 0.379188E-02_JPRB, 0.338735E-02_JPRB, 0.301617E-02_JPRB &
+  &, 0.272797E-02_JPRB, 0.243010E-02_JPRB, 0.217155E-02_JPRB &
+  &, 0.190454E-02_JPRB, 0.173014E-02_JPRB, 0.149870E-02_JPRB, 0.136415E-02_JPRB &
+  &, 0.117240E-02_JPRB, 0.102833E-02_JPRB, 0.934161E-03_JPRB &
+  &, 0.837014E-03_JPRB, 0.736858E-03_JPRB, 0.633655E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 431, :) = (/ &
+  &  0.979278E+00_JPRB, 0.973115E+00_JPRB, 0.966563E+00_JPRB, 0.959633E+00_JPRB &
+  &, 0.952324E+00_JPRB, 0.944644E+00_JPRB, 0.936597E+00_JPRB &
+  &, 0.928187E+00_JPRB, 0.919422E+00_JPRB, 0.910305E+00_JPRB, 0.900844E+00_JPRB &
+  &, 0.891043E+00_JPRB, 0.880911E+00_JPRB, 0.870455E+00_JPRB &
+  &, 0.859682E+00_JPRB, 0.848599E+00_JPRB, 0.837214E+00_JPRB, 0.825537E+00_JPRB &
+  &, 0.813576E+00_JPRB, 0.801340E+00_JPRB, 0.788839E+00_JPRB &
+  &, 0.776087E+00_JPRB, 0.763091E+00_JPRB, 0.749862E+00_JPRB, 0.736415E+00_JPRB &
+  &, 0.722759E+00_JPRB, 0.708909E+00_JPRB, 0.694880E+00_JPRB &
+  &, 0.680681E+00_JPRB, 0.666332E+00_JPRB, 0.651842E+00_JPRB, 0.637230E+00_JPRB &
+  &, 0.622511E+00_JPRB, 0.607698E+00_JPRB, 0.592808E+00_JPRB &
+  &, 0.577862E+00_JPRB, 0.562868E+00_JPRB, 0.547849E+00_JPRB, 0.532825E+00_JPRB &
+  &, 0.517815E+00_JPRB, 0.502824E+00_JPRB, 0.487867E+00_JPRB &
+  &, 0.472981E+00_JPRB, 0.458164E+00_JPRB, 0.443448E+00_JPRB, 0.428829E+00_JPRB &
+  &, 0.414342E+00_JPRB, 0.399997E+00_JPRB, 0.385818E+00_JPRB &
+  &, 0.371802E+00_JPRB, 0.357972E+00_JPRB, 0.344337E+00_JPRB, 0.330921E+00_JPRB &
+  &, 0.317733E+00_JPRB, 0.304778E+00_JPRB, 0.292079E+00_JPRB &
+  &, 0.279641E+00_JPRB, 0.267468E+00_JPRB, 0.255576E+00_JPRB, 0.243968E+00_JPRB &
+  &, 0.232658E+00_JPRB, 0.221643E+00_JPRB, 0.210954E+00_JPRB &
+  &, 0.200548E+00_JPRB, 0.190471E+00_JPRB, 0.180710E+00_JPRB, 0.171273E+00_JPRB &
+  &, 0.162163E+00_JPRB, 0.153363E+00_JPRB, 0.144891E+00_JPRB &
+  &, 0.136745E+00_JPRB, 0.128923E+00_JPRB, 0.121396E+00_JPRB, 0.114198E+00_JPRB &
+  &, 0.107297E+00_JPRB, 0.100703E+00_JPRB, 0.944237E-01_JPRB &
+  &, 0.884193E-01_JPRB, 0.827180E-01_JPRB, 0.772990E-01_JPRB, 0.721381E-01_JPRB &
+  &, 0.672605E-01_JPRB, 0.626385E-01_JPRB, 0.582685E-01_JPRB &
+  &, 0.541173E-01_JPRB, 0.502334E-01_JPRB, 0.465523E-01_JPRB, 0.431214E-01_JPRB &
+  &, 0.398708E-01_JPRB, 0.368465E-01_JPRB, 0.340042E-01_JPRB &
+  &, 0.313266E-01_JPRB, 0.288274E-01_JPRB, 0.265200E-01_JPRB, 0.243517E-01_JPRB &
+  &, 0.223333E-01_JPRB, 0.204758E-01_JPRB, 0.187203E-01_JPRB &
+  &, 0.171103E-01_JPRB, 0.156194E-01_JPRB, 0.142560E-01_JPRB, 0.129908E-01_JPRB &
+  &, 0.118306E-01_JPRB, 0.107434E-01_JPRB, 0.973433E-02_JPRB &
+  &, 0.884883E-02_JPRB, 0.801252E-02_JPRB, 0.722888E-02_JPRB, 0.654362E-02_JPRB &
+  &, 0.587674E-02_JPRB, 0.531693E-02_JPRB, 0.478165E-02_JPRB &
+  &, 0.431756E-02_JPRB, 0.383744E-02_JPRB, 0.347988E-02_JPRB, 0.311011E-02_JPRB &
+  &, 0.277566E-02_JPRB, 0.247850E-02_JPRB, 0.222068E-02_JPRB &
+  &, 0.195440E-02_JPRB, 0.173014E-02_JPRB, 0.155003E-02_JPRB, 0.136415E-02_JPRB &
+  &, 0.122524E-02_JPRB, 0.108193E-02_JPRB, 0.934161E-03_JPRB &
+  &, 0.837014E-03_JPRB, 0.736858E-03_JPRB, 0.633655E-03_JPRB, 0.584857E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 432, :) = (/ &
+  &  0.979529E+00_JPRB, 0.973426E+00_JPRB, 0.966937E+00_JPRB, 0.960067E+00_JPRB &
+  &, 0.952818E+00_JPRB, 0.945197E+00_JPRB, 0.937207E+00_JPRB &
+  &, 0.928855E+00_JPRB, 0.920146E+00_JPRB, 0.911085E+00_JPRB, 0.901678E+00_JPRB &
+  &, 0.891931E+00_JPRB, 0.881852E+00_JPRB, 0.871447E+00_JPRB &
+  &, 0.860724E+00_JPRB, 0.849690E+00_JPRB, 0.838353E+00_JPRB, 0.826722E+00_JPRB &
+  &, 0.814806E+00_JPRB, 0.802412E+00_JPRB, 0.790156E+00_JPRB &
+  &, 0.777443E+00_JPRB, 0.764488E+00_JPRB, 0.751295E+00_JPRB, 0.737886E+00_JPRB &
+  &, 0.724265E+00_JPRB, 0.710448E+00_JPRB, 0.696448E+00_JPRB &
+  &, 0.682280E+00_JPRB, 0.667955E+00_JPRB, 0.653489E+00_JPRB, 0.638901E+00_JPRB &
+  &, 0.624203E+00_JPRB, 0.609410E+00_JPRB, 0.594541E+00_JPRB &
+  &, 0.579602E+00_JPRB, 0.564632E+00_JPRB, 0.549619E+00_JPRB, 0.534609E+00_JPRB &
+  &, 0.519594E+00_JPRB, 0.504616E+00_JPRB, 0.489660E+00_JPRB &
+  &, 0.474775E+00_JPRB, 0.459958E+00_JPRB, 0.445240E+00_JPRB, 0.430618E+00_JPRB &
+  &, 0.416126E+00_JPRB, 0.401775E+00_JPRB, 0.387575E+00_JPRB &
+  &, 0.373536E+00_JPRB, 0.359694E+00_JPRB, 0.346046E+00_JPRB, 0.332615E+00_JPRB &
+  &, 0.319409E+00_JPRB, 0.306435E+00_JPRB, 0.293700E+00_JPRB &
+  &, 0.281238E+00_JPRB, 0.269038E+00_JPRB, 0.257118E+00_JPRB, 0.245478E+00_JPRB &
+  &, 0.234135E+00_JPRB, 0.223101E+00_JPRB, 0.212356E+00_JPRB &
+  &, 0.201946E+00_JPRB, 0.191825E+00_JPRB, 0.182038E+00_JPRB, 0.172552E+00_JPRB &
+  &, 0.163410E+00_JPRB, 0.154576E+00_JPRB, 0.146068E+00_JPRB &
+  &, 0.137863E+00_JPRB, 0.130000E+00_JPRB, 0.122451E+00_JPRB, 0.115208E+00_JPRB &
+  &, 0.108282E+00_JPRB, 0.101637E+00_JPRB, 0.953297E-01_JPRB &
+  &, 0.892948E-01_JPRB, 0.835367E-01_JPRB, 0.780833E-01_JPRB, 0.728862E-01_JPRB &
+  &, 0.679706E-01_JPRB, 0.633088E-01_JPRB, 0.588970E-01_JPRB &
+  &, 0.547578E-01_JPRB, 0.508292E-01_JPRB, 0.471304E-01_JPRB, 0.436514E-01_JPRB &
+  &, 0.403806E-01_JPRB, 0.373047E-01_JPRB, 0.344396E-01_JPRB &
+  &, 0.317383E-01_JPRB, 0.292142E-01_JPRB, 0.268809E-01_JPRB, 0.246856E-01_JPRB &
+  &, 0.226731E-01_JPRB, 0.207524E-01_JPRB, 0.190016E-01_JPRB &
+  &, 0.173965E-01_JPRB, 0.158741E-01_JPRB, 0.144780E-01_JPRB, 0.131789E-01_JPRB &
+  &, 0.120218E-01_JPRB, 0.108989E-01_JPRB, 0.993198E-02_JPRB &
+  &, 0.900954E-02_JPRB, 0.813500E-02_JPRB, 0.735334E-02_JPRB, 0.667008E-02_JPRB &
+  &, 0.600521E-02_JPRB, 0.540393E-02_JPRB, 0.487001E-02_JPRB &
+  &, 0.436243E-02_JPRB, 0.392857E-02_JPRB, 0.352615E-02_JPRB, 0.315709E-02_JPRB &
+  &, 0.282334E-02_JPRB, 0.252690E-02_JPRB, 0.226980E-02_JPRB &
+  &, 0.200425E-02_JPRB, 0.178073E-02_JPRB, 0.160137E-02_JPRB, 0.141623E-02_JPRB &
+  &, 0.122524E-02_JPRB, 0.108193E-02_JPRB, 0.988523E-03_JPRB &
+  &, 0.837014E-03_JPRB, 0.736858E-03_JPRB, 0.690351E-03_JPRB, 0.584857E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 433, :) = (/ &
+  &  0.979780E+00_JPRB, 0.973740E+00_JPRB, 0.967310E+00_JPRB, 0.960501E+00_JPRB &
+  &, 0.953312E+00_JPRB, 0.945749E+00_JPRB, 0.937818E+00_JPRB &
+  &, 0.929524E+00_JPRB, 0.920870E+00_JPRB, 0.911865E+00_JPRB, 0.902513E+00_JPRB &
+  &, 0.892820E+00_JPRB, 0.882793E+00_JPRB, 0.872440E+00_JPRB &
+  &, 0.861766E+00_JPRB, 0.850780E+00_JPRB, 0.839492E+00_JPRB, 0.827908E+00_JPRB &
+  &, 0.816037E+00_JPRB, 0.803887E+00_JPRB, 0.791472E+00_JPRB &
+  &, 0.778802E+00_JPRB, 0.765882E+00_JPRB, 0.752732E+00_JPRB, 0.739356E+00_JPRB &
+  &, 0.725767E+00_JPRB, 0.711983E+00_JPRB, 0.698017E+00_JPRB &
+  &, 0.683876E+00_JPRB, 0.669578E+00_JPRB, 0.655140E+00_JPRB, 0.640577E+00_JPRB &
+  &, 0.625899E+00_JPRB, 0.611127E+00_JPRB, 0.596273E+00_JPRB &
+  &, 0.581350E+00_JPRB, 0.566387E+00_JPRB, 0.551399E+00_JPRB, 0.536394E+00_JPRB &
+  &, 0.521392E+00_JPRB, 0.506407E+00_JPRB, 0.491464E+00_JPRB &
+  &, 0.476580E+00_JPRB, 0.461763E+00_JPRB, 0.447031E+00_JPRB, 0.432406E+00_JPRB &
+  &, 0.417910E+00_JPRB, 0.403540E+00_JPRB, 0.389332E+00_JPRB &
+  &, 0.375297E+00_JPRB, 0.361430E+00_JPRB, 0.347769E+00_JPRB, 0.334309E+00_JPRB &
+  &, 0.321085E+00_JPRB, 0.308092E+00_JPRB, 0.295335E+00_JPRB &
+  &, 0.282849E+00_JPRB, 0.270623E+00_JPRB, 0.258675E+00_JPRB, 0.247005E+00_JPRB &
+  &, 0.235628E+00_JPRB, 0.224560E+00_JPRB, 0.213794E+00_JPRB &
+  &, 0.203325E+00_JPRB, 0.193179E+00_JPRB, 0.183346E+00_JPRB, 0.173830E+00_JPRB &
+  &, 0.164657E+00_JPRB, 0.155789E+00_JPRB, 0.147224E+00_JPRB &
+  &, 0.139002E+00_JPRB, 0.131098E+00_JPRB, 0.123506E+00_JPRB, 0.116217E+00_JPRB &
+  &, 0.109243E+00_JPRB, 0.102595E+00_JPRB, 0.962357E-01_JPRB &
+  &, 0.901461E-01_JPRB, 0.843801E-01_JPRB, 0.788676E-01_JPRB, 0.736601E-01_JPRB &
+  &, 0.687070E-01_JPRB, 0.640059E-01_JPRB, 0.595528E-01_JPRB &
+  &, 0.553704E-01_JPRB, 0.514251E-01_JPRB, 0.476797E-01_JPRB, 0.441815E-01_JPRB &
+  &, 0.408605E-01_JPRB, 0.377629E-01_JPRB, 0.348750E-01_JPRB &
+  &, 0.321499E-01_JPRB, 0.296332E-01_JPRB, 0.272418E-01_JPRB, 0.250529E-01_JPRB &
+  &, 0.229789E-01_JPRB, 0.210635E-01_JPRB, 0.192830E-01_JPRB &
+  &, 0.176469E-01_JPRB, 0.161288E-01_JPRB, 0.147000E-01_JPRB, 0.134046E-01_JPRB &
+  &, 0.122131E-01_JPRB, 0.110934E-01_JPRB, 0.100901E-01_JPRB &
+  &, 0.913007E-02_JPRB, 0.829832E-02_JPRB, 0.751929E-02_JPRB, 0.679654E-02_JPRB &
+  &, 0.613368E-02_JPRB, 0.553443E-02_JPRB, 0.495838E-02_JPRB &
+  &, 0.445217E-02_JPRB, 0.401970E-02_JPRB, 0.361868E-02_JPRB, 0.325103E-02_JPRB &
+  &, 0.287102E-02_JPRB, 0.257530E-02_JPRB, 0.231893E-02_JPRB &
+  &, 0.205411E-02_JPRB, 0.183133E-02_JPRB, 0.165270E-02_JPRB, 0.146831E-02_JPRB &
+  &, 0.127808E-02_JPRB, 0.113553E-02_JPRB, 0.988523E-03_JPRB &
+  &, 0.892149E-03_JPRB, 0.792770E-03_JPRB, 0.690351E-03_JPRB, 0.584857E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 434, :) = (/ &
+  &  0.980033E+00_JPRB, 0.974052E+00_JPRB, 0.967684E+00_JPRB, 0.960934E+00_JPRB &
+  &, 0.953806E+00_JPRB, 0.946302E+00_JPRB, 0.938429E+00_JPRB &
+  &, 0.930192E+00_JPRB, 0.921595E+00_JPRB, 0.912645E+00_JPRB, 0.903347E+00_JPRB &
+  &, 0.893708E+00_JPRB, 0.883734E+00_JPRB, 0.873432E+00_JPRB &
+  &, 0.862809E+00_JPRB, 0.851872E+00_JPRB, 0.840631E+00_JPRB, 0.829094E+00_JPRB &
+  &, 0.817268E+00_JPRB, 0.805163E+00_JPRB, 0.792792E+00_JPRB &
+  &, 0.780161E+00_JPRB, 0.767283E+00_JPRB, 0.754165E+00_JPRB, 0.740827E+00_JPRB &
+  &, 0.727276E+00_JPRB, 0.713525E+00_JPRB, 0.699585E+00_JPRB &
+  &, 0.685475E+00_JPRB, 0.671209E+00_JPRB, 0.656795E+00_JPRB, 0.642252E+00_JPRB &
+  &, 0.627599E+00_JPRB, 0.612843E+00_JPRB, 0.598010E+00_JPRB &
+  &, 0.583108E+00_JPRB, 0.568151E+00_JPRB, 0.553178E+00_JPRB, 0.538178E+00_JPRB &
+  &, 0.523181E+00_JPRB, 0.508209E+00_JPRB, 0.493269E+00_JPRB &
+  &, 0.478374E+00_JPRB, 0.463556E+00_JPRB, 0.448835E+00_JPRB, 0.434207E+00_JPRB &
+  &, 0.419694E+00_JPRB, 0.405318E+00_JPRB, 0.391102E+00_JPRB &
+  &, 0.377044E+00_JPRB, 0.363167E+00_JPRB, 0.349492E+00_JPRB, 0.336017E+00_JPRB &
+  &, 0.322762E+00_JPRB, 0.309749E+00_JPRB, 0.296971E+00_JPRB &
+  &, 0.284461E+00_JPRB, 0.272209E+00_JPRB, 0.260217E+00_JPRB, 0.248532E+00_JPRB &
+  &, 0.237122E+00_JPRB, 0.226018E+00_JPRB, 0.215214E+00_JPRB &
+  &, 0.204722E+00_JPRB, 0.194533E+00_JPRB, 0.184673E+00_JPRB, 0.175128E+00_JPRB &
+  &, 0.165904E+00_JPRB, 0.157002E+00_JPRB, 0.148401E+00_JPRB &
+  &, 0.140141E+00_JPRB, 0.132196E+00_JPRB, 0.124561E+00_JPRB, 0.117249E+00_JPRB &
+  &, 0.110251E+00_JPRB, 0.103530E+00_JPRB, 0.971417E-01_JPRB &
+  &, 0.910217E-01_JPRB, 0.852236E-01_JPRB, 0.796771E-01_JPRB, 0.744082E-01_JPRB &
+  &, 0.694171E-01_JPRB, 0.647029E-01_JPRB, 0.602359E-01_JPRB &
+  &, 0.560109E-01_JPRB, 0.520210E-01_JPRB, 0.482579E-01_JPRB, 0.447116E-01_JPRB &
+  &, 0.413704E-01_JPRB, 0.382516E-01_JPRB, 0.353415E-01_JPRB &
+  &, 0.325932E-01_JPRB, 0.300200E-01_JPRB, 0.276355E-01_JPRB, 0.253868E-01_JPRB &
+  &, 0.233186E-01_JPRB, 0.213747E-01_JPRB, 0.195995E-01_JPRB &
+  &, 0.179331E-01_JPRB, 0.163835E-01_JPRB, 0.149590E-01_JPRB, 0.136304E-01_JPRB &
+  &, 0.124044E-01_JPRB, 0.112878E-01_JPRB, 0.102482E-01_JPRB &
+  &, 0.929077E-02_JPRB, 0.842081E-02_JPRB, 0.764376E-02_JPRB, 0.692299E-02_JPRB &
+  &, 0.621933E-02_JPRB, 0.562143E-02_JPRB, 0.504674E-02_JPRB &
+  &, 0.454191E-02_JPRB, 0.411083E-02_JPRB, 0.366494E-02_JPRB, 0.329800E-02_JPRB &
+  &, 0.296639E-02_JPRB, 0.262371E-02_JPRB, 0.236805E-02_JPRB &
+  &, 0.210396E-02_JPRB, 0.188192E-02_JPRB, 0.165270E-02_JPRB, 0.146831E-02_JPRB &
+  &, 0.133091E-02_JPRB, 0.113553E-02_JPRB, 0.104289E-02_JPRB &
+  &, 0.892149E-03_JPRB, 0.792770E-03_JPRB, 0.690351E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART62',1,ZHOOK_HANDLE)
+END SUBROUTINE PART62
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART63
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART63',0,ZHOOK_HANDLE)
+
+XCW( 435, :) = (/ &
+  &  0.980284E+00_JPRB, 0.974366E+00_JPRB, 0.968058E+00_JPRB, 0.961369E+00_JPRB &
+  &, 0.954299E+00_JPRB, 0.946854E+00_JPRB, 0.939040E+00_JPRB &
+  &, 0.930859E+00_JPRB, 0.922319E+00_JPRB, 0.913425E+00_JPRB, 0.904182E+00_JPRB &
+  &, 0.894596E+00_JPRB, 0.884674E+00_JPRB, 0.874424E+00_JPRB &
+  &, 0.863852E+00_JPRB, 0.852965E+00_JPRB, 0.841769E+00_JPRB, 0.830280E+00_JPRB &
+  &, 0.818500E+00_JPRB, 0.806438E+00_JPRB, 0.794108E+00_JPRB &
+  &, 0.781521E+00_JPRB, 0.768680E+00_JPRB, 0.755602E+00_JPRB, 0.742301E+00_JPRB &
+  &, 0.728782E+00_JPRB, 0.715064E+00_JPRB, 0.701157E+00_JPRB &
+  &, 0.687078E+00_JPRB, 0.672836E+00_JPRB, 0.658450E+00_JPRB, 0.643932E+00_JPRB &
+  &, 0.629299E+00_JPRB, 0.614564E+00_JPRB, 0.599748E+00_JPRB &
+  &, 0.584857E+00_JPRB, 0.569925E+00_JPRB, 0.554958E+00_JPRB, 0.539963E+00_JPRB &
+  &, 0.524980E+00_JPRB, 0.510011E+00_JPRB, 0.495073E+00_JPRB &
+  &, 0.480191E+00_JPRB, 0.465373E+00_JPRB, 0.450638E+00_JPRB, 0.436007E+00_JPRB &
+  &, 0.421490E+00_JPRB, 0.407109E+00_JPRB, 0.392873E+00_JPRB &
+  &, 0.378805E+00_JPRB, 0.364916E+00_JPRB, 0.351215E+00_JPRB, 0.337725E+00_JPRB &
+  &, 0.324452E+00_JPRB, 0.311406E+00_JPRB, 0.298621E+00_JPRB &
+  &, 0.286073E+00_JPRB, 0.273795E+00_JPRB, 0.261790E+00_JPRB, 0.250059E+00_JPRB &
+  &, 0.238633E+00_JPRB, 0.227493E+00_JPRB, 0.216652E+00_JPRB &
+  &, 0.206119E+00_JPRB, 0.195906E+00_JPRB, 0.186019E+00_JPRB, 0.176426E+00_JPRB &
+  &, 0.167171E+00_JPRB, 0.158215E+00_JPRB, 0.149599E+00_JPRB &
+  &, 0.141300E+00_JPRB, 0.133316E+00_JPRB, 0.125638E+00_JPRB, 0.118282E+00_JPRB &
+  &, 0.111236E+00_JPRB, 0.104488E+00_JPRB, 0.980477E-01_JPRB &
+  &, 0.919216E-01_JPRB, 0.860670E-01_JPRB, 0.804867E-01_JPRB, 0.751821E-01_JPRB &
+  &, 0.701535E-01_JPRB, 0.654000E-01_JPRB, 0.608918E-01_JPRB &
+  &, 0.566235E-01_JPRB, 0.526168E-01_JPRB, 0.488071E-01_JPRB, 0.452416E-01_JPRB &
+  &, 0.418803E-01_JPRB, 0.387403E-01_JPRB, 0.357770E-01_JPRB &
+  &, 0.330049E-01_JPRB, 0.304391E-01_JPRB, 0.279964E-01_JPRB, 0.257541E-01_JPRB &
+  &, 0.236584E-01_JPRB, 0.216858E-01_JPRB, 0.198809E-01_JPRB &
+  &, 0.181835E-01_JPRB, 0.166382E-01_JPRB, 0.151810E-01_JPRB, 0.138562E-01_JPRB &
+  &, 0.125956E-01_JPRB, 0.114823E-01_JPRB, 0.104459E-01_JPRB &
+  &, 0.945148E-02_JPRB, 0.858413E-02_JPRB, 0.776822E-02_JPRB, 0.704945E-02_JPRB &
+  &, 0.634780E-02_JPRB, 0.575193E-02_JPRB, 0.517929E-02_JPRB &
+  &, 0.463165E-02_JPRB, 0.420196E-02_JPRB, 0.375747E-02_JPRB, 0.334497E-02_JPRB &
+  &, 0.301407E-02_JPRB, 0.272051E-02_JPRB, 0.241718E-02_JPRB &
+  &, 0.215382E-02_JPRB, 0.193251E-02_JPRB, 0.170404E-02_JPRB, 0.152039E-02_JPRB &
+  &, 0.133091E-02_JPRB, 0.118912E-02_JPRB, 0.104289E-02_JPRB &
+  &, 0.947283E-03_JPRB, 0.792770E-03_JPRB, 0.747047E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 436, :) = (/ &
+  &  0.980532E+00_JPRB, 0.974676E+00_JPRB, 0.968431E+00_JPRB, 0.961803E+00_JPRB &
+  &, 0.954792E+00_JPRB, 0.947407E+00_JPRB, 0.939651E+00_JPRB &
+  &, 0.931529E+00_JPRB, 0.923045E+00_JPRB, 0.914205E+00_JPRB, 0.905017E+00_JPRB &
+  &, 0.895485E+00_JPRB, 0.885616E+00_JPRB, 0.875418E+00_JPRB &
+  &, 0.864894E+00_JPRB, 0.854057E+00_JPRB, 0.842912E+00_JPRB, 0.831468E+00_JPRB &
+  &, 0.819732E+00_JPRB, 0.807716E+00_JPRB, 0.795428E+00_JPRB &
+  &, 0.782880E+00_JPRB, 0.770081E+00_JPRB, 0.757042E+00_JPRB, 0.743776E+00_JPRB &
+  &, 0.730292E+00_JPRB, 0.716606E+00_JPRB, 0.702733E+00_JPRB &
+  &, 0.688681E+00_JPRB, 0.674466E+00_JPRB, 0.660105E+00_JPRB, 0.645611E+00_JPRB &
+  &, 0.630999E+00_JPRB, 0.616285E+00_JPRB, 0.601490E+00_JPRB &
+  &, 0.586615E+00_JPRB, 0.571699E+00_JPRB, 0.556738E+00_JPRB, 0.541757E+00_JPRB &
+  &, 0.526779E+00_JPRB, 0.511813E+00_JPRB, 0.496888E+00_JPRB &
+  &, 0.481996E+00_JPRB, 0.467178E+00_JPRB, 0.452441E+00_JPRB, 0.437808E+00_JPRB &
+  &, 0.423286E+00_JPRB, 0.408899E+00_JPRB, 0.394655E+00_JPRB &
+  &, 0.380566E+00_JPRB, 0.366666E+00_JPRB, 0.352952E+00_JPRB, 0.339446E+00_JPRB &
+  &, 0.326143E+00_JPRB, 0.313093E+00_JPRB, 0.300272E+00_JPRB &
+  &, 0.287700E+00_JPRB, 0.275397E+00_JPRB, 0.263364E+00_JPRB, 0.251602E+00_JPRB &
+  &, 0.240144E+00_JPRB, 0.228969E+00_JPRB, 0.218107E+00_JPRB &
+  &, 0.207535E+00_JPRB, 0.197278E+00_JPRB, 0.187346E+00_JPRB, 0.177724E+00_JPRB &
+  &, 0.168437E+00_JPRB, 0.159448E+00_JPRB, 0.150796E+00_JPRB &
+  &, 0.142439E+00_JPRB, 0.134414E+00_JPRB, 0.126715E+00_JPRB, 0.119314E+00_JPRB &
+  &, 0.112243E+00_JPRB, 0.105446E+00_JPRB, 0.989775E-01_JPRB &
+  &, 0.927972E-01_JPRB, 0.869105E-01_JPRB, 0.812963E-01_JPRB, 0.759560E-01_JPRB &
+  &, 0.709163E-01_JPRB, 0.661239E-01_JPRB, 0.615749E-01_JPRB &
+  &, 0.572640E-01_JPRB, 0.532127E-01_JPRB, 0.493853E-01_JPRB, 0.458011E-01_JPRB &
+  &, 0.424202E-01_JPRB, 0.392290E-01_JPRB, 0.362435E-01_JPRB &
+  &, 0.334482E-01_JPRB, 0.308259E-01_JPRB, 0.283901E-01_JPRB, 0.261214E-01_JPRB &
+  &, 0.239982E-01_JPRB, 0.219970E-01_JPRB, 0.201622E-01_JPRB &
+  &, 0.184697E-01_JPRB, 0.168929E-01_JPRB, 0.154031E-01_JPRB, 0.140819E-01_JPRB &
+  &, 0.128252E-01_JPRB, 0.116767E-01_JPRB, 0.106040E-01_JPRB &
+  &, 0.961218E-02_JPRB, 0.874744E-02_JPRB, 0.789268E-02_JPRB, 0.717591E-02_JPRB &
+  &, 0.647626E-02_JPRB, 0.583893E-02_JPRB, 0.526765E-02_JPRB &
+  &, 0.472139E-02_JPRB, 0.424752E-02_JPRB, 0.385000E-02_JPRB, 0.343891E-02_JPRB &
+  &, 0.306176E-02_JPRB, 0.276891E-02_JPRB, 0.246631E-02_JPRB &
+  &, 0.220368E-02_JPRB, 0.198310E-02_JPRB, 0.175537E-02_JPRB, 0.157248E-02_JPRB &
+  &, 0.138375E-02_JPRB, 0.124272E-02_JPRB, 0.109725E-02_JPRB &
+  &, 0.947283E-03_JPRB, 0.848682E-03_JPRB, 0.747047E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 437, :) = (/ &
+  &  0.980786E+00_JPRB, 0.974991E+00_JPRB, 0.968805E+00_JPRB, 0.962236E+00_JPRB &
+  &, 0.955286E+00_JPRB, 0.947960E+00_JPRB, 0.940262E+00_JPRB &
+  &, 0.932197E+00_JPRB, 0.923769E+00_JPRB, 0.914985E+00_JPRB, 0.905852E+00_JPRB &
+  &, 0.896374E+00_JPRB, 0.886557E+00_JPRB, 0.876411E+00_JPRB &
+  &, 0.865939E+00_JPRB, 0.855150E+00_JPRB, 0.844054E+00_JPRB, 0.832656E+00_JPRB &
+  &, 0.820967E+00_JPRB, 0.808995E+00_JPRB, 0.796748E+00_JPRB &
+  &, 0.784243E+00_JPRB, 0.771481E+00_JPRB, 0.758483E+00_JPRB, 0.745250E+00_JPRB &
+  &, 0.731805E+00_JPRB, 0.718152E+00_JPRB, 0.704309E+00_JPRB &
+  &, 0.690288E+00_JPRB, 0.676101E+00_JPRB, 0.661764E+00_JPRB, 0.647295E+00_JPRB &
+  &, 0.632708E+00_JPRB, 0.618015E+00_JPRB, 0.603231E+00_JPRB &
+  &, 0.588382E+00_JPRB, 0.573473E+00_JPRB, 0.558527E+00_JPRB, 0.543562E+00_JPRB &
+  &, 0.528588E+00_JPRB, 0.513626E+00_JPRB, 0.498692E+00_JPRB &
+  &, 0.483812E+00_JPRB, 0.468994E+00_JPRB, 0.454257E+00_JPRB, 0.439620E+00_JPRB &
+  &, 0.425083E+00_JPRB, 0.410689E+00_JPRB, 0.396438E+00_JPRB &
+  &, 0.382340E+00_JPRB, 0.368416E+00_JPRB, 0.354689E+00_JPRB, 0.341154E+00_JPRB &
+  &, 0.327849E+00_JPRB, 0.314764E+00_JPRB, 0.301922E+00_JPRB &
+  &, 0.289327E+00_JPRB, 0.276998E+00_JPRB, 0.264938E+00_JPRB, 0.253146E+00_JPRB &
+  &, 0.241655E+00_JPRB, 0.230445E+00_JPRB, 0.219545E+00_JPRB &
+  &, 0.208950E+00_JPRB, 0.198669E+00_JPRB, 0.188692E+00_JPRB, 0.179041E+00_JPRB &
+  &, 0.169704E+00_JPRB, 0.160682E+00_JPRB, 0.151994E+00_JPRB &
+  &, 0.143599E+00_JPRB, 0.135555E+00_JPRB, 0.127792E+00_JPRB, 0.120368E+00_JPRB &
+  &, 0.113251E+00_JPRB, 0.106428E+00_JPRB, 0.999073E-01_JPRB &
+  &, 0.936971E-01_JPRB, 0.877539E-01_JPRB, 0.821311E-01_JPRB, 0.767557E-01_JPRB &
+  &, 0.716527E-01_JPRB, 0.668209E-01_JPRB, 0.622580E-01_JPRB &
+  &, 0.579323E-01_JPRB, 0.538370E-01_JPRB, 0.499924E-01_JPRB, 0.463606E-01_JPRB &
+  &, 0.429301E-01_JPRB, 0.397177E-01_JPRB, 0.367100E-01_JPRB &
+  &, 0.338915E-01_JPRB, 0.312449E-01_JPRB, 0.287838E-01_JPRB, 0.264887E-01_JPRB &
+  &, 0.243380E-01_JPRB, 0.223427E-01_JPRB, 0.204788E-01_JPRB &
+  &, 0.187559E-01_JPRB, 0.171476E-01_JPRB, 0.156621E-01_JPRB, 0.143077E-01_JPRB &
+  &, 0.130164E-01_JPRB, 0.118712E-01_JPRB, 0.108016E-01_JPRB &
+  &, 0.981307E-02_JPRB, 0.886993E-02_JPRB, 0.805863E-02_JPRB, 0.730236E-02_JPRB &
+  &, 0.660473E-02_JPRB, 0.596943E-02_JPRB, 0.535601E-02_JPRB &
+  &, 0.481113E-02_JPRB, 0.433865E-02_JPRB, 0.389627E-02_JPRB, 0.348589E-02_JPRB &
+  &, 0.315712E-02_JPRB, 0.281731E-02_JPRB, 0.251543E-02_JPRB &
+  &, 0.225353E-02_JPRB, 0.198310E-02_JPRB, 0.180671E-02_JPRB, 0.157248E-02_JPRB &
+  &, 0.138375E-02_JPRB, 0.124272E-02_JPRB, 0.109725E-02_JPRB &
+  &, 0.100242E-02_JPRB, 0.848682E-03_JPRB, 0.747047E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.541748E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 438, :) = (/ &
+  &  0.981035E+00_JPRB, 0.975303E+00_JPRB, 0.969178E+00_JPRB, 0.962671E+00_JPRB &
+  &, 0.955779E+00_JPRB, 0.948512E+00_JPRB, 0.940872E+00_JPRB &
+  &, 0.932864E+00_JPRB, 0.924494E+00_JPRB, 0.915767E+00_JPRB, 0.906688E+00_JPRB &
+  &, 0.897264E+00_JPRB, 0.887500E+00_JPRB, 0.877405E+00_JPRB &
+  &, 0.866983E+00_JPRB, 0.856245E+00_JPRB, 0.845195E+00_JPRB, 0.833845E+00_JPRB &
+  &, 0.822201E+00_JPRB, 0.810273E+00_JPRB, 0.798071E+00_JPRB &
+  &, 0.785605E+00_JPRB, 0.772885E+00_JPRB, 0.759923E+00_JPRB, 0.746728E+00_JPRB &
+  &, 0.733318E+00_JPRB, 0.719698E+00_JPRB, 0.705885E+00_JPRB &
+  &, 0.691895E+00_JPRB, 0.677736E+00_JPRB, 0.663428E+00_JPRB, 0.648983E+00_JPRB &
+  &, 0.634413E+00_JPRB, 0.619741E+00_JPRB, 0.604978E+00_JPRB &
+  &, 0.590140E+00_JPRB, 0.575247E+00_JPRB, 0.560317E+00_JPRB, 0.545357E+00_JPRB &
+  &, 0.530397E+00_JPRB, 0.515439E+00_JPRB, 0.500518E+00_JPRB &
+  &, 0.485639E+00_JPRB, 0.470810E+00_JPRB, 0.456071E+00_JPRB, 0.441433E+00_JPRB &
+  &, 0.426891E+00_JPRB, 0.412480E+00_JPRB, 0.398221E+00_JPRB &
+  &, 0.384114E+00_JPRB, 0.370179E+00_JPRB, 0.356439E+00_JPRB, 0.342890E+00_JPRB &
+  &, 0.329554E+00_JPRB, 0.316451E+00_JPRB, 0.303588E+00_JPRB &
+  &, 0.290970E+00_JPRB, 0.278600E+00_JPRB, 0.266512E+00_JPRB, 0.254706E+00_JPRB &
+  &, 0.243183E+00_JPRB, 0.231938E+00_JPRB, 0.221001E+00_JPRB &
+  &, 0.210384E+00_JPRB, 0.200060E+00_JPRB, 0.190056E+00_JPRB, 0.180359E+00_JPRB &
+  &, 0.170991E+00_JPRB, 0.161935E+00_JPRB, 0.153192E+00_JPRB &
+  &, 0.144780E+00_JPRB, 0.136675E+00_JPRB, 0.128892E+00_JPRB, 0.121423E+00_JPRB &
+  &, 0.114259E+00_JPRB, 0.107409E+00_JPRB, 0.100861E+00_JPRB &
+  &, 0.945970E-01_JPRB, 0.886222E-01_JPRB, 0.829407E-01_JPRB, 0.775554E-01_JPRB &
+  &, 0.724154E-01_JPRB, 0.675448E-01_JPRB, 0.629412E-01_JPRB &
+  &, 0.585728E-01_JPRB, 0.544612E-01_JPRB, 0.505705E-01_JPRB, 0.468907E-01_JPRB &
+  &, 0.434699E-01_JPRB, 0.402064E-01_JPRB, 0.371765E-01_JPRB &
+  &, 0.343348E-01_JPRB, 0.316640E-01_JPRB, 0.291775E-01_JPRB, 0.268560E-01_JPRB &
+  &, 0.246778E-01_JPRB, 0.226538E-01_JPRB, 0.207601E-01_JPRB &
+  &, 0.190421E-01_JPRB, 0.174023E-01_JPRB, 0.159211E-01_JPRB, 0.145334E-01_JPRB &
+  &, 0.132460E-01_JPRB, 0.120656E-01_JPRB, 0.109598E-01_JPRB &
+  &, 0.997377E-02_JPRB, 0.903325E-02_JPRB, 0.818310E-02_JPRB, 0.742882E-02_JPRB &
+  &, 0.669038E-02_JPRB, 0.605643E-02_JPRB, 0.548856E-02_JPRB &
+  &, 0.494574E-02_JPRB, 0.442978E-02_JPRB, 0.398880E-02_JPRB, 0.357983E-02_JPRB &
+  &, 0.320481E-02_JPRB, 0.286571E-02_JPRB, 0.256456E-02_JPRB &
+  &, 0.230339E-02_JPRB, 0.203370E-02_JPRB, 0.180671E-02_JPRB, 0.162456E-02_JPRB &
+  &, 0.143659E-02_JPRB, 0.129632E-02_JPRB, 0.115161E-02_JPRB &
+  &, 0.100242E-02_JPRB, 0.904594E-03_JPRB, 0.803743E-03_JPRB, 0.699828E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.541748E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 439, :) = (/ &
+  &  0.981287E+00_JPRB, 0.975615E+00_JPRB, 0.969551E+00_JPRB, 0.963104E+00_JPRB &
+  &, 0.956272E+00_JPRB, 0.949065E+00_JPRB, 0.941483E+00_JPRB &
+  &, 0.933533E+00_JPRB, 0.925218E+00_JPRB, 0.916547E+00_JPRB, 0.907524E+00_JPRB &
+  &, 0.898153E+00_JPRB, 0.888442E+00_JPRB, 0.878398E+00_JPRB &
+  &, 0.868028E+00_JPRB, 0.857339E+00_JPRB, 0.846338E+00_JPRB, 0.835034E+00_JPRB &
+  &, 0.823436E+00_JPRB, 0.811552E+00_JPRB, 0.799393E+00_JPRB &
+  &, 0.786968E+00_JPRB, 0.774289E+00_JPRB, 0.761363E+00_JPRB, 0.748209E+00_JPRB &
+  &, 0.734831E+00_JPRB, 0.721244E+00_JPRB, 0.707465E+00_JPRB &
+  &, 0.693502E+00_JPRB, 0.679375E+00_JPRB, 0.665091E+00_JPRB, 0.650671E+00_JPRB &
+  &, 0.636126E+00_JPRB, 0.621475E+00_JPRB, 0.606729E+00_JPRB &
+  &, 0.591907E+00_JPRB, 0.577030E+00_JPRB, 0.562106E+00_JPRB, 0.547161E+00_JPRB &
+  &, 0.532206E+00_JPRB, 0.517262E+00_JPRB, 0.502343E+00_JPRB &
+  &, 0.487456E+00_JPRB, 0.472638E+00_JPRB, 0.457898E+00_JPRB, 0.443245E+00_JPRB &
+  &, 0.428699E+00_JPRB, 0.414282E+00_JPRB, 0.400017E+00_JPRB &
+  &, 0.385888E+00_JPRB, 0.371942E+00_JPRB, 0.358176E+00_JPRB, 0.344612E+00_JPRB &
+  &, 0.331273E+00_JPRB, 0.318137E+00_JPRB, 0.305254E+00_JPRB &
+  &, 0.292613E+00_JPRB, 0.280217E+00_JPRB, 0.268102E+00_JPRB, 0.256266E+00_JPRB &
+  &, 0.244710E+00_JPRB, 0.233448E+00_JPRB, 0.222474E+00_JPRB &
+  &, 0.211817E+00_JPRB, 0.201452E+00_JPRB, 0.191421E+00_JPRB, 0.181676E+00_JPRB &
+  &, 0.172277E+00_JPRB, 0.163189E+00_JPRB, 0.154410E+00_JPRB &
+  &, 0.145940E+00_JPRB, 0.137816E+00_JPRB, 0.129991E+00_JPRB, 0.122477E+00_JPRB &
+  &, 0.115289E+00_JPRB, 0.108391E+00_JPRB, 0.101791E+00_JPRB &
+  &, 0.954969E-01_JPRB, 0.894905E-01_JPRB, 0.837756E-01_JPRB, 0.783293E-01_JPRB &
+  &, 0.731781E-01_JPRB, 0.682687E-01_JPRB, 0.636243E-01_JPRB &
+  &, 0.592412E-01_JPRB, 0.550855E-01_JPRB, 0.511487E-01_JPRB, 0.474796E-01_JPRB &
+  &, 0.439798E-01_JPRB, 0.407257E-01_JPRB, 0.376430E-01_JPRB &
+  &, 0.347781E-01_JPRB, 0.320830E-01_JPRB, 0.295712E-01_JPRB, 0.272233E-01_JPRB &
+  &, 0.250175E-01_JPRB, 0.229649E-01_JPRB, 0.210767E-01_JPRB &
+  &, 0.193283E-01_JPRB, 0.176570E-01_JPRB, 0.161431E-01_JPRB, 0.147592E-01_JPRB &
+  &, 0.134372E-01_JPRB, 0.122600E-01_JPRB, 0.111574E-01_JPRB &
+  &, 0.101345E-01_JPRB, 0.919656E-02_JPRB, 0.834905E-02_JPRB, 0.755528E-02_JPRB &
+  &, 0.681885E-02_JPRB, 0.618692E-02_JPRB, 0.557692E-02_JPRB &
+  &, 0.503548E-02_JPRB, 0.452091E-02_JPRB, 0.408133E-02_JPRB, 0.367377E-02_JPRB &
+  &, 0.330018E-02_JPRB, 0.291412E-02_JPRB, 0.261369E-02_JPRB &
+  &, 0.235325E-02_JPRB, 0.208429E-02_JPRB, 0.185804E-02_JPRB, 0.167664E-02_JPRB &
+  &, 0.148942E-02_JPRB, 0.129632E-02_JPRB, 0.115161E-02_JPRB &
+  &, 0.100242E-02_JPRB, 0.904594E-03_JPRB, 0.803743E-03_JPRB, 0.699828E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.541748E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 440, :) = (/ &
+  &  0.981539E+00_JPRB, 0.975928E+00_JPRB, 0.969925E+00_JPRB, 0.963538E+00_JPRB &
+  &, 0.956766E+00_JPRB, 0.949618E+00_JPRB, 0.942094E+00_JPRB &
+  &, 0.934201E+00_JPRB, 0.925944E+00_JPRB, 0.917328E+00_JPRB, 0.908359E+00_JPRB &
+  &, 0.899042E+00_JPRB, 0.889385E+00_JPRB, 0.879392E+00_JPRB &
+  &, 0.869073E+00_JPRB, 0.858433E+00_JPRB, 0.847481E+00_JPRB, 0.836225E+00_JPRB &
+  &, 0.824672E+00_JPRB, 0.812834E+00_JPRB, 0.800716E+00_JPRB &
+  &, 0.788334E+00_JPRB, 0.775694E+00_JPRB, 0.762807E+00_JPRB, 0.749687E+00_JPRB &
+  &, 0.736348E+00_JPRB, 0.722794E+00_JPRB, 0.709045E+00_JPRB &
+  &, 0.695113E+00_JPRB, 0.681014E+00_JPRB, 0.666758E+00_JPRB, 0.652359E+00_JPRB &
+  &, 0.637839E+00_JPRB, 0.623209E+00_JPRB, 0.608484E+00_JPRB &
+  &, 0.593674E+00_JPRB, 0.578813E+00_JPRB, 0.563905E+00_JPRB, 0.548966E+00_JPRB &
+  &, 0.534025E+00_JPRB, 0.519085E+00_JPRB, 0.504169E+00_JPRB &
+  &, 0.489283E+00_JPRB, 0.474465E+00_JPRB, 0.459725E+00_JPRB, 0.445070E+00_JPRB &
+  &, 0.430520E+00_JPRB, 0.416098E+00_JPRB, 0.401813E+00_JPRB &
+  &, 0.387675E+00_JPRB, 0.373718E+00_JPRB, 0.359940E+00_JPRB, 0.346363E+00_JPRB &
+  &, 0.332979E+00_JPRB, 0.319838E+00_JPRB, 0.306919E+00_JPRB &
+  &, 0.294255E+00_JPRB, 0.281851E+00_JPRB, 0.269692E+00_JPRB, 0.257826E+00_JPRB &
+  &, 0.246238E+00_JPRB, 0.234941E+00_JPRB, 0.223947E+00_JPRB &
+  &, 0.213251E+00_JPRB, 0.202861E+00_JPRB, 0.192786E+00_JPRB, 0.183013E+00_JPRB &
+  &, 0.173564E+00_JPRB, 0.164442E+00_JPRB, 0.155629E+00_JPRB &
+  &, 0.147142E+00_JPRB, 0.138957E+00_JPRB, 0.131090E+00_JPRB, 0.123555E+00_JPRB &
+  &, 0.116320E+00_JPRB, 0.109372E+00_JPRB, 0.102745E+00_JPRB &
+  &, 0.964211E-01_JPRB, 0.903835E-01_JPRB, 0.846105E-01_JPRB, 0.791548E-01_JPRB &
+  &, 0.739408E-01_JPRB, 0.689925E-01_JPRB, 0.643348E-01_JPRB &
+  &, 0.599095E-01_JPRB, 0.557097E-01_JPRB, 0.517558E-01_JPRB, 0.480391E-01_JPRB &
+  &, 0.445197E-01_JPRB, 0.412449E-01_JPRB, 0.381407E-01_JPRB &
+  &, 0.352214E-01_JPRB, 0.325021E-01_JPRB, 0.299649E-01_JPRB, 0.275906E-01_JPRB &
+  &, 0.253573E-01_JPRB, 0.233106E-01_JPRB, 0.213932E-01_JPRB &
+  &, 0.196145E-01_JPRB, 0.179481E-01_JPRB, 0.164021E-01_JPRB, 0.149849E-01_JPRB &
+  &, 0.136668E-01_JPRB, 0.124545E-01_JPRB, 0.113550E-01_JPRB &
+  &, 0.102952E-01_JPRB, 0.935988E-02_JPRB, 0.847351E-02_JPRB, 0.768174E-02_JPRB &
+  &, 0.694732E-02_JPRB, 0.627392E-02_JPRB, 0.566529E-02_JPRB &
+  &, 0.512522E-02_JPRB, 0.461204E-02_JPRB, 0.412760E-02_JPRB, 0.372074E-02_JPRB &
+  &, 0.334786E-02_JPRB, 0.301092E-02_JPRB, 0.266281E-02_JPRB &
+  &, 0.240310E-02_JPRB, 0.213488E-02_JPRB, 0.190938E-02_JPRB, 0.167664E-02_JPRB &
+  &, 0.148942E-02_JPRB, 0.134991E-02_JPRB, 0.120597E-02_JPRB &
+  &, 0.105755E-02_JPRB, 0.904594E-03_JPRB, 0.803743E-03_JPRB, 0.699828E-03_JPRB &
+  &, 0.651096E-03_JPRB, 0.541748E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 441, :) = (/ &
+  &  0.981790E+00_JPRB, 0.976240E+00_JPRB, 0.970298E+00_JPRB, 0.963972E+00_JPRB &
+  &, 0.957260E+00_JPRB, 0.950170E+00_JPRB, 0.942704E+00_JPRB &
+  &, 0.934869E+00_JPRB, 0.926669E+00_JPRB, 0.918110E+00_JPRB, 0.909195E+00_JPRB &
+  &, 0.899933E+00_JPRB, 0.890328E+00_JPRB, 0.880387E+00_JPRB &
+  &, 0.870119E+00_JPRB, 0.859529E+00_JPRB, 0.848625E+00_JPRB, 0.837415E+00_JPRB &
+  &, 0.825909E+00_JPRB, 0.814112E+00_JPRB, 0.802039E+00_JPRB &
+  &, 0.789700E+00_JPRB, 0.777101E+00_JPRB, 0.764254E+00_JPRB, 0.751172E+00_JPRB &
+  &, 0.737865E+00_JPRB, 0.724347E+00_JPRB, 0.710629E+00_JPRB &
+  &, 0.696728E+00_JPRB, 0.682656E+00_JPRB, 0.668425E+00_JPRB, 0.654056E+00_JPRB &
+  &, 0.639557E+00_JPRB, 0.624943E+00_JPRB, 0.610239E+00_JPRB &
+  &, 0.595451E+00_JPRB, 0.580597E+00_JPRB, 0.565704E+00_JPRB, 0.550780E+00_JPRB &
+  &, 0.535844E+00_JPRB, 0.520908E+00_JPRB, 0.505995E+00_JPRB &
+  &, 0.491121E+00_JPRB, 0.476304E+00_JPRB, 0.461552E+00_JPRB, 0.446894E+00_JPRB &
+  &, 0.432341E+00_JPRB, 0.417913E+00_JPRB, 0.403609E+00_JPRB &
+  &, 0.389475E+00_JPRB, 0.375495E+00_JPRB, 0.361704E+00_JPRB, 0.348099E+00_JPRB &
+  &, 0.334713E+00_JPRB, 0.321540E+00_JPRB, 0.308600E+00_JPRB &
+  &, 0.295914E+00_JPRB, 0.283468E+00_JPRB, 0.271298E+00_JPRB, 0.259403E+00_JPRB &
+  &, 0.247783E+00_JPRB, 0.236451E+00_JPRB, 0.225420E+00_JPRB &
+  &, 0.214703E+00_JPRB, 0.204271E+00_JPRB, 0.194151E+00_JPRB, 0.184349E+00_JPRB &
+  &, 0.174870E+00_JPRB, 0.165696E+00_JPRB, 0.156847E+00_JPRB &
+  &, 0.148323E+00_JPRB, 0.140098E+00_JPRB, 0.132211E+00_JPRB, 0.124632E+00_JPRB &
+  &, 0.117350E+00_JPRB, 0.110377E+00_JPRB, 0.103698E+00_JPRB &
+  &, 0.973453E-01_JPRB, 0.912518E-01_JPRB, 0.854706E-01_JPRB, 0.799545E-01_JPRB &
+  &, 0.747035E-01_JPRB, 0.697432E-01_JPRB, 0.650179E-01_JPRB &
+  &, 0.605778E-01_JPRB, 0.563623E-01_JPRB, 0.523628E-01_JPRB, 0.485987E-01_JPRB &
+  &, 0.450596E-01_JPRB, 0.417336E-01_JPRB, 0.386072E-01_JPRB &
+  &, 0.356964E-01_JPRB, 0.329533E-01_JPRB, 0.303587E-01_JPRB, 0.279579E-01_JPRB &
+  &, 0.257311E-01_JPRB, 0.236563E-01_JPRB, 0.217097E-01_JPRB &
+  &, 0.199007E-01_JPRB, 0.182028E-01_JPRB, 0.166612E-01_JPRB, 0.152107E-01_JPRB &
+  &, 0.138963E-01_JPRB, 0.126489E-01_JPRB, 0.115132E-01_JPRB &
+  &, 0.104961E-01_JPRB, 0.952320E-02_JPRB, 0.863946E-02_JPRB, 0.785035E-02_JPRB &
+  &, 0.707579E-02_JPRB, 0.640442E-02_JPRB, 0.579783E-02_JPRB &
+  &, 0.521496E-02_JPRB, 0.470317E-02_JPRB, 0.422013E-02_JPRB, 0.381469E-02_JPRB &
+  &, 0.339554E-02_JPRB, 0.305932E-02_JPRB, 0.276106E-02_JPRB &
+  &, 0.245296E-02_JPRB, 0.218547E-02_JPRB, 0.196071E-02_JPRB, 0.172872E-02_JPRB &
+  &, 0.154226E-02_JPRB, 0.134991E-02_JPRB, 0.120597E-02_JPRB &
+  &, 0.105755E-02_JPRB, 0.960506E-03_JPRB, 0.860439E-03_JPRB, 0.757314E-03_JPRB &
+  &, 0.651096E-03_JPRB, 0.600831E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART63',1,ZHOOK_HANDLE)
+END SUBROUTINE PART63
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART64
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART64',0,ZHOOK_HANDLE)
+
+XCW( 442, :) = (/ &
+  &  0.982040E+00_JPRB, 0.976552E+00_JPRB, 0.970671E+00_JPRB, 0.964405E+00_JPRB &
+  &, 0.957753E+00_JPRB, 0.950722E+00_JPRB, 0.943316E+00_JPRB &
+  &, 0.935538E+00_JPRB, 0.927394E+00_JPRB, 0.918890E+00_JPRB, 0.910032E+00_JPRB &
+  &, 0.900822E+00_JPRB, 0.891271E+00_JPRB, 0.881383E+00_JPRB &
+  &, 0.871164E+00_JPRB, 0.860625E+00_JPRB, 0.849768E+00_JPRB, 0.838606E+00_JPRB &
+  &, 0.827147E+00_JPRB, 0.815397E+00_JPRB, 0.803366E+00_JPRB &
+  &, 0.791066E+00_JPRB, 0.778508E+00_JPRB, 0.765698E+00_JPRB, 0.752653E+00_JPRB &
+  &, 0.739382E+00_JPRB, 0.725897E+00_JPRB, 0.712213E+00_JPRB &
+  &, 0.698343E+00_JPRB, 0.684299E+00_JPRB, 0.670097E+00_JPRB, 0.655748E+00_JPRB &
+  &, 0.641274E+00_JPRB, 0.626682E+00_JPRB, 0.611995E+00_JPRB &
+  &, 0.597228E+00_JPRB, 0.582390E+00_JPRB, 0.567494E+00_JPRB, 0.552595E+00_JPRB &
+  &, 0.537664E+00_JPRB, 0.522741E+00_JPRB, 0.507832E+00_JPRB &
+  &, 0.492960E+00_JPRB, 0.478143E+00_JPRB, 0.463390E+00_JPRB, 0.448730E+00_JPRB &
+  &, 0.434174E+00_JPRB, 0.419729E+00_JPRB, 0.405417E+00_JPRB &
+  &, 0.391262E+00_JPRB, 0.377271E+00_JPRB, 0.363469E+00_JPRB, 0.349849E+00_JPRB &
+  &, 0.336433E+00_JPRB, 0.323241E+00_JPRB, 0.310296E+00_JPRB &
+  &, 0.297572E+00_JPRB, 0.285102E+00_JPRB, 0.272904E+00_JPRB, 0.260980E+00_JPRB &
+  &, 0.249328E+00_JPRB, 0.237979E+00_JPRB, 0.226911E+00_JPRB &
+  &, 0.216154E+00_JPRB, 0.205681E+00_JPRB, 0.195535E+00_JPRB, 0.185705E+00_JPRB &
+  &, 0.176176E+00_JPRB, 0.166969E+00_JPRB, 0.158086E+00_JPRB &
+  &, 0.149525E+00_JPRB, 0.141261E+00_JPRB, 0.133332E+00_JPRB, 0.125709E+00_JPRB &
+  &, 0.118381E+00_JPRB, 0.111382E+00_JPRB, 0.104676E+00_JPRB &
+  &, 0.982695E-01_JPRB, 0.921448E-01_JPRB, 0.863308E-01_JPRB, 0.807800E-01_JPRB &
+  &, 0.754926E-01_JPRB, 0.704939E-01_JPRB, 0.657284E-01_JPRB &
+  &, 0.612462E-01_JPRB, 0.569866E-01_JPRB, 0.529699E-01_JPRB, 0.491876E-01_JPRB &
+  &, 0.456294E-01_JPRB, 0.422529E-01_JPRB, 0.391048E-01_JPRB &
+  &, 0.361397E-01_JPRB, 0.333724E-01_JPRB, 0.307852E-01_JPRB, 0.283585E-01_JPRB &
+  &, 0.261048E-01_JPRB, 0.239675E-01_JPRB, 0.220262E-01_JPRB &
+  &, 0.201869E-01_JPRB, 0.184939E-01_JPRB, 0.169202E-01_JPRB, 0.154740E-01_JPRB &
+  &, 0.141258E-01_JPRB, 0.128823E-01_JPRB, 0.117108E-01_JPRB &
+  &, 0.106568E-01_JPRB, 0.968651E-02_JPRB, 0.880541E-02_JPRB, 0.797680E-02_JPRB &
+  &, 0.720426E-02_JPRB, 0.653492E-02_JPRB, 0.588620E-02_JPRB &
+  &, 0.530470E-02_JPRB, 0.479430E-02_JPRB, 0.431266E-02_JPRB, 0.386166E-02_JPRB &
+  &, 0.349091E-02_JPRB, 0.310772E-02_JPRB, 0.281019E-02_JPRB &
+  &, 0.250281E-02_JPRB, 0.223607E-02_JPRB, 0.201205E-02_JPRB, 0.178081E-02_JPRB &
+  &, 0.159510E-02_JPRB, 0.140351E-02_JPRB, 0.126034E-02_JPRB &
+  &, 0.111269E-02_JPRB, 0.960506E-03_JPRB, 0.860439E-03_JPRB, 0.757314E-03_JPRB &
+  &, 0.651096E-03_JPRB, 0.600831E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 443, :) = (/ &
+  &  0.982290E+00_JPRB, 0.976864E+00_JPRB, 0.971045E+00_JPRB, 0.964839E+00_JPRB &
+  &, 0.958246E+00_JPRB, 0.951275E+00_JPRB, 0.943927E+00_JPRB &
+  &, 0.936207E+00_JPRB, 0.928121E+00_JPRB, 0.919671E+00_JPRB, 0.910868E+00_JPRB &
+  &, 0.901713E+00_JPRB, 0.892215E+00_JPRB, 0.882379E+00_JPRB &
+  &, 0.872211E+00_JPRB, 0.861721E+00_JPRB, 0.850914E+00_JPRB, 0.839800E+00_JPRB &
+  &, 0.828384E+00_JPRB, 0.816679E+00_JPRB, 0.804692E+00_JPRB &
+  &, 0.792435E+00_JPRB, 0.779916E+00_JPRB, 0.767145E+00_JPRB, 0.754138E+00_JPRB &
+  &, 0.740902E+00_JPRB, 0.727454E+00_JPRB, 0.713800E+00_JPRB &
+  &, 0.699962E+00_JPRB, 0.685946E+00_JPRB, 0.671768E+00_JPRB, 0.657448E+00_JPRB &
+  &, 0.642996E+00_JPRB, 0.628425E+00_JPRB, 0.613759E+00_JPRB &
+  &, 0.599004E+00_JPRB, 0.584183E+00_JPRB, 0.569312E+00_JPRB, 0.554410E+00_JPRB &
+  &, 0.539493E+00_JPRB, 0.524575E+00_JPRB, 0.509668E+00_JPRB &
+  &, 0.494798E+00_JPRB, 0.479982E+00_JPRB, 0.465228E+00_JPRB, 0.450567E+00_JPRB &
+  &, 0.435994E+00_JPRB, 0.421557E+00_JPRB, 0.407239E+00_JPRB &
+  &, 0.393075E+00_JPRB, 0.379061E+00_JPRB, 0.365233E+00_JPRB, 0.351599E+00_JPRB &
+  &, 0.338181E+00_JPRB, 0.324957E+00_JPRB, 0.311977E+00_JPRB &
+  &, 0.299245E+00_JPRB, 0.286751E+00_JPRB, 0.274526E+00_JPRB, 0.262573E+00_JPRB &
+  &, 0.250889E+00_JPRB, 0.239506E+00_JPRB, 0.228403E+00_JPRB &
+  &, 0.217606E+00_JPRB, 0.207109E+00_JPRB, 0.196938E+00_JPRB, 0.187061E+00_JPRB &
+  &, 0.177502E+00_JPRB, 0.168263E+00_JPRB, 0.159325E+00_JPRB &
+  &, 0.150727E+00_JPRB, 0.142424E+00_JPRB, 0.134453E+00_JPRB, 0.126786E+00_JPRB &
+  &, 0.119434E+00_JPRB, 0.112387E+00_JPRB, 0.105653E+00_JPRB &
+  &, 0.991938E-01_JPRB, 0.930379E-01_JPRB, 0.871910E-01_JPRB, 0.816055E-01_JPRB &
+  &, 0.762816E-01_JPRB, 0.712446E-01_JPRB, 0.664662E-01_JPRB &
+  &, 0.619145E-01_JPRB, 0.576392E-01_JPRB, 0.536059E-01_JPRB, 0.497766E-01_JPRB &
+  &, 0.461693E-01_JPRB, 0.428027E-01_JPRB, 0.396025E-01_JPRB &
+  &, 0.366147E-01_JPRB, 0.338237E-01_JPRB, 0.312117E-01_JPRB, 0.287592E-01_JPRB &
+  &, 0.264446E-01_JPRB, 0.243132E-01_JPRB, 0.223428E-01_JPRB &
+  &, 0.205089E-01_JPRB, 0.187850E-01_JPRB, 0.171792E-01_JPRB, 0.156998E-01_JPRB &
+  &, 0.143553E-01_JPRB, 0.130767E-01_JPRB, 0.119085E-01_JPRB &
+  &, 0.108577E-01_JPRB, 0.984983E-02_JPRB, 0.892988E-02_JPRB, 0.810326E-02_JPRB &
+  &, 0.733272E-02_JPRB, 0.666542E-02_JPRB, 0.601874E-02_JPRB &
+  &, 0.543931E-02_JPRB, 0.488543E-02_JPRB, 0.440519E-02_JPRB, 0.395560E-02_JPRB &
+  &, 0.353859E-02_JPRB, 0.320453E-02_JPRB, 0.285932E-02_JPRB &
+  &, 0.255267E-02_JPRB, 0.228666E-02_JPRB, 0.206338E-02_JPRB, 0.183289E-02_JPRB &
+  &, 0.159510E-02_JPRB, 0.145711E-02_JPRB, 0.126034E-02_JPRB &
+  &, 0.111269E-02_JPRB, 0.101642E-02_JPRB, 0.860439E-03_JPRB, 0.757314E-03_JPRB &
+  &, 0.709377E-03_JPRB, 0.600831E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 444, :) = (/ &
+  &  0.982539E+00_JPRB, 0.977177E+00_JPRB, 0.971418E+00_JPRB, 0.965273E+00_JPRB &
+  &, 0.958740E+00_JPRB, 0.951827E+00_JPRB, 0.944537E+00_JPRB &
+  &, 0.936876E+00_JPRB, 0.928845E+00_JPRB, 0.920454E+00_JPRB, 0.911705E+00_JPRB &
+  &, 0.902603E+00_JPRB, 0.893159E+00_JPRB, 0.883374E+00_JPRB &
+  &, 0.873259E+00_JPRB, 0.862818E+00_JPRB, 0.852059E+00_JPRB, 0.840992E+00_JPRB &
+  &, 0.829623E+00_JPRB, 0.817964E+00_JPRB, 0.806018E+00_JPRB &
+  &, 0.793805E+00_JPRB, 0.781327E+00_JPRB, 0.768595E+00_JPRB, 0.755623E+00_JPRB &
+  &, 0.742426E+00_JPRB, 0.729007E+00_JPRB, 0.715388E+00_JPRB &
+  &, 0.701580E+00_JPRB, 0.687593E+00_JPRB, 0.673444E+00_JPRB, 0.659149E+00_JPRB &
+  &, 0.644718E+00_JPRB, 0.630173E+00_JPRB, 0.615524E+00_JPRB &
+  &, 0.600781E+00_JPRB, 0.585985E+00_JPRB, 0.571121E+00_JPRB, 0.556234E+00_JPRB &
+  &, 0.541323E+00_JPRB, 0.526409E+00_JPRB, 0.511515E+00_JPRB &
+  &, 0.496647E+00_JPRB, 0.481821E+00_JPRB, 0.467078E+00_JPRB, 0.452403E+00_JPRB &
+  &, 0.437839E+00_JPRB, 0.423385E+00_JPRB, 0.409060E+00_JPRB &
+  &, 0.394875E+00_JPRB, 0.380865E+00_JPRB, 0.367011E+00_JPRB, 0.353363E+00_JPRB &
+  &, 0.339915E+00_JPRB, 0.326688E+00_JPRB, 0.313673E+00_JPRB &
+  &, 0.300919E+00_JPRB, 0.288400E+00_JPRB, 0.276149E+00_JPRB, 0.264166E+00_JPRB &
+  &, 0.252451E+00_JPRB, 0.241034E+00_JPRB, 0.229911E+00_JPRB &
+  &, 0.219076E+00_JPRB, 0.208537E+00_JPRB, 0.198322E+00_JPRB, 0.188417E+00_JPRB &
+  &, 0.178828E+00_JPRB, 0.169537E+00_JPRB, 0.160585E+00_JPRB &
+  &, 0.151929E+00_JPRB, 0.143608E+00_JPRB, 0.135596E+00_JPRB, 0.127885E+00_JPRB &
+  &, 0.120487E+00_JPRB, 0.113415E+00_JPRB, 0.106631E+00_JPRB &
+  &, 0.100142E+00_JPRB, 0.939558E-01_JPRB, 0.880512E-01_JPRB, 0.824310E-01_JPRB &
+  &, 0.770706E-01_JPRB, 0.719953E-01_JPRB, 0.671767E-01_JPRB &
+  &, 0.626107E-01_JPRB, 0.582918E-01_JPRB, 0.542130E-01_JPRB, 0.503655E-01_JPRB &
+  &, 0.467392E-01_JPRB, 0.433219E-01_JPRB, 0.401001E-01_JPRB &
+  &, 0.370897E-01_JPRB, 0.342749E-01_JPRB, 0.316054E-01_JPRB, 0.291265E-01_JPRB &
+  &, 0.268183E-01_JPRB, 0.246589E-01_JPRB, 0.226593E-01_JPRB &
+  &, 0.207951E-01_JPRB, 0.190761E-01_JPRB, 0.174382E-01_JPRB, 0.159632E-01_JPRB &
+  &, 0.145849E-01_JPRB, 0.133101E-01_JPRB, 0.121061E-01_JPRB &
+  &, 0.110184E-01_JPRB, 0.100131E-01_JPRB, 0.909583E-02_JPRB, 0.827187E-02_JPRB &
+  &, 0.750402E-02_JPRB, 0.679592E-02_JPRB, 0.610711E-02_JPRB &
+  &, 0.552906E-02_JPRB, 0.497656E-02_JPRB, 0.449772E-02_JPRB, 0.404954E-02_JPRB &
+  &, 0.363396E-02_JPRB, 0.325293E-02_JPRB, 0.290844E-02_JPRB &
+  &, 0.260253E-02_JPRB, 0.233725E-02_JPRB, 0.206338E-02_JPRB, 0.188497E-02_JPRB &
+  &, 0.164793E-02_JPRB, 0.145711E-02_JPRB, 0.131470E-02_JPRB &
+  &, 0.116782E-02_JPRB, 0.101642E-02_JPRB, 0.917135E-03_JPRB, 0.814800E-03_JPRB &
+  &, 0.709377E-03_JPRB, 0.600831E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 445, :) = (/ &
+  &  0.982791E+00_JPRB, 0.977487E+00_JPRB, 0.971791E+00_JPRB, 0.965706E+00_JPRB &
+  &, 0.959234E+00_JPRB, 0.952380E+00_JPRB, 0.945149E+00_JPRB &
+  &, 0.937544E+00_JPRB, 0.929571E+00_JPRB, 0.921235E+00_JPRB, 0.912542E+00_JPRB &
+  &, 0.903495E+00_JPRB, 0.894102E+00_JPRB, 0.884370E+00_JPRB &
+  &, 0.874305E+00_JPRB, 0.863915E+00_JPRB, 0.853206E+00_JPRB, 0.842186E+00_JPRB &
+  &, 0.830864E+00_JPRB, 0.819248E+00_JPRB, 0.807347E+00_JPRB &
+  &, 0.795174E+00_JPRB, 0.782738E+00_JPRB, 0.770046E+00_JPRB, 0.757111E+00_JPRB &
+  &, 0.743950E+00_JPRB, 0.730568E+00_JPRB, 0.716979E+00_JPRB &
+  &, 0.703199E+00_JPRB, 0.689244E+00_JPRB, 0.675119E+00_JPRB, 0.660850E+00_JPRB &
+  &, 0.646444E+00_JPRB, 0.631920E+00_JPRB, 0.617288E+00_JPRB &
+  &, 0.602567E+00_JPRB, 0.587778E+00_JPRB, 0.572940E+00_JPRB, 0.558059E+00_JPRB &
+  &, 0.543153E+00_JPRB, 0.528253E+00_JPRB, 0.513352E+00_JPRB &
+  &, 0.498497E+00_JPRB, 0.483683E+00_JPRB, 0.468928E+00_JPRB, 0.454251E+00_JPRB &
+  &, 0.439672E+00_JPRB, 0.425212E+00_JPRB, 0.410882E+00_JPRB &
+  &, 0.396688E+00_JPRB, 0.382655E+00_JPRB, 0.368803E+00_JPRB, 0.355128E+00_JPRB &
+  &, 0.341664E+00_JPRB, 0.328419E+00_JPRB, 0.315384E+00_JPRB &
+  &, 0.302593E+00_JPRB, 0.290049E+00_JPRB, 0.277771E+00_JPRB, 0.265760E+00_JPRB &
+  &, 0.254030E+00_JPRB, 0.242579E+00_JPRB, 0.231402E+00_JPRB &
+  &, 0.220546E+00_JPRB, 0.209984E+00_JPRB, 0.199725E+00_JPRB, 0.189793E+00_JPRB &
+  &, 0.180154E+00_JPRB, 0.170831E+00_JPRB, 0.161844E+00_JPRB &
+  &, 0.153152E+00_JPRB, 0.144792E+00_JPRB, 0.136739E+00_JPRB, 0.128985E+00_JPRB &
+  &, 0.121564E+00_JPRB, 0.114443E+00_JPRB, 0.107608E+00_JPRB &
+  &, 0.101091E+00_JPRB, 0.948737E-01_JPRB, 0.889113E-01_JPRB, 0.832565E-01_JPRB &
+  &, 0.778859E-01_JPRB, 0.727728E-01_JPRB, 0.679145E-01_JPRB &
+  &, 0.633069E-01_JPRB, 0.589444E-01_JPRB, 0.548489E-01_JPRB, 0.509545E-01_JPRB &
+  &, 0.473090E-01_JPRB, 0.438412E-01_JPRB, 0.405977E-01_JPRB &
+  &, 0.375646E-01_JPRB, 0.347262E-01_JPRB, 0.320319E-01_JPRB, 0.295272E-01_JPRB &
+  &, 0.271921E-01_JPRB, 0.250392E-01_JPRB, 0.230110E-01_JPRB &
+  &, 0.211171E-01_JPRB, 0.193308E-01_JPRB, 0.177342E-01_JPRB, 0.161889E-01_JPRB &
+  &, 0.148144E-01_JPRB, 0.135045E-01_JPRB, 0.123038E-01_JPRB &
+  &, 0.112192E-01_JPRB, 0.102173E-01_JPRB, 0.926178E-02_JPRB, 0.839833E-02_JPRB &
+  &, 0.763248E-02_JPRB, 0.688291E-02_JPRB, 0.623965E-02_JPRB &
+  &, 0.561880E-02_JPRB, 0.506769E-02_JPRB, 0.459025E-02_JPRB, 0.414349E-02_JPRB &
+  &, 0.372933E-02_JPRB, 0.334973E-02_JPRB, 0.300669E-02_JPRB &
+  &, 0.265238E-02_JPRB, 0.238784E-02_JPRB, 0.211471E-02_JPRB, 0.188497E-02_JPRB &
+  &, 0.170077E-02_JPRB, 0.151070E-02_JPRB, 0.131470E-02_JPRB &
+  &, 0.116782E-02_JPRB, 0.107233E-02_JPRB, 0.917135E-03_JPRB, 0.814800E-03_JPRB &
+  &, 0.709377E-03_JPRB, 0.659914E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 446, :) = (/ &
+  &  0.983042E+00_JPRB, 0.977799E+00_JPRB, 0.972164E+00_JPRB, 0.966140E+00_JPRB &
+  &, 0.959727E+00_JPRB, 0.952933E+00_JPRB, 0.945760E+00_JPRB &
+  &, 0.938213E+00_JPRB, 0.930297E+00_JPRB, 0.922017E+00_JPRB, 0.913379E+00_JPRB &
+  &, 0.904386E+00_JPRB, 0.895048E+00_JPRB, 0.885368E+00_JPRB &
+  &, 0.875354E+00_JPRB, 0.865012E+00_JPRB, 0.854352E+00_JPRB, 0.843379E+00_JPRB &
+  &, 0.832104E+00_JPRB, 0.820533E+00_JPRB, 0.808677E+00_JPRB &
+  &, 0.796546E+00_JPRB, 0.784149E+00_JPRB, 0.771497E+00_JPRB, 0.758600E+00_JPRB &
+  &, 0.745474E+00_JPRB, 0.732125E+00_JPRB, 0.718570E+00_JPRB &
+  &, 0.704826E+00_JPRB, 0.690895E+00_JPRB, 0.676803E+00_JPRB, 0.662555E+00_JPRB &
+  &, 0.648175E+00_JPRB, 0.633668E+00_JPRB, 0.619057E+00_JPRB &
+  &, 0.604362E+00_JPRB, 0.589590E+00_JPRB, 0.574759E+00_JPRB, 0.559884E+00_JPRB &
+  &, 0.544993E+00_JPRB, 0.530097E+00_JPRB, 0.515210E+00_JPRB &
+  &, 0.500346E+00_JPRB, 0.485533E+00_JPRB, 0.470778E+00_JPRB, 0.456099E+00_JPRB &
+  &, 0.441517E+00_JPRB, 0.427053E+00_JPRB, 0.412703E+00_JPRB &
+  &, 0.398502E+00_JPRB, 0.384458E+00_JPRB, 0.370595E+00_JPRB, 0.356906E+00_JPRB &
+  &, 0.343427E+00_JPRB, 0.330150E+00_JPRB, 0.317095E+00_JPRB &
+  &, 0.304282E+00_JPRB, 0.291714E+00_JPRB, 0.279410E+00_JPRB, 0.267370E+00_JPRB &
+  &, 0.255609E+00_JPRB, 0.244124E+00_JPRB, 0.232929E+00_JPRB &
+  &, 0.222034E+00_JPRB, 0.211431E+00_JPRB, 0.201146E+00_JPRB, 0.191168E+00_JPRB &
+  &, 0.181500E+00_JPRB, 0.172145E+00_JPRB, 0.163104E+00_JPRB &
+  &, 0.154375E+00_JPRB, 0.145977E+00_JPRB, 0.137882E+00_JPRB, 0.130106E+00_JPRB &
+  &, 0.122640E+00_JPRB, 0.115471E+00_JPRB, 0.108610E+00_JPRB &
+  &, 0.102039E+00_JPRB, 0.957915E-01_JPRB, 0.897968E-01_JPRB, 0.841078E-01_JPRB &
+  &, 0.786749E-01_JPRB, 0.735235E-01_JPRB, 0.686523E-01_JPRB &
+  &, 0.640031E-01_JPRB, 0.596254E-01_JPRB, 0.554849E-01_JPRB, 0.515729E-01_JPRB &
+  &, 0.478789E-01_JPRB, 0.443910E-01_JPRB, 0.411264E-01_JPRB &
+  &, 0.380396E-01_JPRB, 0.351775E-01_JPRB, 0.324585E-01_JPRB, 0.299279E-01_JPRB &
+  &, 0.275998E-01_JPRB, 0.253849E-01_JPRB, 0.233275E-01_JPRB &
+  &, 0.214033E-01_JPRB, 0.196582E-01_JPRB, 0.179932E-01_JPRB, 0.164523E-01_JPRB &
+  &, 0.150439E-01_JPRB, 0.137378E-01_JPRB, 0.125409E-01_JPRB &
+  &, 0.114201E-01_JPRB, 0.103806E-01_JPRB, 0.942773E-02_JPRB, 0.856694E-02_JPRB &
+  &, 0.776095E-02_JPRB, 0.701341E-02_JPRB, 0.637220E-02_JPRB &
+  &, 0.575341E-02_JPRB, 0.520438E-02_JPRB, 0.468278E-02_JPRB, 0.419046E-02_JPRB &
+  &, 0.377701E-02_JPRB, 0.339814E-02_JPRB, 0.305582E-02_JPRB &
+  &, 0.275210E-02_JPRB, 0.243844E-02_JPRB, 0.216605E-02_JPRB, 0.193705E-02_JPRB &
+  &, 0.175361E-02_JPRB, 0.156430E-02_JPRB, 0.136906E-02_JPRB &
+  &, 0.122295E-02_JPRB, 0.107233E-02_JPRB, 0.973831E-03_JPRB, 0.872285E-03_JPRB &
+  &, 0.767658E-03_JPRB, 0.659914E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 447, :) = (/ &
+  &  0.983292E+00_JPRB, 0.978112E+00_JPRB, 0.972537E+00_JPRB, 0.966573E+00_JPRB &
+  &, 0.960221E+00_JPRB, 0.953485E+00_JPRB, 0.946371E+00_JPRB &
+  &, 0.938881E+00_JPRB, 0.931023E+00_JPRB, 0.922799E+00_JPRB, 0.914216E+00_JPRB &
+  &, 0.905278E+00_JPRB, 0.895992E+00_JPRB, 0.886364E+00_JPRB &
+  &, 0.876402E+00_JPRB, 0.866111E+00_JPRB, 0.855499E+00_JPRB, 0.844575E+00_JPRB &
+  &, 0.833346E+00_JPRB, 0.821821E+00_JPRB, 0.810006E+00_JPRB &
+  &, 0.797919E+00_JPRB, 0.785563E+00_JPRB, 0.772951E+00_JPRB, 0.760092E+00_JPRB &
+  &, 0.747002E+00_JPRB, 0.733686E+00_JPRB, 0.720166E+00_JPRB &
+  &, 0.706448E+00_JPRB, 0.692550E+00_JPRB, 0.678483E+00_JPRB, 0.664264E+00_JPRB &
+  &, 0.649905E+00_JPRB, 0.635420E+00_JPRB, 0.620831E+00_JPRB &
+  &, 0.606148E+00_JPRB, 0.591392E+00_JPRB, 0.576577E+00_JPRB, 0.561718E+00_JPRB &
+  &, 0.546833E+00_JPRB, 0.531941E+00_JPRB, 0.517058E+00_JPRB &
+  &, 0.502207E+00_JPRB, 0.487395E+00_JPRB, 0.472640E+00_JPRB, 0.457959E+00_JPRB &
+  &, 0.443374E+00_JPRB, 0.428893E+00_JPRB, 0.414550E+00_JPRB &
+  &, 0.400328E+00_JPRB, 0.386275E+00_JPRB, 0.372387E+00_JPRB, 0.358684E+00_JPRB &
+  &, 0.345175E+00_JPRB, 0.331881E+00_JPRB, 0.318821E+00_JPRB &
+  &, 0.305971E+00_JPRB, 0.293379E+00_JPRB, 0.281049E+00_JPRB, 0.268979E+00_JPRB &
+  &, 0.257187E+00_JPRB, 0.245669E+00_JPRB, 0.234438E+00_JPRB &
+  &, 0.223522E+00_JPRB, 0.212878E+00_JPRB, 0.202568E+00_JPRB, 0.192543E+00_JPRB &
+  &, 0.182846E+00_JPRB, 0.173439E+00_JPRB, 0.164364E+00_JPRB &
+  &, 0.155619E+00_JPRB, 0.147161E+00_JPRB, 0.139047E+00_JPRB, 0.131228E+00_JPRB &
+  &, 0.123716E+00_JPRB, 0.116499E+00_JPRB, 0.109611E+00_JPRB &
+  &, 0.103012E+00_JPRB, 0.967094E-01_JPRB, 0.906823E-01_JPRB, 0.849591E-01_JPRB &
+  &, 0.794902E-01_JPRB, 0.743010E-01_JPRB, 0.693901E-01_JPRB &
+  &, 0.647271E-01_JPRB, 0.603064E-01_JPRB, 0.561209E-01_JPRB, 0.521618E-01_JPRB &
+  &, 0.484488E-01_JPRB, 0.449408E-01_JPRB, 0.416241E-01_JPRB &
+  &, 0.385462E-01_JPRB, 0.356288E-01_JPRB, 0.329178E-01_JPRB, 0.303620E-01_JPRB &
+  &, 0.279736E-01_JPRB, 0.257306E-01_JPRB, 0.236792E-01_JPRB &
+  &, 0.217252E-01_JPRB, 0.199493E-01_JPRB, 0.182523E-01_JPRB, 0.167157E-01_JPRB &
+  &, 0.152734E-01_JPRB, 0.139712E-01_JPRB, 0.127386E-01_JPRB &
+  &, 0.115808E-01_JPRB, 0.105439E-01_JPRB, 0.959368E-02_JPRB, 0.869339E-02_JPRB &
+  &, 0.788942E-02_JPRB, 0.714391E-02_JPRB, 0.646056E-02_JPRB &
+  &, 0.584315E-02_JPRB, 0.529551E-02_JPRB, 0.477531E-02_JPRB, 0.428440E-02_JPRB &
+  &, 0.387238E-02_JPRB, 0.344654E-02_JPRB, 0.310495E-02_JPRB &
+  &, 0.280195E-02_JPRB, 0.248903E-02_JPRB, 0.221738E-02_JPRB, 0.198914E-02_JPRB &
+  &, 0.175361E-02_JPRB, 0.156430E-02_JPRB, 0.142342E-02_JPRB &
+  &, 0.122295E-02_JPRB, 0.112824E-02_JPRB, 0.973831E-03_JPRB, 0.872285E-03_JPRB &
+  &, 0.767658E-03_JPRB, 0.659914E-03_JPRB, 0.608907E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 448, :) = (/ &
+  &  0.983540E+00_JPRB, 0.978425E+00_JPRB, 0.972910E+00_JPRB, 0.967007E+00_JPRB &
+  &, 0.960714E+00_JPRB, 0.954038E+00_JPRB, 0.946982E+00_JPRB &
+  &, 0.939551E+00_JPRB, 0.931749E+00_JPRB, 0.923581E+00_JPRB, 0.915053E+00_JPRB &
+  &, 0.906170E+00_JPRB, 0.896937E+00_JPRB, 0.887362E+00_JPRB &
+  &, 0.877452E+00_JPRB, 0.867210E+00_JPRB, 0.856648E+00_JPRB, 0.845771E+00_JPRB &
+  &, 0.834589E+00_JPRB, 0.823106E+00_JPRB, 0.811339E+00_JPRB &
+  &, 0.799292E+00_JPRB, 0.786977E+00_JPRB, 0.774405E+00_JPRB, 0.761584E+00_JPRB &
+  &, 0.748530E+00_JPRB, 0.735251E+00_JPRB, 0.721761E+00_JPRB &
+  &, 0.708075E+00_JPRB, 0.694208E+00_JPRB, 0.680167E+00_JPRB, 0.665973E+00_JPRB &
+  &, 0.651640E+00_JPRB, 0.637176E+00_JPRB, 0.622609E+00_JPRB &
+  &, 0.607943E+00_JPRB, 0.593204E+00_JPRB, 0.578396E+00_JPRB, 0.563553E+00_JPRB &
+  &, 0.548683E+00_JPRB, 0.533796E+00_JPRB, 0.518926E+00_JPRB &
+  &, 0.504067E+00_JPRB, 0.489257E+00_JPRB, 0.474501E+00_JPRB, 0.459819E+00_JPRB &
+  &, 0.445232E+00_JPRB, 0.430746E+00_JPRB, 0.416384E+00_JPRB &
+  &, 0.402155E+00_JPRB, 0.388092E+00_JPRB, 0.374192E+00_JPRB, 0.360477E+00_JPRB &
+  &, 0.346953E+00_JPRB, 0.333626E+00_JPRB, 0.320532E+00_JPRB &
+  &, 0.307676E+00_JPRB, 0.295060E+00_JPRB, 0.282704E+00_JPRB, 0.270606E+00_JPRB &
+  &, 0.258783E+00_JPRB, 0.247232E+00_JPRB, 0.235982E+00_JPRB &
+  &, 0.225010E+00_JPRB, 0.214343E+00_JPRB, 0.203990E+00_JPRB, 0.193938E+00_JPRB &
+  &, 0.184192E+00_JPRB, 0.174773E+00_JPRB, 0.165644E+00_JPRB &
+  &, 0.156863E+00_JPRB, 0.148367E+00_JPRB, 0.140190E+00_JPRB, 0.132350E+00_JPRB &
+  &, 0.124793E+00_JPRB, 0.117551E+00_JPRB, 0.110612E+00_JPRB &
+  &, 0.103985E+00_JPRB, 0.976273E-01_JPRB, 0.915930E-01_JPRB, 0.858104E-01_JPRB &
+  &, 0.803055E-01_JPRB, 0.751053E-01_JPRB, 0.701279E-01_JPRB &
+  &, 0.654233E-01_JPRB, 0.609874E-01_JPRB, 0.567569E-01_JPRB, 0.527802E-01_JPRB &
+  &, 0.490186E-01_JPRB, 0.454906E-01_JPRB, 0.421528E-01_JPRB &
+  &, 0.390212E-01_JPRB, 0.360801E-01_JPRB, 0.333443E-01_JPRB, 0.307627E-01_JPRB &
+  &, 0.283473E-01_JPRB, 0.261109E-01_JPRB, 0.239957E-01_JPRB &
+  &, 0.220472E-01_JPRB, 0.202404E-01_JPRB, 0.185483E-01_JPRB, 0.169791E-01_JPRB &
+  &, 0.155412E-01_JPRB, 0.141656E-01_JPRB, 0.129362E-01_JPRB &
+  &, 0.117817E-01_JPRB, 0.107481E-01_JPRB, 0.975963E-02_JPRB, 0.886200E-02_JPRB &
+  &, 0.806071E-02_JPRB, 0.727441E-02_JPRB, 0.659311E-02_JPRB &
+  &, 0.597776E-02_JPRB, 0.538664E-02_JPRB, 0.486784E-02_JPRB, 0.437834E-02_JPRB &
+  &, 0.392006E-02_JPRB, 0.354334E-02_JPRB, 0.320320E-02_JPRB &
+  &, 0.285181E-02_JPRB, 0.253962E-02_JPRB, 0.226872E-02_JPRB, 0.204122E-02_JPRB &
+  &, 0.180644E-02_JPRB, 0.161789E-02_JPRB, 0.142342E-02_JPRB &
+  &, 0.127809E-02_JPRB, 0.112824E-02_JPRB, 0.103053E-02_JPRB, 0.872285E-03_JPRB &
+  &, 0.767658E-03_JPRB, 0.718997E-03_JPRB, 0.608907E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART64',1,ZHOOK_HANDLE)
+END SUBROUTINE PART64
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART65
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART65',0,ZHOOK_HANDLE)
+
+XCW( 449, :) = (/ &
+  &  0.983793E+00_JPRB, 0.978736E+00_JPRB, 0.973283E+00_JPRB, 0.967440E+00_JPRB &
+  &, 0.961207E+00_JPRB, 0.954590E+00_JPRB, 0.947593E+00_JPRB &
+  &, 0.940219E+00_JPRB, 0.932475E+00_JPRB, 0.924363E+00_JPRB, 0.915891E+00_JPRB &
+  &, 0.907062E+00_JPRB, 0.897883E+00_JPRB, 0.888360E+00_JPRB &
+  &, 0.878501E+00_JPRB, 0.868310E+00_JPRB, 0.857797E+00_JPRB, 0.846968E+00_JPRB &
+  &, 0.835831E+00_JPRB, 0.824397E+00_JPRB, 0.812671E+00_JPRB &
+  &, 0.800668E+00_JPRB, 0.788391E+00_JPRB, 0.775859E+00_JPRB, 0.763076E+00_JPRB &
+  &, 0.750057E+00_JPRB, 0.736816E+00_JPRB, 0.723360E+00_JPRB &
+  &, 0.709705E+00_JPRB, 0.695867E+00_JPRB, 0.681855E+00_JPRB, 0.667686E+00_JPRB &
+  &, 0.653375E+00_JPRB, 0.638937E+00_JPRB, 0.624387E+00_JPRB &
+  &, 0.609738E+00_JPRB, 0.595016E+00_JPRB, 0.580225E+00_JPRB, 0.565398E+00_JPRB &
+  &, 0.550533E+00_JPRB, 0.535661E+00_JPRB, 0.520785E+00_JPRB &
+  &, 0.505939E+00_JPRB, 0.491130E+00_JPRB, 0.476374E+00_JPRB, 0.461680E+00_JPRB &
+  &, 0.447089E+00_JPRB, 0.432599E+00_JPRB, 0.418231E+00_JPRB &
+  &, 0.403994E+00_JPRB, 0.389909E+00_JPRB, 0.375998E+00_JPRB, 0.362255E+00_JPRB &
+  &, 0.348716E+00_JPRB, 0.335387E+00_JPRB, 0.322274E+00_JPRB &
+  &, 0.309381E+00_JPRB, 0.296741E+00_JPRB, 0.284358E+00_JPRB, 0.272232E+00_JPRB &
+  &, 0.260379E+00_JPRB, 0.248794E+00_JPRB, 0.237508E+00_JPRB &
+  &, 0.226516E+00_JPRB, 0.215809E+00_JPRB, 0.205412E+00_JPRB, 0.195333E+00_JPRB &
+  &, 0.185557E+00_JPRB, 0.176088E+00_JPRB, 0.166945E+00_JPRB &
+  &, 0.158108E+00_JPRB, 0.149572E+00_JPRB, 0.141377E+00_JPRB, 0.133472E+00_JPRB &
+  &, 0.125892E+00_JPRB, 0.118603E+00_JPRB, 0.111638E+00_JPRB &
+  &, 0.104958E+00_JPRB, 0.985700E-01_JPRB, 0.924785E-01_JPRB, 0.866875E-01_JPRB &
+  &, 0.811472E-01_JPRB, 0.758827E-01_JPRB, 0.708930E-01_JPRB &
+  &, 0.661473E-01_JPRB, 0.616684E-01_JPRB, 0.574218E-01_JPRB, 0.533986E-01_JPRB &
+  &, 0.496185E-01_JPRB, 0.460404E-01_JPRB, 0.426815E-01_JPRB &
+  &, 0.395279E-01_JPRB, 0.365636E-01_JPRB, 0.337708E-01_JPRB, 0.311967E-01_JPRB &
+  &, 0.287551E-01_JPRB, 0.264911E-01_JPRB, 0.243474E-01_JPRB &
+  &, 0.223692E-01_JPRB, 0.205315E-01_JPRB, 0.188443E-01_JPRB, 0.172424E-01_JPRB &
+  &, 0.157708E-01_JPRB, 0.143989E-01_JPRB, 0.131734E-01_JPRB &
+  &, 0.119826E-01_JPRB, 0.109114E-01_JPRB, 0.992558E-02_JPRB, 0.903061E-02_JPRB &
+  &, 0.818918E-02_JPRB, 0.740491E-02_JPRB, 0.672565E-02_JPRB &
+  &, 0.606750E-02_JPRB, 0.547777E-02_JPRB, 0.496037E-02_JPRB, 0.447229E-02_JPRB &
+  &, 0.401543E-02_JPRB, 0.359174E-02_JPRB, 0.325233E-02_JPRB &
+  &, 0.290166E-02_JPRB, 0.259021E-02_JPRB, 0.232005E-02_JPRB, 0.209330E-02_JPRB &
+  &, 0.185928E-02_JPRB, 0.167149E-02_JPRB, 0.147779E-02_JPRB &
+  &, 0.133322E-02_JPRB, 0.118415E-02_JPRB, 0.103053E-02_JPRB, 0.929771E-03_JPRB &
+  &, 0.825940E-03_JPRB, 0.718997E-03_JPRB, 0.608907E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 450, :) = (/ &
+  &  0.984044E+00_JPRB, 0.979046E+00_JPRB, 0.973655E+00_JPRB, 0.967874E+00_JPRB &
+  &, 0.961700E+00_JPRB, 0.955144E+00_JPRB, 0.948204E+00_JPRB &
+  &, 0.940889E+00_JPRB, 0.933201E+00_JPRB, 0.925146E+00_JPRB, 0.916729E+00_JPRB &
+  &, 0.907954E+00_JPRB, 0.898829E+00_JPRB, 0.889359E+00_JPRB &
+  &, 0.879550E+00_JPRB, 0.869410E+00_JPRB, 0.858946E+00_JPRB, 0.848165E+00_JPRB &
+  &, 0.837026E+00_JPRB, 0.825685E+00_JPRB, 0.814004E+00_JPRB &
+  &, 0.802044E+00_JPRB, 0.789809E+00_JPRB, 0.777317E+00_JPRB, 0.764572E+00_JPRB &
+  &, 0.751592E+00_JPRB, 0.738384E+00_JPRB, 0.724959E+00_JPRB &
+  &, 0.711336E+00_JPRB, 0.697526E+00_JPRB, 0.683542E+00_JPRB, 0.669399E+00_JPRB &
+  &, 0.655114E+00_JPRB, 0.640698E+00_JPRB, 0.626169E+00_JPRB &
+  &, 0.611542E+00_JPRB, 0.596828E+00_JPRB, 0.582063E+00_JPRB, 0.567242E+00_JPRB &
+  &, 0.552383E+00_JPRB, 0.537516E+00_JPRB, 0.522654E+00_JPRB &
+  &, 0.507811E+00_JPRB, 0.493003E+00_JPRB, 0.478236E+00_JPRB, 0.463552E+00_JPRB &
+  &, 0.448958E+00_JPRB, 0.434465E+00_JPRB, 0.420078E+00_JPRB &
+  &, 0.405834E+00_JPRB, 0.391739E+00_JPRB, 0.377790E+00_JPRB, 0.364062E+00_JPRB &
+  &, 0.350493E+00_JPRB, 0.337147E+00_JPRB, 0.324000E+00_JPRB &
+  &, 0.311101E+00_JPRB, 0.298438E+00_JPRB, 0.286013E+00_JPRB, 0.273859E+00_JPRB &
+  &, 0.261974E+00_JPRB, 0.250374E+00_JPRB, 0.239053E+00_JPRB &
+  &, 0.228022E+00_JPRB, 0.217292E+00_JPRB, 0.206853E+00_JPRB, 0.196728E+00_JPRB &
+  &, 0.186923E+00_JPRB, 0.177422E+00_JPRB, 0.168225E+00_JPRB &
+  &, 0.159352E+00_JPRB, 0.150800E+00_JPRB, 0.142542E+00_JPRB, 0.134617E+00_JPRB &
+  &, 0.126991E+00_JPRB, 0.119677E+00_JPRB, 0.112663E+00_JPRB &
+  &, 0.105931E+00_JPRB, 0.995127E-01_JPRB, 0.933893E-01_JPRB, 0.875388E-01_JPRB &
+  &, 0.819888E-01_JPRB, 0.766870E-01_JPRB, 0.716581E-01_JPRB &
+  &, 0.668713E-01_JPRB, 0.623494E-01_JPRB, 0.580867E-01_JPRB, 0.540170E-01_JPRB &
+  &, 0.502184E-01_JPRB, 0.466207E-01_JPRB, 0.432103E-01_JPRB &
+  &, 0.400345E-01_JPRB, 0.370471E-01_JPRB, 0.342302E-01_JPRB, 0.315974E-01_JPRB &
+  &, 0.291288E-01_JPRB, 0.268368E-01_JPRB, 0.246991E-01_JPRB &
+  &, 0.226912E-01_JPRB, 0.208590E-01_JPRB, 0.191033E-01_JPRB, 0.175058E-01_JPRB &
+  &, 0.160385E-01_JPRB, 0.146323E-01_JPRB, 0.133711E-01_JPRB &
+  &, 0.121835E-01_JPRB, 0.111155E-01_JPRB, 0.100915E-01_JPRB, 0.919922E-02_JPRB &
+  &, 0.831765E-02_JPRB, 0.757891E-02_JPRB, 0.685820E-02_JPRB &
+  &, 0.620211E-02_JPRB, 0.561447E-02_JPRB, 0.505290E-02_JPRB, 0.456623E-02_JPRB &
+  &, 0.411080E-02_JPRB, 0.368855E-02_JPRB, 0.330145E-02_JPRB &
+  &, 0.295152E-02_JPRB, 0.264081E-02_JPRB, 0.237139E-02_JPRB, 0.214538E-02_JPRB &
+  &, 0.191211E-02_JPRB, 0.167149E-02_JPRB, 0.153215E-02_JPRB &
+  &, 0.133322E-02_JPRB, 0.118415E-02_JPRB, 0.103053E-02_JPRB, 0.929771E-03_JPRB &
+  &, 0.825940E-03_JPRB, 0.718997E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 451, :) = (/ &
+  &  0.984293E+00_JPRB, 0.979361E+00_JPRB, 0.974029E+00_JPRB, 0.968307E+00_JPRB &
+  &, 0.962194E+00_JPRB, 0.955696E+00_JPRB, 0.948816E+00_JPRB &
+  &, 0.941558E+00_JPRB, 0.933928E+00_JPRB, 0.925929E+00_JPRB, 0.917567E+00_JPRB &
+  &, 0.908847E+00_JPRB, 0.899776E+00_JPRB, 0.890357E+00_JPRB &
+  &, 0.880601E+00_JPRB, 0.870510E+00_JPRB, 0.860096E+00_JPRB, 0.849363E+00_JPRB &
+  &, 0.838320E+00_JPRB, 0.826976E+00_JPRB, 0.815340E+00_JPRB &
+  &, 0.803419E+00_JPRB, 0.791230E+00_JPRB, 0.778774E+00_JPRB, 0.766071E+00_JPRB &
+  &, 0.753123E+00_JPRB, 0.739952E+00_JPRB, 0.726562E+00_JPRB &
+  &, 0.712970E+00_JPRB, 0.699189E+00_JPRB, 0.685234E+00_JPRB, 0.671117E+00_JPRB &
+  &, 0.656857E+00_JPRB, 0.642463E+00_JPRB, 0.627952E+00_JPRB &
+  &, 0.613347E+00_JPRB, 0.598650E+00_JPRB, 0.583892E+00_JPRB, 0.569087E+00_JPRB &
+  &, 0.554244E+00_JPRB, 0.539381E+00_JPRB, 0.524523E+00_JPRB &
+  &, 0.509682E+00_JPRB, 0.494876E+00_JPRB, 0.480121E+00_JPRB, 0.465436E+00_JPRB &
+  &, 0.450828E+00_JPRB, 0.436318E+00_JPRB, 0.421938E+00_JPRB &
+  &, 0.407687E+00_JPRB, 0.393570E+00_JPRB, 0.379623E+00_JPRB, 0.365855E+00_JPRB &
+  &, 0.352285E+00_JPRB, 0.338908E+00_JPRB, 0.325757E+00_JPRB &
+  &, 0.312821E+00_JPRB, 0.300135E+00_JPRB, 0.287684E+00_JPRB, 0.275502E+00_JPRB &
+  &, 0.263587E+00_JPRB, 0.251953E+00_JPRB, 0.240597E+00_JPRB &
+  &, 0.229547E+00_JPRB, 0.218776E+00_JPRB, 0.208312E+00_JPRB, 0.198142E+00_JPRB &
+  &, 0.188308E+00_JPRB, 0.178756E+00_JPRB, 0.169526E+00_JPRB &
+  &, 0.160617E+00_JPRB, 0.152027E+00_JPRB, 0.143730E+00_JPRB, 0.135761E+00_JPRB &
+  &, 0.128090E+00_JPRB, 0.120752E+00_JPRB, 0.113688E+00_JPRB &
+  &, 0.106928E+00_JPRB, 0.100480E+00_JPRB, 0.943001E-01_JPRB, 0.884159E-01_JPRB &
+  &, 0.828304E-01_JPRB, 0.774914E-01_JPRB, 0.724232E-01_JPRB &
+  &, 0.676232E-01_JPRB, 0.630588E-01_JPRB, 0.587516E-01_JPRB, 0.546649E-01_JPRB &
+  &, 0.508182E-01_JPRB, 0.471705E-01_JPRB, 0.437701E-01_JPRB &
+  &, 0.405411E-01_JPRB, 0.375306E-01_JPRB, 0.346895E-01_JPRB, 0.320315E-01_JPRB &
+  &, 0.295366E-01_JPRB, 0.272171E-01_JPRB, 0.250508E-01_JPRB &
+  &, 0.230489E-01_JPRB, 0.211501E-01_JPRB, 0.193993E-01_JPRB, 0.177692E-01_JPRB &
+  &, 0.162681E-01_JPRB, 0.148656E-01_JPRB, 0.136082E-01_JPRB &
+  &, 0.123844E-01_JPRB, 0.112789E-01_JPRB, 0.102990E-01_JPRB, 0.932568E-02_JPRB &
+  &, 0.848894E-02_JPRB, 0.770940E-02_JPRB, 0.699075E-02_JPRB &
+  &, 0.629185E-02_JPRB, 0.570560E-02_JPRB, 0.514543E-02_JPRB, 0.466017E-02_JPRB &
+  &, 0.420617E-02_JPRB, 0.378535E-02_JPRB, 0.339970E-02_JPRB &
+  &, 0.305123E-02_JPRB, 0.274199E-02_JPRB, 0.242272E-02_JPRB, 0.219747E-02_JPRB &
+  &, 0.196495E-02_JPRB, 0.172509E-02_JPRB, 0.153215E-02_JPRB &
+  &, 0.138836E-02_JPRB, 0.124007E-02_JPRB, 0.108722E-02_JPRB, 0.987257E-03_JPRB &
+  &, 0.825940E-03_JPRB, 0.718997E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 452, :) = (/ &
+  &  0.984545E+00_JPRB, 0.979672E+00_JPRB, 0.974401E+00_JPRB, 0.968740E+00_JPRB &
+  &, 0.962687E+00_JPRB, 0.956249E+00_JPRB, 0.949427E+00_JPRB &
+  &, 0.942227E+00_JPRB, 0.934654E+00_JPRB, 0.926711E+00_JPRB, 0.918405E+00_JPRB &
+  &, 0.909740E+00_JPRB, 0.900722E+00_JPRB, 0.891357E+00_JPRB &
+  &, 0.881652E+00_JPRB, 0.871612E+00_JPRB, 0.861247E+00_JPRB, 0.850561E+00_JPRB &
+  &, 0.839567E+00_JPRB, 0.828268E+00_JPRB, 0.816676E+00_JPRB &
+  &, 0.804799E+00_JPRB, 0.792648E+00_JPRB, 0.780235E+00_JPRB, 0.767566E+00_JPRB &
+  &, 0.754658E+00_JPRB, 0.741521E+00_JPRB, 0.728164E+00_JPRB &
+  &, 0.714605E+00_JPRB, 0.700856E+00_JPRB, 0.686926E+00_JPRB, 0.672839E+00_JPRB &
+  &, 0.658600E+00_JPRB, 0.644228E+00_JPRB, 0.629739E+00_JPRB &
+  &, 0.615151E+00_JPRB, 0.600471E+00_JPRB, 0.585730E+00_JPRB, 0.570932E+00_JPRB &
+  &, 0.556104E+00_JPRB, 0.541257E+00_JPRB, 0.526402E+00_JPRB &
+  &, 0.511565E+00_JPRB, 0.496760E+00_JPRB, 0.482006E+00_JPRB, 0.467308E+00_JPRB &
+  &, 0.452697E+00_JPRB, 0.438196E+00_JPRB, 0.423798E+00_JPRB &
+  &, 0.409539E+00_JPRB, 0.395414E+00_JPRB, 0.381456E+00_JPRB, 0.367675E+00_JPRB &
+  &, 0.354077E+00_JPRB, 0.340683E+00_JPRB, 0.327498E+00_JPRB &
+  &, 0.314541E+00_JPRB, 0.301832E+00_JPRB, 0.289356E+00_JPRB, 0.277145E+00_JPRB &
+  &, 0.265217E+00_JPRB, 0.253550E+00_JPRB, 0.242159E+00_JPRB &
+  &, 0.231071E+00_JPRB, 0.220260E+00_JPRB, 0.209772E+00_JPRB, 0.199575E+00_JPRB &
+  &, 0.189674E+00_JPRB, 0.180111E+00_JPRB, 0.170848E+00_JPRB &
+  &, 0.161882E+00_JPRB, 0.153254E+00_JPRB, 0.144939E+00_JPRB, 0.136928E+00_JPRB &
+  &, 0.129212E+00_JPRB, 0.121827E+00_JPRB, 0.114737E+00_JPRB &
+  &, 0.107925E+00_JPRB, 0.101448E+00_JPRB, 0.952361E-01_JPRB, 0.893188E-01_JPRB &
+  &, 0.836720E-01_JPRB, 0.782957E-01_JPRB, 0.731883E-01_JPRB &
+  &, 0.683472E-01_JPRB, 0.637681E-01_JPRB, 0.594164E-01_JPRB, 0.552833E-01_JPRB &
+  &, 0.514181E-01_JPRB, 0.477509E-01_JPRB, 0.442988E-01_JPRB &
+  &, 0.410478E-01_JPRB, 0.380141E-01_JPRB, 0.351488E-01_JPRB, 0.324656E-01_JPRB &
+  &, 0.299443E-01_JPRB, 0.275974E-01_JPRB, 0.254025E-01_JPRB &
+  &, 0.233709E-01_JPRB, 0.214775E-01_JPRB, 0.196954E-01_JPRB, 0.180702E-01_JPRB &
+  &, 0.165358E-01_JPRB, 0.151378E-01_JPRB, 0.138059E-01_JPRB &
+  &, 0.125852E-01_JPRB, 0.114830E-01_JPRB, 0.104649E-01_JPRB, 0.949429E-02_JPRB &
+  &, 0.866024E-02_JPRB, 0.783990E-02_JPRB, 0.712329E-02_JPRB &
+  &, 0.642646E-02_JPRB, 0.579673E-02_JPRB, 0.523796E-02_JPRB, 0.475411E-02_JPRB &
+  &, 0.425385E-02_JPRB, 0.383375E-02_JPRB, 0.344883E-02_JPRB &
+  &, 0.310109E-02_JPRB, 0.279258E-02_JPRB, 0.247406E-02_JPRB, 0.224955E-02_JPRB &
+  &, 0.201779E-02_JPRB, 0.177868E-02_JPRB, 0.158651E-02_JPRB &
+  &, 0.138836E-02_JPRB, 0.124007E-02_JPRB, 0.108722E-02_JPRB, 0.987257E-03_JPRB &
+  &, 0.884221E-03_JPRB, 0.778080E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 453, :) = (/ &
+  &  0.984792E+00_JPRB, 0.979983E+00_JPRB, 0.974775E+00_JPRB, 0.969174E+00_JPRB &
+  &, 0.963181E+00_JPRB, 0.956801E+00_JPRB, 0.950039E+00_JPRB &
+  &, 0.942897E+00_JPRB, 0.935381E+00_JPRB, 0.927495E+00_JPRB, 0.919244E+00_JPRB &
+  &, 0.910634E+00_JPRB, 0.901669E+00_JPRB, 0.892357E+00_JPRB &
+  &, 0.882702E+00_JPRB, 0.872714E+00_JPRB, 0.862398E+00_JPRB, 0.851761E+00_JPRB &
+  &, 0.840812E+00_JPRB, 0.829559E+00_JPRB, 0.818012E+00_JPRB &
+  &, 0.806178E+00_JPRB, 0.794069E+00_JPRB, 0.781696E+00_JPRB, 0.769069E+00_JPRB &
+  &, 0.756197E+00_JPRB, 0.743093E+00_JPRB, 0.729771E+00_JPRB &
+  &, 0.716243E+00_JPRB, 0.702523E+00_JPRB, 0.688622E+00_JPRB, 0.674560E+00_JPRB &
+  &, 0.660348E+00_JPRB, 0.645998E+00_JPRB, 0.631531E+00_JPRB &
+  &, 0.616956E+00_JPRB, 0.602302E+00_JPRB, 0.587568E+00_JPRB, 0.572786E+00_JPRB &
+  &, 0.557964E+00_JPRB, 0.543122E+00_JPRB, 0.528282E+00_JPRB &
+  &, 0.513448E+00_JPRB, 0.498645E+00_JPRB, 0.483890E+00_JPRB, 0.469192E+00_JPRB &
+  &, 0.454579E+00_JPRB, 0.440074E+00_JPRB, 0.425671E+00_JPRB &
+  &, 0.411392E+00_JPRB, 0.397258E+00_JPRB, 0.383290E+00_JPRB, 0.369482E+00_JPRB &
+  &, 0.355869E+00_JPRB, 0.342458E+00_JPRB, 0.329254E+00_JPRB &
+  &, 0.316277E+00_JPRB, 0.303544E+00_JPRB, 0.291043E+00_JPRB, 0.278805E+00_JPRB &
+  &, 0.266829E+00_JPRB, 0.255130E+00_JPRB, 0.243721E+00_JPRB &
+  &, 0.232595E+00_JPRB, 0.221763E+00_JPRB, 0.211232E+00_JPRB, 0.200989E+00_JPRB &
+  &, 0.191079E+00_JPRB, 0.181466E+00_JPRB, 0.172149E+00_JPRB &
+  &, 0.163169E+00_JPRB, 0.154503E+00_JPRB, 0.146126E+00_JPRB, 0.138072E+00_JPRB &
+  &, 0.130334E+00_JPRB, 0.122902E+00_JPRB, 0.115762E+00_JPRB &
+  &, 0.108947E+00_JPRB, 0.102415E+00_JPRB, 0.961469E-01_JPRB, 0.901959E-01_JPRB &
+  &, 0.845136E-01_JPRB, 0.791268E-01_JPRB, 0.739808E-01_JPRB &
+  &, 0.690991E-01_JPRB, 0.644775E-01_JPRB, 0.600813E-01_JPRB, 0.559311E-01_JPRB &
+  &, 0.520179E-01_JPRB, 0.483312E-01_JPRB, 0.448586E-01_JPRB &
+  &, 0.415861E-01_JPRB, 0.384976E-01_JPRB, 0.356082E-01_JPRB, 0.328997E-01_JPRB &
+  &, 0.303520E-01_JPRB, 0.279777E-01_JPRB, 0.257894E-01_JPRB &
+  &, 0.237286E-01_JPRB, 0.218050E-01_JPRB, 0.199914E-01_JPRB, 0.183336E-01_JPRB &
+  &, 0.168036E-01_JPRB, 0.153712E-01_JPRB, 0.140431E-01_JPRB &
+  &, 0.128263E-01_JPRB, 0.116871E-01_JPRB, 0.106309E-01_JPRB, 0.966290E-02_JPRB &
+  &, 0.878870E-02_JPRB, 0.797040E-02_JPRB, 0.725584E-02_JPRB &
+  &, 0.656107E-02_JPRB, 0.593342E-02_JPRB, 0.537675E-02_JPRB, 0.484806E-02_JPRB &
+  &, 0.434922E-02_JPRB, 0.393056E-02_JPRB, 0.354708E-02_JPRB &
+  &, 0.315095E-02_JPRB, 0.284318E-02_JPRB, 0.252539E-02_JPRB, 0.230163E-02_JPRB &
+  &, 0.201779E-02_JPRB, 0.183228E-02_JPRB, 0.164087E-02_JPRB &
+  &, 0.144349E-02_JPRB, 0.129598E-02_JPRB, 0.114392E-02_JPRB, 0.987257E-03_JPRB &
+  &, 0.884221E-03_JPRB, 0.778080E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.563715E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 454, :) = (/ &
+  &  0.985044E+00_JPRB, 0.980297E+00_JPRB, 0.975147E+00_JPRB, 0.969607E+00_JPRB &
+  &, 0.963674E+00_JPRB, 0.957354E+00_JPRB, 0.950651E+00_JPRB &
+  &, 0.943567E+00_JPRB, 0.936108E+00_JPRB, 0.928279E+00_JPRB, 0.920083E+00_JPRB &
+  &, 0.911527E+00_JPRB, 0.902616E+00_JPRB, 0.893356E+00_JPRB &
+  &, 0.883755E+00_JPRB, 0.873817E+00_JPRB, 0.863550E+00_JPRB, 0.852963E+00_JPRB &
+  &, 0.842060E+00_JPRB, 0.830853E+00_JPRB, 0.819348E+00_JPRB &
+  &, 0.807561E+00_JPRB, 0.795493E+00_JPRB, 0.783158E+00_JPRB, 0.770568E+00_JPRB &
+  &, 0.757736E+00_JPRB, 0.744665E+00_JPRB, 0.731378E+00_JPRB &
+  &, 0.717881E+00_JPRB, 0.704194E+00_JPRB, 0.690323E+00_JPRB, 0.676286E+00_JPRB &
+  &, 0.662096E+00_JPRB, 0.647772E+00_JPRB, 0.633327E+00_JPRB &
+  &, 0.618769E+00_JPRB, 0.604133E+00_JPRB, 0.589416E+00_JPRB, 0.574651E+00_JPRB &
+  &, 0.559835E+00_JPRB, 0.544998E+00_JPRB, 0.530162E+00_JPRB &
+  &, 0.515330E+00_JPRB, 0.500540E+00_JPRB, 0.485775E+00_JPRB, 0.471088E+00_JPRB &
+  &, 0.456473E+00_JPRB, 0.441952E+00_JPRB, 0.427531E+00_JPRB &
+  &, 0.413258E+00_JPRB, 0.399115E+00_JPRB, 0.385123E+00_JPRB, 0.371303E+00_JPRB &
+  &, 0.357676E+00_JPRB, 0.344248E+00_JPRB, 0.331026E+00_JPRB &
+  &, 0.318028E+00_JPRB, 0.305257E+00_JPRB, 0.292730E+00_JPRB, 0.280464E+00_JPRB &
+  &, 0.268476E+00_JPRB, 0.256745E+00_JPRB, 0.245301E+00_JPRB &
+  &, 0.234138E+00_JPRB, 0.223265E+00_JPRB, 0.212691E+00_JPRB, 0.202423E+00_JPRB &
+  &, 0.192465E+00_JPRB, 0.182820E+00_JPRB, 0.173491E+00_JPRB &
+  &, 0.164455E+00_JPRB, 0.155731E+00_JPRB, 0.147335E+00_JPRB, 0.139239E+00_JPRB &
+  &, 0.131457E+00_JPRB, 0.124001E+00_JPRB, 0.116811E+00_JPRB &
+  &, 0.109944E+00_JPRB, 0.103383E+00_JPRB, 0.970830E-01_JPRB, 0.910988E-01_JPRB &
+  &, 0.853816E-01_JPRB, 0.799311E-01_JPRB, 0.747732E-01_JPRB &
+  &, 0.698510E-01_JPRB, 0.651869E-01_JPRB, 0.607751E-01_JPRB, 0.565790E-01_JPRB &
+  &, 0.526478E-01_JPRB, 0.489116E-01_JPRB, 0.454185E-01_JPRB &
+  &, 0.420927E-01_JPRB, 0.389811E-01_JPRB, 0.360675E-01_JPRB, 0.333337E-01_JPRB &
+  &, 0.307937E-01_JPRB, 0.283925E-01_JPRB, 0.261411E-01_JPRB &
+  &, 0.240506E-01_JPRB, 0.220961E-01_JPRB, 0.202874E-01_JPRB, 0.186346E-01_JPRB &
+  &, 0.170714E-01_JPRB, 0.156045E-01_JPRB, 0.142803E-01_JPRB &
+  &, 0.130272E-01_JPRB, 0.118913E-01_JPRB, 0.108383E-01_JPRB, 0.983151E-02_JPRB &
+  &, 0.896000E-02_JPRB, 0.814440E-02_JPRB, 0.738838E-02_JPRB &
+  &, 0.669569E-02_JPRB, 0.602455E-02_JPRB, 0.546928E-02_JPRB, 0.494200E-02_JPRB &
+  &, 0.444458E-02_JPRB, 0.402736E-02_JPRB, 0.359621E-02_JPRB &
+  &, 0.325066E-02_JPRB, 0.289377E-02_JPRB, 0.262806E-02_JPRB, 0.235371E-02_JPRB &
+  &, 0.207062E-02_JPRB, 0.188588E-02_JPRB, 0.164087E-02_JPRB &
+  &, 0.149863E-02_JPRB, 0.129598E-02_JPRB, 0.114392E-02_JPRB, 0.104474E-02_JPRB &
+  &, 0.942503E-03_JPRB, 0.837163E-03_JPRB, 0.728689E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.563715E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 455, :) = (/ &
+  &  0.985294E+00_JPRB, 0.980607E+00_JPRB, 0.975520E+00_JPRB, 0.970041E+00_JPRB &
+  &, 0.964168E+00_JPRB, 0.957907E+00_JPRB, 0.951262E+00_JPRB &
+  &, 0.944236E+00_JPRB, 0.936835E+00_JPRB, 0.929062E+00_JPRB, 0.920922E+00_JPRB &
+  &, 0.912420E+00_JPRB, 0.903565E+00_JPRB, 0.894357E+00_JPRB &
+  &, 0.884807E+00_JPRB, 0.874920E+00_JPRB, 0.864702E+00_JPRB, 0.854162E+00_JPRB &
+  &, 0.843309E+00_JPRB, 0.832147E+00_JPRB, 0.820687E+00_JPRB &
+  &, 0.808940E+00_JPRB, 0.796917E+00_JPRB, 0.784622E+00_JPRB, 0.772071E+00_JPRB &
+  &, 0.759274E+00_JPRB, 0.746241E+00_JPRB, 0.732988E+00_JPRB &
+  &, 0.719524E+00_JPRB, 0.705865E+00_JPRB, 0.692023E+00_JPRB, 0.678012E+00_JPRB &
+  &, 0.663852E+00_JPRB, 0.649546E+00_JPRB, 0.635123E+00_JPRB &
+  &, 0.620592E+00_JPRB, 0.605965E+00_JPRB, 0.591264E+00_JPRB, 0.576506E+00_JPRB &
+  &, 0.561706E+00_JPRB, 0.546884E+00_JPRB, 0.532053E+00_JPRB &
+  &, 0.517224E+00_JPRB, 0.502436E+00_JPRB, 0.487672E+00_JPRB, 0.472983E+00_JPRB &
+  &, 0.458367E+00_JPRB, 0.443830E+00_JPRB, 0.429416E+00_JPRB &
+  &, 0.415124E+00_JPRB, 0.400972E+00_JPRB, 0.386970E+00_JPRB, 0.373138E+00_JPRB &
+  &, 0.359482E+00_JPRB, 0.346038E+00_JPRB, 0.332783E+00_JPRB &
+  &, 0.319764E+00_JPRB, 0.306985E+00_JPRB, 0.294434E+00_JPRB, 0.282141E+00_JPRB &
+  &, 0.270106E+00_JPRB, 0.258359E+00_JPRB, 0.246881E+00_JPRB &
+  &, 0.235680E+00_JPRB, 0.224786E+00_JPRB, 0.214170E+00_JPRB, 0.203876E+00_JPRB &
+  &, 0.193870E+00_JPRB, 0.184195E+00_JPRB, 0.174812E+00_JPRB &
+  &, 0.165742E+00_JPRB, 0.157001E+00_JPRB, 0.148566E+00_JPRB, 0.140428E+00_JPRB &
+  &, 0.132602E+00_JPRB, 0.125099E+00_JPRB, 0.117884E+00_JPRB &
+  &, 0.110965E+00_JPRB, 0.104350E+00_JPRB, 0.980443E-01_JPRB, 0.920017E-01_JPRB &
+  &, 0.862495E-01_JPRB, 0.807622E-01_JPRB, 0.755657E-01_JPRB &
+  &, 0.706029E-01_JPRB, 0.658962E-01_JPRB, 0.614689E-01_JPRB, 0.572563E-01_JPRB &
+  &, 0.532777E-01_JPRB, 0.495225E-01_JPRB, 0.459783E-01_JPRB &
+  &, 0.426310E-01_JPRB, 0.394969E-01_JPRB, 0.365596E-01_JPRB, 0.338012E-01_JPRB &
+  &, 0.312015E-01_JPRB, 0.287728E-01_JPRB, 0.265280E-01_JPRB &
+  &, 0.244083E-01_JPRB, 0.224236E-01_JPRB, 0.206204E-01_JPRB, 0.188980E-01_JPRB &
+  &, 0.173392E-01_JPRB, 0.158378E-01_JPRB, 0.145174E-01_JPRB &
+  &, 0.132281E-01_JPRB, 0.120954E-01_JPRB, 0.110043E-01_JPRB, 0.100001E-01_JPRB &
+  &, 0.913129E-02_JPRB, 0.827490E-02_JPRB, 0.752093E-02_JPRB &
+  &, 0.678543E-02_JPRB, 0.616124E-02_JPRB, 0.556181E-02_JPRB, 0.503594E-02_JPRB &
+  &, 0.453995E-02_JPRB, 0.407576E-02_JPRB, 0.369446E-02_JPRB &
+  &, 0.330052E-02_JPRB, 0.294436E-02_JPRB, 0.267939E-02_JPRB, 0.240580E-02_JPRB &
+  &, 0.212346E-02_JPRB, 0.188588E-02_JPRB, 0.169523E-02_JPRB &
+  &, 0.149863E-02_JPRB, 0.135189E-02_JPRB, 0.120061E-02_JPRB, 0.104474E-02_JPRB &
+  &, 0.942503E-03_JPRB, 0.837163E-03_JPRB, 0.728689E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.563715E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART65',1,ZHOOK_HANDLE)
+END SUBROUTINE PART65
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART66
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART66',0,ZHOOK_HANDLE)
+
+XCW( 456, :) = (/ &
+  &  0.985545E+00_JPRB, 0.980919E+00_JPRB, 0.975893E+00_JPRB, 0.970474E+00_JPRB &
+  &, 0.964661E+00_JPRB, 0.958460E+00_JPRB, 0.951874E+00_JPRB &
+  &, 0.944907E+00_JPRB, 0.937562E+00_JPRB, 0.929844E+00_JPRB, 0.921762E+00_JPRB &
+  &, 0.913315E+00_JPRB, 0.904512E+00_JPRB, 0.895359E+00_JPRB &
+  &, 0.885860E+00_JPRB, 0.876024E+00_JPRB, 0.865856E+00_JPRB, 0.855365E+00_JPRB &
+  &, 0.844557E+00_JPRB, 0.833442E+00_JPRB, 0.822029E+00_JPRB &
+  &, 0.810326E+00_JPRB, 0.798342E+00_JPRB, 0.786087E+00_JPRB, 0.773577E+00_JPRB &
+  &, 0.760817E+00_JPRB, 0.747820E+00_JPRB, 0.734598E+00_JPRB &
+  &, 0.721170E+00_JPRB, 0.707539E+00_JPRB, 0.693727E+00_JPRB, 0.679742E+00_JPRB &
+  &, 0.665604E+00_JPRB, 0.651329E+00_JPRB, 0.636924E+00_JPRB &
+  &, 0.622406E+00_JPRB, 0.607805E+00_JPRB, 0.593112E+00_JPRB, 0.578371E+00_JPRB &
+  &, 0.563587E+00_JPRB, 0.548770E+00_JPRB, 0.533943E+00_JPRB &
+  &, 0.519129E+00_JPRB, 0.504332E+00_JPRB, 0.489580E+00_JPRB, 0.474879E+00_JPRB &
+  &, 0.460261E+00_JPRB, 0.445720E+00_JPRB, 0.431302E+00_JPRB &
+  &, 0.416990E+00_JPRB, 0.402829E+00_JPRB, 0.388817E+00_JPRB, 0.374972E+00_JPRB &
+  &, 0.361303E+00_JPRB, 0.347829E+00_JPRB, 0.334569E+00_JPRB &
+  &, 0.321515E+00_JPRB, 0.308714E+00_JPRB, 0.296137E+00_JPRB, 0.283817E+00_JPRB &
+  &, 0.271752E+00_JPRB, 0.259974E+00_JPRB, 0.248460E+00_JPRB &
+  &, 0.237241E+00_JPRB, 0.226307E+00_JPRB, 0.215668E+00_JPRB, 0.205329E+00_JPRB &
+  &, 0.195295E+00_JPRB, 0.185570E+00_JPRB, 0.176155E+00_JPRB &
+  &, 0.167049E+00_JPRB, 0.158250E+00_JPRB, 0.149775E+00_JPRB, 0.141617E+00_JPRB &
+  &, 0.133747E+00_JPRB, 0.126197E+00_JPRB, 0.118957E+00_JPRB &
+  &, 0.112011E+00_JPRB, 0.105342E+00_JPRB, 0.989804E-01_JPRB, 0.929046E-01_JPRB &
+  &, 0.871174E-01_JPRB, 0.815933E-01_JPRB, 0.763581E-01_JPRB &
+  &, 0.713826E-01_JPRB, 0.666340E-01_JPRB, 0.621627E-01_JPRB, 0.579041E-01_JPRB &
+  &, 0.539075E-01_JPRB, 0.501028E-01_JPRB, 0.465381E-01_JPRB &
+  &, 0.431693E-01_JPRB, 0.400126E-01_JPRB, 0.370190E-01_JPRB, 0.342353E-01_JPRB &
+  &, 0.316432E-01_JPRB, 0.291877E-01_JPRB, 0.268797E-01_JPRB &
+  &, 0.247661E-01_JPRB, 0.227874E-01_JPRB, 0.209164E-01_JPRB, 0.191990E-01_JPRB &
+  &, 0.176070E-01_JPRB, 0.161101E-01_JPRB, 0.147151E-01_JPRB &
+  &, 0.134691E-01_JPRB, 0.122996E-01_JPRB, 0.112117E-01_JPRB, 0.102109E-01_JPRB &
+  &, 0.925976E-02_JPRB, 0.840540E-02_JPRB, 0.765347E-02_JPRB &
+  &, 0.692004E-02_JPRB, 0.625237E-02_JPRB, 0.565435E-02_JPRB, 0.512989E-02_JPRB &
+  &, 0.463532E-02_JPRB, 0.417257E-02_JPRB, 0.374359E-02_JPRB &
+  &, 0.335037E-02_JPRB, 0.304555E-02_JPRB, 0.273073E-02_JPRB, 0.245788E-02_JPRB &
+  &, 0.217630E-02_JPRB, 0.193947E-02_JPRB, 0.174960E-02_JPRB &
+  &, 0.155376E-02_JPRB, 0.135189E-02_JPRB, 0.120061E-02_JPRB, 0.110223E-02_JPRB &
+  &, 0.942503E-03_JPRB, 0.837163E-03_JPRB, 0.728689E-03_JPRB &
+  &, 0.677748E-03_JPRB, 0.563715E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 457, :) = (/ &
+  &  0.985794E+00_JPRB, 0.981230E+00_JPRB, 0.976266E+00_JPRB, 0.970908E+00_JPRB &
+  &, 0.965155E+00_JPRB, 0.959014E+00_JPRB, 0.952486E+00_JPRB &
+  &, 0.945576E+00_JPRB, 0.938289E+00_JPRB, 0.930629E+00_JPRB, 0.922602E+00_JPRB &
+  &, 0.914210E+00_JPRB, 0.905461E+00_JPRB, 0.896360E+00_JPRB &
+  &, 0.886914E+00_JPRB, 0.877129E+00_JPRB, 0.867010E+00_JPRB, 0.856568E+00_JPRB &
+  &, 0.845808E+00_JPRB, 0.834739E+00_JPRB, 0.823368E+00_JPRB &
+  &, 0.811708E+00_JPRB, 0.799766E+00_JPRB, 0.787555E+00_JPRB, 0.775083E+00_JPRB &
+  &, 0.762359E+00_JPRB, 0.749400E+00_JPRB, 0.736213E+00_JPRB &
+  &, 0.722816E+00_JPRB, 0.709218E+00_JPRB, 0.695432E+00_JPRB, 0.681477E+00_JPRB &
+  &, 0.667365E+00_JPRB, 0.653107E+00_JPRB, 0.638725E+00_JPRB &
+  &, 0.624229E+00_JPRB, 0.609636E+00_JPRB, 0.594970E+00_JPRB, 0.580245E+00_JPRB &
+  &, 0.565468E+00_JPRB, 0.550657E+00_JPRB, 0.535845E+00_JPRB &
+  &, 0.521022E+00_JPRB, 0.506239E+00_JPRB, 0.491488E+00_JPRB, 0.476787E+00_JPRB &
+  &, 0.462155E+00_JPRB, 0.447623E+00_JPRB, 0.433188E+00_JPRB &
+  &, 0.418869E+00_JPRB, 0.404700E+00_JPRB, 0.390664E+00_JPRB, 0.376807E+00_JPRB &
+  &, 0.363124E+00_JPRB, 0.349633E+00_JPRB, 0.336341E+00_JPRB &
+  &, 0.323282E+00_JPRB, 0.310442E+00_JPRB, 0.297841E+00_JPRB, 0.285493E+00_JPRB &
+  &, 0.273416E+00_JPRB, 0.261588E+00_JPRB, 0.250058E+00_JPRB &
+  &, 0.238801E+00_JPRB, 0.227828E+00_JPRB, 0.217146E+00_JPRB, 0.206781E+00_JPRB &
+  &, 0.196720E+00_JPRB, 0.186945E+00_JPRB, 0.177497E+00_JPRB &
+  &, 0.168356E+00_JPRB, 0.159520E+00_JPRB, 0.151006E+00_JPRB, 0.142806E+00_JPRB &
+  &, 0.134914E+00_JPRB, 0.127319E+00_JPRB, 0.120030E+00_JPRB &
+  &, 0.113033E+00_JPRB, 0.106335E+00_JPRB, 0.999418E-01_JPRB, 0.938333E-01_JPRB &
+  &, 0.880116E-01_JPRB, 0.824512E-01_JPRB, 0.771779E-01_JPRB &
+  &, 0.721345E-01_JPRB, 0.673717E-01_JPRB, 0.628565E-01_JPRB, 0.585814E-01_JPRB &
+  &, 0.545374E-01_JPRB, 0.507137E-01_JPRB, 0.470980E-01_JPRB &
+  &, 0.437076E-01_JPRB, 0.405284E-01_JPRB, 0.375111E-01_JPRB, 0.347027E-01_JPRB &
+  &, 0.320509E-01_JPRB, 0.296025E-01_JPRB, 0.272665E-01_JPRB &
+  &, 0.251238E-01_JPRB, 0.231149E-01_JPRB, 0.212495E-01_JPRB, 0.195000E-01_JPRB &
+  &, 0.178747E-01_JPRB, 0.163823E-01_JPRB, 0.149523E-01_JPRB &
+  &, 0.136700E-01_JPRB, 0.125037E-01_JPRB, 0.113777E-01_JPRB, 0.103795E-01_JPRB &
+  &, 0.943105E-02_JPRB, 0.857939E-02_JPRB, 0.778602E-02_JPRB &
+  &, 0.705465E-02_JPRB, 0.638907E-02_JPRB, 0.579314E-02_JPRB, 0.522383E-02_JPRB &
+  &, 0.473069E-02_JPRB, 0.426937E-02_JPRB, 0.384184E-02_JPRB &
+  &, 0.345008E-02_JPRB, 0.309614E-02_JPRB, 0.278206E-02_JPRB, 0.250996E-02_JPRB &
+  &, 0.222913E-02_JPRB, 0.199307E-02_JPRB, 0.180396E-02_JPRB &
+  &, 0.160889E-02_JPRB, 0.140780E-02_JPRB, 0.125731E-02_JPRB, 0.110223E-02_JPRB &
+  &, 0.100078E-02_JPRB, 0.896246E-03_JPRB, 0.788580E-03_JPRB &
+  &, 0.677748E-03_JPRB, 0.625239E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 458, :) = (/ &
+  &  0.986045E+00_JPRB, 0.981543E+00_JPRB, 0.976640E+00_JPRB, 0.971341E+00_JPRB &
+  &, 0.965648E+00_JPRB, 0.959566E+00_JPRB, 0.953097E+00_JPRB &
+  &, 0.946246E+00_JPRB, 0.939016E+00_JPRB, 0.931414E+00_JPRB, 0.923442E+00_JPRB &
+  &, 0.915105E+00_JPRB, 0.906411E+00_JPRB, 0.897362E+00_JPRB &
+  &, 0.887968E+00_JPRB, 0.878233E+00_JPRB, 0.868165E+00_JPRB, 0.857771E+00_JPRB &
+  &, 0.847058E+00_JPRB, 0.836037E+00_JPRB, 0.824711E+00_JPRB &
+  &, 0.813094E+00_JPRB, 0.801194E+00_JPRB, 0.789023E+00_JPRB, 0.776589E+00_JPRB &
+  &, 0.763905E+00_JPRB, 0.750979E+00_JPRB, 0.737827E+00_JPRB &
+  &, 0.724462E+00_JPRB, 0.710897E+00_JPRB, 0.697140E+00_JPRB, 0.683211E+00_JPRB &
+  &, 0.669126E+00_JPRB, 0.654890E+00_JPRB, 0.640530E+00_JPRB &
+  &, 0.626052E+00_JPRB, 0.611486E+00_JPRB, 0.596828E+00_JPRB, 0.582110E+00_JPRB &
+  &, 0.567349E+00_JPRB, 0.552554E+00_JPRB, 0.537746E+00_JPRB &
+  &, 0.522938E+00_JPRB, 0.508146E+00_JPRB, 0.493396E+00_JPRB, 0.478695E+00_JPRB &
+  &, 0.464061E+00_JPRB, 0.449526E+00_JPRB, 0.435086E+00_JPRB &
+  &, 0.420761E+00_JPRB, 0.406571E+00_JPRB, 0.392525E+00_JPRB, 0.378656E+00_JPRB &
+  &, 0.364959E+00_JPRB, 0.351438E+00_JPRB, 0.338143E+00_JPRB &
+  &, 0.325048E+00_JPRB, 0.312187E+00_JPRB, 0.299561E+00_JPRB, 0.287186E+00_JPRB &
+  &, 0.275079E+00_JPRB, 0.263220E+00_JPRB, 0.251655E+00_JPRB &
+  &, 0.240362E+00_JPRB, 0.229368E+00_JPRB, 0.218663E+00_JPRB, 0.208254E+00_JPRB &
+  &, 0.198145E+00_JPRB, 0.188340E+00_JPRB, 0.178860E+00_JPRB &
+  &, 0.169685E+00_JPRB, 0.160812E+00_JPRB, 0.152259E+00_JPRB, 0.143996E+00_JPRB &
+  &, 0.136059E+00_JPRB, 0.128440E+00_JPRB, 0.121103E+00_JPRB &
+  &, 0.114079E+00_JPRB, 0.107352E+00_JPRB, 0.100903E+00_JPRB, 0.947619E-01_JPRB &
+  &, 0.889058E-01_JPRB, 0.833092E-01_JPRB, 0.779703E-01_JPRB &
+  &, 0.729142E-01_JPRB, 0.681095E-01_JPRB, 0.635503E-01_JPRB, 0.592587E-01_JPRB &
+  &, 0.551672E-01_JPRB, 0.513246E-01_JPRB, 0.476889E-01_JPRB &
+  &, 0.442459E-01_JPRB, 0.410441E-01_JPRB, 0.380032E-01_JPRB, 0.351702E-01_JPRB &
+  &, 0.324926E-01_JPRB, 0.299828E-01_JPRB, 0.276534E-01_JPRB &
+  &, 0.254816E-01_JPRB, 0.234424E-01_JPRB, 0.215455E-01_JPRB, 0.198010E-01_JPRB &
+  &, 0.181425E-01_JPRB, 0.166156E-01_JPRB, 0.152290E-01_JPRB &
+  &, 0.139111E-01_JPRB, 0.127079E-01_JPRB, 0.115851E-01_JPRB, 0.105481E-01_JPRB &
+  &, 0.960234E-02_JPRB, 0.870989E-02_JPRB, 0.791857E-02_JPRB &
+  &, 0.718926E-02_JPRB, 0.652576E-02_JPRB, 0.588567E-02_JPRB, 0.531777E-02_JPRB &
+  &, 0.482605E-02_JPRB, 0.431777E-02_JPRB, 0.389097E-02_JPRB &
+  &, 0.349994E-02_JPRB, 0.314673E-02_JPRB, 0.283340E-02_JPRB, 0.256204E-02_JPRB &
+  &, 0.228197E-02_JPRB, 0.204667E-02_JPRB, 0.180396E-02_JPRB &
+  &, 0.160889E-02_JPRB, 0.146372E-02_JPRB, 0.131401E-02_JPRB, 0.115971E-02_JPRB &
+  &, 0.100078E-02_JPRB, 0.896246E-03_JPRB, 0.788580E-03_JPRB &
+  &, 0.677748E-03_JPRB, 0.625239E-03_JPRB, 0.571145E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 459, :) = (/ &
+  &  0.986296E+00_JPRB, 0.981853E+00_JPRB, 0.977011E+00_JPRB, 0.971775E+00_JPRB &
+  &, 0.966142E+00_JPRB, 0.960120E+00_JPRB, 0.953710E+00_JPRB &
+  &, 0.946917E+00_JPRB, 0.939744E+00_JPRB, 0.932198E+00_JPRB, 0.924282E+00_JPRB &
+  &, 0.916001E+00_JPRB, 0.907359E+00_JPRB, 0.898365E+00_JPRB &
+  &, 0.889023E+00_JPRB, 0.879340E+00_JPRB, 0.869322E+00_JPRB, 0.858975E+00_JPRB &
+  &, 0.848311E+00_JPRB, 0.837335E+00_JPRB, 0.826053E+00_JPRB &
+  &, 0.814480E+00_JPRB, 0.802625E+00_JPRB, 0.790494E+00_JPRB, 0.778099E+00_JPRB &
+  &, 0.765451E+00_JPRB, 0.752562E+00_JPRB, 0.739445E+00_JPRB &
+  &, 0.726112E+00_JPRB, 0.712576E+00_JPRB, 0.698852E+00_JPRB, 0.684950E+00_JPRB &
+  &, 0.670886E+00_JPRB, 0.656678E+00_JPRB, 0.642340E+00_JPRB &
+  &, 0.627885E+00_JPRB, 0.613327E+00_JPRB, 0.598696E+00_JPRB, 0.583995E+00_JPRB &
+  &, 0.569240E+00_JPRB, 0.554451E+00_JPRB, 0.539647E+00_JPRB &
+  &, 0.524843E+00_JPRB, 0.510064E+00_JPRB, 0.495304E+00_JPRB, 0.480615E+00_JPRB &
+  &, 0.465979E+00_JPRB, 0.451429E+00_JPRB, 0.436984E+00_JPRB &
+  &, 0.422653E+00_JPRB, 0.408455E+00_JPRB, 0.394399E+00_JPRB, 0.380505E+00_JPRB &
+  &, 0.366794E+00_JPRB, 0.353258E+00_JPRB, 0.339930E+00_JPRB &
+  &, 0.326815E+00_JPRB, 0.313931E+00_JPRB, 0.301280E+00_JPRB, 0.288863E+00_JPRB &
+  &, 0.276743E+00_JPRB, 0.264869E+00_JPRB, 0.253271E+00_JPRB &
+  &, 0.241941E+00_JPRB, 0.230907E+00_JPRB, 0.220161E+00_JPRB, 0.209726E+00_JPRB &
+  &, 0.199590E+00_JPRB, 0.189755E+00_JPRB, 0.180223E+00_JPRB &
+  &, 0.170992E+00_JPRB, 0.162104E+00_JPRB, 0.153490E+00_JPRB, 0.145207E+00_JPRB &
+  &, 0.137227E+00_JPRB, 0.129562E+00_JPRB, 0.122199E+00_JPRB &
+  &, 0.115124E+00_JPRB, 0.108369E+00_JPRB, 0.101890E+00_JPRB, 0.956906E-01_JPRB &
+  &, 0.898001E-01_JPRB, 0.841671E-01_JPRB, 0.787901E-01_JPRB &
+  &, 0.736939E-01_JPRB, 0.688756E-01_JPRB, 0.642730E-01_JPRB, 0.599360E-01_JPRB &
+  &, 0.558271E-01_JPRB, 0.519355E-01_JPRB, 0.482798E-01_JPRB &
+  &, 0.448159E-01_JPRB, 0.415599E-01_JPRB, 0.384954E-01_JPRB, 0.356377E-01_JPRB &
+  &, 0.329343E-01_JPRB, 0.303976E-01_JPRB, 0.280403E-01_JPRB &
+  &, 0.258393E-01_JPRB, 0.238062E-01_JPRB, 0.218785E-01_JPRB, 0.201020E-01_JPRB &
+  &, 0.184103E-01_JPRB, 0.168878E-01_JPRB, 0.154661E-01_JPRB &
+  &, 0.141521E-01_JPRB, 0.129120E-01_JPRB, 0.117925E-01_JPRB, 0.107167E-01_JPRB &
+  &, 0.977363E-02_JPRB, 0.888389E-02_JPRB, 0.809529E-02_JPRB &
+  &, 0.732387E-02_JPRB, 0.661689E-02_JPRB, 0.602447E-02_JPRB, 0.545869E-02_JPRB &
+  &, 0.492142E-02_JPRB, 0.441458E-02_JPRB, 0.398922E-02_JPRB &
+  &, 0.359965E-02_JPRB, 0.324791E-02_JPRB, 0.288473E-02_JPRB, 0.261413E-02_JPRB &
+  &, 0.233481E-02_JPRB, 0.210026E-02_JPRB, 0.185832E-02_JPRB &
+  &, 0.166403E-02_JPRB, 0.146372E-02_JPRB, 0.131401E-02_JPRB, 0.115971E-02_JPRB &
+  &, 0.105907E-02_JPRB, 0.896246E-03_JPRB, 0.788580E-03_JPRB &
+  &, 0.738452E-03_JPRB, 0.625239E-03_JPRB, 0.571145E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 460, :) = (/ &
+  &  0.986545E+00_JPRB, 0.982165E+00_JPRB, 0.977385E+00_JPRB, 0.972208E+00_JPRB &
+  &, 0.966636E+00_JPRB, 0.960673E+00_JPRB, 0.954322E+00_JPRB &
+  &, 0.947587E+00_JPRB, 0.940472E+00_JPRB, 0.932983E+00_JPRB, 0.925123E+00_JPRB &
+  &, 0.916897E+00_JPRB, 0.908309E+00_JPRB, 0.899367E+00_JPRB &
+  &, 0.890078E+00_JPRB, 0.880446E+00_JPRB, 0.870478E+00_JPRB, 0.860181E+00_JPRB &
+  &, 0.849564E+00_JPRB, 0.838632E+00_JPRB, 0.827399E+00_JPRB &
+  &, 0.815869E+00_JPRB, 0.804057E+00_JPRB, 0.791966E+00_JPRB, 0.779609E+00_JPRB &
+  &, 0.767000E+00_JPRB, 0.754149E+00_JPRB, 0.741067E+00_JPRB &
+  &, 0.727766E+00_JPRB, 0.714259E+00_JPRB, 0.700565E+00_JPRB, 0.686692E+00_JPRB &
+  &, 0.672656E+00_JPRB, 0.658469E+00_JPRB, 0.644154E+00_JPRB &
+  &, 0.629717E+00_JPRB, 0.615177E+00_JPRB, 0.600563E+00_JPRB, 0.585870E+00_JPRB &
+  &, 0.571132E+00_JPRB, 0.556347E+00_JPRB, 0.541560E+00_JPRB &
+  &, 0.526759E+00_JPRB, 0.511983E+00_JPRB, 0.497224E+00_JPRB, 0.482534E+00_JPRB &
+  &, 0.467898E+00_JPRB, 0.453345E+00_JPRB, 0.438883E+00_JPRB &
+  &, 0.424545E+00_JPRB, 0.410339E+00_JPRB, 0.396274E+00_JPRB, 0.382368E+00_JPRB &
+  &, 0.368630E+00_JPRB, 0.355078E+00_JPRB, 0.341732E+00_JPRB &
+  &, 0.328597E+00_JPRB, 0.315691E+00_JPRB, 0.303016E+00_JPRB, 0.290589E+00_JPRB &
+  &, 0.278423E+00_JPRB, 0.266518E+00_JPRB, 0.254886E+00_JPRB &
+  &, 0.243520E+00_JPRB, 0.232447E+00_JPRB, 0.221677E+00_JPRB, 0.211198E+00_JPRB &
+  &, 0.201034E+00_JPRB, 0.191150E+00_JPRB, 0.181586E+00_JPRB &
+  &, 0.172342E+00_JPRB, 0.163396E+00_JPRB, 0.154743E+00_JPRB, 0.146419E+00_JPRB &
+  &, 0.138418E+00_JPRB, 0.130707E+00_JPRB, 0.123296E+00_JPRB &
+  &, 0.116195E+00_JPRB, 0.109386E+00_JPRB, 0.102876E+00_JPRB, 0.966451E-01_JPRB &
+  &, 0.906943E-01_JPRB, 0.850250E-01_JPRB, 0.796372E-01_JPRB &
+  &, 0.745015E-01_JPRB, 0.696133E-01_JPRB, 0.649957E-01_JPRB, 0.606133E-01_JPRB &
+  &, 0.564869E-01_JPRB, 0.525464E-01_JPRB, 0.488708E-01_JPRB &
+  &, 0.453542E-01_JPRB, 0.420756E-01_JPRB, 0.389875E-01_JPRB, 0.361051E-01_JPRB &
+  &, 0.333760E-01_JPRB, 0.308470E-01_JPRB, 0.284623E-01_JPRB &
+  &, 0.262329E-01_JPRB, 0.241337E-01_JPRB, 0.222115E-01_JPRB, 0.204030E-01_JPRB &
+  &, 0.187163E-01_JPRB, 0.171601E-01_JPRB, 0.157033E-01_JPRB &
+  &, 0.143530E-01_JPRB, 0.131162E-01_JPRB, 0.120000E-01_JPRB, 0.109275E-01_JPRB &
+  &, 0.994492E-02_JPRB, 0.905789E-02_JPRB, 0.822784E-02_JPRB &
+  &, 0.745848E-02_JPRB, 0.675359E-02_JPRB, 0.611700E-02_JPRB, 0.555263E-02_JPRB &
+  &, 0.501679E-02_JPRB, 0.451138E-02_JPRB, 0.408747E-02_JPRB &
+  &, 0.364951E-02_JPRB, 0.329851E-02_JPRB, 0.298740E-02_JPRB, 0.266621E-02_JPRB &
+  &, 0.238764E-02_JPRB, 0.215386E-02_JPRB, 0.191268E-02_JPRB &
+  &, 0.171916E-02_JPRB, 0.151963E-02_JPRB, 0.137070E-02_JPRB, 0.121720E-02_JPRB &
+  &, 0.105907E-02_JPRB, 0.955330E-03_JPRB, 0.848470E-03_JPRB &
+  &, 0.738452E-03_JPRB, 0.625239E-03_JPRB, 0.571145E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 461, :) = (/ &
+  &  0.986793E+00_JPRB, 0.982478E+00_JPRB, 0.977757E+00_JPRB, 0.972642E+00_JPRB &
+  &, 0.967130E+00_JPRB, 0.961226E+00_JPRB, 0.954934E+00_JPRB &
+  &, 0.948258E+00_JPRB, 0.941201E+00_JPRB, 0.933768E+00_JPRB, 0.925964E+00_JPRB &
+  &, 0.917793E+00_JPRB, 0.909259E+00_JPRB, 0.900371E+00_JPRB &
+  &, 0.891134E+00_JPRB, 0.881553E+00_JPRB, 0.871634E+00_JPRB, 0.861387E+00_JPRB &
+  &, 0.850817E+00_JPRB, 0.839933E+00_JPRB, 0.828745E+00_JPRB &
+  &, 0.817258E+00_JPRB, 0.805488E+00_JPRB, 0.793437E+00_JPRB, 0.781122E+00_JPRB &
+  &, 0.768550E+00_JPRB, 0.755677E+00_JPRB, 0.742689E+00_JPRB &
+  &, 0.729420E+00_JPRB, 0.715946E+00_JPRB, 0.702282E+00_JPRB, 0.688435E+00_JPRB &
+  &, 0.674425E+00_JPRB, 0.660261E+00_JPRB, 0.645969E+00_JPRB &
+  &, 0.631549E+00_JPRB, 0.617037E+00_JPRB, 0.602431E+00_JPRB, 0.587754E+00_JPRB &
+  &, 0.573023E+00_JPRB, 0.558255E+00_JPRB, 0.543472E+00_JPRB &
+  &, 0.528675E+00_JPRB, 0.513901E+00_JPRB, 0.499155E+00_JPRB, 0.484454E+00_JPRB &
+  &, 0.469816E+00_JPRB, 0.455260E+00_JPRB, 0.440794E+00_JPRB &
+  &, 0.426450E+00_JPRB, 0.412224E+00_JPRB, 0.398148E+00_JPRB, 0.384231E+00_JPRB &
+  &, 0.370479E+00_JPRB, 0.356912E+00_JPRB, 0.343549E+00_JPRB &
+  &, 0.330395E+00_JPRB, 0.317452E+00_JPRB, 0.304752E+00_JPRB, 0.292298E+00_JPRB &
+  &, 0.280104E+00_JPRB, 0.268167E+00_JPRB, 0.256501E+00_JPRB &
+  &, 0.245116E+00_JPRB, 0.234005E+00_JPRB, 0.223213E+00_JPRB, 0.212690E+00_JPRB &
+  &, 0.202479E+00_JPRB, 0.192565E+00_JPRB, 0.182969E+00_JPRB &
+  &, 0.173671E+00_JPRB, 0.164688E+00_JPRB, 0.156018E+00_JPRB, 0.147653E+00_JPRB &
+  &, 0.139586E+00_JPRB, 0.131852E+00_JPRB, 0.124393E+00_JPRB &
+  &, 0.117265E+00_JPRB, 0.110403E+00_JPRB, 0.103863E+00_JPRB, 0.975996E-01_JPRB &
+  &, 0.916148E-01_JPRB, 0.859097E-01_JPRB, 0.804570E-01_JPRB &
+  &, 0.753091E-01_JPRB, 0.703795E-01_JPRB, 0.657184E-01_JPRB, 0.613200E-01_JPRB &
+  &, 0.571468E-01_JPRB, 0.531878E-01_JPRB, 0.494617E-01_JPRB &
+  &, 0.459242E-01_JPRB, 0.426236E-01_JPRB, 0.395125E-01_JPRB, 0.365726E-01_JPRB &
+  &, 0.338177E-01_JPRB, 0.312619E-01_JPRB, 0.288492E-01_JPRB &
+  &, 0.265906E-01_JPRB, 0.244975E-01_JPRB, 0.225446E-01_JPRB, 0.207040E-01_JPRB &
+  &, 0.189841E-01_JPRB, 0.174323E-01_JPRB, 0.159405E-01_JPRB &
+  &, 0.145941E-01_JPRB, 0.133611E-01_JPRB, 0.121659E-01_JPRB, 0.110961E-01_JPRB &
+  &, 0.101162E-01_JPRB, 0.918839E-02_JPRB, 0.836038E-02_JPRB &
+  &, 0.759309E-02_JPRB, 0.689028E-02_JPRB, 0.625579E-02_JPRB, 0.564657E-02_JPRB &
+  &, 0.511216E-02_JPRB, 0.460818E-02_JPRB, 0.413660E-02_JPRB &
+  &, 0.374922E-02_JPRB, 0.334910E-02_JPRB, 0.303874E-02_JPRB, 0.271829E-02_JPRB &
+  &, 0.244048E-02_JPRB, 0.220746E-02_JPRB, 0.196705E-02_JPRB &
+  &, 0.171916E-02_JPRB, 0.157554E-02_JPRB, 0.137070E-02_JPRB, 0.121720E-02_JPRB &
+  &, 0.111735E-02_JPRB, 0.955330E-03_JPRB, 0.848470E-03_JPRB &
+  &, 0.738452E-03_JPRB, 0.686763E-03_JPRB, 0.571145E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 462, :) = (/ &
+  &  0.987045E+00_JPRB, 0.982789E+00_JPRB, 0.978130E+00_JPRB, 0.973075E+00_JPRB &
+  &, 0.967623E+00_JPRB, 0.961779E+00_JPRB, 0.955547E+00_JPRB &
+  &, 0.948929E+00_JPRB, 0.941929E+00_JPRB, 0.934554E+00_JPRB, 0.926805E+00_JPRB &
+  &, 0.918689E+00_JPRB, 0.910211E+00_JPRB, 0.901376E+00_JPRB &
+  &, 0.892191E+00_JPRB, 0.882661E+00_JPRB, 0.872792E+00_JPRB, 0.862594E+00_JPRB &
+  &, 0.852072E+00_JPRB, 0.841233E+00_JPRB, 0.830090E+00_JPRB &
+  &, 0.818651E+00_JPRB, 0.806919E+00_JPRB, 0.794912E+00_JPRB, 0.782636E+00_JPRB &
+  &, 0.770103E+00_JPRB, 0.757323E+00_JPRB, 0.744311E+00_JPRB &
+  &, 0.731078E+00_JPRB, 0.717633E+00_JPRB, 0.703998E+00_JPRB, 0.690178E+00_JPRB &
+  &, 0.676194E+00_JPRB, 0.662058E+00_JPRB, 0.647788E+00_JPRB &
+  &, 0.633391E+00_JPRB, 0.618887E+00_JPRB, 0.604299E+00_JPRB, 0.589639E+00_JPRB &
+  &, 0.574924E+00_JPRB, 0.560173E+00_JPRB, 0.545384E+00_JPRB &
+  &, 0.530602E+00_JPRB, 0.515831E+00_JPRB, 0.501087E+00_JPRB, 0.486386E+00_JPRB &
+  &, 0.471747E+00_JPRB, 0.457176E+00_JPRB, 0.442718E+00_JPRB &
+  &, 0.428355E+00_JPRB, 0.414121E+00_JPRB, 0.400037E+00_JPRB, 0.386095E+00_JPRB &
+  &, 0.372329E+00_JPRB, 0.358746E+00_JPRB, 0.345366E+00_JPRB &
+  &, 0.332177E+00_JPRB, 0.319228E+00_JPRB, 0.306505E+00_JPRB, 0.294024E+00_JPRB &
+  &, 0.281802E+00_JPRB, 0.269834E+00_JPRB, 0.258134E+00_JPRB &
+  &, 0.246713E+00_JPRB, 0.235582E+00_JPRB, 0.224729E+00_JPRB, 0.214181E+00_JPRB &
+  &, 0.203944E+00_JPRB, 0.194001E+00_JPRB, 0.184353E+00_JPRB &
+  &, 0.175020E+00_JPRB, 0.166001E+00_JPRB, 0.157293E+00_JPRB, 0.148887E+00_JPRB &
+  &, 0.140777E+00_JPRB, 0.132997E+00_JPRB, 0.125513E+00_JPRB &
+  &, 0.118335E+00_JPRB, 0.111445E+00_JPRB, 0.104850E+00_JPRB, 0.985541E-01_JPRB &
+  &, 0.925353E-01_JPRB, 0.867945E-01_JPRB, 0.813041E-01_JPRB &
+  &, 0.761166E-01_JPRB, 0.711456E-01_JPRB, 0.664701E-01_JPRB, 0.620268E-01_JPRB &
+  &, 0.578066E-01_JPRB, 0.538292E-01_JPRB, 0.500526E-01_JPRB &
+  &, 0.464942E-01_JPRB, 0.431716E-01_JPRB, 0.400046E-01_JPRB, 0.370735E-01_JPRB &
+  &, 0.342934E-01_JPRB, 0.316767E-01_JPRB, 0.292360E-01_JPRB &
+  &, 0.269841E-01_JPRB, 0.248614E-01_JPRB, 0.228776E-01_JPRB, 0.210050E-01_JPRB &
+  &, 0.192901E-01_JPRB, 0.177045E-01_JPRB, 0.162172E-01_JPRB &
+  &, 0.148351E-01_JPRB, 0.135653E-01_JPRB, 0.123734E-01_JPRB, 0.113068E-01_JPRB &
+  &, 0.102875E-01_JPRB, 0.936238E-02_JPRB, 0.853711E-02_JPRB &
+  &, 0.772770E-02_JPRB, 0.702697E-02_JPRB, 0.634832E-02_JPRB, 0.574052E-02_JPRB &
+  &, 0.520752E-02_JPRB, 0.470499E-02_JPRB, 0.423485E-02_JPRB &
+  &, 0.379908E-02_JPRB, 0.345028E-02_JPRB, 0.309007E-02_JPRB, 0.277037E-02_JPRB &
+  &, 0.249332E-02_JPRB, 0.220746E-02_JPRB, 0.202141E-02_JPRB &
+  &, 0.177430E-02_JPRB, 0.157554E-02_JPRB, 0.142740E-02_JPRB, 0.127469E-02_JPRB &
+  &, 0.111735E-02_JPRB, 0.101441E-02_JPRB, 0.908361E-03_JPRB &
+  &, 0.799156E-03_JPRB, 0.686763E-03_JPRB, 0.633494E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART66',1,ZHOOK_HANDLE)
+END SUBROUTINE PART66
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART67
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART67',0,ZHOOK_HANDLE)
+
+XCW( 463, :) = (/ &
+  &  0.987294E+00_JPRB, 0.983101E+00_JPRB, 0.978503E+00_JPRB, 0.973509E+00_JPRB &
+  &, 0.968117E+00_JPRB, 0.962333E+00_JPRB, 0.956159E+00_JPRB &
+  &, 0.949599E+00_JPRB, 0.942658E+00_JPRB, 0.935338E+00_JPRB, 0.927646E+00_JPRB &
+  &, 0.919585E+00_JPRB, 0.911162E+00_JPRB, 0.902381E+00_JPRB &
+  &, 0.893247E+00_JPRB, 0.883768E+00_JPRB, 0.873951E+00_JPRB, 0.863802E+00_JPRB &
+  &, 0.853328E+00_JPRB, 0.842537E+00_JPRB, 0.831439E+00_JPRB &
+  &, 0.820040E+00_JPRB, 0.808354E+00_JPRB, 0.796387E+00_JPRB, 0.784153E+00_JPRB &
+  &, 0.771656E+00_JPRB, 0.758914E+00_JPRB, 0.745936E+00_JPRB &
+  &, 0.732736E+00_JPRB, 0.719324E+00_JPRB, 0.705719E+00_JPRB, 0.691929E+00_JPRB &
+  &, 0.677972E+00_JPRB, 0.663858E+00_JPRB, 0.649607E+00_JPRB &
+  &, 0.635233E+00_JPRB, 0.620756E+00_JPRB, 0.606176E+00_JPRB, 0.591534E+00_JPRB &
+  &, 0.576826E+00_JPRB, 0.562080E+00_JPRB, 0.547307E+00_JPRB &
+  &, 0.532529E+00_JPRB, 0.517761E+00_JPRB, 0.503018E+00_JPRB, 0.488318E+00_JPRB &
+  &, 0.473677E+00_JPRB, 0.459104E+00_JPRB, 0.444642E+00_JPRB &
+  &, 0.430274E+00_JPRB, 0.416032E+00_JPRB, 0.401925E+00_JPRB, 0.387972E+00_JPRB &
+  &, 0.374193E+00_JPRB, 0.360596E+00_JPRB, 0.347183E+00_JPRB &
+  &, 0.333990E+00_JPRB, 0.321004E+00_JPRB, 0.308257E+00_JPRB, 0.295750E+00_JPRB &
+  &, 0.283499E+00_JPRB, 0.271501E+00_JPRB, 0.259767E+00_JPRB &
+  &, 0.248328E+00_JPRB, 0.237158E+00_JPRB, 0.226284E+00_JPRB, 0.215692E+00_JPRB &
+  &, 0.205408E+00_JPRB, 0.195416E+00_JPRB, 0.185757E+00_JPRB &
+  &, 0.176370E+00_JPRB, 0.167315E+00_JPRB, 0.158568E+00_JPRB, 0.150121E+00_JPRB &
+  &, 0.141991E+00_JPRB, 0.134166E+00_JPRB, 0.126634E+00_JPRB &
+  &, 0.119405E+00_JPRB, 0.112487E+00_JPRB, 0.105862E+00_JPRB, 0.995086E-01_JPRB &
+  &, 0.934558E-01_JPRB, 0.876792E-01_JPRB, 0.821512E-01_JPRB &
+  &, 0.769242E-01_JPRB, 0.719401E-01_JPRB, 0.671928E-01_JPRB, 0.627335E-01_JPRB &
+  &, 0.584665E-01_JPRB, 0.544401E-01_JPRB, 0.506747E-01_JPRB &
+  &, 0.470641E-01_JPRB, 0.437195E-01_JPRB, 0.405296E-01_JPRB, 0.375409E-01_JPRB &
+  &, 0.347351E-01_JPRB, 0.321262E-01_JPRB, 0.296581E-01_JPRB &
+  &, 0.273419E-01_JPRB, 0.251889E-01_JPRB, 0.232106E-01_JPRB, 0.213436E-01_JPRB &
+  &, 0.195962E-01_JPRB, 0.179767E-01_JPRB, 0.164544E-01_JPRB &
+  &, 0.150762E-01_JPRB, 0.138103E-01_JPRB, 0.125808E-01_JPRB, 0.114755E-01_JPRB &
+  &, 0.104588E-01_JPRB, 0.953638E-02_JPRB, 0.866966E-02_JPRB &
+  &, 0.786232E-02_JPRB, 0.716367E-02_JPRB, 0.648712E-02_JPRB, 0.588143E-02_JPRB &
+  &, 0.530289E-02_JPRB, 0.480179E-02_JPRB, 0.433310E-02_JPRB &
+  &, 0.389879E-02_JPRB, 0.350088E-02_JPRB, 0.314140E-02_JPRB, 0.282246E-02_JPRB &
+  &, 0.254615E-02_JPRB, 0.226105E-02_JPRB, 0.202141E-02_JPRB &
+  &, 0.182943E-02_JPRB, 0.163145E-02_JPRB, 0.142740E-02_JPRB, 0.127469E-02_JPRB &
+  &, 0.117563E-02_JPRB, 0.101441E-02_JPRB, 0.908361E-03_JPRB &
+  &, 0.799156E-03_JPRB, 0.686763E-03_JPRB, 0.633494E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 464, :) = (/ &
+  &  0.987544E+00_JPRB, 0.983412E+00_JPRB, 0.978876E+00_JPRB, 0.973943E+00_JPRB &
+  &, 0.968611E+00_JPRB, 0.962887E+00_JPRB, 0.956772E+00_JPRB &
+  &, 0.950270E+00_JPRB, 0.943386E+00_JPRB, 0.936125E+00_JPRB, 0.928488E+00_JPRB &
+  &, 0.920482E+00_JPRB, 0.912113E+00_JPRB, 0.903386E+00_JPRB &
+  &, 0.894305E+00_JPRB, 0.884878E+00_JPRB, 0.875111E+00_JPRB, 0.865011E+00_JPRB &
+  &, 0.854584E+00_JPRB, 0.843841E+00_JPRB, 0.832788E+00_JPRB &
+  &, 0.821436E+00_JPRB, 0.809792E+00_JPRB, 0.797866E+00_JPRB, 0.785669E+00_JPRB &
+  &, 0.773213E+00_JPRB, 0.760505E+00_JPRB, 0.747562E+00_JPRB &
+  &, 0.734398E+00_JPRB, 0.721019E+00_JPRB, 0.707440E+00_JPRB, 0.693680E+00_JPRB &
+  &, 0.679746E+00_JPRB, 0.665659E+00_JPRB, 0.651435E+00_JPRB &
+  &, 0.637074E+00_JPRB, 0.622616E+00_JPRB, 0.608063E+00_JPRB, 0.593429E+00_JPRB &
+  &, 0.578738E+00_JPRB, 0.563998E+00_JPRB, 0.549241E+00_JPRB &
+  &, 0.534467E+00_JPRB, 0.519702E+00_JPRB, 0.504961E+00_JPRB, 0.490261E+00_JPRB &
+  &, 0.475608E+00_JPRB, 0.461044E+00_JPRB, 0.446566E+00_JPRB &
+  &, 0.432192E+00_JPRB, 0.417930E+00_JPRB, 0.403827E+00_JPRB, 0.389849E+00_JPRB &
+  &, 0.376057E+00_JPRB, 0.362445E+00_JPRB, 0.349016E+00_JPRB &
+  &, 0.335788E+00_JPRB, 0.322796E+00_JPRB, 0.310009E+00_JPRB, 0.297476E+00_JPRB &
+  &, 0.285197E+00_JPRB, 0.273167E+00_JPRB, 0.261418E+00_JPRB &
+  &, 0.249925E+00_JPRB, 0.238735E+00_JPRB, 0.227819E+00_JPRB, 0.217203E+00_JPRB &
+  &, 0.206873E+00_JPRB, 0.196872E+00_JPRB, 0.187140E+00_JPRB &
+  &, 0.177741E+00_JPRB, 0.168650E+00_JPRB, 0.159842E+00_JPRB, 0.151378E+00_JPRB &
+  &, 0.143204E+00_JPRB, 0.135334E+00_JPRB, 0.127755E+00_JPRB &
+  &, 0.120500E+00_JPRB, 0.113529E+00_JPRB, 0.106874E+00_JPRB, 0.100489E+00_JPRB &
+  &, 0.943763E-01_JPRB, 0.885640E-01_JPRB, 0.830256E-01_JPRB &
+  &, 0.777318E-01_JPRB, 0.727062E-01_JPRB, 0.679444E-01_JPRB, 0.634403E-01_JPRB &
+  &, 0.591563E-01_JPRB, 0.551121E-01_JPRB, 0.512656E-01_JPRB &
+  &, 0.476658E-01_JPRB, 0.442675E-01_JPRB, 0.410545E-01_JPRB, 0.380418E-01_JPRB &
+  &, 0.352108E-01_JPRB, 0.325410E-01_JPRB, 0.300801E-01_JPRB &
+  &, 0.277354E-01_JPRB, 0.255891E-01_JPRB, 0.235436E-01_JPRB, 0.216446E-01_JPRB &
+  &, 0.199022E-01_JPRB, 0.182490E-01_JPRB, 0.167311E-01_JPRB &
+  &, 0.153172E-01_JPRB, 0.140144E-01_JPRB, 0.128297E-01_JPRB, 0.116862E-01_JPRB &
+  &, 0.106729E-01_JPRB, 0.971038E-02_JPRB, 0.884639E-02_JPRB &
+  &, 0.804180E-02_JPRB, 0.730036E-02_JPRB, 0.662591E-02_JPRB, 0.597537E-02_JPRB &
+  &, 0.539826E-02_JPRB, 0.489860E-02_JPRB, 0.443135E-02_JPRB &
+  &, 0.399850E-02_JPRB, 0.360206E-02_JPRB, 0.324407E-02_JPRB, 0.292662E-02_JPRB &
+  &, 0.259899E-02_JPRB, 0.231465E-02_JPRB, 0.207577E-02_JPRB &
+  &, 0.188457E-02_JPRB, 0.168736E-02_JPRB, 0.148409E-02_JPRB, 0.133217E-02_JPRB &
+  &, 0.117563E-02_JPRB, 0.107350E-02_JPRB, 0.908361E-03_JPRB &
+  &, 0.799156E-03_JPRB, 0.748287E-03_JPRB, 0.633494E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 465, :) = (/ &
+  &  0.987795E+00_JPRB, 0.983723E+00_JPRB, 0.979249E+00_JPRB, 0.974376E+00_JPRB &
+  &, 0.969105E+00_JPRB, 0.963440E+00_JPRB, 0.957384E+00_JPRB &
+  &, 0.950941E+00_JPRB, 0.944115E+00_JPRB, 0.936910E+00_JPRB, 0.929330E+00_JPRB &
+  &, 0.921380E+00_JPRB, 0.913065E+00_JPRB, 0.904391E+00_JPRB &
+  &, 0.895363E+00_JPRB, 0.885987E+00_JPRB, 0.876271E+00_JPRB, 0.866220E+00_JPRB &
+  &, 0.855842E+00_JPRB, 0.845145E+00_JPRB, 0.834137E+00_JPRB &
+  &, 0.822829E+00_JPRB, 0.811230E+00_JPRB, 0.799344E+00_JPRB, 0.787186E+00_JPRB &
+  &, 0.774770E+00_JPRB, 0.762099E+00_JPRB, 0.749192E+00_JPRB &
+  &, 0.736059E+00_JPRB, 0.722714E+00_JPRB, 0.709164E+00_JPRB, 0.695432E+00_JPRB &
+  &, 0.681528E+00_JPRB, 0.667464E+00_JPRB, 0.653262E+00_JPRB &
+  &, 0.638925E+00_JPRB, 0.624485E+00_JPRB, 0.609941E+00_JPRB, 0.595324E+00_JPRB &
+  &, 0.580650E+00_JPRB, 0.565927E+00_JPRB, 0.551174E+00_JPRB &
+  &, 0.536405E+00_JPRB, 0.521643E+00_JPRB, 0.506904E+00_JPRB, 0.492205E+00_JPRB &
+  &, 0.477563E+00_JPRB, 0.462985E+00_JPRB, 0.448503E+00_JPRB &
+  &, 0.434111E+00_JPRB, 0.419855E+00_JPRB, 0.405729E+00_JPRB, 0.391740E+00_JPRB &
+  &, 0.377936E+00_JPRB, 0.364294E+00_JPRB, 0.350848E+00_JPRB &
+  &, 0.337601E+00_JPRB, 0.324588E+00_JPRB, 0.311778E+00_JPRB, 0.299219E+00_JPRB &
+  &, 0.286911E+00_JPRB, 0.274851E+00_JPRB, 0.263069E+00_JPRB &
+  &, 0.251559E+00_JPRB, 0.240330E+00_JPRB, 0.229374E+00_JPRB, 0.218714E+00_JPRB &
+  &, 0.208357E+00_JPRB, 0.198307E+00_JPRB, 0.188565E+00_JPRB &
+  &, 0.179111E+00_JPRB, 0.169985E+00_JPRB, 0.161139E+00_JPRB, 0.152634E+00_JPRB &
+  &, 0.144418E+00_JPRB, 0.136502E+00_JPRB, 0.128899E+00_JPRB &
+  &, 0.121594E+00_JPRB, 0.114596E+00_JPRB, 0.107886E+00_JPRB, 0.101469E+00_JPRB &
+  &, 0.953232E-01_JPRB, 0.894755E-01_JPRB, 0.838727E-01_JPRB &
+  &, 0.785672E-01_JPRB, 0.735007E-01_JPRB, 0.686960E-01_JPRB, 0.641470E-01_JPRB &
+  &, 0.598461E-01_JPRB, 0.557535E-01_JPRB, 0.518876E-01_JPRB &
+  &, 0.482357E-01_JPRB, 0.448155E-01_JPRB, 0.415795E-01_JPRB, 0.385427E-01_JPRB &
+  &, 0.356865E-01_JPRB, 0.329904E-01_JPRB, 0.305021E-01_JPRB &
+  &, 0.281289E-01_JPRB, 0.259530E-01_JPRB, 0.238766E-01_JPRB, 0.219832E-01_JPRB &
+  &, 0.202082E-01_JPRB, 0.185601E-01_JPRB, 0.170078E-01_JPRB &
+  &, 0.155583E-01_JPRB, 0.142594E-01_JPRB, 0.130372E-01_JPRB, 0.118970E-01_JPRB &
+  &, 0.108442E-01_JPRB, 0.988438E-02_JPRB, 0.897893E-02_JPRB &
+  &, 0.817641E-02_JPRB, 0.743706E-02_JPRB, 0.671844E-02_JPRB, 0.611629E-02_JPRB &
+  &, 0.554131E-02_JPRB, 0.499540E-02_JPRB, 0.452960E-02_JPRB &
+  &, 0.404836E-02_JPRB, 0.365265E-02_JPRB, 0.329541E-02_JPRB, 0.297870E-02_JPRB &
+  &, 0.265183E-02_JPRB, 0.236825E-02_JPRB, 0.213013E-02_JPRB &
+  &, 0.188457E-02_JPRB, 0.168736E-02_JPRB, 0.154079E-02_JPRB, 0.133217E-02_JPRB &
+  &, 0.123391E-02_JPRB, 0.107350E-02_JPRB, 0.968252E-03_JPRB &
+  &, 0.859861E-03_JPRB, 0.748287E-03_JPRB, 0.633494E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 466, :) = (/ &
+  &  0.988045E+00_JPRB, 0.984036E+00_JPRB, 0.979622E+00_JPRB, 0.974810E+00_JPRB &
+  &, 0.969599E+00_JPRB, 0.963994E+00_JPRB, 0.957998E+00_JPRB &
+  &, 0.951612E+00_JPRB, 0.944844E+00_JPRB, 0.937696E+00_JPRB, 0.930173E+00_JPRB &
+  &, 0.922279E+00_JPRB, 0.914017E+00_JPRB, 0.905397E+00_JPRB &
+  &, 0.896422E+00_JPRB, 0.887098E+00_JPRB, 0.877432E+00_JPRB, 0.867430E+00_JPRB &
+  &, 0.857101E+00_JPRB, 0.846452E+00_JPRB, 0.835489E+00_JPRB &
+  &, 0.824224E+00_JPRB, 0.812668E+00_JPRB, 0.800826E+00_JPRB, 0.788707E+00_JPRB &
+  &, 0.776326E+00_JPRB, 0.763697E+00_JPRB, 0.750825E+00_JPRB &
+  &, 0.737725E+00_JPRB, 0.724409E+00_JPRB, 0.710893E+00_JPRB, 0.697191E+00_JPRB &
+  &, 0.683310E+00_JPRB, 0.669273E+00_JPRB, 0.655090E+00_JPRB &
+  &, 0.640776E+00_JPRB, 0.626354E+00_JPRB, 0.611837E+00_JPRB, 0.597228E+00_JPRB &
+  &, 0.582562E+00_JPRB, 0.567855E+00_JPRB, 0.553108E+00_JPRB &
+  &, 0.538343E+00_JPRB, 0.523596E+00_JPRB, 0.508859E+00_JPRB, 0.494148E+00_JPRB &
+  &, 0.479506E+00_JPRB, 0.464926E+00_JPRB, 0.450440E+00_JPRB &
+  &, 0.436042E+00_JPRB, 0.421779E+00_JPRB, 0.407631E+00_JPRB, 0.393646E+00_JPRB &
+  &, 0.379815E+00_JPRB, 0.366158E+00_JPRB, 0.352695E+00_JPRB &
+  &, 0.339430E+00_JPRB, 0.326380E+00_JPRB, 0.313562E+00_JPRB, 0.300978E+00_JPRB &
+  &, 0.288626E+00_JPRB, 0.276552E+00_JPRB, 0.264737E+00_JPRB &
+  &, 0.253192E+00_JPRB, 0.241925E+00_JPRB, 0.230947E+00_JPRB, 0.220245E+00_JPRB &
+  &, 0.209862E+00_JPRB, 0.199763E+00_JPRB, 0.189970E+00_JPRB &
+  &, 0.180503E+00_JPRB, 0.171320E+00_JPRB, 0.162458E+00_JPRB, 0.153891E+00_JPRB &
+  &, 0.145632E+00_JPRB, 0.137694E+00_JPRB, 0.130043E+00_JPRB &
+  &, 0.122688E+00_JPRB, 0.115662E+00_JPRB, 0.108898E+00_JPRB, 0.102449E+00_JPRB &
+  &, 0.962700E-01_JPRB, 0.903871E-01_JPRB, 0.847471E-01_JPRB &
+  &, 0.794026E-01_JPRB, 0.742952E-01_JPRB, 0.694765E-01_JPRB, 0.648832E-01_JPRB &
+  &, 0.605360E-01_JPRB, 0.564255E-01_JPRB, 0.525097E-01_JPRB &
+  &, 0.488374E-01_JPRB, 0.453635E-01_JPRB, 0.421044E-01_JPRB, 0.390435E-01_JPRB &
+  &, 0.361622E-01_JPRB, 0.334399E-01_JPRB, 0.309242E-01_JPRB &
+  &, 0.285224E-01_JPRB, 0.263168E-01_JPRB, 0.242467E-01_JPRB, 0.223219E-01_JPRB &
+  &, 0.205143E-01_JPRB, 0.188323E-01_JPRB, 0.172845E-01_JPRB &
+  &, 0.158395E-01_JPRB, 0.145044E-01_JPRB, 0.132446E-01_JPRB, 0.121077E-01_JPRB &
+  &, 0.110155E-01_JPRB, 0.100584E-01_JPRB, 0.915566E-02_JPRB &
+  &, 0.831102E-02_JPRB, 0.757375E-02_JPRB, 0.685724E-02_JPRB, 0.621023E-02_JPRB &
+  &, 0.563668E-02_JPRB, 0.509220E-02_JPRB, 0.457873E-02_JPRB &
+  &, 0.414807E-02_JPRB, 0.375384E-02_JPRB, 0.334674E-02_JPRB, 0.303079E-02_JPRB &
+  &, 0.270466E-02_JPRB, 0.242184E-02_JPRB, 0.218450E-02_JPRB &
+  &, 0.193970E-02_JPRB, 0.174328E-02_JPRB, 0.154079E-02_JPRB, 0.138966E-02_JPRB &
+  &, 0.123391E-02_JPRB, 0.107350E-02_JPRB, 0.968252E-03_JPRB &
+  &, 0.859861E-03_JPRB, 0.748287E-03_JPRB, 0.695844E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 467, :) = (/ &
+  &  0.988294E+00_JPRB, 0.984347E+00_JPRB, 0.979995E+00_JPRB, 0.975243E+00_JPRB &
+  &, 0.970092E+00_JPRB, 0.964548E+00_JPRB, 0.958610E+00_JPRB &
+  &, 0.952284E+00_JPRB, 0.945573E+00_JPRB, 0.938483E+00_JPRB, 0.931016E+00_JPRB &
+  &, 0.923176E+00_JPRB, 0.914970E+00_JPRB, 0.906405E+00_JPRB &
+  &, 0.897482E+00_JPRB, 0.888210E+00_JPRB, 0.878593E+00_JPRB, 0.868642E+00_JPRB &
+  &, 0.858360E+00_JPRB, 0.847759E+00_JPRB, 0.836841E+00_JPRB &
+  &, 0.825624E+00_JPRB, 0.814106E+00_JPRB, 0.802308E+00_JPRB, 0.790231E+00_JPRB &
+  &, 0.777890E+00_JPRB, 0.765295E+00_JPRB, 0.752458E+00_JPRB &
+  &, 0.739395E+00_JPRB, 0.726112E+00_JPRB, 0.712622E+00_JPRB, 0.698946E+00_JPRB &
+  &, 0.685097E+00_JPRB, 0.671083E+00_JPRB, 0.656928E+00_JPRB &
+  &, 0.642637E+00_JPRB, 0.628233E+00_JPRB, 0.613725E+00_JPRB, 0.599133E+00_JPRB &
+  &, 0.584484E+00_JPRB, 0.569783E+00_JPRB, 0.555042E+00_JPRB &
+  &, 0.540292E+00_JPRB, 0.525537E+00_JPRB, 0.510802E+00_JPRB, 0.496104E+00_JPRB &
+  &, 0.481461E+00_JPRB, 0.466879E+00_JPRB, 0.452377E+00_JPRB &
+  &, 0.437987E+00_JPRB, 0.423704E+00_JPRB, 0.409547E+00_JPRB, 0.395537E+00_JPRB &
+  &, 0.381693E+00_JPRB, 0.368022E+00_JPRB, 0.354542E+00_JPRB &
+  &, 0.341258E+00_JPRB, 0.328187E+00_JPRB, 0.315347E+00_JPRB, 0.302721E+00_JPRB &
+  &, 0.290357E+00_JPRB, 0.278254E+00_JPRB, 0.266406E+00_JPRB &
+  &, 0.254825E+00_JPRB, 0.243521E+00_JPRB, 0.232502E+00_JPRB, 0.221794E+00_JPRB &
+  &, 0.211366E+00_JPRB, 0.201239E+00_JPRB, 0.191394E+00_JPRB &
+  &, 0.181874E+00_JPRB, 0.172676E+00_JPRB, 0.163755E+00_JPRB, 0.155147E+00_JPRB &
+  &, 0.146868E+00_JPRB, 0.138886E+00_JPRB, 0.131188E+00_JPRB &
+  &, 0.123807E+00_JPRB, 0.116729E+00_JPRB, 0.109935E+00_JPRB, 0.103430E+00_JPRB &
+  &, 0.972168E-01_JPRB, 0.912986E-01_JPRB, 0.856216E-01_JPRB &
+  &, 0.802380E-01_JPRB, 0.751180E-01_JPRB, 0.702281E-01_JPRB, 0.656194E-01_JPRB &
+  &, 0.612258E-01_JPRB, 0.570669E-01_JPRB, 0.531628E-01_JPRB &
+  &, 0.494390E-01_JPRB, 0.459437E-01_JPRB, 0.426622E-01_JPRB, 0.395444E-01_JPRB &
+  &, 0.366379E-01_JPRB, 0.338893E-01_JPRB, 0.313462E-01_JPRB &
+  &, 0.289517E-01_JPRB, 0.266807E-01_JPRB, 0.246167E-01_JPRB, 0.226605E-01_JPRB &
+  &, 0.208203E-01_JPRB, 0.191045E-01_JPRB, 0.175612E-01_JPRB &
+  &, 0.160806E-01_JPRB, 0.147085E-01_JPRB, 0.134521E-01_JPRB, 0.123185E-01_JPRB &
+  &, 0.112296E-01_JPRB, 0.102324E-01_JPRB, 0.933239E-02_JPRB &
+  &, 0.849050E-02_JPRB, 0.771045E-02_JPRB, 0.699603E-02_JPRB, 0.635114E-02_JPRB &
+  &, 0.573205E-02_JPRB, 0.518901E-02_JPRB, 0.467698E-02_JPRB &
+  &, 0.424779E-02_JPRB, 0.380443E-02_JPRB, 0.344941E-02_JPRB, 0.308287E-02_JPRB &
+  &, 0.275750E-02_JPRB, 0.247544E-02_JPRB, 0.223886E-02_JPRB &
+  &, 0.199483E-02_JPRB, 0.179919E-02_JPRB, 0.159749E-02_JPRB, 0.144714E-02_JPRB &
+  &, 0.129219E-02_JPRB, 0.113258E-02_JPRB, 0.102814E-02_JPRB &
+  &, 0.859861E-03_JPRB, 0.809811E-03_JPRB, 0.695844E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 468, :) = (/ &
+  &  0.988545E+00_JPRB, 0.984658E+00_JPRB, 0.980368E+00_JPRB, 0.975677E+00_JPRB &
+  &, 0.970587E+00_JPRB, 0.965101E+00_JPRB, 0.959223E+00_JPRB &
+  &, 0.952956E+00_JPRB, 0.946304E+00_JPRB, 0.939270E+00_JPRB, 0.931859E+00_JPRB &
+  &, 0.924075E+00_JPRB, 0.915924E+00_JPRB, 0.907411E+00_JPRB &
+  &, 0.898541E+00_JPRB, 0.889322E+00_JPRB, 0.879755E+00_JPRB, 0.869854E+00_JPRB &
+  &, 0.859621E+00_JPRB, 0.849066E+00_JPRB, 0.838196E+00_JPRB &
+  &, 0.827019E+00_JPRB, 0.815544E+00_JPRB, 0.803790E+00_JPRB, 0.791755E+00_JPRB &
+  &, 0.779451E+00_JPRB, 0.766894E+00_JPRB, 0.754095E+00_JPRB &
+  &, 0.741064E+00_JPRB, 0.727814E+00_JPRB, 0.714355E+00_JPRB, 0.700710E+00_JPRB &
+  &, 0.686888E+00_JPRB, 0.672897E+00_JPRB, 0.658765E+00_JPRB &
+  &, 0.644487E+00_JPRB, 0.630102E+00_JPRB, 0.615622E+00_JPRB, 0.601048E+00_JPRB &
+  &, 0.586406E+00_JPRB, 0.571712E+00_JPRB, 0.556987E+00_JPRB &
+  &, 0.542241E+00_JPRB, 0.527501E+00_JPRB, 0.512768E+00_JPRB, 0.498071E+00_JPRB &
+  &, 0.483416E+00_JPRB, 0.468832E+00_JPRB, 0.454326E+00_JPRB &
+  &, 0.439919E+00_JPRB, 0.425629E+00_JPRB, 0.411463E+00_JPRB, 0.397457E+00_JPRB &
+  &, 0.383587E+00_JPRB, 0.369901E+00_JPRB, 0.356390E+00_JPRB &
+  &, 0.343087E+00_JPRB, 0.329995E+00_JPRB, 0.317132E+00_JPRB, 0.304497E+00_JPRB &
+  &, 0.292089E+00_JPRB, 0.279955E+00_JPRB, 0.268074E+00_JPRB &
+  &, 0.256458E+00_JPRB, 0.245134E+00_JPRB, 0.234094E+00_JPRB, 0.223325E+00_JPRB &
+  &, 0.212870E+00_JPRB, 0.202694E+00_JPRB, 0.192840E+00_JPRB &
+  &, 0.183287E+00_JPRB, 0.174033E+00_JPRB, 0.165074E+00_JPRB, 0.156449E+00_JPRB &
+  &, 0.148105E+00_JPRB, 0.140078E+00_JPRB, 0.132356E+00_JPRB &
+  &, 0.124926E+00_JPRB, 0.117821E+00_JPRB, 0.110972E+00_JPRB, 0.104436E+00_JPRB &
+  &, 0.981899E-01_JPRB, 0.922101E-01_JPRB, 0.865233E-01_JPRB &
+  &, 0.811013E-01_JPRB, 0.759125E-01_JPRB, 0.710086E-01_JPRB, 0.663556E-01_JPRB &
+  &, 0.619456E-01_JPRB, 0.577389E-01_JPRB, 0.537848E-01_JPRB &
+  &, 0.500406E-01_JPRB, 0.465239E-01_JPRB, 0.431871E-01_JPRB, 0.400786E-01_JPRB &
+  &, 0.371136E-01_JPRB, 0.343733E-01_JPRB, 0.317682E-01_JPRB &
+  &, 0.293453E-01_JPRB, 0.270809E-01_JPRB, 0.249497E-01_JPRB, 0.229991E-01_JPRB &
+  &, 0.211263E-01_JPRB, 0.194156E-01_JPRB, 0.178379E-01_JPRB &
+  &, 0.163217E-01_JPRB, 0.149535E-01_JPRB, 0.137010E-01_JPRB, 0.125293E-01_JPRB &
+  &, 0.114009E-01_JPRB, 0.104064E-01_JPRB, 0.950912E-02_JPRB &
+  &, 0.862511E-02_JPRB, 0.784714E-02_JPRB, 0.713483E-02_JPRB, 0.644509E-02_JPRB &
+  &, 0.587510E-02_JPRB, 0.528581E-02_JPRB, 0.477524E-02_JPRB &
+  &, 0.434750E-02_JPRB, 0.390562E-02_JPRB, 0.350075E-02_JPRB, 0.318703E-02_JPRB &
+  &, 0.286317E-02_JPRB, 0.252903E-02_JPRB, 0.229322E-02_JPRB &
+  &, 0.204997E-02_JPRB, 0.185510E-02_JPRB, 0.165418E-02_JPRB, 0.144714E-02_JPRB &
+  &, 0.129219E-02_JPRB, 0.113258E-02_JPRB, 0.102814E-02_JPRB &
+  &, 0.920565E-03_JPRB, 0.809811E-03_JPRB, 0.695844E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 469, :) = (/ &
+  &  0.988795E+00_JPRB, 0.984972E+00_JPRB, 0.980741E+00_JPRB, 0.976111E+00_JPRB &
+  &, 0.971081E+00_JPRB, 0.965655E+00_JPRB, 0.959836E+00_JPRB &
+  &, 0.953628E+00_JPRB, 0.947033E+00_JPRB, 0.940057E+00_JPRB, 0.932703E+00_JPRB &
+  &, 0.924973E+00_JPRB, 0.916879E+00_JPRB, 0.908419E+00_JPRB &
+  &, 0.899602E+00_JPRB, 0.890433E+00_JPRB, 0.880919E+00_JPRB, 0.871068E+00_JPRB &
+  &, 0.860884E+00_JPRB, 0.850373E+00_JPRB, 0.839552E+00_JPRB &
+  &, 0.828422E+00_JPRB, 0.816992E+00_JPRB, 0.805275E+00_JPRB, 0.793279E+00_JPRB &
+  &, 0.781015E+00_JPRB, 0.768496E+00_JPRB, 0.755732E+00_JPRB &
+  &, 0.742734E+00_JPRB, 0.729517E+00_JPRB, 0.716093E+00_JPRB, 0.702474E+00_JPRB &
+  &, 0.688679E+00_JPRB, 0.674715E+00_JPRB, 0.660602E+00_JPRB &
+  &, 0.646357E+00_JPRB, 0.631990E+00_JPRB, 0.617519E+00_JPRB, 0.602963E+00_JPRB &
+  &, 0.588338E+00_JPRB, 0.573662E+00_JPRB, 0.558942E+00_JPRB &
+  &, 0.544201E+00_JPRB, 0.529464E+00_JPRB, 0.514734E+00_JPRB, 0.500039E+00_JPRB &
+  &, 0.485383E+00_JPRB, 0.470798E+00_JPRB, 0.456289E+00_JPRB &
+  &, 0.441876E+00_JPRB, 0.427567E+00_JPRB, 0.413393E+00_JPRB, 0.399362E+00_JPRB &
+  &, 0.385494E+00_JPRB, 0.371780E+00_JPRB, 0.358268E+00_JPRB &
+  &, 0.344931E+00_JPRB, 0.331819E+00_JPRB, 0.318916E+00_JPRB, 0.306256E+00_JPRB &
+  &, 0.293837E+00_JPRB, 0.281673E+00_JPRB, 0.269761E+00_JPRB &
+  &, 0.258128E+00_JPRB, 0.246748E+00_JPRB, 0.235668E+00_JPRB, 0.224874E+00_JPRB &
+  &, 0.214374E+00_JPRB, 0.204170E+00_JPRB, 0.194285E+00_JPRB &
+  &, 0.184679E+00_JPRB, 0.175389E+00_JPRB, 0.166371E+00_JPRB, 0.157728E+00_JPRB &
+  &, 0.149364E+00_JPRB, 0.141293E+00_JPRB, 0.133524E+00_JPRB &
+  &, 0.126069E+00_JPRB, 0.118887E+00_JPRB, 0.112035E+00_JPRB, 0.105442E+00_JPRB &
+  &, 0.991630E-01_JPRB, 0.931485E-01_JPRB, 0.874250E-01_JPRB &
+  &, 0.819367E-01_JPRB, 0.767354E-01_JPRB, 0.717892E-01_JPRB, 0.670918E-01_JPRB &
+  &, 0.626355E-01_JPRB, 0.584109E-01_JPRB, 0.544380E-01_JPRB &
+  &, 0.506739E-01_JPRB, 0.471041E-01_JPRB, 0.437449E-01_JPRB, 0.405795E-01_JPRB &
+  &, 0.376232E-01_JPRB, 0.348227E-01_JPRB, 0.322255E-01_JPRB &
+  &, 0.297746E-01_JPRB, 0.274812E-01_JPRB, 0.253197E-01_JPRB, 0.233378E-01_JPRB &
+  &, 0.214706E-01_JPRB, 0.197267E-01_JPRB, 0.181146E-01_JPRB &
+  &, 0.166029E-01_JPRB, 0.151985E-01_JPRB, 0.139084E-01_JPRB, 0.127400E-01_JPRB &
+  &, 0.116150E-01_JPRB, 0.105804E-01_JPRB, 0.964166E-02_JPRB &
+  &, 0.880459E-02_JPRB, 0.798383E-02_JPRB, 0.727362E-02_JPRB, 0.658600E-02_JPRB &
+  &, 0.597046E-02_JPRB, 0.538262E-02_JPRB, 0.487349E-02_JPRB &
+  &, 0.439735E-02_JPRB, 0.400680E-02_JPRB, 0.360341E-02_JPRB, 0.323912E-02_JPRB &
+  &, 0.291601E-02_JPRB, 0.258263E-02_JPRB, 0.234758E-02_JPRB &
+  &, 0.210510E-02_JPRB, 0.185510E-02_JPRB, 0.165418E-02_JPRB, 0.150463E-02_JPRB &
+  &, 0.135047E-02_JPRB, 0.119166E-02_JPRB, 0.102814E-02_JPRB &
+  &, 0.920565E-03_JPRB, 0.809811E-03_JPRB, 0.758193E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.586165E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART67',1,ZHOOK_HANDLE)
+END SUBROUTINE PART67
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART68
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART68',0,ZHOOK_HANDLE)
+
+XCW( 470, :) = (/ &
+  &  0.989045E+00_JPRB, 0.985282E+00_JPRB, 0.981114E+00_JPRB, 0.976545E+00_JPRB &
+  &, 0.971575E+00_JPRB, 0.966210E+00_JPRB, 0.960449E+00_JPRB &
+  &, 0.954299E+00_JPRB, 0.947763E+00_JPRB, 0.940844E+00_JPRB, 0.933546E+00_JPRB &
+  &, 0.925874E+00_JPRB, 0.917833E+00_JPRB, 0.909428E+00_JPRB &
+  &, 0.900663E+00_JPRB, 0.891547E+00_JPRB, 0.882083E+00_JPRB, 0.872281E+00_JPRB &
+  &, 0.862146E+00_JPRB, 0.851683E+00_JPRB, 0.840907E+00_JPRB &
+  &, 0.829821E+00_JPRB, 0.818437E+00_JPRB, 0.806760E+00_JPRB, 0.794806E+00_JPRB &
+  &, 0.782583E+00_JPRB, 0.770101E+00_JPRB, 0.757373E+00_JPRB &
+  &, 0.744411E+00_JPRB, 0.731224E+00_JPRB, 0.717830E+00_JPRB, 0.704242E+00_JPRB &
+  &, 0.690474E+00_JPRB, 0.676533E+00_JPRB, 0.662448E+00_JPRB &
+  &, 0.648217E+00_JPRB, 0.633869E+00_JPRB, 0.619425E+00_JPRB, 0.604878E+00_JPRB &
+  &, 0.590271E+00_JPRB, 0.575601E+00_JPRB, 0.560876E+00_JPRB &
+  &, 0.546162E+00_JPRB, 0.531428E+00_JPRB, 0.516701E+00_JPRB, 0.502006E+00_JPRB &
+  &, 0.487350E+00_JPRB, 0.472763E+00_JPRB, 0.458251E+00_JPRB &
+  &, 0.443821E+00_JPRB, 0.429518E+00_JPRB, 0.415336E+00_JPRB, 0.401282E+00_JPRB &
+  &, 0.387387E+00_JPRB, 0.373673E+00_JPRB, 0.360130E+00_JPRB &
+  &, 0.346791E+00_JPRB, 0.333642E+00_JPRB, 0.320733E+00_JPRB, 0.308032E+00_JPRB &
+  &, 0.295586E+00_JPRB, 0.283392E+00_JPRB, 0.271447E+00_JPRB &
+  &, 0.259779E+00_JPRB, 0.248381E+00_JPRB, 0.237260E+00_JPRB, 0.226443E+00_JPRB &
+  &, 0.215898E+00_JPRB, 0.205666E+00_JPRB, 0.195731E+00_JPRB &
+  &, 0.186092E+00_JPRB, 0.176768E+00_JPRB, 0.167734E+00_JPRB, 0.159029E+00_JPRB &
+  &, 0.150601E+00_JPRB, 0.142508E+00_JPRB, 0.134693E+00_JPRB &
+  &, 0.127188E+00_JPRB, 0.120004E+00_JPRB, 0.113097E+00_JPRB, 0.106474E+00_JPRB &
+  &, 0.100136E+00_JPRB, 0.940869E-01_JPRB, 0.882995E-01_JPRB &
+  &, 0.828000E-01_JPRB, 0.775583E-01_JPRB, 0.725986E-01_JPRB, 0.678574E-01_JPRB &
+  &, 0.633553E-01_JPRB, 0.591134E-01_JPRB, 0.550911E-01_JPRB &
+  &, 0.512756E-01_JPRB, 0.476844E-01_JPRB, 0.443026E-01_JPRB, 0.411137E-01_JPRB &
+  &, 0.381329E-01_JPRB, 0.353067E-01_JPRB, 0.326475E-01_JPRB &
+  &, 0.301681E-01_JPRB, 0.278450E-01_JPRB, 0.256898E-01_JPRB, 0.236764E-01_JPRB &
+  &, 0.217767E-01_JPRB, 0.200379E-01_JPRB, 0.183914E-01_JPRB &
+  &, 0.168841E-01_JPRB, 0.154434E-01_JPRB, 0.141573E-01_JPRB, 0.129508E-01_JPRB &
+  &, 0.118291E-01_JPRB, 0.107979E-01_JPRB, 0.981839E-02_JPRB &
+  &, 0.893920E-02_JPRB, 0.812053E-02_JPRB, 0.741242E-02_JPRB, 0.672692E-02_JPRB &
+  &, 0.606583E-02_JPRB, 0.552782E-02_JPRB, 0.497174E-02_JPRB &
+  &, 0.449707E-02_JPRB, 0.405739E-02_JPRB, 0.365475E-02_JPRB, 0.329120E-02_JPRB &
+  &, 0.296885E-02_JPRB, 0.268982E-02_JPRB, 0.240195E-02_JPRB &
+  &, 0.216024E-02_JPRB, 0.191101E-02_JPRB, 0.171088E-02_JPRB, 0.150463E-02_JPRB &
+  &, 0.135047E-02_JPRB, 0.119166E-02_JPRB, 0.108803E-02_JPRB &
+  &, 0.981270E-03_JPRB, 0.871335E-03_JPRB, 0.758193E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.586165E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 471, :) = (/ &
+  &  0.989294E+00_JPRB, 0.985593E+00_JPRB, 0.981486E+00_JPRB, 0.976979E+00_JPRB &
+  &, 0.972070E+00_JPRB, 0.966764E+00_JPRB, 0.961063E+00_JPRB &
+  &, 0.954972E+00_JPRB, 0.948494E+00_JPRB, 0.941631E+00_JPRB, 0.934390E+00_JPRB &
+  &, 0.926774E+00_JPRB, 0.918787E+00_JPRB, 0.910392E+00_JPRB &
+  &, 0.901725E+00_JPRB, 0.892660E+00_JPRB, 0.883248E+00_JPRB, 0.873496E+00_JPRB &
+  &, 0.863408E+00_JPRB, 0.852997E+00_JPRB, 0.842266E+00_JPRB &
+  &, 0.831223E+00_JPRB, 0.819881E+00_JPRB, 0.808249E+00_JPRB, 0.796337E+00_JPRB &
+  &, 0.784150E+00_JPRB, 0.771707E+00_JPRB, 0.759014E+00_JPRB &
+  &, 0.746085E+00_JPRB, 0.732935E+00_JPRB, 0.719571E+00_JPRB, 0.706010E+00_JPRB &
+  &, 0.692269E+00_JPRB, 0.678356E+00_JPRB, 0.664294E+00_JPRB &
+  &, 0.650087E+00_JPRB, 0.635757E+00_JPRB, 0.621332E+00_JPRB, 0.606803E+00_JPRB &
+  &, 0.592203E+00_JPRB, 0.577550E+00_JPRB, 0.562853E+00_JPRB &
+  &, 0.548122E+00_JPRB, 0.533392E+00_JPRB, 0.518679E+00_JPRB, 0.503962E+00_JPRB &
+  &, 0.489330E+00_JPRB, 0.474729E+00_JPRB, 0.460214E+00_JPRB &
+  &, 0.445792E+00_JPRB, 0.431470E+00_JPRB, 0.417266E+00_JPRB, 0.403215E+00_JPRB &
+  &, 0.389309E+00_JPRB, 0.375567E+00_JPRB, 0.362008E+00_JPRB &
+  &, 0.348635E+00_JPRB, 0.335482E+00_JPRB, 0.322534E+00_JPRB, 0.309824E+00_JPRB &
+  &, 0.297351E+00_JPRB, 0.285128E+00_JPRB, 0.273151E+00_JPRB &
+  &, 0.261448E+00_JPRB, 0.250013E+00_JPRB, 0.238871E+00_JPRB, 0.228013E+00_JPRB &
+  &, 0.217442E+00_JPRB, 0.207162E+00_JPRB, 0.197197E+00_JPRB &
+  &, 0.187526E+00_JPRB, 0.178146E+00_JPRB, 0.169075E+00_JPRB, 0.160331E+00_JPRB &
+  &, 0.151883E+00_JPRB, 0.143723E+00_JPRB, 0.135885E+00_JPRB &
+  &, 0.128331E+00_JPRB, 0.121095E+00_JPRB, 0.114160E+00_JPRB, 0.107506E+00_JPRB &
+  &, 0.101136E+00_JPRB, 0.950252E-01_JPRB, 0.892286E-01_JPRB &
+  &, 0.836911E-01_JPRB, 0.784095E-01_JPRB, 0.733791E-01_JPRB, 0.686231E-01_JPRB &
+  &, 0.640752E-01_JPRB, 0.598159E-01_JPRB, 0.557442E-01_JPRB &
+  &, 0.519089E-01_JPRB, 0.482968E-01_JPRB, 0.448604E-01_JPRB, 0.416480E-01_JPRB &
+  &, 0.386086E-01_JPRB, 0.357907E-01_JPRB, 0.331047E-01_JPRB &
+  &, 0.305974E-01_JPRB, 0.282453E-01_JPRB, 0.260598E-01_JPRB, 0.240150E-01_JPRB &
+  &, 0.221210E-01_JPRB, 0.203490E-01_JPRB, 0.186681E-01_JPRB &
+  &, 0.171252E-01_JPRB, 0.157292E-01_JPRB, 0.143648E-01_JPRB, 0.131615E-01_JPRB &
+  &, 0.120432E-01_JPRB, 0.109719E-01_JPRB, 0.999512E-02_JPRB &
+  &, 0.911869E-02_JPRB, 0.830279E-02_JPRB, 0.755121E-02_JPRB, 0.682086E-02_JPRB &
+  &, 0.620888E-02_JPRB, 0.562463E-02_JPRB, 0.506999E-02_JPRB &
+  &, 0.459678E-02_JPRB, 0.415858E-02_JPRB, 0.375742E-02_JPRB, 0.339536E-02_JPRB &
+  &, 0.302168E-02_JPRB, 0.274342E-02_JPRB, 0.245631E-02_JPRB &
+  &, 0.221537E-02_JPRB, 0.196692E-02_JPRB, 0.176757E-02_JPRB, 0.156211E-02_JPRB &
+  &, 0.140875E-02_JPRB, 0.125075E-02_JPRB, 0.108803E-02_JPRB &
+  &, 0.981270E-03_JPRB, 0.871335E-03_JPRB, 0.758193E-03_JPRB, 0.704990E-03_JPRB &
+  &, 0.586165E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 472, :) = (/ &
+  &  0.989542E+00_JPRB, 0.985906E+00_JPRB, 0.981859E+00_JPRB, 0.977413E+00_JPRB &
+  &, 0.972565E+00_JPRB, 0.967318E+00_JPRB, 0.961677E+00_JPRB &
+  &, 0.955645E+00_JPRB, 0.949224E+00_JPRB, 0.942420E+00_JPRB, 0.935235E+00_JPRB &
+  &, 0.927674E+00_JPRB, 0.919742E+00_JPRB, 0.911446E+00_JPRB &
+  &, 0.902787E+00_JPRB, 0.893775E+00_JPRB, 0.884415E+00_JPRB, 0.874711E+00_JPRB &
+  &, 0.864674E+00_JPRB, 0.854307E+00_JPRB, 0.843624E+00_JPRB &
+  &, 0.832626E+00_JPRB, 0.821330E+00_JPRB, 0.809738E+00_JPRB, 0.797865E+00_JPRB &
+  &, 0.785722E+00_JPRB, 0.773316E+00_JPRB, 0.760659E+00_JPRB &
+  &, 0.747766E+00_JPRB, 0.734646E+00_JPRB, 0.721316E+00_JPRB, 0.707782E+00_JPRB &
+  &, 0.694068E+00_JPRB, 0.680183E+00_JPRB, 0.666144E+00_JPRB &
+  &, 0.651956E+00_JPRB, 0.637655E+00_JPRB, 0.623239E+00_JPRB, 0.608728E+00_JPRB &
+  &, 0.594146E+00_JPRB, 0.579500E+00_JPRB, 0.564808E+00_JPRB &
+  &, 0.550093E+00_JPRB, 0.535367E+00_JPRB, 0.520656E+00_JPRB, 0.505965E+00_JPRB &
+  &, 0.491309E+00_JPRB, 0.476707E+00_JPRB, 0.462189E+00_JPRB &
+  &, 0.447750E+00_JPRB, 0.433421E+00_JPRB, 0.419223E+00_JPRB, 0.405149E+00_JPRB &
+  &, 0.391231E+00_JPRB, 0.377475E+00_JPRB, 0.363885E+00_JPRB &
+  &, 0.350510E+00_JPRB, 0.337321E+00_JPRB, 0.324351E+00_JPRB, 0.311617E+00_JPRB &
+  &, 0.299116E+00_JPRB, 0.286864E+00_JPRB, 0.274855E+00_JPRB &
+  &, 0.263118E+00_JPRB, 0.251664E+00_JPRB, 0.240483E+00_JPRB, 0.229582E+00_JPRB &
+  &, 0.218986E+00_JPRB, 0.208659E+00_JPRB, 0.198663E+00_JPRB &
+  &, 0.188938E+00_JPRB, 0.179545E+00_JPRB, 0.170438E+00_JPRB, 0.161632E+00_JPRB &
+  &, 0.153143E+00_JPRB, 0.144962E+00_JPRB, 0.137077E+00_JPRB &
+  &, 0.129499E+00_JPRB, 0.122211E+00_JPRB, 0.115222E+00_JPRB, 0.108537E+00_JPRB &
+  &, 0.102109E+00_JPRB, 0.959904E-01_JPRB, 0.901303E-01_JPRB &
+  &, 0.845543E-01_JPRB, 0.792324E-01_JPRB, 0.741886E-01_JPRB, 0.693887E-01_JPRB &
+  &, 0.648250E-01_JPRB, 0.604879E-01_JPRB, 0.563974E-01_JPRB &
+  &, 0.525422E-01_JPRB, 0.488770E-01_JPRB, 0.454182E-01_JPRB, 0.421822E-01_JPRB &
+  &, 0.391182E-01_JPRB, 0.362401E-01_JPRB, 0.335619E-01_JPRB &
+  &, 0.310267E-01_JPRB, 0.286455E-01_JPRB, 0.264298E-01_JPRB, 0.243913E-01_JPRB &
+  &, 0.224270E-01_JPRB, 0.206601E-01_JPRB, 0.189843E-01_JPRB &
+  &, 0.174064E-01_JPRB, 0.159742E-01_JPRB, 0.146137E-01_JPRB, 0.133723E-01_JPRB &
+  &, 0.122145E-01_JPRB, 0.111459E-01_JPRB, 0.101718E-01_JPRB &
+  &, 0.929817E-02_JPRB, 0.843948E-02_JPRB, 0.769001E-02_JPRB, 0.696177E-02_JPRB &
+  &, 0.630425E-02_JPRB, 0.572143E-02_JPRB, 0.516824E-02_JPRB &
+  &, 0.469649E-02_JPRB, 0.425976E-02_JPRB, 0.380875E-02_JPRB, 0.344745E-02_JPRB &
+  &, 0.307452E-02_JPRB, 0.279702E-02_JPRB, 0.251067E-02_JPRB &
+  &, 0.227051E-02_JPRB, 0.202284E-02_JPRB, 0.182427E-02_JPRB, 0.161960E-02_JPRB &
+  &, 0.140875E-02_JPRB, 0.125075E-02_JPRB, 0.114792E-02_JPRB &
+  &, 0.981270E-03_JPRB, 0.871335E-03_JPRB, 0.820543E-03_JPRB, 0.704990E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 473, :) = (/ &
+  &  0.989792E+00_JPRB, 0.986216E+00_JPRB, 0.982233E+00_JPRB, 0.977847E+00_JPRB &
+  &, 0.973059E+00_JPRB, 0.967872E+00_JPRB, 0.962291E+00_JPRB &
+  &, 0.956317E+00_JPRB, 0.949955E+00_JPRB, 0.943208E+00_JPRB, 0.936080E+00_JPRB &
+  &, 0.928575E+00_JPRB, 0.920698E+00_JPRB, 0.912455E+00_JPRB &
+  &, 0.903851E+00_JPRB, 0.894891E+00_JPRB, 0.885580E+00_JPRB, 0.875928E+00_JPRB &
+  &, 0.865939E+00_JPRB, 0.855620E+00_JPRB, 0.844983E+00_JPRB &
+  &, 0.834032E+00_JPRB, 0.822778E+00_JPRB, 0.811230E+00_JPRB, 0.799400E+00_JPRB &
+  &, 0.787293E+00_JPRB, 0.774925E+00_JPRB, 0.762304E+00_JPRB &
+  &, 0.749447E+00_JPRB, 0.736361E+00_JPRB, 0.723062E+00_JPRB, 0.709559E+00_JPRB &
+  &, 0.695872E+00_JPRB, 0.682015E+00_JPRB, 0.667995E+00_JPRB &
+  &, 0.653835E+00_JPRB, 0.639553E+00_JPRB, 0.625155E+00_JPRB, 0.610663E+00_JPRB &
+  &, 0.596089E+00_JPRB, 0.581460E+00_JPRB, 0.566774E+00_JPRB &
+  &, 0.552076E+00_JPRB, 0.537354E+00_JPRB, 0.522634E+00_JPRB, 0.507944E+00_JPRB &
+  &, 0.493289E+00_JPRB, 0.478698E+00_JPRB, 0.464165E+00_JPRB &
+  &, 0.449721E+00_JPRB, 0.435386E+00_JPRB, 0.421167E+00_JPRB, 0.407083E+00_JPRB &
+  &, 0.393153E+00_JPRB, 0.379384E+00_JPRB, 0.365778E+00_JPRB &
+  &, 0.352370E+00_JPRB, 0.339177E+00_JPRB, 0.326185E+00_JPRB, 0.313409E+00_JPRB &
+  &, 0.300882E+00_JPRB, 0.288600E+00_JPRB, 0.276577E+00_JPRB &
+  &, 0.264806E+00_JPRB, 0.253315E+00_JPRB, 0.242094E+00_JPRB, 0.231170E+00_JPRB &
+  &, 0.220529E+00_JPRB, 0.210175E+00_JPRB, 0.200129E+00_JPRB &
+  &, 0.190372E+00_JPRB, 0.180945E+00_JPRB, 0.171801E+00_JPRB, 0.162956E+00_JPRB &
+  &, 0.154425E+00_JPRB, 0.146200E+00_JPRB, 0.138269E+00_JPRB &
+  &, 0.130666E+00_JPRB, 0.123328E+00_JPRB, 0.116310E+00_JPRB, 0.109569E+00_JPRB &
+  &, 0.103108E+00_JPRB, 0.969555E-01_JPRB, 0.910594E-01_JPRB &
+  &, 0.854455E-01_JPRB, 0.800836E-01_JPRB, 0.749980E-01_JPRB, 0.701543E-01_JPRB &
+  &, 0.655748E-01_JPRB, 0.611904E-01_JPRB, 0.570816E-01_JPRB &
+  &, 0.531755E-01_JPRB, 0.494895E-01_JPRB, 0.460087E-01_JPRB, 0.427165E-01_JPRB &
+  &, 0.396279E-01_JPRB, 0.367586E-01_JPRB, 0.340191E-01_JPRB &
+  &, 0.314560E-01_JPRB, 0.290821E-01_JPRB, 0.268369E-01_JPRB, 0.247299E-01_JPRB &
+  &, 0.227713E-01_JPRB, 0.209712E-01_JPRB, 0.192610E-01_JPRB &
+  &, 0.176877E-01_JPRB, 0.162192E-01_JPRB, 0.148626E-01_JPRB, 0.136252E-01_JPRB &
+  &, 0.124287E-01_JPRB, 0.113634E-01_JPRB, 0.103486E-01_JPRB &
+  &, 0.943278E-02_JPRB, 0.857618E-02_JPRB, 0.782880E-02_JPRB, 0.710269E-02_JPRB &
+  &, 0.644730E-02_JPRB, 0.586664E-02_JPRB, 0.526650E-02_JPRB &
+  &, 0.479620E-02_JPRB, 0.431036E-02_JPRB, 0.391142E-02_JPRB, 0.349953E-02_JPRB &
+  &, 0.318019E-02_JPRB, 0.285061E-02_JPRB, 0.256503E-02_JPRB &
+  &, 0.227051E-02_JPRB, 0.207875E-02_JPRB, 0.182427E-02_JPRB, 0.161960E-02_JPRB &
+  &, 0.146704E-02_JPRB, 0.130983E-02_JPRB, 0.114792E-02_JPRB &
+  &, 0.104197E-02_JPRB, 0.932859E-03_JPRB, 0.820543E-03_JPRB, 0.704990E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 474, :) = (/ &
+  &  0.990043E+00_JPRB, 0.986529E+00_JPRB, 0.982606E+00_JPRB, 0.978281E+00_JPRB &
+  &, 0.973553E+00_JPRB, 0.968427E+00_JPRB, 0.962905E+00_JPRB &
+  &, 0.956989E+00_JPRB, 0.950686E+00_JPRB, 0.943996E+00_JPRB, 0.936925E+00_JPRB &
+  &, 0.929476E+00_JPRB, 0.921655E+00_JPRB, 0.913466E+00_JPRB &
+  &, 0.904914E+00_JPRB, 0.896007E+00_JPRB, 0.886748E+00_JPRB, 0.877146E+00_JPRB &
+  &, 0.867206E+00_JPRB, 0.856937E+00_JPRB, 0.846345E+00_JPRB &
+  &, 0.835437E+00_JPRB, 0.824229E+00_JPRB, 0.812723E+00_JPRB, 0.800934E+00_JPRB &
+  &, 0.788868E+00_JPRB, 0.776538E+00_JPRB, 0.763953E+00_JPRB &
+  &, 0.751129E+00_JPRB, 0.738076E+00_JPRB, 0.724807E+00_JPRB, 0.711339E+00_JPRB &
+  &, 0.697680E+00_JPRB, 0.683846E+00_JPRB, 0.669855E+00_JPRB &
+  &, 0.655714E+00_JPRB, 0.641451E+00_JPRB, 0.627072E+00_JPRB, 0.612598E+00_JPRB &
+  &, 0.598041E+00_JPRB, 0.583420E+00_JPRB, 0.568751E+00_JPRB &
+  &, 0.554047E+00_JPRB, 0.539340E+00_JPRB, 0.524624E+00_JPRB, 0.509936E+00_JPRB &
+  &, 0.495280E+00_JPRB, 0.480688E+00_JPRB, 0.466153E+00_JPRB &
+  &, 0.451705E+00_JPRB, 0.437365E+00_JPRB, 0.423124E+00_JPRB, 0.409030E+00_JPRB &
+  &, 0.395090E+00_JPRB, 0.381292E+00_JPRB, 0.367686E+00_JPRB &
+  &, 0.354245E+00_JPRB, 0.341032E+00_JPRB, 0.328018E+00_JPRB, 0.315218E+00_JPRB &
+  &, 0.302664E+00_JPRB, 0.290353E+00_JPRB, 0.278298E+00_JPRB &
+  &, 0.266493E+00_JPRB, 0.254984E+00_JPRB, 0.243724E+00_JPRB, 0.232759E+00_JPRB &
+  &, 0.222093E+00_JPRB, 0.211691E+00_JPRB, 0.201616E+00_JPRB &
+  &, 0.191827E+00_JPRB, 0.182344E+00_JPRB, 0.173164E+00_JPRB, 0.164280E+00_JPRB &
+  &, 0.155708E+00_JPRB, 0.147439E+00_JPRB, 0.139485E+00_JPRB &
+  &, 0.131833E+00_JPRB, 0.124469E+00_JPRB, 0.117398E+00_JPRB, 0.110627E+00_JPRB &
+  &, 0.104134E+00_JPRB, 0.979207E-01_JPRB, 0.919885E-01_JPRB &
+  &, 0.863366E-01_JPRB, 0.809349E-01_JPRB, 0.758074E-01_JPRB, 0.709494E-01_JPRB &
+  &, 0.662946E-01_JPRB, 0.619235E-01_JPRB, 0.577658E-01_JPRB &
+  &, 0.538088E-01_JPRB, 0.501019E-01_JPRB, 0.465993E-01_JPRB, 0.432841E-01_JPRB &
+  &, 0.401715E-01_JPRB, 0.372426E-01_JPRB, 0.344763E-01_JPRB &
+  &, 0.318853E-01_JPRB, 0.294824E-01_JPRB, 0.272069E-01_JPRB, 0.251062E-01_JPRB &
+  &, 0.231156E-01_JPRB, 0.212823E-01_JPRB, 0.195772E-01_JPRB &
+  &, 0.179689E-01_JPRB, 0.165050E-01_JPRB, 0.151116E-01_JPRB, 0.138360E-01_JPRB &
+  &, 0.126428E-01_JPRB, 0.115374E-01_JPRB, 0.105695E-01_JPRB &
+  &, 0.961226E-02_JPRB, 0.875844E-02_JPRB, 0.796760E-02_JPRB, 0.724360E-02_JPRB &
+  &, 0.659035E-02_JPRB, 0.596344E-02_JPRB, 0.541388E-02_JPRB &
+  &, 0.489592E-02_JPRB, 0.441154E-02_JPRB, 0.396276E-02_JPRB, 0.360369E-02_JPRB &
+  &, 0.323303E-02_JPRB, 0.290421E-02_JPRB, 0.261940E-02_JPRB &
+  &, 0.232564E-02_JPRB, 0.207875E-02_JPRB, 0.188097E-02_JPRB, 0.167709E-02_JPRB &
+  &, 0.152532E-02_JPRB, 0.136891E-02_JPRB, 0.120781E-02_JPRB &
+  &, 0.104197E-02_JPRB, 0.932859E-03_JPRB, 0.820543E-03_JPRB, 0.768171E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.593756E-03_JPRB, 0.535689E-03_JPRB/)
+XCW( 475, :) = (/ &
+  &  0.990295E+00_JPRB, 0.986839E+00_JPRB, 0.982979E+00_JPRB, 0.978714E+00_JPRB &
+  &, 0.974047E+00_JPRB, 0.968982E+00_JPRB, 0.963519E+00_JPRB &
+  &, 0.957663E+00_JPRB, 0.951417E+00_JPRB, 0.944785E+00_JPRB, 0.937770E+00_JPRB &
+  &, 0.930377E+00_JPRB, 0.922612E+00_JPRB, 0.914477E+00_JPRB &
+  &, 0.905980E+00_JPRB, 0.897124E+00_JPRB, 0.887917E+00_JPRB, 0.878364E+00_JPRB &
+  &, 0.868473E+00_JPRB, 0.858250E+00_JPRB, 0.847707E+00_JPRB &
+  &, 0.836847E+00_JPRB, 0.825681E+00_JPRB, 0.814218E+00_JPRB, 0.802469E+00_JPRB &
+  &, 0.790443E+00_JPRB, 0.778151E+00_JPRB, 0.765605E+00_JPRB &
+  &, 0.752814E+00_JPRB, 0.739795E+00_JPRB, 0.726561E+00_JPRB, 0.713120E+00_JPRB &
+  &, 0.699489E+00_JPRB, 0.685682E+00_JPRB, 0.671714E+00_JPRB &
+  &, 0.657593E+00_JPRB, 0.643349E+00_JPRB, 0.628988E+00_JPRB, 0.614532E+00_JPRB &
+  &, 0.599994E+00_JPRB, 0.585380E+00_JPRB, 0.570729E+00_JPRB &
+  &, 0.556040E+00_JPRB, 0.541327E+00_JPRB, 0.526625E+00_JPRB, 0.511939E+00_JPRB &
+  &, 0.497284E+00_JPRB, 0.482679E+00_JPRB, 0.468141E+00_JPRB &
+  &, 0.453689E+00_JPRB, 0.439329E+00_JPRB, 0.425095E+00_JPRB, 0.410992E+00_JPRB &
+  &, 0.397026E+00_JPRB, 0.383215E+00_JPRB, 0.369579E+00_JPRB &
+  &, 0.356136E+00_JPRB, 0.342887E+00_JPRB, 0.329852E+00_JPRB, 0.317044E+00_JPRB &
+  &, 0.304447E+00_JPRB, 0.292107E+00_JPRB, 0.280020E+00_JPRB &
+  &, 0.268199E+00_JPRB, 0.256635E+00_JPRB, 0.245355E+00_JPRB, 0.234366E+00_JPRB &
+  &, 0.223656E+00_JPRB, 0.213228E+00_JPRB, 0.203103E+00_JPRB &
+  &, 0.193283E+00_JPRB, 0.183766E+00_JPRB, 0.174549E+00_JPRB, 0.165626E+00_JPRB &
+  &, 0.157013E+00_JPRB, 0.148701E+00_JPRB, 0.140701E+00_JPRB &
+  &, 0.133001E+00_JPRB, 0.125585E+00_JPRB, 0.118486E+00_JPRB, 0.111685E+00_JPRB &
+  &, 0.105133E+00_JPRB, 0.988859E-01_JPRB, 0.929448E-01_JPRB &
+  &, 0.872277E-01_JPRB, 0.818145E-01_JPRB, 0.766458E-01_JPRB, 0.717151E-01_JPRB &
+  &, 0.670745E-01_JPRB, 0.626260E-01_JPRB, 0.584501E-01_JPRB &
+  &, 0.544737E-01_JPRB, 0.507144E-01_JPRB, 0.471899E-01_JPRB, 0.438517E-01_JPRB &
+  &, 0.406812E-01_JPRB, 0.377266E-01_JPRB, 0.349687E-01_JPRB &
+  &, 0.323503E-01_JPRB, 0.298826E-01_JPRB, 0.276139E-01_JPRB, 0.254824E-01_JPRB &
+  &, 0.234599E-01_JPRB, 0.215934E-01_JPRB, 0.198540E-01_JPRB &
+  &, 0.182501E-01_JPRB, 0.167500E-01_JPRB, 0.153605E-01_JPRB, 0.140467E-01_JPRB &
+  &, 0.128569E-01_JPRB, 0.117549E-01_JPRB, 0.107462E-01_JPRB &
+  &, 0.979174E-02_JPRB, 0.889513E-02_JPRB, 0.810640E-02_JPRB, 0.738452E-02_JPRB &
+  &, 0.668572E-02_JPRB, 0.606024E-02_JPRB, 0.551213E-02_JPRB &
+  &, 0.499563E-02_JPRB, 0.451272E-02_JPRB, 0.406543E-02_JPRB, 0.365578E-02_JPRB &
+  &, 0.328586E-02_JPRB, 0.295781E-02_JPRB, 0.267376E-02_JPRB &
+  &, 0.238077E-02_JPRB, 0.213466E-02_JPRB, 0.193766E-02_JPRB, 0.173457E-02_JPRB &
+  &, 0.152532E-02_JPRB, 0.136891E-02_JPRB, 0.120781E-02_JPRB &
+  &, 0.110268E-02_JPRB, 0.994383E-03_JPRB, 0.882892E-03_JPRB, 0.768171E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.593756E-03_JPRB, 0.535689E-03_JPRB/)
+XCW( 476, :) = (/ &
+  &  0.990542E+00_JPRB, 0.987151E+00_JPRB, 0.983352E+00_JPRB, 0.979149E+00_JPRB &
+  &, 0.974543E+00_JPRB, 0.969537E+00_JPRB, 0.964133E+00_JPRB &
+  &, 0.958336E+00_JPRB, 0.952149E+00_JPRB, 0.945575E+00_JPRB, 0.938617E+00_JPRB &
+  &, 0.931280E+00_JPRB, 0.923569E+00_JPRB, 0.915489E+00_JPRB &
+  &, 0.907045E+00_JPRB, 0.898241E+00_JPRB, 0.889085E+00_JPRB, 0.879583E+00_JPRB &
+  &, 0.869742E+00_JPRB, 0.859567E+00_JPRB, 0.849068E+00_JPRB &
+  &, 0.838256E+00_JPRB, 0.827136E+00_JPRB, 0.815714E+00_JPRB, 0.804007E+00_JPRB &
+  &, 0.792022E+00_JPRB, 0.779768E+00_JPRB, 0.767257E+00_JPRB &
+  &, 0.754503E+00_JPRB, 0.741518E+00_JPRB, 0.728314E+00_JPRB, 0.714901E+00_JPRB &
+  &, 0.701301E+00_JPRB, 0.687518E+00_JPRB, 0.673574E+00_JPRB &
+  &, 0.659481E+00_JPRB, 0.645256E+00_JPRB, 0.630915E+00_JPRB, 0.616477E+00_JPRB &
+  &, 0.601947E+00_JPRB, 0.587350E+00_JPRB, 0.572706E+00_JPRB &
+  &, 0.558023E+00_JPRB, 0.543325E+00_JPRB, 0.528626E+00_JPRB, 0.513942E+00_JPRB &
+  &, 0.499288E+00_JPRB, 0.484682E+00_JPRB, 0.470142E+00_JPRB &
+  &, 0.455673E+00_JPRB, 0.441321E+00_JPRB, 0.427066E+00_JPRB, 0.412940E+00_JPRB &
+  &, 0.398963E+00_JPRB, 0.385153E+00_JPRB, 0.371502E+00_JPRB &
+  &, 0.358026E+00_JPRB, 0.344759E+00_JPRB, 0.331701E+00_JPRB, 0.318853E+00_JPRB &
+  &, 0.306246E+00_JPRB, 0.293877E+00_JPRB, 0.281760E+00_JPRB &
+  &, 0.269905E+00_JPRB, 0.258323E+00_JPRB, 0.247004E+00_JPRB, 0.235974E+00_JPRB &
+  &, 0.225220E+00_JPRB, 0.214764E+00_JPRB, 0.204610E+00_JPRB &
+  &, 0.194738E+00_JPRB, 0.185187E+00_JPRB, 0.175933E+00_JPRB, 0.166972E+00_JPRB &
+  &, 0.158318E+00_JPRB, 0.149962E+00_JPRB, 0.141941E+00_JPRB &
+  &, 0.134193E+00_JPRB, 0.126751E+00_JPRB, 0.119599E+00_JPRB, 0.112742E+00_JPRB &
+  &, 0.106159E+00_JPRB, 0.998778E-01_JPRB, 0.938739E-01_JPRB &
+  &, 0.881466E-01_JPRB, 0.826657E-01_JPRB, 0.774841E-01_JPRB, 0.725102E-01_JPRB &
+  &, 0.678243E-01_JPRB, 0.633591E-01_JPRB, 0.591343E-01_JPRB &
+  &, 0.551387E-01_JPRB, 0.513268E-01_JPRB, 0.477804E-01_JPRB, 0.443860E-01_JPRB &
+  &, 0.412249E-01_JPRB, 0.382452E-01_JPRB, 0.354259E-01_JPRB &
+  &, 0.327796E-01_JPRB, 0.303192E-01_JPRB, 0.280209E-01_JPRB, 0.258587E-01_JPRB &
+  &, 0.238424E-01_JPRB, 0.219434E-01_JPRB, 0.201702E-01_JPRB &
+  &, 0.185314E-01_JPRB, 0.170358E-01_JPRB, 0.156094E-01_JPRB, 0.142997E-01_JPRB &
+  &, 0.130710E-01_JPRB, 0.119724E-01_JPRB, 0.109229E-01_JPRB &
+  &, 0.997122E-02_JPRB, 0.907739E-02_JPRB, 0.824519E-02_JPRB, 0.752543E-02_JPRB &
+  &, 0.682877E-02_JPRB, 0.620545E-02_JPRB, 0.561038E-02_JPRB &
+  &, 0.509534E-02_JPRB, 0.461391E-02_JPRB, 0.416809E-02_JPRB, 0.375994E-02_JPRB &
+  &, 0.339154E-02_JPRB, 0.306500E-02_JPRB, 0.272812E-02_JPRB &
+  &, 0.243591E-02_JPRB, 0.219057E-02_JPRB, 0.199436E-02_JPRB, 0.179206E-02_JPRB &
+  &, 0.158360E-02_JPRB, 0.142799E-02_JPRB, 0.126771E-02_JPRB &
+  &, 0.110268E-02_JPRB, 0.994383E-03_JPRB, 0.882892E-03_JPRB, 0.768171E-03_JPRB &
+  &, 0.714202E-03_JPRB, 0.593756E-03_JPRB, 0.535689E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART68',1,ZHOOK_HANDLE)
+END SUBROUTINE PART68
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART69
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART69',0,ZHOOK_HANDLE)
+
+XCW( 477, :) = (/ &
+  &  0.990793E+00_JPRB, 0.987463E+00_JPRB, 0.983724E+00_JPRB, 0.979583E+00_JPRB &
+  &, 0.975037E+00_JPRB, 0.970091E+00_JPRB, 0.964748E+00_JPRB &
+  &, 0.959010E+00_JPRB, 0.952881E+00_JPRB, 0.946364E+00_JPRB, 0.939463E+00_JPRB &
+  &, 0.932183E+00_JPRB, 0.924527E+00_JPRB, 0.916501E+00_JPRB &
+  &, 0.908110E+00_JPRB, 0.899360E+00_JPRB, 0.890256E+00_JPRB, 0.880804E+00_JPRB &
+  &, 0.871012E+00_JPRB, 0.860887E+00_JPRB, 0.850434E+00_JPRB &
+  &, 0.839668E+00_JPRB, 0.828591E+00_JPRB, 0.817213E+00_JPRB, 0.805545E+00_JPRB &
+  &, 0.793600E+00_JPRB, 0.781385E+00_JPRB, 0.768914E+00_JPRB &
+  &, 0.756196E+00_JPRB, 0.743241E+00_JPRB, 0.730068E+00_JPRB, 0.716690E+00_JPRB &
+  &, 0.703113E+00_JPRB, 0.689363E+00_JPRB, 0.675443E+00_JPRB &
+  &, 0.661369E+00_JPRB, 0.647173E+00_JPRB, 0.632851E+00_JPRB, 0.618422E+00_JPRB &
+  &, 0.603911E+00_JPRB, 0.589332E+00_JPRB, 0.574693E+00_JPRB &
+  &, 0.560016E+00_JPRB, 0.545323E+00_JPRB, 0.530627E+00_JPRB, 0.515945E+00_JPRB &
+  &, 0.501292E+00_JPRB, 0.486685E+00_JPRB, 0.472143E+00_JPRB &
+  &, 0.457670E+00_JPRB, 0.443300E+00_JPRB, 0.429051E+00_JPRB, 0.414916E+00_JPRB &
+  &, 0.400913E+00_JPRB, 0.387077E+00_JPRB, 0.373410E+00_JPRB &
+  &, 0.359932E+00_JPRB, 0.346646E+00_JPRB, 0.333551E+00_JPRB, 0.320695E+00_JPRB &
+  &, 0.308062E+00_JPRB, 0.295666E+00_JPRB, 0.283517E+00_JPRB &
+  &, 0.271629E+00_JPRB, 0.260011E+00_JPRB, 0.248653E+00_JPRB, 0.237582E+00_JPRB &
+  &, 0.226803E+00_JPRB, 0.216321E+00_JPRB, 0.206118E+00_JPRB &
+  &, 0.196214E+00_JPRB, 0.186608E+00_JPRB, 0.177318E+00_JPRB, 0.168319E+00_JPRB &
+  &, 0.159624E+00_JPRB, 0.151248E+00_JPRB, 0.143156E+00_JPRB &
+  &, 0.135384E+00_JPRB, 0.127892E+00_JPRB, 0.120712E+00_JPRB, 0.113800E+00_JPRB &
+  &, 0.107211E+00_JPRB, 0.100870E+00_JPRB, 0.948303E-01_JPRB &
+  &, 0.890656E-01_JPRB, 0.835454E-01_JPRB, 0.783224E-01_JPRB, 0.733347E-01_JPRB &
+  &, 0.685741E-01_JPRB, 0.640921E-01_JPRB, 0.598186E-01_JPRB &
+  &, 0.558036E-01_JPRB, 0.519715E-01_JPRB, 0.483710E-01_JPRB, 0.449536E-01_JPRB &
+  &, 0.417685E-01_JPRB, 0.387292E-01_JPRB, 0.359183E-01_JPRB &
+  &, 0.332447E-01_JPRB, 0.307559E-01_JPRB, 0.284280E-01_JPRB, 0.262349E-01_JPRB &
+  &, 0.241867E-01_JPRB, 0.222545E-01_JPRB, 0.204864E-01_JPRB &
+  &, 0.188528E-01_JPRB, 0.172807E-01_JPRB, 0.158583E-01_JPRB, 0.145526E-01_JPRB &
+  &, 0.133279E-01_JPRB, 0.121898E-01_JPRB, 0.110997E-01_JPRB &
+  &, 0.101507E-01_JPRB, 0.925965E-02_JPRB, 0.843025E-02_JPRB, 0.766634E-02_JPRB &
+  &, 0.697182E-02_JPRB, 0.630225E-02_JPRB, 0.570863E-02_JPRB &
+  &, 0.519506E-02_JPRB, 0.471509E-02_JPRB, 0.421943E-02_JPRB, 0.381203E-02_JPRB &
+  &, 0.344437E-02_JPRB, 0.311860E-02_JPRB, 0.278248E-02_JPRB &
+  &, 0.249104E-02_JPRB, 0.224649E-02_JPRB, 0.199436E-02_JPRB, 0.179206E-02_JPRB &
+  &, 0.164188E-02_JPRB, 0.142799E-02_JPRB, 0.126771E-02_JPRB &
+  &, 0.116338E-02_JPRB, 0.994383E-03_JPRB, 0.882892E-03_JPRB, 0.831352E-03_JPRB &
+  &, 0.714202E-03_JPRB, 0.658618E-03_JPRB, 0.535689E-03_JPRB/)
+XCW( 478, :) = (/ &
+  &  0.991043E+00_JPRB, 0.987775E+00_JPRB, 0.984098E+00_JPRB, 0.980017E+00_JPRB &
+  &, 0.975533E+00_JPRB, 0.970647E+00_JPRB, 0.965363E+00_JPRB &
+  &, 0.959684E+00_JPRB, 0.953612E+00_JPRB, 0.947154E+00_JPRB, 0.940310E+00_JPRB &
+  &, 0.933086E+00_JPRB, 0.925485E+00_JPRB, 0.917515E+00_JPRB &
+  &, 0.909176E+00_JPRB, 0.900479E+00_JPRB, 0.891426E+00_JPRB, 0.882025E+00_JPRB &
+  &, 0.872284E+00_JPRB, 0.862207E+00_JPRB, 0.851802E+00_JPRB &
+  &, 0.841080E+00_JPRB, 0.830046E+00_JPRB, 0.818713E+00_JPRB, 0.807087E+00_JPRB &
+  &, 0.795182E+00_JPRB, 0.783005E+00_JPRB, 0.770570E+00_JPRB &
+  &, 0.757885E+00_JPRB, 0.744968E+00_JPRB, 0.731830E+00_JPRB, 0.718479E+00_JPRB &
+  &, 0.704935E+00_JPRB, 0.691208E+00_JPRB, 0.677312E+00_JPRB &
+  &, 0.663267E+00_JPRB, 0.649080E+00_JPRB, 0.634777E+00_JPRB, 0.620367E+00_JPRB &
+  &, 0.605874E+00_JPRB, 0.591302E+00_JPRB, 0.576681E+00_JPRB &
+  &, 0.562020E+00_JPRB, 0.547332E+00_JPRB, 0.532640E+00_JPRB, 0.517960E+00_JPRB &
+  &, 0.503308E+00_JPRB, 0.488689E+00_JPRB, 0.474144E+00_JPRB &
+  &, 0.459681E+00_JPRB, 0.445305E+00_JPRB, 0.431036E+00_JPRB, 0.416892E+00_JPRB &
+  &, 0.402879E+00_JPRB, 0.389029E+00_JPRB, 0.375333E+00_JPRB &
+  &, 0.361839E+00_JPRB, 0.348517E+00_JPRB, 0.335417E+00_JPRB, 0.322521E+00_JPRB &
+  &, 0.309862E+00_JPRB, 0.297436E+00_JPRB, 0.285274E+00_JPRB &
+  &, 0.273353E+00_JPRB, 0.261699E+00_JPRB, 0.250322E+00_JPRB, 0.239209E+00_JPRB &
+  &, 0.228387E+00_JPRB, 0.217858E+00_JPRB, 0.207625E+00_JPRB &
+  &, 0.197690E+00_JPRB, 0.188050E+00_JPRB, 0.178725E+00_JPRB, 0.169687E+00_JPRB &
+  &, 0.160952E+00_JPRB, 0.152533E+00_JPRB, 0.144396E+00_JPRB &
+  &, 0.136576E+00_JPRB, 0.129058E+00_JPRB, 0.121826E+00_JPRB, 0.114883E+00_JPRB &
+  &, 0.108237E+00_JPRB, 0.101889E+00_JPRB, 0.957867E-01_JPRB &
+  &, 0.899846E-01_JPRB, 0.844534E-01_JPRB, 0.791608E-01_JPRB, 0.741298E-01_JPRB &
+  &, 0.693539E-01_JPRB, 0.648252E-01_JPRB, 0.605339E-01_JPRB &
+  &, 0.564686E-01_JPRB, 0.526162E-01_JPRB, 0.489616E-01_JPRB, 0.455547E-01_JPRB &
+  &, 0.423121E-01_JPRB, 0.392477E-01_JPRB, 0.364106E-01_JPRB &
+  &, 0.337098E-01_JPRB, 0.311925E-01_JPRB, 0.288350E-01_JPRB, 0.266112E-01_JPRB &
+  &, 0.245310E-01_JPRB, 0.226045E-01_JPRB, 0.208027E-01_JPRB &
+  &, 0.191340E-01_JPRB, 0.175665E-01_JPRB, 0.161073E-01_JPRB, 0.147633E-01_JPRB &
+  &, 0.135421E-01_JPRB, 0.123638E-01_JPRB, 0.113206E-01_JPRB &
+  &, 0.103302E-01_JPRB, 0.939634E-02_JPRB, 0.856905E-02_JPRB, 0.780726E-02_JPRB &
+  &, 0.706719E-02_JPRB, 0.644746E-02_JPRB, 0.585601E-02_JPRB &
+  &, 0.529477E-02_JPRB, 0.476569E-02_JPRB, 0.432210E-02_JPRB, 0.391619E-02_JPRB &
+  &, 0.355005E-02_JPRB, 0.317219E-02_JPRB, 0.283685E-02_JPRB &
+  &, 0.254618E-02_JPRB, 0.230240E-02_JPRB, 0.205105E-02_JPRB, 0.184954E-02_JPRB &
+  &, 0.164188E-02_JPRB, 0.148708E-02_JPRB, 0.132760E-02_JPRB &
+  &, 0.116338E-02_JPRB, 0.105591E-02_JPRB, 0.945241E-03_JPRB, 0.831352E-03_JPRB &
+  &, 0.714202E-03_JPRB, 0.658618E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 479, :) = (/ &
+  &  0.991291E+00_JPRB, 0.988087E+00_JPRB, 0.984471E+00_JPRB, 0.980451E+00_JPRB &
+  &, 0.976027E+00_JPRB, 0.971202E+00_JPRB, 0.965977E+00_JPRB &
+  &, 0.960358E+00_JPRB, 0.954345E+00_JPRB, 0.947944E+00_JPRB, 0.941157E+00_JPRB &
+  &, 0.933989E+00_JPRB, 0.926445E+00_JPRB, 0.918528E+00_JPRB &
+  &, 0.910244E+00_JPRB, 0.901599E+00_JPRB, 0.892599E+00_JPRB, 0.883248E+00_JPRB &
+  &, 0.873555E+00_JPRB, 0.863526E+00_JPRB, 0.853167E+00_JPRB &
+  &, 0.842493E+00_JPRB, 0.831504E+00_JPRB, 0.820208E+00_JPRB, 0.808629E+00_JPRB &
+  &, 0.796765E+00_JPRB, 0.784626E+00_JPRB, 0.772230E+00_JPRB &
+  &, 0.759582E+00_JPRB, 0.746699E+00_JPRB, 0.733591E+00_JPRB, 0.720272E+00_JPRB &
+  &, 0.706756E+00_JPRB, 0.693053E+00_JPRB, 0.679185E+00_JPRB &
+  &, 0.665164E+00_JPRB, 0.650997E+00_JPRB, 0.636713E+00_JPRB, 0.622322E+00_JPRB &
+  &, 0.607848E+00_JPRB, 0.593283E+00_JPRB, 0.578669E+00_JPRB &
+  &, 0.564014E+00_JPRB, 0.549341E+00_JPRB, 0.534653E+00_JPRB, 0.519976E+00_JPRB &
+  &, 0.505324E+00_JPRB, 0.490717E+00_JPRB, 0.476158E+00_JPRB &
+  &, 0.461691E+00_JPRB, 0.447297E+00_JPRB, 0.433021E+00_JPRB, 0.418868E+00_JPRB &
+  &, 0.404844E+00_JPRB, 0.390982E+00_JPRB, 0.377271E+00_JPRB &
+  &, 0.363745E+00_JPRB, 0.350420E+00_JPRB, 0.337282E+00_JPRB, 0.324380E+00_JPRB &
+  &, 0.311678E+00_JPRB, 0.299242E+00_JPRB, 0.287032E+00_JPRB &
+  &, 0.275077E+00_JPRB, 0.263405E+00_JPRB, 0.251990E+00_JPRB, 0.240856E+00_JPRB &
+  &, 0.229990E+00_JPRB, 0.219435E+00_JPRB, 0.209153E+00_JPRB &
+  &, 0.199187E+00_JPRB, 0.189515E+00_JPRB, 0.180132E+00_JPRB, 0.171056E+00_JPRB &
+  &, 0.162280E+00_JPRB, 0.153818E+00_JPRB, 0.145660E+00_JPRB &
+  &, 0.137792E+00_JPRB, 0.130224E+00_JPRB, 0.122964E+00_JPRB, 0.115993E+00_JPRB &
+  &, 0.109289E+00_JPRB, 0.102881E+00_JPRB, 0.967705E-01_JPRB &
+  &, 0.909035E-01_JPRB, 0.853330E-01_JPRB, 0.800280E-01_JPRB, 0.749543E-01_JPRB &
+  &, 0.701338E-01_JPRB, 0.655888E-01_JPRB, 0.612492E-01_JPRB &
+  &, 0.571336E-01_JPRB, 0.532609E-01_JPRB, 0.495850E-01_JPRB, 0.461223E-01_JPRB &
+  &, 0.428558E-01_JPRB, 0.397663E-01_JPRB, 0.369030E-01_JPRB &
+  &, 0.341748E-01_JPRB, 0.316291E-01_JPRB, 0.292420E-01_JPRB, 0.269874E-01_JPRB &
+  &, 0.249135E-01_JPRB, 0.229545E-01_JPRB, 0.211189E-01_JPRB &
+  &, 0.194153E-01_JPRB, 0.178523E-01_JPRB, 0.163977E-01_JPRB, 0.150163E-01_JPRB &
+  &, 0.137562E-01_JPRB, 0.125813E-01_JPRB, 0.114973E-01_JPRB &
+  &, 0.105097E-01_JPRB, 0.957860E-02_JPRB, 0.875411E-02_JPRB, 0.794817E-02_JPRB &
+  &, 0.721024E-02_JPRB, 0.654426E-02_JPRB, 0.595426E-02_JPRB &
+  &, 0.539448E-02_JPRB, 0.486687E-02_JPRB, 0.442477E-02_JPRB, 0.396827E-02_JPRB &
+  &, 0.360288E-02_JPRB, 0.322579E-02_JPRB, 0.294557E-02_JPRB &
+  &, 0.260131E-02_JPRB, 0.235831E-02_JPRB, 0.210775E-02_JPRB, 0.190703E-02_JPRB &
+  &, 0.170016E-02_JPRB, 0.154616E-02_JPRB, 0.132760E-02_JPRB &
+  &, 0.122409E-02_JPRB, 0.105591E-02_JPRB, 0.945241E-03_JPRB, 0.831352E-03_JPRB &
+  &, 0.778220E-03_JPRB, 0.658618E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 480, :) = (/ &
+  &  0.991543E+00_JPRB, 0.988398E+00_JPRB, 0.984845E+00_JPRB, 0.980886E+00_JPRB &
+  &, 0.976522E+00_JPRB, 0.971757E+00_JPRB, 0.966592E+00_JPRB &
+  &, 0.961032E+00_JPRB, 0.955078E+00_JPRB, 0.948734E+00_JPRB, 0.942005E+00_JPRB &
+  &, 0.934893E+00_JPRB, 0.927405E+00_JPRB, 0.919541E+00_JPRB &
+  &, 0.911312E+00_JPRB, 0.902719E+00_JPRB, 0.893771E+00_JPRB, 0.884471E+00_JPRB &
+  &, 0.874828E+00_JPRB, 0.864846E+00_JPRB, 0.854539E+00_JPRB &
+  &, 0.843905E+00_JPRB, 0.832962E+00_JPRB, 0.821718E+00_JPRB, 0.810174E+00_JPRB &
+  &, 0.798351E+00_JPRB, 0.786250E+00_JPRB, 0.773890E+00_JPRB &
+  &, 0.761279E+00_JPRB, 0.748430E+00_JPRB, 0.735353E+00_JPRB, 0.722065E+00_JPRB &
+  &, 0.708577E+00_JPRB, 0.694907E+00_JPRB, 0.681063E+00_JPRB &
+  &, 0.667062E+00_JPRB, 0.652923E+00_JPRB, 0.638659E+00_JPRB, 0.624287E+00_JPRB &
+  &, 0.609821E+00_JPRB, 0.595275E+00_JPRB, 0.580668E+00_JPRB &
+  &, 0.566029E+00_JPRB, 0.551350E+00_JPRB, 0.536678E+00_JPRB, 0.522003E+00_JPRB &
+  &, 0.507340E+00_JPRB, 0.492732E+00_JPRB, 0.478184E+00_JPRB &
+  &, 0.463702E+00_JPRB, 0.449302E+00_JPRB, 0.435019E+00_JPRB, 0.420844E+00_JPRB &
+  &, 0.406824E+00_JPRB, 0.392935E+00_JPRB, 0.379210E+00_JPRB &
+  &, 0.365666E+00_JPRB, 0.352323E+00_JPRB, 0.339164E+00_JPRB, 0.326222E+00_JPRB &
+  &, 0.313512E+00_JPRB, 0.301030E+00_JPRB, 0.288807E+00_JPRB &
+  &, 0.276819E+00_JPRB, 0.265112E+00_JPRB, 0.253658E+00_JPRB, 0.242483E+00_JPRB &
+  &, 0.231593E+00_JPRB, 0.220992E+00_JPRB, 0.210681E+00_JPRB &
+  &, 0.200685E+00_JPRB, 0.190957E+00_JPRB, 0.181539E+00_JPRB, 0.172447E+00_JPRB &
+  &, 0.163631E+00_JPRB, 0.155127E+00_JPRB, 0.146923E+00_JPRB &
+  &, 0.139008E+00_JPRB, 0.131415E+00_JPRB, 0.124102E+00_JPRB, 0.117076E+00_JPRB &
+  &, 0.110341E+00_JPRB, 0.103899E+00_JPRB, 0.977542E-01_JPRB &
+  &, 0.918503E-01_JPRB, 0.862410E-01_JPRB, 0.808664E-01_JPRB, 0.757788E-01_JPRB &
+  &, 0.709436E-01_JPRB, 0.663219E-01_JPRB, 0.619646E-01_JPRB &
+  &, 0.578302E-01_JPRB, 0.539056E-01_JPRB, 0.502083E-01_JPRB, 0.466899E-01_JPRB &
+  &, 0.433994E-01_JPRB, 0.403194E-01_JPRB, 0.373954E-01_JPRB &
+  &, 0.346399E-01_JPRB, 0.320658E-01_JPRB, 0.296490E-01_JPRB, 0.274013E-01_JPRB &
+  &, 0.252578E-01_JPRB, 0.233045E-01_JPRB, 0.214747E-01_JPRB &
+  &, 0.197367E-01_JPRB, 0.181382E-01_JPRB, 0.166466E-01_JPRB, 0.152692E-01_JPRB &
+  &, 0.140131E-01_JPRB, 0.127988E-01_JPRB, 0.117182E-01_JPRB &
+  &, 0.106891E-01_JPRB, 0.976086E-02_JPRB, 0.889290E-02_JPRB, 0.808909E-02_JPRB &
+  &, 0.735329E-02_JPRB, 0.668947E-02_JPRB, 0.605251E-02_JPRB &
+  &, 0.549419E-02_JPRB, 0.496806E-02_JPRB, 0.452744E-02_JPRB, 0.407244E-02_JPRB &
+  &, 0.365572E-02_JPRB, 0.333298E-02_JPRB, 0.299993E-02_JPRB &
+  &, 0.271158E-02_JPRB, 0.241422E-02_JPRB, 0.216445E-02_JPRB, 0.196451E-02_JPRB &
+  &, 0.175844E-02_JPRB, 0.154616E-02_JPRB, 0.138749E-02_JPRB &
+  &, 0.122409E-02_JPRB, 0.111743E-02_JPRB, 0.100759E-02_JPRB, 0.894533E-03_JPRB &
+  &, 0.778220E-03_JPRB, 0.658618E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 481, :) = (/ &
+  &  0.991793E+00_JPRB, 0.988710E+00_JPRB, 0.985217E+00_JPRB, 0.981320E+00_JPRB &
+  &, 0.977018E+00_JPRB, 0.972313E+00_JPRB, 0.967208E+00_JPRB &
+  &, 0.961705E+00_JPRB, 0.955810E+00_JPRB, 0.949525E+00_JPRB, 0.942853E+00_JPRB &
+  &, 0.935797E+00_JPRB, 0.928364E+00_JPRB, 0.920556E+00_JPRB &
+  &, 0.912381E+00_JPRB, 0.903841E+00_JPRB, 0.894944E+00_JPRB, 0.885695E+00_JPRB &
+  &, 0.876102E+00_JPRB, 0.866169E+00_JPRB, 0.855907E+00_JPRB &
+  &, 0.845324E+00_JPRB, 0.834424E+00_JPRB, 0.823221E+00_JPRB, 0.811723E+00_JPRB &
+  &, 0.799936E+00_JPRB, 0.787878E+00_JPRB, 0.775554E+00_JPRB &
+  &, 0.762980E+00_JPRB, 0.750165E+00_JPRB, 0.737119E+00_JPRB, 0.723863E+00_JPRB &
+  &, 0.710406E+00_JPRB, 0.696761E+00_JPRB, 0.682941E+00_JPRB &
+  &, 0.668968E+00_JPRB, 0.654850E+00_JPRB, 0.640605E+00_JPRB, 0.626242E+00_JPRB &
+  &, 0.611795E+00_JPRB, 0.597267E+00_JPRB, 0.582677E+00_JPRB &
+  &, 0.568034E+00_JPRB, 0.553371E+00_JPRB, 0.538702E+00_JPRB, 0.524030E+00_JPRB &
+  &, 0.509381E+00_JPRB, 0.494761E+00_JPRB, 0.480211E+00_JPRB &
+  &, 0.465725E+00_JPRB, 0.451321E+00_JPRB, 0.437018E+00_JPRB, 0.422848E+00_JPRB &
+  &, 0.408804E+00_JPRB, 0.394903E+00_JPRB, 0.381163E+00_JPRB &
+  &, 0.367604E+00_JPRB, 0.354226E+00_JPRB, 0.341046E+00_JPRB, 0.328081E+00_JPRB &
+  &, 0.315345E+00_JPRB, 0.302835E+00_JPRB, 0.290582E+00_JPRB &
+  &, 0.278579E+00_JPRB, 0.266818E+00_JPRB, 0.255345E+00_JPRB, 0.244130E+00_JPRB &
+  &, 0.233216E+00_JPRB, 0.222589E+00_JPRB, 0.212230E+00_JPRB &
+  &, 0.202182E+00_JPRB, 0.192421E+00_JPRB, 0.182968E+00_JPRB, 0.173816E+00_JPRB &
+  &, 0.164982E+00_JPRB, 0.156435E+00_JPRB, 0.148187E+00_JPRB &
+  &, 0.140249E+00_JPRB, 0.132581E+00_JPRB, 0.125241E+00_JPRB, 0.118186E+00_JPRB &
+  &, 0.111419E+00_JPRB, 0.104945E+00_JPRB, 0.987379E-01_JPRB &
+  &, 0.927971E-01_JPRB, 0.871490E-01_JPRB, 0.817625E-01_JPRB, 0.766034E-01_JPRB &
+  &, 0.717234E-01_JPRB, 0.670855E-01_JPRB, 0.626799E-01_JPRB &
+  &, 0.584952E-01_JPRB, 0.545502E-01_JPRB, 0.508317E-01_JPRB, 0.472910E-01_JPRB &
+  &, 0.439770E-01_JPRB, 0.408380E-01_JPRB, 0.378878E-01_JPRB &
+  &, 0.351050E-01_JPRB, 0.325024E-01_JPRB, 0.300561E-01_JPRB, 0.277776E-01_JPRB &
+  &, 0.256403E-01_JPRB, 0.236545E-01_JPRB, 0.217909E-01_JPRB &
+  &, 0.200581E-01_JPRB, 0.184240E-01_JPRB, 0.169370E-01_JPRB, 0.155221E-01_JPRB &
+  &, 0.142272E-01_JPRB, 0.130163E-01_JPRB, 0.118949E-01_JPRB &
+  &, 0.108686E-01_JPRB, 0.994312E-02_JPRB, 0.907796E-02_JPRB, 0.823000E-02_JPRB &
+  &, 0.749634E-02_JPRB, 0.683467E-02_JPRB, 0.619989E-02_JPRB &
+  &, 0.559391E-02_JPRB, 0.506924E-02_JPRB, 0.457877E-02_JPRB, 0.417660E-02_JPRB &
+  &, 0.376139E-02_JPRB, 0.338658E-02_JPRB, 0.305429E-02_JPRB &
+  &, 0.276671E-02_JPRB, 0.247013E-02_JPRB, 0.222114E-02_JPRB, 0.196451E-02_JPRB &
+  &, 0.175844E-02_JPRB, 0.160524E-02_JPRB, 0.144738E-02_JPRB &
+  &, 0.128479E-02_JPRB, 0.111743E-02_JPRB, 0.100759E-02_JPRB, 0.894533E-03_JPRB &
+  &, 0.778220E-03_JPRB, 0.723479E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 482, :) = (/ &
+  &  0.992041E+00_JPRB, 0.989022E+00_JPRB, 0.985591E+00_JPRB, 0.981755E+00_JPRB &
+  &, 0.977512E+00_JPRB, 0.972868E+00_JPRB, 0.967823E+00_JPRB &
+  &, 0.962381E+00_JPRB, 0.956544E+00_JPRB, 0.950316E+00_JPRB, 0.943701E+00_JPRB &
+  &, 0.936703E+00_JPRB, 0.929324E+00_JPRB, 0.921572E+00_JPRB &
+  &, 0.913449E+00_JPRB, 0.904964E+00_JPRB, 0.896118E+00_JPRB, 0.886920E+00_JPRB &
+  &, 0.877376E+00_JPRB, 0.867492E+00_JPRB, 0.857279E+00_JPRB &
+  &, 0.846740E+00_JPRB, 0.835886E+00_JPRB, 0.824727E+00_JPRB, 0.813272E+00_JPRB &
+  &, 0.801526E+00_JPRB, 0.789506E+00_JPRB, 0.777221E+00_JPRB &
+  &, 0.764681E+00_JPRB, 0.751900E+00_JPRB, 0.738889E+00_JPRB, 0.725665E+00_JPRB &
+  &, 0.712236E+00_JPRB, 0.698619E+00_JPRB, 0.684823E+00_JPRB &
+  &, 0.670875E+00_JPRB, 0.656776E+00_JPRB, 0.642551E+00_JPRB, 0.628207E+00_JPRB &
+  &, 0.613778E+00_JPRB, 0.599258E+00_JPRB, 0.584686E+00_JPRB &
+  &, 0.570061E+00_JPRB, 0.555403E+00_JPRB, 0.540726E+00_JPRB, 0.526057E+00_JPRB &
+  &, 0.511409E+00_JPRB, 0.496801E+00_JPRB, 0.482238E+00_JPRB &
+  &, 0.467749E+00_JPRB, 0.453340E+00_JPRB, 0.439030E+00_JPRB, 0.424838E+00_JPRB &
+  &, 0.410784E+00_JPRB, 0.396870E+00_JPRB, 0.383117E+00_JPRB &
+  &, 0.369525E+00_JPRB, 0.356145E+00_JPRB, 0.342945E+00_JPRB, 0.329956E+00_JPRB &
+  &, 0.317195E+00_JPRB, 0.304658E+00_JPRB, 0.292374E+00_JPRB &
+  &, 0.280321E+00_JPRB, 0.268543E+00_JPRB, 0.257032E+00_JPRB, 0.245796E+00_JPRB &
+  &, 0.234839E+00_JPRB, 0.224166E+00_JPRB, 0.213779E+00_JPRB &
+  &, 0.203700E+00_JPRB, 0.193907E+00_JPRB, 0.184419E+00_JPRB, 0.175230E+00_JPRB &
+  &, 0.166333E+00_JPRB, 0.157744E+00_JPRB, 0.149451E+00_JPRB &
+  &, 0.141465E+00_JPRB, 0.133797E+00_JPRB, 0.126405E+00_JPRB, 0.119295E+00_JPRB &
+  &, 0.112497E+00_JPRB, 0.105964E+00_JPRB, 0.997216E-01_JPRB &
+  &, 0.937440E-01_JPRB, 0.880569E-01_JPRB, 0.826298E-01_JPRB, 0.774574E-01_JPRB &
+  &, 0.725332E-01_JPRB, 0.678491E-01_JPRB, 0.634264E-01_JPRB &
+  &, 0.592235E-01_JPRB, 0.552272E-01_JPRB, 0.514551E-01_JPRB, 0.478920E-01_JPRB &
+  &, 0.445547E-01_JPRB, 0.413911E-01_JPRB, 0.383802E-01_JPRB &
+  &, 0.356058E-01_JPRB, 0.329754E-01_JPRB, 0.305001E-01_JPRB, 0.281914E-01_JPRB &
+  &, 0.260229E-01_JPRB, 0.240045E-01_JPRB, 0.221072E-01_JPRB &
+  &, 0.203795E-01_JPRB, 0.187098E-01_JPRB, 0.171860E-01_JPRB, 0.157750E-01_JPRB &
+  &, 0.144842E-01_JPRB, 0.132338E-01_JPRB, 0.121158E-01_JPRB &
+  &, 0.110930E-01_JPRB, 0.101254E-01_JPRB, 0.921676E-02_JPRB, 0.841789E-02_JPRB &
+  &, 0.763939E-02_JPRB, 0.693148E-02_JPRB, 0.629815E-02_JPRB &
+  &, 0.574347E-02_JPRB, 0.517043E-02_JPRB, 0.468144E-02_JPRB, 0.422869E-02_JPRB &
+  &, 0.381423E-02_JPRB, 0.344017E-02_JPRB, 0.310866E-02_JPRB &
+  &, 0.282185E-02_JPRB, 0.252605E-02_JPRB, 0.227784E-02_JPRB, 0.202200E-02_JPRB &
+  &, 0.181672E-02_JPRB, 0.160524E-02_JPRB, 0.144738E-02_JPRB &
+  &, 0.128479E-02_JPRB, 0.117895E-02_JPRB, 0.100759E-02_JPRB, 0.894533E-03_JPRB &
+  &, 0.842239E-03_JPRB, 0.723479E-03_JPRB, 0.667111E-03_JPRB/)
+XCW( 483, :) = (/ &
+  &  0.992293E+00_JPRB, 0.989334E+00_JPRB, 0.985965E+00_JPRB, 0.982189E+00_JPRB &
+  &, 0.978008E+00_JPRB, 0.973424E+00_JPRB, 0.968438E+00_JPRB &
+  &, 0.963056E+00_JPRB, 0.957277E+00_JPRB, 0.951108E+00_JPRB, 0.944549E+00_JPRB &
+  &, 0.937608E+00_JPRB, 0.930286E+00_JPRB, 0.922588E+00_JPRB &
+  &, 0.914520E+00_JPRB, 0.906087E+00_JPRB, 0.897294E+00_JPRB, 0.888148E+00_JPRB &
+  &, 0.878653E+00_JPRB, 0.868818E+00_JPRB, 0.858650E+00_JPRB &
+  &, 0.848159E+00_JPRB, 0.837351E+00_JPRB, 0.826237E+00_JPRB, 0.814821E+00_JPRB &
+  &, 0.803119E+00_JPRB, 0.791138E+00_JPRB, 0.778889E+00_JPRB &
+  &, 0.766386E+00_JPRB, 0.753639E+00_JPRB, 0.740663E+00_JPRB, 0.727466E+00_JPRB &
+  &, 0.714066E+00_JPRB, 0.700477E+00_JPRB, 0.686710E+00_JPRB &
+  &, 0.672782E+00_JPRB, 0.658703E+00_JPRB, 0.644506E+00_JPRB, 0.630182E+00_JPRB &
+  &, 0.615762E+00_JPRB, 0.601261E+00_JPRB, 0.586696E+00_JPRB &
+  &, 0.572076E+00_JPRB, 0.557435E+00_JPRB, 0.542763E+00_JPRB, 0.528096E+00_JPRB &
+  &, 0.513450E+00_JPRB, 0.498842E+00_JPRB, 0.484277E+00_JPRB &
+  &, 0.469772E+00_JPRB, 0.455359E+00_JPRB, 0.441043E+00_JPRB, 0.426843E+00_JPRB &
+  &, 0.412778E+00_JPRB, 0.398853E+00_JPRB, 0.385070E+00_JPRB &
+  &, 0.371478E+00_JPRB, 0.358063E+00_JPRB, 0.344843E+00_JPRB, 0.331832E+00_JPRB &
+  &, 0.319046E+00_JPRB, 0.306481E+00_JPRB, 0.294167E+00_JPRB &
+  &, 0.282099E+00_JPRB, 0.270287E+00_JPRB, 0.258739E+00_JPRB, 0.247462E+00_JPRB &
+  &, 0.236481E+00_JPRB, 0.225763E+00_JPRB, 0.215348E+00_JPRB &
+  &, 0.205218E+00_JPRB, 0.195393E+00_JPRB, 0.185847E+00_JPRB, 0.176621E+00_JPRB &
+  &, 0.167707E+00_JPRB, 0.159076E+00_JPRB, 0.150738E+00_JPRB &
+  &, 0.142730E+00_JPRB, 0.134987E+00_JPRB, 0.127568E+00_JPRB, 0.120430E+00_JPRB &
+  &, 0.113576E+00_JPRB, 0.107009E+00_JPRB, 0.100733E+00_JPRB &
+  &, 0.947186E-01_JPRB, 0.889933E-01_JPRB, 0.835259E-01_JPRB, 0.783113E-01_JPRB &
+  &, 0.733430E-01_JPRB, 0.686432E-01_JPRB, 0.641417E-01_JPRB &
+  &, 0.599201E-01_JPRB, 0.559041E-01_JPRB, 0.520785E-01_JPRB, 0.484930E-01_JPRB &
+  &, 0.450983E-01_JPRB, 0.419097E-01_JPRB, 0.389077E-01_JPRB &
+  &, 0.360709E-01_JPRB, 0.334120E-01_JPRB, 0.309441E-01_JPRB, 0.286053E-01_JPRB &
+  &, 0.264054E-01_JPRB, 0.243545E-01_JPRB, 0.224629E-01_JPRB &
+  &, 0.206607E-01_JPRB, 0.190364E-01_JPRB, 0.174764E-01_JPRB, 0.160279E-01_JPRB &
+  &, 0.146983E-01_JPRB, 0.134948E-01_JPRB, 0.123368E-01_JPRB &
+  &, 0.112725E-01_JPRB, 0.103076E-01_JPRB, 0.940182E-02_JPRB, 0.855880E-02_JPRB &
+  &, 0.778244E-02_JPRB, 0.707668E-02_JPRB, 0.644552E-02_JPRB &
+  &, 0.584319E-02_JPRB, 0.527161E-02_JPRB, 0.478411E-02_JPRB, 0.433285E-02_JPRB &
+  &, 0.391990E-02_JPRB, 0.354737E-02_JPRB, 0.316302E-02_JPRB &
+  &, 0.287698E-02_JPRB, 0.258196E-02_JPRB, 0.233453E-02_JPRB, 0.207948E-02_JPRB &
+  &, 0.187501E-02_JPRB, 0.166433E-02_JPRB, 0.150727E-02_JPRB &
+  &, 0.134550E-02_JPRB, 0.117895E-02_JPRB, 0.106994E-02_JPRB, 0.957714E-03_JPRB &
+  &, 0.842239E-03_JPRB, 0.723479E-03_JPRB, 0.667111E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART69',1,ZHOOK_HANDLE)
+END SUBROUTINE PART69
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART70
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART70',0,ZHOOK_HANDLE)
+
+XCW( 484, :) = (/ &
+  &  0.992543E+00_JPRB, 0.989646E+00_JPRB, 0.986338E+00_JPRB, 0.982624E+00_JPRB &
+  &, 0.978504E+00_JPRB, 0.973980E+00_JPRB, 0.969054E+00_JPRB &
+  &, 0.963730E+00_JPRB, 0.958011E+00_JPRB, 0.951899E+00_JPRB, 0.945399E+00_JPRB &
+  &, 0.938514E+00_JPRB, 0.931247E+00_JPRB, 0.923605E+00_JPRB &
+  &, 0.915591E+00_JPRB, 0.907211E+00_JPRB, 0.898470E+00_JPRB, 0.889375E+00_JPRB &
+  &, 0.879931E+00_JPRB, 0.870144E+00_JPRB, 0.860025E+00_JPRB &
+  &, 0.849581E+00_JPRB, 0.838816E+00_JPRB, 0.827746E+00_JPRB, 0.816373E+00_JPRB &
+  &, 0.804712E+00_JPRB, 0.792769E+00_JPRB, 0.780561E+00_JPRB &
+  &, 0.768094E+00_JPRB, 0.755382E+00_JPRB, 0.742437E+00_JPRB, 0.729272E+00_JPRB &
+  &, 0.715904E+00_JPRB, 0.702344E+00_JPRB, 0.688602E+00_JPRB &
+  &, 0.674698E+00_JPRB, 0.660639E+00_JPRB, 0.646462E+00_JPRB, 0.632157E+00_JPRB &
+  &, 0.617756E+00_JPRB, 0.603263E+00_JPRB, 0.588716E+00_JPRB &
+  &, 0.574103E+00_JPRB, 0.559467E+00_JPRB, 0.544810E+00_JPRB, 0.530147E+00_JPRB &
+  &, 0.515503E+00_JPRB, 0.500883E+00_JPRB, 0.486317E+00_JPRB &
+  &, 0.471822E+00_JPRB, 0.457391E+00_JPRB, 0.443069E+00_JPRB, 0.428861E+00_JPRB &
+  &, 0.414772E+00_JPRB, 0.400835E+00_JPRB, 0.387038E+00_JPRB &
+  &, 0.373430E+00_JPRB, 0.359982E+00_JPRB, 0.346741E+00_JPRB, 0.333707E+00_JPRB &
+  &, 0.320896E+00_JPRB, 0.308321E+00_JPRB, 0.295960E+00_JPRB &
+  &, 0.283860E+00_JPRB, 0.272030E+00_JPRB, 0.260445E+00_JPRB, 0.249147E+00_JPRB &
+  &, 0.238104E+00_JPRB, 0.227360E+00_JPRB, 0.216918E+00_JPRB &
+  &, 0.206758E+00_JPRB, 0.196879E+00_JPRB, 0.187320E+00_JPRB, 0.178034E+00_JPRB &
+  &, 0.169081E+00_JPRB, 0.160408E+00_JPRB, 0.152049E+00_JPRB &
+  &, 0.143970E+00_JPRB, 0.136203E+00_JPRB, 0.128732E+00_JPRB, 0.121539E+00_JPRB &
+  &, 0.114654E+00_JPRB, 0.108055E+00_JPRB, 0.101744E+00_JPRB &
+  &, 0.956933E-01_JPRB, 0.899013E-01_JPRB, 0.843932E-01_JPRB, 0.791653E-01_JPRB &
+  &, 0.741528E-01_JPRB, 0.694069E-01_JPRB, 0.648881E-01_JPRB &
+  &, 0.606167E-01_JPRB, 0.565810E-01_JPRB, 0.527347E-01_JPRB, 0.491275E-01_JPRB &
+  &, 0.457099E-01_JPRB, 0.424628E-01_JPRB, 0.394352E-01_JPRB &
+  &, 0.365717E-01_JPRB, 0.338850E-01_JPRB, 0.313882E-01_JPRB, 0.290192E-01_JPRB &
+  &, 0.267880E-01_JPRB, 0.247434E-01_JPRB, 0.228187E-01_JPRB &
+  &, 0.209821E-01_JPRB, 0.193222E-01_JPRB, 0.177668E-01_JPRB, 0.163230E-01_JPRB &
+  &, 0.149552E-01_JPRB, 0.137123E-01_JPRB, 0.125577E-01_JPRB &
+  &, 0.114519E-01_JPRB, 0.104899E-01_JPRB, 0.954061E-02_JPRB, 0.869972E-02_JPRB &
+  &, 0.792550E-02_JPRB, 0.722189E-02_JPRB, 0.654378E-02_JPRB &
+  &, 0.594290E-02_JPRB, 0.542339E-02_JPRB, 0.488678E-02_JPRB, 0.443702E-02_JPRB &
+  &, 0.402558E-02_JPRB, 0.360096E-02_JPRB, 0.327174E-02_JPRB &
+  &, 0.293212E-02_JPRB, 0.263787E-02_JPRB, 0.239123E-02_JPRB, 0.213697E-02_JPRB &
+  &, 0.193329E-02_JPRB, 0.172341E-02_JPRB, 0.150727E-02_JPRB &
+  &, 0.134550E-02_JPRB, 0.124048E-02_JPRB, 0.106994E-02_JPRB, 0.957714E-03_JPRB &
+  &, 0.842239E-03_JPRB, 0.788341E-03_JPRB, 0.667111E-03_JPRB/)
+XCW( 485, :) = (/ &
+  &  0.992793E+00_JPRB, 0.989958E+00_JPRB, 0.986711E+00_JPRB, 0.983058E+00_JPRB &
+  &, 0.979000E+00_JPRB, 0.974536E+00_JPRB, 0.969670E+00_JPRB &
+  &, 0.964406E+00_JPRB, 0.958745E+00_JPRB, 0.952692E+00_JPRB, 0.946249E+00_JPRB &
+  &, 0.939419E+00_JPRB, 0.932210E+00_JPRB, 0.924622E+00_JPRB &
+  &, 0.916663E+00_JPRB, 0.908336E+00_JPRB, 0.899647E+00_JPRB, 0.890603E+00_JPRB &
+  &, 0.881208E+00_JPRB, 0.871473E+00_JPRB, 0.861400E+00_JPRB &
+  &, 0.851004E+00_JPRB, 0.840285E+00_JPRB, 0.829256E+00_JPRB, 0.817926E+00_JPRB &
+  &, 0.806305E+00_JPRB, 0.794405E+00_JPRB, 0.782232E+00_JPRB &
+  &, 0.769803E+00_JPRB, 0.757125E+00_JPRB, 0.744216E+00_JPRB, 0.731082E+00_JPRB &
+  &, 0.717743E+00_JPRB, 0.704211E+00_JPRB, 0.690493E+00_JPRB &
+  &, 0.676614E+00_JPRB, 0.662584E+00_JPRB, 0.648417E+00_JPRB, 0.634132E+00_JPRB &
+  &, 0.619750E+00_JPRB, 0.605276E+00_JPRB, 0.590736E+00_JPRB &
+  &, 0.576140E+00_JPRB, 0.561510E+00_JPRB, 0.546846E+00_JPRB, 0.532198E+00_JPRB &
+  &, 0.517556E+00_JPRB, 0.502936E+00_JPRB, 0.488369E+00_JPRB &
+  &, 0.473859E+00_JPRB, 0.459437E+00_JPRB, 0.445109E+00_JPRB, 0.430879E+00_JPRB &
+  &, 0.416781E+00_JPRB, 0.402817E+00_JPRB, 0.389022E+00_JPRB &
+  &, 0.375383E+00_JPRB, 0.361933E+00_JPRB, 0.348672E+00_JPRB, 0.335599E+00_JPRB &
+  &, 0.322763E+00_JPRB, 0.310161E+00_JPRB, 0.297771E+00_JPRB &
+  &, 0.285656E+00_JPRB, 0.273774E+00_JPRB, 0.262170E+00_JPRB, 0.250832E+00_JPRB &
+  &, 0.239767E+00_JPRB, 0.228978E+00_JPRB, 0.218487E+00_JPRB &
+  &, 0.208297E+00_JPRB, 0.198386E+00_JPRB, 0.188771E+00_JPRB, 0.179470E+00_JPRB &
+  &, 0.170455E+00_JPRB, 0.161740E+00_JPRB, 0.153337E+00_JPRB &
+  &, 0.145235E+00_JPRB, 0.137418E+00_JPRB, 0.129921E+00_JPRB, 0.122700E+00_JPRB &
+  &, 0.115759E+00_JPRB, 0.109127E+00_JPRB, 0.102755E+00_JPRB &
+  &, 0.966679E-01_JPRB, 0.908661E-01_JPRB, 0.853182E-01_JPRB, 0.800193E-01_JPRB &
+  &, 0.749926E-01_JPRB, 0.702010E-01_JPRB, 0.656657E-01_JPRB &
+  &, 0.613450E-01_JPRB, 0.572579E-01_JPRB, 0.533908E-01_JPRB, 0.497285E-01_JPRB &
+  &, 0.462875E-01_JPRB, 0.430159E-01_JPRB, 0.399628E-01_JPRB &
+  &, 0.370726E-01_JPRB, 0.343581E-01_JPRB, 0.318322E-01_JPRB, 0.294331E-01_JPRB &
+  &, 0.272088E-01_JPRB, 0.250934E-01_JPRB, 0.231349E-01_JPRB &
+  &, 0.213437E-01_JPRB, 0.196488E-01_JPRB, 0.180572E-01_JPRB, 0.165759E-01_JPRB &
+  &, 0.152121E-01_JPRB, 0.139298E-01_JPRB, 0.127786E-01_JPRB &
+  &, 0.116763E-01_JPRB, 0.106722E-01_JPRB, 0.972567E-02_JPRB, 0.888760E-02_JPRB &
+  &, 0.806855E-02_JPRB, 0.736710E-02_JPRB, 0.669116E-02_JPRB &
+  &, 0.609247E-02_JPRB, 0.552457E-02_JPRB, 0.498945E-02_JPRB, 0.454118E-02_JPRB &
+  &, 0.407841E-02_JPRB, 0.370816E-02_JPRB, 0.332611E-02_JPRB &
+  &, 0.298725E-02_JPRB, 0.269378E-02_JPRB, 0.244793E-02_JPRB, 0.219446E-02_JPRB &
+  &, 0.193329E-02_JPRB, 0.178249E-02_JPRB, 0.156716E-02_JPRB &
+  &, 0.140620E-02_JPRB, 0.124048E-02_JPRB, 0.113229E-02_JPRB, 0.102089E-02_JPRB &
+  &, 0.906257E-03_JPRB, 0.788341E-03_JPRB, 0.667111E-03_JPRB/)
+XCW( 486, :) = (/ &
+  &  0.993043E+00_JPRB, 0.990267E+00_JPRB, 0.987085E+00_JPRB, 0.983494E+00_JPRB &
+  &, 0.979494E+00_JPRB, 0.975092E+00_JPRB, 0.970286E+00_JPRB &
+  &, 0.965081E+00_JPRB, 0.959480E+00_JPRB, 0.953484E+00_JPRB, 0.947098E+00_JPRB &
+  &, 0.940326E+00_JPRB, 0.933172E+00_JPRB, 0.925640E+00_JPRB &
+  &, 0.917735E+00_JPRB, 0.909461E+00_JPRB, 0.900826E+00_JPRB, 0.891832E+00_JPRB &
+  &, 0.882489E+00_JPRB, 0.872802E+00_JPRB, 0.862778E+00_JPRB &
+  &, 0.852426E+00_JPRB, 0.841753E+00_JPRB, 0.830769E+00_JPRB, 0.819482E+00_JPRB &
+  &, 0.807902E+00_JPRB, 0.796040E+00_JPRB, 0.783907E+00_JPRB &
+  &, 0.771516E+00_JPRB, 0.758872E+00_JPRB, 0.745998E+00_JPRB, 0.732897E+00_JPRB &
+  &, 0.719585E+00_JPRB, 0.706078E+00_JPRB, 0.692389E+00_JPRB &
+  &, 0.678530E+00_JPRB, 0.664530E+00_JPRB, 0.650383E+00_JPRB, 0.636117E+00_JPRB &
+  &, 0.621744E+00_JPRB, 0.607289E+00_JPRB, 0.592757E+00_JPRB &
+  &, 0.578178E+00_JPRB, 0.563554E+00_JPRB, 0.548906E+00_JPRB, 0.534248E+00_JPRB &
+  &, 0.519608E+00_JPRB, 0.504990E+00_JPRB, 0.490421E+00_JPRB &
+  &, 0.475909E+00_JPRB, 0.461483E+00_JPRB, 0.447135E+00_JPRB, 0.432912E+00_JPRB &
+  &, 0.418790E+00_JPRB, 0.404829E+00_JPRB, 0.391006E+00_JPRB &
+  &, 0.377351E+00_JPRB, 0.363867E+00_JPRB, 0.350586E+00_JPRB, 0.337508E+00_JPRB &
+  &, 0.324647E+00_JPRB, 0.312001E+00_JPRB, 0.299599E+00_JPRB &
+  &, 0.287434E+00_JPRB, 0.275536E+00_JPRB, 0.263895E+00_JPRB, 0.252517E+00_JPRB &
+  &, 0.241429E+00_JPRB, 0.230615E+00_JPRB, 0.220077E+00_JPRB &
+  &, 0.209837E+00_JPRB, 0.199893E+00_JPRB, 0.190244E+00_JPRB, 0.180906E+00_JPRB &
+  &, 0.171852E+00_JPRB, 0.163095E+00_JPRB, 0.154648E+00_JPRB &
+  &, 0.146499E+00_JPRB, 0.138659E+00_JPRB, 0.131110E+00_JPRB, 0.123835E+00_JPRB &
+  &, 0.116863E+00_JPRB, 0.110173E+00_JPRB, 0.103793E+00_JPRB &
+  &, 0.976426E-01_JPRB, 0.918024E-01_JPRB, 0.862144E-01_JPRB, 0.809027E-01_JPRB &
+  &, 0.758324E-01_JPRB, 0.709952E-01_JPRB, 0.664121E-01_JPRB &
+  &, 0.620733E-01_JPRB, 0.579348E-01_JPRB, 0.540470E-01_JPRB, 0.503629E-01_JPRB &
+  &, 0.468651E-01_JPRB, 0.436036E-01_JPRB, 0.404903E-01_JPRB &
+  &, 0.375734E-01_JPRB, 0.348311E-01_JPRB, 0.322762E-01_JPRB, 0.298470E-01_JPRB &
+  &, 0.275913E-01_JPRB, 0.254823E-01_JPRB, 0.234907E-01_JPRB &
+  &, 0.216651E-01_JPRB, 0.199346E-01_JPRB, 0.183476E-01_JPRB, 0.168288E-01_JPRB &
+  &, 0.154691E-01_JPRB, 0.141908E-01_JPRB, 0.129995E-01_JPRB &
+  &, 0.119006E-01_JPRB, 0.108544E-01_JPRB, 0.991074E-02_JPRB, 0.902852E-02_JPRB &
+  &, 0.825928E-02_JPRB, 0.751230E-02_JPRB, 0.683853E-02_JPRB &
+  &, 0.619218E-02_JPRB, 0.562576E-02_JPRB, 0.509211E-02_JPRB, 0.459326E-02_JPRB &
+  &, 0.418409E-02_JPRB, 0.376175E-02_JPRB, 0.338047E-02_JPRB &
+  &, 0.304239E-02_JPRB, 0.274969E-02_JPRB, 0.250462E-02_JPRB, 0.225194E-02_JPRB &
+  &, 0.199157E-02_JPRB, 0.178249E-02_JPRB, 0.162705E-02_JPRB &
+  &, 0.146690E-02_JPRB, 0.130200E-02_JPRB, 0.113229E-02_JPRB, 0.102089E-02_JPRB &
+  &, 0.906257E-03_JPRB, 0.788341E-03_JPRB, 0.732822E-03_JPRB/)
+XCW( 487, :) = (/ &
+  &  0.993292E+00_JPRB, 0.990582E+00_JPRB, 0.987458E+00_JPRB, 0.983929E+00_JPRB &
+  &, 0.979990E+00_JPRB, 0.975648E+00_JPRB, 0.970903E+00_JPRB &
+  &, 0.965757E+00_JPRB, 0.960214E+00_JPRB, 0.954277E+00_JPRB, 0.947950E+00_JPRB &
+  &, 0.941233E+00_JPRB, 0.934136E+00_JPRB, 0.926659E+00_JPRB &
+  &, 0.918808E+00_JPRB, 0.910587E+00_JPRB, 0.902004E+00_JPRB, 0.893062E+00_JPRB &
+  &, 0.883769E+00_JPRB, 0.874132E+00_JPRB, 0.864156E+00_JPRB &
+  &, 0.853852E+00_JPRB, 0.843225E+00_JPRB, 0.832286E+00_JPRB, 0.821041E+00_JPRB &
+  &, 0.809503E+00_JPRB, 0.797679E+00_JPRB, 0.785587E+00_JPRB &
+  &, 0.773228E+00_JPRB, 0.760623E+00_JPRB, 0.747780E+00_JPRB, 0.734711E+00_JPRB &
+  &, 0.721432E+00_JPRB, 0.707954E+00_JPRB, 0.694290E+00_JPRB &
+  &, 0.680456E+00_JPRB, 0.666475E+00_JPRB, 0.652348E+00_JPRB, 0.638102E+00_JPRB &
+  &, 0.623749E+00_JPRB, 0.609312E+00_JPRB, 0.594787E+00_JPRB &
+  &, 0.580216E+00_JPRB, 0.565597E+00_JPRB, 0.550953E+00_JPRB, 0.536311E+00_JPRB &
+  &, 0.521673E+00_JPRB, 0.507055E+00_JPRB, 0.492486E+00_JPRB &
+  &, 0.477971E+00_JPRB, 0.463528E+00_JPRB, 0.449189E+00_JPRB, 0.434944E+00_JPRB &
+  &, 0.420813E+00_JPRB, 0.406826E+00_JPRB, 0.392989E+00_JPRB &
+  &, 0.379319E+00_JPRB, 0.365818E+00_JPRB, 0.352517E+00_JPRB, 0.339417E+00_JPRB &
+  &, 0.326515E+00_JPRB, 0.313859E+00_JPRB, 0.301427E+00_JPRB &
+  &, 0.289231E+00_JPRB, 0.277298E+00_JPRB, 0.265620E+00_JPRB, 0.254222E+00_JPRB &
+  &, 0.243092E+00_JPRB, 0.232233E+00_JPRB, 0.221667E+00_JPRB &
+  &, 0.211397E+00_JPRB, 0.201422E+00_JPRB, 0.191717E+00_JPRB, 0.182342E+00_JPRB &
+  &, 0.173249E+00_JPRB, 0.164451E+00_JPRB, 0.155983E+00_JPRB &
+  &, 0.147788E+00_JPRB, 0.139899E+00_JPRB, 0.132299E+00_JPRB, 0.124996E+00_JPRB &
+  &, 0.117994E+00_JPRB, 0.111272E+00_JPRB, 0.104804E+00_JPRB &
+  &, 0.986451E-01_JPRB, 0.927672E-01_JPRB, 0.871394E-01_JPRB, 0.817567E-01_JPRB &
+  &, 0.766722E-01_JPRB, 0.717893E-01_JPRB, 0.671897E-01_JPRB &
+  &, 0.628016E-01_JPRB, 0.586440E-01_JPRB, 0.547032E-01_JPRB, 0.509973E-01_JPRB &
+  &, 0.474767E-01_JPRB, 0.441568E-01_JPRB, 0.410179E-01_JPRB &
+  &, 0.380743E-01_JPRB, 0.353041E-01_JPRB, 0.327203E-01_JPRB, 0.302985E-01_JPRB &
+  &, 0.280121E-01_JPRB, 0.258712E-01_JPRB, 0.238465E-01_JPRB &
+  &, 0.219865E-01_JPRB, 0.202613E-01_JPRB, 0.186380E-01_JPRB, 0.171239E-01_JPRB &
+  &, 0.157260E-01_JPRB, 0.144083E-01_JPRB, 0.132204E-01_JPRB &
+  &, 0.120801E-01_JPRB, 0.110367E-01_JPRB, 0.100958E-01_JPRB, 0.921640E-02_JPRB &
+  &, 0.840233E-02_JPRB, 0.765751E-02_JPRB, 0.693679E-02_JPRB &
+  &, 0.634175E-02_JPRB, 0.572694E-02_JPRB, 0.519478E-02_JPRB, 0.469743E-02_JPRB &
+  &, 0.423692E-02_JPRB, 0.386895E-02_JPRB, 0.348919E-02_JPRB &
+  &, 0.315265E-02_JPRB, 0.280561E-02_JPRB, 0.256132E-02_JPRB, 0.230943E-02_JPRB &
+  &, 0.204985E-02_JPRB, 0.184158E-02_JPRB, 0.162705E-02_JPRB &
+  &, 0.146690E-02_JPRB, 0.130200E-02_JPRB, 0.119464E-02_JPRB, 0.102089E-02_JPRB &
+  &, 0.906257E-03_JPRB, 0.853203E-03_JPRB, 0.732822E-03_JPRB/)
+XCW( 488, :) = (/ &
+  &  0.993543E+00_JPRB, 0.990893E+00_JPRB, 0.987833E+00_JPRB, 0.984364E+00_JPRB &
+  &, 0.980486E+00_JPRB, 0.976205E+00_JPRB, 0.971519E+00_JPRB &
+  &, 0.966433E+00_JPRB, 0.960949E+00_JPRB, 0.955070E+00_JPRB, 0.948801E+00_JPRB &
+  &, 0.942141E+00_JPRB, 0.935100E+00_JPRB, 0.927678E+00_JPRB &
+  &, 0.919881E+00_JPRB, 0.911715E+00_JPRB, 0.903184E+00_JPRB, 0.894294E+00_JPRB &
+  &, 0.885051E+00_JPRB, 0.875461E+00_JPRB, 0.865534E+00_JPRB &
+  &, 0.855277E+00_JPRB, 0.844697E+00_JPRB, 0.833802E+00_JPRB, 0.822601E+00_JPRB &
+  &, 0.811103E+00_JPRB, 0.799322E+00_JPRB, 0.787266E+00_JPRB &
+  &, 0.774949E+00_JPRB, 0.762374E+00_JPRB, 0.749567E+00_JPRB, 0.736529E+00_JPRB &
+  &, 0.723279E+00_JPRB, 0.709829E+00_JPRB, 0.696195E+00_JPRB &
+  &, 0.682390E+00_JPRB, 0.668430E+00_JPRB, 0.654324E+00_JPRB, 0.640097E+00_JPRB &
+  &, 0.625763E+00_JPRB, 0.611335E+00_JPRB, 0.596829E+00_JPRB &
+  &, 0.582265E+00_JPRB, 0.567652E+00_JPRB, 0.553024E+00_JPRB, 0.538374E+00_JPRB &
+  &, 0.523738E+00_JPRB, 0.509121E+00_JPRB, 0.494552E+00_JPRB &
+  &, 0.480034E+00_JPRB, 0.465587E+00_JPRB, 0.451229E+00_JPRB, 0.436977E+00_JPRB &
+  &, 0.422850E+00_JPRB, 0.408838E+00_JPRB, 0.394988E+00_JPRB &
+  &, 0.381303E+00_JPRB, 0.367784E+00_JPRB, 0.354464E+00_JPRB, 0.341325E+00_JPRB &
+  &, 0.328416E+00_JPRB, 0.315716E+00_JPRB, 0.303255E+00_JPRB &
+  &, 0.291046E+00_JPRB, 0.279079E+00_JPRB, 0.267364E+00_JPRB, 0.255927E+00_JPRB &
+  &, 0.244754E+00_JPRB, 0.233870E+00_JPRB, 0.223278E+00_JPRB &
+  &, 0.212958E+00_JPRB, 0.202951E+00_JPRB, 0.193211E+00_JPRB, 0.183779E+00_JPRB &
+  &, 0.174669E+00_JPRB, 0.165829E+00_JPRB, 0.157295E+00_JPRB &
+  &, 0.149077E+00_JPRB, 0.141140E+00_JPRB, 0.133514E+00_JPRB, 0.126157E+00_JPRB &
+  &, 0.119099E+00_JPRB, 0.112345E+00_JPRB, 0.105870E+00_JPRB &
+  &, 0.996476E-01_JPRB, 0.937319E-01_JPRB, 0.880645E-01_JPRB, 0.826696E-01_JPRB &
+  &, 0.775120E-01_JPRB, 0.726140E-01_JPRB, 0.679672E-01_JPRB &
+  &, 0.635299E-01_JPRB, 0.593531E-01_JPRB, 0.553922E-01_JPRB, 0.516317E-01_JPRB &
+  &, 0.480883E-01_JPRB, 0.447445E-01_JPRB, 0.415806E-01_JPRB &
+  &, 0.386109E-01_JPRB, 0.358135E-01_JPRB, 0.331643E-01_JPRB, 0.307123E-01_JPRB &
+  &, 0.283947E-01_JPRB, 0.262601E-01_JPRB, 0.242418E-01_JPRB &
+  &, 0.223481E-01_JPRB, 0.205879E-01_JPRB, 0.189284E-01_JPRB, 0.174189E-01_JPRB &
+  &, 0.159830E-01_JPRB, 0.146693E-01_JPRB, 0.134413E-01_JPRB &
+  &, 0.123045E-01_JPRB, 0.112645E-01_JPRB, 0.102809E-01_JPRB, 0.935732E-02_JPRB &
+  &, 0.854538E-02_JPRB, 0.780271E-02_JPRB, 0.708416E-02_JPRB &
+  &, 0.644146E-02_JPRB, 0.582813E-02_JPRB, 0.529745E-02_JPRB, 0.480159E-02_JPRB &
+  &, 0.434260E-02_JPRB, 0.392254E-02_JPRB, 0.354356E-02_JPRB &
+  &, 0.320779E-02_JPRB, 0.286152E-02_JPRB, 0.261801E-02_JPRB, 0.236691E-02_JPRB &
+  &, 0.210813E-02_JPRB, 0.190066E-02_JPRB, 0.168694E-02_JPRB &
+  &, 0.152761E-02_JPRB, 0.136353E-02_JPRB, 0.119464E-02_JPRB, 0.108408E-02_JPRB &
+  &, 0.970275E-03_JPRB, 0.853203E-03_JPRB, 0.732822E-03_JPRB/)
+XCW( 489, :) = (/ &
+  &  0.993792E+00_JPRB, 0.991205E+00_JPRB, 0.988205E+00_JPRB, 0.984799E+00_JPRB &
+  &, 0.980982E+00_JPRB, 0.976762E+00_JPRB, 0.972136E+00_JPRB &
+  &, 0.967109E+00_JPRB, 0.961684E+00_JPRB, 0.955864E+00_JPRB, 0.949651E+00_JPRB &
+  &, 0.943050E+00_JPRB, 0.936064E+00_JPRB, 0.928698E+00_JPRB &
+  &, 0.920957E+00_JPRB, 0.912843E+00_JPRB, 0.904364E+00_JPRB, 0.895526E+00_JPRB &
+  &, 0.886334E+00_JPRB, 0.876793E+00_JPRB, 0.866915E+00_JPRB &
+  &, 0.856706E+00_JPRB, 0.846169E+00_JPRB, 0.835319E+00_JPRB, 0.824160E+00_JPRB &
+  &, 0.812707E+00_JPRB, 0.800965E+00_JPRB, 0.788949E+00_JPRB &
+  &, 0.776665E+00_JPRB, 0.764129E+00_JPRB, 0.751353E+00_JPRB, 0.738335E+00_JPRB &
+  &, 0.725130E+00_JPRB, 0.711710E+00_JPRB, 0.698100E+00_JPRB &
+  &, 0.684316E+00_JPRB, 0.670376E+00_JPRB, 0.656299E+00_JPRB, 0.642093E+00_JPRB &
+  &, 0.627778E+00_JPRB, 0.613358E+00_JPRB, 0.598871E+00_JPRB &
+  &, 0.584313E+00_JPRB, 0.569718E+00_JPRB, 0.555084E+00_JPRB, 0.540449E+00_JPRB &
+  &, 0.525816E+00_JPRB, 0.511199E+00_JPRB, 0.496630E+00_JPRB &
+  &, 0.482097E+00_JPRB, 0.467647E+00_JPRB, 0.453282E+00_JPRB, 0.439023E+00_JPRB &
+  &, 0.424873E+00_JPRB, 0.410865E+00_JPRB, 0.397002E+00_JPRB &
+  &, 0.383287E+00_JPRB, 0.369751E+00_JPRB, 0.356411E+00_JPRB, 0.343251E+00_JPRB &
+  &, 0.330317E+00_JPRB, 0.317591E+00_JPRB, 0.305101E+00_JPRB &
+  &, 0.292860E+00_JPRB, 0.280860E+00_JPRB, 0.269127E+00_JPRB, 0.257651E+00_JPRB &
+  &, 0.246456E+00_JPRB, 0.235528E+00_JPRB, 0.224889E+00_JPRB &
+  &, 0.214539E+00_JPRB, 0.204479E+00_JPRB, 0.194706E+00_JPRB, 0.185237E+00_JPRB &
+  &, 0.176089E+00_JPRB, 0.167208E+00_JPRB, 0.158630E+00_JPRB &
+  &, 0.150367E+00_JPRB, 0.142405E+00_JPRB, 0.134728E+00_JPRB, 0.127343E+00_JPRB &
+  &, 0.120230E+00_JPRB, 0.113444E+00_JPRB, 0.106908E+00_JPRB &
+  &, 0.100678E+00_JPRB, 0.946966E-01_JPRB, 0.889896E-01_JPRB, 0.835530E-01_JPRB &
+  &, 0.783518E-01_JPRB, 0.734387E-01_JPRB, 0.687447E-01_JPRB &
+  &, 0.642899E-01_JPRB, 0.600623E-01_JPRB, 0.560484E-01_JPRB, 0.522662E-01_JPRB &
+  &, 0.486999E-01_JPRB, 0.452976E-01_JPRB, 0.421081E-01_JPRB &
+  &, 0.391118E-01_JPRB, 0.362865E-01_JPRB, 0.336453E-01_JPRB, 0.311638E-01_JPRB &
+  &, 0.288155E-01_JPRB, 0.266490E-01_JPRB, 0.245975E-01_JPRB &
+  &, 0.226695E-01_JPRB, 0.208737E-01_JPRB, 0.192189E-01_JPRB, 0.176719E-01_JPRB &
+  &, 0.162399E-01_JPRB, 0.148868E-01_JPRB, 0.136622E-01_JPRB &
+  &, 0.125288E-01_JPRB, 0.114468E-01_JPRB, 0.104659E-01_JPRB, 0.954520E-02_JPRB &
+  &, 0.868843E-02_JPRB, 0.794792E-02_JPRB, 0.723154E-02_JPRB &
+  &, 0.659103E-02_JPRB, 0.597991E-02_JPRB, 0.540012E-02_JPRB, 0.490576E-02_JPRB &
+  &, 0.444827E-02_JPRB, 0.402974E-02_JPRB, 0.365228E-02_JPRB &
+  &, 0.326292E-02_JPRB, 0.297334E-02_JPRB, 0.267471E-02_JPRB, 0.236691E-02_JPRB &
+  &, 0.216641E-02_JPRB, 0.190066E-02_JPRB, 0.174683E-02_JPRB &
+  &, 0.152761E-02_JPRB, 0.136353E-02_JPRB, 0.125699E-02_JPRB, 0.108408E-02_JPRB &
+  &, 0.970275E-03_JPRB, 0.853203E-03_JPRB, 0.798534E-03_JPRB/)
+XCW( 490, :) = (/ &
+  &  0.994042E+00_JPRB, 0.991517E+00_JPRB, 0.988579E+00_JPRB, 0.985235E+00_JPRB &
+  &, 0.981479E+00_JPRB, 0.977318E+00_JPRB, 0.972753E+00_JPRB &
+  &, 0.967786E+00_JPRB, 0.962420E+00_JPRB, 0.956658E+00_JPRB, 0.950504E+00_JPRB &
+  &, 0.943959E+00_JPRB, 0.937029E+00_JPRB, 0.929718E+00_JPRB &
+  &, 0.922032E+00_JPRB, 0.913972E+00_JPRB, 0.905546E+00_JPRB, 0.896759E+00_JPRB &
+  &, 0.887618E+00_JPRB, 0.878129E+00_JPRB, 0.868300E+00_JPRB &
+  &, 0.858135E+00_JPRB, 0.847644E+00_JPRB, 0.836839E+00_JPRB, 0.825723E+00_JPRB &
+  &, 0.814311E+00_JPRB, 0.802612E+00_JPRB, 0.790631E+00_JPRB &
+  &, 0.778390E+00_JPRB, 0.765888E+00_JPRB, 0.753148E+00_JPRB, 0.740175E+00_JPRB &
+  &, 0.726986E+00_JPRB, 0.713594E+00_JPRB, 0.700014E+00_JPRB &
+  &, 0.686250E+00_JPRB, 0.672340E+00_JPRB, 0.658284E+00_JPRB, 0.644088E+00_JPRB &
+  &, 0.629793E+00_JPRB, 0.615392E+00_JPRB, 0.600913E+00_JPRB &
+  &, 0.586373E+00_JPRB, 0.571784E+00_JPRB, 0.557166E+00_JPRB, 0.542524E+00_JPRB &
+  &, 0.527893E+00_JPRB, 0.513278E+00_JPRB, 0.498707E+00_JPRB &
+  &, 0.484173E+00_JPRB, 0.469719E+00_JPRB, 0.455350E+00_JPRB, 0.441084E+00_JPRB &
+  &, 0.426925E+00_JPRB, 0.412892E+00_JPRB, 0.399001E+00_JPRB &
+  &, 0.385286E+00_JPRB, 0.371733E+00_JPRB, 0.358358E+00_JPRB, 0.345176E+00_JPRB &
+  &, 0.332218E+00_JPRB, 0.319466E+00_JPRB, 0.306965E+00_JPRB &
+  &, 0.294675E+00_JPRB, 0.282659E+00_JPRB, 0.270890E+00_JPRB, 0.259375E+00_JPRB &
+  &, 0.248139E+00_JPRB, 0.237186E+00_JPRB, 0.226499E+00_JPRB &
+  &, 0.216121E+00_JPRB, 0.206030E+00_JPRB, 0.196223E+00_JPRB, 0.186718E+00_JPRB &
+  &, 0.177509E+00_JPRB, 0.168587E+00_JPRB, 0.159989E+00_JPRB &
+  &, 0.151680E+00_JPRB, 0.143670E+00_JPRB, 0.135943E+00_JPRB, 0.128530E+00_JPRB &
+  &, 0.121387E+00_JPRB, 0.114543E+00_JPRB, 0.107974E+00_JPRB &
+  &, 0.101680E+00_JPRB, 0.956614E-01_JPRB, 0.899435E-01_JPRB, 0.844659E-01_JPRB &
+  &, 0.792216E-01_JPRB, 0.742634E-01_JPRB, 0.695223E-01_JPRB &
+  &, 0.650498E-01_JPRB, 0.607714E-01_JPRB, 0.567374E-01_JPRB, 0.529340E-01_JPRB &
+  &, 0.493115E-01_JPRB, 0.458853E-01_JPRB, 0.426709E-01_JPRB &
+  &, 0.396484E-01_JPRB, 0.367959E-01_JPRB, 0.341264E-01_JPRB, 0.316154E-01_JPRB &
+  &, 0.292362E-01_JPRB, 0.270379E-01_JPRB, 0.249533E-01_JPRB &
+  &, 0.230311E-01_JPRB, 0.212412E-01_JPRB, 0.195508E-01_JPRB, 0.179669E-01_JPRB &
+  &, 0.164968E-01_JPRB, 0.151478E-01_JPRB, 0.138831E-01_JPRB &
+  &, 0.127532E-01_JPRB, 0.116290E-01_JPRB, 0.106510E-01_JPRB, 0.973309E-02_JPRB &
+  &, 0.887917E-02_JPRB, 0.809313E-02_JPRB, 0.737892E-02_JPRB &
+  &, 0.669074E-02_JPRB, 0.608109E-02_JPRB, 0.550279E-02_JPRB, 0.500992E-02_JPRB &
+  &, 0.455394E-02_JPRB, 0.408333E-02_JPRB, 0.370664E-02_JPRB &
+  &, 0.337319E-02_JPRB, 0.302925E-02_JPRB, 0.273140E-02_JPRB, 0.242440E-02_JPRB &
+  &, 0.222469E-02_JPRB, 0.195974E-02_JPRB, 0.174683E-02_JPRB &
+  &, 0.158831E-02_JPRB, 0.142505E-02_JPRB, 0.125699E-02_JPRB, 0.114726E-02_JPRB &
+  &, 0.103429E-02_JPRB, 0.918065E-03_JPRB, 0.798534E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART70',1,ZHOOK_HANDLE)
+END SUBROUTINE PART70
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART71
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART71',0,ZHOOK_HANDLE)
+
+XCW( 491, :) = (/ &
+  &  0.994292E+00_JPRB, 0.991830E+00_JPRB, 0.988954E+00_JPRB, 0.985670E+00_JPRB &
+  &, 0.981975E+00_JPRB, 0.977876E+00_JPRB, 0.973370E+00_JPRB &
+  &, 0.968463E+00_JPRB, 0.963156E+00_JPRB, 0.957453E+00_JPRB, 0.951356E+00_JPRB &
+  &, 0.944869E+00_JPRB, 0.937996E+00_JPRB, 0.930740E+00_JPRB &
+  &, 0.923108E+00_JPRB, 0.915102E+00_JPRB, 0.906729E+00_JPRB, 0.897994E+00_JPRB &
+  &, 0.888904E+00_JPRB, 0.879465E+00_JPRB, 0.869681E+00_JPRB &
+  &, 0.859564E+00_JPRB, 0.849123E+00_JPRB, 0.838359E+00_JPRB, 0.827290E+00_JPRB &
+  &, 0.815919E+00_JPRB, 0.804258E+00_JPRB, 0.792318E+00_JPRB &
+  &, 0.780114E+00_JPRB, 0.767647E+00_JPRB, 0.754942E+00_JPRB, 0.742002E+00_JPRB &
+  &, 0.728842E+00_JPRB, 0.715479E+00_JPRB, 0.701928E+00_JPRB &
+  &, 0.688194E+00_JPRB, 0.674305E+00_JPRB, 0.660269E+00_JPRB, 0.646093E+00_JPRB &
+  &, 0.631807E+00_JPRB, 0.617426E+00_JPRB, 0.602966E+00_JPRB &
+  &, 0.588433E+00_JPRB, 0.573849E+00_JPRB, 0.559237E+00_JPRB, 0.544610E+00_JPRB &
+  &, 0.529982E+00_JPRB, 0.515368E+00_JPRB, 0.500785E+00_JPRB &
+  &, 0.486263E+00_JPRB, 0.471805E+00_JPRB, 0.457418E+00_JPRB, 0.443145E+00_JPRB &
+  &, 0.428963E+00_JPRB, 0.414934E+00_JPRB, 0.401030E+00_JPRB &
+  &, 0.387285E+00_JPRB, 0.373715E+00_JPRB, 0.360321E+00_JPRB, 0.347118E+00_JPRB &
+  &, 0.334137E+00_JPRB, 0.321358E+00_JPRB, 0.308811E+00_JPRB &
+  &, 0.296508E+00_JPRB, 0.284458E+00_JPRB, 0.272653E+00_JPRB, 0.261118E+00_JPRB &
+  &, 0.249841E+00_JPRB, 0.238844E+00_JPRB, 0.228131E+00_JPRB &
+  &, 0.217724E+00_JPRB, 0.207580E+00_JPRB, 0.197740E+00_JPRB, 0.188199E+00_JPRB &
+  &, 0.178951E+00_JPRB, 0.169989E+00_JPRB, 0.161348E+00_JPRB &
+  &, 0.152993E+00_JPRB, 0.144935E+00_JPRB, 0.137182E+00_JPRB, 0.129717E+00_JPRB &
+  &, 0.122544E+00_JPRB, 0.115642E+00_JPRB, 0.109040E+00_JPRB &
+  &, 0.102711E+00_JPRB, 0.966545E-01_JPRB, 0.908686E-01_JPRB, 0.853493E-01_JPRB &
+  &, 0.800914E-01_JPRB, 0.750881E-01_JPRB, 0.703309E-01_JPRB &
+  &, 0.658098E-01_JPRB, 0.615128E-01_JPRB, 0.574264E-01_JPRB, 0.535684E-01_JPRB &
+  &, 0.499231E-01_JPRB, 0.465076E-01_JPRB, 0.432336E-01_JPRB &
+  &, 0.401850E-01_JPRB, 0.373053E-01_JPRB, 0.346074E-01_JPRB, 0.320669E-01_JPRB &
+  &, 0.296570E-01_JPRB, 0.274268E-01_JPRB, 0.253486E-01_JPRB &
+  &, 0.233927E-01_JPRB, 0.215678E-01_JPRB, 0.198412E-01_JPRB, 0.182620E-01_JPRB &
+  &, 0.167966E-01_JPRB, 0.154088E-01_JPRB, 0.141482E-01_JPRB &
+  &, 0.129327E-01_JPRB, 0.118568E-01_JPRB, 0.108360E-01_JPRB, 0.992097E-02_JPRB &
+  &, 0.902222E-02_JPRB, 0.823833E-02_JPRB, 0.752630E-02_JPRB &
+  &, 0.684031E-02_JPRB, 0.618228E-02_JPRB, 0.565679E-02_JPRB, 0.511409E-02_JPRB &
+  &, 0.460678E-02_JPRB, 0.419053E-02_JPRB, 0.381537E-02_JPRB &
+  &, 0.342833E-02_JPRB, 0.308517E-02_JPRB, 0.278810E-02_JPRB, 0.248188E-02_JPRB &
+  &, 0.222469E-02_JPRB, 0.201883E-02_JPRB, 0.180672E-02_JPRB &
+  &, 0.164902E-02_JPRB, 0.142505E-02_JPRB, 0.131934E-02_JPRB, 0.114726E-02_JPRB &
+  &, 0.103429E-02_JPRB, 0.918065E-03_JPRB, 0.798534E-03_JPRB/)
+XCW( 492, :) = (/ &
+  &  0.994542E+00_JPRB, 0.992141E+00_JPRB, 0.989328E+00_JPRB, 0.986105E+00_JPRB &
+  &, 0.982472E+00_JPRB, 0.978433E+00_JPRB, 0.973987E+00_JPRB &
+  &, 0.969140E+00_JPRB, 0.963892E+00_JPRB, 0.958247E+00_JPRB, 0.952209E+00_JPRB &
+  &, 0.945779E+00_JPRB, 0.938962E+00_JPRB, 0.931762E+00_JPRB &
+  &, 0.924185E+00_JPRB, 0.916233E+00_JPRB, 0.907912E+00_JPRB, 0.899230E+00_JPRB &
+  &, 0.890191E+00_JPRB, 0.880800E+00_JPRB, 0.871066E+00_JPRB &
+  &, 0.860996E+00_JPRB, 0.850602E+00_JPRB, 0.839886E+00_JPRB, 0.828856E+00_JPRB &
+  &, 0.817530E+00_JPRB, 0.805908E+00_JPRB, 0.794009E+00_JPRB &
+  &, 0.781838E+00_JPRB, 0.769410E+00_JPRB, 0.756737E+00_JPRB, 0.743833E+00_JPRB &
+  &, 0.730706E+00_JPRB, 0.717368E+00_JPRB, 0.703842E+00_JPRB &
+  &, 0.690138E+00_JPRB, 0.676269E+00_JPRB, 0.662254E+00_JPRB, 0.648108E+00_JPRB &
+  &, 0.633832E+00_JPRB, 0.619471E+00_JPRB, 0.605018E+00_JPRB &
+  &, 0.590504E+00_JPRB, 0.575927E+00_JPRB, 0.561320E+00_JPRB, 0.546697E+00_JPRB &
+  &, 0.532072E+00_JPRB, 0.517459E+00_JPRB, 0.502876E+00_JPRB &
+  &, 0.488352E+00_JPRB, 0.473878E+00_JPRB, 0.459499E+00_JPRB, 0.445205E+00_JPRB &
+  &, 0.431030E+00_JPRB, 0.416975E+00_JPRB, 0.403059E+00_JPRB &
+  &, 0.389300E+00_JPRB, 0.375697E+00_JPRB, 0.362284E+00_JPRB, 0.349076E+00_JPRB &
+  &, 0.336055E+00_JPRB, 0.323250E+00_JPRB, 0.310693E+00_JPRB &
+  &, 0.298359E+00_JPRB, 0.286258E+00_JPRB, 0.274435E+00_JPRB, 0.262862E+00_JPRB &
+  &, 0.251563E+00_JPRB, 0.240522E+00_JPRB, 0.229783E+00_JPRB &
+  &, 0.219326E+00_JPRB, 0.209152E+00_JPRB, 0.199257E+00_JPRB, 0.189680E+00_JPRB &
+  &, 0.180394E+00_JPRB, 0.171391E+00_JPRB, 0.162707E+00_JPRB &
+  &, 0.154307E+00_JPRB, 0.146225E+00_JPRB, 0.138422E+00_JPRB, 0.130903E+00_JPRB &
+  &, 0.123701E+00_JPRB, 0.116768E+00_JPRB, 0.110105E+00_JPRB &
+  &, 0.103741E+00_JPRB, 0.976476E-01_JPRB, 0.918515E-01_JPRB, 0.862917E-01_JPRB &
+  &, 0.809912E-01_JPRB, 0.759434E-01_JPRB, 0.711396E-01_JPRB &
+  &, 0.665697E-01_JPRB, 0.622542E-01_JPRB, 0.581482E-01_JPRB, 0.542362E-01_JPRB &
+  &, 0.505687E-01_JPRB, 0.470953E-01_JPRB, 0.438315E-01_JPRB &
+  &, 0.407216E-01_JPRB, 0.378147E-01_JPRB, 0.350884E-01_JPRB, 0.325184E-01_JPRB &
+  &, 0.300778E-01_JPRB, 0.278157E-01_JPRB, 0.257044E-01_JPRB &
+  &, 0.237543E-01_JPRB, 0.218944E-01_JPRB, 0.201731E-01_JPRB, 0.185571E-01_JPRB &
+  &, 0.170535E-01_JPRB, 0.156698E-01_JPRB, 0.143691E-01_JPRB &
+  &, 0.131570E-01_JPRB, 0.120847E-01_JPRB, 0.110211E-01_JPRB, 0.101089E-01_JPRB &
+  &, 0.921296E-02_JPRB, 0.838354E-02_JPRB, 0.767368E-02_JPRB &
+  &, 0.694003E-02_JPRB, 0.633405E-02_JPRB, 0.575946E-02_JPRB, 0.521825E-02_JPRB &
+  &, 0.471245E-02_JPRB, 0.429772E-02_JPRB, 0.386973E-02_JPRB &
+  &, 0.348346E-02_JPRB, 0.314108E-02_JPRB, 0.284480E-02_JPRB, 0.253937E-02_JPRB &
+  &, 0.228298E-02_JPRB, 0.207791E-02_JPRB, 0.186661E-02_JPRB &
+  &, 0.164902E-02_JPRB, 0.148657E-02_JPRB, 0.131934E-02_JPRB, 0.121044E-02_JPRB &
+  &, 0.103429E-02_JPRB, 0.918065E-03_JPRB, 0.864245E-03_JPRB/)
+XCW( 493, :) = (/ &
+  &  0.994792E+00_JPRB, 0.992453E+00_JPRB, 0.989701E+00_JPRB, 0.986541E+00_JPRB &
+  &, 0.982969E+00_JPRB, 0.978990E+00_JPRB, 0.974606E+00_JPRB &
+  &, 0.969818E+00_JPRB, 0.964629E+00_JPRB, 0.959043E+00_JPRB, 0.953061E+00_JPRB &
+  &, 0.946688E+00_JPRB, 0.939929E+00_JPRB, 0.932785E+00_JPRB &
+  &, 0.925263E+00_JPRB, 0.917365E+00_JPRB, 0.909097E+00_JPRB, 0.900466E+00_JPRB &
+  &, 0.891478E+00_JPRB, 0.882139E+00_JPRB, 0.872453E+00_JPRB &
+  &, 0.862432E+00_JPRB, 0.852080E+00_JPRB, 0.841410E+00_JPRB, 0.830427E+00_JPRB &
+  &, 0.819142E+00_JPRB, 0.807562E+00_JPRB, 0.795699E+00_JPRB &
+  &, 0.783570E+00_JPRB, 0.771177E+00_JPRB, 0.758540E+00_JPRB, 0.745664E+00_JPRB &
+  &, 0.732566E+00_JPRB, 0.719262E+00_JPRB, 0.705766E+00_JPRB &
+  &, 0.692082E+00_JPRB, 0.678243E+00_JPRB, 0.664248E+00_JPRB, 0.650113E+00_JPRB &
+  &, 0.635868E+00_JPRB, 0.621515E+00_JPRB, 0.607082E+00_JPRB &
+  &, 0.592575E+00_JPRB, 0.578004E+00_JPRB, 0.563414E+00_JPRB, 0.548796E+00_JPRB &
+  &, 0.534173E+00_JPRB, 0.519563E+00_JPRB, 0.504980E+00_JPRB &
+  &, 0.490441E+00_JPRB, 0.475978E+00_JPRB, 0.461580E+00_JPRB, 0.447280E+00_JPRB &
+  &, 0.433082E+00_JPRB, 0.419017E+00_JPRB, 0.405088E+00_JPRB &
+  &, 0.391314E+00_JPRB, 0.377695E+00_JPRB, 0.364263E+00_JPRB, 0.351018E+00_JPRB &
+  &, 0.337990E+00_JPRB, 0.325160E+00_JPRB, 0.312574E+00_JPRB &
+  &, 0.300210E+00_JPRB, 0.288075E+00_JPRB, 0.276217E+00_JPRB, 0.264605E+00_JPRB &
+  &, 0.253285E+00_JPRB, 0.242220E+00_JPRB, 0.231435E+00_JPRB &
+  &, 0.220929E+00_JPRB, 0.210724E+00_JPRB, 0.200795E+00_JPRB, 0.191183E+00_JPRB &
+  &, 0.181837E+00_JPRB, 0.172816E+00_JPRB, 0.164090E+00_JPRB &
+  &, 0.155644E+00_JPRB, 0.147515E+00_JPRB, 0.139661E+00_JPRB, 0.132116E+00_JPRB &
+  &, 0.124859E+00_JPRB, 0.117894E+00_JPRB, 0.111198E+00_JPRB &
+  &, 0.104799E+00_JPRB, 0.986691E-01_JPRB, 0.928055E-01_JPRB, 0.872045E-01_JPRB &
+  &, 0.818610E-01_JPRB, 0.767986E-01_JPRB, 0.719482E-01_JPRB &
+  &, 0.673614E-01_JPRB, 0.629956E-01_JPRB, 0.588372E-01_JPRB, 0.549040E-01_JPRB &
+  &, 0.512143E-01_JPRB, 0.476830E-01_JPRB, 0.443942E-01_JPRB &
+  &, 0.412582E-01_JPRB, 0.383241E-01_JPRB, 0.355695E-01_JPRB, 0.329699E-01_JPRB &
+  &, 0.305369E-01_JPRB, 0.282434E-01_JPRB, 0.260997E-01_JPRB &
+  &, 0.241159E-01_JPRB, 0.222211E-01_JPRB, 0.204635E-01_JPRB, 0.188521E-01_JPRB &
+  &, 0.173533E-01_JPRB, 0.159308E-01_JPRB, 0.146342E-01_JPRB &
+  &, 0.134262E-01_JPRB, 0.122669E-01_JPRB, 0.112524E-01_JPRB, 0.102498E-01_JPRB &
+  &, 0.935601E-02_JPRB, 0.857714E-02_JPRB, 0.782106E-02_JPRB &
+  &, 0.708959E-02_JPRB, 0.643524E-02_JPRB, 0.586213E-02_JPRB, 0.532242E-02_JPRB &
+  &, 0.481812E-02_JPRB, 0.435132E-02_JPRB, 0.397846E-02_JPRB &
+  &, 0.359373E-02_JPRB, 0.325290E-02_JPRB, 0.290149E-02_JPRB, 0.259686E-02_JPRB &
+  &, 0.234126E-02_JPRB, 0.213699E-02_JPRB, 0.192650E-02_JPRB &
+  &, 0.170972E-02_JPRB, 0.154810E-02_JPRB, 0.138169E-02_JPRB, 0.121044E-02_JPRB &
+  &, 0.109831E-02_JPRB, 0.982926E-03_JPRB, 0.864245E-03_JPRB/)
+XCW( 494, :) = (/ &
+  &  0.995041E+00_JPRB, 0.992766E+00_JPRB, 0.990075E+00_JPRB, 0.986976E+00_JPRB &
+  &, 0.983465E+00_JPRB, 0.979548E+00_JPRB, 0.975224E+00_JPRB &
+  &, 0.970495E+00_JPRB, 0.965365E+00_JPRB, 0.959838E+00_JPRB, 0.953915E+00_JPRB &
+  &, 0.947601E+00_JPRB, 0.940897E+00_JPRB, 0.933808E+00_JPRB &
+  &, 0.926341E+00_JPRB, 0.918497E+00_JPRB, 0.910283E+00_JPRB, 0.901704E+00_JPRB &
+  &, 0.892768E+00_JPRB, 0.883478E+00_JPRB, 0.873841E+00_JPRB &
+  &, 0.863868E+00_JPRB, 0.853562E+00_JPRB, 0.842937E+00_JPRB, 0.831997E+00_JPRB &
+  &, 0.820753E+00_JPRB, 0.809216E+00_JPRB, 0.797394E+00_JPRB &
+  &, 0.785299E+00_JPRB, 0.772944E+00_JPRB, 0.760343E+00_JPRB, 0.747500E+00_JPRB &
+  &, 0.734434E+00_JPRB, 0.721160E+00_JPRB, 0.707689E+00_JPRB &
+  &, 0.694035E+00_JPRB, 0.680218E+00_JPRB, 0.666243E+00_JPRB, 0.652128E+00_JPRB &
+  &, 0.637903E+00_JPRB, 0.623570E+00_JPRB, 0.609145E+00_JPRB &
+  &, 0.594646E+00_JPRB, 0.580093E+00_JPRB, 0.565509E+00_JPRB, 0.550894E+00_JPRB &
+  &, 0.536275E+00_JPRB, 0.521666E+00_JPRB, 0.507083E+00_JPRB &
+  &, 0.492544E+00_JPRB, 0.478064E+00_JPRB, 0.463675E+00_JPRB, 0.449355E+00_JPRB &
+  &, 0.435163E+00_JPRB, 0.421073E+00_JPRB, 0.407133E+00_JPRB &
+  &, 0.393329E+00_JPRB, 0.379709E+00_JPRB, 0.366259E+00_JPRB, 0.352993E+00_JPRB &
+  &, 0.339925E+00_JPRB, 0.327069E+00_JPRB, 0.314456E+00_JPRB &
+  &, 0.302061E+00_JPRB, 0.289912E+00_JPRB, 0.278018E+00_JPRB, 0.266368E+00_JPRB &
+  &, 0.255006E+00_JPRB, 0.243898E+00_JPRB, 0.233087E+00_JPRB &
+  &, 0.222553E+00_JPRB, 0.212296E+00_JPRB, 0.202334E+00_JPRB, 0.192686E+00_JPRB &
+  &, 0.183302E+00_JPRB, 0.174242E+00_JPRB, 0.165472E+00_JPRB &
+  &, 0.156982E+00_JPRB, 0.148805E+00_JPRB, 0.140926E+00_JPRB, 0.133328E+00_JPRB &
+  &, 0.126042E+00_JPRB, 0.119020E+00_JPRB, 0.112291E+00_JPRB &
+  &, 0.105858E+00_JPRB, 0.996906E-01_JPRB, 0.937883E-01_JPRB, 0.881469E-01_JPRB &
+  &, 0.827608E-01_JPRB, 0.776538E-01_JPRB, 0.727569E-01_JPRB &
+  &, 0.681213E-01_JPRB, 0.637370E-01_JPRB, 0.595590E-01_JPRB, 0.556052E-01_JPRB &
+  &, 0.518598E-01_JPRB, 0.483052E-01_JPRB, 0.449569E-01_JPRB &
+  &, 0.418306E-01_JPRB, 0.388699E-01_JPRB, 0.360505E-01_JPRB, 0.334214E-01_JPRB &
+  &, 0.309577E-01_JPRB, 0.286712E-01_JPRB, 0.264950E-01_JPRB &
+  &, 0.244775E-01_JPRB, 0.225885E-01_JPRB, 0.207954E-01_JPRB, 0.191472E-01_JPRB &
+  &, 0.176102E-01_JPRB, 0.161918E-01_JPRB, 0.148551E-01_JPRB &
+  &, 0.136506E-01_JPRB, 0.124947E-01_JPRB, 0.114375E-01_JPRB, 0.104377E-01_JPRB &
+  &, 0.954674E-02_JPRB, 0.872235E-02_JPRB, 0.796843E-02_JPRB &
+  &, 0.723916E-02_JPRB, 0.658701E-02_JPRB, 0.596480E-02_JPRB, 0.542658E-02_JPRB &
+  &, 0.492380E-02_JPRB, 0.445851E-02_JPRB, 0.403282E-02_JPRB &
+  &, 0.364886E-02_JPRB, 0.330882E-02_JPRB, 0.295819E-02_JPRB, 0.265434E-02_JPRB &
+  &, 0.239954E-02_JPRB, 0.219607E-02_JPRB, 0.192650E-02_JPRB &
+  &, 0.177043E-02_JPRB, 0.154810E-02_JPRB, 0.138169E-02_JPRB, 0.127362E-02_JPRB &
+  &, 0.109831E-02_JPRB, 0.982926E-03_JPRB, 0.864245E-03_JPRB/)
+XCW( 495, :) = (/ &
+  &  0.995294E+00_JPRB, 0.993079E+00_JPRB, 0.990451E+00_JPRB, 0.987412E+00_JPRB &
+  &, 0.983963E+00_JPRB, 0.980106E+00_JPRB, 0.975841E+00_JPRB &
+  &, 0.971173E+00_JPRB, 0.966103E+00_JPRB, 0.960634E+00_JPRB, 0.954770E+00_JPRB &
+  &, 0.948512E+00_JPRB, 0.941865E+00_JPRB, 0.934833E+00_JPRB &
+  &, 0.927420E+00_JPRB, 0.919630E+00_JPRB, 0.911469E+00_JPRB, 0.902944E+00_JPRB &
+  &, 0.894057E+00_JPRB, 0.884817E+00_JPRB, 0.875229E+00_JPRB &
+  &, 0.865303E+00_JPRB, 0.855048E+00_JPRB, 0.844467E+00_JPRB, 0.833570E+00_JPRB &
+  &, 0.822368E+00_JPRB, 0.810874E+00_JPRB, 0.799092E+00_JPRB &
+  &, 0.787035E+00_JPRB, 0.774715E+00_JPRB, 0.762146E+00_JPRB, 0.749339E+00_JPRB &
+  &, 0.736307E+00_JPRB, 0.723062E+00_JPRB, 0.709617E+00_JPRB &
+  &, 0.695989E+00_JPRB, 0.682192E+00_JPRB, 0.668238E+00_JPRB, 0.654153E+00_JPRB &
+  &, 0.639938E+00_JPRB, 0.625625E+00_JPRB, 0.611209E+00_JPRB &
+  &, 0.596728E+00_JPRB, 0.582193E+00_JPRB, 0.567603E+00_JPRB, 0.552993E+00_JPRB &
+  &, 0.538377E+00_JPRB, 0.523782E+00_JPRB, 0.509200E+00_JPRB &
+  &, 0.494659E+00_JPRB, 0.480177E+00_JPRB, 0.465770E+00_JPRB, 0.451444E+00_JPRB &
+  &, 0.437229E+00_JPRB, 0.423144E+00_JPRB, 0.409177E+00_JPRB &
+  &, 0.395375E+00_JPRB, 0.381723E+00_JPRB, 0.368238E+00_JPRB, 0.354968E+00_JPRB &
+  &, 0.341877E+00_JPRB, 0.328996E+00_JPRB, 0.316355E+00_JPRB &
+  &, 0.303930E+00_JPRB, 0.291748E+00_JPRB, 0.279819E+00_JPRB, 0.268150E+00_JPRB &
+  &, 0.256748E+00_JPRB, 0.245617E+00_JPRB, 0.234759E+00_JPRB &
+  &, 0.224177E+00_JPRB, 0.213889E+00_JPRB, 0.203895E+00_JPRB, 0.194190E+00_JPRB &
+  &, 0.184791E+00_JPRB, 0.175667E+00_JPRB, 0.166855E+00_JPRB &
+  &, 0.158344E+00_JPRB, 0.150120E+00_JPRB, 0.142191E+00_JPRB, 0.134567E+00_JPRB &
+  &, 0.127226E+00_JPRB, 0.120173E+00_JPRB, 0.113412E+00_JPRB &
+  &, 0.106916E+00_JPRB, 0.100712E+00_JPRB, 0.947712E-01_JPRB, 0.890892E-01_JPRB &
+  &, 0.836606E-01_JPRB, 0.785091E-01_JPRB, 0.735966E-01_JPRB &
+  &, 0.689129E-01_JPRB, 0.644784E-01_JPRB, 0.602808E-01_JPRB, 0.562730E-01_JPRB &
+  &, 0.525054E-01_JPRB, 0.489275E-01_JPRB, 0.455548E-01_JPRB &
+  &, 0.423672E-01_JPRB, 0.393793E-01_JPRB, 0.365685E-01_JPRB, 0.339105E-01_JPRB &
+  &, 0.314167E-01_JPRB, 0.290601E-01_JPRB, 0.268903E-01_JPRB &
+  &, 0.248391E-01_JPRB, 0.229152E-01_JPRB, 0.211273E-01_JPRB, 0.194844E-01_JPRB &
+  &, 0.179100E-01_JPRB, 0.164528E-01_JPRB, 0.151202E-01_JPRB &
+  &, 0.138749E-01_JPRB, 0.127226E-01_JPRB, 0.116225E-01_JPRB, 0.106255E-01_JPRB &
+  &, 0.973748E-02_JPRB, 0.886756E-02_JPRB, 0.811581E-02_JPRB &
+  &, 0.738873E-02_JPRB, 0.673879E-02_JPRB, 0.611880E-02_JPRB, 0.553075E-02_JPRB &
+  &, 0.502947E-02_JPRB, 0.456570E-02_JPRB, 0.414154E-02_JPRB &
+  &, 0.375913E-02_JPRB, 0.336473E-02_JPRB, 0.301488E-02_JPRB, 0.276931E-02_JPRB &
+  &, 0.245782E-02_JPRB, 0.219607E-02_JPRB, 0.198639E-02_JPRB &
+  &, 0.177043E-02_JPRB, 0.160962E-02_JPRB, 0.144404E-02_JPRB, 0.127362E-02_JPRB &
+  &, 0.116233E-02_JPRB, 0.104779E-02_JPRB, 0.929956E-03_JPRB/)
+XCW( 496, :) = (/ &
+  &  0.995543E+00_JPRB, 0.993392E+00_JPRB, 0.990825E+00_JPRB, 0.987848E+00_JPRB &
+  &, 0.984460E+00_JPRB, 0.980663E+00_JPRB, 0.976460E+00_JPRB &
+  &, 0.971851E+00_JPRB, 0.966841E+00_JPRB, 0.961430E+00_JPRB, 0.955624E+00_JPRB &
+  &, 0.949424E+00_JPRB, 0.942834E+00_JPRB, 0.935858E+00_JPRB &
+  &, 0.928500E+00_JPRB, 0.920765E+00_JPRB, 0.912657E+00_JPRB, 0.904183E+00_JPRB &
+  &, 0.895349E+00_JPRB, 0.886158E+00_JPRB, 0.876620E+00_JPRB &
+  &, 0.866742E+00_JPRB, 0.856533E+00_JPRB, 0.845998E+00_JPRB, 0.835144E+00_JPRB &
+  &, 0.823987E+00_JPRB, 0.812532E+00_JPRB, 0.800790E+00_JPRB &
+  &, 0.788771E+00_JPRB, 0.776490E+00_JPRB, 0.763957E+00_JPRB, 0.751183E+00_JPRB &
+  &, 0.738180E+00_JPRB, 0.724964E+00_JPRB, 0.711549E+00_JPRB &
+  &, 0.697942E+00_JPRB, 0.684175E+00_JPRB, 0.670242E+00_JPRB, 0.656178E+00_JPRB &
+  &, 0.641984E+00_JPRB, 0.627680E+00_JPRB, 0.613283E+00_JPRB &
+  &, 0.598821E+00_JPRB, 0.584282E+00_JPRB, 0.569709E+00_JPRB, 0.555103E+00_JPRB &
+  &, 0.540503E+00_JPRB, 0.525898E+00_JPRB, 0.511316E+00_JPRB &
+  &, 0.496775E+00_JPRB, 0.482290E+00_JPRB, 0.467866E+00_JPRB, 0.453547E+00_JPRB &
+  &, 0.439325E+00_JPRB, 0.425215E+00_JPRB, 0.411236E+00_JPRB &
+  &, 0.397405E+00_JPRB, 0.383737E+00_JPRB, 0.370250E+00_JPRB, 0.356943E+00_JPRB &
+  &, 0.343830E+00_JPRB, 0.330923E+00_JPRB, 0.318254E+00_JPRB &
+  &, 0.305799E+00_JPRB, 0.293584E+00_JPRB, 0.281639E+00_JPRB, 0.269932E+00_JPRB &
+  &, 0.258490E+00_JPRB, 0.247315E+00_JPRB, 0.236432E+00_JPRB &
+  &, 0.225822E+00_JPRB, 0.215482E+00_JPRB, 0.205456E+00_JPRB, 0.195716E+00_JPRB &
+  &, 0.186256E+00_JPRB, 0.177116E+00_JPRB, 0.168262E+00_JPRB &
+  &, 0.159706E+00_JPRB, 0.151435E+00_JPRB, 0.143482E+00_JPRB, 0.135805E+00_JPRB &
+  &, 0.128409E+00_JPRB, 0.121326E+00_JPRB, 0.114505E+00_JPRB &
+  &, 0.107974E+00_JPRB, 0.101734E+00_JPRB, 0.957541E-01_JPRB, 0.900315E-01_JPRB &
+  &, 0.845904E-01_JPRB, 0.793949E-01_JPRB, 0.744364E-01_JPRB &
+  &, 0.697362E-01_JPRB, 0.652520E-01_JPRB, 0.610026E-01_JPRB, 0.569742E-01_JPRB &
+  &, 0.531510E-01_JPRB, 0.495498E-01_JPRB, 0.461527E-01_JPRB &
+  &, 0.429396E-01_JPRB, 0.399251E-01_JPRB, 0.370496E-01_JPRB, 0.343996E-01_JPRB &
+  &, 0.318758E-01_JPRB, 0.294879E-01_JPRB, 0.272856E-01_JPRB &
+  &, 0.252007E-01_JPRB, 0.232826E-01_JPRB, 0.214592E-01_JPRB, 0.197795E-01_JPRB &
+  &, 0.182098E-01_JPRB, 0.167573E-01_JPRB, 0.153853E-01_JPRB &
+  &, 0.140993E-01_JPRB, 0.129504E-01_JPRB, 0.118539E-01_JPRB, 0.108604E-01_JPRB &
+  &, 0.992821E-02_JPRB, 0.906116E-02_JPRB, 0.826319E-02_JPRB &
+  &, 0.753830E-02_JPRB, 0.683998E-02_JPRB, 0.622147E-02_JPRB, 0.563491E-02_JPRB &
+  &, 0.513514E-02_JPRB, 0.467289E-02_JPRB, 0.419591E-02_JPRB &
+  &, 0.381427E-02_JPRB, 0.342064E-02_JPRB, 0.312828E-02_JPRB, 0.282680E-02_JPRB &
+  &, 0.251610E-02_JPRB, 0.225516E-02_JPRB, 0.204629E-02_JPRB &
+  &, 0.183113E-02_JPRB, 0.167115E-02_JPRB, 0.144404E-02_JPRB, 0.133680E-02_JPRB &
+  &, 0.116233E-02_JPRB, 0.104779E-02_JPRB, 0.929956E-03_JPRB/)
+XCW( 497, :) = (/ &
+  &  0.995792E+00_JPRB, 0.993704E+00_JPRB, 0.991199E+00_JPRB, 0.988285E+00_JPRB &
+  &, 0.984957E+00_JPRB, 0.981221E+00_JPRB, 0.977078E+00_JPRB &
+  &, 0.972530E+00_JPRB, 0.967579E+00_JPRB, 0.962228E+00_JPRB, 0.956479E+00_JPRB &
+  &, 0.950336E+00_JPRB, 0.943803E+00_JPRB, 0.936882E+00_JPRB &
+  &, 0.929581E+00_JPRB, 0.921900E+00_JPRB, 0.913846E+00_JPRB, 0.905425E+00_JPRB &
+  &, 0.896641E+00_JPRB, 0.887500E+00_JPRB, 0.878014E+00_JPRB &
+  &, 0.868185E+00_JPRB, 0.858019E+00_JPRB, 0.847528E+00_JPRB, 0.836721E+00_JPRB &
+  &, 0.825605E+00_JPRB, 0.814193E+00_JPRB, 0.802492E+00_JPRB &
+  &, 0.790511E+00_JPRB, 0.778266E+00_JPRB, 0.765768E+00_JPRB, 0.753027E+00_JPRB &
+  &, 0.740057E+00_JPRB, 0.726871E+00_JPRB, 0.713486E+00_JPRB &
+  &, 0.699905E+00_JPRB, 0.686159E+00_JPRB, 0.672257E+00_JPRB, 0.658203E+00_JPRB &
+  &, 0.644029E+00_JPRB, 0.629745E+00_JPRB, 0.615368E+00_JPRB &
+  &, 0.600903E+00_JPRB, 0.586382E+00_JPRB, 0.571815E+00_JPRB, 0.557226E+00_JPRB &
+  &, 0.542617E+00_JPRB, 0.528014E+00_JPRB, 0.513433E+00_JPRB &
+  &, 0.498890E+00_JPRB, 0.484403E+00_JPRB, 0.469974E+00_JPRB, 0.455650E+00_JPRB &
+  &, 0.441406E+00_JPRB, 0.427286E+00_JPRB, 0.413296E+00_JPRB &
+  &, 0.399450E+00_JPRB, 0.385767E+00_JPRB, 0.372262E+00_JPRB, 0.358935E+00_JPRB &
+  &, 0.345799E+00_JPRB, 0.332868E+00_JPRB, 0.320171E+00_JPRB &
+  &, 0.307686E+00_JPRB, 0.295439E+00_JPRB, 0.283459E+00_JPRB, 0.271715E+00_JPRB &
+  &, 0.260251E+00_JPRB, 0.249034E+00_JPRB, 0.238105E+00_JPRB &
+  &, 0.227466E+00_JPRB, 0.217097E+00_JPRB, 0.207038E+00_JPRB, 0.197241E+00_JPRB &
+  &, 0.187768E+00_JPRB, 0.178565E+00_JPRB, 0.169669E+00_JPRB &
+  &, 0.161068E+00_JPRB, 0.152774E+00_JPRB, 0.144772E+00_JPRB, 0.137043E+00_JPRB &
+  &, 0.129619E+00_JPRB, 0.122479E+00_JPRB, 0.115625E+00_JPRB &
+  &, 0.109060E+00_JPRB, 0.102783E+00_JPRB, 0.967370E-01_JPRB, 0.910033E-01_JPRB &
+  &, 0.854902E-01_JPRB, 0.802501E-01_JPRB, 0.752761E-01_JPRB &
+  &, 0.705279E-01_JPRB, 0.660256E-01_JPRB, 0.617244E-01_JPRB, 0.576754E-01_JPRB &
+  &, 0.538305E-01_JPRB, 0.502066E-01_JPRB, 0.467505E-01_JPRB &
+  &, 0.435120E-01_JPRB, 0.404708E-01_JPRB, 0.375676E-01_JPRB, 0.348511E-01_JPRB &
+  &, 0.323348E-01_JPRB, 0.299157E-01_JPRB, 0.276809E-01_JPRB &
+  &, 0.256024E-01_JPRB, 0.236501E-01_JPRB, 0.217911E-01_JPRB, 0.200745E-01_JPRB &
+  &, 0.185095E-01_JPRB, 0.170183E-01_JPRB, 0.156504E-01_JPRB &
+  &, 0.143685E-01_JPRB, 0.131782E-01_JPRB, 0.120389E-01_JPRB, 0.110483E-01_JPRB &
+  &, 0.100713E-01_JPRB, 0.920637E-02_JPRB, 0.841057E-02_JPRB &
+  &, 0.768787E-02_JPRB, 0.699175E-02_JPRB, 0.637548E-02_JPRB, 0.579116E-02_JPRB &
+  &, 0.524082E-02_JPRB, 0.472649E-02_JPRB, 0.430463E-02_JPRB &
+  &, 0.386940E-02_JPRB, 0.353246E-02_JPRB, 0.318497E-02_JPRB, 0.288428E-02_JPRB &
+  &, 0.257438E-02_JPRB, 0.231424E-02_JPRB, 0.210618E-02_JPRB &
+  &, 0.189183E-02_JPRB, 0.167115E-02_JPRB, 0.150639E-02_JPRB, 0.133680E-02_JPRB &
+  &, 0.122635E-02_JPRB, 0.104779E-02_JPRB, 0.929956E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART71',1,ZHOOK_HANDLE)
+END SUBROUTINE PART71
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART72
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART72',0,ZHOOK_HANDLE)
+
+XCW( 498, :) = (/ &
+  &  0.996044E+00_JPRB, 0.994016E+00_JPRB, 0.991573E+00_JPRB, 0.988720E+00_JPRB &
+  &, 0.985454E+00_JPRB, 0.981780E+00_JPRB, 0.977697E+00_JPRB &
+  &, 0.973209E+00_JPRB, 0.968317E+00_JPRB, 0.963025E+00_JPRB, 0.957335E+00_JPRB &
+  &, 0.951250E+00_JPRB, 0.944773E+00_JPRB, 0.937909E+00_JPRB &
+  &, 0.930661E+00_JPRB, 0.923035E+00_JPRB, 0.915035E+00_JPRB, 0.906666E+00_JPRB &
+  &, 0.897936E+00_JPRB, 0.888846E+00_JPRB, 0.879408E+00_JPRB &
+  &, 0.869627E+00_JPRB, 0.859508E+00_JPRB, 0.849065E+00_JPRB, 0.838302E+00_JPRB &
+  &, 0.827228E+00_JPRB, 0.815855E+00_JPRB, 0.804194E+00_JPRB &
+  &, 0.792255E+00_JPRB, 0.780045E+00_JPRB, 0.767583E+00_JPRB, 0.754875E+00_JPRB &
+  &, 0.741935E+00_JPRB, 0.728783E+00_JPRB, 0.715423E+00_JPRB &
+  &, 0.701876E+00_JPRB, 0.688152E+00_JPRB, 0.674271E+00_JPRB, 0.660239E+00_JPRB &
+  &, 0.646085E+00_JPRB, 0.631811E+00_JPRB, 0.617453E+00_JPRB &
+  &, 0.603007E+00_JPRB, 0.588493E+00_JPRB, 0.573932E+00_JPRB, 0.559348E+00_JPRB &
+  &, 0.544743E+00_JPRB, 0.530142E+00_JPRB, 0.515562E+00_JPRB &
+  &, 0.501019E+00_JPRB, 0.486529E+00_JPRB, 0.472097E+00_JPRB, 0.457753E+00_JPRB &
+  &, 0.443501E+00_JPRB, 0.429372E+00_JPRB, 0.415370E+00_JPRB &
+  &, 0.401511E+00_JPRB, 0.387813E+00_JPRB, 0.374274E+00_JPRB, 0.360926E+00_JPRB &
+  &, 0.347768E+00_JPRB, 0.334812E+00_JPRB, 0.322088E+00_JPRB &
+  &, 0.309573E+00_JPRB, 0.297313E+00_JPRB, 0.285279E+00_JPRB, 0.273516E+00_JPRB &
+  &, 0.262013E+00_JPRB, 0.250772E+00_JPRB, 0.239798E+00_JPRB &
+  &, 0.229132E+00_JPRB, 0.218712E+00_JPRB, 0.208577E+00_JPRB, 0.198790E+00_JPRB &
+  &, 0.189256E+00_JPRB, 0.180037E+00_JPRB, 0.171099E+00_JPRB &
+  &, 0.162454E+00_JPRB, 0.154114E+00_JPRB, 0.146062E+00_JPRB, 0.138307E+00_JPRB &
+  &, 0.130829E+00_JPRB, 0.123658E+00_JPRB, 0.116773E+00_JPRB &
+  &, 0.110146E+00_JPRB, 0.103833E+00_JPRB, 0.977488E-01_JPRB, 0.919751E-01_JPRB &
+  &, 0.864200E-01_JPRB, 0.811664E-01_JPRB, 0.761158E-01_JPRB &
+  &, 0.713512E-01_JPRB, 0.667992E-01_JPRB, 0.624790E-01_JPRB, 0.583766E-01_JPRB &
+  &, 0.545101E-01_JPRB, 0.508289E-01_JPRB, 0.473836E-01_JPRB &
+  &, 0.440844E-01_JPRB, 0.410166E-01_JPRB, 0.380856E-01_JPRB, 0.353403E-01_JPRB &
+  &, 0.327939E-01_JPRB, 0.303823E-01_JPRB, 0.281157E-01_JPRB &
+  &, 0.260042E-01_JPRB, 0.240176E-01_JPRB, 0.221645E-01_JPRB, 0.204118E-01_JPRB &
+  &, 0.188093E-01_JPRB, 0.172793E-01_JPRB, 0.159155E-01_JPRB &
+  &, 0.145929E-01_JPRB, 0.134060E-01_JPRB, 0.122703E-01_JPRB, 0.112362E-01_JPRB &
+  &, 0.102620E-01_JPRB, 0.939998E-02_JPRB, 0.855795E-02_JPRB &
+  &, 0.783744E-02_JPRB, 0.709294E-02_JPRB, 0.647815E-02_JPRB, 0.589533E-02_JPRB &
+  &, 0.534649E-02_JPRB, 0.483368E-02_JPRB, 0.441336E-02_JPRB &
+  &, 0.397967E-02_JPRB, 0.358838E-02_JPRB, 0.324167E-02_JPRB, 0.294177E-02_JPRB &
+  &, 0.263266E-02_JPRB, 0.237332E-02_JPRB, 0.216607E-02_JPRB &
+  &, 0.195254E-02_JPRB, 0.173267E-02_JPRB, 0.156874E-02_JPRB, 0.139998E-02_JPRB &
+  &, 0.122635E-02_JPRB, 0.111265E-02_JPRB, 0.995667E-03_JPRB/)
+XCW( 499, :) = (/ &
+  &  0.996294E+00_JPRB, 0.994328E+00_JPRB, 0.991947E+00_JPRB, 0.989156E+00_JPRB &
+  &, 0.985952E+00_JPRB, 0.982338E+00_JPRB, 0.978316E+00_JPRB &
+  &, 0.973888E+00_JPRB, 0.969056E+00_JPRB, 0.963823E+00_JPRB, 0.958191E+00_JPRB &
+  &, 0.952164E+00_JPRB, 0.945744E+00_JPRB, 0.938936E+00_JPRB &
+  &, 0.931745E+00_JPRB, 0.924173E+00_JPRB, 0.916226E+00_JPRB, 0.907910E+00_JPRB &
+  &, 0.899231E+00_JPRB, 0.890191E+00_JPRB, 0.880803E+00_JPRB &
+  &, 0.871069E+00_JPRB, 0.861000E+00_JPRB, 0.850599E+00_JPRB, 0.839883E+00_JPRB &
+  &, 0.828854E+00_JPRB, 0.817524E+00_JPRB, 0.805900E+00_JPRB &
+  &, 0.793998E+00_JPRB, 0.781828E+00_JPRB, 0.769398E+00_JPRB, 0.756727E+00_JPRB &
+  &, 0.743820E+00_JPRB, 0.730694E+00_JPRB, 0.717364E+00_JPRB &
+  &, 0.703839E+00_JPRB, 0.690145E+00_JPRB, 0.676285E+00_JPRB, 0.662274E+00_JPRB &
+  &, 0.648140E+00_JPRB, 0.633887E+00_JPRB, 0.619538E+00_JPRB &
+  &, 0.605111E+00_JPRB, 0.590605E+00_JPRB, 0.576061E+00_JPRB, 0.561471E+00_JPRB &
+  &, 0.546881E+00_JPRB, 0.532283E+00_JPRB, 0.517704E+00_JPRB &
+  &, 0.503147E+00_JPRB, 0.488656E+00_JPRB, 0.474220E+00_JPRB, 0.459870E+00_JPRB &
+  &, 0.445611E+00_JPRB, 0.431473E+00_JPRB, 0.417460E+00_JPRB &
+  &, 0.403573E+00_JPRB, 0.389858E+00_JPRB, 0.376302E+00_JPRB, 0.362935E+00_JPRB &
+  &, 0.349754E+00_JPRB, 0.336774E+00_JPRB, 0.324005E+00_JPRB &
+  &, 0.311479E+00_JPRB, 0.299186E+00_JPRB, 0.287118E+00_JPRB, 0.275318E+00_JPRB &
+  &, 0.263794E+00_JPRB, 0.252511E+00_JPRB, 0.241512E+00_JPRB &
+  &, 0.230798E+00_JPRB, 0.220349E+00_JPRB, 0.210204E+00_JPRB, 0.200338E+00_JPRB &
+  &, 0.190768E+00_JPRB, 0.181509E+00_JPRB, 0.172530E+00_JPRB &
+  &, 0.163841E+00_JPRB, 0.155453E+00_JPRB, 0.147352E+00_JPRB, 0.139571E+00_JPRB &
+  &, 0.132065E+00_JPRB, 0.124838E+00_JPRB, 0.117893E+00_JPRB &
+  &, 0.111260E+00_JPRB, 0.104883E+00_JPRB, 0.987895E-01_JPRB, 0.929468E-01_JPRB &
+  &, 0.873798E-01_JPRB, 0.820522E-01_JPRB, 0.769867E-01_JPRB &
+  &, 0.721744E-01_JPRB, 0.675728E-01_JPRB, 0.632337E-01_JPRB, 0.591112E-01_JPRB &
+  &, 0.551897E-01_JPRB, 0.514857E-01_JPRB, 0.479815E-01_JPRB &
+  &, 0.446926E-01_JPRB, 0.415624E-01_JPRB, 0.386037E-01_JPRB, 0.358670E-01_JPRB &
+  &, 0.332529E-01_JPRB, 0.308101E-01_JPRB, 0.285110E-01_JPRB &
+  &, 0.263658E-01_JPRB, 0.243850E-01_JPRB, 0.224964E-01_JPRB, 0.207490E-01_JPRB &
+  &, 0.191090E-01_JPRB, 0.175838E-01_JPRB, 0.161806E-01_JPRB &
+  &, 0.148621E-01_JPRB, 0.136339E-01_JPRB, 0.125016E-01_JPRB, 0.114241E-01_JPRB &
+  &, 0.104527E-01_JPRB, 0.954518E-02_JPRB, 0.875445E-02_JPRB &
+  &, 0.798701E-02_JPRB, 0.724472E-02_JPRB, 0.658082E-02_JPRB, 0.599949E-02_JPRB &
+  &, 0.545216E-02_JPRB, 0.494088E-02_JPRB, 0.446772E-02_JPRB &
+  &, 0.408994E-02_JPRB, 0.370020E-02_JPRB, 0.329836E-02_JPRB, 0.299926E-02_JPRB &
+  &, 0.269095E-02_JPRB, 0.243241E-02_JPRB, 0.216607E-02_JPRB &
+  &, 0.195254E-02_JPRB, 0.179419E-02_JPRB, 0.156874E-02_JPRB, 0.139998E-02_JPRB &
+  &, 0.129037E-02_JPRB, 0.111265E-02_JPRB, 0.995667E-03_JPRB/)
+XCW( 500, :) = (/ &
+  &  0.996546E+00_JPRB, 0.994643E+00_JPRB, 0.992322E+00_JPRB, 0.989592E+00_JPRB &
+  &, 0.986450E+00_JPRB, 0.982897E+00_JPRB, 0.978935E+00_JPRB &
+  &, 0.974568E+00_JPRB, 0.969795E+00_JPRB, 0.964579E+00_JPRB, 0.959048E+00_JPRB &
+  &, 0.953078E+00_JPRB, 0.946716E+00_JPRB, 0.939964E+00_JPRB &
+  &, 0.932827E+00_JPRB, 0.925312E+00_JPRB, 0.917418E+00_JPRB, 0.909155E+00_JPRB &
+  &, 0.900527E+00_JPRB, 0.891539E+00_JPRB, 0.882200E+00_JPRB &
+  &, 0.872515E+00_JPRB, 0.862492E+00_JPRB, 0.852140E+00_JPRB, 0.841464E+00_JPRB &
+  &, 0.830479E+00_JPRB, 0.819189E+00_JPRB, 0.807610E+00_JPRB &
+  &, 0.795746E+00_JPRB, 0.783611E+00_JPRB, 0.771217E+00_JPRB, 0.758579E+00_JPRB &
+  &, 0.745706E+00_JPRB, 0.732614E+00_JPRB, 0.719310E+00_JPRB &
+  &, 0.705811E+00_JPRB, 0.692138E+00_JPRB, 0.678309E+00_JPRB, 0.664319E+00_JPRB &
+  &, 0.650207E+00_JPRB, 0.635973E+00_JPRB, 0.621634E+00_JPRB &
+  &, 0.607216E+00_JPRB, 0.592727E+00_JPRB, 0.578191E+00_JPRB, 0.563605E+00_JPRB &
+  &, 0.549019E+00_JPRB, 0.534424E+00_JPRB, 0.519846E+00_JPRB &
+  &, 0.505289E+00_JPRB, 0.490796E+00_JPRB, 0.476356E+00_JPRB, 0.461987E+00_JPRB &
+  &, 0.447721E+00_JPRB, 0.433574E+00_JPRB, 0.419534E+00_JPRB &
+  &, 0.405649E+00_JPRB, 0.391904E+00_JPRB, 0.378330E+00_JPRB, 0.364943E+00_JPRB &
+  &, 0.351740E+00_JPRB, 0.338735E+00_JPRB, 0.325958E+00_JPRB &
+  &, 0.313384E+00_JPRB, 0.301060E+00_JPRB, 0.288975E+00_JPRB, 0.277139E+00_JPRB &
+  &, 0.265575E+00_JPRB, 0.254250E+00_JPRB, 0.243226E+00_JPRB &
+  &, 0.232464E+00_JPRB, 0.221985E+00_JPRB, 0.211808E+00_JPRB, 0.201909E+00_JPRB &
+  &, 0.192302E+00_JPRB, 0.182981E+00_JPRB, 0.173960E+00_JPRB &
+  &, 0.165227E+00_JPRB, 0.156818E+00_JPRB, 0.148668E+00_JPRB, 0.140835E+00_JPRB &
+  &, 0.133275E+00_JPRB, 0.126018E+00_JPRB, 0.119041E+00_JPRB &
+  &, 0.112346E+00_JPRB, 0.105933E+00_JPRB, 0.998013E-01_JPRB, 0.939186E-01_JPRB &
+  &, 0.883095E-01_JPRB, 0.829686E-01_JPRB, 0.778575E-01_JPRB &
+  &, 0.729977E-01_JPRB, 0.683787E-01_JPRB, 0.639883E-01_JPRB, 0.598124E-01_JPRB &
+  &, 0.558692E-01_JPRB, 0.521426E-01_JPRB, 0.486145E-01_JPRB &
+  &, 0.452650E-01_JPRB, 0.421082E-01_JPRB, 0.391587E-01_JPRB, 0.363562E-01_JPRB &
+  &, 0.337120E-01_JPRB, 0.312768E-01_JPRB, 0.289458E-01_JPRB &
+  &, 0.267675E-01_JPRB, 0.247525E-01_JPRB, 0.228283E-01_JPRB, 0.210862E-01_JPRB &
+  &, 0.194088E-01_JPRB, 0.178883E-01_JPRB, 0.164457E-01_JPRB &
+  &, 0.150864E-01_JPRB, 0.138617E-01_JPRB, 0.127329E-01_JPRB, 0.116589E-01_JPRB &
+  &, 0.106435E-01_JPRB, 0.973879E-02_JPRB, 0.890183E-02_JPRB &
+  &, 0.813658E-02_JPRB, 0.739649E-02_JPRB, 0.673482E-02_JPRB, 0.610366E-02_JPRB &
+  &, 0.555784E-02_JPRB, 0.504807E-02_JPRB, 0.457644E-02_JPRB &
+  &, 0.414507E-02_JPRB, 0.375611E-02_JPRB, 0.341176E-02_JPRB, 0.305674E-02_JPRB &
+  &, 0.274923E-02_JPRB, 0.249149E-02_JPRB, 0.222596E-02_JPRB &
+  &, 0.201324E-02_JPRB, 0.179419E-02_JPRB, 0.163109E-02_JPRB, 0.146316E-02_JPRB &
+  &, 0.129037E-02_JPRB, 0.117751E-02_JPRB, 0.106138E-02_JPRB/)
+XCW( 501, :) = (/ &
+  &  0.996795E+00_JPRB, 0.994954E+00_JPRB, 0.992697E+00_JPRB, 0.990029E+00_JPRB &
+  &, 0.986948E+00_JPRB, 0.983456E+00_JPRB, 0.979555E+00_JPRB &
+  &, 0.975247E+00_JPRB, 0.970535E+00_JPRB, 0.965420E+00_JPRB, 0.959905E+00_JPRB &
+  &, 0.953993E+00_JPRB, 0.947688E+00_JPRB, 0.940993E+00_JPRB &
+  &, 0.933912E+00_JPRB, 0.926450E+00_JPRB, 0.918611E+00_JPRB, 0.910401E+00_JPRB &
+  &, 0.901824E+00_JPRB, 0.892887E+00_JPRB, 0.883598E+00_JPRB &
+  &, 0.873960E+00_JPRB, 0.863984E+00_JPRB, 0.853678E+00_JPRB, 0.843048E+00_JPRB &
+  &, 0.832094E+00_JPRB, 0.820862E+00_JPRB, 0.809319E+00_JPRB &
+  &, 0.797494E+00_JPRB, 0.785398E+00_JPRB, 0.773041E+00_JPRB, 0.760436E+00_JPRB &
+  &, 0.747596E+00_JPRB, 0.734534E+00_JPRB, 0.721260E+00_JPRB &
+  &, 0.707792E+00_JPRB, 0.694141E+00_JPRB, 0.680333E+00_JPRB, 0.666364E+00_JPRB &
+  &, 0.652273E+00_JPRB, 0.638049E+00_JPRB, 0.623730E+00_JPRB &
+  &, 0.609331E+00_JPRB, 0.594850E+00_JPRB, 0.580320E+00_JPRB, 0.565751E+00_JPRB &
+  &, 0.551158E+00_JPRB, 0.536565E+00_JPRB, 0.521988E+00_JPRB &
+  &, 0.507444E+00_JPRB, 0.492936E+00_JPRB, 0.478493E+00_JPRB, 0.464119E+00_JPRB &
+  &, 0.449845E+00_JPRB, 0.435674E+00_JPRB, 0.421639E+00_JPRB &
+  &, 0.407726E+00_JPRB, 0.393966E+00_JPRB, 0.380374E+00_JPRB, 0.366968E+00_JPRB &
+  &, 0.353743E+00_JPRB, 0.340714E+00_JPRB, 0.327893E+00_JPRB &
+  &, 0.315308E+00_JPRB, 0.302952E+00_JPRB, 0.290833E+00_JPRB, 0.278960E+00_JPRB &
+  &, 0.267356E+00_JPRB, 0.256009E+00_JPRB, 0.244940E+00_JPRB &
+  &, 0.234151E+00_JPRB, 0.223643E+00_JPRB, 0.213413E+00_JPRB, 0.203479E+00_JPRB &
+  &, 0.193814E+00_JPRB, 0.184477E+00_JPRB, 0.175414E+00_JPRB &
+  &, 0.166638E+00_JPRB, 0.158182E+00_JPRB, 0.150009E+00_JPRB, 0.142125E+00_JPRB &
+  &, 0.134537E+00_JPRB, 0.127224E+00_JPRB, 0.120216E+00_JPRB &
+  &, 0.113488E+00_JPRB, 0.107011E+00_JPRB, 0.100842E+00_JPRB, 0.949198E-01_JPRB &
+  &, 0.892693E-01_JPRB, 0.838849E-01_JPRB, 0.787284E-01_JPRB &
+  &, 0.738210E-01_JPRB, 0.691846E-01_JPRB, 0.647429E-01_JPRB, 0.605470E-01_JPRB &
+  &, 0.565827E-01_JPRB, 0.527994E-01_JPRB, 0.492476E-01_JPRB &
+  &, 0.458732E-01_JPRB, 0.426904E-01_JPRB, 0.396767E-01_JPRB, 0.368453E-01_JPRB &
+  &, 0.342093E-01_JPRB, 0.317046E-01_JPRB, 0.293806E-01_JPRB &
+  &, 0.271693E-01_JPRB, 0.251199E-01_JPRB, 0.232017E-01_JPRB, 0.214234E-01_JPRB &
+  &, 0.197514E-01_JPRB, 0.181493E-01_JPRB, 0.167108E-01_JPRB &
+  &, 0.153557E-01_JPRB, 0.140895E-01_JPRB, 0.129180E-01_JPRB, 0.118468E-01_JPRB &
+  &, 0.108342E-01_JPRB, 0.993240E-02_JPRB, 0.904921E-02_JPRB &
+  &, 0.828614E-02_JPRB, 0.754827E-02_JPRB, 0.688882E-02_JPRB, 0.625990E-02_JPRB &
+  &, 0.566351E-02_JPRB, 0.515526E-02_JPRB, 0.468517E-02_JPRB &
+  &, 0.425534E-02_JPRB, 0.386794E-02_JPRB, 0.346845E-02_JPRB, 0.311423E-02_JPRB &
+  &, 0.280751E-02_JPRB, 0.255057E-02_JPRB, 0.228585E-02_JPRB &
+  &, 0.207395E-02_JPRB, 0.185572E-02_JPRB, 0.169343E-02_JPRB, 0.146316E-02_JPRB &
+  &, 0.135439E-02_JPRB, 0.117751E-02_JPRB, 0.106138E-02_JPRB/)
+XCW( 502, :) = (/ &
+  &  0.997046E+00_JPRB, 0.995266E+00_JPRB, 0.993072E+00_JPRB, 0.990466E+00_JPRB &
+  &, 0.987446E+00_JPRB, 0.984015E+00_JPRB, 0.980176E+00_JPRB &
+  &, 0.975927E+00_JPRB, 0.971274E+00_JPRB, 0.966219E+00_JPRB, 0.960762E+00_JPRB &
+  &, 0.954908E+00_JPRB, 0.948660E+00_JPRB, 0.942022E+00_JPRB &
+  &, 0.934998E+00_JPRB, 0.927589E+00_JPRB, 0.919805E+00_JPRB, 0.911648E+00_JPRB &
+  &, 0.903123E+00_JPRB, 0.894236E+00_JPRB, 0.884995E+00_JPRB &
+  &, 0.875409E+00_JPRB, 0.865480E+00_JPRB, 0.855222E+00_JPRB, 0.844636E+00_JPRB &
+  &, 0.833739E+00_JPRB, 0.822534E+00_JPRB, 0.811033E+00_JPRB &
+  &, 0.799250E+00_JPRB, 0.787189E+00_JPRB, 0.774868E+00_JPRB, 0.762296E+00_JPRB &
+  &, 0.749491E+00_JPRB, 0.736458E+00_JPRB, 0.723215E+00_JPRB &
+  &, 0.709773E+00_JPRB, 0.696153E+00_JPRB, 0.682357E+00_JPRB, 0.668419E+00_JPRB &
+  &, 0.654339E+00_JPRB, 0.640136E+00_JPRB, 0.625836E+00_JPRB &
+  &, 0.611446E+00_JPRB, 0.596973E+00_JPRB, 0.582461E+00_JPRB, 0.567898E+00_JPRB &
+  &, 0.553308E+00_JPRB, 0.538718E+00_JPRB, 0.524143E+00_JPRB &
+  &, 0.509586E+00_JPRB, 0.495089E+00_JPRB, 0.480629E+00_JPRB, 0.466264E+00_JPRB &
+  &, 0.451969E+00_JPRB, 0.437790E+00_JPRB, 0.423744E+00_JPRB &
+  &, 0.409818E+00_JPRB, 0.396043E+00_JPRB, 0.382435E+00_JPRB, 0.368992E+00_JPRB &
+  &, 0.355746E+00_JPRB, 0.342693E+00_JPRB, 0.329845E+00_JPRB &
+  &, 0.317231E+00_JPRB, 0.304844E+00_JPRB, 0.292710E+00_JPRB, 0.280800E+00_JPRB &
+  &, 0.269157E+00_JPRB, 0.257788E+00_JPRB, 0.246675E+00_JPRB &
+  &, 0.235838E+00_JPRB, 0.225301E+00_JPRB, 0.215018E+00_JPRB, 0.205050E+00_JPRB &
+  &, 0.195371E+00_JPRB, 0.185972E+00_JPRB, 0.176869E+00_JPRB &
+  &, 0.168073E+00_JPRB, 0.159547E+00_JPRB, 0.151324E+00_JPRB, 0.143415E+00_JPRB &
+  &, 0.135773E+00_JPRB, 0.128431E+00_JPRB, 0.121364E+00_JPRB &
+  &, 0.114602E+00_JPRB, 0.108090E+00_JPRB, 0.101883E+00_JPRB, 0.959211E-01_JPRB &
+  &, 0.902291E-01_JPRB, 0.848012E-01_JPRB, 0.796303E-01_JPRB &
+  &, 0.746760E-01_JPRB, 0.699904E-01_JPRB, 0.655303E-01_JPRB, 0.612816E-01_JPRB &
+  &, 0.572623E-01_JPRB, 0.534563E-01_JPRB, 0.498806E-01_JPRB &
+  &, 0.464813E-01_JPRB, 0.432725E-01_JPRB, 0.402318E-01_JPRB, 0.373720E-01_JPRB &
+  &, 0.347066E-01_JPRB, 0.321712E-01_JPRB, 0.298155E-01_JPRB &
+  &, 0.275711E-01_JPRB, 0.255282E-01_JPRB, 0.235751E-01_JPRB, 0.217606E-01_JPRB &
+  &, 0.200511E-01_JPRB, 0.184538E-01_JPRB, 0.169759E-01_JPRB &
+  &, 0.156249E-01_JPRB, 0.143629E-01_JPRB, 0.131493E-01_JPRB, 0.120817E-01_JPRB &
+  &, 0.110249E-01_JPRB, 0.101260E-01_JPRB, 0.924571E-02_JPRB &
+  &, 0.843571E-02_JPRB, 0.770005E-02_JPRB, 0.699149E-02_JPRB, 0.636407E-02_JPRB &
+  &, 0.582202E-02_JPRB, 0.526246E-02_JPRB, 0.479389E-02_JPRB &
+  &, 0.431047E-02_JPRB, 0.392385E-02_JPRB, 0.352515E-02_JPRB, 0.322920E-02_JPRB &
+  &, 0.292407E-02_JPRB, 0.260966E-02_JPRB, 0.234574E-02_JPRB &
+  &, 0.213465E-02_JPRB, 0.191724E-02_JPRB, 0.169343E-02_JPRB, 0.152634E-02_JPRB &
+  &, 0.135439E-02_JPRB, 0.124237E-02_JPRB, 0.112709E-02_JPRB/)
+XCW( 503, :) = (/ &
+  &  0.997295E+00_JPRB, 0.995580E+00_JPRB, 0.993447E+00_JPRB, 0.990903E+00_JPRB &
+  &, 0.987944E+00_JPRB, 0.984575E+00_JPRB, 0.980795E+00_JPRB &
+  &, 0.976608E+00_JPRB, 0.972015E+00_JPRB, 0.967019E+00_JPRB, 0.961621E+00_JPRB &
+  &, 0.955824E+00_JPRB, 0.949633E+00_JPRB, 0.943052E+00_JPRB &
+  &, 0.936083E+00_JPRB, 0.928731E+00_JPRB, 0.921000E+00_JPRB, 0.912895E+00_JPRB &
+  &, 0.904423E+00_JPRB, 0.895587E+00_JPRB, 0.886399E+00_JPRB &
+  &, 0.876858E+00_JPRB, 0.866979E+00_JPRB, 0.856766E+00_JPRB, 0.846224E+00_JPRB &
+  &, 0.835372E+00_JPRB, 0.824207E+00_JPRB, 0.812750E+00_JPRB &
+  &, 0.801005E+00_JPRB, 0.788984E+00_JPRB, 0.776700E+00_JPRB, 0.764161E+00_JPRB &
+  &, 0.751385E+00_JPRB, 0.738383E+00_JPRB, 0.725170E+00_JPRB &
+  &, 0.711754E+00_JPRB, 0.698156E+00_JPRB, 0.684391E+00_JPRB, 0.670475E+00_JPRB &
+  &, 0.656415E+00_JPRB, 0.642233E+00_JPRB, 0.627943E+00_JPRB &
+  &, 0.613561E+00_JPRB, 0.599107E+00_JPRB, 0.584601E+00_JPRB, 0.570044E+00_JPRB &
+  &, 0.555471E+00_JPRB, 0.540884E+00_JPRB, 0.526298E+00_JPRB &
+  &, 0.511754E+00_JPRB, 0.497242E+00_JPRB, 0.482779E+00_JPRB, 0.468395E+00_JPRB &
+  &, 0.454108E+00_JPRB, 0.439920E+00_JPRB, 0.425849E+00_JPRB &
+  &, 0.411910E+00_JPRB, 0.398120E+00_JPRB, 0.384479E+00_JPRB, 0.371034E+00_JPRB &
+  &, 0.357749E+00_JPRB, 0.344690E+00_JPRB, 0.331815E+00_JPRB &
+  &, 0.319173E+00_JPRB, 0.306754E+00_JPRB, 0.294587E+00_JPRB, 0.282640E+00_JPRB &
+  &, 0.270978E+00_JPRB, 0.259567E+00_JPRB, 0.248409E+00_JPRB &
+  &, 0.237547E+00_JPRB, 0.226959E+00_JPRB, 0.216666E+00_JPRB, 0.206643E+00_JPRB &
+  &, 0.196905E+00_JPRB, 0.187468E+00_JPRB, 0.178347E+00_JPRB &
+  &, 0.169483E+00_JPRB, 0.160936E+00_JPRB, 0.152665E+00_JPRB, 0.144705E+00_JPRB &
+  &, 0.137036E+00_JPRB, 0.129664E+00_JPRB, 0.122539E+00_JPRB &
+  &, 0.115743E+00_JPRB, 0.109196E+00_JPRB, 0.102923E+00_JPRB, 0.969223E-01_JPRB &
+  &, 0.911889E-01_JPRB, 0.857176E-01_JPRB, 0.805012E-01_JPRB &
+  &, 0.755309E-01_JPRB, 0.707963E-01_JPRB, 0.663177E-01_JPRB, 0.620162E-01_JPRB &
+  &, 0.579758E-01_JPRB, 0.541477E-01_JPRB, 0.505137E-01_JPRB &
+  &, 0.470895E-01_JPRB, 0.438183E-01_JPRB, 0.407868E-01_JPRB, 0.378988E-01_JPRB &
+  &, 0.352039E-01_JPRB, 0.326379E-01_JPRB, 0.302503E-01_JPRB &
+  &, 0.280130E-01_JPRB, 0.258957E-01_JPRB, 0.239485E-01_JPRB, 0.220979E-01_JPRB &
+  &, 0.203509E-01_JPRB, 0.187583E-01_JPRB, 0.172851E-01_JPRB &
+  &, 0.158941E-01_JPRB, 0.145907E-01_JPRB, 0.133806E-01_JPRB, 0.122695E-01_JPRB &
+  &, 0.112634E-01_JPRB, 0.102712E-01_JPRB, 0.939309E-02_JPRB &
+  &, 0.858528E-02_JPRB, 0.785183E-02_JPRB, 0.714549E-02_JPRB, 0.652032E-02_JPRB &
+  &, 0.592769E-02_JPRB, 0.536965E-02_JPRB, 0.490262E-02_JPRB &
+  &, 0.442074E-02_JPRB, 0.403567E-02_JPRB, 0.363854E-02_JPRB, 0.328668E-02_JPRB &
+  &, 0.298235E-02_JPRB, 0.266874E-02_JPRB, 0.240563E-02_JPRB &
+  &, 0.219536E-02_JPRB, 0.197877E-02_JPRB, 0.175578E-02_JPRB, 0.158952E-02_JPRB &
+  &, 0.141840E-02_JPRB, 0.124237E-02_JPRB, 0.112709E-02_JPRB/)
+XCW( 504, :) = (/ &
+  &  0.997548E+00_JPRB, 0.995893E+00_JPRB, 0.993822E+00_JPRB, 0.991339E+00_JPRB &
+  &, 0.988442E+00_JPRB, 0.985134E+00_JPRB, 0.981416E+00_JPRB &
+  &, 0.977289E+00_JPRB, 0.972755E+00_JPRB, 0.967819E+00_JPRB, 0.962480E+00_JPRB &
+  &, 0.956741E+00_JPRB, 0.950608E+00_JPRB, 0.944082E+00_JPRB &
+  &, 0.937169E+00_JPRB, 0.929872E+00_JPRB, 0.922195E+00_JPRB, 0.914145E+00_JPRB &
+  &, 0.905724E+00_JPRB, 0.896942E+00_JPRB, 0.887800E+00_JPRB &
+  &, 0.878310E+00_JPRB, 0.868478E+00_JPRB, 0.858311E+00_JPRB, 0.847816E+00_JPRB &
+  &, 0.837005E+00_JPRB, 0.825887E+00_JPRB, 0.814467E+00_JPRB &
+  &, 0.802761E+00_JPRB, 0.790779E+00_JPRB, 0.778532E+00_JPRB, 0.766030E+00_JPRB &
+  &, 0.753288E+00_JPRB, 0.740316E+00_JPRB, 0.727062E+00_JPRB &
+  &, 0.713745E+00_JPRB, 0.700178E+00_JPRB, 0.686435E+00_JPRB, 0.672530E+00_JPRB &
+  &, 0.658491E+00_JPRB, 0.644330E+00_JPRB, 0.630060E+00_JPRB &
+  &, 0.615688E+00_JPRB, 0.601252E+00_JPRB, 0.586754E+00_JPRB, 0.572202E+00_JPRB &
+  &, 0.557634E+00_JPRB, 0.543050E+00_JPRB, 0.528466E+00_JPRB &
+  &, 0.513922E+00_JPRB, 0.499382E+00_JPRB, 0.484943E+00_JPRB, 0.470555E+00_JPRB &
+  &, 0.456247E+00_JPRB, 0.442051E+00_JPRB, 0.427969E+00_JPRB &
+  &, 0.414018E+00_JPRB, 0.400198E+00_JPRB, 0.386556E+00_JPRB, 0.373075E+00_JPRB &
+  &, 0.359787E+00_JPRB, 0.346686E+00_JPRB, 0.333786E+00_JPRB &
+  &, 0.321115E+00_JPRB, 0.308665E+00_JPRB, 0.296463E+00_JPRB, 0.284500E+00_JPRB &
+  &, 0.272799E+00_JPRB, 0.261346E+00_JPRB, 0.250164E+00_JPRB &
+  &, 0.239255E+00_JPRB, 0.228639E+00_JPRB, 0.218293E+00_JPRB, 0.208236E+00_JPRB &
+  &, 0.198462E+00_JPRB, 0.188987E+00_JPRB, 0.179801E+00_JPRB &
+  &, 0.170918E+00_JPRB, 0.162325E+00_JPRB, 0.154031E+00_JPRB, 0.146020E+00_JPRB &
+  &, 0.138298E+00_JPRB, 0.130870E+00_JPRB, 0.123741E+00_JPRB &
+  &, 0.116885E+00_JPRB, 0.110303E+00_JPRB, 0.103993E+00_JPRB, 0.979529E-01_JPRB &
+  &, 0.921786E-01_JPRB, 0.866644E-01_JPRB, 0.814031E-01_JPRB &
+  &, 0.763859E-01_JPRB, 0.716344E-01_JPRB, 0.671052E-01_JPRB, 0.627842E-01_JPRB &
+  &, 0.586893E-01_JPRB, 0.548391E-01_JPRB, 0.511468E-01_JPRB &
+  &, 0.476977E-01_JPRB, 0.444369E-01_JPRB, 0.413419E-01_JPRB, 0.384256E-01_JPRB &
+  &, 0.357012E-01_JPRB, 0.331046E-01_JPRB, 0.306851E-01_JPRB &
+  &, 0.284148E-01_JPRB, 0.263040E-01_JPRB, 0.242804E-01_JPRB, 0.224351E-01_JPRB &
+  &, 0.206935E-01_JPRB, 0.190628E-01_JPRB, 0.175502E-01_JPRB &
+  &, 0.161633E-01_JPRB, 0.148641E-01_JPRB, 0.136119E-01_JPRB, 0.125044E-01_JPRB &
+  &, 0.114541E-01_JPRB, 0.104648E-01_JPRB, 0.958960E-02_JPRB &
+  &, 0.873485E-02_JPRB, 0.800360E-02_JPRB, 0.729950E-02_JPRB, 0.662448E-02_JPRB &
+  &, 0.603336E-02_JPRB, 0.547684E-02_JPRB, 0.501134E-02_JPRB &
+  &, 0.453101E-02_JPRB, 0.409159E-02_JPRB, 0.369524E-02_JPRB, 0.334417E-02_JPRB &
+  &, 0.304063E-02_JPRB, 0.272782E-02_JPRB, 0.246552E-02_JPRB &
+  &, 0.219536E-02_JPRB, 0.197877E-02_JPRB, 0.181813E-02_JPRB, 0.158952E-02_JPRB &
+  &, 0.141840E-02_JPRB, 0.130724E-02_JPRB, 0.112709E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART72',1,ZHOOK_HANDLE)
+END SUBROUTINE PART72
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART73
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART73',0,ZHOOK_HANDLE)
+
+XCW( 505, :) = (/ &
+  &  0.997796E+00_JPRB, 0.996205E+00_JPRB, 0.994196E+00_JPRB, 0.991776E+00_JPRB &
+  &, 0.988941E+00_JPRB, 0.985694E+00_JPRB, 0.982037E+00_JPRB &
+  &, 0.977970E+00_JPRB, 0.973497E+00_JPRB, 0.968619E+00_JPRB, 0.963339E+00_JPRB &
+  &, 0.957659E+00_JPRB, 0.951583E+00_JPRB, 0.945114E+00_JPRB &
+  &, 0.938257E+00_JPRB, 0.931016E+00_JPRB, 0.923393E+00_JPRB, 0.915395E+00_JPRB &
+  &, 0.907027E+00_JPRB, 0.898293E+00_JPRB, 0.889204E+00_JPRB &
+  &, 0.879759E+00_JPRB, 0.869981E+00_JPRB, 0.859859E+00_JPRB, 0.849411E+00_JPRB &
+  &, 0.838642E+00_JPRB, 0.827564E+00_JPRB, 0.816189E+00_JPRB &
+  &, 0.804520E+00_JPRB, 0.792578E+00_JPRB, 0.780367E+00_JPRB, 0.767899E+00_JPRB &
+  &, 0.755191E+00_JPRB, 0.742250E+00_JPRB, 0.729098E+00_JPRB &
+  &, 0.715735E+00_JPRB, 0.702190E+00_JPRB, 0.688478E+00_JPRB, 0.674595E+00_JPRB &
+  &, 0.660578E+00_JPRB, 0.646438E+00_JPRB, 0.632178E+00_JPRB &
+  &, 0.617825E+00_JPRB, 0.603398E+00_JPRB, 0.588906E+00_JPRB, 0.574360E+00_JPRB &
+  &, 0.559796E+00_JPRB, 0.545216E+00_JPRB, 0.530646E+00_JPRB &
+  &, 0.516090E+00_JPRB, 0.501576E+00_JPRB, 0.487107E+00_JPRB, 0.472714E+00_JPRB &
+  &, 0.458400E+00_JPRB, 0.444181E+00_JPRB, 0.430089E+00_JPRB &
+  &, 0.416125E+00_JPRB, 0.402291E+00_JPRB, 0.388632E+00_JPRB, 0.375133E+00_JPRB &
+  &, 0.361807E+00_JPRB, 0.348682E+00_JPRB, 0.335774E+00_JPRB &
+  &, 0.323074E+00_JPRB, 0.310594E+00_JPRB, 0.298359E+00_JPRB, 0.286360E+00_JPRB &
+  &, 0.274620E+00_JPRB, 0.263146E+00_JPRB, 0.251940E+00_JPRB &
+  &, 0.240984E+00_JPRB, 0.230318E+00_JPRB, 0.219942E+00_JPRB, 0.209852E+00_JPRB &
+  &, 0.200042E+00_JPRB, 0.190529E+00_JPRB, 0.181303E+00_JPRB &
+  &, 0.172378E+00_JPRB, 0.163739E+00_JPRB, 0.155398E+00_JPRB, 0.147336E+00_JPRB &
+  &, 0.139587E+00_JPRB, 0.132104E+00_JPRB, 0.124916E+00_JPRB &
+  &, 0.118027E+00_JPRB, 0.111409E+00_JPRB, 0.105063E+00_JPRB, 0.989836E-01_JPRB &
+  &, 0.931684E-01_JPRB, 0.876113E-01_JPRB, 0.823051E-01_JPRB &
+  &, 0.772725E-01_JPRB, 0.724724E-01_JPRB, 0.678926E-01_JPRB, 0.635522E-01_JPRB &
+  &, 0.594369E-01_JPRB, 0.555305E-01_JPRB, 0.518150E-01_JPRB &
+  &, 0.483059E-01_JPRB, 0.450190E-01_JPRB, 0.418969E-01_JPRB, 0.389523E-01_JPRB &
+  &, 0.361985E-01_JPRB, 0.335712E-01_JPRB, 0.311199E-01_JPRB &
+  &, 0.288567E-01_JPRB, 0.266714E-01_JPRB, 0.246952E-01_JPRB, 0.227723E-01_JPRB &
+  &, 0.210361E-01_JPRB, 0.193673E-01_JPRB, 0.178595E-01_JPRB &
+  &, 0.164326E-01_JPRB, 0.150919E-01_JPRB, 0.138433E-01_JPRB, 0.127393E-01_JPRB &
+  &, 0.116448E-01_JPRB, 0.106584E-01_JPRB, 0.978610E-02_JPRB &
+  &, 0.893428E-02_JPRB, 0.815538E-02_JPRB, 0.745350E-02_JPRB, 0.678073E-02_JPRB &
+  &, 0.613904E-02_JPRB, 0.558404E-02_JPRB, 0.506570E-02_JPRB &
+  &, 0.464128E-02_JPRB, 0.420341E-02_JPRB, 0.380863E-02_JPRB, 0.345914E-02_JPRB &
+  &, 0.309892E-02_JPRB, 0.278691E-02_JPRB, 0.252541E-02_JPRB &
+  &, 0.225606E-02_JPRB, 0.204029E-02_JPRB, 0.181813E-02_JPRB, 0.165270E-02_JPRB &
+  &, 0.148242E-02_JPRB, 0.130724E-02_JPRB, 0.119280E-02_JPRB/)
+XCW( 506, :) = (/ &
+  &  0.998048E+00_JPRB, 0.996520E+00_JPRB, 0.994572E+00_JPRB, 0.992214E+00_JPRB &
+  &, 0.989440E+00_JPRB, 0.986254E+00_JPRB, 0.982657E+00_JPRB &
+  &, 0.978651E+00_JPRB, 0.974238E+00_JPRB, 0.969420E+00_JPRB, 0.964196E+00_JPRB &
+  &, 0.958576E+00_JPRB, 0.952558E+00_JPRB, 0.946147E+00_JPRB &
+  &, 0.939345E+00_JPRB, 0.932158E+00_JPRB, 0.924590E+00_JPRB, 0.916646E+00_JPRB &
+  &, 0.908331E+00_JPRB, 0.899651E+00_JPRB, 0.890611E+00_JPRB &
+  &, 0.881218E+00_JPRB, 0.871483E+00_JPRB, 0.861410E+00_JPRB, 0.851006E+00_JPRB &
+  &, 0.840282E+00_JPRB, 0.829247E+00_JPRB, 0.817913E+00_JPRB &
+  &, 0.806284E+00_JPRB, 0.794377E+00_JPRB, 0.782203E+00_JPRB, 0.769773E+00_JPRB &
+  &, 0.757094E+00_JPRB, 0.744187E+00_JPRB, 0.731062E+00_JPRB &
+  &, 0.717735E+00_JPRB, 0.704212E+00_JPRB, 0.690522E+00_JPRB, 0.676670E+00_JPRB &
+  &, 0.662664E+00_JPRB, 0.648545E+00_JPRB, 0.634306E+00_JPRB &
+  &, 0.619962E+00_JPRB, 0.605543E+00_JPRB, 0.591059E+00_JPRB, 0.576531E+00_JPRB &
+  &, 0.561971E+00_JPRB, 0.547395E+00_JPRB, 0.532827E+00_JPRB &
+  &, 0.518271E+00_JPRB, 0.503756E+00_JPRB, 0.489285E+00_JPRB, 0.474874E+00_JPRB &
+  &, 0.460553E+00_JPRB, 0.446341E+00_JPRB, 0.432224E+00_JPRB &
+  &, 0.418233E+00_JPRB, 0.404400E+00_JPRB, 0.390709E+00_JPRB, 0.377191E+00_JPRB &
+  &, 0.363844E+00_JPRB, 0.350714E+00_JPRB, 0.337762E+00_JPRB &
+  &, 0.325034E+00_JPRB, 0.312523E+00_JPRB, 0.300255E+00_JPRB, 0.288239E+00_JPRB &
+  &, 0.276461E+00_JPRB, 0.264945E+00_JPRB, 0.253696E+00_JPRB &
+  &, 0.242713E+00_JPRB, 0.232019E+00_JPRB, 0.221590E+00_JPRB, 0.211467E+00_JPRB &
+  &, 0.201622E+00_JPRB, 0.192072E+00_JPRB, 0.182805E+00_JPRB &
+  &, 0.173837E+00_JPRB, 0.165153E+00_JPRB, 0.156764E+00_JPRB, 0.148677E+00_JPRB &
+  &, 0.140876E+00_JPRB, 0.133364E+00_JPRB, 0.126146E+00_JPRB &
+  &, 0.119196E+00_JPRB, 0.112516E+00_JPRB, 0.106132E+00_JPRB, 0.100014E+00_JPRB &
+  &, 0.941582E-01_JPRB, 0.885887E-01_JPRB, 0.832381E-01_JPRB &
+  &, 0.781591E-01_JPRB, 0.733105E-01_JPRB, 0.686800E-01_JPRB, 0.643201E-01_JPRB &
+  &, 0.601504E-01_JPRB, 0.562219E-01_JPRB, 0.524832E-01_JPRB &
+  &, 0.489498E-01_JPRB, 0.456012E-01_JPRB, 0.424519E-01_JPRB, 0.394791E-01_JPRB &
+  &, 0.366958E-01_JPRB, 0.340768E-01_JPRB, 0.315943E-01_JPRB &
+  &, 0.292585E-01_JPRB, 0.270797E-01_JPRB, 0.250686E-01_JPRB, 0.231517E-01_JPRB &
+  &, 0.213786E-01_JPRB, 0.197153E-01_JPRB, 0.181688E-01_JPRB &
+  &, 0.167018E-01_JPRB, 0.153653E-01_JPRB, 0.141209E-01_JPRB, 0.129271E-01_JPRB &
+  &, 0.118832E-01_JPRB, 0.108520E-01_JPRB, 0.993348E-02_JPRB &
+  &, 0.908385E-02_JPRB, 0.830716E-02_JPRB, 0.755617E-02_JPRB, 0.688489E-02_JPRB &
+  &, 0.629755E-02_JPRB, 0.574482E-02_JPRB, 0.517443E-02_JPRB &
+  &, 0.469641E-02_JPRB, 0.425932E-02_JPRB, 0.386532E-02_JPRB, 0.351663E-02_JPRB &
+  &, 0.315720E-02_JPRB, 0.284599E-02_JPRB, 0.258530E-02_JPRB &
+  &, 0.231676E-02_JPRB, 0.210181E-02_JPRB, 0.188048E-02_JPRB, 0.171588E-02_JPRB &
+  &, 0.154644E-02_JPRB, 0.137210E-02_JPRB, 0.119280E-02_JPRB/)
+XCW( 507, :) = (/ &
+  &  0.998300E+00_JPRB, 0.996832E+00_JPRB, 0.994947E+00_JPRB, 0.992651E+00_JPRB &
+  &, 0.989939E+00_JPRB, 0.986814E+00_JPRB, 0.983279E+00_JPRB &
+  &, 0.979333E+00_JPRB, 0.974979E+00_JPRB, 0.970221E+00_JPRB, 0.965059E+00_JPRB &
+  &, 0.959496E+00_JPRB, 0.953534E+00_JPRB, 0.947180E+00_JPRB &
+  &, 0.940435E+00_JPRB, 0.933304E+00_JPRB, 0.925789E+00_JPRB, 0.917899E+00_JPRB &
+  &, 0.909637E+00_JPRB, 0.901006E+00_JPRB, 0.892018E+00_JPRB &
+  &, 0.882677E+00_JPRB, 0.872985E+00_JPRB, 0.862961E+00_JPRB, 0.852601E+00_JPRB &
+  &, 0.841923E+00_JPRB, 0.830931E+00_JPRB, 0.819638E+00_JPRB &
+  &, 0.808051E+00_JPRB, 0.796185E+00_JPRB, 0.784039E+00_JPRB, 0.771650E+00_JPRB &
+  &, 0.759006E+00_JPRB, 0.746130E+00_JPRB, 0.733035E+00_JPRB &
+  &, 0.719735E+00_JPRB, 0.706243E+00_JPRB, 0.692576E+00_JPRB, 0.678736E+00_JPRB &
+  &, 0.664761E+00_JPRB, 0.650653E+00_JPRB, 0.636434E+00_JPRB &
+  &, 0.622111E+00_JPRB, 0.607700E+00_JPRB, 0.593234E+00_JPRB, 0.578713E+00_JPRB &
+  &, 0.564159E+00_JPRB, 0.549586E+00_JPRB, 0.535008E+00_JPRB &
+  &, 0.520452E+00_JPRB, 0.505937E+00_JPRB, 0.491463E+00_JPRB, 0.477048E+00_JPRB &
+  &, 0.462721E+00_JPRB, 0.448486E+00_JPRB, 0.434359E+00_JPRB &
+  &, 0.420371E+00_JPRB, 0.406509E+00_JPRB, 0.392802E+00_JPRB, 0.379266E+00_JPRB &
+  &, 0.365898E+00_JPRB, 0.352727E+00_JPRB, 0.339768E+00_JPRB &
+  &, 0.327012E+00_JPRB, 0.314470E+00_JPRB, 0.302170E+00_JPRB, 0.290118E+00_JPRB &
+  &, 0.278321E+00_JPRB, 0.266765E+00_JPRB, 0.255471E+00_JPRB &
+  &, 0.244463E+00_JPRB, 0.233720E+00_JPRB, 0.223261E+00_JPRB, 0.213083E+00_JPRB &
+  &, 0.203203E+00_JPRB, 0.193614E+00_JPRB, 0.184307E+00_JPRB &
+  &, 0.175296E+00_JPRB, 0.166567E+00_JPRB, 0.158155E+00_JPRB, 0.150019E+00_JPRB &
+  &, 0.142164E+00_JPRB, 0.134624E+00_JPRB, 0.127348E+00_JPRB &
+  &, 0.120366E+00_JPRB, 0.113651E+00_JPRB, 0.107231E+00_JPRB, 0.101074E+00_JPRB &
+  &, 0.951780E-01_JPRB, 0.895356E-01_JPRB, 0.841712E-01_JPRB &
+  &, 0.790457E-01_JPRB, 0.741486E-01_JPRB, 0.695002E-01_JPRB, 0.650881E-01_JPRB &
+  &, 0.608979E-01_JPRB, 0.569133E-01_JPRB, 0.531514E-01_JPRB &
+  &, 0.495937E-01_JPRB, 0.462198E-01_JPRB, 0.430440E-01_JPRB, 0.400435E-01_JPRB &
+  &, 0.372314E-01_JPRB, 0.345435E-01_JPRB, 0.320687E-01_JPRB &
+  &, 0.297004E-01_JPRB, 0.274880E-01_JPRB, 0.254420E-01_JPRB, 0.235310E-01_JPRB &
+  &, 0.217212E-01_JPRB, 0.200198E-01_JPRB, 0.184339E-01_JPRB &
+  &, 0.169710E-01_JPRB, 0.156387E-01_JPRB, 0.143522E-01_JPRB, 0.131620E-01_JPRB &
+  &, 0.120740E-01_JPRB, 0.110940E-01_JPRB, 0.101300E-01_JPRB &
+  &, 0.928327E-02_JPRB, 0.845893E-02_JPRB, 0.771017E-02_JPRB, 0.704114E-02_JPRB &
+  &, 0.640322E-02_JPRB, 0.585202E-02_JPRB, 0.528315E-02_JPRB &
+  &, 0.480668E-02_JPRB, 0.437115E-02_JPRB, 0.397872E-02_JPRB, 0.357411E-02_JPRB &
+  &, 0.321548E-02_JPRB, 0.290507E-02_JPRB, 0.264519E-02_JPRB &
+  &, 0.237747E-02_JPRB, 0.216334E-02_JPRB, 0.194283E-02_JPRB, 0.171588E-02_JPRB &
+  &, 0.154644E-02_JPRB, 0.137210E-02_JPRB, 0.125851E-02_JPRB/)
+XCW( 508, :) = (/ &
+  &  0.998550E+00_JPRB, 0.997144E+00_JPRB, 0.995323E+00_JPRB, 0.993088E+00_JPRB &
+  &, 0.990438E+00_JPRB, 0.987375E+00_JPRB, 0.983899E+00_JPRB &
+  &, 0.980015E+00_JPRB, 0.975722E+00_JPRB, 0.971022E+00_JPRB, 0.965920E+00_JPRB &
+  &, 0.960415E+00_JPRB, 0.954512E+00_JPRB, 0.948215E+00_JPRB &
+  &, 0.941526E+00_JPRB, 0.934449E+00_JPRB, 0.926990E+00_JPRB, 0.919152E+00_JPRB &
+  &, 0.910943E+00_JPRB, 0.902363E+00_JPRB, 0.893426E+00_JPRB &
+  &, 0.884132E+00_JPRB, 0.874495E+00_JPRB, 0.864513E+00_JPRB, 0.854203E+00_JPRB &
+  &, 0.843567E+00_JPRB, 0.832619E+00_JPRB, 0.821367E+00_JPRB &
+  &, 0.809819E+00_JPRB, 0.797992E+00_JPRB, 0.785891E+00_JPRB, 0.773528E+00_JPRB &
+  &, 0.760918E+00_JPRB, 0.748076E+00_JPRB, 0.735013E+00_JPRB &
+  &, 0.721735E+00_JPRB, 0.708275E+00_JPRB, 0.694629E+00_JPRB, 0.680821E+00_JPRB &
+  &, 0.666858E+00_JPRB, 0.652771E+00_JPRB, 0.638563E+00_JPRB &
+  &, 0.624259E+00_JPRB, 0.609868E+00_JPRB, 0.595398E+00_JPRB, 0.580895E+00_JPRB &
+  &, 0.566346E+00_JPRB, 0.551777E+00_JPRB, 0.537201E+00_JPRB &
+  &, 0.522647E+00_JPRB, 0.508131E+00_JPRB, 0.493641E+00_JPRB, 0.479235E+00_JPRB &
+  &, 0.464889E+00_JPRB, 0.450646E+00_JPRB, 0.436509E+00_JPRB &
+  &, 0.422495E+00_JPRB, 0.408507E+00_JPRB, 0.394895E+00_JPRB, 0.381340E+00_JPRB &
+  &, 0.367952E+00_JPRB, 0.354758E+00_JPRB, 0.341773E+00_JPRB &
+  &, 0.328990E+00_JPRB, 0.316437E+00_JPRB, 0.304103E+00_JPRB, 0.292016E+00_JPRB &
+  &, 0.280182E+00_JPRB, 0.268584E+00_JPRB, 0.257268E+00_JPRB &
+  &, 0.246214E+00_JPRB, 0.235443E+00_JPRB, 0.224954E+00_JPRB, 0.214721E+00_JPRB &
+  &, 0.204806E+00_JPRB, 0.195156E+00_JPRB, 0.185810E+00_JPRB &
+  &, 0.176756E+00_JPRB, 0.168006E+00_JPRB, 0.159547E+00_JPRB, 0.151360E+00_JPRB &
+  &, 0.143479E+00_JPRB, 0.135884E+00_JPRB, 0.128578E+00_JPRB &
+  &, 0.121536E+00_JPRB, 0.114786E+00_JPRB, 0.108329E+00_JPRB, 0.102135E+00_JPRB &
+  &, 0.961977E-01_JPRB, 0.905130E-01_JPRB, 0.851042E-01_JPRB &
+  &, 0.799324E-01_JPRB, 0.750189E-01_JPRB, 0.703205E-01_JPRB, 0.658561E-01_JPRB &
+  &, 0.616454E-01_JPRB, 0.576393E-01_JPRB, 0.538197E-01_JPRB &
+  &, 0.502377E-01_JPRB, 0.468383E-01_JPRB, 0.436360E-01_JPRB, 0.406078E-01_JPRB &
+  &, 0.377287E-01_JPRB, 0.350490E-01_JPRB, 0.325035E-01_JPRB &
+  &, 0.301424E-01_JPRB, 0.279372E-01_JPRB, 0.258154E-01_JPRB, 0.238683E-01_JPRB &
+  &, 0.220638E-01_JPRB, 0.203677E-01_JPRB, 0.187431E-01_JPRB &
+  &, 0.172851E-01_JPRB, 0.158665E-01_JPRB, 0.145835E-01_JPRB, 0.133969E-01_JPRB &
+  &, 0.123124E-01_JPRB, 0.112877E-01_JPRB, 0.103265E-01_JPRB &
+  &, 0.943284E-02_JPRB, 0.861071E-02_JPRB, 0.786418E-02_JPRB, 0.719739E-02_JPRB &
+  &, 0.656173E-02_JPRB, 0.595921E-02_JPRB, 0.539188E-02_JPRB &
+  &, 0.491695E-02_JPRB, 0.448297E-02_JPRB, 0.403541E-02_JPRB, 0.368908E-02_JPRB &
+  &, 0.333204E-02_JPRB, 0.302324E-02_JPRB, 0.270508E-02_JPRB &
+  &, 0.243817E-02_JPRB, 0.222486E-02_JPRB, 0.200518E-02_JPRB, 0.177907E-02_JPRB &
+  &, 0.161046E-02_JPRB, 0.143696E-02_JPRB, 0.125851E-02_JPRB/)
+XCW( 509, :) = (/ &
+  &  0.998801E+00_JPRB, 0.997457E+00_JPRB, 0.995699E+00_JPRB, 0.993526E+00_JPRB &
+  &, 0.990937E+00_JPRB, 0.987936E+00_JPRB, 0.984522E+00_JPRB &
+  &, 0.980698E+00_JPRB, 0.976465E+00_JPRB, 0.971825E+00_JPRB, 0.966781E+00_JPRB &
+  &, 0.961334E+00_JPRB, 0.955490E+00_JPRB, 0.949249E+00_JPRB &
+  &, 0.942617E+00_JPRB, 0.935596E+00_JPRB, 0.928191E+00_JPRB, 0.920408E+00_JPRB &
+  &, 0.912250E+00_JPRB, 0.903724E+00_JPRB, 0.894836E+00_JPRB &
+  &, 0.885594E+00_JPRB, 0.876001E+00_JPRB, 0.866067E+00_JPRB, 0.855802E+00_JPRB &
+  &, 0.845214E+00_JPRB, 0.834306E+00_JPRB, 0.823096E+00_JPRB &
+  &, 0.811590E+00_JPRB, 0.799799E+00_JPRB, 0.787735E+00_JPRB, 0.775409E+00_JPRB &
+  &, 0.762838E+00_JPRB, 0.749992E+00_JPRB, 0.736991E+00_JPRB &
+  &, 0.723744E+00_JPRB, 0.710306E+00_JPRB, 0.696682E+00_JPRB, 0.682896E+00_JPRB &
+  &, 0.668965E+00_JPRB, 0.654889E+00_JPRB, 0.640702E+00_JPRB &
+  &, 0.626408E+00_JPRB, 0.612037E+00_JPRB, 0.597586E+00_JPRB, 0.583077E+00_JPRB &
+  &, 0.568533E+00_JPRB, 0.553968E+00_JPRB, 0.539407E+00_JPRB &
+  &, 0.524854E+00_JPRB, 0.510324E+00_JPRB, 0.495846E+00_JPRB, 0.481423E+00_JPRB &
+  &, 0.467071E+00_JPRB, 0.452821E+00_JPRB, 0.438675E+00_JPRB &
+  &, 0.424649E+00_JPRB, 0.410759E+00_JPRB, 0.397004E+00_JPRB, 0.383432E+00_JPRB &
+  &, 0.370023E+00_JPRB, 0.356807E+00_JPRB, 0.343797E+00_JPRB &
+  &, 0.330986E+00_JPRB, 0.318384E+00_JPRB, 0.306037E+00_JPRB, 0.293914E+00_JPRB &
+  &, 0.282042E+00_JPRB, 0.270424E+00_JPRB, 0.259064E+00_JPRB &
+  &, 0.247985E+00_JPRB, 0.237165E+00_JPRB, 0.226624E+00_JPRB, 0.216381E+00_JPRB &
+  &, 0.206409E+00_JPRB, 0.196745E+00_JPRB, 0.187359E+00_JPRB &
+  &, 0.178264E+00_JPRB, 0.169445E+00_JPRB, 0.160938E+00_JPRB, 0.152728E+00_JPRB &
+  &, 0.144794E+00_JPRB, 0.137144E+00_JPRB, 0.129807E+00_JPRB &
+  &, 0.122733E+00_JPRB, 0.115949E+00_JPRB, 0.109428E+00_JPRB, 0.103195E+00_JPRB &
+  &, 0.972175E-01_JPRB, 0.914905E-01_JPRB, 0.860373E-01_JPRB &
+  &, 0.808506E-01_JPRB, 0.758893E-01_JPRB, 0.711407E-01_JPRB, 0.666575E-01_JPRB &
+  &, 0.623929E-01_JPRB, 0.583653E-01_JPRB, 0.545230E-01_JPRB &
+  &, 0.508816E-01_JPRB, 0.474569E-01_JPRB, 0.441911E-01_JPRB, 0.411346E-01_JPRB &
+  &, 0.382642E-01_JPRB, 0.355546E-01_JPRB, 0.329778E-01_JPRB &
+  &, 0.305843E-01_JPRB, 0.283454E-01_JPRB, 0.262303E-01_JPRB, 0.242476E-01_JPRB &
+  &, 0.224064E-01_JPRB, 0.206722E-01_JPRB, 0.190524E-01_JPRB &
+  &, 0.175543E-01_JPRB, 0.161399E-01_JPRB, 0.148611E-01_JPRB, 0.136317E-01_JPRB &
+  &, 0.125031E-01_JPRB, 0.114813E-01_JPRB, 0.105230E-01_JPRB &
+  &, 0.963227E-02_JPRB, 0.881308E-02_JPRB, 0.801818E-02_JPRB, 0.730156E-02_JPRB &
+  &, 0.666740E-02_JPRB, 0.606640E-02_JPRB, 0.555497E-02_JPRB &
+  &, 0.502722E-02_JPRB, 0.453888E-02_JPRB, 0.414880E-02_JPRB, 0.374657E-02_JPRB &
+  &, 0.339032E-02_JPRB, 0.308232E-02_JPRB, 0.276497E-02_JPRB &
+  &, 0.249888E-02_JPRB, 0.222486E-02_JPRB, 0.200518E-02_JPRB, 0.184225E-02_JPRB &
+  &, 0.161046E-02_JPRB, 0.143696E-02_JPRB, 0.132422E-02_JPRB/)
+XCW( 510, :) = (/ &
+  &  0.999050E+00_JPRB, 0.997772E+00_JPRB, 0.996074E+00_JPRB, 0.993963E+00_JPRB &
+  &, 0.991437E+00_JPRB, 0.988497E+00_JPRB, 0.985145E+00_JPRB &
+  &, 0.981380E+00_JPRB, 0.977208E+00_JPRB, 0.972627E+00_JPRB, 0.967643E+00_JPRB &
+  &, 0.962254E+00_JPRB, 0.956467E+00_JPRB, 0.950285E+00_JPRB &
+  &, 0.943709E+00_JPRB, 0.936743E+00_JPRB, 0.929394E+00_JPRB, 0.921664E+00_JPRB &
+  &, 0.913560E+00_JPRB, 0.905085E+00_JPRB, 0.896250E+00_JPRB &
+  &, 0.887056E+00_JPRB, 0.877513E+00_JPRB, 0.867626E+00_JPRB, 0.857407E+00_JPRB &
+  &, 0.846862E+00_JPRB, 0.836001E+00_JPRB, 0.824832E+00_JPRB &
+  &, 0.813365E+00_JPRB, 0.801614E+00_JPRB, 0.789587E+00_JPRB, 0.777295E+00_JPRB &
+  &, 0.764758E+00_JPRB, 0.751978E+00_JPRB, 0.738973E+00_JPRB &
+  &, 0.725753E+00_JPRB, 0.712347E+00_JPRB, 0.698746E+00_JPRB, 0.684992E+00_JPRB &
+  &, 0.671073E+00_JPRB, 0.657018E+00_JPRB, 0.642852E+00_JPRB &
+  &, 0.628567E+00_JPRB, 0.614205E+00_JPRB, 0.599761E+00_JPRB, 0.585271E+00_JPRB &
+  &, 0.570732E+00_JPRB, 0.556171E+00_JPRB, 0.541613E+00_JPRB &
+  &, 0.527062E+00_JPRB, 0.512532E+00_JPRB, 0.498038E+00_JPRB, 0.483611E+00_JPRB &
+  &, 0.469253E+00_JPRB, 0.454995E+00_JPRB, 0.440840E+00_JPRB &
+  &, 0.426787E+00_JPRB, 0.412884E+00_JPRB, 0.399130E+00_JPRB, 0.385523E+00_JPRB &
+  &, 0.372094E+00_JPRB, 0.358855E+00_JPRB, 0.345820E+00_JPRB &
+  &, 0.332982E+00_JPRB, 0.320369E+00_JPRB, 0.307971E+00_JPRB, 0.295832E+00_JPRB &
+  &, 0.283922E+00_JPRB, 0.272264E+00_JPRB, 0.260882E+00_JPRB &
+  &, 0.249757E+00_JPRB, 0.238909E+00_JPRB, 0.228339E+00_JPRB, 0.218042E+00_JPRB &
+  &, 0.208034E+00_JPRB, 0.198311E+00_JPRB, 0.188885E+00_JPRB &
+  &, 0.179747E+00_JPRB, 0.170908E+00_JPRB, 0.162355E+00_JPRB, 0.154095E+00_JPRB &
+  &, 0.146109E+00_JPRB, 0.138431E+00_JPRB, 0.131037E+00_JPRB &
+  &, 0.123930E+00_JPRB, 0.117084E+00_JPRB, 0.110555E+00_JPRB, 0.104255E+00_JPRB &
+  &, 0.982372E-01_JPRB, 0.924984E-01_JPRB, 0.870014E-01_JPRB &
+  &, 0.817373E-01_JPRB, 0.767596E-01_JPRB, 0.719937E-01_JPRB, 0.674588E-01_JPRB &
+  &, 0.631744E-01_JPRB, 0.590913E-01_JPRB, 0.552264E-01_JPRB &
+  &, 0.515613E-01_JPRB, 0.480754E-01_JPRB, 0.448201E-01_JPRB, 0.416990E-01_JPRB &
+  &, 0.387998E-01_JPRB, 0.360601E-01_JPRB, 0.334522E-01_JPRB &
+  &, 0.310263E-01_JPRB, 0.287537E-01_JPRB, 0.266452E-01_JPRB, 0.246270E-01_JPRB &
+  &, 0.227490E-01_JPRB, 0.210202E-01_JPRB, 0.193617E-01_JPRB &
+  &, 0.178684E-01_JPRB, 0.164133E-01_JPRB, 0.150924E-01_JPRB, 0.138666E-01_JPRB &
+  &, 0.127415E-01_JPRB, 0.116749E-01_JPRB, 0.107195E-01_JPRB &
+  &, 0.978183E-02_JPRB, 0.896486E-02_JPRB, 0.817219E-02_JPRB, 0.745780E-02_JPRB &
+  &, 0.682591E-02_JPRB, 0.622719E-02_JPRB, 0.566369E-02_JPRB &
+  &, 0.513749E-02_JPRB, 0.465071E-02_JPRB, 0.420550E-02_JPRB, 0.380406E-02_JPRB &
+  &, 0.344860E-02_JPRB, 0.314140E-02_JPRB, 0.282486E-02_JPRB &
+  &, 0.255958E-02_JPRB, 0.228638E-02_JPRB, 0.206753E-02_JPRB, 0.184225E-02_JPRB &
+  &, 0.167448E-02_JPRB, 0.150182E-02_JPRB, 0.132422E-02_JPRB/)
+XCW( 511, :) = (/ &
+  &  0.999301E+00_JPRB, 0.998084E+00_JPRB, 0.996450E+00_JPRB, 0.994402E+00_JPRB &
+  &, 0.991937E+00_JPRB, 0.989059E+00_JPRB, 0.985766E+00_JPRB &
+  &, 0.982064E+00_JPRB, 0.977952E+00_JPRB, 0.973431E+00_JPRB, 0.968506E+00_JPRB &
+  &, 0.963176E+00_JPRB, 0.957448E+00_JPRB, 0.951321E+00_JPRB &
+  &, 0.944801E+00_JPRB, 0.937893E+00_JPRB, 0.930598E+00_JPRB, 0.922922E+00_JPRB &
+  &, 0.914871E+00_JPRB, 0.906449E+00_JPRB, 0.897664E+00_JPRB &
+  &, 0.888518E+00_JPRB, 0.879022E+00_JPRB, 0.869187E+00_JPRB, 0.859013E+00_JPRB &
+  &, 0.848514E+00_JPRB, 0.837693E+00_JPRB, 0.826569E+00_JPRB &
+  &, 0.815140E+00_JPRB, 0.803429E+00_JPRB, 0.791439E+00_JPRB, 0.779185E+00_JPRB &
+  &, 0.766679E+00_JPRB, 0.753934E+00_JPRB, 0.740960E+00_JPRB &
+  &, 0.727771E+00_JPRB, 0.714388E+00_JPRB, 0.700818E+00_JPRB, 0.687077E+00_JPRB &
+  &, 0.673190E+00_JPRB, 0.659157E+00_JPRB, 0.645001E+00_JPRB &
+  &, 0.630738E+00_JPRB, 0.616384E+00_JPRB, 0.601949E+00_JPRB, 0.587465E+00_JPRB &
+  &, 0.572944E+00_JPRB, 0.558387E+00_JPRB, 0.543820E+00_JPRB &
+  &, 0.529269E+00_JPRB, 0.514739E+00_JPRB, 0.500243E+00_JPRB, 0.485812E+00_JPRB &
+  &, 0.471449E+00_JPRB, 0.457185E+00_JPRB, 0.443005E+00_JPRB &
+  &, 0.428957E+00_JPRB, 0.415025E+00_JPRB, 0.401255E+00_JPRB, 0.387631E+00_JPRB &
+  &, 0.374182E+00_JPRB, 0.360921E+00_JPRB, 0.347844E+00_JPRB &
+  &, 0.334997E+00_JPRB, 0.322335E+00_JPRB, 0.309923E+00_JPRB, 0.297750E+00_JPRB &
+  &, 0.285802E+00_JPRB, 0.274124E+00_JPRB, 0.262699E+00_JPRB &
+  &, 0.251528E+00_JPRB, 0.240654E+00_JPRB, 0.230032E+00_JPRB, 0.219702E+00_JPRB &
+  &, 0.209660E+00_JPRB, 0.199900E+00_JPRB, 0.190435E+00_JPRB &
+  &, 0.181255E+00_JPRB, 0.172372E+00_JPRB, 0.163772E+00_JPRB, 0.155462E+00_JPRB &
+  &, 0.147451E+00_JPRB, 0.139718E+00_JPRB, 0.132294E+00_JPRB &
+  &, 0.125128E+00_JPRB, 0.118276E+00_JPRB, 0.111654E+00_JPRB, 0.105344E+00_JPRB &
+  &, 0.992870E-01_JPRB, 0.934758E-01_JPRB, 0.879656E-01_JPRB &
+  &, 0.826555E-01_JPRB, 0.776299E-01_JPRB, 0.728468E-01_JPRB, 0.682602E-01_JPRB &
+  &, 0.639219E-01_JPRB, 0.598173E-01_JPRB, 0.558947E-01_JPRB &
+  &, 0.522053E-01_JPRB, 0.487304E-01_JPRB, 0.454121E-01_JPRB, 0.423010E-01_JPRB &
+  &, 0.393354E-01_JPRB, 0.365657E-01_JPRB, 0.339661E-01_JPRB &
+  &, 0.315084E-01_JPRB, 0.292029E-01_JPRB, 0.270601E-01_JPRB, 0.250064E-01_JPRB &
+  &, 0.231344E-01_JPRB, 0.213682E-01_JPRB, 0.197151E-01_JPRB &
+  &, 0.181376E-01_JPRB, 0.167323E-01_JPRB, 0.153700E-01_JPRB, 0.141484E-01_JPRB &
+  &, 0.129800E-01_JPRB, 0.119169E-01_JPRB, 0.109160E-01_JPRB &
+  &, 0.998126E-02_JPRB, 0.911663E-02_JPRB, 0.832619E-02_JPRB, 0.761405E-02_JPRB &
+  &, 0.693158E-02_JPRB, 0.633439E-02_JPRB, 0.577242E-02_JPRB &
+  &, 0.524776E-02_JPRB, 0.476253E-02_JPRB, 0.431889E-02_JPRB, 0.391903E-02_JPRB &
+  &, 0.356517E-02_JPRB, 0.320049E-02_JPRB, 0.288476E-02_JPRB &
+  &, 0.262029E-02_JPRB, 0.234791E-02_JPRB, 0.212988E-02_JPRB, 0.190543E-02_JPRB &
+  &, 0.173850E-02_JPRB, 0.156668E-02_JPRB, 0.138993E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART73',1,ZHOOK_HANDLE)
+END SUBROUTINE PART73
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART74
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART74',0,ZHOOK_HANDLE)
+
+XCW( 512, :) = (/ &
+  &  0.999555E+00_JPRB, 0.998399E+00_JPRB, 0.996826E+00_JPRB, 0.994839E+00_JPRB &
+  &, 0.992437E+00_JPRB, 0.989620E+00_JPRB, 0.986389E+00_JPRB &
+  &, 0.982748E+00_JPRB, 0.978695E+00_JPRB, 0.974235E+00_JPRB, 0.969369E+00_JPRB &
+  &, 0.964098E+00_JPRB, 0.958427E+00_JPRB, 0.952358E+00_JPRB &
+  &, 0.945895E+00_JPRB, 0.939037E+00_JPRB, 0.931802E+00_JPRB, 0.924181E+00_JPRB &
+  &, 0.916183E+00_JPRB, 0.907814E+00_JPRB, 0.899077E+00_JPRB &
+  &, 0.889984E+00_JPRB, 0.880538E+00_JPRB, 0.870749E+00_JPRB, 0.860619E+00_JPRB &
+  &, 0.850165E+00_JPRB, 0.839391E+00_JPRB, 0.828305E+00_JPRB &
+  &, 0.816923E+00_JPRB, 0.805248E+00_JPRB, 0.793295E+00_JPRB, 0.781079E+00_JPRB &
+  &, 0.768608E+00_JPRB, 0.755894E+00_JPRB, 0.742951E+00_JPRB &
+  &, 0.729790E+00_JPRB, 0.716438E+00_JPRB, 0.702891E+00_JPRB, 0.689172E+00_JPRB &
+  &, 0.675307E+00_JPRB, 0.661286E+00_JPRB, 0.647151E+00_JPRB &
+  &, 0.632909E+00_JPRB, 0.618564E+00_JPRB, 0.604148E+00_JPRB, 0.589671E+00_JPRB &
+  &, 0.575156E+00_JPRB, 0.560603E+00_JPRB, 0.546039E+00_JPRB &
+  &, 0.531490E+00_JPRB, 0.516959E+00_JPRB, 0.502462E+00_JPRB, 0.488028E+00_JPRB &
+  &, 0.473660E+00_JPRB, 0.459374E+00_JPRB, 0.445186E+00_JPRB &
+  &, 0.431127E+00_JPRB, 0.417181E+00_JPRB, 0.403380E+00_JPRB, 0.389739E+00_JPRB &
+  &, 0.376270E+00_JPRB, 0.362987E+00_JPRB, 0.349903E+00_JPRB &
+  &, 0.337011E+00_JPRB, 0.324338E+00_JPRB, 0.311895E+00_JPRB, 0.299668E+00_JPRB &
+  &, 0.287702E+00_JPRB, 0.275984E+00_JPRB, 0.264516E+00_JPRB &
+  &, 0.253320E+00_JPRB, 0.242398E+00_JPRB, 0.231746E+00_JPRB, 0.221385E+00_JPRB &
+  &, 0.211286E+00_JPRB, 0.201489E+00_JPRB, 0.191985E+00_JPRB &
+  &, 0.182763E+00_JPRB, 0.173836E+00_JPRB, 0.165214E+00_JPRB, 0.156855E+00_JPRB &
+  &, 0.148792E+00_JPRB, 0.141031E+00_JPRB, 0.133551E+00_JPRB &
+  &, 0.126353E+00_JPRB, 0.119439E+00_JPRB, 0.112810E+00_JPRB, 0.106434E+00_JPRB &
+  &, 0.100337E+00_JPRB, 0.945143E-01_JPRB, 0.889297E-01_JPRB &
+  &, 0.836055E-01_JPRB, 0.785325E-01_JPRB, 0.736998E-01_JPRB, 0.690950E-01_JPRB &
+  &, 0.647034E-01_JPRB, 0.605433E-01_JPRB, 0.566332E-01_JPRB &
+  &, 0.528850E-01_JPRB, 0.493489E-01_JPRB, 0.460042E-01_JPRB, 0.428654E-01_JPRB &
+  &, 0.398709E-01_JPRB, 0.370713E-01_JPRB, 0.344404E-01_JPRB &
+  &, 0.319503E-01_JPRB, 0.296520E-01_JPRB, 0.274334E-01_JPRB, 0.253857E-01_JPRB &
+  &, 0.234770E-01_JPRB, 0.216727E-01_JPRB, 0.200244E-01_JPRB &
+  &, 0.184517E-01_JPRB, 0.170057E-01_JPRB, 0.156476E-01_JPRB, 0.143833E-01_JPRB &
+  &, 0.132184E-01_JPRB, 0.121105E-01_JPRB, 0.111125E-01_JPRB &
+  &, 0.101807E-01_JPRB, 0.931900E-02_JPRB, 0.848019E-02_JPRB, 0.777030E-02_JPRB &
+  &, 0.709009E-02_JPRB, 0.644158E-02_JPRB, 0.588114E-02_JPRB &
+  &, 0.535803E-02_JPRB, 0.487436E-02_JPRB, 0.443228E-02_JPRB, 0.397651E-02_JPRB &
+  &, 0.362345E-02_JPRB, 0.325957E-02_JPRB, 0.294465E-02_JPRB &
+  &, 0.268099E-02_JPRB, 0.240943E-02_JPRB, 0.219223E-02_JPRB, 0.196861E-02_JPRB &
+  &, 0.173850E-02_JPRB, 0.156668E-02_JPRB, 0.138993E-02_JPRB/)
+XCW( 513, :) = (/ &
+  &  0.999805E+00_JPRB, 0.998712E+00_JPRB, 0.997201E+00_JPRB, 0.995277E+00_JPRB &
+  &, 0.992937E+00_JPRB, 0.990181E+00_JPRB, 0.987012E+00_JPRB &
+  &, 0.983431E+00_JPRB, 0.979439E+00_JPRB, 0.975039E+00_JPRB, 0.970233E+00_JPRB &
+  &, 0.965020E+00_JPRB, 0.959407E+00_JPRB, 0.953397E+00_JPRB &
+  &, 0.946990E+00_JPRB, 0.940193E+00_JPRB, 0.933007E+00_JPRB, 0.925440E+00_JPRB &
+  &, 0.917495E+00_JPRB, 0.909178E+00_JPRB, 0.900494E+00_JPRB &
+  &, 0.891449E+00_JPRB, 0.882054E+00_JPRB, 0.872311E+00_JPRB, 0.862232E+00_JPRB &
+  &, 0.851820E+00_JPRB, 0.841090E+00_JPRB, 0.830049E+00_JPRB &
+  &, 0.818702E+00_JPRB, 0.807071E+00_JPRB, 0.795156E+00_JPRB, 0.782974E+00_JPRB &
+  &, 0.770537E+00_JPRB, 0.757858E+00_JPRB, 0.744947E+00_JPRB &
+  &, 0.731817E+00_JPRB, 0.718489E+00_JPRB, 0.704964E+00_JPRB, 0.691278E+00_JPRB &
+  &, 0.677425E+00_JPRB, 0.663436E+00_JPRB, 0.649312E+00_JPRB &
+  &, 0.635079E+00_JPRB, 0.620755E+00_JPRB, 0.606347E+00_JPRB, 0.591877E+00_JPRB &
+  &, 0.577367E+00_JPRB, 0.562819E+00_JPRB, 0.548271E+00_JPRB &
+  &, 0.533711E+00_JPRB, 0.519180E+00_JPRB, 0.504681E+00_JPRB, 0.490244E+00_JPRB &
+  &, 0.475872E+00_JPRB, 0.461579E+00_JPRB, 0.447382E+00_JPRB &
+  &, 0.433296E+00_JPRB, 0.419338E+00_JPRB, 0.405522E+00_JPRB, 0.391863E+00_JPRB &
+  &, 0.378375E+00_JPRB, 0.365070E+00_JPRB, 0.351944E+00_JPRB &
+  &, 0.339025E+00_JPRB, 0.326342E+00_JPRB, 0.313847E+00_JPRB, 0.301605E+00_JPRB &
+  &, 0.289602E+00_JPRB, 0.277864E+00_JPRB, 0.266354E+00_JPRB &
+  &, 0.255134E+00_JPRB, 0.244163E+00_JPRB, 0.233483E+00_JPRB, 0.223068E+00_JPRB &
+  &, 0.212935E+00_JPRB, 0.203101E+00_JPRB, 0.193558E+00_JPRB &
+  &, 0.184295E+00_JPRB, 0.175324E+00_JPRB, 0.166656E+00_JPRB, 0.158248E+00_JPRB &
+  &, 0.150160E+00_JPRB, 0.142345E+00_JPRB, 0.134835E+00_JPRB &
+  &, 0.127578E+00_JPRB, 0.120631E+00_JPRB, 0.113937E+00_JPRB, 0.107523E+00_JPRB &
+  &, 0.101387E+00_JPRB, 0.955223E-01_JPRB, 0.898939E-01_JPRB &
+  &, 0.845554E-01_JPRB, 0.794350E-01_JPRB, 0.745529E-01_JPRB, 0.698963E-01_JPRB &
+  &, 0.654849E-01_JPRB, 0.613038E-01_JPRB, 0.573366E-01_JPRB &
+  &, 0.535647E-01_JPRB, 0.500039E-01_JPRB, 0.466332E-01_JPRB, 0.434297E-01_JPRB &
+  &, 0.404447E-01_JPRB, 0.376157E-01_JPRB, 0.349543E-01_JPRB &
+  &, 0.324324E-01_JPRB, 0.301011E-01_JPRB, 0.278898E-01_JPRB, 0.258073E-01_JPRB &
+  &, 0.238624E-01_JPRB, 0.220207E-01_JPRB, 0.203337E-01_JPRB &
+  &, 0.187658E-01_JPRB, 0.172790E-01_JPRB, 0.159252E-01_JPRB, 0.146181E-01_JPRB &
+  &, 0.134568E-01_JPRB, 0.123525E-01_JPRB, 0.113090E-01_JPRB &
+  &, 0.103801E-01_JPRB, 0.947078E-02_JPRB, 0.868553E-02_JPRB, 0.792655E-02_JPRB &
+  &, 0.724860E-02_JPRB, 0.660237E-02_JPRB, 0.598987E-02_JPRB &
+  &, 0.546829E-02_JPRB, 0.498618E-02_JPRB, 0.448898E-02_JPRB, 0.409148E-02_JPRB &
+  &, 0.368173E-02_JPRB, 0.337774E-02_JPRB, 0.300454E-02_JPRB &
+  &, 0.274170E-02_JPRB, 0.247096E-02_JPRB, 0.225458E-02_JPRB, 0.203179E-02_JPRB &
+  &, 0.180251E-02_JPRB, 0.163154E-02_JPRB, 0.145564E-02_JPRB/)
+XCW( 514, :) = (/ &
+  &  0.100005E+01_JPRB, 0.999025E+00_JPRB, 0.997578E+00_JPRB, 0.995717E+00_JPRB &
+  &, 0.993437E+00_JPRB, 0.990744E+00_JPRB, 0.987636E+00_JPRB &
+  &, 0.984115E+00_JPRB, 0.980184E+00_JPRB, 0.975844E+00_JPRB, 0.971097E+00_JPRB &
+  &, 0.965943E+00_JPRB, 0.960389E+00_JPRB, 0.954435E+00_JPRB &
+  &, 0.948085E+00_JPRB, 0.941344E+00_JPRB, 0.934214E+00_JPRB, 0.926702E+00_JPRB &
+  &, 0.918810E+00_JPRB, 0.910545E+00_JPRB, 0.901911E+00_JPRB &
+  &, 0.892918E+00_JPRB, 0.883570E+00_JPRB, 0.873876E+00_JPRB, 0.863844E+00_JPRB &
+  &, 0.853478E+00_JPRB, 0.842792E+00_JPRB, 0.831793E+00_JPRB &
+  &, 0.820489E+00_JPRB, 0.808894E+00_JPRB, 0.797020E+00_JPRB, 0.784872E+00_JPRB &
+  &, 0.772470E+00_JPRB, 0.759822E+00_JPRB, 0.746943E+00_JPRB &
+  &, 0.733845E+00_JPRB, 0.720539E+00_JPRB, 0.707047E+00_JPRB, 0.693383E+00_JPRB &
+  &, 0.679552E+00_JPRB, 0.665575E+00_JPRB, 0.651473E+00_JPRB &
+  &, 0.637261E+00_JPRB, 0.622946E+00_JPRB, 0.608557E+00_JPRB, 0.594094E+00_JPRB &
+  &, 0.579591E+00_JPRB, 0.565048E+00_JPRB, 0.550503E+00_JPRB &
+  &, 0.535944E+00_JPRB, 0.521414E+00_JPRB, 0.506914E+00_JPRB, 0.492474E+00_JPRB &
+  &, 0.478083E+00_JPRB, 0.463783E+00_JPRB, 0.449577E+00_JPRB &
+  &, 0.435481E+00_JPRB, 0.421511E+00_JPRB, 0.407680E+00_JPRB, 0.394004E+00_JPRB &
+  &, 0.380497E+00_JPRB, 0.367153E+00_JPRB, 0.354021E+00_JPRB &
+  &, 0.341076E+00_JPRB, 0.328345E+00_JPRB, 0.315838E+00_JPRB, 0.303561E+00_JPRB &
+  &, 0.291522E+00_JPRB, 0.279745E+00_JPRB, 0.268212E+00_JPRB &
+  &, 0.256948E+00_JPRB, 0.245950E+00_JPRB, 0.235219E+00_JPRB, 0.224773E+00_JPRB &
+  &, 0.214607E+00_JPRB, 0.204714E+00_JPRB, 0.195132E+00_JPRB &
+  &, 0.185828E+00_JPRB, 0.176813E+00_JPRB, 0.168098E+00_JPRB, 0.159667E+00_JPRB &
+  &, 0.151527E+00_JPRB, 0.143659E+00_JPRB, 0.136092E+00_JPRB &
+  &, 0.128832E+00_JPRB, 0.121823E+00_JPRB, 0.115094E+00_JPRB, 0.108642E+00_JPRB &
+  &, 0.102466E+00_JPRB, 0.965608E-01_JPRB, 0.908891E-01_JPRB &
+  &, 0.854737E-01_JPRB, 0.803376E-01_JPRB, 0.754059E-01_JPRB, 0.707311E-01_JPRB &
+  &, 0.663003E-01_JPRB, 0.620644E-01_JPRB, 0.580400E-01_JPRB &
+  &, 0.542444E-01_JPRB, 0.506588E-01_JPRB, 0.472623E-01_JPRB, 0.440317E-01_JPRB &
+  &, 0.410186E-01_JPRB, 0.381601E-01_JPRB, 0.354287E-01_JPRB &
+  &, 0.329146E-01_JPRB, 0.305502E-01_JPRB, 0.283047E-01_JPRB, 0.261866E-01_JPRB &
+  &, 0.242478E-01_JPRB, 0.224122E-01_JPRB, 0.206871E-01_JPRB &
+  &, 0.190799E-01_JPRB, 0.175980E-01_JPRB, 0.162028E-01_JPRB, 0.148999E-01_JPRB &
+  &, 0.136952E-01_JPRB, 0.125461E-01_JPRB, 0.115055E-01_JPRB &
+  &, 0.105795E-01_JPRB, 0.967315E-02_JPRB, 0.883953E-02_JPRB, 0.808279E-02_JPRB &
+  &, 0.735428E-02_JPRB, 0.670956E-02_JPRB, 0.609859E-02_JPRB &
+  &, 0.557856E-02_JPRB, 0.504209E-02_JPRB, 0.460237E-02_JPRB, 0.420646E-02_JPRB &
+  &, 0.379829E-02_JPRB, 0.343682E-02_JPRB, 0.312432E-02_JPRB &
+  &, 0.280240E-02_JPRB, 0.253248E-02_JPRB, 0.225458E-02_JPRB, 0.203179E-02_JPRB &
+  &, 0.186653E-02_JPRB, 0.163154E-02_JPRB, 0.152136E-02_JPRB/)
+XCW( 515, :) = (/ &
+  &  0.100031E+01_JPRB, 0.999338E+00_JPRB, 0.997954E+00_JPRB, 0.996155E+00_JPRB &
+  &, 0.993937E+00_JPRB, 0.991306E+00_JPRB, 0.988259E+00_JPRB &
+  &, 0.984800E+00_JPRB, 0.980930E+00_JPRB, 0.976649E+00_JPRB, 0.971962E+00_JPRB &
+  &, 0.966867E+00_JPRB, 0.961371E+00_JPRB, 0.955475E+00_JPRB &
+  &, 0.949182E+00_JPRB, 0.942497E+00_JPRB, 0.935423E+00_JPRB, 0.927965E+00_JPRB &
+  &, 0.920127E+00_JPRB, 0.911913E+00_JPRB, 0.903331E+00_JPRB &
+  &, 0.894390E+00_JPRB, 0.885090E+00_JPRB, 0.875444E+00_JPRB, 0.865457E+00_JPRB &
+  &, 0.855137E+00_JPRB, 0.844495E+00_JPRB, 0.833537E+00_JPRB &
+  &, 0.822276E+00_JPRB, 0.810722E+00_JPRB, 0.798885E+00_JPRB, 0.786775E+00_JPRB &
+  &, 0.774408E+00_JPRB, 0.761796E+00_JPRB, 0.748947E+00_JPRB &
+  &, 0.735873E+00_JPRB, 0.722599E+00_JPRB, 0.709130E+00_JPRB, 0.695488E+00_JPRB &
+  &, 0.681680E+00_JPRB, 0.667735E+00_JPRB, 0.653644E+00_JPRB &
+  &, 0.639454E+00_JPRB, 0.625148E+00_JPRB, 0.610768E+00_JPRB, 0.596324E+00_JPRB &
+  &, 0.581827E+00_JPRB, 0.567289E+00_JPRB, 0.552734E+00_JPRB &
+  &, 0.538191E+00_JPRB, 0.523662E+00_JPRB, 0.509147E+00_JPRB, 0.494705E+00_JPRB &
+  &, 0.480308E+00_JPRB, 0.466002E+00_JPRB, 0.451773E+00_JPRB &
+  &, 0.437666E+00_JPRB, 0.423683E+00_JPRB, 0.409838E+00_JPRB, 0.396145E+00_JPRB &
+  &, 0.382601E+00_JPRB, 0.369254E+00_JPRB, 0.356080E+00_JPRB &
+  &, 0.343108E+00_JPRB, 0.330367E+00_JPRB, 0.317828E+00_JPRB, 0.305518E+00_JPRB &
+  &, 0.293442E+00_JPRB, 0.281625E+00_JPRB, 0.270071E+00_JPRB &
+  &, 0.258761E+00_JPRB, 0.247738E+00_JPRB, 0.236956E+00_JPRB, 0.226478E+00_JPRB &
+  &, 0.216278E+00_JPRB, 0.206349E+00_JPRB, 0.196729E+00_JPRB &
+  &, 0.187384E+00_JPRB, 0.178326E+00_JPRB, 0.169565E+00_JPRB, 0.161086E+00_JPRB &
+  &, 0.152895E+00_JPRB, 0.144999E+00_JPRB, 0.137404E+00_JPRB &
+  &, 0.130057E+00_JPRB, 0.123015E+00_JPRB, 0.116250E+00_JPRB, 0.109761E+00_JPRB &
+  &, 0.103546E+00_JPRB, 0.975993E-01_JPRB, 0.918844E-01_JPRB &
+  &, 0.864553E-01_JPRB, 0.812401E-01_JPRB, 0.762918E-01_JPRB, 0.715659E-01_JPRB &
+  &, 0.670818E-01_JPRB, 0.628249E-01_JPRB, 0.587786E-01_JPRB &
+  &, 0.549599E-01_JPRB, 0.513138E-01_JPRB, 0.478913E-01_JPRB, 0.446337E-01_JPRB &
+  &, 0.415541E-01_JPRB, 0.386657E-01_JPRB, 0.359426E-01_JPRB &
+  &, 0.333967E-01_JPRB, 0.309993E-01_JPRB, 0.287196E-01_JPRB, 0.266082E-01_JPRB &
+  &, 0.246332E-01_JPRB, 0.227602E-01_JPRB, 0.209964E-01_JPRB &
+  &, 0.193940E-01_JPRB, 0.178714E-01_JPRB, 0.164804E-01_JPRB, 0.151348E-01_JPRB &
+  &, 0.139336E-01_JPRB, 0.127881E-01_JPRB, 0.117511E-01_JPRB &
+  &, 0.107291E-01_JPRB, 0.982493E-02_JPRB, 0.899354E-02_JPRB, 0.823904E-02_JPRB &
+  &, 0.751279E-02_JPRB, 0.687035E-02_JPRB, 0.626168E-02_JPRB &
+  &, 0.568883E-02_JPRB, 0.515392E-02_JPRB, 0.471576E-02_JPRB, 0.426394E-02_JPRB &
+  &, 0.385657E-02_JPRB, 0.349590E-02_JPRB, 0.318421E-02_JPRB &
+  &, 0.286310E-02_JPRB, 0.259400E-02_JPRB, 0.231693E-02_JPRB, 0.209497E-02_JPRB &
+  &, 0.186653E-02_JPRB, 0.169641E-02_JPRB, 0.152136E-02_JPRB/)
+XCW( 516, :) = (/ &
+  &  0.100056E+01_JPRB, 0.999654E+00_JPRB, 0.998331E+00_JPRB, 0.996593E+00_JPRB &
+  &, 0.994428E+00_JPRB, 0.991869E+00_JPRB, 0.988884E+00_JPRB &
+  &, 0.985485E+00_JPRB, 0.981676E+00_JPRB, 0.977455E+00_JPRB, 0.972827E+00_JPRB &
+  &, 0.967791E+00_JPRB, 0.962354E+00_JPRB, 0.956515E+00_JPRB &
+  &, 0.950280E+00_JPRB, 0.943651E+00_JPRB, 0.936630E+00_JPRB, 0.929228E+00_JPRB &
+  &, 0.921443E+00_JPRB, 0.913283E+00_JPRB, 0.904755E+00_JPRB &
+  &, 0.895862E+00_JPRB, 0.886612E+00_JPRB, 0.877013E+00_JPRB, 0.867073E+00_JPRB &
+  &, 0.856799E+00_JPRB, 0.846201E+00_JPRB, 0.835289E+00_JPRB &
+  &, 0.824067E+00_JPRB, 0.812553E+00_JPRB, 0.800753E+00_JPRB, 0.788682E+00_JPRB &
+  &, 0.776350E+00_JPRB, 0.763769E+00_JPRB, 0.750952E+00_JPRB &
+  &, 0.737910E+00_JPRB, 0.724668E+00_JPRB, 0.711222E+00_JPRB, 0.697604E+00_JPRB &
+  &, 0.683818E+00_JPRB, 0.669885E+00_JPRB, 0.655826E+00_JPRB &
+  &, 0.641635E+00_JPRB, 0.627350E+00_JPRB, 0.612990E+00_JPRB, 0.598554E+00_JPRB &
+  &, 0.584063E+00_JPRB, 0.569530E+00_JPRB, 0.554992E+00_JPRB &
+  &, 0.540438E+00_JPRB, 0.525909E+00_JPRB, 0.511394E+00_JPRB, 0.496935E+00_JPRB &
+  &, 0.482548E+00_JPRB, 0.468221E+00_JPRB, 0.453999E+00_JPRB &
+  &, 0.439867E+00_JPRB, 0.425871E+00_JPRB, 0.412012E+00_JPRB, 0.398286E+00_JPRB &
+  &, 0.384740E+00_JPRB, 0.371354E+00_JPRB, 0.358175E+00_JPRB &
+  &, 0.345177E+00_JPRB, 0.332389E+00_JPRB, 0.319819E+00_JPRB, 0.307494E+00_JPRB &
+  &, 0.295382E+00_JPRB, 0.283525E+00_JPRB, 0.271929E+00_JPRB &
+  &, 0.260596E+00_JPRB, 0.249525E+00_JPRB, 0.238715E+00_JPRB, 0.228206E+00_JPRB &
+  &, 0.217950E+00_JPRB, 0.207985E+00_JPRB, 0.198326E+00_JPRB &
+  &, 0.188941E+00_JPRB, 0.179839E+00_JPRB, 0.171032E+00_JPRB, 0.162505E+00_JPRB &
+  &, 0.154289E+00_JPRB, 0.146340E+00_JPRB, 0.138688E+00_JPRB &
+  &, 0.131338E+00_JPRB, 0.124235E+00_JPRB, 0.117435E+00_JPRB, 0.110910E+00_JPRB &
+  &, 0.104626E+00_JPRB, 0.986378E-01_JPRB, 0.928797E-01_JPRB &
+  &, 0.874053E-01_JPRB, 0.821749E-01_JPRB, 0.771776E-01_JPRB, 0.724340E-01_JPRB &
+  &, 0.678973E-01_JPRB, 0.636201E-01_JPRB, 0.595171E-01_JPRB &
+  &, 0.556754E-01_JPRB, 0.520051E-01_JPRB, 0.485204E-01_JPRB, 0.452358E-01_JPRB &
+  &, 0.421279E-01_JPRB, 0.392102E-01_JPRB, 0.364565E-01_JPRB &
+  &, 0.338788E-01_JPRB, 0.314485E-01_JPRB, 0.291759E-01_JPRB, 0.270297E-01_JPRB &
+  &, 0.250186E-01_JPRB, 0.231082E-01_JPRB, 0.213499E-01_JPRB &
+  &, 0.197081E-01_JPRB, 0.181903E-01_JPRB, 0.167580E-01_JPRB, 0.154166E-01_JPRB &
+  &, 0.141721E-01_JPRB, 0.130301E-01_JPRB, 0.119477E-01_JPRB &
+  &, 0.109285E-01_JPRB, 0.100273E-01_JPRB, 0.919887E-02_JPRB, 0.839529E-02_JPRB &
+  &, 0.767130E-02_JPRB, 0.697754E-02_JPRB, 0.637040E-02_JPRB &
+  &, 0.579910E-02_JPRB, 0.526574E-02_JPRB, 0.482915E-02_JPRB, 0.437891E-02_JPRB &
+  &, 0.397314E-02_JPRB, 0.361407E-02_JPRB, 0.324410E-02_JPRB &
+  &, 0.292381E-02_JPRB, 0.265553E-02_JPRB, 0.237928E-02_JPRB, 0.215815E-02_JPRB &
+  &, 0.193055E-02_JPRB, 0.176127E-02_JPRB, 0.158707E-02_JPRB/)
+XCW( 517, :) = (/ &
+  &  0.100081E+01_JPRB, 0.999968E+00_JPRB, 0.998708E+00_JPRB, 0.997032E+00_JPRB &
+  &, 0.994939E+00_JPRB, 0.992432E+00_JPRB, 0.989508E+00_JPRB &
+  &, 0.986171E+00_JPRB, 0.982422E+00_JPRB, 0.978261E+00_JPRB, 0.973692E+00_JPRB &
+  &, 0.968717E+00_JPRB, 0.963337E+00_JPRB, 0.957557E+00_JPRB &
+  &, 0.951380E+00_JPRB, 0.944807E+00_JPRB, 0.937843E+00_JPRB, 0.930493E+00_JPRB &
+  &, 0.922763E+00_JPRB, 0.914654E+00_JPRB, 0.906178E+00_JPRB &
+  &, 0.897335E+00_JPRB, 0.888135E+00_JPRB, 0.878585E+00_JPRB, 0.868693E+00_JPRB &
+  &, 0.858465E+00_JPRB, 0.847911E+00_JPRB, 0.837040E+00_JPRB &
+  &, 0.825862E+00_JPRB, 0.814388E+00_JPRB, 0.802626E+00_JPRB, 0.790593E+00_JPRB &
+  &, 0.778296E+00_JPRB, 0.765746E+00_JPRB, 0.752962E+00_JPRB &
+  &, 0.739956E+00_JPRB, 0.726738E+00_JPRB, 0.713315E+00_JPRB, 0.699729E+00_JPRB &
+  &, 0.685966E+00_JPRB, 0.672056E+00_JPRB, 0.658009E+00_JPRB &
+  &, 0.643839E+00_JPRB, 0.629564E+00_JPRB, 0.615213E+00_JPRB, 0.600784E+00_JPRB &
+  &, 0.586299E+00_JPRB, 0.571783E+00_JPRB, 0.557237E+00_JPRB &
+  &, 0.542698E+00_JPRB, 0.528157E+00_JPRB, 0.513655E+00_JPRB, 0.499193E+00_JPRB &
+  &, 0.484788E+00_JPRB, 0.470455E+00_JPRB, 0.456210E+00_JPRB &
+  &, 0.442083E+00_JPRB, 0.428060E+00_JPRB, 0.414186E+00_JPRB, 0.400443E+00_JPRB &
+  &, 0.386879E+00_JPRB, 0.373472E+00_JPRB, 0.360251E+00_JPRB &
+  &, 0.347246E+00_JPRB, 0.334429E+00_JPRB, 0.321828E+00_JPRB, 0.309470E+00_JPRB &
+  &, 0.297341E+00_JPRB, 0.285446E+00_JPRB, 0.273809E+00_JPRB &
+  &, 0.262430E+00_JPRB, 0.251333E+00_JPRB, 0.240495E+00_JPRB, 0.229934E+00_JPRB &
+  &, 0.219645E+00_JPRB, 0.209644E+00_JPRB, 0.199924E+00_JPRB &
+  &, 0.190497E+00_JPRB, 0.181352E+00_JPRB, 0.172500E+00_JPRB, 0.163949E+00_JPRB &
+  &, 0.155683E+00_JPRB, 0.147707E+00_JPRB, 0.140000E+00_JPRB &
+  &, 0.132591E+00_JPRB, 0.125455E+00_JPRB, 0.118621E+00_JPRB, 0.112029E+00_JPRB &
+  &, 0.105736E+00_JPRB, 0.996763E-01_JPRB, 0.939060E-01_JPRB &
+  &, 0.883869E-01_JPRB, 0.831097E-01_JPRB, 0.780963E-01_JPRB, 0.733022E-01_JPRB &
+  &, 0.687127E-01_JPRB, 0.643806E-01_JPRB, 0.602909E-01_JPRB &
+  &, 0.563552E-01_JPRB, 0.526600E-01_JPRB, 0.491494E-01_JPRB, 0.458378E-01_JPRB &
+  &, 0.427400E-01_JPRB, 0.397935E-01_JPRB, 0.370099E-01_JPRB &
+  &, 0.343609E-01_JPRB, 0.318976E-01_JPRB, 0.295908E-01_JPRB, 0.274091E-01_JPRB &
+  &, 0.254040E-01_JPRB, 0.234997E-01_JPRB, 0.217033E-01_JPRB &
+  &, 0.200222E-01_JPRB, 0.184637E-01_JPRB, 0.170356E-01_JPRB, 0.156985E-01_JPRB &
+  &, 0.144105E-01_JPRB, 0.132721E-01_JPRB, 0.121442E-01_JPRB &
+  &, 0.111778E-01_JPRB, 0.102297E-01_JPRB, 0.935288E-02_JPRB, 0.855154E-02_JPRB &
+  &, 0.782981E-02_JPRB, 0.713833E-02_JPRB, 0.653349E-02_JPRB &
+  &, 0.590937E-02_JPRB, 0.537756E-02_JPRB, 0.488585E-02_JPRB, 0.443640E-02_JPRB &
+  &, 0.403142E-02_JPRB, 0.367315E-02_JPRB, 0.330399E-02_JPRB &
+  &, 0.298451E-02_JPRB, 0.271705E-02_JPRB, 0.244163E-02_JPRB, 0.222133E-02_JPRB &
+  &, 0.199457E-02_JPRB, 0.176127E-02_JPRB, 0.158707E-02_JPRB/)
+XCW( 518, :) = (/ &
+  &  0.100106E+01_JPRB, 0.100028E+01_JPRB, 0.999084E+00_JPRB, 0.997471E+00_JPRB &
+  &, 0.995441E+00_JPRB, 0.992995E+00_JPRB, 0.990132E+00_JPRB &
+  &, 0.986855E+00_JPRB, 0.983167E+00_JPRB, 0.979069E+00_JPRB, 0.974559E+00_JPRB &
+  &, 0.969643E+00_JPRB, 0.964322E+00_JPRB, 0.958600E+00_JPRB &
+  &, 0.952478E+00_JPRB, 0.945962E+00_JPRB, 0.939054E+00_JPRB, 0.931760E+00_JPRB &
+  &, 0.924083E+00_JPRB, 0.916027E+00_JPRB, 0.907602E+00_JPRB &
+  &, 0.898810E+00_JPRB, 0.889661E+00_JPRB, 0.880161E+00_JPRB, 0.870313E+00_JPRB &
+  &, 0.860131E+00_JPRB, 0.849621E+00_JPRB, 0.838795E+00_JPRB &
+  &, 0.827656E+00_JPRB, 0.816223E+00_JPRB, 0.804503E+00_JPRB, 0.792504E+00_JPRB &
+  &, 0.780242E+00_JPRB, 0.767728E+00_JPRB, 0.754976E+00_JPRB &
+  &, 0.741993E+00_JPRB, 0.728807E+00_JPRB, 0.715417E+00_JPRB, 0.701845E+00_JPRB &
+  &, 0.686799E+00_JPRB, 0.674216E+00_JPRB, 0.660191E+00_JPRB &
+  &, 0.646043E+00_JPRB, 0.631789E+00_JPRB, 0.617435E+00_JPRB, 0.603025E+00_JPRB &
+  &, 0.588548E+00_JPRB, 0.574037E+00_JPRB, 0.559494E+00_JPRB &
+  &, 0.544958E+00_JPRB, 0.530418E+00_JPRB, 0.515915E+00_JPRB, 0.501437E+00_JPRB &
+  &, 0.487028E+00_JPRB, 0.472689E+00_JPRB, 0.458436E+00_JPRB &
+  &, 0.444299E+00_JPRB, 0.430264E+00_JPRB, 0.416360E+00_JPRB, 0.402618E+00_JPRB &
+  &, 0.389018E+00_JPRB, 0.375590E+00_JPRB, 0.362364E+00_JPRB &
+  &, 0.349314E+00_JPRB, 0.336470E+00_JPRB, 0.323857E+00_JPRB, 0.311446E+00_JPRB &
+  &, 0.299280E+00_JPRB, 0.287367E+00_JPRB, 0.275708E+00_JPRB &
+  &, 0.264286E+00_JPRB, 0.253142E+00_JPRB, 0.242276E+00_JPRB, 0.231662E+00_JPRB &
+  &, 0.221339E+00_JPRB, 0.211303E+00_JPRB, 0.201545E+00_JPRB &
+  &, 0.192078E+00_JPRB, 0.182890E+00_JPRB, 0.173992E+00_JPRB, 0.165394E+00_JPRB &
+  &, 0.157077E+00_JPRB, 0.149074E+00_JPRB, 0.141339E+00_JPRB &
+  &, 0.133872E+00_JPRB, 0.126703E+00_JPRB, 0.119806E+00_JPRB, 0.113177E+00_JPRB &
+  &, 0.106845E+00_JPRB, 0.100745E+00_JPRB, 0.949324E-01_JPRB &
+  &, 0.893685E-01_JPRB, 0.840445E-01_JPRB, 0.789821E-01_JPRB, 0.741703E-01_JPRB &
+  &, 0.695622E-01_JPRB, 0.651757E-01_JPRB, 0.610294E-01_JPRB &
+  &, 0.571064E-01_JPRB, 0.533514E-01_JPRB, 0.498154E-01_JPRB, 0.464774E-01_JPRB &
+  &, 0.433138E-01_JPRB, 0.403379E-01_JPRB, 0.375238E-01_JPRB &
+  &, 0.348832E-01_JPRB, 0.323875E-01_JPRB, 0.300472E-01_JPRB, 0.278306E-01_JPRB &
+  &, 0.257894E-01_JPRB, 0.238477E-01_JPRB, 0.220568E-01_JPRB &
+  &, 0.203811E-01_JPRB, 0.187827E-01_JPRB, 0.173132E-01_JPRB, 0.159333E-01_JPRB &
+  &, 0.146489E-01_JPRB, 0.134657E-01_JPRB, 0.123898E-01_JPRB &
+  &, 0.113772E-01_JPRB, 0.104320E-01_JPRB, 0.955822E-02_JPRB, 0.870778E-02_JPRB &
+  &, 0.798832E-02_JPRB, 0.729912E-02_JPRB, 0.664221E-02_JPRB &
+  &, 0.607477E-02_JPRB, 0.548939E-02_JPRB, 0.499924E-02_JPRB, 0.455137E-02_JPRB &
+  &, 0.414798E-02_JPRB, 0.373223E-02_JPRB, 0.342377E-02_JPRB &
+  &, 0.304522E-02_JPRB, 0.277858E-02_JPRB, 0.250398E-02_JPRB, 0.228451E-02_JPRB &
+  &, 0.205859E-02_JPRB, 0.182613E-02_JPRB, 0.165278E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART74',1,ZHOOK_HANDLE)
+END SUBROUTINE PART74
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART75
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART75',0,ZHOOK_HANDLE)
+
+XCW( 519, :) = (/ &
+  &  0.100131E+01_JPRB, 0.100060E+01_JPRB, 0.999460E+00_JPRB, 0.997911E+00_JPRB &
+  &, 0.995940E+00_JPRB, 0.993558E+00_JPRB, 0.990758E+00_JPRB &
+  &, 0.987543E+00_JPRB, 0.983915E+00_JPRB, 0.979876E+00_JPRB, 0.975427E+00_JPRB &
+  &, 0.970569E+00_JPRB, 0.965308E+00_JPRB, 0.959643E+00_JPRB &
+  &, 0.953579E+00_JPRB, 0.947119E+00_JPRB, 0.940267E+00_JPRB, 0.933027E+00_JPRB &
+  &, 0.925404E+00_JPRB, 0.917401E+00_JPRB, 0.909028E+00_JPRB &
+  &, 0.900289E+00_JPRB, 0.891188E+00_JPRB, 0.881736E+00_JPRB, 0.871937E+00_JPRB &
+  &, 0.861801E+00_JPRB, 0.851335E+00_JPRB, 0.840551E+00_JPRB &
+  &, 0.829459E+00_JPRB, 0.818062E+00_JPRB, 0.806380E+00_JPRB, 0.794420E+00_JPRB &
+  &, 0.782193E+00_JPRB, 0.769715E+00_JPRB, 0.756994E+00_JPRB &
+  &, 0.744048E+00_JPRB, 0.730886E+00_JPRB, 0.717520E+00_JPRB, 0.703980E+00_JPRB &
+  &, 0.690263E+00_JPRB, 0.676387E+00_JPRB, 0.662384E+00_JPRB &
+  &, 0.648247E+00_JPRB, 0.634013E+00_JPRB, 0.619680E+00_JPRB, 0.605267E+00_JPRB &
+  &, 0.590808E+00_JPRB, 0.576303E+00_JPRB, 0.561765E+00_JPRB &
+  &, 0.547218E+00_JPRB, 0.532693E+00_JPRB, 0.518175E+00_JPRB, 0.503710E+00_JPRB &
+  &, 0.489282E+00_JPRB, 0.474937E+00_JPRB, 0.460677E+00_JPRB &
+  &, 0.446515E+00_JPRB, 0.432468E+00_JPRB, 0.418566E+00_JPRB, 0.404792E+00_JPRB &
+  &, 0.391174E+00_JPRB, 0.377725E+00_JPRB, 0.364458E+00_JPRB &
+  &, 0.351401E+00_JPRB, 0.338528E+00_JPRB, 0.325885E+00_JPRB, 0.313441E+00_JPRB &
+  &, 0.301260E+00_JPRB, 0.289308E+00_JPRB, 0.277608E+00_JPRB &
+  &, 0.266163E+00_JPRB, 0.254972E+00_JPRB, 0.244056E+00_JPRB, 0.233412E+00_JPRB &
+  &, 0.223057E+00_JPRB, 0.212962E+00_JPRB, 0.203166E+00_JPRB &
+  &, 0.193659E+00_JPRB, 0.184429E+00_JPRB, 0.175510E+00_JPRB, 0.166864E+00_JPRB &
+  &, 0.158497E+00_JPRB, 0.150442E+00_JPRB, 0.142650E+00_JPRB &
+  &, 0.135153E+00_JPRB, 0.127952E+00_JPRB, 0.121020E+00_JPRB, 0.114355E+00_JPRB &
+  &, 0.107955E+00_JPRB, 0.101845E+00_JPRB, 0.959587E-01_JPRB &
+  &, 0.903501E-01_JPRB, 0.850115E-01_JPRB, 0.799008E-01_JPRB, 0.750385E-01_JPRB &
+  &, 0.703776E-01_JPRB, 0.659709E-01_JPRB, 0.618032E-01_JPRB &
+  &, 0.578219E-01_JPRB, 0.540427E-01_JPRB, 0.504815E-01_JPRB, 0.471170E-01_JPRB &
+  &, 0.439259E-01_JPRB, 0.408824E-01_JPRB, 0.380772E-01_JPRB &
+  &, 0.353653E-01_JPRB, 0.328775E-01_JPRB, 0.305035E-01_JPRB, 0.282943E-01_JPRB &
+  &, 0.261748E-01_JPRB, 0.242392E-01_JPRB, 0.224102E-01_JPRB &
+  &, 0.206952E-01_JPRB, 0.191016E-01_JPRB, 0.175907E-01_JPRB, 0.162151E-01_JPRB &
+  &, 0.149350E-01_JPRB, 0.137078E-01_JPRB, 0.125863E-01_JPRB &
+  &, 0.115767E-01_JPRB, 0.106344E-01_JPRB, 0.971222E-02_JPRB, 0.891611E-02_JPRB &
+  &, 0.814683E-02_JPRB, 0.740632E-02_JPRB, 0.675094E-02_JPRB &
+  &, 0.618504E-02_JPRB, 0.560121E-02_JPRB, 0.511263E-02_JPRB, 0.466634E-02_JPRB &
+  &, 0.420626E-02_JPRB, 0.385040E-02_JPRB, 0.348366E-02_JPRB &
+  &, 0.316663E-02_JPRB, 0.284010E-02_JPRB, 0.256633E-02_JPRB, 0.234769E-02_JPRB &
+  &, 0.212261E-02_JPRB, 0.189099E-02_JPRB, 0.171849E-02_JPRB/)
+XCW( 520, :) = (/ &
+  &  0.100156E+01_JPRB, 0.100091E+01_JPRB, 0.999837E+00_JPRB, 0.998349E+00_JPRB &
+  &, 0.996444E+00_JPRB, 0.994122E+00_JPRB, 0.991383E+00_JPRB &
+  &, 0.988229E+00_JPRB, 0.984663E+00_JPRB, 0.980684E+00_JPRB, 0.976294E+00_JPRB &
+  &, 0.971497E+00_JPRB, 0.966294E+00_JPRB, 0.960687E+00_JPRB &
+  &, 0.954681E+00_JPRB, 0.948277E+00_JPRB, 0.941482E+00_JPRB, 0.934297E+00_JPRB &
+  &, 0.926727E+00_JPRB, 0.918778E+00_JPRB, 0.910455E+00_JPRB &
+  &, 0.901767E+00_JPRB, 0.892717E+00_JPRB, 0.883312E+00_JPRB, 0.873560E+00_JPRB &
+  &, 0.863470E+00_JPRB, 0.853052E+00_JPRB, 0.842310E+00_JPRB &
+  &, 0.831257E+00_JPRB, 0.819906E+00_JPRB, 0.808260E+00_JPRB, 0.796339E+00_JPRB &
+  &, 0.784148E+00_JPRB, 0.771701E+00_JPRB, 0.759017E+00_JPRB &
+  &, 0.746095E+00_JPRB, 0.732965E+00_JPRB, 0.719632E+00_JPRB, 0.706105E+00_JPRB &
+  &, 0.692421E+00_JPRB, 0.678568E+00_JPRB, 0.664577E+00_JPRB &
+  &, 0.650462E+00_JPRB, 0.636238E+00_JPRB, 0.621914E+00_JPRB, 0.607521E+00_JPRB &
+  &, 0.593069E+00_JPRB, 0.578569E+00_JPRB, 0.564035E+00_JPRB &
+  &, 0.549492E+00_JPRB, 0.534967E+00_JPRB, 0.520450E+00_JPRB, 0.505968E+00_JPRB &
+  &, 0.491551E+00_JPRB, 0.477201E+00_JPRB, 0.462918E+00_JPRB &
+  &, 0.448747E+00_JPRB, 0.434688E+00_JPRB, 0.420757E+00_JPRB, 0.406966E+00_JPRB &
+  &, 0.393347E+00_JPRB, 0.379878E+00_JPRB, 0.366588E+00_JPRB &
+  &, 0.353488E+00_JPRB, 0.340587E+00_JPRB, 0.327914E+00_JPRB, 0.315455E+00_JPRB &
+  &, 0.303239E+00_JPRB, 0.291249E+00_JPRB, 0.279508E+00_JPRB &
+  &, 0.268019E+00_JPRB, 0.256803E+00_JPRB, 0.245859E+00_JPRB, 0.235184E+00_JPRB &
+  &, 0.224774E+00_JPRB, 0.214645E+00_JPRB, 0.204811E+00_JPRB &
+  &, 0.195264E+00_JPRB, 0.185991E+00_JPRB, 0.177028E+00_JPRB, 0.168335E+00_JPRB &
+  &, 0.159944E+00_JPRB, 0.151809E+00_JPRB, 0.143989E+00_JPRB &
+  &, 0.136462E+00_JPRB, 0.129200E+00_JPRB, 0.122205E+00_JPRB, 0.115504E+00_JPRB &
+  &, 0.109095E+00_JPRB, 0.102914E+00_JPRB, 0.970162E-01_JPRB &
+  &, 0.913634E-01_JPRB, 0.859786E-01_JPRB, 0.808195E-01_JPRB, 0.759066E-01_JPRB &
+  &, 0.712271E-01_JPRB, 0.668006E-01_JPRB, 0.625769E-01_JPRB &
+  &, 0.585374E-01_JPRB, 0.547340E-01_JPRB, 0.511475E-01_JPRB, 0.477190E-01_JPRB &
+  &, 0.444997E-01_JPRB, 0.414657E-01_JPRB, 0.385911E-01_JPRB &
+  &, 0.358876E-01_JPRB, 0.333674E-01_JPRB, 0.309599E-01_JPRB, 0.287158E-01_JPRB &
+  &, 0.266031E-01_JPRB, 0.246307E-01_JPRB, 0.227637E-01_JPRB &
+  &, 0.210542E-01_JPRB, 0.194206E-01_JPRB, 0.179146E-01_JPRB, 0.164970E-01_JPRB &
+  &, 0.151734E-01_JPRB, 0.139498E-01_JPRB, 0.128319E-01_JPRB &
+  &, 0.117761E-01_JPRB, 0.107862E-01_JPRB, 0.991756E-02_JPRB, 0.907236E-02_JPRB &
+  &, 0.830533E-02_JPRB, 0.756710E-02_JPRB, 0.691403E-02_JPRB &
+  &, 0.629531E-02_JPRB, 0.576895E-02_JPRB, 0.522603E-02_JPRB, 0.478131E-02_JPRB &
+  &, 0.432282E-02_JPRB, 0.390948E-02_JPRB, 0.354355E-02_JPRB &
+  &, 0.322733E-02_JPRB, 0.290162E-02_JPRB, 0.262868E-02_JPRB, 0.234769E-02_JPRB &
+  &, 0.212261E-02_JPRB, 0.195585E-02_JPRB, 0.171849E-02_JPRB/)
+XCW( 521, :) = (/ &
+  &  0.100181E+01_JPRB, 0.100122E+01_JPRB, 0.100022E+01_JPRB, 0.998789E+00_JPRB &
+  &, 0.996946E+00_JPRB, 0.994686E+00_JPRB, 0.992008E+00_JPRB &
+  &, 0.988917E+00_JPRB, 0.985411E+00_JPRB, 0.981492E+00_JPRB, 0.977163E+00_JPRB &
+  &, 0.972425E+00_JPRB, 0.967280E+00_JPRB, 0.961731E+00_JPRB &
+  &, 0.955783E+00_JPRB, 0.949437E+00_JPRB, 0.942696E+00_JPRB, 0.935566E+00_JPRB &
+  &, 0.928052E+00_JPRB, 0.920158E+00_JPRB, 0.911885E+00_JPRB &
+  &, 0.903249E+00_JPRB, 0.894247E+00_JPRB, 0.884891E+00_JPRB, 0.875191E+00_JPRB &
+  &, 0.865147E+00_JPRB, 0.854769E+00_JPRB, 0.844073E+00_JPRB &
+  &, 0.833064E+00_JPRB, 0.821753E+00_JPRB, 0.810145E+00_JPRB, 0.798263E+00_JPRB &
+  &, 0.786107E+00_JPRB, 0.773697E+00_JPRB, 0.761040E+00_JPRB &
+  &, 0.748150E+00_JPRB, 0.735054E+00_JPRB, 0.721744E+00_JPRB, 0.708251E+00_JPRB &
+  &, 0.694580E+00_JPRB, 0.680750E+00_JPRB, 0.666781E+00_JPRB &
+  &, 0.652677E+00_JPRB, 0.638475E+00_JPRB, 0.624171E+00_JPRB, 0.609786E+00_JPRB &
+  &, 0.595329E+00_JPRB, 0.580835E+00_JPRB, 0.566318E+00_JPRB &
+  &, 0.551778E+00_JPRB, 0.537242E+00_JPRB, 0.522724E+00_JPRB, 0.508254E+00_JPRB &
+  &, 0.493820E+00_JPRB, 0.479464E+00_JPRB, 0.465174E+00_JPRB &
+  &, 0.450994E+00_JPRB, 0.436924E+00_JPRB, 0.422979E+00_JPRB, 0.409173E+00_JPRB &
+  &, 0.395520E+00_JPRB, 0.382031E+00_JPRB, 0.368718E+00_JPRB &
+  &, 0.355593E+00_JPRB, 0.342665E+00_JPRB, 0.329961E+00_JPRB, 0.317470E+00_JPRB &
+  &, 0.305218E+00_JPRB, 0.293210E+00_JPRB, 0.281428E+00_JPRB &
+  &, 0.269917E+00_JPRB, 0.258654E+00_JPRB, 0.247661E+00_JPRB, 0.236957E+00_JPRB &
+  &, 0.226515E+00_JPRB, 0.216351E+00_JPRB, 0.206457E+00_JPRB &
+  &, 0.196870E+00_JPRB, 0.187554E+00_JPRB, 0.178546E+00_JPRB, 0.169805E+00_JPRB &
+  &, 0.161364E+00_JPRB, 0.153203E+00_JPRB, 0.145356E+00_JPRB &
+  &, 0.137771E+00_JPRB, 0.130449E+00_JPRB, 0.123448E+00_JPRB, 0.116682E+00_JPRB &
+  &, 0.110204E+00_JPRB, 0.104014E+00_JPRB, 0.980737E-01_JPRB &
+  &, 0.923767E-01_JPRB, 0.869456E-01_JPRB, 0.817381E-01_JPRB, 0.768082E-01_JPRB &
+  &, 0.720765E-01_JPRB, 0.675957E-01_JPRB, 0.633506E-01_JPRB &
+  &, 0.592887E-01_JPRB, 0.554617E-01_JPRB, 0.518136E-01_JPRB, 0.483587E-01_JPRB &
+  &, 0.451118E-01_JPRB, 0.420491E-01_JPRB, 0.391445E-01_JPRB &
+  &, 0.364099E-01_JPRB, 0.338574E-01_JPRB, 0.314163E-01_JPRB, 0.291373E-01_JPRB &
+  &, 0.270313E-01_JPRB, 0.250222E-01_JPRB, 0.231171E-01_JPRB &
+  &, 0.213683E-01_JPRB, 0.197395E-01_JPRB, 0.182385E-01_JPRB, 0.167788E-01_JPRB &
+  &, 0.154595E-01_JPRB, 0.142402E-01_JPRB, 0.130776E-01_JPRB &
+  &, 0.120254E-01_JPRB, 0.109886E-01_JPRB, 0.100716E-01_JPRB, 0.922861E-02_JPRB &
+  &, 0.846384E-02_JPRB, 0.772789E-02_JPRB, 0.707711E-02_JPRB &
+  &, 0.646071E-02_JPRB, 0.588077E-02_JPRB, 0.533942E-02_JPRB, 0.483880E-02_JPRB &
+  &, 0.443939E-02_JPRB, 0.402765E-02_JPRB, 0.366333E-02_JPRB &
+  &, 0.328803E-02_JPRB, 0.296315E-02_JPRB, 0.269103E-02_JPRB, 0.241087E-02_JPRB &
+  &, 0.218662E-02_JPRB, 0.195585E-02_JPRB, 0.178420E-02_JPRB/)
+XCW( 522, :) = (/ &
+  &  0.100207E+01_JPRB, 0.100154E+01_JPRB, 0.100059E+01_JPRB, 0.999229E+00_JPRB &
+  &, 0.997448E+00_JPRB, 0.995249E+00_JPRB, 0.992635E+00_JPRB &
+  &, 0.989604E+00_JPRB, 0.986159E+00_JPRB, 0.982302E+00_JPRB, 0.978033E+00_JPRB &
+  &, 0.973354E+00_JPRB, 0.968267E+00_JPRB, 0.962779E+00_JPRB &
+  &, 0.956887E+00_JPRB, 0.950597E+00_JPRB, 0.943908E+00_JPRB, 0.936838E+00_JPRB &
+  &, 0.929378E+00_JPRB, 0.921535E+00_JPRB, 0.913318E+00_JPRB &
+  &, 0.904731E+00_JPRB, 0.895783E+00_JPRB, 0.886474E+00_JPRB, 0.876818E+00_JPRB &
+  &, 0.866824E+00_JPRB, 0.856494E+00_JPRB, 0.845840E+00_JPRB &
+  &, 0.834870E+00_JPRB, 0.823600E+00_JPRB, 0.812035E+00_JPRB, 0.800187E+00_JPRB &
+  &, 0.788070E+00_JPRB, 0.775692E+00_JPRB, 0.763072E+00_JPRB &
+  &, 0.750215E+00_JPRB, 0.737142E+00_JPRB, 0.723856E+00_JPRB, 0.710386E+00_JPRB &
+  &, 0.696749E+00_JPRB, 0.682941E+00_JPRB, 0.668985E+00_JPRB &
+  &, 0.654903E+00_JPRB, 0.640711E+00_JPRB, 0.626417E+00_JPRB, 0.612052E+00_JPRB &
+  &, 0.597614E+00_JPRB, 0.583126E+00_JPRB, 0.568601E+00_JPRB &
+  &, 0.554064E+00_JPRB, 0.539530E+00_JPRB, 0.525026E+00_JPRB, 0.510541E+00_JPRB &
+  &, 0.496103E+00_JPRB, 0.481728E+00_JPRB, 0.467445E+00_JPRB &
+  &, 0.453241E+00_JPRB, 0.439160E+00_JPRB, 0.425202E+00_JPRB, 0.411364E+00_JPRB &
+  &, 0.397693E+00_JPRB, 0.384183E+00_JPRB, 0.370848E+00_JPRB &
+  &, 0.357698E+00_JPRB, 0.344761E+00_JPRB, 0.332027E+00_JPRB, 0.319504E+00_JPRB &
+  &, 0.307217E+00_JPRB, 0.295171E+00_JPRB, 0.283349E+00_JPRB &
+  &, 0.271815E+00_JPRB, 0.260506E+00_JPRB, 0.249486E+00_JPRB, 0.238730E+00_JPRB &
+  &, 0.228255E+00_JPRB, 0.218033E+00_JPRB, 0.208126E+00_JPRB &
+  &, 0.198499E+00_JPRB, 0.189142E+00_JPRB, 0.180090E+00_JPRB, 0.171301E+00_JPRB &
+  &, 0.162810E+00_JPRB, 0.154624E+00_JPRB, 0.146722E+00_JPRB &
+  &, 0.139079E+00_JPRB, 0.131726E+00_JPRB, 0.124662E+00_JPRB, 0.117889E+00_JPRB &
+  &, 0.111374E+00_JPRB, 0.105113E+00_JPRB, 0.991311E-01_JPRB &
+  &, 0.933900E-01_JPRB, 0.879126E-01_JPRB, 0.826896E-01_JPRB, 0.777097E-01_JPRB &
+  &, 0.729600E-01_JPRB, 0.684254E-01_JPRB, 0.641244E-01_JPRB &
+  &, 0.600400E-01_JPRB, 0.561894E-01_JPRB, 0.525166E-01_JPRB, 0.490359E-01_JPRB &
+  &, 0.457238E-01_JPRB, 0.426324E-01_JPRB, 0.396979E-01_JPRB &
+  &, 0.369322E-01_JPRB, 0.343473E-01_JPRB, 0.318726E-01_JPRB, 0.296010E-01_JPRB &
+  &, 0.274167E-01_JPRB, 0.254137E-01_JPRB, 0.235148E-01_JPRB &
+  &, 0.217273E-01_JPRB, 0.200585E-01_JPRB, 0.185161E-01_JPRB, 0.170606E-01_JPRB &
+  &, 0.157456E-01_JPRB, 0.144822E-01_JPRB, 0.133232E-01_JPRB &
+  &, 0.122248E-01_JPRB, 0.112415E-01_JPRB, 0.102769E-01_JPRB, 0.943694E-02_JPRB &
+  &, 0.862235E-02_JPRB, 0.788868E-02_JPRB, 0.718584E-02_JPRB &
+  &, 0.657098E-02_JPRB, 0.599260E-02_JPRB, 0.545281E-02_JPRB, 0.495377E-02_JPRB &
+  &, 0.449767E-02_JPRB, 0.408673E-02_JPRB, 0.372323E-02_JPRB &
+  &, 0.334874E-02_JPRB, 0.302467E-02_JPRB, 0.275338E-02_JPRB, 0.247406E-02_JPRB &
+  &, 0.225064E-02_JPRB, 0.202071E-02_JPRB, 0.184991E-02_JPRB/)
+XCW( 523, :) = (/ &
+  &  0.100232E+01_JPRB, 0.100185E+01_JPRB, 0.100097E+01_JPRB, 0.999669E+00_JPRB &
+  &, 0.997950E+00_JPRB, 0.995814E+00_JPRB, 0.993261E+00_JPRB &
+  &, 0.990292E+00_JPRB, 0.986908E+00_JPRB, 0.983111E+00_JPRB, 0.978902E+00_JPRB &
+  &, 0.974283E+00_JPRB, 0.969256E+00_JPRB, 0.963824E+00_JPRB &
+  &, 0.957991E+00_JPRB, 0.951758E+00_JPRB, 0.945130E+00_JPRB, 0.938112E+00_JPRB &
+  &, 0.930705E+00_JPRB, 0.922918E+00_JPRB, 0.914752E+00_JPRB &
+  &, 0.906217E+00_JPRB, 0.897316E+00_JPRB, 0.888060E+00_JPRB, 0.878452E+00_JPRB &
+  &, 0.868501E+00_JPRB, 0.858211E+00_JPRB, 0.847607E+00_JPRB &
+  &, 0.836685E+00_JPRB, 0.825451E+00_JPRB, 0.813928E+00_JPRB, 0.802119E+00_JPRB &
+  &, 0.790034E+00_JPRB, 0.777687E+00_JPRB, 0.765104E+00_JPRB &
+  &, 0.752280E+00_JPRB, 0.739231E+00_JPRB, 0.725978E+00_JPRB, 0.712542E+00_JPRB &
+  &, 0.698918E+00_JPRB, 0.685133E+00_JPRB, 0.671200E+00_JPRB &
+  &, 0.657140E+00_JPRB, 0.642959E+00_JPRB, 0.628686E+00_JPRB, 0.614317E+00_JPRB &
+  &, 0.599887E+00_JPRB, 0.585405E+00_JPRB, 0.570897E+00_JPRB &
+  &, 0.556364E+00_JPRB, 0.541831E+00_JPRB, 0.527314E+00_JPRB, 0.512827E+00_JPRB &
+  &, 0.498386E+00_JPRB, 0.484006E+00_JPRB, 0.469717E+00_JPRB &
+  &, 0.455504E+00_JPRB, 0.441396E+00_JPRB, 0.427425E+00_JPRB, 0.413588E+00_JPRB &
+  &, 0.399882E+00_JPRB, 0.386353E+00_JPRB, 0.372996E+00_JPRB &
+  &, 0.359821E+00_JPRB, 0.346857E+00_JPRB, 0.334094E+00_JPRB, 0.321538E+00_JPRB &
+  &, 0.309216E+00_JPRB, 0.297132E+00_JPRB, 0.285290E+00_JPRB &
+  &, 0.273713E+00_JPRB, 0.262379E+00_JPRB, 0.251310E+00_JPRB, 0.240525E+00_JPRB &
+  &, 0.229996E+00_JPRB, 0.219763E+00_JPRB, 0.209794E+00_JPRB &
+  &, 0.200129E+00_JPRB, 0.190730E+00_JPRB, 0.181633E+00_JPRB, 0.172797E+00_JPRB &
+  &, 0.164283E+00_JPRB, 0.156045E+00_JPRB, 0.148088E+00_JPRB &
+  &, 0.140416E+00_JPRB, 0.133031E+00_JPRB, 0.125905E+00_JPRB, 0.119067E+00_JPRB &
+  &, 0.112514E+00_JPRB, 0.106213E+00_JPRB, 0.100189E+00_JPRB &
+  &, 0.944349E-01_JPRB, 0.889119E-01_JPRB, 0.836411E-01_JPRB, 0.786113E-01_JPRB &
+  &, 0.738094E-01_JPRB, 0.692551E-01_JPRB, 0.649333E-01_JPRB &
+  &, 0.607912E-01_JPRB, 0.568808E-01_JPRB, 0.531827E-01_JPRB, 0.496756E-01_JPRB &
+  &, 0.463741E-01_JPRB, 0.432157E-01_JPRB, 0.402513E-01_JPRB &
+  &, 0.374545E-01_JPRB, 0.348373E-01_JPRB, 0.323705E-01_JPRB, 0.300225E-01_JPRB &
+  &, 0.278449E-01_JPRB, 0.258052E-01_JPRB, 0.238682E-01_JPRB &
+  &, 0.220862E-01_JPRB, 0.204230E-01_JPRB, 0.188399E-01_JPRB, 0.173894E-01_JPRB &
+  &, 0.159840E-01_JPRB, 0.147242E-01_JPRB, 0.135688E-01_JPRB &
+  &, 0.124242E-01_JPRB, 0.114439E-01_JPRB, 0.104822E-01_JPRB, 0.959319E-02_JPRB &
+  &, 0.878086E-02_JPRB, 0.804947E-02_JPRB, 0.734893E-02_JPRB &
+  &, 0.668125E-02_JPRB, 0.610442E-02_JPRB, 0.556620E-02_JPRB, 0.506874E-02_JPRB &
+  &, 0.461423E-02_JPRB, 0.420490E-02_JPRB, 0.378312E-02_JPRB &
+  &, 0.347015E-02_JPRB, 0.314772E-02_JPRB, 0.281572E-02_JPRB, 0.253724E-02_JPRB &
+  &, 0.231466E-02_JPRB, 0.208558E-02_JPRB, 0.184991E-02_JPRB/)
+XCW( 524, :) = (/ &
+  &  0.100257E+01_JPRB, 0.100217E+01_JPRB, 0.100135E+01_JPRB, 0.100011E+01_JPRB &
+  &, 0.998453E+00_JPRB, 0.996379E+00_JPRB, 0.993888E+00_JPRB &
+  &, 0.990980E+00_JPRB, 0.987657E+00_JPRB, 0.983921E+00_JPRB, 0.979773E+00_JPRB &
+  &, 0.975213E+00_JPRB, 0.970246E+00_JPRB, 0.964873E+00_JPRB &
+  &, 0.959096E+00_JPRB, 0.952921E+00_JPRB, 0.946350E+00_JPRB, 0.939385E+00_JPRB &
+  &, 0.932034E+00_JPRB, 0.924298E+00_JPRB, 0.916188E+00_JPRB &
+  &, 0.907702E+00_JPRB, 0.898852E+00_JPRB, 0.889646E+00_JPRB, 0.880086E+00_JPRB &
+  &, 0.870181E+00_JPRB, 0.859944E+00_JPRB, 0.849378E+00_JPRB &
+  &, 0.838495E+00_JPRB, 0.827306E+00_JPRB, 0.815821E+00_JPRB, 0.804051E+00_JPRB &
+  &, 0.792006E+00_JPRB, 0.779700E+00_JPRB, 0.767141E+00_JPRB &
+  &, 0.754345E+00_JPRB, 0.741329E+00_JPRB, 0.728109E+00_JPRB, 0.714687E+00_JPRB &
+  &, 0.701097E+00_JPRB, 0.687325E+00_JPRB, 0.673414E+00_JPRB &
+  &, 0.659377E+00_JPRB, 0.645206E+00_JPRB, 0.630943E+00_JPRB, 0.616595E+00_JPRB &
+  &, 0.602172E+00_JPRB, 0.587709E+00_JPRB, 0.573193E+00_JPRB &
+  &, 0.558676E+00_JPRB, 0.544133E+00_JPRB, 0.529616E+00_JPRB, 0.515128E+00_JPRB &
+  &, 0.500684E+00_JPRB, 0.486299E+00_JPRB, 0.471988E+00_JPRB &
+  &, 0.457766E+00_JPRB, 0.443664E+00_JPRB, 0.429664E+00_JPRB, 0.415796E+00_JPRB &
+  &, 0.402089E+00_JPRB, 0.388541E+00_JPRB, 0.375162E+00_JPRB &
+  &, 0.361963E+00_JPRB, 0.348953E+00_JPRB, 0.336160E+00_JPRB, 0.323592E+00_JPRB &
+  &, 0.311235E+00_JPRB, 0.299113E+00_JPRB, 0.287252E+00_JPRB &
+  &, 0.275632E+00_JPRB, 0.264253E+00_JPRB, 0.253157E+00_JPRB, 0.242320E+00_JPRB &
+  &, 0.231759E+00_JPRB, 0.221468E+00_JPRB, 0.211487E+00_JPRB &
+  &, 0.201758E+00_JPRB, 0.192317E+00_JPRB, 0.183176E+00_JPRB, 0.174320E+00_JPRB &
+  &, 0.165756E+00_JPRB, 0.157466E+00_JPRB, 0.149454E+00_JPRB &
+  &, 0.141753E+00_JPRB, 0.134308E+00_JPRB, 0.127177E+00_JPRB, 0.120304E+00_JPRB &
+  &, 0.113684E+00_JPRB, 0.107343E+00_JPRB, 0.101277E+00_JPRB &
+  &, 0.954799E-01_JPRB, 0.899111E-01_JPRB, 0.845925E-01_JPRB, 0.795462E-01_JPRB &
+  &, 0.746928E-01_JPRB, 0.701194E-01_JPRB, 0.657422E-01_JPRB &
+  &, 0.615783E-01_JPRB, 0.576449E-01_JPRB, 0.538857E-01_JPRB, 0.503528E-01_JPRB &
+  &, 0.469862E-01_JPRB, 0.438379E-01_JPRB, 0.408443E-01_JPRB &
+  &, 0.380170E-01_JPRB, 0.353681E-01_JPRB, 0.328683E-01_JPRB, 0.304862E-01_JPRB &
+  &, 0.282731E-01_JPRB, 0.261967E-01_JPRB, 0.242659E-01_JPRB &
+  &, 0.224452E-01_JPRB, 0.207420E-01_JPRB, 0.191638E-01_JPRB, 0.176713E-01_JPRB &
+  &, 0.162701E-01_JPRB, 0.150146E-01_JPRB, 0.138144E-01_JPRB &
+  &, 0.126735E-01_JPRB, 0.116463E-01_JPRB, 0.106876E-01_JPRB, 0.980152E-02_JPRB &
+  &, 0.893937E-02_JPRB, 0.821026E-02_JPRB, 0.751201E-02_JPRB &
+  &, 0.684665E-02_JPRB, 0.621625E-02_JPRB, 0.567959E-02_JPRB, 0.518371E-02_JPRB &
+  &, 0.473079E-02_JPRB, 0.426398E-02_JPRB, 0.390290E-02_JPRB &
+  &, 0.353085E-02_JPRB, 0.320924E-02_JPRB, 0.287807E-02_JPRB, 0.260042E-02_JPRB &
+  &, 0.237868E-02_JPRB, 0.215044E-02_JPRB, 0.191562E-02_JPRB/)
+XCW( 525, :) = (/ &
+  &  0.100282E+01_JPRB, 0.100248E+01_JPRB, 0.100172E+01_JPRB, 0.100055E+01_JPRB &
+  &, 0.998956E+00_JPRB, 0.996944E+00_JPRB, 0.994515E+00_JPRB &
+  &, 0.991670E+00_JPRB, 0.988407E+00_JPRB, 0.984732E+00_JPRB, 0.980644E+00_JPRB &
+  &, 0.976144E+00_JPRB, 0.971236E+00_JPRB, 0.965921E+00_JPRB &
+  &, 0.960203E+00_JPRB, 0.954084E+00_JPRB, 0.947569E+00_JPRB, 0.940661E+00_JPRB &
+  &, 0.933363E+00_JPRB, 0.925684E+00_JPRB, 0.917624E+00_JPRB &
+  &, 0.909191E+00_JPRB, 0.900392E+00_JPRB, 0.891235E+00_JPRB, 0.881724E+00_JPRB &
+  &, 0.871865E+00_JPRB, 0.861672E+00_JPRB, 0.851152E+00_JPRB &
+  &, 0.840313E+00_JPRB, 0.829165E+00_JPRB, 0.817718E+00_JPRB, 0.805988E+00_JPRB &
+  &, 0.793978E+00_JPRB, 0.781704E+00_JPRB, 0.769182E+00_JPRB &
+  &, 0.756419E+00_JPRB, 0.743437E+00_JPRB, 0.730241E+00_JPRB, 0.716843E+00_JPRB &
+  &, 0.703276E+00_JPRB, 0.689538E+00_JPRB, 0.675640E+00_JPRB &
+  &, 0.661614E+00_JPRB, 0.647465E+00_JPRB, 0.633223E+00_JPRB, 0.618884E+00_JPRB &
+  &, 0.604469E+00_JPRB, 0.590012E+00_JPRB, 0.575502E+00_JPRB &
+  &, 0.560976E+00_JPRB, 0.546447E+00_JPRB, 0.531932E+00_JPRB, 0.517443E+00_JPRB &
+  &, 0.502982E+00_JPRB, 0.488592E+00_JPRB, 0.474275E+00_JPRB &
+  &, 0.460044E+00_JPRB, 0.445916E+00_JPRB, 0.431903E+00_JPRB, 0.418036E+00_JPRB &
+  &, 0.404296E+00_JPRB, 0.390728E+00_JPRB, 0.377327E+00_JPRB &
+  &, 0.364104E+00_JPRB, 0.351068E+00_JPRB, 0.338245E+00_JPRB, 0.325645E+00_JPRB &
+  &, 0.313273E+00_JPRB, 0.301115E+00_JPRB, 0.289214E+00_JPRB &
+  &, 0.277551E+00_JPRB, 0.266148E+00_JPRB, 0.255003E+00_JPRB, 0.244137E+00_JPRB &
+  &, 0.233545E+00_JPRB, 0.223221E+00_JPRB, 0.213180E+00_JPRB &
+  &, 0.203412E+00_JPRB, 0.193930E+00_JPRB, 0.184745E+00_JPRB, 0.175842E+00_JPRB &
+  &, 0.167229E+00_JPRB, 0.158887E+00_JPRB, 0.150848E+00_JPRB &
+  &, 0.143089E+00_JPRB, 0.135613E+00_JPRB, 0.128420E+00_JPRB, 0.121511E+00_JPRB &
+  &, 0.114853E+00_JPRB, 0.108473E+00_JPRB, 0.102366E+00_JPRB &
+  &, 0.965248E-01_JPRB, 0.909104E-01_JPRB, 0.855768E-01_JPRB, 0.804478E-01_JPRB &
+  &, 0.756102E-01_JPRB, 0.709490E-01_JPRB, 0.665511E-01_JPRB &
+  &, 0.623653E-01_JPRB, 0.583726E-01_JPRB, 0.545888E-01_JPRB, 0.510301E-01_JPRB &
+  &, 0.476365E-01_JPRB, 0.444213E-01_JPRB, 0.413977E-01_JPRB &
+  &, 0.385393E-01_JPRB, 0.358580E-01_JPRB, 0.333247E-01_JPRB, 0.309499E-01_JPRB &
+  &, 0.287014E-01_JPRB, 0.266317E-01_JPRB, 0.246635E-01_JPRB &
+  &, 0.228041E-01_JPRB, 0.211065E-01_JPRB, 0.194876E-01_JPRB, 0.179531E-01_JPRB &
+  &, 0.165562E-01_JPRB, 0.152566E-01_JPRB, 0.140601E-01_JPRB &
+  &, 0.129228E-01_JPRB, 0.118486E-01_JPRB, 0.108929E-01_JPRB, 0.995776E-02_JPRB &
+  &, 0.915072E-02_JPRB, 0.837105E-02_JPRB, 0.762074E-02_JPRB &
+  &, 0.695692E-02_JPRB, 0.638398E-02_JPRB, 0.579298E-02_JPRB, 0.529868E-02_JPRB &
+  &, 0.478908E-02_JPRB, 0.438215E-02_JPRB, 0.396279E-02_JPRB &
+  &, 0.359156E-02_JPRB, 0.327077E-02_JPRB, 0.294042E-02_JPRB, 0.266360E-02_JPRB &
+  &, 0.244270E-02_JPRB, 0.221530E-02_JPRB, 0.198133E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART75',1,ZHOOK_HANDLE)
+END SUBROUTINE PART75
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART76
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART76',0,ZHOOK_HANDLE)
+
+XCW( 526, :) = (/ &
+  &  0.100308E+01_JPRB, 0.100280E+01_JPRB, 0.100210E+01_JPRB, 0.100099E+01_JPRB &
+  &, 0.999459E+00_JPRB, 0.997510E+00_JPRB, 0.995142E+00_JPRB &
+  &, 0.992358E+00_JPRB, 0.989158E+00_JPRB, 0.985543E+00_JPRB, 0.981515E+00_JPRB &
+  &, 0.977076E+00_JPRB, 0.972226E+00_JPRB, 0.966971E+00_JPRB &
+  &, 0.961311E+00_JPRB, 0.955249E+00_JPRB, 0.948791E+00_JPRB, 0.941938E+00_JPRB &
+  &, 0.934696E+00_JPRB, 0.927067E+00_JPRB, 0.919061E+00_JPRB &
+  &, 0.910683E+00_JPRB, 0.901935E+00_JPRB, 0.892825E+00_JPRB, 0.883361E+00_JPRB &
+  &, 0.873553E+00_JPRB, 0.863405E+00_JPRB, 0.852931E+00_JPRB &
+  &, 0.842131E+00_JPRB, 0.831029E+00_JPRB, 0.819620E+00_JPRB, 0.807928E+00_JPRB &
+  &, 0.795954E+00_JPRB, 0.783717E+00_JPRB, 0.771228E+00_JPRB &
+  &, 0.758493E+00_JPRB, 0.745544E+00_JPRB, 0.732373E+00_JPRB, 0.719008E+00_JPRB &
+  &, 0.705455E+00_JPRB, 0.691741E+00_JPRB, 0.677876E+00_JPRB &
+  &, 0.663862E+00_JPRB, 0.649736E+00_JPRB, 0.635492E+00_JPRB, 0.621174E+00_JPRB &
+  &, 0.606766E+00_JPRB, 0.592316E+00_JPRB, 0.577824E+00_JPRB &
+  &, 0.563302E+00_JPRB, 0.548776E+00_JPRB, 0.534247E+00_JPRB, 0.519758E+00_JPRB &
+  &, 0.505294E+00_JPRB, 0.490900E+00_JPRB, 0.476576E+00_JPRB &
+  &, 0.462322E+00_JPRB, 0.448183E+00_JPRB, 0.434158E+00_JPRB, 0.420277E+00_JPRB &
+  &, 0.406520E+00_JPRB, 0.392933E+00_JPRB, 0.379493E+00_JPRB &
+  &, 0.366245E+00_JPRB, 0.353201E+00_JPRB, 0.340349E+00_JPRB, 0.327718E+00_JPRB &
+  &, 0.315292E+00_JPRB, 0.303117E+00_JPRB, 0.291175E+00_JPRB &
+  &, 0.279491E+00_JPRB, 0.268042E+00_JPRB, 0.256872E+00_JPRB, 0.245955E+00_JPRB &
+  &, 0.235331E+00_JPRB, 0.224950E+00_JPRB, 0.214873E+00_JPRB &
+  &, 0.205066E+00_JPRB, 0.195542E+00_JPRB, 0.186313E+00_JPRB, 0.177389E+00_JPRB &
+  &, 0.168728E+00_JPRB, 0.160335E+00_JPRB, 0.152269E+00_JPRB &
+  &, 0.144454E+00_JPRB, 0.136947E+00_JPRB, 0.129692E+00_JPRB, 0.122748E+00_JPRB &
+  &, 0.116053E+00_JPRB, 0.109634E+00_JPRB, 0.103485E+00_JPRB &
+  &, 0.975697E-01_JPRB, 0.919419E-01_JPRB, 0.865611E-01_JPRB, 0.814161E-01_JPRB &
+  &, 0.764936E-01_JPRB, 0.718133E-01_JPRB, 0.673600E-01_JPRB &
+  &, 0.631524E-01_JPRB, 0.591367E-01_JPRB, 0.552918E-01_JPRB, 0.517073E-01_JPRB &
+  &, 0.482869E-01_JPRB, 0.450435E-01_JPRB, 0.419906E-01_JPRB &
+  &, 0.391017E-01_JPRB, 0.363888E-01_JPRB, 0.338226E-01_JPRB, 0.314135E-01_JPRB &
+  &, 0.291724E-01_JPRB, 0.270232E-01_JPRB, 0.250612E-01_JPRB &
+  &, 0.231631E-01_JPRB, 0.214254E-01_JPRB, 0.198115E-01_JPRB, 0.182819E-01_JPRB &
+  &, 0.168423E-01_JPRB, 0.155470E-01_JPRB, 0.143057E-01_JPRB &
+  &, 0.131222E-01_JPRB, 0.121016E-01_JPRB, 0.110983E-01_JPRB, 0.101661E-01_JPRB &
+  &, 0.930923E-02_JPRB, 0.853184E-02_JPRB, 0.778382E-02_JPRB &
+  &, 0.712232E-02_JPRB, 0.649581E-02_JPRB, 0.590638E-02_JPRB, 0.541365E-02_JPRB &
+  &, 0.490564E-02_JPRB, 0.450032E-02_JPRB, 0.408257E-02_JPRB &
+  &, 0.371296E-02_JPRB, 0.333229E-02_JPRB, 0.300277E-02_JPRB, 0.272678E-02_JPRB &
+  &, 0.250672E-02_JPRB, 0.221530E-02_JPRB, 0.204705E-02_JPRB/)
+XCW( 527, :) = (/ &
+  &  0.100333E+01_JPRB, 0.100311E+01_JPRB, 0.100248E+01_JPRB, 0.100143E+01_JPRB &
+  &, 0.999962E+00_JPRB, 0.998075E+00_JPRB, 0.995770E+00_JPRB &
+  &, 0.993047E+00_JPRB, 0.989909E+00_JPRB, 0.986355E+00_JPRB, 0.982388E+00_JPRB &
+  &, 0.978008E+00_JPRB, 0.973218E+00_JPRB, 0.968021E+00_JPRB &
+  &, 0.962419E+00_JPRB, 0.956416E+00_JPRB, 0.950013E+00_JPRB, 0.943217E+00_JPRB &
+  &, 0.936029E+00_JPRB, 0.928457E+00_JPRB, 0.920504E+00_JPRB &
+  &, 0.912175E+00_JPRB, 0.903478E+00_JPRB, 0.894418E+00_JPRB, 0.885003E+00_JPRB &
+  &, 0.875241E+00_JPRB, 0.865140E+00_JPRB, 0.854709E+00_JPRB &
+  &, 0.843957E+00_JPRB, 0.832892E+00_JPRB, 0.821525E+00_JPRB, 0.809869E+00_JPRB &
+  &, 0.797935E+00_JPRB, 0.785735E+00_JPRB, 0.773278E+00_JPRB &
+  &, 0.760577E+00_JPRB, 0.747652E+00_JPRB, 0.734514E+00_JPRB, 0.721174E+00_JPRB &
+  &, 0.707655E+00_JPRB, 0.693954E+00_JPRB, 0.680102E+00_JPRB &
+  &, 0.666121E+00_JPRB, 0.652006E+00_JPRB, 0.637784E+00_JPRB, 0.623463E+00_JPRB &
+  &, 0.609075E+00_JPRB, 0.594632E+00_JPRB, 0.580145E+00_JPRB &
+  &, 0.565627E+00_JPRB, 0.551091E+00_JPRB, 0.536577E+00_JPRB, 0.522072E+00_JPRB &
+  &, 0.507621E+00_JPRB, 0.493208E+00_JPRB, 0.478878E+00_JPRB &
+  &, 0.464616E+00_JPRB, 0.450467E+00_JPRB, 0.436429E+00_JPRB, 0.422517E+00_JPRB &
+  &, 0.408744E+00_JPRB, 0.395137E+00_JPRB, 0.381676E+00_JPRB &
+  &, 0.368423E+00_JPRB, 0.355334E+00_JPRB, 0.342454E+00_JPRB, 0.329790E+00_JPRB &
+  &, 0.317350E+00_JPRB, 0.305138E+00_JPRB, 0.293158E+00_JPRB &
+  &, 0.281431E+00_JPRB, 0.269959E+00_JPRB, 0.258740E+00_JPRB, 0.247795E+00_JPRB &
+  &, 0.237118E+00_JPRB, 0.226703E+00_JPRB, 0.216589E+00_JPRB &
+  &, 0.206744E+00_JPRB, 0.197180E+00_JPRB, 0.187907E+00_JPRB, 0.178911E+00_JPRB &
+  &, 0.170227E+00_JPRB, 0.161809E+00_JPRB, 0.153663E+00_JPRB &
+  &, 0.145818E+00_JPRB, 0.138280E+00_JPRB, 0.130993E+00_JPRB, 0.123985E+00_JPRB &
+  &, 0.117253E+00_JPRB, 0.110795E+00_JPRB, 0.104574E+00_JPRB &
+  &, 0.986464E-01_JPRB, 0.929734E-01_JPRB, 0.875454E-01_JPRB, 0.823510E-01_JPRB &
+  &, 0.774110E-01_JPRB, 0.726776E-01_JPRB, 0.682041E-01_JPRB &
+  &, 0.639394E-01_JPRB, 0.598644E-01_JPRB, 0.560319E-01_JPRB, 0.523846E-01_JPRB &
+  &, 0.489372E-01_JPRB, 0.456657E-01_JPRB, 0.425836E-01_JPRB &
+  &, 0.396642E-01_JPRB, 0.369196E-01_JPRB, 0.343204E-01_JPRB, 0.319194E-01_JPRB &
+  &, 0.296007E-01_JPRB, 0.274582E-01_JPRB, 0.254588E-01_JPRB &
+  &, 0.235669E-01_JPRB, 0.217900E-01_JPRB, 0.201353E-01_JPRB, 0.186107E-01_JPRB &
+  &, 0.171284E-01_JPRB, 0.157890E-01_JPRB, 0.145513E-01_JPRB &
+  &, 0.133715E-01_JPRB, 0.123040E-01_JPRB, 0.113036E-01_JPRB, 0.103744E-01_JPRB &
+  &, 0.952057E-02_JPRB, 0.869263E-02_JPRB, 0.794691E-02_JPRB &
+  &, 0.728773E-02_JPRB, 0.666354E-02_JPRB, 0.607646E-02_JPRB, 0.552863E-02_JPRB &
+  &, 0.502220E-02_JPRB, 0.455940E-02_JPRB, 0.414246E-02_JPRB &
+  &, 0.377367E-02_JPRB, 0.339381E-02_JPRB, 0.312747E-02_JPRB, 0.278996E-02_JPRB &
+  &, 0.250672E-02_JPRB, 0.228016E-02_JPRB, 0.204705E-02_JPRB/)
+XCW( 528, :) = (/ &
+  &  0.100358E+01_JPRB, 0.100343E+01_JPRB, 0.100286E+01_JPRB, 0.100187E+01_JPRB &
+  &, 0.100047E+01_JPRB, 0.998641E+00_JPRB, 0.996398E+00_JPRB &
+  &, 0.993737E+00_JPRB, 0.990660E+00_JPRB, 0.987168E+00_JPRB, 0.983261E+00_JPRB &
+  &, 0.978941E+00_JPRB, 0.974211E+00_JPRB, 0.969072E+00_JPRB &
+  &, 0.963528E+00_JPRB, 0.957582E+00_JPRB, 0.951238E+00_JPRB, 0.944496E+00_JPRB &
+  &, 0.937362E+00_JPRB, 0.929843E+00_JPRB, 0.921943E+00_JPRB &
+  &, 0.913667E+00_JPRB, 0.905022E+00_JPRB, 0.896014E+00_JPRB, 0.886647E+00_JPRB &
+  &, 0.876932E+00_JPRB, 0.866877E+00_JPRB, 0.856491E+00_JPRB &
+  &, 0.845779E+00_JPRB, 0.834759E+00_JPRB, 0.823435E+00_JPRB, 0.811818E+00_JPRB &
+  &, 0.799920E+00_JPRB, 0.787756E+00_JPRB, 0.775333E+00_JPRB &
+  &, 0.762670E+00_JPRB, 0.749769E+00_JPRB, 0.736655E+00_JPRB, 0.723349E+00_JPRB &
+  &, 0.709844E+00_JPRB, 0.696177E+00_JPRB, 0.682349E+00_JPRB &
+  &, 0.668380E+00_JPRB, 0.654276E+00_JPRB, 0.640076E+00_JPRB, 0.625776E+00_JPRB &
+  &, 0.611397E+00_JPRB, 0.596949E+00_JPRB, 0.582467E+00_JPRB &
+  &, 0.567953E+00_JPRB, 0.553433E+00_JPRB, 0.538906E+00_JPRB, 0.524415E+00_JPRB &
+  &, 0.509947E+00_JPRB, 0.495530E+00_JPRB, 0.481180E+00_JPRB &
+  &, 0.466925E+00_JPRB, 0.452750E+00_JPRB, 0.438701E+00_JPRB, 0.424775E+00_JPRB &
+  &, 0.410984E+00_JPRB, 0.397359E+00_JPRB, 0.383877E+00_JPRB &
+  &, 0.370582E+00_JPRB, 0.357486E+00_JPRB, 0.344577E+00_JPRB, 0.331883E+00_JPRB &
+  &, 0.319409E+00_JPRB, 0.307160E+00_JPRB, 0.295161E+00_JPRB &
+  &, 0.283392E+00_JPRB, 0.271875E+00_JPRB, 0.260631E+00_JPRB, 0.249635E+00_JPRB &
+  &, 0.238927E+00_JPRB, 0.228479E+00_JPRB, 0.218306E+00_JPRB &
+  &, 0.208422E+00_JPRB, 0.198817E+00_JPRB, 0.189501E+00_JPRB, 0.180485E+00_JPRB &
+  &, 0.171726E+00_JPRB, 0.163284E+00_JPRB, 0.155111E+00_JPRB &
+  &, 0.147211E+00_JPRB, 0.139614E+00_JPRB, 0.132265E+00_JPRB, 0.125221E+00_JPRB &
+  &, 0.118453E+00_JPRB, 0.111955E+00_JPRB, 0.105694E+00_JPRB &
+  &, 0.997229E-01_JPRB, 0.940049E-01_JPRB, 0.885297E-01_JPRB, 0.832860E-01_JPRB &
+  &, 0.783284E-01_JPRB, 0.735764E-01_JPRB, 0.690481E-01_JPRB &
+  &, 0.647264E-01_JPRB, 0.606285E-01_JPRB, 0.567719E-01_JPRB, 0.530618E-01_JPRB &
+  &, 0.495875E-01_JPRB, 0.462880E-01_JPRB, 0.431765E-01_JPRB &
+  &, 0.402267E-01_JPRB, 0.374504E-01_JPRB, 0.348598E-01_JPRB, 0.323830E-01_JPRB &
+  &, 0.300717E-01_JPRB, 0.278932E-01_JPRB, 0.258564E-01_JPRB &
+  &, 0.239259E-01_JPRB, 0.221545E-01_JPRB, 0.204592E-01_JPRB, 0.188925E-01_JPRB &
+  &, 0.174622E-01_JPRB, 0.160794E-01_JPRB, 0.147970E-01_JPRB &
+  &, 0.136208E-01_JPRB, 0.125063E-01_JPRB, 0.115089E-01_JPRB, 0.105828E-01_JPRB &
+  &, 0.967908E-02_JPRB, 0.885342E-02_JPRB, 0.811000E-02_JPRB &
+  &, 0.739799E-02_JPRB, 0.677537E-02_JPRB, 0.618986E-02_JPRB, 0.564360E-02_JPRB &
+  &, 0.513876E-02_JPRB, 0.467756E-02_JPRB, 0.426224E-02_JPRB &
+  &, 0.383437E-02_JPRB, 0.351686E-02_JPRB, 0.318982E-02_JPRB, 0.285314E-02_JPRB &
+  &, 0.257073E-02_JPRB, 0.234502E-02_JPRB, 0.211276E-02_JPRB/)
+XCW( 529, :) = (/ &
+  &  0.100383E+01_JPRB, 0.100375E+01_JPRB, 0.100324E+01_JPRB, 0.100231E+01_JPRB &
+  &, 0.100097E+01_JPRB, 0.999207E+00_JPRB, 0.997026E+00_JPRB &
+  &, 0.994428E+00_JPRB, 0.991413E+00_JPRB, 0.987981E+00_JPRB, 0.984134E+00_JPRB &
+  &, 0.979874E+00_JPRB, 0.975205E+00_JPRB, 0.970125E+00_JPRB &
+  &, 0.964639E+00_JPRB, 0.958751E+00_JPRB, 0.952462E+00_JPRB, 0.945777E+00_JPRB &
+  &, 0.938700E+00_JPRB, 0.931236E+00_JPRB, 0.923386E+00_JPRB &
+  &, 0.915165E+00_JPRB, 0.906568E+00_JPRB, 0.897610E+00_JPRB, 0.888292E+00_JPRB &
+  &, 0.878627E+00_JPRB, 0.868616E+00_JPRB, 0.858277E+00_JPRB &
+  &, 0.847609E+00_JPRB, 0.836630E+00_JPRB, 0.825344E+00_JPRB, 0.813767E+00_JPRB &
+  &, 0.801910E+00_JPRB, 0.789778E+00_JPRB, 0.777392E+00_JPRB &
+  &, 0.764753E+00_JPRB, 0.751896E+00_JPRB, 0.738807E+00_JPRB, 0.725525E+00_JPRB &
+  &, 0.712054E+00_JPRB, 0.698401E+00_JPRB, 0.684596E+00_JPRB &
+  &, 0.670640E+00_JPRB, 0.656558E+00_JPRB, 0.642368E+00_JPRB, 0.628078E+00_JPRB &
+  &, 0.613719E+00_JPRB, 0.599277E+00_JPRB, 0.584802E+00_JPRB &
+  &, 0.570292E+00_JPRB, 0.555774E+00_JPRB, 0.541249E+00_JPRB, 0.526744E+00_JPRB &
+  &, 0.512274E+00_JPRB, 0.497868E+00_JPRB, 0.483512E+00_JPRB &
+  &, 0.469234E+00_JPRB, 0.455050E+00_JPRB, 0.440989E+00_JPRB, 0.427048E+00_JPRB &
+  &, 0.413242E+00_JPRB, 0.399581E+00_JPRB, 0.386078E+00_JPRB &
+  &, 0.372760E+00_JPRB, 0.359637E+00_JPRB, 0.346700E+00_JPRB, 0.333975E+00_JPRB &
+  &, 0.321467E+00_JPRB, 0.309202E+00_JPRB, 0.297164E+00_JPRB &
+  &, 0.285353E+00_JPRB, 0.273813E+00_JPRB, 0.262521E+00_JPRB, 0.251497E+00_JPRB &
+  &, 0.240736E+00_JPRB, 0.230255E+00_JPRB, 0.220046E+00_JPRB &
+  &, 0.210125E+00_JPRB, 0.200479E+00_JPRB, 0.191120E+00_JPRB, 0.182059E+00_JPRB &
+  &, 0.173252E+00_JPRB, 0.164758E+00_JPRB, 0.156532E+00_JPRB &
+  &, 0.148603E+00_JPRB, 0.140948E+00_JPRB, 0.133595E+00_JPRB, 0.126488E+00_JPRB &
+  &, 0.119682E+00_JPRB, 0.113116E+00_JPRB, 0.106844E+00_JPRB &
+  &, 0.100800E+00_JPRB, 0.950364E-01_JPRB, 0.895468E-01_JPRB, 0.842543E-01_JPRB &
+  &, 0.792458E-01_JPRB, 0.744407E-01_JPRB, 0.698922E-01_JPRB &
+  &, 0.655492E-01_JPRB, 0.614290E-01_JPRB, 0.575120E-01_JPRB, 0.537767E-01_JPRB &
+  &, 0.502761E-01_JPRB, 0.469491E-01_JPRB, 0.437695E-01_JPRB &
+  &, 0.407891E-01_JPRB, 0.380220E-01_JPRB, 0.353576E-01_JPRB, 0.328889E-01_JPRB &
+  &, 0.305428E-01_JPRB, 0.283282E-01_JPRB, 0.262541E-01_JPRB &
+  &, 0.243297E-01_JPRB, 0.225190E-01_JPRB, 0.208293E-01_JPRB, 0.192213E-01_JPRB &
+  &, 0.177483E-01_JPRB, 0.163699E-01_JPRB, 0.150917E-01_JPRB &
+  &, 0.138701E-01_JPRB, 0.127593E-01_JPRB, 0.117143E-01_JPRB, 0.107390E-01_JPRB &
+  &, 0.989043E-02_JPRB, 0.906781E-02_JPRB, 0.827309E-02_JPRB &
+  &, 0.756340E-02_JPRB, 0.694310E-02_JPRB, 0.630325E-02_JPRB, 0.575857E-02_JPRB &
+  &, 0.525533E-02_JPRB, 0.479573E-02_JPRB, 0.432213E-02_JPRB &
+  &, 0.395578E-02_JPRB, 0.357839E-02_JPRB, 0.325217E-02_JPRB, 0.291632E-02_JPRB &
+  &, 0.263475E-02_JPRB, 0.240989E-02_JPRB, 0.217847E-02_JPRB/)
+XCW( 530, :) = (/ &
+  &  0.100408E+01_JPRB, 0.100406E+01_JPRB, 0.100361E+01_JPRB, 0.100276E+01_JPRB &
+  &, 0.100147E+01_JPRB, 0.999775E+00_JPRB, 0.997656E+00_JPRB &
+  &, 0.995117E+00_JPRB, 0.992164E+00_JPRB, 0.988794E+00_JPRB, 0.985009E+00_JPRB &
+  &, 0.980809E+00_JPRB, 0.976199E+00_JPRB, 0.971178E+00_JPRB &
+  &, 0.965752E+00_JPRB, 0.959920E+00_JPRB, 0.953689E+00_JPRB, 0.947060E+00_JPRB &
+  &, 0.940039E+00_JPRB, 0.932629E+00_JPRB, 0.924832E+00_JPRB &
+  &, 0.916660E+00_JPRB, 0.908118E+00_JPRB, 0.899210E+00_JPRB, 0.889940E+00_JPRB &
+  &, 0.880322E+00_JPRB, 0.870360E+00_JPRB, 0.860063E+00_JPRB &
+  &, 0.849443E+00_JPRB, 0.838502E+00_JPRB, 0.827258E+00_JPRB, 0.815720E+00_JPRB &
+  &, 0.803899E+00_JPRB, 0.791805E+00_JPRB, 0.779451E+00_JPRB &
+  &, 0.766846E+00_JPRB, 0.754013E+00_JPRB, 0.740968E+00_JPRB, 0.727710E+00_JPRB &
+  &, 0.714254E+00_JPRB, 0.700635E+00_JPRB, 0.686843E+00_JPRB &
+  &, 0.672910E+00_JPRB, 0.658851E+00_JPRB, 0.644672E+00_JPRB, 0.630391E+00_JPRB &
+  &, 0.616040E+00_JPRB, 0.601618E+00_JPRB, 0.587149E+00_JPRB &
+  &, 0.572644E+00_JPRB, 0.558116E+00_JPRB, 0.543606E+00_JPRB, 0.529101E+00_JPRB &
+  &, 0.514629E+00_JPRB, 0.500205E+00_JPRB, 0.485844E+00_JPRB &
+  &, 0.471559E+00_JPRB, 0.457365E+00_JPRB, 0.443276E+00_JPRB, 0.429322E+00_JPRB &
+  &, 0.415500E+00_JPRB, 0.401821E+00_JPRB, 0.388297E+00_JPRB &
+  &, 0.374956E+00_JPRB, 0.361807E+00_JPRB, 0.348842E+00_JPRB, 0.336086E+00_JPRB &
+  &, 0.323545E+00_JPRB, 0.311244E+00_JPRB, 0.299167E+00_JPRB &
+  &, 0.287336E+00_JPRB, 0.275751E+00_JPRB, 0.264434E+00_JPRB, 0.253359E+00_JPRB &
+  &, 0.242568E+00_JPRB, 0.232054E+00_JPRB, 0.221787E+00_JPRB &
+  &, 0.211827E+00_JPRB, 0.202141E+00_JPRB, 0.192739E+00_JPRB, 0.183632E+00_JPRB &
+  &, 0.174803E+00_JPRB, 0.166233E+00_JPRB, 0.157980E+00_JPRB &
+  &, 0.149995E+00_JPRB, 0.142310E+00_JPRB, 0.134896E+00_JPRB, 0.127754E+00_JPRB &
+  &, 0.120882E+00_JPRB, 0.114307E+00_JPRB, 0.107964E+00_JPRB &
+  &, 0.101908E+00_JPRB, 0.961001E-01_JPRB, 0.905639E-01_JPRB, 0.852560E-01_JPRB &
+  &, 0.801632E-01_JPRB, 0.753395E-01_JPRB, 0.707363E-01_JPRB &
+  &, 0.663721E-01_JPRB, 0.621931E-01_JPRB, 0.582520E-01_JPRB, 0.544916E-01_JPRB &
+  &, 0.509264E-01_JPRB, 0.475713E-01_JPRB, 0.444020E-01_JPRB &
+  &, 0.413918E-01_JPRB, 0.385527E-01_JPRB, 0.358970E-01_JPRB, 0.333525E-01_JPRB &
+  &, 0.310138E-01_JPRB, 0.287631E-01_JPRB, 0.266959E-01_JPRB &
+  &, 0.247336E-01_JPRB, 0.228835E-01_JPRB, 0.211532E-01_JPRB, 0.195501E-01_JPRB &
+  &, 0.180344E-01_JPRB, 0.166603E-01_JPRB, 0.153374E-01_JPRB &
+  &, 0.141193E-01_JPRB, 0.130123E-01_JPRB, 0.119196E-01_JPRB, 0.109473E-01_JPRB &
+  &, 0.100489E-01_JPRB, 0.922860E-02_JPRB, 0.843617E-02_JPRB &
+  &, 0.772880E-02_JPRB, 0.705493E-02_JPRB, 0.647334E-02_JPRB, 0.587354E-02_JPRB &
+  &, 0.537189E-02_JPRB, 0.485481E-02_JPRB, 0.444191E-02_JPRB &
+  &, 0.401649E-02_JPRB, 0.363991E-02_JPRB, 0.331452E-02_JPRB, 0.304268E-02_JPRB &
+  &, 0.269877E-02_JPRB, 0.247475E-02_JPRB, 0.224418E-02_JPRB/)
+XCW( 531, :) = (/ &
+  &  0.100434E+01_JPRB, 0.100438E+01_JPRB, 0.100399E+01_JPRB, 0.100320E+01_JPRB &
+  &, 0.100198E+01_JPRB, 0.100034E+01_JPRB, 0.998284E+00_JPRB &
+  &, 0.995811E+00_JPRB, 0.992918E+00_JPRB, 0.989609E+00_JPRB, 0.985883E+00_JPRB &
+  &, 0.981745E+00_JPRB, 0.977193E+00_JPRB, 0.972232E+00_JPRB &
+  &, 0.966864E+00_JPRB, 0.961090E+00_JPRB, 0.954917E+00_JPRB, 0.948343E+00_JPRB &
+  &, 0.941377E+00_JPRB, 0.934021E+00_JPRB, 0.926282E+00_JPRB &
+  &, 0.918163E+00_JPRB, 0.909671E+00_JPRB, 0.900810E+00_JPRB, 0.891592E+00_JPRB &
+  &, 0.882021E+00_JPRB, 0.872107E+00_JPRB, 0.861853E+00_JPRB &
+  &, 0.851277E+00_JPRB, 0.840381E+00_JPRB, 0.829176E+00_JPRB, 0.817678E+00_JPRB &
+  &, 0.805880E+00_JPRB, 0.793835E+00_JPRB, 0.781520E+00_JPRB &
+  &, 0.768948E+00_JPRB, 0.756149E+00_JPRB, 0.743119E+00_JPRB, 0.729896E+00_JPRB &
+  &, 0.716464E+00_JPRB, 0.702869E+00_JPRB, 0.689101E+00_JPRB &
+  &, 0.675191E+00_JPRB, 0.661144E+00_JPRB, 0.646976E+00_JPRB, 0.632716E+00_JPRB &
+  &, 0.618374E+00_JPRB, 0.603960E+00_JPRB, 0.589496E+00_JPRB &
+  &, 0.574996E+00_JPRB, 0.560485E+00_JPRB, 0.545963E+00_JPRB, 0.531458E+00_JPRB &
+  &, 0.516971E+00_JPRB, 0.502543E+00_JPRB, 0.488176E+00_JPRB &
+  &, 0.473883E+00_JPRB, 0.459680E+00_JPRB, 0.445580E+00_JPRB, 0.431596E+00_JPRB &
+  &, 0.417757E+00_JPRB, 0.404060E+00_JPRB, 0.390533E+00_JPRB &
+  &, 0.377151E+00_JPRB, 0.363978E+00_JPRB, 0.350985E+00_JPRB, 0.338217E+00_JPRB &
+  &, 0.325643E+00_JPRB, 0.313306E+00_JPRB, 0.301191E+00_JPRB &
+  &, 0.289318E+00_JPRB, 0.277710E+00_JPRB, 0.266346E+00_JPRB, 0.255244E+00_JPRB &
+  &, 0.244400E+00_JPRB, 0.233854E+00_JPRB, 0.223551E+00_JPRB &
+  &, 0.213554E+00_JPRB, 0.203828E+00_JPRB, 0.194384E+00_JPRB, 0.185206E+00_JPRB &
+  &, 0.176329E+00_JPRB, 0.167734E+00_JPRB, 0.159456E+00_JPRB &
+  &, 0.151416E+00_JPRB, 0.143672E+00_JPRB, 0.136226E+00_JPRB, 0.129050E+00_JPRB &
+  &, 0.122142E+00_JPRB, 0.115498E+00_JPRB, 0.109115E+00_JPRB &
+  &, 0.103016E+00_JPRB, 0.971638E-01_JPRB, 0.915809E-01_JPRB, 0.862243E-01_JPRB &
+  &, 0.811146E-01_JPRB, 0.762384E-01_JPRB, 0.716155E-01_JPRB &
+  &, 0.671949E-01_JPRB, 0.629935E-01_JPRB, 0.589921E-01_JPRB, 0.552065E-01_JPRB &
+  &, 0.516150E-01_JPRB, 0.482324E-01_JPRB, 0.449949E-01_JPRB &
+  &, 0.419944E-01_JPRB, 0.391243E-01_JPRB, 0.363948E-01_JPRB, 0.338584E-01_JPRB &
+  &, 0.314849E-01_JPRB, 0.291981E-01_JPRB, 0.270935E-01_JPRB &
+  &, 0.250925E-01_JPRB, 0.232480E-01_JPRB, 0.215233E-01_JPRB, 0.198789E-01_JPRB &
+  &, 0.183682E-01_JPRB, 0.169507E-01_JPRB, 0.156321E-01_JPRB &
+  &, 0.143686E-01_JPRB, 0.132146E-01_JPRB, 0.121763E-01_JPRB, 0.111557E-01_JPRB &
+  &, 0.102603E-01_JPRB, 0.938938E-02_JPRB, 0.859926E-02_JPRB &
+  &, 0.789420E-02_JPRB, 0.722267E-02_JPRB, 0.658673E-02_JPRB, 0.598851E-02_JPRB &
+  &, 0.548845E-02_JPRB, 0.497298E-02_JPRB, 0.456170E-02_JPRB &
+  &, 0.413790E-02_JPRB, 0.376296E-02_JPRB, 0.337687E-02_JPRB, 0.310586E-02_JPRB &
+  &, 0.276279E-02_JPRB, 0.253961E-02_JPRB, 0.230989E-02_JPRB/)
+XCW( 532, :) = (/ &
+  &  0.100459E+01_JPRB, 0.100469E+01_JPRB, 0.100437E+01_JPRB, 0.100364E+01_JPRB &
+  &, 0.100248E+01_JPRB, 0.100091E+01_JPRB, 0.998915E+00_JPRB &
+  &, 0.996502E+00_JPRB, 0.993672E+00_JPRB, 0.990424E+00_JPRB, 0.986760E+00_JPRB &
+  &, 0.982680E+00_JPRB, 0.978189E+00_JPRB, 0.973288E+00_JPRB &
+  &, 0.967978E+00_JPRB, 0.962263E+00_JPRB, 0.956144E+00_JPRB, 0.949629E+00_JPRB &
+  &, 0.942719E+00_JPRB, 0.935417E+00_JPRB, 0.927731E+00_JPRB &
+  &, 0.919664E+00_JPRB, 0.911225E+00_JPRB, 0.902414E+00_JPRB, 0.893244E+00_JPRB &
+  &, 0.883723E+00_JPRB, 0.873854E+00_JPRB, 0.863647E+00_JPRB &
+  &, 0.853115E+00_JPRB, 0.842260E+00_JPRB, 0.831098E+00_JPRB, 0.819639E+00_JPRB &
+  &, 0.807895E+00_JPRB, 0.795875E+00_JPRB, 0.783588E+00_JPRB &
+  &, 0.771050E+00_JPRB, 0.758285E+00_JPRB, 0.745290E+00_JPRB, 0.732081E+00_JPRB &
+  &, 0.718684E+00_JPRB, 0.705103E+00_JPRB, 0.691359E+00_JPRB &
+  &, 0.677473E+00_JPRB, 0.663437E+00_JPRB, 0.649291E+00_JPRB, 0.635029E+00_JPRB &
+  &, 0.620708E+00_JPRB, 0.606313E+00_JPRB, 0.591857E+00_JPRB &
+  &, 0.577361E+00_JPRB, 0.562840E+00_JPRB, 0.548320E+00_JPRB, 0.533816E+00_JPRB &
+  &, 0.519341E+00_JPRB, 0.504895E+00_JPRB, 0.490523E+00_JPRB &
+  &, 0.476223E+00_JPRB, 0.461995E+00_JPRB, 0.447884E+00_JPRB, 0.433903E+00_JPRB &
+  &, 0.420032E+00_JPRB, 0.406317E+00_JPRB, 0.392752E+00_JPRB &
+  &, 0.379365E+00_JPRB, 0.366166E+00_JPRB, 0.353146E+00_JPRB, 0.340348E+00_JPRB &
+  &, 0.327741E+00_JPRB, 0.315369E+00_JPRB, 0.303235E+00_JPRB &
+  &, 0.291321E+00_JPRB, 0.279670E+00_JPRB, 0.268281E+00_JPRB, 0.257129E+00_JPRB &
+  &, 0.246255E+00_JPRB, 0.235653E+00_JPRB, 0.225339E+00_JPRB &
+  &, 0.215281E+00_JPRB, 0.205515E+00_JPRB, 0.196028E+00_JPRB, 0.186805E+00_JPRB &
+  &, 0.177907E+00_JPRB, 0.169263E+00_JPRB, 0.160904E+00_JPRB &
+  &, 0.152836E+00_JPRB, 0.145062E+00_JPRB, 0.137555E+00_JPRB, 0.130345E+00_JPRB &
+  &, 0.123371E+00_JPRB, 0.116690E+00_JPRB, 0.110297E+00_JPRB &
+  &, 0.104124E+00_JPRB, 0.982598E-01_JPRB, 0.925980E-01_JPRB, 0.872260E-01_JPRB &
+  &, 0.820660E-01_JPRB, 0.771718E-01_JPRB, 0.724948E-01_JPRB &
+  &, 0.680177E-01_JPRB, 0.637940E-01_JPRB, 0.597691E-01_JPRB, 0.559590E-01_JPRB &
+  &, 0.523036E-01_JPRB, 0.488935E-01_JPRB, 0.456274E-01_JPRB &
+  &, 0.425569E-01_JPRB, 0.396551E-01_JPRB, 0.369341E-01_JPRB, 0.343642E-01_JPRB &
+  &, 0.319559E-01_JPRB, 0.296766E-01_JPRB, 0.275353E-01_JPRB &
+  &, 0.254964E-01_JPRB, 0.236125E-01_JPRB, 0.218471E-01_JPRB, 0.202077E-01_JPRB &
+  &, 0.186543E-01_JPRB, 0.172411E-01_JPRB, 0.158777E-01_JPRB &
+  &, 0.146179E-01_JPRB, 0.134676E-01_JPRB, 0.123816E-01_JPRB, 0.113640E-01_JPRB &
+  &, 0.104716E-01_JPRB, 0.960377E-02_JPRB, 0.876235E-02_JPRB &
+  &, 0.805961E-02_JPRB, 0.733449E-02_JPRB, 0.670012E-02_JPRB, 0.610348E-02_JPRB &
+  &, 0.560502E-02_JPRB, 0.509115E-02_JPRB, 0.462159E-02_JPRB &
+  &, 0.419860E-02_JPRB, 0.382448E-02_JPRB, 0.350157E-02_JPRB, 0.316905E-02_JPRB &
+  &, 0.282681E-02_JPRB, 0.260447E-02_JPRB, 0.230989E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART76',1,ZHOOK_HANDLE)
+END SUBROUTINE PART76
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART77
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART77',0,ZHOOK_HANDLE)
+
+XCW( 533, :) = (/ &
+  &  0.100484E+01_JPRB, 0.100500E+01_JPRB, 0.100475E+01_JPRB, 0.100408E+01_JPRB &
+  &, 0.100299E+01_JPRB, 0.100148E+01_JPRB, 0.999545E+00_JPRB &
+  &, 0.997194E+00_JPRB, 0.994425E+00_JPRB, 0.991238E+00_JPRB, 0.987636E+00_JPRB &
+  &, 0.983617E+00_JPRB, 0.979186E+00_JPRB, 0.974345E+00_JPRB &
+  &, 0.969093E+00_JPRB, 0.963435E+00_JPRB, 0.957375E+00_JPRB, 0.950916E+00_JPRB &
+  &, 0.944060E+00_JPRB, 0.936813E+00_JPRB, 0.929181E+00_JPRB &
+  &, 0.921166E+00_JPRB, 0.912778E+00_JPRB, 0.904020E+00_JPRB, 0.894900E+00_JPRB &
+  &, 0.885426E+00_JPRB, 0.875605E+00_JPRB, 0.865444E+00_JPRB &
+  &, 0.854952E+00_JPRB, 0.844143E+00_JPRB, 0.833024E+00_JPRB, 0.821605E+00_JPRB &
+  &, 0.809897E+00_JPRB, 0.797914E+00_JPRB, 0.785666E+00_JPRB &
+  &, 0.773162E+00_JPRB, 0.760422E+00_JPRB, 0.747460E+00_JPRB, 0.734277E+00_JPRB &
+  &, 0.720904E+00_JPRB, 0.707348E+00_JPRB, 0.693627E+00_JPRB &
+  &, 0.679754E+00_JPRB, 0.665742E+00_JPRB, 0.651618E+00_JPRB, 0.637378E+00_JPRB &
+  &, 0.623054E+00_JPRB, 0.608667E+00_JPRB, 0.594217E+00_JPRB &
+  &, 0.579726E+00_JPRB, 0.565209E+00_JPRB, 0.550691E+00_JPRB, 0.536187E+00_JPRB &
+  &, 0.521711E+00_JPRB, 0.507262E+00_JPRB, 0.492870E+00_JPRB &
+  &, 0.478563E+00_JPRB, 0.464342E+00_JPRB, 0.450204E+00_JPRB, 0.436193E+00_JPRB &
+  &, 0.422324E+00_JPRB, 0.408591E+00_JPRB, 0.395006E+00_JPRB &
+  &, 0.381597E+00_JPRB, 0.368355E+00_JPRB, 0.355326E+00_JPRB, 0.342479E+00_JPRB &
+  &, 0.329859E+00_JPRB, 0.317451E+00_JPRB, 0.305279E+00_JPRB &
+  &, 0.293346E+00_JPRB, 0.281651E+00_JPRB, 0.270215E+00_JPRB, 0.259036E+00_JPRB &
+  &, 0.248133E+00_JPRB, 0.237476E+00_JPRB, 0.227104E+00_JPRB &
+  &, 0.217008E+00_JPRB, 0.207202E+00_JPRB, 0.197673E+00_JPRB, 0.188430E+00_JPRB &
+  &, 0.179459E+00_JPRB, 0.170791E+00_JPRB, 0.162380E+00_JPRB &
+  &, 0.154284E+00_JPRB, 0.146452E+00_JPRB, 0.138914E+00_JPRB, 0.131641E+00_JPRB &
+  &, 0.124631E+00_JPRB, 0.117911E+00_JPRB, 0.111447E+00_JPRB &
+  &, 0.105264E+00_JPRB, 0.993235E-01_JPRB, 0.936479E-01_JPRB, 0.882277E-01_JPRB &
+  &, 0.830173E-01_JPRB, 0.780706E-01_JPRB, 0.733740E-01_JPRB &
+  &, 0.688763E-01_JPRB, 0.645945E-01_JPRB, 0.605462E-01_JPRB, 0.566739E-01_JPRB &
+  &, 0.530304E-01_JPRB, 0.495546E-01_JPRB, 0.462599E-01_JPRB &
+  &, 0.431596E-01_JPRB, 0.402267E-01_JPRB, 0.374735E-01_JPRB, 0.348700E-01_JPRB &
+  &, 0.324270E-01_JPRB, 0.301116E-01_JPRB, 0.279772E-01_JPRB &
+  &, 0.259451E-01_JPRB, 0.240226E-01_JPRB, 0.222173E-01_JPRB, 0.205365E-01_JPRB &
+  &, 0.189881E-01_JPRB, 0.175315E-01_JPRB, 0.161725E-01_JPRB &
+  &, 0.149170E-01_JPRB, 0.137205E-01_JPRB, 0.126383E-01_JPRB, 0.116244E-01_JPRB &
+  &, 0.106301E-01_JPRB, 0.976456E-02_JPRB, 0.897980E-02_JPRB &
+  &, 0.822501E-02_JPRB, 0.750223E-02_JPRB, 0.687021E-02_JPRB, 0.627594E-02_JPRB &
+  &, 0.572158E-02_JPRB, 0.520931E-02_JPRB, 0.474137E-02_JPRB &
+  &, 0.432001E-02_JPRB, 0.394753E-02_JPRB, 0.356392E-02_JPRB, 0.323223E-02_JPRB &
+  &, 0.295484E-02_JPRB, 0.266933E-02_JPRB, 0.237560E-02_JPRB/)
+XCW( 534, :) = (/ &
+  &  0.100509E+01_JPRB, 0.100532E+01_JPRB, 0.100513E+01_JPRB, 0.100452E+01_JPRB &
+  &, 0.100349E+01_JPRB, 0.100204E+01_JPRB, 0.100017E+01_JPRB &
+  &, 0.997887E+00_JPRB, 0.995179E+00_JPRB, 0.992055E+00_JPRB, 0.988513E+00_JPRB &
+  &, 0.984555E+00_JPRB, 0.980184E+00_JPRB, 0.975401E+00_JPRB &
+  &, 0.970208E+00_JPRB, 0.964610E+00_JPRB, 0.958606E+00_JPRB, 0.952204E+00_JPRB &
+  &, 0.945405E+00_JPRB, 0.938212E+00_JPRB, 0.930633E+00_JPRB &
+  &, 0.922622E+00_JPRB, 0.914338E+00_JPRB, 0.905631E+00_JPRB, 0.896559E+00_JPRB &
+  &, 0.887131E+00_JPRB, 0.877359E+00_JPRB, 0.867245E+00_JPRB &
+  &, 0.856798E+00_JPRB, 0.846031E+00_JPRB, 0.834954E+00_JPRB, 0.823575E+00_JPRB &
+  &, 0.811904E+00_JPRB, 0.799949E+00_JPRB, 0.787743E+00_JPRB &
+  &, 0.775273E+00_JPRB, 0.762567E+00_JPRB, 0.749631E+00_JPRB, 0.736483E+00_JPRB &
+  &, 0.723135E+00_JPRB, 0.709603E+00_JPRB, 0.695907E+00_JPRB &
+  &, 0.682046E+00_JPRB, 0.668057E+00_JPRB, 0.653945E+00_JPRB, 0.639727E+00_JPRB &
+  &, 0.625412E+00_JPRB, 0.611033E+00_JPRB, 0.596590E+00_JPRB &
+  &, 0.582105E+00_JPRB, 0.567591E+00_JPRB, 0.553076E+00_JPRB, 0.538572E+00_JPRB &
+  &, 0.524081E+00_JPRB, 0.509629E+00_JPRB, 0.495232E+00_JPRB &
+  &, 0.480919E+00_JPRB, 0.466674E+00_JPRB, 0.452540E+00_JPRB, 0.438517E+00_JPRB &
+  &, 0.424616E+00_JPRB, 0.410865E+00_JPRB, 0.397261E+00_JPRB &
+  &, 0.383829E+00_JPRB, 0.370563E+00_JPRB, 0.357506E+00_JPRB, 0.344629E+00_JPRB &
+  &, 0.331976E+00_JPRB, 0.319533E+00_JPRB, 0.307324E+00_JPRB &
+  &, 0.295370E+00_JPRB, 0.283632E+00_JPRB, 0.272171E+00_JPRB, 0.260943E+00_JPRB &
+  &, 0.249987E+00_JPRB, 0.239322E+00_JPRB, 0.228892E+00_JPRB &
+  &, 0.218759E+00_JPRB, 0.208913E+00_JPRB, 0.199342E+00_JPRB, 0.190056E+00_JPRB &
+  &, 0.181037E+00_JPRB, 0.172319E+00_JPRB, 0.163882E+00_JPRB &
+  &, 0.155732E+00_JPRB, 0.147843E+00_JPRB, 0.140273E+00_JPRB, 0.132937E+00_JPRB &
+  &, 0.125921E+00_JPRB, 0.119133E+00_JPRB, 0.112629E+00_JPRB &
+  &, 0.106404E+00_JPRB, 0.100419E+00_JPRB, 0.946978E-01_JPRB, 0.892295E-01_JPRB &
+  &, 0.840027E-01_JPRB, 0.790040E-01_JPRB, 0.742533E-01_JPRB &
+  &, 0.697349E-01_JPRB, 0.653950E-01_JPRB, 0.613232E-01_JPRB, 0.574264E-01_JPRB &
+  &, 0.537190E-01_JPRB, 0.502158E-01_JPRB, 0.469319E-01_JPRB &
+  &, 0.438024E-01_JPRB, 0.408392E-01_JPRB, 0.380128E-01_JPRB, 0.354180E-01_JPRB &
+  &, 0.329408E-01_JPRB, 0.305901E-01_JPRB, 0.283748E-01_JPRB &
+  &, 0.263489E-01_JPRB, 0.243871E-01_JPRB, 0.225874E-01_JPRB, 0.209123E-01_JPRB &
+  &, 0.193219E-01_JPRB, 0.178219E-01_JPRB, 0.164673E-01_JPRB &
+  &, 0.151663E-01_JPRB, 0.139735E-01_JPRB, 0.128436E-01_JPRB, 0.118327E-01_JPRB &
+  &, 0.108415E-01_JPRB, 0.997895E-02_JPRB, 0.914288E-02_JPRB &
+  &, 0.839041E-02_JPRB, 0.766996E-02_JPRB, 0.698360E-02_JPRB, 0.639091E-02_JPRB &
+  &, 0.583814E-02_JPRB, 0.532748E-02_JPRB, 0.486115E-02_JPRB &
+  &, 0.438071E-02_JPRB, 0.400905E-02_JPRB, 0.362627E-02_JPRB, 0.329541E-02_JPRB &
+  &, 0.301886E-02_JPRB, 0.273419E-02_JPRB, 0.244131E-02_JPRB/)
+XCW( 535, :) = (/ &
+  &  0.100535E+01_JPRB, 0.100564E+01_JPRB, 0.100551E+01_JPRB, 0.100496E+01_JPRB &
+  &, 0.100400E+01_JPRB, 0.100261E+01_JPRB, 0.100081E+01_JPRB &
+  &, 0.998581E+00_JPRB, 0.995935E+00_JPRB, 0.992871E+00_JPRB, 0.989391E+00_JPRB &
+  &, 0.985494E+00_JPRB, 0.981183E+00_JPRB, 0.976460E+00_JPRB &
+  &, 0.971327E+00_JPRB, 0.965786E+00_JPRB, 0.959840E+00_JPRB, 0.953493E+00_JPRB &
+  &, 0.946751E+00_JPRB, 0.939614E+00_JPRB, 0.932089E+00_JPRB &
+  &, 0.924180E+00_JPRB, 0.915895E+00_JPRB, 0.907241E+00_JPRB, 0.898207E+00_JPRB &
+  &, 0.888841E+00_JPRB, 0.879114E+00_JPRB, 0.869046E+00_JPRB &
+  &, 0.858644E+00_JPRB, 0.847922E+00_JPRB, 0.836885E+00_JPRB, 0.825545E+00_JPRB &
+  &, 0.813915E+00_JPRB, 0.802002E+00_JPRB, 0.789825E+00_JPRB &
+  &, 0.777384E+00_JPRB, 0.764713E+00_JPRB, 0.751811E+00_JPRB, 0.738688E+00_JPRB &
+  &, 0.725365E+00_JPRB, 0.711858E+00_JPRB, 0.698186E+00_JPRB &
+  &, 0.684350E+00_JPRB, 0.670373E+00_JPRB, 0.656283E+00_JPRB, 0.642076E+00_JPRB &
+  &, 0.627770E+00_JPRB, 0.613400E+00_JPRB, 0.598963E+00_JPRB &
+  &, 0.584483E+00_JPRB, 0.569987E+00_JPRB, 0.555460E+00_JPRB, 0.540957E+00_JPRB &
+  &, 0.526465E+00_JPRB, 0.512011E+00_JPRB, 0.497609E+00_JPRB &
+  &, 0.483275E+00_JPRB, 0.469036E+00_JPRB, 0.454877E+00_JPRB, 0.440840E+00_JPRB &
+  &, 0.426924E+00_JPRB, 0.413140E+00_JPRB, 0.399533E+00_JPRB &
+  &, 0.386061E+00_JPRB, 0.372788E+00_JPRB, 0.359686E+00_JPRB, 0.346799E+00_JPRB &
+  &, 0.334114E+00_JPRB, 0.321636E+00_JPRB, 0.309409E+00_JPRB &
+  &, 0.297395E+00_JPRB, 0.285634E+00_JPRB, 0.274128E+00_JPRB, 0.262873E+00_JPRB &
+  &, 0.251888E+00_JPRB, 0.241168E+00_JPRB, 0.230704E+00_JPRB &
+  &, 0.220535E+00_JPRB, 0.210625E+00_JPRB, 0.201012E+00_JPRB, 0.191681E+00_JPRB &
+  &, 0.182641E+00_JPRB, 0.173874E+00_JPRB, 0.165385E+00_JPRB &
+  &, 0.157180E+00_JPRB, 0.149261E+00_JPRB, 0.141631E+00_JPRB, 0.134262E+00_JPRB &
+  &, 0.127181E+00_JPRB, 0.120385E+00_JPRB, 0.113842E+00_JPRB &
+  &, 0.107544E+00_JPRB, 0.101548E+00_JPRB, 0.957805E-01_JPRB, 0.902646E-01_JPRB &
+  &, 0.849880E-01_JPRB, 0.799720E-01_JPRB, 0.751677E-01_JPRB &
+  &, 0.705935E-01_JPRB, 0.662319E-01_JPRB, 0.621003E-01_JPRB, 0.581789E-01_JPRB &
+  &, 0.544458E-01_JPRB, 0.509158E-01_JPRB, 0.475643E-01_JPRB &
+  &, 0.444050E-01_JPRB, 0.414108E-01_JPRB, 0.385937E-01_JPRB, 0.359238E-01_JPRB &
+  &, 0.334119E-01_JPRB, 0.310686E-01_JPRB, 0.288608E-01_JPRB &
+  &, 0.267527E-01_JPRB, 0.247972E-01_JPRB, 0.229575E-01_JPRB, 0.212411E-01_JPRB &
+  &, 0.196557E-01_JPRB, 0.181607E-01_JPRB, 0.167620E-01_JPRB &
+  &, 0.154655E-01_JPRB, 0.142265E-01_JPRB, 0.131003E-01_JPRB, 0.120411E-01_JPRB &
+  &, 0.110528E-01_JPRB, 0.101397E-01_JPRB, 0.930597E-02_JPRB &
+  &, 0.855581E-02_JPRB, 0.783770E-02_JPRB, 0.715369E-02_JPRB, 0.650588E-02_JPRB &
+  &, 0.595470E-02_JPRB, 0.544565E-02_JPRB, 0.498093E-02_JPRB &
+  &, 0.450212E-02_JPRB, 0.413210E-02_JPRB, 0.375097E-02_JPRB, 0.335859E-02_JPRB &
+  &, 0.308288E-02_JPRB, 0.279906E-02_JPRB, 0.250702E-02_JPRB/)
+XCW( 536, :) = (/ &
+  &  0.100560E+01_JPRB, 0.100596E+01_JPRB, 0.100589E+01_JPRB, 0.100541E+01_JPRB &
+  &, 0.100450E+01_JPRB, 0.100318E+01_JPRB, 0.100144E+01_JPRB &
+  &, 0.999273E+00_JPRB, 0.996691E+00_JPRB, 0.993689E+00_JPRB, 0.990270E+00_JPRB &
+  &, 0.986433E+00_JPRB, 0.982183E+00_JPRB, 0.977518E+00_JPRB &
+  &, 0.972445E+00_JPRB, 0.966962E+00_JPRB, 0.961074E+00_JPRB, 0.954784E+00_JPRB &
+  &, 0.948097E+00_JPRB, 0.941017E+00_JPRB, 0.933545E+00_JPRB &
+  &, 0.925692E+00_JPRB, 0.917458E+00_JPRB, 0.908851E+00_JPRB, 0.899884E+00_JPRB &
+  &, 0.890554E+00_JPRB, 0.880872E+00_JPRB, 0.870851E+00_JPRB &
+  &, 0.860489E+00_JPRB, 0.849813E+00_JPRB, 0.838819E+00_JPRB, 0.827519E+00_JPRB &
+  &, 0.815930E+00_JPRB, 0.804055E+00_JPRB, 0.791912E+00_JPRB &
+  &, 0.779496E+00_JPRB, 0.766868E+00_JPRB, 0.753992E+00_JPRB, 0.740904E+00_JPRB &
+  &, 0.727606E+00_JPRB, 0.714124E+00_JPRB, 0.700466E+00_JPRB &
+  &, 0.686653E+00_JPRB, 0.672700E+00_JPRB, 0.658622E+00_JPRB, 0.644425E+00_JPRB &
+  &, 0.630141E+00_JPRB, 0.615779E+00_JPRB, 0.601348E+00_JPRB &
+  &, 0.586874E+00_JPRB, 0.572382E+00_JPRB, 0.557858E+00_JPRB, 0.543357E+00_JPRB &
+  &, 0.528864E+00_JPRB, 0.514393E+00_JPRB, 0.499987E+00_JPRB &
+  &, 0.485646E+00_JPRB, 0.471383E+00_JPRB, 0.457229E+00_JPRB, 0.443164E+00_JPRB &
+  &, 0.429233E+00_JPRB, 0.415448E+00_JPRB, 0.401805E+00_JPRB &
+  &, 0.388311E+00_JPRB, 0.375014E+00_JPRB, 0.361885E+00_JPRB, 0.348968E+00_JPRB &
+  &, 0.336251E+00_JPRB, 0.323759E+00_JPRB, 0.311474E+00_JPRB &
+  &, 0.299440E+00_JPRB, 0.287637E+00_JPRB, 0.276106E+00_JPRB, 0.264803E+00_JPRB &
+  &, 0.253789E+00_JPRB, 0.243014E+00_JPRB, 0.232516E+00_JPRB &
+  &, 0.222310E+00_JPRB, 0.212362E+00_JPRB, 0.202707E+00_JPRB, 0.193332E+00_JPRB &
+  &, 0.184245E+00_JPRB, 0.175429E+00_JPRB, 0.166888E+00_JPRB &
+  &, 0.158656E+00_JPRB, 0.150680E+00_JPRB, 0.143019E+00_JPRB, 0.135617E+00_JPRB &
+  &, 0.128470E+00_JPRB, 0.121638E+00_JPRB, 0.115024E+00_JPRB &
+  &, 0.108716E+00_JPRB, 0.102644E+00_JPRB, 0.968633E-01_JPRB, 0.912997E-01_JPRB &
+  &, 0.859734E-01_JPRB, 0.809054E-01_JPRB, 0.760821E-01_JPRB &
+  &, 0.714521E-01_JPRB, 0.670687E-01_JPRB, 0.629143E-01_JPRB, 0.589314E-01_JPRB &
+  &, 0.551726E-01_JPRB, 0.516158E-01_JPRB, 0.482363E-01_JPRB &
+  &, 0.450077E-01_JPRB, 0.420232E-01_JPRB, 0.391330E-01_JPRB, 0.364718E-01_JPRB &
+  &, 0.339258E-01_JPRB, 0.315471E-01_JPRB, 0.293026E-01_JPRB &
+  &, 0.272014E-01_JPRB, 0.252073E-01_JPRB, 0.233276E-01_JPRB, 0.216169E-01_JPRB &
+  &, 0.199895E-01_JPRB, 0.184511E-01_JPRB, 0.170568E-01_JPRB &
+  &, 0.157147E-01_JPRB, 0.144794E-01_JPRB, 0.133570E-01_JPRB, 0.122494E-01_JPRB &
+  &, 0.112642E-01_JPRB, 0.103541E-01_JPRB, 0.952342E-02_JPRB &
+  &, 0.872122E-02_JPRB, 0.794952E-02_JPRB, 0.726708E-02_JPRB, 0.667834E-02_JPRB &
+  &, 0.607127E-02_JPRB, 0.556381E-02_JPRB, 0.504082E-02_JPRB &
+  &, 0.462353E-02_JPRB, 0.419363E-02_JPRB, 0.381332E-02_JPRB, 0.348495E-02_JPRB &
+  &, 0.314690E-02_JPRB, 0.286392E-02_JPRB, 0.257273E-02_JPRB/)
+XCW( 537, :) = (/ &
+  &  0.100585E+01_JPRB, 0.100627E+01_JPRB, 0.100627E+01_JPRB, 0.100585E+01_JPRB &
+  &, 0.100501E+01_JPRB, 0.100375E+01_JPRB, 0.100207E+01_JPRB &
+  &, 0.999968E+00_JPRB, 0.997444E+00_JPRB, 0.994507E+00_JPRB, 0.991146E+00_JPRB &
+  &, 0.987373E+00_JPRB, 0.983182E+00_JPRB, 0.978578E+00_JPRB &
+  &, 0.973564E+00_JPRB, 0.968140E+00_JPRB, 0.962309E+00_JPRB, 0.956077E+00_JPRB &
+  &, 0.949446E+00_JPRB, 0.942419E+00_JPRB, 0.935004E+00_JPRB &
+  &, 0.927204E+00_JPRB, 0.919022E+00_JPRB, 0.910469E+00_JPRB, 0.901546E+00_JPRB &
+  &, 0.892267E+00_JPRB, 0.882634E+00_JPRB, 0.872660E+00_JPRB &
+  &, 0.862346E+00_JPRB, 0.851712E+00_JPRB, 0.840757E+00_JPRB, 0.829498E+00_JPRB &
+  &, 0.817946E+00_JPRB, 0.806112E+00_JPRB, 0.794003E+00_JPRB &
+  &, 0.781635E+00_JPRB, 0.769024E+00_JPRB, 0.756182E+00_JPRB, 0.743119E+00_JPRB &
+  &, 0.729847E+00_JPRB, 0.716389E+00_JPRB, 0.702756E+00_JPRB &
+  &, 0.688968E+00_JPRB, 0.675027E+00_JPRB, 0.660961E+00_JPRB, 0.646786E+00_JPRB &
+  &, 0.632511E+00_JPRB, 0.618157E+00_JPRB, 0.603747E+00_JPRB &
+  &, 0.589279E+00_JPRB, 0.574778E+00_JPRB, 0.560271E+00_JPRB, 0.545756E+00_JPRB &
+  &, 0.531263E+00_JPRB, 0.516804E+00_JPRB, 0.502379E+00_JPRB &
+  &, 0.488032E+00_JPRB, 0.473762E+00_JPRB, 0.459582E+00_JPRB, 0.445504E+00_JPRB &
+  &, 0.431558E+00_JPRB, 0.417757E+00_JPRB, 0.404077E+00_JPRB &
+  &, 0.390580E+00_JPRB, 0.377240E+00_JPRB, 0.364103E+00_JPRB, 0.351157E+00_JPRB &
+  &, 0.338409E+00_JPRB, 0.325882E+00_JPRB, 0.313560E+00_JPRB &
+  &, 0.301507E+00_JPRB, 0.289661E+00_JPRB, 0.278085E+00_JPRB, 0.266755E+00_JPRB &
+  &, 0.255690E+00_JPRB, 0.244883E+00_JPRB, 0.234352E+00_JPRB &
+  &, 0.224086E+00_JPRB, 0.214098E+00_JPRB, 0.204402E+00_JPRB, 0.194983E+00_JPRB &
+  &, 0.185850E+00_JPRB, 0.176984E+00_JPRB, 0.168419E+00_JPRB &
+  &, 0.160132E+00_JPRB, 0.152127E+00_JPRB, 0.144407E+00_JPRB, 0.136971E+00_JPRB &
+  &, 0.129790E+00_JPRB, 0.122890E+00_JPRB, 0.116268E+00_JPRB &
+  &, 0.109887E+00_JPRB, 0.103772E+00_JPRB, 0.979460E-01_JPRB, 0.923348E-01_JPRB &
+  &, 0.869927E-01_JPRB, 0.818734E-01_JPRB, 0.769965E-01_JPRB &
+  &, 0.723464E-01_JPRB, 0.679056E-01_JPRB, 0.636914E-01_JPRB, 0.596839E-01_JPRB &
+  &, 0.558995E-01_JPRB, 0.523158E-01_JPRB, 0.488688E-01_JPRB &
+  &, 0.456505E-01_JPRB, 0.425948E-01_JPRB, 0.397138E-01_JPRB, 0.370198E-01_JPRB &
+  &, 0.344396E-01_JPRB, 0.320256E-01_JPRB, 0.297444E-01_JPRB &
+  &, 0.276053E-01_JPRB, 0.256174E-01_JPRB, 0.237440E-01_JPRB, 0.219926E-01_JPRB &
+  &, 0.203233E-01_JPRB, 0.187900E-01_JPRB, 0.173515E-01_JPRB &
+  &, 0.160139E-01_JPRB, 0.147324E-01_JPRB, 0.135623E-01_JPRB, 0.125098E-01_JPRB &
+  &, 0.114755E-01_JPRB, 0.105685E-01_JPRB, 0.968651E-02_JPRB &
+  &, 0.888662E-02_JPRB, 0.811726E-02_JPRB, 0.743717E-02_JPRB, 0.679331E-02_JPRB &
+  &, 0.618783E-02_JPRB, 0.568198E-02_JPRB, 0.516060E-02_JPRB &
+  &, 0.468423E-02_JPRB, 0.431667E-02_JPRB, 0.387566E-02_JPRB, 0.354813E-02_JPRB &
+  &, 0.321092E-02_JPRB, 0.292878E-02_JPRB, 0.263845E-02_JPRB/)
+XCW( 538, :) = (/ &
+  &  0.100611E+01_JPRB, 0.100659E+01_JPRB, 0.100665E+01_JPRB, 0.100629E+01_JPRB &
+  &, 0.100552E+01_JPRB, 0.100432E+01_JPRB, 0.100270E+01_JPRB &
+  &, 0.100066E+01_JPRB, 0.998203E+00_JPRB, 0.995325E+00_JPRB, 0.992029E+00_JPRB &
+  &, 0.988314E+00_JPRB, 0.984185E+00_JPRB, 0.979639E+00_JPRB &
+  &, 0.974684E+00_JPRB, 0.969319E+00_JPRB, 0.963547E+00_JPRB, 0.957371E+00_JPRB &
+  &, 0.950796E+00_JPRB, 0.943824E+00_JPRB, 0.936463E+00_JPRB &
+  &, 0.928716E+00_JPRB, 0.920589E+00_JPRB, 0.912086E+00_JPRB, 0.903216E+00_JPRB &
+  &, 0.893984E+00_JPRB, 0.884400E+00_JPRB, 0.874469E+00_JPRB &
+  &, 0.864204E+00_JPRB, 0.853612E+00_JPRB, 0.842700E+00_JPRB, 0.831418E+00_JPRB &
+  &, 0.819969E+00_JPRB, 0.808169E+00_JPRB, 0.796098E+00_JPRB &
+  &, 0.783765E+00_JPRB, 0.771188E+00_JPRB, 0.758373E+00_JPRB, 0.745335E+00_JPRB &
+  &, 0.732098E+00_JPRB, 0.718666E+00_JPRB, 0.705057E+00_JPRB &
+  &, 0.691282E+00_JPRB, 0.677366E+00_JPRB, 0.663323E+00_JPRB, 0.649159E+00_JPRB &
+  &, 0.634894E+00_JPRB, 0.620549E+00_JPRB, 0.606146E+00_JPRB &
+  &, 0.591684E+00_JPRB, 0.577187E+00_JPRB, 0.562683E+00_JPRB, 0.548170E+00_JPRB &
+  &, 0.533662E+00_JPRB, 0.519201E+00_JPRB, 0.504787E+00_JPRB &
+  &, 0.490419E+00_JPRB, 0.476141E+00_JPRB, 0.461950E+00_JPRB, 0.447861E+00_JPRB &
+  &, 0.433901E+00_JPRB, 0.420066E+00_JPRB, 0.406384E+00_JPRB &
+  &, 0.392848E+00_JPRB, 0.379503E+00_JPRB, 0.366321E+00_JPRB, 0.353346E+00_JPRB &
+  &, 0.340566E+00_JPRB, 0.328005E+00_JPRB, 0.315666E+00_JPRB &
+  &, 0.303573E+00_JPRB, 0.291706E+00_JPRB, 0.280085E+00_JPRB, 0.268707E+00_JPRB &
+  &, 0.257613E+00_JPRB, 0.246753E+00_JPRB, 0.236187E+00_JPRB &
+  &, 0.225885E+00_JPRB, 0.215860E+00_JPRB, 0.206122E+00_JPRB, 0.196660E+00_JPRB &
+  &, 0.187480E+00_JPRB, 0.178566E+00_JPRB, 0.169949E+00_JPRB &
+  &, 0.161636E+00_JPRB, 0.153574E+00_JPRB, 0.145794E+00_JPRB, 0.138326E+00_JPRB &
+  &, 0.131110E+00_JPRB, 0.124142E+00_JPRB, 0.117481E+00_JPRB &
+  &, 0.111059E+00_JPRB, 0.104932E+00_JPRB, 0.990287E-01_JPRB, 0.934033E-01_JPRB &
+  &, 0.879781E-01_JPRB, 0.828414E-01_JPRB, 0.779109E-01_JPRB &
+  &, 0.732408E-01_JPRB, 0.687789E-01_JPRB, 0.645054E-01_JPRB, 0.604741E-01_JPRB &
+  &, 0.566263E-01_JPRB, 0.530158E-01_JPRB, 0.495804E-01_JPRB &
+  &, 0.462933E-01_JPRB, 0.432073E-01_JPRB, 0.402947E-01_JPRB, 0.375678E-01_JPRB &
+  &, 0.349535E-01_JPRB, 0.325041E-01_JPRB, 0.302304E-01_JPRB &
+  &, 0.280540E-01_JPRB, 0.260275E-01_JPRB, 0.241141E-01_JPRB, 0.223214E-01_JPRB &
+  &, 0.206570E-01_JPRB, 0.191288E-01_JPRB, 0.176463E-01_JPRB &
+  &, 0.162632E-01_JPRB, 0.150359E-01_JPRB, 0.138190E-01_JPRB, 0.127181E-01_JPRB &
+  &, 0.116869E-01_JPRB, 0.107829E-01_JPRB, 0.984960E-02_JPRB &
+  &, 0.905202E-02_JPRB, 0.828500E-02_JPRB, 0.760725E-02_JPRB, 0.696577E-02_JPRB &
+  &, 0.636267E-02_JPRB, 0.580014E-02_JPRB, 0.528039E-02_JPRB &
+  &, 0.480564E-02_JPRB, 0.437820E-02_JPRB, 0.400036E-02_JPRB, 0.361131E-02_JPRB &
+  &, 0.327494E-02_JPRB, 0.299364E-02_JPRB, 0.270416E-02_JPRB/)
+XCW( 539, :) = (/ &
+  &  0.100636E+01_JPRB, 0.100691E+01_JPRB, 0.100703E+01_JPRB, 0.100674E+01_JPRB &
+  &, 0.100602E+01_JPRB, 0.100489E+01_JPRB, 0.100333E+01_JPRB &
+  &, 0.100136E+01_JPRB, 0.998961E+00_JPRB, 0.996143E+00_JPRB, 0.992910E+00_JPRB &
+  &, 0.989256E+00_JPRB, 0.985186E+00_JPRB, 0.980702E+00_JPRB &
+  &, 0.975803E+00_JPRB, 0.970499E+00_JPRB, 0.964784E+00_JPRB, 0.958667E+00_JPRB &
+  &, 0.952148E+00_JPRB, 0.945233E+00_JPRB, 0.937926E+00_JPRB &
+  &, 0.930231E+00_JPRB, 0.922155E+00_JPRB, 0.913707E+00_JPRB, 0.904886E+00_JPRB &
+  &, 0.895705E+00_JPRB, 0.886166E+00_JPRB, 0.876286E+00_JPRB &
+  &, 0.866065E+00_JPRB, 0.855515E+00_JPRB, 0.844646E+00_JPRB, 0.833467E+00_JPRB &
+  &, 0.821993E+00_JPRB, 0.810236E+00_JPRB, 0.798198E+00_JPRB &
+  &, 0.785895E+00_JPRB, 0.773353E+00_JPRB, 0.760573E+00_JPRB, 0.747561E+00_JPRB &
+  &, 0.734349E+00_JPRB, 0.720942E+00_JPRB, 0.707358E+00_JPRB &
+  &, 0.693608E+00_JPRB, 0.679704E+00_JPRB, 0.665673E+00_JPRB, 0.651532E+00_JPRB &
+  &, 0.637289E+00_JPRB, 0.622952E+00_JPRB, 0.608544E+00_JPRB &
+  &, 0.594101E+00_JPRB, 0.579610E+00_JPRB, 0.565095E+00_JPRB, 0.550583E+00_JPRB &
+  &, 0.536089E+00_JPRB, 0.521612E+00_JPRB, 0.507195E+00_JPRB &
+  &, 0.492821E+00_JPRB, 0.478535E+00_JPRB, 0.464319E+00_JPRB, 0.450218E+00_JPRB &
+  &, 0.436244E+00_JPRB, 0.422392E+00_JPRB, 0.408692E+00_JPRB &
+  &, 0.395135E+00_JPRB, 0.381748E+00_JPRB, 0.368558E+00_JPRB, 0.355554E+00_JPRB &
+  &, 0.342743E+00_JPRB, 0.330148E+00_JPRB, 0.317793E+00_JPRB &
+  &, 0.305640E+00_JPRB, 0.293752E+00_JPRB, 0.282085E+00_JPRB, 0.270682E+00_JPRB &
+  &, 0.259537E+00_JPRB, 0.248645E+00_JPRB, 0.238047E+00_JPRB &
+  &, 0.227709E+00_JPRB, 0.217621E+00_JPRB, 0.207843E+00_JPRB, 0.198336E+00_JPRB &
+  &, 0.189111E+00_JPRB, 0.180174E+00_JPRB, 0.171506E+00_JPRB &
+  &, 0.163139E+00_JPRB, 0.155050E+00_JPRB, 0.147211E+00_JPRB, 0.139680E+00_JPRB &
+  &, 0.132429E+00_JPRB, 0.125425E+00_JPRB, 0.118725E+00_JPRB &
+  &, 0.112262E+00_JPRB, 0.106060E+00_JPRB, 0.100144E+00_JPRB, 0.944384E-01_JPRB &
+  &, 0.889974E-01_JPRB, 0.838093E-01_JPRB, 0.788605E-01_JPRB &
+  &, 0.741352E-01_JPRB, 0.696157E-01_JPRB, 0.653565E-01_JPRB, 0.612642E-01_JPRB &
+  &, 0.573914E-01_JPRB, 0.537158E-01_JPRB, 0.502524E-01_JPRB &
+  &, 0.469362E-01_JPRB, 0.438197E-01_JPRB, 0.408755E-01_JPRB, 0.381158E-01_JPRB &
+  &, 0.354674E-01_JPRB, 0.330261E-01_JPRB, 0.306723E-01_JPRB &
+  &, 0.285027E-01_JPRB, 0.264376E-01_JPRB, 0.245305E-01_JPRB, 0.226972E-01_JPRB &
+  &, 0.210385E-01_JPRB, 0.194192E-01_JPRB, 0.179410E-01_JPRB &
+  &, 0.165623E-01_JPRB, 0.152889E-01_JPRB, 0.140757E-01_JPRB, 0.129786E-01_JPRB &
+  &, 0.119511E-01_JPRB, 0.109437E-01_JPRB, 0.100670E-01_JPRB &
+  &, 0.921743E-02_JPRB, 0.845273E-02_JPRB, 0.777734E-02_JPRB, 0.708074E-02_JPRB &
+  &, 0.647924E-02_JPRB, 0.591831E-02_JPRB, 0.540017E-02_JPRB &
+  &, 0.492705E-02_JPRB, 0.450124E-02_JPRB, 0.406271E-02_JPRB, 0.373767E-02_JPRB &
+  &, 0.333895E-02_JPRB, 0.305850E-02_JPRB, 0.276987E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART77',1,ZHOOK_HANDLE)
+END SUBROUTINE PART77
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART78
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART78',0,ZHOOK_HANDLE)
+
+XCW( 540, :) = (/ &
+  &  0.100661E+01_JPRB, 0.100722E+01_JPRB, 0.100741E+01_JPRB, 0.100718E+01_JPRB &
+  &, 0.100653E+01_JPRB, 0.100546E+01_JPRB, 0.100397E+01_JPRB &
+  &, 0.100205E+01_JPRB, 0.999720E+00_JPRB, 0.996964E+00_JPRB, 0.993792E+00_JPRB &
+  &, 0.990198E+00_JPRB, 0.986190E+00_JPRB, 0.981766E+00_JPRB &
+  &, 0.976929E+00_JPRB, 0.971680E+00_JPRB, 0.966024E+00_JPRB, 0.959964E+00_JPRB &
+  &, 0.953502E+00_JPRB, 0.946641E+00_JPRB, 0.939388E+00_JPRB &
+  &, 0.931750E+00_JPRB, 0.923726E+00_JPRB, 0.915327E+00_JPRB, 0.906559E+00_JPRB &
+  &, 0.897425E+00_JPRB, 0.887936E+00_JPRB, 0.878102E+00_JPRB &
+  &, 0.867926E+00_JPRB, 0.857422E+00_JPRB, 0.846597E+00_JPRB, 0.835459E+00_JPRB &
+  &, 0.824026E+00_JPRB, 0.812302E+00_JPRB, 0.800303E+00_JPRB &
+  &, 0.788034E+00_JPRB, 0.775528E+00_JPRB, 0.762773E+00_JPRB, 0.749796E+00_JPRB &
+  &, 0.736610E+00_JPRB, 0.723229E+00_JPRB, 0.709659E+00_JPRB &
+  &, 0.695934E+00_JPRB, 0.682054E+00_JPRB, 0.668046E+00_JPRB, 0.653917E+00_JPRB &
+  &, 0.639672E+00_JPRB, 0.625356E+00_JPRB, 0.610969E+00_JPRB &
+  &, 0.596519E+00_JPRB, 0.582032E+00_JPRB, 0.567521E+00_JPRB, 0.553011E+00_JPRB &
+  &, 0.538517E+00_JPRB, 0.524038E+00_JPRB, 0.509602E+00_JPRB &
+  &, 0.495223E+00_JPRB, 0.480930E+00_JPRB, 0.466704E+00_JPRB, 0.452591E+00_JPRB &
+  &, 0.438603E+00_JPRB, 0.424719E+00_JPRB, 0.410999E+00_JPRB &
+  &, 0.397421E+00_JPRB, 0.384029E+00_JPRB, 0.370795E+00_JPRB, 0.357763E+00_JPRB &
+  &, 0.344940E+00_JPRB, 0.332311E+00_JPRB, 0.319899E+00_JPRB &
+  &, 0.307728E+00_JPRB, 0.295797E+00_JPRB, 0.284108E+00_JPRB, 0.272656E+00_JPRB &
+  &, 0.261483E+00_JPRB, 0.250562E+00_JPRB, 0.239907E+00_JPRB &
+  &, 0.229509E+00_JPRB, 0.219407E+00_JPRB, 0.209588E+00_JPRB, 0.200039E+00_JPRB &
+  &, 0.190768E+00_JPRB, 0.181783E+00_JPRB, 0.173064E+00_JPRB &
+  &, 0.164643E+00_JPRB, 0.156497E+00_JPRB, 0.148656E+00_JPRB, 0.141064E+00_JPRB &
+  &, 0.133749E+00_JPRB, 0.126739E+00_JPRB, 0.119969E+00_JPRB &
+  &, 0.113466E+00_JPRB, 0.107221E+00_JPRB, 0.101260E+00_JPRB, 0.955403E-01_JPRB &
+  &, 0.900507E-01_JPRB, 0.848119E-01_JPRB, 0.798101E-01_JPRB &
+  &, 0.750295E-01_JPRB, 0.704890E-01_JPRB, 0.661706E-01_JPRB, 0.620543E-01_JPRB &
+  &, 0.581565E-01_JPRB, 0.544547E-01_JPRB, 0.509244E-01_JPRB &
+  &, 0.476192E-01_JPRB, 0.444730E-01_JPRB, 0.414563E-01_JPRB, 0.386637E-01_JPRB &
+  &, 0.360241E-01_JPRB, 0.335046E-01_JPRB, 0.311583E-01_JPRB &
+  &, 0.289514E-01_JPRB, 0.268476E-01_JPRB, 0.249006E-01_JPRB, 0.230730E-01_JPRB &
+  &, 0.213723E-01_JPRB, 0.197580E-01_JPRB, 0.182849E-01_JPRB &
+  &, 0.168614E-01_JPRB, 0.155419E-01_JPRB, 0.143323E-01_JPRB, 0.131869E-01_JPRB &
+  &, 0.121624E-01_JPRB, 0.111581E-01_JPRB, 0.102845E-01_JPRB &
+  &, 0.943796E-02_JPRB, 0.862047E-02_JPRB, 0.789073E-02_JPRB, 0.725320E-02_JPRB &
+  &, 0.659580E-02_JPRB, 0.603648E-02_JPRB, 0.551995E-02_JPRB &
+  &, 0.504846E-02_JPRB, 0.456277E-02_JPRB, 0.418741E-02_JPRB, 0.380085E-02_JPRB &
+  &, 0.346699E-02_JPRB, 0.312336E-02_JPRB, 0.283558E-02_JPRB/)
+XCW( 541, :) = (/ &
+  &  0.100686E+01_JPRB, 0.100754E+01_JPRB, 0.100779E+01_JPRB, 0.100762E+01_JPRB &
+  &, 0.100704E+01_JPRB, 0.100603E+01_JPRB, 0.100460E+01_JPRB &
+  &, 0.100275E+01_JPRB, 0.100047E+01_JPRB, 0.997785E+00_JPRB, 0.994673E+00_JPRB &
+  &, 0.991142E+00_JPRB, 0.987194E+00_JPRB, 0.982830E+00_JPRB &
+  &, 0.978052E+00_JPRB, 0.972863E+00_JPRB, 0.967265E+00_JPRB, 0.961262E+00_JPRB &
+  &, 0.954857E+00_JPRB, 0.948053E+00_JPRB, 0.940857E+00_JPRB &
+  &, 0.933268E+00_JPRB, 0.925299E+00_JPRB, 0.916951E+00_JPRB, 0.908232E+00_JPRB &
+  &, 0.899149E+00_JPRB, 0.889709E+00_JPRB, 0.879923E+00_JPRB &
+  &, 0.869791E+00_JPRB, 0.859329E+00_JPRB, 0.848548E+00_JPRB, 0.837454E+00_JPRB &
+  &, 0.826058E+00_JPRB, 0.814372E+00_JPRB, 0.802412E+00_JPRB &
+  &, 0.790183E+00_JPRB, 0.777702E+00_JPRB, 0.764983E+00_JPRB, 0.752032E+00_JPRB &
+  &, 0.738872E+00_JPRB, 0.725515E+00_JPRB, 0.711982E+00_JPRB &
+  &, 0.698270E+00_JPRB, 0.684415E+00_JPRB, 0.670420E+00_JPRB, 0.656301E+00_JPRB &
+  &, 0.642079E+00_JPRB, 0.627773E+00_JPRB, 0.613380E+00_JPRB &
+  &, 0.598950E+00_JPRB, 0.584468E+00_JPRB, 0.569960E+00_JPRB, 0.555453E+00_JPRB &
+  &, 0.540945E+00_JPRB, 0.526464E+00_JPRB, 0.512025E+00_JPRB &
+  &, 0.497641E+00_JPRB, 0.483340E+00_JPRB, 0.469105E+00_JPRB, 0.454981E+00_JPRB &
+  &, 0.440963E+00_JPRB, 0.427079E+00_JPRB, 0.413325E+00_JPRB &
+  &, 0.399726E+00_JPRB, 0.386311E+00_JPRB, 0.373051E+00_JPRB, 0.359991E+00_JPRB &
+  &, 0.347137E+00_JPRB, 0.334475E+00_JPRB, 0.322047E+00_JPRB &
+  &, 0.309837E+00_JPRB, 0.297864E+00_JPRB, 0.286130E+00_JPRB, 0.274653E+00_JPRB &
+  &, 0.263430E+00_JPRB, 0.252478E+00_JPRB, 0.241766E+00_JPRB &
+  &, 0.231358E+00_JPRB, 0.221193E+00_JPRB, 0.211334E+00_JPRB, 0.201742E+00_JPRB &
+  &, 0.192425E+00_JPRB, 0.183391E+00_JPRB, 0.174649E+00_JPRB &
+  &, 0.166175E+00_JPRB, 0.158001E+00_JPRB, 0.150073E+00_JPRB, 0.142448E+00_JPRB &
+  &, 0.135099E+00_JPRB, 0.128022E+00_JPRB, 0.121213E+00_JPRB &
+  &, 0.114669E+00_JPRB, 0.108381E+00_JPRB, 0.102375E+00_JPRB, 0.966088E-01_JPRB &
+  &, 0.911040E-01_JPRB, 0.858144E-01_JPRB, 0.807597E-01_JPRB &
+  &, 0.759597E-01_JPRB, 0.713622E-01_JPRB, 0.670216E-01_JPRB, 0.628821E-01_JPRB &
+  &, 0.589215E-01_JPRB, 0.551935E-01_JPRB, 0.516359E-01_JPRB &
+  &, 0.482620E-01_JPRB, 0.450854E-01_JPRB, 0.420786E-01_JPRB, 0.392539E-01_JPRB &
+  &, 0.365380E-01_JPRB, 0.340266E-01_JPRB, 0.316443E-01_JPRB &
+  &, 0.294001E-01_JPRB, 0.273033E-01_JPRB, 0.253170E-01_JPRB, 0.234487E-01_JPRB &
+  &, 0.217538E-01_JPRB, 0.200968E-01_JPRB, 0.185797E-01_JPRB &
+  &, 0.171606E-01_JPRB, 0.158454E-01_JPRB, 0.145890E-01_JPRB, 0.134473E-01_JPRB &
+  &, 0.123737E-01_JPRB, 0.113725E-01_JPRB, 0.104476E-01_JPRB &
+  &, 0.960337E-02_JPRB, 0.878820E-02_JPRB, 0.806082E-02_JPRB, 0.736817E-02_JPRB &
+  &, 0.677064E-02_JPRB, 0.615464E-02_JPRB, 0.563973E-02_JPRB &
+  &, 0.516987E-02_JPRB, 0.468582E-02_JPRB, 0.424976E-02_JPRB, 0.386404E-02_JPRB &
+  &, 0.353101E-02_JPRB, 0.318823E-02_JPRB, 0.290129E-02_JPRB/)
+XCW( 542, :) = (/ &
+  &  0.100712E+01_JPRB, 0.100785E+01_JPRB, 0.100817E+01_JPRB, 0.100807E+01_JPRB &
+  &, 0.100755E+01_JPRB, 0.100660E+01_JPRB, 0.100523E+01_JPRB &
+  &, 0.100345E+01_JPRB, 0.100124E+01_JPRB, 0.998606E+00_JPRB, 0.995556E+00_JPRB &
+  &, 0.992084E+00_JPRB, 0.988199E+00_JPRB, 0.983895E+00_JPRB &
+  &, 0.979178E+00_JPRB, 0.974047E+00_JPRB, 0.968508E+00_JPRB, 0.962563E+00_JPRB &
+  &, 0.956213E+00_JPRB, 0.949465E+00_JPRB, 0.942322E+00_JPRB &
+  &, 0.934790E+00_JPRB, 0.926873E+00_JPRB, 0.918579E+00_JPRB, 0.909912E+00_JPRB &
+  &, 0.900877E+00_JPRB, 0.891486E+00_JPRB, 0.881743E+00_JPRB &
+  &, 0.871660E+00_JPRB, 0.861245E+00_JPRB, 0.850502E+00_JPRB, 0.839454E+00_JPRB &
+  &, 0.828095E+00_JPRB, 0.816451E+00_JPRB, 0.804526E+00_JPRB &
+  &, 0.792332E+00_JPRB, 0.779876E+00_JPRB, 0.767192E+00_JPRB, 0.754278E+00_JPRB &
+  &, 0.741143E+00_JPRB, 0.727813E+00_JPRB, 0.714294E+00_JPRB &
+  &, 0.700618E+00_JPRB, 0.686776E+00_JPRB, 0.672793E+00_JPRB, 0.658698E+00_JPRB &
+  &, 0.644486E+00_JPRB, 0.630189E+00_JPRB, 0.615817E+00_JPRB &
+  &, 0.601381E+00_JPRB, 0.586904E+00_JPRB, 0.572414E+00_JPRB, 0.557895E+00_JPRB &
+  &, 0.543387E+00_JPRB, 0.528905E+00_JPRB, 0.514463E+00_JPRB &
+  &, 0.500074E+00_JPRB, 0.485750E+00_JPRB, 0.471507E+00_JPRB, 0.457371E+00_JPRB &
+  &, 0.443339E+00_JPRB, 0.429423E+00_JPRB, 0.415668E+00_JPRB &
+  &, 0.402048E+00_JPRB, 0.388592E+00_JPRB, 0.375326E+00_JPRB, 0.362238E+00_JPRB &
+  &, 0.349334E+00_JPRB, 0.336658E+00_JPRB, 0.324195E+00_JPRB &
+  &, 0.311945E+00_JPRB, 0.299932E+00_JPRB, 0.288174E+00_JPRB, 0.276650E+00_JPRB &
+  &, 0.265399E+00_JPRB, 0.254394E+00_JPRB, 0.243674E+00_JPRB &
+  &, 0.233206E+00_JPRB, 0.223004E+00_JPRB, 0.213080E+00_JPRB, 0.203444E+00_JPRB &
+  &, 0.194082E+00_JPRB, 0.185027E+00_JPRB, 0.176234E+00_JPRB &
+  &, 0.167706E+00_JPRB, 0.159476E+00_JPRB, 0.151518E+00_JPRB, 0.143862E+00_JPRB &
+  &, 0.136448E+00_JPRB, 0.129335E+00_JPRB, 0.122488E+00_JPRB &
+  &, 0.115904E+00_JPRB, 0.109574E+00_JPRB, 0.103524E+00_JPRB, 0.977107E-01_JPRB &
+  &, 0.921233E-01_JPRB, 0.868170E-01_JPRB, 0.817444E-01_JPRB &
+  &, 0.768898E-01_JPRB, 0.722719E-01_JPRB, 0.678727E-01_JPRB, 0.636722E-01_JPRB &
+  &, 0.596866E-01_JPRB, 0.559324E-01_JPRB, 0.523474E-01_JPRB &
+  &, 0.489450E-01_JPRB, 0.457387E-01_JPRB, 0.427010E-01_JPRB, 0.398019E-01_JPRB &
+  &, 0.370947E-01_JPRB, 0.345486E-01_JPRB, 0.321303E-01_JPRB &
+  &, 0.298488E-01_JPRB, 0.277589E-01_JPRB, 0.257334E-01_JPRB, 0.238715E-01_JPRB &
+  &, 0.220876E-01_JPRB, 0.204356E-01_JPRB, 0.189236E-01_JPRB &
+  &, 0.174597E-01_JPRB, 0.161490E-01_JPRB, 0.148970E-01_JPRB, 0.137077E-01_JPRB &
+  &, 0.126379E-01_JPRB, 0.115868E-01_JPRB, 0.106650E-01_JPRB &
+  &, 0.982390E-02_JPRB, 0.901185E-02_JPRB, 0.823091E-02_JPRB, 0.754063E-02_JPRB &
+  &, 0.688721E-02_JPRB, 0.633189E-02_JPRB, 0.575951E-02_JPRB &
+  &, 0.523057E-02_JPRB, 0.480887E-02_JPRB, 0.437446E-02_JPRB, 0.399040E-02_JPRB &
+  &, 0.359503E-02_JPRB, 0.325309E-02_JPRB, 0.296700E-02_JPRB/)
+XCW( 543, :) = (/ &
+  &  0.100737E+01_JPRB, 0.100817E+01_JPRB, 0.100855E+01_JPRB, 0.100851E+01_JPRB &
+  &, 0.100805E+01_JPRB, 0.100717E+01_JPRB, 0.100587E+01_JPRB &
+  &, 0.100414E+01_JPRB, 0.100200E+01_JPRB, 0.999428E+00_JPRB, 0.996440E+00_JPRB &
+  &, 0.993032E+00_JPRB, 0.989204E+00_JPRB, 0.984962E+00_JPRB &
+  &, 0.980303E+00_JPRB, 0.975233E+00_JPRB, 0.969752E+00_JPRB, 0.963864E+00_JPRB &
+  &, 0.957572E+00_JPRB, 0.950880E+00_JPRB, 0.943791E+00_JPRB &
+  &, 0.936315E+00_JPRB, 0.928450E+00_JPRB, 0.920207E+00_JPRB, 0.911593E+00_JPRB &
+  &, 0.902609E+00_JPRB, 0.893266E+00_JPRB, 0.883571E+00_JPRB &
+  &, 0.873533E+00_JPRB, 0.863160E+00_JPRB, 0.852466E+00_JPRB, 0.841453E+00_JPRB &
+  &, 0.830137E+00_JPRB, 0.818531E+00_JPRB, 0.806640E+00_JPRB &
+  &, 0.794480E+00_JPRB, 0.782070E+00_JPRB, 0.769412E+00_JPRB, 0.756524E+00_JPRB &
+  &, 0.743415E+00_JPRB, 0.730110E+00_JPRB, 0.716628E+00_JPRB &
+  &, 0.702955E+00_JPRB, 0.689137E+00_JPRB, 0.675178E+00_JPRB, 0.661095E+00_JPRB &
+  &, 0.646905E+00_JPRB, 0.632618E+00_JPRB, 0.618254E+00_JPRB &
+  &, 0.603825E+00_JPRB, 0.589354E+00_JPRB, 0.574854E+00_JPRB, 0.560350E+00_JPRB &
+  &, 0.545844E+00_JPRB, 0.531361E+00_JPRB, 0.516901E+00_JPRB &
+  &, 0.502507E+00_JPRB, 0.488177E+00_JPRB, 0.473924E+00_JPRB, 0.459761E+00_JPRB &
+  &, 0.445716E+00_JPRB, 0.431801E+00_JPRB, 0.418011E+00_JPRB &
+  &, 0.404371E+00_JPRB, 0.390892E+00_JPRB, 0.377600E+00_JPRB, 0.364485E+00_JPRB &
+  &, 0.351550E+00_JPRB, 0.338842E+00_JPRB, 0.326342E+00_JPRB &
+  &, 0.314075E+00_JPRB, 0.302020E+00_JPRB, 0.290219E+00_JPRB, 0.278670E+00_JPRB &
+  &, 0.267369E+00_JPRB, 0.256334E+00_JPRB, 0.245557E+00_JPRB &
+  &, 0.235055E+00_JPRB, 0.224815E+00_JPRB, 0.214851E+00_JPRB, 0.205173E+00_JPRB &
+  &, 0.195765E+00_JPRB, 0.186662E+00_JPRB, 0.177819E+00_JPRB &
+  &, 0.169266E+00_JPRB, 0.160980E+00_JPRB, 0.152992E+00_JPRB, 0.145275E+00_JPRB &
+  &, 0.137828E+00_JPRB, 0.130679E+00_JPRB, 0.123764E+00_JPRB &
+  &, 0.117139E+00_JPRB, 0.110767E+00_JPRB, 0.104672E+00_JPRB, 0.988125E-01_JPRB &
+  &, 0.932106E-01_JPRB, 0.878541E-01_JPRB, 0.827292E-01_JPRB &
+  &, 0.778200E-01_JPRB, 0.731815E-01_JPRB, 0.687237E-01_JPRB, 0.645000E-01_JPRB &
+  &, 0.604900E-01_JPRB, 0.566713E-01_JPRB, 0.530590E-01_JPRB &
+  &, 0.496280E-01_JPRB, 0.463511E-01_JPRB, 0.432818E-01_JPRB, 0.403920E-01_JPRB &
+  &, 0.376514E-01_JPRB, 0.350706E-01_JPRB, 0.326163E-01_JPRB &
+  &, 0.303424E-01_JPRB, 0.281690E-01_JPRB, 0.261498E-01_JPRB, 0.242473E-01_JPRB &
+  &, 0.224690E-01_JPRB, 0.208228E-01_JPRB, 0.192183E-01_JPRB &
+  &, 0.177588E-01_JPRB, 0.164019E-01_JPRB, 0.151537E-01_JPRB, 0.139681E-01_JPRB &
+  &, 0.128493E-01_JPRB, 0.118548E-01_JPRB, 0.108825E-01_JPRB &
+  &, 0.998931E-02_JPRB, 0.917959E-02_JPRB, 0.840100E-02_JPRB, 0.771308E-02_JPRB &
+  &, 0.706205E-02_JPRB, 0.645006E-02_JPRB, 0.587929E-02_JPRB &
+  &, 0.535198E-02_JPRB, 0.493191E-02_JPRB, 0.443681E-02_JPRB, 0.405358E-02_JPRB &
+  &, 0.372306E-02_JPRB, 0.338281E-02_JPRB, 0.303271E-02_JPRB/)
+XCW( 544, :) = (/ &
+  &  0.100763E+01_JPRB, 0.100849E+01_JPRB, 0.100893E+01_JPRB, 0.100896E+01_JPRB &
+  &, 0.100856E+01_JPRB, 0.100774E+01_JPRB, 0.100650E+01_JPRB &
+  &, 0.100484E+01_JPRB, 0.100276E+01_JPRB, 0.100025E+01_JPRB, 0.997324E+00_JPRB &
+  &, 0.993977E+00_JPRB, 0.990211E+00_JPRB, 0.986029E+00_JPRB &
+  &, 0.981431E+00_JPRB, 0.976419E+00_JPRB, 0.970996E+00_JPRB, 0.965155E+00_JPRB &
+  &, 0.958932E+00_JPRB, 0.952295E+00_JPRB, 0.945263E+00_JPRB &
+  &, 0.937840E+00_JPRB, 0.930030E+00_JPRB, 0.921841E+00_JPRB, 0.913273E+00_JPRB &
+  &, 0.904340E+00_JPRB, 0.895047E+00_JPRB, 0.885399E+00_JPRB &
+  &, 0.875410E+00_JPRB, 0.865080E+00_JPRB, 0.854429E+00_JPRB, 0.843457E+00_JPRB &
+  &, 0.832182E+00_JPRB, 0.820615E+00_JPRB, 0.808762E+00_JPRB &
+  &, 0.796638E+00_JPRB, 0.784254E+00_JPRB, 0.771632E+00_JPRB, 0.758769E+00_JPRB &
+  &, 0.745697E+00_JPRB, 0.732418E+00_JPRB, 0.718950E+00_JPRB &
+  &, 0.705314E+00_JPRB, 0.691510E+00_JPRB, 0.677575E+00_JPRB, 0.663504E+00_JPRB &
+  &, 0.649325E+00_JPRB, 0.635047E+00_JPRB, 0.620691E+00_JPRB &
+  &, 0.606282E+00_JPRB, 0.591817E+00_JPRB, 0.577321E+00_JPRB, 0.562806E+00_JPRB &
+  &, 0.548301E+00_JPRB, 0.533817E+00_JPRB, 0.519354E+00_JPRB &
+  &, 0.504955E+00_JPRB, 0.490603E+00_JPRB, 0.476341E+00_JPRB, 0.462167E+00_JPRB &
+  &, 0.448110E+00_JPRB, 0.434145E+00_JPRB, 0.420372E+00_JPRB &
+  &, 0.406712E+00_JPRB, 0.393211E+00_JPRB, 0.379875E+00_JPRB, 0.366732E+00_JPRB &
+  &, 0.353787E+00_JPRB, 0.341045E+00_JPRB, 0.328511E+00_JPRB &
+  &, 0.316205E+00_JPRB, 0.304130E+00_JPRB, 0.292285E+00_JPRB, 0.280711E+00_JPRB &
+  &, 0.269361E+00_JPRB, 0.258296E+00_JPRB, 0.247465E+00_JPRB &
+  &, 0.236927E+00_JPRB, 0.226651E+00_JPRB, 0.216647E+00_JPRB, 0.206927E+00_JPRB &
+  &, 0.197474E+00_JPRB, 0.188298E+00_JPRB, 0.179431E+00_JPRB &
+  &, 0.170825E+00_JPRB, 0.162512E+00_JPRB, 0.154467E+00_JPRB, 0.146689E+00_JPRB &
+  &, 0.139208E+00_JPRB, 0.131992E+00_JPRB, 0.125070E+00_JPRB &
+  &, 0.118374E+00_JPRB, 0.111959E+00_JPRB, 0.105820E+00_JPRB, 0.999144E-01_JPRB &
+  &, 0.942639E-01_JPRB, 0.888567E-01_JPRB, 0.837139E-01_JPRB &
+  &, 0.787859E-01_JPRB, 0.740912E-01_JPRB, 0.696118E-01_JPRB, 0.653277E-01_JPRB &
+  &, 0.612933E-01_JPRB, 0.574102E-01_JPRB, 0.537705E-01_JPRB &
+  &, 0.503110E-01_JPRB, 0.470044E-01_JPRB, 0.439041E-01_JPRB, 0.409821E-01_JPRB &
+  &, 0.382081E-01_JPRB, 0.355926E-01_JPRB, 0.331464E-01_JPRB &
+  &, 0.307911E-01_JPRB, 0.286247E-01_JPRB, 0.265662E-01_JPRB, 0.246700E-01_JPRB &
+  &, 0.228505E-01_JPRB, 0.211616E-01_JPRB, 0.195622E-01_JPRB &
+  &, 0.181078E-01_JPRB, 0.167055E-01_JPRB, 0.154103E-01_JPRB, 0.142285E-01_JPRB &
+  &, 0.131135E-01_JPRB, 0.120692E-01_JPRB, 0.110999E-01_JPRB &
+  &, 0.102098E-01_JPRB, 0.934733E-02_JPRB, 0.857109E-02_JPRB, 0.788554E-02_JPRB &
+  &, 0.717861E-02_JPRB, 0.656822E-02_JPRB, 0.599907E-02_JPRB &
+  &, 0.547339E-02_JPRB, 0.499344E-02_JPRB, 0.456151E-02_JPRB, 0.417994E-02_JPRB &
+  &, 0.378708E-02_JPRB, 0.344767E-02_JPRB, 0.309842E-02_JPRB/)
+XCW( 545, :) = (/ &
+  &  0.100788E+01_JPRB, 0.100881E+01_JPRB, 0.100931E+01_JPRB, 0.100940E+01_JPRB &
+  &, 0.100907E+01_JPRB, 0.100831E+01_JPRB, 0.100714E+01_JPRB &
+  &, 0.100554E+01_JPRB, 0.100352E+01_JPRB, 0.100107E+01_JPRB, 0.998210E+00_JPRB &
+  &, 0.994925E+00_JPRB, 0.991219E+00_JPRB, 0.987097E+00_JPRB &
+  &, 0.982559E+00_JPRB, 0.977607E+00_JPRB, 0.972244E+00_JPRB, 0.966471E+00_JPRB &
+  &, 0.960294E+00_JPRB, 0.953713E+00_JPRB, 0.946739E+00_JPRB &
+  &, 0.939368E+00_JPRB, 0.931611E+00_JPRB, 0.923472E+00_JPRB, 0.914960E+00_JPRB &
+  &, 0.906075E+00_JPRB, 0.896832E+00_JPRB, 0.887231E+00_JPRB &
+  &, 0.877287E+00_JPRB, 0.867003E+00_JPRB, 0.856396E+00_JPRB, 0.845469E+00_JPRB &
+  &, 0.834232E+00_JPRB, 0.822703E+00_JPRB, 0.810890E+00_JPRB &
+  &, 0.798796E+00_JPRB, 0.786457E+00_JPRB, 0.773861E+00_JPRB, 0.761035E+00_JPRB &
+  &, 0.747989E+00_JPRB, 0.734736E+00_JPRB, 0.721295E+00_JPRB &
+  &, 0.707673E+00_JPRB, 0.693894E+00_JPRB, 0.679972E+00_JPRB, 0.665924E+00_JPRB &
+  &, 0.651756E+00_JPRB, 0.637488E+00_JPRB, 0.623141E+00_JPRB &
+  &, 0.608739E+00_JPRB, 0.594280E+00_JPRB, 0.579788E+00_JPRB, 0.565276E+00_JPRB &
+  &, 0.550772E+00_JPRB, 0.536288E+00_JPRB, 0.521822E+00_JPRB &
+  &, 0.507404E+00_JPRB, 0.493061E+00_JPRB, 0.478775E+00_JPRB, 0.464591E+00_JPRB &
+  &, 0.450520E+00_JPRB, 0.436558E+00_JPRB, 0.422732E+00_JPRB &
+  &, 0.409053E+00_JPRB, 0.395529E+00_JPRB, 0.382169E+00_JPRB, 0.369018E+00_JPRB &
+  &, 0.356023E+00_JPRB, 0.343249E+00_JPRB, 0.330699E+00_JPRB &
+  &, 0.318356E+00_JPRB, 0.306240E+00_JPRB, 0.294373E+00_JPRB, 0.282753E+00_JPRB &
+  &, 0.271376E+00_JPRB, 0.260259E+00_JPRB, 0.249396E+00_JPRB &
+  &, 0.238800E+00_JPRB, 0.228487E+00_JPRB, 0.218443E+00_JPRB, 0.208681E+00_JPRB &
+  &, 0.199184E+00_JPRB, 0.189987E+00_JPRB, 0.181043E+00_JPRB &
+  &, 0.172413E+00_JPRB, 0.164045E+00_JPRB, 0.155941E+00_JPRB, 0.148132E+00_JPRB &
+  &, 0.140617E+00_JPRB, 0.133336E+00_JPRB, 0.126345E+00_JPRB &
+  &, 0.119640E+00_JPRB, 0.113184E+00_JPRB, 0.107001E+00_JPRB, 0.101050E+00_JPRB &
+  &, 0.953512E-01_JPRB, 0.899284E-01_JPRB, 0.846987E-01_JPRB &
+  &, 0.797518E-01_JPRB, 0.750008E-01_JPRB, 0.704629E-01_JPRB, 0.661931E-01_JPRB &
+  &, 0.620966E-01_JPRB, 0.581880E-01_JPRB, 0.545216E-01_JPRB &
+  &, 0.509940E-01_JPRB, 0.476985E-01_JPRB, 0.445679E-01_JPRB, 0.415723E-01_JPRB &
+  &, 0.387648E-01_JPRB, 0.361146E-01_JPRB, 0.336325E-01_JPRB &
+  &, 0.312846E-01_JPRB, 0.290803E-01_JPRB, 0.270288E-01_JPRB, 0.250458E-01_JPRB &
+  &, 0.232320E-01_JPRB, 0.215005E-01_JPRB, 0.199061E-01_JPRB &
+  &, 0.184070E-01_JPRB, 0.170091E-01_JPRB, 0.157184E-01_JPRB, 0.144889E-01_JPRB &
+  &, 0.133248E-01_JPRB, 0.122836E-01_JPRB, 0.113174E-01_JPRB &
+  &, 0.103752E-01_JPRB, 0.951506E-02_JPRB, 0.874117E-02_JPRB, 0.800051E-02_JPRB &
+  &, 0.735346E-02_JPRB, 0.674547E-02_JPRB, 0.611886E-02_JPRB &
+  &, 0.559480E-02_JPRB, 0.511648E-02_JPRB, 0.468621E-02_JPRB, 0.424312E-02_JPRB &
+  &, 0.385110E-02_JPRB, 0.351254E-02_JPRB, 0.322985E-02_JPRB/)
+XCW( 546, :) = (/ &
+  &  0.100813E+01_JPRB, 0.100912E+01_JPRB, 0.100970E+01_JPRB, 0.100985E+01_JPRB &
+  &, 0.100958E+01_JPRB, 0.100889E+01_JPRB, 0.100777E+01_JPRB &
+  &, 0.100624E+01_JPRB, 0.100427E+01_JPRB, 0.100190E+01_JPRB, 0.999095E+00_JPRB &
+  &, 0.995870E+00_JPRB, 0.992229E+00_JPRB, 0.988167E+00_JPRB &
+  &, 0.983689E+00_JPRB, 0.978797E+00_JPRB, 0.973491E+00_JPRB, 0.967777E+00_JPRB &
+  &, 0.961657E+00_JPRB, 0.955134E+00_JPRB, 0.948214E+00_JPRB &
+  &, 0.940900E+00_JPRB, 0.933195E+00_JPRB, 0.925111E+00_JPRB, 0.916648E+00_JPRB &
+  &, 0.907814E+00_JPRB, 0.898620E+00_JPRB, 0.889066E+00_JPRB &
+  &, 0.879167E+00_JPRB, 0.868930E+00_JPRB, 0.858367E+00_JPRB, 0.847481E+00_JPRB &
+  &, 0.836286E+00_JPRB, 0.824795E+00_JPRB, 0.813017E+00_JPRB &
+  &, 0.800963E+00_JPRB, 0.788650E+00_JPRB, 0.776091E+00_JPRB, 0.763291E+00_JPRB &
+  &, 0.750281E+00_JPRB, 0.737055E+00_JPRB, 0.723639E+00_JPRB &
+  &, 0.710043E+00_JPRB, 0.696278E+00_JPRB, 0.682380E+00_JPRB, 0.668345E+00_JPRB &
+  &, 0.654188E+00_JPRB, 0.639942E+00_JPRB, 0.625604E+00_JPRB &
+  &, 0.611209E+00_JPRB, 0.596756E+00_JPRB, 0.582269E+00_JPRB, 0.567761E+00_JPRB &
+  &, 0.553257E+00_JPRB, 0.538758E+00_JPRB, 0.524291E+00_JPRB &
+  &, 0.509868E+00_JPRB, 0.495503E+00_JPRB, 0.481225E+00_JPRB, 0.467030E+00_JPRB &
+  &, 0.452931E+00_JPRB, 0.438954E+00_JPRB, 0.425111E+00_JPRB &
+  &, 0.411412E+00_JPRB, 0.397867E+00_JPRB, 0.384482E+00_JPRB, 0.371284E+00_JPRB &
+  &, 0.358280E+00_JPRB, 0.345473E+00_JPRB, 0.332888E+00_JPRB &
+  &, 0.320507E+00_JPRB, 0.308372E+00_JPRB, 0.296462E+00_JPRB, 0.284795E+00_JPRB &
+  &, 0.273391E+00_JPRB, 0.262222E+00_JPRB, 0.251327E+00_JPRB &
+  &, 0.240697E+00_JPRB, 0.230322E+00_JPRB, 0.220239E+00_JPRB, 0.210435E+00_JPRB &
+  &, 0.200894E+00_JPRB, 0.191649E+00_JPRB, 0.182683E+00_JPRB &
+  &, 0.173972E+00_JPRB, 0.165577E+00_JPRB, 0.157444E+00_JPRB, 0.149575E+00_JPRB &
+  &, 0.141997E+00_JPRB, 0.134711E+00_JPRB, 0.127682E+00_JPRB &
+  &, 0.120907E+00_JPRB, 0.114409E+00_JPRB, 0.108182E+00_JPRB, 0.102185E+00_JPRB &
+  &, 0.964385E-01_JPRB, 0.909655E-01_JPRB, 0.857186E-01_JPRB &
+  &, 0.807177E-01_JPRB, 0.759105E-01_JPRB, 0.713509E-01_JPRB, 0.670209E-01_JPRB &
+  &, 0.629000E-01_JPRB, 0.589658E-01_JPRB, 0.552331E-01_JPRB &
+  &, 0.517172E-01_JPRB, 0.483517E-01_JPRB, 0.451902E-01_JPRB, 0.422045E-01_JPRB &
+  &, 0.393643E-01_JPRB, 0.366800E-01_JPRB, 0.341626E-01_JPRB &
+  &, 0.317782E-01_JPRB, 0.295360E-01_JPRB, 0.274452E-01_JPRB, 0.254685E-01_JPRB &
+  &, 0.236134E-01_JPRB, 0.218877E-01_JPRB, 0.202500E-01_JPRB &
+  &, 0.187560E-01_JPRB, 0.173126E-01_JPRB, 0.159750E-01_JPRB, 0.147494E-01_JPRB &
+  &, 0.135890E-01_JPRB, 0.124980E-01_JPRB, 0.115348E-01_JPRB &
+  &, 0.105958E-01_JPRB, 0.973871E-02_JPRB, 0.891126E-02_JPRB, 0.817297E-02_JPRB &
+  &, 0.752830E-02_JPRB, 0.686364E-02_JPRB, 0.629853E-02_JPRB &
+  &, 0.571621E-02_JPRB, 0.523953E-02_JPRB, 0.474856E-02_JPRB, 0.436948E-02_JPRB &
+  &, 0.397914E-02_JPRB, 0.357740E-02_JPRB, 0.329556E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART78',1,ZHOOK_HANDLE)
+END SUBROUTINE PART78
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART79
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART79',0,ZHOOK_HANDLE)
+
+XCW( 547, :) = (/ &
+  &  0.100839E+01_JPRB, 0.100944E+01_JPRB, 0.101008E+01_JPRB, 0.101029E+01_JPRB &
+  &, 0.101009E+01_JPRB, 0.100946E+01_JPRB, 0.100841E+01_JPRB &
+  &, 0.100694E+01_JPRB, 0.100504E+01_JPRB, 0.100272E+01_JPRB, 0.999982E+00_JPRB &
+  &, 0.996820E+00_JPRB, 0.993238E+00_JPRB, 0.989238E+00_JPRB &
+  &, 0.984820E+00_JPRB, 0.979987E+00_JPRB, 0.974741E+00_JPRB, 0.969085E+00_JPRB &
+  &, 0.963023E+00_JPRB, 0.956555E+00_JPRB, 0.949689E+00_JPRB &
+  &, 0.942432E+00_JPRB, 0.934782E+00_JPRB, 0.926749E+00_JPRB, 0.918339E+00_JPRB &
+  &, 0.909556E+00_JPRB, 0.900408E+00_JPRB, 0.890906E+00_JPRB &
+  &, 0.881052E+00_JPRB, 0.870861E+00_JPRB, 0.860338E+00_JPRB, 0.849497E+00_JPRB &
+  &, 0.838344E+00_JPRB, 0.826892E+00_JPRB, 0.815154E+00_JPRB &
+  &, 0.803140E+00_JPRB, 0.790853E+00_JPRB, 0.778330E+00_JPRB, 0.765567E+00_JPRB &
+  &, 0.752573E+00_JPRB, 0.739373E+00_JPRB, 0.725983E+00_JPRB &
+  &, 0.712413E+00_JPRB, 0.698673E+00_JPRB, 0.684789E+00_JPRB, 0.670765E+00_JPRB &
+  &, 0.656632E+00_JPRB, 0.642396E+00_JPRB, 0.628067E+00_JPRB &
+  &, 0.613680E+00_JPRB, 0.599233E+00_JPRB, 0.584750E+00_JPRB, 0.570245E+00_JPRB &
+  &, 0.555743E+00_JPRB, 0.541243E+00_JPRB, 0.526774E+00_JPRB &
+  &, 0.512347E+00_JPRB, 0.497977E+00_JPRB, 0.483675E+00_JPRB, 0.469470E+00_JPRB &
+  &, 0.455358E+00_JPRB, 0.441367E+00_JPRB, 0.427489E+00_JPRB &
+  &, 0.413771E+00_JPRB, 0.400204E+00_JPRB, 0.386814E+00_JPRB, 0.373589E+00_JPRB &
+  &, 0.360556E+00_JPRB, 0.347717E+00_JPRB, 0.335098E+00_JPRB &
+  &, 0.322679E+00_JPRB, 0.310504E+00_JPRB, 0.298550E+00_JPRB, 0.286859E+00_JPRB &
+  &, 0.275407E+00_JPRB, 0.264209E+00_JPRB, 0.253282E+00_JPRB &
+  &, 0.242594E+00_JPRB, 0.232208E+00_JPRB, 0.222061E+00_JPRB, 0.212215E+00_JPRB &
+  &, 0.202629E+00_JPRB, 0.193338E+00_JPRB, 0.184322E+00_JPRB &
+  &, 0.175587E+00_JPRB, 0.167137E+00_JPRB, 0.158948E+00_JPRB, 0.151047E+00_JPRB &
+  &, 0.143437E+00_JPRB, 0.136085E+00_JPRB, 0.128989E+00_JPRB &
+  &, 0.122205E+00_JPRB, 0.115634E+00_JPRB, 0.109364E+00_JPRB, 0.103320E+00_JPRB &
+  &, 0.975598E-01_JPRB, 0.920372E-01_JPRB, 0.867385E-01_JPRB &
+  &, 0.816836E-01_JPRB, 0.768565E-01_JPRB, 0.722760E-01_JPRB, 0.678863E-01_JPRB &
+  &, 0.637033E-01_JPRB, 0.597436E-01_JPRB, 0.559842E-01_JPRB &
+  &, 0.524403E-01_JPRB, 0.490458E-01_JPRB, 0.458540E-01_JPRB, 0.427947E-01_JPRB &
+  &, 0.399210E-01_JPRB, 0.372455E-01_JPRB, 0.346928E-01_JPRB &
+  &, 0.322718E-01_JPRB, 0.300372E-01_JPRB, 0.279079E-01_JPRB, 0.258913E-01_JPRB &
+  &, 0.239949E-01_JPRB, 0.222749E-01_JPRB, 0.205939E-01_JPRB &
+  &, 0.190551E-01_JPRB, 0.176162E-01_JPRB, 0.162830E-01_JPRB, 0.150098E-01_JPRB &
+  &, 0.138532E-01_JPRB, 0.127660E-01_JPRB, 0.117523E-01_JPRB &
+  &, 0.108163E-01_JPRB, 0.990645E-02_JPRB, 0.913804E-02_JPRB, 0.834543E-02_JPRB &
+  &, 0.764487E-02_JPRB, 0.698181E-02_JPRB, 0.641831E-02_JPRB &
+  &, 0.583762E-02_JPRB, 0.536258E-02_JPRB, 0.487326E-02_JPRB, 0.443266E-02_JPRB &
+  &, 0.404316E-02_JPRB, 0.370712E-02_JPRB, 0.336127E-02_JPRB/)
+XCW( 548, :) = (/ &
+  &  0.100864E+01_JPRB, 0.100976E+01_JPRB, 0.101046E+01_JPRB, 0.101074E+01_JPRB &
+  &, 0.101060E+01_JPRB, 0.101003E+01_JPRB, 0.100905E+01_JPRB &
+  &, 0.100764E+01_JPRB, 0.100580E+01_JPRB, 0.100355E+01_JPRB, 0.100087E+01_JPRB &
+  &, 0.997769E+00_JPRB, 0.994249E+00_JPRB, 0.990310E+00_JPRB &
+  &, 0.985952E+00_JPRB, 0.981178E+00_JPRB, 0.975993E+00_JPRB, 0.970394E+00_JPRB &
+  &, 0.964390E+00_JPRB, 0.957980E+00_JPRB, 0.951171E+00_JPRB &
+  &, 0.943967E+00_JPRB, 0.936369E+00_JPRB, 0.928390E+00_JPRB, 0.920005E+00_JPRB &
+  &, 0.911298E+00_JPRB, 0.902203E+00_JPRB, 0.892749E+00_JPRB &
+  &, 0.882941E+00_JPRB, 0.872797E+00_JPRB, 0.862318E+00_JPRB, 0.851518E+00_JPRB &
+  &, 0.840407E+00_JPRB, 0.828994E+00_JPRB, 0.817294E+00_JPRB &
+  &, 0.805316E+00_JPRB, 0.793066E+00_JPRB, 0.780569E+00_JPRB, 0.767832E+00_JPRB &
+  &, 0.754876E+00_JPRB, 0.741702E+00_JPRB, 0.728338E+00_JPRB &
+  &, 0.714794E+00_JPRB, 0.701079E+00_JPRB, 0.687209E+00_JPRB, 0.673210E+00_JPRB &
+  &, 0.659087E+00_JPRB, 0.644862E+00_JPRB, 0.630542E+00_JPRB &
+  &, 0.616163E+00_JPRB, 0.601722E+00_JPRB, 0.587245E+00_JPRB, 0.572743E+00_JPRB &
+  &, 0.558228E+00_JPRB, 0.543729E+00_JPRB, 0.529257E+00_JPRB &
+  &, 0.514827E+00_JPRB, 0.500451E+00_JPRB, 0.486141E+00_JPRB, 0.471910E+00_JPRB &
+  &, 0.457785E+00_JPRB, 0.443780E+00_JPRB, 0.429903E+00_JPRB &
+  &, 0.416148E+00_JPRB, 0.402559E+00_JPRB, 0.389145E+00_JPRB, 0.375895E+00_JPRB &
+  &, 0.362832E+00_JPRB, 0.349961E+00_JPRB, 0.337307E+00_JPRB &
+  &, 0.324872E+00_JPRB, 0.312657E+00_JPRB, 0.300682E+00_JPRB, 0.288924E+00_JPRB &
+  &, 0.277445E+00_JPRB, 0.266218E+00_JPRB, 0.255237E+00_JPRB &
+  &, 0.244516E+00_JPRB, 0.234068E+00_JPRB, 0.223908E+00_JPRB, 0.213995E+00_JPRB &
+  &, 0.204391E+00_JPRB, 0.195027E+00_JPRB, 0.185989E+00_JPRB &
+  &, 0.177202E+00_JPRB, 0.168698E+00_JPRB, 0.160480E+00_JPRB, 0.152519E+00_JPRB &
+  &, 0.144846E+00_JPRB, 0.137460E+00_JPRB, 0.130326E+00_JPRB &
+  &, 0.123472E+00_JPRB, 0.116891E+00_JPRB, 0.110578E+00_JPRB, 0.104489E+00_JPRB &
+  &, 0.986810E-01_JPRB, 0.931089E-01_JPRB, 0.877584E-01_JPRB &
+  &, 0.826853E-01_JPRB, 0.778025E-01_JPRB, 0.731640E-01_JPRB, 0.687517E-01_JPRB &
+  &, 0.645449E-01_JPRB, 0.605602E-01_JPRB, 0.567353E-01_JPRB &
+  &, 0.531233E-01_JPRB, 0.497399E-01_JPRB, 0.464763E-01_JPRB, 0.434270E-01_JPRB &
+  &, 0.405205E-01_JPRB, 0.378110E-01_JPRB, 0.352230E-01_JPRB &
+  &, 0.327654E-01_JPRB, 0.304928E-01_JPRB, 0.283243E-01_JPRB, 0.263140E-01_JPRB &
+  &, 0.244241E-01_JPRB, 0.226137E-01_JPRB, 0.209869E-01_JPRB &
+  &, 0.194041E-01_JPRB, 0.179197E-01_JPRB, 0.165910E-01_JPRB, 0.153223E-01_JPRB &
+  &, 0.141174E-01_JPRB, 0.129804E-01_JPRB, 0.119697E-01_JPRB &
+  &, 0.110369E-01_JPRB, 0.101301E-01_JPRB, 0.930813E-02_JPRB, 0.851788E-02_JPRB &
+  &, 0.781971E-02_JPRB, 0.715906E-02_JPRB, 0.653809E-02_JPRB &
+  &, 0.601973E-02_JPRB, 0.548563E-02_JPRB, 0.499795E-02_JPRB, 0.455903E-02_JPRB &
+  &, 0.417119E-02_JPRB, 0.377198E-02_JPRB, 0.342698E-02_JPRB/)
+XCW( 549, :) = (/ &
+  &  0.100889E+01_JPRB, 0.101008E+01_JPRB, 0.101084E+01_JPRB, 0.101118E+01_JPRB &
+  &, 0.101111E+01_JPRB, 0.101061E+01_JPRB, 0.100968E+01_JPRB &
+  &, 0.100834E+01_JPRB, 0.100657E+01_JPRB, 0.100437E+01_JPRB, 0.100176E+01_JPRB &
+  &, 0.998720E+00_JPRB, 0.995261E+00_JPRB, 0.991383E+00_JPRB &
+  &, 0.987085E+00_JPRB, 0.982372E+00_JPRB, 0.977244E+00_JPRB, 0.971705E+00_JPRB &
+  &, 0.965757E+00_JPRB, 0.959404E+00_JPRB, 0.952653E+00_JPRB &
+  &, 0.945502E+00_JPRB, 0.937960E+00_JPRB, 0.930035E+00_JPRB, 0.921728E+00_JPRB &
+  &, 0.913048E+00_JPRB, 0.903999E+00_JPRB, 0.894592E+00_JPRB &
+  &, 0.884833E+00_JPRB, 0.874732E+00_JPRB, 0.864301E+00_JPRB, 0.853543E+00_JPRB &
+  &, 0.842474E+00_JPRB, 0.831100E+00_JPRB, 0.819435E+00_JPRB &
+  &, 0.807493E+00_JPRB, 0.795278E+00_JPRB, 0.782818E+00_JPRB, 0.770118E+00_JPRB &
+  &, 0.757188E+00_JPRB, 0.744041E+00_JPRB, 0.730704E+00_JPRB &
+  &, 0.717175E+00_JPRB, 0.703475E+00_JPRB, 0.689629E+00_JPRB, 0.675654E+00_JPRB &
+  &, 0.661544E+00_JPRB, 0.647329E+00_JPRB, 0.633031E+00_JPRB &
+  &, 0.618647E+00_JPRB, 0.604226E+00_JPRB, 0.589740E+00_JPRB, 0.575241E+00_JPRB &
+  &, 0.560743E+00_JPRB, 0.546229E+00_JPRB, 0.531756E+00_JPRB &
+  &, 0.517322E+00_JPRB, 0.502924E+00_JPRB, 0.488607E+00_JPRB, 0.474366E+00_JPRB &
+  &, 0.460230E+00_JPRB, 0.446210E+00_JPRB, 0.432300E+00_JPRB &
+  &, 0.418544E+00_JPRB, 0.404934E+00_JPRB, 0.391477E+00_JPRB, 0.378200E+00_JPRB &
+  &, 0.365108E+00_JPRB, 0.352226E+00_JPRB, 0.339538E+00_JPRB &
+  &, 0.327066E+00_JPRB, 0.314810E+00_JPRB, 0.302793E+00_JPRB, 0.291033E+00_JPRB &
+  &, 0.279483E+00_JPRB, 0.268228E+00_JPRB, 0.257192E+00_JPRB &
+  &, 0.246437E+00_JPRB, 0.235954E+00_JPRB, 0.225755E+00_JPRB, 0.215801E+00_JPRB &
+  &, 0.206127E+00_JPRB, 0.196743E+00_JPRB, 0.187656E+00_JPRB &
+  &, 0.178817E+00_JPRB, 0.170259E+00_JPRB, 0.162012E+00_JPRB, 0.154021E+00_JPRB &
+  &, 0.146286E+00_JPRB, 0.138865E+00_JPRB, 0.131695E+00_JPRB &
+  &, 0.124770E+00_JPRB, 0.118148E+00_JPRB, 0.111792E+00_JPRB, 0.105658E+00_JPRB &
+  &, 0.998023E-01_JPRB, 0.941805E-01_JPRB, 0.888135E-01_JPRB &
+  &, 0.836870E-01_JPRB, 0.787849E-01_JPRB, 0.740891E-01_JPRB, 0.696170E-01_JPRB &
+  &, 0.653865E-01_JPRB, 0.613380E-01_JPRB, 0.575258E-01_JPRB &
+  &, 0.538867E-01_JPRB, 0.504340E-01_JPRB, 0.471401E-01_JPRB, 0.440592E-01_JPRB &
+  &, 0.411200E-01_JPRB, 0.383765E-01_JPRB, 0.357532E-01_JPRB &
+  &, 0.333038E-01_JPRB, 0.309940E-01_JPRB, 0.287869E-01_JPRB, 0.267367E-01_JPRB &
+  &, 0.248055E-01_JPRB, 0.230009E-01_JPRB, 0.213307E-01_JPRB &
+  &, 0.197531E-01_JPRB, 0.182739E-01_JPRB, 0.168477E-01_JPRB, 0.155827E-01_JPRB &
+  &, 0.143815E-01_JPRB, 0.132483E-01_JPRB, 0.121872E-01_JPRB &
+  &, 0.112023E-01_JPRB, 0.102978E-01_JPRB, 0.947822E-02_JPRB, 0.869034E-02_JPRB &
+  &, 0.799455E-02_JPRB, 0.733630E-02_JPRB, 0.671776E-02_JPRB &
+  &, 0.614114E-02_JPRB, 0.560868E-02_JPRB, 0.512265E-02_JPRB, 0.468539E-02_JPRB &
+  &, 0.423521E-02_JPRB, 0.383684E-02_JPRB, 0.349269E-02_JPRB/)
+XCW( 550, :) = (/ &
+  &  0.100915E+01_JPRB, 0.101040E+01_JPRB, 0.101122E+01_JPRB, 0.101163E+01_JPRB &
+  &, 0.101162E+01_JPRB, 0.101118E+01_JPRB, 0.101032E+01_JPRB &
+  &, 0.100904E+01_JPRB, 0.100733E+01_JPRB, 0.100520E+01_JPRB, 0.100265E+01_JPRB &
+  &, 0.999672E+00_JPRB, 0.996275E+00_JPRB, 0.992456E+00_JPRB &
+  &, 0.988220E+00_JPRB, 0.983567E+00_JPRB, 0.978498E+00_JPRB, 0.973017E+00_JPRB &
+  &, 0.967128E+00_JPRB, 0.960832E+00_JPRB, 0.954135E+00_JPRB &
+  &, 0.947040E+00_JPRB, 0.939554E+00_JPRB, 0.931680E+00_JPRB, 0.923426E+00_JPRB &
+  &, 0.914794E+00_JPRB, 0.905798E+00_JPRB, 0.896439E+00_JPRB &
+  &, 0.886729E+00_JPRB, 0.876675E+00_JPRB, 0.866285E+00_JPRB, 0.855572E+00_JPRB &
+  &, 0.844541E+00_JPRB, 0.833210E+00_JPRB, 0.821585E+00_JPRB &
+  &, 0.809678E+00_JPRB, 0.797500E+00_JPRB, 0.785077E+00_JPRB, 0.772404E+00_JPRB &
+  &, 0.759501E+00_JPRB, 0.746381E+00_JPRB, 0.733070E+00_JPRB &
+  &, 0.719567E+00_JPRB, 0.705892E+00_JPRB, 0.692061E+00_JPRB, 0.678098E+00_JPRB &
+  &, 0.664012E+00_JPRB, 0.649808E+00_JPRB, 0.635519E+00_JPRB &
+  &, 0.621156E+00_JPRB, 0.606729E+00_JPRB, 0.592262E+00_JPRB, 0.577754E+00_JPRB &
+  &, 0.563258E+00_JPRB, 0.548744E+00_JPRB, 0.534269E+00_JPRB &
+  &, 0.519817E+00_JPRB, 0.505414E+00_JPRB, 0.491089E+00_JPRB, 0.476839E+00_JPRB &
+  &, 0.462691E+00_JPRB, 0.448640E+00_JPRB, 0.434731E+00_JPRB &
+  &, 0.420939E+00_JPRB, 0.407308E+00_JPRB, 0.393828E+00_JPRB, 0.380524E+00_JPRB &
+  &, 0.367404E+00_JPRB, 0.354490E+00_JPRB, 0.341768E+00_JPRB &
+  &, 0.329259E+00_JPRB, 0.316985E+00_JPRB, 0.304925E+00_JPRB, 0.293120E+00_JPRB &
+  &, 0.281567E+00_JPRB, 0.270237E+00_JPRB, 0.259195E+00_JPRB &
+  &, 0.248383E+00_JPRB, 0.237864E+00_JPRB, 0.227601E+00_JPRB, 0.217607E+00_JPRB &
+  &, 0.207916E+00_JPRB, 0.198486E+00_JPRB, 0.189323E+00_JPRB &
+  &, 0.180460E+00_JPRB, 0.171848E+00_JPRB, 0.163544E+00_JPRB, 0.155494E+00_JPRB &
+  &, 0.147756E+00_JPRB, 0.140270E+00_JPRB, 0.133032E+00_JPRB &
+  &, 0.126100E+00_JPRB, 0.119405E+00_JPRB, 0.113005E+00_JPRB, 0.106826E+00_JPRB &
+  &, 0.100924E+00_JPRB, 0.952868E-01_JPRB, 0.898686E-01_JPRB &
+  &, 0.846887E-01_JPRB, 0.797309E-01_JPRB, 0.750142E-01_JPRB, 0.705201E-01_JPRB &
+  &, 0.662281E-01_JPRB, 0.621547E-01_JPRB, 0.582769E-01_JPRB &
+  &, 0.546099E-01_JPRB, 0.511281E-01_JPRB, 0.478040E-01_JPRB, 0.446915E-01_JPRB &
+  &, 0.417195E-01_JPRB, 0.389420E-01_JPRB, 0.362834E-01_JPRB &
+  &, 0.337974E-01_JPRB, 0.314497E-01_JPRB, 0.292496E-01_JPRB, 0.272065E-01_JPRB &
+  &, 0.252347E-01_JPRB, 0.233881E-01_JPRB, 0.216746E-01_JPRB &
+  &, 0.201021E-01_JPRB, 0.185774E-01_JPRB, 0.171557E-01_JPRB, 0.158431E-01_JPRB &
+  &, 0.146457E-01_JPRB, 0.135163E-01_JPRB, 0.124590E-01_JPRB &
+  &, 0.114228E-01_JPRB, 0.105215E-01_JPRB, 0.964831E-02_JPRB, 0.886280E-02_JPRB &
+  &, 0.816940E-02_JPRB, 0.745447E-02_JPRB, 0.683754E-02_JPRB &
+  &, 0.626255E-02_JPRB, 0.573172E-02_JPRB, 0.524735E-02_JPRB, 0.474857E-02_JPRB &
+  &, 0.436325E-02_JPRB, 0.396657E-02_JPRB, 0.362411E-02_JPRB/)
+XCW( 551, :) = (/ &
+  &  0.100940E+01_JPRB, 0.101072E+01_JPRB, 0.101161E+01_JPRB, 0.101208E+01_JPRB &
+  &, 0.101213E+01_JPRB, 0.101175E+01_JPRB, 0.101096E+01_JPRB &
+  &, 0.100974E+01_JPRB, 0.100809E+01_JPRB, 0.100603E+01_JPRB, 0.100354E+01_JPRB &
+  &, 0.100062E+01_JPRB, 0.997288E+00_JPRB, 0.993532E+00_JPRB &
+  &, 0.989355E+00_JPRB, 0.984762E+00_JPRB, 0.979754E+00_JPRB, 0.974331E+00_JPRB &
+  &, 0.968500E+00_JPRB, 0.962262E+00_JPRB, 0.955620E+00_JPRB &
+  &, 0.948582E+00_JPRB, 0.941151E+00_JPRB, 0.933328E+00_JPRB, 0.925127E+00_JPRB &
+  &, 0.916547E+00_JPRB, 0.907601E+00_JPRB, 0.898290E+00_JPRB &
+  &, 0.888626E+00_JPRB, 0.878619E+00_JPRB, 0.868272E+00_JPRB, 0.857605E+00_JPRB &
+  &, 0.846617E+00_JPRB, 0.835325E+00_JPRB, 0.823731E+00_JPRB &
+  &, 0.811864E+00_JPRB, 0.799722E+00_JPRB, 0.787326E+00_JPRB, 0.774690E+00_JPRB &
+  &, 0.761814E+00_JPRB, 0.748731E+00_JPRB, 0.735436E+00_JPRB &
+  &, 0.721959E+00_JPRB, 0.708310E+00_JPRB, 0.694504E+00_JPRB, 0.680555E+00_JPRB &
+  &, 0.666480E+00_JPRB, 0.652299E+00_JPRB, 0.638020E+00_JPRB &
+  &, 0.623653E+00_JPRB, 0.609232E+00_JPRB, 0.594771E+00_JPRB, 0.580280E+00_JPRB &
+  &, 0.565772E+00_JPRB, 0.551274E+00_JPRB, 0.536783E+00_JPRB &
+  &, 0.522328E+00_JPRB, 0.507920E+00_JPRB, 0.493588E+00_JPRB, 0.479329E+00_JPRB &
+  &, 0.465153E+00_JPRB, 0.451088E+00_JPRB, 0.437163E+00_JPRB &
+  &, 0.423353E+00_JPRB, 0.409701E+00_JPRB, 0.396198E+00_JPRB, 0.382868E+00_JPRB &
+  &, 0.369719E+00_JPRB, 0.356775E+00_JPRB, 0.344019E+00_JPRB &
+  &, 0.331494E+00_JPRB, 0.319160E+00_JPRB, 0.307079E+00_JPRB, 0.295229E+00_JPRB &
+  &, 0.283628E+00_JPRB, 0.272270E+00_JPRB, 0.261174E+00_JPRB &
+  &, 0.250353E+00_JPRB, 0.239774E+00_JPRB, 0.229474E+00_JPRB, 0.219438E+00_JPRB &
+  &, 0.209678E+00_JPRB, 0.200201E+00_JPRB, 0.191017E+00_JPRB &
+  &, 0.182103E+00_JPRB, 0.173465E+00_JPRB, 0.165105E+00_JPRB, 0.157025E+00_JPRB &
+  &, 0.149195E+00_JPRB, 0.141675E+00_JPRB, 0.134432E+00_JPRB &
+  &, 0.127430E+00_JPRB, 0.120695E+00_JPRB, 0.114252E+00_JPRB, 0.108028E+00_JPRB &
+  &, 0.102079E+00_JPRB, 0.963931E-01_JPRB, 0.909237E-01_JPRB &
+  &, 0.856904E-01_JPRB, 0.807134E-01_JPRB, 0.759392E-01_JPRB, 0.714231E-01_JPRB &
+  &, 0.671080E-01_JPRB, 0.629714E-01_JPRB, 0.590675E-01_JPRB &
+  &, 0.553732E-01_JPRB, 0.518222E-01_JPRB, 0.485092E-01_JPRB, 0.453238E-01_JPRB &
+  &, 0.423619E-01_JPRB, 0.395075E-01_JPRB, 0.368577E-01_JPRB &
+  &, 0.343358E-01_JPRB, 0.319509E-01_JPRB, 0.297122E-01_JPRB, 0.276292E-01_JPRB &
+  &, 0.256638E-01_JPRB, 0.238238E-01_JPRB, 0.220676E-01_JPRB &
+  &, 0.204511E-01_JPRB, 0.189316E-01_JPRB, 0.174637E-01_JPRB, 0.161556E-01_JPRB &
+  &, 0.149099E-01_JPRB, 0.137307E-01_JPRB, 0.126764E-01_JPRB &
+  &, 0.116433E-01_JPRB, 0.107451E-01_JPRB, 0.987509E-02_JPRB, 0.903525E-02_JPRB &
+  &, 0.828596E-02_JPRB, 0.763172E-02_JPRB, 0.695733E-02_JPRB &
+  &, 0.638396E-02_JPRB, 0.585477E-02_JPRB, 0.530970E-02_JPRB, 0.487493E-02_JPRB &
+  &, 0.442727E-02_JPRB, 0.403143E-02_JPRB, 0.368982E-02_JPRB/)
+XCW( 552, :) = (/ &
+  &  0.100966E+01_JPRB, 0.101104E+01_JPRB, 0.101199E+01_JPRB, 0.101252E+01_JPRB &
+  &, 0.101264E+01_JPRB, 0.101233E+01_JPRB, 0.101160E+01_JPRB &
+  &, 0.101044E+01_JPRB, 0.100886E+01_JPRB, 0.100686E+01_JPRB, 0.100443E+01_JPRB &
+  &, 0.100158E+01_JPRB, 0.998303E+00_JPRB, 0.994607E+00_JPRB &
+  &, 0.990492E+00_JPRB, 0.985960E+00_JPRB, 0.981010E+00_JPRB, 0.975648E+00_JPRB &
+  &, 0.969874E+00_JPRB, 0.963693E+00_JPRB, 0.957108E+00_JPRB &
+  &, 0.950124E+00_JPRB, 0.942749E+00_JPRB, 0.934981E+00_JPRB, 0.926829E+00_JPRB &
+  &, 0.918304E+00_JPRB, 0.909404E+00_JPRB, 0.900144E+00_JPRB &
+  &, 0.890530E+00_JPRB, 0.880566E+00_JPRB, 0.870268E+00_JPRB, 0.859638E+00_JPRB &
+  &, 0.848697E+00_JPRB, 0.837444E+00_JPRB, 0.825895E+00_JPRB &
+  &, 0.814059E+00_JPRB, 0.801954E+00_JPRB, 0.789594E+00_JPRB, 0.776986E+00_JPRB &
+  &, 0.764147E+00_JPRB, 0.751081E+00_JPRB, 0.737824E+00_JPRB &
+  &, 0.724362E+00_JPRB, 0.710740E+00_JPRB, 0.696947E+00_JPRB, 0.683023E+00_JPRB &
+  &, 0.668960E+00_JPRB, 0.654791E+00_JPRB, 0.640522E+00_JPRB &
+  &, 0.626176E+00_JPRB, 0.611763E+00_JPRB, 0.597307E+00_JPRB, 0.582806E+00_JPRB &
+  &, 0.568301E+00_JPRB, 0.553804E+00_JPRB, 0.539312E+00_JPRB &
+  &, 0.524854E+00_JPRB, 0.510441E+00_JPRB, 0.496086E+00_JPRB, 0.481818E+00_JPRB &
+  &, 0.467631E+00_JPRB, 0.453553E+00_JPRB, 0.439595E+00_JPRB &
+  &, 0.425766E+00_JPRB, 0.412094E+00_JPRB, 0.398567E+00_JPRB, 0.385212E+00_JPRB &
+  &, 0.372055E+00_JPRB, 0.359059E+00_JPRB, 0.346290E+00_JPRB &
+  &, 0.333708E+00_JPRB, 0.321356E+00_JPRB, 0.309255E+00_JPRB, 0.297361E+00_JPRB &
+  &, 0.285712E+00_JPRB, 0.274327E+00_JPRB, 0.263176E+00_JPRB &
+  &, 0.252299E+00_JPRB, 0.241709E+00_JPRB, 0.231346E+00_JPRB, 0.221270E+00_JPRB &
+  &, 0.211493E+00_JPRB, 0.201971E+00_JPRB, 0.192711E+00_JPRB &
+  &, 0.183746E+00_JPRB, 0.175082E+00_JPRB, 0.166666E+00_JPRB, 0.158527E+00_JPRB &
+  &, 0.150695E+00_JPRB, 0.143110E+00_JPRB, 0.135800E+00_JPRB &
+  &, 0.128760E+00_JPRB, 0.121984E+00_JPRB, 0.115499E+00_JPRB, 0.109230E+00_JPRB &
+  &, 0.103234E+00_JPRB, 0.974993E-01_JPRB, 0.919788E-01_JPRB &
+  &, 0.867279E-01_JPRB, 0.816958E-01_JPRB, 0.769013E-01_JPRB, 0.723261E-01_JPRB &
+  &, 0.679495E-01_JPRB, 0.638269E-01_JPRB, 0.598581E-01_JPRB &
+  &, 0.561366E-01_JPRB, 0.525571E-01_JPRB, 0.491730E-01_JPRB, 0.459983E-01_JPRB &
+  &, 0.429614E-01_JPRB, 0.401165E-01_JPRB, 0.374321E-01_JPRB &
+  &, 0.348743E-01_JPRB, 0.324521E-01_JPRB, 0.302211E-01_JPRB, 0.280989E-01_JPRB &
+  &, 0.260930E-01_JPRB, 0.242110E-01_JPRB, 0.224606E-01_JPRB &
+  &, 0.208001E-01_JPRB, 0.192351E-01_JPRB, 0.178231E-01_JPRB, 0.164681E-01_JPRB &
+  &, 0.151741E-01_JPRB, 0.139987E-01_JPRB, 0.128939E-01_JPRB &
+  &, 0.119190E-01_JPRB, 0.109688E-01_JPRB, 0.100452E-01_JPRB, 0.926520E-02_JPRB &
+  &, 0.846081E-02_JPRB, 0.780897E-02_JPRB, 0.713700E-02_JPRB &
+  &, 0.650536E-02_JPRB, 0.597782E-02_JPRB, 0.543440E-02_JPRB, 0.500129E-02_JPRB &
+  &, 0.455530E-02_JPRB, 0.416115E-02_JPRB, 0.375553E-02_JPRB/)
+XCW( 553, :) = (/ &
+  &  0.100991E+01_JPRB, 0.101135E+01_JPRB, 0.101237E+01_JPRB, 0.101297E+01_JPRB &
+  &, 0.101315E+01_JPRB, 0.101290E+01_JPRB, 0.101223E+01_JPRB &
+  &, 0.101114E+01_JPRB, 0.100963E+01_JPRB, 0.100769E+01_JPRB, 0.100532E+01_JPRB &
+  &, 0.100253E+01_JPRB, 0.999318E+00_JPRB, 0.995685E+00_JPRB &
+  &, 0.991632E+00_JPRB, 0.987158E+00_JPRB, 0.982245E+00_JPRB, 0.976965E+00_JPRB &
+  &, 0.971249E+00_JPRB, 0.965124E+00_JPRB, 0.958596E+00_JPRB &
+  &, 0.951669E+00_JPRB, 0.944346E+00_JPRB, 0.936632E+00_JPRB, 0.928538E+00_JPRB &
+  &, 0.920061E+00_JPRB, 0.911215E+00_JPRB, 0.902003E+00_JPRB &
+  &, 0.892434E+00_JPRB, 0.882518E+00_JPRB, 0.872264E+00_JPRB, 0.861680E+00_JPRB &
+  &, 0.850777E+00_JPRB, 0.839568E+00_JPRB, 0.828058E+00_JPRB &
+  &, 0.816264E+00_JPRB, 0.804195E+00_JPRB, 0.791863E+00_JPRB, 0.779281E+00_JPRB &
+  &, 0.766470E+00_JPRB, 0.753441E+00_JPRB, 0.740200E+00_JPRB &
+  &, 0.726776E+00_JPRB, 0.713169E+00_JPRB, 0.699402E+00_JPRB, 0.685491E+00_JPRB &
+  &, 0.671441E+00_JPRB, 0.657282E+00_JPRB, 0.643036E+00_JPRB &
+  &, 0.628698E+00_JPRB, 0.614293E+00_JPRB, 0.599816E+00_JPRB, 0.585347E+00_JPRB &
+  &, 0.570844E+00_JPRB, 0.556333E+00_JPRB, 0.541841E+00_JPRB &
+  &, 0.527380E+00_JPRB, 0.512962E+00_JPRB, 0.498601E+00_JPRB, 0.484308E+00_JPRB &
+  &, 0.470110E+00_JPRB, 0.456018E+00_JPRB, 0.442045E+00_JPRB &
+  &, 0.428198E+00_JPRB, 0.414505E+00_JPRB, 0.400956E+00_JPRB, 0.387576E+00_JPRB &
+  &, 0.374370E+00_JPRB, 0.361364E+00_JPRB, 0.348562E+00_JPRB &
+  &, 0.335965E+00_JPRB, 0.323574E+00_JPRB, 0.311410E+00_JPRB, 0.299492E+00_JPRB &
+  &, 0.287818E+00_JPRB, 0.276383E+00_JPRB, 0.265203E+00_JPRB &
+  &, 0.254293E+00_JPRB, 0.243644E+00_JPRB, 0.233243E+00_JPRB, 0.223127E+00_JPRB &
+  &, 0.213281E+00_JPRB, 0.203740E+00_JPRB, 0.194433E+00_JPRB &
+  &, 0.185417E+00_JPRB, 0.176700E+00_JPRB, 0.168256E+00_JPRB, 0.160058E+00_JPRB &
+  &, 0.152165E+00_JPRB, 0.144546E+00_JPRB, 0.137200E+00_JPRB &
+  &, 0.130121E+00_JPRB, 0.123306E+00_JPRB, 0.116746E+00_JPRB, 0.110466E+00_JPRB &
+  &, 0.104423E+00_JPRB, 0.986056E-01_JPRB, 0.930691E-01_JPRB &
+  &, 0.877653E-01_JPRB, 0.827146E-01_JPRB, 0.778634E-01_JPRB, 0.732291E-01_JPRB &
+  &, 0.688294E-01_JPRB, 0.646436E-01_JPRB, 0.606882E-01_JPRB &
+  &, 0.568999E-01_JPRB, 0.532921E-01_JPRB, 0.498783E-01_JPRB, 0.466727E-01_JPRB &
+  &, 0.436038E-01_JPRB, 0.407255E-01_JPRB, 0.379623E-01_JPRB &
+  &, 0.354127E-01_JPRB, 0.329533E-01_JPRB, 0.306838E-01_JPRB, 0.285217E-01_JPRB &
+  &, 0.265221E-01_JPRB, 0.245982E-01_JPRB, 0.228045E-01_JPRB &
+  &, 0.211491E-01_JPRB, 0.195893E-01_JPRB, 0.181311E-01_JPRB, 0.167285E-01_JPRB &
+  &, 0.154911E-01_JPRB, 0.142667E-01_JPRB, 0.131657E-01_JPRB &
+  &, 0.121395E-01_JPRB, 0.111365E-01_JPRB, 0.102720E-01_JPRB, 0.943765E-02_JPRB &
+  &, 0.863565E-02_JPRB, 0.792713E-02_JPRB, 0.725678E-02_JPRB &
+  &, 0.668748E-02_JPRB, 0.610087E-02_JPRB, 0.555910E-02_JPRB, 0.506447E-02_JPRB &
+  &, 0.461932E-02_JPRB, 0.422601E-02_JPRB, 0.388696E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART79',1,ZHOOK_HANDLE)
+END SUBROUTINE PART79
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART80
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART80',0,ZHOOK_HANDLE)
+
+XCW( 554, :) = (/ &
+  &  0.101017E+01_JPRB, 0.101167E+01_JPRB, 0.101275E+01_JPRB, 0.101342E+01_JPRB &
+  &, 0.101366E+01_JPRB, 0.101348E+01_JPRB, 0.101287E+01_JPRB &
+  &, 0.101185E+01_JPRB, 0.101039E+01_JPRB, 0.100851E+01_JPRB, 0.100621E+01_JPRB &
+  &, 0.100349E+01_JPRB, 0.100034E+01_JPRB, 0.996763E+00_JPRB &
+  &, 0.992771E+00_JPRB, 0.988358E+00_JPRB, 0.983528E+00_JPRB, 0.978283E+00_JPRB &
+  &, 0.972627E+00_JPRB, 0.966561E+00_JPRB, 0.960088E+00_JPRB &
+  &, 0.953217E+00_JPRB, 0.945950E+00_JPRB, 0.938291E+00_JPRB, 0.930246E+00_JPRB &
+  &, 0.921821E+00_JPRB, 0.913025E+00_JPRB, 0.903861E+00_JPRB &
+  &, 0.894342E+00_JPRB, 0.884473E+00_JPRB, 0.874264E+00_JPRB, 0.863726E+00_JPRB &
+  &, 0.852866E+00_JPRB, 0.841691E+00_JPRB, 0.830222E+00_JPRB &
+  &, 0.818468E+00_JPRB, 0.806427E+00_JPRB, 0.794131E+00_JPRB, 0.781587E+00_JPRB &
+  &, 0.768814E+00_JPRB, 0.755802E+00_JPRB, 0.742599E+00_JPRB &
+  &, 0.729191E+00_JPRB, 0.715609E+00_JPRB, 0.701857E+00_JPRB, 0.687971E+00_JPRB &
+  &, 0.673934E+00_JPRB, 0.659799E+00_JPRB, 0.645550E+00_JPRB &
+  &, 0.631221E+00_JPRB, 0.616823E+00_JPRB, 0.602379E+00_JPRB, 0.587902E+00_JPRB &
+  &, 0.573388E+00_JPRB, 0.558878E+00_JPRB, 0.544385E+00_JPRB &
+  &, 0.529921E+00_JPRB, 0.515484E+00_JPRB, 0.501116E+00_JPRB, 0.486830E+00_JPRB &
+  &, 0.472622E+00_JPRB, 0.458501E+00_JPRB, 0.444512E+00_JPRB &
+  &, 0.430648E+00_JPRB, 0.416935E+00_JPRB, 0.403363E+00_JPRB, 0.389958E+00_JPRB &
+  &, 0.376725E+00_JPRB, 0.363689E+00_JPRB, 0.350854E+00_JPRB &
+  &, 0.338221E+00_JPRB, 0.325792E+00_JPRB, 0.313608E+00_JPRB, 0.301646E+00_JPRB &
+  &, 0.289925E+00_JPRB, 0.278463E+00_JPRB, 0.267229E+00_JPRB &
+  &, 0.256287E+00_JPRB, 0.245579E+00_JPRB, 0.235166E+00_JPRB, 0.225010E+00_JPRB &
+  &, 0.215122E+00_JPRB, 0.205510E+00_JPRB, 0.196182E+00_JPRB &
+  &, 0.187116E+00_JPRB, 0.178346E+00_JPRB, 0.169846E+00_JPRB, 0.161619E+00_JPRB &
+  &, 0.153664E+00_JPRB, 0.146012E+00_JPRB, 0.138599E+00_JPRB &
+  &, 0.131483E+00_JPRB, 0.124627E+00_JPRB, 0.118025E+00_JPRB, 0.111668E+00_JPRB &
+  &, 0.105578E+00_JPRB, 0.997464E-01_JPRB, 0.941593E-01_JPRB &
+  &, 0.888386E-01_JPRB, 0.836970E-01_JPRB, 0.788254E-01_JPRB, 0.741697E-01_JPRB &
+  &, 0.697475E-01_JPRB, 0.654991E-01_JPRB, 0.614788E-01_JPRB &
+  &, 0.576633E-01_JPRB, 0.540270E-01_JPRB, 0.505836E-01_JPRB, 0.473050E-01_JPRB &
+  &, 0.442461E-01_JPRB, 0.413345E-01_JPRB, 0.385366E-01_JPRB &
+  &, 0.359512E-01_JPRB, 0.335001E-01_JPRB, 0.311927E-01_JPRB, 0.289914E-01_JPRB &
+  &, 0.269513E-01_JPRB, 0.250338E-01_JPRB, 0.231975E-01_JPRB &
+  &, 0.214981E-01_JPRB, 0.199434E-01_JPRB, 0.184391E-01_JPRB, 0.170410E-01_JPRB &
+  &, 0.157553E-01_JPRB, 0.145346E-01_JPRB, 0.134375E-01_JPRB &
+  &, 0.123601E-01_JPRB, 0.113602E-01_JPRB, 0.104987E-01_JPRB, 0.961011E-02_JPRB &
+  &, 0.881049E-02_JPRB, 0.810438E-02_JPRB, 0.743645E-02_JPRB &
+  &, 0.680889E-02_JPRB, 0.622391E-02_JPRB, 0.568380E-02_JPRB, 0.519083E-02_JPRB &
+  &, 0.474736E-02_JPRB, 0.435574E-02_JPRB, 0.395267E-02_JPRB/)
+XCW( 555, :) = (/ &
+  &  0.101042E+01_JPRB, 0.101199E+01_JPRB, 0.101314E+01_JPRB, 0.101387E+01_JPRB &
+  &, 0.101417E+01_JPRB, 0.101405E+01_JPRB, 0.101351E+01_JPRB &
+  &, 0.101255E+01_JPRB, 0.101116E+01_JPRB, 0.100934E+01_JPRB, 0.100711E+01_JPRB &
+  &, 0.100444E+01_JPRB, 0.100135E+01_JPRB, 0.997843E+00_JPRB &
+  &, 0.993911E+00_JPRB, 0.989554E+00_JPRB, 0.984789E+00_JPRB, 0.979602E+00_JPRB &
+  &, 0.974005E+00_JPRB, 0.967998E+00_JPRB, 0.961583E+00_JPRB &
+  &, 0.954769E+00_JPRB, 0.947554E+00_JPRB, 0.939950E+00_JPRB, 0.931959E+00_JPRB &
+  &, 0.923585E+00_JPRB, 0.914840E+00_JPRB, 0.905728E+00_JPRB &
+  &, 0.896254E+00_JPRB, 0.886432E+00_JPRB, 0.876268E+00_JPRB, 0.865772E+00_JPRB &
+  &, 0.854954E+00_JPRB, 0.843824E+00_JPRB, 0.832395E+00_JPRB &
+  &, 0.820673E+00_JPRB, 0.808677E+00_JPRB, 0.796419E+00_JPRB, 0.783903E+00_JPRB &
+  &, 0.771147E+00_JPRB, 0.758173E+00_JPRB, 0.744997E+00_JPRB &
+  &, 0.731616E+00_JPRB, 0.718050E+00_JPRB, 0.704324E+00_JPRB, 0.690452E+00_JPRB &
+  &, 0.676438E+00_JPRB, 0.662315E+00_JPRB, 0.648077E+00_JPRB &
+  &, 0.633757E+00_JPRB, 0.619380E+00_JPRB, 0.604929E+00_JPRB, 0.590456E+00_JPRB &
+  &, 0.575946E+00_JPRB, 0.561437E+00_JPRB, 0.546944E+00_JPRB &
+  &, 0.532463E+00_JPRB, 0.518037E+00_JPRB, 0.503647E+00_JPRB, 0.489353E+00_JPRB &
+  &, 0.475117E+00_JPRB, 0.461001E+00_JPRB, 0.446997E+00_JPRB &
+  &, 0.433097E+00_JPRB, 0.419365E+00_JPRB, 0.405771E+00_JPRB, 0.392341E+00_JPRB &
+  &, 0.379081E+00_JPRB, 0.366014E+00_JPRB, 0.353146E+00_JPRB &
+  &, 0.340478E+00_JPRB, 0.328031E+00_JPRB, 0.315806E+00_JPRB, 0.303800E+00_JPRB &
+  &, 0.292055E+00_JPRB, 0.280543E+00_JPRB, 0.269280E+00_JPRB &
+  &, 0.258282E+00_JPRB, 0.247539E+00_JPRB, 0.237089E+00_JPRB, 0.226868E+00_JPRB &
+  &, 0.216937E+00_JPRB, 0.207279E+00_JPRB, 0.197903E+00_JPRB &
+  &, 0.188815E+00_JPRB, 0.179991E+00_JPRB, 0.171436E+00_JPRB, 0.163180E+00_JPRB &
+  &, 0.155194E+00_JPRB, 0.147478E+00_JPRB, 0.140030E+00_JPRB &
+  &, 0.132844E+00_JPRB, 0.125949E+00_JPRB, 0.119305E+00_JPRB, 0.112903E+00_JPRB &
+  &, 0.106802E+00_JPRB, 0.100922E+00_JPRB, 0.952847E-01_JPRB &
+  &, 0.898760E-01_JPRB, 0.847158E-01_JPRB, 0.798245E-01_JPRB, 0.751103E-01_JPRB &
+  &, 0.706273E-01_JPRB, 0.663547E-01_JPRB, 0.623090E-01_JPRB &
+  &, 0.584266E-01_JPRB, 0.547619E-01_JPRB, 0.512889E-01_JPRB, 0.480216E-01_JPRB &
+  &, 0.448885E-01_JPRB, 0.419435E-01_JPRB, 0.391552E-01_JPRB &
+  &, 0.364896E-01_JPRB, 0.340013E-01_JPRB, 0.316553E-01_JPRB, 0.294611E-01_JPRB &
+  &, 0.273804E-01_JPRB, 0.254210E-01_JPRB, 0.235905E-01_JPRB &
+  &, 0.218969E-01_JPRB, 0.202976E-01_JPRB, 0.187471E-01_JPRB, 0.173535E-01_JPRB &
+  &, 0.160195E-01_JPRB, 0.148026E-01_JPRB, 0.136550E-01_JPRB &
+  &, 0.125806E-01_JPRB, 0.115838E-01_JPRB, 0.106688E-01_JPRB, 0.984005E-02_JPRB &
+  &, 0.904362E-02_JPRB, 0.828163E-02_JPRB, 0.761612E-02_JPRB &
+  &, 0.693029E-02_JPRB, 0.634696E-02_JPRB, 0.580850E-02_JPRB, 0.531720E-02_JPRB &
+  &, 0.487540E-02_JPRB, 0.442060E-02_JPRB, 0.401838E-02_JPRB/)
+XCW( 556, :) = (/ &
+  &  0.101068E+01_JPRB, 0.101231E+01_JPRB, 0.101352E+01_JPRB, 0.101431E+01_JPRB &
+  &, 0.101468E+01_JPRB, 0.101463E+01_JPRB, 0.101415E+01_JPRB &
+  &, 0.101325E+01_JPRB, 0.101193E+01_JPRB, 0.101018E+01_JPRB, 0.100800E+01_JPRB &
+  &, 0.100540E+01_JPRB, 0.100237E+01_JPRB, 0.998924E+00_JPRB &
+  &, 0.995054E+00_JPRB, 0.990763E+00_JPRB, 0.986053E+00_JPRB, 0.980926E+00_JPRB &
+  &, 0.975387E+00_JPRB, 0.969435E+00_JPRB, 0.963078E+00_JPRB &
+  &, 0.956321E+00_JPRB, 0.949162E+00_JPRB, 0.941609E+00_JPRB, 0.933671E+00_JPRB &
+  &, 0.925349E+00_JPRB, 0.916657E+00_JPRB, 0.907594E+00_JPRB &
+  &, 0.898170E+00_JPRB, 0.888396E+00_JPRB, 0.878276E+00_JPRB, 0.867826E+00_JPRB &
+  &, 0.857051E+00_JPRB, 0.845961E+00_JPRB, 0.834572E+00_JPRB &
+  &, 0.822886E+00_JPRB, 0.810928E+00_JPRB, 0.798698E+00_JPRB, 0.786219E+00_JPRB &
+  &, 0.773501E+00_JPRB, 0.760555E+00_JPRB, 0.747395E+00_JPRB &
+  &, 0.734041E+00_JPRB, 0.720502E+00_JPRB, 0.706802E+00_JPRB, 0.692944E+00_JPRB &
+  &, 0.678943E+00_JPRB, 0.664832E+00_JPRB, 0.650617E+00_JPRB &
+  &, 0.636306E+00_JPRB, 0.621924E+00_JPRB, 0.607493E+00_JPRB, 0.593011E+00_JPRB &
+  &, 0.578518E+00_JPRB, 0.564011E+00_JPRB, 0.549503E+00_JPRB &
+  &, 0.535020E+00_JPRB, 0.520590E+00_JPRB, 0.506194E+00_JPRB, 0.491876E+00_JPRB &
+  &, 0.477647E+00_JPRB, 0.463500E+00_JPRB, 0.449482E+00_JPRB &
+  &, 0.435565E+00_JPRB, 0.421795E+00_JPRB, 0.408179E+00_JPRB, 0.394724E+00_JPRB &
+  &, 0.381456E+00_JPRB, 0.368360E+00_JPRB, 0.355459E+00_JPRB &
+  &, 0.342755E+00_JPRB, 0.330270E+00_JPRB, 0.318004E+00_JPRB, 0.305977E+00_JPRB &
+  &, 0.294185E+00_JPRB, 0.282646E+00_JPRB, 0.271354E+00_JPRB &
+  &, 0.260300E+00_JPRB, 0.249523E+00_JPRB, 0.239011E+00_JPRB, 0.228777E+00_JPRB &
+  &, 0.218804E+00_JPRB, 0.209102E+00_JPRB, 0.199679E+00_JPRB &
+  &, 0.190513E+00_JPRB, 0.181665E+00_JPRB, 0.173055E+00_JPRB, 0.164740E+00_JPRB &
+  &, 0.156724E+00_JPRB, 0.148944E+00_JPRB, 0.141461E+00_JPRB &
+  &, 0.134238E+00_JPRB, 0.127271E+00_JPRB, 0.120584E+00_JPRB, 0.114172E+00_JPRB &
+  &, 0.107991E+00_JPRB, 0.102063E+00_JPRB, 0.964102E-01_JPRB &
+  &, 0.909493E-01_JPRB, 0.857710E-01_JPRB, 0.807866E-01_JPRB, 0.760510E-01_JPRB &
+  &, 0.715454E-01_JPRB, 0.672491E-01_JPRB, 0.631391E-01_JPRB &
+  &, 0.592302E-01_JPRB, 0.555377E-01_JPRB, 0.520357E-01_JPRB, 0.486960E-01_JPRB &
+  &, 0.455308E-01_JPRB, 0.425525E-01_JPRB, 0.397296E-01_JPRB &
+  &, 0.370729E-01_JPRB, 0.345481E-01_JPRB, 0.321643E-01_JPRB, 0.299308E-01_JPRB &
+  &, 0.278573E-01_JPRB, 0.258566E-01_JPRB, 0.239836E-01_JPRB &
+  &, 0.222459E-01_JPRB, 0.206517E-01_JPRB, 0.191064E-01_JPRB, 0.176660E-01_JPRB &
+  &, 0.163365E-01_JPRB, 0.150706E-01_JPRB, 0.139268E-01_JPRB &
+  &, 0.128563E-01_JPRB, 0.118075E-01_JPRB, 0.108956E-01_JPRB, 0.100125E-01_JPRB &
+  &, 0.921846E-02_JPRB, 0.845888E-02_JPRB, 0.773590E-02_JPRB &
+  &, 0.711241E-02_JPRB, 0.653153E-02_JPRB, 0.593320E-02_JPRB, 0.544356E-02_JPRB &
+  &, 0.500343E-02_JPRB, 0.455032E-02_JPRB, 0.414980E-02_JPRB/)
+XCW( 557, :) = (/ &
+  &  0.101093E+01_JPRB, 0.101263E+01_JPRB, 0.101390E+01_JPRB, 0.101476E+01_JPRB &
+  &, 0.101520E+01_JPRB, 0.101521E+01_JPRB, 0.101479E+01_JPRB &
+  &, 0.101396E+01_JPRB, 0.101270E+01_JPRB, 0.101101E+01_JPRB, 0.100889E+01_JPRB &
+  &, 0.100636E+01_JPRB, 0.100339E+01_JPRB, 0.100001E+01_JPRB &
+  &, 0.996196E+00_JPRB, 0.991967E+00_JPRB, 0.987316E+00_JPRB, 0.982251E+00_JPRB &
+  &, 0.976769E+00_JPRB, 0.970876E+00_JPRB, 0.964576E+00_JPRB &
+  &, 0.957872E+00_JPRB, 0.950769E+00_JPRB, 0.943275E+00_JPRB, 0.935387E+00_JPRB &
+  &, 0.927121E+00_JPRB, 0.918475E+00_JPRB, 0.909464E+00_JPRB &
+  &, 0.900090E+00_JPRB, 0.890359E+00_JPRB, 0.880289E+00_JPRB, 0.869880E+00_JPRB &
+  &, 0.859149E+00_JPRB, 0.848102E+00_JPRB, 0.836749E+00_JPRB &
+  &, 0.825100E+00_JPRB, 0.813179E+00_JPRB, 0.800986E+00_JPRB, 0.788545E+00_JPRB &
+  &, 0.775855E+00_JPRB, 0.762936E+00_JPRB, 0.749805E+00_JPRB &
+  &, 0.736478E+00_JPRB, 0.722965E+00_JPRB, 0.709280E+00_JPRB, 0.695436E+00_JPRB &
+  &, 0.681460E+00_JPRB, 0.667361E+00_JPRB, 0.653156E+00_JPRB &
+  &, 0.638869E+00_JPRB, 0.624495E+00_JPRB, 0.610057E+00_JPRB, 0.595594E+00_JPRB &
+  &, 0.581090E+00_JPRB, 0.566585E+00_JPRB, 0.552077E+00_JPRB &
+  &, 0.537592E+00_JPRB, 0.523143E+00_JPRB, 0.508742E+00_JPRB, 0.494415E+00_JPRB &
+  &, 0.480176E+00_JPRB, 0.466018E+00_JPRB, 0.451967E+00_JPRB &
+  &, 0.438051E+00_JPRB, 0.424262E+00_JPRB, 0.410624E+00_JPRB, 0.397145E+00_JPRB &
+  &, 0.383831E+00_JPRB, 0.370705E+00_JPRB, 0.357772E+00_JPRB &
+  &, 0.345054E+00_JPRB, 0.332531E+00_JPRB, 0.320246E+00_JPRB, 0.308176E+00_JPRB &
+  &, 0.296337E+00_JPRB, 0.284749E+00_JPRB, 0.273428E+00_JPRB &
+  &, 0.262344E+00_JPRB, 0.251508E+00_JPRB, 0.240959E+00_JPRB, 0.230660E+00_JPRB &
+  &, 0.220645E+00_JPRB, 0.210899E+00_JPRB, 0.201428E+00_JPRB &
+  &, 0.192240E+00_JPRB, 0.183339E+00_JPRB, 0.174703E+00_JPRB, 0.166330E+00_JPRB &
+  &, 0.158253E+00_JPRB, 0.150441E+00_JPRB, 0.142891E+00_JPRB &
+  &, 0.135631E+00_JPRB, 0.128624E+00_JPRB, 0.121897E+00_JPRB, 0.115441E+00_JPRB &
+  &, 0.109214E+00_JPRB, 0.103238E+00_JPRB, 0.975356E-01_JPRB &
+  &, 0.920583E-01_JPRB, 0.867898E-01_JPRB, 0.817856E-01_JPRB, 0.770292E-01_JPRB &
+  &, 0.724635E-01_JPRB, 0.681047E-01_JPRB, 0.639692E-01_JPRB &
+  &, 0.600337E-01_JPRB, 0.563134E-01_JPRB, 0.527410E-01_JPRB, 0.493704E-01_JPRB &
+  &, 0.462160E-01_JPRB, 0.431615E-01_JPRB, 0.403039E-01_JPRB &
+  &, 0.376114E-01_JPRB, 0.350949E-01_JPRB, 0.326732E-01_JPRB, 0.304005E-01_JPRB &
+  &, 0.282864E-01_JPRB, 0.262923E-01_JPRB, 0.244257E-01_JPRB &
+  &, 0.226448E-01_JPRB, 0.210059E-01_JPRB, 0.194658E-01_JPRB, 0.179785E-01_JPRB &
+  &, 0.166535E-01_JPRB, 0.153922E-01_JPRB, 0.141986E-01_JPRB &
+  &, 0.130768E-01_JPRB, 0.120870E-01_JPRB, 0.111224E-01_JPRB, 0.102425E-01_JPRB &
+  &, 0.939331E-02_JPRB, 0.863613E-02_JPRB, 0.791558E-02_JPRB &
+  &, 0.723382E-02_JPRB, 0.665458E-02_JPRB, 0.605789E-02_JPRB, 0.556992E-02_JPRB &
+  &, 0.506745E-02_JPRB, 0.461519E-02_JPRB, 0.421551E-02_JPRB/)
+XCW( 558, :) = (/ &
+  &  0.101119E+01_JPRB, 0.101295E+01_JPRB, 0.101429E+01_JPRB, 0.101521E+01_JPRB &
+  &, 0.101571E+01_JPRB, 0.101578E+01_JPRB, 0.101544E+01_JPRB &
+  &, 0.101466E+01_JPRB, 0.101347E+01_JPRB, 0.101184E+01_JPRB, 0.100979E+01_JPRB &
+  &, 0.100731E+01_JPRB, 0.100441E+01_JPRB, 0.100109E+01_JPRB &
+  &, 0.997342E+00_JPRB, 0.993172E+00_JPRB, 0.988583E+00_JPRB, 0.983575E+00_JPRB &
+  &, 0.978154E+00_JPRB, 0.972319E+00_JPRB, 0.966077E+00_JPRB &
+  &, 0.959431E+00_JPRB, 0.952384E+00_JPRB, 0.944941E+00_JPRB, 0.937110E+00_JPRB &
+  &, 0.928892E+00_JPRB, 0.920301E+00_JPRB, 0.911337E+00_JPRB &
+  &, 0.902010E+00_JPRB, 0.892330E+00_JPRB, 0.882305E+00_JPRB, 0.871943E+00_JPRB &
+  &, 0.861250E+00_JPRB, 0.850248E+00_JPRB, 0.838935E+00_JPRB &
+  &, 0.827323E+00_JPRB, 0.815439E+00_JPRB, 0.803284E+00_JPRB, 0.790871E+00_JPRB &
+  &, 0.778209E+00_JPRB, 0.765328E+00_JPRB, 0.752225E+00_JPRB &
+  &, 0.738914E+00_JPRB, 0.725429E+00_JPRB, 0.711770E+00_JPRB, 0.697952E+00_JPRB &
+  &, 0.683990E+00_JPRB, 0.669902E+00_JPRB, 0.655709E+00_JPRB &
+  &, 0.641431E+00_JPRB, 0.627065E+00_JPRB, 0.612634E+00_JPRB, 0.598177E+00_JPRB &
+  &, 0.583677E+00_JPRB, 0.569160E+00_JPRB, 0.554651E+00_JPRB &
+  &, 0.540165E+00_JPRB, 0.525712E+00_JPRB, 0.511305E+00_JPRB, 0.496971E+00_JPRB &
+  &, 0.482705E+00_JPRB, 0.468535E+00_JPRB, 0.454470E+00_JPRB &
+  &, 0.440537E+00_JPRB, 0.426729E+00_JPRB, 0.413069E+00_JPRB, 0.399567E+00_JPRB &
+  &, 0.386225E+00_JPRB, 0.373070E+00_JPRB, 0.360105E+00_JPRB &
+  &, 0.347352E+00_JPRB, 0.334792E+00_JPRB, 0.322467E+00_JPRB, 0.310375E+00_JPRB &
+  &, 0.298513E+00_JPRB, 0.286875E+00_JPRB, 0.275503E+00_JPRB &
+  &, 0.264387E+00_JPRB, 0.253517E+00_JPRB, 0.242907E+00_JPRB, 0.232595E+00_JPRB &
+  &, 0.222513E+00_JPRB, 0.212722E+00_JPRB, 0.203232E+00_JPRB &
+  &, 0.193994E+00_JPRB, 0.185014E+00_JPRB, 0.176350E+00_JPRB, 0.167921E+00_JPRB &
+  &, 0.159813E+00_JPRB, 0.151938E+00_JPRB, 0.144353E+00_JPRB &
+  &, 0.137056E+00_JPRB, 0.130010E+00_JPRB, 0.123209E+00_JPRB, 0.116710E+00_JPRB &
+  &, 0.110437E+00_JPRB, 0.104413E+00_JPRB, 0.986610E-01_JPRB &
+  &, 0.931315E-01_JPRB, 0.878449E-01_JPRB, 0.828217E-01_JPRB, 0.779699E-01_JPRB &
+  &, 0.733816E-01_JPRB, 0.689991E-01_JPRB, 0.648389E-01_JPRB &
+  &, 0.608372E-01_JPRB, 0.570892E-01_JPRB, 0.534878E-01_JPRB, 0.500870E-01_JPRB &
+  &, 0.468583E-01_JPRB, 0.438140E-01_JPRB, 0.409225E-01_JPRB &
+  &, 0.381947E-01_JPRB, 0.356416E-01_JPRB, 0.331821E-01_JPRB, 0.309172E-01_JPRB &
+  &, 0.287633E-01_JPRB, 0.267279E-01_JPRB, 0.248187E-01_JPRB &
+  &, 0.230436E-01_JPRB, 0.213600E-01_JPRB, 0.197738E-01_JPRB, 0.183431E-01_JPRB &
+  &, 0.169705E-01_JPRB, 0.156602E-01_JPRB, 0.144704E-01_JPRB &
+  &, 0.133525E-01_JPRB, 0.123107E-01_JPRB, 0.113492E-01_JPRB, 0.104149E-01_JPRB &
+  &, 0.956815E-02_JPRB, 0.881338E-02_JPRB, 0.809525E-02_JPRB &
+  &, 0.741593E-02_JPRB, 0.677763E-02_JPRB, 0.624494E-02_JPRB, 0.569628E-02_JPRB &
+  &, 0.519549E-02_JPRB, 0.474491E-02_JPRB, 0.434694E-02_JPRB/)
+XCW( 559, :) = (/ &
+  &  0.101144E+01_JPRB, 0.101327E+01_JPRB, 0.101467E+01_JPRB, 0.101566E+01_JPRB &
+  &, 0.101622E+01_JPRB, 0.101636E+01_JPRB, 0.101608E+01_JPRB &
+  &, 0.101537E+01_JPRB, 0.101423E+01_JPRB, 0.101267E+01_JPRB, 0.101069E+01_JPRB &
+  &, 0.100827E+01_JPRB, 0.100544E+01_JPRB, 0.100217E+01_JPRB &
+  &, 0.998487E+00_JPRB, 0.994379E+00_JPRB, 0.989849E+00_JPRB, 0.984903E+00_JPRB &
+  &, 0.979539E+00_JPRB, 0.973763E+00_JPRB, 0.967578E+00_JPRB &
+  &, 0.960989E+00_JPRB, 0.953998E+00_JPRB, 0.946610E+00_JPRB, 0.938833E+00_JPRB &
+  &, 0.930667E+00_JPRB, 0.922126E+00_JPRB, 0.913215E+00_JPRB &
+  &, 0.903938E+00_JPRB, 0.894302E+00_JPRB, 0.884322E+00_JPRB, 0.874006E+00_JPRB &
+  &, 0.863360E+00_JPRB, 0.852393E+00_JPRB, 0.841126E+00_JPRB &
+  &, 0.829555E+00_JPRB, 0.817709E+00_JPRB, 0.805581E+00_JPRB, 0.793207E+00_JPRB &
+  &, 0.780573E+00_JPRB, 0.767720E+00_JPRB, 0.754644E+00_JPRB &
+  &, 0.741361E+00_JPRB, 0.727903E+00_JPRB, 0.714260E+00_JPRB, 0.700456E+00_JPRB &
+  &, 0.686519E+00_JPRB, 0.672456E+00_JPRB, 0.658274E+00_JPRB &
+  &, 0.643993E+00_JPRB, 0.629649E+00_JPRB, 0.615226E+00_JPRB, 0.600760E+00_JPRB &
+  &, 0.586264E+00_JPRB, 0.571763E+00_JPRB, 0.557256E+00_JPRB &
+  &, 0.542753E+00_JPRB, 0.528297E+00_JPRB, 0.513885E+00_JPRB, 0.499527E+00_JPRB &
+  &, 0.485252E+00_JPRB, 0.471069E+00_JPRB, 0.456990E+00_JPRB &
+  &, 0.443042E+00_JPRB, 0.429214E+00_JPRB, 0.415515E+00_JPRB, 0.401988E+00_JPRB &
+  &, 0.388640E+00_JPRB, 0.375456E+00_JPRB, 0.362459E+00_JPRB &
+  &, 0.349672E+00_JPRB, 0.337075E+00_JPRB, 0.324731E+00_JPRB, 0.312574E+00_JPRB &
+  &, 0.300688E+00_JPRB, 0.289025E+00_JPRB, 0.277601E+00_JPRB &
+  &, 0.266430E+00_JPRB, 0.255527E+00_JPRB, 0.244881E+00_JPRB, 0.234504E+00_JPRB &
+  &, 0.224406E+00_JPRB, 0.214572E+00_JPRB, 0.205008E+00_JPRB &
+  &, 0.195721E+00_JPRB, 0.186716E+00_JPRB, 0.177998E+00_JPRB, 0.169540E+00_JPRB &
+  &, 0.161373E+00_JPRB, 0.153465E+00_JPRB, 0.145815E+00_JPRB &
+  &, 0.138481E+00_JPRB, 0.131364E+00_JPRB, 0.124554E+00_JPRB, 0.117979E+00_JPRB &
+  &, 0.111660E+00_JPRB, 0.105623E+00_JPRB, 0.998216E-01_JPRB &
+  &, 0.942406E-01_JPRB, 0.889365E-01_JPRB, 0.838208E-01_JPRB, 0.789858E-01_JPRB &
+  &, 0.743380E-01_JPRB, 0.698936E-01_JPRB, 0.656690E-01_JPRB &
+  &, 0.616809E-01_JPRB, 0.578649E-01_JPRB, 0.542346E-01_JPRB, 0.508036E-01_JPRB &
+  &, 0.475435E-01_JPRB, 0.444664E-01_JPRB, 0.415410E-01_JPRB &
+  &, 0.387780E-01_JPRB, 0.361884E-01_JPRB, 0.337373E-01_JPRB, 0.313869E-01_JPRB &
+  &, 0.292401E-01_JPRB, 0.271635E-01_JPRB, 0.252608E-01_JPRB &
+  &, 0.234425E-01_JPRB, 0.217141E-01_JPRB, 0.201331E-01_JPRB, 0.186555E-01_JPRB &
+  &, 0.172347E-01_JPRB, 0.159282E-01_JPRB, 0.147422E-01_JPRB &
+  &, 0.135730E-01_JPRB, 0.125343E-01_JPRB, 0.115760E-01_JPRB, 0.106449E-01_JPRB &
+  &, 0.980128E-02_JPRB, 0.899063E-02_JPRB, 0.827492E-02_JPRB &
+  &, 0.759804E-02_JPRB, 0.696220E-02_JPRB, 0.636964E-02_JPRB, 0.582264E-02_JPRB &
+  &, 0.532352E-02_JPRB, 0.487463E-02_JPRB, 0.441265E-02_JPRB/)
+XCW( 560, :) = (/ &
+  &  0.101170E+01_JPRB, 0.101359E+01_JPRB, 0.101506E+01_JPRB, 0.101611E+01_JPRB &
+  &, 0.101673E+01_JPRB, 0.101694E+01_JPRB, 0.101672E+01_JPRB &
+  &, 0.101607E+01_JPRB, 0.101500E+01_JPRB, 0.101351E+01_JPRB, 0.101158E+01_JPRB &
+  &, 0.100923E+01_JPRB, 0.100646E+01_JPRB, 0.100326E+01_JPRB &
+  &, 0.999635E+00_JPRB, 0.995587E+00_JPRB, 0.991119E+00_JPRB, 0.986232E+00_JPRB &
+  &, 0.980927E+00_JPRB, 0.975209E+00_JPRB, 0.969083E+00_JPRB &
+  &, 0.962551E+00_JPRB, 0.955612E+00_JPRB, 0.948279E+00_JPRB, 0.940556E+00_JPRB &
+  &, 0.932446E+00_JPRB, 0.923955E+00_JPRB, 0.915093E+00_JPRB &
+  &, 0.905865E+00_JPRB, 0.896281E+00_JPRB, 0.886346E+00_JPRB, 0.876073E+00_JPRB &
+  &, 0.865471E+00_JPRB, 0.854548E+00_JPRB, 0.843317E+00_JPRB &
+  &, 0.831788E+00_JPRB, 0.819978E+00_JPRB, 0.807889E+00_JPRB, 0.795543E+00_JPRB &
+  &, 0.782947E+00_JPRB, 0.770123E+00_JPRB, 0.757075E+00_JPRB &
+  &, 0.743820E+00_JPRB, 0.730378E+00_JPRB, 0.716761E+00_JPRB, 0.702984E+00_JPRB &
+  &, 0.689061E+00_JPRB, 0.675010E+00_JPRB, 0.660840E+00_JPRB &
+  &, 0.646582E+00_JPRB, 0.632233E+00_JPRB, 0.617817E+00_JPRB, 0.603357E+00_JPRB &
+  &, 0.588865E+00_JPRB, 0.574367E+00_JPRB, 0.559845E+00_JPRB &
+  &, 0.545356E+00_JPRB, 0.530882E+00_JPRB, 0.516464E+00_JPRB, 0.502100E+00_JPRB &
+  &, 0.487815E+00_JPRB, 0.473621E+00_JPRB, 0.459529E+00_JPRB &
+  &, 0.445546E+00_JPRB, 0.431700E+00_JPRB, 0.417979E+00_JPRB, 0.404429E+00_JPRB &
+  &, 0.391055E+00_JPRB, 0.377842E+00_JPRB, 0.364813E+00_JPRB &
+  &, 0.351992E+00_JPRB, 0.339379E+00_JPRB, 0.326973E+00_JPRB, 0.314817E+00_JPRB &
+  &, 0.302864E+00_JPRB, 0.291175E+00_JPRB, 0.279699E+00_JPRB &
+  &, 0.268497E+00_JPRB, 0.257561E+00_JPRB, 0.246879E+00_JPRB, 0.236464E+00_JPRB &
+  &, 0.226300E+00_JPRB, 0.216422E+00_JPRB, 0.206811E+00_JPRB &
+  &, 0.197503E+00_JPRB, 0.188447E+00_JPRB, 0.179675E+00_JPRB, 0.171160E+00_JPRB &
+  &, 0.162932E+00_JPRB, 0.154992E+00_JPRB, 0.147308E+00_JPRB &
+  &, 0.139906E+00_JPRB, 0.132750E+00_JPRB, 0.125900E+00_JPRB, 0.119281E+00_JPRB &
+  &, 0.112918E+00_JPRB, 0.106833E+00_JPRB, 0.100982E+00_JPRB &
+  &, 0.953496E-01_JPRB, 0.899917E-01_JPRB, 0.848569E-01_JPRB, 0.799640E-01_JPRB &
+  &, 0.752944E-01_JPRB, 0.708269E-01_JPRB, 0.665386E-01_JPRB &
+  &, 0.625246E-01_JPRB, 0.586407E-01_JPRB, 0.549813E-01_JPRB, 0.515202E-01_JPRB &
+  &, 0.482286E-01_JPRB, 0.451189E-01_JPRB, 0.421596E-01_JPRB &
+  &, 0.393613E-01_JPRB, 0.367352E-01_JPRB, 0.342462E-01_JPRB, 0.319036E-01_JPRB &
+  &, 0.297169E-01_JPRB, 0.276475E-01_JPRB, 0.256538E-01_JPRB &
+  &, 0.238413E-01_JPRB, 0.221189E-01_JPRB, 0.204925E-01_JPRB, 0.189680E-01_JPRB &
+  &, 0.175517E-01_JPRB, 0.162497E-01_JPRB, 0.150140E-01_JPRB &
+  &, 0.138487E-01_JPRB, 0.127580E-01_JPRB, 0.118028E-01_JPRB, 0.108748E-01_JPRB &
+  &, 0.997612E-02_JPRB, 0.916788E-02_JPRB, 0.845459E-02_JPRB &
+  &, 0.771945E-02_JPRB, 0.708525E-02_JPRB, 0.649434E-02_JPRB, 0.594901E-02_JPRB &
+  &, 0.545156E-02_JPRB, 0.500436E-02_JPRB, 0.454407E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART80',1,ZHOOK_HANDLE)
+END SUBROUTINE PART80
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART81
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART81',0,ZHOOK_HANDLE)
+
+XCW( 561, :) = (/ &
+  &  0.101195E+01_JPRB, 0.101391E+01_JPRB, 0.101544E+01_JPRB, 0.101655E+01_JPRB &
+  &, 0.101725E+01_JPRB, 0.101752E+01_JPRB, 0.101736E+01_JPRB &
+  &, 0.101678E+01_JPRB, 0.101578E+01_JPRB, 0.101434E+01_JPRB, 0.101248E+01_JPRB &
+  &, 0.101020E+01_JPRB, 0.100748E+01_JPRB, 0.100434E+01_JPRB &
+  &, 0.100078E+01_JPRB, 0.996797E+00_JPRB, 0.992390E+00_JPRB, 0.987562E+00_JPRB &
+  &, 0.982319E+00_JPRB, 0.976659E+00_JPRB, 0.970590E+00_JPRB &
+  &, 0.964112E+00_JPRB, 0.957234E+00_JPRB, 0.949956E+00_JPRB, 0.942286E+00_JPRB &
+  &, 0.934228E+00_JPRB, 0.925788E+00_JPRB, 0.916978E+00_JPRB &
+  &, 0.907797E+00_JPRB, 0.898261E+00_JPRB, 0.888375E+00_JPRB, 0.878148E+00_JPRB &
+  &, 0.867590E+00_JPRB, 0.856707E+00_JPRB, 0.845517E+00_JPRB &
+  &, 0.834029E+00_JPRB, 0.822248E+00_JPRB, 0.810197E+00_JPRB, 0.797889E+00_JPRB &
+  &, 0.785321E+00_JPRB, 0.772526E+00_JPRB, 0.759506E+00_JPRB &
+  &, 0.746279E+00_JPRB, 0.732864E+00_JPRB, 0.719263E+00_JPRB, 0.705511E+00_JPRB &
+  &, 0.691602E+00_JPRB, 0.677565E+00_JPRB, 0.663418E+00_JPRB &
+  &, 0.649157E+00_JPRB, 0.634831E+00_JPRB, 0.620422E+00_JPRB, 0.605968E+00_JPRB &
+  &, 0.591481E+00_JPRB, 0.576971E+00_JPRB, 0.562465E+00_JPRB &
+  &, 0.547960E+00_JPRB, 0.533498E+00_JPRB, 0.519060E+00_JPRB, 0.504689E+00_JPRB &
+  &, 0.490395E+00_JPRB, 0.476173E+00_JPRB, 0.462067E+00_JPRB &
+  &, 0.448068E+00_JPRB, 0.434204E+00_JPRB, 0.420463E+00_JPRB, 0.406889E+00_JPRB &
+  &, 0.393469E+00_JPRB, 0.380248E+00_JPRB, 0.367188E+00_JPRB &
+  &, 0.354333E+00_JPRB, 0.341682E+00_JPRB, 0.329259E+00_JPRB, 0.317039E+00_JPRB &
+  &, 0.305062E+00_JPRB, 0.293325E+00_JPRB, 0.281844E+00_JPRB &
+  &, 0.270589E+00_JPRB, 0.259595E+00_JPRB, 0.248878E+00_JPRB, 0.238373E+00_JPRB &
+  &, 0.228220E+00_JPRB, 0.218298E+00_JPRB, 0.208642E+00_JPRB &
+  &, 0.199257E+00_JPRB, 0.190178E+00_JPRB, 0.181351E+00_JPRB, 0.172809E+00_JPRB &
+  &, 0.164522E+00_JPRB, 0.156519E+00_JPRB, 0.148800E+00_JPRB &
+  &, 0.141362E+00_JPRB, 0.134169E+00_JPRB, 0.127245E+00_JPRB, 0.120583E+00_JPRB &
+  &, 0.114175E+00_JPRB, 0.108043E+00_JPRB, 0.102143E+00_JPRB &
+  &, 0.964944E-01_JPRB, 0.910833E-01_JPRB, 0.858929E-01_JPRB, 0.809423E-01_JPRB &
+  &, 0.762507E-01_JPRB, 0.717214E-01_JPRB, 0.674478E-01_JPRB &
+  &, 0.633683E-01_JPRB, 0.594573E-01_JPRB, 0.557696E-01_JPRB, 0.522790E-01_JPRB &
+  &, 0.489138E-01_JPRB, 0.457714E-01_JPRB, 0.427781E-01_JPRB &
+  &, 0.399895E-01_JPRB, 0.373275E-01_JPRB, 0.348014E-01_JPRB, 0.324203E-01_JPRB &
+  &, 0.301938E-01_JPRB, 0.280831E-01_JPRB, 0.260960E-01_JPRB &
+  &, 0.242402E-01_JPRB, 0.224730E-01_JPRB, 0.208518E-01_JPRB, 0.193326E-01_JPRB &
+  &, 0.178687E-01_JPRB, 0.165713E-01_JPRB, 0.152858E-01_JPRB &
+  &, 0.141244E-01_JPRB, 0.130375E-01_JPRB, 0.120295E-01_JPRB, 0.110473E-01_JPRB &
+  &, 0.102092E-01_JPRB, 0.934513E-02_JPRB, 0.863427E-02_JPRB &
+  &, 0.790156E-02_JPRB, 0.726982E-02_JPRB, 0.661904E-02_JPRB, 0.607537E-02_JPRB &
+  &, 0.557960E-02_JPRB, 0.506922E-02_JPRB, 0.467549E-02_JPRB/)
+XCW( 562, :) = (/ &
+  &  0.101221E+01_JPRB, 0.101423E+01_JPRB, 0.101583E+01_JPRB, 0.101701E+01_JPRB &
+  &, 0.101776E+01_JPRB, 0.101810E+01_JPRB, 0.101801E+01_JPRB &
+  &, 0.101749E+01_JPRB, 0.101655E+01_JPRB, 0.101518E+01_JPRB, 0.101338E+01_JPRB &
+  &, 0.101116E+01_JPRB, 0.100851E+01_JPRB, 0.100543E+01_JPRB &
+  &, 0.100193E+01_JPRB, 0.998008E+00_JPRB, 0.993661E+00_JPRB, 0.988894E+00_JPRB &
+  &, 0.983710E+00_JPRB, 0.978109E+00_JPRB, 0.972098E+00_JPRB &
+  &, 0.965677E+00_JPRB, 0.958855E+00_JPRB, 0.951632E+00_JPRB, 0.944016E+00_JPRB &
+  &, 0.936010E+00_JPRB, 0.927625E+00_JPRB, 0.918863E+00_JPRB &
+  &, 0.909732E+00_JPRB, 0.900244E+00_JPRB, 0.890404E+00_JPRB, 0.880223E+00_JPRB &
+  &, 0.869708E+00_JPRB, 0.858870E+00_JPRB, 0.847721E+00_JPRB &
+  &, 0.836271E+00_JPRB, 0.824527E+00_JPRB, 0.812514E+00_JPRB, 0.800235E+00_JPRB &
+  &, 0.787706E+00_JPRB, 0.774939E+00_JPRB, 0.761948E+00_JPRB &
+  &, 0.748748E+00_JPRB, 0.735350E+00_JPRB, 0.721776E+00_JPRB, 0.708039E+00_JPRB &
+  &, 0.694156E+00_JPRB, 0.680131E+00_JPRB, 0.665996E+00_JPRB &
+  &, 0.651759E+00_JPRB, 0.637428E+00_JPRB, 0.623041E+00_JPRB, 0.608593E+00_JPRB &
+  &, 0.594111E+00_JPRB, 0.579604E+00_JPRB, 0.565085E+00_JPRB &
+  &, 0.550579E+00_JPRB, 0.536099E+00_JPRB, 0.521672E+00_JPRB, 0.507278E+00_JPRB &
+  &, 0.492975E+00_JPRB, 0.478742E+00_JPRB, 0.464623E+00_JPRB &
+  &, 0.450609E+00_JPRB, 0.436708E+00_JPRB, 0.422965E+00_JPRB, 0.409349E+00_JPRB &
+  &, 0.395923E+00_JPRB, 0.382654E+00_JPRB, 0.369583E+00_JPRB &
+  &, 0.356694E+00_JPRB, 0.344008E+00_JPRB, 0.331545E+00_JPRB, 0.319305E+00_JPRB &
+  &, 0.307283E+00_JPRB, 0.295498E+00_JPRB, 0.283966E+00_JPRB &
+  &, 0.272680E+00_JPRB, 0.261654E+00_JPRB, 0.250877E+00_JPRB, 0.240385E+00_JPRB &
+  &, 0.230140E+00_JPRB, 0.220175E+00_JPRB, 0.210473E+00_JPRB &
+  &, 0.201067E+00_JPRB, 0.191909E+00_JPRB, 0.183028E+00_JPRB, 0.174458E+00_JPRB &
+  &, 0.166141E+00_JPRB, 0.158077E+00_JPRB, 0.150324E+00_JPRB &
+  &, 0.142819E+00_JPRB, 0.135587E+00_JPRB, 0.128623E+00_JPRB, 0.121919E+00_JPRB &
+  &, 0.115466E+00_JPRB, 0.109288E+00_JPRB, 0.103339E+00_JPRB &
+  &, 0.976392E-01_JPRB, 0.921748E-01_JPRB, 0.869660E-01_JPRB, 0.819582E-01_JPRB &
+  &, 0.772071E-01_JPRB, 0.726547E-01_JPRB, 0.683175E-01_JPRB &
+  &, 0.642120E-01_JPRB, 0.602739E-01_JPRB, 0.565579E-01_JPRB, 0.529956E-01_JPRB &
+  &, 0.496418E-01_JPRB, 0.464674E-01_JPRB, 0.434408E-01_JPRB &
+  &, 0.405728E-01_JPRB, 0.378743E-01_JPRB, 0.353566E-01_JPRB, 0.329370E-01_JPRB &
+  &, 0.306706E-01_JPRB, 0.285671E-01_JPRB, 0.265381E-01_JPRB &
+  &, 0.246390E-01_JPRB, 0.228778E-01_JPRB, 0.212111E-01_JPRB, 0.196972E-01_JPRB &
+  &, 0.182386E-01_JPRB, 0.168393E-01_JPRB, 0.155576E-01_JPRB &
+  &, 0.144000E-01_JPRB, 0.132612E-01_JPRB, 0.122563E-01_JPRB, 0.112772E-01_JPRB &
+  &, 0.103841E-01_JPRB, 0.958146E-02_JPRB, 0.881394E-02_JPRB &
+  &, 0.808368E-02_JPRB, 0.739287E-02_JPRB, 0.680609E-02_JPRB, 0.620173E-02_JPRB &
+  &, 0.570763E-02_JPRB, 0.519894E-02_JPRB, 0.474120E-02_JPRB/)
+XCW( 563, :) = (/ &
+  &  0.101247E+01_JPRB, 0.101455E+01_JPRB, 0.101621E+01_JPRB, 0.101746E+01_JPRB &
+  &, 0.101828E+01_JPRB, 0.101868E+01_JPRB, 0.101865E+01_JPRB &
+  &, 0.101820E+01_JPRB, 0.101732E+01_JPRB, 0.101601E+01_JPRB, 0.101428E+01_JPRB &
+  &, 0.101212E+01_JPRB, 0.100954E+01_JPRB, 0.100652E+01_JPRB &
+  &, 0.100308E+01_JPRB, 0.999221E+00_JPRB, 0.994935E+00_JPRB, 0.990228E+00_JPRB &
+  &, 0.985103E+00_JPRB, 0.979562E+00_JPRB, 0.973609E+00_JPRB &
+  &, 0.967245E+00_JPRB, 0.960479E+00_JPRB, 0.953312E+00_JPRB, 0.945749E+00_JPRB &
+  &, 0.937796E+00_JPRB, 0.929465E+00_JPRB, 0.920752E+00_JPRB &
+  &, 0.911676E+00_JPRB, 0.902232E+00_JPRB, 0.892441E+00_JPRB, 0.882303E+00_JPRB &
+  &, 0.871832E+00_JPRB, 0.861038E+00_JPRB, 0.849930E+00_JPRB &
+  &, 0.838522E+00_JPRB, 0.826816E+00_JPRB, 0.814841E+00_JPRB, 0.802591E+00_JPRB &
+  &, 0.790091E+00_JPRB, 0.777363E+00_JPRB, 0.764400E+00_JPRB &
+  &, 0.751229E+00_JPRB, 0.737859E+00_JPRB, 0.724301E+00_JPRB, 0.710591E+00_JPRB &
+  &, 0.696722E+00_JPRB, 0.682710E+00_JPRB, 0.668587E+00_JPRB &
+  &, 0.654361E+00_JPRB, 0.640053E+00_JPRB, 0.625660E+00_JPRB, 0.611219E+00_JPRB &
+  &, 0.596741E+00_JPRB, 0.582223E+00_JPRB, 0.567719E+00_JPRB &
+  &, 0.553213E+00_JPRB, 0.538731E+00_JPRB, 0.524284E+00_JPRB, 0.509883E+00_JPRB &
+  &, 0.495573E+00_JPRB, 0.481329E+00_JPRB, 0.467179E+00_JPRB &
+  &, 0.453149E+00_JPRB, 0.439231E+00_JPRB, 0.425468E+00_JPRB, 0.411829E+00_JPRB &
+  &, 0.398378E+00_JPRB, 0.385080E+00_JPRB, 0.371979E+00_JPRB &
+  &, 0.359056E+00_JPRB, 0.346333E+00_JPRB, 0.333853E+00_JPRB, 0.321571E+00_JPRB &
+  &, 0.309505E+00_JPRB, 0.297695E+00_JPRB, 0.286112E+00_JPRB &
+  &, 0.274796E+00_JPRB, 0.263713E+00_JPRB, 0.252901E+00_JPRB, 0.242372E+00_JPRB &
+  &, 0.232086E+00_JPRB, 0.222079E+00_JPRB, 0.212331E+00_JPRB &
+  &, 0.202850E+00_JPRB, 0.193668E+00_JPRB, 0.184763E+00_JPRB, 0.176107E+00_JPRB &
+  &, 0.167731E+00_JPRB, 0.159666E+00_JPRB, 0.151848E+00_JPRB &
+  &, 0.144276E+00_JPRB, 0.137005E+00_JPRB, 0.130001E+00_JPRB, 0.123254E+00_JPRB &
+  &, 0.116757E+00_JPRB, 0.110498E+00_JPRB, 0.104534E+00_JPRB &
+  &, 0.987839E-01_JPRB, 0.933028E-01_JPRB, 0.880391E-01_JPRB, 0.830117E-01_JPRB &
+  &, 0.782017E-01_JPRB, 0.735881E-01_JPRB, 0.692267E-01_JPRB &
+  &, 0.650558E-01_JPRB, 0.610904E-01_JPRB, 0.573462E-01_JPRB, 0.537543E-01_JPRB &
+  &, 0.503698E-01_JPRB, 0.471199E-01_JPRB, 0.441036E-01_JPRB &
+  &, 0.412010E-01_JPRB, 0.384667E-01_JPRB, 0.359117E-01_JPRB, 0.334537E-01_JPRB &
+  &, 0.311951E-01_JPRB, 0.290028E-01_JPRB, 0.269803E-01_JPRB &
+  &, 0.250877E-01_JPRB, 0.232825E-01_JPRB, 0.216218E-01_JPRB, 0.200097E-01_JPRB &
+  &, 0.185556E-01_JPRB, 0.171609E-01_JPRB, 0.158838E-01_JPRB &
+  &, 0.146757E-01_JPRB, 0.135407E-01_JPRB, 0.124831E-01_JPRB, 0.115071E-01_JPRB &
+  &, 0.106172E-01_JPRB, 0.975871E-02_JPRB, 0.899361E-02_JPRB &
+  &, 0.826579E-02_JPRB, 0.757744E-02_JPRB, 0.693079E-02_JPRB, 0.632809E-02_JPRB &
+  &, 0.583567E-02_JPRB, 0.532866E-02_JPRB, 0.487262E-02_JPRB/)
+XCW( 564, :) = (/ &
+  &  0.101272E+01_JPRB, 0.101487E+01_JPRB, 0.101660E+01_JPRB, 0.101791E+01_JPRB &
+  &, 0.101879E+01_JPRB, 0.101926E+01_JPRB, 0.101929E+01_JPRB &
+  &, 0.101891E+01_JPRB, 0.101809E+01_JPRB, 0.101685E+01_JPRB, 0.101518E+01_JPRB &
+  &, 0.101309E+01_JPRB, 0.101056E+01_JPRB, 0.100761E+01_JPRB &
+  &, 0.100424E+01_JPRB, 0.100043E+01_JPRB, 0.996211E+00_JPRB, 0.991565E+00_JPRB &
+  &, 0.986498E+00_JPRB, 0.981015E+00_JPRB, 0.975120E+00_JPRB &
+  &, 0.968817E+00_JPRB, 0.962104E+00_JPRB, 0.954995E+00_JPRB, 0.947486E+00_JPRB &
+  &, 0.939590E+00_JPRB, 0.931305E+00_JPRB, 0.922649E+00_JPRB &
+  &, 0.913619E+00_JPRB, 0.904227E+00_JPRB, 0.894478E+00_JPRB, 0.884386E+00_JPRB &
+  &, 0.873963E+00_JPRB, 0.863210E+00_JPRB, 0.852144E+00_JPRB &
+  &, 0.840773E+00_JPRB, 0.829105E+00_JPRB, 0.817168E+00_JPRB, 0.804957E+00_JPRB &
+  &, 0.792486E+00_JPRB, 0.779787E+00_JPRB, 0.766852E+00_JPRB &
+  &, 0.753709E+00_JPRB, 0.740356E+00_JPRB, 0.726837E+00_JPRB, 0.713131E+00_JPRB &
+  &, 0.699288E+00_JPRB, 0.685302E+00_JPRB, 0.671191E+00_JPRB &
+  &, 0.656975E+00_JPRB, 0.642664E+00_JPRB, 0.628292E+00_JPRB, 0.613858E+00_JPRB &
+  &, 0.599371E+00_JPRB, 0.584871E+00_JPRB, 0.570354E+00_JPRB &
+  &, 0.555848E+00_JPRB, 0.541364E+00_JPRB, 0.526913E+00_JPRB, 0.512506E+00_JPRB &
+  &, 0.498170E+00_JPRB, 0.483916E+00_JPRB, 0.469753E+00_JPRB &
+  &, 0.455708E+00_JPRB, 0.441772E+00_JPRB, 0.427970E+00_JPRB, 0.414328E+00_JPRB &
+  &, 0.400832E+00_JPRB, 0.387526E+00_JPRB, 0.374374E+00_JPRB &
+  &, 0.361439E+00_JPRB, 0.348680E+00_JPRB, 0.336162E+00_JPRB, 0.323837E+00_JPRB &
+  &, 0.311749E+00_JPRB, 0.299891E+00_JPRB, 0.288282E+00_JPRB &
+  &, 0.276912E+00_JPRB, 0.265797E+00_JPRB, 0.254950E+00_JPRB, 0.244358E+00_JPRB &
+  &, 0.234032E+00_JPRB, 0.223982E+00_JPRB, 0.214189E+00_JPRB &
+  &, 0.204688E+00_JPRB, 0.195427E+00_JPRB, 0.186468E+00_JPRB, 0.177786E+00_JPRB &
+  &, 0.169381E+00_JPRB, 0.161223E+00_JPRB, 0.153372E+00_JPRB &
+  &, 0.145764E+00_JPRB, 0.138456E+00_JPRB, 0.131379E+00_JPRB, 0.124590E+00_JPRB &
+  &, 0.118048E+00_JPRB, 0.111777E+00_JPRB, 0.105730E+00_JPRB &
+  &, 0.999645E-01_JPRB, 0.943944E-01_JPRB, 0.891121E-01_JPRB, 0.840276E-01_JPRB &
+  &, 0.791963E-01_JPRB, 0.745603E-01_JPRB, 0.701359E-01_JPRB &
+  &, 0.659396E-01_JPRB, 0.619479E-01_JPRB, 0.581344E-01_JPRB, 0.545130E-01_JPRB &
+  &, 0.510978E-01_JPRB, 0.478159E-01_JPRB, 0.447221E-01_JPRB &
+  &, 0.418292E-01_JPRB, 0.390590E-01_JPRB, 0.364669E-01_JPRB, 0.340173E-01_JPRB &
+  &, 0.316720E-01_JPRB, 0.294868E-01_JPRB, 0.274224E-01_JPRB &
+  &, 0.254866E-01_JPRB, 0.236873E-01_JPRB, 0.219812E-01_JPRB, 0.203743E-01_JPRB &
+  &, 0.188726E-01_JPRB, 0.174825E-01_JPRB, 0.161556E-01_JPRB &
+  &, 0.149514E-01_JPRB, 0.138203E-01_JPRB, 0.127099E-01_JPRB, 0.117371E-01_JPRB &
+  &, 0.107921E-01_JPRB, 0.993596E-02_JPRB, 0.917328E-02_JPRB &
+  &, 0.838720E-02_JPRB, 0.770049E-02_JPRB, 0.711783E-02_JPRB, 0.651763E-02_JPRB &
+  &, 0.596371E-02_JPRB, 0.545839E-02_JPRB, 0.500405E-02_JPRB/)
+XCW( 565, :) = (/ &
+  &  0.101298E+01_JPRB, 0.101519E+01_JPRB, 0.101698E+01_JPRB, 0.101836E+01_JPRB &
+  &, 0.101931E+01_JPRB, 0.101984E+01_JPRB, 0.101994E+01_JPRB &
+  &, 0.101962E+01_JPRB, 0.101887E+01_JPRB, 0.101769E+01_JPRB, 0.101609E+01_JPRB &
+  &, 0.101405E+01_JPRB, 0.101159E+01_JPRB, 0.100871E+01_JPRB &
+  &, 0.100539E+01_JPRB, 0.100165E+01_JPRB, 0.997488E+00_JPRB, 0.992901E+00_JPRB &
+  &, 0.987896E+00_JPRB, 0.982474E+00_JPRB, 0.976635E+00_JPRB &
+  &, 0.970388E+00_JPRB, 0.963735E+00_JPRB, 0.956678E+00_JPRB, 0.949227E+00_JPRB &
+  &, 0.941383E+00_JPRB, 0.933153E+00_JPRB, 0.924545E+00_JPRB &
+  &, 0.915558E+00_JPRB, 0.906222E+00_JPRB, 0.896523E+00_JPRB, 0.886479E+00_JPRB &
+  &, 0.876095E+00_JPRB, 0.865387E+00_JPRB, 0.854362E+00_JPRB &
+  &, 0.843033E+00_JPRB, 0.831403E+00_JPRB, 0.819496E+00_JPRB, 0.807323E+00_JPRB &
+  &, 0.794891E+00_JPRB, 0.782210E+00_JPRB, 0.769315E+00_JPRB &
+  &, 0.756190E+00_JPRB, 0.742876E+00_JPRB, 0.729373E+00_JPRB, 0.715694E+00_JPRB &
+  &, 0.701866E+00_JPRB, 0.687893E+00_JPRB, 0.673795E+00_JPRB &
+  &, 0.659590E+00_JPRB, 0.645302E+00_JPRB, 0.630925E+00_JPRB, 0.616497E+00_JPRB &
+  &, 0.602030E+00_JPRB, 0.587519E+00_JPRB, 0.573004E+00_JPRB &
+  &, 0.558498E+00_JPRB, 0.543996E+00_JPRB, 0.529541E+00_JPRB, 0.515128E+00_JPRB &
+  &, 0.500784E+00_JPRB, 0.486520E+00_JPRB, 0.472344E+00_JPRB &
+  &, 0.458267E+00_JPRB, 0.444313E+00_JPRB, 0.430510E+00_JPRB, 0.416827E+00_JPRB &
+  &, 0.403326E+00_JPRB, 0.389973E+00_JPRB, 0.376811E+00_JPRB &
+  &, 0.363822E+00_JPRB, 0.351049E+00_JPRB, 0.338492E+00_JPRB, 0.326126E+00_JPRB &
+  &, 0.314016E+00_JPRB, 0.302111E+00_JPRB, 0.290451E+00_JPRB &
+  &, 0.279052E+00_JPRB, 0.267906E+00_JPRB, 0.256999E+00_JPRB, 0.246370E+00_JPRB &
+  &, 0.236005E+00_JPRB, 0.225886E+00_JPRB, 0.216075E+00_JPRB &
+  &, 0.206498E+00_JPRB, 0.197215E+00_JPRB, 0.188203E+00_JPRB, 0.179464E+00_JPRB &
+  &, 0.170970E+00_JPRB, 0.162842E+00_JPRB, 0.154928E+00_JPRB &
+  &, 0.147284E+00_JPRB, 0.139906E+00_JPRB, 0.132790E+00_JPRB, 0.125959E+00_JPRB &
+  &, 0.119373E+00_JPRB, 0.113022E+00_JPRB, 0.106961E+00_JPRB &
+  &, 0.101145E+00_JPRB, 0.955587E-01_JPRB, 0.901852E-01_JPRB, 0.850811E-01_JPRB &
+  &, 0.801909E-01_JPRB, 0.755325E-01_JPRB, 0.710450E-01_JPRB &
+  &, 0.668235E-01_JPRB, 0.627644E-01_JPRB, 0.589227E-01_JPRB, 0.552718E-01_JPRB &
+  &, 0.518258E-01_JPRB, 0.485119E-01_JPRB, 0.454290E-01_JPRB &
+  &, 0.424574E-01_JPRB, 0.396513E-01_JPRB, 0.370221E-01_JPRB, 0.345340E-01_JPRB &
+  &, 0.321965E-01_JPRB, 0.299708E-01_JPRB, 0.279136E-01_JPRB &
+  &, 0.259353E-01_JPRB, 0.240920E-01_JPRB, 0.223918E-01_JPRB, 0.207388E-01_JPRB &
+  &, 0.192425E-01_JPRB, 0.178040E-01_JPRB, 0.164818E-01_JPRB &
+  &, 0.152271E-01_JPRB, 0.140439E-01_JPRB, 0.129934E-01_JPRB, 0.119670E-01_JPRB &
+  &, 0.110252E-01_JPRB, 0.101723E-01_JPRB, 0.935296E-02_JPRB &
+  &, 0.856931E-02_JPRB, 0.788506E-02_JPRB, 0.724253E-02_JPRB, 0.664400E-02_JPRB &
+  &, 0.609174E-02_JPRB, 0.558811E-02_JPRB, 0.506976E-02_JPRB/)
+XCW( 566, :) = (/ &
+  &  0.101324E+01_JPRB, 0.101551E+01_JPRB, 0.101737E+01_JPRB, 0.101881E+01_JPRB &
+  &, 0.101982E+01_JPRB, 0.102042E+01_JPRB, 0.102058E+01_JPRB &
+  &, 0.102033E+01_JPRB, 0.101964E+01_JPRB, 0.101853E+01_JPRB, 0.101699E+01_JPRB &
+  &, 0.101502E+01_JPRB, 0.101262E+01_JPRB, 0.100980E+01_JPRB &
+  &, 0.100655E+01_JPRB, 0.100287E+01_JPRB, 0.998766E+00_JPRB, 0.994241E+00_JPRB &
+  &, 0.989296E+00_JPRB, 0.983930E+00_JPRB, 0.978152E+00_JPRB &
+  &, 0.971963E+00_JPRB, 0.965366E+00_JPRB, 0.958364E+00_JPRB, 0.950968E+00_JPRB &
+  &, 0.943176E+00_JPRB, 0.935001E+00_JPRB, 0.926446E+00_JPRB &
+  &, 0.917513E+00_JPRB, 0.908222E+00_JPRB, 0.898568E+00_JPRB, 0.888571E+00_JPRB &
+  &, 0.878236E+00_JPRB, 0.867568E+00_JPRB, 0.856584E+00_JPRB &
+  &, 0.845293E+00_JPRB, 0.833702E+00_JPRB, 0.821833E+00_JPRB, 0.809699E+00_JPRB &
+  &, 0.797296E+00_JPRB, 0.784655E+00_JPRB, 0.771779E+00_JPRB &
+  &, 0.758682E+00_JPRB, 0.745396E+00_JPRB, 0.731910E+00_JPRB, 0.718258E+00_JPRB &
+  &, 0.704444E+00_JPRB, 0.690498E+00_JPRB, 0.676412E+00_JPRB &
+  &, 0.662218E+00_JPRB, 0.647940E+00_JPRB, 0.633585E+00_JPRB, 0.619151E+00_JPRB &
+  &, 0.604689E+00_JPRB, 0.590182E+00_JPRB, 0.575669E+00_JPRB &
+  &, 0.561148E+00_JPRB, 0.546660E+00_JPRB, 0.532186E+00_JPRB, 0.517767E+00_JPRB &
+  &, 0.503415E+00_JPRB, 0.489124E+00_JPRB, 0.474936E+00_JPRB &
+  &, 0.460844E+00_JPRB, 0.446892E+00_JPRB, 0.433050E+00_JPRB, 0.419345E+00_JPRB &
+  &, 0.405800E+00_JPRB, 0.392439E+00_JPRB, 0.379248E+00_JPRB &
+  &, 0.366226E+00_JPRB, 0.353417E+00_JPRB, 0.340822E+00_JPRB, 0.328437E+00_JPRB &
+  &, 0.316283E+00_JPRB, 0.303607E+00_JPRB, 0.292645E+00_JPRB &
+  &, 0.281217E+00_JPRB, 0.270014E+00_JPRB, 0.259074E+00_JPRB, 0.248382E+00_JPRB &
+  &, 0.237977E+00_JPRB, 0.227843E+00_JPRB, 0.217960E+00_JPRB &
+  &, 0.208336E+00_JPRB, 0.199031E+00_JPRB, 0.189966E+00_JPRB, 0.181172E+00_JPRB &
+  &, 0.172680E+00_JPRB, 0.164430E+00_JPRB, 0.156483E+00_JPRB &
+  &, 0.148772E+00_JPRB, 0.141357E+00_JPRB, 0.134200E+00_JPRB, 0.127328E+00_JPRB &
+  &, 0.120699E+00_JPRB, 0.114301E+00_JPRB, 0.108192E+00_JPRB &
+  &, 0.102326E+00_JPRB, 0.966867E-01_JPRB, 0.912953E-01_JPRB, 0.861346E-01_JPRB &
+  &, 0.811855E-01_JPRB, 0.765047E-01_JPRB, 0.719937E-01_JPRB &
+  &, 0.677074E-01_JPRB, 0.636218E-01_JPRB, 0.597524E-01_JPRB, 0.560727E-01_JPRB &
+  &, 0.525538E-01_JPRB, 0.492514E-01_JPRB, 0.460918E-01_JPRB &
+  &, 0.430856E-01_JPRB, 0.402893E-01_JPRB, 0.376235E-01_JPRB, 0.350977E-01_JPRB &
+  &, 0.327210E-01_JPRB, 0.304548E-01_JPRB, 0.283558E-01_JPRB &
+  &, 0.263840E-01_JPRB, 0.244967E-01_JPRB, 0.227512E-01_JPRB, 0.211034E-01_JPRB &
+  &, 0.195595E-01_JPRB, 0.181256E-01_JPRB, 0.168080E-01_JPRB &
+  &, 0.155027E-01_JPRB, 0.143235E-01_JPRB, 0.132202E-01_JPRB, 0.121970E-01_JPRB &
+  &, 0.112583E-01_JPRB, 0.103495E-01_JPRB, 0.953263E-02_JPRB &
+  &, 0.875142E-02_JPRB, 0.806963E-02_JPRB, 0.742958E-02_JPRB, 0.677036E-02_JPRB &
+  &, 0.621978E-02_JPRB, 0.571784E-02_JPRB, 0.520118E-02_JPRB/)
+XCW( 567, :) = (/ &
+  &  0.101349E+01_JPRB, 0.101583E+01_JPRB, 0.101776E+01_JPRB, 0.101926E+01_JPRB &
+  &, 0.102034E+01_JPRB, 0.102100E+01_JPRB, 0.102123E+01_JPRB &
+  &, 0.102104E+01_JPRB, 0.102042E+01_JPRB, 0.101937E+01_JPRB, 0.101789E+01_JPRB &
+  &, 0.101599E+01_JPRB, 0.101365E+01_JPRB, 0.101087E+01_JPRB &
+  &, 0.100770E+01_JPRB, 0.100409E+01_JPRB, 0.100005E+01_JPRB, 0.995582E+00_JPRB &
+  &, 0.990697E+00_JPRB, 0.985393E+00_JPRB, 0.979673E+00_JPRB &
+  &, 0.973541E+00_JPRB, 0.967001E+00_JPRB, 0.960055E+00_JPRB, 0.952712E+00_JPRB &
+  &, 0.944977E+00_JPRB, 0.936852E+00_JPRB, 0.928346E+00_JPRB &
+  &, 0.919468E+00_JPRB, 0.910225E+00_JPRB, 0.900621E+00_JPRB, 0.890667E+00_JPRB &
+  &, 0.880376E+00_JPRB, 0.869754E+00_JPRB, 0.858812E+00_JPRB &
+  &, 0.847563E+00_JPRB, 0.836010E+00_JPRB, 0.824179E+00_JPRB, 0.812075E+00_JPRB &
+  &, 0.799712E+00_JPRB, 0.787100E+00_JPRB, 0.774252E+00_JPRB &
+  &, 0.761185E+00_JPRB, 0.747916E+00_JPRB, 0.734458E+00_JPRB, 0.720834E+00_JPRB &
+  &, 0.707035E+00_JPRB, 0.693102E+00_JPRB, 0.679041E+00_JPRB &
+  &, 0.664859E+00_JPRB, 0.650591E+00_JPRB, 0.636232E+00_JPRB, 0.621819E+00_JPRB &
+  &, 0.607348E+00_JPRB, 0.592859E+00_JPRB, 0.578334E+00_JPRB &
+  &, 0.563814E+00_JPRB, 0.549324E+00_JPRB, 0.534846E+00_JPRB, 0.520423E+00_JPRB &
+  &, 0.506047E+00_JPRB, 0.491745E+00_JPRB, 0.477545E+00_JPRB &
+  &, 0.463439E+00_JPRB, 0.449451E+00_JPRB, 0.435591E+00_JPRB, 0.421882E+00_JPRB &
+  &, 0.408313E+00_JPRB, 0.394906E+00_JPRB, 0.381684E+00_JPRB &
+  &, 0.368651E+00_JPRB, 0.355808E+00_JPRB, 0.343174E+00_JPRB, 0.330748E+00_JPRB &
+  &, 0.318550E+00_JPRB, 0.306575E+00_JPRB, 0.294862E+00_JPRB &
+  &, 0.283382E+00_JPRB, 0.272123E+00_JPRB, 0.261148E+00_JPRB, 0.250420E+00_JPRB &
+  &, 0.239976E+00_JPRB, 0.229773E+00_JPRB, 0.219846E+00_JPRB &
+  &, 0.210201E+00_JPRB, 0.200818E+00_JPRB, 0.191729E+00_JPRB, 0.182880E+00_JPRB &
+  &, 0.174330E+00_JPRB, 0.166049E+00_JPRB, 0.158038E+00_JPRB &
+  &, 0.150324E+00_JPRB, 0.142840E+00_JPRB, 0.135644E+00_JPRB, 0.128697E+00_JPRB &
+  &, 0.122024E+00_JPRB, 0.115614E+00_JPRB, 0.109423E+00_JPRB &
+  &, 0.103506E+00_JPRB, 0.978510E-01_JPRB, 0.924054E-01_JPRB, 0.871881E-01_JPRB &
+  &, 0.822184E-01_JPRB, 0.774770E-01_JPRB, 0.729425E-01_JPRB &
+  &, 0.686315E-01_JPRB, 0.644793E-01_JPRB, 0.605822E-01_JPRB, 0.568314E-01_JPRB &
+  &, 0.533246E-01_JPRB, 0.499474E-01_JPRB, 0.467545E-01_JPRB &
+  &, 0.437586E-01_JPRB, 0.408816E-01_JPRB, 0.381787E-01_JPRB, 0.356613E-01_JPRB &
+  &, 0.332455E-01_JPRB, 0.309872E-01_JPRB, 0.288470E-01_JPRB &
+  &, 0.268327E-01_JPRB, 0.249521E-01_JPRB, 0.231619E-01_JPRB, 0.214680E-01_JPRB &
+  &, 0.199294E-01_JPRB, 0.184472E-01_JPRB, 0.170798E-01_JPRB &
+  &, 0.158335E-01_JPRB, 0.146031E-01_JPRB, 0.135036E-01_JPRB, 0.124269E-01_JPRB &
+  &, 0.114914E-01_JPRB, 0.105859E-01_JPRB, 0.971230E-02_JPRB &
+  &, 0.893354E-02_JPRB, 0.825420E-02_JPRB, 0.755428E-02_JPRB, 0.695990E-02_JPRB &
+  &, 0.634782E-02_JPRB, 0.584756E-02_JPRB, 0.533260E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART81',1,ZHOOK_HANDLE)
+END SUBROUTINE PART81
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART82
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART82',0,ZHOOK_HANDLE)
+
+XCW( 568, :) = (/ &
+  &  0.101375E+01_JPRB, 0.101616E+01_JPRB, 0.101814E+01_JPRB, 0.101971E+01_JPRB &
+  &, 0.102086E+01_JPRB, 0.102158E+01_JPRB, 0.102188E+01_JPRB &
+  &, 0.102175E+01_JPRB, 0.102119E+01_JPRB, 0.102021E+01_JPRB, 0.101880E+01_JPRB &
+  &, 0.101696E+01_JPRB, 0.101469E+01_JPRB, 0.101199E+01_JPRB &
+  &, 0.100886E+01_JPRB, 0.100531E+01_JPRB, 0.100133E+01_JPRB, 0.996925E+00_JPRB &
+  &, 0.992101E+00_JPRB, 0.986855E+00_JPRB, 0.981193E+00_JPRB &
+  &, 0.975120E+00_JPRB, 0.968636E+00_JPRB, 0.961748E+00_JPRB, 0.954460E+00_JPRB &
+  &, 0.946777E+00_JPRB, 0.938707E+00_JPRB, 0.930254E+00_JPRB &
+  &, 0.921427E+00_JPRB, 0.912229E+00_JPRB, 0.902675E+00_JPRB, 0.892772E+00_JPRB &
+  &, 0.882525E+00_JPRB, 0.871943E+00_JPRB, 0.861043E+00_JPRB &
+  &, 0.849832E+00_JPRB, 0.838327E+00_JPRB, 0.826526E+00_JPRB, 0.814461E+00_JPRB &
+  &, 0.802127E+00_JPRB, 0.789545E+00_JPRB, 0.776726E+00_JPRB &
+  &, 0.763699E+00_JPRB, 0.750448E+00_JPRB, 0.737018E+00_JPRB, 0.723409E+00_JPRB &
+  &, 0.709637E+00_JPRB, 0.695718E+00_JPRB, 0.681670E+00_JPRB &
+  &, 0.667514E+00_JPRB, 0.653242E+00_JPRB, 0.638906E+00_JPRB, 0.624486E+00_JPRB &
+  &, 0.610036E+00_JPRB, 0.595537E+00_JPRB, 0.581015E+00_JPRB &
+  &, 0.566495E+00_JPRB, 0.551989E+00_JPRB, 0.537507E+00_JPRB, 0.523078E+00_JPRB &
+  &, 0.508695E+00_JPRB, 0.494384E+00_JPRB, 0.480172E+00_JPRB &
+  &, 0.466052E+00_JPRB, 0.452048E+00_JPRB, 0.438150E+00_JPRB, 0.424420E+00_JPRB &
+  &, 0.410827E+00_JPRB, 0.397393E+00_JPRB, 0.384142E+00_JPRB &
+  &, 0.371076E+00_JPRB, 0.358198E+00_JPRB, 0.345548E+00_JPRB, 0.333082E+00_JPRB &
+  &, 0.320840E+00_JPRB, 0.308841E+00_JPRB, 0.297079E+00_JPRB &
+  &, 0.285546E+00_JPRB, 0.274281E+00_JPRB, 0.263248E+00_JPRB, 0.252484E+00_JPRB &
+  &, 0.241975E+00_JPRB, 0.231730E+00_JPRB, 0.221786E+00_JPRB &
+  &, 0.212067E+00_JPRB, 0.202663E+00_JPRB, 0.193493E+00_JPRB, 0.184617E+00_JPRB &
+  &, 0.176009E+00_JPRB, 0.167699E+00_JPRB, 0.159624E+00_JPRB &
+  &, 0.151843E+00_JPRB, 0.144322E+00_JPRB, 0.137088E+00_JPRB, 0.130099E+00_JPRB &
+  &, 0.123383E+00_JPRB, 0.116893E+00_JPRB, 0.110689E+00_JPRB &
+  &, 0.104723E+00_JPRB, 0.990153E-01_JPRB, 0.935155E-01_JPRB, 0.882792E-01_JPRB &
+  &, 0.832513E-01_JPRB, 0.784492E-01_JPRB, 0.738912E-01_JPRB &
+  &, 0.695153E-01_JPRB, 0.653775E-01_JPRB, 0.614120E-01_JPRB, 0.576323E-01_JPRB &
+  &, 0.540526E-01_JPRB, 0.506869E-01_JPRB, 0.474614E-01_JPRB &
+  &, 0.443868E-01_JPRB, 0.415195E-01_JPRB, 0.387802E-01_JPRB, 0.362250E-01_JPRB &
+  &, 0.337701E-01_JPRB, 0.314713E-01_JPRB, 0.292892E-01_JPRB &
+  &, 0.272814E-01_JPRB, 0.253568E-01_JPRB, 0.235725E-01_JPRB, 0.218847E-01_JPRB &
+  &, 0.202992E-01_JPRB, 0.188224E-01_JPRB, 0.174060E-01_JPRB &
+  &, 0.161092E-01_JPRB, 0.148826E-01_JPRB, 0.137871E-01_JPRB, 0.127143E-01_JPRB &
+  &, 0.117246E-01_JPRB, 0.108222E-01_JPRB, 0.995186E-02_JPRB &
+  &, 0.917635E-02_JPRB, 0.843878E-02_JPRB, 0.774133E-02_JPRB, 0.708626E-02_JPRB &
+  &, 0.647585E-02_JPRB, 0.597728E-02_JPRB, 0.546402E-02_JPRB/)
+XCW( 569, :) = (/ &
+  &  0.101401E+01_JPRB, 0.101648E+01_JPRB, 0.101853E+01_JPRB, 0.102016E+01_JPRB &
+  &, 0.102137E+01_JPRB, 0.102216E+01_JPRB, 0.102252E+01_JPRB &
+  &, 0.102246E+01_JPRB, 0.102197E+01_JPRB, 0.102105E+01_JPRB, 0.101970E+01_JPRB &
+  &, 0.101792E+01_JPRB, 0.101572E+01_JPRB, 0.101308E+01_JPRB &
+  &, 0.101002E+01_JPRB, 0.100653E+01_JPRB, 0.100261E+01_JPRB, 0.998269E+00_JPRB &
+  &, 0.993504E+00_JPRB, 0.988321E+00_JPRB, 0.982717E+00_JPRB &
+  &, 0.976701E+00_JPRB, 0.970277E+00_JPRB, 0.963445E+00_JPRB, 0.956211E+00_JPRB &
+  &, 0.948585E+00_JPRB, 0.940566E+00_JPRB, 0.932166E+00_JPRB &
+  &, 0.923386E+00_JPRB, 0.914240E+00_JPRB, 0.904736E+00_JPRB, 0.894877E+00_JPRB &
+  &, 0.884674E+00_JPRB, 0.874142E+00_JPRB, 0.863284E+00_JPRB &
+  &, 0.852111E+00_JPRB, 0.840645E+00_JPRB, 0.828883E+00_JPRB, 0.816847E+00_JPRB &
+  &, 0.804553E+00_JPRB, 0.792000E+00_JPRB, 0.779222E+00_JPRB &
+  &, 0.766213E+00_JPRB, 0.752991E+00_JPRB, 0.739589E+00_JPRB, 0.725997E+00_JPRB &
+  &, 0.712240E+00_JPRB, 0.698348E+00_JPRB, 0.684313E+00_JPRB &
+  &, 0.670168E+00_JPRB, 0.655907E+00_JPRB, 0.641580E+00_JPRB, 0.627168E+00_JPRB &
+  &, 0.612724E+00_JPRB, 0.598229E+00_JPRB, 0.583710E+00_JPRB &
+  &, 0.569191E+00_JPRB, 0.554669E+00_JPRB, 0.540184E+00_JPRB, 0.525750E+00_JPRB &
+  &, 0.511360E+00_JPRB, 0.497040E+00_JPRB, 0.482799E+00_JPRB &
+  &, 0.468665E+00_JPRB, 0.454645E+00_JPRB, 0.440728E+00_JPRB, 0.426977E+00_JPRB &
+  &, 0.413360E+00_JPRB, 0.399900E+00_JPRB, 0.386620E+00_JPRB &
+  &, 0.373523E+00_JPRB, 0.360609E+00_JPRB, 0.347922E+00_JPRB, 0.335416E+00_JPRB &
+  &, 0.323153E+00_JPRB, 0.311108E+00_JPRB, 0.299297E+00_JPRB &
+  &, 0.287735E+00_JPRB, 0.276415E+00_JPRB, 0.265348E+00_JPRB, 0.254548E+00_JPRB &
+  &, 0.244000E+00_JPRB, 0.233714E+00_JPRB, 0.223699E+00_JPRB &
+  &, 0.213961E+00_JPRB, 0.204479E+00_JPRB, 0.195285E+00_JPRB, 0.186355E+00_JPRB &
+  &, 0.177719E+00_JPRB, 0.169348E+00_JPRB, 0.161241E+00_JPRB &
+  &, 0.153395E+00_JPRB, 0.145837E+00_JPRB, 0.138531E+00_JPRB, 0.131502E+00_JPRB &
+  &, 0.124742E+00_JPRB, 0.118242E+00_JPRB, 0.111955E+00_JPRB &
+  &, 0.105939E+00_JPRB, 0.100180E+00_JPRB, 0.946625E-01_JPRB, 0.893704E-01_JPRB &
+  &, 0.843224E-01_JPRB, 0.794603E-01_JPRB, 0.748399E-01_JPRB &
+  &, 0.704394E-01_JPRB, 0.662349E-01_JPRB, 0.622417E-01_JPRB, 0.584332E-01_JPRB &
+  &, 0.548234E-01_JPRB, 0.514264E-01_JPRB, 0.481683E-01_JPRB &
+  &, 0.450599E-01_JPRB, 0.421574E-01_JPRB, 0.393816E-01_JPRB, 0.367886E-01_JPRB &
+  &, 0.342946E-01_JPRB, 0.320037E-01_JPRB, 0.297804E-01_JPRB &
+  &, 0.277301E-01_JPRB, 0.258121E-01_JPRB, 0.239832E-01_JPRB, 0.222492E-01_JPRB &
+  &, 0.206691E-01_JPRB, 0.191439E-01_JPRB, 0.177321E-01_JPRB &
+  &, 0.164400E-01_JPRB, 0.151622E-01_JPRB, 0.140139E-01_JPRB, 0.129443E-01_JPRB &
+  &, 0.119577E-01_JPRB, 0.109995E-01_JPRB, 0.101315E-01_JPRB &
+  &, 0.935847E-02_JPRB, 0.856182E-02_JPRB, 0.786603E-02_JPRB, 0.721262E-02_JPRB &
+  &, 0.666791E-02_JPRB, 0.610701E-02_JPRB, 0.559545E-02_JPRB/)
+XCW( 570, :) = (/ &
+  &  0.101426E+01_JPRB, 0.101680E+01_JPRB, 0.101892E+01_JPRB, 0.102062E+01_JPRB &
+  &, 0.102189E+01_JPRB, 0.102274E+01_JPRB, 0.102317E+01_JPRB &
+  &, 0.102317E+01_JPRB, 0.102275E+01_JPRB, 0.102189E+01_JPRB, 0.102061E+01_JPRB &
+  &, 0.101890E+01_JPRB, 0.101675E+01_JPRB, 0.101418E+01_JPRB &
+  &, 0.101118E+01_JPRB, 0.100775E+01_JPRB, 0.100390E+01_JPRB, 0.999617E+00_JPRB &
+  &, 0.994913E+00_JPRB, 0.989787E+00_JPRB, 0.984245E+00_JPRB &
+  &, 0.978286E+00_JPRB, 0.971919E+00_JPRB, 0.965142E+00_JPRB, 0.957966E+00_JPRB &
+  &, 0.950393E+00_JPRB, 0.942429E+00_JPRB, 0.934078E+00_JPRB &
+  &, 0.925353E+00_JPRB, 0.916256E+00_JPRB, 0.906798E+00_JPRB, 0.896986E+00_JPRB &
+  &, 0.886832E+00_JPRB, 0.876341E+00_JPRB, 0.865525E+00_JPRB &
+  &, 0.854399E+00_JPRB, 0.842962E+00_JPRB, 0.831229E+00_JPRB, 0.819243E+00_JPRB &
+  &, 0.806979E+00_JPRB, 0.794466E+00_JPRB, 0.781707E+00_JPRB &
+  &, 0.768727E+00_JPRB, 0.755545E+00_JPRB, 0.742160E+00_JPRB, 0.728596E+00_JPRB &
+  &, 0.714855E+00_JPRB, 0.700977E+00_JPRB, 0.686955E+00_JPRB &
+  &, 0.672822E+00_JPRB, 0.658585E+00_JPRB, 0.644268E+00_JPRB, 0.629864E+00_JPRB &
+  &, 0.615412E+00_JPRB, 0.600922E+00_JPRB, 0.586405E+00_JPRB &
+  &, 0.571888E+00_JPRB, 0.557364E+00_JPRB, 0.542878E+00_JPRB, 0.528422E+00_JPRB &
+  &, 0.514025E+00_JPRB, 0.499696E+00_JPRB, 0.485444E+00_JPRB &
+  &, 0.471296E+00_JPRB, 0.457242E+00_JPRB, 0.443325E+00_JPRB, 0.429534E+00_JPRB &
+  &, 0.415893E+00_JPRB, 0.402427E+00_JPRB, 0.389118E+00_JPRB &
+  &, 0.375990E+00_JPRB, 0.363042E+00_JPRB, 0.350318E+00_JPRB, 0.337794E+00_JPRB &
+  &, 0.325466E+00_JPRB, 0.313398E+00_JPRB, 0.301562E+00_JPRB &
+  &, 0.289949E+00_JPRB, 0.278573E+00_JPRB, 0.267473E+00_JPRB, 0.256612E+00_JPRB &
+  &, 0.246025E+00_JPRB, 0.235698E+00_JPRB, 0.225639E+00_JPRB &
+  &, 0.215854E+00_JPRB, 0.206351E+00_JPRB, 0.197106E+00_JPRB, 0.188122E+00_JPRB &
+  &, 0.179428E+00_JPRB, 0.170998E+00_JPRB, 0.162858E+00_JPRB &
+  &, 0.154978E+00_JPRB, 0.147352E+00_JPRB, 0.140008E+00_JPRB, 0.132938E+00_JPRB &
+  &, 0.126101E+00_JPRB, 0.119555E+00_JPRB, 0.113256E+00_JPRB &
+  &, 0.107191E+00_JPRB, 0.101380E+00_JPRB, 0.958096E-01_JPRB, 0.904615E-01_JPRB &
+  &, 0.853552E-01_JPRB, 0.804714E-01_JPRB, 0.758281E-01_JPRB &
+  &, 0.713635E-01_JPRB, 0.671332E-01_JPRB, 0.631130E-01_JPRB, 0.592763E-01_JPRB &
+  &, 0.556370E-01_JPRB, 0.521659E-01_JPRB, 0.488752E-01_JPRB &
+  &, 0.457329E-01_JPRB, 0.427953E-01_JPRB, 0.399831E-01_JPRB, 0.373523E-01_JPRB &
+  &, 0.348668E-01_JPRB, 0.324877E-01_JPRB, 0.302717E-01_JPRB &
+  &, 0.281788E-01_JPRB, 0.262169E-01_JPRB, 0.243939E-01_JPRB, 0.226659E-01_JPRB &
+  &, 0.210389E-01_JPRB, 0.195191E-01_JPRB, 0.180583E-01_JPRB &
+  &, 0.167157E-01_JPRB, 0.154977E-01_JPRB, 0.142974E-01_JPRB, 0.132317E-01_JPRB &
+  &, 0.121908E-01_JPRB, 0.112358E-01_JPRB, 0.103711E-01_JPRB &
+  &, 0.954058E-02_JPRB, 0.874639E-02_JPRB, 0.805308E-02_JPRB, 0.740217E-02_JPRB &
+  &, 0.679595E-02_JPRB, 0.623673E-02_JPRB, 0.572687E-02_JPRB/)
+XCW( 571, :) = (/ &
+  &  0.101452E+01_JPRB, 0.101712E+01_JPRB, 0.101930E+01_JPRB, 0.102107E+01_JPRB &
+  &, 0.102241E+01_JPRB, 0.102333E+01_JPRB, 0.102382E+01_JPRB &
+  &, 0.102389E+01_JPRB, 0.102352E+01_JPRB, 0.102274E+01_JPRB, 0.102152E+01_JPRB &
+  &, 0.101987E+01_JPRB, 0.101779E+01_JPRB, 0.101528E+01_JPRB &
+  &, 0.101234E+01_JPRB, 0.100898E+01_JPRB, 0.100518E+01_JPRB, 0.100096E+01_JPRB &
+  &, 0.996321E+00_JPRB, 0.991255E+00_JPRB, 0.985772E+00_JPRB &
+  &, 0.979874E+00_JPRB, 0.973564E+00_JPRB, 0.966843E+00_JPRB, 0.959724E+00_JPRB &
+  &, 0.952204E+00_JPRB, 0.944292E+00_JPRB, 0.935998E+00_JPRB &
+  &, 0.927320E+00_JPRB, 0.918275E+00_JPRB, 0.908864E+00_JPRB, 0.899103E+00_JPRB &
+  &, 0.888989E+00_JPRB, 0.878544E+00_JPRB, 0.867775E+00_JPRB &
+  &, 0.856687E+00_JPRB, 0.845289E+00_JPRB, 0.833606E+00_JPRB, 0.821649E+00_JPRB &
+  &, 0.809415E+00_JPRB, 0.796932E+00_JPRB, 0.784213E+00_JPRB &
+  &, 0.771263E+00_JPRB, 0.758099E+00_JPRB, 0.744731E+00_JPRB, 0.731196E+00_JPRB &
+  &, 0.717482E+00_JPRB, 0.703618E+00_JPRB, 0.689623E+00_JPRB &
+  &, 0.675503E+00_JPRB, 0.661277E+00_JPRB, 0.646955E+00_JPRB, 0.632560E+00_JPRB &
+  &, 0.618114E+00_JPRB, 0.603629E+00_JPRB, 0.589116E+00_JPRB &
+  &, 0.574600E+00_JPRB, 0.560076E+00_JPRB, 0.545587E+00_JPRB, 0.531111E+00_JPRB &
+  &, 0.516707E+00_JPRB, 0.502369E+00_JPRB, 0.488106E+00_JPRB &
+  &, 0.473927E+00_JPRB, 0.459857E+00_JPRB, 0.445922E+00_JPRB, 0.432111E+00_JPRB &
+  &, 0.418446E+00_JPRB, 0.404954E+00_JPRB, 0.391617E+00_JPRB &
+  &, 0.378457E+00_JPRB, 0.365476E+00_JPRB, 0.352714E+00_JPRB, 0.340150E+00_JPRB &
+  &, 0.327802E+00_JPRB, 0.315688E+00_JPRB, 0.303803E+00_JPRB &
+  &, 0.292162E+00_JPRB, 0.280756E+00_JPRB, 0.269623E+00_JPRB, 0.258727E+00_JPRB &
+  &, 0.248077E+00_JPRB, 0.237709E+00_JPRB, 0.227606E+00_JPRB &
+  &, 0.217776E+00_JPRB, 0.208196E+00_JPRB, 0.198928E+00_JPRB, 0.189889E+00_JPRB &
+  &, 0.181138E+00_JPRB, 0.172677E+00_JPRB, 0.164476E+00_JPRB &
+  &, 0.156562E+00_JPRB, 0.148900E+00_JPRB, 0.141484E+00_JPRB, 0.134373E+00_JPRB &
+  &, 0.127494E+00_JPRB, 0.120904E+00_JPRB, 0.114558E+00_JPRB &
+  &, 0.108443E+00_JPRB, 0.102581E+00_JPRB, 0.969567E-01_JPRB, 0.915903E-01_JPRB &
+  &, 0.864263E-01_JPRB, 0.815214E-01_JPRB, 0.768164E-01_JPRB &
+  &, 0.723277E-01_JPRB, 0.680314E-01_JPRB, 0.639842E-01_JPRB, 0.600772E-01_JPRB &
+  &, 0.564078E-01_JPRB, 0.529053E-01_JPRB, 0.495821E-01_JPRB &
+  &, 0.464508E-01_JPRB, 0.434332E-01_JPRB, 0.406308E-01_JPRB, 0.379629E-01_JPRB &
+  &, 0.354390E-01_JPRB, 0.330201E-01_JPRB, 0.308121E-01_JPRB &
+  &, 0.286774E-01_JPRB, 0.266722E-01_JPRB, 0.248046E-01_JPRB, 0.230305E-01_JPRB &
+  &, 0.214088E-01_JPRB, 0.198407E-01_JPRB, 0.183845E-01_JPRB &
+  &, 0.170465E-01_JPRB, 0.157772E-01_JPRB, 0.145809E-01_JPRB, 0.134616E-01_JPRB &
+  &, 0.124239E-01_JPRB, 0.114721E-01_JPRB, 0.105508E-01_JPRB &
+  &, 0.972269E-02_JPRB, 0.893097E-02_JPRB, 0.824013E-02_JPRB, 0.759171E-02_JPRB &
+  &, 0.692398E-02_JPRB, 0.636645E-02_JPRB, 0.585829E-02_JPRB/)
+XCW( 572, :) = (/ &
+  &  0.101478E+01_JPRB, 0.101744E+01_JPRB, 0.101969E+01_JPRB, 0.102152E+01_JPRB &
+  &, 0.102293E+01_JPRB, 0.102391E+01_JPRB, 0.102447E+01_JPRB &
+  &, 0.102460E+01_JPRB, 0.102430E+01_JPRB, 0.102358E+01_JPRB, 0.102243E+01_JPRB &
+  &, 0.102084E+01_JPRB, 0.101883E+01_JPRB, 0.101638E+01_JPRB &
+  &, 0.101351E+01_JPRB, 0.101020E+01_JPRB, 0.100647E+01_JPRB, 0.100231E+01_JPRB &
+  &, 0.997732E+00_JPRB, 0.992728E+00_JPRB, 0.987302E+00_JPRB &
+  &, 0.981462E+00_JPRB, 0.975208E+00_JPRB, 0.968547E+00_JPRB, 0.961483E+00_JPRB &
+  &, 0.954019E+00_JPRB, 0.946162E+00_JPRB, 0.937917E+00_JPRB &
+  &, 0.929294E+00_JPRB, 0.920299E+00_JPRB, 0.910938E+00_JPRB, 0.901221E+00_JPRB &
+  &, 0.891156E+00_JPRB, 0.880756E+00_JPRB, 0.870024E+00_JPRB &
+  &, 0.858975E+00_JPRB, 0.847625E+00_JPRB, 0.835982E+00_JPRB, 0.824055E+00_JPRB &
+  &, 0.811861E+00_JPRB, 0.799409E+00_JPRB, 0.786720E+00_JPRB &
+  &, 0.773799E+00_JPRB, 0.760653E+00_JPRB, 0.747326E+00_JPRB, 0.733807E+00_JPRB &
+  &, 0.720109E+00_JPRB, 0.706273E+00_JPRB, 0.692278E+00_JPRB &
+  &, 0.678183E+00_JPRB, 0.663969E+00_JPRB, 0.649657E+00_JPRB, 0.635270E+00_JPRB &
+  &, 0.620831E+00_JPRB, 0.606351E+00_JPRB, 0.591841E+00_JPRB &
+  &, 0.577312E+00_JPRB, 0.562788E+00_JPRB, 0.548297E+00_JPRB, 0.533816E+00_JPRB &
+  &, 0.519406E+00_JPRB, 0.505043E+00_JPRB, 0.490769E+00_JPRB &
+  &, 0.476577E+00_JPRB, 0.462491E+00_JPRB, 0.448538E+00_JPRB, 0.434706E+00_JPRB &
+  &, 0.421019E+00_JPRB, 0.407481E+00_JPRB, 0.394116E+00_JPRB &
+  &, 0.380925E+00_JPRB, 0.367930E+00_JPRB, 0.355132E+00_JPRB, 0.342551E+00_JPRB &
+  &, 0.330161E+00_JPRB, 0.318002E+00_JPRB, 0.306092E+00_JPRB &
+  &, 0.294399E+00_JPRB, 0.282964E+00_JPRB, 0.271774E+00_JPRB, 0.260816E+00_JPRB &
+  &, 0.250154E+00_JPRB, 0.239720E+00_JPRB, 0.229574E+00_JPRB &
+  &, 0.219697E+00_JPRB, 0.210097E+00_JPRB, 0.200749E+00_JPRB, 0.191685E+00_JPRB &
+  &, 0.182878E+00_JPRB, 0.174357E+00_JPRB, 0.166124E+00_JPRB &
+  &, 0.158145E+00_JPRB, 0.150447E+00_JPRB, 0.142993E+00_JPRB, 0.135809E+00_JPRB &
+  &, 0.128921E+00_JPRB, 0.122252E+00_JPRB, 0.115859E+00_JPRB &
+  &, 0.109695E+00_JPRB, 0.103782E+00_JPRB, 0.981408E-01_JPRB, 0.927190E-01_JPRB &
+  &, 0.875357E-01_JPRB, 0.825714E-01_JPRB, 0.778046E-01_JPRB &
+  &, 0.732919E-01_JPRB, 0.689705E-01_JPRB, 0.648554E-01_JPRB, 0.609202E-01_JPRB &
+  &, 0.572215E-01_JPRB, 0.536883E-01_JPRB, 0.502890E-01_JPRB &
+  &, 0.471239E-01_JPRB, 0.441167E-01_JPRB, 0.412322E-01_JPRB, 0.385266E-01_JPRB &
+  &, 0.360112E-01_JPRB, 0.335525E-01_JPRB, 0.313033E-01_JPRB &
+  &, 0.291759E-01_JPRB, 0.271275E-01_JPRB, 0.252666E-01_JPRB, 0.234471E-01_JPRB &
+  &, 0.217786E-01_JPRB, 0.202159E-01_JPRB, 0.187107E-01_JPRB &
+  &, 0.173773E-01_JPRB, 0.160568E-01_JPRB, 0.148643E-01_JPRB, 0.137491E-01_JPRB &
+  &, 0.126571E-01_JPRB, 0.117085E-01_JPRB, 0.107903E-01_JPRB &
+  &, 0.996551E-02_JPRB, 0.911554E-02_JPRB, 0.842717E-02_JPRB, 0.771807E-02_JPRB &
+  &, 0.711604E-02_JPRB, 0.649618E-02_JPRB, 0.598971E-02_JPRB/)
+XCW( 573, :) = (/ &
+  &  0.101504E+01_JPRB, 0.101777E+01_JPRB, 0.102008E+01_JPRB, 0.102197E+01_JPRB &
+  &, 0.102345E+01_JPRB, 0.102449E+01_JPRB, 0.102512E+01_JPRB &
+  &, 0.102531E+01_JPRB, 0.102508E+01_JPRB, 0.102442E+01_JPRB, 0.102333E+01_JPRB &
+  &, 0.102181E+01_JPRB, 0.101986E+01_JPRB, 0.101748E+01_JPRB &
+  &, 0.101467E+01_JPRB, 0.101143E+01_JPRB, 0.100776E+01_JPRB, 0.100367E+01_JPRB &
+  &, 0.999145E+00_JPRB, 0.994200E+00_JPRB, 0.988836E+00_JPRB &
+  &, 0.983053E+00_JPRB, 0.976860E+00_JPRB, 0.970254E+00_JPRB, 0.963245E+00_JPRB &
+  &, 0.955838E+00_JPRB, 0.948032E+00_JPRB, 0.939844E+00_JPRB &
+  &, 0.931269E+00_JPRB, 0.922326E+00_JPRB, 0.913011E+00_JPRB, 0.903342E+00_JPRB &
+  &, 0.893326E+00_JPRB, 0.882968E+00_JPRB, 0.872283E+00_JPRB &
+  &, 0.861273E+00_JPRB, 0.849962E+00_JPRB, 0.838358E+00_JPRB, 0.826471E+00_JPRB &
+  &, 0.814308E+00_JPRB, 0.801896E+00_JPRB, 0.789226E+00_JPRB &
+  &, 0.776335E+00_JPRB, 0.763230E+00_JPRB, 0.749920E+00_JPRB, 0.736418E+00_JPRB &
+  &, 0.722748E+00_JPRB, 0.708927E+00_JPRB, 0.694959E+00_JPRB &
+  &, 0.680864E+00_JPRB, 0.666661E+00_JPRB, 0.652372E+00_JPRB, 0.637994E+00_JPRB &
+  &, 0.623562E+00_JPRB, 0.609088E+00_JPRB, 0.594567E+00_JPRB &
+  &, 0.580039E+00_JPRB, 0.565515E+00_JPRB, 0.551006E+00_JPRB, 0.536538E+00_JPRB &
+  &, 0.522105E+00_JPRB, 0.507733E+00_JPRB, 0.493449E+00_JPRB &
+  &, 0.479244E+00_JPRB, 0.465144E+00_JPRB, 0.451155E+00_JPRB, 0.437302E+00_JPRB &
+  &, 0.423592E+00_JPRB, 0.410049E+00_JPRB, 0.396656E+00_JPRB &
+  &, 0.383434E+00_JPRB, 0.370406E+00_JPRB, 0.357572E+00_JPRB, 0.344929E+00_JPRB &
+  &, 0.332519E+00_JPRB, 0.320338E+00_JPRB, 0.308380E+00_JPRB &
+  &, 0.296637E+00_JPRB, 0.285172E+00_JPRB, 0.273924E+00_JPRB, 0.262958E+00_JPRB &
+  &, 0.252232E+00_JPRB, 0.241757E+00_JPRB, 0.231568E+00_JPRB &
+  &, 0.221647E+00_JPRB, 0.211970E+00_JPRB, 0.202599E+00_JPRB, 0.193481E+00_JPRB &
+  &, 0.184647E+00_JPRB, 0.176068E+00_JPRB, 0.167773E+00_JPRB &
+  &, 0.159760E+00_JPRB, 0.151994E+00_JPRB, 0.144502E+00_JPRB, 0.137278E+00_JPRB &
+  &, 0.130314E+00_JPRB, 0.123635E+00_JPRB, 0.117160E+00_JPRB &
+  &, 0.110983E+00_JPRB, 0.105019E+00_JPRB, 0.993249E-01_JPRB, 0.938478E-01_JPRB &
+  &, 0.886068E-01_JPRB, 0.836214E-01_JPRB, 0.788324E-01_JPRB &
+  &, 0.742562E-01_JPRB, 0.699095E-01_JPRB, 0.657267E-01_JPRB, 0.617632E-01_JPRB &
+  &, 0.580351E-01_JPRB, 0.544278E-01_JPRB, 0.510401E-01_JPRB &
+  &, 0.478418E-01_JPRB, 0.447546E-01_JPRB, 0.418799E-01_JPRB, 0.391372E-01_JPRB &
+  &, 0.365834E-01_JPRB, 0.341334E-01_JPRB, 0.317946E-01_JPRB &
+  &, 0.296246E-01_JPRB, 0.275829E-01_JPRB, 0.256772E-01_JPRB, 0.238638E-01_JPRB &
+  &, 0.221485E-01_JPRB, 0.205911E-01_JPRB, 0.190912E-01_JPRB &
+  &, 0.177081E-01_JPRB, 0.163923E-01_JPRB, 0.151478E-01_JPRB, 0.139790E-01_JPRB &
+  &, 0.129485E-01_JPRB, 0.119448E-01_JPRB, 0.110299E-01_JPRB &
+  &, 0.101476E-01_JPRB, 0.936163E-02_JPRB, 0.861422E-02_JPRB, 0.790761E-02_JPRB &
+  &, 0.724407E-02_JPRB, 0.662590E-02_JPRB, 0.612114E-02_JPRB/)
+XCW( 574, :) = (/ &
+  &  0.101529E+01_JPRB, 0.101809E+01_JPRB, 0.102047E+01_JPRB, 0.102243E+01_JPRB &
+  &, 0.102396E+01_JPRB, 0.102508E+01_JPRB, 0.102577E+01_JPRB &
+  &, 0.102603E+01_JPRB, 0.102586E+01_JPRB, 0.102527E+01_JPRB, 0.102425E+01_JPRB &
+  &, 0.102279E+01_JPRB, 0.102090E+01_JPRB, 0.101859E+01_JPRB &
+  &, 0.101584E+01_JPRB, 0.101266E+01_JPRB, 0.100905E+01_JPRB, 0.100502E+01_JPRB &
+  &, 0.100056E+01_JPRB, 0.995675E+00_JPRB, 0.990373E+00_JPRB &
+  &, 0.984648E+00_JPRB, 0.978512E+00_JPRB, 0.971965E+00_JPRB, 0.965011E+00_JPRB &
+  &, 0.957657E+00_JPRB, 0.949909E+00_JPRB, 0.941771E+00_JPRB &
+  &, 0.933251E+00_JPRB, 0.924354E+00_JPRB, 0.915094E+00_JPRB, 0.905472E+00_JPRB &
+  &, 0.895501E+00_JPRB, 0.885189E+00_JPRB, 0.874547E+00_JPRB &
+  &, 0.863580E+00_JPRB, 0.852308E+00_JPRB, 0.840744E+00_JPRB, 0.828888E+00_JPRB &
+  &, 0.816764E+00_JPRB, 0.804383E+00_JPRB, 0.791754E+00_JPRB &
+  &, 0.778882E+00_JPRB, 0.765807E+00_JPRB, 0.752515E+00_JPRB, 0.739041E+00_JPRB &
+  &, 0.725400E+00_JPRB, 0.711594E+00_JPRB, 0.697640E+00_JPRB &
+  &, 0.683557E+00_JPRB, 0.669379E+00_JPRB, 0.655088E+00_JPRB, 0.640732E+00_JPRB &
+  &, 0.626293E+00_JPRB, 0.611825E+00_JPRB, 0.597308E+00_JPRB &
+  &, 0.582782E+00_JPRB, 0.568259E+00_JPRB, 0.553748E+00_JPRB, 0.539260E+00_JPRB &
+  &, 0.524821E+00_JPRB, 0.510441E+00_JPRB, 0.496130E+00_JPRB &
+  &, 0.481912E+00_JPRB, 0.467796E+00_JPRB, 0.453809E+00_JPRB, 0.439917E+00_JPRB &
+  &, 0.426185E+00_JPRB, 0.412596E+00_JPRB, 0.399196E+00_JPRB &
+  &, 0.385944E+00_JPRB, 0.372883E+00_JPRB, 0.360012E+00_JPRB, 0.347353E+00_JPRB &
+  &, 0.334901E+00_JPRB, 0.322675E+00_JPRB, 0.310669E+00_JPRB &
+  &, 0.298899E+00_JPRB, 0.287379E+00_JPRB, 0.276100E+00_JPRB, 0.265073E+00_JPRB &
+  &, 0.254310E+00_JPRB, 0.243822E+00_JPRB, 0.233563E+00_JPRB &
+  &, 0.223596E+00_JPRB, 0.213899E+00_JPRB, 0.204449E+00_JPRB, 0.195307E+00_JPRB &
+  &, 0.186417E+00_JPRB, 0.177778E+00_JPRB, 0.169452E+00_JPRB &
+  &, 0.161375E+00_JPRB, 0.153574E+00_JPRB, 0.146044E+00_JPRB, 0.138748E+00_JPRB &
+  &, 0.131741E+00_JPRB, 0.124983E+00_JPRB, 0.118497E+00_JPRB &
+  &, 0.112271E+00_JPRB, 0.106256E+00_JPRB, 0.100509E+00_JPRB, 0.950142E-01_JPRB &
+  &, 0.897162E-01_JPRB, 0.846715E-01_JPRB, 0.798602E-01_JPRB &
+  &, 0.752204E-01_JPRB, 0.708486E-01_JPRB, 0.666394E-01_JPRB, 0.626484E-01_JPRB &
+  &, 0.588487E-01_JPRB, 0.552108E-01_JPRB, 0.517912E-01_JPRB &
+  &, 0.485597E-01_JPRB, 0.454381E-01_JPRB, 0.425276E-01_JPRB, 0.397478E-01_JPRB &
+  &, 0.371556E-01_JPRB, 0.346658E-01_JPRB, 0.323350E-01_JPRB &
+  &, 0.301232E-01_JPRB, 0.280888E-01_JPRB, 0.261393E-01_JPRB, 0.242805E-01_JPRB &
+  &, 0.225712E-01_JPRB, 0.209662E-01_JPRB, 0.194174E-01_JPRB &
+  &, 0.179838E-01_JPRB, 0.166718E-01_JPRB, 0.154313E-01_JPRB, 0.142664E-01_JPRB &
+  &, 0.131816E-01_JPRB, 0.121811E-01_JPRB, 0.112096E-01_JPRB &
+  &, 0.103297E-01_JPRB, 0.954621E-02_JPRB, 0.880127E-02_JPRB, 0.809716E-02_JPRB &
+  &, 0.743613E-02_JPRB, 0.682048E-02_JPRB, 0.625256E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART82',1,ZHOOK_HANDLE)
+END SUBROUTINE PART82
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART83
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART83',0,ZHOOK_HANDLE)
+
+XCW( 575, :) = (/ &
+  &  0.101555E+01_JPRB, 0.101841E+01_JPRB, 0.102086E+01_JPRB, 0.102288E+01_JPRB &
+  &, 0.102448E+01_JPRB, 0.102566E+01_JPRB, 0.102642E+01_JPRB &
+  &, 0.102675E+01_JPRB, 0.102665E+01_JPRB, 0.102612E+01_JPRB, 0.102516E+01_JPRB &
+  &, 0.102376E+01_JPRB, 0.102194E+01_JPRB, 0.101969E+01_JPRB &
+  &, 0.101701E+01_JPRB, 0.101389E+01_JPRB, 0.101035E+01_JPRB, 0.100638E+01_JPRB &
+  &, 0.100198E+01_JPRB, 0.997153E+00_JPRB, 0.991910E+00_JPRB &
+  &, 0.986246E+00_JPRB, 0.980167E+00_JPRB, 0.973676E+00_JPRB, 0.966780E+00_JPRB &
+  &, 0.959482E+00_JPRB, 0.951787E+00_JPRB, 0.943702E+00_JPRB &
+  &, 0.935234E+00_JPRB, 0.926389E+00_JPRB, 0.917176E+00_JPRB, 0.907602E+00_JPRB &
+  &, 0.897676E+00_JPRB, 0.887410E+00_JPRB, 0.876815E+00_JPRB &
+  &, 0.865896E+00_JPRB, 0.854664E+00_JPRB, 0.843130E+00_JPRB, 0.831314E+00_JPRB &
+  &, 0.819221E+00_JPRB, 0.806870E+00_JPRB, 0.794271E+00_JPRB &
+  &, 0.781440E+00_JPRB, 0.768384E+00_JPRB, 0.755133E+00_JPRB, 0.741677E+00_JPRB &
+  &, 0.728051E+00_JPRB, 0.714260E+00_JPRB, 0.700334E+00_JPRB &
+  &, 0.686264E+00_JPRB, 0.672098E+00_JPRB, 0.657817E+00_JPRB, 0.643470E+00_JPRB &
+  &, 0.629039E+00_JPRB, 0.614577E+00_JPRB, 0.600064E+00_JPRB &
+  &, 0.585541E+00_JPRB, 0.571002E+00_JPRB, 0.556490E+00_JPRB, 0.541999E+00_JPRB &
+  &, 0.527554E+00_JPRB, 0.513167E+00_JPRB, 0.498845E+00_JPRB &
+  &, 0.484597E+00_JPRB, 0.470467E+00_JPRB, 0.456444E+00_JPRB, 0.442552E+00_JPRB &
+  &, 0.428798E+00_JPRB, 0.415184E+00_JPRB, 0.401735E+00_JPRB &
+  &, 0.388474E+00_JPRB, 0.375380E+00_JPRB, 0.362474E+00_JPRB, 0.349776E+00_JPRB &
+  &, 0.337283E+00_JPRB, 0.325035E+00_JPRB, 0.312982E+00_JPRB &
+  &, 0.301185E+00_JPRB, 0.289612E+00_JPRB, 0.278301E+00_JPRB, 0.267240E+00_JPRB &
+  &, 0.256414E+00_JPRB, 0.245859E+00_JPRB, 0.235585E+00_JPRB &
+  &, 0.225573E+00_JPRB, 0.215800E+00_JPRB, 0.206328E+00_JPRB, 0.197133E+00_JPRB &
+  &, 0.188186E+00_JPRB, 0.179519E+00_JPRB, 0.171132E+00_JPRB &
+  &, 0.162990E+00_JPRB, 0.155153E+00_JPRB, 0.147554E+00_JPRB, 0.140250E+00_JPRB &
+  &, 0.133202E+00_JPRB, 0.126400E+00_JPRB, 0.119868E+00_JPRB &
+  &, 0.113559E+00_JPRB, 0.107530E+00_JPRB, 0.101730E+00_JPRB, 0.961806E-01_JPRB &
+  &, 0.908256E-01_JPRB, 0.857603E-01_JPRB, 0.808880E-01_JPRB &
+  &, 0.762248E-01_JPRB, 0.717877E-01_JPRB, 0.675521E-01_JPRB, 0.634915E-01_JPRB &
+  &, 0.596624E-01_JPRB, 0.560373E-01_JPRB, 0.525423E-01_JPRB &
+  &, 0.492777E-01_JPRB, 0.461215E-01_JPRB, 0.431754E-01_JPRB, 0.403585E-01_JPRB &
+  &, 0.377278E-01_JPRB, 0.352466E-01_JPRB, 0.328754E-01_JPRB &
+  &, 0.306218E-01_JPRB, 0.285441E-01_JPRB, 0.265499E-01_JPRB, 0.246971E-01_JPRB &
+  &, 0.229411E-01_JPRB, 0.213414E-01_JPRB, 0.197979E-01_JPRB &
+  &, 0.183697E-01_JPRB, 0.170073E-01_JPRB, 0.157148E-01_JPRB, 0.145539E-01_JPRB &
+  &, 0.134730E-01_JPRB, 0.124174E-01_JPRB, 0.114491E-01_JPRB &
+  &, 0.105726E-01_JPRB, 0.973078E-02_JPRB, 0.898832E-02_JPRB, 0.822352E-02_JPRB &
+  &, 0.756417E-02_JPRB, 0.695021E-02_JPRB, 0.638398E-02_JPRB/)
+XCW( 576, :) = (/ &
+  &  0.101581E+01_JPRB, 0.101874E+01_JPRB, 0.102125E+01_JPRB, 0.102334E+01_JPRB &
+  &, 0.102500E+01_JPRB, 0.102625E+01_JPRB, 0.102707E+01_JPRB &
+  &, 0.102746E+01_JPRB, 0.102743E+01_JPRB, 0.102696E+01_JPRB, 0.102607E+01_JPRB &
+  &, 0.102474E+01_JPRB, 0.102299E+01_JPRB, 0.102080E+01_JPRB &
+  &, 0.101818E+01_JPRB, 0.101512E+01_JPRB, 0.101164E+01_JPRB, 0.100773E+01_JPRB &
+  &, 0.100340E+01_JPRB, 0.998622E+00_JPRB, 0.993450E+00_JPRB &
+  &, 0.987844E+00_JPRB, 0.981825E+00_JPRB, 0.975391E+00_JPRB, 0.968552E+00_JPRB &
+  &, 0.961308E+00_JPRB, 0.953668E+00_JPRB, 0.945637E+00_JPRB &
+  &, 0.937220E+00_JPRB, 0.928429E+00_JPRB, 0.919266E+00_JPRB, 0.909741E+00_JPRB &
+  &, 0.899860E+00_JPRB, 0.889640E+00_JPRB, 0.879087E+00_JPRB &
+  &, 0.868202E+00_JPRB, 0.857019E+00_JPRB, 0.845525E+00_JPRB, 0.833750E+00_JPRB &
+  &, 0.821698E+00_JPRB, 0.809378E+00_JPRB, 0.796810E+00_JPRB &
+  &, 0.784009E+00_JPRB, 0.770983E+00_JPRB, 0.757739E+00_JPRB, 0.744324E+00_JPRB &
+  &, 0.730715E+00_JPRB, 0.716952E+00_JPRB, 0.703027E+00_JPRB &
+  &, 0.688984E+00_JPRB, 0.674817E+00_JPRB, 0.660560E+00_JPRB, 0.646208E+00_JPRB &
+  &, 0.631799E+00_JPRB, 0.617328E+00_JPRB, 0.602820E+00_JPRB &
+  &, 0.588299E+00_JPRB, 0.573761E+00_JPRB, 0.559248E+00_JPRB, 0.544754E+00_JPRB &
+  &, 0.530287E+00_JPRB, 0.515893E+00_JPRB, 0.501561E+00_JPRB &
+  &, 0.487301E+00_JPRB, 0.473157E+00_JPRB, 0.459117E+00_JPRB, 0.445186E+00_JPRB &
+  &, 0.431410E+00_JPRB, 0.417772E+00_JPRB, 0.404296E+00_JPRB &
+  &, 0.391005E+00_JPRB, 0.377878E+00_JPRB, 0.364958E+00_JPRB, 0.352222E+00_JPRB &
+  &, 0.339687E+00_JPRB, 0.327396E+00_JPRB, 0.315318E+00_JPRB &
+  &, 0.303471E+00_JPRB, 0.291870E+00_JPRB, 0.280502E+00_JPRB, 0.269407E+00_JPRB &
+  &, 0.258544E+00_JPRB, 0.247950E+00_JPRB, 0.237607E+00_JPRB &
+  &, 0.227550E+00_JPRB, 0.217758E+00_JPRB, 0.208236E+00_JPRB, 0.198958E+00_JPRB &
+  &, 0.189986E+00_JPRB, 0.181260E+00_JPRB, 0.172811E+00_JPRB &
+  &, 0.164668E+00_JPRB, 0.156765E+00_JPRB, 0.149129E+00_JPRB, 0.141753E+00_JPRB &
+  &, 0.134629E+00_JPRB, 0.127783E+00_JPRB, 0.121205E+00_JPRB &
+  &, 0.114883E+00_JPRB, 0.108803E+00_JPRB, 0.102951E+00_JPRB, 0.973470E-01_JPRB &
+  &, 0.919732E-01_JPRB, 0.868492E-01_JPRB, 0.819157E-01_JPRB &
+  &, 0.772292E-01_JPRB, 0.727267E-01_JPRB, 0.684649E-01_JPRB, 0.643767E-01_JPRB &
+  &, 0.605188E-01_JPRB, 0.568203E-01_JPRB, 0.533376E-01_JPRB &
+  &, 0.499956E-01_JPRB, 0.468506E-01_JPRB, 0.438231E-01_JPRB, 0.410161E-01_JPRB &
+  &, 0.383477E-01_JPRB, 0.357790E-01_JPRB, 0.334158E-01_JPRB &
+  &, 0.311702E-01_JPRB, 0.290500E-01_JPRB, 0.270119E-01_JPRB, 0.251659E-01_JPRB &
+  &, 0.233637E-01_JPRB, 0.217166E-01_JPRB, 0.201785E-01_JPRB &
+  &, 0.187005E-01_JPRB, 0.173428E-01_JPRB, 0.160549E-01_JPRB, 0.148413E-01_JPRB &
+  &, 0.137061E-01_JPRB, 0.126538E-01_JPRB, 0.116887E-01_JPRB &
+  &, 0.108154E-01_JPRB, 0.991535E-02_JPRB, 0.917537E-02_JPRB, 0.841306E-02_JPRB &
+  &, 0.775622E-02_JPRB, 0.714479E-02_JPRB, 0.651540E-02_JPRB/)
+XCW( 577, :) = (/ &
+  &  0.101607E+01_JPRB, 0.101906E+01_JPRB, 0.102163E+01_JPRB, 0.102379E+01_JPRB &
+  &, 0.102552E+01_JPRB, 0.102684E+01_JPRB, 0.102772E+01_JPRB &
+  &, 0.102818E+01_JPRB, 0.102821E+01_JPRB, 0.102781E+01_JPRB, 0.102698E+01_JPRB &
+  &, 0.102572E+01_JPRB, 0.102403E+01_JPRB, 0.102190E+01_JPRB &
+  &, 0.101935E+01_JPRB, 0.101636E+01_JPRB, 0.101294E+01_JPRB, 0.100909E+01_JPRB &
+  &, 0.100482E+01_JPRB, 0.100012E+01_JPRB, 0.994990E+00_JPRB &
+  &, 0.989446E+00_JPRB, 0.983484E+00_JPRB, 0.977109E+00_JPRB, 0.970328E+00_JPRB &
+  &, 0.963127E+00_JPRB, 0.955553E+00_JPRB, 0.947576E+00_JPRB &
+  &, 0.939214E+00_JPRB, 0.930472E+00_JPRB, 0.921356E+00_JPRB, 0.911879E+00_JPRB &
+  &, 0.902043E+00_JPRB, 0.891874E+00_JPRB, 0.881364E+00_JPRB &
+  &, 0.870528E+00_JPRB, 0.859375E+00_JPRB, 0.847931E+00_JPRB, 0.836186E+00_JPRB &
+  &, 0.824165E+00_JPRB, 0.811886E+00_JPRB, 0.799349E+00_JPRB &
+  &, 0.786579E+00_JPRB, 0.773571E+00_JPRB, 0.760369E+00_JPRB, 0.746971E+00_JPRB &
+  &, 0.733379E+00_JPRB, 0.719631E+00_JPRB, 0.705695E+00_JPRB &
+  &, 0.691704E+00_JPRB, 0.677562E+00_JPRB, 0.663303E+00_JPRB, 0.648975E+00_JPRB &
+  &, 0.634560E+00_JPRB, 0.620095E+00_JPRB, 0.605591E+00_JPRB &
+  &, 0.591073E+00_JPRB, 0.576536E+00_JPRB, 0.562006E+00_JPRB, 0.547509E+00_JPRB &
+  &, 0.533037E+00_JPRB, 0.518635E+00_JPRB, 0.504277E+00_JPRB &
+  &, 0.490023E+00_JPRB, 0.475846E+00_JPRB, 0.461790E+00_JPRB, 0.447840E+00_JPRB &
+  &, 0.434042E+00_JPRB, 0.420380E+00_JPRB, 0.406877E+00_JPRB &
+  &, 0.393556E+00_JPRB, 0.380397E+00_JPRB, 0.367442E+00_JPRB, 0.354668E+00_JPRB &
+  &, 0.342115E+00_JPRB, 0.329779E+00_JPRB, 0.317655E+00_JPRB &
+  &, 0.305782E+00_JPRB, 0.294127E+00_JPRB, 0.282728E+00_JPRB, 0.271574E+00_JPRB &
+  &, 0.260675E+00_JPRB, 0.250042E+00_JPRB, 0.239657E+00_JPRB &
+  &, 0.229555E+00_JPRB, 0.219716E+00_JPRB, 0.210115E+00_JPRB, 0.200814E+00_JPRB &
+  &, 0.191786E+00_JPRB, 0.183032E+00_JPRB, 0.174522E+00_JPRB &
+  &, 0.166314E+00_JPRB, 0.158377E+00_JPRB, 0.150671E+00_JPRB, 0.143255E+00_JPRB &
+  &, 0.136124E+00_JPRB, 0.129235E+00_JPRB, 0.122576E+00_JPRB &
+  &, 0.116206E+00_JPRB, 0.110077E+00_JPRB, 0.104172E+00_JPRB, 0.985133E-01_JPRB &
+  &, 0.931208E-01_JPRB, 0.879381E-01_JPRB, 0.829830E-01_JPRB &
+  &, 0.782337E-01_JPRB, 0.737066E-01_JPRB, 0.693776E-01_JPRB, 0.652619E-01_JPRB &
+  &, 0.613753E-01_JPRB, 0.576468E-01_JPRB, 0.540887E-01_JPRB &
+  &, 0.507135E-01_JPRB, 0.475341E-01_JPRB, 0.445170E-01_JPRB, 0.416267E-01_JPRB &
+  &, 0.389199E-01_JPRB, 0.363599E-01_JPRB, 0.339562E-01_JPRB &
+  &, 0.316687E-01_JPRB, 0.295054E-01_JPRB, 0.274740E-01_JPRB, 0.255825E-01_JPRB &
+  &, 0.237864E-01_JPRB, 0.220918E-01_JPRB, 0.205046E-01_JPRB &
+  &, 0.190313E-01_JPRB, 0.176223E-01_JPRB, 0.163384E-01_JPRB, 0.151287E-01_JPRB &
+  &, 0.139975E-01_JPRB, 0.129492E-01_JPRB, 0.119283E-01_JPRB &
+  &, 0.109975E-01_JPRB, 0.101614E-01_JPRB, 0.936241E-02_JPRB, 0.860260E-02_JPRB &
+  &, 0.788426E-02_JPRB, 0.727452E-02_JPRB, 0.664683E-02_JPRB/)
+XCW( 578, :) = (/ &
+  &  0.101633E+01_JPRB, 0.101938E+01_JPRB, 0.102202E+01_JPRB, 0.102425E+01_JPRB &
+  &, 0.102605E+01_JPRB, 0.102742E+01_JPRB, 0.102837E+01_JPRB &
+  &, 0.102890E+01_JPRB, 0.102899E+01_JPRB, 0.102866E+01_JPRB, 0.102790E+01_JPRB &
+  &, 0.102670E+01_JPRB, 0.102507E+01_JPRB, 0.102301E+01_JPRB &
+  &, 0.102052E+01_JPRB, 0.101758E+01_JPRB, 0.101424E+01_JPRB, 0.101045E+01_JPRB &
+  &, 0.100624E+01_JPRB, 0.100160E+01_JPRB, 0.996530E+00_JPRB &
+  &, 0.991051E+00_JPRB, 0.985149E+00_JPRB, 0.978830E+00_JPRB, 0.972105E+00_JPRB &
+  &, 0.964975E+00_JPRB, 0.957442E+00_JPRB, 0.949518E+00_JPRB &
+  &, 0.941208E+00_JPRB, 0.932516E+00_JPRB, 0.923455E+00_JPRB, 0.914026E+00_JPRB &
+  &, 0.904244E+00_JPRB, 0.894113E+00_JPRB, 0.883646E+00_JPRB &
+  &, 0.872853E+00_JPRB, 0.861673E+00_JPRB, 0.850336E+00_JPRB, 0.838632E+00_JPRB &
+  &, 0.826642E+00_JPRB, 0.814394E+00_JPRB, 0.801898E+00_JPRB &
+  &, 0.789148E+00_JPRB, 0.776182E+00_JPRB, 0.762998E+00_JPRB, 0.749618E+00_JPRB &
+  &, 0.736067E+00_JPRB, 0.722336E+00_JPRB, 0.708453E+00_JPRB &
+  &, 0.694437E+00_JPRB, 0.680308E+00_JPRB, 0.666073E+00_JPRB, 0.651741E+00_JPRB &
+  &, 0.637334E+00_JPRB, 0.622876E+00_JPRB, 0.608377E+00_JPRB &
+  &, 0.593847E+00_JPRB, 0.579312E+00_JPRB, 0.564780E+00_JPRB, 0.550280E+00_JPRB &
+  &, 0.535804E+00_JPRB, 0.521378E+00_JPRB, 0.507028E+00_JPRB &
+  &, 0.492745E+00_JPRB, 0.478555E+00_JPRB, 0.464482E+00_JPRB, 0.450514E+00_JPRB &
+  &, 0.436694E+00_JPRB, 0.423009E+00_JPRB, 0.409479E+00_JPRB &
+  &, 0.396108E+00_JPRB, 0.382938E+00_JPRB, 0.369948E+00_JPRB, 0.357136E+00_JPRB &
+  &, 0.344542E+00_JPRB, 0.332163E+00_JPRB, 0.320015E+00_JPRB &
+  &, 0.308093E+00_JPRB, 0.296409E+00_JPRB, 0.284955E+00_JPRB, 0.273766E+00_JPRB &
+  &, 0.262831E+00_JPRB, 0.252133E+00_JPRB, 0.241733E+00_JPRB &
+  &, 0.231560E+00_JPRB, 0.221674E+00_JPRB, 0.212052E+00_JPRB, 0.202698E+00_JPRB &
+  &, 0.193615E+00_JPRB, 0.184804E+00_JPRB, 0.176263E+00_JPRB &
+  &, 0.167993E+00_JPRB, 0.159988E+00_JPRB, 0.152278E+00_JPRB, 0.144791E+00_JPRB &
+  &, 0.137585E+00_JPRB, 0.130653E+00_JPRB, 0.123983E+00_JPRB &
+  &, 0.117530E+00_JPRB, 0.111350E+00_JPRB, 0.105430E+00_JPRB, 0.997174E-01_JPRB &
+  &, 0.942685E-01_JPRB, 0.890270E-01_JPRB, 0.840503E-01_JPRB &
+  &, 0.792381E-01_JPRB, 0.746866E-01_JPRB, 0.703318E-01_JPRB, 0.661893E-01_JPRB &
+  &, 0.622317E-01_JPRB, 0.584733E-01_JPRB, 0.548840E-01_JPRB &
+  &, 0.514763E-01_JPRB, 0.482631E-01_JPRB, 0.452110E-01_JPRB, 0.422843E-01_JPRB &
+  &, 0.395398E-01_JPRB, 0.369407E-01_JPRB, 0.344965E-01_JPRB &
+  &, 0.322172E-01_JPRB, 0.300113E-01_JPRB, 0.279873E-01_JPRB, 0.260513E-01_JPRB &
+  &, 0.242091E-01_JPRB, 0.225205E-01_JPRB, 0.208852E-01_JPRB &
+  &, 0.193621E-01_JPRB, 0.179578E-01_JPRB, 0.166786E-01_JPRB, 0.154162E-01_JPRB &
+  &, 0.142889E-01_JPRB, 0.131855E-01_JPRB, 0.121678E-01_JPRB &
+  &, 0.112403E-01_JPRB, 0.103460E-01_JPRB, 0.954946E-02_JPRB, 0.879215E-02_JPRB &
+  &, 0.807631E-02_JPRB, 0.740424E-02_JPRB, 0.684396E-02_JPRB/)
+XCW( 579, :) = (/ &
+  &  0.101659E+01_JPRB, 0.101971E+01_JPRB, 0.102241E+01_JPRB, 0.102470E+01_JPRB &
+  &, 0.102657E+01_JPRB, 0.102801E+01_JPRB, 0.102903E+01_JPRB &
+  &, 0.102962E+01_JPRB, 0.102978E+01_JPRB, 0.102951E+01_JPRB, 0.102881E+01_JPRB &
+  &, 0.102768E+01_JPRB, 0.102612E+01_JPRB, 0.102412E+01_JPRB &
+  &, 0.102169E+01_JPRB, 0.101883E+01_JPRB, 0.101554E+01_JPRB, 0.101182E+01_JPRB &
+  &, 0.100766E+01_JPRB, 0.100309E+01_JPRB, 0.998084E+00_JPRB &
+  &, 0.992658E+00_JPRB, 0.986814E+00_JPRB, 0.980555E+00_JPRB, 0.973885E+00_JPRB &
+  &, 0.966812E+00_JPRB, 0.959334E+00_JPRB, 0.951465E+00_JPRB &
+  &, 0.943206E+00_JPRB, 0.934567E+00_JPRB, 0.925553E+00_JPRB, 0.916177E+00_JPRB &
+  &, 0.906441E+00_JPRB, 0.896356E+00_JPRB, 0.885936E+00_JPRB &
+  &, 0.875188E+00_JPRB, 0.864114E+00_JPRB, 0.852741E+00_JPRB, 0.841079E+00_JPRB &
+  &, 0.829130E+00_JPRB, 0.816923E+00_JPRB, 0.804448E+00_JPRB &
+  &, 0.791739E+00_JPRB, 0.778793E+00_JPRB, 0.765639E+00_JPRB, 0.752289E+00_JPRB &
+  &, 0.738755E+00_JPRB, 0.725040E+00_JPRB, 0.711185E+00_JPRB &
+  &, 0.697183E+00_JPRB, 0.683067E+00_JPRB, 0.668830E+00_JPRB, 0.654522E+00_JPRB &
+  &, 0.640123E+00_JPRB, 0.625672E+00_JPRB, 0.611178E+00_JPRB &
+  &, 0.596652E+00_JPRB, 0.582103E+00_JPRB, 0.567571E+00_JPRB, 0.553052E+00_JPRB &
+  &, 0.538571E+00_JPRB, 0.524138E+00_JPRB, 0.509780E+00_JPRB &
+  &, 0.495485E+00_JPRB, 0.481281E+00_JPRB, 0.467174E+00_JPRB, 0.453206E+00_JPRB &
+  &, 0.439346E+00_JPRB, 0.425637E+00_JPRB, 0.412081E+00_JPRB &
+  &, 0.398702E+00_JPRB, 0.385479E+00_JPRB, 0.372454E+00_JPRB, 0.359626E+00_JPRB &
+  &, 0.346992E+00_JPRB, 0.334593E+00_JPRB, 0.322399E+00_JPRB &
+  &, 0.310427E+00_JPRB, 0.298692E+00_JPRB, 0.287206E+00_JPRB, 0.275985E+00_JPRB &
+  &, 0.264988E+00_JPRB, 0.254278E+00_JPRB, 0.243783E+00_JPRB &
+  &, 0.233593E+00_JPRB, 0.223660E+00_JPRB, 0.213989E+00_JPRB, 0.204583E+00_JPRB &
+  &, 0.195445E+00_JPRB, 0.186606E+00_JPRB, 0.178005E+00_JPRB &
+  &, 0.169671E+00_JPRB, 0.161632E+00_JPRB, 0.153853E+00_JPRB, 0.146327E+00_JPRB &
+  &, 0.139080E+00_JPRB, 0.132105E+00_JPRB, 0.125355E+00_JPRB &
+  &, 0.118889E+00_JPRB, 0.112660E+00_JPRB, 0.106688E+00_JPRB, 0.100921E+00_JPRB &
+  &, 0.954161E-01_JPRB, 0.901548E-01_JPRB, 0.851176E-01_JPRB &
+  &, 0.802826E-01_JPRB, 0.756664E-01_JPRB, 0.712861E-01_JPRB, 0.670745E-01_JPRB &
+  &, 0.630882E-01_JPRB, 0.592998E-01_JPRB, 0.556792E-01_JPRB &
+  &, 0.522391E-01_JPRB, 0.489921E-01_JPRB, 0.459050E-01_JPRB, 0.429419E-01_JPRB &
+  &, 0.401597E-01_JPRB, 0.375699E-01_JPRB, 0.350861E-01_JPRB &
+  &, 0.327157E-01_JPRB, 0.305172E-01_JPRB, 0.284493E-01_JPRB, 0.264679E-01_JPRB &
+  &, 0.246318E-01_JPRB, 0.228957E-01_JPRB, 0.212657E-01_JPRB &
+  &, 0.197481E-01_JPRB, 0.182933E-01_JPRB, 0.169621E-01_JPRB, 0.157036E-01_JPRB &
+  &, 0.145221E-01_JPRB, 0.134219E-01_JPRB, 0.124074E-01_JPRB &
+  &, 0.114831E-01_JPRB, 0.105921E-01_JPRB, 0.973651E-02_JPRB, 0.898169E-02_JPRB &
+  &, 0.826837E-02_JPRB, 0.759883E-02_JPRB, 0.697538E-02_JPRB/)
+XCW( 580, :) = (/ &
+  &  0.101685E+01_JPRB, 0.102003E+01_JPRB, 0.102280E+01_JPRB, 0.102516E+01_JPRB &
+  &, 0.102709E+01_JPRB, 0.102860E+01_JPRB, 0.102968E+01_JPRB &
+  &, 0.103034E+01_JPRB, 0.103056E+01_JPRB, 0.103036E+01_JPRB, 0.102973E+01_JPRB &
+  &, 0.102866E+01_JPRB, 0.102716E+01_JPRB, 0.102523E+01_JPRB &
+  &, 0.102287E+01_JPRB, 0.102007E+01_JPRB, 0.101684E+01_JPRB, 0.101318E+01_JPRB &
+  &, 0.100909E+01_JPRB, 0.100457E+01_JPRB, 0.999630E+00_JPRB &
+  &, 0.994267E+00_JPRB, 0.988483E+00_JPRB, 0.982283E+00_JPRB, 0.975671E+00_JPRB &
+  &, 0.968652E+00_JPRB, 0.961230E+00_JPRB, 0.953415E+00_JPRB &
+  &, 0.945208E+00_JPRB, 0.936623E+00_JPRB, 0.927660E+00_JPRB, 0.918328E+00_JPRB &
+  &, 0.908642E+00_JPRB, 0.898603E+00_JPRB, 0.888227E+00_JPRB &
+  &, 0.877522E+00_JPRB, 0.866499E+00_JPRB, 0.855166E+00_JPRB, 0.843535E+00_JPRB &
+  &, 0.831628E+00_JPRB, 0.819441E+00_JPRB, 0.807008E+00_JPRB &
+  &, 0.794331E+00_JPRB, 0.781415E+00_JPRB, 0.768292E+00_JPRB, 0.754960E+00_JPRB &
+  &, 0.741443E+00_JPRB, 0.727757E+00_JPRB, 0.713917E+00_JPRB &
+  &, 0.699930E+00_JPRB, 0.685826E+00_JPRB, 0.671614E+00_JPRB, 0.657302E+00_JPRB &
+  &, 0.642912E+00_JPRB, 0.628468E+00_JPRB, 0.613980E+00_JPRB &
+  &, 0.599457E+00_JPRB, 0.584909E+00_JPRB, 0.570378E+00_JPRB, 0.555857E+00_JPRB &
+  &, 0.541355E+00_JPRB, 0.526916E+00_JPRB, 0.512531E+00_JPRB &
+  &, 0.498226E+00_JPRB, 0.484008E+00_JPRB, 0.469884E+00_JPRB, 0.455899E+00_JPRB &
+  &, 0.442018E+00_JPRB, 0.428286E+00_JPRB, 0.414704E+00_JPRB &
+  &, 0.401296E+00_JPRB, 0.388041E+00_JPRB, 0.374982E+00_JPRB, 0.362117E+00_JPRB &
+  &, 0.349465E+00_JPRB, 0.337000E+00_JPRB, 0.324784E+00_JPRB &
+  &, 0.312787E+00_JPRB, 0.300999E+00_JPRB, 0.289483E+00_JPRB, 0.278204E+00_JPRB &
+  &, 0.267171E+00_JPRB, 0.256396E+00_JPRB, 0.245887E+00_JPRB &
+  &, 0.235626E+00_JPRB, 0.225646E+00_JPRB, 0.215926E+00_JPRB, 0.206468E+00_JPRB &
+  &, 0.197304E+00_JPRB, 0.188408E+00_JPRB, 0.179747E+00_JPRB &
+  &, 0.171381E+00_JPRB, 0.163308E+00_JPRB, 0.155461E+00_JPRB, 0.147897E+00_JPRB &
+  &, 0.140609E+00_JPRB, 0.133557E+00_JPRB, 0.126797E+00_JPRB &
+  &, 0.120249E+00_JPRB, 0.113970E+00_JPRB, 0.107946E+00_JPRB, 0.102163E+00_JPRB &
+  &, 0.966020E-01_JPRB, 0.912826E-01_JPRB, 0.862245E-01_JPRB &
+  &, 0.813272E-01_JPRB, 0.766872E-01_JPRB, 0.722403E-01_JPRB, 0.680018E-01_JPRB &
+  &, 0.639875E-01_JPRB, 0.601263E-01_JPRB, 0.564745E-01_JPRB &
+  &, 0.530019E-01_JPRB, 0.497212E-01_JPRB, 0.465990E-01_JPRB, 0.435995E-01_JPRB &
+  &, 0.408273E-01_JPRB, 0.381507E-01_JPRB, 0.356265E-01_JPRB &
+  &, 0.332641E-01_JPRB, 0.310232E-01_JPRB, 0.289113E-01_JPRB, 0.269367E-01_JPRB &
+  &, 0.250545E-01_JPRB, 0.233245E-01_JPRB, 0.216462E-01_JPRB &
+  &, 0.201340E-01_JPRB, 0.186847E-01_JPRB, 0.173023E-01_JPRB, 0.160485E-01_JPRB &
+  &, 0.148135E-01_JPRB, 0.137173E-01_JPRB, 0.126469E-01_JPRB &
+  &, 0.117259E-01_JPRB, 0.107767E-01_JPRB, 0.998591E-02_JPRB, 0.917123E-02_JPRB &
+  &, 0.846042E-02_JPRB, 0.779341E-02_JPRB, 0.710680E-02_JPRB/)
+XCW( 581, :) = (/ &
+  &  0.101710E+01_JPRB, 0.102036E+01_JPRB, 0.102319E+01_JPRB, 0.102561E+01_JPRB &
+  &, 0.102761E+01_JPRB, 0.102918E+01_JPRB, 0.103033E+01_JPRB &
+  &, 0.103106E+01_JPRB, 0.103135E+01_JPRB, 0.103121E+01_JPRB, 0.103064E+01_JPRB &
+  &, 0.102964E+01_JPRB, 0.102821E+01_JPRB, 0.102634E+01_JPRB &
+  &, 0.102404E+01_JPRB, 0.102131E+01_JPRB, 0.101815E+01_JPRB, 0.101455E+01_JPRB &
+  &, 0.101052E+01_JPRB, 0.100606E+01_JPRB, 0.100118E+01_JPRB &
+  &, 0.995878E+00_JPRB, 0.990155E+00_JPRB, 0.984011E+00_JPRB, 0.977458E+00_JPRB &
+  &, 0.970496E+00_JPRB, 0.963130E+00_JPRB, 0.955368E+00_JPRB &
+  &, 0.947218E+00_JPRB, 0.938683E+00_JPRB, 0.929771E+00_JPRB, 0.920488E+00_JPRB &
+  &, 0.910847E+00_JPRB, 0.900860E+00_JPRB, 0.890527E+00_JPRB &
+  &, 0.879866E+00_JPRB, 0.868883E+00_JPRB, 0.857591E+00_JPRB, 0.846001E+00_JPRB &
+  &, 0.834125E+00_JPRB, 0.821981E+00_JPRB, 0.809579E+00_JPRB &
+  &, 0.796922E+00_JPRB, 0.784038E+00_JPRB, 0.770945E+00_JPRB, 0.757643E+00_JPRB &
+  &, 0.744144E+00_JPRB, 0.730486E+00_JPRB, 0.716662E+00_JPRB &
+  &, 0.702689E+00_JPRB, 0.688598E+00_JPRB, 0.674398E+00_JPRB, 0.660097E+00_JPRB &
+  &, 0.645716E+00_JPRB, 0.631279E+00_JPRB, 0.616796E+00_JPRB &
+  &, 0.602262E+00_JPRB, 0.587732E+00_JPRB, 0.573185E+00_JPRB, 0.558662E+00_JPRB &
+  &, 0.544156E+00_JPRB, 0.529711E+00_JPRB, 0.515318E+00_JPRB &
+  &, 0.500984E+00_JPRB, 0.486753E+00_JPRB, 0.472614E+00_JPRB, 0.458591E+00_JPRB &
+  &, 0.444710E+00_JPRB, 0.430934E+00_JPRB, 0.417347E+00_JPRB &
+  &, 0.403890E+00_JPRB, 0.390625E+00_JPRB, 0.377532E+00_JPRB, 0.364630E+00_JPRB &
+  &, 0.351939E+00_JPRB, 0.339453E+00_JPRB, 0.327192E+00_JPRB &
+  &, 0.315146E+00_JPRB, 0.303331E+00_JPRB, 0.291760E+00_JPRB, 0.280448E+00_JPRB &
+  &, 0.269380E+00_JPRB, 0.258540E+00_JPRB, 0.247991E+00_JPRB &
+  &, 0.237687E+00_JPRB, 0.227661E+00_JPRB, 0.217891E+00_JPRB, 0.208411E+00_JPRB &
+  &, 0.199164E+00_JPRB, 0.190210E+00_JPRB, 0.181519E+00_JPRB &
+  &, 0.173122E+00_JPRB, 0.164952E+00_JPRB, 0.157101E+00_JPRB, 0.149466E+00_JPRB &
+  &, 0.142138E+00_JPRB, 0.135043E+00_JPRB, 0.128204E+00_JPRB &
+  &, 0.121644E+00_JPRB, 0.115316E+00_JPRB, 0.109242E+00_JPRB, 0.103405E+00_JPRB &
+  &, 0.978261E-01_JPRB, 0.924493E-01_JPRB, 0.872918E-01_JPRB &
+  &, 0.824120E-01_JPRB, 0.777079E-01_JPRB, 0.732360E-01_JPRB, 0.689292E-01_JPRB &
+  &, 0.648868E-01_JPRB, 0.609962E-01_JPRB, 0.573140E-01_JPRB &
+  &, 0.538096E-01_JPRB, 0.504502E-01_JPRB, 0.472930E-01_JPRB, 0.443041E-01_JPRB &
+  &, 0.414471E-01_JPRB, 0.387800E-01_JPRB, 0.362160E-01_JPRB &
+  &, 0.338126E-01_JPRB, 0.315797E-01_JPRB, 0.294247E-01_JPRB, 0.274054E-01_JPRB &
+  &, 0.255300E-01_JPRB, 0.237532E-01_JPRB, 0.220811E-01_JPRB &
+  &, 0.204648E-01_JPRB, 0.190201E-01_JPRB, 0.176424E-01_JPRB, 0.163359E-01_JPRB &
+  &, 0.151049E-01_JPRB, 0.140127E-01_JPRB, 0.129464E-01_JPRB &
+  &, 0.119688E-01_JPRB, 0.110228E-01_JPRB, 0.101730E-01_JPRB, 0.936077E-02_JPRB &
+  &, 0.865248E-02_JPRB, 0.792314E-02_JPRB, 0.730394E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART83',1,ZHOOK_HANDLE)
+END SUBROUTINE PART83
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART84
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART84',0,ZHOOK_HANDLE)
+
+XCW( 582, :) = (/ &
+  &  0.101736E+01_JPRB, 0.102068E+01_JPRB, 0.102358E+01_JPRB, 0.102607E+01_JPRB &
+  &, 0.102813E+01_JPRB, 0.102977E+01_JPRB, 0.103099E+01_JPRB &
+  &, 0.103178E+01_JPRB, 0.103214E+01_JPRB, 0.103207E+01_JPRB, 0.103156E+01_JPRB &
+  &, 0.103063E+01_JPRB, 0.102926E+01_JPRB, 0.102746E+01_JPRB &
+  &, 0.102522E+01_JPRB, 0.102255E+01_JPRB, 0.101945E+01_JPRB, 0.101592E+01_JPRB &
+  &, 0.101195E+01_JPRB, 0.100756E+01_JPRB, 0.100274E+01_JPRB &
+  &, 0.997492E+00_JPRB, 0.991827E+00_JPRB, 0.985743E+00_JPRB, 0.979249E+00_JPRB &
+  &, 0.972341E+00_JPRB, 0.965034E+00_JPRB, 0.957326E+00_JPRB &
+  &, 0.949228E+00_JPRB, 0.940738E+00_JPRB, 0.931882E+00_JPRB, 0.922652E+00_JPRB &
+  &, 0.913061E+00_JPRB, 0.903116E+00_JPRB, 0.892831E+00_JPRB &
+  &, 0.882210E+00_JPRB, 0.871267E+00_JPRB, 0.860016E+00_JPRB, 0.848467E+00_JPRB &
+  &, 0.836633E+00_JPRB, 0.824521E+00_JPRB, 0.812151E+00_JPRB &
+  &, 0.799525E+00_JPRB, 0.786682E+00_JPRB, 0.773609E+00_JPRB, 0.760326E+00_JPRB &
+  &, 0.746856E+00_JPRB, 0.733216E+00_JPRB, 0.719407E+00_JPRB &
+  &, 0.705461E+00_JPRB, 0.691384E+00_JPRB, 0.677196E+00_JPRB, 0.662906E+00_JPRB &
+  &, 0.648534E+00_JPRB, 0.634105E+00_JPRB, 0.619613E+00_JPRB &
+  &, 0.605098E+00_JPRB, 0.590555E+00_JPRB, 0.576008E+00_JPRB, 0.561483E+00_JPRB &
+  &, 0.546974E+00_JPRB, 0.532506E+00_JPRB, 0.518104E+00_JPRB &
+  &, 0.503760E+00_JPRB, 0.489517E+00_JPRB, 0.475363E+00_JPRB, 0.461323E+00_JPRB &
+  &, 0.447402E+00_JPRB, 0.433623E+00_JPRB, 0.419990E+00_JPRB &
+  &, 0.406505E+00_JPRB, 0.393209E+00_JPRB, 0.380082E+00_JPRB, 0.367166E+00_JPRB &
+  &, 0.354435E+00_JPRB, 0.341907E+00_JPRB, 0.329600E+00_JPRB &
+  &, 0.317529E+00_JPRB, 0.305663E+00_JPRB, 0.294062E+00_JPRB, 0.282692E+00_JPRB &
+  &, 0.271589E+00_JPRB, 0.260712E+00_JPRB, 0.250123E+00_JPRB &
+  &, 0.239775E+00_JPRB, 0.229675E+00_JPRB, 0.219886E+00_JPRB, 0.210325E+00_JPRB &
+  &, 0.201053E+00_JPRB, 0.192043E+00_JPRB, 0.183323E+00_JPRB &
+  &, 0.174864E+00_JPRB, 0.166661E+00_JPRB, 0.158742E+00_JPRB, 0.151069E+00_JPRB &
+  &, 0.143667E+00_JPRB, 0.136530E+00_JPRB, 0.129646E+00_JPRB &
+  &, 0.123039E+00_JPRB, 0.116662E+00_JPRB, 0.110537E+00_JPRB, 0.104646E+00_JPRB &
+  &, 0.990120E-01_JPRB, 0.936159E-01_JPRB, 0.884381E-01_JPRB &
+  &, 0.834566E-01_JPRB, 0.787286E-01_JPRB, 0.741902E-01_JPRB, 0.698987E-01_JPRB &
+  &, 0.657860E-01_JPRB, 0.618662E-01_JPRB, 0.581092E-01_JPRB &
+  &, 0.545724E-01_JPRB, 0.512248E-01_JPRB, 0.480332E-01_JPRB, 0.449617E-01_JPRB &
+  &, 0.421147E-01_JPRB, 0.393608E-01_JPRB, 0.368055E-01_JPRB &
+  &, 0.343610E-01_JPRB, 0.320856E-01_JPRB, 0.299380E-01_JPRB, 0.278742E-01_JPRB &
+  &, 0.259527E-01_JPRB, 0.241284E-01_JPRB, 0.224617E-01_JPRB &
+  &, 0.208508E-01_JPRB, 0.193556E-01_JPRB, 0.179826E-01_JPRB, 0.166234E-01_JPRB &
+  &, 0.153963E-01_JPRB, 0.142490E-01_JPRB, 0.131860E-01_JPRB &
+  &, 0.122116E-01_JPRB, 0.112689E-01_JPRB, 0.103600E-01_JPRB, 0.955032E-02_JPRB &
+  &, 0.884453E-02_JPRB, 0.811772E-02_JPRB, 0.743536E-02_JPRB/)
+XCW( 583, :) = (/ &
+  &  0.101762E+01_JPRB, 0.102101E+01_JPRB, 0.102398E+01_JPRB, 0.102653E+01_JPRB &
+  &, 0.102866E+01_JPRB, 0.103036E+01_JPRB, 0.103164E+01_JPRB &
+  &, 0.103250E+01_JPRB, 0.103292E+01_JPRB, 0.103292E+01_JPRB, 0.103248E+01_JPRB &
+  &, 0.103161E+01_JPRB, 0.103031E+01_JPRB, 0.102857E+01_JPRB &
+  &, 0.102640E+01_JPRB, 0.102380E+01_JPRB, 0.102076E+01_JPRB, 0.101729E+01_JPRB &
+  &, 0.101339E+01_JPRB, 0.100905E+01_JPRB, 0.100429E+01_JPRB &
+  &, 0.999111E+00_JPRB, 0.993506E+00_JPRB, 0.987478E+00_JPRB, 0.981043E+00_JPRB &
+  &, 0.974192E+00_JPRB, 0.966938E+00_JPRB, 0.959288E+00_JPRB &
+  &, 0.951242E+00_JPRB, 0.942810E+00_JPRB, 0.934001E+00_JPRB, 0.924819E+00_JPRB &
+  &, 0.915279E+00_JPRB, 0.905381E+00_JPRB, 0.895140E+00_JPRB &
+  &, 0.884563E+00_JPRB, 0.873661E+00_JPRB, 0.862451E+00_JPRB, 0.850944E+00_JPRB &
+  &, 0.839141E+00_JPRB, 0.827071E+00_JPRB, 0.814733E+00_JPRB &
+  &, 0.802139E+00_JPRB, 0.789316E+00_JPRB, 0.776273E+00_JPRB, 0.763020E+00_JPRB &
+  &, 0.749581E+00_JPRB, 0.735958E+00_JPRB, 0.722178E+00_JPRB &
+  &, 0.708247E+00_JPRB, 0.694184E+00_JPRB, 0.679981E+00_JPRB, 0.665728E+00_JPRB &
+  &, 0.651366E+00_JPRB, 0.636930E+00_JPRB, 0.622445E+00_JPRB &
+  &, 0.607934E+00_JPRB, 0.593393E+00_JPRB, 0.578847E+00_JPRB, 0.564305E+00_JPRB &
+  &, 0.549792E+00_JPRB, 0.535318E+00_JPRB, 0.520909E+00_JPRB &
+  &, 0.506555E+00_JPRB, 0.492281E+00_JPRB, 0.478112E+00_JPRB, 0.464054E+00_JPRB &
+  &, 0.450113E+00_JPRB, 0.436312E+00_JPRB, 0.422654E+00_JPRB &
+  &, 0.409141E+00_JPRB, 0.395814E+00_JPRB, 0.382654E+00_JPRB, 0.369701E+00_JPRB &
+  &, 0.356931E+00_JPRB, 0.344384E+00_JPRB, 0.332032E+00_JPRB &
+  &, 0.319913E+00_JPRB, 0.308019E+00_JPRB, 0.296365E+00_JPRB, 0.284962E+00_JPRB &
+  &, 0.273799E+00_JPRB, 0.262884E+00_JPRB, 0.252254E+00_JPRB &
+  &, 0.241864E+00_JPRB, 0.231718E+00_JPRB, 0.221881E+00_JPRB, 0.212269E+00_JPRB &
+  &, 0.202943E+00_JPRB, 0.193906E+00_JPRB, 0.185127E+00_JPRB &
+  &, 0.176605E+00_JPRB, 0.168369E+00_JPRB, 0.160382E+00_JPRB, 0.152671E+00_JPRB &
+  &, 0.145230E+00_JPRB, 0.138051E+00_JPRB, 0.131123E+00_JPRB &
+  &, 0.124434E+00_JPRB, 0.118009E+00_JPRB, 0.111832E+00_JPRB, 0.105926E+00_JPRB &
+  &, 0.100236E+00_JPRB, 0.947826E-01_JPRB, 0.895450E-01_JPRB &
+  &, 0.845414E-01_JPRB, 0.797902E-01_JPRB, 0.752274E-01_JPRB, 0.708682E-01_JPRB &
+  &, 0.666853E-01_JPRB, 0.627362E-01_JPRB, 0.589487E-01_JPRB &
+  &, 0.553800E-01_JPRB, 0.519538E-01_JPRB, 0.487272E-01_JPRB, 0.456662E-01_JPRB &
+  &, 0.427823E-01_JPRB, 0.399900E-01_JPRB, 0.373950E-01_JPRB &
+  &, 0.349593E-01_JPRB, 0.326421E-01_JPRB, 0.304514E-01_JPRB, 0.283429E-01_JPRB &
+  &, 0.264283E-01_JPRB, 0.246108E-01_JPRB, 0.228422E-01_JPRB &
+  &, 0.212367E-01_JPRB, 0.197470E-01_JPRB, 0.183228E-01_JPRB, 0.169683E-01_JPRB &
+  &, 0.157460E-01_JPRB, 0.145444E-01_JPRB, 0.134854E-01_JPRB &
+  &, 0.124544E-01_JPRB, 0.115150E-01_JPRB, 0.106094E-01_JPRB, 0.980304E-02_JPRB &
+  &, 0.903659E-02_JPRB, 0.831231E-02_JPRB, 0.763249E-02_JPRB/)
+XCW( 584, :) = (/ &
+  &  0.101788E+01_JPRB, 0.102133E+01_JPRB, 0.102437E+01_JPRB, 0.102698E+01_JPRB &
+  &, 0.102918E+01_JPRB, 0.103095E+01_JPRB, 0.103230E+01_JPRB &
+  &, 0.103322E+01_JPRB, 0.103371E+01_JPRB, 0.103377E+01_JPRB, 0.103340E+01_JPRB &
+  &, 0.103260E+01_JPRB, 0.103136E+01_JPRB, 0.102969E+01_JPRB &
+  &, 0.102758E+01_JPRB, 0.102504E+01_JPRB, 0.102207E+01_JPRB, 0.101866E+01_JPRB &
+  &, 0.101482E+01_JPRB, 0.101055E+01_JPRB, 0.100585E+01_JPRB &
+  &, 0.100073E+01_JPRB, 0.995184E+00_JPRB, 0.989217E+00_JPRB, 0.982837E+00_JPRB &
+  &, 0.976047E+00_JPRB, 0.968849E+00_JPRB, 0.961253E+00_JPRB &
+  &, 0.953259E+00_JPRB, 0.944881E+00_JPRB, 0.936124E+00_JPRB, 0.926992E+00_JPRB &
+  &, 0.917497E+00_JPRB, 0.907646E+00_JPRB, 0.897453E+00_JPRB &
+  &, 0.886916E+00_JPRB, 0.876064E+00_JPRB, 0.864896E+00_JPRB, 0.853420E+00_JPRB &
+  &, 0.841660E+00_JPRB, 0.829621E+00_JPRB, 0.817315E+00_JPRB &
+  &, 0.804763E+00_JPRB, 0.791972E+00_JPRB, 0.778949E+00_JPRB, 0.765727E+00_JPRB &
+  &, 0.752306E+00_JPRB, 0.738712E+00_JPRB, 0.724936E+00_JPRB &
+  &, 0.711033E+00_JPRB, 0.696983E+00_JPRB, 0.682820E+00_JPRB, 0.668551E+00_JPRB &
+  &, 0.654199E+00_JPRB, 0.639771E+00_JPRB, 0.625291E+00_JPRB &
+  &, 0.610770E+00_JPRB, 0.596232E+00_JPRB, 0.581686E+00_JPRB, 0.567143E+00_JPRB &
+  &, 0.552627E+00_JPRB, 0.538148E+00_JPRB, 0.523713E+00_JPRB &
+  &, 0.509349E+00_JPRB, 0.495063E+00_JPRB, 0.480880E+00_JPRB, 0.466805E+00_JPRB &
+  &, 0.452844E+00_JPRB, 0.439001E+00_JPRB, 0.425318E+00_JPRB &
+  &, 0.411798E+00_JPRB, 0.398441E+00_JPRB, 0.385248E+00_JPRB, 0.372259E+00_JPRB &
+  &, 0.359450E+00_JPRB, 0.346861E+00_JPRB, 0.334487E+00_JPRB &
+  &, 0.322321E+00_JPRB, 0.310401E+00_JPRB, 0.298692E+00_JPRB, 0.287258E+00_JPRB &
+  &, 0.276034E+00_JPRB, 0.265082E+00_JPRB, 0.254385E+00_JPRB &
+  &, 0.243952E+00_JPRB, 0.233790E+00_JPRB, 0.223875E+00_JPRB, 0.214242E+00_JPRB &
+  &, 0.204863E+00_JPRB, 0.195769E+00_JPRB, 0.186931E+00_JPRB &
+  &, 0.178379E+00_JPRB, 0.170078E+00_JPRB, 0.162055E+00_JPRB, 0.154274E+00_JPRB &
+  &, 0.146793E+00_JPRB, 0.139537E+00_JPRB, 0.132565E+00_JPRB &
+  &, 0.125865E+00_JPRB, 0.119391E+00_JPRB, 0.113164E+00_JPRB, 0.107205E+00_JPRB &
+  &, 0.101460E+00_JPRB, 0.959493E-01_JPRB, 0.906913E-01_JPRB &
+  &, 0.856663E-01_JPRB, 0.808109E-01_JPRB, 0.762231E-01_JPRB, 0.718377E-01_JPRB &
+  &, 0.676274E-01_JPRB, 0.636062E-01_JPRB, 0.598323E-01_JPRB &
+  &, 0.561877E-01_JPRB, 0.527284E-01_JPRB, 0.494674E-01_JPRB, 0.463708E-01_JPRB &
+  &, 0.434499E-01_JPRB, 0.406676E-01_JPRB, 0.380336E-01_JPRB &
+  &, 0.355077E-01_JPRB, 0.331480E-01_JPRB, 0.309647E-01_JPRB, 0.288637E-01_JPRB &
+  &, 0.269038E-01_JPRB, 0.250396E-01_JPRB, 0.232771E-01_JPRB &
+  &, 0.216226E-01_JPRB, 0.200825E-01_JPRB, 0.186630E-01_JPRB, 0.173132E-01_JPRB &
+  &, 0.160374E-01_JPRB, 0.148399E-01_JPRB, 0.137250E-01_JPRB &
+  &, 0.126972E-01_JPRB, 0.116995E-01_JPRB, 0.107965E-01_JPRB, 0.999258E-02_JPRB &
+  &, 0.922864E-02_JPRB, 0.844203E-02_JPRB, 0.776391E-02_JPRB/)
+XCW( 585, :) = (/ &
+  &  0.101814E+01_JPRB, 0.102166E+01_JPRB, 0.102476E+01_JPRB, 0.102744E+01_JPRB &
+  &, 0.102970E+01_JPRB, 0.103154E+01_JPRB, 0.103296E+01_JPRB &
+  &, 0.103394E+01_JPRB, 0.103450E+01_JPRB, 0.103463E+01_JPRB, 0.103433E+01_JPRB &
+  &, 0.103359E+01_JPRB, 0.103241E+01_JPRB, 0.103081E+01_JPRB &
+  &, 0.102877E+01_JPRB, 0.102629E+01_JPRB, 0.102338E+01_JPRB, 0.102004E+01_JPRB &
+  &, 0.101626E+01_JPRB, 0.101205E+01_JPRB, 0.100742E+01_JPRB &
+  &, 0.100235E+01_JPRB, 0.996867E+00_JPRB, 0.990959E+00_JPRB, 0.984638E+00_JPRB &
+  &, 0.977902E+00_JPRB, 0.970764E+00_JPRB, 0.963222E+00_JPRB &
+  &, 0.955285E+00_JPRB, 0.946957E+00_JPRB, 0.938252E+00_JPRB, 0.929168E+00_JPRB &
+  &, 0.919724E+00_JPRB, 0.909920E+00_JPRB, 0.899771E+00_JPRB &
+  &, 0.889288E+00_JPRB, 0.878467E+00_JPRB, 0.867340E+00_JPRB, 0.855906E+00_JPRB &
+  &, 0.844188E+00_JPRB, 0.832182E+00_JPRB, 0.819918E+00_JPRB &
+  &, 0.807388E+00_JPRB, 0.794629E+00_JPRB, 0.781637E+00_JPRB, 0.768434E+00_JPRB &
+  &, 0.755043E+00_JPRB, 0.741466E+00_JPRB, 0.727719E+00_JPRB &
+  &, 0.713818E+00_JPRB, 0.699796E+00_JPRB, 0.685646E+00_JPRB, 0.671388E+00_JPRB &
+  &, 0.657045E+00_JPRB, 0.642626E+00_JPRB, 0.628153E+00_JPRB &
+  &, 0.613637E+00_JPRB, 0.599102E+00_JPRB, 0.584542E+00_JPRB, 0.569997E+00_JPRB &
+  &, 0.555479E+00_JPRB, 0.540977E+00_JPRB, 0.526536E+00_JPRB &
+  &, 0.512162E+00_JPRB, 0.497864E+00_JPRB, 0.483666E+00_JPRB, 0.469556E+00_JPRB &
+  &, 0.455576E+00_JPRB, 0.441730E+00_JPRB, 0.428002E+00_JPRB &
+  &, 0.414455E+00_JPRB, 0.401068E+00_JPRB, 0.387842E+00_JPRB, 0.374817E+00_JPRB &
+  &, 0.361992E+00_JPRB, 0.349361E+00_JPRB, 0.336943E+00_JPRB &
+  &, 0.324753E+00_JPRB, 0.312782E+00_JPRB, 0.301045E+00_JPRB, 0.289554E+00_JPRB &
+  &, 0.278296E+00_JPRB, 0.267307E+00_JPRB, 0.256571E+00_JPRB &
+  &, 0.246069E+00_JPRB, 0.235861E+00_JPRB, 0.225899E+00_JPRB, 0.216215E+00_JPRB &
+  &, 0.206782E+00_JPRB, 0.197632E+00_JPRB, 0.188766E+00_JPRB &
+  &, 0.180152E+00_JPRB, 0.171786E+00_JPRB, 0.163729E+00_JPRB, 0.155910E+00_JPRB &
+  &, 0.148356E+00_JPRB, 0.141093E+00_JPRB, 0.134077E+00_JPRB &
+  &, 0.127296E+00_JPRB, 0.120774E+00_JPRB, 0.114496E+00_JPRB, 0.108484E+00_JPRB &
+  &, 0.102723E+00_JPRB, 0.971548E-01_JPRB, 0.918377E-01_JPRB &
+  &, 0.867511E-01_JPRB, 0.818725E-01_JPRB, 0.771773E-01_JPRB, 0.728072E-01_JPRB &
+  &, 0.685695E-01_JPRB, 0.645197E-01_JPRB, 0.606718E-01_JPRB &
+  &, 0.569954E-01_JPRB, 0.535486E-01_JPRB, 0.502077E-01_JPRB, 0.470754E-01_JPRB &
+  &, 0.441174E-01_JPRB, 0.412969E-01_JPRB, 0.386231E-01_JPRB &
+  &, 0.361060E-01_JPRB, 0.337045E-01_JPRB, 0.314780E-01_JPRB, 0.293325E-01_JPRB &
+  &, 0.273265E-01_JPRB, 0.254683E-01_JPRB, 0.237120E-01_JPRB &
+  &, 0.220086E-01_JPRB, 0.204738E-01_JPRB, 0.190031E-01_JPRB, 0.176006E-01_JPRB &
+  &, 0.163288E-01_JPRB, 0.151353E-01_JPRB, 0.140244E-01_JPRB &
+  &, 0.129400E-01_JPRB, 0.119456E-01_JPRB, 0.110458E-01_JPRB, 0.101821E-01_JPRB &
+  &, 0.942070E-02_JPRB, 0.863661E-02_JPRB, 0.796105E-02_JPRB/)
+XCW( 586, :) = (/ &
+  &  0.101840E+01_JPRB, 0.102198E+01_JPRB, 0.102515E+01_JPRB, 0.102790E+01_JPRB &
+  &, 0.103023E+01_JPRB, 0.103213E+01_JPRB, 0.103361E+01_JPRB &
+  &, 0.103467E+01_JPRB, 0.103529E+01_JPRB, 0.103549E+01_JPRB, 0.103525E+01_JPRB &
+  &, 0.103457E+01_JPRB, 0.103347E+01_JPRB, 0.103193E+01_JPRB &
+  &, 0.102995E+01_JPRB, 0.102754E+01_JPRB, 0.102469E+01_JPRB, 0.102141E+01_JPRB &
+  &, 0.101770E+01_JPRB, 0.101355E+01_JPRB, 0.100898E+01_JPRB &
+  &, 0.100398E+01_JPRB, 0.998552E+00_JPRB, 0.992705E+00_JPRB, 0.986439E+00_JPRB &
+  &, 0.979764E+00_JPRB, 0.972678E+00_JPRB, 0.965191E+00_JPRB &
+  &, 0.957310E+00_JPRB, 0.949036E+00_JPRB, 0.940383E+00_JPRB, 0.931353E+00_JPRB &
+  &, 0.921955E+00_JPRB, 0.912199E+00_JPRB, 0.902098E+00_JPRB &
+  &, 0.891651E+00_JPRB, 0.880880E+00_JPRB, 0.869794E+00_JPRB, 0.858403E+00_JPRB &
+  &, 0.846717E+00_JPRB, 0.834753E+00_JPRB, 0.822511E+00_JPRB &
+  &, 0.810024E+00_JPRB, 0.797296E+00_JPRB, 0.784336E+00_JPRB, 0.771164E+00_JPRB &
+  &, 0.757792E+00_JPRB, 0.744233E+00_JPRB, 0.730503E+00_JPRB &
+  &, 0.716630E+00_JPRB, 0.702609E+00_JPRB, 0.688471E+00_JPRB, 0.674239E+00_JPRB &
+  &, 0.659892E+00_JPRB, 0.645496E+00_JPRB, 0.631015E+00_JPRB &
+  &, 0.616504E+00_JPRB, 0.601972E+00_JPRB, 0.587413E+00_JPRB, 0.572869E+00_JPRB &
+  &, 0.558331E+00_JPRB, 0.543824E+00_JPRB, 0.529376E+00_JPRB &
+  &, 0.514993E+00_JPRB, 0.500683E+00_JPRB, 0.486453E+00_JPRB, 0.472326E+00_JPRB &
+  &, 0.458327E+00_JPRB, 0.444440E+00_JPRB, 0.430707E+00_JPRB &
+  &, 0.417133E+00_JPRB, 0.403717E+00_JPRB, 0.390458E+00_JPRB, 0.377397E+00_JPRB &
+  &, 0.364534E+00_JPRB, 0.351862E+00_JPRB, 0.339423E+00_JPRB &
+  &, 0.327185E+00_JPRB, 0.315164E+00_JPRB, 0.303398E+00_JPRB, 0.291850E+00_JPRB &
+  &, 0.280584E+00_JPRB, 0.269533E+00_JPRB, 0.258730E+00_JPRB &
+  &, 0.248213E+00_JPRB, 0.237961E+00_JPRB, 0.227951E+00_JPRB, 0.218217E+00_JPRB &
+  &, 0.208732E+00_JPRB, 0.199526E+00_JPRB, 0.190601E+00_JPRB &
+  &, 0.181894E+00_JPRB, 0.173559E+00_JPRB, 0.165435E+00_JPRB, 0.157546E+00_JPRB &
+  &, 0.149953E+00_JPRB, 0.142649E+00_JPRB, 0.135554E+00_JPRB &
+  &, 0.128727E+00_JPRB, 0.122193E+00_JPRB, 0.115865E+00_JPRB, 0.109801E+00_JPRB &
+  &, 0.103947E+00_JPRB, 0.983604E-01_JPRB, 0.930236E-01_JPRB &
+  &, 0.878760E-01_JPRB, 0.829749E-01_JPRB, 0.782560E-01_JPRB, 0.737767E-01_JPRB &
+  &, 0.695116E-01_JPRB, 0.654332E-01_JPRB, 0.615554E-01_JPRB &
+  &, 0.578479E-01_JPRB, 0.543232E-01_JPRB, 0.509942E-01_JPRB, 0.478269E-01_JPRB &
+  &, 0.447850E-01_JPRB, 0.419261E-01_JPRB, 0.392618E-01_JPRB &
+  &, 0.367042E-01_JPRB, 0.342611E-01_JPRB, 0.319914E-01_JPRB, 0.298533E-01_JPRB &
+  &, 0.278020E-01_JPRB, 0.258971E-01_JPRB, 0.241469E-01_JPRB &
+  &, 0.224497E-01_JPRB, 0.208652E-01_JPRB, 0.193433E-01_JPRB, 0.179455E-01_JPRB &
+  &, 0.166785E-01_JPRB, 0.154307E-01_JPRB, 0.142640E-01_JPRB &
+  &, 0.132435E-01_JPRB, 0.121917E-01_JPRB, 0.112952E-01_JPRB, 0.104348E-01_JPRB &
+  &, 0.961275E-02_JPRB, 0.883120E-02_JPRB, 0.815818E-02_JPRB/)
+XCW( 587, :) = (/ &
+  &  0.101866E+01_JPRB, 0.102231E+01_JPRB, 0.102554E+01_JPRB, 0.102836E+01_JPRB &
+  &, 0.103075E+01_JPRB, 0.103272E+01_JPRB, 0.103427E+01_JPRB &
+  &, 0.103539E+01_JPRB, 0.103608E+01_JPRB, 0.103634E+01_JPRB, 0.103617E+01_JPRB &
+  &, 0.103556E+01_JPRB, 0.103452E+01_JPRB, 0.103305E+01_JPRB &
+  &, 0.103114E+01_JPRB, 0.102879E+01_JPRB, 0.102601E+01_JPRB, 0.102279E+01_JPRB &
+  &, 0.101914E+01_JPRB, 0.101506E+01_JPRB, 0.101054E+01_JPRB &
+  &, 0.100561E+01_JPRB, 0.100024E+01_JPRB, 0.994451E+00_JPRB, 0.988247E+00_JPRB &
+  &, 0.981627E+00_JPRB, 0.974601E+00_JPRB, 0.967168E+00_JPRB &
+  &, 0.959339E+00_JPRB, 0.951120E+00_JPRB, 0.942518E+00_JPRB, 0.933538E+00_JPRB &
+  &, 0.924190E+00_JPRB, 0.914486E+00_JPRB, 0.904429E+00_JPRB &
+  &, 0.894032E+00_JPRB, 0.883302E+00_JPRB, 0.872259E+00_JPRB, 0.860909E+00_JPRB &
+  &, 0.849256E+00_JPRB, 0.837325E+00_JPRB, 0.825125E+00_JPRB &
+  &, 0.812670E+00_JPRB, 0.799964E+00_JPRB, 0.787036E+00_JPRB, 0.773883E+00_JPRB &
+  &, 0.760541E+00_JPRB, 0.747013E+00_JPRB, 0.733299E+00_JPRB &
+  &, 0.719442E+00_JPRB, 0.705449E+00_JPRB, 0.691325E+00_JPRB, 0.677090E+00_JPRB &
+  &, 0.662768E+00_JPRB, 0.648366E+00_JPRB, 0.633892E+00_JPRB &
+  &, 0.619387E+00_JPRB, 0.604843E+00_JPRB, 0.590285E+00_JPRB, 0.575740E+00_JPRB &
+  &, 0.561200E+00_JPRB, 0.546689E+00_JPRB, 0.532234E+00_JPRB &
+  &, 0.517824E+00_JPRB, 0.503503E+00_JPRB, 0.489259E+00_JPRB, 0.475115E+00_JPRB &
+  &, 0.461098E+00_JPRB, 0.447189E+00_JPRB, 0.433433E+00_JPRB &
+  &, 0.419811E+00_JPRB, 0.406365E+00_JPRB, 0.393095E+00_JPRB, 0.380000E+00_JPRB &
+  &, 0.367099E+00_JPRB, 0.354409E+00_JPRB, 0.341902E+00_JPRB &
+  &, 0.329642E+00_JPRB, 0.317595E+00_JPRB, 0.305776E+00_JPRB, 0.294198E+00_JPRB &
+  &, 0.282846E+00_JPRB, 0.271785E+00_JPRB, 0.260944E+00_JPRB &
+  &, 0.250357E+00_JPRB, 0.240061E+00_JPRB, 0.230004E+00_JPRB, 0.220220E+00_JPRB &
+  &, 0.210681E+00_JPRB, 0.201450E+00_JPRB, 0.192467E+00_JPRB &
+  &, 0.183762E+00_JPRB, 0.175299E+00_JPRB, 0.167141E+00_JPRB, 0.159216E+00_JPRB &
+  &, 0.151584E+00_JPRB, 0.144204E+00_JPRB, 0.137066E+00_JPRB &
+  &, 0.130194E+00_JPRB, 0.123576E+00_JPRB, 0.117234E+00_JPRB, 0.111118E+00_JPRB &
+  &, 0.105247E+00_JPRB, 0.996048E-01_JPRB, 0.942095E-01_JPRB &
+  &, 0.890009E-01_JPRB, 0.840773E-01_JPRB, 0.793347E-01_JPRB, 0.747883E-01_JPRB &
+  &, 0.704537E-01_JPRB, 0.663467E-01_JPRB, 0.624391E-01_JPRB &
+  &, 0.587004E-01_JPRB, 0.551434E-01_JPRB, 0.517344E-01_JPRB, 0.485315E-01_JPRB &
+  &, 0.455003E-01_JPRB, 0.426037E-01_JPRB, 0.399004E-01_JPRB &
+  &, 0.373025E-01_JPRB, 0.348682E-01_JPRB, 0.325561E-01_JPRB, 0.303741E-01_JPRB &
+  &, 0.283304E-01_JPRB, 0.263795E-01_JPRB, 0.245818E-01_JPRB &
+  &, 0.228356E-01_JPRB, 0.212566E-01_JPRB, 0.197402E-01_JPRB, 0.182904E-01_JPRB &
+  &, 0.169699E-01_JPRB, 0.157261E-01_JPRB, 0.145634E-01_JPRB &
+  &, 0.134864E-01_JPRB, 0.124378E-01_JPRB, 0.115446E-01_JPRB, 0.106244E-01_JPRB &
+  &, 0.980481E-02_JPRB, 0.902579E-02_JPRB, 0.835531E-02_JPRB/)
+XCW( 588, :) = (/ &
+  &  0.101892E+01_JPRB, 0.102263E+01_JPRB, 0.102593E+01_JPRB, 0.102882E+01_JPRB &
+  &, 0.103128E+01_JPRB, 0.103332E+01_JPRB, 0.103493E+01_JPRB &
+  &, 0.103612E+01_JPRB, 0.103687E+01_JPRB, 0.103720E+01_JPRB, 0.103710E+01_JPRB &
+  &, 0.103656E+01_JPRB, 0.103558E+01_JPRB, 0.103417E+01_JPRB &
+  &, 0.103233E+01_JPRB, 0.103004E+01_JPRB, 0.102733E+01_JPRB, 0.102417E+01_JPRB &
+  &, 0.102058E+01_JPRB, 0.101657E+01_JPRB, 0.101211E+01_JPRB &
+  &, 0.100723E+01_JPRB, 0.100193E+01_JPRB, 0.996203E+00_JPRB, 0.990055E+00_JPRB &
+  &, 0.983496E+00_JPRB, 0.976523E+00_JPRB, 0.969149E+00_JPRB &
+  &, 0.961376E+00_JPRB, 0.953208E+00_JPRB, 0.944658E+00_JPRB, 0.935731E+00_JPRB &
+  &, 0.926430E+00_JPRB, 0.916773E+00_JPRB, 0.906765E+00_JPRB &
+  &, 0.896413E+00_JPRB, 0.885725E+00_JPRB, 0.874723E+00_JPRB, 0.863415E+00_JPRB &
+  &, 0.851805E+00_JPRB, 0.839906E+00_JPRB, 0.827740E+00_JPRB &
+  &, 0.815317E+00_JPRB, 0.802643E+00_JPRB, 0.789747E+00_JPRB, 0.776626E+00_JPRB &
+  &, 0.763303E+00_JPRB, 0.749792E+00_JPRB, 0.736108E+00_JPRB &
+  &, 0.722267E+00_JPRB, 0.708289E+00_JPRB, 0.694178E+00_JPRB, 0.679956E+00_JPRB &
+  &, 0.665644E+00_JPRB, 0.651251E+00_JPRB, 0.636785E+00_JPRB &
+  &, 0.622285E+00_JPRB, 0.607745E+00_JPRB, 0.593189E+00_JPRB, 0.578628E+00_JPRB &
+  &, 0.564085E+00_JPRB, 0.549571E+00_JPRB, 0.535091E+00_JPRB &
+  &, 0.520673E+00_JPRB, 0.506341E+00_JPRB, 0.492083E+00_JPRB, 0.477924E+00_JPRB &
+  &, 0.463868E+00_JPRB, 0.449939E+00_JPRB, 0.436159E+00_JPRB &
+  &, 0.422531E+00_JPRB, 0.409057E+00_JPRB, 0.395733E+00_JPRB, 0.382625E+00_JPRB &
+  &, 0.369686E+00_JPRB, 0.356933E+00_JPRB, 0.344406E+00_JPRB &
+  &, 0.332098E+00_JPRB, 0.320026E+00_JPRB, 0.308154E+00_JPRB, 0.296545E+00_JPRB &
+  &, 0.285160E+00_JPRB, 0.274037E+00_JPRB, 0.263157E+00_JPRB &
+  &, 0.252529E+00_JPRB, 0.242160E+00_JPRB, 0.232085E+00_JPRB, 0.222252E+00_JPRB &
+  &, 0.212661E+00_JPRB, 0.203375E+00_JPRB, 0.194333E+00_JPRB &
+  &, 0.185567E+00_JPRB, 0.177072E+00_JPRB, 0.168847E+00_JPRB, 0.160885E+00_JPRB &
+  &, 0.153215E+00_JPRB, 0.145760E+00_JPRB, 0.138614E+00_JPRB &
+  &, 0.131697E+00_JPRB, 0.125031E+00_JPRB, 0.118603E+00_JPRB, 0.112435E+00_JPRB &
+  &, 0.106510E+00_JPRB, 0.100849E+00_JPRB, 0.953954E-01_JPRB &
+  &, 0.901661E-01_JPRB, 0.851796E-01_JPRB, 0.803719E-01_JPRB, 0.758000E-01_JPRB &
+  &, 0.714387E-01_JPRB, 0.672602E-01_JPRB, 0.633227E-01_JPRB &
+  &, 0.595530E-01_JPRB, 0.559635E-01_JPRB, 0.525209E-01_JPRB, 0.492830E-01_JPRB &
+  &, 0.462155E-01_JPRB, 0.432813E-01_JPRB, 0.405391E-01_JPRB &
+  &, 0.379008E-01_JPRB, 0.354247E-01_JPRB, 0.330694E-01_JPRB, 0.308949E-01_JPRB &
+  &, 0.288059E-01_JPRB, 0.268618E-01_JPRB, 0.250167E-01_JPRB &
+  &, 0.232767E-01_JPRB, 0.216480E-01_JPRB, 0.200804E-01_JPRB, 0.186354E-01_JPRB &
+  &, 0.173196E-01_JPRB, 0.160215E-01_JPRB, 0.148629E-01_JPRB &
+  &, 0.137292E-01_JPRB, 0.127454E-01_JPRB, 0.117317E-01_JPRB, 0.108771E-01_JPRB &
+  &, 0.999686E-02_JPRB, 0.922037E-02_JPRB, 0.848674E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART84',1,ZHOOK_HANDLE)
+END SUBROUTINE PART84
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART85
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART85',0,ZHOOK_HANDLE)
+
+XCW( 589, :) = (/ &
+  &  0.101918E+01_JPRB, 0.102296E+01_JPRB, 0.102633E+01_JPRB, 0.102928E+01_JPRB &
+  &, 0.103180E+01_JPRB, 0.103391E+01_JPRB, 0.103559E+01_JPRB &
+  &, 0.103684E+01_JPRB, 0.103767E+01_JPRB, 0.103805E+01_JPRB, 0.103802E+01_JPRB &
+  &, 0.103755E+01_JPRB, 0.103664E+01_JPRB, 0.103529E+01_JPRB &
+  &, 0.103351E+01_JPRB, 0.103130E+01_JPRB, 0.102864E+01_JPRB, 0.102556E+01_JPRB &
+  &, 0.102203E+01_JPRB, 0.101808E+01_JPRB, 0.101369E+01_JPRB &
+  &, 0.100887E+01_JPRB, 0.100362E+01_JPRB, 0.997956E+00_JPRB, 0.991867E+00_JPRB &
+  &, 0.985366E+00_JPRB, 0.978453E+00_JPRB, 0.971133E+00_JPRB &
+  &, 0.963414E+00_JPRB, 0.955303E+00_JPRB, 0.946802E+00_JPRB, 0.937924E+00_JPRB &
+  &, 0.928678E+00_JPRB, 0.919065E+00_JPRB, 0.909106E+00_JPRB &
+  &, 0.898794E+00_JPRB, 0.888157E+00_JPRB, 0.877196E+00_JPRB, 0.865922E+00_JPRB &
+  &, 0.854354E+00_JPRB, 0.842499E+00_JPRB, 0.830365E+00_JPRB &
+  &, 0.817975E+00_JPRB, 0.805333E+00_JPRB, 0.792457E+00_JPRB, 0.779368E+00_JPRB &
+  &, 0.766077E+00_JPRB, 0.752584E+00_JPRB, 0.738917E+00_JPRB &
+  &, 0.725105E+00_JPRB, 0.711142E+00_JPRB, 0.697045E+00_JPRB, 0.682835E+00_JPRB &
+  &, 0.668534E+00_JPRB, 0.654135E+00_JPRB, 0.639692E+00_JPRB &
+  &, 0.625182E+00_JPRB, 0.610647E+00_JPRB, 0.596094E+00_JPRB, 0.581532E+00_JPRB &
+  &, 0.566971E+00_JPRB, 0.552452E+00_JPRB, 0.537967E+00_JPRB &
+  &, 0.523540E+00_JPRB, 0.509179E+00_JPRB, 0.494908E+00_JPRB, 0.480733E+00_JPRB &
+  &, 0.466659E+00_JPRB, 0.452729E+00_JPRB, 0.438906E+00_JPRB &
+  &, 0.425252E+00_JPRB, 0.411748E+00_JPRB, 0.398393E+00_JPRB, 0.385251E+00_JPRB &
+  &, 0.372274E+00_JPRB, 0.359503E+00_JPRB, 0.346933E+00_JPRB &
+  &, 0.334579E+00_JPRB, 0.322457E+00_JPRB, 0.310557E+00_JPRB, 0.298893E+00_JPRB &
+  &, 0.287475E+00_JPRB, 0.276316E+00_JPRB, 0.265370E+00_JPRB &
+  &, 0.254701E+00_JPRB, 0.244317E+00_JPRB, 0.234167E+00_JPRB, 0.224283E+00_JPRB &
+  &, 0.214670E+00_JPRB, 0.205299E+00_JPRB, 0.196231E+00_JPRB &
+  &, 0.187435E+00_JPRB, 0.178877E+00_JPRB, 0.170586E+00_JPRB, 0.162588E+00_JPRB &
+  &, 0.154846E+00_JPRB, 0.147350E+00_JPRB, 0.140126E+00_JPRB &
+  &, 0.133163E+00_JPRB, 0.126450E+00_JPRB, 0.120009E+00_JPRB, 0.113789E+00_JPRB &
+  &, 0.107810E+00_JPRB, 0.102094E+00_JPRB, 0.965813E-01_JPRB &
+  &, 0.913312E-01_JPRB, 0.862820E-01_JPRB, 0.814506E-01_JPRB, 0.768538E-01_JPRB &
+  &, 0.724236E-01_JPRB, 0.682172E-01_JPRB, 0.642063E-01_JPRB &
+  &, 0.604055E-01_JPRB, 0.567837E-01_JPRB, 0.533074E-01_JPRB, 0.500346E-01_JPRB &
+  &, 0.469308E-01_JPRB, 0.439590E-01_JPRB, 0.411777E-01_JPRB &
+  &, 0.384991E-01_JPRB, 0.360318E-01_JPRB, 0.336341E-01_JPRB, 0.314158E-01_JPRB &
+  &, 0.292814E-01_JPRB, 0.273442E-01_JPRB, 0.254516E-01_JPRB &
+  &, 0.236626E-01_JPRB, 0.220394E-01_JPRB, 0.204772E-01_JPRB, 0.190378E-01_JPRB &
+  &, 0.176693E-01_JPRB, 0.163760E-01_JPRB, 0.151624E-01_JPRB &
+  &, 0.140327E-01_JPRB, 0.129915E-01_JPRB, 0.119811E-01_JPRB, 0.110667E-01_JPRB &
+  &, 0.102529E-01_JPRB, 0.941496E-02_JPRB, 0.868387E-02_JPRB/)
+XCW( 590, :) = (/ &
+  &  0.101944E+01_JPRB, 0.102329E+01_JPRB, 0.102672E+01_JPRB, 0.102974E+01_JPRB &
+  &, 0.103233E+01_JPRB, 0.103450E+01_JPRB, 0.103625E+01_JPRB &
+  &, 0.103757E+01_JPRB, 0.103846E+01_JPRB, 0.103892E+01_JPRB, 0.103895E+01_JPRB &
+  &, 0.103854E+01_JPRB, 0.103770E+01_JPRB, 0.103642E+01_JPRB &
+  &, 0.103471E+01_JPRB, 0.103255E+01_JPRB, 0.102996E+01_JPRB, 0.102694E+01_JPRB &
+  &, 0.102348E+01_JPRB, 0.101959E+01_JPRB, 0.101526E+01_JPRB &
+  &, 0.101050E+01_JPRB, 0.100532E+01_JPRB, 0.999712E+00_JPRB, 0.993686E+00_JPRB &
+  &, 0.987239E+00_JPRB, 0.980382E+00_JPRB, 0.973121E+00_JPRB &
+  &, 0.965455E+00_JPRB, 0.957399E+00_JPRB, 0.948954E+00_JPRB, 0.940126E+00_JPRB &
+  &, 0.930926E+00_JPRB, 0.921366E+00_JPRB, 0.911451E+00_JPRB &
+  &, 0.901185E+00_JPRB, 0.890588E+00_JPRB, 0.879670E+00_JPRB, 0.868448E+00_JPRB &
+  &, 0.856913E+00_JPRB, 0.845091E+00_JPRB, 0.833001E+00_JPRB &
+  &, 0.820633E+00_JPRB, 0.808035E+00_JPRB, 0.795192E+00_JPRB, 0.782122E+00_JPRB &
+  &, 0.768850E+00_JPRB, 0.755388E+00_JPRB, 0.741752E+00_JPRB &
+  &, 0.727944E+00_JPRB, 0.713995E+00_JPRB, 0.699912E+00_JPRB, 0.685714E+00_JPRB &
+  &, 0.671424E+00_JPRB, 0.657050E+00_JPRB, 0.642599E+00_JPRB &
+  &, 0.628096E+00_JPRB, 0.613565E+00_JPRB, 0.598998E+00_JPRB, 0.584437E+00_JPRB &
+  &, 0.569891E+00_JPRB, 0.555351E+00_JPRB, 0.540860E+00_JPRB &
+  &, 0.526425E+00_JPRB, 0.512054E+00_JPRB, 0.497752E+00_JPRB, 0.483561E+00_JPRB &
+  &, 0.469469E+00_JPRB, 0.455499E+00_JPRB, 0.441673E+00_JPRB &
+  &, 0.427972E+00_JPRB, 0.414440E+00_JPRB, 0.401075E+00_JPRB, 0.387898E+00_JPRB &
+  &, 0.374885E+00_JPRB, 0.362074E+00_JPRB, 0.349484E+00_JPRB &
+  &, 0.337084E+00_JPRB, 0.324913E+00_JPRB, 0.312986E+00_JPRB, 0.301266E+00_JPRB &
+  &, 0.289816E+00_JPRB, 0.278594E+00_JPRB, 0.267638E+00_JPRB &
+  &, 0.256901E+00_JPRB, 0.246445E+00_JPRB, 0.236277E+00_JPRB, 0.226345E+00_JPRB &
+  &, 0.216680E+00_JPRB, 0.207284E+00_JPRB, 0.198128E+00_JPRB &
+  &, 0.189271E+00_JPRB, 0.180683E+00_JPRB, 0.172358E+00_JPRB, 0.164291E+00_JPRB &
+  &, 0.156511E+00_JPRB, 0.148975E+00_JPRB, 0.141709E+00_JPRB &
+  &, 0.134666E+00_JPRB, 0.127906E+00_JPRB, 0.121415E+00_JPRB, 0.115144E+00_JPRB &
+  &, 0.109149E+00_JPRB, 0.103338E+00_JPRB, 0.978067E-01_JPRB &
+  &, 0.924963E-01_JPRB, 0.873844E-01_JPRB, 0.825293E-01_JPRB, 0.778655E-01_JPRB &
+  &, 0.734085E-01_JPRB, 0.691741E-01_JPRB, 0.651342E-01_JPRB &
+  &, 0.612581E-01_JPRB, 0.576039E-01_JPRB, 0.540939E-01_JPRB, 0.507861E-01_JPRB &
+  &, 0.476460E-01_JPRB, 0.446850E-01_JPRB, 0.418164E-01_JPRB &
+  &, 0.391472E-01_JPRB, 0.365883E-01_JPRB, 0.341988E-01_JPRB, 0.319366E-01_JPRB &
+  &, 0.298098E-01_JPRB, 0.277730E-01_JPRB, 0.258865E-01_JPRB &
+  &, 0.241037E-01_JPRB, 0.224308E-01_JPRB, 0.208741E-01_JPRB, 0.193827E-01_JPRB &
+  &, 0.179607E-01_JPRB, 0.166714E-01_JPRB, 0.154618E-01_JPRB &
+  &, 0.143362E-01_JPRB, 0.132376E-01_JPRB, 0.122305E-01_JPRB, 0.113194E-01_JPRB &
+  &, 0.104450E-01_JPRB, 0.967440E-02_JPRB, 0.888100E-02_JPRB/)
+XCW( 591, :) = (/ &
+  &  0.101970E+01_JPRB, 0.102361E+01_JPRB, 0.102711E+01_JPRB, 0.103020E+01_JPRB &
+  &, 0.103286E+01_JPRB, 0.103510E+01_JPRB, 0.103691E+01_JPRB &
+  &, 0.103830E+01_JPRB, 0.103926E+01_JPRB, 0.103978E+01_JPRB, 0.103988E+01_JPRB &
+  &, 0.103953E+01_JPRB, 0.103876E+01_JPRB, 0.103755E+01_JPRB &
+  &, 0.103590E+01_JPRB, 0.103381E+01_JPRB, 0.103129E+01_JPRB, 0.102833E+01_JPRB &
+  &, 0.102493E+01_JPRB, 0.102110E+01_JPRB, 0.101683E+01_JPRB &
+  &, 0.101214E+01_JPRB, 0.100702E+01_JPRB, 0.100147E+01_JPRB, 0.995505E+00_JPRB &
+  &, 0.989116E+00_JPRB, 0.982319E+00_JPRB, 0.975113E+00_JPRB &
+  &, 0.967503E+00_JPRB, 0.959498E+00_JPRB, 0.951106E+00_JPRB, 0.942331E+00_JPRB &
+  &, 0.933183E+00_JPRB, 0.923671E+00_JPRB, 0.913800E+00_JPRB &
+  &, 0.903584E+00_JPRB, 0.893039E+00_JPRB, 0.882154E+00_JPRB, 0.870964E+00_JPRB &
+  &, 0.859473E+00_JPRB, 0.847694E+00_JPRB, 0.835637E+00_JPRB &
+  &, 0.823313E+00_JPRB, 0.810737E+00_JPRB, 0.797914E+00_JPRB, 0.784889E+00_JPRB &
+  &, 0.771636E+00_JPRB, 0.758193E+00_JPRB, 0.744574E+00_JPRB &
+  &, 0.730795E+00_JPRB, 0.716862E+00_JPRB, 0.702806E+00_JPRB, 0.688622E+00_JPRB &
+  &, 0.674329E+00_JPRB, 0.659964E+00_JPRB, 0.645522E+00_JPRB &
+  &, 0.631025E+00_JPRB, 0.616435E+00_JPRB, 0.601934E+00_JPRB, 0.587358E+00_JPRB &
+  &, 0.572811E+00_JPRB, 0.558268E+00_JPRB, 0.543754E+00_JPRB &
+  &, 0.529311E+00_JPRB, 0.514929E+00_JPRB, 0.500614E+00_JPRB, 0.486409E+00_JPRB &
+  &, 0.472300E+00_JPRB, 0.458309E+00_JPRB, 0.444440E+00_JPRB &
+  &, 0.430735E+00_JPRB, 0.417174E+00_JPRB, 0.403779E+00_JPRB, 0.390546E+00_JPRB &
+  &, 0.377518E+00_JPRB, 0.364668E+00_JPRB, 0.352035E+00_JPRB &
+  &, 0.339613E+00_JPRB, 0.327394E+00_JPRB, 0.315415E+00_JPRB, 0.303665E+00_JPRB &
+  &, 0.292156E+00_JPRB, 0.280900E+00_JPRB, 0.269879E+00_JPRB &
+  &, 0.259129E+00_JPRB, 0.248630E+00_JPRB, 0.238387E+00_JPRB, 0.228406E+00_JPRB &
+  &, 0.218689E+00_JPRB, 0.209239E+00_JPRB, 0.200056E+00_JPRB &
+  &, 0.191140E+00_JPRB, 0.182520E+00_JPRB, 0.174129E+00_JPRB, 0.166028E+00_JPRB &
+  &, 0.158176E+00_JPRB, 0.150600E+00_JPRB, 0.143256E+00_JPRB &
+  &, 0.136204E+00_JPRB, 0.129397E+00_JPRB, 0.122821E+00_JPRB, 0.116536E+00_JPRB &
+  &, 0.110450E+00_JPRB, 0.104622E+00_JPRB, 0.990321E-01_JPRB &
+  &, 0.936614E-01_JPRB, 0.885276E-01_JPRB, 0.836079E-01_JPRB, 0.789193E-01_JPRB &
+  &, 0.744363E-01_JPRB, 0.701311E-01_JPRB, 0.660620E-01_JPRB &
+  &, 0.621555E-01_JPRB, 0.584696E-01_JPRB, 0.549267E-01_JPRB, 0.515846E-01_JPRB &
+  &, 0.484090E-01_JPRB, 0.453626E-01_JPRB, 0.425041E-01_JPRB &
+  &, 0.397953E-01_JPRB, 0.371954E-01_JPRB, 0.347635E-01_JPRB, 0.325095E-01_JPRB &
+  &, 0.303382E-01_JPRB, 0.283089E-01_JPRB, 0.263758E-01_JPRB &
+  &, 0.245448E-01_JPRB, 0.228222E-01_JPRB, 0.212710E-01_JPRB, 0.197276E-01_JPRB &
+  &, 0.183104E-01_JPRB, 0.170259E-01_JPRB, 0.157613E-01_JPRB &
+  &, 0.145790E-01_JPRB, 0.135453E-01_JPRB, 0.124799E-01_JPRB, 0.115721E-01_JPRB &
+  &, 0.107011E-01_JPRB, 0.986899E-02_JPRB, 0.907814E-02_JPRB/)
+XCW( 592, :) = (/ &
+  &  0.101996E+01_JPRB, 0.102394E+01_JPRB, 0.102751E+01_JPRB, 0.103065E+01_JPRB &
+  &, 0.103338E+01_JPRB, 0.103569E+01_JPRB, 0.103757E+01_JPRB &
+  &, 0.103902E+01_JPRB, 0.104005E+01_JPRB, 0.104064E+01_JPRB, 0.104080E+01_JPRB &
+  &, 0.104053E+01_JPRB, 0.103982E+01_JPRB, 0.103867E+01_JPRB &
+  &, 0.103709E+01_JPRB, 0.103507E+01_JPRB, 0.103261E+01_JPRB, 0.102972E+01_JPRB &
+  &, 0.102638E+01_JPRB, 0.102262E+01_JPRB, 0.101842E+01_JPRB &
+  &, 0.101378E+01_JPRB, 0.100872E+01_JPRB, 0.100323E+01_JPRB, 0.997327E+00_JPRB &
+  &, 0.991000E+00_JPRB, 0.984257E+00_JPRB, 0.977105E+00_JPRB &
+  &, 0.969552E+00_JPRB, 0.961542E+00_JPRB, 0.953266E+00_JPRB, 0.944541E+00_JPRB &
+  &, 0.935444E+00_JPRB, 0.925980E+00_JPRB, 0.916159E+00_JPRB &
+  &, 0.905993E+00_JPRB, 0.895481E+00_JPRB, 0.884647E+00_JPRB, 0.873501E+00_JPRB &
+  &, 0.862053E+00_JPRB, 0.850308E+00_JPRB, 0.838284E+00_JPRB &
+  &, 0.825993E+00_JPRB, 0.813450E+00_JPRB, 0.800660E+00_JPRB, 0.787655E+00_JPRB &
+  &, 0.774434E+00_JPRB, 0.761022E+00_JPRB, 0.747421E+00_JPRB &
+  &, 0.733659E+00_JPRB, 0.719742E+00_JPRB, 0.705701E+00_JPRB, 0.691529E+00_JPRB &
+  &, 0.677248E+00_JPRB, 0.662893E+00_JPRB, 0.648459E+00_JPRB &
+  &, 0.633969E+00_JPRB, 0.619432E+00_JPRB, 0.604871E+00_JPRB, 0.590296E+00_JPRB &
+  &, 0.575731E+00_JPRB, 0.561184E+00_JPRB, 0.546682E+00_JPRB &
+  &, 0.532214E+00_JPRB, 0.517804E+00_JPRB, 0.503496E+00_JPRB, 0.489257E+00_JPRB &
+  &, 0.475130E+00_JPRB, 0.461119E+00_JPRB, 0.447227E+00_JPRB &
+  &, 0.433497E+00_JPRB, 0.419909E+00_JPRB, 0.406483E+00_JPRB, 0.393216E+00_JPRB &
+  &, 0.380152E+00_JPRB, 0.367285E+00_JPRB, 0.354610E+00_JPRB &
+  &, 0.342143E+00_JPRB, 0.329899E+00_JPRB, 0.317869E+00_JPRB, 0.306090E+00_JPRB &
+  &, 0.294523E+00_JPRB, 0.283233E+00_JPRB, 0.272174E+00_JPRB &
+  &, 0.261357E+00_JPRB, 0.250815E+00_JPRB, 0.240527E+00_JPRB, 0.230497E+00_JPRB &
+  &, 0.220729E+00_JPRB, 0.211224E+00_JPRB, 0.202016E+00_JPRB &
+  &, 0.193040E+00_JPRB, 0.184357E+00_JPRB, 0.175901E+00_JPRB, 0.167764E+00_JPRB &
+  &, 0.159875E+00_JPRB, 0.152225E+00_JPRB, 0.144839E+00_JPRB &
+  &, 0.137743E+00_JPRB, 0.130889E+00_JPRB, 0.124265E+00_JPRB, 0.117928E+00_JPRB &
+  &, 0.111789E+00_JPRB, 0.105905E+00_JPRB, 0.100297E+00_JPRB &
+  &, 0.948667E-01_JPRB, 0.897117E-01_JPRB, 0.847281E-01_JPRB, 0.799731E-01_JPRB &
+  &, 0.754640E-01_JPRB, 0.711316E-01_JPRB, 0.669898E-01_JPRB &
+  &, 0.630529E-01_JPRB, 0.592442E-01_JPRB, 0.557595E-01_JPRB, 0.523362E-01_JPRB &
+  &, 0.491242E-01_JPRB, 0.460887E-01_JPRB, 0.431919E-01_JPRB &
+  &, 0.404435E-01_JPRB, 0.378531E-01_JPRB, 0.353795E-01_JPRB, 0.330303E-01_JPRB &
+  &, 0.308665E-01_JPRB, 0.287913E-01_JPRB, 0.268107E-01_JPRB &
+  &, 0.249858E-01_JPRB, 0.232694E-01_JPRB, 0.216678E-01_JPRB, 0.201300E-01_JPRB &
+  &, 0.186601E-01_JPRB, 0.173213E-01_JPRB, 0.160607E-01_JPRB &
+  &, 0.148826E-01_JPRB, 0.137914E-01_JPRB, 0.127916E-01_JPRB, 0.118248E-01_JPRB &
+  &, 0.108931E-01_JPRB, 0.100636E-01_JPRB, 0.927527E-02_JPRB/)
+XCW( 593, :) = (/ &
+  &  0.102023E+01_JPRB, 0.102427E+01_JPRB, 0.102790E+01_JPRB, 0.103112E+01_JPRB &
+  &, 0.103391E+01_JPRB, 0.103628E+01_JPRB, 0.103823E+01_JPRB &
+  &, 0.103975E+01_JPRB, 0.104085E+01_JPRB, 0.104151E+01_JPRB, 0.104174E+01_JPRB &
+  &, 0.104153E+01_JPRB, 0.104088E+01_JPRB, 0.103980E+01_JPRB &
+  &, 0.103829E+01_JPRB, 0.103633E+01_JPRB, 0.103394E+01_JPRB, 0.103111E+01_JPRB &
+  &, 0.102783E+01_JPRB, 0.102413E+01_JPRB, 0.102000E+01_JPRB &
+  &, 0.101543E+01_JPRB, 0.101043E+01_JPRB, 0.100500E+01_JPRB, 0.999153E+00_JPRB &
+  &, 0.992884E+00_JPRB, 0.986201E+00_JPRB, 0.979105E+00_JPRB &
+  &, 0.971609E+00_JPRB, 0.963714E+00_JPRB, 0.955426E+00_JPRB, 0.946756E+00_JPRB &
+  &, 0.937710E+00_JPRB, 0.928294E+00_JPRB, 0.918522E+00_JPRB &
+  &, 0.908402E+00_JPRB, 0.897941E+00_JPRB, 0.887151E+00_JPRB, 0.876037E+00_JPRB &
+  &, 0.864623E+00_JPRB, 0.852921E+00_JPRB, 0.840931E+00_JPRB &
+  &, 0.828673E+00_JPRB, 0.816163E+00_JPRB, 0.803406E+00_JPRB, 0.790433E+00_JPRB &
+  &, 0.777233E+00_JPRB, 0.763852E+00_JPRB, 0.750269E+00_JPRB &
+  &, 0.736524E+00_JPRB, 0.722636E+00_JPRB, 0.708595E+00_JPRB, 0.694437E+00_JPRB &
+  &, 0.680182E+00_JPRB, 0.665823E+00_JPRB, 0.651397E+00_JPRB &
+  &, 0.636914E+00_JPRB, 0.622381E+00_JPRB, 0.607824E+00_JPRB, 0.593250E+00_JPRB &
+  &, 0.578684E+00_JPRB, 0.564118E+00_JPRB, 0.549611E+00_JPRB &
+  &, 0.535136E+00_JPRB, 0.520716E+00_JPRB, 0.506377E+00_JPRB, 0.492124E+00_JPRB &
+  &, 0.477980E+00_JPRB, 0.463950E+00_JPRB, 0.450036E+00_JPRB &
+  &, 0.436260E+00_JPRB, 0.422643E+00_JPRB, 0.409186E+00_JPRB, 0.395909E+00_JPRB &
+  &, 0.382808E+00_JPRB, 0.369902E+00_JPRB, 0.357185E+00_JPRB &
+  &, 0.344672E+00_JPRB, 0.332405E+00_JPRB, 0.320348E+00_JPRB, 0.308515E+00_JPRB &
+  &, 0.296917E+00_JPRB, 0.285565E+00_JPRB, 0.274470E+00_JPRB &
+  &, 0.263612E+00_JPRB, 0.253000E+00_JPRB, 0.242666E+00_JPRB, 0.232588E+00_JPRB &
+  &, 0.222798E+00_JPRB, 0.213240E+00_JPRB, 0.203944E+00_JPRB &
+  &, 0.194939E+00_JPRB, 0.186195E+00_JPRB, 0.177706E+00_JPRB, 0.169500E+00_JPRB &
+  &, 0.161574E+00_JPRB, 0.153884E+00_JPRB, 0.146457E+00_JPRB &
+  &, 0.139281E+00_JPRB, 0.132381E+00_JPRB, 0.125708E+00_JPRB, 0.119320E+00_JPRB &
+  &, 0.113166E+00_JPRB, 0.107227E+00_JPRB, 0.101562E+00_JPRB &
+  &, 0.960720E-01_JPRB, 0.908549E-01_JPRB, 0.858483E-01_JPRB, 0.810691E-01_JPRB &
+  &, 0.764918E-01_JPRB, 0.721321E-01_JPRB, 0.679618E-01_JPRB &
+  &, 0.639503E-01_JPRB, 0.602011E-01_JPRB, 0.565922E-01_JPRB, 0.531347E-01_JPRB &
+  &, 0.498872E-01_JPRB, 0.468147E-01_JPRB, 0.438796E-01_JPRB &
+  &, 0.410916E-01_JPRB, 0.384602E-01_JPRB, 0.359441E-01_JPRB, 0.336032E-01_JPRB &
+  &, 0.313949E-01_JPRB, 0.292737E-01_JPRB, 0.272999E-01_JPRB &
+  &, 0.254269E-01_JPRB, 0.237167E-01_JPRB, 0.220647E-01_JPRB, 0.204749E-01_JPRB &
+  &, 0.190680E-01_JPRB, 0.176758E-01_JPRB, 0.164201E-01_JPRB &
+  &, 0.151861E-01_JPRB, 0.140990E-01_JPRB, 0.130410E-01_JPRB, 0.120776E-01_JPRB &
+  &, 0.111492E-01_JPRB, 0.102582E-01_JPRB, 0.947240E-02_JPRB/)
+XCW( 594, :) = (/ &
+  &  0.102049E+01_JPRB, 0.102460E+01_JPRB, 0.102830E+01_JPRB, 0.103158E+01_JPRB &
+  &, 0.103444E+01_JPRB, 0.103687E+01_JPRB, 0.103889E+01_JPRB &
+  &, 0.104048E+01_JPRB, 0.104164E+01_JPRB, 0.104237E+01_JPRB, 0.104267E+01_JPRB &
+  &, 0.104253E+01_JPRB, 0.104195E+01_JPRB, 0.104094E+01_JPRB &
+  &, 0.103948E+01_JPRB, 0.103760E+01_JPRB, 0.103527E+01_JPRB, 0.103250E+01_JPRB &
+  &, 0.102930E+01_JPRB, 0.102566E+01_JPRB, 0.102158E+01_JPRB &
+  &, 0.101707E+01_JPRB, 0.101214E+01_JPRB, 0.100677E+01_JPRB, 0.100098E+01_JPRB &
+  &, 0.994772E+00_JPRB, 0.988146E+00_JPRB, 0.981109E+00_JPRB &
+  &, 0.973670E+00_JPRB, 0.965829E+00_JPRB, 0.957594E+00_JPRB, 0.948978E+00_JPRB &
+  &, 0.939980E+00_JPRB, 0.930617E+00_JPRB, 0.920890E+00_JPRB &
+  &, 0.910811E+00_JPRB, 0.900392E+00_JPRB, 0.889654E+00_JPRB, 0.878584E+00_JPRB &
+  &, 0.867213E+00_JPRB, 0.855545E+00_JPRB, 0.843588E+00_JPRB &
+  &, 0.831375E+00_JPRB, 0.818887E+00_JPRB, 0.806163E+00_JPRB, 0.793212E+00_JPRB &
+  &, 0.780055E+00_JPRB, 0.766681E+00_JPRB, 0.753129E+00_JPRB &
+  &, 0.739415E+00_JPRB, 0.725529E+00_JPRB, 0.711518E+00_JPRB, 0.697373E+00_JPRB &
+  &, 0.683115E+00_JPRB, 0.668781E+00_JPRB, 0.654350E+00_JPRB &
+  &, 0.639874E+00_JPRB, 0.625347E+00_JPRB, 0.610777E+00_JPRB, 0.596204E+00_JPRB &
+  &, 0.581638E+00_JPRB, 0.567069E+00_JPRB, 0.552540E+00_JPRB &
+  &, 0.538057E+00_JPRB, 0.523629E+00_JPRB, 0.509278E+00_JPRB, 0.495010E+00_JPRB &
+  &, 0.480850E+00_JPRB, 0.466780E+00_JPRB, 0.452865E+00_JPRB &
+  &, 0.439065E+00_JPRB, 0.425421E+00_JPRB, 0.411934E+00_JPRB, 0.398624E+00_JPRB &
+  &, 0.385487E+00_JPRB, 0.372543E+00_JPRB, 0.359784E+00_JPRB &
+  &, 0.347250E+00_JPRB, 0.334910E+00_JPRB, 0.322828E+00_JPRB, 0.310940E+00_JPRB &
+  &, 0.299310E+00_JPRB, 0.287924E+00_JPRB, 0.276765E+00_JPRB &
+  &, 0.265868E+00_JPRB, 0.255213E+00_JPRB, 0.244834E+00_JPRB, 0.234708E+00_JPRB &
+  &, 0.224868E+00_JPRB, 0.215256E+00_JPRB, 0.205934E+00_JPRB &
+  &, 0.196871E+00_JPRB, 0.188064E+00_JPRB, 0.179543E+00_JPRB, 0.171270E+00_JPRB &
+  &, 0.163272E+00_JPRB, 0.155544E+00_JPRB, 0.148074E+00_JPRB &
+  &, 0.140855E+00_JPRB, 0.133909E+00_JPRB, 0.127188E+00_JPRB, 0.120750E+00_JPRB &
+  &, 0.114505E+00_JPRB, 0.108549E+00_JPRB, 0.102827E+00_JPRB &
+  &, 0.973175E-01_JPRB, 0.920389E-01_JPRB, 0.870099E-01_JPRB, 0.821650E-01_JPRB &
+  &, 0.775195E-01_JPRB, 0.731326E-01_JPRB, 0.688896E-01_JPRB &
+  &, 0.648926E-01_JPRB, 0.610668E-01_JPRB, 0.574250E-01_JPRB, 0.539332E-01_JPRB &
+  &, 0.506501E-01_JPRB, 0.475407E-01_JPRB, 0.445674E-01_JPRB &
+  &, 0.417397E-01_JPRB, 0.390673E-01_JPRB, 0.365602E-01_JPRB, 0.341761E-01_JPRB &
+  &, 0.319233E-01_JPRB, 0.298096E-01_JPRB, 0.277892E-01_JPRB &
+  &, 0.259231E-01_JPRB, 0.241081E-01_JPRB, 0.224616E-01_JPRB, 0.208773E-01_JPRB &
+  &, 0.194177E-01_JPRB, 0.180303E-01_JPRB, 0.167195E-01_JPRB &
+  &, 0.154896E-01_JPRB, 0.143451E-01_JPRB, 0.132904E-01_JPRB, 0.123303E-01_JPRB &
+  &, 0.114053E-01_JPRB, 0.105176E-01_JPRB, 0.966954E-02_JPRB/)
+XCW( 595, :) = (/ &
+  &  0.102075E+01_JPRB, 0.102493E+01_JPRB, 0.102869E+01_JPRB, 0.103204E+01_JPRB &
+  &, 0.103497E+01_JPRB, 0.103748E+01_JPRB, 0.103956E+01_JPRB &
+  &, 0.104121E+01_JPRB, 0.104244E+01_JPRB, 0.104324E+01_JPRB, 0.104360E+01_JPRB &
+  &, 0.104352E+01_JPRB, 0.104302E+01_JPRB, 0.104207E+01_JPRB &
+  &, 0.104068E+01_JPRB, 0.103886E+01_JPRB, 0.103660E+01_JPRB, 0.103390E+01_JPRB &
+  &, 0.103076E+01_JPRB, 0.102718E+01_JPRB, 0.102317E+01_JPRB &
+  &, 0.101873E+01_JPRB, 0.101385E+01_JPRB, 0.100854E+01_JPRB, 0.100281E+01_JPRB &
+  &, 0.996664E+00_JPRB, 0.990098E+00_JPRB, 0.983116E+00_JPRB &
+  &, 0.975730E+00_JPRB, 0.967945E+00_JPRB, 0.959767E+00_JPRB, 0.951201E+00_JPRB &
+  &, 0.942258E+00_JPRB, 0.932939E+00_JPRB, 0.923267E+00_JPRB &
+  &, 0.913230E+00_JPRB, 0.902862E+00_JPRB, 0.892157E+00_JPRB, 0.881140E+00_JPRB &
+  &, 0.869803E+00_JPRB, 0.858169E+00_JPRB, 0.846257E+00_JPRB &
+  &, 0.834077E+00_JPRB, 0.821623E+00_JPRB, 0.808932E+00_JPRB, 0.796014E+00_JPRB &
+  &, 0.782878E+00_JPRB, 0.769536E+00_JPRB, 0.756002E+00_JPRB &
+  &, 0.742306E+00_JPRB, 0.728436E+00_JPRB, 0.714440E+00_JPRB, 0.700309E+00_JPRB &
+  &, 0.686078E+00_JPRB, 0.671740E+00_JPRB, 0.657318E+00_JPRB &
+  &, 0.642849E+00_JPRB, 0.628312E+00_JPRB, 0.613762E+00_JPRB, 0.599191E+00_JPRB &
+  &, 0.584609E+00_JPRB, 0.570038E+00_JPRB, 0.555504E+00_JPRB &
+  &, 0.540997E+00_JPRB, 0.526559E+00_JPRB, 0.512197E+00_JPRB, 0.497916E+00_JPRB &
+  &, 0.483719E+00_JPRB, 0.469651E+00_JPRB, 0.455694E+00_JPRB &
+  &, 0.441869E+00_JPRB, 0.428199E+00_JPRB, 0.414682E+00_JPRB, 0.401339E+00_JPRB &
+  &, 0.388167E+00_JPRB, 0.375183E+00_JPRB, 0.362406E+00_JPRB &
+  &, 0.349829E+00_JPRB, 0.337466E+00_JPRB, 0.325332E+00_JPRB, 0.313416E+00_JPRB &
+  &, 0.301730E+00_JPRB, 0.290284E+00_JPRB, 0.279088E+00_JPRB &
+  &, 0.268151E+00_JPRB, 0.257454E+00_JPRB, 0.247031E+00_JPRB, 0.236858E+00_JPRB &
+  &, 0.226937E+00_JPRB, 0.217303E+00_JPRB, 0.207925E+00_JPRB &
+  &, 0.198803E+00_JPRB, 0.189966E+00_JPRB, 0.181380E+00_JPRB, 0.173073E+00_JPRB &
+  &, 0.165005E+00_JPRB, 0.157237E+00_JPRB, 0.149692E+00_JPRB &
+  &, 0.142429E+00_JPRB, 0.135437E+00_JPRB, 0.128668E+00_JPRB, 0.122180E+00_JPRB &
+  &, 0.115920E+00_JPRB, 0.109872E+00_JPRB, 0.104092E+00_JPRB &
+  &, 0.985630E-01_JPRB, 0.932230E-01_JPRB, 0.881301E-01_JPRB, 0.832610E-01_JPRB &
+  &, 0.785901E-01_JPRB, 0.741331E-01_JPRB, 0.699058E-01_JPRB &
+  &, 0.658348E-01_JPRB, 0.619781E-01_JPRB, 0.582578E-01_JPRB, 0.547787E-01_JPRB &
+  &, 0.514130E-01_JPRB, 0.482667E-01_JPRB, 0.452552E-01_JPRB &
+  &, 0.424377E-01_JPRB, 0.397251E-01_JPRB, 0.371762E-01_JPRB, 0.347490E-01_JPRB &
+  &, 0.324516E-01_JPRB, 0.303456E-01_JPRB, 0.282785E-01_JPRB &
+  &, 0.263642E-01_JPRB, 0.245554E-01_JPRB, 0.228585E-01_JPRB, 0.212797E-01_JPRB &
+  &, 0.197674E-01_JPRB, 0.183848E-01_JPRB, 0.170789E-01_JPRB &
+  &, 0.157931E-01_JPRB, 0.146527E-01_JPRB, 0.136022E-01_JPRB, 0.125830E-01_JPRB &
+  &, 0.115973E-01_JPRB, 0.107122E-01_JPRB, 0.993238E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART85',1,ZHOOK_HANDLE)
+END SUBROUTINE PART85
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART86
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART86',0,ZHOOK_HANDLE)
+
+XCW( 596, :) = (/ &
+  &  0.102101E+01_JPRB, 0.102525E+01_JPRB, 0.102909E+01_JPRB, 0.103250E+01_JPRB &
+  &, 0.103550E+01_JPRB, 0.103807E+01_JPRB, 0.104022E+01_JPRB &
+  &, 0.104195E+01_JPRB, 0.104324E+01_JPRB, 0.104410E+01_JPRB, 0.104453E+01_JPRB &
+  &, 0.104453E+01_JPRB, 0.104408E+01_JPRB, 0.104320E+01_JPRB &
+  &, 0.104188E+01_JPRB, 0.104013E+01_JPRB, 0.103793E+01_JPRB, 0.103529E+01_JPRB &
+  &, 0.103222E+01_JPRB, 0.102871E+01_JPRB, 0.102476E+01_JPRB &
+  &, 0.102038E+01_JPRB, 0.101556E+01_JPRB, 0.101032E+01_JPRB, 0.100465E+01_JPRB &
+  &, 0.998559E+00_JPRB, 0.992050E+00_JPRB, 0.985127E+00_JPRB &
+  &, 0.977799E+00_JPRB, 0.970069E+00_JPRB, 0.961943E+00_JPRB, 0.953432E+00_JPRB &
+  &, 0.944537E+00_JPRB, 0.935271E+00_JPRB, 0.925644E+00_JPRB &
+  &, 0.915657E+00_JPRB, 0.905332E+00_JPRB, 0.894680E+00_JPRB, 0.883697E+00_JPRB &
+  &, 0.872404E+00_JPRB, 0.860814E+00_JPRB, 0.848936E+00_JPRB &
+  &, 0.836780E+00_JPRB, 0.824370E+00_JPRB, 0.811713E+00_JPRB, 0.798816E+00_JPRB &
+  &, 0.785700E+00_JPRB, 0.772391E+00_JPRB, 0.758876E+00_JPRB &
+  &, 0.745196E+00_JPRB, 0.731357E+00_JPRB, 0.717376E+00_JPRB, 0.703259E+00_JPRB &
+  &, 0.689026E+00_JPRB, 0.674714E+00_JPRB, 0.660301E+00_JPRB &
+  &, 0.645825E+00_JPRB, 0.631309E+00_JPRB, 0.616747E+00_JPRB, 0.602162E+00_JPRB &
+  &, 0.587579E+00_JPRB, 0.573006E+00_JPRB, 0.558468E+00_JPRB &
+  &, 0.543955E+00_JPRB, 0.529509E+00_JPRB, 0.515116E+00_JPRB, 0.500821E+00_JPRB &
+  &, 0.486609E+00_JPRB, 0.472522E+00_JPRB, 0.458544E+00_JPRB &
+  &, 0.444695E+00_JPRB, 0.430998E+00_JPRB, 0.417452E+00_JPRB, 0.404076E+00_JPRB &
+  &, 0.390869E+00_JPRB, 0.377847E+00_JPRB, 0.365029E+00_JPRB &
+  &, 0.352431E+00_JPRB, 0.340021E+00_JPRB, 0.327837E+00_JPRB, 0.315867E+00_JPRB &
+  &, 0.304149E+00_JPRB, 0.292670E+00_JPRB, 0.281438E+00_JPRB &
+  &, 0.270435E+00_JPRB, 0.259696E+00_JPRB, 0.249228E+00_JPRB, 0.239007E+00_JPRB &
+  &, 0.229037E+00_JPRB, 0.219349E+00_JPRB, 0.209915E+00_JPRB &
+  &, 0.200766E+00_JPRB, 0.191868E+00_JPRB, 0.183218E+00_JPRB, 0.174876E+00_JPRB &
+  &, 0.166772E+00_JPRB, 0.158931E+00_JPRB, 0.151345E+00_JPRB &
+  &, 0.144039E+00_JPRB, 0.136966E+00_JPRB, 0.130185E+00_JPRB, 0.123610E+00_JPRB &
+  &, 0.117298E+00_JPRB, 0.111233E+00_JPRB, 0.105396E+00_JPRB &
+  &, 0.998084E-01_JPRB, 0.944479E-01_JPRB, 0.892918E-01_JPRB, 0.843991E-01_JPRB &
+  &, 0.796607E-01_JPRB, 0.751771E-01_JPRB, 0.708778E-01_JPRB &
+  &, 0.667771E-01_JPRB, 0.628438E-01_JPRB, 0.591368E-01_JPRB, 0.555772E-01_JPRB &
+  &, 0.522237E-01_JPRB, 0.490412E-01_JPRB, 0.459921E-01_JPRB &
+  &, 0.430858E-01_JPRB, 0.403827E-01_JPRB, 0.377922E-01_JPRB, 0.353220E-01_JPRB &
+  &, 0.330328E-01_JPRB, 0.308280E-01_JPRB, 0.287677E-01_JPRB &
+  &, 0.268604E-01_JPRB, 0.250027E-01_JPRB, 0.233120E-01_JPRB, 0.216821E-01_JPRB &
+  &, 0.201754E-01_JPRB, 0.187393E-01_JPRB, 0.173783E-01_JPRB &
+  &, 0.161574E-01_JPRB, 0.149603E-01_JPRB, 0.138516E-01_JPRB, 0.128357E-01_JPRB &
+  &, 0.118534E-01_JPRB, 0.109716E-01_JPRB, 0.101295E-01_JPRB/)
+XCW( 597, :) = (/ &
+  &  0.102127E+01_JPRB, 0.102558E+01_JPRB, 0.102948E+01_JPRB, 0.103296E+01_JPRB &
+  &, 0.103603E+01_JPRB, 0.103867E+01_JPRB, 0.104089E+01_JPRB &
+  &, 0.104268E+01_JPRB, 0.104404E+01_JPRB, 0.104497E+01_JPRB, 0.104547E+01_JPRB &
+  &, 0.104553E+01_JPRB, 0.104515E+01_JPRB, 0.104434E+01_JPRB &
+  &, 0.104309E+01_JPRB, 0.104140E+01_JPRB, 0.103926E+01_JPRB, 0.103669E+01_JPRB &
+  &, 0.103368E+01_JPRB, 0.103024E+01_JPRB, 0.102635E+01_JPRB &
+  &, 0.102203E+01_JPRB, 0.101728E+01_JPRB, 0.101210E+01_JPRB, 0.100649E+01_JPRB &
+  &, 0.100046E+01_JPRB, 0.994006E+00_JPRB, 0.987142E+00_JPRB &
+  &, 0.979871E+00_JPRB, 0.972196E+00_JPRB, 0.964124E+00_JPRB, 0.955663E+00_JPRB &
+  &, 0.946824E+00_JPRB, 0.937607E+00_JPRB, 0.928030E+00_JPRB &
+  &, 0.918094E+00_JPRB, 0.907812E+00_JPRB, 0.897202E+00_JPRB, 0.886263E+00_JPRB &
+  &, 0.875004E+00_JPRB, 0.863459E+00_JPRB, 0.851615E+00_JPRB &
+  &, 0.839504E+00_JPRB, 0.827117E+00_JPRB, 0.814494E+00_JPRB, 0.801630E+00_JPRB &
+  &, 0.788547E+00_JPRB, 0.775258E+00_JPRB, 0.761775E+00_JPRB &
+  &, 0.748113E+00_JPRB, 0.734291E+00_JPRB, 0.720312E+00_JPRB, 0.706222E+00_JPRB &
+  &, 0.692003E+00_JPRB, 0.677687E+00_JPRB, 0.663284E+00_JPRB &
+  &, 0.648831E+00_JPRB, 0.634307E+00_JPRB, 0.619749E+00_JPRB, 0.605166E+00_JPRB &
+  &, 0.590584E+00_JPRB, 0.576010E+00_JPRB, 0.561451E+00_JPRB &
+  &, 0.546931E+00_JPRB, 0.532458E+00_JPRB, 0.518074E+00_JPRB, 0.503746E+00_JPRB &
+  &, 0.489518E+00_JPRB, 0.475393E+00_JPRB, 0.461393E+00_JPRB &
+  &, 0.447521E+00_JPRB, 0.433797E+00_JPRB, 0.420221E+00_JPRB, 0.406814E+00_JPRB &
+  &, 0.393594E+00_JPRB, 0.380534E+00_JPRB, 0.367675E+00_JPRB &
+  &, 0.355033E+00_JPRB, 0.342601E+00_JPRB, 0.330367E+00_JPRB, 0.318369E+00_JPRB &
+  &, 0.306595E+00_JPRB, 0.295083E+00_JPRB, 0.283788E+00_JPRB &
+  &, 0.272746E+00_JPRB, 0.261966E+00_JPRB, 0.251454E+00_JPRB, 0.241186E+00_JPRB &
+  &, 0.231166E+00_JPRB, 0.221426E+00_JPRB, 0.211937E+00_JPRB &
+  &, 0.202729E+00_JPRB, 0.193770E+00_JPRB, 0.185088E+00_JPRB, 0.176679E+00_JPRB &
+  &, 0.168539E+00_JPRB, 0.160625E+00_JPRB, 0.152998E+00_JPRB &
+  &, 0.145649E+00_JPRB, 0.138530E+00_JPRB, 0.131665E+00_JPRB, 0.125077E+00_JPRB &
+  &, 0.118713E+00_JPRB, 0.112594E+00_JPRB, 0.106740E+00_JPRB &
+  &, 0.101094E+00_JPRB, 0.956727E-01_JPRB, 0.904949E-01_JPRB, 0.854950E-01_JPRB &
+  &, 0.807741E-01_JPRB, 0.762211E-01_JPRB, 0.718498E-01_JPRB &
+  &, 0.677194E-01_JPRB, 0.637551E-01_JPRB, 0.600159E-01_JPRB, 0.564227E-01_JPRB &
+  &, 0.530343E-01_JPRB, 0.497672E-01_JPRB, 0.467290E-01_JPRB &
+  &, 0.437838E-01_JPRB, 0.410405E-01_JPRB, 0.384082E-01_JPRB, 0.359470E-01_JPRB &
+  &, 0.336140E-01_JPRB, 0.313639E-01_JPRB, 0.293113E-01_JPRB &
+  &, 0.273566E-01_JPRB, 0.254500E-01_JPRB, 0.237089E-01_JPRB, 0.220845E-01_JPRB &
+  &, 0.205251E-01_JPRB, 0.190938E-01_JPRB, 0.177377E-01_JPRB &
+  &, 0.164609E-01_JPRB, 0.152679E-01_JPRB, 0.141633E-01_JPRB, 0.130884E-01_JPRB &
+  &, 0.121095E-01_JPRB, 0.112311E-01_JPRB, 0.103266E-01_JPRB/)
+XCW( 598, :) = (/ &
+  &  0.102154E+01_JPRB, 0.102591E+01_JPRB, 0.102988E+01_JPRB, 0.103343E+01_JPRB &
+  &, 0.103656E+01_JPRB, 0.103927E+01_JPRB, 0.104155E+01_JPRB &
+  &, 0.104341E+01_JPRB, 0.104484E+01_JPRB, 0.104584E+01_JPRB, 0.104640E+01_JPRB &
+  &, 0.104653E+01_JPRB, 0.104622E+01_JPRB, 0.104548E+01_JPRB &
+  &, 0.104429E+01_JPRB, 0.104267E+01_JPRB, 0.104060E+01_JPRB, 0.103809E+01_JPRB &
+  &, 0.103515E+01_JPRB, 0.103176E+01_JPRB, 0.102795E+01_JPRB &
+  &, 0.102369E+01_JPRB, 0.101900E+01_JPRB, 0.101388E+01_JPRB, 0.100833E+01_JPRB &
+  &, 0.100236E+01_JPRB, 0.995969E+00_JPRB, 0.988676E+00_JPRB &
+  &, 0.981947E+00_JPRB, 0.974328E+00_JPRB, 0.966313E+00_JPRB, 0.957903E+00_JPRB &
+  &, 0.949116E+00_JPRB, 0.939952E+00_JPRB, 0.930420E+00_JPRB &
+  &, 0.920531E+00_JPRB, 0.910301E+00_JPRB, 0.899725E+00_JPRB, 0.888830E+00_JPRB &
+  &, 0.877625E+00_JPRB, 0.866104E+00_JPRB, 0.854305E+00_JPRB &
+  &, 0.842228E+00_JPRB, 0.829876E+00_JPRB, 0.817286E+00_JPRB, 0.804444E+00_JPRB &
+  &, 0.791394E+00_JPRB, 0.778125E+00_JPRB, 0.764661E+00_JPRB &
+  &, 0.751030E+00_JPRB, 0.737225E+00_JPRB, 0.723275E+00_JPRB, 0.709187E+00_JPRB &
+  &, 0.694994E+00_JPRB, 0.680690E+00_JPRB, 0.666297E+00_JPRB &
+  &, 0.651838E+00_JPRB, 0.637320E+00_JPRB, 0.622766E+00_JPRB, 0.608170E+00_JPRB &
+  &, 0.593589E+00_JPRB, 0.579013E+00_JPRB, 0.564450E+00_JPRB &
+  &, 0.549907E+00_JPRB, 0.535444E+00_JPRB, 0.521031E+00_JPRB, 0.506691E+00_JPRB &
+  &, 0.492448E+00_JPRB, 0.478305E+00_JPRB, 0.464284E+00_JPRB &
+  &, 0.450389E+00_JPRB, 0.436639E+00_JPRB, 0.423035E+00_JPRB, 0.409596E+00_JPRB &
+  &, 0.396319E+00_JPRB, 0.383245E+00_JPRB, 0.370345E+00_JPRB &
+  &, 0.357660E+00_JPRB, 0.345181E+00_JPRB, 0.332922E+00_JPRB, 0.320872E+00_JPRB &
+  &, 0.309068E+00_JPRB, 0.297496E+00_JPRB, 0.286165E+00_JPRB &
+  &, 0.275085E+00_JPRB, 0.264264E+00_JPRB, 0.253680E+00_JPRB, 0.243366E+00_JPRB &
+  &, 0.233296E+00_JPRB, 0.223503E+00_JPRB, 0.213990E+00_JPRB &
+  &, 0.204724E+00_JPRB, 0.195704E+00_JPRB, 0.186991E+00_JPRB, 0.178516E+00_JPRB &
+  &, 0.170306E+00_JPRB, 0.162389E+00_JPRB, 0.154686E+00_JPRB &
+  &, 0.147259E+00_JPRB, 0.140131E+00_JPRB, 0.133219E+00_JPRB, 0.126544E+00_JPRB &
+  &, 0.120128E+00_JPRB, 0.113994E+00_JPRB, 0.108045E+00_JPRB &
+  &, 0.102380E+00_JPRB, 0.968976E-01_JPRB, 0.916566E-01_JPRB, 0.866332E-01_JPRB &
+  &, 0.818447E-01_JPRB, 0.772650E-01_JPRB, 0.728660E-01_JPRB &
+  &, 0.687065E-01_JPRB, 0.647120E-01_JPRB, 0.608949E-01_JPRB, 0.572682E-01_JPRB &
+  &, 0.538449E-01_JPRB, 0.505416E-01_JPRB, 0.474659E-01_JPRB &
+  &, 0.444818E-01_JPRB, 0.416982E-01_JPRB, 0.390756E-01_JPRB, 0.365719E-01_JPRB &
+  &, 0.341952E-01_JPRB, 0.319535E-01_JPRB, 0.298006E-01_JPRB &
+  &, 0.277977E-01_JPRB, 0.259532E-01_JPRB, 0.241625E-01_JPRB, 0.224869E-01_JPRB &
+  &, 0.209330E-01_JPRB, 0.194483E-01_JPRB, 0.180970E-01_JPRB &
+  &, 0.167644E-01_JPRB, 0.155755E-01_JPRB, 0.144127E-01_JPRB, 0.133412E-01_JPRB &
+  &, 0.123655E-01_JPRB, 0.114257E-01_JPRB, 0.105895E-01_JPRB/)
+XCW( 599, :) = (/ &
+  &  0.102180E+01_JPRB, 0.102624E+01_JPRB, 0.103027E+01_JPRB, 0.103389E+01_JPRB &
+  &, 0.103709E+01_JPRB, 0.103987E+01_JPRB, 0.104222E+01_JPRB &
+  &, 0.104414E+01_JPRB, 0.104564E+01_JPRB, 0.104671E+01_JPRB, 0.104734E+01_JPRB &
+  &, 0.104754E+01_JPRB, 0.104729E+01_JPRB, 0.104662E+01_JPRB &
+  &, 0.104550E+01_JPRB, 0.104394E+01_JPRB, 0.104194E+01_JPRB, 0.103950E+01_JPRB &
+  &, 0.103662E+01_JPRB, 0.103330E+01_JPRB, 0.102954E+01_JPRB &
+  &, 0.102535E+01_JPRB, 0.102072E+01_JPRB, 0.101567E+01_JPRB, 0.101018E+01_JPRB &
+  &, 0.100427E+01_JPRB, 0.997936E+00_JPRB, 0.991187E+00_JPRB &
+  &, 0.984027E+00_JPRB, 0.976464E+00_JPRB, 0.968502E+00_JPRB, 0.960150E+00_JPRB &
+  &, 0.951411E+00_JPRB, 0.942296E+00_JPRB, 0.932815E+00_JPRB &
+  &, 0.922978E+00_JPRB, 0.912790E+00_JPRB, 0.902268E+00_JPRB, 0.891406E+00_JPRB &
+  &, 0.880246E+00_JPRB, 0.868770E+00_JPRB, 0.857006E+00_JPRB &
+  &, 0.844953E+00_JPRB, 0.832645E+00_JPRB, 0.820078E+00_JPRB, 0.807282E+00_JPRB &
+  &, 0.794254E+00_JPRB, 0.781004E+00_JPRB, 0.767572E+00_JPRB &
+  &, 0.753961E+00_JPRB, 0.740172E+00_JPRB, 0.726238E+00_JPRB, 0.712165E+00_JPRB &
+  &, 0.697986E+00_JPRB, 0.683694E+00_JPRB, 0.669311E+00_JPRB &
+  &, 0.654844E+00_JPRB, 0.640333E+00_JPRB, 0.625784E+00_JPRB, 0.611208E+00_JPRB &
+  &, 0.596610E+00_JPRB, 0.582016E+00_JPRB, 0.567450E+00_JPRB &
+  &, 0.552920E+00_JPRB, 0.538431E+00_JPRB, 0.523988E+00_JPRB, 0.509635E+00_JPRB &
+  &, 0.495377E+00_JPRB, 0.481216E+00_JPRB, 0.467175E+00_JPRB &
+  &, 0.453257E+00_JPRB, 0.439482E+00_JPRB, 0.425849E+00_JPRB, 0.412378E+00_JPRB &
+  &, 0.399067E+00_JPRB, 0.385956E+00_JPRB, 0.373040E+00_JPRB &
+  &, 0.360311E+00_JPRB, 0.347786E+00_JPRB, 0.335477E+00_JPRB, 0.323400E+00_JPRB &
+  &, 0.311540E+00_JPRB, 0.299935E+00_JPRB, 0.288570E+00_JPRB &
+  &, 0.277425E+00_JPRB, 0.266563E+00_JPRB, 0.255935E+00_JPRB, 0.245574E+00_JPRB &
+  &, 0.235455E+00_JPRB, 0.225611E+00_JPRB, 0.216042E+00_JPRB &
+  &, 0.206719E+00_JPRB, 0.197670E+00_JPRB, 0.188894E+00_JPRB, 0.180352E+00_JPRB &
+  &, 0.172107E+00_JPRB, 0.164117E+00_JPRB, 0.156375E+00_JPRB &
+  &, 0.148904E+00_JPRB, 0.141696E+00_JPRB, 0.134736E+00_JPRB, 0.128049E+00_JPRB &
+  &, 0.121582E+00_JPRB, 0.115355E+00_JPRB, 0.109389E+00_JPRB &
+  &, 0.103665E+00_JPRB, 0.981633E-01_JPRB, 0.928597E-01_JPRB, 0.878134E-01_JPRB &
+  &, 0.829581E-01_JPRB, 0.783525E-01_JPRB, 0.738822E-01_JPRB &
+  &, 0.696937E-01_JPRB, 0.656233E-01_JPRB, 0.618202E-01_JPRB, 0.581606E-01_JPRB &
+  &, 0.546555E-01_JPRB, 0.513645E-01_JPRB, 0.482027E-01_JPRB &
+  &, 0.452297E-01_JPRB, 0.424064E-01_JPRB, 0.396916E-01_JPRB, 0.371448E-01_JPRB &
+  &, 0.347764E-01_JPRB, 0.324895E-01_JPRB, 0.303442E-01_JPRB &
+  &, 0.282939E-01_JPRB, 0.264005E-01_JPRB, 0.246160E-01_JPRB, 0.229468E-01_JPRB &
+  &, 0.213410E-01_JPRB, 0.198619E-01_JPRB, 0.184563E-01_JPRB &
+  &, 0.171286E-01_JPRB, 0.158832E-01_JPRB, 0.147245E-01_JPRB, 0.136571E-01_JPRB &
+  &, 0.126216E-01_JPRB, 0.116851E-01_JPRB, 0.107866E-01_JPRB/)
+XCW( 600, :) = (/ &
+  &  0.102206E+01_JPRB, 0.102657E+01_JPRB, 0.103067E+01_JPRB, 0.103435E+01_JPRB &
+  &, 0.103762E+01_JPRB, 0.104046E+01_JPRB, 0.104287E+01_JPRB &
+  &, 0.104488E+01_JPRB, 0.104644E+01_JPRB, 0.104758E+01_JPRB, 0.104828E+01_JPRB &
+  &, 0.104854E+01_JPRB, 0.104837E+01_JPRB, 0.104776E+01_JPRB &
+  &, 0.104670E+01_JPRB, 0.104521E+01_JPRB, 0.104328E+01_JPRB, 0.104090E+01_JPRB &
+  &, 0.103809E+01_JPRB, 0.103484E+01_JPRB, 0.103114E+01_JPRB &
+  &, 0.102701E+01_JPRB, 0.102245E+01_JPRB, 0.101745E+01_JPRB, 0.101203E+01_JPRB &
+  &, 0.100618E+01_JPRB, 0.999903E+00_JPRB, 0.993214E+00_JPRB &
+  &, 0.986112E+00_JPRB, 0.978603E+00_JPRB, 0.970699E+00_JPRB, 0.962398E+00_JPRB &
+  &, 0.953712E+00_JPRB, 0.944650E+00_JPRB, 0.935219E+00_JPRB &
+  &, 0.925424E+00_JPRB, 0.915289E+00_JPRB, 0.904800E+00_JPRB, 0.893993E+00_JPRB &
+  &, 0.882867E+00_JPRB, 0.871436E+00_JPRB, 0.859707E+00_JPRB &
+  &, 0.847699E+00_JPRB, 0.835427E+00_JPRB, 0.822894E+00_JPRB, 0.810120E+00_JPRB &
+  &, 0.797113E+00_JPRB, 0.783896E+00_JPRB, 0.770484E+00_JPRB &
+  &, 0.756891E+00_JPRB, 0.743133E+00_JPRB, 0.729216E+00_JPRB, 0.715157E+00_JPRB &
+  &, 0.700991E+00_JPRB, 0.686697E+00_JPRB, 0.672324E+00_JPRB &
+  &, 0.657882E+00_JPRB, 0.643377E+00_JPRB, 0.628818E+00_JPRB, 0.614245E+00_JPRB &
+  &, 0.599649E+00_JPRB, 0.585054E+00_JPRB, 0.570468E+00_JPRB &
+  &, 0.555932E+00_JPRB, 0.541417E+00_JPRB, 0.526984E+00_JPRB, 0.512619E+00_JPRB &
+  &, 0.498326E+00_JPRB, 0.484148E+00_JPRB, 0.470087E+00_JPRB &
+  &, 0.456146E+00_JPRB, 0.442324E+00_JPRB, 0.428663E+00_JPRB, 0.415161E+00_JPRB &
+  &, 0.401838E+00_JPRB, 0.388690E+00_JPRB, 0.375734E+00_JPRB &
+  &, 0.362962E+00_JPRB, 0.350415E+00_JPRB, 0.338058E+00_JPRB, 0.325954E+00_JPRB &
+  &, 0.314038E+00_JPRB, 0.302402E+00_JPRB, 0.290974E+00_JPRB &
+  &, 0.279792E+00_JPRB, 0.268861E+00_JPRB, 0.258190E+00_JPRB, 0.247783E+00_JPRB &
+  &, 0.237615E+00_JPRB, 0.227749E+00_JPRB, 0.218095E+00_JPRB &
+  &, 0.208745E+00_JPRB, 0.199636E+00_JPRB, 0.190796E+00_JPRB, 0.182222E+00_JPRB &
+  &, 0.173907E+00_JPRB, 0.165880E+00_JPRB, 0.158098E+00_JPRB &
+  &, 0.150586E+00_JPRB, 0.143333E+00_JPRB, 0.136290E+00_JPRB, 0.129554E+00_JPRB &
+  &, 0.123036E+00_JPRB, 0.116794E+00_JPRB, 0.110772E+00_JPRB &
+  &, 0.104951E+00_JPRB, 0.994290E-01_JPRB, 0.940629E-01_JPRB, 0.889937E-01_JPRB &
+  &, 0.840714E-01_JPRB, 0.793965E-01_JPRB, 0.749426E-01_JPRB &
+  &, 0.706808E-01_JPRB, 0.665801E-01_JPRB, 0.626992E-01_JPRB, 0.590061E-01_JPRB &
+  &, 0.555138E-01_JPRB, 0.521389E-01_JPRB, 0.489396E-01_JPRB &
+  &, 0.459277E-01_JPRB, 0.430642E-01_JPRB, 0.403589E-01_JPRB, 0.377698E-01_JPRB &
+  &, 0.353576E-01_JPRB, 0.330254E-01_JPRB, 0.308879E-01_JPRB &
+  &, 0.288452E-01_JPRB, 0.269037E-01_JPRB, 0.250696E-01_JPRB, 0.233492E-01_JPRB &
+  &, 0.217490E-01_JPRB, 0.202164E-01_JPRB, 0.188157E-01_JPRB &
+  &, 0.174321E-01_JPRB, 0.161908E-01_JPRB, 0.150362E-01_JPRB, 0.139098E-01_JPRB &
+  &, 0.128777E-01_JPRB, 0.119446E-01_JPRB, 0.110495E-01_JPRB/)
+XCW( 601, :) = (/ &
+  &  0.102232E+01_JPRB, 0.102690E+01_JPRB, 0.103107E+01_JPRB, 0.103482E+01_JPRB &
+  &, 0.103815E+01_JPRB, 0.104106E+01_JPRB, 0.104355E+01_JPRB &
+  &, 0.104561E+01_JPRB, 0.104725E+01_JPRB, 0.104845E+01_JPRB, 0.104922E+01_JPRB &
+  &, 0.104955E+01_JPRB, 0.104944E+01_JPRB, 0.104890E+01_JPRB &
+  &, 0.104791E+01_JPRB, 0.104649E+01_JPRB, 0.104462E+01_JPRB, 0.104231E+01_JPRB &
+  &, 0.103956E+01_JPRB, 0.103637E+01_JPRB, 0.103275E+01_JPRB &
+  &, 0.102868E+01_JPRB, 0.102418E+01_JPRB, 0.101924E+01_JPRB, 0.101388E+01_JPRB &
+  &, 0.100809E+01_JPRB, 0.100188E+01_JPRB, 0.995244E+00_JPRB &
+  &, 0.988199E+00_JPRB, 0.980751E+00_JPRB, 0.972896E+00_JPRB, 0.964650E+00_JPRB &
+  &, 0.956020E+00_JPRB, 0.947008E+00_JPRB, 0.937628E+00_JPRB &
+  &, 0.927879E+00_JPRB, 0.917787E+00_JPRB, 0.907352E+00_JPRB, 0.896590E+00_JPRB &
+  &, 0.885499E+00_JPRB, 0.874113E+00_JPRB, 0.862418E+00_JPRB &
+  &, 0.850446E+00_JPRB, 0.838208E+00_JPRB, 0.825710E+00_JPRB, 0.812958E+00_JPRB &
+  &, 0.799996E+00_JPRB, 0.786801E+00_JPRB, 0.773421E+00_JPRB &
+  &, 0.759847E+00_JPRB, 0.746094E+00_JPRB, 0.732207E+00_JPRB, 0.718163E+00_JPRB &
+  &, 0.703997E+00_JPRB, 0.689729E+00_JPRB, 0.675368E+00_JPRB &
+  &, 0.660919E+00_JPRB, 0.646422E+00_JPRB, 0.631868E+00_JPRB, 0.617282E+00_JPRB &
+  &, 0.602687E+00_JPRB, 0.588092E+00_JPRB, 0.573503E+00_JPRB &
+  &, 0.558944E+00_JPRB, 0.544440E+00_JPRB, 0.529979E+00_JPRB, 0.515602E+00_JPRB &
+  &, 0.501294E+00_JPRB, 0.487099E+00_JPRB, 0.472999E+00_JPRB &
+  &, 0.459035E+00_JPRB, 0.445209E+00_JPRB, 0.431520E+00_JPRB, 0.417988E+00_JPRB &
+  &, 0.404632E+00_JPRB, 0.391447E+00_JPRB, 0.378452E+00_JPRB &
+  &, 0.365638E+00_JPRB, 0.353045E+00_JPRB, 0.340663E+00_JPRB, 0.328507E+00_JPRB &
+  &, 0.316563E+00_JPRB, 0.304868E+00_JPRB, 0.293406E+00_JPRB &
+  &, 0.282186E+00_JPRB, 0.271216E+00_JPRB, 0.260473E+00_JPRB, 0.250021E+00_JPRB &
+  &, 0.239804E+00_JPRB, 0.229887E+00_JPRB, 0.220179E+00_JPRB &
+  &, 0.210772E+00_JPRB, 0.201635E+00_JPRB, 0.192732E+00_JPRB, 0.184125E+00_JPRB &
+  &, 0.175742E+00_JPRB, 0.167609E+00_JPRB, 0.159821E+00_JPRB &
+  &, 0.152267E+00_JPRB, 0.144934E+00_JPRB, 0.137882E+00_JPRB, 0.131059E+00_JPRB &
+  &, 0.124528E+00_JPRB, 0.118194E+00_JPRB, 0.112116E+00_JPRB &
+  &, 0.106277E+00_JPRB, 0.100695E+00_JPRB, 0.953075E-01_JPRB, 0.901740E-01_JPRB &
+  &, 0.852277E-01_JPRB, 0.804840E-01_JPRB, 0.760029E-01_JPRB &
+  &, 0.716680E-01_JPRB, 0.675825E-01_JPRB, 0.636245E-01_JPRB, 0.598986E-01_JPRB &
+  &, 0.563245E-01_JPRB, 0.529617E-01_JPRB, 0.497257E-01_JPRB &
+  &, 0.466755E-01_JPRB, 0.437724E-01_JPRB, 0.410263E-01_JPRB, 0.383948E-01_JPRB &
+  &, 0.359388E-01_JPRB, 0.336150E-01_JPRB, 0.314315E-01_JPRB &
+  &, 0.293414E-01_JPRB, 0.273510E-01_JPRB, 0.255232E-01_JPRB, 0.238091E-01_JPRB &
+  &, 0.221569E-01_JPRB, 0.206300E-01_JPRB, 0.191750E-01_JPRB &
+  &, 0.177964E-01_JPRB, 0.164984E-01_JPRB, 0.153480E-01_JPRB, 0.142257E-01_JPRB &
+  &, 0.131978E-01_JPRB, 0.122040E-01_JPRB, 0.112466E-01_JPRB/)
+XCW( 602, :) = (/ &
+  &  0.102259E+01_JPRB, 0.102723E+01_JPRB, 0.103146E+01_JPRB, 0.103528E+01_JPRB &
+  &, 0.103868E+01_JPRB, 0.104166E+01_JPRB, 0.104422E+01_JPRB &
+  &, 0.104635E+01_JPRB, 0.104805E+01_JPRB, 0.104932E+01_JPRB, 0.105016E+01_JPRB &
+  &, 0.105056E+01_JPRB, 0.105052E+01_JPRB, 0.105004E+01_JPRB &
+  &, 0.104912E+01_JPRB, 0.104776E+01_JPRB, 0.104596E+01_JPRB, 0.104372E+01_JPRB &
+  &, 0.104104E+01_JPRB, 0.103792E+01_JPRB, 0.103435E+01_JPRB &
+  &, 0.103035E+01_JPRB, 0.102591E+01_JPRB, 0.102104E+01_JPRB, 0.101574E+01_JPRB &
+  &, 0.101001E+01_JPRB, 0.100385E+01_JPRB, 0.997282E+00_JPRB &
+  &, 0.990295E+00_JPRB, 0.982899E+00_JPRB, 0.975101E+00_JPRB, 0.966911E+00_JPRB &
+  &, 0.958333E+00_JPRB, 0.949371E+00_JPRB, 0.940041E+00_JPRB &
+  &, 0.930344E+00_JPRB, 0.920295E+00_JPRB, 0.909904E+00_JPRB, 0.899186E+00_JPRB &
+  &, 0.888140E+00_JPRB, 0.876790E+00_JPRB, 0.865141E+00_JPRB &
+  &, 0.853203E+00_JPRB, 0.841000E+00_JPRB, 0.828525E+00_JPRB, 0.815820E+00_JPRB &
+  &, 0.802880E+00_JPRB, 0.789718E+00_JPRB, 0.776346E+00_JPRB &
+  &, 0.762804E+00_JPRB, 0.749082E+00_JPRB, 0.735198E+00_JPRB, 0.721184E+00_JPRB &
+  &, 0.707032E+00_JPRB, 0.692762E+00_JPRB, 0.678411E+00_JPRB &
+  &, 0.663972E+00_JPRB, 0.649482E+00_JPRB, 0.634935E+00_JPRB, 0.620352E+00_JPRB &
+  &, 0.605743E+00_JPRB, 0.591147E+00_JPRB, 0.576556E+00_JPRB &
+  &, 0.561993E+00_JPRB, 0.547464E+00_JPRB, 0.532993E+00_JPRB, 0.518585E+00_JPRB &
+  &, 0.504283E+00_JPRB, 0.490051E+00_JPRB, 0.475952E+00_JPRB &
+  &, 0.461945E+00_JPRB, 0.448094E+00_JPRB, 0.434378E+00_JPRB, 0.420815E+00_JPRB &
+  &, 0.407426E+00_JPRB, 0.394205E+00_JPRB, 0.381170E+00_JPRB &
+  &, 0.368337E+00_JPRB, 0.355699E+00_JPRB, 0.343269E+00_JPRB, 0.331087E+00_JPRB &
+  &, 0.319088E+00_JPRB, 0.307362E+00_JPRB, 0.295838E+00_JPRB &
+  &, 0.284581E+00_JPRB, 0.273543E+00_JPRB, 0.262786E+00_JPRB, 0.252288E+00_JPRB &
+  &, 0.242024E+00_JPRB, 0.232025E+00_JPRB, 0.222294E+00_JPRB &
+  &, 0.212830E+00_JPRB, 0.203633E+00_JPRB, 0.194701E+00_JPRB, 0.186029E+00_JPRB &
+  &, 0.177611E+00_JPRB, 0.169441E+00_JPRB, 0.161580E+00_JPRB &
+  &, 0.153949E+00_JPRB, 0.146571E+00_JPRB, 0.139473E+00_JPRB, 0.132602E+00_JPRB &
+  &, 0.126020E+00_JPRB, 0.119633E+00_JPRB, 0.113500E+00_JPRB &
+  &, 0.107643E+00_JPRB, 0.101960E+00_JPRB, 0.965521E-01_JPRB, 0.913542E-01_JPRB &
+  &, 0.863839E-01_JPRB, 0.816150E-01_JPRB, 0.770633E-01_JPRB &
+  &, 0.727000E-01_JPRB, 0.685394E-01_JPRB, 0.645498E-01_JPRB, 0.607910E-01_JPRB &
+  &, 0.571828E-01_JPRB, 0.537846E-01_JPRB, 0.505117E-01_JPRB &
+  &, 0.474233E-01_JPRB, 0.444807E-01_JPRB, 0.416936E-01_JPRB, 0.390719E-01_JPRB &
+  &, 0.365729E-01_JPRB, 0.342046E-01_JPRB, 0.319751E-01_JPRB &
+  &, 0.298376E-01_JPRB, 0.278542E-01_JPRB, 0.259767E-01_JPRB, 0.242115E-01_JPRB &
+  &, 0.225649E-01_JPRB, 0.209845E-01_JPRB, 0.195344E-01_JPRB &
+  &, 0.181606E-01_JPRB, 0.168676E-01_JPRB, 0.156597E-01_JPRB, 0.144784E-01_JPRB &
+  &, 0.134539E-01_JPRB, 0.124635E-01_JPRB, 0.115094E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART86',1,ZHOOK_HANDLE)
+END SUBROUTINE PART86
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART87
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART87',0,ZHOOK_HANDLE)
+
+XCW( 603, :) = (/ &
+  &  0.102285E+01_JPRB, 0.102756E+01_JPRB, 0.103186E+01_JPRB, 0.103575E+01_JPRB &
+  &, 0.103922E+01_JPRB, 0.104226E+01_JPRB, 0.104489E+01_JPRB &
+  &, 0.104709E+01_JPRB, 0.104886E+01_JPRB, 0.105020E+01_JPRB, 0.105110E+01_JPRB &
+  &, 0.105157E+01_JPRB, 0.105160E+01_JPRB, 0.105119E+01_JPRB &
+  &, 0.105034E+01_JPRB, 0.104904E+01_JPRB, 0.104731E+01_JPRB, 0.104514E+01_JPRB &
+  &, 0.104252E+01_JPRB, 0.103946E+01_JPRB, 0.103596E+01_JPRB &
+  &, 0.103202E+01_JPRB, 0.102765E+01_JPRB, 0.102284E+01_JPRB, 0.101760E+01_JPRB &
+  &, 0.101193E+01_JPRB, 0.100583E+01_JPRB, 0.999319E+00_JPRB &
+  &, 0.992391E+00_JPRB, 0.985055E+00_JPRB, 0.977315E+00_JPRB, 0.969176E+00_JPRB &
+  &, 0.960650E+00_JPRB, 0.951742E+00_JPRB, 0.942318E+00_JPRB &
+  &, 0.932809E+00_JPRB, 0.922813E+00_JPRB, 0.912466E+00_JPRB, 0.901793E+00_JPRB &
+  &, 0.890792E+00_JPRB, 0.879477E+00_JPRB, 0.867863E+00_JPRB &
+  &, 0.855972E+00_JPRB, 0.843793E+00_JPRB, 0.831364E+00_JPRB, 0.818681E+00_JPRB &
+  &, 0.805764E+00_JPRB, 0.792635E+00_JPRB, 0.779296E+00_JPRB &
+  &, 0.765773E+00_JPRB, 0.752070E+00_JPRB, 0.738203E+00_JPRB, 0.724204E+00_JPRB &
+  &, 0.710067E+00_JPRB, 0.695825E+00_JPRB, 0.681470E+00_JPRB &
+  &, 0.667040E+00_JPRB, 0.652543E+00_JPRB, 0.638001E+00_JPRB, 0.623423E+00_JPRB &
+  &, 0.608816E+00_JPRB, 0.594220E+00_JPRB, 0.579609E+00_JPRB &
+  &, 0.565041E+00_JPRB, 0.550506E+00_JPRB, 0.536026E+00_JPRB, 0.521607E+00_JPRB &
+  &, 0.507272E+00_JPRB, 0.493023E+00_JPRB, 0.478905E+00_JPRB &
+  &, 0.464876E+00_JPRB, 0.451001E+00_JPRB, 0.437258E+00_JPRB, 0.423665E+00_JPRB &
+  &, 0.410242E+00_JPRB, 0.396985E+00_JPRB, 0.383911E+00_JPRB &
+  &, 0.371037E+00_JPRB, 0.358378E+00_JPRB, 0.345900E+00_JPRB, 0.333667E+00_JPRB &
+  &, 0.321639E+00_JPRB, 0.309855E+00_JPRB, 0.298298E+00_JPRB &
+  &, 0.287004E+00_JPRB, 0.275926E+00_JPRB, 0.265099E+00_JPRB, 0.254556E+00_JPRB &
+  &, 0.244243E+00_JPRB, 0.234194E+00_JPRB, 0.224409E+00_JPRB &
+  &, 0.214888E+00_JPRB, 0.205632E+00_JPRB, 0.196669E+00_JPRB, 0.187932E+00_JPRB &
+  &, 0.179480E+00_JPRB, 0.171273E+00_JPRB, 0.163338E+00_JPRB &
+  &, 0.155666E+00_JPRB, 0.148245E+00_JPRB, 0.141064E+00_JPRB, 0.134182E+00_JPRB &
+  &, 0.127511E+00_JPRB, 0.121110E+00_JPRB, 0.114923E+00_JPRB &
+  &, 0.108969E+00_JPRB, 0.103267E+00_JPRB, 0.977968E-01_JPRB, 0.925767E-01_JPRB &
+  &, 0.875401E-01_JPRB, 0.827460E-01_JPRB, 0.781237E-01_JPRB &
+  &, 0.737320E-01_JPRB, 0.695418E-01_JPRB, 0.655214E-01_JPRB, 0.616835E-01_JPRB &
+  &, 0.580411E-01_JPRB, 0.546074E-01_JPRB, 0.512977E-01_JPRB &
+  &, 0.481712E-01_JPRB, 0.451890E-01_JPRB, 0.423610E-01_JPRB, 0.396969E-01_JPRB &
+  &, 0.372069E-01_JPRB, 0.347941E-01_JPRB, 0.325187E-01_JPRB &
+  &, 0.303890E-01_JPRB, 0.283574E-01_JPRB, 0.264870E-01_JPRB, 0.246714E-01_JPRB &
+  &, 0.229729E-01_JPRB, 0.213981E-01_JPRB, 0.198937E-01_JPRB &
+  &, 0.185248E-01_JPRB, 0.171752E-01_JPRB, 0.159715E-01_JPRB, 0.147943E-01_JPRB &
+  &, 0.137099E-01_JPRB, 0.127229E-01_JPRB, 0.117723E-01_JPRB/)
+XCW( 604, :) = (/ &
+  &  0.102312E+01_JPRB, 0.102789E+01_JPRB, 0.103226E+01_JPRB, 0.103621E+01_JPRB &
+  &, 0.103975E+01_JPRB, 0.104287E+01_JPRB, 0.104556E+01_JPRB &
+  &, 0.104783E+01_JPRB, 0.104966E+01_JPRB, 0.105107E+01_JPRB, 0.105204E+01_JPRB &
+  &, 0.105258E+01_JPRB, 0.105267E+01_JPRB, 0.105233E+01_JPRB &
+  &, 0.105155E+01_JPRB, 0.105033E+01_JPRB, 0.104866E+01_JPRB, 0.104655E+01_JPRB &
+  &, 0.104400E+01_JPRB, 0.104101E+01_JPRB, 0.103757E+01_JPRB &
+  &, 0.103370E+01_JPRB, 0.102939E+01_JPRB, 0.102464E+01_JPRB, 0.101946E+01_JPRB &
+  &, 0.101385E+01_JPRB, 0.100782E+01_JPRB, 0.100136E+01_JPRB &
+  &, 0.994495E+00_JPRB, 0.987214E+00_JPRB, 0.979528E+00_JPRB, 0.971445E+00_JPRB &
+  &, 0.962972E+00_JPRB, 0.954118E+00_JPRB, 0.944885E+00_JPRB &
+  &, 0.935274E+00_JPRB, 0.925340E+00_JPRB, 0.915038E+00_JPRB, 0.904400E+00_JPRB &
+  &, 0.893444E+00_JPRB, 0.882175E+00_JPRB, 0.870607E+00_JPRB &
+  &, 0.858740E+00_JPRB, 0.846608E+00_JPRB, 0.834203E+00_JPRB, 0.821555E+00_JPRB &
+  &, 0.808672E+00_JPRB, 0.795565E+00_JPRB, 0.782259E+00_JPRB &
+  &, 0.768743E+00_JPRB, 0.755071E+00_JPRB, 0.741221E+00_JPRB, 0.727239E+00_JPRB &
+  &, 0.713116E+00_JPRB, 0.698887E+00_JPRB, 0.684544E+00_JPRB &
+  &, 0.670124E+00_JPRB, 0.655635E+00_JPRB, 0.641084E+00_JPRB, 0.626510E+00_JPRB &
+  &, 0.611905E+00_JPRB, 0.597293E+00_JPRB, 0.582698E+00_JPRB &
+  &, 0.568108E+00_JPRB, 0.553567E+00_JPRB, 0.539059E+00_JPRB, 0.524629E+00_JPRB &
+  &, 0.510280E+00_JPRB, 0.496015E+00_JPRB, 0.481858E+00_JPRB &
+  &, 0.467829E+00_JPRB, 0.453908E+00_JPRB, 0.440137E+00_JPRB, 0.426515E+00_JPRB &
+  &, 0.413059E+00_JPRB, 0.399790E+00_JPRB, 0.386677E+00_JPRB &
+  &, 0.373785E+00_JPRB, 0.361058E+00_JPRB, 0.348557E+00_JPRB, 0.336272E+00_JPRB &
+  &, 0.324217E+00_JPRB, 0.312375E+00_JPRB, 0.300784E+00_JPRB &
+  &, 0.289427E+00_JPRB, 0.278310E+00_JPRB, 0.267440E+00_JPRB, 0.256853E+00_JPRB &
+  &, 0.246493E+00_JPRB, 0.236393E+00_JPRB, 0.226555E+00_JPRB &
+  &, 0.216978E+00_JPRB, 0.207695E+00_JPRB, 0.198638E+00_JPRB, 0.189868E+00_JPRB &
+  &, 0.181349E+00_JPRB, 0.173105E+00_JPRB, 0.165097E+00_JPRB &
+  &, 0.157383E+00_JPRB, 0.149919E+00_JPRB, 0.142692E+00_JPRB, 0.135725E+00_JPRB &
+  &, 0.129042E+00_JPRB, 0.122549E+00_JPRB, 0.116346E+00_JPRB &
+  &, 0.110375E+00_JPRB, 0.104614E+00_JPRB, 0.990829E-01_JPRB, 0.937991E-01_JPRB &
+  &, 0.887391E-01_JPRB, 0.838770E-01_JPRB, 0.792282E-01_JPRB &
+  &, 0.747640E-01_JPRB, 0.705443E-01_JPRB, 0.664930E-01_JPRB, 0.626229E-01_JPRB &
+  &, 0.589471E-01_JPRB, 0.554302E-01_JPRB, 0.520837E-01_JPRB &
+  &, 0.489190E-01_JPRB, 0.459479E-01_JPRB, 0.430796E-01_JPRB, 0.403740E-01_JPRB &
+  &, 0.377881E-01_JPRB, 0.353837E-01_JPRB, 0.331167E-01_JPRB &
+  &, 0.309403E-01_JPRB, 0.288607E-01_JPRB, 0.269406E-01_JPRB, 0.251312E-01_JPRB &
+  &, 0.234391E-01_JPRB, 0.218117E-01_JPRB, 0.203130E-01_JPRB &
+  &, 0.188891E-01_JPRB, 0.175443E-01_JPRB, 0.162832E-01_JPRB, 0.151102E-01_JPRB &
+  &, 0.140300E-01_JPRB, 0.129824E-01_JPRB, 0.120351E-01_JPRB/)
+XCW( 605, :) = (/ &
+  &  0.102338E+01_JPRB, 0.102822E+01_JPRB, 0.103266E+01_JPRB, 0.103668E+01_JPRB &
+  &, 0.104028E+01_JPRB, 0.104347E+01_JPRB, 0.104623E+01_JPRB &
+  &, 0.104857E+01_JPRB, 0.105047E+01_JPRB, 0.105195E+01_JPRB, 0.105299E+01_JPRB &
+  &, 0.105359E+01_JPRB, 0.105375E+01_JPRB, 0.105348E+01_JPRB &
+  &, 0.105277E+01_JPRB, 0.105161E+01_JPRB, 0.105001E+01_JPRB, 0.104797E+01_JPRB &
+  &, 0.104548E+01_JPRB, 0.104255E+01_JPRB, 0.103919E+01_JPRB &
+  &, 0.103538E+01_JPRB, 0.103113E+01_JPRB, 0.102644E+01_JPRB, 0.102133E+01_JPRB &
+  &, 0.101578E+01_JPRB, 0.100981E+01_JPRB, 0.100341E+01_JPRB &
+  &, 0.996602E+00_JPRB, 0.989378E+00_JPRB, 0.981746E+00_JPRB, 0.973722E+00_JPRB &
+  &, 0.965302E+00_JPRB, 0.956498E+00_JPRB, 0.947316E+00_JPRB &
+  &, 0.937767E+00_JPRB, 0.927868E+00_JPRB, 0.917610E+00_JPRB, 0.907026E+00_JPRB &
+  &, 0.896107E+00_JPRB, 0.884883E+00_JPRB, 0.873341E+00_JPRB &
+  &, 0.861520E+00_JPRB, 0.849423E+00_JPRB, 0.837054E+00_JPRB, 0.824440E+00_JPRB &
+  &, 0.811580E+00_JPRB, 0.798507E+00_JPRB, 0.785222E+00_JPRB &
+  &, 0.771739E+00_JPRB, 0.758072E+00_JPRB, 0.744254E+00_JPRB, 0.730287E+00_JPRB &
+  &, 0.716180E+00_JPRB, 0.701949E+00_JPRB, 0.687633E+00_JPRB &
+  &, 0.673208E+00_JPRB, 0.658727E+00_JPRB, 0.644199E+00_JPRB, 0.629614E+00_JPRB &
+  &, 0.615012E+00_JPRB, 0.600383E+00_JPRB, 0.585786E+00_JPRB &
+  &, 0.571193E+00_JPRB, 0.556627E+00_JPRB, 0.542130E+00_JPRB, 0.527670E+00_JPRB &
+  &, 0.513308E+00_JPRB, 0.499028E+00_JPRB, 0.484852E+00_JPRB &
+  &, 0.470781E+00_JPRB, 0.456858E+00_JPRB, 0.443061E+00_JPRB, 0.429409E+00_JPRB &
+  &, 0.415922E+00_JPRB, 0.402594E+00_JPRB, 0.389467E+00_JPRB &
+  &, 0.376509E+00_JPRB, 0.363762E+00_JPRB, 0.351239E+00_JPRB, 0.338904E+00_JPRB &
+  &, 0.326794E+00_JPRB, 0.314922E+00_JPRB, 0.303271E+00_JPRB &
+  &, 0.291877E+00_JPRB, 0.280722E+00_JPRB, 0.269811E+00_JPRB, 0.259149E+00_JPRB &
+  &, 0.248742E+00_JPRB, 0.238592E+00_JPRB, 0.228701E+00_JPRB &
+  &, 0.219100E+00_JPRB, 0.209726E+00_JPRB, 0.200639E+00_JPRB, 0.191805E+00_JPRB &
+  &, 0.183251E+00_JPRB, 0.174938E+00_JPRB, 0.166890E+00_JPRB &
+  &, 0.159136E+00_JPRB, 0.151593E+00_JPRB, 0.144320E+00_JPRB, 0.137305E+00_JPRB &
+  &, 0.130572E+00_JPRB, 0.124027E+00_JPRB, 0.117769E+00_JPRB &
+  &, 0.111741E+00_JPRB, 0.105962E+00_JPRB, 0.100369E+00_JPRB, 0.950215E-01_JPRB &
+  &, 0.898954E-01_JPRB, 0.850079E-01_JPRB, 0.803327E-01_JPRB &
+  &, 0.758409E-01_JPRB, 0.715467E-01_JPRB, 0.674645E-01_JPRB, 0.635624E-01_JPRB &
+  &, 0.598531E-01_JPRB, 0.563015E-01_JPRB, 0.529189E-01_JPRB &
+  &, 0.497167E-01_JPRB, 0.466562E-01_JPRB, 0.437983E-01_JPRB, 0.410510E-01_JPRB &
+  &, 0.384750E-01_JPRB, 0.359732E-01_JPRB, 0.336603E-01_JPRB &
+  &, 0.314917E-01_JPRB, 0.294198E-01_JPRB, 0.274508E-01_JPRB, 0.255911E-01_JPRB &
+  &, 0.238471E-01_JPRB, 0.222252E-01_JPRB, 0.206723E-01_JPRB &
+  &, 0.192533E-01_JPRB, 0.179135E-01_JPRB, 0.165949E-01_JPRB, 0.154261E-01_JPRB &
+  &, 0.142861E-01_JPRB, 0.132418E-01_JPRB, 0.122980E-01_JPRB/)
+XCW( 606, :) = (/ &
+  &  0.102364E+01_JPRB, 0.102855E+01_JPRB, 0.103306E+01_JPRB, 0.103714E+01_JPRB &
+  &, 0.104082E+01_JPRB, 0.104407E+01_JPRB, 0.104690E+01_JPRB &
+  &, 0.104930E+01_JPRB, 0.105128E+01_JPRB, 0.105282E+01_JPRB, 0.105393E+01_JPRB &
+  &, 0.105460E+01_JPRB, 0.105484E+01_JPRB, 0.105463E+01_JPRB &
+  &, 0.105398E+01_JPRB, 0.105290E+01_JPRB, 0.105136E+01_JPRB, 0.104939E+01_JPRB &
+  &, 0.104697E+01_JPRB, 0.104411E+01_JPRB, 0.104080E+01_JPRB &
+  &, 0.103706E+01_JPRB, 0.103287E+01_JPRB, 0.102825E+01_JPRB, 0.102320E+01_JPRB &
+  &, 0.101771E+01_JPRB, 0.101180E+01_JPRB, 0.100546E+01_JPRB &
+  &, 0.998710E+00_JPRB, 0.991546E+00_JPRB, 0.983972E+00_JPRB, 0.976000E+00_JPRB &
+  &, 0.967633E+00_JPRB, 0.958883E+00_JPRB, 0.949720E+00_JPRB &
+  &, 0.940259E+00_JPRB, 0.930395E+00_JPRB, 0.920191E+00_JPRB, 0.909653E+00_JPRB &
+  &, 0.898779E+00_JPRB, 0.887591E+00_JPRB, 0.876095E+00_JPRB &
+  &, 0.864311E+00_JPRB, 0.852250E+00_JPRB, 0.839916E+00_JPRB, 0.827326E+00_JPRB &
+  &, 0.814500E+00_JPRB, 0.801449E+00_JPRB, 0.788198E+00_JPRB &
+  &, 0.774735E+00_JPRB, 0.761101E+00_JPRB, 0.747300E+00_JPRB, 0.733336E+00_JPRB &
+  &, 0.719243E+00_JPRB, 0.705041E+00_JPRB, 0.690722E+00_JPRB &
+  &, 0.676323E+00_JPRB, 0.661836E+00_JPRB, 0.647298E+00_JPRB, 0.632717E+00_JPRB &
+  &, 0.618118E+00_JPRB, 0.603438E+00_JPRB, 0.588875E+00_JPRB &
+  &, 0.574278E+00_JPRB, 0.559725E+00_JPRB, 0.545202E+00_JPRB, 0.530731E+00_JPRB &
+  &, 0.516356E+00_JPRB, 0.496885E+00_JPRB, 0.487846E+00_JPRB &
+  &, 0.473755E+00_JPRB, 0.459808E+00_JPRB, 0.445985E+00_JPRB, 0.432304E+00_JPRB &
+  &, 0.418784E+00_JPRB, 0.405421E+00_JPRB, 0.392256E+00_JPRB &
+  &, 0.379282E+00_JPRB, 0.366490E+00_JPRB, 0.353920E+00_JPRB, 0.341535E+00_JPRB &
+  &, 0.329398E+00_JPRB, 0.317469E+00_JPRB, 0.305785E+00_JPRB &
+  &, 0.294328E+00_JPRB, 0.283134E+00_JPRB, 0.272181E+00_JPRB, 0.261476E+00_JPRB &
+  &, 0.251022E+00_JPRB, 0.240822E+00_JPRB, 0.230878E+00_JPRB &
+  &, 0.221221E+00_JPRB, 0.211821E+00_JPRB, 0.202673E+00_JPRB, 0.193775E+00_JPRB &
+  &, 0.185154E+00_JPRB, 0.176804E+00_JPRB, 0.168719E+00_JPRB &
+  &, 0.160889E+00_JPRB, 0.153303E+00_JPRB, 0.145985E+00_JPRB, 0.138923E+00_JPRB &
+  &, 0.132102E+00_JPRB, 0.125544E+00_JPRB, 0.119232E+00_JPRB &
+  &, 0.113147E+00_JPRB, 0.107309E+00_JPRB, 0.101697E+00_JPRB, 0.962861E-01_JPRB &
+  &, 0.911372E-01_JPRB, 0.861824E-01_JPRB, 0.814373E-01_JPRB &
+  &, 0.769178E-01_JPRB, 0.725947E-01_JPRB, 0.684361E-01_JPRB, 0.645018E-01_JPRB &
+  &, 0.607114E-01_JPRB, 0.571727E-01_JPRB, 0.537540E-01_JPRB &
+  &, 0.505144E-01_JPRB, 0.474151E-01_JPRB, 0.445170E-01_JPRB, 0.417281E-01_JPRB &
+  &, 0.391090E-01_JPRB, 0.366164E-01_JPRB, 0.342583E-01_JPRB &
+  &, 0.320430E-01_JPRB, 0.299230E-01_JPRB, 0.279611E-01_JPRB, 0.260510E-01_JPRB &
+  &, 0.243134E-01_JPRB, 0.226388E-01_JPRB, 0.210915E-01_JPRB &
+  &, 0.196175E-01_JPRB, 0.182211E-01_JPRB, 0.169690E-01_JPRB, 0.157420E-01_JPRB &
+  &, 0.146062E-01_JPRB, 0.135661E-01_JPRB, 0.125608E-01_JPRB/)
+XCW( 607, :) = (/ &
+  &  0.102391E+01_JPRB, 0.102888E+01_JPRB, 0.103346E+01_JPRB, 0.103761E+01_JPRB &
+  &, 0.104135E+01_JPRB, 0.104467E+01_JPRB, 0.104757E+01_JPRB &
+  &, 0.105004E+01_JPRB, 0.105209E+01_JPRB, 0.105370E+01_JPRB, 0.105488E+01_JPRB &
+  &, 0.105562E+01_JPRB, 0.105592E+01_JPRB, 0.105578E+01_JPRB &
+  &, 0.105520E+01_JPRB, 0.105418E+01_JPRB, 0.105272E+01_JPRB, 0.105081E+01_JPRB &
+  &, 0.104846E+01_JPRB, 0.104566E+01_JPRB, 0.104242E+01_JPRB &
+  &, 0.103874E+01_JPRB, 0.103462E+01_JPRB, 0.103006E+01_JPRB, 0.102507E+01_JPRB &
+  &, 0.101965E+01_JPRB, 0.101380E+01_JPRB, 0.100752E+01_JPRB &
+  &, 0.100083E+01_JPRB, 0.993718E+00_JPRB, 0.986202E+00_JPRB, 0.978285E+00_JPRB &
+  &, 0.969972E+00_JPRB, 0.961276E+00_JPRB, 0.952197E+00_JPRB &
+  &, 0.942752E+00_JPRB, 0.932941E+00_JPRB, 0.922782E+00_JPRB, 0.912280E+00_JPRB &
+  &, 0.901452E+00_JPRB, 0.890310E+00_JPRB, 0.878850E+00_JPRB &
+  &, 0.867102E+00_JPRB, 0.855076E+00_JPRB, 0.842778E+00_JPRB, 0.830224E+00_JPRB &
+  &, 0.817433E+00_JPRB, 0.804417E+00_JPRB, 0.791174E+00_JPRB &
+  &, 0.777744E+00_JPRB, 0.764129E+00_JPRB, 0.750346E+00_JPRB, 0.736413E+00_JPRB &
+  &, 0.722336E+00_JPRB, 0.708133E+00_JPRB, 0.693826E+00_JPRB &
+  &, 0.679438E+00_JPRB, 0.664959E+00_JPRB, 0.650429E+00_JPRB, 0.635854E+00_JPRB &
+  &, 0.621242E+00_JPRB, 0.606615E+00_JPRB, 0.591999E+00_JPRB &
+  &, 0.577399E+00_JPRB, 0.562822E+00_JPRB, 0.548292E+00_JPRB, 0.533811E+00_JPRB &
+  &, 0.519404E+00_JPRB, 0.505093E+00_JPRB, 0.490861E+00_JPRB &
+  &, 0.476749E+00_JPRB, 0.462779E+00_JPRB, 0.448886E+00_JPRB, 0.435221E+00_JPRB &
+  &, 0.421669E+00_JPRB, 0.408272E+00_JPRB, 0.395069E+00_JPRB &
+  &, 0.382055E+00_JPRB, 0.369244E+00_JPRB, 0.356627E+00_JPRB, 0.344218E+00_JPRB &
+  &, 0.332028E+00_JPRB, 0.320043E+00_JPRB, 0.308326E+00_JPRB &
+  &, 0.296834E+00_JPRB, 0.285574E+00_JPRB, 0.274580E+00_JPRB, 0.263802E+00_JPRB &
+  &, 0.253301E+00_JPRB, 0.243082E+00_JPRB, 0.233086E+00_JPRB &
+  &, 0.223375E+00_JPRB, 0.213884E+00_JPRB, 0.204708E+00_JPRB, 0.195779E+00_JPRB &
+  &, 0.187091E+00_JPRB, 0.178671E+00_JPRB, 0.170548E+00_JPRB &
+  &, 0.162642E+00_JPRB, 0.155013E+00_JPRB, 0.147650E+00_JPRB, 0.140541E+00_JPRB &
+  &, 0.133670E+00_JPRB, 0.127061E+00_JPRB, 0.120694E+00_JPRB &
+  &, 0.114553E+00_JPRB, 0.108656E+00_JPRB, 0.102983E+00_JPRB, 0.975506E-01_JPRB &
+  &, 0.923363E-01_JPRB, 0.873569E-01_JPRB, 0.825418E-01_JPRB &
+  &, 0.779947E-01_JPRB, 0.735971E-01_JPRB, 0.694539E-01_JPRB, 0.654412E-01_JPRB &
+  &, 0.616650E-01_JPRB, 0.580439E-01_JPRB, 0.545891E-01_JPRB &
+  &, 0.513121E-01_JPRB, 0.481740E-01_JPRB, 0.452357E-01_JPRB, 0.424052E-01_JPRB &
+  &, 0.397431E-01_JPRB, 0.372596E-01_JPRB, 0.348563E-01_JPRB &
+  &, 0.325944E-01_JPRB, 0.304821E-01_JPRB, 0.284714E-01_JPRB, 0.265684E-01_JPRB &
+  &, 0.247796E-01_JPRB, 0.231115E-01_JPRB, 0.215108E-01_JPRB &
+  &, 0.199817E-01_JPRB, 0.185902E-01_JPRB, 0.172808E-01_JPRB, 0.160580E-01_JPRB &
+  &, 0.149263E-01_JPRB, 0.138256E-01_JPRB, 0.128237E-01_JPRB/)
+XCW( 608, :) = (/ &
+  &  0.102417E+01_JPRB, 0.102922E+01_JPRB, 0.103386E+01_JPRB, 0.103808E+01_JPRB &
+  &, 0.104189E+01_JPRB, 0.104528E+01_JPRB, 0.104824E+01_JPRB &
+  &, 0.105079E+01_JPRB, 0.105290E+01_JPRB, 0.105458E+01_JPRB, 0.105582E+01_JPRB &
+  &, 0.105663E+01_JPRB, 0.105701E+01_JPRB, 0.105694E+01_JPRB &
+  &, 0.105643E+01_JPRB, 0.105547E+01_JPRB, 0.105407E+01_JPRB, 0.105223E+01_JPRB &
+  &, 0.104995E+01_JPRB, 0.104722E+01_JPRB, 0.104404E+01_JPRB &
+  &, 0.104043E+01_JPRB, 0.103637E+01_JPRB, 0.103188E+01_JPRB, 0.102695E+01_JPRB &
+  &, 0.102159E+01_JPRB, 0.101580E+01_JPRB, 0.100958E+01_JPRB &
+  &, 0.100295E+01_JPRB, 0.995897E+00_JPRB, 0.988436E+00_JPRB, 0.980575E+00_JPRB &
+  &, 0.972319E+00_JPRB, 0.963674E+00_JPRB, 0.954646E+00_JPRB &
+  &, 0.945245E+00_JPRB, 0.935487E+00_JPRB, 0.925373E+00_JPRB, 0.914926E+00_JPRB &
+  &, 0.904134E+00_JPRB, 0.893029E+00_JPRB, 0.881616E+00_JPRB &
+  &, 0.869915E+00_JPRB, 0.857914E+00_JPRB, 0.845652E+00_JPRB, 0.833133E+00_JPRB &
+  &, 0.820377E+00_JPRB, 0.807384E+00_JPRB, 0.794175E+00_JPRB &
+  &, 0.780766E+00_JPRB, 0.767170E+00_JPRB, 0.753406E+00_JPRB, 0.739490E+00_JPRB &
+  &, 0.725428E+00_JPRB, 0.711240E+00_JPRB, 0.696946E+00_JPRB &
+  &, 0.682553E+00_JPRB, 0.668099E+00_JPRB, 0.653560E+00_JPRB, 0.638991E+00_JPRB &
+  &, 0.624382E+00_JPRB, 0.609757E+00_JPRB, 0.595123E+00_JPRB &
+  &, 0.580521E+00_JPRB, 0.565939E+00_JPRB, 0.551382E+00_JPRB, 0.536891E+00_JPRB &
+  &, 0.522472E+00_JPRB, 0.508146E+00_JPRB, 0.493897E+00_JPRB &
+  &, 0.479765E+00_JPRB, 0.465751E+00_JPRB, 0.451876E+00_JPRB, 0.438137E+00_JPRB &
+  &, 0.424555E+00_JPRB, 0.411146E+00_JPRB, 0.397907E+00_JPRB &
+  &, 0.384852E+00_JPRB, 0.371998E+00_JPRB, 0.359334E+00_JPRB, 0.346875E+00_JPRB &
+  &, 0.334658E+00_JPRB, 0.322643E+00_JPRB, 0.310868E+00_JPRB &
+  &, 0.299340E+00_JPRB, 0.288042E+00_JPRB, 0.276980E+00_JPRB, 0.266187E+00_JPRB &
+  &, 0.255611E+00_JPRB, 0.245343E+00_JPRB, 0.235294E+00_JPRB &
+  &, 0.225528E+00_JPRB, 0.216011E+00_JPRB, 0.206742E+00_JPRB, 0.197782E+00_JPRB &
+  &, 0.189061E+00_JPRB, 0.180573E+00_JPRB, 0.172377E+00_JPRB &
+  &, 0.164466E+00_JPRB, 0.156759E+00_JPRB, 0.149352E+00_JPRB, 0.142196E+00_JPRB &
+  &, 0.135277E+00_JPRB, 0.128577E+00_JPRB, 0.122157E+00_JPRB &
+  &, 0.116000E+00_JPRB, 0.110045E+00_JPRB, 0.104310E+00_JPRB, 0.988574E-01_JPRB &
+  &, 0.935781E-01_JPRB, 0.885314E-01_JPRB, 0.836906E-01_JPRB &
+  &, 0.790716E-01_JPRB, 0.746451E-01_JPRB, 0.704255E-01_JPRB, 0.664276E-01_JPRB &
+  &, 0.625710E-01_JPRB, 0.589152E-01_JPRB, 0.554243E-01_JPRB &
+  &, 0.521098E-01_JPRB, 0.489835E-01_JPRB, 0.459544E-01_JPRB, 0.431343E-01_JPRB &
+  &, 0.404299E-01_JPRB, 0.379027E-01_JPRB, 0.354543E-01_JPRB &
+  &, 0.332008E-01_JPRB, 0.310412E-01_JPRB, 0.289816E-01_JPRB, 0.270283E-01_JPRB &
+  &, 0.252459E-01_JPRB, 0.235251E-01_JPRB, 0.219300E-01_JPRB &
+  &, 0.204067E-01_JPRB, 0.189594E-01_JPRB, 0.176549E-01_JPRB, 0.163739E-01_JPRB &
+  &, 0.152464E-01_JPRB, 0.140850E-01_JPRB, 0.130865E-01_JPRB/)
+XCW( 609, :) = (/ &
+  &  0.102444E+01_JPRB, 0.102955E+01_JPRB, 0.103425E+01_JPRB, 0.103855E+01_JPRB &
+  &, 0.104242E+01_JPRB, 0.104588E+01_JPRB, 0.104892E+01_JPRB &
+  &, 0.105153E+01_JPRB, 0.105371E+01_JPRB, 0.105546E+01_JPRB, 0.105677E+01_JPRB &
+  &, 0.105765E+01_JPRB, 0.105809E+01_JPRB, 0.105807E+01_JPRB &
+  &, 0.105765E+01_JPRB, 0.105676E+01_JPRB, 0.105543E+01_JPRB, 0.105366E+01_JPRB &
+  &, 0.105144E+01_JPRB, 0.104878E+01_JPRB, 0.104567E+01_JPRB &
+  &, 0.104212E+01_JPRB, 0.103813E+01_JPRB, 0.103370E+01_JPRB, 0.102883E+01_JPRB &
+  &, 0.102353E+01_JPRB, 0.101780E+01_JPRB, 0.101163E+01_JPRB &
+  &, 0.100507E+01_JPRB, 0.998077E+00_JPRB, 0.990678E+00_JPRB, 0.982870E+00_JPRB &
+  &, 0.974667E+00_JPRB, 0.966076E+00_JPRB, 0.957100E+00_JPRB &
+  &, 0.947756E+00_JPRB, 0.938043E+00_JPRB, 0.927974E+00_JPRB, 0.917573E+00_JPRB &
+  &, 0.906827E+00_JPRB, 0.895769E+00_JPRB, 0.884392E+00_JPRB &
+  &, 0.872728E+00_JPRB, 0.860775E+00_JPRB, 0.848537E+00_JPRB, 0.836054E+00_JPRB &
+  &, 0.823322E+00_JPRB, 0.810364E+00_JPRB, 0.797177E+00_JPRB &
+  &, 0.783788E+00_JPRB, 0.770226E+00_JPRB, 0.756480E+00_JPRB, 0.742581E+00_JPRB &
+  &, 0.728535E+00_JPRB, 0.714361E+00_JPRB, 0.700080E+00_JPRB &
+  &, 0.685699E+00_JPRB, 0.671239E+00_JPRB, 0.656724E+00_JPRB, 0.642144E+00_JPRB &
+  &, 0.627539E+00_JPRB, 0.612899E+00_JPRB, 0.598282E+00_JPRB &
+  &, 0.583660E+00_JPRB, 0.569055E+00_JPRB, 0.554510E+00_JPRB, 0.539990E+00_JPRB &
+  &, 0.525559E+00_JPRB, 0.511199E+00_JPRB, 0.496953E+00_JPRB &
+  &, 0.482801E+00_JPRB, 0.468765E+00_JPRB, 0.454843E+00_JPRB, 0.441077E+00_JPRB &
+  &, 0.427486E+00_JPRB, 0.414021E+00_JPRB, 0.400768E+00_JPRB &
+  &, 0.387673E+00_JPRB, 0.374776E+00_JPRB, 0.362067E+00_JPRB, 0.349584E+00_JPRB &
+  &, 0.337314E+00_JPRB, 0.325271E+00_JPRB, 0.313436E+00_JPRB &
+  &, 0.301847E+00_JPRB, 0.290511E+00_JPRB, 0.279408E+00_JPRB, 0.268543E+00_JPRB &
+  &, 0.257950E+00_JPRB, 0.247603E+00_JPRB, 0.237534E+00_JPRB &
+  &, 0.227681E+00_JPRB, 0.218139E+00_JPRB, 0.208842E+00_JPRB, 0.199785E+00_JPRB &
+  &, 0.190998E+00_JPRB, 0.182509E+00_JPRB, 0.174241E+00_JPRB &
+  &, 0.166255E+00_JPRB, 0.158542E+00_JPRB, 0.151054E+00_JPRB, 0.143814E+00_JPRB &
+  &, 0.136845E+00_JPRB, 0.130133E+00_JPRB, 0.123659E+00_JPRB &
+  &, 0.117446E+00_JPRB, 0.111433E+00_JPRB, 0.105679E+00_JPRB, 0.100122E+00_JPRB &
+  &, 0.948200E-01_JPRB, 0.897494E-01_JPRB, 0.848835E-01_JPRB &
+  &, 0.801934E-01_JPRB, 0.757386E-01_JPRB, 0.714896E-01_JPRB, 0.674140E-01_JPRB &
+  &, 0.635247E-01_JPRB, 0.598348E-01_JPRB, 0.563086E-01_JPRB &
+  &, 0.529574E-01_JPRB, 0.497423E-01_JPRB, 0.467244E-01_JPRB, 0.438635E-01_JPRB &
+  &, 0.411168E-01_JPRB, 0.385459E-01_JPRB, 0.360523E-01_JPRB &
+  &, 0.337522E-01_JPRB, 0.315444E-01_JPRB, 0.294919E-01_JPRB, 0.275456E-01_JPRB &
+  &, 0.257121E-01_JPRB, 0.239977E-01_JPRB, 0.223492E-01_JPRB &
+  &, 0.208316E-01_JPRB, 0.193285E-01_JPRB, 0.180290E-01_JPRB, 0.167529E-01_JPRB &
+  &, 0.155024E-01_JPRB, 0.144093E-01_JPRB, 0.133494E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART87',1,ZHOOK_HANDLE)
+END SUBROUTINE PART87
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART88
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART88',0,ZHOOK_HANDLE)
+
+XCW( 610, :) = (/ &
+  &  0.102470E+01_JPRB, 0.102988E+01_JPRB, 0.103466E+01_JPRB, 0.103902E+01_JPRB &
+  &, 0.104296E+01_JPRB, 0.104649E+01_JPRB, 0.104959E+01_JPRB &
+  &, 0.105227E+01_JPRB, 0.105452E+01_JPRB, 0.105634E+01_JPRB, 0.105772E+01_JPRB &
+  &, 0.105867E+01_JPRB, 0.105918E+01_JPRB, 0.105925E+01_JPRB &
+  &, 0.105887E+01_JPRB, 0.105806E+01_JPRB, 0.105679E+01_JPRB, 0.105509E+01_JPRB &
+  &, 0.105294E+01_JPRB, 0.105034E+01_JPRB, 0.104730E+01_JPRB &
+  &, 0.104381E+01_JPRB, 0.103988E+01_JPRB, 0.103552E+01_JPRB, 0.103072E+01_JPRB &
+  &, 0.102548E+01_JPRB, 0.101981E+01_JPRB, 0.101372E+01_JPRB &
+  &, 0.100720E+01_JPRB, 0.100026E+01_JPRB, 0.992921E+00_JPRB, 0.985172E+00_JPRB &
+  &, 0.977023E+00_JPRB, 0.968483E+00_JPRB, 0.959563E+00_JPRB &
+  &, 0.950268E+00_JPRB, 0.940599E+00_JPRB, 0.930585E+00_JPRB, 0.920230E+00_JPRB &
+  &, 0.909531E+00_JPRB, 0.898509E+00_JPRB, 0.887180E+00_JPRB &
+  &, 0.875551E+00_JPRB, 0.863624E+00_JPRB, 0.851434E+00_JPRB, 0.838976E+00_JPRB &
+  &, 0.826279E+00_JPRB, 0.813343E+00_JPRB, 0.800191E+00_JPRB &
+  &, 0.786836E+00_JPRB, 0.773281E+00_JPRB, 0.759540E+00_JPRB, 0.745672E+00_JPRB &
+  &, 0.731642E+00_JPRB, 0.717498E+00_JPRB, 0.703215E+00_JPRB &
+  &, 0.688845E+00_JPRB, 0.674395E+00_JPRB, 0.659888E+00_JPRB, 0.645314E+00_JPRB &
+  &, 0.630697E+00_JPRB, 0.616076E+00_JPRB, 0.601442E+00_JPRB &
+  &, 0.586799E+00_JPRB, 0.572208E+00_JPRB, 0.557638E+00_JPRB, 0.543109E+00_JPRB &
+  &, 0.528666E+00_JPRB, 0.514292E+00_JPRB, 0.500009E+00_JPRB &
+  &, 0.485838E+00_JPRB, 0.471780E+00_JPRB, 0.457833E+00_JPRB, 0.444061E+00_JPRB &
+  &, 0.430417E+00_JPRB, 0.416942E+00_JPRB, 0.403629E+00_JPRB &
+  &, 0.390494E+00_JPRB, 0.377555E+00_JPRB, 0.364824E+00_JPRB, 0.352292E+00_JPRB &
+  &, 0.339971E+00_JPRB, 0.327898E+00_JPRB, 0.316032E+00_JPRB &
+  &, 0.304381E+00_JPRB, 0.293008E+00_JPRB, 0.281865E+00_JPRB, 0.270958E+00_JPRB &
+  &, 0.260290E+00_JPRB, 0.249894E+00_JPRB, 0.239773E+00_JPRB &
+  &, 0.229898E+00_JPRB, 0.220266E+00_JPRB, 0.210909E+00_JPRB, 0.201822E+00_JPRB &
+  &, 0.193003E+00_JPRB, 0.184445E+00_JPRB, 0.176140E+00_JPRB &
+  &, 0.168080E+00_JPRB, 0.160289E+00_JPRB, 0.152757E+00_JPRB, 0.145508E+00_JPRB &
+  &, 0.138490E+00_JPRB, 0.131688E+00_JPRB, 0.125201E+00_JPRB &
+  &, 0.118892E+00_JPRB, 0.112862E+00_JPRB, 0.107049E+00_JPRB, 0.101471E+00_JPRB &
+  &, 0.961047E-01_JPRB, 0.909674E-01_JPRB, 0.860322E-01_JPRB &
+  &, 0.813151E-01_JPRB, 0.768322E-01_JPRB, 0.725074E-01_JPRB, 0.684004E-01_JPRB &
+  &, 0.644784E-01_JPRB, 0.607060E-01_JPRB, 0.571437E-01_JPRB &
+  &, 0.537551E-01_JPRB, 0.505518E-01_JPRB, 0.474944E-01_JPRB, 0.445406E-01_JPRB &
+  &, 0.418037E-01_JPRB, 0.391890E-01_JPRB, 0.367046E-01_JPRB &
+  &, 0.343587E-01_JPRB, 0.321595E-01_JPRB, 0.300588E-01_JPRB, 0.280630E-01_JPRB &
+  &, 0.261784E-01_JPRB, 0.244113E-01_JPRB, 0.227685E-01_JPRB &
+  &, 0.211958E-01_JPRB, 0.197592E-01_JPRB, 0.183407E-01_JPRB, 0.170688E-01_JPRB &
+  &, 0.158225E-01_JPRB, 0.147336E-01_JPRB, 0.136779E-01_JPRB/)
+XCW( 611, :) = (/ &
+  &  0.102497E+01_JPRB, 0.103021E+01_JPRB, 0.103506E+01_JPRB, 0.103948E+01_JPRB &
+  &, 0.104350E+01_JPRB, 0.104710E+01_JPRB, 0.105027E+01_JPRB &
+  &, 0.105302E+01_JPRB, 0.105533E+01_JPRB, 0.105722E+01_JPRB, 0.105868E+01_JPRB &
+  &, 0.105969E+01_JPRB, 0.106027E+01_JPRB, 0.106041E+01_JPRB &
+  &, 0.106010E+01_JPRB, 0.105935E+01_JPRB, 0.105816E+01_JPRB, 0.105652E+01_JPRB &
+  &, 0.105443E+01_JPRB, 0.105190E+01_JPRB, 0.104893E+01_JPRB &
+  &, 0.104551E+01_JPRB, 0.104165E+01_JPRB, 0.103735E+01_JPRB, 0.103261E+01_JPRB &
+  &, 0.102743E+01_JPRB, 0.102183E+01_JPRB, 0.101579E+01_JPRB &
+  &, 0.100933E+01_JPRB, 0.100246E+01_JPRB, 0.995171E+00_JPRB, 0.987475E+00_JPRB &
+  &, 0.979383E+00_JPRB, 0.970899E+00_JPRB, 0.962031E+00_JPRB &
+  &, 0.952779E+00_JPRB, 0.943174E+00_JPRB, 0.933206E+00_JPRB, 0.922886E+00_JPRB &
+  &, 0.912234E+00_JPRB, 0.901259E+00_JPRB, 0.889967E+00_JPRB &
+  &, 0.878376E+00_JPRB, 0.866496E+00_JPRB, 0.854331E+00_JPRB, 0.841921E+00_JPRB &
+  &, 0.829248E+00_JPRB, 0.816348E+00_JPRB, 0.803218E+00_JPRB &
+  &, 0.789885E+00_JPRB, 0.776363E+00_JPRB, 0.762655E+00_JPRB, 0.748791E+00_JPRB &
+  &, 0.734778E+00_JPRB, 0.720634E+00_JPRB, 0.706380E+00_JPRB &
+  &, 0.692022E+00_JPRB, 0.677567E+00_JPRB, 0.663052E+00_JPRB, 0.648484E+00_JPRB &
+  &, 0.633888E+00_JPRB, 0.619253E+00_JPRB, 0.604601E+00_JPRB &
+  &, 0.589975E+00_JPRB, 0.575361E+00_JPRB, 0.560784E+00_JPRB, 0.546248E+00_JPRB &
+  &, 0.531794E+00_JPRB, 0.517386E+00_JPRB, 0.503086E+00_JPRB &
+  &, 0.488896E+00_JPRB, 0.474816E+00_JPRB, 0.460845E+00_JPRB, 0.447023E+00_JPRB &
+  &, 0.433348E+00_JPRB, 0.419839E+00_JPRB, 0.406514E+00_JPRB &
+  &, 0.393340E+00_JPRB, 0.380383E+00_JPRB, 0.367607E+00_JPRB, 0.355027E+00_JPRB &
+  &, 0.342680E+00_JPRB, 0.330526E+00_JPRB, 0.318628E+00_JPRB &
+  &, 0.306943E+00_JPRB, 0.295505E+00_JPRB, 0.284323E+00_JPRB, 0.273373E+00_JPRB &
+  &, 0.262659E+00_JPRB, 0.252215E+00_JPRB, 0.242043E+00_JPRB &
+  &, 0.232114E+00_JPRB, 0.222426E+00_JPRB, 0.213041E+00_JPRB, 0.203892E+00_JPRB &
+  &, 0.195008E+00_JPRB, 0.186381E+00_JPRB, 0.178039E+00_JPRB &
+  &, 0.169940E+00_JPRB, 0.162108E+00_JPRB, 0.154496E+00_JPRB, 0.147201E+00_JPRB &
+  &, 0.140097E+00_JPRB, 0.133283E+00_JPRB, 0.126703E+00_JPRB &
+  &, 0.120379E+00_JPRB, 0.114291E+00_JPRB, 0.108418E+00_JPRB, 0.102778E+00_JPRB &
+  &, 0.973894E-01_JPRB, 0.921854E-01_JPRB, 0.872251E-01_JPRB &
+  &, 0.824817E-01_JPRB, 0.779257E-01_JPRB, 0.735715E-01_JPRB, 0.693868E-01_JPRB &
+  &, 0.654320E-01_JPRB, 0.616741E-01_JPRB, 0.580280E-01_JPRB &
+  &, 0.546026E-01_JPRB, 0.513613E-01_JPRB, 0.482644E-01_JPRB, 0.453218E-01_JPRB &
+  &, 0.424906E-01_JPRB, 0.398322E-01_JPRB, 0.373570E-01_JPRB &
+  &, 0.349651E-01_JPRB, 0.327186E-01_JPRB, 0.305691E-01_JPRB, 0.285804E-01_JPRB &
+  &, 0.267029E-01_JPRB, 0.248840E-01_JPRB, 0.231877E-01_JPRB &
+  &, 0.216207E-01_JPRB, 0.201283E-01_JPRB, 0.187148E-01_JPRB, 0.173848E-01_JPRB &
+  &, 0.162066E-01_JPRB, 0.149931E-01_JPRB, 0.139408E-01_JPRB/)
+XCW( 612, :) = (/ &
+  &  0.102523E+01_JPRB, 0.103055E+01_JPRB, 0.103546E+01_JPRB, 0.103995E+01_JPRB &
+  &, 0.104404E+01_JPRB, 0.104770E+01_JPRB, 0.105094E+01_JPRB &
+  &, 0.105376E+01_JPRB, 0.105615E+01_JPRB, 0.105810E+01_JPRB, 0.105963E+01_JPRB &
+  &, 0.106071E+01_JPRB, 0.106136E+01_JPRB, 0.106157E+01_JPRB &
+  &, 0.106133E+01_JPRB, 0.106065E+01_JPRB, 0.105952E+01_JPRB, 0.105795E+01_JPRB &
+  &, 0.105593E+01_JPRB, 0.105347E+01_JPRB, 0.105056E+01_JPRB &
+  &, 0.104721E+01_JPRB, 0.104341E+01_JPRB, 0.103917E+01_JPRB, 0.103450E+01_JPRB &
+  &, 0.102939E+01_JPRB, 0.102384E+01_JPRB, 0.101787E+01_JPRB &
+  &, 0.101147E+01_JPRB, 0.100466E+01_JPRB, 0.997426E+00_JPRB, 0.989790E+00_JPRB &
+  &, 0.981748E+00_JPRB, 0.973319E+00_JPRB, 0.964503E+00_JPRB &
+  &, 0.955309E+00_JPRB, 0.945749E+00_JPRB, 0.935826E+00_JPRB, 0.925553E+00_JPRB &
+  &, 0.914948E+00_JPRB, 0.904020E+00_JPRB, 0.892765E+00_JPRB &
+  &, 0.881211E+00_JPRB, 0.869368E+00_JPRB, 0.857252E+00_JPRB, 0.844866E+00_JPRB &
+  &, 0.832230E+00_JPRB, 0.819353E+00_JPRB, 0.806245E+00_JPRB &
+  &, 0.792946E+00_JPRB, 0.779445E+00_JPRB, 0.765756E+00_JPRB, 0.751911E+00_JPRB &
+  &, 0.737914E+00_JPRB, 0.723785E+00_JPRB, 0.709544E+00_JPRB &
+  &, 0.695199E+00_JPRB, 0.680754E+00_JPRB, 0.666248E+00_JPRB, 0.651687E+00_JPRB &
+  &, 0.637080E+00_JPRB, 0.622447E+00_JPRB, 0.607796E+00_JPRB &
+  &, 0.593151E+00_JPRB, 0.578533E+00_JPRB, 0.563950E+00_JPRB, 0.549405E+00_JPRB &
+  &, 0.534921E+00_JPRB, 0.520499E+00_JPRB, 0.506183E+00_JPRB &
+  &, 0.491975E+00_JPRB, 0.477852E+00_JPRB, 0.463878E+00_JPRB, 0.450030E+00_JPRB &
+  &, 0.436325E+00_JPRB, 0.422784E+00_JPRB, 0.409398E+00_JPRB &
+  &, 0.396210E+00_JPRB, 0.383211E+00_JPRB, 0.370390E+00_JPRB, 0.357787E+00_JPRB &
+  &, 0.345389E+00_JPRB, 0.333207E+00_JPRB, 0.321251E+00_JPRB &
+  &, 0.309533E+00_JPRB, 0.298030E+00_JPRB, 0.286809E+00_JPRB, 0.275787E+00_JPRB &
+  &, 0.265059E+00_JPRB, 0.254567E+00_JPRB, 0.244314E+00_JPRB &
+  &, 0.234331E+00_JPRB, 0.224618E+00_JPRB, 0.215174E+00_JPRB, 0.205963E+00_JPRB &
+  &, 0.197012E+00_JPRB, 0.188351E+00_JPRB, 0.179938E+00_JPRB &
+  &, 0.171800E+00_JPRB, 0.163891E+00_JPRB, 0.156272E+00_JPRB, 0.148894E+00_JPRB &
+  &, 0.141780E+00_JPRB, 0.134877E+00_JPRB, 0.128245E+00_JPRB &
+  &, 0.121865E+00_JPRB, 0.115720E+00_JPRB, 0.109828E+00_JPRB, 0.104126E+00_JPRB &
+  &, 0.986741E-01_JPRB, 0.934468E-01_JPRB, 0.884180E-01_JPRB &
+  &, 0.836035E-01_JPRB, 0.790193E-01_JPRB, 0.746356E-01_JPRB, 0.704202E-01_JPRB &
+  &, 0.664334E-01_JPRB, 0.625937E-01_JPRB, 0.589614E-01_JPRB &
+  &, 0.554502E-01_JPRB, 0.521708E-01_JPRB, 0.490344E-01_JPRB, 0.460510E-01_JPRB &
+  &, 0.432303E-01_JPRB, 0.405289E-01_JPRB, 0.379550E-01_JPRB &
+  &, 0.355716E-01_JPRB, 0.332777E-01_JPRB, 0.311361E-01_JPRB, 0.290978E-01_JPRB &
+  &, 0.271691E-01_JPRB, 0.253567E-01_JPRB, 0.236668E-01_JPRB &
+  &, 0.220457E-01_JPRB, 0.205590E-01_JPRB, 0.190889E-01_JPRB, 0.177638E-01_JPRB &
+  &, 0.165267E-01_JPRB, 0.153174E-01_JPRB, 0.142036E-01_JPRB/)
+XCW( 613, :) = (/ &
+  &  0.102550E+01_JPRB, 0.103088E+01_JPRB, 0.103586E+01_JPRB, 0.104042E+01_JPRB &
+  &, 0.104458E+01_JPRB, 0.104831E+01_JPRB, 0.105162E+01_JPRB &
+  &, 0.105451E+01_JPRB, 0.105696E+01_JPRB, 0.105899E+01_JPRB, 0.106058E+01_JPRB &
+  &, 0.106174E+01_JPRB, 0.106245E+01_JPRB, 0.106273E+01_JPRB &
+  &, 0.106256E+01_JPRB, 0.106195E+01_JPRB, 0.106089E+01_JPRB, 0.105939E+01_JPRB &
+  &, 0.105744E+01_JPRB, 0.105504E+01_JPRB, 0.105220E+01_JPRB &
+  &, 0.104891E+01_JPRB, 0.104518E+01_JPRB, 0.104101E+01_JPRB, 0.103638E+01_JPRB &
+  &, 0.103135E+01_JPRB, 0.102586E+01_JPRB, 0.101995E+01_JPRB &
+  &, 0.101361E+01_JPRB, 0.100686E+01_JPRB, 0.999685E+00_JPRB, 0.992105E+00_JPRB &
+  &, 0.984122E+00_JPRB, 0.975747E+00_JPRB, 0.966975E+00_JPRB &
+  &, 0.957839E+00_JPRB, 0.948324E+00_JPRB, 0.938457E+00_JPRB, 0.928230E+00_JPRB &
+  &, 0.917672E+00_JPRB, 0.906781E+00_JPRB, 0.895574E+00_JPRB &
+  &, 0.884057E+00_JPRB, 0.872252E+00_JPRB, 0.860172E+00_JPRB, 0.847811E+00_JPRB &
+  &, 0.835211E+00_JPRB, 0.822370E+00_JPRB, 0.809298E+00_JPRB &
+  &, 0.796008E+00_JPRB, 0.782540E+00_JPRB, 0.768871E+00_JPRB, 0.755044E+00_JPRB &
+  &, 0.741064E+00_JPRB, 0.726951E+00_JPRB, 0.712724E+00_JPRB &
+  &, 0.698391E+00_JPRB, 0.683957E+00_JPRB, 0.669444E+00_JPRB, 0.654891E+00_JPRB &
+  &, 0.640288E+00_JPRB, 0.625641E+00_JPRB, 0.610991E+00_JPRB &
+  &, 0.596344E+00_JPRB, 0.581724E+00_JPRB, 0.567116E+00_JPRB, 0.552563E+00_JPRB &
+  &, 0.538067E+00_JPRB, 0.523633E+00_JPRB, 0.509301E+00_JPRB &
+  &, 0.495053E+00_JPRB, 0.480931E+00_JPRB, 0.466912E+00_JPRB, 0.453036E+00_JPRB &
+  &, 0.439303E+00_JPRB, 0.425728E+00_JPRB, 0.412331E+00_JPRB &
+  &, 0.399104E+00_JPRB, 0.386039E+00_JPRB, 0.373198E+00_JPRB, 0.360547E+00_JPRB &
+  &, 0.348019E+00_JPRB, 0.335888E+00_JPRB, 0.323902E+00_JPRB &
+  &, 0.312122E+00_JPRB, 0.300584E+00_JPRB, 0.289295E+00_JPRB, 0.278261E+00_JPRB &
+  &, 0.267458E+00_JPRB, 0.256919E+00_JPRB, 0.246615E+00_JPRB &
+  &, 0.236579E+00_JPRB, 0.226810E+00_JPRB, 0.217306E+00_JPRB, 0.208066E+00_JPRB &
+  &, 0.199051E+00_JPRB, 0.190356E+00_JPRB, 0.181873E+00_JPRB &
+  &, 0.173660E+00_JPRB, 0.165710E+00_JPRB, 0.158048E+00_JPRB, 0.150625E+00_JPRB &
+  &, 0.143425E+00_JPRB, 0.136511E+00_JPRB, 0.129826E+00_JPRB &
+  &, 0.123392E+00_JPRB, 0.117190E+00_JPRB, 0.111239E+00_JPRB, 0.105475E+00_JPRB &
+  &, 0.100002E+00_JPRB, 0.947083E-01_JPRB, 0.896551E-01_JPRB &
+  &, 0.847701E-01_JPRB, 0.801584E-01_JPRB, 0.756997E-01_JPRB, 0.714536E-01_JPRB &
+  &, 0.673871E-01_JPRB, 0.635618E-01_JPRB, 0.598456E-01_JPRB &
+  &, 0.563476E-01_JPRB, 0.529803E-01_JPRB, 0.498045E-01_JPRB, 0.467801E-01_JPRB &
+  &, 0.439172E-01_JPRB, 0.412257E-01_JPRB, 0.386617E-01_JPRB &
+  &, 0.361781E-01_JPRB, 0.338928E-01_JPRB, 0.317030E-01_JPRB, 0.296151E-01_JPRB &
+  &, 0.276937E-01_JPRB, 0.258293E-01_JPRB, 0.240861E-01_JPRB &
+  &, 0.224706E-01_JPRB, 0.209281E-01_JPRB, 0.194630E-01_JPRB, 0.181429E-01_JPRB &
+  &, 0.168468E-01_JPRB, 0.156417E-01_JPRB, 0.145322E-01_JPRB/)
+XCW( 614, :) = (/ &
+  &  0.102577E+01_JPRB, 0.103121E+01_JPRB, 0.103626E+01_JPRB, 0.104089E+01_JPRB &
+  &, 0.104511E+01_JPRB, 0.104892E+01_JPRB, 0.105230E+01_JPRB &
+  &, 0.105525E+01_JPRB, 0.105778E+01_JPRB, 0.105988E+01_JPRB, 0.106154E+01_JPRB &
+  &, 0.106276E+01_JPRB, 0.106355E+01_JPRB, 0.106389E+01_JPRB &
+  &, 0.106379E+01_JPRB, 0.106325E+01_JPRB, 0.106226E+01_JPRB, 0.106082E+01_JPRB &
+  &, 0.105894E+01_JPRB, 0.105661E+01_JPRB, 0.105384E+01_JPRB &
+  &, 0.105062E+01_JPRB, 0.104695E+01_JPRB, 0.104284E+01_JPRB, 0.103829E+01_JPRB &
+  &, 0.103331E+01_JPRB, 0.102783E+01_JPRB, 0.102204E+01_JPRB &
+  &, 0.101576E+01_JPRB, 0.100906E+01_JPRB, 0.100195E+01_JPRB, 0.994425E+00_JPRB &
+  &, 0.986500E+00_JPRB, 0.978176E+00_JPRB, 0.969465E+00_JPRB &
+  &, 0.960378E+00_JPRB, 0.950908E+00_JPRB, 0.941087E+00_JPRB, 0.930917E+00_JPRB &
+  &, 0.920395E+00_JPRB, 0.909553E+00_JPRB, 0.898383E+00_JPRB &
+  &, 0.886914E+00_JPRB, 0.875146E+00_JPRB, 0.863104E+00_JPRB, 0.850780E+00_JPRB &
+  &, 0.838205E+00_JPRB, 0.825387E+00_JPRB, 0.812351E+00_JPRB &
+  &, 0.799096E+00_JPRB, 0.785636E+00_JPRB, 0.772000E+00_JPRB, 0.758192E+00_JPRB &
+  &, 0.744229E+00_JPRB, 0.730132E+00_JPRB, 0.715919E+00_JPRB &
+  &, 0.701584E+00_JPRB, 0.687160E+00_JPRB, 0.672673E+00_JPRB, 0.658110E+00_JPRB &
+  &, 0.643496E+00_JPRB, 0.628870E+00_JPRB, 0.614222E+00_JPRB &
+  &, 0.599556E+00_JPRB, 0.584933E+00_JPRB, 0.570320E+00_JPRB, 0.555740E+00_JPRB &
+  &, 0.541234E+00_JPRB, 0.526787E+00_JPRB, 0.512420E+00_JPRB &
+  &, 0.498175E+00_JPRB, 0.484010E+00_JPRB, 0.469967E+00_JPRB, 0.456066E+00_JPRB &
+  &, 0.442302E+00_JPRB, 0.428696E+00_JPRB, 0.415264E+00_JPRB &
+  &, 0.401998E+00_JPRB, 0.388916E+00_JPRB, 0.376032E+00_JPRB, 0.363333E+00_JPRB &
+  &, 0.350859E+00_JPRB, 0.338595E+00_JPRB, 0.326553E+00_JPRB &
+  &, 0.314740E+00_JPRB, 0.303166E+00_JPRB, 0.291810E+00_JPRB, 0.280735E+00_JPRB &
+  &, 0.269887E+00_JPRB, 0.259271E+00_JPRB, 0.248948E+00_JPRB &
+  &, 0.238859E+00_JPRB, 0.229034E+00_JPRB, 0.219472E+00_JPRB, 0.210170E+00_JPRB &
+  &, 0.201124E+00_JPRB, 0.192361E+00_JPRB, 0.183842E+00_JPRB &
+  &, 0.175556E+00_JPRB, 0.167566E+00_JPRB, 0.159824E+00_JPRB, 0.152355E+00_JPRB &
+  &, 0.145108E+00_JPRB, 0.138144E+00_JPRB, 0.131407E+00_JPRB &
+  &, 0.124919E+00_JPRB, 0.118660E+00_JPRB, 0.112649E+00_JPRB, 0.106866E+00_JPRB &
+  &, 0.101329E+00_JPRB, 0.959698E-01_JPRB, 0.908480E-01_JPRB &
+  &, 0.859816E-01_JPRB, 0.812975E-01_JPRB, 0.768101E-01_JPRB, 0.724869E-01_JPRB &
+  &, 0.683884E-01_JPRB, 0.644814E-01_JPRB, 0.607790E-01_JPRB &
+  &, 0.572450E-01_JPRB, 0.538403E-01_JPRB, 0.506258E-01_JPRB, 0.475614E-01_JPRB &
+  &, 0.446569E-01_JPRB, 0.419225E-01_JPRB, 0.393140E-01_JPRB &
+  &, 0.368397E-01_JPRB, 0.345078E-01_JPRB, 0.322700E-01_JPRB, 0.301900E-01_JPRB &
+  &, 0.282182E-01_JPRB, 0.263020E-01_JPRB, 0.245652E-01_JPRB &
+  &, 0.228955E-01_JPRB, 0.213588E-01_JPRB, 0.198995E-01_JPRB, 0.185220E-01_JPRB &
+  &, 0.172309E-01_JPRB, 0.159660E-01_JPRB, 0.148607E-01_JPRB/)
+XCW( 615, :) = (/ &
+  &  0.102603E+01_JPRB, 0.103155E+01_JPRB, 0.103666E+01_JPRB, 0.104137E+01_JPRB &
+  &, 0.104565E+01_JPRB, 0.104953E+01_JPRB, 0.105298E+01_JPRB &
+  &, 0.105600E+01_JPRB, 0.105860E+01_JPRB, 0.106076E+01_JPRB, 0.106249E+01_JPRB &
+  &, 0.106379E+01_JPRB, 0.106464E+01_JPRB, 0.106506E+01_JPRB &
+  &, 0.106503E+01_JPRB, 0.106455E+01_JPRB, 0.106363E+01_JPRB, 0.106226E+01_JPRB &
+  &, 0.106045E+01_JPRB, 0.105819E+01_JPRB, 0.105548E+01_JPRB &
+  &, 0.105232E+01_JPRB, 0.104873E+01_JPRB, 0.104468E+01_JPRB, 0.104020E+01_JPRB &
+  &, 0.103528E+01_JPRB, 0.102992E+01_JPRB, 0.102413E+01_JPRB &
+  &, 0.101791E+01_JPRB, 0.101128E+01_JPRB, 0.100422E+01_JPRB, 0.996753E+00_JPRB &
+  &, 0.988882E+00_JPRB, 0.980614E+00_JPRB, 0.971960E+00_JPRB &
+  &, 0.962917E+00_JPRB, 0.953502E+00_JPRB, 0.943737E+00_JPRB, 0.933604E+00_JPRB &
+  &, 0.923130E+00_JPRB, 0.912335E+00_JPRB, 0.901213E+00_JPRB &
+  &, 0.889782E+00_JPRB, 0.878052E+00_JPRB, 0.866036E+00_JPRB, 0.853749E+00_JPRB &
+  &, 0.841211E+00_JPRB, 0.828430E+00_JPRB, 0.815417E+00_JPRB &
+  &, 0.802184E+00_JPRB, 0.788758E+00_JPRB, 0.775143E+00_JPRB, 0.761353E+00_JPRB &
+  &, 0.747408E+00_JPRB, 0.733327E+00_JPRB, 0.719115E+00_JPRB &
+  &, 0.704807E+00_JPRB, 0.690396E+00_JPRB, 0.675901E+00_JPRB, 0.661347E+00_JPRB &
+  &, 0.646739E+00_JPRB, 0.632099E+00_JPRB, 0.617453E+00_JPRB &
+  &, 0.602786E+00_JPRB, 0.588142E+00_JPRB, 0.573524E+00_JPRB, 0.558936E+00_JPRB &
+  &, 0.544421E+00_JPRB, 0.529961E+00_JPRB, 0.515579E+00_JPRB &
+  &, 0.501296E+00_JPRB, 0.487111E+00_JPRB, 0.473045E+00_JPRB, 0.459117E+00_JPRB &
+  &, 0.445325E+00_JPRB, 0.431687E+00_JPRB, 0.418220E+00_JPRB &
+  &, 0.404917E+00_JPRB, 0.391794E+00_JPRB, 0.378865E+00_JPRB, 0.366145E+00_JPRB &
+  &, 0.353621E+00_JPRB, 0.341303E+00_JPRB, 0.329231E+00_JPRB &
+  &, 0.317358E+00_JPRB, 0.305748E+00_JPRB, 0.294354E+00_JPRB, 0.283208E+00_JPRB &
+  &, 0.272317E+00_JPRB, 0.261684E+00_JPRB, 0.251281E+00_JPRB &
+  &, 0.241139E+00_JPRB, 0.231258E+00_JPRB, 0.221637E+00_JPRB, 0.212307E+00_JPRB &
+  &, 0.203196E+00_JPRB, 0.194366E+00_JPRB, 0.185812E+00_JPRB &
+  &, 0.177488E+00_JPRB, 0.169422E+00_JPRB, 0.161637E+00_JPRB, 0.154086E+00_JPRB &
+  &, 0.146830E+00_JPRB, 0.139777E+00_JPRB, 0.132988E+00_JPRB &
+  &, 0.126445E+00_JPRB, 0.120170E+00_JPRB, 0.114101E+00_JPRB, 0.108257E+00_JPRB &
+  &, 0.102657E+00_JPRB, 0.972748E-01_JPRB, 0.921293E-01_JPRB &
+  &, 0.871483E-01_JPRB, 0.824367E-01_JPRB, 0.779205E-01_JPRB, 0.735673E-01_JPRB &
+  &, 0.694375E-01_JPRB, 0.654978E-01_JPRB, 0.617124E-01_JPRB &
+  &, 0.580926E-01_JPRB, 0.547004E-01_JPRB, 0.514472E-01_JPRB, 0.483426E-01_JPRB &
+  &, 0.453966E-01_JPRB, 0.426192E-01_JPRB, 0.399664E-01_JPRB &
+  &, 0.374462E-01_JPRB, 0.350669E-01_JPRB, 0.328369E-01_JPRB, 0.307074E-01_JPRB &
+  &, 0.287427E-01_JPRB, 0.268337E-01_JPRB, 0.250443E-01_JPRB &
+  &, 0.233812E-01_JPRB, 0.217895E-01_JPRB, 0.202736E-01_JPRB, 0.189011E-01_JPRB &
+  &, 0.175510E-01_JPRB, 0.162903E-01_JPRB, 0.151236E-01_JPRB/)
+XCW( 616, :) = (/ &
+  &  0.102630E+01_JPRB, 0.103188E+01_JPRB, 0.103707E+01_JPRB, 0.104184E+01_JPRB &
+  &, 0.104619E+01_JPRB, 0.105014E+01_JPRB, 0.105365E+01_JPRB &
+  &, 0.105675E+01_JPRB, 0.105942E+01_JPRB, 0.106165E+01_JPRB, 0.106345E+01_JPRB &
+  &, 0.106481E+01_JPRB, 0.106574E+01_JPRB, 0.106622E+01_JPRB &
+  &, 0.106626E+01_JPRB, 0.106586E+01_JPRB, 0.106501E+01_JPRB, 0.106371E+01_JPRB &
+  &, 0.106196E+01_JPRB, 0.105977E+01_JPRB, 0.105713E+01_JPRB &
+  &, 0.105404E+01_JPRB, 0.105050E+01_JPRB, 0.104653E+01_JPRB, 0.104211E+01_JPRB &
+  &, 0.103725E+01_JPRB, 0.103195E+01_JPRB, 0.102623E+01_JPRB &
+  &, 0.102007E+01_JPRB, 0.101349E+01_JPRB, 0.100649E+01_JPRB, 0.999085E+00_JPRB &
+  &, 0.991272E+00_JPRB, 0.983060E+00_JPRB, 0.974454E+00_JPRB &
+  &, 0.965466E+00_JPRB, 0.956106E+00_JPRB, 0.946387E+00_JPRB, 0.936301E+00_JPRB &
+  &, 0.925874E+00_JPRB, 0.915117E+00_JPRB, 0.904044E+00_JPRB &
+  &, 0.892651E+00_JPRB, 0.880958E+00_JPRB, 0.868980E+00_JPRB, 0.856718E+00_JPRB &
+  &, 0.844229E+00_JPRB, 0.831472E+00_JPRB, 0.818495E+00_JPRB &
+  &, 0.805285E+00_JPRB, 0.791881E+00_JPRB, 0.778285E+00_JPRB, 0.764529E+00_JPRB &
+  &, 0.750602E+00_JPRB, 0.736537E+00_JPRB, 0.722340E+00_JPRB &
+  &, 0.708030E+00_JPRB, 0.693630E+00_JPRB, 0.679146E+00_JPRB, 0.664583E+00_JPRB &
+  &, 0.649981E+00_JPRB, 0.635346E+00_JPRB, 0.620701E+00_JPRB &
+  &, 0.606035E+00_JPRB, 0.591369E+00_JPRB, 0.576746E+00_JPRB, 0.562151E+00_JPRB &
+  &, 0.547607E+00_JPRB, 0.533136E+00_JPRB, 0.518739E+00_JPRB &
+  &, 0.504438E+00_JPRB, 0.490233E+00_JPRB, 0.476144E+00_JPRB, 0.462191E+00_JPRB &
+  &, 0.448371E+00_JPRB, 0.434701E+00_JPRB, 0.421200E+00_JPRB &
+  &, 0.407860E+00_JPRB, 0.394696E+00_JPRB, 0.381724E+00_JPRB, 0.368957E+00_JPRB &
+  &, 0.356409E+00_JPRB, 0.344065E+00_JPRB, 0.331936E+00_JPRB &
+  &, 0.320031E+00_JPRB, 0.308359E+00_JPRB, 0.296927E+00_JPRB, 0.285711E+00_JPRB &
+  &, 0.274776E+00_JPRB, 0.264097E+00_JPRB, 0.253644E+00_JPRB &
+  &, 0.243450E+00_JPRB, 0.233514E+00_JPRB, 0.223868E+00_JPRB, 0.214444E+00_JPRB &
+  &, 0.205303E+00_JPRB, 0.196406E+00_JPRB, 0.187781E+00_JPRB &
+  &, 0.179420E+00_JPRB, 0.171314E+00_JPRB, 0.163450E+00_JPRB, 0.155892E+00_JPRB &
+  &, 0.148551E+00_JPRB, 0.141449E+00_JPRB, 0.134609E+00_JPRB &
+  &, 0.128012E+00_JPRB, 0.121681E+00_JPRB, 0.115554E+00_JPRB, 0.109648E+00_JPRB &
+  &, 0.104027E+00_JPRB, 0.985798E-01_JPRB, 0.933664E-01_JPRB &
+  &, 0.883598E-01_JPRB, 0.836213E-01_JPRB, 0.790308E-01_JPRB, 0.746476E-01_JPRB &
+  &, 0.704388E-01_JPRB, 0.664659E-01_JPRB, 0.626458E-01_JPRB &
+  &, 0.590399E-01_JPRB, 0.555605E-01_JPRB, 0.522685E-01_JPRB, 0.491238E-01_JPRB &
+  &, 0.461891E-01_JPRB, 0.433160E-01_JPRB, 0.406731E-01_JPRB &
+  &, 0.381078E-01_JPRB, 0.357378E-01_JPRB, 0.334606E-01_JPRB, 0.312822E-01_JPRB &
+  &, 0.292673E-01_JPRB, 0.273064E-01_JPRB, 0.255235E-01_JPRB &
+  &, 0.238061E-01_JPRB, 0.222201E-01_JPRB, 0.206477E-01_JPRB, 0.192802E-01_JPRB &
+  &, 0.179351E-01_JPRB, 0.166795E-01_JPRB, 0.154521E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART88',1,ZHOOK_HANDLE)
+END SUBROUTINE PART88
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART89
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART89',0,ZHOOK_HANDLE)
+
+XCW( 617, :) = (/ &
+  &  0.102656E+01_JPRB, 0.103222E+01_JPRB, 0.103747E+01_JPRB, 0.104231E+01_JPRB &
+  &, 0.104674E+01_JPRB, 0.105075E+01_JPRB, 0.105433E+01_JPRB &
+  &, 0.105750E+01_JPRB, 0.106023E+01_JPRB, 0.106254E+01_JPRB, 0.106441E+01_JPRB &
+  &, 0.106584E+01_JPRB, 0.106684E+01_JPRB, 0.106739E+01_JPRB &
+  &, 0.106750E+01_JPRB, 0.106716E+01_JPRB, 0.106638E+01_JPRB, 0.106515E+01_JPRB &
+  &, 0.106348E+01_JPRB, 0.106135E+01_JPRB, 0.105877E+01_JPRB &
+  &, 0.105575E+01_JPRB, 0.105228E+01_JPRB, 0.104837E+01_JPRB, 0.104402E+01_JPRB &
+  &, 0.103922E+01_JPRB, 0.103399E+01_JPRB, 0.102833E+01_JPRB &
+  &, 0.102223E+01_JPRB, 0.101571E+01_JPRB, 0.100878E+01_JPRB, 0.100143E+01_JPRB &
+  &, 0.993667E+00_JPRB, 0.985512E+00_JPRB, 0.976958E+00_JPRB &
+  &, 0.968024E+00_JPRB, 0.958719E+00_JPRB, 0.949036E+00_JPRB, 0.939007E+00_JPRB &
+  &, 0.928629E+00_JPRB, 0.917920E+00_JPRB, 0.906874E+00_JPRB &
+  &, 0.895530E+00_JPRB, 0.883876E+00_JPRB, 0.871946E+00_JPRB, 0.859723E+00_JPRB &
+  &, 0.847259E+00_JPRB, 0.834527E+00_JPRB, 0.821574E+00_JPRB &
+  &, 0.808399E+00_JPRB, 0.795016E+00_JPRB, 0.781455E+00_JPRB, 0.767705E+00_JPRB &
+  &, 0.753796E+00_JPRB, 0.739748E+00_JPRB, 0.725565E+00_JPRB &
+  &, 0.711269E+00_JPRB, 0.696881E+00_JPRB, 0.682391E+00_JPRB, 0.667853E+00_JPRB &
+  &, 0.653257E+00_JPRB, 0.638609E+00_JPRB, 0.623949E+00_JPRB &
+  &, 0.609283E+00_JPRB, 0.594615E+00_JPRB, 0.579988E+00_JPRB, 0.565387E+00_JPRB &
+  &, 0.550813E+00_JPRB, 0.536330E+00_JPRB, 0.521919E+00_JPRB &
+  &, 0.507580E+00_JPRB, 0.493355E+00_JPRB, 0.479244E+00_JPRB, 0.465265E+00_JPRB &
+  &, 0.451417E+00_JPRB, 0.437716E+00_JPRB, 0.424180E+00_JPRB &
+  &, 0.410803E+00_JPRB, 0.397624E+00_JPRB, 0.384608E+00_JPRB, 0.371820E+00_JPRB &
+  &, 0.359197E+00_JPRB, 0.346612E+00_JPRB, 0.334641E+00_JPRB &
+  &, 0.322704E+00_JPRB, 0.310969E+00_JPRB, 0.299499E+00_JPRB, 0.288244E+00_JPRB &
+  &, 0.277266E+00_JPRB, 0.266510E+00_JPRB, 0.256008E+00_JPRB &
+  &, 0.245793E+00_JPRB, 0.235803E+00_JPRB, 0.226067E+00_JPRB, 0.216614E+00_JPRB &
+  &, 0.207409E+00_JPRB, 0.198480E+00_JPRB, 0.189786E+00_JPRB &
+  &, 0.181388E+00_JPRB, 0.173206E+00_JPRB, 0.165300E+00_JPRB, 0.157661E+00_JPRB &
+  &, 0.150273E+00_JPRB, 0.143122E+00_JPRB, 0.136230E+00_JPRB &
+  &, 0.129579E+00_JPRB, 0.123192E+00_JPRB, 0.117006E+00_JPRB, 0.111082E+00_JPRB &
+  &, 0.105397E+00_JPRB, 0.999283E-01_JPRB, 0.946477E-01_JPRB &
+  &, 0.896161E-01_JPRB, 0.847605E-01_JPRB, 0.801412E-01_JPRB, 0.757279E-01_JPRB &
+  &, 0.714879E-01_JPRB, 0.674823E-01_JPRB, 0.636284E-01_JPRB &
+  &, 0.599373E-01_JPRB, 0.564205E-01_JPRB, 0.530899E-01_JPRB, 0.499572E-01_JPRB &
+  &, 0.469288E-01_JPRB, 0.440663E-01_JPRB, 0.413798E-01_JPRB &
+  &, 0.387694E-01_JPRB, 0.363529E-01_JPRB, 0.340276E-01_JPRB, 0.318571E-01_JPRB &
+  &, 0.297918E-01_JPRB, 0.278381E-01_JPRB, 0.260026E-01_JPRB &
+  &, 0.242917E-01_JPRB, 0.226508E-01_JPRB, 0.210841E-01_JPRB, 0.196593E-01_JPRB &
+  &, 0.182552E-01_JPRB, 0.170038E-01_JPRB, 0.157807E-01_JPRB/)
+XCW( 618, :) = (/ &
+  &  0.102683E+01_JPRB, 0.103255E+01_JPRB, 0.103787E+01_JPRB, 0.104278E+01_JPRB &
+  &, 0.104728E+01_JPRB, 0.105136E+01_JPRB, 0.105501E+01_JPRB &
+  &, 0.105825E+01_JPRB, 0.106105E+01_JPRB, 0.106343E+01_JPRB, 0.106537E+01_JPRB &
+  &, 0.106687E+01_JPRB, 0.106794E+01_JPRB, 0.106847E+01_JPRB &
+  &, 0.106874E+01_JPRB, 0.106847E+01_JPRB, 0.106776E+01_JPRB, 0.106660E+01_JPRB &
+  &, 0.106499E+01_JPRB, 0.106293E+01_JPRB, 0.106042E+01_JPRB &
+  &, 0.105747E+01_JPRB, 0.105407E+01_JPRB, 0.105022E+01_JPRB, 0.104593E+01_JPRB &
+  &, 0.104120E+01_JPRB, 0.103603E+01_JPRB, 0.103043E+01_JPRB &
+  &, 0.102440E+01_JPRB, 0.101794E+01_JPRB, 0.101106E+01_JPRB, 0.100377E+01_JPRB &
+  &, 0.996067E+00_JPRB, 0.987967E+00_JPRB, 0.979471E+00_JPRB &
+  &, 0.970591E+00_JPRB, 0.961332E+00_JPRB, 0.951706E+00_JPRB, 0.941724E+00_JPRB &
+  &, 0.931394E+00_JPRB, 0.920723E+00_JPRB, 0.909726E+00_JPRB &
+  &, 0.898420E+00_JPRB, 0.886804E+00_JPRB, 0.874902E+00_JPRB, 0.862728E+00_JPRB &
+  &, 0.850289E+00_JPRB, 0.837594E+00_JPRB, 0.824678E+00_JPRB &
+  &, 0.811526E+00_JPRB, 0.798166E+00_JPRB, 0.784626E+00_JPRB, 0.770895E+00_JPRB &
+  &, 0.757004E+00_JPRB, 0.742973E+00_JPRB, 0.728806E+00_JPRB &
+  &, 0.714524E+00_JPRB, 0.700132E+00_JPRB, 0.685668E+00_JPRB, 0.671122E+00_JPRB &
+  &, 0.656533E+00_JPRB, 0.641890E+00_JPRB, 0.627233E+00_JPRB &
+  &, 0.612549E+00_JPRB, 0.597880E+00_JPRB, 0.583230E+00_JPRB, 0.568622E+00_JPRB &
+  &, 0.554059E+00_JPRB, 0.539545E+00_JPRB, 0.525099E+00_JPRB &
+  &, 0.510764E+00_JPRB, 0.496520E+00_JPRB, 0.482387E+00_JPRB, 0.468362E+00_JPRB &
+  &, 0.454485E+00_JPRB, 0.440754E+00_JPRB, 0.427184E+00_JPRB &
+  &, 0.413795E+00_JPRB, 0.400551E+00_JPRB, 0.387518E+00_JPRB, 0.374658E+00_JPRB &
+  &, 0.362037E+00_JPRB, 0.349588E+00_JPRB, 0.337374E+00_JPRB &
+  &, 0.325378E+00_JPRB, 0.313608E+00_JPRB, 0.302101E+00_JPRB, 0.290806E+00_JPRB &
+  &, 0.279755E+00_JPRB, 0.268953E+00_JPRB, 0.258403E+00_JPRB &
+  &, 0.248137E+00_JPRB, 0.238092E+00_JPRB, 0.228330E+00_JPRB, 0.218785E+00_JPRB &
+  &, 0.209550E+00_JPRB, 0.200555E+00_JPRB, 0.191826E+00_JPRB &
+  &, 0.183355E+00_JPRB, 0.175134E+00_JPRB, 0.167188E+00_JPRB, 0.159467E+00_JPRB &
+  &, 0.152032E+00_JPRB, 0.144833E+00_JPRB, 0.137890E+00_JPRB &
+  &, 0.131186E+00_JPRB, 0.124743E+00_JPRB, 0.118499E+00_JPRB, 0.112515E+00_JPRB &
+  &, 0.106768E+00_JPRB, 0.101233E+00_JPRB, 0.959290E-01_JPRB &
+  &, 0.908725E-01_JPRB, 0.859907E-01_JPRB, 0.812978E-01_JPRB, 0.768553E-01_JPRB &
+  &, 0.725846E-01_JPRB, 0.684988E-01_JPRB, 0.646109E-01_JPRB &
+  &, 0.608845E-01_JPRB, 0.573312E-01_JPRB, 0.539626E-01_JPRB, 0.507384E-01_JPRB &
+  &, 0.477214E-01_JPRB, 0.448167E-01_JPRB, 0.420865E-01_JPRB &
+  &, 0.394310E-01_JPRB, 0.369679E-01_JPRB, 0.346512E-01_JPRB, 0.324319E-01_JPRB &
+  &, 0.303163E-01_JPRB, 0.283699E-01_JPRB, 0.264817E-01_JPRB &
+  &, 0.247167E-01_JPRB, 0.230815E-01_JPRB, 0.215206E-01_JPRB, 0.200383E-01_JPRB &
+  &, 0.186393E-01_JPRB, 0.173281E-01_JPRB, 0.161092E-01_JPRB/)
+XCW( 619, :) = (/ &
+  &  0.102710E+01_JPRB, 0.103289E+01_JPRB, 0.103828E+01_JPRB, 0.104325E+01_JPRB &
+  &, 0.104782E+01_JPRB, 0.105197E+01_JPRB, 0.105570E+01_JPRB &
+  &, 0.105900E+01_JPRB, 0.106188E+01_JPRB, 0.106432E+01_JPRB, 0.106633E+01_JPRB &
+  &, 0.106791E+01_JPRB, 0.106904E+01_JPRB, 0.106973E+01_JPRB &
+  &, 0.106998E+01_JPRB, 0.106978E+01_JPRB, 0.106914E+01_JPRB, 0.106805E+01_JPRB &
+  &, 0.106651E+01_JPRB, 0.106452E+01_JPRB, 0.106208E+01_JPRB &
+  &, 0.105919E+01_JPRB, 0.105586E+01_JPRB, 0.105208E+01_JPRB, 0.104785E+01_JPRB &
+  &, 0.104319E+01_JPRB, 0.103808E+01_JPRB, 0.103254E+01_JPRB &
+  &, 0.102657E+01_JPRB, 0.102017E+01_JPRB, 0.101335E+01_JPRB, 0.100612E+01_JPRB &
+  &, 0.998475E+00_JPRB, 0.990427E+00_JPRB, 0.981989E+00_JPRB &
+  &, 0.973158E+00_JPRB, 0.963955E+00_JPRB, 0.954375E+00_JPRB, 0.944441E+00_JPRB &
+  &, 0.934159E+00_JPRB, 0.923537E+00_JPRB, 0.912578E+00_JPRB &
+  &, 0.901311E+00_JPRB, 0.889744E+00_JPRB, 0.877880E+00_JPRB, 0.865745E+00_JPRB &
+  &, 0.853332E+00_JPRB, 0.840674E+00_JPRB, 0.827782E+00_JPRB &
+  &, 0.814653E+00_JPRB, 0.801329E+00_JPRB, 0.787810E+00_JPRB, 0.774099E+00_JPRB &
+  &, 0.760241E+00_JPRB, 0.746213E+00_JPRB, 0.732062E+00_JPRB &
+  &, 0.717794E+00_JPRB, 0.703415E+00_JPRB, 0.688946E+00_JPRB, 0.674409E+00_JPRB &
+  &, 0.659827E+00_JPRB, 0.645189E+00_JPRB, 0.630517E+00_JPRB &
+  &, 0.615834E+00_JPRB, 0.601163E+00_JPRB, 0.586509E+00_JPRB, 0.571876E+00_JPRB &
+  &, 0.557305E+00_JPRB, 0.542779E+00_JPRB, 0.528320E+00_JPRB &
+  &, 0.513948E+00_JPRB, 0.499686E+00_JPRB, 0.485531E+00_JPRB, 0.471481E+00_JPRB &
+  &, 0.457577E+00_JPRB, 0.443815E+00_JPRB, 0.430212E+00_JPRB &
+  &, 0.416786E+00_JPRB, 0.403528E+00_JPRB, 0.390427E+00_JPRB, 0.377547E+00_JPRB &
+  &, 0.364877E+00_JPRB, 0.352376E+00_JPRB, 0.340133E+00_JPRB &
+  &, 0.328079E+00_JPRB, 0.316275E+00_JPRB, 0.304703E+00_JPRB, 0.293368E+00_JPRB &
+  &, 0.282275E+00_JPRB, 0.271427E+00_JPRB, 0.260829E+00_JPRB &
+  &, 0.250480E+00_JPRB, 0.240413E+00_JPRB, 0.230561E+00_JPRB, 0.220988E+00_JPRB &
+  &, 0.211691E+00_JPRB, 0.202663E+00_JPRB, 0.193865E+00_JPRB &
+  &, 0.185323E+00_JPRB, 0.177063E+00_JPRB, 0.169038E+00_JPRB, 0.161310E+00_JPRB &
+  &, 0.153792E+00_JPRB, 0.146544E+00_JPRB, 0.139550E+00_JPRB &
+  &, 0.132793E+00_JPRB, 0.126295E+00_JPRB, 0.120034E+00_JPRB, 0.113990E+00_JPRB &
+  &, 0.108181E+00_JPRB, 0.102582E+00_JPRB, 0.972544E-01_JPRB &
+  &, 0.921289E-01_JPRB, 0.871754E-01_JPRB, 0.824544E-01_JPRB, 0.779356E-01_JPRB &
+  &, 0.736336E-01_JPRB, 0.695152E-01_JPRB, 0.655934E-01_JPRB &
+  &, 0.618318E-01_JPRB, 0.582419E-01_JPRB, 0.548352E-01_JPRB, 0.515717E-01_JPRB &
+  &, 0.485139E-01_JPRB, 0.455670E-01_JPRB, 0.427932E-01_JPRB &
+  &, 0.401478E-01_JPRB, 0.376389E-01_JPRB, 0.352749E-01_JPRB, 0.330068E-01_JPRB &
+  &, 0.308992E-01_JPRB, 0.289016E-01_JPRB, 0.270207E-01_JPRB &
+  &, 0.252023E-01_JPRB, 0.235121E-01_JPRB, 0.219570E-01_JPRB, 0.204174E-01_JPRB &
+  &, 0.190235E-01_JPRB, 0.177173E-01_JPRB, 0.165035E-01_JPRB/)
+XCW( 620, :) = (/ &
+  &  0.102737E+01_JPRB, 0.103322E+01_JPRB, 0.103868E+01_JPRB, 0.104373E+01_JPRB &
+  &, 0.104836E+01_JPRB, 0.105258E+01_JPRB, 0.105638E+01_JPRB &
+  &, 0.105975E+01_JPRB, 0.106270E+01_JPRB, 0.106521E+01_JPRB, 0.106730E+01_JPRB &
+  &, 0.106894E+01_JPRB, 0.107015E+01_JPRB, 0.107091E+01_JPRB &
+  &, 0.107123E+01_JPRB, 0.107110E+01_JPRB, 0.107053E+01_JPRB, 0.106950E+01_JPRB &
+  &, 0.106803E+01_JPRB, 0.106611E+01_JPRB, 0.106374E+01_JPRB &
+  &, 0.106092E+01_JPRB, 0.105765E+01_JPRB, 0.105393E+01_JPRB, 0.104978E+01_JPRB &
+  &, 0.104517E+01_JPRB, 0.104013E+01_JPRB, 0.103465E+01_JPRB &
+  &, 0.102874E+01_JPRB, 0.102241E+01_JPRB, 0.101565E+01_JPRB, 0.100847E+01_JPRB &
+  &, 0.100089E+01_JPRB, 0.992895E+00_JPRB, 0.984511E+00_JPRB &
+  &, 0.975735E+00_JPRB, 0.966577E+00_JPRB, 0.957054E+00_JPRB, 0.947168E+00_JPRB &
+  &, 0.936934E+00_JPRB, 0.926350E+00_JPRB, 0.915441E+00_JPRB &
+  &, 0.904224E+00_JPRB, 0.892685E+00_JPRB, 0.880870E+00_JPRB, 0.868762E+00_JPRB &
+  &, 0.856387E+00_JPRB, 0.843767E+00_JPRB, 0.830899E+00_JPRB &
+  &, 0.817807E+00_JPRB, 0.804505E+00_JPRB, 0.791007E+00_JPRB, 0.777317E+00_JPRB &
+  &, 0.763464E+00_JPRB, 0.749467E+00_JPRB, 0.735332E+00_JPRB &
+  &, 0.721079E+00_JPRB, 0.706713E+00_JPRB, 0.692255E+00_JPRB, 0.677711E+00_JPRB &
+  &, 0.663120E+00_JPRB, 0.648487E+00_JPRB, 0.633818E+00_JPRB &
+  &, 0.619137E+00_JPRB, 0.604465E+00_JPRB, 0.589789E+00_JPRB, 0.575150E+00_JPRB &
+  &, 0.560551E+00_JPRB, 0.546014E+00_JPRB, 0.531542E+00_JPRB &
+  &, 0.517154E+00_JPRB, 0.502872E+00_JPRB, 0.488674E+00_JPRB, 0.474622E+00_JPRB &
+  &, 0.460691E+00_JPRB, 0.446899E+00_JPRB, 0.433264E+00_JPRB &
+  &, 0.419802E+00_JPRB, 0.406480E+00_JPRB, 0.393387E+00_JPRB, 0.380437E+00_JPRB &
+  &, 0.367718E+00_JPRB, 0.355218E+00_JPRB, 0.342893E+00_JPRB &
+  &, 0.330808E+00_JPRB, 0.318971E+00_JPRB, 0.307334E+00_JPRB, 0.295959E+00_JPRB &
+  &, 0.284824E+00_JPRB, 0.273902E+00_JPRB, 0.263255E+00_JPRB &
+  &, 0.252886E+00_JPRB, 0.242733E+00_JPRB, 0.232858E+00_JPRB, 0.223226E+00_JPRB &
+  &, 0.213865E+00_JPRB, 0.204772E+00_JPRB, 0.195940E+00_JPRB &
+  &, 0.187326E+00_JPRB, 0.179027E+00_JPRB, 0.170962E+00_JPRB, 0.163154E+00_JPRB &
+  &, 0.155590E+00_JPRB, 0.148294E+00_JPRB, 0.141250E+00_JPRB &
+  &, 0.134441E+00_JPRB, 0.127887E+00_JPRB, 0.121528E+00_JPRB, 0.115465E+00_JPRB &
+  &, 0.109594E+00_JPRB, 0.103974E+00_JPRB, 0.985799E-01_JPRB &
+  &, 0.933853E-01_JPRB, 0.884057E-01_JPRB, 0.836573E-01_JPRB, 0.791099E-01_JPRB &
+  &, 0.747304E-01_JPRB, 0.705800E-01_JPRB, 0.665759E-01_JPRB &
+  &, 0.627791E-01_JPRB, 0.591525E-01_JPRB, 0.557079E-01_JPRB, 0.524050E-01_JPRB &
+  &, 0.493065E-01_JPRB, 0.463174E-01_JPRB, 0.434999E-01_JPRB &
+  &, 0.408094E-01_JPRB, 0.383098E-01_JPRB, 0.358985E-01_JPRB, 0.336391E-01_JPRB &
+  &, 0.314820E-01_JPRB, 0.294334E-01_JPRB, 0.274999E-01_JPRB &
+  &, 0.256879E-01_JPRB, 0.240043E-01_JPRB, 0.223934E-01_JPRB, 0.208597E-01_JPRB &
+  &, 0.194076E-01_JPRB, 0.181064E-01_JPRB, 0.168320E-01_JPRB/)
+XCW( 621, :) = (/ &
+  &  0.102763E+01_JPRB, 0.103356E+01_JPRB, 0.103908E+01_JPRB, 0.104420E+01_JPRB &
+  &, 0.104890E+01_JPRB, 0.105319E+01_JPRB, 0.105706E+01_JPRB &
+  &, 0.106051E+01_JPRB, 0.106352E+01_JPRB, 0.106611E+01_JPRB, 0.106826E+01_JPRB &
+  &, 0.106997E+01_JPRB, 0.107125E+01_JPRB, 0.107208E+01_JPRB &
+  &, 0.107247E+01_JPRB, 0.107242E+01_JPRB, 0.107191E+01_JPRB, 0.107096E+01_JPRB &
+  &, 0.106955E+01_JPRB, 0.106770E+01_JPRB, 0.106540E+01_JPRB &
+  &, 0.106265E+01_JPRB, 0.105944E+01_JPRB, 0.105579E+01_JPRB, 0.105170E+01_JPRB &
+  &, 0.104716E+01_JPRB, 0.104218E+01_JPRB, 0.103677E+01_JPRB &
+  &, 0.103092E+01_JPRB, 0.102464E+01_JPRB, 0.101795E+01_JPRB, 0.101083E+01_JPRB &
+  &, 0.100330E+01_JPRB, 0.995368E+00_JPRB, 0.987037E+00_JPRB &
+  &, 0.978320E+00_JPRB, 0.969209E+00_JPRB, 0.959743E+00_JPRB, 0.949905E+00_JPRB &
+  &, 0.939709E+00_JPRB, 0.929185E+00_JPRB, 0.918315E+00_JPRB &
+  &, 0.907136E+00_JPRB, 0.895647E+00_JPRB, 0.883861E+00_JPRB, 0.871790E+00_JPRB &
+  &, 0.859454E+00_JPRB, 0.846859E+00_JPRB, 0.834029E+00_JPRB &
+  &, 0.820961E+00_JPRB, 0.807681E+00_JPRB, 0.794205E+00_JPRB, 0.780549E+00_JPRB &
+  &, 0.766715E+00_JPRB, 0.752737E+00_JPRB, 0.738618E+00_JPRB &
+  &, 0.724365E+00_JPRB, 0.710012E+00_JPRB, 0.695565E+00_JPRB, 0.681031E+00_JPRB &
+  &, 0.666447E+00_JPRB, 0.651820E+00_JPRB, 0.637138E+00_JPRB &
+  &, 0.622457E+00_JPRB, 0.607767E+00_JPRB, 0.593088E+00_JPRB, 0.578443E+00_JPRB &
+  &, 0.563836E+00_JPRB, 0.549290E+00_JPRB, 0.534784E+00_JPRB &
+  &, 0.520380E+00_JPRB, 0.506081E+00_JPRB, 0.491861E+00_JPRB, 0.477763E+00_JPRB &
+  &, 0.463806E+00_JPRB, 0.449984E+00_JPRB, 0.436316E+00_JPRB &
+  &, 0.422818E+00_JPRB, 0.409482E+00_JPRB, 0.396322E+00_JPRB, 0.383377E+00_JPRB &
+  &, 0.370611E+00_JPRB, 0.358033E+00_JPRB, 0.345681E+00_JPRB &
+  &, 0.333565E+00_JPRB, 0.321667E+00_JPRB, 0.309993E+00_JPRB, 0.298550E+00_JPRB &
+  &, 0.287373E+00_JPRB, 0.276406E+00_JPRB, 0.265712E+00_JPRB &
+  &, 0.255261E+00_JPRB, 0.245086E+00_JPRB, 0.235155E+00_JPRB, 0.225463E+00_JPRB &
+  &, 0.216074E+00_JPRB, 0.206916E+00_JPRB, 0.198015E+00_JPRB &
+  &, 0.189366E+00_JPRB, 0.180992E+00_JPRB, 0.172886E+00_JPRB, 0.164997E+00_JPRB &
+  &, 0.157388E+00_JPRB, 0.150044E+00_JPRB, 0.142950E+00_JPRB &
+  &, 0.136088E+00_JPRB, 0.129479E+00_JPRB, 0.123104E+00_JPRB, 0.116941E+00_JPRB &
+  &, 0.111050E+00_JPRB, 0.105366E+00_JPRB, 0.999053E-01_JPRB &
+  &, 0.946865E-01_JPRB, 0.896359E-01_JPRB, 0.848602E-01_JPRB, 0.802372E-01_JPRB &
+  &, 0.758271E-01_JPRB, 0.715965E-01_JPRB, 0.676076E-01_JPRB &
+  &, 0.637264E-01_JPRB, 0.600632E-01_JPRB, 0.565806E-01_JPRB, 0.532904E-01_JPRB &
+  &, 0.500990E-01_JPRB, 0.471213E-01_JPRB, 0.442610E-01_JPRB &
+  &, 0.415261E-01_JPRB, 0.389808E-01_JPRB, 0.365222E-01_JPRB, 0.342140E-01_JPRB &
+  &, 0.320648E-01_JPRB, 0.299651E-01_JPRB, 0.280389E-01_JPRB &
+  &, 0.261736E-01_JPRB, 0.244350E-01_JPRB, 0.228299E-01_JPRB, 0.212388E-01_JPRB &
+  &, 0.197917E-01_JPRB, 0.184307E-01_JPRB, 0.171606E-01_JPRB/)
+XCW( 622, :) = (/ &
+  &  0.102790E+01_JPRB, 0.103390E+01_JPRB, 0.103949E+01_JPRB, 0.104467E+01_JPRB &
+  &, 0.104945E+01_JPRB, 0.105381E+01_JPRB, 0.105774E+01_JPRB &
+  &, 0.106126E+01_JPRB, 0.106435E+01_JPRB, 0.106700E+01_JPRB, 0.106923E+01_JPRB &
+  &, 0.107101E+01_JPRB, 0.107236E+01_JPRB, 0.107326E+01_JPRB &
+  &, 0.107372E+01_JPRB, 0.107373E+01_JPRB, 0.107330E+01_JPRB, 0.107241E+01_JPRB &
+  &, 0.107108E+01_JPRB, 0.106929E+01_JPRB, 0.106706E+01_JPRB &
+  &, 0.106438E+01_JPRB, 0.106124E+01_JPRB, 0.105766E+01_JPRB, 0.105363E+01_JPRB &
+  &, 0.104916E+01_JPRB, 0.104424E+01_JPRB, 0.103887E+01_JPRB &
+  &, 0.103311E+01_JPRB, 0.102689E+01_JPRB, 0.102026E+01_JPRB, 0.101320E+01_JPRB &
+  &, 0.100573E+01_JPRB, 0.997850E+00_JPRB, 0.989573E+00_JPRB &
+  &, 0.980906E+00_JPRB, 0.971860E+00_JPRB, 0.962432E+00_JPRB, 0.952642E+00_JPRB &
+  &, 0.942505E+00_JPRB, 0.932020E+00_JPRB, 0.921200E+00_JPRB &
+  &, 0.910060E+00_JPRB, 0.898610E+00_JPRB, 0.886862E+00_JPRB, 0.874831E+00_JPRB &
+  &, 0.862533E+00_JPRB, 0.849964E+00_JPRB, 0.837158E+00_JPRB &
+  &, 0.824127E+00_JPRB, 0.810884E+00_JPRB, 0.797431E+00_JPRB, 0.783795E+00_JPRB &
+  &, 0.769981E+00_JPRB, 0.756006E+00_JPRB, 0.741904E+00_JPRB &
+  &, 0.727665E+00_JPRB, 0.713326E+00_JPRB, 0.698891E+00_JPRB, 0.684367E+00_JPRB &
+  &, 0.669248E+00_JPRB, 0.655153E+00_JPRB, 0.640475E+00_JPRB &
+  &, 0.625796E+00_JPRB, 0.611105E+00_JPRB, 0.596405E+00_JPRB, 0.581755E+00_JPRB &
+  &, 0.567122E+00_JPRB, 0.552565E+00_JPRB, 0.538046E+00_JPRB &
+  &, 0.523628E+00_JPRB, 0.509289E+00_JPRB, 0.495071E+00_JPRB, 0.480949E+00_JPRB &
+  &, 0.466966E+00_JPRB, 0.453115E+00_JPRB, 0.439415E+00_JPRB &
+  &, 0.425858E+00_JPRB, 0.412508E+00_JPRB, 0.399307E+00_JPRB, 0.386292E+00_JPRB &
+  &, 0.373504E+00_JPRB, 0.360902E+00_JPRB, 0.348495E+00_JPRB &
+  &, 0.336322E+00_JPRB, 0.324391E+00_JPRB, 0.312682E+00_JPRB, 0.301171E+00_JPRB &
+  &, 0.289953E+00_JPRB, 0.278941E+00_JPRB, 0.268200E+00_JPRB &
+  &, 0.257699E+00_JPRB, 0.247472E+00_JPRB, 0.237484E+00_JPRB, 0.227733E+00_JPRB &
+  &, 0.218282E+00_JPRB, 0.209059E+00_JPRB, 0.200091E+00_JPRB &
+  &, 0.191405E+00_JPRB, 0.182993E+00_JPRB, 0.174810E+00_JPRB, 0.166879E+00_JPRB &
+  &, 0.159224E+00_JPRB, 0.151833E+00_JPRB, 0.144649E+00_JPRB &
+  &, 0.137735E+00_JPRB, 0.131072E+00_JPRB, 0.124639E+00_JPRB, 0.118458E+00_JPRB &
+  &, 0.112506E+00_JPRB, 0.106758E+00_JPRB, 0.101275E+00_JPRB &
+  &, 0.959877E-01_JPRB, 0.909117E-01_JPRB, 0.860631E-01_JPRB, 0.814115E-01_JPRB &
+  &, 0.769238E-01_JPRB, 0.727097E-01_JPRB, 0.686392E-01_JPRB &
+  &, 0.647235E-01_JPRB, 0.610245E-01_JPRB, 0.575046E-01_JPRB, 0.541238E-01_JPRB &
+  &, 0.509444E-01_JPRB, 0.478717E-01_JPRB, 0.450221E-01_JPRB &
+  &, 0.422429E-01_JPRB, 0.396517E-01_JPRB, 0.372025E-01_JPRB, 0.348463E-01_JPRB &
+  &, 0.326476E-01_JPRB, 0.305560E-01_JPRB, 0.285779E-01_JPRB &
+  &, 0.266592E-01_JPRB, 0.249272E-01_JPRB, 0.232663E-01_JPRB, 0.216811E-01_JPRB &
+  &, 0.202398E-01_JPRB, 0.188199E-01_JPRB, 0.175549E-01_JPRB/)
+XCW( 623, :) = (/ &
+  &  0.102817E+01_JPRB, 0.103423E+01_JPRB, 0.103990E+01_JPRB, 0.104515E+01_JPRB &
+  &, 0.104999E+01_JPRB, 0.105442E+01_JPRB, 0.105843E+01_JPRB &
+  &, 0.106201E+01_JPRB, 0.106517E+01_JPRB, 0.106790E+01_JPRB, 0.107019E+01_JPRB &
+  &, 0.107205E+01_JPRB, 0.107347E+01_JPRB, 0.107444E+01_JPRB &
+  &, 0.107497E+01_JPRB, 0.107505E+01_JPRB, 0.107469E+01_JPRB, 0.107388E+01_JPRB &
+  &, 0.107261E+01_JPRB, 0.107089E+01_JPRB, 0.106873E+01_JPRB &
+  &, 0.106611E+01_JPRB, 0.106304E+01_JPRB, 0.105953E+01_JPRB, 0.105557E+01_JPRB &
+  &, 0.105116E+01_JPRB, 0.104631E+01_JPRB, 0.104102E+01_JPRB &
+  &, 0.103530E+01_JPRB, 0.102915E+01_JPRB, 0.102257E+01_JPRB, 0.101557E+01_JPRB &
+  &, 0.100816E+01_JPRB, 0.100034E+01_JPRB, 0.992117E+00_JPRB &
+  &, 0.983501E+00_JPRB, 0.974502E+00_JPRB, 0.965131E+00_JPRB, 0.955399E+00_JPRB &
+  &, 0.945301E+00_JPRB, 0.934865E+00_JPRB, 0.924084E+00_JPRB &
+  &, 0.912995E+00_JPRB, 0.901584E+00_JPRB, 0.889876E+00_JPRB, 0.877883E+00_JPRB &
+  &, 0.865612E+00_JPRB, 0.853082E+00_JPRB, 0.840314E+00_JPRB &
+  &, 0.827307E+00_JPRB, 0.814088E+00_JPRB, 0.800656E+00_JPRB, 0.787041E+00_JPRB &
+  &, 0.773247E+00_JPRB, 0.759305E+00_JPRB, 0.745205E+00_JPRB &
+  &, 0.730997E+00_JPRB, 0.716656E+00_JPRB, 0.702233E+00_JPRB, 0.687719E+00_JPRB &
+  &, 0.673135E+00_JPRB, 0.658504E+00_JPRB, 0.643829E+00_JPRB &
+  &, 0.629135E+00_JPRB, 0.614444E+00_JPRB, 0.599742E+00_JPRB, 0.585068E+00_JPRB &
+  &, 0.570447E+00_JPRB, 0.555860E+00_JPRB, 0.541330E+00_JPRB &
+  &, 0.526897E+00_JPRB, 0.512540E+00_JPRB, 0.498280E+00_JPRB, 0.484136E+00_JPRB &
+  &, 0.470126E+00_JPRB, 0.456247E+00_JPRB, 0.442515E+00_JPRB &
+  &, 0.428947E+00_JPRB, 0.415535E+00_JPRB, 0.402292E+00_JPRB, 0.389259E+00_JPRB &
+  &, 0.376423E+00_JPRB, 0.363770E+00_JPRB, 0.351337E+00_JPRB &
+  &, 0.339106E+00_JPRB, 0.327114E+00_JPRB, 0.315370E+00_JPRB, 0.303822E+00_JPRB &
+  &, 0.292532E+00_JPRB, 0.281507E+00_JPRB, 0.270688E+00_JPRB &
+  &, 0.260138E+00_JPRB, 0.249857E+00_JPRB, 0.239814E+00_JPRB, 0.230037E+00_JPRB &
+  &, 0.220491E+00_JPRB, 0.211237E+00_JPRB, 0.202236E+00_JPRB &
+  &, 0.193480E+00_JPRB, 0.184995E+00_JPRB, 0.176771E+00_JPRB, 0.168798E+00_JPRB &
+  &, 0.161060E+00_JPRB, 0.153622E+00_JPRB, 0.146389E+00_JPRB &
+  &, 0.139422E+00_JPRB, 0.132705E+00_JPRB, 0.126216E+00_JPRB, 0.119976E+00_JPRB &
+  &, 0.113962E+00_JPRB, 0.108193E+00_JPRB, 0.102645E+00_JPRB &
+  &, 0.972890E-01_JPRB, 0.921875E-01_JPRB, 0.872660E-01_JPRB, 0.825858E-01_JPRB &
+  &, 0.780682E-01_JPRB, 0.737746E-01_JPRB, 0.696709E-01_JPRB &
+  &, 0.657206E-01_JPRB, 0.619857E-01_JPRB, 0.584287E-01_JPRB, 0.550092E-01_JPRB &
+  &, 0.517898E-01_JPRB, 0.486756E-01_JPRB, 0.457831E-01_JPRB &
+  &, 0.429596E-01_JPRB, 0.403226E-01_JPRB, 0.378262E-01_JPRB, 0.354787E-01_JPRB &
+  &, 0.332304E-01_JPRB, 0.310877E-01_JPRB, 0.291169E-01_JPRB &
+  &, 0.272055E-01_JPRB, 0.254194E-01_JPRB, 0.237028E-01_JPRB, 0.221233E-01_JPRB &
+  &, 0.206239E-01_JPRB, 0.192091E-01_JPRB, 0.178834E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART89',1,ZHOOK_HANDLE)
+END SUBROUTINE PART89
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART90
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART90',0,ZHOOK_HANDLE)
+
+XCW( 624, :) = (/ &
+  &  0.102844E+01_JPRB, 0.103457E+01_JPRB, 0.104030E+01_JPRB, 0.104562E+01_JPRB &
+  &, 0.105054E+01_JPRB, 0.105504E+01_JPRB, 0.105912E+01_JPRB &
+  &, 0.106277E+01_JPRB, 0.106600E+01_JPRB, 0.106880E+01_JPRB, 0.107116E+01_JPRB &
+  &, 0.107309E+01_JPRB, 0.107458E+01_JPRB, 0.107562E+01_JPRB &
+  &, 0.107622E+01_JPRB, 0.107638E+01_JPRB, 0.107608E+01_JPRB, 0.107534E+01_JPRB &
+  &, 0.107414E+01_JPRB, 0.107250E+01_JPRB, 0.107040E+01_JPRB &
+  &, 0.106785E+01_JPRB, 0.106485E+01_JPRB, 0.106140E+01_JPRB, 0.105751E+01_JPRB &
+  &, 0.105316E+01_JPRB, 0.104838E+01_JPRB, 0.104316E+01_JPRB &
+  &, 0.103749E+01_JPRB, 0.103140E+01_JPRB, 0.102489E+01_JPRB, 0.101795E+01_JPRB &
+  &, 0.101059E+01_JPRB, 0.100282E+01_JPRB, 0.994667E+00_JPRB &
+  &, 0.986105E+00_JPRB, 0.977163E+00_JPRB, 0.967840E+00_JPRB, 0.958156E+00_JPRB &
+  &, 0.948107E+00_JPRB, 0.937710E+00_JPRB, 0.926990E+00_JPRB &
+  &, 0.915929E+00_JPRB, 0.904558E+00_JPRB, 0.892901E+00_JPRB, 0.880936E+00_JPRB &
+  &, 0.868703E+00_JPRB, 0.856211E+00_JPRB, 0.843469E+00_JPRB &
+  &, 0.830500E+00_JPRB, 0.817304E+00_JPRB, 0.803895E+00_JPRB, 0.790302E+00_JPRB &
+  &, 0.776542E+00_JPRB, 0.762604E+00_JPRB, 0.748537E+00_JPRB &
+  &, 0.734329E+00_JPRB, 0.720002E+00_JPRB, 0.705576E+00_JPRB, 0.691072E+00_JPRB &
+  &, 0.676496E+00_JPRB, 0.661871E+00_JPRB, 0.647202E+00_JPRB &
+  &, 0.632492E+00_JPRB, 0.617802E+00_JPRB, 0.603097E+00_JPRB, 0.588419E+00_JPRB &
+  &, 0.573772E+00_JPRB, 0.559176E+00_JPRB, 0.544634E+00_JPRB &
+  &, 0.530165E+00_JPRB, 0.515792E+00_JPRB, 0.501512E+00_JPRB, 0.487344E+00_JPRB &
+  &, 0.473309E+00_JPRB, 0.459401E+00_JPRB, 0.445638E+00_JPRB &
+  &, 0.432036E+00_JPRB, 0.418586E+00_JPRB, 0.405328E+00_JPRB, 0.392226E+00_JPRB &
+  &, 0.379343E+00_JPRB, 0.366666E+00_JPRB, 0.354179E+00_JPRB &
+  &, 0.341919E+00_JPRB, 0.329895E+00_JPRB, 0.318087E+00_JPRB, 0.306501E+00_JPRB &
+  &, 0.295172E+00_JPRB, 0.284073E+00_JPRB, 0.273207E+00_JPRB &
+  &, 0.262608E+00_JPRB, 0.252275E+00_JPRB, 0.242176E+00_JPRB, 0.232341E+00_JPRB &
+  &, 0.222733E+00_JPRB, 0.213415E+00_JPRB, 0.204381E+00_JPRB &
+  &, 0.195555E+00_JPRB, 0.187032E+00_JPRB, 0.178732E+00_JPRB, 0.170717E+00_JPRB &
+  &, 0.162935E+00_JPRB, 0.155411E+00_JPRB, 0.148168E+00_JPRB &
+  &, 0.141110E+00_JPRB, 0.134338E+00_JPRB, 0.127834E+00_JPRB, 0.121535E+00_JPRB &
+  &, 0.115461E+00_JPRB, 0.109629E+00_JPRB, 0.104014E+00_JPRB &
+  &, 0.986351E-01_JPRB, 0.934633E-01_JPRB, 0.885152E-01_JPRB, 0.837601E-01_JPRB &
+  &, 0.792126E-01_JPRB, 0.748878E-01_JPRB, 0.707025E-01_JPRB &
+  &, 0.667676E-01_JPRB, 0.629470E-01_JPRB, 0.593527E-01_JPRB, 0.558946E-01_JPRB &
+  &, 0.526352E-01_JPRB, 0.494796E-01_JPRB, 0.465442E-01_JPRB &
+  &, 0.437315E-01_JPRB, 0.410495E-01_JPRB, 0.385065E-01_JPRB, 0.361110E-01_JPRB &
+  &, 0.338132E-01_JPRB, 0.316785E-01_JPRB, 0.296559E-01_JPRB &
+  &, 0.276912E-01_JPRB, 0.259116E-01_JPRB, 0.242016E-01_JPRB, 0.225656E-01_JPRB &
+  &, 0.210720E-01_JPRB, 0.195983E-01_JPRB, 0.182777E-01_JPRB/)
+XCW( 625, :) = (/ &
+  &  0.102871E+01_JPRB, 0.103491E+01_JPRB, 0.104071E+01_JPRB, 0.104610E+01_JPRB &
+  &, 0.105108E+01_JPRB, 0.105565E+01_JPRB, 0.105980E+01_JPRB &
+  &, 0.106353E+01_JPRB, 0.106683E+01_JPRB, 0.106970E+01_JPRB, 0.107213E+01_JPRB &
+  &, 0.107413E+01_JPRB, 0.107569E+01_JPRB, 0.107680E+01_JPRB &
+  &, 0.107748E+01_JPRB, 0.107770E+01_JPRB, 0.107748E+01_JPRB, 0.107680E+01_JPRB &
+  &, 0.107568E+01_JPRB, 0.107410E+01_JPRB, 0.107207E+01_JPRB &
+  &, 0.106959E+01_JPRB, 0.106666E+01_JPRB, 0.106328E+01_JPRB, 0.105945E+01_JPRB &
+  &, 0.105517E+01_JPRB, 0.105045E+01_JPRB, 0.104529E+01_JPRB &
+  &, 0.103970E+01_JPRB, 0.103367E+01_JPRB, 0.102721E+01_JPRB, 0.102033E+01_JPRB &
+  &, 0.101303E+01_JPRB, 0.100533E+01_JPRB, 0.997220E+00_JPRB &
+  &, 0.988719E+00_JPRB, 0.979824E+00_JPRB, 0.970558E+00_JPRB, 0.960913E+00_JPRB &
+  &, 0.950923E+00_JPRB, 0.940577E+00_JPRB, 0.929896E+00_JPRB &
+  &, 0.918875E+00_JPRB, 0.907555E+00_JPRB, 0.895926E+00_JPRB, 0.884012E+00_JPRB &
+  &, 0.871807E+00_JPRB, 0.859354E+00_JPRB, 0.846637E+00_JPRB &
+  &, 0.833693E+00_JPRB, 0.820521E+00_JPRB, 0.807148E+00_JPRB, 0.793576E+00_JPRB &
+  &, 0.779837E+00_JPRB, 0.765918E+00_JPRB, 0.751868E+00_JPRB &
+  &, 0.737677E+00_JPRB, 0.723364E+00_JPRB, 0.708950E+00_JPRB, 0.694441E+00_JPRB &
+  &, 0.679875E+00_JPRB, 0.665239E+00_JPRB, 0.650575E+00_JPRB &
+  &, 0.635886E+00_JPRB, 0.621177E+00_JPRB, 0.606471E+00_JPRB, 0.591771E+00_JPRB &
+  &, 0.577117E+00_JPRB, 0.562492E+00_JPRB, 0.547938E+00_JPRB &
+  &, 0.533455E+00_JPRB, 0.519064E+00_JPRB, 0.504765E+00_JPRB, 0.490575E+00_JPRB &
+  &, 0.476492E+00_JPRB, 0.462556E+00_JPRB, 0.448761E+00_JPRB &
+  &, 0.435125E+00_JPRB, 0.421662E+00_JPRB, 0.408364E+00_JPRB, 0.395244E+00_JPRB &
+  &, 0.382315E+00_JPRB, 0.369588E+00_JPRB, 0.357048E+00_JPRB &
+  &, 0.344759E+00_JPRB, 0.332676E+00_JPRB, 0.320805E+00_JPRB, 0.309181E+00_JPRB &
+  &, 0.297781E+00_JPRB, 0.286639E+00_JPRB, 0.275758E+00_JPRB &
+  &, 0.265077E+00_JPRB, 0.254692E+00_JPRB, 0.244538E+00_JPRB, 0.234645E+00_JPRB &
+  &, 0.225010E+00_JPRB, 0.215593E+00_JPRB, 0.206527E+00_JPRB &
+  &, 0.197665E+00_JPRB, 0.189070E+00_JPRB, 0.180730E+00_JPRB, 0.172635E+00_JPRB &
+  &, 0.164809E+00_JPRB, 0.157238E+00_JPRB, 0.149907E+00_JPRB &
+  &, 0.142837E+00_JPRB, 0.136012E+00_JPRB, 0.129410E+00_JPRB, 0.123095E+00_JPRB &
+  &, 0.116959E+00_JPRB, 0.111064E+00_JPRB, 0.105428E+00_JPRB &
+  &, 0.999812E-01_JPRB, 0.947847E-01_JPRB, 0.897643E-01_JPRB, 0.849813E-01_JPRB &
+  &, 0.804047E-01_JPRB, 0.760011E-01_JPRB, 0.717833E-01_JPRB &
+  &, 0.677647E-01_JPRB, 0.639588E-01_JPRB, 0.602767E-01_JPRB, 0.567800E-01_JPRB &
+  &, 0.534806E-01_JPRB, 0.503371E-01_JPRB, 0.473053E-01_JPRB &
+  &, 0.444482E-01_JPRB, 0.417764E-01_JPRB, 0.391869E-01_JPRB, 0.367434E-01_JPRB &
+  &, 0.344543E-01_JPRB, 0.322694E-01_JPRB, 0.301949E-01_JPRB &
+  &, 0.282375E-01_JPRB, 0.264038E-01_JPRB, 0.246380E-01_JPRB, 0.230079E-01_JPRB &
+  &, 0.214562E-01_JPRB, 0.199874E-01_JPRB, 0.186720E-01_JPRB/)
+XCW( 626, :) = (/ &
+  &  0.102898E+01_JPRB, 0.103525E+01_JPRB, 0.104112E+01_JPRB, 0.104658E+01_JPRB &
+  &, 0.105163E+01_JPRB, 0.105627E+01_JPRB, 0.106049E+01_JPRB &
+  &, 0.106429E+01_JPRB, 0.106766E+01_JPRB, 0.107060E+01_JPRB, 0.107310E+01_JPRB &
+  &, 0.107517E+01_JPRB, 0.107680E+01_JPRB, 0.107799E+01_JPRB &
+  &, 0.107873E+01_JPRB, 0.107903E+01_JPRB, 0.107887E+01_JPRB, 0.107827E+01_JPRB &
+  &, 0.107721E+01_JPRB, 0.107571E+01_JPRB, 0.107375E+01_JPRB &
+  &, 0.107134E+01_JPRB, 0.106847E+01_JPRB, 0.106516E+01_JPRB, 0.106139E+01_JPRB &
+  &, 0.105718E+01_JPRB, 0.105253E+01_JPRB, 0.104743E+01_JPRB &
+  &, 0.104190E+01_JPRB, 0.103593E+01_JPRB, 0.102954E+01_JPRB, 0.102272E+01_JPRB &
+  &, 0.101548E+01_JPRB, 0.100784E+01_JPRB, 0.999783E+00_JPRB &
+  &, 0.991333E+00_JPRB, 0.982494E+00_JPRB, 0.973276E+00_JPRB, 0.963690E+00_JPRB &
+  &, 0.953740E+00_JPRB, 0.943443E+00_JPRB, 0.932802E+00_JPRB &
+  &, 0.921843E+00_JPRB, 0.910552E+00_JPRB, 0.898963E+00_JPRB, 0.887089E+00_JPRB &
+  &, 0.874923E+00_JPRB, 0.862497E+00_JPRB, 0.849818E+00_JPRB &
+  &, 0.836912E+00_JPRB, 0.823764E+00_JPRB, 0.810415E+00_JPRB, 0.796865E+00_JPRB &
+  &, 0.783146E+00_JPRB, 0.769247E+00_JPRB, 0.755214E+00_JPRB &
+  &, 0.741024E+00_JPRB, 0.726726E+00_JPRB, 0.712325E+00_JPRB, 0.697844E+00_JPRB &
+  &, 0.683270E+00_JPRB, 0.668642E+00_JPRB, 0.653965E+00_JPRB &
+  &, 0.639279E+00_JPRB, 0.624553E+00_JPRB, 0.609846E+00_JPRB, 0.595141E+00_JPRB &
+  &, 0.580481E+00_JPRB, 0.565848E+00_JPRB, 0.551283E+00_JPRB &
+  &, 0.536766E+00_JPRB, 0.522359E+00_JPRB, 0.508040E+00_JPRB, 0.493807E+00_JPRB &
+  &, 0.479721E+00_JPRB, 0.465757E+00_JPRB, 0.451932E+00_JPRB &
+  &, 0.438262E+00_JPRB, 0.424738E+00_JPRB, 0.411400E+00_JPRB, 0.398262E+00_JPRB &
+  &, 0.385287E+00_JPRB, 0.372510E+00_JPRB, 0.359945E+00_JPRB &
+  &, 0.347600E+00_JPRB, 0.335457E+00_JPRB, 0.323551E+00_JPRB, 0.311890E+00_JPRB &
+  &, 0.300450E+00_JPRB, 0.289265E+00_JPRB, 0.278308E+00_JPRB &
+  &, 0.267611E+00_JPRB, 0.257142E+00_JPRB, 0.246933E+00_JPRB, 0.236982E+00_JPRB &
+  &, 0.227320E+00_JPRB, 0.217874E+00_JPRB, 0.208707E+00_JPRB &
+  &, 0.199812E+00_JPRB, 0.191144E+00_JPRB, 0.182766E+00_JPRB, 0.174592E+00_JPRB &
+  &, 0.166722E+00_JPRB, 0.159105E+00_JPRB, 0.151725E+00_JPRB &
+  &, 0.144605E+00_JPRB, 0.137686E+00_JPRB, 0.131070E+00_JPRB, 0.124655E+00_JPRB &
+  &, 0.118501E+00_JPRB, 0.112543E+00_JPRB, 0.106842E+00_JPRB &
+  &, 0.101372E+00_JPRB, 0.961061E-01_JPRB, 0.910598E-01_JPRB, 0.862026E-01_JPRB &
+  &, 0.815491E-01_JPRB, 0.771143E-01_JPRB, 0.728641E-01_JPRB &
+  &, 0.688117E-01_JPRB, 0.649201E-01_JPRB, 0.612521E-01_JPRB, 0.577174E-01_JPRB &
+  &, 0.543788E-01_JPRB, 0.511411E-01_JPRB, 0.481207E-01_JPRB &
+  &, 0.452201E-01_JPRB, 0.425032E-01_JPRB, 0.398672E-01_JPRB, 0.374332E-01_JPRB &
+  &, 0.350954E-01_JPRB, 0.328602E-01_JPRB, 0.307339E-01_JPRB &
+  &, 0.287839E-01_JPRB, 0.268959E-01_JPRB, 0.251368E-01_JPRB, 0.234501E-01_JPRB &
+  &, 0.219043E-01_JPRB, 0.204415E-01_JPRB, 0.190005E-01_JPRB/)
+XCW( 627, :) = (/ &
+  &  0.102925E+01_JPRB, 0.103558E+01_JPRB, 0.104152E+01_JPRB, 0.104705E+01_JPRB &
+  &, 0.105218E+01_JPRB, 0.105689E+01_JPRB, 0.106118E+01_JPRB &
+  &, 0.106505E+01_JPRB, 0.106848E+01_JPRB, 0.107150E+01_JPRB, 0.107408E+01_JPRB &
+  &, 0.107622E+01_JPRB, 0.107792E+01_JPRB, 0.107917E+01_JPRB &
+  &, 0.107999E+01_JPRB, 0.108036E+01_JPRB, 0.108027E+01_JPRB, 0.107974E+01_JPRB &
+  &, 0.107875E+01_JPRB, 0.107731E+01_JPRB, 0.107543E+01_JPRB &
+  &, 0.107308E+01_JPRB, 0.107029E+01_JPRB, 0.106704E+01_JPRB, 0.106335E+01_JPRB &
+  &, 0.105920E+01_JPRB, 0.105461E+01_JPRB, 0.104958E+01_JPRB &
+  &, 0.104411E+01_JPRB, 0.103821E+01_JPRB, 0.103187E+01_JPRB, 0.102511E+01_JPRB &
+  &, 0.101794E+01_JPRB, 0.101034E+01_JPRB, 0.100235E+01_JPRB &
+  &, 0.993956E+00_JPRB, 0.985174E+00_JPRB, 0.976005E+00_JPRB, 0.966467E+00_JPRB &
+  &, 0.956577E+00_JPRB, 0.946320E+00_JPRB, 0.935730E+00_JPRB &
+  &, 0.924811E+00_JPRB, 0.913560E+00_JPRB, 0.902023E+00_JPRB, 0.890177E+00_JPRB &
+  &, 0.878051E+00_JPRB, 0.865664E+00_JPRB, 0.853012E+00_JPRB &
+  &, 0.840132E+00_JPRB, 0.827021E+00_JPRB, 0.813695E+00_JPRB, 0.800168E+00_JPRB &
+  &, 0.786470E+00_JPRB, 0.772590E+00_JPRB, 0.758561E+00_JPRB &
+  &, 0.744402E+00_JPRB, 0.730119E+00_JPRB, 0.715716E+00_JPRB, 0.701246E+00_JPRB &
+  &, 0.686682E+00_JPRB, 0.672062E+00_JPRB, 0.657391E+00_JPRB &
+  &, 0.642546E+00_JPRB, 0.627966E+00_JPRB, 0.613239E+00_JPRB, 0.598531E+00_JPRB &
+  &, 0.583846E+00_JPRB, 0.569204E+00_JPRB, 0.554628E+00_JPRB &
+  &, 0.540098E+00_JPRB, 0.525675E+00_JPRB, 0.511316E+00_JPRB, 0.497083E+00_JPRB &
+  &, 0.482950E+00_JPRB, 0.468959E+00_JPRB, 0.455103E+00_JPRB &
+  &, 0.441400E+00_JPRB, 0.427864E+00_JPRB, 0.414486E+00_JPRB, 0.401280E+00_JPRB &
+  &, 0.388285E+00_JPRB, 0.375459E+00_JPRB, 0.362869E+00_JPRB &
+  &, 0.350468E+00_JPRB, 0.338294E+00_JPRB, 0.326326E+00_JPRB, 0.314629E+00_JPRB &
+  &, 0.303120E+00_JPRB, 0.291892E+00_JPRB, 0.280889E+00_JPRB &
+  &, 0.270112E+00_JPRB, 0.259624E+00_JPRB, 0.249361E+00_JPRB, 0.239353E+00_JPRB &
+  &, 0.229631E+00_JPRB, 0.220122E+00_JPRB, 0.210923E+00_JPRB &
+  &, 0.201958E+00_JPRB, 0.193218E+00_JPRB, 0.184764E+00_JPRB, 0.176586E+00_JPRB &
+  &, 0.168635E+00_JPRB, 0.160972E+00_JPRB, 0.153544E+00_JPRB &
+  &, 0.146333E+00_JPRB, 0.139401E+00_JPRB, 0.132729E+00_JPRB, 0.126256E+00_JPRB &
+  &, 0.120043E+00_JPRB, 0.114066E+00_JPRB, 0.108300E+00_JPRB &
+  &, 0.102763E+00_JPRB, 0.974275E-01_JPRB, 0.923552E-01_JPRB, 0.874238E-01_JPRB &
+  &, 0.827412E-01_JPRB, 0.782759E-01_JPRB, 0.739940E-01_JPRB &
+  &, 0.698587E-01_JPRB, 0.659319E-01_JPRB, 0.622274E-01_JPRB, 0.586549E-01_JPRB &
+  &, 0.552242E-01_JPRB, 0.519986E-01_JPRB, 0.489362E-01_JPRB &
+  &, 0.459920E-01_JPRB, 0.432301E-01_JPRB, 0.406043E-01_JPRB, 0.380655E-01_JPRB &
+  &, 0.357365E-01_JPRB, 0.334510E-01_JPRB, 0.313329E-01_JPRB &
+  &, 0.293302E-01_JPRB, 0.274497E-01_JPRB, 0.256356E-01_JPRB, 0.239556E-01_JPRB &
+  &, 0.223524E-01_JPRB, 0.208306E-01_JPRB, 0.193948E-01_JPRB/)
+XCW( 628, :) = (/ &
+  &  0.102951E+01_JPRB, 0.103592E+01_JPRB, 0.104193E+01_JPRB, 0.104753E+01_JPRB &
+  &, 0.105273E+01_JPRB, 0.105751E+01_JPRB, 0.106187E+01_JPRB &
+  &, 0.106581E+01_JPRB, 0.106932E+01_JPRB, 0.107240E+01_JPRB, 0.107505E+01_JPRB &
+  &, 0.107726E+01_JPRB, 0.107904E+01_JPRB, 0.108036E+01_JPRB &
+  &, 0.108125E+01_JPRB, 0.108169E+01_JPRB, 0.108167E+01_JPRB, 0.108121E+01_JPRB &
+  &, 0.108030E+01_JPRB, 0.107893E+01_JPRB, 0.107711E+01_JPRB &
+  &, 0.107483E+01_JPRB, 0.107211E+01_JPRB, 0.106893E+01_JPRB, 0.106530E+01_JPRB &
+  &, 0.106122E+01_JPRB, 0.105670E+01_JPRB, 0.105173E+01_JPRB &
+  &, 0.104633E+01_JPRB, 0.104048E+01_JPRB, 0.103421E+01_JPRB, 0.102751E+01_JPRB &
+  &, 0.102040E+01_JPRB, 0.101286E+01_JPRB, 0.100493E+01_JPRB &
+  &, 0.996588E+00_JPRB, 0.987854E+00_JPRB, 0.978742E+00_JPRB, 0.969254E+00_JPRB &
+  &, 0.959414E+00_JPRB, 0.949207E+00_JPRB, 0.938658E+00_JPRB &
+  &, 0.927779E+00_JPRB, 0.916580E+00_JPRB, 0.905082E+00_JPRB, 0.893277E+00_JPRB &
+  &, 0.881191E+00_JPRB, 0.868832E+00_JPRB, 0.856219E+00_JPRB &
+  &, 0.843364E+00_JPRB, 0.830278E+00_JPRB, 0.816976E+00_JPRB, 0.803485E+00_JPRB &
+  &, 0.789793E+00_JPRB, 0.775948E+00_JPRB, 0.761938E+00_JPRB &
+  &, 0.747796E+00_JPRB, 0.733513E+00_JPRB, 0.719139E+00_JPRB, 0.704648E+00_JPRB &
+  &, 0.690094E+00_JPRB, 0.675481E+00_JPRB, 0.660816E+00_JPRB &
+  &, 0.646102E+00_JPRB, 0.631379E+00_JPRB, 0.616651E+00_JPRB, 0.601941E+00_JPRB &
+  &, 0.587250E+00_JPRB, 0.572601E+00_JPRB, 0.557994E+00_JPRB &
+  &, 0.543451E+00_JPRB, 0.528991E+00_JPRB, 0.514635E+00_JPRB, 0.500359E+00_JPRB &
+  &, 0.486202E+00_JPRB, 0.472184E+00_JPRB, 0.458298E+00_JPRB &
+  &, 0.444561E+00_JPRB, 0.430990E+00_JPRB, 0.417573E+00_JPRB, 0.404350E+00_JPRB &
+  &, 0.391283E+00_JPRB, 0.378435E+00_JPRB, 0.365792E+00_JPRB &
+  &, 0.353364E+00_JPRB, 0.341132E+00_JPRB, 0.329130E+00_JPRB, 0.317367E+00_JPRB &
+  &, 0.305819E+00_JPRB, 0.294519E+00_JPRB, 0.283471E+00_JPRB &
+  &, 0.272677E+00_JPRB, 0.262106E+00_JPRB, 0.251789E+00_JPRB, 0.241757E+00_JPRB &
+  &, 0.231941E+00_JPRB, 0.222403E+00_JPRB, 0.213138E+00_JPRB &
+  &, 0.204105E+00_JPRB, 0.195328E+00_JPRB, 0.186836E+00_JPRB, 0.178580E+00_JPRB &
+  &, 0.170586E+00_JPRB, 0.162838E+00_JPRB, 0.155362E+00_JPRB &
+  &, 0.148101E+00_JPRB, 0.141116E+00_JPRB, 0.134389E+00_JPRB, 0.127858E+00_JPRB &
+  &, 0.121584E+00_JPRB, 0.115545E+00_JPRB, 0.109758E+00_JPRB &
+  &, 0.104154E+00_JPRB, 0.987944E-01_JPRB, 0.936506E-01_JPRB, 0.886921E-01_JPRB &
+  &, 0.839810E-01_JPRB, 0.794376E-01_JPRB, 0.750747E-01_JPRB &
+  &, 0.709555E-01_JPRB, 0.669944E-01_JPRB, 0.632028E-01_JPRB, 0.595924E-01_JPRB &
+  &, 0.561224E-01_JPRB, 0.528561E-01_JPRB, 0.497516E-01_JPRB &
+  &, 0.467639E-01_JPRB, 0.439569E-01_JPRB, 0.412846E-01_JPRB, 0.387554E-01_JPRB &
+  &, 0.363776E-01_JPRB, 0.341009E-01_JPRB, 0.319318E-01_JPRB &
+  &, 0.298765E-01_JPRB, 0.279419E-01_JPRB, 0.261344E-01_JPRB, 0.243978E-01_JPRB &
+  &, 0.228005E-01_JPRB, 0.212847E-01_JPRB, 0.198548E-01_JPRB/)
+XCW( 629, :) = (/ &
+  &  0.102979E+01_JPRB, 0.103626E+01_JPRB, 0.104234E+01_JPRB, 0.104801E+01_JPRB &
+  &, 0.105327E+01_JPRB, 0.105812E+01_JPRB, 0.106256E+01_JPRB &
+  &, 0.106657E+01_JPRB, 0.107015E+01_JPRB, 0.107330E+01_JPRB, 0.107603E+01_JPRB &
+  &, 0.107831E+01_JPRB, 0.108015E+01_JPRB, 0.108156E+01_JPRB &
+  &, 0.108251E+01_JPRB, 0.108302E+01_JPRB, 0.108308E+01_JPRB, 0.108269E+01_JPRB &
+  &, 0.108184E+01_JPRB, 0.108054E+01_JPRB, 0.107879E+01_JPRB &
+  &, 0.107659E+01_JPRB, 0.107393E+01_JPRB, 0.107082E+01_JPRB, 0.106726E+01_JPRB &
+  &, 0.106325E+01_JPRB, 0.105879E+01_JPRB, 0.105389E+01_JPRB &
+  &, 0.104855E+01_JPRB, 0.104277E+01_JPRB, 0.103655E+01_JPRB, 0.102992E+01_JPRB &
+  &, 0.102286E+01_JPRB, 0.101539E+01_JPRB, 0.100751E+01_JPRB &
+  &, 0.999220E+00_JPRB, 0.990552E+00_JPRB, 0.981490E+00_JPRB, 0.972051E+00_JPRB &
+  &, 0.962261E+00_JPRB, 0.952105E+00_JPRB, 0.941607E+00_JPRB &
+  &, 0.930769E+00_JPRB, 0.919611E+00_JPRB, 0.908142E+00_JPRB, 0.896389E+00_JPRB &
+  &, 0.884331E+00_JPRB, 0.872012E+00_JPRB, 0.859439E+00_JPRB &
+  &, 0.846610E+00_JPRB, 0.833549E+00_JPRB, 0.820284E+00_JPRB, 0.806802E+00_JPRB &
+  &, 0.793146E+00_JPRB, 0.779292E+00_JPRB, 0.765330E+00_JPRB &
+  &, 0.751190E+00_JPRB, 0.736922E+00_JPRB, 0.722562E+00_JPRB, 0.708084E+00_JPRB &
+  &, 0.693540E+00_JPRB, 0.678919E+00_JPRB, 0.664260E+00_JPRB &
+  &, 0.649550E+00_JPRB, 0.634830E+00_JPRB, 0.620083E+00_JPRB, 0.605369E+00_JPRB &
+  &, 0.590654E+00_JPRB, 0.575997E+00_JPRB, 0.561381E+00_JPRB &
+  &, 0.546825E+00_JPRB, 0.532350E+00_JPRB, 0.517954E+00_JPRB, 0.503657E+00_JPRB &
+  &, 0.489477E+00_JPRB, 0.475432E+00_JPRB, 0.461517E+00_JPRB &
+  &, 0.447748E+00_JPRB, 0.434140E+00_JPRB, 0.420685E+00_JPRB, 0.407420E+00_JPRB &
+  &, 0.394334E+00_JPRB, 0.381438E+00_JPRB, 0.368744E+00_JPRB &
+  &, 0.356260E+00_JPRB, 0.343998E+00_JPRB, 0.331963E+00_JPRB, 0.320136E+00_JPRB &
+  &, 0.308548E+00_JPRB, 0.297207E+00_JPRB, 0.286083E+00_JPRB &
+  &, 0.275242E+00_JPRB, 0.264620E+00_JPRB, 0.254250E+00_JPRB, 0.244161E+00_JPRB &
+  &, 0.234320E+00_JPRB, 0.224719E+00_JPRB, 0.215354E+00_JPRB &
+  &, 0.206287E+00_JPRB, 0.197475E+00_JPRB, 0.188908E+00_JPRB, 0.180612E+00_JPRB &
+  &, 0.172537E+00_JPRB, 0.164744E+00_JPRB, 0.157220E+00_JPRB &
+  &, 0.149909E+00_JPRB, 0.142871E+00_JPRB, 0.136049E+00_JPRB, 0.129502E+00_JPRB &
+  &, 0.123169E+00_JPRB, 0.117067E+00_JPRB, 0.111216E+00_JPRB &
+  &, 0.105590E+00_JPRB, 0.100161E+00_JPRB, 0.949460E-01_JPRB, 0.899603E-01_JPRB &
+  &, 0.851731E-01_JPRB, 0.805992E-01_JPRB, 0.762047E-01_JPRB &
+  &, 0.720025E-01_JPRB, 0.680062E-01_JPRB, 0.641781E-01_JPRB, 0.605299E-01_JPRB &
+  &, 0.570734E-01_JPRB, 0.537673E-01_JPRB, 0.505670E-01_JPRB &
+  &, 0.475909E-01_JPRB, 0.447397E-01_JPRB, 0.420217E-01_JPRB, 0.394452E-01_JPRB &
+  &, 0.370187E-01_JPRB, 0.346918E-01_JPRB, 0.325307E-01_JPRB &
+  &, 0.304229E-01_JPRB, 0.284956E-01_JPRB, 0.266332E-01_JPRB, 0.249033E-01_JPRB &
+  &, 0.232487E-01_JPRB, 0.216738E-01_JPRB, 0.202490E-01_JPRB/)
+XCW( 630, :) = (/ &
+  &  0.103006E+01_JPRB, 0.103660E+01_JPRB, 0.104275E+01_JPRB, 0.104849E+01_JPRB &
+  &, 0.105382E+01_JPRB, 0.105874E+01_JPRB, 0.106325E+01_JPRB &
+  &, 0.106733E+01_JPRB, 0.107098E+01_JPRB, 0.107421E+01_JPRB, 0.107700E+01_JPRB &
+  &, 0.107936E+01_JPRB, 0.108127E+01_JPRB, 0.108275E+01_JPRB &
+  &, 0.108377E+01_JPRB, 0.108435E+01_JPRB, 0.108449E+01_JPRB, 0.108417E+01_JPRB &
+  &, 0.108339E+01_JPRB, 0.108216E+01_JPRB, 0.108048E+01_JPRB &
+  &, 0.107834E+01_JPRB, 0.107576E+01_JPRB, 0.107271E+01_JPRB, 0.106922E+01_JPRB &
+  &, 0.106528E+01_JPRB, 0.106089E+01_JPRB, 0.105605E+01_JPRB &
+  &, 0.105077E+01_JPRB, 0.104505E+01_JPRB, 0.103891E+01_JPRB, 0.103233E+01_JPRB &
+  &, 0.102533E+01_JPRB, 0.101792E+01_JPRB, 0.101009E+01_JPRB &
+  &, 0.100187E+01_JPRB, 0.993251E+00_JPRB, 0.984238E+00_JPRB, 0.974859E+00_JPRB &
+  &, 0.965108E+00_JPRB, 0.955003E+00_JPRB, 0.944556E+00_JPRB &
+  &, 0.933759E+00_JPRB, 0.922653E+00_JPRB, 0.911226E+00_JPRB, 0.899501E+00_JPRB &
+  &, 0.887496E+00_JPRB, 0.875204E+00_JPRB, 0.862658E+00_JPRB &
+  &, 0.849868E+00_JPRB, 0.836846E+00_JPRB, 0.823592E+00_JPRB, 0.810147E+00_JPRB &
+  &, 0.796513E+00_JPRB, 0.782694E+00_JPRB, 0.768722E+00_JPRB &
+  &, 0.754600E+00_JPRB, 0.740363E+00_JPRB, 0.726002E+00_JPRB, 0.711536E+00_JPRB &
+  &, 0.696986E+00_JPRB, 0.682373E+00_JPRB, 0.667704E+00_JPRB &
+  &, 0.652998E+00_JPRB, 0.638280E+00_JPRB, 0.623533E+00_JPRB, 0.608798E+00_JPRB &
+  &, 0.594098E+00_JPRB, 0.579414E+00_JPRB, 0.564767E+00_JPRB &
+  &, 0.550199E+00_JPRB, 0.535709E+00_JPRB, 0.521296E+00_JPRB, 0.506978E+00_JPRB &
+  &, 0.492774E+00_JPRB, 0.478703E+00_JPRB, 0.464759E+00_JPRB &
+  &, 0.450958E+00_JPRB, 0.437291E+00_JPRB, 0.423822E+00_JPRB, 0.410516E+00_JPRB &
+  &, 0.397385E+00_JPRB, 0.384468E+00_JPRB, 0.371722E+00_JPRB &
+  &, 0.359184E+00_JPRB, 0.346892E+00_JPRB, 0.334796E+00_JPRB, 0.322933E+00_JPRB &
+  &, 0.311278E+00_JPRB, 0.299895E+00_JPRB, 0.288727E+00_JPRB &
+  &, 0.277807E+00_JPRB, 0.267167E+00_JPRB, 0.256743E+00_JPRB, 0.246566E+00_JPRB &
+  &, 0.236664E+00_JPRB, 0.227036E+00_JPRB, 0.217640E+00_JPRB &
+  &, 0.208505E+00_JPRB, 0.199622E+00_JPRB, 0.191017E+00_JPRB, 0.182644E+00_JPRB &
+  &, 0.174526E+00_JPRB, 0.166688E+00_JPRB, 0.159078E+00_JPRB &
+  &, 0.151716E+00_JPRB, 0.144627E+00_JPRB, 0.137750E+00_JPRB, 0.131146E+00_JPRB &
+  &, 0.124753E+00_JPRB, 0.118633E+00_JPRB, 0.112718E+00_JPRB &
+  &, 0.107026E+00_JPRB, 0.101528E+00_JPRB, 0.962877E-01_JPRB, 0.912755E-01_JPRB &
+  &, 0.864129E-01_JPRB, 0.818093E-01_JPRB, 0.773837E-01_JPRB &
+  &, 0.731492E-01_JPRB, 0.690687E-01_JPRB, 0.652048E-01_JPRB, 0.615195E-01_JPRB &
+  &, 0.579717E-01_JPRB, 0.546248E-01_JPRB, 0.514368E-01_JPRB &
+  &, 0.484179E-01_JPRB, 0.455225E-01_JPRB, 0.427587E-01_JPRB, 0.401350E-01_JPRB &
+  &, 0.376598E-01_JPRB, 0.353417E-01_JPRB, 0.331296E-01_JPRB &
+  &, 0.310299E-01_JPRB, 0.290493E-01_JPRB, 0.271320E-01_JPRB, 0.254087E-01_JPRB &
+  &, 0.236968E-01_JPRB, 0.221279E-01_JPRB, 0.206433E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART90',1,ZHOOK_HANDLE)
+END SUBROUTINE PART90
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART91
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART91',0,ZHOOK_HANDLE)
+
+XCW( 631, :) = (/ &
+  &  0.103033E+01_JPRB, 0.103694E+01_JPRB, 0.104316E+01_JPRB, 0.104897E+01_JPRB &
+  &, 0.105437E+01_JPRB, 0.105936E+01_JPRB, 0.106394E+01_JPRB &
+  &, 0.106809E+01_JPRB, 0.107182E+01_JPRB, 0.107512E+01_JPRB, 0.107798E+01_JPRB &
+  &, 0.108041E+01_JPRB, 0.108240E+01_JPRB, 0.108394E+01_JPRB &
+  &, 0.108504E+01_JPRB, 0.108569E+01_JPRB, 0.108589E+01_JPRB, 0.108564E+01_JPRB &
+  &, 0.108494E+01_JPRB, 0.108379E+01_JPRB, 0.108217E+01_JPRB &
+  &, 0.108011E+01_JPRB, 0.107759E+01_JPRB, 0.107462E+01_JPRB, 0.107119E+01_JPRB &
+  &, 0.106731E+01_JPRB, 0.106299E+01_JPRB, 0.105821E+01_JPRB &
+  &, 0.105300E+01_JPRB, 0.104735E+01_JPRB, 0.104127E+01_JPRB, 0.103475E+01_JPRB &
+  &, 0.102781E+01_JPRB, 0.102045E+01_JPRB, 0.101269E+01_JPRB &
+  &, 0.100452E+01_JPRB, 0.995950E+00_JPRB, 0.987005E+00_JPRB, 0.977676E+00_JPRB &
+  &, 0.967976E+00_JPRB, 0.957912E+00_JPRB, 0.947506E+00_JPRB &
+  &, 0.936772E+00_JPRB, 0.925695E+00_JPRB, 0.914320E+00_JPRB, 0.902626E+00_JPRB &
+  &, 0.890661E+00_JPRB, 0.878409E+00_JPRB, 0.865891E+00_JPRB &
+  &, 0.853140E+00_JPRB, 0.840144E+00_JPRB, 0.826914E+00_JPRB, 0.813492E+00_JPRB &
+  &, 0.799880E+00_JPRB, 0.786082E+00_JPRB, 0.772129E+00_JPRB &
+  &, 0.758024E+00_JPRB, 0.743805E+00_JPRB, 0.729442E+00_JPRB, 0.715005E+00_JPRB &
+  &, 0.700466E+00_JPRB, 0.685845E+00_JPRB, 0.671183E+00_JPRB &
+  &, 0.656482E+00_JPRB, 0.641748E+00_JPRB, 0.627002E+00_JPRB, 0.612266E+00_JPRB &
+  &, 0.597542E+00_JPRB, 0.582851E+00_JPRB, 0.568195E+00_JPRB &
+  &, 0.553615E+00_JPRB, 0.539089E+00_JPRB, 0.524659E+00_JPRB, 0.510321E+00_JPRB &
+  &, 0.496095E+00_JPRB, 0.481975E+00_JPRB, 0.468002E+00_JPRB &
+  &, 0.454168E+00_JPRB, 0.440491E+00_JPRB, 0.426984E+00_JPRB, 0.413637E+00_JPRB &
+  &, 0.400462E+00_JPRB, 0.387497E+00_JPRB, 0.374728E+00_JPRB &
+  &, 0.362136E+00_JPRB, 0.349786E+00_JPRB, 0.337658E+00_JPRB, 0.325731E+00_JPRB &
+  &, 0.314037E+00_JPRB, 0.302613E+00_JPRB, 0.291402E+00_JPRB &
+  &, 0.280435E+00_JPRB, 0.269713E+00_JPRB, 0.259237E+00_JPRB, 0.249036E+00_JPRB &
+  &, 0.239077E+00_JPRB, 0.229352E+00_JPRB, 0.219926E+00_JPRB &
+  &, 0.210723E+00_JPRB, 0.201805E+00_JPRB, 0.193126E+00_JPRB, 0.184713E+00_JPRB &
+  &, 0.176553E+00_JPRB, 0.168633E+00_JPRB, 0.160975E+00_JPRB &
+  &, 0.153565E+00_JPRB, 0.146423E+00_JPRB, 0.139492E+00_JPRB, 0.132832E+00_JPRB &
+  &, 0.126381E+00_JPRB, 0.120199E+00_JPRB, 0.114220E+00_JPRB &
+  &, 0.108462E+00_JPRB, 0.102941E+00_JPRB, 0.976294E-01_JPRB, 0.925437E-01_JPRB &
+  &, 0.877003E-01_JPRB, 0.830193E-01_JPRB, 0.785136E-01_JPRB &
+  &, 0.742460E-01_JPRB, 0.701311E-01_JPRB, 0.662315E-01_JPRB, 0.625090E-01_JPRB &
+  &, 0.589227E-01_JPRB, 0.555360E-01_JPRB, 0.523066E-01_JPRB &
+  &, 0.492449E-01_JPRB, 0.463052E-01_JPRB, 0.434958E-01_JPRB, 0.408823E-01_JPRB &
+  &, 0.383592E-01_JPRB, 0.359916E-01_JPRB, 0.337285E-01_JPRB &
+  &, 0.316370E-01_JPRB, 0.296030E-01_JPRB, 0.276931E-01_JPRB, 0.259142E-01_JPRB &
+  &, 0.242089E-01_JPRB, 0.225819E-01_JPRB, 0.211033E-01_JPRB/)
+XCW( 632, :) = (/ &
+  &  0.103060E+01_JPRB, 0.103728E+01_JPRB, 0.104357E+01_JPRB, 0.104945E+01_JPRB &
+  &, 0.105492E+01_JPRB, 0.105999E+01_JPRB, 0.106463E+01_JPRB &
+  &, 0.106886E+01_JPRB, 0.107266E+01_JPRB, 0.107602E+01_JPRB, 0.107896E+01_JPRB &
+  &, 0.108146E+01_JPRB, 0.108352E+01_JPRB, 0.108514E+01_JPRB &
+  &, 0.108631E+01_JPRB, 0.108703E+01_JPRB, 0.108731E+01_JPRB, 0.108713E+01_JPRB &
+  &, 0.108650E+01_JPRB, 0.108541E+01_JPRB, 0.108387E+01_JPRB &
+  &, 0.108187E+01_JPRB, 0.107942E+01_JPRB, 0.107652E+01_JPRB, 0.107316E+01_JPRB &
+  &, 0.106935E+01_JPRB, 0.106509E+01_JPRB, 0.106039E+01_JPRB &
+  &, 0.105524E+01_JPRB, 0.104965E+01_JPRB, 0.104363E+01_JPRB, 0.103717E+01_JPRB &
+  &, 0.103030E+01_JPRB, 0.102300E+01_JPRB, 0.101529E+01_JPRB &
+  &, 0.100717E+01_JPRB, 0.998668E+00_JPRB, 0.989772E+00_JPRB, 0.980493E+00_JPRB &
+  &, 0.970844E+00_JPRB, 0.960831E+00_JPRB, 0.950477E+00_JPRB &
+  &, 0.939784E+00_JPRB, 0.928760E+00_JPRB, 0.917415E+00_JPRB, 0.905773E+00_JPRB &
+  &, 0.893838E+00_JPRB, 0.881627E+00_JPRB, 0.869149E+00_JPRB &
+  &, 0.856412E+00_JPRB, 0.843441E+00_JPRB, 0.830263E+00_JPRB, 0.816865E+00_JPRB &
+  &, 0.803262E+00_JPRB, 0.789499E+00_JPRB, 0.775566E+00_JPRB &
+  &, 0.761480E+00_JPRB, 0.747262E+00_JPRB, 0.732914E+00_JPRB, 0.718473E+00_JPRB &
+  &, 0.703946E+00_JPRB, 0.689335E+00_JPRB, 0.674679E+00_JPRB &
+  &, 0.659966E+00_JPRB, 0.645235E+00_JPRB, 0.630490E+00_JPRB, 0.615733E+00_JPRB &
+  &, 0.601005E+00_JPRB, 0.586288E+00_JPRB, 0.571644E+00_JPRB &
+  &, 0.557031E+00_JPRB, 0.542491E+00_JPRB, 0.528044E+00_JPRB, 0.513687E+00_JPRB &
+  &, 0.499415E+00_JPRB, 0.485293E+00_JPRB, 0.471292E+00_JPRB &
+  &, 0.457403E+00_JPRB, 0.443691E+00_JPRB, 0.430147E+00_JPRB, 0.416759E+00_JPRB &
+  &, 0.403566E+00_JPRB, 0.390554E+00_JPRB, 0.377734E+00_JPRB &
+  &, 0.365116E+00_JPRB, 0.352709E+00_JPRB, 0.340520E+00_JPRB, 0.328558E+00_JPRB &
+  &, 0.316827E+00_JPRB, 0.305332E+00_JPRB, 0.294077E+00_JPRB &
+  &, 0.283063E+00_JPRB, 0.272292E+00_JPRB, 0.261763E+00_JPRB, 0.251507E+00_JPRB &
+  &, 0.241489E+00_JPRB, 0.231737E+00_JPRB, 0.222212E+00_JPRB &
+  &, 0.212977E+00_JPRB, 0.203988E+00_JPRB, 0.195235E+00_JPRB, 0.186783E+00_JPRB &
+  &, 0.178543E+00_JPRB, 0.170577E+00_JPRB, 0.162873E+00_JPRB &
+  &, 0.155413E+00_JPRB, 0.148220E+00_JPRB, 0.141235E+00_JPRB, 0.134518E+00_JPRB &
+  &, 0.128008E+00_JPRB, 0.121765E+00_JPRB, 0.115722E+00_JPRB &
+  &, 0.109942E+00_JPRB, 0.104353E+00_JPRB, 0.990174E-01_JPRB, 0.939059E-01_JPRB &
+  &, 0.889401E-01_JPRB, 0.842294E-01_JPRB, 0.796926E-01_JPRB &
+  &, 0.753927E-01_JPRB, 0.712441E-01_JPRB, 0.672582E-01_JPRB, 0.634986E-01_JPRB &
+  &, 0.598738E-01_JPRB, 0.564471E-01_JPRB, 0.531764E-01_JPRB &
+  &, 0.500719E-01_JPRB, 0.470880E-01_JPRB, 0.442895E-01_JPRB, 0.415721E-01_JPRB &
+  &, 0.390585E-01_JPRB, 0.366415E-01_JPRB, 0.343873E-01_JPRB &
+  &, 0.321833E-01_JPRB, 0.301567E-01_JPRB, 0.282543E-01_JPRB, 0.264196E-01_JPRB &
+  &, 0.246571E-01_JPRB, 0.230359E-01_JPRB, 0.214975E-01_JPRB/)
+XCW( 633, :) = (/ &
+  &  0.103087E+01_JPRB, 0.103762E+01_JPRB, 0.104398E+01_JPRB, 0.104993E+01_JPRB &
+  &, 0.105548E+01_JPRB, 0.106061E+01_JPRB, 0.106533E+01_JPRB &
+  &, 0.106962E+01_JPRB, 0.107349E+01_JPRB, 0.107693E+01_JPRB, 0.107994E+01_JPRB &
+  &, 0.108252E+01_JPRB, 0.108465E+01_JPRB, 0.108634E+01_JPRB &
+  &, 0.108754E+01_JPRB, 0.108838E+01_JPRB, 0.108872E+01_JPRB, 0.108861E+01_JPRB &
+  &, 0.108805E+01_JPRB, 0.108704E+01_JPRB, 0.108557E+01_JPRB &
+  &, 0.108364E+01_JPRB, 0.108126E+01_JPRB, 0.107842E+01_JPRB, 0.107513E+01_JPRB &
+  &, 0.107139E+01_JPRB, 0.106720E+01_JPRB, 0.106256E+01_JPRB &
+  &, 0.105748E+01_JPRB, 0.105195E+01_JPRB, 0.104599E+01_JPRB, 0.103960E+01_JPRB &
+  &, 0.103279E+01_JPRB, 0.102555E+01_JPRB, 0.101790E+01_JPRB &
+  &, 0.100984E+01_JPRB, 0.100139E+01_JPRB, 0.992549E+00_JPRB, 0.983320E+00_JPRB &
+  &, 0.973722E+00_JPRB, 0.963761E+00_JPRB, 0.953458E+00_JPRB &
+  &, 0.942807E+00_JPRB, 0.931825E+00_JPRB, 0.920522E+00_JPRB, 0.908921E+00_JPRB &
+  &, 0.897027E+00_JPRB, 0.884845E+00_JPRB, 0.872407E+00_JPRB &
+  &, 0.859710E+00_JPRB, 0.846765E+00_JPRB, 0.833612E+00_JPRB, 0.820238E+00_JPRB &
+  &, 0.806672E+00_JPRB, 0.792917E+00_JPRB, 0.779003E+00_JPRB &
+  &, 0.764936E+00_JPRB, 0.750719E+00_JPRB, 0.736402E+00_JPRB, 0.721959E+00_JPRB &
+  &, 0.707443E+00_JPRB, 0.692841E+00_JPRB, 0.678176E+00_JPRB &
+  &, 0.663469E+00_JPRB, 0.648741E+00_JPRB, 0.633978E+00_JPRB, 0.619220E+00_JPRB &
+  &, 0.604488E+00_JPRB, 0.589766E+00_JPRB, 0.575092E+00_JPRB &
+  &, 0.560469E+00_JPRB, 0.545915E+00_JPRB, 0.531429E+00_JPRB, 0.517053E+00_JPRB &
+  &, 0.502782E+00_JPRB, 0.488611E+00_JPRB, 0.474582E+00_JPRB &
+  &, 0.460687E+00_JPRB, 0.446941E+00_JPRB, 0.433334E+00_JPRB, 0.419932E+00_JPRB &
+  &, 0.406695E+00_JPRB, 0.393637E+00_JPRB, 0.380767E+00_JPRB &
+  &, 0.368123E+00_JPRB, 0.355660E+00_JPRB, 0.343440E+00_JPRB, 0.331414E+00_JPRB &
+  &, 0.319646E+00_JPRB, 0.308081E+00_JPRB, 0.296782E+00_JPRB &
+  &, 0.285723E+00_JPRB, 0.274903E+00_JPRB, 0.264322E+00_JPRB, 0.253978E+00_JPRB &
+  &, 0.243935E+00_JPRB, 0.234088E+00_JPRB, 0.224533E+00_JPRB &
+  &, 0.215231E+00_JPRB, 0.206207E+00_JPRB, 0.197419E+00_JPRB, 0.188890E+00_JPRB &
+  &, 0.180608E+00_JPRB, 0.172561E+00_JPRB, 0.164810E+00_JPRB &
+  &, 0.157301E+00_JPRB, 0.150016E+00_JPRB, 0.142977E+00_JPRB, 0.136204E+00_JPRB &
+  &, 0.129678E+00_JPRB, 0.123374E+00_JPRB, 0.117269E+00_JPRB &
+  &, 0.111423E+00_JPRB, 0.105811E+00_JPRB, 0.100405E+00_JPRB, 0.952211E-01_JPRB &
+  &, 0.902276E-01_JPRB, 0.854878E-01_JPRB, 0.808716E-01_JPRB &
+  &, 0.765394E-01_JPRB, 0.723066E-01_JPRB, 0.683362E-01_JPRB, 0.644882E-01_JPRB &
+  &, 0.608777E-01_JPRB, 0.573582E-01_JPRB, 0.540462E-01_JPRB &
+  &, 0.508989E-01_JPRB, 0.479267E-01_JPRB, 0.450266E-01_JPRB, 0.423195E-01_JPRB &
+  &, 0.397579E-01_JPRB, 0.372914E-01_JPRB, 0.349862E-01_JPRB &
+  &, 0.327903E-01_JPRB, 0.307104E-01_JPRB, 0.287531E-01_JPRB, 0.269251E-01_JPRB &
+  &, 0.251692E-01_JPRB, 0.234900E-01_JPRB, 0.219575E-01_JPRB/)
+XCW( 634, :) = (/ &
+  &  0.103114E+01_JPRB, 0.103796E+01_JPRB, 0.104439E+01_JPRB, 0.105041E+01_JPRB &
+  &, 0.105603E+01_JPRB, 0.106123E+01_JPRB, 0.106602E+01_JPRB &
+  &, 0.107039E+01_JPRB, 0.107433E+01_JPRB, 0.107785E+01_JPRB, 0.108093E+01_JPRB &
+  &, 0.108357E+01_JPRB, 0.108578E+01_JPRB, 0.108754E+01_JPRB &
+  &, 0.108885E+01_JPRB, 0.108972E+01_JPRB, 0.109014E+01_JPRB, 0.109010E+01_JPRB &
+  &, 0.108961E+01_JPRB, 0.108867E+01_JPRB, 0.108727E+01_JPRB &
+  &, 0.108541E+01_JPRB, 0.108310E+01_JPRB, 0.108033E+01_JPRB, 0.107711E+01_JPRB &
+  &, 0.107344E+01_JPRB, 0.106931E+01_JPRB, 0.106474E+01_JPRB &
+  &, 0.105972E+01_JPRB, 0.105426E+01_JPRB, 0.104837E+01_JPRB, 0.104204E+01_JPRB &
+  &, 0.103528E+01_JPRB, 0.102811E+01_JPRB, 0.102052E+01_JPRB &
+  &, 0.101251E+01_JPRB, 0.100411E+01_JPRB, 0.995326E+00_JPRB, 0.986157E+00_JPRB &
+  &, 0.976610E+00_JPRB, 0.966701E+00_JPRB, 0.956440E+00_JPRB &
+  &, 0.945831E+00_JPRB, 0.934902E+00_JPRB, 0.923640E+00_JPRB, 0.912081E+00_JPRB &
+  &, 0.900216E+00_JPRB, 0.888087E+00_JPRB, 0.875678E+00_JPRB &
+  &, 0.863008E+00_JPRB, 0.850103E+00_JPRB, 0.836962E+00_JPRB, 0.823626E+00_JPRB &
+  &, 0.810083E+00_JPRB, 0.796349E+00_JPRB, 0.782456E+00_JPRB &
+  &, 0.768392E+00_JPRB, 0.754207E+00_JPRB, 0.739890E+00_JPRB, 0.725477E+00_JPRB &
+  &, 0.710957E+00_JPRB, 0.696365E+00_JPRB, 0.681709E+00_JPRB &
+  &, 0.666935E+00_JPRB, 0.652266E+00_JPRB, 0.637504E+00_JPRB, 0.622746E+00_JPRB &
+  &, 0.607992E+00_JPRB, 0.593263E+00_JPRB, 0.578562E+00_JPRB &
+  &, 0.563927E+00_JPRB, 0.549360E+00_JPRB, 0.534859E+00_JPRB, 0.520441E+00_JPRB &
+  &, 0.506148E+00_JPRB, 0.491953E+00_JPRB, 0.477896E+00_JPRB &
+  &, 0.463970E+00_JPRB, 0.450191E+00_JPRB, 0.436547E+00_JPRB, 0.423105E+00_JPRB &
+  &, 0.409825E+00_JPRB, 0.396720E+00_JPRB, 0.383827E+00_JPRB &
+  &, 0.371131E+00_JPRB, 0.358639E+00_JPRB, 0.346360E+00_JPRB, 0.334300E+00_JPRB &
+  &, 0.322465E+00_JPRB, 0.310860E+00_JPRB, 0.299519E+00_JPRB &
+  &, 0.288383E+00_JPRB, 0.277514E+00_JPRB, 0.266881E+00_JPRB, 0.256516E+00_JPRB &
+  &, 0.246382E+00_JPRB, 0.236508E+00_JPRB, 0.226890E+00_JPRB &
+  &, 0.217520E+00_JPRB, 0.208427E+00_JPRB, 0.199602E+00_JPRB, 0.190997E+00_JPRB &
+  &, 0.182674E+00_JPRB, 0.174583E+00_JPRB, 0.166747E+00_JPRB &
+  &, 0.159189E+00_JPRB, 0.151854E+00_JPRB, 0.144761E+00_JPRB, 0.137933E+00_JPRB &
+  &, 0.131348E+00_JPRB, 0.124984E+00_JPRB, 0.118859E+00_JPRB &
+  &, 0.112949E+00_JPRB, 0.107269E+00_JPRB, 0.101840E+00_JPRB, 0.965833E-01_JPRB &
+  &, 0.915627E-01_JPRB, 0.867463E-01_JPRB, 0.820998E-01_JPRB &
+  &, 0.776861E-01_JPRB, 0.734702E-01_JPRB, 0.694142E-01_JPRB, 0.655298E-01_JPRB &
+  &, 0.618287E-01_JPRB, 0.583230E-01_JPRB, 0.549704E-01_JPRB &
+  &, 0.517811E-01_JPRB, 0.487095E-01_JPRB, 0.458203E-01_JPRB, 0.430668E-01_JPRB &
+  &, 0.404573E-01_JPRB, 0.380004E-01_JPRB, 0.356450E-01_JPRB &
+  &, 0.333974E-01_JPRB, 0.313257E-01_JPRB, 0.293142E-01_JPRB, 0.274305E-01_JPRB &
+  &, 0.256814E-01_JPRB, 0.240089E-01_JPRB, 0.224175E-01_JPRB/)
+XCW( 635, :) = (/ &
+  &  0.103141E+01_JPRB, 0.103830E+01_JPRB, 0.104480E+01_JPRB, 0.105089E+01_JPRB &
+  &, 0.105658E+01_JPRB, 0.106186E+01_JPRB, 0.106672E+01_JPRB &
+  &, 0.107116E+01_JPRB, 0.107517E+01_JPRB, 0.107876E+01_JPRB, 0.108191E+01_JPRB &
+  &, 0.108463E+01_JPRB, 0.108690E+01_JPRB, 0.108874E+01_JPRB &
+  &, 0.109013E+01_JPRB, 0.109107E+01_JPRB, 0.109156E+01_JPRB, 0.109159E+01_JPRB &
+  &, 0.109118E+01_JPRB, 0.109030E+01_JPRB, 0.108897E+01_JPRB &
+  &, 0.108719E+01_JPRB, 0.108495E+01_JPRB, 0.108225E+01_JPRB, 0.107910E+01_JPRB &
+  &, 0.107549E+01_JPRB, 0.107143E+01_JPRB, 0.106693E+01_JPRB &
+  &, 0.106197E+01_JPRB, 0.105658E+01_JPRB, 0.105074E+01_JPRB, 0.104448E+01_JPRB &
+  &, 0.103778E+01_JPRB, 0.103067E+01_JPRB, 0.102314E+01_JPRB &
+  &, 0.101519E+01_JPRB, 0.100685E+01_JPRB, 0.998123E+00_JPRB, 0.988924E+00_JPRB &
+  &, 0.979509E+00_JPRB, 0.969651E+00_JPRB, 0.959432E+00_JPRB &
+  &, 0.948876E+00_JPRB, 0.937989E+00_JPRB, 0.926770E+00_JPRB, 0.915253E+00_JPRB &
+  &, 0.903430E+00_JPRB, 0.891330E+00_JPRB, 0.878948E+00_JPRB &
+  &, 0.866319E+00_JPRB, 0.853441E+00_JPRB, 0.840339E+00_JPRB, 0.827027E+00_JPRB &
+  &, 0.813508E+00_JPRB, 0.799796E+00_JPRB, 0.785923E+00_JPRB &
+  &, 0.771879E+00_JPRB, 0.757712E+00_JPRB, 0.743411E+00_JPRB, 0.728996E+00_JPRB &
+  &, 0.714487E+00_JPRB, 0.699889E+00_JPRB, 0.685241E+00_JPRB &
+  &, 0.670546E+00_JPRB, 0.655790E+00_JPRB, 0.641030E+00_JPRB, 0.626271E+00_JPRB &
+  &, 0.611495E+00_JPRB, 0.596761E+00_JPRB, 0.582052E+00_JPRB &
+  &, 0.567407E+00_JPRB, 0.552805E+00_JPRB, 0.538288E+00_JPRB, 0.523874E+00_JPRB &
+  &, 0.509537E+00_JPRB, 0.495318E+00_JPRB, 0.481234E+00_JPRB &
+  &, 0.467254E+00_JPRB, 0.453440E+00_JPRB, 0.439786E+00_JPRB, 0.426303E+00_JPRB &
+  &, 0.412981E+00_JPRB, 0.399857E+00_JPRB, 0.386915E+00_JPRB &
+  &, 0.374166E+00_JPRB, 0.361618E+00_JPRB, 0.349308E+00_JPRB, 0.337186E+00_JPRB &
+  &, 0.325315E+00_JPRB, 0.313670E+00_JPRB, 0.302256E+00_JPRB &
+  &, 0.291074E+00_JPRB, 0.280157E+00_JPRB, 0.269473E+00_JPRB, 0.258987E+00_JPRB &
+  &, 0.248862E+00_JPRB, 0.238928E+00_JPRB, 0.229246E+00_JPRB &
+  &, 0.219846E+00_JPRB, 0.210683E+00_JPRB, 0.201785E+00_JPRB, 0.193141E+00_JPRB &
+  &, 0.184740E+00_JPRB, 0.176605E+00_JPRB, 0.168723E+00_JPRB &
+  &, 0.161078E+00_JPRB, 0.153732E+00_JPRB, 0.146586E+00_JPRB, 0.139703E+00_JPRB &
+  &, 0.133018E+00_JPRB, 0.126593E+00_JPRB, 0.120450E+00_JPRB &
+  &, 0.114474E+00_JPRB, 0.108728E+00_JPRB, 0.103227E+00_JPRB, 0.979454E-01_JPRB &
+  &, 0.928502E-01_JPRB, 0.880047E-01_JPRB, 0.833279E-01_JPRB &
+  &, 0.788328E-01_JPRB, 0.745832E-01_JPRB, 0.704923E-01_JPRB, 0.665715E-01_JPRB &
+  &, 0.628326E-01_JPRB, 0.592877E-01_JPRB, 0.558946E-01_JPRB &
+  &, 0.526632E-01_JPRB, 0.495481E-01_JPRB, 0.466141E-01_JPRB, 0.438716E-01_JPRB &
+  &, 0.412150E-01_JPRB, 0.387094E-01_JPRB, 0.363038E-01_JPRB &
+  &, 0.340651E-01_JPRB, 0.319409E-01_JPRB, 0.298754E-01_JPRB, 0.279991E-01_JPRB &
+  &, 0.261935E-01_JPRB, 0.244629E-01_JPRB, 0.228775E-01_JPRB/)
+XCW( 636, :) = (/ &
+  &  0.103168E+01_JPRB, 0.103864E+01_JPRB, 0.104521E+01_JPRB, 0.105137E+01_JPRB &
+  &, 0.105713E+01_JPRB, 0.106248E+01_JPRB, 0.106741E+01_JPRB &
+  &, 0.107192E+01_JPRB, 0.107601E+01_JPRB, 0.107967E+01_JPRB, 0.108290E+01_JPRB &
+  &, 0.108569E+01_JPRB, 0.108803E+01_JPRB, 0.108994E+01_JPRB &
+  &, 0.109140E+01_JPRB, 0.109242E+01_JPRB, 0.109298E+01_JPRB, 0.109309E+01_JPRB &
+  &, 0.109274E+01_JPRB, 0.109194E+01_JPRB, 0.109068E+01_JPRB &
+  &, 0.108897E+01_JPRB, 0.108680E+01_JPRB, 0.108417E+01_JPRB, 0.108109E+01_JPRB &
+  &, 0.107755E+01_JPRB, 0.107356E+01_JPRB, 0.106912E+01_JPRB &
+  &, 0.106423E+01_JPRB, 0.105890E+01_JPRB, 0.105313E+01_JPRB, 0.104693E+01_JPRB &
+  &, 0.104030E+01_JPRB, 0.103324E+01_JPRB, 0.102576E+01_JPRB &
+  &, 0.101788E+01_JPRB, 0.100960E+01_JPRB, 0.100092E+01_JPRB, 0.991852E+00_JPRB &
+  &, 0.982407E+00_JPRB, 0.972602E+00_JPRB, 0.962436E+00_JPRB &
+  &, 0.951922E+00_JPRB, 0.941077E+00_JPRB, 0.929911E+00_JPRB, 0.918425E+00_JPRB &
+  &, 0.906655E+00_JPRB, 0.894585E+00_JPRB, 0.882245E+00_JPRB &
+  &, 0.869644E+00_JPRB, 0.856805E+00_JPRB, 0.843730E+00_JPRB, 0.830443E+00_JPRB &
+  &, 0.816947E+00_JPRB, 0.803258E+00_JPRB, 0.789391E+00_JPRB &
+  &, 0.775381E+00_JPRB, 0.761216E+00_JPRB, 0.746932E+00_JPRB, 0.732531E+00_JPRB &
+  &, 0.718035E+00_JPRB, 0.703448E+00_JPRB, 0.688791E+00_JPRB &
+  &, 0.674085E+00_JPRB, 0.659351E+00_JPRB, 0.644575E+00_JPRB, 0.629816E+00_JPRB &
+  &, 0.615037E+00_JPRB, 0.600279E+00_JPRB, 0.585562E+00_JPRB &
+  &, 0.570907E+00_JPRB, 0.556294E+00_JPRB, 0.541761E+00_JPRB, 0.527307E+00_JPRB &
+  &, 0.512949E+00_JPRB, 0.498706E+00_JPRB, 0.484572E+00_JPRB &
+  &, 0.470586E+00_JPRB, 0.456740E+00_JPRB, 0.443049E+00_JPRB, 0.429528E+00_JPRB &
+  &, 0.416163E+00_JPRB, 0.402994E+00_JPRB, 0.390003E+00_JPRB &
+  &, 0.377229E+00_JPRB, 0.364626E+00_JPRB, 0.352257E+00_JPRB, 0.340101E+00_JPRB &
+  &, 0.328194E+00_JPRB, 0.316480E+00_JPRB, 0.305024E+00_JPRB &
+  &, 0.293797E+00_JPRB, 0.282800E+00_JPRB, 0.272065E+00_JPRB, 0.261591E+00_JPRB &
+  &, 0.251342E+00_JPRB, 0.241383E+00_JPRB, 0.231638E+00_JPRB &
+  &, 0.222171E+00_JPRB, 0.212975E+00_JPRB, 0.204005E+00_JPRB, 0.195286E+00_JPRB &
+  &, 0.186844E+00_JPRB, 0.178666E+00_JPRB, 0.170700E+00_JPRB &
+  &, 0.163046E+00_JPRB, 0.155610E+00_JPRB, 0.148412E+00_JPRB, 0.141431E+00_JPRB &
+  &, 0.134731E+00_JPRB, 0.128246E+00_JPRB, 0.122040E+00_JPRB &
+  &, 0.116045E+00_JPRB, 0.110231E+00_JPRB, 0.104662E+00_JPRB, 0.993546E-01_JPRB &
+  &, 0.942330E-01_JPRB, 0.893116E-01_JPRB, 0.845561E-01_JPRB &
+  &, 0.800293E-01_JPRB, 0.757468E-01_JPRB, 0.715703E-01_JPRB, 0.676131E-01_JPRB &
+  &, 0.638365E-01_JPRB, 0.602525E-01_JPRB, 0.568187E-01_JPRB &
+  &, 0.535454E-01_JPRB, 0.503868E-01_JPRB, 0.474645E-01_JPRB, 0.446189E-01_JPRB &
+  &, 0.419143E-01_JPRB, 0.394184E-01_JPRB, 0.369626E-01_JPRB &
+  &, 0.346722E-01_JPRB, 0.324946E-01_JPRB, 0.304989E-01_JPRB, 0.285046E-01_JPRB &
+  &, 0.267057E-01_JPRB, 0.249818E-01_JPRB, 0.233375E-01_JPRB/)
+XCW( 637, :) = (/ &
+  &  0.103195E+01_JPRB, 0.103899E+01_JPRB, 0.104562E+01_JPRB, 0.105186E+01_JPRB &
+  &, 0.105769E+01_JPRB, 0.106311E+01_JPRB, 0.106811E+01_JPRB &
+  &, 0.107269E+01_JPRB, 0.107685E+01_JPRB, 0.108058E+01_JPRB, 0.108388E+01_JPRB &
+  &, 0.108675E+01_JPRB, 0.108917E+01_JPRB, 0.109115E+01_JPRB &
+  &, 0.109268E+01_JPRB, 0.109377E+01_JPRB, 0.109440E+01_JPRB, 0.109458E+01_JPRB &
+  &, 0.109431E+01_JPRB, 0.109358E+01_JPRB, 0.109239E+01_JPRB &
+  &, 0.109075E+01_JPRB, 0.108865E+01_JPRB, 0.108609E+01_JPRB, 0.108308E+01_JPRB &
+  &, 0.107961E+01_JPRB, 0.107569E+01_JPRB, 0.107131E+01_JPRB &
+  &, 0.106649E+01_JPRB, 0.106123E+01_JPRB, 0.105552E+01_JPRB, 0.104938E+01_JPRB &
+  &, 0.104281E+01_JPRB, 0.103581E+01_JPRB, 0.102840E+01_JPRB &
+  &, 0.102058E+01_JPRB, 0.101234E+01_JPRB, 0.100373E+01_JPRB, 0.994709E+00_JPRB &
+  &, 0.985327E+00_JPRB, 0.975563E+00_JPRB, 0.965450E+00_JPRB &
+  &, 0.954989E+00_JPRB, 0.944187E+00_JPRB, 0.933064E+00_JPRB, 0.921620E+00_JPRB &
+  &, 0.909881E+00_JPRB, 0.897853E+00_JPRB, 0.885554E+00_JPRB &
+  &, 0.872981E+00_JPRB, 0.860170E+00_JPRB, 0.847134E+00_JPRB, 0.833859E+00_JPRB &
+  &, 0.820387E+00_JPRB, 0.806734E+00_JPRB, 0.792889E+00_JPRB &
+  &, 0.778899E+00_JPRB, 0.764753E+00_JPRB, 0.750468E+00_JPRB, 0.736083E+00_JPRB &
+  &, 0.721600E+00_JPRB, 0.707007E+00_JPRB, 0.692376E+00_JPRB &
+  &, 0.677659E+00_JPRB, 0.662913E+00_JPRB, 0.648158E+00_JPRB, 0.633361E+00_JPRB &
+  &, 0.618600E+00_JPRB, 0.603837E+00_JPRB, 0.589093E+00_JPRB &
+  &, 0.574408E+00_JPRB, 0.559782E+00_JPRB, 0.545234E+00_JPRB, 0.530762E+00_JPRB &
+  &, 0.516384E+00_JPRB, 0.502095E+00_JPRB, 0.487957E+00_JPRB &
+  &, 0.473942E+00_JPRB, 0.460064E+00_JPRB, 0.446338E+00_JPRB, 0.432753E+00_JPRB &
+  &, 0.419372E+00_JPRB, 0.406157E+00_JPRB, 0.393118E+00_JPRB &
+  &, 0.380293E+00_JPRB, 0.367662E+00_JPRB, 0.355263E+00_JPRB, 0.343046E+00_JPRB &
+  &, 0.331073E+00_JPRB, 0.319321E+00_JPRB, 0.307823E+00_JPRB &
+  &, 0.296521E+00_JPRB, 0.285508E+00_JPRB, 0.274723E+00_JPRB, 0.264162E+00_JPRB &
+  &, 0.253891E+00_JPRB, 0.243837E+00_JPRB, 0.234064E+00_JPRB &
+  &, 0.224532E+00_JPRB, 0.215267E+00_JPRB, 0.206225E+00_JPRB, 0.197468E+00_JPRB &
+  &, 0.188986E+00_JPRB, 0.180727E+00_JPRB, 0.172716E+00_JPRB &
+  &, 0.164975E+00_JPRB, 0.157488E+00_JPRB, 0.150237E+00_JPRB, 0.143244E+00_JPRB &
+  &, 0.136487E+00_JPRB, 0.129943E+00_JPRB, 0.123631E+00_JPRB &
+  &, 0.117570E+00_JPRB, 0.111735E+00_JPRB, 0.106142E+00_JPRB, 0.100764E+00_JPRB &
+  &, 0.955682E-01_JPRB, 0.906184E-01_JPRB, 0.858334E-01_JPRB &
+  &, 0.812758E-01_JPRB, 0.769105E-01_JPRB, 0.726996E-01_JPRB, 0.687069E-01_JPRB &
+  &, 0.648933E-01_JPRB, 0.612172E-01_JPRB, 0.577429E-01_JPRB &
+  &, 0.544275E-01_JPRB, 0.512814E-01_JPRB, 0.482582E-01_JPRB, 0.454237E-01_JPRB &
+  &, 0.426720E-01_JPRB, 0.401274E-01_JPRB, 0.376813E-01_JPRB &
+  &, 0.353399E-01_JPRB, 0.331099E-01_JPRB, 0.310600E-01_JPRB, 0.290732E-01_JPRB &
+  &, 0.272178E-01_JPRB, 0.254358E-01_JPRB, 0.237974E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART91',1,ZHOOK_HANDLE)
+END SUBROUTINE PART91
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART92
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART92',0,ZHOOK_HANDLE)
+
+XCW( 638, :) = (/ &
+  &  0.103223E+01_JPRB, 0.103933E+01_JPRB, 0.104604E+01_JPRB, 0.105234E+01_JPRB &
+  &, 0.105824E+01_JPRB, 0.106373E+01_JPRB, 0.106881E+01_JPRB &
+  &, 0.107346E+01_JPRB, 0.107770E+01_JPRB, 0.108150E+01_JPRB, 0.108487E+01_JPRB &
+  &, 0.108781E+01_JPRB, 0.109030E+01_JPRB, 0.109236E+01_JPRB &
+  &, 0.109396E+01_JPRB, 0.109512E+01_JPRB, 0.109583E+01_JPRB, 0.109608E+01_JPRB &
+  &, 0.109588E+01_JPRB, 0.109522E+01_JPRB, 0.109411E+01_JPRB &
+  &, 0.109254E+01_JPRB, 0.109051E+01_JPRB, 0.108802E+01_JPRB, 0.108507E+01_JPRB &
+  &, 0.108167E+01_JPRB, 0.107782E+01_JPRB, 0.107351E+01_JPRB &
+  &, 0.106876E+01_JPRB, 0.106356E+01_JPRB, 0.105792E+01_JPRB, 0.105184E+01_JPRB &
+  &, 0.104533E+01_JPRB, 0.103840E+01_JPRB, 0.103104E+01_JPRB &
+  &, 0.102327E+01_JPRB, 0.101511E+01_JPRB, 0.100654E+01_JPRB, 0.997576E+00_JPRB &
+  &, 0.988246E+00_JPRB, 0.978535E+00_JPRB, 0.968475E+00_JPRB &
+  &, 0.958057E+00_JPRB, 0.947298E+00_JPRB, 0.936217E+00_JPRB, 0.924828E+00_JPRB &
+  &, 0.913119E+00_JPRB, 0.901133E+00_JPRB, 0.888864E+00_JPRB &
+  &, 0.876332E+00_JPRB, 0.863562E+00_JPRB, 0.850539E+00_JPRB, 0.837303E+00_JPRB &
+  &, 0.823855E+00_JPRB, 0.810211E+00_JPRB, 0.796402E+00_JPRB &
+  &, 0.782417E+00_JPRB, 0.768289E+00_JPRB, 0.754038E+00_JPRB, 0.739651E+00_JPRB &
+  &, 0.725165E+00_JPRB, 0.710600E+00_JPRB, 0.695962E+00_JPRB &
+  &, 0.681252E+00_JPRB, 0.666511E+00_JPRB, 0.651741E+00_JPRB, 0.636945E+00_JPRB &
+  &, 0.622163E+00_JPRB, 0.607396E+00_JPRB, 0.592645E+00_JPRB &
+  &, 0.577951E+00_JPRB, 0.563292E+00_JPRB, 0.548729E+00_JPRB, 0.534218E+00_JPRB &
+  &, 0.519819E+00_JPRB, 0.505530E+00_JPRB, 0.491343E+00_JPRB &
+  &, 0.477298E+00_JPRB, 0.463388E+00_JPRB, 0.449627E+00_JPRB, 0.436029E+00_JPRB &
+  &, 0.422581E+00_JPRB, 0.409348E+00_JPRB, 0.396261E+00_JPRB &
+  &, 0.383384E+00_JPRB, 0.370727E+00_JPRB, 0.358270E+00_JPRB, 0.346020E+00_JPRB &
+  &, 0.333983E+00_JPRB, 0.322192E+00_JPRB, 0.310623E+00_JPRB &
+  &, 0.299307E+00_JPRB, 0.288216E+00_JPRB, 0.277380E+00_JPRB, 0.266767E+00_JPRB &
+  &, 0.256439E+00_JPRB, 0.246326E+00_JPRB, 0.236491E+00_JPRB &
+  &, 0.226893E+00_JPRB, 0.217596E+00_JPRB, 0.208519E+00_JPRB, 0.199688E+00_JPRB &
+  &, 0.191128E+00_JPRB, 0.182827E+00_JPRB, 0.174771E+00_JPRB &
+  &, 0.166943E+00_JPRB, 0.159407E+00_JPRB, 0.152104E+00_JPRB, 0.145056E+00_JPRB &
+  &, 0.138200E+00_JPRB, 0.131639E+00_JPRB, 0.125310E+00_JPRB &
+  &, 0.119186E+00_JPRB, 0.113284E+00_JPRB, 0.107623E+00_JPRB, 0.102173E+00_JPRB &
+  &, 0.969510E-01_JPRB, 0.919253E-01_JPRB, 0.871107E-01_JPRB &
+  &, 0.824723E-01_JPRB, 0.780741E-01_JPRB, 0.738290E-01_JPRB, 0.698006E-01_JPRB &
+  &, 0.658971E-01_JPRB, 0.622355E-01_JPRB, 0.587214E-01_JPRB &
+  &, 0.553648E-01_JPRB, 0.521760E-01_JPRB, 0.491087E-01_JPRB, 0.462285E-01_JPRB &
+  &, 0.434297E-01_JPRB, 0.408364E-01_JPRB, 0.383401E-01_JPRB &
+  &, 0.360077E-01_JPRB, 0.337866E-01_JPRB, 0.316835E-01_JPRB, 0.296418E-01_JPRB &
+  &, 0.277299E-01_JPRB, 0.259547E-01_JPRB, 0.242574E-01_JPRB/)
+XCW( 639, :) = (/ &
+  &  0.103250E+01_JPRB, 0.103967E+01_JPRB, 0.104645E+01_JPRB, 0.105282E+01_JPRB &
+  &, 0.105880E+01_JPRB, 0.106436E+01_JPRB, 0.106951E+01_JPRB &
+  &, 0.107424E+01_JPRB, 0.107854E+01_JPRB, 0.108242E+01_JPRB, 0.108586E+01_JPRB &
+  &, 0.108887E+01_JPRB, 0.109144E+01_JPRB, 0.109357E+01_JPRB &
+  &, 0.109525E+01_JPRB, 0.109648E+01_JPRB, 0.109726E+01_JPRB, 0.109759E+01_JPRB &
+  &, 0.109746E+01_JPRB, 0.109687E+01_JPRB, 0.109583E+01_JPRB &
+  &, 0.109433E+01_JPRB, 0.109237E+01_JPRB, 0.108995E+01_JPRB, 0.108707E+01_JPRB &
+  &, 0.108374E+01_JPRB, 0.107996E+01_JPRB, 0.107572E+01_JPRB &
+  &, 0.107103E+01_JPRB, 0.106589E+01_JPRB, 0.106032E+01_JPRB, 0.105431E+01_JPRB &
+  &, 0.104786E+01_JPRB, 0.104099E+01_JPRB, 0.103369E+01_JPRB &
+  &, 0.102599E+01_JPRB, 0.101788E+01_JPRB, 0.100936E+01_JPRB, 0.100045E+01_JPRB &
+  &, 0.991175E+00_JPRB, 0.981517E+00_JPRB, 0.971500E+00_JPRB &
+  &, 0.961136E+00_JPRB, 0.950419E+00_JPRB, 0.939394E+00_JPRB, 0.928035E+00_JPRB &
+  &, 0.916369E+00_JPRB, 0.904426E+00_JPRB, 0.892199E+00_JPRB &
+  &, 0.879696E+00_JPRB, 0.866953E+00_JPRB, 0.853971E+00_JPRB, 0.840761E+00_JPRB &
+  &, 0.827338E+00_JPRB, 0.813717E+00_JPRB, 0.799930E+00_JPRB &
+  &, 0.785966E+00_JPRB, 0.771857E+00_JPRB, 0.757607E+00_JPRB, 0.743236E+00_JPRB &
+  &, 0.728764E+00_JPRB, 0.714194E+00_JPRB, 0.699565E+00_JPRB &
+  &, 0.684864E+00_JPRB, 0.670110E+00_JPRB, 0.655343E+00_JPRB, 0.640548E+00_JPRB &
+  &, 0.625745E+00_JPRB, 0.610974E+00_JPRB, 0.596217E+00_JPRB &
+  &, 0.581494E+00_JPRB, 0.566844E+00_JPRB, 0.552246E+00_JPRB, 0.537718E+00_JPRB &
+  &, 0.523300E+00_JPRB, 0.508965E+00_JPRB, 0.494776E+00_JPRB &
+  &, 0.480679E+00_JPRB, 0.466737E+00_JPRB, 0.452941E+00_JPRB, 0.439305E+00_JPRB &
+  &, 0.425842E+00_JPRB, 0.412538E+00_JPRB, 0.399430E+00_JPRB &
+  &, 0.386530E+00_JPRB, 0.373791E+00_JPRB, 0.361305E+00_JPRB, 0.348994E+00_JPRB &
+  &, 0.336922E+00_JPRB, 0.325063E+00_JPRB, 0.313453E+00_JPRB &
+  &, 0.302094E+00_JPRB, 0.290956E+00_JPRB, 0.280038E+00_JPRB, 0.269405E+00_JPRB &
+  &, 0.258987E+00_JPRB, 0.248850E+00_JPRB, 0.238953E+00_JPRB &
+  &, 0.229290E+00_JPRB, 0.219925E+00_JPRB, 0.210777E+00_JPRB, 0.201908E+00_JPRB &
+  &, 0.193309E+00_JPRB, 0.184927E+00_JPRB, 0.176827E+00_JPRB &
+  &, 0.168952E+00_JPRB, 0.161326E+00_JPRB, 0.153971E+00_JPRB, 0.146869E+00_JPRB &
+  &, 0.139998E+00_JPRB, 0.133336E+00_JPRB, 0.126945E+00_JPRB &
+  &, 0.120756E+00_JPRB, 0.114833E+00_JPRB, 0.109103E+00_JPRB, 0.103629E+00_JPRB &
+  &, 0.983338E-01_JPRB, 0.932806E-01_JPRB, 0.883879E-01_JPRB &
+  &, 0.837187E-01_JPRB, 0.792377E-01_JPRB, 0.749584E-01_JPRB, 0.708943E-01_JPRB &
+  &, 0.669539E-01_JPRB, 0.632539E-01_JPRB, 0.596999E-01_JPRB &
+  &, 0.563021E-01_JPRB, 0.530147E-01_JPRB, 0.499591E-01_JPRB, 0.470333E-01_JPRB &
+  &, 0.442456E-01_JPRB, 0.416045E-01_JPRB, 0.390588E-01_JPRB &
+  &, 0.366754E-01_JPRB, 0.344019E-01_JPRB, 0.322447E-01_JPRB, 0.302105E-01_JPRB &
+  &, 0.283061E-01_JPRB, 0.264736E-01_JPRB, 0.247831E-01_JPRB/)
+XCW( 640, :) = (/ &
+  &  0.103278E+01_JPRB, 0.104002E+01_JPRB, 0.104686E+01_JPRB, 0.105331E+01_JPRB &
+  &, 0.105935E+01_JPRB, 0.106499E+01_JPRB, 0.107021E+01_JPRB &
+  &, 0.107501E+01_JPRB, 0.107939E+01_JPRB, 0.108334E+01_JPRB, 0.108685E+01_JPRB &
+  &, 0.108994E+01_JPRB, 0.109258E+01_JPRB, 0.109478E+01_JPRB &
+  &, 0.109653E+01_JPRB, 0.109784E+01_JPRB, 0.109869E+01_JPRB, 0.109909E+01_JPRB &
+  &, 0.109903E+01_JPRB, 0.109852E+01_JPRB, 0.109755E+01_JPRB &
+  &, 0.109612E+01_JPRB, 0.109423E+01_JPRB, 0.109188E+01_JPRB, 0.108908E+01_JPRB &
+  &, 0.108582E+01_JPRB, 0.108210E+01_JPRB, 0.107793E+01_JPRB &
+  &, 0.107331E+01_JPRB, 0.106824E+01_JPRB, 0.106273E+01_JPRB, 0.105678E+01_JPRB &
+  &, 0.105040E+01_JPRB, 0.104358E+01_JPRB, 0.103635E+01_JPRB &
+  &, 0.102871E+01_JPRB, 0.102065E+01_JPRB, 0.101219E+01_JPRB, 0.100334E+01_JPRB &
+  &, 0.994115E+00_JPRB, 0.984510E+00_JPRB, 0.974546E+00_JPRB &
+  &, 0.964225E+00_JPRB, 0.953564E+00_JPRB, 0.942570E+00_JPRB, 0.931255E+00_JPRB &
+  &, 0.919644E+00_JPRB, 0.907731E+00_JPRB, 0.895534E+00_JPRB &
+  &, 0.883073E+00_JPRB, 0.870358E+00_JPRB, 0.857403E+00_JPRB, 0.844219E+00_JPRB &
+  &, 0.830820E+00_JPRB, 0.817238E+00_JPRB, 0.803459E+00_JPRB &
+  &, 0.789515E+00_JPRB, 0.775425E+00_JPRB, 0.761193E+00_JPRB, 0.746838E+00_JPRB &
+  &, 0.732363E+00_JPRB, 0.717822E+00_JPRB, 0.703186E+00_JPRB &
+  &, 0.688475E+00_JPRB, 0.673745E+00_JPRB, 0.658964E+00_JPRB, 0.644170E+00_JPRB &
+  &, 0.629367E+00_JPRB, 0.614573E+00_JPRB, 0.599790E+00_JPRB &
+  &, 0.585079E+00_JPRB, 0.570397E+00_JPRB, 0.555764E+00_JPRB, 0.541241E+00_JPRB &
+  &, 0.526781E+00_JPRB, 0.512447E+00_JPRB, 0.498209E+00_JPRB &
+  &, 0.484084E+00_JPRB, 0.470111E+00_JPRB, 0.456281E+00_JPRB, 0.442607E+00_JPRB &
+  &, 0.429103E+00_JPRB, 0.415782E+00_JPRB, 0.402627E+00_JPRB &
+  &, 0.389649E+00_JPRB, 0.376912E+00_JPRB, 0.364341E+00_JPRB, 0.351998E+00_JPRB &
+  &, 0.339891E+00_JPRB, 0.327996E+00_JPRB, 0.316314E+00_JPRB &
+  &, 0.304880E+00_JPRB, 0.293696E+00_JPRB, 0.282761E+00_JPRB, 0.272043E+00_JPRB &
+  &, 0.261570E+00_JPRB, 0.251373E+00_JPRB, 0.241415E+00_JPRB &
+  &, 0.231723E+00_JPRB, 0.222290E+00_JPRB, 0.213108E+00_JPRB, 0.204166E+00_JPRB &
+  &, 0.195489E+00_JPRB, 0.187066E+00_JPRB, 0.178882E+00_JPRB &
+  &, 0.170961E+00_JPRB, 0.163286E+00_JPRB, 0.155880E+00_JPRB, 0.148724E+00_JPRB &
+  &, 0.141754E+00_JPRB, 0.135076E+00_JPRB, 0.128624E+00_JPRB &
+  &, 0.122416E+00_JPRB, 0.116382E+00_JPRB, 0.110630E+00_JPRB, 0.105085E+00_JPRB &
+  &, 0.997643E-01_JPRB, 0.946358E-01_JPRB, 0.897143E-01_JPRB &
+  &, 0.849651E-01_JPRB, 0.804519E-01_JPRB, 0.761391E-01_JPRB, 0.719881E-01_JPRB &
+  &, 0.680634E-01_JPRB, 0.642722E-01_JPRB, 0.606784E-01_JPRB &
+  &, 0.572394E-01_JPRB, 0.539652E-01_JPRB, 0.508096E-01_JPRB, 0.478381E-01_JPRB &
+  &, 0.450033E-01_JPRB, 0.423135E-01_JPRB, 0.397775E-01_JPRB &
+  &, 0.373432E-01_JPRB, 0.350786E-01_JPRB, 0.328682E-01_JPRB, 0.308423E-01_JPRB &
+  &, 0.288823E-01_JPRB, 0.269925E-01_JPRB, 0.253088E-01_JPRB/)
+XCW( 641, :) = (/ &
+  &  0.103305E+01_JPRB, 0.104036E+01_JPRB, 0.104728E+01_JPRB, 0.105379E+01_JPRB &
+  &, 0.105991E+01_JPRB, 0.106562E+01_JPRB, 0.107091E+01_JPRB &
+  &, 0.107578E+01_JPRB, 0.108023E+01_JPRB, 0.108426E+01_JPRB, 0.108785E+01_JPRB &
+  &, 0.109100E+01_JPRB, 0.109372E+01_JPRB, 0.109599E+01_JPRB &
+  &, 0.109782E+01_JPRB, 0.109920E+01_JPRB, 0.110013E+01_JPRB, 0.110060E+01_JPRB &
+  &, 0.110062E+01_JPRB, 0.110018E+01_JPRB, 0.109928E+01_JPRB &
+  &, 0.109792E+01_JPRB, 0.109610E+01_JPRB, 0.109382E+01_JPRB, 0.109109E+01_JPRB &
+  &, 0.108790E+01_JPRB, 0.108425E+01_JPRB, 0.108014E+01_JPRB &
+  &, 0.107559E+01_JPRB, 0.107059E+01_JPRB, 0.106514E+01_JPRB, 0.105926E+01_JPRB &
+  &, 0.105294E+01_JPRB, 0.104619E+01_JPRB, 0.103901E+01_JPRB &
+  &, 0.103142E+01_JPRB, 0.102343E+01_JPRB, 0.101503E+01_JPRB, 0.100624E+01_JPRB &
+  &, 0.997055E+00_JPRB, 0.987503E+00_JPRB, 0.977593E+00_JPRB &
+  &, 0.967315E+00_JPRB, 0.956708E+00_JPRB, 0.945758E+00_JPRB, 0.934486E+00_JPRB &
+  &, 0.922919E+00_JPRB, 0.911036E+00_JPRB, 0.898881E+00_JPRB &
+  &, 0.886463E+00_JPRB, 0.873777E+00_JPRB, 0.860849E+00_JPRB, 0.847705E+00_JPRB &
+  &, 0.834332E+00_JPRB, 0.820759E+00_JPRB, 0.807017E+00_JPRB &
+  &, 0.793095E+00_JPRB, 0.779009E+00_JPRB, 0.764795E+00_JPRB, 0.750456E+00_JPRB &
+  &, 0.735995E+00_JPRB, 0.721450E+00_JPRB, 0.706825E+00_JPRB &
+  &, 0.692122E+00_JPRB, 0.677381E+00_JPRB, 0.662604E+00_JPRB, 0.647793E+00_JPRB &
+  &, 0.632989E+00_JPRB, 0.618192E+00_JPRB, 0.603404E+00_JPRB &
+  &, 0.588664E+00_JPRB, 0.573972E+00_JPRB, 0.559325E+00_JPRB, 0.544764E+00_JPRB &
+  &, 0.530307E+00_JPRB, 0.515929E+00_JPRB, 0.501666E+00_JPRB &
+  &, 0.487514E+00_JPRB, 0.473510E+00_JPRB, 0.459646E+00_JPRB, 0.445935E+00_JPRB &
+  &, 0.432391E+00_JPRB, 0.419026E+00_JPRB, 0.405825E+00_JPRB &
+  &, 0.392824E+00_JPRB, 0.380033E+00_JPRB, 0.367434E+00_JPRB, 0.355031E+00_JPRB &
+  &, 0.342861E+00_JPRB, 0.330928E+00_JPRB, 0.319207E+00_JPRB &
+  &, 0.307730E+00_JPRB, 0.296468E+00_JPRB, 0.285484E+00_JPRB, 0.274714E+00_JPRB &
+  &, 0.264186E+00_JPRB, 0.253932E+00_JPRB, 0.243912E+00_JPRB &
+  &, 0.234155E+00_JPRB, 0.224655E+00_JPRB, 0.215439E+00_JPRB, 0.206423E+00_JPRB &
+  &, 0.197708E+00_JPRB, 0.189205E+00_JPRB, 0.180977E+00_JPRB &
+  &, 0.173010E+00_JPRB, 0.165286E+00_JPRB, 0.157788E+00_JPRB, 0.150578E+00_JPRB &
+  &, 0.143595E+00_JPRB, 0.136816E+00_JPRB, 0.130303E+00_JPRB &
+  &, 0.124032E+00_JPRB, 0.117977E+00_JPRB, 0.112157E+00_JPRB, 0.106541E+00_JPRB &
+  &, 0.101195E+00_JPRB, 0.959911E-01_JPRB, 0.910407E-01_JPRB &
+  &, 0.862614E-01_JPRB, 0.817168E-01_JPRB, 0.773198E-01_JPRB, 0.731339E-01_JPRB &
+  &, 0.691202E-01_JPRB, 0.652905E-01_JPRB, 0.616570E-01_JPRB &
+  &, 0.581767E-01_JPRB, 0.548598E-01_JPRB, 0.517167E-01_JPRB, 0.487004E-01_JPRB &
+  &, 0.458192E-01_JPRB, 0.430816E-01_JPRB, 0.404961E-01_JPRB &
+  &, 0.380716E-01_JPRB, 0.356939E-01_JPRB, 0.334916E-01_JPRB, 0.314109E-01_JPRB &
+  &, 0.294584E-01_JPRB, 0.275763E-01_JPRB, 0.257688E-01_JPRB/)
+XCW( 642, :) = (/ &
+  &  0.103332E+01_JPRB, 0.104070E+01_JPRB, 0.104769E+01_JPRB, 0.105428E+01_JPRB &
+  &, 0.106047E+01_JPRB, 0.106625E+01_JPRB, 0.107161E+01_JPRB &
+  &, 0.107656E+01_JPRB, 0.108108E+01_JPRB, 0.108518E+01_JPRB, 0.108884E+01_JPRB &
+  &, 0.109207E+01_JPRB, 0.109486E+01_JPRB, 0.109721E+01_JPRB &
+  &, 0.109911E+01_JPRB, 0.110056E+01_JPRB, 0.110156E+01_JPRB, 0.110211E+01_JPRB &
+  &, 0.110220E+01_JPRB, 0.110183E+01_JPRB, 0.110100E+01_JPRB &
+  &, 0.109972E+01_JPRB, 0.109797E+01_JPRB, 0.109577E+01_JPRB, 0.109310E+01_JPRB &
+  &, 0.108998E+01_JPRB, 0.108640E+01_JPRB, 0.108236E+01_JPRB &
+  &, 0.107788E+01_JPRB, 0.107294E+01_JPRB, 0.106756E+01_JPRB, 0.106174E+01_JPRB &
+  &, 0.105549E+01_JPRB, 0.104880E+01_JPRB, 0.104169E+01_JPRB &
+  &, 0.103416E+01_JPRB, 0.102622E+01_JPRB, 0.101787E+01_JPRB, 0.100914E+01_JPRB &
+  &, 0.100002E+01_JPRB, 0.990517E+00_JPRB, 0.980650E+00_JPRB &
+  &, 0.970427E+00_JPRB, 0.959864E+00_JPRB, 0.948957E+00_JPRB, 0.937729E+00_JPRB &
+  &, 0.926193E+00_JPRB, 0.914367E+00_JPRB, 0.902242E+00_JPRB &
+  &, 0.889853E+00_JPRB, 0.877209E+00_JPRB, 0.864308E+00_JPRB, 0.851191E+00_JPRB &
+  &, 0.837844E+00_JPRB, 0.824309E+00_JPRB, 0.810576E+00_JPRB &
+  &, 0.796674E+00_JPRB, 0.782609E+00_JPRB, 0.768413E+00_JPRB, 0.754074E+00_JPRB &
+  &, 0.739628E+00_JPRB, 0.725096E+00_JPRB, 0.710464E+00_JPRB &
+  &, 0.695770E+00_JPRB, 0.681035E+00_JPRB, 0.666244E+00_JPRB, 0.651454E+00_JPRB &
+  &, 0.636630E+00_JPRB, 0.621811E+00_JPRB, 0.607038E+00_JPRB &
+  &, 0.592270E+00_JPRB, 0.577567E+00_JPRB, 0.562908E+00_JPRB, 0.548331E+00_JPRB &
+  &, 0.533834E+00_JPRB, 0.519434E+00_JPRB, 0.505147E+00_JPRB &
+  &, 0.490967E+00_JPRB, 0.476933E+00_JPRB, 0.463036E+00_JPRB, 0.449288E+00_JPRB &
+  &, 0.435705E+00_JPRB, 0.422297E+00_JPRB, 0.409022E+00_JPRB &
+  &, 0.396026E+00_JPRB, 0.383183E+00_JPRB, 0.370527E+00_JPRB, 0.358094E+00_JPRB &
+  &, 0.345860E+00_JPRB, 0.333891E+00_JPRB, 0.322099E+00_JPRB &
+  &, 0.310580E+00_JPRB, 0.299272E+00_JPRB, 0.288207E+00_JPRB, 0.277385E+00_JPRB &
+  &, 0.266836E+00_JPRB, 0.256524E+00_JPRB, 0.246444E+00_JPRB &
+  &, 0.236624E+00_JPRB, 0.227093E+00_JPRB, 0.217770E+00_JPRB, 0.208718E+00_JPRB &
+  &, 0.199927E+00_JPRB, 0.191383E+00_JPRB, 0.183112E+00_JPRB &
+  &, 0.175059E+00_JPRB, 0.167287E+00_JPRB, 0.159738E+00_JPRB, 0.152475E+00_JPRB &
+  &, 0.145394E+00_JPRB, 0.138599E+00_JPRB, 0.132026E+00_JPRB &
+  &, 0.125692E+00_JPRB, 0.119618E+00_JPRB, 0.113730E+00_JPRB, 0.108044E+00_JPRB &
+  &, 0.102625E+00_JPRB, 0.973947E-01_JPRB, 0.923671E-01_JPRB &
+  &, 0.875577E-01_JPRB, 0.829310E-01_JPRB, 0.785004E-01_JPRB, 0.742797E-01_JPRB &
+  &, 0.702297E-01_JPRB, 0.663625E-01_JPRB, 0.626899E-01_JPRB &
+  &, 0.591691E-01_JPRB, 0.558103E-01_JPRB, 0.525671E-01_JPRB, 0.495052E-01_JPRB &
+  &, 0.466351E-01_JPRB, 0.438497E-01_JPRB, 0.412148E-01_JPRB &
+  &, 0.387394E-01_JPRB, 0.363706E-01_JPRB, 0.341775E-01_JPRB, 0.320427E-01_JPRB &
+  &, 0.300346E-01_JPRB, 0.280951E-01_JPRB, 0.262945E-01_JPRB/)
+XCW( 643, :) = (/ &
+  &  0.103360E+01_JPRB, 0.104105E+01_JPRB, 0.104811E+01_JPRB, 0.105477E+01_JPRB &
+  &, 0.106103E+01_JPRB, 0.106688E+01_JPRB, 0.107231E+01_JPRB &
+  &, 0.107733E+01_JPRB, 0.108193E+01_JPRB, 0.108610E+01_JPRB, 0.108984E+01_JPRB &
+  &, 0.109314E+01_JPRB, 0.109601E+01_JPRB, 0.109843E+01_JPRB &
+  &, 0.110040E+01_JPRB, 0.110193E+01_JPRB, 0.110300E+01_JPRB, 0.110362E+01_JPRB &
+  &, 0.110379E+01_JPRB, 0.110349E+01_JPRB, 0.110274E+01_JPRB &
+  &, 0.110152E+01_JPRB, 0.109985E+01_JPRB, 0.109771E+01_JPRB, 0.109512E+01_JPRB &
+  &, 0.109207E+01_JPRB, 0.108856E+01_JPRB, 0.108458E+01_JPRB &
+  &, 0.108017E+01_JPRB, 0.107530E+01_JPRB, 0.106999E+01_JPRB, 0.106423E+01_JPRB &
+  &, 0.105804E+01_JPRB, 0.105142E+01_JPRB, 0.104437E+01_JPRB &
+  &, 0.103689E+01_JPRB, 0.102901E+01_JPRB, 0.102073E+01_JPRB, 0.101204E+01_JPRB &
+  &, 0.100298E+01_JPRB, 0.993531E+00_JPRB, 0.983718E+00_JPRB &
+  &, 0.973550E+00_JPRB, 0.963031E+00_JPRB, 0.952169E+00_JPRB, 0.940985E+00_JPRB &
+  &, 0.929493E+00_JPRB, 0.917697E+00_JPRB, 0.905616E+00_JPRB &
+  &, 0.893269E+00_JPRB, 0.880654E+00_JPRB, 0.867796E+00_JPRB, 0.854692E+00_JPRB &
+  &, 0.841384E+00_JPRB, 0.827860E+00_JPRB, 0.814149E+00_JPRB &
+  &, 0.800270E+00_JPRB, 0.786224E+00_JPRB, 0.772047E+00_JPRB, 0.757725E+00_JPRB &
+  &, 0.743295E+00_JPRB, 0.728759E+00_JPRB, 0.714138E+00_JPRB &
+  &, 0.699454E+00_JPRB, 0.684708E+00_JPRB, 0.669921E+00_JPRB, 0.655115E+00_JPRB &
+  &, 0.640292E+00_JPRB, 0.625471E+00_JPRB, 0.610672E+00_JPRB &
+  &, 0.595897E+00_JPRB, 0.581163E+00_JPRB, 0.566491E+00_JPRB, 0.551899E+00_JPRB &
+  &, 0.537384E+00_JPRB, 0.522962E+00_JPRB, 0.508628E+00_JPRB &
+  &, 0.494445E+00_JPRB, 0.480381E+00_JPRB, 0.466451E+00_JPRB, 0.452668E+00_JPRB &
+  &, 0.439045E+00_JPRB, 0.425595E+00_JPRB, 0.412328E+00_JPRB &
+  &, 0.399229E+00_JPRB, 0.386333E+00_JPRB, 0.373649E+00_JPRB, 0.361156E+00_JPRB &
+  &, 0.348889E+00_JPRB, 0.336854E+00_JPRB, 0.325023E+00_JPRB &
+  &, 0.313461E+00_JPRB, 0.302109E+00_JPRB, 0.290996E+00_JPRB, 0.280123E+00_JPRB &
+  &, 0.269486E+00_JPRB, 0.259117E+00_JPRB, 0.249012E+00_JPRB &
+  &, 0.239128E+00_JPRB, 0.229494E+00_JPRB, 0.220138E+00_JPRB, 0.211051E+00_JPRB &
+  &, 0.202184E+00_JPRB, 0.193600E+00_JPRB, 0.185247E+00_JPRB &
+  &, 0.177148E+00_JPRB, 0.169329E+00_JPRB, 0.161729E+00_JPRB, 0.154372E+00_JPRB &
+  &, 0.147278E+00_JPRB, 0.140383E+00_JPRB, 0.133793E+00_JPRB &
+  &, 0.127397E+00_JPRB, 0.121212E+00_JPRB, 0.115303E+00_JPRB, 0.109594E+00_JPRB &
+  &, 0.104104E+00_JPRB, 0.987984E-01_JPRB, 0.937427E-01_JPRB &
+  &, 0.888539E-01_JPRB, 0.841958E-01_JPRB, 0.797325E-01_JPRB, 0.754776E-01_JPRB &
+  &, 0.713393E-01_JPRB, 0.674344E-01_JPRB, 0.637227E-01_JPRB &
+  &, 0.601615E-01_JPRB, 0.567608E-01_JPRB, 0.534743E-01_JPRB, 0.504250E-01_JPRB &
+  &, 0.474511E-01_JPRB, 0.446768E-01_JPRB, 0.419934E-01_JPRB &
+  &, 0.394678E-01_JPRB, 0.370474E-01_JPRB, 0.348010E-01_JPRB, 0.326745E-01_JPRB &
+  &, 0.306108E-01_JPRB, 0.286789E-01_JPRB, 0.268201E-01_JPRB/)
+XCW( 644, :) = (/ &
+  &  0.103387E+01_JPRB, 0.104139E+01_JPRB, 0.104852E+01_JPRB, 0.105525E+01_JPRB &
+  &, 0.106158E+01_JPRB, 0.106751E+01_JPRB, 0.107302E+01_JPRB &
+  &, 0.107811E+01_JPRB, 0.108278E+01_JPRB, 0.108703E+01_JPRB, 0.109084E+01_JPRB &
+  &, 0.109421E+01_JPRB, 0.109715E+01_JPRB, 0.109965E+01_JPRB &
+  &, 0.110170E+01_JPRB, 0.110330E+01_JPRB, 0.110445E+01_JPRB, 0.110514E+01_JPRB &
+  &, 0.110538E+01_JPRB, 0.110515E+01_JPRB, 0.110447E+01_JPRB &
+  &, 0.110333E+01_JPRB, 0.110173E+01_JPRB, 0.109966E+01_JPRB, 0.109714E+01_JPRB &
+  &, 0.109416E+01_JPRB, 0.109072E+01_JPRB, 0.108682E+01_JPRB &
+  &, 0.108247E+01_JPRB, 0.107767E+01_JPRB, 0.107242E+01_JPRB, 0.106673E+01_JPRB &
+  &, 0.106060E+01_JPRB, 0.105404E+01_JPRB, 0.104705E+01_JPRB &
+  &, 0.103964E+01_JPRB, 0.103182E+01_JPRB, 0.102359E+01_JPRB, 0.101497E+01_JPRB &
+  &, 0.100596E+01_JPRB, 0.996555E+00_JPRB, 0.986797E+00_JPRB &
+  &, 0.976673E+00_JPRB, 0.966198E+00_JPRB, 0.955391E+00_JPRB, 0.944252E+00_JPRB &
+  &, 0.932804E+00_JPRB, 0.921052E+00_JPRB, 0.909002E+00_JPRB &
+  &, 0.896686E+00_JPRB, 0.884113E+00_JPRB, 0.871283E+00_JPRB, 0.858220E+00_JPRB &
+  &, 0.844925E+00_JPRB, 0.831440E+00_JPRB, 0.817753E+00_JPRB &
+  &, 0.803881E+00_JPRB, 0.789856E+00_JPRB, 0.775697E+00_JPRB, 0.761393E+00_JPRB &
+  &, 0.746961E+00_JPRB, 0.732439E+00_JPRB, 0.717830E+00_JPRB &
+  &, 0.703137E+00_JPRB, 0.688399E+00_JPRB, 0.673618E+00_JPRB, 0.658796E+00_JPRB &
+  &, 0.643973E+00_JPRB, 0.629150E+00_JPRB, 0.614327E+00_JPRB &
+  &, 0.599545E+00_JPRB, 0.584802E+00_JPRB, 0.570118E+00_JPRB, 0.555489E+00_JPRB &
+  &, 0.540956E+00_JPRB, 0.526514E+00_JPRB, 0.512157E+00_JPRB &
+  &, 0.497923E+00_JPRB, 0.483830E+00_JPRB, 0.469866E+00_JPRB, 0.456047E+00_JPRB &
+  &, 0.442385E+00_JPRB, 0.428919E+00_JPRB, 0.415607E+00_JPRB &
+  &, 0.402459E+00_JPRB, 0.389539E+00_JPRB, 0.376800E+00_JPRB, 0.364278E+00_JPRB &
+  &, 0.351948E+00_JPRB, 0.339847E+00_JPRB, 0.327977E+00_JPRB &
+  &, 0.316343E+00_JPRB, 0.304945E+00_JPRB, 0.293785E+00_JPRB, 0.282861E+00_JPRB &
+  &, 0.272171E+00_JPRB, 0.261745E+00_JPRB, 0.251579E+00_JPRB &
+  &, 0.241632E+00_JPRB, 0.231968E+00_JPRB, 0.222543E+00_JPRB, 0.213384E+00_JPRB &
+  &, 0.204479E+00_JPRB, 0.195816E+00_JPRB, 0.187421E+00_JPRB &
+  &, 0.179278E+00_JPRB, 0.171370E+00_JPRB, 0.163721E+00_JPRB, 0.156311E+00_JPRB &
+  &, 0.149119E+00_JPRB, 0.142210E+00_JPRB, 0.135516E+00_JPRB &
+  &, 0.129102E+00_JPRB, 0.122853E+00_JPRB, 0.116876E+00_JPRB, 0.111097E+00_JPRB &
+  &, 0.105582E+00_JPRB, 0.100250E+00_JPRB, 0.951182E-01_JPRB &
+  &, 0.902000E-01_JPRB, 0.855112E-01_JPRB, 0.809645E-01_JPRB, 0.766234E-01_JPRB &
+  &, 0.725017E-01_JPRB, 0.685599E-01_JPRB, 0.647556E-01_JPRB &
+  &, 0.611539E-01_JPRB, 0.577113E-01_JPRB, 0.543814E-01_JPRB, 0.512872E-01_JPRB &
+  &, 0.482670E-01_JPRB, 0.454449E-01_JPRB, 0.427720E-01_JPRB &
+  &, 0.401963E-01_JPRB, 0.377857E-01_JPRB, 0.354868E-01_JPRB, 0.332432E-01_JPRB &
+  &, 0.311869E-01_JPRB, 0.292627E-01_JPRB, 0.274115E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART92',1,ZHOOK_HANDLE)
+END SUBROUTINE PART92
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART93
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART93',0,ZHOOK_HANDLE)
+
+XCW( 645, :) = (/ &
+  &  0.103415E+01_JPRB, 0.104174E+01_JPRB, 0.104894E+01_JPRB, 0.105574E+01_JPRB &
+  &, 0.106214E+01_JPRB, 0.106814E+01_JPRB, 0.107372E+01_JPRB &
+  &, 0.107889E+01_JPRB, 0.108363E+01_JPRB, 0.108795E+01_JPRB, 0.109184E+01_JPRB &
+  &, 0.109529E+01_JPRB, 0.109830E+01_JPRB, 0.110087E+01_JPRB &
+  &, 0.110300E+01_JPRB, 0.110467E+01_JPRB, 0.110589E+01_JPRB, 0.110666E+01_JPRB &
+  &, 0.110697E+01_JPRB, 0.110682E+01_JPRB, 0.110621E+01_JPRB &
+  &, 0.110514E+01_JPRB, 0.110361E+01_JPRB, 0.110162E+01_JPRB, 0.109917E+01_JPRB &
+  &, 0.109626E+01_JPRB, 0.109289E+01_JPRB, 0.108906E+01_JPRB &
+  &, 0.108477E+01_JPRB, 0.108004E+01_JPRB, 0.107486E+01_JPRB, 0.106923E+01_JPRB &
+  &, 0.106317E+01_JPRB, 0.105667E+01_JPRB, 0.104975E+01_JPRB &
+  &, 0.104240E+01_JPRB, 0.103463E+01_JPRB, 0.102646E+01_JPRB, 0.101790E+01_JPRB &
+  &, 0.100894E+01_JPRB, 0.999590E+00_JPRB, 0.989887E+00_JPRB &
+  &, 0.979807E+00_JPRB, 0.969388E+00_JPRB, 0.958626E+00_JPRB, 0.947531E+00_JPRB &
+  &, 0.936127E+00_JPRB, 0.924408E+00_JPRB, 0.912401E+00_JPRB &
+  &, 0.900128E+00_JPRB, 0.887572E+00_JPRB, 0.874784E+00_JPRB, 0.861749E+00_JPRB &
+  &, 0.848480E+00_JPRB, 0.835020E+00_JPRB, 0.821357E+00_JPRB &
+  &, 0.807522E+00_JPRB, 0.793519E+00_JPRB, 0.779299E+00_JPRB, 0.765061E+00_JPRB &
+  &, 0.750662E+00_JPRB, 0.736137E+00_JPRB, 0.721540E+00_JPRB &
+  &, 0.706857E+00_JPRB, 0.692109E+00_JPRB, 0.677334E+00_JPRB, 0.662515E+00_JPRB &
+  &, 0.647674E+00_JPRB, 0.632830E+00_JPRB, 0.618024E+00_JPRB &
+  &, 0.603214E+00_JPRB, 0.588463E+00_JPRB, 0.573745E+00_JPRB, 0.559102E+00_JPRB &
+  &, 0.544551E+00_JPRB, 0.530066E+00_JPRB, 0.515709E+00_JPRB &
+  &, 0.501450E+00_JPRB, 0.487228E+00_JPRB, 0.473307E+00_JPRB, 0.459478E+00_JPRB &
+  &, 0.445778E+00_JPRB, 0.432243E+00_JPRB, 0.418886E+00_JPRB &
+  &, 0.405717E+00_JPRB, 0.392745E+00_JPRB, 0.379951E+00_JPRB, 0.367399E+00_JPRB &
+  &, 0.355038E+00_JPRB, 0.342871E+00_JPRB, 0.330963E+00_JPRB &
+  &, 0.319256E+00_JPRB, 0.307814E+00_JPRB, 0.296607E+00_JPRB, 0.285599E+00_JPRB &
+  &, 0.274889E+00_JPRB, 0.264407E+00_JPRB, 0.254146E+00_JPRB &
+  &, 0.244172E+00_JPRB, 0.234443E+00_JPRB, 0.224949E+00_JPRB, 0.215754E+00_JPRB &
+  &, 0.206774E+00_JPRB, 0.198072E+00_JPRB, 0.189595E+00_JPRB &
+  &, 0.181367E+00_JPRB, 0.173411E+00_JPRB, 0.165712E+00_JPRB, 0.158250E+00_JPRB &
+  &, 0.151047E+00_JPRB, 0.144037E+00_JPRB, 0.137327E+00_JPRB &
+  &, 0.130807E+00_JPRB, 0.124538E+00_JPRB, 0.118495E+00_JPRB, 0.112694E+00_JPRB &
+  &, 0.107060E+00_JPRB, 0.101702E+00_JPRB, 0.964938E-01_JPRB &
+  &, 0.915462E-01_JPRB, 0.867760E-01_JPRB, 0.821965E-01_JPRB, 0.778213E-01_JPRB &
+  &, 0.736641E-01_JPRB, 0.696318E-01_JPRB, 0.658429E-01_JPRB &
+  &, 0.621463E-01_JPRB, 0.586618E-01_JPRB, 0.553452E-01_JPRB, 0.521495E-01_JPRB &
+  &, 0.491412E-01_JPRB, 0.462721E-01_JPRB, 0.435506E-01_JPRB &
+  &, 0.409247E-01_JPRB, 0.384624E-01_JPRB, 0.361103E-01_JPRB, 0.339382E-01_JPRB &
+  &, 0.318271E-01_JPRB, 0.298464E-01_JPRB, 0.279372E-01_JPRB/)
+XCW( 646, :) = (/ &
+  &  0.103442E+01_JPRB, 0.104208E+01_JPRB, 0.104935E+01_JPRB, 0.105623E+01_JPRB &
+  &, 0.106270E+01_JPRB, 0.106877E+01_JPRB, 0.107443E+01_JPRB &
+  &, 0.107967E+01_JPRB, 0.108448E+01_JPRB, 0.108888E+01_JPRB, 0.109284E+01_JPRB &
+  &, 0.109637E+01_JPRB, 0.109945E+01_JPRB, 0.110210E+01_JPRB &
+  &, 0.110429E+01_JPRB, 0.110604E+01_JPRB, 0.110734E+01_JPRB, 0.110818E+01_JPRB &
+  &, 0.110857E+01_JPRB, 0.110849E+01_JPRB, 0.110796E+01_JPRB &
+  &, 0.110696E+01_JPRB, 0.110550E+01_JPRB, 0.110358E+01_JPRB, 0.110120E+01_JPRB &
+  &, 0.109836E+01_JPRB, 0.109506E+01_JPRB, 0.109130E+01_JPRB &
+  &, 0.108708E+01_JPRB, 0.108242E+01_JPRB, 0.107730E+01_JPRB, 0.107174E+01_JPRB &
+  &, 0.106574E+01_JPRB, 0.105931E+01_JPRB, 0.105245E+01_JPRB &
+  &, 0.104516E+01_JPRB, 0.103745E+01_JPRB, 0.102934E+01_JPRB, 0.102083E+01_JPRB &
+  &, 0.101193E+01_JPRB, 0.100264E+01_JPRB, 0.992977E+00_JPRB &
+  &, 0.982952E+00_JPRB, 0.972578E+00_JPRB, 0.961860E+00_JPRB, 0.950822E+00_JPRB &
+  &, 0.939451E+00_JPRB, 0.927776E+00_JPRB, 0.915813E+00_JPRB &
+  &, 0.903571E+00_JPRB, 0.891058E+00_JPRB, 0.878299E+00_JPRB, 0.865291E+00_JPRB &
+  &, 0.852064E+00_JPRB, 0.838615E+00_JPRB, 0.824976E+00_JPRB &
+  &, 0.811164E+00_JPRB, 0.797182E+00_JPRB, 0.783031E+00_JPRB, 0.768762E+00_JPRB &
+  &, 0.754363E+00_JPRB, 0.739852E+00_JPRB, 0.725250E+00_JPRB &
+  &, 0.710577E+00_JPRB, 0.695837E+00_JPRB, 0.681049E+00_JPRB, 0.666235E+00_JPRB &
+  &, 0.651395E+00_JPRB, 0.636550E+00_JPRB, 0.621720E+00_JPRB &
+  &, 0.606905E+00_JPRB, 0.592123E+00_JPRB, 0.577416E+00_JPRB, 0.562737E+00_JPRB &
+  &, 0.548170E+00_JPRB, 0.533665E+00_JPRB, 0.519262E+00_JPRB &
+  &, 0.504976E+00_JPRB, 0.490825E+00_JPRB, 0.476798E+00_JPRB, 0.462909E+00_JPRB &
+  &, 0.449171E+00_JPRB, 0.435622E+00_JPRB, 0.422220E+00_JPRB &
+  &, 0.409003E+00_JPRB, 0.395980E+00_JPRB, 0.383160E+00_JPRB, 0.370521E+00_JPRB &
+  &, 0.358127E+00_JPRB, 0.345925E+00_JPRB, 0.333949E+00_JPRB &
+  &, 0.322201E+00_JPRB, 0.310715E+00_JPRB, 0.299428E+00_JPRB, 0.288404E+00_JPRB &
+  &, 0.277607E+00_JPRB, 0.267069E+00_JPRB, 0.256784E+00_JPRB &
+  &, 0.246748E+00_JPRB, 0.236953E+00_JPRB, 0.227391E+00_JPRB, 0.218125E+00_JPRB &
+  &, 0.209108E+00_JPRB, 0.200327E+00_JPRB, 0.191809E+00_JPRB &
+  &, 0.183536E+00_JPRB, 0.175494E+00_JPRB, 0.167745E+00_JPRB, 0.160231E+00_JPRB &
+  &, 0.152931E+00_JPRB, 0.145907E+00_JPRB, 0.139095E+00_JPRB &
+  &, 0.132557E+00_JPRB, 0.126224E+00_JPRB, 0.120114E+00_JPRB, 0.114245E+00_JPRB &
+  &, 0.108586E+00_JPRB, 0.103155E+00_JPRB, 0.979184E-01_JPRB &
+  &, 0.928923E-01_JPRB, 0.880914E-01_JPRB, 0.834799E-01_JPRB, 0.790713E-01_JPRB &
+  &, 0.748265E-01_JPRB, 0.707574E-01_JPRB, 0.668758E-01_JPRB &
+  &, 0.631939E-01_JPRB, 0.596682E-01_JPRB, 0.563091E-01_JPRB, 0.530693E-01_JPRB &
+  &, 0.500155E-01_JPRB, 0.470992E-01_JPRB, 0.443291E-01_JPRB &
+  &, 0.417139E-01_JPRB, 0.392007E-01_JPRB, 0.367962E-01_JPRB, 0.345700E-01_JPRB &
+  &, 0.324033E-01_JPRB, 0.304302E-01_JPRB, 0.285286E-01_JPRB/)
+XCW( 647, :) = (/ &
+  &  0.103470E+01_JPRB, 0.104243E+01_JPRB, 0.104977E+01_JPRB, 0.105672E+01_JPRB &
+  &, 0.106327E+01_JPRB, 0.106941E+01_JPRB, 0.107514E+01_JPRB &
+  &, 0.108045E+01_JPRB, 0.108534E+01_JPRB, 0.108981E+01_JPRB, 0.109384E+01_JPRB &
+  &, 0.109744E+01_JPRB, 0.110060E+01_JPRB, 0.110332E+01_JPRB &
+  &, 0.110560E+01_JPRB, 0.110742E+01_JPRB, 0.110879E+01_JPRB, 0.110970E+01_JPRB &
+  &, 0.111016E+01_JPRB, 0.111016E+01_JPRB, 0.110970E+01_JPRB &
+  &, 0.110878E+01_JPRB, 0.110740E+01_JPRB, 0.110555E+01_JPRB, 0.110324E+01_JPRB &
+  &, 0.110047E+01_JPRB, 0.109724E+01_JPRB, 0.109355E+01_JPRB &
+  &, 0.108940E+01_JPRB, 0.108480E+01_JPRB, 0.107975E+01_JPRB, 0.107426E+01_JPRB &
+  &, 0.106832E+01_JPRB, 0.106196E+01_JPRB, 0.105515E+01_JPRB &
+  &, 0.104792E+01_JPRB, 0.104029E+01_JPRB, 0.103223E+01_JPRB, 0.102377E+01_JPRB &
+  &, 0.101493E+01_JPRB, 0.100569E+01_JPRB, 0.996088E+00_JPRB &
+  &, 0.986120E+00_JPRB, 0.975790E+00_JPRB, 0.965118E+00_JPRB, 0.954113E+00_JPRB &
+  &, 0.942799E+00_JPRB, 0.931168E+00_JPRB, 0.919238E+00_JPRB &
+  &, 0.907026E+00_JPRB, 0.894557E+00_JPRB, 0.881827E+00_JPRB, 0.868848E+00_JPRB &
+  &, 0.855647E+00_JPRB, 0.842239E+00_JPRB, 0.828626E+00_JPRB &
+  &, 0.814822E+00_JPRB, 0.800861E+00_JPRB, 0.786730E+00_JPRB, 0.772463E+00_JPRB &
+  &, 0.758080E+00_JPRB, 0.743584E+00_JPRB, 0.728995E+00_JPRB &
+  &, 0.714316E+00_JPRB, 0.699584E+00_JPRB, 0.684803E+00_JPRB, 0.669973E+00_JPRB &
+  &, 0.655136E+00_JPRB, 0.640290E+00_JPRB, 0.625437E+00_JPRB &
+  &, 0.610616E+00_JPRB, 0.595827E+00_JPRB, 0.581087E+00_JPRB, 0.566394E+00_JPRB &
+  &, 0.551788E+00_JPRB, 0.537287E+00_JPRB, 0.522862E+00_JPRB &
+  &, 0.508527E+00_JPRB, 0.494348E+00_JPRB, 0.480290E+00_JPRB, 0.466366E+00_JPRB &
+  &, 0.452590E+00_JPRB, 0.439000E+00_JPRB, 0.425554E+00_JPRB &
+  &, 0.412317E+00_JPRB, 0.399243E+00_JPRB, 0.386369E+00_JPRB, 0.373701E+00_JPRB &
+  &, 0.361246E+00_JPRB, 0.349010E+00_JPRB, 0.336966E+00_JPRB &
+  &, 0.325177E+00_JPRB, 0.313616E+00_JPRB, 0.302283E+00_JPRB, 0.291209E+00_JPRB &
+  &, 0.280359E+00_JPRB, 0.269765E+00_JPRB, 0.259422E+00_JPRB &
+  &, 0.249324E+00_JPRB, 0.239464E+00_JPRB, 0.229870E+00_JPRB, 0.220533E+00_JPRB &
+  &, 0.211441E+00_JPRB, 0.202622E+00_JPRB, 0.194022E+00_JPRB &
+  &, 0.185706E+00_JPRB, 0.177617E+00_JPRB, 0.169778E+00_JPRB, 0.162212E+00_JPRB &
+  &, 0.154901E+00_JPRB, 0.147778E+00_JPRB, 0.140950E+00_JPRB &
+  &, 0.134307E+00_JPRB, 0.127910E+00_JPRB, 0.121780E+00_JPRB, 0.115842E+00_JPRB &
+  &, 0.110159E+00_JPRB, 0.104655E+00_JPRB, 0.993431E-01_JPRB &
+  &, 0.942882E-01_JPRB, 0.894068E-01_JPRB, 0.847632E-01_JPRB, 0.802692E-01_JPRB &
+  &, 0.759889E-01_JPRB, 0.718829E-01_JPRB, 0.679630E-01_JPRB &
+  &, 0.642414E-01_JPRB, 0.606747E-01_JPRB, 0.572729E-01_JPRB, 0.539891E-01_JPRB &
+  &, 0.508897E-01_JPRB, 0.479264E-01_JPRB, 0.451077E-01_JPRB &
+  &, 0.424423E-01_JPRB, 0.399390E-01_JPRB, 0.375444E-01_JPRB, 0.352018E-01_JPRB &
+  &, 0.330435E-01_JPRB, 0.310139E-01_JPRB, 0.290543E-01_JPRB/)
+XCW( 648, :) = (/ &
+  &  0.103497E+01_JPRB, 0.104277E+01_JPRB, 0.105019E+01_JPRB, 0.105721E+01_JPRB &
+  &, 0.106383E+01_JPRB, 0.107004E+01_JPRB, 0.107585E+01_JPRB &
+  &, 0.108123E+01_JPRB, 0.108620E+01_JPRB, 0.109074E+01_JPRB, 0.109485E+01_JPRB &
+  &, 0.109852E+01_JPRB, 0.110176E+01_JPRB, 0.110455E+01_JPRB &
+  &, 0.110690E+01_JPRB, 0.110880E+01_JPRB, 0.111024E+01_JPRB, 0.111123E+01_JPRB &
+  &, 0.111177E+01_JPRB, 0.111184E+01_JPRB, 0.111145E+01_JPRB &
+  &, 0.111060E+01_JPRB, 0.110929E+01_JPRB, 0.110752E+01_JPRB, 0.110528E+01_JPRB &
+  &, 0.110258E+01_JPRB, 0.109942E+01_JPRB, 0.109580E+01_JPRB &
+  &, 0.109172E+01_JPRB, 0.108719E+01_JPRB, 0.108221E+01_JPRB, 0.107679E+01_JPRB &
+  &, 0.107091E+01_JPRB, 0.106461E+01_JPRB, 0.105787E+01_JPRB &
+  &, 0.105070E+01_JPRB, 0.104312E+01_JPRB, 0.103512E+01_JPRB, 0.102673E+01_JPRB &
+  &, 0.101793E+01_JPRB, 0.100876E+01_JPRB, 0.999200E+00_JPRB &
+  &, 0.989287E+00_JPRB, 0.979003E+00_JPRB, 0.968387E+00_JPRB, 0.957428E+00_JPRB &
+  &, 0.946147E+00_JPRB, 0.934561E+00_JPRB, 0.922675E+00_JPRB &
+  &, 0.910509E+00_JPRB, 0.898056E+00_JPRB, 0.885370E+00_JPRB, 0.872419E+00_JPRB &
+  &, 0.859246E+00_JPRB, 0.845864E+00_JPRB, 0.832275E+00_JPRB &
+  &, 0.818494E+00_JPRB, 0.804556E+00_JPRB, 0.790445E+00_JPRB, 0.776197E+00_JPRB &
+  &, 0.761815E+00_JPRB, 0.747334E+00_JPRB, 0.732758E+00_JPRB &
+  &, 0.718090E+00_JPRB, 0.703349E+00_JPRB, 0.688556E+00_JPRB, 0.673731E+00_JPRB &
+  &, 0.658896E+00_JPRB, 0.644031E+00_JPRB, 0.629175E+00_JPRB &
+  &, 0.614349E+00_JPRB, 0.599530E+00_JPRB, 0.584780E+00_JPRB, 0.570074E+00_JPRB &
+  &, 0.555452E+00_JPRB, 0.540909E+00_JPRB, 0.526462E+00_JPRB &
+  &, 0.512127E+00_JPRB, 0.497895E+00_JPRB, 0.483806E+00_JPRB, 0.469849E+00_JPRB &
+  &, 0.456061E+00_JPRB, 0.442404E+00_JPRB, 0.428942E+00_JPRB &
+  &, 0.415631E+00_JPRB, 0.402535E+00_JPRB, 0.389606E+00_JPRB, 0.376911E+00_JPRB &
+  &, 0.364396E+00_JPRB, 0.352095E+00_JPRB, 0.340014E+00_JPRB &
+  &, 0.328186E+00_JPRB, 0.316550E+00_JPRB, 0.305170E+00_JPRB, 0.294047E+00_JPRB &
+  &, 0.283146E+00_JPRB, 0.272496E+00_JPRB, 0.262095E+00_JPRB &
+  &, 0.251935E+00_JPRB, 0.242011E+00_JPRB, 0.232349E+00_JPRB, 0.222978E+00_JPRB &
+  &, 0.213813E+00_JPRB, 0.204916E+00_JPRB, 0.196275E+00_JPRB &
+  &, 0.187915E+00_JPRB, 0.179740E+00_JPRB, 0.171852E+00_JPRB, 0.164236E+00_JPRB &
+  &, 0.156828E+00_JPRB, 0.149692E+00_JPRB, 0.142762E+00_JPRB &
+  &, 0.136102E+00_JPRB, 0.129642E+00_JPRB, 0.123445E+00_JPRB, 0.117439E+00_JPRB &
+  &, 0.111685E+00_JPRB, 0.106155E+00_JPRB, 0.100817E+00_JPRB &
+  &, 0.956842E-01_JPRB, 0.907728E-01_JPRB, 0.860466E-01_JPRB, 0.815192E-01_JPRB &
+  &, 0.772042E-01_JPRB, 0.730620E-01_JPRB, 0.691046E-01_JPRB &
+  &, 0.652890E-01_JPRB, 0.616811E-01_JPRB, 0.582367E-01_JPRB, 0.549088E-01_JPRB &
+  &, 0.518222E-01_JPRB, 0.488126E-01_JPRB, 0.459462E-01_JPRB &
+  &, 0.432315E-01_JPRB, 0.406773E-01_JPRB, 0.382302E-01_JPRB, 0.358968E-01_JPRB &
+  &, 0.336837E-01_JPRB, 0.315977E-01_JPRB, 0.296457E-01_JPRB/)
+XCW( 649, :) = (/ &
+  &  0.103525E+01_JPRB, 0.104312E+01_JPRB, 0.105061E+01_JPRB, 0.105770E+01_JPRB &
+  &, 0.106439E+01_JPRB, 0.107068E+01_JPRB, 0.107655E+01_JPRB &
+  &, 0.108201E+01_JPRB, 0.108705E+01_JPRB, 0.109167E+01_JPRB, 0.109585E+01_JPRB &
+  &, 0.109960E+01_JPRB, 0.110291E+01_JPRB, 0.110578E+01_JPRB &
+  &, 0.110821E+01_JPRB, 0.111013E+01_JPRB, 0.111170E+01_JPRB, 0.111276E+01_JPRB &
+  &, 0.111337E+01_JPRB, 0.111352E+01_JPRB, 0.111320E+01_JPRB &
+  &, 0.111243E+01_JPRB, 0.111119E+01_JPRB, 0.110949E+01_JPRB, 0.110732E+01_JPRB &
+  &, 0.110470E+01_JPRB, 0.110161E+01_JPRB, 0.109806E+01_JPRB &
+  &, 0.109405E+01_JPRB, 0.108959E+01_JPRB, 0.108467E+01_JPRB, 0.107932E+01_JPRB &
+  &, 0.107351E+01_JPRB, 0.106727E+01_JPRB, 0.106059E+01_JPRB &
+  &, 0.105348E+01_JPRB, 0.104596E+01_JPRB, 0.103803E+01_JPRB, 0.102969E+01_JPRB &
+  &, 0.102095E+01_JPRB, 0.101167E+01_JPRB, 0.100233E+01_JPRB &
+  &, 0.992454E+00_JPRB, 0.982227E+00_JPRB, 0.971657E+00_JPRB, 0.960742E+00_JPRB &
+  &, 0.949507E+00_JPRB, 0.937967E+00_JPRB, 0.926126E+00_JPRB &
+  &, 0.913991E+00_JPRB, 0.901583E+00_JPRB, 0.888926E+00_JPRB, 0.876004E+00_JPRB &
+  &, 0.862858E+00_JPRB, 0.849503E+00_JPRB, 0.835939E+00_JPRB &
+  &, 0.822183E+00_JPRB, 0.808251E+00_JPRB, 0.794177E+00_JPRB, 0.779932E+00_JPRB &
+  &, 0.765583E+00_JPRB, 0.751101E+00_JPRB, 0.736521E+00_JPRB &
+  &, 0.721865E+00_JPRB, 0.707133E+00_JPRB, 0.692348E+00_JPRB, 0.677528E+00_JPRB &
+  &, 0.662676E+00_JPRB, 0.647791E+00_JPRB, 0.632933E+00_JPRB &
+  &, 0.618082E+00_JPRB, 0.603277E+00_JPRB, 0.588495E+00_JPRB, 0.573776E+00_JPRB &
+  &, 0.559139E+00_JPRB, 0.544554E+00_JPRB, 0.530086E+00_JPRB &
+  &, 0.515727E+00_JPRB, 0.501468E+00_JPRB, 0.487348E+00_JPRB, 0.473357E+00_JPRB &
+  &, 0.459507E+00_JPRB, 0.445836E+00_JPRB, 0.432331E+00_JPRB &
+  &, 0.419000E+00_JPRB, 0.405826E+00_JPRB, 0.392873E+00_JPRB, 0.380120E+00_JPRB &
+  &, 0.367575E+00_JPRB, 0.355211E+00_JPRB, 0.343093E+00_JPRB &
+  &, 0.331194E+00_JPRB, 0.319515E+00_JPRB, 0.308090E+00_JPRB, 0.296885E+00_JPRB &
+  &, 0.285932E+00_JPRB, 0.275227E+00_JPRB, 0.264768E+00_JPRB &
+  &, 0.254547E+00_JPRB, 0.244594E+00_JPRB, 0.234865E+00_JPRB, 0.225424E+00_JPRB &
+  &, 0.216223E+00_JPRB, 0.207250E+00_JPRB, 0.198568E+00_JPRB &
+  &, 0.190125E+00_JPRB, 0.181904E+00_JPRB, 0.173968E+00_JPRB, 0.166259E+00_JPRB &
+  &, 0.158797E+00_JPRB, 0.151606E+00_JPRB, 0.144617E+00_JPRB &
+  &, 0.137897E+00_JPRB, 0.131419E+00_JPRB, 0.125157E+00_JPRB, 0.119083E+00_JPRB &
+  &, 0.113259E+00_JPRB, 0.107656E+00_JPRB, 0.102291E+00_JPRB &
+  &, 0.971301E-01_JPRB, 0.921388E-01_JPRB, 0.873813E-01_JPRB, 0.828212E-01_JPRB &
+  &, 0.784194E-01_JPRB, 0.742411E-01_JPRB, 0.702462E-01_JPRB &
+  &, 0.663917E-01_JPRB, 0.627434E-01_JPRB, 0.592006E-01_JPRB, 0.558861E-01_JPRB &
+  &, 0.526964E-01_JPRB, 0.496989E-01_JPRB, 0.467847E-01_JPRB &
+  &, 0.440206E-01_JPRB, 0.414156E-01_JPRB, 0.389784E-01_JPRB, 0.365917E-01_JPRB &
+  &, 0.343879E-01_JPRB, 0.322463E-01_JPRB, 0.302371E-01_JPRB/)
+XCW( 650, :) = (/ &
+  &  0.103552E+01_JPRB, 0.104347E+01_JPRB, 0.105103E+01_JPRB, 0.105819E+01_JPRB &
+  &, 0.106495E+01_JPRB, 0.107131E+01_JPRB, 0.107727E+01_JPRB &
+  &, 0.108280E+01_JPRB, 0.108791E+01_JPRB, 0.109260E+01_JPRB, 0.109686E+01_JPRB &
+  &, 0.110069E+01_JPRB, 0.110407E+01_JPRB, 0.110702E+01_JPRB &
+  &, 0.110951E+01_JPRB, 0.111156E+01_JPRB, 0.111316E+01_JPRB, 0.111430E+01_JPRB &
+  &, 0.111498E+01_JPRB, 0.111520E+01_JPRB, 0.111496E+01_JPRB &
+  &, 0.111426E+01_JPRB, 0.111310E+01_JPRB, 0.111147E+01_JPRB, 0.110937E+01_JPRB &
+  &, 0.110682E+01_JPRB, 0.110380E+01_JPRB, 0.110032E+01_JPRB &
+  &, 0.109638E+01_JPRB, 0.109199E+01_JPRB, 0.108714E+01_JPRB, 0.108185E+01_JPRB &
+  &, 0.107611E+01_JPRB, 0.106993E+01_JPRB, 0.106332E+01_JPRB &
+  &, 0.105627E+01_JPRB, 0.104881E+01_JPRB, 0.104094E+01_JPRB, 0.103266E+01_JPRB &
+  &, 0.102399E+01_JPRB, 0.101491E+01_JPRB, 0.100547E+01_JPRB &
+  &, 0.995644E+00_JPRB, 0.985473E+00_JPRB, 0.974938E+00_JPRB, 0.964081E+00_JPRB &
+  &, 0.952892E+00_JPRB, 0.941385E+00_JPRB, 0.929576E+00_JPRB &
+  &, 0.917486E+00_JPRB, 0.905122E+00_JPRB, 0.892482E+00_JPRB, 0.879603E+00_JPRB &
+  &, 0.866500E+00_JPRB, 0.853157E+00_JPRB, 0.839619E+00_JPRB &
+  &, 0.825887E+00_JPRB, 0.811977E+00_JPRB, 0.797909E+00_JPRB, 0.783699E+00_JPRB &
+  &, 0.769352E+00_JPRB, 0.754885E+00_JPRB, 0.740320E+00_JPRB &
+  &, 0.725657E+00_JPRB, 0.710936E+00_JPRB, 0.696139E+00_JPRB, 0.681325E+00_JPRB &
+  &, 0.666456E+00_JPRB, 0.651592E+00_JPRB, 0.636712E+00_JPRB &
+  &, 0.621856E+00_JPRB, 0.607023E+00_JPRB, 0.592232E+00_JPRB, 0.577501E+00_JPRB &
+  &, 0.562826E+00_JPRB, 0.548246E+00_JPRB, 0.533734E+00_JPRB &
+  &, 0.519351E+00_JPRB, 0.505065E+00_JPRB, 0.490915E+00_JPRB, 0.476891E+00_JPRB &
+  &, 0.463005E+00_JPRB, 0.449295E+00_JPRB, 0.435746E+00_JPRB &
+  &, 0.422370E+00_JPRB, 0.409174E+00_JPRB, 0.396169E+00_JPRB, 0.383360E+00_JPRB &
+  &, 0.370754E+00_JPRB, 0.358357E+00_JPRB, 0.346203E+00_JPRB &
+  &, 0.334234E+00_JPRB, 0.322513E+00_JPRB, 0.311043E+00_JPRB, 0.299790E+00_JPRB &
+  &, 0.288786E+00_JPRB, 0.277993E+00_JPRB, 0.267476E+00_JPRB &
+  &, 0.257194E+00_JPRB, 0.247178E+00_JPRB, 0.237418E+00_JPRB, 0.227907E+00_JPRB &
+  &, 0.218633E+00_JPRB, 0.209622E+00_JPRB, 0.200861E+00_JPRB &
+  &, 0.192335E+00_JPRB, 0.184109E+00_JPRB, 0.176084E+00_JPRB, 0.168325E+00_JPRB &
+  &, 0.160810E+00_JPRB, 0.153563E+00_JPRB, 0.146517E+00_JPRB &
+  &, 0.139736E+00_JPRB, 0.133196E+00_JPRB, 0.126869E+00_JPRB, 0.120774E+00_JPRB &
+  &, 0.114880E+00_JPRB, 0.109205E+00_JPRB, 0.103764E+00_JPRB &
+  &, 0.985759E-01_JPRB, 0.935554E-01_JPRB, 0.887160E-01_JPRB, 0.841233E-01_JPRB &
+  &, 0.796875E-01_JPRB, 0.754203E-01_JPRB, 0.713878E-01_JPRB &
+  &, 0.674944E-01_JPRB, 0.637498E-01_JPRB, 0.602211E-01_JPRB, 0.568633E-01_JPRB &
+  &, 0.536289E-01_JPRB, 0.505851E-01_JPRB, 0.476231E-01_JPRB &
+  &, 0.448705E-01_JPRB, 0.422154E-01_JPRB, 0.396642E-01_JPRB, 0.372867E-01_JPRB &
+  &, 0.350280E-01_JPRB, 0.328949E-01_JPRB, 0.308285E-01_JPRB/)
+XCW( 651, :) = (/ &
+  &  0.103580E+01_JPRB, 0.104382E+01_JPRB, 0.105145E+01_JPRB, 0.105868E+01_JPRB &
+  &, 0.106552E+01_JPRB, 0.107195E+01_JPRB, 0.107798E+01_JPRB &
+  &, 0.108359E+01_JPRB, 0.108877E+01_JPRB, 0.109354E+01_JPRB, 0.109787E+01_JPRB &
+  &, 0.110177E+01_JPRB, 0.110523E+01_JPRB, 0.110825E+01_JPRB &
+  &, 0.111083E+01_JPRB, 0.111295E+01_JPRB, 0.111462E+01_JPRB, 0.111583E+01_JPRB &
+  &, 0.111659E+01_JPRB, 0.111689E+01_JPRB, 0.111672E+01_JPRB &
+  &, 0.111610E+01_JPRB, 0.111501E+01_JPRB, 0.111345E+01_JPRB, 0.111143E+01_JPRB &
+  &, 0.110895E+01_JPRB, 0.110600E+01_JPRB, 0.110259E+01_JPRB &
+  &, 0.109872E+01_JPRB, 0.109440E+01_JPRB, 0.108962E+01_JPRB, 0.108439E+01_JPRB &
+  &, 0.107872E+01_JPRB, 0.107261E+01_JPRB, 0.106606E+01_JPRB &
+  &, 0.105907E+01_JPRB, 0.105164E+01_JPRB, 0.104386E+01_JPRB, 0.103564E+01_JPRB &
+  &, 0.102702E+01_JPRB, 0.101800E+01_JPRB, 0.100861E+01_JPRB &
+  &, 0.998844E+00_JPRB, 0.988720E+00_JPRB, 0.978242E+00_JPRB, 0.967420E+00_JPRB &
+  &, 0.956277E+00_JPRB, 0.944815E+00_JPRB, 0.933052E+00_JPRB &
+  &, 0.920994E+00_JPRB, 0.908662E+00_JPRB, 0.896066E+00_JPRB, 0.883217E+00_JPRB &
+  &, 0.870142E+00_JPRB, 0.856826E+00_JPRB, 0.843314E+00_JPRB &
+  &, 0.829606E+00_JPRB, 0.815720E+00_JPRB, 0.801673E+00_JPRB, 0.787467E+00_JPRB &
+  &, 0.773137E+00_JPRB, 0.758687E+00_JPRB, 0.744118E+00_JPRB &
+  &, 0.729468E+00_JPRB, 0.714757E+00_JPRB, 0.699969E+00_JPRB, 0.685141E+00_JPRB &
+  &, 0.670276E+00_JPRB, 0.655393E+00_JPRB, 0.640512E+00_JPRB &
+  &, 0.625652E+00_JPRB, 0.610813E+00_JPRB, 0.595991E+00_JPRB, 0.581248E+00_JPRB &
+  &, 0.566558E+00_JPRB, 0.551939E+00_JPRB, 0.537405E+00_JPRB &
+  &, 0.522999E+00_JPRB, 0.508687E+00_JPRB, 0.494483E+00_JPRB, 0.478800E+00_JPRB &
+  &, 0.466529E+00_JPRB, 0.452780E+00_JPRB, 0.439189E+00_JPRB &
+  &, 0.425767E+00_JPRB, 0.412523E+00_JPRB, 0.399464E+00_JPRB, 0.386628E+00_JPRB &
+  &, 0.373963E+00_JPRB, 0.361533E+00_JPRB, 0.349313E+00_JPRB &
+  &, 0.337305E+00_JPRB, 0.325543E+00_JPRB, 0.313996E+00_JPRB, 0.302695E+00_JPRB &
+  &, 0.291606E+00_JPRB, 0.280793E+00_JPRB, 0.270219E+00_JPRB &
+  &, 0.259877E+00_JPRB, 0.249797E+00_JPRB, 0.239972E+00_JPRB, 0.230390E+00_JPRB &
+  &, 0.221081E+00_JPRB, 0.211994E+00_JPRB, 0.203193E+00_JPRB &
+  &, 0.194625E+00_JPRB, 0.186314E+00_JPRB, 0.178242E+00_JPRB, 0.170432E+00_JPRB &
+  &, 0.162866E+00_JPRB, 0.155521E+00_JPRB, 0.148417E+00_JPRB &
+  &, 0.141576E+00_JPRB, 0.134973E+00_JPRB, 0.128581E+00_JPRB, 0.122418E+00_JPRB &
+  &, 0.116501E+00_JPRB, 0.110802E+00_JPRB, 0.105287E+00_JPRB &
+  &, 0.100022E+00_JPRB, 0.949720E-01_JPRB, 0.901020E-01_JPRB, 0.854254E-01_JPRB &
+  &, 0.809027E-01_JPRB, 0.766530E-01_JPRB, 0.725295E-01_JPRB &
+  &, 0.685970E-01_JPRB, 0.648681E-01_JPRB, 0.612416E-01_JPRB, 0.578406E-01_JPRB &
+  &, 0.545614E-01_JPRB, 0.514714E-01_JPRB, 0.484616E-01_JPRB &
+  &, 0.456597E-01_JPRB, 0.430152E-01_JPRB, 0.404124E-01_JPRB, 0.379817E-01_JPRB &
+  &, 0.357322E-01_JPRB, 0.335435E-01_JPRB, 0.314856E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART93',1,ZHOOK_HANDLE)
+END SUBROUTINE PART93
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART94
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART94',0,ZHOOK_HANDLE)
+
+XCW( 652, :) = (/ &
+  &  0.103608E+01_JPRB, 0.104416E+01_JPRB, 0.105187E+01_JPRB, 0.105917E+01_JPRB &
+  &, 0.106608E+01_JPRB, 0.107259E+01_JPRB, 0.107869E+01_JPRB &
+  &, 0.108437E+01_JPRB, 0.108964E+01_JPRB, 0.109447E+01_JPRB, 0.109888E+01_JPRB &
+  &, 0.110286E+01_JPRB, 0.110639E+01_JPRB, 0.110949E+01_JPRB &
+  &, 0.111214E+01_JPRB, 0.111434E+01_JPRB, 0.111608E+01_JPRB, 0.111737E+01_JPRB &
+  &, 0.111821E+01_JPRB, 0.111858E+01_JPRB, 0.111849E+01_JPRB &
+  &, 0.111793E+01_JPRB, 0.111692E+01_JPRB, 0.111543E+01_JPRB, 0.111349E+01_JPRB &
+  &, 0.111108E+01_JPRB, 0.110820E+01_JPRB, 0.110486E+01_JPRB &
+  &, 0.110107E+01_JPRB, 0.109681E+01_JPRB, 0.109210E+01_JPRB, 0.108694E+01_JPRB &
+  &, 0.108133E+01_JPRB, 0.107529E+01_JPRB, 0.106880E+01_JPRB &
+  &, 0.106188E+01_JPRB, 0.105454E+01_JPRB, 0.104679E+01_JPRB, 0.103863E+01_JPRB &
+  &, 0.103006E+01_JPRB, 0.102111E+01_JPRB, 0.101176E+01_JPRB &
+  &, 0.100206E+01_JPRB, 0.991978E+00_JPRB, 0.981546E+00_JPRB, 0.970782E+00_JPRB &
+  &, 0.959673E+00_JPRB, 0.948258E+00_JPRB, 0.936541E+00_JPRB &
+  &, 0.924516E+00_JPRB, 0.912229E+00_JPRB, 0.899663E+00_JPRB, 0.886844E+00_JPRB &
+  &, 0.873798E+00_JPRB, 0.860525E+00_JPRB, 0.847039E+00_JPRB &
+  &, 0.833341E+00_JPRB, 0.819478E+00_JPRB, 0.805453E+00_JPRB, 0.791267E+00_JPRB &
+  &, 0.776940E+00_JPRB, 0.762506E+00_JPRB, 0.747952E+00_JPRB &
+  &, 0.733315E+00_JPRB, 0.718597E+00_JPRB, 0.703817E+00_JPRB, 0.688977E+00_JPRB &
+  &, 0.674116E+00_JPRB, 0.659234E+00_JPRB, 0.644332E+00_JPRB &
+  &, 0.629469E+00_JPRB, 0.614603E+00_JPRB, 0.599772E+00_JPRB, 0.585018E+00_JPRB &
+  &, 0.570291E+00_JPRB, 0.555654E+00_JPRB, 0.541101E+00_JPRB &
+  &, 0.526671E+00_JPRB, 0.512308E+00_JPRB, 0.498100E+00_JPRB, 0.484011E+00_JPRB &
+  &, 0.470080E+00_JPRB, 0.456265E+00_JPRB, 0.442632E+00_JPRB &
+  &, 0.429192E+00_JPRB, 0.415899E+00_JPRB, 0.402817E+00_JPRB, 0.389927E+00_JPRB &
+  &, 0.377203E+00_JPRB, 0.364741E+00_JPRB, 0.352454E+00_JPRB &
+  &, 0.340408E+00_JPRB, 0.328573E+00_JPRB, 0.316981E+00_JPRB, 0.305633E+00_JPRB &
+  &, 0.294494E+00_JPRB, 0.283628E+00_JPRB, 0.272997E+00_JPRB &
+  &, 0.262596E+00_JPRB, 0.252454E+00_JPRB, 0.242562E+00_JPRB, 0.232911E+00_JPRB &
+  &, 0.223530E+00_JPRB, 0.214405E+00_JPRB, 0.205525E+00_JPRB &
+  &, 0.196915E+00_JPRB, 0.188518E+00_JPRB, 0.180399E+00_JPRB, 0.172540E+00_JPRB &
+  &, 0.164878E+00_JPRB, 0.157522E+00_JPRB, 0.150361E+00_JPRB &
+  &, 0.143461E+00_JPRB, 0.136795E+00_JPRB, 0.130339E+00_JPRB, 0.124109E+00_JPRB &
+  &, 0.118123E+00_JPRB, 0.112399E+00_JPRB, 0.106810E+00_JPRB &
+  &, 0.101517E+00_JPRB, 0.963886E-01_JPRB, 0.914367E-01_JPRB, 0.867274E-01_JPRB &
+  &, 0.822236E-01_JPRB, 0.778857E-01_JPRB, 0.737254E-01_JPRB &
+  &, 0.697549E-01_JPRB, 0.659304E-01_JPRB, 0.623188E-01_JPRB, 0.588179E-01_JPRB &
+  &, 0.554939E-01_JPRB, 0.523576E-01_JPRB, 0.493600E-01_JPRB &
+  &, 0.465095E-01_JPRB, 0.437535E-01_JPRB, 0.412230E-01_JPRB, 0.387399E-01_JPRB &
+  &, 0.363724E-01_JPRB, 0.341921E-01_JPRB, 0.320770E-01_JPRB/)
+XCW( 653, :) = (/ &
+  &  0.103636E+01_JPRB, 0.104451E+01_JPRB, 0.105229E+01_JPRB, 0.105967E+01_JPRB &
+  &, 0.106665E+01_JPRB, 0.107323E+01_JPRB, 0.107940E+01_JPRB &
+  &, 0.108516E+01_JPRB, 0.109050E+01_JPRB, 0.109541E+01_JPRB, 0.109990E+01_JPRB &
+  &, 0.110395E+01_JPRB, 0.110756E+01_JPRB, 0.111073E+01_JPRB &
+  &, 0.111345E+01_JPRB, 0.111573E+01_JPRB, 0.111755E+01_JPRB, 0.111891E+01_JPRB &
+  &, 0.111983E+01_JPRB, 0.112027E+01_JPRB, 0.112026E+01_JPRB &
+  &, 0.111978E+01_JPRB, 0.111884E+01_JPRB, 0.111743E+01_JPRB, 0.111555E+01_JPRB &
+  &, 0.111321E+01_JPRB, 0.111041E+01_JPRB, 0.110714E+01_JPRB &
+  &, 0.110342E+01_JPRB, 0.109923E+01_JPRB, 0.109459E+01_JPRB, 0.108950E+01_JPRB &
+  &, 0.108396E+01_JPRB, 0.107798E+01_JPRB, 0.107155E+01_JPRB &
+  &, 0.106470E+01_JPRB, 0.105742E+01_JPRB, 0.104973E+01_JPRB, 0.104163E+01_JPRB &
+  &, 0.103312E+01_JPRB, 0.102422E+01_JPRB, 0.101493E+01_JPRB &
+  &, 0.100527E+01_JPRB, 0.995247E+00_JPRB, 0.984862E+00_JPRB, 0.974145E+00_JPRB &
+  &, 0.963082E+00_JPRB, 0.951714E+00_JPRB, 0.940030E+00_JPRB &
+  &, 0.928063E+00_JPRB, 0.915795E+00_JPRB, 0.903275E+00_JPRB, 0.890486E+00_JPRB &
+  &, 0.877469E+00_JPRB, 0.864223E+00_JPRB, 0.850764E+00_JPRB &
+  &, 0.837107E+00_JPRB, 0.823252E+00_JPRB, 0.809249E+00_JPRB, 0.795068E+00_JPRB &
+  &, 0.780776E+00_JPRB, 0.766343E+00_JPRB, 0.751804E+00_JPRB &
+  &, 0.737162E+00_JPRB, 0.722455E+00_JPRB, 0.707665E+00_JPRB, 0.692832E+00_JPRB &
+  &, 0.677975E+00_JPRB, 0.663076E+00_JPRB, 0.648173E+00_JPRB &
+  &, 0.633286E+00_JPRB, 0.618414E+00_JPRB, 0.603575E+00_JPRB, 0.588787E+00_JPRB &
+  &, 0.574070E+00_JPRB, 0.559393E+00_JPRB, 0.544820E+00_JPRB &
+  &, 0.530344E+00_JPRB, 0.515980E+00_JPRB, 0.501743E+00_JPRB, 0.487623E+00_JPRB &
+  &, 0.473630E+00_JPRB, 0.459804E+00_JPRB, 0.446130E+00_JPRB &
+  &, 0.432645E+00_JPRB, 0.419304E+00_JPRB, 0.406171E+00_JPRB, 0.393225E+00_JPRB &
+  &, 0.380472E+00_JPRB, 0.367948E+00_JPRB, 0.355627E+00_JPRB &
+  &, 0.343511E+00_JPRB, 0.331635E+00_JPRB, 0.320000E+00_JPRB, 0.308572E+00_JPRB &
+  &, 0.297382E+00_JPRB, 0.286463E+00_JPRB, 0.275776E+00_JPRB &
+  &, 0.265315E+00_JPRB, 0.255110E+00_JPRB, 0.245189E+00_JPRB, 0.235470E+00_JPRB &
+  &, 0.226054E+00_JPRB, 0.216855E+00_JPRB, 0.207897E+00_JPRB &
+  &, 0.199205E+00_JPRB, 0.190764E+00_JPRB, 0.182598E+00_JPRB, 0.174647E+00_JPRB &
+  &, 0.166977E+00_JPRB, 0.159523E+00_JPRB, 0.152305E+00_JPRB &
+  &, 0.145345E+00_JPRB, 0.138618E+00_JPRB, 0.132097E+00_JPRB, 0.125846E+00_JPRB &
+  &, 0.119791E+00_JPRB, 0.113997E+00_JPRB, 0.108382E+00_JPRB &
+  &, 0.103013E+00_JPRB, 0.978051E-01_JPRB, 0.928228E-01_JPRB, 0.880816E-01_JPRB &
+  &, 0.834917E-01_JPRB, 0.791184E-01_JPRB, 0.749214E-01_JPRB &
+  &, 0.708576E-01_JPRB, 0.670486E-01_JPRB, 0.633394E-01_JPRB, 0.598526E-01_JPRB &
+  &, 0.564847E-01_JPRB, 0.533030E-01_JPRB, 0.502583E-01_JPRB &
+  &, 0.473594E-01_JPRB, 0.446148E-01_JPRB, 0.419712E-01_JPRB, 0.394981E-01_JPRB &
+  &, 0.370766E-01_JPRB, 0.348408E-01_JPRB, 0.327341E-01_JPRB/)
+XCW( 654, :) = (/ &
+  &  0.103663E+01_JPRB, 0.104486E+01_JPRB, 0.105271E+01_JPRB, 0.106016E+01_JPRB &
+  &, 0.106722E+01_JPRB, 0.107387E+01_JPRB, 0.108012E+01_JPRB &
+  &, 0.108595E+01_JPRB, 0.109136E+01_JPRB, 0.109635E+01_JPRB, 0.110091E+01_JPRB &
+  &, 0.110503E+01_JPRB, 0.110872E+01_JPRB, 0.111197E+01_JPRB &
+  &, 0.111477E+01_JPRB, 0.111712E+01_JPRB, 0.111902E+01_JPRB, 0.112046E+01_JPRB &
+  &, 0.112145E+01_JPRB, 0.112197E+01_JPRB, 0.112203E+01_JPRB &
+  &, 0.112162E+01_JPRB, 0.112076E+01_JPRB, 0.111942E+01_JPRB, 0.111762E+01_JPRB &
+  &, 0.111535E+01_JPRB, 0.111262E+01_JPRB, 0.110943E+01_JPRB &
+  &, 0.110577E+01_JPRB, 0.110166E+01_JPRB, 0.109708E+01_JPRB, 0.109206E+01_JPRB &
+  &, 0.108659E+01_JPRB, 0.108067E+01_JPRB, 0.107432E+01_JPRB &
+  &, 0.106753E+01_JPRB, 0.106031E+01_JPRB, 0.105267E+01_JPRB, 0.104464E+01_JPRB &
+  &, 0.103619E+01_JPRB, 0.102734E+01_JPRB, 0.101811E+01_JPRB &
+  &, 0.100850E+01_JPRB, 0.998528E+00_JPRB, 0.988190E+00_JPRB, 0.977519E+00_JPRB &
+  &, 0.966516E+00_JPRB, 0.955182E+00_JPRB, 0.943545E+00_JPRB &
+  &, 0.931611E+00_JPRB, 0.919389E+00_JPRB, 0.906900E+00_JPRB, 0.894127E+00_JPRB &
+  &, 0.881154E+00_JPRB, 0.867936E+00_JPRB, 0.854504E+00_JPRB &
+  &, 0.840873E+00_JPRB, 0.827042E+00_JPRB, 0.813046E+00_JPRB, 0.798902E+00_JPRB &
+  &, 0.784613E+00_JPRB, 0.770197E+00_JPRB, 0.755656E+00_JPRB &
+  &, 0.741027E+00_JPRB, 0.726313E+00_JPRB, 0.711551E+00_JPRB, 0.696706E+00_JPRB &
+  &, 0.681835E+00_JPRB, 0.666937E+00_JPRB, 0.652034E+00_JPRB &
+  &, 0.637145E+00_JPRB, 0.622268E+00_JPRB, 0.607400E+00_JPRB, 0.592602E+00_JPRB &
+  &, 0.577848E+00_JPRB, 0.563179E+00_JPRB, 0.548563E+00_JPRB &
+  &, 0.534065E+00_JPRB, 0.519676E+00_JPRB, 0.505386E+00_JPRB, 0.491234E+00_JPRB &
+  &, 0.477233E+00_JPRB, 0.463343E+00_JPRB, 0.449655E+00_JPRB &
+  &, 0.436098E+00_JPRB, 0.422738E+00_JPRB, 0.409553E+00_JPRB, 0.396552E+00_JPRB &
+  &, 0.383771E+00_JPRB, 0.371185E+00_JPRB, 0.358830E+00_JPRB &
+  &, 0.346678E+00_JPRB, 0.334730E+00_JPRB, 0.323018E+00_JPRB, 0.311543E+00_JPRB &
+  &, 0.300338E+00_JPRB, 0.289332E+00_JPRB, 0.278589E+00_JPRB &
+  &, 0.268070E+00_JPRB, 0.257802E+00_JPRB, 0.247816E+00_JPRB, 0.238066E+00_JPRB &
+  &, 0.228541E+00_JPRB, 0.219305E+00_JPRB, 0.210308E+00_JPRB &
+  &, 0.201535E+00_JPRB, 0.193050E+00_JPRB, 0.184797E+00_JPRB, 0.176797E+00_JPRB &
+  &, 0.169075E+00_JPRB, 0.161567E+00_JPRB, 0.154293E+00_JPRB &
+  &, 0.147275E+00_JPRB, 0.140486E+00_JPRB, 0.133901E+00_JPRB, 0.127584E+00_JPRB &
+  &, 0.121508E+00_JPRB, 0.115642E+00_JPRB, 0.109954E+00_JPRB &
+  &, 0.104509E+00_JPRB, 0.992723E-01_JPRB, 0.942601E-01_JPRB, 0.894357E-01_JPRB &
+  &, 0.848126E-01_JPRB, 0.803511E-01_JPRB, 0.761174E-01_JPRB &
+  &, 0.720154E-01_JPRB, 0.681669E-01_JPRB, 0.644166E-01_JPRB, 0.608873E-01_JPRB &
+  &, 0.574755E-01_JPRB, 0.542483E-01_JPRB, 0.511567E-01_JPRB &
+  &, 0.482092E-01_JPRB, 0.454146E-01_JPRB, 0.427817E-01_JPRB, 0.402562E-01_JPRB &
+  &, 0.378449E-01_JPRB, 0.355542E-01_JPRB, 0.333913E-01_JPRB/)
+XCW( 655, :) = (/ &
+  &  0.103691E+01_JPRB, 0.104521E+01_JPRB, 0.105313E+01_JPRB, 0.106065E+01_JPRB &
+  &, 0.106778E+01_JPRB, 0.107451E+01_JPRB, 0.108083E+01_JPRB &
+  &, 0.108674E+01_JPRB, 0.109223E+01_JPRB, 0.109729E+01_JPRB, 0.110193E+01_JPRB &
+  &, 0.110613E+01_JPRB, 0.110989E+01_JPRB, 0.111322E+01_JPRB &
+  &, 0.111609E+01_JPRB, 0.111852E+01_JPRB, 0.112049E+01_JPRB, 0.112201E+01_JPRB &
+  &, 0.112307E+01_JPRB, 0.112367E+01_JPRB, 0.112380E+01_JPRB &
+  &, 0.112348E+01_JPRB, 0.112268E+01_JPRB, 0.112142E+01_JPRB, 0.111969E+01_JPRB &
+  &, 0.111750E+01_JPRB, 0.111484E+01_JPRB, 0.111172E+01_JPRB &
+  &, 0.110813E+01_JPRB, 0.110409E+01_JPRB, 0.109959E+01_JPRB, 0.109463E+01_JPRB &
+  &, 0.108922E+01_JPRB, 0.108337E+01_JPRB, 0.107708E+01_JPRB &
+  &, 0.107036E+01_JPRB, 0.106320E+01_JPRB, 0.105564E+01_JPRB, 0.104764E+01_JPRB &
+  &, 0.103926E+01_JPRB, 0.103047E+01_JPRB, 0.102129E+01_JPRB &
+  &, 0.101174E+01_JPRB, 0.100182E+01_JPRB, 0.991541E+00_JPRB, 0.980906E+00_JPRB &
+  &, 0.969950E+00_JPRB, 0.958662E+00_JPRB, 0.947059E+00_JPRB &
+  &, 0.935172E+00_JPRB, 0.922982E+00_JPRB, 0.910538E+00_JPRB, 0.897825E+00_JPRB &
+  &, 0.884853E+00_JPRB, 0.871664E+00_JPRB, 0.858259E+00_JPRB &
+  &, 0.844654E+00_JPRB, 0.830848E+00_JPRB, 0.816875E+00_JPRB, 0.802752E+00_JPRB &
+  &, 0.788466E+00_JPRB, 0.774068E+00_JPRB, 0.759543E+00_JPRB &
+  &, 0.744929E+00_JPRB, 0.730208E+00_JPRB, 0.715438E+00_JPRB, 0.700600E+00_JPRB &
+  &, 0.685733E+00_JPRB, 0.670839E+00_JPRB, 0.655917E+00_JPRB &
+  &, 0.641004E+00_JPRB, 0.626122E+00_JPRB, 0.611247E+00_JPRB, 0.596439E+00_JPRB &
+  &, 0.581649E+00_JPRB, 0.566964E+00_JPRB, 0.552330E+00_JPRB &
+  &, 0.537811E+00_JPRB, 0.523373E+00_JPRB, 0.509055E+00_JPRB, 0.494872E+00_JPRB &
+  &, 0.480836E+00_JPRB, 0.466936E+00_JPRB, 0.453180E+00_JPRB &
+  &, 0.439607E+00_JPRB, 0.426199E+00_JPRB, 0.412964E+00_JPRB, 0.399939E+00_JPRB &
+  &, 0.387100E+00_JPRB, 0.374454E+00_JPRB, 0.362034E+00_JPRB &
+  &, 0.349844E+00_JPRB, 0.337856E+00_JPRB, 0.326102E+00_JPRB, 0.314549E+00_JPRB &
+  &, 0.303260E+00_JPRB, 0.292236E+00_JPRB, 0.281403E+00_JPRB &
+  &, 0.270860E+00_JPRB, 0.260531E+00_JPRB, 0.250480E+00_JPRB, 0.240662E+00_JPRB &
+  &, 0.231104E+00_JPRB, 0.221794E+00_JPRB, 0.212720E+00_JPRB &
+  &, 0.203906E+00_JPRB, 0.195337E+00_JPRB, 0.187037E+00_JPRB, 0.178989E+00_JPRB &
+  &, 0.171173E+00_JPRB, 0.163612E+00_JPRB, 0.156282E+00_JPRB &
+  &, 0.149204E+00_JPRB, 0.142354E+00_JPRB, 0.135752E+00_JPRB, 0.129369E+00_JPRB &
+  &, 0.123177E+00_JPRB, 0.117288E+00_JPRB, 0.111575E+00_JPRB &
+  &, 0.106054E+00_JPRB, 0.100790E+00_JPRB, 0.956975E-01_JPRB, 0.907899E-01_JPRB &
+  &, 0.861335E-01_JPRB, 0.816374E-01_JPRB, 0.773677E-01_JPRB &
+  &, 0.732283E-01_JPRB, 0.692851E-01_JPRB, 0.654938E-01_JPRB, 0.619221E-01_JPRB &
+  &, 0.584663E-01_JPRB, 0.551936E-01_JPRB, 0.520551E-01_JPRB &
+  &, 0.491198E-01_JPRB, 0.462760E-01_JPRB, 0.435299E-01_JPRB, 0.410144E-01_JPRB &
+  &, 0.385491E-01_JPRB, 0.362677E-01_JPRB, 0.340484E-01_JPRB/)
+XCW( 656, :) = (/ &
+  &  0.103719E+01_JPRB, 0.104556E+01_JPRB, 0.105355E+01_JPRB, 0.106115E+01_JPRB &
+  &, 0.106835E+01_JPRB, 0.107515E+01_JPRB, 0.108155E+01_JPRB &
+  &, 0.108753E+01_JPRB, 0.109309E+01_JPRB, 0.109823E+01_JPRB, 0.110294E+01_JPRB &
+  &, 0.110722E+01_JPRB, 0.111106E+01_JPRB, 0.111446E+01_JPRB &
+  &, 0.111742E+01_JPRB, 0.111992E+01_JPRB, 0.112197E+01_JPRB, 0.112356E+01_JPRB &
+  &, 0.112470E+01_JPRB, 0.112537E+01_JPRB, 0.112558E+01_JPRB &
+  &, 0.112533E+01_JPRB, 0.112461E+01_JPRB, 0.112343E+01_JPRB, 0.112177E+01_JPRB &
+  &, 0.111965E+01_JPRB, 0.111707E+01_JPRB, 0.111401E+01_JPRB &
+  &, 0.111050E+01_JPRB, 0.110653E+01_JPRB, 0.110209E+01_JPRB, 0.109721E+01_JPRB &
+  &, 0.109187E+01_JPRB, 0.108609E+01_JPRB, 0.107986E+01_JPRB &
+  &, 0.107319E+01_JPRB, 0.106611E+01_JPRB, 0.105860E+01_JPRB, 0.105067E+01_JPRB &
+  &, 0.104234E+01_JPRB, 0.103361E+01_JPRB, 0.102449E+01_JPRB &
+  &, 0.101499E+01_JPRB, 0.100511E+01_JPRB, 0.994892E+00_JPRB, 0.984304E+00_JPRB &
+  &, 0.973395E+00_JPRB, 0.962155E+00_JPRB, 0.950599E+00_JPRB &
+  &, 0.938746E+00_JPRB, 0.926603E+00_JPRB, 0.914177E+00_JPRB, 0.901509E+00_JPRB &
+  &, 0.888582E+00_JPRB, 0.875422E+00_JPRB, 0.862030E+00_JPRB &
+  &, 0.848451E+00_JPRB, 0.834670E+00_JPRB, 0.820720E+00_JPRB, 0.806603E+00_JPRB &
+  &, 0.792337E+00_JPRB, 0.777957E+00_JPRB, 0.763413E+00_JPRB &
+  &, 0.748830E+00_JPRB, 0.734122E+00_JPRB, 0.719362E+00_JPRB, 0.704532E+00_JPRB &
+  &, 0.689652E+00_JPRB, 0.674742E+00_JPRB, 0.659819E+00_JPRB &
+  &, 0.644906E+00_JPRB, 0.629998E+00_JPRB, 0.615116E+00_JPRB, 0.600276E+00_JPRB &
+  &, 0.585497E+00_JPRB, 0.570773E+00_JPRB, 0.556121E+00_JPRB &
+  &, 0.541556E+00_JPRB, 0.527119E+00_JPRB, 0.512774E+00_JPRB, 0.498560E+00_JPRB &
+  &, 0.484466E+00_JPRB, 0.470528E+00_JPRB, 0.456732E+00_JPRB &
+  &, 0.443116E+00_JPRB, 0.429661E+00_JPRB, 0.416404E+00_JPRB, 0.403325E+00_JPRB &
+  &, 0.390430E+00_JPRB, 0.377753E+00_JPRB, 0.365268E+00_JPRB &
+  &, 0.353011E+00_JPRB, 0.340983E+00_JPRB, 0.329186E+00_JPRB, 0.317587E+00_JPRB &
+  &, 0.306250E+00_JPRB, 0.295140E+00_JPRB, 0.284287E+00_JPRB &
+  &, 0.273651E+00_JPRB, 0.263297E+00_JPRB, 0.253145E+00_JPRB, 0.243296E+00_JPRB &
+  &, 0.233667E+00_JPRB, 0.224283E+00_JPRB, 0.215171E+00_JPRB &
+  &, 0.206316E+00_JPRB, 0.197664E+00_JPRB, 0.189319E+00_JPRB, 0.181181E+00_JPRB &
+  &, 0.173314E+00_JPRB, 0.165699E+00_JPRB, 0.158314E+00_JPRB &
+  &, 0.151178E+00_JPRB, 0.144268E+00_JPRB, 0.137602E+00_JPRB, 0.131154E+00_JPRB &
+  &, 0.124941E+00_JPRB, 0.118934E+00_JPRB, 0.113147E+00_JPRB &
+  &, 0.107600E+00_JPRB, 0.102257E+00_JPRB, 0.971349E-01_JPRB, 0.921961E-01_JPRB &
+  &, 0.874545E-01_JPRB, 0.829238E-01_JPRB, 0.785637E-01_JPRB &
+  &, 0.744413E-01_JPRB, 0.704593E-01_JPRB, 0.666277E-01_JPRB, 0.629568E-01_JPRB &
+  &, 0.595153E-01_JPRB, 0.561980E-01_JPRB, 0.530133E-01_JPRB &
+  &, 0.499697E-01_JPRB, 0.471373E-01_JPRB, 0.443404E-01_JPRB, 0.417726E-01_JPRB &
+  &, 0.393173E-01_JPRB, 0.369163E-01_JPRB, 0.347055E-01_JPRB/)
+XCW( 657, :) = (/ &
+  &  0.103747E+01_JPRB, 0.104591E+01_JPRB, 0.105397E+01_JPRB, 0.106165E+01_JPRB &
+  &, 0.106892E+01_JPRB, 0.107580E+01_JPRB, 0.108227E+01_JPRB &
+  &, 0.108832E+01_JPRB, 0.109396E+01_JPRB, 0.109918E+01_JPRB, 0.110396E+01_JPRB &
+  &, 0.110832E+01_JPRB, 0.111224E+01_JPRB, 0.111571E+01_JPRB &
+  &, 0.111874E+01_JPRB, 0.112132E+01_JPRB, 0.112345E+01_JPRB, 0.112512E+01_JPRB &
+  &, 0.112633E+01_JPRB, 0.112708E+01_JPRB, 0.112737E+01_JPRB &
+  &, 0.112719E+01_JPRB, 0.112655E+01_JPRB, 0.112544E+01_JPRB, 0.112386E+01_JPRB &
+  &, 0.112181E+01_JPRB, 0.111930E+01_JPRB, 0.111629E+01_JPRB &
+  &, 0.111288E+01_JPRB, 0.110897E+01_JPRB, 0.110461E+01_JPRB, 0.109979E+01_JPRB &
+  &, 0.109452E+01_JPRB, 0.108880E+01_JPRB, 0.108265E+01_JPRB &
+  &, 0.107605E+01_JPRB, 0.106902E+01_JPRB, 0.106157E+01_JPRB, 0.105371E+01_JPRB &
+  &, 0.104543E+01_JPRB, 0.103676E+01_JPRB, 0.102770E+01_JPRB &
+  &, 0.101825E+01_JPRB, 0.100843E+01_JPRB, 0.998254E+00_JPRB, 0.987726E+00_JPRB &
+  &, 0.976853E+00_JPRB, 0.965661E+00_JPRB, 0.954153E+00_JPRB &
+  &, 0.942333E+00_JPRB, 0.930223E+00_JPRB, 0.917844E+00_JPRB, 0.905207E+00_JPRB &
+  &, 0.892310E+00_JPRB, 0.879180E+00_JPRB, 0.865831E+00_JPRB &
+  &, 0.852263E+00_JPRB, 0.838507E+00_JPRB, 0.824581E+00_JPRB, 0.810487E+00_JPRB &
+  &, 0.796241E+00_JPRB, 0.781863E+00_JPRB, 0.767353E+00_JPRB &
+  &, 0.752750E+00_JPRB, 0.738054E+00_JPRB, 0.723286E+00_JPRB, 0.708465E+00_JPRB &
+  &, 0.693591E+00_JPRB, 0.678684E+00_JPRB, 0.663743E+00_JPRB &
+  &, 0.648828E+00_JPRB, 0.633895E+00_JPRB, 0.619006E+00_JPRB, 0.604157E+00_JPRB &
+  &, 0.589344E+00_JPRB, 0.574606E+00_JPRB, 0.559936E+00_JPRB &
+  &, 0.545350E+00_JPRB, 0.530864E+00_JPRB, 0.516493E+00_JPRB, 0.502249E+00_JPRB &
+  &, 0.488122E+00_JPRB, 0.474148E+00_JPRB, 0.460339E+00_JPRB &
+  &, 0.446680E+00_JPRB, 0.433179E+00_JPRB, 0.419873E+00_JPRB, 0.406741E+00_JPRB &
+  &, 0.393819E+00_JPRB, 0.381082E+00_JPRB, 0.368565E+00_JPRB &
+  &, 0.356241E+00_JPRB, 0.344142E+00_JPRB, 0.332303E+00_JPRB, 0.320659E+00_JPRB &
+  &, 0.309240E+00_JPRB, 0.298078E+00_JPRB, 0.287171E+00_JPRB &
+  &, 0.276477E+00_JPRB, 0.266062E+00_JPRB, 0.255883E+00_JPRB, 0.245930E+00_JPRB &
+  &, 0.236268E+00_JPRB, 0.226811E+00_JPRB, 0.217621E+00_JPRB &
+  &, 0.208687E+00_JPRB, 0.200032E+00_JPRB, 0.191601E+00_JPRB, 0.183415E+00_JPRB &
+  &, 0.175498E+00_JPRB, 0.167787E+00_JPRB, 0.160346E+00_JPRB &
+  &, 0.153153E+00_JPRB, 0.146182E+00_JPRB, 0.139453E+00_JPRB, 0.132939E+00_JPRB &
+  &, 0.126658E+00_JPRB, 0.120628E+00_JPRB, 0.114818E+00_JPRB &
+  &, 0.109195E+00_JPRB, 0.103826E+00_JPRB, 0.986236E-01_JPRB, 0.936544E-01_JPRB &
+  &, 0.888282E-01_JPRB, 0.842637E-01_JPRB, 0.798684E-01_JPRB &
+  &, 0.756542E-01_JPRB, 0.715775E-01_JPRB, 0.677616E-01_JPRB, 0.640491E-01_JPRB &
+  &, 0.605061E-01_JPRB, 0.571434E-01_JPRB, 0.539716E-01_JPRB &
+  &, 0.508802E-01_JPRB, 0.479986E-01_JPRB, 0.452133E-01_JPRB, 0.425308E-01_JPRB &
+  &, 0.400215E-01_JPRB, 0.376947E-01_JPRB, 0.354283E-01_JPRB/)
+XCW( 658, :) = (/ &
+  &  0.103775E+01_JPRB, 0.104626E+01_JPRB, 0.105440E+01_JPRB, 0.106214E+01_JPRB &
+  &, 0.106949E+01_JPRB, 0.107644E+01_JPRB, 0.108299E+01_JPRB &
+  &, 0.108912E+01_JPRB, 0.109483E+01_JPRB, 0.110012E+01_JPRB, 0.110499E+01_JPRB &
+  &, 0.110942E+01_JPRB, 0.111341E+01_JPRB, 0.111696E+01_JPRB &
+  &, 0.112007E+01_JPRB, 0.112273E+01_JPRB, 0.112493E+01_JPRB, 0.112668E+01_JPRB &
+  &, 0.112797E+01_JPRB, 0.112879E+01_JPRB, 0.112915E+01_JPRB &
+  &, 0.112905E+01_JPRB, 0.112848E+01_JPRB, 0.112745E+01_JPRB, 0.112594E+01_JPRB &
+  &, 0.112397E+01_JPRB, 0.112153E+01_JPRB, 0.111862E+01_JPRB &
+  &, 0.111525E+01_JPRB, 0.111142E+01_JPRB, 0.110713E+01_JPRB, 0.110238E+01_JPRB &
+  &, 0.109718E+01_JPRB, 0.109153E+01_JPRB, 0.108543E+01_JPRB &
+  &, 0.107890E+01_JPRB, 0.107194E+01_JPRB, 0.106456E+01_JPRB, 0.105675E+01_JPRB &
+  &, 0.104853E+01_JPRB, 0.103992E+01_JPRB, 0.103091E+01_JPRB &
+  &, 0.102151E+01_JPRB, 0.101175E+01_JPRB, 0.100163E+01_JPRB, 0.991149E+00_JPRB &
+  &, 0.980323E+00_JPRB, 0.969179E+00_JPRB, 0.957706E+00_JPRB &
+  &, 0.945933E+00_JPRB, 0.933870E+00_JPRB, 0.921524E+00_JPRB, 0.908919E+00_JPRB &
+  &, 0.896053E+00_JPRB, 0.882952E+00_JPRB, 0.869632E+00_JPRB &
+  &, 0.856091E+00_JPRB, 0.842361E+00_JPRB, 0.828459E+00_JPRB, 0.814370E+00_JPRB &
+  &, 0.800145E+00_JPRB, 0.785786E+00_JPRB, 0.771294E+00_JPRB &
+  &, 0.756688E+00_JPRB, 0.742005E+00_JPRB, 0.727248E+00_JPRB, 0.712416E+00_JPRB &
+  &, 0.697529E+00_JPRB, 0.682627E+00_JPRB, 0.667687E+00_JPRB &
+  &, 0.652750E+00_JPRB, 0.637836E+00_JPRB, 0.622919E+00_JPRB, 0.608039E+00_JPRB &
+  &, 0.593214E+00_JPRB, 0.578461E+00_JPRB, 0.563774E+00_JPRB &
+  &, 0.549169E+00_JPRB, 0.534660E+00_JPRB, 0.520237E+00_JPRB, 0.505964E+00_JPRB &
+  &, 0.491804E+00_JPRB, 0.477794E+00_JPRB, 0.463946E+00_JPRB &
+  &, 0.450245E+00_JPRB, 0.436698E+00_JPRB, 0.423342E+00_JPRB, 0.410187E+00_JPRB &
+  &, 0.397208E+00_JPRB, 0.384411E+00_JPRB, 0.371862E+00_JPRB &
+  &, 0.359502E+00_JPRB, 0.347333E+00_JPRB, 0.335420E+00_JPRB, 0.323731E+00_JPRB &
+  &, 0.312298E+00_JPRB, 0.301051E+00_JPRB, 0.290090E+00_JPRB &
+  &, 0.279339E+00_JPRB, 0.268864E+00_JPRB, 0.258621E+00_JPRB, 0.248601E+00_JPRB &
+  &, 0.238870E+00_JPRB, 0.229378E+00_JPRB, 0.220151E+00_JPRB &
+  &, 0.211138E+00_JPRB, 0.202400E+00_JPRB, 0.193924E+00_JPRB, 0.185649E+00_JPRB &
+  &, 0.177682E+00_JPRB, 0.169919E+00_JPRB, 0.162423E+00_JPRB &
+  &, 0.155172E+00_JPRB, 0.148141E+00_JPRB, 0.141350E+00_JPRB, 0.134771E+00_JPRB &
+  &, 0.128470E+00_JPRB, 0.122322E+00_JPRB, 0.116439E+00_JPRB &
+  &, 0.110791E+00_JPRB, 0.105343E+00_JPRB, 0.100112E+00_JPRB, 0.950606E-01_JPRB &
+  &, 0.902548E-01_JPRB, 0.856036E-01_JPRB, 0.811187E-01_JPRB &
+  &, 0.768672E-01_JPRB, 0.728076E-01_JPRB, 0.688956E-01_JPRB, 0.651413E-01_JPRB &
+  &, 0.615552E-01_JPRB, 0.581478E-01_JPRB, 0.549298E-01_JPRB &
+  &, 0.517908E-01_JPRB, 0.488600E-01_JPRB, 0.460239E-01_JPRB, 0.433521E-01_JPRB &
+  &, 0.407897E-01_JPRB, 0.384082E-01_JPRB, 0.360854E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART94',1,ZHOOK_HANDLE)
+END SUBROUTINE PART94
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART95
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART95',0,ZHOOK_HANDLE)
+
+XCW( 659, :) = (/ &
+  &  0.103803E+01_JPRB, 0.104661E+01_JPRB, 0.105482E+01_JPRB, 0.106264E+01_JPRB &
+  &, 0.107006E+01_JPRB, 0.107709E+01_JPRB, 0.108371E+01_JPRB &
+  &, 0.108991E+01_JPRB, 0.109570E+01_JPRB, 0.110107E+01_JPRB, 0.110601E+01_JPRB &
+  &, 0.111052E+01_JPRB, 0.111459E+01_JPRB, 0.111822E+01_JPRB &
+  &, 0.112140E+01_JPRB, 0.112413E+01_JPRB, 0.112642E+01_JPRB, 0.112824E+01_JPRB &
+  &, 0.112960E+01_JPRB, 0.113051E+01_JPRB, 0.113095E+01_JPRB &
+  &, 0.113092E+01_JPRB, 0.113043E+01_JPRB, 0.112947E+01_JPRB, 0.112804E+01_JPRB &
+  &, 0.112614E+01_JPRB, 0.112377E+01_JPRB, 0.112094E+01_JPRB &
+  &, 0.111764E+01_JPRB, 0.111388E+01_JPRB, 0.110966E+01_JPRB, 0.110498E+01_JPRB &
+  &, 0.109984E+01_JPRB, 0.109426E+01_JPRB, 0.108823E+01_JPRB &
+  &, 0.108177E+01_JPRB, 0.107487E+01_JPRB, 0.106755E+01_JPRB, 0.105980E+01_JPRB &
+  &, 0.105165E+01_JPRB, 0.104309E+01_JPRB, 0.103414E+01_JPRB &
+  &, 0.102480E+01_JPRB, 0.101509E+01_JPRB, 0.100501E+01_JPRB, 0.994583E+00_JPRB &
+  &, 0.983806E+00_JPRB, 0.972710E+00_JPRB, 0.961284E+00_JPRB &
+  &, 0.949547E+00_JPRB, 0.937517E+00_JPRB, 0.925218E+00_JPRB, 0.912645E+00_JPRB &
+  &, 0.899810E+00_JPRB, 0.886739E+00_JPRB, 0.873447E+00_JPRB &
+  &, 0.859934E+00_JPRB, 0.846230E+00_JPRB, 0.832353E+00_JPRB, 0.818287E+00_JPRB &
+  &, 0.804067E+00_JPRB, 0.789727E+00_JPRB, 0.775252E+00_JPRB &
+  &, 0.760662E+00_JPRB, 0.745975E+00_JPRB, 0.731210E+00_JPRB, 0.716387E+00_JPRB &
+  &, 0.701507E+00_JPRB, 0.686589E+00_JPRB, 0.671652E+00_JPRB &
+  &, 0.656715E+00_JPRB, 0.641776E+00_JPRB, 0.626854E+00_JPRB, 0.611966E+00_JPRB &
+  &, 0.597130E+00_JPRB, 0.582340E+00_JPRB, 0.567613E+00_JPRB &
+  &, 0.552987E+00_JPRB, 0.538456E+00_JPRB, 0.524032E+00_JPRB, 0.509705E+00_JPRB &
+  &, 0.495512E+00_JPRB, 0.481467E+00_JPRB, 0.467581E+00_JPRB &
+  &, 0.453837E+00_JPRB, 0.440273E+00_JPRB, 0.426869E+00_JPRB, 0.413632E+00_JPRB &
+  &, 0.400627E+00_JPRB, 0.387802E+00_JPRB, 0.375159E+00_JPRB &
+  &, 0.362764E+00_JPRB, 0.350557E+00_JPRB, 0.338603E+00_JPRB, 0.326870E+00_JPRB &
+  &, 0.315356E+00_JPRB, 0.304059E+00_JPRB, 0.293044E+00_JPRB &
+  &, 0.282237E+00_JPRB, 0.271665E+00_JPRB, 0.261359E+00_JPRB, 0.251310E+00_JPRB &
+  &, 0.241509E+00_JPRB, 0.231944E+00_JPRB, 0.222642E+00_JPRB &
+  &, 0.213588E+00_JPRB, 0.204809E+00_JPRB, 0.196247E+00_JPRB, 0.187925E+00_JPRB &
+  &, 0.179866E+00_JPRB, 0.172094E+00_JPRB, 0.164499E+00_JPRB &
+  &, 0.157191E+00_JPRB, 0.150100E+00_JPRB, 0.143247E+00_JPRB, 0.136650E+00_JPRB &
+  &, 0.130234E+00_JPRB, 0.124064E+00_JPRB, 0.118158E+00_JPRB &
+  &, 0.112436E+00_JPRB, 0.106912E+00_JPRB, 0.101601E+00_JPRB, 0.965189E-01_JPRB &
+  &, 0.916285E-01_JPRB, 0.869435E-01_JPRB, 0.824234E-01_JPRB &
+  &, 0.781353E-01_JPRB, 0.739817E-01_JPRB, 0.700295E-01_JPRB, 0.662335E-01_JPRB &
+  &, 0.626625E-01_JPRB, 0.592113E-01_JPRB, 0.558881E-01_JPRB &
+  &, 0.527621E-01_JPRB, 0.497828E-01_JPRB, 0.468968E-01_JPRB, 0.441735E-01_JPRB &
+  &, 0.416219E-01_JPRB, 0.391216E-01_JPRB, 0.368082E-01_JPRB/)
+XCW( 660, :) = (/ &
+  &  0.103831E+01_JPRB, 0.104697E+01_JPRB, 0.105525E+01_JPRB, 0.106314E+01_JPRB &
+  &, 0.107063E+01_JPRB, 0.107773E+01_JPRB, 0.108443E+01_JPRB &
+  &, 0.109071E+01_JPRB, 0.109658E+01_JPRB, 0.110202E+01_JPRB, 0.110703E+01_JPRB &
+  &, 0.111162E+01_JPRB, 0.111577E+01_JPRB, 0.111947E+01_JPRB &
+  &, 0.112273E+01_JPRB, 0.112554E+01_JPRB, 0.112790E+01_JPRB, 0.112980E+01_JPRB &
+  &, 0.113125E+01_JPRB, 0.113223E+01_JPRB, 0.113274E+01_JPRB &
+  &, 0.113279E+01_JPRB, 0.113237E+01_JPRB, 0.113149E+01_JPRB, 0.113013E+01_JPRB &
+  &, 0.112831E+01_JPRB, 0.112602E+01_JPRB, 0.112326E+01_JPRB &
+  &, 0.112003E+01_JPRB, 0.111634E+01_JPRB, 0.111219E+01_JPRB, 0.110758E+01_JPRB &
+  &, 0.110251E+01_JPRB, 0.109700E+01_JPRB, 0.109104E+01_JPRB &
+  &, 0.108463E+01_JPRB, 0.107780E+01_JPRB, 0.107054E+01_JPRB, 0.106286E+01_JPRB &
+  &, 0.105477E+01_JPRB, 0.104626E+01_JPRB, 0.103737E+01_JPRB &
+  &, 0.102809E+01_JPRB, 0.101844E+01_JPRB, 0.100841E+01_JPRB, 0.998029E+00_JPRB &
+  &, 0.987300E+00_JPRB, 0.976240E+00_JPRB, 0.964863E+00_JPRB &
+  &, 0.953174E+00_JPRB, 0.941192E+00_JPRB, 0.928926E+00_JPRB, 0.916386E+00_JPRB &
+  &, 0.903596E+00_JPRB, 0.890556E+00_JPRB, 0.877278E+00_JPRB &
+  &, 0.863808E+00_JPRB, 0.850115E+00_JPRB, 0.836247E+00_JPRB, 0.822221E+00_JPRB &
+  &, 0.808022E+00_JPRB, 0.793685E+00_JPRB, 0.779211E+00_JPRB &
+  &, 0.764636E+00_JPRB, 0.749963E+00_JPRB, 0.735210E+00_JPRB, 0.720320E+00_JPRB &
+  &, 0.705505E+00_JPRB, 0.690592E+00_JPRB, 0.675658E+00_JPRB &
+  &, 0.660701E+00_JPRB, 0.645738E+00_JPRB, 0.630811E+00_JPRB, 0.615915E+00_JPRB &
+  &, 0.601046E+00_JPRB, 0.586243E+00_JPRB, 0.571499E+00_JPRB &
+  &, 0.556854E+00_JPRB, 0.542276E+00_JPRB, 0.527827E+00_JPRB, 0.513471E+00_JPRB &
+  &, 0.499247E+00_JPRB, 0.485167E+00_JPRB, 0.471242E+00_JPRB &
+  &, 0.457457E+00_JPRB, 0.443848E+00_JPRB, 0.430396E+00_JPRB, 0.417136E+00_JPRB &
+  &, 0.404076E+00_JPRB, 0.391192E+00_JPRB, 0.378518E+00_JPRB &
+  &, 0.366057E+00_JPRB, 0.353812E+00_JPRB, 0.341785E+00_JPRB, 0.329975E+00_JPRB &
+  &, 0.318414E+00_JPRB, 0.307101E+00_JPRB, 0.295998E+00_JPRB &
+  &, 0.285134E+00_JPRB, 0.274540E+00_JPRB, 0.264171E+00_JPRB, 0.254057E+00_JPRB &
+  &, 0.244187E+00_JPRB, 0.234550E+00_JPRB, 0.225211E+00_JPRB &
+  &, 0.216079E+00_JPRB, 0.207218E+00_JPRB, 0.198612E+00_JPRB, 0.190244E+00_JPRB &
+  &, 0.182136E+00_JPRB, 0.174269E+00_JPRB, 0.166620E+00_JPRB &
+  &, 0.159255E+00_JPRB, 0.152105E+00_JPRB, 0.145190E+00_JPRB, 0.138482E+00_JPRB &
+  &, 0.132046E+00_JPRB, 0.125855E+00_JPRB, 0.119829E+00_JPRB &
+  &, 0.114081E+00_JPRB, 0.108480E+00_JPRB, 0.103141E+00_JPRB, 0.980293E-01_JPRB &
+  &, 0.930551E-01_JPRB, 0.883370E-01_JPRB, 0.837825E-01_JPRB &
+  &, 0.794034E-01_JPRB, 0.752118E-01_JPRB, 0.712201E-01_JPRB, 0.673832E-01_JPRB &
+  &, 0.637116E-01_JPRB, 0.602157E-01_JPRB, 0.569062E-01_JPRB &
+  &, 0.536726E-01_JPRB, 0.506442E-01_JPRB, 0.477697E-01_JPRB, 0.449948E-01_JPRB &
+  &, 0.423902E-01_JPRB, 0.399000E-01_JPRB, 0.375311E-01_JPRB/)
+XCW( 661, :) = (/ &
+  &  0.103859E+01_JPRB, 0.104732E+01_JPRB, 0.105567E+01_JPRB, 0.106363E+01_JPRB &
+  &, 0.107121E+01_JPRB, 0.107838E+01_JPRB, 0.108515E+01_JPRB &
+  &, 0.109151E+01_JPRB, 0.109745E+01_JPRB, 0.110297E+01_JPRB, 0.110806E+01_JPRB &
+  &, 0.111272E+01_JPRB, 0.111695E+01_JPRB, 0.112073E+01_JPRB &
+  &, 0.112407E+01_JPRB, 0.112696E+01_JPRB, 0.112939E+01_JPRB, 0.113137E+01_JPRB &
+  &, 0.113289E+01_JPRB, 0.113395E+01_JPRB, 0.113454E+01_JPRB &
+  &, 0.113467E+01_JPRB, 0.113433E+01_JPRB, 0.113352E+01_JPRB, 0.113224E+01_JPRB &
+  &, 0.113049E+01_JPRB, 0.112827E+01_JPRB, 0.112558E+01_JPRB &
+  &, 0.112242E+01_JPRB, 0.111881E+01_JPRB, 0.111473E+01_JPRB, 0.111019E+01_JPRB &
+  &, 0.110519E+01_JPRB, 0.109975E+01_JPRB, 0.109386E+01_JPRB &
+  &, 0.108752E+01_JPRB, 0.108075E+01_JPRB, 0.107355E+01_JPRB, 0.106593E+01_JPRB &
+  &, 0.105789E+01_JPRB, 0.104946E+01_JPRB, 0.104062E+01_JPRB &
+  &, 0.103139E+01_JPRB, 0.102179E+01_JPRB, 0.101182E+01_JPRB, 0.100149E+01_JPRB &
+  &, 0.990807E+00_JPRB, 0.979796E+00_JPRB, 0.968468E+00_JPRB &
+  &, 0.956813E+00_JPRB, 0.944879E+00_JPRB, 0.932647E+00_JPRB, 0.920140E+00_JPRB &
+  &, 0.907382E+00_JPRB, 0.894373E+00_JPRB, 0.881140E+00_JPRB &
+  &, 0.867683E+00_JPRB, 0.854032E+00_JPRB, 0.840173E+00_JPRB, 0.826154E+00_JPRB &
+  &, 0.811977E+00_JPRB, 0.797660E+00_JPRB, 0.783204E+00_JPRB &
+  &, 0.768647E+00_JPRB, 0.753969E+00_JPRB, 0.739229E+00_JPRB, 0.724407E+00_JPRB &
+  &, 0.709523E+00_JPRB, 0.694596E+00_JPRB, 0.679664E+00_JPRB &
+  &, 0.664686E+00_JPRB, 0.649743E+00_JPRB, 0.634790E+00_JPRB, 0.619864E+00_JPRB &
+  &, 0.604985E+00_JPRB, 0.590169E+00_JPRB, 0.575409E+00_JPRB &
+  &, 0.560722E+00_JPRB, 0.546121E+00_JPRB, 0.531647E+00_JPRB, 0.517263E+00_JPRB &
+  &, 0.503008E+00_JPRB, 0.488893E+00_JPRB, 0.474931E+00_JPRB &
+  &, 0.461105E+00_JPRB, 0.447452E+00_JPRB, 0.433952E+00_JPRB, 0.420670E+00_JPRB &
+  &, 0.407526E+00_JPRB, 0.394613E+00_JPRB, 0.381908E+00_JPRB &
+  &, 0.369382E+00_JPRB, 0.357100E+00_JPRB, 0.345001E+00_JPRB, 0.333147E+00_JPRB &
+  &, 0.321540E+00_JPRB, 0.310144E+00_JPRB, 0.298988E+00_JPRB &
+  &, 0.288068E+00_JPRB, 0.277414E+00_JPRB, 0.266983E+00_JPRB, 0.256803E+00_JPRB &
+  &, 0.246865E+00_JPRB, 0.237194E+00_JPRB, 0.227781E+00_JPRB &
+  &, 0.218610E+00_JPRB, 0.209668E+00_JPRB, 0.200977E+00_JPRB, 0.192562E+00_JPRB &
+  &, 0.184406E+00_JPRB, 0.176444E+00_JPRB, 0.168785E+00_JPRB &
+  &, 0.161319E+00_JPRB, 0.154110E+00_JPRB, 0.147133E+00_JPRB, 0.140408E+00_JPRB &
+  &, 0.133906E+00_JPRB, 0.127598E+00_JPRB, 0.121548E+00_JPRB &
+  &, 0.115726E+00_JPRB, 0.110099E+00_JPRB, 0.104681E+00_JPRB, 0.994876E-01_JPRB &
+  &, 0.945345E-01_JPRB, 0.897305E-01_JPRB, 0.850872E-01_JPRB &
+  &, 0.806715E-01_JPRB, 0.764419E-01_JPRB, 0.724107E-01_JPRB, 0.685329E-01_JPRB &
+  &, 0.648189E-01_JPRB, 0.612792E-01_JPRB, 0.579243E-01_JPRB &
+  &, 0.546439E-01_JPRB, 0.515670E-01_JPRB, 0.486426E-01_JPRB, 0.458793E-01_JPRB &
+  &, 0.432224E-01_JPRB, 0.406783E-01_JPRB, 0.382539E-01_JPRB/)
+XCW( 662, :) = (/ &
+  &  0.103887E+01_JPRB, 0.104767E+01_JPRB, 0.105610E+01_JPRB, 0.106413E+01_JPRB &
+  &, 0.107178E+01_JPRB, 0.107903E+01_JPRB, 0.108587E+01_JPRB &
+  &, 0.109231E+01_JPRB, 0.109832E+01_JPRB, 0.110392E+01_JPRB, 0.110909E+01_JPRB &
+  &, 0.111382E+01_JPRB, 0.111813E+01_JPRB, 0.112199E+01_JPRB &
+  &, 0.112541E+01_JPRB, 0.112837E+01_JPRB, 0.113089E+01_JPRB, 0.113294E+01_JPRB &
+  &, 0.113454E+01_JPRB, 0.113568E+01_JPRB, 0.113634E+01_JPRB &
+  &, 0.113655E+01_JPRB, 0.113628E+01_JPRB, 0.113555E+01_JPRB, 0.113434E+01_JPRB &
+  &, 0.113267E+01_JPRB, 0.113053E+01_JPRB, 0.112791E+01_JPRB &
+  &, 0.112483E+01_JPRB, 0.112127E+01_JPRB, 0.111728E+01_JPRB, 0.111281E+01_JPRB &
+  &, 0.110788E+01_JPRB, 0.110250E+01_JPRB, 0.109668E+01_JPRB &
+  &, 0.109041E+01_JPRB, 0.108371E+01_JPRB, 0.107657E+01_JPRB, 0.106901E+01_JPRB &
+  &, 0.106104E+01_JPRB, 0.105266E+01_JPRB, 0.104388E+01_JPRB &
+  &, 0.103470E+01_JPRB, 0.102516E+01_JPRB, 0.101524E+01_JPRB, 0.100496E+01_JPRB &
+  &, 0.994339E+00_JPRB, 0.983364E+00_JPRB, 0.971982E+00_JPRB &
+  &, 0.960479E+00_JPRB, 0.948567E+00_JPRB, 0.936383E+00_JPRB, 0.923908E+00_JPRB &
+  &, 0.911183E+00_JPRB, 0.898219E+00_JPRB, 0.885001E+00_JPRB &
+  &, 0.871572E+00_JPRB, 0.857949E+00_JPRB, 0.844132E+00_JPRB, 0.830121E+00_JPRB &
+  &, 0.815966E+00_JPRB, 0.801653E+00_JPRB, 0.787216E+00_JPRB &
+  &, 0.772657E+00_JPRB, 0.758013E+00_JPRB, 0.743267E+00_JPRB, 0.728436E+00_JPRB &
+  &, 0.713561E+00_JPRB, 0.698639E+00_JPRB, 0.683691E+00_JPRB &
+  &, 0.668714E+00_JPRB, 0.653748E+00_JPRB, 0.638790E+00_JPRB, 0.623858E+00_JPRB &
+  &, 0.608969E+00_JPRB, 0.594118E+00_JPRB, 0.579343E+00_JPRB &
+  &, 0.564637E+00_JPRB, 0.550016E+00_JPRB, 0.535493E+00_JPRB, 0.521081E+00_JPRB &
+  &, 0.506795E+00_JPRB, 0.492647E+00_JPRB, 0.478648E+00_JPRB &
+  &, 0.464781E+00_JPRB, 0.451084E+00_JPRB, 0.437565E+00_JPRB, 0.424204E+00_JPRB &
+  &, 0.411035E+00_JPRB, 0.398065E+00_JPRB, 0.385298E+00_JPRB &
+  &, 0.372738E+00_JPRB, 0.360388E+00_JPRB, 0.348249E+00_JPRB, 0.336353E+00_JPRB &
+  &, 0.324666E+00_JPRB, 0.313220E+00_JPRB, 0.302012E+00_JPRB &
+  &, 0.291037E+00_JPRB, 0.280325E+00_JPRB, 0.269833E+00_JPRB, 0.259588E+00_JPRB &
+  &, 0.249619E+00_JPRB, 0.239878E+00_JPRB, 0.230390E+00_JPRB &
+  &, 0.221141E+00_JPRB, 0.212158E+00_JPRB, 0.203425E+00_JPRB, 0.194923E+00_JPRB &
+  &, 0.186675E+00_JPRB, 0.178662E+00_JPRB, 0.170950E+00_JPRB &
+  &, 0.163428E+00_JPRB, 0.156160E+00_JPRB, 0.149122E+00_JPRB, 0.142333E+00_JPRB &
+  &, 0.135766E+00_JPRB, 0.129437E+00_JPRB, 0.123317E+00_JPRB &
+  &, 0.117422E+00_JPRB, 0.111769E+00_JPRB, 0.106272E+00_JPRB, 0.101050E+00_JPRB &
+  &, 0.959611E-01_JPRB, 0.911240E-01_JPRB, 0.864462E-01_JPRB &
+  &, 0.819947E-01_JPRB, 0.777279E-01_JPRB, 0.736013E-01_JPRB, 0.696827E-01_JPRB &
+  &, 0.659263E-01_JPRB, 0.623427E-01_JPRB, 0.589425E-01_JPRB &
+  &, 0.556759E-01_JPRB, 0.525514E-01_JPRB, 0.495778E-01_JPRB, 0.467007E-01_JPRB &
+  &, 0.440546E-01_JPRB, 0.414567E-01_JPRB, 0.390424E-01_JPRB/)
+XCW( 663, :) = (/ &
+  &  0.103915E+01_JPRB, 0.104803E+01_JPRB, 0.105652E+01_JPRB, 0.106463E+01_JPRB &
+  &, 0.107236E+01_JPRB, 0.107968E+01_JPRB, 0.108660E+01_JPRB &
+  &, 0.109311E+01_JPRB, 0.109920E+01_JPRB, 0.110487E+01_JPRB, 0.111012E+01_JPRB &
+  &, 0.111494E+01_JPRB, 0.111932E+01_JPRB, 0.112325E+01_JPRB &
+  &, 0.112675E+01_JPRB, 0.112979E+01_JPRB, 0.113238E+01_JPRB, 0.113452E+01_JPRB &
+  &, 0.113619E+01_JPRB, 0.113740E+01_JPRB, 0.113815E+01_JPRB &
+  &, 0.113843E+01_JPRB, 0.113824E+01_JPRB, 0.113759E+01_JPRB, 0.113646E+01_JPRB &
+  &, 0.113486E+01_JPRB, 0.113279E+01_JPRB, 0.113025E+01_JPRB &
+  &, 0.112725E+01_JPRB, 0.112377E+01_JPRB, 0.111983E+01_JPRB, 0.111543E+01_JPRB &
+  &, 0.111058E+01_JPRB, 0.110527E+01_JPRB, 0.109951E+01_JPRB &
+  &, 0.109330E+01_JPRB, 0.108666E+01_JPRB, 0.107959E+01_JPRB, 0.107210E+01_JPRB &
+  &, 0.106419E+01_JPRB, 0.105586E+01_JPRB, 0.104714E+01_JPRB &
+  &, 0.103804E+01_JPRB, 0.102854E+01_JPRB, 0.101867E+01_JPRB, 0.100844E+01_JPRB &
+  &, 0.997870E+00_JPRB, 0.986945E+00_JPRB, 0.975702E+00_JPRB &
+  &, 0.964145E+00_JPRB, 0.952282E+00_JPRB, 0.940132E+00_JPRB, 0.927705E+00_JPRB &
+  &, 0.915013E+00_JPRB, 0.902066E+00_JPRB, 0.888893E+00_JPRB &
+  &, 0.875493E+00_JPRB, 0.861882E+00_JPRB, 0.848091E+00_JPRB, 0.834104E+00_JPRB &
+  &, 0.819973E+00_JPRB, 0.805680E+00_JPRB, 0.791245E+00_JPRB &
+  &, 0.776704E+00_JPRB, 0.762057E+00_JPRB, 0.747305E+00_JPRB, 0.732504E+00_JPRB &
+  &, 0.717618E+00_JPRB, 0.702703E+00_JPRB, 0.687738E+00_JPRB &
+  &, 0.672763E+00_JPRB, 0.657775E+00_JPRB, 0.642813E+00_JPRB, 0.627852E+00_JPRB &
+  &, 0.612954E+00_JPRB, 0.598090E+00_JPRB, 0.583277E+00_JPRB &
+  &, 0.568553E+00_JPRB, 0.553911E+00_JPRB, 0.539363E+00_JPRB, 0.524925E+00_JPRB &
+  &, 0.510609E+00_JPRB, 0.496427E+00_JPRB, 0.482364E+00_JPRB &
+  &, 0.468485E+00_JPRB, 0.454744E+00_JPRB, 0.441179E+00_JPRB, 0.427767E+00_JPRB &
+  &, 0.414574E+00_JPRB, 0.401547E+00_JPRB, 0.388719E+00_JPRB &
+  &, 0.376126E+00_JPRB, 0.363708E+00_JPRB, 0.351530E+00_JPRB, 0.339558E+00_JPRB &
+  &, 0.327826E+00_JPRB, 0.316332E+00_JPRB, 0.305072E+00_JPRB &
+  &, 0.294042E+00_JPRB, 0.283236E+00_JPRB, 0.272682E+00_JPRB, 0.262410E+00_JPRB &
+  &, 0.252335E+00_JPRB, 0.242561E+00_JPRB, 0.232999E+00_JPRB &
+  &, 0.223713E+00_JPRB, 0.214649E+00_JPRB, 0.205831E+00_JPRB, 0.197283E+00_JPRB &
+  &, 0.188988E+00_JPRB, 0.180924E+00_JPRB, 0.173115E+00_JPRB &
+  &, 0.165537E+00_JPRB, 0.158211E+00_JPRB, 0.151112E+00_JPRB, 0.144259E+00_JPRB &
+  &, 0.137625E+00_JPRB, 0.131228E+00_JPRB, 0.125085E+00_JPRB &
+  &, 0.119117E+00_JPRB, 0.113388E+00_JPRB, 0.107864E+00_JPRB, 0.102561E+00_JPRB &
+  &, 0.974405E-01_JPRB, 0.925711E-01_JPRB, 0.878596E-01_JPRB &
+  &, 0.833179E-01_JPRB, 0.790138E-01_JPRB, 0.748486E-01_JPRB, 0.708899E-01_JPRB &
+  &, 0.670919E-01_JPRB, 0.634652E-01_JPRB, 0.599606E-01_JPRB &
+  &, 0.566472E-01_JPRB, 0.534743E-01_JPRB, 0.504507E-01_JPRB, 0.475852E-01_JPRB &
+  &, 0.448869E-01_JPRB, 0.422350E-01_JPRB, 0.397652E-01_JPRB/)
+XCW( 664, :) = (/ &
+  &  0.103943E+01_JPRB, 0.104838E+01_JPRB, 0.105695E+01_JPRB, 0.106513E+01_JPRB &
+  &, 0.107293E+01_JPRB, 0.108033E+01_JPRB, 0.108732E+01_JPRB &
+  &, 0.109391E+01_JPRB, 0.110008E+01_JPRB, 0.110583E+01_JPRB, 0.111115E+01_JPRB &
+  &, 0.111605E+01_JPRB, 0.112050E+01_JPRB, 0.112452E+01_JPRB &
+  &, 0.112809E+01_JPRB, 0.113121E+01_JPRB, 0.113388E+01_JPRB, 0.113609E+01_JPRB &
+  &, 0.113785E+01_JPRB, 0.113914E+01_JPRB, 0.113996E+01_JPRB &
+  &, 0.114032E+01_JPRB, 0.114021E+01_JPRB, 0.113963E+01_JPRB, 0.113858E+01_JPRB &
+  &, 0.113705E+01_JPRB, 0.113500E+01_JPRB, 0.113259E+01_JPRB &
+  &, 0.112966E+01_JPRB, 0.112626E+01_JPRB, 0.112239E+01_JPRB, 0.111807E+01_JPRB &
+  &, 0.111328E+01_JPRB, 0.110804E+01_JPRB, 0.110235E+01_JPRB &
+  &, 0.109621E+01_JPRB, 0.108964E+01_JPRB, 0.108263E+01_JPRB, 0.107520E+01_JPRB &
+  &, 0.106735E+01_JPRB, 0.105909E+01_JPRB, 0.105043E+01_JPRB &
+  &, 0.104137E+01_JPRB, 0.103192E+01_JPRB, 0.102212E+01_JPRB, 0.101194E+01_JPRB &
+  &, 0.100141E+01_JPRB, 0.990538E+00_JPRB, 0.979345E+00_JPRB &
+  &, 0.967824E+00_JPRB, 0.956010E+00_JPRB, 0.943895E+00_JPRB, 0.931502E+00_JPRB &
+  &, 0.918842E+00_JPRB, 0.905942E+00_JPRB, 0.892784E+00_JPRB &
+  &, 0.879414E+00_JPRB, 0.865846E+00_JPRB, 0.852066E+00_JPRB, 0.838104E+00_JPRB &
+  &, 0.823979E+00_JPRB, 0.809708E+00_JPRB, 0.795292E+00_JPRB &
+  &, 0.780769E+00_JPRB, 0.766119E+00_JPRB, 0.751381E+00_JPRB, 0.736573E+00_JPRB &
+  &, 0.721695E+00_JPRB, 0.706767E+00_JPRB, 0.691806E+00_JPRB &
+  &, 0.676833E+00_JPRB, 0.661844E+00_JPRB, 0.646858E+00_JPRB, 0.631891E+00_JPRB &
+  &, 0.616961E+00_JPRB, 0.602086E+00_JPRB, 0.587259E+00_JPRB &
+  &, 0.572518E+00_JPRB, 0.557830E+00_JPRB, 0.543259E+00_JPRB, 0.528794E+00_JPRB &
+  &, 0.514449E+00_JPRB, 0.500234E+00_JPRB, 0.486135E+00_JPRB &
+  &, 0.472216E+00_JPRB, 0.458433E+00_JPRB, 0.444821E+00_JPRB, 0.431359E+00_JPRB &
+  &, 0.418113E+00_JPRB, 0.405059E+00_JPRB, 0.392171E+00_JPRB &
+  &, 0.379515E+00_JPRB, 0.367061E+00_JPRB, 0.354843E+00_JPRB, 0.342797E+00_JPRB &
+  &, 0.331020E+00_JPRB, 0.319478E+00_JPRB, 0.308132E+00_JPRB &
+  &, 0.297047E+00_JPRB, 0.286219E+00_JPRB, 0.275605E+00_JPRB, 0.265232E+00_JPRB &
+  &, 0.255128E+00_JPRB, 0.245283E+00_JPRB, 0.235647E+00_JPRB &
+  &, 0.226284E+00_JPRB, 0.217180E+00_JPRB, 0.208320E+00_JPRB, 0.199686E+00_JPRB &
+  &, 0.191343E+00_JPRB, 0.183230E+00_JPRB, 0.175324E+00_JPRB &
+  &, 0.167691E+00_JPRB, 0.160307E+00_JPRB, 0.153148E+00_JPRB, 0.146232E+00_JPRB &
+  &, 0.139533E+00_JPRB, 0.133115E+00_JPRB, 0.126854E+00_JPRB &
+  &, 0.120862E+00_JPRB, 0.115057E+00_JPRB, 0.109506E+00_JPRB, 0.104123E+00_JPRB &
+  &, 0.989728E-01_JPRB, 0.940182E-01_JPRB, 0.892731E-01_JPRB &
+  &, 0.846963E-01_JPRB, 0.802998E-01_JPRB, 0.760959E-01_JPRB, 0.720970E-01_JPRB &
+  &, 0.682575E-01_JPRB, 0.645287E-01_JPRB, 0.610387E-01_JPRB &
+  &, 0.576791E-01_JPRB, 0.544587E-01_JPRB, 0.513859E-01_JPRB, 0.484698E-01_JPRB &
+  &, 0.457191E-01_JPRB, 0.430782E-01_JPRB, 0.405538E-01_JPRB/)
+XCW( 665, :) = (/ &
+  &  0.103971E+01_JPRB, 0.104873E+01_JPRB, 0.105738E+01_JPRB, 0.106564E+01_JPRB &
+  &, 0.107351E+01_JPRB, 0.108098E+01_JPRB, 0.108805E+01_JPRB &
+  &, 0.109471E+01_JPRB, 0.110096E+01_JPRB, 0.110679E+01_JPRB, 0.111219E+01_JPRB &
+  &, 0.111716E+01_JPRB, 0.112169E+01_JPRB, 0.112579E+01_JPRB &
+  &, 0.112944E+01_JPRB, 0.113264E+01_JPRB, 0.113539E+01_JPRB, 0.113768E+01_JPRB &
+  &, 0.113951E+01_JPRB, 0.114087E+01_JPRB, 0.114178E+01_JPRB &
+  &, 0.114221E+01_JPRB, 0.114218E+01_JPRB, 0.114168E+01_JPRB, 0.114070E+01_JPRB &
+  &, 0.113925E+01_JPRB, 0.113733E+01_JPRB, 0.113494E+01_JPRB &
+  &, 0.113208E+01_JPRB, 0.112875E+01_JPRB, 0.112496E+01_JPRB, 0.112070E+01_JPRB &
+  &, 0.111599E+01_JPRB, 0.111082E+01_JPRB, 0.110520E+01_JPRB &
+  &, 0.109913E+01_JPRB, 0.109262E+01_JPRB, 0.108568E+01_JPRB, 0.107831E+01_JPRB &
+  &, 0.107052E+01_JPRB, 0.106232E+01_JPRB, 0.105371E+01_JPRB &
+  &, 0.104472E+01_JPRB, 0.103533E+01_JPRB, 0.102557E+01_JPRB, 0.101545E+01_JPRB &
+  &, 0.100497E+01_JPRB, 0.994144E+00_JPRB, 0.983000E+00_JPRB &
+  &, 0.971530E+00_JPRB, 0.959751E+00_JPRB, 0.947671E+00_JPRB, 0.935327E+00_JPRB &
+  &, 0.922701E+00_JPRB, 0.909818E+00_JPRB, 0.896706E+00_JPRB &
+  &, 0.883366E+00_JPRB, 0.869811E+00_JPRB, 0.856057E+00_JPRB, 0.842120E+00_JPRB &
+  &, 0.828019E+00_JPRB, 0.813770E+00_JPRB, 0.799357E+00_JPRB &
+  &, 0.784833E+00_JPRB, 0.770218E+00_JPRB, 0.755475E+00_JPRB, 0.740679E+00_JPRB &
+  &, 0.725792E+00_JPRB, 0.710871E+00_JPRB, 0.695916E+00_JPRB &
+  &, 0.680924E+00_JPRB, 0.665914E+00_JPRB, 0.650925E+00_JPRB, 0.635952E+00_JPRB &
+  &, 0.621015E+00_JPRB, 0.606106E+00_JPRB, 0.591264E+00_JPRB &
+  &, 0.576482E+00_JPRB, 0.561799E+00_JPRB, 0.547181E+00_JPRB, 0.532690E+00_JPRB &
+  &, 0.518315E+00_JPRB, 0.504041E+00_JPRB, 0.489933E+00_JPRB &
+  &, 0.475948E+00_JPRB, 0.462122E+00_JPRB, 0.448492E+00_JPRB, 0.435011E+00_JPRB &
+  &, 0.421592E+00_JPRB, 0.408572E+00_JPRB, 0.395655E+00_JPRB &
+  &, 0.382966E+00_JPRB, 0.370445E+00_JPRB, 0.358157E+00_JPRB, 0.346069E+00_JPRB &
+  &, 0.334248E+00_JPRB, 0.322624E+00_JPRB, 0.311227E+00_JPRB &
+  &, 0.300088E+00_JPRB, 0.289203E+00_JPRB, 0.278528E+00_JPRB, 0.268091E+00_JPRB &
+  &, 0.257920E+00_JPRB, 0.248005E+00_JPRB, 0.238335E+00_JPRB &
+  &, 0.228896E+00_JPRB, 0.219712E+00_JPRB, 0.210810E+00_JPRB, 0.202131E+00_JPRB &
+  &, 0.193698E+00_JPRB, 0.185535E+00_JPRB, 0.177577E+00_JPRB &
+  &, 0.169889E+00_JPRB, 0.162448E+00_JPRB, 0.155229E+00_JPRB, 0.148252E+00_JPRB &
+  &, 0.141488E+00_JPRB, 0.134955E+00_JPRB, 0.128671E+00_JPRB &
+  &, 0.122607E+00_JPRB, 0.116777E+00_JPRB, 0.111149E+00_JPRB, 0.105738E+00_JPRB &
+  &, 0.100505E+00_JPRB, 0.954653E-01_JPRB, 0.906865E-01_JPRB &
+  &, 0.860746E-01_JPRB, 0.816417E-01_JPRB, 0.773433E-01_JPRB, 0.733043E-01_JPRB &
+  &, 0.694232E-01_JPRB, 0.656513E-01_JPRB, 0.621167E-01_JPRB &
+  &, 0.587111E-01_JPRB, 0.554430E-01_JPRB, 0.523835E-01_JPRB, 0.494175E-01_JPRB &
+  &, 0.466154E-01_JPRB, 0.439214E-01_JPRB, 0.413423E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART95',1,ZHOOK_HANDLE)
+END SUBROUTINE PART95
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART96
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART96',0,ZHOOK_HANDLE)
+
+XCW( 666, :) = (/ &
+  &  0.103999E+01_JPRB, 0.104909E+01_JPRB, 0.105781E+01_JPRB, 0.106614E+01_JPRB &
+  &, 0.107408E+01_JPRB, 0.108163E+01_JPRB, 0.108878E+01_JPRB &
+  &, 0.109552E+01_JPRB, 0.110184E+01_JPRB, 0.110774E+01_JPRB, 0.111322E+01_JPRB &
+  &, 0.111827E+01_JPRB, 0.112288E+01_JPRB, 0.112706E+01_JPRB &
+  &, 0.113079E+01_JPRB, 0.113406E+01_JPRB, 0.113689E+01_JPRB, 0.113926E+01_JPRB &
+  &, 0.114117E+01_JPRB, 0.114262E+01_JPRB, 0.114360E+01_JPRB &
+  &, 0.114411E+01_JPRB, 0.114415E+01_JPRB, 0.114373E+01_JPRB, 0.114283E+01_JPRB &
+  &, 0.114146E+01_JPRB, 0.113961E+01_JPRB, 0.113730E+01_JPRB &
+  &, 0.113451E+01_JPRB, 0.113126E+01_JPRB, 0.112754E+01_JPRB, 0.112335E+01_JPRB &
+  &, 0.111871E+01_JPRB, 0.111361E+01_JPRB, 0.110806E+01_JPRB &
+  &, 0.110206E+01_JPRB, 0.109561E+01_JPRB, 0.108874E+01_JPRB, 0.108143E+01_JPRB &
+  &, 0.107370E+01_JPRB, 0.106556E+01_JPRB, 0.105702E+01_JPRB &
+  &, 0.104807E+01_JPRB, 0.103875E+01_JPRB, 0.102904E+01_JPRB, 0.101897E+01_JPRB &
+  &, 0.100854E+01_JPRB, 0.997762E+00_JPRB, 0.986656E+00_JPRB &
+  &, 0.975235E+00_JPRB, 0.963493E+00_JPRB, 0.951462E+00_JPRB, 0.939152E+00_JPRB &
+  &, 0.926574E+00_JPRB, 0.913723E+00_JPRB, 0.900643E+00_JPRB &
+  &, 0.887333E+00_JPRB, 0.873807E+00_JPRB, 0.860080E+00_JPRB, 0.846153E+00_JPRB &
+  &, 0.832076E+00_JPRB, 0.817832E+00_JPRB, 0.803457E+00_JPRB &
+  &, 0.788935E+00_JPRB, 0.774318E+00_JPRB, 0.759589E+00_JPRB, 0.744786E+00_JPRB &
+  &, 0.729928E+00_JPRB, 0.714995E+00_JPRB, 0.700025E+00_JPRB &
+  &, 0.685036E+00_JPRB, 0.670026E+00_JPRB, 0.655013E+00_JPRB, 0.640036E+00_JPRB &
+  &, 0.625068E+00_JPRB, 0.610148E+00_JPRB, 0.595293E+00_JPRB &
+  &, 0.580495E+00_JPRB, 0.565769E+00_JPRB, 0.551127E+00_JPRB, 0.536611E+00_JPRB &
+  &, 0.522181E+00_JPRB, 0.507902E+00_JPRB, 0.493759E+00_JPRB &
+  &, 0.479735E+00_JPRB, 0.465867E+00_JPRB, 0.452164E+00_JPRB, 0.438662E+00_JPRB &
+  &, 0.425311E+00_JPRB, 0.412145E+00_JPRB, 0.399169E+00_JPRB &
+  &, 0.386417E+00_JPRB, 0.373862E+00_JPRB, 0.361504E+00_JPRB, 0.349375E+00_JPRB &
+  &, 0.337476E+00_JPRB, 0.325804E+00_JPRB, 0.314357E+00_JPRB &
+  &, 0.303165E+00_JPRB, 0.292187E+00_JPRB, 0.281488E+00_JPRB, 0.270988E+00_JPRB &
+  &, 0.260751E+00_JPRB, 0.250767E+00_JPRB, 0.241023E+00_JPRB &
+  &, 0.231547E+00_JPRB, 0.222325E+00_JPRB, 0.213340E+00_JPRB, 0.204576E+00_JPRB &
+  &, 0.196096E+00_JPRB, 0.187841E+00_JPRB, 0.179830E+00_JPRB &
+  &, 0.172088E+00_JPRB, 0.164590E+00_JPRB, 0.157311E+00_JPRB, 0.150272E+00_JPRB &
+  &, 0.143443E+00_JPRB, 0.136891E+00_JPRB, 0.130538E+00_JPRB &
+  &, 0.124401E+00_JPRB, 0.118497E+00_JPRB, 0.112792E+00_JPRB, 0.107300E+00_JPRB &
+  &, 0.102037E+00_JPRB, 0.969661E-01_JPRB, 0.920999E-01_JPRB &
+  &, 0.874530E-01_JPRB, 0.829836E-01_JPRB, 0.786473E-01_JPRB, 0.745115E-01_JPRB &
+  &, 0.705888E-01_JPRB, 0.668330E-01_JPRB, 0.631947E-01_JPRB &
+  &, 0.597431E-01_JPRB, 0.564889E-01_JPRB, 0.533188E-01_JPRB, 0.503020E-01_JPRB &
+  &, 0.474476E-01_JPRB, 0.447646E-01_JPRB, 0.421308E-01_JPRB/)
+XCW( 667, :) = (/ &
+  &  0.104028E+01_JPRB, 0.104944E+01_JPRB, 0.105823E+01_JPRB, 0.106664E+01_JPRB &
+  &, 0.107466E+01_JPRB, 0.108228E+01_JPRB, 0.108951E+01_JPRB &
+  &, 0.109632E+01_JPRB, 0.110272E+01_JPRB, 0.110870E+01_JPRB, 0.111426E+01_JPRB &
+  &, 0.111939E+01_JPRB, 0.112408E+01_JPRB, 0.112833E+01_JPRB &
+  &, 0.113214E+01_JPRB, 0.113549E+01_JPRB, 0.113840E+01_JPRB, 0.114085E+01_JPRB &
+  &, 0.114283E+01_JPRB, 0.114436E+01_JPRB, 0.114542E+01_JPRB &
+  &, 0.114601E+01_JPRB, 0.114613E+01_JPRB, 0.114578E+01_JPRB, 0.114496E+01_JPRB &
+  &, 0.114366E+01_JPRB, 0.114190E+01_JPRB, 0.113966E+01_JPRB &
+  &, 0.113695E+01_JPRB, 0.113377E+01_JPRB, 0.113012E+01_JPRB, 0.112601E+01_JPRB &
+  &, 0.112143E+01_JPRB, 0.111640E+01_JPRB, 0.111092E+01_JPRB &
+  &, 0.110499E+01_JPRB, 0.109860E+01_JPRB, 0.109180E+01_JPRB, 0.108456E+01_JPRB &
+  &, 0.107689E+01_JPRB, 0.106881E+01_JPRB, 0.106032E+01_JPRB &
+  &, 0.105144E+01_JPRB, 0.104218E+01_JPRB, 0.103252E+01_JPRB, 0.102250E+01_JPRB &
+  &, 0.101213E+01_JPRB, 0.100141E+01_JPRB, 0.990337E+00_JPRB &
+  &, 0.978954E+00_JPRB, 0.967261E+00_JPRB, 0.955280E+00_JPRB, 0.943005E+00_JPRB &
+  &, 0.930447E+00_JPRB, 0.917644E+00_JPRB, 0.904596E+00_JPRB &
+  &, 0.891300E+00_JPRB, 0.877803E+00_JPRB, 0.864104E+00_JPRB, 0.850220E+00_JPRB &
+  &, 0.836150E+00_JPRB, 0.821929E+00_JPRB, 0.807558E+00_JPRB &
+  &, 0.793054E+00_JPRB, 0.778454E+00_JPRB, 0.763741E+00_JPRB, 0.748931E+00_JPRB &
+  &, 0.734065E+00_JPRB, 0.719140E+00_JPRB, 0.704155E+00_JPRB &
+  &, 0.689170E+00_JPRB, 0.674139E+00_JPRB, 0.659124E+00_JPRB, 0.644142E+00_JPRB &
+  &, 0.629144E+00_JPRB, 0.614214E+00_JPRB, 0.599323E+00_JPRB &
+  &, 0.584508E+00_JPRB, 0.569763E+00_JPRB, 0.555099E+00_JPRB, 0.540558E+00_JPRB &
+  &, 0.526100E+00_JPRB, 0.511789E+00_JPRB, 0.497584E+00_JPRB &
+  &, 0.483550E+00_JPRB, 0.469641E+00_JPRB, 0.455893E+00_JPRB, 0.442343E+00_JPRB &
+  &, 0.428941E+00_JPRB, 0.415719E+00_JPRB, 0.402715E+00_JPRB &
+  &, 0.389901E+00_JPRB, 0.377279E+00_JPRB, 0.364883E+00_JPRB, 0.352714E+00_JPRB &
+  &, 0.340772E+00_JPRB, 0.329019E+00_JPRB, 0.317522E+00_JPRB &
+  &, 0.306277E+00_JPRB, 0.295243E+00_JPRB, 0.284449E+00_JPRB, 0.273923E+00_JPRB &
+  &, 0.263620E+00_JPRB, 0.253567E+00_JPRB, 0.243790E+00_JPRB &
+  &, 0.234239E+00_JPRB, 0.224938E+00_JPRB, 0.215871E+00_JPRB, 0.207063E+00_JPRB &
+  &, 0.198494E+00_JPRB, 0.190190E+00_JPRB, 0.182128E+00_JPRB &
+  &, 0.174331E+00_JPRB, 0.166731E+00_JPRB, 0.159393E+00_JPRB, 0.152291E+00_JPRB &
+  &, 0.145445E+00_JPRB, 0.138778E+00_JPRB, 0.132405E+00_JPRB &
+  &, 0.126196E+00_JPRB, 0.120218E+00_JPRB, 0.114486E+00_JPRB, 0.108967E+00_JPRB &
+  &, 0.103622E+00_JPRB, 0.985203E-01_JPRB, 0.935677E-01_JPRB &
+  &, 0.888313E-01_JPRB, 0.843255E-01_JPRB, 0.799513E-01_JPRB, 0.757761E-01_JPRB &
+  &, 0.718127E-01_JPRB, 0.679556E-01_JPRB, 0.643327E-01_JPRB &
+  &, 0.608357E-01_JPRB, 0.574733E-01_JPRB, 0.543164E-01_JPRB, 0.512497E-01_JPRB &
+  &, 0.483439E-01_JPRB, 0.456078E-01_JPRB, 0.429851E-01_JPRB/)
+XCW( 668, :) = (/ &
+  &  0.104056E+01_JPRB, 0.104980E+01_JPRB, 0.105866E+01_JPRB, 0.106715E+01_JPRB &
+  &, 0.107524E+01_JPRB, 0.108294E+01_JPRB, 0.109024E+01_JPRB &
+  &, 0.109713E+01_JPRB, 0.110361E+01_JPRB, 0.110967E+01_JPRB, 0.111530E+01_JPRB &
+  &, 0.112051E+01_JPRB, 0.112528E+01_JPRB, 0.112961E+01_JPRB &
+  &, 0.113349E+01_JPRB, 0.113693E+01_JPRB, 0.113991E+01_JPRB, 0.114244E+01_JPRB &
+  &, 0.114451E+01_JPRB, 0.114611E+01_JPRB, 0.114725E+01_JPRB &
+  &, 0.114792E+01_JPRB, 0.114811E+01_JPRB, 0.114784E+01_JPRB, 0.114710E+01_JPRB &
+  &, 0.114588E+01_JPRB, 0.114419E+01_JPRB, 0.114202E+01_JPRB &
+  &, 0.113939E+01_JPRB, 0.113628E+01_JPRB, 0.113271E+01_JPRB, 0.112867E+01_JPRB &
+  &, 0.112416E+01_JPRB, 0.111920E+01_JPRB, 0.111379E+01_JPRB &
+  &, 0.110792E+01_JPRB, 0.110162E+01_JPRB, 0.109487E+01_JPRB, 0.108770E+01_JPRB &
+  &, 0.108009E+01_JPRB, 0.107207E+01_JPRB, 0.106365E+01_JPRB &
+  &, 0.105483E+01_JPRB, 0.104560E+01_JPRB, 0.103601E+01_JPRB, 0.102605E+01_JPRB &
+  &, 0.101572E+01_JPRB, 0.100505E+01_JPRB, 0.994031E+00_JPRB &
+  &, 0.982699E+00_JPRB, 0.971043E+00_JPRB, 0.959098E+00_JPRB, 0.946858E+00_JPRB &
+  &, 0.934348E+00_JPRB, 0.921579E+00_JPRB, 0.908563E+00_JPRB &
+  &, 0.895299E+00_JPRB, 0.881831E+00_JPRB, 0.868160E+00_JPRB, 0.854286E+00_JPRB &
+  &, 0.840241E+00_JPRB, 0.826043E+00_JPRB, 0.811676E+00_JPRB &
+  &, 0.797191E+00_JPRB, 0.782590E+00_JPRB, 0.767892E+00_JPRB, 0.753096E+00_JPRB &
+  &, 0.738221E+00_JPRB, 0.723305E+00_JPRB, 0.708326E+00_JPRB &
+  &, 0.693324E+00_JPRB, 0.678295E+00_JPRB, 0.663278E+00_JPRB, 0.648248E+00_JPRB &
+  &, 0.633266E+00_JPRB, 0.618304E+00_JPRB, 0.603400E+00_JPRB &
+  &, 0.588570E+00_JPRB, 0.573781E+00_JPRB, 0.559122E+00_JPRB, 0.544531E+00_JPRB &
+  &, 0.530045E+00_JPRB, 0.515677E+00_JPRB, 0.501465E+00_JPRB &
+  &, 0.487365E+00_JPRB, 0.473443E+00_JPRB, 0.459651E+00_JPRB, 0.446024E+00_JPRB &
+  &, 0.432600E+00_JPRB, 0.419354E+00_JPRB, 0.406291E+00_JPRB &
+  &, 0.393415E+00_JPRB, 0.380760E+00_JPRB, 0.368295E+00_JPRB, 0.356086E+00_JPRB &
+  &, 0.344067E+00_JPRB, 0.332269E+00_JPRB, 0.320723E+00_JPRB &
+  &, 0.309390E+00_JPRB, 0.298300E+00_JPRB, 0.287483E+00_JPRB, 0.276858E+00_JPRB &
+  &, 0.266527E+00_JPRB, 0.256405E+00_JPRB, 0.246518E+00_JPRB &
+  &, 0.236931E+00_JPRB, 0.227551E+00_JPRB, 0.218443E+00_JPRB, 0.209592E+00_JPRB &
+  &, 0.200935E+00_JPRB, 0.192582E+00_JPRB, 0.184470E+00_JPRB &
+  &, 0.176575E+00_JPRB, 0.168919E+00_JPRB, 0.161522E+00_JPRB, 0.154358E+00_JPRB &
+  &, 0.147448E+00_JPRB, 0.140714E+00_JPRB, 0.134272E+00_JPRB &
+  &, 0.128041E+00_JPRB, 0.121988E+00_JPRB, 0.116180E+00_JPRB, 0.110581E+00_JPRB &
+  &, 0.105208E+00_JPRB, 0.100021E+00_JPRB, 0.950899E-01_JPRB &
+  &, 0.902648E-01_JPRB, 0.856674E-01_JPRB, 0.813120E-01_JPRB, 0.770983E-01_JPRB &
+  &, 0.730366E-01_JPRB, 0.691372E-01_JPRB, 0.654706E-01_JPRB &
+  &, 0.619284E-01_JPRB, 0.585192E-01_JPRB, 0.553139E-01_JPRB, 0.521974E-01_JPRB &
+  &, 0.493041E-01_JPRB, 0.464510E-01_JPRB, 0.438393E-01_JPRB/)
+XCW( 669, :) = (/ &
+  &  0.104084E+01_JPRB, 0.105016E+01_JPRB, 0.105909E+01_JPRB, 0.106765E+01_JPRB &
+  &, 0.107582E+01_JPRB, 0.108360E+01_JPRB, 0.109097E+01_JPRB &
+  &, 0.109794E+01_JPRB, 0.110449E+01_JPRB, 0.111063E+01_JPRB, 0.111634E+01_JPRB &
+  &, 0.112163E+01_JPRB, 0.112647E+01_JPRB, 0.113088E+01_JPRB &
+  &, 0.113485E+01_JPRB, 0.113836E+01_JPRB, 0.114143E+01_JPRB, 0.114403E+01_JPRB &
+  &, 0.114618E+01_JPRB, 0.114786E+01_JPRB, 0.114908E+01_JPRB &
+  &, 0.114983E+01_JPRB, 0.115010E+01_JPRB, 0.114991E+01_JPRB, 0.114924E+01_JPRB &
+  &, 0.114810E+01_JPRB, 0.114649E+01_JPRB, 0.114440E+01_JPRB &
+  &, 0.114183E+01_JPRB, 0.113880E+01_JPRB, 0.113530E+01_JPRB, 0.113134E+01_JPRB &
+  &, 0.112690E+01_JPRB, 0.112201E+01_JPRB, 0.111667E+01_JPRB &
+  &, 0.111087E+01_JPRB, 0.110463E+01_JPRB, 0.109795E+01_JPRB, 0.109084E+01_JPRB &
+  &, 0.108330E+01_JPRB, 0.107535E+01_JPRB, 0.106698E+01_JPRB &
+  &, 0.105821E+01_JPRB, 0.104905E+01_JPRB, 0.103951E+01_JPRB, 0.102960E+01_JPRB &
+  &, 0.101933E+01_JPRB, 0.100870E+01_JPRB, 0.997738E+00_JPRB &
+  &, 0.986457E+00_JPRB, 0.974852E+00_JPRB, 0.962943E+00_JPRB, 0.950740E+00_JPRB &
+  &, 0.938265E+00_JPRB, 0.925529E+00_JPRB, 0.912545E+00_JPRB &
+  &, 0.899312E+00_JPRB, 0.885875E+00_JPRB, 0.872216E+00_JPRB, 0.858369E+00_JPRB &
+  &, 0.844349E+00_JPRB, 0.830158E+00_JPRB, 0.815829E+00_JPRB &
+  &, 0.801347E+00_JPRB, 0.786764E+00_JPRB, 0.772063E+00_JPRB, 0.757281E+00_JPRB &
+  &, 0.742417E+00_JPRB, 0.727490E+00_JPRB, 0.712498E+00_JPRB &
+  &, 0.697499E+00_JPRB, 0.682472E+00_JPRB, 0.667433E+00_JPRB, 0.652399E+00_JPRB &
+  &, 0.637411E+00_JPRB, 0.622440E+00_JPRB, 0.607500E+00_JPRB &
+  &, 0.592632E+00_JPRB, 0.577850E+00_JPRB, 0.563145E+00_JPRB, 0.548529E+00_JPRB &
+  &, 0.534016E+00_JPRB, 0.519618E+00_JPRB, 0.505345E+00_JPRB &
+  &, 0.491236E+00_JPRB, 0.477245E+00_JPRB, 0.463438E+00_JPRB, 0.449764E+00_JPRB &
+  &, 0.436289E+00_JPRB, 0.422989E+00_JPRB, 0.409868E+00_JPRB &
+  &, 0.396962E+00_JPRB, 0.384241E+00_JPRB, 0.371740E+00_JPRB, 0.359459E+00_JPRB &
+  &, 0.347397E+00_JPRB, 0.335553E+00_JPRB, 0.323923E+00_JPRB &
+  &, 0.312538E+00_JPRB, 0.301429E+00_JPRB, 0.290517E+00_JPRB, 0.279830E+00_JPRB &
+  &, 0.269435E+00_JPRB, 0.259244E+00_JPRB, 0.249324E+00_JPRB &
+  &, 0.239663E+00_JPRB, 0.230205E+00_JPRB, 0.221057E+00_JPRB, 0.212121E+00_JPRB &
+  &, 0.203419E+00_JPRB, 0.194975E+00_JPRB, 0.186811E+00_JPRB &
+  &, 0.178863E+00_JPRB, 0.171151E+00_JPRB, 0.163696E+00_JPRB, 0.156472E+00_JPRB &
+  &, 0.149451E+00_JPRB, 0.142699E+00_JPRB, 0.136188E+00_JPRB &
+  &, 0.129886E+00_JPRB, 0.123810E+00_JPRB, 0.117925E+00_JPRB, 0.112300E+00_JPRB &
+  &, 0.106845E+00_JPRB, 0.101629E+00_JPRB, 0.965576E-01_JPRB &
+  &, 0.917535E-01_JPRB, 0.870652E-01_JPRB, 0.826160E-01_JPRB, 0.783630E-01_JPRB &
+  &, 0.742605E-01_JPRB, 0.703780E-01_JPRB, 0.666085E-01_JPRB &
+  &, 0.630211E-01_JPRB, 0.595651E-01_JPRB, 0.563115E-01_JPRB, 0.532083E-01_JPRB &
+  &, 0.502004E-01_JPRB, 0.473591E-01_JPRB, 0.446936E-01_JPRB/)
+XCW( 670, :) = (/ &
+  &  0.104113E+01_JPRB, 0.105051E+01_JPRB, 0.105952E+01_JPRB, 0.106815E+01_JPRB &
+  &, 0.107640E+01_JPRB, 0.108425E+01_JPRB, 0.109170E+01_JPRB &
+  &, 0.109875E+01_JPRB, 0.110538E+01_JPRB, 0.111160E+01_JPRB, 0.111739E+01_JPRB &
+  &, 0.112275E+01_JPRB, 0.112768E+01_JPRB, 0.113216E+01_JPRB &
+  &, 0.113621E+01_JPRB, 0.113980E+01_JPRB, 0.114295E+01_JPRB, 0.114563E+01_JPRB &
+  &, 0.114786E+01_JPRB, 0.114962E+01_JPRB, 0.115091E+01_JPRB &
+  &, 0.115174E+01_JPRB, 0.115210E+01_JPRB, 0.115198E+01_JPRB, 0.115139E+01_JPRB &
+  &, 0.115032E+01_JPRB, 0.114879E+01_JPRB, 0.114677E+01_JPRB &
+  &, 0.114429E+01_JPRB, 0.114133E+01_JPRB, 0.113791E+01_JPRB, 0.113401E+01_JPRB &
+  &, 0.112965E+01_JPRB, 0.112484E+01_JPRB, 0.111956E+01_JPRB &
+  &, 0.111383E+01_JPRB, 0.110765E+01_JPRB, 0.110105E+01_JPRB, 0.109400E+01_JPRB &
+  &, 0.108652E+01_JPRB, 0.107863E+01_JPRB, 0.107033E+01_JPRB &
+  &, 0.106161E+01_JPRB, 0.105252E+01_JPRB, 0.104304E+01_JPRB, 0.103317E+01_JPRB &
+  &, 0.102296E+01_JPRB, 0.101237E+01_JPRB, 0.100146E+01_JPRB &
+  &, 0.990215E+00_JPRB, 0.978661E+00_JPRB, 0.966789E+00_JPRB, 0.954635E+00_JPRB &
+  &, 0.942195E+00_JPRB, 0.929494E+00_JPRB, 0.916543E+00_JPRB &
+  &, 0.903342E+00_JPRB, 0.889934E+00_JPRB, 0.876305E+00_JPRB, 0.862485E+00_JPRB &
+  &, 0.848474E+00_JPRB, 0.834307E+00_JPRB, 0.820001E+00_JPRB &
+  &, 0.805539E+00_JPRB, 0.790956E+00_JPRB, 0.776271E+00_JPRB, 0.761484E+00_JPRB &
+  &, 0.746613E+00_JPRB, 0.731695E+00_JPRB, 0.716710E+00_JPRB &
+  &, 0.701696E+00_JPRB, 0.686671E+00_JPRB, 0.671632E+00_JPRB, 0.656573E+00_JPRB &
+  &, 0.641556E+00_JPRB, 0.626576E+00_JPRB, 0.611625E+00_JPRB &
+  &, 0.596742E+00_JPRB, 0.581918E+00_JPRB, 0.567192E+00_JPRB, 0.552553E+00_JPRB &
+  &, 0.538014E+00_JPRB, 0.523586E+00_JPRB, 0.509280E+00_JPRB &
+  &, 0.495107E+00_JPRB, 0.481104E+00_JPRB, 0.467225E+00_JPRB, 0.453534E+00_JPRB &
+  &, 0.440008E+00_JPRB, 0.426654E+00_JPRB, 0.413507E+00_JPRB &
+  &, 0.400540E+00_JPRB, 0.387787E+00_JPRB, 0.375218E+00_JPRB, 0.362865E+00_JPRB &
+  &, 0.350761E+00_JPRB, 0.338837E+00_JPRB, 0.327194E+00_JPRB &
+  &, 0.315758E+00_JPRB, 0.304522E+00_JPRB, 0.293588E+00_JPRB, 0.282840E+00_JPRB &
+  &, 0.272380E+00_JPRB, 0.262122E+00_JPRB, 0.252131E+00_JPRB &
+  &, 0.242395E+00_JPRB, 0.232900E+00_JPRB, 0.223671E+00_JPRB, 0.214692E+00_JPRB &
+  &, 0.205946E+00_JPRB, 0.197411E+00_JPRB, 0.189153E+00_JPRB &
+  &, 0.181152E+00_JPRB, 0.173384E+00_JPRB, 0.165870E+00_JPRB, 0.158586E+00_JPRB &
+  &, 0.151549E+00_JPRB, 0.144683E+00_JPRB, 0.138104E+00_JPRB &
+  &, 0.131730E+00_JPRB, 0.125631E+00_JPRB, 0.119671E+00_JPRB, 0.113967E+00_JPRB &
+  &, 0.108483E+00_JPRB, 0.103183E+00_JPRB, 0.980798E-01_JPRB &
+  &, 0.931870E-01_JPRB, 0.885189E-01_JPRB, 0.839767E-01_JPRB, 0.796852E-01_JPRB &
+  &, 0.755427E-01_JPRB, 0.715596E-01_JPRB, 0.677464E-01_JPRB &
+  &, 0.641138E-01_JPRB, 0.606726E-01_JPRB, 0.573715E-01_JPRB, 0.541560E-01_JPRB &
+  &, 0.511607E-01_JPRB, 0.482672E-01_JPRB, 0.455478E-01_JPRB/)
+XCW( 671, :) = (/ &
+  &  0.104141E+01_JPRB, 0.105087E+01_JPRB, 0.105996E+01_JPRB, 0.106866E+01_JPRB &
+  &, 0.107698E+01_JPRB, 0.108491E+01_JPRB, 0.109244E+01_JPRB &
+  &, 0.109956E+01_JPRB, 0.110627E+01_JPRB, 0.111256E+01_JPRB, 0.111843E+01_JPRB &
+  &, 0.112387E+01_JPRB, 0.112888E+01_JPRB, 0.113345E+01_JPRB &
+  &, 0.113757E+01_JPRB, 0.114124E+01_JPRB, 0.114447E+01_JPRB, 0.114723E+01_JPRB &
+  &, 0.114954E+01_JPRB, 0.115138E+01_JPRB, 0.115273E+01_JPRB &
+  &, 0.115365E+01_JPRB, 0.115409E+01_JPRB, 0.115405E+01_JPRB, 0.115354E+01_JPRB &
+  &, 0.115256E+01_JPRB, 0.115109E+01_JPRB, 0.114916E+01_JPRB &
+  &, 0.114675E+01_JPRB, 0.114387E+01_JPRB, 0.114051E+01_JPRB, 0.113670E+01_JPRB &
+  &, 0.113241E+01_JPRB, 0.112766E+01_JPRB, 0.112246E+01_JPRB &
+  &, 0.111680E+01_JPRB, 0.111070E+01_JPRB, 0.110415E+01_JPRB, 0.109716E+01_JPRB &
+  &, 0.108975E+01_JPRB, 0.108192E+01_JPRB, 0.107368E+01_JPRB &
+  &, 0.106504E+01_JPRB, 0.105599E+01_JPRB, 0.104656E+01_JPRB, 0.103676E+01_JPRB &
+  &, 0.102658E+01_JPRB, 0.101607E+01_JPRB, 0.100518E+01_JPRB &
+  &, 0.993999E+00_JPRB, 0.982483E+00_JPRB, 0.970662E+00_JPRB, 0.958545E+00_JPRB &
+  &, 0.946140E+00_JPRB, 0.933473E+00_JPRB, 0.920556E+00_JPRB &
+  &, 0.907402E+00_JPRB, 0.894010E+00_JPRB, 0.880410E+00_JPRB, 0.866617E+00_JPRB &
+  &, 0.852633E+00_JPRB, 0.838473E+00_JPRB, 0.824172E+00_JPRB &
+  &, 0.809731E+00_JPRB, 0.795167E+00_JPRB, 0.780480E+00_JPRB, 0.765707E+00_JPRB &
+  &, 0.750848E+00_JPRB, 0.735921E+00_JPRB, 0.720943E+00_JPRB &
+  &, 0.705935E+00_JPRB, 0.690891E+00_JPRB, 0.675830E+00_JPRB, 0.660791E+00_JPRB &
+  &, 0.645747E+00_JPRB, 0.630735E+00_JPRB, 0.615773E+00_JPRB &
+  &, 0.600877E+00_JPRB, 0.586036E+00_JPRB, 0.571266E+00_JPRB, 0.556603E+00_JPRB &
+  &, 0.542011E+00_JPRB, 0.527553E+00_JPRB, 0.513242E+00_JPRB &
+  &, 0.499033E+00_JPRB, 0.484963E+00_JPRB, 0.471070E+00_JPRB, 0.457332E+00_JPRB &
+  &, 0.443757E+00_JPRB, 0.430350E+00_JPRB, 0.417146E+00_JPRB &
+  &, 0.404150E+00_JPRB, 0.391333E+00_JPRB, 0.378729E+00_JPRB, 0.366304E+00_JPRB &
+  &, 0.354125E+00_JPRB, 0.342191E+00_JPRB, 0.330465E+00_JPRB &
+  &, 0.318941E+00_JPRB, 0.307687E+00_JPRB, 0.296659E+00_JPRB, 0.285888E+00_JPRB &
+  &, 0.275326E+00_JPRB, 0.265039E+00_JPRB, 0.254977E+00_JPRB &
+  &, 0.245207E+00_JPRB, 0.235635E+00_JPRB, 0.226326E+00_JPRB, 0.217263E+00_JPRB &
+  &, 0.208472E+00_JPRB, 0.199890E+00_JPRB, 0.191583E+00_JPRB &
+  &, 0.183485E+00_JPRB, 0.175662E+00_JPRB, 0.168091E+00_JPRB, 0.160746E+00_JPRB &
+  &, 0.153599E+00_JPRB, 0.146716E+00_JPRB, 0.140069E+00_JPRB &
+  &, 0.133625E+00_JPRB, 0.127452E+00_JPRB, 0.121467E+00_JPRB, 0.115685E+00_JPRB &
+  &, 0.110121E+00_JPRB, 0.104791E+00_JPRB, 0.996563E-01_JPRB &
+  &, 0.946204E-01_JPRB, 0.899726E-01_JPRB, 0.853941E-01_JPRB, 0.810073E-01_JPRB &
+  &, 0.768249E-01_JPRB, 0.728004E-01_JPRB, 0.689442E-01_JPRB &
+  &, 0.652672E-01_JPRB, 0.617800E-01_JPRB, 0.583691E-01_JPRB, 0.551669E-01_JPRB &
+  &, 0.521209E-01_JPRB, 0.491752E-01_JPRB, 0.464021E-01_JPRB/)
+XCW( 672, :) = (/ &
+  &  0.104169E+01_JPRB, 0.105123E+01_JPRB, 0.106039E+01_JPRB, 0.106917E+01_JPRB &
+  &, 0.107756E+01_JPRB, 0.108557E+01_JPRB, 0.109317E+01_JPRB &
+  &, 0.110037E+01_JPRB, 0.110716E+01_JPRB, 0.111353E+01_JPRB, 0.111948E+01_JPRB &
+  &, 0.112500E+01_JPRB, 0.113008E+01_JPRB, 0.113473E+01_JPRB &
+  &, 0.113893E+01_JPRB, 0.114269E+01_JPRB, 0.114599E+01_JPRB, 0.114884E+01_JPRB &
+  &, 0.115122E+01_JPRB, 0.115314E+01_JPRB, 0.115460E+01_JPRB &
+  &, 0.115556E+01_JPRB, 0.115609E+01_JPRB, 0.115614E+01_JPRB, 0.115570E+01_JPRB &
+  &, 0.115479E+01_JPRB, 0.115341E+01_JPRB, 0.115155E+01_JPRB &
+  &, 0.114922E+01_JPRB, 0.114641E+01_JPRB, 0.114313E+01_JPRB, 0.113939E+01_JPRB &
+  &, 0.113517E+01_JPRB, 0.113050E+01_JPRB, 0.112536E+01_JPRB &
+  &, 0.111977E+01_JPRB, 0.111374E+01_JPRB, 0.110726E+01_JPRB, 0.110034E+01_JPRB &
+  &, 0.109300E+01_JPRB, 0.108522E+01_JPRB, 0.107705E+01_JPRB &
+  &, 0.106846E+01_JPRB, 0.105948E+01_JPRB, 0.105010E+01_JPRB, 0.104035E+01_JPRB &
+  &, 0.103024E+01_JPRB, 0.101976E+01_JPRB, 0.100895E+01_JPRB &
+  &, 0.997797E+00_JPRB, 0.986319E+00_JPRB, 0.974549E+00_JPRB, 0.962469E+00_JPRB &
+  &, 0.950100E+00_JPRB, 0.937482E+00_JPRB, 0.924584E+00_JPRB &
+  &, 0.911462E+00_JPRB, 0.898101E+00_JPRB, 0.884530E+00_JPRB, 0.870750E+00_JPRB &
+  &, 0.856792E+00_JPRB, 0.842674E+00_JPRB, 0.828379E+00_JPRB &
+  &, 0.813959E+00_JPRB, 0.799396E+00_JPRB, 0.784727E+00_JPRB, 0.769950E+00_JPRB &
+  &, 0.755103E+00_JPRB, 0.740167E+00_JPRB, 0.725197E+00_JPRB &
+  &, 0.710173E+00_JPRB, 0.695133E+00_JPRB, 0.680073E+00_JPRB, 0.665010E+00_JPRB &
+  &, 0.649960E+00_JPRB, 0.634942E+00_JPRB, 0.619946E+00_JPRB &
+  &, 0.605011E+00_JPRB, 0.590154E+00_JPRB, 0.575364E+00_JPRB, 0.560679E+00_JPRB &
+  &, 0.546062E+00_JPRB, 0.531575E+00_JPRB, 0.517204E+00_JPRB &
+  &, 0.502960E+00_JPRB, 0.488879E+00_JPRB, 0.474943E+00_JPRB, 0.461160E+00_JPRB &
+  &, 0.447536E+00_JPRB, 0.434076E+00_JPRB, 0.420847E+00_JPRB &
+  &, 0.407760E+00_JPRB, 0.394911E+00_JPRB, 0.382239E+00_JPRB, 0.369810E+00_JPRB &
+  &, 0.357556E+00_JPRB, 0.345544E+00_JPRB, 0.333771E+00_JPRB &
+  &, 0.322197E+00_JPRB, 0.310889E+00_JPRB, 0.299805E+00_JPRB, 0.288936E+00_JPRB &
+  &, 0.278348E+00_JPRB, 0.267994E+00_JPRB, 0.257863E+00_JPRB &
+  &, 0.248020E+00_JPRB, 0.238371E+00_JPRB, 0.229023E+00_JPRB, 0.219877E+00_JPRB &
+  &, 0.210999E+00_JPRB, 0.202370E+00_JPRB, 0.194013E+00_JPRB &
+  &, 0.185863E+00_JPRB, 0.177986E+00_JPRB, 0.170312E+00_JPRB, 0.162907E+00_JPRB &
+  &, 0.155697E+00_JPRB, 0.148749E+00_JPRB, 0.142034E+00_JPRB &
+  &, 0.135569E+00_JPRB, 0.129324E+00_JPRB, 0.123264E+00_JPRB, 0.117456E+00_JPRB &
+  &, 0.111812E+00_JPRB, 0.106399E+00_JPRB, 0.101233E+00_JPRB &
+  &, 0.962193E-01_JPRB, 0.914263E-01_JPRB, 0.868115E-01_JPRB, 0.823870E-01_JPRB &
+  &, 0.781071E-01_JPRB, 0.740411E-01_JPRB, 0.701421E-01_JPRB &
+  &, 0.664205E-01_JPRB, 0.628874E-01_JPRB, 0.594914E-01_JPRB, 0.561778E-01_JPRB &
+  &, 0.530812E-01_JPRB, 0.501481E-01_JPRB, 0.473220E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART96',1,ZHOOK_HANDLE)
+END SUBROUTINE PART96
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART97
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART97',0,ZHOOK_HANDLE)
+
+XCW( 673, :) = (/ &
+  &  0.104198E+01_JPRB, 0.105159E+01_JPRB, 0.106082E+01_JPRB, 0.106968E+01_JPRB &
+  &, 0.107815E+01_JPRB, 0.108623E+01_JPRB, 0.109391E+01_JPRB &
+  &, 0.110119E+01_JPRB, 0.110805E+01_JPRB, 0.111450E+01_JPRB, 0.112053E+01_JPRB &
+  &, 0.112613E+01_JPRB, 0.113129E+01_JPRB, 0.113602E+01_JPRB &
+  &, 0.114030E+01_JPRB, 0.114414E+01_JPRB, 0.114752E+01_JPRB, 0.115044E+01_JPRB &
+  &, 0.115291E+01_JPRB, 0.115491E+01_JPRB, 0.115644E+01_JPRB &
+  &, 0.115751E+01_JPRB, 0.115810E+01_JPRB, 0.115822E+01_JPRB, 0.115786E+01_JPRB &
+  &, 0.115703E+01_JPRB, 0.115573E+01_JPRB, 0.115395E+01_JPRB &
+  &, 0.115169E+01_JPRB, 0.114896E+01_JPRB, 0.114576E+01_JPRB, 0.114208E+01_JPRB &
+  &, 0.113794E+01_JPRB, 0.113334E+01_JPRB, 0.112828E+01_JPRB &
+  &, 0.112276E+01_JPRB, 0.111679E+01_JPRB, 0.111038E+01_JPRB, 0.110353E+01_JPRB &
+  &, 0.109625E+01_JPRB, 0.108854E+01_JPRB, 0.108042E+01_JPRB &
+  &, 0.107189E+01_JPRB, 0.106297E+01_JPRB, 0.105366E+01_JPRB, 0.104396E+01_JPRB &
+  &, 0.103388E+01_JPRB, 0.102348E+01_JPRB, 0.101271E+01_JPRB &
+  &, 0.100161E+01_JPRB, 0.990181E+00_JPRB, 0.978436E+00_JPRB, 0.966407E+00_JPRB &
+  &, 0.954089E+00_JPRB, 0.941492E+00_JPRB, 0.928642E+00_JPRB &
+  &, 0.915538E+00_JPRB, 0.902208E+00_JPRB, 0.888668E+00_JPRB, 0.874916E+00_JPRB &
+  &, 0.860985E+00_JPRB, 0.846875E+00_JPRB, 0.832603E+00_JPRB &
+  &, 0.818187E+00_JPRB, 0.803644E+00_JPRB, 0.788992E+00_JPRB, 0.774231E+00_JPRB &
+  &, 0.759378E+00_JPRB, 0.744453E+00_JPRB, 0.729472E+00_JPRB &
+  &, 0.714454E+00_JPRB, 0.699396E+00_JPRB, 0.684315E+00_JPRB, 0.669251E+00_JPRB &
+  &, 0.654197E+00_JPRB, 0.639148E+00_JPRB, 0.624142E+00_JPRB &
+  &, 0.609195E+00_JPRB, 0.594322E+00_JPRB, 0.579488E+00_JPRB, 0.564781E+00_JPRB &
+  &, 0.550138E+00_JPRB, 0.535623E+00_JPRB, 0.521221E+00_JPRB &
+  &, 0.506942E+00_JPRB, 0.492795E+00_JPRB, 0.478817E+00_JPRB, 0.464989E+00_JPRB &
+  &, 0.451345E+00_JPRB, 0.437833E+00_JPRB, 0.424548E+00_JPRB &
+  &, 0.411433E+00_JPRB, 0.398521E+00_JPRB, 0.385815E+00_JPRB, 0.373283E+00_JPRB &
+  &, 0.361022E+00_JPRB, 0.348932E+00_JPRB, 0.337077E+00_JPRB &
+  &, 0.325488E+00_JPRB, 0.314091E+00_JPRB, 0.302950E+00_JPRB, 0.292059E+00_JPRB &
+  &, 0.281370E+00_JPRB, 0.270950E+00_JPRB, 0.260788E+00_JPRB &
+  &, 0.250832E+00_JPRB, 0.241147E+00_JPRB, 0.231719E+00_JPRB, 0.222532E+00_JPRB &
+  &, 0.213611E+00_JPRB, 0.204892E+00_JPRB, 0.196443E+00_JPRB &
+  &, 0.188241E+00_JPRB, 0.180310E+00_JPRB, 0.172579E+00_JPRB, 0.165115E+00_JPRB &
+  &, 0.157843E+00_JPRB, 0.150830E+00_JPRB, 0.144048E+00_JPRB &
+  &, 0.137514E+00_JPRB, 0.131196E+00_JPRB, 0.125112E+00_JPRB, 0.119227E+00_JPRB &
+  &, 0.113556E+00_JPRB, 0.108061E+00_JPRB, 0.102809E+00_JPRB &
+  &, 0.977631E-01_JPRB, 0.928800E-01_JPRB, 0.882289E-01_JPRB, 0.837666E-01_JPRB &
+  &, 0.794476E-01_JPRB, 0.753409E-01_JPRB, 0.713998E-01_JPRB &
+  &, 0.676346E-01_JPRB, 0.639949E-01_JPRB, 0.605513E-01_JPRB, 0.572519E-01_JPRB &
+  &, 0.541055E-01_JPRB, 0.511211E-01_JPRB, 0.482420E-01_JPRB/)
+XCW( 674, :) = (/ &
+  &  0.104227E+01_JPRB, 0.105194E+01_JPRB, 0.106125E+01_JPRB, 0.107018E+01_JPRB &
+  &, 0.107873E+01_JPRB, 0.108689E+01_JPRB, 0.109465E+01_JPRB &
+  &, 0.110200E+01_JPRB, 0.110895E+01_JPRB, 0.111547E+01_JPRB, 0.112158E+01_JPRB &
+  &, 0.112726E+01_JPRB, 0.113250E+01_JPRB, 0.113731E+01_JPRB &
+  &, 0.114167E+01_JPRB, 0.114559E+01_JPRB, 0.114905E+01_JPRB, 0.115206E+01_JPRB &
+  &, 0.115460E+01_JPRB, 0.115668E+01_JPRB, 0.115829E+01_JPRB &
+  &, 0.115944E+01_JPRB, 0.116011E+01_JPRB, 0.116031E+01_JPRB, 0.116004E+01_JPRB &
+  &, 0.115928E+01_JPRB, 0.115806E+01_JPRB, 0.115635E+01_JPRB &
+  &, 0.115417E+01_JPRB, 0.115152E+01_JPRB, 0.114839E+01_JPRB, 0.114479E+01_JPRB &
+  &, 0.114072E+01_JPRB, 0.113619E+01_JPRB, 0.113120E+01_JPRB &
+  &, 0.112576E+01_JPRB, 0.111985E+01_JPRB, 0.111350E+01_JPRB, 0.110672E+01_JPRB &
+  &, 0.109951E+01_JPRB, 0.109187E+01_JPRB, 0.108381E+01_JPRB &
+  &, 0.107535E+01_JPRB, 0.106648E+01_JPRB, 0.105722E+01_JPRB, 0.104758E+01_JPRB &
+  &, 0.103757E+01_JPRB, 0.102721E+01_JPRB, 0.101649E+01_JPRB &
+  &, 0.100543E+01_JPRB, 0.994044E+00_JPRB, 0.982351E+00_JPRB, 0.970359E+00_JPRB &
+  &, 0.958077E+00_JPRB, 0.945530E+00_JPRB, 0.932715E+00_JPRB &
+  &, 0.919645E+00_JPRB, 0.906347E+00_JPRB, 0.892821E+00_JPRB, 0.879098E+00_JPRB &
+  &, 0.865195E+00_JPRB, 0.851111E+00_JPRB, 0.836846E+00_JPRB &
+  &, 0.822451E+00_JPRB, 0.807910E+00_JPRB, 0.793276E+00_JPRB, 0.778512E+00_JPRB &
+  &, 0.763673E+00_JPRB, 0.748739E+00_JPRB, 0.733767E+00_JPRB &
+  &, 0.718735E+00_JPRB, 0.703681E+00_JPRB, 0.688602E+00_JPRB, 0.673514E+00_JPRB &
+  &, 0.658456E+00_JPRB, 0.643401E+00_JPRB, 0.628386E+00_JPRB &
+  &, 0.613402E+00_JPRB, 0.598490E+00_JPRB, 0.583662E+00_JPRB, 0.568909E+00_JPRB &
+  &, 0.554241E+00_JPRB, 0.539699E+00_JPRB, 0.525238E+00_JPRB &
+  &, 0.510952E+00_JPRB, 0.496767E+00_JPRB, 0.482749E+00_JPRB, 0.468876E+00_JPRB &
+  &, 0.455155E+00_JPRB, 0.441621E+00_JPRB, 0.428280E+00_JPRB &
+  &, 0.415106E+00_JPRB, 0.402164E+00_JPRB, 0.389392E+00_JPRB, 0.376822E+00_JPRB &
+  &, 0.364488E+00_JPRB, 0.352354E+00_JPRB, 0.340453E+00_JPRB &
+  &, 0.328779E+00_JPRB, 0.317329E+00_JPRB, 0.306132E+00_JPRB, 0.295181E+00_JPRB &
+  &, 0.284430E+00_JPRB, 0.273944E+00_JPRB, 0.263713E+00_JPRB &
+  &, 0.253725E+00_JPRB, 0.243964E+00_JPRB, 0.234458E+00_JPRB, 0.225230E+00_JPRB &
+  &, 0.216223E+00_JPRB, 0.207459E+00_JPRB, 0.198917E+00_JPRB &
+  &, 0.190664E+00_JPRB, 0.182634E+00_JPRB, 0.174846E+00_JPRB, 0.167322E+00_JPRB &
+  &, 0.160037E+00_JPRB, 0.152960E+00_JPRB, 0.146111E+00_JPRB &
+  &, 0.139508E+00_JPRB, 0.133119E+00_JPRB, 0.126960E+00_JPRB, 0.120998E+00_JPRB &
+  &, 0.115246E+00_JPRB, 0.109722E+00_JPRB, 0.104440E+00_JPRB &
+  &, 0.993069E-01_JPRB, 0.943897E-01_JPRB, 0.897030E-01_JPRB, 0.851463E-01_JPRB &
+  &, 0.807880E-01_JPRB, 0.766408E-01_JPRB, 0.726575E-01_JPRB &
+  &, 0.687880E-01_JPRB, 0.651638E-01_JPRB, 0.616736E-01_JPRB, 0.583260E-01_JPRB &
+  &, 0.551298E-01_JPRB, 0.520291E-01_JPRB, 0.491619E-01_JPRB/)
+XCW( 675, :) = (/ &
+  &  0.104255E+01_JPRB, 0.105230E+01_JPRB, 0.106169E+01_JPRB, 0.107069E+01_JPRB &
+  &, 0.107932E+01_JPRB, 0.108755E+01_JPRB, 0.109539E+01_JPRB &
+  &, 0.110282E+01_JPRB, 0.110984E+01_JPRB, 0.111645E+01_JPRB, 0.112263E+01_JPRB &
+  &, 0.112839E+01_JPRB, 0.113372E+01_JPRB, 0.113860E+01_JPRB &
+  &, 0.114305E+01_JPRB, 0.114704E+01_JPRB, 0.115058E+01_JPRB, 0.115367E+01_JPRB &
+  &, 0.115630E+01_JPRB, 0.115846E+01_JPRB, 0.116015E+01_JPRB &
+  &, 0.116138E+01_JPRB, 0.116213E+01_JPRB, 0.116241E+01_JPRB, 0.116221E+01_JPRB &
+  &, 0.116154E+01_JPRB, 0.116039E+01_JPRB, 0.115876E+01_JPRB &
+  &, 0.115666E+01_JPRB, 0.115408E+01_JPRB, 0.115103E+01_JPRB, 0.114750E+01_JPRB &
+  &, 0.114351E+01_JPRB, 0.113905E+01_JPRB, 0.113413E+01_JPRB &
+  &, 0.112875E+01_JPRB, 0.112292E+01_JPRB, 0.111665E+01_JPRB, 0.110993E+01_JPRB &
+  &, 0.110278E+01_JPRB, 0.109520E+01_JPRB, 0.108721E+01_JPRB &
+  &, 0.107880E+01_JPRB, 0.107000E+01_JPRB, 0.106080E+01_JPRB, 0.105122E+01_JPRB &
+  &, 0.104126E+01_JPRB, 0.103094E+01_JPRB, 0.102028E+01_JPRB &
+  &, 0.100927E+01_JPRB, 0.997934E+00_JPRB, 0.986293E+00_JPRB, 0.974339E+00_JPRB &
+  &, 0.962094E+00_JPRB, 0.949569E+00_JPRB, 0.936789E+00_JPRB &
+  &, 0.923767E+00_JPRB, 0.910502E+00_JPRB, 0.897007E+00_JPRB, 0.883314E+00_JPRB &
+  &, 0.869422E+00_JPRB, 0.855347E+00_JPRB, 0.841123E+00_JPRB &
+  &, 0.826734E+00_JPRB, 0.812213E+00_JPRB, 0.797579E+00_JPRB, 0.782832E+00_JPRB &
+  &, 0.767988E+00_JPRB, 0.753066E+00_JPRB, 0.738083E+00_JPRB &
+  &, 0.723058E+00_JPRB, 0.707988E+00_JPRB, 0.692910E+00_JPRB, 0.677822E+00_JPRB &
+  &, 0.662739E+00_JPRB, 0.647654E+00_JPRB, 0.632630E+00_JPRB &
+  &, 0.617634E+00_JPRB, 0.602707E+00_JPRB, 0.587837E+00_JPRB, 0.573062E+00_JPRB &
+  &, 0.558370E+00_JPRB, 0.543774E+00_JPRB, 0.529310E+00_JPRB &
+  &, 0.514962E+00_JPRB, 0.500768E+00_JPRB, 0.486680E+00_JPRB, 0.472792E+00_JPRB &
+  &, 0.459024E+00_JPRB, 0.445439E+00_JPRB, 0.432044E+00_JPRB &
+  &, 0.418842E+00_JPRB, 0.405806E+00_JPRB, 0.393001E+00_JPRB, 0.380395E+00_JPRB &
+  &, 0.367988E+00_JPRB, 0.355811E+00_JPRB, 0.343864E+00_JPRB &
+  &, 0.332107E+00_JPRB, 0.320604E+00_JPRB, 0.309351E+00_JPRB, 0.298304E+00_JPRB &
+  &, 0.287529E+00_JPRB, 0.276978E+00_JPRB, 0.266678E+00_JPRB &
+  &, 0.256617E+00_JPRB, 0.246782E+00_JPRB, 0.237237E+00_JPRB, 0.227928E+00_JPRB &
+  &, 0.218835E+00_JPRB, 0.210025E+00_JPRB, 0.201435E+00_JPRB &
+  &, 0.193132E+00_JPRB, 0.185003E+00_JPRB, 0.177159E+00_JPRB, 0.169577E+00_JPRB &
+  &, 0.162182E+00_JPRB, 0.155090E+00_JPRB, 0.148174E+00_JPRB &
+  &, 0.141502E+00_JPRB, 0.135041E+00_JPRB, 0.128808E+00_JPRB, 0.122821E+00_JPRB &
+  &, 0.117043E+00_JPRB, 0.111437E+00_JPRB, 0.106071E+00_JPRB &
+  &, 0.100906E+00_JPRB, 0.959552E-01_JPRB, 0.911770E-01_JPRB, 0.865835E-01_JPRB &
+  &, 0.821868E-01_JPRB, 0.779406E-01_JPRB, 0.739152E-01_JPRB &
+  &, 0.700021E-01_JPRB, 0.663328E-01_JPRB, 0.627959E-01_JPRB, 0.594001E-01_JPRB &
+  &, 0.561541E-01_JPRB, 0.530669E-01_JPRB, 0.500819E-01_JPRB/)
+XCW( 676, :) = (/ &
+  &  0.104284E+01_JPRB, 0.105266E+01_JPRB, 0.106212E+01_JPRB, 0.107120E+01_JPRB &
+  &, 0.107990E+01_JPRB, 0.108821E+01_JPRB, 0.109613E+01_JPRB &
+  &, 0.110364E+01_JPRB, 0.111074E+01_JPRB, 0.111742E+01_JPRB, 0.112369E+01_JPRB &
+  &, 0.112952E+01_JPRB, 0.113493E+01_JPRB, 0.113990E+01_JPRB &
+  &, 0.114442E+01_JPRB, 0.114850E+01_JPRB, 0.115212E+01_JPRB, 0.115529E+01_JPRB &
+  &, 0.115800E+01_JPRB, 0.116024E+01_JPRB, 0.116201E+01_JPRB &
+  &, 0.116332E+01_JPRB, 0.116415E+01_JPRB, 0.116451E+01_JPRB, 0.116439E+01_JPRB &
+  &, 0.116380E+01_JPRB, 0.116273E+01_JPRB, 0.116118E+01_JPRB &
+  &, 0.115915E+01_JPRB, 0.115665E+01_JPRB, 0.115367E+01_JPRB, 0.115023E+01_JPRB &
+  &, 0.114631E+01_JPRB, 0.114192E+01_JPRB, 0.113707E+01_JPRB &
+  &, 0.113176E+01_JPRB, 0.112600E+01_JPRB, 0.111980E+01_JPRB, 0.111315E+01_JPRB &
+  &, 0.110605E+01_JPRB, 0.109855E+01_JPRB, 0.109062E+01_JPRB &
+  &, 0.108228E+01_JPRB, 0.107353E+01_JPRB, 0.106439E+01_JPRB, 0.105486E+01_JPRB &
+  &, 0.104496E+01_JPRB, 0.103470E+01_JPRB, 0.102408E+01_JPRB &
+  &, 0.101312E+01_JPRB, 0.100184E+01_JPRB, 0.990235E+00_JPRB, 0.978319E+00_JPRB &
+  &, 0.966126E+00_JPRB, 0.953637E+00_JPRB, 0.940892E+00_JPRB &
+  &, 0.927905E+00_JPRB, 0.914657E+00_JPRB, 0.901177E+00_JPRB, 0.887529E+00_JPRB &
+  &, 0.873666E+00_JPRB, 0.859617E+00_JPRB, 0.845401E+00_JPRB &
+  &, 0.831035E+00_JPRB, 0.816535E+00_JPRB, 0.801902E+00_JPRB, 0.787151E+00_JPRB &
+  &, 0.772322E+00_JPRB, 0.757413E+00_JPRB, 0.742440E+00_JPRB &
+  &, 0.727402E+00_JPRB, 0.712337E+00_JPRB, 0.697241E+00_JPRB, 0.682130E+00_JPRB &
+  &, 0.667044E+00_JPRB, 0.651954E+00_JPRB, 0.636897E+00_JPRB &
+  &, 0.621891E+00_JPRB, 0.606949E+00_JPRB, 0.592062E+00_JPRB, 0.577241E+00_JPRB &
+  &, 0.562526E+00_JPRB, 0.547902E+00_JPRB, 0.533408E+00_JPRB &
+  &, 0.519028E+00_JPRB, 0.504769E+00_JPRB, 0.490670E+00_JPRB, 0.476709E+00_JPRB &
+  &, 0.462923E+00_JPRB, 0.449287E+00_JPRB, 0.435838E+00_JPRB &
+  &, 0.422579E+00_JPRB, 0.409513E+00_JPRB, 0.396642E+00_JPRB, 0.383968E+00_JPRB &
+  &, 0.371521E+00_JPRB, 0.359303E+00_JPRB, 0.347276E+00_JPRB &
+  &, 0.335469E+00_JPRB, 0.323915E+00_JPRB, 0.312608E+00_JPRB, 0.301503E+00_JPRB &
+  &, 0.290628E+00_JPRB, 0.280050E+00_JPRB, 0.269682E+00_JPRB &
+  &, 0.259550E+00_JPRB, 0.249680E+00_JPRB, 0.240017E+00_JPRB, 0.230668E+00_JPRB &
+  &, 0.221533E+00_JPRB, 0.212635E+00_JPRB, 0.203998E+00_JPRB &
+  &, 0.195600E+00_JPRB, 0.187418E+00_JPRB, 0.179519E+00_JPRB, 0.171832E+00_JPRB &
+  &, 0.164423E+00_JPRB, 0.157220E+00_JPRB, 0.150238E+00_JPRB &
+  &, 0.143496E+00_JPRB, 0.137014E+00_JPRB, 0.130708E+00_JPRB, 0.124644E+00_JPRB &
+  &, 0.118787E+00_JPRB, 0.113152E+00_JPRB, 0.107756E+00_JPRB &
+  &, 0.102505E+00_JPRB, 0.974648E-01_JPRB, 0.926511E-01_JPRB, 0.880206E-01_JPRB &
+  &, 0.835856E-01_JPRB, 0.792995E-01_JPRB, 0.751729E-01_JPRB &
+  &, 0.712769E-01_JPRB, 0.675017E-01_JPRB, 0.639182E-01_JPRB, 0.604741E-01_JPRB &
+  &, 0.571784E-01_JPRB, 0.540399E-01_JPRB, 0.510676E-01_JPRB/)
+XCW( 677, :) = (/ &
+  &  0.104312E+01_JPRB, 0.105302E+01_JPRB, 0.106256E+01_JPRB, 0.107171E+01_JPRB &
+  &, 0.108049E+01_JPRB, 0.108888E+01_JPRB, 0.109687E+01_JPRB &
+  &, 0.110446E+01_JPRB, 0.111164E+01_JPRB, 0.111840E+01_JPRB, 0.112474E+01_JPRB &
+  &, 0.113066E+01_JPRB, 0.113615E+01_JPRB, 0.114119E+01_JPRB &
+  &, 0.114580E+01_JPRB, 0.114996E+01_JPRB, 0.115366E+01_JPRB, 0.115691E+01_JPRB &
+  &, 0.115970E+01_JPRB, 0.116202E+01_JPRB, 0.116388E+01_JPRB &
+  &, 0.116526E+01_JPRB, 0.116618E+01_JPRB, 0.116661E+01_JPRB, 0.116658E+01_JPRB &
+  &, 0.116606E+01_JPRB, 0.116507E+01_JPRB, 0.116359E+01_JPRB &
+  &, 0.116165E+01_JPRB, 0.115923E+01_JPRB, 0.115633E+01_JPRB, 0.115295E+01_JPRB &
+  &, 0.114911E+01_JPRB, 0.114480E+01_JPRB, 0.114002E+01_JPRB &
+  &, 0.113479E+01_JPRB, 0.112910E+01_JPRB, 0.112296E+01_JPRB, 0.111638E+01_JPRB &
+  &, 0.110936E+01_JPRB, 0.110191E+01_JPRB, 0.109404E+01_JPRB &
+  &, 0.108577E+01_JPRB, 0.107708E+01_JPRB, 0.106799E+01_JPRB, 0.105852E+01_JPRB &
+  &, 0.104868E+01_JPRB, 0.103846E+01_JPRB, 0.102791E+01_JPRB &
+  &, 0.101699E+01_JPRB, 0.100575E+01_JPRB, 0.994191E+00_JPRB, 0.982328E+00_JPRB &
+  &, 0.970173E+00_JPRB, 0.957720E+00_JPRB, 0.945011E+00_JPRB &
+  &, 0.932058E+00_JPRB, 0.918843E+00_JPRB, 0.905411E+00_JPRB, 0.891778E+00_JPRB &
+  &, 0.877926E+00_JPRB, 0.863905E+00_JPRB, 0.849715E+00_JPRB &
+  &, 0.835354E+00_JPRB, 0.820857E+00_JPRB, 0.806243E+00_JPRB, 0.791510E+00_JPRB &
+  &, 0.776696E+00_JPRB, 0.761780E+00_JPRB, 0.746797E+00_JPRB &
+  &, 0.731768E+00_JPRB, 0.716708E+00_JPRB, 0.701594E+00_JPRB, 0.686483E+00_JPRB &
+  &, 0.671372E+00_JPRB, 0.656277E+00_JPRB, 0.641213E+00_JPRB &
+  &, 0.626171E+00_JPRB, 0.611216E+00_JPRB, 0.596286E+00_JPRB, 0.581446E+00_JPRB &
+  &, 0.566708E+00_JPRB, 0.552058E+00_JPRB, 0.537535E+00_JPRB &
+  &, 0.523093E+00_JPRB, 0.508827E+00_JPRB, 0.494457E+00_JPRB, 0.480684E+00_JPRB &
+  &, 0.466852E+00_JPRB, 0.453167E+00_JPRB, 0.439663E+00_JPRB &
+  &, 0.426379E+00_JPRB, 0.413252E+00_JPRB, 0.400317E+00_JPRB, 0.387607E+00_JPRB &
+  &, 0.375089E+00_JPRB, 0.362795E+00_JPRB, 0.350722E+00_JPRB &
+  &, 0.338868E+00_JPRB, 0.327262E+00_JPRB, 0.315864E+00_JPRB, 0.304701E+00_JPRB &
+  &, 0.293803E+00_JPRB, 0.283122E+00_JPRB, 0.272686E+00_JPRB &
+  &, 0.262483E+00_JPRB, 0.252579E+00_JPRB, 0.242880E+00_JPRB, 0.233408E+00_JPRB &
+  &, 0.224231E+00_JPRB, 0.215245E+00_JPRB, 0.206561E+00_JPRB &
+  &, 0.198068E+00_JPRB, 0.189878E+00_JPRB, 0.181878E+00_JPRB, 0.174180E+00_JPRB &
+  &, 0.166665E+00_JPRB, 0.159398E+00_JPRB, 0.152350E+00_JPRB &
+  &, 0.145590E+00_JPRB, 0.138987E+00_JPRB, 0.132658E+00_JPRB, 0.126518E+00_JPRB &
+  &, 0.120636E+00_JPRB, 0.114921E+00_JPRB, 0.109442E+00_JPRB &
+  &, 0.104159E+00_JPRB, 0.990863E-01_JPRB, 0.941819E-01_JPRB, 0.894577E-01_JPRB &
+  &, 0.849843E-01_JPRB, 0.806584E-01_JPRB, 0.764905E-01_JPRB &
+  &, 0.724910E-01_JPRB, 0.687322E-01_JPRB, 0.650405E-01_JPRB, 0.616114E-01_JPRB &
+  &, 0.582667E-01_JPRB, 0.550776E-01_JPRB, 0.520532E-01_JPRB/)
+XCW( 678, :) = (/ &
+  &  0.104341E+01_JPRB, 0.105338E+01_JPRB, 0.106299E+01_JPRB, 0.107223E+01_JPRB &
+  &, 0.108108E+01_JPRB, 0.108954E+01_JPRB, 0.109761E+01_JPRB &
+  &, 0.110528E+01_JPRB, 0.111254E+01_JPRB, 0.111938E+01_JPRB, 0.112580E+01_JPRB &
+  &, 0.113180E+01_JPRB, 0.113737E+01_JPRB, 0.114250E+01_JPRB &
+  &, 0.114718E+01_JPRB, 0.115142E+01_JPRB, 0.115521E+01_JPRB, 0.115854E+01_JPRB &
+  &, 0.116141E+01_JPRB, 0.116381E+01_JPRB, 0.116575E+01_JPRB &
+  &, 0.116721E+01_JPRB, 0.116821E+01_JPRB, 0.116873E+01_JPRB, 0.116877E+01_JPRB &
+  &, 0.116834E+01_JPRB, 0.116742E+01_JPRB, 0.116603E+01_JPRB &
+  &, 0.116416E+01_JPRB, 0.116181E+01_JPRB, 0.115899E+01_JPRB, 0.115569E+01_JPRB &
+  &, 0.115192E+01_JPRB, 0.114768E+01_JPRB, 0.114298E+01_JPRB &
+  &, 0.113782E+01_JPRB, 0.113220E+01_JPRB, 0.112613E+01_JPRB, 0.111962E+01_JPRB &
+  &, 0.111267E+01_JPRB, 0.110529E+01_JPRB, 0.109748E+01_JPRB &
+  &, 0.108926E+01_JPRB, 0.108063E+01_JPRB, 0.107161E+01_JPRB, 0.106219E+01_JPRB &
+  &, 0.105240E+01_JPRB, 0.104225E+01_JPRB, 0.103173E+01_JPRB &
+  &, 0.102088E+01_JPRB, 0.100968E+01_JPRB, 0.998174E+00_JPRB, 0.986350E+00_JPRB &
+  &, 0.974233E+00_JPRB, 0.961818E+00_JPRB, 0.949145E+00_JPRB &
+  &, 0.936227E+00_JPRB, 0.923045E+00_JPRB, 0.909646E+00_JPRB, 0.896027E+00_JPRB &
+  &, 0.882221E+00_JPRB, 0.868210E+00_JPRB, 0.854028E+00_JPRB &
+  &, 0.839709E+00_JPRB, 0.825216E+00_JPRB, 0.810622E+00_JPRB, 0.795888E+00_JPRB &
+  &, 0.781070E+00_JPRB, 0.766167E+00_JPRB, 0.751196E+00_JPRB &
+  &, 0.736154E+00_JPRB, 0.721079E+00_JPRB, 0.705990E+00_JPRB, 0.690858E+00_JPRB &
+  &, 0.675746E+00_JPRB, 0.660623E+00_JPRB, 0.645552E+00_JPRB &
+  &, 0.630501E+00_JPRB, 0.615483E+00_JPRB, 0.600562E+00_JPRB, 0.585702E+00_JPRB &
+  &, 0.570916E+00_JPRB, 0.556240E+00_JPRB, 0.541661E+00_JPRB &
+  &, 0.527215E+00_JPRB, 0.512884E+00_JPRB, 0.498706E+00_JPRB, 0.484660E+00_JPRB &
+  &, 0.470781E+00_JPRB, 0.457076E+00_JPRB, 0.443551E+00_JPRB &
+  &, 0.430178E+00_JPRB, 0.417024E+00_JPRB, 0.404025E+00_JPRB, 0.391247E+00_JPRB &
+  &, 0.378691E+00_JPRB, 0.366356E+00_JPRB, 0.354204E+00_JPRB &
+  &, 0.342302E+00_JPRB, 0.330610E+00_JPRB, 0.319157E+00_JPRB, 0.307974E+00_JPRB &
+  &, 0.296978E+00_JPRB, 0.286233E+00_JPRB, 0.275730E+00_JPRB &
+  &, 0.265496E+00_JPRB, 0.255478E+00_JPRB, 0.245742E+00_JPRB, 0.236232E+00_JPRB &
+  &, 0.226929E+00_JPRB, 0.217942E+00_JPRB, 0.209167E+00_JPRB &
+  &, 0.200625E+00_JPRB, 0.192339E+00_JPRB, 0.184284E+00_JPRB, 0.176482E+00_JPRB &
+  &, 0.168906E+00_JPRB, 0.161624E+00_JPRB, 0.154512E+00_JPRB &
+  &, 0.147635E+00_JPRB, 0.141011E+00_JPRB, 0.134609E+00_JPRB, 0.128393E+00_JPRB &
+  &, 0.122432E+00_JPRB, 0.116690E+00_JPRB, 0.111127E+00_JPRB &
+  &, 0.105813E+00_JPRB, 0.100652E+00_JPRB, 0.957127E-01_JPRB, 0.909524E-01_JPRB &
+  &, 0.863831E-01_JPRB, 0.820173E-01_JPRB, 0.778081E-01_JPRB &
+  &, 0.737658E-01_JPRB, 0.699627E-01_JPRB, 0.662251E-01_JPRB, 0.626855E-01_JPRB &
+  &, 0.593550E-01_JPRB, 0.561154E-01_JPRB, 0.530389E-01_JPRB/)
+XCW( 679, :) = (/ &
+  &  0.104370E+01_JPRB, 0.105375E+01_JPRB, 0.106343E+01_JPRB, 0.107274E+01_JPRB &
+  &, 0.108167E+01_JPRB, 0.109021E+01_JPRB, 0.109835E+01_JPRB &
+  &, 0.110610E+01_JPRB, 0.111344E+01_JPRB, 0.112036E+01_JPRB, 0.112687E+01_JPRB &
+  &, 0.113294E+01_JPRB, 0.113859E+01_JPRB, 0.114380E+01_JPRB &
+  &, 0.114857E+01_JPRB, 0.115289E+01_JPRB, 0.115675E+01_JPRB, 0.116016E+01_JPRB &
+  &, 0.116312E+01_JPRB, 0.116560E+01_JPRB, 0.116762E+01_JPRB &
+  &, 0.116917E+01_JPRB, 0.117024E+01_JPRB, 0.117084E+01_JPRB, 0.117097E+01_JPRB &
+  &, 0.117061E+01_JPRB, 0.116978E+01_JPRB, 0.116846E+01_JPRB &
+  &, 0.116667E+01_JPRB, 0.116440E+01_JPRB, 0.116165E+01_JPRB, 0.115843E+01_JPRB &
+  &, 0.115474E+01_JPRB, 0.115058E+01_JPRB, 0.114595E+01_JPRB &
+  &, 0.114086E+01_JPRB, 0.113531E+01_JPRB, 0.112931E+01_JPRB, 0.112286E+01_JPRB &
+  &, 0.111598E+01_JPRB, 0.110867E+01_JPRB, 0.110092E+01_JPRB &
+  &, 0.109277E+01_JPRB, 0.108420E+01_JPRB, 0.107524E+01_JPRB, 0.106589E+01_JPRB &
+  &, 0.105615E+01_JPRB, 0.104605E+01_JPRB, 0.103559E+01_JPRB &
+  &, 0.102477E+01_JPRB, 0.101363E+01_JPRB, 0.100216E+01_JPRB, 0.990387E+00_JPRB &
+  &, 0.978309E+00_JPRB, 0.965946E+00_JPRB, 0.953309E+00_JPRB &
+  &, 0.940411E+00_JPRB, 0.927279E+00_JPRB, 0.913897E+00_JPRB, 0.900309E+00_JPRB &
+  &, 0.886516E+00_JPRB, 0.872533E+00_JPRB, 0.858377E+00_JPRB &
+  &, 0.844064E+00_JPRB, 0.829612E+00_JPRB, 0.815001E+00_JPRB, 0.800305E+00_JPRB &
+  &, 0.785484E+00_JPRB, 0.770595E+00_JPRB, 0.755615E+00_JPRB &
+  &, 0.740582E+00_JPRB, 0.725493E+00_JPRB, 0.710386E+00_JPRB, 0.695256E+00_JPRB &
+  &, 0.680120E+00_JPRB, 0.664993E+00_JPRB, 0.649891E+00_JPRB &
+  &, 0.634830E+00_JPRB, 0.619799E+00_JPRB, 0.604863E+00_JPRB, 0.589959E+00_JPRB &
+  &, 0.575150E+00_JPRB, 0.560450E+00_JPRB, 0.545842E+00_JPRB &
+  &, 0.531364E+00_JPRB, 0.516999E+00_JPRB, 0.502782E+00_JPRB, 0.488694E+00_JPRB &
+  &, 0.474770E+00_JPRB, 0.461017E+00_JPRB, 0.447439E+00_JPRB &
+  &, 0.434010E+00_JPRB, 0.420795E+00_JPRB, 0.407765E+00_JPRB, 0.394953E+00_JPRB &
+  &, 0.382326E+00_JPRB, 0.369916E+00_JPRB, 0.357721E+00_JPRB &
+  &, 0.345772E+00_JPRB, 0.334030E+00_JPRB, 0.322524E+00_JPRB, 0.311247E+00_JPRB &
+  &, 0.300191E+00_JPRB, 0.289383E+00_JPRB, 0.278814E+00_JPRB &
+  &, 0.268510E+00_JPRB, 0.258459E+00_JPRB, 0.248605E+00_JPRB, 0.239056E+00_JPRB &
+  &, 0.229712E+00_JPRB, 0.219943E+00_JPRB, 0.211774E+00_JPRB &
+  &, 0.203183E+00_JPRB, 0.194845E+00_JPRB, 0.186736E+00_JPRB, 0.178877E+00_JPRB &
+  &, 0.171242E+00_JPRB, 0.163851E+00_JPRB, 0.156673E+00_JPRB &
+  &, 0.149728E+00_JPRB, 0.143035E+00_JPRB, 0.136560E+00_JPRB, 0.130321E+00_JPRB &
+  &, 0.124282E+00_JPRB, 0.118458E+00_JPRB, 0.112866E+00_JPRB &
+  &, 0.107467E+00_JPRB, 0.102273E+00_JPRB, 0.973002E-01_JPRB, 0.924470E-01_JPRB &
+  &, 0.878401E-01_JPRB, 0.834353E-01_JPRB, 0.791856E-01_JPRB &
+  &, 0.751013E-01_JPRB, 0.711932E-01_JPRB, 0.674721E-01_JPRB, 0.638859E-01_JPRB &
+  &, 0.604433E-01_JPRB, 0.571532E-01_JPRB, 0.540246E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART97',1,ZHOOK_HANDLE)
+END SUBROUTINE PART97
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART98
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART98',0,ZHOOK_HANDLE)
+
+XCW( 680, :) = (/ &
+  &  0.104399E+01_JPRB, 0.105411E+01_JPRB, 0.106387E+01_JPRB, 0.107325E+01_JPRB &
+  &, 0.108226E+01_JPRB, 0.109087E+01_JPRB, 0.109910E+01_JPRB &
+  &, 0.110692E+01_JPRB, 0.111434E+01_JPRB, 0.112134E+01_JPRB, 0.112793E+01_JPRB &
+  &, 0.113409E+01_JPRB, 0.113981E+01_JPRB, 0.114510E+01_JPRB &
+  &, 0.114995E+01_JPRB, 0.115436E+01_JPRB, 0.115829E+01_JPRB, 0.116180E+01_JPRB &
+  &, 0.116483E+01_JPRB, 0.116740E+01_JPRB, 0.116950E+01_JPRB &
+  &, 0.117113E+01_JPRB, 0.117229E+01_JPRB, 0.117296E+01_JPRB, 0.117317E+01_JPRB &
+  &, 0.117289E+01_JPRB, 0.117214E+01_JPRB, 0.117091E+01_JPRB &
+  &, 0.116919E+01_JPRB, 0.116700E+01_JPRB, 0.116433E+01_JPRB, 0.116119E+01_JPRB &
+  &, 0.115757E+01_JPRB, 0.115348E+01_JPRB, 0.114892E+01_JPRB &
+  &, 0.114390E+01_JPRB, 0.113843E+01_JPRB, 0.113250E+01_JPRB, 0.112612E+01_JPRB &
+  &, 0.111931E+01_JPRB, 0.111206E+01_JPRB, 0.110438E+01_JPRB &
+  &, 0.109629E+01_JPRB, 0.108779E+01_JPRB, 0.107888E+01_JPRB, 0.106958E+01_JPRB &
+  &, 0.105991E+01_JPRB, 0.104986E+01_JPRB, 0.103945E+01_JPRB &
+  &, 0.102869E+01_JPRB, 0.101760E+01_JPRB, 0.100617E+01_JPRB, 0.994438E+00_JPRB &
+  &, 0.982398E+00_JPRB, 0.970073E+00_JPRB, 0.957473E+00_JPRB &
+  &, 0.944626E+00_JPRB, 0.931513E+00_JPRB, 0.918180E+00_JPRB, 0.904608E+00_JPRB &
+  &, 0.890845E+00_JPRB, 0.876890E+00_JPRB, 0.862743E+00_JPRB &
+  &, 0.848455E+00_JPRB, 0.834008E+00_JPRB, 0.819418E+00_JPRB, 0.804721E+00_JPRB &
+  &, 0.789917E+00_JPRB, 0.775022E+00_JPRB, 0.760055E+00_JPRB &
+  &, 0.745011E+00_JPRB, 0.729929E+00_JPRB, 0.714827E+00_JPRB, 0.699677E+00_JPRB &
+  &, 0.684540E+00_JPRB, 0.669410E+00_JPRB, 0.654278E+00_JPRB &
+  &, 0.639208E+00_JPRB, 0.624165E+00_JPRB, 0.609164E+00_JPRB, 0.594267E+00_JPRB &
+  &, 0.579437E+00_JPRB, 0.564686E+00_JPRB, 0.550050E+00_JPRB &
+  &, 0.535541E+00_JPRB, 0.521141E+00_JPRB, 0.506858E+00_JPRB, 0.492758E+00_JPRB &
+  &, 0.478789E+00_JPRB, 0.464987E+00_JPRB, 0.451358E+00_JPRB &
+  &, 0.437905E+00_JPRB, 0.424631E+00_JPRB, 0.411538E+00_JPRB, 0.398659E+00_JPRB &
+  &, 0.385996E+00_JPRB, 0.373512E+00_JPRB, 0.361273E+00_JPRB &
+  &, 0.349243E+00_JPRB, 0.337450E+00_JPRB, 0.325891E+00_JPRB, 0.314521E+00_JPRB &
+  &, 0.303443E+00_JPRB, 0.292572E+00_JPRB, 0.281936E+00_JPRB &
+  &, 0.271563E+00_JPRB, 0.261439E+00_JPRB, 0.251551E+00_JPRB, 0.241880E+00_JPRB &
+  &, 0.232496E+00_JPRB, 0.223336E+00_JPRB, 0.214425E+00_JPRB &
+  &, 0.205786E+00_JPRB, 0.197351E+00_JPRB, 0.189188E+00_JPRB, 0.181226E+00_JPRB &
+  &, 0.173531E+00_JPRB, 0.166077E+00_JPRB, 0.158884E+00_JPRB &
+  &, 0.151872E+00_JPRB, 0.145109E+00_JPRB, 0.138613E+00_JPRB, 0.132300E+00_JPRB &
+  &, 0.126184E+00_JPRB, 0.120281E+00_JPRB, 0.114660E+00_JPRB &
+  &, 0.109176E+00_JPRB, 0.103895E+00_JPRB, 0.988877E-01_JPRB, 0.939991E-01_JPRB &
+  &, 0.893554E-01_JPRB, 0.848533E-01_JPRB, 0.805630E-01_JPRB &
+  &, 0.764368E-01_JPRB, 0.724236E-01_JPRB, 0.686567E-01_JPRB, 0.650232E-01_JPRB &
+  &, 0.615957E-01_JPRB, 0.582559E-01_JPRB, 0.550759E-01_JPRB/)
+XCW( 681, :) = (/ &
+  &  0.104427E+01_JPRB, 0.105447E+01_JPRB, 0.106430E+01_JPRB, 0.107377E+01_JPRB &
+  &, 0.108285E+01_JPRB, 0.109154E+01_JPRB, 0.109985E+01_JPRB &
+  &, 0.110775E+01_JPRB, 0.111525E+01_JPRB, 0.112233E+01_JPRB, 0.112899E+01_JPRB &
+  &, 0.113523E+01_JPRB, 0.114104E+01_JPRB, 0.114641E+01_JPRB &
+  &, 0.115134E+01_JPRB, 0.115583E+01_JPRB, 0.115986E+01_JPRB, 0.116343E+01_JPRB &
+  &, 0.116655E+01_JPRB, 0.116920E+01_JPRB, 0.117138E+01_JPRB &
+  &, 0.117309E+01_JPRB, 0.117433E+01_JPRB, 0.117509E+01_JPRB, 0.117538E+01_JPRB &
+  &, 0.117517E+01_JPRB, 0.117451E+01_JPRB, 0.117336E+01_JPRB &
+  &, 0.117172E+01_JPRB, 0.116961E+01_JPRB, 0.116701E+01_JPRB, 0.116395E+01_JPRB &
+  &, 0.116040E+01_JPRB, 0.115639E+01_JPRB, 0.115191E+01_JPRB &
+  &, 0.114696E+01_JPRB, 0.114156E+01_JPRB, 0.113570E+01_JPRB, 0.112939E+01_JPRB &
+  &, 0.112265E+01_JPRB, 0.111547E+01_JPRB, 0.110785E+01_JPRB &
+  &, 0.109982E+01_JPRB, 0.109138E+01_JPRB, 0.108254E+01_JPRB, 0.107329E+01_JPRB &
+  &, 0.106368E+01_JPRB, 0.105289E+01_JPRB, 0.104333E+01_JPRB &
+  &, 0.103262E+01_JPRB, 0.102157E+01_JPRB, 0.101019E+01_JPRB, 0.998503E+00_JPRB &
+  &, 0.986517E+00_JPRB, 0.974230E+00_JPRB, 0.961668E+00_JPRB &
+  &, 0.948842E+00_JPRB, 0.935779E+00_JPRB, 0.922463E+00_JPRB, 0.908923E+00_JPRB &
+  &, 0.895190E+00_JPRB, 0.881248E+00_JPRB, 0.867145E+00_JPRB &
+  &, 0.852865E+00_JPRB, 0.838423E+00_JPRB, 0.823854E+00_JPRB, 0.809177E+00_JPRB &
+  &, 0.794370E+00_JPRB, 0.779490E+00_JPRB, 0.764515E+00_JPRB &
+  &, 0.749482E+00_JPRB, 0.734386E+00_JPRB, 0.719267E+00_JPRB, 0.704142E+00_JPRB &
+  &, 0.688982E+00_JPRB, 0.673826E+00_JPRB, 0.658689E+00_JPRB &
+  &, 0.643586E+00_JPRB, 0.628531E+00_JPRB, 0.613515E+00_JPRB, 0.598575E+00_JPRB &
+  &, 0.583724E+00_JPRB, 0.568948E+00_JPRB, 0.554285E+00_JPRB &
+  &, 0.539718E+00_JPRB, 0.525284E+00_JPRB, 0.510992E+00_JPRB, 0.496822E+00_JPRB &
+  &, 0.482838E+00_JPRB, 0.468989E+00_JPRB, 0.455308E+00_JPRB &
+  &, 0.441799E+00_JPRB, 0.428467E+00_JPRB, 0.415344E+00_JPRB, 0.402399E+00_JPRB &
+  &, 0.389665E+00_JPRB, 0.377176E+00_JPRB, 0.364861E+00_JPRB &
+  &, 0.352784E+00_JPRB, 0.340907E+00_JPRB, 0.329259E+00_JPRB, 0.317870E+00_JPRB &
+  &, 0.306694E+00_JPRB, 0.295800E+00_JPRB, 0.285099E+00_JPRB &
+  &, 0.274657E+00_JPRB, 0.264461E+00_JPRB, 0.254496E+00_JPRB, 0.244789E+00_JPRB &
+  &, 0.235322E+00_JPRB, 0.226077E+00_JPRB, 0.217120E+00_JPRB &
+  &, 0.208388E+00_JPRB, 0.199903E+00_JPRB, 0.191686E+00_JPRB, 0.183668E+00_JPRB &
+  &, 0.175915E+00_JPRB, 0.168400E+00_JPRB, 0.161095E+00_JPRB &
+  &, 0.154066E+00_JPRB, 0.147234E+00_JPRB, 0.140615E+00_JPRB, 0.134227E+00_JPRB &
+  &, 0.128086E+00_JPRB, 0.122156E+00_JPRB, 0.116400E+00_JPRB &
+  &, 0.110885E+00_JPRB, 0.105572E+00_JPRB, 0.100475E+00_JPRB, 0.955512E-01_JPRB &
+  &, 0.908125E-01_JPRB, 0.862713E-01_JPRB, 0.819405E-01_JPRB &
+  &, 0.777723E-01_JPRB, 0.737156E-01_JPRB, 0.699037E-01_JPRB, 0.662236E-01_JPRB &
+  &, 0.626840E-01_JPRB, 0.593585E-01_JPRB, 0.561273E-01_JPRB/)
+XCW( 682, :) = (/ &
+  &  0.104456E+01_JPRB, 0.105483E+01_JPRB, 0.106474E+01_JPRB, 0.107428E+01_JPRB &
+  &, 0.108344E+01_JPRB, 0.109221E+01_JPRB, 0.110059E+01_JPRB &
+  &, 0.110858E+01_JPRB, 0.111615E+01_JPRB, 0.112332E+01_JPRB, 0.113006E+01_JPRB &
+  &, 0.113638E+01_JPRB, 0.114227E+01_JPRB, 0.114772E+01_JPRB &
+  &, 0.115274E+01_JPRB, 0.115730E+01_JPRB, 0.116142E+01_JPRB, 0.116507E+01_JPRB &
+  &, 0.116827E+01_JPRB, 0.117100E+01_JPRB, 0.117327E+01_JPRB &
+  &, 0.117506E+01_JPRB, 0.117638E+01_JPRB, 0.117723E+01_JPRB, 0.117759E+01_JPRB &
+  &, 0.117748E+01_JPRB, 0.117688E+01_JPRB, 0.117581E+01_JPRB &
+  &, 0.117426E+01_JPRB, 0.117222E+01_JPRB, 0.116971E+01_JPRB, 0.116671E+01_JPRB &
+  &, 0.116325E+01_JPRB, 0.115931E+01_JPRB, 0.115489E+01_JPRB &
+  &, 0.115003E+01_JPRB, 0.114469E+01_JPRB, 0.113891E+01_JPRB, 0.113268E+01_JPRB &
+  &, 0.112599E+01_JPRB, 0.111888E+01_JPRB, 0.111134E+01_JPRB &
+  &, 0.110337E+01_JPRB, 0.109498E+01_JPRB, 0.108620E+01_JPRB, 0.107702E+01_JPRB &
+  &, 0.106746E+01_JPRB, 0.105752E+01_JPRB, 0.104722E+01_JPRB &
+  &, 0.103656E+01_JPRB, 0.102556E+01_JPRB, 0.101423E+01_JPRB, 0.100260E+01_JPRB &
+  &, 0.990650E+00_JPRB, 0.978402E+00_JPRB, 0.965878E+00_JPRB &
+  &, 0.953088E+00_JPRB, 0.940045E+00_JPRB, 0.926779E+00_JPRB, 0.913271E+00_JPRB &
+  &, 0.899553E+00_JPRB, 0.885640E+00_JPRB, 0.871547E+00_JPRB &
+  &, 0.857293E+00_JPRB, 0.842875E+00_JPRB, 0.828328E+00_JPRB, 0.813652E+00_JPRB &
+  &, 0.798863E+00_JPRB, 0.783979E+00_JPRB, 0.768996E+00_JPRB &
+  &, 0.753973E+00_JPRB, 0.738886E+00_JPRB, 0.723751E+00_JPRB, 0.708607E+00_JPRB &
+  &, 0.693448E+00_JPRB, 0.678289E+00_JPRB, 0.663123E+00_JPRB &
+  &, 0.648012E+00_JPRB, 0.632922E+00_JPRB, 0.617892E+00_JPRB, 0.602935E+00_JPRB &
+  &, 0.588064E+00_JPRB, 0.573265E+00_JPRB, 0.558548E+00_JPRB &
+  &, 0.543951E+00_JPRB, 0.529483E+00_JPRB, 0.515155E+00_JPRB, 0.500944E+00_JPRB &
+  &, 0.486887E+00_JPRB, 0.472990E+00_JPRB, 0.459289E+00_JPRB &
+  &, 0.445726E+00_JPRB, 0.432367E+00_JPRB, 0.419182E+00_JPRB, 0.406172E+00_JPRB &
+  &, 0.393403E+00_JPRB, 0.380841E+00_JPRB, 0.368448E+00_JPRB &
+  &, 0.356326E+00_JPRB, 0.344400E+00_JPRB, 0.332700E+00_JPRB, 0.321256E+00_JPRB &
+  &, 0.310022E+00_JPRB, 0.299028E+00_JPRB, 0.288261E+00_JPRB &
+  &, 0.277750E+00_JPRB, 0.267482E+00_JPRB, 0.257483E+00_JPRB, 0.247697E+00_JPRB &
+  &, 0.238148E+00_JPRB, 0.228861E+00_JPRB, 0.219859E+00_JPRB &
+  &, 0.211035E+00_JPRB, 0.202500E+00_JPRB, 0.194185E+00_JPRB, 0.186111E+00_JPRB &
+  &, 0.178299E+00_JPRB, 0.170724E+00_JPRB, 0.163354E+00_JPRB &
+  &, 0.156210E+00_JPRB, 0.149359E+00_JPRB, 0.142669E+00_JPRB, 0.136258E+00_JPRB &
+  &, 0.130041E+00_JPRB, 0.124032E+00_JPRB, 0.118248E+00_JPRB &
+  &, 0.112649E+00_JPRB, 0.107305E+00_JPRB, 0.102119E+00_JPRB, 0.971608E-01_JPRB &
+  &, 0.923278E-01_JPRB, 0.877484E-01_JPRB, 0.833180E-01_JPRB &
+  &, 0.791078E-01_JPRB, 0.750692E-01_JPRB, 0.711507E-01_JPRB, 0.674240E-01_JPRB &
+  &, 0.639003E-01_JPRB, 0.604612E-01_JPRB, 0.571787E-01_JPRB/)
+XCW( 683, :) = (/ &
+  &  0.104485E+01_JPRB, 0.105520E+01_JPRB, 0.106518E+01_JPRB, 0.107480E+01_JPRB &
+  &, 0.108403E+01_JPRB, 0.109288E+01_JPRB, 0.110134E+01_JPRB &
+  &, 0.110940E+01_JPRB, 0.111706E+01_JPRB, 0.112430E+01_JPRB, 0.113113E+01_JPRB &
+  &, 0.113753E+01_JPRB, 0.114350E+01_JPRB, 0.114904E+01_JPRB &
+  &, 0.115413E+01_JPRB, 0.115878E+01_JPRB, 0.116298E+01_JPRB, 0.116672E+01_JPRB &
+  &, 0.117000E+01_JPRB, 0.117281E+01_JPRB, 0.117516E+01_JPRB &
+  &, 0.117704E+01_JPRB, 0.117844E+01_JPRB, 0.117936E+01_JPRB, 0.117981E+01_JPRB &
+  &, 0.117978E+01_JPRB, 0.117927E+01_JPRB, 0.117827E+01_JPRB &
+  &, 0.117680E+01_JPRB, 0.117484E+01_JPRB, 0.117241E+01_JPRB, 0.116949E+01_JPRB &
+  &, 0.116610E+01_JPRB, 0.116224E+01_JPRB, 0.115791E+01_JPRB &
+  &, 0.115311E+01_JPRB, 0.114785E+01_JPRB, 0.114213E+01_JPRB, 0.113597E+01_JPRB &
+  &, 0.112935E+01_JPRB, 0.112231E+01_JPRB, 0.111483E+01_JPRB &
+  &, 0.110692E+01_JPRB, 0.109860E+01_JPRB, 0.108989E+01_JPRB, 0.108077E+01_JPRB &
+  &, 0.107126E+01_JPRB, 0.106138E+01_JPRB, 0.105112E+01_JPRB &
+  &, 0.104053E+01_JPRB, 0.102958E+01_JPRB, 0.101830E+01_JPRB, 0.100670E+01_JPRB &
+  &, 0.994797E+00_JPRB, 0.982589E+00_JPRB, 0.970102E+00_JPRB &
+  &, 0.957349E+00_JPRB, 0.944342E+00_JPRB, 0.931111E+00_JPRB, 0.917636E+00_JPRB &
+  &, 0.903950E+00_JPRB, 0.890049E+00_JPRB, 0.875985E+00_JPRB &
+  &, 0.861739E+00_JPRB, 0.847345E+00_JPRB, 0.832802E+00_JPRB, 0.818146E+00_JPRB &
+  &, 0.803356E+00_JPRB, 0.788487E+00_JPRB, 0.773518E+00_JPRB &
+  &, 0.758486E+00_JPRB, 0.743408E+00_JPRB, 0.728258E+00_JPRB, 0.713117E+00_JPRB &
+  &, 0.697936E+00_JPRB, 0.682753E+00_JPRB, 0.667606E+00_JPRB &
+  &, 0.652463E+00_JPRB, 0.637363E+00_JPRB, 0.622319E+00_JPRB, 0.607320E+00_JPRB &
+  &, 0.592403E+00_JPRB, 0.577581E+00_JPRB, 0.562838E+00_JPRB &
+  &, 0.548212E+00_JPRB, 0.533711E+00_JPRB, 0.519347E+00_JPRB, 0.505096E+00_JPRB &
+  &, 0.490996E+00_JPRB, 0.477052E+00_JPRB, 0.463301E+00_JPRB &
+  &, 0.449684E+00_JPRB, 0.436267E+00_JPRB, 0.423021E+00_JPRB, 0.410012E+00_JPRB &
+  &, 0.397174E+00_JPRB, 0.384540E+00_JPRB, 0.372106E+00_JPRB &
+  &, 0.359903E+00_JPRB, 0.347930E+00_JPRB, 0.336178E+00_JPRB, 0.324642E+00_JPRB &
+  &, 0.313351E+00_JPRB, 0.302294E+00_JPRB, 0.291503E+00_JPRB &
+  &, 0.280924E+00_JPRB, 0.270585E+00_JPRB, 0.260470E+00_JPRB, 0.250648E+00_JPRB &
+  &, 0.241060E+00_JPRB, 0.231688E+00_JPRB, 0.222599E+00_JPRB &
+  &, 0.213728E+00_JPRB, 0.205097E+00_JPRB, 0.196729E+00_JPRB, 0.188600E+00_JPRB &
+  &, 0.180731E+00_JPRB, 0.173047E+00_JPRB, 0.165614E+00_JPRB &
+  &, 0.158453E+00_JPRB, 0.151484E+00_JPRB, 0.144773E+00_JPRB, 0.138289E+00_JPRB &
+  &, 0.131996E+00_JPRB, 0.125908E+00_JPRB, 0.120097E+00_JPRB &
+  &, 0.114414E+00_JPRB, 0.108983E+00_JPRB, 0.103764E+00_JPRB, 0.987129E-01_JPRB &
+  &, 0.939014E-01_JPRB, 0.892255E-01_JPRB, 0.847554E-01_JPRB &
+  &, 0.805040E-01_JPRB, 0.763612E-01_JPRB, 0.724600E-01_JPRB, 0.686877E-01_JPRB &
+  &, 0.650527E-01_JPRB, 0.616287E-01_JPRB, 0.582958E-01_JPRB/)
+XCW( 684, :) = (/ &
+  &  0.104514E+01_JPRB, 0.105556E+01_JPRB, 0.106562E+01_JPRB, 0.107531E+01_JPRB &
+  &, 0.108463E+01_JPRB, 0.109356E+01_JPRB, 0.110209E+01_JPRB &
+  &, 0.111023E+01_JPRB, 0.111797E+01_JPRB, 0.112530E+01_JPRB, 0.113220E+01_JPRB &
+  &, 0.113869E+01_JPRB, 0.114474E+01_JPRB, 0.115036E+01_JPRB &
+  &, 0.115553E+01_JPRB, 0.116026E+01_JPRB, 0.116454E+01_JPRB, 0.116837E+01_JPRB &
+  &, 0.117173E+01_JPRB, 0.117463E+01_JPRB, 0.117706E+01_JPRB &
+  &, 0.117901E+01_JPRB, 0.118050E+01_JPRB, 0.118151E+01_JPRB, 0.118203E+01_JPRB &
+  &, 0.118209E+01_JPRB, 0.118166E+01_JPRB, 0.118074E+01_JPRB &
+  &, 0.117935E+01_JPRB, 0.117747E+01_JPRB, 0.117511E+01_JPRB, 0.117228E+01_JPRB &
+  &, 0.116896E+01_JPRB, 0.116518E+01_JPRB, 0.116092E+01_JPRB &
+  &, 0.115620E+01_JPRB, 0.115101E+01_JPRB, 0.114536E+01_JPRB, 0.113927E+01_JPRB &
+  &, 0.113272E+01_JPRB, 0.112574E+01_JPRB, 0.111833E+01_JPRB &
+  &, 0.111050E+01_JPRB, 0.110224E+01_JPRB, 0.109358E+01_JPRB, 0.108452E+01_JPRB &
+  &, 0.107507E+01_JPRB, 0.106524E+01_JPRB, 0.105505E+01_JPRB &
+  &, 0.104450E+01_JPRB, 0.103360E+01_JPRB, 0.102236E+01_JPRB, 0.101081E+01_JPRB &
+  &, 0.998959E+00_JPRB, 0.986790E+00_JPRB, 0.974357E+00_JPRB &
+  &, 0.961642E+00_JPRB, 0.948672E+00_JPRB, 0.935459E+00_JPRB, 0.922001E+00_JPRB &
+  &, 0.908346E+00_JPRB, 0.894493E+00_JPRB, 0.880440E+00_JPRB &
+  &, 0.866221E+00_JPRB, 0.851834E+00_JPRB, 0.837314E+00_JPRB, 0.822659E+00_JPRB &
+  &, 0.807888E+00_JPRB, 0.793016E+00_JPRB, 0.778061E+00_JPRB &
+  &, 0.763020E+00_JPRB, 0.747930E+00_JPRB, 0.732808E+00_JPRB, 0.717627E+00_JPRB &
+  &, 0.702447E+00_JPRB, 0.687263E+00_JPRB, 0.672088E+00_JPRB &
+  &, 0.656938E+00_JPRB, 0.641828E+00_JPRB, 0.626747E+00_JPRB, 0.611731E+00_JPRB &
+  &, 0.596796E+00_JPRB, 0.581924E+00_JPRB, 0.567156E+00_JPRB &
+  &, 0.552500E+00_JPRB, 0.537968E+00_JPRB, 0.523538E+00_JPRB, 0.509278E+00_JPRB &
+  &, 0.495135E+00_JPRB, 0.481145E+00_JPRB, 0.467344E+00_JPRB &
+  &, 0.453674E+00_JPRB, 0.440200E+00_JPRB, 0.426925E+00_JPRB, 0.413852E+00_JPRB &
+  &, 0.400946E+00_JPRB, 0.388273E+00_JPRB, 0.375798E+00_JPRB &
+  &, 0.363517E+00_JPRB, 0.351495E+00_JPRB, 0.339656E+00_JPRB, 0.328066E+00_JPRB &
+  &, 0.316717E+00_JPRB, 0.305600E+00_JPRB, 0.294744E+00_JPRB &
+  &, 0.284098E+00_JPRB, 0.273688E+00_JPRB, 0.263541E+00_JPRB, 0.253641E+00_JPRB &
+  &, 0.243972E+00_JPRB, 0.234559E+00_JPRB, 0.225382E+00_JPRB &
+  &, 0.216420E+00_JPRB, 0.207740E+00_JPRB, 0.199320E+00_JPRB, 0.191090E+00_JPRB &
+  &, 0.183163E+00_JPRB, 0.175419E+00_JPRB, 0.167923E+00_JPRB &
+  &, 0.160697E+00_JPRB, 0.153659E+00_JPRB, 0.146878E+00_JPRB, 0.140320E+00_JPRB &
+  &, 0.133951E+00_JPRB, 0.127838E+00_JPRB, 0.121945E+00_JPRB &
+  &, 0.116233E+00_JPRB, 0.110772E+00_JPRB, 0.105464E+00_JPRB, 0.100380E+00_JPRB &
+  &, 0.954750E-01_JPRB, 0.907616E-01_JPRB, 0.862527E-01_JPRB &
+  &, 0.819002E-01_JPRB, 0.777147E-01_JPRB, 0.737694E-01_JPRB, 0.698881E-01_JPRB &
+  &, 0.662690E-01_JPRB, 0.627313E-01_JPRB, 0.594129E-01_JPRB/)
+XCW( 685, :) = (/ &
+  &  0.104543E+01_JPRB, 0.105593E+01_JPRB, 0.106606E+01_JPRB, 0.107583E+01_JPRB &
+  &, 0.108522E+01_JPRB, 0.109423E+01_JPRB, 0.110285E+01_JPRB &
+  &, 0.111107E+01_JPRB, 0.111888E+01_JPRB, 0.112629E+01_JPRB, 0.113328E+01_JPRB &
+  &, 0.113984E+01_JPRB, 0.114598E+01_JPRB, 0.115168E+01_JPRB &
+  &, 0.115693E+01_JPRB, 0.116175E+01_JPRB, 0.116611E+01_JPRB, 0.117002E+01_JPRB &
+  &, 0.117346E+01_JPRB, 0.117644E+01_JPRB, 0.117896E+01_JPRB &
+  &, 0.118100E+01_JPRB, 0.118256E+01_JPRB, 0.118366E+01_JPRB, 0.118426E+01_JPRB &
+  &, 0.118440E+01_JPRB, 0.118405E+01_JPRB, 0.118322E+01_JPRB &
+  &, 0.118190E+01_JPRB, 0.118010E+01_JPRB, 0.117783E+01_JPRB, 0.117507E+01_JPRB &
+  &, 0.117183E+01_JPRB, 0.116812E+01_JPRB, 0.116394E+01_JPRB &
+  &, 0.115929E+01_JPRB, 0.115417E+01_JPRB, 0.114861E+01_JPRB, 0.114259E+01_JPRB &
+  &, 0.113611E+01_JPRB, 0.112920E+01_JPRB, 0.112185E+01_JPRB &
+  &, 0.111407E+01_JPRB, 0.110589E+01_JPRB, 0.109729E+01_JPRB, 0.108829E+01_JPRB &
+  &, 0.107889E+01_JPRB, 0.106913E+01_JPRB, 0.105899E+01_JPRB &
+  &, 0.104849E+01_JPRB, 0.103764E+01_JPRB, 0.102646E+01_JPRB, 0.101496E+01_JPRB &
+  &, 0.100314E+01_JPRB, 0.991021E+00_JPRB, 0.978612E+00_JPRB &
+  &, 0.965935E+00_JPRB, 0.953001E+00_JPRB, 0.939823E+00_JPRB, 0.926383E+00_JPRB &
+  &, 0.912777E+00_JPRB, 0.898937E+00_JPRB, 0.884913E+00_JPRB &
+  &, 0.870703E+00_JPRB, 0.856341E+00_JPRB, 0.841845E+00_JPRB, 0.827192E+00_JPRB &
+  &, 0.812440E+00_JPRB, 0.797565E+00_JPRB, 0.782625E+00_JPRB &
+  &, 0.767596E+00_JPRB, 0.752495E+00_JPRB, 0.737358E+00_JPRB, 0.722182E+00_JPRB &
+  &, 0.707005E+00_JPRB, 0.691796E+00_JPRB, 0.676618E+00_JPRB &
+  &, 0.661438E+00_JPRB, 0.646294E+00_JPRB, 0.631199E+00_JPRB, 0.616168E+00_JPRB &
+  &, 0.601214E+00_JPRB, 0.586321E+00_JPRB, 0.571528E+00_JPRB &
+  &, 0.556844E+00_JPRB, 0.542252E+00_JPRB, 0.527788E+00_JPRB, 0.513489E+00_JPRB &
+  &, 0.499304E+00_JPRB, 0.485269E+00_JPRB, 0.471418E+00_JPRB &
+  &, 0.457727E+00_JPRB, 0.444197E+00_JPRB, 0.430863E+00_JPRB, 0.417725E+00_JPRB &
+  &, 0.404751E+00_JPRB, 0.392042E+00_JPRB, 0.379491E+00_JPRB &
+  &, 0.367166E+00_JPRB, 0.355061E+00_JPRB, 0.343209E+00_JPRB, 0.331565E+00_JPRB &
+  &, 0.320122E+00_JPRB, 0.308945E+00_JPRB, 0.297986E+00_JPRB &
+  &, 0.287312E+00_JPRB, 0.276832E+00_JPRB, 0.266611E+00_JPRB, 0.256634E+00_JPRB &
+  &, 0.246884E+00_JPRB, 0.237430E+00_JPRB, 0.228166E+00_JPRB &
+  &, 0.219202E+00_JPRB, 0.210428E+00_JPRB, 0.201911E+00_JPRB, 0.193673E+00_JPRB &
+  &, 0.185643E+00_JPRB, 0.177839E+00_JPRB, 0.170281E+00_JPRB &
+  &, 0.162990E+00_JPRB, 0.155885E+00_JPRB, 0.149034E+00_JPRB, 0.142404E+00_JPRB &
+  &, 0.136011E+00_JPRB, 0.129821E+00_JPRB, 0.123848E+00_JPRB &
+  &, 0.118053E+00_JPRB, 0.112505E+00_JPRB, 0.107165E+00_JPRB, 0.101990E+00_JPRB &
+  &, 0.970486E-01_JPRB, 0.922978E-01_JPRB, 0.876900E-01_JPRB &
+  &, 0.832964E-01_JPRB, 0.791297E-01_JPRB, 0.750787E-01_JPRB, 0.712149E-01_JPRB &
+  &, 0.674853E-01_JPRB, 0.638988E-01_JPRB, 0.605300E-01_JPRB/)
+XCW( 686, :) = (/ &
+  &  0.104572E+01_JPRB, 0.105629E+01_JPRB, 0.106650E+01_JPRB, 0.107635E+01_JPRB &
+  &, 0.108582E+01_JPRB, 0.109490E+01_JPRB, 0.110360E+01_JPRB &
+  &, 0.111190E+01_JPRB, 0.111980E+01_JPRB, 0.112728E+01_JPRB, 0.113435E+01_JPRB &
+  &, 0.114100E+01_JPRB, 0.114722E+01_JPRB, 0.115300E+01_JPRB &
+  &, 0.115834E+01_JPRB, 0.116324E+01_JPRB, 0.116768E+01_JPRB, 0.117167E+01_JPRB &
+  &, 0.117520E+01_JPRB, 0.117827E+01_JPRB, 0.118086E+01_JPRB &
+  &, 0.118299E+01_JPRB, 0.118464E+01_JPRB, 0.118581E+01_JPRB, 0.118650E+01_JPRB &
+  &, 0.118672E+01_JPRB, 0.118645E+01_JPRB, 0.118570E+01_JPRB &
+  &, 0.118446E+01_JPRB, 0.118275E+01_JPRB, 0.118055E+01_JPRB, 0.117787E+01_JPRB &
+  &, 0.117471E+01_JPRB, 0.117108E+01_JPRB, 0.116697E+01_JPRB &
+  &, 0.116239E+01_JPRB, 0.115736E+01_JPRB, 0.115185E+01_JPRB, 0.114590E+01_JPRB &
+  &, 0.113950E+01_JPRB, 0.113265E+01_JPRB, 0.112538E+01_JPRB &
+  &, 0.111767E+01_JPRB, 0.110955E+01_JPRB, 0.110101E+01_JPRB, 0.109207E+01_JPRB &
+  &, 0.108274E+01_JPRB, 0.107303E+01_JPRB, 0.106294E+01_JPRB &
+  &, 0.105250E+01_JPRB, 0.104170E+01_JPRB, 0.103057E+01_JPRB, 0.101911E+01_JPRB &
+  &, 0.100734E+01_JPRB, 0.995267E+00_JPRB, 0.982898E+00_JPRB &
+  &, 0.970259E+00_JPRB, 0.957362E+00_JPRB, 0.944204E+00_JPRB, 0.930831E+00_JPRB &
+  &, 0.917225E+00_JPRB, 0.903416E+00_JPRB, 0.889404E+00_JPRB &
+  &, 0.875222E+00_JPRB, 0.860886E+00_JPRB, 0.846394E+00_JPRB, 0.831764E+00_JPRB &
+  &, 0.817012E+00_JPRB, 0.802155E+00_JPRB, 0.787209E+00_JPRB &
+  &, 0.772172E+00_JPRB, 0.757081E+00_JPRB, 0.741953E+00_JPRB, 0.726782E+00_JPRB &
+  &, 0.711562E+00_JPRB, 0.696353E+00_JPRB, 0.681124E+00_JPRB &
+  &, 0.665962E+00_JPRB, 0.650808E+00_JPRB, 0.635702E+00_JPRB, 0.620631E+00_JPRB &
+  &, 0.605659E+00_JPRB, 0.590745E+00_JPRB, 0.575900E+00_JPRB &
+  &, 0.561188E+00_JPRB, 0.546565E+00_JPRB, 0.532066E+00_JPRB, 0.517729E+00_JPRB &
+  &, 0.503503E+00_JPRB, 0.489423E+00_JPRB, 0.475524E+00_JPRB &
+  &, 0.461780E+00_JPRB, 0.448194E+00_JPRB, 0.434832E+00_JPRB, 0.421632E+00_JPRB &
+  &, 0.408625E+00_JPRB, 0.395810E+00_JPRB, 0.383219E+00_JPRB &
+  &, 0.370851E+00_JPRB, 0.358700E+00_JPRB, 0.346761E+00_JPRB, 0.335064E+00_JPRB &
+  &, 0.323564E+00_JPRB, 0.312328E+00_JPRB, 0.301306E+00_JPRB &
+  &, 0.290526E+00_JPRB, 0.280016E+00_JPRB, 0.269722E+00_JPRB, 0.259669E+00_JPRB &
+  &, 0.249882E+00_JPRB, 0.240345E+00_JPRB, 0.231037E+00_JPRB &
+  &, 0.221939E+00_JPRB, 0.213116E+00_JPRB, 0.204548E+00_JPRB, 0.196210E+00_JPRB &
+  &, 0.188122E+00_JPRB, 0.180259E+00_JPRB, 0.172639E+00_JPRB &
+  &, 0.165284E+00_JPRB, 0.158111E+00_JPRB, 0.151190E+00_JPRB, 0.144487E+00_JPRB &
+  &, 0.138019E+00_JPRB, 0.131804E+00_JPRB, 0.125750E+00_JPRB &
+  &, 0.119927E+00_JPRB, 0.114294E+00_JPRB, 0.108923E+00_JPRB, 0.103714E+00_JPRB &
+  &, 0.986805E-01_JPRB, 0.938340E-01_JPRB, 0.892472E-01_JPRB &
+  &, 0.847533E-01_JPRB, 0.804833E-01_JPRB, 0.763880E-01_JPRB, 0.724785E-01_JPRB &
+  &, 0.687017E-01_JPRB, 0.651312E-01_JPRB, 0.616470E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART98',1,ZHOOK_HANDLE)
+END SUBROUTINE PART98
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART99
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART99',0,ZHOOK_HANDLE)
+
+XCW( 687, :) = (/ &
+  &  0.104601E+01_JPRB, 0.105666E+01_JPRB, 0.106695E+01_JPRB, 0.107687E+01_JPRB &
+  &, 0.108641E+01_JPRB, 0.109558E+01_JPRB, 0.110435E+01_JPRB &
+  &, 0.111273E+01_JPRB, 0.112071E+01_JPRB, 0.112828E+01_JPRB, 0.113543E+01_JPRB &
+  &, 0.114216E+01_JPRB, 0.114846E+01_JPRB, 0.115432E+01_JPRB &
+  &, 0.115975E+01_JPRB, 0.116473E+01_JPRB, 0.116926E+01_JPRB, 0.117333E+01_JPRB &
+  &, 0.117694E+01_JPRB, 0.118009E+01_JPRB, 0.118277E+01_JPRB &
+  &, 0.118498E+01_JPRB, 0.118671E+01_JPRB, 0.118797E+01_JPRB, 0.118875E+01_JPRB &
+  &, 0.118904E+01_JPRB, 0.118886E+01_JPRB, 0.118819E+01_JPRB &
+  &, 0.118703E+01_JPRB, 0.118540E+01_JPRB, 0.118328E+01_JPRB, 0.118068E+01_JPRB &
+  &, 0.117760E+01_JPRB, 0.117404E+01_JPRB, 0.117002E+01_JPRB &
+  &, 0.116551E+01_JPRB, 0.116054E+01_JPRB, 0.115512E+01_JPRB, 0.114924E+01_JPRB &
+  &, 0.114291E+01_JPRB, 0.113613E+01_JPRB, 0.112892E+01_JPRB &
+  &, 0.112128E+01_JPRB, 0.111321E+01_JPRB, 0.110475E+01_JPRB, 0.109586E+01_JPRB &
+  &, 0.108659E+01_JPRB, 0.107694E+01_JPRB, 0.106691E+01_JPRB &
+  &, 0.105652E+01_JPRB, 0.104578E+01_JPRB, 0.103469E+01_JPRB, 0.102327E+01_JPRB &
+  &, 0.101155E+01_JPRB, 0.999513E+00_JPRB, 0.987198E+00_JPRB &
+  &, 0.974598E+00_JPRB, 0.961739E+00_JPRB, 0.948617E+00_JPRB, 0.935262E+00_JPRB &
+  &, 0.921689E+00_JPRB, 0.907912E+00_JPRB, 0.893930E+00_JPRB &
+  &, 0.879777E+00_JPRB, 0.865449E+00_JPRB, 0.850963E+00_JPRB, 0.836355E+00_JPRB &
+  &, 0.821604E+00_JPRB, 0.806764E+00_JPRB, 0.791814E+00_JPRB &
+  &, 0.776791E+00_JPRB, 0.761710E+00_JPRB, 0.746569E+00_JPRB, 0.731382E+00_JPRB &
+  &, 0.716165E+00_JPRB, 0.700956E+00_JPRB, 0.685725E+00_JPRB &
+  &, 0.670534E+00_JPRB, 0.655348E+00_JPRB, 0.640231E+00_JPRB, 0.625146E+00_JPRB &
+  &, 0.610130E+00_JPRB, 0.595169E+00_JPRB, 0.580327E+00_JPRB &
+  &, 0.565560E+00_JPRB, 0.550906E+00_JPRB, 0.536402E+00_JPRB, 0.521999E+00_JPRB &
+  &, 0.507732E+00_JPRB, 0.493607E+00_JPRB, 0.479660E+00_JPRB &
+  &, 0.465865E+00_JPRB, 0.452256E+00_JPRB, 0.438802E+00_JPRB, 0.425572E+00_JPRB &
+  &, 0.412498E+00_JPRB, 0.399647E+00_JPRB, 0.387017E+00_JPRB &
+  &, 0.374571E+00_JPRB, 0.362338E+00_JPRB, 0.350350E+00_JPRB, 0.338601E+00_JPRB &
+  &, 0.327046E+00_JPRB, 0.315750E+00_JPRB, 0.304666E+00_JPRB &
+  &, 0.293821E+00_JPRB, 0.283242E+00_JPRB, 0.272875E+00_JPRB, 0.262746E+00_JPRB &
+  &, 0.252879E+00_JPRB, 0.243259E+00_JPRB, 0.233909E+00_JPRB &
+  &, 0.224766E+00_JPRB, 0.215850E+00_JPRB, 0.207231E+00_JPRB, 0.198840E+00_JPRB &
+  &, 0.190649E+00_JPRB, 0.182727E+00_JPRB, 0.175046E+00_JPRB &
+  &, 0.167627E+00_JPRB, 0.160388E+00_JPRB, 0.153397E+00_JPRB, 0.146622E+00_JPRB &
+  &, 0.140080E+00_JPRB, 0.133787E+00_JPRB, 0.127707E+00_JPRB &
+  &, 0.121802E+00_JPRB, 0.116139E+00_JPRB, 0.110680E+00_JPRB, 0.105381E+00_JPRB &
+  &, 0.100312E+00_JPRB, 0.954292E-01_JPRB, 0.907445E-01_JPRB &
+  &, 0.862709E-01_JPRB, 0.818983E-01_JPRB, 0.777597E-01_JPRB, 0.738053E-01_JPRB &
+  &, 0.699821E-01_JPRB, 0.663636E-01_JPRB, 0.628298E-01_JPRB/)
+XCW( 688, :) = (/ &
+  &  0.104630E+01_JPRB, 0.105703E+01_JPRB, 0.106739E+01_JPRB, 0.107739E+01_JPRB &
+  &, 0.108701E+01_JPRB, 0.109626E+01_JPRB, 0.110511E+01_JPRB &
+  &, 0.111357E+01_JPRB, 0.112163E+01_JPRB, 0.112928E+01_JPRB, 0.113651E+01_JPRB &
+  &, 0.114332E+01_JPRB, 0.114970E+01_JPRB, 0.115565E+01_JPRB &
+  &, 0.116116E+01_JPRB, 0.116622E+01_JPRB, 0.117084E+01_JPRB, 0.117499E+01_JPRB &
+  &, 0.117869E+01_JPRB, 0.118192E+01_JPRB, 0.118469E+01_JPRB &
+  &, 0.118698E+01_JPRB, 0.118880E+01_JPRB, 0.119014E+01_JPRB, 0.119100E+01_JPRB &
+  &, 0.119138E+01_JPRB, 0.119127E+01_JPRB, 0.119068E+01_JPRB &
+  &, 0.118961E+01_JPRB, 0.118806E+01_JPRB, 0.118602E+01_JPRB, 0.118349E+01_JPRB &
+  &, 0.118049E+01_JPRB, 0.117702E+01_JPRB, 0.117306E+01_JPRB &
+  &, 0.116863E+01_JPRB, 0.116375E+01_JPRB, 0.115840E+01_JPRB, 0.115258E+01_JPRB &
+  &, 0.114632E+01_JPRB, 0.113962E+01_JPRB, 0.113247E+01_JPRB &
+  &, 0.112489E+01_JPRB, 0.111690E+01_JPRB, 0.110849E+01_JPRB, 0.109968E+01_JPRB &
+  &, 0.109047E+01_JPRB, 0.108087E+01_JPRB, 0.107089E+01_JPRB &
+  &, 0.106055E+01_JPRB, 0.104987E+01_JPRB, 0.103884E+01_JPRB, 0.102747E+01_JPRB &
+  &, 0.101578E+01_JPRB, 0.100380E+01_JPRB, 0.991514E+00_JPRB &
+  &, 0.978953E+00_JPRB, 0.966131E+00_JPRB, 0.953046E+00_JPRB, 0.939727E+00_JPRB &
+  &, 0.926188E+00_JPRB, 0.912426E+00_JPRB, 0.898475E+00_JPRB &
+  &, 0.884331E+00_JPRB, 0.870030E+00_JPRB, 0.855570E+00_JPRB, 0.840966E+00_JPRB &
+  &, 0.826235E+00_JPRB, 0.811394E+00_JPRB, 0.796461E+00_JPRB &
+  &, 0.781430E+00_JPRB, 0.766340E+00_JPRB, 0.751207E+00_JPRB, 0.735982E+00_JPRB &
+  &, 0.720790E+00_JPRB, 0.705583E+00_JPRB, 0.690351E+00_JPRB &
+  &, 0.675131E+00_JPRB, 0.659938E+00_JPRB, 0.644785E+00_JPRB, 0.629660E+00_JPRB &
+  &, 0.614627E+00_JPRB, 0.599646E+00_JPRB, 0.584781E+00_JPRB &
+  &, 0.569988E+00_JPRB, 0.555305E+00_JPRB, 0.540739E+00_JPRB, 0.526299E+00_JPRB &
+  &, 0.511991E+00_JPRB, 0.497823E+00_JPRB, 0.483828E+00_JPRB &
+  &, 0.469981E+00_JPRB, 0.456317E+00_JPRB, 0.442838E+00_JPRB, 0.429546E+00_JPRB &
+  &, 0.416440E+00_JPRB, 0.403519E+00_JPRB, 0.390816E+00_JPRB &
+  &, 0.378327E+00_JPRB, 0.366050E+00_JPRB, 0.353976E+00_JPRB, 0.342138E+00_JPRB &
+  &, 0.330527E+00_JPRB, 0.319172E+00_JPRB, 0.308026E+00_JPRB &
+  &, 0.297115E+00_JPRB, 0.286467E+00_JPRB, 0.276028E+00_JPRB, 0.265865E+00_JPRB &
+  &, 0.255920E+00_JPRB, 0.246260E+00_JPRB, 0.236781E+00_JPRB &
+  &, 0.227593E+00_JPRB, 0.218630E+00_JPRB, 0.209915E+00_JPRB, 0.201470E+00_JPRB &
+  &, 0.193224E+00_JPRB, 0.185244E+00_JPRB, 0.177503E+00_JPRB &
+  &, 0.169970E+00_JPRB, 0.162665E+00_JPRB, 0.155656E+00_JPRB, 0.148810E+00_JPRB &
+  &, 0.142193E+00_JPRB, 0.135824E+00_JPRB, 0.129664E+00_JPRB &
+  &, 0.123731E+00_JPRB, 0.117985E+00_JPRB, 0.112438E+00_JPRB, 0.107106E+00_JPRB &
+  &, 0.102002E+00_JPRB, 0.970244E-01_JPRB, 0.923016E-01_JPRB &
+  &, 0.877278E-01_JPRB, 0.833749E-01_JPRB, 0.791938E-01_JPRB, 0.751321E-01_JPRB &
+  &, 0.712624E-01_JPRB, 0.675960E-01_JPRB, 0.640126E-01_JPRB/)
+XCW( 689, :) = (/ &
+  &  0.104660E+01_JPRB, 0.105739E+01_JPRB, 0.106783E+01_JPRB, 0.107791E+01_JPRB &
+  &, 0.108761E+01_JPRB, 0.109693E+01_JPRB, 0.110587E+01_JPRB &
+  &, 0.111441E+01_JPRB, 0.112255E+01_JPRB, 0.113028E+01_JPRB, 0.113759E+01_JPRB &
+  &, 0.114449E+01_JPRB, 0.115095E+01_JPRB, 0.115698E+01_JPRB &
+  &, 0.116258E+01_JPRB, 0.116772E+01_JPRB, 0.117242E+01_JPRB, 0.117666E+01_JPRB &
+  &, 0.118044E+01_JPRB, 0.118376E+01_JPRB, 0.118660E+01_JPRB &
+  &, 0.118898E+01_JPRB, 0.119088E+01_JPRB, 0.119231E+01_JPRB, 0.119325E+01_JPRB &
+  &, 0.119371E+01_JPRB, 0.119369E+01_JPRB, 0.119319E+01_JPRB &
+  &, 0.119220E+01_JPRB, 0.119072E+01_JPRB, 0.118876E+01_JPRB, 0.118632E+01_JPRB &
+  &, 0.118340E+01_JPRB, 0.118000E+01_JPRB, 0.117612E+01_JPRB &
+  &, 0.117177E+01_JPRB, 0.116695E+01_JPRB, 0.116168E+01_JPRB, 0.115594E+01_JPRB &
+  &, 0.114975E+01_JPRB, 0.114312E+01_JPRB, 0.113603E+01_JPRB &
+  &, 0.112853E+01_JPRB, 0.112060E+01_JPRB, 0.111225E+01_JPRB, 0.110350E+01_JPRB &
+  &, 0.109435E+01_JPRB, 0.108481E+01_JPRB, 0.107489E+01_JPRB &
+  &, 0.106461E+01_JPRB, 0.105398E+01_JPRB, 0.104298E+01_JPRB, 0.103167E+01_JPRB &
+  &, 0.102004E+01_JPRB, 0.100809E+01_JPRB, 0.995860E+00_JPRB &
+  &, 0.983338E+00_JPRB, 0.970540E+00_JPRB, 0.957492E+00_JPRB, 0.944208E+00_JPRB &
+  &, 0.930703E+00_JPRB, 0.916957E+00_JPRB, 0.903036E+00_JPRB &
+  &, 0.888922E+00_JPRB, 0.874631E+00_JPRB, 0.860195E+00_JPRB, 0.845595E+00_JPRB &
+  &, 0.830886E+00_JPRB, 0.816044E+00_JPRB, 0.801128E+00_JPRB &
+  &, 0.786112E+00_JPRB, 0.771012E+00_JPRB, 0.755867E+00_JPRB, 0.740671E+00_JPRB &
+  &, 0.725462E+00_JPRB, 0.710210E+00_JPRB, 0.694976E+00_JPRB &
+  &, 0.679752E+00_JPRB, 0.664527E+00_JPRB, 0.649364E+00_JPRB, 0.634226E+00_JPRB &
+  &, 0.619151E+00_JPRB, 0.604150E+00_JPRB, 0.589235E+00_JPRB &
+  &, 0.574416E+00_JPRB, 0.559703E+00_JPRB, 0.545104E+00_JPRB, 0.530627E+00_JPRB &
+  &, 0.516280E+00_JPRB, 0.502099E+00_JPRB, 0.488027E+00_JPRB &
+  &, 0.474161E+00_JPRB, 0.460443E+00_JPRB, 0.446906E+00_JPRB, 0.433552E+00_JPRB &
+  &, 0.420381E+00_JPRB, 0.407425E+00_JPRB, 0.394649E+00_JPRB &
+  &, 0.382120E+00_JPRB, 0.369761E+00_JPRB, 0.357640E+00_JPRB, 0.345750E+00_JPRB &
+  &, 0.334084E+00_JPRB, 0.322633E+00_JPRB, 0.311426E+00_JPRB &
+  &, 0.300490E+00_JPRB, 0.289734E+00_JPRB, 0.279264E+00_JPRB, 0.269027E+00_JPRB &
+  &, 0.259003E+00_JPRB, 0.249262E+00_JPRB, 0.239741E+00_JPRB &
+  &, 0.230464E+00_JPRB, 0.221455E+00_JPRB, 0.212645E+00_JPRB, 0.204101E+00_JPRB &
+  &, 0.195847E+00_JPRB, 0.187761E+00_JPRB, 0.179959E+00_JPRB &
+  &, 0.172363E+00_JPRB, 0.164992E+00_JPRB, 0.157915E+00_JPRB, 0.150997E+00_JPRB &
+  &, 0.144307E+00_JPRB, 0.137914E+00_JPRB, 0.131676E+00_JPRB &
+  &, 0.125661E+00_JPRB, 0.119830E+00_JPRB, 0.114252E+00_JPRB, 0.108888E+00_JPRB &
+  &, 0.103693E+00_JPRB, 0.986788E-01_JPRB, 0.938588E-01_JPRB &
+  &, 0.892454E-01_JPRB, 0.848515E-01_JPRB, 0.805655E-01_JPRB, 0.765221E-01_JPRB &
+  &, 0.726068E-01_JPRB, 0.688283E-01_JPRB, 0.652612E-01_JPRB/)
+XCW( 690, :) = (/ &
+  &  0.104689E+01_JPRB, 0.105776E+01_JPRB, 0.106828E+01_JPRB, 0.107843E+01_JPRB &
+  &, 0.108821E+01_JPRB, 0.109761E+01_JPRB, 0.110663E+01_JPRB &
+  &, 0.111525E+01_JPRB, 0.112347E+01_JPRB, 0.113128E+01_JPRB, 0.113868E+01_JPRB &
+  &, 0.114565E+01_JPRB, 0.115220E+01_JPRB, 0.115832E+01_JPRB &
+  &, 0.116399E+01_JPRB, 0.116922E+01_JPRB, 0.117401E+01_JPRB, 0.117833E+01_JPRB &
+  &, 0.118220E+01_JPRB, 0.118560E+01_JPRB, 0.118853E+01_JPRB &
+  &, 0.119099E+01_JPRB, 0.119298E+01_JPRB, 0.119449E+01_JPRB, 0.119551E+01_JPRB &
+  &, 0.119606E+01_JPRB, 0.119612E+01_JPRB, 0.119570E+01_JPRB &
+  &, 0.119479E+01_JPRB, 0.119339E+01_JPRB, 0.119152E+01_JPRB, 0.118916E+01_JPRB &
+  &, 0.118631E+01_JPRB, 0.118299E+01_JPRB, 0.117919E+01_JPRB &
+  &, 0.117492E+01_JPRB, 0.117018E+01_JPRB, 0.116498E+01_JPRB, 0.115931E+01_JPRB &
+  &, 0.115319E+01_JPRB, 0.114663E+01_JPRB, 0.113962E+01_JPRB &
+  &, 0.113218E+01_JPRB, 0.112432E+01_JPRB, 0.111603E+01_JPRB, 0.110734E+01_JPRB &
+  &, 0.109825E+01_JPRB, 0.108877E+01_JPRB, 0.107891E+01_JPRB &
+  &, 0.106869E+01_JPRB, 0.105809E+01_JPRB, 0.104716E+01_JPRB, 0.103589E+01_JPRB &
+  &, 0.102431E+01_JPRB, 0.101241E+01_JPRB, 0.100021E+01_JPRB &
+  &, 0.987724E+00_JPRB, 0.974980E+00_JPRB, 0.961970E+00_JPRB, 0.948706E+00_JPRB &
+  &, 0.935235E+00_JPRB, 0.921523E+00_JPRB, 0.907616E+00_JPRB &
+  &, 0.893532E+00_JPRB, 0.879268E+00_JPRB, 0.864840E+00_JPRB, 0.850264E+00_JPRB &
+  &, 0.835557E+00_JPRB, 0.820735E+00_JPRB, 0.805815E+00_JPRB &
+  &, 0.790793E+00_JPRB, 0.775706E+00_JPRB, 0.760572E+00_JPRB, 0.745361E+00_JPRB &
+  &, 0.730134E+00_JPRB, 0.714884E+00_JPRB, 0.699649E+00_JPRB &
+  &, 0.684397E+00_JPRB, 0.669166E+00_JPRB, 0.653969E+00_JPRB, 0.638818E+00_JPRB &
+  &, 0.623727E+00_JPRB, 0.608708E+00_JPRB, 0.593744E+00_JPRB &
+  &, 0.578899E+00_JPRB, 0.564157E+00_JPRB, 0.549498E+00_JPRB, 0.534986E+00_JPRB &
+  &, 0.520599E+00_JPRB, 0.506375E+00_JPRB, 0.492288E+00_JPRB &
+  &, 0.478341E+00_JPRB, 0.464569E+00_JPRB, 0.451008E+00_JPRB, 0.437593E+00_JPRB &
+  &, 0.424356E+00_JPRB, 0.411367E+00_JPRB, 0.398518E+00_JPRB &
+  &, 0.385912E+00_JPRB, 0.373509E+00_JPRB, 0.361340E+00_JPRB, 0.349400E+00_JPRB &
+  &, 0.337642E+00_JPRB, 0.326172E+00_JPRB, 0.314904E+00_JPRB &
+  &, 0.303865E+00_JPRB, 0.293041E+00_JPRB, 0.282501E+00_JPRB, 0.272188E+00_JPRB &
+  &, 0.262129E+00_JPRB, 0.252307E+00_JPRB, 0.242701E+00_JPRB &
+  &, 0.233381E+00_JPRB, 0.224280E+00_JPRB, 0.215420E+00_JPRB, 0.206825E+00_JPRB &
+  &, 0.198470E+00_JPRB, 0.190326E+00_JPRB, 0.182415E+00_JPRB &
+  &, 0.174806E+00_JPRB, 0.167370E+00_JPRB, 0.160174E+00_JPRB, 0.153237E+00_JPRB &
+  &, 0.146473E+00_JPRB, 0.140004E+00_JPRB, 0.133687E+00_JPRB &
+  &, 0.127591E+00_JPRB, 0.121731E+00_JPRB, 0.116123E+00_JPRB, 0.110670E+00_JPRB &
+  &, 0.105383E+00_JPRB, 0.100333E+00_JPRB, 0.954758E-01_JPRB &
+  &, 0.908237E-01_JPRB, 0.863280E-01_JPRB, 0.819995E-01_JPRB, 0.778489E-01_JPRB &
+  &, 0.738872E-01_JPRB, 0.701256E-01_JPRB, 0.664440E-01_JPRB/)
+XCW( 691, :) = (/ &
+  &  0.104718E+01_JPRB, 0.105813E+01_JPRB, 0.106872E+01_JPRB, 0.107895E+01_JPRB &
+  &, 0.108881E+01_JPRB, 0.109829E+01_JPRB, 0.110739E+01_JPRB &
+  &, 0.111609E+01_JPRB, 0.112439E+01_JPRB, 0.113228E+01_JPRB, 0.113976E+01_JPRB &
+  &, 0.114682E+01_JPRB, 0.115345E+01_JPRB, 0.115965E+01_JPRB &
+  &, 0.116541E+01_JPRB, 0.117073E+01_JPRB, 0.117559E+01_JPRB, 0.118000E+01_JPRB &
+  &, 0.118396E+01_JPRB, 0.118744E+01_JPRB, 0.119046E+01_JPRB &
+  &, 0.119300E+01_JPRB, 0.119508E+01_JPRB, 0.119667E+01_JPRB, 0.119778E+01_JPRB &
+  &, 0.119841E+01_JPRB, 0.119855E+01_JPRB, 0.119821E+01_JPRB &
+  &, 0.119739E+01_JPRB, 0.119607E+01_JPRB, 0.119428E+01_JPRB, 0.119200E+01_JPRB &
+  &, 0.118924E+01_JPRB, 0.118599E+01_JPRB, 0.118227E+01_JPRB &
+  &, 0.117807E+01_JPRB, 0.117341E+01_JPRB, 0.116828E+01_JPRB, 0.116269E+01_JPRB &
+  &, 0.115664E+01_JPRB, 0.115015E+01_JPRB, 0.114321E+01_JPRB &
+  &, 0.113584E+01_JPRB, 0.112804E+01_JPRB, 0.111981E+01_JPRB, 0.111119E+01_JPRB &
+  &, 0.110216E+01_JPRB, 0.109274E+01_JPRB, 0.108293E+01_JPRB &
+  &, 0.107277E+01_JPRB, 0.106224E+01_JPRB, 0.105135E+01_JPRB, 0.104014E+01_JPRB &
+  &, 0.102860E+01_JPRB, 0.101675E+01_JPRB, 0.100458E+01_JPRB &
+  &, 0.992141E+00_JPRB, 0.979436E+00_JPRB, 0.966464E+00_JPRB, 0.953237E+00_JPRB &
+  &, 0.939785E+00_JPRB, 0.926106E+00_JPRB, 0.912231E+00_JPRB &
+  &, 0.898159E+00_JPRB, 0.883905E+00_JPRB, 0.869503E+00_JPRB, 0.854952E+00_JPRB &
+  &, 0.840247E+00_JPRB, 0.825446E+00_JPRB, 0.810523E+00_JPRB &
+  &, 0.795517E+00_JPRB, 0.780422E+00_JPRB, 0.765276E+00_JPRB, 0.750095E+00_JPRB &
+  &, 0.734851E+00_JPRB, 0.719604E+00_JPRB, 0.704322E+00_JPRB &
+  &, 0.689067E+00_JPRB, 0.673830E+00_JPRB, 0.658598E+00_JPRB, 0.643436E+00_JPRB &
+  &, 0.628330E+00_JPRB, 0.613266E+00_JPRB, 0.598307E+00_JPRB &
+  &, 0.583411E+00_JPRB, 0.568612E+00_JPRB, 0.553950E+00_JPRB, 0.539403E+00_JPRB &
+  &, 0.524978E+00_JPRB, 0.510682E+00_JPRB, 0.496549E+00_JPRB &
+  &, 0.482584E+00_JPRB, 0.468759E+00_JPRB, 0.455109E+00_JPRB, 0.441666E+00_JPRB &
+  &, 0.428400E+00_JPRB, 0.415308E+00_JPRB, 0.402457E+00_JPRB &
+  &, 0.389775E+00_JPRB, 0.377329E+00_JPRB, 0.365077E+00_JPRB, 0.353049E+00_JPRB &
+  &, 0.341276E+00_JPRB, 0.329711E+00_JPRB, 0.318383E+00_JPRB &
+  &, 0.307280E+00_JPRB, 0.296389E+00_JPRB, 0.285778E+00_JPRB, 0.275392E+00_JPRB &
+  &, 0.265255E+00_JPRB, 0.255352E+00_JPRB, 0.245706E+00_JPRB &
+  &, 0.236297E+00_JPRB, 0.227150E+00_JPRB, 0.218243E+00_JPRB, 0.209550E+00_JPRB &
+  &, 0.201092E+00_JPRB, 0.192940E+00_JPRB, 0.184970E+00_JPRB &
+  &, 0.177249E+00_JPRB, 0.169748E+00_JPRB, 0.162484E+00_JPRB, 0.155476E+00_JPRB &
+  &, 0.148692E+00_JPRB, 0.142094E+00_JPRB, 0.135753E+00_JPRB &
+  &, 0.129631E+00_JPRB, 0.123688E+00_JPRB, 0.117994E+00_JPRB, 0.112452E+00_JPRB &
+  &, 0.107131E+00_JPRB, 0.102047E+00_JPRB, 0.970929E-01_JPRB &
+  &, 0.924020E-01_JPRB, 0.878661E-01_JPRB, 0.834959E-01_JPRB, 0.793020E-01_JPRB &
+  &, 0.752316E-01_JPRB, 0.714228E-01_JPRB, 0.676925E-01_JPRB/)
+XCW( 692, :) = (/ &
+  &  0.104747E+01_JPRB, 0.105850E+01_JPRB, 0.106917E+01_JPRB, 0.107948E+01_JPRB &
+  &, 0.108941E+01_JPRB, 0.109897E+01_JPRB, 0.110815E+01_JPRB &
+  &, 0.111693E+01_JPRB, 0.112531E+01_JPRB, 0.113329E+01_JPRB, 0.114085E+01_JPRB &
+  &, 0.114799E+01_JPRB, 0.115471E+01_JPRB, 0.116099E+01_JPRB &
+  &, 0.116684E+01_JPRB, 0.117224E+01_JPRB, 0.117719E+01_JPRB, 0.118168E+01_JPRB &
+  &, 0.118571E+01_JPRB, 0.118929E+01_JPRB, 0.119239E+01_JPRB &
+  &, 0.119502E+01_JPRB, 0.119718E+01_JPRB, 0.119885E+01_JPRB, 0.120005E+01_JPRB &
+  &, 0.120076E+01_JPRB, 0.120099E+01_JPRB, 0.120074E+01_JPRB &
+  &, 0.119999E+01_JPRB, 0.119876E+01_JPRB, 0.119705E+01_JPRB, 0.119485E+01_JPRB &
+  &, 0.119217E+01_JPRB, 0.118900E+01_JPRB, 0.118536E+01_JPRB &
+  &, 0.118124E+01_JPRB, 0.117665E+01_JPRB, 0.117160E+01_JPRB, 0.116607E+01_JPRB &
+  &, 0.116011E+01_JPRB, 0.115368E+01_JPRB, 0.114682E+01_JPRB &
+  &, 0.113951E+01_JPRB, 0.113177E+01_JPRB, 0.112362E+01_JPRB, 0.111506E+01_JPRB &
+  &, 0.110609E+01_JPRB, 0.109673E+01_JPRB, 0.108699E+01_JPRB &
+  &, 0.107687E+01_JPRB, 0.106640E+01_JPRB, 0.105557E+01_JPRB, 0.104440E+01_JPRB &
+  &, 0.103290E+01_JPRB, 0.102110E+01_JPRB, 0.100899E+01_JPRB &
+  &, 0.996588E+00_JPRB, 0.983908E+00_JPRB, 0.970974E+00_JPRB, 0.957784E+00_JPRB &
+  &, 0.944351E+00_JPRB, 0.930706E+00_JPRB, 0.916864E+00_JPRB &
+  &, 0.902823E+00_JPRB, 0.888598E+00_JPRB, 0.874205E+00_JPRB, 0.859659E+00_JPRB &
+  &, 0.844977E+00_JPRB, 0.830177E+00_JPRB, 0.815273E+00_JPRB &
+  &, 0.800262E+00_JPRB, 0.785181E+00_JPRB, 0.770024E+00_JPRB, 0.754830E+00_JPRB &
+  &, 0.739591E+00_JPRB, 0.724324E+00_JPRB, 0.709043E+00_JPRB &
+  &, 0.693785E+00_JPRB, 0.678518E+00_JPRB, 0.663279E+00_JPRB, 0.648079E+00_JPRB &
+  &, 0.632959E+00_JPRB, 0.617877E+00_JPRB, 0.602871E+00_JPRB &
+  &, 0.587950E+00_JPRB, 0.573124E+00_JPRB, 0.558430E+00_JPRB, 0.543820E+00_JPRB &
+  &, 0.529357E+00_JPRB, 0.515050E+00_JPRB, 0.500872E+00_JPRB &
+  &, 0.486827E+00_JPRB, 0.472982E+00_JPRB, 0.459276E+00_JPRB, 0.445773E+00_JPRB &
+  &, 0.432443E+00_JPRB, 0.419318E+00_JPRB, 0.406396E+00_JPRB &
+  &, 0.393675E+00_JPRB, 0.381150E+00_JPRB, 0.368851E+00_JPRB, 0.356774E+00_JPRB &
+  &, 0.344910E+00_JPRB, 0.333289E+00_JPRB, 0.321862E+00_JPRB &
+  &, 0.310695E+00_JPRB, 0.299778E+00_JPRB, 0.289097E+00_JPRB, 0.278637E+00_JPRB &
+  &, 0.268424E+00_JPRB, 0.258484E+00_JPRB, 0.248754E+00_JPRB &
+  &, 0.239304E+00_JPRB, 0.230067E+00_JPRB, 0.221065E+00_JPRB, 0.212321E+00_JPRB &
+  &, 0.203810E+00_JPRB, 0.195554E+00_JPRB, 0.187524E+00_JPRB &
+  &, 0.179742E+00_JPRB, 0.172176E+00_JPRB, 0.164845E+00_JPRB, 0.157768E+00_JPRB &
+  &, 0.150911E+00_JPRB, 0.144238E+00_JPRB, 0.137819E+00_JPRB &
+  &, 0.131616E+00_JPRB, 0.125645E+00_JPRB, 0.119865E+00_JPRB, 0.114292E+00_JPRB &
+  &, 0.108938E+00_JPRB, 0.103760E+00_JPRB, 0.987698E-01_JPRB &
+  &, 0.939803E-01_JPRB, 0.894042E-01_JPRB, 0.849299E-01_JPRB, 0.806920E-01_JPRB &
+  &, 0.766400E-01_JPRB, 0.727200E-01_JPRB, 0.690067E-01_JPRB/)
+XCW( 693, :) = (/ &
+  &  0.104777E+01_JPRB, 0.105887E+01_JPRB, 0.106962E+01_JPRB, 0.108000E+01_JPRB &
+  &, 0.109002E+01_JPRB, 0.109966E+01_JPRB, 0.110891E+01_JPRB &
+  &, 0.111778E+01_JPRB, 0.112624E+01_JPRB, 0.113430E+01_JPRB, 0.114194E+01_JPRB &
+  &, 0.114917E+01_JPRB, 0.115596E+01_JPRB, 0.116234E+01_JPRB &
+  &, 0.116826E+01_JPRB, 0.117375E+01_JPRB, 0.117878E+01_JPRB, 0.118337E+01_JPRB &
+  &, 0.118749E+01_JPRB, 0.119114E+01_JPRB, 0.119433E+01_JPRB &
+  &, 0.119705E+01_JPRB, 0.119929E+01_JPRB, 0.120105E+01_JPRB, 0.120233E+01_JPRB &
+  &, 0.120313E+01_JPRB, 0.120344E+01_JPRB, 0.120327E+01_JPRB &
+  &, 0.120261E+01_JPRB, 0.120146E+01_JPRB, 0.119983E+01_JPRB, 0.119771E+01_JPRB &
+  &, 0.119510E+01_JPRB, 0.119202E+01_JPRB, 0.118845E+01_JPRB &
+  &, 0.118442E+01_JPRB, 0.117990E+01_JPRB, 0.117492E+01_JPRB, 0.116948E+01_JPRB &
+  &, 0.116358E+01_JPRB, 0.115723E+01_JPRB, 0.115042E+01_JPRB &
+  &, 0.114319E+01_JPRB, 0.113553E+01_JPRB, 0.112745E+01_JPRB, 0.111894E+01_JPRB &
+  &, 0.111004E+01_JPRB, 0.110074E+01_JPRB, 0.109105E+01_JPRB &
+  &, 0.108098E+01_JPRB, 0.107057E+01_JPRB, 0.105979E+01_JPRB, 0.104868E+01_JPRB &
+  &, 0.103723E+01_JPRB, 0.102546E+01_JPRB, 0.101339E+01_JPRB &
+  &, 0.100104E+01_JPRB, 0.988411E+00_JPRB, 0.975501E+00_JPRB, 0.962348E+00_JPRB &
+  &, 0.948952E+00_JPRB, 0.935341E+00_JPRB, 0.921514E+00_JPRB &
+  &, 0.907486E+00_JPRB, 0.893291E+00_JPRB, 0.878925E+00_JPRB, 0.864386E+00_JPRB &
+  &, 0.849728E+00_JPRB, 0.834928E+00_JPRB, 0.820043E+00_JPRB &
+  &, 0.805028E+00_JPRB, 0.789961E+00_JPRB, 0.774816E+00_JPRB, 0.759609E+00_JPRB &
+  &, 0.744355E+00_JPRB, 0.729091E+00_JPRB, 0.713811E+00_JPRB &
+  &, 0.698504E+00_JPRB, 0.683232E+00_JPRB, 0.667984E+00_JPRB, 0.652774E+00_JPRB &
+  &, 0.637614E+00_JPRB, 0.622488E+00_JPRB, 0.607461E+00_JPRB &
+  &, 0.592517E+00_JPRB, 0.577664E+00_JPRB, 0.562940E+00_JPRB, 0.548296E+00_JPRB &
+  &, 0.533796E+00_JPRB, 0.519417E+00_JPRB, 0.505195E+00_JPRB &
+  &, 0.491133E+00_JPRB, 0.477205E+00_JPRB, 0.463475E+00_JPRB, 0.449914E+00_JPRB &
+  &, 0.436554E+00_JPRB, 0.423363E+00_JPRB, 0.410370E+00_JPRB &
+  &, 0.397574E+00_JPRB, 0.385007E+00_JPRB, 0.372663E+00_JPRB, 0.360499E+00_JPRB &
+  &, 0.348583E+00_JPRB, 0.336906E+00_JPRB, 0.325419E+00_JPRB &
+  &, 0.314190E+00_JPRB, 0.303207E+00_JPRB, 0.292458E+00_JPRB, 0.281925E+00_JPRB &
+  &, 0.271636E+00_JPRB, 0.261616E+00_JPRB, 0.251847E+00_JPRB &
+  &, 0.242265E+00_JPRB, 0.232983E+00_JPRB, 0.223933E+00_JPRB, 0.215092E+00_JPRB &
+  &, 0.206528E+00_JPRB, 0.198216E+00_JPRB, 0.190128E+00_JPRB &
+  &, 0.182235E+00_JPRB, 0.174604E+00_JPRB, 0.167258E+00_JPRB, 0.160060E+00_JPRB &
+  &, 0.153130E+00_JPRB, 0.146436E+00_JPRB, 0.139939E+00_JPRB &
+  &, 0.133656E+00_JPRB, 0.127601E+00_JPRB, 0.121793E+00_JPRB, 0.116131E+00_JPRB &
+  &, 0.110745E+00_JPRB, 0.105473E+00_JPRB, 0.100447E+00_JPRB &
+  &, 0.956193E-01_JPRB, 0.909423E-01_JPRB, 0.864887E-01_JPRB, 0.821452E-01_JPRB &
+  &, 0.780484E-01_JPRB, 0.740821E-01_JPRB, 0.702552E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART99',1,ZHOOK_HANDLE)
+END SUBROUTINE PART99
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART100
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART100',0,ZHOOK_HANDLE)
+
+XCW( 694, :) = (/ &
+  &  0.104806E+01_JPRB, 0.105924E+01_JPRB, 0.107006E+01_JPRB, 0.108053E+01_JPRB &
+  &, 0.109062E+01_JPRB, 0.110034E+01_JPRB, 0.110968E+01_JPRB &
+  &, 0.111862E+01_JPRB, 0.112717E+01_JPRB, 0.113531E+01_JPRB, 0.114304E+01_JPRB &
+  &, 0.115035E+01_JPRB, 0.115723E+01_JPRB, 0.116368E+01_JPRB &
+  &, 0.116970E+01_JPRB, 0.117526E+01_JPRB, 0.118039E+01_JPRB, 0.118505E+01_JPRB &
+  &, 0.118926E+01_JPRB, 0.119300E+01_JPRB, 0.119627E+01_JPRB &
+  &, 0.119908E+01_JPRB, 0.120140E+01_JPRB, 0.120325E+01_JPRB, 0.120461E+01_JPRB &
+  &, 0.120550E+01_JPRB, 0.120589E+01_JPRB, 0.120581E+01_JPRB &
+  &, 0.120523E+01_JPRB, 0.120416E+01_JPRB, 0.120261E+01_JPRB, 0.120058E+01_JPRB &
+  &, 0.119805E+01_JPRB, 0.119505E+01_JPRB, 0.119157E+01_JPRB &
+  &, 0.118760E+01_JPRB, 0.118317E+01_JPRB, 0.117826E+01_JPRB, 0.117289E+01_JPRB &
+  &, 0.116707E+01_JPRB, 0.116078E+01_JPRB, 0.115405E+01_JPRB &
+  &, 0.114689E+01_JPRB, 0.113930E+01_JPRB, 0.113127E+01_JPRB, 0.112284E+01_JPRB &
+  &, 0.111400E+01_JPRB, 0.110476E+01_JPRB, 0.109513E+01_JPRB &
+  &, 0.108512E+01_JPRB, 0.107476E+01_JPRB, 0.106403E+01_JPRB, 0.105297E+01_JPRB &
+  &, 0.104158E+01_JPRB, 0.102986E+01_JPRB, 0.101783E+01_JPRB &
+  &, 0.100551E+01_JPRB, 0.992915E+00_JPRB, 0.980060E+00_JPRB, 0.966929E+00_JPRB &
+  &, 0.953569E+00_JPRB, 0.939993E+00_JPRB, 0.926200E+00_JPRB &
+  &, 0.912186E+00_JPRB, 0.898021E+00_JPRB, 0.883664E+00_JPRB, 0.869151E+00_JPRB &
+  &, 0.854497E+00_JPRB, 0.839719E+00_JPRB, 0.824834E+00_JPRB &
+  &, 0.809836E+00_JPRB, 0.794762E+00_JPRB, 0.779608E+00_JPRB, 0.764411E+00_JPRB &
+  &, 0.749164E+00_JPRB, 0.733882E+00_JPRB, 0.718579E+00_JPRB &
+  &, 0.703271E+00_JPRB, 0.687995E+00_JPRB, 0.672715E+00_JPRB, 0.657495E+00_JPRB &
+  &, 0.642295E+00_JPRB, 0.627153E+00_JPRB, 0.612107E+00_JPRB &
+  &, 0.597139E+00_JPRB, 0.582232E+00_JPRB, 0.567450E+00_JPRB, 0.552802E+00_JPRB &
+  &, 0.538265E+00_JPRB, 0.523846E+00_JPRB, 0.509580E+00_JPRB &
+  &, 0.495472E+00_JPRB, 0.481492E+00_JPRB, 0.467708E+00_JPRB, 0.454088E+00_JPRB &
+  &, 0.440666E+00_JPRB, 0.427442E+00_JPRB, 0.414380E+00_JPRB &
+  &, 0.401545E+00_JPRB, 0.388900E+00_JPRB, 0.376474E+00_JPRB, 0.364262E+00_JPRB &
+  &, 0.352293E+00_JPRB, 0.340522E+00_JPRB, 0.329016E+00_JPRB &
+  &, 0.317726E+00_JPRB, 0.306637E+00_JPRB, 0.295818E+00_JPRB, 0.285255E+00_JPRB &
+  &, 0.274890E+00_JPRB, 0.264791E+00_JPRB, 0.254940E+00_JPRB &
+  &, 0.245316E+00_JPRB, 0.235944E+00_JPRB, 0.226802E+00_JPRB, 0.217957E+00_JPRB &
+  &, 0.209294E+00_JPRB, 0.200878E+00_JPRB, 0.192732E+00_JPRB &
+  &, 0.184777E+00_JPRB, 0.177083E+00_JPRB, 0.169670E+00_JPRB, 0.162403E+00_JPRB &
+  &, 0.155402E+00_JPRB, 0.148633E+00_JPRB, 0.142113E+00_JPRB &
+  &, 0.135751E+00_JPRB, 0.129614E+00_JPRB, 0.123721E+00_JPRB, 0.118028E+00_JPRB &
+  &, 0.112551E+00_JPRB, 0.107246E+00_JPRB, 0.102124E+00_JPRB &
+  &, 0.972584E-01_JPRB, 0.925420E-01_JPRB, 0.879850E-01_JPRB, 0.836615E-01_JPRB &
+  &, 0.794568E-01_JPRB, 0.754442E-01_JPRB, 0.715694E-01_JPRB/)
+XCW( 695, :) = (/ &
+  &  0.104836E+01_JPRB, 0.105961E+01_JPRB, 0.107051E+01_JPRB, 0.108105E+01_JPRB &
+  &, 0.109123E+01_JPRB, 0.110103E+01_JPRB, 0.111044E+01_JPRB &
+  &, 0.111947E+01_JPRB, 0.112810E+01_JPRB, 0.113632E+01_JPRB, 0.114413E+01_JPRB &
+  &, 0.115153E+01_JPRB, 0.115849E+01_JPRB, 0.116503E+01_JPRB &
+  &, 0.117113E+01_JPRB, 0.117678E+01_JPRB, 0.118199E+01_JPRB, 0.118674E+01_JPRB &
+  &, 0.119103E+01_JPRB, 0.119486E+01_JPRB, 0.119822E+01_JPRB &
+  &, 0.120110E+01_JPRB, 0.120352E+01_JPRB, 0.120546E+01_JPRB, 0.120691E+01_JPRB &
+  &, 0.120787E+01_JPRB, 0.120835E+01_JPRB, 0.120835E+01_JPRB &
+  &, 0.120786E+01_JPRB, 0.120688E+01_JPRB, 0.120541E+01_JPRB, 0.120345E+01_JPRB &
+  &, 0.120101E+01_JPRB, 0.119809E+01_JPRB, 0.119468E+01_JPRB &
+  &, 0.119080E+01_JPRB, 0.118644E+01_JPRB, 0.118161E+01_JPRB, 0.117632E+01_JPRB &
+  &, 0.117056E+01_JPRB, 0.116435E+01_JPRB, 0.115770E+01_JPRB &
+  &, 0.115061E+01_JPRB, 0.114308E+01_JPRB, 0.113511E+01_JPRB, 0.112675E+01_JPRB &
+  &, 0.111797E+01_JPRB, 0.110879E+01_JPRB, 0.109923E+01_JPRB &
+  &, 0.108928E+01_JPRB, 0.107897E+01_JPRB, 0.106829E+01_JPRB, 0.105728E+01_JPRB &
+  &, 0.104594E+01_JPRB, 0.103426E+01_JPRB, 0.102228E+01_JPRB &
+  &, 0.101001E+01_JPRB, 0.997450E+00_JPRB, 0.984635E+00_JPRB, 0.971543E+00_JPRB &
+  &, 0.958220E+00_JPRB, 0.944663E+00_JPRB, 0.930887E+00_JPRB &
+  &, 0.916923E+00_JPRB, 0.902751E+00_JPRB, 0.888422E+00_JPRB, 0.873936E+00_JPRB &
+  &, 0.859307E+00_JPRB, 0.844531E+00_JPRB, 0.829645E+00_JPRB &
+  &, 0.814665E+00_JPRB, 0.799586E+00_JPRB, 0.784444E+00_JPRB, 0.769235E+00_JPRB &
+  &, 0.753973E+00_JPRB, 0.738696E+00_JPRB, 0.723396E+00_JPRB &
+  &, 0.708087E+00_JPRB, 0.692758E+00_JPRB, 0.677472E+00_JPRB, 0.662216E+00_JPRB &
+  &, 0.647003E+00_JPRB, 0.631872E+00_JPRB, 0.616779E+00_JPRB &
+  &, 0.601762E+00_JPRB, 0.586857E+00_JPRB, 0.572046E+00_JPRB, 0.557337E+00_JPRB &
+  &, 0.542734E+00_JPRB, 0.528306E+00_JPRB, 0.513997E+00_JPRB &
+  &, 0.499810E+00_JPRB, 0.485811E+00_JPRB, 0.471973E+00_JPRB, 0.458328E+00_JPRB &
+  &, 0.444845E+00_JPRB, 0.431521E+00_JPRB, 0.418424E+00_JPRB &
+  &, 0.405552E+00_JPRB, 0.392829E+00_JPRB, 0.380359E+00_JPRB, 0.368100E+00_JPRB &
+  &, 0.356042E+00_JPRB, 0.344217E+00_JPRB, 0.332614E+00_JPRB &
+  &, 0.321261E+00_JPRB, 0.310148E+00_JPRB, 0.299262E+00_JPRB, 0.288585E+00_JPRB &
+  &, 0.278188E+00_JPRB, 0.268010E+00_JPRB, 0.258077E+00_JPRB &
+  &, 0.248412E+00_JPRB, 0.238952E+00_JPRB, 0.229763E+00_JPRB, 0.220823E+00_JPRB &
+  &, 0.212107E+00_JPRB, 0.203589E+00_JPRB, 0.195385E+00_JPRB &
+  &, 0.187370E+00_JPRB, 0.179613E+00_JPRB, 0.172083E+00_JPRB, 0.164799E+00_JPRB &
+  &, 0.157727E+00_JPRB, 0.150884E+00_JPRB, 0.144288E+00_JPRB &
+  &, 0.137846E+00_JPRB, 0.131683E+00_JPRB, 0.125705E+00_JPRB, 0.119925E+00_JPRB &
+  &, 0.114416E+00_JPRB, 0.109018E+00_JPRB, 0.103861E+00_JPRB &
+  &, 0.988974E-01_JPRB, 0.941416E-01_JPRB, 0.895438E-01_JPRB, 0.851147E-01_JPRB &
+  &, 0.809292E-01_JPRB, 0.768063E-01_JPRB, 0.729494E-01_JPRB/)
+XCW( 696, :) = (/ &
+  &  0.104865E+01_JPRB, 0.105998E+01_JPRB, 0.107096E+01_JPRB, 0.108158E+01_JPRB &
+  &, 0.109183E+01_JPRB, 0.110171E+01_JPRB, 0.111121E+01_JPRB &
+  &, 0.112032E+01_JPRB, 0.112903E+01_JPRB, 0.113734E+01_JPRB, 0.114523E+01_JPRB &
+  &, 0.115271E+01_JPRB, 0.115976E+01_JPRB, 0.116638E+01_JPRB &
+  &, 0.117256E+01_JPRB, 0.117831E+01_JPRB, 0.118360E+01_JPRB, 0.118844E+01_JPRB &
+  &, 0.119281E+01_JPRB, 0.119673E+01_JPRB, 0.120017E+01_JPRB &
+  &, 0.120315E+01_JPRB, 0.120565E+01_JPRB, 0.120767E+01_JPRB, 0.120920E+01_JPRB &
+  &, 0.121026E+01_JPRB, 0.121082E+01_JPRB, 0.121090E+01_JPRB &
+  &, 0.121049E+01_JPRB, 0.120960E+01_JPRB, 0.120821E+01_JPRB, 0.120634E+01_JPRB &
+  &, 0.120398E+01_JPRB, 0.120114E+01_JPRB, 0.119781E+01_JPRB &
+  &, 0.119400E+01_JPRB, 0.118972E+01_JPRB, 0.118497E+01_JPRB, 0.117975E+01_JPRB &
+  &, 0.117408E+01_JPRB, 0.116794E+01_JPRB, 0.116136E+01_JPRB &
+  &, 0.115433E+01_JPRB, 0.114687E+01_JPRB, 0.113898E+01_JPRB, 0.113067E+01_JPRB &
+  &, 0.112195E+01_JPRB, 0.111285E+01_JPRB, 0.110333E+01_JPRB &
+  &, 0.109344E+01_JPRB, 0.108319E+01_JPRB, 0.107258E+01_JPRB, 0.106161E+01_JPRB &
+  &, 0.105032E+01_JPRB, 0.103869E+01_JPRB, 0.102677E+01_JPRB &
+  &, 0.101453E+01_JPRB, 0.100202E+01_JPRB, 0.989226E+00_JPRB, 0.976174E+00_JPRB &
+  &, 0.962888E+00_JPRB, 0.949350E+00_JPRB, 0.935608E+00_JPRB &
+  &, 0.921659E+00_JPRB, 0.907536E+00_JPRB, 0.893219E+00_JPRB, 0.878740E+00_JPRB &
+  &, 0.864116E+00_JPRB, 0.849363E+00_JPRB, 0.834498E+00_JPRB &
+  &, 0.819515E+00_JPRB, 0.804452E+00_JPRB, 0.789302E+00_JPRB, 0.774104E+00_JPRB &
+  &, 0.758828E+00_JPRB, 0.743533E+00_JPRB, 0.728235E+00_JPRB &
+  &, 0.712902E+00_JPRB, 0.697571E+00_JPRB, 0.682278E+00_JPRB, 0.667014E+00_JPRB &
+  &, 0.651764E+00_JPRB, 0.636590E+00_JPRB, 0.621479E+00_JPRB &
+  &, 0.606440E+00_JPRB, 0.591482E+00_JPRB, 0.576643E+00_JPRB, 0.561901E+00_JPRB &
+  &, 0.547263E+00_JPRB, 0.532796E+00_JPRB, 0.518413E+00_JPRB &
+  &, 0.504211E+00_JPRB, 0.490163E+00_JPRB, 0.476271E+00_JPRB, 0.462569E+00_JPRB &
+  &, 0.449024E+00_JPRB, 0.435670E+00_JPRB, 0.422539E+00_JPRB &
+  &, 0.409559E+00_JPRB, 0.396796E+00_JPRB, 0.384282E+00_JPRB, 0.371937E+00_JPRB &
+  &, 0.359829E+00_JPRB, 0.347950E+00_JPRB, 0.336290E+00_JPRB &
+  &, 0.324837E+00_JPRB, 0.313660E+00_JPRB, 0.302705E+00_JPRB, 0.292000E+00_JPRB &
+  &, 0.281485E+00_JPRB, 0.271273E+00_JPRB, 0.261258E+00_JPRB &
+  &, 0.251508E+00_JPRB, 0.242004E+00_JPRB, 0.232724E+00_JPRB, 0.223688E+00_JPRB &
+  &, 0.214920E+00_JPRB, 0.206348E+00_JPRB, 0.198087E+00_JPRB &
+  &, 0.190012E+00_JPRB, 0.182143E+00_JPRB, 0.174547E+00_JPRB, 0.167195E+00_JPRB &
+  &, 0.160052E+00_JPRB, 0.153135E+00_JPRB, 0.146462E+00_JPRB &
+  &, 0.139996E+00_JPRB, 0.133752E+00_JPRB, 0.127746E+00_JPRB, 0.121880E+00_JPRB &
+  &, 0.116281E+00_JPRB, 0.110850E+00_JPRB, 0.105657E+00_JPRB &
+  &, 0.100597E+00_JPRB, 0.958027E-01_JPRB, 0.911025E-01_JPRB, 0.866310E-01_JPRB &
+  &, 0.823376E-01_JPRB, 0.782333E-01_JPRB, 0.743293E-01_JPRB/)
+XCW( 697, :) = (/ &
+  &  0.104895E+01_JPRB, 0.106035E+01_JPRB, 0.107141E+01_JPRB, 0.108211E+01_JPRB &
+  &, 0.109244E+01_JPRB, 0.110240E+01_JPRB, 0.111198E+01_JPRB &
+  &, 0.112117E+01_JPRB, 0.112996E+01_JPRB, 0.113835E+01_JPRB, 0.114633E+01_JPRB &
+  &, 0.115389E+01_JPRB, 0.116103E+01_JPRB, 0.116774E+01_JPRB &
+  &, 0.117400E+01_JPRB, 0.117983E+01_JPRB, 0.118521E+01_JPRB, 0.119013E+01_JPRB &
+  &, 0.119460E+01_JPRB, 0.119860E+01_JPRB, 0.120213E+01_JPRB &
+  &, 0.120519E+01_JPRB, 0.120778E+01_JPRB, 0.120988E+01_JPRB, 0.121151E+01_JPRB &
+  &, 0.121264E+01_JPRB, 0.121330E+01_JPRB, 0.121346E+01_JPRB &
+  &, 0.121314E+01_JPRB, 0.121232E+01_JPRB, 0.121102E+01_JPRB, 0.120923E+01_JPRB &
+  &, 0.120695E+01_JPRB, 0.120419E+01_JPRB, 0.120095E+01_JPRB &
+  &, 0.119722E+01_JPRB, 0.119302E+01_JPRB, 0.118835E+01_JPRB, 0.118320E+01_JPRB &
+  &, 0.117759E+01_JPRB, 0.117154E+01_JPRB, 0.116502E+01_JPRB &
+  &, 0.115806E+01_JPRB, 0.115067E+01_JPRB, 0.114285E+01_JPRB, 0.113462E+01_JPRB &
+  &, 0.112596E+01_JPRB, 0.111690E+01_JPRB, 0.110746E+01_JPRB &
+  &, 0.109763E+01_JPRB, 0.108743E+01_JPRB, 0.107686E+01_JPRB, 0.106596E+01_JPRB &
+  &, 0.105471E+01_JPRB, 0.104314E+01_JPRB, 0.103125E+01_JPRB &
+  &, 0.101906E+01_JPRB, 0.100658E+01_JPRB, 0.993834E+00_JPRB, 0.980821E+00_JPRB &
+  &, 0.967574E+00_JPRB, 0.954072E+00_JPRB, 0.940365E+00_JPRB &
+  &, 0.926432E+00_JPRB, 0.912322E+00_JPRB, 0.898034E+00_JPRB, 0.883583E+00_JPRB &
+  &, 0.868945E+00_JPRB, 0.854236E+00_JPRB, 0.839371E+00_JPRB &
+  &, 0.824408E+00_JPRB, 0.809340E+00_JPRB, 0.794182E+00_JPRB, 0.778973E+00_JPRB &
+  &, 0.763728E+00_JPRB, 0.748417E+00_JPRB, 0.733099E+00_JPRB &
+  &, 0.717767E+00_JPRB, 0.702433E+00_JPRB, 0.687110E+00_JPRB, 0.671812E+00_JPRB &
+  &, 0.656550E+00_JPRB, 0.641363E+00_JPRB, 0.626207E+00_JPRB &
+  &, 0.611147E+00_JPRB, 0.596164E+00_JPRB, 0.581268E+00_JPRB, 0.566495E+00_JPRB &
+  &, 0.551852E+00_JPRB, 0.537316E+00_JPRB, 0.522892E+00_JPRB &
+  &, 0.508644E+00_JPRB, 0.494547E+00_JPRB, 0.480634E+00_JPRB, 0.466843E+00_JPRB &
+  &, 0.453271E+00_JPRB, 0.439853E+00_JPRB, 0.426654E+00_JPRB &
+  &, 0.413637E+00_JPRB, 0.400834E+00_JPRB, 0.388204E+00_JPRB, 0.375813E+00_JPRB &
+  &, 0.363655E+00_JPRB, 0.351684E+00_JPRB, 0.339966E+00_JPRB &
+  &, 0.328493E+00_JPRB, 0.317212E+00_JPRB, 0.306190E+00_JPRB, 0.295414E+00_JPRB &
+  &, 0.284868E+00_JPRB, 0.274535E+00_JPRB, 0.264483E+00_JPRB &
+  &, 0.254649E+00_JPRB, 0.245057E+00_JPRB, 0.235731E+00_JPRB, 0.226647E+00_JPRB &
+  &, 0.217781E+00_JPRB, 0.209155E+00_JPRB, 0.200789E+00_JPRB &
+  &, 0.192655E+00_JPRB, 0.184723E+00_JPRB, 0.177063E+00_JPRB, 0.169643E+00_JPRB &
+  &, 0.162429E+00_JPRB, 0.155440E+00_JPRB, 0.148691E+00_JPRB &
+  &, 0.142201E+00_JPRB, 0.135876E+00_JPRB, 0.129787E+00_JPRB, 0.123892E+00_JPRB &
+  &, 0.118205E+00_JPRB, 0.112681E+00_JPRB, 0.107454E+00_JPRB &
+  &, 0.102358E+00_JPRB, 0.974639E-01_JPRB, 0.927236E-01_JPRB, 0.882106E-01_JPRB &
+  &, 0.838740E-01_JPRB, 0.796602E-01_JPRB, 0.757092E-01_JPRB/)
+XCW( 698, :) = (/ &
+  &  0.104924E+01_JPRB, 0.106073E+01_JPRB, 0.107186E+01_JPRB, 0.108264E+01_JPRB &
+  &, 0.109305E+01_JPRB, 0.110309E+01_JPRB, 0.111275E+01_JPRB &
+  &, 0.112202E+01_JPRB, 0.113090E+01_JPRB, 0.113937E+01_JPRB, 0.114743E+01_JPRB &
+  &, 0.115508E+01_JPRB, 0.116230E+01_JPRB, 0.116909E+01_JPRB &
+  &, 0.117545E+01_JPRB, 0.118136E+01_JPRB, 0.118683E+01_JPRB, 0.119184E+01_JPRB &
+  &, 0.119639E+01_JPRB, 0.120048E+01_JPRB, 0.120410E+01_JPRB &
+  &, 0.120724E+01_JPRB, 0.120991E+01_JPRB, 0.121211E+01_JPRB, 0.121382E+01_JPRB &
+  &, 0.121504E+01_JPRB, 0.121578E+01_JPRB, 0.121603E+01_JPRB &
+  &, 0.121579E+01_JPRB, 0.121506E+01_JPRB, 0.121384E+01_JPRB, 0.121214E+01_JPRB &
+  &, 0.120994E+01_JPRB, 0.120726E+01_JPRB, 0.120409E+01_JPRB &
+  &, 0.120044E+01_JPRB, 0.119633E+01_JPRB, 0.119173E+01_JPRB, 0.118666E+01_JPRB &
+  &, 0.118113E+01_JPRB, 0.117514E+01_JPRB, 0.116870E+01_JPRB &
+  &, 0.116182E+01_JPRB, 0.115450E+01_JPRB, 0.114675E+01_JPRB, 0.113858E+01_JPRB &
+  &, 0.112998E+01_JPRB, 0.112100E+01_JPRB, 0.111160E+01_JPRB &
+  &, 0.110184E+01_JPRB, 0.109169E+01_JPRB, 0.108118E+01_JPRB, 0.107033E+01_JPRB &
+  &, 0.105913E+01_JPRB, 0.104761E+01_JPRB, 0.103576E+01_JPRB &
+  &, 0.102362E+01_JPRB, 0.101118E+01_JPRB, 0.998474E+00_JPRB, 0.985501E+00_JPRB &
+  &, 0.972276E+00_JPRB, 0.958811E+00_JPRB, 0.945104E+00_JPRB &
+  &, 0.931240E+00_JPRB, 0.917145E+00_JPRB, 0.902887E+00_JPRB, 0.888445E+00_JPRB &
+  &, 0.873854E+00_JPRB, 0.859129E+00_JPRB, 0.844265E+00_JPRB &
+  &, 0.829300E+00_JPRB, 0.814249E+00_JPRB, 0.799106E+00_JPRB, 0.783909E+00_JPRB &
+  &, 0.768629E+00_JPRB, 0.753324E+00_JPRB, 0.737987E+00_JPRB &
+  &, 0.722655E+00_JPRB, 0.707295E+00_JPRB, 0.691968E+00_JPRB, 0.676636E+00_JPRB &
+  &, 0.661363E+00_JPRB, 0.646135E+00_JPRB, 0.630989E+00_JPRB &
+  &, 0.615880E+00_JPRB, 0.600874E+00_JPRB, 0.585951E+00_JPRB, 0.571147E+00_JPRB &
+  &, 0.556441E+00_JPRB, 0.541867E+00_JPRB, 0.527433E+00_JPRB &
+  &, 0.513109E+00_JPRB, 0.498963E+00_JPRB, 0.484998E+00_JPRB, 0.471184E+00_JPRB &
+  &, 0.457519E+00_JPRB, 0.444070E+00_JPRB, 0.430804E+00_JPRB &
+  &, 0.417715E+00_JPRB, 0.404873E+00_JPRB, 0.392200E+00_JPRB, 0.379726E+00_JPRB &
+  &, 0.367519E+00_JPRB, 0.355495E+00_JPRB, 0.343722E+00_JPRB &
+  &, 0.332149E+00_JPRB, 0.320805E+00_JPRB, 0.309716E+00_JPRB, 0.298870E+00_JPRB &
+  &, 0.288251E+00_JPRB, 0.277885E+00_JPRB, 0.267708E+00_JPRB &
+  &, 0.257835E+00_JPRB, 0.248156E+00_JPRB, 0.238784E+00_JPRB, 0.229606E+00_JPRB &
+  &, 0.220690E+00_JPRB, 0.211962E+00_JPRB, 0.203540E+00_JPRB &
+  &, 0.195347E+00_JPRB, 0.187354E+00_JPRB, 0.179629E+00_JPRB, 0.172143E+00_JPRB &
+  &, 0.164860E+00_JPRB, 0.157798E+00_JPRB, 0.150974E+00_JPRB &
+  &, 0.144352E+00_JPRB, 0.138001E+00_JPRB, 0.131828E+00_JPRB, 0.125846E+00_JPRB &
+  &, 0.120128E+00_JPRB, 0.114572E+00_JPRB, 0.109251E+00_JPRB &
+  &, 0.104118E+00_JPRB, 0.991250E-01_JPRB, 0.943447E-01_JPRB, 0.897901E-01_JPRB &
+  &, 0.854105E-01_JPRB, 0.811521E-01_JPRB, 0.770892E-01_JPRB/)
+XCW( 699, :) = (/ &
+  &  0.104954E+01_JPRB, 0.106110E+01_JPRB, 0.107231E+01_JPRB, 0.108317E+01_JPRB &
+  &, 0.109366E+01_JPRB, 0.110378E+01_JPRB, 0.111352E+01_JPRB &
+  &, 0.112288E+01_JPRB, 0.113184E+01_JPRB, 0.114039E+01_JPRB, 0.114854E+01_JPRB &
+  &, 0.115627E+01_JPRB, 0.116358E+01_JPRB, 0.117045E+01_JPRB &
+  &, 0.117689E+01_JPRB, 0.118289E+01_JPRB, 0.118845E+01_JPRB, 0.119354E+01_JPRB &
+  &, 0.119818E+01_JPRB, 0.120236E+01_JPRB, 0.120606E+01_JPRB &
+  &, 0.120930E+01_JPRB, 0.121206E+01_JPRB, 0.121434E+01_JPRB, 0.121613E+01_JPRB &
+  &, 0.121744E+01_JPRB, 0.121827E+01_JPRB, 0.121860E+01_JPRB &
+  &, 0.121845E+01_JPRB, 0.121780E+01_JPRB, 0.121667E+01_JPRB, 0.121505E+01_JPRB &
+  &, 0.121294E+01_JPRB, 0.121033E+01_JPRB, 0.120725E+01_JPRB &
+  &, 0.120368E+01_JPRB, 0.119964E+01_JPRB, 0.119512E+01_JPRB, 0.119014E+01_JPRB &
+  &, 0.118467E+01_JPRB, 0.117877E+01_JPRB, 0.117240E+01_JPRB &
+  &, 0.116558E+01_JPRB, 0.115834E+01_JPRB, 0.115065E+01_JPRB, 0.114255E+01_JPRB &
+  &, 0.113401E+01_JPRB, 0.112509E+01_JPRB, 0.111575E+01_JPRB &
+  &, 0.110606E+01_JPRB, 0.109597E+01_JPRB, 0.108552E+01_JPRB, 0.107472E+01_JPRB &
+  &, 0.106357E+01_JPRB, 0.105209E+01_JPRB, 0.104030E+01_JPRB &
+  &, 0.102820E+01_JPRB, 0.101581E+01_JPRB, 0.100313E+01_JPRB, 0.990198E+00_JPRB &
+  &, 0.977012E+00_JPRB, 0.963585E+00_JPRB, 0.949933E+00_JPRB &
+  &, 0.936049E+00_JPRB, 0.921986E+00_JPRB, 0.907740E+00_JPRB, 0.893327E+00_JPRB &
+  &, 0.878762E+00_JPRB, 0.864042E+00_JPRB, 0.849201E+00_JPRB &
+  &, 0.834087E+00_JPRB, 0.819201E+00_JPRB, 0.804052E+00_JPRB, 0.788846E+00_JPRB &
+  &, 0.773575E+00_JPRB, 0.758278E+00_JPRB, 0.742922E+00_JPRB &
+  &, 0.727568E+00_JPRB, 0.712207E+00_JPRB, 0.696851E+00_JPRB, 0.681512E+00_JPRB &
+  &, 0.666229E+00_JPRB, 0.650961E+00_JPRB, 0.635771E+00_JPRB &
+  &, 0.620642E+00_JPRB, 0.605613E+00_JPRB, 0.590663E+00_JPRB, 0.575800E+00_JPRB &
+  &, 0.561060E+00_JPRB, 0.546449E+00_JPRB, 0.531973E+00_JPRB &
+  &, 0.517637E+00_JPRB, 0.503443E+00_JPRB, 0.489394E+00_JPRB, 0.475524E+00_JPRB &
+  &, 0.461834E+00_JPRB, 0.448323E+00_JPRB, 0.434989E+00_JPRB &
+  &, 0.421865E+00_JPRB, 0.408948E+00_JPRB, 0.396233E+00_JPRB, 0.383714E+00_JPRB &
+  &, 0.371421E+00_JPRB, 0.359345E+00_JPRB, 0.347477E+00_JPRB &
+  &, 0.335845E+00_JPRB, 0.324439E+00_JPRB, 0.313284E+00_JPRB, 0.302369E+00_JPRB &
+  &, 0.291677E+00_JPRB, 0.281234E+00_JPRB, 0.271022E+00_JPRB &
+  &, 0.261066E+00_JPRB, 0.251300E+00_JPRB, 0.241838E+00_JPRB, 0.232613E+00_JPRB &
+  &, 0.223599E+00_JPRB, 0.214866E+00_JPRB, 0.206340E+00_JPRB &
+  &, 0.198039E+00_JPRB, 0.189985E+00_JPRB, 0.182196E+00_JPRB, 0.174643E+00_JPRB &
+  &, 0.167290E+00_JPRB, 0.160156E+00_JPRB, 0.153258E+00_JPRB &
+  &, 0.146612E+00_JPRB, 0.140182E+00_JPRB, 0.133926E+00_JPRB, 0.127916E+00_JPRB &
+  &, 0.122110E+00_JPRB, 0.116463E+00_JPRB, 0.111107E+00_JPRB &
+  &, 0.105878E+00_JPRB, 0.100848E+00_JPRB, 0.960281E-01_JPRB, 0.913696E-01_JPRB &
+  &, 0.869469E-01_JPRB, 0.826439E-01_JPRB, 0.785348E-01_JPRB/)
+XCW( 700, :) = (/ &
+  &  0.104984E+01_JPRB, 0.106147E+01_JPRB, 0.107276E+01_JPRB, 0.108370E+01_JPRB &
+  &, 0.109427E+01_JPRB, 0.110447E+01_JPRB, 0.111430E+01_JPRB &
+  &, 0.112373E+01_JPRB, 0.113277E+01_JPRB, 0.114141E+01_JPRB, 0.114965E+01_JPRB &
+  &, 0.115746E+01_JPRB, 0.116485E+01_JPRB, 0.117182E+01_JPRB &
+  &, 0.117835E+01_JPRB, 0.118443E+01_JPRB, 0.119007E+01_JPRB, 0.119525E+01_JPRB &
+  &, 0.119998E+01_JPRB, 0.120424E+01_JPRB, 0.120804E+01_JPRB &
+  &, 0.121136E+01_JPRB, 0.121420E+01_JPRB, 0.121657E+01_JPRB, 0.121846E+01_JPRB &
+  &, 0.121985E+01_JPRB, 0.122076E+01_JPRB, 0.122118E+01_JPRB &
+  &, 0.122112E+01_JPRB, 0.122056E+01_JPRB, 0.121951E+01_JPRB, 0.121797E+01_JPRB &
+  &, 0.121594E+01_JPRB, 0.121342E+01_JPRB, 0.121042E+01_JPRB &
+  &, 0.120694E+01_JPRB, 0.120296E+01_JPRB, 0.119853E+01_JPRB, 0.119361E+01_JPRB &
+  &, 0.118824E+01_JPRB, 0.118239E+01_JPRB, 0.117610E+01_JPRB &
+  &, 0.116937E+01_JPRB, 0.116219E+01_JPRB, 0.115457E+01_JPRB, 0.114653E+01_JPRB &
+  &, 0.113807E+01_JPRB, 0.112921E+01_JPRB, 0.111994E+01_JPRB &
+  &, 0.111029E+01_JPRB, 0.110026E+01_JPRB, 0.108985E+01_JPRB, 0.107912E+01_JPRB &
+  &, 0.106802E+01_JPRB, 0.105660E+01_JPRB, 0.104485E+01_JPRB &
+  &, 0.103281E+01_JPRB, 0.102044E+01_JPRB, 0.100782E+01_JPRB, 0.994911E+00_JPRB &
+  &, 0.981765E+00_JPRB, 0.968359E+00_JPRB, 0.954743E+00_JPRB &
+  &, 0.940876E+00_JPRB, 0.926864E+00_JPRB, 0.912631E+00_JPRB, 0.898247E+00_JPRB &
+  &, 0.883690E+00_JPRB, 0.868995E+00_JPRB, 0.854157E+00_JPRB &
+  &, 0.839212E+00_JPRB, 0.824154E+00_JPRB, 0.809020E+00_JPRB, 0.793827E+00_JPRB &
+  &, 0.778544E+00_JPRB, 0.763232E+00_JPRB, 0.747881E+00_JPRB &
+  &, 0.732530E+00_JPRB, 0.717144E+00_JPRB, 0.701784E+00_JPRB, 0.686413E+00_JPRB &
+  &, 0.671095E+00_JPRB, 0.655840E+00_JPRB, 0.640607E+00_JPRB &
+  &, 0.625460E+00_JPRB, 0.610380E+00_JPRB, 0.595404E+00_JPRB, 0.580512E+00_JPRB &
+  &, 0.565739E+00_JPRB, 0.551092E+00_JPRB, 0.536545E+00_JPRB &
+  &, 0.522165E+00_JPRB, 0.507924E+00_JPRB, 0.493857E+00_JPRB, 0.479932E+00_JPRB &
+  &, 0.466183E+00_JPRB, 0.452609E+00_JPRB, 0.439245E+00_JPRB &
+  &, 0.426051E+00_JPRB, 0.413060E+00_JPRB, 0.400267E+00_JPRB, 0.387702E+00_JPRB &
+  &, 0.375322E+00_JPRB, 0.363195E+00_JPRB, 0.351272E+00_JPRB &
+  &, 0.339582E+00_JPRB, 0.328113E+00_JPRB, 0.316894E+00_JPRB, 0.305910E+00_JPRB &
+  &, 0.295146E+00_JPRB, 0.284627E+00_JPRB, 0.274336E+00_JPRB &
+  &, 0.264296E+00_JPRB, 0.254489E+00_JPRB, 0.244938E+00_JPRB, 0.235619E+00_JPRB &
+  &, 0.226555E+00_JPRB, 0.217722E+00_JPRB, 0.209140E+00_JPRB &
+  &, 0.200781E+00_JPRB, 0.192666E+00_JPRB, 0.184814E+00_JPRB, 0.177143E+00_JPRB &
+  &, 0.169774E+00_JPRB, 0.162568E+00_JPRB, 0.155595E+00_JPRB &
+  &, 0.148873E+00_JPRB, 0.142362E+00_JPRB, 0.136080E+00_JPRB, 0.129985E+00_JPRB &
+  &, 0.124091E+00_JPRB, 0.118413E+00_JPRB, 0.112964E+00_JPRB &
+  &, 0.107700E+00_JPRB, 0.102632E+00_JPRB, 0.977116E-01_JPRB, 0.930123E-01_JPRB &
+  &, 0.884834E-01_JPRB, 0.841357E-01_JPRB, 0.799804E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART100',1,ZHOOK_HANDLE)
+END SUBROUTINE PART100
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART101
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART101',0,ZHOOK_HANDLE)
+
+XCW( 701, :) = (/ &
+  &  0.105013E+01_JPRB, 0.106185E+01_JPRB, 0.107322E+01_JPRB, 0.108423E+01_JPRB &
+  &, 0.109488E+01_JPRB, 0.110517E+01_JPRB, 0.111507E+01_JPRB &
+  &, 0.112459E+01_JPRB, 0.113371E+01_JPRB, 0.114244E+01_JPRB, 0.115075E+01_JPRB &
+  &, 0.115866E+01_JPRB, 0.116613E+01_JPRB, 0.117318E+01_JPRB &
+  &, 0.117980E+01_JPRB, 0.118597E+01_JPRB, 0.119170E+01_JPRB, 0.119697E+01_JPRB &
+  &, 0.120178E+01_JPRB, 0.120613E+01_JPRB, 0.121002E+01_JPRB &
+  &, 0.121342E+01_JPRB, 0.121636E+01_JPRB, 0.121881E+01_JPRB, 0.122078E+01_JPRB &
+  &, 0.122227E+01_JPRB, 0.122327E+01_JPRB, 0.122378E+01_JPRB &
+  &, 0.122379E+01_JPRB, 0.122332E+01_JPRB, 0.122235E+01_JPRB, 0.122090E+01_JPRB &
+  &, 0.121895E+01_JPRB, 0.121652E+01_JPRB, 0.121360E+01_JPRB &
+  &, 0.121019E+01_JPRB, 0.120630E+01_JPRB, 0.120195E+01_JPRB, 0.119711E+01_JPRB &
+  &, 0.119181E+01_JPRB, 0.118605E+01_JPRB, 0.117983E+01_JPRB &
+  &, 0.117316E+01_JPRB, 0.116604E+01_JPRB, 0.115850E+01_JPRB, 0.115052E+01_JPRB &
+  &, 0.114214E+01_JPRB, 0.113334E+01_JPRB, 0.112413E+01_JPRB &
+  &, 0.111454E+01_JPRB, 0.110458E+01_JPRB, 0.109423E+01_JPRB, 0.108354E+01_JPRB &
+  &, 0.107250E+01_JPRB, 0.106113E+01_JPRB, 0.104942E+01_JPRB &
+  &, 0.103742E+01_JPRB, 0.102511E+01_JPRB, 0.101252E+01_JPRB, 0.999658E+00_JPRB &
+  &, 0.986535E+00_JPRB, 0.973185E+00_JPRB, 0.959589E+00_JPRB &
+  &, 0.945776E+00_JPRB, 0.931761E+00_JPRB, 0.917560E+00_JPRB, 0.903187E+00_JPRB &
+  &, 0.888638E+00_JPRB, 0.873948E+00_JPRB, 0.859133E+00_JPRB &
+  &, 0.844209E+00_JPRB, 0.829171E+00_JPRB, 0.814032E+00_JPRB, 0.798831E+00_JPRB &
+  &, 0.783560E+00_JPRB, 0.768233E+00_JPRB, 0.752888E+00_JPRB &
+  &, 0.737492E+00_JPRB, 0.722105E+00_JPRB, 0.706717E+00_JPRB, 0.691366E+00_JPRB &
+  &, 0.676013E+00_JPRB, 0.660720E+00_JPRB, 0.645471E+00_JPRB &
+  &, 0.630305E+00_JPRB, 0.615204E+00_JPRB, 0.600174E+00_JPRB, 0.585253E+00_JPRB &
+  &, 0.570448E+00_JPRB, 0.555735E+00_JPRB, 0.541179E+00_JPRB &
+  &, 0.526757E+00_JPRB, 0.512469E+00_JPRB, 0.498319E+00_JPRB, 0.484373E+00_JPRB &
+  &, 0.470566E+00_JPRB, 0.456931E+00_JPRB, 0.443500E+00_JPRB &
+  &, 0.430272E+00_JPRB, 0.417208E+00_JPRB, 0.404374E+00_JPRB, 0.391728E+00_JPRB &
+  &, 0.379301E+00_JPRB, 0.367084E+00_JPRB, 0.355106E+00_JPRB &
+  &, 0.343358E+00_JPRB, 0.331829E+00_JPRB, 0.320545E+00_JPRB, 0.309451E+00_JPRB &
+  &, 0.298657E+00_JPRB, 0.288063E+00_JPRB, 0.277693E+00_JPRB &
+  &, 0.267572E+00_JPRB, 0.257724E+00_JPRB, 0.248084E+00_JPRB, 0.238719E+00_JPRB &
+  &, 0.229559E+00_JPRB, 0.220674E+00_JPRB, 0.211989E+00_JPRB &
+  &, 0.203573E+00_JPRB, 0.195398E+00_JPRB, 0.187432E+00_JPRB, 0.179747E+00_JPRB &
+  &, 0.172257E+00_JPRB, 0.164980E+00_JPRB, 0.157987E+00_JPRB &
+  &, 0.151188E+00_JPRB, 0.144599E+00_JPRB, 0.138235E+00_JPRB, 0.132055E+00_JPRB &
+  &, 0.126131E+00_JPRB, 0.120362E+00_JPRB, 0.114880E+00_JPRB &
+  &, 0.109521E+00_JPRB, 0.104355E+00_JPRB, 0.994573E-01_JPRB, 0.946550E-01_JPRB &
+  &, 0.900838E-01_JPRB, 0.856924E-01_JPRB, 0.814918E-01_JPRB/)
+XCW( 702, :) = (/ &
+  &  0.105043E+01_JPRB, 0.106222E+01_JPRB, 0.107367E+01_JPRB, 0.108476E+01_JPRB &
+  &, 0.109550E+01_JPRB, 0.110586E+01_JPRB, 0.111585E+01_JPRB &
+  &, 0.112545E+01_JPRB, 0.113466E+01_JPRB, 0.114347E+01_JPRB, 0.115187E+01_JPRB &
+  &, 0.115985E+01_JPRB, 0.116742E+01_JPRB, 0.117455E+01_JPRB &
+  &, 0.118126E+01_JPRB, 0.118751E+01_JPRB, 0.119333E+01_JPRB, 0.119869E+01_JPRB &
+  &, 0.120359E+01_JPRB, 0.120803E+01_JPRB, 0.121200E+01_JPRB &
+  &, 0.121550E+01_JPRB, 0.121852E+01_JPRB, 0.122106E+01_JPRB, 0.122312E+01_JPRB &
+  &, 0.122469E+01_JPRB, 0.122578E+01_JPRB, 0.122637E+01_JPRB &
+  &, 0.122647E+01_JPRB, 0.122609E+01_JPRB, 0.122521E+01_JPRB, 0.122384E+01_JPRB &
+  &, 0.122198E+01_JPRB, 0.121962E+01_JPRB, 0.121679E+01_JPRB &
+  &, 0.121346E+01_JPRB, 0.120966E+01_JPRB, 0.120537E+01_JPRB, 0.120062E+01_JPRB &
+  &, 0.119539E+01_JPRB, 0.118971E+01_JPRB, 0.118356E+01_JPRB &
+  &, 0.117697E+01_JPRB, 0.116993E+01_JPRB, 0.116244E+01_JPRB, 0.115454E+01_JPRB &
+  &, 0.114622E+01_JPRB, 0.113748E+01_JPRB, 0.112834E+01_JPRB &
+  &, 0.111881E+01_JPRB, 0.110890E+01_JPRB, 0.109863E+01_JPRB, 0.108799E+01_JPRB &
+  &, 0.107700E+01_JPRB, 0.106567E+01_JPRB, 0.105402E+01_JPRB &
+  &, 0.104206E+01_JPRB, 0.102980E+01_JPRB, 0.101725E+01_JPRB, 0.100442E+01_JPRB &
+  &, 0.991339E+00_JPRB, 0.978011E+00_JPRB, 0.964452E+00_JPRB &
+  &, 0.950675E+00_JPRB, 0.936677E+00_JPRB, 0.922508E+00_JPRB, 0.908146E+00_JPRB &
+  &, 0.893626E+00_JPRB, 0.878962E+00_JPRB, 0.864151E+00_JPRB &
+  &, 0.849228E+00_JPRB, 0.834188E+00_JPRB, 0.819066E+00_JPRB, 0.803857E+00_JPRB &
+  &, 0.788598E+00_JPRB, 0.773257E+00_JPRB, 0.757895E+00_JPRB &
+  &, 0.742526E+00_JPRB, 0.727116E+00_JPRB, 0.711727E+00_JPRB, 0.696319E+00_JPRB &
+  &, 0.680984E+00_JPRB, 0.665653E+00_JPRB, 0.650390E+00_JPRB &
+  &, 0.635179E+00_JPRB, 0.620027E+00_JPRB, 0.605002E+00_JPRB, 0.590023E+00_JPRB &
+  &, 0.575187E+00_JPRB, 0.560439E+00_JPRB, 0.545845E+00_JPRB &
+  &, 0.531348E+00_JPRB, 0.517046E+00_JPRB, 0.502846E+00_JPRB, 0.488847E+00_JPRB &
+  &, 0.474983E+00_JPRB, 0.461321E+00_JPRB, 0.447826E+00_JPRB &
+  &, 0.434530E+00_JPRB, 0.421392E+00_JPRB, 0.408518E+00_JPRB, 0.395792E+00_JPRB &
+  &, 0.383318E+00_JPRB, 0.371050E+00_JPRB, 0.358980E+00_JPRB &
+  &, 0.347175E+00_JPRB, 0.335585E+00_JPRB, 0.324196E+00_JPRB, 0.313076E+00_JPRB &
+  &, 0.302169E+00_JPRB, 0.291500E+00_JPRB, 0.281095E+00_JPRB &
+  &, 0.270937E+00_JPRB, 0.260959E+00_JPRB, 0.251276E+00_JPRB, 0.241819E+00_JPRB &
+  &, 0.232611E+00_JPRB, 0.223627E+00_JPRB, 0.214888E+00_JPRB &
+  &, 0.206415E+00_JPRB, 0.198130E+00_JPRB, 0.190153E+00_JPRB, 0.182351E+00_JPRB &
+  &, 0.174793E+00_JPRB, 0.167445E+00_JPRB, 0.160379E+00_JPRB &
+  &, 0.153504E+00_JPRB, 0.146835E+00_JPRB, 0.140389E+00_JPRB, 0.134182E+00_JPRB &
+  &, 0.128171E+00_JPRB, 0.122371E+00_JPRB, 0.116797E+00_JPRB &
+  &, 0.111402E+00_JPRB, 0.106200E+00_JPRB, 0.101203E+00_JPRB, 0.963609E-01_JPRB &
+  &, 0.917483E-01_JPRB, 0.872491E-01_JPRB, 0.830032E-01_JPRB/)
+XCW( 703, :) = (/ &
+  &  0.105073E+01_JPRB, 0.106260E+01_JPRB, 0.107413E+01_JPRB, 0.108530E+01_JPRB &
+  &, 0.109611E+01_JPRB, 0.110656E+01_JPRB, 0.111663E+01_JPRB &
+  &, 0.112631E+01_JPRB, 0.113560E+01_JPRB, 0.114450E+01_JPRB, 0.115298E+01_JPRB &
+  &, 0.116105E+01_JPRB, 0.116870E+01_JPRB, 0.117593E+01_JPRB &
+  &, 0.118271E+01_JPRB, 0.118906E+01_JPRB, 0.119496E+01_JPRB, 0.120041E+01_JPRB &
+  &, 0.120540E+01_JPRB, 0.120993E+01_JPRB, 0.121399E+01_JPRB &
+  &, 0.121757E+01_JPRB, 0.122068E+01_JPRB, 0.122331E+01_JPRB, 0.122546E+01_JPRB &
+  &, 0.122712E+01_JPRB, 0.122829E+01_JPRB, 0.122897E+01_JPRB &
+  &, 0.122916E+01_JPRB, 0.122886E+01_JPRB, 0.122807E+01_JPRB, 0.122678E+01_JPRB &
+  &, 0.122501E+01_JPRB, 0.122274E+01_JPRB, 0.121998E+01_JPRB &
+  &, 0.121674E+01_JPRB, 0.121302E+01_JPRB, 0.120881E+01_JPRB, 0.120414E+01_JPRB &
+  &, 0.119899E+01_JPRB, 0.119337E+01_JPRB, 0.118731E+01_JPRB &
+  &, 0.118079E+01_JPRB, 0.117382E+01_JPRB, 0.116641E+01_JPRB, 0.115857E+01_JPRB &
+  &, 0.115031E+01_JPRB, 0.114163E+01_JPRB, 0.113258E+01_JPRB &
+  &, 0.112311E+01_JPRB, 0.111326E+01_JPRB, 0.110303E+01_JPRB, 0.109245E+01_JPRB &
+  &, 0.108150E+01_JPRB, 0.107024E+01_JPRB, 0.105864E+01_JPRB &
+  &, 0.104672E+01_JPRB, 0.103449E+01_JPRB, 0.102200E+01_JPRB, 0.100922E+01_JPRB &
+  &, 0.996160E+00_JPRB, 0.982872E+00_JPRB, 0.969334E+00_JPRB &
+  &, 0.955593E+00_JPRB, 0.941629E+00_JPRB, 0.927474E+00_JPRB, 0.913144E+00_JPRB &
+  &, 0.898633E+00_JPRB, 0.883976E+00_JPRB, 0.869190E+00_JPRB &
+  &, 0.854268E+00_JPRB, 0.839248E+00_JPRB, 0.824122E+00_JPRB, 0.808928E+00_JPRB &
+  &, 0.793659E+00_JPRB, 0.778328E+00_JPRB, 0.762949E+00_JPRB &
+  &, 0.747561E+00_JPRB, 0.732152E+00_JPRB, 0.716736E+00_JPRB, 0.701324E+00_JPRB &
+  &, 0.685954E+00_JPRB, 0.670613E+00_JPRB, 0.655309E+00_JPRB &
+  &, 0.640080E+00_JPRB, 0.624908E+00_JPRB, 0.609829E+00_JPRB, 0.594853E+00_JPRB &
+  &, 0.579956E+00_JPRB, 0.565173E+00_JPRB, 0.550541E+00_JPRB &
+  &, 0.536003E+00_JPRB, 0.521624E+00_JPRB, 0.507407E+00_JPRB, 0.493355E+00_JPRB &
+  &, 0.479434E+00_JPRB, 0.465712E+00_JPRB, 0.452152E+00_JPRB &
+  &, 0.438822E+00_JPRB, 0.425649E+00_JPRB, 0.412663E+00_JPRB, 0.399931E+00_JPRB &
+  &, 0.387373E+00_JPRB, 0.375017E+00_JPRB, 0.362933E+00_JPRB &
+  &, 0.351032E+00_JPRB, 0.339341E+00_JPRB, 0.327930E+00_JPRB, 0.316701E+00_JPRB &
+  &, 0.305766E+00_JPRB, 0.295023E+00_JPRB, 0.284542E+00_JPRB &
+  &, 0.274258E+00_JPRB, 0.264286E+00_JPRB, 0.254514E+00_JPRB, 0.244966E+00_JPRB &
+  &, 0.235663E+00_JPRB, 0.226628E+00_JPRB, 0.217835E+00_JPRB &
+  &, 0.209257E+00_JPRB, 0.200912E+00_JPRB, 0.192822E+00_JPRB, 0.185007E+00_JPRB &
+  &, 0.177382E+00_JPRB, 0.169964E+00_JPRB, 0.162771E+00_JPRB &
+  &, 0.155875E+00_JPRB, 0.149128E+00_JPRB, 0.142657E+00_JPRB, 0.136366E+00_JPRB &
+  &, 0.130269E+00_JPRB, 0.124380E+00_JPRB, 0.118773E+00_JPRB &
+  &, 0.113284E+00_JPRB, 0.108046E+00_JPRB, 0.102949E+00_JPRB, 0.980668E-01_JPRB &
+  &, 0.933488E-01_JPRB, 0.888706E-01_JPRB, 0.845145E-01_JPRB/)
+XCW( 704, :) = (/ &
+  &  0.105103E+01_JPRB, 0.106298E+01_JPRB, 0.107458E+01_JPRB, 0.108583E+01_JPRB &
+  &, 0.109673E+01_JPRB, 0.110725E+01_JPRB, 0.111740E+01_JPRB &
+  &, 0.112717E+01_JPRB, 0.113655E+01_JPRB, 0.114553E+01_JPRB, 0.115410E+01_JPRB &
+  &, 0.116226E+01_JPRB, 0.116999E+01_JPRB, 0.117730E+01_JPRB &
+  &, 0.118418E+01_JPRB, 0.119061E+01_JPRB, 0.119660E+01_JPRB, 0.120214E+01_JPRB &
+  &, 0.120722E+01_JPRB, 0.121183E+01_JPRB, 0.121598E+01_JPRB &
+  &, 0.121965E+01_JPRB, 0.122286E+01_JPRB, 0.122557E+01_JPRB, 0.122781E+01_JPRB &
+  &, 0.122956E+01_JPRB, 0.123082E+01_JPRB, 0.123159E+01_JPRB &
+  &, 0.123187E+01_JPRB, 0.123165E+01_JPRB, 0.123094E+01_JPRB, 0.122974E+01_JPRB &
+  &, 0.122805E+01_JPRB, 0.122587E+01_JPRB, 0.122319E+01_JPRB &
+  &, 0.122003E+01_JPRB, 0.121639E+01_JPRB, 0.121226E+01_JPRB, 0.120767E+01_JPRB &
+  &, 0.120260E+01_JPRB, 0.119706E+01_JPRB, 0.119107E+01_JPRB &
+  &, 0.118462E+01_JPRB, 0.117773E+01_JPRB, 0.117039E+01_JPRB, 0.116263E+01_JPRB &
+  &, 0.115443E+01_JPRB, 0.114582E+01_JPRB, 0.113682E+01_JPRB &
+  &, 0.112741E+01_JPRB, 0.111762E+01_JPRB, 0.110745E+01_JPRB, 0.109692E+01_JPRB &
+  &, 0.108604E+01_JPRB, 0.107483E+01_JPRB, 0.106327E+01_JPRB &
+  &, 0.105140E+01_JPRB, 0.103924E+01_JPRB, 0.102677E+01_JPRB, 0.101401E+01_JPRB &
+  &, 0.100102E+01_JPRB, 0.987750E+00_JPRB, 0.974250E+00_JPRB &
+  &, 0.960529E+00_JPRB, 0.946600E+00_JPRB, 0.932460E+00_JPRB, 0.918161E+00_JPRB &
+  &, 0.903680E+00_JPRB, 0.889031E+00_JPRB, 0.874249E+00_JPRB &
+  &, 0.859351E+00_JPRB, 0.844329E+00_JPRB, 0.829222E+00_JPRB, 0.814022E+00_JPRB &
+  &, 0.798742E+00_JPRB, 0.783422E+00_JPRB, 0.768051E+00_JPRB &
+  &, 0.752644E+00_JPRB, 0.737213E+00_JPRB, 0.721796E+00_JPRB, 0.706380E+00_JPRB &
+  &, 0.690978E+00_JPRB, 0.675599E+00_JPRB, 0.660282E+00_JPRB &
+  &, 0.645037E+00_JPRB, 0.629845E+00_JPRB, 0.614715E+00_JPRB, 0.599682E+00_JPRB &
+  &, 0.584784E+00_JPRB, 0.569968E+00_JPRB, 0.555269E+00_JPRB &
+  &, 0.540689E+00_JPRB, 0.526297E+00_JPRB, 0.512000E+00_JPRB, 0.497896E+00_JPRB &
+  &, 0.483919E+00_JPRB, 0.470171E+00_JPRB, 0.456548E+00_JPRB &
+  &, 0.443151E+00_JPRB, 0.429906E+00_JPRB, 0.416881E+00_JPRB, 0.404069E+00_JPRB &
+  &, 0.391466E+00_JPRB, 0.379061E+00_JPRB, 0.366886E+00_JPRB &
+  &, 0.354929E+00_JPRB, 0.343179E+00_JPRB, 0.331664E+00_JPRB, 0.320410E+00_JPRB &
+  &, 0.309363E+00_JPRB, 0.298590E+00_JPRB, 0.287988E+00_JPRB &
+  &, 0.277668E+00_JPRB, 0.267612E+00_JPRB, 0.257753E+00_JPRB, 0.248160E+00_JPRB &
+  &, 0.238810E+00_JPRB, 0.229677E+00_JPRB, 0.220783E+00_JPRB &
+  &, 0.212149E+00_JPRB, 0.203746E+00_JPRB, 0.195594E+00_JPRB, 0.187663E+00_JPRB &
+  &, 0.179971E+00_JPRB, 0.172484E+00_JPRB, 0.165272E+00_JPRB &
+  &, 0.158245E+00_JPRB, 0.151476E+00_JPRB, 0.144868E+00_JPRB, 0.138551E+00_JPRB &
+  &, 0.132367E+00_JPRB, 0.126448E+00_JPRB, 0.120750E+00_JPRB &
+  &, 0.115227E+00_JPRB, 0.109892E+00_JPRB, 0.104757E+00_JPRB, 0.998359E-01_JPRB &
+  &, 0.950773E-01_JPRB, 0.904922E-01_JPRB, 0.860916E-01_JPRB/)
+XCW( 705, :) = (/ &
+  &  0.105133E+01_JPRB, 0.106335E+01_JPRB, 0.107504E+01_JPRB, 0.108637E+01_JPRB &
+  &, 0.109734E+01_JPRB, 0.110795E+01_JPRB, 0.111819E+01_JPRB &
+  &, 0.112804E+01_JPRB, 0.113750E+01_JPRB, 0.114656E+01_JPRB, 0.115522E+01_JPRB &
+  &, 0.116346E+01_JPRB, 0.117129E+01_JPRB, 0.117868E+01_JPRB &
+  &, 0.118565E+01_JPRB, 0.119217E+01_JPRB, 0.119825E+01_JPRB, 0.120387E+01_JPRB &
+  &, 0.120904E+01_JPRB, 0.121374E+01_JPRB, 0.121798E+01_JPRB &
+  &, 0.122174E+01_JPRB, 0.122503E+01_JPRB, 0.122784E+01_JPRB, 0.123016E+01_JPRB &
+  &, 0.123200E+01_JPRB, 0.123335E+01_JPRB, 0.123419E+01_JPRB &
+  &, 0.123457E+01_JPRB, 0.123445E+01_JPRB, 0.123382E+01_JPRB, 0.123271E+01_JPRB &
+  &, 0.123110E+01_JPRB, 0.122900E+01_JPRB, 0.122642E+01_JPRB &
+  &, 0.122334E+01_JPRB, 0.121978E+01_JPRB, 0.121573E+01_JPRB, 0.121121E+01_JPRB &
+  &, 0.120621E+01_JPRB, 0.120076E+01_JPRB, 0.119485E+01_JPRB &
+  &, 0.118847E+01_JPRB, 0.118165E+01_JPRB, 0.117438E+01_JPRB, 0.116669E+01_JPRB &
+  &, 0.115856E+01_JPRB, 0.115003E+01_JPRB, 0.114108E+01_JPRB &
+  &, 0.113173E+01_JPRB, 0.112201E+01_JPRB, 0.111190E+01_JPRB, 0.110142E+01_JPRB &
+  &, 0.109059E+01_JPRB, 0.107943E+01_JPRB, 0.106792E+01_JPRB &
+  &, 0.105610E+01_JPRB, 0.104398E+01_JPRB, 0.103156E+01_JPRB, 0.101886E+01_JPRB &
+  &, 0.100589E+01_JPRB, 0.992663E+00_JPRB, 0.979203E+00_JPRB &
+  &, 0.965501E+00_JPRB, 0.951590E+00_JPRB, 0.937484E+00_JPRB, 0.923198E+00_JPRB &
+  &, 0.908747E+00_JPRB, 0.894126E+00_JPRB, 0.879350E+00_JPRB &
+  &, 0.864454E+00_JPRB, 0.849454E+00_JPRB, 0.834344E+00_JPRB, 0.819137E+00_JPRB &
+  &, 0.803872E+00_JPRB, 0.788540E+00_JPRB, 0.773153E+00_JPRB &
+  &, 0.757751E+00_JPRB, 0.742323E+00_JPRB, 0.726881E+00_JPRB, 0.711436E+00_JPRB &
+  &, 0.696027E+00_JPRB, 0.680640E+00_JPRB, 0.665310E+00_JPRB &
+  &, 0.650021E+00_JPRB, 0.634782E+00_JPRB, 0.619629E+00_JPRB, 0.604571E+00_JPRB &
+  &, 0.589613E+00_JPRB, 0.574764E+00_JPRB, 0.560027E+00_JPRB &
+  &, 0.545439E+00_JPRB, 0.530971E+00_JPRB, 0.516626E+00_JPRB, 0.502470E+00_JPRB &
+  &, 0.488472E+00_JPRB, 0.474631E+00_JPRB, 0.460979E+00_JPRB &
+  &, 0.447516E+00_JPRB, 0.434236E+00_JPRB, 0.421136E+00_JPRB, 0.408246E+00_JPRB &
+  &, 0.395559E+00_JPRB, 0.383106E+00_JPRB, 0.370878E+00_JPRB &
+  &, 0.358826E+00_JPRB, 0.347058E+00_JPRB, 0.335480E+00_JPRB, 0.324120E+00_JPRB &
+  &, 0.313046E+00_JPRB, 0.302157E+00_JPRB, 0.291522E+00_JPRB &
+  &, 0.281123E+00_JPRB, 0.270984E+00_JPRB, 0.261038E+00_JPRB, 0.251401E+00_JPRB &
+  &, 0.241957E+00_JPRB, 0.232775E+00_JPRB, 0.223780E+00_JPRB &
+  &, 0.215090E+00_JPRB, 0.206629E+00_JPRB, 0.198366E+00_JPRB, 0.190372E+00_JPRB &
+  &, 0.182613E+00_JPRB, 0.175056E+00_JPRB, 0.167772E+00_JPRB &
+  &, 0.160671E+00_JPRB, 0.153824E+00_JPRB, 0.147193E+00_JPRB, 0.140735E+00_JPRB &
+  &, 0.134524E+00_JPRB, 0.128575E+00_JPRB, 0.122726E+00_JPRB &
+  &, 0.117169E+00_JPRB, 0.111799E+00_JPRB, 0.106565E+00_JPRB, 0.101605E+00_JPRB &
+  &, 0.967417E-01_JPRB, 0.921137E-01_JPRB, 0.876686E-01_JPRB/)
+XCW( 706, :) = (/ &
+  &  0.105163E+01_JPRB, 0.106373E+01_JPRB, 0.107550E+01_JPRB, 0.108691E+01_JPRB &
+  &, 0.109796E+01_JPRB, 0.110865E+01_JPRB, 0.111897E+01_JPRB &
+  &, 0.112890E+01_JPRB, 0.113845E+01_JPRB, 0.114759E+01_JPRB, 0.115634E+01_JPRB &
+  &, 0.116467E+01_JPRB, 0.117258E+01_JPRB, 0.118006E+01_JPRB &
+  &, 0.118712E+01_JPRB, 0.119373E+01_JPRB, 0.119989E+01_JPRB, 0.120561E+01_JPRB &
+  &, 0.121086E+01_JPRB, 0.121566E+01_JPRB, 0.121998E+01_JPRB &
+  &, 0.122384E+01_JPRB, 0.122721E+01_JPRB, 0.123006E+01_JPRB, 0.123253E+01_JPRB &
+  &, 0.123445E+01_JPRB, 0.123589E+01_JPRB, 0.123683E+01_JPRB &
+  &, 0.123729E+01_JPRB, 0.123725E+01_JPRB, 0.123671E+01_JPRB, 0.123568E+01_JPRB &
+  &, 0.123416E+01_JPRB, 0.123215E+01_JPRB, 0.122964E+01_JPRB &
+  &, 0.122665E+01_JPRB, 0.122317E+01_JPRB, 0.121921E+01_JPRB, 0.121477E+01_JPRB &
+  &, 0.120986E+01_JPRB, 0.120448E+01_JPRB, 0.119864E+01_JPRB &
+  &, 0.119234E+01_JPRB, 0.118558E+01_JPRB, 0.117840E+01_JPRB, 0.117077E+01_JPRB &
+  &, 0.116272E+01_JPRB, 0.115424E+01_JPRB, 0.114536E+01_JPRB &
+  &, 0.113608E+01_JPRB, 0.112641E+01_JPRB, 0.111637E+01_JPRB, 0.110594E+01_JPRB &
+  &, 0.109517E+01_JPRB, 0.108406E+01_JPRB, 0.107260E+01_JPRB &
+  &, 0.106082E+01_JPRB, 0.104875E+01_JPRB, 0.103637E+01_JPRB, 0.102371E+01_JPRB &
+  &, 0.101078E+01_JPRB, 0.997593E+00_JPRB, 0.984155E+00_JPRB &
+  &, 0.970492E+00_JPRB, 0.956617E+00_JPRB, 0.942546E+00_JPRB, 0.928273E+00_JPRB &
+  &, 0.913833E+00_JPRB, 0.899221E+00_JPRB, 0.884471E+00_JPRB &
+  &, 0.869600E+00_JPRB, 0.854600E+00_JPRB, 0.839488E+00_JPRB, 0.824298E+00_JPRB &
+  &, 0.809024E+00_JPRB, 0.793704E+00_JPRB, 0.778303E+00_JPRB &
+  &, 0.762883E+00_JPRB, 0.747458E+00_JPRB, 0.731991E+00_JPRB, 0.716544E+00_JPRB &
+  &, 0.701104E+00_JPRB, 0.685707E+00_JPRB, 0.670338E+00_JPRB &
+  &, 0.655034E+00_JPRB, 0.639776E+00_JPRB, 0.624601E+00_JPRB, 0.609459E+00_JPRB &
+  &, 0.594502E+00_JPRB, 0.579620E+00_JPRB, 0.564848E+00_JPRB &
+  &, 0.550189E+00_JPRB, 0.535678E+00_JPRB, 0.521318E+00_JPRB, 0.507112E+00_JPRB &
+  &, 0.493025E+00_JPRB, 0.479160E+00_JPRB, 0.465446E+00_JPRB &
+  &, 0.451916E+00_JPRB, 0.438566E+00_JPRB, 0.425428E+00_JPRB, 0.412498E+00_JPRB &
+  &, 0.399729E+00_JPRB, 0.387228E+00_JPRB, 0.374911E+00_JPRB &
+  &, 0.362804E+00_JPRB, 0.350937E+00_JPRB, 0.339297E+00_JPRB, 0.327913E+00_JPRB &
+  &, 0.316729E+00_JPRB, 0.305768E+00_JPRB, 0.295057E+00_JPRB &
+  &, 0.284623E+00_JPRB, 0.274355E+00_JPRB, 0.264369E+00_JPRB, 0.254642E+00_JPRB &
+  &, 0.245152E+00_JPRB, 0.235873E+00_JPRB, 0.226825E+00_JPRB &
+  &, 0.218081E+00_JPRB, 0.209513E+00_JPRB, 0.201190E+00_JPRB, 0.193132E+00_JPRB &
+  &, 0.185308E+00_JPRB, 0.177682E+00_JPRB, 0.170273E+00_JPRB &
+  &, 0.163152E+00_JPRB, 0.156228E+00_JPRB, 0.149517E+00_JPRB, 0.143034E+00_JPRB &
+  &, 0.136738E+00_JPRB, 0.130643E+00_JPRB, 0.124822E+00_JPRB &
+  &, 0.119173E+00_JPRB, 0.113706E+00_JPRB, 0.108436E+00_JPRB, 0.103374E+00_JPRB &
+  &, 0.984702E-01_JPRB, 0.938001E-01_JPRB, 0.893114E-01_JPRB/)
+XCW( 707, :) = (/ &
+  &  0.105193E+01_JPRB, 0.106411E+01_JPRB, 0.107595E+01_JPRB, 0.108745E+01_JPRB &
+  &, 0.109858E+01_JPRB, 0.110935E+01_JPRB, 0.111975E+01_JPRB &
+  &, 0.112977E+01_JPRB, 0.113940E+01_JPRB, 0.114864E+01_JPRB, 0.115746E+01_JPRB &
+  &, 0.116588E+01_JPRB, 0.117388E+01_JPRB, 0.118145E+01_JPRB &
+  &, 0.118854E+01_JPRB, 0.119529E+01_JPRB, 0.120154E+01_JPRB, 0.120735E+01_JPRB &
+  &, 0.121269E+01_JPRB, 0.121758E+01_JPRB, 0.122199E+01_JPRB &
+  &, 0.122594E+01_JPRB, 0.122940E+01_JPRB, 0.123239E+01_JPRB, 0.123489E+01_JPRB &
+  &, 0.123691E+01_JPRB, 0.123844E+01_JPRB, 0.123947E+01_JPRB &
+  &, 0.124001E+01_JPRB, 0.124006E+01_JPRB, 0.123961E+01_JPRB, 0.123867E+01_JPRB &
+  &, 0.123724E+01_JPRB, 0.123531E+01_JPRB, 0.123288E+01_JPRB &
+  &, 0.122998E+01_JPRB, 0.122658E+01_JPRB, 0.122270E+01_JPRB, 0.121834E+01_JPRB &
+  &, 0.121351E+01_JPRB, 0.120820E+01_JPRB, 0.120244E+01_JPRB &
+  &, 0.119621E+01_JPRB, 0.118953E+01_JPRB, 0.118242E+01_JPRB, 0.117486E+01_JPRB &
+  &, 0.116687E+01_JPRB, 0.115847E+01_JPRB, 0.114966E+01_JPRB &
+  &, 0.114044E+01_JPRB, 0.113083E+01_JPRB, 0.112085E+01_JPRB, 0.111049E+01_JPRB &
+  &, 0.109977E+01_JPRB, 0.108871E+01_JPRB, 0.107730E+01_JPRB &
+  &, 0.106558E+01_JPRB, 0.105354E+01_JPRB, 0.104121E+01_JPRB, 0.102859E+01_JPRB &
+  &, 0.101570E+01_JPRB, 0.100254E+01_JPRB, 0.989143E+00_JPRB &
+  &, 0.975518E+00_JPRB, 0.961662E+00_JPRB, 0.947607E+00_JPRB, 0.933368E+00_JPRB &
+  &, 0.918959E+00_JPRB, 0.904356E+00_JPRB, 0.889633E+00_JPRB &
+  &, 0.874766E+00_JPRB, 0.859768E+00_JPRB, 0.844675E+00_JPRB, 0.829481E+00_JPRB &
+  &, 0.814223E+00_JPRB, 0.798892E+00_JPRB, 0.783501E+00_JPRB &
+  &, 0.768064E+00_JPRB, 0.752618E+00_JPRB, 0.737152E+00_JPRB, 0.721678E+00_JPRB &
+  &, 0.706232E+00_JPRB, 0.690801E+00_JPRB, 0.675420E+00_JPRB &
+  &, 0.660074E+00_JPRB, 0.644799E+00_JPRB, 0.629574E+00_JPRB, 0.614465E+00_JPRB &
+  &, 0.599421E+00_JPRB, 0.584507E+00_JPRB, 0.569700E+00_JPRB &
+  &, 0.555002E+00_JPRB, 0.540448E+00_JPRB, 0.526010E+00_JPRB, 0.511753E+00_JPRB &
+  &, 0.497646E+00_JPRB, 0.483723E+00_JPRB, 0.469948E+00_JPRB &
+  &, 0.456352E+00_JPRB, 0.442969E+00_JPRB, 0.429758E+00_JPRB, 0.416749E+00_JPRB &
+  &, 0.403937E+00_JPRB, 0.391350E+00_JPRB, 0.378982E+00_JPRB &
+  &, 0.366821E+00_JPRB, 0.354897E+00_JPRB, 0.343197E+00_JPRB, 0.331707E+00_JPRB &
+  &, 0.320454E+00_JPRB, 0.309422E+00_JPRB, 0.298680E+00_JPRB &
+  &, 0.288123E+00_JPRB, 0.277818E+00_JPRB, 0.267746E+00_JPRB, 0.257930E+00_JPRB &
+  &, 0.248347E+00_JPRB, 0.239019E+00_JPRB, 0.229920E+00_JPRB &
+  &, 0.221073E+00_JPRB, 0.212448E+00_JPRB, 0.204065E+00_JPRB, 0.195892E+00_JPRB &
+  &, 0.188002E+00_JPRB, 0.180309E+00_JPRB, 0.172882E+00_JPRB &
+  &, 0.165633E+00_JPRB, 0.158633E+00_JPRB, 0.151842E+00_JPRB, 0.145276E+00_JPRB &
+  &, 0.138953E+00_JPRB, 0.132829E+00_JPRB, 0.126918E+00_JPRB &
+  &, 0.121176E+00_JPRB, 0.115675E+00_JPRB, 0.110306E+00_JPRB, 0.105206E+00_JPRB &
+  &, 0.100263E+00_JPRB, 0.954865E-01_JPRB, 0.909542E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART101',1,ZHOOK_HANDLE)
+END SUBROUTINE PART101
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART102
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART102',0,ZHOOK_HANDLE)
+
+XCW( 708, :) = (/ &
+  &  0.105223E+01_JPRB, 0.106449E+01_JPRB, 0.107641E+01_JPRB, 0.108798E+01_JPRB &
+  &, 0.109920E+01_JPRB, 0.111006E+01_JPRB, 0.112054E+01_JPRB &
+  &, 0.113064E+01_JPRB, 0.114036E+01_JPRB, 0.114968E+01_JPRB, 0.115859E+01_JPRB &
+  &, 0.116709E+01_JPRB, 0.117518E+01_JPRB, 0.118284E+01_JPRB &
+  &, 0.119007E+01_JPRB, 0.119686E+01_JPRB, 0.120320E+01_JPRB, 0.120909E+01_JPRB &
+  &, 0.121453E+01_JPRB, 0.121950E+01_JPRB, 0.122401E+01_JPRB &
+  &, 0.122804E+01_JPRB, 0.123160E+01_JPRB, 0.123467E+01_JPRB, 0.123727E+01_JPRB &
+  &, 0.123937E+01_JPRB, 0.124099E+01_JPRB, 0.124211E+01_JPRB &
+  &, 0.124274E+01_JPRB, 0.124288E+01_JPRB, 0.124252E+01_JPRB, 0.124167E+01_JPRB &
+  &, 0.124032E+01_JPRB, 0.123847E+01_JPRB, 0.123614E+01_JPRB &
+  &, 0.123331E+01_JPRB, 0.123000E+01_JPRB, 0.122620E+01_JPRB, 0.122192E+01_JPRB &
+  &, 0.121716E+01_JPRB, 0.121194E+01_JPRB, 0.120626E+01_JPRB &
+  &, 0.120010E+01_JPRB, 0.119350E+01_JPRB, 0.118646E+01_JPRB, 0.117897E+01_JPRB &
+  &, 0.117106E+01_JPRB, 0.116272E+01_JPRB, 0.115397E+01_JPRB &
+  &, 0.114482E+01_JPRB, 0.113527E+01_JPRB, 0.112534E+01_JPRB, 0.111505E+01_JPRB &
+  &, 0.110438E+01_JPRB, 0.109337E+01_JPRB, 0.108202E+01_JPRB &
+  &, 0.107035E+01_JPRB, 0.105836E+01_JPRB, 0.104608E+01_JPRB, 0.103350E+01_JPRB &
+  &, 0.102064E+01_JPRB, 0.100752E+01_JPRB, 0.994166E+00_JPRB &
+  &, 0.980563E+00_JPRB, 0.966744E+00_JPRB, 0.952726E+00_JPRB, 0.938501E+00_JPRB &
+  &, 0.924105E+00_JPRB, 0.909532E+00_JPRB, 0.894817E+00_JPRB &
+  &, 0.879954E+00_JPRB, 0.864979E+00_JPRB, 0.849885E+00_JPRB, 0.834710E+00_JPRB &
+  &, 0.819444E+00_JPRB, 0.804103E+00_JPRB, 0.788698E+00_JPRB &
+  &, 0.773269E+00_JPRB, 0.757803E+00_JPRB, 0.742339E+00_JPRB, 0.726863E+00_JPRB &
+  &, 0.711387E+00_JPRB, 0.695948E+00_JPRB, 0.680530E+00_JPRB &
+  &, 0.665170E+00_JPRB, 0.649849E+00_JPRB, 0.634604E+00_JPRB, 0.619471E+00_JPRB &
+  &, 0.604400E+00_JPRB, 0.589425E+00_JPRB, 0.574583E+00_JPRB &
+  &, 0.559846E+00_JPRB, 0.545251E+00_JPRB, 0.530767E+00_JPRB, 0.516461E+00_JPRB &
+  &, 0.502301E+00_JPRB, 0.488321E+00_JPRB, 0.474485E+00_JPRB &
+  &, 0.460860E+00_JPRB, 0.447408E+00_JPRB, 0.434124E+00_JPRB, 0.421076E+00_JPRB &
+  &, 0.408183E+00_JPRB, 0.395550E+00_JPRB, 0.383093E+00_JPRB &
+  &, 0.370879E+00_JPRB, 0.358858E+00_JPRB, 0.347097E+00_JPRB, 0.335543E+00_JPRB &
+  &, 0.324223E+00_JPRB, 0.313163E+00_JPRB, 0.302303E+00_JPRB &
+  &, 0.291667E+00_JPRB, 0.281327E+00_JPRB, 0.271170E+00_JPRB, 0.261265E+00_JPRB &
+  &, 0.251637E+00_JPRB, 0.242213E+00_JPRB, 0.233064E+00_JPRB &
+  &, 0.224114E+00_JPRB, 0.215433E+00_JPRB, 0.206939E+00_JPRB, 0.198757E+00_JPRB &
+  &, 0.190750E+00_JPRB, 0.182988E+00_JPRB, 0.175274E+00_JPRB &
+  &, 0.168170E+00_JPRB, 0.161093E+00_JPRB, 0.154223E+00_JPRB, 0.147633E+00_JPRB &
+  &, 0.141226E+00_JPRB, 0.135015E+00_JPRB, 0.129015E+00_JPRB &
+  &, 0.123240E+00_JPRB, 0.117644E+00_JPRB, 0.112239E+00_JPRB, 0.107038E+00_JPRB &
+  &, 0.102055E+00_JPRB, 0.972378E-01_JPRB, 0.925970E-01_JPRB/)
+XCW( 709, :) = (/ &
+  &  0.105254E+01_JPRB, 0.106487E+01_JPRB, 0.107687E+01_JPRB, 0.108852E+01_JPRB &
+  &, 0.109983E+01_JPRB, 0.111076E+01_JPRB, 0.112133E+01_JPRB &
+  &, 0.113152E+01_JPRB, 0.114131E+01_JPRB, 0.115072E+01_JPRB, 0.115972E+01_JPRB &
+  &, 0.116831E+01_JPRB, 0.117648E+01_JPRB, 0.118423E+01_JPRB &
+  &, 0.119155E+01_JPRB, 0.119843E+01_JPRB, 0.120486E+01_JPRB, 0.121084E+01_JPRB &
+  &, 0.121637E+01_JPRB, 0.122143E+01_JPRB, 0.122603E+01_JPRB &
+  &, 0.123015E+01_JPRB, 0.123380E+01_JPRB, 0.123697E+01_JPRB, 0.123965E+01_JPRB &
+  &, 0.124184E+01_JPRB, 0.124355E+01_JPRB, 0.124476E+01_JPRB &
+  &, 0.124549E+01_JPRB, 0.124571E+01_JPRB, 0.124544E+01_JPRB, 0.124467E+01_JPRB &
+  &, 0.124341E+01_JPRB, 0.124165E+01_JPRB, 0.123940E+01_JPRB &
+  &, 0.123665E+01_JPRB, 0.123342E+01_JPRB, 0.122971E+01_JPRB, 0.122552E+01_JPRB &
+  &, 0.122084E+01_JPRB, 0.121569E+01_JPRB, 0.121008E+01_JPRB &
+  &, 0.120401E+01_JPRB, 0.119749E+01_JPRB, 0.119051E+01_JPRB, 0.118310E+01_JPRB &
+  &, 0.117525E+01_JPRB, 0.116698E+01_JPRB, 0.115831E+01_JPRB &
+  &, 0.114922E+01_JPRB, 0.113973E+01_JPRB, 0.112986E+01_JPRB, 0.111962E+01_JPRB &
+  &, 0.110902E+01_JPRB, 0.109805E+01_JPRB, 0.108676E+01_JPRB &
+  &, 0.107514E+01_JPRB, 0.106320E+01_JPRB, 0.105096E+01_JPRB, 0.103841E+01_JPRB &
+  &, 0.102561E+01_JPRB, 0.101252E+01_JPRB, 0.999207E+00_JPRB &
+  &, 0.985644E+00_JPRB, 0.971845E+00_JPRB, 0.957844E+00_JPRB, 0.943654E+00_JPRB &
+  &, 0.929270E+00_JPRB, 0.914728E+00_JPRB, 0.900020E+00_JPRB &
+  &, 0.885184E+00_JPRB, 0.870211E+00_JPRB, 0.855139E+00_JPRB, 0.839960E+00_JPRB &
+  &, 0.824688E+00_JPRB, 0.809360E+00_JPRB, 0.793967E+00_JPRB &
+  &, 0.778522E+00_JPRB, 0.763037E+00_JPRB, 0.747550E+00_JPRB, 0.732074E+00_JPRB &
+  &, 0.716542E+00_JPRB, 0.701122E+00_JPRB, 0.685668E+00_JPRB &
+  &, 0.670294E+00_JPRB, 0.654957E+00_JPRB, 0.639692E+00_JPRB, 0.624507E+00_JPRB &
+  &, 0.609379E+00_JPRB, 0.594282E+00_JPRB, 0.579497E+00_JPRB &
+  &, 0.564723E+00_JPRB, 0.550086E+00_JPRB, 0.535557E+00_JPRB, 0.521203E+00_JPRB &
+  &, 0.506990E+00_JPRB, 0.492953E+00_JPRB, 0.479021E+00_JPRB &
+  &, 0.465367E+00_JPRB, 0.451847E+00_JPRB, 0.438527E+00_JPRB, 0.425403E+00_JPRB &
+  &, 0.412467E+00_JPRB, 0.399750E+00_JPRB, 0.387244E+00_JPRB &
+  &, 0.374977E+00_JPRB, 0.362900E+00_JPRB, 0.351038E+00_JPRB, 0.339421E+00_JPRB &
+  &, 0.328034E+00_JPRB, 0.316904E+00_JPRB, 0.305970E+00_JPRB &
+  &, 0.295302E+00_JPRB, 0.284835E+00_JPRB, 0.274640E+00_JPRB, 0.264647E+00_JPRB &
+  &, 0.254927E+00_JPRB, 0.245456E+00_JPRB, 0.236208E+00_JPRB &
+  &, 0.227205E+00_JPRB, 0.218417E+00_JPRB, 0.209865E+00_JPRB, 0.201569E+00_JPRB &
+  &, 0.193550E+00_JPRB, 0.185722E+00_JPRB, 0.178101E+00_JPRB &
+  &, 0.170761E+00_JPRB, 0.163609E+00_JPRB, 0.156661E+00_JPRB, 0.149990E+00_JPRB &
+  &, 0.143499E+00_JPRB, 0.137201E+00_JPRB, 0.131171E+00_JPRB &
+  &, 0.125304E+00_JPRB, 0.119674E+00_JPRB, 0.114172E+00_JPRB, 0.108934E+00_JPRB &
+  &, 0.103848E+00_JPRB, 0.989891E-01_JPRB, 0.943055E-01_JPRB/)
+XCW( 710, :) = (/ &
+  &  0.105284E+01_JPRB, 0.106525E+01_JPRB, 0.107733E+01_JPRB, 0.108907E+01_JPRB &
+  &, 0.110045E+01_JPRB, 0.111147E+01_JPRB, 0.112212E+01_JPRB &
+  &, 0.113239E+01_JPRB, 0.114227E+01_JPRB, 0.115176E+01_JPRB, 0.116085E+01_JPRB &
+  &, 0.116953E+01_JPRB, 0.117779E+01_JPRB, 0.118563E+01_JPRB &
+  &, 0.119303E+01_JPRB, 0.120000E+01_JPRB, 0.120652E+01_JPRB, 0.121260E+01_JPRB &
+  &, 0.121821E+01_JPRB, 0.122336E+01_JPRB, 0.122805E+01_JPRB &
+  &, 0.123227E+01_JPRB, 0.123601E+01_JPRB, 0.123926E+01_JPRB, 0.124204E+01_JPRB &
+  &, 0.124432E+01_JPRB, 0.124612E+01_JPRB, 0.124742E+01_JPRB &
+  &, 0.124823E+01_JPRB, 0.124855E+01_JPRB, 0.124836E+01_JPRB, 0.124769E+01_JPRB &
+  &, 0.124651E+01_JPRB, 0.124484E+01_JPRB, 0.124267E+01_JPRB &
+  &, 0.124001E+01_JPRB, 0.123687E+01_JPRB, 0.123324E+01_JPRB, 0.122913E+01_JPRB &
+  &, 0.122454E+01_JPRB, 0.121947E+01_JPRB, 0.121393E+01_JPRB &
+  &, 0.120793E+01_JPRB, 0.120148E+01_JPRB, 0.119458E+01_JPRB, 0.118724E+01_JPRB &
+  &, 0.117947E+01_JPRB, 0.117126E+01_JPRB, 0.116265E+01_JPRB &
+  &, 0.115362E+01_JPRB, 0.114420E+01_JPRB, 0.113440E+01_JPRB, 0.112422E+01_JPRB &
+  &, 0.111367E+01_JPRB, 0.110277E+01_JPRB, 0.109153E+01_JPRB &
+  &, 0.107995E+01_JPRB, 0.106807E+01_JPRB, 0.105586E+01_JPRB, 0.104337E+01_JPRB &
+  &, 0.103060E+01_JPRB, 0.101756E+01_JPRB, 0.100427E+01_JPRB &
+  &, 0.990743E+00_JPRB, 0.976984E+00_JPRB, 0.963000E+00_JPRB, 0.948826E+00_JPRB &
+  &, 0.934476E+00_JPRB, 0.919944E+00_JPRB, 0.905266E+00_JPRB &
+  &, 0.890435E+00_JPRB, 0.875486E+00_JPRB, 0.860415E+00_JPRB, 0.845233E+00_JPRB &
+  &, 0.829978E+00_JPRB, 0.814642E+00_JPRB, 0.799236E+00_JPRB &
+  &, 0.783800E+00_JPRB, 0.768321E+00_JPRB, 0.752812E+00_JPRB, 0.737311E+00_JPRB &
+  &, 0.721802E+00_JPRB, 0.706324E+00_JPRB, 0.690859E+00_JPRB &
+  &, 0.675446E+00_JPRB, 0.660093E+00_JPRB, 0.644779E+00_JPRB, 0.629572E+00_JPRB &
+  &, 0.614418E+00_JPRB, 0.599383E+00_JPRB, 0.584442E+00_JPRB &
+  &, 0.569631E+00_JPRB, 0.554954E+00_JPRB, 0.540380E+00_JPRB, 0.525977E+00_JPRB &
+  &, 0.511713E+00_JPRB, 0.497620E+00_JPRB, 0.483699E+00_JPRB &
+  &, 0.469946E+00_JPRB, 0.456359E+00_JPRB, 0.443005E+00_JPRB, 0.429805E+00_JPRB &
+  &, 0.416828E+00_JPRB, 0.404028E+00_JPRB, 0.391474E+00_JPRB &
+  &, 0.379115E+00_JPRB, 0.366983E+00_JPRB, 0.355063E+00_JPRB, 0.343341E+00_JPRB &
+  &, 0.331888E+00_JPRB, 0.320688E+00_JPRB, 0.309681E+00_JPRB &
+  &, 0.298936E+00_JPRB, 0.288389E+00_JPRB, 0.278110E+00_JPRB, 0.268076E+00_JPRB &
+  &, 0.258265E+00_JPRB, 0.248699E+00_JPRB, 0.239402E+00_JPRB &
+  &, 0.230296E+00_JPRB, 0.221453E+00_JPRB, 0.212843E+00_JPRB, 0.204486E+00_JPRB &
+  &, 0.196351E+00_JPRB, 0.188455E+00_JPRB, 0.180765E+00_JPRB &
+  &, 0.173352E+00_JPRB, 0.166125E+00_JPRB, 0.159155E+00_JPRB, 0.152347E+00_JPRB &
+  &, 0.145830E+00_JPRB, 0.139446E+00_JPRB, 0.133327E+00_JPRB &
+  &, 0.127428E+00_JPRB, 0.121704E+00_JPRB, 0.116167E+00_JPRB, 0.110829E+00_JPRB &
+  &, 0.105704E+00_JPRB, 0.100805E+00_JPRB, 0.960140E-01_JPRB/)
+XCW( 711, :) = (/ &
+  &  0.105314E+01_JPRB, 0.106563E+01_JPRB, 0.107779E+01_JPRB, 0.108961E+01_JPRB &
+  &, 0.110107E+01_JPRB, 0.111217E+01_JPRB, 0.112291E+01_JPRB &
+  &, 0.113326E+01_JPRB, 0.114324E+01_JPRB, 0.115281E+01_JPRB, 0.116199E+01_JPRB &
+  &, 0.117075E+01_JPRB, 0.117910E+01_JPRB, 0.118703E+01_JPRB &
+  &, 0.119452E+01_JPRB, 0.120158E+01_JPRB, 0.120819E+01_JPRB, 0.121436E+01_JPRB &
+  &, 0.122006E+01_JPRB, 0.122531E+01_JPRB, 0.123008E+01_JPRB &
+  &, 0.123439E+01_JPRB, 0.123822E+01_JPRB, 0.124157E+01_JPRB, 0.124443E+01_JPRB &
+  &, 0.124681E+01_JPRB, 0.124870E+01_JPRB, 0.125009E+01_JPRB &
+  &, 0.125099E+01_JPRB, 0.125139E+01_JPRB, 0.125130E+01_JPRB, 0.125071E+01_JPRB &
+  &, 0.124962E+01_JPRB, 0.124804E+01_JPRB, 0.124596E+01_JPRB &
+  &, 0.124339E+01_JPRB, 0.124032E+01_JPRB, 0.123678E+01_JPRB, 0.123274E+01_JPRB &
+  &, 0.122824E+01_JPRB, 0.122325E+01_JPRB, 0.121779E+01_JPRB &
+  &, 0.121187E+01_JPRB, 0.120549E+01_JPRB, 0.119849E+01_JPRB, 0.119140E+01_JPRB &
+  &, 0.118370E+01_JPRB, 0.117557E+01_JPRB, 0.116702E+01_JPRB &
+  &, 0.115806E+01_JPRB, 0.114871E+01_JPRB, 0.113896E+01_JPRB, 0.112884E+01_JPRB &
+  &, 0.111835E+01_JPRB, 0.110751E+01_JPRB, 0.109632E+01_JPRB &
+  &, 0.108478E+01_JPRB, 0.107295E+01_JPRB, 0.106079E+01_JPRB, 0.104834E+01_JPRB &
+  &, 0.103561E+01_JPRB, 0.102261E+01_JPRB, 0.100936E+01_JPRB &
+  &, 0.995860E+00_JPRB, 0.982140E+00_JPRB, 0.968195E+00_JPRB, 0.954037E+00_JPRB &
+  &, 0.939721E+00_JPRB, 0.925201E+00_JPRB, 0.910531E+00_JPRB &
+  &, 0.895728E+00_JPRB, 0.880783E+00_JPRB, 0.865712E+00_JPRB, 0.850551E+00_JPRB &
+  &, 0.835291E+00_JPRB, 0.819946E+00_JPRB, 0.804553E+00_JPRB &
+  &, 0.789102E+00_JPRB, 0.773630E+00_JPRB, 0.758100E+00_JPRB, 0.742599E+00_JPRB &
+  &, 0.727062E+00_JPRB, 0.711578E+00_JPRB, 0.696079E+00_JPRB &
+  &, 0.680653E+00_JPRB, 0.665257E+00_JPRB, 0.649925E+00_JPRB, 0.634666E+00_JPRB &
+  &, 0.619516E+00_JPRB, 0.604422E+00_JPRB, 0.589449E+00_JPRB &
+  &, 0.574602E+00_JPRB, 0.559853E+00_JPRB, 0.545269E+00_JPRB, 0.530819E+00_JPRB &
+  &, 0.516504E+00_JPRB, 0.502357E+00_JPRB, 0.488377E+00_JPRB &
+  &, 0.474561E+00_JPRB, 0.460907E+00_JPRB, 0.447482E+00_JPRB, 0.434245E+00_JPRB &
+  &, 0.421189E+00_JPRB, 0.408345E+00_JPRB, 0.395703E+00_JPRB &
+  &, 0.383294E+00_JPRB, 0.371065E+00_JPRB, 0.359087E+00_JPRB, 0.347346E+00_JPRB &
+  &, 0.335785E+00_JPRB, 0.324516E+00_JPRB, 0.313437E+00_JPRB &
+  &, 0.302616E+00_JPRB, 0.291989E+00_JPRB, 0.281672E+00_JPRB, 0.271552E+00_JPRB &
+  &, 0.261651E+00_JPRB, 0.252039E+00_JPRB, 0.242644E+00_JPRB &
+  &, 0.233487E+00_JPRB, 0.224539E+00_JPRB, 0.215872E+00_JPRB, 0.207403E+00_JPRB &
+  &, 0.199204E+00_JPRB, 0.191242E+00_JPRB, 0.183483E+00_JPRB &
+  &, 0.175999E+00_JPRB, 0.168697E+00_JPRB, 0.161650E+00_JPRB, 0.154761E+00_JPRB &
+  &, 0.148161E+00_JPRB, 0.141750E+00_JPRB, 0.135543E+00_JPRB &
+  &, 0.129553E+00_JPRB, 0.123796E+00_JPRB, 0.118162E+00_JPRB, 0.112788E+00_JPRB &
+  &, 0.107625E+00_JPRB, 0.102621E+00_JPRB, 0.977882E-01_JPRB/)
+XCW( 712, :) = (/ &
+  &  0.105344E+01_JPRB, 0.106602E+01_JPRB, 0.107826E+01_JPRB, 0.109015E+01_JPRB &
+  &, 0.110170E+01_JPRB, 0.111288E+01_JPRB, 0.112370E+01_JPRB &
+  &, 0.113414E+01_JPRB, 0.114420E+01_JPRB, 0.115386E+01_JPRB, 0.116312E+01_JPRB &
+  &, 0.117198E+01_JPRB, 0.118041E+01_JPRB, 0.118843E+01_JPRB &
+  &, 0.119601E+01_JPRB, 0.120316E+01_JPRB, 0.120986E+01_JPRB, 0.121612E+01_JPRB &
+  &, 0.122192E+01_JPRB, 0.122725E+01_JPRB, 0.123212E+01_JPRB &
+  &, 0.123652E+01_JPRB, 0.124044E+01_JPRB, 0.124388E+01_JPRB, 0.124684E+01_JPRB &
+  &, 0.124930E+01_JPRB, 0.125128E+01_JPRB, 0.125277E+01_JPRB &
+  &, 0.125376E+01_JPRB, 0.125425E+01_JPRB, 0.125424E+01_JPRB, 0.125374E+01_JPRB &
+  &, 0.125274E+01_JPRB, 0.125124E+01_JPRB, 0.124925E+01_JPRB &
+  &, 0.124677E+01_JPRB, 0.124379E+01_JPRB, 0.124033E+01_JPRB, 0.123637E+01_JPRB &
+  &, 0.123195E+01_JPRB, 0.122704E+01_JPRB, 0.122166E+01_JPRB &
+  &, 0.121583E+01_JPRB, 0.120952E+01_JPRB, 0.120277E+01_JPRB, 0.119557E+01_JPRB &
+  &, 0.118795E+01_JPRB, 0.117989E+01_JPRB, 0.117140E+01_JPRB &
+  &, 0.116252E+01_JPRB, 0.115322E+01_JPRB, 0.114354E+01_JPRB, 0.113348E+01_JPRB &
+  &, 0.112305E+01_JPRB, 0.111226E+01_JPRB, 0.110112E+01_JPRB &
+  &, 0.108965E+01_JPRB, 0.107785E+01_JPRB, 0.106574E+01_JPRB, 0.105335E+01_JPRB &
+  &, 0.104065E+01_JPRB, 0.102770E+01_JPRB, 0.101447E+01_JPRB &
+  &, 0.100101E+01_JPRB, 0.987315E+00_JPRB, 0.973408E+00_JPRB, 0.959287E+00_JPRB &
+  &, 0.944965E+00_JPRB, 0.930478E+00_JPRB, 0.915838E+00_JPRB &
+  &, 0.901042E+00_JPRB, 0.886102E+00_JPRB, 0.871054E+00_JPRB, 0.855891E+00_JPRB &
+  &, 0.840650E+00_JPRB, 0.825297E+00_JPRB, 0.809894E+00_JPRB &
+  &, 0.794453E+00_JPRB, 0.778964E+00_JPRB, 0.763438E+00_JPRB, 0.747913E+00_JPRB &
+  &, 0.732375E+00_JPRB, 0.716833E+00_JPRB, 0.701352E+00_JPRB &
+  &, 0.685889E+00_JPRB, 0.670478E+00_JPRB, 0.655100E+00_JPRB, 0.639819E+00_JPRB &
+  &, 0.624615E+00_JPRB, 0.609493E+00_JPRB, 0.594488E+00_JPRB &
+  &, 0.579605E+00_JPRB, 0.564817E+00_JPRB, 0.550190E+00_JPRB, 0.535661E+00_JPRB &
+  &, 0.521295E+00_JPRB, 0.507093E+00_JPRB, 0.493089E+00_JPRB &
+  &, 0.479212E+00_JPRB, 0.465528E+00_JPRB, 0.452033E+00_JPRB, 0.438722E+00_JPRB &
+  &, 0.425589E+00_JPRB, 0.412700E+00_JPRB, 0.399972E+00_JPRB &
+  &, 0.387472E+00_JPRB, 0.375230E+00_JPRB, 0.363153E+00_JPRB, 0.351350E+00_JPRB &
+  &, 0.339724E+00_JPRB, 0.328387E+00_JPRB, 0.317236E+00_JPRB &
+  &, 0.306340E+00_JPRB, 0.295680E+00_JPRB, 0.285234E+00_JPRB, 0.275028E+00_JPRB &
+  &, 0.265084E+00_JPRB, 0.255379E+00_JPRB, 0.245886E+00_JPRB &
+  &, 0.236678E+00_JPRB, 0.227676E+00_JPRB, 0.218900E+00_JPRB, 0.210423E+00_JPRB &
+  &, 0.202110E+00_JPRB, 0.194083E+00_JPRB, 0.186256E+00_JPRB &
+  &, 0.178645E+00_JPRB, 0.171269E+00_JPRB, 0.164145E+00_JPRB, 0.157233E+00_JPRB &
+  &, 0.150551E+00_JPRB, 0.144055E+00_JPRB, 0.137819E+00_JPRB &
+  &, 0.131738E+00_JPRB, 0.125888E+00_JPRB, 0.120220E+00_JPRB, 0.114810E+00_JPRB &
+  &, 0.109545E+00_JPRB, 0.104437E+00_JPRB, 0.995624E-01_JPRB/)
+XCW( 713, :) = (/ &
+  &  0.105375E+01_JPRB, 0.106640E+01_JPRB, 0.107872E+01_JPRB, 0.109070E+01_JPRB &
+  &, 0.110232E+01_JPRB, 0.111359E+01_JPRB, 0.112450E+01_JPRB &
+  &, 0.113502E+01_JPRB, 0.114516E+01_JPRB, 0.115491E+01_JPRB, 0.116426E+01_JPRB &
+  &, 0.117320E+01_JPRB, 0.118173E+01_JPRB, 0.118983E+01_JPRB &
+  &, 0.119751E+01_JPRB, 0.120475E+01_JPRB, 0.121154E+01_JPRB, 0.121789E+01_JPRB &
+  &, 0.122378E+01_JPRB, 0.122920E+01_JPRB, 0.123416E+01_JPRB &
+  &, 0.123865E+01_JPRB, 0.124267E+01_JPRB, 0.124620E+01_JPRB, 0.124924E+01_JPRB &
+  &, 0.125181E+01_JPRB, 0.125387E+01_JPRB, 0.125545E+01_JPRB &
+  &, 0.125652E+01_JPRB, 0.125711E+01_JPRB, 0.125720E+01_JPRB, 0.125679E+01_JPRB &
+  &, 0.125587E+01_JPRB, 0.125446E+01_JPRB, 0.125256E+01_JPRB &
+  &, 0.125016E+01_JPRB, 0.124727E+01_JPRB, 0.124389E+01_JPRB, 0.124002E+01_JPRB &
+  &, 0.123568E+01_JPRB, 0.123085E+01_JPRB, 0.122555E+01_JPRB &
+  &, 0.121979E+01_JPRB, 0.121356E+01_JPRB, 0.120689E+01_JPRB, 0.119977E+01_JPRB &
+  &, 0.119221E+01_JPRB, 0.118422E+01_JPRB, 0.117580E+01_JPRB &
+  &, 0.116699E+01_JPRB, 0.115776E+01_JPRB, 0.114814E+01_JPRB, 0.113814E+01_JPRB &
+  &, 0.112776E+01_JPRB, 0.111704E+01_JPRB, 0.110595E+01_JPRB &
+  &, 0.109453E+01_JPRB, 0.108278E+01_JPRB, 0.107072E+01_JPRB, 0.105836E+01_JPRB &
+  &, 0.104573E+01_JPRB, 0.103280E+01_JPRB, 0.101962E+01_JPRB &
+  &, 0.100619E+01_JPRB, 0.992528E+00_JPRB, 0.978640E+00_JPRB, 0.964556E+00_JPRB &
+  &, 0.950270E+00_JPRB, 0.935795E+00_JPRB, 0.921166E+00_JPRB &
+  &, 0.906377E+00_JPRB, 0.891463E+00_JPRB, 0.876418E+00_JPRB, 0.861276E+00_JPRB &
+  &, 0.846031E+00_JPRB, 0.830695E+00_JPRB, 0.815282E+00_JPRB &
+  &, 0.799828E+00_JPRB, 0.784322E+00_JPRB, 0.768801E+00_JPRB, 0.753253E+00_JPRB &
+  &, 0.737714E+00_JPRB, 0.722169E+00_JPRB, 0.706654E+00_JPRB &
+  &, 0.691152E+00_JPRB, 0.675727E+00_JPRB, 0.660332E+00_JPRB, 0.645002E+00_JPRB &
+  &, 0.629774E+00_JPRB, 0.614624E+00_JPRB, 0.599588E+00_JPRB &
+  &, 0.584640E+00_JPRB, 0.569814E+00_JPRB, 0.555112E+00_JPRB, 0.540569E+00_JPRB &
+  &, 0.526153E+00_JPRB, 0.511898E+00_JPRB, 0.497837E+00_JPRB &
+  &, 0.483899E+00_JPRB, 0.470149E+00_JPRB, 0.456585E+00_JPRB, 0.443237E+00_JPRB &
+  &, 0.430064E+00_JPRB, 0.417056E+00_JPRB, 0.404321E+00_JPRB &
+  &, 0.391731E+00_JPRB, 0.379395E+00_JPRB, 0.367302E+00_JPRB, 0.355397E+00_JPRB &
+  &, 0.343707E+00_JPRB, 0.332259E+00_JPRB, 0.321080E+00_JPRB &
+  &, 0.310109E+00_JPRB, 0.299370E+00_JPRB, 0.288843E+00_JPRB, 0.278598E+00_JPRB &
+  &, 0.268565E+00_JPRB, 0.258767E+00_JPRB, 0.249227E+00_JPRB &
+  &, 0.239919E+00_JPRB, 0.230863E+00_JPRB, 0.222032E+00_JPRB, 0.213392E+00_JPRB &
+  &, 0.205069E+00_JPRB, 0.196924E+00_JPRB, 0.189028E+00_JPRB &
+  &, 0.181347E+00_JPRB, 0.173953E+00_JPRB, 0.166753E+00_JPRB, 0.159763E+00_JPRB &
+  &, 0.152940E+00_JPRB, 0.146418E+00_JPRB, 0.140094E+00_JPRB &
+  &, 0.133924E+00_JPRB, 0.128041E+00_JPRB, 0.122340E+00_JPRB, 0.116768E+00_JPRB &
+  &, 0.111466E+00_JPRB, 0.106318E+00_JPRB, 0.101402E+00_JPRB/)
+XCW( 714, :) = (/ &
+  &  0.105405E+01_JPRB, 0.106678E+01_JPRB, 0.107918E+01_JPRB, 0.109124E+01_JPRB &
+  &, 0.110295E+01_JPRB, 0.111431E+01_JPRB, 0.112529E+01_JPRB &
+  &, 0.113590E+01_JPRB, 0.114613E+01_JPRB, 0.115597E+01_JPRB, 0.116540E+01_JPRB &
+  &, 0.117443E+01_JPRB, 0.118305E+01_JPRB, 0.119124E+01_JPRB &
+  &, 0.119901E+01_JPRB, 0.120634E+01_JPRB, 0.121322E+01_JPRB, 0.121966E+01_JPRB &
+  &, 0.122564E+01_JPRB, 0.123116E+01_JPRB, 0.123621E+01_JPRB &
+  &, 0.124079E+01_JPRB, 0.124490E+01_JPRB, 0.124852E+01_JPRB, 0.125166E+01_JPRB &
+  &, 0.125431E+01_JPRB, 0.125647E+01_JPRB, 0.125814E+01_JPRB &
+  &, 0.125931E+01_JPRB, 0.125999E+01_JPRB, 0.126016E+01_JPRB, 0.125984E+01_JPRB &
+  &, 0.125902E+01_JPRB, 0.125769E+01_JPRB, 0.125588E+01_JPRB &
+  &, 0.125356E+01_JPRB, 0.125076E+01_JPRB, 0.124747E+01_JPRB, 0.124368E+01_JPRB &
+  &, 0.123942E+01_JPRB, 0.123467E+01_JPRB, 0.122945E+01_JPRB &
+  &, 0.122377E+01_JPRB, 0.121763E+01_JPRB, 0.121103E+01_JPRB, 0.120398E+01_JPRB &
+  &, 0.119649E+01_JPRB, 0.118857E+01_JPRB, 0.118023E+01_JPRB &
+  &, 0.117145E+01_JPRB, 0.116230E+01_JPRB, 0.115276E+01_JPRB, 0.114271E+01_JPRB &
+  &, 0.113250E+01_JPRB, 0.112183E+01_JPRB, 0.111079E+01_JPRB &
+  &, 0.109943E+01_JPRB, 0.108773E+01_JPRB, 0.107572E+01_JPRB, 0.106341E+01_JPRB &
+  &, 0.105080E+01_JPRB, 0.103794E+01_JPRB, 0.102479E+01_JPRB &
+  &, 0.101139E+01_JPRB, 0.997758E+00_JPRB, 0.983910E+00_JPRB, 0.969844E+00_JPRB &
+  &, 0.955594E+00_JPRB, 0.941132E+00_JPRB, 0.926535E+00_JPRB &
+  &, 0.911755E+00_JPRB, 0.896868E+00_JPRB, 0.881825E+00_JPRB, 0.866684E+00_JPRB &
+  &, 0.851435E+00_JPRB, 0.836093E+00_JPRB, 0.820694E+00_JPRB &
+  &, 0.805252E+00_JPRB, 0.789730E+00_JPRB, 0.774190E+00_JPRB, 0.758645E+00_JPRB &
+  &, 0.743079E+00_JPRB, 0.727504E+00_JPRB, 0.711982E+00_JPRB &
+  &, 0.696471E+00_JPRB, 0.681005E+00_JPRB, 0.665593E+00_JPRB, 0.650244E+00_JPRB &
+  &, 0.634963E+00_JPRB, 0.619786E+00_JPRB, 0.604689E+00_JPRB &
+  &, 0.589706E+00_JPRB, 0.574842E+00_JPRB, 0.560131E+00_JPRB, 0.545511E+00_JPRB &
+  &, 0.531046E+00_JPRB, 0.516773E+00_JPRB, 0.502620E+00_JPRB &
+  &, 0.488621E+00_JPRB, 0.474843E+00_JPRB, 0.461210E+00_JPRB, 0.447790E+00_JPRB &
+  &, 0.434540E+00_JPRB, 0.421489E+00_JPRB, 0.408669E+00_JPRB &
+  &, 0.396070E+00_JPRB, 0.383641E+00_JPRB, 0.371450E+00_JPRB, 0.359486E+00_JPRB &
+  &, 0.347732E+00_JPRB, 0.336217E+00_JPRB, 0.324968E+00_JPRB &
+  &, 0.313878E+00_JPRB, 0.303061E+00_JPRB, 0.292498E+00_JPRB, 0.282167E+00_JPRB &
+  &, 0.272046E+00_JPRB, 0.262203E+00_JPRB, 0.252567E+00_JPRB &
+  &, 0.243209E+00_JPRB, 0.234051E+00_JPRB, 0.225112E+00_JPRB, 0.216465E+00_JPRB &
+  &, 0.208027E+00_JPRB, 0.199818E+00_JPRB, 0.191855E+00_JPRB &
+  &, 0.184103E+00_JPRB, 0.176636E+00_JPRB, 0.169304E+00_JPRB, 0.162292E+00_JPRB &
+  &, 0.155447E+00_JPRB, 0.148781E+00_JPRB, 0.142370E+00_JPRB &
+  &, 0.136170E+00_JPRB, 0.130195E+00_JPRB, 0.124397E+00_JPRB, 0.118853E+00_JPRB &
+  &, 0.113451E+00_JPRB, 0.108264E+00_JPRB, 0.103242E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART102',1,ZHOOK_HANDLE)
+END SUBROUTINE PART102
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART103
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART103',0,ZHOOK_HANDLE)
+
+XCW( 715, :) = (/ &
+  &  0.105436E+01_JPRB, 0.106717E+01_JPRB, 0.107965E+01_JPRB, 0.109179E+01_JPRB &
+  &, 0.110358E+01_JPRB, 0.111502E+01_JPRB, 0.112609E+01_JPRB &
+  &, 0.113679E+01_JPRB, 0.114710E+01_JPRB, 0.115702E+01_JPRB, 0.116655E+01_JPRB &
+  &, 0.117567E+01_JPRB, 0.118437E+01_JPRB, 0.119266E+01_JPRB &
+  &, 0.120051E+01_JPRB, 0.120793E+01_JPRB, 0.121491E+01_JPRB, 0.122144E+01_JPRB &
+  &, 0.122751E+01_JPRB, 0.123312E+01_JPRB, 0.123826E+01_JPRB &
+  &, 0.124294E+01_JPRB, 0.124714E+01_JPRB, 0.125085E+01_JPRB, 0.125409E+01_JPRB &
+  &, 0.125683E+01_JPRB, 0.125908E+01_JPRB, 0.126084E+01_JPRB &
+  &, 0.126210E+01_JPRB, 0.126286E+01_JPRB, 0.126313E+01_JPRB, 0.126290E+01_JPRB &
+  &, 0.126217E+01_JPRB, 0.126094E+01_JPRB, 0.125921E+01_JPRB &
+  &, 0.125698E+01_JPRB, 0.125426E+01_JPRB, 0.125105E+01_JPRB, 0.124735E+01_JPRB &
+  &, 0.124317E+01_JPRB, 0.123851E+01_JPRB, 0.123337E+01_JPRB &
+  &, 0.122777E+01_JPRB, 0.122170E+01_JPRB, 0.121517E+01_JPRB, 0.120820E+01_JPRB &
+  &, 0.120079E+01_JPRB, 0.119294E+01_JPRB, 0.118466E+01_JPRB &
+  &, 0.117599E+01_JPRB, 0.116688E+01_JPRB, 0.115739E+01_JPRB, 0.114751E+01_JPRB &
+  &, 0.113726E+01_JPRB, 0.112664E+01_JPRB, 0.111567E+01_JPRB &
+  &, 0.110436E+01_JPRB, 0.109271E+01_JPRB, 0.108075E+01_JPRB, 0.106849E+01_JPRB &
+  &, 0.105593E+01_JPRB, 0.104309E+01_JPRB, 0.102999E+01_JPRB &
+  &, 0.101662E+01_JPRB, 0.100303E+01_JPRB, 0.989199E+00_JPRB, 0.975171E+00_JPRB &
+  &, 0.960937E+00_JPRB, 0.946510E+00_JPRB, 0.931925E+00_JPRB &
+  &, 0.917174E+00_JPRB, 0.902272E+00_JPRB, 0.887255E+00_JPRB, 0.872114E+00_JPRB &
+  &, 0.856886E+00_JPRB, 0.841561E+00_JPRB, 0.826154E+00_JPRB &
+  &, 0.810700E+00_JPRB, 0.795188E+00_JPRB, 0.779630E+00_JPRB, 0.764062E+00_JPRB &
+  &, 0.748471E+00_JPRB, 0.732919E+00_JPRB, 0.717338E+00_JPRB &
+  &, 0.701817E+00_JPRB, 0.686339E+00_JPRB, 0.670884E+00_JPRB, 0.655515E+00_JPRB &
+  &, 0.640212E+00_JPRB, 0.624979E+00_JPRB, 0.609852E+00_JPRB &
+  &, 0.594836E+00_JPRB, 0.579935E+00_JPRB, 0.565151E+00_JPRB, 0.550519E+00_JPRB &
+  &, 0.536007E+00_JPRB, 0.521647E+00_JPRB, 0.507439E+00_JPRB &
+  &, 0.493415E+00_JPRB, 0.479573E+00_JPRB, 0.465872E+00_JPRB, 0.452380E+00_JPRB &
+  &, 0.439092E+00_JPRB, 0.426001E+00_JPRB, 0.413096E+00_JPRB &
+  &, 0.400409E+00_JPRB, 0.387928E+00_JPRB, 0.375682E+00_JPRB, 0.363617E+00_JPRB &
+  &, 0.351801E+00_JPRB, 0.340219E+00_JPRB, 0.328856E+00_JPRB &
+  &, 0.317737E+00_JPRB, 0.306843E+00_JPRB, 0.296199E+00_JPRB, 0.285784E+00_JPRB &
+  &, 0.275622E+00_JPRB, 0.265688E+00_JPRB, 0.255957E+00_JPRB &
+  &, 0.246500E+00_JPRB, 0.237288E+00_JPRB, 0.228294E+00_JPRB, 0.219538E+00_JPRB &
+  &, 0.211039E+00_JPRB, 0.202766E+00_JPRB, 0.194736E+00_JPRB &
+  &, 0.186915E+00_JPRB, 0.179320E+00_JPRB, 0.171969E+00_JPRB, 0.164821E+00_JPRB &
+  &, 0.157953E+00_JPRB, 0.151204E+00_JPRB, 0.144766E+00_JPRB &
+  &, 0.138477E+00_JPRB, 0.132409E+00_JPRB, 0.126579E+00_JPRB, 0.120938E+00_JPRB &
+  &, 0.115435E+00_JPRB, 0.110210E+00_JPRB, 0.105148E+00_JPRB/)
+XCW( 716, :) = (/ &
+  &  0.105466E+01_JPRB, 0.106755E+01_JPRB, 0.108011E+01_JPRB, 0.109234E+01_JPRB &
+  &, 0.110421E+01_JPRB, 0.111573E+01_JPRB, 0.112689E+01_JPRB &
+  &, 0.113767E+01_JPRB, 0.114807E+01_JPRB, 0.115808E+01_JPRB, 0.116770E+01_JPRB &
+  &, 0.117690E+01_JPRB, 0.118570E+01_JPRB, 0.119407E+01_JPRB &
+  &, 0.120202E+01_JPRB, 0.120953E+01_JPRB, 0.121660E+01_JPRB, 0.122322E+01_JPRB &
+  &, 0.122938E+01_JPRB, 0.123509E+01_JPRB, 0.124032E+01_JPRB &
+  &, 0.124509E+01_JPRB, 0.124938E+01_JPRB, 0.125319E+01_JPRB, 0.125652E+01_JPRB &
+  &, 0.125935E+01_JPRB, 0.126170E+01_JPRB, 0.126355E+01_JPRB &
+  &, 0.126490E+01_JPRB, 0.126576E+01_JPRB, 0.126612E+01_JPRB, 0.126597E+01_JPRB &
+  &, 0.126533E+01_JPRB, 0.126419E+01_JPRB, 0.126255E+01_JPRB &
+  &, 0.126041E+01_JPRB, 0.125777E+01_JPRB, 0.125465E+01_JPRB, 0.125104E+01_JPRB &
+  &, 0.124694E+01_JPRB, 0.124236E+01_JPRB, 0.123731E+01_JPRB &
+  &, 0.123178E+01_JPRB, 0.122579E+01_JPRB, 0.121934E+01_JPRB, 0.121244E+01_JPRB &
+  &, 0.120510E+01_JPRB, 0.119733E+01_JPRB, 0.118913E+01_JPRB &
+  &, 0.118051E+01_JPRB, 0.117148E+01_JPRB, 0.116205E+01_JPRB, 0.115224E+01_JPRB &
+  &, 0.114204E+01_JPRB, 0.113149E+01_JPRB, 0.112057E+01_JPRB &
+  &, 0.110930E+01_JPRB, 0.109772E+01_JPRB, 0.108581E+01_JPRB, 0.107358E+01_JPRB &
+  &, 0.106107E+01_JPRB, 0.104827E+01_JPRB, 0.103520E+01_JPRB &
+  &, 0.102188E+01_JPRB, 0.100831E+01_JPRB, 0.994526E+00_JPRB, 0.980518E+00_JPRB &
+  &, 0.966321E+00_JPRB, 0.951909E+00_JPRB, 0.937335E+00_JPRB &
+  &, 0.922615E+00_JPRB, 0.907742E+00_JPRB, 0.892729E+00_JPRB, 0.877589E+00_JPRB &
+  &, 0.862359E+00_JPRB, 0.847030E+00_JPRB, 0.831638E+00_JPRB &
+  &, 0.816172E+00_JPRB, 0.800645E+00_JPRB, 0.785094E+00_JPRB, 0.769531E+00_JPRB &
+  &, 0.753915E+00_JPRB, 0.738335E+00_JPRB, 0.722749E+00_JPRB &
+  &, 0.707192E+00_JPRB, 0.691702E+00_JPRB, 0.676232E+00_JPRB, 0.660816E+00_JPRB &
+  &, 0.645490E+00_JPRB, 0.630232E+00_JPRB, 0.615046E+00_JPRB &
+  &, 0.599998E+00_JPRB, 0.585060E+00_JPRB, 0.570237E+00_JPRB, 0.555528E+00_JPRB &
+  &, 0.540968E+00_JPRB, 0.526556E+00_JPRB, 0.512327E+00_JPRB &
+  &, 0.498244E+00_JPRB, 0.484303E+00_JPRB, 0.470571E+00_JPRB, 0.457046E+00_JPRB &
+  &, 0.443683E+00_JPRB, 0.430512E+00_JPRB, 0.417563E+00_JPRB &
+  &, 0.404788E+00_JPRB, 0.392256E+00_JPRB, 0.379914E+00_JPRB, 0.367790E+00_JPRB &
+  &, 0.355911E+00_JPRB, 0.344265E+00_JPRB, 0.332832E+00_JPRB &
+  &, 0.321641E+00_JPRB, 0.310671E+00_JPRB, 0.299947E+00_JPRB, 0.289448E+00_JPRB &
+  &, 0.279198E+00_JPRB, 0.269173E+00_JPRB, 0.259396E+00_JPRB &
+  &, 0.249890E+00_JPRB, 0.240577E+00_JPRB, 0.231529E+00_JPRB, 0.222715E+00_JPRB &
+  &, 0.214104E+00_JPRB, 0.205767E+00_JPRB, 0.197617E+00_JPRB &
+  &, 0.189727E+00_JPRB, 0.182060E+00_JPRB, 0.174633E+00_JPRB, 0.167466E+00_JPRB &
+  &, 0.160459E+00_JPRB, 0.153685E+00_JPRB, 0.147162E+00_JPRB &
+  &, 0.140783E+00_JPRB, 0.134686E+00_JPRB, 0.128762E+00_JPRB, 0.123023E+00_JPRB &
+  &, 0.117484E+00_JPRB, 0.112156E+00_JPRB, 0.107053E+00_JPRB/)
+XCW( 717, :) = (/ &
+  &  0.105497E+01_JPRB, 0.106794E+01_JPRB, 0.108058E+01_JPRB, 0.109289E+01_JPRB &
+  &, 0.110484E+01_JPRB, 0.111645E+01_JPRB, 0.112769E+01_JPRB &
+  &, 0.113856E+01_JPRB, 0.114905E+01_JPRB, 0.115915E+01_JPRB, 0.116885E+01_JPRB &
+  &, 0.117814E+01_JPRB, 0.118703E+01_JPRB, 0.119549E+01_JPRB &
+  &, 0.120353E+01_JPRB, 0.121113E+01_JPRB, 0.121829E+01_JPRB, 0.122500E+01_JPRB &
+  &, 0.123126E+01_JPRB, 0.123706E+01_JPRB, 0.124239E+01_JPRB &
+  &, 0.124725E+01_JPRB, 0.125163E+01_JPRB, 0.125553E+01_JPRB, 0.125895E+01_JPRB &
+  &, 0.126188E+01_JPRB, 0.126432E+01_JPRB, 0.126627E+01_JPRB &
+  &, 0.126771E+01_JPRB, 0.126866E+01_JPRB, 0.126911E+01_JPRB, 0.126906E+01_JPRB &
+  &, 0.126850E+01_JPRB, 0.126745E+01_JPRB, 0.126590E+01_JPRB &
+  &, 0.126385E+01_JPRB, 0.126130E+01_JPRB, 0.125826E+01_JPRB, 0.125474E+01_JPRB &
+  &, 0.125073E+01_JPRB, 0.124622E+01_JPRB, 0.124125E+01_JPRB &
+  &, 0.123581E+01_JPRB, 0.122990E+01_JPRB, 0.122353E+01_JPRB, 0.121670E+01_JPRB &
+  &, 0.120944E+01_JPRB, 0.120174E+01_JPRB, 0.119361E+01_JPRB &
+  &, 0.118505E+01_JPRB, 0.117609E+01_JPRB, 0.116673E+01_JPRB, 0.115698E+01_JPRB &
+  &, 0.114685E+01_JPRB, 0.113634E+01_JPRB, 0.112548E+01_JPRB &
+  &, 0.111427E+01_JPRB, 0.110275E+01_JPRB, 0.109087E+01_JPRB, 0.107871E+01_JPRB &
+  &, 0.106623E+01_JPRB, 0.105347E+01_JPRB, 0.104046E+01_JPRB &
+  &, 0.102716E+01_JPRB, 0.101364E+01_JPRB, 0.999872E+00_JPRB, 0.985903E+00_JPRB &
+  &, 0.971724E+00_JPRB, 0.957347E+00_JPRB, 0.942787E+00_JPRB &
+  &, 0.928077E+00_JPRB, 0.913232E+00_JPRB, 0.898224E+00_JPRB, 0.883109E+00_JPRB &
+  &, 0.867878E+00_JPRB, 0.852568E+00_JPRB, 0.837169E+00_JPRB &
+  &, 0.821693E+00_JPRB, 0.806177E+00_JPRB, 0.790609E+00_JPRB, 0.775026E+00_JPRB &
+  &, 0.759412E+00_JPRB, 0.743804E+00_JPRB, 0.728214E+00_JPRB &
+  &, 0.712622E+00_JPRB, 0.697093E+00_JPRB, 0.681609E+00_JPRB, 0.666146E+00_JPRB &
+  &, 0.650799E+00_JPRB, 0.635517E+00_JPRB, 0.620302E+00_JPRB &
+  &, 0.605191E+00_JPRB, 0.590218E+00_JPRB, 0.575355E+00_JPRB, 0.560603E+00_JPRB &
+  &, 0.545996E+00_JPRB, 0.531534E+00_JPRB, 0.517251E+00_JPRB &
+  &, 0.503110E+00_JPRB, 0.489142E+00_JPRB, 0.475345E+00_JPRB, 0.461712E+00_JPRB &
+  &, 0.448312E+00_JPRB, 0.435062E+00_JPRB, 0.422030E+00_JPRB &
+  &, 0.409208E+00_JPRB, 0.396625E+00_JPRB, 0.384229E+00_JPRB, 0.372047E+00_JPRB &
+  &, 0.360065E+00_JPRB, 0.348354E+00_JPRB, 0.336853E+00_JPRB &
+  &, 0.325589E+00_JPRB, 0.314544E+00_JPRB, 0.303741E+00_JPRB, 0.293159E+00_JPRB &
+  &, 0.282822E+00_JPRB, 0.272755E+00_JPRB, 0.262884E+00_JPRB &
+  &, 0.253280E+00_JPRB, 0.243916E+00_JPRB, 0.234763E+00_JPRB, 0.225892E+00_JPRB &
+  &, 0.217221E+00_JPRB, 0.208768E+00_JPRB, 0.200553E+00_JPRB &
+  &, 0.192594E+00_JPRB, 0.184856E+00_JPRB, 0.177355E+00_JPRB, 0.170110E+00_JPRB &
+  &, 0.163023E+00_JPRB, 0.156167E+00_JPRB, 0.149557E+00_JPRB &
+  &, 0.143151E+00_JPRB, 0.136962E+00_JPRB, 0.130944E+00_JPRB, 0.125171E+00_JPRB &
+  &, 0.119596E+00_JPRB, 0.114167E+00_JPRB, 0.108959E+00_JPRB/)
+XCW( 718, :) = (/ &
+  &  0.105528E+01_JPRB, 0.106832E+01_JPRB, 0.108105E+01_JPRB, 0.109343E+01_JPRB &
+  &, 0.110548E+01_JPRB, 0.111717E+01_JPRB, 0.112849E+01_JPRB &
+  &, 0.113945E+01_JPRB, 0.115002E+01_JPRB, 0.116021E+01_JPRB, 0.117000E+01_JPRB &
+  &, 0.117939E+01_JPRB, 0.118836E+01_JPRB, 0.119692E+01_JPRB &
+  &, 0.120504E+01_JPRB, 0.121274E+01_JPRB, 0.121999E+01_JPRB, 0.122679E+01_JPRB &
+  &, 0.123314E+01_JPRB, 0.123903E+01_JPRB, 0.124446E+01_JPRB &
+  &, 0.124941E+01_JPRB, 0.125389E+01_JPRB, 0.125789E+01_JPRB, 0.126140E+01_JPRB &
+  &, 0.126442E+01_JPRB, 0.126695E+01_JPRB, 0.126899E+01_JPRB &
+  &, 0.127053E+01_JPRB, 0.127157E+01_JPRB, 0.127211E+01_JPRB, 0.127215E+01_JPRB &
+  &, 0.127169E+01_JPRB, 0.127073E+01_JPRB, 0.126927E+01_JPRB &
+  &, 0.126730E+01_JPRB, 0.126484E+01_JPRB, 0.126189E+01_JPRB, 0.125845E+01_JPRB &
+  &, 0.125452E+01_JPRB, 0.125010E+01_JPRB, 0.124521E+01_JPRB &
+  &, 0.123985E+01_JPRB, 0.123402E+01_JPRB, 0.122773E+01_JPRB, 0.122098E+01_JPRB &
+  &, 0.121379E+01_JPRB, 0.120616E+01_JPRB, 0.119811E+01_JPRB &
+  &, 0.118962E+01_JPRB, 0.118073E+01_JPRB, 0.117143E+01_JPRB, 0.116174E+01_JPRB &
+  &, 0.115166E+01_JPRB, 0.114122E+01_JPRB, 0.113043E+01_JPRB &
+  &, 0.111928E+01_JPRB, 0.110779E+01_JPRB, 0.109598E+01_JPRB, 0.108385E+01_JPRB &
+  &, 0.107143E+01_JPRB, 0.105872E+01_JPRB, 0.104573E+01_JPRB &
+  &, 0.103248E+01_JPRB, 0.101900E+01_JPRB, 0.100526E+01_JPRB, 0.991308E+00_JPRB &
+  &, 0.977166E+00_JPRB, 0.962806E+00_JPRB, 0.948280E+00_JPRB &
+  &, 0.933581E+00_JPRB, 0.918744E+00_JPRB, 0.903764E+00_JPRB, 0.888651E+00_JPRB &
+  &, 0.873420E+00_JPRB, 0.858106E+00_JPRB, 0.842724E+00_JPRB &
+  &, 0.827239E+00_JPRB, 0.811710E+00_JPRB, 0.796150E+00_JPRB, 0.780546E+00_JPRB &
+  &, 0.764935E+00_JPRB, 0.749300E+00_JPRB, 0.733706E+00_JPRB &
+  &, 0.718108E+00_JPRB, 0.702541E+00_JPRB, 0.687014E+00_JPRB, 0.671534E+00_JPRB &
+  &, 0.656138E+00_JPRB, 0.640831E+00_JPRB, 0.625589E+00_JPRB &
+  &, 0.610447E+00_JPRB, 0.595408E+00_JPRB, 0.580506E+00_JPRB, 0.565712E+00_JPRB &
+  &, 0.551059E+00_JPRB, 0.536547E+00_JPRB, 0.522210E+00_JPRB &
+  &, 0.508011E+00_JPRB, 0.493982E+00_JPRB, 0.480118E+00_JPRB, 0.466452E+00_JPRB &
+  &, 0.452979E+00_JPRB, 0.439689E+00_JPRB, 0.426576E+00_JPRB &
+  &, 0.413707E+00_JPRB, 0.401034E+00_JPRB, 0.388543E+00_JPRB, 0.376304E+00_JPRB &
+  &, 0.364262E+00_JPRB, 0.352486E+00_JPRB, 0.340918E+00_JPRB &
+  &, 0.329538E+00_JPRB, 0.318462E+00_JPRB, 0.307581E+00_JPRB, 0.296916E+00_JPRB &
+  &, 0.286541E+00_JPRB, 0.276337E+00_JPRB, 0.266421E+00_JPRB &
+  &, 0.256720E+00_JPRB, 0.247255E+00_JPRB, 0.238048E+00_JPRB, 0.229069E+00_JPRB &
+  &, 0.220338E+00_JPRB, 0.211823E+00_JPRB, 0.203543E+00_JPRB &
+  &, 0.195516E+00_JPRB, 0.187707E+00_JPRB, 0.180133E+00_JPRB, 0.172754E+00_JPRB &
+  &, 0.165646E+00_JPRB, 0.158707E+00_JPRB, 0.152013E+00_JPRB &
+  &, 0.145518E+00_JPRB, 0.139300E+00_JPRB, 0.133188E+00_JPRB, 0.127383E+00_JPRB &
+  &, 0.121709E+00_JPRB, 0.116242E+00_JPRB, 0.110930E+00_JPRB/)
+XCW( 719, :) = (/ &
+  &  0.105558E+01_JPRB, 0.106871E+01_JPRB, 0.108152E+01_JPRB, 0.109399E+01_JPRB &
+  &, 0.110611E+01_JPRB, 0.111789E+01_JPRB, 0.112930E+01_JPRB &
+  &, 0.114034E+01_JPRB, 0.115100E+01_JPRB, 0.116128E+01_JPRB, 0.117116E+01_JPRB &
+  &, 0.118063E+01_JPRB, 0.118970E+01_JPRB, 0.119834E+01_JPRB &
+  &, 0.120656E+01_JPRB, 0.121435E+01_JPRB, 0.122169E+01_JPRB, 0.122859E+01_JPRB &
+  &, 0.123503E+01_JPRB, 0.124102E+01_JPRB, 0.124654E+01_JPRB &
+  &, 0.125158E+01_JPRB, 0.125615E+01_JPRB, 0.126024E+01_JPRB, 0.126385E+01_JPRB &
+  &, 0.126697E+01_JPRB, 0.126959E+01_JPRB, 0.127172E+01_JPRB &
+  &, 0.127336E+01_JPRB, 0.127449E+01_JPRB, 0.127512E+01_JPRB, 0.127525E+01_JPRB &
+  &, 0.127488E+01_JPRB, 0.127401E+01_JPRB, 0.127264E+01_JPRB &
+  &, 0.127076E+01_JPRB, 0.126840E+01_JPRB, 0.126553E+01_JPRB, 0.126218E+01_JPRB &
+  &, 0.125833E+01_JPRB, 0.125400E+01_JPRB, 0.124919E+01_JPRB &
+  &, 0.124391E+01_JPRB, 0.123816E+01_JPRB, 0.123195E+01_JPRB, 0.122527E+01_JPRB &
+  &, 0.121817E+01_JPRB, 0.121060E+01_JPRB, 0.120262E+01_JPRB &
+  &, 0.119421E+01_JPRB, 0.118537E+01_JPRB, 0.117615E+01_JPRB, 0.116652E+01_JPRB &
+  &, 0.115652E+01_JPRB, 0.114614E+01_JPRB, 0.113540E+01_JPRB &
+  &, 0.112430E+01_JPRB, 0.111286E+01_JPRB, 0.110109E+01_JPRB, 0.108903E+01_JPRB &
+  &, 0.107664E+01_JPRB, 0.106398E+01_JPRB, 0.105104E+01_JPRB &
+  &, 0.103783E+01_JPRB, 0.102438E+01_JPRB, 0.101068E+01_JPRB, 0.996751E+00_JPRB &
+  &, 0.982629E+00_JPRB, 0.968305E+00_JPRB, 0.953793E+00_JPRB &
+  &, 0.939127E+00_JPRB, 0.924300E+00_JPRB, 0.909325E+00_JPRB, 0.894215E+00_JPRB &
+  &, 0.879007E+00_JPRB, 0.863691E+00_JPRB, 0.848303E+00_JPRB &
+  &, 0.832833E+00_JPRB, 0.817316E+00_JPRB, 0.801716E+00_JPRB, 0.786118E+00_JPRB &
+  &, 0.770484E+00_JPRB, 0.754850E+00_JPRB, 0.739226E+00_JPRB &
+  &, 0.723594E+00_JPRB, 0.708018E+00_JPRB, 0.692478E+00_JPRB, 0.676982E+00_JPRB &
+  &, 0.661537E+00_JPRB, 0.646177E+00_JPRB, 0.630908E+00_JPRB &
+  &, 0.615735E+00_JPRB, 0.600662E+00_JPRB, 0.585723E+00_JPRB, 0.570888E+00_JPRB &
+  &, 0.556190E+00_JPRB, 0.541629E+00_JPRB, 0.527204E+00_JPRB &
+  &, 0.512948E+00_JPRB, 0.498894E+00_JPRB, 0.484965E+00_JPRB, 0.471231E+00_JPRB &
+  &, 0.457684E+00_JPRB, 0.444317E+00_JPRB, 0.431161E+00_JPRB &
+  &, 0.418207E+00_JPRB, 0.405484E+00_JPRB, 0.392941E+00_JPRB, 0.380562E+00_JPRB &
+  &, 0.368544E+00_JPRB, 0.356662E+00_JPRB, 0.345027E+00_JPRB &
+  &, 0.333576E+00_JPRB, 0.322381E+00_JPRB, 0.311467E+00_JPRB, 0.300721E+00_JPRB &
+  &, 0.290261E+00_JPRB, 0.280015E+00_JPRB, 0.270007E+00_JPRB &
+  &, 0.260210E+00_JPRB, 0.250695E+00_JPRB, 0.241385E+00_JPRB, 0.232350E+00_JPRB &
+  &, 0.223509E+00_JPRB, 0.214932E+00_JPRB, 0.206587E+00_JPRB &
+  &, 0.198493E+00_JPRB, 0.190614E+00_JPRB, 0.182911E+00_JPRB, 0.175514E+00_JPRB &
+  &, 0.168268E+00_JPRB, 0.161307E+00_JPRB, 0.154528E+00_JPRB &
+  &, 0.147946E+00_JPRB, 0.141638E+00_JPRB, 0.135495E+00_JPRB, 0.129594E+00_JPRB &
+  &, 0.123822E+00_JPRB, 0.118318E+00_JPRB, 0.112967E+00_JPRB/)
+XCW( 720, :) = (/ &
+  &  0.105589E+01_JPRB, 0.106910E+01_JPRB, 0.108199E+01_JPRB, 0.109454E+01_JPRB &
+  &, 0.110675E+01_JPRB, 0.111861E+01_JPRB, 0.113010E+01_JPRB &
+  &, 0.114123E+01_JPRB, 0.115198E+01_JPRB, 0.116235E+01_JPRB, 0.117231E+01_JPRB &
+  &, 0.118188E+01_JPRB, 0.119103E+01_JPRB, 0.119977E+01_JPRB &
+  &, 0.120808E+01_JPRB, 0.121596E+01_JPRB, 0.122340E+01_JPRB, 0.123039E+01_JPRB &
+  &, 0.123693E+01_JPRB, 0.124301E+01_JPRB, 0.124862E+01_JPRB &
+  &, 0.125376E+01_JPRB, 0.125843E+01_JPRB, 0.126261E+01_JPRB, 0.126631E+01_JPRB &
+  &, 0.126952E+01_JPRB, 0.127224E+01_JPRB, 0.127447E+01_JPRB &
+  &, 0.127619E+01_JPRB, 0.127742E+01_JPRB, 0.127814E+01_JPRB, 0.127837E+01_JPRB &
+  &, 0.127809E+01_JPRB, 0.127731E+01_JPRB, 0.127602E+01_JPRB &
+  &, 0.127424E+01_JPRB, 0.127196E+01_JPRB, 0.126918E+01_JPRB, 0.126592E+01_JPRB &
+  &, 0.126216E+01_JPRB, 0.125791E+01_JPRB, 0.125319E+01_JPRB &
+  &, 0.124799E+01_JPRB, 0.124232E+01_JPRB, 0.123617E+01_JPRB, 0.122959E+01_JPRB &
+  &, 0.122255E+01_JPRB, 0.121507E+01_JPRB, 0.120715E+01_JPRB &
+  &, 0.119881E+01_JPRB, 0.119006E+01_JPRB, 0.118089E+01_JPRB, 0.117133E+01_JPRB &
+  &, 0.116139E+01_JPRB, 0.115106E+01_JPRB, 0.114038E+01_JPRB &
+  &, 0.112934E+01_JPRB, 0.111795E+01_JPRB, 0.110625E+01_JPRB, 0.109423E+01_JPRB &
+  &, 0.108189E+01_JPRB, 0.106927E+01_JPRB, 0.105636E+01_JPRB &
+  &, 0.104321E+01_JPRB, 0.102977E+01_JPRB, 0.101612E+01_JPRB, 0.100223E+01_JPRB &
+  &, 0.988131E+00_JPRB, 0.973825E+00_JPRB, 0.959348E+00_JPRB &
+  &, 0.944694E+00_JPRB, 0.929877E+00_JPRB, 0.914930E+00_JPRB, 0.899825E+00_JPRB &
+  &, 0.884641E+00_JPRB, 0.869323E+00_JPRB, 0.853930E+00_JPRB &
+  &, 0.838451E+00_JPRB, 0.822923E+00_JPRB, 0.807357E+00_JPRB, 0.791716E+00_JPRB &
+  &, 0.776086E+00_JPRB, 0.760427E+00_JPRB, 0.744773E+00_JPRB &
+  &, 0.729135E+00_JPRB, 0.713551E+00_JPRB, 0.697971E+00_JPRB, 0.682430E+00_JPRB &
+  &, 0.666995E+00_JPRB, 0.651583E+00_JPRB, 0.636288E+00_JPRB &
+  &, 0.621055E+00_JPRB, 0.605948E+00_JPRB, 0.590972E+00_JPRB, 0.576063E+00_JPRB &
+  &, 0.561320E+00_JPRB, 0.546711E+00_JPRB, 0.532268E+00_JPRB &
+  &, 0.517956E+00_JPRB, 0.503806E+00_JPRB, 0.489850E+00_JPRB, 0.476047E+00_JPRB &
+  &, 0.462466E+00_JPRB, 0.449023E+00_JPRB, 0.435826E+00_JPRB &
+  &, 0.422787E+00_JPRB, 0.409976E+00_JPRB, 0.397380E+00_JPRB, 0.384988E+00_JPRB &
+  &, 0.372827E+00_JPRB, 0.360882E+00_JPRB, 0.349136E+00_JPRB &
+  &, 0.337660E+00_JPRB, 0.326390E+00_JPRB, 0.315353E+00_JPRB, 0.304573E+00_JPRB &
+  &, 0.294028E+00_JPRB, 0.283694E+00_JPRB, 0.273593E+00_JPRB &
+  &, 0.263750E+00_JPRB, 0.254136E+00_JPRB, 0.244773E+00_JPRB, 0.235631E+00_JPRB &
+  &, 0.226732E+00_JPRB, 0.218094E+00_JPRB, 0.209686E+00_JPRB &
+  &, 0.201471E+00_JPRB, 0.193522E+00_JPRB, 0.185746E+00_JPRB, 0.178273E+00_JPRB &
+  &, 0.170949E+00_JPRB, 0.163907E+00_JPRB, 0.157044E+00_JPRB &
+  &, 0.150435E+00_JPRB, 0.144037E+00_JPRB, 0.137802E+00_JPRB, 0.131805E+00_JPRB &
+  &, 0.125998E+00_JPRB, 0.120393E+00_JPRB, 0.115004E+00_JPRB/)
+XCW( 721, :) = (/ &
+  &  0.105620E+01_JPRB, 0.106949E+01_JPRB, 0.108246E+01_JPRB, 0.109509E+01_JPRB &
+  &, 0.110739E+01_JPRB, 0.111933E+01_JPRB, 0.113091E+01_JPRB &
+  &, 0.114213E+01_JPRB, 0.115296E+01_JPRB, 0.116342E+01_JPRB, 0.117347E+01_JPRB &
+  &, 0.118313E+01_JPRB, 0.119238E+01_JPRB, 0.120121E+01_JPRB &
+  &, 0.120961E+01_JPRB, 0.121758E+01_JPRB, 0.122511E+01_JPRB, 0.123220E+01_JPRB &
+  &, 0.123883E+01_JPRB, 0.124500E+01_JPRB, 0.125071E+01_JPRB &
+  &, 0.125594E+01_JPRB, 0.126070E+01_JPRB, 0.126498E+01_JPRB, 0.126878E+01_JPRB &
+  &, 0.127209E+01_JPRB, 0.127490E+01_JPRB, 0.127722E+01_JPRB &
+  &, 0.127904E+01_JPRB, 0.128036E+01_JPRB, 0.128118E+01_JPRB, 0.128149E+01_JPRB &
+  &, 0.128130E+01_JPRB, 0.128062E+01_JPRB, 0.127943E+01_JPRB &
+  &, 0.127773E+01_JPRB, 0.127554E+01_JPRB, 0.127285E+01_JPRB, 0.126967E+01_JPRB &
+  &, 0.126599E+01_JPRB, 0.126183E+01_JPRB, 0.125719E+01_JPRB &
+  &, 0.125207E+01_JPRB, 0.124648E+01_JPRB, 0.124043E+01_JPRB, 0.123392E+01_JPRB &
+  &, 0.122695E+01_JPRB, 0.121955E+01_JPRB, 0.121170E+01_JPRB &
+  &, 0.120343E+01_JPRB, 0.119475E+01_JPRB, 0.118566E+01_JPRB, 0.117616E+01_JPRB &
+  &, 0.116627E+01_JPRB, 0.115602E+01_JPRB, 0.114539E+01_JPRB &
+  &, 0.113441E+01_JPRB, 0.112308E+01_JPRB, 0.111143E+01_JPRB, 0.109946E+01_JPRB &
+  &, 0.108717E+01_JPRB, 0.107458E+01_JPRB, 0.106172E+01_JPRB &
+  &, 0.104859E+01_JPRB, 0.103521E+01_JPRB, 0.102158E+01_JPRB, 0.100773E+01_JPRB &
+  &, 0.993653E+00_JPRB, 0.979385E+00_JPRB, 0.964924E+00_JPRB &
+  &, 0.950283E+00_JPRB, 0.935497E+00_JPRB, 0.920558E+00_JPRB, 0.905479E+00_JPRB &
+  &, 0.890274E+00_JPRB, 0.874978E+00_JPRB, 0.859604E+00_JPRB &
+  &, 0.844118E+00_JPRB, 0.828579E+00_JPRB, 0.812999E+00_JPRB, 0.797366E+00_JPRB &
+  &, 0.781715E+00_JPRB, 0.766057E+00_JPRB, 0.750375E+00_JPRB &
+  &, 0.734733E+00_JPRB, 0.719112E+00_JPRB, 0.703492E+00_JPRB, 0.687966E+00_JPRB &
+  &, 0.672454E+00_JPRB, 0.657050E+00_JPRB, 0.641700E+00_JPRB &
+  &, 0.626438E+00_JPRB, 0.611299E+00_JPRB, 0.596255E+00_JPRB, 0.581339E+00_JPRB &
+  &, 0.566519E+00_JPRB, 0.551862E+00_JPRB, 0.537368E+00_JPRB &
+  &, 0.523000E+00_JPRB, 0.508790E+00_JPRB, 0.494771E+00_JPRB, 0.480938E+00_JPRB &
+  &, 0.467247E+00_JPRB, 0.453767E+00_JPRB, 0.440490E+00_JPRB &
+  &, 0.427408E+00_JPRB, 0.414508E+00_JPRB, 0.401861E+00_JPRB, 0.389414E+00_JPRB &
+  &, 0.377152E+00_JPRB, 0.365144E+00_JPRB, 0.353333E+00_JPRB &
+  &, 0.341788E+00_JPRB, 0.330446E+00_JPRB, 0.319332E+00_JPRB, 0.308471E+00_JPRB &
+  &, 0.297842E+00_JPRB, 0.287421E+00_JPRB, 0.277278E+00_JPRB &
+  &, 0.267339E+00_JPRB, 0.257677E+00_JPRB, 0.248212E+00_JPRB, 0.239017E+00_JPRB &
+  &, 0.230007E+00_JPRB, 0.221256E+00_JPRB, 0.212784E+00_JPRB &
+  &, 0.204503E+00_JPRB, 0.196485E+00_JPRB, 0.188637E+00_JPRB, 0.181032E+00_JPRB &
+  &, 0.173689E+00_JPRB, 0.166565E+00_JPRB, 0.159619E+00_JPRB &
+  &, 0.152924E+00_JPRB, 0.146437E+00_JPRB, 0.140172E+00_JPRB, 0.134080E+00_JPRB &
+  &, 0.128239E+00_JPRB, 0.122599E+00_JPRB, 0.117107E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART103',1,ZHOOK_HANDLE)
+END SUBROUTINE PART103
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART104
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART104',0,ZHOOK_HANDLE)
+
+XCW( 722, :) = (/ &
+  &  0.105651E+01_JPRB, 0.106988E+01_JPRB, 0.108293E+01_JPRB, 0.109565E+01_JPRB &
+  &, 0.110802E+01_JPRB, 0.112005E+01_JPRB, 0.113172E+01_JPRB &
+  &, 0.114302E+01_JPRB, 0.115395E+01_JPRB, 0.116449E+01_JPRB, 0.117464E+01_JPRB &
+  &, 0.118439E+01_JPRB, 0.119372E+01_JPRB, 0.120264E+01_JPRB &
+  &, 0.121114E+01_JPRB, 0.121920E+01_JPRB, 0.122683E+01_JPRB, 0.123401E+01_JPRB &
+  &, 0.124073E+01_JPRB, 0.124700E+01_JPRB, 0.125280E+01_JPRB &
+  &, 0.125813E+01_JPRB, 0.126299E+01_JPRB, 0.126736E+01_JPRB, 0.127125E+01_JPRB &
+  &, 0.127465E+01_JPRB, 0.127756E+01_JPRB, 0.127998E+01_JPRB &
+  &, 0.128189E+01_JPRB, 0.128331E+01_JPRB, 0.128422E+01_JPRB, 0.128463E+01_JPRB &
+  &, 0.128453E+01_JPRB, 0.128393E+01_JPRB, 0.128284E+01_JPRB &
+  &, 0.128124E+01_JPRB, 0.127912E+01_JPRB, 0.127653E+01_JPRB, 0.127344E+01_JPRB &
+  &, 0.126984E+01_JPRB, 0.126577E+01_JPRB, 0.126121E+01_JPRB &
+  &, 0.125618E+01_JPRB, 0.125067E+01_JPRB, 0.124470E+01_JPRB, 0.123826E+01_JPRB &
+  &, 0.123137E+01_JPRB, 0.122405E+01_JPRB, 0.121628E+01_JPRB &
+  &, 0.120803E+01_JPRB, 0.119946E+01_JPRB, 0.119044E+01_JPRB, 0.118100E+01_JPRB &
+  &, 0.117119E+01_JPRB, 0.116099E+01_JPRB, 0.115042E+01_JPRB &
+  &, 0.113950E+01_JPRB, 0.112823E+01_JPRB, 0.111662E+01_JPRB, 0.110470E+01_JPRB &
+  &, 0.109246E+01_JPRB, 0.107993E+01_JPRB, 0.106712E+01_JPRB &
+  &, 0.105402E+01_JPRB, 0.104068E+01_JPRB, 0.102708E+01_JPRB, 0.101326E+01_JPRB &
+  &, 0.999214E+00_JPRB, 0.984965E+00_JPRB, 0.970540E+00_JPRB &
+  &, 0.955913E+00_JPRB, 0.941138E+00_JPRB, 0.926207E+00_JPRB, 0.911156E+00_JPRB &
+  &, 0.895976E+00_JPRB, 0.880680E+00_JPRB, 0.865302E+00_JPRB &
+  &, 0.849833E+00_JPRB, 0.834284E+00_JPRB, 0.818692E+00_JPRB, 0.803067E+00_JPRB &
+  &, 0.787396E+00_JPRB, 0.771714E+00_JPRB, 0.756031E+00_JPRB &
+  &, 0.740358E+00_JPRB, 0.724702E+00_JPRB, 0.709071E+00_JPRB, 0.693503E+00_JPRB &
+  &, 0.677973E+00_JPRB, 0.662518E+00_JPRB, 0.647143E+00_JPRB &
+  &, 0.631853E+00_JPRB, 0.616682E+00_JPRB, 0.601570E+00_JPRB, 0.586615E+00_JPRB &
+  &, 0.571785E+00_JPRB, 0.557082E+00_JPRB, 0.542503E+00_JPRB &
+  &, 0.528080E+00_JPRB, 0.513848E+00_JPRB, 0.499766E+00_JPRB, 0.485829E+00_JPRB &
+  &, 0.472106E+00_JPRB, 0.458590E+00_JPRB, 0.445234E+00_JPRB &
+  &, 0.432068E+00_JPRB, 0.419121E+00_JPRB, 0.406383E+00_JPRB, 0.393840E+00_JPRB &
+  &, 0.381520E+00_JPRB, 0.369451E+00_JPRB, 0.357574E+00_JPRB &
+  &, 0.345871E+00_JPRB, 0.334547E+00_JPRB, 0.323357E+00_JPRB, 0.312417E+00_JPRB &
+  &, 0.301705E+00_JPRB, 0.291196E+00_JPRB, 0.280962E+00_JPRB &
+  &, 0.270979E+00_JPRB, 0.261219E+00_JPRB, 0.251652E+00_JPRB, 0.242402E+00_JPRB &
+  &, 0.233336E+00_JPRB, 0.224526E+00_JPRB, 0.215937E+00_JPRB &
+  &, 0.207591E+00_JPRB, 0.199449E+00_JPRB, 0.191586E+00_JPRB, 0.183907E+00_JPRB &
+  &, 0.176486E+00_JPRB, 0.169283E+00_JPRB, 0.162254E+00_JPRB &
+  &, 0.155474E+00_JPRB, 0.148898E+00_JPRB, 0.142541E+00_JPRB, 0.136418E+00_JPRB &
+  &, 0.130479E+00_JPRB, 0.124739E+00_JPRB, 0.119210E+00_JPRB/)
+XCW( 723, :) = (/ &
+  &  0.105682E+01_JPRB, 0.107027E+01_JPRB, 0.108340E+01_JPRB, 0.109620E+01_JPRB &
+  &, 0.110866E+01_JPRB, 0.112078E+01_JPRB, 0.113253E+01_JPRB &
+  &, 0.114392E+01_JPRB, 0.115494E+01_JPRB, 0.116557E+01_JPRB, 0.117581E+01_JPRB &
+  &, 0.118564E+01_JPRB, 0.119507E+01_JPRB, 0.120408E+01_JPRB &
+  &, 0.121267E+01_JPRB, 0.122083E+01_JPRB, 0.122855E+01_JPRB, 0.123582E+01_JPRB &
+  &, 0.124264E+01_JPRB, 0.124900E+01_JPRB, 0.125490E+01_JPRB &
+  &, 0.126033E+01_JPRB, 0.126528E+01_JPRB, 0.126975E+01_JPRB, 0.127373E+01_JPRB &
+  &, 0.127723E+01_JPRB, 0.128023E+01_JPRB, 0.128274E+01_JPRB &
+  &, 0.128475E+01_JPRB, 0.128626E+01_JPRB, 0.128727E+01_JPRB, 0.128777E+01_JPRB &
+  &, 0.128777E+01_JPRB, 0.128727E+01_JPRB, 0.128626E+01_JPRB &
+  &, 0.128474E+01_JPRB, 0.128273E+01_JPRB, 0.128022E+01_JPRB, 0.127722E+01_JPRB &
+  &, 0.127372E+01_JPRB, 0.126972E+01_JPRB, 0.126525E+01_JPRB &
+  &, 0.126030E+01_JPRB, 0.125488E+01_JPRB, 0.124898E+01_JPRB, 0.124264E+01_JPRB &
+  &, 0.123582E+01_JPRB, 0.122857E+01_JPRB, 0.122088E+01_JPRB &
+  &, 0.121274E+01_JPRB, 0.120420E+01_JPRB, 0.119524E+01_JPRB, 0.118587E+01_JPRB &
+  &, 0.117613E+01_JPRB, 0.116599E+01_JPRB, 0.115548E+01_JPRB &
+  &, 0.114462E+01_JPRB, 0.113340E+01_JPRB, 0.112184E+01_JPRB, 0.110998E+01_JPRB &
+  &, 0.109779E+01_JPRB, 0.108530E+01_JPRB, 0.107253E+01_JPRB &
+  &, 0.105948E+01_JPRB, 0.104617E+01_JPRB, 0.103261E+01_JPRB, 0.101882E+01_JPRB &
+  &, 0.100482E+01_JPRB, 0.990585E+00_JPRB, 0.976178E+00_JPRB &
+  &, 0.961586E+00_JPRB, 0.946823E+00_JPRB, 0.931923E+00_JPRB, 0.916878E+00_JPRB &
+  &, 0.901701E+00_JPRB, 0.886405E+00_JPRB, 0.871024E+00_JPRB &
+  &, 0.855549E+00_JPRB, 0.840015E+00_JPRB, 0.824434E+00_JPRB, 0.808794E+00_JPRB &
+  &, 0.793103E+00_JPRB, 0.777424E+00_JPRB, 0.761715E+00_JPRB &
+  &, 0.746039E+00_JPRB, 0.730349E+00_JPRB, 0.714708E+00_JPRB, 0.699098E+00_JPRB &
+  &, 0.683552E+00_JPRB, 0.668046E+00_JPRB, 0.652648E+00_JPRB &
+  &, 0.637331E+00_JPRB, 0.622097E+00_JPRB, 0.606950E+00_JPRB, 0.591957E+00_JPRB &
+  &, 0.577052E+00_JPRB, 0.562302E+00_JPRB, 0.547673E+00_JPRB &
+  &, 0.533232E+00_JPRB, 0.518906E+00_JPRB, 0.504762E+00_JPRB, 0.490796E+00_JPRB &
+  &, 0.477002E+00_JPRB, 0.463412E+00_JPRB, 0.449978E+00_JPRB &
+  &, 0.436769E+00_JPRB, 0.423776E+00_JPRB, 0.410947E+00_JPRB, 0.398350E+00_JPRB &
+  &, 0.385973E+00_JPRB, 0.373801E+00_JPRB, 0.361860E+00_JPRB &
+  &, 0.350133E+00_JPRB, 0.338647E+00_JPRB, 0.327382E+00_JPRB, 0.316363E+00_JPRB &
+  &, 0.305567E+00_JPRB, 0.295020E+00_JPRB, 0.284696E+00_JPRB &
+  &, 0.274618E+00_JPRB, 0.264811E+00_JPRB, 0.255194E+00_JPRB, 0.245840E+00_JPRB &
+  &, 0.236665E+00_JPRB, 0.227795E+00_JPRB, 0.219145E+00_JPRB &
+  &, 0.210678E+00_JPRB, 0.202468E+00_JPRB, 0.194534E+00_JPRB, 0.186781E+00_JPRB &
+  &, 0.179284E+00_JPRB, 0.172001E+00_JPRB, 0.164889E+00_JPRB &
+  &, 0.158084E+00_JPRB, 0.151420E+00_JPRB, 0.145035E+00_JPRB, 0.138818E+00_JPRB &
+  &, 0.132784E+00_JPRB, 0.126944E+00_JPRB, 0.121378E+00_JPRB/)
+XCW( 724, :) = (/ &
+  &  0.105713E+01_JPRB, 0.107066E+01_JPRB, 0.108387E+01_JPRB, 0.109676E+01_JPRB &
+  &, 0.110931E+01_JPRB, 0.112150E+01_JPRB, 0.113335E+01_JPRB &
+  &, 0.114482E+01_JPRB, 0.115593E+01_JPRB, 0.116665E+01_JPRB, 0.117698E+01_JPRB &
+  &, 0.118690E+01_JPRB, 0.119642E+01_JPRB, 0.120553E+01_JPRB &
+  &, 0.121421E+01_JPRB, 0.122246E+01_JPRB, 0.123027E+01_JPRB, 0.123764E+01_JPRB &
+  &, 0.124456E+01_JPRB, 0.125101E+01_JPRB, 0.125701E+01_JPRB &
+  &, 0.126253E+01_JPRB, 0.126758E+01_JPRB, 0.127214E+01_JPRB, 0.127622E+01_JPRB &
+  &, 0.127982E+01_JPRB, 0.128292E+01_JPRB, 0.128552E+01_JPRB &
+  &, 0.128762E+01_JPRB, 0.128923E+01_JPRB, 0.129033E+01_JPRB, 0.129093E+01_JPRB &
+  &, 0.129102E+01_JPRB, 0.129061E+01_JPRB, 0.128969E+01_JPRB &
+  &, 0.128827E+01_JPRB, 0.128635E+01_JPRB, 0.128393E+01_JPRB, 0.128101E+01_JPRB &
+  &, 0.127759E+01_JPRB, 0.127370E+01_JPRB, 0.126932E+01_JPRB &
+  &, 0.126444E+01_JPRB, 0.125909E+01_JPRB, 0.125329E+01_JPRB, 0.124701E+01_JPRB &
+  &, 0.124028E+01_JPRB, 0.123310E+01_JPRB, 0.122548E+01_JPRB &
+  &, 0.121743E+01_JPRB, 0.120895E+01_JPRB, 0.120006E+01_JPRB, 0.119077E+01_JPRB &
+  &, 0.118109E+01_JPRB, 0.117100E+01_JPRB, 0.116057E+01_JPRB &
+  &, 0.114976E+01_JPRB, 0.113860E+01_JPRB, 0.112710E+01_JPRB, 0.111527E+01_JPRB &
+  &, 0.110314E+01_JPRB, 0.109069E+01_JPRB, 0.107797E+01_JPRB &
+  &, 0.106496E+01_JPRB, 0.105170E+01_JPRB, 0.103817E+01_JPRB, 0.102441E+01_JPRB &
+  &, 0.101044E+01_JPRB, 0.996246E+00_JPRB, 0.981857E+00_JPRB &
+  &, 0.967280E+00_JPRB, 0.952550E+00_JPRB, 0.937660E+00_JPRB, 0.922622E+00_JPRB &
+  &, 0.907449E+00_JPRB, 0.892177E+00_JPRB, 0.876794E+00_JPRB &
+  &, 0.861338E+00_JPRB, 0.845795E+00_JPRB, 0.830203E+00_JPRB, 0.814546E+00_JPRB &
+  &, 0.798863E+00_JPRB, 0.783162E+00_JPRB, 0.767453E+00_JPRB &
+  &, 0.751720E+00_JPRB, 0.736024E+00_JPRB, 0.720374E+00_JPRB, 0.704634E+00_JPRB &
+  &, 0.689160E+00_JPRB, 0.673636E+00_JPRB, 0.658184E+00_JPRB &
+  &, 0.642840E+00_JPRB, 0.627545E+00_JPRB, 0.612397E+00_JPRB, 0.597333E+00_JPRB &
+  &, 0.582386E+00_JPRB, 0.567592E+00_JPRB, 0.552913E+00_JPRB &
+  &, 0.538419E+00_JPRB, 0.524036E+00_JPRB, 0.509831E+00_JPRB, 0.495800E+00_JPRB &
+  &, 0.481975E+00_JPRB, 0.468312E+00_JPRB, 0.454800E+00_JPRB &
+  &, 0.441550E+00_JPRB, 0.428430E+00_JPRB, 0.415552E+00_JPRB, 0.402903E+00_JPRB &
+  &, 0.390427E+00_JPRB, 0.378194E+00_JPRB, 0.366190E+00_JPRB &
+  &, 0.354396E+00_JPRB, 0.342839E+00_JPRB, 0.331500E+00_JPRB, 0.320402E+00_JPRB &
+  &, 0.309525E+00_JPRB, 0.298892E+00_JPRB, 0.288528E+00_JPRB &
+  &, 0.278358E+00_JPRB, 0.268403E+00_JPRB, 0.258736E+00_JPRB, 0.249277E+00_JPRB &
+  &, 0.240099E+00_JPRB, 0.231118E+00_JPRB, 0.222352E+00_JPRB &
+  &, 0.213876E+00_JPRB, 0.205599E+00_JPRB, 0.197539E+00_JPRB, 0.189713E+00_JPRB &
+  &, 0.182139E+00_JPRB, 0.174778E+00_JPRB, 0.167584E+00_JPRB &
+  &, 0.160694E+00_JPRB, 0.154004E+00_JPRB, 0.147466E+00_JPRB, 0.141219E+00_JPRB &
+  &, 0.135089E+00_JPRB, 0.129215E+00_JPRB, 0.123547E+00_JPRB/)
+XCW( 725, :) = (/ &
+  &  0.105744E+01_JPRB, 0.107105E+01_JPRB, 0.108435E+01_JPRB, 0.109732E+01_JPRB &
+  &, 0.110995E+01_JPRB, 0.112223E+01_JPRB, 0.113416E+01_JPRB &
+  &, 0.114573E+01_JPRB, 0.115692E+01_JPRB, 0.116773E+01_JPRB, 0.117815E+01_JPRB &
+  &, 0.118817E+01_JPRB, 0.119778E+01_JPRB, 0.120698E+01_JPRB &
+  &, 0.121575E+01_JPRB, 0.122410E+01_JPRB, 0.123200E+01_JPRB, 0.123947E+01_JPRB &
+  &, 0.124648E+01_JPRB, 0.125303E+01_JPRB, 0.125912E+01_JPRB &
+  &, 0.126474E+01_JPRB, 0.126987E+01_JPRB, 0.127454E+01_JPRB, 0.127872E+01_JPRB &
+  &, 0.128241E+01_JPRB, 0.128561E+01_JPRB, 0.128831E+01_JPRB &
+  &, 0.129051E+01_JPRB, 0.129220E+01_JPRB, 0.129340E+01_JPRB, 0.129410E+01_JPRB &
+  &, 0.129428E+01_JPRB, 0.129396E+01_JPRB, 0.129314E+01_JPRB &
+  &, 0.129181E+01_JPRB, 0.128998E+01_JPRB, 0.128764E+01_JPRB, 0.128482E+01_JPRB &
+  &, 0.128150E+01_JPRB, 0.127768E+01_JPRB, 0.127338E+01_JPRB &
+  &, 0.126860E+01_JPRB, 0.126334E+01_JPRB, 0.125761E+01_JPRB, 0.125141E+01_JPRB &
+  &, 0.124477E+01_JPRB, 0.123766E+01_JPRB, 0.123011E+01_JPRB &
+  &, 0.122213E+01_JPRB, 0.121373E+01_JPRB, 0.120491E+01_JPRB, 0.119568E+01_JPRB &
+  &, 0.118606E+01_JPRB, 0.117605E+01_JPRB, 0.116567E+01_JPRB &
+  &, 0.115492E+01_JPRB, 0.114382E+01_JPRB, 0.113237E+01_JPRB, 0.112060E+01_JPRB &
+  &, 0.110852E+01_JPRB, 0.109613E+01_JPRB, 0.108343E+01_JPRB &
+  &, 0.107048E+01_JPRB, 0.105724E+01_JPRB, 0.104376E+01_JPRB, 0.103003E+01_JPRB &
+  &, 0.101610E+01_JPRB, 0.100193E+01_JPRB, 0.987556E+00_JPRB &
+  &, 0.973016E+00_JPRB, 0.958299E+00_JPRB, 0.943419E+00_JPRB, 0.928411E+00_JPRB &
+  &, 0.913243E+00_JPRB, 0.897972E+00_JPRB, 0.882611E+00_JPRB &
+  &, 0.867150E+00_JPRB, 0.851600E+00_JPRB, 0.835996E+00_JPRB, 0.820351E+00_JPRB &
+  &, 0.804649E+00_JPRB, 0.788926E+00_JPRB, 0.773219E+00_JPRB &
+  &, 0.757484E+00_JPRB, 0.741755E+00_JPRB, 0.726069E+00_JPRB, 0.710405E+00_JPRB &
+  &, 0.694799E+00_JPRB, 0.679256E+00_JPRB, 0.663782E+00_JPRB &
+  &, 0.648382E+00_JPRB, 0.633057E+00_JPRB, 0.617843E+00_JPRB, 0.602742E+00_JPRB &
+  &, 0.587755E+00_JPRB, 0.572915E+00_JPRB, 0.558188E+00_JPRB &
+  &, 0.543642E+00_JPRB, 0.529203E+00_JPRB, 0.514974E+00_JPRB, 0.500880E+00_JPRB &
+  &, 0.486948E+00_JPRB, 0.473212E+00_JPRB, 0.459702E+00_JPRB &
+  &, 0.446331E+00_JPRB, 0.433167E+00_JPRB, 0.420240E+00_JPRB, 0.407497E+00_JPRB &
+  &, 0.394966E+00_JPRB, 0.382675E+00_JPRB, 0.370564E+00_JPRB &
+  &, 0.358704E+00_JPRB, 0.347077E+00_JPRB, 0.335663E+00_JPRB, 0.324489E+00_JPRB &
+  &, 0.313530E+00_JPRB, 0.302813E+00_JPRB, 0.292360E+00_JPRB &
+  &, 0.282097E+00_JPRB, 0.272096E+00_JPRB, 0.262329E+00_JPRB, 0.252819E+00_JPRB &
+  &, 0.243534E+00_JPRB, 0.234441E+00_JPRB, 0.225668E+00_JPRB &
+  &, 0.217074E+00_JPRB, 0.208730E+00_JPRB, 0.200600E+00_JPRB, 0.192702E+00_JPRB &
+  &, 0.184995E+00_JPRB, 0.177555E+00_JPRB, 0.170339E+00_JPRB &
+  &, 0.163365E+00_JPRB, 0.156588E+00_JPRB, 0.149960E+00_JPRB, 0.143620E+00_JPRB &
+  &, 0.137457E+00_JPRB, 0.131550E+00_JPRB, 0.125781E+00_JPRB/)
+XCW( 726, :) = (/ &
+  &  0.105775E+01_JPRB, 0.107145E+01_JPRB, 0.108482E+01_JPRB, 0.109788E+01_JPRB &
+  &, 0.111059E+01_JPRB, 0.112296E+01_JPRB, 0.113498E+01_JPRB &
+  &, 0.114663E+01_JPRB, 0.115791E+01_JPRB, 0.116881E+01_JPRB, 0.117932E+01_JPRB &
+  &, 0.118943E+01_JPRB, 0.119914E+01_JPRB, 0.120843E+01_JPRB &
+  &, 0.121730E+01_JPRB, 0.122574E+01_JPRB, 0.123374E+01_JPRB, 0.124130E+01_JPRB &
+  &, 0.124840E+01_JPRB, 0.125505E+01_JPRB, 0.126124E+01_JPRB &
+  &, 0.126695E+01_JPRB, 0.127219E+01_JPRB, 0.127695E+01_JPRB, 0.128123E+01_JPRB &
+  &, 0.128501E+01_JPRB, 0.128830E+01_JPRB, 0.129110E+01_JPRB &
+  &, 0.129340E+01_JPRB, 0.129519E+01_JPRB, 0.129648E+01_JPRB, 0.129727E+01_JPRB &
+  &, 0.129755E+01_JPRB, 0.129733E+01_JPRB, 0.129660E+01_JPRB &
+  &, 0.129536E+01_JPRB, 0.129362E+01_JPRB, 0.129138E+01_JPRB, 0.128865E+01_JPRB &
+  &, 0.128541E+01_JPRB, 0.128168E+01_JPRB, 0.127747E+01_JPRB &
+  &, 0.127277E+01_JPRB, 0.126760E+01_JPRB, 0.126195E+01_JPRB, 0.125584E+01_JPRB &
+  &, 0.124926E+01_JPRB, 0.124224E+01_JPRB, 0.123477E+01_JPRB &
+  &, 0.122686E+01_JPRB, 0.121851E+01_JPRB, 0.120978E+01_JPRB, 0.120062E+01_JPRB &
+  &, 0.119102E+01_JPRB, 0.118112E+01_JPRB, 0.117080E+01_JPRB &
+  &, 0.116011E+01_JPRB, 0.114907E+01_JPRB, 0.113768E+01_JPRB, 0.112596E+01_JPRB &
+  &, 0.111392E+01_JPRB, 0.110158E+01_JPRB, 0.108893E+01_JPRB &
+  &, 0.107601E+01_JPRB, 0.106283E+01_JPRB, 0.104939E+01_JPRB, 0.103569E+01_JPRB &
+  &, 0.102178E+01_JPRB, 0.100765E+01_JPRB, 0.993297E+00_JPRB &
+  &, 0.978773E+00_JPRB, 0.964091E+00_JPRB, 0.949223E+00_JPRB, 0.934223E+00_JPRB &
+  &, 0.919082E+00_JPRB, 0.903814E+00_JPRB, 0.888453E+00_JPRB &
+  &, 0.872988E+00_JPRB, 0.857454E+00_JPRB, 0.841840E+00_JPRB, 0.826181E+00_JPRB &
+  &, 0.810487E+00_JPRB, 0.794770E+00_JPRB, 0.779012E+00_JPRB &
+  &, 0.763276E+00_JPRB, 0.747544E+00_JPRB, 0.731822E+00_JPRB, 0.716148E+00_JPRB &
+  &, 0.700498E+00_JPRB, 0.684907E+00_JPRB, 0.669412E+00_JPRB &
+  &, 0.653955E+00_JPRB, 0.638634E+00_JPRB, 0.623355E+00_JPRB, 0.608218E+00_JPRB &
+  &, 0.593191E+00_JPRB, 0.578308E+00_JPRB, 0.563534E+00_JPRB &
+  &, 0.548901E+00_JPRB, 0.534442E+00_JPRB, 0.520118E+00_JPRB, 0.505959E+00_JPRB &
+  &, 0.491998E+00_JPRB, 0.478229E+00_JPRB, 0.464604E+00_JPRB &
+  &, 0.451192E+00_JPRB, 0.437984E+00_JPRB, 0.424970E+00_JPRB, 0.412134E+00_JPRB &
+  &, 0.399548E+00_JPRB, 0.387155E+00_JPRB, 0.374673E+00_JPRB &
+  &, 0.363056E+00_JPRB, 0.351360E+00_JPRB, 0.339874E+00_JPRB, 0.328622E+00_JPRB &
+  &, 0.317584E+00_JPRB, 0.306782E+00_JPRB, 0.296241E+00_JPRB &
+  &, 0.285936E+00_JPRB, 0.275840E+00_JPRB, 0.265974E+00_JPRB, 0.256360E+00_JPRB &
+  &, 0.247021E+00_JPRB, 0.237871E+00_JPRB, 0.228984E+00_JPRB &
+  &, 0.220327E+00_JPRB, 0.211861E+00_JPRB, 0.203662E+00_JPRB, 0.195691E+00_JPRB &
+  &, 0.187968E+00_JPRB, 0.180450E+00_JPRB, 0.173154E+00_JPRB &
+  &, 0.166036E+00_JPRB, 0.159172E+00_JPRB, 0.152517E+00_JPRB, 0.146084E+00_JPRB &
+  &, 0.139890E+00_JPRB, 0.133820E+00_JPRB, 0.128015E+00_JPRB/)
+XCW( 727, :) = (/ &
+  &  0.105806E+01_JPRB, 0.107184E+01_JPRB, 0.108530E+01_JPRB, 0.109844E+01_JPRB &
+  &, 0.111124E+01_JPRB, 0.112370E+01_JPRB, 0.113580E+01_JPRB &
+  &, 0.114754E+01_JPRB, 0.115891E+01_JPRB, 0.116990E+01_JPRB, 0.118049E+01_JPRB &
+  &, 0.119070E+01_JPRB, 0.120050E+01_JPRB, 0.120989E+01_JPRB &
+  &, 0.121885E+01_JPRB, 0.122738E+01_JPRB, 0.123548E+01_JPRB, 0.124313E+01_JPRB &
+  &, 0.125034E+01_JPRB, 0.125708E+01_JPRB, 0.126336E+01_JPRB &
+  &, 0.126917E+01_JPRB, 0.127451E+01_JPRB, 0.127937E+01_JPRB, 0.128374E+01_JPRB &
+  &, 0.128762E+01_JPRB, 0.129101E+01_JPRB, 0.129391E+01_JPRB &
+  &, 0.129630E+01_JPRB, 0.129819E+01_JPRB, 0.129958E+01_JPRB, 0.130046E+01_JPRB &
+  &, 0.130084E+01_JPRB, 0.130071E+01_JPRB, 0.130007E+01_JPRB &
+  &, 0.129893E+01_JPRB, 0.129728E+01_JPRB, 0.129513E+01_JPRB, 0.129248E+01_JPRB &
+  &, 0.128933E+01_JPRB, 0.128570E+01_JPRB, 0.128157E+01_JPRB &
+  &, 0.127696E+01_JPRB, 0.127187E+01_JPRB, 0.126630E+01_JPRB, 0.126027E+01_JPRB &
+  &, 0.125377E+01_JPRB, 0.124683E+01_JPRB, 0.123944E+01_JPRB &
+  &, 0.123161E+01_JPRB, 0.122335E+01_JPRB, 0.121467E+01_JPRB, 0.120557E+01_JPRB &
+  &, 0.119609E+01_JPRB, 0.118621E+01_JPRB, 0.117595E+01_JPRB &
+  &, 0.116532E+01_JPRB, 0.115435E+01_JPRB, 0.114302E+01_JPRB, 0.113134E+01_JPRB &
+  &, 0.111935E+01_JPRB, 0.110706E+01_JPRB, 0.109447E+01_JPRB &
+  &, 0.108159E+01_JPRB, 0.106843E+01_JPRB, 0.105504E+01_JPRB, 0.104138E+01_JPRB &
+  &, 0.102750E+01_JPRB, 0.101339E+01_JPRB, 0.999079E+00_JPRB &
+  &, 0.984572E+00_JPRB, 0.969905E+00_JPRB, 0.955070E+00_JPRB, 0.940079E+00_JPRB &
+  &, 0.924945E+00_JPRB, 0.909703E+00_JPRB, 0.894342E+00_JPRB &
+  &, 0.878873E+00_JPRB, 0.863334E+00_JPRB, 0.847735E+00_JPRB, 0.832062E+00_JPRB &
+  &, 0.816352E+00_JPRB, 0.800615E+00_JPRB, 0.784860E+00_JPRB &
+  &, 0.769096E+00_JPRB, 0.753361E+00_JPRB, 0.737604E+00_JPRB, 0.721920E+00_JPRB &
+  &, 0.706226E+00_JPRB, 0.690619E+00_JPRB, 0.675072E+00_JPRB &
+  &, 0.659623E+00_JPRB, 0.644210E+00_JPRB, 0.628933E+00_JPRB, 0.613728E+00_JPRB &
+  &, 0.598662E+00_JPRB, 0.583736E+00_JPRB, 0.568915E+00_JPRB &
+  &, 0.554232E+00_JPRB, 0.539718E+00_JPRB, 0.525335E+00_JPRB, 0.511114E+00_JPRB &
+  &, 0.497086E+00_JPRB, 0.483245E+00_JPRB, 0.469584E+00_JPRB &
+  &, 0.456094E+00_JPRB, 0.442802E+00_JPRB, 0.429699E+00_JPRB, 0.416855E+00_JPRB &
+  &, 0.404173E+00_JPRB, 0.391723E+00_JPRB, 0.379489E+00_JPRB &
+  &, 0.367453E+00_JPRB, 0.355689E+00_JPRB, 0.344130E+00_JPRB, 0.332803E+00_JPRB &
+  &, 0.321684E+00_JPRB, 0.310799E+00_JPRB, 0.300171E+00_JPRB &
+  &, 0.289775E+00_JPRB, 0.279634E+00_JPRB, 0.269670E+00_JPRB, 0.260006E+00_JPRB &
+  &, 0.250561E+00_JPRB, 0.241355E+00_JPRB, 0.232355E+00_JPRB &
+  &, 0.223580E+00_JPRB, 0.215104E+00_JPRB, 0.206780E+00_JPRB, 0.198738E+00_JPRB &
+  &, 0.190940E+00_JPRB, 0.183345E+00_JPRB, 0.175969E+00_JPRB &
+  &, 0.168768E+00_JPRB, 0.161879E+00_JPRB, 0.155135E+00_JPRB, 0.148612E+00_JPRB &
+  &, 0.142323E+00_JPRB, 0.136220E+00_JPRB, 0.130315E+00_JPRB/)
+XCW( 728, :) = (/ &
+  &  0.105837E+01_JPRB, 0.107223E+01_JPRB, 0.108578E+01_JPRB, 0.109900E+01_JPRB &
+  &, 0.111188E+01_JPRB, 0.112443E+01_JPRB, 0.113662E+01_JPRB &
+  &, 0.114845E+01_JPRB, 0.115991E+01_JPRB, 0.117099E+01_JPRB, 0.118168E+01_JPRB &
+  &, 0.119198E+01_JPRB, 0.120187E+01_JPRB, 0.121135E+01_JPRB &
+  &, 0.122040E+01_JPRB, 0.122903E+01_JPRB, 0.123722E+01_JPRB, 0.124497E+01_JPRB &
+  &, 0.125227E+01_JPRB, 0.125911E+01_JPRB, 0.126549E+01_JPRB &
+  &, 0.127140E+01_JPRB, 0.127683E+01_JPRB, 0.128179E+01_JPRB, 0.128626E+01_JPRB &
+  &, 0.129024E+01_JPRB, 0.129373E+01_JPRB, 0.129672E+01_JPRB &
+  &, 0.129921E+01_JPRB, 0.130120E+01_JPRB, 0.130268E+01_JPRB, 0.130366E+01_JPRB &
+  &, 0.130413E+01_JPRB, 0.130409E+01_JPRB, 0.130355E+01_JPRB &
+  &, 0.130250E+01_JPRB, 0.130094E+01_JPRB, 0.129889E+01_JPRB, 0.129634E+01_JPRB &
+  &, 0.129328E+01_JPRB, 0.128972E+01_JPRB, 0.128535E+01_JPRB &
+  &, 0.128116E+01_JPRB, 0.127616E+01_JPRB, 0.127067E+01_JPRB, 0.126472E+01_JPRB &
+  &, 0.125830E+01_JPRB, 0.125144E+01_JPRB, 0.124413E+01_JPRB &
+  &, 0.123638E+01_JPRB, 0.122819E+01_JPRB, 0.121958E+01_JPRB, 0.121056E+01_JPRB &
+  &, 0.120115E+01_JPRB, 0.119133E+01_JPRB, 0.118113E+01_JPRB &
+  &, 0.117056E+01_JPRB, 0.115964E+01_JPRB, 0.114837E+01_JPRB, 0.113675E+01_JPRB &
+  &, 0.112482E+01_JPRB, 0.111257E+01_JPRB, 0.110003E+01_JPRB &
+  &, 0.108719E+01_JPRB, 0.107409E+01_JPRB, 0.106071E+01_JPRB, 0.104710E+01_JPRB &
+  &, 0.103324E+01_JPRB, 0.101917E+01_JPRB, 0.100488E+01_JPRB &
+  &, 0.990413E+00_JPRB, 0.975762E+00_JPRB, 0.960939E+00_JPRB, 0.945958E+00_JPRB &
+  &, 0.930853E+00_JPRB, 0.915615E+00_JPRB, 0.900254E+00_JPRB &
+  &, 0.884808E+00_JPRB, 0.869263E+00_JPRB, 0.853655E+00_JPRB, 0.837996E+00_JPRB &
+  &, 0.822270E+00_JPRB, 0.806540E+00_JPRB, 0.790762E+00_JPRB &
+  &, 0.774972E+00_JPRB, 0.759206E+00_JPRB, 0.743443E+00_JPRB, 0.727721E+00_JPRB &
+  &, 0.712015E+00_JPRB, 0.696392E+00_JPRB, 0.680795E+00_JPRB &
+  &, 0.665291E+00_JPRB, 0.649883E+00_JPRB, 0.634543E+00_JPRB, 0.619304E+00_JPRB &
+  &, 0.604200E+00_JPRB, 0.589198E+00_JPRB, 0.574331E+00_JPRB &
+  &, 0.559598E+00_JPRB, 0.545031E+00_JPRB, 0.530590E+00_JPRB, 0.516344E+00_JPRB &
+  &, 0.502250E+00_JPRB, 0.488301E+00_JPRB, 0.474565E+00_JPRB &
+  &, 0.461035E+00_JPRB, 0.447702E+00_JPRB, 0.434512E+00_JPRB, 0.421576E+00_JPRB &
+  &, 0.408841E+00_JPRB, 0.396334E+00_JPRB, 0.383995E+00_JPRB &
+  &, 0.371896E+00_JPRB, 0.360063E+00_JPRB, 0.348433E+00_JPRB, 0.336983E+00_JPRB &
+  &, 0.325833E+00_JPRB, 0.314865E+00_JPRB, 0.304150E+00_JPRB &
+  &, 0.293664E+00_JPRB, 0.283429E+00_JPRB, 0.273418E+00_JPRB, 0.263652E+00_JPRB &
+  &, 0.254154E+00_JPRB, 0.244839E+00_JPRB, 0.235780E+00_JPRB &
+  &, 0.226943E+00_JPRB, 0.218347E+00_JPRB, 0.210012E+00_JPRB, 0.201842E+00_JPRB &
+  &, 0.193971E+00_JPRB, 0.186240E+00_JPRB, 0.178784E+00_JPRB &
+  &, 0.171560E+00_JPRB, 0.164586E+00_JPRB, 0.157754E+00_JPRB, 0.151202E+00_JPRB &
+  &, 0.144820E+00_JPRB, 0.138620E+00_JPRB, 0.132681E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART104',1,ZHOOK_HANDLE)
+END SUBROUTINE PART104
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART105
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART105',0,ZHOOK_HANDLE)
+
+XCW( 729, :) = (/ &
+  &  0.105869E+01_JPRB, 0.107263E+01_JPRB, 0.108626E+01_JPRB, 0.109956E+01_JPRB &
+  &, 0.111253E+01_JPRB, 0.112516E+01_JPRB, 0.113744E+01_JPRB &
+  &, 0.114936E+01_JPRB, 0.116091E+01_JPRB, 0.117208E+01_JPRB, 0.118287E+01_JPRB &
+  &, 0.119325E+01_JPRB, 0.120324E+01_JPRB, 0.121281E+01_JPRB &
+  &, 0.122196E+01_JPRB, 0.123069E+01_JPRB, 0.123897E+01_JPRB, 0.124682E+01_JPRB &
+  &, 0.125421E+01_JPRB, 0.126115E+01_JPRB, 0.126763E+01_JPRB &
+  &, 0.127363E+01_JPRB, 0.127917E+01_JPRB, 0.128422E+01_JPRB, 0.128878E+01_JPRB &
+  &, 0.129287E+01_JPRB, 0.129645E+01_JPRB, 0.129954E+01_JPRB &
+  &, 0.130213E+01_JPRB, 0.130421E+01_JPRB, 0.130579E+01_JPRB, 0.130687E+01_JPRB &
+  &, 0.130744E+01_JPRB, 0.130750E+01_JPRB, 0.130705E+01_JPRB &
+  &, 0.130609E+01_JPRB, 0.130464E+01_JPRB, 0.130266E+01_JPRB, 0.130020E+01_JPRB &
+  &, 0.129724E+01_JPRB, 0.129377E+01_JPRB, 0.128982E+01_JPRB &
+  &, 0.128539E+01_JPRB, 0.128046E+01_JPRB, 0.127507E+01_JPRB, 0.126920E+01_JPRB &
+  &, 0.126286E+01_JPRB, 0.125607E+01_JPRB, 0.124884E+01_JPRB &
+  &, 0.124116E+01_JPRB, 0.123306E+01_JPRB, 0.122451E+01_JPRB, 0.121557E+01_JPRB &
+  &, 0.120622E+01_JPRB, 0.119646E+01_JPRB, 0.118634E+01_JPRB &
+  &, 0.117583E+01_JPRB, 0.116497E+01_JPRB, 0.115374E+01_JPRB, 0.114219E+01_JPRB &
+  &, 0.113032E+01_JPRB, 0.111811E+01_JPRB, 0.110560E+01_JPRB &
+  &, 0.109282E+01_JPRB, 0.107976E+01_JPRB, 0.106643E+01_JPRB, 0.105285E+01_JPRB &
+  &, 0.103904E+01_JPRB, 0.102498E+01_JPRB, 0.101073E+01_JPRB &
+  &, 0.996276E+00_JPRB, 0.981662E+00_JPRB, 0.966852E+00_JPRB, 0.951904E+00_JPRB &
+  &, 0.936784E+00_JPRB, 0.921574E+00_JPRB, 0.906215E+00_JPRB &
+  &, 0.890767E+00_JPRB, 0.875241E+00_JPRB, 0.859626E+00_JPRB, 0.843955E+00_JPRB &
+  &, 0.828240E+00_JPRB, 0.812465E+00_JPRB, 0.796692E+00_JPRB &
+  &, 0.780904E+00_JPRB, 0.765108E+00_JPRB, 0.749312E+00_JPRB, 0.733581E+00_JPRB &
+  &, 0.717864E+00_JPRB, 0.702195E+00_JPRB, 0.686580E+00_JPRB &
+  &, 0.671022E+00_JPRB, 0.655557E+00_JPRB, 0.640186E+00_JPRB, 0.624914E+00_JPRB &
+  &, 0.609772E+00_JPRB, 0.594695E+00_JPRB, 0.579783E+00_JPRB &
+  &, 0.564964E+00_JPRB, 0.550379E+00_JPRB, 0.535918E+00_JPRB, 0.521574E+00_JPRB &
+  &, 0.507414E+00_JPRB, 0.493434E+00_JPRB, 0.479665E+00_JPRB &
+  &, 0.466017E+00_JPRB, 0.452601E+00_JPRB, 0.439407E+00_JPRB, 0.426381E+00_JPRB &
+  &, 0.413551E+00_JPRB, 0.400988E+00_JPRB, 0.388590E+00_JPRB &
+  &, 0.376428E+00_JPRB, 0.364483E+00_JPRB, 0.352782E+00_JPRB, 0.341258E+00_JPRB &
+  &, 0.330029E+00_JPRB, 0.318979E+00_JPRB, 0.308178E+00_JPRB &
+  &, 0.297652E+00_JPRB, 0.287324E+00_JPRB, 0.277216E+00_JPRB, 0.267350E+00_JPRB &
+  &, 0.257747E+00_JPRB, 0.248376E+00_JPRB, 0.239259E+00_JPRB &
+  &, 0.230306E+00_JPRB, 0.221646E+00_JPRB, 0.213187E+00_JPRB, 0.205004E+00_JPRB &
+  &, 0.197001E+00_JPRB, 0.189253E+00_JPRB, 0.181719E+00_JPRB &
+  &, 0.174414E+00_JPRB, 0.167294E+00_JPRB, 0.160435E+00_JPRB, 0.153792E+00_JPRB &
+  &, 0.147316E+00_JPRB, 0.141084E+00_JPRB, 0.135046E+00_JPRB/)
+XCW( 730, :) = (/ &
+  &  0.105900E+01_JPRB, 0.107302E+01_JPRB, 0.108674E+01_JPRB, 0.110012E+01_JPRB &
+  &, 0.111318E+01_JPRB, 0.112590E+01_JPRB, 0.113827E+01_JPRB &
+  &, 0.115028E+01_JPRB, 0.116191E+01_JPRB, 0.117318E+01_JPRB, 0.118405E+01_JPRB &
+  &, 0.119453E+01_JPRB, 0.120461E+01_JPRB, 0.121428E+01_JPRB &
+  &, 0.122352E+01_JPRB, 0.123234E+01_JPRB, 0.124073E+01_JPRB, 0.124867E+01_JPRB &
+  &, 0.125616E+01_JPRB, 0.126320E+01_JPRB, 0.126977E+01_JPRB &
+  &, 0.127588E+01_JPRB, 0.128151E+01_JPRB, 0.128666E+01_JPRB, 0.129132E+01_JPRB &
+  &, 0.129550E+01_JPRB, 0.129918E+01_JPRB, 0.130237E+01_JPRB &
+  &, 0.130506E+01_JPRB, 0.130724E+01_JPRB, 0.130892E+01_JPRB, 0.131009E+01_JPRB &
+  &, 0.131075E+01_JPRB, 0.131091E+01_JPRB, 0.131056E+01_JPRB &
+  &, 0.130970E+01_JPRB, 0.130833E+01_JPRB, 0.130646E+01_JPRB, 0.130409E+01_JPRB &
+  &, 0.130120E+01_JPRB, 0.129784E+01_JPRB, 0.129397E+01_JPRB &
+  &, 0.128962E+01_JPRB, 0.128478E+01_JPRB, 0.127948E+01_JPRB, 0.127369E+01_JPRB &
+  &, 0.126744E+01_JPRB, 0.126073E+01_JPRB, 0.125357E+01_JPRB &
+  &, 0.124597E+01_JPRB, 0.123793E+01_JPRB, 0.122948E+01_JPRB, 0.122059E+01_JPRB &
+  &, 0.121132E+01_JPRB, 0.120163E+01_JPRB, 0.119156E+01_JPRB &
+  &, 0.118113E+01_JPRB, 0.117032E+01_JPRB, 0.115916E+01_JPRB, 0.114765E+01_JPRB &
+  &, 0.113583E+01_JPRB, 0.112368E+01_JPRB, 0.111123E+01_JPRB &
+  &, 0.109848E+01_JPRB, 0.108546E+01_JPRB, 0.107218E+01_JPRB, 0.105862E+01_JPRB &
+  &, 0.104483E+01_JPRB, 0.103084E+01_JPRB, 0.101661E+01_JPRB &
+  &, 0.100218E+01_JPRB, 0.987583E+00_JPRB, 0.972788E+00_JPRB, 0.957850E+00_JPRB &
+  &, 0.942761E+00_JPRB, 0.927556E+00_JPRB, 0.912223E+00_JPRB &
+  &, 0.896774E+00_JPRB, 0.881245E+00_JPRB, 0.865647E+00_JPRB, 0.849966E+00_JPRB &
+  &, 0.834237E+00_JPRB, 0.818471E+00_JPRB, 0.802676E+00_JPRB &
+  &, 0.786863E+00_JPRB, 0.771038E+00_JPRB, 0.755238E+00_JPRB, 0.739470E+00_JPRB &
+  &, 0.723712E+00_JPRB, 0.708029E+00_JPRB, 0.692334E+00_JPRB &
+  &, 0.676817E+00_JPRB, 0.661294E+00_JPRB, 0.645895E+00_JPRB, 0.630590E+00_JPRB &
+  &, 0.615379E+00_JPRB, 0.600295E+00_JPRB, 0.585304E+00_JPRB &
+  &, 0.570473E+00_JPRB, 0.555801E+00_JPRB, 0.541246E+00_JPRB, 0.526879E+00_JPRB &
+  &, 0.512655E+00_JPRB, 0.498645E+00_JPRB, 0.484764E+00_JPRB &
+  &, 0.471079E+00_JPRB, 0.457583E+00_JPRB, 0.444303E+00_JPRB, 0.431229E+00_JPRB &
+  &, 0.418347E+00_JPRB, 0.405686E+00_JPRB, 0.393229E+00_JPRB &
+  &, 0.380959E+00_JPRB, 0.368948E+00_JPRB, 0.357177E+00_JPRB, 0.345579E+00_JPRB &
+  &, 0.334273E+00_JPRB, 0.323141E+00_JPRB, 0.312256E+00_JPRB &
+  &, 0.301641E+00_JPRB, 0.291220E+00_JPRB, 0.281066E+00_JPRB, 0.271152E+00_JPRB &
+  &, 0.261445E+00_JPRB, 0.251967E+00_JPRB, 0.242738E+00_JPRB &
+  &, 0.233779E+00_JPRB, 0.225000E+00_JPRB, 0.216475E+00_JPRB, 0.208166E+00_JPRB &
+  &, 0.200032E+00_JPRB, 0.192266E+00_JPRB, 0.184653E+00_JPRB &
+  &, 0.177267E+00_JPRB, 0.170124E+00_JPRB, 0.163178E+00_JPRB, 0.156383E+00_JPRB &
+  &, 0.149877E+00_JPRB, 0.143549E+00_JPRB, 0.137478E+00_JPRB/)
+XCW( 731, :) = (/ &
+  &  0.105932E+01_JPRB, 0.107342E+01_JPRB, 0.108722E+01_JPRB, 0.110069E+01_JPRB &
+  &, 0.111383E+01_JPRB, 0.112664E+01_JPRB, 0.113909E+01_JPRB &
+  &, 0.115119E+01_JPRB, 0.116292E+01_JPRB, 0.117427E+01_JPRB, 0.118524E+01_JPRB &
+  &, 0.119582E+01_JPRB, 0.120599E+01_JPRB, 0.121575E+01_JPRB &
+  &, 0.122509E+01_JPRB, 0.123401E+01_JPRB, 0.124249E+01_JPRB, 0.125053E+01_JPRB &
+  &, 0.125812E+01_JPRB, 0.126525E+01_JPRB, 0.127192E+01_JPRB &
+  &, 0.127812E+01_JPRB, 0.128386E+01_JPRB, 0.128910E+01_JPRB, 0.129387E+01_JPRB &
+  &, 0.129814E+01_JPRB, 0.130193E+01_JPRB, 0.130521E+01_JPRB &
+  &, 0.130800E+01_JPRB, 0.131028E+01_JPRB, 0.131205E+01_JPRB, 0.131332E+01_JPRB &
+  &, 0.131408E+01_JPRB, 0.131434E+01_JPRB, 0.131408E+01_JPRB &
+  &, 0.131328E+01_JPRB, 0.131204E+01_JPRB, 0.131026E+01_JPRB, 0.130798E+01_JPRB &
+  &, 0.130519E+01_JPRB, 0.130192E+01_JPRB, 0.129814E+01_JPRB &
+  &, 0.129388E+01_JPRB, 0.128913E+01_JPRB, 0.128390E+01_JPRB, 0.127820E+01_JPRB &
+  &, 0.127204E+01_JPRB, 0.126540E+01_JPRB, 0.125833E+01_JPRB &
+  &, 0.125080E+01_JPRB, 0.124284E+01_JPRB, 0.123445E+01_JPRB, 0.122565E+01_JPRB &
+  &, 0.121643E+01_JPRB, 0.120682E+01_JPRB, 0.119682E+01_JPRB &
+  &, 0.118644E+01_JPRB, 0.117569E+01_JPRB, 0.116460E+01_JPRB, 0.115315E+01_JPRB &
+  &, 0.114137E+01_JPRB, 0.112927E+01_JPRB, 0.111687E+01_JPRB &
+  &, 0.110418E+01_JPRB, 0.109119E+01_JPRB, 0.107794E+01_JPRB, 0.106444E+01_JPRB &
+  &, 0.105069E+01_JPRB, 0.103672E+01_JPRB, 0.102252E+01_JPRB &
+  &, 0.100813E+01_JPRB, 0.993547E+00_JPRB, 0.978789E+00_JPRB, 0.963863E+00_JPRB &
+  &, 0.948784E+00_JPRB, 0.933585E+00_JPRB, 0.918255E+00_JPRB &
+  &, 0.902830E+00_JPRB, 0.887298E+00_JPRB, 0.871693E+00_JPRB, 0.856002E+00_JPRB &
+  &, 0.840260E+00_JPRB, 0.824503E+00_JPRB, 0.808688E+00_JPRB &
+  &, 0.792850E+00_JPRB, 0.777025E+00_JPRB, 0.761222E+00_JPRB, 0.745419E+00_JPRB &
+  &, 0.729651E+00_JPRB, 0.713924E+00_JPRB, 0.698243E+00_JPRB &
+  &, 0.682643E+00_JPRB, 0.667096E+00_JPRB, 0.651637E+00_JPRB, 0.636300E+00_JPRB &
+  &, 0.621019E+00_JPRB, 0.605896E+00_JPRB, 0.590896E+00_JPRB &
+  &, 0.576018E+00_JPRB, 0.561259E+00_JPRB, 0.546612E+00_JPRB, 0.532222E+00_JPRB &
+  &, 0.517973E+00_JPRB, 0.503856E+00_JPRB, 0.489942E+00_JPRB &
+  &, 0.476182E+00_JPRB, 0.462645E+00_JPRB, 0.449281E+00_JPRB, 0.436119E+00_JPRB &
+  &, 0.423144E+00_JPRB, 0.410427E+00_JPRB, 0.397868E+00_JPRB &
+  &, 0.385581E+00_JPRB, 0.373459E+00_JPRB, 0.361618E+00_JPRB, 0.349947E+00_JPRB &
+  &, 0.338564E+00_JPRB, 0.327352E+00_JPRB, 0.316431E+00_JPRB &
+  &, 0.305679E+00_JPRB, 0.295217E+00_JPRB, 0.284968E+00_JPRB, 0.274954E+00_JPRB &
+  &, 0.265144E+00_JPRB, 0.255612E+00_JPRB, 0.246326E+00_JPRB &
+  &, 0.237253E+00_JPRB, 0.228411E+00_JPRB, 0.219820E+00_JPRB, 0.211442E+00_JPRB &
+  &, 0.203296E+00_JPRB, 0.195339E+00_JPRB, 0.187648E+00_JPRB &
+  &, 0.180180E+00_JPRB, 0.172954E+00_JPRB, 0.165922E+00_JPRB, 0.159100E+00_JPRB &
+  &, 0.152502E+00_JPRB, 0.146079E+00_JPRB, 0.139909E+00_JPRB/)
+XCW( 732, :) = (/ &
+  &  0.105963E+01_JPRB, 0.107382E+01_JPRB, 0.108770E+01_JPRB, 0.110126E+01_JPRB &
+  &, 0.111449E+01_JPRB, 0.112738E+01_JPRB, 0.113992E+01_JPRB &
+  &, 0.115211E+01_JPRB, 0.116393E+01_JPRB, 0.117537E+01_JPRB, 0.118644E+01_JPRB &
+  &, 0.119710E+01_JPRB, 0.120737E+01_JPRB, 0.121722E+01_JPRB &
+  &, 0.122666E+01_JPRB, 0.123567E+01_JPRB, 0.124425E+01_JPRB, 0.125239E+01_JPRB &
+  &, 0.126008E+01_JPRB, 0.126731E+01_JPRB, 0.127408E+01_JPRB &
+  &, 0.128038E+01_JPRB, 0.128621E+01_JPRB, 0.129156E+01_JPRB, 0.129642E+01_JPRB &
+  &, 0.130079E+01_JPRB, 0.130468E+01_JPRB, 0.130806E+01_JPRB &
+  &, 0.131094E+01_JPRB, 0.131333E+01_JPRB, 0.131520E+01_JPRB, 0.131657E+01_JPRB &
+  &, 0.131742E+01_JPRB, 0.131777E+01_JPRB, 0.131761E+01_JPRB &
+  &, 0.131694E+01_JPRB, 0.131576E+01_JPRB, 0.131408E+01_JPRB, 0.131189E+01_JPRB &
+  &, 0.130920E+01_JPRB, 0.130601E+01_JPRB, 0.130229E+01_JPRB &
+  &, 0.129814E+01_JPRB, 0.129349E+01_JPRB, 0.128834E+01_JPRB, 0.128274E+01_JPRB &
+  &, 0.127664E+01_JPRB, 0.127010E+01_JPRB, 0.126310E+01_JPRB &
+  &, 0.125565E+01_JPRB, 0.124777E+01_JPRB, 0.123946E+01_JPRB, 0.123073E+01_JPRB &
+  &, 0.122158E+01_JPRB, 0.121203E+01_JPRB, 0.120210E+01_JPRB &
+  &, 0.119178E+01_JPRB, 0.118110E+01_JPRB, 0.117006E+01_JPRB, 0.115867E+01_JPRB &
+  &, 0.114695E+01_JPRB, 0.113491E+01_JPRB, 0.112255E+01_JPRB &
+  &, 0.110989E+01_JPRB, 0.109696E+01_JPRB, 0.108376E+01_JPRB, 0.107029E+01_JPRB &
+  &, 0.105657E+01_JPRB, 0.104263E+01_JPRB, 0.102846E+01_JPRB &
+  &, 0.101410E+01_JPRB, 0.999533E+00_JPRB, 0.984812E+00_JPRB, 0.969899E+00_JPRB &
+  &, 0.954852E+00_JPRB, 0.939660E+00_JPRB, 0.924335E+00_JPRB &
+  &, 0.908911E+00_JPRB, 0.893376E+00_JPRB, 0.877765E+00_JPRB, 0.862090E+00_JPRB &
+  &, 0.846361E+00_JPRB, 0.830562E+00_JPRB, 0.814754E+00_JPRB &
+  &, 0.798921E+00_JPRB, 0.783069E+00_JPRB, 0.767235E+00_JPRB, 0.751397E+00_JPRB &
+  &, 0.735619E+00_JPRB, 0.719850E+00_JPRB, 0.704152E+00_JPRB &
+  &, 0.688501E+00_JPRB, 0.672931E+00_JPRB, 0.657444E+00_JPRB, 0.642043E+00_JPRB &
+  &, 0.626761E+00_JPRB, 0.611565E+00_JPRB, 0.596488E+00_JPRB &
+  &, 0.581564E+00_JPRB, 0.566789E+00_JPRB, 0.552125E+00_JPRB, 0.537640E+00_JPRB &
+  &, 0.523290E+00_JPRB, 0.509145E+00_JPRB, 0.495160E+00_JPRB &
+  &, 0.481324E+00_JPRB, 0.467708E+00_JPRB, 0.454302E+00_JPRB, 0.441050E+00_JPRB &
+  &, 0.428025E+00_JPRB, 0.415212E+00_JPRB, 0.402596E+00_JPRB &
+  &, 0.390248E+00_JPRB, 0.378061E+00_JPRB, 0.366106E+00_JPRB, 0.354410E+00_JPRB &
+  &, 0.342904E+00_JPRB, 0.331612E+00_JPRB, 0.320607E+00_JPRB &
+  &, 0.309817E+00_JPRB, 0.299214E+00_JPRB, 0.288921E+00_JPRB, 0.278808E+00_JPRB &
+  &, 0.268948E+00_JPRB, 0.259310E+00_JPRB, 0.249914E+00_JPRB &
+  &, 0.240781E+00_JPRB, 0.231822E+00_JPRB, 0.223165E+00_JPRB, 0.214719E+00_JPRB &
+  &, 0.206501E+00_JPRB, 0.198470E+00_JPRB, 0.190702E+00_JPRB &
+  &, 0.183155E+00_JPRB, 0.175845E+00_JPRB, 0.168728E+00_JPRB, 0.161816E+00_JPRB &
+  &, 0.155126E+00_JPRB, 0.148673E+00_JPRB, 0.142406E+00_JPRB/)
+XCW( 733, :) = (/ &
+  &  0.105995E+01_JPRB, 0.107422E+01_JPRB, 0.108818E+01_JPRB, 0.110182E+01_JPRB &
+  &, 0.111514E+01_JPRB, 0.112812E+01_JPRB, 0.114075E+01_JPRB &
+  &, 0.115303E+01_JPRB, 0.116494E+01_JPRB, 0.117648E+01_JPRB, 0.118763E+01_JPRB &
+  &, 0.119839E+01_JPRB, 0.120875E+01_JPRB, 0.121870E+01_JPRB &
+  &, 0.122824E+01_JPRB, 0.123735E+01_JPRB, 0.124602E+01_JPRB, 0.125425E+01_JPRB &
+  &, 0.126204E+01_JPRB, 0.126937E+01_JPRB, 0.127624E+01_JPRB &
+  &, 0.128264E+01_JPRB, 0.128857E+01_JPRB, 0.129402E+01_JPRB, 0.129898E+01_JPRB &
+  &, 0.130345E+01_JPRB, 0.130744E+01_JPRB, 0.131092E+01_JPRB &
+  &, 0.131390E+01_JPRB, 0.131638E+01_JPRB, 0.131836E+01_JPRB, 0.131982E+01_JPRB &
+  &, 0.132078E+01_JPRB, 0.132122E+01_JPRB, 0.132116E+01_JPRB &
+  &, 0.132058E+01_JPRB, 0.131950E+01_JPRB, 0.131791E+01_JPRB, 0.131582E+01_JPRB &
+  &, 0.131322E+01_JPRB, 0.131012E+01_JPRB, 0.130652E+01_JPRB &
+  &, 0.130244E+01_JPRB, 0.129783E+01_JPRB, 0.129281E+01_JPRB, 0.128728E+01_JPRB &
+  &, 0.128128E+01_JPRB, 0.127482E+01_JPRB, 0.126790E+01_JPRB &
+  &, 0.126053E+01_JPRB, 0.125272E+01_JPRB, 0.124449E+01_JPRB, 0.123582E+01_JPRB &
+  &, 0.122675E+01_JPRB, 0.121726E+01_JPRB, 0.120740E+01_JPRB &
+  &, 0.119715E+01_JPRB, 0.118652E+01_JPRB, 0.117555E+01_JPRB, 0.116422E+01_JPRB &
+  &, 0.115255E+01_JPRB, 0.114055E+01_JPRB, 0.112825E+01_JPRB &
+  &, 0.111565E+01_JPRB, 0.110276E+01_JPRB, 0.108960E+01_JPRB, 0.107617E+01_JPRB &
+  &, 0.106249E+01_JPRB, 0.104859E+01_JPRB, 0.103445E+01_JPRB &
+  &, 0.102011E+01_JPRB, 0.100556E+01_JPRB, 0.990857E+00_JPRB, 0.975980E+00_JPRB &
+  &, 0.960944E+00_JPRB, 0.945759E+00_JPRB, 0.930438E+00_JPRB &
+  &, 0.915040E+00_JPRB, 0.899503E+00_JPRB, 0.883888E+00_JPRB, 0.868023E+00_JPRB &
+  &, 0.852463E+00_JPRB, 0.836675E+00_JPRB, 0.820848E+00_JPRB &
+  &, 0.804991E+00_JPRB, 0.789141E+00_JPRB, 0.773277E+00_JPRB, 0.757433E+00_JPRB &
+  &, 0.741618E+00_JPRB, 0.725836E+00_JPRB, 0.710093E+00_JPRB &
+  &, 0.694422E+00_JPRB, 0.678797E+00_JPRB, 0.663284E+00_JPRB, 0.647853E+00_JPRB &
+  &, 0.632503E+00_JPRB, 0.617270E+00_JPRB, 0.602115E+00_JPRB &
+  &, 0.587180E+00_JPRB, 0.572356E+00_JPRB, 0.557638E+00_JPRB, 0.543095E+00_JPRB &
+  &, 0.528684E+00_JPRB, 0.514473E+00_JPRB, 0.500418E+00_JPRB &
+  &, 0.486547E+00_JPRB, 0.472853E+00_JPRB, 0.459363E+00_JPRB, 0.446067E+00_JPRB &
+  &, 0.432950E+00_JPRB, 0.420084E+00_JPRB, 0.407412E+00_JPRB &
+  &, 0.394914E+00_JPRB, 0.382708E+00_JPRB, 0.370640E+00_JPRB, 0.358872E+00_JPRB &
+  &, 0.347290E+00_JPRB, 0.335920E+00_JPRB, 0.324832E+00_JPRB &
+  &, 0.313955E+00_JPRB, 0.303312E+00_JPRB, 0.292873E+00_JPRB, 0.282714E+00_JPRB &
+  &, 0.272752E+00_JPRB, 0.263062E+00_JPRB, 0.253611E+00_JPRB &
+  &, 0.244365E+00_JPRB, 0.235344E+00_JPRB, 0.226567E+00_JPRB, 0.218053E+00_JPRB &
+  &, 0.209707E+00_JPRB, 0.201661E+00_JPRB, 0.193816E+00_JPRB &
+  &, 0.186130E+00_JPRB, 0.178737E+00_JPRB, 0.171533E+00_JPRB, 0.164596E+00_JPRB &
+  &, 0.157815E+00_JPRB, 0.151268E+00_JPRB, 0.144969E+00_JPRB/)
+XCW( 734, :) = (/ &
+  &  0.106027E+01_JPRB, 0.107462E+01_JPRB, 0.108866E+01_JPRB, 0.110239E+01_JPRB &
+  &, 0.111580E+01_JPRB, 0.112886E+01_JPRB, 0.114159E+01_JPRB &
+  &, 0.115395E+01_JPRB, 0.116595E+01_JPRB, 0.117758E+01_JPRB, 0.118883E+01_JPRB &
+  &, 0.119968E+01_JPRB, 0.121014E+01_JPRB, 0.122019E+01_JPRB &
+  &, 0.122982E+01_JPRB, 0.123902E+01_JPRB, 0.124779E+01_JPRB, 0.125613E+01_JPRB &
+  &, 0.126401E+01_JPRB, 0.127144E+01_JPRB, 0.127841E+01_JPRB &
+  &, 0.128491E+01_JPRB, 0.129094E+01_JPRB, 0.129649E+01_JPRB, 0.130155E+01_JPRB &
+  &, 0.130612E+01_JPRB, 0.131020E+01_JPRB, 0.131379E+01_JPRB &
+  &, 0.131687E+01_JPRB, 0.131945E+01_JPRB, 0.132152E+01_JPRB, 0.132309E+01_JPRB &
+  &, 0.132414E+01_JPRB, 0.132468E+01_JPRB, 0.132472E+01_JPRB &
+  &, 0.132424E+01_JPRB, 0.132325E+01_JPRB, 0.132176E+01_JPRB, 0.131976E+01_JPRB &
+  &, 0.131725E+01_JPRB, 0.131425E+01_JPRB, 0.131075E+01_JPRB &
+  &, 0.130675E+01_JPRB, 0.130227E+01_JPRB, 0.129729E+01_JPRB, 0.129185E+01_JPRB &
+  &, 0.128593E+01_JPRB, 0.127955E+01_JPRB, 0.127271E+01_JPRB &
+  &, 0.126543E+01_JPRB, 0.125769E+01_JPRB, 0.124953E+01_JPRB, 0.124095E+01_JPRB &
+  &, 0.123194E+01_JPRB, 0.122253E+01_JPRB, 0.121273E+01_JPRB &
+  &, 0.120255E+01_JPRB, 0.119199E+01_JPRB, 0.118106E+01_JPRB, 0.116979E+01_JPRB &
+  &, 0.115819E+01_JPRB, 0.114625E+01_JPRB, 0.113398E+01_JPRB &
+  &, 0.112144E+01_JPRB, 0.110859E+01_JPRB, 0.109547E+01_JPRB, 0.108208E+01_JPRB &
+  &, 0.106845E+01_JPRB, 0.105457E+01_JPRB, 0.104046E+01_JPRB &
+  &, 0.102616E+01_JPRB, 0.101163E+01_JPRB, 0.996946E+00_JPRB, 0.982083E+00_JPRB &
+  &, 0.967058E+00_JPRB, 0.951905E+00_JPRB, 0.936613E+00_JPRB &
+  &, 0.921193E+00_JPRB, 0.905680E+00_JPRB, 0.890061E+00_JPRB, 0.874395E+00_JPRB &
+  &, 0.858644E+00_JPRB, 0.842841E+00_JPRB, 0.826996E+00_JPRB &
+  &, 0.811146E+00_JPRB, 0.795270E+00_JPRB, 0.779376E+00_JPRB, 0.763529E+00_JPRB &
+  &, 0.747677E+00_JPRB, 0.731854E+00_JPRB, 0.716095E+00_JPRB &
+  &, 0.700376E+00_JPRB, 0.684729E+00_JPRB, 0.669190E+00_JPRB, 0.653696E+00_JPRB &
+  &, 0.638314E+00_JPRB, 0.623043E+00_JPRB, 0.607883E+00_JPRB &
+  &, 0.592868E+00_JPRB, 0.577960E+00_JPRB, 0.563189E+00_JPRB, 0.548589E+00_JPRB &
+  &, 0.534154E+00_JPRB, 0.519840E+00_JPRB, 0.505754E+00_JPRB &
+  &, 0.491810E+00_JPRB, 0.478038E+00_JPRB, 0.464466E+00_JPRB, 0.451125E+00_JPRB &
+  &, 0.437960E+00_JPRB, 0.425000E+00_JPRB, 0.412227E+00_JPRB &
+  &, 0.399670E+00_JPRB, 0.387356E+00_JPRB, 0.375266E+00_JPRB, 0.363381E+00_JPRB &
+  &, 0.351725E+00_JPRB, 0.340324E+00_JPRB, 0.329106E+00_JPRB &
+  &, 0.318143E+00_JPRB, 0.307410E+00_JPRB, 0.296929E+00_JPRB, 0.286672E+00_JPRB &
+  &, 0.276662E+00_JPRB, 0.266867E+00_JPRB, 0.257307E+00_JPRB &
+  &, 0.247949E+00_JPRB, 0.238867E+00_JPRB, 0.230025E+00_JPRB, 0.221387E+00_JPRB &
+  &, 0.213029E+00_JPRB, 0.204851E+00_JPRB, 0.196931E+00_JPRB &
+  &, 0.189225E+00_JPRB, 0.181690E+00_JPRB, 0.174464E+00_JPRB, 0.167376E+00_JPRB &
+  &, 0.160568E+00_JPRB, 0.153927E+00_JPRB, 0.147532E+00_JPRB/)
+XCW( 735, :) = (/ &
+  &  0.106058E+01_JPRB, 0.107502E+01_JPRB, 0.108915E+01_JPRB, 0.110296E+01_JPRB &
+  &, 0.111645E+01_JPRB, 0.112961E+01_JPRB, 0.114242E+01_JPRB &
+  &, 0.115488E+01_JPRB, 0.116697E+01_JPRB, 0.117869E+01_JPRB, 0.119003E+01_JPRB &
+  &, 0.120098E+01_JPRB, 0.121153E+01_JPRB, 0.122167E+01_JPRB &
+  &, 0.123140E+01_JPRB, 0.124070E+01_JPRB, 0.124957E+01_JPRB, 0.125800E+01_JPRB &
+  &, 0.126599E+01_JPRB, 0.127351E+01_JPRB, 0.128056E+01_JPRB &
+  &, 0.128718E+01_JPRB, 0.129331E+01_JPRB, 0.129896E+01_JPRB, 0.130413E+01_JPRB &
+  &, 0.130880E+01_JPRB, 0.131298E+01_JPRB, 0.131667E+01_JPRB &
+  &, 0.131985E+01_JPRB, 0.132253E+01_JPRB, 0.132470E+01_JPRB, 0.132636E+01_JPRB &
+  &, 0.132752E+01_JPRB, 0.132816E+01_JPRB, 0.132829E+01_JPRB &
+  &, 0.132791E+01_JPRB, 0.132702E+01_JPRB, 0.132562E+01_JPRB, 0.132372E+01_JPRB &
+  &, 0.132130E+01_JPRB, 0.131839E+01_JPRB, 0.131498E+01_JPRB &
+  &, 0.131107E+01_JPRB, 0.130668E+01_JPRB, 0.130179E+01_JPRB, 0.129644E+01_JPRB &
+  &, 0.129060E+01_JPRB, 0.128431E+01_JPRB, 0.127754E+01_JPRB &
+  &, 0.127034E+01_JPRB, 0.126269E+01_JPRB, 0.125460E+01_JPRB, 0.124608E+01_JPRB &
+  &, 0.123716E+01_JPRB, 0.122783E+01_JPRB, 0.121809E+01_JPRB &
+  &, 0.120797E+01_JPRB, 0.119746E+01_JPRB, 0.118661E+01_JPRB, 0.117540E+01_JPRB &
+  &, 0.116384E+01_JPRB, 0.115196E+01_JPRB, 0.113975E+01_JPRB &
+  &, 0.112724E+01_JPRB, 0.111445E+01_JPRB, 0.110137E+01_JPRB, 0.108803E+01_JPRB &
+  &, 0.107442E+01_JPRB, 0.106058E+01_JPRB, 0.104651E+01_JPRB &
+  &, 0.103223E+01_JPRB, 0.101775E+01_JPRB, 0.100308E+01_JPRB, 0.988231E+00_JPRB &
+  &, 0.973241E+00_JPRB, 0.958074E+00_JPRB, 0.942812E+00_JPRB &
+  &, 0.927395E+00_JPRB, 0.911882E+00_JPRB, 0.896284E+00_JPRB, 0.880612E+00_JPRB &
+  &, 0.864851E+00_JPRB, 0.849034E+00_JPRB, 0.833199E+00_JPRB &
+  &, 0.817328E+00_JPRB, 0.801427E+00_JPRB, 0.785534E+00_JPRB, 0.769654E+00_JPRB &
+  &, 0.753765E+00_JPRB, 0.737932E+00_JPRB, 0.722160E+00_JPRB &
+  &, 0.706392E+00_JPRB, 0.690724E+00_JPRB, 0.675128E+00_JPRB, 0.659606E+00_JPRB &
+  &, 0.644192E+00_JPRB, 0.628851E+00_JPRB, 0.613651E+00_JPRB &
+  &, 0.598556E+00_JPRB, 0.583636E+00_JPRB, 0.568813E+00_JPRB, 0.554157E+00_JPRB &
+  &, 0.539624E+00_JPRB, 0.525284E+00_JPRB, 0.511091E+00_JPRB &
+  &, 0.497114E+00_JPRB, 0.483305E+00_JPRB, 0.469652E+00_JPRB, 0.456225E+00_JPRB &
+  &, 0.442971E+00_JPRB, 0.429959E+00_JPRB, 0.417132E+00_JPRB &
+  &, 0.404516E+00_JPRB, 0.392095E+00_JPRB, 0.379939E+00_JPRB, 0.367984E+00_JPRB &
+  &, 0.356255E+00_JPRB, 0.344729E+00_JPRB, 0.333478E+00_JPRB &
+  &, 0.322431E+00_JPRB, 0.311609E+00_JPRB, 0.301035E+00_JPRB, 0.290683E+00_JPRB &
+  &, 0.280572E+00_JPRB, 0.270672E+00_JPRB, 0.261058E+00_JPRB &
+  &, 0.251643E+00_JPRB, 0.242501E+00_JPRB, 0.233541E+00_JPRB, 0.224837E+00_JPRB &
+  &, 0.216351E+00_JPRB, 0.208101E+00_JPRB, 0.200105E+00_JPRB &
+  &, 0.192321E+00_JPRB, 0.184705E+00_JPRB, 0.177394E+00_JPRB, 0.170283E+00_JPRB &
+  &, 0.163321E+00_JPRB, 0.156651E+00_JPRB, 0.150160E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART105',1,ZHOOK_HANDLE)
+END SUBROUTINE PART105
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART106
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART106',0,ZHOOK_HANDLE)
+
+XCW( 736, :) = (/ &
+  &  0.106090E+01_JPRB, 0.107542E+01_JPRB, 0.108963E+01_JPRB, 0.110353E+01_JPRB &
+  &, 0.111711E+01_JPRB, 0.113036E+01_JPRB, 0.114326E+01_JPRB &
+  &, 0.115580E+01_JPRB, 0.116799E+01_JPRB, 0.117980E+01_JPRB, 0.119124E+01_JPRB &
+  &, 0.120228E+01_JPRB, 0.121293E+01_JPRB, 0.122317E+01_JPRB &
+  &, 0.123299E+01_JPRB, 0.124239E+01_JPRB, 0.125136E+01_JPRB, 0.125989E+01_JPRB &
+  &, 0.126797E+01_JPRB, 0.127560E+01_JPRB, 0.128277E+01_JPRB &
+  &, 0.128947E+01_JPRB, 0.129570E+01_JPRB, 0.130145E+01_JPRB, 0.130671E+01_JPRB &
+  &, 0.131149E+01_JPRB, 0.131577E+01_JPRB, 0.131955E+01_JPRB &
+  &, 0.132284E+01_JPRB, 0.132562E+01_JPRB, 0.132789E+01_JPRB, 0.132965E+01_JPRB &
+  &, 0.133091E+01_JPRB, 0.133165E+01_JPRB, 0.133188E+01_JPRB &
+  &, 0.133159E+01_JPRB, 0.133080E+01_JPRB, 0.132949E+01_JPRB, 0.132769E+01_JPRB &
+  &, 0.132537E+01_JPRB, 0.132255E+01_JPRB, 0.131923E+01_JPRB &
+  &, 0.131541E+01_JPRB, 0.131111E+01_JPRB, 0.130632E+01_JPRB, 0.130104E+01_JPRB &
+  &, 0.129529E+01_JPRB, 0.128909E+01_JPRB, 0.128241E+01_JPRB &
+  &, 0.127528E+01_JPRB, 0.126770E+01_JPRB, 0.125969E+01_JPRB, 0.125126E+01_JPRB &
+  &, 0.124240E+01_JPRB, 0.123314E+01_JPRB, 0.122347E+01_JPRB &
+  &, 0.121341E+01_JPRB, 0.120298E+01_JPRB, 0.119219E+01_JPRB, 0.118103E+01_JPRB &
+  &, 0.116953E+01_JPRB, 0.115770E+01_JPRB, 0.114556E+01_JPRB &
+  &, 0.113310E+01_JPRB, 0.112035E+01_JPRB, 0.110730E+01_JPRB, 0.109400E+01_JPRB &
+  &, 0.108044E+01_JPRB, 0.106665E+01_JPRB, 0.105260E+01_JPRB &
+  &, 0.103835E+01_JPRB, 0.102389E+01_JPRB, 0.100926E+01_JPRB, 0.994424E+00_JPRB &
+  &, 0.979447E+00_JPRB, 0.964314E+00_JPRB, 0.949035E+00_JPRB &
+  &, 0.933646E+00_JPRB, 0.918133E+00_JPRB, 0.902533E+00_JPRB, 0.886855E+00_JPRB &
+  &, 0.871110E+00_JPRB, 0.855281E+00_JPRB, 0.839429E+00_JPRB &
+  &, 0.823538E+00_JPRB, 0.807641E+00_JPRB, 0.791720E+00_JPRB, 0.775779E+00_JPRB &
+  &, 0.759944E+00_JPRB, 0.744071E+00_JPRB, 0.728256E+00_JPRB &
+  &, 0.712472E+00_JPRB, 0.696752E+00_JPRB, 0.681100E+00_JPRB, 0.665550E+00_JPRB &
+  &, 0.650104E+00_JPRB, 0.634728E+00_JPRB, 0.619489E+00_JPRB &
+  &, 0.604352E+00_JPRB, 0.589348E+00_JPRB, 0.574475E+00_JPRB, 0.559763E+00_JPRB &
+  &, 0.545171E+00_JPRB, 0.530768E+00_JPRB, 0.516546E+00_JPRB &
+  &, 0.502457E+00_JPRB, 0.488572E+00_JPRB, 0.474879E+00_JPRB, 0.461368E+00_JPRB &
+  &, 0.448067E+00_JPRB, 0.434961E+00_JPRB, 0.422080E+00_JPRB &
+  &, 0.409362E+00_JPRB, 0.396879E+00_JPRB, 0.384658E+00_JPRB, 0.372587E+00_JPRB &
+  &, 0.360785E+00_JPRB, 0.349182E+00_JPRB, 0.337850E+00_JPRB &
+  &, 0.326718E+00_JPRB, 0.315808E+00_JPRB, 0.305142E+00_JPRB, 0.294745E+00_JPRB &
+  &, 0.284535E+00_JPRB, 0.274585E+00_JPRB, 0.264864E+00_JPRB &
+  &, 0.255392E+00_JPRB, 0.246135E+00_JPRB, 0.237112E+00_JPRB, 0.228286E+00_JPRB &
+  &, 0.219731E+00_JPRB, 0.211409E+00_JPRB, 0.203339E+00_JPRB &
+  &, 0.195478E+00_JPRB, 0.187781E+00_JPRB, 0.180387E+00_JPRB, 0.173126E+00_JPRB &
+  &, 0.166138E+00_JPRB, 0.159375E+00_JPRB, 0.152788E+00_JPRB/)
+XCW( 737, :) = (/ &
+  &  0.106122E+01_JPRB, 0.107582E+01_JPRB, 0.109012E+01_JPRB, 0.110411E+01_JPRB &
+  &, 0.111777E+01_JPRB, 0.113110E+01_JPRB, 0.114410E+01_JPRB &
+  &, 0.115673E+01_JPRB, 0.116901E+01_JPRB, 0.118092E+01_JPRB, 0.119245E+01_JPRB &
+  &, 0.120358E+01_JPRB, 0.121433E+01_JPRB, 0.122466E+01_JPRB &
+  &, 0.123458E+01_JPRB, 0.124408E+01_JPRB, 0.125315E+01_JPRB, 0.126177E+01_JPRB &
+  &, 0.126996E+01_JPRB, 0.127769E+01_JPRB, 0.128494E+01_JPRB &
+  &, 0.129176E+01_JPRB, 0.129809E+01_JPRB, 0.130394E+01_JPRB, 0.130931E+01_JPRB &
+  &, 0.131418E+01_JPRB, 0.131857E+01_JPRB, 0.132245E+01_JPRB &
+  &, 0.132584E+01_JPRB, 0.132872E+01_JPRB, 0.133109E+01_JPRB, 0.133295E+01_JPRB &
+  &, 0.133431E+01_JPRB, 0.133515E+01_JPRB, 0.133548E+01_JPRB &
+  &, 0.133529E+01_JPRB, 0.133460E+01_JPRB, 0.133339E+01_JPRB, 0.133168E+01_JPRB &
+  &, 0.132945E+01_JPRB, 0.132672E+01_JPRB, 0.132349E+01_JPRB &
+  &, 0.131977E+01_JPRB, 0.131556E+01_JPRB, 0.131086E+01_JPRB, 0.130567E+01_JPRB &
+  &, 0.130001E+01_JPRB, 0.129388E+01_JPRB, 0.128729E+01_JPRB &
+  &, 0.128024E+01_JPRB, 0.127275E+01_JPRB, 0.126482E+01_JPRB, 0.125646E+01_JPRB &
+  &, 0.124766E+01_JPRB, 0.123848E+01_JPRB, 0.122887E+01_JPRB &
+  &, 0.121890E+01_JPRB, 0.120852E+01_JPRB, 0.119779E+01_JPRB, 0.118669E+01_JPRB &
+  &, 0.117525E+01_JPRB, 0.116348E+01_JPRB, 0.115138E+01_JPRB &
+  &, 0.113898E+01_JPRB, 0.112627E+01_JPRB, 0.111327E+01_JPRB, 0.110002E+01_JPRB &
+  &, 0.108650E+01_JPRB, 0.107273E+01_JPRB, 0.105870E+01_JPRB &
+  &, 0.104450E+01_JPRB, 0.103009E+01_JPRB, 0.101546E+01_JPRB, 0.100066E+01_JPRB &
+  &, 0.985699E+00_JPRB, 0.970576E+00_JPRB, 0.955305E+00_JPRB &
+  &, 0.939921E+00_JPRB, 0.924435E+00_JPRB, 0.908833E+00_JPRB, 0.893150E+00_JPRB &
+  &, 0.877396E+00_JPRB, 0.861581E+00_JPRB, 0.845714E+00_JPRB &
+  &, 0.829831E+00_JPRB, 0.813912E+00_JPRB, 0.797964E+00_JPRB, 0.782052E+00_JPRB &
+  &, 0.766122E+00_JPRB, 0.750241E+00_JPRB, 0.734383E+00_JPRB &
+  &, 0.718583E+00_JPRB, 0.702844E+00_JPRB, 0.687169E+00_JPRB, 0.671560E+00_JPRB &
+  &, 0.656050E+00_JPRB, 0.640639E+00_JPRB, 0.625363E+00_JPRB &
+  &, 0.610147E+00_JPRB, 0.595097E+00_JPRB, 0.580173E+00_JPRB, 0.565407E+00_JPRB &
+  &, 0.550795E+00_JPRB, 0.536329E+00_JPRB, 0.522001E+00_JPRB &
+  &, 0.507881E+00_JPRB, 0.493920E+00_JPRB, 0.480148E+00_JPRB, 0.466595E+00_JPRB &
+  &, 0.453205E+00_JPRB, 0.440051E+00_JPRB, 0.427073E+00_JPRB &
+  &, 0.414298E+00_JPRB, 0.401755E+00_JPRB, 0.389423E+00_JPRB, 0.377285E+00_JPRB &
+  &, 0.365410E+00_JPRB, 0.353731E+00_JPRB, 0.342272E+00_JPRB &
+  &, 0.331106E+00_JPRB, 0.320108E+00_JPRB, 0.309352E+00_JPRB, 0.298860E+00_JPRB &
+  &, 0.288550E+00_JPRB, 0.278551E+00_JPRB, 0.268723E+00_JPRB &
+  &, 0.259141E+00_JPRB, 0.249825E+00_JPRB, 0.240684E+00_JPRB, 0.231850E+00_JPRB &
+  &, 0.223170E+00_JPRB, 0.214777E+00_JPRB, 0.206573E+00_JPRB &
+  &, 0.198635E+00_JPRB, 0.190919E+00_JPRB, 0.183380E+00_JPRB, 0.176095E+00_JPRB &
+  &, 0.169018E+00_JPRB, 0.162164E+00_JPRB, 0.155483E+00_JPRB/)
+XCW( 738, :) = (/ &
+  &  0.106154E+01_JPRB, 0.107622E+01_JPRB, 0.109061E+01_JPRB, 0.110468E+01_JPRB &
+  &, 0.111844E+01_JPRB, 0.113186E+01_JPRB, 0.114494E+01_JPRB &
+  &, 0.115767E+01_JPRB, 0.117004E+01_JPRB, 0.118204E+01_JPRB, 0.119366E+01_JPRB &
+  &, 0.120489E+01_JPRB, 0.121573E+01_JPRB, 0.122616E+01_JPRB &
+  &, 0.123618E+01_JPRB, 0.124577E+01_JPRB, 0.125494E+01_JPRB, 0.126367E+01_JPRB &
+  &, 0.127195E+01_JPRB, 0.127978E+01_JPRB, 0.128715E+01_JPRB &
+  &, 0.129405E+01_JPRB, 0.130048E+01_JPRB, 0.130644E+01_JPRB, 0.131191E+01_JPRB &
+  &, 0.131689E+01_JPRB, 0.132137E+01_JPRB, 0.132536E+01_JPRB &
+  &, 0.132885E+01_JPRB, 0.133183E+01_JPRB, 0.133430E+01_JPRB, 0.133627E+01_JPRB &
+  &, 0.133772E+01_JPRB, 0.133866E+01_JPRB, 0.133909E+01_JPRB &
+  &, 0.133901E+01_JPRB, 0.133840E+01_JPRB, 0.133730E+01_JPRB, 0.133568E+01_JPRB &
+  &, 0.133355E+01_JPRB, 0.133092E+01_JPRB, 0.132778E+01_JPRB &
+  &, 0.132416E+01_JPRB, 0.132003E+01_JPRB, 0.131542E+01_JPRB, 0.131032E+01_JPRB &
+  &, 0.130475E+01_JPRB, 0.129870E+01_JPRB, 0.129219E+01_JPRB &
+  &, 0.128523E+01_JPRB, 0.127781E+01_JPRB, 0.126996E+01_JPRB, 0.126167E+01_JPRB &
+  &, 0.125295E+01_JPRB, 0.124383E+01_JPRB, 0.123431E+01_JPRB &
+  &, 0.122440E+01_JPRB, 0.121410E+01_JPRB, 0.120342E+01_JPRB, 0.119238E+01_JPRB &
+  &, 0.118101E+01_JPRB, 0.116928E+01_JPRB, 0.115724E+01_JPRB &
+  &, 0.114488E+01_JPRB, 0.113224E+01_JPRB, 0.111928E+01_JPRB, 0.110606E+01_JPRB &
+  &, 0.109259E+01_JPRB, 0.107886E+01_JPRB, 0.106489E+01_JPRB &
+  &, 0.105070E+01_JPRB, 0.103629E+01_JPRB, 0.102170E+01_JPRB, 0.100692E+01_JPRB &
+  &, 0.991973E+00_JPRB, 0.976886E+00_JPRB, 0.961623E+00_JPRB &
+  &, 0.946269E+00_JPRB, 0.930761E+00_JPRB, 0.915183E+00_JPRB, 0.899496E+00_JPRB &
+  &, 0.883734E+00_JPRB, 0.867935E+00_JPRB, 0.852054E+00_JPRB &
+  &, 0.836152E+00_JPRB, 0.820212E+00_JPRB, 0.804266E+00_JPRB, 0.788324E+00_JPRB &
+  &, 0.772391E+00_JPRB, 0.756472E+00_JPRB, 0.740572E+00_JPRB &
+  &, 0.724758E+00_JPRB, 0.708969E+00_JPRB, 0.693239E+00_JPRB, 0.677604E+00_JPRB &
+  &, 0.662064E+00_JPRB, 0.646620E+00_JPRB, 0.631271E+00_JPRB &
+  &, 0.616050E+00_JPRB, 0.600919E+00_JPRB, 0.585945E+00_JPRB, 0.571126E+00_JPRB &
+  &, 0.556456E+00_JPRB, 0.541929E+00_JPRB, 0.527535E+00_JPRB &
+  &, 0.513345E+00_JPRB, 0.499351E+00_JPRB, 0.485500E+00_JPRB, 0.471864E+00_JPRB &
+  &, 0.458387E+00_JPRB, 0.445140E+00_JPRB, 0.432109E+00_JPRB &
+  &, 0.419279E+00_JPRB, 0.406630E+00_JPRB, 0.394235E+00_JPRB, 0.382029E+00_JPRB &
+  &, 0.370036E+00_JPRB, 0.358330E+00_JPRB, 0.346791E+00_JPRB &
+  &, 0.335493E+00_JPRB, 0.324459E+00_JPRB, 0.313612E+00_JPRB, 0.303026E+00_JPRB &
+  &, 0.292672E+00_JPRB, 0.282517E+00_JPRB, 0.272637E+00_JPRB &
+  &, 0.263001E+00_JPRB, 0.253572E+00_JPRB, 0.244369E+00_JPRB, 0.235414E+00_JPRB &
+  &, 0.226666E+00_JPRB, 0.218204E+00_JPRB, 0.209927E+00_JPRB &
+  &, 0.201852E+00_JPRB, 0.194056E+00_JPRB, 0.186497E+00_JPRB, 0.179128E+00_JPRB &
+  &, 0.171963E+00_JPRB, 0.165018E+00_JPRB, 0.158242E+00_JPRB/)
+XCW( 739, :) = (/ &
+  &  0.106186E+01_JPRB, 0.107663E+01_JPRB, 0.109110E+01_JPRB, 0.110526E+01_JPRB &
+  &, 0.111910E+01_JPRB, 0.113261E+01_JPRB, 0.114578E+01_JPRB &
+  &, 0.115860E+01_JPRB, 0.117106E+01_JPRB, 0.118316E+01_JPRB, 0.119487E+01_JPRB &
+  &, 0.120620E+01_JPRB, 0.121713E+01_JPRB, 0.122766E+01_JPRB &
+  &, 0.123778E+01_JPRB, 0.124747E+01_JPRB, 0.125674E+01_JPRB, 0.126557E+01_JPRB &
+  &, 0.127395E+01_JPRB, 0.128188E+01_JPRB, 0.128935E+01_JPRB &
+  &, 0.129636E+01_JPRB, 0.130289E+01_JPRB, 0.130895E+01_JPRB, 0.131452E+01_JPRB &
+  &, 0.131960E+01_JPRB, 0.132418E+01_JPRB, 0.132828E+01_JPRB &
+  &, 0.133187E+01_JPRB, 0.133495E+01_JPRB, 0.133753E+01_JPRB, 0.133959E+01_JPRB &
+  &, 0.134115E+01_JPRB, 0.134212E+01_JPRB, 0.134272E+01_JPRB &
+  &, 0.134273E+01_JPRB, 0.134223E+01_JPRB, 0.134122E+01_JPRB, 0.133970E+01_JPRB &
+  &, 0.133766E+01_JPRB, 0.133512E+01_JPRB, 0.133209E+01_JPRB &
+  &, 0.132851E+01_JPRB, 0.132451E+01_JPRB, 0.131999E+01_JPRB, 0.131499E+01_JPRB &
+  &, 0.130950E+01_JPRB, 0.130354E+01_JPRB, 0.129712E+01_JPRB &
+  &, 0.129024E+01_JPRB, 0.128290E+01_JPRB, 0.127513E+01_JPRB, 0.126692E+01_JPRB &
+  &, 0.125827E+01_JPRB, 0.124923E+01_JPRB, 0.123978E+01_JPRB &
+  &, 0.122993E+01_JPRB, 0.121968E+01_JPRB, 0.120908E+01_JPRB, 0.119811E+01_JPRB &
+  &, 0.118679E+01_JPRB, 0.117513E+01_JPRB, 0.116313E+01_JPRB &
+  &, 0.115083E+01_JPRB, 0.113823E+01_JPRB, 0.112533E+01_JPRB, 0.111215E+01_JPRB &
+  &, 0.109871E+01_JPRB, 0.108498E+01_JPRB, 0.107109E+01_JPRB &
+  &, 0.105693E+01_JPRB, 0.104255E+01_JPRB, 0.102798E+01_JPRB, 0.101323E+01_JPRB &
+  &, 0.998317E+00_JPRB, 0.983218E+00_JPRB, 0.967989E+00_JPRB &
+  &, 0.952641E+00_JPRB, 0.937161E+00_JPRB, 0.921558E+00_JPRB, 0.905893E+00_JPRB &
+  &, 0.890126E+00_JPRB, 0.874316E+00_JPRB, 0.858421E+00_JPRB &
+  &, 0.842502E+00_JPRB, 0.826567E+00_JPRB, 0.810597E+00_JPRB, 0.794626E+00_JPRB &
+  &, 0.778690E+00_JPRB, 0.762734E+00_JPRB, 0.746824E+00_JPRB &
+  &, 0.730964E+00_JPRB, 0.715158E+00_JPRB, 0.699407E+00_JPRB, 0.683714E+00_JPRB &
+  &, 0.668146E+00_JPRB, 0.652635E+00_JPRB, 0.637250E+00_JPRB &
+  &, 0.621953E+00_JPRB, 0.606813E+00_JPRB, 0.591792E+00_JPRB, 0.576883E+00_JPRB &
+  &, 0.562156E+00_JPRB, 0.547568E+00_JPRB, 0.533148E+00_JPRB &
+  &, 0.518889E+00_JPRB, 0.504781E+00_JPRB, 0.490894E+00_JPRB, 0.477175E+00_JPRB &
+  &, 0.463654E+00_JPRB, 0.450316E+00_JPRB, 0.437234E+00_JPRB &
+  &, 0.424304E+00_JPRB, 0.411597E+00_JPRB, 0.399093E+00_JPRB, 0.386820E+00_JPRB &
+  &, 0.374756E+00_JPRB, 0.362928E+00_JPRB, 0.351360E+00_JPRB &
+  &, 0.339980E+00_JPRB, 0.328810E+00_JPRB, 0.317924E+00_JPRB, 0.307245E+00_JPRB &
+  &, 0.296793E+00_JPRB, 0.286590E+00_JPRB, 0.276606E+00_JPRB &
+  &, 0.266860E+00_JPRB, 0.257374E+00_JPRB, 0.248111E+00_JPRB, 0.239036E+00_JPRB &
+  &, 0.230222E+00_JPRB, 0.221631E+00_JPRB, 0.213281E+00_JPRB &
+  &, 0.205191E+00_JPRB, 0.197256E+00_JPRB, 0.189615E+00_JPRB, 0.182161E+00_JPRB &
+  &, 0.174908E+00_JPRB, 0.167872E+00_JPRB, 0.161068E+00_JPRB/)
+XCW( 740, :) = (/ &
+  &  0.106218E+01_JPRB, 0.107703E+01_JPRB, 0.109159E+01_JPRB, 0.110583E+01_JPRB &
+  &, 0.111976E+01_JPRB, 0.113336E+01_JPRB, 0.114662E+01_JPRB &
+  &, 0.115954E+01_JPRB, 0.117209E+01_JPRB, 0.118428E+01_JPRB, 0.119609E+01_JPRB &
+  &, 0.120751E+01_JPRB, 0.121854E+01_JPRB, 0.122917E+01_JPRB &
+  &, 0.123939E+01_JPRB, 0.124918E+01_JPRB, 0.125855E+01_JPRB, 0.126747E+01_JPRB &
+  &, 0.127596E+01_JPRB, 0.128399E+01_JPRB, 0.129156E+01_JPRB &
+  &, 0.129867E+01_JPRB, 0.130530E+01_JPRB, 0.131146E+01_JPRB, 0.131713E+01_JPRB &
+  &, 0.132232E+01_JPRB, 0.132701E+01_JPRB, 0.133121E+01_JPRB &
+  &, 0.133490E+01_JPRB, 0.133808E+01_JPRB, 0.134076E+01_JPRB, 0.134290E+01_JPRB &
+  &, 0.134458E+01_JPRB, 0.134566E+01_JPRB, 0.134636E+01_JPRB &
+  &, 0.134647E+01_JPRB, 0.134607E+01_JPRB, 0.134516E+01_JPRB, 0.134373E+01_JPRB &
+  &, 0.134180E+01_JPRB, 0.133936E+01_JPRB, 0.133641E+01_JPRB &
+  &, 0.133296E+01_JPRB, 0.132902E+01_JPRB, 0.132459E+01_JPRB, 0.131968E+01_JPRB &
+  &, 0.131427E+01_JPRB, 0.130839E+01_JPRB, 0.130206E+01_JPRB &
+  &, 0.129526E+01_JPRB, 0.128801E+01_JPRB, 0.128031E+01_JPRB, 0.127218E+01_JPRB &
+  &, 0.126362E+01_JPRB, 0.125465E+01_JPRB, 0.124526E+01_JPRB &
+  &, 0.123548E+01_JPRB, 0.122531E+01_JPRB, 0.121476E+01_JPRB, 0.120387E+01_JPRB &
+  &, 0.119260E+01_JPRB, 0.118100E+01_JPRB, 0.116906E+01_JPRB &
+  &, 0.115680E+01_JPRB, 0.114424E+01_JPRB, 0.113140E+01_JPRB, 0.111827E+01_JPRB &
+  &, 0.110486E+01_JPRB, 0.109121E+01_JPRB, 0.107732E+01_JPRB &
+  &, 0.106319E+01_JPRB, 0.104884E+01_JPRB, 0.103432E+01_JPRB, 0.101958E+01_JPRB &
+  &, 0.100468E+01_JPRB, 0.989598E+00_JPRB, 0.974403E+00_JPRB &
+  &, 0.959038E+00_JPRB, 0.943561E+00_JPRB, 0.927984E+00_JPRB, 0.912317E+00_JPRB &
+  &, 0.896569E+00_JPRB, 0.880724E+00_JPRB, 0.864842E+00_JPRB &
+  &, 0.848934E+00_JPRB, 0.832952E+00_JPRB, 0.816986E+00_JPRB, 0.800986E+00_JPRB &
+  &, 0.785018E+00_JPRB, 0.769057E+00_JPRB, 0.753138E+00_JPRB &
+  &, 0.737234E+00_JPRB, 0.721379E+00_JPRB, 0.705608E+00_JPRB, 0.689891E+00_JPRB &
+  &, 0.674262E+00_JPRB, 0.658720E+00_JPRB, 0.643264E+00_JPRB &
+  &, 0.627963E+00_JPRB, 0.612744E+00_JPRB, 0.597675E+00_JPRB, 0.582715E+00_JPRB &
+  &, 0.567933E+00_JPRB, 0.553284E+00_JPRB, 0.538801E+00_JPRB &
+  &, 0.524474E+00_JPRB, 0.510334E+00_JPRB, 0.496329E+00_JPRB, 0.482571E+00_JPRB &
+  &, 0.468964E+00_JPRB, 0.455580E+00_JPRB, 0.442360E+00_JPRB &
+  &, 0.429375E+00_JPRB, 0.416609E+00_JPRB, 0.404043E+00_JPRB, 0.391705E+00_JPRB &
+  &, 0.379572E+00_JPRB, 0.367623E+00_JPRB, 0.355978E+00_JPRB &
+  &, 0.344517E+00_JPRB, 0.333262E+00_JPRB, 0.322288E+00_JPRB, 0.311516E+00_JPRB &
+  &, 0.300967E+00_JPRB, 0.290717E+00_JPRB, 0.280629E+00_JPRB &
+  &, 0.270830E+00_JPRB, 0.261231E+00_JPRB, 0.251853E+00_JPRB, 0.242715E+00_JPRB &
+  &, 0.233835E+00_JPRB, 0.225176E+00_JPRB, 0.216695E+00_JPRB &
+  &, 0.208529E+00_JPRB, 0.200516E+00_JPRB, 0.192794E+00_JPRB, 0.185256E+00_JPRB &
+  &, 0.177917E+00_JPRB, 0.170791E+00_JPRB, 0.163894E+00_JPRB/)
+XCW( 741, :) = (/ &
+  &  0.106250E+01_JPRB, 0.107744E+01_JPRB, 0.109208E+01_JPRB, 0.110641E+01_JPRB &
+  &, 0.112043E+01_JPRB, 0.113412E+01_JPRB, 0.114747E+01_JPRB &
+  &, 0.116047E+01_JPRB, 0.117312E+01_JPRB, 0.118540E+01_JPRB, 0.119731E+01_JPRB &
+  &, 0.120883E+01_JPRB, 0.121996E+01_JPRB, 0.123068E+01_JPRB &
+  &, 0.124100E+01_JPRB, 0.125089E+01_JPRB, 0.126036E+01_JPRB, 0.126938E+01_JPRB &
+  &, 0.127797E+01_JPRB, 0.128610E+01_JPRB, 0.129378E+01_JPRB &
+  &, 0.130099E+01_JPRB, 0.130772E+01_JPRB, 0.131398E+01_JPRB, 0.131976E+01_JPRB &
+  &, 0.132505E+01_JPRB, 0.132984E+01_JPRB, 0.133414E+01_JPRB &
+  &, 0.133793E+01_JPRB, 0.134123E+01_JPRB, 0.134401E+01_JPRB, 0.134628E+01_JPRB &
+  &, 0.134804E+01_JPRB, 0.134928E+01_JPRB, 0.135001E+01_JPRB &
+  &, 0.135022E+01_JPRB, 0.134993E+01_JPRB, 0.134911E+01_JPRB, 0.134778E+01_JPRB &
+  &, 0.134595E+01_JPRB, 0.134360E+01_JPRB, 0.134075E+01_JPRB &
+  &, 0.133739E+01_JPRB, 0.133355E+01_JPRB, 0.132921E+01_JPRB, 0.132437E+01_JPRB &
+  &, 0.131907E+01_JPRB, 0.131328E+01_JPRB, 0.130703E+01_JPRB &
+  &, 0.130031E+01_JPRB, 0.129314E+01_JPRB, 0.128552E+01_JPRB, 0.127747E+01_JPRB &
+  &, 0.126899E+01_JPRB, 0.126009E+01_JPRB, 0.125077E+01_JPRB &
+  &, 0.124107E+01_JPRB, 0.123097E+01_JPRB, 0.122049E+01_JPRB, 0.120964E+01_JPRB &
+  &, 0.119844E+01_JPRB, 0.118687E+01_JPRB, 0.117501E+01_JPRB &
+  &, 0.116281E+01_JPRB, 0.115031E+01_JPRB, 0.113750E+01_JPRB, 0.112441E+01_JPRB &
+  &, 0.111106E+01_JPRB, 0.109744E+01_JPRB, 0.108358E+01_JPRB &
+  &, 0.106949E+01_JPRB, 0.105519E+01_JPRB, 0.104067E+01_JPRB, 0.102597E+01_JPRB &
+  &, 0.101107E+01_JPRB, 0.996024E+00_JPRB, 0.980840E+00_JPRB &
+  &, 0.965507E+00_JPRB, 0.950036E+00_JPRB, 0.934461E+00_JPRB, 0.918792E+00_JPRB &
+  &, 0.903039E+00_JPRB, 0.887212E+00_JPRB, 0.871319E+00_JPRB &
+  &, 0.855395E+00_JPRB, 0.839421E+00_JPRB, 0.823432E+00_JPRB, 0.807406E+00_JPRB &
+  &, 0.791407E+00_JPRB, 0.775440E+00_JPRB, 0.759482E+00_JPRB &
+  &, 0.743535E+00_JPRB, 0.727664E+00_JPRB, 0.711842E+00_JPRB, 0.696102E+00_JPRB &
+  &, 0.680412E+00_JPRB, 0.664839E+00_JPRB, 0.649348E+00_JPRB &
+  &, 0.633973E+00_JPRB, 0.618748E+00_JPRB, 0.603596E+00_JPRB, 0.588585E+00_JPRB &
+  &, 0.573747E+00_JPRB, 0.559040E+00_JPRB, 0.544493E+00_JPRB &
+  &, 0.530099E+00_JPRB, 0.515887E+00_JPRB, 0.501847E+00_JPRB, 0.488008E+00_JPRB &
+  &, 0.474317E+00_JPRB, 0.460843E+00_JPRB, 0.447573E+00_JPRB &
+  &, 0.434535E+00_JPRB, 0.421666E+00_JPRB, 0.409040E+00_JPRB, 0.396590E+00_JPRB &
+  &, 0.384388E+00_JPRB, 0.372415E+00_JPRB, 0.360645E+00_JPRB &
+  &, 0.349104E+00_JPRB, 0.337765E+00_JPRB, 0.326703E+00_JPRB, 0.315838E+00_JPRB &
+  &, 0.305247E+00_JPRB, 0.294844E+00_JPRB, 0.284706E+00_JPRB &
+  &, 0.274799E+00_JPRB, 0.265089E+00_JPRB, 0.255652E+00_JPRB, 0.246451E+00_JPRB &
+  &, 0.237448E+00_JPRB, 0.228721E+00_JPRB, 0.220168E+00_JPRB &
+  &, 0.211929E+00_JPRB, 0.203839E+00_JPRB, 0.195974E+00_JPRB, 0.188352E+00_JPRB &
+  &, 0.180990E+00_JPRB, 0.173775E+00_JPRB, 0.166785E+00_JPRB/)
+XCW( 742, :) = (/ &
+  &  0.106282E+01_JPRB, 0.107785E+01_JPRB, 0.109257E+01_JPRB, 0.110699E+01_JPRB &
+  &, 0.112110E+01_JPRB, 0.113488E+01_JPRB, 0.114832E+01_JPRB &
+  &, 0.116142E+01_JPRB, 0.117416E+01_JPRB, 0.118653E+01_JPRB, 0.119854E+01_JPRB &
+  &, 0.121015E+01_JPRB, 0.122138E+01_JPRB, 0.123220E+01_JPRB &
+  &, 0.124261E+01_JPRB, 0.125260E+01_JPRB, 0.126217E+01_JPRB, 0.127130E+01_JPRB &
+  &, 0.127999E+01_JPRB, 0.128822E+01_JPRB, 0.129600E+01_JPRB &
+  &, 0.130331E+01_JPRB, 0.131015E+01_JPRB, 0.131652E+01_JPRB, 0.132240E+01_JPRB &
+  &, 0.132779E+01_JPRB, 0.133269E+01_JPRB, 0.133709E+01_JPRB &
+  &, 0.134099E+01_JPRB, 0.134438E+01_JPRB, 0.134726E+01_JPRB, 0.134964E+01_JPRB &
+  &, 0.135150E+01_JPRB, 0.135284E+01_JPRB, 0.135368E+01_JPRB &
+  &, 0.135399E+01_JPRB, 0.135379E+01_JPRB, 0.135308E+01_JPRB, 0.135185E+01_JPRB &
+  &, 0.135011E+01_JPRB, 0.134786E+01_JPRB, 0.134507E+01_JPRB &
+  &, 0.134184E+01_JPRB, 0.133809E+01_JPRB, 0.133385E+01_JPRB, 0.132911E+01_JPRB &
+  &, 0.132388E+01_JPRB, 0.131818E+01_JPRB, 0.131202E+01_JPRB &
+  &, 0.130539E+01_JPRB, 0.129831E+01_JPRB, 0.129076E+01_JPRB, 0.128279E+01_JPRB &
+  &, 0.127438E+01_JPRB, 0.126555E+01_JPRB, 0.125631E+01_JPRB &
+  &, 0.124668E+01_JPRB, 0.123665E+01_JPRB, 0.122623E+01_JPRB, 0.121545E+01_JPRB &
+  &, 0.120431E+01_JPRB, 0.119282E+01_JPRB, 0.118101E+01_JPRB &
+  &, 0.116885E+01_JPRB, 0.115641E+01_JPRB, 0.114364E+01_JPRB, 0.113061E+01_JPRB &
+  &, 0.111729E+01_JPRB, 0.110370E+01_JPRB, 0.108990E+01_JPRB &
+  &, 0.107584E+01_JPRB, 0.106157E+01_JPRB, 0.104707E+01_JPRB, 0.103239E+01_JPRB &
+  &, 0.101753E+01_JPRB, 0.100250E+01_JPRB, 0.987325E+00_JPRB &
+  &, 0.972001E+00_JPRB, 0.956535E+00_JPRB, 0.940988E+00_JPRB, 0.925318E+00_JPRB &
+  &, 0.909562E+00_JPRB, 0.893727E+00_JPRB, 0.877822E+00_JPRB &
+  &, 0.861883E+00_JPRB, 0.845919E+00_JPRB, 0.829908E+00_JPRB, 0.813885E+00_JPRB &
+  &, 0.797855E+00_JPRB, 0.781855E+00_JPRB, 0.765858E+00_JPRB &
+  &, 0.749900E+00_JPRB, 0.734015E+00_JPRB, 0.718141E+00_JPRB, 0.702379E+00_JPRB &
+  &, 0.686664E+00_JPRB, 0.671027E+00_JPRB, 0.655503E+00_JPRB &
+  &, 0.640091E+00_JPRB, 0.624788E+00_JPRB, 0.609590E+00_JPRB, 0.594529E+00_JPRB &
+  &, 0.579638E+00_JPRB, 0.564873E+00_JPRB, 0.550225E+00_JPRB &
+  &, 0.535804E+00_JPRB, 0.521521E+00_JPRB, 0.507406E+00_JPRB, 0.493488E+00_JPRB &
+  &, 0.479755E+00_JPRB, 0.466194E+00_JPRB, 0.452875E+00_JPRB &
+  &, 0.439740E+00_JPRB, 0.426815E+00_JPRB, 0.414083E+00_JPRB, 0.401569E+00_JPRB &
+  &, 0.389252E+00_JPRB, 0.377206E+00_JPRB, 0.365361E+00_JPRB &
+  &, 0.353740E+00_JPRB, 0.342318E+00_JPRB, 0.331169E+00_JPRB, 0.320266E+00_JPRB &
+  &, 0.309526E+00_JPRB, 0.299078E+00_JPRB, 0.288837E+00_JPRB &
+  &, 0.278824E+00_JPRB, 0.269059E+00_JPRB, 0.259564E+00_JPRB, 0.250245E+00_JPRB &
+  &, 0.241178E+00_JPRB, 0.232325E+00_JPRB, 0.223702E+00_JPRB &
+  &, 0.215328E+00_JPRB, 0.207161E+00_JPRB, 0.199279E+00_JPRB, 0.191575E+00_JPRB &
+  &, 0.184063E+00_JPRB, 0.176823E+00_JPRB, 0.169742E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART106',1,ZHOOK_HANDLE)
+END SUBROUTINE PART106
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART107
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART107',0,ZHOOK_HANDLE)
+
+XCW( 743, :) = (/ &
+  &  0.106315E+01_JPRB, 0.107825E+01_JPRB, 0.109307E+01_JPRB, 0.110757E+01_JPRB &
+  &, 0.112177E+01_JPRB, 0.113564E+01_JPRB, 0.114917E+01_JPRB &
+  &, 0.116236E+01_JPRB, 0.117519E+01_JPRB, 0.118767E+01_JPRB, 0.119976E+01_JPRB &
+  &, 0.121148E+01_JPRB, 0.122280E+01_JPRB, 0.123372E+01_JPRB &
+  &, 0.124423E+01_JPRB, 0.125433E+01_JPRB, 0.126399E+01_JPRB, 0.127322E+01_JPRB &
+  &, 0.128201E+01_JPRB, 0.129035E+01_JPRB, 0.129823E+01_JPRB &
+  &, 0.130565E+01_JPRB, 0.131259E+01_JPRB, 0.131906E+01_JPRB, 0.132504E+01_JPRB &
+  &, 0.133054E+01_JPRB, 0.133554E+01_JPRB, 0.134005E+01_JPRB &
+  &, 0.134405E+01_JPRB, 0.134754E+01_JPRB, 0.135053E+01_JPRB, 0.135301E+01_JPRB &
+  &, 0.135498E+01_JPRB, 0.135642E+01_JPRB, 0.135736E+01_JPRB &
+  &, 0.135778E+01_JPRB, 0.135768E+01_JPRB, 0.135706E+01_JPRB, 0.135593E+01_JPRB &
+  &, 0.135429E+01_JPRB, 0.135214E+01_JPRB, 0.134948E+01_JPRB &
+  &, 0.134632E+01_JPRB, 0.134265E+01_JPRB, 0.133850E+01_JPRB, 0.133385E+01_JPRB &
+  &, 0.132872E+01_JPRB, 0.132312E+01_JPRB, 0.131703E+01_JPRB &
+  &, 0.131049E+01_JPRB, 0.130349E+01_JPRB, 0.129602E+01_JPRB, 0.128813E+01_JPRB &
+  &, 0.127980E+01_JPRB, 0.127105E+01_JPRB, 0.126188E+01_JPRB &
+  &, 0.125232E+01_JPRB, 0.124236E+01_JPRB, 0.123201E+01_JPRB, 0.122129E+01_JPRB &
+  &, 0.121022E+01_JPRB, 0.119879E+01_JPRB, 0.118702E+01_JPRB &
+  &, 0.117493E+01_JPRB, 0.116253E+01_JPRB, 0.114982E+01_JPRB, 0.113683E+01_JPRB &
+  &, 0.112355E+01_JPRB, 0.111001E+01_JPRB, 0.109624E+01_JPRB &
+  &, 0.108221E+01_JPRB, 0.106796E+01_JPRB, 0.105351E+01_JPRB, 0.103885E+01_JPRB &
+  &, 0.102403E+01_JPRB, 0.100902E+01_JPRB, 0.993858E+00_JPRB &
+  &, 0.978544E+00_JPRB, 0.963109E+00_JPRB, 0.947540E+00_JPRB, 0.931871E+00_JPRB &
+  &, 0.916137E+00_JPRB, 0.900295E+00_JPRB, 0.884408E+00_JPRB &
+  &, 0.868455E+00_JPRB, 0.852445E+00_JPRB, 0.836441E+00_JPRB, 0.820392E+00_JPRB &
+  &, 0.804364E+00_JPRB, 0.788330E+00_JPRB, 0.772327E+00_JPRB &
+  &, 0.756328E+00_JPRB, 0.740397E+00_JPRB, 0.724506E+00_JPRB, 0.708690E+00_JPRB &
+  &, 0.692950E+00_JPRB, 0.677284E+00_JPRB, 0.661693E+00_JPRB &
+  &, 0.646208E+00_JPRB, 0.630864E+00_JPRB, 0.615622E+00_JPRB, 0.600512E+00_JPRB &
+  &, 0.585568E+00_JPRB, 0.570746E+00_JPRB, 0.556076E+00_JPRB &
+  &, 0.541549E+00_JPRB, 0.527196E+00_JPRB, 0.513048E+00_JPRB, 0.499052E+00_JPRB &
+  &, 0.485237E+00_JPRB, 0.471631E+00_JPRB, 0.458221E+00_JPRB &
+  &, 0.444989E+00_JPRB, 0.431964E+00_JPRB, 0.419172E+00_JPRB, 0.406595E+00_JPRB &
+  &, 0.394211E+00_JPRB, 0.382047E+00_JPRB, 0.370126E+00_JPRB &
+  &, 0.358427E+00_JPRB, 0.346973E+00_JPRB, 0.335686E+00_JPRB, 0.324693E+00_JPRB &
+  &, 0.313912E+00_JPRB, 0.303366E+00_JPRB, 0.293023E+00_JPRB &
+  &, 0.282959E+00_JPRB, 0.273085E+00_JPRB, 0.263476E+00_JPRB, 0.254097E+00_JPRB &
+  &, 0.244909E+00_JPRB, 0.235988E+00_JPRB, 0.227295E+00_JPRB &
+  &, 0.218849E+00_JPRB, 0.210606E+00_JPRB, 0.202583E+00_JPRB, 0.194797E+00_JPRB &
+  &, 0.187200E+00_JPRB, 0.179872E+00_JPRB, 0.172765E+00_JPRB/)
+XCW( 744, :) = (/ &
+  &  0.106347E+01_JPRB, 0.107866E+01_JPRB, 0.109356E+01_JPRB, 0.110816E+01_JPRB &
+  &, 0.112244E+01_JPRB, 0.113640E+01_JPRB, 0.115002E+01_JPRB &
+  &, 0.116331E+01_JPRB, 0.117623E+01_JPRB, 0.118880E+01_JPRB, 0.120099E+01_JPRB &
+  &, 0.121280E+01_JPRB, 0.122423E+01_JPRB, 0.123525E+01_JPRB &
+  &, 0.124586E+01_JPRB, 0.125605E+01_JPRB, 0.126582E+01_JPRB, 0.127515E+01_JPRB &
+  &, 0.128404E+01_JPRB, 0.129248E+01_JPRB, 0.130047E+01_JPRB &
+  &, 0.130799E+01_JPRB, 0.131503E+01_JPRB, 0.132161E+01_JPRB, 0.132770E+01_JPRB &
+  &, 0.133330E+01_JPRB, 0.133840E+01_JPRB, 0.134301E+01_JPRB &
+  &, 0.134712E+01_JPRB, 0.135072E+01_JPRB, 0.135381E+01_JPRB, 0.135640E+01_JPRB &
+  &, 0.135846E+01_JPRB, 0.136002E+01_JPRB, 0.136105E+01_JPRB &
+  &, 0.136157E+01_JPRB, 0.136157E+01_JPRB, 0.136106E+01_JPRB, 0.136003E+01_JPRB &
+  &, 0.135849E+01_JPRB, 0.135643E+01_JPRB, 0.135387E+01_JPRB &
+  &, 0.135080E+01_JPRB, 0.134724E+01_JPRB, 0.134318E+01_JPRB, 0.133862E+01_JPRB &
+  &, 0.133359E+01_JPRB, 0.132806E+01_JPRB, 0.132207E+01_JPRB &
+  &, 0.131561E+01_JPRB, 0.130868E+01_JPRB, 0.130132E+01_JPRB, 0.129351E+01_JPRB &
+  &, 0.128525E+01_JPRB, 0.127657E+01_JPRB, 0.126749E+01_JPRB &
+  &, 0.125800E+01_JPRB, 0.124810E+01_JPRB, 0.123782E+01_JPRB, 0.122717E+01_JPRB &
+  &, 0.121614E+01_JPRB, 0.120478E+01_JPRB, 0.119308E+01_JPRB &
+  &, 0.118105E+01_JPRB, 0.116869E+01_JPRB, 0.115602E+01_JPRB, 0.114308E+01_JPRB &
+  &, 0.112986E+01_JPRB, 0.111636E+01_JPRB, 0.110262E+01_JPRB &
+  &, 0.108864E+01_JPRB, 0.107442E+01_JPRB, 0.105999E+01_JPRB, 0.104536E+01_JPRB &
+  &, 0.103056E+01_JPRB, 0.101556E+01_JPRB, 0.100041E+01_JPRB &
+  &, 0.985135E+00_JPRB, 0.969708E+00_JPRB, 0.954143E+00_JPRB, 0.938500E+00_JPRB &
+  &, 0.922738E+00_JPRB, 0.906917E+00_JPRB, 0.890993E+00_JPRB &
+  &, 0.875055E+00_JPRB, 0.859057E+00_JPRB, 0.843003E+00_JPRB, 0.826959E+00_JPRB &
+  &, 0.810902E+00_JPRB, 0.794867E+00_JPRB, 0.778827E+00_JPRB &
+  &, 0.762819E+00_JPRB, 0.746844E+00_JPRB, 0.730904E+00_JPRB, 0.715068E+00_JPRB &
+  &, 0.699269E+00_JPRB, 0.683576E+00_JPRB, 0.667953E+00_JPRB &
+  &, 0.652433E+00_JPRB, 0.637013E+00_JPRB, 0.621727E+00_JPRB, 0.606569E+00_JPRB &
+  &, 0.591535E+00_JPRB, 0.576657E+00_JPRB, 0.561926E+00_JPRB &
+  &, 0.547375E+00_JPRB, 0.532953E+00_JPRB, 0.518691E+00_JPRB, 0.504658E+00_JPRB &
+  &, 0.490761E+00_JPRB, 0.477069E+00_JPRB, 0.463611E+00_JPRB &
+  &, 0.450284E+00_JPRB, 0.437204E+00_JPRB, 0.424354E+00_JPRB, 0.411668E+00_JPRB &
+  &, 0.399218E+00_JPRB, 0.386984E+00_JPRB, 0.374990E+00_JPRB &
+  &, 0.363163E+00_JPRB, 0.351627E+00_JPRB, 0.340306E+00_JPRB, 0.329172E+00_JPRB &
+  &, 0.318297E+00_JPRB, 0.307654E+00_JPRB, 0.297264E+00_JPRB &
+  &, 0.287094E+00_JPRB, 0.277166E+00_JPRB, 0.267445E+00_JPRB, 0.257948E+00_JPRB &
+  &, 0.248755E+00_JPRB, 0.239710E+00_JPRB, 0.230949E+00_JPRB &
+  &, 0.222370E+00_JPRB, 0.214052E+00_JPRB, 0.205950E+00_JPRB, 0.198082E+00_JPRB &
+  &, 0.190401E+00_JPRB, 0.182985E+00_JPRB, 0.175787E+00_JPRB/)
+XCW( 745, :) = (/ &
+  &  0.106380E+01_JPRB, 0.107907E+01_JPRB, 0.109406E+01_JPRB, 0.110874E+01_JPRB &
+  &, 0.112311E+01_JPRB, 0.113716E+01_JPRB, 0.115088E+01_JPRB &
+  &, 0.116425E+01_JPRB, 0.117728E+01_JPRB, 0.118994E+01_JPRB, 0.120223E+01_JPRB &
+  &, 0.121414E+01_JPRB, 0.122566E+01_JPRB, 0.123677E+01_JPRB &
+  &, 0.124749E+01_JPRB, 0.125769E+01_JPRB, 0.126765E+01_JPRB, 0.127708E+01_JPRB &
+  &, 0.128608E+01_JPRB, 0.129462E+01_JPRB, 0.130271E+01_JPRB &
+  &, 0.131033E+01_JPRB, 0.131749E+01_JPRB, 0.132416E+01_JPRB, 0.133036E+01_JPRB &
+  &, 0.133606E+01_JPRB, 0.134128E+01_JPRB, 0.134599E+01_JPRB &
+  &, 0.135020E+01_JPRB, 0.135391E+01_JPRB, 0.135711E+01_JPRB, 0.135979E+01_JPRB &
+  &, 0.136197E+01_JPRB, 0.136362E+01_JPRB, 0.136476E+01_JPRB &
+  &, 0.136538E+01_JPRB, 0.136549E+01_JPRB, 0.136508E+01_JPRB, 0.136415E+01_JPRB &
+  &, 0.136270E+01_JPRB, 0.136075E+01_JPRB, 0.135828E+01_JPRB &
+  &, 0.135531E+01_JPRB, 0.135185E+01_JPRB, 0.134788E+01_JPRB, 0.134342E+01_JPRB &
+  &, 0.133846E+01_JPRB, 0.133303E+01_JPRB, 0.132703E+01_JPRB &
+  &, 0.132075E+01_JPRB, 0.131392E+01_JPRB, 0.130662E+01_JPRB, 0.129890E+01_JPRB &
+  &, 0.129073E+01_JPRB, 0.128212E+01_JPRB, 0.127310E+01_JPRB &
+  &, 0.126368E+01_JPRB, 0.125387E+01_JPRB, 0.124366E+01_JPRB, 0.123308E+01_JPRB &
+  &, 0.122212E+01_JPRB, 0.121081E+01_JPRB, 0.119916E+01_JPRB &
+  &, 0.118718E+01_JPRB, 0.117488E+01_JPRB, 0.116228E+01_JPRB, 0.114938E+01_JPRB &
+  &, 0.113619E+01_JPRB, 0.112275E+01_JPRB, 0.110904E+01_JPRB &
+  &, 0.109509E+01_JPRB, 0.108090E+01_JPRB, 0.106652E+01_JPRB, 0.105191E+01_JPRB &
+  &, 0.103713E+01_JPRB, 0.102217E+01_JPRB, 0.100704E+01_JPRB &
+  &, 0.991750E+00_JPRB, 0.976332E+00_JPRB, 0.960797E+00_JPRB, 0.945156E+00_JPRB &
+  &, 0.929392E+00_JPRB, 0.913566E+00_JPRB, 0.897661E+00_JPRB &
+  &, 0.881711E+00_JPRB, 0.865696E+00_JPRB, 0.849652E+00_JPRB, 0.833585E+00_JPRB &
+  &, 0.817501E+00_JPRB, 0.801434E+00_JPRB, 0.785359E+00_JPRB &
+  &, 0.769342E+00_JPRB, 0.753323E+00_JPRB, 0.737368E+00_JPRB, 0.721479E+00_JPRB &
+  &, 0.705657E+00_JPRB, 0.689903E+00_JPRB, 0.674249E+00_JPRB &
+  &, 0.658694E+00_JPRB, 0.643235E+00_JPRB, 0.627906E+00_JPRB, 0.612665E+00_JPRB &
+  &, 0.597580E+00_JPRB, 0.582646E+00_JPRB, 0.567855E+00_JPRB &
+  &, 0.553240E+00_JPRB, 0.538751E+00_JPRB, 0.524457E+00_JPRB, 0.510307E+00_JPRB &
+  &, 0.496371E+00_JPRB, 0.482593E+00_JPRB, 0.469045E+00_JPRB &
+  &, 0.455669E+00_JPRB, 0.442535E+00_JPRB, 0.429582E+00_JPRB, 0.416835E+00_JPRB &
+  &, 0.404272E+00_JPRB, 0.391969E+00_JPRB, 0.379853E+00_JPRB &
+  &, 0.367999E+00_JPRB, 0.356332E+00_JPRB, 0.344926E+00_JPRB, 0.333755E+00_JPRB &
+  &, 0.322788E+00_JPRB, 0.312049E+00_JPRB, 0.301558E+00_JPRB &
+  &, 0.291284E+00_JPRB, 0.281304E+00_JPRB, 0.271470E+00_JPRB, 0.261915E+00_JPRB &
+  &, 0.252602E+00_JPRB, 0.243491E+00_JPRB, 0.234602E+00_JPRB &
+  &, 0.226012E+00_JPRB, 0.217559E+00_JPRB, 0.209379E+00_JPRB, 0.201431E+00_JPRB &
+  &, 0.193666E+00_JPRB, 0.186163E+00_JPRB, 0.178876E+00_JPRB/)
+XCW( 746, :) = (/ &
+  &  0.106412E+01_JPRB, 0.107948E+01_JPRB, 0.109455E+01_JPRB, 0.110932E+01_JPRB &
+  &, 0.112379E+01_JPRB, 0.113793E+01_JPRB, 0.115174E+01_JPRB &
+  &, 0.116521E+01_JPRB, 0.117832E+01_JPRB, 0.119108E+01_JPRB, 0.120347E+01_JPRB &
+  &, 0.121547E+01_JPRB, 0.122709E+01_JPRB, 0.123831E+01_JPRB &
+  &, 0.124912E+01_JPRB, 0.125952E+01_JPRB, 0.126949E+01_JPRB, 0.127902E+01_JPRB &
+  &, 0.128812E+01_JPRB, 0.129677E+01_JPRB, 0.130496E+01_JPRB &
+  &, 0.131269E+01_JPRB, 0.131995E+01_JPRB, 0.132673E+01_JPRB, 0.133303E+01_JPRB &
+  &, 0.133884E+01_JPRB, 0.134416E+01_JPRB, 0.134898E+01_JPRB &
+  &, 0.135330E+01_JPRB, 0.135711E+01_JPRB, 0.136041E+01_JPRB, 0.136320E+01_JPRB &
+  &, 0.136548E+01_JPRB, 0.136724E+01_JPRB, 0.136848E+01_JPRB &
+  &, 0.136921E+01_JPRB, 0.136942E+01_JPRB, 0.136910E+01_JPRB, 0.136828E+01_JPRB &
+  &, 0.136694E+01_JPRB, 0.136508E+01_JPRB, 0.136272E+01_JPRB &
+  &, 0.135984E+01_JPRB, 0.135647E+01_JPRB, 0.135259E+01_JPRB, 0.134822E+01_JPRB &
+  &, 0.134337E+01_JPRB, 0.133803E+01_JPRB, 0.133221E+01_JPRB &
+  &, 0.132592E+01_JPRB, 0.131917E+01_JPRB, 0.131197E+01_JPRB, 0.130432E+01_JPRB &
+  &, 0.129622E+01_JPRB, 0.128770E+01_JPRB, 0.127877E+01_JPRB &
+  &, 0.126942E+01_JPRB, 0.125966E+01_JPRB, 0.124953E+01_JPRB, 0.123900E+01_JPRB &
+  &, 0.122811E+01_JPRB, 0.121687E+01_JPRB, 0.120529E+01_JPRB &
+  &, 0.119335E+01_JPRB, 0.118111E+01_JPRB, 0.116855E+01_JPRB, 0.115571E+01_JPRB &
+  &, 0.114257E+01_JPRB, 0.112916E+01_JPRB, 0.111550E+01_JPRB &
+  &, 0.110159E+01_JPRB, 0.108745E+01_JPRB, 0.107307E+01_JPRB, 0.105851E+01_JPRB &
+  &, 0.104375E+01_JPRB, 0.102881E+01_JPRB, 0.101369E+01_JPRB &
+  &, 0.998439E+00_JPRB, 0.983030E+00_JPRB, 0.967501E+00_JPRB, 0.951863E+00_JPRB &
+  &, 0.936125E+00_JPRB, 0.920269E+00_JPRB, 0.904383E+00_JPRB &
+  &, 0.888394E+00_JPRB, 0.872393E+00_JPRB, 0.856330E+00_JPRB, 0.840240E+00_JPRB &
+  &, 0.824159E+00_JPRB, 0.808062E+00_JPRB, 0.791984E+00_JPRB &
+  &, 0.775928E+00_JPRB, 0.759899E+00_JPRB, 0.743897E+00_JPRB, 0.727957E+00_JPRB &
+  &, 0.712113E+00_JPRB, 0.696298E+00_JPRB, 0.680614E+00_JPRB &
+  &, 0.664990E+00_JPRB, 0.649494E+00_JPRB, 0.634123E+00_JPRB, 0.618835E+00_JPRB &
+  &, 0.603700E+00_JPRB, 0.588712E+00_JPRB, 0.573864E+00_JPRB &
+  &, 0.559146E+00_JPRB, 0.544630E+00_JPRB, 0.530224E+00_JPRB, 0.516039E+00_JPRB &
+  &, 0.502023E+00_JPRB, 0.488204E+00_JPRB, 0.474568E+00_JPRB &
+  &, 0.461098E+00_JPRB, 0.447866E+00_JPRB, 0.434856E+00_JPRB, 0.422001E+00_JPRB &
+  &, 0.409422E+00_JPRB, 0.397003E+00_JPRB, 0.384815E+00_JPRB &
+  &, 0.372885E+00_JPRB, 0.361139E+00_JPRB, 0.349649E+00_JPRB, 0.338390E+00_JPRB &
+  &, 0.327332E+00_JPRB, 0.316497E+00_JPRB, 0.305907E+00_JPRB &
+  &, 0.295585E+00_JPRB, 0.285441E+00_JPRB, 0.275552E+00_JPRB, 0.265939E+00_JPRB &
+  &, 0.256507E+00_JPRB, 0.247332E+00_JPRB, 0.238375E+00_JPRB &
+  &, 0.229655E+00_JPRB, 0.221127E+00_JPRB, 0.212871E+00_JPRB, 0.204843E+00_JPRB &
+  &, 0.196994E+00_JPRB, 0.189406E+00_JPRB, 0.182030E+00_JPRB/)
+XCW( 747, :) = (/ &
+  &  0.106445E+01_JPRB, 0.107989E+01_JPRB, 0.109505E+01_JPRB, 0.110991E+01_JPRB &
+  &, 0.112446E+01_JPRB, 0.113869E+01_JPRB, 0.115260E+01_JPRB &
+  &, 0.116616E+01_JPRB, 0.117937E+01_JPRB, 0.119222E+01_JPRB, 0.120471E+01_JPRB &
+  &, 0.121681E+01_JPRB, 0.122853E+01_JPRB, 0.123985E+01_JPRB &
+  &, 0.125076E+01_JPRB, 0.126126E+01_JPRB, 0.127133E+01_JPRB, 0.128097E+01_JPRB &
+  &, 0.129017E+01_JPRB, 0.129892E+01_JPRB, 0.130722E+01_JPRB &
+  &, 0.131505E+01_JPRB, 0.132242E+01_JPRB, 0.132930E+01_JPRB, 0.133571E+01_JPRB &
+  &, 0.134163E+01_JPRB, 0.134705E+01_JPRB, 0.135198E+01_JPRB &
+  &, 0.135640E+01_JPRB, 0.136032E+01_JPRB, 0.136373E+01_JPRB, 0.136663E+01_JPRB &
+  &, 0.136901E+01_JPRB, 0.137088E+01_JPRB, 0.137222E+01_JPRB &
+  &, 0.137305E+01_JPRB, 0.137336E+01_JPRB, 0.137315E+01_JPRB, 0.137243E+01_JPRB &
+  &, 0.137118E+01_JPRB, 0.136943E+01_JPRB, 0.136716E+01_JPRB &
+  &, 0.136439E+01_JPRB, 0.136111E+01_JPRB, 0.135733E+01_JPRB, 0.135306E+01_JPRB &
+  &, 0.134830E+01_JPRB, 0.134304E+01_JPRB, 0.133732E+01_JPRB &
+  &, 0.133111E+01_JPRB, 0.132446E+01_JPRB, 0.131733E+01_JPRB, 0.130977E+01_JPRB &
+  &, 0.130175E+01_JPRB, 0.129330E+01_JPRB, 0.128445E+01_JPRB &
+  &, 0.127517E+01_JPRB, 0.126549E+01_JPRB, 0.125542E+01_JPRB, 0.124498E+01_JPRB &
+  &, 0.123414E+01_JPRB, 0.122296E+01_JPRB, 0.121143E+01_JPRB &
+  &, 0.119957E+01_JPRB, 0.118738E+01_JPRB, 0.117489E+01_JPRB, 0.116207E+01_JPRB &
+  &, 0.114898E+01_JPRB, 0.113563E+01_JPRB, 0.112197E+01_JPRB &
+  &, 0.110813E+01_JPRB, 0.109402E+01_JPRB, 0.107969E+01_JPRB, 0.106515E+01_JPRB &
+  &, 0.105041E+01_JPRB, 0.103549E+01_JPRB, 0.102039E+01_JPRB &
+  &, 0.100515E+01_JPRB, 0.989753E+00_JPRB, 0.974256E+00_JPRB, 0.958596E+00_JPRB &
+  &, 0.942858E+00_JPRB, 0.927052E+00_JPRB, 0.911132E+00_JPRB &
+  &, 0.895161E+00_JPRB, 0.879118E+00_JPRB, 0.863066E+00_JPRB, 0.846954E+00_JPRB &
+  &, 0.830847E+00_JPRB, 0.814751E+00_JPRB, 0.798639E+00_JPRB &
+  &, 0.782546E+00_JPRB, 0.766474E+00_JPRB, 0.750459E+00_JPRB, 0.734501E+00_JPRB &
+  &, 0.718603E+00_JPRB, 0.702763E+00_JPRB, 0.687015E+00_JPRB &
+  &, 0.671358E+00_JPRB, 0.655825E+00_JPRB, 0.640376E+00_JPRB, 0.625044E+00_JPRB &
+  &, 0.609859E+00_JPRB, 0.594818E+00_JPRB, 0.579912E+00_JPRB &
+  &, 0.565133E+00_JPRB, 0.550551E+00_JPRB, 0.536115E+00_JPRB, 0.521814E+00_JPRB &
+  &, 0.507762E+00_JPRB, 0.493859E+00_JPRB, 0.480135E+00_JPRB &
+  &, 0.466617E+00_JPRB, 0.453288E+00_JPRB, 0.440176E+00_JPRB, 0.427262E+00_JPRB &
+  &, 0.414572E+00_JPRB, 0.402085E+00_JPRB, 0.389826E+00_JPRB &
+  &, 0.377821E+00_JPRB, 0.365995E+00_JPRB, 0.354423E+00_JPRB, 0.343026E+00_JPRB &
+  &, 0.331929E+00_JPRB, 0.320999E+00_JPRB, 0.310365E+00_JPRB &
+  &, 0.299885E+00_JPRB, 0.289691E+00_JPRB, 0.279748E+00_JPRB, 0.269963E+00_JPRB &
+  &, 0.260470E+00_JPRB, 0.251231E+00_JPRB, 0.242148E+00_JPRB &
+  &, 0.233357E+00_JPRB, 0.224757E+00_JPRB, 0.216425E+00_JPRB, 0.208254E+00_JPRB &
+  &, 0.200259E+00_JPRB, 0.192649E+00_JPRB, 0.185184E+00_JPRB/)
+XCW( 748, :) = (/ &
+  &  0.106477E+01_JPRB, 0.108031E+01_JPRB, 0.109555E+01_JPRB, 0.111050E+01_JPRB &
+  &, 0.112514E+01_JPRB, 0.113946E+01_JPRB, 0.115346E+01_JPRB &
+  &, 0.116711E+01_JPRB, 0.118042E+01_JPRB, 0.119337E+01_JPRB, 0.120595E+01_JPRB &
+  &, 0.121815E+01_JPRB, 0.122997E+01_JPRB, 0.124139E+01_JPRB &
+  &, 0.125240E+01_JPRB, 0.126300E+01_JPRB, 0.127318E+01_JPRB, 0.128292E+01_JPRB &
+  &, 0.129222E+01_JPRB, 0.130108E+01_JPRB, 0.130948E+01_JPRB &
+  &, 0.131742E+01_JPRB, 0.132489E+01_JPRB, 0.133189E+01_JPRB, 0.133840E+01_JPRB &
+  &, 0.134443E+01_JPRB, 0.134996E+01_JPRB, 0.135499E+01_JPRB &
+  &, 0.135952E+01_JPRB, 0.136354E+01_JPRB, 0.136706E+01_JPRB, 0.137006E+01_JPRB &
+  &, 0.137255E+01_JPRB, 0.137452E+01_JPRB, 0.137597E+01_JPRB &
+  &, 0.137691E+01_JPRB, 0.137732E+01_JPRB, 0.137722E+01_JPRB, 0.137659E+01_JPRB &
+  &, 0.137545E+01_JPRB, 0.137380E+01_JPRB, 0.137163E+01_JPRB &
+  &, 0.136896E+01_JPRB, 0.136578E+01_JPRB, 0.136209E+01_JPRB, 0.135792E+01_JPRB &
+  &, 0.135323E+01_JPRB, 0.134808E+01_JPRB, 0.134245E+01_JPRB &
+  &, 0.133633E+01_JPRB, 0.132976E+01_JPRB, 0.132272E+01_JPRB, 0.131523E+01_JPRB &
+  &, 0.130730E+01_JPRB, 0.129894E+01_JPRB, 0.129016E+01_JPRB &
+  &, 0.128096E+01_JPRB, 0.127135E+01_JPRB, 0.126136E+01_JPRB, 0.125097E+01_JPRB &
+  &, 0.124022E+01_JPRB, 0.122909E+01_JPRB, 0.121762E+01_JPRB &
+  &, 0.120582E+01_JPRB, 0.119367E+01_JPRB, 0.118124E+01_JPRB, 0.116848E+01_JPRB &
+  &, 0.115543E+01_JPRB, 0.114212E+01_JPRB, 0.112853E+01_JPRB &
+  &, 0.111471E+01_JPRB, 0.110063E+01_JPRB, 0.108633E+01_JPRB, 0.107181E+01_JPRB &
+  &, 0.105710E+01_JPRB, 0.104222E+01_JPRB, 0.102714E+01_JPRB &
+  &, 0.101191E+01_JPRB, 0.996550E+00_JPRB, 0.981036E+00_JPRB, 0.965407E+00_JPRB &
+  &, 0.949670E+00_JPRB, 0.933835E+00_JPRB, 0.917936E+00_JPRB &
+  &, 0.901956E+00_JPRB, 0.885927E+00_JPRB, 0.869859E+00_JPRB, 0.853727E+00_JPRB &
+  &, 0.837626E+00_JPRB, 0.821471E+00_JPRB, 0.805357E+00_JPRB &
+  &, 0.789227E+00_JPRB, 0.773147E+00_JPRB, 0.757086E+00_JPRB, 0.741113E+00_JPRB &
+  &, 0.725160E+00_JPRB, 0.709297E+00_JPRB, 0.693522E+00_JPRB &
+  &, 0.677797E+00_JPRB, 0.662192E+00_JPRB, 0.646704E+00_JPRB, 0.631327E+00_JPRB &
+  &, 0.616095E+00_JPRB, 0.600962E+00_JPRB, 0.586000E+00_JPRB &
+  &, 0.571199E+00_JPRB, 0.556512E+00_JPRB, 0.542007E+00_JPRB, 0.527674E+00_JPRB &
+  &, 0.513543E+00_JPRB, 0.499558E+00_JPRB, 0.485790E+00_JPRB &
+  &, 0.472181E+00_JPRB, 0.458802E+00_JPRB, 0.445589E+00_JPRB, 0.432617E+00_JPRB &
+  &, 0.419817E+00_JPRB, 0.407264E+00_JPRB, 0.394935E+00_JPRB &
+  &, 0.382807E+00_JPRB, 0.370903E+00_JPRB, 0.359249E+00_JPRB, 0.347765E+00_JPRB &
+  &, 0.336579E+00_JPRB, 0.325555E+00_JPRB, 0.314823E+00_JPRB &
+  &, 0.304296E+00_JPRB, 0.293996E+00_JPRB, 0.283943E+00_JPRB, 0.274102E+00_JPRB &
+  &, 0.264491E+00_JPRB, 0.255131E+00_JPRB, 0.246041E+00_JPRB &
+  &, 0.237121E+00_JPRB, 0.228448E+00_JPRB, 0.219979E+00_JPRB, 0.211792E+00_JPRB &
+  &, 0.203780E+00_JPRB, 0.196022E+00_JPRB, 0.188404E+00_JPRB/)
+XCW( 749, :) = (/ &
+  &  0.106510E+01_JPRB, 0.108072E+01_JPRB, 0.109605E+01_JPRB, 0.111109E+01_JPRB &
+  &, 0.112582E+01_JPRB, 0.114023E+01_JPRB, 0.115432E+01_JPRB &
+  &, 0.116807E+01_JPRB, 0.118147E+01_JPRB, 0.119452E+01_JPRB, 0.120720E+01_JPRB &
+  &, 0.121950E+01_JPRB, 0.123142E+01_JPRB, 0.124294E+01_JPRB &
+  &, 0.125405E+01_JPRB, 0.126475E+01_JPRB, 0.127503E+01_JPRB, 0.128488E+01_JPRB &
+  &, 0.129429E+01_JPRB, 0.130325E+01_JPRB, 0.131176E+01_JPRB &
+  &, 0.131980E+01_JPRB, 0.132738E+01_JPRB, 0.133448E+01_JPRB, 0.134110E+01_JPRB &
+  &, 0.134723E+01_JPRB, 0.135287E+01_JPRB, 0.135801E+01_JPRB &
+  &, 0.136265E+01_JPRB, 0.136678E+01_JPRB, 0.137040E+01_JPRB, 0.137351E+01_JPRB &
+  &, 0.137611E+01_JPRB, 0.137819E+01_JPRB, 0.137974E+01_JPRB &
+  &, 0.138078E+01_JPRB, 0.138130E+01_JPRB, 0.138130E+01_JPRB, 0.138078E+01_JPRB &
+  &, 0.137973E+01_JPRB, 0.137818E+01_JPRB, 0.137612E+01_JPRB &
+  &, 0.137354E+01_JPRB, 0.137045E+01_JPRB, 0.136687E+01_JPRB, 0.136278E+01_JPRB &
+  &, 0.135821E+01_JPRB, 0.135314E+01_JPRB, 0.134759E+01_JPRB &
+  &, 0.134157E+01_JPRB, 0.133509E+01_JPRB, 0.132814E+01_JPRB, 0.132073E+01_JPRB &
+  &, 0.131288E+01_JPRB, 0.130461E+01_JPRB, 0.129589E+01_JPRB &
+  &, 0.128677E+01_JPRB, 0.127725E+01_JPRB, 0.126731E+01_JPRB, 0.125699E+01_JPRB &
+  &, 0.124631E+01_JPRB, 0.123525E+01_JPRB, 0.122384E+01_JPRB &
+  &, 0.121210E+01_JPRB, 0.120002E+01_JPRB, 0.118762E+01_JPRB, 0.117493E+01_JPRB &
+  &, 0.116192E+01_JPRB, 0.114865E+01_JPRB, 0.113512E+01_JPRB &
+  &, 0.112133E+01_JPRB, 0.110728E+01_JPRB, 0.109301E+01_JPRB, 0.107854E+01_JPRB &
+  &, 0.106386E+01_JPRB, 0.104898E+01_JPRB, 0.103394E+01_JPRB &
+  &, 0.101872E+01_JPRB, 0.100337E+01_JPRB, 0.987867E+00_JPRB, 0.972269E+00_JPRB &
+  &, 0.956534E+00_JPRB, 0.940698E+00_JPRB, 0.924795E+00_JPRB &
+  &, 0.908806E+00_JPRB, 0.892766E+00_JPRB, 0.876681E+00_JPRB, 0.860559E+00_JPRB &
+  &, 0.844434E+00_JPRB, 0.828282E+00_JPRB, 0.812106E+00_JPRB &
+  &, 0.795972E+00_JPRB, 0.779852E+00_JPRB, 0.763779E+00_JPRB, 0.747757E+00_JPRB &
+  &, 0.731786E+00_JPRB, 0.715865E+00_JPRB, 0.700028E+00_JPRB &
+  &, 0.684308E+00_JPRB, 0.668633E+00_JPRB, 0.653105E+00_JPRB, 0.637686E+00_JPRB &
+  &, 0.622368E+00_JPRB, 0.607224E+00_JPRB, 0.592166E+00_JPRB &
+  &, 0.577306E+00_JPRB, 0.562554E+00_JPRB, 0.547981E+00_JPRB, 0.533575E+00_JPRB &
+  &, 0.519367E+00_JPRB, 0.505343E+00_JPRB, 0.491446E+00_JPRB &
+  &, 0.477790E+00_JPRB, 0.464315E+00_JPRB, 0.451049E+00_JPRB, 0.437972E+00_JPRB &
+  &, 0.425158E+00_JPRB, 0.412491E+00_JPRB, 0.400093E+00_JPRB &
+  &, 0.387842E+00_JPRB, 0.375861E+00_JPRB, 0.364126E+00_JPRB, 0.352609E+00_JPRB &
+  &, 0.341281E+00_JPRB, 0.330218E+00_JPRB, 0.319335E+00_JPRB &
+  &, 0.308762E+00_JPRB, 0.298357E+00_JPRB, 0.288195E+00_JPRB, 0.278298E+00_JPRB &
+  &, 0.268629E+00_JPRB, 0.259148E+00_JPRB, 0.249934E+00_JPRB &
+  &, 0.240946E+00_JPRB, 0.232201E+00_JPRB, 0.223657E+00_JPRB, 0.215331E+00_JPRB &
+  &, 0.207237E+00_JPRB, 0.199395E+00_JPRB, 0.191755E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART107',1,ZHOOK_HANDLE)
+END SUBROUTINE PART107
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART108
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART108',0,ZHOOK_HANDLE)
+
+XCW( 750, :) = (/ &
+  &  0.106543E+01_JPRB, 0.108113E+01_JPRB, 0.109655E+01_JPRB, 0.111168E+01_JPRB &
+  &, 0.112650E+01_JPRB, 0.114101E+01_JPRB, 0.115519E+01_JPRB &
+  &, 0.116903E+01_JPRB, 0.118253E+01_JPRB, 0.119567E+01_JPRB, 0.120845E+01_JPRB &
+  &, 0.122085E+01_JPRB, 0.123287E+01_JPRB, 0.124449E+01_JPRB &
+  &, 0.125570E+01_JPRB, 0.126651E+01_JPRB, 0.127689E+01_JPRB, 0.128684E+01_JPRB &
+  &, 0.129636E+01_JPRB, 0.130542E+01_JPRB, 0.131403E+01_JPRB &
+  &, 0.132219E+01_JPRB, 0.132987E+01_JPRB, 0.133708E+01_JPRB, 0.134381E+01_JPRB &
+  &, 0.135004E+01_JPRB, 0.135579E+01_JPRB, 0.136104E+01_JPRB &
+  &, 0.136579E+01_JPRB, 0.137003E+01_JPRB, 0.137376E+01_JPRB, 0.137697E+01_JPRB &
+  &, 0.137967E+01_JPRB, 0.138186E+01_JPRB, 0.138352E+01_JPRB &
+  &, 0.138467E+01_JPRB, 0.138529E+01_JPRB, 0.138540E+01_JPRB, 0.138497E+01_JPRB &
+  &, 0.138404E+01_JPRB, 0.138259E+01_JPRB, 0.138062E+01_JPRB &
+  &, 0.137815E+01_JPRB, 0.137517E+01_JPRB, 0.137167E+01_JPRB, 0.136768E+01_JPRB &
+  &, 0.136320E+01_JPRB, 0.135822E+01_JPRB, 0.135277E+01_JPRB &
+  &, 0.134684E+01_JPRB, 0.134044E+01_JPRB, 0.133357E+01_JPRB, 0.132625E+01_JPRB &
+  &, 0.131849E+01_JPRB, 0.131029E+01_JPRB, 0.130166E+01_JPRB &
+  &, 0.129262E+01_JPRB, 0.128316E+01_JPRB, 0.127330E+01_JPRB, 0.126305E+01_JPRB &
+  &, 0.125244E+01_JPRB, 0.124145E+01_JPRB, 0.123010E+01_JPRB &
+  &, 0.121841E+01_JPRB, 0.120640E+01_JPRB, 0.119405E+01_JPRB, 0.118140E+01_JPRB &
+  &, 0.116845E+01_JPRB, 0.115522E+01_JPRB, 0.114173E+01_JPRB &
+  &, 0.112797E+01_JPRB, 0.111398E+01_JPRB, 0.109976E+01_JPRB, 0.108530E+01_JPRB &
+  &, 0.107064E+01_JPRB, 0.105580E+01_JPRB, 0.104078E+01_JPRB &
+  &, 0.102558E+01_JPRB, 0.101024E+01_JPRB, 0.994749E+00_JPRB, 0.979156E+00_JPRB &
+  &, 0.963425E+00_JPRB, 0.947615E+00_JPRB, 0.931709E+00_JPRB &
+  &, 0.915712E+00_JPRB, 0.899661E+00_JPRB, 0.883561E+00_JPRB, 0.867450E+00_JPRB &
+  &, 0.851273E+00_JPRB, 0.835124E+00_JPRB, 0.818949E+00_JPRB &
+  &, 0.802780E+00_JPRB, 0.786621E+00_JPRB, 0.770538E+00_JPRB, 0.754469E+00_JPRB &
+  &, 0.738446E+00_JPRB, 0.722503E+00_JPRB, 0.706640E+00_JPRB &
+  &, 0.690855E+00_JPRB, 0.675146E+00_JPRB, 0.659544E+00_JPRB, 0.644082E+00_JPRB &
+  &, 0.628719E+00_JPRB, 0.613485E+00_JPRB, 0.598412E+00_JPRB &
+  &, 0.583453E+00_JPRB, 0.568679E+00_JPRB, 0.554038E+00_JPRB, 0.539561E+00_JPRB &
+  &, 0.525276E+00_JPRB, 0.511172E+00_JPRB, 0.497233E+00_JPRB &
+  &, 0.483488E+00_JPRB, 0.469919E+00_JPRB, 0.456600E+00_JPRB, 0.443420E+00_JPRB &
+  &, 0.430499E+00_JPRB, 0.417767E+00_JPRB, 0.405252E+00_JPRB &
+  &, 0.392977E+00_JPRB, 0.380920E+00_JPRB, 0.369054E+00_JPRB, 0.357452E+00_JPRB &
+  &, 0.346036E+00_JPRB, 0.334881E+00_JPRB, 0.323956E+00_JPRB &
+  &, 0.313228E+00_JPRB, 0.302774E+00_JPRB, 0.292561E+00_JPRB, 0.282552E+00_JPRB &
+  &, 0.272767E+00_JPRB, 0.263225E+00_JPRB, 0.253887E+00_JPRB &
+  &, 0.244831E+00_JPRB, 0.235954E+00_JPRB, 0.227336E+00_JPRB, 0.218932E+00_JPRB &
+  &, 0.210758E+00_JPRB, 0.202833E+00_JPRB, 0.195106E+00_JPRB/)
+XCW( 751, :) = (/ &
+  &  0.106576E+01_JPRB, 0.108155E+01_JPRB, 0.109706E+01_JPRB, 0.111227E+01_JPRB &
+  &, 0.112718E+01_JPRB, 0.114178E+01_JPRB, 0.115606E+01_JPRB &
+  &, 0.117000E+01_JPRB, 0.118359E+01_JPRB, 0.119683E+01_JPRB, 0.120971E+01_JPRB &
+  &, 0.122221E+01_JPRB, 0.123432E+01_JPRB, 0.124604E+01_JPRB &
+  &, 0.125736E+01_JPRB, 0.126827E+01_JPRB, 0.127876E+01_JPRB, 0.128881E+01_JPRB &
+  &, 0.129843E+01_JPRB, 0.130760E+01_JPRB, 0.131632E+01_JPRB &
+  &, 0.132458E+01_JPRB, 0.133237E+01_JPRB, 0.133969E+01_JPRB, 0.134652E+01_JPRB &
+  &, 0.135287E+01_JPRB, 0.135873E+01_JPRB, 0.136408E+01_JPRB &
+  &, 0.136894E+01_JPRB, 0.137328E+01_JPRB, 0.137712E+01_JPRB, 0.138045E+01_JPRB &
+  &, 0.138326E+01_JPRB, 0.138555E+01_JPRB, 0.138732E+01_JPRB &
+  &, 0.138857E+01_JPRB, 0.138929E+01_JPRB, 0.138950E+01_JPRB, 0.138919E+01_JPRB &
+  &, 0.138836E+01_JPRB, 0.138701E+01_JPRB, 0.138515E+01_JPRB &
+  &, 0.138278E+01_JPRB, 0.137989E+01_JPRB, 0.137649E+01_JPRB, 0.137261E+01_JPRB &
+  &, 0.136821E+01_JPRB, 0.136333E+01_JPRB, 0.135797E+01_JPRB &
+  &, 0.135214E+01_JPRB, 0.134581E+01_JPRB, 0.133904E+01_JPRB, 0.133181E+01_JPRB &
+  &, 0.132412E+01_JPRB, 0.131601E+01_JPRB, 0.130746E+01_JPRB &
+  &, 0.129849E+01_JPRB, 0.128911E+01_JPRB, 0.127932E+01_JPRB, 0.126914E+01_JPRB &
+  &, 0.125860E+01_JPRB, 0.124768E+01_JPRB, 0.123639E+01_JPRB &
+  &, 0.122476E+01_JPRB, 0.121280E+01_JPRB, 0.120052E+01_JPRB, 0.118791E+01_JPRB &
+  &, 0.117502E+01_JPRB, 0.116185E+01_JPRB, 0.114840E+01_JPRB &
+  &, 0.113468E+01_JPRB, 0.112072E+01_JPRB, 0.110653E+01_JPRB, 0.109210E+01_JPRB &
+  &, 0.107748E+01_JPRB, 0.106267E+01_JPRB, 0.104767E+01_JPRB &
+  &, 0.103249E+01_JPRB, 0.101716E+01_JPRB, 0.100171E+01_JPRB, 0.986096E+00_JPRB &
+  &, 0.970395E+00_JPRB, 0.954559E+00_JPRB, 0.938649E+00_JPRB &
+  &, 0.922674E+00_JPRB, 0.906613E+00_JPRB, 0.890528E+00_JPRB, 0.874370E+00_JPRB &
+  &, 0.858201E+00_JPRB, 0.841997E+00_JPRB, 0.825822E+00_JPRB &
+  &, 0.809620E+00_JPRB, 0.793454E+00_JPRB, 0.777330E+00_JPRB, 0.761214E+00_JPRB &
+  &, 0.745173E+00_JPRB, 0.729209E+00_JPRB, 0.713287E+00_JPRB &
+  &, 0.697438E+00_JPRB, 0.681149E+00_JPRB, 0.666056E+00_JPRB, 0.650554E+00_JPRB &
+  &, 0.635145E+00_JPRB, 0.619862E+00_JPRB, 0.604697E+00_JPRB &
+  &, 0.589680E+00_JPRB, 0.574844E+00_JPRB, 0.560137E+00_JPRB, 0.545588E+00_JPRB &
+  &, 0.531229E+00_JPRB, 0.517045E+00_JPRB, 0.503065E+00_JPRB &
+  &, 0.489232E+00_JPRB, 0.475615E+00_JPRB, 0.462198E+00_JPRB, 0.448963E+00_JPRB &
+  &, 0.435934E+00_JPRB, 0.423140E+00_JPRB, 0.410557E+00_JPRB &
+  &, 0.398162E+00_JPRB, 0.386030E+00_JPRB, 0.374084E+00_JPRB, 0.362348E+00_JPRB &
+  &, 0.350897E+00_JPRB, 0.339651E+00_JPRB, 0.328631E+00_JPRB &
+  &, 0.317804E+00_JPRB, 0.307247E+00_JPRB, 0.296927E+00_JPRB, 0.286806E+00_JPRB &
+  &, 0.276963E+00_JPRB, 0.267361E+00_JPRB, 0.257959E+00_JPRB &
+  &, 0.248776E+00_JPRB, 0.239830E+00_JPRB, 0.231077E+00_JPRB, 0.222596E+00_JPRB &
+  &, 0.214343E+00_JPRB, 0.206335E+00_JPRB, 0.198458E+00_JPRB/)
+XCW( 752, :) = (/ &
+  &  0.106609E+01_JPRB, 0.108196E+01_JPRB, 0.109756E+01_JPRB, 0.111287E+01_JPRB &
+  &, 0.112787E+01_JPRB, 0.114256E+01_JPRB, 0.115693E+01_JPRB &
+  &, 0.117096E+01_JPRB, 0.118465E+01_JPRB, 0.119799E+01_JPRB, 0.121096E+01_JPRB &
+  &, 0.122356E+01_JPRB, 0.123578E+01_JPRB, 0.124760E+01_JPRB &
+  &, 0.125902E+01_JPRB, 0.127004E+01_JPRB, 0.128063E+01_JPRB, 0.129079E+01_JPRB &
+  &, 0.130051E+01_JPRB, 0.130979E+01_JPRB, 0.131862E+01_JPRB &
+  &, 0.132698E+01_JPRB, 0.133488E+01_JPRB, 0.134231E+01_JPRB, 0.134925E+01_JPRB &
+  &, 0.135570E+01_JPRB, 0.136167E+01_JPRB, 0.136713E+01_JPRB &
+  &, 0.137210E+01_JPRB, 0.137655E+01_JPRB, 0.138050E+01_JPRB, 0.138394E+01_JPRB &
+  &, 0.138685E+01_JPRB, 0.138925E+01_JPRB, 0.139113E+01_JPRB &
+  &, 0.139249E+01_JPRB, 0.139332E+01_JPRB, 0.139364E+01_JPRB, 0.139339E+01_JPRB &
+  &, 0.139270E+01_JPRB, 0.139146E+01_JPRB, 0.138970E+01_JPRB &
+  &, 0.138742E+01_JPRB, 0.138463E+01_JPRB, 0.138134E+01_JPRB, 0.137754E+01_JPRB &
+  &, 0.137325E+01_JPRB, 0.136847E+01_JPRB, 0.136320E+01_JPRB &
+  &, 0.135745E+01_JPRB, 0.135123E+01_JPRB, 0.134454E+01_JPRB, 0.133739E+01_JPRB &
+  &, 0.132979E+01_JPRB, 0.132175E+01_JPRB, 0.131329E+01_JPRB &
+  &, 0.130439E+01_JPRB, 0.129509E+01_JPRB, 0.128539E+01_JPRB, 0.127528E+01_JPRB &
+  &, 0.126480E+01_JPRB, 0.125393E+01_JPRB, 0.124272E+01_JPRB &
+  &, 0.123115E+01_JPRB, 0.121925E+01_JPRB, 0.120702E+01_JPRB, 0.119448E+01_JPRB &
+  &, 0.118163E+01_JPRB, 0.116850E+01_JPRB, 0.115509E+01_JPRB &
+  &, 0.114143E+01_JPRB, 0.112750E+01_JPRB, 0.111334E+01_JPRB, 0.109896E+01_JPRB &
+  &, 0.108435E+01_JPRB, 0.106956E+01_JPRB, 0.105458E+01_JPRB &
+  &, 0.103945E+01_JPRB, 0.102414E+01_JPRB, 0.100869E+01_JPRB, 0.993087E+00_JPRB &
+  &, 0.977391E+00_JPRB, 0.961583E+00_JPRB, 0.945672E+00_JPRB &
+  &, 0.929691E+00_JPRB, 0.913621E+00_JPRB, 0.897524E+00_JPRB, 0.881349E+00_JPRB &
+  &, 0.865160E+00_JPRB, 0.848961E+00_JPRB, 0.832758E+00_JPRB &
+  &, 0.816554E+00_JPRB, 0.800353E+00_JPRB, 0.784187E+00_JPRB, 0.768059E+00_JPRB &
+  &, 0.751969E+00_JPRB, 0.735951E+00_JPRB, 0.720004E+00_JPRB &
+  &, 0.704128E+00_JPRB, 0.688281E+00_JPRB, 0.672642E+00_JPRB, 0.657063E+00_JPRB &
+  &, 0.641610E+00_JPRB, 0.626279E+00_JPRB, 0.611062E+00_JPRB &
+  &, 0.595988E+00_JPRB, 0.581050E+00_JPRB, 0.566319E+00_JPRB, 0.551700E+00_JPRB &
+  &, 0.537267E+00_JPRB, 0.523004E+00_JPRB, 0.508942E+00_JPRB &
+  &, 0.495020E+00_JPRB, 0.481356E+00_JPRB, 0.467843E+00_JPRB, 0.454553E+00_JPRB &
+  &, 0.441418E+00_JPRB, 0.428561E+00_JPRB, 0.415863E+00_JPRB &
+  &, 0.403397E+00_JPRB, 0.391191E+00_JPRB, 0.379167E+00_JPRB, 0.367348E+00_JPRB &
+  &, 0.355811E+00_JPRB, 0.344475E+00_JPRB, 0.333360E+00_JPRB &
+  &, 0.322435E+00_JPRB, 0.311776E+00_JPRB, 0.301406E+00_JPRB, 0.291175E+00_JPRB &
+  &, 0.281218E+00_JPRB, 0.271497E+00_JPRB, 0.262032E+00_JPRB &
+  &, 0.252783E+00_JPRB, 0.243706E+00_JPRB, 0.234943E+00_JPRB, 0.226324E+00_JPRB &
+  &, 0.217992E+00_JPRB, 0.209838E+00_JPRB, 0.201940E+00_JPRB/)
+XCW( 753, :) = (/ &
+  &  0.106642E+01_JPRB, 0.108238E+01_JPRB, 0.109807E+01_JPRB, 0.111346E+01_JPRB &
+  &, 0.112856E+01_JPRB, 0.114334E+01_JPRB, 0.115780E+01_JPRB &
+  &, 0.117193E+01_JPRB, 0.118572E+01_JPRB, 0.119915E+01_JPRB, 0.121223E+01_JPRB &
+  &, 0.122493E+01_JPRB, 0.123724E+01_JPRB, 0.124917E+01_JPRB &
+  &, 0.126069E+01_JPRB, 0.127181E+01_JPRB, 0.128250E+01_JPRB, 0.129277E+01_JPRB &
+  &, 0.130260E+01_JPRB, 0.131199E+01_JPRB, 0.132092E+01_JPRB &
+  &, 0.132939E+01_JPRB, 0.133740E+01_JPRB, 0.134493E+01_JPRB, 0.135198E+01_JPRB &
+  &, 0.135855E+01_JPRB, 0.136462E+01_JPRB, 0.137020E+01_JPRB &
+  &, 0.137527E+01_JPRB, 0.137984E+01_JPRB, 0.138390E+01_JPRB, 0.138744E+01_JPRB &
+  &, 0.139046E+01_JPRB, 0.139297E+01_JPRB, 0.139496E+01_JPRB &
+  &, 0.139642E+01_JPRB, 0.139736E+01_JPRB, 0.139778E+01_JPRB, 0.139768E+01_JPRB &
+  &, 0.139705E+01_JPRB, 0.139592E+01_JPRB, 0.139426E+01_JPRB &
+  &, 0.139208E+01_JPRB, 0.138940E+01_JPRB, 0.138621E+01_JPRB, 0.138250E+01_JPRB &
+  &, 0.137831E+01_JPRB, 0.137362E+01_JPRB, 0.136845E+01_JPRB &
+  &, 0.136279E+01_JPRB, 0.135666E+01_JPRB, 0.135005E+01_JPRB, 0.134299E+01_JPRB &
+  &, 0.133548E+01_JPRB, 0.132754E+01_JPRB, 0.131914E+01_JPRB &
+  &, 0.131033E+01_JPRB, 0.130110E+01_JPRB, 0.129147E+01_JPRB, 0.128144E+01_JPRB &
+  &, 0.127103E+01_JPRB, 0.126023E+01_JPRB, 0.124908E+01_JPRB &
+  &, 0.123757E+01_JPRB, 0.122573E+01_JPRB, 0.121356E+01_JPRB, 0.120106E+01_JPRB &
+  &, 0.118826E+01_JPRB, 0.117519E+01_JPRB, 0.116182E+01_JPRB &
+  &, 0.114819E+01_JPRB, 0.113432E+01_JPRB, 0.112020E+01_JPRB, 0.110585E+01_JPRB &
+  &, 0.109129E+01_JPRB, 0.107653E+01_JPRB, 0.106157E+01_JPRB &
+  &, 0.104643E+01_JPRB, 0.103116E+01_JPRB, 0.101570E+01_JPRB, 0.100013E+01_JPRB &
+  &, 0.984439E+00_JPRB, 0.968634E+00_JPRB, 0.952722E+00_JPRB &
+  &, 0.936737E+00_JPRB, 0.920687E+00_JPRB, 0.904549E+00_JPRB, 0.888387E+00_JPRB &
+  &, 0.872208E+00_JPRB, 0.855986E+00_JPRB, 0.839756E+00_JPRB &
+  &, 0.823521E+00_JPRB, 0.807283E+00_JPRB, 0.791110E+00_JPRB, 0.774937E+00_JPRB &
+  &, 0.758832E+00_JPRB, 0.742761E+00_JPRB, 0.726757E+00_JPRB &
+  &, 0.710853E+00_JPRB, 0.695012E+00_JPRB, 0.679303E+00_JPRB, 0.663647E+00_JPRB &
+  &, 0.648152E+00_JPRB, 0.632735E+00_JPRB, 0.617465E+00_JPRB &
+  &, 0.602336E+00_JPRB, 0.587378E+00_JPRB, 0.572542E+00_JPRB, 0.557855E+00_JPRB &
+  &, 0.543348E+00_JPRB, 0.529051E+00_JPRB, 0.514862E+00_JPRB &
+  &, 0.500898E+00_JPRB, 0.487143E+00_JPRB, 0.473580E+00_JPRB, 0.460189E+00_JPRB &
+  &, 0.446997E+00_JPRB, 0.434030E+00_JPRB, 0.421267E+00_JPRB &
+  &, 0.408732E+00_JPRB, 0.396402E+00_JPRB, 0.384300E+00_JPRB, 0.372400E+00_JPRB &
+  &, 0.360778E+00_JPRB, 0.349298E+00_JPRB, 0.338144E+00_JPRB &
+  &, 0.327122E+00_JPRB, 0.316417E+00_JPRB, 0.305885E+00_JPRB, 0.295601E+00_JPRB &
+  &, 0.285589E+00_JPRB, 0.275751E+00_JPRB, 0.266164E+00_JPRB &
+  &, 0.256789E+00_JPRB, 0.247705E+00_JPRB, 0.238808E+00_JPRB, 0.230115E+00_JPRB &
+  &, 0.221706E+00_JPRB, 0.213470E+00_JPRB, 0.205489E+00_JPRB/)
+XCW( 754, :) = (/ &
+  &  0.106675E+01_JPRB, 0.108280E+01_JPRB, 0.109857E+01_JPRB, 0.111406E+01_JPRB &
+  &, 0.112924E+01_JPRB, 0.114412E+01_JPRB, 0.115868E+01_JPRB &
+  &, 0.117290E+01_JPRB, 0.118679E+01_JPRB, 0.120032E+01_JPRB, 0.121349E+01_JPRB &
+  &, 0.122629E+01_JPRB, 0.123871E+01_JPRB, 0.125074E+01_JPRB &
+  &, 0.126237E+01_JPRB, 0.127359E+01_JPRB, 0.128439E+01_JPRB, 0.129476E+01_JPRB &
+  &, 0.130470E+01_JPRB, 0.131419E+01_JPRB, 0.132323E+01_JPRB &
+  &, 0.133181E+01_JPRB, 0.133993E+01_JPRB, 0.134757E+01_JPRB, 0.135473E+01_JPRB &
+  &, 0.136140E+01_JPRB, 0.136759E+01_JPRB, 0.137327E+01_JPRB &
+  &, 0.137846E+01_JPRB, 0.138313E+01_JPRB, 0.138730E+01_JPRB, 0.139095E+01_JPRB &
+  &, 0.139409E+01_JPRB, 0.139670E+01_JPRB, 0.139880E+01_JPRB &
+  &, 0.140037E+01_JPRB, 0.140141E+01_JPRB, 0.140195E+01_JPRB, 0.140195E+01_JPRB &
+  &, 0.140143E+01_JPRB, 0.140040E+01_JPRB, 0.139884E+01_JPRB &
+  &, 0.139676E+01_JPRB, 0.139418E+01_JPRB, 0.139109E+01_JPRB, 0.138748E+01_JPRB &
+  &, 0.138339E+01_JPRB, 0.137881E+01_JPRB, 0.137372E+01_JPRB &
+  &, 0.136816E+01_JPRB, 0.136211E+01_JPRB, 0.135561E+01_JPRB, 0.134864E+01_JPRB &
+  &, 0.134121E+01_JPRB, 0.133334E+01_JPRB, 0.132503E+01_JPRB &
+  &, 0.131630E+01_JPRB, 0.130714E+01_JPRB, 0.129759E+01_JPRB, 0.128763E+01_JPRB &
+  &, 0.127727E+01_JPRB, 0.126657E+01_JPRB, 0.125547E+01_JPRB &
+  &, 0.124403E+01_JPRB, 0.123225E+01_JPRB, 0.122014E+01_JPRB, 0.120755E+01_JPRB &
+  &, 0.119495E+01_JPRB, 0.118193E+01_JPRB, 0.116862E+01_JPRB &
+  &, 0.115503E+01_JPRB, 0.114117E+01_JPRB, 0.112710E+01_JPRB, 0.111279E+01_JPRB &
+  &, 0.109825E+01_JPRB, 0.108351E+01_JPRB, 0.106858E+01_JPRB &
+  &, 0.105348E+01_JPRB, 0.103820E+01_JPRB, 0.102278E+01_JPRB, 0.100722E+01_JPRB &
+  &, 0.991540E+00_JPRB, 0.975739E+00_JPRB, 0.959827E+00_JPRB &
+  &, 0.943866E+00_JPRB, 0.927780E+00_JPRB, 0.911660E+00_JPRB, 0.895484E+00_JPRB &
+  &, 0.879286E+00_JPRB, 0.863042E+00_JPRB, 0.846785E+00_JPRB &
+  &, 0.830550E+00_JPRB, 0.814245E+00_JPRB, 0.798065E+00_JPRB, 0.781882E+00_JPRB &
+  &, 0.765730E+00_JPRB, 0.749641E+00_JPRB, 0.733615E+00_JPRB &
+  &, 0.717650E+00_JPRB, 0.701780E+00_JPRB, 0.686000E+00_JPRB, 0.670307E+00_JPRB &
+  &, 0.654731E+00_JPRB, 0.639268E+00_JPRB, 0.623948E+00_JPRB &
+  &, 0.608764E+00_JPRB, 0.593707E+00_JPRB, 0.578848E+00_JPRB, 0.564093E+00_JPRB &
+  &, 0.549514E+00_JPRB, 0.535140E+00_JPRB, 0.520915E+00_JPRB &
+  &, 0.506866E+00_JPRB, 0.493021E+00_JPRB, 0.479363E+00_JPRB, 0.465873E+00_JPRB &
+  &, 0.452624E+00_JPRB, 0.439596E+00_JPRB, 0.426720E+00_JPRB &
+  &, 0.414116E+00_JPRB, 0.401714E+00_JPRB, 0.389485E+00_JPRB, 0.377504E+00_JPRB &
+  &, 0.365797E+00_JPRB, 0.354283E+00_JPRB, 0.342982E+00_JPRB &
+  &, 0.331918E+00_JPRB, 0.321057E+00_JPRB, 0.310477E+00_JPRB, 0.300085E+00_JPRB &
+  &, 0.289960E+00_JPRB, 0.280064E+00_JPRB, 0.270357E+00_JPRB &
+  &, 0.260917E+00_JPRB, 0.251704E+00_JPRB, 0.242736E+00_JPRB, 0.233969E+00_JPRB &
+  &, 0.225419E+00_JPRB, 0.217102E+00_JPRB, 0.209037E+00_JPRB/)
+XCW( 755, :) = (/ &
+  &  0.106708E+01_JPRB, 0.108322E+01_JPRB, 0.109908E+01_JPRB, 0.111466E+01_JPRB &
+  &, 0.112993E+01_JPRB, 0.114490E+01_JPRB, 0.115955E+01_JPRB &
+  &, 0.117388E+01_JPRB, 0.118786E+01_JPRB, 0.120149E+01_JPRB, 0.121476E+01_JPRB &
+  &, 0.122766E+01_JPRB, 0.124018E+01_JPRB, 0.125231E+01_JPRB &
+  &, 0.126405E+01_JPRB, 0.127537E+01_JPRB, 0.128627E+01_JPRB, 0.129675E+01_JPRB &
+  &, 0.130680E+01_JPRB, 0.131640E+01_JPRB, 0.132555E+01_JPRB &
+  &, 0.133423E+01_JPRB, 0.134246E+01_JPRB, 0.135022E+01_JPRB, 0.135749E+01_JPRB &
+  &, 0.136427E+01_JPRB, 0.137056E+01_JPRB, 0.137636E+01_JPRB &
+  &, 0.138165E+01_JPRB, 0.138644E+01_JPRB, 0.139072E+01_JPRB, 0.139448E+01_JPRB &
+  &, 0.139772E+01_JPRB, 0.140045E+01_JPRB, 0.140265E+01_JPRB &
+  &, 0.140434E+01_JPRB, 0.140550E+01_JPRB, 0.140612E+01_JPRB, 0.140624E+01_JPRB &
+  &, 0.140582E+01_JPRB, 0.140490E+01_JPRB, 0.140344E+01_JPRB &
+  &, 0.140147E+01_JPRB, 0.139899E+01_JPRB, 0.139600E+01_JPRB, 0.139251E+01_JPRB &
+  &, 0.138850E+01_JPRB, 0.138400E+01_JPRB, 0.137902E+01_JPRB &
+  &, 0.137354E+01_JPRB, 0.136760E+01_JPRB, 0.136118E+01_JPRB, 0.135430E+01_JPRB &
+  &, 0.134696E+01_JPRB, 0.133918E+01_JPRB, 0.133095E+01_JPRB &
+  &, 0.132229E+01_JPRB, 0.131323E+01_JPRB, 0.130374E+01_JPRB, 0.129385E+01_JPRB &
+  &, 0.128357E+01_JPRB, 0.127292E+01_JPRB, 0.126191E+01_JPRB &
+  &, 0.125053E+01_JPRB, 0.123880E+01_JPRB, 0.122675E+01_JPRB, 0.121437E+01_JPRB &
+  &, 0.120168E+01_JPRB, 0.118870E+01_JPRB, 0.117543E+01_JPRB &
+  &, 0.116188E+01_JPRB, 0.114808E+01_JPRB, 0.113405E+01_JPRB, 0.111976E+01_JPRB &
+  &, 0.110526E+01_JPRB, 0.109055E+01_JPRB, 0.107566E+01_JPRB &
+  &, 0.106058E+01_JPRB, 0.104532E+01_JPRB, 0.102991E+01_JPRB, 0.101437E+01_JPRB &
+  &, 0.998694E+00_JPRB, 0.982897E+00_JPRB, 0.967013E+00_JPRB &
+  &, 0.951023E+00_JPRB, 0.934959E+00_JPRB, 0.918830E+00_JPRB, 0.902640E+00_JPRB &
+  &, 0.886425E+00_JPRB, 0.870159E+00_JPRB, 0.853907E+00_JPRB &
+  &, 0.837611E+00_JPRB, 0.821337E+00_JPRB, 0.805086E+00_JPRB, 0.788894E+00_JPRB &
+  &, 0.772695E+00_JPRB, 0.756555E+00_JPRB, 0.740508E+00_JPRB &
+  &, 0.724483E+00_JPRB, 0.708584E+00_JPRB, 0.692735E+00_JPRB, 0.677004E+00_JPRB &
+  &, 0.661388E+00_JPRB, 0.645879E+00_JPRB, 0.630510E+00_JPRB &
+  &, 0.615273E+00_JPRB, 0.600158E+00_JPRB, 0.585196E+00_JPRB, 0.570374E+00_JPRB &
+  &, 0.555766E+00_JPRB, 0.541274E+00_JPRB, 0.526968E+00_JPRB &
+  &, 0.512878E+00_JPRB, 0.498944E+00_JPRB, 0.485192E+00_JPRB, 0.471650E+00_JPRB &
+  &, 0.458346E+00_JPRB, 0.445163E+00_JPRB, 0.432271E+00_JPRB &
+  &, 0.419551E+00_JPRB, 0.407026E+00_JPRB, 0.394772E+00_JPRB, 0.382712E+00_JPRB &
+  &, 0.370870E+00_JPRB, 0.359267E+00_JPRB, 0.347875E+00_JPRB &
+  &, 0.336715E+00_JPRB, 0.325810E+00_JPRB, 0.315126E+00_JPRB, 0.304627E+00_JPRB &
+  &, 0.294448E+00_JPRB, 0.284436E+00_JPRB, 0.274669E+00_JPRB &
+  &, 0.265106E+00_JPRB, 0.255826E+00_JPRB, 0.246727E+00_JPRB, 0.237886E+00_JPRB &
+  &, 0.229260E+00_JPRB, 0.220864E+00_JPRB, 0.212651E+00_JPRB/)
+XCW( 756, :) = (/ &
+  &  0.106741E+01_JPRB, 0.108364E+01_JPRB, 0.109959E+01_JPRB, 0.111526E+01_JPRB &
+  &, 0.113063E+01_JPRB, 0.114569E+01_JPRB, 0.116044E+01_JPRB &
+  &, 0.117485E+01_JPRB, 0.118893E+01_JPRB, 0.120266E+01_JPRB, 0.121603E+01_JPRB &
+  &, 0.122904E+01_JPRB, 0.124166E+01_JPRB, 0.125389E+01_JPRB &
+  &, 0.126573E+01_JPRB, 0.127716E+01_JPRB, 0.128817E+01_JPRB, 0.129876E+01_JPRB &
+  &, 0.130891E+01_JPRB, 0.131861E+01_JPRB, 0.132787E+01_JPRB &
+  &, 0.133668E+01_JPRB, 0.134501E+01_JPRB, 0.135287E+01_JPRB, 0.136025E+01_JPRB &
+  &, 0.136715E+01_JPRB, 0.137355E+01_JPRB, 0.137946E+01_JPRB &
+  &, 0.138486E+01_JPRB, 0.138976E+01_JPRB, 0.139415E+01_JPRB, 0.139802E+01_JPRB &
+  &, 0.140138E+01_JPRB, 0.140421E+01_JPRB, 0.140653E+01_JPRB &
+  &, 0.140832E+01_JPRB, 0.140958E+01_JPRB, 0.141032E+01_JPRB, 0.141055E+01_JPRB &
+  &, 0.141024E+01_JPRB, 0.140942E+01_JPRB, 0.140806E+01_JPRB &
+  &, 0.140620E+01_JPRB, 0.140382E+01_JPRB, 0.140093E+01_JPRB, 0.139754E+01_JPRB &
+  &, 0.139363E+01_JPRB, 0.138924E+01_JPRB, 0.138434E+01_JPRB &
+  &, 0.137897E+01_JPRB, 0.137311E+01_JPRB, 0.136679E+01_JPRB, 0.135999E+01_JPRB &
+  &, 0.135274E+01_JPRB, 0.134504E+01_JPRB, 0.133690E+01_JPRB &
+  &, 0.132832E+01_JPRB, 0.131933E+01_JPRB, 0.130992E+01_JPRB, 0.130011E+01_JPRB &
+  &, 0.128990E+01_JPRB, 0.127933E+01_JPRB, 0.126837E+01_JPRB &
+  &, 0.125706E+01_JPRB, 0.124541E+01_JPRB, 0.123341E+01_JPRB, 0.122107E+01_JPRB &
+  &, 0.120845E+01_JPRB, 0.119551E+01_JPRB, 0.118229E+01_JPRB &
+  &, 0.116880E+01_JPRB, 0.115504E+01_JPRB, 0.114104E+01_JPRB, 0.112679E+01_JPRB &
+  &, 0.111234E+01_JPRB, 0.109765E+01_JPRB, 0.108276E+01_JPRB &
+  &, 0.106771E+01_JPRB, 0.105249E+01_JPRB, 0.103710E+01_JPRB, 0.102157E+01_JPRB &
+  &, 0.100590E+01_JPRB, 0.990109E+00_JPRB, 0.974227E+00_JPRB &
+  &, 0.958235E+00_JPRB, 0.942166E+00_JPRB, 0.926028E+00_JPRB, 0.909855E+00_JPRB &
+  &, 0.893623E+00_JPRB, 0.877336E+00_JPRB, 0.861060E+00_JPRB &
+  &, 0.844768E+00_JPRB, 0.828461E+00_JPRB, 0.812206E+00_JPRB, 0.795940E+00_JPRB &
+  &, 0.779729E+00_JPRB, 0.763573E+00_JPRB, 0.747437E+00_JPRB &
+  &, 0.731424E+00_JPRB, 0.715461E+00_JPRB, 0.699580E+00_JPRB, 0.683777E+00_JPRB &
+  &, 0.668120E+00_JPRB, 0.652568E+00_JPRB, 0.637112E+00_JPRB &
+  &, 0.621822E+00_JPRB, 0.606650E+00_JPRB, 0.591626E+00_JPRB, 0.576739E+00_JPRB &
+  &, 0.562061E+00_JPRB, 0.547494E+00_JPRB, 0.533153E+00_JPRB &
+  &, 0.518936E+00_JPRB, 0.504959E+00_JPRB, 0.491114E+00_JPRB, 0.477522E+00_JPRB &
+  &, 0.464068E+00_JPRB, 0.450874E+00_JPRB, 0.437871E+00_JPRB &
+  &, 0.424985E+00_JPRB, 0.412490E+00_JPRB, 0.400111E+00_JPRB, 0.387973E+00_JPRB &
+  &, 0.376048E+00_JPRB, 0.364359E+00_JPRB, 0.352876E+00_JPRB &
+  &, 0.341622E+00_JPRB, 0.330618E+00_JPRB, 0.319832E+00_JPRB, 0.309283E+00_JPRB &
+  &, 0.298935E+00_JPRB, 0.288867E+00_JPRB, 0.278981E+00_JPRB &
+  &, 0.269355E+00_JPRB, 0.259948E+00_JPRB, 0.250779E+00_JPRB, 0.241867E+00_JPRB &
+  &, 0.233101E+00_JPRB, 0.224626E+00_JPRB, 0.216331E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART108',1,ZHOOK_HANDLE)
+END SUBROUTINE PART108
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART109
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART109',0,ZHOOK_HANDLE)
+
+XCW( 757, :) = (/ &
+  &  0.106775E+01_JPRB, 0.108406E+01_JPRB, 0.110010E+01_JPRB, 0.111586E+01_JPRB &
+  &, 0.113132E+01_JPRB, 0.114648E+01_JPRB, 0.116132E+01_JPRB &
+  &, 0.117583E+01_JPRB, 0.119001E+01_JPRB, 0.120384E+01_JPRB, 0.121731E+01_JPRB &
+  &, 0.123041E+01_JPRB, 0.124314E+01_JPRB, 0.125548E+01_JPRB &
+  &, 0.126742E+01_JPRB, 0.127895E+01_JPRB, 0.129007E+01_JPRB, 0.130076E+01_JPRB &
+  &, 0.131102E+01_JPRB, 0.132084E+01_JPRB, 0.133021E+01_JPRB &
+  &, 0.133912E+01_JPRB, 0.134756E+01_JPRB, 0.135553E+01_JPRB, 0.136303E+01_JPRB &
+  &, 0.137003E+01_JPRB, 0.137655E+01_JPRB, 0.138257E+01_JPRB &
+  &, 0.138808E+01_JPRB, 0.139309E+01_JPRB, 0.139759E+01_JPRB, 0.140157E+01_JPRB &
+  &, 0.140504E+01_JPRB, 0.140799E+01_JPRB, 0.141041E+01_JPRB &
+  &, 0.141231E+01_JPRB, 0.141369E+01_JPRB, 0.141454E+01_JPRB, 0.141487E+01_JPRB &
+  &, 0.141467E+01_JPRB, 0.141395E+01_JPRB, 0.141271E+01_JPRB &
+  &, 0.141095E+01_JPRB, 0.140868E+01_JPRB, 0.140588E+01_JPRB, 0.140258E+01_JPRB &
+  &, 0.139879E+01_JPRB, 0.139448E+01_JPRB, 0.138969E+01_JPRB &
+  &, 0.138441E+01_JPRB, 0.137865E+01_JPRB, 0.137241E+01_JPRB, 0.136570E+01_JPRB &
+  &, 0.135855E+01_JPRB, 0.135093E+01_JPRB, 0.134285E+01_JPRB &
+  &, 0.133438E+01_JPRB, 0.132547E+01_JPRB, 0.131613E+01_JPRB, 0.130640E+01_JPRB &
+  &, 0.129627E+01_JPRB, 0.128577E+01_JPRB, 0.127487E+01_JPRB &
+  &, 0.126363E+01_JPRB, 0.125203E+01_JPRB, 0.124010E+01_JPRB, 0.122783E+01_JPRB &
+  &, 0.121526E+01_JPRB, 0.120237E+01_JPRB, 0.118920E+01_JPRB &
+  &, 0.117576E+01_JPRB, 0.116204E+01_JPRB, 0.114807E+01_JPRB, 0.113385E+01_JPRB &
+  &, 0.111944E+01_JPRB, 0.110478E+01_JPRB, 0.108994E+01_JPRB &
+  &, 0.107491E+01_JPRB, 0.105971E+01_JPRB, 0.104434E+01_JPRB, 0.102882E+01_JPRB &
+  &, 0.101316E+01_JPRB, 0.997375E+00_JPRB, 0.981496E+00_JPRB &
+  &, 0.965503E+00_JPRB, 0.949459E+00_JPRB, 0.933313E+00_JPRB, 0.917099E+00_JPRB &
+  &, 0.900851E+00_JPRB, 0.884576E+00_JPRB, 0.868276E+00_JPRB &
+  &, 0.851956E+00_JPRB, 0.835649E+00_JPRB, 0.819358E+00_JPRB, 0.803052E+00_JPRB &
+  &, 0.786830E+00_JPRB, 0.770625E+00_JPRB, 0.754471E+00_JPRB &
+  &, 0.738400E+00_JPRB, 0.722374E+00_JPRB, 0.706463E+00_JPRB, 0.690625E+00_JPRB &
+  &, 0.674891E+00_JPRB, 0.659296E+00_JPRB, 0.643792E+00_JPRB &
+  &, 0.628411E+00_JPRB, 0.613182E+00_JPRB, 0.598098E+00_JPRB, 0.583188E+00_JPRB &
+  &, 0.568399E+00_JPRB, 0.553802E+00_JPRB, 0.539339E+00_JPRB &
+  &, 0.525083E+00_JPRB, 0.511019E+00_JPRB, 0.497129E+00_JPRB, 0.483393E+00_JPRB &
+  &, 0.469933E+00_JPRB, 0.456634E+00_JPRB, 0.443521E+00_JPRB &
+  &, 0.430619E+00_JPRB, 0.417954E+00_JPRB, 0.405501E+00_JPRB, 0.393285E+00_JPRB &
+  &, 0.381278E+00_JPRB, 0.369504E+00_JPRB, 0.357932E+00_JPRB &
+  &, 0.346584E+00_JPRB, 0.335483E+00_JPRB, 0.324594E+00_JPRB, 0.313939E+00_JPRB &
+  &, 0.303540E+00_JPRB, 0.293358E+00_JPRB, 0.283413E+00_JPRB &
+  &, 0.273665E+00_JPRB, 0.264194E+00_JPRB, 0.254894E+00_JPRB, 0.245847E+00_JPRB &
+  &, 0.237070E+00_JPRB, 0.228453E+00_JPRB, 0.220077E+00_JPRB/)
+XCW( 758, :) = (/ &
+  &  0.106808E+01_JPRB, 0.108448E+01_JPRB, 0.110061E+01_JPRB, 0.111646E+01_JPRB &
+  &, 0.113202E+01_JPRB, 0.114727E+01_JPRB, 0.116220E+01_JPRB &
+  &, 0.117681E+01_JPRB, 0.119109E+01_JPRB, 0.120502E+01_JPRB, 0.121859E+01_JPRB &
+  &, 0.123180E+01_JPRB, 0.124462E+01_JPRB, 0.125707E+01_JPRB &
+  &, 0.126911E+01_JPRB, 0.128075E+01_JPRB, 0.129198E+01_JPRB, 0.130278E+01_JPRB &
+  &, 0.131315E+01_JPRB, 0.132307E+01_JPRB, 0.133255E+01_JPRB &
+  &, 0.134157E+01_JPRB, 0.135013E+01_JPRB, 0.135820E+01_JPRB, 0.136581E+01_JPRB &
+  &, 0.137293E+01_JPRB, 0.137956E+01_JPRB, 0.138569E+01_JPRB &
+  &, 0.139132E+01_JPRB, 0.139644E+01_JPRB, 0.140105E+01_JPRB, 0.140514E+01_JPRB &
+  &, 0.140872E+01_JPRB, 0.141178E+01_JPRB, 0.141432E+01_JPRB &
+  &, 0.141633E+01_JPRB, 0.141781E+01_JPRB, 0.141878E+01_JPRB, 0.141921E+01_JPRB &
+  &, 0.141912E+01_JPRB, 0.141851E+01_JPRB, 0.141737E+01_JPRB &
+  &, 0.141571E+01_JPRB, 0.141355E+01_JPRB, 0.141086E+01_JPRB, 0.140766E+01_JPRB &
+  &, 0.140397E+01_JPRB, 0.139977E+01_JPRB, 0.139506E+01_JPRB &
+  &, 0.138968E+01_JPRB, 0.138421E+01_JPRB, 0.137806E+01_JPRB, 0.137146E+01_JPRB &
+  &, 0.136439E+01_JPRB, 0.135686E+01_JPRB, 0.134888E+01_JPRB &
+  &, 0.134047E+01_JPRB, 0.133164E+01_JPRB, 0.132239E+01_JPRB, 0.131273E+01_JPRB &
+  &, 0.130267E+01_JPRB, 0.129221E+01_JPRB, 0.128142E+01_JPRB &
+  &, 0.127024E+01_JPRB, 0.125871E+01_JPRB, 0.124683E+01_JPRB, 0.123461E+01_JPRB &
+  &, 0.122209E+01_JPRB, 0.120926E+01_JPRB, 0.119614E+01_JPRB &
+  &, 0.118274E+01_JPRB, 0.116908E+01_JPRB, 0.115515E+01_JPRB, 0.114099E+01_JPRB &
+  &, 0.112658E+01_JPRB, 0.111198E+01_JPRB, 0.109716E+01_JPRB &
+  &, 0.108215E+01_JPRB, 0.106695E+01_JPRB, 0.105162E+01_JPRB, 0.103612E+01_JPRB &
+  &, 0.102047E+01_JPRB, 0.100469E+01_JPRB, 0.988819E+00_JPRB &
+  &, 0.972855E+00_JPRB, 0.956779E+00_JPRB, 0.940626E+00_JPRB, 0.924431E+00_JPRB &
+  &, 0.908170E+00_JPRB, 0.891876E+00_JPRB, 0.875554E+00_JPRB &
+  &, 0.859239E+00_JPRB, 0.842902E+00_JPRB, 0.826576E+00_JPRB, 0.810264E+00_JPRB &
+  &, 0.793965E+00_JPRB, 0.777747E+00_JPRB, 0.761540E+00_JPRB &
+  &, 0.745447E+00_JPRB, 0.729397E+00_JPRB, 0.713419E+00_JPRB, 0.697548E+00_JPRB &
+  &, 0.681739E+00_JPRB, 0.666102E+00_JPRB, 0.650552E+00_JPRB &
+  &, 0.635120E+00_JPRB, 0.619838E+00_JPRB, 0.604653E+00_JPRB, 0.589680E+00_JPRB &
+  &, 0.574822E+00_JPRB, 0.560153E+00_JPRB, 0.545613E+00_JPRB &
+  &, 0.531320E+00_JPRB, 0.517125E+00_JPRB, 0.503189E+00_JPRB, 0.489405E+00_JPRB &
+  &, 0.475798E+00_JPRB, 0.462442E+00_JPRB, 0.449269E+00_JPRB &
+  &, 0.436302E+00_JPRB, 0.423519E+00_JPRB, 0.410994E+00_JPRB, 0.398650E+00_JPRB &
+  &, 0.386562E+00_JPRB, 0.374703E+00_JPRB, 0.363042E+00_JPRB &
+  &, 0.351601E+00_JPRB, 0.340403E+00_JPRB, 0.329413E+00_JPRB, 0.318711E+00_JPRB &
+  &, 0.308202E+00_JPRB, 0.297907E+00_JPRB, 0.287845E+00_JPRB &
+  &, 0.278036E+00_JPRB, 0.268439E+00_JPRB, 0.259072E+00_JPRB, 0.249954E+00_JPRB &
+  &, 0.241039E+00_JPRB, 0.232345E+00_JPRB, 0.223954E+00_JPRB/)
+XCW( 759, :) = (/ &
+  &  0.106842E+01_JPRB, 0.108490E+01_JPRB, 0.110113E+01_JPRB, 0.111706E+01_JPRB &
+  &, 0.113271E+01_JPRB, 0.114806E+01_JPRB, 0.116309E+01_JPRB &
+  &, 0.117780E+01_JPRB, 0.119217E+01_JPRB, 0.120620E+01_JPRB, 0.121988E+01_JPRB &
+  &, 0.123318E+01_JPRB, 0.124611E+01_JPRB, 0.125866E+01_JPRB &
+  &, 0.127081E+01_JPRB, 0.128256E+01_JPRB, 0.129389E+01_JPRB, 0.130480E+01_JPRB &
+  &, 0.131527E+01_JPRB, 0.132531E+01_JPRB, 0.133490E+01_JPRB &
+  &, 0.134403E+01_JPRB, 0.135270E+01_JPRB, 0.136089E+01_JPRB, 0.136861E+01_JPRB &
+  &, 0.137584E+01_JPRB, 0.138258E+01_JPRB, 0.138882E+01_JPRB &
+  &, 0.139456E+01_JPRB, 0.139979E+01_JPRB, 0.140452E+01_JPRB, 0.140873E+01_JPRB &
+  &, 0.141242E+01_JPRB, 0.141559E+01_JPRB, 0.141823E+01_JPRB &
+  &, 0.142035E+01_JPRB, 0.142196E+01_JPRB, 0.142302E+01_JPRB, 0.142357E+01_JPRB &
+  &, 0.142358E+01_JPRB, 0.142308E+01_JPRB, 0.142205E+01_JPRB &
+  &, 0.142051E+01_JPRB, 0.141844E+01_JPRB, 0.141586E+01_JPRB, 0.141277E+01_JPRB &
+  &, 0.140917E+01_JPRB, 0.140506E+01_JPRB, 0.140046E+01_JPRB &
+  &, 0.139538E+01_JPRB, 0.138981E+01_JPRB, 0.138376E+01_JPRB, 0.137723E+01_JPRB &
+  &, 0.137025E+01_JPRB, 0.136281E+01_JPRB, 0.135492E+01_JPRB &
+  &, 0.134659E+01_JPRB, 0.133784E+01_JPRB, 0.132867E+01_JPRB, 0.131910E+01_JPRB &
+  &, 0.130912E+01_JPRB, 0.129873E+01_JPRB, 0.128800E+01_JPRB &
+  &, 0.127688E+01_JPRB, 0.126542E+01_JPRB, 0.125360E+01_JPRB, 0.124145E+01_JPRB &
+  &, 0.122898E+01_JPRB, 0.121622E+01_JPRB, 0.120314E+01_JPRB &
+  &, 0.118978E+01_JPRB, 0.117616E+01_JPRB, 0.116227E+01_JPRB, 0.114815E+01_JPRB &
+  &, 0.113379E+01_JPRB, 0.111920E+01_JPRB, 0.110441E+01_JPRB &
+  &, 0.108943E+01_JPRB, 0.107427E+01_JPRB, 0.105893E+01_JPRB, 0.104347E+01_JPRB &
+  &, 0.102784E+01_JPRB, 0.101207E+01_JPRB, 0.996197E+00_JPRB &
+  &, 0.980234E+00_JPRB, 0.964157E+00_JPRB, 0.948027E+00_JPRB, 0.931793E+00_JPRB &
+  &, 0.915548E+00_JPRB, 0.899237E+00_JPRB, 0.882894E+00_JPRB &
+  &, 0.866553E+00_JPRB, 0.850186E+00_JPRB, 0.833827E+00_JPRB, 0.817510E+00_JPRB &
+  &, 0.801202E+00_JPRB, 0.784937E+00_JPRB, 0.768714E+00_JPRB &
+  &, 0.752531E+00_JPRB, 0.736455E+00_JPRB, 0.720413E+00_JPRB, 0.704508E+00_JPRB &
+  &, 0.688663E+00_JPRB, 0.672946E+00_JPRB, 0.657351E+00_JPRB &
+  &, 0.641870E+00_JPRB, 0.626534E+00_JPRB, 0.611291E+00_JPRB, 0.596256E+00_JPRB &
+  &, 0.581331E+00_JPRB, 0.566591E+00_JPRB, 0.551975E+00_JPRB &
+  &, 0.537557E+00_JPRB, 0.523367E+00_JPRB, 0.509296E+00_JPRB, 0.495465E+00_JPRB &
+  &, 0.481759E+00_JPRB, 0.468299E+00_JPRB, 0.455065E+00_JPRB &
+  &, 0.441986E+00_JPRB, 0.429185E+00_JPRB, 0.416538E+00_JPRB, 0.404118E+00_JPRB &
+  &, 0.391951E+00_JPRB, 0.379955E+00_JPRB, 0.368207E+00_JPRB &
+  &, 0.356674E+00_JPRB, 0.345379E+00_JPRB, 0.334346E+00_JPRB, 0.323482E+00_JPRB &
+  &, 0.312923E+00_JPRB, 0.302515E+00_JPRB, 0.292397E+00_JPRB &
+  &, 0.282467E+00_JPRB, 0.272807E+00_JPRB, 0.263312E+00_JPRB, 0.254124E+00_JPRB &
+  &, 0.245136E+00_JPRB, 0.236366E+00_JPRB, 0.227765E+00_JPRB/)
+XCW( 760, :) = (/ &
+  &  0.106875E+01_JPRB, 0.108533E+01_JPRB, 0.110164E+01_JPRB, 0.111767E+01_JPRB &
+  &, 0.113341E+01_JPRB, 0.114885E+01_JPRB, 0.116398E+01_JPRB &
+  &, 0.117879E+01_JPRB, 0.119326E+01_JPRB, 0.120739E+01_JPRB, 0.122116E+01_JPRB &
+  &, 0.123457E+01_JPRB, 0.124761E+01_JPRB, 0.126026E+01_JPRB &
+  &, 0.127252E+01_JPRB, 0.128437E+01_JPRB, 0.129581E+01_JPRB, 0.130683E+01_JPRB &
+  &, 0.131741E+01_JPRB, 0.132756E+01_JPRB, 0.133725E+01_JPRB &
+  &, 0.134650E+01_JPRB, 0.135527E+01_JPRB, 0.136358E+01_JPRB, 0.137141E+01_JPRB &
+  &, 0.137875E+01_JPRB, 0.138561E+01_JPRB, 0.139196E+01_JPRB &
+  &, 0.139782E+01_JPRB, 0.140316E+01_JPRB, 0.140800E+01_JPRB, 0.141232E+01_JPRB &
+  &, 0.141613E+01_JPRB, 0.141941E+01_JPRB, 0.142217E+01_JPRB &
+  &, 0.142440E+01_JPRB, 0.142611E+01_JPRB, 0.142729E+01_JPRB, 0.142795E+01_JPRB &
+  &, 0.142808E+01_JPRB, 0.142768E+01_JPRB, 0.142676E+01_JPRB &
+  &, 0.142531E+01_JPRB, 0.142335E+01_JPRB, 0.142088E+01_JPRB, 0.141789E+01_JPRB &
+  &, 0.141439E+01_JPRB, 0.141039E+01_JPRB, 0.140589E+01_JPRB &
+  &, 0.140090E+01_JPRB, 0.139542E+01_JPRB, 0.138945E+01_JPRB, 0.138303E+01_JPRB &
+  &, 0.137615E+01_JPRB, 0.136880E+01_JPRB, 0.136099E+01_JPRB &
+  &, 0.135276E+01_JPRB, 0.134409E+01_JPRB, 0.133500E+01_JPRB, 0.132549E+01_JPRB &
+  &, 0.131559E+01_JPRB, 0.130528E+01_JPRB, 0.129461E+01_JPRB &
+  &, 0.128356E+01_JPRB, 0.127215E+01_JPRB, 0.126040E+01_JPRB, 0.124833E+01_JPRB &
+  &, 0.123592E+01_JPRB, 0.122319E+01_JPRB, 0.121018E+01_JPRB &
+  &, 0.119687E+01_JPRB, 0.118329E+01_JPRB, 0.116944E+01_JPRB, 0.115535E+01_JPRB &
+  &, 0.114103E+01_JPRB, 0.112649E+01_JPRB, 0.111173E+01_JPRB &
+  &, 0.109677E+01_JPRB, 0.108164E+01_JPRB, 0.106632E+01_JPRB, 0.105087E+01_JPRB &
+  &, 0.103525E+01_JPRB, 0.101949E+01_JPRB, 0.100363E+01_JPRB &
+  &, 0.987670E+00_JPRB, 0.971591E+00_JPRB, 0.955456E+00_JPRB, 0.939243E+00_JPRB &
+  &, 0.922956E+00_JPRB, 0.906659E+00_JPRB, 0.890296E+00_JPRB &
+  &, 0.873931E+00_JPRB, 0.857568E+00_JPRB, 0.841177E+00_JPRB, 0.824822E+00_JPRB &
+  &, 0.808474E+00_JPRB, 0.792163E+00_JPRB, 0.775924E+00_JPRB &
+  &, 0.759722E+00_JPRB, 0.743587E+00_JPRB, 0.727517E+00_JPRB, 0.711544E+00_JPRB &
+  &, 0.695664E+00_JPRB, 0.679907E+00_JPRB, 0.664229E+00_JPRB &
+  &, 0.648700E+00_JPRB, 0.633270E+00_JPRB, 0.618012E+00_JPRB, 0.602874E+00_JPRB &
+  &, 0.587883E+00_JPRB, 0.573072E+00_JPRB, 0.558425E+00_JPRB &
+  &, 0.543929E+00_JPRB, 0.529609E+00_JPRB, 0.515496E+00_JPRB, 0.501571E+00_JPRB &
+  &, 0.487814E+00_JPRB, 0.474252E+00_JPRB, 0.460911E+00_JPRB &
+  &, 0.447769E+00_JPRB, 0.434852E+00_JPRB, 0.422134E+00_JPRB, 0.409639E+00_JPRB &
+  &, 0.397341E+00_JPRB, 0.385315E+00_JPRB, 0.373480E+00_JPRB &
+  &, 0.361856E+00_JPRB, 0.350467E+00_JPRB, 0.339335E+00_JPRB, 0.328368E+00_JPRB &
+  &, 0.317702E+00_JPRB, 0.307242E+00_JPRB, 0.297008E+00_JPRB &
+  &, 0.286959E+00_JPRB, 0.277175E+00_JPRB, 0.267676E+00_JPRB, 0.258357E+00_JPRB &
+  &, 0.249233E+00_JPRB, 0.240388E+00_JPRB, 0.231707E+00_JPRB/)
+XCW( 761, :) = (/ &
+  &  0.106909E+01_JPRB, 0.108575E+01_JPRB, 0.110216E+01_JPRB, 0.111828E+01_JPRB &
+  &, 0.113411E+01_JPRB, 0.114965E+01_JPRB, 0.116487E+01_JPRB &
+  &, 0.117978E+01_JPRB, 0.119435E+01_JPRB, 0.120858E+01_JPRB, 0.122246E+01_JPRB &
+  &, 0.123597E+01_JPRB, 0.124911E+01_JPRB, 0.126186E+01_JPRB &
+  &, 0.127423E+01_JPRB, 0.128619E+01_JPRB, 0.129773E+01_JPRB, 0.130886E+01_JPRB &
+  &, 0.131956E+01_JPRB, 0.132981E+01_JPRB, 0.133962E+01_JPRB &
+  &, 0.134897E+01_JPRB, 0.135786E+01_JPRB, 0.136628E+01_JPRB, 0.137423E+01_JPRB &
+  &, 0.138168E+01_JPRB, 0.138865E+01_JPRB, 0.139512E+01_JPRB &
+  &, 0.140109E+01_JPRB, 0.140655E+01_JPRB, 0.141150E+01_JPRB, 0.141593E+01_JPRB &
+  &, 0.141985E+01_JPRB, 0.142325E+01_JPRB, 0.142612E+01_JPRB &
+  &, 0.142847E+01_JPRB, 0.143029E+01_JPRB, 0.143158E+01_JPRB, 0.143234E+01_JPRB &
+  &, 0.143259E+01_JPRB, 0.143229E+01_JPRB, 0.143148E+01_JPRB &
+  &, 0.143015E+01_JPRB, 0.142829E+01_JPRB, 0.142593E+01_JPRB, 0.142304E+01_JPRB &
+  &, 0.141964E+01_JPRB, 0.141574E+01_JPRB, 0.141134E+01_JPRB &
+  &, 0.140646E+01_JPRB, 0.140108E+01_JPRB, 0.139521E+01_JPRB, 0.138888E+01_JPRB &
+  &, 0.138207E+01_JPRB, 0.137480E+01_JPRB, 0.136709E+01_JPRB &
+  &, 0.135894E+01_JPRB, 0.135035E+01_JPRB, 0.134134E+01_JPRB, 0.133193E+01_JPRB &
+  &, 0.132209E+01_JPRB, 0.131188E+01_JPRB, 0.130126E+01_JPRB &
+  &, 0.129029E+01_JPRB, 0.127894E+01_JPRB, 0.126726E+01_JPRB, 0.125524E+01_JPRB &
+  &, 0.124289E+01_JPRB, 0.123023E+01_JPRB, 0.121725E+01_JPRB &
+  &, 0.120399E+01_JPRB, 0.119046E+01_JPRB, 0.117667E+01_JPRB, 0.116262E+01_JPRB &
+  &, 0.114834E+01_JPRB, 0.113382E+01_JPRB, 0.111910E+01_JPRB &
+  &, 0.110417E+01_JPRB, 0.108906E+01_JPRB, 0.107376E+01_JPRB, 0.105833E+01_JPRB &
+  &, 0.104272E+01_JPRB, 0.102697E+01_JPRB, 0.101112E+01_JPRB &
+  &, 0.995161E+00_JPRB, 0.979110E+00_JPRB, 0.962944E+00_JPRB, 0.946723E+00_JPRB &
+  &, 0.930454E+00_JPRB, 0.914112E+00_JPRB, 0.897760E+00_JPRB &
+  &, 0.881372E+00_JPRB, 0.864982E+00_JPRB, 0.848591E+00_JPRB, 0.832202E+00_JPRB &
+  &, 0.815813E+00_JPRB, 0.799492E+00_JPRB, 0.783204E+00_JPRB &
+  &, 0.766948E+00_JPRB, 0.750755E+00_JPRB, 0.734659E+00_JPRB, 0.718656E+00_JPRB &
+  &, 0.702702E+00_JPRB, 0.686907E+00_JPRB, 0.671186E+00_JPRB &
+  &, 0.655570E+00_JPRB, 0.640089E+00_JPRB, 0.624775E+00_JPRB, 0.609576E+00_JPRB &
+  &, 0.594521E+00_JPRB, 0.579640E+00_JPRB, 0.564920E+00_JPRB &
+  &, 0.550345E+00_JPRB, 0.535988E+00_JPRB, 0.521788E+00_JPRB, 0.507771E+00_JPRB &
+  &, 0.493918E+00_JPRB, 0.480303E+00_JPRB, 0.466856E+00_JPRB &
+  &, 0.453652E+00_JPRB, 0.440619E+00_JPRB, 0.427832E+00_JPRB, 0.415264E+00_JPRB &
+  &, 0.402889E+00_JPRB, 0.390728E+00_JPRB, 0.378807E+00_JPRB &
+  &, 0.367094E+00_JPRB, 0.355611E+00_JPRB, 0.344381E+00_JPRB, 0.333312E+00_JPRB &
+  &, 0.322539E+00_JPRB, 0.311969E+00_JPRB, 0.301620E+00_JPRB &
+  &, 0.291573E+00_JPRB, 0.281666E+00_JPRB, 0.272041E+00_JPRB, 0.262590E+00_JPRB &
+  &, 0.253459E+00_JPRB, 0.244474E+00_JPRB, 0.235716E+00_JPRB/)
+XCW( 762, :) = (/ &
+  &  0.106943E+01_JPRB, 0.108618E+01_JPRB, 0.110267E+01_JPRB, 0.111889E+01_JPRB &
+  &, 0.113482E+01_JPRB, 0.115045E+01_JPRB, 0.116577E+01_JPRB &
+  &, 0.118076E+01_JPRB, 0.119544E+01_JPRB, 0.120977E+01_JPRB, 0.122375E+01_JPRB &
+  &, 0.123737E+01_JPRB, 0.125061E+01_JPRB, 0.126347E+01_JPRB &
+  &, 0.127594E+01_JPRB, 0.128801E+01_JPRB, 0.129966E+01_JPRB, 0.131090E+01_JPRB &
+  &, 0.132171E+01_JPRB, 0.133207E+01_JPRB, 0.134199E+01_JPRB &
+  &, 0.135146E+01_JPRB, 0.136046E+01_JPRB, 0.136899E+01_JPRB, 0.137705E+01_JPRB &
+  &, 0.138462E+01_JPRB, 0.139170E+01_JPRB, 0.139829E+01_JPRB &
+  &, 0.140437E+01_JPRB, 0.140994E+01_JPRB, 0.141501E+01_JPRB, 0.141956E+01_JPRB &
+  &, 0.142359E+01_JPRB, 0.142710E+01_JPRB, 0.143009E+01_JPRB &
+  &, 0.143255E+01_JPRB, 0.143448E+01_JPRB, 0.143589E+01_JPRB, 0.143676E+01_JPRB &
+  &, 0.143711E+01_JPRB, 0.143693E+01_JPRB, 0.143623E+01_JPRB &
+  &, 0.143500E+01_JPRB, 0.143325E+01_JPRB, 0.143099E+01_JPRB, 0.142821E+01_JPRB &
+  &, 0.142492E+01_JPRB, 0.142112E+01_JPRB, 0.141682E+01_JPRB &
+  &, 0.141203E+01_JPRB, 0.140674E+01_JPRB, 0.140099E+01_JPRB, 0.139474E+01_JPRB &
+  &, 0.138803E+01_JPRB, 0.138085E+01_JPRB, 0.137323E+01_JPRB &
+  &, 0.136516E+01_JPRB, 0.135666E+01_JPRB, 0.134774E+01_JPRB, 0.133838E+01_JPRB &
+  &, 0.132864E+01_JPRB, 0.131849E+01_JPRB, 0.130796E+01_JPRB &
+  &, 0.129704E+01_JPRB, 0.128577E+01_JPRB, 0.127415E+01_JPRB, 0.126220E+01_JPRB &
+  &, 0.124990E+01_JPRB, 0.123728E+01_JPRB, 0.122437E+01_JPRB &
+  &, 0.121116E+01_JPRB, 0.119769E+01_JPRB, 0.118393E+01_JPRB, 0.116994E+01_JPRB &
+  &, 0.115569E+01_JPRB, 0.114121E+01_JPRB, 0.112651E+01_JPRB &
+  &, 0.111161E+01_JPRB, 0.109652E+01_JPRB, 0.108125E+01_JPRB, 0.106583E+01_JPRB &
+  &, 0.105024E+01_JPRB, 0.103453E+01_JPRB, 0.101869E+01_JPRB &
+  &, 0.100271E+01_JPRB, 0.986658E+00_JPRB, 0.970518E+00_JPRB, 0.954291E+00_JPRB &
+  &, 0.938013E+00_JPRB, 0.921656E+00_JPRB, 0.905287E+00_JPRB &
+  &, 0.888877E+00_JPRB, 0.872460E+00_JPRB, 0.856039E+00_JPRB, 0.839614E+00_JPRB &
+  &, 0.823220E+00_JPRB, 0.806855E+00_JPRB, 0.790520E+00_JPRB &
+  &, 0.774246E+00_JPRB, 0.758032E+00_JPRB, 0.741874E+00_JPRB, 0.725804E+00_JPRB &
+  &, 0.709856E+00_JPRB, 0.693946E+00_JPRB, 0.678183E+00_JPRB &
+  &, 0.662520E+00_JPRB, 0.646989E+00_JPRB, 0.631620E+00_JPRB, 0.616362E+00_JPRB &
+  &, 0.601244E+00_JPRB, 0.586296E+00_JPRB, 0.571459E+00_JPRB &
+  &, 0.556851E+00_JPRB, 0.542367E+00_JPRB, 0.528126E+00_JPRB, 0.514018E+00_JPRB &
+  &, 0.500117E+00_JPRB, 0.486401E+00_JPRB, 0.472898E+00_JPRB &
+  &, 0.459585E+00_JPRB, 0.446488E+00_JPRB, 0.433581E+00_JPRB, 0.420889E+00_JPRB &
+  &, 0.408436E+00_JPRB, 0.396195E+00_JPRB, 0.384189E+00_JPRB &
+  &, 0.372387E+00_JPRB, 0.360811E+00_JPRB, 0.349484E+00_JPRB, 0.338371E+00_JPRB &
+  &, 0.327493E+00_JPRB, 0.316814E+00_JPRB, 0.306411E+00_JPRB &
+  &, 0.296186E+00_JPRB, 0.286219E+00_JPRB, 0.276467E+00_JPRB, 0.266949E+00_JPRB &
+  &, 0.257684E+00_JPRB, 0.248625E+00_JPRB, 0.239790E+00_JPRB/)
+XCW( 763, :) = (/ &
+  &  0.106976E+01_JPRB, 0.108661E+01_JPRB, 0.110319E+01_JPRB, 0.111950E+01_JPRB &
+  &, 0.113552E+01_JPRB, 0.115125E+01_JPRB, 0.116667E+01_JPRB &
+  &, 0.118177E+01_JPRB, 0.119654E+01_JPRB, 0.121097E+01_JPRB, 0.122504E+01_JPRB &
+  &, 0.123877E+01_JPRB, 0.125212E+01_JPRB, 0.126509E+01_JPRB &
+  &, 0.127766E+01_JPRB, 0.128984E+01_JPRB, 0.130160E+01_JPRB, 0.131295E+01_JPRB &
+  &, 0.132386E+01_JPRB, 0.133434E+01_JPRB, 0.134437E+01_JPRB &
+  &, 0.135395E+01_JPRB, 0.136307E+01_JPRB, 0.137172E+01_JPRB, 0.137988E+01_JPRB &
+  &, 0.138757E+01_JPRB, 0.139476E+01_JPRB, 0.140147E+01_JPRB &
+  &, 0.140766E+01_JPRB, 0.141335E+01_JPRB, 0.141853E+01_JPRB, 0.142320E+01_JPRB &
+  &, 0.142735E+01_JPRB, 0.143097E+01_JPRB, 0.143407E+01_JPRB &
+  &, 0.143664E+01_JPRB, 0.143869E+01_JPRB, 0.144021E+01_JPRB, 0.144119E+01_JPRB &
+  &, 0.144165E+01_JPRB, 0.144159E+01_JPRB, 0.144100E+01_JPRB &
+  &, 0.143988E+01_JPRB, 0.143825E+01_JPRB, 0.143608E+01_JPRB, 0.143341E+01_JPRB &
+  &, 0.143022E+01_JPRB, 0.142652E+01_JPRB, 0.142233E+01_JPRB &
+  &, 0.141764E+01_JPRB, 0.141245E+01_JPRB, 0.140676E+01_JPRB, 0.140064E+01_JPRB &
+  &, 0.139401E+01_JPRB, 0.138693E+01_JPRB, 0.137941E+01_JPRB &
+  &, 0.137142E+01_JPRB, 0.136300E+01_JPRB, 0.135416E+01_JPRB, 0.134489E+01_JPRB &
+  &, 0.133521E+01_JPRB, 0.132514E+01_JPRB, 0.131468E+01_JPRB &
+  &, 0.130385E+01_JPRB, 0.129265E+01_JPRB, 0.128108E+01_JPRB, 0.126919E+01_JPRB &
+  &, 0.125696E+01_JPRB, 0.124440E+01_JPRB, 0.123154E+01_JPRB &
+  &, 0.121840E+01_JPRB, 0.120495E+01_JPRB, 0.119125E+01_JPRB, 0.117727E+01_JPRB &
+  &, 0.116308E+01_JPRB, 0.114864E+01_JPRB, 0.113398E+01_JPRB &
+  &, 0.111910E+01_JPRB, 0.110404E+01_JPRB, 0.108879E+01_JPRB, 0.107339E+01_JPRB &
+  &, 0.105782E+01_JPRB, 0.104212E+01_JPRB, 0.102628E+01_JPRB &
+  &, 0.101034E+01_JPRB, 0.994262E+00_JPRB, 0.978120E+00_JPRB, 0.961889E+00_JPRB &
+  &, 0.945601E+00_JPRB, 0.929262E+00_JPRB, 0.912876E+00_JPRB &
+  &, 0.896445E+00_JPRB, 0.880003E+00_JPRB, 0.863553E+00_JPRB, 0.847127E+00_JPRB &
+  &, 0.830695E+00_JPRB, 0.814288E+00_JPRB, 0.797940E+00_JPRB &
+  &, 0.781616E+00_JPRB, 0.765382E+00_JPRB, 0.749164E+00_JPRB, 0.733066E+00_JPRB &
+  &, 0.717048E+00_JPRB, 0.701102E+00_JPRB, 0.685298E+00_JPRB &
+  &, 0.669551E+00_JPRB, 0.653971E+00_JPRB, 0.638507E+00_JPRB, 0.623191E+00_JPRB &
+  &, 0.608010E+00_JPRB, 0.592995E+00_JPRB, 0.578131E+00_JPRB &
+  &, 0.563402E+00_JPRB, 0.548883E+00_JPRB, 0.534511E+00_JPRB, 0.520360E+00_JPRB &
+  &, 0.506363E+00_JPRB, 0.492597E+00_JPRB, 0.478990E+00_JPRB &
+  &, 0.465568E+00_JPRB, 0.452407E+00_JPRB, 0.439433E+00_JPRB, 0.426670E+00_JPRB &
+  &, 0.414090E+00_JPRB, 0.401769E+00_JPRB, 0.389680E+00_JPRB &
+  &, 0.377790E+00_JPRB, 0.366123E+00_JPRB, 0.354643E+00_JPRB, 0.343430E+00_JPRB &
+  &, 0.332447E+00_JPRB, 0.321717E+00_JPRB, 0.311202E+00_JPRB &
+  &, 0.300921E+00_JPRB, 0.290833E+00_JPRB, 0.281019E+00_JPRB, 0.271372E+00_JPRB &
+  &, 0.262037E+00_JPRB, 0.252841E+00_JPRB, 0.243930E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART109',1,ZHOOK_HANDLE)
+END SUBROUTINE PART109
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART110
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART110',0,ZHOOK_HANDLE)
+
+XCW( 764, :) = (/ &
+  &  0.107010E+01_JPRB, 0.108704E+01_JPRB, 0.110371E+01_JPRB, 0.112011E+01_JPRB &
+  &, 0.113623E+01_JPRB, 0.115205E+01_JPRB, 0.116757E+01_JPRB &
+  &, 0.118277E+01_JPRB, 0.119764E+01_JPRB, 0.121217E+01_JPRB, 0.122635E+01_JPRB &
+  &, 0.124018E+01_JPRB, 0.125363E+01_JPRB, 0.126670E+01_JPRB &
+  &, 0.127939E+01_JPRB, 0.129167E+01_JPRB, 0.130355E+01_JPRB, 0.131500E+01_JPRB &
+  &, 0.132603E+01_JPRB, 0.133662E+01_JPRB, 0.134676E+01_JPRB &
+  &, 0.135646E+01_JPRB, 0.136569E+01_JPRB, 0.137445E+01_JPRB, 0.138273E+01_JPRB &
+  &, 0.139047E+01_JPRB, 0.139784E+01_JPRB, 0.140466E+01_JPRB &
+  &, 0.141097E+01_JPRB, 0.141678E+01_JPRB, 0.142207E+01_JPRB, 0.142685E+01_JPRB &
+  &, 0.143112E+01_JPRB, 0.143485E+01_JPRB, 0.143807E+01_JPRB &
+  &, 0.144076E+01_JPRB, 0.144292E+01_JPRB, 0.144455E+01_JPRB, 0.144566E+01_JPRB &
+  &, 0.144623E+01_JPRB, 0.144627E+01_JPRB, 0.144579E+01_JPRB &
+  &, 0.144478E+01_JPRB, 0.144325E+01_JPRB, 0.144119E+01_JPRB, 0.143863E+01_JPRB &
+  &, 0.143554E+01_JPRB, 0.143195E+01_JPRB, 0.142786E+01_JPRB &
+  &, 0.142326E+01_JPRB, 0.141818E+01_JPRB, 0.141260E+01_JPRB, 0.140656E+01_JPRB &
+  &, 0.140004E+01_JPRB, 0.139304E+01_JPRB, 0.138560E+01_JPRB &
+  &, 0.137771E+01_JPRB, 0.136938E+01_JPRB, 0.136062E+01_JPRB, 0.135143E+01_JPRB &
+  &, 0.134183E+01_JPRB, 0.133184E+01_JPRB, 0.132145E+01_JPRB &
+  &, 0.131069E+01_JPRB, 0.129955E+01_JPRB, 0.128806E+01_JPRB, 0.127622E+01_JPRB &
+  &, 0.126405E+01_JPRB, 0.125156E+01_JPRB, 0.123876E+01_JPRB &
+  &, 0.122565E+01_JPRB, 0.121227E+01_JPRB, 0.119861E+01_JPRB, 0.118468E+01_JPRB &
+  &, 0.117053E+01_JPRB, 0.115612E+01_JPRB, 0.114149E+01_JPRB &
+  &, 0.112664E+01_JPRB, 0.111161E+01_JPRB, 0.109640E+01_JPRB, 0.108100E+01_JPRB &
+  &, 0.106547E+01_JPRB, 0.104976E+01_JPRB, 0.103393E+01_JPRB &
+  &, 0.101800E+01_JPRB, 0.100195E+01_JPRB, 0.985810E+00_JPRB, 0.969574E+00_JPRB &
+  &, 0.953279E+00_JPRB, 0.936929E+00_JPRB, 0.920527E+00_JPRB &
+  &, 0.904076E+00_JPRB, 0.887643E+00_JPRB, 0.871164E+00_JPRB, 0.854707E+00_JPRB &
+  &, 0.838238E+00_JPRB, 0.821824E+00_JPRB, 0.805432E+00_JPRB &
+  &, 0.789057E+00_JPRB, 0.772768E+00_JPRB, 0.756527E+00_JPRB, 0.740365E+00_JPRB &
+  &, 0.724316E+00_JPRB, 0.708335E+00_JPRB, 0.692453E+00_JPRB &
+  &, 0.676663E+00_JPRB, 0.661034E+00_JPRB, 0.645477E+00_JPRB, 0.630104E+00_JPRB &
+  &, 0.614862E+00_JPRB, 0.599781E+00_JPRB, 0.584846E+00_JPRB &
+  &, 0.570043E+00_JPRB, 0.555444E+00_JPRB, 0.541034E+00_JPRB, 0.526748E+00_JPRB &
+  &, 0.512705E+00_JPRB, 0.498840E+00_JPRB, 0.485131E+00_JPRB &
+  &, 0.471651E+00_JPRB, 0.458377E+00_JPRB, 0.445337E+00_JPRB, 0.432451E+00_JPRB &
+  &, 0.419849E+00_JPRB, 0.407397E+00_JPRB, 0.395170E+00_JPRB &
+  &, 0.383193E+00_JPRB, 0.371434E+00_JPRB, 0.359916E+00_JPRB, 0.348603E+00_JPRB &
+  &, 0.337518E+00_JPRB, 0.326680E+00_JPRB, 0.316053E+00_JPRB &
+  &, 0.305656E+00_JPRB, 0.295509E+00_JPRB, 0.285570E+00_JPRB, 0.275858E+00_JPRB &
+  &, 0.266390E+00_JPRB, 0.257122E+00_JPRB, 0.248135E+00_JPRB/)
+XCW( 765, :) = (/ &
+  &  0.107044E+01_JPRB, 0.108747E+01_JPRB, 0.110423E+01_JPRB, 0.112073E+01_JPRB &
+  &, 0.113694E+01_JPRB, 0.115285E+01_JPRB, 0.116847E+01_JPRB &
+  &, 0.118377E+01_JPRB, 0.119874E+01_JPRB, 0.121337E+01_JPRB, 0.122766E+01_JPRB &
+  &, 0.124159E+01_JPRB, 0.125515E+01_JPRB, 0.126833E+01_JPRB &
+  &, 0.128112E+01_JPRB, 0.129351E+01_JPRB, 0.130549E+01_JPRB, 0.131706E+01_JPRB &
+  &, 0.132820E+01_JPRB, 0.133891E+01_JPRB, 0.134916E+01_JPRB &
+  &, 0.135897E+01_JPRB, 0.136831E+01_JPRB, 0.137719E+01_JPRB, 0.138559E+01_JPRB &
+  &, 0.139350E+01_JPRB, 0.140093E+01_JPRB, 0.140786E+01_JPRB &
+  &, 0.141429E+01_JPRB, 0.142021E+01_JPRB, 0.142562E+01_JPRB, 0.143046E+01_JPRB &
+  &, 0.143490E+01_JPRB, 0.143876E+01_JPRB, 0.144209E+01_JPRB &
+  &, 0.144489E+01_JPRB, 0.144716E+01_JPRB, 0.144891E+01_JPRB, 0.145013E+01_JPRB &
+  &, 0.145081E+01_JPRB, 0.145097E+01_JPRB, 0.145060E+01_JPRB &
+  &, 0.144970E+01_JPRB, 0.144828E+01_JPRB, 0.144633E+01_JPRB, 0.144388E+01_JPRB &
+  &, 0.144089E+01_JPRB, 0.143741E+01_JPRB, 0.143342E+01_JPRB &
+  &, 0.142893E+01_JPRB, 0.142394E+01_JPRB, 0.141846E+01_JPRB, 0.141252E+01_JPRB &
+  &, 0.140609E+01_JPRB, 0.139918E+01_JPRB, 0.139184E+01_JPRB &
+  &, 0.138403E+01_JPRB, 0.137579E+01_JPRB, 0.136711E+01_JPRB, 0.135800E+01_JPRB &
+  &, 0.134848E+01_JPRB, 0.133858E+01_JPRB, 0.132826E+01_JPRB &
+  &, 0.131756E+01_JPRB, 0.130651E+01_JPRB, 0.129507E+01_JPRB, 0.128331E+01_JPRB &
+  &, 0.127119E+01_JPRB, 0.125876E+01_JPRB, 0.124601E+01_JPRB &
+  &, 0.123297E+01_JPRB, 0.121964E+01_JPRB, 0.120602E+01_JPRB, 0.119213E+01_JPRB &
+  &, 0.117801E+01_JPRB, 0.116364E+01_JPRB, 0.114904E+01_JPRB &
+  &, 0.113425E+01_JPRB, 0.111925E+01_JPRB, 0.110404E+01_JPRB, 0.108869E+01_JPRB &
+  &, 0.107315E+01_JPRB, 0.105748E+01_JPRB, 0.104167E+01_JPRB &
+  &, 0.102574E+01_JPRB, 0.100967E+01_JPRB, 0.993528E+00_JPRB, 0.977319E+00_JPRB &
+  &, 0.961017E+00_JPRB, 0.944626E+00_JPRB, 0.928240E+00_JPRB &
+  &, 0.911771E+00_JPRB, 0.895314E+00_JPRB, 0.878809E+00_JPRB, 0.862320E+00_JPRB &
+  &, 0.845849E+00_JPRB, 0.829395E+00_JPRB, 0.812958E+00_JPRB &
+  &, 0.796570E+00_JPRB, 0.780227E+00_JPRB, 0.763965E+00_JPRB, 0.747740E+00_JPRB &
+  &, 0.731622E+00_JPRB, 0.715607E+00_JPRB, 0.699529E+00_JPRB &
+  &, 0.683854E+00_JPRB, 0.668139E+00_JPRB, 0.652572E+00_JPRB, 0.637101E+00_JPRB &
+  &, 0.621799E+00_JPRB, 0.606610E+00_JPRB, 0.591606E+00_JPRB &
+  &, 0.576774E+00_JPRB, 0.562097E+00_JPRB, 0.547558E+00_JPRB, 0.533230E+00_JPRB &
+  &, 0.519095E+00_JPRB, 0.505133E+00_JPRB, 0.491370E+00_JPRB &
+  &, 0.477833E+00_JPRB, 0.464448E+00_JPRB, 0.451292E+00_JPRB, 0.438337E+00_JPRB &
+  &, 0.425608E+00_JPRB, 0.413132E+00_JPRB, 0.400824E+00_JPRB &
+  &, 0.388762E+00_JPRB, 0.376858E+00_JPRB, 0.365245E+00_JPRB, 0.353834E+00_JPRB &
+  &, 0.342646E+00_JPRB, 0.331703E+00_JPRB, 0.321024E+00_JPRB &
+  &, 0.310513E+00_JPRB, 0.300247E+00_JPRB, 0.290247E+00_JPRB, 0.280407E+00_JPRB &
+  &, 0.270872E+00_JPRB, 0.261533E+00_JPRB, 0.252406E+00_JPRB/)
+XCW( 766, :) = (/ &
+  &  0.107078E+01_JPRB, 0.108790E+01_JPRB, 0.110475E+01_JPRB, 0.112134E+01_JPRB &
+  &, 0.113765E+01_JPRB, 0.115366E+01_JPRB, 0.116937E+01_JPRB &
+  &, 0.118476E+01_JPRB, 0.119984E+01_JPRB, 0.121458E+01_JPRB, 0.122897E+01_JPRB &
+  &, 0.124300E+01_JPRB, 0.125667E+01_JPRB, 0.126996E+01_JPRB &
+  &, 0.128286E+01_JPRB, 0.129536E+01_JPRB, 0.130746E+01_JPRB, 0.131913E+01_JPRB &
+  &, 0.133038E+01_JPRB, 0.134120E+01_JPRB, 0.135157E+01_JPRB &
+  &, 0.136149E+01_JPRB, 0.137095E+01_JPRB, 0.137994E+01_JPRB, 0.138845E+01_JPRB &
+  &, 0.139648E+01_JPRB, 0.140403E+01_JPRB, 0.141107E+01_JPRB &
+  &, 0.141762E+01_JPRB, 0.142366E+01_JPRB, 0.142919E+01_JPRB, 0.143420E+01_JPRB &
+  &, 0.143870E+01_JPRB, 0.144267E+01_JPRB, 0.144612E+01_JPRB &
+  &, 0.144904E+01_JPRB, 0.145142E+01_JPRB, 0.145329E+01_JPRB, 0.145462E+01_JPRB &
+  &, 0.145542E+01_JPRB, 0.145569E+01_JPRB, 0.145544E+01_JPRB &
+  &, 0.145463E+01_JPRB, 0.145333E+01_JPRB, 0.145150E+01_JPRB, 0.144915E+01_JPRB &
+  &, 0.144627E+01_JPRB, 0.144290E+01_JPRB, 0.143901E+01_JPRB &
+  &, 0.143462E+01_JPRB, 0.142973E+01_JPRB, 0.142436E+01_JPRB, 0.141850E+01_JPRB &
+  &, 0.141216E+01_JPRB, 0.140537E+01_JPRB, 0.139811E+01_JPRB &
+  &, 0.139039E+01_JPRB, 0.138222E+01_JPRB, 0.137363E+01_JPRB, 0.136461E+01_JPRB &
+  &, 0.135519E+01_JPRB, 0.134535E+01_JPRB, 0.133511E+01_JPRB &
+  &, 0.132450E+01_JPRB, 0.131350E+01_JPRB, 0.130215E+01_JPRB, 0.129042E+01_JPRB &
+  &, 0.127838E+01_JPRB, 0.126601E+01_JPRB, 0.125332E+01_JPRB &
+  &, 0.124033E+01_JPRB, 0.122704E+01_JPRB, 0.121347E+01_JPRB, 0.119964E+01_JPRB &
+  &, 0.118555E+01_JPRB, 0.117121E+01_JPRB, 0.115667E+01_JPRB &
+  &, 0.114189E+01_JPRB, 0.112691E+01_JPRB, 0.111176E+01_JPRB, 0.109640E+01_JPRB &
+  &, 0.108091E+01_JPRB, 0.106523E+01_JPRB, 0.104943E+01_JPRB &
+  &, 0.103351E+01_JPRB, 0.101747E+01_JPRB, 0.100133E+01_JPRB, 0.985093E+00_JPRB &
+  &, 0.968786E+00_JPRB, 0.952415E+00_JPRB, 0.936015E+00_JPRB &
+  &, 0.919529E+00_JPRB, 0.903051E+00_JPRB, 0.886552E+00_JPRB, 0.870033E+00_JPRB &
+  &, 0.853528E+00_JPRB, 0.837035E+00_JPRB, 0.820449E+00_JPRB &
+  &, 0.804154E+00_JPRB, 0.787759E+00_JPRB, 0.771439E+00_JPRB, 0.755190E+00_JPRB &
+  &, 0.739044E+00_JPRB, 0.722957E+00_JPRB, 0.706961E+00_JPRB &
+  &, 0.691086E+00_JPRB, 0.675324E+00_JPRB, 0.659666E+00_JPRB, 0.644183E+00_JPRB &
+  &, 0.628779E+00_JPRB, 0.613570E+00_JPRB, 0.598410E+00_JPRB &
+  &, 0.583549E+00_JPRB, 0.568795E+00_JPRB, 0.554220E+00_JPRB, 0.539806E+00_JPRB &
+  &, 0.525580E+00_JPRB, 0.511522E+00_JPRB, 0.497707E+00_JPRB &
+  &, 0.484065E+00_JPRB, 0.470621E+00_JPRB, 0.457349E+00_JPRB, 0.444326E+00_JPRB &
+  &, 0.431473E+00_JPRB, 0.418867E+00_JPRB, 0.406478E+00_JPRB &
+  &, 0.394330E+00_JPRB, 0.382393E+00_JPRB, 0.370688E+00_JPRB, 0.359181E+00_JPRB &
+  &, 0.347892E+00_JPRB, 0.336843E+00_JPRB, 0.326055E+00_JPRB &
+  &, 0.315430E+00_JPRB, 0.305107E+00_JPRB, 0.294985E+00_JPRB, 0.285082E+00_JPRB &
+  &, 0.275417E+00_JPRB, 0.265943E+00_JPRB, 0.256743E+00_JPRB/)
+XCW( 767, :) = (/ &
+  &  0.107113E+01_JPRB, 0.108833E+01_JPRB, 0.110528E+01_JPRB, 0.112196E+01_JPRB &
+  &, 0.113836E+01_JPRB, 0.115447E+01_JPRB, 0.117028E+01_JPRB &
+  &, 0.118578E+01_JPRB, 0.120095E+01_JPRB, 0.121579E+01_JPRB, 0.123029E+01_JPRB &
+  &, 0.124443E+01_JPRB, 0.125820E+01_JPRB, 0.127159E+01_JPRB &
+  &, 0.128460E+01_JPRB, 0.129721E+01_JPRB, 0.130942E+01_JPRB, 0.132121E+01_JPRB &
+  &, 0.133257E+01_JPRB, 0.134350E+01_JPRB, 0.135399E+01_JPRB &
+  &, 0.136402E+01_JPRB, 0.137359E+01_JPRB, 0.138270E+01_JPRB, 0.139133E+01_JPRB &
+  &, 0.139948E+01_JPRB, 0.140714E+01_JPRB, 0.141430E+01_JPRB &
+  &, 0.142097E+01_JPRB, 0.142713E+01_JPRB, 0.143277E+01_JPRB, 0.143790E+01_JPRB &
+  &, 0.144224E+01_JPRB, 0.144661E+01_JPRB, 0.145017E+01_JPRB &
+  &, 0.145321E+01_JPRB, 0.145570E+01_JPRB, 0.145769E+01_JPRB, 0.145913E+01_JPRB &
+  &, 0.146005E+01_JPRB, 0.146043E+01_JPRB, 0.146029E+01_JPRB &
+  &, 0.145961E+01_JPRB, 0.145841E+01_JPRB, 0.145669E+01_JPRB, 0.145444E+01_JPRB &
+  &, 0.145168E+01_JPRB, 0.144840E+01_JPRB, 0.144462E+01_JPRB &
+  &, 0.144033E+01_JPRB, 0.143554E+01_JPRB, 0.143028E+01_JPRB, 0.142452E+01_JPRB &
+  &, 0.141827E+01_JPRB, 0.141157E+01_JPRB, 0.140441E+01_JPRB &
+  &, 0.139677E+01_JPRB, 0.138871E+01_JPRB, 0.138020E+01_JPRB, 0.137126E+01_JPRB &
+  &, 0.136191E+01_JPRB, 0.135215E+01_JPRB, 0.134200E+01_JPRB &
+  &, 0.133145E+01_JPRB, 0.132053E+01_JPRB, 0.130924E+01_JPRB, 0.129759E+01_JPRB &
+  &, 0.128562E+01_JPRB, 0.127329E+01_JPRB, 0.126067E+01_JPRB &
+  &, 0.124773E+01_JPRB, 0.123449E+01_JPRB, 0.122097E+01_JPRB, 0.120718E+01_JPRB &
+  &, 0.119315E+01_JPRB, 0.117886E+01_JPRB, 0.116433E+01_JPRB &
+  &, 0.114960E+01_JPRB, 0.113465E+01_JPRB, 0.111952E+01_JPRB, 0.110419E+01_JPRB &
+  &, 0.108869E+01_JPRB, 0.107306E+01_JPRB, 0.105727E+01_JPRB &
+  &, 0.104136E+01_JPRB, 0.102533E+01_JPRB, 0.100920E+01_JPRB, 0.992956E+00_JPRB &
+  &, 0.976644E+00_JPRB, 0.960265E+00_JPRB, 0.943853E+00_JPRB &
+  &, 0.927382E+00_JPRB, 0.910851E+00_JPRB, 0.894328E+00_JPRB, 0.877813E+00_JPRB &
+  &, 0.861275E+00_JPRB, 0.844745E+00_JPRB, 0.828257E+00_JPRB &
+  &, 0.811809E+00_JPRB, 0.795364E+00_JPRB, 0.779025E+00_JPRB, 0.762715E+00_JPRB &
+  &, 0.746503E+00_JPRB, 0.730385E+00_JPRB, 0.714353E+00_JPRB &
+  &, 0.698398E+00_JPRB, 0.682592E+00_JPRB, 0.666885E+00_JPRB, 0.651307E+00_JPRB &
+  &, 0.635845E+00_JPRB, 0.620573E+00_JPRB, 0.605391E+00_JPRB &
+  &, 0.590414E+00_JPRB, 0.575584E+00_JPRB, 0.560928E+00_JPRB, 0.546429E+00_JPRB &
+  &, 0.532112E+00_JPRB, 0.518008E+00_JPRB, 0.504093E+00_JPRB &
+  &, 0.490347E+00_JPRB, 0.476793E+00_JPRB, 0.463509E+00_JPRB, 0.450368E+00_JPRB &
+  &, 0.437444E+00_JPRB, 0.424762E+00_JPRB, 0.412240E+00_JPRB &
+  &, 0.400009E+00_JPRB, 0.387984E+00_JPRB, 0.376131E+00_JPRB, 0.364527E+00_JPRB &
+  &, 0.353195E+00_JPRB, 0.342042E+00_JPRB, 0.331146E+00_JPRB &
+  &, 0.320468E+00_JPRB, 0.309967E+00_JPRB, 0.299786E+00_JPRB, 0.289758E+00_JPRB &
+  &, 0.279962E+00_JPRB, 0.270354E+00_JPRB, 0.261146E+00_JPRB/)
+XCW( 768, :) = (/ &
+  &  0.107147E+01_JPRB, 0.108876E+01_JPRB, 0.110580E+01_JPRB, 0.112258E+01_JPRB &
+  &, 0.113907E+01_JPRB, 0.115528E+01_JPRB, 0.117119E+01_JPRB &
+  &, 0.118679E+01_JPRB, 0.120207E+01_JPRB, 0.121701E+01_JPRB, 0.123161E+01_JPRB &
+  &, 0.124585E+01_JPRB, 0.125973E+01_JPRB, 0.127323E+01_JPRB &
+  &, 0.128635E+01_JPRB, 0.129907E+01_JPRB, 0.131139E+01_JPRB, 0.132329E+01_JPRB &
+  &, 0.133477E+01_JPRB, 0.134581E+01_JPRB, 0.135641E+01_JPRB &
+  &, 0.136656E+01_JPRB, 0.137625E+01_JPRB, 0.138547E+01_JPRB, 0.139422E+01_JPRB &
+  &, 0.140248E+01_JPRB, 0.141026E+01_JPRB, 0.141754E+01_JPRB &
+  &, 0.142433E+01_JPRB, 0.143060E+01_JPRB, 0.143637E+01_JPRB, 0.144162E+01_JPRB &
+  &, 0.144635E+01_JPRB, 0.145056E+01_JPRB, 0.145424E+01_JPRB &
+  &, 0.145739E+01_JPRB, 0.146001E+01_JPRB, 0.146210E+01_JPRB, 0.146367E+01_JPRB &
+  &, 0.146470E+01_JPRB, 0.146519E+01_JPRB, 0.146516E+01_JPRB &
+  &, 0.146459E+01_JPRB, 0.146350E+01_JPRB, 0.146172E+01_JPRB, 0.145976E+01_JPRB &
+  &, 0.145711E+01_JPRB, 0.145394E+01_JPRB, 0.145026E+01_JPRB &
+  &, 0.144607E+01_JPRB, 0.144140E+01_JPRB, 0.143620E+01_JPRB, 0.143056E+01_JPRB &
+  &, 0.142431E+01_JPRB, 0.141781E+01_JPRB, 0.141074E+01_JPRB &
+  &, 0.140320E+01_JPRB, 0.139523E+01_JPRB, 0.138680E+01_JPRB, 0.137795E+01_JPRB &
+  &, 0.136869E+01_JPRB, 0.135901E+01_JPRB, 0.134892E+01_JPRB &
+  &, 0.133845E+01_JPRB, 0.132760E+01_JPRB, 0.131638E+01_JPRB, 0.130482E+01_JPRB &
+  &, 0.129288E+01_JPRB, 0.128063E+01_JPRB, 0.126807E+01_JPRB &
+  &, 0.125517E+01_JPRB, 0.124201E+01_JPRB, 0.122853E+01_JPRB, 0.121479E+01_JPRB &
+  &, 0.120080E+01_JPRB, 0.118654E+01_JPRB, 0.117205E+01_JPRB &
+  &, 0.115736E+01_JPRB, 0.114244E+01_JPRB, 0.112732E+01_JPRB, 0.111204E+01_JPRB &
+  &, 0.109656E+01_JPRB, 0.108094E+01_JPRB, 0.106517E+01_JPRB &
+  &, 0.104927E+01_JPRB, 0.103325E+01_JPRB, 0.101712E+01_JPRB, 0.100088E+01_JPRB &
+  &, 0.984562E+00_JPRB, 0.968176E+00_JPRB, 0.951753E+00_JPRB &
+  &, 0.935266E+00_JPRB, 0.918749E+00_JPRB, 0.902202E+00_JPRB, 0.885627E+00_JPRB &
+  &, 0.869090E+00_JPRB, 0.852523E+00_JPRB, 0.835994E+00_JPRB &
+  &, 0.819501E+00_JPRB, 0.803078E+00_JPRB, 0.786647E+00_JPRB, 0.770315E+00_JPRB &
+  &, 0.754078E+00_JPRB, 0.737891E+00_JPRB, 0.721784E+00_JPRB &
+  &, 0.705791E+00_JPRB, 0.689941E+00_JPRB, 0.674145E+00_JPRB, 0.658515E+00_JPRB &
+  &, 0.642996E+00_JPRB, 0.627664E+00_JPRB, 0.612416E+00_JPRB &
+  &, 0.597369E+00_JPRB, 0.582464E+00_JPRB, 0.567729E+00_JPRB, 0.553146E+00_JPRB &
+  &, 0.538788E+00_JPRB, 0.524590E+00_JPRB, 0.510578E+00_JPRB &
+  &, 0.496728E+00_JPRB, 0.483117E+00_JPRB, 0.469669E+00_JPRB, 0.456461E+00_JPRB &
+  &, 0.443467E+00_JPRB, 0.430711E+00_JPRB, 0.418111E+00_JPRB &
+  &, 0.405743E+00_JPRB, 0.393631E+00_JPRB, 0.381687E+00_JPRB, 0.369988E+00_JPRB &
+  &, 0.358557E+00_JPRB, 0.347300E+00_JPRB, 0.336296E+00_JPRB &
+  &, 0.325507E+00_JPRB, 0.314951E+00_JPRB, 0.304649E+00_JPRB, 0.294559E+00_JPRB &
+  &, 0.284636E+00_JPRB, 0.275024E+00_JPRB, 0.265614E+00_JPRB/)
+XCW( 769, :) = (/ &
+  &  0.107181E+01_JPRB, 0.108920E+01_JPRB, 0.110633E+01_JPRB, 0.112320E+01_JPRB &
+  &, 0.113979E+01_JPRB, 0.115610E+01_JPRB, 0.117210E+01_JPRB &
+  &, 0.118780E+01_JPRB, 0.120318E+01_JPRB, 0.121823E+01_JPRB, 0.123293E+01_JPRB &
+  &, 0.124728E+01_JPRB, 0.126127E+01_JPRB, 0.127488E+01_JPRB &
+  &, 0.128811E+01_JPRB, 0.130094E+01_JPRB, 0.131337E+01_JPRB, 0.132538E+01_JPRB &
+  &, 0.133697E+01_JPRB, 0.134812E+01_JPRB, 0.135884E+01_JPRB &
+  &, 0.136911E+01_JPRB, 0.137891E+01_JPRB, 0.138825E+01_JPRB, 0.139712E+01_JPRB &
+  &, 0.140550E+01_JPRB, 0.141339E+01_JPRB, 0.142080E+01_JPRB &
+  &, 0.142770E+01_JPRB, 0.143409E+01_JPRB, 0.143998E+01_JPRB, 0.144535E+01_JPRB &
+  &, 0.145019E+01_JPRB, 0.145452E+01_JPRB, 0.145832E+01_JPRB &
+  &, 0.146159E+01_JPRB, 0.146432E+01_JPRB, 0.146654E+01_JPRB, 0.146822E+01_JPRB &
+  &, 0.146937E+01_JPRB, 0.146998E+01_JPRB, 0.147006E+01_JPRB &
+  &, 0.146961E+01_JPRB, 0.146864E+01_JPRB, 0.146711E+01_JPRB, 0.146511E+01_JPRB &
+  &, 0.146256E+01_JPRB, 0.145950E+01_JPRB, 0.145593E+01_JPRB &
+  &, 0.145186E+01_JPRB, 0.144728E+01_JPRB, 0.144220E+01_JPRB, 0.143664E+01_JPRB &
+  &, 0.143060E+01_JPRB, 0.142408E+01_JPRB, 0.141710E+01_JPRB &
+  &, 0.140967E+01_JPRB, 0.140178E+01_JPRB, 0.139344E+01_JPRB, 0.138467E+01_JPRB &
+  &, 0.137549E+01_JPRB, 0.136588E+01_JPRB, 0.135588E+01_JPRB &
+  &, 0.134549E+01_JPRB, 0.133472E+01_JPRB, 0.132357E+01_JPRB, 0.131206E+01_JPRB &
+  &, 0.130021E+01_JPRB, 0.128803E+01_JPRB, 0.127550E+01_JPRB &
+  &, 0.126268E+01_JPRB, 0.124954E+01_JPRB, 0.123613E+01_JPRB, 0.122244E+01_JPRB &
+  &, 0.120849E+01_JPRB, 0.119428E+01_JPRB, 0.117985E+01_JPRB &
+  &, 0.116516E+01_JPRB, 0.115028E+01_JPRB, 0.113521E+01_JPRB, 0.111993E+01_JPRB &
+  &, 0.110447E+01_JPRB, 0.108888E+01_JPRB, 0.107312E+01_JPRB &
+  &, 0.105723E+01_JPRB, 0.104122E+01_JPRB, 0.102510E+01_JPRB, 0.100886E+01_JPRB &
+  &, 0.992540E+00_JPRB, 0.976148E+00_JPRB, 0.959715E+00_JPRB &
+  &, 0.943214E+00_JPRB, 0.926678E+00_JPRB, 0.910109E+00_JPRB, 0.893540E+00_JPRB &
+  &, 0.876972E+00_JPRB, 0.860371E+00_JPRB, 0.843837E+00_JPRB &
+  &, 0.827300E+00_JPRB, 0.810828E+00_JPRB, 0.794381E+00_JPRB, 0.777991E+00_JPRB &
+  &, 0.761690E+00_JPRB, 0.745474E+00_JPRB, 0.729335E+00_JPRB &
+  &, 0.713263E+00_JPRB, 0.697331E+00_JPRB, 0.681530E+00_JPRB, 0.665807E+00_JPRB &
+  &, 0.650234E+00_JPRB, 0.634798E+00_JPRB, 0.619529E+00_JPRB &
+  &, 0.604369E+00_JPRB, 0.589390E+00_JPRB, 0.574576E+00_JPRB, 0.559956E+00_JPRB &
+  &, 0.545464E+00_JPRB, 0.531221E+00_JPRB, 0.517112E+00_JPRB &
+  &, 0.503210E+00_JPRB, 0.489492E+00_JPRB, 0.475983E+00_JPRB, 0.462659E+00_JPRB &
+  &, 0.449596E+00_JPRB, 0.436714E+00_JPRB, 0.424037E+00_JPRB &
+  &, 0.411587E+00_JPRB, 0.399334E+00_JPRB, 0.387357E+00_JPRB, 0.375564E+00_JPRB &
+  &, 0.363977E+00_JPRB, 0.352677E+00_JPRB, 0.341567E+00_JPRB &
+  &, 0.330667E+00_JPRB, 0.319996E+00_JPRB, 0.309575E+00_JPRB, 0.299361E+00_JPRB &
+  &, 0.289437E+00_JPRB, 0.279694E+00_JPRB, 0.270148E+00_JPRB/)
+XCW( 770, :) = (/ &
+  &  0.107216E+01_JPRB, 0.108963E+01_JPRB, 0.110686E+01_JPRB, 0.112382E+01_JPRB &
+  &, 0.114051E+01_JPRB, 0.115691E+01_JPRB, 0.117302E+01_JPRB &
+  &, 0.118882E+01_JPRB, 0.120430E+01_JPRB, 0.121945E+01_JPRB, 0.123426E+01_JPRB &
+  &, 0.124871E+01_JPRB, 0.126281E+01_JPRB, 0.127653E+01_JPRB &
+  &, 0.128987E+01_JPRB, 0.130281E+01_JPRB, 0.131535E+01_JPRB, 0.132748E+01_JPRB &
+  &, 0.133918E+01_JPRB, 0.135045E+01_JPRB, 0.136128E+01_JPRB &
+  &, 0.137166E+01_JPRB, 0.138159E+01_JPRB, 0.139104E+01_JPRB, 0.140003E+01_JPRB &
+  &, 0.140853E+01_JPRB, 0.141654E+01_JPRB, 0.142406E+01_JPRB &
+  &, 0.143108E+01_JPRB, 0.143760E+01_JPRB, 0.144360E+01_JPRB, 0.144909E+01_JPRB &
+  &, 0.145406E+01_JPRB, 0.145850E+01_JPRB, 0.146242E+01_JPRB &
+  &, 0.146581E+01_JPRB, 0.146867E+01_JPRB, 0.147100E+01_JPRB, 0.147279E+01_JPRB &
+  &, 0.147405E+01_JPRB, 0.147478E+01_JPRB, 0.147498E+01_JPRB &
+  &, 0.147465E+01_JPRB, 0.147378E+01_JPRB, 0.147240E+01_JPRB, 0.147048E+01_JPRB &
+  &, 0.146804E+01_JPRB, 0.146509E+01_JPRB, 0.146162E+01_JPRB &
+  &, 0.145765E+01_JPRB, 0.145317E+01_JPRB, 0.144821E+01_JPRB, 0.144275E+01_JPRB &
+  &, 0.143681E+01_JPRB, 0.143038E+01_JPRB, 0.142350E+01_JPRB &
+  &, 0.141616E+01_JPRB, 0.140836E+01_JPRB, 0.140011E+01_JPRB, 0.139143E+01_JPRB &
+  &, 0.138233E+01_JPRB, 0.137281E+01_JPRB, 0.136289E+01_JPRB &
+  &, 0.135257E+01_JPRB, 0.134188E+01_JPRB, 0.133081E+01_JPRB, 0.131936E+01_JPRB &
+  &, 0.130757E+01_JPRB, 0.129545E+01_JPRB, 0.128300E+01_JPRB &
+  &, 0.127023E+01_JPRB, 0.125717E+01_JPRB, 0.124378E+01_JPRB, 0.122998E+01_JPRB &
+  &, 0.121623E+01_JPRB, 0.120208E+01_JPRB, 0.118767E+01_JPRB &
+  &, 0.117304E+01_JPRB, 0.115820E+01_JPRB, 0.114313E+01_JPRB, 0.112788E+01_JPRB &
+  &, 0.111247E+01_JPRB, 0.109687E+01_JPRB, 0.108113E+01_JPRB &
+  &, 0.106525E+01_JPRB, 0.104925E+01_JPRB, 0.103313E+01_JPRB, 0.101690E+01_JPRB &
+  &, 0.100061E+01_JPRB, 0.984211E+00_JPRB, 0.967739E+00_JPRB &
+  &, 0.951257E+00_JPRB, 0.934705E+00_JPRB, 0.918114E+00_JPRB, 0.901521E+00_JPRB &
+  &, 0.884923E+00_JPRB, 0.868322E+00_JPRB, 0.851715E+00_JPRB &
+  &, 0.835170E+00_JPRB, 0.818651E+00_JPRB, 0.802151E+00_JPRB, 0.785742E+00_JPRB &
+  &, 0.769379E+00_JPRB, 0.753096E+00_JPRB, 0.736924E+00_JPRB &
+  &, 0.720817E+00_JPRB, 0.704844E+00_JPRB, 0.688956E+00_JPRB, 0.673184E+00_JPRB &
+  &, 0.657556E+00_JPRB, 0.642062E+00_JPRB, 0.626687E+00_JPRB &
+  &, 0.611459E+00_JPRB, 0.596407E+00_JPRB, 0.581516E+00_JPRB, 0.566814E+00_JPRB &
+  &, 0.552283E+00_JPRB, 0.537901E+00_JPRB, 0.523744E+00_JPRB &
+  &, 0.509741E+00_JPRB, 0.495967E+00_JPRB, 0.482349E+00_JPRB, 0.468961E+00_JPRB &
+  &, 0.455778E+00_JPRB, 0.442771E+00_JPRB, 0.430017E+00_JPRB &
+  &, 0.417487E+00_JPRB, 0.405149E+00_JPRB, 0.393026E+00_JPRB, 0.381140E+00_JPRB &
+  &, 0.369514E+00_JPRB, 0.358054E+00_JPRB, 0.346837E+00_JPRB &
+  &, 0.335887E+00_JPRB, 0.325102E+00_JPRB, 0.314625E+00_JPRB, 0.304289E+00_JPRB &
+  &, 0.294238E+00_JPRB, 0.284429E+00_JPRB, 0.274814E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART110',1,ZHOOK_HANDLE)
+END SUBROUTINE PART110
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART111
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART111',0,ZHOOK_HANDLE)
+
+XCW( 771, :) = (/ &
+  &  0.107251E+01_JPRB, 0.109007E+01_JPRB, 0.110739E+01_JPRB, 0.112445E+01_JPRB &
+  &, 0.114123E+01_JPRB, 0.115773E+01_JPRB, 0.117394E+01_JPRB &
+  &, 0.118984E+01_JPRB, 0.120542E+01_JPRB, 0.122068E+01_JPRB, 0.123559E+01_JPRB &
+  &, 0.125015E+01_JPRB, 0.126436E+01_JPRB, 0.127819E+01_JPRB &
+  &, 0.129163E+01_JPRB, 0.130469E+01_JPRB, 0.131734E+01_JPRB, 0.132958E+01_JPRB &
+  &, 0.134140E+01_JPRB, 0.135278E+01_JPRB, 0.136373E+01_JPRB &
+  &, 0.137423E+01_JPRB, 0.138427E+01_JPRB, 0.139385E+01_JPRB, 0.140295E+01_JPRB &
+  &, 0.141157E+01_JPRB, 0.141970E+01_JPRB, 0.142734E+01_JPRB &
+  &, 0.143448E+01_JPRB, 0.144112E+01_JPRB, 0.144724E+01_JPRB, 0.145285E+01_JPRB &
+  &, 0.145794E+01_JPRB, 0.146250E+01_JPRB, 0.146654E+01_JPRB &
+  &, 0.147005E+01_JPRB, 0.147303E+01_JPRB, 0.147547E+01_JPRB, 0.147739E+01_JPRB &
+  &, 0.147877E+01_JPRB, 0.147961E+01_JPRB, 0.147993E+01_JPRB &
+  &, 0.147970E+01_JPRB, 0.147895E+01_JPRB, 0.147768E+01_JPRB, 0.147588E+01_JPRB &
+  &, 0.147355E+01_JPRB, 0.147070E+01_JPRB, 0.146736E+01_JPRB &
+  &, 0.146349E+01_JPRB, 0.145912E+01_JPRB, 0.145424E+01_JPRB, 0.144889E+01_JPRB &
+  &, 0.144306E+01_JPRB, 0.143673E+01_JPRB, 0.142994E+01_JPRB &
+  &, 0.142268E+01_JPRB, 0.141497E+01_JPRB, 0.140683E+01_JPRB, 0.139823E+01_JPRB &
+  &, 0.138923E+01_JPRB, 0.137979E+01_JPRB, 0.136994E+01_JPRB &
+  &, 0.135970E+01_JPRB, 0.134908E+01_JPRB, 0.133807E+01_JPRB, 0.132671E+01_JPRB &
+  &, 0.131499E+01_JPRB, 0.130293E+01_JPRB, 0.129053E+01_JPRB &
+  &, 0.127782E+01_JPRB, 0.126481E+01_JPRB, 0.125150E+01_JPRB, 0.123790E+01_JPRB &
+  &, 0.122404E+01_JPRB, 0.120991E+01_JPRB, 0.119556E+01_JPRB &
+  &, 0.118095E+01_JPRB, 0.116613E+01_JPRB, 0.115112E+01_JPRB, 0.113590E+01_JPRB &
+  &, 0.112049E+01_JPRB, 0.110494E+01_JPRB, 0.108921E+01_JPRB &
+  &, 0.107336E+01_JPRB, 0.105734E+01_JPRB, 0.104123E+01_JPRB, 0.102502E+01_JPRB &
+  &, 0.100871E+01_JPRB, 0.992306E+00_JPRB, 0.975857E+00_JPRB &
+  &, 0.959332E+00_JPRB, 0.942763E+00_JPRB, 0.926186E+00_JPRB, 0.909568E+00_JPRB &
+  &, 0.892942E+00_JPRB, 0.876308E+00_JPRB, 0.859699E+00_JPRB &
+  &, 0.843112E+00_JPRB, 0.826546E+00_JPRB, 0.810033E+00_JPRB, 0.793568E+00_JPRB &
+  &, 0.777145E+00_JPRB, 0.760835E+00_JPRB, 0.744593E+00_JPRB &
+  &, 0.728450E+00_JPRB, 0.712397E+00_JPRB, 0.696466E+00_JPRB, 0.680645E+00_JPRB &
+  &, 0.664922E+00_JPRB, 0.649370E+00_JPRB, 0.633932E+00_JPRB &
+  &, 0.618638E+00_JPRB, 0.603515E+00_JPRB, 0.588549E+00_JPRB, 0.573766E+00_JPRB &
+  &, 0.559149E+00_JPRB, 0.544677E+00_JPRB, 0.530425E+00_JPRB &
+  &, 0.516372E+00_JPRB, 0.502494E+00_JPRB, 0.488817E+00_JPRB, 0.475315E+00_JPRB &
+  &, 0.462013E+00_JPRB, 0.448988E+00_JPRB, 0.436105E+00_JPRB &
+  &, 0.423496E+00_JPRB, 0.410629E+00_JPRB, 0.398866E+00_JPRB, 0.386889E+00_JPRB &
+  &, 0.375109E+00_JPRB, 0.363548E+00_JPRB, 0.352287E+00_JPRB &
+  &, 0.341168E+00_JPRB, 0.330332E+00_JPRB, 0.319676E+00_JPRB, 0.309281E+00_JPRB &
+  &, 0.299104E+00_JPRB, 0.289164E+00_JPRB, 0.279479E+00_JPRB/)
+XCW( 772, :) = (/ &
+  &  0.107285E+01_JPRB, 0.109051E+01_JPRB, 0.110792E+01_JPRB, 0.112507E+01_JPRB &
+  &, 0.114195E+01_JPRB, 0.115855E+01_JPRB, 0.117486E+01_JPRB &
+  &, 0.119086E+01_JPRB, 0.120655E+01_JPRB, 0.122191E+01_JPRB, 0.123693E+01_JPRB &
+  &, 0.125160E+01_JPRB, 0.126591E+01_JPRB, 0.127985E+01_JPRB &
+  &, 0.129340E+01_JPRB, 0.130657E+01_JPRB, 0.131934E+01_JPRB, 0.133169E+01_JPRB &
+  &, 0.134363E+01_JPRB, 0.135513E+01_JPRB, 0.136619E+01_JPRB &
+  &, 0.137681E+01_JPRB, 0.138696E+01_JPRB, 0.139666E+01_JPRB, 0.140588E+01_JPRB &
+  &, 0.141462E+01_JPRB, 0.142288E+01_JPRB, 0.143063E+01_JPRB &
+  &, 0.143790E+01_JPRB, 0.144465E+01_JPRB, 0.145089E+01_JPRB, 0.145662E+01_JPRB &
+  &, 0.146183E+01_JPRB, 0.146652E+01_JPRB, 0.147068E+01_JPRB &
+  &, 0.147430E+01_JPRB, 0.147740E+01_JPRB, 0.147997E+01_JPRB, 0.148200E+01_JPRB &
+  &, 0.148350E+01_JPRB, 0.148446E+01_JPRB, 0.148490E+01_JPRB &
+  &, 0.148478E+01_JPRB, 0.148415E+01_JPRB, 0.148298E+01_JPRB, 0.148130E+01_JPRB &
+  &, 0.147909E+01_JPRB, 0.147635E+01_JPRB, 0.147310E+01_JPRB &
+  &, 0.146935E+01_JPRB, 0.146509E+01_JPRB, 0.146032E+01_JPRB, 0.145506E+01_JPRB &
+  &, 0.144933E+01_JPRB, 0.144311E+01_JPRB, 0.143640E+01_JPRB &
+  &, 0.142925E+01_JPRB, 0.142163E+01_JPRB, 0.141358E+01_JPRB, 0.140507E+01_JPRB &
+  &, 0.139615E+01_JPRB, 0.138678E+01_JPRB, 0.137704E+01_JPRB &
+  &, 0.136687E+01_JPRB, 0.135633E+01_JPRB, 0.134539E+01_JPRB, 0.133411E+01_JPRB &
+  &, 0.132245E+01_JPRB, 0.131045E+01_JPRB, 0.129811E+01_JPRB &
+  &, 0.128548E+01_JPRB, 0.127252E+01_JPRB, 0.125926E+01_JPRB, 0.124571E+01_JPRB &
+  &, 0.123190E+01_JPRB, 0.121781E+01_JPRB, 0.120350E+01_JPRB &
+  &, 0.118893E+01_JPRB, 0.117415E+01_JPRB, 0.115917E+01_JPRB, 0.114397E+01_JPRB &
+  &, 0.112859E+01_JPRB, 0.111306E+01_JPRB, 0.109736E+01_JPRB &
+  &, 0.108149E+01_JPRB, 0.106551E+01_JPRB, 0.104941E+01_JPRB, 0.103318E+01_JPRB &
+  &, 0.101689E+01_JPRB, 0.100049E+01_JPRB, 0.984037E+00_JPRB &
+  &, 0.967501E+00_JPRB, 0.950918E+00_JPRB, 0.934322E+00_JPRB, 0.917682E+00_JPRB &
+  &, 0.901029E+00_JPRB, 0.884363E+00_JPRB, 0.867717E+00_JPRB &
+  &, 0.851090E+00_JPRB, 0.834515E+00_JPRB, 0.817952E+00_JPRB, 0.801469E+00_JPRB &
+  &, 0.785025E+00_JPRB, 0.768652E+00_JPRB, 0.752341E+00_JPRB &
+  &, 0.736124E+00_JPRB, 0.720032E+00_JPRB, 0.704017E+00_JPRB, 0.688148E+00_JPRB &
+  &, 0.672373E+00_JPRB, 0.656765E+00_JPRB, 0.641267E+00_JPRB &
+  &, 0.625907E+00_JPRB, 0.610715E+00_JPRB, 0.595673E+00_JPRB, 0.580812E+00_JPRB &
+  &, 0.566111E+00_JPRB, 0.551550E+00_JPRB, 0.537204E+00_JPRB &
+  &, 0.523052E+00_JPRB, 0.509121E+00_JPRB, 0.495336E+00_JPRB, 0.481773E+00_JPRB &
+  &, 0.468406E+00_JPRB, 0.455205E+00_JPRB, 0.442248E+00_JPRB &
+  &, 0.429561E+00_JPRB, 0.417003E+00_JPRB, 0.404706E+00_JPRB, 0.392637E+00_JPRB &
+  &, 0.380762E+00_JPRB, 0.369161E+00_JPRB, 0.357737E+00_JPRB &
+  &, 0.346571E+00_JPRB, 0.335623E+00_JPRB, 0.324851E+00_JPRB, 0.314398E+00_JPRB &
+  &, 0.304097E+00_JPRB, 0.294093E+00_JPRB, 0.284276E+00_JPRB/)
+XCW( 773, :) = (/ &
+  &  0.107320E+01_JPRB, 0.109095E+01_JPRB, 0.110845E+01_JPRB, 0.112570E+01_JPRB &
+  &, 0.114268E+01_JPRB, 0.115938E+01_JPRB, 0.117578E+01_JPRB &
+  &, 0.119189E+01_JPRB, 0.120768E+01_JPRB, 0.122314E+01_JPRB, 0.123827E+01_JPRB &
+  &, 0.125304E+01_JPRB, 0.126746E+01_JPRB, 0.128151E+01_JPRB &
+  &, 0.129518E+01_JPRB, 0.130846E+01_JPRB, 0.132134E+01_JPRB, 0.133381E+01_JPRB &
+  &, 0.134586E+01_JPRB, 0.135748E+01_JPRB, 0.136866E+01_JPRB &
+  &, 0.137939E+01_JPRB, 0.138967E+01_JPRB, 0.139948E+01_JPRB, 0.140882E+01_JPRB &
+  &, 0.141768E+01_JPRB, 0.142606E+01_JPRB, 0.143393E+01_JPRB &
+  &, 0.144132E+01_JPRB, 0.144820E+01_JPRB, 0.145456E+01_JPRB, 0.146041E+01_JPRB &
+  &, 0.146574E+01_JPRB, 0.147055E+01_JPRB, 0.147483E+01_JPRB &
+  &, 0.147858E+01_JPRB, 0.148180E+01_JPRB, 0.148449E+01_JPRB, 0.148664E+01_JPRB &
+  &, 0.148826E+01_JPRB, 0.148934E+01_JPRB, 0.148988E+01_JPRB &
+  &, 0.148989E+01_JPRB, 0.148937E+01_JPRB, 0.148832E+01_JPRB, 0.148675E+01_JPRB &
+  &, 0.148465E+01_JPRB, 0.148202E+01_JPRB, 0.147889E+01_JPRB &
+  &, 0.147525E+01_JPRB, 0.147109E+01_JPRB, 0.146643E+01_JPRB, 0.146127E+01_JPRB &
+  &, 0.145563E+01_JPRB, 0.144951E+01_JPRB, 0.144291E+01_JPRB &
+  &, 0.143586E+01_JPRB, 0.142834E+01_JPRB, 0.142036E+01_JPRB, 0.141196E+01_JPRB &
+  &, 0.140311E+01_JPRB, 0.139385E+01_JPRB, 0.138416E+01_JPRB &
+  &, 0.137409E+01_JPRB, 0.136362E+01_JPRB, 0.135276E+01_JPRB, 0.134154E+01_JPRB &
+  &, 0.132995E+01_JPRB, 0.131801E+01_JPRB, 0.130575E+01_JPRB &
+  &, 0.129318E+01_JPRB, 0.128027E+01_JPRB, 0.126706E+01_JPRB, 0.125356E+01_JPRB &
+  &, 0.123980E+01_JPRB, 0.122578E+01_JPRB, 0.121149E+01_JPRB &
+  &, 0.119698E+01_JPRB, 0.118223E+01_JPRB, 0.116726E+01_JPRB, 0.115210E+01_JPRB &
+  &, 0.113675E+01_JPRB, 0.112124E+01_JPRB, 0.110555E+01_JPRB &
+  &, 0.108970E+01_JPRB, 0.107374E+01_JPRB, 0.105765E+01_JPRB, 0.104143E+01_JPRB &
+  &, 0.102511E+01_JPRB, 0.100874E+01_JPRB, 0.992247E+00_JPRB &
+  &, 0.975734E+00_JPRB, 0.959138E+00_JPRB, 0.942525E+00_JPRB, 0.925862E+00_JPRB &
+  &, 0.909183E+00_JPRB, 0.892521E+00_JPRB, 0.875841E+00_JPRB &
+  &, 0.859175E+00_JPRB, 0.842556E+00_JPRB, 0.825981E+00_JPRB, 0.809408E+00_JPRB &
+  &, 0.792944E+00_JPRB, 0.776508E+00_JPRB, 0.760168E+00_JPRB &
+  &, 0.743918E+00_JPRB, 0.727749E+00_JPRB, 0.711692E+00_JPRB, 0.695777E+00_JPRB &
+  &, 0.679953E+00_JPRB, 0.664247E+00_JPRB, 0.648689E+00_JPRB &
+  &, 0.633266E+00_JPRB, 0.617959E+00_JPRB, 0.602891E+00_JPRB, 0.587905E+00_JPRB &
+  &, 0.573121E+00_JPRB, 0.558520E+00_JPRB, 0.544082E+00_JPRB &
+  &, 0.529833E+00_JPRB, 0.515800E+00_JPRB, 0.501959E+00_JPRB, 0.488284E+00_JPRB &
+  &, 0.474799E+00_JPRB, 0.461583E+00_JPRB, 0.448500E+00_JPRB &
+  &, 0.435681E+00_JPRB, 0.423097E+00_JPRB, 0.410659E+00_JPRB, 0.398501E+00_JPRB &
+  &, 0.386532E+00_JPRB, 0.374833E+00_JPRB, 0.363307E+00_JPRB &
+  &, 0.352034E+00_JPRB, 0.340975E+00_JPRB, 0.330150E+00_JPRB, 0.319516E+00_JPRB &
+  &, 0.309155E+00_JPRB, 0.299023E+00_JPRB, 0.289073E+00_JPRB/)
+XCW( 774, :) = (/ &
+  &  0.107355E+01_JPRB, 0.109139E+01_JPRB, 0.110899E+01_JPRB, 0.112633E+01_JPRB &
+  &, 0.114341E+01_JPRB, 0.116020E+01_JPRB, 0.117671E+01_JPRB &
+  &, 0.119292E+01_JPRB, 0.120881E+01_JPRB, 0.122438E+01_JPRB, 0.123961E+01_JPRB &
+  &, 0.125450E+01_JPRB, 0.126902E+01_JPRB, 0.128319E+01_JPRB &
+  &, 0.129697E+01_JPRB, 0.131036E+01_JPRB, 0.132335E+01_JPRB, 0.133594E+01_JPRB &
+  &, 0.134810E+01_JPRB, 0.135984E+01_JPRB, 0.137114E+01_JPRB &
+  &, 0.138199E+01_JPRB, 0.139238E+01_JPRB, 0.140231E+01_JPRB, 0.141178E+01_JPRB &
+  &, 0.142076E+01_JPRB, 0.142925E+01_JPRB, 0.143726E+01_JPRB &
+  &, 0.144476E+01_JPRB, 0.145176E+01_JPRB, 0.145824E+01_JPRB, 0.146422E+01_JPRB &
+  &, 0.146967E+01_JPRB, 0.147460E+01_JPRB, 0.147893E+01_JPRB &
+  &, 0.148288E+01_JPRB, 0.148621E+01_JPRB, 0.148902E+01_JPRB, 0.149129E+01_JPRB &
+  &, 0.149303E+01_JPRB, 0.149423E+01_JPRB, 0.149490E+01_JPRB &
+  &, 0.149503E+01_JPRB, 0.149462E+01_JPRB, 0.149369E+01_JPRB, 0.149223E+01_JPRB &
+  &, 0.149023E+01_JPRB, 0.148773E+01_JPRB, 0.148470E+01_JPRB &
+  &, 0.148116E+01_JPRB, 0.147712E+01_JPRB, 0.147256E+01_JPRB, 0.146751E+01_JPRB &
+  &, 0.146197E+01_JPRB, 0.145595E+01_JPRB, 0.144945E+01_JPRB &
+  &, 0.144249E+01_JPRB, 0.143506E+01_JPRB, 0.142719E+01_JPRB, 0.141886E+01_JPRB &
+  &, 0.141010E+01_JPRB, 0.140093E+01_JPRB, 0.139135E+01_JPRB &
+  &, 0.138133E+01_JPRB, 0.137094E+01_JPRB, 0.136017E+01_JPRB, 0.134902E+01_JPRB &
+  &, 0.133751E+01_JPRB, 0.132564E+01_JPRB, 0.131343E+01_JPRB &
+  &, 0.130091E+01_JPRB, 0.128806E+01_JPRB, 0.127491E+01_JPRB, 0.126148E+01_JPRB &
+  &, 0.124777E+01_JPRB, 0.123377E+01_JPRB, 0.121954E+01_JPRB &
+  &, 0.120505E+01_JPRB, 0.119035E+01_JPRB, 0.117544E+01_JPRB, 0.116030E+01_JPRB &
+  &, 0.114498E+01_JPRB, 0.112947E+01_JPRB, 0.111381E+01_JPRB &
+  &, 0.109800E+01_JPRB, 0.108203E+01_JPRB, 0.106594E+01_JPRB, 0.104973E+01_JPRB &
+  &, 0.103345E+01_JPRB, 0.101705E+01_JPRB, 0.100055E+01_JPRB &
+  &, 0.984030E+00_JPRB, 0.967422E+00_JPRB, 0.950792E+00_JPRB, 0.934110E+00_JPRB &
+  &, 0.917440E+00_JPRB, 0.900715E+00_JPRB, 0.884036E+00_JPRB &
+  &, 0.867332E+00_JPRB, 0.850670E+00_JPRB, 0.834048E+00_JPRB, 0.817460E+00_JPRB &
+  &, 0.800939E+00_JPRB, 0.784480E+00_JPRB, 0.768074E+00_JPRB &
+  &, 0.751793E+00_JPRB, 0.735547E+00_JPRB, 0.719450E+00_JPRB, 0.703449E+00_JPRB &
+  &, 0.687575E+00_JPRB, 0.671772E+00_JPRB, 0.656156E+00_JPRB &
+  &, 0.640669E+00_JPRB, 0.625341E+00_JPRB, 0.610154E+00_JPRB, 0.595091E+00_JPRB &
+  &, 0.580273E+00_JPRB, 0.565538E+00_JPRB, 0.551058E+00_JPRB &
+  &, 0.536713E+00_JPRB, 0.522579E+00_JPRB, 0.508632E+00_JPRB, 0.494898E+00_JPRB &
+  &, 0.481351E+00_JPRB, 0.467961E+00_JPRB, 0.454860E+00_JPRB &
+  &, 0.441911E+00_JPRB, 0.429192E+00_JPRB, 0.416725E+00_JPRB, 0.404422E+00_JPRB &
+  &, 0.392361E+00_JPRB, 0.380564E+00_JPRB, 0.368937E+00_JPRB &
+  &, 0.357559E+00_JPRB, 0.346390E+00_JPRB, 0.335450E+00_JPRB, 0.324760E+00_JPRB &
+  &, 0.314276E+00_JPRB, 0.304082E+00_JPRB, 0.294002E+00_JPRB/)
+XCW( 775, :) = (/ &
+  &  0.107390E+01_JPRB, 0.109183E+01_JPRB, 0.110952E+01_JPRB, 0.112696E+01_JPRB &
+  &, 0.114413E+01_JPRB, 0.116103E+01_JPRB, 0.117764E+01_JPRB &
+  &, 0.119395E+01_JPRB, 0.120995E+01_JPRB, 0.122562E+01_JPRB, 0.124096E+01_JPRB &
+  &, 0.125595E+01_JPRB, 0.127059E+01_JPRB, 0.128486E+01_JPRB &
+  &, 0.129876E+01_JPRB, 0.131226E+01_JPRB, 0.132537E+01_JPRB, 0.133807E+01_JPRB &
+  &, 0.135035E+01_JPRB, 0.136220E+01_JPRB, 0.137362E+01_JPRB &
+  &, 0.138459E+01_JPRB, 0.139511E+01_JPRB, 0.140516E+01_JPRB, 0.141474E+01_JPRB &
+  &, 0.142385E+01_JPRB, 0.143246E+01_JPRB, 0.144059E+01_JPRB &
+  &, 0.144821E+01_JPRB, 0.145533E+01_JPRB, 0.146194E+01_JPRB, 0.146804E+01_JPRB &
+  &, 0.147362E+01_JPRB, 0.147867E+01_JPRB, 0.148319E+01_JPRB &
+  &, 0.148718E+01_JPRB, 0.149065E+01_JPRB, 0.149358E+01_JPRB, 0.149597E+01_JPRB &
+  &, 0.149783E+01_JPRB, 0.149915E+01_JPRB, 0.149993E+01_JPRB &
+  &, 0.150018E+01_JPRB, 0.149990E+01_JPRB, 0.149907E+01_JPRB, 0.149772E+01_JPRB &
+  &, 0.149585E+01_JPRB, 0.149346E+01_JPRB, 0.149055E+01_JPRB &
+  &, 0.148711E+01_JPRB, 0.148317E+01_JPRB, 0.147872E+01_JPRB, 0.147379E+01_JPRB &
+  &, 0.146835E+01_JPRB, 0.146243E+01_JPRB, 0.145604E+01_JPRB &
+  &, 0.144917E+01_JPRB, 0.144183E+01_JPRB, 0.143405E+01_JPRB, 0.142582E+01_JPRB &
+  &, 0.141715E+01_JPRB, 0.140807E+01_JPRB, 0.139855E+01_JPRB &
+  &, 0.138864E+01_JPRB, 0.137833E+01_JPRB, 0.136762E+01_JPRB, 0.135654E+01_JPRB &
+  &, 0.134511E+01_JPRB, 0.133332E+01_JPRB, 0.132118E+01_JPRB &
+  &, 0.130872E+01_JPRB, 0.129592E+01_JPRB, 0.128282E+01_JPRB, 0.126945E+01_JPRB &
+  &, 0.125578E+01_JPRB, 0.124183E+01_JPRB, 0.122765E+01_JPRB &
+  &, 0.121320E+01_JPRB, 0.119853E+01_JPRB, 0.118366E+01_JPRB, 0.116856E+01_JPRB &
+  &, 0.115326E+01_JPRB, 0.113778E+01_JPRB, 0.112214E+01_JPRB &
+  &, 0.110633E+01_JPRB, 0.109040E+01_JPRB, 0.107433E+01_JPRB, 0.105812E+01_JPRB &
+  &, 0.104182E+01_JPRB, 0.102542E+01_JPRB, 0.100895E+01_JPRB &
+  &, 0.992390E+00_JPRB, 0.975803E+00_JPRB, 0.959126E+00_JPRB, 0.942457E+00_JPRB &
+  &, 0.925730E+00_JPRB, 0.909012E+00_JPRB, 0.892301E+00_JPRB &
+  &, 0.875560E+00_JPRB, 0.858893E+00_JPRB, 0.842225E+00_JPRB, 0.825587E+00_JPRB &
+  &, 0.809011E+00_JPRB, 0.792530E+00_JPRB, 0.776059E+00_JPRB &
+  &, 0.759707E+00_JPRB, 0.743468E+00_JPRB, 0.727291E+00_JPRB, 0.711205E+00_JPRB &
+  &, 0.695283E+00_JPRB, 0.679428E+00_JPRB, 0.663755E+00_JPRB &
+  &, 0.648162E+00_JPRB, 0.632768E+00_JPRB, 0.617511E+00_JPRB, 0.602372E+00_JPRB &
+  &, 0.587473E+00_JPRB, 0.572702E+00_JPRB, 0.558083E+00_JPRB &
+  &, 0.543693E+00_JPRB, 0.529460E+00_JPRB, 0.515408E+00_JPRB, 0.501565E+00_JPRB &
+  &, 0.487902E+00_JPRB, 0.474500E+00_JPRB, 0.461275E+00_JPRB &
+  &, 0.448252E+00_JPRB, 0.435454E+00_JPRB, 0.422848E+00_JPRB, 0.410458E+00_JPRB &
+  &, 0.398305E+00_JPRB, 0.386354E+00_JPRB, 0.374686E+00_JPRB &
+  &, 0.363204E+00_JPRB, 0.351927E+00_JPRB, 0.340874E+00_JPRB, 0.330067E+00_JPRB &
+  &, 0.319526E+00_JPRB, 0.309141E+00_JPRB, 0.299061E+00_JPRB/)
+XCW( 776, :) = (/ &
+  &  0.107425E+01_JPRB, 0.109227E+01_JPRB, 0.111006E+01_JPRB, 0.112759E+01_JPRB &
+  &, 0.114487E+01_JPRB, 0.116186E+01_JPRB, 0.117857E+01_JPRB &
+  &, 0.119498E+01_JPRB, 0.121109E+01_JPRB, 0.122687E+01_JPRB, 0.124231E+01_JPRB &
+  &, 0.125742E+01_JPRB, 0.127217E+01_JPRB, 0.128655E+01_JPRB &
+  &, 0.130055E+01_JPRB, 0.131417E+01_JPRB, 0.132740E+01_JPRB, 0.134021E+01_JPRB &
+  &, 0.135261E+01_JPRB, 0.136458E+01_JPRB, 0.137612E+01_JPRB &
+  &, 0.138721E+01_JPRB, 0.139784E+01_JPRB, 0.140802E+01_JPRB, 0.141772E+01_JPRB &
+  &, 0.142695E+01_JPRB, 0.143569E+01_JPRB, 0.144393E+01_JPRB &
+  &, 0.145168E+01_JPRB, 0.145892E+01_JPRB, 0.146566E+01_JPRB, 0.147188E+01_JPRB &
+  &, 0.147758E+01_JPRB, 0.148276E+01_JPRB, 0.148740E+01_JPRB &
+  &, 0.149152E+01_JPRB, 0.149510E+01_JPRB, 0.149816E+01_JPRB, 0.150067E+01_JPRB &
+  &, 0.150265E+01_JPRB, 0.150409E+01_JPRB, 0.150499E+01_JPRB &
+  &, 0.150536E+01_JPRB, 0.150519E+01_JPRB, 0.150448E+01_JPRB, 0.150326E+01_JPRB &
+  &, 0.150150E+01_JPRB, 0.149922E+01_JPRB, 0.149641E+01_JPRB &
+  &, 0.149309E+01_JPRB, 0.148927E+01_JPRB, 0.148493E+01_JPRB, 0.148010E+01_JPRB &
+  &, 0.147476E+01_JPRB, 0.146895E+01_JPRB, 0.146264E+01_JPRB &
+  &, 0.145588E+01_JPRB, 0.144865E+01_JPRB, 0.144096E+01_JPRB, 0.143282E+01_JPRB &
+  &, 0.142425E+01_JPRB, 0.141524E+01_JPRB, 0.140581E+01_JPRB &
+  &, 0.139598E+01_JPRB, 0.138575E+01_JPRB, 0.137513E+01_JPRB, 0.136411E+01_JPRB &
+  &, 0.135275E+01_JPRB, 0.134102E+01_JPRB, 0.132896E+01_JPRB &
+  &, 0.131656E+01_JPRB, 0.130383E+01_JPRB, 0.129080E+01_JPRB, 0.127746E+01_JPRB &
+  &, 0.126384E+01_JPRB, 0.124996E+01_JPRB, 0.123580E+01_JPRB &
+  &, 0.122142E+01_JPRB, 0.120679E+01_JPRB, 0.119193E+01_JPRB, 0.117686E+01_JPRB &
+  &, 0.116160E+01_JPRB, 0.114614E+01_JPRB, 0.113053E+01_JPRB &
+  &, 0.111474E+01_JPRB, 0.109882E+01_JPRB, 0.108274E+01_JPRB, 0.106658E+01_JPRB &
+  &, 0.105028E+01_JPRB, 0.103388E+01_JPRB, 0.101738E+01_JPRB &
+  &, 0.100084E+01_JPRB, 0.984216E+00_JPRB, 0.967558E+00_JPRB, 0.950838E+00_JPRB &
+  &, 0.934123E+00_JPRB, 0.917378E+00_JPRB, 0.900636E+00_JPRB &
+  &, 0.883895E+00_JPRB, 0.867153E+00_JPRB, 0.850440E+00_JPRB, 0.833789E+00_JPRB &
+  &, 0.817197E+00_JPRB, 0.800619E+00_JPRB, 0.784162E+00_JPRB &
+  &, 0.767743E+00_JPRB, 0.751430E+00_JPRB, 0.735174E+00_JPRB, 0.719046E+00_JPRB &
+  &, 0.703034E+00_JPRB, 0.687171E+00_JPRB, 0.671399E+00_JPRB &
+  &, 0.655746E+00_JPRB, 0.640286E+00_JPRB, 0.624959E+00_JPRB, 0.609746E+00_JPRB &
+  &, 0.594721E+00_JPRB, 0.579914E+00_JPRB, 0.565206E+00_JPRB &
+  &, 0.550723E+00_JPRB, 0.536391E+00_JPRB, 0.522287E+00_JPRB, 0.508336E+00_JPRB &
+  &, 0.494613E+00_JPRB, 0.481092E+00_JPRB, 0.467744E+00_JPRB &
+  &, 0.454647E+00_JPRB, 0.441716E+00_JPRB, 0.429028E+00_JPRB, 0.416551E+00_JPRB &
+  &, 0.404308E+00_JPRB, 0.392263E+00_JPRB, 0.380496E+00_JPRB &
+  &, 0.368910E+00_JPRB, 0.357525E+00_JPRB, 0.346361E+00_JPRB, 0.335501E+00_JPRB &
+  &, 0.324775E+00_JPRB, 0.314330E+00_JPRB, 0.304121E+00_JPRB/)
+XCW( 777, :) = (/ &
+  &  0.107460E+01_JPRB, 0.109272E+01_JPRB, 0.111060E+01_JPRB, 0.112823E+01_JPRB &
+  &, 0.114560E+01_JPRB, 0.116270E+01_JPRB, 0.117951E+01_JPRB &
+  &, 0.119602E+01_JPRB, 0.121223E+01_JPRB, 0.122812E+01_JPRB, 0.124367E+01_JPRB &
+  &, 0.125888E+01_JPRB, 0.127374E+01_JPRB, 0.128824E+01_JPRB &
+  &, 0.130236E+01_JPRB, 0.131609E+01_JPRB, 0.132943E+01_JPRB, 0.134236E+01_JPRB &
+  &, 0.135488E+01_JPRB, 0.136697E+01_JPRB, 0.137862E+01_JPRB &
+  &, 0.138983E+01_JPRB, 0.140059E+01_JPRB, 0.141088E+01_JPRB, 0.142071E+01_JPRB &
+  &, 0.143006E+01_JPRB, 0.143892E+01_JPRB, 0.144729E+01_JPRB &
+  &, 0.145516E+01_JPRB, 0.146253E+01_JPRB, 0.146939E+01_JPRB, 0.147573E+01_JPRB &
+  &, 0.148156E+01_JPRB, 0.148686E+01_JPRB, 0.149163E+01_JPRB &
+  &, 0.149587E+01_JPRB, 0.149958E+01_JPRB, 0.150275E+01_JPRB, 0.150539E+01_JPRB &
+  &, 0.150749E+01_JPRB, 0.150905E+01_JPRB, 0.151008E+01_JPRB &
+  &, 0.151057E+01_JPRB, 0.151051E+01_JPRB, 0.150993E+01_JPRB, 0.150881E+01_JPRB &
+  &, 0.150718E+01_JPRB, 0.150501E+01_JPRB, 0.150231E+01_JPRB &
+  &, 0.149911E+01_JPRB, 0.149538E+01_JPRB, 0.149116E+01_JPRB, 0.148644E+01_JPRB &
+  &, 0.148121E+01_JPRB, 0.147549E+01_JPRB, 0.146931E+01_JPRB &
+  &, 0.146264E+01_JPRB, 0.145549E+01_JPRB, 0.144791E+01_JPRB, 0.143986E+01_JPRB &
+  &, 0.143138E+01_JPRB, 0.142246E+01_JPRB, 0.141311E+01_JPRB &
+  &, 0.140336E+01_JPRB, 0.139320E+01_JPRB, 0.138268E+01_JPRB, 0.137174E+01_JPRB &
+  &, 0.136045E+01_JPRB, 0.134879E+01_JPRB, 0.133679E+01_JPRB &
+  &, 0.132445E+01_JPRB, 0.131179E+01_JPRB, 0.129883E+01_JPRB, 0.128554E+01_JPRB &
+  &, 0.127197E+01_JPRB, 0.125814E+01_JPRB, 0.124403E+01_JPRB &
+  &, 0.122969E+01_JPRB, 0.121508E+01_JPRB, 0.120028E+01_JPRB, 0.118522E+01_JPRB &
+  &, 0.116999E+01_JPRB, 0.115459E+01_JPRB, 0.113897E+01_JPRB &
+  &, 0.112320E+01_JPRB, 0.110731E+01_JPRB, 0.109124E+01_JPRB, 0.107509E+01_JPRB &
+  &, 0.105879E+01_JPRB, 0.104240E+01_JPRB, 0.102590E+01_JPRB &
+  &, 0.100936E+01_JPRB, 0.992726E+00_JPRB, 0.976056E+00_JPRB, 0.959320E+00_JPRB &
+  &, 0.942583E+00_JPRB, 0.925813E+00_JPRB, 0.909041E+00_JPRB &
+  &, 0.892267E+00_JPRB, 0.875521E+00_JPRB, 0.858765E+00_JPRB, 0.842067E+00_JPRB &
+  &, 0.825422E+00_JPRB, 0.808824E+00_JPRB, 0.792306E+00_JPRB &
+  &, 0.775858E+00_JPRB, 0.759473E+00_JPRB, 0.743181E+00_JPRB, 0.727012E+00_JPRB &
+  &, 0.710914E+00_JPRB, 0.694957E+00_JPRB, 0.679130E+00_JPRB &
+  &, 0.663418E+00_JPRB, 0.647895E+00_JPRB, 0.632454E+00_JPRB, 0.617215E+00_JPRB &
+  &, 0.602112E+00_JPRB, 0.587174E+00_JPRB, 0.572428E+00_JPRB &
+  &, 0.557852E+00_JPRB, 0.543423E+00_JPRB, 0.529217E+00_JPRB, 0.515210E+00_JPRB &
+  &, 0.501376E+00_JPRB, 0.487738E+00_JPRB, 0.474322E+00_JPRB &
+  &, 0.461153E+00_JPRB, 0.448146E+00_JPRB, 0.435321E+00_JPRB, 0.422760E+00_JPRB &
+  &, 0.410428E+00_JPRB, 0.398289E+00_JPRB, 0.386365E+00_JPRB &
+  &, 0.374677E+00_JPRB, 0.363186E+00_JPRB, 0.351973E+00_JPRB, 0.340934E+00_JPRB &
+  &, 0.330153E+00_JPRB, 0.319649E+00_JPRB, 0.309312E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART111',1,ZHOOK_HANDLE)
+END SUBROUTINE PART111
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART112
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART112',0,ZHOOK_HANDLE)
+
+XCW( 778, :) = (/ &
+  &  0.107495E+01_JPRB, 0.109316E+01_JPRB, 0.111114E+01_JPRB, 0.112887E+01_JPRB &
+  &, 0.114634E+01_JPRB, 0.116353E+01_JPRB, 0.118045E+01_JPRB &
+  &, 0.119706E+01_JPRB, 0.121338E+01_JPRB, 0.122937E+01_JPRB, 0.124503E+01_JPRB &
+  &, 0.126035E+01_JPRB, 0.127532E+01_JPRB, 0.128993E+01_JPRB &
+  &, 0.130417E+01_JPRB, 0.131801E+01_JPRB, 0.133147E+01_JPRB, 0.134452E+01_JPRB &
+  &, 0.135715E+01_JPRB, 0.136936E+01_JPRB, 0.138113E+01_JPRB &
+  &, 0.139247E+01_JPRB, 0.140334E+01_JPRB, 0.141376E+01_JPRB, 0.142371E+01_JPRB &
+  &, 0.143318E+01_JPRB, 0.144217E+01_JPRB, 0.145066E+01_JPRB &
+  &, 0.145866E+01_JPRB, 0.146615E+01_JPRB, 0.147314E+01_JPRB, 0.147960E+01_JPRB &
+  &, 0.148556E+01_JPRB, 0.149098E+01_JPRB, 0.149588E+01_JPRB &
+  &, 0.150024E+01_JPRB, 0.150408E+01_JPRB, 0.150737E+01_JPRB, 0.151013E+01_JPRB &
+  &, 0.151235E+01_JPRB, 0.151404E+01_JPRB, 0.151519E+01_JPRB &
+  &, 0.151579E+01_JPRB, 0.151586E+01_JPRB, 0.151540E+01_JPRB, 0.151441E+01_JPRB &
+  &, 0.151287E+01_JPRB, 0.151082E+01_JPRB, 0.150825E+01_JPRB &
+  &, 0.150515E+01_JPRB, 0.150155E+01_JPRB, 0.149743E+01_JPRB, 0.149280E+01_JPRB &
+  &, 0.148768E+01_JPRB, 0.148207E+01_JPRB, 0.147598E+01_JPRB &
+  &, 0.146942E+01_JPRB, 0.146239E+01_JPRB, 0.145488E+01_JPRB, 0.144693E+01_JPRB &
+  &, 0.143854E+01_JPRB, 0.142971E+01_JPRB, 0.142046E+01_JPRB &
+  &, 0.141080E+01_JPRB, 0.140073E+01_JPRB, 0.139026E+01_JPRB, 0.137942E+01_JPRB &
+  &, 0.136819E+01_JPRB, 0.135661E+01_JPRB, 0.134468E+01_JPRB &
+  &, 0.133240E+01_JPRB, 0.131980E+01_JPRB, 0.130689E+01_JPRB, 0.129368E+01_JPRB &
+  &, 0.128017E+01_JPRB, 0.126637E+01_JPRB, 0.125233E+01_JPRB &
+  &, 0.123801E+01_JPRB, 0.122346E+01_JPRB, 0.120868E+01_JPRB, 0.119368E+01_JPRB &
+  &, 0.117846E+01_JPRB, 0.116306E+01_JPRB, 0.114750E+01_JPRB &
+  &, 0.113175E+01_JPRB, 0.111585E+01_JPRB, 0.109982E+01_JPRB, 0.108365E+01_JPRB &
+  &, 0.106737E+01_JPRB, 0.105098E+01_JPRB, 0.103448E+01_JPRB &
+  &, 0.101794E+01_JPRB, 0.100130E+01_JPRB, 0.984619E+00_JPRB, 0.967867E+00_JPRB &
+  &, 0.951111E+00_JPRB, 0.934317E+00_JPRB, 0.917517E+00_JPRB &
+  &, 0.900745E+00_JPRB, 0.883926E+00_JPRB, 0.867165E+00_JPRB, 0.850457E+00_JPRB &
+  &, 0.833761E+00_JPRB, 0.817108E+00_JPRB, 0.800528E+00_JPRB &
+  &, 0.784014E+00_JPRB, 0.767598E+00_JPRB, 0.751271E+00_JPRB, 0.735021E+00_JPRB &
+  &, 0.718879E+00_JPRB, 0.702874E+00_JPRB, 0.686951E+00_JPRB &
+  &, 0.671181E+00_JPRB, 0.655550E+00_JPRB, 0.640088E+00_JPRB, 0.624730E+00_JPRB &
+  &, 0.609598E+00_JPRB, 0.594579E+00_JPRB, 0.579699E+00_JPRB &
+  &, 0.564982E+00_JPRB, 0.550557E+00_JPRB, 0.536250E+00_JPRB, 0.522137E+00_JPRB &
+  &, 0.508245E+00_JPRB, 0.494545E+00_JPRB, 0.481009E+00_JPRB &
+  &, 0.467714E+00_JPRB, 0.454632E+00_JPRB, 0.441728E+00_JPRB, 0.429026E+00_JPRB &
+  &, 0.416606E+00_JPRB, 0.404375E+00_JPRB, 0.392354E+00_JPRB &
+  &, 0.380565E+00_JPRB, 0.368969E+00_JPRB, 0.357646E+00_JPRB, 0.346557E+00_JPRB &
+  &, 0.335658E+00_JPRB, 0.324967E+00_JPRB, 0.314569E+00_JPRB/)
+XCW( 779, :) = (/ &
+  &  0.107530E+01_JPRB, 0.109361E+01_JPRB, 0.111168E+01_JPRB, 0.112951E+01_JPRB &
+  &, 0.114707E+01_JPRB, 0.116437E+01_JPRB, 0.118139E+01_JPRB &
+  &, 0.119811E+01_JPRB, 0.121453E+01_JPRB, 0.123063E+01_JPRB, 0.124640E+01_JPRB &
+  &, 0.126183E+01_JPRB, 0.127691E+01_JPRB, 0.129163E+01_JPRB &
+  &, 0.130598E+01_JPRB, 0.131995E+01_JPRB, 0.133352E+01_JPRB, 0.134668E+01_JPRB &
+  &, 0.135944E+01_JPRB, 0.137176E+01_JPRB, 0.138366E+01_JPRB &
+  &, 0.139511E+01_JPRB, 0.140610E+01_JPRB, 0.141665E+01_JPRB, 0.142672E+01_JPRB &
+  &, 0.143632E+01_JPRB, 0.144543E+01_JPRB, 0.145405E+01_JPRB &
+  &, 0.146217E+01_JPRB, 0.146979E+01_JPRB, 0.147690E+01_JPRB, 0.148349E+01_JPRB &
+  &, 0.148957E+01_JPRB, 0.149512E+01_JPRB, 0.150014E+01_JPRB &
+  &, 0.150462E+01_JPRB, 0.150859E+01_JPRB, 0.151201E+01_JPRB, 0.151489E+01_JPRB &
+  &, 0.151724E+01_JPRB, 0.151904E+01_JPRB, 0.152032E+01_JPRB &
+  &, 0.152104E+01_JPRB, 0.152124E+01_JPRB, 0.152089E+01_JPRB, 0.152002E+01_JPRB &
+  &, 0.151860E+01_JPRB, 0.151668E+01_JPRB, 0.151421E+01_JPRB &
+  &, 0.151122E+01_JPRB, 0.150774E+01_JPRB, 0.150373E+01_JPRB, 0.149921E+01_JPRB &
+  &, 0.149420E+01_JPRB, 0.148870E+01_JPRB, 0.148271E+01_JPRB &
+  &, 0.147624E+01_JPRB, 0.146930E+01_JPRB, 0.146191E+01_JPRB, 0.145405E+01_JPRB &
+  &, 0.144575E+01_JPRB, 0.143702E+01_JPRB, 0.142786E+01_JPRB &
+  &, 0.141828E+01_JPRB, 0.140828E+01_JPRB, 0.139790E+01_JPRB, 0.138713E+01_JPRB &
+  &, 0.137599E+01_JPRB, 0.136447E+01_JPRB, 0.135261E+01_JPRB &
+  &, 0.134041E+01_JPRB, 0.132788E+01_JPRB, 0.131503E+01_JPRB, 0.130185E+01_JPRB &
+  &, 0.128839E+01_JPRB, 0.127466E+01_JPRB, 0.126065E+01_JPRB &
+  &, 0.124640E+01_JPRB, 0.123187E+01_JPRB, 0.121713E+01_JPRB, 0.120217E+01_JPRB &
+  &, 0.118701E+01_JPRB, 0.117164E+01_JPRB, 0.115608E+01_JPRB &
+  &, 0.114036E+01_JPRB, 0.112447E+01_JPRB, 0.110847E+01_JPRB, 0.109231E+01_JPRB &
+  &, 0.107601E+01_JPRB, 0.105963E+01_JPRB, 0.104316E+01_JPRB &
+  &, 0.102659E+01_JPRB, 0.100997E+01_JPRB, 0.993248E+00_JPRB, 0.976516E+00_JPRB &
+  &, 0.959742E+00_JPRB, 0.942925E+00_JPRB, 0.926099E+00_JPRB &
+  &, 0.909260E+00_JPRB, 0.891895E+00_JPRB, 0.875675E+00_JPRB, 0.858886E+00_JPRB &
+  &, 0.842139E+00_JPRB, 0.825469E+00_JPRB, 0.808829E+00_JPRB &
+  &, 0.792291E+00_JPRB, 0.775805E+00_JPRB, 0.759403E+00_JPRB, 0.743115E+00_JPRB &
+  &, 0.726929E+00_JPRB, 0.710835E+00_JPRB, 0.694903E+00_JPRB &
+  &, 0.679033E+00_JPRB, 0.663342E+00_JPRB, 0.647768E+00_JPRB, 0.632387E+00_JPRB &
+  &, 0.617132E+00_JPRB, 0.602033E+00_JPRB, 0.587117E+00_JPRB &
+  &, 0.572360E+00_JPRB, 0.557791E+00_JPRB, 0.543386E+00_JPRB, 0.529221E+00_JPRB &
+  &, 0.515166E+00_JPRB, 0.501405E+00_JPRB, 0.487750E+00_JPRB &
+  &, 0.474385E+00_JPRB, 0.461173E+00_JPRB, 0.448191E+00_JPRB, 0.435407E+00_JPRB &
+  &, 0.422842E+00_JPRB, 0.410519E+00_JPRB, 0.398403E+00_JPRB &
+  &, 0.386515E+00_JPRB, 0.374875E+00_JPRB, 0.363382E+00_JPRB, 0.352180E+00_JPRB &
+  &, 0.341164E+00_JPRB, 0.330416E+00_JPRB, 0.319892E+00_JPRB/)
+XCW( 780, :) = (/ &
+  &  0.107566E+01_JPRB, 0.109406E+01_JPRB, 0.111222E+01_JPRB, 0.113015E+01_JPRB &
+  &, 0.114781E+01_JPRB, 0.116521E+01_JPRB, 0.118233E+01_JPRB &
+  &, 0.119916E+01_JPRB, 0.121568E+01_JPRB, 0.123189E+01_JPRB, 0.124777E+01_JPRB &
+  &, 0.126331E+01_JPRB, 0.127851E+01_JPRB, 0.129334E+01_JPRB &
+  &, 0.130780E+01_JPRB, 0.132188E+01_JPRB, 0.133557E+01_JPRB, 0.134885E+01_JPRB &
+  &, 0.136173E+01_JPRB, 0.137417E+01_JPRB, 0.138619E+01_JPRB &
+  &, 0.139776E+01_JPRB, 0.140889E+01_JPRB, 0.141955E+01_JPRB, 0.142975E+01_JPRB &
+  &, 0.143947E+01_JPRB, 0.144870E+01_JPRB, 0.145745E+01_JPRB &
+  &, 0.146570E+01_JPRB, 0.147344E+01_JPRB, 0.148068E+01_JPRB, 0.148740E+01_JPRB &
+  &, 0.149360E+01_JPRB, 0.149927E+01_JPRB, 0.150442E+01_JPRB &
+  &, 0.150904E+01_JPRB, 0.151313E+01_JPRB, 0.151667E+01_JPRB, 0.151968E+01_JPRB &
+  &, 0.152215E+01_JPRB, 0.152408E+01_JPRB, 0.152547E+01_JPRB &
+  &, 0.152632E+01_JPRB, 0.152664E+01_JPRB, 0.152642E+01_JPRB, 0.152566E+01_JPRB &
+  &, 0.152437E+01_JPRB, 0.152255E+01_JPRB, 0.152020E+01_JPRB &
+  &, 0.151733E+01_JPRB, 0.151395E+01_JPRB, 0.151005E+01_JPRB, 0.150566E+01_JPRB &
+  &, 0.150075E+01_JPRB, 0.149536E+01_JPRB, 0.148948E+01_JPRB &
+  &, 0.148311E+01_JPRB, 0.147628E+01_JPRB, 0.146896E+01_JPRB, 0.146122E+01_JPRB &
+  &, 0.145300E+01_JPRB, 0.144437E+01_JPRB, 0.143530E+01_JPRB &
+  &, 0.142579E+01_JPRB, 0.141589E+01_JPRB, 0.140560E+01_JPRB, 0.139489E+01_JPRB &
+  &, 0.138383E+01_JPRB, 0.137240E+01_JPRB, 0.136060E+01_JPRB &
+  &, 0.134847E+01_JPRB, 0.133599E+01_JPRB, 0.132321E+01_JPRB, 0.131011E+01_JPRB &
+  &, 0.129670E+01_JPRB, 0.128301E+01_JPRB, 0.126906E+01_JPRB &
+  &, 0.125484E+01_JPRB, 0.124036E+01_JPRB, 0.122565E+01_JPRB, 0.121073E+01_JPRB &
+  &, 0.119561E+01_JPRB, 0.118025E+01_JPRB, 0.116474E+01_JPRB &
+  &, 0.114904E+01_JPRB, 0.113319E+01_JPRB, 0.111717E+01_JPRB, 0.110103E+01_JPRB &
+  &, 0.108474E+01_JPRB, 0.106836E+01_JPRB, 0.105190E+01_JPRB &
+  &, 0.103533E+01_JPRB, 0.101867E+01_JPRB, 0.100198E+01_JPRB, 0.985231E+00_JPRB &
+  &, 0.968372E+00_JPRB, 0.951603E+00_JPRB, 0.934751E+00_JPRB &
+  &, 0.917917E+00_JPRB, 0.901064E+00_JPRB, 0.884223E+00_JPRB, 0.867427E+00_JPRB &
+  &, 0.850632E+00_JPRB, 0.833908E+00_JPRB, 0.817249E+00_JPRB &
+  &, 0.800647E+00_JPRB, 0.784093E+00_JPRB, 0.767659E+00_JPRB, 0.751292E+00_JPRB &
+  &, 0.735066E+00_JPRB, 0.718926E+00_JPRB, 0.702900E+00_JPRB &
+  &, 0.686975E+00_JPRB, 0.671225E+00_JPRB, 0.655587E+00_JPRB, 0.640090E+00_JPRB &
+  &, 0.624762E+00_JPRB, 0.609584E+00_JPRB, 0.594584E+00_JPRB &
+  &, 0.579739E+00_JPRB, 0.565077E+00_JPRB, 0.550624E+00_JPRB, 0.536356E+00_JPRB &
+  &, 0.522246E+00_JPRB, 0.508319E+00_JPRB, 0.494599E+00_JPRB &
+  &, 0.481112E+00_JPRB, 0.467827E+00_JPRB, 0.454768E+00_JPRB, 0.441902E+00_JPRB &
+  &, 0.429194E+00_JPRB, 0.416782E+00_JPRB, 0.404572E+00_JPRB &
+  &, 0.392585E+00_JPRB, 0.380781E+00_JPRB, 0.369243E+00_JPRB, 0.357930E+00_JPRB &
+  &, 0.346797E+00_JPRB, 0.335929E+00_JPRB, 0.325280E+00_JPRB/)
+XCW( 781, :) = (/ &
+  &  0.107601E+01_JPRB, 0.109451E+01_JPRB, 0.111277E+01_JPRB, 0.113079E+01_JPRB &
+  &, 0.114856E+01_JPRB, 0.116606E+01_JPRB, 0.118328E+01_JPRB &
+  &, 0.120021E+01_JPRB, 0.121684E+01_JPRB, 0.123315E+01_JPRB, 0.124915E+01_JPRB &
+  &, 0.126480E+01_JPRB, 0.128011E+01_JPRB, 0.129505E+01_JPRB &
+  &, 0.130963E+01_JPRB, 0.132383E+01_JPRB, 0.133763E+01_JPRB, 0.135104E+01_JPRB &
+  &, 0.136403E+01_JPRB, 0.137659E+01_JPRB, 0.138873E+01_JPRB &
+  &, 0.140043E+01_JPRB, 0.141167E+01_JPRB, 0.142246E+01_JPRB, 0.143278E+01_JPRB &
+  &, 0.144263E+01_JPRB, 0.145199E+01_JPRB, 0.146086E+01_JPRB &
+  &, 0.146923E+01_JPRB, 0.147711E+01_JPRB, 0.148447E+01_JPRB, 0.149132E+01_JPRB &
+  &, 0.149765E+01_JPRB, 0.150345E+01_JPRB, 0.150873E+01_JPRB &
+  &, 0.151347E+01_JPRB, 0.151768E+01_JPRB, 0.152135E+01_JPRB, 0.152449E+01_JPRB &
+  &, 0.152708E+01_JPRB, 0.152914E+01_JPRB, 0.153066E+01_JPRB &
+  &, 0.153163E+01_JPRB, 0.153207E+01_JPRB, 0.153197E+01_JPRB, 0.153132E+01_JPRB &
+  &, 0.153015E+01_JPRB, 0.152846E+01_JPRB, 0.152622E+01_JPRB &
+  &, 0.152347E+01_JPRB, 0.152020E+01_JPRB, 0.151642E+01_JPRB, 0.151211E+01_JPRB &
+  &, 0.150734E+01_JPRB, 0.150205E+01_JPRB, 0.149628E+01_JPRB &
+  &, 0.149000E+01_JPRB, 0.148327E+01_JPRB, 0.147607E+01_JPRB, 0.146840E+01_JPRB &
+  &, 0.146030E+01_JPRB, 0.145174E+01_JPRB, 0.144277E+01_JPRB &
+  &, 0.143336E+01_JPRB, 0.142355E+01_JPRB, 0.141333E+01_JPRB, 0.140272E+01_JPRB &
+  &, 0.139172E+01_JPRB, 0.138037E+01_JPRB, 0.136863E+01_JPRB &
+  &, 0.135657E+01_JPRB, 0.134418E+01_JPRB, 0.133143E+01_JPRB, 0.131839E+01_JPRB &
+  &, 0.130504E+01_JPRB, 0.129142E+01_JPRB, 0.127750E+01_JPRB &
+  &, 0.126335E+01_JPRB, 0.124892E+01_JPRB, 0.123426E+01_JPRB, 0.121935E+01_JPRB &
+  &, 0.120426E+01_JPRB, 0.118893E+01_JPRB, 0.117346E+01_JPRB &
+  &, 0.115776E+01_JPRB, 0.114192E+01_JPRB, 0.112593E+01_JPRB, 0.110980E+01_JPRB &
+  &, 0.109356E+01_JPRB, 0.107719E+01_JPRB, 0.106070E+01_JPRB &
+  &, 0.104413E+01_JPRB, 0.102747E+01_JPRB, 0.101077E+01_JPRB, 0.994012E+00_JPRB &
+  &, 0.977206E+00_JPRB, 0.960349E+00_JPRB, 0.943473E+00_JPRB &
+  &, 0.926611E+00_JPRB, 0.909724E+00_JPRB, 0.892882E+00_JPRB, 0.876043E+00_JPRB &
+  &, 0.859200E+00_JPRB, 0.842463E+00_JPRB, 0.825748E+00_JPRB &
+  &, 0.809084E+00_JPRB, 0.792504E+00_JPRB, 0.775998E+00_JPRB, 0.759596E+00_JPRB &
+  &, 0.743288E+00_JPRB, 0.727060E+00_JPRB, 0.710986E+00_JPRB &
+  &, 0.695007E+00_JPRB, 0.679153E+00_JPRB, 0.663452E+00_JPRB, 0.647887E+00_JPRB &
+  &, 0.632487E+00_JPRB, 0.617232E+00_JPRB, 0.602149E+00_JPRB &
+  &, 0.587218E+00_JPRB, 0.572514E+00_JPRB, 0.557913E+00_JPRB, 0.543543E+00_JPRB &
+  &, 0.529379E+00_JPRB, 0.514536E+00_JPRB, 0.501558E+00_JPRB &
+  &, 0.487948E+00_JPRB, 0.474592E+00_JPRB, 0.461401E+00_JPRB, 0.448456E+00_JPRB &
+  &, 0.435664E+00_JPRB, 0.423163E+00_JPRB, 0.410801E+00_JPRB &
+  &, 0.398716E+00_JPRB, 0.386811E+00_JPRB, 0.375167E+00_JPRB, 0.363743E+00_JPRB &
+  &, 0.352559E+00_JPRB, 0.341572E+00_JPRB, 0.330800E+00_JPRB/)
+XCW( 782, :) = (/ &
+  &  0.107637E+01_JPRB, 0.109496E+01_JPRB, 0.111332E+01_JPRB, 0.113143E+01_JPRB &
+  &, 0.114930E+01_JPRB, 0.116690E+01_JPRB, 0.118423E+01_JPRB &
+  &, 0.120126E+01_JPRB, 0.121800E+01_JPRB, 0.123443E+01_JPRB, 0.125053E+01_JPRB &
+  &, 0.126629E+01_JPRB, 0.128171E+01_JPRB, 0.129677E+01_JPRB &
+  &, 0.131146E+01_JPRB, 0.132578E+01_JPRB, 0.133970E+01_JPRB, 0.135322E+01_JPRB &
+  &, 0.136634E+01_JPRB, 0.137902E+01_JPRB, 0.139128E+01_JPRB &
+  &, 0.140310E+01_JPRB, 0.141448E+01_JPRB, 0.142539E+01_JPRB, 0.143583E+01_JPRB &
+  &, 0.144580E+01_JPRB, 0.145529E+01_JPRB, 0.146429E+01_JPRB &
+  &, 0.147279E+01_JPRB, 0.148079E+01_JPRB, 0.148828E+01_JPRB, 0.149525E+01_JPRB &
+  &, 0.150171E+01_JPRB, 0.150765E+01_JPRB, 0.151305E+01_JPRB &
+  &, 0.151792E+01_JPRB, 0.152225E+01_JPRB, 0.152605E+01_JPRB, 0.152932E+01_JPRB &
+  &, 0.153204E+01_JPRB, 0.153422E+01_JPRB, 0.153587E+01_JPRB &
+  &, 0.153697E+01_JPRB, 0.153752E+01_JPRB, 0.153754E+01_JPRB, 0.153702E+01_JPRB &
+  &, 0.153598E+01_JPRB, 0.153439E+01_JPRB, 0.153229E+01_JPRB &
+  &, 0.152964E+01_JPRB, 0.152650E+01_JPRB, 0.152282E+01_JPRB, 0.151865E+01_JPRB &
+  &, 0.151395E+01_JPRB, 0.150878E+01_JPRB, 0.150311E+01_JPRB &
+  &, 0.149695E+01_JPRB, 0.149033E+01_JPRB, 0.148321E+01_JPRB, 0.147566E+01_JPRB &
+  &, 0.146763E+01_JPRB, 0.145919E+01_JPRB, 0.145029E+01_JPRB &
+  &, 0.144098E+01_JPRB, 0.143125E+01_JPRB, 0.142110E+01_JPRB, 0.141058E+01_JPRB &
+  &, 0.139966E+01_JPRB, 0.138837E+01_JPRB, 0.137673E+01_JPRB &
+  &, 0.136473E+01_JPRB, 0.135240E+01_JPRB, 0.133974E+01_JPRB, 0.132676E+01_JPRB &
+  &, 0.131347E+01_JPRB, 0.129988E+01_JPRB, 0.128604E+01_JPRB &
+  &, 0.127191E+01_JPRB, 0.125752E+01_JPRB, 0.124291E+01_JPRB, 0.122804E+01_JPRB &
+  &, 0.121299E+01_JPRB, 0.119770E+01_JPRB, 0.118223E+01_JPRB &
+  &, 0.116659E+01_JPRB, 0.115078E+01_JPRB, 0.113480E+01_JPRB, 0.111867E+01_JPRB &
+  &, 0.110243E+01_JPRB, 0.108605E+01_JPRB, 0.106960E+01_JPRB &
+  &, 0.105303E+01_JPRB, 0.103637E+01_JPRB, 0.101966E+01_JPRB, 0.100286E+01_JPRB &
+  &, 0.986041E+00_JPRB, 0.969165E+00_JPRB, 0.952300E+00_JPRB &
+  &, 0.935375E+00_JPRB, 0.918493E+00_JPRB, 0.901577E+00_JPRB, 0.884734E+00_JPRB &
+  &, 0.867884E+00_JPRB, 0.851058E+00_JPRB, 0.834326E+00_JPRB &
+  &, 0.817602E+00_JPRB, 0.800956E+00_JPRB, 0.784420E+00_JPRB, 0.767942E+00_JPRB &
+  &, 0.751596E+00_JPRB, 0.735325E+00_JPRB, 0.719159E+00_JPRB &
+  &, 0.703129E+00_JPRB, 0.687218E+00_JPRB, 0.671456E+00_JPRB, 0.655825E+00_JPRB &
+  &, 0.640307E+00_JPRB, 0.624976E+00_JPRB, 0.609813E+00_JPRB &
+  &, 0.594796E+00_JPRB, 0.580001E+00_JPRB, 0.565357E+00_JPRB, 0.550887E+00_JPRB &
+  &, 0.536565E+00_JPRB, 0.522522E+00_JPRB, 0.508625E+00_JPRB &
+  &, 0.494895E+00_JPRB, 0.481413E+00_JPRB, 0.468148E+00_JPRB, 0.455067E+00_JPRB &
+  &, 0.442191E+00_JPRB, 0.429603E+00_JPRB, 0.417149E+00_JPRB &
+  &, 0.404969E+00_JPRB, 0.392963E+00_JPRB, 0.381214E+00_JPRB, 0.369682E+00_JPRB &
+  &, 0.358385E+00_JPRB, 0.347280E+00_JPRB, 0.336385E+00_JPRB/)
+XCW( 783, :) = (/ &
+  &  0.107673E+01_JPRB, 0.109541E+01_JPRB, 0.111386E+01_JPRB, 0.113208E+01_JPRB &
+  &, 0.115005E+01_JPRB, 0.116775E+01_JPRB, 0.118518E+01_JPRB &
+  &, 0.120232E+01_JPRB, 0.121917E+01_JPRB, 0.123570E+01_JPRB, 0.125191E+01_JPRB &
+  &, 0.126779E+01_JPRB, 0.128332E+01_JPRB, 0.129850E+01_JPRB &
+  &, 0.131330E+01_JPRB, 0.132774E+01_JPRB, 0.134178E+01_JPRB, 0.135542E+01_JPRB &
+  &, 0.136865E+01_JPRB, 0.138146E+01_JPRB, 0.139385E+01_JPRB &
+  &, 0.140579E+01_JPRB, 0.141728E+01_JPRB, 0.142832E+01_JPRB, 0.143889E+01_JPRB &
+  &, 0.144899E+01_JPRB, 0.145860E+01_JPRB, 0.146773E+01_JPRB &
+  &, 0.147636E+01_JPRB, 0.148449E+01_JPRB, 0.149185E+01_JPRB, 0.149921E+01_JPRB &
+  &, 0.150579E+01_JPRB, 0.151186E+01_JPRB, 0.151739E+01_JPRB &
+  &, 0.152239E+01_JPRB, 0.152685E+01_JPRB, 0.153079E+01_JPRB, 0.153417E+01_JPRB &
+  &, 0.153702E+01_JPRB, 0.153933E+01_JPRB, 0.154109E+01_JPRB &
+  &, 0.154232E+01_JPRB, 0.154300E+01_JPRB, 0.154315E+01_JPRB, 0.154275E+01_JPRB &
+  &, 0.154182E+01_JPRB, 0.154036E+01_JPRB, 0.153837E+01_JPRB &
+  &, 0.153585E+01_JPRB, 0.153281E+01_JPRB, 0.152926E+01_JPRB, 0.152520E+01_JPRB &
+  &, 0.152062E+01_JPRB, 0.151555E+01_JPRB, 0.150998E+01_JPRB &
+  &, 0.150394E+01_JPRB, 0.149740E+01_JPRB, 0.149038E+01_JPRB, 0.148294E+01_JPRB &
+  &, 0.147502E+01_JPRB, 0.146666E+01_JPRB, 0.145786E+01_JPRB &
+  &, 0.144864E+01_JPRB, 0.143900E+01_JPRB, 0.142895E+01_JPRB, 0.141851E+01_JPRB &
+  &, 0.140766E+01_JPRB, 0.139646E+01_JPRB, 0.138488E+01_JPRB &
+  &, 0.137295E+01_JPRB, 0.136069E+01_JPRB, 0.134809E+01_JPRB, 0.133517E+01_JPRB &
+  &, 0.132194E+01_JPRB, 0.130841E+01_JPRB, 0.129460E+01_JPRB &
+  &, 0.128055E+01_JPRB, 0.126621E+01_JPRB, 0.125161E+01_JPRB, 0.123682E+01_JPRB &
+  &, 0.122178E+01_JPRB, 0.120652E+01_JPRB, 0.119108E+01_JPRB &
+  &, 0.117547E+01_JPRB, 0.115966E+01_JPRB, 0.114371E+01_JPRB, 0.112762E+01_JPRB &
+  &, 0.111137E+01_JPRB, 0.109497E+01_JPRB, 0.107855E+01_JPRB &
+  &, 0.106199E+01_JPRB, 0.104533E+01_JPRB, 0.102858E+01_JPRB, 0.101181E+01_JPRB &
+  &, 0.994977E+00_JPRB, 0.978084E+00_JPRB, 0.961198E+00_JPRB &
+  &, 0.944247E+00_JPRB, 0.927335E+00_JPRB, 0.910421E+00_JPRB, 0.893501E+00_JPRB &
+  &, 0.876606E+00_JPRB, 0.859769E+00_JPRB, 0.842983E+00_JPRB &
+  &, 0.826200E+00_JPRB, 0.809530E+00_JPRB, 0.792925E+00_JPRB, 0.776415E+00_JPRB &
+  &, 0.759989E+00_JPRB, 0.743633E+00_JPRB, 0.727421E+00_JPRB &
+  &, 0.711340E+00_JPRB, 0.695328E+00_JPRB, 0.679506E+00_JPRB, 0.663810E+00_JPRB &
+  &, 0.648222E+00_JPRB, 0.632817E+00_JPRB, 0.617575E+00_JPRB &
+  &, 0.602474E+00_JPRB, 0.587590E+00_JPRB, 0.572852E+00_JPRB, 0.558283E+00_JPRB &
+  &, 0.543909E+00_JPRB, 0.529704E+00_JPRB, 0.515746E+00_JPRB &
+  &, 0.501953E+00_JPRB, 0.488347E+00_JPRB, 0.475008E+00_JPRB, 0.461793E+00_JPRB &
+  &, 0.448835E+00_JPRB, 0.436102E+00_JPRB, 0.423557E+00_JPRB &
+  &, 0.411282E+00_JPRB, 0.399177E+00_JPRB, 0.387325E+00_JPRB, 0.375684E+00_JPRB &
+  &, 0.364274E+00_JPRB, 0.353053E+00_JPRB, 0.342102E+00_JPRB/)
+XCW( 784, :) = (/ &
+  &  0.107709E+01_JPRB, 0.109586E+01_JPRB, 0.111441E+01_JPRB, 0.113273E+01_JPRB &
+  &, 0.115080E+01_JPRB, 0.116860E+01_JPRB, 0.118614E+01_JPRB &
+  &, 0.120338E+01_JPRB, 0.122034E+01_JPRB, 0.123698E+01_JPRB, 0.125330E+01_JPRB &
+  &, 0.126929E+01_JPRB, 0.128494E+01_JPRB, 0.130023E+01_JPRB &
+  &, 0.131515E+01_JPRB, 0.132970E+01_JPRB, 0.134386E+01_JPRB, 0.135763E+01_JPRB &
+  &, 0.137098E+01_JPRB, 0.138391E+01_JPRB, 0.139642E+01_JPRB &
+  &, 0.140849E+01_JPRB, 0.142011E+01_JPRB, 0.143127E+01_JPRB, 0.144197E+01_JPRB &
+  &, 0.145219E+01_JPRB, 0.146194E+01_JPRB, 0.147119E+01_JPRB &
+  &, 0.147994E+01_JPRB, 0.148820E+01_JPRB, 0.149595E+01_JPRB, 0.150318E+01_JPRB &
+  &, 0.150990E+01_JPRB, 0.151609E+01_JPRB, 0.152175E+01_JPRB &
+  &, 0.152687E+01_JPRB, 0.153148E+01_JPRB, 0.153553E+01_JPRB, 0.153904E+01_JPRB &
+  &, 0.154203E+01_JPRB, 0.154446E+01_JPRB, 0.154636E+01_JPRB &
+  &, 0.154770E+01_JPRB, 0.154851E+01_JPRB, 0.154878E+01_JPRB, 0.154851E+01_JPRB &
+  &, 0.154770E+01_JPRB, 0.154636E+01_JPRB, 0.154449E+01_JPRB &
+  &, 0.154209E+01_JPRB, 0.153916E+01_JPRB, 0.153573E+01_JPRB, 0.153177E+01_JPRB &
+  &, 0.152732E+01_JPRB, 0.152236E+01_JPRB, 0.151690E+01_JPRB &
+  &, 0.151096E+01_JPRB, 0.150454E+01_JPRB, 0.149763E+01_JPRB, 0.149028E+01_JPRB &
+  &, 0.148245E+01_JPRB, 0.147419E+01_JPRB, 0.146549E+01_JPRB &
+  &, 0.145635E+01_JPRB, 0.144679E+01_JPRB, 0.143684E+01_JPRB, 0.142647E+01_JPRB &
+  &, 0.141571E+01_JPRB, 0.140459E+01_JPRB, 0.139308E+01_JPRB &
+  &, 0.138122E+01_JPRB, 0.136903E+01_JPRB, 0.135649E+01_JPRB, 0.134363E+01_JPRB &
+  &, 0.133046E+01_JPRB, 0.131701E+01_JPRB, 0.130325E+01_JPRB &
+  &, 0.128923E+01_JPRB, 0.127494E+01_JPRB, 0.126039E+01_JPRB, 0.124564E+01_JPRB &
+  &, 0.123064E+01_JPRB, 0.121542E+01_JPRB, 0.120002E+01_JPRB &
+  &, 0.118441E+01_JPRB, 0.116863E+01_JPRB, 0.115270E+01_JPRB, 0.113660E+01_JPRB &
+  &, 0.112040E+01_JPRB, 0.110404E+01_JPRB, 0.108757E+01_JPRB &
+  &, 0.107101E+01_JPRB, 0.105436E+01_JPRB, 0.103764E+01_JPRB, 0.102082E+01_JPRB &
+  &, 0.100398E+01_JPRB, 0.987072E+00_JPRB, 0.970166E+00_JPRB &
+  &, 0.953227E+00_JPRB, 0.936249E+00_JPRB, 0.919302E+00_JPRB, 0.902343E+00_JPRB &
+  &, 0.885443E+00_JPRB, 0.868558E+00_JPRB, 0.851719E+00_JPRB &
+  &, 0.834918E+00_JPRB, 0.818186E+00_JPRB, 0.801223E+00_JPRB, 0.784972E+00_JPRB &
+  &, 0.768468E+00_JPRB, 0.752072E+00_JPRB, 0.735816E+00_JPRB &
+  &, 0.719641E+00_JPRB, 0.703576E+00_JPRB, 0.687648E+00_JPRB, 0.671889E+00_JPRB &
+  &, 0.656233E+00_JPRB, 0.640755E+00_JPRB, 0.625435E+00_JPRB &
+  &, 0.610251E+00_JPRB, 0.595230E+00_JPRB, 0.580449E+00_JPRB, 0.565783E+00_JPRB &
+  &, 0.551306E+00_JPRB, 0.537047E+00_JPRB, 0.522976E+00_JPRB &
+  &, 0.509065E+00_JPRB, 0.495391E+00_JPRB, 0.481925E+00_JPRB, 0.468633E+00_JPRB &
+  &, 0.455596E+00_JPRB, 0.442720E+00_JPRB, 0.430085E+00_JPRB &
+  &, 0.417717E+00_JPRB, 0.405514E+00_JPRB, 0.393497E+00_JPRB, 0.381749E+00_JPRB &
+  &, 0.370228E+00_JPRB, 0.358955E+00_JPRB, 0.347885E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART112',1,ZHOOK_HANDLE)
+END SUBROUTINE PART112
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART113
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART113',0,ZHOOK_HANDLE)
+
+XCW( 785, :) = (/ &
+  &  0.107745E+01_JPRB, 0.109632E+01_JPRB, 0.111497E+01_JPRB, 0.113338E+01_JPRB &
+  &, 0.115155E+01_JPRB, 0.116946E+01_JPRB, 0.118710E+01_JPRB &
+  &, 0.120445E+01_JPRB, 0.122151E+01_JPRB, 0.123826E+01_JPRB, 0.125469E+01_JPRB &
+  &, 0.127080E+01_JPRB, 0.128656E+01_JPRB, 0.130197E+01_JPRB &
+  &, 0.131701E+01_JPRB, 0.133168E+01_JPRB, 0.134596E+01_JPRB, 0.135984E+01_JPRB &
+  &, 0.137331E+01_JPRB, 0.138637E+01_JPRB, 0.139900E+01_JPRB &
+  &, 0.141119E+01_JPRB, 0.142294E+01_JPRB, 0.143423E+01_JPRB, 0.144505E+01_JPRB &
+  &, 0.145540E+01_JPRB, 0.146528E+01_JPRB, 0.147466E+01_JPRB &
+  &, 0.148355E+01_JPRB, 0.149193E+01_JPRB, 0.149981E+01_JPRB, 0.150717E+01_JPRB &
+  &, 0.151402E+01_JPRB, 0.152034E+01_JPRB, 0.152613E+01_JPRB &
+  &, 0.153138E+01_JPRB, 0.153611E+01_JPRB, 0.154030E+01_JPRB, 0.154395E+01_JPRB &
+  &, 0.154705E+01_JPRB, 0.154962E+01_JPRB, 0.155164E+01_JPRB &
+  &, 0.155311E+01_JPRB, 0.155405E+01_JPRB, 0.155445E+01_JPRB, 0.155429E+01_JPRB &
+  &, 0.155361E+01_JPRB, 0.155240E+01_JPRB, 0.155064E+01_JPRB &
+  &, 0.154836E+01_JPRB, 0.154556E+01_JPRB, 0.154224E+01_JPRB, 0.153839E+01_JPRB &
+  &, 0.153403E+01_JPRB, 0.152919E+01_JPRB, 0.152385E+01_JPRB &
+  &, 0.151802E+01_JPRB, 0.151170E+01_JPRB, 0.150490E+01_JPRB, 0.149765E+01_JPRB &
+  &, 0.148992E+01_JPRB, 0.148176E+01_JPRB, 0.147314E+01_JPRB &
+  &, 0.146410E+01_JPRB, 0.145464E+01_JPRB, 0.144476E+01_JPRB, 0.143449E+01_JPRB &
+  &, 0.142381E+01_JPRB, 0.141276E+01_JPRB, 0.140134E+01_JPRB &
+  &, 0.138955E+01_JPRB, 0.137742E+01_JPRB, 0.136495E+01_JPRB, 0.135216E+01_JPRB &
+  &, 0.133905E+01_JPRB, 0.132565E+01_JPRB, 0.131196E+01_JPRB &
+  &, 0.129798E+01_JPRB, 0.128375E+01_JPRB, 0.126924E+01_JPRB, 0.125451E+01_JPRB &
+  &, 0.123955E+01_JPRB, 0.122438E+01_JPRB, 0.120901E+01_JPRB &
+  &, 0.119343E+01_JPRB, 0.117768E+01_JPRB, 0.116177E+01_JPRB, 0.114570E+01_JPRB &
+  &, 0.112949E+01_JPRB, 0.111314E+01_JPRB, 0.109669E+01_JPRB &
+  &, 0.108013E+01_JPRB, 0.106348E+01_JPRB, 0.104673E+01_JPRB, 0.102994E+01_JPRB &
+  &, 0.101305E+01_JPRB, 0.996164E+00_JPRB, 0.979205E+00_JPRB &
+  &, 0.962242E+00_JPRB, 0.945273E+00_JPRB, 0.928293E+00_JPRB, 0.911298E+00_JPRB &
+  &, 0.894356E+00_JPRB, 0.877425E+00_JPRB, 0.860534E+00_JPRB &
+  &, 0.843717E+00_JPRB, 0.826923E+00_JPRB, 0.810225E+00_JPRB, 0.793613E+00_JPRB &
+  &, 0.777032E+00_JPRB, 0.760598E+00_JPRB, 0.744255E+00_JPRB &
+  &, 0.728032E+00_JPRB, 0.711914E+00_JPRB, 0.695930E+00_JPRB, 0.680062E+00_JPRB &
+  &, 0.664339E+00_JPRB, 0.648790E+00_JPRB, 0.633344E+00_JPRB &
+  &, 0.618128E+00_JPRB, 0.603021E+00_JPRB, 0.588098E+00_JPRB, 0.573387E+00_JPRB &
+  &, 0.558809E+00_JPRB, 0.544443E+00_JPRB, 0.530261E+00_JPRB &
+  &, 0.516287E+00_JPRB, 0.502548E+00_JPRB, 0.488956E+00_JPRB, 0.475589E+00_JPRB &
+  &, 0.462415E+00_JPRB, 0.449455E+00_JPRB, 0.436733E+00_JPRB &
+  &, 0.424212E+00_JPRB, 0.411913E+00_JPRB, 0.399857E+00_JPRB, 0.388004E+00_JPRB &
+  &, 0.376310E+00_JPRB, 0.364922E+00_JPRB, 0.353733E+00_JPRB/)
+XCW( 786, :) = (/ &
+  &  0.107780E+01_JPRB, 0.109677E+01_JPRB, 0.111552E+01_JPRB, 0.113403E+01_JPRB &
+  &, 0.115230E+01_JPRB, 0.117031E+01_JPRB, 0.118806E+01_JPRB &
+  &, 0.120552E+01_JPRB, 0.122269E+01_JPRB, 0.123955E+01_JPRB, 0.125609E+01_JPRB &
+  &, 0.127231E+01_JPRB, 0.128819E+01_JPRB, 0.130371E+01_JPRB &
+  &, 0.131887E+01_JPRB, 0.133366E+01_JPRB, 0.134805E+01_JPRB, 0.136206E+01_JPRB &
+  &, 0.137566E+01_JPRB, 0.138884E+01_JPRB, 0.140159E+01_JPRB &
+  &, 0.141391E+01_JPRB, 0.142578E+01_JPRB, 0.143720E+01_JPRB, 0.144815E+01_JPRB &
+  &, 0.145863E+01_JPRB, 0.146863E+01_JPRB, 0.147814E+01_JPRB &
+  &, 0.148716E+01_JPRB, 0.149568E+01_JPRB, 0.150369E+01_JPRB, 0.151118E+01_JPRB &
+  &, 0.151815E+01_JPRB, 0.152461E+01_JPRB, 0.153053E+01_JPRB &
+  &, 0.153591E+01_JPRB, 0.154077E+01_JPRB, 0.154509E+01_JPRB, 0.154887E+01_JPRB &
+  &, 0.155210E+01_JPRB, 0.155480E+01_JPRB, 0.155694E+01_JPRB &
+  &, 0.155855E+01_JPRB, 0.155961E+01_JPRB, 0.156013E+01_JPRB, 0.156011E+01_JPRB &
+  &, 0.155955E+01_JPRB, 0.155846E+01_JPRB, 0.155682E+01_JPRB &
+  &, 0.155466E+01_JPRB, 0.155198E+01_JPRB, 0.154877E+01_JPRB, 0.154505E+01_JPRB &
+  &, 0.154082E+01_JPRB, 0.153609E+01_JPRB, 0.153085E+01_JPRB &
+  &, 0.152512E+01_JPRB, 0.151890E+01_JPRB, 0.151222E+01_JPRB, 0.150507E+01_JPRB &
+  &, 0.149744E+01_JPRB, 0.148936E+01_JPRB, 0.148086E+01_JPRB &
+  &, 0.147190E+01_JPRB, 0.146254E+01_JPRB, 0.145274E+01_JPRB, 0.144255E+01_JPRB &
+  &, 0.143196E+01_JPRB, 0.142098E+01_JPRB, 0.140964E+01_JPRB &
+  &, 0.139794E+01_JPRB, 0.138589E+01_JPRB, 0.137348E+01_JPRB, 0.136075E+01_JPRB &
+  &, 0.134770E+01_JPRB, 0.133437E+01_JPRB, 0.132073E+01_JPRB &
+  &, 0.130679E+01_JPRB, 0.129260E+01_JPRB, 0.127815E+01_JPRB, 0.126346E+01_JPRB &
+  &, 0.124855E+01_JPRB, 0.123341E+01_JPRB, 0.121806E+01_JPRB &
+  &, 0.120251E+01_JPRB, 0.118679E+01_JPRB, 0.117091E+01_JPRB, 0.115486E+01_JPRB &
+  &, 0.113867E+01_JPRB, 0.112233E+01_JPRB, 0.110589E+01_JPRB &
+  &, 0.108932E+01_JPRB, 0.107267E+01_JPRB, 0.105591E+01_JPRB, 0.103912E+01_JPRB &
+  &, 0.102223E+01_JPRB, 0.100533E+01_JPRB, 0.988349E+00_JPRB &
+  &, 0.971365E+00_JPRB, 0.954369E+00_JPRB, 0.937359E+00_JPRB, 0.920365E+00_JPRB &
+  &, 0.903346E+00_JPRB, 0.886408E+00_JPRB, 0.869468E+00_JPRB &
+  &, 0.852595E+00_JPRB, 0.835783E+00_JPRB, 0.819021E+00_JPRB, 0.802339E+00_JPRB &
+  &, 0.785725E+00_JPRB, 0.769211E+00_JPRB, 0.752826E+00_JPRB &
+  &, 0.736512E+00_JPRB, 0.720343E+00_JPRB, 0.704258E+00_JPRB, 0.688329E+00_JPRB &
+  &, 0.672541E+00_JPRB, 0.656921E+00_JPRB, 0.641401E+00_JPRB &
+  &, 0.626055E+00_JPRB, 0.610913E+00_JPRB, 0.595901E+00_JPRB, 0.581095E+00_JPRB &
+  &, 0.566418E+00_JPRB, 0.551947E+00_JPRB, 0.537709E+00_JPRB &
+  &, 0.523620E+00_JPRB, 0.509761E+00_JPRB, 0.496043E+00_JPRB, 0.482602E+00_JPRB &
+  &, 0.469350E+00_JPRB, 0.456309E+00_JPRB, 0.443441E+00_JPRB &
+  &, 0.430829E+00_JPRB, 0.418434E+00_JPRB, 0.406217E+00_JPRB, 0.394259E+00_JPRB &
+  &, 0.382520E+00_JPRB, 0.371019E+00_JPRB, 0.359713E+00_JPRB/)
+XCW( 787, :) = (/ &
+  &  0.107817E+01_JPRB, 0.109723E+01_JPRB, 0.111607E+01_JPRB, 0.113469E+01_JPRB &
+  &, 0.115306E+01_JPRB, 0.117117E+01_JPRB, 0.118902E+01_JPRB &
+  &, 0.120659E+01_JPRB, 0.122387E+01_JPRB, 0.124084E+01_JPRB, 0.125750E+01_JPRB &
+  &, 0.127383E+01_JPRB, 0.128982E+01_JPRB, 0.130546E+01_JPRB &
+  &, 0.132074E+01_JPRB, 0.133564E+01_JPRB, 0.135016E+01_JPRB, 0.136429E+01_JPRB &
+  &, 0.137801E+01_JPRB, 0.139131E+01_JPRB, 0.140420E+01_JPRB &
+  &, 0.141664E+01_JPRB, 0.142864E+01_JPRB, 0.144018E+01_JPRB, 0.145125E+01_JPRB &
+  &, 0.146187E+01_JPRB, 0.147200E+01_JPRB, 0.148165E+01_JPRB &
+  &, 0.149079E+01_JPRB, 0.149944E+01_JPRB, 0.150758E+01_JPRB, 0.151520E+01_JPRB &
+  &, 0.152231E+01_JPRB, 0.152889E+01_JPRB, 0.153495E+01_JPRB &
+  &, 0.154047E+01_JPRB, 0.154546E+01_JPRB, 0.154990E+01_JPRB, 0.155381E+01_JPRB &
+  &, 0.155718E+01_JPRB, 0.156001E+01_JPRB, 0.156228E+01_JPRB &
+  &, 0.156401E+01_JPRB, 0.156520E+01_JPRB, 0.156585E+01_JPRB, 0.156595E+01_JPRB &
+  &, 0.156551E+01_JPRB, 0.156454E+01_JPRB, 0.156303E+01_JPRB &
+  &, 0.156100E+01_JPRB, 0.155844E+01_JPRB, 0.155535E+01_JPRB, 0.155174E+01_JPRB &
+  &, 0.154763E+01_JPRB, 0.154301E+01_JPRB, 0.153789E+01_JPRB &
+  &, 0.153226E+01_JPRB, 0.152617E+01_JPRB, 0.151952E+01_JPRB, 0.151252E+01_JPRB &
+  &, 0.150500E+01_JPRB, 0.149704E+01_JPRB, 0.148862E+01_JPRB &
+  &, 0.147976E+01_JPRB, 0.147048E+01_JPRB, 0.146078E+01_JPRB, 0.145066E+01_JPRB &
+  &, 0.144017E+01_JPRB, 0.142927E+01_JPRB, 0.141801E+01_JPRB &
+  &, 0.140638E+01_JPRB, 0.139439E+01_JPRB, 0.138205E+01_JPRB, 0.136941E+01_JPRB &
+  &, 0.135643E+01_JPRB, 0.134313E+01_JPRB, 0.132955E+01_JPRB &
+  &, 0.131569E+01_JPRB, 0.130153E+01_JPRB, 0.128713E+01_JPRB, 0.127249E+01_JPRB &
+  &, 0.125762E+01_JPRB, 0.124250E+01_JPRB, 0.122715E+01_JPRB &
+  &, 0.121167E+01_JPRB, 0.119598E+01_JPRB, 0.118010E+01_JPRB, 0.116408E+01_JPRB &
+  &, 0.114790E+01_JPRB, 0.113159E+01_JPRB, 0.111513E+01_JPRB &
+  &, 0.109859E+01_JPRB, 0.108195E+01_JPRB, 0.106520E+01_JPRB, 0.104837E+01_JPRB &
+  &, 0.103150E+01_JPRB, 0.101456E+01_JPRB, 0.997599E+00_JPRB &
+  &, 0.980559E+00_JPRB, 0.963538E+00_JPRB, 0.946499E+00_JPRB, 0.929471E+00_JPRB &
+  &, 0.912450E+00_JPRB, 0.895469E+00_JPRB, 0.878480E+00_JPRB &
+  &, 0.861555E+00_JPRB, 0.844684E+00_JPRB, 0.827899E+00_JPRB, 0.811148E+00_JPRB &
+  &, 0.794504E+00_JPRB, 0.777911E+00_JPRB, 0.761441E+00_JPRB &
+  &, 0.745083E+00_JPRB, 0.728818E+00_JPRB, 0.712724E+00_JPRB, 0.696690E+00_JPRB &
+  &, 0.680838E+00_JPRB, 0.665101E+00_JPRB, 0.649556E+00_JPRB &
+  &, 0.634132E+00_JPRB, 0.618856E+00_JPRB, 0.603806E+00_JPRB, 0.588855E+00_JPRB &
+  &, 0.574132E+00_JPRB, 0.559611E+00_JPRB, 0.545211E+00_JPRB &
+  &, 0.531063E+00_JPRB, 0.517085E+00_JPRB, 0.503300E+00_JPRB, 0.489731E+00_JPRB &
+  &, 0.476344E+00_JPRB, 0.463221E+00_JPRB, 0.450269E+00_JPRB &
+  &, 0.437506E+00_JPRB, 0.425017E+00_JPRB, 0.412701E+00_JPRB, 0.400640E+00_JPRB &
+  &, 0.388793E+00_JPRB, 0.377181E+00_JPRB, 0.365758E+00_JPRB/)
+XCW( 788, :) = (/ &
+  &  0.107853E+01_JPRB, 0.109769E+01_JPRB, 0.111663E+01_JPRB, 0.113534E+01_JPRB &
+  &, 0.115382E+01_JPRB, 0.117204E+01_JPRB, 0.118999E+01_JPRB &
+  &, 0.120767E+01_JPRB, 0.122505E+01_JPRB, 0.124214E+01_JPRB, 0.125891E+01_JPRB &
+  &, 0.127535E+01_JPRB, 0.129146E+01_JPRB, 0.130721E+01_JPRB &
+  &, 0.132261E+01_JPRB, 0.133764E+01_JPRB, 0.135228E+01_JPRB, 0.136653E+01_JPRB &
+  &, 0.138037E+01_JPRB, 0.139380E+01_JPRB, 0.140681E+01_JPRB &
+  &, 0.141938E+01_JPRB, 0.143150E+01_JPRB, 0.144318E+01_JPRB, 0.145439E+01_JPRB &
+  &, 0.146511E+01_JPRB, 0.147539E+01_JPRB, 0.148516E+01_JPRB &
+  &, 0.149444E+01_JPRB, 0.150322E+01_JPRB, 0.151143E+01_JPRB, 0.151925E+01_JPRB &
+  &, 0.152649E+01_JPRB, 0.153320E+01_JPRB, 0.153939E+01_JPRB &
+  &, 0.154505E+01_JPRB, 0.155017E+01_JPRB, 0.155474E+01_JPRB, 0.155878E+01_JPRB &
+  &, 0.156227E+01_JPRB, 0.156523E+01_JPRB, 0.156764E+01_JPRB &
+  &, 0.156950E+01_JPRB, 0.157082E+01_JPRB, 0.157159E+01_JPRB, 0.157183E+01_JPRB &
+  &, 0.157152E+01_JPRB, 0.157067E+01_JPRB, 0.156929E+01_JPRB &
+  &, 0.156737E+01_JPRB, 0.156492E+01_JPRB, 0.156196E+01_JPRB, 0.155848E+01_JPRB &
+  &, 0.155448E+01_JPRB, 0.154996E+01_JPRB, 0.154496E+01_JPRB &
+  &, 0.153946E+01_JPRB, 0.153346E+01_JPRB, 0.152698E+01_JPRB, 0.152002E+01_JPRB &
+  &, 0.151262E+01_JPRB, 0.150474E+01_JPRB, 0.149643E+01_JPRB &
+  &, 0.148767E+01_JPRB, 0.147847E+01_JPRB, 0.146886E+01_JPRB, 0.145884E+01_JPRB &
+  &, 0.144843E+01_JPRB, 0.143762E+01_JPRB, 0.142643E+01_JPRB &
+  &, 0.141487E+01_JPRB, 0.140296E+01_JPRB, 0.139069E+01_JPRB, 0.137812E+01_JPRB &
+  &, 0.136520E+01_JPRB, 0.135197E+01_JPRB, 0.133844E+01_JPRB &
+  &, 0.132462E+01_JPRB, 0.131054E+01_JPRB, 0.129619E+01_JPRB, 0.128160E+01_JPRB &
+  &, 0.126675E+01_JPRB, 0.125167E+01_JPRB, 0.123639E+01_JPRB &
+  &, 0.122092E+01_JPRB, 0.120526E+01_JPRB, 0.118941E+01_JPRB, 0.117338E+01_JPRB &
+  &, 0.115723E+01_JPRB, 0.114093E+01_JPRB, 0.112449E+01_JPRB &
+  &, 0.110794E+01_JPRB, 0.109130E+01_JPRB, 0.107455E+01_JPRB, 0.105772E+01_JPRB &
+  &, 0.104085E+01_JPRB, 0.102389E+01_JPRB, 0.100688E+01_JPRB &
+  &, 0.989860E+00_JPRB, 0.972817E+00_JPRB, 0.955749E+00_JPRB, 0.938689E+00_JPRB &
+  &, 0.921631E+00_JPRB, 0.904608E+00_JPRB, 0.887612E+00_JPRB &
+  &, 0.870635E+00_JPRB, 0.853707E+00_JPRB, 0.836860E+00_JPRB, 0.820085E+00_JPRB &
+  &, 0.803369E+00_JPRB, 0.786741E+00_JPRB, 0.770189E+00_JPRB &
+  &, 0.753787E+00_JPRB, 0.737430E+00_JPRB, 0.721237E+00_JPRB, 0.705192E+00_JPRB &
+  &, 0.689230E+00_JPRB, 0.673426E+00_JPRB, 0.657809E+00_JPRB &
+  &, 0.642309E+00_JPRB, 0.626951E+00_JPRB, 0.611763E+00_JPRB, 0.596772E+00_JPRB &
+  &, 0.581952E+00_JPRB, 0.567275E+00_JPRB, 0.552821E+00_JPRB &
+  &, 0.538562E+00_JPRB, 0.524522E+00_JPRB, 0.510614E+00_JPRB, 0.496974E+00_JPRB &
+  &, 0.483454E+00_JPRB, 0.470193E+00_JPRB, 0.457156E+00_JPRB &
+  &, 0.444366E+00_JPRB, 0.431723E+00_JPRB, 0.419310E+00_JPRB, 0.407148E+00_JPRB &
+  &, 0.395195E+00_JPRB, 0.383473E+00_JPRB, 0.371935E+00_JPRB/)
+XCW( 789, :) = (/ &
+  &  0.107889E+01_JPRB, 0.109815E+01_JPRB, 0.111719E+01_JPRB, 0.113600E+01_JPRB &
+  &, 0.115458E+01_JPRB, 0.117290E+01_JPRB, 0.119096E+01_JPRB &
+  &, 0.120875E+01_JPRB, 0.122624E+01_JPRB, 0.124344E+01_JPRB, 0.126032E+01_JPRB &
+  &, 0.127688E+01_JPRB, 0.129310E+01_JPRB, 0.130898E+01_JPRB &
+  &, 0.132449E+01_JPRB, 0.133964E+01_JPRB, 0.135440E+01_JPRB, 0.136877E+01_JPRB &
+  &, 0.138274E+01_JPRB, 0.139630E+01_JPRB, 0.140943E+01_JPRB &
+  &, 0.142213E+01_JPRB, 0.143438E+01_JPRB, 0.144617E+01_JPRB, 0.145752E+01_JPRB &
+  &, 0.146839E+01_JPRB, 0.147878E+01_JPRB, 0.148869E+01_JPRB &
+  &, 0.149810E+01_JPRB, 0.150702E+01_JPRB, 0.151542E+01_JPRB, 0.152331E+01_JPRB &
+  &, 0.153069E+01_JPRB, 0.153753E+01_JPRB, 0.154385E+01_JPRB &
+  &, 0.154964E+01_JPRB, 0.155489E+01_JPRB, 0.155960E+01_JPRB, 0.156378E+01_JPRB &
+  &, 0.156741E+01_JPRB, 0.157049E+01_JPRB, 0.157303E+01_JPRB &
+  &, 0.157502E+01_JPRB, 0.157648E+01_JPRB, 0.157738E+01_JPRB, 0.157773E+01_JPRB &
+  &, 0.157755E+01_JPRB, 0.157683E+01_JPRB, 0.157556E+01_JPRB &
+  &, 0.157378E+01_JPRB, 0.157146E+01_JPRB, 0.156861E+01_JPRB, 0.156524E+01_JPRB &
+  &, 0.156135E+01_JPRB, 0.155696E+01_JPRB, 0.155208E+01_JPRB &
+  &, 0.154668E+01_JPRB, 0.154079E+01_JPRB, 0.153443E+01_JPRB, 0.152757E+01_JPRB &
+  &, 0.152028E+01_JPRB, 0.151250E+01_JPRB, 0.150427E+01_JPRB &
+  &, 0.149562E+01_JPRB, 0.148652E+01_JPRB, 0.147701E+01_JPRB, 0.146707E+01_JPRB &
+  &, 0.145674E+01_JPRB, 0.144601E+01_JPRB, 0.143490E+01_JPRB &
+  &, 0.142344E+01_JPRB, 0.141159E+01_JPRB, 0.139940E+01_JPRB, 0.138687E+01_JPRB &
+  &, 0.137402E+01_JPRB, 0.136087E+01_JPRB, 0.134741E+01_JPRB &
+  &, 0.133364E+01_JPRB, 0.131962E+01_JPRB, 0.130530E+01_JPRB, 0.129076E+01_JPRB &
+  &, 0.127595E+01_JPRB, 0.126092E+01_JPRB, 0.124568E+01_JPRB &
+  &, 0.123022E+01_JPRB, 0.121459E+01_JPRB, 0.119878E+01_JPRB, 0.118278E+01_JPRB &
+  &, 0.116662E+01_JPRB, 0.115034E+01_JPRB, 0.113392E+01_JPRB &
+  &, 0.111737E+01_JPRB, 0.110074E+01_JPRB, 0.108400E+01_JPRB, 0.106717E+01_JPRB &
+  &, 0.105026E+01_JPRB, 0.103329E+01_JPRB, 0.101631E+01_JPRB &
+  &, 0.999269E+00_JPRB, 0.982168E+00_JPRB, 0.965074E+00_JPRB, 0.947982E+00_JPRB &
+  &, 0.930927E+00_JPRB, 0.913825E+00_JPRB, 0.896783E+00_JPRB &
+  &, 0.879795E+00_JPRB, 0.862812E+00_JPRB, 0.845905E+00_JPRB, 0.829063E+00_JPRB &
+  &, 0.812318E+00_JPRB, 0.795615E+00_JPRB, 0.779026E+00_JPRB &
+  &, 0.762537E+00_JPRB, 0.746179E+00_JPRB, 0.729888E+00_JPRB, 0.713741E+00_JPRB &
+  &, 0.697718E+00_JPRB, 0.681848E+00_JPRB, 0.666111E+00_JPRB &
+  &, 0.650535E+00_JPRB, 0.635147E+00_JPRB, 0.619874E+00_JPRB, 0.604792E+00_JPRB &
+  &, 0.589877E+00_JPRB, 0.575100E+00_JPRB, 0.560541E+00_JPRB &
+  &, 0.546170E+00_JPRB, 0.532014E+00_JPRB, 0.518041E+00_JPRB, 0.504274E+00_JPRB &
+  &, 0.490681E+00_JPRB, 0.477342E+00_JPRB, 0.464163E+00_JPRB &
+  &, 0.451225E+00_JPRB, 0.438491E+00_JPRB, 0.425981E+00_JPRB, 0.413719E+00_JPRB &
+  &, 0.401661E+00_JPRB, 0.389829E+00_JPRB, 0.378178E+00_JPRB/)
+XCW( 790, :) = (/ &
+  &  0.107926E+01_JPRB, 0.109861E+01_JPRB, 0.111775E+01_JPRB, 0.113666E+01_JPRB &
+  &, 0.115534E+01_JPRB, 0.117377E+01_JPRB, 0.119194E+01_JPRB &
+  &, 0.120983E+01_JPRB, 0.122744E+01_JPRB, 0.124474E+01_JPRB, 0.126174E+01_JPRB &
+  &, 0.127841E+01_JPRB, 0.129475E+01_JPRB, 0.131075E+01_JPRB &
+  &, 0.132638E+01_JPRB, 0.134165E+01_JPRB, 0.135654E+01_JPRB, 0.137103E+01_JPRB &
+  &, 0.138512E+01_JPRB, 0.139880E+01_JPRB, 0.141206E+01_JPRB &
+  &, 0.142489E+01_JPRB, 0.143727E+01_JPRB, 0.144920E+01_JPRB, 0.146067E+01_JPRB &
+  &, 0.147167E+01_JPRB, 0.148220E+01_JPRB, 0.149224E+01_JPRB &
+  &, 0.150178E+01_JPRB, 0.151083E+01_JPRB, 0.151937E+01_JPRB, 0.152739E+01_JPRB &
+  &, 0.153490E+01_JPRB, 0.154188E+01_JPRB, 0.154834E+01_JPRB &
+  &, 0.155426E+01_JPRB, 0.155964E+01_JPRB, 0.156449E+01_JPRB, 0.156880E+01_JPRB &
+  &, 0.157256E+01_JPRB, 0.157577E+01_JPRB, 0.157844E+01_JPRB &
+  &, 0.158057E+01_JPRB, 0.158215E+01_JPRB, 0.158318E+01_JPRB, 0.158367E+01_JPRB &
+  &, 0.158362E+01_JPRB, 0.158302E+01_JPRB, 0.158189E+01_JPRB &
+  &, 0.158022E+01_JPRB, 0.157802E+01_JPRB, 0.157529E+01_JPRB, 0.157205E+01_JPRB &
+  &, 0.156828E+01_JPRB, 0.156400E+01_JPRB, 0.155922E+01_JPRB &
+  &, 0.155394E+01_JPRB, 0.154818E+01_JPRB, 0.154191E+01_JPRB, 0.153517E+01_JPRB &
+  &, 0.152797E+01_JPRB, 0.152030E+01_JPRB, 0.151205E+01_JPRB &
+  &, 0.150362E+01_JPRB, 0.149461E+01_JPRB, 0.148520E+01_JPRB, 0.147534E+01_JPRB &
+  &, 0.146511E+01_JPRB, 0.145446E+01_JPRB, 0.144345E+01_JPRB &
+  &, 0.143204E+01_JPRB, 0.142027E+01_JPRB, 0.140817E+01_JPRB, 0.139571E+01_JPRB &
+  &, 0.138292E+01_JPRB, 0.136982E+01_JPRB, 0.135642E+01_JPRB &
+  &, 0.134271E+01_JPRB, 0.132875E+01_JPRB, 0.131448E+01_JPRB, 0.129997E+01_JPRB &
+  &, 0.128524E+01_JPRB, 0.127025E+01_JPRB, 0.125503E+01_JPRB &
+  &, 0.123960E+01_JPRB, 0.122401E+01_JPRB, 0.120820E+01_JPRB, 0.119223E+01_JPRB &
+  &, 0.117610E+01_JPRB, 0.115984E+01_JPRB, 0.114343E+01_JPRB &
+  &, 0.112690E+01_JPRB, 0.111025E+01_JPRB, 0.109351E+01_JPRB, 0.107669E+01_JPRB &
+  &, 0.105977E+01_JPRB, 0.104280E+01_JPRB, 0.102577E+01_JPRB &
+  &, 0.100871E+01_JPRB, 0.991628E+00_JPRB, 0.974509E+00_JPRB, 0.957389E+00_JPRB &
+  &, 0.940261E+00_JPRB, 0.923158E+00_JPRB, 0.906112E+00_JPRB &
+  &, 0.889036E+00_JPRB, 0.872039E+00_JPRB, 0.855074E+00_JPRB, 0.838210E+00_JPRB &
+  &, 0.821354E+00_JPRB, 0.804620E+00_JPRB, 0.787995E+00_JPRB &
+  &, 0.771421E+00_JPRB, 0.754973E+00_JPRB, 0.738633E+00_JPRB, 0.722431E+00_JPRB &
+  &, 0.706349E+00_JPRB, 0.690367E+00_JPRB, 0.674561E+00_JPRB &
+  &, 0.658911E+00_JPRB, 0.643394E+00_JPRB, 0.628036E+00_JPRB, 0.612865E+00_JPRB &
+  &, 0.597855E+00_JPRB, 0.583033E+00_JPRB, 0.568369E+00_JPRB &
+  &, 0.553944E+00_JPRB, 0.539674E+00_JPRB, 0.525581E+00_JPRB, 0.511690E+00_JPRB &
+  &, 0.498025E+00_JPRB, 0.484550E+00_JPRB, 0.471290E+00_JPRB &
+  &, 0.458267E+00_JPRB, 0.445443E+00_JPRB, 0.432840E+00_JPRB, 0.420416E+00_JPRB &
+  &, 0.408255E+00_JPRB, 0.396251E+00_JPRB, 0.384552E+00_JPRB/)
+XCW( 791, :) = (/ &
+  &  0.107962E+01_JPRB, 0.109907E+01_JPRB, 0.111831E+01_JPRB, 0.113733E+01_JPRB &
+  &, 0.115611E+01_JPRB, 0.117464E+01_JPRB, 0.119292E+01_JPRB &
+  &, 0.121092E+01_JPRB, 0.122863E+01_JPRB, 0.124605E+01_JPRB, 0.126316E+01_JPRB &
+  &, 0.127995E+01_JPRB, 0.129641E+01_JPRB, 0.131252E+01_JPRB &
+  &, 0.132828E+01_JPRB, 0.134367E+01_JPRB, 0.135867E+01_JPRB, 0.137329E+01_JPRB &
+  &, 0.138751E+01_JPRB, 0.140132E+01_JPRB, 0.141470E+01_JPRB &
+  &, 0.142766E+01_JPRB, 0.144017E+01_JPRB, 0.145223E+01_JPRB, 0.146384E+01_JPRB &
+  &, 0.147497E+01_JPRB, 0.148563E+01_JPRB, 0.149580E+01_JPRB &
+  &, 0.150548E+01_JPRB, 0.151466E+01_JPRB, 0.152333E+01_JPRB, 0.153149E+01_JPRB &
+  &, 0.153913E+01_JPRB, 0.154625E+01_JPRB, 0.155284E+01_JPRB &
+  &, 0.155890E+01_JPRB, 0.156442E+01_JPRB, 0.156940E+01_JPRB, 0.157384E+01_JPRB &
+  &, 0.157774E+01_JPRB, 0.158108E+01_JPRB, 0.158389E+01_JPRB &
+  &, 0.158615E+01_JPRB, 0.158784E+01_JPRB, 0.158902E+01_JPRB, 0.158963E+01_JPRB &
+  &, 0.158969E+01_JPRB, 0.158924E+01_JPRB, 0.158824E+01_JPRB &
+  &, 0.158670E+01_JPRB, 0.158463E+01_JPRB, 0.158202E+01_JPRB, 0.157889E+01_JPRB &
+  &, 0.157524E+01_JPRB, 0.157109E+01_JPRB, 0.156642E+01_JPRB &
+  &, 0.156126E+01_JPRB, 0.155560E+01_JPRB, 0.154945E+01_JPRB, 0.154283E+01_JPRB &
+  &, 0.153572E+01_JPRB, 0.152815E+01_JPRB, 0.152014E+01_JPRB &
+  &, 0.151166E+01_JPRB, 0.150277E+01_JPRB, 0.149342E+01_JPRB, 0.148369E+01_JPRB &
+  &, 0.147352E+01_JPRB, 0.146298E+01_JPRB, 0.145204E+01_JPRB &
+  &, 0.144071E+01_JPRB, 0.142904E+01_JPRB, 0.141698E+01_JPRB, 0.140459E+01_JPRB &
+  &, 0.139188E+01_JPRB, 0.137886E+01_JPRB, 0.136550E+01_JPRB &
+  &, 0.135186E+01_JPRB, 0.133795E+01_JPRB, 0.132374E+01_JPRB, 0.130928E+01_JPRB &
+  &, 0.129458E+01_JPRB, 0.127963E+01_JPRB, 0.126445E+01_JPRB &
+  &, 0.124907E+01_JPRB, 0.123349E+01_JPRB, 0.121771E+01_JPRB, 0.120177E+01_JPRB &
+  &, 0.118567E+01_JPRB, 0.116940E+01_JPRB, 0.115301E+01_JPRB &
+  &, 0.113650E+01_JPRB, 0.111986E+01_JPRB, 0.110313E+01_JPRB, 0.108627E+01_JPRB &
+  &, 0.106939E+01_JPRB, 0.105241E+01_JPRB, 0.103537E+01_JPRB &
+  &, 0.101773E+01_JPRB, 0.100116E+01_JPRB, 0.984019E+00_JPRB, 0.966908E+00_JPRB &
+  &, 0.949748E+00_JPRB, 0.932608E+00_JPRB, 0.915480E+00_JPRB &
+  &, 0.898397E+00_JPRB, 0.881348E+00_JPRB, 0.864325E+00_JPRB, 0.847400E+00_JPRB &
+  &, 0.830518E+00_JPRB, 0.813711E+00_JPRB, 0.797008E+00_JPRB &
+  &, 0.780396E+00_JPRB, 0.763903E+00_JPRB, 0.747469E+00_JPRB, 0.731214E+00_JPRB &
+  &, 0.715027E+00_JPRB, 0.698982E+00_JPRB, 0.683109E+00_JPRB &
+  &, 0.667386E+00_JPRB, 0.651792E+00_JPRB, 0.636352E+00_JPRB, 0.621094E+00_JPRB &
+  &, 0.605992E+00_JPRB, 0.591072E+00_JPRB, 0.576306E+00_JPRB &
+  &, 0.561773E+00_JPRB, 0.547390E+00_JPRB, 0.533235E+00_JPRB, 0.519221E+00_JPRB &
+  &, 0.505485E+00_JPRB, 0.491877E+00_JPRB, 0.478537E+00_JPRB &
+  &, 0.465370E+00_JPRB, 0.452457E+00_JPRB, 0.439698E+00_JPRB, 0.427176E+00_JPRB &
+  &, 0.414913E+00_JPRB, 0.402866E+00_JPRB, 0.390991E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART113',1,ZHOOK_HANDLE)
+END SUBROUTINE PART113
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART114
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART114',0,ZHOOK_HANDLE)
+
+XCW( 792, :) = (/ &
+  &  0.107999E+01_JPRB, 0.109954E+01_JPRB, 0.111887E+01_JPRB, 0.113799E+01_JPRB &
+  &, 0.115688E+01_JPRB, 0.117552E+01_JPRB, 0.119390E+01_JPRB &
+  &, 0.121201E+01_JPRB, 0.122984E+01_JPRB, 0.124737E+01_JPRB, 0.126459E+01_JPRB &
+  &, 0.128150E+01_JPRB, 0.129807E+01_JPRB, 0.131430E+01_JPRB &
+  &, 0.133018E+01_JPRB, 0.134569E+01_JPRB, 0.136082E+01_JPRB, 0.137557E+01_JPRB &
+  &, 0.138991E+01_JPRB, 0.140385E+01_JPRB, 0.141736E+01_JPRB &
+  &, 0.143044E+01_JPRB, 0.144309E+01_JPRB, 0.145528E+01_JPRB, 0.146702E+01_JPRB &
+  &, 0.147828E+01_JPRB, 0.148907E+01_JPRB, 0.149937E+01_JPRB &
+  &, 0.150919E+01_JPRB, 0.151850E+01_JPRB, 0.152730E+01_JPRB, 0.153560E+01_JPRB &
+  &, 0.154338E+01_JPRB, 0.155064E+01_JPRB, 0.155736E+01_JPRB &
+  &, 0.156356E+01_JPRB, 0.156921E+01_JPRB, 0.157433E+01_JPRB, 0.157890E+01_JPRB &
+  &, 0.158294E+01_JPRB, 0.158642E+01_JPRB, 0.158936E+01_JPRB &
+  &, 0.159175E+01_JPRB, 0.159360E+01_JPRB, 0.159489E+01_JPRB, 0.159564E+01_JPRB &
+  &, 0.159584E+01_JPRB, 0.159550E+01_JPRB, 0.159463E+01_JPRB &
+  &, 0.159320E+01_JPRB, 0.159126E+01_JPRB, 0.158877E+01_JPRB, 0.158577E+01_JPRB &
+  &, 0.158225E+01_JPRB, 0.157820E+01_JPRB, 0.157365E+01_JPRB &
+  &, 0.156861E+01_JPRB, 0.156307E+01_JPRB, 0.155703E+01_JPRB, 0.155051E+01_JPRB &
+  &, 0.154351E+01_JPRB, 0.153606E+01_JPRB, 0.152813E+01_JPRB &
+  &, 0.151977E+01_JPRB, 0.151097E+01_JPRB, 0.150173E+01_JPRB, 0.149208E+01_JPRB &
+  &, 0.148201E+01_JPRB, 0.147155E+01_JPRB, 0.146069E+01_JPRB &
+  &, 0.144944E+01_JPRB, 0.143784E+01_JPRB, 0.142586E+01_JPRB, 0.141357E+01_JPRB &
+  &, 0.140092E+01_JPRB, 0.138795E+01_JPRB, 0.137466E+01_JPRB &
+  &, 0.136107E+01_JPRB, 0.134720E+01_JPRB, 0.133307E+01_JPRB, 0.131864E+01_JPRB &
+  &, 0.130399E+01_JPRB, 0.128910E+01_JPRB, 0.127396E+01_JPRB &
+  &, 0.125860E+01_JPRB, 0.124305E+01_JPRB, 0.122731E+01_JPRB, 0.121140E+01_JPRB &
+  &, 0.119532E+01_JPRB, 0.117908E+01_JPRB, 0.116268E+01_JPRB &
+  &, 0.114619E+01_JPRB, 0.112956E+01_JPRB, 0.111281E+01_JPRB, 0.109599E+01_JPRB &
+  &, 0.107907E+01_JPRB, 0.106209E+01_JPRB, 0.104504E+01_JPRB &
+  &, 0.102792E+01_JPRB, 0.101080E+01_JPRB, 0.993640E+00_JPRB, 0.976465E+00_JPRB &
+  &, 0.959312E+00_JPRB, 0.942136E+00_JPRB, 0.924968E+00_JPRB &
+  &, 0.907838E+00_JPRB, 0.890739E+00_JPRB, 0.873702E+00_JPRB, 0.856715E+00_JPRB &
+  &, 0.839768E+00_JPRB, 0.822933E+00_JPRB, 0.806154E+00_JPRB &
+  &, 0.789459E+00_JPRB, 0.772880E+00_JPRB, 0.756445E+00_JPRB, 0.739904E+00_JPRB &
+  &, 0.723849E+00_JPRB, 0.707743E+00_JPRB, 0.691755E+00_JPRB &
+  &, 0.675962E+00_JPRB, 0.660241E+00_JPRB, 0.644720E+00_JPRB, 0.629375E+00_JPRB &
+  &, 0.614182E+00_JPRB, 0.599165E+00_JPRB, 0.584352E+00_JPRB &
+  &, 0.569713E+00_JPRB, 0.555218E+00_JPRB, 0.540946E+00_JPRB, 0.526866E+00_JPRB &
+  &, 0.513003E+00_JPRB, 0.499321E+00_JPRB, 0.485844E+00_JPRB &
+  &, 0.472593E+00_JPRB, 0.459532E+00_JPRB, 0.446744E+00_JPRB, 0.434126E+00_JPRB &
+  &, 0.421699E+00_JPRB, 0.409547E+00_JPRB, 0.397562E+00_JPRB/)
+XCW( 793, :) = (/ &
+  &  0.108036E+01_JPRB, 0.110000E+01_JPRB, 0.111944E+01_JPRB, 0.113866E+01_JPRB &
+  &, 0.115765E+01_JPRB, 0.117639E+01_JPRB, 0.119488E+01_JPRB &
+  &, 0.121310E+01_JPRB, 0.123104E+01_JPRB, 0.124869E+01_JPRB, 0.126603E+01_JPRB &
+  &, 0.128305E+01_JPRB, 0.129974E+01_JPRB, 0.131609E+01_JPRB &
+  &, 0.133209E+01_JPRB, 0.134772E+01_JPRB, 0.136298E+01_JPRB, 0.137785E+01_JPRB &
+  &, 0.139232E+01_JPRB, 0.140638E+01_JPRB, 0.142003E+01_JPRB &
+  &, 0.143324E+01_JPRB, 0.144601E+01_JPRB, 0.145834E+01_JPRB, 0.147021E+01_JPRB &
+  &, 0.148160E+01_JPRB, 0.149253E+01_JPRB, 0.150297E+01_JPRB &
+  &, 0.151291E+01_JPRB, 0.152237E+01_JPRB, 0.153131E+01_JPRB, 0.153974E+01_JPRB &
+  &, 0.154765E+01_JPRB, 0.155505E+01_JPRB, 0.156191E+01_JPRB &
+  &, 0.156824E+01_JPRB, 0.157403E+01_JPRB, 0.157929E+01_JPRB, 0.158400E+01_JPRB &
+  &, 0.158817E+01_JPRB, 0.159179E+01_JPRB, 0.159486E+01_JPRB &
+  &, 0.159738E+01_JPRB, 0.159936E+01_JPRB, 0.160079E+01_JPRB, 0.160166E+01_JPRB &
+  &, 0.160200E+01_JPRB, 0.160180E+01_JPRB, 0.160104E+01_JPRB &
+  &, 0.159976E+01_JPRB, 0.159794E+01_JPRB, 0.159558E+01_JPRB, 0.159269E+01_JPRB &
+  &, 0.158929E+01_JPRB, 0.158538E+01_JPRB, 0.158094E+01_JPRB &
+  &, 0.157601E+01_JPRB, 0.157057E+01_JPRB, 0.156466E+01_JPRB, 0.155824E+01_JPRB &
+  &, 0.155136E+01_JPRB, 0.154401E+01_JPRB, 0.153619E+01_JPRB &
+  &, 0.152792E+01_JPRB, 0.151923E+01_JPRB, 0.151009E+01_JPRB, 0.150053E+01_JPRB &
+  &, 0.149054E+01_JPRB, 0.148016E+01_JPRB, 0.146938E+01_JPRB &
+  &, 0.145823E+01_JPRB, 0.144671E+01_JPRB, 0.143481E+01_JPRB, 0.142259E+01_JPRB &
+  &, 0.141001E+01_JPRB, 0.139711E+01_JPRB, 0.138389E+01_JPRB &
+  &, 0.137037E+01_JPRB, 0.135656E+01_JPRB, 0.134246E+01_JPRB, 0.132808E+01_JPRB &
+  &, 0.131349E+01_JPRB, 0.129861E+01_JPRB, 0.128353E+01_JPRB &
+  &, 0.126823E+01_JPRB, 0.125270E+01_JPRB, 0.123699E+01_JPRB, 0.122109E+01_JPRB &
+  &, 0.120504E+01_JPRB, 0.118880E+01_JPRB, 0.117245E+01_JPRB &
+  &, 0.115594E+01_JPRB, 0.113933E+01_JPRB, 0.112258E+01_JPRB, 0.110577E+01_JPRB &
+  &, 0.108882E+01_JPRB, 0.107184E+01_JPRB, 0.105478E+01_JPRB &
+  &, 0.103769E+01_JPRB, 0.102052E+01_JPRB, 0.100333E+01_JPRB, 0.986135E+00_JPRB &
+  &, 0.968952E+00_JPRB, 0.951742E+00_JPRB, 0.934534E+00_JPRB &
+  &, 0.917400E+00_JPRB, 0.900252E+00_JPRB, 0.883161E+00_JPRB, 0.866115E+00_JPRB &
+  &, 0.849146E+00_JPRB, 0.832242E+00_JPRB, 0.815387E+00_JPRB &
+  &, 0.798658E+00_JPRB, 0.782038E+00_JPRB, 0.765466E+00_JPRB, 0.749063E+00_JPRB &
+  &, 0.732765E+00_JPRB, 0.716552E+00_JPRB, 0.700500E+00_JPRB &
+  &, 0.684587E+00_JPRB, 0.668842E+00_JPRB, 0.653241E+00_JPRB, 0.637813E+00_JPRB &
+  &, 0.622530E+00_JPRB, 0.607419E+00_JPRB, 0.592506E+00_JPRB &
+  &, 0.577762E+00_JPRB, 0.563157E+00_JPRB, 0.548827E+00_JPRB, 0.534627E+00_JPRB &
+  &, 0.520638E+00_JPRB, 0.506884E+00_JPRB, 0.493270E+00_JPRB &
+  &, 0.479939E+00_JPRB, 0.466792E+00_JPRB, 0.453852E+00_JPRB, 0.441076E+00_JPRB &
+  &, 0.428613E+00_JPRB, 0.416293E+00_JPRB, 0.404199E+00_JPRB/)
+XCW( 794, :) = (/ &
+  &  0.108073E+01_JPRB, 0.110047E+01_JPRB, 0.112001E+01_JPRB, 0.113933E+01_JPRB &
+  &, 0.115842E+01_JPRB, 0.117727E+01_JPRB, 0.119587E+01_JPRB &
+  &, 0.121420E+01_JPRB, 0.123225E+01_JPRB, 0.125001E+01_JPRB, 0.126747E+01_JPRB &
+  &, 0.128461E+01_JPRB, 0.130142E+01_JPRB, 0.131789E+01_JPRB &
+  &, 0.133401E+01_JPRB, 0.134976E+01_JPRB, 0.136514E+01_JPRB, 0.138014E+01_JPRB &
+  &, 0.139474E+01_JPRB, 0.140893E+01_JPRB, 0.142270E+01_JPRB &
+  &, 0.143604E+01_JPRB, 0.144895E+01_JPRB, 0.146141E+01_JPRB, 0.147341E+01_JPRB &
+  &, 0.148494E+01_JPRB, 0.149600E+01_JPRB, 0.150657E+01_JPRB &
+  &, 0.151666E+01_JPRB, 0.152624E+01_JPRB, 0.153533E+01_JPRB, 0.154390E+01_JPRB &
+  &, 0.155195E+01_JPRB, 0.155947E+01_JPRB, 0.156648E+01_JPRB &
+  &, 0.157294E+01_JPRB, 0.157887E+01_JPRB, 0.158426E+01_JPRB, 0.158911E+01_JPRB &
+  &, 0.159342E+01_JPRB, 0.159717E+01_JPRB, 0.160038E+01_JPRB &
+  &, 0.160305E+01_JPRB, 0.160515E+01_JPRB, 0.160672E+01_JPRB, 0.160773E+01_JPRB &
+  &, 0.160819E+01_JPRB, 0.160812E+01_JPRB, 0.160750E+01_JPRB &
+  &, 0.160634E+01_JPRB, 0.160464E+01_JPRB, 0.160242E+01_JPRB, 0.159966E+01_JPRB &
+  &, 0.159638E+01_JPRB, 0.159258E+01_JPRB, 0.158827E+01_JPRB &
+  &, 0.158345E+01_JPRB, 0.157813E+01_JPRB, 0.157233E+01_JPRB, 0.156603E+01_JPRB &
+  &, 0.155925E+01_JPRB, 0.155200E+01_JPRB, 0.154430E+01_JPRB &
+  &, 0.153614E+01_JPRB, 0.152754E+01_JPRB, 0.151849E+01_JPRB, 0.150901E+01_JPRB &
+  &, 0.149913E+01_JPRB, 0.148884E+01_JPRB, 0.147816E+01_JPRB &
+  &, 0.146709E+01_JPRB, 0.145563E+01_JPRB, 0.144382E+01_JPRB, 0.143168E+01_JPRB &
+  &, 0.141915E+01_JPRB, 0.140632E+01_JPRB, 0.139318E+01_JPRB &
+  &, 0.137971E+01_JPRB, 0.136596E+01_JPRB, 0.135192E+01_JPRB, 0.133760E+01_JPRB &
+  &, 0.132306E+01_JPRB, 0.130824E+01_JPRB, 0.129317E+01_JPRB &
+  &, 0.127792E+01_JPRB, 0.126243E+01_JPRB, 0.124674E+01_JPRB, 0.123089E+01_JPRB &
+  &, 0.121485E+01_JPRB, 0.119863E+01_JPRB, 0.118228E+01_JPRB &
+  &, 0.116579E+01_JPRB, 0.114919E+01_JPRB, 0.113246E+01_JPRB, 0.111562E+01_JPRB &
+  &, 0.109871E+01_JPRB, 0.108169E+01_JPRB, 0.106463E+01_JPRB &
+  &, 0.104753E+01_JPRB, 0.103034E+01_JPRB, 0.101314E+01_JPRB, 0.995917E+00_JPRB &
+  &, 0.978707E+00_JPRB, 0.961464E+00_JPRB, 0.944219E+00_JPRB &
+  &, 0.927043E+00_JPRB, 0.909847E+00_JPRB, 0.892703E+00_JPRB, 0.875642E+00_JPRB &
+  &, 0.858610E+00_JPRB, 0.841638E+00_JPRB, 0.824754E+00_JPRB &
+  &, 0.807946E+00_JPRB, 0.791242E+00_JPRB, 0.774627E+00_JPRB, 0.758129E+00_JPRB &
+  &, 0.741778E+00_JPRB, 0.725507E+00_JPRB, 0.709392E+00_JPRB &
+  &, 0.693411E+00_JPRB, 0.677544E+00_JPRB, 0.661866E+00_JPRB, 0.646354E+00_JPRB &
+  &, 0.630984E+00_JPRB, 0.615780E+00_JPRB, 0.600769E+00_JPRB &
+  &, 0.585922E+00_JPRB, 0.571264E+00_JPRB, 0.556764E+00_JPRB, 0.542502E+00_JPRB &
+  &, 0.528389E+00_JPRB, 0.514506E+00_JPRB, 0.500816E+00_JPRB &
+  &, 0.487344E+00_JPRB, 0.474113E+00_JPRB, 0.461022E+00_JPRB, 0.448215E+00_JPRB &
+  &, 0.435591E+00_JPRB, 0.423168E+00_JPRB, 0.410967E+00_JPRB/)
+XCW( 795, :) = (/ &
+  &  0.108110E+01_JPRB, 0.110094E+01_JPRB, 0.112058E+01_JPRB, 0.114000E+01_JPRB &
+  &, 0.115920E+01_JPRB, 0.117816E+01_JPRB, 0.119686E+01_JPRB &
+  &, 0.121530E+01_JPRB, 0.123347E+01_JPRB, 0.125134E+01_JPRB, 0.126891E+01_JPRB &
+  &, 0.128617E+01_JPRB, 0.130310E+01_JPRB, 0.131969E+01_JPRB &
+  &, 0.133593E+01_JPRB, 0.135181E+01_JPRB, 0.136732E+01_JPRB, 0.138244E+01_JPRB &
+  &, 0.139717E+01_JPRB, 0.141148E+01_JPRB, 0.142539E+01_JPRB &
+  &, 0.143886E+01_JPRB, 0.145190E+01_JPRB, 0.146449E+01_JPRB, 0.147662E+01_JPRB &
+  &, 0.148829E+01_JPRB, 0.149949E+01_JPRB, 0.151020E+01_JPRB &
+  &, 0.152042E+01_JPRB, 0.153014E+01_JPRB, 0.153936E+01_JPRB, 0.154806E+01_JPRB &
+  &, 0.155626E+01_JPRB, 0.156392E+01_JPRB, 0.157107E+01_JPRB &
+  &, 0.157767E+01_JPRB, 0.158374E+01_JPRB, 0.158927E+01_JPRB, 0.159425E+01_JPRB &
+  &, 0.159869E+01_JPRB, 0.160259E+01_JPRB, 0.160594E+01_JPRB &
+  &, 0.160873E+01_JPRB, 0.161099E+01_JPRB, 0.161268E+01_JPRB, 0.161383E+01_JPRB &
+  &, 0.161443E+01_JPRB, 0.161448E+01_JPRB, 0.161399E+01_JPRB &
+  &, 0.161296E+01_JPRB, 0.161140E+01_JPRB, 0.160927E+01_JPRB, 0.160666E+01_JPRB &
+  &, 0.160351E+01_JPRB, 0.159983E+01_JPRB, 0.159564E+01_JPRB &
+  &, 0.159094E+01_JPRB, 0.158574E+01_JPRB, 0.158004E+01_JPRB, 0.157386E+01_JPRB &
+  &, 0.156720E+01_JPRB, 0.156005E+01_JPRB, 0.155245E+01_JPRB &
+  &, 0.154440E+01_JPRB, 0.153588E+01_JPRB, 0.152694E+01_JPRB, 0.151757E+01_JPRB &
+  &, 0.150778E+01_JPRB, 0.149759E+01_JPRB, 0.148698E+01_JPRB &
+  &, 0.147599E+01_JPRB, 0.146463E+01_JPRB, 0.145290E+01_JPRB, 0.144081E+01_JPRB &
+  &, 0.142838E+01_JPRB, 0.141562E+01_JPRB, 0.140253E+01_JPRB &
+  &, 0.138914E+01_JPRB, 0.137543E+01_JPRB, 0.136146E+01_JPRB, 0.134720E+01_JPRB &
+  &, 0.133268E+01_JPRB, 0.131792E+01_JPRB, 0.130290E+01_JPRB &
+  &, 0.128767E+01_JPRB, 0.127222E+01_JPRB, 0.125659E+01_JPRB, 0.124076E+01_JPRB &
+  &, 0.122472E+01_JPRB, 0.120856E+01_JPRB, 0.119220E+01_JPRB &
+  &, 0.117573E+01_JPRB, 0.115912E+01_JPRB, 0.114240E+01_JPRB, 0.112557E+01_JPRB &
+  &, 0.110867E+01_JPRB, 0.109165E+01_JPRB, 0.107459E+01_JPRB &
+  &, 0.105744E+01_JPRB, 0.104028E+01_JPRB, 0.102306E+01_JPRB, 0.100581E+01_JPRB &
+  &, 0.988538E+00_JPRB, 0.971264E+00_JPRB, 0.954022E+00_JPRB &
+  &, 0.936765E+00_JPRB, 0.919564E+00_JPRB, 0.902370E+00_JPRB, 0.885252E+00_JPRB &
+  &, 0.868160E+00_JPRB, 0.851164E+00_JPRB, 0.834209E+00_JPRB &
+  &, 0.817324E+00_JPRB, 0.800583E+00_JPRB, 0.783880E+00_JPRB, 0.767335E+00_JPRB &
+  &, 0.750885E+00_JPRB, 0.734558E+00_JPRB, 0.718332E+00_JPRB &
+  &, 0.702286E+00_JPRB, 0.686347E+00_JPRB, 0.670592E+00_JPRB, 0.654948E+00_JPRB &
+  &, 0.639490E+00_JPRB, 0.624248E+00_JPRB, 0.609086E+00_JPRB &
+  &, 0.594137E+00_JPRB, 0.579427E+00_JPRB, 0.564815E+00_JPRB, 0.550436E+00_JPRB &
+  &, 0.536257E+00_JPRB, 0.522305E+00_JPRB, 0.508482E+00_JPRB &
+  &, 0.494933E+00_JPRB, 0.481558E+00_JPRB, 0.468379E+00_JPRB, 0.455418E+00_JPRB &
+  &, 0.442697E+00_JPRB, 0.430173E+00_JPRB, 0.417867E+00_JPRB/)
+XCW( 796, :) = (/ &
+  &  0.108147E+01_JPRB, 0.110141E+01_JPRB, 0.112115E+01_JPRB, 0.114067E+01_JPRB &
+  &, 0.115998E+01_JPRB, 0.117904E+01_JPRB, 0.119786E+01_JPRB &
+  &, 0.121641E+01_JPRB, 0.123468E+01_JPRB, 0.125267E+01_JPRB, 0.127036E+01_JPRB &
+  &, 0.128773E+01_JPRB, 0.130478E+01_JPRB, 0.132150E+01_JPRB &
+  &, 0.133786E+01_JPRB, 0.135387E+01_JPRB, 0.136950E+01_JPRB, 0.138475E+01_JPRB &
+  &, 0.139960E+01_JPRB, 0.141405E+01_JPRB, 0.142809E+01_JPRB &
+  &, 0.144169E+01_JPRB, 0.145486E+01_JPRB, 0.146759E+01_JPRB, 0.147986E+01_JPRB &
+  &, 0.149166E+01_JPRB, 0.150299E+01_JPRB, 0.151384E+01_JPRB &
+  &, 0.152420E+01_JPRB, 0.153406E+01_JPRB, 0.154342E+01_JPRB, 0.155226E+01_JPRB &
+  &, 0.156059E+01_JPRB, 0.156840E+01_JPRB, 0.157568E+01_JPRB &
+  &, 0.158242E+01_JPRB, 0.158863E+01_JPRB, 0.159430E+01_JPRB, 0.159943E+01_JPRB &
+  &, 0.160401E+01_JPRB, 0.160804E+01_JPRB, 0.161152E+01_JPRB &
+  &, 0.161446E+01_JPRB, 0.161683E+01_JPRB, 0.161867E+01_JPRB, 0.161996E+01_JPRB &
+  &, 0.162068E+01_JPRB, 0.162087E+01_JPRB, 0.162051E+01_JPRB &
+  &, 0.161961E+01_JPRB, 0.161818E+01_JPRB, 0.161620E+01_JPRB, 0.161371E+01_JPRB &
+  &, 0.161066E+01_JPRB, 0.160711E+01_JPRB, 0.160305E+01_JPRB &
+  &, 0.159847E+01_JPRB, 0.159339E+01_JPRB, 0.158781E+01_JPRB, 0.158173E+01_JPRB &
+  &, 0.157517E+01_JPRB, 0.156816E+01_JPRB, 0.156067E+01_JPRB &
+  &, 0.155271E+01_JPRB, 0.154430E+01_JPRB, 0.153545E+01_JPRB, 0.152619E+01_JPRB &
+  &, 0.151649E+01_JPRB, 0.150638E+01_JPRB, 0.149588E+01_JPRB &
+  &, 0.148497E+01_JPRB, 0.147369E+01_JPRB, 0.146205E+01_JPRB, 0.145003E+01_JPRB &
+  &, 0.143768E+01_JPRB, 0.142499E+01_JPRB, 0.141197E+01_JPRB &
+  &, 0.139863E+01_JPRB, 0.138498E+01_JPRB, 0.137107E+01_JPRB, 0.135687E+01_JPRB &
+  &, 0.134242E+01_JPRB, 0.132768E+01_JPRB, 0.131271E+01_JPRB &
+  &, 0.129753E+01_JPRB, 0.128212E+01_JPRB, 0.126651E+01_JPRB, 0.125068E+01_JPRB &
+  &, 0.123470E+01_JPRB, 0.121855E+01_JPRB, 0.120221E+01_JPRB &
+  &, 0.118577E+01_JPRB, 0.116918E+01_JPRB, 0.115244E+01_JPRB, 0.113562E+01_JPRB &
+  &, 0.111869E+01_JPRB, 0.110171E+01_JPRB, 0.108461E+01_JPRB &
+  &, 0.106746E+01_JPRB, 0.105028E+01_JPRB, 0.103305E+01_JPRB, 0.101578E+01_JPRB &
+  &, 0.998484E+00_JPRB, 0.981181E+00_JPRB, 0.963904E+00_JPRB &
+  &, 0.946608E+00_JPRB, 0.929363E+00_JPRB, 0.912119E+00_JPRB, 0.894947E+00_JPRB &
+  &, 0.877838E+00_JPRB, 0.860777E+00_JPRB, 0.843752E+00_JPRB &
+  &, 0.826836E+00_JPRB, 0.810015E+00_JPRB, 0.793272E+00_JPRB, 0.776636E+00_JPRB &
+  &, 0.760088E+00_JPRB, 0.743706E+00_JPRB, 0.727421E+00_JPRB &
+  &, 0.711310E+00_JPRB, 0.695302E+00_JPRB, 0.679422E+00_JPRB, 0.663698E+00_JPRB &
+  &, 0.648156E+00_JPRB, 0.632770E+00_JPRB, 0.617567E+00_JPRB &
+  &, 0.602517E+00_JPRB, 0.587702E+00_JPRB, 0.573036E+00_JPRB, 0.558541E+00_JPRB &
+  &, 0.544242E+00_JPRB, 0.530163E+00_JPRB, 0.516268E+00_JPRB &
+  &, 0.502581E+00_JPRB, 0.489064E+00_JPRB, 0.475799E+00_JPRB, 0.462747E+00_JPRB &
+  &, 0.449931E+00_JPRB, 0.437243E+00_JPRB, 0.424833E+00_JPRB/)
+XCW( 797, :) = (/ &
+  &  0.108184E+01_JPRB, 0.110188E+01_JPRB, 0.112172E+01_JPRB, 0.114135E+01_JPRB &
+  &, 0.116076E+01_JPRB, 0.117993E+01_JPRB, 0.119885E+01_JPRB &
+  &, 0.121752E+01_JPRB, 0.123591E+01_JPRB, 0.125401E+01_JPRB, 0.127181E+01_JPRB &
+  &, 0.128931E+01_JPRB, 0.130648E+01_JPRB, 0.132332E+01_JPRB &
+  &, 0.133980E+01_JPRB, 0.135593E+01_JPRB, 0.137169E+01_JPRB, 0.138707E+01_JPRB &
+  &, 0.140205E+01_JPRB, 0.141663E+01_JPRB, 0.143080E+01_JPRB &
+  &, 0.144454E+01_JPRB, 0.145784E+01_JPRB, 0.147070E+01_JPRB, 0.148310E+01_JPRB &
+  &, 0.149504E+01_JPRB, 0.150651E+01_JPRB, 0.151750E+01_JPRB &
+  &, 0.152799E+01_JPRB, 0.153799E+01_JPRB, 0.154748E+01_JPRB, 0.155647E+01_JPRB &
+  &, 0.156494E+01_JPRB, 0.157289E+01_JPRB, 0.158031E+01_JPRB &
+  &, 0.158719E+01_JPRB, 0.159354E+01_JPRB, 0.159935E+01_JPRB, 0.160462E+01_JPRB &
+  &, 0.160934E+01_JPRB, 0.161351E+01_JPRB, 0.161713E+01_JPRB &
+  &, 0.162020E+01_JPRB, 0.162272E+01_JPRB, 0.162470E+01_JPRB, 0.162611E+01_JPRB &
+  &, 0.162699E+01_JPRB, 0.162730E+01_JPRB, 0.162708E+01_JPRB &
+  &, 0.162631E+01_JPRB, 0.162500E+01_JPRB, 0.162316E+01_JPRB, 0.162078E+01_JPRB &
+  &, 0.161787E+01_JPRB, 0.161445E+01_JPRB, 0.161050E+01_JPRB &
+  &, 0.160605E+01_JPRB, 0.160108E+01_JPRB, 0.159561E+01_JPRB, 0.158966E+01_JPRB &
+  &, 0.158322E+01_JPRB, 0.157630E+01_JPRB, 0.156892E+01_JPRB &
+  &, 0.156107E+01_JPRB, 0.155278E+01_JPRB, 0.154389E+01_JPRB, 0.153485E+01_JPRB &
+  &, 0.152526E+01_JPRB, 0.151524E+01_JPRB, 0.150482E+01_JPRB &
+  &, 0.149402E+01_JPRB, 0.148280E+01_JPRB, 0.147123E+01_JPRB, 0.145932E+01_JPRB &
+  &, 0.144702E+01_JPRB, 0.143441E+01_JPRB, 0.142146E+01_JPRB &
+  &, 0.140819E+01_JPRB, 0.139461E+01_JPRB, 0.138076E+01_JPRB, 0.136660E+01_JPRB &
+  &, 0.135220E+01_JPRB, 0.133752E+01_JPRB, 0.132260E+01_JPRB &
+  &, 0.130744E+01_JPRB, 0.129208E+01_JPRB, 0.127651E+01_JPRB, 0.126072E+01_JPRB &
+  &, 0.124475E+01_JPRB, 0.122863E+01_JPRB, 0.121232E+01_JPRB &
+  &, 0.119587E+01_JPRB, 0.117930E+01_JPRB, 0.116258E+01_JPRB, 0.114577E+01_JPRB &
+  &, 0.112885E+01_JPRB, 0.111184E+01_JPRB, 0.109474E+01_JPRB &
+  &, 0.107758E+01_JPRB, 0.106040E+01_JPRB, 0.104311E+01_JPRB, 0.102583E+01_JPRB &
+  &, 0.100855E+01_JPRB, 0.991214E+00_JPRB, 0.973866E+00_JPRB &
+  &, 0.956572E+00_JPRB, 0.939285E+00_JPRB, 0.921993E+00_JPRB, 0.904769E+00_JPRB &
+  &, 0.887601E+00_JPRB, 0.870478E+00_JPRB, 0.853428E+00_JPRB &
+  &, 0.836439E+00_JPRB, 0.819538E+00_JPRB, 0.802756E+00_JPRB, 0.786030E+00_JPRB &
+  &, 0.769434E+00_JPRB, 0.752951E+00_JPRB, 0.736607E+00_JPRB &
+  &, 0.720384E+00_JPRB, 0.704307E+00_JPRB, 0.688354E+00_JPRB, 0.672604E+00_JPRB &
+  &, 0.656926E+00_JPRB, 0.641453E+00_JPRB, 0.626156E+00_JPRB &
+  &, 0.611008E+00_JPRB, 0.596089E+00_JPRB, 0.581313E+00_JPRB, 0.566704E+00_JPRB &
+  &, 0.552343E+00_JPRB, 0.538139E+00_JPRB, 0.524114E+00_JPRB &
+  &, 0.510351E+00_JPRB, 0.496754E+00_JPRB, 0.483343E+00_JPRB, 0.470202E+00_JPRB &
+  &, 0.457229E+00_JPRB, 0.444508E+00_JPRB, 0.431995E+00_JPRB/)
+XCW( 798, :) = (/ &
+  &  0.108222E+01_JPRB, 0.110235E+01_JPRB, 0.112229E+01_JPRB, 0.114203E+01_JPRB &
+  &, 0.116154E+01_JPRB, 0.118082E+01_JPRB, 0.119986E+01_JPRB &
+  &, 0.121863E+01_JPRB, 0.123713E+01_JPRB, 0.125535E+01_JPRB, 0.127328E+01_JPRB &
+  &, 0.129089E+01_JPRB, 0.130818E+01_JPRB, 0.132514E+01_JPRB &
+  &, 0.134175E+01_JPRB, 0.135800E+01_JPRB, 0.137389E+01_JPRB, 0.138940E+01_JPRB &
+  &, 0.140451E+01_JPRB, 0.141922E+01_JPRB, 0.143352E+01_JPRB &
+  &, 0.144739E+01_JPRB, 0.146083E+01_JPRB, 0.147382E+01_JPRB, 0.148636E+01_JPRB &
+  &, 0.149844E+01_JPRB, 0.151005E+01_JPRB, 0.152117E+01_JPRB &
+  &, 0.153181E+01_JPRB, 0.154195E+01_JPRB, 0.155158E+01_JPRB, 0.156071E+01_JPRB &
+  &, 0.156932E+01_JPRB, 0.157741E+01_JPRB, 0.158497E+01_JPRB &
+  &, 0.159199E+01_JPRB, 0.159848E+01_JPRB, 0.160444E+01_JPRB, 0.160984E+01_JPRB &
+  &, 0.161470E+01_JPRB, 0.161901E+01_JPRB, 0.162278E+01_JPRB &
+  &, 0.162598E+01_JPRB, 0.162865E+01_JPRB, 0.163075E+01_JPRB, 0.163231E+01_JPRB &
+  &, 0.163332E+01_JPRB, 0.163376E+01_JPRB, 0.163367E+01_JPRB &
+  &, 0.163304E+01_JPRB, 0.163187E+01_JPRB, 0.163015E+01_JPRB, 0.162791E+01_JPRB &
+  &, 0.162513E+01_JPRB, 0.162182E+01_JPRB, 0.161801E+01_JPRB &
+  &, 0.161367E+01_JPRB, 0.160882E+01_JPRB, 0.160348E+01_JPRB, 0.159764E+01_JPRB &
+  &, 0.159132E+01_JPRB, 0.158451E+01_JPRB, 0.157723E+01_JPRB &
+  &, 0.156949E+01_JPRB, 0.156129E+01_JPRB, 0.155267E+01_JPRB, 0.154359E+01_JPRB &
+  &, 0.153409E+01_JPRB, 0.152416E+01_JPRB, 0.151382E+01_JPRB &
+  &, 0.150311E+01_JPRB, 0.149200E+01_JPRB, 0.148051E+01_JPRB, 0.146865E+01_JPRB &
+  &, 0.145646E+01_JPRB, 0.144389E+01_JPRB, 0.143102E+01_JPRB &
+  &, 0.141782E+01_JPRB, 0.140431E+01_JPRB, 0.139050E+01_JPRB, 0.137643E+01_JPRB &
+  &, 0.136206E+01_JPRB, 0.134743E+01_JPRB, 0.133258E+01_JPRB &
+  &, 0.131746E+01_JPRB, 0.130213E+01_JPRB, 0.128657E+01_JPRB, 0.127082E+01_JPRB &
+  &, 0.125489E+01_JPRB, 0.123880E+01_JPRB, 0.122252E+01_JPRB &
+  &, 0.120610E+01_JPRB, 0.118952E+01_JPRB, 0.117281E+01_JPRB, 0.115599E+01_JPRB &
+  &, 0.113908E+01_JPRB, 0.112207E+01_JPRB, 0.110497E+01_JPRB &
+  &, 0.108781E+01_JPRB, 0.107058E+01_JPRB, 0.105332E+01_JPRB, 0.103603E+01_JPRB &
+  &, 0.101868E+01_JPRB, 0.100133E+01_JPRB, 0.983986E+00_JPRB &
+  &, 0.966616E+00_JPRB, 0.949288E+00_JPRB, 0.931992E+00_JPRB, 0.914717E+00_JPRB &
+  &, 0.897493E+00_JPRB, 0.880309E+00_JPRB, 0.863192E+00_JPRB &
+  &, 0.846176E+00_JPRB, 0.829198E+00_JPRB, 0.812333E+00_JPRB, 0.795565E+00_JPRB &
+  &, 0.778923E+00_JPRB, 0.762341E+00_JPRB, 0.745941E+00_JPRB &
+  &, 0.729607E+00_JPRB, 0.713464E+00_JPRB, 0.697440E+00_JPRB, 0.681562E+00_JPRB &
+  &, 0.665750E+00_JPRB, 0.650243E+00_JPRB, 0.634854E+00_JPRB &
+  &, 0.619664E+00_JPRB, 0.604588E+00_JPRB, 0.589704E+00_JPRB, 0.575039E+00_JPRB &
+  &, 0.560561E+00_JPRB, 0.546233E+00_JPRB, 0.532139E+00_JPRB &
+  &, 0.518243E+00_JPRB, 0.504506E+00_JPRB, 0.491012E+00_JPRB, 0.477721E+00_JPRB &
+  &, 0.464655E+00_JPRB, 0.451837E+00_JPRB, 0.439157E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART114',1,ZHOOK_HANDLE)
+END SUBROUTINE PART114
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART115
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART115',0,ZHOOK_HANDLE)
+
+XCW( 799, :) = (/ &
+  &  0.108259E+01_JPRB, 0.110283E+01_JPRB, 0.112287E+01_JPRB, 0.114271E+01_JPRB &
+  &, 0.116233E+01_JPRB, 0.118172E+01_JPRB, 0.120086E+01_JPRB &
+  &, 0.121975E+01_JPRB, 0.123837E+01_JPRB, 0.125670E+01_JPRB, 0.127474E+01_JPRB &
+  &, 0.129247E+01_JPRB, 0.130989E+01_JPRB, 0.132697E+01_JPRB &
+  &, 0.134370E+01_JPRB, 0.136009E+01_JPRB, 0.137610E+01_JPRB, 0.139173E+01_JPRB &
+  &, 0.140698E+01_JPRB, 0.142182E+01_JPRB, 0.143625E+01_JPRB &
+  &, 0.145025E+01_JPRB, 0.146383E+01_JPRB, 0.147696E+01_JPRB, 0.148964E+01_JPRB &
+  &, 0.150185E+01_JPRB, 0.151360E+01_JPRB, 0.152486E+01_JPRB &
+  &, 0.153564E+01_JPRB, 0.154592E+01_JPRB, 0.155569E+01_JPRB, 0.156496E+01_JPRB &
+  &, 0.157371E+01_JPRB, 0.158194E+01_JPRB, 0.158965E+01_JPRB &
+  &, 0.159681E+01_JPRB, 0.160344E+01_JPRB, 0.160954E+01_JPRB, 0.161509E+01_JPRB &
+  &, 0.162008E+01_JPRB, 0.162454E+01_JPRB, 0.162844E+01_JPRB &
+  &, 0.163180E+01_JPRB, 0.163460E+01_JPRB, 0.163684E+01_JPRB, 0.163853E+01_JPRB &
+  &, 0.163967E+01_JPRB, 0.164027E+01_JPRB, 0.164032E+01_JPRB &
+  &, 0.163981E+01_JPRB, 0.163877E+01_JPRB, 0.163718E+01_JPRB, 0.163506E+01_JPRB &
+  &, 0.163242E+01_JPRB, 0.162924E+01_JPRB, 0.162555E+01_JPRB &
+  &, 0.162133E+01_JPRB, 0.161662E+01_JPRB, 0.161138E+01_JPRB, 0.160566E+01_JPRB &
+  &, 0.159945E+01_JPRB, 0.159276E+01_JPRB, 0.158560E+01_JPRB &
+  &, 0.157797E+01_JPRB, 0.156988E+01_JPRB, 0.156135E+01_JPRB, 0.155236E+01_JPRB &
+  &, 0.154297E+01_JPRB, 0.153313E+01_JPRB, 0.152291E+01_JPRB &
+  &, 0.151228E+01_JPRB, 0.150125E+01_JPRB, 0.148985E+01_JPRB, 0.147808E+01_JPRB &
+  &, 0.146594E+01_JPRB, 0.145348E+01_JPRB, 0.144063E+01_JPRB &
+  &, 0.142755E+01_JPRB, 0.141408E+01_JPRB, 0.140035E+01_JPRB, 0.138631E+01_JPRB &
+  &, 0.137200E+01_JPRB, 0.135743E+01_JPRB, 0.134261E+01_JPRB &
+  &, 0.132755E+01_JPRB, 0.131226E+01_JPRB, 0.129675E+01_JPRB, 0.128104E+01_JPRB &
+  &, 0.126512E+01_JPRB, 0.124903E+01_JPRB, 0.123279E+01_JPRB &
+  &, 0.121639E+01_JPRB, 0.119983E+01_JPRB, 0.118315E+01_JPRB, 0.116634E+01_JPRB &
+  &, 0.114941E+01_JPRB, 0.113241E+01_JPRB, 0.111531E+01_JPRB &
+  &, 0.109811E+01_JPRB, 0.108088E+01_JPRB, 0.106361E+01_JPRB, 0.104630E+01_JPRB &
+  &, 0.102893E+01_JPRB, 0.101155E+01_JPRB, 0.994145E+00_JPRB &
+  &, 0.976781E+00_JPRB, 0.959414E+00_JPRB, 0.942074E+00_JPRB, 0.924749E+00_JPRB &
+  &, 0.907471E+00_JPRB, 0.890226E+00_JPRB, 0.873089E+00_JPRB &
+  &, 0.856002E+00_JPRB, 0.838994E+00_JPRB, 0.822049E+00_JPRB, 0.805194E+00_JPRB &
+  &, 0.788460E+00_JPRB, 0.771827E+00_JPRB, 0.755324E+00_JPRB &
+  &, 0.738980E+00_JPRB, 0.722723E+00_JPRB, 0.706629E+00_JPRB, 0.690624E+00_JPRB &
+  &, 0.674838E+00_JPRB, 0.659193E+00_JPRB, 0.643661E+00_JPRB &
+  &, 0.628375E+00_JPRB, 0.613198E+00_JPRB, 0.598265E+00_JPRB, 0.583432E+00_JPRB &
+  &, 0.568837E+00_JPRB, 0.554446E+00_JPRB, 0.540224E+00_JPRB &
+  &, 0.526256E+00_JPRB, 0.512443E+00_JPRB, 0.498805E+00_JPRB, 0.485429E+00_JPRB &
+  &, 0.472209E+00_JPRB, 0.459231E+00_JPRB, 0.446517E+00_JPRB/)
+XCW( 800, :) = (/ &
+  &  0.108297E+01_JPRB, 0.110330E+01_JPRB, 0.112345E+01_JPRB, 0.114339E+01_JPRB &
+  &, 0.116312E+01_JPRB, 0.118261E+01_JPRB, 0.120187E+01_JPRB &
+  &, 0.122087E+01_JPRB, 0.123960E+01_JPRB, 0.125805E+01_JPRB, 0.127621E+01_JPRB &
+  &, 0.129406E+01_JPRB, 0.131160E+01_JPRB, 0.132880E+01_JPRB &
+  &, 0.134567E+01_JPRB, 0.136217E+01_JPRB, 0.137832E+01_JPRB, 0.139408E+01_JPRB &
+  &, 0.140946E+01_JPRB, 0.142443E+01_JPRB, 0.143899E+01_JPRB &
+  &, 0.145314E+01_JPRB, 0.146684E+01_JPRB, 0.148011E+01_JPRB, 0.149293E+01_JPRB &
+  &, 0.150528E+01_JPRB, 0.151716E+01_JPRB, 0.152857E+01_JPRB &
+  &, 0.153948E+01_JPRB, 0.154991E+01_JPRB, 0.155983E+01_JPRB, 0.156923E+01_JPRB &
+  &, 0.157813E+01_JPRB, 0.158650E+01_JPRB, 0.159435E+01_JPRB &
+  &, 0.160166E+01_JPRB, 0.160828E+01_JPRB, 0.161465E+01_JPRB, 0.162036E+01_JPRB &
+  &, 0.162550E+01_JPRB, 0.163009E+01_JPRB, 0.163414E+01_JPRB &
+  &, 0.163763E+01_JPRB, 0.164058E+01_JPRB, 0.164296E+01_JPRB, 0.164479E+01_JPRB &
+  &, 0.164607E+01_JPRB, 0.164681E+01_JPRB, 0.164699E+01_JPRB &
+  &, 0.164662E+01_JPRB, 0.164572E+01_JPRB, 0.164427E+01_JPRB, 0.164227E+01_JPRB &
+  &, 0.163975E+01_JPRB, 0.163668E+01_JPRB, 0.163313E+01_JPRB &
+  &, 0.162904E+01_JPRB, 0.162445E+01_JPRB, 0.161935E+01_JPRB, 0.161374E+01_JPRB &
+  &, 0.160765E+01_JPRB, 0.160107E+01_JPRB, 0.159402E+01_JPRB &
+  &, 0.158650E+01_JPRB, 0.157851E+01_JPRB, 0.157009E+01_JPRB, 0.156122E+01_JPRB &
+  &, 0.155192E+01_JPRB, 0.154219E+01_JPRB, 0.153203E+01_JPRB &
+  &, 0.152150E+01_JPRB, 0.151056E+01_JPRB, 0.149924E+01_JPRB, 0.148739E+01_JPRB &
+  &, 0.147551E+01_JPRB, 0.146310E+01_JPRB, 0.145038E+01_JPRB &
+  &, 0.143732E+01_JPRB, 0.142393E+01_JPRB, 0.141026E+01_JPRB, 0.139629E+01_JPRB &
+  &, 0.138202E+01_JPRB, 0.136752E+01_JPRB, 0.135274E+01_JPRB &
+  &, 0.133771E+01_JPRB, 0.132247E+01_JPRB, 0.130701E+01_JPRB, 0.129132E+01_JPRB &
+  &, 0.127543E+01_JPRB, 0.125939E+01_JPRB, 0.124314E+01_JPRB &
+  &, 0.122677E+01_JPRB, 0.121021E+01_JPRB, 0.119355E+01_JPRB, 0.117676E+01_JPRB &
+  &, 0.115984E+01_JPRB, 0.114281E+01_JPRB, 0.112572E+01_JPRB &
+  &, 0.110856E+01_JPRB, 0.109129E+01_JPRB, 0.107401E+01_JPRB, 0.105664E+01_JPRB &
+  &, 0.103926E+01_JPRB, 0.102186E+01_JPRB, 0.100446E+01_JPRB &
+  &, 0.987026E+00_JPRB, 0.969621E+00_JPRB, 0.952238E+00_JPRB, 0.934908E+00_JPRB &
+  &, 0.917577E+00_JPRB, 0.900275E+00_JPRB, 0.883074E+00_JPRB &
+  &, 0.865918E+00_JPRB, 0.848836E+00_JPRB, 0.831857E+00_JPRB, 0.814964E+00_JPRB &
+  &, 0.798140E+00_JPRB, 0.781459E+00_JPRB, 0.764855E+00_JPRB &
+  &, 0.748403E+00_JPRB, 0.732082E+00_JPRB, 0.715921E+00_JPRB, 0.699843E+00_JPRB &
+  &, 0.683926E+00_JPRB, 0.668197E+00_JPRB, 0.652631E+00_JPRB &
+  &, 0.637197E+00_JPRB, 0.621976E+00_JPRB, 0.606883E+00_JPRB, 0.591998E+00_JPRB &
+  &, 0.577287E+00_JPRB, 0.562776E+00_JPRB, 0.548489E+00_JPRB &
+  &, 0.534330E+00_JPRB, 0.520441E+00_JPRB, 0.506724E+00_JPRB, 0.493200E+00_JPRB &
+  &, 0.479892E+00_JPRB, 0.466820E+00_JPRB, 0.453943E+00_JPRB/)
+XCW( 801, :) = (/ &
+  &  0.108335E+01_JPRB, 0.110378E+01_JPRB, 0.112403E+01_JPRB, 0.114408E+01_JPRB &
+  &, 0.116391E+01_JPRB, 0.118352E+01_JPRB, 0.120288E+01_JPRB &
+  &, 0.122200E+01_JPRB, 0.124084E+01_JPRB, 0.125941E+01_JPRB, 0.127769E+01_JPRB &
+  &, 0.129566E+01_JPRB, 0.131332E+01_JPRB, 0.133065E+01_JPRB &
+  &, 0.134764E+01_JPRB, 0.136427E+01_JPRB, 0.138054E+01_JPRB, 0.139644E+01_JPRB &
+  &, 0.141194E+01_JPRB, 0.142705E+01_JPRB, 0.144175E+01_JPRB &
+  &, 0.145602E+01_JPRB, 0.146987E+01_JPRB, 0.148327E+01_JPRB, 0.149623E+01_JPRB &
+  &, 0.150872E+01_JPRB, 0.152075E+01_JPRB, 0.153229E+01_JPRB &
+  &, 0.154335E+01_JPRB, 0.155391E+01_JPRB, 0.156396E+01_JPRB, 0.157353E+01_JPRB &
+  &, 0.158256E+01_JPRB, 0.159108E+01_JPRB, 0.159907E+01_JPRB &
+  &, 0.160638E+01_JPRB, 0.161344E+01_JPRB, 0.161983E+01_JPRB, 0.162566E+01_JPRB &
+  &, 0.163095E+01_JPRB, 0.163569E+01_JPRB, 0.163987E+01_JPRB &
+  &, 0.164350E+01_JPRB, 0.164658E+01_JPRB, 0.164912E+01_JPRB, 0.165109E+01_JPRB &
+  &, 0.165251E+01_JPRB, 0.165338E+01_JPRB, 0.165369E+01_JPRB &
+  &, 0.165342E+01_JPRB, 0.165269E+01_JPRB, 0.165138E+01_JPRB, 0.164953E+01_JPRB &
+  &, 0.164714E+01_JPRB, 0.164421E+01_JPRB, 0.164077E+01_JPRB &
+  &, 0.163681E+01_JPRB, 0.163233E+01_JPRB, 0.162735E+01_JPRB, 0.162188E+01_JPRB &
+  &, 0.161590E+01_JPRB, 0.160944E+01_JPRB, 0.160249E+01_JPRB &
+  &, 0.159508E+01_JPRB, 0.158721E+01_JPRB, 0.157888E+01_JPRB, 0.157013E+01_JPRB &
+  &, 0.156092E+01_JPRB, 0.155129E+01_JPRB, 0.154124E+01_JPRB &
+  &, 0.153080E+01_JPRB, 0.151994E+01_JPRB, 0.150871E+01_JPRB, 0.149711E+01_JPRB &
+  &, 0.148515E+01_JPRB, 0.147282E+01_JPRB, 0.146016E+01_JPRB &
+  &, 0.144717E+01_JPRB, 0.143386E+01_JPRB, 0.142026E+01_JPRB, 0.140633E+01_JPRB &
+  &, 0.139215E+01_JPRB, 0.137768E+01_JPRB, 0.136296E+01_JPRB &
+  &, 0.134799E+01_JPRB, 0.133277E+01_JPRB, 0.131733E+01_JPRB, 0.130169E+01_JPRB &
+  &, 0.128584E+01_JPRB, 0.126983E+01_JPRB, 0.125363E+01_JPRB &
+  &, 0.123725E+01_JPRB, 0.122072E+01_JPRB, 0.120405E+01_JPRB, 0.118728E+01_JPRB &
+  &, 0.117037E+01_JPRB, 0.115336E+01_JPRB, 0.113624E+01_JPRB &
+  &, 0.111908E+01_JPRB, 0.110180E+01_JPRB, 0.108448E+01_JPRB, 0.106714E+01_JPRB &
+  &, 0.104974E+01_JPRB, 0.103232E+01_JPRB, 0.101486E+01_JPRB &
+  &, 0.997432E+00_JPRB, 0.979992E+00_JPRB, 0.962569E+00_JPRB, 0.945151E+00_JPRB &
+  &, 0.927769E+00_JPRB, 0.910454E+00_JPRB, 0.893192E+00_JPRB &
+  &, 0.875969E+00_JPRB, 0.858860E+00_JPRB, 0.841804E+00_JPRB, 0.824828E+00_JPRB &
+  &, 0.807963E+00_JPRB, 0.791188E+00_JPRB, 0.774533E+00_JPRB &
+  &, 0.757975E+00_JPRB, 0.741594E+00_JPRB, 0.725315E+00_JPRB, 0.709166E+00_JPRB &
+  &, 0.693172E+00_JPRB, 0.677362E+00_JPRB, 0.661655E+00_JPRB &
+  &, 0.646184E+00_JPRB, 0.630811E+00_JPRB, 0.615671E+00_JPRB, 0.600678E+00_JPRB &
+  &, 0.585855E+00_JPRB, 0.571225E+00_JPRB, 0.556814E+00_JPRB &
+  &, 0.542585E+00_JPRB, 0.528562E+00_JPRB, 0.514767E+00_JPRB, 0.501098E+00_JPRB &
+  &, 0.487702E+00_JPRB, 0.474474E+00_JPRB, 0.461499E+00_JPRB/)
+XCW( 802, :) = (/ &
+  &  0.108372E+01_JPRB, 0.110426E+01_JPRB, 0.112461E+01_JPRB, 0.114476E+01_JPRB &
+  &, 0.116470E+01_JPRB, 0.118442E+01_JPRB, 0.120390E+01_JPRB &
+  &, 0.122313E+01_JPRB, 0.124209E+01_JPRB, 0.126078E+01_JPRB, 0.127917E+01_JPRB &
+  &, 0.129727E+01_JPRB, 0.131505E+01_JPRB, 0.133250E+01_JPRB &
+  &, 0.134961E+01_JPRB, 0.136638E+01_JPRB, 0.138278E+01_JPRB, 0.139880E+01_JPRB &
+  &, 0.141444E+01_JPRB, 0.142968E+01_JPRB, 0.144452E+01_JPRB &
+  &, 0.145893E+01_JPRB, 0.147291E+01_JPRB, 0.148645E+01_JPRB, 0.149955E+01_JPRB &
+  &, 0.151218E+01_JPRB, 0.152434E+01_JPRB, 0.153603E+01_JPRB &
+  &, 0.154723E+01_JPRB, 0.155794E+01_JPRB, 0.156815E+01_JPRB, 0.157784E+01_JPRB &
+  &, 0.158702E+01_JPRB, 0.159569E+01_JPRB, 0.160382E+01_JPRB &
+  &, 0.161142E+01_JPRB, 0.161848E+01_JPRB, 0.162501E+01_JPRB, 0.163099E+01_JPRB &
+  &, 0.163642E+01_JPRB, 0.164131E+01_JPRB, 0.164564E+01_JPRB &
+  &, 0.164942E+01_JPRB, 0.165263E+01_JPRB, 0.165531E+01_JPRB, 0.165742E+01_JPRB &
+  &, 0.165898E+01_JPRB, 0.165999E+01_JPRB, 0.166044E+01_JPRB &
+  &, 0.166036E+01_JPRB, 0.165971E+01_JPRB, 0.165853E+01_JPRB, 0.165681E+01_JPRB &
+  &, 0.165455E+01_JPRB, 0.165177E+01_JPRB, 0.164846E+01_JPRB &
+  &, 0.164462E+01_JPRB, 0.164026E+01_JPRB, 0.163541E+01_JPRB, 0.163004E+01_JPRB &
+  &, 0.162420E+01_JPRB, 0.161784E+01_JPRB, 0.161102E+01_JPRB &
+  &, 0.160372E+01_JPRB, 0.159596E+01_JPRB, 0.158776E+01_JPRB, 0.157908E+01_JPRB &
+  &, 0.156999E+01_JPRB, 0.156045E+01_JPRB, 0.155050E+01_JPRB &
+  &, 0.154014E+01_JPRB, 0.152940E+01_JPRB, 0.151825E+01_JPRB, 0.150673E+01_JPRB &
+  &, 0.149484E+01_JPRB, 0.148262E+01_JPRB, 0.147003E+01_JPRB &
+  &, 0.145710E+01_JPRB, 0.144385E+01_JPRB, 0.143030E+01_JPRB, 0.141646E+01_JPRB &
+  &, 0.140233E+01_JPRB, 0.138792E+01_JPRB, 0.137324E+01_JPRB &
+  &, 0.135832E+01_JPRB, 0.134316E+01_JPRB, 0.132777E+01_JPRB, 0.131217E+01_JPRB &
+  &, 0.129634E+01_JPRB, 0.128034E+01_JPRB, 0.126417E+01_JPRB &
+  &, 0.124780E+01_JPRB, 0.123129E+01_JPRB, 0.121465E+01_JPRB, 0.119789E+01_JPRB &
+  &, 0.118097E+01_JPRB, 0.116397E+01_JPRB, 0.114686E+01_JPRB &
+  &, 0.112967E+01_JPRB, 0.111243E+01_JPRB, 0.109510E+01_JPRB, 0.107771E+01_JPRB &
+  &, 0.106030E+01_JPRB, 0.104286E+01_JPRB, 0.102537E+01_JPRB &
+  &, 0.100788E+01_JPRB, 0.990403E+00_JPRB, 0.972941E+00_JPRB, 0.955520E+00_JPRB &
+  &, 0.938090E+00_JPRB, 0.920720E+00_JPRB, 0.903398E+00_JPRB &
+  &, 0.886155E+00_JPRB, 0.868976E+00_JPRB, 0.851843E+00_JPRB, 0.834786E+00_JPRB &
+  &, 0.817881E+00_JPRB, 0.801014E+00_JPRB, 0.784309E+00_JPRB &
+  &, 0.767697E+00_JPRB, 0.751206E+00_JPRB, 0.734863E+00_JPRB, 0.718645E+00_JPRB &
+  &, 0.702577E+00_JPRB, 0.686635E+00_JPRB, 0.670842E+00_JPRB &
+  &, 0.655226E+00_JPRB, 0.639813E+00_JPRB, 0.624572E+00_JPRB, 0.609473E+00_JPRB &
+  &, 0.594539E+00_JPRB, 0.579852E+00_JPRB, 0.565319E+00_JPRB &
+  &, 0.550963E+00_JPRB, 0.536806E+00_JPRB, 0.522872E+00_JPRB, 0.509122E+00_JPRB &
+  &, 0.495640E+00_JPRB, 0.482322E+00_JPRB, 0.469188E+00_JPRB/)
+XCW( 803, :) = (/ &
+  &  0.108410E+01_JPRB, 0.110474E+01_JPRB, 0.112520E+01_JPRB, 0.114545E+01_JPRB &
+  &, 0.116550E+01_JPRB, 0.118533E+01_JPRB, 0.120492E+01_JPRB &
+  &, 0.122426E+01_JPRB, 0.124334E+01_JPRB, 0.126214E+01_JPRB, 0.128066E+01_JPRB &
+  &, 0.129888E+01_JPRB, 0.131677E+01_JPRB, 0.133436E+01_JPRB &
+  &, 0.135160E+01_JPRB, 0.136849E+01_JPRB, 0.138502E+01_JPRB, 0.140118E+01_JPRB &
+  &, 0.141695E+01_JPRB, 0.143232E+01_JPRB, 0.144729E+01_JPRB &
+  &, 0.146185E+01_JPRB, 0.147596E+01_JPRB, 0.148965E+01_JPRB, 0.150288E+01_JPRB &
+  &, 0.151565E+01_JPRB, 0.152796E+01_JPRB, 0.153979E+01_JPRB &
+  &, 0.155113E+01_JPRB, 0.156199E+01_JPRB, 0.157233E+01_JPRB, 0.158218E+01_JPRB &
+  &, 0.159150E+01_JPRB, 0.160031E+01_JPRB, 0.160859E+01_JPRB &
+  &, 0.161633E+01_JPRB, 0.162354E+01_JPRB, 0.163022E+01_JPRB, 0.163634E+01_JPRB &
+  &, 0.164192E+01_JPRB, 0.164694E+01_JPRB, 0.165143E+01_JPRB &
+  &, 0.165534E+01_JPRB, 0.165872E+01_JPRB, 0.166153E+01_JPRB, 0.166379E+01_JPRB &
+  &, 0.166549E+01_JPRB, 0.166664E+01_JPRB, 0.166723E+01_JPRB &
+  &, 0.166728E+01_JPRB, 0.166678E+01_JPRB, 0.166573E+01_JPRB, 0.166415E+01_JPRB &
+  &, 0.166202E+01_JPRB, 0.165936E+01_JPRB, 0.165618E+01_JPRB &
+  &, 0.165248E+01_JPRB, 0.164825E+01_JPRB, 0.164352E+01_JPRB, 0.163827E+01_JPRB &
+  &, 0.163255E+01_JPRB, 0.162631E+01_JPRB, 0.161961E+01_JPRB &
+  &, 0.161243E+01_JPRB, 0.160477E+01_JPRB, 0.159667E+01_JPRB, 0.158810E+01_JPRB &
+  &, 0.157911E+01_JPRB, 0.156969E+01_JPRB, 0.155983E+01_JPRB &
+  &, 0.154956E+01_JPRB, 0.153891E+01_JPRB, 0.152786E+01_JPRB, 0.151643E+01_JPRB &
+  &, 0.150461E+01_JPRB, 0.149245E+01_JPRB, 0.147995E+01_JPRB &
+  &, 0.146712E+01_JPRB, 0.145395E+01_JPRB, 0.144044E+01_JPRB, 0.142668E+01_JPRB &
+  &, 0.141259E+01_JPRB, 0.139824E+01_JPRB, 0.138362E+01_JPRB &
+  &, 0.136873E+01_JPRB, 0.135363E+01_JPRB, 0.133829E+01_JPRB, 0.132271E+01_JPRB &
+  &, 0.130693E+01_JPRB, 0.129097E+01_JPRB, 0.127481E+01_JPRB &
+  &, 0.125847E+01_JPRB, 0.124199E+01_JPRB, 0.122537E+01_JPRB, 0.120858E+01_JPRB &
+  &, 0.119171E+01_JPRB, 0.117469E+01_JPRB, 0.115759E+01_JPRB &
+  &, 0.114040E+01_JPRB, 0.112313E+01_JPRB, 0.110579E+01_JPRB, 0.108840E+01_JPRB &
+  &, 0.107098E+01_JPRB, 0.105348E+01_JPRB, 0.103601E+01_JPRB &
+  &, 0.101848E+01_JPRB, 0.100098E+01_JPRB, 0.983478E+00_JPRB, 0.965974E+00_JPRB &
+  &, 0.948538E+00_JPRB, 0.931116E+00_JPRB, 0.913736E+00_JPRB &
+  &, 0.896430E+00_JPRB, 0.879182E+00_JPRB, 0.862022E+00_JPRB, 0.844885E+00_JPRB &
+  &, 0.827895E+00_JPRB, 0.810985E+00_JPRB, 0.794183E+00_JPRB &
+  &, 0.777519E+00_JPRB, 0.760920E+00_JPRB, 0.744514E+00_JPRB, 0.728176E+00_JPRB &
+  &, 0.712035E+00_JPRB, 0.696014E+00_JPRB, 0.680138E+00_JPRB &
+  &, 0.664433E+00_JPRB, 0.648926E+00_JPRB, 0.633530E+00_JPRB, 0.618384E+00_JPRB &
+  &, 0.603339E+00_JPRB, 0.588537E+00_JPRB, 0.573883E+00_JPRB &
+  &, 0.559461E+00_JPRB, 0.545173E+00_JPRB, 0.531165E+00_JPRB, 0.517272E+00_JPRB &
+  &, 0.503642E+00_JPRB, 0.490235E+00_JPRB, 0.477007E+00_JPRB/)
+XCW( 804, :) = (/ &
+  &  0.108449E+01_JPRB, 0.110522E+01_JPRB, 0.112578E+01_JPRB, 0.114615E+01_JPRB &
+  &, 0.116630E+01_JPRB, 0.118624E+01_JPRB, 0.120594E+01_JPRB &
+  &, 0.122540E+01_JPRB, 0.124459E+01_JPRB, 0.126352E+01_JPRB, 0.128215E+01_JPRB &
+  &, 0.130049E+01_JPRB, 0.131852E+01_JPRB, 0.133623E+01_JPRB &
+  &, 0.135359E+01_JPRB, 0.137062E+01_JPRB, 0.138728E+01_JPRB, 0.140356E+01_JPRB &
+  &, 0.141947E+01_JPRB, 0.143498E+01_JPRB, 0.145009E+01_JPRB &
+  &, 0.146477E+01_JPRB, 0.147903E+01_JPRB, 0.149285E+01_JPRB, 0.150623E+01_JPRB &
+  &, 0.151914E+01_JPRB, 0.153159E+01_JPRB, 0.154356E+01_JPRB &
+  &, 0.155505E+01_JPRB, 0.156605E+01_JPRB, 0.157654E+01_JPRB, 0.158653E+01_JPRB &
+  &, 0.159601E+01_JPRB, 0.160496E+01_JPRB, 0.161339E+01_JPRB &
+  &, 0.162128E+01_JPRB, 0.162864E+01_JPRB, 0.163545E+01_JPRB, 0.164172E+01_JPRB &
+  &, 0.164745E+01_JPRB, 0.165262E+01_JPRB, 0.165725E+01_JPRB &
+  &, 0.166131E+01_JPRB, 0.166483E+01_JPRB, 0.166778E+01_JPRB, 0.167017E+01_JPRB &
+  &, 0.167203E+01_JPRB, 0.167333E+01_JPRB, 0.167406E+01_JPRB &
+  &, 0.167425E+01_JPRB, 0.167388E+01_JPRB, 0.167298E+01_JPRB, 0.167152E+01_JPRB &
+  &, 0.166954E+01_JPRB, 0.166701E+01_JPRB, 0.166396E+01_JPRB &
+  &, 0.166038E+01_JPRB, 0.165626E+01_JPRB, 0.165168E+01_JPRB, 0.164656E+01_JPRB &
+  &, 0.164095E+01_JPRB, 0.163484E+01_JPRB, 0.162826E+01_JPRB &
+  &, 0.162118E+01_JPRB, 0.161364E+01_JPRB, 0.160565E+01_JPRB, 0.159719E+01_JPRB &
+  &, 0.158829E+01_JPRB, 0.157899E+01_JPRB, 0.156923E+01_JPRB &
+  &, 0.155905E+01_JPRB, 0.154850E+01_JPRB, 0.153753E+01_JPRB, 0.152619E+01_JPRB &
+  &, 0.151446E+01_JPRB, 0.150239E+01_JPRB, 0.148996E+01_JPRB &
+  &, 0.147719E+01_JPRB, 0.146410E+01_JPRB, 0.145069E+01_JPRB, 0.143695E+01_JPRB &
+  &, 0.142295E+01_JPRB, 0.140864E+01_JPRB, 0.139409E+01_JPRB &
+  &, 0.137926E+01_JPRB, 0.136418E+01_JPRB, 0.134887E+01_JPRB, 0.133334E+01_JPRB &
+  &, 0.131760E+01_JPRB, 0.130166E+01_JPRB, 0.128554E+01_JPRB &
+  &, 0.126924E+01_JPRB, 0.125279E+01_JPRB, 0.123617E+01_JPRB, 0.121940E+01_JPRB &
+  &, 0.120251E+01_JPRB, 0.118551E+01_JPRB, 0.116842E+01_JPRB &
+  &, 0.115124E+01_JPRB, 0.113393E+01_JPRB, 0.111660E+01_JPRB, 0.109920E+01_JPRB &
+  &, 0.108173E+01_JPRB, 0.106425E+01_JPRB, 0.104672E+01_JPRB &
+  &, 0.102917E+01_JPRB, 0.101163E+01_JPRB, 0.994099E+00_JPRB, 0.976597E+00_JPRB &
+  &, 0.959073E+00_JPRB, 0.941643E+00_JPRB, 0.924208E+00_JPRB &
+  &, 0.906840E+00_JPRB, 0.889525E+00_JPRB, 0.872293E+00_JPRB, 0.855125E+00_JPRB &
+  &, 0.838051E+00_JPRB, 0.821101E+00_JPRB, 0.804205E+00_JPRB &
+  &, 0.787440E+00_JPRB, 0.770785E+00_JPRB, 0.754268E+00_JPRB, 0.737915E+00_JPRB &
+  &, 0.721651E+00_JPRB, 0.705554E+00_JPRB, 0.689597E+00_JPRB &
+  &, 0.673806E+00_JPRB, 0.658152E+00_JPRB, 0.642715E+00_JPRB, 0.627409E+00_JPRB &
+  &, 0.612314E+00_JPRB, 0.597340E+00_JPRB, 0.582627E+00_JPRB &
+  &, 0.568081E+00_JPRB, 0.553725E+00_JPRB, 0.539520E+00_JPRB, 0.525612E+00_JPRB &
+  &, 0.511837E+00_JPRB, 0.498278E+00_JPRB, 0.484958E+00_JPRB/)
+XCW( 805, :) = (/ &
+  &  0.108487E+01_JPRB, 0.110571E+01_JPRB, 0.112637E+01_JPRB, 0.114684E+01_JPRB &
+  &, 0.116711E+01_JPRB, 0.118715E+01_JPRB, 0.120697E+01_JPRB &
+  &, 0.122654E+01_JPRB, 0.124585E+01_JPRB, 0.126490E+01_JPRB, 0.128365E+01_JPRB &
+  &, 0.130211E+01_JPRB, 0.132027E+01_JPRB, 0.133810E+01_JPRB &
+  &, 0.135560E+01_JPRB, 0.137275E+01_JPRB, 0.138954E+01_JPRB, 0.140596E+01_JPRB &
+  &, 0.142200E+01_JPRB, 0.143764E+01_JPRB, 0.145289E+01_JPRB &
+  &, 0.146771E+01_JPRB, 0.148211E+01_JPRB, 0.149608E+01_JPRB, 0.150959E+01_JPRB &
+  &, 0.152265E+01_JPRB, 0.153524E+01_JPRB, 0.154736E+01_JPRB &
+  &, 0.155899E+01_JPRB, 0.157013E+01_JPRB, 0.158077E+01_JPRB, 0.159091E+01_JPRB &
+  &, 0.160053E+01_JPRB, 0.160963E+01_JPRB, 0.161820E+01_JPRB &
+  &, 0.162625E+01_JPRB, 0.163375E+01_JPRB, 0.164071E+01_JPRB, 0.164714E+01_JPRB &
+  &, 0.165301E+01_JPRB, 0.165833E+01_JPRB, 0.166310E+01_JPRB &
+  &, 0.166731E+01_JPRB, 0.167097E+01_JPRB, 0.167407E+01_JPRB, 0.167662E+01_JPRB &
+  &, 0.167861E+01_JPRB, 0.168004E+01_JPRB, 0.168093E+01_JPRB &
+  &, 0.168125E+01_JPRB, 0.168103E+01_JPRB, 0.168025E+01_JPRB, 0.167894E+01_JPRB &
+  &, 0.167709E+01_JPRB, 0.167471E+01_JPRB, 0.167178E+01_JPRB &
+  &, 0.166833E+01_JPRB, 0.166437E+01_JPRB, 0.165989E+01_JPRB, 0.165490E+01_JPRB &
+  &, 0.164941E+01_JPRB, 0.164336E+01_JPRB, 0.163696E+01_JPRB &
+  &, 0.162999E+01_JPRB, 0.162258E+01_JPRB, 0.161469E+01_JPRB, 0.160635E+01_JPRB &
+  &, 0.159756E+01_JPRB, 0.158835E+01_JPRB, 0.157868E+01_JPRB &
+  &, 0.156863E+01_JPRB, 0.155814E+01_JPRB, 0.154720E+01_JPRB, 0.153586E+01_JPRB &
+  &, 0.152440E+01_JPRB, 0.151239E+01_JPRB, 0.150004E+01_JPRB &
+  &, 0.148735E+01_JPRB, 0.147432E+01_JPRB, 0.146099E+01_JPRB, 0.144732E+01_JPRB &
+  &, 0.143336E+01_JPRB, 0.141913E+01_JPRB, 0.140464E+01_JPRB &
+  &, 0.138984E+01_JPRB, 0.137483E+01_JPRB, 0.135956E+01_JPRB, 0.134409E+01_JPRB &
+  &, 0.132837E+01_JPRB, 0.131247E+01_JPRB, 0.129636E+01_JPRB &
+  &, 0.128010E+01_JPRB, 0.126365E+01_JPRB, 0.124706E+01_JPRB, 0.123032E+01_JPRB &
+  &, 0.121345E+01_JPRB, 0.119647E+01_JPRB, 0.117936E+01_JPRB &
+  &, 0.116215E+01_JPRB, 0.114488E+01_JPRB, 0.112751E+01_JPRB, 0.111011E+01_JPRB &
+  &, 0.109263E+01_JPRB, 0.107510E+01_JPRB, 0.105755E+01_JPRB &
+  &, 0.104002E+01_JPRB, 0.102241E+01_JPRB, 0.100484E+01_JPRB, 0.987303E+00_JPRB &
+  &, 0.969693E+00_JPRB, 0.952257E+00_JPRB, 0.934767E+00_JPRB &
+  &, 0.917340E+00_JPRB, 0.900005E+00_JPRB, 0.882702E+00_JPRB, 0.865459E+00_JPRB &
+  &, 0.848351E+00_JPRB, 0.831265E+00_JPRB, 0.814325E+00_JPRB &
+  &, 0.797511E+00_JPRB, 0.780803E+00_JPRB, 0.764175E+00_JPRB, 0.747707E+00_JPRB &
+  &, 0.731373E+00_JPRB, 0.715202E+00_JPRB, 0.699165E+00_JPRB &
+  &, 0.683234E+00_JPRB, 0.667545E+00_JPRB, 0.651956E+00_JPRB, 0.636549E+00_JPRB &
+  &, 0.621348E+00_JPRB, 0.606321E+00_JPRB, 0.591491E+00_JPRB &
+  &, 0.576823E+00_JPRB, 0.562339E+00_JPRB, 0.548061E+00_JPRB, 0.534015E+00_JPRB &
+  &, 0.520095E+00_JPRB, 0.506451E+00_JPRB, 0.492975E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART115',1,ZHOOK_HANDLE)
+END SUBROUTINE PART115
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART116
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART116',0,ZHOOK_HANDLE)
+
+XCW( 806, :) = (/ &
+  &  0.108525E+01_JPRB, 0.110619E+01_JPRB, 0.112696E+01_JPRB, 0.114754E+01_JPRB &
+  &, 0.116791E+01_JPRB, 0.118807E+01_JPRB, 0.120800E+01_JPRB &
+  &, 0.122769E+01_JPRB, 0.124712E+01_JPRB, 0.126628E+01_JPRB, 0.128516E+01_JPRB &
+  &, 0.130374E+01_JPRB, 0.132202E+01_JPRB, 0.133998E+01_JPRB &
+  &, 0.135761E+01_JPRB, 0.137489E+01_JPRB, 0.139181E+01_JPRB, 0.140837E+01_JPRB &
+  &, 0.142454E+01_JPRB, 0.144033E+01_JPRB, 0.145570E+01_JPRB &
+  &, 0.147067E+01_JPRB, 0.148521E+01_JPRB, 0.149931E+01_JPRB, 0.151297E+01_JPRB &
+  &, 0.152617E+01_JPRB, 0.153891E+01_JPRB, 0.155117E+01_JPRB &
+  &, 0.156295E+01_JPRB, 0.157424E+01_JPRB, 0.158502E+01_JPRB, 0.159531E+01_JPRB &
+  &, 0.160508E+01_JPRB, 0.161432E+01_JPRB, 0.162305E+01_JPRB &
+  &, 0.163123E+01_JPRB, 0.163889E+01_JPRB, 0.164600E+01_JPRB, 0.165257E+01_JPRB &
+  &, 0.165860E+01_JPRB, 0.166407E+01_JPRB, 0.166898E+01_JPRB &
+  &, 0.167335E+01_JPRB, 0.167715E+01_JPRB, 0.168040E+01_JPRB, 0.168309E+01_JPRB &
+  &, 0.168522E+01_JPRB, 0.168681E+01_JPRB, 0.168783E+01_JPRB &
+  &, 0.168829E+01_JPRB, 0.168822E+01_JPRB, 0.168759E+01_JPRB, 0.168641E+01_JPRB &
+  &, 0.168469E+01_JPRB, 0.168244E+01_JPRB, 0.167965E+01_JPRB &
+  &, 0.167634E+01_JPRB, 0.167250E+01_JPRB, 0.166815E+01_JPRB, 0.166329E+01_JPRB &
+  &, 0.165793E+01_JPRB, 0.165206E+01_JPRB, 0.164571E+01_JPRB &
+  &, 0.163887E+01_JPRB, 0.163156E+01_JPRB, 0.162379E+01_JPRB, 0.161555E+01_JPRB &
+  &, 0.160688E+01_JPRB, 0.159777E+01_JPRB, 0.158822E+01_JPRB &
+  &, 0.157824E+01_JPRB, 0.156787E+01_JPRB, 0.155710E+01_JPRB, 0.154593E+01_JPRB &
+  &, 0.153438E+01_JPRB, 0.152248E+01_JPRB, 0.151020E+01_JPRB &
+  &, 0.149759E+01_JPRB, 0.148464E+01_JPRB, 0.147136E+01_JPRB, 0.145777E+01_JPRB &
+  &, 0.144388E+01_JPRB, 0.142972E+01_JPRB, 0.141526E+01_JPRB &
+  &, 0.140053E+01_JPRB, 0.138555E+01_JPRB, 0.137035E+01_JPRB, 0.135490E+01_JPRB &
+  &, 0.133923E+01_JPRB, 0.132338E+01_JPRB, 0.130731E+01_JPRB &
+  &, 0.129105E+01_JPRB, 0.127465E+01_JPRB, 0.125805E+01_JPRB, 0.124134E+01_JPRB &
+  &, 0.122446E+01_JPRB, 0.120749E+01_JPRB, 0.119040E+01_JPRB &
+  &, 0.117321E+01_JPRB, 0.115591E+01_JPRB, 0.113854E+01_JPRB, 0.112110E+01_JPRB &
+  &, 0.110361E+01_JPRB, 0.108610E+01_JPRB, 0.106854E+01_JPRB &
+  &, 0.105095E+01_JPRB, 0.103331E+01_JPRB, 0.101571E+01_JPRB, 0.998137E+00_JPRB &
+  &, 0.980527E+00_JPRB, 0.963001E+00_JPRB, 0.945459E+00_JPRB &
+  &, 0.927974E+00_JPRB, 0.910576E+00_JPRB, 0.893204E+00_JPRB, 0.875933E+00_JPRB &
+  &, 0.858746E+00_JPRB, 0.841623E+00_JPRB, 0.824592E+00_JPRB &
+  &, 0.807682E+00_JPRB, 0.790871E+00_JPRB, 0.774237E+00_JPRB, 0.757655E+00_JPRB &
+  &, 0.741254E+00_JPRB, 0.724956E+00_JPRB, 0.708841E+00_JPRB &
+  &, 0.692827E+00_JPRB, 0.676994E+00_JPRB, 0.661368E+00_JPRB, 0.645862E+00_JPRB &
+  &, 0.630557E+00_JPRB, 0.615420E+00_JPRB, 0.600475E+00_JPRB &
+  &, 0.585686E+00_JPRB, 0.571075E+00_JPRB, 0.556728E+00_JPRB, 0.542544E+00_JPRB &
+  &, 0.528546E+00_JPRB, 0.514753E+00_JPRB, 0.501189E+00_JPRB/)
+XCW( 807, :) = (/ &
+  &  0.108564E+01_JPRB, 0.110668E+01_JPRB, 0.112755E+01_JPRB, 0.114824E+01_JPRB &
+  &, 0.116872E+01_JPRB, 0.118899E+01_JPRB, 0.120903E+01_JPRB &
+  &, 0.122884E+01_JPRB, 0.124839E+01_JPRB, 0.126767E+01_JPRB, 0.128667E+01_JPRB &
+  &, 0.130538E+01_JPRB, 0.132378E+01_JPRB, 0.134187E+01_JPRB &
+  &, 0.135962E+01_JPRB, 0.137704E+01_JPRB, 0.139409E+01_JPRB, 0.141078E+01_JPRB &
+  &, 0.142709E+01_JPRB, 0.144301E+01_JPRB, 0.145853E+01_JPRB &
+  &, 0.147364E+01_JPRB, 0.148832E+01_JPRB, 0.150256E+01_JPRB, 0.151636E+01_JPRB &
+  &, 0.152971E+01_JPRB, 0.154259E+01_JPRB, 0.155500E+01_JPRB &
+  &, 0.156692E+01_JPRB, 0.157836E+01_JPRB, 0.158930E+01_JPRB, 0.159973E+01_JPRB &
+  &, 0.160964E+01_JPRB, 0.161905E+01_JPRB, 0.162792E+01_JPRB &
+  &, 0.163626E+01_JPRB, 0.164406E+01_JPRB, 0.165132E+01_JPRB, 0.165805E+01_JPRB &
+  &, 0.166421E+01_JPRB, 0.166983E+01_JPRB, 0.167490E+01_JPRB &
+  &, 0.167941E+01_JPRB, 0.168336E+01_JPRB, 0.168677E+01_JPRB, 0.168960E+01_JPRB &
+  &, 0.169188E+01_JPRB, 0.169361E+01_JPRB, 0.169478E+01_JPRB &
+  &, 0.169539E+01_JPRB, 0.169545E+01_JPRB, 0.169496E+01_JPRB, 0.169392E+01_JPRB &
+  &, 0.169234E+01_JPRB, 0.169022E+01_JPRB, 0.168757E+01_JPRB &
+  &, 0.168440E+01_JPRB, 0.168068E+01_JPRB, 0.167644E+01_JPRB, 0.167173E+01_JPRB &
+  &, 0.166648E+01_JPRB, 0.166076E+01_JPRB, 0.165453E+01_JPRB &
+  &, 0.164780E+01_JPRB, 0.164061E+01_JPRB, 0.163295E+01_JPRB, 0.162483E+01_JPRB &
+  &, 0.161626E+01_JPRB, 0.160725E+01_JPRB, 0.159781E+01_JPRB &
+  &, 0.158795E+01_JPRB, 0.157767E+01_JPRB, 0.156699E+01_JPRB, 0.155592E+01_JPRB &
+  &, 0.154446E+01_JPRB, 0.153262E+01_JPRB, 0.152045E+01_JPRB &
+  &, 0.150790E+01_JPRB, 0.149503E+01_JPRB, 0.148183E+01_JPRB, 0.146832E+01_JPRB &
+  &, 0.145448E+01_JPRB, 0.144039E+01_JPRB, 0.142598E+01_JPRB &
+  &, 0.141131E+01_JPRB, 0.139639E+01_JPRB, 0.138122E+01_JPRB, 0.136582E+01_JPRB &
+  &, 0.135021E+01_JPRB, 0.133437E+01_JPRB, 0.131832E+01_JPRB &
+  &, 0.130210E+01_JPRB, 0.128570E+01_JPRB, 0.126914E+01_JPRB, 0.125245E+01_JPRB &
+  &, 0.123561E+01_JPRB, 0.121863E+01_JPRB, 0.120155E+01_JPRB &
+  &, 0.118433E+01_JPRB, 0.116704E+01_JPRB, 0.114968E+01_JPRB, 0.113223E+01_JPRB &
+  &, 0.111474E+01_JPRB, 0.109719E+01_JPRB, 0.107961E+01_JPRB &
+  &, 0.106200E+01_JPRB, 0.104434E+01_JPRB, 0.102671E+01_JPRB, 0.100905E+01_JPRB &
+  &, 0.991447E+00_JPRB, 0.973832E+00_JPRB, 0.956284E+00_JPRB &
+  &, 0.938743E+00_JPRB, 0.921284E+00_JPRB, 0.903892E+00_JPRB, 0.886549E+00_JPRB &
+  &, 0.869284E+00_JPRB, 0.852078E+00_JPRB, 0.835007E+00_JPRB &
+  &, 0.818002E+00_JPRB, 0.801141E+00_JPRB, 0.784350E+00_JPRB, 0.767759E+00_JPRB &
+  &, 0.751240E+00_JPRB, 0.734871E+00_JPRB, 0.718627E+00_JPRB &
+  &, 0.702531E+00_JPRB, 0.686667E+00_JPRB, 0.670893E+00_JPRB, 0.655289E+00_JPRB &
+  &, 0.639882E+00_JPRB, 0.624636E+00_JPRB, 0.609578E+00_JPRB &
+  &, 0.594670E+00_JPRB, 0.579996E+00_JPRB, 0.565519E+00_JPRB, 0.551200E+00_JPRB &
+  &, 0.537124E+00_JPRB, 0.523185E+00_JPRB, 0.509534E+00_JPRB/)
+XCW( 808, :) = (/ &
+  &  0.108602E+01_JPRB, 0.110717E+01_JPRB, 0.112815E+01_JPRB, 0.114894E+01_JPRB &
+  &, 0.116953E+01_JPRB, 0.118992E+01_JPRB, 0.121007E+01_JPRB &
+  &, 0.122999E+01_JPRB, 0.124966E+01_JPRB, 0.126906E+01_JPRB, 0.128819E+01_JPRB &
+  &, 0.130702E+01_JPRB, 0.132555E+01_JPRB, 0.134377E+01_JPRB &
+  &, 0.136165E+01_JPRB, 0.137919E+01_JPRB, 0.139639E+01_JPRB, 0.141321E+01_JPRB &
+  &, 0.142966E+01_JPRB, 0.144572E+01_JPRB, 0.146137E+01_JPRB &
+  &, 0.147662E+01_JPRB, 0.149144E+01_JPRB, 0.150583E+01_JPRB, 0.151977E+01_JPRB &
+  &, 0.153326E+01_JPRB, 0.154629E+01_JPRB, 0.155885E+01_JPRB &
+  &, 0.157092E+01_JPRB, 0.158250E+01_JPRB, 0.159359E+01_JPRB, 0.160417E+01_JPRB &
+  &, 0.161424E+01_JPRB, 0.162379E+01_JPRB, 0.163281E+01_JPRB &
+  &, 0.164130E+01_JPRB, 0.164925E+01_JPRB, 0.165667E+01_JPRB, 0.166354E+01_JPRB &
+  &, 0.166986E+01_JPRB, 0.167563E+01_JPRB, 0.168085E+01_JPRB &
+  &, 0.168551E+01_JPRB, 0.168962E+01_JPRB, 0.169316E+01_JPRB, 0.169615E+01_JPRB &
+  &, 0.169858E+01_JPRB, 0.170044E+01_JPRB, 0.170176E+01_JPRB &
+  &, 0.170251E+01_JPRB, 0.170271E+01_JPRB, 0.170238E+01_JPRB, 0.170148E+01_JPRB &
+  &, 0.170004E+01_JPRB, 0.169806E+01_JPRB, 0.169555E+01_JPRB &
+  &, 0.169251E+01_JPRB, 0.168893E+01_JPRB, 0.168483E+01_JPRB, 0.168023E+01_JPRB &
+  &, 0.167512E+01_JPRB, 0.166951E+01_JPRB, 0.166339E+01_JPRB &
+  &, 0.165680E+01_JPRB, 0.164972E+01_JPRB, 0.164218E+01_JPRB, 0.163417E+01_JPRB &
+  &, 0.162572E+01_JPRB, 0.161681E+01_JPRB, 0.160747E+01_JPRB &
+  &, 0.159771E+01_JPRB, 0.158753E+01_JPRB, 0.157695E+01_JPRB, 0.156597E+01_JPRB &
+  &, 0.155461E+01_JPRB, 0.154286E+01_JPRB, 0.153075E+01_JPRB &
+  &, 0.151831E+01_JPRB, 0.150550E+01_JPRB, 0.149238E+01_JPRB, 0.147892E+01_JPRB &
+  &, 0.146519E+01_JPRB, 0.145114E+01_JPRB, 0.143680E+01_JPRB &
+  &, 0.142217E+01_JPRB, 0.140731E+01_JPRB, 0.139220E+01_JPRB, 0.137684E+01_JPRB &
+  &, 0.136124E+01_JPRB, 0.134546E+01_JPRB, 0.132945E+01_JPRB &
+  &, 0.131325E+01_JPRB, 0.129689E+01_JPRB, 0.128036E+01_JPRB, 0.126367E+01_JPRB &
+  &, 0.124682E+01_JPRB, 0.122986E+01_JPRB, 0.121266E+01_JPRB &
+  &, 0.119560E+01_JPRB, 0.117829E+01_JPRB, 0.116093E+01_JPRB, 0.114348E+01_JPRB &
+  &, 0.112595E+01_JPRB, 0.110839E+01_JPRB, 0.109080E+01_JPRB &
+  &, 0.107316E+01_JPRB, 0.105548E+01_JPRB, 0.103783E+01_JPRB, 0.102014E+01_JPRB &
+  &, 0.100250E+01_JPRB, 0.984838E+00_JPRB, 0.967241E+00_JPRB &
+  &, 0.949647E+00_JPRB, 0.932128E+00_JPRB, 0.914671E+00_JPRB, 0.897258E+00_JPRB &
+  &, 0.879917E+00_JPRB, 0.862678E+00_JPRB, 0.845520E+00_JPRB &
+  &, 0.828472E+00_JPRB, 0.811512E+00_JPRB, 0.794668E+00_JPRB, 0.777967E+00_JPRB &
+  &, 0.761331E+00_JPRB, 0.744894E+00_JPRB, 0.728575E+00_JPRB &
+  &, 0.712400E+00_JPRB, 0.696396E+00_JPRB, 0.680531E+00_JPRB, 0.664832E+00_JPRB &
+  &, 0.649323E+00_JPRB, 0.633972E+00_JPRB, 0.618801E+00_JPRB &
+  &, 0.603836E+00_JPRB, 0.589040E+00_JPRB, 0.574435E+00_JPRB, 0.559982E+00_JPRB &
+  &, 0.545767E+00_JPRB, 0.531747E+00_JPRB, 0.517945E+00_JPRB/)
+XCW( 809, :) = (/ &
+  &  0.108641E+01_JPRB, 0.110766E+01_JPRB, 0.112874E+01_JPRB, 0.114964E+01_JPRB &
+  &, 0.117035E+01_JPRB, 0.119084E+01_JPRB, 0.121112E+01_JPRB &
+  &, 0.123115E+01_JPRB, 0.125094E+01_JPRB, 0.127046E+01_JPRB, 0.128971E+01_JPRB &
+  &, 0.130867E+01_JPRB, 0.132733E+01_JPRB, 0.134567E+01_JPRB &
+  &, 0.136369E+01_JPRB, 0.138136E+01_JPRB, 0.139869E+01_JPRB, 0.141565E+01_JPRB &
+  &, 0.143223E+01_JPRB, 0.144843E+01_JPRB, 0.146422E+01_JPRB &
+  &, 0.147961E+01_JPRB, 0.149458E+01_JPRB, 0.150911E+01_JPRB, 0.152320E+01_JPRB &
+  &, 0.153683E+01_JPRB, 0.155000E+01_JPRB, 0.156271E+01_JPRB &
+  &, 0.157494E+01_JPRB, 0.158667E+01_JPRB, 0.159790E+01_JPRB, 0.160864E+01_JPRB &
+  &, 0.161885E+01_JPRB, 0.162855E+01_JPRB, 0.163773E+01_JPRB &
+  &, 0.164637E+01_JPRB, 0.165448E+01_JPRB, 0.166205E+01_JPRB, 0.166906E+01_JPRB &
+  &, 0.167554E+01_JPRB, 0.168147E+01_JPRB, 0.168683E+01_JPRB &
+  &, 0.169164E+01_JPRB, 0.169590E+01_JPRB, 0.169959E+01_JPRB, 0.170273E+01_JPRB &
+  &, 0.170531E+01_JPRB, 0.170732E+01_JPRB, 0.170879E+01_JPRB &
+  &, 0.170969E+01_JPRB, 0.171003E+01_JPRB, 0.170983E+01_JPRB, 0.170908E+01_JPRB &
+  &, 0.170779E+01_JPRB, 0.170594E+01_JPRB, 0.170356E+01_JPRB &
+  &, 0.170066E+01_JPRB, 0.169722E+01_JPRB, 0.169325E+01_JPRB, 0.168878E+01_JPRB &
+  &, 0.168380E+01_JPRB, 0.167831E+01_JPRB, 0.167233E+01_JPRB &
+  &, 0.166585E+01_JPRB, 0.165890E+01_JPRB, 0.165147E+01_JPRB, 0.164358E+01_JPRB &
+  &, 0.163524E+01_JPRB, 0.162644E+01_JPRB, 0.161722E+01_JPRB &
+  &, 0.160756E+01_JPRB, 0.159748E+01_JPRB, 0.158699E+01_JPRB, 0.157611E+01_JPRB &
+  &, 0.156482E+01_JPRB, 0.155319E+01_JPRB, 0.154115E+01_JPRB &
+  &, 0.152877E+01_JPRB, 0.151607E+01_JPRB, 0.150301E+01_JPRB, 0.148962E+01_JPRB &
+  &, 0.147594E+01_JPRB, 0.146197E+01_JPRB, 0.144767E+01_JPRB &
+  &, 0.143314E+01_JPRB, 0.141832E+01_JPRB, 0.140325E+01_JPRB, 0.138794E+01_JPRB &
+  &, 0.137240E+01_JPRB, 0.135664E+01_JPRB, 0.134068E+01_JPRB &
+  &, 0.132452E+01_JPRB, 0.130817E+01_JPRB, 0.129165E+01_JPRB, 0.127499E+01_JPRB &
+  &, 0.125817E+01_JPRB, 0.124124E+01_JPRB, 0.122413E+01_JPRB &
+  &, 0.120694E+01_JPRB, 0.118967E+01_JPRB, 0.117229E+01_JPRB, 0.115481E+01_JPRB &
+  &, 0.113731E+01_JPRB, 0.111970E+01_JPRB, 0.110210E+01_JPRB &
+  &, 0.108441E+01_JPRB, 0.106675E+01_JPRB, 0.104903E+01_JPRB, 0.103131E+01_JPRB &
+  &, 0.101363E+01_JPRB, 0.995930E+00_JPRB, 0.978286E+00_JPRB &
+  &, 0.960685E+00_JPRB, 0.943064E+00_JPRB, 0.925544E+00_JPRB, 0.908109E+00_JPRB &
+  &, 0.890694E+00_JPRB, 0.873375E+00_JPRB, 0.856180E+00_JPRB &
+  &, 0.839042E+00_JPRB, 0.821985E+00_JPRB, 0.805089E+00_JPRB, 0.788279E+00_JPRB &
+  &, 0.771582E+00_JPRB, 0.755077E+00_JPRB, 0.738632E+00_JPRB &
+  &, 0.722379E+00_JPRB, 0.706292E+00_JPRB, 0.690340E+00_JPRB, 0.674547E+00_JPRB &
+  &, 0.658940E+00_JPRB, 0.643484E+00_JPRB, 0.628204E+00_JPRB &
+  &, 0.613063E+00_JPRB, 0.598207E+00_JPRB, 0.583476E+00_JPRB, 0.568954E+00_JPRB &
+  &, 0.554601E+00_JPRB, 0.540503E+00_JPRB, 0.526553E+00_JPRB/)
+XCW( 810, :) = (/ &
+  &  0.108680E+01_JPRB, 0.110815E+01_JPRB, 0.112934E+01_JPRB, 0.115035E+01_JPRB &
+  &, 0.117117E+01_JPRB, 0.119178E+01_JPRB, 0.121216E+01_JPRB &
+  &, 0.123232E+01_JPRB, 0.125222E+01_JPRB, 0.127187E+01_JPRB, 0.129124E+01_JPRB &
+  &, 0.131032E+01_JPRB, 0.132911E+01_JPRB, 0.134758E+01_JPRB &
+  &, 0.136573E+01_JPRB, 0.138354E+01_JPRB, 0.140100E+01_JPRB, 0.141809E+01_JPRB &
+  &, 0.143482E+01_JPRB, 0.145115E+01_JPRB, 0.146709E+01_JPRB &
+  &, 0.148262E+01_JPRB, 0.149773E+01_JPRB, 0.151241E+01_JPRB, 0.152664E+01_JPRB &
+  &, 0.154042E+01_JPRB, 0.155374E+01_JPRB, 0.156660E+01_JPRB &
+  &, 0.157897E+01_JPRB, 0.159085E+01_JPRB, 0.160224E+01_JPRB, 0.161312E+01_JPRB &
+  &, 0.162349E+01_JPRB, 0.163334E+01_JPRB, 0.164267E+01_JPRB &
+  &, 0.165146E+01_JPRB, 0.165973E+01_JPRB, 0.166745E+01_JPRB, 0.167462E+01_JPRB &
+  &, 0.168125E+01_JPRB, 0.168733E+01_JPRB, 0.169285E+01_JPRB &
+  &, 0.169781E+01_JPRB, 0.170222E+01_JPRB, 0.170606E+01_JPRB, 0.170935E+01_JPRB &
+  &, 0.171208E+01_JPRB, 0.171424E+01_JPRB, 0.171585E+01_JPRB &
+  &, 0.171690E+01_JPRB, 0.171740E+01_JPRB, 0.171733E+01_JPRB, 0.171673E+01_JPRB &
+  &, 0.171558E+01_JPRB, 0.171388E+01_JPRB, 0.171163E+01_JPRB &
+  &, 0.170885E+01_JPRB, 0.170556E+01_JPRB, 0.170174E+01_JPRB, 0.169739E+01_JPRB &
+  &, 0.169254E+01_JPRB, 0.168718E+01_JPRB, 0.168131E+01_JPRB &
+  &, 0.167496E+01_JPRB, 0.166814E+01_JPRB, 0.166084E+01_JPRB, 0.165306E+01_JPRB &
+  &, 0.164482E+01_JPRB, 0.163614E+01_JPRB, 0.162700E+01_JPRB &
+  &, 0.161747E+01_JPRB, 0.160747E+01_JPRB, 0.159710E+01_JPRB, 0.158630E+01_JPRB &
+  &, 0.157512E+01_JPRB, 0.156356E+01_JPRB, 0.155164E+01_JPRB &
+  &, 0.153935E+01_JPRB, 0.152671E+01_JPRB, 0.151374E+01_JPRB, 0.150043E+01_JPRB &
+  &, 0.148681E+01_JPRB, 0.147288E+01_JPRB, 0.145869E+01_JPRB &
+  &, 0.144417E+01_JPRB, 0.142942E+01_JPRB, 0.141440E+01_JPRB, 0.139913E+01_JPRB &
+  &, 0.138365E+01_JPRB, 0.136791E+01_JPRB, 0.135200E+01_JPRB &
+  &, 0.133586E+01_JPRB, 0.131955E+01_JPRB, 0.130307E+01_JPRB, 0.128641E+01_JPRB &
+  &, 0.126962E+01_JPRB, 0.125268E+01_JPRB, 0.123563E+01_JPRB &
+  &, 0.121842E+01_JPRB, 0.120114E+01_JPRB, 0.118376E+01_JPRB, 0.116629E+01_JPRB &
+  &, 0.114875E+01_JPRB, 0.113118E+01_JPRB, 0.111352E+01_JPRB &
+  &, 0.109582E+01_JPRB, 0.107810E+01_JPRB, 0.106040E+01_JPRB, 0.104265E+01_JPRB &
+  &, 0.102489E+01_JPRB, 0.100720E+01_JPRB, 0.989464E+00_JPRB &
+  &, 0.971813E+00_JPRB, 0.954182E+00_JPRB, 0.936601E+00_JPRB, 0.919053E+00_JPRB &
+  &, 0.901613E+00_JPRB, 0.884217E+00_JPRB, 0.866939E+00_JPRB &
+  &, 0.849711E+00_JPRB, 0.832609E+00_JPRB, 0.815612E+00_JPRB, 0.798748E+00_JPRB &
+  &, 0.781991E+00_JPRB, 0.765368E+00_JPRB, 0.748852E+00_JPRB &
+  &, 0.732524E+00_JPRB, 0.716300E+00_JPRB, 0.700262E+00_JPRB, 0.684377E+00_JPRB &
+  &, 0.668614E+00_JPRB, 0.653115E+00_JPRB, 0.637727E+00_JPRB &
+  &, 0.622472E+00_JPRB, 0.607497E+00_JPRB, 0.592641E+00_JPRB, 0.577989E+00_JPRB &
+  &, 0.563564E+00_JPRB, 0.549324E+00_JPRB, 0.535293E+00_JPRB/)
+XCW( 811, :) = (/ &
+  &  0.108719E+01_JPRB, 0.110865E+01_JPRB, 0.112994E+01_JPRB, 0.115106E+01_JPRB &
+  &, 0.117199E+01_JPRB, 0.119271E+01_JPRB, 0.121321E+01_JPRB &
+  &, 0.123348E+01_JPRB, 0.125351E+01_JPRB, 0.127328E+01_JPRB, 0.129278E+01_JPRB &
+  &, 0.131199E+01_JPRB, 0.133090E+01_JPRB, 0.134950E+01_JPRB &
+  &, 0.136778E+01_JPRB, 0.138573E+01_JPRB, 0.140332E+01_JPRB, 0.142055E+01_JPRB &
+  &, 0.143741E+01_JPRB, 0.145389E+01_JPRB, 0.146997E+01_JPRB &
+  &, 0.148564E+01_JPRB, 0.150089E+01_JPRB, 0.151572E+01_JPRB, 0.153010E+01_JPRB &
+  &, 0.154403E+01_JPRB, 0.155750E+01_JPRB, 0.157050E+01_JPRB &
+  &, 0.158302E+01_JPRB, 0.159506E+01_JPRB, 0.160659E+01_JPRB, 0.161763E+01_JPRB &
+  &, 0.162815E+01_JPRB, 0.163816E+01_JPRB, 0.164764E+01_JPRB &
+  &, 0.165659E+01_JPRB, 0.166500E+01_JPRB, 0.167288E+01_JPRB, 0.168021E+01_JPRB &
+  &, 0.168699E+01_JPRB, 0.169322E+01_JPRB, 0.169881E+01_JPRB &
+  &, 0.170401E+01_JPRB, 0.170856E+01_JPRB, 0.171257E+01_JPRB, 0.171600E+01_JPRB &
+  &, 0.171889E+01_JPRB, 0.172120E+01_JPRB, 0.172296E+01_JPRB &
+  &, 0.172415E+01_JPRB, 0.172480E+01_JPRB, 0.172489E+01_JPRB, 0.172442E+01_JPRB &
+  &, 0.172341E+01_JPRB, 0.172185E+01_JPRB, 0.171975E+01_JPRB &
+  &, 0.171712E+01_JPRB, 0.171395E+01_JPRB, 0.171027E+01_JPRB, 0.170606E+01_JPRB &
+  &, 0.170133E+01_JPRB, 0.169610E+01_JPRB, 0.169037E+01_JPRB &
+  &, 0.168414E+01_JPRB, 0.167743E+01_JPRB, 0.167024E+01_JPRB, 0.166259E+01_JPRB &
+  &, 0.165448E+01_JPRB, 0.164591E+01_JPRB, 0.163690E+01_JPRB &
+  &, 0.162744E+01_JPRB, 0.161757E+01_JPRB, 0.160728E+01_JPRB, 0.159660E+01_JPRB &
+  &, 0.158550E+01_JPRB, 0.157403E+01_JPRB, 0.156220E+01_JPRB &
+  &, 0.154998E+01_JPRB, 0.153743E+01_JPRB, 0.152454E+01_JPRB, 0.151129E+01_JPRB &
+  &, 0.149775E+01_JPRB, 0.148390E+01_JPRB, 0.146975E+01_JPRB &
+  &, 0.145534E+01_JPRB, 0.144063E+01_JPRB, 0.142565E+01_JPRB, 0.141044E+01_JPRB &
+  &, 0.139499E+01_JPRB, 0.137930E+01_JPRB, 0.136342E+01_JPRB &
+  &, 0.134732E+01_JPRB, 0.133106E+01_JPRB, 0.131458E+01_JPRB, 0.129797E+01_JPRB &
+  &, 0.128117E+01_JPRB, 0.126426E+01_JPRB, 0.124720E+01_JPRB &
+  &, 0.123002E+01_JPRB, 0.121274E+01_JPRB, 0.119534E+01_JPRB, 0.117787E+01_JPRB &
+  &, 0.116034E+01_JPRB, 0.114273E+01_JPRB, 0.112507E+01_JPRB &
+  &, 0.110735E+01_JPRB, 0.108962E+01_JPRB, 0.107185E+01_JPRB, 0.105407E+01_JPRB &
+  &, 0.103633E+01_JPRB, 0.101855E+01_JPRB, 0.100077E+01_JPRB &
+  &, 0.983075E+00_JPRB, 0.965391E+00_JPRB, 0.947751E+00_JPRB, 0.930185E+00_JPRB &
+  &, 0.912676E+00_JPRB, 0.895204E+00_JPRB, 0.877845E+00_JPRB &
+  &, 0.860579E+00_JPRB, 0.843386E+00_JPRB, 0.826341E+00_JPRB, 0.809373E+00_JPRB &
+  &, 0.792505E+00_JPRB, 0.775819E+00_JPRB, 0.759235E+00_JPRB &
+  &, 0.742779E+00_JPRB, 0.726476E+00_JPRB, 0.710353E+00_JPRB, 0.694322E+00_JPRB &
+  &, 0.678522E+00_JPRB, 0.662863E+00_JPRB, 0.647369E+00_JPRB &
+  &, 0.632064E+00_JPRB, 0.616910E+00_JPRB, 0.601994E+00_JPRB, 0.587213E+00_JPRB &
+  &, 0.572654E+00_JPRB, 0.558275E+00_JPRB, 0.544098E+00_JPRB/)
+XCW( 812, :) = (/ &
+  &  0.108758E+01_JPRB, 0.110915E+01_JPRB, 0.113055E+01_JPRB, 0.115177E+01_JPRB &
+  &, 0.117281E+01_JPRB, 0.119365E+01_JPRB, 0.121427E+01_JPRB &
+  &, 0.123466E+01_JPRB, 0.125480E+01_JPRB, 0.127470E+01_JPRB, 0.129432E+01_JPRB &
+  &, 0.131365E+01_JPRB, 0.133270E+01_JPRB, 0.135143E+01_JPRB &
+  &, 0.136984E+01_JPRB, 0.138792E+01_JPRB, 0.140565E+01_JPRB, 0.142302E+01_JPRB &
+  &, 0.144002E+01_JPRB, 0.145664E+01_JPRB, 0.147286E+01_JPRB &
+  &, 0.148867E+01_JPRB, 0.150407E+01_JPRB, 0.151904E+01_JPRB, 0.153357E+01_JPRB &
+  &, 0.154765E+01_JPRB, 0.156127E+01_JPRB, 0.157442E+01_JPRB &
+  &, 0.158710E+01_JPRB, 0.159928E+01_JPRB, 0.161097E+01_JPRB, 0.162216E+01_JPRB &
+  &, 0.163284E+01_JPRB, 0.164300E+01_JPRB, 0.165263E+01_JPRB &
+  &, 0.166174E+01_JPRB, 0.167031E+01_JPRB, 0.167834E+01_JPRB, 0.168583E+01_JPRB &
+  &, 0.169276E+01_JPRB, 0.169914E+01_JPRB, 0.170497E+01_JPRB &
+  &, 0.171025E+01_JPRB, 0.171496E+01_JPRB, 0.171911E+01_JPRB, 0.172270E+01_JPRB &
+  &, 0.172573E+01_JPRB, 0.172820E+01_JPRB, 0.173010E+01_JPRB &
+  &, 0.173146E+01_JPRB, 0.173224E+01_JPRB, 0.173248E+01_JPRB, 0.173217E+01_JPRB &
+  &, 0.173130E+01_JPRB, 0.172989E+01_JPRB, 0.172793E+01_JPRB &
+  &, 0.172544E+01_JPRB, 0.172241E+01_JPRB, 0.171885E+01_JPRB, 0.171479E+01_JPRB &
+  &, 0.171018E+01_JPRB, 0.170509E+01_JPRB, 0.169949E+01_JPRB &
+  &, 0.169338E+01_JPRB, 0.168680E+01_JPRB, 0.167974E+01_JPRB, 0.167220E+01_JPRB &
+  &, 0.166420E+01_JPRB, 0.165573E+01_JPRB, 0.164683E+01_JPRB &
+  &, 0.163750E+01_JPRB, 0.162773E+01_JPRB, 0.161755E+01_JPRB, 0.160694E+01_JPRB &
+  &, 0.159596E+01_JPRB, 0.158459E+01_JPRB, 0.157283E+01_JPRB &
+  &, 0.156071E+01_JPRB, 0.154824E+01_JPRB, 0.153542E+01_JPRB, 0.152226E+01_JPRB &
+  &, 0.150879E+01_JPRB, 0.149502E+01_JPRB, 0.148093E+01_JPRB &
+  &, 0.146656E+01_JPRB, 0.145192E+01_JPRB, 0.143701E+01_JPRB, 0.142183E+01_JPRB &
+  &, 0.140644E+01_JPRB, 0.139079E+01_JPRB, 0.137495E+01_JPRB &
+  &, 0.135888E+01_JPRB, 0.134263E+01_JPRB, 0.132620E+01_JPRB, 0.130962E+01_JPRB &
+  &, 0.129286E+01_JPRB, 0.127594E+01_JPRB, 0.125887E+01_JPRB &
+  &, 0.124171E+01_JPRB, 0.122442E+01_JPRB, 0.120703E+01_JPRB, 0.118958E+01_JPRB &
+  &, 0.117201E+01_JPRB, 0.115439E+01_JPRB, 0.113673E+01_JPRB &
+  &, 0.111901E+01_JPRB, 0.110121E+01_JPRB, 0.108346E+01_JPRB, 0.106562E+01_JPRB &
+  &, 0.104784E+01_JPRB, 0.103003E+01_JPRB, 0.101222E+01_JPRB &
+  &, 0.994472E+00_JPRB, 0.976736E+00_JPRB, 0.959040E+00_JPRB, 0.941411E+00_JPRB &
+  &, 0.923834E+00_JPRB, 0.906336E+00_JPRB, 0.888898E+00_JPRB &
+  &, 0.871548E+00_JPRB, 0.854314E+00_JPRB, 0.837173E+00_JPRB, 0.820102E+00_JPRB &
+  &, 0.803178E+00_JPRB, 0.786378E+00_JPRB, 0.769727E+00_JPRB &
+  &, 0.753199E+00_JPRB, 0.736764E+00_JPRB, 0.720559E+00_JPRB, 0.704440E+00_JPRB &
+  &, 0.688547E+00_JPRB, 0.672730E+00_JPRB, 0.657131E+00_JPRB &
+  &, 0.641716E+00_JPRB, 0.626508E+00_JPRB, 0.611471E+00_JPRB, 0.596564E+00_JPRB &
+  &, 0.581873E+00_JPRB, 0.567421E+00_JPRB, 0.553101E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART116',1,ZHOOK_HANDLE)
+END SUBROUTINE PART116
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART117
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART117',0,ZHOOK_HANDLE)
+
+XCW( 813, :) = (/ &
+  &  0.108797E+01_JPRB, 0.110964E+01_JPRB, 0.113115E+01_JPRB, 0.115249E+01_JPRB &
+  &, 0.117364E+01_JPRB, 0.119459E+01_JPRB, 0.121533E+01_JPRB &
+  &, 0.123584E+01_JPRB, 0.125610E+01_JPRB, 0.127612E+01_JPRB, 0.129586E+01_JPRB &
+  &, 0.131533E+01_JPRB, 0.133450E+01_JPRB, 0.135337E+01_JPRB &
+  &, 0.137191E+01_JPRB, 0.139013E+01_JPRB, 0.140799E+01_JPRB, 0.142550E+01_JPRB &
+  &, 0.144264E+01_JPRB, 0.145940E+01_JPRB, 0.147577E+01_JPRB &
+  &, 0.149172E+01_JPRB, 0.150727E+01_JPRB, 0.152238E+01_JPRB, 0.153706E+01_JPRB &
+  &, 0.155129E+01_JPRB, 0.156506E+01_JPRB, 0.157836E+01_JPRB &
+  &, 0.159119E+01_JPRB, 0.160353E+01_JPRB, 0.161537E+01_JPRB, 0.162672E+01_JPRB &
+  &, 0.163755E+01_JPRB, 0.164786E+01_JPRB, 0.165765E+01_JPRB &
+  &, 0.166691E+01_JPRB, 0.167564E+01_JPRB, 0.168382E+01_JPRB, 0.169147E+01_JPRB &
+  &, 0.169856E+01_JPRB, 0.170510E+01_JPRB, 0.171108E+01_JPRB &
+  &, 0.171652E+01_JPRB, 0.172138E+01_JPRB, 0.172570E+01_JPRB, 0.172944E+01_JPRB &
+  &, 0.173262E+01_JPRB, 0.173524E+01_JPRB, 0.173730E+01_JPRB &
+  &, 0.173880E+01_JPRB, 0.173974E+01_JPRB, 0.174013E+01_JPRB, 0.173996E+01_JPRB &
+  &, 0.173923E+01_JPRB, 0.173796E+01_JPRB, 0.173615E+01_JPRB &
+  &, 0.173381E+01_JPRB, 0.173041E+01_JPRB, 0.172750E+01_JPRB, 0.172357E+01_JPRB &
+  &, 0.171911E+01_JPRB, 0.171414E+01_JPRB, 0.170867E+01_JPRB &
+  &, 0.170269E+01_JPRB, 0.169622E+01_JPRB, 0.168929E+01_JPRB, 0.168186E+01_JPRB &
+  &, 0.167397E+01_JPRB, 0.166564E+01_JPRB, 0.165684E+01_JPRB &
+  &, 0.164762E+01_JPRB, 0.163796E+01_JPRB, 0.162788E+01_JPRB, 0.161740E+01_JPRB &
+  &, 0.160650E+01_JPRB, 0.159523E+01_JPRB, 0.158356E+01_JPRB &
+  &, 0.157153E+01_JPRB, 0.155913E+01_JPRB, 0.154640E+01_JPRB, 0.153332E+01_JPRB &
+  &, 0.151992E+01_JPRB, 0.150620E+01_JPRB, 0.149219E+01_JPRB &
+  &, 0.147789E+01_JPRB, 0.146330E+01_JPRB, 0.144846E+01_JPRB, 0.143335E+01_JPRB &
+  &, 0.141799E+01_JPRB, 0.140239E+01_JPRB, 0.138659E+01_JPRB &
+  &, 0.137056E+01_JPRB, 0.135436E+01_JPRB, 0.133794E+01_JPRB, 0.132137E+01_JPRB &
+  &, 0.130461E+01_JPRB, 0.128773E+01_JPRB, 0.127069E+01_JPRB &
+  &, 0.125352E+01_JPRB, 0.123625E+01_JPRB, 0.121887E+01_JPRB, 0.120139E+01_JPRB &
+  &, 0.118383E+01_JPRB, 0.116621E+01_JPRB, 0.114851E+01_JPRB &
+  &, 0.113078E+01_JPRB, 0.111297E+01_JPRB, 0.109516E+01_JPRB, 0.107734E+01_JPRB &
+  &, 0.105949E+01_JPRB, 0.104165E+01_JPRB, 0.102384E+01_JPRB &
+  &, 0.100600E+01_JPRB, 0.988219E+00_JPRB, 0.970467E+00_JPRB, 0.952779E+00_JPRB &
+  &, 0.935135E+00_JPRB, 0.917566E+00_JPRB, 0.900099E+00_JPRB &
+  &, 0.882666E+00_JPRB, 0.865343E+00_JPRB, 0.848107E+00_JPRB, 0.830987E+00_JPRB &
+  &, 0.814010E+00_JPRB, 0.797097E+00_JPRB, 0.780328E+00_JPRB &
+  &, 0.763730E+00_JPRB, 0.747220E+00_JPRB, 0.730877E+00_JPRB, 0.714730E+00_JPRB &
+  &, 0.698688E+00_JPRB, 0.682774E+00_JPRB, 0.667073E+00_JPRB &
+  &, 0.651550E+00_JPRB, 0.636229E+00_JPRB, 0.621073E+00_JPRB, 0.606104E+00_JPRB &
+  &, 0.591284E+00_JPRB, 0.576696E+00_JPRB, 0.562300E+00_JPRB/)
+XCW( 814, :) = (/ &
+  &  0.108837E+01_JPRB, 0.111014E+01_JPRB, 0.113176E+01_JPRB, 0.115321E+01_JPRB &
+  &, 0.117447E+01_JPRB, 0.119553E+01_JPRB, 0.121639E+01_JPRB &
+  &, 0.123702E+01_JPRB, 0.125741E+01_JPRB, 0.127755E+01_JPRB, 0.129742E+01_JPRB &
+  &, 0.131701E+01_JPRB, 0.133631E+01_JPRB, 0.135531E+01_JPRB &
+  &, 0.137399E+01_JPRB, 0.139234E+01_JPRB, 0.141034E+01_JPRB, 0.142799E+01_JPRB &
+  &, 0.144528E+01_JPRB, 0.146217E+01_JPRB, 0.147869E+01_JPRB &
+  &, 0.149479E+01_JPRB, 0.151048E+01_JPRB, 0.152574E+01_JPRB, 0.154057E+01_JPRB &
+  &, 0.155495E+01_JPRB, 0.156887E+01_JPRB, 0.158233E+01_JPRB &
+  &, 0.159530E+01_JPRB, 0.160780E+01_JPRB, 0.161980E+01_JPRB, 0.163130E+01_JPRB &
+  &, 0.164228E+01_JPRB, 0.165275E+01_JPRB, 0.166270E+01_JPRB &
+  &, 0.167212E+01_JPRB, 0.168100E+01_JPRB, 0.168935E+01_JPRB, 0.169715E+01_JPRB &
+  &, 0.170440E+01_JPRB, 0.171110E+01_JPRB, 0.171724E+01_JPRB &
+  &, 0.172282E+01_JPRB, 0.172785E+01_JPRB, 0.173231E+01_JPRB, 0.173621E+01_JPRB &
+  &, 0.173955E+01_JPRB, 0.174232E+01_JPRB, 0.174453E+01_JPRB &
+  &, 0.174619E+01_JPRB, 0.174727E+01_JPRB, 0.174782E+01_JPRB, 0.174779E+01_JPRB &
+  &, 0.174722E+01_JPRB, 0.174610E+01_JPRB, 0.174443E+01_JPRB &
+  &, 0.174222E+01_JPRB, 0.173947E+01_JPRB, 0.173620E+01_JPRB, 0.173240E+01_JPRB &
+  &, 0.172807E+01_JPRB, 0.172323E+01_JPRB, 0.171790E+01_JPRB &
+  &, 0.171205E+01_JPRB, 0.170572E+01_JPRB, 0.169890E+01_JPRB, 0.169161E+01_JPRB &
+  &, 0.168385E+01_JPRB, 0.167561E+01_JPRB, 0.166694E+01_JPRB &
+  &, 0.165783E+01_JPRB, 0.164828E+01_JPRB, 0.163830E+01_JPRB, 0.162790E+01_JPRB &
+  &, 0.161712E+01_JPRB, 0.160593E+01_JPRB, 0.159436E+01_JPRB &
+  &, 0.158243E+01_JPRB, 0.157012E+01_JPRB, 0.155745E+01_JPRB, 0.154447E+01_JPRB &
+  &, 0.153115E+01_JPRB, 0.151752E+01_JPRB, 0.150355E+01_JPRB &
+  &, 0.148931E+01_JPRB, 0.147479E+01_JPRB, 0.145999E+01_JPRB, 0.144495E+01_JPRB &
+  &, 0.142963E+01_JPRB, 0.141409E+01_JPRB, 0.139831E+01_JPRB &
+  &, 0.138234E+01_JPRB, 0.136616E+01_JPRB, 0.134979E+01_JPRB, 0.133323E+01_JPRB &
+  &, 0.131651E+01_JPRB, 0.129963E+01_JPRB, 0.128261E+01_JPRB &
+  &, 0.126547E+01_JPRB, 0.124818E+01_JPRB, 0.123083E+01_JPRB, 0.121335E+01_JPRB &
+  &, 0.119576E+01_JPRB, 0.117811E+01_JPRB, 0.116041E+01_JPRB &
+  &, 0.114267E+01_JPRB, 0.112485E+01_JPRB, 0.110703E+01_JPRB, 0.108914E+01_JPRB &
+  &, 0.107127E+01_JPRB, 0.105339E+01_JPRB, 0.103555E+01_JPRB &
+  &, 0.101767E+01_JPRB, 0.999838E+00_JPRB, 0.982033E+00_JPRB, 0.964287E+00_JPRB &
+  &, 0.946627E+00_JPRB, 0.928989E+00_JPRB, 0.911398E+00_JPRB &
+  &, 0.893933E+00_JPRB, 0.876524E+00_JPRB, 0.859247E+00_JPRB, 0.842028E+00_JPRB &
+  &, 0.824947E+00_JPRB, 0.807977E+00_JPRB, 0.791146E+00_JPRB &
+  &, 0.774426E+00_JPRB, 0.757843E+00_JPRB, 0.741366E+00_JPRB, 0.725077E+00_JPRB &
+  &, 0.708945E+00_JPRB, 0.692996E+00_JPRB, 0.677195E+00_JPRB &
+  &, 0.661566E+00_JPRB, 0.646073E+00_JPRB, 0.630799E+00_JPRB, 0.615708E+00_JPRB &
+  &, 0.600822E+00_JPRB, 0.586101E+00_JPRB, 0.571565E+00_JPRB/)
+XCW( 815, :) = (/ &
+  &  0.108877E+01_JPRB, 0.111064E+01_JPRB, 0.113237E+01_JPRB, 0.115393E+01_JPRB &
+  &, 0.117530E+01_JPRB, 0.119648E+01_JPRB, 0.121746E+01_JPRB &
+  &, 0.123820E+01_JPRB, 0.125872E+01_JPRB, 0.127898E+01_JPRB, 0.129898E+01_JPRB &
+  &, 0.131870E+01_JPRB, 0.133814E+01_JPRB, 0.135726E+01_JPRB &
+  &, 0.137608E+01_JPRB, 0.139456E+01_JPRB, 0.141271E+01_JPRB, 0.143050E+01_JPRB &
+  &, 0.144792E+01_JPRB, 0.146496E+01_JPRB, 0.148162E+01_JPRB &
+  &, 0.149787E+01_JPRB, 0.151370E+01_JPRB, 0.152912E+01_JPRB, 0.154409E+01_JPRB &
+  &, 0.155862E+01_JPRB, 0.157270E+01_JPRB, 0.158631E+01_JPRB &
+  &, 0.159944E+01_JPRB, 0.161208E+01_JPRB, 0.162424E+01_JPRB, 0.163590E+01_JPRB &
+  &, 0.164704E+01_JPRB, 0.165767E+01_JPRB, 0.166778E+01_JPRB &
+  &, 0.167735E+01_JPRB, 0.168639E+01_JPRB, 0.169489E+01_JPRB, 0.170286E+01_JPRB &
+  &, 0.171026E+01_JPRB, 0.171712E+01_JPRB, 0.172342E+01_JPRB &
+  &, 0.172917E+01_JPRB, 0.173434E+01_JPRB, 0.173897E+01_JPRB, 0.174302E+01_JPRB &
+  &, 0.174652E+01_JPRB, 0.174945E+01_JPRB, 0.175182E+01_JPRB &
+  &, 0.175363E+01_JPRB, 0.175487E+01_JPRB, 0.175555E+01_JPRB, 0.175568E+01_JPRB &
+  &, 0.175526E+01_JPRB, 0.175428E+01_JPRB, 0.175276E+01_JPRB &
+  &, 0.175070E+01_JPRB, 0.174810E+01_JPRB, 0.174496E+01_JPRB, 0.174129E+01_JPRB &
+  &, 0.173710E+01_JPRB, 0.173240E+01_JPRB, 0.172720E+01_JPRB &
+  &, 0.172149E+01_JPRB, 0.171529E+01_JPRB, 0.170859E+01_JPRB, 0.170141E+01_JPRB &
+  &, 0.169376E+01_JPRB, 0.168566E+01_JPRB, 0.167710E+01_JPRB &
+  &, 0.166810E+01_JPRB, 0.165865E+01_JPRB, 0.164878E+01_JPRB, 0.163851E+01_JPRB &
+  &, 0.162782E+01_JPRB, 0.161672E+01_JPRB, 0.160526E+01_JPRB &
+  &, 0.159340E+01_JPRB, 0.158119E+01_JPRB, 0.156861E+01_JPRB, 0.155572E+01_JPRB &
+  &, 0.154246E+01_JPRB, 0.152889E+01_JPRB, 0.151500E+01_JPRB &
+  &, 0.150084E+01_JPRB, 0.148637E+01_JPRB, 0.147164E+01_JPRB, 0.145664E+01_JPRB &
+  &, 0.144139E+01_JPRB, 0.142588E+01_JPRB, 0.141016E+01_JPRB &
+  &, 0.139422E+01_JPRB, 0.137809E+01_JPRB, 0.136173E+01_JPRB, 0.134521E+01_JPRB &
+  &, 0.132850E+01_JPRB, 0.131166E+01_JPRB, 0.129454E+01_JPRB &
+  &, 0.127752E+01_JPRB, 0.126026E+01_JPRB, 0.124289E+01_JPRB, 0.122539E+01_JPRB &
+  &, 0.120785E+01_JPRB, 0.119017E+01_JPRB, 0.117246E+01_JPRB &
+  &, 0.115468E+01_JPRB, 0.113686E+01_JPRB, 0.111898E+01_JPRB, 0.110111E+01_JPRB &
+  &, 0.108322E+01_JPRB, 0.106527E+01_JPRB, 0.104739E+01_JPRB &
+  &, 0.102947E+01_JPRB, 0.101159E+01_JPRB, 0.993739E+00_JPRB, 0.975936E+00_JPRB &
+  &, 0.958214E+00_JPRB, 0.940508E+00_JPRB, 0.922894E+00_JPRB &
+  &, 0.905351E+00_JPRB, 0.887856E+00_JPRB, 0.870489E+00_JPRB, 0.853226E+00_JPRB &
+  &, 0.836042E+00_JPRB, 0.818964E+00_JPRB, 0.802073E+00_JPRB &
+  &, 0.785233E+00_JPRB, 0.768578E+00_JPRB, 0.752025E+00_JPRB, 0.735654E+00_JPRB &
+  &, 0.719436E+00_JPRB, 0.703335E+00_JPRB, 0.687436E+00_JPRB &
+  &, 0.671704E+00_JPRB, 0.656101E+00_JPRB, 0.640713E+00_JPRB, 0.625501E+00_JPRB &
+  &, 0.610489E+00_JPRB, 0.595636E+00_JPRB, 0.581028E+00_JPRB/)
+XCW( 816, :) = (/ &
+  &  0.108916E+01_JPRB, 0.111115E+01_JPRB, 0.113298E+01_JPRB, 0.115465E+01_JPRB &
+  &, 0.117614E+01_JPRB, 0.119744E+01_JPRB, 0.121853E+01_JPRB &
+  &, 0.123940E+01_JPRB, 0.126003E+01_JPRB, 0.128042E+01_JPRB, 0.130055E+01_JPRB &
+  &, 0.132040E+01_JPRB, 0.133996E+01_JPRB, 0.135923E+01_JPRB &
+  &, 0.137818E+01_JPRB, 0.139680E+01_JPRB, 0.141508E+01_JPRB, 0.143301E+01_JPRB &
+  &, 0.145058E+01_JPRB, 0.146776E+01_JPRB, 0.148456E+01_JPRB &
+  &, 0.150096E+01_JPRB, 0.151694E+01_JPRB, 0.153251E+01_JPRB, 0.154763E+01_JPRB &
+  &, 0.156232E+01_JPRB, 0.157654E+01_JPRB, 0.159031E+01_JPRB &
+  &, 0.160359E+01_JPRB, 0.161640E+01_JPRB, 0.162871E+01_JPRB, 0.164052E+01_JPRB &
+  &, 0.165183E+01_JPRB, 0.166261E+01_JPRB, 0.167288E+01_JPRB &
+  &, 0.168261E+01_JPRB, 0.169182E+01_JPRB, 0.170048E+01_JPRB, 0.170859E+01_JPRB &
+  &, 0.171616E+01_JPRB, 0.172318E+01_JPRB, 0.172965E+01_JPRB &
+  &, 0.173554E+01_JPRB, 0.174088E+01_JPRB, 0.174566E+01_JPRB, 0.174988E+01_JPRB &
+  &, 0.175353E+01_JPRB, 0.175662E+01_JPRB, 0.175914E+01_JPRB &
+  &, 0.176110E+01_JPRB, 0.176250E+01_JPRB, 0.176334E+01_JPRB, 0.176361E+01_JPRB &
+  &, 0.176334E+01_JPRB, 0.176252E+01_JPRB, 0.176113E+01_JPRB &
+  &, 0.175922E+01_JPRB, 0.175677E+01_JPRB, 0.175377E+01_JPRB, 0.175025E+01_JPRB &
+  &, 0.174620E+01_JPRB, 0.174164E+01_JPRB, 0.173657E+01_JPRB &
+  &, 0.173098E+01_JPRB, 0.172491E+01_JPRB, 0.171835E+01_JPRB, 0.171129E+01_JPRB &
+  &, 0.170378E+01_JPRB, 0.169579E+01_JPRB, 0.168734E+01_JPRB &
+  &, 0.167846E+01_JPRB, 0.166912E+01_JPRB, 0.165936E+01_JPRB, 0.164919E+01_JPRB &
+  &, 0.163860E+01_JPRB, 0.162761E+01_JPRB, 0.161623E+01_JPRB &
+  &, 0.160446E+01_JPRB, 0.159235E+01_JPRB, 0.157987E+01_JPRB, 0.156704E+01_JPRB &
+  &, 0.155387E+01_JPRB, 0.154039E+01_JPRB, 0.152656E+01_JPRB &
+  &, 0.151245E+01_JPRB, 0.149806E+01_JPRB, 0.148338E+01_JPRB, 0.146845E+01_JPRB &
+  &, 0.145323E+01_JPRB, 0.143780E+01_JPRB, 0.142210E+01_JPRB &
+  &, 0.140622E+01_JPRB, 0.139011E+01_JPRB, 0.137380E+01_JPRB, 0.135730E+01_JPRB &
+  &, 0.134063E+01_JPRB, 0.132379E+01_JPRB, 0.130681E+01_JPRB &
+  &, 0.128969E+01_JPRB, 0.127245E+01_JPRB, 0.125506E+01_JPRB, 0.123759E+01_JPRB &
+  &, 0.122001E+01_JPRB, 0.120234E+01_JPRB, 0.118464E+01_JPRB &
+  &, 0.116686E+01_JPRB, 0.114898E+01_JPRB, 0.113109E+01_JPRB, 0.111317E+01_JPRB &
+  &, 0.109525E+01_JPRB, 0.107732E+01_JPRB, 0.105936E+01_JPRB &
+  &, 0.104141E+01_JPRB, 0.102349E+01_JPRB, 0.100558E+01_JPRB, 0.987725E+00_JPRB &
+  &, 0.969944E+00_JPRB, 0.952173E+00_JPRB, 0.934487E+00_JPRB &
+  &, 0.916867E+00_JPRB, 0.899341E+00_JPRB, 0.881885E+00_JPRB, 0.864528E+00_JPRB &
+  &, 0.847297E+00_JPRB, 0.830166E+00_JPRB, 0.813109E+00_JPRB &
+  &, 0.796204E+00_JPRB, 0.779481E+00_JPRB, 0.762854E+00_JPRB, 0.746347E+00_JPRB &
+  &, 0.729926E+00_JPRB, 0.713852E+00_JPRB, 0.697797E+00_JPRB &
+  &, 0.681963E+00_JPRB, 0.666314E+00_JPRB, 0.650813E+00_JPRB, 0.635484E+00_JPRB &
+  &, 0.620348E+00_JPRB, 0.605365E+00_JPRB, 0.590622E+00_JPRB/)
+XCW( 817, :) = (/ &
+  &  0.108956E+01_JPRB, 0.111165E+01_JPRB, 0.113360E+01_JPRB, 0.115538E+01_JPRB &
+  &, 0.117698E+01_JPRB, 0.119839E+01_JPRB, 0.121960E+01_JPRB &
+  &, 0.124059E+01_JPRB, 0.126135E+01_JPRB, 0.128187E+01_JPRB, 0.130212E+01_JPRB &
+  &, 0.132210E+01_JPRB, 0.134180E+01_JPRB, 0.136120E+01_JPRB &
+  &, 0.138028E+01_JPRB, 0.139904E+01_JPRB, 0.141746E+01_JPRB, 0.143554E+01_JPRB &
+  &, 0.145324E+01_JPRB, 0.147057E+01_JPRB, 0.148752E+01_JPRB &
+  &, 0.150407E+01_JPRB, 0.152020E+01_JPRB, 0.153591E+01_JPRB, 0.155119E+01_JPRB &
+  &, 0.156603E+01_JPRB, 0.158041E+01_JPRB, 0.159433E+01_JPRB &
+  &, 0.160777E+01_JPRB, 0.162073E+01_JPRB, 0.163320E+01_JPRB, 0.164517E+01_JPRB &
+  &, 0.165663E+01_JPRB, 0.166758E+01_JPRB, 0.167801E+01_JPRB &
+  &, 0.168790E+01_JPRB, 0.169726E+01_JPRB, 0.170609E+01_JPRB, 0.171437E+01_JPRB &
+  &, 0.172210E+01_JPRB, 0.172928E+01_JPRB, 0.173590E+01_JPRB &
+  &, 0.174196E+01_JPRB, 0.174746E+01_JPRB, 0.175240E+01_JPRB, 0.175677E+01_JPRB &
+  &, 0.176059E+01_JPRB, 0.176383E+01_JPRB, 0.176651E+01_JPRB &
+  &, 0.176853E+01_JPRB, 0.177018E+01_JPRB, 0.177117E+01_JPRB, 0.177160E+01_JPRB &
+  &, 0.177147E+01_JPRB, 0.177081E+01_JPRB, 0.176958E+01_JPRB &
+  &, 0.176781E+01_JPRB, 0.176549E+01_JPRB, 0.176264E+01_JPRB, 0.175927E+01_JPRB &
+  &, 0.175535E+01_JPRB, 0.175092E+01_JPRB, 0.174600E+01_JPRB &
+  &, 0.174054E+01_JPRB, 0.173460E+01_JPRB, 0.172817E+01_JPRB, 0.172125E+01_JPRB &
+  &, 0.171385E+01_JPRB, 0.170598E+01_JPRB, 0.169767E+01_JPRB &
+  &, 0.168887E+01_JPRB, 0.167967E+01_JPRB, 0.167002E+01_JPRB, 0.165994E+01_JPRB &
+  &, 0.164946E+01_JPRB, 0.163857E+01_JPRB, 0.162729E+01_JPRB &
+  &, 0.161563E+01_JPRB, 0.160359E+01_JPRB, 0.159120E+01_JPRB, 0.157844E+01_JPRB &
+  &, 0.156537E+01_JPRB, 0.155194E+01_JPRB, 0.153823E+01_JPRB &
+  &, 0.152418E+01_JPRB, 0.150986E+01_JPRB, 0.149523E+01_JPRB, 0.148034E+01_JPRB &
+  &, 0.146520E+01_JPRB, 0.144980E+01_JPRB, 0.143417E+01_JPRB &
+  &, 0.141832E+01_JPRB, 0.140226E+01_JPRB, 0.138598E+01_JPRB, 0.136952E+01_JPRB &
+  &, 0.135286E+01_JPRB, 0.133606E+01_JPRB, 0.131909E+01_JPRB &
+  &, 0.130199E+01_JPRB, 0.128475E+01_JPRB, 0.126738E+01_JPRB, 0.124989E+01_JPRB &
+  &, 0.123233E+01_JPRB, 0.121467E+01_JPRB, 0.119693E+01_JPRB &
+  &, 0.117911E+01_JPRB, 0.116127E+01_JPRB, 0.114333E+01_JPRB, 0.112539E+01_JPRB &
+  &, 0.110745E+01_JPRB, 0.108945E+01_JPRB, 0.107147E+01_JPRB &
+  &, 0.105348E+01_JPRB, 0.103551E+01_JPRB, 0.101757E+01_JPRB, 0.999656E+00_JPRB &
+  &, 0.981818E+00_JPRB, 0.963983E+00_JPRB, 0.946229E+00_JPRB &
+  &, 0.928584E+00_JPRB, 0.910876E+00_JPRB, 0.893435E+00_JPRB, 0.875986E+00_JPRB &
+  &, 0.858656E+00_JPRB, 0.841421E+00_JPRB, 0.824362E+00_JPRB &
+  &, 0.807341E+00_JPRB, 0.790496E+00_JPRB, 0.773796E+00_JPRB, 0.757212E+00_JPRB &
+  &, 0.740767E+00_JPRB, 0.724487E+00_JPRB, 0.708338E+00_JPRB &
+  &, 0.692404E+00_JPRB, 0.676588E+00_JPRB, 0.660976E+00_JPRB, 0.645529E+00_JPRB &
+  &, 0.630271E+00_JPRB, 0.615224E+00_JPRB, 0.600347E+00_JPRB/)
+XCW( 818, :) = (/ &
+  &  0.108996E+01_JPRB, 0.111216E+01_JPRB, 0.113421E+01_JPRB, 0.115610E+01_JPRB &
+  &, 0.117782E+01_JPRB, 0.119935E+01_JPRB, 0.122068E+01_JPRB &
+  &, 0.124179E+01_JPRB, 0.126268E+01_JPRB, 0.128332E+01_JPRB, 0.130370E+01_JPRB &
+  &, 0.132381E+01_JPRB, 0.134364E+01_JPRB, 0.136318E+01_JPRB &
+  &, 0.138240E+01_JPRB, 0.140130E+01_JPRB, 0.141986E+01_JPRB, 0.143807E+01_JPRB &
+  &, 0.145592E+01_JPRB, 0.147340E+01_JPRB, 0.149049E+01_JPRB &
+  &, 0.150719E+01_JPRB, 0.152347E+01_JPRB, 0.153934E+01_JPRB, 0.155477E+01_JPRB &
+  &, 0.156976E+01_JPRB, 0.158430E+01_JPRB, 0.159837E+01_JPRB &
+  &, 0.161197E+01_JPRB, 0.162509E+01_JPRB, 0.163771E+01_JPRB, 0.164984E+01_JPRB &
+  &, 0.166147E+01_JPRB, 0.167257E+01_JPRB, 0.168316E+01_JPRB &
+  &, 0.169322E+01_JPRB, 0.170275E+01_JPRB, 0.171173E+01_JPRB, 0.172017E+01_JPRB &
+  &, 0.172806E+01_JPRB, 0.173540E+01_JPRB, 0.174219E+01_JPRB &
+  &, 0.174841E+01_JPRB, 0.175407E+01_JPRB, 0.175917E+01_JPRB, 0.176371E+01_JPRB &
+  &, 0.176768E+01_JPRB, 0.177108E+01_JPRB, 0.177392E+01_JPRB &
+  &, 0.177620E+01_JPRB, 0.177791E+01_JPRB, 0.177905E+01_JPRB, 0.177963E+01_JPRB &
+  &, 0.177967E+01_JPRB, 0.177915E+01_JPRB, 0.177806E+01_JPRB &
+  &, 0.177642E+01_JPRB, 0.177428E+01_JPRB, 0.177158E+01_JPRB, 0.176834E+01_JPRB &
+  &, 0.176457E+01_JPRB, 0.176028E+01_JPRB, 0.175549E+01_JPRB &
+  &, 0.175018E+01_JPRB, 0.174437E+01_JPRB, 0.173807E+01_JPRB, 0.173126E+01_JPRB &
+  &, 0.172399E+01_JPRB, 0.171625E+01_JPRB, 0.170806E+01_JPRB &
+  &, 0.169940E+01_JPRB, 0.169029E+01_JPRB, 0.168075E+01_JPRB, 0.167080E+01_JPRB &
+  &, 0.166040E+01_JPRB, 0.164963E+01_JPRB, 0.163845E+01_JPRB &
+  &, 0.162689E+01_JPRB, 0.161493E+01_JPRB, 0.160264E+01_JPRB, 0.158997E+01_JPRB &
+  &, 0.157696E+01_JPRB, 0.156363E+01_JPRB, 0.154998E+01_JPRB &
+  &, 0.153601E+01_JPRB, 0.152175E+01_JPRB, 0.150720E+01_JPRB, 0.149236E+01_JPRB &
+  &, 0.147729E+01_JPRB, 0.146193E+01_JPRB, 0.144636E+01_JPRB &
+  &, 0.143054E+01_JPRB, 0.141451E+01_JPRB, 0.139828E+01_JPRB, 0.138184E+01_JPRB &
+  &, 0.136523E+01_JPRB, 0.134844E+01_JPRB, 0.133150E+01_JPRB &
+  &, 0.131441E+01_JPRB, 0.129716E+01_JPRB, 0.127982E+01_JPRB, 0.126234E+01_JPRB &
+  &, 0.124477E+01_JPRB, 0.122711E+01_JPRB, 0.120934E+01_JPRB &
+  &, 0.119152E+01_JPRB, 0.117364E+01_JPRB, 0.115574E+01_JPRB, 0.113775E+01_JPRB &
+  &, 0.111979E+01_JPRB, 0.110176E+01_JPRB, 0.108375E+01_JPRB &
+  &, 0.106573E+01_JPRB, 0.104768E+01_JPRB, 0.102973E+01_JPRB, 0.101177E+01_JPRB &
+  &, 0.993834E+00_JPRB, 0.975938E+00_JPRB, 0.958166E+00_JPRB &
+  &, 0.940399E+00_JPRB, 0.922715E+00_JPRB, 0.905140E+00_JPRB, 0.887601E+00_JPRB &
+  &, 0.870228E+00_JPRB, 0.852891E+00_JPRB, 0.835723E+00_JPRB &
+  &, 0.818644E+00_JPRB, 0.801678E+00_JPRB, 0.784852E+00_JPRB, 0.768191E+00_JPRB &
+  &, 0.751665E+00_JPRB, 0.735299E+00_JPRB, 0.719058E+00_JPRB &
+  &, 0.702966E+00_JPRB, 0.687109E+00_JPRB, 0.671389E+00_JPRB, 0.655828E+00_JPRB &
+  &, 0.640450E+00_JPRB, 0.625277E+00_JPRB, 0.610269E+00_JPRB/)
+XCW( 819, :) = (/ &
+  &  0.109036E+01_JPRB, 0.111267E+01_JPRB, 0.113483E+01_JPRB, 0.115684E+01_JPRB &
+  &, 0.117867E+01_JPRB, 0.120032E+01_JPRB, 0.122177E+01_JPRB &
+  &, 0.124300E+01_JPRB, 0.126401E+01_JPRB, 0.128478E+01_JPRB, 0.130529E+01_JPRB &
+  &, 0.132553E+01_JPRB, 0.134549E+01_JPRB, 0.136516E+01_JPRB &
+  &, 0.138452E+01_JPRB, 0.140356E+01_JPRB, 0.142226E+01_JPRB, 0.144062E+01_JPRB &
+  &, 0.145862E+01_JPRB, 0.147624E+01_JPRB, 0.149348E+01_JPRB &
+  &, 0.151032E+01_JPRB, 0.152675E+01_JPRB, 0.154278E+01_JPRB, 0.155836E+01_JPRB &
+  &, 0.157351E+01_JPRB, 0.158820E+01_JPRB, 0.160243E+01_JPRB &
+  &, 0.161619E+01_JPRB, 0.162946E+01_JPRB, 0.164225E+01_JPRB, 0.165454E+01_JPRB &
+  &, 0.166633E+01_JPRB, 0.167759E+01_JPRB, 0.168835E+01_JPRB &
+  &, 0.169857E+01_JPRB, 0.170825E+01_JPRB, 0.171740E+01_JPRB, 0.172601E+01_JPRB &
+  &, 0.173407E+01_JPRB, 0.174157E+01_JPRB, 0.174851E+01_JPRB &
+  &, 0.175490E+01_JPRB, 0.176073E+01_JPRB, 0.176599E+01_JPRB, 0.177069E+01_JPRB &
+  &, 0.177482E+01_JPRB, 0.177838E+01_JPRB, 0.178139E+01_JPRB &
+  &, 0.178381E+01_JPRB, 0.178569E+01_JPRB, 0.178698E+01_JPRB, 0.178772E+01_JPRB &
+  &, 0.178792E+01_JPRB, 0.178754E+01_JPRB, 0.178662E+01_JPRB &
+  &, 0.178515E+01_JPRB, 0.178313E+01_JPRB, 0.178057E+01_JPRB, 0.177747E+01_JPRB &
+  &, 0.177385E+01_JPRB, 0.176971E+01_JPRB, 0.176504E+01_JPRB &
+  &, 0.175987E+01_JPRB, 0.175420E+01_JPRB, 0.174802E+01_JPRB, 0.174137E+01_JPRB &
+  &, 0.173422E+01_JPRB, 0.172660E+01_JPRB, 0.171853E+01_JPRB &
+  &, 0.170998E+01_JPRB, 0.170099E+01_JPRB, 0.169156E+01_JPRB, 0.168173E+01_JPRB &
+  &, 0.167144E+01_JPRB, 0.166077E+01_JPRB, 0.164968E+01_JPRB &
+  &, 0.163822E+01_JPRB, 0.162636E+01_JPRB, 0.161415E+01_JPRB, 0.160158E+01_JPRB &
+  &, 0.158867E+01_JPRB, 0.157540E+01_JPRB, 0.156184E+01_JPRB &
+  &, 0.154793E+01_JPRB, 0.153375E+01_JPRB, 0.151925E+01_JPRB, 0.150449E+01_JPRB &
+  &, 0.148946E+01_JPRB, 0.147417E+01_JPRB, 0.145865E+01_JPRB &
+  &, 0.144289E+01_JPRB, 0.142689E+01_JPRB, 0.141068E+01_JPRB, 0.139430E+01_JPRB &
+  &, 0.137770E+01_JPRB, 0.136095E+01_JPRB, 0.134402E+01_JPRB &
+  &, 0.132693E+01_JPRB, 0.130971E+01_JPRB, 0.129236E+01_JPRB, 0.127491E+01_JPRB &
+  &, 0.125735E+01_JPRB, 0.123968E+01_JPRB, 0.122192E+01_JPRB &
+  &, 0.120410E+01_JPRB, 0.118618E+01_JPRB, 0.116827E+01_JPRB, 0.115026E+01_JPRB &
+  &, 0.113225E+01_JPRB, 0.111421E+01_JPRB, 0.109612E+01_JPRB &
+  &, 0.107807E+01_JPRB, 0.106003E+01_JPRB, 0.104199E+01_JPRB, 0.102399E+01_JPRB &
+  &, 0.100599E+01_JPRB, 0.988087E+00_JPRB, 0.970202E+00_JPRB &
+  &, 0.952365E+00_JPRB, 0.934654E+00_JPRB, 0.916947E+00_JPRB, 0.899371E+00_JPRB &
+  &, 0.881904E+00_JPRB, 0.864521E+00_JPRB, 0.847248E+00_JPRB &
+  &, 0.830057E+00_JPRB, 0.813028E+00_JPRB, 0.796134E+00_JPRB, 0.779343E+00_JPRB &
+  &, 0.762739E+00_JPRB, 0.746230E+00_JPRB, 0.729898E+00_JPRB &
+  &, 0.713711E+00_JPRB, 0.697753E+00_JPRB, 0.681863E+00_JPRB, 0.666253E+00_JPRB &
+  &, 0.650757E+00_JPRB, 0.635461E+00_JPRB, 0.620323E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART117',1,ZHOOK_HANDLE)
+END SUBROUTINE PART117
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART118
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART118',0,ZHOOK_HANDLE)
+
+XCW( 820, :) = (/ &
+  &  0.109077E+01_JPRB, 0.111318E+01_JPRB, 0.113545E+01_JPRB, 0.115757E+01_JPRB &
+  &, 0.117952E+01_JPRB, 0.120129E+01_JPRB, 0.122285E+01_JPRB &
+  &, 0.124421E+01_JPRB, 0.126535E+01_JPRB, 0.128624E+01_JPRB, 0.130688E+01_JPRB &
+  &, 0.132726E+01_JPRB, 0.134735E+01_JPRB, 0.136716E+01_JPRB &
+  &, 0.138666E+01_JPRB, 0.140583E+01_JPRB, 0.142468E+01_JPRB, 0.144318E+01_JPRB &
+  &, 0.146132E+01_JPRB, 0.147909E+01_JPRB, 0.149648E+01_JPRB &
+  &, 0.151347E+01_JPRB, 0.153006E+01_JPRB, 0.154623E+01_JPRB, 0.156197E+01_JPRB &
+  &, 0.157727E+01_JPRB, 0.159212E+01_JPRB, 0.160651E+01_JPRB &
+  &, 0.162043E+01_JPRB, 0.163387E+01_JPRB, 0.164681E+01_JPRB, 0.165927E+01_JPRB &
+  &, 0.167121E+01_JPRB, 0.168265E+01_JPRB, 0.169356E+01_JPRB &
+  &, 0.170394E+01_JPRB, 0.171379E+01_JPRB, 0.172310E+01_JPRB, 0.173187E+01_JPRB &
+  &, 0.174010E+01_JPRB, 0.174776E+01_JPRB, 0.175488E+01_JPRB &
+  &, 0.176143E+01_JPRB, 0.176742E+01_JPRB, 0.177284E+01_JPRB, 0.177771E+01_JPRB &
+  &, 0.178200E+01_JPRB, 0.178573E+01_JPRB, 0.178889E+01_JPRB &
+  &, 0.179148E+01_JPRB, 0.179351E+01_JPRB, 0.179497E+01_JPRB, 0.179587E+01_JPRB &
+  &, 0.179621E+01_JPRB, 0.179599E+01_JPRB, 0.179522E+01_JPRB &
+  &, 0.179390E+01_JPRB, 0.179204E+01_JPRB, 0.178962E+01_JPRB, 0.178668E+01_JPRB &
+  &, 0.178321E+01_JPRB, 0.177920E+01_JPRB, 0.177468E+01_JPRB &
+  &, 0.176963E+01_JPRB, 0.176411E+01_JPRB, 0.175807E+01_JPRB, 0.175152E+01_JPRB &
+  &, 0.174451E+01_JPRB, 0.173703E+01_JPRB, 0.172906E+01_JPRB &
+  &, 0.172065E+01_JPRB, 0.171177E+01_JPRB, 0.170246E+01_JPRB, 0.169272E+01_JPRB &
+  &, 0.168257E+01_JPRB, 0.167199E+01_JPRB, 0.166102E+01_JPRB &
+  &, 0.164965E+01_JPRB, 0.163790E+01_JPRB, 0.162576E+01_JPRB, 0.161330E+01_JPRB &
+  &, 0.160045E+01_JPRB, 0.158728E+01_JPRB, 0.157378E+01_JPRB &
+  &, 0.155996E+01_JPRB, 0.154584E+01_JPRB, 0.153142E+01_JPRB, 0.151671E+01_JPRB &
+  &, 0.150176E+01_JPRB, 0.148651E+01_JPRB, 0.147103E+01_JPRB &
+  &, 0.145533E+01_JPRB, 0.143936E+01_JPRB, 0.142321E+01_JPRB, 0.140685E+01_JPRB &
+  &, 0.139031E+01_JPRB, 0.137357E+01_JPRB, 0.135668E+01_JPRB &
+  &, 0.133959E+01_JPRB, 0.132241E+01_JPRB, 0.130509E+01_JPRB, 0.128763E+01_JPRB &
+  &, 0.127005E+01_JPRB, 0.125239E+01_JPRB, 0.123460E+01_JPRB &
+  &, 0.121676E+01_JPRB, 0.119888E+01_JPRB, 0.118092E+01_JPRB, 0.116274E+01_JPRB &
+  &, 0.114484E+01_JPRB, 0.112678E+01_JPRB, 0.110867E+01_JPRB &
+  &, 0.109058E+01_JPRB, 0.107247E+01_JPRB, 0.105439E+01_JPRB, 0.103634E+01_JPRB &
+  &, 0.101834E+01_JPRB, 0.100033E+01_JPRB, 0.982385E+00_JPRB &
+  &, 0.964530E+00_JPRB, 0.946695E+00_JPRB, 0.928959E+00_JPRB, 0.911298E+00_JPRB &
+  &, 0.893740E+00_JPRB, 0.876259E+00_JPRB, 0.858936E+00_JPRB &
+  &, 0.841690E+00_JPRB, 0.824546E+00_JPRB, 0.807530E+00_JPRB, 0.790668E+00_JPRB &
+  &, 0.773929E+00_JPRB, 0.757337E+00_JPRB, 0.740918E+00_JPRB &
+  &, 0.724638E+00_JPRB, 0.708519E+00_JPRB, 0.692587E+00_JPRB, 0.676804E+00_JPRB &
+  &, 0.661192E+00_JPRB, 0.645774E+00_JPRB, 0.630508E+00_JPRB/)
+XCW( 821, :) = (/ &
+  &  0.109117E+01_JPRB, 0.111369E+01_JPRB, 0.113608E+01_JPRB, 0.115831E+01_JPRB &
+  &, 0.118037E+01_JPRB, 0.120226E+01_JPRB, 0.122395E+01_JPRB &
+  &, 0.124543E+01_JPRB, 0.126669E+01_JPRB, 0.128771E+01_JPRB, 0.130848E+01_JPRB &
+  &, 0.132899E+01_JPRB, 0.134922E+01_JPRB, 0.136916E+01_JPRB &
+  &, 0.138880E+01_JPRB, 0.140812E+01_JPRB, 0.142711E+01_JPRB, 0.144575E+01_JPRB &
+  &, 0.146404E+01_JPRB, 0.148196E+01_JPRB, 0.149950E+01_JPRB &
+  &, 0.151664E+01_JPRB, 0.153338E+01_JPRB, 0.154971E+01_JPRB, 0.156560E+01_JPRB &
+  &, 0.158106E+01_JPRB, 0.159607E+01_JPRB, 0.161061E+01_JPRB &
+  &, 0.162469E+01_JPRB, 0.163829E+01_JPRB, 0.165140E+01_JPRB, 0.166402E+01_JPRB &
+  &, 0.167613E+01_JPRB, 0.168772E+01_JPRB, 0.169880E+01_JPRB &
+  &, 0.170935E+01_JPRB, 0.171876E+01_JPRB, 0.172884E+01_JPRB, 0.173778E+01_JPRB &
+  &, 0.174616E+01_JPRB, 0.175400E+01_JPRB, 0.176128E+01_JPRB &
+  &, 0.176799E+01_JPRB, 0.177416E+01_JPRB, 0.177974E+01_JPRB, 0.178477E+01_JPRB &
+  &, 0.178923E+01_JPRB, 0.179312E+01_JPRB, 0.179643E+01_JPRB &
+  &, 0.179919E+01_JPRB, 0.180138E+01_JPRB, 0.180300E+01_JPRB, 0.180407E+01_JPRB &
+  &, 0.180455E+01_JPRB, 0.180449E+01_JPRB, 0.180388E+01_JPRB &
+  &, 0.180271E+01_JPRB, 0.180100E+01_JPRB, 0.179874E+01_JPRB, 0.179594E+01_JPRB &
+  &, 0.179261E+01_JPRB, 0.178875E+01_JPRB, 0.178437E+01_JPRB &
+  &, 0.177949E+01_JPRB, 0.177407E+01_JPRB, 0.176817E+01_JPRB, 0.176177E+01_JPRB &
+  &, 0.175488E+01_JPRB, 0.174752E+01_JPRB, 0.173969E+01_JPRB &
+  &, 0.173139E+01_JPRB, 0.172265E+01_JPRB, 0.171346E+01_JPRB, 0.170383E+01_JPRB &
+  &, 0.169377E+01_JPRB, 0.168330E+01_JPRB, 0.167244E+01_JPRB &
+  &, 0.166108E+01_JPRB, 0.164951E+01_JPRB, 0.163747E+01_JPRB, 0.162508E+01_JPRB &
+  &, 0.161234E+01_JPRB, 0.159926E+01_JPRB, 0.158583E+01_JPRB &
+  &, 0.157210E+01_JPRB, 0.155804E+01_JPRB, 0.154371E+01_JPRB, 0.152905E+01_JPRB &
+  &, 0.151415E+01_JPRB, 0.149898E+01_JPRB, 0.148356E+01_JPRB &
+  &, 0.146787E+01_JPRB, 0.145197E+01_JPRB, 0.143585E+01_JPRB, 0.141954E+01_JPRB &
+  &, 0.140301E+01_JPRB, 0.138633E+01_JPRB, 0.136945E+01_JPRB &
+  &, 0.135240E+01_JPRB, 0.133522E+01_JPRB, 0.131789E+01_JPRB, 0.130046E+01_JPRB &
+  &, 0.128287E+01_JPRB, 0.126523E+01_JPRB, 0.124745E+01_JPRB &
+  &, 0.122961E+01_JPRB, 0.121166E+01_JPRB, 0.119370E+01_JPRB, 0.117568E+01_JPRB &
+  &, 0.115760E+01_JPRB, 0.113948E+01_JPRB, 0.112135E+01_JPRB &
+  &, 0.110324E+01_JPRB, 0.108509E+01_JPRB, 0.106698E+01_JPRB, 0.104888E+01_JPRB &
+  &, 0.103079E+01_JPRB, 0.101258E+01_JPRB, 0.994765E+00_JPRB &
+  &, 0.976795E+00_JPRB, 0.958939E+00_JPRB, 0.941125E+00_JPRB, 0.923381E+00_JPRB &
+  &, 0.905734E+00_JPRB, 0.888211E+00_JPRB, 0.870787E+00_JPRB &
+  &, 0.853434E+00_JPRB, 0.836232E+00_JPRB, 0.819096E+00_JPRB, 0.802165E+00_JPRB &
+  &, 0.785352E+00_JPRB, 0.768622E+00_JPRB, 0.752118E+00_JPRB &
+  &, 0.735686E+00_JPRB, 0.719471E+00_JPRB, 0.703436E+00_JPRB, 0.687545E+00_JPRB &
+  &, 0.671819E+00_JPRB, 0.656281E+00_JPRB, 0.640891E+00_JPRB/)
+XCW( 822, :) = (/ &
+  &  0.109158E+01_JPRB, 0.111421E+01_JPRB, 0.113670E+01_JPRB, 0.115905E+01_JPRB &
+  &, 0.118123E+01_JPRB, 0.120323E+01_JPRB, 0.122504E+01_JPRB &
+  &, 0.124665E+01_JPRB, 0.126803E+01_JPRB, 0.128919E+01_JPRB, 0.131009E+01_JPRB &
+  &, 0.133073E+01_JPRB, 0.135110E+01_JPRB, 0.137118E+01_JPRB &
+  &, 0.139095E+01_JPRB, 0.141041E+01_JPRB, 0.142954E+01_JPRB, 0.144833E+01_JPRB &
+  &, 0.146677E+01_JPRB, 0.148484E+01_JPRB, 0.150253E+01_JPRB &
+  &, 0.151982E+01_JPRB, 0.153672E+01_JPRB, 0.155320E+01_JPRB, 0.156925E+01_JPRB &
+  &, 0.158486E+01_JPRB, 0.160003E+01_JPRB, 0.161474E+01_JPRB &
+  &, 0.162898E+01_JPRB, 0.164274E+01_JPRB, 0.165601E+01_JPRB, 0.166879E+01_JPRB &
+  &, 0.168106E+01_JPRB, 0.169283E+01_JPRB, 0.170407E+01_JPRB &
+  &, 0.171478E+01_JPRB, 0.172497E+01_JPRB, 0.173461E+01_JPRB, 0.174371E+01_JPRB &
+  &, 0.175227E+01_JPRB, 0.176027E+01_JPRB, 0.176772E+01_JPRB &
+  &, 0.177460E+01_JPRB, 0.178092E+01_JPRB, 0.178668E+01_JPRB, 0.179187E+01_JPRB &
+  &, 0.179649E+01_JPRB, 0.180055E+01_JPRB, 0.180404E+01_JPRB &
+  &, 0.180695E+01_JPRB, 0.180931E+01_JPRB, 0.181109E+01_JPRB, 0.181231E+01_JPRB &
+  &, 0.181296E+01_JPRB, 0.181306E+01_JPRB, 0.181260E+01_JPRB &
+  &, 0.181159E+01_JPRB, 0.181002E+01_JPRB, 0.180791E+01_JPRB, 0.180527E+01_JPRB &
+  &, 0.180208E+01_JPRB, 0.179837E+01_JPRB, 0.179413E+01_JPRB &
+  &, 0.178938E+01_JPRB, 0.178412E+01_JPRB, 0.177835E+01_JPRB, 0.177210E+01_JPRB &
+  &, 0.176533E+01_JPRB, 0.175810E+01_JPRB, 0.175039E+01_JPRB &
+  &, 0.174223E+01_JPRB, 0.173361E+01_JPRB, 0.172453E+01_JPRB, 0.171500E+01_JPRB &
+  &, 0.170508E+01_JPRB, 0.169473E+01_JPRB, 0.168396E+01_JPRB &
+  &, 0.167278E+01_JPRB, 0.166124E+01_JPRB, 0.164929E+01_JPRB, 0.163700E+01_JPRB &
+  &, 0.162433E+01_JPRB, 0.161133E+01_JPRB, 0.159799E+01_JPRB &
+  &, 0.158433E+01_JPRB, 0.157036E+01_JPRB, 0.155608E+01_JPRB, 0.154151E+01_JPRB &
+  &, 0.152666E+01_JPRB, 0.151156E+01_JPRB, 0.149613E+01_JPRB &
+  &, 0.148057E+01_JPRB, 0.146470E+01_JPRB, 0.144864E+01_JPRB, 0.143233E+01_JPRB &
+  &, 0.141586E+01_JPRB, 0.139919E+01_JPRB, 0.138236E+01_JPRB &
+  &, 0.136532E+01_JPRB, 0.134817E+01_JPRB, 0.133084E+01_JPRB, 0.131340E+01_JPRB &
+  &, 0.129583E+01_JPRB, 0.127818E+01_JPRB, 0.126042E+01_JPRB &
+  &, 0.124255E+01_JPRB, 0.122464E+01_JPRB, 0.120664E+01_JPRB, 0.118858E+01_JPRB &
+  &, 0.117049E+01_JPRB, 0.115235E+01_JPRB, 0.113420E+01_JPRB &
+  &, 0.111603E+01_JPRB, 0.109785E+01_JPRB, 0.107970E+01_JPRB, 0.106156E+01_JPRB &
+  &, 0.104342E+01_JPRB, 0.102531E+01_JPRB, 0.100724E+01_JPRB &
+  &, 0.989259E+00_JPRB, 0.971334E+00_JPRB, 0.953445E+00_JPRB, 0.935621E+00_JPRB &
+  &, 0.917939E+00_JPRB, 0.900217E+00_JPRB, 0.882747E+00_JPRB &
+  &, 0.865343E+00_JPRB, 0.848029E+00_JPRB, 0.830832E+00_JPRB, 0.813777E+00_JPRB &
+  &, 0.796892E+00_JPRB, 0.780084E+00_JPRB, 0.763437E+00_JPRB &
+  &, 0.746977E+00_JPRB, 0.730606E+00_JPRB, 0.714472E+00_JPRB, 0.698412E+00_JPRB &
+  &, 0.682574E+00_JPRB, 0.666919E+00_JPRB, 0.651470E+00_JPRB/)
+XCW( 823, :) = (/ &
+  &  0.109199E+01_JPRB, 0.111472E+01_JPRB, 0.113733E+01_JPRB, 0.115979E+01_JPRB &
+  &, 0.118209E+01_JPRB, 0.120421E+01_JPRB, 0.122615E+01_JPRB &
+  &, 0.124788E+01_JPRB, 0.126939E+01_JPRB, 0.129067E+01_JPRB, 0.131170E+01_JPRB &
+  &, 0.133248E+01_JPRB, 0.135298E+01_JPRB, 0.137320E+01_JPRB &
+  &, 0.139312E+01_JPRB, 0.141272E+01_JPRB, 0.143200E+01_JPRB, 0.145093E+01_JPRB &
+  &, 0.146951E+01_JPRB, 0.148773E+01_JPRB, 0.150557E+01_JPRB &
+  &, 0.152302E+01_JPRB, 0.154007E+01_JPRB, 0.155671E+01_JPRB, 0.157292E+01_JPRB &
+  &, 0.158869E+01_JPRB, 0.160401E+01_JPRB, 0.161888E+01_JPRB &
+  &, 0.163329E+01_JPRB, 0.164721E+01_JPRB, 0.166065E+01_JPRB, 0.167359E+01_JPRB &
+  &, 0.168603E+01_JPRB, 0.169796E+01_JPRB, 0.170937E+01_JPRB &
+  &, 0.172025E+01_JPRB, 0.173060E+01_JPRB, 0.174041E+01_JPRB, 0.174969E+01_JPRB &
+  &, 0.175841E+01_JPRB, 0.176657E+01_JPRB, 0.177419E+01_JPRB &
+  &, 0.178124E+01_JPRB, 0.178773E+01_JPRB, 0.179366E+01_JPRB, 0.179902E+01_JPRB &
+  &, 0.180381E+01_JPRB, 0.180803E+01_JPRB, 0.181168E+01_JPRB &
+  &, 0.181477E+01_JPRB, 0.181727E+01_JPRB, 0.181922E+01_JPRB, 0.182061E+01_JPRB &
+  &, 0.182142E+01_JPRB, 0.182168E+01_JPRB, 0.182137E+01_JPRB &
+  &, 0.182051E+01_JPRB, 0.181911E+01_JPRB, 0.181716E+01_JPRB, 0.181465E+01_JPRB &
+  &, 0.181162E+01_JPRB, 0.180806E+01_JPRB, 0.180397E+01_JPRB &
+  &, 0.179936E+01_JPRB, 0.179423E+01_JPRB, 0.178861E+01_JPRB, 0.178248E+01_JPRB &
+  &, 0.177586E+01_JPRB, 0.176875E+01_JPRB, 0.176119E+01_JPRB &
+  &, 0.175313E+01_JPRB, 0.174463E+01_JPRB, 0.173568E+01_JPRB, 0.172629E+01_JPRB &
+  &, 0.171646E+01_JPRB, 0.170622E+01_JPRB, 0.169555E+01_JPRB &
+  &, 0.168450E+01_JPRB, 0.167305E+01_JPRB, 0.166120E+01_JPRB, 0.164900E+01_JPRB &
+  &, 0.163643E+01_JPRB, 0.162353E+01_JPRB, 0.161026E+01_JPRB &
+  &, 0.159669E+01_JPRB, 0.158278E+01_JPRB, 0.156857E+01_JPRB, 0.155408E+01_JPRB &
+  &, 0.153928E+01_JPRB, 0.152424E+01_JPRB, 0.150891E+01_JPRB &
+  &, 0.149336E+01_JPRB, 0.147756E+01_JPRB, 0.146150E+01_JPRB, 0.144529E+01_JPRB &
+  &, 0.142884E+01_JPRB, 0.141219E+01_JPRB, 0.139537E+01_JPRB &
+  &, 0.137837E+01_JPRB, 0.136123E+01_JPRB, 0.134394E+01_JPRB, 0.132649E+01_JPRB &
+  &, 0.130896E+01_JPRB, 0.129128E+01_JPRB, 0.127354E+01_JPRB &
+  &, 0.125565E+01_JPRB, 0.123771E+01_JPRB, 0.121971E+01_JPRB, 0.120165E+01_JPRB &
+  &, 0.118355E+01_JPRB, 0.116536E+01_JPRB, 0.114719E+01_JPRB &
+  &, 0.112899E+01_JPRB, 0.111079E+01_JPRB, 0.109256E+01_JPRB, 0.107439E+01_JPRB &
+  &, 0.105620E+01_JPRB, 0.103804E+01_JPRB, 0.101992E+01_JPRB &
+  &, 0.100187E+01_JPRB, 0.983881E+00_JPRB, 0.965920E+00_JPRB, 0.948068E+00_JPRB &
+  &, 0.930250E+00_JPRB, 0.912544E+00_JPRB, 0.894924E+00_JPRB &
+  &, 0.877417E+00_JPRB, 0.860050E+00_JPRB, 0.842738E+00_JPRB, 0.825619E+00_JPRB &
+  &, 0.808606E+00_JPRB, 0.791723E+00_JPRB, 0.774936E+00_JPRB &
+  &, 0.758328E+00_JPRB, 0.741927E+00_JPRB, 0.725633E+00_JPRB, 0.709532E+00_JPRB &
+  &, 0.693585E+00_JPRB, 0.677751E+00_JPRB, 0.662181E+00_JPRB/)
+XCW( 824, :) = (/ &
+  &  0.109240E+01_JPRB, 0.111524E+01_JPRB, 0.113796E+01_JPRB, 0.116054E+01_JPRB &
+  &, 0.118295E+01_JPRB, 0.120520E+01_JPRB, 0.122725E+01_JPRB &
+  &, 0.124911E+01_JPRB, 0.127075E+01_JPRB, 0.129216E+01_JPRB, 0.131333E+01_JPRB &
+  &, 0.133424E+01_JPRB, 0.135488E+01_JPRB, 0.137523E+01_JPRB &
+  &, 0.139529E+01_JPRB, 0.141503E+01_JPRB, 0.143446E+01_JPRB, 0.145354E+01_JPRB &
+  &, 0.147227E+01_JPRB, 0.149064E+01_JPRB, 0.150863E+01_JPRB &
+  &, 0.152624E+01_JPRB, 0.154344E+01_JPRB, 0.156023E+01_JPRB, 0.157660E+01_JPRB &
+  &, 0.159253E+01_JPRB, 0.160802E+01_JPRB, 0.162305E+01_JPRB &
+  &, 0.163761E+01_JPRB, 0.165170E+01_JPRB, 0.166531E+01_JPRB, 0.167841E+01_JPRB &
+  &, 0.169102E+01_JPRB, 0.170312E+01_JPRB, 0.171470E+01_JPRB &
+  &, 0.172574E+01_JPRB, 0.173627E+01_JPRB, 0.174625E+01_JPRB, 0.175569E+01_JPRB &
+  &, 0.176458E+01_JPRB, 0.177292E+01_JPRB, 0.178070E+01_JPRB &
+  &, 0.178793E+01_JPRB, 0.179459E+01_JPRB, 0.180068E+01_JPRB, 0.180621E+01_JPRB &
+  &, 0.181116E+01_JPRB, 0.181555E+01_JPRB, 0.181938E+01_JPRB &
+  &, 0.182262E+01_JPRB, 0.182530E+01_JPRB, 0.182741E+01_JPRB, 0.182895E+01_JPRB &
+  &, 0.182993E+01_JPRB, 0.183035E+01_JPRB, 0.183021E+01_JPRB &
+  &, 0.182949E+01_JPRB, 0.182826E+01_JPRB, 0.182645E+01_JPRB, 0.182411E+01_JPRB &
+  &, 0.182123E+01_JPRB, 0.181781E+01_JPRB, 0.181387E+01_JPRB &
+  &, 0.180941E+01_JPRB, 0.180443E+01_JPRB, 0.179894E+01_JPRB, 0.179296E+01_JPRB &
+  &, 0.178647E+01_JPRB, 0.177951E+01_JPRB, 0.177205E+01_JPRB &
+  &, 0.176414E+01_JPRB, 0.175574E+01_JPRB, 0.174691E+01_JPRB, 0.173764E+01_JPRB &
+  &, 0.172794E+01_JPRB, 0.171781E+01_JPRB, 0.170725E+01_JPRB &
+  &, 0.169630E+01_JPRB, 0.168496E+01_JPRB, 0.167322E+01_JPRB, 0.166110E+01_JPRB &
+  &, 0.164863E+01_JPRB, 0.163581E+01_JPRB, 0.162264E+01_JPRB &
+  &, 0.160914E+01_JPRB, 0.159530E+01_JPRB, 0.158118E+01_JPRB, 0.156674E+01_JPRB &
+  &, 0.155203E+01_JPRB, 0.153703E+01_JPRB, 0.152178E+01_JPRB &
+  &, 0.150628E+01_JPRB, 0.149052E+01_JPRB, 0.147453E+01_JPRB, 0.145834E+01_JPRB &
+  &, 0.144192E+01_JPRB, 0.142532E+01_JPRB, 0.140852E+01_JPRB &
+  &, 0.139157E+01_JPRB, 0.137444E+01_JPRB, 0.135715E+01_JPRB, 0.133974E+01_JPRB &
+  &, 0.132219E+01_JPRB, 0.130454E+01_JPRB, 0.128678E+01_JPRB &
+  &, 0.126890E+01_JPRB, 0.125097E+01_JPRB, 0.123294E+01_JPRB, 0.121484E+01_JPRB &
+  &, 0.119674E+01_JPRB, 0.117854E+01_JPRB, 0.116032E+01_JPRB &
+  &, 0.114210E+01_JPRB, 0.112386E+01_JPRB, 0.110561E+01_JPRB, 0.108735E+01_JPRB &
+  &, 0.106913E+01_JPRB, 0.105091E+01_JPRB, 0.103274E+01_JPRB &
+  &, 0.101464E+01_JPRB, 0.996579E+00_JPRB, 0.978548E+00_JPRB, 0.960620E+00_JPRB &
+  &, 0.942719E+00_JPRB, 0.924978E+00_JPRB, 0.907264E+00_JPRB &
+  &, 0.889657E+00_JPRB, 0.872183E+00_JPRB, 0.854815E+00_JPRB, 0.837576E+00_JPRB &
+  &, 0.820437E+00_JPRB, 0.803481E+00_JPRB, 0.786615E+00_JPRB &
+  &, 0.769923E+00_JPRB, 0.753370E+00_JPRB, 0.736980E+00_JPRB, 0.720778E+00_JPRB &
+  &, 0.704660E+00_JPRB, 0.688777E+00_JPRB, 0.673089E+00_JPRB/)
+XCW( 825, :) = (/ &
+  &  0.109281E+01_JPRB, 0.111576E+01_JPRB, 0.113860E+01_JPRB, 0.116129E+01_JPRB &
+  &, 0.118382E+01_JPRB, 0.120618E+01_JPRB, 0.122836E+01_JPRB &
+  &, 0.125034E+01_JPRB, 0.127211E+01_JPRB, 0.129365E+01_JPRB, 0.131495E+01_JPRB &
+  &, 0.133600E+01_JPRB, 0.135678E+01_JPRB, 0.137727E+01_JPRB &
+  &, 0.139747E+01_JPRB, 0.141736E+01_JPRB, 0.143693E+01_JPRB, 0.145616E+01_JPRB &
+  &, 0.147504E+01_JPRB, 0.149356E+01_JPRB, 0.151171E+01_JPRB &
+  &, 0.152947E+01_JPRB, 0.154683E+01_JPRB, 0.156378E+01_JPRB, 0.158030E+01_JPRB &
+  &, 0.159640E+01_JPRB, 0.161205E+01_JPRB, 0.162724E+01_JPRB &
+  &, 0.164197E+01_JPRB, 0.165622E+01_JPRB, 0.166999E+01_JPRB, 0.168327E+01_JPRB &
+  &, 0.169604E+01_JPRB, 0.170831E+01_JPRB, 0.172005E+01_JPRB &
+  &, 0.173127E+01_JPRB, 0.174196E+01_JPRB, 0.175211E+01_JPRB, 0.176173E+01_JPRB &
+  &, 0.177079E+01_JPRB, 0.177930E+01_JPRB, 0.178726E+01_JPRB &
+  &, 0.179465E+01_JPRB, 0.180148E+01_JPRB, 0.180775E+01_JPRB, 0.181344E+01_JPRB &
+  &, 0.181857E+01_JPRB, 0.182313E+01_JPRB, 0.182711E+01_JPRB &
+  &, 0.183053E+01_JPRB, 0.183336E+01_JPRB, 0.183565E+01_JPRB, 0.183736E+01_JPRB &
+  &, 0.183850E+01_JPRB, 0.183908E+01_JPRB, 0.183910E+01_JPRB &
+  &, 0.183857E+01_JPRB, 0.183747E+01_JPRB, 0.183583E+01_JPRB, 0.183364E+01_JPRB &
+  &, 0.183091E+01_JPRB, 0.182764E+01_JPRB, 0.182385E+01_JPRB &
+  &, 0.181954E+01_JPRB, 0.181469E+01_JPRB, 0.180935E+01_JPRB, 0.180350E+01_JPRB &
+  &, 0.179716E+01_JPRB, 0.179032E+01_JPRB, 0.178299E+01_JPRB &
+  &, 0.177521E+01_JPRB, 0.176696E+01_JPRB, 0.175826E+01_JPRB, 0.174909E+01_JPRB &
+  &, 0.173950E+01_JPRB, 0.172948E+01_JPRB, 0.171906E+01_JPRB &
+  &, 0.170819E+01_JPRB, 0.169696E+01_JPRB, 0.168532E+01_JPRB, 0.167330E+01_JPRB &
+  &, 0.166094E+01_JPRB, 0.164819E+01_JPRB, 0.163510E+01_JPRB &
+  &, 0.162170E+01_JPRB, 0.160795E+01_JPRB, 0.159389E+01_JPRB, 0.157952E+01_JPRB &
+  &, 0.156490E+01_JPRB, 0.154995E+01_JPRB, 0.153475E+01_JPRB &
+  &, 0.151929E+01_JPRB, 0.150361E+01_JPRB, 0.148769E+01_JPRB, 0.147153E+01_JPRB &
+  &, 0.145514E+01_JPRB, 0.143857E+01_JPRB, 0.142182E+01_JPRB &
+  &, 0.140488E+01_JPRB, 0.138779E+01_JPRB, 0.137051E+01_JPRB, 0.135313E+01_JPRB &
+  &, 0.133558E+01_JPRB, 0.131792E+01_JPRB, 0.130018E+01_JPRB &
+  &, 0.128228E+01_JPRB, 0.126437E+01_JPRB, 0.124630E+01_JPRB, 0.122820E+01_JPRB &
+  &, 0.121006E+01_JPRB, 0.119185E+01_JPRB, 0.117361E+01_JPRB &
+  &, 0.115533E+01_JPRB, 0.113708E+01_JPRB, 0.111879E+01_JPRB, 0.110050E+01_JPRB &
+  &, 0.108224E+01_JPRB, 0.106398E+01_JPRB, 0.104576E+01_JPRB &
+  &, 0.102755E+01_JPRB, 0.100943E+01_JPRB, 0.991330E+00_JPRB, 0.973328E+00_JPRB &
+  &, 0.955400E+00_JPRB, 0.937520E+00_JPRB, 0.919768E+00_JPRB &
+  &, 0.902117E+00_JPRB, 0.884540E+00_JPRB, 0.867061E+00_JPRB, 0.849706E+00_JPRB &
+  &, 0.832502E+00_JPRB, 0.815416E+00_JPRB, 0.798473E+00_JPRB &
+  &, 0.781700E+00_JPRB, 0.764998E+00_JPRB, 0.748515E+00_JPRB, 0.732150E+00_JPRB &
+  &, 0.715991E+00_JPRB, 0.699998E+00_JPRB, 0.684129E+00_JPRB/)
+XCW( 826, :) = (/ &
+  &  0.109322E+01_JPRB, 0.111629E+01_JPRB, 0.113923E+01_JPRB, 0.116204E+01_JPRB &
+  &, 0.118469E+01_JPRB, 0.120718E+01_JPRB, 0.122948E+01_JPRB &
+  &, 0.125159E+01_JPRB, 0.127348E+01_JPRB, 0.129516E+01_JPRB, 0.131659E+01_JPRB &
+  &, 0.133777E+01_JPRB, 0.135869E+01_JPRB, 0.137932E+01_JPRB &
+  &, 0.139967E+01_JPRB, 0.141970E+01_JPRB, 0.143941E+01_JPRB, 0.145879E+01_JPRB &
+  &, 0.147783E+01_JPRB, 0.149650E+01_JPRB, 0.151480E+01_JPRB &
+  &, 0.153270E+01_JPRB, 0.155023E+01_JPRB, 0.156734E+01_JPRB, 0.158403E+01_JPRB &
+  &, 0.160028E+01_JPRB, 0.161609E+01_JPRB, 0.163145E+01_JPRB &
+  &, 0.164634E+01_JPRB, 0.166076E+01_JPRB, 0.167470E+01_JPRB, 0.168815E+01_JPRB &
+  &, 0.170109E+01_JPRB, 0.171352E+01_JPRB, 0.172544E+01_JPRB &
+  &, 0.173683E+01_JPRB, 0.174769E+01_JPRB, 0.175802E+01_JPRB, 0.176780E+01_JPRB &
+  &, 0.177704E+01_JPRB, 0.178572E+01_JPRB, 0.179385E+01_JPRB &
+  &, 0.180142E+01_JPRB, 0.180841E+01_JPRB, 0.181486E+01_JPRB, 0.182072E+01_JPRB &
+  &, 0.182602E+01_JPRB, 0.183075E+01_JPRB, 0.183491E+01_JPRB &
+  &, 0.183850E+01_JPRB, 0.184149E+01_JPRB, 0.184395E+01_JPRB, 0.184583E+01_JPRB &
+  &, 0.184713E+01_JPRB, 0.184782E+01_JPRB, 0.184805E+01_JPRB &
+  &, 0.184768E+01_JPRB, 0.184675E+01_JPRB, 0.184526E+01_JPRB, 0.184323E+01_JPRB &
+  &, 0.184065E+01_JPRB, 0.183753E+01_JPRB, 0.183390E+01_JPRB &
+  &, 0.182972E+01_JPRB, 0.182502E+01_JPRB, 0.181983E+01_JPRB, 0.181411E+01_JPRB &
+  &, 0.180792E+01_JPRB, 0.180122E+01_JPRB, 0.179404E+01_JPRB &
+  &, 0.178638E+01_JPRB, 0.177824E+01_JPRB, 0.176966E+01_JPRB, 0.176064E+01_JPRB &
+  &, 0.175116E+01_JPRB, 0.174125E+01_JPRB, 0.173093E+01_JPRB &
+  &, 0.172021E+01_JPRB, 0.170907E+01_JPRB, 0.169753E+01_JPRB, 0.168563E+01_JPRB &
+  &, 0.167333E+01_JPRB, 0.166068E+01_JPRB, 0.164770E+01_JPRB &
+  &, 0.163437E+01_JPRB, 0.162072E+01_JPRB, 0.160673E+01_JPRB, 0.159245E+01_JPRB &
+  &, 0.157785E+01_JPRB, 0.156300E+01_JPRB, 0.154788E+01_JPRB &
+  &, 0.153247E+01_JPRB, 0.151682E+01_JPRB, 0.150094E+01_JPRB, 0.148482E+01_JPRB &
+  &, 0.146849E+01_JPRB, 0.145198E+01_JPRB, 0.143525E+01_JPRB &
+  &, 0.141833E+01_JPRB, 0.140126E+01_JPRB, 0.138402E+01_JPRB, 0.136664E+01_JPRB &
+  &, 0.134912E+01_JPRB, 0.133145E+01_JPRB, 0.131370E+01_JPRB &
+  &, 0.129582E+01_JPRB, 0.127788E+01_JPRB, 0.125983E+01_JPRB, 0.124174E+01_JPRB &
+  &, 0.122355E+01_JPRB, 0.120534E+01_JPRB, 0.118705E+01_JPRB &
+  &, 0.116875E+01_JPRB, 0.115047E+01_JPRB, 0.113212E+01_JPRB, 0.111380E+01_JPRB &
+  &, 0.109550E+01_JPRB, 0.107720E+01_JPRB, 0.105892E+01_JPRB &
+  &, 0.104066E+01_JPRB, 0.102248E+01_JPRB, 0.100432E+01_JPRB, 0.986245E+00_JPRB &
+  &, 0.968239E+00_JPRB, 0.950276E+00_JPRB, 0.932434E+00_JPRB &
+  &, 0.914688E+00_JPRB, 0.897064E+00_JPRB, 0.879477E+00_JPRB, 0.862065E+00_JPRB &
+  &, 0.844741E+00_JPRB, 0.827587E+00_JPRB, 0.810511E+00_JPRB &
+  &, 0.793598E+00_JPRB, 0.776811E+00_JPRB, 0.760237E+00_JPRB, 0.743776E+00_JPRB &
+  &, 0.727451E+00_JPRB, 0.711349E+00_JPRB, 0.695365E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART118',1,ZHOOK_HANDLE)
+END SUBROUTINE PART118
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART119
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART119',0,ZHOOK_HANDLE)
+
+XCW( 827, :) = (/ &
+  &  0.109363E+01_JPRB, 0.111681E+01_JPRB, 0.113987E+01_JPRB, 0.116279E+01_JPRB &
+  &, 0.118556E+01_JPRB, 0.120817E+01_JPRB, 0.123060E+01_JPRB &
+  &, 0.125283E+01_JPRB, 0.127486E+01_JPRB, 0.129667E+01_JPRB, 0.131823E+01_JPRB &
+  &, 0.133955E+01_JPRB, 0.136061E+01_JPRB, 0.138138E+01_JPRB &
+  &, 0.140187E+01_JPRB, 0.142205E+01_JPRB, 0.144191E+01_JPRB, 0.146144E+01_JPRB &
+  &, 0.148062E+01_JPRB, 0.149945E+01_JPRB, 0.151790E+01_JPRB &
+  &, 0.153597E+01_JPRB, 0.155365E+01_JPRB, 0.157092E+01_JPRB, 0.158777E+01_JPRB &
+  &, 0.160418E+01_JPRB, 0.162016E+01_JPRB, 0.163568E+01_JPRB &
+  &, 0.165074E+01_JPRB, 0.166533E+01_JPRB, 0.167944E+01_JPRB, 0.169305E+01_JPRB &
+  &, 0.170617E+01_JPRB, 0.171877E+01_JPRB, 0.173086E+01_JPRB &
+  &, 0.174242E+01_JPRB, 0.175346E+01_JPRB, 0.176396E+01_JPRB, 0.177391E+01_JPRB &
+  &, 0.178332E+01_JPRB, 0.179218E+01_JPRB, 0.180048E+01_JPRB &
+  &, 0.180822E+01_JPRB, 0.181540E+01_JPRB, 0.182201E+01_JPRB, 0.182805E+01_JPRB &
+  &, 0.183352E+01_JPRB, 0.183841E+01_JPRB, 0.184275E+01_JPRB &
+  &, 0.184650E+01_JPRB, 0.184968E+01_JPRB, 0.185230E+01_JPRB, 0.185434E+01_JPRB &
+  &, 0.185581E+01_JPRB, 0.185673E+01_JPRB, 0.185706E+01_JPRB &
+  &, 0.185685E+01_JPRB, 0.185609E+01_JPRB, 0.185475E+01_JPRB, 0.185287E+01_JPRB &
+  &, 0.185046E+01_JPRB, 0.184750E+01_JPRB, 0.184401E+01_JPRB &
+  &, 0.183999E+01_JPRB, 0.183545E+01_JPRB, 0.183039E+01_JPRB, 0.182482E+01_JPRB &
+  &, 0.181875E+01_JPRB, 0.181220E+01_JPRB, 0.180515E+01_JPRB &
+  &, 0.179762E+01_JPRB, 0.178963E+01_JPRB, 0.178118E+01_JPRB, 0.177227E+01_JPRB &
+  &, 0.176293E+01_JPRB, 0.175315E+01_JPRB, 0.174292E+01_JPRB &
+  &, 0.173230E+01_JPRB, 0.172127E+01_JPRB, 0.170986E+01_JPRB, 0.169804E+01_JPRB &
+  &, 0.168585E+01_JPRB, 0.167331E+01_JPRB, 0.166040E+01_JPRB &
+  &, 0.164715E+01_JPRB, 0.163357E+01_JPRB, 0.161968E+01_JPRB, 0.160547E+01_JPRB &
+  &, 0.159096E+01_JPRB, 0.157616E+01_JPRB, 0.156110E+01_JPRB &
+  &, 0.154577E+01_JPRB, 0.153017E+01_JPRB, 0.151433E+01_JPRB, 0.149828E+01_JPRB &
+  &, 0.148198E+01_JPRB, 0.146550E+01_JPRB, 0.144879E+01_JPRB &
+  &, 0.143193E+01_JPRB, 0.141487E+01_JPRB, 0.139767E+01_JPRB, 0.138030E+01_JPRB &
+  &, 0.136278E+01_JPRB, 0.134514E+01_JPRB, 0.132738E+01_JPRB &
+  &, 0.130952E+01_JPRB, 0.129156E+01_JPRB, 0.127352E+01_JPRB, 0.125539E+01_JPRB &
+  &, 0.123721E+01_JPRB, 0.121895E+01_JPRB, 0.120065E+01_JPRB &
+  &, 0.118234E+01_JPRB, 0.116401E+01_JPRB, 0.114563E+01_JPRB, 0.112728E+01_JPRB &
+  &, 0.110889E+01_JPRB, 0.109055E+01_JPRB, 0.107224E+01_JPRB &
+  &, 0.105392E+01_JPRB, 0.103569E+01_JPRB, 0.101746E+01_JPRB, 0.999318E+00_JPRB &
+  &, 0.981237E+00_JPRB, 0.963246E+00_JPRB, 0.945318E+00_JPRB &
+  &, 0.927479E+00_JPRB, 0.909700E+00_JPRB, 0.892064E+00_JPRB, 0.874540E+00_JPRB &
+  &, 0.857155E+00_JPRB, 0.839876E+00_JPRB, 0.822729E+00_JPRB &
+  &, 0.805678E+00_JPRB, 0.788808E+00_JPRB, 0.772083E+00_JPRB, 0.755527E+00_JPRB &
+  &, 0.739102E+00_JPRB, 0.722894E+00_JPRB, 0.706799E+00_JPRB/)
+XCW( 828, :) = (/ &
+  &  0.109405E+01_JPRB, 0.111734E+01_JPRB, 0.114051E+01_JPRB, 0.116355E+01_JPRB &
+  &, 0.118644E+01_JPRB, 0.120917E+01_JPRB, 0.123173E+01_JPRB &
+  &, 0.125409E+01_JPRB, 0.127624E+01_JPRB, 0.129818E+01_JPRB, 0.131989E+01_JPRB &
+  &, 0.134134E+01_JPRB, 0.136254E+01_JPRB, 0.138345E+01_JPRB &
+  &, 0.140408E+01_JPRB, 0.142441E+01_JPRB, 0.144442E+01_JPRB, 0.146410E+01_JPRB &
+  &, 0.148343E+01_JPRB, 0.150241E+01_JPRB, 0.152103E+01_JPRB &
+  &, 0.153925E+01_JPRB, 0.155709E+01_JPRB, 0.157452E+01_JPRB, 0.159153E+01_JPRB &
+  &, 0.160811E+01_JPRB, 0.162425E+01_JPRB, 0.163994E+01_JPRB &
+  &, 0.165517E+01_JPRB, 0.166992E+01_JPRB, 0.168420E+01_JPRB, 0.169798E+01_JPRB &
+  &, 0.171127E+01_JPRB, 0.172405E+01_JPRB, 0.173631E+01_JPRB &
+  &, 0.174805E+01_JPRB, 0.175925E+01_JPRB, 0.176993E+01_JPRB, 0.178006E+01_JPRB &
+  &, 0.178964E+01_JPRB, 0.179867E+01_JPRB, 0.180715E+01_JPRB &
+  &, 0.181507E+01_JPRB, 0.182242E+01_JPRB, 0.182920E+01_JPRB, 0.183542E+01_JPRB &
+  &, 0.184106E+01_JPRB, 0.184614E+01_JPRB, 0.185064E+01_JPRB &
+  &, 0.185457E+01_JPRB, 0.185792E+01_JPRB, 0.186071E+01_JPRB, 0.186292E+01_JPRB &
+  &, 0.186455E+01_JPRB, 0.186563E+01_JPRB, 0.186615E+01_JPRB &
+  &, 0.186609E+01_JPRB, 0.186546E+01_JPRB, 0.186432E+01_JPRB, 0.186260E+01_JPRB &
+  &, 0.186034E+01_JPRB, 0.185753E+01_JPRB, 0.185420E+01_JPRB &
+  &, 0.185033E+01_JPRB, 0.184595E+01_JPRB, 0.184102E+01_JPRB, 0.183561E+01_JPRB &
+  &, 0.182969E+01_JPRB, 0.182326E+01_JPRB, 0.181637E+01_JPRB &
+  &, 0.180897E+01_JPRB, 0.180111E+01_JPRB, 0.179279E+01_JPRB, 0.178400E+01_JPRB &
+  &, 0.177477E+01_JPRB, 0.176511E+01_JPRB, 0.175501E+01_JPRB &
+  &, 0.174451E+01_JPRB, 0.173358E+01_JPRB, 0.172228E+01_JPRB, 0.171055E+01_JPRB &
+  &, 0.169847E+01_JPRB, 0.168602E+01_JPRB, 0.167322E+01_JPRB &
+  &, 0.166004E+01_JPRB, 0.164657E+01_JPRB, 0.163275E+01_JPRB, 0.161860E+01_JPRB &
+  &, 0.160419E+01_JPRB, 0.158945E+01_JPRB, 0.157444E+01_JPRB &
+  &, 0.155894E+01_JPRB, 0.154364E+01_JPRB, 0.152788E+01_JPRB, 0.151183E+01_JPRB &
+  &, 0.149560E+01_JPRB, 0.147915E+01_JPRB, 0.146251E+01_JPRB &
+  &, 0.144567E+01_JPRB, 0.142862E+01_JPRB, 0.141144E+01_JPRB, 0.139411E+01_JPRB &
+  &, 0.137659E+01_JPRB, 0.135899E+01_JPRB, 0.134122E+01_JPRB &
+  &, 0.132338E+01_JPRB, 0.130540E+01_JPRB, 0.128734E+01_JPRB, 0.126922E+01_JPRB &
+  &, 0.125100E+01_JPRB, 0.123274E+01_JPRB, 0.121444E+01_JPRB &
+  &, 0.119607E+01_JPRB, 0.117772E+01_JPRB, 0.115932E+01_JPRB, 0.114090E+01_JPRB &
+  &, 0.112248E+01_JPRB, 0.110411E+01_JPRB, 0.108570E+01_JPRB &
+  &, 0.106733E+01_JPRB, 0.104904E+01_JPRB, 0.103076E+01_JPRB, 0.101255E+01_JPRB &
+  &, 0.994393E+00_JPRB, 0.976324E+00_JPRB, 0.958310E+00_JPRB &
+  &, 0.940380E+00_JPRB, 0.922560E+00_JPRB, 0.904877E+00_JPRB, 0.887244E+00_JPRB &
+  &, 0.869744E+00_JPRB, 0.852343E+00_JPRB, 0.835126E+00_JPRB &
+  &, 0.818001E+00_JPRB, 0.800990E+00_JPRB, 0.784179E+00_JPRB, 0.767468E+00_JPRB &
+  &, 0.750945E+00_JPRB, 0.734569E+00_JPRB, 0.718430E+00_JPRB/)
+XCW( 829, :) = (/ &
+  &  0.109447E+01_JPRB, 0.111787E+01_JPRB, 0.114116E+01_JPRB, 0.116431E+01_JPRB &
+  &, 0.118732E+01_JPRB, 0.121018E+01_JPRB, 0.123286E+01_JPRB &
+  &, 0.125535E+01_JPRB, 0.127763E+01_JPRB, 0.129970E+01_JPRB, 0.132154E+01_JPRB &
+  &, 0.134314E+01_JPRB, 0.136447E+01_JPRB, 0.138553E+01_JPRB &
+  &, 0.140631E+01_JPRB, 0.142678E+01_JPRB, 0.144694E+01_JPRB, 0.146677E+01_JPRB &
+  &, 0.148626E+01_JPRB, 0.150539E+01_JPRB, 0.152416E+01_JPRB &
+  &, 0.154255E+01_JPRB, 0.156054E+01_JPRB, 0.157814E+01_JPRB, 0.159531E+01_JPRB &
+  &, 0.161206E+01_JPRB, 0.162836E+01_JPRB, 0.164422E+01_JPRB &
+  &, 0.165962E+01_JPRB, 0.167454E+01_JPRB, 0.168899E+01_JPRB, 0.170295E+01_JPRB &
+  &, 0.171640E+01_JPRB, 0.172935E+01_JPRB, 0.174179E+01_JPRB &
+  &, 0.175370E+01_JPRB, 0.176509E+01_JPRB, 0.177593E+01_JPRB, 0.178624E+01_JPRB &
+  &, 0.179601E+01_JPRB, 0.180522E+01_JPRB, 0.181387E+01_JPRB &
+  &, 0.182196E+01_JPRB, 0.182948E+01_JPRB, 0.183645E+01_JPRB, 0.184284E+01_JPRB &
+  &, 0.184866E+01_JPRB, 0.185390E+01_JPRB, 0.185858E+01_JPRB &
+  &, 0.186269E+01_JPRB, 0.186621E+01_JPRB, 0.186917E+01_JPRB, 0.187155E+01_JPRB &
+  &, 0.187335E+01_JPRB, 0.187460E+01_JPRB, 0.187528E+01_JPRB &
+  &, 0.187540E+01_JPRB, 0.187496E+01_JPRB, 0.187394E+01_JPRB, 0.187239E+01_JPRB &
+  &, 0.187029E+01_JPRB, 0.186765E+01_JPRB, 0.186446E+01_JPRB &
+  &, 0.186075E+01_JPRB, 0.185650E+01_JPRB, 0.185175E+01_JPRB, 0.184648E+01_JPRB &
+  &, 0.184070E+01_JPRB, 0.183442E+01_JPRB, 0.182764E+01_JPRB &
+  &, 0.182040E+01_JPRB, 0.181267E+01_JPRB, 0.180448E+01_JPRB, 0.179583E+01_JPRB &
+  &, 0.178672E+01_JPRB, 0.177717E+01_JPRB, 0.176719E+01_JPRB &
+  &, 0.175681E+01_JPRB, 0.174601E+01_JPRB, 0.173477E+01_JPRB, 0.172319E+01_JPRB &
+  &, 0.171120E+01_JPRB, 0.169886E+01_JPRB, 0.168614E+01_JPRB &
+  &, 0.167307E+01_JPRB, 0.165965E+01_JPRB, 0.164593E+01_JPRB, 0.163188E+01_JPRB &
+  &, 0.161750E+01_JPRB, 0.160286E+01_JPRB, 0.158794E+01_JPRB &
+  &, 0.157271E+01_JPRB, 0.155724E+01_JPRB, 0.154153E+01_JPRB, 0.152556E+01_JPRB &
+  &, 0.150936E+01_JPRB, 0.149294E+01_JPRB, 0.147633E+01_JPRB &
+  &, 0.145951E+01_JPRB, 0.144252E+01_JPRB, 0.142539E+01_JPRB, 0.140803E+01_JPRB &
+  &, 0.139055E+01_JPRB, 0.137295E+01_JPRB, 0.135521E+01_JPRB &
+  &, 0.133737E+01_JPRB, 0.131940E+01_JPRB, 0.130132E+01_JPRB, 0.128321E+01_JPRB &
+  &, 0.126496E+01_JPRB, 0.124670E+01_JPRB, 0.122836E+01_JPRB &
+  &, 0.120998E+01_JPRB, 0.119157E+01_JPRB, 0.117315E+01_JPRB, 0.115471E+01_JPRB &
+  &, 0.113627E+01_JPRB, 0.111780E+01_JPRB, 0.109935E+01_JPRB &
+  &, 0.108094E+01_JPRB, 0.106260E+01_JPRB, 0.104426E+01_JPRB, 0.102598E+01_JPRB &
+  &, 0.100776E+01_JPRB, 0.989616E+00_JPRB, 0.971521E+00_JPRB &
+  &, 0.953502E+00_JPRB, 0.935588E+00_JPRB, 0.917804E+00_JPRB, 0.900121E+00_JPRB &
+  &, 0.882507E+00_JPRB, 0.865046E+00_JPRB, 0.847644E+00_JPRB &
+  &, 0.830445E+00_JPRB, 0.813356E+00_JPRB, 0.796399E+00_JPRB, 0.779599E+00_JPRB &
+  &, 0.762981E+00_JPRB, 0.746504E+00_JPRB, 0.730192E+00_JPRB/)
+XCW( 830, :) = (/ &
+  &  0.109488E+01_JPRB, 0.111840E+01_JPRB, 0.114180E+01_JPRB, 0.116508E+01_JPRB &
+  &, 0.118821E+01_JPRB, 0.121119E+01_JPRB, 0.123399E+01_JPRB &
+  &, 0.125661E+01_JPRB, 0.127903E+01_JPRB, 0.130123E+01_JPRB, 0.132321E+01_JPRB &
+  &, 0.134494E+01_JPRB, 0.136642E+01_JPRB, 0.138762E+01_JPRB &
+  &, 0.140854E+01_JPRB, 0.142916E+01_JPRB, 0.144947E+01_JPRB, 0.146946E+01_JPRB &
+  &, 0.148910E+01_JPRB, 0.150839E+01_JPRB, 0.152731E+01_JPRB &
+  &, 0.154586E+01_JPRB, 0.156402E+01_JPRB, 0.158177E+01_JPRB, 0.159911E+01_JPRB &
+  &, 0.161602E+01_JPRB, 0.163250E+01_JPRB, 0.164852E+01_JPRB &
+  &, 0.166409E+01_JPRB, 0.167919E+01_JPRB, 0.169380E+01_JPRB, 0.170793E+01_JPRB &
+  &, 0.172156E+01_JPRB, 0.173468E+01_JPRB, 0.174730E+01_JPRB &
+  &, 0.175939E+01_JPRB, 0.177095E+01_JPRB, 0.178198E+01_JPRB, 0.179247E+01_JPRB &
+  &, 0.180240E+01_JPRB, 0.181179E+01_JPRB, 0.182062E+01_JPRB &
+  &, 0.182889E+01_JPRB, 0.183659E+01_JPRB, 0.184373E+01_JPRB, 0.185030E+01_JPRB &
+  &, 0.185630E+01_JPRB, 0.186173E+01_JPRB, 0.186638E+01_JPRB &
+  &, 0.187085E+01_JPRB, 0.187455E+01_JPRB, 0.187766E+01_JPRB, 0.188024E+01_JPRB &
+  &, 0.188223E+01_JPRB, 0.188364E+01_JPRB, 0.188449E+01_JPRB &
+  &, 0.188476E+01_JPRB, 0.188449E+01_JPRB, 0.188364E+01_JPRB, 0.188225E+01_JPRB &
+  &, 0.188032E+01_JPRB, 0.187782E+01_JPRB, 0.187481E+01_JPRB &
+  &, 0.187125E+01_JPRB, 0.186717E+01_JPRB, 0.186254E+01_JPRB, 0.185743E+01_JPRB &
+  &, 0.185180E+01_JPRB, 0.184566E+01_JPRB, 0.183902E+01_JPRB &
+  &, 0.183191E+01_JPRB, 0.182432E+01_JPRB, 0.181627E+01_JPRB, 0.180774E+01_JPRB &
+  &, 0.179877E+01_JPRB, 0.178934E+01_JPRB, 0.177949E+01_JPRB &
+  &, 0.176922E+01_JPRB, 0.175851E+01_JPRB, 0.174742E+01_JPRB, 0.173593E+01_JPRB &
+  &, 0.172404E+01_JPRB, 0.171179E+01_JPRB, 0.169918E+01_JPRB &
+  &, 0.168619E+01_JPRB, 0.167287E+01_JPRB, 0.165923E+01_JPRB, 0.164525E+01_JPRB &
+  &, 0.163097E+01_JPRB, 0.161639E+01_JPRB, 0.160153E+01_JPRB &
+  &, 0.158639E+01_JPRB, 0.157098E+01_JPRB, 0.155531E+01_JPRB, 0.153941E+01_JPRB &
+  &, 0.152326E+01_JPRB, 0.150688E+01_JPRB, 0.149033E+01_JPRB &
+  &, 0.147353E+01_JPRB, 0.145656E+01_JPRB, 0.143945E+01_JPRB, 0.142214E+01_JPRB &
+  &, 0.140467E+01_JPRB, 0.138710E+01_JPRB, 0.136936E+01_JPRB &
+  &, 0.135151E+01_JPRB, 0.133353E+01_JPRB, 0.131546E+01_JPRB, 0.129733E+01_JPRB &
+  &, 0.127909E+01_JPRB, 0.126080E+01_JPRB, 0.124245E+01_JPRB &
+  &, 0.122403E+01_JPRB, 0.120561E+01_JPRB, 0.118713E+01_JPRB, 0.116866E+01_JPRB &
+  &, 0.115019E+01_JPRB, 0.113170E+01_JPRB, 0.111321E+01_JPRB &
+  &, 0.109475E+01_JPRB, 0.107631E+01_JPRB, 0.105791E+01_JPRB, 0.103958E+01_JPRB &
+  &, 0.102129E+01_JPRB, 0.100307E+01_JPRB, 0.984894E+00_JPRB &
+  &, 0.966845E+00_JPRB, 0.948839E+00_JPRB, 0.930957E+00_JPRB, 0.913113E+00_JPRB &
+  &, 0.895446E+00_JPRB, 0.877867E+00_JPRB, 0.860400E+00_JPRB &
+  &, 0.843072E+00_JPRB, 0.825907E+00_JPRB, 0.808869E+00_JPRB, 0.791983E+00_JPRB &
+  &, 0.775208E+00_JPRB, 0.758633E+00_JPRB, 0.742151E+00_JPRB/)
+XCW( 831, :) = (/ &
+  &  0.109531E+01_JPRB, 0.111893E+01_JPRB, 0.114245E+01_JPRB, 0.116584E+01_JPRB &
+  &, 0.118910E+01_JPRB, 0.121220E+01_JPRB, 0.123513E+01_JPRB &
+  &, 0.125788E+01_JPRB, 0.128043E+01_JPRB, 0.130277E+01_JPRB, 0.132488E+01_JPRB &
+  &, 0.134676E+01_JPRB, 0.136837E+01_JPRB, 0.138972E+01_JPRB &
+  &, 0.141079E+01_JPRB, 0.143156E+01_JPRB, 0.145202E+01_JPRB, 0.147215E+01_JPRB &
+  &, 0.149195E+01_JPRB, 0.151140E+01_JPRB, 0.153048E+01_JPRB &
+  &, 0.154919E+01_JPRB, 0.156751E+01_JPRB, 0.158543E+01_JPRB, 0.160293E+01_JPRB &
+  &, 0.162001E+01_JPRB, 0.163665E+01_JPRB, 0.165285E+01_JPRB &
+  &, 0.166859E+01_JPRB, 0.168385E+01_JPRB, 0.169865E+01_JPRB, 0.171295E+01_JPRB &
+  &, 0.172676E+01_JPRB, 0.174006E+01_JPRB, 0.175285E+01_JPRB &
+  &, 0.176511E+01_JPRB, 0.177685E+01_JPRB, 0.178806E+01_JPRB, 0.179872E+01_JPRB &
+  &, 0.180883E+01_JPRB, 0.181840E+01_JPRB, 0.182742E+01_JPRB &
+  &, 0.183586E+01_JPRB, 0.184375E+01_JPRB, 0.185106E+01_JPRB, 0.185781E+01_JPRB &
+  &, 0.186399E+01_JPRB, 0.186959E+01_JPRB, 0.187462E+01_JPRB &
+  &, 0.187907E+01_JPRB, 0.188295E+01_JPRB, 0.188604E+01_JPRB, 0.188899E+01_JPRB &
+  &, 0.189114E+01_JPRB, 0.189272E+01_JPRB, 0.189375E+01_JPRB &
+  &, 0.189420E+01_JPRB, 0.189408E+01_JPRB, 0.189341E+01_JPRB, 0.189219E+01_JPRB &
+  &, 0.189041E+01_JPRB, 0.188808E+01_JPRB, 0.188523E+01_JPRB &
+  &, 0.188182E+01_JPRB, 0.187789E+01_JPRB, 0.187342E+01_JPRB, 0.186845E+01_JPRB &
+  &, 0.186296E+01_JPRB, 0.185698E+01_JPRB, 0.185050E+01_JPRB &
+  &, 0.184353E+01_JPRB, 0.183606E+01_JPRB, 0.182814E+01_JPRB, 0.181974E+01_JPRB &
+  &, 0.181090E+01_JPRB, 0.180161E+01_JPRB, 0.179187E+01_JPRB &
+  &, 0.178172E+01_JPRB, 0.177114E+01_JPRB, 0.176015E+01_JPRB, 0.174878E+01_JPRB &
+  &, 0.173700E+01_JPRB, 0.172484E+01_JPRB, 0.171232E+01_JPRB &
+  &, 0.169945E+01_JPRB, 0.168621E+01_JPRB, 0.167267E+01_JPRB, 0.165877E+01_JPRB &
+  &, 0.164456E+01_JPRB, 0.163007E+01_JPRB, 0.161528E+01_JPRB &
+  &, 0.160020E+01_JPRB, 0.158484E+01_JPRB, 0.156925E+01_JPRB, 0.155337E+01_JPRB &
+  &, 0.153729E+01_JPRB, 0.152098E+01_JPRB, 0.150443E+01_JPRB &
+  &, 0.148770E+01_JPRB, 0.147072E+01_JPRB, 0.145366E+01_JPRB, 0.143640E+01_JPRB &
+  &, 0.141894E+01_JPRB, 0.140138E+01_JPRB, 0.138363E+01_JPRB &
+  &, 0.136581E+01_JPRB, 0.134786E+01_JPRB, 0.132978E+01_JPRB, 0.131162E+01_JPRB &
+  &, 0.129339E+01_JPRB, 0.127507E+01_JPRB, 0.125672E+01_JPRB &
+  &, 0.123830E+01_JPRB, 0.121982E+01_JPRB, 0.120133E+01_JPRB, 0.118280E+01_JPRB &
+  &, 0.116426E+01_JPRB, 0.114573E+01_JPRB, 0.112721E+01_JPRB &
+  &, 0.110871E+01_JPRB, 0.109023E+01_JPRB, 0.107177E+01_JPRB, 0.105338E+01_JPRB &
+  &, 0.103497E+01_JPRB, 0.101668E+01_JPRB, 0.998484E+00_JPRB &
+  &, 0.980298E+00_JPRB, 0.962258E+00_JPRB, 0.944281E+00_JPRB, 0.926392E+00_JPRB &
+  &, 0.908617E+00_JPRB, 0.890924E+00_JPRB, 0.873397E+00_JPRB &
+  &, 0.855941E+00_JPRB, 0.838642E+00_JPRB, 0.821027E+00_JPRB, 0.804493E+00_JPRB &
+  &, 0.787628E+00_JPRB, 0.770892E+00_JPRB, 0.754374E+00_JPRB/)
+XCW( 832, :) = (/ &
+  &  0.109573E+01_JPRB, 0.111947E+01_JPRB, 0.114310E+01_JPRB, 0.116661E+01_JPRB &
+  &, 0.118999E+01_JPRB, 0.121322E+01_JPRB, 0.123628E+01_JPRB &
+  &, 0.125915E+01_JPRB, 0.128184E+01_JPRB, 0.130431E+01_JPRB, 0.132656E+01_JPRB &
+  &, 0.134858E+01_JPRB, 0.137034E+01_JPRB, 0.139183E+01_JPRB &
+  &, 0.141305E+01_JPRB, 0.143397E+01_JPRB, 0.145458E+01_JPRB, 0.147487E+01_JPRB &
+  &, 0.149482E+01_JPRB, 0.151442E+01_JPRB, 0.153367E+01_JPRB &
+  &, 0.155254E+01_JPRB, 0.157102E+01_JPRB, 0.158910E+01_JPRB, 0.160677E+01_JPRB &
+  &, 0.162402E+01_JPRB, 0.164083E+01_JPRB, 0.165720E+01_JPRB &
+  &, 0.167311E+01_JPRB, 0.168855E+01_JPRB, 0.170352E+01_JPRB, 0.171800E+01_JPRB &
+  &, 0.173198E+01_JPRB, 0.174546E+01_JPRB, 0.175842E+01_JPRB &
+  &, 0.177087E+01_JPRB, 0.178279E+01_JPRB, 0.179417E+01_JPRB, 0.180502E+01_JPRB &
+  &, 0.181531E+01_JPRB, 0.182506E+01_JPRB, 0.183425E+01_JPRB &
+  &, 0.184288E+01_JPRB, 0.185095E+01_JPRB, 0.185844E+01_JPRB, 0.186537E+01_JPRB &
+  &, 0.187173E+01_JPRB, 0.187751E+01_JPRB, 0.188272E+01_JPRB &
+  &, 0.188735E+01_JPRB, 0.189140E+01_JPRB, 0.189489E+01_JPRB, 0.189780E+01_JPRB &
+  &, 0.190013E+01_JPRB, 0.190188E+01_JPRB, 0.190308E+01_JPRB &
+  &, 0.190370E+01_JPRB, 0.190376E+01_JPRB, 0.190326E+01_JPRB, 0.190220E+01_JPRB &
+  &, 0.190058E+01_JPRB, 0.189841E+01_JPRB, 0.189572E+01_JPRB &
+  &, 0.189247E+01_JPRB, 0.188870E+01_JPRB, 0.188440E+01_JPRB, 0.187957E+01_JPRB &
+  &, 0.187425E+01_JPRB, 0.186839E+01_JPRB, 0.186206E+01_JPRB &
+  &, 0.185522E+01_JPRB, 0.184790E+01_JPRB, 0.184012E+01_JPRB, 0.183186E+01_JPRB &
+  &, 0.182313E+01_JPRB, 0.181397E+01_JPRB, 0.180436E+01_JPRB &
+  &, 0.179434E+01_JPRB, 0.178386E+01_JPRB, 0.177300E+01_JPRB, 0.176173E+01_JPRB &
+  &, 0.175007E+01_JPRB, 0.173801E+01_JPRB, 0.172560E+01_JPRB &
+  &, 0.171281E+01_JPRB, 0.169969E+01_JPRB, 0.168620E+01_JPRB, 0.167240E+01_JPRB &
+  &, 0.165830E+01_JPRB, 0.164385E+01_JPRB, 0.162915E+01_JPRB &
+  &, 0.161413E+01_JPRB, 0.159886E+01_JPRB, 0.158329E+01_JPRB, 0.156749E+01_JPRB &
+  &, 0.155146E+01_JPRB, 0.153519E+01_JPRB, 0.151871E+01_JPRB &
+  &, 0.150201E+01_JPRB, 0.148513E+01_JPRB, 0.146805E+01_JPRB, 0.145077E+01_JPRB &
+  &, 0.143336E+01_JPRB, 0.141580E+01_JPRB, 0.139810E+01_JPRB &
+  &, 0.138027E+01_JPRB, 0.136232E+01_JPRB, 0.134426E+01_JPRB, 0.132608E+01_JPRB &
+  &, 0.130782E+01_JPRB, 0.128951E+01_JPRB, 0.127112E+01_JPRB &
+  &, 0.125270E+01_JPRB, 0.123418E+01_JPRB, 0.121567E+01_JPRB, 0.119712E+01_JPRB &
+  &, 0.117856E+01_JPRB, 0.115996E+01_JPRB, 0.114141E+01_JPRB &
+  &, 0.112282E+01_JPRB, 0.110429E+01_JPRB, 0.108579E+01_JPRB, 0.106734E+01_JPRB &
+  &, 0.104871E+01_JPRB, 0.103051E+01_JPRB, 0.101224E+01_JPRB &
+  &, 0.993971E+00_JPRB, 0.975844E+00_JPRB, 0.957774E+00_JPRB, 0.939786E+00_JPRB &
+  &, 0.921905E+00_JPRB, 0.904159E+00_JPRB, 0.886513E+00_JPRB &
+  &, 0.868993E+00_JPRB, 0.851562E+00_JPRB, 0.834308E+00_JPRB, 0.817192E+00_JPRB &
+  &, 0.800239E+00_JPRB, 0.783410E+00_JPRB, 0.766728E+00_JPRB/)
+XCW( 833, :) = (/ &
+  &  0.109615E+01_JPRB, 0.112001E+01_JPRB, 0.114376E+01_JPRB, 0.116739E+01_JPRB &
+  &, 0.119089E+01_JPRB, 0.121424E+01_JPRB, 0.123743E+01_JPRB &
+  &, 0.126044E+01_JPRB, 0.128325E+01_JPRB, 0.130586E+01_JPRB, 0.132825E+01_JPRB &
+  &, 0.135041E+01_JPRB, 0.137231E+01_JPRB, 0.139395E+01_JPRB &
+  &, 0.141531E+01_JPRB, 0.143638E+01_JPRB, 0.145715E+01_JPRB, 0.147759E+01_JPRB &
+  &, 0.149770E+01_JPRB, 0.151747E+01_JPRB, 0.153687E+01_JPRB &
+  &, 0.155590E+01_JPRB, 0.157455E+01_JPRB, 0.159280E+01_JPRB, 0.161063E+01_JPRB &
+  &, 0.162805E+01_JPRB, 0.164503E+01_JPRB, 0.166157E+01_JPRB &
+  &, 0.167765E+01_JPRB, 0.169327E+01_JPRB, 0.170841E+01_JPRB, 0.172307E+01_JPRB &
+  &, 0.173722E+01_JPRB, 0.175088E+01_JPRB, 0.176403E+01_JPRB &
+  &, 0.177666E+01_JPRB, 0.178876E+01_JPRB, 0.180032E+01_JPRB, 0.181135E+01_JPRB &
+  &, 0.182183E+01_JPRB, 0.183176E+01_JPRB, 0.184112E+01_JPRB &
+  &, 0.184994E+01_JPRB, 0.185819E+01_JPRB, 0.186587E+01_JPRB, 0.187298E+01_JPRB &
+  &, 0.187952E+01_JPRB, 0.188549E+01_JPRB, 0.189088E+01_JPRB &
+  &, 0.189568E+01_JPRB, 0.189992E+01_JPRB, 0.190358E+01_JPRB, 0.190666E+01_JPRB &
+  &, 0.190916E+01_JPRB, 0.191111E+01_JPRB, 0.191247E+01_JPRB &
+  &, 0.191326E+01_JPRB, 0.191349E+01_JPRB, 0.191316E+01_JPRB, 0.191227E+01_JPRB &
+  &, 0.191083E+01_JPRB, 0.190883E+01_JPRB, 0.190628E+01_JPRB &
+  &, 0.190319E+01_JPRB, 0.189959E+01_JPRB, 0.189543E+01_JPRB, 0.189077E+01_JPRB &
+  &, 0.188559E+01_JPRB, 0.187989E+01_JPRB, 0.187371E+01_JPRB &
+  &, 0.186703E+01_JPRB, 0.185985E+01_JPRB, 0.185218E+01_JPRB, 0.184407E+01_JPRB &
+  &, 0.183548E+01_JPRB, 0.182645E+01_JPRB, 0.181697E+01_JPRB &
+  &, 0.180706E+01_JPRB, 0.179671E+01_JPRB, 0.178596E+01_JPRB, 0.177481E+01_JPRB &
+  &, 0.176325E+01_JPRB, 0.175130E+01_JPRB, 0.173899E+01_JPRB &
+  &, 0.172629E+01_JPRB, 0.171317E+01_JPRB, 0.169987E+01_JPRB, 0.168618E+01_JPRB &
+  &, 0.167212E+01_JPRB, 0.165778E+01_JPRB, 0.164314E+01_JPRB &
+  &, 0.162819E+01_JPRB, 0.161298E+01_JPRB, 0.159750E+01_JPRB, 0.158175E+01_JPRB &
+  &, 0.156577E+01_JPRB, 0.154954E+01_JPRB, 0.153313E+01_JPRB &
+  &, 0.151646E+01_JPRB, 0.149961E+01_JPRB, 0.148255E+01_JPRB, 0.146533E+01_JPRB &
+  &, 0.144793E+01_JPRB, 0.143039E+01_JPRB, 0.141273E+01_JPRB &
+  &, 0.139490E+01_JPRB, 0.137693E+01_JPRB, 0.135890E+01_JPRB, 0.134071E+01_JPRB &
+  &, 0.132247E+01_JPRB, 0.130412E+01_JPRB, 0.128575E+01_JPRB &
+  &, 0.126728E+01_JPRB, 0.124876E+01_JPRB, 0.123020E+01_JPRB, 0.121159E+01_JPRB &
+  &, 0.119301E+01_JPRB, 0.117439E+01_JPRB, 0.115575E+01_JPRB &
+  &, 0.113718E+01_JPRB, 0.111856E+01_JPRB, 0.110001E+01_JPRB, 0.108145E+01_JPRB &
+  &, 0.106298E+01_JPRB, 0.104455E+01_JPRB, 0.102615E+01_JPRB &
+  &, 0.100786E+01_JPRB, 0.989599E+00_JPRB, 0.971495E+00_JPRB, 0.953410E+00_JPRB &
+  &, 0.935427E+00_JPRB, 0.917570E+00_JPRB, 0.899868E+00_JPRB &
+  &, 0.882226E+00_JPRB, 0.864729E+00_JPRB, 0.847339E+00_JPRB, 0.830081E+00_JPRB &
+  &, 0.813043E+00_JPRB, 0.796058E+00_JPRB, 0.779278E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART119',1,ZHOOK_HANDLE)
+END SUBROUTINE PART119
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART120
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART120',0,ZHOOK_HANDLE)
+
+XCW( 834, :) = (/ &
+  &  0.109658E+01_JPRB, 0.112055E+01_JPRB, 0.114442E+01_JPRB, 0.116817E+01_JPRB &
+  &, 0.119179E+01_JPRB, 0.121526E+01_JPRB, 0.123858E+01_JPRB &
+  &, 0.126172E+01_JPRB, 0.128467E+01_JPRB, 0.130742E+01_JPRB, 0.132995E+01_JPRB &
+  &, 0.135225E+01_JPRB, 0.137429E+01_JPRB, 0.139608E+01_JPRB &
+  &, 0.141759E+01_JPRB, 0.143881E+01_JPRB, 0.145973E+01_JPRB, 0.148033E+01_JPRB &
+  &, 0.150060E+01_JPRB, 0.152052E+01_JPRB, 0.154009E+01_JPRB &
+  &, 0.155928E+01_JPRB, 0.157810E+01_JPRB, 0.159651E+01_JPRB, 0.161452E+01_JPRB &
+  &, 0.163210E+01_JPRB, 0.164926E+01_JPRB, 0.166597E+01_JPRB &
+  &, 0.168223E+01_JPRB, 0.169802E+01_JPRB, 0.171334E+01_JPRB, 0.172817E+01_JPRB &
+  &, 0.174251E+01_JPRB, 0.175635E+01_JPRB, 0.176968E+01_JPRB &
+  &, 0.178248E+01_JPRB, 0.179477E+01_JPRB, 0.180651E+01_JPRB, 0.181772E+01_JPRB &
+  &, 0.182838E+01_JPRB, 0.183850E+01_JPRB, 0.184805E+01_JPRB &
+  &, 0.185704E+01_JPRB, 0.186548E+01_JPRB, 0.187334E+01_JPRB, 0.188064E+01_JPRB &
+  &, 0.188736E+01_JPRB, 0.189350E+01_JPRB, 0.189907E+01_JPRB &
+  &, 0.190408E+01_JPRB, 0.190848E+01_JPRB, 0.191233E+01_JPRB, 0.191558E+01_JPRB &
+  &, 0.191828E+01_JPRB, 0.192039E+01_JPRB, 0.192193E+01_JPRB &
+  &, 0.192290E+01_JPRB, 0.192331E+01_JPRB, 0.192313E+01_JPRB, 0.192241E+01_JPRB &
+  &, 0.192113E+01_JPRB, 0.191931E+01_JPRB, 0.191693E+01_JPRB &
+  &, 0.191401E+01_JPRB, 0.191055E+01_JPRB, 0.190658E+01_JPRB, 0.190206E+01_JPRB &
+  &, 0.189703E+01_JPRB, 0.189149E+01_JPRB, 0.188544E+01_JPRB &
+  &, 0.187890E+01_JPRB, 0.187187E+01_JPRB, 0.186436E+01_JPRB, 0.185639E+01_JPRB &
+  &, 0.184793E+01_JPRB, 0.183902E+01_JPRB, 0.182968E+01_JPRB &
+  &, 0.181988E+01_JPRB, 0.180966E+01_JPRB, 0.179903E+01_JPRB, 0.178799E+01_JPRB &
+  &, 0.177653E+01_JPRB, 0.176471E+01_JPRB, 0.175249E+01_JPRB &
+  &, 0.173991E+01_JPRB, 0.172698E+01_JPRB, 0.171369E+01_JPRB, 0.170005E+01_JPRB &
+  &, 0.168610E+01_JPRB, 0.167186E+01_JPRB, 0.165726E+01_JPRB &
+  &, 0.164241E+01_JPRB, 0.162726E+01_JPRB, 0.161184E+01_JPRB, 0.159614E+01_JPRB &
+  &, 0.158024E+01_JPRB, 0.156406E+01_JPRB, 0.154765E+01_JPRB &
+  &, 0.153106E+01_JPRB, 0.151424E+01_JPRB, 0.149724E+01_JPRB, 0.148004E+01_JPRB &
+  &, 0.146270E+01_JPRB, 0.144517E+01_JPRB, 0.142747E+01_JPRB &
+  &, 0.140968E+01_JPRB, 0.139171E+01_JPRB, 0.137367E+01_JPRB, 0.135550E+01_JPRB &
+  &, 0.133724E+01_JPRB, 0.131891E+01_JPRB, 0.130051E+01_JPRB &
+  &, 0.128200E+01_JPRB, 0.126348E+01_JPRB, 0.124491E+01_JPRB, 0.122629E+01_JPRB &
+  &, 0.120765E+01_JPRB, 0.118900E+01_JPRB, 0.117034E+01_JPRB &
+  &, 0.115169E+01_JPRB, 0.113303E+01_JPRB, 0.111438E+01_JPRB, 0.109583E+01_JPRB &
+  &, 0.107724E+01_JPRB, 0.105876E+01_JPRB, 0.104029E+01_JPRB &
+  &, 0.102192E+01_JPRB, 0.100358E+01_JPRB, 0.985385E+00_JPRB, 0.967207E+00_JPRB &
+  &, 0.949181E+00_JPRB, 0.931219E+00_JPRB, 0.913404E+00_JPRB &
+  &, 0.895642E+00_JPRB, 0.878018E+00_JPRB, 0.860557E+00_JPRB, 0.843222E+00_JPRB &
+  &, 0.826039E+00_JPRB, 0.808966E+00_JPRB, 0.792026E+00_JPRB/)
+XCW( 835, :) = (/ &
+  &  0.109701E+01_JPRB, 0.112109E+01_JPRB, 0.114508E+01_JPRB, 0.116895E+01_JPRB &
+  &, 0.119269E+01_JPRB, 0.121630E+01_JPRB, 0.123974E+01_JPRB &
+  &, 0.126301E+01_JPRB, 0.128610E+01_JPRB, 0.130899E+01_JPRB, 0.133166E+01_JPRB &
+  &, 0.135409E+01_JPRB, 0.137629E+01_JPRB, 0.139822E+01_JPRB &
+  &, 0.141988E+01_JPRB, 0.144126E+01_JPRB, 0.146233E+01_JPRB, 0.148308E+01_JPRB &
+  &, 0.150351E+01_JPRB, 0.152360E+01_JPRB, 0.154332E+01_JPRB &
+  &, 0.156268E+01_JPRB, 0.158166E+01_JPRB, 0.160025E+01_JPRB, 0.161842E+01_JPRB &
+  &, 0.163618E+01_JPRB, 0.165351E+01_JPRB, 0.167039E+01_JPRB &
+  &, 0.168683E+01_JPRB, 0.170279E+01_JPRB, 0.171829E+01_JPRB, 0.173331E+01_JPRB &
+  &, 0.174783E+01_JPRB, 0.176184E+01_JPRB, 0.177535E+01_JPRB &
+  &, 0.178834E+01_JPRB, 0.180080E+01_JPRB, 0.181274E+01_JPRB, 0.182413E+01_JPRB &
+  &, 0.183498E+01_JPRB, 0.184527E+01_JPRB, 0.185502E+01_JPRB &
+  &, 0.186420E+01_JPRB, 0.187281E+01_JPRB, 0.188087E+01_JPRB, 0.188835E+01_JPRB &
+  &, 0.189525E+01_JPRB, 0.190159E+01_JPRB, 0.190733E+01_JPRB &
+  &, 0.191251E+01_JPRB, 0.191711E+01_JPRB, 0.192114E+01_JPRB, 0.192457E+01_JPRB &
+  &, 0.192745E+01_JPRB, 0.192974E+01_JPRB, 0.193146E+01_JPRB &
+  &, 0.193260E+01_JPRB, 0.193317E+01_JPRB, 0.193319E+01_JPRB, 0.193264E+01_JPRB &
+  &, 0.193154E+01_JPRB, 0.192987E+01_JPRB, 0.192767E+01_JPRB &
+  &, 0.192491E+01_JPRB, 0.192161E+01_JPRB, 0.191778E+01_JPRB, 0.191343E+01_JPRB &
+  &, 0.190856E+01_JPRB, 0.190318E+01_JPRB, 0.189727E+01_JPRB &
+  &, 0.189090E+01_JPRB, 0.188401E+01_JPRB, 0.187663E+01_JPRB, 0.186879E+01_JPRB &
+  &, 0.186048E+01_JPRB, 0.185171E+01_JPRB, 0.184248E+01_JPRB &
+  &, 0.183282E+01_JPRB, 0.182274E+01_JPRB, 0.181222E+01_JPRB, 0.180128E+01_JPRB &
+  &, 0.178995E+01_JPRB, 0.177822E+01_JPRB, 0.176613E+01_JPRB &
+  &, 0.175364E+01_JPRB, 0.174080E+01_JPRB, 0.172762E+01_JPRB, 0.171407E+01_JPRB &
+  &, 0.170023E+01_JPRB, 0.168603E+01_JPRB, 0.167154E+01_JPRB &
+  &, 0.165675E+01_JPRB, 0.164166E+01_JPRB, 0.162634E+01_JPRB, 0.161070E+01_JPRB &
+  &, 0.159485E+01_JPRB, 0.157871E+01_JPRB, 0.156239E+01_JPRB &
+  &, 0.154580E+01_JPRB, 0.152904E+01_JPRB, 0.151208E+01_JPRB, 0.149491E+01_JPRB &
+  &, 0.147758E+01_JPRB, 0.146006E+01_JPRB, 0.144241E+01_JPRB &
+  &, 0.142463E+01_JPRB, 0.140670E+01_JPRB, 0.138865E+01_JPRB, 0.137047E+01_JPRB &
+  &, 0.135223E+01_JPRB, 0.133388E+01_JPRB, 0.131544E+01_JPRB &
+  &, 0.129694E+01_JPRB, 0.127837E+01_JPRB, 0.125976E+01_JPRB, 0.124114E+01_JPRB &
+  &, 0.122248E+01_JPRB, 0.120377E+01_JPRB, 0.118508E+01_JPRB &
+  &, 0.116635E+01_JPRB, 0.114765E+01_JPRB, 0.112901E+01_JPRB, 0.111036E+01_JPRB &
+  &, 0.109172E+01_JPRB, 0.107317E+01_JPRB, 0.105464E+01_JPRB &
+  &, 0.103615E+01_JPRB, 0.101778E+01_JPRB, 0.999446E+00_JPRB, 0.981233E+00_JPRB &
+  &, 0.963110E+00_JPRB, 0.945044E+00_JPRB, 0.927119E+00_JPRB &
+  &, 0.909300E+00_JPRB, 0.891553E+00_JPRB, 0.874024E+00_JPRB, 0.856554E+00_JPRB &
+  &, 0.839227E+00_JPRB, 0.822068E+00_JPRB, 0.805037E+00_JPRB/)
+XCW( 836, :) = (/ &
+  &  0.109744E+01_JPRB, 0.112163E+01_JPRB, 0.114574E+01_JPRB, 0.116973E+01_JPRB &
+  &, 0.119360E+01_JPRB, 0.121733E+01_JPRB, 0.124091E+01_JPRB &
+  &, 0.126431E+01_JPRB, 0.128754E+01_JPRB, 0.131056E+01_JPRB, 0.133337E+01_JPRB &
+  &, 0.135595E+01_JPRB, 0.137829E+01_JPRB, 0.140037E+01_JPRB &
+  &, 0.142218E+01_JPRB, 0.144371E+01_JPRB, 0.146494E+01_JPRB, 0.148585E+01_JPRB &
+  &, 0.150644E+01_JPRB, 0.152668E+01_JPRB, 0.154658E+01_JPRB &
+  &, 0.156610E+01_JPRB, 0.158525E+01_JPRB, 0.160400E+01_JPRB, 0.162235E+01_JPRB &
+  &, 0.164028E+01_JPRB, 0.165778E+01_JPRB, 0.167484E+01_JPRB &
+  &, 0.169145E+01_JPRB, 0.170760E+01_JPRB, 0.172327E+01_JPRB, 0.173847E+01_JPRB &
+  &, 0.175317E+01_JPRB, 0.176737E+01_JPRB, 0.178106E+01_JPRB &
+  &, 0.179423E+01_JPRB, 0.180689E+01_JPRB, 0.181900E+01_JPRB, 0.183058E+01_JPRB &
+  &, 0.184161E+01_JPRB, 0.185210E+01_JPRB, 0.186203E+01_JPRB &
+  &, 0.187140E+01_JPRB, 0.188020E+01_JPRB, 0.188843E+01_JPRB, 0.189610E+01_JPRB &
+  &, 0.190320E+01_JPRB, 0.190972E+01_JPRB, 0.191566E+01_JPRB &
+  &, 0.192101E+01_JPRB, 0.192580E+01_JPRB, 0.193001E+01_JPRB, 0.193364E+01_JPRB &
+  &, 0.193668E+01_JPRB, 0.193913E+01_JPRB, 0.194104E+01_JPRB &
+  &, 0.194237E+01_JPRB, 0.194313E+01_JPRB, 0.194332E+01_JPRB, 0.194294E+01_JPRB &
+  &, 0.194201E+01_JPRB, 0.194051E+01_JPRB, 0.193848E+01_JPRB &
+  &, 0.193589E+01_JPRB, 0.193276E+01_JPRB, 0.192908E+01_JPRB, 0.192490E+01_JPRB &
+  &, 0.192018E+01_JPRB, 0.191495E+01_JPRB, 0.190921E+01_JPRB &
+  &, 0.190296E+01_JPRB, 0.189622E+01_JPRB, 0.188900E+01_JPRB, 0.188129E+01_JPRB &
+  &, 0.187312E+01_JPRB, 0.186450E+01_JPRB, 0.185541E+01_JPRB &
+  &, 0.184588E+01_JPRB, 0.183591E+01_JPRB, 0.182552E+01_JPRB, 0.181472E+01_JPRB &
+  &, 0.180349E+01_JPRB, 0.179189E+01_JPRB, 0.177987E+01_JPRB &
+  &, 0.176750E+01_JPRB, 0.175476E+01_JPRB, 0.174167E+01_JPRB, 0.172823E+01_JPRB &
+  &, 0.171447E+01_JPRB, 0.170035E+01_JPRB, 0.168594E+01_JPRB &
+  &, 0.167125E+01_JPRB, 0.165623E+01_JPRB, 0.164094E+01_JPRB, 0.162539E+01_JPRB &
+  &, 0.160960E+01_JPRB, 0.159355E+01_JPRB, 0.157723E+01_JPRB &
+  &, 0.156072E+01_JPRB, 0.154400E+01_JPRB, 0.152707E+01_JPRB, 0.150992E+01_JPRB &
+  &, 0.149261E+01_JPRB, 0.147515E+01_JPRB, 0.145751E+01_JPRB &
+  &, 0.143973E+01_JPRB, 0.142185E+01_JPRB, 0.140379E+01_JPRB, 0.138564E+01_JPRB &
+  &, 0.136735E+01_JPRB, 0.134902E+01_JPRB, 0.133042E+01_JPRB &
+  &, 0.131206E+01_JPRB, 0.129346E+01_JPRB, 0.127485E+01_JPRB, 0.125617E+01_JPRB &
+  &, 0.123745E+01_JPRB, 0.121872E+01_JPRB, 0.120001E+01_JPRB &
+  &, 0.118126E+01_JPRB, 0.116252E+01_JPRB, 0.114379E+01_JPRB, 0.112504E+01_JPRB &
+  &, 0.110641E+01_JPRB, 0.108775E+01_JPRB, 0.106916E+01_JPRB &
+  &, 0.105065E+01_JPRB, 0.103215E+01_JPRB, 0.101379E+01_JPRB, 0.995432E+00_JPRB &
+  &, 0.977214E+00_JPRB, 0.959106E+00_JPRB, 0.941073E+00_JPRB &
+  &, 0.923141E+00_JPRB, 0.905334E+00_JPRB, 0.887617E+00_JPRB, 0.870074E+00_JPRB &
+  &, 0.852671E+00_JPRB, 0.835365E+00_JPRB, 0.818245E+00_JPRB/)
+XCW( 837, :) = (/ &
+  &  0.109787E+01_JPRB, 0.112218E+01_JPRB, 0.114641E+01_JPRB, 0.117052E+01_JPRB &
+  &, 0.119452E+01_JPRB, 0.121837E+01_JPRB, 0.124208E+01_JPRB &
+  &, 0.126562E+01_JPRB, 0.128898E+01_JPRB, 0.131214E+01_JPRB, 0.133509E+01_JPRB &
+  &, 0.135782E+01_JPRB, 0.138030E+01_JPRB, 0.140253E+01_JPRB &
+  &, 0.142450E+01_JPRB, 0.144618E+01_JPRB, 0.146756E+01_JPRB, 0.148863E+01_JPRB &
+  &, 0.150938E+01_JPRB, 0.152979E+01_JPRB, 0.154985E+01_JPRB &
+  &, 0.156954E+01_JPRB, 0.158885E+01_JPRB, 0.160777E+01_JPRB, 0.162630E+01_JPRB &
+  &, 0.164440E+01_JPRB, 0.166208E+01_JPRB, 0.167931E+01_JPRB &
+  &, 0.169610E+01_JPRB, 0.171243E+01_JPRB, 0.172828E+01_JPRB, 0.174366E+01_JPRB &
+  &, 0.175855E+01_JPRB, 0.177293E+01_JPRB, 0.178680E+01_JPRB &
+  &, 0.180016E+01_JPRB, 0.181300E+01_JPRB, 0.182530E+01_JPRB, 0.183707E+01_JPRB &
+  &, 0.184829E+01_JPRB, 0.185896E+01_JPRB, 0.186908E+01_JPRB &
+  &, 0.187864E+01_JPRB, 0.188764E+01_JPRB, 0.189605E+01_JPRB, 0.190391E+01_JPRB &
+  &, 0.191120E+01_JPRB, 0.191790E+01_JPRB, 0.192402E+01_JPRB &
+  &, 0.192958E+01_JPRB, 0.193455E+01_JPRB, 0.193893E+01_JPRB, 0.194274E+01_JPRB &
+  &, 0.194597E+01_JPRB, 0.194863E+01_JPRB, 0.195072E+01_JPRB &
+  &, 0.195222E+01_JPRB, 0.195315E+01_JPRB, 0.195352E+01_JPRB, 0.195332E+01_JPRB &
+  &, 0.195255E+01_JPRB, 0.195124E+01_JPRB, 0.194936E+01_JPRB &
+  &, 0.194694E+01_JPRB, 0.194398E+01_JPRB, 0.194047E+01_JPRB, 0.193644E+01_JPRB &
+  &, 0.193190E+01_JPRB, 0.192682E+01_JPRB, 0.192123E+01_JPRB &
+  &, 0.191515E+01_JPRB, 0.190856E+01_JPRB, 0.190147E+01_JPRB, 0.189393E+01_JPRB &
+  &, 0.188588E+01_JPRB, 0.187739E+01_JPRB, 0.186769E+01_JPRB &
+  &, 0.185904E+01_JPRB, 0.184921E+01_JPRB, 0.183893E+01_JPRB, 0.182823E+01_JPRB &
+  &, 0.181714E+01_JPRB, 0.180565E+01_JPRB, 0.179375E+01_JPRB &
+  &, 0.178148E+01_JPRB, 0.176887E+01_JPRB, 0.175587E+01_JPRB, 0.174252E+01_JPRB &
+  &, 0.172884E+01_JPRB, 0.171483E+01_JPRB, 0.170050E+01_JPRB &
+  &, 0.168585E+01_JPRB, 0.167093E+01_JPRB, 0.165573E+01_JPRB, 0.164025E+01_JPRB &
+  &, 0.162448E+01_JPRB, 0.160848E+01_JPRB, 0.159225E+01_JPRB &
+  &, 0.157578E+01_JPRB, 0.155910E+01_JPRB, 0.154220E+01_JPRB, 0.152512E+01_JPRB &
+  &, 0.150784E+01_JPRB, 0.149039E+01_JPRB, 0.147281E+01_JPRB &
+  &, 0.145504E+01_JPRB, 0.143712E+01_JPRB, 0.141910E+01_JPRB, 0.140094E+01_JPRB &
+  &, 0.138268E+01_JPRB, 0.136433E+01_JPRB, 0.134588E+01_JPRB &
+  &, 0.132737E+01_JPRB, 0.130877E+01_JPRB, 0.129011E+01_JPRB, 0.127139E+01_JPRB &
+  &, 0.125266E+01_JPRB, 0.123392E+01_JPRB, 0.121510E+01_JPRB &
+  &, 0.119631E+01_JPRB, 0.117755E+01_JPRB, 0.115873E+01_JPRB, 0.113999E+01_JPRB &
+  &, 0.112125E+01_JPRB, 0.110254E+01_JPRB, 0.108389E+01_JPRB &
+  &, 0.106526E+01_JPRB, 0.104674E+01_JPRB, 0.102825E+01_JPRB, 0.100986E+01_JPRB &
+  &, 0.991552E+00_JPRB, 0.973345E+00_JPRB, 0.955207E+00_JPRB &
+  &, 0.937164E+00_JPRB, 0.919239E+00_JPRB, 0.901458E+00_JPRB, 0.883785E+00_JPRB &
+  &, 0.866242E+00_JPRB, 0.848856E+00_JPRB, 0.831584E+00_JPRB/)
+XCW( 838, :) = (/ &
+  &  0.109830E+01_JPRB, 0.112273E+01_JPRB, 0.114707E+01_JPRB, 0.117131E+01_JPRB &
+  &, 0.119543E+01_JPRB, 0.121942E+01_JPRB, 0.124326E+01_JPRB &
+  &, 0.126693E+01_JPRB, 0.129042E+01_JPRB, 0.131373E+01_JPRB, 0.133682E+01_JPRB &
+  &, 0.135969E+01_JPRB, 0.138232E+01_JPRB, 0.140471E+01_JPRB &
+  &, 0.142682E+01_JPRB, 0.144866E+01_JPRB, 0.147020E+01_JPRB, 0.149143E+01_JPRB &
+  &, 0.151234E+01_JPRB, 0.153291E+01_JPRB, 0.155313E+01_JPRB &
+  &, 0.157299E+01_JPRB, 0.159247E+01_JPRB, 0.161157E+01_JPRB, 0.163026E+01_JPRB &
+  &, 0.164854E+01_JPRB, 0.166640E+01_JPRB, 0.168381E+01_JPRB &
+  &, 0.170078E+01_JPRB, 0.171729E+01_JPRB, 0.173332E+01_JPRB, 0.174888E+01_JPRB &
+  &, 0.176395E+01_JPRB, 0.177852E+01_JPRB, 0.179259E+01_JPRB &
+  &, 0.180613E+01_JPRB, 0.181915E+01_JPRB, 0.183165E+01_JPRB, 0.184360E+01_JPRB &
+  &, 0.185502E+01_JPRB, 0.186587E+01_JPRB, 0.187618E+01_JPRB &
+  &, 0.188591E+01_JPRB, 0.189512E+01_JPRB, 0.190373E+01_JPRB, 0.191178E+01_JPRB &
+  &, 0.191924E+01_JPRB, 0.192614E+01_JPRB, 0.193246E+01_JPRB &
+  &, 0.193819E+01_JPRB, 0.194335E+01_JPRB, 0.194793E+01_JPRB, 0.195193E+01_JPRB &
+  &, 0.195535E+01_JPRB, 0.195818E+01_JPRB, 0.196044E+01_JPRB &
+  &, 0.196213E+01_JPRB, 0.196324E+01_JPRB, 0.196379E+01_JPRB, 0.196377E+01_JPRB &
+  &, 0.196318E+01_JPRB, 0.196204E+01_JPRB, 0.196033E+01_JPRB &
+  &, 0.195809E+01_JPRB, 0.195529E+01_JPRB, 0.195196E+01_JPRB, 0.194809E+01_JPRB &
+  &, 0.194369E+01_JPRB, 0.193878E+01_JPRB, 0.193335E+01_JPRB &
+  &, 0.192742E+01_JPRB, 0.192098E+01_JPRB, 0.191404E+01_JPRB, 0.190665E+01_JPRB &
+  &, 0.189875E+01_JPRB, 0.189039E+01_JPRB, 0.188158E+01_JPRB &
+  &, 0.187232E+01_JPRB, 0.186260E+01_JPRB, 0.185247E+01_JPRB, 0.184191E+01_JPRB &
+  &, 0.183092E+01_JPRB, 0.181954E+01_JPRB, 0.180777E+01_JPRB &
+  &, 0.179560E+01_JPRB, 0.178308E+01_JPRB, 0.177018E+01_JPRB, 0.175695E+01_JPRB &
+  &, 0.174336E+01_JPRB, 0.172943E+01_JPRB, 0.171518E+01_JPRB &
+  &, 0.170064E+01_JPRB, 0.168579E+01_JPRB, 0.167066E+01_JPRB, 0.165524E+01_JPRB &
+  &, 0.163953E+01_JPRB, 0.162362E+01_JPRB, 0.160744E+01_JPRB &
+  &, 0.159102E+01_JPRB, 0.157438E+01_JPRB, 0.155752E+01_JPRB, 0.154047E+01_JPRB &
+  &, 0.152322E+01_JPRB, 0.150583E+01_JPRB, 0.148823E+01_JPRB &
+  &, 0.147051E+01_JPRB, 0.145259E+01_JPRB, 0.143458E+01_JPRB, 0.141646E+01_JPRB &
+  &, 0.139818E+01_JPRB, 0.137981E+01_JPRB, 0.136134E+01_JPRB &
+  &, 0.134285E+01_JPRB, 0.132421E+01_JPRB, 0.130557E+01_JPRB, 0.128684E+01_JPRB &
+  &, 0.126806E+01_JPRB, 0.124926E+01_JPRB, 0.123042E+01_JPRB &
+  &, 0.121162E+01_JPRB, 0.119278E+01_JPRB, 0.117393E+01_JPRB, 0.115510E+01_JPRB &
+  &, 0.113631E+01_JPRB, 0.111755E+01_JPRB, 0.109884E+01_JPRB &
+  &, 0.108015E+01_JPRB, 0.106156E+01_JPRB, 0.104299E+01_JPRB, 0.102452E+01_JPRB &
+  &, 0.100612E+01_JPRB, 0.987761E+00_JPRB, 0.969581E+00_JPRB &
+  &, 0.951429E+00_JPRB, 0.933451E+00_JPRB, 0.915549E+00_JPRB, 0.897748E+00_JPRB &
+  &, 0.880134E+00_JPRB, 0.862607E+00_JPRB, 0.845252E+00_JPRB/)
+XCW( 839, :) = (/ &
+  &  0.109874E+01_JPRB, 0.112328E+01_JPRB, 0.114775E+01_JPRB, 0.117211E+01_JPRB &
+  &, 0.119635E+01_JPRB, 0.122047E+01_JPRB, 0.124444E+01_JPRB &
+  &, 0.126825E+01_JPRB, 0.129188E+01_JPRB, 0.131532E+01_JPRB, 0.133856E+01_JPRB &
+  &, 0.136158E+01_JPRB, 0.138436E+01_JPRB, 0.140689E+01_JPRB &
+  &, 0.142916E+01_JPRB, 0.145115E+01_JPRB, 0.147285E+01_JPRB, 0.149424E+01_JPRB &
+  &, 0.151531E+01_JPRB, 0.153605E+01_JPRB, 0.155644E+01_JPRB &
+  &, 0.157647E+01_JPRB, 0.159612E+01_JPRB, 0.161539E+01_JPRB, 0.163425E+01_JPRB &
+  &, 0.165271E+01_JPRB, 0.167074E+01_JPRB, 0.168834E+01_JPRB &
+  &, 0.170548E+01_JPRB, 0.172218E+01_JPRB, 0.173840E+01_JPRB, 0.175414E+01_JPRB &
+  &, 0.176939E+01_JPRB, 0.178415E+01_JPRB, 0.179840E+01_JPRB &
+  &, 0.181214E+01_JPRB, 0.182534E+01_JPRB, 0.183803E+01_JPRB, 0.185017E+01_JPRB &
+  &, 0.186178E+01_JPRB, 0.187283E+01_JPRB, 0.188333E+01_JPRB &
+  &, 0.189327E+01_JPRB, 0.190264E+01_JPRB, 0.191145E+01_JPRB, 0.191969E+01_JPRB &
+  &, 0.192735E+01_JPRB, 0.193439E+01_JPRB, 0.194094E+01_JPRB &
+  &, 0.194687E+01_JPRB, 0.195222E+01_JPRB, 0.195699E+01_JPRB, 0.196117E+01_JPRB &
+  &, 0.196477E+01_JPRB, 0.196780E+01_JPRB, 0.197025E+01_JPRB &
+  &, 0.197212E+01_JPRB, 0.197342E+01_JPRB, 0.197414E+01_JPRB, 0.197429E+01_JPRB &
+  &, 0.197389E+01_JPRB, 0.197292E+01_JPRB, 0.197139E+01_JPRB &
+  &, 0.196932E+01_JPRB, 0.196670E+01_JPRB, 0.196353E+01_JPRB, 0.195982E+01_JPRB &
+  &, 0.195559E+01_JPRB, 0.195085E+01_JPRB, 0.194557E+01_JPRB &
+  &, 0.193980E+01_JPRB, 0.193351E+01_JPRB, 0.192673E+01_JPRB, 0.191946E+01_JPRB &
+  &, 0.191173E+01_JPRB, 0.190352E+01_JPRB, 0.189484E+01_JPRB &
+  &, 0.188569E+01_JPRB, 0.187612E+01_JPRB, 0.186610E+01_JPRB, 0.185568E+01_JPRB &
+  &, 0.184483E+01_JPRB, 0.183356E+01_JPRB, 0.182190E+01_JPRB &
+  &, 0.180986E+01_JPRB, 0.179744E+01_JPRB, 0.178463E+01_JPRB, 0.177149E+01_JPRB &
+  &, 0.175799E+01_JPRB, 0.174419E+01_JPRB, 0.173001E+01_JPRB &
+  &, 0.171555E+01_JPRB, 0.170078E+01_JPRB, 0.168572E+01_JPRB, 0.167037E+01_JPRB &
+  &, 0.165475E+01_JPRB, 0.163887E+01_JPRB, 0.162278E+01_JPRB &
+  &, 0.160640E+01_JPRB, 0.158981E+01_JPRB, 0.157299E+01_JPRB, 0.155601E+01_JPRB &
+  &, 0.153879E+01_JPRB, 0.152139E+01_JPRB, 0.150384E+01_JPRB &
+  &, 0.148614E+01_JPRB, 0.146827E+01_JPRB, 0.145026E+01_JPRB, 0.143214E+01_JPRB &
+  &, 0.141385E+01_JPRB, 0.139552E+01_JPRB, 0.137703E+01_JPRB &
+  &, 0.135851E+01_JPRB, 0.133989E+01_JPRB, 0.132116E+01_JPRB, 0.130243E+01_JPRB &
+  &, 0.128366E+01_JPRB, 0.126480E+01_JPRB, 0.124595E+01_JPRB &
+  &, 0.122707E+01_JPRB, 0.120821E+01_JPRB, 0.118933E+01_JPRB, 0.117046E+01_JPRB &
+  &, 0.115158E+01_JPRB, 0.113277E+01_JPRB, 0.111395E+01_JPRB &
+  &, 0.109520E+01_JPRB, 0.107654E+01_JPRB, 0.105790E+01_JPRB, 0.103935E+01_JPRB &
+  &, 0.102087E+01_JPRB, 0.100247E+01_JPRB, 0.984135E+00_JPRB &
+  &, 0.965937E+00_JPRB, 0.947786E+00_JPRB, 0.929827E+00_JPRB, 0.911963E+00_JPRB &
+  &, 0.894154E+00_JPRB, 0.876552E+00_JPRB, 0.859052E+00_JPRB/)
+XCW( 840, :) = (/ &
+  &  0.109917E+01_JPRB, 0.112384E+01_JPRB, 0.114842E+01_JPRB, 0.117291E+01_JPRB &
+  &, 0.119728E+01_JPRB, 0.122152E+01_JPRB, 0.124563E+01_JPRB &
+  &, 0.126957E+01_JPRB, 0.129334E+01_JPRB, 0.131692E+01_JPRB, 0.134030E+01_JPRB &
+  &, 0.136347E+01_JPRB, 0.138640E+01_JPRB, 0.140908E+01_JPRB &
+  &, 0.143151E+01_JPRB, 0.145366E+01_JPRB, 0.147551E+01_JPRB, 0.149707E+01_JPRB &
+  &, 0.151830E+01_JPRB, 0.153920E+01_JPRB, 0.155976E+01_JPRB &
+  &, 0.157996E+01_JPRB, 0.159979E+01_JPRB, 0.161923E+01_JPRB, 0.163827E+01_JPRB &
+  &, 0.165690E+01_JPRB, 0.167511E+01_JPRB, 0.169289E+01_JPRB &
+  &, 0.171022E+01_JPRB, 0.172709E+01_JPRB, 0.174350E+01_JPRB, 0.175942E+01_JPRB &
+  &, 0.177487E+01_JPRB, 0.178981E+01_JPRB, 0.180425E+01_JPRB &
+  &, 0.181817E+01_JPRB, 0.183158E+01_JPRB, 0.184445E+01_JPRB, 0.185679E+01_JPRB &
+  &, 0.186858E+01_JPRB, 0.187983E+01_JPRB, 0.189052E+01_JPRB &
+  &, 0.190065E+01_JPRB, 0.191023E+01_JPRB, 0.191922E+01_JPRB, 0.192765E+01_JPRB &
+  &, 0.193549E+01_JPRB, 0.194279E+01_JPRB, 0.194948E+01_JPRB &
+  &, 0.195561E+01_JPRB, 0.196115E+01_JPRB, 0.196610E+01_JPRB, 0.197048E+01_JPRB &
+  &, 0.197427E+01_JPRB, 0.197748E+01_JPRB, 0.198011E+01_JPRB &
+  &, 0.198218E+01_JPRB, 0.198366E+01_JPRB, 0.198456E+01_JPRB, 0.198490E+01_JPRB &
+  &, 0.198467E+01_JPRB, 0.198389E+01_JPRB, 0.198254E+01_JPRB &
+  &, 0.198064E+01_JPRB, 0.197818E+01_JPRB, 0.197518E+01_JPRB, 0.197166E+01_JPRB &
+  &, 0.196758E+01_JPRB, 0.196301E+01_JPRB, 0.195790E+01_JPRB &
+  &, 0.195226E+01_JPRB, 0.194615E+01_JPRB, 0.193952E+01_JPRB, 0.193241E+01_JPRB &
+  &, 0.192481E+01_JPRB, 0.191675E+01_JPRB, 0.190819E+01_JPRB &
+  &, 0.189922E+01_JPRB, 0.188977E+01_JPRB, 0.187989E+01_JPRB, 0.186959E+01_JPRB &
+  &, 0.185885E+01_JPRB, 0.184771E+01_JPRB, 0.183616E+01_JPRB &
+  &, 0.182423E+01_JPRB, 0.181191E+01_JPRB, 0.179923E+01_JPRB, 0.178619E+01_JPRB &
+  &, 0.177281E+01_JPRB, 0.175906E+01_JPRB, 0.174500E+01_JPRB &
+  &, 0.173063E+01_JPRB, 0.171593E+01_JPRB, 0.170095E+01_JPRB, 0.168566E+01_JPRB &
+  &, 0.167011E+01_JPRB, 0.165432E+01_JPRB, 0.163825E+01_JPRB &
+  &, 0.162196E+01_JPRB, 0.160542E+01_JPRB, 0.158864E+01_JPRB, 0.157170E+01_JPRB &
+  &, 0.155451E+01_JPRB, 0.153718E+01_JPRB, 0.151965E+01_JPRB &
+  &, 0.150193E+01_JPRB, 0.148411E+01_JPRB, 0.146611E+01_JPRB, 0.144799E+01_JPRB &
+  &, 0.142974E+01_JPRB, 0.141135E+01_JPRB, 0.139289E+01_JPRB &
+  &, 0.137434E+01_JPRB, 0.135570E+01_JPRB, 0.133703E+01_JPRB, 0.131822E+01_JPRB &
+  &, 0.129944E+01_JPRB, 0.128058E+01_JPRB, 0.126167E+01_JPRB &
+  &, 0.124273E+01_JPRB, 0.122384E+01_JPRB, 0.120488E+01_JPRB, 0.118598E+01_JPRB &
+  &, 0.116706E+01_JPRB, 0.114815E+01_JPRB, 0.112933E+01_JPRB &
+  &, 0.111052E+01_JPRB, 0.109175E+01_JPRB, 0.107304E+01_JPRB, 0.105441E+01_JPRB &
+  &, 0.103585E+01_JPRB, 0.101736E+01_JPRB, 0.998928E+00_JPRB &
+  &, 0.980628E+00_JPRB, 0.962429E+00_JPRB, 0.944292E+00_JPRB, 0.926305E+00_JPRB &
+  &, 0.908494E+00_JPRB, 0.890757E+00_JPRB, 0.873114E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART120',1,ZHOOK_HANDLE)
+END SUBROUTINE PART120
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART121
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART121',0,ZHOOK_HANDLE)
+
+XCW( 841, :) = (/ &
+  &  0.109961E+01_JPRB, 0.112439E+01_JPRB, 0.114910E+01_JPRB, 0.117371E+01_JPRB &
+  &, 0.119821E+01_JPRB, 0.122258E+01_JPRB, 0.124682E+01_JPRB &
+  &, 0.127090E+01_JPRB, 0.129481E+01_JPRB, 0.131853E+01_JPRB, 0.134206E+01_JPRB &
+  &, 0.136537E+01_JPRB, 0.138845E+01_JPRB, 0.141129E+01_JPRB &
+  &, 0.143387E+01_JPRB, 0.145617E+01_JPRB, 0.147819E+01_JPRB, 0.149991E+01_JPRB &
+  &, 0.152131E+01_JPRB, 0.154238E+01_JPRB, 0.156310E+01_JPRB &
+  &, 0.158347E+01_JPRB, 0.160347E+01_JPRB, 0.162309E+01_JPRB, 0.164231E+01_JPRB &
+  &, 0.166112E+01_JPRB, 0.167951E+01_JPRB, 0.169746E+01_JPRB &
+  &, 0.171496E+01_JPRB, 0.173203E+01_JPRB, 0.174863E+01_JPRB, 0.176474E+01_JPRB &
+  &, 0.178037E+01_JPRB, 0.179551E+01_JPRB, 0.181014E+01_JPRB &
+  &, 0.182425E+01_JPRB, 0.183784E+01_JPRB, 0.185091E+01_JPRB, 0.186345E+01_JPRB &
+  &, 0.187543E+01_JPRB, 0.188688E+01_JPRB, 0.189776E+01_JPRB &
+  &, 0.190809E+01_JPRB, 0.191786E+01_JPRB, 0.192705E+01_JPRB, 0.193568E+01_JPRB &
+  &, 0.194373E+01_JPRB, 0.195119E+01_JPRB, 0.195809E+01_JPRB &
+  &, 0.196440E+01_JPRB, 0.197014E+01_JPRB, 0.197529E+01_JPRB, 0.197985E+01_JPRB &
+  &, 0.198383E+01_JPRB, 0.198724E+01_JPRB, 0.199006E+01_JPRB &
+  &, 0.199230E+01_JPRB, 0.199397E+01_JPRB, 0.199507E+01_JPRB, 0.199559E+01_JPRB &
+  &, 0.199555E+01_JPRB, 0.199493E+01_JPRB, 0.199377E+01_JPRB &
+  &, 0.199204E+01_JPRB, 0.198976E+01_JPRB, 0.198694E+01_JPRB, 0.198357E+01_JPRB &
+  &, 0.197968E+01_JPRB, 0.197526E+01_JPRB, 0.197031E+01_JPRB &
+  &, 0.196485E+01_JPRB, 0.195888E+01_JPRB, 0.195238E+01_JPRB, 0.194544E+01_JPRB &
+  &, 0.193800E+01_JPRB, 0.193009E+01_JPRB, 0.192169E+01_JPRB &
+  &, 0.191284E+01_JPRB, 0.190353E+01_JPRB, 0.189378E+01_JPRB, 0.188359E+01_JPRB &
+  &, 0.187300E+01_JPRB, 0.186198E+01_JPRB, 0.185056E+01_JPRB &
+  &, 0.183874E+01_JPRB, 0.182655E+01_JPRB, 0.181397E+01_JPRB, 0.180103E+01_JPRB &
+  &, 0.178775E+01_JPRB, 0.177409E+01_JPRB, 0.176012E+01_JPRB &
+  &, 0.174583E+01_JPRB, 0.173124E+01_JPRB, 0.171633E+01_JPRB, 0.170112E+01_JPRB &
+  &, 0.168564E+01_JPRB, 0.166991E+01_JPRB, 0.165390E+01_JPRB &
+  &, 0.163767E+01_JPRB, 0.162117E+01_JPRB, 0.160448E+01_JPRB, 0.158754E+01_JPRB &
+  &, 0.157042E+01_JPRB, 0.155312E+01_JPRB, 0.153558E+01_JPRB &
+  &, 0.151792E+01_JPRB, 0.150011E+01_JPRB, 0.148212E+01_JPRB, 0.146400E+01_JPRB &
+  &, 0.144576E+01_JPRB, 0.142740E+01_JPRB, 0.140897E+01_JPRB &
+  &, 0.139041E+01_JPRB, 0.137174E+01_JPRB, 0.135303E+01_JPRB, 0.133423E+01_JPRB &
+  &, 0.131541E+01_JPRB, 0.129650E+01_JPRB, 0.127758E+01_JPRB &
+  &, 0.125863E+01_JPRB, 0.123968E+01_JPRB, 0.122069E+01_JPRB, 0.120171E+01_JPRB &
+  &, 0.118276E+01_JPRB, 0.116380E+01_JPRB, 0.114488E+01_JPRB &
+  &, 0.112602E+01_JPRB, 0.110718E+01_JPRB, 0.108840E+01_JPRB, 0.106965E+01_JPRB &
+  &, 0.105100E+01_JPRB, 0.103243E+01_JPRB, 0.101396E+01_JPRB &
+  &, 0.995561E+00_JPRB, 0.977256E+00_JPRB, 0.959069E+00_JPRB, 0.940963E+00_JPRB &
+  &, 0.922963E+00_JPRB, 0.905156E+00_JPRB, 0.887439E+00_JPRB/)
+XCW( 842, :) = (/ &
+  &  0.110005E+01_JPRB, 0.112495E+01_JPRB, 0.114978E+01_JPRB, 0.117451E+01_JPRB &
+  &, 0.119914E+01_JPRB, 0.122365E+01_JPRB, 0.124802E+01_JPRB &
+  &, 0.127223E+01_JPRB, 0.129629E+01_JPRB, 0.132015E+01_JPRB, 0.134382E+01_JPRB &
+  &, 0.136728E+01_JPRB, 0.139052E+01_JPRB, 0.141351E+01_JPRB &
+  &, 0.143624E+01_JPRB, 0.145871E+01_JPRB, 0.148089E+01_JPRB, 0.150276E+01_JPRB &
+  &, 0.152433E+01_JPRB, 0.154557E+01_JPRB, 0.156646E+01_JPRB &
+  &, 0.158701E+01_JPRB, 0.160718E+01_JPRB, 0.162697E+01_JPRB, 0.164636E+01_JPRB &
+  &, 0.166534E+01_JPRB, 0.168393E+01_JPRB, 0.170207E+01_JPRB &
+  &, 0.171976E+01_JPRB, 0.173701E+01_JPRB, 0.175379E+01_JPRB, 0.177009E+01_JPRB &
+  &, 0.178591E+01_JPRB, 0.180124E+01_JPRB, 0.181604E+01_JPRB &
+  &, 0.183037E+01_JPRB, 0.184416E+01_JPRB, 0.185742E+01_JPRB, 0.187014E+01_JPRB &
+  &, 0.188233E+01_JPRB, 0.189397E+01_JPRB, 0.190505E+01_JPRB &
+  &, 0.191557E+01_JPRB, 0.192553E+01_JPRB, 0.193493E+01_JPRB, 0.194375E+01_JPRB &
+  &, 0.195200E+01_JPRB, 0.195966E+01_JPRB, 0.196673E+01_JPRB &
+  &, 0.197326E+01_JPRB, 0.197920E+01_JPRB, 0.198454E+01_JPRB, 0.198929E+01_JPRB &
+  &, 0.199347E+01_JPRB, 0.199706E+01_JPRB, 0.200008E+01_JPRB &
+  &, 0.200251E+01_JPRB, 0.200437E+01_JPRB, 0.200565E+01_JPRB, 0.200636E+01_JPRB &
+  &, 0.200650E+01_JPRB, 0.200606E+01_JPRB, 0.200508E+01_JPRB &
+  &, 0.200352E+01_JPRB, 0.200137E+01_JPRB, 0.199879E+01_JPRB, 0.199560E+01_JPRB &
+  &, 0.199187E+01_JPRB, 0.198761E+01_JPRB, 0.198283E+01_JPRB &
+  &, 0.197753E+01_JPRB, 0.197173E+01_JPRB, 0.196541E+01_JPRB, 0.195861E+01_JPRB &
+  &, 0.195130E+01_JPRB, 0.194353E+01_JPRB, 0.193521E+01_JPRB &
+  &, 0.192658E+01_JPRB, 0.191743E+01_JPRB, 0.190780E+01_JPRB, 0.189776E+01_JPRB &
+  &, 0.188728E+01_JPRB, 0.187640E+01_JPRB, 0.186510E+01_JPRB &
+  &, 0.185339E+01_JPRB, 0.184131E+01_JPRB, 0.182883E+01_JPRB, 0.181602E+01_JPRB &
+  &, 0.180271E+01_JPRB, 0.178927E+01_JPRB, 0.177539E+01_JPRB &
+  &, 0.176121E+01_JPRB, 0.174668E+01_JPRB, 0.173185E+01_JPRB, 0.171675E+01_JPRB &
+  &, 0.170134E+01_JPRB, 0.168568E+01_JPRB, 0.166973E+01_JPRB &
+  &, 0.165355E+01_JPRB, 0.163711E+01_JPRB, 0.162046E+01_JPRB, 0.160357E+01_JPRB &
+  &, 0.158649E+01_JPRB, 0.156922E+01_JPRB, 0.155175E+01_JPRB &
+  &, 0.153411E+01_JPRB, 0.151632E+01_JPRB, 0.149834E+01_JPRB, 0.148023E+01_JPRB &
+  &, 0.146203E+01_JPRB, 0.144367E+01_JPRB, 0.142519E+01_JPRB &
+  &, 0.140665E+01_JPRB, 0.138800E+01_JPRB, 0.136927E+01_JPRB, 0.135044E+01_JPRB &
+  &, 0.133158E+01_JPRB, 0.131267E+01_JPRB, 0.129370E+01_JPRB &
+  &, 0.127474E+01_JPRB, 0.125571E+01_JPRB, 0.123671E+01_JPRB, 0.121770E+01_JPRB &
+  &, 0.119866E+01_JPRB, 0.117967E+01_JPRB, 0.116070E+01_JPRB &
+  &, 0.114173E+01_JPRB, 0.112284E+01_JPRB, 0.110399E+01_JPRB, 0.108517E+01_JPRB &
+  &, 0.106644E+01_JPRB, 0.104779E+01_JPRB, 0.102917E+01_JPRB &
+  &, 0.101068E+01_JPRB, 0.992268E+00_JPRB, 0.973970E+00_JPRB, 0.955811E+00_JPRB &
+  &, 0.937687E+00_JPRB, 0.919750E+00_JPRB, 0.901961E+00_JPRB/)
+XCW( 843, :) = (/ &
+  &  0.110050E+01_JPRB, 0.112551E+01_JPRB, 0.115046E+01_JPRB, 0.117532E+01_JPRB &
+  &, 0.120008E+01_JPRB, 0.122472E+01_JPRB, 0.124922E+01_JPRB &
+  &, 0.127358E+01_JPRB, 0.129777E+01_JPRB, 0.132178E+01_JPRB, 0.134560E+01_JPRB &
+  &, 0.136921E+01_JPRB, 0.139259E+01_JPRB, 0.141574E+01_JPRB &
+  &, 0.143863E+01_JPRB, 0.146125E+01_JPRB, 0.148359E+01_JPRB, 0.150563E+01_JPRB &
+  &, 0.152737E+01_JPRB, 0.154877E+01_JPRB, 0.156984E+01_JPRB &
+  &, 0.159056E+01_JPRB, 0.161090E+01_JPRB, 0.163087E+01_JPRB, 0.165045E+01_JPRB &
+  &, 0.166962E+01_JPRB, 0.168837E+01_JPRB, 0.170670E+01_JPRB &
+  &, 0.172458E+01_JPRB, 0.174201E+01_JPRB, 0.175898E+01_JPRB, 0.177547E+01_JPRB &
+  &, 0.179148E+01_JPRB, 0.180700E+01_JPRB, 0.182202E+01_JPRB &
+  &, 0.183652E+01_JPRB, 0.185051E+01_JPRB, 0.186396E+01_JPRB, 0.187688E+01_JPRB &
+  &, 0.188927E+01_JPRB, 0.190110E+01_JPRB, 0.191238E+01_JPRB &
+  &, 0.192310E+01_JPRB, 0.193326E+01_JPRB, 0.194285E+01_JPRB, 0.195188E+01_JPRB &
+  &, 0.196032E+01_JPRB, 0.196818E+01_JPRB, 0.197548E+01_JPRB &
+  &, 0.198218E+01_JPRB, 0.198831E+01_JPRB, 0.199384E+01_JPRB, 0.199880E+01_JPRB &
+  &, 0.200318E+01_JPRB, 0.200696E+01_JPRB, 0.201017E+01_JPRB &
+  &, 0.201280E+01_JPRB, 0.201484E+01_JPRB, 0.201631E+01_JPRB, 0.201721E+01_JPRB &
+  &, 0.201754E+01_JPRB, 0.201729E+01_JPRB, 0.201647E+01_JPRB &
+  &, 0.201512E+01_JPRB, 0.201320E+01_JPRB, 0.201073E+01_JPRB, 0.200771E+01_JPRB &
+  &, 0.200416E+01_JPRB, 0.200006E+01_JPRB, 0.199546E+01_JPRB &
+  &, 0.199033E+01_JPRB, 0.198467E+01_JPRB, 0.197852E+01_JPRB, 0.197188E+01_JPRB &
+  &, 0.196472E+01_JPRB, 0.195710E+01_JPRB, 0.194901E+01_JPRB &
+  &, 0.194044E+01_JPRB, 0.193142E+01_JPRB, 0.192194E+01_JPRB, 0.191205E+01_JPRB &
+  &, 0.190170E+01_JPRB, 0.189093E+01_JPRB, 0.187975E+01_JPRB &
+  &, 0.186817E+01_JPRB, 0.185620E+01_JPRB, 0.184386E+01_JPRB, 0.183112E+01_JPRB &
+  &, 0.181804E+01_JPRB, 0.180460E+01_JPRB, 0.179072E+01_JPRB &
+  &, 0.177673E+01_JPRB, 0.176228E+01_JPRB, 0.174754E+01_JPRB, 0.173251E+01_JPRB &
+  &, 0.171717E+01_JPRB, 0.170158E+01_JPRB, 0.168569E+01_JPRB &
+  &, 0.166958E+01_JPRB, 0.165323E+01_JPRB, 0.163660E+01_JPRB, 0.161978E+01_JPRB &
+  &, 0.160275E+01_JPRB, 0.158552E+01_JPRB, 0.156808E+01_JPRB &
+  &, 0.155046E+01_JPRB, 0.153270E+01_JPRB, 0.151477E+01_JPRB, 0.149667E+01_JPRB &
+  &, 0.147847E+01_JPRB, 0.146011E+01_JPRB, 0.144167E+01_JPRB &
+  &, 0.142307E+01_JPRB, 0.140441E+01_JPRB, 0.138570E+01_JPRB, 0.136688E+01_JPRB &
+  &, 0.134798E+01_JPRB, 0.132903E+01_JPRB, 0.131006E+01_JPRB &
+  &, 0.129104E+01_JPRB, 0.127200E+01_JPRB, 0.125293E+01_JPRB, 0.123385E+01_JPRB &
+  &, 0.121477E+01_JPRB, 0.119575E+01_JPRB, 0.117668E+01_JPRB &
+  &, 0.115766E+01_JPRB, 0.113872E+01_JPRB, 0.111975E+01_JPRB, 0.110092E+01_JPRB &
+  &, 0.108206E+01_JPRB, 0.106333E+01_JPRB, 0.104468E+01_JPRB &
+  &, 0.102610E+01_JPRB, 0.100759E+01_JPRB, 0.989184E+00_JPRB, 0.970911E+00_JPRB &
+  &, 0.952667E+00_JPRB, 0.934603E+00_JPRB, 0.916680E+00_JPRB/)
+XCW( 844, :) = (/ &
+  &  0.110094E+01_JPRB, 0.112608E+01_JPRB, 0.115115E+01_JPRB, 0.117614E+01_JPRB &
+  &, 0.120102E+01_JPRB, 0.122579E+01_JPRB, 0.125043E+01_JPRB &
+  &, 0.127493E+01_JPRB, 0.129926E+01_JPRB, 0.132342E+01_JPRB, 0.134738E+01_JPRB &
+  &, 0.137114E+01_JPRB, 0.139468E+01_JPRB, 0.141797E+01_JPRB &
+  &, 0.144103E+01_JPRB, 0.146381E+01_JPRB, 0.148631E+01_JPRB, 0.150852E+01_JPRB &
+  &, 0.153042E+01_JPRB, 0.155200E+01_JPRB, 0.157324E+01_JPRB &
+  &, 0.159413E+01_JPRB, 0.161465E+01_JPRB, 0.163480E+01_JPRB, 0.165456E+01_JPRB &
+  &, 0.167391E+01_JPRB, 0.169285E+01_JPRB, 0.171135E+01_JPRB &
+  &, 0.172943E+01_JPRB, 0.174705E+01_JPRB, 0.176421E+01_JPRB, 0.178089E+01_JPRB &
+  &, 0.179709E+01_JPRB, 0.181281E+01_JPRB, 0.182802E+01_JPRB &
+  &, 0.184271E+01_JPRB, 0.185690E+01_JPRB, 0.187055E+01_JPRB, 0.188367E+01_JPRB &
+  &, 0.189626E+01_JPRB, 0.190829E+01_JPRB, 0.191976E+01_JPRB &
+  &, 0.193069E+01_JPRB, 0.194105E+01_JPRB, 0.195084E+01_JPRB, 0.196006E+01_JPRB &
+  &, 0.196870E+01_JPRB, 0.197677E+01_JPRB, 0.198426E+01_JPRB &
+  &, 0.199117E+01_JPRB, 0.199749E+01_JPRB, 0.200323E+01_JPRB, 0.200839E+01_JPRB &
+  &, 0.201295E+01_JPRB, 0.201693E+01_JPRB, 0.202034E+01_JPRB &
+  &, 0.202315E+01_JPRB, 0.202540E+01_JPRB, 0.202705E+01_JPRB, 0.202814E+01_JPRB &
+  &, 0.202865E+01_JPRB, 0.202859E+01_JPRB, 0.202798E+01_JPRB &
+  &, 0.202679E+01_JPRB, 0.202506E+01_JPRB, 0.202277E+01_JPRB, 0.201991E+01_JPRB &
+  &, 0.201655E+01_JPRB, 0.201264E+01_JPRB, 0.200818E+01_JPRB &
+  &, 0.200321E+01_JPRB, 0.199774E+01_JPRB, 0.199175E+01_JPRB, 0.198525E+01_JPRB &
+  &, 0.197828E+01_JPRB, 0.197080E+01_JPRB, 0.196286E+01_JPRB &
+  &, 0.195443E+01_JPRB, 0.194556E+01_JPRB, 0.193623E+01_JPRB, 0.192644E+01_JPRB &
+  &, 0.191624E+01_JPRB, 0.190560E+01_JPRB, 0.189456E+01_JPRB &
+  &, 0.188310E+01_JPRB, 0.187124E+01_JPRB, 0.185901E+01_JPRB, 0.184641E+01_JPRB &
+  &, 0.183343E+01_JPRB, 0.182009E+01_JPRB, 0.180640E+01_JPRB &
+  &, 0.179240E+01_JPRB, 0.177805E+01_JPRB, 0.176341E+01_JPRB, 0.174844E+01_JPRB &
+  &, 0.173321E+01_JPRB, 0.171765E+01_JPRB, 0.170187E+01_JPRB &
+  &, 0.168582E+01_JPRB, 0.166949E+01_JPRB, 0.165295E+01_JPRB, 0.163619E+01_JPRB &
+  &, 0.161920E+01_JPRB, 0.160201E+01_JPRB, 0.158460E+01_JPRB &
+  &, 0.156701E+01_JPRB, 0.154927E+01_JPRB, 0.153137E+01_JPRB, 0.151328E+01_JPRB &
+  &, 0.149509E+01_JPRB, 0.147677E+01_JPRB, 0.145828E+01_JPRB &
+  &, 0.143972E+01_JPRB, 0.142108E+01_JPRB, 0.140231E+01_JPRB, 0.138346E+01_JPRB &
+  &, 0.136457E+01_JPRB, 0.134563E+01_JPRB, 0.132661E+01_JPRB &
+  &, 0.130754E+01_JPRB, 0.128845E+01_JPRB, 0.126936E+01_JPRB, 0.125025E+01_JPRB &
+  &, 0.123115E+01_JPRB, 0.121204E+01_JPRB, 0.119294E+01_JPRB &
+  &, 0.117387E+01_JPRB, 0.115482E+01_JPRB, 0.113580E+01_JPRB, 0.111684E+01_JPRB &
+  &, 0.109797E+01_JPRB, 0.107910E+01_JPRB, 0.106038E+01_JPRB &
+  &, 0.104170E+01_JPRB, 0.102309E+01_JPRB, 0.100458E+01_JPRB, 0.986201E+00_JPRB &
+  &, 0.967904E+00_JPRB, 0.949716E+00_JPRB, 0.931662E+00_JPRB/)
+XCW( 845, :) = (/ &
+  &  0.110139E+01_JPRB, 0.112665E+01_JPRB, 0.115184E+01_JPRB, 0.117695E+01_JPRB &
+  &, 0.120197E+01_JPRB, 0.122687E+01_JPRB, 0.125165E+01_JPRB &
+  &, 0.127628E+01_JPRB, 0.130076E+01_JPRB, 0.132506E+01_JPRB, 0.134917E+01_JPRB &
+  &, 0.137308E+01_JPRB, 0.139677E+01_JPRB, 0.142023E+01_JPRB &
+  &, 0.144344E+01_JPRB, 0.146638E+01_JPRB, 0.148905E+01_JPRB, 0.151143E+01_JPRB &
+  &, 0.153349E+01_JPRB, 0.155524E+01_JPRB, 0.157665E+01_JPRB &
+  &, 0.159772E+01_JPRB, 0.161842E+01_JPRB, 0.163875E+01_JPRB, 0.165869E+01_JPRB &
+  &, 0.167822E+01_JPRB, 0.169735E+01_JPRB, 0.171604E+01_JPRB &
+  &, 0.173430E+01_JPRB, 0.175211E+01_JPRB, 0.176946E+01_JPRB, 0.178634E+01_JPRB &
+  &, 0.180273E+01_JPRB, 0.181865E+01_JPRB, 0.183405E+01_JPRB &
+  &, 0.184895E+01_JPRB, 0.186333E+01_JPRB, 0.187718E+01_JPRB, 0.189050E+01_JPRB &
+  &, 0.190329E+01_JPRB, 0.191552E+01_JPRB, 0.192720E+01_JPRB &
+  &, 0.193832E+01_JPRB, 0.194888E+01_JPRB, 0.195888E+01_JPRB, 0.196830E+01_JPRB &
+  &, 0.197715E+01_JPRB, 0.198542E+01_JPRB, 0.199311E+01_JPRB &
+  &, 0.200022E+01_JPRB, 0.200675E+01_JPRB, 0.201267E+01_JPRB, 0.201803E+01_JPRB &
+  &, 0.202279E+01_JPRB, 0.202698E+01_JPRB, 0.203058E+01_JPRB &
+  &, 0.203360E+01_JPRB, 0.203603E+01_JPRB, 0.203789E+01_JPRB, 0.203916E+01_JPRB &
+  &, 0.203986E+01_JPRB, 0.204000E+01_JPRB, 0.203955E+01_JPRB &
+  &, 0.203857E+01_JPRB, 0.203700E+01_JPRB, 0.203490E+01_JPRB, 0.203224E+01_JPRB &
+  &, 0.202904E+01_JPRB, 0.202530E+01_JPRB, 0.202103E+01_JPRB &
+  &, 0.201622E+01_JPRB, 0.201092E+01_JPRB, 0.200509E+01_JPRB, 0.199876E+01_JPRB &
+  &, 0.199193E+01_JPRB, 0.198461E+01_JPRB, 0.197681E+01_JPRB &
+  &, 0.196856E+01_JPRB, 0.195982E+01_JPRB, 0.195063E+01_JPRB, 0.194099E+01_JPRB &
+  &, 0.193092E+01_JPRB, 0.192042E+01_JPRB, 0.190951E+01_JPRB &
+  &, 0.189816E+01_JPRB, 0.188645E+01_JPRB, 0.187433E+01_JPRB, 0.186181E+01_JPRB &
+  &, 0.184896E+01_JPRB, 0.183573E+01_JPRB, 0.182213E+01_JPRB &
+  &, 0.180824E+01_JPRB, 0.179397E+01_JPRB, 0.177943E+01_JPRB, 0.176453E+01_JPRB &
+  &, 0.174938E+01_JPRB, 0.173394E+01_JPRB, 0.171819E+01_JPRB &
+  &, 0.170221E+01_JPRB, 0.168594E+01_JPRB, 0.166945E+01_JPRB, 0.165274E+01_JPRB &
+  &, 0.163580E+01_JPRB, 0.161865E+01_JPRB, 0.160128E+01_JPRB &
+  &, 0.158377E+01_JPRB, 0.156605E+01_JPRB, 0.154817E+01_JPRB, 0.153010E+01_JPRB &
+  &, 0.151192E+01_JPRB, 0.149361E+01_JPRB, 0.147516E+01_JPRB &
+  &, 0.145659E+01_JPRB, 0.143790E+01_JPRB, 0.141915E+01_JPRB, 0.140032E+01_JPRB &
+  &, 0.138141E+01_JPRB, 0.136243E+01_JPRB, 0.134336E+01_JPRB &
+  &, 0.132429E+01_JPRB, 0.130519E+01_JPRB, 0.128604E+01_JPRB, 0.126687E+01_JPRB &
+  &, 0.124769E+01_JPRB, 0.122855E+01_JPRB, 0.120936E+01_JPRB &
+  &, 0.119025E+01_JPRB, 0.117115E+01_JPRB, 0.115207E+01_JPRB, 0.113305E+01_JPRB &
+  &, 0.111406E+01_JPRB, 0.109517E+01_JPRB, 0.107631E+01_JPRB &
+  &, 0.105754E+01_JPRB, 0.103884E+01_JPRB, 0.102023E+01_JPRB, 0.100174E+01_JPRB &
+  &, 0.983396E+00_JPRB, 0.965088E+00_JPRB, 0.946908E+00_JPRB/)
+XCW( 846, :) = (/ &
+  &  0.110184E+01_JPRB, 0.112722E+01_JPRB, 0.115253E+01_JPRB, 0.117777E+01_JPRB &
+  &, 0.120292E+01_JPRB, 0.122796E+01_JPRB, 0.125287E+01_JPRB &
+  &, 0.127764E+01_JPRB, 0.130226E+01_JPRB, 0.132671E+01_JPRB, 0.135097E+01_JPRB &
+  &, 0.137503E+01_JPRB, 0.139888E+01_JPRB, 0.142249E+01_JPRB &
+  &, 0.144586E+01_JPRB, 0.146897E+01_JPRB, 0.149180E+01_JPRB, 0.151434E+01_JPRB &
+  &, 0.153658E+01_JPRB, 0.155850E+01_JPRB, 0.158009E+01_JPRB &
+  &, 0.160133E+01_JPRB, 0.162221E+01_JPRB, 0.164272E+01_JPRB, 0.166284E+01_JPRB &
+  &, 0.168256E+01_JPRB, 0.170187E+01_JPRB, 0.172076E+01_JPRB &
+  &, 0.173920E+01_JPRB, 0.175721E+01_JPRB, 0.177475E+01_JPRB, 0.179182E+01_JPRB &
+  &, 0.180841E+01_JPRB, 0.182452E+01_JPRB, 0.184012E+01_JPRB &
+  &, 0.185522E+01_JPRB, 0.186980E+01_JPRB, 0.188386E+01_JPRB, 0.189737E+01_JPRB &
+  &, 0.191036E+01_JPRB, 0.192280E+01_JPRB, 0.193468E+01_JPRB &
+  &, 0.194600E+01_JPRB, 0.195677E+01_JPRB, 0.196697E+01_JPRB, 0.197660E+01_JPRB &
+  &, 0.198565E+01_JPRB, 0.199412E+01_JPRB, 0.200202E+01_JPRB &
+  &, 0.200933E+01_JPRB, 0.201606E+01_JPRB, 0.202220E+01_JPRB, 0.202775E+01_JPRB &
+  &, 0.203272E+01_JPRB, 0.203710E+01_JPRB, 0.204089E+01_JPRB &
+  &, 0.204411E+01_JPRB, 0.204675E+01_JPRB, 0.204879E+01_JPRB, 0.205026E+01_JPRB &
+  &, 0.205116E+01_JPRB, 0.205147E+01_JPRB, 0.205123E+01_JPRB &
+  &, 0.205042E+01_JPRB, 0.204906E+01_JPRB, 0.204713E+01_JPRB, 0.204465E+01_JPRB &
+  &, 0.204162E+01_JPRB, 0.203805E+01_JPRB, 0.203395E+01_JPRB &
+  &, 0.202934E+01_JPRB, 0.202418E+01_JPRB, 0.201855E+01_JPRB, 0.201238E+01_JPRB &
+  &, 0.200571E+01_JPRB, 0.199856E+01_JPRB, 0.199090E+01_JPRB &
+  &, 0.198279E+01_JPRB, 0.197421E+01_JPRB, 0.196515E+01_JPRB, 0.195567E+01_JPRB &
+  &, 0.194572E+01_JPRB, 0.193538E+01_JPRB, 0.192459E+01_JPRB &
+  &, 0.191337E+01_JPRB, 0.190177E+01_JPRB, 0.188977E+01_JPRB, 0.187739E+01_JPRB &
+  &, 0.186465E+01_JPRB, 0.185152E+01_JPRB, 0.183803E+01_JPRB &
+  &, 0.182423E+01_JPRB, 0.181006E+01_JPRB, 0.179560E+01_JPRB, 0.178083E+01_JPRB &
+  &, 0.176572E+01_JPRB, 0.175036E+01_JPRB, 0.173469E+01_JPRB &
+  &, 0.171877E+01_JPRB, 0.170260E+01_JPRB, 0.168618E+01_JPRB, 0.166949E+01_JPRB &
+  &, 0.165259E+01_JPRB, 0.163549E+01_JPRB, 0.161820E+01_JPRB &
+  &, 0.160068E+01_JPRB, 0.158300E+01_JPRB, 0.156514E+01_JPRB, 0.154713E+01_JPRB &
+  &, 0.152896E+01_JPRB, 0.151066E+01_JPRB, 0.149221E+01_JPRB &
+  &, 0.147364E+01_JPRB, 0.145498E+01_JPRB, 0.143622E+01_JPRB, 0.141737E+01_JPRB &
+  &, 0.139843E+01_JPRB, 0.137942E+01_JPRB, 0.136036E+01_JPRB &
+  &, 0.134124E+01_JPRB, 0.132209E+01_JPRB, 0.130293E+01_JPRB, 0.128369E+01_JPRB &
+  &, 0.126449E+01_JPRB, 0.124527E+01_JPRB, 0.122610E+01_JPRB &
+  &, 0.120690E+01_JPRB, 0.118770E+01_JPRB, 0.116857E+01_JPRB, 0.114949E+01_JPRB &
+  &, 0.113044E+01_JPRB, 0.111142E+01_JPRB, 0.109248E+01_JPRB &
+  &, 0.107363E+01_JPRB, 0.105484E+01_JPRB, 0.103620E+01_JPRB, 0.101760E+01_JPRB &
+  &, 0.999081E+00_JPRB, 0.980655E+00_JPRB, 0.962415E+00_JPRB/)
+XCW( 847, :) = (/ &
+  &  0.110229E+01_JPRB, 0.112779E+01_JPRB, 0.115323E+01_JPRB, 0.117860E+01_JPRB &
+  &, 0.120388E+01_JPRB, 0.122905E+01_JPRB, 0.125410E+01_JPRB &
+  &, 0.127901E+01_JPRB, 0.130377E+01_JPRB, 0.132837E+01_JPRB, 0.135278E+01_JPRB &
+  &, 0.137699E+01_JPRB, 0.140099E+01_JPRB, 0.142477E+01_JPRB &
+  &, 0.144830E+01_JPRB, 0.147157E+01_JPRB, 0.149457E+01_JPRB, 0.151728E+01_JPRB &
+  &, 0.153969E+01_JPRB, 0.156178E+01_JPRB, 0.158354E+01_JPRB &
+  &, 0.160497E+01_JPRB, 0.162603E+01_JPRB, 0.164672E+01_JPRB, 0.166702E+01_JPRB &
+  &, 0.168693E+01_JPRB, 0.170643E+01_JPRB, 0.172550E+01_JPRB &
+  &, 0.174414E+01_JPRB, 0.176233E+01_JPRB, 0.178007E+01_JPRB, 0.179734E+01_JPRB &
+  &, 0.181413E+01_JPRB, 0.183043E+01_JPRB, 0.184624E+01_JPRB &
+  &, 0.186153E+01_JPRB, 0.187631E+01_JPRB, 0.189057E+01_JPRB, 0.190429E+01_JPRB &
+  &, 0.191748E+01_JPRB, 0.193012E+01_JPRB, 0.194221E+01_JPRB &
+  &, 0.195375E+01_JPRB, 0.196472E+01_JPRB, 0.197512E+01_JPRB, 0.198496E+01_JPRB &
+  &, 0.199421E+01_JPRB, 0.200289E+01_JPRB, 0.201099E+01_JPRB &
+  &, 0.201851E+01_JPRB, 0.202544E+01_JPRB, 0.203179E+01_JPRB, 0.203755E+01_JPRB &
+  &, 0.204271E+01_JPRB, 0.204730E+01_JPRB, 0.205130E+01_JPRB &
+  &, 0.205471E+01_JPRB, 0.205753E+01_JPRB, 0.205978E+01_JPRB, 0.206145E+01_JPRB &
+  &, 0.206254E+01_JPRB, 0.206305E+01_JPRB, 0.206300E+01_JPRB &
+  &, 0.206237E+01_JPRB, 0.206119E+01_JPRB, 0.205945E+01_JPRB, 0.205717E+01_JPRB &
+  &, 0.205431E+01_JPRB, 0.205093E+01_JPRB, 0.204701E+01_JPRB &
+  &, 0.204256E+01_JPRB, 0.203760E+01_JPRB, 0.203211E+01_JPRB, 0.202611E+01_JPRB &
+  &, 0.201959E+01_JPRB, 0.201260E+01_JPRB, 0.200511E+01_JPRB &
+  &, 0.199716E+01_JPRB, 0.198872E+01_JPRB, 0.197982E+01_JPRB, 0.197048E+01_JPRB &
+  &, 0.196069E+01_JPRB, 0.195045E+01_JPRB, 0.193981E+01_JPRB &
+  &, 0.192874E+01_JPRB, 0.191727E+01_JPRB, 0.190538E+01_JPRB, 0.189311E+01_JPRB &
+  &, 0.188048E+01_JPRB, 0.186746E+01_JPRB, 0.185411E+01_JPRB &
+  &, 0.184038E+01_JPRB, 0.182633E+01_JPRB, 0.181194E+01_JPRB, 0.179725E+01_JPRB &
+  &, 0.178224E+01_JPRB, 0.176695E+01_JPRB, 0.175139E+01_JPRB &
+  &, 0.173551E+01_JPRB, 0.171941E+01_JPRB, 0.170305E+01_JPRB, 0.168646E+01_JPRB &
+  &, 0.166962E+01_JPRB, 0.165256E+01_JPRB, 0.163528E+01_JPRB &
+  &, 0.161780E+01_JPRB, 0.160015E+01_JPRB, 0.158235E+01_JPRB, 0.156433E+01_JPRB &
+  &, 0.154618E+01_JPRB, 0.152789E+01_JPRB, 0.150949E+01_JPRB &
+  &, 0.149092E+01_JPRB, 0.147225E+01_JPRB, 0.145347E+01_JPRB, 0.143461E+01_JPRB &
+  &, 0.141564E+01_JPRB, 0.139665E+01_JPRB, 0.137756E+01_JPRB &
+  &, 0.135844E+01_JPRB, 0.133924E+01_JPRB, 0.132003E+01_JPRB, 0.130077E+01_JPRB &
+  &, 0.128151E+01_JPRB, 0.126226E+01_JPRB, 0.124301E+01_JPRB &
+  &, 0.122377E+01_JPRB, 0.120452E+01_JPRB, 0.118530E+01_JPRB, 0.116616E+01_JPRB &
+  &, 0.114699E+01_JPRB, 0.112797E+01_JPRB, 0.110895E+01_JPRB &
+  &, 0.108996E+01_JPRB, 0.107114E+01_JPRB, 0.105234E+01_JPRB, 0.103365E+01_JPRB &
+  &, 0.101502E+01_JPRB, 0.996546E+00_JPRB, 0.978120E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART121',1,ZHOOK_HANDLE)
+END SUBROUTINE PART121
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART122
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART122',0,ZHOOK_HANDLE)
+
+XCW( 848, :) = (/ &
+  &  0.110274E+01_JPRB, 0.112836E+01_JPRB, 0.115393E+01_JPRB, 0.117943E+01_JPRB &
+  &, 0.120484E+01_JPRB, 0.123014E+01_JPRB, 0.125533E+01_JPRB &
+  &, 0.128039E+01_JPRB, 0.130530E+01_JPRB, 0.133004E+01_JPRB, 0.135460E+01_JPRB &
+  &, 0.137897E+01_JPRB, 0.140312E+01_JPRB, 0.142706E+01_JPRB &
+  &, 0.145075E+01_JPRB, 0.147418E+01_JPRB, 0.149735E+01_JPRB, 0.152023E+01_JPRB &
+  &, 0.154281E+01_JPRB, 0.156508E+01_JPRB, 0.158702E+01_JPRB &
+  &, 0.160862E+01_JPRB, 0.162986E+01_JPRB, 0.165073E+01_JPRB, 0.167122E+01_JPRB &
+  &, 0.169132E+01_JPRB, 0.171101E+01_JPRB, 0.173027E+01_JPRB &
+  &, 0.174910E+01_JPRB, 0.176749E+01_JPRB, 0.178543E+01_JPRB, 0.180289E+01_JPRB &
+  &, 0.181988E+01_JPRB, 0.183638E+01_JPRB, 0.185239E+01_JPRB &
+  &, 0.186789E+01_JPRB, 0.188287E+01_JPRB, 0.189733E+01_JPRB, 0.191126E+01_JPRB &
+  &, 0.192466E+01_JPRB, 0.193750E+01_JPRB, 0.194980E+01_JPRB &
+  &, 0.196154E+01_JPRB, 0.197272E+01_JPRB, 0.198333E+01_JPRB, 0.199336E+01_JPRB &
+  &, 0.200284E+01_JPRB, 0.201173E+01_JPRB, 0.202003E+01_JPRB &
+  &, 0.202775E+01_JPRB, 0.203489E+01_JPRB, 0.204144E+01_JPRB, 0.204740E+01_JPRB &
+  &, 0.205278E+01_JPRB, 0.205757E+01_JPRB, 0.206177E+01_JPRB &
+  &, 0.206538E+01_JPRB, 0.206841E+01_JPRB, 0.207086E+01_JPRB, 0.207273E+01_JPRB &
+  &, 0.207401E+01_JPRB, 0.207472E+01_JPRB, 0.207485E+01_JPRB &
+  &, 0.207444E+01_JPRB, 0.207341E+01_JPRB, 0.207189E+01_JPRB, 0.206978E+01_JPRB &
+  &, 0.206712E+01_JPRB, 0.206391E+01_JPRB, 0.206018E+01_JPRB &
+  &, 0.205591E+01_JPRB, 0.205110E+01_JPRB, 0.204578E+01_JPRB, 0.203995E+01_JPRB &
+  &, 0.203354E+01_JPRB, 0.202679E+01_JPRB, 0.201946E+01_JPRB &
+  &, 0.201166E+01_JPRB, 0.200338E+01_JPRB, 0.199462E+01_JPRB, 0.198544E+01_JPRB &
+  &, 0.197579E+01_JPRB, 0.196570E+01_JPRB, 0.195517E+01_JPRB &
+  &, 0.194422E+01_JPRB, 0.193287E+01_JPRB, 0.192114E+01_JPRB, 0.190898E+01_JPRB &
+  &, 0.189647E+01_JPRB, 0.188356E+01_JPRB, 0.187031E+01_JPRB &
+  &, 0.185668E+01_JPRB, 0.184274E+01_JPRB, 0.182848E+01_JPRB, 0.181385E+01_JPRB &
+  &, 0.179896E+01_JPRB, 0.178375E+01_JPRB, 0.176824E+01_JPRB &
+  &, 0.175247E+01_JPRB, 0.173641E+01_JPRB, 0.172011E+01_JPRB, 0.170358E+01_JPRB &
+  &, 0.168679E+01_JPRB, 0.166979E+01_JPRB, 0.165255E+01_JPRB &
+  &, 0.163515E+01_JPRB, 0.161754E+01_JPRB, 0.159974E+01_JPRB, 0.158178E+01_JPRB &
+  &, 0.156365E+01_JPRB, 0.154537E+01_JPRB, 0.152694E+01_JPRB &
+  &, 0.150842E+01_JPRB, 0.148975E+01_JPRB, 0.147096E+01_JPRB, 0.145208E+01_JPRB &
+  &, 0.143314E+01_JPRB, 0.141412E+01_JPRB, 0.139500E+01_JPRB &
+  &, 0.137584E+01_JPRB, 0.135665E+01_JPRB, 0.133738E+01_JPRB, 0.131811E+01_JPRB &
+  &, 0.129878E+01_JPRB, 0.127947E+01_JPRB, 0.126019E+01_JPRB &
+  &, 0.124086E+01_JPRB, 0.122158E+01_JPRB, 0.120230E+01_JPRB, 0.118307E+01_JPRB &
+  &, 0.116383E+01_JPRB, 0.114469E+01_JPRB, 0.112560E+01_JPRB &
+  &, 0.110659E+01_JPRB, 0.108763E+01_JPRB, 0.106874E+01_JPRB, 0.104995E+01_JPRB &
+  &, 0.103122E+01_JPRB, 0.101263E+01_JPRB, 0.994154E+00_JPRB/)
+XCW( 849, :) = (/ &
+  &  0.110319E+01_JPRB, 0.112894E+01_JPRB, 0.115464E+01_JPRB, 0.118026E+01_JPRB &
+  &, 0.120580E+01_JPRB, 0.123125E+01_JPRB, 0.125657E+01_JPRB &
+  &, 0.128177E+01_JPRB, 0.130682E+01_JPRB, 0.133171E+01_JPRB, 0.135643E+01_JPRB &
+  &, 0.138095E+01_JPRB, 0.140526E+01_JPRB, 0.142936E+01_JPRB &
+  &, 0.145321E+01_JPRB, 0.147681E+01_JPRB, 0.150015E+01_JPRB, 0.152320E+01_JPRB &
+  &, 0.154595E+01_JPRB, 0.156840E+01_JPRB, 0.159052E+01_JPRB &
+  &, 0.161229E+01_JPRB, 0.163372E+01_JPRB, 0.165478E+01_JPRB, 0.167545E+01_JPRB &
+  &, 0.169574E+01_JPRB, 0.171562E+01_JPRB, 0.173507E+01_JPRB &
+  &, 0.175410E+01_JPRB, 0.177269E+01_JPRB, 0.179081E+01_JPRB, 0.180848E+01_JPRB &
+  &, 0.182567E+01_JPRB, 0.184237E+01_JPRB, 0.185858E+01_JPRB &
+  &, 0.187428E+01_JPRB, 0.188947E+01_JPRB, 0.190413E+01_JPRB, 0.191828E+01_JPRB &
+  &, 0.193187E+01_JPRB, 0.194493E+01_JPRB, 0.195743E+01_JPRB &
+  &, 0.196938E+01_JPRB, 0.198078E+01_JPRB, 0.199159E+01_JPRB, 0.200184E+01_JPRB &
+  &, 0.201152E+01_JPRB, 0.202062E+01_JPRB, 0.202914E+01_JPRB &
+  &, 0.203707E+01_JPRB, 0.204442E+01_JPRB, 0.205117E+01_JPRB, 0.205733E+01_JPRB &
+  &, 0.206292E+01_JPRB, 0.206790E+01_JPRB, 0.207233E+01_JPRB &
+  &, 0.207614E+01_JPRB, 0.207938E+01_JPRB, 0.208202E+01_JPRB, 0.208408E+01_JPRB &
+  &, 0.208557E+01_JPRB, 0.208649E+01_JPRB, 0.208682E+01_JPRB &
+  &, 0.208658E+01_JPRB, 0.208578E+01_JPRB, 0.208442E+01_JPRB, 0.208250E+01_JPRB &
+  &, 0.208002E+01_JPRB, 0.207701E+01_JPRB, 0.207346E+01_JPRB &
+  &, 0.206937E+01_JPRB, 0.206473E+01_JPRB, 0.205959E+01_JPRB, 0.205393E+01_JPRB &
+  &, 0.204776E+01_JPRB, 0.204109E+01_JPRB, 0.203393E+01_JPRB &
+  &, 0.202591E+01_JPRB, 0.201817E+01_JPRB, 0.200957E+01_JPRB, 0.200051E+01_JPRB &
+  &, 0.199101E+01_JPRB, 0.198107E+01_JPRB, 0.197069E+01_JPRB &
+  &, 0.195987E+01_JPRB, 0.194868E+01_JPRB, 0.193704E+01_JPRB, 0.192503E+01_JPRB &
+  &, 0.191261E+01_JPRB, 0.189984E+01_JPRB, 0.188670E+01_JPRB &
+  &, 0.187318E+01_JPRB, 0.185934E+01_JPRB, 0.184514E+01_JPRB, 0.183065E+01_JPRB &
+  &, 0.181584E+01_JPRB, 0.180069E+01_JPRB, 0.178530E+01_JPRB &
+  &, 0.176957E+01_JPRB, 0.175362E+01_JPRB, 0.173739E+01_JPRB, 0.172088E+01_JPRB &
+  &, 0.170416E+01_JPRB, 0.168721E+01_JPRB, 0.167006E+01_JPRB &
+  &, 0.165267E+01_JPRB, 0.163510E+01_JPRB, 0.161733E+01_JPRB, 0.159940E+01_JPRB &
+  &, 0.158129E+01_JPRB, 0.156303E+01_JPRB, 0.154465E+01_JPRB &
+  &, 0.152610E+01_JPRB, 0.150743E+01_JPRB, 0.148868E+01_JPRB, 0.146979E+01_JPRB &
+  &, 0.145083E+01_JPRB, 0.143179E+01_JPRB, 0.141268E+01_JPRB &
+  &, 0.139349E+01_JPRB, 0.137425E+01_JPRB, 0.135498E+01_JPRB, 0.133567E+01_JPRB &
+  &, 0.131633E+01_JPRB, 0.129694E+01_JPRB, 0.127758E+01_JPRB &
+  &, 0.125823E+01_JPRB, 0.123886E+01_JPRB, 0.121954E+01_JPRB, 0.120020E+01_JPRB &
+  &, 0.118097E+01_JPRB, 0.116170E+01_JPRB, 0.114255E+01_JPRB &
+  &, 0.112340E+01_JPRB, 0.110436E+01_JPRB, 0.108539E+01_JPRB, 0.106650E+01_JPRB &
+  &, 0.104773E+01_JPRB, 0.102898E+01_JPRB, 0.101038E+01_JPRB/)
+XCW( 850, :) = (/ &
+  &  0.110365E+01_JPRB, 0.112952E+01_JPRB, 0.115534E+01_JPRB, 0.118110E+01_JPRB &
+  &, 0.120677E+01_JPRB, 0.123235E+01_JPRB, 0.125782E+01_JPRB &
+  &, 0.128316E+01_JPRB, 0.130836E+01_JPRB, 0.133340E+01_JPRB, 0.135827E+01_JPRB &
+  &, 0.138294E+01_JPRB, 0.140742E+01_JPRB, 0.143167E+01_JPRB &
+  &, 0.145569E+01_JPRB, 0.147946E+01_JPRB, 0.150296E+01_JPRB, 0.152618E+01_JPRB &
+  &, 0.154911E+01_JPRB, 0.157173E+01_JPRB, 0.159403E+01_JPRB &
+  &, 0.161599E+01_JPRB, 0.163760E+01_JPRB, 0.165885E+01_JPRB, 0.167971E+01_JPRB &
+  &, 0.170019E+01_JPRB, 0.172025E+01_JPRB, 0.173990E+01_JPRB &
+  &, 0.175913E+01_JPRB, 0.177791E+01_JPRB, 0.179624E+01_JPRB, 0.181410E+01_JPRB &
+  &, 0.183149E+01_JPRB, 0.184840E+01_JPRB, 0.186481E+01_JPRB &
+  &, 0.188072E+01_JPRB, 0.189611E+01_JPRB, 0.191099E+01_JPRB, 0.192534E+01_JPRB &
+  &, 0.193913E+01_JPRB, 0.195241E+01_JPRB, 0.196513E+01_JPRB &
+  &, 0.197729E+01_JPRB, 0.198888E+01_JPRB, 0.199992E+01_JPRB, 0.201038E+01_JPRB &
+  &, 0.202027E+01_JPRB, 0.202957E+01_JPRB, 0.203830E+01_JPRB &
+  &, 0.204645E+01_JPRB, 0.205400E+01_JPRB, 0.206097E+01_JPRB, 0.206736E+01_JPRB &
+  &, 0.207314E+01_JPRB, 0.207834E+01_JPRB, 0.208296E+01_JPRB &
+  &, 0.208699E+01_JPRB, 0.209042E+01_JPRB, 0.209328E+01_JPRB, 0.209555E+01_JPRB &
+  &, 0.209724E+01_JPRB, 0.209835E+01_JPRB, 0.209887E+01_JPRB &
+  &, 0.209883E+01_JPRB, 0.209823E+01_JPRB, 0.209706E+01_JPRB, 0.209533E+01_JPRB &
+  &, 0.209304E+01_JPRB, 0.209022E+01_JPRB, 0.208684E+01_JPRB &
+  &, 0.208293E+01_JPRB, 0.207849E+01_JPRB, 0.207350E+01_JPRB, 0.206802E+01_JPRB &
+  &, 0.206203E+01_JPRB, 0.205553E+01_JPRB, 0.204853E+01_JPRB &
+  &, 0.204104E+01_JPRB, 0.203308E+01_JPRB, 0.202465E+01_JPRB, 0.201575E+01_JPRB &
+  &, 0.200640E+01_JPRB, 0.199659E+01_JPRB, 0.198635E+01_JPRB &
+  &, 0.197569E+01_JPRB, 0.196459E+01_JPRB, 0.195311E+01_JPRB, 0.194120E+01_JPRB &
+  &, 0.192892E+01_JPRB, 0.191627E+01_JPRB, 0.190325E+01_JPRB &
+  &, 0.188984E+01_JPRB, 0.187610E+01_JPRB, 0.186201E+01_JPRB, 0.184761E+01_JPRB &
+  &, 0.183286E+01_JPRB, 0.181784E+01_JPRB, 0.180249E+01_JPRB &
+  &, 0.178688E+01_JPRB, 0.177097E+01_JPRB, 0.175482E+01_JPRB, 0.173842E+01_JPRB &
+  &, 0.172176E+01_JPRB, 0.170487E+01_JPRB, 0.168773E+01_JPRB &
+  &, 0.167039E+01_JPRB, 0.165286E+01_JPRB, 0.163513E+01_JPRB, 0.161723E+01_JPRB &
+  &, 0.159915E+01_JPRB, 0.158091E+01_JPRB, 0.156255E+01_JPRB &
+  &, 0.154404E+01_JPRB, 0.152538E+01_JPRB, 0.150663E+01_JPRB, 0.148774E+01_JPRB &
+  &, 0.146876E+01_JPRB, 0.144970E+01_JPRB, 0.143056E+01_JPRB &
+  &, 0.141134E+01_JPRB, 0.139211E+01_JPRB, 0.137280E+01_JPRB, 0.135343E+01_JPRB &
+  &, 0.133403E+01_JPRB, 0.131462E+01_JPRB, 0.129525E+01_JPRB &
+  &, 0.127582E+01_JPRB, 0.125641E+01_JPRB, 0.123700E+01_JPRB, 0.121761E+01_JPRB &
+  &, 0.119828E+01_JPRB, 0.117901E+01_JPRB, 0.115973E+01_JPRB &
+  &, 0.114052E+01_JPRB, 0.112141E+01_JPRB, 0.110235E+01_JPRB, 0.108337E+01_JPRB &
+  &, 0.106444E+01_JPRB, 0.104565E+01_JPRB, 0.102694E+01_JPRB/)
+XCW( 851, :) = (/ &
+  &  0.110411E+01_JPRB, 0.113010E+01_JPRB, 0.115605E+01_JPRB, 0.118194E+01_JPRB &
+  &, 0.120775E+01_JPRB, 0.123347E+01_JPRB, 0.125908E+01_JPRB &
+  &, 0.128456E+01_JPRB, 0.130990E+01_JPRB, 0.133509E+01_JPRB, 0.136011E+01_JPRB &
+  &, 0.138495E+01_JPRB, 0.140958E+01_JPRB, 0.143400E+01_JPRB &
+  &, 0.145818E+01_JPRB, 0.148211E+01_JPRB, 0.150579E+01_JPRB, 0.152919E+01_JPRB &
+  &, 0.155229E+01_JPRB, 0.157509E+01_JPRB, 0.159757E+01_JPRB &
+  &, 0.161971E+01_JPRB, 0.164151E+01_JPRB, 0.166294E+01_JPRB, 0.168399E+01_JPRB &
+  &, 0.170466E+01_JPRB, 0.172492E+01_JPRB, 0.174477E+01_JPRB &
+  &, 0.176419E+01_JPRB, 0.178317E+01_JPRB, 0.180170E+01_JPRB, 0.181976E+01_JPRB &
+  &, 0.183736E+01_JPRB, 0.185447E+01_JPRB, 0.187109E+01_JPRB &
+  &, 0.188720E+01_JPRB, 0.190281E+01_JPRB, 0.191788E+01_JPRB, 0.193244E+01_JPRB &
+  &, 0.194647E+01_JPRB, 0.195994E+01_JPRB, 0.197287E+01_JPRB &
+  &, 0.198524E+01_JPRB, 0.199706E+01_JPRB, 0.200830E+01_JPRB, 0.201898E+01_JPRB &
+  &, 0.202908E+01_JPRB, 0.203860E+01_JPRB, 0.204753E+01_JPRB &
+  &, 0.205589E+01_JPRB, 0.206366E+01_JPRB, 0.207085E+01_JPRB, 0.207743E+01_JPRB &
+  &, 0.208345E+01_JPRB, 0.208886E+01_JPRB, 0.209368E+01_JPRB &
+  &, 0.209791E+01_JPRB, 0.210157E+01_JPRB, 0.210462E+01_JPRB, 0.210709E+01_JPRB &
+  &, 0.210898E+01_JPRB, 0.211029E+01_JPRB, 0.211103E+01_JPRB &
+  &, 0.211119E+01_JPRB, 0.211077E+01_JPRB, 0.210980E+01_JPRB, 0.210827E+01_JPRB &
+  &, 0.210616E+01_JPRB, 0.210354E+01_JPRB, 0.210034E+01_JPRB &
+  &, 0.209661E+01_JPRB, 0.209236E+01_JPRB, 0.208755E+01_JPRB, 0.208225E+01_JPRB &
+  &, 0.207643E+01_JPRB, 0.207009E+01_JPRB, 0.206326E+01_JPRB &
+  &, 0.205594E+01_JPRB, 0.204814E+01_JPRB, 0.203986E+01_JPRB, 0.203113E+01_JPRB &
+  &, 0.202192E+01_JPRB, 0.201225E+01_JPRB, 0.200217E+01_JPRB &
+  &, 0.199165E+01_JPRB, 0.198068E+01_JPRB, 0.196933E+01_JPRB, 0.195757E+01_JPRB &
+  &, 0.194542E+01_JPRB, 0.193286E+01_JPRB, 0.191995E+01_JPRB &
+  &, 0.190668E+01_JPRB, 0.189303E+01_JPRB, 0.187907E+01_JPRB, 0.186474E+01_JPRB &
+  &, 0.185013E+01_JPRB, 0.183516E+01_JPRB, 0.181994E+01_JPRB &
+  &, 0.180438E+01_JPRB, 0.178855E+01_JPRB, 0.177247E+01_JPRB, 0.175614E+01_JPRB &
+  &, 0.173951E+01_JPRB, 0.172268E+01_JPRB, 0.170560E+01_JPRB &
+  &, 0.168835E+01_JPRB, 0.167086E+01_JPRB, 0.165317E+01_JPRB, 0.163531E+01_JPRB &
+  &, 0.161726E+01_JPRB, 0.159905E+01_JPRB, 0.158066E+01_JPRB &
+  &, 0.156217E+01_JPRB, 0.154352E+01_JPRB, 0.152477E+01_JPRB, 0.150591E+01_JPRB &
+  &, 0.148693E+01_JPRB, 0.146785E+01_JPRB, 0.144869E+01_JPRB &
+  &, 0.142949E+01_JPRB, 0.141012E+01_JPRB, 0.139087E+01_JPRB, 0.137145E+01_JPRB &
+  &, 0.135204E+01_JPRB, 0.133092E+01_JPRB, 0.131313E+01_JPRB &
+  &, 0.129368E+01_JPRB, 0.127419E+01_JPRB, 0.125475E+01_JPRB, 0.123532E+01_JPRB &
+  &, 0.121588E+01_JPRB, 0.119650E+01_JPRB, 0.117722E+01_JPRB &
+  &, 0.115788E+01_JPRB, 0.113869E+01_JPRB, 0.111956E+01_JPRB, 0.110043E+01_JPRB &
+  &, 0.108147E+01_JPRB, 0.106251E+01_JPRB, 0.104370E+01_JPRB/)
+XCW( 852, :) = (/ &
+  &  0.110457E+01_JPRB, 0.113069E+01_JPRB, 0.115677E+01_JPRB, 0.118278E+01_JPRB &
+  &, 0.120873E+01_JPRB, 0.123458E+01_JPRB, 0.126033E+01_JPRB &
+  &, 0.128596E+01_JPRB, 0.131146E+01_JPRB, 0.133680E+01_JPRB, 0.136197E+01_JPRB &
+  &, 0.138696E+01_JPRB, 0.141176E+01_JPRB, 0.143633E+01_JPRB &
+  &, 0.146068E+01_JPRB, 0.148479E+01_JPRB, 0.150863E+01_JPRB, 0.153221E+01_JPRB &
+  &, 0.155549E+01_JPRB, 0.157847E+01_JPRB, 0.160112E+01_JPRB &
+  &, 0.162345E+01_JPRB, 0.164543E+01_JPRB, 0.166705E+01_JPRB, 0.168830E+01_JPRB &
+  &, 0.170915E+01_JPRB, 0.172962E+01_JPRB, 0.174966E+01_JPRB &
+  &, 0.176928E+01_JPRB, 0.178846E+01_JPRB, 0.180719E+01_JPRB, 0.182546E+01_JPRB &
+  &, 0.184326E+01_JPRB, 0.186058E+01_JPRB, 0.187740E+01_JPRB &
+  &, 0.189373E+01_JPRB, 0.190954E+01_JPRB, 0.192484E+01_JPRB, 0.193960E+01_JPRB &
+  &, 0.195384E+01_JPRB, 0.196752E+01_JPRB, 0.198065E+01_JPRB &
+  &, 0.199325E+01_JPRB, 0.200528E+01_JPRB, 0.201674E+01_JPRB, 0.202763E+01_JPRB &
+  &, 0.203795E+01_JPRB, 0.204769E+01_JPRB, 0.205684E+01_JPRB &
+  &, 0.206541E+01_JPRB, 0.207339E+01_JPRB, 0.208079E+01_JPRB, 0.208760E+01_JPRB &
+  &, 0.209382E+01_JPRB, 0.209945E+01_JPRB, 0.210448E+01_JPRB &
+  &, 0.210893E+01_JPRB, 0.211278E+01_JPRB, 0.211604E+01_JPRB, 0.211872E+01_JPRB &
+  &, 0.212083E+01_JPRB, 0.212234E+01_JPRB, 0.212328E+01_JPRB &
+  &, 0.212364E+01_JPRB, 0.212342E+01_JPRB, 0.212265E+01_JPRB, 0.212131E+01_JPRB &
+  &, 0.211941E+01_JPRB, 0.211696E+01_JPRB, 0.211395E+01_JPRB &
+  &, 0.211042E+01_JPRB, 0.210633E+01_JPRB, 0.210173E+01_JPRB, 0.209659E+01_JPRB &
+  &, 0.209095E+01_JPRB, 0.208479E+01_JPRB, 0.207814E+01_JPRB &
+  &, 0.207098E+01_JPRB, 0.206334E+01_JPRB, 0.205521E+01_JPRB, 0.204663E+01_JPRB &
+  &, 0.203759E+01_JPRB, 0.202809E+01_JPRB, 0.201813E+01_JPRB &
+  &, 0.200774E+01_JPRB, 0.199694E+01_JPRB, 0.198572E+01_JPRB, 0.197409E+01_JPRB &
+  &, 0.196207E+01_JPRB, 0.194963E+01_JPRB, 0.193684E+01_JPRB &
+  &, 0.192369E+01_JPRB, 0.191014E+01_JPRB, 0.189629E+01_JPRB, 0.188207E+01_JPRB &
+  &, 0.186752E+01_JPRB, 0.185269E+01_JPRB, 0.183752E+01_JPRB &
+  &, 0.182209E+01_JPRB, 0.180634E+01_JPRB, 0.179030E+01_JPRB, 0.177405E+01_JPRB &
+  &, 0.175749E+01_JPRB, 0.174072E+01_JPRB, 0.172371E+01_JPRB &
+  &, 0.170647E+01_JPRB, 0.168903E+01_JPRB, 0.167139E+01_JPRB, 0.165356E+01_JPRB &
+  &, 0.163555E+01_JPRB, 0.161736E+01_JPRB, 0.159904E+01_JPRB &
+  &, 0.158057E+01_JPRB, 0.156192E+01_JPRB, 0.154318E+01_JPRB, 0.152428E+01_JPRB &
+  &, 0.150534E+01_JPRB, 0.148624E+01_JPRB, 0.146706E+01_JPRB &
+  &, 0.144784E+01_JPRB, 0.142854E+01_JPRB, 0.140919E+01_JPRB, 0.138978E+01_JPRB &
+  &, 0.137027E+01_JPRB, 0.135080E+01_JPRB, 0.133129E+01_JPRB &
+  &, 0.131177E+01_JPRB, 0.129225E+01_JPRB, 0.127278E+01_JPRB, 0.125326E+01_JPRB &
+  &, 0.123377E+01_JPRB, 0.121434E+01_JPRB, 0.119489E+01_JPRB &
+  &, 0.117555E+01_JPRB, 0.115623E+01_JPRB, 0.113701E+01_JPRB, 0.111781E+01_JPRB &
+  &, 0.109869E+01_JPRB, 0.107970E+01_JPRB, 0.106078E+01_JPRB/)
+XCW( 853, :) = (/ &
+  &  0.110504E+01_JPRB, 0.113128E+01_JPRB, 0.115748E+01_JPRB, 0.118363E+01_JPRB &
+  &, 0.120971E+01_JPRB, 0.123571E+01_JPRB, 0.126160E+01_JPRB &
+  &, 0.128738E+01_JPRB, 0.131302E+01_JPRB, 0.133851E+01_JPRB, 0.136384E+01_JPRB &
+  &, 0.138899E+01_JPRB, 0.141394E+01_JPRB, 0.143869E+01_JPRB &
+  &, 0.146320E+01_JPRB, 0.148748E+01_JPRB, 0.151150E+01_JPRB, 0.153524E+01_JPRB &
+  &, 0.155870E+01_JPRB, 0.158186E+01_JPRB, 0.160470E+01_JPRB &
+  &, 0.162722E+01_JPRB, 0.164938E+01_JPRB, 0.167119E+01_JPRB, 0.169263E+01_JPRB &
+  &, 0.171368E+01_JPRB, 0.173434E+01_JPRB, 0.175458E+01_JPRB &
+  &, 0.177440E+01_JPRB, 0.179378E+01_JPRB, 0.181272E+01_JPRB, 0.183119E+01_JPRB &
+  &, 0.184920E+01_JPRB, 0.186672E+01_JPRB, 0.188376E+01_JPRB &
+  &, 0.190029E+01_JPRB, 0.191632E+01_JPRB, 0.193183E+01_JPRB, 0.194681E+01_JPRB &
+  &, 0.196126E+01_JPRB, 0.197516E+01_JPRB, 0.198851E+01_JPRB &
+  &, 0.200132E+01_JPRB, 0.201356E+01_JPRB, 0.202525E+01_JPRB, 0.203635E+01_JPRB &
+  &, 0.204689E+01_JPRB, 0.205684E+01_JPRB, 0.206617E+01_JPRB &
+  &, 0.207500E+01_JPRB, 0.208320E+01_JPRB, 0.209083E+01_JPRB, 0.209784E+01_JPRB &
+  &, 0.210427E+01_JPRB, 0.211012E+01_JPRB, 0.211536E+01_JPRB &
+  &, 0.212003E+01_JPRB, 0.212408E+01_JPRB, 0.212756E+01_JPRB, 0.213046E+01_JPRB &
+  &, 0.213276E+01_JPRB, 0.213449E+01_JPRB, 0.213563E+01_JPRB &
+  &, 0.213619E+01_JPRB, 0.213618E+01_JPRB, 0.213560E+01_JPRB, 0.213446E+01_JPRB &
+  &, 0.213276E+01_JPRB, 0.213051E+01_JPRB, 0.212768E+01_JPRB &
+  &, 0.212434E+01_JPRB, 0.212045E+01_JPRB, 0.211602E+01_JPRB, 0.211108E+01_JPRB &
+  &, 0.210560E+01_JPRB, 0.209962E+01_JPRB, 0.209313E+01_JPRB &
+  &, 0.208615E+01_JPRB, 0.207868E+01_JPRB, 0.207072E+01_JPRB, 0.206229E+01_JPRB &
+  &, 0.205340E+01_JPRB, 0.204404E+01_JPRB, 0.203425E+01_JPRB &
+  &, 0.202401E+01_JPRB, 0.201334E+01_JPRB, 0.200225E+01_JPRB, 0.199076E+01_JPRB &
+  &, 0.197886E+01_JPRB, 0.196658E+01_JPRB, 0.195391E+01_JPRB &
+  &, 0.194085E+01_JPRB, 0.192745E+01_JPRB, 0.191368E+01_JPRB, 0.189953E+01_JPRB &
+  &, 0.188516E+01_JPRB, 0.187039E+01_JPRB, 0.185532E+01_JPRB &
+  &, 0.183994E+01_JPRB, 0.182431E+01_JPRB, 0.180836E+01_JPRB, 0.179215E+01_JPRB &
+  &, 0.177570E+01_JPRB, 0.175896E+01_JPRB, 0.174201E+01_JPRB &
+  &, 0.172487E+01_JPRB, 0.170745E+01_JPRB, 0.168985E+01_JPRB, 0.167207E+01_JPRB &
+  &, 0.165409E+01_JPRB, 0.163594E+01_JPRB, 0.161764E+01_JPRB &
+  &, 0.159915E+01_JPRB, 0.158056E+01_JPRB, 0.156183E+01_JPRB, 0.154293E+01_JPRB &
+  &, 0.152398E+01_JPRB, 0.150487E+01_JPRB, 0.148573E+01_JPRB &
+  &, 0.146643E+01_JPRB, 0.144711E+01_JPRB, 0.142772E+01_JPRB, 0.140827E+01_JPRB &
+  &, 0.138882E+01_JPRB, 0.136929E+01_JPRB, 0.134972E+01_JPRB &
+  &, 0.133018E+01_JPRB, 0.131059E+01_JPRB, 0.129103E+01_JPRB, 0.127148E+01_JPRB &
+  &, 0.125189E+01_JPRB, 0.123237E+01_JPRB, 0.121292E+01_JPRB &
+  &, 0.119346E+01_JPRB, 0.117407E+01_JPRB, 0.115472E+01_JPRB, 0.113550E+01_JPRB &
+  &, 0.111630E+01_JPRB, 0.109715E+01_JPRB, 0.107813E+01_JPRB/)
+XCW( 854, :) = (/ &
+  &  0.110550E+01_JPRB, 0.113187E+01_JPRB, 0.115820E+01_JPRB, 0.118449E+01_JPRB &
+  &, 0.121070E+01_JPRB, 0.123684E+01_JPRB, 0.126287E+01_JPRB &
+  &, 0.128880E+01_JPRB, 0.131459E+01_JPRB, 0.134023E+01_JPRB, 0.136572E+01_JPRB &
+  &, 0.139103E+01_JPRB, 0.141614E+01_JPRB, 0.144105E+01_JPRB &
+  &, 0.146574E+01_JPRB, 0.149018E+01_JPRB, 0.151437E+01_JPRB, 0.153830E+01_JPRB &
+  &, 0.156194E+01_JPRB, 0.158528E+01_JPRB, 0.160830E+01_JPRB &
+  &, 0.163100E+01_JPRB, 0.165336E+01_JPRB, 0.167536E+01_JPRB, 0.169699E+01_JPRB &
+  &, 0.171824E+01_JPRB, 0.173909E+01_JPRB, 0.175953E+01_JPRB &
+  &, 0.177956E+01_JPRB, 0.179914E+01_JPRB, 0.181828E+01_JPRB, 0.183696E+01_JPRB &
+  &, 0.185518E+01_JPRB, 0.187291E+01_JPRB, 0.189016E+01_JPRB &
+  &, 0.190691E+01_JPRB, 0.192314E+01_JPRB, 0.193887E+01_JPRB, 0.195406E+01_JPRB &
+  &, 0.196869E+01_JPRB, 0.198285E+01_JPRB, 0.199642E+01_JPRB &
+  &, 0.200945E+01_JPRB, 0.202191E+01_JPRB, 0.203381E+01_JPRB, 0.204514E+01_JPRB &
+  &, 0.205588E+01_JPRB, 0.206606E+01_JPRB, 0.207566E+01_JPRB &
+  &, 0.208467E+01_JPRB, 0.209308E+01_JPRB, 0.210091E+01_JPRB, 0.210816E+01_JPRB &
+  &, 0.211479E+01_JPRB, 0.212087E+01_JPRB, 0.212633E+01_JPRB &
+  &, 0.213118E+01_JPRB, 0.213549E+01_JPRB, 0.213918E+01_JPRB, 0.214229E+01_JPRB &
+  &, 0.214480E+01_JPRB, 0.214673E+01_JPRB, 0.214807E+01_JPRB &
+  &, 0.214884E+01_JPRB, 0.214905E+01_JPRB, 0.214866E+01_JPRB, 0.214773E+01_JPRB &
+  &, 0.214622E+01_JPRB, 0.214416E+01_JPRB, 0.214154E+01_JPRB &
+  &, 0.213839E+01_JPRB, 0.213469E+01_JPRB, 0.213046E+01_JPRB, 0.212569E+01_JPRB &
+  &, 0.212040E+01_JPRB, 0.211458E+01_JPRB, 0.210827E+01_JPRB &
+  &, 0.210148E+01_JPRB, 0.209416E+01_JPRB, 0.208638E+01_JPRB, 0.207810E+01_JPRB &
+  &, 0.206936E+01_JPRB, 0.206018E+01_JPRB, 0.205053E+01_JPRB &
+  &, 0.204044E+01_JPRB, 0.202991E+01_JPRB, 0.201899E+01_JPRB, 0.200760E+01_JPRB &
+  &, 0.199584E+01_JPRB, 0.198368E+01_JPRB, 0.197114E+01_JPRB &
+  &, 0.195820E+01_JPRB, 0.194492E+01_JPRB, 0.193127E+01_JPRB, 0.191726E+01_JPRB &
+  &, 0.190289E+01_JPRB, 0.188830E+01_JPRB, 0.187332E+01_JPRB &
+  &, 0.185804E+01_JPRB, 0.184247E+01_JPRB, 0.182660E+01_JPRB, 0.181047E+01_JPRB &
+  &, 0.179410E+01_JPRB, 0.177743E+01_JPRB, 0.176055E+01_JPRB &
+  &, 0.174343E+01_JPRB, 0.172610E+01_JPRB, 0.170856E+01_JPRB, 0.169078E+01_JPRB &
+  &, 0.167285E+01_JPRB, 0.165473E+01_JPRB, 0.163646E+01_JPRB &
+  &, 0.161799E+01_JPRB, 0.159942E+01_JPRB, 0.158066E+01_JPRB, 0.156181E+01_JPRB &
+  &, 0.154286E+01_JPRB, 0.152375E+01_JPRB, 0.150460E+01_JPRB &
+  &, 0.148533E+01_JPRB, 0.146598E+01_JPRB, 0.144656E+01_JPRB, 0.142707E+01_JPRB &
+  &, 0.140758E+01_JPRB, 0.138800E+01_JPRB, 0.136842E+01_JPRB &
+  &, 0.134882E+01_JPRB, 0.132915E+01_JPRB, 0.130957E+01_JPRB, 0.128993E+01_JPRB &
+  &, 0.127031E+01_JPRB, 0.125074E+01_JPRB, 0.123118E+01_JPRB &
+  &, 0.121167E+01_JPRB, 0.119216E+01_JPRB, 0.117274E+01_JPRB, 0.115338E+01_JPRB &
+  &, 0.113410E+01_JPRB, 0.111492E+01_JPRB, 0.109574E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART122',1,ZHOOK_HANDLE)
+END SUBROUTINE PART122
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART123
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART123',0,ZHOOK_HANDLE)
+
+XCW( 855, :) = (/ &
+  &  0.110597E+01_JPRB, 0.113246E+01_JPRB, 0.115893E+01_JPRB, 0.118535E+01_JPRB &
+  &, 0.121170E+01_JPRB, 0.123797E+01_JPRB, 0.126415E+01_JPRB &
+  &, 0.129022E+01_JPRB, 0.131617E+01_JPRB, 0.134197E+01_JPRB, 0.136761E+01_JPRB &
+  &, 0.139308E+01_JPRB, 0.141836E+01_JPRB, 0.144343E+01_JPRB &
+  &, 0.146828E+01_JPRB, 0.149290E+01_JPRB, 0.151727E+01_JPRB, 0.154137E+01_JPRB &
+  &, 0.156519E+01_JPRB, 0.158871E+01_JPRB, 0.161193E+01_JPRB &
+  &, 0.163481E+01_JPRB, 0.165736E+01_JPRB, 0.167955E+01_JPRB, 0.170138E+01_JPRB &
+  &, 0.172283E+01_JPRB, 0.174388E+01_JPRB, 0.176452E+01_JPRB &
+  &, 0.178475E+01_JPRB, 0.180453E+01_JPRB, 0.182388E+01_JPRB, 0.184277E+01_JPRB &
+  &, 0.186120E+01_JPRB, 0.187915E+01_JPRB, 0.189660E+01_JPRB &
+  &, 0.191357E+01_JPRB, 0.193002E+01_JPRB, 0.194596E+01_JPRB, 0.196137E+01_JPRB &
+  &, 0.197626E+01_JPRB, 0.199059E+01_JPRB, 0.200440E+01_JPRB &
+  &, 0.201763E+01_JPRB, 0.203032E+01_JPRB, 0.204243E+01_JPRB, 0.205399E+01_JPRB &
+  &, 0.206496E+01_JPRB, 0.207535E+01_JPRB, 0.208517E+01_JPRB &
+  &, 0.209439E+01_JPRB, 0.210304E+01_JPRB, 0.211110E+01_JPRB, 0.211856E+01_JPRB &
+  &, 0.212543E+01_JPRB, 0.213170E+01_JPRB, 0.213740E+01_JPRB &
+  &, 0.214248E+01_JPRB, 0.214698E+01_JPRB, 0.215089E+01_JPRB, 0.215421E+01_JPRB &
+  &, 0.215694E+01_JPRB, 0.215907E+01_JPRB, 0.216064E+01_JPRB &
+  &, 0.216162E+01_JPRB, 0.216202E+01_JPRB, 0.216186E+01_JPRB, 0.216111E+01_JPRB &
+  &, 0.215980E+01_JPRB, 0.215795E+01_JPRB, 0.215552E+01_JPRB &
+  &, 0.215256E+01_JPRB, 0.214905E+01_JPRB, 0.214501E+01_JPRB, 0.214043E+01_JPRB &
+  &, 0.213531E+01_JPRB, 0.212970E+01_JPRB, 0.212356E+01_JPRB &
+  &, 0.211692E+01_JPRB, 0.210978E+01_JPRB, 0.210217E+01_JPRB, 0.209407E+01_JPRB &
+  &, 0.208551E+01_JPRB, 0.207646E+01_JPRB, 0.206698E+01_JPRB &
+  &, 0.205703E+01_JPRB, 0.204665E+01_JPRB, 0.203584E+01_JPRB, 0.202463E+01_JPRB &
+  &, 0.201299E+01_JPRB, 0.200097E+01_JPRB, 0.198856E+01_JPRB &
+  &, 0.197575E+01_JPRB, 0.196259E+01_JPRB, 0.194905E+01_JPRB, 0.193516E+01_JPRB &
+  &, 0.192093E+01_JPRB, 0.190638E+01_JPRB, 0.189151E+01_JPRB &
+  &, 0.187632E+01_JPRB, 0.186084E+01_JPRB, 0.184507E+01_JPRB, 0.182902E+01_JPRB &
+  &, 0.181269E+01_JPRB, 0.179606E+01_JPRB, 0.177929E+01_JPRB &
+  &, 0.176223E+01_JPRB, 0.174489E+01_JPRB, 0.172744E+01_JPRB, 0.170975E+01_JPRB &
+  &, 0.169186E+01_JPRB, 0.167370E+01_JPRB, 0.165551E+01_JPRB &
+  &, 0.163706E+01_JPRB, 0.161852E+01_JPRB, 0.159981E+01_JPRB, 0.158093E+01_JPRB &
+  &, 0.156199E+01_JPRB, 0.154287E+01_JPRB, 0.152371E+01_JPRB &
+  &, 0.150442E+01_JPRB, 0.148505E+01_JPRB, 0.146566E+01_JPRB, 0.144613E+01_JPRB &
+  &, 0.142660E+01_JPRB, 0.140702E+01_JPRB, 0.138739E+01_JPRB &
+  &, 0.136773E+01_JPRB, 0.134805E+01_JPRB, 0.132834E+01_JPRB, 0.130867E+01_JPRB &
+  &, 0.128902E+01_JPRB, 0.126935E+01_JPRB, 0.124975E+01_JPRB &
+  &, 0.123012E+01_JPRB, 0.121055E+01_JPRB, 0.119107E+01_JPRB, 0.117164E+01_JPRB &
+  &, 0.115221E+01_JPRB, 0.113289E+01_JPRB, 0.111368E+01_JPRB/)
+XCW( 856, :) = (/ &
+  &  0.110644E+01_JPRB, 0.113306E+01_JPRB, 0.115966E+01_JPRB, 0.118621E+01_JPRB &
+  &, 0.121270E+01_JPRB, 0.123912E+01_JPRB, 0.126544E+01_JPRB &
+  &, 0.129166E+01_JPRB, 0.131775E+01_JPRB, 0.134371E+01_JPRB, 0.136951E+01_JPRB &
+  &, 0.139514E+01_JPRB, 0.142058E+01_JPRB, 0.144582E+01_JPRB &
+  &, 0.147085E+01_JPRB, 0.149564E+01_JPRB, 0.152018E+01_JPRB, 0.154446E+01_JPRB &
+  &, 0.156846E+01_JPRB, 0.159217E+01_JPRB, 0.161557E+01_JPRB &
+  &, 0.163865E+01_JPRB, 0.166139E+01_JPRB, 0.168377E+01_JPRB, 0.170580E+01_JPRB &
+  &, 0.172744E+01_JPRB, 0.174869E+01_JPRB, 0.176954E+01_JPRB &
+  &, 0.178997E+01_JPRB, 0.180996E+01_JPRB, 0.182952E+01_JPRB, 0.184862E+01_JPRB &
+  &, 0.186726E+01_JPRB, 0.188541E+01_JPRB, 0.190309E+01_JPRB &
+  &, 0.192026E+01_JPRB, 0.193694E+01_JPRB, 0.195309E+01_JPRB, 0.196873E+01_JPRB &
+  &, 0.198383E+01_JPRB, 0.199839E+01_JPRB, 0.201241E+01_JPRB &
+  &, 0.202587E+01_JPRB, 0.203879E+01_JPRB, 0.205112E+01_JPRB, 0.206289E+01_JPRB &
+  &, 0.207409E+01_JPRB, 0.208472E+01_JPRB, 0.209476E+01_JPRB &
+  &, 0.210421E+01_JPRB, 0.211307E+01_JPRB, 0.212136E+01_JPRB, 0.212904E+01_JPRB &
+  &, 0.213613E+01_JPRB, 0.214263E+01_JPRB, 0.214854E+01_JPRB &
+  &, 0.215384E+01_JPRB, 0.215856E+01_JPRB, 0.216269E+01_JPRB, 0.216622E+01_JPRB &
+  &, 0.216918E+01_JPRB, 0.217152E+01_JPRB, 0.217330E+01_JPRB &
+  &, 0.217448E+01_JPRB, 0.217510E+01_JPRB, 0.217515E+01_JPRB, 0.217462E+01_JPRB &
+  &, 0.217352E+01_JPRB, 0.217186E+01_JPRB, 0.216963E+01_JPRB &
+  &, 0.216686E+01_JPRB, 0.216354E+01_JPRB, 0.215969E+01_JPRB, 0.215528E+01_JPRB &
+  &, 0.215037E+01_JPRB, 0.214493E+01_JPRB, 0.213898E+01_JPRB &
+  &, 0.213253E+01_JPRB, 0.212556E+01_JPRB, 0.211813E+01_JPRB, 0.211019E+01_JPRB &
+  &, 0.210179E+01_JPRB, 0.209292E+01_JPRB, 0.208357E+01_JPRB &
+  &, 0.207380E+01_JPRB, 0.206357E+01_JPRB, 0.205290E+01_JPRB, 0.204182E+01_JPRB &
+  &, 0.203033E+01_JPRB, 0.201844E+01_JPRB, 0.200616E+01_JPRB &
+  &, 0.199348E+01_JPRB, 0.198041E+01_JPRB, 0.196700E+01_JPRB, 0.195326E+01_JPRB &
+  &, 0.193911E+01_JPRB, 0.192466E+01_JPRB, 0.190990E+01_JPRB &
+  &, 0.189482E+01_JPRB, 0.187940E+01_JPRB, 0.186372E+01_JPRB, 0.184776E+01_JPRB &
+  &, 0.183151E+01_JPRB, 0.181500E+01_JPRB, 0.179826E+01_JPRB &
+  &, 0.178128E+01_JPRB, 0.176403E+01_JPRB, 0.174656E+01_JPRB, 0.172893E+01_JPRB &
+  &, 0.171109E+01_JPRB, 0.169301E+01_JPRB, 0.167481E+01_JPRB &
+  &, 0.165640E+01_JPRB, 0.163784E+01_JPRB, 0.161915E+01_JPRB, 0.160033E+01_JPRB &
+  &, 0.158134E+01_JPRB, 0.156228E+01_JPRB, 0.154311E+01_JPRB &
+  &, 0.152382E+01_JPRB, 0.150443E+01_JPRB, 0.148496E+01_JPRB, 0.146546E+01_JPRB &
+  &, 0.144588E+01_JPRB, 0.142627E+01_JPRB, 0.140658E+01_JPRB &
+  &, 0.138691E+01_JPRB, 0.136717E+01_JPRB, 0.134745E+01_JPRB, 0.132770E+01_JPRB &
+  &, 0.130796E+01_JPRB, 0.128826E+01_JPRB, 0.126856E+01_JPRB &
+  &, 0.124888E+01_JPRB, 0.122926E+01_JPRB, 0.120965E+01_JPRB, 0.119015E+01_JPRB &
+  &, 0.117065E+01_JPRB, 0.115124E+01_JPRB, 0.113188E+01_JPRB/)
+XCW( 857, :) = (/ &
+  &  0.110691E+01_JPRB, 0.113366E+01_JPRB, 0.116039E+01_JPRB, 0.118707E+01_JPRB &
+  &, 0.121371E+01_JPRB, 0.124026E+01_JPRB, 0.126673E+01_JPRB &
+  &, 0.129310E+01_JPRB, 0.131935E+01_JPRB, 0.134546E+01_JPRB, 0.137142E+01_JPRB &
+  &, 0.139721E+01_JPRB, 0.142282E+01_JPRB, 0.144823E+01_JPRB &
+  &, 0.147342E+01_JPRB, 0.149839E+01_JPRB, 0.152311E+01_JPRB, 0.154757E+01_JPRB &
+  &, 0.157176E+01_JPRB, 0.159565E+01_JPRB, 0.161924E+01_JPRB &
+  &, 0.164250E+01_JPRB, 0.166544E+01_JPRB, 0.168802E+01_JPRB, 0.171024E+01_JPRB &
+  &, 0.173208E+01_JPRB, 0.175354E+01_JPRB, 0.177459E+01_JPRB &
+  &, 0.179522E+01_JPRB, 0.181543E+01_JPRB, 0.183520E+01_JPRB, 0.185451E+01_JPRB &
+  &, 0.187336E+01_JPRB, 0.189173E+01_JPRB, 0.190962E+01_JPRB &
+  &, 0.192702E+01_JPRB, 0.194390E+01_JPRB, 0.196028E+01_JPRB, 0.197613E+01_JPRB &
+  &, 0.199146E+01_JPRB, 0.200625E+01_JPRB, 0.202049E+01_JPRB &
+  &, 0.203418E+01_JPRB, 0.204731E+01_JPRB, 0.205984E+01_JPRB, 0.207187E+01_JPRB &
+  &, 0.208330E+01_JPRB, 0.209415E+01_JPRB, 0.210442E+01_JPRB &
+  &, 0.211409E+01_JPRB, 0.212319E+01_JPRB, 0.213169E+01_JPRB, 0.213958E+01_JPRB &
+  &, 0.214691E+01_JPRB, 0.215364E+01_JPRB, 0.215978E+01_JPRB &
+  &, 0.216531E+01_JPRB, 0.217025E+01_JPRB, 0.217460E+01_JPRB, 0.217834E+01_JPRB &
+  &, 0.218150E+01_JPRB, 0.218409E+01_JPRB, 0.218606E+01_JPRB &
+  &, 0.218748E+01_JPRB, 0.218830E+01_JPRB, 0.218855E+01_JPRB, 0.218821E+01_JPRB &
+  &, 0.218733E+01_JPRB, 0.218587E+01_JPRB, 0.218385E+01_JPRB &
+  &, 0.218128E+01_JPRB, 0.217816E+01_JPRB, 0.217451E+01_JPRB, 0.217030E+01_JPRB &
+  &, 0.216558E+01_JPRB, 0.216033E+01_JPRB, 0.215455E+01_JPRB &
+  &, 0.214827E+01_JPRB, 0.214149E+01_JPRB, 0.213422E+01_JPRB, 0.212645E+01_JPRB &
+  &, 0.211823E+01_JPRB, 0.210951E+01_JPRB, 0.210035E+01_JPRB &
+  &, 0.209070E+01_JPRB, 0.208065E+01_JPRB, 0.207013E+01_JPRB, 0.205920E+01_JPRB &
+  &, 0.204785E+01_JPRB, 0.203610E+01_JPRB, 0.202392E+01_JPRB &
+  &, 0.201140E+01_JPRB, 0.199846E+01_JPRB, 0.198517E+01_JPRB, 0.197152E+01_JPRB &
+  &, 0.195753E+01_JPRB, 0.194316E+01_JPRB, 0.192851E+01_JPRB &
+  &, 0.191349E+01_JPRB, 0.189821E+01_JPRB, 0.188263E+01_JPRB, 0.186672E+01_JPRB &
+  &, 0.185056E+01_JPRB, 0.183413E+01_JPRB, 0.181743E+01_JPRB &
+  &, 0.180052E+01_JPRB, 0.178335E+01_JPRB, 0.176594E+01_JPRB, 0.174832E+01_JPRB &
+  &, 0.173053E+01_JPRB, 0.171254E+01_JPRB, 0.169434E+01_JPRB &
+  &, 0.167596E+01_JPRB, 0.165743E+01_JPRB, 0.163877E+01_JPRB, 0.161996E+01_JPRB &
+  &, 0.160099E+01_JPRB, 0.158193E+01_JPRB, 0.156271E+01_JPRB &
+  &, 0.154346E+01_JPRB, 0.152406E+01_JPRB, 0.150462E+01_JPRB, 0.148504E+01_JPRB &
+  &, 0.146506E+01_JPRB, 0.144583E+01_JPRB, 0.142610E+01_JPRB &
+  &, 0.140638E+01_JPRB, 0.138657E+01_JPRB, 0.136684E+01_JPRB, 0.134701E+01_JPRB &
+  &, 0.132725E+01_JPRB, 0.130746E+01_JPRB, 0.128766E+01_JPRB &
+  &, 0.126794E+01_JPRB, 0.124821E+01_JPRB, 0.122854E+01_JPRB, 0.120891E+01_JPRB &
+  &, 0.118934E+01_JPRB, 0.116986E+01_JPRB, 0.115041E+01_JPRB/)
+XCW( 858, :) = (/ &
+  &  0.110739E+01_JPRB, 0.113427E+01_JPRB, 0.116113E+01_JPRB, 0.118795E+01_JPRB &
+  &, 0.121472E+01_JPRB, 0.124142E+01_JPRB, 0.126803E+01_JPRB &
+  &, 0.129455E+01_JPRB, 0.132095E+01_JPRB, 0.134722E+01_JPRB, 0.137334E+01_JPRB &
+  &, 0.139929E+01_JPRB, 0.142507E+01_JPRB, 0.145065E+01_JPRB &
+  &, 0.147602E+01_JPRB, 0.150116E+01_JPRB, 0.152606E+01_JPRB, 0.155070E+01_JPRB &
+  &, 0.157507E+01_JPRB, 0.159915E+01_JPRB, 0.162292E+01_JPRB &
+  &, 0.164639E+01_JPRB, 0.166951E+01_JPRB, 0.169229E+01_JPRB, 0.171471E+01_JPRB &
+  &, 0.173676E+01_JPRB, 0.175842E+01_JPRB, 0.177967E+01_JPRB &
+  &, 0.180051E+01_JPRB, 0.182093E+01_JPRB, 0.184091E+01_JPRB, 0.186043E+01_JPRB &
+  &, 0.187950E+01_JPRB, 0.189809E+01_JPRB, 0.191620E+01_JPRB &
+  &, 0.193381E+01_JPRB, 0.195092E+01_JPRB, 0.196753E+01_JPRB, 0.198360E+01_JPRB &
+  &, 0.199915E+01_JPRB, 0.201417E+01_JPRB, 0.202863E+01_JPRB &
+  &, 0.204254E+01_JPRB, 0.205590E+01_JPRB, 0.206869E+01_JPRB, 0.208092E+01_JPRB &
+  &, 0.209258E+01_JPRB, 0.210365E+01_JPRB, 0.211414E+01_JPRB &
+  &, 0.212405E+01_JPRB, 0.213338E+01_JPRB, 0.214209E+01_JPRB, 0.215025E+01_JPRB &
+  &, 0.215780E+01_JPRB, 0.216474E+01_JPRB, 0.217109E+01_JPRB &
+  &, 0.217686E+01_JPRB, 0.218201E+01_JPRB, 0.218659E+01_JPRB, 0.219057E+01_JPRB &
+  &, 0.219394E+01_JPRB, 0.219674E+01_JPRB, 0.219895E+01_JPRB &
+  &, 0.220056E+01_JPRB, 0.220160E+01_JPRB, 0.220207E+01_JPRB, 0.220195E+01_JPRB &
+  &, 0.220126E+01_JPRB, 0.220002E+01_JPRB, 0.219820E+01_JPRB &
+  &, 0.219583E+01_JPRB, 0.219291E+01_JPRB, 0.218946E+01_JPRB, 0.218544E+01_JPRB &
+  &, 0.218092E+01_JPRB, 0.217585E+01_JPRB, 0.217026E+01_JPRB &
+  &, 0.216418E+01_JPRB, 0.215759E+01_JPRB, 0.215044E+01_JPRB, 0.214288E+01_JPRB &
+  &, 0.213482E+01_JPRB, 0.212627E+01_JPRB, 0.211726E+01_JPRB &
+  &, 0.210780E+01_JPRB, 0.209790E+01_JPRB, 0.208753E+01_JPRB, 0.207675E+01_JPRB &
+  &, 0.206554E+01_JPRB, 0.205394E+01_JPRB, 0.204190E+01_JPRB &
+  &, 0.202948E+01_JPRB, 0.201668E+01_JPRB, 0.200351E+01_JPRB, 0.198998E+01_JPRB &
+  &, 0.197611E+01_JPRB, 0.196186E+01_JPRB, 0.194729E+01_JPRB &
+  &, 0.193242E+01_JPRB, 0.191721E+01_JPRB, 0.190172E+01_JPRB, 0.188591E+01_JPRB &
+  &, 0.186984E+01_JPRB, 0.185346E+01_JPRB, 0.183684E+01_JPRB &
+  &, 0.182001E+01_JPRB, 0.180290E+01_JPRB, 0.178556E+01_JPRB, 0.176801E+01_JPRB &
+  &, 0.175023E+01_JPRB, 0.173229E+01_JPRB, 0.171414E+01_JPRB &
+  &, 0.169580E+01_JPRB, 0.167729E+01_JPRB, 0.165866E+01_JPRB, 0.163983E+01_JPRB &
+  &, 0.162087E+01_JPRB, 0.160182E+01_JPRB, 0.158266E+01_JPRB &
+  &, 0.156335E+01_JPRB, 0.154389E+01_JPRB, 0.152449E+01_JPRB, 0.150493E+01_JPRB &
+  &, 0.148530E+01_JPRB, 0.146561E+01_JPRB, 0.144589E+01_JPRB &
+  &, 0.142611E+01_JPRB, 0.140631E+01_JPRB, 0.138645E+01_JPRB, 0.136662E+01_JPRB &
+  &, 0.134678E+01_JPRB, 0.132696E+01_JPRB, 0.130713E+01_JPRB &
+  &, 0.128731E+01_JPRB, 0.126753E+01_JPRB, 0.124775E+01_JPRB, 0.122806E+01_JPRB &
+  &, 0.120836E+01_JPRB, 0.118880E+01_JPRB, 0.116927E+01_JPRB/)
+XCW( 859, :) = (/ &
+  &  0.110787E+01_JPRB, 0.113487E+01_JPRB, 0.116186E+01_JPRB, 0.118882E+01_JPRB &
+  &, 0.121573E+01_JPRB, 0.124258E+01_JPRB, 0.126934E+01_JPRB &
+  &, 0.129601E+01_JPRB, 0.132256E+01_JPRB, 0.134899E+01_JPRB, 0.137527E+01_JPRB &
+  &, 0.140139E+01_JPRB, 0.142733E+01_JPRB, 0.145308E+01_JPRB &
+  &, 0.147862E+01_JPRB, 0.150394E+01_JPRB, 0.152902E+01_JPRB, 0.155385E+01_JPRB &
+  &, 0.157840E+01_JPRB, 0.160267E+01_JPRB, 0.162664E+01_JPRB &
+  &, 0.165029E+01_JPRB, 0.167361E+01_JPRB, 0.169659E+01_JPRB, 0.171921E+01_JPRB &
+  &, 0.174146E+01_JPRB, 0.176333E+01_JPRB, 0.178479E+01_JPRB &
+  &, 0.180584E+01_JPRB, 0.182647E+01_JPRB, 0.184666E+01_JPRB, 0.186640E+01_JPRB &
+  &, 0.188568E+01_JPRB, 0.190450E+01_JPRB, 0.192282E+01_JPRB &
+  &, 0.194066E+01_JPRB, 0.195799E+01_JPRB, 0.197481E+01_JPRB, 0.199111E+01_JPRB &
+  &, 0.200689E+01_JPRB, 0.202213E+01_JPRB, 0.203683E+01_JPRB &
+  &, 0.205097E+01_JPRB, 0.206455E+01_JPRB, 0.207758E+01_JPRB, 0.209004E+01_JPRB &
+  &, 0.210192E+01_JPRB, 0.211323E+01_JPRB, 0.212395E+01_JPRB &
+  &, 0.213409E+01_JPRB, 0.214365E+01_JPRB, 0.215260E+01_JPRB, 0.216098E+01_JPRB &
+  &, 0.216875E+01_JPRB, 0.217592E+01_JPRB, 0.218251E+01_JPRB &
+  &, 0.218849E+01_JPRB, 0.219389E+01_JPRB, 0.219869E+01_JPRB, 0.220288E+01_JPRB &
+  &, 0.220649E+01_JPRB, 0.220950E+01_JPRB, 0.221190E+01_JPRB &
+  &, 0.221377E+01_JPRB, 0.221503E+01_JPRB, 0.221570E+01_JPRB, 0.221580E+01_JPRB &
+  &, 0.221534E+01_JPRB, 0.221429E+01_JPRB, 0.221268E+01_JPRB &
+  &, 0.221053E+01_JPRB, 0.220781E+01_JPRB, 0.220454E+01_JPRB, 0.220074E+01_JPRB &
+  &, 0.219640E+01_JPRB, 0.219153E+01_JPRB, 0.218614E+01_JPRB &
+  &, 0.218023E+01_JPRB, 0.217381E+01_JPRB, 0.216688E+01_JPRB, 0.215949E+01_JPRB &
+  &, 0.215158E+01_JPRB, 0.214321E+01_JPRB, 0.213437E+01_JPRB &
+  &, 0.212506E+01_JPRB, 0.211532E+01_JPRB, 0.210511E+01_JPRB, 0.209448E+01_JPRB &
+  &, 0.208342E+01_JPRB, 0.207196E+01_JPRB, 0.206006E+01_JPRB &
+  &, 0.204778E+01_JPRB, 0.203511E+01_JPRB, 0.202208E+01_JPRB, 0.200865E+01_JPRB &
+  &, 0.199490E+01_JPRB, 0.198077E+01_JPRB, 0.196631E+01_JPRB &
+  &, 0.195152E+01_JPRB, 0.193642E+01_JPRB, 0.192103E+01_JPRB, 0.190532E+01_JPRB &
+  &, 0.188931E+01_JPRB, 0.187306E+01_JPRB, 0.185653E+01_JPRB &
+  &, 0.183973E+01_JPRB, 0.182266E+01_JPRB, 0.180539E+01_JPRB, 0.178790E+01_JPRB &
+  &, 0.177018E+01_JPRB, 0.175226E+01_JPRB, 0.173415E+01_JPRB &
+  &, 0.171585E+01_JPRB, 0.169739E+01_JPRB, 0.167879E+01_JPRB, 0.165998E+01_JPRB &
+  &, 0.164104E+01_JPRB, 0.162201E+01_JPRB, 0.160285E+01_JPRB &
+  &, 0.158355E+01_JPRB, 0.156413E+01_JPRB, 0.154466E+01_JPRB, 0.152509E+01_JPRB &
+  &, 0.150543E+01_JPRB, 0.148570E+01_JPRB, 0.146595E+01_JPRB &
+  &, 0.144613E+01_JPRB, 0.142622E+01_JPRB, 0.140641E+01_JPRB, 0.138651E+01_JPRB &
+  &, 0.136665E+01_JPRB, 0.134675E+01_JPRB, 0.132683E+01_JPRB &
+  &, 0.130691E+01_JPRB, 0.128709E+01_JPRB, 0.126726E+01_JPRB, 0.124745E+01_JPRB &
+  &, 0.122769E+01_JPRB, 0.120800E+01_JPRB, 0.118840E+01_JPRB/)
+XCW( 860, :) = (/ &
+  &  0.110835E+01_JPRB, 0.113548E+01_JPRB, 0.116261E+01_JPRB, 0.118970E+01_JPRB &
+  &, 0.121675E+01_JPRB, 0.124374E+01_JPRB, 0.127066E+01_JPRB &
+  &, 0.129748E+01_JPRB, 0.132418E+01_JPRB, 0.135077E+01_JPRB, 0.137721E+01_JPRB &
+  &, 0.140350E+01_JPRB, 0.142961E+01_JPRB, 0.145553E+01_JPRB &
+  &, 0.148125E+01_JPRB, 0.150674E+01_JPRB, 0.153200E+01_JPRB, 0.155701E+01_JPRB &
+  &, 0.158176E+01_JPRB, 0.160621E+01_JPRB, 0.163037E+01_JPRB &
+  &, 0.165422E+01_JPRB, 0.167774E+01_JPRB, 0.170092E+01_JPRB, 0.172375E+01_JPRB &
+  &, 0.174620E+01_JPRB, 0.176827E+01_JPRB, 0.178994E+01_JPRB &
+  &, 0.181120E+01_JPRB, 0.183204E+01_JPRB, 0.185245E+01_JPRB, 0.187241E+01_JPRB &
+  &, 0.189191E+01_JPRB, 0.191094E+01_JPRB, 0.192949E+01_JPRB &
+  &, 0.194755E+01_JPRB, 0.196511E+01_JPRB, 0.198215E+01_JPRB, 0.199869E+01_JPRB &
+  &, 0.201469E+01_JPRB, 0.203015E+01_JPRB, 0.204508E+01_JPRB &
+  &, 0.205945E+01_JPRB, 0.207328E+01_JPRB, 0.208653E+01_JPRB, 0.209922E+01_JPRB &
+  &, 0.211125E+01_JPRB, 0.212288E+01_JPRB, 0.213383E+01_JPRB &
+  &, 0.214421E+01_JPRB, 0.215400E+01_JPRB, 0.216319E+01_JPRB, 0.217179E+01_JPRB &
+  &, 0.217979E+01_JPRB, 0.218721E+01_JPRB, 0.219401E+01_JPRB &
+  &, 0.220024E+01_JPRB, 0.220585E+01_JPRB, 0.221087E+01_JPRB, 0.221530E+01_JPRB &
+  &, 0.221914E+01_JPRB, 0.222238E+01_JPRB, 0.222502E+01_JPRB &
+  &, 0.222709E+01_JPRB, 0.222857E+01_JPRB, 0.222946E+01_JPRB, 0.222979E+01_JPRB &
+  &, 0.222953E+01_JPRB, 0.222869E+01_JPRB, 0.222730E+01_JPRB &
+  &, 0.222533E+01_JPRB, 0.222284E+01_JPRB, 0.221977E+01_JPRB, 0.221616E+01_JPRB &
+  &, 0.221202E+01_JPRB, 0.220735E+01_JPRB, 0.220214E+01_JPRB &
+  &, 0.219643E+01_JPRB, 0.219021E+01_JPRB, 0.218346E+01_JPRB, 0.217623E+01_JPRB &
+  &, 0.216852E+01_JPRB, 0.216032E+01_JPRB, 0.215164E+01_JPRB &
+  &, 0.214250E+01_JPRB, 0.213291E+01_JPRB, 0.212286E+01_JPRB, 0.211238E+01_JPRB &
+  &, 0.210147E+01_JPRB, 0.209016E+01_JPRB, 0.207841E+01_JPRB &
+  &, 0.206628E+01_JPRB, 0.205375E+01_JPRB, 0.204082E+01_JPRB, 0.202755E+01_JPRB &
+  &, 0.201390E+01_JPRB, 0.199989E+01_JPRB, 0.198555E+01_JPRB &
+  &, 0.197087E+01_JPRB, 0.195588E+01_JPRB, 0.194057E+01_JPRB, 0.192493E+01_JPRB &
+  &, 0.190905E+01_JPRB, 0.189286E+01_JPRB, 0.187637E+01_JPRB &
+  &, 0.185966E+01_JPRB, 0.184271E+01_JPRB, 0.182547E+01_JPRB, 0.180805E+01_JPRB &
+  &, 0.179039E+01_JPRB, 0.177253E+01_JPRB, 0.175447E+01_JPRB &
+  &, 0.173618E+01_JPRB, 0.171776E+01_JPRB, 0.169914E+01_JPRB, 0.168041E+01_JPRB &
+  &, 0.166150E+01_JPRB, 0.164243E+01_JPRB, 0.162328E+01_JPRB &
+  &, 0.160399E+01_JPRB, 0.158462E+01_JPRB, 0.156510E+01_JPRB, 0.154551E+01_JPRB &
+  &, 0.152582E+01_JPRB, 0.150612E+01_JPRB, 0.148633E+01_JPRB &
+  &, 0.146647E+01_JPRB, 0.144657E+01_JPRB, 0.142665E+01_JPRB, 0.140674E+01_JPRB &
+  &, 0.138676E+01_JPRB, 0.136684E+01_JPRB, 0.134683E+01_JPRB &
+  &, 0.132689E+01_JPRB, 0.130696E+01_JPRB, 0.128709E+01_JPRB, 0.126717E+01_JPRB &
+  &, 0.124734E+01_JPRB, 0.122758E+01_JPRB, 0.120785E+01_JPRB/)
+XCW( 861, :) = (/ &
+  &  0.110883E+01_JPRB, 0.113610E+01_JPRB, 0.116336E+01_JPRB, 0.119059E+01_JPRB &
+  &, 0.121778E+01_JPRB, 0.124492E+01_JPRB, 0.127198E+01_JPRB &
+  &, 0.129895E+01_JPRB, 0.132582E+01_JPRB, 0.135256E+01_JPRB, 0.137917E+01_JPRB &
+  &, 0.140562E+01_JPRB, 0.143190E+01_JPRB, 0.145799E+01_JPRB &
+  &, 0.148389E+01_JPRB, 0.150956E+01_JPRB, 0.153501E+01_JPRB, 0.156020E+01_JPRB &
+  &, 0.158513E+01_JPRB, 0.160978E+01_JPRB, 0.163413E+01_JPRB &
+  &, 0.165818E+01_JPRB, 0.168190E+01_JPRB, 0.170528E+01_JPRB, 0.172830E+01_JPRB &
+  &, 0.175097E+01_JPRB, 0.177325E+01_JPRB, 0.179513E+01_JPRB &
+  &, 0.181660E+01_JPRB, 0.183766E+01_JPRB, 0.185828E+01_JPRB, 0.187846E+01_JPRB &
+  &, 0.189818E+01_JPRB, 0.191744E+01_JPRB, 0.193621E+01_JPRB &
+  &, 0.195449E+01_JPRB, 0.197227E+01_JPRB, 0.198956E+01_JPRB, 0.200631E+01_JPRB &
+  &, 0.202254E+01_JPRB, 0.203825E+01_JPRB, 0.205340E+01_JPRB &
+  &, 0.206801E+01_JPRB, 0.208206E+01_JPRB, 0.209556E+01_JPRB, 0.210848E+01_JPRB &
+  &, 0.212083E+01_JPRB, 0.213261E+01_JPRB, 0.214380E+01_JPRB &
+  &, 0.215440E+01_JPRB, 0.216443E+01_JPRB, 0.217386E+01_JPRB, 0.218268E+01_JPRB &
+  &, 0.219093E+01_JPRB, 0.219857E+01_JPRB, 0.220561E+01_JPRB &
+  &, 0.221206E+01_JPRB, 0.221791E+01_JPRB, 0.222317E+01_JPRB, 0.222783E+01_JPRB &
+  &, 0.223190E+01_JPRB, 0.223537E+01_JPRB, 0.223825E+01_JPRB &
+  &, 0.224052E+01_JPRB, 0.224223E+01_JPRB, 0.224334E+01_JPRB, 0.224387E+01_JPRB &
+  &, 0.224384E+01_JPRB, 0.224323E+01_JPRB, 0.224204E+01_JPRB &
+  &, 0.224031E+01_JPRB, 0.223800E+01_JPRB, 0.223514E+01_JPRB, 0.223173E+01_JPRB &
+  &, 0.222780E+01_JPRB, 0.222331E+01_JPRB, 0.221830E+01_JPRB &
+  &, 0.221280E+01_JPRB, 0.220676E+01_JPRB, 0.220020E+01_JPRB, 0.219316E+01_JPRB &
+  &, 0.218561E+01_JPRB, 0.217758E+01_JPRB, 0.216910E+01_JPRB &
+  &, 0.216012E+01_JPRB, 0.215068E+01_JPRB, 0.214081E+01_JPRB, 0.213049E+01_JPRB &
+  &, 0.211974E+01_JPRB, 0.210855E+01_JPRB, 0.209698E+01_JPRB &
+  &, 0.208496E+01_JPRB, 0.207257E+01_JPRB, 0.205978E+01_JPRB, 0.204665E+01_JPRB &
+  &, 0.203309E+01_JPRB, 0.201921E+01_JPRB, 0.200500E+01_JPRB &
+  &, 0.199044E+01_JPRB, 0.197553E+01_JPRB, 0.196033E+01_JPRB, 0.194479E+01_JPRB &
+  &, 0.192898E+01_JPRB, 0.191288E+01_JPRB, 0.189649E+01_JPRB &
+  &, 0.187987E+01_JPRB, 0.186296E+01_JPRB, 0.184584E+01_JPRB, 0.182845E+01_JPRB &
+  &, 0.181086E+01_JPRB, 0.179301E+01_JPRB, 0.177502E+01_JPRB &
+  &, 0.175677E+01_JPRB, 0.173840E+01_JPRB, 0.171982E+01_JPRB, 0.170108E+01_JPRB &
+  &, 0.168220E+01_JPRB, 0.166315E+01_JPRB, 0.164402E+01_JPRB &
+  &, 0.162473E+01_JPRB, 0.160531E+01_JPRB, 0.158584E+01_JPRB, 0.156624E+01_JPRB &
+  &, 0.154654E+01_JPRB, 0.152681E+01_JPRB, 0.150699E+01_JPRB &
+  &, 0.148709E+01_JPRB, 0.146720E+01_JPRB, 0.144723E+01_JPRB, 0.142721E+01_JPRB &
+  &, 0.140721E+01_JPRB, 0.138722E+01_JPRB, 0.136720E+01_JPRB &
+  &, 0.134716E+01_JPRB, 0.132714E+01_JPRB, 0.130717E+01_JPRB, 0.128726E+01_JPRB &
+  &, 0.126732E+01_JPRB, 0.124743E+01_JPRB, 0.122763E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART123',1,ZHOOK_HANDLE)
+END SUBROUTINE PART123
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART124
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART124',0,ZHOOK_HANDLE)
+
+XCW( 862, :) = (/ &
+  &  0.110931E+01_JPRB, 0.113671E+01_JPRB, 0.116411E+01_JPRB, 0.119148E+01_JPRB &
+  &, 0.121881E+01_JPRB, 0.124610E+01_JPRB, 0.127331E+01_JPRB &
+  &, 0.130043E+01_JPRB, 0.132746E+01_JPRB, 0.135436E+01_JPRB, 0.138113E+01_JPRB &
+  &, 0.140775E+01_JPRB, 0.143420E+01_JPRB, 0.146047E+01_JPRB &
+  &, 0.148654E+01_JPRB, 0.151240E+01_JPRB, 0.153803E+01_JPRB, 0.156341E+01_JPRB &
+  &, 0.158852E+01_JPRB, 0.161337E+01_JPRB, 0.163791E+01_JPRB &
+  &, 0.166216E+01_JPRB, 0.168607E+01_JPRB, 0.170966E+01_JPRB, 0.173290E+01_JPRB &
+  &, 0.175576E+01_JPRB, 0.177825E+01_JPRB, 0.180035E+01_JPRB &
+  &, 0.182204E+01_JPRB, 0.184331E+01_JPRB, 0.186416E+01_JPRB, 0.188455E+01_JPRB &
+  &, 0.190450E+01_JPRB, 0.192397E+01_JPRB, 0.194297E+01_JPRB &
+  &, 0.196149E+01_JPRB, 0.197949E+01_JPRB, 0.199701E+01_JPRB, 0.201399E+01_JPRB &
+  &, 0.203046E+01_JPRB, 0.204639E+01_JPRB, 0.206178E+01_JPRB &
+  &, 0.207663E+01_JPRB, 0.209091E+01_JPRB, 0.210464E+01_JPRB, 0.211780E+01_JPRB &
+  &, 0.213039E+01_JPRB, 0.214240E+01_JPRB, 0.215383E+01_JPRB &
+  &, 0.216468E+01_JPRB, 0.217494E+01_JPRB, 0.218461E+01_JPRB, 0.219368E+01_JPRB &
+  &, 0.220216E+01_JPRB, 0.221004E+01_JPRB, 0.221732E+01_JPRB &
+  &, 0.222400E+01_JPRB, 0.223009E+01_JPRB, 0.223558E+01_JPRB, 0.224046E+01_JPRB &
+  &, 0.224470E+01_JPRB, 0.224846E+01_JPRB, 0.225156E+01_JPRB &
+  &, 0.225407E+01_JPRB, 0.225601E+01_JPRB, 0.225734E+01_JPRB, 0.225811E+01_JPRB &
+  &, 0.225828E+01_JPRB, 0.225788E+01_JPRB, 0.225691E+01_JPRB &
+  &, 0.225538E+01_JPRB, 0.225314E+01_JPRB, 0.225066E+01_JPRB, 0.224746E+01_JPRB &
+  &, 0.224372E+01_JPRB, 0.223944E+01_JPRB, 0.223464E+01_JPRB &
+  &, 0.222931E+01_JPRB, 0.222345E+01_JPRB, 0.221710E+01_JPRB, 0.221024E+01_JPRB &
+  &, 0.220289E+01_JPRB, 0.219504E+01_JPRB, 0.218670E+01_JPRB &
+  &, 0.217792E+01_JPRB, 0.216867E+01_JPRB, 0.215894E+01_JPRB, 0.214878E+01_JPRB &
+  &, 0.213818E+01_JPRB, 0.212715E+01_JPRB, 0.211570E+01_JPRB &
+  &, 0.210386E+01_JPRB, 0.209159E+01_JPRB, 0.207894E+01_JPRB, 0.206591E+01_JPRB &
+  &, 0.205253E+01_JPRB, 0.203878E+01_JPRB, 0.202466E+01_JPRB &
+  &, 0.201023E+01_JPRB, 0.199544E+01_JPRB, 0.198031E+01_JPRB, 0.196488E+01_JPRB &
+  &, 0.194918E+01_JPRB, 0.193318E+01_JPRB, 0.191689E+01_JPRB &
+  &, 0.190032E+01_JPRB, 0.188350E+01_JPRB, 0.186642E+01_JPRB, 0.184911E+01_JPRB &
+  &, 0.183155E+01_JPRB, 0.181381E+01_JPRB, 0.179583E+01_JPRB &
+  &, 0.177764E+01_JPRB, 0.175931E+01_JPRB, 0.174069E+01_JPRB, 0.172203E+01_JPRB &
+  &, 0.170318E+01_JPRB, 0.168416E+01_JPRB, 0.166504E+01_JPRB &
+  &, 0.164577E+01_JPRB, 0.162635E+01_JPRB, 0.160683E+01_JPRB, 0.158723E+01_JPRB &
+  &, 0.156756E+01_JPRB, 0.154777E+01_JPRB, 0.152792E+01_JPRB &
+  &, 0.150804E+01_JPRB, 0.148806E+01_JPRB, 0.146809E+01_JPRB, 0.144807E+01_JPRB &
+  &, 0.142802E+01_JPRB, 0.140790E+01_JPRB, 0.138786E+01_JPRB &
+  &, 0.136774E+01_JPRB, 0.134769E+01_JPRB, 0.132762E+01_JPRB, 0.130760E+01_JPRB &
+  &, 0.128761E+01_JPRB, 0.126767E+01_JPRB, 0.124773E+01_JPRB/)
+XCW( 863, :) = (/ &
+  &  0.110980E+01_JPRB, 0.113733E+01_JPRB, 0.116486E+01_JPRB, 0.119237E+01_JPRB &
+  &, 0.121985E+01_JPRB, 0.124728E+01_JPRB, 0.127464E+01_JPRB &
+  &, 0.130192E+01_JPRB, 0.132911E+01_JPRB, 0.135617E+01_JPRB, 0.138311E+01_JPRB &
+  &, 0.140990E+01_JPRB, 0.143652E+01_JPRB, 0.146297E+01_JPRB &
+  &, 0.148921E+01_JPRB, 0.151525E+01_JPRB, 0.154106E+01_JPRB, 0.156663E+01_JPRB &
+  &, 0.159194E+01_JPRB, 0.161698E+01_JPRB, 0.164172E+01_JPRB &
+  &, 0.166617E+01_JPRB, 0.169029E+01_JPRB, 0.171408E+01_JPRB, 0.173752E+01_JPRB &
+  &, 0.176059E+01_JPRB, 0.178330E+01_JPRB, 0.180561E+01_JPRB &
+  &, 0.182751E+01_JPRB, 0.184901E+01_JPRB, 0.187007E+01_JPRB, 0.189069E+01_JPRB &
+  &, 0.191086E+01_JPRB, 0.193056E+01_JPRB, 0.194978E+01_JPRB &
+  &, 0.196853E+01_JPRB, 0.198677E+01_JPRB, 0.200451E+01_JPRB, 0.202173E+01_JPRB &
+  &, 0.203843E+01_JPRB, 0.205460E+01_JPRB, 0.207023E+01_JPRB &
+  &, 0.208531E+01_JPRB, 0.209984E+01_JPRB, 0.211380E+01_JPRB, 0.212720E+01_JPRB &
+  &, 0.213999E+01_JPRB, 0.215228E+01_JPRB, 0.216395E+01_JPRB &
+  &, 0.217503E+01_JPRB, 0.218553E+01_JPRB, 0.219544E+01_JPRB, 0.220476E+01_JPRB &
+  &, 0.221348E+01_JPRB, 0.222159E+01_JPRB, 0.222911E+01_JPRB &
+  &, 0.223604E+01_JPRB, 0.224237E+01_JPRB, 0.224808E+01_JPRB, 0.225321E+01_JPRB &
+  &, 0.225774E+01_JPRB, 0.226167E+01_JPRB, 0.226500E+01_JPRB &
+  &, 0.226774E+01_JPRB, 0.226990E+01_JPRB, 0.227147E+01_JPRB, 0.227244E+01_JPRB &
+  &, 0.227285E+01_JPRB, 0.227268E+01_JPRB, 0.227193E+01_JPRB &
+  &, 0.227061E+01_JPRB, 0.226875E+01_JPRB, 0.226631E+01_JPRB, 0.226332E+01_JPRB &
+  &, 0.225979E+01_JPRB, 0.225572E+01_JPRB, 0.225111E+01_JPRB &
+  &, 0.224599E+01_JPRB, 0.224032E+01_JPRB, 0.223416E+01_JPRB, 0.222749E+01_JPRB &
+  &, 0.222033E+01_JPRB, 0.221265E+01_JPRB, 0.220451E+01_JPRB &
+  &, 0.219588E+01_JPRB, 0.218680E+01_JPRB, 0.217726E+01_JPRB, 0.216727E+01_JPRB &
+  &, 0.215681E+01_JPRB, 0.214597E+01_JPRB, 0.213468E+01_JPRB &
+  &, 0.212296E+01_JPRB, 0.211083E+01_JPRB, 0.209833E+01_JPRB, 0.208545E+01_JPRB &
+  &, 0.207217E+01_JPRB, 0.205856E+01_JPRB, 0.204457E+01_JPRB &
+  &, 0.203022E+01_JPRB, 0.201556E+01_JPRB, 0.200055E+01_JPRB, 0.198524E+01_JPRB &
+  &, 0.196961E+01_JPRB, 0.195368E+01_JPRB, 0.193748E+01_JPRB &
+  &, 0.192101E+01_JPRB, 0.190424E+01_JPRB, 0.188725E+01_JPRB, 0.187002E+01_JPRB &
+  &, 0.185253E+01_JPRB, 0.183482E+01_JPRB, 0.181690E+01_JPRB &
+  &, 0.179877E+01_JPRB, 0.178045E+01_JPRB, 0.176197E+01_JPRB, 0.174331E+01_JPRB &
+  &, 0.172444E+01_JPRB, 0.170545E+01_JPRB, 0.168631E+01_JPRB &
+  &, 0.166705E+01_JPRB, 0.164765E+01_JPRB, 0.162819E+01_JPRB, 0.160858E+01_JPRB &
+  &, 0.158886E+01_JPRB, 0.156905E+01_JPRB, 0.154923E+01_JPRB &
+  &, 0.152927E+01_JPRB, 0.150930E+01_JPRB, 0.148924E+01_JPRB, 0.146917E+01_JPRB &
+  &, 0.144906E+01_JPRB, 0.142893E+01_JPRB, 0.140882E+01_JPRB &
+  &, 0.138868E+01_JPRB, 0.136855E+01_JPRB, 0.134844E+01_JPRB, 0.132833E+01_JPRB &
+  &, 0.130823E+01_JPRB, 0.128823E+01_JPRB, 0.126823E+01_JPRB/)
+XCW( 864, :) = (/ &
+  &  0.111029E+01_JPRB, 0.113795E+01_JPRB, 0.116562E+01_JPRB, 0.119327E+01_JPRB &
+  &, 0.122090E+01_JPRB, 0.124847E+01_JPRB, 0.127599E+01_JPRB &
+  &, 0.130342E+01_JPRB, 0.133077E+01_JPRB, 0.135799E+01_JPRB, 0.138510E+01_JPRB &
+  &, 0.141205E+01_JPRB, 0.143885E+01_JPRB, 0.146547E+01_JPRB &
+  &, 0.149190E+01_JPRB, 0.151812E+01_JPRB, 0.154412E+01_JPRB, 0.156988E+01_JPRB &
+  &, 0.159538E+01_JPRB, 0.162061E+01_JPRB, 0.164556E+01_JPRB &
+  &, 0.167020E+01_JPRB, 0.169453E+01_JPRB, 0.171852E+01_JPRB, 0.174217E+01_JPRB &
+  &, 0.176546E+01_JPRB, 0.178837E+01_JPRB, 0.181090E+01_JPRB &
+  &, 0.183303E+01_JPRB, 0.185474E+01_JPRB, 0.187602E+01_JPRB, 0.189686E+01_JPRB &
+  &, 0.191726E+01_JPRB, 0.193719E+01_JPRB, 0.195665E+01_JPRB &
+  &, 0.197561E+01_JPRB, 0.199409E+01_JPRB, 0.201207E+01_JPRB, 0.202953E+01_JPRB &
+  &, 0.204646E+01_JPRB, 0.206287E+01_JPRB, 0.207873E+01_JPRB &
+  &, 0.209406E+01_JPRB, 0.210883E+01_JPRB, 0.212303E+01_JPRB, 0.213668E+01_JPRB &
+  &, 0.214974E+01_JPRB, 0.216224E+01_JPRB, 0.217415E+01_JPRB &
+  &, 0.218548E+01_JPRB, 0.219622E+01_JPRB, 0.220637E+01_JPRB, 0.221592E+01_JPRB &
+  &, 0.222488E+01_JPRB, 0.223325E+01_JPRB, 0.224099E+01_JPRB &
+  &, 0.224817E+01_JPRB, 0.225474E+01_JPRB, 0.226070E+01_JPRB, 0.226605E+01_JPRB &
+  &, 0.227083E+01_JPRB, 0.227498E+01_JPRB, 0.227856E+01_JPRB &
+  &, 0.228153E+01_JPRB, 0.228392E+01_JPRB, 0.228572E+01_JPRB, 0.228693E+01_JPRB &
+  &, 0.228756E+01_JPRB, 0.228760E+01_JPRB, 0.228708E+01_JPRB &
+  &, 0.228598E+01_JPRB, 0.228434E+01_JPRB, 0.228211E+01_JPRB, 0.227935E+01_JPRB &
+  &, 0.227603E+01_JPRB, 0.227215E+01_JPRB, 0.226775E+01_JPRB &
+  &, 0.226283E+01_JPRB, 0.225736E+01_JPRB, 0.225141E+01_JPRB, 0.224491E+01_JPRB &
+  &, 0.223795E+01_JPRB, 0.223045E+01_JPRB, 0.222249E+01_JPRB &
+  &, 0.221406E+01_JPRB, 0.220513E+01_JPRB, 0.219576E+01_JPRB, 0.218594E+01_JPRB &
+  &, 0.217568E+01_JPRB, 0.216497E+01_JPRB, 0.215383E+01_JPRB &
+  &, 0.214227E+01_JPRB, 0.213030E+01_JPRB, 0.211792E+01_JPRB, 0.210518E+01_JPRB &
+  &, 0.209205E+01_JPRB, 0.207854E+01_JPRB, 0.206468E+01_JPRB &
+  &, 0.205047E+01_JPRB, 0.203590E+01_JPRB, 0.202102E+01_JPRB, 0.200578E+01_JPRB &
+  &, 0.199026E+01_JPRB, 0.197445E+01_JPRB, 0.195836E+01_JPRB &
+  &, 0.194194E+01_JPRB, 0.192527E+01_JPRB, 0.190837E+01_JPRB, 0.189118E+01_JPRB &
+  &, 0.187377E+01_JPRB, 0.185613E+01_JPRB, 0.183824E+01_JPRB &
+  &, 0.182018E+01_JPRB, 0.180191E+01_JPRB, 0.178344E+01_JPRB, 0.176482E+01_JPRB &
+  &, 0.174600E+01_JPRB, 0.172704E+01_JPRB, 0.170793E+01_JPRB &
+  &, 0.168869E+01_JPRB, 0.166931E+01_JPRB, 0.164980E+01_JPRB, 0.163019E+01_JPRB &
+  &, 0.161047E+01_JPRB, 0.159065E+01_JPRB, 0.157081E+01_JPRB &
+  &, 0.155083E+01_JPRB, 0.153083E+01_JPRB, 0.151073E+01_JPRB, 0.149061E+01_JPRB &
+  &, 0.147051E+01_JPRB, 0.145032E+01_JPRB, 0.143014E+01_JPRB &
+  &, 0.140993E+01_JPRB, 0.138971E+01_JPRB, 0.136952E+01_JPRB, 0.134936E+01_JPRB &
+  &, 0.132922E+01_JPRB, 0.130905E+01_JPRB, 0.128900E+01_JPRB/)
+XCW( 865, :) = (/ &
+  &  0.111078E+01_JPRB, 0.113858E+01_JPRB, 0.116639E+01_JPRB, 0.119418E+01_JPRB &
+  &, 0.122195E+01_JPRB, 0.124967E+01_JPRB, 0.127734E+01_JPRB &
+  &, 0.130493E+01_JPRB, 0.133243E+01_JPRB, 0.135983E+01_JPRB, 0.138710E+01_JPRB &
+  &, 0.141423E+01_JPRB, 0.144120E+01_JPRB, 0.146800E+01_JPRB &
+  &, 0.149461E+01_JPRB, 0.152101E+01_JPRB, 0.154720E+01_JPRB, 0.157315E+01_JPRB &
+  &, 0.159884E+01_JPRB, 0.162427E+01_JPRB, 0.164941E+01_JPRB &
+  &, 0.167426E+01_JPRB, 0.169879E+01_JPRB, 0.172299E+01_JPRB, 0.174685E+01_JPRB &
+  &, 0.177035E+01_JPRB, 0.179349E+01_JPRB, 0.181623E+01_JPRB &
+  &, 0.183858E+01_JPRB, 0.186051E+01_JPRB, 0.188202E+01_JPRB, 0.190309E+01_JPRB &
+  &, 0.192371E+01_JPRB, 0.194387E+01_JPRB, 0.196356E+01_JPRB &
+  &, 0.198277E+01_JPRB, 0.200147E+01_JPRB, 0.201968E+01_JPRB, 0.203738E+01_JPRB &
+  &, 0.205456E+01_JPRB, 0.207053E+01_JPRB, 0.208731E+01_JPRB &
+  &, 0.210288E+01_JPRB, 0.211788E+01_JPRB, 0.213233E+01_JPRB, 0.214622E+01_JPRB &
+  &, 0.215954E+01_JPRB, 0.217227E+01_JPRB, 0.218443E+01_JPRB &
+  &, 0.219600E+01_JPRB, 0.220697E+01_JPRB, 0.221739E+01_JPRB, 0.222719E+01_JPRB &
+  &, 0.223640E+01_JPRB, 0.224499E+01_JPRB, 0.225301E+01_JPRB &
+  &, 0.226042E+01_JPRB, 0.226722E+01_JPRB, 0.227342E+01_JPRB, 0.227901E+01_JPRB &
+  &, 0.228403E+01_JPRB, 0.228844E+01_JPRB, 0.229224E+01_JPRB &
+  &, 0.229545E+01_JPRB, 0.229808E+01_JPRB, 0.230009E+01_JPRB, 0.230154E+01_JPRB &
+  &, 0.230240E+01_JPRB, 0.230269E+01_JPRB, 0.230238E+01_JPRB &
+  &, 0.230150E+01_JPRB, 0.230008E+01_JPRB, 0.229807E+01_JPRB, 0.229552E+01_JPRB &
+  &, 0.229240E+01_JPRB, 0.228858E+01_JPRB, 0.228456E+01_JPRB &
+  &, 0.227983E+01_JPRB, 0.227458E+01_JPRB, 0.226882E+01_JPRB, 0.226253E+01_JPRB &
+  &, 0.225573E+01_JPRB, 0.224844E+01_JPRB, 0.224067E+01_JPRB &
+  &, 0.223242E+01_JPRB, 0.222369E+01_JPRB, 0.221447E+01_JPRB, 0.220482E+01_JPRB &
+  &, 0.219472E+01_JPRB, 0.218415E+01_JPRB, 0.217318E+01_JPRB &
+  &, 0.216178E+01_JPRB, 0.214997E+01_JPRB, 0.213774E+01_JPRB, 0.212515E+01_JPRB &
+  &, 0.211213E+01_JPRB, 0.209876E+01_JPRB, 0.208501E+01_JPRB &
+  &, 0.207094E+01_JPRB, 0.205649E+01_JPRB, 0.204174E+01_JPRB, 0.202663E+01_JPRB &
+  &, 0.201119E+01_JPRB, 0.199548E+01_JPRB, 0.197946E+01_JPRB &
+  &, 0.196315E+01_JPRB, 0.194658E+01_JPRB, 0.192973E+01_JPRB, 0.191263E+01_JPRB &
+  &, 0.189527E+01_JPRB, 0.187771E+01_JPRB, 0.185989E+01_JPRB &
+  &, 0.184189E+01_JPRB, 0.182365E+01_JPRB, 0.180523E+01_JPRB, 0.178662E+01_JPRB &
+  &, 0.176784E+01_JPRB, 0.174892E+01_JPRB, 0.172984E+01_JPRB &
+  &, 0.171058E+01_JPRB, 0.169121E+01_JPRB, 0.167172E+01_JPRB, 0.165212E+01_JPRB &
+  &, 0.163239E+01_JPRB, 0.161257E+01_JPRB, 0.159267E+01_JPRB &
+  &, 0.157272E+01_JPRB, 0.155269E+01_JPRB, 0.153256E+01_JPRB, 0.151240E+01_JPRB &
+  &, 0.149225E+01_JPRB, 0.147201E+01_JPRB, 0.145176E+01_JPRB &
+  &, 0.143142E+01_JPRB, 0.141125E+01_JPRB, 0.139096E+01_JPRB, 0.137072E+01_JPRB &
+  &, 0.135054E+01_JPRB, 0.133032E+01_JPRB, 0.131016E+01_JPRB/)
+XCW( 866, :) = (/ &
+  &  0.111128E+01_JPRB, 0.113921E+01_JPRB, 0.116715E+01_JPRB, 0.119509E+01_JPRB &
+  &, 0.122300E+01_JPRB, 0.125088E+01_JPRB, 0.127870E+01_JPRB &
+  &, 0.130645E+01_JPRB, 0.133411E+01_JPRB, 0.136167E+01_JPRB, 0.138911E+01_JPRB &
+  &, 0.141641E+01_JPRB, 0.144356E+01_JPRB, 0.147054E+01_JPRB &
+  &, 0.149733E+01_JPRB, 0.152392E+01_JPRB, 0.155029E+01_JPRB, 0.157644E+01_JPRB &
+  &, 0.160233E+01_JPRB, 0.162795E+01_JPRB, 0.165330E+01_JPRB &
+  &, 0.167834E+01_JPRB, 0.170308E+01_JPRB, 0.172749E+01_JPRB, 0.175157E+01_JPRB &
+  &, 0.177528E+01_JPRB, 0.179863E+01_JPRB, 0.182160E+01_JPRB &
+  &, 0.184416E+01_JPRB, 0.186632E+01_JPRB, 0.188805E+01_JPRB, 0.190935E+01_JPRB &
+  &, 0.193021E+01_JPRB, 0.195060E+01_JPRB, 0.197052E+01_JPRB &
+  &, 0.198996E+01_JPRB, 0.200891E+01_JPRB, 0.202736E+01_JPRB, 0.204529E+01_JPRB &
+  &, 0.206271E+01_JPRB, 0.207960E+01_JPRB, 0.209595E+01_JPRB &
+  &, 0.211176E+01_JPRB, 0.212701E+01_JPRB, 0.214171E+01_JPRB, 0.215584E+01_JPRB &
+  &, 0.216940E+01_JPRB, 0.218239E+01_JPRB, 0.219480E+01_JPRB &
+  &, 0.220662E+01_JPRB, 0.221785E+01_JPRB, 0.222850E+01_JPRB, 0.223853E+01_JPRB &
+  &, 0.224799E+01_JPRB, 0.225684E+01_JPRB, 0.226509E+01_JPRB &
+  &, 0.227275E+01_JPRB, 0.227981E+01_JPRB, 0.228625E+01_JPRB, 0.229209E+01_JPRB &
+  &, 0.229734E+01_JPRB, 0.230199E+01_JPRB, 0.230603E+01_JPRB &
+  &, 0.230949E+01_JPRB, 0.231234E+01_JPRB, 0.231461E+01_JPRB, 0.231628E+01_JPRB &
+  &, 0.231738E+01_JPRB, 0.231789E+01_JPRB, 0.231781E+01_JPRB &
+  &, 0.231717E+01_JPRB, 0.231597E+01_JPRB, 0.231418E+01_JPRB, 0.231184E+01_JPRB &
+  &, 0.230896E+01_JPRB, 0.230552E+01_JPRB, 0.230154E+01_JPRB &
+  &, 0.229700E+01_JPRB, 0.229197E+01_JPRB, 0.228640E+01_JPRB, 0.228030E+01_JPRB &
+  &, 0.227372E+01_JPRB, 0.226662E+01_JPRB, 0.225903E+01_JPRB &
+  &, 0.225096E+01_JPRB, 0.224238E+01_JPRB, 0.223337E+01_JPRB, 0.222390E+01_JPRB &
+  &, 0.221395E+01_JPRB, 0.220357E+01_JPRB, 0.219274E+01_JPRB &
+  &, 0.218150E+01_JPRB, 0.216985E+01_JPRB, 0.215778E+01_JPRB, 0.214532E+01_JPRB &
+  &, 0.213245E+01_JPRB, 0.211923E+01_JPRB, 0.210562E+01_JPRB &
+  &, 0.209165E+01_JPRB, 0.207734E+01_JPRB, 0.206268E+01_JPRB, 0.204770E+01_JPRB &
+  &, 0.203238E+01_JPRB, 0.201676E+01_JPRB, 0.200085E+01_JPRB &
+  &, 0.198461E+01_JPRB, 0.196814E+01_JPRB, 0.195135E+01_JPRB, 0.193434E+01_JPRB &
+  &, 0.191706E+01_JPRB, 0.189954E+01_JPRB, 0.188181E+01_JPRB &
+  &, 0.186384E+01_JPRB, 0.184566E+01_JPRB, 0.182730E+01_JPRB, 0.180874E+01_JPRB &
+  &, 0.179001E+01_JPRB, 0.177109E+01_JPRB, 0.175200E+01_JPRB &
+  &, 0.173282E+01_JPRB, 0.171342E+01_JPRB, 0.169395E+01_JPRB, 0.167436E+01_JPRB &
+  &, 0.165464E+01_JPRB, 0.163481E+01_JPRB, 0.161490E+01_JPRB &
+  &, 0.159493E+01_JPRB, 0.157483E+01_JPRB, 0.155473E+01_JPRB, 0.153453E+01_JPRB &
+  &, 0.151434E+01_JPRB, 0.149404E+01_JPRB, 0.147374E+01_JPRB &
+  &, 0.145345E+01_JPRB, 0.143315E+01_JPRB, 0.141279E+01_JPRB, 0.139245E+01_JPRB &
+  &, 0.137218E+01_JPRB, 0.135186E+01_JPRB, 0.133165E+01_JPRB/)
+XCW( 867, :) = (/ &
+  &  0.111178E+01_JPRB, 0.113984E+01_JPRB, 0.116793E+01_JPRB, 0.119600E+01_JPRB &
+  &, 0.122407E+01_JPRB, 0.125209E+01_JPRB, 0.128007E+01_JPRB &
+  &, 0.130798E+01_JPRB, 0.133580E+01_JPRB, 0.136353E+01_JPRB, 0.139113E+01_JPRB &
+  &, 0.141861E+01_JPRB, 0.144593E+01_JPRB, 0.147309E+01_JPRB &
+  &, 0.150007E+01_JPRB, 0.152685E+01_JPRB, 0.155341E+01_JPRB, 0.157974E+01_JPRB &
+  &, 0.160583E+01_JPRB, 0.163166E+01_JPRB, 0.165720E+01_JPRB &
+  &, 0.168246E+01_JPRB, 0.170741E+01_JPRB, 0.173203E+01_JPRB, 0.175631E+01_JPRB &
+  &, 0.178025E+01_JPRB, 0.180382E+01_JPRB, 0.182700E+01_JPRB &
+  &, 0.184979E+01_JPRB, 0.187217E+01_JPRB, 0.189414E+01_JPRB, 0.191566E+01_JPRB &
+  &, 0.193675E+01_JPRB, 0.195738E+01_JPRB, 0.197753E+01_JPRB &
+  &, 0.199721E+01_JPRB, 0.201640E+01_JPRB, 0.203509E+01_JPRB, 0.205327E+01_JPRB &
+  &, 0.207092E+01_JPRB, 0.208806E+01_JPRB, 0.210465E+01_JPRB &
+  &, 0.212071E+01_JPRB, 0.213621E+01_JPRB, 0.215116E+01_JPRB, 0.216553E+01_JPRB &
+  &, 0.217934E+01_JPRB, 0.219258E+01_JPRB, 0.220524E+01_JPRB &
+  &, 0.221732E+01_JPRB, 0.222880E+01_JPRB, 0.223969E+01_JPRB, 0.224998E+01_JPRB &
+  &, 0.225969E+01_JPRB, 0.226880E+01_JPRB, 0.227730E+01_JPRB &
+  &, 0.228520E+01_JPRB, 0.229249E+01_JPRB, 0.229920E+01_JPRB, 0.230529E+01_JPRB &
+  &, 0.231079E+01_JPRB, 0.231567E+01_JPRB, 0.231995E+01_JPRB &
+  &, 0.232365E+01_JPRB, 0.232675E+01_JPRB, 0.232925E+01_JPRB, 0.233118E+01_JPRB &
+  &, 0.233242E+01_JPRB, 0.233324E+01_JPRB, 0.233340E+01_JPRB &
+  &, 0.233299E+01_JPRB, 0.233199E+01_JPRB, 0.233043E+01_JPRB, 0.232833E+01_JPRB &
+  &, 0.232565E+01_JPRB, 0.232244E+01_JPRB, 0.231865E+01_JPRB &
+  &, 0.231436E+01_JPRB, 0.230951E+01_JPRB, 0.230416E+01_JPRB, 0.229825E+01_JPRB &
+  &, 0.229187E+01_JPRB, 0.228496E+01_JPRB, 0.227758E+01_JPRB &
+  &, 0.226967E+01_JPRB, 0.226131E+01_JPRB, 0.225248E+01_JPRB, 0.224316E+01_JPRB &
+  &, 0.223341E+01_JPRB, 0.222318E+01_JPRB, 0.221255E+01_JPRB &
+  &, 0.220145E+01_JPRB, 0.218997E+01_JPRB, 0.217803E+01_JPRB, 0.216572E+01_JPRB &
+  &, 0.215300E+01_JPRB, 0.213990E+01_JPRB, 0.212644E+01_JPRB &
+  &, 0.211261E+01_JPRB, 0.209841E+01_JPRB, 0.208388E+01_JPRB, 0.206899E+01_JPRB &
+  &, 0.205380E+01_JPRB, 0.203830E+01_JPRB, 0.202247E+01_JPRB &
+  &, 0.200634E+01_JPRB, 0.198994E+01_JPRB, 0.197325E+01_JPRB, 0.195634E+01_JPRB &
+  &, 0.193912E+01_JPRB, 0.192169E+01_JPRB, 0.190399E+01_JPRB &
+  &, 0.188609E+01_JPRB, 0.186798E+01_JPRB, 0.184964E+01_JPRB, 0.183114E+01_JPRB &
+  &, 0.181247E+01_JPRB, 0.179354E+01_JPRB, 0.177454E+01_JPRB &
+  &, 0.175535E+01_JPRB, 0.173599E+01_JPRB, 0.171653E+01_JPRB, 0.169691E+01_JPRB &
+  &, 0.167720E+01_JPRB, 0.165737E+01_JPRB, 0.163746E+01_JPRB &
+  &, 0.161743E+01_JPRB, 0.159736E+01_JPRB, 0.157718E+01_JPRB, 0.155701E+01_JPRB &
+  &, 0.153672E+01_JPRB, 0.151644E+01_JPRB, 0.149608E+01_JPRB &
+  &, 0.147573E+01_JPRB, 0.145536E+01_JPRB, 0.143498E+01_JPRB, 0.141457E+01_JPRB &
+  &, 0.139420E+01_JPRB, 0.137385E+01_JPRB, 0.135340E+01_JPRB/)
+XCW( 868, :) = (/ &
+  &  0.111228E+01_JPRB, 0.114048E+01_JPRB, 0.116870E+01_JPRB, 0.119692E+01_JPRB &
+  &, 0.122513E+01_JPRB, 0.125331E+01_JPRB, 0.128145E+01_JPRB &
+  &, 0.130951E+01_JPRB, 0.133750E+01_JPRB, 0.136539E+01_JPRB, 0.139317E+01_JPRB &
+  &, 0.142082E+01_JPRB, 0.144832E+01_JPRB, 0.147566E+01_JPRB &
+  &, 0.150282E+01_JPRB, 0.152979E+01_JPRB, 0.155655E+01_JPRB, 0.158308E+01_JPRB &
+  &, 0.160936E+01_JPRB, 0.163539E+01_JPRB, 0.166114E+01_JPRB &
+  &, 0.168660E+01_JPRB, 0.171176E+01_JPRB, 0.173659E+01_JPRB, 0.176110E+01_JPRB &
+  &, 0.178525E+01_JPRB, 0.180903E+01_JPRB, 0.183244E+01_JPRB &
+  &, 0.185546E+01_JPRB, 0.187807E+01_JPRB, 0.190026E+01_JPRB, 0.192203E+01_JPRB &
+  &, 0.194334E+01_JPRB, 0.196420E+01_JPRB, 0.198460E+01_JPRB &
+  &, 0.200452E+01_JPRB, 0.202393E+01_JPRB, 0.204288E+01_JPRB, 0.206130E+01_JPRB &
+  &, 0.207921E+01_JPRB, 0.209658E+01_JPRB, 0.211343E+01_JPRB &
+  &, 0.212973E+01_JPRB, 0.214548E+01_JPRB, 0.216068E+01_JPRB, 0.217531E+01_JPRB &
+  &, 0.218938E+01_JPRB, 0.220282E+01_JPRB, 0.221577E+01_JPRB &
+  &, 0.222768E+01_JPRB, 0.223984E+01_JPRB, 0.225098E+01_JPRB, 0.226153E+01_JPRB &
+  &, 0.227148E+01_JPRB, 0.228084E+01_JPRB, 0.228959E+01_JPRB &
+  &, 0.229775E+01_JPRB, 0.230531E+01_JPRB, 0.231224E+01_JPRB, 0.231860E+01_JPRB &
+  &, 0.232433E+01_JPRB, 0.232948E+01_JPRB, 0.233401E+01_JPRB &
+  &, 0.233795E+01_JPRB, 0.234128E+01_JPRB, 0.234404E+01_JPRB, 0.234619E+01_JPRB &
+  &, 0.234774E+01_JPRB, 0.234872E+01_JPRB, 0.234911E+01_JPRB &
+  &, 0.234893E+01_JPRB, 0.234818E+01_JPRB, 0.234685E+01_JPRB, 0.234498E+01_JPRB &
+  &, 0.234251E+01_JPRB, 0.233952E+01_JPRB, 0.233596E+01_JPRB &
+  &, 0.233187E+01_JPRB, 0.232725E+01_JPRB, 0.232210E+01_JPRB, 0.231642E+01_JPRB &
+  &, 0.231022E+01_JPRB, 0.230351E+01_JPRB, 0.229630E+01_JPRB &
+  &, 0.228861E+01_JPRB, 0.228043E+01_JPRB, 0.227179E+01_JPRB, 0.226265E+01_JPRB &
+  &, 0.225306E+01_JPRB, 0.224304E+01_JPRB, 0.223255E+01_JPRB &
+  &, 0.222162E+01_JPRB, 0.221028E+01_JPRB, 0.219853E+01_JPRB, 0.218635E+01_JPRB &
+  &, 0.217380E+01_JPRB, 0.216085E+01_JPRB, 0.214751E+01_JPRB &
+  &, 0.213383E+01_JPRB, 0.211969E+01_JPRB, 0.210534E+01_JPRB, 0.209059E+01_JPRB &
+  &, 0.207549E+01_JPRB, 0.206008E+01_JPRB, 0.204437E+01_JPRB &
+  &, 0.202836E+01_JPRB, 0.201203E+01_JPRB, 0.199545E+01_JPRB, 0.197860E+01_JPRB &
+  &, 0.196147E+01_JPRB, 0.194409E+01_JPRB, 0.192652E+01_JPRB &
+  &, 0.190866E+01_JPRB, 0.189058E+01_JPRB, 0.187231E+01_JPRB, 0.185388E+01_JPRB &
+  &, 0.183521E+01_JPRB, 0.181634E+01_JPRB, 0.179734E+01_JPRB &
+  &, 0.177818E+01_JPRB, 0.175886E+01_JPRB, 0.173938E+01_JPRB, 0.171983E+01_JPRB &
+  &, 0.170008E+01_JPRB, 0.168026E+01_JPRB, 0.166035E+01_JPRB &
+  &, 0.164031E+01_JPRB, 0.162023E+01_JPRB, 0.160003E+01_JPRB, 0.157977E+01_JPRB &
+  &, 0.155950E+01_JPRB, 0.153912E+01_JPRB, 0.151878E+01_JPRB &
+  &, 0.149838E+01_JPRB, 0.147794E+01_JPRB, 0.145749E+01_JPRB, 0.143700E+01_JPRB &
+  &, 0.141654E+01_JPRB, 0.139616E+01_JPRB, 0.137574E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART124',1,ZHOOK_HANDLE)
+END SUBROUTINE PART124
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART125
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART125',0,ZHOOK_HANDLE)
+
+XCW( 869, :) = (/ &
+  &  0.111278E+01_JPRB, 0.114112E+01_JPRB, 0.116948E+01_JPRB, 0.119785E+01_JPRB &
+  &, 0.122621E+01_JPRB, 0.125454E+01_JPRB, 0.128283E+01_JPRB &
+  &, 0.131106E+01_JPRB, 0.133921E+01_JPRB, 0.136727E+01_JPRB, 0.139522E+01_JPRB &
+  &, 0.142304E+01_JPRB, 0.145073E+01_JPRB, 0.147825E+01_JPRB &
+  &, 0.150560E+01_JPRB, 0.153275E+01_JPRB, 0.155970E+01_JPRB, 0.158643E+01_JPRB &
+  &, 0.161291E+01_JPRB, 0.163914E+01_JPRB, 0.166510E+01_JPRB &
+  &, 0.169077E+01_JPRB, 0.171614E+01_JPRB, 0.174119E+01_JPRB, 0.176591E+01_JPRB &
+  &, 0.179028E+01_JPRB, 0.181429E+01_JPRB, 0.183792E+01_JPRB &
+  &, 0.186117E+01_JPRB, 0.188401E+01_JPRB, 0.190644E+01_JPRB, 0.192843E+01_JPRB &
+  &, 0.194998E+01_JPRB, 0.197108E+01_JPRB, 0.199172E+01_JPRB &
+  &, 0.201188E+01_JPRB, 0.203155E+01_JPRB, 0.205073E+01_JPRB, 0.206940E+01_JPRB &
+  &, 0.208755E+01_JPRB, 0.210518E+01_JPRB, 0.212227E+01_JPRB &
+  &, 0.213882E+01_JPRB, 0.215483E+01_JPRB, 0.217028E+01_JPRB, 0.218516E+01_JPRB &
+  &, 0.219948E+01_JPRB, 0.221322E+01_JPRB, 0.222639E+01_JPRB &
+  &, 0.223897E+01_JPRB, 0.225097E+01_JPRB, 0.226238E+01_JPRB, 0.227317E+01_JPRB &
+  &, 0.228339E+01_JPRB, 0.229300E+01_JPRB, 0.230201E+01_JPRB &
+  &, 0.231041E+01_JPRB, 0.231822E+01_JPRB, 0.232542E+01_JPRB, 0.233201E+01_JPRB &
+  &, 0.233801E+01_JPRB, 0.234340E+01_JPRB, 0.234816E+01_JPRB &
+  &, 0.235238E+01_JPRB, 0.235595E+01_JPRB, 0.235894E+01_JPRB, 0.236134E+01_JPRB &
+  &, 0.236314E+01_JPRB, 0.236437E+01_JPRB, 0.236499E+01_JPRB &
+  &, 0.236504E+01_JPRB, 0.236452E+01_JPRB, 0.236345E+01_JPRB, 0.236178E+01_JPRB &
+  &, 0.235954E+01_JPRB, 0.235677E+01_JPRB, 0.235344E+01_JPRB &
+  &, 0.234956E+01_JPRB, 0.234516E+01_JPRB, 0.234021E+01_JPRB, 0.233473E+01_JPRB &
+  &, 0.232877E+01_JPRB, 0.232225E+01_JPRB, 0.231524E+01_JPRB &
+  &, 0.230774E+01_JPRB, 0.229976E+01_JPRB, 0.229131E+01_JPRB, 0.228235E+01_JPRB &
+  &, 0.227294E+01_JPRB, 0.226307E+01_JPRB, 0.225277E+01_JPRB &
+  &, 0.224202E+01_JPRB, 0.223084E+01_JPRB, 0.221924E+01_JPRB, 0.220722E+01_JPRB &
+  &, 0.219483E+01_JPRB, 0.218201E+01_JPRB, 0.216882E+01_JPRB &
+  &, 0.215526E+01_JPRB, 0.214134E+01_JPRB, 0.212703E+01_JPRB, 0.211241E+01_JPRB &
+  &, 0.209745E+01_JPRB, 0.208217E+01_JPRB, 0.206655E+01_JPRB &
+  &, 0.205062E+01_JPRB, 0.203440E+01_JPRB, 0.201794E+01_JPRB, 0.200115E+01_JPRB &
+  &, 0.198413E+01_JPRB, 0.196684E+01_JPRB, 0.194927E+01_JPRB &
+  &, 0.193150E+01_JPRB, 0.191350E+01_JPRB, 0.189531E+01_JPRB, 0.187689E+01_JPRB &
+  &, 0.185824E+01_JPRB, 0.183948E+01_JPRB, 0.182048E+01_JPRB &
+  &, 0.180132E+01_JPRB, 0.178203E+01_JPRB, 0.176258E+01_JPRB, 0.174300E+01_JPRB &
+  &, 0.172333E+01_JPRB, 0.170347E+01_JPRB, 0.168356E+01_JPRB &
+  &, 0.166352E+01_JPRB, 0.164344E+01_JPRB, 0.162321E+01_JPRB, 0.160294E+01_JPRB &
+  &, 0.158258E+01_JPRB, 0.156223E+01_JPRB, 0.154178E+01_JPRB &
+  &, 0.152132E+01_JPRB, 0.150082E+01_JPRB, 0.148037E+01_JPRB, 0.145987E+01_JPRB &
+  &, 0.143933E+01_JPRB, 0.141880E+01_JPRB, 0.139834E+01_JPRB/)
+XCW( 870, :) = (/ &
+  &  0.111329E+01_JPRB, 0.114176E+01_JPRB, 0.117027E+01_JPRB, 0.119878E+01_JPRB &
+  &, 0.122729E+01_JPRB, 0.125577E+01_JPRB, 0.128422E+01_JPRB &
+  &, 0.131261E+01_JPRB, 0.134093E+01_JPRB, 0.136916E+01_JPRB, 0.139728E+01_JPRB &
+  &, 0.142529E+01_JPRB, 0.145315E+01_JPRB, 0.148086E+01_JPRB &
+  &, 0.150839E+01_JPRB, 0.153574E+01_JPRB, 0.156288E+01_JPRB, 0.158981E+01_JPRB &
+  &, 0.161649E+01_JPRB, 0.164292E+01_JPRB, 0.166909E+01_JPRB &
+  &, 0.169497E+01_JPRB, 0.172055E+01_JPRB, 0.174582E+01_JPRB, 0.177076E+01_JPRB &
+  &, 0.179535E+01_JPRB, 0.181958E+01_JPRB, 0.184344E+01_JPRB &
+  &, 0.186692E+01_JPRB, 0.188999E+01_JPRB, 0.191265E+01_JPRB, 0.193488E+01_JPRB &
+  &, 0.195667E+01_JPRB, 0.197802E+01_JPRB, 0.199889E+01_JPRB &
+  &, 0.201929E+01_JPRB, 0.203921E+01_JPRB, 0.205864E+01_JPRB, 0.207755E+01_JPRB &
+  &, 0.209596E+01_JPRB, 0.211385E+01_JPRB, 0.213118E+01_JPRB &
+  &, 0.214799E+01_JPRB, 0.216426E+01_JPRB, 0.217996E+01_JPRB, 0.219510E+01_JPRB &
+  &, 0.220967E+01_JPRB, 0.222368E+01_JPRB, 0.223710E+01_JPRB &
+  &, 0.224994E+01_JPRB, 0.226219E+01_JPRB, 0.227386E+01_JPRB, 0.228491E+01_JPRB &
+  &, 0.229539E+01_JPRB, 0.230526E+01_JPRB, 0.231452E+01_JPRB &
+  &, 0.232320E+01_JPRB, 0.233125E+01_JPRB, 0.233871E+01_JPRB, 0.234555E+01_JPRB &
+  &, 0.235180E+01_JPRB, 0.235744E+01_JPRB, 0.236248E+01_JPRB &
+  &, 0.236693E+01_JPRB, 0.237075E+01_JPRB, 0.237401E+01_JPRB, 0.237664E+01_JPRB &
+  &, 0.237870E+01_JPRB, 0.238016E+01_JPRB, 0.238102E+01_JPRB &
+  &, 0.238132E+01_JPRB, 0.238104E+01_JPRB, 0.238018E+01_JPRB, 0.237875E+01_JPRB &
+  &, 0.237674E+01_JPRB, 0.237420E+01_JPRB, 0.237111E+01_JPRB &
+  &, 0.236743E+01_JPRB, 0.236324E+01_JPRB, 0.235853E+01_JPRB, 0.235325E+01_JPRB &
+  &, 0.234749E+01_JPRB, 0.234118E+01_JPRB, 0.233439E+01_JPRB &
+  &, 0.232710E+01_JPRB, 0.231931E+01_JPRB, 0.231102E+01_JPRB, 0.230226E+01_JPRB &
+  &, 0.229304E+01_JPRB, 0.228336E+01_JPRB, 0.227323E+01_JPRB &
+  &, 0.226266E+01_JPRB, 0.225163E+01_JPRB, 0.224020E+01_JPRB, 0.222836E+01_JPRB &
+  &, 0.221610E+01_JPRB, 0.220344E+01_JPRB, 0.219038E+01_JPRB &
+  &, 0.217697E+01_JPRB, 0.216317E+01_JPRB, 0.214901E+01_JPRB, 0.213450E+01_JPRB &
+  &, 0.211968E+01_JPRB, 0.210449E+01_JPRB, 0.208900E+01_JPRB &
+  &, 0.207320E+01_JPRB, 0.205707E+01_JPRB, 0.204067E+01_JPRB, 0.202400E+01_JPRB &
+  &, 0.200704E+01_JPRB, 0.198985E+01_JPRB, 0.197238E+01_JPRB &
+  &, 0.195465E+01_JPRB, 0.193674E+01_JPRB, 0.191858E+01_JPRB, 0.190019E+01_JPRB &
+  &, 0.188166E+01_JPRB, 0.186290E+01_JPRB, 0.184396E+01_JPRB &
+  &, 0.182485E+01_JPRB, 0.180555E+01_JPRB, 0.178614E+01_JPRB, 0.176660E+01_JPRB &
+  &, 0.174689E+01_JPRB, 0.172705E+01_JPRB, 0.170710E+01_JPRB &
+  &, 0.168706E+01_JPRB, 0.166697E+01_JPRB, 0.164674E+01_JPRB, 0.162645E+01_JPRB &
+  &, 0.160607E+01_JPRB, 0.158568E+01_JPRB, 0.156519E+01_JPRB &
+  &, 0.154469E+01_JPRB, 0.152414E+01_JPRB, 0.150363E+01_JPRB, 0.148306E+01_JPRB &
+  &, 0.146245E+01_JPRB, 0.144189E+01_JPRB, 0.142128E+01_JPRB/)
+XCW( 871, :) = (/ &
+  &  0.111380E+01_JPRB, 0.114241E+01_JPRB, 0.117106E+01_JPRB, 0.119972E+01_JPRB &
+  &, 0.122838E+01_JPRB, 0.125702E+01_JPRB, 0.128562E+01_JPRB &
+  &, 0.131418E+01_JPRB, 0.134266E+01_JPRB, 0.137106E+01_JPRB, 0.139936E+01_JPRB &
+  &, 0.142754E+01_JPRB, 0.145558E+01_JPRB, 0.148348E+01_JPRB &
+  &, 0.151120E+01_JPRB, 0.153874E+01_JPRB, 0.156608E+01_JPRB, 0.159320E+01_JPRB &
+  &, 0.162009E+01_JPRB, 0.164673E+01_JPRB, 0.167310E+01_JPRB &
+  &, 0.169920E+01_JPRB, 0.172499E+01_JPRB, 0.175048E+01_JPRB, 0.177564E+01_JPRB &
+  &, 0.180046E+01_JPRB, 0.182492E+01_JPRB, 0.184900E+01_JPRB &
+  &, 0.187271E+01_JPRB, 0.189602E+01_JPRB, 0.191891E+01_JPRB, 0.194138E+01_JPRB &
+  &, 0.196342E+01_JPRB, 0.198500E+01_JPRB, 0.200612E+01_JPRB &
+  &, 0.202677E+01_JPRB, 0.204694E+01_JPRB, 0.206661E+01_JPRB, 0.208578E+01_JPRB &
+  &, 0.210443E+01_JPRB, 0.212257E+01_JPRB, 0.214017E+01_JPRB &
+  &, 0.215724E+01_JPRB, 0.217376E+01_JPRB, 0.218972E+01_JPRB, 0.220512E+01_JPRB &
+  &, 0.221995E+01_JPRB, 0.223421E+01_JPRB, 0.224790E+01_JPRB &
+  &, 0.226099E+01_JPRB, 0.227351E+01_JPRB, 0.228544E+01_JPRB, 0.229676E+01_JPRB &
+  &, 0.230750E+01_JPRB, 0.231762E+01_JPRB, 0.232715E+01_JPRB &
+  &, 0.233607E+01_JPRB, 0.234440E+01_JPRB, 0.235212E+01_JPRB, 0.235923E+01_JPRB &
+  &, 0.236574E+01_JPRB, 0.237163E+01_JPRB, 0.237693E+01_JPRB &
+  &, 0.238161E+01_JPRB, 0.238570E+01_JPRB, 0.238919E+01_JPRB, 0.239208E+01_JPRB &
+  &, 0.239439E+01_JPRB, 0.239609E+01_JPRB, 0.239721E+01_JPRB &
+  &, 0.239775E+01_JPRB, 0.239770E+01_JPRB, 0.239708E+01_JPRB, 0.239589E+01_JPRB &
+  &, 0.239412E+01_JPRB, 0.239179E+01_JPRB, 0.238892E+01_JPRB &
+  &, 0.238550E+01_JPRB, 0.238152E+01_JPRB, 0.237702E+01_JPRB, 0.237198E+01_JPRB &
+  &, 0.236640E+01_JPRB, 0.236032E+01_JPRB, 0.235374E+01_JPRB &
+  &, 0.234664E+01_JPRB, 0.233906E+01_JPRB, 0.233097E+01_JPRB, 0.232240E+01_JPRB &
+  &, 0.231337E+01_JPRB, 0.230388E+01_JPRB, 0.229392E+01_JPRB &
+  &, 0.228353E+01_JPRB, 0.227268E+01_JPRB, 0.226140E+01_JPRB, 0.224973E+01_JPRB &
+  &, 0.223761E+01_JPRB, 0.222512E+01_JPRB, 0.221222E+01_JPRB &
+  &, 0.219894E+01_JPRB, 0.218530E+01_JPRB, 0.217125E+01_JPRB, 0.215689E+01_JPRB &
+  &, 0.214217E+01_JPRB, 0.212712E+01_JPRB, 0.211173E+01_JPRB &
+  &, 0.209602E+01_JPRB, 0.208001E+01_JPRB, 0.206374E+01_JPRB, 0.204714E+01_JPRB &
+  &, 0.203029E+01_JPRB, 0.201316E+01_JPRB, 0.199575E+01_JPRB &
+  &, 0.197812E+01_JPRB, 0.196025E+01_JPRB, 0.194217E+01_JPRB, 0.192387E+01_JPRB &
+  &, 0.190536E+01_JPRB, 0.188662E+01_JPRB, 0.186774E+01_JPRB &
+  &, 0.184868E+01_JPRB, 0.182943E+01_JPRB, 0.181001E+01_JPRB, 0.179050E+01_JPRB &
+  &, 0.177077E+01_JPRB, 0.175095E+01_JPRB, 0.173102E+01_JPRB &
+  &, 0.171099E+01_JPRB, 0.169085E+01_JPRB, 0.167061E+01_JPRB, 0.165031E+01_JPRB &
+  &, 0.162997E+01_JPRB, 0.160949E+01_JPRB, 0.158897E+01_JPRB &
+  &, 0.156843E+01_JPRB, 0.154789E+01_JPRB, 0.152726E+01_JPRB, 0.150662E+01_JPRB &
+  &, 0.148594E+01_JPRB, 0.146530E+01_JPRB, 0.144467E+01_JPRB/)
+XCW( 872, :) = (/ &
+  &  0.111431E+01_JPRB, 0.114306E+01_JPRB, 0.117185E+01_JPRB, 0.120066E+01_JPRB &
+  &, 0.122947E+01_JPRB, 0.125827E+01_JPRB, 0.128703E+01_JPRB &
+  &, 0.131575E+01_JPRB, 0.134440E+01_JPRB, 0.137297E+01_JPRB, 0.140145E+01_JPRB &
+  &, 0.142981E+01_JPRB, 0.145803E+01_JPRB, 0.148611E+01_JPRB &
+  &, 0.151403E+01_JPRB, 0.154177E+01_JPRB, 0.156928E+01_JPRB, 0.159662E+01_JPRB &
+  &, 0.162372E+01_JPRB, 0.165056E+01_JPRB, 0.167715E+01_JPRB &
+  &, 0.170346E+01_JPRB, 0.172947E+01_JPRB, 0.175518E+01_JPRB, 0.178056E+01_JPRB &
+  &, 0.180560E+01_JPRB, 0.183029E+01_JPRB, 0.185461E+01_JPRB &
+  &, 0.187854E+01_JPRB, 0.190209E+01_JPRB, 0.192522E+01_JPRB, 0.194793E+01_JPRB &
+  &, 0.197021E+01_JPRB, 0.199204E+01_JPRB, 0.201340E+01_JPRB &
+  &, 0.203431E+01_JPRB, 0.205472E+01_JPRB, 0.207465E+01_JPRB, 0.209406E+01_JPRB &
+  &, 0.211298E+01_JPRB, 0.213137E+01_JPRB, 0.214922E+01_JPRB &
+  &, 0.216655E+01_JPRB, 0.218333E+01_JPRB, 0.219955E+01_JPRB, 0.221522E+01_JPRB &
+  &, 0.223031E+01_JPRB, 0.224484E+01_JPRB, 0.225878E+01_JPRB &
+  &, 0.227215E+01_JPRB, 0.228492E+01_JPRB, 0.229711E+01_JPRB, 0.230871E+01_JPRB &
+  &, 0.231971E+01_JPRB, 0.233010E+01_JPRB, 0.233990E+01_JPRB &
+  &, 0.234908E+01_JPRB, 0.235767E+01_JPRB, 0.236564E+01_JPRB, 0.237302E+01_JPRB &
+  &, 0.237977E+01_JPRB, 0.238593E+01_JPRB, 0.239148E+01_JPRB &
+  &, 0.239644E+01_JPRB, 0.240078E+01_JPRB, 0.240453E+01_JPRB, 0.240767E+01_JPRB &
+  &, 0.241022E+01_JPRB, 0.241219E+01_JPRB, 0.241354E+01_JPRB &
+  &, 0.241432E+01_JPRB, 0.241452E+01_JPRB, 0.241414E+01_JPRB, 0.241319E+01_JPRB &
+  &, 0.241166E+01_JPRB, 0.240958E+01_JPRB, 0.240694E+01_JPRB &
+  &, 0.240374E+01_JPRB, 0.239998E+01_JPRB, 0.239572E+01_JPRB, 0.239089E+01_JPRB &
+  &, 0.238555E+01_JPRB, 0.237968E+01_JPRB, 0.237328E+01_JPRB &
+  &, 0.236639E+01_JPRB, 0.235900E+01_JPRB, 0.235112E+01_JPRB, 0.234275E+01_JPRB &
+  &, 0.233392E+01_JPRB, 0.232459E+01_JPRB, 0.231482E+01_JPRB &
+  &, 0.230462E+01_JPRB, 0.229396E+01_JPRB, 0.228285E+01_JPRB, 0.227133E+01_JPRB &
+  &, 0.225939E+01_JPRB, 0.224704E+01_JPRB, 0.223431E+01_JPRB &
+  &, 0.222115E+01_JPRB, 0.220764E+01_JPRB, 0.219378E+01_JPRB, 0.217954E+01_JPRB &
+  &, 0.216493E+01_JPRB, 0.215003E+01_JPRB, 0.213474E+01_JPRB &
+  &, 0.211916E+01_JPRB, 0.210328E+01_JPRB, 0.208705E+01_JPRB, 0.207058E+01_JPRB &
+  &, 0.205380E+01_JPRB, 0.203679E+01_JPRB, 0.201948E+01_JPRB &
+  &, 0.200190E+01_JPRB, 0.198413E+01_JPRB, 0.196609E+01_JPRB, 0.194782E+01_JPRB &
+  &, 0.192939E+01_JPRB, 0.191073E+01_JPRB, 0.189186E+01_JPRB &
+  &, 0.187281E+01_JPRB, 0.185362E+01_JPRB, 0.183424E+01_JPRB, 0.181472E+01_JPRB &
+  &, 0.179508E+01_JPRB, 0.177523E+01_JPRB, 0.175532E+01_JPRB &
+  &, 0.173531E+01_JPRB, 0.171511E+01_JPRB, 0.169488E+01_JPRB, 0.167457E+01_JPRB &
+  &, 0.165415E+01_JPRB, 0.163372E+01_JPRB, 0.161317E+01_JPRB &
+  &, 0.159259E+01_JPRB, 0.157195E+01_JPRB, 0.155126E+01_JPRB, 0.153057E+01_JPRB &
+  &, 0.150988E+01_JPRB, 0.148917E+01_JPRB, 0.146846E+01_JPRB/)
+XCW( 873, :) = (/ &
+  &  0.111483E+01_JPRB, 0.114372E+01_JPRB, 0.117265E+01_JPRB, 0.120161E+01_JPRB &
+  &, 0.123057E+01_JPRB, 0.125952E+01_JPRB, 0.128845E+01_JPRB &
+  &, 0.131733E+01_JPRB, 0.134616E+01_JPRB, 0.137490E+01_JPRB, 0.140355E+01_JPRB &
+  &, 0.143209E+01_JPRB, 0.146050E+01_JPRB, 0.148877E+01_JPRB &
+  &, 0.151688E+01_JPRB, 0.154481E+01_JPRB, 0.157254E+01_JPRB, 0.160007E+01_JPRB &
+  &, 0.162737E+01_JPRB, 0.165442E+01_JPRB, 0.168122E+01_JPRB &
+  &, 0.170774E+01_JPRB, 0.173398E+01_JPRB, 0.175990E+01_JPRB, 0.178551E+01_JPRB &
+  &, 0.181078E+01_JPRB, 0.183570E+01_JPRB, 0.186025E+01_JPRB &
+  &, 0.188442E+01_JPRB, 0.190820E+01_JPRB, 0.193158E+01_JPRB, 0.195453E+01_JPRB &
+  &, 0.197705E+01_JPRB, 0.199913E+01_JPRB, 0.202074E+01_JPRB &
+  &, 0.204190E+01_JPRB, 0.206257E+01_JPRB, 0.208274E+01_JPRB, 0.210243E+01_JPRB &
+  &, 0.212159E+01_JPRB, 0.214024E+01_JPRB, 0.215836E+01_JPRB &
+  &, 0.217595E+01_JPRB, 0.219299E+01_JPRB, 0.220947E+01_JPRB, 0.222539E+01_JPRB &
+  &, 0.224076E+01_JPRB, 0.225555E+01_JPRB, 0.226977E+01_JPRB &
+  &, 0.228340E+01_JPRB, 0.229644E+01_JPRB, 0.230889E+01_JPRB, 0.232075E+01_JPRB &
+  &, 0.233202E+01_JPRB, 0.234268E+01_JPRB, 0.235274E+01_JPRB &
+  &, 0.236220E+01_JPRB, 0.237105E+01_JPRB, 0.237928E+01_JPRB, 0.238693E+01_JPRB &
+  &, 0.239395E+01_JPRB, 0.240037E+01_JPRB, 0.240620E+01_JPRB &
+  &, 0.241141E+01_JPRB, 0.241601E+01_JPRB, 0.242002E+01_JPRB, 0.242338E+01_JPRB &
+  &, 0.242622E+01_JPRB, 0.242842E+01_JPRB, 0.243004E+01_JPRB &
+  &, 0.243107E+01_JPRB, 0.243153E+01_JPRB, 0.243139E+01_JPRB, 0.243067E+01_JPRB &
+  &, 0.242939E+01_JPRB, 0.242755E+01_JPRB, 0.242513E+01_JPRB &
+  &, 0.242218E+01_JPRB, 0.241866E+01_JPRB, 0.241459E+01_JPRB, 0.240995E+01_JPRB &
+  &, 0.240488E+01_JPRB, 0.239922E+01_JPRB, 0.239303E+01_JPRB &
+  &, 0.238635E+01_JPRB, 0.237918E+01_JPRB, 0.237150E+01_JPRB, 0.236333E+01_JPRB &
+  &, 0.235467E+01_JPRB, 0.234558E+01_JPRB, 0.233587E+01_JPRB &
+  &, 0.232596E+01_JPRB, 0.231546E+01_JPRB, 0.230454E+01_JPRB, 0.229317E+01_JPRB &
+  &, 0.228140E+01_JPRB, 0.226923E+01_JPRB, 0.225664E+01_JPRB &
+  &, 0.224366E+01_JPRB, 0.223030E+01_JPRB, 0.221657E+01_JPRB, 0.220245E+01_JPRB &
+  &, 0.218800E+01_JPRB, 0.217321E+01_JPRB, 0.215806E+01_JPRB &
+  &, 0.214258E+01_JPRB, 0.212680E+01_JPRB, 0.211070E+01_JPRB, 0.209435E+01_JPRB &
+  &, 0.207765E+01_JPRB, 0.206071E+01_JPRB, 0.204351E+01_JPRB &
+  &, 0.202604E+01_JPRB, 0.200828E+01_JPRB, 0.199034E+01_JPRB, 0.197215E+01_JPRB &
+  &, 0.195375E+01_JPRB, 0.193517E+01_JPRB, 0.191632E+01_JPRB &
+  &, 0.189734E+01_JPRB, 0.187815E+01_JPRB, 0.185883E+01_JPRB, 0.183936E+01_JPRB &
+  &, 0.181970E+01_JPRB, 0.179989E+01_JPRB, 0.178000E+01_JPRB &
+  &, 0.175995E+01_JPRB, 0.173977E+01_JPRB, 0.171954E+01_JPRB, 0.169917E+01_JPRB &
+  &, 0.167875E+01_JPRB, 0.165830E+01_JPRB, 0.163772E+01_JPRB &
+  &, 0.161705E+01_JPRB, 0.159643E+01_JPRB, 0.157570E+01_JPRB, 0.155496E+01_JPRB &
+  &, 0.153421E+01_JPRB, 0.151343E+01_JPRB, 0.149264E+01_JPRB/)
+XCW( 874, :) = (/ &
+  &  0.111534E+01_JPRB, 0.114438E+01_JPRB, 0.117346E+01_JPRB, 0.120256E+01_JPRB &
+  &, 0.123168E+01_JPRB, 0.126079E+01_JPRB, 0.128988E+01_JPRB &
+  &, 0.131893E+01_JPRB, 0.134792E+01_JPRB, 0.137684E+01_JPRB, 0.140567E+01_JPRB &
+  &, 0.143439E+01_JPRB, 0.146299E+01_JPRB, 0.149144E+01_JPRB &
+  &, 0.151975E+01_JPRB, 0.154787E+01_JPRB, 0.157581E+01_JPRB, 0.160354E+01_JPRB &
+  &, 0.163105E+01_JPRB, 0.165831E+01_JPRB, 0.168532E+01_JPRB &
+  &, 0.171206E+01_JPRB, 0.173852E+01_JPRB, 0.176467E+01_JPRB, 0.179050E+01_JPRB &
+  &, 0.181600E+01_JPRB, 0.184115E+01_JPRB, 0.186594E+01_JPRB &
+  &, 0.189034E+01_JPRB, 0.191437E+01_JPRB, 0.193798E+01_JPRB, 0.196118E+01_JPRB &
+  &, 0.198395E+01_JPRB, 0.200627E+01_JPRB, 0.202814E+01_JPRB &
+  &, 0.204954E+01_JPRB, 0.207046E+01_JPRB, 0.209091E+01_JPRB, 0.211085E+01_JPRB &
+  &, 0.213027E+01_JPRB, 0.214918E+01_JPRB, 0.216757E+01_JPRB &
+  &, 0.218541E+01_JPRB, 0.220272E+01_JPRB, 0.221947E+01_JPRB, 0.223567E+01_JPRB &
+  &, 0.225130E+01_JPRB, 0.226636E+01_JPRB, 0.228084E+01_JPRB &
+  &, 0.229474E+01_JPRB, 0.230806E+01_JPRB, 0.232078E+01_JPRB, 0.233289E+01_JPRB &
+  &, 0.234445E+01_JPRB, 0.235537E+01_JPRB, 0.236570E+01_JPRB &
+  &, 0.237544E+01_JPRB, 0.238455E+01_JPRB, 0.239304E+01_JPRB, 0.240097E+01_JPRB &
+  &, 0.240826E+01_JPRB, 0.241496E+01_JPRB, 0.242104E+01_JPRB &
+  &, 0.242650E+01_JPRB, 0.243137E+01_JPRB, 0.243564E+01_JPRB, 0.243931E+01_JPRB &
+  &, 0.244237E+01_JPRB, 0.244484E+01_JPRB, 0.244671E+01_JPRB &
+  &, 0.244798E+01_JPRB, 0.244869E+01_JPRB, 0.244880E+01_JPRB, 0.244833E+01_JPRB &
+  &, 0.244730E+01_JPRB, 0.244568E+01_JPRB, 0.244351E+01_JPRB &
+  &, 0.244079E+01_JPRB, 0.243752E+01_JPRB, 0.243367E+01_JPRB, 0.242930E+01_JPRB &
+  &, 0.242439E+01_JPRB, 0.241893E+01_JPRB, 0.241301E+01_JPRB &
+  &, 0.240654E+01_JPRB, 0.239958E+01_JPRB, 0.239211E+01_JPRB, 0.238412E+01_JPRB &
+  &, 0.237570E+01_JPRB, 0.236677E+01_JPRB, 0.235736E+01_JPRB &
+  &, 0.234752E+01_JPRB, 0.233721E+01_JPRB, 0.232649E+01_JPRB, 0.231531E+01_JPRB &
+  &, 0.230369E+01_JPRB, 0.229167E+01_JPRB, 0.227925E+01_JPRB &
+  &, 0.226644E+01_JPRB, 0.225323E+01_JPRB, 0.223963E+01_JPRB, 0.222567E+01_JPRB &
+  &, 0.221134E+01_JPRB, 0.219666E+01_JPRB, 0.218166E+01_JPRB &
+  &, 0.216633E+01_JPRB, 0.215065E+01_JPRB, 0.213468E+01_JPRB, 0.211838E+01_JPRB &
+  &, 0.210180E+01_JPRB, 0.208498E+01_JPRB, 0.206786E+01_JPRB &
+  &, 0.205045E+01_JPRB, 0.203279E+01_JPRB, 0.201495E+01_JPRB, 0.199681E+01_JPRB &
+  &, 0.197845E+01_JPRB, 0.195990E+01_JPRB, 0.194118E+01_JPRB &
+  &, 0.192222E+01_JPRB, 0.190309E+01_JPRB, 0.188378E+01_JPRB, 0.186430E+01_JPRB &
+  &, 0.184469E+01_JPRB, 0.182492E+01_JPRB, 0.180501E+01_JPRB &
+  &, 0.178498E+01_JPRB, 0.176482E+01_JPRB, 0.174454E+01_JPRB, 0.172418E+01_JPRB &
+  &, 0.170375E+01_JPRB, 0.168323E+01_JPRB, 0.166264E+01_JPRB &
+  &, 0.164200E+01_JPRB, 0.162129E+01_JPRB, 0.160052E+01_JPRB, 0.157972E+01_JPRB &
+  &, 0.155892E+01_JPRB, 0.153808E+01_JPRB, 0.151721E+01_JPRB/)
+XCW( 875, :) = (/ &
+  &  0.111587E+01_JPRB, 0.114504E+01_JPRB, 0.117426E+01_JPRB, 0.120352E+01_JPRB &
+  &, 0.123279E+01_JPRB, 0.126206E+01_JPRB, 0.129131E+01_JPRB &
+  &, 0.132053E+01_JPRB, 0.134969E+01_JPRB, 0.137879E+01_JPRB, 0.140780E+01_JPRB &
+  &, 0.143670E+01_JPRB, 0.146549E+01_JPRB, 0.149414E+01_JPRB &
+  &, 0.152263E+01_JPRB, 0.155096E+01_JPRB, 0.157910E+01_JPRB, 0.160703E+01_JPRB &
+  &, 0.163475E+01_JPRB, 0.166223E+01_JPRB, 0.168945E+01_JPRB &
+  &, 0.171641E+01_JPRB, 0.174309E+01_JPRB, 0.176946E+01_JPRB, 0.179552E+01_JPRB &
+  &, 0.182125E+01_JPRB, 0.184664E+01_JPRB, 0.187166E+01_JPRB &
+  &, 0.189631E+01_JPRB, 0.192057E+01_JPRB, 0.194444E+01_JPRB, 0.196788E+01_JPRB &
+  &, 0.199090E+01_JPRB, 0.201348E+01_JPRB, 0.203560E+01_JPRB &
+  &, 0.205725E+01_JPRB, 0.207844E+01_JPRB, 0.209913E+01_JPRB, 0.211933E+01_JPRB &
+  &, 0.213902E+01_JPRB, 0.215820E+01_JPRB, 0.217685E+01_JPRB &
+  &, 0.219496E+01_JPRB, 0.221253E+01_JPRB, 0.222956E+01_JPRB, 0.224602E+01_JPRB &
+  &, 0.226192E+01_JPRB, 0.227725E+01_JPRB, 0.229201E+01_JPRB &
+  &, 0.230618E+01_JPRB, 0.231977E+01_JPRB, 0.233277E+01_JPRB, 0.234517E+01_JPRB &
+  &, 0.235698E+01_JPRB, 0.236818E+01_JPRB, 0.237878E+01_JPRB &
+  &, 0.238879E+01_JPRB, 0.239819E+01_JPRB, 0.240696E+01_JPRB, 0.241514E+01_JPRB &
+  &, 0.242270E+01_JPRB, 0.242966E+01_JPRB, 0.243602E+01_JPRB &
+  &, 0.244175E+01_JPRB, 0.244690E+01_JPRB, 0.245141E+01_JPRB, 0.245535E+01_JPRB &
+  &, 0.245867E+01_JPRB, 0.246140E+01_JPRB, 0.246354E+01_JPRB &
+  &, 0.246506E+01_JPRB, 0.246602E+01_JPRB, 0.246639E+01_JPRB, 0.246617E+01_JPRB &
+  &, 0.246539E+01_JPRB, 0.246402E+01_JPRB, 0.246209E+01_JPRB &
+  &, 0.245959E+01_JPRB, 0.245654E+01_JPRB, 0.245297E+01_JPRB, 0.244883E+01_JPRB &
+  &, 0.244415E+01_JPRB, 0.243893E+01_JPRB, 0.243320E+01_JPRB &
+  &, 0.242696E+01_JPRB, 0.242015E+01_JPRB, 0.241292E+01_JPRB, 0.240518E+01_JPRB &
+  &, 0.239693E+01_JPRB, 0.238821E+01_JPRB, 0.237901E+01_JPRB &
+  &, 0.236934E+01_JPRB, 0.235923E+01_JPRB, 0.234867E+01_JPRB, 0.233768E+01_JPRB &
+  &, 0.232625E+01_JPRB, 0.231441E+01_JPRB, 0.230215E+01_JPRB &
+  &, 0.228948E+01_JPRB, 0.227641E+01_JPRB, 0.226298E+01_JPRB, 0.224911E+01_JPRB &
+  &, 0.223498E+01_JPRB, 0.222046E+01_JPRB, 0.220557E+01_JPRB &
+  &, 0.219035E+01_JPRB, 0.217482E+01_JPRB, 0.215895E+01_JPRB, 0.214278E+01_JPRB &
+  &, 0.212630E+01_JPRB, 0.210956E+01_JPRB, 0.209251E+01_JPRB &
+  &, 0.207522E+01_JPRB, 0.205767E+01_JPRB, 0.203984E+01_JPRB, 0.202180E+01_JPRB &
+  &, 0.200354E+01_JPRB, 0.198502E+01_JPRB, 0.196633E+01_JPRB &
+  &, 0.194745E+01_JPRB, 0.192834E+01_JPRB, 0.190909E+01_JPRB, 0.188962E+01_JPRB &
+  &, 0.187005E+01_JPRB, 0.185027E+01_JPRB, 0.183039E+01_JPRB &
+  &, 0.181034E+01_JPRB, 0.179020E+01_JPRB, 0.176994E+01_JPRB, 0.174959E+01_JPRB &
+  &, 0.172916E+01_JPRB, 0.170857E+01_JPRB, 0.168797E+01_JPRB &
+  &, 0.166732E+01_JPRB, 0.164657E+01_JPRB, 0.162577E+01_JPRB, 0.160493E+01_JPRB &
+  &, 0.158408E+01_JPRB, 0.156318E+01_JPRB, 0.154225E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART125',1,ZHOOK_HANDLE)
+END SUBROUTINE PART125
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART126
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART126',0,ZHOOK_HANDLE)
+
+XCW( 876, :) = (/ &
+  &  0.111639E+01_JPRB, 0.114571E+01_JPRB, 0.117508E+01_JPRB, 0.120448E+01_JPRB &
+  &, 0.123391E+01_JPRB, 0.126334E+01_JPRB, 0.129276E+01_JPRB &
+  &, 0.132214E+01_JPRB, 0.135148E+01_JPRB, 0.138075E+01_JPRB, 0.140994E+01_JPRB &
+  &, 0.143903E+01_JPRB, 0.146800E+01_JPRB, 0.149685E+01_JPRB &
+  &, 0.152554E+01_JPRB, 0.155406E+01_JPRB, 0.158240E+01_JPRB, 0.161055E+01_JPRB &
+  &, 0.163847E+01_JPRB, 0.166617E+01_JPRB, 0.169361E+01_JPRB &
+  &, 0.172079E+01_JPRB, 0.174769E+01_JPRB, 0.177429E+01_JPRB, 0.180059E+01_JPRB &
+  &, 0.182655E+01_JPRB, 0.185217E+01_JPRB, 0.187742E+01_JPRB &
+  &, 0.190232E+01_JPRB, 0.192683E+01_JPRB, 0.195094E+01_JPRB, 0.197463E+01_JPRB &
+  &, 0.199790E+01_JPRB, 0.202073E+01_JPRB, 0.204311E+01_JPRB &
+  &, 0.206503E+01_JPRB, 0.208647E+01_JPRB, 0.210742E+01_JPRB, 0.212789E+01_JPRB &
+  &, 0.214785E+01_JPRB, 0.216728E+01_JPRB, 0.218620E+01_JPRB &
+  &, 0.220458E+01_JPRB, 0.222243E+01_JPRB, 0.223972E+01_JPRB, 0.225647E+01_JPRB &
+  &, 0.227264E+01_JPRB, 0.228824E+01_JPRB, 0.230327E+01_JPRB &
+  &, 0.231772E+01_JPRB, 0.233159E+01_JPRB, 0.234487E+01_JPRB, 0.235755E+01_JPRB &
+  &, 0.236962E+01_JPRB, 0.238111E+01_JPRB, 0.239199E+01_JPRB &
+  &, 0.240226E+01_JPRB, 0.241193E+01_JPRB, 0.242100E+01_JPRB, 0.242945E+01_JPRB &
+  &, 0.243729E+01_JPRB, 0.244452E+01_JPRB, 0.245114E+01_JPRB &
+  &, 0.245715E+01_JPRB, 0.246255E+01_JPRB, 0.246735E+01_JPRB, 0.247154E+01_JPRB &
+  &, 0.247514E+01_JPRB, 0.247814E+01_JPRB, 0.248053E+01_JPRB &
+  &, 0.248231E+01_JPRB, 0.248353E+01_JPRB, 0.248415E+01_JPRB, 0.248418E+01_JPRB &
+  &, 0.248366E+01_JPRB, 0.248253E+01_JPRB, 0.248085E+01_JPRB &
+  &, 0.247861E+01_JPRB, 0.247582E+01_JPRB, 0.247245E+01_JPRB, 0.246854E+01_JPRB &
+  &, 0.246411E+01_JPRB, 0.245912E+01_JPRB, 0.245362E+01_JPRB &
+  &, 0.244759E+01_JPRB, 0.244104E+01_JPRB, 0.243400E+01_JPRB, 0.242644E+01_JPRB &
+  &, 0.241841E+01_JPRB, 0.240990E+01_JPRB, 0.240091E+01_JPRB &
+  &, 0.239144E+01_JPRB, 0.238150E+01_JPRB, 0.237114E+01_JPRB, 0.236032E+01_JPRB &
+  &, 0.234909E+01_JPRB, 0.233740E+01_JPRB, 0.232529E+01_JPRB &
+  &, 0.231281E+01_JPRB, 0.229991E+01_JPRB, 0.228662E+01_JPRB, 0.227296E+01_JPRB &
+  &, 0.225892E+01_JPRB, 0.224453E+01_JPRB, 0.222977E+01_JPRB &
+  &, 0.221470E+01_JPRB, 0.219927E+01_JPRB, 0.218351E+01_JPRB, 0.216744E+01_JPRB &
+  &, 0.215109E+01_JPRB, 0.213444E+01_JPRB, 0.211752E+01_JPRB &
+  &, 0.210030E+01_JPRB, 0.208282E+01_JPRB, 0.206510E+01_JPRB, 0.204717E+01_JPRB &
+  &, 0.202895E+01_JPRB, 0.201053E+01_JPRB, 0.199188E+01_JPRB &
+  &, 0.197302E+01_JPRB, 0.195399E+01_JPRB, 0.193476E+01_JPRB, 0.191535E+01_JPRB &
+  &, 0.189578E+01_JPRB, 0.187605E+01_JPRB, 0.185616E+01_JPRB &
+  &, 0.183615E+01_JPRB, 0.181604E+01_JPRB, 0.179580E+01_JPRB, 0.177540E+01_JPRB &
+  &, 0.175492E+01_JPRB, 0.173439E+01_JPRB, 0.171372E+01_JPRB &
+  &, 0.169293E+01_JPRB, 0.167223E+01_JPRB, 0.165140E+01_JPRB, 0.163052E+01_JPRB &
+  &, 0.160962E+01_JPRB, 0.158867E+01_JPRB, 0.156768E+01_JPRB/)
+XCW( 877, :) = (/ &
+  &  0.111692E+01_JPRB, 0.114638E+01_JPRB, 0.117590E+01_JPRB, 0.120546E+01_JPRB &
+  &, 0.123504E+01_JPRB, 0.126463E+01_JPRB, 0.129421E+01_JPRB &
+  &, 0.132377E+01_JPRB, 0.135328E+01_JPRB, 0.138273E+01_JPRB, 0.141210E+01_JPRB &
+  &, 0.144137E+01_JPRB, 0.147054E+01_JPRB, 0.149957E+01_JPRB &
+  &, 0.152846E+01_JPRB, 0.155719E+01_JPRB, 0.158574E+01_JPRB, 0.161409E+01_JPRB &
+  &, 0.164223E+01_JPRB, 0.167014E+01_JPRB, 0.169780E+01_JPRB &
+  &, 0.172521E+01_JPRB, 0.175233E+01_JPRB, 0.177916E+01_JPRB, 0.180569E+01_JPRB &
+  &, 0.183188E+01_JPRB, 0.185774E+01_JPRB, 0.188325E+01_JPRB &
+  &, 0.190838E+01_JPRB, 0.193314E+01_JPRB, 0.195749E+01_JPRB, 0.198144E+01_JPRB &
+  &, 0.200496E+01_JPRB, 0.202805E+01_JPRB, 0.205068E+01_JPRB &
+  &, 0.207286E+01_JPRB, 0.209456E+01_JPRB, 0.211579E+01_JPRB, 0.213651E+01_JPRB &
+  &, 0.215674E+01_JPRB, 0.217645E+01_JPRB, 0.219564E+01_JPRB &
+  &, 0.221430E+01_JPRB, 0.223241E+01_JPRB, 0.224999E+01_JPRB, 0.226699E+01_JPRB &
+  &, 0.228345E+01_JPRB, 0.229934E+01_JPRB, 0.231464E+01_JPRB &
+  &, 0.232936E+01_JPRB, 0.234351E+01_JPRB, 0.235707E+01_JPRB, 0.237002E+01_JPRB &
+  &, 0.238237E+01_JPRB, 0.239416E+01_JPRB, 0.240531E+01_JPRB &
+  &, 0.241587E+01_JPRB, 0.242581E+01_JPRB, 0.243516E+01_JPRB, 0.244389E+01_JPRB &
+  &, 0.245200E+01_JPRB, 0.245950E+01_JPRB, 0.246641E+01_JPRB &
+  &, 0.247269E+01_JPRB, 0.247837E+01_JPRB, 0.248345E+01_JPRB, 0.248791E+01_JPRB &
+  &, 0.249177E+01_JPRB, 0.249502E+01_JPRB, 0.249769E+01_JPRB &
+  &, 0.249975E+01_JPRB, 0.250119E+01_JPRB, 0.250211E+01_JPRB, 0.250240E+01_JPRB &
+  &, 0.250212E+01_JPRB, 0.250125E+01_JPRB, 0.249983E+01_JPRB &
+  &, 0.249782E+01_JPRB, 0.249527E+01_JPRB, 0.249216E+01_JPRB, 0.248848E+01_JPRB &
+  &, 0.248428E+01_JPRB, 0.247952E+01_JPRB, 0.247425E+01_JPRB &
+  &, 0.246845E+01_JPRB, 0.246212E+01_JPRB, 0.245530E+01_JPRB, 0.244796E+01_JPRB &
+  &, 0.244015E+01_JPRB, 0.243183E+01_JPRB, 0.242305E+01_JPRB &
+  &, 0.241377E+01_JPRB, 0.240404E+01_JPRB, 0.239385E+01_JPRB, 0.238322E+01_JPRB &
+  &, 0.237216E+01_JPRB, 0.236067E+01_JPRB, 0.234875E+01_JPRB &
+  &, 0.233642E+01_JPRB, 0.232367E+01_JPRB, 0.231056E+01_JPRB, 0.229704E+01_JPRB &
+  &, 0.228314E+01_JPRB, 0.226891E+01_JPRB, 0.225428E+01_JPRB &
+  &, 0.223933E+01_JPRB, 0.222406E+01_JPRB, 0.220845E+01_JPRB, 0.219248E+01_JPRB &
+  &, 0.217623E+01_JPRB, 0.215971E+01_JPRB, 0.214288E+01_JPRB &
+  &, 0.212574E+01_JPRB, 0.210838E+01_JPRB, 0.209073E+01_JPRB, 0.207286E+01_JPRB &
+  &, 0.205470E+01_JPRB, 0.203633E+01_JPRB, 0.201777E+01_JPRB &
+  &, 0.199900E+01_JPRB, 0.197999E+01_JPRB, 0.196078E+01_JPRB, 0.194144E+01_JPRB &
+  &, 0.192189E+01_JPRB, 0.190220E+01_JPRB, 0.188236E+01_JPRB &
+  &, 0.186234E+01_JPRB, 0.184226E+01_JPRB, 0.182199E+01_JPRB, 0.180161E+01_JPRB &
+  &, 0.178115E+01_JPRB, 0.176057E+01_JPRB, 0.173990E+01_JPRB &
+  &, 0.171916E+01_JPRB, 0.169838E+01_JPRB, 0.167752E+01_JPRB, 0.165655E+01_JPRB &
+  &, 0.163562E+01_JPRB, 0.161461E+01_JPRB, 0.159357E+01_JPRB/)
+XCW( 878, :) = (/ &
+  &  0.111745E+01_JPRB, 0.114705E+01_JPRB, 0.117672E+01_JPRB, 0.120643E+01_JPRB &
+  &, 0.123618E+01_JPRB, 0.126593E+01_JPRB, 0.129568E+01_JPRB &
+  &, 0.132540E+01_JPRB, 0.135509E+01_JPRB, 0.138472E+01_JPRB, 0.141427E+01_JPRB &
+  &, 0.144373E+01_JPRB, 0.147309E+01_JPRB, 0.150232E+01_JPRB &
+  &, 0.153141E+01_JPRB, 0.156034E+01_JPRB, 0.158909E+01_JPRB, 0.161766E+01_JPRB &
+  &, 0.164601E+01_JPRB, 0.167414E+01_JPRB, 0.170202E+01_JPRB &
+  &, 0.172965E+01_JPRB, 0.175700E+01_JPRB, 0.178407E+01_JPRB, 0.181082E+01_JPRB &
+  &, 0.183726E+01_JPRB, 0.186336E+01_JPRB, 0.188911E+01_JPRB &
+  &, 0.191449E+01_JPRB, 0.193949E+01_JPRB, 0.196410E+01_JPRB, 0.198830E+01_JPRB &
+  &, 0.201208E+01_JPRB, 0.203542E+01_JPRB, 0.205832E+01_JPRB &
+  &, 0.208076E+01_JPRB, 0.210273E+01_JPRB, 0.212422E+01_JPRB, 0.214521E+01_JPRB &
+  &, 0.216571E+01_JPRB, 0.218569E+01_JPRB, 0.220515E+01_JPRB &
+  &, 0.222409E+01_JPRB, 0.224248E+01_JPRB, 0.226033E+01_JPRB, 0.227762E+01_JPRB &
+  &, 0.229435E+01_JPRB, 0.231052E+01_JPRB, 0.232611E+01_JPRB &
+  &, 0.234111E+01_JPRB, 0.235554E+01_JPRB, 0.236938E+01_JPRB, 0.238261E+01_JPRB &
+  &, 0.239527E+01_JPRB, 0.240731E+01_JPRB, 0.241876E+01_JPRB &
+  &, 0.242960E+01_JPRB, 0.243983E+01_JPRB, 0.244945E+01_JPRB, 0.245846E+01_JPRB &
+  &, 0.246686E+01_JPRB, 0.247464E+01_JPRB, 0.248181E+01_JPRB &
+  &, 0.248838E+01_JPRB, 0.249434E+01_JPRB, 0.249969E+01_JPRB, 0.250443E+01_JPRB &
+  &, 0.250855E+01_JPRB, 0.251208E+01_JPRB, 0.251502E+01_JPRB &
+  &, 0.251734E+01_JPRB, 0.251908E+01_JPRB, 0.252022E+01_JPRB, 0.252078E+01_JPRB &
+  &, 0.252076E+01_JPRB, 0.252015E+01_JPRB, 0.251897E+01_JPRB &
+  &, 0.251723E+01_JPRB, 0.251491E+01_JPRB, 0.251207E+01_JPRB, 0.250863E+01_JPRB &
+  &, 0.250466E+01_JPRB, 0.250016E+01_JPRB, 0.249507E+01_JPRB &
+  &, 0.248953E+01_JPRB, 0.248346E+01_JPRB, 0.247684E+01_JPRB, 0.246973E+01_JPRB &
+  &, 0.246211E+01_JPRB, 0.245401E+01_JPRB, 0.244544E+01_JPRB &
+  &, 0.243638E+01_JPRB, 0.242686E+01_JPRB, 0.241685E+01_JPRB, 0.240643E+01_JPRB &
+  &, 0.239553E+01_JPRB, 0.238421E+01_JPRB, 0.237249E+01_JPRB &
+  &, 0.236032E+01_JPRB, 0.234776E+01_JPRB, 0.233480E+01_JPRB, 0.232142E+01_JPRB &
+  &, 0.230770E+01_JPRB, 0.229361E+01_JPRB, 0.227914E+01_JPRB &
+  &, 0.226432E+01_JPRB, 0.224917E+01_JPRB, 0.223367E+01_JPRB, 0.221786E+01_JPRB &
+  &, 0.220171E+01_JPRB, 0.218529E+01_JPRB, 0.216855E+01_JPRB &
+  &, 0.215154E+01_JPRB, 0.213426E+01_JPRB, 0.211636E+01_JPRB, 0.209888E+01_JPRB &
+  &, 0.208083E+01_JPRB, 0.206256E+01_JPRB, 0.204405E+01_JPRB &
+  &, 0.202532E+01_JPRB, 0.200640E+01_JPRB, 0.198727E+01_JPRB, 0.196795E+01_JPRB &
+  &, 0.194841E+01_JPRB, 0.192873E+01_JPRB, 0.190895E+01_JPRB &
+  &, 0.188897E+01_JPRB, 0.186887E+01_JPRB, 0.184858E+01_JPRB, 0.182823E+01_JPRB &
+  &, 0.180778E+01_JPRB, 0.178716E+01_JPRB, 0.176649E+01_JPRB &
+  &, 0.174575E+01_JPRB, 0.172489E+01_JPRB, 0.170402E+01_JPRB, 0.168309E+01_JPRB &
+  &, 0.166205E+01_JPRB, 0.164101E+01_JPRB, 0.161992E+01_JPRB/)
+XCW( 879, :) = (/ &
+  &  0.111798E+01_JPRB, 0.114773E+01_JPRB, 0.117755E+01_JPRB, 0.120742E+01_JPRB &
+  &, 0.123732E+01_JPRB, 0.126723E+01_JPRB, 0.129715E+01_JPRB &
+  &, 0.132705E+01_JPRB, 0.135691E+01_JPRB, 0.138672E+01_JPRB, 0.141646E+01_JPRB &
+  &, 0.144611E+01_JPRB, 0.147566E+01_JPRB, 0.150509E+01_JPRB &
+  &, 0.153438E+01_JPRB, 0.156351E+01_JPRB, 0.159248E+01_JPRB, 0.162125E+01_JPRB &
+  &, 0.164982E+01_JPRB, 0.167816E+01_JPRB, 0.170628E+01_JPRB &
+  &, 0.173413E+01_JPRB, 0.176171E+01_JPRB, 0.178901E+01_JPRB, 0.181600E+01_JPRB &
+  &, 0.184268E+01_JPRB, 0.186902E+01_JPRB, 0.189501E+01_JPRB &
+  &, 0.192064E+01_JPRB, 0.194589E+01_JPRB, 0.197076E+01_JPRB, 0.199521E+01_JPRB &
+  &, 0.201925E+01_JPRB, 0.204286E+01_JPRB, 0.206602E+01_JPRB &
+  &, 0.208872E+01_JPRB, 0.211096E+01_JPRB, 0.213272E+01_JPRB, 0.215399E+01_JPRB &
+  &, 0.217476E+01_JPRB, 0.219501E+01_JPRB, 0.221475E+01_JPRB &
+  &, 0.223396E+01_JPRB, 0.225255E+01_JPRB, 0.227077E+01_JPRB, 0.228834E+01_JPRB &
+  &, 0.230535E+01_JPRB, 0.232180E+01_JPRB, 0.233768E+01_JPRB &
+  &, 0.235296E+01_JPRB, 0.236768E+01_JPRB, 0.238180E+01_JPRB, 0.239533E+01_JPRB &
+  &, 0.240826E+01_JPRB, 0.242060E+01_JPRB, 0.243233E+01_JPRB &
+  &, 0.244345E+01_JPRB, 0.245391E+01_JPRB, 0.246388E+01_JPRB, 0.247316E+01_JPRB &
+  &, 0.248185E+01_JPRB, 0.248990E+01_JPRB, 0.249738E+01_JPRB &
+  &, 0.250423E+01_JPRB, 0.251046E+01_JPRB, 0.251609E+01_JPRB, 0.252111E+01_JPRB &
+  &, 0.252551E+01_JPRB, 0.252933E+01_JPRB, 0.253253E+01_JPRB &
+  &, 0.253514E+01_JPRB, 0.253715E+01_JPRB, 0.253856E+01_JPRB, 0.253938E+01_JPRB &
+  &, 0.253961E+01_JPRB, 0.253927E+01_JPRB, 0.253836E+01_JPRB &
+  &, 0.253686E+01_JPRB, 0.253481E+01_JPRB, 0.253218E+01_JPRB, 0.252901E+01_JPRB &
+  &, 0.252528E+01_JPRB, 0.252102E+01_JPRB, 0.251619E+01_JPRB &
+  &, 0.251086E+01_JPRB, 0.250502E+01_JPRB, 0.249864E+01_JPRB, 0.249175E+01_JPRB &
+  &, 0.248436E+01_JPRB, 0.247646E+01_JPRB, 0.246809E+01_JPRB &
+  &, 0.245924E+01_JPRB, 0.244990E+01_JPRB, 0.244011E+01_JPRB, 0.242987E+01_JPRB &
+  &, 0.241918E+01_JPRB, 0.240807E+01_JPRB, 0.239651E+01_JPRB &
+  &, 0.238447E+01_JPRB, 0.237214E+01_JPRB, 0.235933E+01_JPRB, 0.234614E+01_JPRB &
+  &, 0.233256E+01_JPRB, 0.231861E+01_JPRB, 0.230428E+01_JPRB &
+  &, 0.228963E+01_JPRB, 0.227460E+01_JPRB, 0.225923E+01_JPRB, 0.224353E+01_JPRB &
+  &, 0.222753E+01_JPRB, 0.221122E+01_JPRB, 0.219461E+01_JPRB &
+  &, 0.217770E+01_JPRB, 0.216051E+01_JPRB, 0.214306E+01_JPRB, 0.212533E+01_JPRB &
+  &, 0.210734E+01_JPRB, 0.208913E+01_JPRB, 0.207073E+01_JPRB &
+  &, 0.205205E+01_JPRB, 0.203317E+01_JPRB, 0.201407E+01_JPRB, 0.199482E+01_JPRB &
+  &, 0.197536E+01_JPRB, 0.195564E+01_JPRB, 0.193591E+01_JPRB &
+  &, 0.191598E+01_JPRB, 0.189588E+01_JPRB, 0.187562E+01_JPRB, 0.185530E+01_JPRB &
+  &, 0.183483E+01_JPRB, 0.181422E+01_JPRB, 0.179356E+01_JPRB &
+  &, 0.177276E+01_JPRB, 0.175190E+01_JPRB, 0.173096E+01_JPRB, 0.171000E+01_JPRB &
+  &, 0.168894E+01_JPRB, 0.166787E+01_JPRB, 0.164673E+01_JPRB/)
+XCW( 880, :) = (/ &
+  &  0.111852E+01_JPRB, 0.114841E+01_JPRB, 0.117838E+01_JPRB, 0.120841E+01_JPRB &
+  &, 0.123847E+01_JPRB, 0.126855E+01_JPRB, 0.129863E+01_JPRB &
+  &, 0.132870E+01_JPRB, 0.135874E+01_JPRB, 0.138873E+01_JPRB, 0.141866E+01_JPRB &
+  &, 0.144850E+01_JPRB, 0.147825E+01_JPRB, 0.150787E+01_JPRB &
+  &, 0.153737E+01_JPRB, 0.156671E+01_JPRB, 0.159588E+01_JPRB, 0.162487E+01_JPRB &
+  &, 0.165366E+01_JPRB, 0.168223E+01_JPRB, 0.171056E+01_JPRB &
+  &, 0.173864E+01_JPRB, 0.176646E+01_JPRB, 0.179399E+01_JPRB, 0.182122E+01_JPRB &
+  &, 0.184814E+01_JPRB, 0.187472E+01_JPRB, 0.190096E+01_JPRB &
+  &, 0.192684E+01_JPRB, 0.195235E+01_JPRB, 0.197747E+01_JPRB, 0.200218E+01_JPRB &
+  &, 0.202648E+01_JPRB, 0.205035E+01_JPRB, 0.207378E+01_JPRB &
+  &, 0.209675E+01_JPRB, 0.211925E+01_JPRB, 0.214129E+01_JPRB, 0.216283E+01_JPRB &
+  &, 0.218388E+01_JPRB, 0.220441E+01_JPRB, 0.222443E+01_JPRB &
+  &, 0.224392E+01_JPRB, 0.226288E+01_JPRB, 0.228128E+01_JPRB, 0.229914E+01_JPRB &
+  &, 0.231644E+01_JPRB, 0.233318E+01_JPRB, 0.234934E+01_JPRB &
+  &, 0.236492E+01_JPRB, 0.237993E+01_JPRB, 0.239434E+01_JPRB, 0.240816E+01_JPRB &
+  &, 0.242138E+01_JPRB, 0.243400E+01_JPRB, 0.244602E+01_JPRB &
+  &, 0.245743E+01_JPRB, 0.246825E+01_JPRB, 0.247843E+01_JPRB, 0.248802E+01_JPRB &
+  &, 0.249699E+01_JPRB, 0.250535E+01_JPRB, 0.251309E+01_JPRB &
+  &, 0.252023E+01_JPRB, 0.252675E+01_JPRB, 0.253266E+01_JPRB, 0.253797E+01_JPRB &
+  &, 0.254265E+01_JPRB, 0.254674E+01_JPRB, 0.255020E+01_JPRB &
+  &, 0.255309E+01_JPRB, 0.255538E+01_JPRB, 0.255707E+01_JPRB, 0.255816E+01_JPRB &
+  &, 0.255866E+01_JPRB, 0.255857E+01_JPRB, 0.255793E+01_JPRB &
+  &, 0.255593E+01_JPRB, 0.255488E+01_JPRB, 0.255252E+01_JPRB, 0.254959E+01_JPRB &
+  &, 0.254611E+01_JPRB, 0.254210E+01_JPRB, 0.253753E+01_JPRB &
+  &, 0.253244E+01_JPRB, 0.252681E+01_JPRB, 0.252066E+01_JPRB, 0.251402E+01_JPRB &
+  &, 0.250683E+01_JPRB, 0.249918E+01_JPRB, 0.249101E+01_JPRB &
+  &, 0.248238E+01_JPRB, 0.247302E+01_JPRB, 0.246367E+01_JPRB, 0.245361E+01_JPRB &
+  &, 0.244314E+01_JPRB, 0.243220E+01_JPRB, 0.242081E+01_JPRB &
+  &, 0.240901E+01_JPRB, 0.239681E+01_JPRB, 0.238416E+01_JPRB, 0.237116E+01_JPRB &
+  &, 0.235773E+01_JPRB, 0.234393E+01_JPRB, 0.232978E+01_JPRB &
+  &, 0.231526E+01_JPRB, 0.230037E+01_JPRB, 0.228516E+01_JPRB, 0.226958E+01_JPRB &
+  &, 0.225370E+01_JPRB, 0.223749E+01_JPRB, 0.222099E+01_JPRB &
+  &, 0.220422E+01_JPRB, 0.218712E+01_JPRB, 0.216975E+01_JPRB, 0.215215E+01_JPRB &
+  &, 0.213424E+01_JPRB, 0.211609E+01_JPRB, 0.209775E+01_JPRB &
+  &, 0.207917E+01_JPRB, 0.206034E+01_JPRB, 0.204133E+01_JPRB, 0.202211E+01_JPRB &
+  &, 0.200267E+01_JPRB, 0.198308E+01_JPRB, 0.196331E+01_JPRB &
+  &, 0.194338E+01_JPRB, 0.192333E+01_JPRB, 0.190312E+01_JPRB, 0.188278E+01_JPRB &
+  &, 0.186228E+01_JPRB, 0.184169E+01_JPRB, 0.182099E+01_JPRB &
+  &, 0.180020E+01_JPRB, 0.177934E+01_JPRB, 0.175839E+01_JPRB, 0.173736E+01_JPRB &
+  &, 0.171628E+01_JPRB, 0.169511E+01_JPRB, 0.167394E+01_JPRB/)
+XCW( 881, :) = (/ &
+  &  0.111906E+01_JPRB, 0.114910E+01_JPRB, 0.117922E+01_JPRB, 0.120940E+01_JPRB &
+  &, 0.123962E+01_JPRB, 0.126987E+01_JPRB, 0.130013E+01_JPRB &
+  &, 0.133037E+01_JPRB, 0.136059E+01_JPRB, 0.139076E+01_JPRB, 0.142088E+01_JPRB &
+  &, 0.145091E+01_JPRB, 0.148085E+01_JPRB, 0.151068E+01_JPRB &
+  &, 0.154037E+01_JPRB, 0.156992E+01_JPRB, 0.159931E+01_JPRB, 0.162851E+01_JPRB &
+  &, 0.165752E+01_JPRB, 0.168631E+01_JPRB, 0.171487E+01_JPRB &
+  &, 0.174319E+01_JPRB, 0.177123E+01_JPRB, 0.179900E+01_JPRB, 0.182648E+01_JPRB &
+  &, 0.185363E+01_JPRB, 0.188047E+01_JPRB, 0.190696E+01_JPRB &
+  &, 0.193309E+01_JPRB, 0.195886E+01_JPRB, 0.198423E+01_JPRB, 0.200921E+01_JPRB &
+  &, 0.203377E+01_JPRB, 0.205791E+01_JPRB, 0.208160E+01_JPRB &
+  &, 0.210485E+01_JPRB, 0.212763E+01_JPRB, 0.214993E+01_JPRB, 0.217175E+01_JPRB &
+  &, 0.219308E+01_JPRB, 0.221389E+01_JPRB, 0.223419E+01_JPRB &
+  &, 0.225397E+01_JPRB, 0.227321E+01_JPRB, 0.229191E+01_JPRB, 0.231005E+01_JPRB &
+  &, 0.232762E+01_JPRB, 0.234466E+01_JPRB, 0.236111E+01_JPRB &
+  &, 0.237699E+01_JPRB, 0.239228E+01_JPRB, 0.240699E+01_JPRB, 0.242110E+01_JPRB &
+  &, 0.243462E+01_JPRB, 0.244754E+01_JPRB, 0.245984E+01_JPRB &
+  &, 0.247155E+01_JPRB, 0.248265E+01_JPRB, 0.249314E+01_JPRB, 0.250302E+01_JPRB &
+  &, 0.251228E+01_JPRB, 0.252094E+01_JPRB, 0.252896E+01_JPRB &
+  &, 0.253638E+01_JPRB, 0.254320E+01_JPRB, 0.254940E+01_JPRB, 0.255498E+01_JPRB &
+  &, 0.255995E+01_JPRB, 0.256433E+01_JPRB, 0.256809E+01_JPRB &
+  &, 0.257124E+01_JPRB, 0.257379E+01_JPRB, 0.257577E+01_JPRB, 0.257712E+01_JPRB &
+  &, 0.257790E+01_JPRB, 0.257806E+01_JPRB, 0.257770E+01_JPRB &
+  &, 0.257674E+01_JPRB, 0.257520E+01_JPRB, 0.257309E+01_JPRB, 0.257041E+01_JPRB &
+  &, 0.256721E+01_JPRB, 0.256344E+01_JPRB, 0.255912E+01_JPRB &
+  &, 0.255425E+01_JPRB, 0.254886E+01_JPRB, 0.254295E+01_JPRB, 0.253651E+01_JPRB &
+  &, 0.252959E+01_JPRB, 0.252215E+01_JPRB, 0.251421E+01_JPRB &
+  &, 0.250578E+01_JPRB, 0.249687E+01_JPRB, 0.248752E+01_JPRB, 0.247765E+01_JPRB &
+  &, 0.246736E+01_JPRB, 0.245664E+01_JPRB, 0.244543E+01_JPRB &
+  &, 0.243383E+01_JPRB, 0.242180E+01_JPRB, 0.240936E+01_JPRB, 0.239649E+01_JPRB &
+  &, 0.238325E+01_JPRB, 0.236960E+01_JPRB, 0.235559E+01_JPRB &
+  &, 0.234122E+01_JPRB, 0.232650E+01_JPRB, 0.231142E+01_JPRB, 0.229597E+01_JPRB &
+  &, 0.228025E+01_JPRB, 0.226416E+01_JPRB, 0.224777E+01_JPRB &
+  &, 0.223110E+01_JPRB, 0.221409E+01_JPRB, 0.219686E+01_JPRB, 0.217930E+01_JPRB &
+  &, 0.216151E+01_JPRB, 0.214349E+01_JPRB, 0.212521E+01_JPRB &
+  &, 0.210669E+01_JPRB, 0.208791E+01_JPRB, 0.206894E+01_JPRB, 0.204977E+01_JPRB &
+  &, 0.203041E+01_JPRB, 0.201090E+01_JPRB, 0.199114E+01_JPRB &
+  &, 0.197128E+01_JPRB, 0.195123E+01_JPRB, 0.193102E+01_JPRB, 0.191066E+01_JPRB &
+  &, 0.189019E+01_JPRB, 0.186964E+01_JPRB, 0.184896E+01_JPRB &
+  &, 0.182812E+01_JPRB, 0.180727E+01_JPRB, 0.178626E+01_JPRB, 0.176522E+01_JPRB &
+  &, 0.174406E+01_JPRB, 0.172293E+01_JPRB, 0.170167E+01_JPRB/)
+XCW( 882, :) = (/ &
+  &  0.111960E+01_JPRB, 0.114979E+01_JPRB, 0.118007E+01_JPRB, 0.121040E+01_JPRB &
+  &, 0.124079E+01_JPRB, 0.127120E+01_JPRB, 0.130163E+01_JPRB &
+  &, 0.133205E+01_JPRB, 0.136245E+01_JPRB, 0.139281E+01_JPRB, 0.142311E+01_JPRB &
+  &, 0.145334E+01_JPRB, 0.148347E+01_JPRB, 0.151350E+01_JPRB &
+  &, 0.154341E+01_JPRB, 0.157316E+01_JPRB, 0.160276E+01_JPRB, 0.163219E+01_JPRB &
+  &, 0.166141E+01_JPRB, 0.169043E+01_JPRB, 0.171922E+01_JPRB &
+  &, 0.174776E+01_JPRB, 0.177605E+01_JPRB, 0.180406E+01_JPRB, 0.183177E+01_JPRB &
+  &, 0.185918E+01_JPRB, 0.188626E+01_JPRB, 0.191301E+01_JPRB &
+  &, 0.193940E+01_JPRB, 0.196542E+01_JPRB, 0.199105E+01_JPRB, 0.201629E+01_JPRB &
+  &, 0.204112E+01_JPRB, 0.206553E+01_JPRB, 0.208949E+01_JPRB &
+  &, 0.211301E+01_JPRB, 0.213607E+01_JPRB, 0.215865E+01_JPRB, 0.218074E+01_JPRB &
+  &, 0.220236E+01_JPRB, 0.222345E+01_JPRB, 0.224404E+01_JPRB &
+  &, 0.226410E+01_JPRB, 0.228363E+01_JPRB, 0.230262E+01_JPRB, 0.232106E+01_JPRB &
+  &, 0.233894E+01_JPRB, 0.235625E+01_JPRB, 0.237300E+01_JPRB &
+  &, 0.238917E+01_JPRB, 0.240476E+01_JPRB, 0.241976E+01_JPRB, 0.243416E+01_JPRB &
+  &, 0.244797E+01_JPRB, 0.246119E+01_JPRB, 0.247380E+01_JPRB &
+  &, 0.248581E+01_JPRB, 0.249720E+01_JPRB, 0.250799E+01_JPRB, 0.251816E+01_JPRB &
+  &, 0.252771E+01_JPRB, 0.253667E+01_JPRB, 0.254499E+01_JPRB &
+  &, 0.255271E+01_JPRB, 0.255980E+01_JPRB, 0.256629E+01_JPRB, 0.257218E+01_JPRB &
+  &, 0.257745E+01_JPRB, 0.258210E+01_JPRB, 0.258614E+01_JPRB &
+  &, 0.258959E+01_JPRB, 0.259242E+01_JPRB, 0.259466E+01_JPRB, 0.259631E+01_JPRB &
+  &, 0.259736E+01_JPRB, 0.259783E+01_JPRB, 0.259770E+01_JPRB &
+  &, 0.259700E+01_JPRB, 0.259574E+01_JPRB, 0.259388E+01_JPRB, 0.259149E+01_JPRB &
+  &, 0.258851E+01_JPRB, 0.258499E+01_JPRB, 0.258093E+01_JPRB &
+  &, 0.257622E+01_JPRB, 0.257116E+01_JPRB, 0.256550E+01_JPRB, 0.255931E+01_JPRB &
+  &, 0.255260E+01_JPRB, 0.254540E+01_JPRB, 0.253769E+01_JPRB &
+  &, 0.252947E+01_JPRB, 0.252079E+01_JPRB, 0.251163E+01_JPRB, 0.250199E+01_JPRB &
+  &, 0.249189E+01_JPRB, 0.248136E+01_JPRB, 0.247037E+01_JPRB &
+  &, 0.245895E+01_JPRB, 0.244709E+01_JPRB, 0.243478E+01_JPRB, 0.242215E+01_JPRB &
+  &, 0.240907E+01_JPRB, 0.239561E+01_JPRB, 0.238176E+01_JPRB &
+  &, 0.236753E+01_JPRB, 0.235295E+01_JPRB, 0.233801E+01_JPRB, 0.232273E+01_JPRB &
+  &, 0.230710E+01_JPRB, 0.229117E+01_JPRB, 0.227489E+01_JPRB &
+  &, 0.225834E+01_JPRB, 0.224148E+01_JPRB, 0.222434E+01_JPRB, 0.220692E+01_JPRB &
+  &, 0.218922E+01_JPRB, 0.217122E+01_JPRB, 0.215301E+01_JPRB &
+  &, 0.213461E+01_JPRB, 0.211594E+01_JPRB, 0.209702E+01_JPRB, 0.207789E+01_JPRB &
+  &, 0.205852E+01_JPRB, 0.203909E+01_JPRB, 0.201941E+01_JPRB &
+  &, 0.199957E+01_JPRB, 0.197952E+01_JPRB, 0.195936E+01_JPRB, 0.193906E+01_JPRB &
+  &, 0.191858E+01_JPRB, 0.189800E+01_JPRB, 0.187735E+01_JPRB &
+  &, 0.185653E+01_JPRB, 0.183564E+01_JPRB, 0.181463E+01_JPRB, 0.179353E+01_JPRB &
+  &, 0.177236E+01_JPRB, 0.175115E+01_JPRB, 0.172992E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART126',1,ZHOOK_HANDLE)
+END SUBROUTINE PART126
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART127
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART127',0,ZHOOK_HANDLE)
+
+XCW( 883, :) = (/ &
+  &  0.112015E+01_JPRB, 0.115049E+01_JPRB, 0.118092E+01_JPRB, 0.121141E+01_JPRB &
+  &, 0.124196E+01_JPRB, 0.127254E+01_JPRB, 0.130314E+01_JPRB &
+  &, 0.133374E+01_JPRB, 0.136432E+01_JPRB, 0.139487E+01_JPRB, 0.142536E+01_JPRB &
+  &, 0.145578E+01_JPRB, 0.148612E+01_JPRB, 0.151635E+01_JPRB &
+  &, 0.154646E+01_JPRB, 0.157643E+01_JPRB, 0.160625E+01_JPRB, 0.163589E+01_JPRB &
+  &, 0.166534E+01_JPRB, 0.169458E+01_JPRB, 0.172360E+01_JPRB &
+  &, 0.175238E+01_JPRB, 0.178090E+01_JPRB, 0.180916E+01_JPRB, 0.183711E+01_JPRB &
+  &, 0.186477E+01_JPRB, 0.189210E+01_JPRB, 0.191910E+01_JPRB &
+  &, 0.194575E+01_JPRB, 0.197203E+01_JPRB, 0.199793E+01_JPRB, 0.202343E+01_JPRB &
+  &, 0.204853E+01_JPRB, 0.207321E+01_JPRB, 0.209745E+01_JPRB &
+  &, 0.212124E+01_JPRB, 0.214457E+01_JPRB, 0.216744E+01_JPRB, 0.218983E+01_JPRB &
+  &, 0.221171E+01_JPRB, 0.223311E+01_JPRB, 0.225397E+01_JPRB &
+  &, 0.227432E+01_JPRB, 0.229414E+01_JPRB, 0.231342E+01_JPRB, 0.233216E+01_JPRB &
+  &, 0.235034E+01_JPRB, 0.236795E+01_JPRB, 0.238498E+01_JPRB &
+  &, 0.240146E+01_JPRB, 0.241734E+01_JPRB, 0.243264E+01_JPRB, 0.244736E+01_JPRB &
+  &, 0.246147E+01_JPRB, 0.247498E+01_JPRB, 0.248789E+01_JPRB &
+  &, 0.250019E+01_JPRB, 0.251189E+01_JPRB, 0.252298E+01_JPRB, 0.253344E+01_JPRB &
+  &, 0.254331E+01_JPRB, 0.255255E+01_JPRB, 0.256118E+01_JPRB &
+  &, 0.256919E+01_JPRB, 0.257659E+01_JPRB, 0.258337E+01_JPRB, 0.258955E+01_JPRB &
+  &, 0.259510E+01_JPRB, 0.260005E+01_JPRB, 0.260439E+01_JPRB &
+  &, 0.260810E+01_JPRB, 0.261124E+01_JPRB, 0.261376E+01_JPRB, 0.261569E+01_JPRB &
+  &, 0.261703E+01_JPRB, 0.261776E+01_JPRB, 0.261792E+01_JPRB &
+  &, 0.261748E+01_JPRB, 0.261650E+01_JPRB, 0.261491E+01_JPRB, 0.261277E+01_JPRB &
+  &, 0.261008E+01_JPRB, 0.260679E+01_JPRB, 0.260298E+01_JPRB &
+  &, 0.259863E+01_JPRB, 0.259375E+01_JPRB, 0.258831E+01_JPRB, 0.258236E+01_JPRB &
+  &, 0.257590E+01_JPRB, 0.256892E+01_JPRB, 0.256142E+01_JPRB &
+  &, 0.255347E+01_JPRB, 0.254500E+01_JPRB, 0.253604E+01_JPRB, 0.252664E+01_JPRB &
+  &, 0.251673E+01_JPRB, 0.250642E+01_JPRB, 0.249562E+01_JPRB &
+  &, 0.248438E+01_JPRB, 0.247274E+01_JPRB, 0.246064E+01_JPRB, 0.244815E+01_JPRB &
+  &, 0.243524E+01_JPRB, 0.242194E+01_JPRB, 0.240828E+01_JPRB &
+  &, 0.239421E+01_JPRB, 0.237978E+01_JPRB, 0.236498E+01_JPRB, 0.234984E+01_JPRB &
+  &, 0.233437E+01_JPRB, 0.231857E+01_JPRB, 0.230242E+01_JPRB &
+  &, 0.228598E+01_JPRB, 0.226923E+01_JPRB, 0.225220E+01_JPRB, 0.223486E+01_JPRB &
+  &, 0.221725E+01_JPRB, 0.219939E+01_JPRB, 0.218131E+01_JPRB &
+  &, 0.216293E+01_JPRB, 0.214432E+01_JPRB, 0.212551E+01_JPRB, 0.210644E+01_JPRB &
+  &, 0.208721E+01_JPRB, 0.206776E+01_JPRB, 0.204811E+01_JPRB &
+  &, 0.202829E+01_JPRB, 0.200832E+01_JPRB, 0.198817E+01_JPRB, 0.196786E+01_JPRB &
+  &, 0.194743E+01_JPRB, 0.192689E+01_JPRB, 0.190615E+01_JPRB &
+  &, 0.188537E+01_JPRB, 0.186443E+01_JPRB, 0.184343E+01_JPRB, 0.182234E+01_JPRB &
+  &, 0.180117E+01_JPRB, 0.177995E+01_JPRB, 0.175864E+01_JPRB/)
+XCW( 884, :) = (/ &
+  &  0.112070E+01_JPRB, 0.115119E+01_JPRB, 0.118177E+01_JPRB, 0.121243E+01_JPRB &
+  &, 0.124314E+01_JPRB, 0.127389E+01_JPRB, 0.130466E+01_JPRB &
+  &, 0.133544E+01_JPRB, 0.136620E+01_JPRB, 0.139694E+01_JPRB, 0.142762E+01_JPRB &
+  &, 0.145824E+01_JPRB, 0.148878E+01_JPRB, 0.151922E+01_JPRB &
+  &, 0.154953E+01_JPRB, 0.157972E+01_JPRB, 0.160975E+01_JPRB, 0.163961E+01_JPRB &
+  &, 0.166929E+01_JPRB, 0.169876E+01_JPRB, 0.172802E+01_JPRB &
+  &, 0.175703E+01_JPRB, 0.178580E+01_JPRB, 0.181429E+01_JPRB, 0.184250E+01_JPRB &
+  &, 0.187040E+01_JPRB, 0.189799E+01_JPRB, 0.192524E+01_JPRB &
+  &, 0.195215E+01_JPRB, 0.197869E+01_JPRB, 0.200486E+01_JPRB, 0.203063E+01_JPRB &
+  &, 0.205600E+01_JPRB, 0.208095E+01_JPRB, 0.210547E+01_JPRB &
+  &, 0.212954E+01_JPRB, 0.215316E+01_JPRB, 0.217631E+01_JPRB, 0.219898E+01_JPRB &
+  &, 0.222116E+01_JPRB, 0.224283E+01_JPRB, 0.226400E+01_JPRB &
+  &, 0.228464E+01_JPRB, 0.230476E+01_JPRB, 0.232433E+01_JPRB, 0.234335E+01_JPRB &
+  &, 0.236183E+01_JPRB, 0.237975E+01_JPRB, 0.239709E+01_JPRB &
+  &, 0.241386E+01_JPRB, 0.243005E+01_JPRB, 0.244566E+01_JPRB, 0.246067E+01_JPRB &
+  &, 0.247509E+01_JPRB, 0.248890E+01_JPRB, 0.250212E+01_JPRB &
+  &, 0.251472E+01_JPRB, 0.252673E+01_JPRB, 0.253812E+01_JPRB, 0.254890E+01_JPRB &
+  &, 0.255905E+01_JPRB, 0.256859E+01_JPRB, 0.257752E+01_JPRB &
+  &, 0.258585E+01_JPRB, 0.259354E+01_JPRB, 0.260062E+01_JPRB, 0.260708E+01_JPRB &
+  &, 0.261295E+01_JPRB, 0.261819E+01_JPRB, 0.262281E+01_JPRB &
+  &, 0.262683E+01_JPRB, 0.263025E+01_JPRB, 0.263306E+01_JPRB, 0.263528E+01_JPRB &
+  &, 0.263689E+01_JPRB, 0.263793E+01_JPRB, 0.263835E+01_JPRB &
+  &, 0.263821E+01_JPRB, 0.263749E+01_JPRB, 0.263616E+01_JPRB, 0.263428E+01_JPRB &
+  &, 0.263185E+01_JPRB, 0.262885E+01_JPRB, 0.262530E+01_JPRB &
+  &, 0.262077E+01_JPRB, 0.261656E+01_JPRB, 0.261138E+01_JPRB, 0.260569E+01_JPRB &
+  &, 0.259948E+01_JPRB, 0.259271E+01_JPRB, 0.258546E+01_JPRB &
+  &, 0.257773E+01_JPRB, 0.256949E+01_JPRB, 0.256078E+01_JPRB, 0.255158E+01_JPRB &
+  &, 0.254191E+01_JPRB, 0.253176E+01_JPRB, 0.252119E+01_JPRB &
+  &, 0.251014E+01_JPRB, 0.249869E+01_JPRB, 0.248680E+01_JPRB, 0.247448E+01_JPRB &
+  &, 0.246179E+01_JPRB, 0.244866E+01_JPRB, 0.243512E+01_JPRB &
+  &, 0.242125E+01_JPRB, 0.240697E+01_JPRB, 0.239232E+01_JPRB, 0.237736E+01_JPRB &
+  &, 0.236200E+01_JPRB, 0.234633E+01_JPRB, 0.233034E+01_JPRB &
+  &, 0.231402E+01_JPRB, 0.229739E+01_JPRB, 0.228046E+01_JPRB, 0.226323E+01_JPRB &
+  &, 0.224577E+01_JPRB, 0.222800E+01_JPRB, 0.220995E+01_JPRB &
+  &, 0.219169E+01_JPRB, 0.217316E+01_JPRB, 0.215442E+01_JPRB, 0.213545E+01_JPRB &
+  &, 0.211627E+01_JPRB, 0.209687E+01_JPRB, 0.207725E+01_JPRB &
+  &, 0.205751E+01_JPRB, 0.203756E+01_JPRB, 0.201742E+01_JPRB, 0.199718E+01_JPRB &
+  &, 0.197674E+01_JPRB, 0.195619E+01_JPRB, 0.193550E+01_JPRB &
+  &, 0.191469E+01_JPRB, 0.189378E+01_JPRB, 0.187274E+01_JPRB, 0.185165E+01_JPRB &
+  &, 0.183042E+01_JPRB, 0.180920E+01_JPRB, 0.178781E+01_JPRB/)
+XCW( 885, :) = (/ &
+  &  0.112126E+01_JPRB, 0.115190E+01_JPRB, 0.118263E+01_JPRB, 0.121345E+01_JPRB &
+  &, 0.124433E+01_JPRB, 0.127525E+01_JPRB, 0.130620E+01_JPRB &
+  &, 0.133715E+01_JPRB, 0.136810E+01_JPRB, 0.139903E+01_JPRB, 0.142990E+01_JPRB &
+  &, 0.146072E+01_JPRB, 0.149146E+01_JPRB, 0.152210E+01_JPRB &
+  &, 0.155263E+01_JPRB, 0.158303E+01_JPRB, 0.161328E+01_JPRB, 0.164337E+01_JPRB &
+  &, 0.167327E+01_JPRB, 0.170298E+01_JPRB, 0.173246E+01_JPRB &
+  &, 0.176172E+01_JPRB, 0.179073E+01_JPRB, 0.181947E+01_JPRB, 0.184792E+01_JPRB &
+  &, 0.187608E+01_JPRB, 0.190392E+01_JPRB, 0.193144E+01_JPRB &
+  &, 0.195861E+01_JPRB, 0.198541E+01_JPRB, 0.201185E+01_JPRB, 0.203789E+01_JPRB &
+  &, 0.206354E+01_JPRB, 0.208877E+01_JPRB, 0.211356E+01_JPRB &
+  &, 0.213791E+01_JPRB, 0.216182E+01_JPRB, 0.218526E+01_JPRB, 0.220821E+01_JPRB &
+  &, 0.223068E+01_JPRB, 0.225264E+01_JPRB, 0.227411E+01_JPRB &
+  &, 0.229501E+01_JPRB, 0.231546E+01_JPRB, 0.233534E+01_JPRB, 0.235466E+01_JPRB &
+  &, 0.237344E+01_JPRB, 0.239166E+01_JPRB, 0.240930E+01_JPRB &
+  &, 0.242636E+01_JPRB, 0.244288E+01_JPRB, 0.245878E+01_JPRB, 0.247410E+01_JPRB &
+  &, 0.248883E+01_JPRB, 0.250295E+01_JPRB, 0.251647E+01_JPRB &
+  &, 0.252915E+01_JPRB, 0.254170E+01_JPRB, 0.255340E+01_JPRB, 0.256448E+01_JPRB &
+  &, 0.257496E+01_JPRB, 0.258480E+01_JPRB, 0.259405E+01_JPRB &
+  &, 0.260267E+01_JPRB, 0.261066E+01_JPRB, 0.261804E+01_JPRB, 0.262483E+01_JPRB &
+  &, 0.263098E+01_JPRB, 0.263652E+01_JPRB, 0.264144E+01_JPRB &
+  &, 0.264577E+01_JPRB, 0.264948E+01_JPRB, 0.265258E+01_JPRB, 0.265507E+01_JPRB &
+  &, 0.265699E+01_JPRB, 0.265831E+01_JPRB, 0.265902E+01_JPRB &
+  &, 0.265915E+01_JPRB, 0.265870E+01_JPRB, 0.265766E+01_JPRB, 0.265608E+01_JPRB &
+  &, 0.265389E+01_JPRB, 0.265116E+01_JPRB, 0.264787E+01_JPRB &
+  &, 0.264405E+01_JPRB, 0.263966E+01_JPRB, 0.263474E+01_JPRB, 0.262927E+01_JPRB &
+  &, 0.262332E+01_JPRB, 0.261681E+01_JPRB, 0.260982E+01_JPRB &
+  &, 0.260230E+01_JPRB, 0.259428E+01_JPRB, 0.258578E+01_JPRB, 0.257682E+01_JPRB &
+  &, 0.256736E+01_JPRB, 0.255745E+01_JPRB, 0.254707E+01_JPRB &
+  &, 0.253626E+01_JPRB, 0.252499E+01_JPRB, 0.251330E+01_JPRB, 0.250116E+01_JPRB &
+  &, 0.248864E+01_JPRB, 0.247569E+01_JPRB, 0.246236E+01_JPRB &
+  &, 0.244865E+01_JPRB, 0.243453E+01_JPRB, 0.242004E+01_JPRB, 0.240523E+01_JPRB &
+  &, 0.239004E+01_JPRB, 0.237452E+01_JPRB, 0.235862E+01_JPRB &
+  &, 0.234247E+01_JPRB, 0.232595E+01_JPRB, 0.230915E+01_JPRB, 0.229203E+01_JPRB &
+  &, 0.227467E+01_JPRB, 0.225699E+01_JPRB, 0.223908E+01_JPRB &
+  &, 0.222086E+01_JPRB, 0.220245E+01_JPRB, 0.218378E+01_JPRB, 0.216487E+01_JPRB &
+  &, 0.214575E+01_JPRB, 0.212640E+01_JPRB, 0.210688E+01_JPRB &
+  &, 0.208717E+01_JPRB, 0.206725E+01_JPRB, 0.204719E+01_JPRB, 0.202696E+01_JPRB &
+  &, 0.200652E+01_JPRB, 0.198603E+01_JPRB, 0.196532E+01_JPRB &
+  &, 0.194455E+01_JPRB, 0.192362E+01_JPRB, 0.190260E+01_JPRB, 0.188147E+01_JPRB &
+  &, 0.186026E+01_JPRB, 0.183891E+01_JPRB, 0.181758E+01_JPRB/)
+XCW( 886, :) = (/ &
+  &  0.112181E+01_JPRB, 0.115261E+01_JPRB, 0.118350E+01_JPRB, 0.121448E+01_JPRB &
+  &, 0.124553E+01_JPRB, 0.127662E+01_JPRB, 0.130774E+01_JPRB &
+  &, 0.133888E+01_JPRB, 0.137001E+01_JPRB, 0.140113E+01_JPRB, 0.143220E+01_JPRB &
+  &, 0.146322E+01_JPRB, 0.149416E+01_JPRB, 0.152501E+01_JPRB &
+  &, 0.155576E+01_JPRB, 0.158637E+01_JPRB, 0.161684E+01_JPRB, 0.164716E+01_JPRB &
+  &, 0.167729E+01_JPRB, 0.170722E+01_JPRB, 0.173695E+01_JPRB &
+  &, 0.176645E+01_JPRB, 0.179570E+01_JPRB, 0.182468E+01_JPRB, 0.185339E+01_JPRB &
+  &, 0.188180E+01_JPRB, 0.190990E+01_JPRB, 0.193768E+01_JPRB &
+  &, 0.196512E+01_JPRB, 0.199219E+01_JPRB, 0.201890E+01_JPRB, 0.204522E+01_JPRB &
+  &, 0.207114E+01_JPRB, 0.209665E+01_JPRB, 0.212173E+01_JPRB &
+  &, 0.214637E+01_JPRB, 0.217055E+01_JPRB, 0.219427E+01_JPRB, 0.221753E+01_JPRB &
+  &, 0.224029E+01_JPRB, 0.226255E+01_JPRB, 0.228431E+01_JPRB &
+  &, 0.230555E+01_JPRB, 0.232626E+01_JPRB, 0.234644E+01_JPRB, 0.236607E+01_JPRB &
+  &, 0.238516E+01_JPRB, 0.240368E+01_JPRB, 0.242163E+01_JPRB &
+  &, 0.243901E+01_JPRB, 0.245582E+01_JPRB, 0.247204E+01_JPRB, 0.248767E+01_JPRB &
+  &, 0.250270E+01_JPRB, 0.251714E+01_JPRB, 0.253098E+01_JPRB &
+  &, 0.254422E+01_JPRB, 0.255683E+01_JPRB, 0.256878E+01_JPRB, 0.258023E+01_JPRB &
+  &, 0.259102E+01_JPRB, 0.260117E+01_JPRB, 0.261073E+01_JPRB &
+  &, 0.261966E+01_JPRB, 0.262797E+01_JPRB, 0.263566E+01_JPRB, 0.264273E+01_JPRB &
+  &, 0.264919E+01_JPRB, 0.265504E+01_JPRB, 0.266027E+01_JPRB &
+  &, 0.266489E+01_JPRB, 0.266890E+01_JPRB, 0.267230E+01_JPRB, 0.267511E+01_JPRB &
+  &, 0.267731E+01_JPRB, 0.267889E+01_JPRB, 0.267991E+01_JPRB &
+  &, 0.268033E+01_JPRB, 0.268016E+01_JPRB, 0.267942E+01_JPRB, 0.267809E+01_JPRB &
+  &, 0.267619E+01_JPRB, 0.267373E+01_JPRB, 0.267072E+01_JPRB &
+  &, 0.266714E+01_JPRB, 0.266304E+01_JPRB, 0.265838E+01_JPRB, 0.265313E+01_JPRB &
+  &, 0.264744E+01_JPRB, 0.264118E+01_JPRB, 0.263445E+01_JPRB &
+  &, 0.262716E+01_JPRB, 0.261939E+01_JPRB, 0.261111E+01_JPRB, 0.260237E+01_JPRB &
+  &, 0.259315E+01_JPRB, 0.258344E+01_JPRB, 0.257327E+01_JPRB &
+  &, 0.256270E+01_JPRB, 0.255163E+01_JPRB, 0.254012E+01_JPRB, 0.252821E+01_JPRB &
+  &, 0.251584E+01_JPRB, 0.250310E+01_JPRB, 0.248995E+01_JPRB &
+  &, 0.247641E+01_JPRB, 0.246246E+01_JPRB, 0.244812E+01_JPRB, 0.243347E+01_JPRB &
+  &, 0.241844E+01_JPRB, 0.240305E+01_JPRB, 0.238734E+01_JPRB &
+  &, 0.237127E+01_JPRB, 0.235489E+01_JPRB, 0.233825E+01_JPRB, 0.232124E+01_JPRB &
+  &, 0.230399E+01_JPRB, 0.228642E+01_JPRB, 0.226861E+01_JPRB &
+  &, 0.225052E+01_JPRB, 0.223215E+01_JPRB, 0.221355E+01_JPRB, 0.219477E+01_JPRB &
+  &, 0.217571E+01_JPRB, 0.215641E+01_JPRB, 0.213694E+01_JPRB &
+  &, 0.211728E+01_JPRB, 0.209744E+01_JPRB, 0.207741E+01_JPRB, 0.205719E+01_JPRB &
+  &, 0.203683E+01_JPRB, 0.201634E+01_JPRB, 0.199563E+01_JPRB &
+  &, 0.197484E+01_JPRB, 0.195395E+01_JPRB, 0.193290E+01_JPRB, 0.191180E+01_JPRB &
+  &, 0.189054E+01_JPRB, 0.186920E+01_JPRB, 0.184781E+01_JPRB/)
+XCW( 887, :) = (/ &
+  &  0.112238E+01_JPRB, 0.115332E+01_JPRB, 0.118438E+01_JPRB, 0.121552E+01_JPRB &
+  &, 0.124673E+01_JPRB, 0.127800E+01_JPRB, 0.130930E+01_JPRB &
+  &, 0.134062E+01_JPRB, 0.137194E+01_JPRB, 0.140324E+01_JPRB, 0.143451E+01_JPRB &
+  &, 0.146573E+01_JPRB, 0.149688E+01_JPRB, 0.152794E+01_JPRB &
+  &, 0.155890E+01_JPRB, 0.158974E+01_JPRB, 0.162043E+01_JPRB, 0.165097E+01_JPRB &
+  &, 0.168133E+01_JPRB, 0.171151E+01_JPRB, 0.174147E+01_JPRB &
+  &, 0.177121E+01_JPRB, 0.180071E+01_JPRB, 0.182994E+01_JPRB, 0.185891E+01_JPRB &
+  &, 0.188758E+01_JPRB, 0.191594E+01_JPRB, 0.194398E+01_JPRB &
+  &, 0.197168E+01_JPRB, 0.199903E+01_JPRB, 0.202601E+01_JPRB, 0.205261E+01_JPRB &
+  &, 0.207881E+01_JPRB, 0.210459E+01_JPRB, 0.212996E+01_JPRB &
+  &, 0.215489E+01_JPRB, 0.217936E+01_JPRB, 0.220338E+01_JPRB, 0.222692E+01_JPRB &
+  &, 0.224998E+01_JPRB, 0.227255E+01_JPRB, 0.229461E+01_JPRB &
+  &, 0.231615E+01_JPRB, 0.233717E+01_JPRB, 0.235764E+01_JPRB, 0.237759E+01_JPRB &
+  &, 0.239698E+01_JPRB, 0.241581E+01_JPRB, 0.243408E+01_JPRB &
+  &, 0.245177E+01_JPRB, 0.246889E+01_JPRB, 0.248542E+01_JPRB, 0.250137E+01_JPRB &
+  &, 0.251672E+01_JPRB, 0.253148E+01_JPRB, 0.254562E+01_JPRB &
+  &, 0.255917E+01_JPRB, 0.257211E+01_JPRB, 0.258444E+01_JPRB, 0.259615E+01_JPRB &
+  &, 0.260724E+01_JPRB, 0.261772E+01_JPRB, 0.262758E+01_JPRB &
+  &, 0.263682E+01_JPRB, 0.264544E+01_JPRB, 0.265346E+01_JPRB, 0.266084E+01_JPRB &
+  &, 0.266762E+01_JPRB, 0.267376E+01_JPRB, 0.267929E+01_JPRB &
+  &, 0.268423E+01_JPRB, 0.268854E+01_JPRB, 0.269223E+01_JPRB, 0.269535E+01_JPRB &
+  &, 0.269785E+01_JPRB, 0.269974E+01_JPRB, 0.270103E+01_JPRB &
+  &, 0.270173E+01_JPRB, 0.270186E+01_JPRB, 0.270141E+01_JPRB, 0.270038E+01_JPRB &
+  &, 0.269876E+01_JPRB, 0.269658E+01_JPRB, 0.269384E+01_JPRB &
+  &, 0.269053E+01_JPRB, 0.268668E+01_JPRB, 0.268226E+01_JPRB, 0.267733E+01_JPRB &
+  &, 0.267188E+01_JPRB, 0.266586E+01_JPRB, 0.265936E+01_JPRB &
+  &, 0.265233E+01_JPRB, 0.264482E+01_JPRB, 0.263677E+01_JPRB, 0.262828E+01_JPRB &
+  &, 0.261928E+01_JPRB, 0.260979E+01_JPRB, 0.259986E+01_JPRB &
+  &, 0.258945E+01_JPRB, 0.257859E+01_JPRB, 0.256732E+01_JPRB, 0.255560E+01_JPRB &
+  &, 0.254315E+01_JPRB, 0.253087E+01_JPRB, 0.251790E+01_JPRB &
+  &, 0.250453E+01_JPRB, 0.249075E+01_JPRB, 0.247662E+01_JPRB, 0.246213E+01_JPRB &
+  &, 0.244726E+01_JPRB, 0.243202E+01_JPRB, 0.241645E+01_JPRB &
+  &, 0.240053E+01_JPRB, 0.238428E+01_JPRB, 0.236777E+01_JPRB, 0.235088E+01_JPRB &
+  &, 0.233375E+01_JPRB, 0.231629E+01_JPRB, 0.229857E+01_JPRB &
+  &, 0.228059E+01_JPRB, 0.226235E+01_JPRB, 0.224384E+01_JPRB, 0.222508E+01_JPRB &
+  &, 0.220609E+01_JPRB, 0.218691E+01_JPRB, 0.216749E+01_JPRB &
+  &, 0.214788E+01_JPRB, 0.212808E+01_JPRB, 0.210808E+01_JPRB, 0.208795E+01_JPRB &
+  &, 0.206760E+01_JPRB, 0.204712E+01_JPRB, 0.202647E+01_JPRB &
+  &, 0.200568E+01_JPRB, 0.198477E+01_JPRB, 0.196377E+01_JPRB, 0.194263E+01_JPRB &
+  &, 0.192139E+01_JPRB, 0.189994E+01_JPRB, 0.187863E+01_JPRB/)
+XCW( 888, :) = (/ &
+  &  0.112294E+01_JPRB, 0.115404E+01_JPRB, 0.118525E+01_JPRB, 0.121656E+01_JPRB &
+  &, 0.124794E+01_JPRB, 0.127938E+01_JPRB, 0.131086E+01_JPRB &
+  &, 0.134237E+01_JPRB, 0.137388E+01_JPRB, 0.140538E+01_JPRB, 0.143685E+01_JPRB &
+  &, 0.146827E+01_JPRB, 0.149962E+01_JPRB, 0.153090E+01_JPRB &
+  &, 0.156207E+01_JPRB, 0.159313E+01_JPRB, 0.162405E+01_JPRB, 0.165481E+01_JPRB &
+  &, 0.168541E+01_JPRB, 0.171582E+01_JPRB, 0.174602E+01_JPRB &
+  &, 0.177601E+01_JPRB, 0.180576E+01_JPRB, 0.183525E+01_JPRB, 0.186447E+01_JPRB &
+  &, 0.189339E+01_JPRB, 0.192202E+01_JPRB, 0.195033E+01_JPRB &
+  &, 0.197830E+01_JPRB, 0.200592E+01_JPRB, 0.203318E+01_JPRB, 0.206005E+01_JPRB &
+  &, 0.208654E+01_JPRB, 0.211261E+01_JPRB, 0.213826E+01_JPRB &
+  &, 0.216348E+01_JPRB, 0.218825E+01_JPRB, 0.221257E+01_JPRB, 0.223641E+01_JPRB &
+  &, 0.225977E+01_JPRB, 0.228263E+01_JPRB, 0.230499E+01_JPRB &
+  &, 0.232684E+01_JPRB, 0.234816E+01_JPRB, 0.236896E+01_JPRB, 0.238921E+01_JPRB &
+  &, 0.240891E+01_JPRB, 0.242805E+01_JPRB, 0.244664E+01_JPRB &
+  &, 0.246465E+01_JPRB, 0.248209E+01_JPRB, 0.249894E+01_JPRB, 0.251520E+01_JPRB &
+  &, 0.253087E+01_JPRB, 0.254595E+01_JPRB, 0.256042E+01_JPRB &
+  &, 0.257428E+01_JPRB, 0.258754E+01_JPRB, 0.260018E+01_JPRB, 0.261221E+01_JPRB &
+  &, 0.262363E+01_JPRB, 0.263444E+01_JPRB, 0.264460E+01_JPRB &
+  &, 0.265417E+01_JPRB, 0.266305E+01_JPRB, 0.267143E+01_JPRB, 0.267915E+01_JPRB &
+  &, 0.268622E+01_JPRB, 0.269269E+01_JPRB, 0.269853E+01_JPRB &
+  &, 0.270376E+01_JPRB, 0.270839E+01_JPRB, 0.271239E+01_JPRB, 0.271579E+01_JPRB &
+  &, 0.271859E+01_JPRB, 0.272079E+01_JPRB, 0.272239E+01_JPRB &
+  &, 0.272340E+01_JPRB, 0.272382E+01_JPRB, 0.272364E+01_JPRB, 0.272290E+01_JPRB &
+  &, 0.272156E+01_JPRB, 0.271966E+01_JPRB, 0.271720E+01_JPRB &
+  &, 0.271417E+01_JPRB, 0.271060E+01_JPRB, 0.270646E+01_JPRB, 0.270180E+01_JPRB &
+  &, 0.269659E+01_JPRB, 0.269085E+01_JPRB, 0.268458E+01_JPRB &
+  &, 0.267782E+01_JPRB, 0.267055E+01_JPRB, 0.266275E+01_JPRB, 0.265449E+01_JPRB &
+  &, 0.264571E+01_JPRB, 0.263647E+01_JPRB, 0.262677E+01_JPRB &
+  &, 0.261657E+01_JPRB, 0.260595E+01_JPRB, 0.259485E+01_JPRB, 0.258333E+01_JPRB &
+  &, 0.257138E+01_JPRB, 0.255903E+01_JPRB, 0.254624E+01_JPRB &
+  &, 0.253306E+01_JPRB, 0.251950E+01_JPRB, 0.250550E+01_JPRB, 0.249117E+01_JPRB &
+  &, 0.247646E+01_JPRB, 0.246138E+01_JPRB, 0.244597E+01_JPRB &
+  &, 0.243019E+01_JPRB, 0.241412E+01_JPRB, 0.239770E+01_JPRB, 0.238099E+01_JPRB &
+  &, 0.236393E+01_JPRB, 0.234663E+01_JPRB, 0.232898E+01_JPRB &
+  &, 0.231115E+01_JPRB, 0.229296E+01_JPRB, 0.227454E+01_JPRB, 0.225591E+01_JPRB &
+  &, 0.223700E+01_JPRB, 0.221789E+01_JPRB, 0.219853E+01_JPRB &
+  &, 0.217903E+01_JPRB, 0.215928E+01_JPRB, 0.213932E+01_JPRB, 0.211916E+01_JPRB &
+  &, 0.209890E+01_JPRB, 0.207844E+01_JPRB, 0.205738E+01_JPRB &
+  &, 0.203707E+01_JPRB, 0.201615E+01_JPRB, 0.199513E+01_JPRB, 0.197378E+01_JPRB &
+  &, 0.195276E+01_JPRB, 0.193140E+01_JPRB, 0.190997E+01_JPRB/)
+XCW( 889, :) = (/ &
+  &  0.112351E+01_JPRB, 0.115477E+01_JPRB, 0.118614E+01_JPRB, 0.121761E+01_JPRB &
+  &, 0.124916E+01_JPRB, 0.128078E+01_JPRB, 0.131244E+01_JPRB &
+  &, 0.134413E+01_JPRB, 0.137583E+01_JPRB, 0.140753E+01_JPRB, 0.143920E+01_JPRB &
+  &, 0.147082E+01_JPRB, 0.150239E+01_JPRB, 0.153387E+01_JPRB &
+  &, 0.156526E+01_JPRB, 0.159654E+01_JPRB, 0.162769E+01_JPRB, 0.165869E+01_JPRB &
+  &, 0.168952E+01_JPRB, 0.172017E+01_JPRB, 0.175062E+01_JPRB &
+  &, 0.178085E+01_JPRB, 0.181085E+01_JPRB, 0.184059E+01_JPRB, 0.187007E+01_JPRB &
+  &, 0.189926E+01_JPRB, 0.192815E+01_JPRB, 0.195673E+01_JPRB &
+  &, 0.198498E+01_JPRB, 0.201287E+01_JPRB, 0.204041E+01_JPRB, 0.206757E+01_JPRB &
+  &, 0.209434E+01_JPRB, 0.212070E+01_JPRB, 0.214664E+01_JPRB &
+  &, 0.217215E+01_JPRB, 0.219722E+01_JPRB, 0.222183E+01_JPRB, 0.224597E+01_JPRB &
+  &, 0.226963E+01_JPRB, 0.229280E+01_JPRB, 0.231548E+01_JPRB &
+  &, 0.233763E+01_JPRB, 0.235928E+01_JPRB, 0.238038E+01_JPRB, 0.240095E+01_JPRB &
+  &, 0.242096E+01_JPRB, 0.244042E+01_JPRB, 0.245933E+01_JPRB &
+  &, 0.247766E+01_JPRB, 0.249542E+01_JPRB, 0.251259E+01_JPRB, 0.252918E+01_JPRB &
+  &, 0.254514E+01_JPRB, 0.256056E+01_JPRB, 0.257536E+01_JPRB &
+  &, 0.258955E+01_JPRB, 0.260313E+01_JPRB, 0.261609E+01_JPRB, 0.262845E+01_JPRB &
+  &, 0.264019E+01_JPRB, 0.265131E+01_JPRB, 0.266182E+01_JPRB &
+  &, 0.267170E+01_JPRB, 0.268096E+01_JPRB, 0.268961E+01_JPRB, 0.269763E+01_JPRB &
+  &, 0.270502E+01_JPRB, 0.271182E+01_JPRB, 0.271797E+01_JPRB &
+  &, 0.272352E+01_JPRB, 0.272846E+01_JPRB, 0.273279E+01_JPRB, 0.273650E+01_JPRB &
+  &, 0.273959E+01_JPRB, 0.274210E+01_JPRB, 0.274402E+01_JPRB &
+  &, 0.274532E+01_JPRB, 0.274602E+01_JPRB, 0.274616E+01_JPRB, 0.274570E+01_JPRB &
+  &, 0.274466E+01_JPRB, 0.274304E+01_JPRB, 0.274086E+01_JPRB &
+  &, 0.273812E+01_JPRB, 0.273483E+01_JPRB, 0.273097E+01_JPRB, 0.272657E+01_JPRB &
+  &, 0.272161E+01_JPRB, 0.271614E+01_JPRB, 0.271015E+01_JPRB &
+  &, 0.270363E+01_JPRB, 0.269659E+01_JPRB, 0.268907E+01_JPRB, 0.268104E+01_JPRB &
+  &, 0.267249E+01_JPRB, 0.266347E+01_JPRB, 0.265399E+01_JPRB &
+  &, 0.264405E+01_JPRB, 0.263364E+01_JPRB, 0.262275E+01_JPRB, 0.261148E+01_JPRB &
+  &, 0.259973E+01_JPRB, 0.258757E+01_JPRB, 0.257498E+01_JPRB &
+  &, 0.256199E+01_JPRB, 0.254857E+01_JPRB, 0.253479E+01_JPRB, 0.252064E+01_JPRB &
+  &, 0.250609E+01_JPRB, 0.249118E+01_JPRB, 0.247592E+01_JPRB &
+  &, 0.246030E+01_JPRB, 0.244438E+01_JPRB, 0.242810E+01_JPRB, 0.241148E+01_JPRB &
+  &, 0.239459E+01_JPRB, 0.237737E+01_JPRB, 0.235988E+01_JPRB &
+  &, 0.234211E+01_JPRB, 0.232407E+01_JPRB, 0.230575E+01_JPRB, 0.228721E+01_JPRB &
+  &, 0.226839E+01_JPRB, 0.224935E+01_JPRB, 0.223012E+01_JPRB &
+  &, 0.221062E+01_JPRB, 0.219093E+01_JPRB, 0.217107E+01_JPRB, 0.215095E+01_JPRB &
+  &, 0.213072E+01_JPRB, 0.211028E+01_JPRB, 0.208972E+01_JPRB &
+  &, 0.206894E+01_JPRB, 0.204808E+01_JPRB, 0.202705E+01_JPRB, 0.200594E+01_JPRB &
+  &, 0.198471E+01_JPRB, 0.196331E+01_JPRB, 0.194184E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART127',1,ZHOOK_HANDLE)
+END SUBROUTINE PART127
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART128
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART128',0,ZHOOK_HANDLE)
+
+XCW( 890, :) = (/ &
+  &  0.112408E+01_JPRB, 0.115550E+01_JPRB, 0.118703E+01_JPRB, 0.121867E+01_JPRB &
+  &, 0.125039E+01_JPRB, 0.128219E+01_JPRB, 0.131403E+01_JPRB &
+  &, 0.134591E+01_JPRB, 0.137780E+01_JPRB, 0.140969E+01_JPRB, 0.144156E+01_JPRB &
+  &, 0.147339E+01_JPRB, 0.150517E+01_JPRB, 0.153687E+01_JPRB &
+  &, 0.156848E+01_JPRB, 0.159999E+01_JPRB, 0.163136E+01_JPRB, 0.166259E+01_JPRB &
+  &, 0.169366E+01_JPRB, 0.172456E+01_JPRB, 0.175525E+01_JPRB &
+  &, 0.178573E+01_JPRB, 0.181598E+01_JPRB, 0.184598E+01_JPRB, 0.187572E+01_JPRB &
+  &, 0.190518E+01_JPRB, 0.193434E+01_JPRB, 0.196319E+01_JPRB &
+  &, 0.199171E+01_JPRB, 0.201989E+01_JPRB, 0.204770E+01_JPRB, 0.207515E+01_JPRB &
+  &, 0.210220E+01_JPRB, 0.212886E+01_JPRB, 0.215510E+01_JPRB &
+  &, 0.218090E+01_JPRB, 0.220627E+01_JPRB, 0.223118E+01_JPRB, 0.225563E+01_JPRB &
+  &, 0.227960E+01_JPRB, 0.230308E+01_JPRB, 0.232606E+01_JPRB &
+  &, 0.234853E+01_JPRB, 0.237048E+01_JPRB, 0.239191E+01_JPRB, 0.241279E+01_JPRB &
+  &, 0.243313E+01_JPRB, 0.245292E+01_JPRB, 0.247214E+01_JPRB &
+  &, 0.249080E+01_JPRB, 0.250888E+01_JPRB, 0.252637E+01_JPRB, 0.254328E+01_JPRB &
+  &, 0.255960E+01_JPRB, 0.257533E+01_JPRB, 0.259045E+01_JPRB &
+  &, 0.260496E+01_JPRB, 0.261888E+01_JPRB, 0.263217E+01_JPRB, 0.264486E+01_JPRB &
+  &, 0.265693E+01_JPRB, 0.266837E+01_JPRB, 0.267920E+01_JPRB &
+  &, 0.268941E+01_JPRB, 0.269899E+01_JPRB, 0.270798E+01_JPRB, 0.271632E+01_JPRB &
+  &, 0.272404E+01_JPRB, 0.273114E+01_JPRB, 0.273762E+01_JPRB &
+  &, 0.274349E+01_JPRB, 0.274874E+01_JPRB, 0.275339E+01_JPRB, 0.275741E+01_JPRB &
+  &, 0.276085E+01_JPRB, 0.276365E+01_JPRB, 0.276586E+01_JPRB &
+  &, 0.276748E+01_JPRB, 0.276850E+01_JPRB, 0.276890E+01_JPRB, 0.276876E+01_JPRB &
+  &, 0.276801E+01_JPRB, 0.276668E+01_JPRB, 0.276480E+01_JPRB &
+  &, 0.276235E+01_JPRB, 0.275932E+01_JPRB, 0.275575E+01_JPRB, 0.275163E+01_JPRB &
+  &, 0.274695E+01_JPRB, 0.274174E+01_JPRB, 0.273603E+01_JPRB &
+  &, 0.272975E+01_JPRB, 0.272299E+01_JPRB, 0.271571E+01_JPRB, 0.270791E+01_JPRB &
+  &, 0.269963E+01_JPRB, 0.269085E+01_JPRB, 0.268160E+01_JPRB &
+  &, 0.267188E+01_JPRB, 0.266169E+01_JPRB, 0.265106E+01_JPRB, 0.263996E+01_JPRB &
+  &, 0.262842E+01_JPRB, 0.261646E+01_JPRB, 0.260407E+01_JPRB &
+  &, 0.259131E+01_JPRB, 0.257809E+01_JPRB, 0.256450E+01_JPRB, 0.255048E+01_JPRB &
+  &, 0.253581E+01_JPRB, 0.252141E+01_JPRB, 0.250627E+01_JPRB &
+  &, 0.249085E+01_JPRB, 0.247504E+01_JPRB, 0.245891E+01_JPRB, 0.244248E+01_JPRB &
+  &, 0.242573E+01_JPRB, 0.240864E+01_JPRB, 0.239127E+01_JPRB &
+  &, 0.237362E+01_JPRB, 0.235564E+01_JPRB, 0.233747E+01_JPRB, 0.231898E+01_JPRB &
+  &, 0.230030E+01_JPRB, 0.228134E+01_JPRB, 0.226214E+01_JPRB &
+  &, 0.224271E+01_JPRB, 0.222313E+01_JPRB, 0.220327E+01_JPRB, 0.218326E+01_JPRB &
+  &, 0.216307E+01_JPRB, 0.214266E+01_JPRB, 0.212212E+01_JPRB &
+  &, 0.210141E+01_JPRB, 0.208056E+01_JPRB, 0.205954E+01_JPRB, 0.203842E+01_JPRB &
+  &, 0.201716E+01_JPRB, 0.199581E+01_JPRB, 0.197437E+01_JPRB/)
+XCW( 891, :) = (/ &
+  &  0.112466E+01_JPRB, 0.115623E+01_JPRB, 0.118793E+01_JPRB, 0.121973E+01_JPRB &
+  &, 0.125163E+01_JPRB, 0.128360E+01_JPRB, 0.131563E+01_JPRB &
+  &, 0.134770E+01_JPRB, 0.137978E+01_JPRB, 0.141187E+01_JPRB, 0.144395E+01_JPRB &
+  &, 0.147598E+01_JPRB, 0.150797E+01_JPRB, 0.153989E+01_JPRB &
+  &, 0.157173E+01_JPRB, 0.160346E+01_JPRB, 0.163506E+01_JPRB, 0.166653E+01_JPRB &
+  &, 0.169784E+01_JPRB, 0.172897E+01_JPRB, 0.175992E+01_JPRB &
+  &, 0.179065E+01_JPRB, 0.182116E+01_JPRB, 0.185142E+01_JPRB, 0.188142E+01_JPRB &
+  &, 0.191115E+01_JPRB, 0.194058E+01_JPRB, 0.196971E+01_JPRB &
+  &, 0.199850E+01_JPRB, 0.202696E+01_JPRB, 0.205506E+01_JPRB, 0.208279E+01_JPRB &
+  &, 0.211014E+01_JPRB, 0.213709E+01_JPRB, 0.216362E+01_JPRB &
+  &, 0.218973E+01_JPRB, 0.221540E+01_JPRB, 0.224062E+01_JPRB, 0.226538E+01_JPRB &
+  &, 0.228966E+01_JPRB, 0.231345E+01_JPRB, 0.233674E+01_JPRB &
+  &, 0.235953E+01_JPRB, 0.238180E+01_JPRB, 0.240354E+01_JPRB, 0.242475E+01_JPRB &
+  &, 0.244541E+01_JPRB, 0.246553E+01_JPRB, 0.248507E+01_JPRB &
+  &, 0.250406E+01_JPRB, 0.252246E+01_JPRB, 0.254029E+01_JPRB, 0.255753E+01_JPRB &
+  &, 0.257418E+01_JPRB, 0.259024E+01_JPRB, 0.260569E+01_JPRB &
+  &, 0.262054E+01_JPRB, 0.263478E+01_JPRB, 0.264841E+01_JPRB, 0.266142E+01_JPRB &
+  &, 0.267384E+01_JPRB, 0.268561E+01_JPRB, 0.269677E+01_JPRB &
+  &, 0.270732E+01_JPRB, 0.271723E+01_JPRB, 0.272654E+01_JPRB, 0.273521E+01_JPRB &
+  &, 0.274326E+01_JPRB, 0.275069E+01_JPRB, 0.275751E+01_JPRB &
+  &, 0.276369E+01_JPRB, 0.276926E+01_JPRB, 0.277423E+01_JPRB, 0.277857E+01_JPRB &
+  &, 0.278228E+01_JPRB, 0.278545E+01_JPRB, 0.278796E+01_JPRB &
+  &, 0.278988E+01_JPRB, 0.279122E+01_JPRB, 0.279195E+01_JPRB, 0.279208E+01_JPRB &
+  &, 0.279165E+01_JPRB, 0.279063E+01_JPRB, 0.278901E+01_JPRB &
+  &, 0.278685E+01_JPRB, 0.278392E+01_JPRB, 0.278084E+01_JPRB, 0.277698E+01_JPRB &
+  &, 0.277260E+01_JPRB, 0.276767E+01_JPRB, 0.276221E+01_JPRB &
+  &, 0.275622E+01_JPRB, 0.274971E+01_JPRB, 0.274268E+01_JPRB, 0.273516E+01_JPRB &
+  &, 0.272712E+01_JPRB, 0.271858E+01_JPRB, 0.270959E+01_JPRB &
+  &, 0.270011E+01_JPRB, 0.269015E+01_JPRB, 0.267973E+01_JPRB, 0.266886E+01_JPRB &
+  &, 0.265753E+01_JPRB, 0.264579E+01_JPRB, 0.263360E+01_JPRB &
+  &, 0.262100E+01_JPRB, 0.260801E+01_JPRB, 0.259462E+01_JPRB, 0.258079E+01_JPRB &
+  &, 0.256660E+01_JPRB, 0.255204E+01_JPRB, 0.253711E+01_JPRB &
+  &, 0.252181E+01_JPRB, 0.250621E+01_JPRB, 0.249023E+01_JPRB, 0.247390E+01_JPRB &
+  &, 0.245729E+01_JPRB, 0.244034E+01_JPRB, 0.242311E+01_JPRB &
+  &, 0.240558E+01_JPRB, 0.238777E+01_JPRB, 0.236966E+01_JPRB, 0.235128E+01_JPRB &
+  &, 0.233269E+01_JPRB, 0.231382E+01_JPRB, 0.229470E+01_JPRB &
+  &, 0.227535E+01_JPRB, 0.225584E+01_JPRB, 0.223604E+01_JPRB, 0.221608E+01_JPRB &
+  &, 0.219594E+01_JPRB, 0.217563E+01_JPRB, 0.215416E+01_JPRB &
+  &, 0.213443E+01_JPRB, 0.211360E+01_JPRB, 0.209258E+01_JPRB, 0.207152E+01_JPRB &
+  &, 0.205026E+01_JPRB, 0.202889E+01_JPRB, 0.200742E+01_JPRB/)
+XCW( 892, :) = (/ &
+  &  0.112524E+01_JPRB, 0.115697E+01_JPRB, 0.118883E+01_JPRB, 0.122081E+01_JPRB &
+  &, 0.125288E+01_JPRB, 0.128503E+01_JPRB, 0.131724E+01_JPRB &
+  &, 0.134950E+01_JPRB, 0.138178E+01_JPRB, 0.141407E+01_JPRB, 0.144635E+01_JPRB &
+  &, 0.147860E+01_JPRB, 0.151080E+01_JPRB, 0.154294E+01_JPRB &
+  &, 0.157500E+01_JPRB, 0.160696E+01_JPRB, 0.163880E+01_JPRB, 0.167050E+01_JPRB &
+  &, 0.170205E+01_JPRB, 0.173343E+01_JPRB, 0.176462E+01_JPRB &
+  &, 0.179561E+01_JPRB, 0.182638E+01_JPRB, 0.185690E+01_JPRB, 0.188717E+01_JPRB &
+  &, 0.191717E+01_JPRB, 0.194687E+01_JPRB, 0.197627E+01_JPRB &
+  &, 0.200535E+01_JPRB, 0.203410E+01_JPRB, 0.206249E+01_JPRB, 0.209051E+01_JPRB &
+  &, 0.211815E+01_JPRB, 0.214540E+01_JPRB, 0.217223E+01_JPRB &
+  &, 0.219864E+01_JPRB, 0.222462E+01_JPRB, 0.225014E+01_JPRB, 0.227521E+01_JPRB &
+  &, 0.229980E+01_JPRB, 0.232391E+01_JPRB, 0.234752E+01_JPRB &
+  &, 0.237064E+01_JPRB, 0.239322E+01_JPRB, 0.241529E+01_JPRB, 0.243683E+01_JPRB &
+  &, 0.245781E+01_JPRB, 0.247825E+01_JPRB, 0.249813E+01_JPRB &
+  &, 0.251744E+01_JPRB, 0.253618E+01_JPRB, 0.255435E+01_JPRB, 0.257193E+01_JPRB &
+  &, 0.258890E+01_JPRB, 0.260530E+01_JPRB, 0.262109E+01_JPRB &
+  &, 0.263629E+01_JPRB, 0.265086E+01_JPRB, 0.266483E+01_JPRB, 0.267819E+01_JPRB &
+  &, 0.269092E+01_JPRB, 0.270304E+01_JPRB, 0.271454E+01_JPRB &
+  &, 0.272542E+01_JPRB, 0.273567E+01_JPRB, 0.274530E+01_JPRB, 0.275431E+01_JPRB &
+  &, 0.276270E+01_JPRB, 0.277047E+01_JPRB, 0.277760E+01_JPRB &
+  &, 0.278413E+01_JPRB, 0.279002E+01_JPRB, 0.279531E+01_JPRB, 0.279998E+01_JPRB &
+  &, 0.280403E+01_JPRB, 0.280749E+01_JPRB, 0.281032E+01_JPRB &
+  &, 0.281257E+01_JPRB, 0.281422E+01_JPRB, 0.281525E+01_JPRB, 0.281569E+01_JPRB &
+  &, 0.281556E+01_JPRB, 0.281484E+01_JPRB, 0.281355E+01_JPRB &
+  &, 0.281167E+01_JPRB, 0.280923E+01_JPRB, 0.280625E+01_JPRB, 0.280269E+01_JPRB &
+  &, 0.279857E+01_JPRB, 0.279394E+01_JPRB, 0.278874E+01_JPRB &
+  &, 0.278301E+01_JPRB, 0.277676E+01_JPRB, 0.277001E+01_JPRB, 0.276274E+01_JPRB &
+  &, 0.275495E+01_JPRB, 0.274669E+01_JPRB, 0.273794E+01_JPRB &
+  &, 0.272869E+01_JPRB, 0.271896E+01_JPRB, 0.270878E+01_JPRB, 0.269813E+01_JPRB &
+  &, 0.268707E+01_JPRB, 0.267554E+01_JPRB, 0.266357E+01_JPRB &
+  &, 0.265118E+01_JPRB, 0.263835E+01_JPRB, 0.262515E+01_JPRB, 0.261152E+01_JPRB &
+  &, 0.259752E+01_JPRB, 0.258314E+01_JPRB, 0.256839E+01_JPRB &
+  &, 0.255327E+01_JPRB, 0.253779E+01_JPRB, 0.252197E+01_JPRB, 0.250584E+01_JPRB &
+  &, 0.248934E+01_JPRB, 0.247253E+01_JPRB, 0.245543E+01_JPRB &
+  &, 0.243803E+01_JPRB, 0.241873E+01_JPRB, 0.240236E+01_JPRB, 0.238409E+01_JPRB &
+  &, 0.236555E+01_JPRB, 0.234679E+01_JPRB, 0.232781E+01_JPRB &
+  &, 0.230854E+01_JPRB, 0.228905E+01_JPRB, 0.226938E+01_JPRB, 0.224948E+01_JPRB &
+  &, 0.222939E+01_JPRB, 0.220913E+01_JPRB, 0.218860E+01_JPRB &
+  &, 0.216800E+01_JPRB, 0.214719E+01_JPRB, 0.212625E+01_JPRB, 0.210513E+01_JPRB &
+  &, 0.208394E+01_JPRB, 0.206255E+01_JPRB, 0.204106E+01_JPRB/)
+XCW( 893, :) = (/ &
+  &  0.112583E+01_JPRB, 0.115772E+01_JPRB, 0.118974E+01_JPRB, 0.122189E+01_JPRB &
+  &, 0.125414E+01_JPRB, 0.128647E+01_JPRB, 0.131887E+01_JPRB &
+  &, 0.135132E+01_JPRB, 0.138379E+01_JPRB, 0.141628E+01_JPRB, 0.144877E+01_JPRB &
+  &, 0.148123E+01_JPRB, 0.151365E+01_JPRB, 0.154601E+01_JPRB &
+  &, 0.157829E+01_JPRB, 0.161048E+01_JPRB, 0.164256E+01_JPRB, 0.167450E+01_JPRB &
+  &, 0.170630E+01_JPRB, 0.173793E+01_JPRB, 0.176937E+01_JPRB &
+  &, 0.180062E+01_JPRB, 0.183164E+01_JPRB, 0.186243E+01_JPRB, 0.189297E+01_JPRB &
+  &, 0.192324E+01_JPRB, 0.195322E+01_JPRB, 0.198290E+01_JPRB &
+  &, 0.201227E+01_JPRB, 0.204130E+01_JPRB, 0.206998E+01_JPRB, 0.209830E+01_JPRB &
+  &, 0.212624E+01_JPRB, 0.215378E+01_JPRB, 0.218092E+01_JPRB &
+  &, 0.220764E+01_JPRB, 0.223392E+01_JPRB, 0.225976E+01_JPRB, 0.228514E+01_JPRB &
+  &, 0.231005E+01_JPRB, 0.233448E+01_JPRB, 0.235841E+01_JPRB &
+  &, 0.238184E+01_JPRB, 0.240476E+01_JPRB, 0.242716E+01_JPRB, 0.244901E+01_JPRB &
+  &, 0.247034E+01_JPRB, 0.249110E+01_JPRB, 0.251133E+01_JPRB &
+  &, 0.253095E+01_JPRB, 0.255005E+01_JPRB, 0.256855E+01_JPRB, 0.258647E+01_JPRB &
+  &, 0.260379E+01_JPRB, 0.262052E+01_JPRB, 0.263663E+01_JPRB &
+  &, 0.265219E+01_JPRB, 0.266710E+01_JPRB, 0.268141E+01_JPRB, 0.269511E+01_JPRB &
+  &, 0.270818E+01_JPRB, 0.272064E+01_JPRB, 0.273248E+01_JPRB &
+  &, 0.274371E+01_JPRB, 0.275431E+01_JPRB, 0.276413E+01_JPRB, 0.277362E+01_JPRB &
+  &, 0.278235E+01_JPRB, 0.279044E+01_JPRB, 0.279792E+01_JPRB &
+  &, 0.280477E+01_JPRB, 0.281101E+01_JPRB, 0.281663E+01_JPRB, 0.282163E+01_JPRB &
+  &, 0.282602E+01_JPRB, 0.282978E+01_JPRB, 0.283295E+01_JPRB &
+  &, 0.283550E+01_JPRB, 0.283746E+01_JPRB, 0.283883E+01_JPRB, 0.283960E+01_JPRB &
+  &, 0.283976E+01_JPRB, 0.283937E+01_JPRB, 0.283836E+01_JPRB &
+  &, 0.283678E+01_JPRB, 0.283465E+01_JPRB, 0.283195E+01_JPRB, 0.282869E+01_JPRB &
+  &, 0.282488E+01_JPRB, 0.282051E+01_JPRB, 0.281558E+01_JPRB &
+  &, 0.281015E+01_JPRB, 0.280419E+01_JPRB, 0.279770E+01_JPRB, 0.279069E+01_JPRB &
+  &, 0.278319E+01_JPRB, 0.277514E+01_JPRB, 0.276664E+01_JPRB &
+  &, 0.275752E+01_JPRB, 0.274818E+01_JPRB, 0.273824E+01_JPRB, 0.272782E+01_JPRB &
+  &, 0.271637E+01_JPRB, 0.270568E+01_JPRB, 0.269393E+01_JPRB &
+  &, 0.268175E+01_JPRB, 0.266914E+01_JPRB, 0.265614E+01_JPRB, 0.264271E+01_JPRB &
+  &, 0.262891E+01_JPRB, 0.261472E+01_JPRB, 0.260012E+01_JPRB &
+  &, 0.258517E+01_JPRB, 0.256986E+01_JPRB, 0.255421E+01_JPRB, 0.253816E+01_JPRB &
+  &, 0.252191E+01_JPRB, 0.250525E+01_JPRB, 0.248825E+01_JPRB &
+  &, 0.247099E+01_JPRB, 0.245344E+01_JPRB, 0.243558E+01_JPRB, 0.241742E+01_JPRB &
+  &, 0.239900E+01_JPRB, 0.238034E+01_JPRB, 0.236140E+01_JPRB &
+  &, 0.234228E+01_JPRB, 0.232288E+01_JPRB, 0.230328E+01_JPRB, 0.228340E+01_JPRB &
+  &, 0.226337E+01_JPRB, 0.224316E+01_JPRB, 0.222274E+01_JPRB &
+  &, 0.220212E+01_JPRB, 0.218140E+01_JPRB, 0.216048E+01_JPRB, 0.213938E+01_JPRB &
+  &, 0.211819E+01_JPRB, 0.209680E+01_JPRB, 0.207536E+01_JPRB/)
+XCW( 894, :) = (/ &
+  &  0.112642E+01_JPRB, 0.115846E+01_JPRB, 0.119066E+01_JPRB, 0.122298E+01_JPRB &
+  &, 0.125540E+01_JPRB, 0.128792E+01_JPRB, 0.132051E+01_JPRB &
+  &, 0.135315E+01_JPRB, 0.138582E+01_JPRB, 0.141852E+01_JPRB, 0.145121E+01_JPRB &
+  &, 0.148388E+01_JPRB, 0.151652E+01_JPRB, 0.154911E+01_JPRB &
+  &, 0.158162E+01_JPRB, 0.161404E+01_JPRB, 0.164635E+01_JPRB, 0.167854E+01_JPRB &
+  &, 0.171058E+01_JPRB, 0.174246E+01_JPRB, 0.177416E+01_JPRB &
+  &, 0.180566E+01_JPRB, 0.183695E+01_JPRB, 0.186801E+01_JPRB, 0.189882E+01_JPRB &
+  &, 0.192936E+01_JPRB, 0.195963E+01_JPRB, 0.198959E+01_JPRB &
+  &, 0.201924E+01_JPRB, 0.204856E+01_JPRB, 0.207754E+01_JPRB, 0.210615E+01_JPRB &
+  &, 0.213439E+01_JPRB, 0.216224E+01_JPRB, 0.218969E+01_JPRB &
+  &, 0.221671E+01_JPRB, 0.224331E+01_JPRB, 0.226947E+01_JPRB, 0.229517E+01_JPRB &
+  &, 0.232039E+01_JPRB, 0.234515E+01_JPRB, 0.236941E+01_JPRB &
+  &, 0.239316E+01_JPRB, 0.241641E+01_JPRB, 0.243913E+01_JPRB, 0.246133E+01_JPRB &
+  &, 0.248298E+01_JPRB, 0.250410E+01_JPRB, 0.252455E+01_JPRB &
+  &, 0.254463E+01_JPRB, 0.256406E+01_JPRB, 0.258290E+01_JPRB, 0.260115E+01_JPRB &
+  &, 0.261882E+01_JPRB, 0.263589E+01_JPRB, 0.265238E+01_JPRB &
+  &, 0.266826E+01_JPRB, 0.268352E+01_JPRB, 0.269817E+01_JPRB, 0.271221E+01_JPRB &
+  &, 0.272565E+01_JPRB, 0.273844E+01_JPRB, 0.275062E+01_JPRB &
+  &, 0.276220E+01_JPRB, 0.277313E+01_JPRB, 0.278345E+01_JPRB, 0.279315E+01_JPRB &
+  &, 0.280222E+01_JPRB, 0.281066E+01_JPRB, 0.281847E+01_JPRB &
+  &, 0.282567E+01_JPRB, 0.283224E+01_JPRB, 0.283820E+01_JPRB, 0.284353E+01_JPRB &
+  &, 0.284823E+01_JPRB, 0.285235E+01_JPRB, 0.285583E+01_JPRB &
+  &, 0.285873E+01_JPRB, 0.286100E+01_JPRB, 0.286269E+01_JPRB, 0.286377E+01_JPRB &
+  &, 0.286427E+01_JPRB, 0.286417E+01_JPRB, 0.286347E+01_JPRB &
+  &, 0.286224E+01_JPRB, 0.286039E+01_JPRB, 0.285799E+01_JPRB, 0.285502E+01_JPRB &
+  &, 0.285151E+01_JPRB, 0.284742E+01_JPRB, 0.284280E+01_JPRB &
+  &, 0.283766E+01_JPRB, 0.283198E+01_JPRB, 0.282575E+01_JPRB, 0.281900E+01_JPRB &
+  &, 0.281176E+01_JPRB, 0.280400E+01_JPRB, 0.279576E+01_JPRB &
+  &, 0.278700E+01_JPRB, 0.277780E+01_JPRB, 0.276810E+01_JPRB, 0.275792E+01_JPRB &
+  &, 0.274728E+01_JPRB, 0.273620E+01_JPRB, 0.272468E+01_JPRB &
+  &, 0.271273E+01_JPRB, 0.270037E+01_JPRB, 0.268755E+01_JPRB, 0.267433E+01_JPRB &
+  &, 0.266073E+01_JPRB, 0.264673E+01_JPRB, 0.263233E+01_JPRB &
+  &, 0.261757E+01_JPRB, 0.260244E+01_JPRB, 0.258697E+01_JPRB, 0.257113E+01_JPRB &
+  &, 0.255495E+01_JPRB, 0.253845E+01_JPRB, 0.252161E+01_JPRB &
+  &, 0.250449E+01_JPRB, 0.248703E+01_JPRB, 0.246930E+01_JPRB, 0.245127E+01_JPRB &
+  &, 0.243297E+01_JPRB, 0.241442E+01_JPRB, 0.239560E+01_JPRB &
+  &, 0.237652E+01_JPRB, 0.235721E+01_JPRB, 0.233770E+01_JPRB, 0.231795E+01_JPRB &
+  &, 0.229799E+01_JPRB, 0.227778E+01_JPRB, 0.225741E+01_JPRB &
+  &, 0.223690E+01_JPRB, 0.221616E+01_JPRB, 0.219527E+01_JPRB, 0.217425E+01_JPRB &
+  &, 0.215301E+01_JPRB, 0.213169E+01_JPRB, 0.211026E+01_JPRB/)
+XCW( 895, :) = (/ &
+  &  0.112701E+01_JPRB, 0.115922E+01_JPRB, 0.119158E+01_JPRB, 0.122408E+01_JPRB &
+  &, 0.125668E+01_JPRB, 0.128938E+01_JPRB, 0.132216E+01_JPRB &
+  &, 0.135499E+01_JPRB, 0.138787E+01_JPRB, 0.142077E+01_JPRB, 0.145367E+01_JPRB &
+  &, 0.148656E+01_JPRB, 0.151942E+01_JPRB, 0.155223E+01_JPRB &
+  &, 0.158497E+01_JPRB, 0.161762E+01_JPRB, 0.165018E+01_JPRB, 0.168261E+01_JPRB &
+  &, 0.171490E+01_JPRB, 0.174703E+01_JPRB, 0.177899E+01_JPRB &
+  &, 0.181075E+01_JPRB, 0.184231E+01_JPRB, 0.187364E+01_JPRB, 0.190472E+01_JPRB &
+  &, 0.193554E+01_JPRB, 0.196609E+01_JPRB, 0.199634E+01_JPRB &
+  &, 0.202628E+01_JPRB, 0.205590E+01_JPRB, 0.208517E+01_JPRB, 0.211408E+01_JPRB &
+  &, 0.214262E+01_JPRB, 0.217078E+01_JPRB, 0.219854E+01_JPRB &
+  &, 0.222587E+01_JPRB, 0.225279E+01_JPRB, 0.227926E+01_JPRB, 0.230528E+01_JPRB &
+  &, 0.233083E+01_JPRB, 0.235592E+01_JPRB, 0.238050E+01_JPRB &
+  &, 0.240459E+01_JPRB, 0.242817E+01_JPRB, 0.245123E+01_JPRB, 0.247377E+01_JPRB &
+  &, 0.249577E+01_JPRB, 0.251721E+01_JPRB, 0.253811E+01_JPRB &
+  &, 0.255844E+01_JPRB, 0.257820E+01_JPRB, 0.259738E+01_JPRB, 0.261600E+01_JPRB &
+  &, 0.263402E+01_JPRB, 0.265144E+01_JPRB, 0.266826E+01_JPRB &
+  &, 0.268437E+01_JPRB, 0.270010E+01_JPRB, 0.271511E+01_JPRB, 0.272950E+01_JPRB &
+  &, 0.274328E+01_JPRB, 0.275644E+01_JPRB, 0.276898E+01_JPRB &
+  &, 0.278089E+01_JPRB, 0.279218E+01_JPRB, 0.280284E+01_JPRB, 0.281289E+01_JPRB &
+  &, 0.282231E+01_JPRB, 0.283110E+01_JPRB, 0.283924E+01_JPRB &
+  &, 0.284680E+01_JPRB, 0.285371E+01_JPRB, 0.286000E+01_JPRB, 0.286568E+01_JPRB &
+  &, 0.287074E+01_JPRB, 0.287518E+01_JPRB, 0.287901E+01_JPRB &
+  &, 0.288222E+01_JPRB, 0.288482E+01_JPRB, 0.288685E+01_JPRB, 0.288825E+01_JPRB &
+  &, 0.288907E+01_JPRB, 0.288929E+01_JPRB, 0.288891E+01_JPRB &
+  &, 0.288797E+01_JPRB, 0.288646E+01_JPRB, 0.288436E+01_JPRB, 0.288170E+01_JPRB &
+  &, 0.287847E+01_JPRB, 0.287470E+01_JPRB, 0.287039E+01_JPRB &
+  &, 0.286550E+01_JPRB, 0.286008E+01_JPRB, 0.285416E+01_JPRB, 0.284772E+01_JPRB &
+  &, 0.284074E+01_JPRB, 0.283325E+01_JPRB, 0.282526E+01_JPRB &
+  &, 0.281677E+01_JPRB, 0.280782E+01_JPRB, 0.279837E+01_JPRB, 0.278843E+01_JPRB &
+  &, 0.277803E+01_JPRB, 0.276720E+01_JPRB, 0.275591E+01_JPRB &
+  &, 0.274419E+01_JPRB, 0.273201E+01_JPRB, 0.271945E+01_JPRB, 0.270645E+01_JPRB &
+  &, 0.269302E+01_JPRB, 0.267888E+01_JPRB, 0.266502E+01_JPRB &
+  &, 0.265046E+01_JPRB, 0.263548E+01_JPRB, 0.262019E+01_JPRB, 0.260453E+01_JPRB &
+  &, 0.258852E+01_JPRB, 0.257214E+01_JPRB, 0.255545E+01_JPRB &
+  &, 0.253849E+01_JPRB, 0.252118E+01_JPRB, 0.250359E+01_JPRB, 0.248570E+01_JPRB &
+  &, 0.246748E+01_JPRB, 0.244905E+01_JPRB, 0.243034E+01_JPRB &
+  &, 0.241136E+01_JPRB, 0.239215E+01_JPRB, 0.237273E+01_JPRB, 0.235301E+01_JPRB &
+  &, 0.233313E+01_JPRB, 0.231305E+01_JPRB, 0.229275E+01_JPRB &
+  &, 0.227223E+01_JPRB, 0.225160E+01_JPRB, 0.223075E+01_JPRB, 0.220970E+01_JPRB &
+  &, 0.218854E+01_JPRB, 0.216724E+01_JPRB, 0.214574E+01_JPRB/)
+XCW( 896, :) = (/ &
+  &  0.112761E+01_JPRB, 0.115998E+01_JPRB, 0.119251E+01_JPRB, 0.122518E+01_JPRB &
+  &, 0.125797E+01_JPRB, 0.129085E+01_JPRB, 0.132382E+01_JPRB &
+  &, 0.135685E+01_JPRB, 0.138993E+01_JPRB, 0.142303E+01_JPRB, 0.145615E+01_JPRB &
+  &, 0.148926E+01_JPRB, 0.152234E+01_JPRB, 0.155537E+01_JPRB &
+  &, 0.158835E+01_JPRB, 0.162123E+01_JPRB, 0.165403E+01_JPRB, 0.168671E+01_JPRB &
+  &, 0.171925E+01_JPRB, 0.175164E+01_JPRB, 0.178386E+01_JPRB &
+  &, 0.181589E+01_JPRB, 0.184771E+01_JPRB, 0.187931E+01_JPRB, 0.191068E+01_JPRB &
+  &, 0.194178E+01_JPRB, 0.197261E+01_JPRB, 0.200315E+01_JPRB &
+  &, 0.203338E+01_JPRB, 0.206329E+01_JPRB, 0.209287E+01_JPRB, 0.212208E+01_JPRB &
+  &, 0.215093E+01_JPRB, 0.217940E+01_JPRB, 0.220747E+01_JPRB &
+  &, 0.223513E+01_JPRB, 0.226236E+01_JPRB, 0.228916E+01_JPRB, 0.231550E+01_JPRB &
+  &, 0.234138E+01_JPRB, 0.236679E+01_JPRB, 0.239172E+01_JPRB &
+  &, 0.241614E+01_JPRB, 0.244006E+01_JPRB, 0.246346E+01_JPRB, 0.248633E+01_JPRB &
+  &, 0.250867E+01_JPRB, 0.253047E+01_JPRB, 0.255171E+01_JPRB &
+  &, 0.257238E+01_JPRB, 0.259250E+01_JPRB, 0.261204E+01_JPRB, 0.263099E+01_JPRB &
+  &, 0.264937E+01_JPRB, 0.266714E+01_JPRB, 0.268430E+01_JPRB &
+  &, 0.270091E+01_JPRB, 0.271688E+01_JPRB, 0.273224E+01_JPRB, 0.274698E+01_JPRB &
+  &, 0.276113E+01_JPRB, 0.277463E+01_JPRB, 0.278753E+01_JPRB &
+  &, 0.279980E+01_JPRB, 0.281144E+01_JPRB, 0.282246E+01_JPRB, 0.283286E+01_JPRB &
+  &, 0.284261E+01_JPRB, 0.285176E+01_JPRB, 0.286029E+01_JPRB &
+  &, 0.286816E+01_JPRB, 0.287544E+01_JPRB, 0.288207E+01_JPRB, 0.288809E+01_JPRB &
+  &, 0.289348E+01_JPRB, 0.289827E+01_JPRB, 0.290245E+01_JPRB &
+  &, 0.290599E+01_JPRB, 0.290896E+01_JPRB, 0.291129E+01_JPRB, 0.291302E+01_JPRB &
+  &, 0.291416E+01_JPRB, 0.291470E+01_JPRB, 0.291468E+01_JPRB &
+  &, 0.291406E+01_JPRB, 0.291285E+01_JPRB, 0.291107E+01_JPRB, 0.290870E+01_JPRB &
+  &, 0.290580E+01_JPRB, 0.290231E+01_JPRB, 0.289828E+01_JPRB &
+  &, 0.289371E+01_JPRB, 0.288861E+01_JPRB, 0.288297E+01_JPRB, 0.287677E+01_JPRB &
+  &, 0.287007E+01_JPRB, 0.286288E+01_JPRB, 0.285516E+01_JPRB &
+  &, 0.284682E+01_JPRB, 0.283824E+01_JPRB, 0.282904E+01_JPRB, 0.281936E+01_JPRB &
+  &, 0.280925E+01_JPRB, 0.279862E+01_JPRB, 0.278757E+01_JPRB &
+  &, 0.277609E+01_JPRB, 0.276414E+01_JPRB, 0.275177E+01_JPRB, 0.273899E+01_JPRB &
+  &, 0.272578E+01_JPRB, 0.271220E+01_JPRB, 0.269820E+01_JPRB &
+  &, 0.268380E+01_JPRB, 0.266906E+01_JPRB, 0.265392E+01_JPRB, 0.263840E+01_JPRB &
+  &, 0.262257E+01_JPRB, 0.260641E+01_JPRB, 0.258989E+01_JPRB &
+  &, 0.257304E+01_JPRB, 0.255589E+01_JPRB, 0.253840E+01_JPRB, 0.252065E+01_JPRB &
+  &, 0.250261E+01_JPRB, 0.248426E+01_JPRB, 0.246567E+01_JPRB &
+  &, 0.244681E+01_JPRB, 0.242771E+01_JPRB, 0.240834E+01_JPRB, 0.238877E+01_JPRB &
+  &, 0.236892E+01_JPRB, 0.234892E+01_JPRB, 0.232868E+01_JPRB &
+  &, 0.230823E+01_JPRB, 0.228759E+01_JPRB, 0.226679E+01_JPRB, 0.224584E+01_JPRB &
+  &, 0.222471E+01_JPRB, 0.220343E+01_JPRB, 0.218195E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART128',1,ZHOOK_HANDLE)
+END SUBROUTINE PART128
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART129
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART129',0,ZHOOK_HANDLE)
+
+XCW( 897, :) = (/ &
+  &  0.112821E+01_JPRB, 0.116075E+01_JPRB, 0.119345E+01_JPRB, 0.122629E+01_JPRB &
+  &, 0.125926E+01_JPRB, 0.129233E+01_JPRB, 0.132549E+01_JPRB &
+  &, 0.135872E+01_JPRB, 0.139200E+01_JPRB, 0.142532E+01_JPRB, 0.145865E+01_JPRB &
+  &, 0.149197E+01_JPRB, 0.152528E+01_JPRB, 0.155854E+01_JPRB &
+  &, 0.159175E+01_JPRB, 0.162488E+01_JPRB, 0.165787E+01_JPRB, 0.169085E+01_JPRB &
+  &, 0.172364E+01_JPRB, 0.175629E+01_JPRB, 0.178877E+01_JPRB &
+  &, 0.182107E+01_JPRB, 0.185316E+01_JPRB, 0.188504E+01_JPRB, 0.191668E+01_JPRB &
+  &, 0.194807E+01_JPRB, 0.197919E+01_JPRB, 0.201002E+01_JPRB &
+  &, 0.204055E+01_JPRB, 0.207076E+01_JPRB, 0.210064E+01_JPRB, 0.213016E+01_JPRB &
+  &, 0.215932E+01_JPRB, 0.218810E+01_JPRB, 0.221649E+01_JPRB &
+  &, 0.224447E+01_JPRB, 0.227202E+01_JPRB, 0.229914E+01_JPRB, 0.232581E+01_JPRB &
+  &, 0.235203E+01_JPRB, 0.237777E+01_JPRB, 0.240303E+01_JPRB &
+  &, 0.242779E+01_JPRB, 0.245206E+01_JPRB, 0.247571E+01_JPRB, 0.249902E+01_JPRB &
+  &, 0.252171E+01_JPRB, 0.254385E+01_JPRB, 0.256544E+01_JPRB &
+  &, 0.258645E+01_JPRB, 0.260694E+01_JPRB, 0.262684E+01_JPRB, 0.264614E+01_JPRB &
+  &, 0.266487E+01_JPRB, 0.268301E+01_JPRB, 0.270053E+01_JPRB &
+  &, 0.271749E+01_JPRB, 0.273382E+01_JPRB, 0.274955E+01_JPRB, 0.276466E+01_JPRB &
+  &, 0.277915E+01_JPRB, 0.279304E+01_JPRB, 0.280625E+01_JPRB &
+  &, 0.281891E+01_JPRB, 0.283091E+01_JPRB, 0.284229E+01_JPRB, 0.285304E+01_JPRB &
+  &, 0.286318E+01_JPRB, 0.287267E+01_JPRB, 0.288151E+01_JPRB &
+  &, 0.288978E+01_JPRB, 0.289740E+01_JPRB, 0.290441E+01_JPRB, 0.291078E+01_JPRB &
+  &, 0.291652E+01_JPRB, 0.292157E+01_JPRB, 0.292617E+01_JPRB &
+  &, 0.293007E+01_JPRB, 0.293334E+01_JPRB, 0.293603E+01_JPRB, 0.293812E+01_JPRB &
+  &, 0.293960E+01_JPRB, 0.294047E+01_JPRB, 0.294075E+01_JPRB &
+  &, 0.294046E+01_JPRB, 0.293955E+01_JPRB, 0.293810E+01_JPRB, 0.293606E+01_JPRB &
+  &, 0.293345E+01_JPRB, 0.293029E+01_JPRB, 0.292659E+01_JPRB &
+  &, 0.292231E+01_JPRB, 0.291749E+01_JPRB, 0.291214E+01_JPRB, 0.290625E+01_JPRB &
+  &, 0.289983E+01_JPRB, 0.289292E+01_JPRB, 0.288547E+01_JPRB &
+  &, 0.287751E+01_JPRB, 0.286909E+01_JPRB, 0.286016E+01_JPRB, 0.285074E+01_JPRB &
+  &, 0.284085E+01_JPRB, 0.283051E+01_JPRB, 0.281971E+01_JPRB &
+  &, 0.280843E+01_JPRB, 0.279673E+01_JPRB, 0.278459E+01_JPRB, 0.277204E+01_JPRB &
+  &, 0.275905E+01_JPRB, 0.274565E+01_JPRB, 0.273187E+01_JPRB &
+  &, 0.271767E+01_JPRB, 0.270309E+01_JPRB, 0.268815E+01_JPRB, 0.267283E+01_JPRB &
+  &, 0.265719E+01_JPRB, 0.264116E+01_JPRB, 0.262482E+01_JPRB &
+  &, 0.260814E+01_JPRB, 0.259110E+01_JPRB, 0.257382E+01_JPRB, 0.255617E+01_JPRB &
+  &, 0.253828E+01_JPRB, 0.252006E+01_JPRB, 0.250155E+01_JPRB &
+  &, 0.248282E+01_JPRB, 0.246383E+01_JPRB, 0.244457E+01_JPRB, 0.242504E+01_JPRB &
+  &, 0.240534E+01_JPRB, 0.238537E+01_JPRB, 0.236522E+01_JPRB &
+  &, 0.234484E+01_JPRB, 0.232426E+01_JPRB, 0.230351E+01_JPRB, 0.228261E+01_JPRB &
+  &, 0.226146E+01_JPRB, 0.224021E+01_JPRB, 0.221881E+01_JPRB/)
+XCW( 898, :) = (/ &
+  &  0.112882E+01_JPRB, 0.116152E+01_JPRB, 0.119440E+01_JPRB, 0.122742E+01_JPRB &
+  &, 0.126057E+01_JPRB, 0.129383E+01_JPRB, 0.132718E+01_JPRB &
+  &, 0.136061E+01_JPRB, 0.139410E+01_JPRB, 0.142762E+01_JPRB, 0.146117E+01_JPRB &
+  &, 0.149472E+01_JPRB, 0.152825E+01_JPRB, 0.156174E+01_JPRB &
+  &, 0.159519E+01_JPRB, 0.162856E+01_JPRB, 0.166184E+01_JPRB, 0.169502E+01_JPRB &
+  &, 0.172807E+01_JPRB, 0.176098E+01_JPRB, 0.179373E+01_JPRB &
+  &, 0.182629E+01_JPRB, 0.185866E+01_JPRB, 0.189082E+01_JPRB, 0.192274E+01_JPRB &
+  &, 0.195442E+01_JPRB, 0.198583E+01_JPRB, 0.201695E+01_JPRB &
+  &, 0.204778E+01_JPRB, 0.207830E+01_JPRB, 0.210848E+01_JPRB, 0.213831E+01_JPRB &
+  &, 0.216779E+01_JPRB, 0.219689E+01_JPRB, 0.222559E+01_JPRB &
+  &, 0.225389E+01_JPRB, 0.228178E+01_JPRB, 0.230923E+01_JPRB, 0.233624E+01_JPRB &
+  &, 0.236279E+01_JPRB, 0.238887E+01_JPRB, 0.241447E+01_JPRB &
+  &, 0.243957E+01_JPRB, 0.246418E+01_JPRB, 0.248827E+01_JPRB, 0.251184E+01_JPRB &
+  &, 0.253488E+01_JPRB, 0.255737E+01_JPRB, 0.257932E+01_JPRB &
+  &, 0.260071E+01_JPRB, 0.262154E+01_JPRB, 0.264180E+01_JPRB, 0.266146E+01_JPRB &
+  &, 0.268055E+01_JPRB, 0.269900E+01_JPRB, 0.271696E+01_JPRB &
+  &, 0.273426E+01_JPRB, 0.275096E+01_JPRB, 0.276704E+01_JPRB, 0.278253E+01_JPRB &
+  &, 0.279739E+01_JPRB, 0.281163E+01_JPRB, 0.282525E+01_JPRB &
+  &, 0.283823E+01_JPRB, 0.285061E+01_JPRB, 0.286237E+01_JPRB, 0.287348E+01_JPRB &
+  &, 0.288396E+01_JPRB, 0.289382E+01_JPRB, 0.290305E+01_JPRB &
+  &, 0.291167E+01_JPRB, 0.291964E+01_JPRB, 0.292700E+01_JPRB, 0.293371E+01_JPRB &
+  &, 0.293983E+01_JPRB, 0.294531E+01_JPRB, 0.295018E+01_JPRB &
+  &, 0.295441E+01_JPRB, 0.295805E+01_JPRB, 0.296108E+01_JPRB, 0.296350E+01_JPRB &
+  &, 0.296532E+01_JPRB, 0.296653E+01_JPRB, 0.296715E+01_JPRB &
+  &, 0.296719E+01_JPRB, 0.296662E+01_JPRB, 0.296550E+01_JPRB, 0.296377E+01_JPRB &
+  &, 0.296149E+01_JPRB, 0.295863E+01_JPRB, 0.295523E+01_JPRB &
+  &, 0.295128E+01_JPRB, 0.294676E+01_JPRB, 0.294170E+01_JPRB, 0.293610E+01_JPRB &
+  &, 0.293000E+01_JPRB, 0.292334E+01_JPRB, 0.291621E+01_JPRB &
+  &, 0.290853E+01_JPRB, 0.290038E+01_JPRB, 0.289172E+01_JPRB, 0.288257E+01_JPRB &
+  &, 0.287294E+01_JPRB, 0.286283E+01_JPRB, 0.285228E+01_JPRB &
+  &, 0.284125E+01_JPRB, 0.282980E+01_JPRB, 0.281790E+01_JPRB, 0.280555E+01_JPRB &
+  &, 0.279279E+01_JPRB, 0.277963E+01_JPRB, 0.276602E+01_JPRB &
+  &, 0.275204E+01_JPRB, 0.273768E+01_JPRB, 0.272294E+01_JPRB, 0.270782E+01_JPRB &
+  &, 0.269233E+01_JPRB, 0.267649E+01_JPRB, 0.266029E+01_JPRB &
+  &, 0.264379E+01_JPRB, 0.262692E+01_JPRB, 0.260975E+01_JPRB, 0.259226E+01_JPRB &
+  &, 0.257452E+01_JPRB, 0.255646E+01_JPRB, 0.253808E+01_JPRB &
+  &, 0.251943E+01_JPRB, 0.250057E+01_JPRB, 0.248142E+01_JPRB, 0.246201E+01_JPRB &
+  &, 0.244235E+01_JPRB, 0.242248E+01_JPRB, 0.240241E+01_JPRB &
+  &, 0.238211E+01_JPRB, 0.236160E+01_JPRB, 0.234092E+01_JPRB, 0.232001E+01_JPRB &
+  &, 0.229897E+01_JPRB, 0.227776E+01_JPRB, 0.225640E+01_JPRB/)
+XCW( 899, :) = (/ &
+  &  0.112943E+01_JPRB, 0.116230E+01_JPRB, 0.119535E+01_JPRB, 0.122855E+01_JPRB &
+  &, 0.126188E+01_JPRB, 0.129533E+01_JPRB, 0.132888E+01_JPRB &
+  &, 0.136252E+01_JPRB, 0.139621E+01_JPRB, 0.142995E+01_JPRB, 0.146371E+01_JPRB &
+  &, 0.149748E+01_JPRB, 0.153124E+01_JPRB, 0.156497E+01_JPRB &
+  &, 0.159865E+01_JPRB, 0.163227E+01_JPRB, 0.166580E+01_JPRB, 0.169923E+01_JPRB &
+  &, 0.173254E+01_JPRB, 0.176571E+01_JPRB, 0.179873E+01_JPRB &
+  &, 0.183157E+01_JPRB, 0.186421E+01_JPRB, 0.189665E+01_JPRB, 0.192886E+01_JPRB &
+  &, 0.196082E+01_JPRB, 0.199253E+01_JPRB, 0.202395E+01_JPRB &
+  &, 0.205509E+01_JPRB, 0.208590E+01_JPRB, 0.211640E+01_JPRB, 0.214655E+01_JPRB &
+  &, 0.217634E+01_JPRB, 0.220576E+01_JPRB, 0.223479E+01_JPRB &
+  &, 0.226342E+01_JPRB, 0.229163E+01_JPRB, 0.231941E+01_JPRB, 0.234676E+01_JPRB &
+  &, 0.237364E+01_JPRB, 0.240007E+01_JPRB, 0.242602E+01_JPRB &
+  &, 0.245147E+01_JPRB, 0.247643E+01_JPRB, 0.250087E+01_JPRB, 0.252479E+01_JPRB &
+  &, 0.254819E+01_JPRB, 0.257104E+01_JPRB, 0.259330E+01_JPRB &
+  &, 0.261510E+01_JPRB, 0.263629E+01_JPRB, 0.265690E+01_JPRB, 0.267694E+01_JPRB &
+  &, 0.269640E+01_JPRB, 0.271528E+01_JPRB, 0.273354E+01_JPRB &
+  &, 0.275121E+01_JPRB, 0.276829E+01_JPRB, 0.278475E+01_JPRB, 0.280059E+01_JPRB &
+  &, 0.281582E+01_JPRB, 0.283043E+01_JPRB, 0.284443E+01_JPRB &
+  &, 0.285780E+01_JPRB, 0.287054E+01_JPRB, 0.288265E+01_JPRB, 0.289411E+01_JPRB &
+  &, 0.290500E+01_JPRB, 0.291523E+01_JPRB, 0.292480E+01_JPRB &
+  &, 0.293381E+01_JPRB, 0.294214E+01_JPRB, 0.294987E+01_JPRB, 0.295696E+01_JPRB &
+  &, 0.296342E+01_JPRB, 0.296924E+01_JPRB, 0.297447E+01_JPRB &
+  &, 0.297907E+01_JPRB, 0.298308E+01_JPRB, 0.298645E+01_JPRB, 0.298920E+01_JPRB &
+  &, 0.299138E+01_JPRB, 0.299294E+01_JPRB, 0.299390E+01_JPRB &
+  &, 0.299426E+01_JPRB, 0.299406E+01_JPRB, 0.299326E+01_JPRB, 0.299186E+01_JPRB &
+  &, 0.298990E+01_JPRB, 0.298737E+01_JPRB, 0.298428E+01_JPRB &
+  &, 0.298063E+01_JPRB, 0.297642E+01_JPRB, 0.297169E+01_JPRB, 0.296639E+01_JPRB &
+  &, 0.296058E+01_JPRB, 0.295421E+01_JPRB, 0.294737E+01_JPRB &
+  &, 0.293998E+01_JPRB, 0.293182E+01_JPRB, 0.292373E+01_JPRB, 0.291485E+01_JPRB &
+  &, 0.290546E+01_JPRB, 0.289565E+01_JPRB, 0.288533E+01_JPRB &
+  &, 0.287456E+01_JPRB, 0.286336E+01_JPRB, 0.285167E+01_JPRB, 0.283956E+01_JPRB &
+  &, 0.282705E+01_JPRB, 0.281412E+01_JPRB, 0.280075E+01_JPRB &
+  &, 0.278695E+01_JPRB, 0.277281E+01_JPRB, 0.275824E+01_JPRB, 0.274333E+01_JPRB &
+  &, 0.272804E+01_JPRB, 0.271236E+01_JPRB, 0.269635E+01_JPRB &
+  &, 0.268004E+01_JPRB, 0.266335E+01_JPRB, 0.264630E+01_JPRB, 0.262898E+01_JPRB &
+  &, 0.261135E+01_JPRB, 0.259344E+01_JPRB, 0.257516E+01_JPRB &
+  &, 0.255670E+01_JPRB, 0.253792E+01_JPRB, 0.251884E+01_JPRB, 0.249955E+01_JPRB &
+  &, 0.248000E+01_JPRB, 0.246023E+01_JPRB, 0.244026E+01_JPRB &
+  &, 0.241999E+01_JPRB, 0.239957E+01_JPRB, 0.237895E+01_JPRB, 0.235811E+01_JPRB &
+  &, 0.233713E+01_JPRB, 0.231596E+01_JPRB, 0.229458E+01_JPRB/)
+XCW( 900, :) = (/ &
+  &  0.113004E+01_JPRB, 0.116309E+01_JPRB, 0.119631E+01_JPRB, 0.122969E+01_JPRB &
+  &, 0.126321E+01_JPRB, 0.129685E+01_JPRB, 0.133060E+01_JPRB &
+  &, 0.136443E+01_JPRB, 0.139834E+01_JPRB, 0.143229E+01_JPRB, 0.146627E+01_JPRB &
+  &, 0.150027E+01_JPRB, 0.153426E+01_JPRB, 0.156822E+01_JPRB &
+  &, 0.160215E+01_JPRB, 0.163601E+01_JPRB, 0.166979E+01_JPRB, 0.170348E+01_JPRB &
+  &, 0.173705E+01_JPRB, 0.177049E+01_JPRB, 0.180377E+01_JPRB &
+  &, 0.183689E+01_JPRB, 0.186982E+01_JPRB, 0.190254E+01_JPRB, 0.193503E+01_JPRB &
+  &, 0.196729E+01_JPRB, 0.199929E+01_JPRB, 0.203102E+01_JPRB &
+  &, 0.206246E+01_JPRB, 0.209358E+01_JPRB, 0.212439E+01_JPRB, 0.215486E+01_JPRB &
+  &, 0.218497E+01_JPRB, 0.221471E+01_JPRB, 0.224407E+01_JPRB &
+  &, 0.227303E+01_JPRB, 0.230158E+01_JPRB, 0.232970E+01_JPRB, 0.235738E+01_JPRB &
+  &, 0.238462E+01_JPRB, 0.241139E+01_JPRB, 0.243768E+01_JPRB &
+  &, 0.246348E+01_JPRB, 0.248880E+01_JPRB, 0.251360E+01_JPRB, 0.253788E+01_JPRB &
+  &, 0.256164E+01_JPRB, 0.258485E+01_JPRB, 0.260753E+01_JPRB &
+  &, 0.262965E+01_JPRB, 0.265120E+01_JPRB, 0.267219E+01_JPRB, 0.269259E+01_JPRB &
+  &, 0.271220E+01_JPRB, 0.273167E+01_JPRB, 0.275031E+01_JPRB &
+  &, 0.276835E+01_JPRB, 0.278580E+01_JPRB, 0.280264E+01_JPRB, 0.281886E+01_JPRB &
+  &, 0.283448E+01_JPRB, 0.284945E+01_JPRB, 0.286377E+01_JPRB &
+  &, 0.287757E+01_JPRB, 0.289070E+01_JPRB, 0.290318E+01_JPRB, 0.291505E+01_JPRB &
+  &, 0.292627E+01_JPRB, 0.293688E+01_JPRB, 0.294685E+01_JPRB &
+  &, 0.295621E+01_JPRB, 0.296493E+01_JPRB, 0.297299E+01_JPRB, 0.298045E+01_JPRB &
+  &, 0.298728E+01_JPRB, 0.299350E+01_JPRB, 0.299908E+01_JPRB &
+  &, 0.300405E+01_JPRB, 0.300836E+01_JPRB, 0.301213E+01_JPRB, 0.301525E+01_JPRB &
+  &, 0.301776E+01_JPRB, 0.301948E+01_JPRB, 0.302098E+01_JPRB &
+  &, 0.302169E+01_JPRB, 0.302181E+01_JPRB, 0.302136E+01_JPRB, 0.302031E+01_JPRB &
+  &, 0.301863E+01_JPRB, 0.301648E+01_JPRB, 0.301370E+01_JPRB &
+  &, 0.301033E+01_JPRB, 0.300649E+01_JPRB, 0.300207E+01_JPRB, 0.299708E+01_JPRB &
+  &, 0.299157E+01_JPRB, 0.298553E+01_JPRB, 0.297896E+01_JPRB &
+  &, 0.297185E+01_JPRB, 0.296428E+01_JPRB, 0.295618E+01_JPRB, 0.294744E+01_JPRB &
+  &, 0.293847E+01_JPRB, 0.292890E+01_JPRB, 0.291889E+01_JPRB &
+  &, 0.290831E+01_JPRB, 0.289741E+01_JPRB, 0.288598E+01_JPRB, 0.287413E+01_JPRB &
+  &, 0.286182E+01_JPRB, 0.284909E+01_JPRB, 0.283596E+01_JPRB &
+  &, 0.282240E+01_JPRB, 0.280849E+01_JPRB, 0.279415E+01_JPRB, 0.277940E+01_JPRB &
+  &, 0.276433E+01_JPRB, 0.274885E+01_JPRB, 0.273300E+01_JPRB &
+  &, 0.271683E+01_JPRB, 0.270033E+01_JPRB, 0.268347E+01_JPRB, 0.266622E+01_JPRB &
+  &, 0.264881E+01_JPRB, 0.263101E+01_JPRB, 0.261294E+01_JPRB &
+  &, 0.259457E+01_JPRB, 0.257588E+01_JPRB, 0.255700E+01_JPRB, 0.253777E+01_JPRB &
+  &, 0.251835E+01_JPRB, 0.249869E+01_JPRB, 0.247877E+01_JPRB &
+  &, 0.245860E+01_JPRB, 0.243826E+01_JPRB, 0.241773E+01_JPRB, 0.239697E+01_JPRB &
+  &, 0.237599E+01_JPRB, 0.235488E+01_JPRB, 0.233354E+01_JPRB/)
+XCW( 901, :) = (/ &
+  &  0.113066E+01_JPRB, 0.116388E+01_JPRB, 0.119728E+01_JPRB, 0.123084E+01_JPRB &
+  &, 0.126455E+01_JPRB, 0.129838E+01_JPRB, 0.133233E+01_JPRB &
+  &, 0.136637E+01_JPRB, 0.140048E+01_JPRB, 0.143465E+01_JPRB, 0.146886E+01_JPRB &
+  &, 0.150308E+01_JPRB, 0.153730E+01_JPRB, 0.157151E+01_JPRB &
+  &, 0.160567E+01_JPRB, 0.163978E+01_JPRB, 0.167382E+01_JPRB, 0.170777E+01_JPRB &
+  &, 0.174160E+01_JPRB, 0.177530E+01_JPRB, 0.180886E+01_JPRB &
+  &, 0.184226E+01_JPRB, 0.187547E+01_JPRB, 0.190848E+01_JPRB, 0.194127E+01_JPRB &
+  &, 0.197382E+01_JPRB, 0.200612E+01_JPRB, 0.203815E+01_JPRB &
+  &, 0.206990E+01_JPRB, 0.210134E+01_JPRB, 0.213246E+01_JPRB, 0.216325E+01_JPRB &
+  &, 0.219369E+01_JPRB, 0.222376E+01_JPRB, 0.225345E+01_JPRB &
+  &, 0.228274E+01_JPRB, 0.231163E+01_JPRB, 0.234009E+01_JPRB, 0.236812E+01_JPRB &
+  &, 0.239570E+01_JPRB, 0.242282E+01_JPRB, 0.244947E+01_JPRB &
+  &, 0.247563E+01_JPRB, 0.250130E+01_JPRB, 0.252646E+01_JPRB, 0.255110E+01_JPRB &
+  &, 0.257523E+01_JPRB, 0.259881E+01_JPRB, 0.262186E+01_JPRB &
+  &, 0.264434E+01_JPRB, 0.266626E+01_JPRB, 0.268763E+01_JPRB, 0.270842E+01_JPRB &
+  &, 0.272862E+01_JPRB, 0.274824E+01_JPRB, 0.276727E+01_JPRB &
+  &, 0.278569E+01_JPRB, 0.280351E+01_JPRB, 0.282073E+01_JPRB, 0.283733E+01_JPRB &
+  &, 0.285330E+01_JPRB, 0.286869E+01_JPRB, 0.288345E+01_JPRB &
+  &, 0.289757E+01_JPRB, 0.291108E+01_JPRB, 0.292396E+01_JPRB, 0.293621E+01_JPRB &
+  &, 0.294781E+01_JPRB, 0.295880E+01_JPRB, 0.296915E+01_JPRB &
+  &, 0.297888E+01_JPRB, 0.298796E+01_JPRB, 0.299642E+01_JPRB, 0.300426E+01_JPRB &
+  &, 0.301146E+01_JPRB, 0.301803E+01_JPRB, 0.302399E+01_JPRB &
+  &, 0.302932E+01_JPRB, 0.303403E+01_JPRB, 0.303814E+01_JPRB, 0.304162E+01_JPRB &
+  &, 0.304446E+01_JPRB, 0.304677E+01_JPRB, 0.304841E+01_JPRB &
+  &, 0.304948E+01_JPRB, 0.304996E+01_JPRB, 0.304983E+01_JPRB, 0.304914E+01_JPRB &
+  &, 0.304784E+01_JPRB, 0.304596E+01_JPRB, 0.304353E+01_JPRB &
+  &, 0.304054E+01_JPRB, 0.303699E+01_JPRB, 0.303288E+01_JPRB, 0.302820E+01_JPRB &
+  &, 0.302300E+01_JPRB, 0.301727E+01_JPRB, 0.301099E+01_JPRB &
+  &, 0.300419E+01_JPRB, 0.299691E+01_JPRB, 0.298908E+01_JPRB, 0.298077E+01_JPRB &
+  &, 0.297198E+01_JPRB, 0.296269E+01_JPRB, 0.295292E+01_JPRB &
+  &, 0.294266E+01_JPRB, 0.293195E+01_JPRB, 0.292079E+01_JPRB, 0.290920E+01_JPRB &
+  &, 0.289707E+01_JPRB, 0.288463E+01_JPRB, 0.287175E+01_JPRB &
+  &, 0.285843E+01_JPRB, 0.284471E+01_JPRB, 0.283056E+01_JPRB, 0.281604E+01_JPRB &
+  &, 0.280114E+01_JPRB, 0.278588E+01_JPRB, 0.277023E+01_JPRB &
+  &, 0.275427E+01_JPRB, 0.273792E+01_JPRB, 0.272125E+01_JPRB, 0.270424E+01_JPRB &
+  &, 0.268691E+01_JPRB, 0.266928E+01_JPRB, 0.265132E+01_JPRB &
+  &, 0.263306E+01_JPRB, 0.261457E+01_JPRB, 0.259578E+01_JPRB, 0.257669E+01_JPRB &
+  &, 0.255734E+01_JPRB, 0.253781E+01_JPRB, 0.251794E+01_JPRB &
+  &, 0.249793E+01_JPRB, 0.247764E+01_JPRB, 0.245714E+01_JPRB, 0.243646E+01_JPRB &
+  &, 0.241555E+01_JPRB, 0.239451E+01_JPRB, 0.237323E+01_JPRB/)
+XCW( 902, :) = (/ &
+  &  0.113129E+01_JPRB, 0.116467E+01_JPRB, 0.119825E+01_JPRB, 0.123200E+01_JPRB &
+  &, 0.126589E+01_JPRB, 0.129993E+01_JPRB, 0.133408E+01_JPRB &
+  &, 0.136832E+01_JPRB, 0.140265E+01_JPRB, 0.143703E+01_JPRB, 0.147146E+01_JPRB &
+  &, 0.150591E+01_JPRB, 0.154037E+01_JPRB, 0.157482E+01_JPRB &
+  &, 0.160923E+01_JPRB, 0.164359E+01_JPRB, 0.167788E+01_JPRB, 0.171209E+01_JPRB &
+  &, 0.174619E+01_JPRB, 0.178017E+01_JPRB, 0.181400E+01_JPRB &
+  &, 0.184768E+01_JPRB, 0.188117E+01_JPRB, 0.191447E+01_JPRB, 0.194756E+01_JPRB &
+  &, 0.198041E+01_JPRB, 0.201302E+01_JPRB, 0.204535E+01_JPRB &
+  &, 0.207741E+01_JPRB, 0.210917E+01_JPRB, 0.214061E+01_JPRB, 0.217172E+01_JPRB &
+  &, 0.220249E+01_JPRB, 0.223290E+01_JPRB, 0.226292E+01_JPRB &
+  &, 0.229256E+01_JPRB, 0.232179E+01_JPRB, 0.235059E+01_JPRB, 0.237897E+01_JPRB &
+  &, 0.240691E+01_JPRB, 0.243437E+01_JPRB, 0.246138E+01_JPRB &
+  &, 0.248790E+01_JPRB, 0.251393E+01_JPRB, 0.253946E+01_JPRB, 0.256447E+01_JPRB &
+  &, 0.258896E+01_JPRB, 0.261292E+01_JPRB, 0.263634E+01_JPRB &
+  &, 0.265920E+01_JPRB, 0.268150E+01_JPRB, 0.270324E+01_JPRB, 0.272441E+01_JPRB &
+  &, 0.274500E+01_JPRB, 0.276500E+01_JPRB, 0.278441E+01_JPRB &
+  &, 0.280322E+01_JPRB, 0.282143E+01_JPRB, 0.283903E+01_JPRB, 0.285602E+01_JPRB &
+  &, 0.287240E+01_JPRB, 0.288817E+01_JPRB, 0.290330E+01_JPRB &
+  &, 0.291781E+01_JPRB, 0.293171E+01_JPRB, 0.294496E+01_JPRB, 0.295759E+01_JPRB &
+  &, 0.296960E+01_JPRB, 0.298098E+01_JPRB, 0.299170E+01_JPRB &
+  &, 0.300182E+01_JPRB, 0.301128E+01_JPRB, 0.302014E+01_JPRB, 0.302835E+01_JPRB &
+  &, 0.303592E+01_JPRB, 0.304290E+01_JPRB, 0.304922E+01_JPRB &
+  &, 0.305493E+01_JPRB, 0.306001E+01_JPRB, 0.306448E+01_JPRB, 0.306829E+01_JPRB &
+  &, 0.307157E+01_JPRB, 0.307420E+01_JPRB, 0.307623E+01_JPRB &
+  &, 0.307764E+01_JPRB, 0.307848E+01_JPRB, 0.307871E+01_JPRB, 0.307832E+01_JPRB &
+  &, 0.307739E+01_JPRB, 0.307586E+01_JPRB, 0.307376E+01_JPRB &
+  &, 0.307110E+01_JPRB, 0.306787E+01_JPRB, 0.306408E+01_JPRB, 0.305975E+01_JPRB &
+  &, 0.305487E+01_JPRB, 0.304946E+01_JPRB, 0.304349E+01_JPRB &
+  &, 0.303700E+01_JPRB, 0.302999E+01_JPRB, 0.302249E+01_JPRB, 0.301448E+01_JPRB &
+  &, 0.300595E+01_JPRB, 0.299696E+01_JPRB, 0.298743E+01_JPRB &
+  &, 0.297749E+01_JPRB, 0.296702E+01_JPRB, 0.295614E+01_JPRB, 0.294478E+01_JPRB &
+  &, 0.293300E+01_JPRB, 0.292074E+01_JPRB, 0.290806E+01_JPRB &
+  &, 0.289500E+01_JPRB, 0.288148E+01_JPRB, 0.286757E+01_JPRB, 0.285329E+01_JPRB &
+  &, 0.283857E+01_JPRB, 0.282354E+01_JPRB, 0.280806E+01_JPRB &
+  &, 0.279226E+01_JPRB, 0.277612E+01_JPRB, 0.275960E+01_JPRB, 0.274278E+01_JPRB &
+  &, 0.272564E+01_JPRB, 0.270813E+01_JPRB, 0.269035E+01_JPRB &
+  &, 0.267226E+01_JPRB, 0.265388E+01_JPRB, 0.263433E+01_JPRB, 0.261624E+01_JPRB &
+  &, 0.259703E+01_JPRB, 0.257757E+01_JPRB, 0.255788E+01_JPRB &
+  &, 0.253794E+01_JPRB, 0.251775E+01_JPRB, 0.249735E+01_JPRB, 0.247670E+01_JPRB &
+  &, 0.245588E+01_JPRB, 0.243466E+01_JPRB, 0.241345E+01_JPRB/)
+XCW( 903, :) = (/ &
+  &  0.113192E+01_JPRB, 0.116548E+01_JPRB, 0.119923E+01_JPRB, 0.123316E+01_JPRB &
+  &, 0.126725E+01_JPRB, 0.130148E+01_JPRB, 0.133583E+01_JPRB &
+  &, 0.137029E+01_JPRB, 0.140483E+01_JPRB, 0.143944E+01_JPRB, 0.147409E+01_JPRB &
+  &, 0.150877E+01_JPRB, 0.154347E+01_JPRB, 0.157816E+01_JPRB &
+  &, 0.161282E+01_JPRB, 0.164743E+01_JPRB, 0.168198E+01_JPRB, 0.171645E+01_JPRB &
+  &, 0.175083E+01_JPRB, 0.178508E+01_JPRB, 0.181919E+01_JPRB &
+  &, 0.185314E+01_JPRB, 0.188693E+01_JPRB, 0.192052E+01_JPRB, 0.195391E+01_JPRB &
+  &, 0.198706E+01_JPRB, 0.201998E+01_JPRB, 0.205263E+01_JPRB &
+  &, 0.208500E+01_JPRB, 0.211708E+01_JPRB, 0.214884E+01_JPRB, 0.218029E+01_JPRB &
+  &, 0.221138E+01_JPRB, 0.224212E+01_JPRB, 0.227249E+01_JPRB &
+  &, 0.230246E+01_JPRB, 0.233204E+01_JPRB, 0.236119E+01_JPRB, 0.238993E+01_JPRB &
+  &, 0.241821E+01_JPRB, 0.244605E+01_JPRB, 0.247342E+01_JPRB &
+  &, 0.250031E+01_JPRB, 0.252670E+01_JPRB, 0.255260E+01_JPRB, 0.257798E+01_JPRB &
+  &, 0.260285E+01_JPRB, 0.262718E+01_JPRB, 0.265097E+01_JPRB &
+  &, 0.267422E+01_JPRB, 0.269691E+01_JPRB, 0.271904E+01_JPRB, 0.274058E+01_JPRB &
+  &, 0.276156E+01_JPRB, 0.278195E+01_JPRB, 0.280175E+01_JPRB &
+  &, 0.282095E+01_JPRB, 0.283956E+01_JPRB, 0.285754E+01_JPRB, 0.287494E+01_JPRB &
+  &, 0.289170E+01_JPRB, 0.290785E+01_JPRB, 0.292339E+01_JPRB &
+  &, 0.293829E+01_JPRB, 0.295258E+01_JPRB, 0.296623E+01_JPRB, 0.297927E+01_JPRB &
+  &, 0.299165E+01_JPRB, 0.300342E+01_JPRB, 0.301454E+01_JPRB &
+  &, 0.302504E+01_JPRB, 0.303490E+01_JPRB, 0.304412E+01_JPRB, 0.305274E+01_JPRB &
+  &, 0.306070E+01_JPRB, 0.306804E+01_JPRB, 0.307475E+01_JPRB &
+  &, 0.308086E+01_JPRB, 0.308630E+01_JPRB, 0.309117E+01_JPRB, 0.309538E+01_JPRB &
+  &, 0.309900E+01_JPRB, 0.310200E+01_JPRB, 0.310438E+01_JPRB &
+  &, 0.310618E+01_JPRB, 0.310736E+01_JPRB, 0.310794E+01_JPRB, 0.310795E+01_JPRB &
+  &, 0.310735E+01_JPRB, 0.310613E+01_JPRB, 0.310443E+01_JPRB &
+  &, 0.310210E+01_JPRB, 0.309920E+01_JPRB, 0.309574E+01_JPRB, 0.309174E+01_JPRB &
+  &, 0.308718E+01_JPRB, 0.308209E+01_JPRB, 0.307645E+01_JPRB &
+  &, 0.307027E+01_JPRB, 0.306357E+01_JPRB, 0.305638E+01_JPRB, 0.304865E+01_JPRB &
+  &, 0.304042E+01_JPRB, 0.303172E+01_JPRB, 0.302250E+01_JPRB &
+  &, 0.301281E+01_JPRB, 0.300263E+01_JPRB, 0.299203E+01_JPRB, 0.298090E+01_JPRB &
+  &, 0.296935E+01_JPRB, 0.295736E+01_JPRB, 0.294496E+01_JPRB &
+  &, 0.293211E+01_JPRB, 0.291884E+01_JPRB, 0.290518E+01_JPRB, 0.289110E+01_JPRB &
+  &, 0.287663E+01_JPRB, 0.286177E+01_JPRB, 0.284653E+01_JPRB &
+  &, 0.283095E+01_JPRB, 0.281497E+01_JPRB, 0.279866E+01_JPRB, 0.278200E+01_JPRB &
+  &, 0.276500E+01_JPRB, 0.274769E+01_JPRB, 0.273004E+01_JPRB &
+  &, 0.271212E+01_JPRB, 0.269386E+01_JPRB, 0.267532E+01_JPRB, 0.265654E+01_JPRB &
+  &, 0.263742E+01_JPRB, 0.261810E+01_JPRB, 0.259849E+01_JPRB &
+  &, 0.257867E+01_JPRB, 0.255854E+01_JPRB, 0.253826E+01_JPRB, 0.251771E+01_JPRB &
+  &, 0.249698E+01_JPRB, 0.247604E+01_JPRB, 0.245491E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART129',1,ZHOOK_HANDLE)
+END SUBROUTINE PART129
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART130
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART130',0,ZHOOK_HANDLE)
+
+XCW( 904, :) = (/ &
+  &  0.113255E+01_JPRB, 0.116629E+01_JPRB, 0.120022E+01_JPRB, 0.123434E+01_JPRB &
+  &, 0.126862E+01_JPRB, 0.130305E+01_JPRB, 0.133761E+01_JPRB &
+  &, 0.137227E+01_JPRB, 0.140703E+01_JPRB, 0.144186E+01_JPRB, 0.147674E+01_JPRB &
+  &, 0.151166E+01_JPRB, 0.154659E+01_JPRB, 0.158153E+01_JPRB &
+  &, 0.161644E+01_JPRB, 0.165131E+01_JPRB, 0.168612E+01_JPRB, 0.172086E+01_JPRB &
+  &, 0.175550E+01_JPRB, 0.179003E+01_JPRB, 0.182442E+01_JPRB &
+  &, 0.185867E+01_JPRB, 0.189274E+01_JPRB, 0.192663E+01_JPRB, 0.196032E+01_JPRB &
+  &, 0.199378E+01_JPRB, 0.202700E+01_JPRB, 0.205997E+01_JPRB &
+  &, 0.209266E+01_JPRB, 0.212507E+01_JPRB, 0.215716E+01_JPRB, 0.218893E+01_JPRB &
+  &, 0.222036E+01_JPRB, 0.225144E+01_JPRB, 0.228215E+01_JPRB &
+  &, 0.231248E+01_JPRB, 0.234240E+01_JPRB, 0.237191E+01_JPRB, 0.240100E+01_JPRB &
+  &, 0.242965E+01_JPRB, 0.245785E+01_JPRB, 0.248559E+01_JPRB &
+  &, 0.251284E+01_JPRB, 0.253961E+01_JPRB, 0.256588E+01_JPRB, 0.259165E+01_JPRB &
+  &, 0.261688E+01_JPRB, 0.264159E+01_JPRB, 0.266578E+01_JPRB &
+  &, 0.268941E+01_JPRB, 0.271248E+01_JPRB, 0.273500E+01_JPRB, 0.275694E+01_JPRB &
+  &, 0.277831E+01_JPRB, 0.279910E+01_JPRB, 0.281928E+01_JPRB &
+  &, 0.283888E+01_JPRB, 0.285789E+01_JPRB, 0.287628E+01_JPRB, 0.289406E+01_JPRB &
+  &, 0.291122E+01_JPRB, 0.292778E+01_JPRB, 0.294371E+01_JPRB &
+  &, 0.295902E+01_JPRB, 0.297370E+01_JPRB, 0.298775E+01_JPRB, 0.300118E+01_JPRB &
+  &, 0.301397E+01_JPRB, 0.302614E+01_JPRB, 0.303765E+01_JPRB &
+  &, 0.304855E+01_JPRB, 0.305881E+01_JPRB, 0.306844E+01_JPRB, 0.307601E+01_JPRB &
+  &, 0.308580E+01_JPRB, 0.309353E+01_JPRB, 0.310064E+01_JPRB &
+  &, 0.310710E+01_JPRB, 0.311295E+01_JPRB, 0.311819E+01_JPRB, 0.312277E+01_JPRB &
+  &, 0.312678E+01_JPRB, 0.313015E+01_JPRB, 0.313291E+01_JPRB &
+  &, 0.313509E+01_JPRB, 0.313664E+01_JPRB, 0.313760E+01_JPRB, 0.313795E+01_JPRB &
+  &, 0.313770E+01_JPRB, 0.313689E+01_JPRB, 0.313550E+01_JPRB &
+  &, 0.313351E+01_JPRB, 0.313098E+01_JPRB, 0.312786E+01_JPRB, 0.312419E+01_JPRB &
+  &, 0.311997E+01_JPRB, 0.311517E+01_JPRB, 0.310989E+01_JPRB &
+  &, 0.310404E+01_JPRB, 0.309767E+01_JPRB, 0.309076E+01_JPRB, 0.308334E+01_JPRB &
+  &, 0.307542E+01_JPRB, 0.306699E+01_JPRB, 0.305807E+01_JPRB &
+  &, 0.304868E+01_JPRB, 0.303880E+01_JPRB, 0.302845E+01_JPRB, 0.301762E+01_JPRB &
+  &, 0.300635E+01_JPRB, 0.299460E+01_JPRB, 0.298247E+01_JPRB &
+  &, 0.296985E+01_JPRB, 0.295684E+01_JPRB, 0.294340E+01_JPRB, 0.292952E+01_JPRB &
+  &, 0.291530E+01_JPRB, 0.290064E+01_JPRB, 0.288563E+01_JPRB &
+  &, 0.287024E+01_JPRB, 0.285449E+01_JPRB, 0.283835E+01_JPRB, 0.282189E+01_JPRB &
+  &, 0.280505E+01_JPRB, 0.278794E+01_JPRB, 0.277043E+01_JPRB &
+  &, 0.275264E+01_JPRB, 0.273456E+01_JPRB, 0.271620E+01_JPRB, 0.269753E+01_JPRB &
+  &, 0.267857E+01_JPRB, 0.265934E+01_JPRB, 0.263987E+01_JPRB &
+  &, 0.262013E+01_JPRB, 0.260013E+01_JPRB, 0.257990E+01_JPRB, 0.255947E+01_JPRB &
+  &, 0.253879E+01_JPRB, 0.251794E+01_JPRB, 0.249677E+01_JPRB/)
+XCW( 905, :) = (/ &
+  &  0.113320E+01_JPRB, 0.116710E+01_JPRB, 0.120122E+01_JPRB, 0.123553E+01_JPRB &
+  &, 0.127000E+01_JPRB, 0.130463E+01_JPRB, 0.133940E+01_JPRB &
+  &, 0.137428E+01_JPRB, 0.140925E+01_JPRB, 0.144430E+01_JPRB, 0.147942E+01_JPRB &
+  &, 0.151457E+01_JPRB, 0.154975E+01_JPRB, 0.158493E+01_JPRB &
+  &, 0.162009E+01_JPRB, 0.165522E+01_JPRB, 0.169030E+01_JPRB, 0.172530E+01_JPRB &
+  &, 0.176022E+01_JPRB, 0.179503E+01_JPRB, 0.182971E+01_JPRB &
+  &, 0.186425E+01_JPRB, 0.189862E+01_JPRB, 0.193280E+01_JPRB, 0.196679E+01_JPRB &
+  &, 0.200057E+01_JPRB, 0.203411E+01_JPRB, 0.206739E+01_JPRB &
+  &, 0.210040E+01_JPRB, 0.213313E+01_JPRB, 0.216556E+01_JPRB, 0.219767E+01_JPRB &
+  &, 0.222944E+01_JPRB, 0.226086E+01_JPRB, 0.229192E+01_JPRB &
+  &, 0.232259E+01_JPRB, 0.235287E+01_JPRB, 0.238275E+01_JPRB, 0.241219E+01_JPRB &
+  &, 0.244121E+01_JPRB, 0.246977E+01_JPRB, 0.249788E+01_JPRB &
+  &, 0.252551E+01_JPRB, 0.255265E+01_JPRB, 0.257931E+01_JPRB, 0.260545E+01_JPRB &
+  &, 0.263108E+01_JPRB, 0.265618E+01_JPRB, 0.268074E+01_JPRB &
+  &, 0.270477E+01_JPRB, 0.272824E+01_JPRB, 0.275114E+01_JPRB, 0.277348E+01_JPRB &
+  &, 0.279525E+01_JPRB, 0.281644E+01_JPRB, 0.283703E+01_JPRB &
+  &, 0.285703E+01_JPRB, 0.287643E+01_JPRB, 0.289522E+01_JPRB, 0.291341E+01_JPRB &
+  &, 0.293098E+01_JPRB, 0.294794E+01_JPRB, 0.296428E+01_JPRB &
+  &, 0.297999E+01_JPRB, 0.299507E+01_JPRB, 0.300951E+01_JPRB, 0.302338E+01_JPRB &
+  &, 0.303657E+01_JPRB, 0.304913E+01_JPRB, 0.306107E+01_JPRB &
+  &, 0.307236E+01_JPRB, 0.308303E+01_JPRB, 0.309306E+01_JPRB, 0.310244E+01_JPRB &
+  &, 0.311113E+01_JPRB, 0.311933E+01_JPRB, 0.312684E+01_JPRB &
+  &, 0.313371E+01_JPRB, 0.313994E+01_JPRB, 0.314556E+01_JPRB, 0.315056E+01_JPRB &
+  &, 0.315494E+01_JPRB, 0.315870E+01_JPRB, 0.316184E+01_JPRB &
+  &, 0.316438E+01_JPRB, 0.316630E+01_JPRB, 0.316763E+01_JPRB, 0.316834E+01_JPRB &
+  &, 0.316851E+01_JPRB, 0.316804E+01_JPRB, 0.316700E+01_JPRB &
+  &, 0.316537E+01_JPRB, 0.316318E+01_JPRB, 0.316040E+01_JPRB, 0.315708E+01_JPRB &
+  &, 0.315320E+01_JPRB, 0.314878E+01_JPRB, 0.314380E+01_JPRB &
+  &, 0.313827E+01_JPRB, 0.313223E+01_JPRB, 0.312565E+01_JPRB, 0.311856E+01_JPRB &
+  &, 0.311092E+01_JPRB, 0.310281E+01_JPRB, 0.309420E+01_JPRB &
+  &, 0.308508E+01_JPRB, 0.307551E+01_JPRB, 0.306542E+01_JPRB, 0.305488E+01_JPRB &
+  &, 0.304387E+01_JPRB, 0.303240E+01_JPRB, 0.302051E+01_JPRB &
+  &, 0.300816E+01_JPRB, 0.299539E+01_JPRB, 0.298221E+01_JPRB, 0.296860E+01_JPRB &
+  &, 0.295459E+01_JPRB, 0.294019E+01_JPRB, 0.292537E+01_JPRB &
+  &, 0.291017E+01_JPRB, 0.289460E+01_JPRB, 0.287869E+01_JPRB, 0.286241E+01_JPRB &
+  &, 0.284579E+01_JPRB, 0.282883E+01_JPRB, 0.281153E+01_JPRB &
+  &, 0.279394E+01_JPRB, 0.277599E+01_JPRB, 0.275776E+01_JPRB, 0.273926E+01_JPRB &
+  &, 0.272041E+01_JPRB, 0.270135E+01_JPRB, 0.268198E+01_JPRB &
+  &, 0.266238E+01_JPRB, 0.264246E+01_JPRB, 0.262236E+01_JPRB, 0.260205E+01_JPRB &
+  &, 0.258142E+01_JPRB, 0.256069E+01_JPRB, 0.253968E+01_JPRB/)
+XCW( 906, :) = (/ &
+  &  0.113384E+01_JPRB, 0.116793E+01_JPRB, 0.120223E+01_JPRB, 0.123672E+01_JPRB &
+  &, 0.127140E+01_JPRB, 0.130623E+01_JPRB, 0.134120E+01_JPRB &
+  &, 0.137629E+01_JPRB, 0.141149E+01_JPRB, 0.144677E+01_JPRB, 0.148212E+01_JPRB &
+  &, 0.151751E+01_JPRB, 0.155293E+01_JPRB, 0.158836E+01_JPRB &
+  &, 0.162378E+01_JPRB, 0.165917E+01_JPRB, 0.169451E+01_JPRB, 0.172979E+01_JPRB &
+  &, 0.176499E+01_JPRB, 0.180008E+01_JPRB, 0.183504E+01_JPRB &
+  &, 0.186987E+01_JPRB, 0.190454E+01_JPRB, 0.193903E+01_JPRB, 0.197333E+01_JPRB &
+  &, 0.200742E+01_JPRB, 0.204127E+01_JPRB, 0.207488E+01_JPRB &
+  &, 0.210822E+01_JPRB, 0.214128E+01_JPRB, 0.217404E+01_JPRB, 0.220649E+01_JPRB &
+  &, 0.223861E+01_JPRB, 0.227038E+01_JPRB, 0.230178E+01_JPRB &
+  &, 0.233281E+01_JPRB, 0.236345E+01_JPRB, 0.239369E+01_JPRB, 0.242350E+01_JPRB &
+  &, 0.245288E+01_JPRB, 0.248183E+01_JPRB, 0.251030E+01_JPRB &
+  &, 0.253832E+01_JPRB, 0.256585E+01_JPRB, 0.259288E+01_JPRB, 0.261940E+01_JPRB &
+  &, 0.264542E+01_JPRB, 0.267092E+01_JPRB, 0.269588E+01_JPRB &
+  &, 0.272030E+01_JPRB, 0.274416E+01_JPRB, 0.276747E+01_JPRB, 0.279020E+01_JPRB &
+  &, 0.281239E+01_JPRB, 0.283397E+01_JPRB, 0.285497E+01_JPRB &
+  &, 0.287538E+01_JPRB, 0.289519E+01_JPRB, 0.291439E+01_JPRB, 0.293300E+01_JPRB &
+  &, 0.295098E+01_JPRB, 0.296835E+01_JPRB, 0.298509E+01_JPRB &
+  &, 0.300123E+01_JPRB, 0.301672E+01_JPRB, 0.303160E+01_JPRB, 0.304583E+01_JPRB &
+  &, 0.305945E+01_JPRB, 0.307242E+01_JPRB, 0.308475E+01_JPRB &
+  &, 0.309646E+01_JPRB, 0.310753E+01_JPRB, 0.311799E+01_JPRB, 0.312778E+01_JPRB &
+  &, 0.313693E+01_JPRB, 0.314548E+01_JPRB, 0.315338E+01_JPRB &
+  &, 0.315988E+01_JPRB, 0.316730E+01_JPRB, 0.317331E+01_JPRB, 0.317870E+01_JPRB &
+  &, 0.318345E+01_JPRB, 0.318763E+01_JPRB, 0.319114E+01_JPRB &
+  &, 0.319407E+01_JPRB, 0.319637E+01_JPRB, 0.319810E+01_JPRB, 0.319920E+01_JPRB &
+  &, 0.319970E+01_JPRB, 0.319963E+01_JPRB, 0.319894E+01_JPRB &
+  &, 0.319770E+01_JPRB, 0.319587E+01_JPRB, 0.319344E+01_JPRB, 0.319047E+01_JPRB &
+  &, 0.318694E+01_JPRB, 0.318286E+01_JPRB, 0.317823E+01_JPRB &
+  &, 0.317301E+01_JPRB, 0.316731E+01_JPRB, 0.316106E+01_JPRB, 0.315422E+01_JPRB &
+  &, 0.314700E+01_JPRB, 0.313917E+01_JPRB, 0.313085E+01_JPRB &
+  &, 0.312205E+01_JPRB, 0.311274E+01_JPRB, 0.310301E+01_JPRB, 0.309273E+01_JPRB &
+  &, 0.308202E+01_JPRB, 0.307081E+01_JPRB, 0.305921E+01_JPRB &
+  &, 0.304711E+01_JPRB, 0.303462E+01_JPRB, 0.302168E+01_JPRB, 0.300830E+01_JPRB &
+  &, 0.299378E+01_JPRB, 0.298031E+01_JPRB, 0.296575E+01_JPRB &
+  &, 0.295080E+01_JPRB, 0.293548E+01_JPRB, 0.291976E+01_JPRB, 0.290366E+01_JPRB &
+  &, 0.288726E+01_JPRB, 0.287048E+01_JPRB, 0.285333E+01_JPRB &
+  &, 0.283590E+01_JPRB, 0.281815E+01_JPRB, 0.280011E+01_JPRB, 0.278169E+01_JPRB &
+  &, 0.276302E+01_JPRB, 0.274412E+01_JPRB, 0.272486E+01_JPRB &
+  &, 0.270536E+01_JPRB, 0.268559E+01_JPRB, 0.266564E+01_JPRB, 0.264539E+01_JPRB &
+  &, 0.262489E+01_JPRB, 0.260421E+01_JPRB, 0.258325E+01_JPRB/)
+XCW( 907, :) = (/ &
+  &  0.113449E+01_JPRB, 0.116876E+01_JPRB, 0.120324E+01_JPRB, 0.123793E+01_JPRB &
+  &, 0.127280E+01_JPRB, 0.130784E+01_JPRB, 0.134302E+01_JPRB &
+  &, 0.137833E+01_JPRB, 0.141375E+01_JPRB, 0.144926E+01_JPRB, 0.148484E+01_JPRB &
+  &, 0.152047E+01_JPRB, 0.155614E+01_JPRB, 0.159182E+01_JPRB &
+  &, 0.162750E+01_JPRB, 0.166316E+01_JPRB, 0.169877E+01_JPRB, 0.173432E+01_JPRB &
+  &, 0.176980E+01_JPRB, 0.180517E+01_JPRB, 0.184043E+01_JPRB &
+  &, 0.187556E+01_JPRB, 0.191053E+01_JPRB, 0.194533E+01_JPRB, 0.197994E+01_JPRB &
+  &, 0.201434E+01_JPRB, 0.204851E+01_JPRB, 0.208245E+01_JPRB &
+  &, 0.211612E+01_JPRB, 0.214952E+01_JPRB, 0.218262E+01_JPRB, 0.221541E+01_JPRB &
+  &, 0.224787E+01_JPRB, 0.228000E+01_JPRB, 0.231176E+01_JPRB &
+  &, 0.234315E+01_JPRB, 0.237415E+01_JPRB, 0.240476E+01_JPRB, 0.243494E+01_JPRB &
+  &, 0.246469E+01_JPRB, 0.249401E+01_JPRB, 0.252287E+01_JPRB &
+  &, 0.255126E+01_JPRB, 0.257918E+01_JPRB, 0.260660E+01_JPRB, 0.263352E+01_JPRB &
+  &, 0.265994E+01_JPRB, 0.268583E+01_JPRB, 0.271118E+01_JPRB &
+  &, 0.273601E+01_JPRB, 0.276029E+01_JPRB, 0.278400E+01_JPRB, 0.280715E+01_JPRB &
+  &, 0.282972E+01_JPRB, 0.285172E+01_JPRB, 0.287313E+01_JPRB &
+  &, 0.289396E+01_JPRB, 0.291418E+01_JPRB, 0.293380E+01_JPRB, 0.295282E+01_JPRB &
+  &, 0.297121E+01_JPRB, 0.298899E+01_JPRB, 0.300616E+01_JPRB &
+  &, 0.302271E+01_JPRB, 0.303863E+01_JPRB, 0.305391E+01_JPRB, 0.306857E+01_JPRB &
+  &, 0.308261E+01_JPRB, 0.309600E+01_JPRB, 0.310877E+01_JPRB &
+  &, 0.312088E+01_JPRB, 0.313236E+01_JPRB, 0.314322E+01_JPRB, 0.315345E+01_JPRB &
+  &, 0.316302E+01_JPRB, 0.317196E+01_JPRB, 0.318027E+01_JPRB &
+  &, 0.318795E+01_JPRB, 0.319501E+01_JPRB, 0.320142E+01_JPRB, 0.320721E+01_JPRB &
+  &, 0.321238E+01_JPRB, 0.321693E+01_JPRB, 0.322084E+01_JPRB &
+  &, 0.322417E+01_JPRB, 0.322688E+01_JPRB, 0.322897E+01_JPRB, 0.323045E+01_JPRB &
+  &, 0.323134E+01_JPRB, 0.323164E+01_JPRB, 0.323135E+01_JPRB &
+  &, 0.323047E+01_JPRB, 0.322900E+01_JPRB, 0.322694E+01_JPRB, 0.322433E+01_JPRB &
+  &, 0.322116E+01_JPRB, 0.321743E+01_JPRB, 0.321315E+01_JPRB &
+  &, 0.320829E+01_JPRB, 0.320293E+01_JPRB, 0.319699E+01_JPRB, 0.319057E+01_JPRB &
+  &, 0.318357E+01_JPRB, 0.317612E+01_JPRB, 0.316812E+01_JPRB &
+  &, 0.315961E+01_JPRB, 0.315063E+01_JPRB, 0.314113E+01_JPRB, 0.313117E+01_JPRB &
+  &, 0.312073E+01_JPRB, 0.310983E+01_JPRB, 0.309849E+01_JPRB &
+  &, 0.308669E+01_JPRB, 0.307445E+01_JPRB, 0.306174E+01_JPRB, 0.304864E+01_JPRB &
+  &, 0.303513E+01_JPRB, 0.302116E+01_JPRB, 0.300682E+01_JPRB &
+  &, 0.299209E+01_JPRB, 0.297697E+01_JPRB, 0.296150E+01_JPRB, 0.294564E+01_JPRB &
+  &, 0.292937E+01_JPRB, 0.291282E+01_JPRB, 0.289590E+01_JPRB &
+  &, 0.287863E+01_JPRB, 0.286103E+01_JPRB, 0.284314E+01_JPRB, 0.282486E+01_JPRB &
+  &, 0.280644E+01_JPRB, 0.278761E+01_JPRB, 0.276852E+01_JPRB &
+  &, 0.274919E+01_JPRB, 0.272958E+01_JPRB, 0.270965E+01_JPRB, 0.268956E+01_JPRB &
+  &, 0.266906E+01_JPRB, 0.264858E+01_JPRB, 0.262773E+01_JPRB/)
+XCW( 908, :) = (/ &
+  &  0.113515E+01_JPRB, 0.116960E+01_JPRB, 0.120427E+01_JPRB, 0.123915E+01_JPRB &
+  &, 0.127422E+01_JPRB, 0.130946E+01_JPRB, 0.134486E+01_JPRB &
+  &, 0.138039E+01_JPRB, 0.141603E+01_JPRB, 0.145177E+01_JPRB, 0.148759E+01_JPRB &
+  &, 0.152346E+01_JPRB, 0.155938E+01_JPRB, 0.159532E+01_JPRB &
+  &, 0.163126E+01_JPRB, 0.166718E+01_JPRB, 0.170307E+01_JPRB, 0.173890E+01_JPRB &
+  &, 0.177466E+01_JPRB, 0.181032E+01_JPRB, 0.184587E+01_JPRB &
+  &, 0.188130E+01_JPRB, 0.191657E+01_JPRB, 0.195168E+01_JPRB, 0.198661E+01_JPRB &
+  &, 0.202133E+01_JPRB, 0.205583E+01_JPRB, 0.209010E+01_JPRB &
+  &, 0.212410E+01_JPRB, 0.215784E+01_JPRB, 0.219128E+01_JPRB, 0.222442E+01_JPRB &
+  &, 0.225723E+01_JPRB, 0.228971E+01_JPRB, 0.232184E+01_JPRB &
+  &, 0.235359E+01_JPRB, 0.238497E+01_JPRB, 0.241593E+01_JPRB, 0.244650E+01_JPRB &
+  &, 0.247663E+01_JPRB, 0.250633E+01_JPRB, 0.253557E+01_JPRB &
+  &, 0.256436E+01_JPRB, 0.259267E+01_JPRB, 0.262049E+01_JPRB, 0.264781E+01_JPRB &
+  &, 0.267461E+01_JPRB, 0.270091E+01_JPRB, 0.272668E+01_JPRB &
+  &, 0.275190E+01_JPRB, 0.277658E+01_JPRB, 0.280071E+01_JPRB, 0.282427E+01_JPRB &
+  &, 0.284726E+01_JPRB, 0.286968E+01_JPRB, 0.289151E+01_JPRB &
+  &, 0.291274E+01_JPRB, 0.293339E+01_JPRB, 0.295343E+01_JPRB, 0.297286E+01_JPRB &
+  &, 0.299169E+01_JPRB, 0.300991E+01_JPRB, 0.302749E+01_JPRB &
+  &, 0.304447E+01_JPRB, 0.306081E+01_JPRB, 0.307652E+01_JPRB, 0.309160E+01_JPRB &
+  &, 0.310606E+01_JPRB, 0.311987E+01_JPRB, 0.313305E+01_JPRB &
+  &, 0.314562E+01_JPRB, 0.315751E+01_JPRB, 0.316879E+01_JPRB, 0.317943E+01_JPRB &
+  &, 0.318942E+01_JPRB, 0.319878E+01_JPRB, 0.320753E+01_JPRB &
+  &, 0.321563E+01_JPRB, 0.322309E+01_JPRB, 0.322991E+01_JPRB, 0.323610E+01_JPRB &
+  &, 0.324168E+01_JPRB, 0.324664E+01_JPRB, 0.325098E+01_JPRB &
+  &, 0.325469E+01_JPRB, 0.325780E+01_JPRB, 0.326028E+01_JPRB, 0.326216E+01_JPRB &
+  &, 0.326343E+01_JPRB, 0.326414E+01_JPRB, 0.326419E+01_JPRB &
+  &, 0.326372E+01_JPRB, 0.326262E+01_JPRB, 0.326093E+01_JPRB, 0.325869E+01_JPRB &
+  &, 0.325588E+01_JPRB, 0.325252E+01_JPRB, 0.324857E+01_JPRB &
+  &, 0.324410E+01_JPRB, 0.323906E+01_JPRB, 0.323348E+01_JPRB, 0.322737E+01_JPRB &
+  &, 0.322075E+01_JPRB, 0.321357E+01_JPRB, 0.320592E+01_JPRB &
+  &, 0.319774E+01_JPRB, 0.318905E+01_JPRB, 0.317988E+01_JPRB, 0.317025E+01_JPRB &
+  &, 0.316009E+01_JPRB, 0.314950E+01_JPRB, 0.313843E+01_JPRB &
+  &, 0.312689E+01_JPRB, 0.311491E+01_JPRB, 0.310250E+01_JPRB, 0.308965E+01_JPRB &
+  &, 0.307642E+01_JPRB, 0.306269E+01_JPRB, 0.304863E+01_JPRB &
+  &, 0.303411E+01_JPRB, 0.301921E+01_JPRB, 0.300395E+01_JPRB, 0.298830E+01_JPRB &
+  &, 0.297228E+01_JPRB, 0.295591E+01_JPRB, 0.293922E+01_JPRB &
+  &, 0.292213E+01_JPRB, 0.290386E+01_JPRB, 0.288702E+01_JPRB, 0.286895E+01_JPRB &
+  &, 0.285061E+01_JPRB, 0.283198E+01_JPRB, 0.281302E+01_JPRB &
+  &, 0.279381E+01_JPRB, 0.277431E+01_JPRB, 0.275455E+01_JPRB, 0.273454E+01_JPRB &
+  &, 0.271426E+01_JPRB, 0.269378E+01_JPRB, 0.267307E+01_JPRB/)
+XCW( 909, :) = (/ &
+  &  0.113581E+01_JPRB, 0.117044E+01_JPRB, 0.120530E+01_JPRB, 0.124038E+01_JPRB &
+  &, 0.127565E+01_JPRB, 0.131110E+01_JPRB, 0.134671E+01_JPRB &
+  &, 0.138246E+01_JPRB, 0.141833E+01_JPRB, 0.145430E+01_JPRB, 0.149036E+01_JPRB &
+  &, 0.152648E+01_JPRB, 0.156265E+01_JPRB, 0.159885E+01_JPRB &
+  &, 0.163505E+01_JPRB, 0.167124E+01_JPRB, 0.170740E+01_JPRB, 0.174352E+01_JPRB &
+  &, 0.177956E+01_JPRB, 0.181552E+01_JPRB, 0.185137E+01_JPRB &
+  &, 0.188710E+01_JPRB, 0.192268E+01_JPRB, 0.195810E+01_JPRB, 0.199335E+01_JPRB &
+  &, 0.202839E+01_JPRB, 0.206322E+01_JPRB, 0.209782E+01_JPRB &
+  &, 0.213217E+01_JPRB, 0.216624E+01_JPRB, 0.220003E+01_JPRB, 0.223353E+01_JPRB &
+  &, 0.226670E+01_JPRB, 0.229954E+01_JPRB, 0.233203E+01_JPRB &
+  &, 0.236415E+01_JPRB, 0.239590E+01_JPRB, 0.242724E+01_JPRB, 0.245818E+01_JPRB &
+  &, 0.248871E+01_JPRB, 0.251878E+01_JPRB, 0.254842E+01_JPRB &
+  &, 0.257760E+01_JPRB, 0.260630E+01_JPRB, 0.263452E+01_JPRB, 0.266225E+01_JPRB &
+  &, 0.268946E+01_JPRB, 0.271616E+01_JPRB, 0.274234E+01_JPRB &
+  &, 0.276798E+01_JPRB, 0.279307E+01_JPRB, 0.281762E+01_JPRB, 0.284160E+01_JPRB &
+  &, 0.286501E+01_JPRB, 0.288785E+01_JPRB, 0.291011E+01_JPRB &
+  &, 0.293177E+01_JPRB, 0.295284E+01_JPRB, 0.297331E+01_JPRB, 0.299318E+01_JPRB &
+  &, 0.301243E+01_JPRB, 0.303107E+01_JPRB, 0.304910E+01_JPRB &
+  &, 0.306650E+01_JPRB, 0.308327E+01_JPRB, 0.309941E+01_JPRB, 0.311493E+01_JPRB &
+  &, 0.312981E+01_JPRB, 0.314407E+01_JPRB, 0.315769E+01_JPRB &
+  &, 0.317065E+01_JPRB, 0.318300E+01_JPRB, 0.319470E+01_JPRB, 0.320577E+01_JPRB &
+  &, 0.321619E+01_JPRB, 0.322598E+01_JPRB, 0.323513E+01_JPRB &
+  &, 0.324364E+01_JPRB, 0.325155E+01_JPRB, 0.325875E+01_JPRB, 0.326540E+01_JPRB &
+  &, 0.327140E+01_JPRB, 0.327677E+01_JPRB, 0.328150E+01_JPRB &
+  &, 0.328563E+01_JPRB, 0.328913E+01_JPRB, 0.329202E+01_JPRB, 0.329432E+01_JPRB &
+  &, 0.329601E+01_JPRB, 0.329706E+01_JPRB, 0.329754E+01_JPRB &
+  &, 0.329744E+01_JPRB, 0.329673E+01_JPRB, 0.329545E+01_JPRB, 0.329358E+01_JPRB &
+  &, 0.329112E+01_JPRB, 0.328813E+01_JPRB, 0.328454E+01_JPRB &
+  &, 0.328044E+01_JPRB, 0.327574E+01_JPRB, 0.327052E+01_JPRB, 0.326477E+01_JPRB &
+  &, 0.325847E+01_JPRB, 0.325164E+01_JPRB, 0.324434E+01_JPRB &
+  &, 0.323647E+01_JPRB, 0.322813E+01_JPRB, 0.321926E+01_JPRB, 0.320991E+01_JPRB &
+  &, 0.320008E+01_JPRB, 0.318978E+01_JPRB, 0.317899E+01_JPRB &
+  &, 0.316777E+01_JPRB, 0.315610E+01_JPRB, 0.314396E+01_JPRB, 0.313136E+01_JPRB &
+  &, 0.311838E+01_JPRB, 0.310495E+01_JPRB, 0.309108E+01_JPRB &
+  &, 0.307684E+01_JPRB, 0.306222E+01_JPRB, 0.304717E+01_JPRB, 0.303173E+01_JPRB &
+  &, 0.301592E+01_JPRB, 0.299970E+01_JPRB, 0.298326E+01_JPRB &
+  &, 0.296640E+01_JPRB, 0.294921E+01_JPRB, 0.293164E+01_JPRB, 0.291379E+01_JPRB &
+  &, 0.289561E+01_JPRB, 0.287712E+01_JPRB, 0.285836E+01_JPRB &
+  &, 0.283927E+01_JPRB, 0.281990E+01_JPRB, 0.280031E+01_JPRB, 0.278041E+01_JPRB &
+  &, 0.276029E+01_JPRB, 0.273990E+01_JPRB, 0.271927E+01_JPRB/)
+XCW( 910, :) = (/ &
+  &  0.113648E+01_JPRB, 0.117129E+01_JPRB, 0.120634E+01_JPRB, 0.124162E+01_JPRB &
+  &, 0.127709E+01_JPRB, 0.131275E+01_JPRB, 0.134858E+01_JPRB &
+  &, 0.138455E+01_JPRB, 0.142065E+01_JPRB, 0.145686E+01_JPRB, 0.149316E+01_JPRB &
+  &, 0.152953E+01_JPRB, 0.156596E+01_JPRB, 0.160241E+01_JPRB &
+  &, 0.163888E+01_JPRB, 0.167535E+01_JPRB, 0.171178E+01_JPRB, 0.174818E+01_JPRB &
+  &, 0.178452E+01_JPRB, 0.182077E+01_JPRB, 0.185692E+01_JPRB &
+  &, 0.189295E+01_JPRB, 0.192885E+01_JPRB, 0.196459E+01_JPRB, 0.200016E+01_JPRB &
+  &, 0.203553E+01_JPRB, 0.207069E+01_JPRB, 0.210563E+01_JPRB &
+  &, 0.214031E+01_JPRB, 0.217474E+01_JPRB, 0.220888E+01_JPRB, 0.224273E+01_JPRB &
+  &, 0.227626E+01_JPRB, 0.230946E+01_JPRB, 0.234232E+01_JPRB &
+  &, 0.237482E+01_JPRB, 0.240694E+01_JPRB, 0.243868E+01_JPRB, 0.247000E+01_JPRB &
+  &, 0.250091E+01_JPRB, 0.253139E+01_JPRB, 0.256142E+01_JPRB &
+  &, 0.259099E+01_JPRB, 0.262009E+01_JPRB, 0.264872E+01_JPRB, 0.267685E+01_JPRB &
+  &, 0.270448E+01_JPRB, 0.273160E+01_JPRB, 0.275818E+01_JPRB &
+  &, 0.278425E+01_JPRB, 0.280976E+01_JPRB, 0.283472E+01_JPRB, 0.285913E+01_JPRB &
+  &, 0.288297E+01_JPRB, 0.290624E+01_JPRB, 0.292893E+01_JPRB &
+  &, 0.295102E+01_JPRB, 0.297252E+01_JPRB, 0.299342E+01_JPRB, 0.301373E+01_JPRB &
+  &, 0.303341E+01_JPRB, 0.305250E+01_JPRB, 0.307096E+01_JPRB &
+  &, 0.308880E+01_JPRB, 0.310601E+01_JPRB, 0.312259E+01_JPRB, 0.313856E+01_JPRB &
+  &, 0.315388E+01_JPRB, 0.316856E+01_JPRB, 0.318261E+01_JPRB &
+  &, 0.319604E+01_JPRB, 0.320882E+01_JPRB, 0.322095E+01_JPRB, 0.323245E+01_JPRB &
+  &, 0.324330E+01_JPRB, 0.325354E+01_JPRB, 0.326312E+01_JPRB &
+  &, 0.327205E+01_JPRB, 0.328037E+01_JPRB, 0.328804E+01_JPRB, 0.329510E+01_JPRB &
+  &, 0.330152E+01_JPRB, 0.330731E+01_JPRB, 0.331246E+01_JPRB &
+  &, 0.331701E+01_JPRB, 0.332094E+01_JPRB, 0.332423E+01_JPRB, 0.332692E+01_JPRB &
+  &, 0.332903E+01_JPRB, 0.333048E+01_JPRB, 0.333137E+01_JPRB &
+  &, 0.333164E+01_JPRB, 0.333135E+01_JPRB, 0.333042E+01_JPRB, 0.332894E+01_JPRB &
+  &, 0.332689E+01_JPRB, 0.332426E+01_JPRB, 0.332102E+01_JPRB &
+  &, 0.331704E+01_JPRB, 0.331300E+01_JPRB, 0.330815E+01_JPRB, 0.330273E+01_JPRB &
+  &, 0.329680E+01_JPRB, 0.329033E+01_JPRB, 0.328331E+01_JPRB &
+  &, 0.327580E+01_JPRB, 0.326777E+01_JPRB, 0.325925E+01_JPRB, 0.325025E+01_JPRB &
+  &, 0.324072E+01_JPRB, 0.323072E+01_JPRB, 0.322025E+01_JPRB &
+  &, 0.320932E+01_JPRB, 0.319793E+01_JPRB, 0.318606E+01_JPRB, 0.317378E+01_JPRB &
+  &, 0.316106E+01_JPRB, 0.314788E+01_JPRB, 0.313431E+01_JPRB &
+  &, 0.312032E+01_JPRB, 0.310593E+01_JPRB, 0.309112E+01_JPRB, 0.307595E+01_JPRB &
+  &, 0.306035E+01_JPRB, 0.304440E+01_JPRB, 0.302811E+01_JPRB &
+  &, 0.301144E+01_JPRB, 0.299444E+01_JPRB, 0.297711E+01_JPRB, 0.295943E+01_JPRB &
+  &, 0.294141E+01_JPRB, 0.292315E+01_JPRB, 0.290453E+01_JPRB &
+  &, 0.288559E+01_JPRB, 0.286641E+01_JPRB, 0.284695E+01_JPRB, 0.282717E+01_JPRB &
+  &, 0.280715E+01_JPRB, 0.278686E+01_JPRB, 0.276638E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART130',1,ZHOOK_HANDLE)
+END SUBROUTINE PART130
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART131
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART131',0,ZHOOK_HANDLE)
+
+XCW( 911, :) = (/ &
+  &  0.113715E+01_JPRB, 0.117215E+01_JPRB, 0.120739E+01_JPRB, 0.124287E+01_JPRB &
+  &, 0.127855E+01_JPRB, 0.131442E+01_JPRB, 0.135047E+01_JPRB &
+  &, 0.138666E+01_JPRB, 0.142300E+01_JPRB, 0.145945E+01_JPRB, 0.149599E+01_JPRB &
+  &, 0.153261E+01_JPRB, 0.156929E+01_JPRB, 0.160601E+01_JPRB &
+  &, 0.164275E+01_JPRB, 0.167949E+01_JPRB, 0.171621E+01_JPRB, 0.175289E+01_JPRB &
+  &, 0.178952E+01_JPRB, 0.182607E+01_JPRB, 0.186253E+01_JPRB &
+  &, 0.189887E+01_JPRB, 0.193508E+01_JPRB, 0.197114E+01_JPRB, 0.200704E+01_JPRB &
+  &, 0.204274E+01_JPRB, 0.207824E+01_JPRB, 0.211352E+01_JPRB &
+  &, 0.214855E+01_JPRB, 0.218332E+01_JPRB, 0.221783E+01_JPRB, 0.225203E+01_JPRB &
+  &, 0.228593E+01_JPRB, 0.231950E+01_JPRB, 0.235274E+01_JPRB &
+  &, 0.238561E+01_JPRB, 0.241812E+01_JPRB, 0.245023E+01_JPRB, 0.248195E+01_JPRB &
+  &, 0.251325E+01_JPRB, 0.254413E+01_JPRB, 0.257455E+01_JPRB &
+  &, 0.260454E+01_JPRB, 0.263405E+01_JPRB, 0.266308E+01_JPRB, 0.269163E+01_JPRB &
+  &, 0.271968E+01_JPRB, 0.274721E+01_JPRB, 0.277423E+01_JPRB &
+  &, 0.280070E+01_JPRB, 0.282665E+01_JPRB, 0.285204E+01_JPRB, 0.287686E+01_JPRB &
+  &, 0.290115E+01_JPRB, 0.292485E+01_JPRB, 0.294798E+01_JPRB &
+  &, 0.297051E+01_JPRB, 0.299246E+01_JPRB, 0.301380E+01_JPRB, 0.303454E+01_JPRB &
+  &, 0.305468E+01_JPRB, 0.307420E+01_JPRB, 0.309310E+01_JPRB &
+  &, 0.311139E+01_JPRB, 0.312905E+01_JPRB, 0.314608E+01_JPRB, 0.316248E+01_JPRB &
+  &, 0.317824E+01_JPRB, 0.319338E+01_JPRB, 0.320789E+01_JPRB &
+  &, 0.322175E+01_JPRB, 0.323496E+01_JPRB, 0.324755E+01_JPRB, 0.325949E+01_JPRB &
+  &, 0.327081E+01_JPRB, 0.328146E+01_JPRB, 0.329147E+01_JPRB &
+  &, 0.330087E+01_JPRB, 0.330962E+01_JPRB, 0.331774E+01_JPRB, 0.332520E+01_JPRB &
+  &, 0.333205E+01_JPRB, 0.333828E+01_JPRB, 0.334386E+01_JPRB &
+  &, 0.334884E+01_JPRB, 0.335317E+01_JPRB, 0.335689E+01_JPRB, 0.336002E+01_JPRB &
+  &, 0.336250E+01_JPRB, 0.336438E+01_JPRB, 0.336568E+01_JPRB &
+  &, 0.336637E+01_JPRB, 0.336645E+01_JPRB, 0.336596E+01_JPRB, 0.336487E+01_JPRB &
+  &, 0.336322E+01_JPRB, 0.336097E+01_JPRB, 0.335816E+01_JPRB &
+  &, 0.335475E+01_JPRB, 0.335084E+01_JPRB, 0.334634E+01_JPRB, 0.334130E+01_JPRB &
+  &, 0.333570E+01_JPRB, 0.332961E+01_JPRB, 0.332296E+01_JPRB &
+  &, 0.331578E+01_JPRB, 0.330811E+01_JPRB, 0.329991E+01_JPRB, 0.329123E+01_JPRB &
+  &, 0.328200E+01_JPRB, 0.327234E+01_JPRB, 0.326218E+01_JPRB &
+  &, 0.325154E+01_JPRB, 0.324039E+01_JPRB, 0.322890E+01_JPRB, 0.321690E+01_JPRB &
+  &, 0.320445E+01_JPRB, 0.319159E+01_JPRB, 0.317827E+01_JPRB &
+  &, 0.316454E+01_JPRB, 0.315040E+01_JPRB, 0.313583E+01_JPRB, 0.312090E+01_JPRB &
+  &, 0.310558E+01_JPRB, 0.308985E+01_JPRB, 0.307377E+01_JPRB &
+  &, 0.305732E+01_JPRB, 0.304057E+01_JPRB, 0.302343E+01_JPRB, 0.300594E+01_JPRB &
+  &, 0.298810E+01_JPRB, 0.297000E+01_JPRB, 0.295155E+01_JPRB &
+  &, 0.293282E+01_JPRB, 0.291378E+01_JPRB, 0.289446E+01_JPRB, 0.287480E+01_JPRB &
+  &, 0.285497E+01_JPRB, 0.283479E+01_JPRB, 0.281442E+01_JPRB/)
+XCW( 912, :) = (/ &
+  &  0.113783E+01_JPRB, 0.117302E+01_JPRB, 0.120846E+01_JPRB, 0.124413E+01_JPRB &
+  &, 0.128002E+01_JPRB, 0.131611E+01_JPRB, 0.135237E+01_JPRB &
+  &, 0.138880E+01_JPRB, 0.142536E+01_JPRB, 0.146205E+01_JPRB, 0.149884E+01_JPRB &
+  &, 0.153572E+01_JPRB, 0.157266E+01_JPRB, 0.160964E+01_JPRB &
+  &, 0.164665E+01_JPRB, 0.168367E+01_JPRB, 0.172068E+01_JPRB, 0.175765E+01_JPRB &
+  &, 0.179458E+01_JPRB, 0.183143E+01_JPRB, 0.186819E+01_JPRB &
+  &, 0.190485E+01_JPRB, 0.194138E+01_JPRB, 0.197777E+01_JPRB, 0.201399E+01_JPRB &
+  &, 0.205003E+01_JPRB, 0.208587E+01_JPRB, 0.212149E+01_JPRB &
+  &, 0.215687E+01_JPRB, 0.219201E+01_JPRB, 0.222687E+01_JPRB, 0.226144E+01_JPRB &
+  &, 0.229571E+01_JPRB, 0.232966E+01_JPRB, 0.236326E+01_JPRB &
+  &, 0.239653E+01_JPRB, 0.242942E+01_JPRB, 0.246192E+01_JPRB, 0.249403E+01_JPRB &
+  &, 0.252574E+01_JPRB, 0.255701E+01_JPRB, 0.258785E+01_JPRB &
+  &, 0.261824E+01_JPRB, 0.264817E+01_JPRB, 0.267761E+01_JPRB, 0.270658E+01_JPRB &
+  &, 0.273505E+01_JPRB, 0.276301E+01_JPRB, 0.279045E+01_JPRB &
+  &, 0.281736E+01_JPRB, 0.284374E+01_JPRB, 0.286957E+01_JPRB, 0.289484E+01_JPRB &
+  &, 0.291956E+01_JPRB, 0.294369E+01_JPRB, 0.296727E+01_JPRB &
+  &, 0.299024E+01_JPRB, 0.301263E+01_JPRB, 0.303442E+01_JPRB, 0.305562E+01_JPRB &
+  &, 0.307621E+01_JPRB, 0.309617E+01_JPRB, 0.311553E+01_JPRB &
+  &, 0.313426E+01_JPRB, 0.315239E+01_JPRB, 0.316987E+01_JPRB, 0.318672E+01_JPRB &
+  &, 0.320294E+01_JPRB, 0.321854E+01_JPRB, 0.323347E+01_JPRB &
+  &, 0.324779E+01_JPRB, 0.326147E+01_JPRB, 0.327450E+01_JPRB, 0.328691E+01_JPRB &
+  &, 0.329865E+01_JPRB, 0.330976E+01_JPRB, 0.332023E+01_JPRB &
+  &, 0.333004E+01_JPRB, 0.333927E+01_JPRB, 0.334783E+01_JPRB, 0.335575E+01_JPRB &
+  &, 0.336303E+01_JPRB, 0.336970E+01_JPRB, 0.337572E+01_JPRB &
+  &, 0.338112E+01_JPRB, 0.338589E+01_JPRB, 0.339005E+01_JPRB, 0.339359E+01_JPRB &
+  &, 0.339648E+01_JPRB, 0.339881E+01_JPRB, 0.340051E+01_JPRB &
+  &, 0.340162E+01_JPRB, 0.340210E+01_JPRB, 0.340201E+01_JPRB, 0.340133E+01_JPRB &
+  &, 0.340005E+01_JPRB, 0.339820E+01_JPRB, 0.339579E+01_JPRB &
+  &, 0.339278E+01_JPRB, 0.338922E+01_JPRB, 0.338511E+01_JPRB, 0.338047E+01_JPRB &
+  &, 0.337522E+01_JPRB, 0.336936E+01_JPRB, 0.336320E+01_JPRB &
+  &, 0.335639E+01_JPRB, 0.334906E+01_JPRB, 0.334119E+01_JPRB, 0.333287E+01_JPRB &
+  &, 0.332401E+01_JPRB, 0.331467E+01_JPRB, 0.330482E+01_JPRB &
+  &, 0.329448E+01_JPRB, 0.328373E+01_JPRB, 0.327248E+01_JPRB, 0.326077E+01_JPRB &
+  &, 0.324861E+01_JPRB, 0.323602E+01_JPRB, 0.322298E+01_JPRB &
+  &, 0.320951E+01_JPRB, 0.319563E+01_JPRB, 0.318136E+01_JPRB, 0.316668E+01_JPRB &
+  &, 0.315160E+01_JPRB, 0.313610E+01_JPRB, 0.312030E+01_JPRB &
+  &, 0.310407E+01_JPRB, 0.308748E+01_JPRB, 0.307055E+01_JPRB, 0.305331E+01_JPRB &
+  &, 0.303566E+01_JPRB, 0.301774E+01_JPRB, 0.299946E+01_JPRB &
+  &, 0.298090E+01_JPRB, 0.296202E+01_JPRB, 0.294290E+01_JPRB, 0.292345E+01_JPRB &
+  &, 0.290369E+01_JPRB, 0.288370E+01_JPRB, 0.286344E+01_JPRB/)
+XCW( 913, :) = (/ &
+  &  0.113852E+01_JPRB, 0.117389E+01_JPRB, 0.120953E+01_JPRB, 0.124540E+01_JPRB &
+  &, 0.128150E+01_JPRB, 0.131780E+01_JPRB, 0.135429E+01_JPRB &
+  &, 0.139095E+01_JPRB, 0.142775E+01_JPRB, 0.146468E+01_JPRB, 0.150173E+01_JPRB &
+  &, 0.153886E+01_JPRB, 0.157606E+01_JPRB, 0.161331E+01_JPRB &
+  &, 0.165060E+01_JPRB, 0.168790E+01_JPRB, 0.172519E+01_JPRB, 0.176246E+01_JPRB &
+  &, 0.179968E+01_JPRB, 0.183684E+01_JPRB, 0.187392E+01_JPRB &
+  &, 0.191089E+01_JPRB, 0.194775E+01_JPRB, 0.198446E+01_JPRB, 0.202102E+01_JPRB &
+  &, 0.205740E+01_JPRB, 0.209358E+01_JPRB, 0.212955E+01_JPRB &
+  &, 0.216529E+01_JPRB, 0.220078E+01_JPRB, 0.223601E+01_JPRB, 0.227095E+01_JPRB &
+  &, 0.230559E+01_JPRB, 0.233992E+01_JPRB, 0.237391E+01_JPRB &
+  &, 0.240756E+01_JPRB, 0.244084E+01_JPRB, 0.247375E+01_JPRB, 0.250626E+01_JPRB &
+  &, 0.253836E+01_JPRB, 0.257005E+01_JPRB, 0.260130E+01_JPRB &
+  &, 0.263211E+01_JPRB, 0.266245E+01_JPRB, 0.269232E+01_JPRB, 0.272171E+01_JPRB &
+  &, 0.275060E+01_JPRB, 0.277900E+01_JPRB, 0.280687E+01_JPRB &
+  &, 0.283422E+01_JPRB, 0.286104E+01_JPRB, 0.288731E+01_JPRB, 0.291303E+01_JPRB &
+  &, 0.293819E+01_JPRB, 0.296278E+01_JPRB, 0.298679E+01_JPRB &
+  &, 0.301022E+01_JPRB, 0.303307E+01_JPRB, 0.305532E+01_JPRB, 0.307696E+01_JPRB &
+  &, 0.309800E+01_JPRB, 0.311843E+01_JPRB, 0.313825E+01_JPRB &
+  &, 0.315745E+01_JPRB, 0.317602E+01_JPRB, 0.319397E+01_JPRB, 0.321128E+01_JPRB &
+  &, 0.322796E+01_JPRB, 0.324401E+01_JPRB, 0.325943E+01_JPRB &
+  &, 0.327419E+01_JPRB, 0.328834E+01_JPRB, 0.330182E+01_JPRB, 0.331469E+01_JPRB &
+  &, 0.332689E+01_JPRB, 0.333845E+01_JPRB, 0.334938E+01_JPRB &
+  &, 0.335968E+01_JPRB, 0.336933E+01_JPRB, 0.337834E+01_JPRB, 0.338670E+01_JPRB &
+  &, 0.339446E+01_JPRB, 0.340155E+01_JPRB, 0.340802E+01_JPRB &
+  &, 0.341386E+01_JPRB, 0.341906E+01_JPRB, 0.342367E+01_JPRB, 0.342763E+01_JPRB &
+  &, 0.343097E+01_JPRB, 0.343372E+01_JPRB, 0.343585E+01_JPRB &
+  &, 0.343737E+01_JPRB, 0.343827E+01_JPRB, 0.343860E+01_JPRB, 0.343833E+01_JPRB &
+  &, 0.343746E+01_JPRB, 0.343603E+01_JPRB, 0.343402E+01_JPRB &
+  &, 0.343141E+01_JPRB, 0.342812E+01_JPRB, 0.342452E+01_JPRB, 0.342024E+01_JPRB &
+  &, 0.341539E+01_JPRB, 0.341003E+01_JPRB, 0.340412E+01_JPRB &
+  &, 0.339766E+01_JPRB, 0.339067E+01_JPRB, 0.338317E+01_JPRB, 0.337519E+01_JPRB &
+  &, 0.336666E+01_JPRB, 0.335765E+01_JPRB, 0.334816E+01_JPRB &
+  &, 0.333819E+01_JPRB, 0.332770E+01_JPRB, 0.331676E+01_JPRB, 0.330539E+01_JPRB &
+  &, 0.329352E+01_JPRB, 0.328123E+01_JPRB, 0.326847E+01_JPRB &
+  &, 0.325533E+01_JPRB, 0.324172E+01_JPRB, 0.322767E+01_JPRB, 0.321329E+01_JPRB &
+  &, 0.319842E+01_JPRB, 0.318321E+01_JPRB, 0.316760E+01_JPRB &
+  &, 0.315165E+01_JPRB, 0.313528E+01_JPRB, 0.311851E+01_JPRB, 0.310154E+01_JPRB &
+  &, 0.308415E+01_JPRB, 0.306642E+01_JPRB, 0.304833E+01_JPRB &
+  &, 0.302995E+01_JPRB, 0.301124E+01_JPRB, 0.299179E+01_JPRB, 0.297299E+01_JPRB &
+  &, 0.295337E+01_JPRB, 0.293351E+01_JPRB, 0.291338E+01_JPRB/)
+XCW( 914, :) = (/ &
+  &  0.113921E+01_JPRB, 0.117477E+01_JPRB, 0.121061E+01_JPRB, 0.124669E+01_JPRB &
+  &, 0.128300E+01_JPRB, 0.131952E+01_JPRB, 0.135623E+01_JPRB &
+  &, 0.139312E+01_JPRB, 0.143016E+01_JPRB, 0.146734E+01_JPRB, 0.150464E+01_JPRB &
+  &, 0.154203E+01_JPRB, 0.157949E+01_JPRB, 0.161702E+01_JPRB &
+  &, 0.165458E+01_JPRB, 0.169217E+01_JPRB, 0.172975E+01_JPRB, 0.176732E+01_JPRB &
+  &, 0.180484E+01_JPRB, 0.184231E+01_JPRB, 0.187970E+01_JPRB &
+  &, 0.191700E+01_JPRB, 0.195418E+01_JPRB, 0.199123E+01_JPRB, 0.202812E+01_JPRB &
+  &, 0.206484E+01_JPRB, 0.210138E+01_JPRB, 0.213770E+01_JPRB &
+  &, 0.217380E+01_JPRB, 0.220966E+01_JPRB, 0.224525E+01_JPRB, 0.228057E+01_JPRB &
+  &, 0.231559E+01_JPRB, 0.235030E+01_JPRB, 0.238469E+01_JPRB &
+  &, 0.241872E+01_JPRB, 0.245240E+01_JPRB, 0.248571E+01_JPRB, 0.251862E+01_JPRB &
+  &, 0.255114E+01_JPRB, 0.258324E+01_JPRB, 0.261491E+01_JPRB &
+  &, 0.264614E+01_JPRB, 0.267691E+01_JPRB, 0.270721E+01_JPRB, 0.273702E+01_JPRB &
+  &, 0.276635E+01_JPRB, 0.279519E+01_JPRB, 0.282349E+01_JPRB &
+  &, 0.285129E+01_JPRB, 0.287856E+01_JPRB, 0.290527E+01_JPRB, 0.293144E+01_JPRB &
+  &, 0.295706E+01_JPRB, 0.298210E+01_JPRB, 0.300656E+01_JPRB &
+  &, 0.303046E+01_JPRB, 0.305376E+01_JPRB, 0.307648E+01_JPRB, 0.309859E+01_JPRB &
+  &, 0.312009E+01_JPRB, 0.314096E+01_JPRB, 0.316126E+01_JPRB &
+  &, 0.318093E+01_JPRB, 0.319996E+01_JPRB, 0.321838E+01_JPRB, 0.323617E+01_JPRB &
+  &, 0.325329E+01_JPRB, 0.326981E+01_JPRB, 0.328572E+01_JPRB &
+  &, 0.330095E+01_JPRB, 0.331558E+01_JPRB, 0.332952E+01_JPRB, 0.334285E+01_JPRB &
+  &, 0.335551E+01_JPRB, 0.336757E+01_JPRB, 0.337895E+01_JPRB &
+  &, 0.338970E+01_JPRB, 0.339982E+01_JPRB, 0.340928E+01_JPRB, 0.341812E+01_JPRB &
+  &, 0.342631E+01_JPRB, 0.343388E+01_JPRB, 0.344079E+01_JPRB &
+  &, 0.344709E+01_JPRB, 0.345274E+01_JPRB, 0.345778E+01_JPRB, 0.346220E+01_JPRB &
+  &, 0.346598E+01_JPRB, 0.346915E+01_JPRB, 0.347171E+01_JPRB &
+  &, 0.347366E+01_JPRB, 0.347502E+01_JPRB, 0.347577E+01_JPRB, 0.347593E+01_JPRB &
+  &, 0.347548E+01_JPRB, 0.347443E+01_JPRB, 0.347284E+01_JPRB &
+  &, 0.347062E+01_JPRB, 0.346789E+01_JPRB, 0.346456E+01_JPRB, 0.346065E+01_JPRB &
+  &, 0.345620E+01_JPRB, 0.345122E+01_JPRB, 0.344566E+01_JPRB &
+  &, 0.343960E+01_JPRB, 0.343293E+01_JPRB, 0.342587E+01_JPRB, 0.341823E+01_JPRB &
+  &, 0.341004E+01_JPRB, 0.340141E+01_JPRB, 0.339225E+01_JPRB &
+  &, 0.338256E+01_JPRB, 0.337244E+01_JPRB, 0.336182E+01_JPRB, 0.335076E+01_JPRB &
+  &, 0.333920E+01_JPRB, 0.332721E+01_JPRB, 0.331480E+01_JPRB &
+  &, 0.330189E+01_JPRB, 0.328852E+01_JPRB, 0.327484E+01_JPRB, 0.326069E+01_JPRB &
+  &, 0.324613E+01_JPRB, 0.323118E+01_JPRB, 0.321582E+01_JPRB &
+  &, 0.320011E+01_JPRB, 0.318398E+01_JPRB, 0.316750E+01_JPRB, 0.315069E+01_JPRB &
+  &, 0.313351E+01_JPRB, 0.311599E+01_JPRB, 0.309810E+01_JPRB &
+  &, 0.307990E+01_JPRB, 0.306144E+01_JPRB, 0.304260E+01_JPRB, 0.302347E+01_JPRB &
+  &, 0.300407E+01_JPRB, 0.298436E+01_JPRB, 0.296437E+01_JPRB/)
+XCW( 915, :) = (/ &
+  &  0.113991E+01_JPRB, 0.117567E+01_JPRB, 0.121170E+01_JPRB, 0.124798E+01_JPRB &
+  &, 0.128451E+01_JPRB, 0.132125E+01_JPRB, 0.135819E+01_JPRB &
+  &, 0.139532E+01_JPRB, 0.143260E+01_JPRB, 0.147003E+01_JPRB, 0.150758E+01_JPRB &
+  &, 0.154523E+01_JPRB, 0.158296E+01_JPRB, 0.162076E+01_JPRB &
+  &, 0.165861E+01_JPRB, 0.169648E+01_JPRB, 0.173436E+01_JPRB, 0.177223E+01_JPRB &
+  &, 0.181006E+01_JPRB, 0.184784E+01_JPRB, 0.188555E+01_JPRB &
+  &, 0.192317E+01_JPRB, 0.196068E+01_JPRB, 0.199807E+01_JPRB, 0.203530E+01_JPRB &
+  &, 0.207237E+01_JPRB, 0.210926E+01_JPRB, 0.214594E+01_JPRB &
+  &, 0.218241E+01_JPRB, 0.221863E+01_JPRB, 0.225460E+01_JPRB, 0.229030E+01_JPRB &
+  &, 0.232570E+01_JPRB, 0.236080E+01_JPRB, 0.239558E+01_JPRB &
+  &, 0.243001E+01_JPRB, 0.246410E+01_JPRB, 0.249781E+01_JPRB, 0.253115E+01_JPRB &
+  &, 0.256407E+01_JPRB, 0.259660E+01_JPRB, 0.262869E+01_JPRB &
+  &, 0.266033E+01_JPRB, 0.269153E+01_JPRB, 0.272227E+01_JPRB, 0.275252E+01_JPRB &
+  &, 0.278230E+01_JPRB, 0.281158E+01_JPRB, 0.284034E+01_JPRB &
+  &, 0.286858E+01_JPRB, 0.289629E+01_JPRB, 0.292346E+01_JPRB, 0.295010E+01_JPRB &
+  &, 0.297616E+01_JPRB, 0.300167E+01_JPRB, 0.302660E+01_JPRB &
+  &, 0.305096E+01_JPRB, 0.307473E+01_JPRB, 0.309791E+01_JPRB, 0.312049E+01_JPRB &
+  &, 0.314246E+01_JPRB, 0.316382E+01_JPRB, 0.318458E+01_JPRB &
+  &, 0.320472E+01_JPRB, 0.322425E+01_JPRB, 0.324312E+01_JPRB, 0.326140E+01_JPRB &
+  &, 0.327902E+01_JPRB, 0.329601E+01_JPRB, 0.331238E+01_JPRB &
+  &, 0.332809E+01_JPRB, 0.334318E+01_JPRB, 0.335761E+01_JPRB, 0.337141E+01_JPRB &
+  &, 0.338455E+01_JPRB, 0.339706E+01_JPRB, 0.340894E+01_JPRB &
+  &, 0.342012E+01_JPRB, 0.343073E+01_JPRB, 0.344067E+01_JPRB, 0.344998E+01_JPRB &
+  &, 0.345864E+01_JPRB, 0.346667E+01_JPRB, 0.347404E+01_JPRB &
+  &, 0.348081E+01_JPRB, 0.348690E+01_JPRB, 0.349241E+01_JPRB, 0.349727E+01_JPRB &
+  &, 0.350152E+01_JPRB, 0.350513E+01_JPRB, 0.350813E+01_JPRB &
+  &, 0.351055E+01_JPRB, 0.351231E+01_JPRB, 0.351350E+01_JPRB, 0.351403E+01_JPRB &
+  &, 0.351404E+01_JPRB, 0.351346E+01_JPRB, 0.351227E+01_JPRB &
+  &, 0.351047E+01_JPRB, 0.350813E+01_JPRB, 0.350523E+01_JPRB, 0.350173E+01_JPRB &
+  &, 0.349767E+01_JPRB, 0.349306E+01_JPRB, 0.348792E+01_JPRB &
+  &, 0.348223E+01_JPRB, 0.347600E+01_JPRB, 0.346926E+01_JPRB, 0.346199E+01_JPRB &
+  &, 0.345415E+01_JPRB, 0.344586E+01_JPRB, 0.343705E+01_JPRB &
+  &, 0.342775E+01_JPRB, 0.341796E+01_JPRB, 0.340767E+01_JPRB, 0.339694E+01_JPRB &
+  &, 0.338570E+01_JPRB, 0.337401E+01_JPRB, 0.336191E+01_JPRB &
+  &, 0.334931E+01_JPRB, 0.333633E+01_JPRB, 0.332289E+01_JPRB, 0.330902E+01_JPRB &
+  &, 0.329468E+01_JPRB, 0.328001E+01_JPRB, 0.326496E+01_JPRB &
+  &, 0.324946E+01_JPRB, 0.323363E+01_JPRB, 0.321739E+01_JPRB, 0.320076E+01_JPRB &
+  &, 0.318381E+01_JPRB, 0.316651E+01_JPRB, 0.314883E+01_JPRB &
+  &, 0.313041E+01_JPRB, 0.311257E+01_JPRB, 0.309391E+01_JPRB, 0.307502E+01_JPRB &
+  &, 0.305573E+01_JPRB, 0.303625E+01_JPRB, 0.301641E+01_JPRB/)
+XCW( 916, :) = (/ &
+  &  0.114061E+01_JPRB, 0.117656E+01_JPRB, 0.121280E+01_JPRB, 0.124929E+01_JPRB &
+  &, 0.128603E+01_JPRB, 0.132300E+01_JPRB, 0.136017E+01_JPRB &
+  &, 0.139753E+01_JPRB, 0.143506E+01_JPRB, 0.147274E+01_JPRB, 0.151055E+01_JPRB &
+  &, 0.154846E+01_JPRB, 0.158647E+01_JPRB, 0.162455E+01_JPRB &
+  &, 0.166268E+01_JPRB, 0.170084E+01_JPRB, 0.173902E+01_JPRB, 0.177719E+01_JPRB &
+  &, 0.181533E+01_JPRB, 0.185343E+01_JPRB, 0.189146E+01_JPRB &
+  &, 0.192941E+01_JPRB, 0.196726E+01_JPRB, 0.200498E+01_JPRB, 0.204256E+01_JPRB &
+  &, 0.207998E+01_JPRB, 0.211723E+01_JPRB, 0.215428E+01_JPRB &
+  &, 0.219111E+01_JPRB, 0.222771E+01_JPRB, 0.226406E+01_JPRB, 0.230014E+01_JPRB &
+  &, 0.233593E+01_JPRB, 0.237143E+01_JPRB, 0.240660E+01_JPRB &
+  &, 0.244144E+01_JPRB, 0.247594E+01_JPRB, 0.251006E+01_JPRB, 0.254381E+01_JPRB &
+  &, 0.257715E+01_JPRB, 0.261011E+01_JPRB, 0.264262E+01_JPRB &
+  &, 0.267471E+01_JPRB, 0.270634E+01_JPRB, 0.273752E+01_JPRB, 0.276823E+01_JPRB &
+  &, 0.279844E+01_JPRB, 0.282817E+01_JPRB, 0.285737E+01_JPRB &
+  &, 0.288607E+01_JPRB, 0.291425E+01_JPRB, 0.294188E+01_JPRB, 0.296897E+01_JPRB &
+  &, 0.299551E+01_JPRB, 0.302148E+01_JPRB, 0.304689E+01_JPRB &
+  &, 0.307173E+01_JPRB, 0.309596E+01_JPRB, 0.311962E+01_JPRB, 0.314268E+01_JPRB &
+  &, 0.316514E+01_JPRB, 0.318698E+01_JPRB, 0.320823E+01_JPRB &
+  &, 0.322884E+01_JPRB, 0.324884E+01_JPRB, 0.326822E+01_JPRB, 0.328697E+01_JPRB &
+  &, 0.330507E+01_JPRB, 0.332256E+01_JPRB, 0.333939E+01_JPRB &
+  &, 0.335559E+01_JPRB, 0.337117E+01_JPRB, 0.338610E+01_JPRB, 0.340038E+01_JPRB &
+  &, 0.341400E+01_JPRB, 0.342700E+01_JPRB, 0.343934E+01_JPRB &
+  &, 0.345106E+01_JPRB, 0.346211E+01_JPRB, 0.347253E+01_JPRB, 0.348231E+01_JPRB &
+  &, 0.349143E+01_JPRB, 0.349992E+01_JPRB, 0.350779E+01_JPRB &
+  &, 0.351501E+01_JPRB, 0.352160E+01_JPRB, 0.352754E+01_JPRB, 0.353288E+01_JPRB &
+  &, 0.353757E+01_JPRB, 0.354166E+01_JPRB, 0.354511E+01_JPRB &
+  &, 0.354797E+01_JPRB, 0.355019E+01_JPRB, 0.355182E+01_JPRB, 0.355283E+01_JPRB &
+  &, 0.355325E+01_JPRB, 0.355308E+01_JPRB, 0.355233E+01_JPRB &
+  &, 0.355097E+01_JPRB, 0.354903E+01_JPRB, 0.354652E+01_JPRB, 0.354346E+01_JPRB &
+  &, 0.353983E+01_JPRB, 0.353565E+01_JPRB, 0.353081E+01_JPRB &
+  &, 0.352558E+01_JPRB, 0.351973E+01_JPRB, 0.351336E+01_JPRB, 0.350646E+01_JPRB &
+  &, 0.349903E+01_JPRB, 0.349110E+01_JPRB, 0.348265E+01_JPRB &
+  &, 0.347370E+01_JPRB, 0.346425E+01_JPRB, 0.345435E+01_JPRB, 0.344391E+01_JPRB &
+  &, 0.343305E+01_JPRB, 0.342169E+01_JPRB, 0.340985E+01_JPRB &
+  &, 0.339762E+01_JPRB, 0.338490E+01_JPRB, 0.337176E+01_JPRB, 0.335819E+01_JPRB &
+  &, 0.334419E+01_JPRB, 0.332980E+01_JPRB, 0.331498E+01_JPRB &
+  &, 0.329974E+01_JPRB, 0.328418E+01_JPRB, 0.326819E+01_JPRB, 0.325180E+01_JPRB &
+  &, 0.323509E+01_JPRB, 0.321803E+01_JPRB, 0.320057E+01_JPRB &
+  &, 0.318280E+01_JPRB, 0.316474E+01_JPRB, 0.314629E+01_JPRB, 0.312753E+01_JPRB &
+  &, 0.310849E+01_JPRB, 0.308912E+01_JPRB, 0.306951E+01_JPRB/)
+XCW( 917, :) = (/ &
+  &  0.114132E+01_JPRB, 0.117747E+01_JPRB, 0.121391E+01_JPRB, 0.125062E+01_JPRB &
+  &, 0.128758E+01_JPRB, 0.132477E+01_JPRB, 0.136217E+01_JPRB &
+  &, 0.139977E+01_JPRB, 0.143755E+01_JPRB, 0.147548E+01_JPRB, 0.151354E+01_JPRB &
+  &, 0.155173E+01_JPRB, 0.159001E+01_JPRB, 0.162837E+01_JPRB &
+  &, 0.166679E+01_JPRB, 0.170525E+01_JPRB, 0.174372E+01_JPRB, 0.178220E+01_JPRB &
+  &, 0.182066E+01_JPRB, 0.185908E+01_JPRB, 0.189744E+01_JPRB &
+  &, 0.193572E+01_JPRB, 0.197390E+01_JPRB, 0.201197E+01_JPRB, 0.204991E+01_JPRB &
+  &, 0.208769E+01_JPRB, 0.212529E+01_JPRB, 0.216271E+01_JPRB &
+  &, 0.219991E+01_JPRB, 0.223689E+01_JPRB, 0.227362E+01_JPRB, 0.231009E+01_JPRB &
+  &, 0.234628E+01_JPRB, 0.238218E+01_JPRB, 0.241775E+01_JPRB &
+  &, 0.245300E+01_JPRB, 0.248791E+01_JPRB, 0.252246E+01_JPRB, 0.255662E+01_JPRB &
+  &, 0.259040E+01_JPRB, 0.262377E+01_JPRB, 0.265673E+01_JPRB &
+  &, 0.268926E+01_JPRB, 0.272134E+01_JPRB, 0.275296E+01_JPRB, 0.278411E+01_JPRB &
+  &, 0.281478E+01_JPRB, 0.284496E+01_JPRB, 0.287464E+01_JPRB &
+  &, 0.290380E+01_JPRB, 0.293244E+01_JPRB, 0.296054E+01_JPRB, 0.298811E+01_JPRB &
+  &, 0.301511E+01_JPRB, 0.304157E+01_JPRB, 0.306745E+01_JPRB &
+  &, 0.309276E+01_JPRB, 0.311748E+01_JPRB, 0.314162E+01_JPRB, 0.316517E+01_JPRB &
+  &, 0.318811E+01_JPRB, 0.321045E+01_JPRB, 0.323217E+01_JPRB &
+  &, 0.325328E+01_JPRB, 0.327377E+01_JPRB, 0.329364E+01_JPRB, 0.331289E+01_JPRB &
+  &, 0.333149E+01_JPRB, 0.334947E+01_JPRB, 0.336679E+01_JPRB &
+  &, 0.338349E+01_JPRB, 0.339955E+01_JPRB, 0.341496E+01_JPRB, 0.342975E+01_JPRB &
+  &, 0.344389E+01_JPRB, 0.345735E+01_JPRB, 0.347019E+01_JPRB &
+  &, 0.348239E+01_JPRB, 0.349394E+01_JPRB, 0.350483E+01_JPRB, 0.351509E+01_JPRB &
+  &, 0.352473E+01_JPRB, 0.353370E+01_JPRB, 0.354203E+01_JPRB &
+  &, 0.354973E+01_JPRB, 0.355679E+01_JPRB, 0.356321E+01_JPRB, 0.356901E+01_JPRB &
+  &, 0.357419E+01_JPRB, 0.357874E+01_JPRB, 0.358268E+01_JPRB &
+  &, 0.358597E+01_JPRB, 0.358867E+01_JPRB, 0.359073E+01_JPRB, 0.359219E+01_JPRB &
+  &, 0.359308E+01_JPRB, 0.359336E+01_JPRB, 0.359302E+01_JPRB &
+  &, 0.359211E+01_JPRB, 0.359062E+01_JPRB, 0.358852E+01_JPRB, 0.358586E+01_JPRB &
+  &, 0.358267E+01_JPRB, 0.357889E+01_JPRB, 0.357453E+01_JPRB &
+  &, 0.356965E+01_JPRB, 0.356419E+01_JPRB, 0.355821E+01_JPRB, 0.355173E+01_JPRB &
+  &, 0.354468E+01_JPRB, 0.353712E+01_JPRB, 0.352904E+01_JPRB &
+  &, 0.352045E+01_JPRB, 0.351137E+01_JPRB, 0.350182E+01_JPRB, 0.349173E+01_JPRB &
+  &, 0.348121E+01_JPRB, 0.347019E+01_JPRB, 0.345869E+01_JPRB &
+  &, 0.344677E+01_JPRB, 0.343438E+01_JPRB, 0.342156E+01_JPRB, 0.340829E+01_JPRB &
+  &, 0.339460E+01_JPRB, 0.338045E+01_JPRB, 0.336591E+01_JPRB &
+  &, 0.335096E+01_JPRB, 0.333567E+01_JPRB, 0.331995E+01_JPRB, 0.330383E+01_JPRB &
+  &, 0.328737E+01_JPRB, 0.327055E+01_JPRB, 0.325333E+01_JPRB &
+  &, 0.323579E+01_JPRB, 0.321789E+01_JPRB, 0.319972E+01_JPRB, 0.318117E+01_JPRB &
+  &, 0.316232E+01_JPRB, 0.314315E+01_JPRB, 0.312365E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART131',1,ZHOOK_HANDLE)
+END SUBROUTINE PART131
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART132
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART132',0,ZHOOK_HANDLE)
+
+XCW( 918, :) = (/ &
+  &  0.114204E+01_JPRB, 0.117839E+01_JPRB, 0.121503E+01_JPRB, 0.125195E+01_JPRB &
+  &, 0.128913E+01_JPRB, 0.132655E+01_JPRB, 0.136419E+01_JPRB &
+  &, 0.140203E+01_JPRB, 0.144006E+01_JPRB, 0.147824E+01_JPRB, 0.151658E+01_JPRB &
+  &, 0.155503E+01_JPRB, 0.159359E+01_JPRB, 0.163224E+01_JPRB &
+  &, 0.167095E+01_JPRB, 0.170970E+01_JPRB, 0.174848E+01_JPRB, 0.178727E+01_JPRB &
+  &, 0.182605E+01_JPRB, 0.186479E+01_JPRB, 0.190348E+01_JPRB &
+  &, 0.194210E+01_JPRB, 0.198063E+01_JPRB, 0.201904E+01_JPRB, 0.205733E+01_JPRB &
+  &, 0.209547E+01_JPRB, 0.213345E+01_JPRB, 0.217123E+01_JPRB &
+  &, 0.220882E+01_JPRB, 0.224618E+01_JPRB, 0.228330E+01_JPRB, 0.232017E+01_JPRB &
+  &, 0.235676E+01_JPRB, 0.239305E+01_JPRB, 0.242904E+01_JPRB &
+  &, 0.246470E+01_JPRB, 0.250003E+01_JPRB, 0.253500E+01_JPRB, 0.256959E+01_JPRB &
+  &, 0.260381E+01_JPRB, 0.263762E+01_JPRB, 0.267102E+01_JPRB &
+  &, 0.270399E+01_JPRB, 0.273652E+01_JPRB, 0.276860E+01_JPRB, 0.280021E+01_JPRB &
+  &, 0.283133E+01_JPRB, 0.286197E+01_JPRB, 0.289212E+01_JPRB &
+  &, 0.292174E+01_JPRB, 0.295086E+01_JPRB, 0.297944E+01_JPRB, 0.300749E+01_JPRB &
+  &, 0.303497E+01_JPRB, 0.306191E+01_JPRB, 0.308827E+01_JPRB &
+  &, 0.311383E+01_JPRB, 0.313929E+01_JPRB, 0.316393E+01_JPRB, 0.318796E+01_JPRB &
+  &, 0.321140E+01_JPRB, 0.323424E+01_JPRB, 0.325645E+01_JPRB &
+  &, 0.327807E+01_JPRB, 0.329905E+01_JPRB, 0.331942E+01_JPRB, 0.333915E+01_JPRB &
+  &, 0.335827E+01_JPRB, 0.337674E+01_JPRB, 0.339458E+01_JPRB &
+  &, 0.341179E+01_JPRB, 0.342834E+01_JPRB, 0.344427E+01_JPRB, 0.345955E+01_JPRB &
+  &, 0.347416E+01_JPRB, 0.348815E+01_JPRB, 0.350150E+01_JPRB &
+  &, 0.351417E+01_JPRB, 0.352624E+01_JPRB, 0.353744E+01_JPRB, 0.354840E+01_JPRB &
+  &, 0.355850E+01_JPRB, 0.356799E+01_JPRB, 0.357681E+01_JPRB &
+  &, 0.358499E+01_JPRB, 0.359254E+01_JPRB, 0.359943E+01_JPRB, 0.360573E+01_JPRB &
+  &, 0.361138E+01_JPRB, 0.361641E+01_JPRB, 0.362081E+01_JPRB &
+  &, 0.362457E+01_JPRB, 0.362774E+01_JPRB, 0.363027E+01_JPRB, 0.363210E+01_JPRB &
+  &, 0.363354E+01_JPRB, 0.363425E+01_JPRB, 0.363438E+01_JPRB &
+  &, 0.363393E+01_JPRB, 0.363286E+01_JPRB, 0.363122E+01_JPRB, 0.362902E+01_JPRB &
+  &, 0.362621E+01_JPRB, 0.362284E+01_JPRB, 0.361892E+01_JPRB &
+  &, 0.361445E+01_JPRB, 0.360943E+01_JPRB, 0.360385E+01_JPRB, 0.359772E+01_JPRB &
+  &, 0.359110E+01_JPRB, 0.358393E+01_JPRB, 0.357623E+01_JPRB &
+  &, 0.356801E+01_JPRB, 0.355916E+01_JPRB, 0.355012E+01_JPRB, 0.354034E+01_JPRB &
+  &, 0.353023E+01_JPRB, 0.351956E+01_JPRB, 0.350840E+01_JPRB &
+  &, 0.349683E+01_JPRB, 0.348477E+01_JPRB, 0.347222E+01_JPRB, 0.345928E+01_JPRB &
+  &, 0.344590E+01_JPRB, 0.343190E+01_JPRB, 0.341788E+01_JPRB &
+  &, 0.340323E+01_JPRB, 0.338817E+01_JPRB, 0.337274E+01_JPRB, 0.335689E+01_JPRB &
+  &, 0.334070E+01_JPRB, 0.332408E+01_JPRB, 0.330712E+01_JPRB &
+  &, 0.328982E+01_JPRB, 0.327216E+01_JPRB, 0.325421E+01_JPRB, 0.323588E+01_JPRB &
+  &, 0.321719E+01_JPRB, 0.319821E+01_JPRB, 0.317885E+01_JPRB/)
+XCW( 919, :) = (/ &
+  &  0.114277E+01_JPRB, 0.117931E+01_JPRB, 0.121616E+01_JPRB, 0.125330E+01_JPRB &
+  &, 0.129070E+01_JPRB, 0.132835E+01_JPRB, 0.136623E+01_JPRB &
+  &, 0.140432E+01_JPRB, 0.144259E+01_JPRB, 0.148104E+01_JPRB, 0.151964E+01_JPRB &
+  &, 0.155837E+01_JPRB, 0.159721E+01_JPRB, 0.163614E+01_JPRB &
+  &, 0.167515E+01_JPRB, 0.171420E+01_JPRB, 0.175329E+01_JPRB, 0.179239E+01_JPRB &
+  &, 0.183149E+01_JPRB, 0.187056E+01_JPRB, 0.190959E+01_JPRB &
+  &, 0.194855E+01_JPRB, 0.198743E+01_JPRB, 0.202620E+01_JPRB, 0.206484E+01_JPRB &
+  &, 0.210335E+01_JPRB, 0.214170E+01_JPRB, 0.217986E+01_JPRB &
+  &, 0.221783E+01_JPRB, 0.225558E+01_JPRB, 0.229309E+01_JPRB, 0.233036E+01_JPRB &
+  &, 0.236735E+01_JPRB, 0.240406E+01_JPRB, 0.244047E+01_JPRB &
+  &, 0.247655E+01_JPRB, 0.251230E+01_JPRB, 0.254770E+01_JPRB, 0.258274E+01_JPRB &
+  &, 0.261739E+01_JPRB, 0.265164E+01_JPRB, 0.268548E+01_JPRB &
+  &, 0.271891E+01_JPRB, 0.275189E+01_JPRB, 0.278442E+01_JPRB, 0.281649E+01_JPRB &
+  &, 0.284810E+01_JPRB, 0.287921E+01_JPRB, 0.290982E+01_JPRB &
+  &, 0.293993E+01_JPRB, 0.296953E+01_JPRB, 0.299858E+01_JPRB, 0.302712E+01_JPRB &
+  &, 0.305510E+01_JPRB, 0.308252E+01_JPRB, 0.310938E+01_JPRB &
+  &, 0.313568E+01_JPRB, 0.316139E+01_JPRB, 0.318653E+01_JPRB, 0.321106E+01_JPRB &
+  &, 0.323499E+01_JPRB, 0.325833E+01_JPRB, 0.328107E+01_JPRB &
+  &, 0.330319E+01_JPRB, 0.332469E+01_JPRB, 0.334557E+01_JPRB, 0.336581E+01_JPRB &
+  &, 0.338544E+01_JPRB, 0.340442E+01_JPRB, 0.342277E+01_JPRB &
+  &, 0.344047E+01_JPRB, 0.345756E+01_JPRB, 0.347399E+01_JPRB, 0.348977E+01_JPRB &
+  &, 0.350492E+01_JPRB, 0.351942E+01_JPRB, 0.353325E+01_JPRB &
+  &, 0.354645E+01_JPRB, 0.355901E+01_JPRB, 0.357091E+01_JPRB, 0.358217E+01_JPRB &
+  &, 0.359280E+01_JPRB, 0.360276E+01_JPRB, 0.361209E+01_JPRB &
+  &, 0.362077E+01_JPRB, 0.362883E+01_JPRB, 0.363623E+01_JPRB, 0.364301E+01_JPRB &
+  &, 0.364914E+01_JPRB, 0.365465E+01_JPRB, 0.365953E+01_JPRB &
+  &, 0.366380E+01_JPRB, 0.366742E+01_JPRB, 0.367046E+01_JPRB, 0.367283E+01_JPRB &
+  &, 0.367466E+01_JPRB, 0.367584E+01_JPRB, 0.367637E+01_JPRB &
+  &, 0.367640E+01_JPRB, 0.367580E+01_JPRB, 0.367462E+01_JPRB, 0.367285E+01_JPRB &
+  &, 0.367051E+01_JPRB, 0.366756E+01_JPRB, 0.366407E+01_JPRB &
+  &, 0.366005E+01_JPRB, 0.365540E+01_JPRB, 0.365027E+01_JPRB, 0.364459E+01_JPRB &
+  &, 0.363833E+01_JPRB, 0.363156E+01_JPRB, 0.362425E+01_JPRB &
+  &, 0.361643E+01_JPRB, 0.360810E+01_JPRB, 0.359930E+01_JPRB, 0.358994E+01_JPRB &
+  &, 0.358015E+01_JPRB, 0.356985E+01_JPRB, 0.355905E+01_JPRB &
+  &, 0.354778E+01_JPRB, 0.353607E+01_JPRB, 0.352392E+01_JPRB, 0.351126E+01_JPRB &
+  &, 0.349821E+01_JPRB, 0.348469E+01_JPRB, 0.347078E+01_JPRB &
+  &, 0.345643E+01_JPRB, 0.344168E+01_JPRB, 0.342654E+01_JPRB, 0.341098E+01_JPRB &
+  &, 0.339502E+01_JPRB, 0.337868E+01_JPRB, 0.336198E+01_JPRB &
+  &, 0.334494E+01_JPRB, 0.332753E+01_JPRB, 0.330977E+01_JPRB, 0.329167E+01_JPRB &
+  &, 0.327320E+01_JPRB, 0.325445E+01_JPRB, 0.323536E+01_JPRB/)
+XCW( 920, :) = (/ &
+  &  0.114350E+01_JPRB, 0.118025E+01_JPRB, 0.121731E+01_JPRB, 0.125466E+01_JPRB &
+  &, 0.129229E+01_JPRB, 0.133017E+01_JPRB, 0.136829E+01_JPRB &
+  &, 0.140663E+01_JPRB, 0.144516E+01_JPRB, 0.148387E+01_JPRB, 0.152273E+01_JPRB &
+  &, 0.156174E+01_JPRB, 0.160086E+01_JPRB, 0.164009E+01_JPRB &
+  &, 0.167939E+01_JPRB, 0.171875E+01_JPRB, 0.175816E+01_JPRB, 0.179758E+01_JPRB &
+  &, 0.183700E+01_JPRB, 0.187640E+01_JPRB, 0.191577E+01_JPRB &
+  &, 0.195508E+01_JPRB, 0.199430E+01_JPRB, 0.203343E+01_JPRB, 0.207245E+01_JPRB &
+  &, 0.211132E+01_JPRB, 0.215004E+01_JPRB, 0.218859E+01_JPRB &
+  &, 0.222695E+01_JPRB, 0.226509E+01_JPRB, 0.230300E+01_JPRB, 0.234068E+01_JPRB &
+  &, 0.237808E+01_JPRB, 0.241521E+01_JPRB, 0.245203E+01_JPRB &
+  &, 0.248854E+01_JPRB, 0.252473E+01_JPRB, 0.256056E+01_JPRB, 0.259603E+01_JPRB &
+  &, 0.263113E+01_JPRB, 0.266583E+01_JPRB, 0.270013E+01_JPRB &
+  &, 0.273401E+01_JPRB, 0.276746E+01_JPRB, 0.280046E+01_JPRB, 0.283301E+01_JPRB &
+  &, 0.286508E+01_JPRB, 0.289666E+01_JPRB, 0.292776E+01_JPRB &
+  &, 0.295836E+01_JPRB, 0.298844E+01_JPRB, 0.301799E+01_JPRB, 0.304701E+01_JPRB &
+  &, 0.307549E+01_JPRB, 0.310341E+01_JPRB, 0.313078E+01_JPRB &
+  &, 0.315756E+01_JPRB, 0.318380E+01_JPRB, 0.320943E+01_JPRB, 0.323448E+01_JPRB &
+  &, 0.325893E+01_JPRB, 0.328279E+01_JPRB, 0.330603E+01_JPRB &
+  &, 0.332866E+01_JPRB, 0.335067E+01_JPRB, 0.337207E+01_JPRB, 0.339283E+01_JPRB &
+  &, 0.341297E+01_JPRB, 0.343248E+01_JPRB, 0.345135E+01_JPRB &
+  &, 0.346960E+01_JPRB, 0.348719E+01_JPRB, 0.350415E+01_JPRB, 0.352044E+01_JPRB &
+  &, 0.353611E+01_JPRB, 0.355113E+01_JPRB, 0.356549E+01_JPRB &
+  &, 0.357921E+01_JPRB, 0.359228E+01_JPRB, 0.360471E+01_JPRB, 0.361647E+01_JPRB &
+  &, 0.362762E+01_JPRB, 0.363810E+01_JPRB, 0.364794E+01_JPRB &
+  &, 0.365714E+01_JPRB, 0.366558E+01_JPRB, 0.367361E+01_JPRB, 0.368085E+01_JPRB &
+  &, 0.368751E+01_JPRB, 0.369353E+01_JPRB, 0.369890E+01_JPRB &
+  &, 0.370364E+01_JPRB, 0.370778E+01_JPRB, 0.371127E+01_JPRB, 0.371417E+01_JPRB &
+  &, 0.371645E+01_JPRB, 0.371809E+01_JPRB, 0.371914E+01_JPRB &
+  &, 0.371961E+01_JPRB, 0.371946E+01_JPRB, 0.371873E+01_JPRB, 0.371744E+01_JPRB &
+  &, 0.371553E+01_JPRB, 0.371306E+01_JPRB, 0.371000E+01_JPRB &
+  &, 0.370637E+01_JPRB, 0.370219E+01_JPRB, 0.369749E+01_JPRB, 0.369222E+01_JPRB &
+  &, 0.368638E+01_JPRB, 0.368002E+01_JPRB, 0.367316E+01_JPRB &
+  &, 0.366574E+01_JPRB, 0.365781E+01_JPRB, 0.364936E+01_JPRB, 0.364039E+01_JPRB &
+  &, 0.363098E+01_JPRB, 0.362101E+01_JPRB, 0.361058E+01_JPRB &
+  &, 0.359973E+01_JPRB, 0.358833E+01_JPRB, 0.357654E+01_JPRB, 0.356423E+01_JPRB &
+  &, 0.355147E+01_JPRB, 0.353834E+01_JPRB, 0.352471E+01_JPRB &
+  &, 0.351069E+01_JPRB, 0.349625E+01_JPRB, 0.348137E+01_JPRB, 0.346611E+01_JPRB &
+  &, 0.345044E+01_JPRB, 0.343439E+01_JPRB, 0.341797E+01_JPRB &
+  &, 0.340115E+01_JPRB, 0.338401E+01_JPRB, 0.336650E+01_JPRB, 0.334860E+01_JPRB &
+  &, 0.333044E+01_JPRB, 0.331185E+01_JPRB, 0.329299E+01_JPRB/)
+XCW( 921, :) = (/ &
+  &  0.114424E+01_JPRB, 0.118119E+01_JPRB, 0.121846E+01_JPRB, 0.125604E+01_JPRB &
+  &, 0.129389E+01_JPRB, 0.133201E+01_JPRB, 0.137037E+01_JPRB &
+  &, 0.140896E+01_JPRB, 0.144775E+01_JPRB, 0.148672E+01_JPRB, 0.152586E+01_JPRB &
+  &, 0.156515E+01_JPRB, 0.160456E+01_JPRB, 0.164408E+01_JPRB &
+  &, 0.168368E+01_JPRB, 0.172336E+01_JPRB, 0.176308E+01_JPRB, 0.180282E+01_JPRB &
+  &, 0.184257E+01_JPRB, 0.188232E+01_JPRB, 0.192202E+01_JPRB &
+  &, 0.196168E+01_JPRB, 0.200126E+01_JPRB, 0.204075E+01_JPRB, 0.208013E+01_JPRB &
+  &, 0.211938E+01_JPRB, 0.215849E+01_JPRB, 0.219743E+01_JPRB &
+  &, 0.223617E+01_JPRB, 0.227472E+01_JPRB, 0.231304E+01_JPRB, 0.235112E+01_JPRB &
+  &, 0.238894E+01_JPRB, 0.242649E+01_JPRB, 0.246374E+01_JPRB &
+  &, 0.250068E+01_JPRB, 0.253731E+01_JPRB, 0.257358E+01_JPRB, 0.260950E+01_JPRB &
+  &, 0.264505E+01_JPRB, 0.268020E+01_JPRB, 0.271497E+01_JPRB &
+  &, 0.274932E+01_JPRB, 0.278323E+01_JPRB, 0.281671E+01_JPRB, 0.284973E+01_JPRB &
+  &, 0.288229E+01_JPRB, 0.291435E+01_JPRB, 0.294594E+01_JPRB &
+  &, 0.297702E+01_JPRB, 0.300760E+01_JPRB, 0.303766E+01_JPRB, 0.306718E+01_JPRB &
+  &, 0.309615E+01_JPRB, 0.312459E+01_JPRB, 0.315246E+01_JPRB &
+  &, 0.317977E+01_JPRB, 0.320651E+01_JPRB, 0.323265E+01_JPRB, 0.325823E+01_JPRB &
+  &, 0.328320E+01_JPRB, 0.330758E+01_JPRB, 0.333134E+01_JPRB &
+  &, 0.335450E+01_JPRB, 0.337703E+01_JPRB, 0.339897E+01_JPRB, 0.342026E+01_JPRB &
+  &, 0.344092E+01_JPRB, 0.346097E+01_JPRB, 0.348036E+01_JPRB &
+  &, 0.349914E+01_JPRB, 0.351725E+01_JPRB, 0.353475E+01_JPRB, 0.355157E+01_JPRB &
+  &, 0.356775E+01_JPRB, 0.358330E+01_JPRB, 0.359822E+01_JPRB &
+  &, 0.361246E+01_JPRB, 0.362606E+01_JPRB, 0.363902E+01_JPRB, 0.365130E+01_JPRB &
+  &, 0.366297E+01_JPRB, 0.367397E+01_JPRB, 0.368434E+01_JPRB &
+  &, 0.369404E+01_JPRB, 0.370312E+01_JPRB, 0.371154E+01_JPRB, 0.371934E+01_JPRB &
+  &, 0.372650E+01_JPRB, 0.373299E+01_JPRB, 0.373887E+01_JPRB &
+  &, 0.374414E+01_JPRB, 0.374872E+01_JPRB, 0.375275E+01_JPRB, 0.375614E+01_JPRB &
+  &, 0.375892E+01_JPRB, 0.376106E+01_JPRB, 0.376261E+01_JPRB &
+  &, 0.376354E+01_JPRB, 0.376389E+01_JPRB, 0.376361E+01_JPRB, 0.376270E+01_JPRB &
+  &, 0.376132E+01_JPRB, 0.375930E+01_JPRB, 0.375672E+01_JPRB &
+  &, 0.375354E+01_JPRB, 0.374984E+01_JPRB, 0.374553E+01_JPRB, 0.374070E+01_JPRB &
+  &, 0.373528E+01_JPRB, 0.372935E+01_JPRB, 0.372291E+01_JPRB &
+  &, 0.371591E+01_JPRB, 0.370839E+01_JPRB, 0.370034E+01_JPRB, 0.369178E+01_JPRB &
+  &, 0.368272E+01_JPRB, 0.367319E+01_JPRB, 0.366315E+01_JPRB &
+  &, 0.365263E+01_JPRB, 0.364160E+01_JPRB, 0.363013E+01_JPRB, 0.361818E+01_JPRB &
+  &, 0.360579E+01_JPRB, 0.359296E+01_JPRB, 0.357972E+01_JPRB &
+  &, 0.356599E+01_JPRB, 0.355177E+01_JPRB, 0.353733E+01_JPRB, 0.352233E+01_JPRB &
+  &, 0.350698E+01_JPRB, 0.349123E+01_JPRB, 0.347505E+01_JPRB &
+  &, 0.345852E+01_JPRB, 0.344166E+01_JPRB, 0.342437E+01_JPRB, 0.340672E+01_JPRB &
+  &, 0.338876E+01_JPRB, 0.337049E+01_JPRB, 0.335180E+01_JPRB/)
+XCW( 922, :) = (/ &
+  &  0.114498E+01_JPRB, 0.118214E+01_JPRB, 0.121963E+01_JPRB, 0.125743E+01_JPRB &
+  &, 0.129551E+01_JPRB, 0.133387E+01_JPRB, 0.137248E+01_JPRB &
+  &, 0.141132E+01_JPRB, 0.145037E+01_JPRB, 0.148961E+01_JPRB, 0.152903E+01_JPRB &
+  &, 0.156860E+01_JPRB, 0.160830E+01_JPRB, 0.164811E+01_JPRB &
+  &, 0.168803E+01_JPRB, 0.172801E+01_JPRB, 0.176805E+01_JPRB, 0.180812E+01_JPRB &
+  &, 0.184821E+01_JPRB, 0.188829E+01_JPRB, 0.192835E+01_JPRB &
+  &, 0.196835E+01_JPRB, 0.200830E+01_JPRB, 0.204816E+01_JPRB, 0.208792E+01_JPRB &
+  &, 0.212755E+01_JPRB, 0.216704E+01_JPRB, 0.220637E+01_JPRB &
+  &, 0.224551E+01_JPRB, 0.228446E+01_JPRB, 0.232320E+01_JPRB, 0.236169E+01_JPRB &
+  &, 0.239993E+01_JPRB, 0.243791E+01_JPRB, 0.247560E+01_JPRB &
+  &, 0.251298E+01_JPRB, 0.255004E+01_JPRB, 0.258677E+01_JPRB, 0.262314E+01_JPRB &
+  &, 0.265915E+01_JPRB, 0.269477E+01_JPRB, 0.273000E+01_JPRB &
+  &, 0.276482E+01_JPRB, 0.279921E+01_JPRB, 0.283317E+01_JPRB, 0.286667E+01_JPRB &
+  &, 0.289971E+01_JPRB, 0.293228E+01_JPRB, 0.296437E+01_JPRB &
+  &, 0.299596E+01_JPRB, 0.302702E+01_JPRB, 0.305759E+01_JPRB, 0.308761E+01_JPRB &
+  &, 0.311711E+01_JPRB, 0.314606E+01_JPRB, 0.317445E+01_JPRB &
+  &, 0.320227E+01_JPRB, 0.322953E+01_JPRB, 0.325621E+01_JPRB, 0.328231E+01_JPRB &
+  &, 0.330782E+01_JPRB, 0.333272E+01_JPRB, 0.335701E+01_JPRB &
+  &, 0.338071E+01_JPRB, 0.340378E+01_JPRB, 0.342625E+01_JPRB, 0.344808E+01_JPRB &
+  &, 0.346928E+01_JPRB, 0.348986E+01_JPRB, 0.350979E+01_JPRB &
+  &, 0.352911E+01_JPRB, 0.354778E+01_JPRB, 0.356578E+01_JPRB, 0.358318E+01_JPRB &
+  &, 0.359991E+01_JPRB, 0.361600E+01_JPRB, 0.363143E+01_JPRB &
+  &, 0.364622E+01_JPRB, 0.366035E+01_JPRB, 0.367224E+01_JPRB, 0.368667E+01_JPRB &
+  &, 0.369886E+01_JPRB, 0.371040E+01_JPRB, 0.372128E+01_JPRB &
+  &, 0.373155E+01_JPRB, 0.374114E+01_JPRB, 0.375010E+01_JPRB, 0.375842E+01_JPRB &
+  &, 0.376609E+01_JPRB, 0.377313E+01_JPRB, 0.377952E+01_JPRB &
+  &, 0.378530E+01_JPRB, 0.379043E+01_JPRB, 0.379494E+01_JPRB, 0.379882E+01_JPRB &
+  &, 0.380207E+01_JPRB, 0.380472E+01_JPRB, 0.380678E+01_JPRB &
+  &, 0.380819E+01_JPRB, 0.380901E+01_JPRB, 0.380924E+01_JPRB, 0.380887E+01_JPRB &
+  &, 0.380791E+01_JPRB, 0.380639E+01_JPRB, 0.380424E+01_JPRB &
+  &, 0.380155E+01_JPRB, 0.379827E+01_JPRB, 0.379444E+01_JPRB, 0.379006E+01_JPRB &
+  &, 0.378509E+01_JPRB, 0.377959E+01_JPRB, 0.377354E+01_JPRB &
+  &, 0.376697E+01_JPRB, 0.375988E+01_JPRB, 0.375225E+01_JPRB, 0.374410E+01_JPRB &
+  &, 0.373546E+01_JPRB, 0.372628E+01_JPRB, 0.371665E+01_JPRB &
+  &, 0.370653E+01_JPRB, 0.369589E+01_JPRB, 0.368459E+01_JPRB, 0.367323E+01_JPRB &
+  &, 0.366116E+01_JPRB, 0.364870E+01_JPRB, 0.363577E+01_JPRB &
+  &, 0.362239E+01_JPRB, 0.360858E+01_JPRB, 0.359436E+01_JPRB, 0.357970E+01_JPRB &
+  &, 0.356462E+01_JPRB, 0.354919E+01_JPRB, 0.353332E+01_JPRB &
+  &, 0.351710E+01_JPRB, 0.350047E+01_JPRB, 0.348347E+01_JPRB, 0.346611E+01_JPRB &
+  &, 0.344836E+01_JPRB, 0.343035E+01_JPRB, 0.341193E+01_JPRB/)
+XCW( 923, :) = (/ &
+  &  0.114574E+01_JPRB, 0.118311E+01_JPRB, 0.122081E+01_JPRB, 0.125883E+01_JPRB &
+  &, 0.129715E+01_JPRB, 0.133575E+01_JPRB, 0.137460E+01_JPRB &
+  &, 0.141370E+01_JPRB, 0.145301E+01_JPRB, 0.149253E+01_JPRB, 0.153223E+01_JPRB &
+  &, 0.157208E+01_JPRB, 0.161208E+01_JPRB, 0.165220E+01_JPRB &
+  &, 0.169242E+01_JPRB, 0.173272E+01_JPRB, 0.177308E+01_JPRB, 0.181349E+01_JPRB &
+  &, 0.185391E+01_JPRB, 0.189434E+01_JPRB, 0.193474E+01_JPRB &
+  &, 0.197512E+01_JPRB, 0.201543E+01_JPRB, 0.205566E+01_JPRB, 0.209579E+01_JPRB &
+  &, 0.213581E+01_JPRB, 0.217569E+01_JPRB, 0.221542E+01_JPRB &
+  &, 0.225497E+01_JPRB, 0.229433E+01_JPRB, 0.233348E+01_JPRB, 0.237240E+01_JPRB &
+  &, 0.241107E+01_JPRB, 0.244948E+01_JPRB, 0.248761E+01_JPRB &
+  &, 0.252543E+01_JPRB, 0.256294E+01_JPRB, 0.260012E+01_JPRB, 0.263696E+01_JPRB &
+  &, 0.267344E+01_JPRB, 0.270953E+01_JPRB, 0.274523E+01_JPRB &
+  &, 0.278053E+01_JPRB, 0.281540E+01_JPRB, 0.284985E+01_JPRB, 0.288385E+01_JPRB &
+  &, 0.291739E+01_JPRB, 0.295046E+01_JPRB, 0.298304E+01_JPRB &
+  &, 0.301513E+01_JPRB, 0.304673E+01_JPRB, 0.307780E+01_JPRB, 0.310835E+01_JPRB &
+  &, 0.313836E+01_JPRB, 0.316783E+01_JPRB, 0.319674E+01_JPRB &
+  &, 0.322510E+01_JPRB, 0.325289E+01_JPRB, 0.328011E+01_JPRB, 0.330671E+01_JPRB &
+  &, 0.333277E+01_JPRB, 0.335822E+01_JPRB, 0.338307E+01_JPRB &
+  &, 0.340729E+01_JPRB, 0.343092E+01_JPRB, 0.345393E+01_JPRB, 0.347630E+01_JPRB &
+  &, 0.349806E+01_JPRB, 0.351920E+01_JPRB, 0.353967E+01_JPRB &
+  &, 0.355954E+01_JPRB, 0.357874E+01_JPRB, 0.359731E+01_JPRB, 0.361525E+01_JPRB &
+  &, 0.363254E+01_JPRB, 0.364916E+01_JPRB, 0.366515E+01_JPRB &
+  &, 0.368049E+01_JPRB, 0.369518E+01_JPRB, 0.370922E+01_JPRB, 0.372260E+01_JPRB &
+  &, 0.373532E+01_JPRB, 0.374743E+01_JPRB, 0.375886E+01_JPRB &
+  &, 0.376964E+01_JPRB, 0.377979E+01_JPRB, 0.378927E+01_JPRB, 0.379811E+01_JPRB &
+  &, 0.380634E+01_JPRB, 0.381390E+01_JPRB, 0.382082E+01_JPRB &
+  &, 0.382713E+01_JPRB, 0.383278E+01_JPRB, 0.383782E+01_JPRB, 0.384222E+01_JPRB &
+  &, 0.384600E+01_JPRB, 0.384914E+01_JPRB, 0.385169E+01_JPRB &
+  &, 0.385362E+01_JPRB, 0.385496E+01_JPRB, 0.385568E+01_JPRB, 0.385579E+01_JPRB &
+  &, 0.385531E+01_JPRB, 0.385426E+01_JPRB, 0.385262E+01_JPRB &
+  &, 0.385036E+01_JPRB, 0.384759E+01_JPRB, 0.384419E+01_JPRB, 0.384026E+01_JPRB &
+  &, 0.383579E+01_JPRB, 0.383075E+01_JPRB, 0.382515E+01_JPRB &
+  &, 0.381902E+01_JPRB, 0.381232E+01_JPRB, 0.380513E+01_JPRB, 0.379742E+01_JPRB &
+  &, 0.378915E+01_JPRB, 0.378044E+01_JPRB, 0.377118E+01_JPRB &
+  &, 0.376142E+01_JPRB, 0.375118E+01_JPRB, 0.374050E+01_JPRB, 0.372928E+01_JPRB &
+  &, 0.371764E+01_JPRB, 0.370551E+01_JPRB, 0.369290E+01_JPRB &
+  &, 0.367989E+01_JPRB, 0.366645E+01_JPRB, 0.365253E+01_JPRB, 0.363822E+01_JPRB &
+  &, 0.362348E+01_JPRB, 0.360833E+01_JPRB, 0.359280E+01_JPRB &
+  &, 0.357683E+01_JPRB, 0.355954E+01_JPRB, 0.354376E+01_JPRB, 0.352671E+01_JPRB &
+  &, 0.350924E+01_JPRB, 0.349145E+01_JPRB, 0.347330E+01_JPRB/)
+XCW( 924, :) = (/ &
+  &  0.114650E+01_JPRB, 0.118408E+01_JPRB, 0.122200E+01_JPRB, 0.126025E+01_JPRB &
+  &, 0.129881E+01_JPRB, 0.133765E+01_JPRB, 0.137675E+01_JPRB &
+  &, 0.141611E+01_JPRB, 0.145569E+01_JPRB, 0.149548E+01_JPRB, 0.153546E+01_JPRB &
+  &, 0.157561E+01_JPRB, 0.161590E+01_JPRB, 0.165633E+01_JPRB &
+  &, 0.169686E+01_JPRB, 0.173749E+01_JPRB, 0.177818E+01_JPRB, 0.181892E+01_JPRB &
+  &, 0.185968E+01_JPRB, 0.190046E+01_JPRB, 0.194122E+01_JPRB &
+  &, 0.198196E+01_JPRB, 0.202264E+01_JPRB, 0.206325E+01_JPRB, 0.210377E+01_JPRB &
+  &, 0.214418E+01_JPRB, 0.218445E+01_JPRB, 0.222459E+01_JPRB &
+  &, 0.226455E+01_JPRB, 0.230432E+01_JPRB, 0.234390E+01_JPRB, 0.238324E+01_JPRB &
+  &, 0.242235E+01_JPRB, 0.246120E+01_JPRB, 0.249977E+01_JPRB &
+  &, 0.253804E+01_JPRB, 0.257602E+01_JPRB, 0.261366E+01_JPRB, 0.265096E+01_JPRB &
+  &, 0.268791E+01_JPRB, 0.272448E+01_JPRB, 0.276066E+01_JPRB &
+  &, 0.279645E+01_JPRB, 0.283182E+01_JPRB, 0.286676E+01_JPRB, 0.290125E+01_JPRB &
+  &, 0.293529E+01_JPRB, 0.296888E+01_JPRB, 0.300197E+01_JPRB &
+  &, 0.303458E+01_JPRB, 0.306669E+01_JPRB, 0.309828E+01_JPRB, 0.312936E+01_JPRB &
+  &, 0.315990E+01_JPRB, 0.318991E+01_JPRB, 0.321936E+01_JPRB &
+  &, 0.324825E+01_JPRB, 0.327658E+01_JPRB, 0.330433E+01_JPRB, 0.333152E+01_JPRB &
+  &, 0.335810E+01_JPRB, 0.338410E+01_JPRB, 0.340950E+01_JPRB &
+  &, 0.343428E+01_JPRB, 0.345843E+01_JPRB, 0.348202E+01_JPRB, 0.350495E+01_JPRB &
+  &, 0.352727E+01_JPRB, 0.354896E+01_JPRB, 0.357001E+01_JPRB &
+  &, 0.359041E+01_JPRB, 0.361020E+01_JPRB, 0.362933E+01_JPRB, 0.364783E+01_JPRB &
+  &, 0.366565E+01_JPRB, 0.368285E+01_JPRB, 0.369941E+01_JPRB &
+  &, 0.371532E+01_JPRB, 0.373055E+01_JPRB, 0.374515E+01_JPRB, 0.375908E+01_JPRB &
+  &, 0.377238E+01_JPRB, 0.378504E+01_JPRB, 0.379700E+01_JPRB &
+  &, 0.380835E+01_JPRB, 0.381906E+01_JPRB, 0.382908E+01_JPRB, 0.383848E+01_JPRB &
+  &, 0.384725E+01_JPRB, 0.385535E+01_JPRB, 0.386281E+01_JPRB &
+  &, 0.386966E+01_JPRB, 0.387585E+01_JPRB, 0.388139E+01_JPRB, 0.388633E+01_JPRB &
+  &, 0.389065E+01_JPRB, 0.389433E+01_JPRB, 0.389738E+01_JPRB &
+  &, 0.389985E+01_JPRB, 0.390168E+01_JPRB, 0.390289E+01_JPRB, 0.390353E+01_JPRB &
+  &, 0.390355E+01_JPRB, 0.390299E+01_JPRB, 0.390184E+01_JPRB &
+  &, 0.390010E+01_JPRB, 0.389777E+01_JPRB, 0.389489E+01_JPRB, 0.389143E+01_JPRB &
+  &, 0.388739E+01_JPRB, 0.388282E+01_JPRB, 0.387768E+01_JPRB &
+  &, 0.387196E+01_JPRB, 0.386577E+01_JPRB, 0.385898E+01_JPRB, 0.385171E+01_JPRB &
+  &, 0.384389E+01_JPRB, 0.383557E+01_JPRB, 0.382674E+01_JPRB &
+  &, 0.381741E+01_JPRB, 0.380760E+01_JPRB, 0.379727E+01_JPRB, 0.378646E+01_JPRB &
+  &, 0.377518E+01_JPRB, 0.376345E+01_JPRB, 0.375123E+01_JPRB &
+  &, 0.373856E+01_JPRB, 0.372544E+01_JPRB, 0.371189E+01_JPRB, 0.369789E+01_JPRB &
+  &, 0.368351E+01_JPRB, 0.366860E+01_JPRB, 0.365347E+01_JPRB &
+  &, 0.363778E+01_JPRB, 0.362180E+01_JPRB, 0.360537E+01_JPRB, 0.358856E+01_JPRB &
+  &, 0.357140E+01_JPRB, 0.355385E+01_JPRB, 0.353599E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART132',1,ZHOOK_HANDLE)
+END SUBROUTINE PART132
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART133
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART133',0,ZHOOK_HANDLE)
+
+XCW( 925, :) = (/ &
+  &  0.114727E+01_JPRB, 0.118506E+01_JPRB, 0.122321E+01_JPRB, 0.126169E+01_JPRB &
+  &, 0.130048E+01_JPRB, 0.133957E+01_JPRB, 0.137893E+01_JPRB &
+  &, 0.141854E+01_JPRB, 0.145840E+01_JPRB, 0.149847E+01_JPRB, 0.153873E+01_JPRB &
+  &, 0.157917E+01_JPRB, 0.161977E+01_JPRB, 0.166051E+01_JPRB &
+  &, 0.170136E+01_JPRB, 0.174231E+01_JPRB, 0.178333E+01_JPRB, 0.182441E+01_JPRB &
+  &, 0.186552E+01_JPRB, 0.190665E+01_JPRB, 0.194778E+01_JPRB &
+  &, 0.198888E+01_JPRB, 0.202994E+01_JPRB, 0.207093E+01_JPRB, 0.211184E+01_JPRB &
+  &, 0.215264E+01_JPRB, 0.219333E+01_JPRB, 0.223387E+01_JPRB &
+  &, 0.227425E+01_JPRB, 0.231445E+01_JPRB, 0.235445E+01_JPRB, 0.239423E+01_JPRB &
+  &, 0.243378E+01_JPRB, 0.247307E+01_JPRB, 0.251210E+01_JPRB &
+  &, 0.255083E+01_JPRB, 0.258926E+01_JPRB, 0.262737E+01_JPRB, 0.266515E+01_JPRB &
+  &, 0.270258E+01_JPRB, 0.273963E+01_JPRB, 0.277630E+01_JPRB &
+  &, 0.281259E+01_JPRB, 0.284846E+01_JPRB, 0.288390E+01_JPRB, 0.291890E+01_JPRB &
+  &, 0.295346E+01_JPRB, 0.298756E+01_JPRB, 0.302117E+01_JPRB &
+  &, 0.305430E+01_JPRB, 0.308694E+01_JPRB, 0.311907E+01_JPRB, 0.315068E+01_JPRB &
+  &, 0.318176E+01_JPRB, 0.321231E+01_JPRB, 0.324230E+01_JPRB &
+  &, 0.327175E+01_JPRB, 0.330062E+01_JPRB, 0.332893E+01_JPRB, 0.335667E+01_JPRB &
+  &, 0.338380E+01_JPRB, 0.341035E+01_JPRB, 0.343632E+01_JPRB &
+  &, 0.346166E+01_JPRB, 0.348640E+01_JPRB, 0.351053E+01_JPRB, 0.353403E+01_JPRB &
+  &, 0.355692E+01_JPRB, 0.357916E+01_JPRB, 0.360080E+01_JPRB &
+  &, 0.362177E+01_JPRB, 0.364213E+01_JPRB, 0.366182E+01_JPRB, 0.368090E+01_JPRB &
+  &, 0.369931E+01_JPRB, 0.371709E+01_JPRB, 0.373419E+01_JPRB &
+  &, 0.375068E+01_JPRB, 0.376650E+01_JPRB, 0.378166E+01_JPRB, 0.379618E+01_JPRB &
+  &, 0.381004E+01_JPRB, 0.382325E+01_JPRB, 0.383578E+01_JPRB &
+  &, 0.384770E+01_JPRB, 0.385895E+01_JPRB, 0.386955E+01_JPRB, 0.387950E+01_JPRB &
+  &, 0.388882E+01_JPRB, 0.389750E+01_JPRB, 0.390551E+01_JPRB &
+  &, 0.391288E+01_JPRB, 0.391962E+01_JPRB, 0.392575E+01_JPRB, 0.393121E+01_JPRB &
+  &, 0.393608E+01_JPRB, 0.394027E+01_JPRB, 0.394387E+01_JPRB &
+  &, 0.394685E+01_JPRB, 0.394916E+01_JPRB, 0.395070E+01_JPRB, 0.395211E+01_JPRB &
+  &, 0.395267E+01_JPRB, 0.395261E+01_JPRB, 0.395196E+01_JPRB &
+  &, 0.395073E+01_JPRB, 0.394889E+01_JPRB, 0.394650E+01_JPRB, 0.394349E+01_JPRB &
+  &, 0.393998E+01_JPRB, 0.393584E+01_JPRB, 0.393119E+01_JPRB &
+  &, 0.392594E+01_JPRB, 0.392017E+01_JPRB, 0.391390E+01_JPRB, 0.390705E+01_JPRB &
+  &, 0.389968E+01_JPRB, 0.389177E+01_JPRB, 0.388338E+01_JPRB &
+  &, 0.387449E+01_JPRB, 0.386507E+01_JPRB, 0.385513E+01_JPRB, 0.384474E+01_JPRB &
+  &, 0.383388E+01_JPRB, 0.382251E+01_JPRB, 0.381071E+01_JPRB &
+  &, 0.379838E+01_JPRB, 0.378565E+01_JPRB, 0.377250E+01_JPRB, 0.375883E+01_JPRB &
+  &, 0.374477E+01_JPRB, 0.373028E+01_JPRB, 0.371539E+01_JPRB &
+  &, 0.370006E+01_JPRB, 0.368437E+01_JPRB, 0.366828E+01_JPRB, 0.365174E+01_JPRB &
+  &, 0.363484E+01_JPRB, 0.361761E+01_JPRB, 0.359999E+01_JPRB/)
+XCW( 926, :) = (/ &
+  &  0.114805E+01_JPRB, 0.118606E+01_JPRB, 0.122443E+01_JPRB, 0.126314E+01_JPRB &
+  &, 0.130217E+01_JPRB, 0.134151E+01_JPRB, 0.138113E+01_JPRB &
+  &, 0.142101E+01_JPRB, 0.146113E+01_JPRB, 0.150149E+01_JPRB, 0.154204E+01_JPRB &
+  &, 0.158278E+01_JPRB, 0.162368E+01_JPRB, 0.166473E+01_JPRB &
+  &, 0.170591E+01_JPRB, 0.174718E+01_JPRB, 0.178854E+01_JPRB, 0.182997E+01_JPRB &
+  &, 0.187143E+01_JPRB, 0.191292E+01_JPRB, 0.195442E+01_JPRB &
+  &, 0.199589E+01_JPRB, 0.203733E+01_JPRB, 0.207871E+01_JPRB, 0.212001E+01_JPRB &
+  &, 0.216122E+01_JPRB, 0.220231E+01_JPRB, 0.224327E+01_JPRB &
+  &, 0.228407E+01_JPRB, 0.232470E+01_JPRB, 0.236513E+01_JPRB, 0.240536E+01_JPRB &
+  &, 0.244535E+01_JPRB, 0.248510E+01_JPRB, 0.252458E+01_JPRB &
+  &, 0.256378E+01_JPRB, 0.260268E+01_JPRB, 0.264127E+01_JPRB, 0.267953E+01_JPRB &
+  &, 0.271744E+01_JPRB, 0.275499E+01_JPRB, 0.279216E+01_JPRB &
+  &, 0.282894E+01_JPRB, 0.286531E+01_JPRB, 0.290128E+01_JPRB, 0.293680E+01_JPRB &
+  &, 0.297188E+01_JPRB, 0.300649E+01_JPRB, 0.304064E+01_JPRB &
+  &, 0.307430E+01_JPRB, 0.310748E+01_JPRB, 0.314014E+01_JPRB, 0.317230E+01_JPRB &
+  &, 0.320393E+01_JPRB, 0.323501E+01_JPRB, 0.326558E+01_JPRB &
+  &, 0.329557E+01_JPRB, 0.332501E+01_JPRB, 0.335388E+01_JPRB, 0.338218E+01_JPRB &
+  &, 0.340989E+01_JPRB, 0.343702E+01_JPRB, 0.346353E+01_JPRB &
+  &, 0.348946E+01_JPRB, 0.351478E+01_JPRB, 0.353948E+01_JPRB, 0.356355E+01_JPRB &
+  &, 0.358702E+01_JPRB, 0.360985E+01_JPRB, 0.363206E+01_JPRB &
+  &, 0.365363E+01_JPRB, 0.367456E+01_JPRB, 0.369484E+01_JPRB, 0.371449E+01_JPRB &
+  &, 0.373348E+01_JPRB, 0.375186E+01_JPRB, 0.376955E+01_JPRB &
+  &, 0.378660E+01_JPRB, 0.380302E+01_JPRB, 0.381874E+01_JPRB, 0.383384E+01_JPRB &
+  &, 0.384788E+01_JPRB, 0.386209E+01_JPRB, 0.387521E+01_JPRB &
+  &, 0.388769E+01_JPRB, 0.389953E+01_JPRB, 0.391072E+01_JPRB, 0.392123E+01_JPRB &
+  &, 0.393111E+01_JPRB, 0.394036E+01_JPRB, 0.394893E+01_JPRB &
+  &, 0.395689E+01_JPRB, 0.396417E+01_JPRB, 0.397086E+01_JPRB, 0.397689E+01_JPRB &
+  &, 0.398229E+01_JPRB, 0.398705E+01_JPRB, 0.399117E+01_JPRB &
+  &, 0.399472E+01_JPRB, 0.399759E+01_JPRB, 0.399984E+01_JPRB, 0.400155E+01_JPRB &
+  &, 0.400263E+01_JPRB, 0.400309E+01_JPRB, 0.400295E+01_JPRB &
+  &, 0.400223E+01_JPRB, 0.400094E+01_JPRB, 0.399902E+01_JPRB, 0.399656E+01_JPRB &
+  &, 0.399351E+01_JPRB, 0.398987E+01_JPRB, 0.398571E+01_JPRB &
+  &, 0.398095E+01_JPRB, 0.397567E+01_JPRB, 0.396984E+01_JPRB, 0.396327E+01_JPRB &
+  &, 0.395652E+01_JPRB, 0.394908E+01_JPRB, 0.394111E+01_JPRB &
+  &, 0.393267E+01_JPRB, 0.392365E+01_JPRB, 0.391421E+01_JPRB, 0.390422E+01_JPRB &
+  &, 0.389374E+01_JPRB, 0.388281E+01_JPRB, 0.387137E+01_JPRB &
+  &, 0.385947E+01_JPRB, 0.384710E+01_JPRB, 0.383430E+01_JPRB, 0.382103E+01_JPRB &
+  &, 0.380730E+01_JPRB, 0.379320E+01_JPRB, 0.377864E+01_JPRB &
+  &, 0.376368E+01_JPRB, 0.374829E+01_JPRB, 0.373250E+01_JPRB, 0.371631E+01_JPRB &
+  &, 0.369976E+01_JPRB, 0.368280E+01_JPRB, 0.366544E+01_JPRB/)
+XCW( 927, :) = (/ &
+  &  0.114883E+01_JPRB, 0.118706E+01_JPRB, 0.122566E+01_JPRB, 0.126460E+01_JPRB &
+  &, 0.130388E+01_JPRB, 0.134347E+01_JPRB, 0.138335E+01_JPRB &
+  &, 0.142350E+01_JPRB, 0.146391E+01_JPRB, 0.150454E+01_JPRB, 0.154539E+01_JPRB &
+  &, 0.158643E+01_JPRB, 0.162765E+01_JPRB, 0.166901E+01_JPRB &
+  &, 0.171051E+01_JPRB, 0.175212E+01_JPRB, 0.179382E+01_JPRB, 0.183559E+01_JPRB &
+  &, 0.187742E+01_JPRB, 0.191927E+01_JPRB, 0.196113E+01_JPRB &
+  &, 0.200299E+01_JPRB, 0.204482E+01_JPRB, 0.208659E+01_JPRB, 0.212829E+01_JPRB &
+  &, 0.216991E+01_JPRB, 0.221141E+01_JPRB, 0.225279E+01_JPRB &
+  &, 0.229402E+01_JPRB, 0.233508E+01_JPRB, 0.237596E+01_JPRB, 0.241663E+01_JPRB &
+  &, 0.245708E+01_JPRB, 0.249729E+01_JPRB, 0.253724E+01_JPRB &
+  &, 0.257691E+01_JPRB, 0.261629E+01_JPRB, 0.265536E+01_JPRB, 0.269411E+01_JPRB &
+  &, 0.273252E+01_JPRB, 0.277057E+01_JPRB, 0.280824E+01_JPRB &
+  &, 0.284553E+01_JPRB, 0.288242E+01_JPRB, 0.291889E+01_JPRB, 0.295494E+01_JPRB &
+  &, 0.299055E+01_JPRB, 0.302571E+01_JPRB, 0.306038E+01_JPRB &
+  &, 0.309459E+01_JPRB, 0.312831E+01_JPRB, 0.316153E+01_JPRB, 0.319423E+01_JPRB &
+  &, 0.322641E+01_JPRB, 0.325808E+01_JPRB, 0.328918E+01_JPRB &
+  &, 0.331976E+01_JPRB, 0.334977E+01_JPRB, 0.337921E+01_JPRB, 0.340807E+01_JPRB &
+  &, 0.343636E+01_JPRB, 0.346406E+01_JPRB, 0.349117E+01_JPRB &
+  &, 0.351768E+01_JPRB, 0.354358E+01_JPRB, 0.356886E+01_JPRB, 0.359354E+01_JPRB &
+  &, 0.361760E+01_JPRB, 0.364101E+01_JPRB, 0.366382E+01_JPRB &
+  &, 0.368598E+01_JPRB, 0.370733E+01_JPRB, 0.372839E+01_JPRB, 0.374862E+01_JPRB &
+  &, 0.376822E+01_JPRB, 0.378717E+01_JPRB, 0.380546E+01_JPRB &
+  &, 0.382311E+01_JPRB, 0.384010E+01_JPRB, 0.385647E+01_JPRB, 0.387215E+01_JPRB &
+  &, 0.388718E+01_JPRB, 0.390156E+01_JPRB, 0.391530E+01_JPRB &
+  &, 0.392837E+01_JPRB, 0.394079E+01_JPRB, 0.395255E+01_JPRB, 0.396367E+01_JPRB &
+  &, 0.397412E+01_JPRB, 0.398392E+01_JPRB, 0.399309E+01_JPRB &
+  &, 0.400164E+01_JPRB, 0.400949E+01_JPRB, 0.401673E+01_JPRB, 0.402333E+01_JPRB &
+  &, 0.402928E+01_JPRB, 0.403462E+01_JPRB, 0.403932E+01_JPRB &
+  &, 0.404341E+01_JPRB, 0.404686E+01_JPRB, 0.404957E+01_JPRB, 0.405193E+01_JPRB &
+  &, 0.405351E+01_JPRB, 0.405454E+01_JPRB, 0.405494E+01_JPRB &
+  &, 0.405470E+01_JPRB, 0.405394E+01_JPRB, 0.405254E+01_JPRB, 0.405060E+01_JPRB &
+  &, 0.404806E+01_JPRB, 0.404494E+01_JPRB, 0.404124E+01_JPRB &
+  &, 0.403700E+01_JPRB, 0.403217E+01_JPRB, 0.402683E+01_JPRB, 0.402076E+01_JPRB &
+  &, 0.401450E+01_JPRB, 0.400750E+01_JPRB, 0.400001E+01_JPRB &
+  &, 0.399200E+01_JPRB, 0.398345E+01_JPRB, 0.397443E+01_JPRB, 0.396484E+01_JPRB &
+  &, 0.395482E+01_JPRB, 0.394428E+01_JPRB, 0.393324E+01_JPRB &
+  &, 0.392177E+01_JPRB, 0.390983E+01_JPRB, 0.389740E+01_JPRB, 0.388449E+01_JPRB &
+  &, 0.387118E+01_JPRB, 0.385743E+01_JPRB, 0.384320E+01_JPRB &
+  &, 0.382863E+01_JPRB, 0.381357E+01_JPRB, 0.379809E+01_JPRB, 0.378227E+01_JPRB &
+  &, 0.376602E+01_JPRB, 0.374934E+01_JPRB, 0.373234E+01_JPRB/)
+XCW( 928, :) = (/ &
+  &  0.114963E+01_JPRB, 0.118808E+01_JPRB, 0.122690E+01_JPRB, 0.126609E+01_JPRB &
+  &, 0.130561E+01_JPRB, 0.134545E+01_JPRB, 0.138560E+01_JPRB &
+  &, 0.142602E+01_JPRB, 0.146671E+01_JPRB, 0.150763E+01_JPRB, 0.154878E+01_JPRB &
+  &, 0.159013E+01_JPRB, 0.163165E+01_JPRB, 0.167334E+01_JPRB &
+  &, 0.171517E+01_JPRB, 0.175712E+01_JPRB, 0.179917E+01_JPRB, 0.184129E+01_JPRB &
+  &, 0.188348E+01_JPRB, 0.192570E+01_JPRB, 0.196794E+01_JPRB &
+  &, 0.201018E+01_JPRB, 0.205240E+01_JPRB, 0.209457E+01_JPRB, 0.213668E+01_JPRB &
+  &, 0.217871E+01_JPRB, 0.222064E+01_JPRB, 0.226244E+01_JPRB &
+  &, 0.230411E+01_JPRB, 0.234561E+01_JPRB, 0.238693E+01_JPRB, 0.242806E+01_JPRB &
+  &, 0.246897E+01_JPRB, 0.250964E+01_JPRB, 0.255007E+01_JPRB &
+  &, 0.259022E+01_JPRB, 0.263008E+01_JPRB, 0.266965E+01_JPRB, 0.270889E+01_JPRB &
+  &, 0.274780E+01_JPRB, 0.278636E+01_JPRB, 0.282454E+01_JPRB &
+  &, 0.286236E+01_JPRB, 0.289977E+01_JPRB, 0.293673E+01_JPRB, 0.297335E+01_JPRB &
+  &, 0.300950E+01_JPRB, 0.304519E+01_JPRB, 0.308042E+01_JPRB &
+  &, 0.311518E+01_JPRB, 0.314944E+01_JPRB, 0.318323E+01_JPRB, 0.321649E+01_JPRB &
+  &, 0.324925E+01_JPRB, 0.328147E+01_JPRB, 0.331315E+01_JPRB &
+  &, 0.334431E+01_JPRB, 0.337488E+01_JPRB, 0.340491E+01_JPRB, 0.343436E+01_JPRB &
+  &, 0.346325E+01_JPRB, 0.349153E+01_JPRB, 0.351923E+01_JPRB &
+  &, 0.354633E+01_JPRB, 0.357269E+01_JPRB, 0.359872E+01_JPRB, 0.362399E+01_JPRB &
+  &, 0.364802E+01_JPRB, 0.367267E+01_JPRB, 0.369607E+01_JPRB &
+  &, 0.371884E+01_JPRB, 0.374097E+01_JPRB, 0.376246E+01_JPRB, 0.378331E+01_JPRB &
+  &, 0.380351E+01_JPRB, 0.382306E+01_JPRB, 0.384198E+01_JPRB &
+  &, 0.386022E+01_JPRB, 0.387784E+01_JPRB, 0.389479E+01_JPRB, 0.391107E+01_JPRB &
+  &, 0.392668E+01_JPRB, 0.394172E+01_JPRB, 0.395604E+01_JPRB &
+  &, 0.396972E+01_JPRB, 0.398272E+01_JPRB, 0.399510E+01_JPRB, 0.400681E+01_JPRB &
+  &, 0.401788E+01_JPRB, 0.402827E+01_JPRB, 0.403804E+01_JPRB &
+  &, 0.404714E+01_JPRB, 0.405562E+01_JPRB, 0.406342E+01_JPRB, 0.407061E+01_JPRB &
+  &, 0.407715E+01_JPRB, 0.408305E+01_JPRB, 0.408835E+01_JPRB &
+  &, 0.409299E+01_JPRB, 0.409700E+01_JPRB, 0.410041E+01_JPRB, 0.410318E+01_JPRB &
+  &, 0.410534E+01_JPRB, 0.410689E+01_JPRB, 0.410779E+01_JPRB &
+  &, 0.410818E+01_JPRB, 0.410791E+01_JPRB, 0.410710E+01_JPRB, 0.410565E+01_JPRB &
+  &, 0.410348E+01_JPRB, 0.410101E+01_JPRB, 0.409784E+01_JPRB &
+  &, 0.409412E+01_JPRB, 0.408981E+01_JPRB, 0.408494E+01_JPRB, 0.407953E+01_JPRB &
+  &, 0.407358E+01_JPRB, 0.406708E+01_JPRB, 0.406004E+01_JPRB &
+  &, 0.405253E+01_JPRB, 0.404442E+01_JPRB, 0.403583E+01_JPRB, 0.402672E+01_JPRB &
+  &, 0.401712E+01_JPRB, 0.400704E+01_JPRB, 0.399641E+01_JPRB &
+  &, 0.398539E+01_JPRB, 0.397385E+01_JPRB, 0.396181E+01_JPRB, 0.394933E+01_JPRB &
+  &, 0.393640E+01_JPRB, 0.392301E+01_JPRB, 0.390920E+01_JPRB &
+  &, 0.389492E+01_JPRB, 0.388026E+01_JPRB, 0.386518E+01_JPRB, 0.384969E+01_JPRB &
+  &, 0.383375E+01_JPRB, 0.381745E+01_JPRB, 0.380074E+01_JPRB/)
+XCW( 929, :) = (/ &
+  &  0.115043E+01_JPRB, 0.118911E+01_JPRB, 0.122816E+01_JPRB, 0.126759E+01_JPRB &
+  &, 0.130736E+01_JPRB, 0.134746E+01_JPRB, 0.138787E+01_JPRB &
+  &, 0.142857E+01_JPRB, 0.146954E+01_JPRB, 0.151076E+01_JPRB, 0.155221E+01_JPRB &
+  &, 0.159386E+01_JPRB, 0.163571E+01_JPRB, 0.167773E+01_JPRB &
+  &, 0.171989E+01_JPRB, 0.176218E+01_JPRB, 0.180458E+01_JPRB, 0.184706E+01_JPRB &
+  &, 0.188961E+01_JPRB, 0.193221E+01_JPRB, 0.197483E+01_JPRB &
+  &, 0.201746E+01_JPRB, 0.206008E+01_JPRB, 0.210266E+01_JPRB, 0.214518E+01_JPRB &
+  &, 0.218763E+01_JPRB, 0.222998E+01_JPRB, 0.227222E+01_JPRB &
+  &, 0.231432E+01_JPRB, 0.235628E+01_JPRB, 0.239806E+01_JPRB, 0.243964E+01_JPRB &
+  &, 0.248102E+01_JPRB, 0.252217E+01_JPRB, 0.256307E+01_JPRB &
+  &, 0.260371E+01_JPRB, 0.264407E+01_JPRB, 0.268414E+01_JPRB, 0.272389E+01_JPRB &
+  &, 0.276330E+01_JPRB, 0.280237E+01_JPRB, 0.284108E+01_JPRB &
+  &, 0.287942E+01_JPRB, 0.291736E+01_JPRB, 0.295490E+01_JPRB, 0.299203E+01_JPRB &
+  &, 0.302872E+01_JPRB, 0.306496E+01_JPRB, 0.310075E+01_JPRB &
+  &, 0.313607E+01_JPRB, 0.317090E+01_JPRB, 0.320525E+01_JPRB, 0.323909E+01_JPRB &
+  &, 0.327241E+01_JPRB, 0.330523E+01_JPRB, 0.333749E+01_JPRB &
+  &, 0.336923E+01_JPRB, 0.340040E+01_JPRB, 0.343101E+01_JPRB, 0.346106E+01_JPRB &
+  &, 0.349054E+01_JPRB, 0.351942E+01_JPRB, 0.354774E+01_JPRB &
+  &, 0.357544E+01_JPRB, 0.360251E+01_JPRB, 0.362903E+01_JPRB, 0.365493E+01_JPRB &
+  &, 0.368018E+01_JPRB, 0.370484E+01_JPRB, 0.372885E+01_JPRB &
+  &, 0.375222E+01_JPRB, 0.377499E+01_JPRB, 0.379708E+01_JPRB, 0.381856E+01_JPRB &
+  &, 0.383937E+01_JPRB, 0.385947E+01_JPRB, 0.387908E+01_JPRB &
+  &, 0.389795E+01_JPRB, 0.391619E+01_JPRB, 0.393375E+01_JPRB, 0.395067E+01_JPRB &
+  &, 0.396692E+01_JPRB, 0.398253E+01_JPRB, 0.399747E+01_JPRB &
+  &, 0.401177E+01_JPRB, 0.402540E+01_JPRB, 0.403838E+01_JPRB, 0.405059E+01_JPRB &
+  &, 0.406236E+01_JPRB, 0.407338E+01_JPRB, 0.408376E+01_JPRB &
+  &, 0.409347E+01_JPRB, 0.410252E+01_JPRB, 0.411096E+01_JPRB, 0.411873E+01_JPRB &
+  &, 0.412588E+01_JPRB, 0.413238E+01_JPRB, 0.413822E+01_JPRB &
+  &, 0.414347E+01_JPRB, 0.414805E+01_JPRB, 0.415203E+01_JPRB, 0.415540E+01_JPRB &
+  &, 0.415813E+01_JPRB, 0.416024E+01_JPRB, 0.416175E+01_JPRB &
+  &, 0.416266E+01_JPRB, 0.416295E+01_JPRB, 0.416265E+01_JPRB, 0.416176E+01_JPRB &
+  &, 0.416026E+01_JPRB, 0.415821E+01_JPRB, 0.415559E+01_JPRB &
+  &, 0.415236E+01_JPRB, 0.414855E+01_JPRB, 0.414421E+01_JPRB, 0.413932E+01_JPRB &
+  &, 0.413385E+01_JPRB, 0.412787E+01_JPRB, 0.412130E+01_JPRB &
+  &, 0.411425E+01_JPRB, 0.410665E+01_JPRB, 0.409851E+01_JPRB, 0.408990E+01_JPRB &
+  &, 0.408073E+01_JPRB, 0.407109E+01_JPRB, 0.406094E+01_JPRB &
+  &, 0.405028E+01_JPRB, 0.403921E+01_JPRB, 0.402758E+01_JPRB, 0.401556E+01_JPRB &
+  &, 0.400301E+01_JPRB, 0.399001E+01_JPRB, 0.397658E+01_JPRB &
+  &, 0.396273E+01_JPRB, 0.394843E+01_JPRB, 0.393370E+01_JPRB, 0.391855E+01_JPRB &
+  &, 0.390295E+01_JPRB, 0.388653E+01_JPRB, 0.387066E+01_JPRB/)
+XCW( 930, :) = (/ &
+  &  0.115125E+01_JPRB, 0.119014E+01_JPRB, 0.122944E+01_JPRB, 0.126911E+01_JPRB &
+  &, 0.130913E+01_JPRB, 0.134950E+01_JPRB, 0.139018E+01_JPRB &
+  &, 0.143116E+01_JPRB, 0.147241E+01_JPRB, 0.151393E+01_JPRB, 0.155568E+01_JPRB &
+  &, 0.159765E+01_JPRB, 0.163982E+01_JPRB, 0.168216E+01_JPRB &
+  &, 0.172467E+01_JPRB, 0.176731E+01_JPRB, 0.181006E+01_JPRB, 0.185291E+01_JPRB &
+  &, 0.189583E+01_JPRB, 0.193881E+01_JPRB, 0.198182E+01_JPRB &
+  &, 0.202484E+01_JPRB, 0.206786E+01_JPRB, 0.211085E+01_JPRB, 0.215379E+01_JPRB &
+  &, 0.219667E+01_JPRB, 0.223945E+01_JPRB, 0.228213E+01_JPRB &
+  &, 0.232469E+01_JPRB, 0.236709E+01_JPRB, 0.240933E+01_JPRB, 0.245139E+01_JPRB &
+  &, 0.249324E+01_JPRB, 0.253487E+01_JPRB, 0.257626E+01_JPRB &
+  &, 0.261739E+01_JPRB, 0.265825E+01_JPRB, 0.269882E+01_JPRB, 0.273908E+01_JPRB &
+  &, 0.277902E+01_JPRB, 0.281862E+01_JPRB, 0.285786E+01_JPRB &
+  &, 0.289673E+01_JPRB, 0.293522E+01_JPRB, 0.297330E+01_JPRB, 0.301097E+01_JPRB &
+  &, 0.304822E+01_JPRB, 0.308503E+01_JPRB, 0.312137E+01_JPRB &
+  &, 0.315726E+01_JPRB, 0.319267E+01_JPRB, 0.322760E+01_JPRB, 0.326202E+01_JPRB &
+  &, 0.329594E+01_JPRB, 0.332934E+01_JPRB, 0.336220E+01_JPRB &
+  &, 0.339452E+01_JPRB, 0.342630E+01_JPRB, 0.345752E+01_JPRB, 0.348818E+01_JPRB &
+  &, 0.351826E+01_JPRB, 0.354777E+01_JPRB, 0.357669E+01_JPRB &
+  &, 0.360500E+01_JPRB, 0.363273E+01_JPRB, 0.365984E+01_JPRB, 0.368635E+01_JPRB &
+  &, 0.371224E+01_JPRB, 0.373751E+01_JPRB, 0.376215E+01_JPRB &
+  &, 0.378617E+01_JPRB, 0.380955E+01_JPRB, 0.383230E+01_JPRB, 0.385435E+01_JPRB &
+  &, 0.387583E+01_JPRB, 0.389665E+01_JPRB, 0.391680E+01_JPRB &
+  &, 0.393623E+01_JPRB, 0.395518E+01_JPRB, 0.397337E+01_JPRB, 0.399089E+01_JPRB &
+  &, 0.400782E+01_JPRB, 0.402405E+01_JPRB, 0.403963E+01_JPRB &
+  &, 0.405455E+01_JPRB, 0.406881E+01_JPRB, 0.408232E+01_JPRB, 0.409536E+01_JPRB &
+  &, 0.410768E+01_JPRB, 0.411929E+01_JPRB, 0.413028E+01_JPRB &
+  &, 0.414061E+01_JPRB, 0.415029E+01_JPRB, 0.415932E+01_JPRB, 0.416771E+01_JPRB &
+  &, 0.417549E+01_JPRB, 0.418258E+01_JPRB, 0.418904E+01_JPRB &
+  &, 0.419488E+01_JPRB, 0.420008E+01_JPRB, 0.420461E+01_JPRB, 0.420856E+01_JPRB &
+  &, 0.421188E+01_JPRB, 0.421457E+01_JPRB, 0.421669E+01_JPRB &
+  &, 0.421814E+01_JPRB, 0.421901E+01_JPRB, 0.421928E+01_JPRB, 0.421896E+01_JPRB &
+  &, 0.421803E+01_JPRB, 0.421650E+01_JPRB, 0.421439E+01_JPRB &
+  &, 0.421172E+01_JPRB, 0.420846E+01_JPRB, 0.420468E+01_JPRB, 0.420020E+01_JPRB &
+  &, 0.419537E+01_JPRB, 0.418983E+01_JPRB, 0.418379E+01_JPRB &
+  &, 0.417722E+01_JPRB, 0.417014E+01_JPRB, 0.416252E+01_JPRB, 0.415432E+01_JPRB &
+  &, 0.414567E+01_JPRB, 0.413648E+01_JPRB, 0.412677E+01_JPRB &
+  &, 0.411661E+01_JPRB, 0.410592E+01_JPRB, 0.409476E+01_JPRB, 0.408316E+01_JPRB &
+  &, 0.407103E+01_JPRB, 0.405849E+01_JPRB, 0.404545E+01_JPRB &
+  &, 0.403199E+01_JPRB, 0.401807E+01_JPRB, 0.400372E+01_JPRB, 0.398894E+01_JPRB &
+  &, 0.397376E+01_JPRB, 0.395813E+01_JPRB, 0.394215E+01_JPRB/)
+XCW( 931, :) = (/ &
+  &  0.115207E+01_JPRB, 0.119120E+01_JPRB, 0.123073E+01_JPRB, 0.127064E+01_JPRB &
+  &, 0.131093E+01_JPRB, 0.135155E+01_JPRB, 0.139251E+01_JPRB &
+  &, 0.143377E+01_JPRB, 0.147532E+01_JPRB, 0.151713E+01_JPRB, 0.155920E+01_JPRB &
+  &, 0.160148E+01_JPRB, 0.164398E+01_JPRB, 0.168666E+01_JPRB &
+  &, 0.172951E+01_JPRB, 0.177250E+01_JPRB, 0.181561E+01_JPRB, 0.185883E+01_JPRB &
+  &, 0.190213E+01_JPRB, 0.194549E+01_JPRB, 0.198890E+01_JPRB &
+  &, 0.203232E+01_JPRB, 0.207575E+01_JPRB, 0.211916E+01_JPRB, 0.216252E+01_JPRB &
+  &, 0.220583E+01_JPRB, 0.224905E+01_JPRB, 0.229218E+01_JPRB &
+  &, 0.233519E+01_JPRB, 0.237806E+01_JPRB, 0.242077E+01_JPRB, 0.246330E+01_JPRB &
+  &, 0.250563E+01_JPRB, 0.254775E+01_JPRB, 0.258964E+01_JPRB &
+  &, 0.263127E+01_JPRB, 0.267264E+01_JPRB, 0.271373E+01_JPRB, 0.275451E+01_JPRB &
+  &, 0.279497E+01_JPRB, 0.283510E+01_JPRB, 0.287488E+01_JPRB &
+  &, 0.291430E+01_JPRB, 0.295334E+01_JPRB, 0.299197E+01_JPRB, 0.303021E+01_JPRB &
+  &, 0.306803E+01_JPRB, 0.310540E+01_JPRB, 0.314232E+01_JPRB &
+  &, 0.317544E+01_JPRB, 0.321479E+01_JPRB, 0.325030E+01_JPRB, 0.328531E+01_JPRB &
+  &, 0.331983E+01_JPRB, 0.335382E+01_JPRB, 0.338729E+01_JPRB &
+  &, 0.342023E+01_JPRB, 0.345260E+01_JPRB, 0.348445E+01_JPRB, 0.351572E+01_JPRB &
+  &, 0.354642E+01_JPRB, 0.357655E+01_JPRB, 0.360610E+01_JPRB &
+  &, 0.363505E+01_JPRB, 0.366339E+01_JPRB, 0.369116E+01_JPRB, 0.371829E+01_JPRB &
+  &, 0.374482E+01_JPRB, 0.377073E+01_JPRB, 0.379598E+01_JPRB &
+  &, 0.382067E+01_JPRB, 0.384469E+01_JPRB, 0.386808E+01_JPRB, 0.389081E+01_JPRB &
+  &, 0.391293E+01_JPRB, 0.393434E+01_JPRB, 0.395518E+01_JPRB &
+  &, 0.397534E+01_JPRB, 0.399483E+01_JPRB, 0.401367E+01_JPRB, 0.403188E+01_JPRB &
+  &, 0.404943E+01_JPRB, 0.406631E+01_JPRB, 0.408253E+01_JPRB &
+  &, 0.409807E+01_JPRB, 0.411299E+01_JPRB, 0.412724E+01_JPRB, 0.414082E+01_JPRB &
+  &, 0.415375E+01_JPRB, 0.416602E+01_JPRB, 0.417765E+01_JPRB &
+  &, 0.418862E+01_JPRB, 0.419893E+01_JPRB, 0.420860E+01_JPRB, 0.421737E+01_JPRB &
+  &, 0.422598E+01_JPRB, 0.423371E+01_JPRB, 0.424077E+01_JPRB &
+  &, 0.424722E+01_JPRB, 0.425306E+01_JPRB, 0.425823E+01_JPRB, 0.426274E+01_JPRB &
+  &, 0.426666E+01_JPRB, 0.426999E+01_JPRB, 0.427263E+01_JPRB &
+  &, 0.427471E+01_JPRB, 0.427617E+01_JPRB, 0.427703E+01_JPRB, 0.427726E+01_JPRB &
+  &, 0.427682E+01_JPRB, 0.427592E+01_JPRB, 0.427439E+01_JPRB &
+  &, 0.427230E+01_JPRB, 0.426957E+01_JPRB, 0.426630E+01_JPRB, 0.426248E+01_JPRB &
+  &, 0.425807E+01_JPRB, 0.425309E+01_JPRB, 0.424760E+01_JPRB &
+  &, 0.424153E+01_JPRB, 0.423490E+01_JPRB, 0.422782E+01_JPRB, 0.422015E+01_JPRB &
+  &, 0.421193E+01_JPRB, 0.420326E+01_JPRB, 0.419402E+01_JPRB &
+  &, 0.418432E+01_JPRB, 0.417413E+01_JPRB, 0.416342E+01_JPRB, 0.415220E+01_JPRB &
+  &, 0.414055E+01_JPRB, 0.412844E+01_JPRB, 0.411582E+01_JPRB &
+  &, 0.410277E+01_JPRB, 0.408926E+01_JPRB, 0.407536E+01_JPRB, 0.406096E+01_JPRB &
+  &, 0.404616E+01_JPRB, 0.403091E+01_JPRB, 0.401522E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART133',1,ZHOOK_HANDLE)
+END SUBROUTINE PART133
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART134
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART134',0,ZHOOK_HANDLE)
+
+XCW( 932, :) = (/ &
+  &  0.115290E+01_JPRB, 0.119226E+01_JPRB, 0.123203E+01_JPRB, 0.127220E+01_JPRB &
+  &, 0.131274E+01_JPRB, 0.135364E+01_JPRB, 0.139487E+01_JPRB &
+  &, 0.143642E+01_JPRB, 0.147826E+01_JPRB, 0.152038E+01_JPRB, 0.156276E+01_JPRB &
+  &, 0.160537E+01_JPRB, 0.164819E+01_JPRB, 0.169121E+01_JPRB &
+  &, 0.173441E+01_JPRB, 0.177776E+01_JPRB, 0.182124E+01_JPRB, 0.186483E+01_JPRB &
+  &, 0.190851E+01_JPRB, 0.195227E+01_JPRB, 0.199607E+01_JPRB &
+  &, 0.203990E+01_JPRB, 0.208374E+01_JPRB, 0.212758E+01_JPRB, 0.217137E+01_JPRB &
+  &, 0.221512E+01_JPRB, 0.225879E+01_JPRB, 0.230237E+01_JPRB &
+  &, 0.234584E+01_JPRB, 0.238917E+01_JPRB, 0.243236E+01_JPRB, 0.247537E+01_JPRB &
+  &, 0.251820E+01_JPRB, 0.256082E+01_JPRB, 0.260321E+01_JPRB &
+  &, 0.264535E+01_JPRB, 0.268724E+01_JPRB, 0.272885E+01_JPRB, 0.277016E+01_JPRB &
+  &, 0.281116E+01_JPRB, 0.285184E+01_JPRB, 0.289216E+01_JPRB &
+  &, 0.293214E+01_JPRB, 0.297172E+01_JPRB, 0.301094E+01_JPRB, 0.304974E+01_JPRB &
+  &, 0.308813E+01_JPRB, 0.312608E+01_JPRB, 0.316359E+01_JPRB &
+  &, 0.320065E+01_JPRB, 0.323724E+01_JPRB, 0.327334E+01_JPRB, 0.330897E+01_JPRB &
+  &, 0.334409E+01_JPRB, 0.337869E+01_JPRB, 0.341278E+01_JPRB &
+  &, 0.344632E+01_JPRB, 0.347934E+01_JPRB, 0.351181E+01_JPRB, 0.354370E+01_JPRB &
+  &, 0.357505E+01_JPRB, 0.360581E+01_JPRB, 0.363599E+01_JPRB &
+  &, 0.366557E+01_JPRB, 0.369457E+01_JPRB, 0.372297E+01_JPRB, 0.375076E+01_JPRB &
+  &, 0.377793E+01_JPRB, 0.380449E+01_JPRB, 0.383042E+01_JPRB &
+  &, 0.385574E+01_JPRB, 0.388041E+01_JPRB, 0.390446E+01_JPRB, 0.392785E+01_JPRB &
+  &, 0.395062E+01_JPRB, 0.397273E+01_JPRB, 0.399421E+01_JPRB &
+  &, 0.401503E+01_JPRB, 0.403519E+01_JPRB, 0.405466E+01_JPRB, 0.407354E+01_JPRB &
+  &, 0.409174E+01_JPRB, 0.410928E+01_JPRB, 0.412617E+01_JPRB &
+  &, 0.414240E+01_JPRB, 0.415794E+01_JPRB, 0.417286E+01_JPRB, 0.418709E+01_JPRB &
+  &, 0.420069E+01_JPRB, 0.421361E+01_JPRB, 0.422589E+01_JPRB &
+  &, 0.423751E+01_JPRB, 0.424844E+01_JPRB, 0.425876E+01_JPRB, 0.426842E+01_JPRB &
+  &, 0.427742E+01_JPRB, 0.428581E+01_JPRB, 0.429349E+01_JPRB &
+  &, 0.430059E+01_JPRB, 0.430702E+01_JPRB, 0.431281E+01_JPRB, 0.431798E+01_JPRB &
+  &, 0.432251E+01_JPRB, 0.432642E+01_JPRB, 0.432971E+01_JPRB &
+  &, 0.433236E+01_JPRB, 0.433443E+01_JPRB, 0.433586E+01_JPRB, 0.433669E+01_JPRB &
+  &, 0.433677E+01_JPRB, 0.433656E+01_JPRB, 0.433563E+01_JPRB &
+  &, 0.433404E+01_JPRB, 0.433190E+01_JPRB, 0.432922E+01_JPRB, 0.432594E+01_JPRB &
+  &, 0.432206E+01_JPRB, 0.431766E+01_JPRB, 0.431270E+01_JPRB &
+  &, 0.430715E+01_JPRB, 0.430107E+01_JPRB, 0.429445E+01_JPRB, 0.428734E+01_JPRB &
+  &, 0.427961E+01_JPRB, 0.427144E+01_JPRB, 0.426273E+01_JPRB &
+  &, 0.425351E+01_JPRB, 0.424374E+01_JPRB, 0.423355E+01_JPRB, 0.422279E+01_JPRB &
+  &, 0.421160E+01_JPRB, 0.419993E+01_JPRB, 0.418775E+01_JPRB &
+  &, 0.417513E+01_JPRB, 0.416210E+01_JPRB, 0.414855E+01_JPRB, 0.413457E+01_JPRB &
+  &, 0.412017E+01_JPRB, 0.410531E+01_JPRB, 0.409007E+01_JPRB/)
+XCW( 933, :) = (/ &
+  &  0.115375E+01_JPRB, 0.119334E+01_JPRB, 0.123335E+01_JPRB, 0.127377E+01_JPRB &
+  &, 0.131458E+01_JPRB, 0.135574E+01_JPRB, 0.139726E+01_JPRB &
+  &, 0.143910E+01_JPRB, 0.148124E+01_JPRB, 0.152367E+01_JPRB, 0.156636E+01_JPRB &
+  &, 0.160930E+01_JPRB, 0.165246E+01_JPRB, 0.169582E+01_JPRB &
+  &, 0.173938E+01_JPRB, 0.178309E+01_JPRB, 0.182694E+01_JPRB, 0.187091E+01_JPRB &
+  &, 0.191498E+01_JPRB, 0.195913E+01_JPRB, 0.200334E+01_JPRB &
+  &, 0.204759E+01_JPRB, 0.209185E+01_JPRB, 0.213611E+01_JPRB, 0.218035E+01_JPRB &
+  &, 0.222454E+01_JPRB, 0.226866E+01_JPRB, 0.231268E+01_JPRB &
+  &, 0.235664E+01_JPRB, 0.240045E+01_JPRB, 0.244412E+01_JPRB, 0.248763E+01_JPRB &
+  &, 0.253095E+01_JPRB, 0.257408E+01_JPRB, 0.261698E+01_JPRB &
+  &, 0.265964E+01_JPRB, 0.270205E+01_JPRB, 0.274419E+01_JPRB, 0.278604E+01_JPRB &
+  &, 0.282760E+01_JPRB, 0.286882E+01_JPRB, 0.290970E+01_JPRB &
+  &, 0.295023E+01_JPRB, 0.299040E+01_JPRB, 0.303018E+01_JPRB, 0.306957E+01_JPRB &
+  &, 0.310853E+01_JPRB, 0.314707E+01_JPRB, 0.318519E+01_JPRB &
+  &, 0.322284E+01_JPRB, 0.326003E+01_JPRB, 0.329676E+01_JPRB, 0.333299E+01_JPRB &
+  &, 0.336873E+01_JPRB, 0.340396E+01_JPRB, 0.343867E+01_JPRB &
+  &, 0.347285E+01_JPRB, 0.350650E+01_JPRB, 0.353960E+01_JPRB, 0.357214E+01_JPRB &
+  &, 0.360412E+01_JPRB, 0.363553E+01_JPRB, 0.366636E+01_JPRB &
+  &, 0.369662E+01_JPRB, 0.372627E+01_JPRB, 0.375533E+01_JPRB, 0.378377E+01_JPRB &
+  &, 0.381158E+01_JPRB, 0.383884E+01_JPRB, 0.386536E+01_JPRB &
+  &, 0.389142E+01_JPRB, 0.391675E+01_JPRB, 0.394146E+01_JPRB, 0.396555E+01_JPRB &
+  &, 0.398898E+01_JPRB, 0.401173E+01_JPRB, 0.403391E+01_JPRB &
+  &, 0.405541E+01_JPRB, 0.407625E+01_JPRB, 0.409643E+01_JPRB, 0.411595E+01_JPRB &
+  &, 0.413482E+01_JPRB, 0.415304E+01_JPRB, 0.417060E+01_JPRB &
+  &, 0.418749E+01_JPRB, 0.420373E+01_JPRB, 0.421928E+01_JPRB, 0.423420E+01_JPRB &
+  &, 0.424847E+01_JPRB, 0.426205E+01_JPRB, 0.427500E+01_JPRB &
+  &, 0.428729E+01_JPRB, 0.429892E+01_JPRB, 0.430988E+01_JPRB, 0.432017E+01_JPRB &
+  &, 0.432985E+01_JPRB, 0.433887E+01_JPRB, 0.434723E+01_JPRB &
+  &, 0.435494E+01_JPRB, 0.436203E+01_JPRB, 0.436846E+01_JPRB, 0.437427E+01_JPRB &
+  &, 0.437943E+01_JPRB, 0.438397E+01_JPRB, 0.438790E+01_JPRB &
+  &, 0.439118E+01_JPRB, 0.439384E+01_JPRB, 0.439589E+01_JPRB, 0.439735E+01_JPRB &
+  &, 0.439818E+01_JPRB, 0.439842E+01_JPRB, 0.439806E+01_JPRB &
+  &, 0.439708E+01_JPRB, 0.439555E+01_JPRB, 0.439339E+01_JPRB, 0.439052E+01_JPRB &
+  &, 0.438739E+01_JPRB, 0.438353E+01_JPRB, 0.437911E+01_JPRB &
+  &, 0.437415E+01_JPRB, 0.436862E+01_JPRB, 0.436257E+01_JPRB, 0.435593E+01_JPRB &
+  &, 0.434877E+01_JPRB, 0.434111E+01_JPRB, 0.433248E+01_JPRB &
+  &, 0.432408E+01_JPRB, 0.431492E+01_JPRB, 0.430522E+01_JPRB, 0.429494E+01_JPRB &
+  &, 0.428422E+01_JPRB, 0.427302E+01_JPRB, 0.426130E+01_JPRB &
+  &, 0.424913E+01_JPRB, 0.423630E+01_JPRB, 0.422344E+01_JPRB, 0.420988E+01_JPRB &
+  &, 0.419590E+01_JPRB, 0.418126E+01_JPRB, 0.416662E+01_JPRB/)
+XCW( 934, :) = (/ &
+  &  0.115460E+01_JPRB, 0.119443E+01_JPRB, 0.123469E+01_JPRB, 0.127536E+01_JPRB &
+  &, 0.131643E+01_JPRB, 0.135788E+01_JPRB, 0.139968E+01_JPRB &
+  &, 0.144181E+01_JPRB, 0.148426E+01_JPRB, 0.152700E+01_JPRB, 0.157002E+01_JPRB &
+  &, 0.161329E+01_JPRB, 0.165679E+01_JPRB, 0.170050E+01_JPRB &
+  &, 0.174441E+01_JPRB, 0.178849E+01_JPRB, 0.183272E+01_JPRB, 0.187707E+01_JPRB &
+  &, 0.192154E+01_JPRB, 0.196609E+01_JPRB, 0.201072E+01_JPRB &
+  &, 0.205538E+01_JPRB, 0.210007E+01_JPRB, 0.214477E+01_JPRB, 0.218945E+01_JPRB &
+  &, 0.223409E+01_JPRB, 0.227868E+01_JPRB, 0.232319E+01_JPRB &
+  &, 0.236760E+01_JPRB, 0.241190E+01_JPRB, 0.245606E+01_JPRB, 0.250006E+01_JPRB &
+  &, 0.254390E+01_JPRB, 0.258753E+01_JPRB, 0.263095E+01_JPRB &
+  &, 0.267415E+01_JPRB, 0.271709E+01_JPRB, 0.275978E+01_JPRB, 0.280217E+01_JPRB &
+  &, 0.284427E+01_JPRB, 0.288606E+01_JPRB, 0.292751E+01_JPRB &
+  &, 0.296862E+01_JPRB, 0.300936E+01_JPRB, 0.304973E+01_JPRB, 0.308969E+01_JPRB &
+  &, 0.312927E+01_JPRB, 0.316841E+01_JPRB, 0.320712E+01_JPRB &
+  &, 0.324539E+01_JPRB, 0.328321E+01_JPRB, 0.332055E+01_JPRB, 0.335741E+01_JPRB &
+  &, 0.339377E+01_JPRB, 0.342964E+01_JPRB, 0.346499E+01_JPRB &
+  &, 0.349982E+01_JPRB, 0.353411E+01_JPRB, 0.356785E+01_JPRB, 0.360106E+01_JPRB &
+  &, 0.363370E+01_JPRB, 0.366577E+01_JPRB, 0.369725E+01_JPRB &
+  &, 0.372816E+01_JPRB, 0.375849E+01_JPRB, 0.378822E+01_JPRB, 0.381734E+01_JPRB &
+  &, 0.384586E+01_JPRB, 0.387376E+01_JPRB, 0.390105E+01_JPRB &
+  &, 0.392769E+01_JPRB, 0.395373E+01_JPRB, 0.397914E+01_JPRB, 0.400387E+01_JPRB &
+  &, 0.402800E+01_JPRB, 0.405148E+01_JPRB, 0.407432E+01_JPRB &
+  &, 0.409648E+01_JPRB, 0.411802E+01_JPRB, 0.413888E+01_JPRB, 0.415911E+01_JPRB &
+  &, 0.417867E+01_JPRB, 0.419757E+01_JPRB, 0.421583E+01_JPRB &
+  &, 0.423341E+01_JPRB, 0.425033E+01_JPRB, 0.426661E+01_JPRB, 0.428220E+01_JPRB &
+  &, 0.429714E+01_JPRB, 0.431141E+01_JPRB, 0.432504E+01_JPRB &
+  &, 0.433801E+01_JPRB, 0.435030E+01_JPRB, 0.436195E+01_JPRB, 0.437293E+01_JPRB &
+  &, 0.438326E+01_JPRB, 0.439294E+01_JPRB, 0.440196E+01_JPRB &
+  &, 0.441035E+01_JPRB, 0.441810E+01_JPRB, 0.442518E+01_JPRB, 0.443165E+01_JPRB &
+  &, 0.443746E+01_JPRB, 0.444265E+01_JPRB, 0.444719E+01_JPRB &
+  &, 0.445116E+01_JPRB, 0.445443E+01_JPRB, 0.445713E+01_JPRB, 0.445923E+01_JPRB &
+  &, 0.446066E+01_JPRB, 0.446149E+01_JPRB, 0.446177E+01_JPRB &
+  &, 0.446143E+01_JPRB, 0.446048E+01_JPRB, 0.445890E+01_JPRB, 0.445680E+01_JPRB &
+  &, 0.445410E+01_JPRB, 0.445081E+01_JPRB, 0.444691E+01_JPRB &
+  &, 0.444241E+01_JPRB, 0.443762E+01_JPRB, 0.443208E+01_JPRB, 0.442604E+01_JPRB &
+  &, 0.441942E+01_JPRB, 0.441207E+01_JPRB, 0.440456E+01_JPRB &
+  &, 0.439636E+01_JPRB, 0.438766E+01_JPRB, 0.437847E+01_JPRB, 0.436869E+01_JPRB &
+  &, 0.435847E+01_JPRB, 0.434776E+01_JPRB, 0.433652E+01_JPRB &
+  &, 0.432483E+01_JPRB, 0.431265E+01_JPRB, 0.430006E+01_JPRB, 0.428696E+01_JPRB &
+  &, 0.427336E+01_JPRB, 0.425942E+01_JPRB, 0.424495E+01_JPRB/)
+XCW( 935, :) = (/ &
+  &  0.115546E+01_JPRB, 0.119553E+01_JPRB, 0.123604E+01_JPRB, 0.127698E+01_JPRB &
+  &, 0.131832E+01_JPRB, 0.136004E+01_JPRB, 0.140213E+01_JPRB &
+  &, 0.144456E+01_JPRB, 0.148732E+01_JPRB, 0.153038E+01_JPRB, 0.157372E+01_JPRB &
+  &, 0.161732E+01_JPRB, 0.166117E+01_JPRB, 0.170524E+01_JPRB &
+  &, 0.174951E+01_JPRB, 0.179397E+01_JPRB, 0.183858E+01_JPRB, 0.188333E+01_JPRB &
+  &, 0.192819E+01_JPRB, 0.197315E+01_JPRB, 0.201819E+01_JPRB &
+  &, 0.206328E+01_JPRB, 0.210841E+01_JPRB, 0.215355E+01_JPRB, 0.219868E+01_JPRB &
+  &, 0.224379E+01_JPRB, 0.228884E+01_JPRB, 0.233383E+01_JPRB &
+  &, 0.237873E+01_JPRB, 0.242351E+01_JPRB, 0.246817E+01_JPRB, 0.251268E+01_JPRB &
+  &, 0.255703E+01_JPRB, 0.260119E+01_JPRB, 0.264514E+01_JPRB &
+  &, 0.268887E+01_JPRB, 0.273236E+01_JPRB, 0.277559E+01_JPRB, 0.281855E+01_JPRB &
+  &, 0.286121E+01_JPRB, 0.290357E+01_JPRB, 0.294559E+01_JPRB &
+  &, 0.298729E+01_JPRB, 0.302862E+01_JPRB, 0.306958E+01_JPRB, 0.311016E+01_JPRB &
+  &, 0.315032E+01_JPRB, 0.319008E+01_JPRB, 0.322942E+01_JPRB &
+  &, 0.326831E+01_JPRB, 0.330675E+01_JPRB, 0.334472E+01_JPRB, 0.338222E+01_JPRB &
+  &, 0.341922E+01_JPRB, 0.345574E+01_JPRB, 0.349173E+01_JPRB &
+  &, 0.352722E+01_JPRB, 0.356216E+01_JPRB, 0.359658E+01_JPRB, 0.363045E+01_JPRB &
+  &, 0.366376E+01_JPRB, 0.369649E+01_JPRB, 0.372866E+01_JPRB &
+  &, 0.376024E+01_JPRB, 0.379125E+01_JPRB, 0.382168E+01_JPRB, 0.385149E+01_JPRB &
+  &, 0.388069E+01_JPRB, 0.390928E+01_JPRB, 0.393723E+01_JPRB &
+  &, 0.396462E+01_JPRB, 0.399134E+01_JPRB, 0.401743E+01_JPRB, 0.404290E+01_JPRB &
+  &, 0.406771E+01_JPRB, 0.409191E+01_JPRB, 0.411545E+01_JPRB &
+  &, 0.413832E+01_JPRB, 0.416057E+01_JPRB, 0.418214E+01_JPRB, 0.420304E+01_JPRB &
+  &, 0.422332E+01_JPRB, 0.424293E+01_JPRB, 0.426190E+01_JPRB &
+  &, 0.428019E+01_JPRB, 0.429777E+01_JPRB, 0.431477E+01_JPRB, 0.433106E+01_JPRB &
+  &, 0.434672E+01_JPRB, 0.436169E+01_JPRB, 0.437602E+01_JPRB &
+  &, 0.438966E+01_JPRB, 0.440268E+01_JPRB, 0.441500E+01_JPRB, 0.442669E+01_JPRB &
+  &, 0.443772E+01_JPRB, 0.444808E+01_JPRB, 0.445781E+01_JPRB &
+  &, 0.446684E+01_JPRB, 0.447526E+01_JPRB, 0.448305E+01_JPRB, 0.449019E+01_JPRB &
+  &, 0.449664E+01_JPRB, 0.450251E+01_JPRB, 0.450775E+01_JPRB &
+  &, 0.451231E+01_JPRB, 0.451629E+01_JPRB, 0.451961E+01_JPRB, 0.452233E+01_JPRB &
+  &, 0.452443E+01_JPRB, 0.452591E+01_JPRB, 0.452680E+01_JPRB &
+  &, 0.452707E+01_JPRB, 0.452673E+01_JPRB, 0.452580E+01_JPRB, 0.452430E+01_JPRB &
+  &, 0.452214E+01_JPRB, 0.451954E+01_JPRB, 0.451627E+01_JPRB &
+  &, 0.451245E+01_JPRB, 0.450810E+01_JPRB, 0.450312E+01_JPRB, 0.449765E+01_JPRB &
+  &, 0.449159E+01_JPRB, 0.448502E+01_JPRB, 0.447784E+01_JPRB &
+  &, 0.447019E+01_JPRB, 0.446202E+01_JPRB, 0.445336E+01_JPRB, 0.444411E+01_JPRB &
+  &, 0.443441E+01_JPRB, 0.442421E+01_JPRB, 0.441348E+01_JPRB &
+  &, 0.440223E+01_JPRB, 0.439036E+01_JPRB, 0.437844E+01_JPRB, 0.436581E+01_JPRB &
+  &, 0.435268E+01_JPRB, 0.433913E+01_JPRB, 0.432518E+01_JPRB/)
+XCW( 936, :) = (/ &
+  &  0.115634E+01_JPRB, 0.119665E+01_JPRB, 0.123741E+01_JPRB, 0.127861E+01_JPRB &
+  &, 0.132022E+01_JPRB, 0.136223E+01_JPRB, 0.140461E+01_JPRB &
+  &, 0.144735E+01_JPRB, 0.149041E+01_JPRB, 0.153380E+01_JPRB, 0.157747E+01_JPRB &
+  &, 0.162142E+01_JPRB, 0.166562E+01_JPRB, 0.171005E+01_JPRB &
+  &, 0.175469E+01_JPRB, 0.179952E+01_JPRB, 0.184452E+01_JPRB, 0.188966E+01_JPRB &
+  &, 0.193494E+01_JPRB, 0.198032E+01_JPRB, 0.202578E+01_JPRB &
+  &, 0.207130E+01_JPRB, 0.211687E+01_JPRB, 0.216246E+01_JPRB, 0.220805E+01_JPRB &
+  &, 0.225362E+01_JPRB, 0.229915E+01_JPRB, 0.234462E+01_JPRB &
+  &, 0.239001E+01_JPRB, 0.243530E+01_JPRB, 0.248047E+01_JPRB, 0.252550E+01_JPRB &
+  &, 0.257037E+01_JPRB, 0.261505E+01_JPRB, 0.265955E+01_JPRB &
+  &, 0.270382E+01_JPRB, 0.274787E+01_JPRB, 0.279166E+01_JPRB, 0.283518E+01_JPRB &
+  &, 0.287842E+01_JPRB, 0.292136E+01_JPRB, 0.296397E+01_JPRB &
+  &, 0.300625E+01_JPRB, 0.304818E+01_JPRB, 0.308975E+01_JPRB, 0.313093E+01_JPRB &
+  &, 0.317173E+01_JPRB, 0.321210E+01_JPRB, 0.325207E+01_JPRB &
+  &, 0.329159E+01_JPRB, 0.333067E+01_JPRB, 0.336929E+01_JPRB, 0.340743E+01_JPRB &
+  &, 0.344510E+01_JPRB, 0.348226E+01_JPRB, 0.351893E+01_JPRB &
+  &, 0.355508E+01_JPRB, 0.359071E+01_JPRB, 0.362579E+01_JPRB, 0.366034E+01_JPRB &
+  &, 0.369433E+01_JPRB, 0.372776E+01_JPRB, 0.376061E+01_JPRB &
+  &, 0.379291E+01_JPRB, 0.382460E+01_JPRB, 0.385571E+01_JPRB, 0.388622E+01_JPRB &
+  &, 0.391614E+01_JPRB, 0.394543E+01_JPRB, 0.397411E+01_JPRB &
+  &, 0.400203E+01_JPRB, 0.402963E+01_JPRB, 0.405645E+01_JPRB, 0.408261E+01_JPRB &
+  &, 0.410815E+01_JPRB, 0.413304E+01_JPRB, 0.415731E+01_JPRB &
+  &, 0.418090E+01_JPRB, 0.420388E+01_JPRB, 0.422616E+01_JPRB, 0.424780E+01_JPRB &
+  &, 0.426880E+01_JPRB, 0.428915E+01_JPRB, 0.430881E+01_JPRB &
+  &, 0.432781E+01_JPRB, 0.434618E+01_JPRB, 0.436385E+01_JPRB, 0.438088E+01_JPRB &
+  &, 0.439723E+01_JPRB, 0.441294E+01_JPRB, 0.442796E+01_JPRB &
+  &, 0.444235E+01_JPRB, 0.445606E+01_JPRB, 0.446910E+01_JPRB, 0.448148E+01_JPRB &
+  &, 0.449321E+01_JPRB, 0.450429E+01_JPRB, 0.451471E+01_JPRB &
+  &, 0.452447E+01_JPRB, 0.453359E+01_JPRB, 0.454200E+01_JPRB, 0.454986E+01_JPRB &
+  &, 0.455705E+01_JPRB, 0.456360E+01_JPRB, 0.456950E+01_JPRB &
+  &, 0.457475E+01_JPRB, 0.457937E+01_JPRB, 0.458338E+01_JPRB, 0.458678E+01_JPRB &
+  &, 0.458952E+01_JPRB, 0.459164E+01_JPRB, 0.459321E+01_JPRB &
+  &, 0.459411E+01_JPRB, 0.459440E+01_JPRB, 0.459414E+01_JPRB, 0.459325E+01_JPRB &
+  &, 0.459176E+01_JPRB, 0.458973E+01_JPRB, 0.458706E+01_JPRB &
+  &, 0.458390E+01_JPRB, 0.458009E+01_JPRB, 0.457576E+01_JPRB, 0.457077E+01_JPRB &
+  &, 0.456535E+01_JPRB, 0.455936E+01_JPRB, 0.455281E+01_JPRB &
+  &, 0.454484E+01_JPRB, 0.453806E+01_JPRB, 0.452990E+01_JPRB, 0.452126E+01_JPRB &
+  &, 0.451204E+01_JPRB, 0.450238E+01_JPRB, 0.449218E+01_JPRB &
+  &, 0.448145E+01_JPRB, 0.447028E+01_JPRB, 0.445862E+01_JPRB, 0.444649E+01_JPRB &
+  &, 0.443386E+01_JPRB, 0.442079E+01_JPRB, 0.440726E+01_JPRB/)
+XCW( 937, :) = (/ &
+  &  0.115722E+01_JPRB, 0.119778E+01_JPRB, 0.123880E+01_JPRB, 0.128027E+01_JPRB &
+  &, 0.132216E+01_JPRB, 0.136445E+01_JPRB, 0.140713E+01_JPRB &
+  &, 0.145017E+01_JPRB, 0.149356E+01_JPRB, 0.153726E+01_JPRB, 0.158128E+01_JPRB &
+  &, 0.162557E+01_JPRB, 0.167012E+01_JPRB, 0.171492E+01_JPRB &
+  &, 0.175994E+01_JPRB, 0.180515E+01_JPRB, 0.185054E+01_JPRB, 0.189609E+01_JPRB &
+  &, 0.194178E+01_JPRB, 0.198758E+01_JPRB, 0.203347E+01_JPRB &
+  &, 0.207944E+01_JPRB, 0.212546E+01_JPRB, 0.217150E+01_JPRB, 0.221756E+01_JPRB &
+  &, 0.226361E+01_JPRB, 0.230962E+01_JPRB, 0.235558E+01_JPRB &
+  &, 0.240148E+01_JPRB, 0.244727E+01_JPRB, 0.249295E+01_JPRB, 0.253851E+01_JPRB &
+  &, 0.258391E+01_JPRB, 0.262914E+01_JPRB, 0.267418E+01_JPRB &
+  &, 0.271901E+01_JPRB, 0.276361E+01_JPRB, 0.280798E+01_JPRB, 0.285208E+01_JPRB &
+  &, 0.289590E+01_JPRB, 0.293942E+01_JPRB, 0.298264E+01_JPRB &
+  &, 0.302553E+01_JPRB, 0.306807E+01_JPRB, 0.311025E+01_JPRB, 0.315206E+01_JPRB &
+  &, 0.319348E+01_JPRB, 0.323449E+01_JPRB, 0.327509E+01_JPRB &
+  &, 0.331527E+01_JPRB, 0.335500E+01_JPRB, 0.339427E+01_JPRB, 0.343308E+01_JPRB &
+  &, 0.347141E+01_JPRB, 0.350925E+01_JPRB, 0.354659E+01_JPRB &
+  &, 0.358341E+01_JPRB, 0.361973E+01_JPRB, 0.365551E+01_JPRB, 0.369075E+01_JPRB &
+  &, 0.372543E+01_JPRB, 0.375956E+01_JPRB, 0.379312E+01_JPRB &
+  &, 0.382612E+01_JPRB, 0.385853E+01_JPRB, 0.389034E+01_JPRB, 0.392158E+01_JPRB &
+  &, 0.395218E+01_JPRB, 0.398223E+01_JPRB, 0.401163E+01_JPRB &
+  &, 0.404043E+01_JPRB, 0.406860E+01_JPRB, 0.409615E+01_JPRB, 0.412304E+01_JPRB &
+  &, 0.414932E+01_JPRB, 0.417496E+01_JPRB, 0.419994E+01_JPRB &
+  &, 0.422420E+01_JPRB, 0.424796E+01_JPRB, 0.427102E+01_JPRB, 0.429339E+01_JPRB &
+  &, 0.431514E+01_JPRB, 0.433620E+01_JPRB, 0.435661E+01_JPRB &
+  &, 0.437627E+01_JPRB, 0.439543E+01_JPRB, 0.441387E+01_JPRB, 0.443162E+01_JPRB &
+  &, 0.444873E+01_JPRB, 0.446517E+01_JPRB, 0.448092E+01_JPRB &
+  &, 0.449593E+01_JPRB, 0.451047E+01_JPRB, 0.452426E+01_JPRB, 0.453738E+01_JPRB &
+  &, 0.454982E+01_JPRB, 0.456161E+01_JPRB, 0.457278E+01_JPRB &
+  &, 0.458325E+01_JPRB, 0.459308E+01_JPRB, 0.460224E+01_JPRB, 0.461078E+01_JPRB &
+  &, 0.461867E+01_JPRB, 0.462590E+01_JPRB, 0.463251E+01_JPRB &
+  &, 0.463847E+01_JPRB, 0.464376E+01_JPRB, 0.464847E+01_JPRB, 0.465254E+01_JPRB &
+  &, 0.465598E+01_JPRB, 0.465863E+01_JPRB, 0.466098E+01_JPRB &
+  &, 0.466258E+01_JPRB, 0.466347E+01_JPRB, 0.466390E+01_JPRB, 0.466366E+01_JPRB &
+  &, 0.466286E+01_JPRB, 0.466146E+01_JPRB, 0.465943E+01_JPRB &
+  &, 0.465684E+01_JPRB, 0.465370E+01_JPRB, 0.464994E+01_JPRB, 0.464567E+01_JPRB &
+  &, 0.464080E+01_JPRB, 0.463536E+01_JPRB, 0.462940E+01_JPRB &
+  &, 0.462291E+01_JPRB, 0.461584E+01_JPRB, 0.460826E+01_JPRB, 0.460019E+01_JPRB &
+  &, 0.459154E+01_JPRB, 0.458238E+01_JPRB, 0.457273E+01_JPRB &
+  &, 0.456255E+01_JPRB, 0.455192E+01_JPRB, 0.454073E+01_JPRB, 0.452913E+01_JPRB &
+  &, 0.451689E+01_JPRB, 0.450440E+01_JPRB, 0.449137E+01_JPRB/)
+XCW( 938, :) = (/ &
+  &  0.115812E+01_JPRB, 0.119893E+01_JPRB, 0.124021E+01_JPRB, 0.128194E+01_JPRB &
+  &, 0.132412E+01_JPRB, 0.136670E+01_JPRB, 0.140968E+01_JPRB &
+  &, 0.145303E+01_JPRB, 0.149674E+01_JPRB, 0.154078E+01_JPRB, 0.158513E+01_JPRB &
+  &, 0.162978E+01_JPRB, 0.167469E+01_JPRB, 0.171986E+01_JPRB &
+  &, 0.176526E+01_JPRB, 0.181087E+01_JPRB, 0.185666E+01_JPRB, 0.190261E+01_JPRB &
+  &, 0.194872E+01_JPRB, 0.199495E+01_JPRB, 0.204128E+01_JPRB &
+  &, 0.208770E+01_JPRB, 0.213417E+01_JPRB, 0.218068E+01_JPRB, 0.222721E+01_JPRB &
+  &, 0.227374E+01_JPRB, 0.232025E+01_JPRB, 0.236671E+01_JPRB &
+  &, 0.241311E+01_JPRB, 0.245942E+01_JPRB, 0.250564E+01_JPRB, 0.255172E+01_JPRB &
+  &, 0.259767E+01_JPRB, 0.264344E+01_JPRB, 0.268904E+01_JPRB &
+  &, 0.273443E+01_JPRB, 0.277962E+01_JPRB, 0.282456E+01_JPRB, 0.286925E+01_JPRB &
+  &, 0.291366E+01_JPRB, 0.295779E+01_JPRB, 0.300161E+01_JPRB &
+  &, 0.304511E+01_JPRB, 0.308827E+01_JPRB, 0.313109E+01_JPRB, 0.317353E+01_JPRB &
+  &, 0.321558E+01_JPRB, 0.325725E+01_JPRB, 0.329851E+01_JPRB &
+  &, 0.333934E+01_JPRB, 0.337974E+01_JPRB, 0.341967E+01_JPRB, 0.345916E+01_JPRB &
+  &, 0.349817E+01_JPRB, 0.353669E+01_JPRB, 0.357473E+01_JPRB &
+  &, 0.361222E+01_JPRB, 0.364926E+01_JPRB, 0.368573E+01_JPRB, 0.372167E+01_JPRB &
+  &, 0.375707E+01_JPRB, 0.379192E+01_JPRB, 0.382620E+01_JPRB &
+  &, 0.385992E+01_JPRB, 0.389305E+01_JPRB, 0.392560E+01_JPRB, 0.395757E+01_JPRB &
+  &, 0.398893E+01_JPRB, 0.401969E+01_JPRB, 0.404983E+01_JPRB &
+  &, 0.407938E+01_JPRB, 0.410828E+01_JPRB, 0.413657E+01_JPRB, 0.416422E+01_JPRB &
+  &, 0.419125E+01_JPRB, 0.421763E+01_JPRB, 0.424336E+01_JPRB &
+  &, 0.426846E+01_JPRB, 0.429291E+01_JPRB, 0.431671E+01_JPRB, 0.433985E+01_JPRB &
+  &, 0.436235E+01_JPRB, 0.438417E+01_JPRB, 0.440533E+01_JPRB &
+  &, 0.442583E+01_JPRB, 0.444569E+01_JPRB, 0.446486E+01_JPRB, 0.448336E+01_JPRB &
+  &, 0.450122E+01_JPRB, 0.451841E+01_JPRB, 0.453492E+01_JPRB &
+  &, 0.455080E+01_JPRB, 0.456598E+01_JPRB, 0.458049E+01_JPRB, 0.459434E+01_JPRB &
+  &, 0.460758E+01_JPRB, 0.462011E+01_JPRB, 0.463197E+01_JPRB &
+  &, 0.464321E+01_JPRB, 0.465377E+01_JPRB, 0.466366E+01_JPRB, 0.467294E+01_JPRB &
+  &, 0.468141E+01_JPRB, 0.468952E+01_JPRB, 0.469682E+01_JPRB &
+  &, 0.470351E+01_JPRB, 0.470953E+01_JPRB, 0.471493E+01_JPRB, 0.471969E+01_JPRB &
+  &, 0.472385E+01_JPRB, 0.472718E+01_JPRB, 0.473022E+01_JPRB &
+  &, 0.473253E+01_JPRB, 0.473414E+01_JPRB, 0.473520E+01_JPRB, 0.473548E+01_JPRB &
+  &, 0.473548E+01_JPRB, 0.473474E+01_JPRB, 0.473336E+01_JPRB &
+  &, 0.473147E+01_JPRB, 0.472893E+01_JPRB, 0.472581E+01_JPRB, 0.472218E+01_JPRB &
+  &, 0.471794E+01_JPRB, 0.471312E+01_JPRB, 0.470779E+01_JPRB &
+  &, 0.470186E+01_JPRB, 0.469540E+01_JPRB, 0.468842E+01_JPRB, 0.468090E+01_JPRB &
+  &, 0.467284E+01_JPRB, 0.466427E+01_JPRB, 0.465514E+01_JPRB &
+  &, 0.464553E+01_JPRB, 0.463547E+01_JPRB, 0.462484E+01_JPRB, 0.461373E+01_JPRB &
+  &, 0.460210E+01_JPRB, 0.459008E+01_JPRB, 0.457751E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART134',1,ZHOOK_HANDLE)
+END SUBROUTINE PART134
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART135
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART135',0,ZHOOK_HANDLE)
+
+XCW( 939, :) = (/ &
+  &  0.115902E+01_JPRB, 0.120009E+01_JPRB, 0.124164E+01_JPRB, 0.128365E+01_JPRB &
+  &, 0.132610E+01_JPRB, 0.136898E+01_JPRB, 0.141227E+01_JPRB &
+  &, 0.145593E+01_JPRB, 0.149997E+01_JPRB, 0.154435E+01_JPRB, 0.158904E+01_JPRB &
+  &, 0.163405E+01_JPRB, 0.167933E+01_JPRB, 0.172488E+01_JPRB &
+  &, 0.177066E+01_JPRB, 0.181666E+01_JPRB, 0.186286E+01_JPRB, 0.190924E+01_JPRB &
+  &, 0.195577E+01_JPRB, 0.200243E+01_JPRB, 0.204921E+01_JPRB &
+  &, 0.209608E+01_JPRB, 0.214302E+01_JPRB, 0.219000E+01_JPRB, 0.223702E+01_JPRB &
+  &, 0.228404E+01_JPRB, 0.233104E+01_JPRB, 0.237801E+01_JPRB &
+  &, 0.242493E+01_JPRB, 0.247177E+01_JPRB, 0.251851E+01_JPRB, 0.256514E+01_JPRB &
+  &, 0.261164E+01_JPRB, 0.265798E+01_JPRB, 0.270414E+01_JPRB &
+  &, 0.275011E+01_JPRB, 0.279588E+01_JPRB, 0.284141E+01_JPRB, 0.288669E+01_JPRB &
+  &, 0.293171E+01_JPRB, 0.297645E+01_JPRB, 0.302090E+01_JPRB &
+  &, 0.306502E+01_JPRB, 0.310882E+01_JPRB, 0.315228E+01_JPRB, 0.319537E+01_JPRB &
+  &, 0.323808E+01_JPRB, 0.328040E+01_JPRB, 0.332232E+01_JPRB &
+  &, 0.336382E+01_JPRB, 0.340489E+01_JPRB, 0.344552E+01_JPRB, 0.348569E+01_JPRB &
+  &, 0.352539E+01_JPRB, 0.356462E+01_JPRB, 0.360335E+01_JPRB &
+  &, 0.364157E+01_JPRB, 0.367929E+01_JPRB, 0.371650E+01_JPRB, 0.375315E+01_JPRB &
+  &, 0.378929E+01_JPRB, 0.382485E+01_JPRB, 0.385987E+01_JPRB &
+  &, 0.389433E+01_JPRB, 0.392820E+01_JPRB, 0.396151E+01_JPRB, 0.399422E+01_JPRB &
+  &, 0.402634E+01_JPRB, 0.405784E+01_JPRB, 0.408873E+01_JPRB &
+  &, 0.411902E+01_JPRB, 0.414870E+01_JPRB, 0.417775E+01_JPRB, 0.420618E+01_JPRB &
+  &, 0.423396E+01_JPRB, 0.426112E+01_JPRB, 0.428761E+01_JPRB &
+  &, 0.431348E+01_JPRB, 0.433871E+01_JPRB, 0.436328E+01_JPRB, 0.438718E+01_JPRB &
+  &, 0.441045E+01_JPRB, 0.443304E+01_JPRB, 0.445498E+01_JPRB &
+  &, 0.447627E+01_JPRB, 0.449690E+01_JPRB, 0.451663E+01_JPRB, 0.453613E+01_JPRB &
+  &, 0.455475E+01_JPRB, 0.457272E+01_JPRB, 0.459000E+01_JPRB &
+  &, 0.460663E+01_JPRB, 0.462258E+01_JPRB, 0.463788E+01_JPRB, 0.465251E+01_JPRB &
+  &, 0.466650E+01_JPRB, 0.467977E+01_JPRB, 0.469242E+01_JPRB &
+  &, 0.470438E+01_JPRB, 0.471570E+01_JPRB, 0.472638E+01_JPRB, 0.473637E+01_JPRB &
+  &, 0.474568E+01_JPRB, 0.475447E+01_JPRB, 0.476252E+01_JPRB &
+  &, 0.476992E+01_JPRB, 0.477670E+01_JPRB, 0.478281E+01_JPRB, 0.478831E+01_JPRB &
+  &, 0.479314E+01_JPRB, 0.479739E+01_JPRB, 0.480100E+01_JPRB &
+  &, 0.480397E+01_JPRB, 0.480632E+01_JPRB, 0.480807E+01_JPRB, 0.480923E+01_JPRB &
+  &, 0.480977E+01_JPRB, 0.480966E+01_JPRB, 0.480897E+01_JPRB &
+  &, 0.480775E+01_JPRB, 0.480588E+01_JPRB, 0.480343E+01_JPRB, 0.480041E+01_JPRB &
+  &, 0.479683E+01_JPRB, 0.479266E+01_JPRB, 0.478798E+01_JPRB &
+  &, 0.478269E+01_JPRB, 0.477686E+01_JPRB, 0.477046E+01_JPRB, 0.476350E+01_JPRB &
+  &, 0.475606E+01_JPRB, 0.474810E+01_JPRB, 0.473958E+01_JPRB &
+  &, 0.473052E+01_JPRB, 0.472099E+01_JPRB, 0.471095E+01_JPRB, 0.470042E+01_JPRB &
+  &, 0.468936E+01_JPRB, 0.467784E+01_JPRB, 0.466583E+01_JPRB/)
+XCW( 940, :) = (/ &
+  &  0.115995E+01_JPRB, 0.120127E+01_JPRB, 0.124308E+01_JPRB, 0.128537E+01_JPRB &
+  &, 0.132811E+01_JPRB, 0.137129E+01_JPRB, 0.141489E+01_JPRB &
+  &, 0.145888E+01_JPRB, 0.150324E+01_JPRB, 0.154796E+01_JPRB, 0.159301E+01_JPRB &
+  &, 0.163838E+01_JPRB, 0.168404E+01_JPRB, 0.172996E+01_JPRB &
+  &, 0.177614E+01_JPRB, 0.182255E+01_JPRB, 0.186916E+01_JPRB, 0.191596E+01_JPRB &
+  &, 0.196292E+01_JPRB, 0.201003E+01_JPRB, 0.205726E+01_JPRB &
+  &, 0.210459E+01_JPRB, 0.215200E+01_JPRB, 0.219947E+01_JPRB, 0.224697E+01_JPRB &
+  &, 0.229449E+01_JPRB, 0.234201E+01_JPRB, 0.238950E+01_JPRB &
+  &, 0.243694E+01_JPRB, 0.248431E+01_JPRB, 0.253160E+01_JPRB, 0.257879E+01_JPRB &
+  &, 0.262584E+01_JPRB, 0.267275E+01_JPRB, 0.271949E+01_JPRB &
+  &, 0.276605E+01_JPRB, 0.281240E+01_JPRB, 0.285854E+01_JPRB, 0.290443E+01_JPRB &
+  &, 0.295007E+01_JPRB, 0.299544E+01_JPRB, 0.304051E+01_JPRB &
+  &, 0.308528E+01_JPRB, 0.312972E+01_JPRB, 0.317383E+01_JPRB, 0.321757E+01_JPRB &
+  &, 0.326095E+01_JPRB, 0.330395E+01_JPRB, 0.334654E+01_JPRB &
+  &, 0.338873E+01_JPRB, 0.343049E+01_JPRB, 0.347181E+01_JPRB, 0.351268E+01_JPRB &
+  &, 0.355310E+01_JPRB, 0.359303E+01_JPRB, 0.363248E+01_JPRB &
+  &, 0.367144E+01_JPRB, 0.370988E+01_JPRB, 0.374781E+01_JPRB, 0.378522E+01_JPRB &
+  &, 0.382207E+01_JPRB, 0.385839E+01_JPRB, 0.389417E+01_JPRB &
+  &, 0.392937E+01_JPRB, 0.396400E+01_JPRB, 0.399806E+01_JPRB, 0.403153E+01_JPRB &
+  &, 0.406442E+01_JPRB, 0.409670E+01_JPRB, 0.412836E+01_JPRB &
+  &, 0.415943E+01_JPRB, 0.418989E+01_JPRB, 0.421971E+01_JPRB, 0.424892E+01_JPRB &
+  &, 0.427747E+01_JPRB, 0.430542E+01_JPRB, 0.433272E+01_JPRB &
+  &, 0.435938E+01_JPRB, 0.438540E+01_JPRB, 0.441075E+01_JPRB, 0.443545E+01_JPRB &
+  &, 0.445950E+01_JPRB, 0.448291E+01_JPRB, 0.450559E+01_JPRB &
+  &, 0.452770E+01_JPRB, 0.454911E+01_JPRB, 0.456985E+01_JPRB, 0.458996E+01_JPRB &
+  &, 0.460937E+01_JPRB, 0.462813E+01_JPRB, 0.464620E+01_JPRB &
+  &, 0.466363E+01_JPRB, 0.468035E+01_JPRB, 0.469644E+01_JPRB, 0.471181E+01_JPRB &
+  &, 0.472657E+01_JPRB, 0.474069E+01_JPRB, 0.475411E+01_JPRB &
+  &, 0.476688E+01_JPRB, 0.477897E+01_JPRB, 0.479040E+01_JPRB, 0.480116E+01_JPRB &
+  &, 0.481132E+01_JPRB, 0.482077E+01_JPRB, 0.482960E+01_JPRB &
+  &, 0.483774E+01_JPRB, 0.484529E+01_JPRB, 0.485218E+01_JPRB, 0.485841E+01_JPRB &
+  &, 0.486401E+01_JPRB, 0.486895E+01_JPRB, 0.487332E+01_JPRB &
+  &, 0.487702E+01_JPRB, 0.488009E+01_JPRB, 0.488260E+01_JPRB, 0.488438E+01_JPRB &
+  &, 0.488563E+01_JPRB, 0.488628E+01_JPRB, 0.488629E+01_JPRB &
+  &, 0.488573E+01_JPRB, 0.488456E+01_JPRB, 0.488274E+01_JPRB, 0.488051E+01_JPRB &
+  &, 0.487756E+01_JPRB, 0.487407E+01_JPRB, 0.487001E+01_JPRB &
+  &, 0.486534E+01_JPRB, 0.486017E+01_JPRB, 0.485443E+01_JPRB, 0.484812E+01_JPRB &
+  &, 0.484133E+01_JPRB, 0.483395E+01_JPRB, 0.482601E+01_JPRB &
+  &, 0.481757E+01_JPRB, 0.480866E+01_JPRB, 0.479917E+01_JPRB, 0.478925E+01_JPRB &
+  &, 0.477872E+01_JPRB, 0.476774E+01_JPRB, 0.475631E+01_JPRB/)
+XCW( 941, :) = (/ &
+  &  0.116088E+01_JPRB, 0.120246E+01_JPRB, 0.124455E+01_JPRB, 0.128712E+01_JPRB &
+  &, 0.133015E+01_JPRB, 0.137364E+01_JPRB, 0.141755E+01_JPRB &
+  &, 0.146186E+01_JPRB, 0.150657E+01_JPRB, 0.155163E+01_JPRB, 0.159704E+01_JPRB &
+  &, 0.164278E+01_JPRB, 0.168881E+01_JPRB, 0.173513E+01_JPRB &
+  &, 0.178171E+01_JPRB, 0.182852E+01_JPRB, 0.187556E+01_JPRB, 0.192278E+01_JPRB &
+  &, 0.197019E+01_JPRB, 0.201775E+01_JPRB, 0.206544E+01_JPRB &
+  &, 0.211324E+01_JPRB, 0.216112E+01_JPRB, 0.220908E+01_JPRB, 0.225709E+01_JPRB &
+  &, 0.230512E+01_JPRB, 0.235315E+01_JPRB, 0.240116E+01_JPRB &
+  &, 0.244914E+01_JPRB, 0.249706E+01_JPRB, 0.254491E+01_JPRB, 0.259265E+01_JPRB &
+  &, 0.264028E+01_JPRB, 0.268777E+01_JPRB, 0.273510E+01_JPRB &
+  &, 0.278225E+01_JPRB, 0.282922E+01_JPRB, 0.287596E+01_JPRB, 0.292247E+01_JPRB &
+  &, 0.296875E+01_JPRB, 0.301340E+01_JPRB, 0.306045E+01_JPRB &
+  &, 0.310587E+01_JPRB, 0.315098E+01_JPRB, 0.319575E+01_JPRB, 0.324016E+01_JPRB &
+  &, 0.328423E+01_JPRB, 0.332790E+01_JPRB, 0.337119E+01_JPRB &
+  &, 0.341408E+01_JPRB, 0.345655E+01_JPRB, 0.349857E+01_JPRB, 0.354016E+01_JPRB &
+  &, 0.358129E+01_JPRB, 0.362196E+01_JPRB, 0.366215E+01_JPRB &
+  &, 0.370183E+01_JPRB, 0.374103E+01_JPRB, 0.377969E+01_JPRB, 0.381785E+01_JPRB &
+  &, 0.385548E+01_JPRB, 0.389256E+01_JPRB, 0.392908E+01_JPRB &
+  &, 0.396507E+01_JPRB, 0.400046E+01_JPRB, 0.403531E+01_JPRB, 0.406956E+01_JPRB &
+  &, 0.410307E+01_JPRB, 0.413629E+01_JPRB, 0.416875E+01_JPRB &
+  &, 0.420061E+01_JPRB, 0.423186E+01_JPRB, 0.426249E+01_JPRB, 0.429247E+01_JPRB &
+  &, 0.432185E+01_JPRB, 0.435059E+01_JPRB, 0.437868E+01_JPRB &
+  &, 0.440615E+01_JPRB, 0.443298E+01_JPRB, 0.445914E+01_JPRB, 0.448467E+01_JPRB &
+  &, 0.450953E+01_JPRB, 0.453374E+01_JPRB, 0.455729E+01_JPRB &
+  &, 0.458016E+01_JPRB, 0.460240E+01_JPRB, 0.462397E+01_JPRB, 0.464485E+01_JPRB &
+  &, 0.466507E+01_JPRB, 0.468463E+01_JPRB, 0.470355E+01_JPRB &
+  &, 0.472176E+01_JPRB, 0.473934E+01_JPRB, 0.475622E+01_JPRB, 0.477192E+01_JPRB &
+  &, 0.478800E+01_JPRB, 0.480288E+01_JPRB, 0.481710E+01_JPRB &
+  &, 0.483067E+01_JPRB, 0.484356E+01_JPRB, 0.485578E+01_JPRB, 0.486735E+01_JPRB &
+  &, 0.487827E+01_JPRB, 0.488852E+01_JPRB, 0.489815E+01_JPRB &
+  &, 0.490709E+01_JPRB, 0.491539E+01_JPRB, 0.492304E+01_JPRB, 0.493003E+01_JPRB &
+  &, 0.493638E+01_JPRB, 0.494211E+01_JPRB, 0.494724E+01_JPRB &
+  &, 0.495155E+01_JPRB, 0.495550E+01_JPRB, 0.495875E+01_JPRB, 0.496132E+01_JPRB &
+  &, 0.496293E+01_JPRB, 0.496465E+01_JPRB, 0.496539E+01_JPRB &
+  &, 0.496555E+01_JPRB, 0.496510E+01_JPRB, 0.496406E+01_JPRB, 0.496160E+01_JPRB &
+  &, 0.496009E+01_JPRB, 0.495736E+01_JPRB, 0.495400E+01_JPRB &
+  &, 0.495002E+01_JPRB, 0.494549E+01_JPRB, 0.494044E+01_JPRB, 0.493481E+01_JPRB &
+  &, 0.492852E+01_JPRB, 0.492187E+01_JPRB, 0.491458E+01_JPRB &
+  &, 0.490680E+01_JPRB, 0.489848E+01_JPRB, 0.488958E+01_JPRB, 0.488023E+01_JPRB &
+  &, 0.487033E+01_JPRB, 0.485997E+01_JPRB, 0.484897E+01_JPRB/)
+XCW( 942, :) = (/ &
+  &  0.116182E+01_JPRB, 0.120367E+01_JPRB, 0.124603E+01_JPRB, 0.128889E+01_JPRB &
+  &, 0.133223E+01_JPRB, 0.137602E+01_JPRB, 0.142025E+01_JPRB &
+  &, 0.146489E+01_JPRB, 0.150994E+01_JPRB, 0.155536E+01_JPRB, 0.160113E+01_JPRB &
+  &, 0.164724E+01_JPRB, 0.169366E+01_JPRB, 0.174037E+01_JPRB &
+  &, 0.178735E+01_JPRB, 0.183459E+01_JPRB, 0.188205E+01_JPRB, 0.192972E+01_JPRB &
+  &, 0.197757E+01_JPRB, 0.202558E+01_JPRB, 0.207374E+01_JPRB &
+  &, 0.212202E+01_JPRB, 0.217040E+01_JPRB, 0.221885E+01_JPRB, 0.226736E+01_JPRB &
+  &, 0.231591E+01_JPRB, 0.236447E+01_JPRB, 0.241302E+01_JPRB &
+  &, 0.246155E+01_JPRB, 0.251002E+01_JPRB, 0.255843E+01_JPRB, 0.260675E+01_JPRB &
+  &, 0.265496E+01_JPRB, 0.270304E+01_JPRB, 0.275097E+01_JPRB &
+  &, 0.279873E+01_JPRB, 0.284631E+01_JPRB, 0.289368E+01_JPRB, 0.294083E+01_JPRB &
+  &, 0.298773E+01_JPRB, 0.303438E+01_JPRB, 0.308075E+01_JPRB &
+  &, 0.312684E+01_JPRB, 0.317260E+01_JPRB, 0.321805E+01_JPRB, 0.326316E+01_JPRB &
+  &, 0.330791E+01_JPRB, 0.335229E+01_JPRB, 0.339628E+01_JPRB &
+  &, 0.343987E+01_JPRB, 0.348306E+01_JPRB, 0.352582E+01_JPRB, 0.356814E+01_JPRB &
+  &, 0.361001E+01_JPRB, 0.365142E+01_JPRB, 0.369234E+01_JPRB &
+  &, 0.373279E+01_JPRB, 0.377274E+01_JPRB, 0.381217E+01_JPRB, 0.385109E+01_JPRB &
+  &, 0.388950E+01_JPRB, 0.392735E+01_JPRB, 0.396467E+01_JPRB &
+  &, 0.400143E+01_JPRB, 0.403762E+01_JPRB, 0.407324E+01_JPRB, 0.410830E+01_JPRB &
+  &, 0.414273E+01_JPRB, 0.417662E+01_JPRB, 0.420991E+01_JPRB &
+  &, 0.424258E+01_JPRB, 0.427462E+01_JPRB, 0.430608E+01_JPRB, 0.433690E+01_JPRB &
+  &, 0.436706E+01_JPRB, 0.439665E+01_JPRB, 0.442558E+01_JPRB &
+  &, 0.445387E+01_JPRB, 0.448152E+01_JPRB, 0.450772E+01_JPRB, 0.453487E+01_JPRB &
+  &, 0.456055E+01_JPRB, 0.458559E+01_JPRB, 0.460997E+01_JPRB &
+  &, 0.463369E+01_JPRB, 0.465677E+01_JPRB, 0.467916E+01_JPRB, 0.470089E+01_JPRB &
+  &, 0.472197E+01_JPRB, 0.474233E+01_JPRB, 0.476208E+01_JPRB &
+  &, 0.478113E+01_JPRB, 0.479952E+01_JPRB, 0.481725E+01_JPRB, 0.483429E+01_JPRB &
+  &, 0.485069E+01_JPRB, 0.486639E+01_JPRB, 0.488143E+01_JPRB &
+  &, 0.489581E+01_JPRB, 0.490953E+01_JPRB, 0.492257E+01_JPRB, 0.493496E+01_JPRB &
+  &, 0.494667E+01_JPRB, 0.495778E+01_JPRB, 0.496819E+01_JPRB &
+  &, 0.497792E+01_JPRB, 0.498701E+01_JPRB, 0.499547E+01_JPRB, 0.500329E+01_JPRB &
+  &, 0.501042E+01_JPRB, 0.501693E+01_JPRB, 0.502283E+01_JPRB &
+  &, 0.502805E+01_JPRB, 0.503268E+01_JPRB, 0.503666E+01_JPRB, 0.504000E+01_JPRB &
+  &, 0.504275E+01_JPRB, 0.504485E+01_JPRB, 0.504635E+01_JPRB &
+  &, 0.504721E+01_JPRB, 0.504751E+01_JPRB, 0.504722E+01_JPRB, 0.504629E+01_JPRB &
+  &, 0.504474E+01_JPRB, 0.504269E+01_JPRB, 0.504000E+01_JPRB &
+  &, 0.503675E+01_JPRB, 0.503294E+01_JPRB, 0.502854E+01_JPRB, 0.502357E+01_JPRB &
+  &, 0.501804E+01_JPRB, 0.501197E+01_JPRB, 0.500532E+01_JPRB &
+  &, 0.499816E+01_JPRB, 0.499052E+01_JPRB, 0.498229E+01_JPRB, 0.497355E+01_JPRB &
+  &, 0.496425E+01_JPRB, 0.495448E+01_JPRB, 0.494418E+01_JPRB/)
+XCW( 943, :) = (/ &
+  &  0.116278E+01_JPRB, 0.120490E+01_JPRB, 0.124754E+01_JPRB, 0.129069E+01_JPRB &
+  &, 0.133433E+01_JPRB, 0.137843E+01_JPRB, 0.142299E+01_JPRB &
+  &, 0.146797E+01_JPRB, 0.151336E+01_JPRB, 0.155914E+01_JPRB, 0.160528E+01_JPRB &
+  &, 0.165177E+01_JPRB, 0.169858E+01_JPRB, 0.174570E+01_JPRB &
+  &, 0.179309E+01_JPRB, 0.184075E+01_JPRB, 0.188865E+01_JPRB, 0.193676E+01_JPRB &
+  &, 0.198507E+01_JPRB, 0.203355E+01_JPRB, 0.208218E+01_JPRB &
+  &, 0.213095E+01_JPRB, 0.217982E+01_JPRB, 0.222878E+01_JPRB, 0.227781E+01_JPRB &
+  &, 0.232689E+01_JPRB, 0.237598E+01_JPRB, 0.242508E+01_JPRB &
+  &, 0.247416E+01_JPRB, 0.252321E+01_JPRB, 0.257219E+01_JPRB, 0.262109E+01_JPRB &
+  &, 0.266989E+01_JPRB, 0.271857E+01_JPRB, 0.276711E+01_JPRB &
+  &, 0.281549E+01_JPRB, 0.286370E+01_JPRB, 0.291170E+01_JPRB, 0.295949E+01_JPRB &
+  &, 0.300706E+01_JPRB, 0.305437E+01_JPRB, 0.310141E+01_JPRB &
+  &, 0.314817E+01_JPRB, 0.319463E+01_JPRB, 0.324076E+01_JPRB, 0.328657E+01_JPRB &
+  &, 0.333202E+01_JPRB, 0.337712E+01_JPRB, 0.342183E+01_JPRB &
+  &, 0.346615E+01_JPRB, 0.351007E+01_JPRB, 0.355356E+01_JPRB, 0.359663E+01_JPRB &
+  &, 0.363925E+01_JPRB, 0.368142E+01_JPRB, 0.372311E+01_JPRB &
+  &, 0.376433E+01_JPRB, 0.380504E+01_JPRB, 0.384527E+01_JPRB, 0.388496E+01_JPRB &
+  &, 0.392416E+01_JPRB, 0.396281E+01_JPRB, 0.400092E+01_JPRB &
+  &, 0.403849E+01_JPRB, 0.407549E+01_JPRB, 0.411193E+01_JPRB, 0.414780E+01_JPRB &
+  &, 0.418307E+01_JPRB, 0.421776E+01_JPRB, 0.425187E+01_JPRB &
+  &, 0.428537E+01_JPRB, 0.431824E+01_JPRB, 0.435037E+01_JPRB, 0.438218E+01_JPRB &
+  &, 0.441322E+01_JPRB, 0.444364E+01_JPRB, 0.447341E+01_JPRB &
+  &, 0.450253E+01_JPRB, 0.453104E+01_JPRB, 0.455887E+01_JPRB, 0.458608E+01_JPRB &
+  &, 0.461263E+01_JPRB, 0.463852E+01_JPRB, 0.466375E+01_JPRB &
+  &, 0.468832E+01_JPRB, 0.471227E+01_JPRB, 0.473550E+01_JPRB, 0.475808E+01_JPRB &
+  &, 0.478000E+01_JPRB, 0.480125E+01_JPRB, 0.482183E+01_JPRB &
+  &, 0.484171E+01_JPRB, 0.486102E+01_JPRB, 0.487958E+01_JPRB, 0.489746E+01_JPRB &
+  &, 0.491467E+01_JPRB, 0.493128E+01_JPRB, 0.494716E+01_JPRB &
+  &, 0.496239E+01_JPRB, 0.497695E+01_JPRB, 0.499084E+01_JPRB, 0.500408E+01_JPRB &
+  &, 0.501663E+01_JPRB, 0.502852E+01_JPRB, 0.503978E+01_JPRB &
+  &, 0.505036E+01_JPRB, 0.506026E+01_JPRB, 0.506953E+01_JPRB, 0.507815E+01_JPRB &
+  &, 0.508613E+01_JPRB, 0.509345E+01_JPRB, 0.510015E+01_JPRB &
+  &, 0.510617E+01_JPRB, 0.511156E+01_JPRB, 0.511638E+01_JPRB, 0.512046E+01_JPRB &
+  &, 0.512401E+01_JPRB, 0.512689E+01_JPRB, 0.512917E+01_JPRB &
+  &, 0.513082E+01_JPRB, 0.513190E+01_JPRB, 0.513233E+01_JPRB, 0.513212E+01_JPRB &
+  &, 0.513139E+01_JPRB, 0.513005E+01_JPRB, 0.512807E+01_JPRB &
+  &, 0.512551E+01_JPRB, 0.512246E+01_JPRB, 0.511875E+01_JPRB, 0.511451E+01_JPRB &
+  &, 0.510966E+01_JPRB, 0.510432E+01_JPRB, 0.509839E+01_JPRB &
+  &, 0.509189E+01_JPRB, 0.508490E+01_JPRB, 0.507731E+01_JPRB, 0.506920E+01_JPRB &
+  &, 0.506060E+01_JPRB, 0.505144E+01_JPRB, 0.504183E+01_JPRB/)
+XCW( 944, :) = (/ &
+  &  0.116376E+01_JPRB, 0.120614E+01_JPRB, 0.124907E+01_JPRB, 0.129251E+01_JPRB &
+  &, 0.133646E+01_JPRB, 0.138088E+01_JPRB, 0.142577E+01_JPRB &
+  &, 0.147109E+01_JPRB, 0.151684E+01_JPRB, 0.156298E+01_JPRB, 0.160950E+01_JPRB &
+  &, 0.165637E+01_JPRB, 0.170358E+01_JPRB, 0.175111E+01_JPRB &
+  &, 0.179892E+01_JPRB, 0.184701E+01_JPRB, 0.189535E+01_JPRB, 0.194392E+01_JPRB &
+  &, 0.199269E+01_JPRB, 0.204164E+01_JPRB, 0.209076E+01_JPRB &
+  &, 0.214003E+01_JPRB, 0.218940E+01_JPRB, 0.223888E+01_JPRB, 0.228844E+01_JPRB &
+  &, 0.233805E+01_JPRB, 0.238769E+01_JPRB, 0.243735E+01_JPRB &
+  &, 0.248700E+01_JPRB, 0.253661E+01_JPRB, 0.258618E+01_JPRB, 0.263567E+01_JPRB &
+  &, 0.268508E+01_JPRB, 0.273438E+01_JPRB, 0.278354E+01_JPRB &
+  &, 0.283255E+01_JPRB, 0.288140E+01_JPRB, 0.293006E+01_JPRB, 0.297850E+01_JPRB &
+  &, 0.302673E+01_JPRB, 0.307472E+01_JPRB, 0.312244E+01_JPRB &
+  &, 0.316988E+01_JPRB, 0.321705E+01_JPRB, 0.326388E+01_JPRB, 0.331041E+01_JPRB &
+  &, 0.335658E+01_JPRB, 0.340241E+01_JPRB, 0.344785E+01_JPRB &
+  &, 0.349292E+01_JPRB, 0.353758E+01_JPRB, 0.358183E+01_JPRB, 0.362567E+01_JPRB &
+  &, 0.366905E+01_JPRB, 0.371198E+01_JPRB, 0.375445E+01_JPRB &
+  &, 0.379645E+01_JPRB, 0.383796E+01_JPRB, 0.387898E+01_JPRB, 0.391950E+01_JPRB &
+  &, 0.395949E+01_JPRB, 0.399895E+01_JPRB, 0.403789E+01_JPRB &
+  &, 0.407627E+01_JPRB, 0.411409E+01_JPRB, 0.415136E+01_JPRB, 0.418807E+01_JPRB &
+  &, 0.422419E+01_JPRB, 0.425972E+01_JPRB, 0.429466E+01_JPRB &
+  &, 0.432902E+01_JPRB, 0.436277E+01_JPRB, 0.439590E+01_JPRB, 0.442841E+01_JPRB &
+  &, 0.446031E+01_JPRB, 0.449157E+01_JPRB, 0.452221E+01_JPRB &
+  &, 0.455220E+01_JPRB, 0.458157E+01_JPRB, 0.461028E+01_JPRB, 0.463834E+01_JPRB &
+  &, 0.466578E+01_JPRB, 0.469254E+01_JPRB, 0.471867E+01_JPRB &
+  &, 0.474413E+01_JPRB, 0.476890E+01_JPRB, 0.479305E+01_JPRB, 0.481650E+01_JPRB &
+  &, 0.483930E+01_JPRB, 0.486143E+01_JPRB, 0.488291E+01_JPRB &
+  &, 0.490368E+01_JPRB, 0.492381E+01_JPRB, 0.494327E+01_JPRB, 0.496197E+01_JPRB &
+  &, 0.498014E+01_JPRB, 0.499758E+01_JPRB, 0.501433E+01_JPRB &
+  &, 0.503043E+01_JPRB, 0.504586E+01_JPRB, 0.506048E+01_JPRB, 0.507470E+01_JPRB &
+  &, 0.508813E+01_JPRB, 0.510089E+01_JPRB, 0.511299E+01_JPRB &
+  &, 0.512440E+01_JPRB, 0.513518E+01_JPRB, 0.514533E+01_JPRB, 0.515478E+01_JPRB &
+  &, 0.516360E+01_JPRB, 0.517175E+01_JPRB, 0.517919E+01_JPRB &
+  &, 0.518613E+01_JPRB, 0.519234E+01_JPRB, 0.519794E+01_JPRB, 0.520289E+01_JPRB &
+  &, 0.520707E+01_JPRB, 0.521091E+01_JPRB, 0.521396E+01_JPRB &
+  &, 0.521642E+01_JPRB, 0.521826E+01_JPRB, 0.521950E+01_JPRB, 0.521993E+01_JPRB &
+  &, 0.522010E+01_JPRB, 0.521945E+01_JPRB, 0.521837E+01_JPRB &
+  &, 0.521654E+01_JPRB, 0.521421E+01_JPRB, 0.521127E+01_JPRB, 0.520591E+01_JPRB &
+  &, 0.520361E+01_JPRB, 0.519897E+01_JPRB, 0.519374E+01_JPRB &
+  &, 0.518799E+01_JPRB, 0.518168E+01_JPRB, 0.517476E+01_JPRB, 0.516739E+01_JPRB &
+  &, 0.515944E+01_JPRB, 0.515094E+01_JPRB, 0.514197E+01_JPRB/)
+XCW( 945, :) = (/ &
+  &  0.116474E+01_JPRB, 0.120741E+01_JPRB, 0.125062E+01_JPRB, 0.129437E+01_JPRB &
+  &, 0.133862E+01_JPRB, 0.138337E+01_JPRB, 0.142859E+01_JPRB &
+  &, 0.147426E+01_JPRB, 0.152037E+01_JPRB, 0.156688E+01_JPRB, 0.161378E+01_JPRB &
+  &, 0.166105E+01_JPRB, 0.170866E+01_JPRB, 0.175661E+01_JPRB &
+  &, 0.180485E+01_JPRB, 0.185338E+01_JPRB, 0.190216E+01_JPRB, 0.195119E+01_JPRB &
+  &, 0.200044E+01_JPRB, 0.204987E+01_JPRB, 0.209949E+01_JPRB &
+  &, 0.214925E+01_JPRB, 0.219915E+01_JPRB, 0.224915E+01_JPRB, 0.229924E+01_JPRB &
+  &, 0.234940E+01_JPRB, 0.239960E+01_JPRB, 0.244982E+01_JPRB &
+  &, 0.250005E+01_JPRB, 0.255025E+01_JPRB, 0.260042E+01_JPRB, 0.265052E+01_JPRB &
+  &, 0.270054E+01_JPRB, 0.275046E+01_JPRB, 0.280026E+01_JPRB &
+  &, 0.284992E+01_JPRB, 0.289942E+01_JPRB, 0.294873E+01_JPRB, 0.299785E+01_JPRB &
+  &, 0.304676E+01_JPRB, 0.309544E+01_JPRB, 0.314386E+01_JPRB &
+  &, 0.319200E+01_JPRB, 0.323987E+01_JPRB, 0.328744E+01_JPRB, 0.333468E+01_JPRB &
+  &, 0.338160E+01_JPRB, 0.342816E+01_JPRB, 0.347436E+01_JPRB &
+  &, 0.352018E+01_JPRB, 0.356561E+01_JPRB, 0.361064E+01_JPRB, 0.365524E+01_JPRB &
+  &, 0.369941E+01_JPRB, 0.374314E+01_JPRB, 0.378641E+01_JPRB &
+  &, 0.382921E+01_JPRB, 0.387154E+01_JPRB, 0.391336E+01_JPRB, 0.395470E+01_JPRB &
+  &, 0.399551E+01_JPRB, 0.403581E+01_JPRB, 0.407557E+01_JPRB &
+  &, 0.411479E+01_JPRB, 0.415347E+01_JPRB, 0.419159E+01_JPRB, 0.422914E+01_JPRB &
+  &, 0.426611E+01_JPRB, 0.430252E+01_JPRB, 0.433833E+01_JPRB &
+  &, 0.437354E+01_JPRB, 0.440816E+01_JPRB, 0.444217E+01_JPRB, 0.447557E+01_JPRB &
+  &, 0.450831E+01_JPRB, 0.454050E+01_JPRB, 0.457202E+01_JPRB &
+  &, 0.460291E+01_JPRB, 0.463317E+01_JPRB, 0.466278E+01_JPRB, 0.469174E+01_JPRB &
+  &, 0.472006E+01_JPRB, 0.474771E+01_JPRB, 0.477469E+01_JPRB &
+  &, 0.480108E+01_JPRB, 0.482667E+01_JPRB, 0.485180E+01_JPRB, 0.487616E+01_JPRB &
+  &, 0.489988E+01_JPRB, 0.492291E+01_JPRB, 0.494527E+01_JPRB &
+  &, 0.496698E+01_JPRB, 0.498799E+01_JPRB, 0.500833E+01_JPRB, 0.502802E+01_JPRB &
+  &, 0.504701E+01_JPRB, 0.506534E+01_JPRB, 0.508302E+01_JPRB &
+  &, 0.510002E+01_JPRB, 0.511634E+01_JPRB, 0.513197E+01_JPRB, 0.514694E+01_JPRB &
+  &, 0.516127E+01_JPRB, 0.517490E+01_JPRB, 0.518790E+01_JPRB &
+  &, 0.520013E+01_JPRB, 0.521185E+01_JPRB, 0.522283E+01_JPRB, 0.523319E+01_JPRB &
+  &, 0.524282E+01_JPRB, 0.525187E+01_JPRB, 0.526022E+01_JPRB &
+  &, 0.526797E+01_JPRB, 0.527504E+01_JPRB, 0.528150E+01_JPRB, 0.528726E+01_JPRB &
+  &, 0.529243E+01_JPRB, 0.529693E+01_JPRB, 0.530082E+01_JPRB &
+  &, 0.530412E+01_JPRB, 0.530680E+01_JPRB, 0.530882E+01_JPRB, 0.531024E+01_JPRB &
+  &, 0.531103E+01_JPRB, 0.531126E+01_JPRB, 0.531084E+01_JPRB &
+  &, 0.530983E+01_JPRB, 0.530825E+01_JPRB, 0.530607E+01_JPRB, 0.530330E+01_JPRB &
+  &, 0.529989E+01_JPRB, 0.529610E+01_JPRB, 0.529160E+01_JPRB &
+  &, 0.528651E+01_JPRB, 0.528073E+01_JPRB, 0.527477E+01_JPRB, 0.526810E+01_JPRB &
+  &, 0.526085E+01_JPRB, 0.525310E+01_JPRB, 0.524474E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART135',1,ZHOOK_HANDLE)
+END SUBROUTINE PART135
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART136
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART136',0,ZHOOK_HANDLE)
+
+XCW( 946, :) = (/ &
+  &  0.116575E+01_JPRB, 0.120869E+01_JPRB, 0.125220E+01_JPRB, 0.129625E+01_JPRB &
+  &, 0.134082E+01_JPRB, 0.138590E+01_JPRB, 0.143146E+01_JPRB &
+  &, 0.147749E+01_JPRB, 0.152395E+01_JPRB, 0.157084E+01_JPRB, 0.161813E+01_JPRB &
+  &, 0.166580E+01_JPRB, 0.171383E+01_JPRB, 0.176219E+01_JPRB &
+  &, 0.181087E+01_JPRB, 0.185985E+01_JPRB, 0.190909E+01_JPRB, 0.195859E+01_JPRB &
+  &, 0.200831E+01_JPRB, 0.205824E+01_JPRB, 0.210836E+01_JPRB &
+  &, 0.215864E+01_JPRB, 0.220906E+01_JPRB, 0.225960E+01_JPRB, 0.231024E+01_JPRB &
+  &, 0.236095E+01_JPRB, 0.241172E+01_JPRB, 0.246252E+01_JPRB &
+  &, 0.251333E+01_JPRB, 0.256414E+01_JPRB, 0.261491E+01_JPRB, 0.266563E+01_JPRB &
+  &, 0.271628E+01_JPRB, 0.276684E+01_JPRB, 0.281729E+01_JPRB &
+  &, 0.286760E+01_JPRB, 0.291776E+01_JPRB, 0.296776E+01_JPRB, 0.301756E+01_JPRB &
+  &, 0.306717E+01_JPRB, 0.311653E+01_JPRB, 0.316567E+01_JPRB &
+  &, 0.321454E+01_JPRB, 0.326313E+01_JPRB, 0.331143E+01_JPRB, 0.335943E+01_JPRB &
+  &, 0.340709E+01_JPRB, 0.345441E+01_JPRB, 0.350138E+01_JPRB &
+  &, 0.354798E+01_JPRB, 0.359419E+01_JPRB, 0.364000E+01_JPRB, 0.368540E+01_JPRB &
+  &, 0.373037E+01_JPRB, 0.377490E+01_JPRB, 0.381899E+01_JPRB &
+  &, 0.386261E+01_JPRB, 0.390577E+01_JPRB, 0.394842E+01_JPRB, 0.399060E+01_JPRB &
+  &, 0.403226E+01_JPRB, 0.407341E+01_JPRB, 0.411402E+01_JPRB &
+  &, 0.415410E+01_JPRB, 0.419365E+01_JPRB, 0.423263E+01_JPRB, 0.427106E+01_JPRB &
+  &, 0.430892E+01_JPRB, 0.434619E+01_JPRB, 0.438289E+01_JPRB &
+  &, 0.441900E+01_JPRB, 0.445450E+01_JPRB, 0.448941E+01_JPRB, 0.452354E+01_JPRB &
+  &, 0.455738E+01_JPRB, 0.459044E+01_JPRB, 0.462287E+01_JPRB &
+  &, 0.465467E+01_JPRB, 0.468584E+01_JPRB, 0.471636E+01_JPRB, 0.474625E+01_JPRB &
+  &, 0.477545E+01_JPRB, 0.480410E+01_JPRB, 0.483197E+01_JPRB &
+  &, 0.485928E+01_JPRB, 0.488501E+01_JPRB, 0.491187E+01_JPRB, 0.493715E+01_JPRB &
+  &, 0.496179E+01_JPRB, 0.498574E+01_JPRB, 0.500903E+01_JPRB &
+  &, 0.503167E+01_JPRB, 0.505359E+01_JPRB, 0.507486E+01_JPRB, 0.509547E+01_JPRB &
+  &, 0.511541E+01_JPRB, 0.513466E+01_JPRB, 0.515325E+01_JPRB &
+  &, 0.517117E+01_JPRB, 0.518839E+01_JPRB, 0.520494E+01_JPRB, 0.522084E+01_JPRB &
+  &, 0.523606E+01_JPRB, 0.525061E+01_JPRB, 0.526451E+01_JPRB &
+  &, 0.527760E+01_JPRB, 0.529029E+01_JPRB, 0.530219E+01_JPRB, 0.531340E+01_JPRB &
+  &, 0.532397E+01_JPRB, 0.533374E+01_JPRB, 0.534315E+01_JPRB &
+  &, 0.535174E+01_JPRB, 0.535970E+01_JPRB, 0.536704E+01_JPRB, 0.537368E+01_JPRB &
+  &, 0.537973E+01_JPRB, 0.538511E+01_JPRB, 0.538984E+01_JPRB &
+  &, 0.539401E+01_JPRB, 0.539741E+01_JPRB, 0.540035E+01_JPRB, 0.540258E+01_JPRB &
+  &, 0.540424E+01_JPRB, 0.540527E+01_JPRB, 0.540570E+01_JPRB &
+  &, 0.540549E+01_JPRB, 0.540470E+01_JPRB, 0.540336E+01_JPRB, 0.540137E+01_JPRB &
+  &, 0.539879E+01_JPRB, 0.539571E+01_JPRB, 0.539197E+01_JPRB &
+  &, 0.538770E+01_JPRB, 0.538286E+01_JPRB, 0.537746E+01_JPRB, 0.537146E+01_JPRB &
+  &, 0.536494E+01_JPRB, 0.535792E+01_JPRB, 0.535028E+01_JPRB/)
+XCW( 947, :) = (/ &
+  &  0.116676E+01_JPRB, 0.120999E+01_JPRB, 0.125380E+01_JPRB, 0.129816E+01_JPRB &
+  &, 0.134306E+01_JPRB, 0.138847E+01_JPRB, 0.143438E+01_JPRB &
+  &, 0.148076E+01_JPRB, 0.152760E+01_JPRB, 0.157487E+01_JPRB, 0.162256E+01_JPRB &
+  &, 0.167063E+01_JPRB, 0.171908E+01_JPRB, 0.176788E+01_JPRB &
+  &, 0.181700E+01_JPRB, 0.186643E+01_JPRB, 0.191614E+01_JPRB, 0.196611E+01_JPRB &
+  &, 0.201633E+01_JPRB, 0.206676E+01_JPRB, 0.211739E+01_JPRB &
+  &, 0.216819E+01_JPRB, 0.221915E+01_JPRB, 0.227024E+01_JPRB, 0.232143E+01_JPRB &
+  &, 0.237271E+01_JPRB, 0.242406E+01_JPRB, 0.247545E+01_JPRB &
+  &, 0.252686E+01_JPRB, 0.257828E+01_JPRB, 0.262967E+01_JPRB, 0.268102E+01_JPRB &
+  &, 0.273231E+01_JPRB, 0.278352E+01_JPRB, 0.283463E+01_JPRB &
+  &, 0.288562E+01_JPRB, 0.293646E+01_JPRB, 0.298714E+01_JPRB, 0.303764E+01_JPRB &
+  &, 0.308795E+01_JPRB, 0.313804E+01_JPRB, 0.318790E+01_JPRB &
+  &, 0.323751E+01_JPRB, 0.328684E+01_JPRB, 0.333590E+01_JPRB, 0.338464E+01_JPRB &
+  &, 0.343307E+01_JPRB, 0.348117E+01_JPRB, 0.352892E+01_JPRB &
+  &, 0.357631E+01_JPRB, 0.362333E+01_JPRB, 0.366994E+01_JPRB, 0.371615E+01_JPRB &
+  &, 0.376194E+01_JPRB, 0.380730E+01_JPRB, 0.385223E+01_JPRB &
+  &, 0.389669E+01_JPRB, 0.394068E+01_JPRB, 0.398420E+01_JPRB, 0.402723E+01_JPRB &
+  &, 0.406974E+01_JPRB, 0.411176E+01_JPRB, 0.415325E+01_JPRB &
+  &, 0.419422E+01_JPRB, 0.423464E+01_JPRB, 0.427453E+01_JPRB, 0.431385E+01_JPRB &
+  &, 0.435260E+01_JPRB, 0.439079E+01_JPRB, 0.442839E+01_JPRB &
+  &, 0.446540E+01_JPRB, 0.450183E+01_JPRB, 0.453766E+01_JPRB, 0.457286E+01_JPRB &
+  &, 0.460746E+01_JPRB, 0.464145E+01_JPRB, 0.467482E+01_JPRB &
+  &, 0.470757E+01_JPRB, 0.473967E+01_JPRB, 0.477113E+01_JPRB, 0.480194E+01_JPRB &
+  &, 0.483213E+01_JPRB, 0.486166E+01_JPRB, 0.489055E+01_JPRB &
+  &, 0.491876E+01_JPRB, 0.494633E+01_JPRB, 0.497324E+01_JPRB, 0.499949E+01_JPRB &
+  &, 0.502508E+01_JPRB, 0.504998E+01_JPRB, 0.507422E+01_JPRB &
+  &, 0.509778E+01_JPRB, 0.512070E+01_JPRB, 0.514291E+01_JPRB, 0.516445E+01_JPRB &
+  &, 0.518537E+01_JPRB, 0.520556E+01_JPRB, 0.522482E+01_JPRB &
+  &, 0.524394E+01_JPRB, 0.526214E+01_JPRB, 0.527965E+01_JPRB, 0.529650E+01_JPRB &
+  &, 0.531265E+01_JPRB, 0.532816E+01_JPRB, 0.534294E+01_JPRB &
+  &, 0.535710E+01_JPRB, 0.537060E+01_JPRB, 0.538343E+01_JPRB, 0.539560E+01_JPRB &
+  &, 0.540705E+01_JPRB, 0.541787E+01_JPRB, 0.542807E+01_JPRB &
+  &, 0.543758E+01_JPRB, 0.544646E+01_JPRB, 0.545467E+01_JPRB, 0.546222E+01_JPRB &
+  &, 0.546914E+01_JPRB, 0.547543E+01_JPRB, 0.548106E+01_JPRB &
+  &, 0.548600E+01_JPRB, 0.549045E+01_JPRB, 0.549419E+01_JPRB, 0.549732E+01_JPRB &
+  &, 0.549982E+01_JPRB, 0.550169E+01_JPRB, 0.550295E+01_JPRB &
+  &, 0.550362E+01_JPRB, 0.550366E+01_JPRB, 0.550269E+01_JPRB, 0.550197E+01_JPRB &
+  &, 0.550026E+01_JPRB, 0.549793E+01_JPRB, 0.549499E+01_JPRB &
+  &, 0.549151E+01_JPRB, 0.548745E+01_JPRB, 0.548283E+01_JPRB, 0.547761E+01_JPRB &
+  &, 0.547185E+01_JPRB, 0.546559E+01_JPRB, 0.545870E+01_JPRB/)
+XCW( 948, :) = (/ &
+  &  0.116780E+01_JPRB, 0.121132E+01_JPRB, 0.125542E+01_JPRB, 0.130010E+01_JPRB &
+  &, 0.134532E+01_JPRB, 0.139108E+01_JPRB, 0.143734E+01_JPRB &
+  &, 0.148409E+01_JPRB, 0.153130E+01_JPRB, 0.157897E+01_JPRB, 0.162705E+01_JPRB &
+  &, 0.167555E+01_JPRB, 0.172442E+01_JPRB, 0.177366E+01_JPRB &
+  &, 0.182323E+01_JPRB, 0.187312E+01_JPRB, 0.192331E+01_JPRB, 0.197377E+01_JPRB &
+  &, 0.202449E+01_JPRB, 0.207543E+01_JPRB, 0.212658E+01_JPRB &
+  &, 0.217792E+01_JPRB, 0.222942E+01_JPRB, 0.228106E+01_JPRB, 0.233282E+01_JPRB &
+  &, 0.238469E+01_JPRB, 0.243662E+01_JPRB, 0.248862E+01_JPRB &
+  &, 0.254064E+01_JPRB, 0.259267E+01_JPRB, 0.264470E+01_JPRB, 0.269670E+01_JPRB &
+  &, 0.274864E+01_JPRB, 0.280052E+01_JPRB, 0.285230E+01_JPRB &
+  &, 0.290397E+01_JPRB, 0.295550E+01_JPRB, 0.300689E+01_JPRB, 0.305812E+01_JPRB &
+  &, 0.310914E+01_JPRB, 0.315996E+01_JPRB, 0.321057E+01_JPRB &
+  &, 0.326092E+01_JPRB, 0.331102E+01_JPRB, 0.336083E+01_JPRB, 0.341035E+01_JPRB &
+  &, 0.345957E+01_JPRB, 0.350846E+01_JPRB, 0.355702E+01_JPRB &
+  &, 0.360521E+01_JPRB, 0.365304E+01_JPRB, 0.370048E+01_JPRB, 0.374752E+01_JPRB &
+  &, 0.379416E+01_JPRB, 0.384036E+01_JPRB, 0.388613E+01_JPRB &
+  &, 0.393145E+01_JPRB, 0.397632E+01_JPRB, 0.402070E+01_JPRB, 0.406461E+01_JPRB &
+  &, 0.410802E+01_JPRB, 0.415092E+01_JPRB, 0.419331E+01_JPRB &
+  &, 0.423518E+01_JPRB, 0.427651E+01_JPRB, 0.431730E+01_JPRB, 0.435753E+01_JPRB &
+  &, 0.439721E+01_JPRB, 0.443632E+01_JPRB, 0.447485E+01_JPRB &
+  &, 0.451280E+01_JPRB, 0.455017E+01_JPRB, 0.458690E+01_JPRB, 0.462310E+01_JPRB &
+  &, 0.465864E+01_JPRB, 0.469359E+01_JPRB, 0.472790E+01_JPRB &
+  &, 0.476161E+01_JPRB, 0.479467E+01_JPRB, 0.482709E+01_JPRB, 0.485888E+01_JPRB &
+  &, 0.489004E+01_JPRB, 0.492053E+01_JPRB, 0.495040E+01_JPRB &
+  &, 0.497958E+01_JPRB, 0.500813E+01_JPRB, 0.503600E+01_JPRB, 0.506324E+01_JPRB &
+  &, 0.508977E+01_JPRB, 0.511568E+01_JPRB, 0.514087E+01_JPRB &
+  &, 0.516545E+01_JPRB, 0.518933E+01_JPRB, 0.521253E+01_JPRB, 0.523504E+01_JPRB &
+  &, 0.525693E+01_JPRB, 0.527809E+01_JPRB, 0.529861E+01_JPRB &
+  &, 0.531846E+01_JPRB, 0.533760E+01_JPRB, 0.535609E+01_JPRB, 0.537390E+01_JPRB &
+  &, 0.539103E+01_JPRB, 0.540745E+01_JPRB, 0.542330E+01_JPRB &
+  &, 0.543842E+01_JPRB, 0.545287E+01_JPRB, 0.546661E+01_JPRB, 0.547974E+01_JPRB &
+  &, 0.549218E+01_JPRB, 0.550395E+01_JPRB, 0.551506E+01_JPRB &
+  &, 0.552553E+01_JPRB, 0.553535E+01_JPRB, 0.554451E+01_JPRB, 0.555297E+01_JPRB &
+  &, 0.556084E+01_JPRB, 0.556803E+01_JPRB, 0.557460E+01_JPRB &
+  &, 0.558052E+01_JPRB, 0.558582E+01_JPRB, 0.559044E+01_JPRB, 0.559446E+01_JPRB &
+  &, 0.559783E+01_JPRB, 0.560057E+01_JPRB, 0.560276E+01_JPRB &
+  &, 0.560430E+01_JPRB, 0.560520E+01_JPRB, 0.560554E+01_JPRB, 0.560521E+01_JPRB &
+  &, 0.560435E+01_JPRB, 0.560286E+01_JPRB, 0.560081E+01_JPRB &
+  &, 0.559810E+01_JPRB, 0.559487E+01_JPRB, 0.559107E+01_JPRB, 0.558666E+01_JPRB &
+  &, 0.558171E+01_JPRB, 0.557624E+01_JPRB, 0.557015E+01_JPRB/)
+XCW( 949, :) = (/ &
+  &  0.116885E+01_JPRB, 0.121266E+01_JPRB, 0.125708E+01_JPRB, 0.130207E+01_JPRB &
+  &, 0.134763E+01_JPRB, 0.139373E+01_JPRB, 0.144035E+01_JPRB &
+  &, 0.148747E+01_JPRB, 0.153507E+01_JPRB, 0.158313E+01_JPRB, 0.163163E+01_JPRB &
+  &, 0.168054E+01_JPRB, 0.172985E+01_JPRB, 0.177954E+01_JPRB &
+  &, 0.182957E+01_JPRB, 0.187994E+01_JPRB, 0.193061E+01_JPRB, 0.198157E+01_JPRB &
+  &, 0.203279E+01_JPRB, 0.208425E+01_JPRB, 0.213594E+01_JPRB &
+  &, 0.218782E+01_JPRB, 0.223988E+01_JPRB, 0.229209E+01_JPRB, 0.234443E+01_JPRB &
+  &, 0.239688E+01_JPRB, 0.244942E+01_JPRB, 0.250203E+01_JPRB &
+  &, 0.255468E+01_JPRB, 0.260735E+01_JPRB, 0.266002E+01_JPRB, 0.271268E+01_JPRB &
+  &, 0.276529E+01_JPRB, 0.281784E+01_JPRB, 0.287031E+01_JPRB &
+  &, 0.292267E+01_JPRB, 0.297493E+01_JPRB, 0.302703E+01_JPRB, 0.307898E+01_JPRB &
+  &, 0.313074E+01_JPRB, 0.318231E+01_JPRB, 0.323367E+01_JPRB &
+  &, 0.328479E+01_JPRB, 0.333566E+01_JPRB, 0.338627E+01_JPRB, 0.343659E+01_JPRB &
+  &, 0.348660E+01_JPRB, 0.353631E+01_JPRB, 0.358568E+01_JPRB &
+  &, 0.363470E+01_JPRB, 0.368337E+01_JPRB, 0.373165E+01_JPRB, 0.377954E+01_JPRB &
+  &, 0.382703E+01_JPRB, 0.387387E+01_JPRB, 0.392075E+01_JPRB &
+  &, 0.396695E+01_JPRB, 0.401269E+01_JPRB, 0.405797E+01_JPRB, 0.410278E+01_JPRB &
+  &, 0.414708E+01_JPRB, 0.419090E+01_JPRB, 0.423421E+01_JPRB &
+  &, 0.427701E+01_JPRB, 0.431926E+01_JPRB, 0.436097E+01_JPRB, 0.440216E+01_JPRB &
+  &, 0.444277E+01_JPRB, 0.448284E+01_JPRB, 0.452232E+01_JPRB &
+  &, 0.456122E+01_JPRB, 0.459956E+01_JPRB, 0.463728E+01_JPRB, 0.467442E+01_JPRB &
+  &, 0.471095E+01_JPRB, 0.474687E+01_JPRB, 0.478216E+01_JPRB &
+  &, 0.481684E+01_JPRB, 0.485091E+01_JPRB, 0.488432E+01_JPRB, 0.491710E+01_JPRB &
+  &, 0.494925E+01_JPRB, 0.498075E+01_JPRB, 0.501158E+01_JPRB &
+  &, 0.504179E+01_JPRB, 0.507132E+01_JPRB, 0.510020E+01_JPRB, 0.512844E+01_JPRB &
+  &, 0.515599E+01_JPRB, 0.518287E+01_JPRB, 0.520911E+01_JPRB &
+  &, 0.523467E+01_JPRB, 0.525956E+01_JPRB, 0.528379E+01_JPRB, 0.530733E+01_JPRB &
+  &, 0.533018E+01_JPRB, 0.535238E+01_JPRB, 0.537391E+01_JPRB &
+  &, 0.539473E+01_JPRB, 0.541489E+01_JPRB, 0.543439E+01_JPRB, 0.545321E+01_JPRB &
+  &, 0.547132E+01_JPRB, 0.548881E+01_JPRB, 0.550556E+01_JPRB &
+  &, 0.552155E+01_JPRB, 0.553710E+01_JPRB, 0.555174E+01_JPRB, 0.556598E+01_JPRB &
+  &, 0.557941E+01_JPRB, 0.559217E+01_JPRB, 0.560427E+01_JPRB &
+  &, 0.561572E+01_JPRB, 0.562648E+01_JPRB, 0.563658E+01_JPRB, 0.564607E+01_JPRB &
+  &, 0.565487E+01_JPRB, 0.566299E+01_JPRB, 0.567054E+01_JPRB &
+  &, 0.567739E+01_JPRB, 0.568361E+01_JPRB, 0.568921E+01_JPRB, 0.569414E+01_JPRB &
+  &, 0.569843E+01_JPRB, 0.570203E+01_JPRB, 0.570518E+01_JPRB &
+  &, 0.570762E+01_JPRB, 0.570942E+01_JPRB, 0.571065E+01_JPRB, 0.571121E+01_JPRB &
+  &, 0.571124E+01_JPRB, 0.571063E+01_JPRB, 0.570945E+01_JPRB &
+  &, 0.570761E+01_JPRB, 0.570525E+01_JPRB, 0.570224E+01_JPRB, 0.569874E+01_JPRB &
+  &, 0.569457E+01_JPRB, 0.568968E+01_JPRB, 0.568455E+01_JPRB/)
+XCW( 950, :) = (/ &
+  &  0.116992E+01_JPRB, 0.121403E+01_JPRB, 0.125876E+01_JPRB, 0.130408E+01_JPRB &
+  &, 0.134998E+01_JPRB, 0.139643E+01_JPRB, 0.144342E+01_JPRB &
+  &, 0.149092E+01_JPRB, 0.153891E+01_JPRB, 0.158737E+01_JPRB, 0.163629E+01_JPRB &
+  &, 0.168563E+01_JPRB, 0.173538E+01_JPRB, 0.178552E+01_JPRB &
+  &, 0.183603E+01_JPRB, 0.188687E+01_JPRB, 0.193804E+01_JPRB, 0.198950E+01_JPRB &
+  &, 0.204124E+01_JPRB, 0.209324E+01_JPRB, 0.214547E+01_JPRB &
+  &, 0.219790E+01_JPRB, 0.225053E+01_JPRB, 0.230332E+01_JPRB, 0.235625E+01_JPRB &
+  &, 0.240931E+01_JPRB, 0.246246E+01_JPRB, 0.251569E+01_JPRB &
+  &, 0.256898E+01_JPRB, 0.262230E+01_JPRB, 0.267563E+01_JPRB, 0.272896E+01_JPRB &
+  &, 0.278226E+01_JPRB, 0.283550E+01_JPRB, 0.288868E+01_JPRB &
+  &, 0.294176E+01_JPRB, 0.299473E+01_JPRB, 0.304757E+01_JPRB, 0.310026E+01_JPRB &
+  &, 0.315278E+01_JPRB, 0.320512E+01_JPRB, 0.325725E+01_JPRB &
+  &, 0.330915E+01_JPRB, 0.336082E+01_JPRB, 0.341222E+01_JPRB, 0.346335E+01_JPRB &
+  &, 0.351419E+01_JPRB, 0.356473E+01_JPRB, 0.361493E+01_JPRB &
+  &, 0.366480E+01_JPRB, 0.371431E+01_JPRB, 0.376346E+01_JPRB, 0.381223E+01_JPRB &
+  &, 0.386059E+01_JPRB, 0.390855E+01_JPRB, 0.395609E+01_JPRB &
+  &, 0.400318E+01_JPRB, 0.404984E+01_JPRB, 0.409603E+01_JPRB, 0.414175E+01_JPRB &
+  &, 0.418699E+01_JPRB, 0.423175E+01_JPRB, 0.427599E+01_JPRB &
+  &, 0.431972E+01_JPRB, 0.436295E+01_JPRB, 0.440562E+01_JPRB, 0.444776E+01_JPRB &
+  &, 0.448934E+01_JPRB, 0.453037E+01_JPRB, 0.457083E+01_JPRB &
+  &, 0.461074E+01_JPRB, 0.465003E+01_JPRB, 0.468877E+01_JPRB, 0.472690E+01_JPRB &
+  &, 0.476442E+01_JPRB, 0.480134E+01_JPRB, 0.483764E+01_JPRB &
+  &, 0.487329E+01_JPRB, 0.490841E+01_JPRB, 0.494284E+01_JPRB, 0.497661E+01_JPRB &
+  &, 0.500982E+01_JPRB, 0.504230E+01_JPRB, 0.507418E+01_JPRB &
+  &, 0.510542E+01_JPRB, 0.513599E+01_JPRB, 0.516591E+01_JPRB, 0.519517E+01_JPRB &
+  &, 0.522375E+01_JPRB, 0.525169E+01_JPRB, 0.527896E+01_JPRB &
+  &, 0.530557E+01_JPRB, 0.533148E+01_JPRB, 0.535660E+01_JPRB, 0.538129E+01_JPRB &
+  &, 0.540520E+01_JPRB, 0.542844E+01_JPRB, 0.545100E+01_JPRB &
+  &, 0.547282E+01_JPRB, 0.549406E+01_JPRB, 0.551458E+01_JPRB, 0.553445E+01_JPRB &
+  &, 0.555361E+01_JPRB, 0.557211E+01_JPRB, 0.558992E+01_JPRB &
+  &, 0.560704E+01_JPRB, 0.562349E+01_JPRB, 0.563932E+01_JPRB, 0.565442E+01_JPRB &
+  &, 0.566883E+01_JPRB, 0.568261E+01_JPRB, 0.569572E+01_JPRB &
+  &, 0.570819E+01_JPRB, 0.571994E+01_JPRB, 0.573106E+01_JPRB, 0.574152E+01_JPRB &
+  &, 0.575133E+01_JPRB, 0.576047E+01_JPRB, 0.576894E+01_JPRB &
+  &, 0.577681E+01_JPRB, 0.578399E+01_JPRB, 0.579054E+01_JPRB, 0.579643E+01_JPRB &
+  &, 0.580167E+01_JPRB, 0.580633E+01_JPRB, 0.581037E+01_JPRB &
+  &, 0.581370E+01_JPRB, 0.581649E+01_JPRB, 0.581866E+01_JPRB, 0.582015E+01_JPRB &
+  &, 0.582104E+01_JPRB, 0.582135E+01_JPRB, 0.582103E+01_JPRB &
+  &, 0.582016E+01_JPRB, 0.581869E+01_JPRB, 0.581659E+01_JPRB, 0.581392E+01_JPRB &
+  &, 0.581064E+01_JPRB, 0.580682E+01_JPRB, 0.580243E+01_JPRB/)
+XCW( 951, :) = (/ &
+  &  0.117100E+01_JPRB, 0.121542E+01_JPRB, 0.126047E+01_JPRB, 0.130612E+01_JPRB &
+  &, 0.135236E+01_JPRB, 0.139917E+01_JPRB, 0.144653E+01_JPRB &
+  &, 0.149442E+01_JPRB, 0.154281E+01_JPRB, 0.159169E+01_JPRB, 0.164103E+01_JPRB &
+  &, 0.169081E+01_JPRB, 0.174101E+01_JPRB, 0.179162E+01_JPRB &
+  &, 0.184260E+01_JPRB, 0.189394E+01_JPRB, 0.194561E+01_JPRB, 0.199759E+01_JPRB &
+  &, 0.204986E+01_JPRB, 0.210240E+01_JPRB, 0.215518E+01_JPRB &
+  &, 0.220818E+01_JPRB, 0.226139E+01_JPRB, 0.231477E+01_JPRB, 0.236831E+01_JPRB &
+  &, 0.242198E+01_JPRB, 0.247576E+01_JPRB, 0.252963E+01_JPRB &
+  &, 0.258357E+01_JPRB, 0.263755E+01_JPRB, 0.269156E+01_JPRB, 0.274557E+01_JPRB &
+  &, 0.279956E+01_JPRB, 0.285352E+01_JPRB, 0.290741E+01_JPRB &
+  &, 0.296122E+01_JPRB, 0.301493E+01_JPRB, 0.306852E+01_JPRB, 0.312198E+01_JPRB &
+  &, 0.317527E+01_JPRB, 0.322839E+01_JPRB, 0.328131E+01_JPRB &
+  &, 0.333402E+01_JPRB, 0.338649E+01_JPRB, 0.343871E+01_JPRB, 0.349068E+01_JPRB &
+  &, 0.354235E+01_JPRB, 0.359374E+01_JPRB, 0.364480E+01_JPRB &
+  &, 0.369554E+01_JPRB, 0.374592E+01_JPRB, 0.379595E+01_JPRB, 0.384561E+01_JPRB &
+  &, 0.389488E+01_JPRB, 0.394374E+01_JPRB, 0.399219E+01_JPRB &
+  &, 0.404021E+01_JPRB, 0.408780E+01_JPRB, 0.413492E+01_JPRB, 0.418160E+01_JPRB &
+  &, 0.422778E+01_JPRB, 0.427350E+01_JPRB, 0.431870E+01_JPRB &
+  &, 0.436340E+01_JPRB, 0.440759E+01_JPRB, 0.445125E+01_JPRB, 0.449437E+01_JPRB &
+  &, 0.453696E+01_JPRB, 0.457898E+01_JPRB, 0.462045E+01_JPRB &
+  &, 0.466135E+01_JPRB, 0.470167E+01_JPRB, 0.474141E+01_JPRB, 0.478057E+01_JPRB &
+  &, 0.481911E+01_JPRB, 0.485707E+01_JPRB, 0.489441E+01_JPRB &
+  &, 0.493113E+01_JPRB, 0.496723E+01_JPRB, 0.500267E+01_JPRB, 0.503755E+01_JPRB &
+  &, 0.507178E+01_JPRB, 0.510536E+01_JPRB, 0.513829E+01_JPRB &
+  &, 0.517055E+01_JPRB, 0.520219E+01_JPRB, 0.523315E+01_JPRB, 0.526349E+01_JPRB &
+  &, 0.529315E+01_JPRB, 0.532216E+01_JPRB, 0.535047E+01_JPRB &
+  &, 0.537815E+01_JPRB, 0.540513E+01_JPRB, 0.543144E+01_JPRB, 0.545709E+01_JPRB &
+  &, 0.548209E+01_JPRB, 0.550636E+01_JPRB, 0.552999E+01_JPRB &
+  &, 0.555282E+01_JPRB, 0.557520E+01_JPRB, 0.559679E+01_JPRB, 0.561767E+01_JPRB &
+  &, 0.563792E+01_JPRB, 0.565747E+01_JPRB, 0.567637E+01_JPRB &
+  &, 0.569455E+01_JPRB, 0.571201E+01_JPRB, 0.572890E+01_JPRB, 0.574509E+01_JPRB &
+  &, 0.576060E+01_JPRB, 0.577539E+01_JPRB, 0.578957E+01_JPRB &
+  &, 0.580305E+01_JPRB, 0.581585E+01_JPRB, 0.582803E+01_JPRB, 0.583800E+01_JPRB &
+  &, 0.585032E+01_JPRB, 0.586047E+01_JPRB, 0.586685E+01_JPRB &
+  &, 0.587887E+01_JPRB, 0.588704E+01_JPRB, 0.589460E+01_JPRB, 0.590148E+01_JPRB &
+  &, 0.590777E+01_JPRB, 0.591342E+01_JPRB, 0.591839E+01_JPRB &
+  &, 0.592276E+01_JPRB, 0.592647E+01_JPRB, 0.592950E+01_JPRB, 0.593207E+01_JPRB &
+  &, 0.593393E+01_JPRB, 0.593520E+01_JPRB, 0.593584E+01_JPRB &
+  &, 0.593586E+01_JPRB, 0.593528E+01_JPRB, 0.593412E+01_JPRB, 0.593238E+01_JPRB &
+  &, 0.593003E+01_JPRB, 0.592708E+01_JPRB, 0.592354E+01_JPRB/)
+XCW( 952, :) = (/ &
+  &  0.117211E+01_JPRB, 0.121683E+01_JPRB, 0.126221E+01_JPRB, 0.130820E+01_JPRB &
+  &, 0.135479E+01_JPRB, 0.140197E+01_JPRB, 0.144971E+01_JPRB &
+  &, 0.149799E+01_JPRB, 0.154678E+01_JPRB, 0.159608E+01_JPRB, 0.164586E+01_JPRB &
+  &, 0.169609E+01_JPRB, 0.174675E+01_JPRB, 0.179783E+01_JPRB &
+  &, 0.184930E+01_JPRB, 0.190113E+01_JPRB, 0.195332E+01_JPRB, 0.200583E+01_JPRB &
+  &, 0.205864E+01_JPRB, 0.211173E+01_JPRB, 0.216508E+01_JPRB &
+  &, 0.221866E+01_JPRB, 0.227245E+01_JPRB, 0.232644E+01_JPRB, 0.238059E+01_JPRB &
+  &, 0.243489E+01_JPRB, 0.248932E+01_JPRB, 0.254384E+01_JPRB &
+  &, 0.259844E+01_JPRB, 0.265311E+01_JPRB, 0.270780E+01_JPRB, 0.276251E+01_JPRB &
+  &, 0.281722E+01_JPRB, 0.287189E+01_JPRB, 0.292652E+01_JPRB &
+  &, 0.298108E+01_JPRB, 0.303555E+01_JPRB, 0.308991E+01_JPRB, 0.314414E+01_JPRB &
+  &, 0.319822E+01_JPRB, 0.325214E+01_JPRB, 0.330587E+01_JPRB &
+  &, 0.335940E+01_JPRB, 0.341270E+01_JPRB, 0.346578E+01_JPRB, 0.351859E+01_JPRB &
+  &, 0.357112E+01_JPRB, 0.362337E+01_JPRB, 0.367530E+01_JPRB &
+  &, 0.372693E+01_JPRB, 0.377821E+01_JPRB, 0.382915E+01_JPRB, 0.387971E+01_JPRB &
+  &, 0.392991E+01_JPRB, 0.397969E+01_JPRB, 0.402908E+01_JPRB &
+  &, 0.407805E+01_JPRB, 0.412659E+01_JPRB, 0.417467E+01_JPRB, 0.422231E+01_JPRB &
+  &, 0.426947E+01_JPRB, 0.431617E+01_JPRB, 0.436237E+01_JPRB &
+  &, 0.440806E+01_JPRB, 0.445324E+01_JPRB, 0.449792E+01_JPRB, 0.454205E+01_JPRB &
+  &, 0.458565E+01_JPRB, 0.462869E+01_JPRB, 0.467121E+01_JPRB &
+  &, 0.471314E+01_JPRB, 0.475449E+01_JPRB, 0.479527E+01_JPRB, 0.483548E+01_JPRB &
+  &, 0.487507E+01_JPRB, 0.491409E+01_JPRB, 0.495249E+01_JPRB &
+  &, 0.499028E+01_JPRB, 0.502746E+01_JPRB, 0.506402E+01_JPRB, 0.509992E+01_JPRB &
+  &, 0.513524E+01_JPRB, 0.516987E+01_JPRB, 0.520390E+01_JPRB &
+  &, 0.523728E+01_JPRB, 0.527000E+01_JPRB, 0.530207E+01_JPRB, 0.533345E+01_JPRB &
+  &, 0.536421E+01_JPRB, 0.539427E+01_JPRB, 0.542374E+01_JPRB &
+  &, 0.545253E+01_JPRB, 0.548059E+01_JPRB, 0.550801E+01_JPRB, 0.553476E+01_JPRB &
+  &, 0.556085E+01_JPRB, 0.558625E+01_JPRB, 0.561099E+01_JPRB &
+  &, 0.563503E+01_JPRB, 0.565838E+01_JPRB, 0.568109E+01_JPRB, 0.570308E+01_JPRB &
+  &, 0.572441E+01_JPRB, 0.574505E+01_JPRB, 0.576440E+01_JPRB &
+  &, 0.578430E+01_JPRB, 0.580294E+01_JPRB, 0.582083E+01_JPRB, 0.583812E+01_JPRB &
+  &, 0.585472E+01_JPRB, 0.587061E+01_JPRB, 0.588584E+01_JPRB &
+  &, 0.590042E+01_JPRB, 0.591427E+01_JPRB, 0.592750E+01_JPRB, 0.594006E+01_JPRB &
+  &, 0.595194E+01_JPRB, 0.596318E+01_JPRB, 0.597375E+01_JPRB &
+  &, 0.598366E+01_JPRB, 0.599288E+01_JPRB, 0.600142E+01_JPRB, 0.600945E+01_JPRB &
+  &, 0.601672E+01_JPRB, 0.602340E+01_JPRB, 0.602940E+01_JPRB &
+  &, 0.603479E+01_JPRB, 0.603953E+01_JPRB, 0.604363E+01_JPRB, 0.604710E+01_JPRB &
+  &, 0.604997E+01_JPRB, 0.605219E+01_JPRB, 0.605383E+01_JPRB &
+  &, 0.605484E+01_JPRB, 0.605525E+01_JPRB, 0.605501E+01_JPRB, 0.605419E+01_JPRB &
+  &, 0.605282E+01_JPRB, 0.605083E+01_JPRB, 0.604826E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART136',1,ZHOOK_HANDLE)
+END SUBROUTINE PART136
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART137
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART137',0,ZHOOK_HANDLE)
+
+XCW( 953, :) = (/ &
+  &  0.117323E+01_JPRB, 0.121827E+01_JPRB, 0.126398E+01_JPRB, 0.131031E+01_JPRB &
+  &, 0.135726E+01_JPRB, 0.140481E+01_JPRB, 0.145294E+01_JPRB &
+  &, 0.150162E+01_JPRB, 0.155083E+01_JPRB, 0.160056E+01_JPRB, 0.165077E+01_JPRB &
+  &, 0.170146E+01_JPRB, 0.175259E+01_JPRB, 0.180416E+01_JPRB &
+  &, 0.185612E+01_JPRB, 0.190847E+01_JPRB, 0.196118E+01_JPRB, 0.201423E+01_JPRB &
+  &, 0.206759E+01_JPRB, 0.212124E+01_JPRB, 0.217517E+01_JPRB &
+  &, 0.222934E+01_JPRB, 0.228374E+01_JPRB, 0.233835E+01_JPRB, 0.239313E+01_JPRB &
+  &, 0.244808E+01_JPRB, 0.250315E+01_JPRB, 0.255834E+01_JPRB &
+  &, 0.261363E+01_JPRB, 0.266898E+01_JPRB, 0.272438E+01_JPRB, 0.277981E+01_JPRB &
+  &, 0.283524E+01_JPRB, 0.289066E+01_JPRB, 0.294604E+01_JPRB &
+  &, 0.300136E+01_JPRB, 0.305660E+01_JPRB, 0.311175E+01_JPRB, 0.316678E+01_JPRB &
+  &, 0.322167E+01_JPRB, 0.327641E+01_JPRB, 0.333097E+01_JPRB &
+  &, 0.338533E+01_JPRB, 0.343948E+01_JPRB, 0.349341E+01_JPRB, 0.354710E+01_JPRB &
+  &, 0.360049E+01_JPRB, 0.365364E+01_JPRB, 0.370649E+01_JPRB &
+  &, 0.375901E+01_JPRB, 0.381122E+01_JPRB, 0.386307E+01_JPRB, 0.391459E+01_JPRB &
+  &, 0.396572E+01_JPRB, 0.401646E+01_JPRB, 0.406681E+01_JPRB &
+  &, 0.411675E+01_JPRB, 0.416625E+01_JPRB, 0.421533E+01_JPRB, 0.426395E+01_JPRB &
+  &, 0.431212E+01_JPRB, 0.435981E+01_JPRB, 0.440703E+01_JPRB &
+  &, 0.445374E+01_JPRB, 0.449995E+01_JPRB, 0.454565E+01_JPRB, 0.459082E+01_JPRB &
+  &, 0.463547E+01_JPRB, 0.467958E+01_JPRB, 0.472312E+01_JPRB &
+  &, 0.476613E+01_JPRB, 0.480855E+01_JPRB, 0.485042E+01_JPRB, 0.489169E+01_JPRB &
+  &, 0.493237E+01_JPRB, 0.497246E+01_JPRB, 0.501197E+01_JPRB &
+  &, 0.505084E+01_JPRB, 0.508913E+01_JPRB, 0.512679E+01_JPRB, 0.516380E+01_JPRB &
+  &, 0.520021E+01_JPRB, 0.523598E+01_JPRB, 0.527112E+01_JPRB &
+  &, 0.530561E+01_JPRB, 0.533943E+01_JPRB, 0.537264E+01_JPRB, 0.540519E+01_JPRB &
+  &, 0.543706E+01_JPRB, 0.546828E+01_JPRB, 0.549885E+01_JPRB &
+  &, 0.552874E+01_JPRB, 0.555796E+01_JPRB, 0.558548E+01_JPRB, 0.561439E+01_JPRB &
+  &, 0.564162E+01_JPRB, 0.566815E+01_JPRB, 0.569399E+01_JPRB &
+  &, 0.571920E+01_JPRB, 0.574370E+01_JPRB, 0.576752E+01_JPRB, 0.579068E+01_JPRB &
+  &, 0.581282E+01_JPRB, 0.583492E+01_JPRB, 0.585599E+01_JPRB &
+  &, 0.587643E+01_JPRB, 0.589615E+01_JPRB, 0.591518E+01_JPRB, 0.593359E+01_JPRB &
+  &, 0.595133E+01_JPRB, 0.596831E+01_JPRB, 0.598472E+01_JPRB &
+  &, 0.600039E+01_JPRB, 0.601538E+01_JPRB, 0.602970E+01_JPRB, 0.604335E+01_JPRB &
+  &, 0.605637E+01_JPRB, 0.606865E+01_JPRB, 0.608035E+01_JPRB &
+  &, 0.609125E+01_JPRB, 0.610171E+01_JPRB, 0.611128E+01_JPRB, 0.612039E+01_JPRB &
+  &, 0.612873E+01_JPRB, 0.613649E+01_JPRB, 0.614356E+01_JPRB &
+  &, 0.614996E+01_JPRB, 0.615577E+01_JPRB, 0.616093E+01_JPRB, 0.616547E+01_JPRB &
+  &, 0.616933E+01_JPRB, 0.617260E+01_JPRB, 0.617522E+01_JPRB &
+  &, 0.617722E+01_JPRB, 0.617867E+01_JPRB, 0.617946E+01_JPRB, 0.617967E+01_JPRB &
+  &, 0.617919E+01_JPRB, 0.617822E+01_JPRB, 0.617659E+01_JPRB/)
+XCW( 954, :) = (/ &
+  &  0.117437E+01_JPRB, 0.121974E+01_JPRB, 0.126578E+01_JPRB, 0.131246E+01_JPRB &
+  &, 0.135978E+01_JPRB, 0.140771E+01_JPRB, 0.145623E+01_JPRB &
+  &, 0.150532E+01_JPRB, 0.155495E+01_JPRB, 0.160512E+01_JPRB, 0.165578E+01_JPRB &
+  &, 0.170694E+01_JPRB, 0.175855E+01_JPRB, 0.181061E+01_JPRB &
+  &, 0.186308E+01_JPRB, 0.191595E+01_JPRB, 0.196920E+01_JPRB, 0.202279E+01_JPRB &
+  &, 0.207672E+01_JPRB, 0.213095E+01_JPRB, 0.218547E+01_JPRB &
+  &, 0.224025E+01_JPRB, 0.229527E+01_JPRB, 0.235050E+01_JPRB, 0.240593E+01_JPRB &
+  &, 0.246153E+01_JPRB, 0.251727E+01_JPRB, 0.257315E+01_JPRB &
+  &, 0.262913E+01_JPRB, 0.268516E+01_JPRB, 0.274131E+01_JPRB, 0.279747E+01_JPRB &
+  &, 0.285365E+01_JPRB, 0.290982E+01_JPRB, 0.296597E+01_JPRB &
+  &, 0.302208E+01_JPRB, 0.307811E+01_JPRB, 0.313406E+01_JPRB, 0.318990E+01_JPRB &
+  &, 0.324563E+01_JPRB, 0.330119E+01_JPRB, 0.335661E+01_JPRB &
+  &, 0.341183E+01_JPRB, 0.346686E+01_JPRB, 0.352166E+01_JPRB, 0.357624E+01_JPRB &
+  &, 0.363055E+01_JPRB, 0.368461E+01_JPRB, 0.373836E+01_JPRB &
+  &, 0.379182E+01_JPRB, 0.384496E+01_JPRB, 0.389778E+01_JPRB, 0.395024E+01_JPRB &
+  &, 0.400234E+01_JPRB, 0.405406E+01_JPRB, 0.410540E+01_JPRB &
+  &, 0.415630E+01_JPRB, 0.420683E+01_JPRB, 0.425691E+01_JPRB, 0.430656E+01_JPRB &
+  &, 0.435574E+01_JPRB, 0.440448E+01_JPRB, 0.445273E+01_JPRB &
+  &, 0.450048E+01_JPRB, 0.454775E+01_JPRB, 0.459453E+01_JPRB, 0.464076E+01_JPRB &
+  &, 0.468649E+01_JPRB, 0.473166E+01_JPRB, 0.477630E+01_JPRB &
+  &, 0.482039E+01_JPRB, 0.486391E+01_JPRB, 0.490687E+01_JPRB, 0.494926E+01_JPRB &
+  &, 0.499106E+01_JPRB, 0.503226E+01_JPRB, 0.507289E+01_JPRB &
+  &, 0.511289E+01_JPRB, 0.515229E+01_JPRB, 0.519100E+01_JPRB, 0.522924E+01_JPRB &
+  &, 0.526680E+01_JPRB, 0.530373E+01_JPRB, 0.534001E+01_JPRB &
+  &, 0.537565E+01_JPRB, 0.541063E+01_JPRB, 0.544499E+01_JPRB, 0.547869E+01_JPRB &
+  &, 0.551174E+01_JPRB, 0.554412E+01_JPRB, 0.557583E+01_JPRB &
+  &, 0.560689E+01_JPRB, 0.563728E+01_JPRB, 0.566701E+01_JPRB, 0.569603E+01_JPRB &
+  &, 0.572446E+01_JPRB, 0.575216E+01_JPRB, 0.577920E+01_JPRB &
+  &, 0.580556E+01_JPRB, 0.583125E+01_JPRB, 0.585622E+01_JPRB, 0.588053E+01_JPRB &
+  &, 0.590417E+01_JPRB, 0.592717E+01_JPRB, 0.594940E+01_JPRB &
+  &, 0.597100E+01_JPRB, 0.599189E+01_JPRB, 0.601213E+01_JPRB, 0.603168E+01_JPRB &
+  &, 0.605055E+01_JPRB, 0.606871E+01_JPRB, 0.608625E+01_JPRB &
+  &, 0.610310E+01_JPRB, 0.611922E+01_JPRB, 0.613472E+01_JPRB, 0.614951E+01_JPRB &
+  &, 0.616365E+01_JPRB, 0.617711E+01_JPRB, 0.618990E+01_JPRB &
+  &, 0.620203E+01_JPRB, 0.621352E+01_JPRB, 0.622432E+01_JPRB, 0.623445E+01_JPRB &
+  &, 0.624391E+01_JPRB, 0.625236E+01_JPRB, 0.626093E+01_JPRB &
+  &, 0.626845E+01_JPRB, 0.627536E+01_JPRB, 0.628164E+01_JPRB, 0.628711E+01_JPRB &
+  &, 0.629207E+01_JPRB, 0.629649E+01_JPRB, 0.630022E+01_JPRB &
+  &, 0.630331E+01_JPRB, 0.630572E+01_JPRB, 0.630759E+01_JPRB, 0.630881E+01_JPRB &
+  &, 0.630940E+01_JPRB, 0.630944E+01_JPRB, 0.630880E+01_JPRB/)
+XCW( 955, :) = (/ &
+  &  0.117554E+01_JPRB, 0.122123E+01_JPRB, 0.126761E+01_JPRB, 0.131466E+01_JPRB &
+  &, 0.136235E+01_JPRB, 0.141066E+01_JPRB, 0.145958E+01_JPRB &
+  &, 0.150909E+01_JPRB, 0.155916E+01_JPRB, 0.160976E+01_JPRB, 0.166089E+01_JPRB &
+  &, 0.171252E+01_JPRB, 0.176454E+01_JPRB, 0.181719E+01_JPRB &
+  &, 0.187018E+01_JPRB, 0.192358E+01_JPRB, 0.197738E+01_JPRB, 0.203153E+01_JPRB &
+  &, 0.208604E+01_JPRB, 0.214086E+01_JPRB, 0.219598E+01_JPRB &
+  &, 0.225137E+01_JPRB, 0.230702E+01_JPRB, 0.236290E+01_JPRB, 0.241899E+01_JPRB &
+  &, 0.247526E+01_JPRB, 0.253169E+01_JPRB, 0.258824E+01_JPRB &
+  &, 0.264495E+01_JPRB, 0.270174E+01_JPRB, 0.275860E+01_JPRB, 0.281551E+01_JPRB &
+  &, 0.287246E+01_JPRB, 0.292940E+01_JPRB, 0.298634E+01_JPRB &
+  &, 0.304324E+01_JPRB, 0.310009E+01_JPRB, 0.315686E+01_JPRB, 0.321354E+01_JPRB &
+  &, 0.327011E+01_JPRB, 0.332654E+01_JPRB, 0.338281E+01_JPRB &
+  &, 0.343893E+01_JPRB, 0.349484E+01_JPRB, 0.355055E+01_JPRB, 0.360604E+01_JPRB &
+  &, 0.366128E+01_JPRB, 0.371627E+01_JPRB, 0.377097E+01_JPRB &
+  &, 0.382538E+01_JPRB, 0.387949E+01_JPRB, 0.393327E+01_JPRB, 0.398671E+01_JPRB &
+  &, 0.403981E+01_JPRB, 0.409254E+01_JPRB, 0.414487E+01_JPRB &
+  &, 0.419682E+01_JPRB, 0.424836E+01_JPRB, 0.429949E+01_JPRB, 0.435017E+01_JPRB &
+  &, 0.440042E+01_JPRB, 0.445021E+01_JPRB, 0.449952E+01_JPRB &
+  &, 0.454835E+01_JPRB, 0.459670E+01_JPRB, 0.464455E+01_JPRB, 0.469190E+01_JPRB &
+  &, 0.473872E+01_JPRB, 0.478502E+01_JPRB, 0.483077E+01_JPRB &
+  &, 0.487598E+01_JPRB, 0.492063E+01_JPRB, 0.496473E+01_JPRB, 0.500825E+01_JPRB &
+  &, 0.505120E+01_JPRB, 0.509355E+01_JPRB, 0.513533E+01_JPRB &
+  &, 0.517649E+01_JPRB, 0.521706E+01_JPRB, 0.525703E+01_JPRB, 0.529634E+01_JPRB &
+  &, 0.533507E+01_JPRB, 0.537320E+01_JPRB, 0.541064E+01_JPRB &
+  &, 0.544744E+01_JPRB, 0.548361E+01_JPRB, 0.551920E+01_JPRB, 0.555408E+01_JPRB &
+  &, 0.558835E+01_JPRB, 0.562192E+01_JPRB, 0.565483E+01_JPRB &
+  &, 0.568710E+01_JPRB, 0.571871E+01_JPRB, 0.574952E+01_JPRB, 0.577991E+01_JPRB &
+  &, 0.580950E+01_JPRB, 0.583841E+01_JPRB, 0.586663E+01_JPRB &
+  &, 0.589421E+01_JPRB, 0.592112E+01_JPRB, 0.594732E+01_JPRB, 0.597282E+01_JPRB &
+  &, 0.599770E+01_JPRB, 0.602186E+01_JPRB, 0.604534E+01_JPRB &
+  &, 0.606815E+01_JPRB, 0.609025E+01_JPRB, 0.611170E+01_JPRB, 0.613242E+01_JPRB &
+  &, 0.615251E+01_JPRB, 0.617189E+01_JPRB, 0.619061E+01_JPRB &
+  &, 0.620863E+01_JPRB, 0.622598E+01_JPRB, 0.624265E+01_JPRB, 0.625863E+01_JPRB &
+  &, 0.627399E+01_JPRB, 0.628858E+01_JPRB, 0.630260E+01_JPRB &
+  &, 0.631591E+01_JPRB, 0.632851E+01_JPRB, 0.634049E+01_JPRB, 0.635179E+01_JPRB &
+  &, 0.636243E+01_JPRB, 0.637242E+01_JPRB, 0.638172E+01_JPRB &
+  &, 0.639040E+01_JPRB, 0.639843E+01_JPRB, 0.640586E+01_JPRB, 0.641254E+01_JPRB &
+  &, 0.641866E+01_JPRB, 0.642400E+01_JPRB, 0.642892E+01_JPRB &
+  &, 0.643309E+01_JPRB, 0.643664E+01_JPRB, 0.643958E+01_JPRB, 0.644187E+01_JPRB &
+  &, 0.644352E+01_JPRB, 0.644461E+01_JPRB, 0.644509E+01_JPRB/)
+XCW( 956, :) = (/ &
+  &  0.117672E+01_JPRB, 0.122275E+01_JPRB, 0.126948E+01_JPRB, 0.131689E+01_JPRB &
+  &, 0.136496E+01_JPRB, 0.141367E+01_JPRB, 0.146300E+01_JPRB &
+  &, 0.151293E+01_JPRB, 0.156344E+01_JPRB, 0.161451E+01_JPRB, 0.166611E+01_JPRB &
+  &, 0.171822E+01_JPRB, 0.177083E+01_JPRB, 0.182390E+01_JPRB &
+  &, 0.187743E+01_JPRB, 0.193137E+01_JPRB, 0.198573E+01_JPRB, 0.204046E+01_JPRB &
+  &, 0.209555E+01_JPRB, 0.215097E+01_JPRB, 0.220671E+01_JPRB &
+  &, 0.226274E+01_JPRB, 0.231903E+01_JPRB, 0.237557E+01_JPRB, 0.243233E+01_JPRB &
+  &, 0.248929E+01_JPRB, 0.254643E+01_JPRB, 0.260371E+01_JPRB &
+  &, 0.266113E+01_JPRB, 0.271866E+01_JPRB, 0.277628E+01_JPRB, 0.283395E+01_JPRB &
+  &, 0.289168E+01_JPRB, 0.294942E+01_JPRB, 0.300716E+01_JPRB &
+  &, 0.306488E+01_JPRB, 0.312012E+01_JPRB, 0.318018E+01_JPRB, 0.323771E+01_JPRB &
+  &, 0.329515E+01_JPRB, 0.335246E+01_JPRB, 0.340963E+01_JPRB &
+  &, 0.346664E+01_JPRB, 0.352347E+01_JPRB, 0.358011E+01_JPRB, 0.363653E+01_JPRB &
+  &, 0.369272E+01_JPRB, 0.374866E+01_JPRB, 0.380433E+01_JPRB &
+  &, 0.385973E+01_JPRB, 0.391483E+01_JPRB, 0.396961E+01_JPRB, 0.402406E+01_JPRB &
+  &, 0.407817E+01_JPRB, 0.413192E+01_JPRB, 0.418530E+01_JPRB &
+  &, 0.423829E+01_JPRB, 0.429089E+01_JPRB, 0.434308E+01_JPRB, 0.439484E+01_JPRB &
+  &, 0.444615E+01_JPRB, 0.449704E+01_JPRB, 0.454745E+01_JPRB &
+  &, 0.459740E+01_JPRB, 0.464686E+01_JPRB, 0.469583E+01_JPRB, 0.474430E+01_JPRB &
+  &, 0.479226E+01_JPRB, 0.483969E+01_JPRB, 0.488659E+01_JPRB &
+  &, 0.493294E+01_JPRB, 0.497876E+01_JPRB, 0.502402E+01_JPRB, 0.506872E+01_JPRB &
+  &, 0.511285E+01_JPRB, 0.515639E+01_JPRB, 0.519935E+01_JPRB &
+  &, 0.524169E+01_JPRB, 0.528347E+01_JPRB, 0.532463E+01_JPRB, 0.536519E+01_JPRB &
+  &, 0.540511E+01_JPRB, 0.544443E+01_JPRB, 0.548308E+01_JPRB &
+  &, 0.552115E+01_JPRB, 0.555855E+01_JPRB, 0.559535E+01_JPRB, 0.563146E+01_JPRB &
+  &, 0.566693E+01_JPRB, 0.570173E+01_JPRB, 0.573591E+01_JPRB &
+  &, 0.576943E+01_JPRB, 0.580229E+01_JPRB, 0.583443E+01_JPRB, 0.586596E+01_JPRB &
+  &, 0.589683E+01_JPRB, 0.592698E+01_JPRB, 0.595646E+01_JPRB &
+  &, 0.598526E+01_JPRB, 0.601343E+01_JPRB, 0.604086E+01_JPRB, 0.606767E+01_JPRB &
+  &, 0.609376E+01_JPRB, 0.611920E+01_JPRB, 0.614393E+01_JPRB &
+  &, 0.616795E+01_JPRB, 0.619130E+01_JPRB, 0.621401E+01_JPRB, 0.623599E+01_JPRB &
+  &, 0.625730E+01_JPRB, 0.627794E+01_JPRB, 0.629792E+01_JPRB &
+  &, 0.631718E+01_JPRB, 0.633574E+01_JPRB, 0.635364E+01_JPRB, 0.637089E+01_JPRB &
+  &, 0.638743E+01_JPRB, 0.640330E+01_JPRB, 0.641844E+01_JPRB &
+  &, 0.643267E+01_JPRB, 0.644690E+01_JPRB, 0.646005E+01_JPRB, 0.647241E+01_JPRB &
+  &, 0.648443E+01_JPRB, 0.649558E+01_JPRB, 0.650610E+01_JPRB &
+  &, 0.651594E+01_JPRB, 0.652518E+01_JPRB, 0.653376E+01_JPRB, 0.654165E+01_JPRB &
+  &, 0.654892E+01_JPRB, 0.655552E+01_JPRB, 0.656152E+01_JPRB &
+  &, 0.656682E+01_JPRB, 0.657150E+01_JPRB, 0.657557E+01_JPRB, 0.657904E+01_JPRB &
+  &, 0.658180E+01_JPRB, 0.658400E+01_JPRB, 0.658558E+01_JPRB/)
+XCW( 957, :) = (/ &
+  &  0.117793E+01_JPRB, 0.122430E+01_JPRB, 0.127139E+01_JPRB, 0.131917E+01_JPRB &
+  &, 0.136763E+01_JPRB, 0.141674E+01_JPRB, 0.146649E+01_JPRB &
+  &, 0.151686E+01_JPRB, 0.156782E+01_JPRB, 0.161935E+01_JPRB, 0.167143E+01_JPRB &
+  &, 0.172404E+01_JPRB, 0.177715E+01_JPRB, 0.183076E+01_JPRB &
+  &, 0.188482E+01_JPRB, 0.193933E+01_JPRB, 0.199425E+01_JPRB, 0.204957E+01_JPRB &
+  &, 0.210526E+01_JPRB, 0.216131E+01_JPRB, 0.221767E+01_JPRB &
+  &, 0.227435E+01_JPRB, 0.233130E+01_JPRB, 0.238852E+01_JPRB, 0.244597E+01_JPRB &
+  &, 0.250363E+01_JPRB, 0.256148E+01_JPRB, 0.261950E+01_JPRB &
+  &, 0.267767E+01_JPRB, 0.273596E+01_JPRB, 0.279434E+01_JPRB, 0.285281E+01_JPRB &
+  &, 0.291133E+01_JPRB, 0.296989E+01_JPRB, 0.302846E+01_JPRB &
+  &, 0.308702E+01_JPRB, 0.314555E+01_JPRB, 0.320403E+01_JPRB, 0.326245E+01_JPRB &
+  &, 0.332078E+01_JPRB, 0.337899E+01_JPRB, 0.343707E+01_JPRB &
+  &, 0.349501E+01_JPRB, 0.355277E+01_JPRB, 0.361036E+01_JPRB, 0.366774E+01_JPRB &
+  &, 0.372491E+01_JPRB, 0.378182E+01_JPRB, 0.383850E+01_JPRB &
+  &, 0.389489E+01_JPRB, 0.395101E+01_JPRB, 0.400681E+01_JPRB, 0.406231E+01_JPRB &
+  &, 0.411746E+01_JPRB, 0.417226E+01_JPRB, 0.422672E+01_JPRB &
+  &, 0.428079E+01_JPRB, 0.433446E+01_JPRB, 0.438775E+01_JPRB, 0.444061E+01_JPRB &
+  &, 0.449304E+01_JPRB, 0.454503E+01_JPRB, 0.459658E+01_JPRB &
+  &, 0.464765E+01_JPRB, 0.469826E+01_JPRB, 0.474838E+01_JPRB, 0.479800E+01_JPRB &
+  &, 0.484714E+01_JPRB, 0.489573E+01_JPRB, 0.494383E+01_JPRB &
+  &, 0.499138E+01_JPRB, 0.503839E+01_JPRB, 0.508484E+01_JPRB, 0.513074E+01_JPRB &
+  &, 0.517607E+01_JPRB, 0.522084E+01_JPRB, 0.526501E+01_JPRB &
+  &, 0.530860E+01_JPRB, 0.535162E+01_JPRB, 0.539400E+01_JPRB, 0.543580E+01_JPRB &
+  &, 0.547699E+01_JPRB, 0.551754E+01_JPRB, 0.555746E+01_JPRB &
+  &, 0.559678E+01_JPRB, 0.563547E+01_JPRB, 0.567351E+01_JPRB, 0.571086E+01_JPRB &
+  &, 0.574764E+01_JPRB, 0.578365E+01_JPRB, 0.581920E+01_JPRB &
+  &, 0.585397E+01_JPRB, 0.588810E+01_JPRB, 0.592158E+01_JPRB, 0.595437E+01_JPRB &
+  &, 0.598646E+01_JPRB, 0.601797E+01_JPRB, 0.604874E+01_JPRB &
+  &, 0.607885E+01_JPRB, 0.610829E+01_JPRB, 0.613707E+01_JPRB, 0.616512E+01_JPRB &
+  &, 0.619253E+01_JPRB, 0.621922E+01_JPRB, 0.624524E+01_JPRB &
+  &, 0.627060E+01_JPRB, 0.629526E+01_JPRB, 0.631910E+01_JPRB, 0.634251E+01_JPRB &
+  &, 0.636513E+01_JPRB, 0.638704E+01_JPRB, 0.640829E+01_JPRB &
+  &, 0.642886E+01_JPRB, 0.644870E+01_JPRB, 0.646792E+01_JPRB, 0.648639E+01_JPRB &
+  &, 0.650426E+01_JPRB, 0.652135E+01_JPRB, 0.653782E+01_JPRB &
+  &, 0.655362E+01_JPRB, 0.656873E+01_JPRB, 0.658320E+01_JPRB, 0.659699E+01_JPRB &
+  &, 0.660923E+01_JPRB, 0.662250E+01_JPRB, 0.663424E+01_JPRB &
+  &, 0.664524E+01_JPRB, 0.665579E+01_JPRB, 0.666558E+01_JPRB, 0.667473E+01_JPRB &
+  &, 0.668314E+01_JPRB, 0.669099E+01_JPRB, 0.669819E+01_JPRB &
+  &, 0.670468E+01_JPRB, 0.671061E+01_JPRB, 0.671585E+01_JPRB, 0.672044E+01_JPRB &
+  &, 0.672443E+01_JPRB, 0.672780E+01_JPRB, 0.673054E+01_JPRB/)
+XCW( 958, :) = (/ &
+  &  0.117916E+01_JPRB, 0.122588E+01_JPRB, 0.127333E+01_JPRB, 0.132149E+01_JPRB &
+  &, 0.137035E+01_JPRB, 0.141988E+01_JPRB, 0.147005E+01_JPRB &
+  &, 0.152086E+01_JPRB, 0.157228E+01_JPRB, 0.162429E+01_JPRB, 0.167686E+01_JPRB &
+  &, 0.172998E+01_JPRB, 0.178362E+01_JPRB, 0.183775E+01_JPRB &
+  &, 0.189238E+01_JPRB, 0.194745E+01_JPRB, 0.200296E+01_JPRB, 0.205888E+01_JPRB &
+  &, 0.211519E+01_JPRB, 0.217186E+01_JPRB, 0.222888E+01_JPRB &
+  &, 0.228622E+01_JPRB, 0.234385E+01_JPRB, 0.240176E+01_JPRB, 0.245991E+01_JPRB &
+  &, 0.251829E+01_JPRB, 0.257688E+01_JPRB, 0.263565E+01_JPRB &
+  &, 0.269458E+01_JPRB, 0.275365E+01_JPRB, 0.281283E+01_JPRB, 0.287210E+01_JPRB &
+  &, 0.293145E+01_JPRB, 0.299084E+01_JPRB, 0.305025E+01_JPRB &
+  &, 0.310967E+01_JPRB, 0.316908E+01_JPRB, 0.322846E+01_JPRB, 0.328777E+01_JPRB &
+  &, 0.334700E+01_JPRB, 0.340614E+01_JPRB, 0.346517E+01_JPRB &
+  &, 0.352405E+01_JPRB, 0.358279E+01_JPRB, 0.364135E+01_JPRB, 0.369971E+01_JPRB &
+  &, 0.375787E+01_JPRB, 0.381580E+01_JPRB, 0.387349E+01_JPRB &
+  &, 0.393092E+01_JPRB, 0.398808E+01_JPRB, 0.404493E+01_JPRB, 0.410149E+01_JPRB &
+  &, 0.415772E+01_JPRB, 0.421361E+01_JPRB, 0.426916E+01_JPRB &
+  &, 0.432433E+01_JPRB, 0.437913E+01_JPRB, 0.443353E+01_JPRB, 0.448753E+01_JPRB &
+  &, 0.454110E+01_JPRB, 0.459424E+01_JPRB, 0.464696E+01_JPRB &
+  &, 0.469921E+01_JPRB, 0.475097E+01_JPRB, 0.480228E+01_JPRB, 0.485311E+01_JPRB &
+  &, 0.490343E+01_JPRB, 0.495325E+01_JPRB, 0.500254E+01_JPRB &
+  &, 0.505131E+01_JPRB, 0.509956E+01_JPRB, 0.514725E+01_JPRB, 0.519440E+01_JPRB &
+  &, 0.524097E+01_JPRB, 0.528699E+01_JPRB, 0.533243E+01_JPRB &
+  &, 0.537729E+01_JPRB, 0.542155E+01_JPRB, 0.546524E+01_JPRB, 0.550831E+01_JPRB &
+  &, 0.555077E+01_JPRB, 0.559264E+01_JPRB, 0.563387E+01_JPRB &
+  &, 0.567448E+01_JPRB, 0.571446E+01_JPRB, 0.575382E+01_JPRB, 0.579251E+01_JPRB &
+  &, 0.583057E+01_JPRB, 0.586798E+01_JPRB, 0.590476E+01_JPRB &
+  &, 0.594086E+01_JPRB, 0.597623E+01_JPRB, 0.601111E+01_JPRB, 0.604526E+01_JPRB &
+  &, 0.607874E+01_JPRB, 0.611148E+01_JPRB, 0.614363E+01_JPRB &
+  &, 0.617508E+01_JPRB, 0.620584E+01_JPRB, 0.623538E+01_JPRB, 0.626536E+01_JPRB &
+  &, 0.629410E+01_JPRB, 0.632212E+01_JPRB, 0.634952E+01_JPRB &
+  &, 0.637618E+01_JPRB, 0.640219E+01_JPRB, 0.642747E+01_JPRB, 0.645215E+01_JPRB &
+  &, 0.647608E+01_JPRB, 0.649935E+01_JPRB, 0.652193E+01_JPRB &
+  &, 0.654382E+01_JPRB, 0.656503E+01_JPRB, 0.658553E+01_JPRB, 0.660537E+01_JPRB &
+  &, 0.662452E+01_JPRB, 0.664298E+01_JPRB, 0.666073E+01_JPRB &
+  &, 0.667786E+01_JPRB, 0.669430E+01_JPRB, 0.671004E+01_JPRB, 0.672512E+01_JPRB &
+  &, 0.673952E+01_JPRB, 0.675322E+01_JPRB, 0.676628E+01_JPRB &
+  &, 0.677866E+01_JPRB, 0.679043E+01_JPRB, 0.680148E+01_JPRB, 0.681189E+01_JPRB &
+  &, 0.682162E+01_JPRB, 0.683072E+01_JPRB, 0.683917E+01_JPRB &
+  &, 0.684691E+01_JPRB, 0.685408E+01_JPRB, 0.686057E+01_JPRB, 0.686645E+01_JPRB &
+  &, 0.687161E+01_JPRB, 0.687620E+01_JPRB, 0.688016E+01_JPRB/)
+XCW( 959, :) = (/ &
+  &  0.118042E+01_JPRB, 0.122749E+01_JPRB, 0.127532E+01_JPRB, 0.132387E+01_JPRB &
+  &, 0.137313E+01_JPRB, 0.142307E+01_JPRB, 0.147369E+01_JPRB &
+  &, 0.152495E+01_JPRB, 0.157684E+01_JPRB, 0.162933E+01_JPRB, 0.168241E+01_JPRB &
+  &, 0.173604E+01_JPRB, 0.179022E+01_JPRB, 0.184491E+01_JPRB &
+  &, 0.190010E+01_JPRB, 0.195576E+01_JPRB, 0.201187E+01_JPRB, 0.206840E+01_JPRB &
+  &, 0.212535E+01_JPRB, 0.218266E+01_JPRB, 0.224034E+01_JPRB &
+  &, 0.229836E+01_JPRB, 0.235668E+01_JPRB, 0.241530E+01_JPRB, 0.247418E+01_JPRB &
+  &, 0.253330E+01_JPRB, 0.259264E+01_JPRB, 0.265218E+01_JPRB &
+  &, 0.271189E+01_JPRB, 0.277176E+01_JPRB, 0.283175E+01_JPRB, 0.289185E+01_JPRB &
+  &, 0.295204E+01_JPRB, 0.301229E+01_JPRB, 0.307257E+01_JPRB &
+  &, 0.313287E+01_JPRB, 0.319318E+01_JPRB, 0.325346E+01_JPRB, 0.331370E+01_JPRB &
+  &, 0.337388E+01_JPRB, 0.343396E+01_JPRB, 0.349395E+01_JPRB &
+  &, 0.355381E+01_JPRB, 0.361353E+01_JPRB, 0.367309E+01_JPRB, 0.373248E+01_JPRB &
+  &, 0.379166E+01_JPRB, 0.385063E+01_JPRB, 0.390937E+01_JPRB &
+  &, 0.396786E+01_JPRB, 0.402608E+01_JPRB, 0.408402E+01_JPRB, 0.414167E+01_JPRB &
+  &, 0.419900E+01_JPRB, 0.425603E+01_JPRB, 0.431268E+01_JPRB &
+  &, 0.436900E+01_JPRB, 0.442494E+01_JPRB, 0.448050E+01_JPRB, 0.453566E+01_JPRB &
+  &, 0.459041E+01_JPRB, 0.464474E+01_JPRB, 0.469863E+01_JPRB &
+  &, 0.475208E+01_JPRB, 0.480508E+01_JPRB, 0.485760E+01_JPRB, 0.490966E+01_JPRB &
+  &, 0.496122E+01_JPRB, 0.501227E+01_JPRB, 0.506282E+01_JPRB &
+  &, 0.511284E+01_JPRB, 0.516235E+01_JPRB, 0.521133E+01_JPRB, 0.525974E+01_JPRB &
+  &, 0.530761E+01_JPRB, 0.535493E+01_JPRB, 0.540167E+01_JPRB &
+  &, 0.544782E+01_JPRB, 0.549342E+01_JPRB, 0.553841E+01_JPRB, 0.558282E+01_JPRB &
+  &, 0.562659E+01_JPRB, 0.566980E+01_JPRB, 0.571237E+01_JPRB &
+  &, 0.575429E+01_JPRB, 0.579564E+01_JPRB, 0.583632E+01_JPRB, 0.587641E+01_JPRB &
+  &, 0.591581E+01_JPRB, 0.595458E+01_JPRB, 0.599272E+01_JPRB &
+  &, 0.603022E+01_JPRB, 0.606706E+01_JPRB, 0.610321E+01_JPRB, 0.613869E+01_JPRB &
+  &, 0.617357E+01_JPRB, 0.620773E+01_JPRB, 0.624123E+01_JPRB &
+  &, 0.627407E+01_JPRB, 0.630622E+01_JPRB, 0.633770E+01_JPRB, 0.636849E+01_JPRB &
+  &, 0.639865E+01_JPRB, 0.642810E+01_JPRB, 0.645685E+01_JPRB &
+  &, 0.648490E+01_JPRB, 0.651230E+01_JPRB, 0.653903E+01_JPRB, 0.656503E+01_JPRB &
+  &, 0.659033E+01_JPRB, 0.661497E+01_JPRB, 0.663896E+01_JPRB &
+  &, 0.666223E+01_JPRB, 0.668473E+01_JPRB, 0.670669E+01_JPRB, 0.672792E+01_JPRB &
+  &, 0.674845E+01_JPRB, 0.676825E+01_JPRB, 0.678743E+01_JPRB &
+  &, 0.680594E+01_JPRB, 0.682371E+01_JPRB, 0.684064E+01_JPRB, 0.685730E+01_JPRB &
+  &, 0.687304E+01_JPRB, 0.688807E+01_JPRB, 0.690246E+01_JPRB &
+  &, 0.691622E+01_JPRB, 0.692931E+01_JPRB, 0.694169E+01_JPRB, 0.695342E+01_JPRB &
+  &, 0.696446E+01_JPRB, 0.697489E+01_JPRB, 0.698465E+01_JPRB &
+  &, 0.699364E+01_JPRB, 0.700217E+01_JPRB, 0.700996E+01_JPRB, 0.701713E+01_JPRB &
+  &, 0.702359E+01_JPRB, 0.702947E+01_JPRB, 0.703465E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART137',1,ZHOOK_HANDLE)
+END SUBROUTINE PART137
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART138
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART138',0,ZHOOK_HANDLE)
+
+XCW( 960, :) = (/ &
+  &  0.118170E+01_JPRB, 0.122914E+01_JPRB, 0.127734E+01_JPRB, 0.132629E+01_JPRB &
+  &, 0.137596E+01_JPRB, 0.142634E+01_JPRB, 0.147740E+01_JPRB &
+  &, 0.152913E+01_JPRB, 0.158150E+01_JPRB, 0.163449E+01_JPRB, 0.168808E+01_JPRB &
+  &, 0.174225E+01_JPRB, 0.179697E+01_JPRB, 0.185223E+01_JPRB &
+  &, 0.190800E+01_JPRB, 0.196425E+01_JPRB, 0.202098E+01_JPRB, 0.207814E+01_JPRB &
+  &, 0.213573E+01_JPRB, 0.219371E+01_JPRB, 0.225206E+01_JPRB &
+  &, 0.231078E+01_JPRB, 0.236982E+01_JPRB, 0.242916E+01_JPRB, 0.248878E+01_JPRB &
+  &, 0.254866E+01_JPRB, 0.260878E+01_JPRB, 0.266911E+01_JPRB &
+  &, 0.272962E+01_JPRB, 0.279031E+01_JPRB, 0.285113E+01_JPRB, 0.291208E+01_JPRB &
+  &, 0.297313E+01_JPRB, 0.303426E+01_JPRB, 0.309544E+01_JPRB &
+  &, 0.315665E+01_JPRB, 0.321788E+01_JPRB, 0.327909E+01_JPRB, 0.334027E+01_JPRB &
+  &, 0.340141E+01_JPRB, 0.346248E+01_JPRB, 0.352345E+01_JPRB &
+  &, 0.358432E+01_JPRB, 0.364505E+01_JPRB, 0.370564E+01_JPRB, 0.376607E+01_JPRB &
+  &, 0.382631E+01_JPRB, 0.388634E+01_JPRB, 0.394616E+01_JPRB &
+  &, 0.400574E+01_JPRB, 0.406507E+01_JPRB, 0.412412E+01_JPRB, 0.418290E+01_JPRB &
+  &, 0.424138E+01_JPRB, 0.429952E+01_JPRB, 0.435735E+01_JPRB &
+  &, 0.441484E+01_JPRB, 0.447196E+01_JPRB, 0.452870E+01_JPRB, 0.458505E+01_JPRB &
+  &, 0.464102E+01_JPRB, 0.469658E+01_JPRB, 0.475170E+01_JPRB &
+  &, 0.480638E+01_JPRB, 0.486063E+01_JPRB, 0.491441E+01_JPRB, 0.496771E+01_JPRB &
+  &, 0.502055E+01_JPRB, 0.507290E+01_JPRB, 0.512473E+01_JPRB &
+  &, 0.517607E+01_JPRB, 0.522688E+01_JPRB, 0.527716E+01_JPRB, 0.532690E+01_JPRB &
+  &, 0.537610E+01_JPRB, 0.542438E+01_JPRB, 0.547281E+01_JPRB &
+  &, 0.552032E+01_JPRB, 0.556727E+01_JPRB, 0.561362E+01_JPRB, 0.565938E+01_JPRB &
+  &, 0.570454E+01_JPRB, 0.574910E+01_JPRB, 0.579307E+01_JPRB &
+  &, 0.583641E+01_JPRB, 0.587912E+01_JPRB, 0.592111E+01_JPRB, 0.596257E+01_JPRB &
+  &, 0.600348E+01_JPRB, 0.604368E+01_JPRB, 0.608300E+01_JPRB &
+  &, 0.612214E+01_JPRB, 0.616038E+01_JPRB, 0.619783E+01_JPRB, 0.623489E+01_JPRB &
+  &, 0.627092E+01_JPRB, 0.630677E+01_JPRB, 0.634171E+01_JPRB &
+  &, 0.637596E+01_JPRB, 0.640956E+01_JPRB, 0.644249E+01_JPRB, 0.647471E+01_JPRB &
+  &, 0.650625E+01_JPRB, 0.653718E+01_JPRB, 0.656733E+01_JPRB &
+  &, 0.659687E+01_JPRB, 0.662569E+01_JPRB, 0.665382E+01_JPRB, 0.668100E+01_JPRB &
+  &, 0.670805E+01_JPRB, 0.673416E+01_JPRB, 0.675954E+01_JPRB &
+  &, 0.678428E+01_JPRB, 0.680830E+01_JPRB, 0.683161E+01_JPRB, 0.685408E+01_JPRB &
+  &, 0.687619E+01_JPRB, 0.689709E+01_JPRB, 0.691805E+01_JPRB &
+  &, 0.693796E+01_JPRB, 0.695718E+01_JPRB, 0.697570E+01_JPRB, 0.699355E+01_JPRB &
+  &, 0.701073E+01_JPRB, 0.702721E+01_JPRB, 0.704299E+01_JPRB &
+  &, 0.705814E+01_JPRB, 0.707262E+01_JPRB, 0.708643E+01_JPRB, 0.709955E+01_JPRB &
+  &, 0.711198E+01_JPRB, 0.712378E+01_JPRB, 0.713491E+01_JPRB &
+  &, 0.714534E+01_JPRB, 0.715512E+01_JPRB, 0.716433E+01_JPRB, 0.717281E+01_JPRB &
+  &, 0.718056E+01_JPRB, 0.718780E+01_JPRB, 0.719433E+01_JPRB/)
+XCW( 961, :) = (/ &
+  &  0.118301E+01_JPRB, 0.123082E+01_JPRB, 0.127941E+01_JPRB, 0.132876E+01_JPRB &
+  &, 0.137886E+01_JPRB, 0.142968E+01_JPRB, 0.148120E+01_JPRB &
+  &, 0.153340E+01_JPRB, 0.158626E+01_JPRB, 0.163976E+01_JPRB, 0.169388E+01_JPRB &
+  &, 0.174859E+01_JPRB, 0.180388E+01_JPRB, 0.185971E+01_JPRB &
+  &, 0.191608E+01_JPRB, 0.197295E+01_JPRB, 0.203030E+01_JPRB, 0.208811E+01_JPRB &
+  &, 0.214636E+01_JPRB, 0.220503E+01_JPRB, 0.226408E+01_JPRB &
+  &, 0.232350E+01_JPRB, 0.238327E+01_JPRB, 0.244335E+01_JPRB, 0.250374E+01_JPRB &
+  &, 0.256440E+01_JPRB, 0.262531E+01_JPRB, 0.268645E+01_JPRB &
+  &, 0.274779E+01_JPRB, 0.280931E+01_JPRB, 0.287100E+01_JPRB, 0.293282E+01_JPRB &
+  &, 0.299475E+01_JPRB, 0.305678E+01_JPRB, 0.311887E+01_JPRB &
+  &, 0.318102E+01_JPRB, 0.324319E+01_JPRB, 0.330537E+01_JPRB, 0.336753E+01_JPRB &
+  &, 0.342964E+01_JPRB, 0.349172E+01_JPRB, 0.355371E+01_JPRB &
+  &, 0.361561E+01_JPRB, 0.367739E+01_JPRB, 0.373904E+01_JPRB, 0.380054E+01_JPRB &
+  &, 0.386186E+01_JPRB, 0.392299E+01_JPRB, 0.398392E+01_JPRB &
+  &, 0.404462E+01_JPRB, 0.410508E+01_JPRB, 0.416529E+01_JPRB, 0.422522E+01_JPRB &
+  &, 0.428486E+01_JPRB, 0.434420E+01_JPRB, 0.440321E+01_JPRB &
+  &, 0.446190E+01_JPRB, 0.452023E+01_JPRB, 0.457820E+01_JPRB, 0.463581E+01_JPRB &
+  &, 0.469301E+01_JPRB, 0.474982E+01_JPRB, 0.480621E+01_JPRB &
+  &, 0.486216E+01_JPRB, 0.491769E+01_JPRB, 0.497278E+01_JPRB, 0.502740E+01_JPRB &
+  &, 0.508153E+01_JPRB, 0.513519E+01_JPRB, 0.518837E+01_JPRB &
+  &, 0.524104E+01_JPRB, 0.529320E+01_JPRB, 0.534482E+01_JPRB, 0.539594E+01_JPRB &
+  &, 0.544650E+01_JPRB, 0.549651E+01_JPRB, 0.554598E+01_JPRB &
+  &, 0.559489E+01_JPRB, 0.564323E+01_JPRB, 0.569099E+01_JPRB, 0.573816E+01_JPRB &
+  &, 0.578473E+01_JPRB, 0.583071E+01_JPRB, 0.587611E+01_JPRB &
+  &, 0.592087E+01_JPRB, 0.596501E+01_JPRB, 0.600856E+01_JPRB, 0.605148E+01_JPRB &
+  &, 0.609376E+01_JPRB, 0.613540E+01_JPRB, 0.617640E+01_JPRB &
+  &, 0.621676E+01_JPRB, 0.625647E+01_JPRB, 0.629554E+01_JPRB, 0.633392E+01_JPRB &
+  &, 0.637163E+01_JPRB, 0.640876E+01_JPRB, 0.644518E+01_JPRB &
+  &, 0.648092E+01_JPRB, 0.651595E+01_JPRB, 0.655042E+01_JPRB, 0.658416E+01_JPRB &
+  &, 0.661719E+01_JPRB, 0.664957E+01_JPRB, 0.668126E+01_JPRB &
+  &, 0.671222E+01_JPRB, 0.674258E+01_JPRB, 0.677223E+01_JPRB, 0.680121E+01_JPRB &
+  &, 0.682946E+01_JPRB, 0.685705E+01_JPRB, 0.688395E+01_JPRB &
+  &, 0.691014E+01_JPRB, 0.693565E+01_JPRB, 0.695976E+01_JPRB, 0.698457E+01_JPRB &
+  &, 0.700804E+01_JPRB, 0.703078E+01_JPRB, 0.705285E+01_JPRB &
+  &, 0.707427E+01_JPRB, 0.709494E+01_JPRB, 0.711492E+01_JPRB, 0.713428E+01_JPRB &
+  &, 0.715291E+01_JPRB, 0.717084E+01_JPRB, 0.718813E+01_JPRB &
+  &, 0.720474E+01_JPRB, 0.722067E+01_JPRB, 0.723594E+01_JPRB, 0.725045E+01_JPRB &
+  &, 0.726438E+01_JPRB, 0.727763E+01_JPRB, 0.729015E+01_JPRB &
+  &, 0.730201E+01_JPRB, 0.731323E+01_JPRB, 0.732382E+01_JPRB, 0.733367E+01_JPRB &
+  &, 0.734292E+01_JPRB, 0.735151E+01_JPRB, 0.735939E+01_JPRB/)
+XCW( 962, :) = (/ &
+  &  0.118435E+01_JPRB, 0.123254E+01_JPRB, 0.128153E+01_JPRB, 0.133130E+01_JPRB &
+  &, 0.138182E+01_JPRB, 0.143309E+01_JPRB, 0.148508E+01_JPRB &
+  &, 0.153777E+01_JPRB, 0.159114E+01_JPRB, 0.164516E+01_JPRB, 0.169982E+01_JPRB &
+  &, 0.175509E+01_JPRB, 0.181095E+01_JPRB, 0.186738E+01_JPRB &
+  &, 0.192435E+01_JPRB, 0.198185E+01_JPRB, 0.203985E+01_JPRB, 0.209832E+01_JPRB &
+  &, 0.215725E+01_JPRB, 0.221662E+01_JPRB, 0.227638E+01_JPRB &
+  &, 0.233654E+01_JPRB, 0.239705E+01_JPRB, 0.245790E+01_JPRB, 0.251907E+01_JPRB &
+  &, 0.258053E+01_JPRB, 0.264225E+01_JPRB, 0.270422E+01_JPRB &
+  &, 0.276641E+01_JPRB, 0.282880E+01_JPRB, 0.289136E+01_JPRB, 0.295408E+01_JPRB &
+  &, 0.301692E+01_JPRB, 0.307988E+01_JPRB, 0.314292E+01_JPRB &
+  &, 0.320602E+01_JPRB, 0.326916E+01_JPRB, 0.333233E+01_JPRB, 0.339549E+01_JPRB &
+  &, 0.345863E+01_JPRB, 0.352173E+01_JPRB, 0.358478E+01_JPRB &
+  &, 0.364774E+01_JPRB, 0.371059E+01_JPRB, 0.377333E+01_JPRB, 0.383588E+01_JPRB &
+  &, 0.389837E+01_JPRB, 0.396062E+01_JPRB, 0.402270E+01_JPRB &
+  &, 0.408455E+01_JPRB, 0.414618E+01_JPRB, 0.420757E+01_JPRB, 0.426869E+01_JPRB &
+  &, 0.432953E+01_JPRB, 0.439009E+01_JPRB, 0.445033E+01_JPRB &
+  &, 0.451025E+01_JPRB, 0.456985E+01_JPRB, 0.462908E+01_JPRB, 0.468795E+01_JPRB &
+  &, 0.474643E+01_JPRB, 0.480454E+01_JPRB, 0.486223E+01_JPRB &
+  &, 0.491952E+01_JPRB, 0.497638E+01_JPRB, 0.503278E+01_JPRB, 0.508875E+01_JPRB &
+  &, 0.514425E+01_JPRB, 0.519926E+01_JPRB, 0.525381E+01_JPRB &
+  &, 0.530787E+01_JPRB, 0.536141E+01_JPRB, 0.541444E+01_JPRB, 0.546696E+01_JPRB &
+  &, 0.551893E+01_JPRB, 0.557038E+01_JPRB, 0.562127E+01_JPRB &
+  &, 0.567163E+01_JPRB, 0.572140E+01_JPRB, 0.577060E+01_JPRB, 0.581922E+01_JPRB &
+  &, 0.586727E+01_JPRB, 0.591473E+01_JPRB, 0.596158E+01_JPRB &
+  &, 0.600784E+01_JPRB, 0.605349E+01_JPRB, 0.609852E+01_JPRB, 0.614291E+01_JPRB &
+  &, 0.618671E+01_JPRB, 0.622984E+01_JPRB, 0.627238E+01_JPRB &
+  &, 0.631426E+01_JPRB, 0.635543E+01_JPRB, 0.639607E+01_JPRB, 0.643600E+01_JPRB &
+  &, 0.647526E+01_JPRB, 0.651382E+01_JPRB, 0.655185E+01_JPRB &
+  &, 0.658885E+01_JPRB, 0.662576E+01_JPRB, 0.666169E+01_JPRB, 0.669696E+01_JPRB &
+  &, 0.673157E+01_JPRB, 0.676550E+01_JPRB, 0.679874E+01_JPRB &
+  &, 0.683130E+01_JPRB, 0.686315E+01_JPRB, 0.689437E+01_JPRB, 0.692485E+01_JPRB &
+  &, 0.695471E+01_JPRB, 0.698380E+01_JPRB, 0.701221E+01_JPRB &
+  &, 0.704004E+01_JPRB, 0.706711E+01_JPRB, 0.709347E+01_JPRB, 0.711914E+01_JPRB &
+  &, 0.714413E+01_JPRB, 0.716843E+01_JPRB, 0.719051E+01_JPRB &
+  &, 0.721481E+01_JPRB, 0.723721E+01_JPRB, 0.725876E+01_JPRB, 0.727964E+01_JPRB &
+  &, 0.729980E+01_JPRB, 0.731925E+01_JPRB, 0.733807E+01_JPRB &
+  &, 0.735619E+01_JPRB, 0.737365E+01_JPRB, 0.738953E+01_JPRB, 0.740647E+01_JPRB &
+  &, 0.742192E+01_JPRB, 0.743662E+01_JPRB, 0.745066E+01_JPRB &
+  &, 0.746403E+01_JPRB, 0.747676E+01_JPRB, 0.748880E+01_JPRB, 0.750022E+01_JPRB &
+  &, 0.751064E+01_JPRB, 0.752086E+01_JPRB, 0.753038E+01_JPRB/)
+XCW( 963, :) = (/ &
+  &  0.118572E+01_JPRB, 0.123430E+01_JPRB, 0.128369E+01_JPRB, 0.133388E+01_JPRB &
+  &, 0.138486E+01_JPRB, 0.143659E+01_JPRB, 0.148906E+01_JPRB &
+  &, 0.154224E+01_JPRB, 0.159613E+01_JPRB, 0.165069E+01_JPRB, 0.170590E+01_JPRB &
+  &, 0.176174E+01_JPRB, 0.181819E+01_JPRB, 0.187523E+01_JPRB &
+  &, 0.193283E+01_JPRB, 0.199097E+01_JPRB, 0.204963E+01_JPRB, 0.210879E+01_JPRB &
+  &, 0.216842E+01_JPRB, 0.222849E+01_JPRB, 0.228900E+01_JPRB &
+  &, 0.234990E+01_JPRB, 0.241118E+01_JPRB, 0.247282E+01_JPRB, 0.253479E+01_JPRB &
+  &, 0.259707E+01_JPRB, 0.265963E+01_JPRB, 0.272246E+01_JPRB &
+  &, 0.278552E+01_JPRB, 0.284880E+01_JPRB, 0.291227E+01_JPRB, 0.297590E+01_JPRB &
+  &, 0.303968E+01_JPRB, 0.310359E+01_JPRB, 0.316760E+01_JPRB &
+  &, 0.323169E+01_JPRB, 0.329583E+01_JPRB, 0.336001E+01_JPRB, 0.342421E+01_JPRB &
+  &, 0.348840E+01_JPRB, 0.355257E+01_JPRB, 0.361669E+01_JPRB &
+  &, 0.368073E+01_JPRB, 0.374470E+01_JPRB, 0.380855E+01_JPRB, 0.387228E+01_JPRB &
+  &, 0.393587E+01_JPRB, 0.399929E+01_JPRB, 0.406254E+01_JPRB &
+  &, 0.412558E+01_JPRB, 0.418842E+01_JPRB, 0.425101E+01_JPRB, 0.431336E+01_JPRB &
+  &, 0.437545E+01_JPRB, 0.443727E+01_JPRB, 0.449877E+01_JPRB &
+  &, 0.455998E+01_JPRB, 0.462086E+01_JPRB, 0.468139E+01_JPRB, 0.474158E+01_JPRB &
+  &, 0.480140E+01_JPRB, 0.486084E+01_JPRB, 0.491988E+01_JPRB &
+  &, 0.497852E+01_JPRB, 0.503674E+01_JPRB, 0.509452E+01_JPRB, 0.515188E+01_JPRB &
+  &, 0.520877E+01_JPRB, 0.526521E+01_JPRB, 0.532117E+01_JPRB &
+  &, 0.537666E+01_JPRB, 0.543163E+01_JPRB, 0.548610E+01_JPRB, 0.554008E+01_JPRB &
+  &, 0.559352E+01_JPRB, 0.564644E+01_JPRB, 0.569881E+01_JPRB &
+  &, 0.575063E+01_JPRB, 0.580190E+01_JPRB, 0.585262E+01_JPRB, 0.590275E+01_JPRB &
+  &, 0.595230E+01_JPRB, 0.600128E+01_JPRB, 0.604966E+01_JPRB &
+  &, 0.609745E+01_JPRB, 0.614463E+01_JPRB, 0.619120E+01_JPRB, 0.623717E+01_JPRB &
+  &, 0.628250E+01_JPRB, 0.632722E+01_JPRB, 0.637132E+01_JPRB &
+  &, 0.641470E+01_JPRB, 0.645755E+01_JPRB, 0.649971E+01_JPRB, 0.654121E+01_JPRB &
+  &, 0.658209E+01_JPRB, 0.662227E+01_JPRB, 0.666182E+01_JPRB &
+  &, 0.670072E+01_JPRB, 0.673892E+01_JPRB, 0.677533E+01_JPRB, 0.681322E+01_JPRB &
+  &, 0.684959E+01_JPRB, 0.688508E+01_JPRB, 0.691994E+01_JPRB &
+  &, 0.695412E+01_JPRB, 0.698760E+01_JPRB, 0.702041E+01_JPRB, 0.705253E+01_JPRB &
+  &, 0.708395E+01_JPRB, 0.711474E+01_JPRB, 0.714480E+01_JPRB &
+  &, 0.717415E+01_JPRB, 0.720284E+01_JPRB, 0.723083E+01_JPRB, 0.725813E+01_JPRB &
+  &, 0.728475E+01_JPRB, 0.731064E+01_JPRB, 0.733587E+01_JPRB &
+  &, 0.736039E+01_JPRB, 0.738407E+01_JPRB, 0.740742E+01_JPRB, 0.742990E+01_JPRB &
+  &, 0.745165E+01_JPRB, 0.747275E+01_JPRB, 0.749311E+01_JPRB &
+  &, 0.751239E+01_JPRB, 0.753188E+01_JPRB, 0.755021E+01_JPRB, 0.756783E+01_JPRB &
+  &, 0.758487E+01_JPRB, 0.760117E+01_JPRB, 0.761673E+01_JPRB &
+  &, 0.763170E+01_JPRB, 0.764596E+01_JPRB, 0.765958E+01_JPRB, 0.767245E+01_JPRB &
+  &, 0.768477E+01_JPRB, 0.769638E+01_JPRB, 0.770727E+01_JPRB/)
+XCW( 964, :) = (/ &
+  &  0.118712E+01_JPRB, 0.123610E+01_JPRB, 0.128591E+01_JPRB, 0.133653E+01_JPRB &
+  &, 0.138796E+01_JPRB, 0.144017E+01_JPRB, 0.149313E+01_JPRB &
+  &, 0.154683E+01_JPRB, 0.160124E+01_JPRB, 0.165635E+01_JPRB, 0.171213E+01_JPRB &
+  &, 0.176855E+01_JPRB, 0.182561E+01_JPRB, 0.188327E+01_JPRB &
+  &, 0.194152E+01_JPRB, 0.200032E+01_JPRB, 0.205966E+01_JPRB, 0.211952E+01_JPRB &
+  &, 0.217987E+01_JPRB, 0.224068E+01_JPRB, 0.230193E+01_JPRB &
+  &, 0.236361E+01_JPRB, 0.242569E+01_JPRB, 0.248813E+01_JPRB, 0.255093E+01_JPRB &
+  &, 0.261405E+01_JPRB, 0.267747E+01_JPRB, 0.274118E+01_JPRB &
+  &, 0.280514E+01_JPRB, 0.286933E+01_JPRB, 0.293373E+01_JPRB, 0.299831E+01_JPRB &
+  &, 0.306306E+01_JPRB, 0.312795E+01_JPRB, 0.319295E+01_JPRB &
+  &, 0.325806E+01_JPRB, 0.332323E+01_JPRB, 0.338846E+01_JPRB, 0.345372E+01_JPRB &
+  &, 0.351899E+01_JPRB, 0.358425E+01_JPRB, 0.364947E+01_JPRB &
+  &, 0.371464E+01_JPRB, 0.377975E+01_JPRB, 0.384476E+01_JPRB, 0.390965E+01_JPRB &
+  &, 0.397443E+01_JPRB, 0.403906E+01_JPRB, 0.410351E+01_JPRB &
+  &, 0.416778E+01_JPRB, 0.423186E+01_JPRB, 0.429571E+01_JPRB, 0.435933E+01_JPRB &
+  &, 0.442271E+01_JPRB, 0.448581E+01_JPRB, 0.454862E+01_JPRB &
+  &, 0.461114E+01_JPRB, 0.467335E+01_JPRB, 0.473524E+01_JPRB, 0.479678E+01_JPRB &
+  &, 0.485796E+01_JPRB, 0.491878E+01_JPRB, 0.497922E+01_JPRB &
+  &, 0.503926E+01_JPRB, 0.509890E+01_JPRB, 0.515811E+01_JPRB, 0.521689E+01_JPRB &
+  &, 0.527523E+01_JPRB, 0.533312E+01_JPRB, 0.539055E+01_JPRB &
+  &, 0.544749E+01_JPRB, 0.550398E+01_JPRB, 0.555994E+01_JPRB, 0.561541E+01_JPRB &
+  &, 0.567037E+01_JPRB, 0.572479E+01_JPRB, 0.577870E+01_JPRB &
+  &, 0.583205E+01_JPRB, 0.588488E+01_JPRB, 0.593715E+01_JPRB, 0.598883E+01_JPRB &
+  &, 0.603996E+01_JPRB, 0.609050E+01_JPRB, 0.614046E+01_JPRB &
+  &, 0.618985E+01_JPRB, 0.623863E+01_JPRB, 0.628680E+01_JPRB, 0.633435E+01_JPRB &
+  &, 0.638130E+01_JPRB, 0.642765E+01_JPRB, 0.647336E+01_JPRB &
+  &, 0.651843E+01_JPRB, 0.656237E+01_JPRB, 0.660664E+01_JPRB, 0.664980E+01_JPRB &
+  &, 0.669234E+01_JPRB, 0.673417E+01_JPRB, 0.677538E+01_JPRB &
+  &, 0.681581E+01_JPRB, 0.685579E+01_JPRB, 0.689503E+01_JPRB, 0.693355E+01_JPRB &
+  &, 0.697143E+01_JPRB, 0.700863E+01_JPRB, 0.704517E+01_JPRB &
+  &, 0.708100E+01_JPRB, 0.711617E+01_JPRB, 0.715068E+01_JPRB, 0.718446E+01_JPRB &
+  &, 0.721756E+01_JPRB, 0.724998E+01_JPRB, 0.728172E+01_JPRB &
+  &, 0.731280E+01_JPRB, 0.734318E+01_JPRB, 0.737287E+01_JPRB, 0.740182E+01_JPRB &
+  &, 0.743013E+01_JPRB, 0.745773E+01_JPRB, 0.748462E+01_JPRB &
+  &, 0.751081E+01_JPRB, 0.753636E+01_JPRB, 0.756117E+01_JPRB, 0.758531E+01_JPRB &
+  &, 0.760873E+01_JPRB, 0.763151E+01_JPRB, 0.765353E+01_JPRB &
+  &, 0.767492E+01_JPRB, 0.769553E+01_JPRB, 0.771565E+01_JPRB, 0.773494E+01_JPRB &
+  &, 0.775354E+01_JPRB, 0.777150E+01_JPRB, 0.778874E+01_JPRB &
+  &, 0.780531E+01_JPRB, 0.782124E+01_JPRB, 0.783646E+01_JPRB, 0.785100E+01_JPRB &
+  &, 0.786486E+01_JPRB, 0.787812E+01_JPRB, 0.789060E+01_JPRB/)
+XCW( 965, :) = (/ &
+  &  0.118856E+01_JPRB, 0.123794E+01_JPRB, 0.128817E+01_JPRB, 0.133925E+01_JPRB &
+  &, 0.139114E+01_JPRB, 0.144383E+01_JPRB, 0.149730E+01_JPRB &
+  &, 0.155152E+01_JPRB, 0.160648E+01_JPRB, 0.166215E+01_JPRB, 0.171851E+01_JPRB &
+  &, 0.177554E+01_JPRB, 0.183322E+01_JPRB, 0.189153E+01_JPRB &
+  &, 0.195043E+01_JPRB, 0.200992E+01_JPRB, 0.206996E+01_JPRB, 0.213053E+01_JPRB &
+  &, 0.219162E+01_JPRB, 0.225319E+01_JPRB, 0.231522E+01_JPRB &
+  &, 0.237769E+01_JPRB, 0.244058E+01_JPRB, 0.250385E+01_JPRB, 0.256750E+01_JPRB &
+  &, 0.263149E+01_JPRB, 0.269580E+01_JPRB, 0.276041E+01_JPRB &
+  &, 0.282529E+01_JPRB, 0.289042E+01_JPRB, 0.295578E+01_JPRB, 0.302134E+01_JPRB &
+  &, 0.308708E+01_JPRB, 0.315298E+01_JPRB, 0.321902E+01_JPRB &
+  &, 0.328516E+01_JPRB, 0.335140E+01_JPRB, 0.341771E+01_JPRB, 0.348407E+01_JPRB &
+  &, 0.355044E+01_JPRB, 0.361683E+01_JPRB, 0.368320E+01_JPRB &
+  &, 0.374954E+01_JPRB, 0.381581E+01_JPRB, 0.388201E+01_JPRB, 0.394812E+01_JPRB &
+  &, 0.401412E+01_JPRB, 0.407997E+01_JPRB, 0.414568E+01_JPRB &
+  &, 0.421122E+01_JPRB, 0.427657E+01_JPRB, 0.434172E+01_JPRB, 0.440666E+01_JPRB &
+  &, 0.447134E+01_JPRB, 0.453578E+01_JPRB, 0.459995E+01_JPRB &
+  &, 0.466383E+01_JPRB, 0.472741E+01_JPRB, 0.479070E+01_JPRB, 0.485363E+01_JPRB &
+  &, 0.491622E+01_JPRB, 0.497847E+01_JPRB, 0.504034E+01_JPRB &
+  &, 0.510184E+01_JPRB, 0.516293E+01_JPRB, 0.522362E+01_JPRB, 0.528388E+01_JPRB &
+  &, 0.534371E+01_JPRB, 0.540312E+01_JPRB, 0.546206E+01_JPRB &
+  &, 0.552054E+01_JPRB, 0.557854E+01_JPRB, 0.563589E+01_JPRB, 0.569309E+01_JPRB &
+  &, 0.574960E+01_JPRB, 0.580560E+01_JPRB, 0.586110E+01_JPRB &
+  &, 0.591604E+01_JPRB, 0.597047E+01_JPRB, 0.602433E+01_JPRB, 0.607763E+01_JPRB &
+  &, 0.613038E+01_JPRB, 0.618257E+01_JPRB, 0.623419E+01_JPRB &
+  &, 0.628520E+01_JPRB, 0.633562E+01_JPRB, 0.638547E+01_JPRB, 0.643468E+01_JPRB &
+  &, 0.648331E+01_JPRB, 0.653132E+01_JPRB, 0.657870E+01_JPRB &
+  &, 0.662549E+01_JPRB, 0.667161E+01_JPRB, 0.671710E+01_JPRB, 0.676196E+01_JPRB &
+  &, 0.680617E+01_JPRB, 0.684974E+01_JPRB, 0.689268E+01_JPRB &
+  &, 0.693493E+01_JPRB, 0.697652E+01_JPRB, 0.701751E+01_JPRB, 0.705764E+01_JPRB &
+  &, 0.709736E+01_JPRB, 0.713634E+01_JPRB, 0.717451E+01_JPRB &
+  &, 0.721217E+01_JPRB, 0.724907E+01_JPRB, 0.728531E+01_JPRB, 0.732087E+01_JPRB &
+  &, 0.735575E+01_JPRB, 0.738992E+01_JPRB, 0.742337E+01_JPRB &
+  &, 0.745621E+01_JPRB, 0.748831E+01_JPRB, 0.751976E+01_JPRB, 0.755048E+01_JPRB &
+  &, 0.758053E+01_JPRB, 0.760986E+01_JPRB, 0.763854E+01_JPRB &
+  &, 0.766651E+01_JPRB, 0.769375E+01_JPRB, 0.772036E+01_JPRB, 0.774625E+01_JPRB &
+  &, 0.777121E+01_JPRB, 0.779594E+01_JPRB, 0.781972E+01_JPRB &
+  &, 0.784281E+01_JPRB, 0.786523E+01_JPRB, 0.788698E+01_JPRB, 0.790803E+01_JPRB &
+  &, 0.792838E+01_JPRB, 0.794805E+01_JPRB, 0.796692E+01_JPRB &
+  &, 0.798530E+01_JPRB, 0.800292E+01_JPRB, 0.801964E+01_JPRB, 0.803612E+01_JPRB &
+  &, 0.805160E+01_JPRB, 0.806654E+01_JPRB, 0.808084E+01_JPRB/)
+XCW( 966, :) = (/ &
+  &  0.119003E+01_JPRB, 0.123982E+01_JPRB, 0.129050E+01_JPRB, 0.134203E+01_JPRB &
+  &, 0.139440E+01_JPRB, 0.144759E+01_JPRB, 0.150158E+01_JPRB &
+  &, 0.155634E+01_JPRB, 0.161186E+01_JPRB, 0.166811E+01_JPRB, 0.172507E+01_JPRB &
+  &, 0.178272E+01_JPRB, 0.184104E+01_JPRB, 0.190000E+01_JPRB &
+  &, 0.195959E+01_JPRB, 0.201977E+01_JPRB, 0.208053E+01_JPRB, 0.214185E+01_JPRB &
+  &, 0.220369E+01_JPRB, 0.226604E+01_JPRB, 0.232887E+01_JPRB &
+  &, 0.239216E+01_JPRB, 0.245588E+01_JPRB, 0.252002E+01_JPRB, 0.258454E+01_JPRB &
+  &, 0.264942E+01_JPRB, 0.271464E+01_JPRB, 0.278019E+01_JPRB &
+  &, 0.284602E+01_JPRB, 0.291212E+01_JPRB, 0.297846E+01_JPRB, 0.304503E+01_JPRB &
+  &, 0.311180E+01_JPRB, 0.317874E+01_JPRB, 0.324583E+01_JPRB &
+  &, 0.331306E+01_JPRB, 0.338039E+01_JPRB, 0.344781E+01_JPRB, 0.351530E+01_JPRB &
+  &, 0.358282E+01_JPRB, 0.365037E+01_JPRB, 0.371792E+01_JPRB &
+  &, 0.378545E+01_JPRB, 0.385295E+01_JPRB, 0.392037E+01_JPRB, 0.398772E+01_JPRB &
+  &, 0.405498E+01_JPRB, 0.412211E+01_JPRB, 0.418911E+01_JPRB &
+  &, 0.425596E+01_JPRB, 0.432264E+01_JPRB, 0.438912E+01_JPRB, 0.445541E+01_JPRB &
+  &, 0.452145E+01_JPRB, 0.458728E+01_JPRB, 0.465285E+01_JPRB &
+  &, 0.471813E+01_JPRB, 0.478314E+01_JPRB, 0.484785E+01_JPRB, 0.491223E+01_JPRB &
+  &, 0.497630E+01_JPRB, 0.504001E+01_JPRB, 0.510337E+01_JPRB &
+  &, 0.516635E+01_JPRB, 0.522896E+01_JPRB, 0.529119E+01_JPRB, 0.535297E+01_JPRB &
+  &, 0.541437E+01_JPRB, 0.547532E+01_JPRB, 0.553583E+01_JPRB &
+  &, 0.559589E+01_JPRB, 0.565548E+01_JPRB, 0.571459E+01_JPRB, 0.577324E+01_JPRB &
+  &, 0.583136E+01_JPRB, 0.588900E+01_JPRB, 0.594612E+01_JPRB &
+  &, 0.600274E+01_JPRB, 0.605881E+01_JPRB, 0.611434E+01_JPRB, 0.616933E+01_JPRB &
+  &, 0.622377E+01_JPRB, 0.627764E+01_JPRB, 0.633095E+01_JPRB &
+  &, 0.638367E+01_JPRB, 0.643581E+01_JPRB, 0.648737E+01_JPRB, 0.653833E+01_JPRB &
+  &, 0.658867E+01_JPRB, 0.663844E+01_JPRB, 0.668756E+01_JPRB &
+  &, 0.673610E+01_JPRB, 0.678398E+01_JPRB, 0.683125E+01_JPRB, 0.687685E+01_JPRB &
+  &, 0.692387E+01_JPRB, 0.696918E+01_JPRB, 0.701394E+01_JPRB &
+  &, 0.705800E+01_JPRB, 0.710140E+01_JPRB, 0.714409E+01_JPRB, 0.718620E+01_JPRB &
+  &, 0.722762E+01_JPRB, 0.726837E+01_JPRB, 0.730848E+01_JPRB &
+  &, 0.734785E+01_JPRB, 0.738658E+01_JPRB, 0.742463E+01_JPRB, 0.746200E+01_JPRB &
+  &, 0.749869E+01_JPRB, 0.753468E+01_JPRB, 0.757001E+01_JPRB &
+  &, 0.760464E+01_JPRB, 0.763858E+01_JPRB, 0.767188E+01_JPRB, 0.770441E+01_JPRB &
+  &, 0.773631E+01_JPRB, 0.776746E+01_JPRB, 0.779795E+01_JPRB &
+  &, 0.782775E+01_JPRB, 0.785681E+01_JPRB, 0.788524E+01_JPRB, 0.791296E+01_JPRB &
+  &, 0.793997E+01_JPRB, 0.796627E+01_JPRB, 0.799194E+01_JPRB &
+  &, 0.801681E+01_JPRB, 0.804107E+01_JPRB, 0.806461E+01_JPRB, 0.808750E+01_JPRB &
+  &, 0.810952E+01_JPRB, 0.813108E+01_JPRB, 0.815186E+01_JPRB &
+  &, 0.817197E+01_JPRB, 0.819143E+01_JPRB, 0.821012E+01_JPRB, 0.822812E+01_JPRB &
+  &, 0.824545E+01_JPRB, 0.826217E+01_JPRB, 0.827817E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART138',1,ZHOOK_HANDLE)
+END SUBROUTINE PART138
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART139
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART139',0,ZHOOK_HANDLE)
+
+XCW( 967, :) = (/ &
+  &  0.119153E+01_JPRB, 0.124176E+01_JPRB, 0.129288E+01_JPRB, 0.134489E+01_JPRB &
+  &, 0.139775E+01_JPRB, 0.145145E+01_JPRB, 0.150597E+01_JPRB &
+  &, 0.156128E+01_JPRB, 0.161738E+01_JPRB, 0.167422E+01_JPRB, 0.173180E+01_JPRB &
+  &, 0.179009E+01_JPRB, 0.184906E+01_JPRB, 0.190871E+01_JPRB &
+  &, 0.196899E+01_JPRB, 0.202990E+01_JPRB, 0.209140E+01_JPRB, 0.215347E+01_JPRB &
+  &, 0.221610E+01_JPRB, 0.227925E+01_JPRB, 0.234290E+01_JPRB &
+  &, 0.240703E+01_JPRB, 0.247162E+01_JPRB, 0.253664E+01_JPRB, 0.260206E+01_JPRB &
+  &, 0.266787E+01_JPRB, 0.273403E+01_JPRB, 0.280053E+01_JPRB &
+  &, 0.286735E+01_JPRB, 0.293445E+01_JPRB, 0.300181E+01_JPRB, 0.306942E+01_JPRB &
+  &, 0.313724E+01_JPRB, 0.320526E+01_JPRB, 0.327344E+01_JPRB &
+  &, 0.334178E+01_JPRB, 0.341024E+01_JPRB, 0.347882E+01_JPRB, 0.354746E+01_JPRB &
+  &, 0.361617E+01_JPRB, 0.368493E+01_JPRB, 0.375369E+01_JPRB &
+  &, 0.382246E+01_JPRB, 0.389120E+01_JPRB, 0.395990E+01_JPRB, 0.402854E+01_JPRB &
+  &, 0.409709E+01_JPRB, 0.416555E+01_JPRB, 0.423389E+01_JPRB &
+  &, 0.430208E+01_JPRB, 0.437012E+01_JPRB, 0.443800E+01_JPRB, 0.450567E+01_JPRB &
+  &, 0.457314E+01_JPRB, 0.464039E+01_JPRB, 0.470739E+01_JPRB &
+  &, 0.477414E+01_JPRB, 0.484062E+01_JPRB, 0.490681E+01_JPRB, 0.497271E+01_JPRB &
+  &, 0.503827E+01_JPRB, 0.510351E+01_JPRB, 0.516842E+01_JPRB &
+  &, 0.523295E+01_JPRB, 0.529713E+01_JPRB, 0.536091E+01_JPRB, 0.542430E+01_JPRB &
+  &, 0.548730E+01_JPRB, 0.554986E+01_JPRB, 0.561200E+01_JPRB &
+  &, 0.567368E+01_JPRB, 0.573493E+01_JPRB, 0.579570E+01_JPRB, 0.585601E+01_JPRB &
+  &, 0.591584E+01_JPRB, 0.597516E+01_JPRB, 0.603398E+01_JPRB &
+  &, 0.609230E+01_JPRB, 0.615010E+01_JPRB, 0.620734E+01_JPRB, 0.626409E+01_JPRB &
+  &, 0.632027E+01_JPRB, 0.637590E+01_JPRB, 0.643096E+01_JPRB &
+  &, 0.648545E+01_JPRB, 0.653938E+01_JPRB, 0.659274E+01_JPRB, 0.664546E+01_JPRB &
+  &, 0.669764E+01_JPRB, 0.674919E+01_JPRB, 0.680015E+01_JPRB &
+  &, 0.685050E+01_JPRB, 0.690022E+01_JPRB, 0.694933E+01_JPRB, 0.699779E+01_JPRB &
+  &, 0.704564E+01_JPRB, 0.709284E+01_JPRB, 0.713939E+01_JPRB &
+  &, 0.718532E+01_JPRB, 0.723060E+01_JPRB, 0.727516E+01_JPRB, 0.731917E+01_JPRB &
+  &, 0.736246E+01_JPRB, 0.740511E+01_JPRB, 0.744707E+01_JPRB &
+  &, 0.748835E+01_JPRB, 0.752891E+01_JPRB, 0.756892E+01_JPRB, 0.760822E+01_JPRB &
+  &, 0.764682E+01_JPRB, 0.768471E+01_JPRB, 0.772195E+01_JPRB &
+  &, 0.775850E+01_JPRB, 0.779432E+01_JPRB, 0.782950E+01_JPRB, 0.786392E+01_JPRB &
+  &, 0.789758E+01_JPRB, 0.793081E+01_JPRB, 0.796321E+01_JPRB &
+  &, 0.799457E+01_JPRB, 0.802594E+01_JPRB, 0.805624E+01_JPRB, 0.808588E+01_JPRB &
+  &, 0.811475E+01_JPRB, 0.814303E+01_JPRB, 0.817046E+01_JPRB &
+  &, 0.819694E+01_JPRB, 0.822351E+01_JPRB, 0.824898E+01_JPRB, 0.827369E+01_JPRB &
+  &, 0.829777E+01_JPRB, 0.832116E+01_JPRB, 0.834381E+01_JPRB &
+  &, 0.836580E+01_JPRB, 0.838707E+01_JPRB, 0.840771E+01_JPRB, 0.842759E+01_JPRB &
+  &, 0.844678E+01_JPRB, 0.846531E+01_JPRB, 0.848319E+01_JPRB/)
+XCW( 968, :) = (/ &
+  &  0.119308E+01_JPRB, 0.124375E+01_JPRB, 0.129533E+01_JPRB, 0.134782E+01_JPRB &
+  &, 0.140118E+01_JPRB, 0.145541E+01_JPRB, 0.151048E+01_JPRB &
+  &, 0.156636E+01_JPRB, 0.162305E+01_JPRB, 0.168051E+01_JPRB, 0.173872E+01_JPRB &
+  &, 0.179766E+01_JPRB, 0.185732E+01_JPRB, 0.191766E+01_JPRB &
+  &, 0.197867E+01_JPRB, 0.204031E+01_JPRB, 0.210258E+01_JPRB, 0.216544E+01_JPRB &
+  &, 0.222887E+01_JPRB, 0.229284E+01_JPRB, 0.235734E+01_JPRB &
+  &, 0.242234E+01_JPRB, 0.248782E+01_JPRB, 0.255375E+01_JPRB, 0.262010E+01_JPRB &
+  &, 0.268686E+01_JPRB, 0.275400E+01_JPRB, 0.282149E+01_JPRB &
+  &, 0.288932E+01_JPRB, 0.295745E+01_JPRB, 0.302586E+01_JPRB, 0.309454E+01_JPRB &
+  &, 0.316345E+01_JPRB, 0.323258E+01_JPRB, 0.330190E+01_JPRB &
+  &, 0.337139E+01_JPRB, 0.344102E+01_JPRB, 0.351077E+01_JPRB, 0.358062E+01_JPRB &
+  &, 0.365056E+01_JPRB, 0.372055E+01_JPRB, 0.379058E+01_JPRB &
+  &, 0.386063E+01_JPRB, 0.393066E+01_JPRB, 0.400068E+01_JPRB, 0.407064E+01_JPRB &
+  &, 0.414055E+01_JPRB, 0.421037E+01_JPRB, 0.428008E+01_JPRB &
+  &, 0.434968E+01_JPRB, 0.441914E+01_JPRB, 0.448843E+01_JPRB, 0.455755E+01_JPRB &
+  &, 0.462650E+01_JPRB, 0.469521E+01_JPRB, 0.476372E+01_JPRB &
+  &, 0.483197E+01_JPRB, 0.489998E+01_JPRB, 0.496770E+01_JPRB, 0.503515E+01_JPRB &
+  &, 0.510229E+01_JPRB, 0.516911E+01_JPRB, 0.523559E+01_JPRB &
+  &, 0.530175E+01_JPRB, 0.536754E+01_JPRB, 0.543297E+01_JPRB, 0.549801E+01_JPRB &
+  &, 0.556265E+01_JPRB, 0.562689E+01_JPRB, 0.569070E+01_JPRB &
+  &, 0.575409E+01_JPRB, 0.581705E+01_JPRB, 0.587954E+01_JPRB, 0.594159E+01_JPRB &
+  &, 0.600316E+01_JPRB, 0.606424E+01_JPRB, 0.612481E+01_JPRB &
+  &, 0.618491E+01_JPRB, 0.624449E+01_JPRB, 0.630355E+01_JPRB, 0.636209E+01_JPRB &
+  &, 0.642008E+01_JPRB, 0.647753E+01_JPRB, 0.653444E+01_JPRB &
+  &, 0.659077E+01_JPRB, 0.664655E+01_JPRB, 0.670175E+01_JPRB, 0.675636E+01_JPRB &
+  &, 0.681041E+01_JPRB, 0.686385E+01_JPRB, 0.691668E+01_JPRB &
+  &, 0.696893E+01_JPRB, 0.702055E+01_JPRB, 0.707158E+01_JPRB, 0.712197E+01_JPRB &
+  &, 0.717173E+01_JPRB, 0.722089E+01_JPRB, 0.726938E+01_JPRB &
+  &, 0.731722E+01_JPRB, 0.736446E+01_JPRB, 0.741103E+01_JPRB, 0.745692E+01_JPRB &
+  &, 0.750220E+01_JPRB, 0.754666E+01_JPRB, 0.759072E+01_JPRB &
+  &, 0.763399E+01_JPRB, 0.767655E+01_JPRB, 0.771853E+01_JPRB, 0.775976E+01_JPRB &
+  &, 0.780034E+01_JPRB, 0.784022E+01_JPRB, 0.787946E+01_JPRB &
+  &, 0.791797E+01_JPRB, 0.795580E+01_JPRB, 0.799300E+01_JPRB, 0.802945E+01_JPRB &
+  &, 0.806523E+01_JPRB, 0.810032E+01_JPRB, 0.813471E+01_JPRB &
+  &, 0.816842E+01_JPRB, 0.820124E+01_JPRB, 0.823375E+01_JPRB, 0.826540E+01_JPRB &
+  &, 0.829630E+01_JPRB, 0.832649E+01_JPRB, 0.835600E+01_JPRB &
+  &, 0.838483E+01_JPRB, 0.841300E+01_JPRB, 0.844045E+01_JPRB, 0.846719E+01_JPRB &
+  &, 0.849324E+01_JPRB, 0.851861E+01_JPRB, 0.854324E+01_JPRB &
+  &, 0.856715E+01_JPRB, 0.859047E+01_JPRB, 0.861302E+01_JPRB, 0.863494E+01_JPRB &
+  &, 0.865606E+01_JPRB, 0.867657E+01_JPRB, 0.869642E+01_JPRB/)
+XCW( 969, :) = (/ &
+  &  0.119467E+01_JPRB, 0.124579E+01_JPRB, 0.129785E+01_JPRB, 0.135083E+01_JPRB &
+  &, 0.140472E+01_JPRB, 0.145948E+01_JPRB, 0.151512E+01_JPRB &
+  &, 0.157159E+01_JPRB, 0.162888E+01_JPRB, 0.168697E+01_JPRB, 0.174584E+01_JPRB &
+  &, 0.180546E+01_JPRB, 0.186581E+01_JPRB, 0.192687E+01_JPRB &
+  &, 0.198862E+01_JPRB, 0.205104E+01_JPRB, 0.211409E+01_JPRB, 0.217776E+01_JPRB &
+  &, 0.224202E+01_JPRB, 0.230685E+01_JPRB, 0.237222E+01_JPRB &
+  &, 0.243812E+01_JPRB, 0.250451E+01_JPRB, 0.257138E+01_JPRB, 0.263870E+01_JPRB &
+  &, 0.270644E+01_JPRB, 0.277458E+01_JPRB, 0.284310E+01_JPRB &
+  &, 0.291196E+01_JPRB, 0.298116E+01_JPRB, 0.305067E+01_JPRB, 0.312045E+01_JPRB &
+  &, 0.319049E+01_JPRB, 0.326077E+01_JPRB, 0.333125E+01_JPRB &
+  &, 0.340192E+01_JPRB, 0.347276E+01_JPRB, 0.354374E+01_JPRB, 0.361485E+01_JPRB &
+  &, 0.368604E+01_JPRB, 0.375732E+01_JPRB, 0.382866E+01_JPRB &
+  &, 0.390002E+01_JPRB, 0.397140E+01_JPRB, 0.404277E+01_JPRB, 0.411411E+01_JPRB &
+  &, 0.418541E+01_JPRB, 0.425665E+01_JPRB, 0.432780E+01_JPRB &
+  &, 0.439885E+01_JPRB, 0.446976E+01_JPRB, 0.454054E+01_JPRB, 0.461116E+01_JPRB &
+  &, 0.468161E+01_JPRB, 0.475186E+01_JPRB, 0.482191E+01_JPRB &
+  &, 0.489173E+01_JPRB, 0.496131E+01_JPRB, 0.503064E+01_JPRB, 0.509969E+01_JPRB &
+  &, 0.516844E+01_JPRB, 0.523690E+01_JPRB, 0.530506E+01_JPRB &
+  &, 0.537288E+01_JPRB, 0.544034E+01_JPRB, 0.550747E+01_JPRB, 0.557422E+01_JPRB &
+  &, 0.564059E+01_JPRB, 0.570657E+01_JPRB, 0.577214E+01_JPRB &
+  &, 0.583729E+01_JPRB, 0.590202E+01_JPRB, 0.596630E+01_JPRB, 0.603013E+01_JPRB &
+  &, 0.609352E+01_JPRB, 0.615642E+01_JPRB, 0.621885E+01_JPRB &
+  &, 0.628077E+01_JPRB, 0.634221E+01_JPRB, 0.640313E+01_JPRB, 0.646355E+01_JPRB &
+  &, 0.652344E+01_JPRB, 0.658279E+01_JPRB, 0.664159E+01_JPRB &
+  &, 0.669984E+01_JPRB, 0.675755E+01_JPRB, 0.681469E+01_JPRB, 0.687124E+01_JPRB &
+  &, 0.692724E+01_JPRB, 0.698264E+01_JPRB, 0.703745E+01_JPRB &
+  &, 0.709166E+01_JPRB, 0.714530E+01_JPRB, 0.719829E+01_JPRB, 0.725066E+01_JPRB &
+  &, 0.730245E+01_JPRB, 0.735358E+01_JPRB, 0.740411E+01_JPRB &
+  &, 0.745374E+01_JPRB, 0.750324E+01_JPRB, 0.755182E+01_JPRB, 0.759978E+01_JPRB &
+  &, 0.764711E+01_JPRB, 0.769374E+01_JPRB, 0.773974E+01_JPRB &
+  &, 0.778505E+01_JPRB, 0.782970E+01_JPRB, 0.787373E+01_JPRB, 0.791703E+01_JPRB &
+  &, 0.795968E+01_JPRB, 0.800165E+01_JPRB, 0.804293E+01_JPRB &
+  &, 0.808359E+01_JPRB, 0.812352E+01_JPRB, 0.816275E+01_JPRB, 0.820122E+01_JPRB &
+  &, 0.823918E+01_JPRB, 0.827636E+01_JPRB, 0.831284E+01_JPRB &
+  &, 0.834865E+01_JPRB, 0.838378E+01_JPRB, 0.841820E+01_JPRB, 0.845186E+01_JPRB &
+  &, 0.848487E+01_JPRB, 0.851724E+01_JPRB, 0.854882E+01_JPRB &
+  &, 0.857973E+01_JPRB, 0.860997E+01_JPRB, 0.863956E+01_JPRB, 0.866833E+01_JPRB &
+  &, 0.869647E+01_JPRB, 0.872351E+01_JPRB, 0.875065E+01_JPRB &
+  &, 0.877670E+01_JPRB, 0.880205E+01_JPRB, 0.882669E+01_JPRB, 0.885065E+01_JPRB &
+  &, 0.887385E+01_JPRB, 0.889645E+01_JPRB, 0.891833E+01_JPRB/)
+XCW( 970, :) = (/ &
+  &  0.119630E+01_JPRB, 0.124788E+01_JPRB, 0.130043E+01_JPRB, 0.135393E+01_JPRB &
+  &, 0.140835E+01_JPRB, 0.146368E+01_JPRB, 0.151989E+01_JPRB &
+  &, 0.157696E+01_JPRB, 0.163489E+01_JPRB, 0.169363E+01_JPRB, 0.175317E+01_JPRB &
+  &, 0.181349E+01_JPRB, 0.187456E+01_JPRB, 0.193637E+01_JPRB &
+  &, 0.199888E+01_JPRB, 0.206208E+01_JPRB, 0.212595E+01_JPRB, 0.219045E+01_JPRB &
+  &, 0.225557E+01_JPRB, 0.232128E+01_JPRB, 0.238756E+01_JPRB &
+  &, 0.245439E+01_JPRB, 0.252173E+01_JPRB, 0.258957E+01_JPRB, 0.265788E+01_JPRB &
+  &, 0.272664E+01_JPRB, 0.279581E+01_JPRB, 0.286539E+01_JPRB &
+  &, 0.293534E+01_JPRB, 0.300564E+01_JPRB, 0.307627E+01_JPRB, 0.314720E+01_JPRB &
+  &, 0.321841E+01_JPRB, 0.328987E+01_JPRB, 0.336156E+01_JPRB &
+  &, 0.343346E+01_JPRB, 0.350555E+01_JPRB, 0.357781E+01_JPRB, 0.365020E+01_JPRB &
+  &, 0.372271E+01_JPRB, 0.379531E+01_JPRB, 0.386799E+01_JPRB &
+  &, 0.394073E+01_JPRB, 0.401350E+01_JPRB, 0.408629E+01_JPRB, 0.415905E+01_JPRB &
+  &, 0.423180E+01_JPRB, 0.430449E+01_JPRB, 0.437713E+01_JPRB &
+  &, 0.444967E+01_JPRB, 0.452211E+01_JPRB, 0.459443E+01_JPRB, 0.466660E+01_JPRB &
+  &, 0.473863E+01_JPRB, 0.481046E+01_JPRB, 0.488210E+01_JPRB &
+  &, 0.495355E+01_JPRB, 0.502478E+01_JPRB, 0.509575E+01_JPRB, 0.516648E+01_JPRB &
+  &, 0.523692E+01_JPRB, 0.530709E+01_JPRB, 0.537695E+01_JPRB &
+  &, 0.544650E+01_JPRB, 0.551573E+01_JPRB, 0.558461E+01_JPRB, 0.565314E+01_JPRB &
+  &, 0.572128E+01_JPRB, 0.578906E+01_JPRB, 0.585646E+01_JPRB &
+  &, 0.592345E+01_JPRB, 0.599002E+01_JPRB, 0.605615E+01_JPRB, 0.612186E+01_JPRB &
+  &, 0.618711E+01_JPRB, 0.625193E+01_JPRB, 0.631624E+01_JPRB &
+  &, 0.638009E+01_JPRB, 0.644347E+01_JPRB, 0.650635E+01_JPRB, 0.656870E+01_JPRB &
+  &, 0.663056E+01_JPRB, 0.669188E+01_JPRB, 0.675267E+01_JPRB &
+  &, 0.681293E+01_JPRB, 0.687264E+01_JPRB, 0.693177E+01_JPRB, 0.699039E+01_JPRB &
+  &, 0.704841E+01_JPRB, 0.710586E+01_JPRB, 0.716270E+01_JPRB &
+  &, 0.721899E+01_JPRB, 0.727465E+01_JPRB, 0.732975E+01_JPRB, 0.738422E+01_JPRB &
+  &, 0.743808E+01_JPRB, 0.749134E+01_JPRB, 0.754395E+01_JPRB &
+  &, 0.759594E+01_JPRB, 0.764729E+01_JPRB, 0.769802E+01_JPRB, 0.774810E+01_JPRB &
+  &, 0.779753E+01_JPRB, 0.784634E+01_JPRB, 0.789443E+01_JPRB &
+  &, 0.794194E+01_JPRB, 0.798877E+01_JPRB, 0.803487E+01_JPRB, 0.808041E+01_JPRB &
+  &, 0.812523E+01_JPRB, 0.816938E+01_JPRB, 0.821149E+01_JPRB &
+  &, 0.825567E+01_JPRB, 0.829776E+01_JPRB, 0.833921E+01_JPRB, 0.837995E+01_JPRB &
+  &, 0.842005E+01_JPRB, 0.845936E+01_JPRB, 0.849805E+01_JPRB &
+  &, 0.853606E+01_JPRB, 0.857340E+01_JPRB, 0.860998E+01_JPRB, 0.864592E+01_JPRB &
+  &, 0.868110E+01_JPRB, 0.871560E+01_JPRB, 0.874942E+01_JPRB &
+  &, 0.878246E+01_JPRB, 0.881489E+01_JPRB, 0.884673E+01_JPRB, 0.887776E+01_JPRB &
+  &, 0.890809E+01_JPRB, 0.893775E+01_JPRB, 0.896661E+01_JPRB &
+  &, 0.899488E+01_JPRB, 0.902243E+01_JPRB, 0.904928E+01_JPRB, 0.907538E+01_JPRB &
+  &, 0.910080E+01_JPRB, 0.912554E+01_JPRB, 0.914963E+01_JPRB/)
+XCW( 971, :) = (/ &
+  &  0.119798E+01_JPRB, 0.125004E+01_JPRB, 0.130310E+01_JPRB, 0.135712E+01_JPRB &
+  &, 0.141209E+01_JPRB, 0.146799E+01_JPRB, 0.152481E+01_JPRB &
+  &, 0.158251E+01_JPRB, 0.164107E+01_JPRB, 0.170049E+01_JPRB, 0.176073E+01_JPRB &
+  &, 0.182176E+01_JPRB, 0.188358E+01_JPRB, 0.194616E+01_JPRB &
+  &, 0.200946E+01_JPRB, 0.207348E+01_JPRB, 0.213819E+01_JPRB, 0.220356E+01_JPRB &
+  &, 0.226956E+01_JPRB, 0.233618E+01_JPRB, 0.240340E+01_JPRB &
+  &, 0.247118E+01_JPRB, 0.253951E+01_JPRB, 0.260835E+01_JPRB, 0.267769E+01_JPRB &
+  &, 0.274749E+01_JPRB, 0.281775E+01_JPRB, 0.288842E+01_JPRB &
+  &, 0.295949E+01_JPRB, 0.303093E+01_JPRB, 0.310272E+01_JPRB, 0.317484E+01_JPRB &
+  &, 0.324726E+01_JPRB, 0.331995E+01_JPRB, 0.339290E+01_JPRB &
+  &, 0.346607E+01_JPRB, 0.353945E+01_JPRB, 0.361302E+01_JPRB, 0.368675E+01_JPRB &
+  &, 0.376063E+01_JPRB, 0.383461E+01_JPRB, 0.390869E+01_JPRB &
+  &, 0.398284E+01_JPRB, 0.405701E+01_JPRB, 0.413130E+01_JPRB, 0.420555E+01_JPRB &
+  &, 0.427979E+01_JPRB, 0.435401E+01_JPRB, 0.442818E+01_JPRB &
+  &, 0.450228E+01_JPRB, 0.457630E+01_JPRB, 0.465020E+01_JPRB, 0.472399E+01_JPRB &
+  &, 0.479764E+01_JPRB, 0.487114E+01_JPRB, 0.494445E+01_JPRB &
+  &, 0.501758E+01_JPRB, 0.509049E+01_JPRB, 0.516319E+01_JPRB, 0.523565E+01_JPRB &
+  &, 0.530786E+01_JPRB, 0.537979E+01_JPRB, 0.545143E+01_JPRB &
+  &, 0.552279E+01_JPRB, 0.559382E+01_JPRB, 0.566453E+01_JPRB, 0.573490E+01_JPRB &
+  &, 0.580494E+01_JPRB, 0.587460E+01_JPRB, 0.594387E+01_JPRB &
+  &, 0.601276E+01_JPRB, 0.608125E+01_JPRB, 0.614933E+01_JPRB, 0.621697E+01_JPRB &
+  &, 0.628421E+01_JPRB, 0.635099E+01_JPRB, 0.641731E+01_JPRB &
+  &, 0.648315E+01_JPRB, 0.654853E+01_JPRB, 0.661342E+01_JPRB, 0.667782E+01_JPRB &
+  &, 0.674171E+01_JPRB, 0.680510E+01_JPRB, 0.686795E+01_JPRB &
+  &, 0.693031E+01_JPRB, 0.699210E+01_JPRB, 0.705336E+01_JPRB, 0.711407E+01_JPRB &
+  &, 0.717420E+01_JPRB, 0.723378E+01_JPRB, 0.729277E+01_JPRB &
+  &, 0.735122E+01_JPRB, 0.740904E+01_JPRB, 0.746631E+01_JPRB, 0.752293E+01_JPRB &
+  &, 0.757899E+01_JPRB, 0.763443E+01_JPRB, 0.768923E+01_JPRB &
+  &, 0.774344E+01_JPRB, 0.779702E+01_JPRB, 0.784995E+01_JPRB, 0.790229E+01_JPRB &
+  &, 0.795395E+01_JPRB, 0.800493E+01_JPRB, 0.805535E+01_JPRB &
+  &, 0.810510E+01_JPRB, 0.815417E+01_JPRB, 0.820261E+01_JPRB, 0.825037E+01_JPRB &
+  &, 0.829743E+01_JPRB, 0.834386E+01_JPRB, 0.838963E+01_JPRB &
+  &, 0.843470E+01_JPRB, 0.847907E+01_JPRB, 0.852283E+01_JPRB, 0.856586E+01_JPRB &
+  &, 0.860821E+01_JPRB, 0.864987E+01_JPRB, 0.869087E+01_JPRB &
+  &, 0.873119E+01_JPRB, 0.877076E+01_JPRB, 0.880968E+01_JPRB, 0.884795E+01_JPRB &
+  &, 0.888542E+01_JPRB, 0.892227E+01_JPRB, 0.895839E+01_JPRB &
+  &, 0.899379E+01_JPRB, 0.902859E+01_JPRB, 0.906263E+01_JPRB, 0.909597E+01_JPRB &
+  &, 0.912857E+01_JPRB, 0.916061E+01_JPRB, 0.919174E+01_JPRB &
+  &, 0.922221E+01_JPRB, 0.925216E+01_JPRB, 0.928128E+01_JPRB, 0.930972E+01_JPRB &
+  &, 0.933747E+01_JPRB, 0.936449E+01_JPRB, 0.939079E+01_JPRB/)
+XCW( 972, :) = (/ &
+  &  0.119971E+01_JPRB, 0.125227E+01_JPRB, 0.130584E+01_JPRB, 0.136041E+01_JPRB &
+  &, 0.141595E+01_JPRB, 0.147244E+01_JPRB, 0.152988E+01_JPRB &
+  &, 0.158822E+01_JPRB, 0.164746E+01_JPRB, 0.170757E+01_JPRB, 0.176852E+01_JPRB &
+  &, 0.183031E+01_JPRB, 0.189289E+01_JPRB, 0.195626E+01_JPRB &
+  &, 0.202039E+01_JPRB, 0.208525E+01_JPRB, 0.215083E+01_JPRB, 0.221709E+01_JPRB &
+  &, 0.228402E+01_JPRB, 0.235158E+01_JPRB, 0.241976E+01_JPRB &
+  &, 0.248854E+01_JPRB, 0.255788E+01_JPRB, 0.262776E+01_JPRB, 0.269816E+01_JPRB &
+  &, 0.276906E+01_JPRB, 0.284043E+01_JPRB, 0.291224E+01_JPRB &
+  &, 0.298447E+01_JPRB, 0.305706E+01_JPRB, 0.313009E+01_JPRB, 0.320344E+01_JPRB &
+  &, 0.327711E+01_JPRB, 0.335108E+01_JPRB, 0.342532E+01_JPRB &
+  &, 0.349982E+01_JPRB, 0.357455E+01_JPRB, 0.364948E+01_JPRB, 0.372460E+01_JPRB &
+  &, 0.379988E+01_JPRB, 0.387530E+01_JPRB, 0.395083E+01_JPRB &
+  &, 0.402646E+01_JPRB, 0.410216E+01_JPRB, 0.417792E+01_JPRB, 0.425369E+01_JPRB &
+  &, 0.432951E+01_JPRB, 0.440530E+01_JPRB, 0.448108E+01_JPRB &
+  &, 0.455680E+01_JPRB, 0.463245E+01_JPRB, 0.470802E+01_JPRB, 0.478348E+01_JPRB &
+  &, 0.485883E+01_JPRB, 0.493403E+01_JPRB, 0.500909E+01_JPRB &
+  &, 0.508396E+01_JPRB, 0.515865E+01_JPRB, 0.523313E+01_JPRB, 0.530740E+01_JPRB &
+  &, 0.538143E+01_JPRB, 0.545520E+01_JPRB, 0.552870E+01_JPRB &
+  &, 0.560193E+01_JPRB, 0.567486E+01_JPRB, 0.574749E+01_JPRB, 0.581977E+01_JPRB &
+  &, 0.589175E+01_JPRB, 0.596336E+01_JPRB, 0.603461E+01_JPRB &
+  &, 0.610548E+01_JPRB, 0.617597E+01_JPRB, 0.624605E+01_JPRB, 0.631575E+01_JPRB &
+  &, 0.638501E+01_JPRB, 0.645383E+01_JPRB, 0.652223E+01_JPRB &
+  &, 0.659016E+01_JPRB, 0.665763E+01_JPRB, 0.672463E+01_JPRB, 0.679117E+01_JPRB &
+  &, 0.685719E+01_JPRB, 0.692274E+01_JPRB, 0.698775E+01_JPRB &
+  &, 0.705225E+01_JPRB, 0.711624E+01_JPRB, 0.717969E+01_JPRB, 0.724260E+01_JPRB &
+  &, 0.730497E+01_JPRB, 0.736677E+01_JPRB, 0.742800E+01_JPRB &
+  &, 0.748868E+01_JPRB, 0.754877E+01_JPRB, 0.760830E+01_JPRB, 0.766721E+01_JPRB &
+  &, 0.772554E+01_JPRB, 0.778329E+01_JPRB, 0.784039E+01_JPRB &
+  &, 0.789692E+01_JPRB, 0.795278E+01_JPRB, 0.800807E+01_JPRB, 0.806272E+01_JPRB &
+  &, 0.811672E+01_JPRB, 0.817009E+01_JPRB, 0.822284E+01_JPRB &
+  &, 0.827492E+01_JPRB, 0.832638E+01_JPRB, 0.837719E+01_JPRB, 0.842728E+01_JPRB &
+  &, 0.847677E+01_JPRB, 0.852556E+01_JPRB, 0.857374E+01_JPRB &
+  &, 0.862122E+01_JPRB, 0.866798E+01_JPRB, 0.871414E+01_JPRB, 0.875957E+01_JPRB &
+  &, 0.880433E+01_JPRB, 0.884827E+01_JPRB, 0.889145E+01_JPRB &
+  &, 0.893456E+01_JPRB, 0.897662E+01_JPRB, 0.901784E+01_JPRB, 0.905857E+01_JPRB &
+  &, 0.909851E+01_JPRB, 0.913757E+01_JPRB, 0.917633E+01_JPRB &
+  &, 0.921422E+01_JPRB, 0.925140E+01_JPRB, 0.928782E+01_JPRB, 0.932361E+01_JPRB &
+  &, 0.935866E+01_JPRB, 0.939304E+01_JPRB, 0.942675E+01_JPRB &
+  &, 0.945975E+01_JPRB, 0.949198E+01_JPRB, 0.952357E+01_JPRB, 0.955442E+01_JPRB &
+  &, 0.958433E+01_JPRB, 0.961402E+01_JPRB, 0.964279E+01_JPRB/)
+XCW( 973, :) = (/ &
+  &  0.120149E+01_JPRB, 0.125456E+01_JPRB, 0.130867E+01_JPRB, 0.136380E+01_JPRB &
+  &, 0.141993E+01_JPRB, 0.147704E+01_JPRB, 0.153511E+01_JPRB &
+  &, 0.159412E+01_JPRB, 0.165405E+01_JPRB, 0.171488E+01_JPRB, 0.177658E+01_JPRB &
+  &, 0.183913E+01_JPRB, 0.190252E+01_JPRB, 0.196671E+01_JPRB &
+  &, 0.203169E+01_JPRB, 0.209742E+01_JPRB, 0.216390E+01_JPRB, 0.223109E+01_JPRB &
+  &, 0.229896E+01_JPRB, 0.236751E+01_JPRB, 0.243669E+01_JPRB &
+  &, 0.250650E+01_JPRB, 0.257689E+01_JPRB, 0.264785E+01_JPRB, 0.271936E+01_JPRB &
+  &, 0.279139E+01_JPRB, 0.286391E+01_JPRB, 0.293690E+01_JPRB &
+  &, 0.301033E+01_JPRB, 0.308419E+01_JPRB, 0.315844E+01_JPRB, 0.323306E+01_JPRB &
+  &, 0.330803E+01_JPRB, 0.338333E+01_JPRB, 0.345892E+01_JPRB &
+  &, 0.353479E+01_JPRB, 0.361091E+01_JPRB, 0.368727E+01_JPRB, 0.376383E+01_JPRB &
+  &, 0.384057E+01_JPRB, 0.391748E+01_JPRB, 0.399452E+01_JPRB &
+  &, 0.407168E+01_JPRB, 0.414894E+01_JPRB, 0.422628E+01_JPRB, 0.430367E+01_JPRB &
+  &, 0.438109E+01_JPRB, 0.445853E+01_JPRB, 0.453595E+01_JPRB &
+  &, 0.461337E+01_JPRB, 0.469072E+01_JPRB, 0.476801E+01_JPRB, 0.484522E+01_JPRB &
+  &, 0.492233E+01_JPRB, 0.499933E+01_JPRB, 0.507619E+01_JPRB &
+  &, 0.515289E+01_JPRB, 0.522942E+01_JPRB, 0.530577E+01_JPRB, 0.538191E+01_JPRB &
+  &, 0.545784E+01_JPRB, 0.553353E+01_JPRB, 0.560897E+01_JPRB &
+  &, 0.568415E+01_JPRB, 0.575902E+01_JPRB, 0.583365E+01_JPRB, 0.590795E+01_JPRB &
+  &, 0.598194E+01_JPRB, 0.605559E+01_JPRB, 0.612889E+01_JPRB &
+  &, 0.620184E+01_JPRB, 0.627442E+01_JPRB, 0.634662E+01_JPRB, 0.641842E+01_JPRB &
+  &, 0.648980E+01_JPRB, 0.656078E+01_JPRB, 0.663133E+01_JPRB &
+  &, 0.670146E+01_JPRB, 0.677113E+01_JPRB, 0.684033E+01_JPRB, 0.690906E+01_JPRB &
+  &, 0.697733E+01_JPRB, 0.704510E+01_JPRB, 0.711238E+01_JPRB &
+  &, 0.717918E+01_JPRB, 0.724543E+01_JPRB, 0.731116E+01_JPRB, 0.737639E+01_JPRB &
+  &, 0.744108E+01_JPRB, 0.750520E+01_JPRB, 0.756879E+01_JPRB &
+  &, 0.763180E+01_JPRB, 0.769428E+01_JPRB, 0.775614E+01_JPRB, 0.781746E+01_JPRB &
+  &, 0.787816E+01_JPRB, 0.793830E+01_JPRB, 0.799785E+01_JPRB &
+  &, 0.805676E+01_JPRB, 0.811510E+01_JPRB, 0.817280E+01_JPRB, 0.822989E+01_JPRB &
+  &, 0.828634E+01_JPRB, 0.834218E+01_JPRB, 0.839740E+01_JPRB &
+  &, 0.845194E+01_JPRB, 0.850587E+01_JPRB, 0.855915E+01_JPRB, 0.861178E+01_JPRB &
+  &, 0.866361E+01_JPRB, 0.871504E+01_JPRB, 0.876571E+01_JPRB &
+  &, 0.881574E+01_JPRB, 0.886500E+01_JPRB, 0.891363E+01_JPRB, 0.896169E+01_JPRB &
+  &, 0.900899E+01_JPRB, 0.905558E+01_JPRB, 0.910156E+01_JPRB &
+  &, 0.914645E+01_JPRB, 0.919144E+01_JPRB, 0.923529E+01_JPRB, 0.927851E+01_JPRB &
+  &, 0.932101E+01_JPRB, 0.936278E+01_JPRB, 0.940384E+01_JPRB &
+  &, 0.944435E+01_JPRB, 0.948416E+01_JPRB, 0.952317E+01_JPRB, 0.956149E+01_JPRB &
+  &, 0.959913E+01_JPRB, 0.963611E+01_JPRB, 0.967231E+01_JPRB &
+  &, 0.970785E+01_JPRB, 0.974269E+01_JPRB, 0.977677E+01_JPRB, 0.981024E+01_JPRB &
+  &, 0.984296E+01_JPRB, 0.987496E+01_JPRB, 0.990629E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART139',1,ZHOOK_HANDLE)
+END SUBROUTINE PART139
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART140
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART140',0,ZHOOK_HANDLE)
+
+XCW( 974, :) = (/ &
+  &  0.120334E+01_JPRB, 0.125693E+01_JPRB, 0.131159E+01_JPRB, 0.136730E+01_JPRB &
+  &, 0.142404E+01_JPRB, 0.148179E+01_JPRB, 0.154052E+01_JPRB &
+  &, 0.160022E+01_JPRB, 0.166087E+01_JPRB, 0.172244E+01_JPRB, 0.178491E+01_JPRB &
+  &, 0.184826E+01_JPRB, 0.191247E+01_JPRB, 0.197752E+01_JPRB &
+  &, 0.204338E+01_JPRB, 0.211002E+01_JPRB, 0.217743E+01_JPRB, 0.224558E+01_JPRB &
+  &, 0.231445E+01_JPRB, 0.238400E+01_JPRB, 0.245423E+01_JPRB &
+  &, 0.252510E+01_JPRB, 0.259659E+01_JPRB, 0.266868E+01_JPRB, 0.274133E+01_JPRB &
+  &, 0.281453E+01_JPRB, 0.288825E+01_JPRB, 0.296246E+01_JPRB &
+  &, 0.303715E+01_JPRB, 0.311228E+01_JPRB, 0.318784E+01_JPRB, 0.326379E+01_JPRB &
+  &, 0.334011E+01_JPRB, 0.341679E+01_JPRB, 0.349378E+01_JPRB &
+  &, 0.357108E+01_JPRB, 0.364865E+01_JPRB, 0.372649E+01_JPRB, 0.380454E+01_JPRB &
+  &, 0.388281E+01_JPRB, 0.396127E+01_JPRB, 0.403988E+01_JPRB &
+  &, 0.411865E+01_JPRB, 0.419753E+01_JPRB, 0.427650E+01_JPRB, 0.435556E+01_JPRB &
+  &, 0.443467E+01_JPRB, 0.451381E+01_JPRB, 0.459297E+01_JPRB &
+  &, 0.467213E+01_JPRB, 0.475126E+01_JPRB, 0.483035E+01_JPRB, 0.490938E+01_JPRB &
+  &, 0.498834E+01_JPRB, 0.506719E+01_JPRB, 0.514592E+01_JPRB &
+  &, 0.522453E+01_JPRB, 0.530299E+01_JPRB, 0.538128E+01_JPRB, 0.545938E+01_JPRB &
+  &, 0.553728E+01_JPRB, 0.561498E+01_JPRB, 0.569245E+01_JPRB &
+  &, 0.576966E+01_JPRB, 0.584662E+01_JPRB, 0.592330E+01_JPRB, 0.599969E+01_JPRB &
+  &, 0.607579E+01_JPRB, 0.615157E+01_JPRB, 0.622702E+01_JPRB &
+  &, 0.630213E+01_JPRB, 0.637689E+01_JPRB, 0.645128E+01_JPRB, 0.652530E+01_JPRB &
+  &, 0.659892E+01_JPRB, 0.667213E+01_JPRB, 0.674496E+01_JPRB &
+  &, 0.681735E+01_JPRB, 0.688931E+01_JPRB, 0.696083E+01_JPRB, 0.703188E+01_JPRB &
+  &, 0.710247E+01_JPRB, 0.717261E+01_JPRB, 0.724223E+01_JPRB &
+  &, 0.731140E+01_JPRB, 0.738006E+01_JPRB, 0.744819E+01_JPRB, 0.751582E+01_JPRB &
+  &, 0.758294E+01_JPRB, 0.764952E+01_JPRB, 0.771553E+01_JPRB &
+  &, 0.778104E+01_JPRB, 0.784597E+01_JPRB, 0.791032E+01_JPRB, 0.797413E+01_JPRB &
+  &, 0.803735E+01_JPRB, 0.809999E+01_JPRB, 0.816206E+01_JPRB &
+  &, 0.822354E+01_JPRB, 0.828440E+01_JPRB, 0.834468E+01_JPRB, 0.840433E+01_JPRB &
+  &, 0.846334E+01_JPRB, 0.852177E+01_JPRB, 0.857955E+01_JPRB &
+  &, 0.863667E+01_JPRB, 0.869327E+01_JPRB, 0.874917E+01_JPRB, 0.880438E+01_JPRB &
+  &, 0.885901E+01_JPRB, 0.891292E+01_JPRB, 0.896625E+01_JPRB &
+  &, 0.901887E+01_JPRB, 0.907068E+01_JPRB, 0.912220E+01_JPRB, 0.917283E+01_JPRB &
+  &, 0.922280E+01_JPRB, 0.927189E+01_JPRB, 0.932061E+01_JPRB &
+  &, 0.936866E+01_JPRB, 0.941592E+01_JPRB, 0.946250E+01_JPRB, 0.950841E+01_JPRB &
+  &, 0.955359E+01_JPRB, 0.959807E+01_JPRB, 0.964194E+01_JPRB &
+  &, 0.968506E+01_JPRB, 0.972755E+01_JPRB, 0.976929E+01_JPRB, 0.981029E+01_JPRB &
+  &, 0.985068E+01_JPRB, 0.989040E+01_JPRB, 0.992924E+01_JPRB &
+  &, 0.996748E+01_JPRB, 0.100051E+02_JPRB, 0.100419E+02_JPRB, 0.100781E+02_JPRB &
+  &, 0.101135E+02_JPRB, 0.101482E+02_JPRB, 0.101823E+02_JPRB/)
+XCW( 975, :) = (/ &
+  &  0.120524E+01_JPRB, 0.125938E+01_JPRB, 0.131462E+01_JPRB, 0.137093E+01_JPRB &
+  &, 0.142830E+01_JPRB, 0.148670E+01_JPRB, 0.154612E+01_JPRB &
+  &, 0.160654E+01_JPRB, 0.166793E+01_JPRB, 0.173027E+01_JPRB, 0.179354E+01_JPRB &
+  &, 0.185773E+01_JPRB, 0.192279E+01_JPRB, 0.198872E+01_JPRB &
+  &, 0.205549E+01_JPRB, 0.212308E+01_JPRB, 0.219146E+01_JPRB, 0.226061E+01_JPRB &
+  &, 0.233050E+01_JPRB, 0.240112E+01_JPRB, 0.247242E+01_JPRB &
+  &, 0.254441E+01_JPRB, 0.261703E+01_JPRB, 0.269028E+01_JPRB, 0.276413E+01_JPRB &
+  &, 0.283855E+01_JPRB, 0.291352E+01_JPRB, 0.298901E+01_JPRB &
+  &, 0.306500E+01_JPRB, 0.314146E+01_JPRB, 0.321837E+01_JPRB, 0.329570E+01_JPRB &
+  &, 0.337344E+01_JPRB, 0.345155E+01_JPRB, 0.353000E+01_JPRB &
+  &, 0.360878E+01_JPRB, 0.368787E+01_JPRB, 0.376724E+01_JPRB, 0.384687E+01_JPRB &
+  &, 0.392672E+01_JPRB, 0.400679E+01_JPRB, 0.408705E+01_JPRB &
+  &, 0.416748E+01_JPRB, 0.424804E+01_JPRB, 0.432873E+01_JPRB, 0.440952E+01_JPRB &
+  &, 0.449039E+01_JPRB, 0.457132E+01_JPRB, 0.465229E+01_JPRB &
+  &, 0.473328E+01_JPRB, 0.481426E+01_JPRB, 0.489523E+01_JPRB, 0.497616E+01_JPRB &
+  &, 0.505703E+01_JPRB, 0.513783E+01_JPRB, 0.521853E+01_JPRB &
+  &, 0.529912E+01_JPRB, 0.537958E+01_JPRB, 0.545990E+01_JPRB, 0.554006E+01_JPRB &
+  &, 0.562004E+01_JPRB, 0.569982E+01_JPRB, 0.577939E+01_JPRB &
+  &, 0.585874E+01_JPRB, 0.593785E+01_JPRB, 0.601670E+01_JPRB, 0.609529E+01_JPRB &
+  &, 0.617358E+01_JPRB, 0.625158E+01_JPRB, 0.632928E+01_JPRB &
+  &, 0.640666E+01_JPRB, 0.648369E+01_JPRB, 0.656040E+01_JPRB, 0.663672E+01_JPRB &
+  &, 0.671267E+01_JPRB, 0.678825E+01_JPRB, 0.686343E+01_JPRB &
+  &, 0.693820E+01_JPRB, 0.701255E+01_JPRB, 0.708649E+01_JPRB, 0.715999E+01_JPRB &
+  &, 0.723303E+01_JPRB, 0.730562E+01_JPRB, 0.737774E+01_JPRB &
+  &, 0.744938E+01_JPRB, 0.752055E+01_JPRB, 0.759120E+01_JPRB, 0.766135E+01_JPRB &
+  &, 0.773102E+01_JPRB, 0.780016E+01_JPRB, 0.786874E+01_JPRB &
+  &, 0.793683E+01_JPRB, 0.800434E+01_JPRB, 0.807134E+01_JPRB, 0.813775E+01_JPRB &
+  &, 0.820360E+01_JPRB, 0.826890E+01_JPRB, 0.833361E+01_JPRB &
+  &, 0.839776E+01_JPRB, 0.846131E+01_JPRB, 0.852425E+01_JPRB, 0.858658E+01_JPRB &
+  &, 0.864834E+01_JPRB, 0.870948E+01_JPRB, 0.877001E+01_JPRB &
+  &, 0.882988E+01_JPRB, 0.888917E+01_JPRB, 0.894781E+01_JPRB, 0.900583E+01_JPRB &
+  &, 0.906319E+01_JPRB, 0.911989E+01_JPRB, 0.917598E+01_JPRB &
+  &, 0.923142E+01_JPRB, 0.928611E+01_JPRB, 0.934029E+01_JPRB, 0.939373E+01_JPRB &
+  &, 0.944654E+01_JPRB, 0.949860E+01_JPRB, 0.954856E+01_JPRB &
+  &, 0.960084E+01_JPRB, 0.965097E+01_JPRB, 0.970038E+01_JPRB, 0.974918E+01_JPRB &
+  &, 0.979717E+01_JPRB, 0.984456E+01_JPRB, 0.989125E+01_JPRB &
+  &, 0.993719E+01_JPRB, 0.998256E+01_JPRB, 0.100271E+02_JPRB, 0.100710E+02_JPRB &
+  &, 0.101143E+02_JPRB, 0.101568E+02_JPRB, 0.101986E+02_JPRB &
+  &, 0.102397E+02_JPRB, 0.102802E+02_JPRB, 0.103199E+02_JPRB, 0.103586E+02_JPRB &
+  &, 0.103972E+02_JPRB, 0.104347E+02_JPRB, 0.104717E+02_JPRB/)
+XCW( 976, :) = (/ &
+  &  0.120721E+01_JPRB, 0.126192E+01_JPRB, 0.131775E+01_JPRB, 0.137468E+01_JPRB &
+  &, 0.143270E+01_JPRB, 0.149179E+01_JPRB, 0.155193E+01_JPRB &
+  &, 0.161309E+01_JPRB, 0.167525E+01_JPRB, 0.173839E+01_JPRB, 0.180250E+01_JPRB &
+  &, 0.186754E+01_JPRB, 0.193350E+01_JPRB, 0.200035E+01_JPRB &
+  &, 0.206807E+01_JPRB, 0.213664E+01_JPRB, 0.220603E+01_JPRB, 0.227622E+01_JPRB &
+  &, 0.234718E+01_JPRB, 0.241889E+01_JPRB, 0.249132E+01_JPRB &
+  &, 0.256446E+01_JPRB, 0.263828E+01_JPRB, 0.271274E+01_JPRB, 0.278783E+01_JPRB &
+  &, 0.286352E+01_JPRB, 0.293979E+01_JPRB, 0.301661E+01_JPRB &
+  &, 0.309396E+01_JPRB, 0.317181E+01_JPRB, 0.325013E+01_JPRB, 0.332890E+01_JPRB &
+  &, 0.340810E+01_JPRB, 0.348771E+01_JPRB, 0.356769E+01_JPRB &
+  &, 0.364802E+01_JPRB, 0.372868E+01_JPRB, 0.380967E+01_JPRB, 0.389093E+01_JPRB &
+  &, 0.397244E+01_JPRB, 0.405420E+01_JPRB, 0.413616E+01_JPRB &
+  &, 0.421833E+01_JPRB, 0.430066E+01_JPRB, 0.438314E+01_JPRB, 0.446574E+01_JPRB &
+  &, 0.454845E+01_JPRB, 0.463124E+01_JPRB, 0.471409E+01_JPRB &
+  &, 0.479700E+01_JPRB, 0.487993E+01_JPRB, 0.496285E+01_JPRB, 0.504577E+01_JPRB &
+  &, 0.512865E+01_JPRB, 0.521147E+01_JPRB, 0.529422E+01_JPRB &
+  &, 0.537690E+01_JPRB, 0.545946E+01_JPRB, 0.554190E+01_JPRB, 0.562420E+01_JPRB &
+  &, 0.570634E+01_JPRB, 0.578832E+01_JPRB, 0.587009E+01_JPRB &
+  &, 0.595167E+01_JPRB, 0.603304E+01_JPRB, 0.611416E+01_JPRB, 0.619503E+01_JPRB &
+  &, 0.627565E+01_JPRB, 0.635599E+01_JPRB, 0.643604E+01_JPRB &
+  &, 0.651580E+01_JPRB, 0.659521E+01_JPRB, 0.667431E+01_JPRB, 0.675307E+01_JPRB &
+  &, 0.683147E+01_JPRB, 0.690951E+01_JPRB, 0.698717E+01_JPRB &
+  &, 0.706446E+01_JPRB, 0.714133E+01_JPRB, 0.721779E+01_JPRB, 0.729382E+01_JPRB &
+  &, 0.736945E+01_JPRB, 0.744460E+01_JPRB, 0.751932E+01_JPRB &
+  &, 0.759357E+01_JPRB, 0.766739E+01_JPRB, 0.774068E+01_JPRB, 0.781351E+01_JPRB &
+  &, 0.788584E+01_JPRB, 0.795765E+01_JPRB, 0.802897E+01_JPRB &
+  &, 0.809975E+01_JPRB, 0.817002E+01_JPRB, 0.823972E+01_JPRB, 0.830891E+01_JPRB &
+  &, 0.837753E+01_JPRB, 0.844563E+01_JPRB, 0.851312E+01_JPRB &
+  &, 0.858007E+01_JPRB, 0.864644E+01_JPRB, 0.871219E+01_JPRB, 0.877738E+01_JPRB &
+  &, 0.884198E+01_JPRB, 0.890599E+01_JPRB, 0.896936E+01_JPRB &
+  &, 0.903213E+01_JPRB, 0.909430E+01_JPRB, 0.915583E+01_JPRB, 0.921676E+01_JPRB &
+  &, 0.927704E+01_JPRB, 0.933669E+01_JPRB, 0.939570E+01_JPRB &
+  &, 0.945406E+01_JPRB, 0.951175E+01_JPRB, 0.956875E+01_JPRB, 0.962526E+01_JPRB &
+  &, 0.968104E+01_JPRB, 0.973611E+01_JPRB, 0.979056E+01_JPRB &
+  &, 0.984424E+01_JPRB, 0.989745E+01_JPRB, 0.994987E+01_JPRB, 0.100015E+02_JPRB &
+  &, 0.100525E+02_JPRB, 0.101029E+02_JPRB, 0.101527E+02_JPRB &
+  &, 0.102017E+02_JPRB, 0.102501E+02_JPRB, 0.102977E+02_JPRB, 0.103447E+02_JPRB &
+  &, 0.103909E+02_JPRB, 0.104365E+02_JPRB, 0.104814E+02_JPRB &
+  &, 0.105255E+02_JPRB, 0.105690E+02_JPRB, 0.106118E+02_JPRB, 0.106528E+02_JPRB &
+  &, 0.106952E+02_JPRB, 0.107358E+02_JPRB, 0.107758E+02_JPRB/)
+XCW( 977, :) = (/ &
+  &  0.120926E+01_JPRB, 0.126455E+01_JPRB, 0.132100E+01_JPRB, 0.137858E+01_JPRB &
+  &, 0.143728E+01_JPRB, 0.149708E+01_JPRB, 0.155795E+01_JPRB &
+  &, 0.161988E+01_JPRB, 0.168285E+01_JPRB, 0.174683E+01_JPRB, 0.181180E+01_JPRB &
+  &, 0.187774E+01_JPRB, 0.194463E+01_JPRB, 0.201244E+01_JPRB &
+  &, 0.208115E+01_JPRB, 0.215074E+01_JPRB, 0.222118E+01_JPRB, 0.229245E+01_JPRB &
+  &, 0.236453E+01_JPRB, 0.243738E+01_JPRB, 0.251100E+01_JPRB &
+  &, 0.258534E+01_JPRB, 0.266039E+01_JPRB, 0.273612E+01_JPRB, 0.281251E+01_JPRB &
+  &, 0.288953E+01_JPRB, 0.296716E+01_JPRB, 0.304536E+01_JPRB &
+  &, 0.312412E+01_JPRB, 0.320342E+01_JPRB, 0.328322E+01_JPRB, 0.336350E+01_JPRB &
+  &, 0.344424E+01_JPRB, 0.352541E+01_JPRB, 0.360698E+01_JPRB &
+  &, 0.368894E+01_JPRB, 0.377125E+01_JPRB, 0.385390E+01_JPRB, 0.393687E+01_JPRB &
+  &, 0.402012E+01_JPRB, 0.410364E+01_JPRB, 0.418740E+01_JPRB &
+  &, 0.427138E+01_JPRB, 0.435555E+01_JPRB, 0.443990E+01_JPRB, 0.452440E+01_JPRB &
+  &, 0.460903E+01_JPRB, 0.469378E+01_JPRB, 0.477861E+01_JPRB &
+  &, 0.486351E+01_JPRB, 0.494847E+01_JPRB, 0.503345E+01_JPRB, 0.511845E+01_JPRB &
+  &, 0.520343E+01_JPRB, 0.528839E+01_JPRB, 0.537328E+01_JPRB &
+  &, 0.545814E+01_JPRB, 0.554290E+01_JPRB, 0.562757E+01_JPRB, 0.571212E+01_JPRB &
+  &, 0.579653E+01_JPRB, 0.588080E+01_JPRB, 0.596489E+01_JPRB &
+  &, 0.604881E+01_JPRB, 0.613254E+01_JPRB, 0.621604E+01_JPRB, 0.629933E+01_JPRB &
+  &, 0.638236E+01_JPRB, 0.646514E+01_JPRB, 0.654768E+01_JPRB &
+  &, 0.662990E+01_JPRB, 0.671184E+01_JPRB, 0.679347E+01_JPRB, 0.687477E+01_JPRB &
+  &, 0.695575E+01_JPRB, 0.703637E+01_JPRB, 0.711666E+01_JPRB &
+  &, 0.719655E+01_JPRB, 0.727606E+01_JPRB, 0.735519E+01_JPRB, 0.743392E+01_JPRB &
+  &, 0.751223E+01_JPRB, 0.759010E+01_JPRB, 0.766756E+01_JPRB &
+  &, 0.774456E+01_JPRB, 0.782112E+01_JPRB, 0.789722E+01_JPRB, 0.797285E+01_JPRB &
+  &, 0.804799E+01_JPRB, 0.812262E+01_JPRB, 0.819680E+01_JPRB &
+  &, 0.827042E+01_JPRB, 0.834357E+01_JPRB, 0.841617E+01_JPRB, 0.848828E+01_JPRB &
+  &, 0.855982E+01_JPRB, 0.863082E+01_JPRB, 0.870128E+01_JPRB &
+  &, 0.877118E+01_JPRB, 0.884048E+01_JPRB, 0.890926E+01_JPRB, 0.897743E+01_JPRB &
+  &, 0.904504E+01_JPRB, 0.911206E+01_JPRB, 0.917847E+01_JPRB &
+  &, 0.924430E+01_JPRB, 0.930951E+01_JPRB, 0.937410E+01_JPRB, 0.943810E+01_JPRB &
+  &, 0.950144E+01_JPRB, 0.956419E+01_JPRB, 0.962632E+01_JPRB &
+  &, 0.968779E+01_JPRB, 0.974864E+01_JPRB, 0.980882E+01_JPRB, 0.986838E+01_JPRB &
+  &, 0.992728E+01_JPRB, 0.998553E+01_JPRB, 0.100431E+02_JPRB &
+  &, 0.101000E+02_JPRB, 0.101563E+02_JPRB, 0.102119E+02_JPRB, 0.102668E+02_JPRB &
+  &, 0.103210E+02_JPRB, 0.103747E+02_JPRB, 0.104275E+02_JPRB &
+  &, 0.104798E+02_JPRB, 0.105313E+02_JPRB, 0.105817E+02_JPRB, 0.106321E+02_JPRB &
+  &, 0.106818E+02_JPRB, 0.107306E+02_JPRB, 0.107787E+02_JPRB &
+  &, 0.108261E+02_JPRB, 0.108728E+02_JPRB, 0.109188E+02_JPRB, 0.109622E+02_JPRB &
+  &, 0.110086E+02_JPRB, 0.110526E+02_JPRB, 0.110957E+02_JPRB/)
+XCW( 978, :) = (/ &
+  &  0.121138E+01_JPRB, 0.126728E+01_JPRB, 0.132437E+01_JPRB, 0.138263E+01_JPRB &
+  &, 0.144204E+01_JPRB, 0.150257E+01_JPRB, 0.156422E+01_JPRB &
+  &, 0.162696E+01_JPRB, 0.169076E+01_JPRB, 0.175561E+01_JPRB, 0.182148E+01_JPRB &
+  &, 0.188836E+01_JPRB, 0.195621E+01_JPRB, 0.202503E+01_JPRB &
+  &, 0.209477E+01_JPRB, 0.216542E+01_JPRB, 0.223696E+01_JPRB, 0.230937E+01_JPRB &
+  &, 0.238261E+01_JPRB, 0.245666E+01_JPRB, 0.253150E+01_JPRB &
+  &, 0.260710E+01_JPRB, 0.268345E+01_JPRB, 0.276050E+01_JPRB, 0.283825E+01_JPRB &
+  &, 0.291665E+01_JPRB, 0.299570E+01_JPRB, 0.307536E+01_JPRB &
+  &, 0.315560E+01_JPRB, 0.323641E+01_JPRB, 0.331776E+01_JPRB, 0.339962E+01_JPRB &
+  &, 0.348196E+01_JPRB, 0.356476E+01_JPRB, 0.364801E+01_JPRB &
+  &, 0.373166E+01_JPRB, 0.381571E+01_JPRB, 0.390012E+01_JPRB, 0.398487E+01_JPRB &
+  &, 0.406994E+01_JPRB, 0.415531E+01_JPRB, 0.424093E+01_JPRB &
+  &, 0.432682E+01_JPRB, 0.441292E+01_JPRB, 0.449923E+01_JPRB, 0.458573E+01_JPRB &
+  &, 0.467238E+01_JPRB, 0.475917E+01_JPRB, 0.484607E+01_JPRB &
+  &, 0.493307E+01_JPRB, 0.502015E+01_JPRB, 0.510729E+01_JPRB, 0.519447E+01_JPRB &
+  &, 0.528166E+01_JPRB, 0.536885E+01_JPRB, 0.545602E+01_JPRB &
+  &, 0.554314E+01_JPRB, 0.563023E+01_JPRB, 0.571722E+01_JPRB, 0.580413E+01_JPRB &
+  &, 0.589093E+01_JPRB, 0.597761E+01_JPRB, 0.606414E+01_JPRB &
+  &, 0.615052E+01_JPRB, 0.623673E+01_JPRB, 0.632273E+01_JPRB, 0.640855E+01_JPRB &
+  &, 0.649413E+01_JPRB, 0.657950E+01_JPRB, 0.666462E+01_JPRB &
+  &, 0.674947E+01_JPRB, 0.683404E+01_JPRB, 0.691833E+01_JPRB, 0.700233E+01_JPRB &
+  &, 0.708601E+01_JPRB, 0.716936E+01_JPRB, 0.725237E+01_JPRB &
+  &, 0.733504E+01_JPRB, 0.741734E+01_JPRB, 0.749927E+01_JPRB, 0.758081E+01_JPRB &
+  &, 0.766196E+01_JPRB, 0.774270E+01_JPRB, 0.782304E+01_JPRB &
+  &, 0.790296E+01_JPRB, 0.798243E+01_JPRB, 0.806145E+01_JPRB, 0.814002E+01_JPRB &
+  &, 0.821814E+01_JPRB, 0.829578E+01_JPRB, 0.837293E+01_JPRB &
+  &, 0.844958E+01_JPRB, 0.852576E+01_JPRB, 0.860141E+01_JPRB, 0.867657E+01_JPRB &
+  &, 0.875118E+01_JPRB, 0.882528E+01_JPRB, 0.889886E+01_JPRB &
+  &, 0.897188E+01_JPRB, 0.904435E+01_JPRB, 0.911626E+01_JPRB, 0.918761E+01_JPRB &
+  &, 0.925838E+01_JPRB, 0.932856E+01_JPRB, 0.939814E+01_JPRB &
+  &, 0.946724E+01_JPRB, 0.953566E+01_JPRB, 0.960352E+01_JPRB, 0.967074E+01_JPRB &
+  &, 0.973739E+01_JPRB, 0.980340E+01_JPRB, 0.986880E+01_JPRB &
+  &, 0.993355E+01_JPRB, 0.999769E+01_JPRB, 0.100612E+02_JPRB, 0.101241E+02_JPRB &
+  &, 0.101863E+02_JPRB, 0.102479E+02_JPRB, 0.103088E+02_JPRB &
+  &, 0.103691E+02_JPRB, 0.104288E+02_JPRB, 0.104876E+02_JPRB, 0.105460E+02_JPRB &
+  &, 0.106028E+02_JPRB, 0.106607E+02_JPRB, 0.107169E+02_JPRB &
+  &, 0.107725E+02_JPRB, 0.108273E+02_JPRB, 0.108818E+02_JPRB, 0.109353E+02_JPRB &
+  &, 0.109882E+02_JPRB, 0.110405E+02_JPRB, 0.110920E+02_JPRB &
+  &, 0.111428E+02_JPRB, 0.111930E+02_JPRB, 0.112424E+02_JPRB, 0.112907E+02_JPRB &
+  &, 0.113392E+02_JPRB, 0.113866E+02_JPRB, 0.114332E+02_JPRB/)
+XCW( 979, :) = (/ &
+  &  0.121359E+01_JPRB, 0.127012E+01_JPRB, 0.132788E+01_JPRB, 0.138684E+01_JPRB &
+  &, 0.144699E+01_JPRB, 0.150830E+01_JPRB, 0.157075E+01_JPRB &
+  &, 0.163433E+01_JPRB, 0.169901E+01_JPRB, 0.176476E+01_JPRB, 0.183158E+01_JPRB &
+  &, 0.189943E+01_JPRB, 0.196830E+01_JPRB, 0.203816E+01_JPRB &
+  &, 0.210898E+01_JPRB, 0.218075E+01_JPRB, 0.225344E+01_JPRB, 0.232703E+01_JPRB &
+  &, 0.240148E+01_JPRB, 0.247678E+01_JPRB, 0.255291E+01_JPRB &
+  &, 0.262984E+01_JPRB, 0.270753E+01_JPRB, 0.278598E+01_JPRB, 0.286514E+01_JPRB &
+  &, 0.294501E+01_JPRB, 0.302554E+01_JPRB, 0.310672E+01_JPRB &
+  &, 0.318852E+01_JPRB, 0.327091E+01_JPRB, 0.335388E+01_JPRB, 0.343739E+01_JPRB &
+  &, 0.352142E+01_JPRB, 0.360594E+01_JPRB, 0.369093E+01_JPRB &
+  &, 0.377637E+01_JPRB, 0.386223E+01_JPRB, 0.394849E+01_JPRB, 0.403511E+01_JPRB &
+  &, 0.412209E+01_JPRB, 0.420939E+01_JPRB, 0.429699E+01_JPRB &
+  &, 0.438487E+01_JPRB, 0.447301E+01_JPRB, 0.456138E+01_JPRB, 0.464996E+01_JPRB &
+  &, 0.473874E+01_JPRB, 0.482768E+01_JPRB, 0.491676E+01_JPRB &
+  &, 0.500597E+01_JPRB, 0.509529E+01_JPRB, 0.518468E+01_JPRB, 0.527416E+01_JPRB &
+  &, 0.536367E+01_JPRB, 0.545321E+01_JPRB, 0.554276E+01_JPRB &
+  &, 0.563228E+01_JPRB, 0.572179E+01_JPRB, 0.581126E+01_JPRB, 0.590064E+01_JPRB &
+  &, 0.598995E+01_JPRB, 0.607917E+01_JPRB, 0.616826E+01_JPRB &
+  &, 0.625722E+01_JPRB, 0.634603E+01_JPRB, 0.643469E+01_JPRB, 0.652317E+01_JPRB &
+  &, 0.661145E+01_JPRB, 0.669953E+01_JPRB, 0.678736E+01_JPRB &
+  &, 0.687499E+01_JPRB, 0.696235E+01_JPRB, 0.704943E+01_JPRB, 0.713626E+01_JPRB &
+  &, 0.722279E+01_JPRB, 0.730900E+01_JPRB, 0.739492E+01_JPRB &
+  &, 0.748050E+01_JPRB, 0.756573E+01_JPRB, 0.765063E+01_JPRB, 0.773515E+01_JPRB &
+  &, 0.781932E+01_JPRB, 0.790308E+01_JPRB, 0.798645E+01_JPRB &
+  &, 0.806943E+01_JPRB, 0.815197E+01_JPRB, 0.823409E+01_JPRB, 0.831580E+01_JPRB &
+  &, 0.839704E+01_JPRB, 0.847782E+01_JPRB, 0.855814E+01_JPRB &
+  &, 0.863799E+01_JPRB, 0.871739E+01_JPRB, 0.879627E+01_JPRB, 0.887464E+01_JPRB &
+  &, 0.895254E+01_JPRB, 0.902991E+01_JPRB, 0.910675E+01_JPRB &
+  &, 0.918309E+01_JPRB, 0.925888E+01_JPRB, 0.933413E+01_JPRB, 0.940881E+01_JPRB &
+  &, 0.948297E+01_JPRB, 0.955657E+01_JPRB, 0.962958E+01_JPRB &
+  &, 0.970199E+01_JPRB, 0.977386E+01_JPRB, 0.984515E+01_JPRB, 0.991581E+01_JPRB &
+  &, 0.998589E+01_JPRB, 0.100554E+02_JPRB, 0.101243E+02_JPRB &
+  &, 0.101925E+02_JPRB, 0.102602E+02_JPRB, 0.103272E+02_JPRB, 0.103936E+02_JPRB &
+  &, 0.104594E+02_JPRB, 0.105245E+02_JPRB, 0.105890E+02_JPRB &
+  &, 0.106529E+02_JPRB, 0.107160E+02_JPRB, 0.107786E+02_JPRB, 0.108405E+02_JPRB &
+  &, 0.109017E+02_JPRB, 0.109623E+02_JPRB, 0.110221E+02_JPRB &
+  &, 0.110814E+02_JPRB, 0.111401E+02_JPRB, 0.111980E+02_JPRB, 0.112551E+02_JPRB &
+  &, 0.113113E+02_JPRB, 0.113676E+02_JPRB, 0.114224E+02_JPRB &
+  &, 0.114773E+02_JPRB, 0.115311E+02_JPRB, 0.115843E+02_JPRB, 0.116367E+02_JPRB &
+  &, 0.116884E+02_JPRB, 0.117395E+02_JPRB, 0.117898E+02_JPRB/)
+XCW( 980, :) = (/ &
+  &  0.121589E+01_JPRB, 0.127309E+01_JPRB, 0.133155E+01_JPRB, 0.139124E+01_JPRB &
+  &, 0.145216E+01_JPRB, 0.151427E+01_JPRB, 0.157757E+01_JPRB &
+  &, 0.164202E+01_JPRB, 0.170762E+01_JPRB, 0.177433E+01_JPRB, 0.184213E+01_JPRB &
+  &, 0.191101E+01_JPRB, 0.198093E+01_JPRB, 0.205189E+01_JPRB &
+  &, 0.212384E+01_JPRB, 0.219678E+01_JPRB, 0.227068E+01_JPRB, 0.234550E+01_JPRB &
+  &, 0.242124E+01_JPRB, 0.249785E+01_JPRB, 0.257533E+01_JPRB &
+  &, 0.265364E+01_JPRB, 0.273275E+01_JPRB, 0.281265E+01_JPRB, 0.289331E+01_JPRB &
+  &, 0.297470E+01_JPRB, 0.305680E+01_JPRB, 0.313957E+01_JPRB &
+  &, 0.322301E+01_JPRB, 0.330707E+01_JPRB, 0.339173E+01_JPRB, 0.347698E+01_JPRB &
+  &, 0.356278E+01_JPRB, 0.364911E+01_JPRB, 0.373594E+01_JPRB &
+  &, 0.382325E+01_JPRB, 0.391102E+01_JPRB, 0.399922E+01_JPRB, 0.408781E+01_JPRB &
+  &, 0.417679E+01_JPRB, 0.426613E+01_JPRB, 0.435582E+01_JPRB &
+  &, 0.444580E+01_JPRB, 0.453608E+01_JPRB, 0.462662E+01_JPRB, 0.471740E+01_JPRB &
+  &, 0.480840E+01_JPRB, 0.489960E+01_JPRB, 0.499099E+01_JPRB &
+  &, 0.508252E+01_JPRB, 0.517420E+01_JPRB, 0.526598E+01_JPRB, 0.535787E+01_JPRB &
+  &, 0.544982E+01_JPRB, 0.554184E+01_JPRB, 0.563389E+01_JPRB &
+  &, 0.572596E+01_JPRB, 0.581803E+01_JPRB, 0.591008E+01_JPRB, 0.600210E+01_JPRB &
+  &, 0.609406E+01_JPRB, 0.618595E+01_JPRB, 0.627774E+01_JPRB &
+  &, 0.636944E+01_JPRB, 0.646102E+01_JPRB, 0.655245E+01_JPRB, 0.664374E+01_JPRB &
+  &, 0.673485E+01_JPRB, 0.682579E+01_JPRB, 0.691653E+01_JPRB &
+  &, 0.700704E+01_JPRB, 0.709736E+01_JPRB, 0.718742E+01_JPRB, 0.727722E+01_JPRB &
+  &, 0.736676E+01_JPRB, 0.745601E+01_JPRB, 0.754500E+01_JPRB &
+  &, 0.763366E+01_JPRB, 0.772200E+01_JPRB, 0.781002E+01_JPRB, 0.789770E+01_JPRB &
+  &, 0.798504E+01_JPRB, 0.807199E+01_JPRB, 0.815857E+01_JPRB &
+  &, 0.824478E+01_JPRB, 0.833059E+01_JPRB, 0.841601E+01_JPRB, 0.850099E+01_JPRB &
+  &, 0.858558E+01_JPRB, 0.866970E+01_JPRB, 0.875340E+01_JPRB &
+  &, 0.883662E+01_JPRB, 0.891940E+01_JPRB, 0.900172E+01_JPRB, 0.908353E+01_JPRB &
+  &, 0.916486E+01_JPRB, 0.924573E+01_JPRB, 0.932607E+01_JPRB &
+  &, 0.940589E+01_JPRB, 0.948520E+01_JPRB, 0.956399E+01_JPRB, 0.964224E+01_JPRB &
+  &, 0.971996E+01_JPRB, 0.979713E+01_JPRB, 0.987376E+01_JPRB &
+  &, 0.994980E+01_JPRB, 0.100253E+02_JPRB, 0.101002E+02_JPRB, 0.101745E+02_JPRB &
+  &, 0.102483E+02_JPRB, 0.103215E+02_JPRB, 0.103941E+02_JPRB &
+  &, 0.104661E+02_JPRB, 0.105374E+02_JPRB, 0.106082E+02_JPRB, 0.106784E+02_JPRB &
+  &, 0.107479E+02_JPRB, 0.108168E+02_JPRB, 0.108850E+02_JPRB &
+  &, 0.109527E+02_JPRB, 0.110197E+02_JPRB, 0.110861E+02_JPRB, 0.111518E+02_JPRB &
+  &, 0.112169E+02_JPRB, 0.112813E+02_JPRB, 0.113450E+02_JPRB &
+  &, 0.114080E+02_JPRB, 0.114705E+02_JPRB, 0.115324E+02_JPRB, 0.115936E+02_JPRB &
+  &, 0.116540E+02_JPRB, 0.117138E+02_JPRB, 0.117729E+02_JPRB &
+  &, 0.118312E+02_JPRB, 0.118890E+02_JPRB, 0.119461E+02_JPRB, 0.120024E+02_JPRB &
+  &, 0.120580E+02_JPRB, 0.121131E+02_JPRB, 0.121674E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART140',1,ZHOOK_HANDLE)
+END SUBROUTINE PART140
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART141
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART141',0,ZHOOK_HANDLE)
+
+XCW( 981, :) = (/ &
+  &  0.121829E+01_JPRB, 0.127619E+01_JPRB, 0.133538E+01_JPRB, 0.139584E+01_JPRB &
+  &, 0.145757E+01_JPRB, 0.152053E+01_JPRB, 0.158470E+01_JPRB &
+  &, 0.165008E+01_JPRB, 0.171663E+01_JPRB, 0.178434E+01_JPRB, 0.185318E+01_JPRB &
+  &, 0.192313E+01_JPRB, 0.199417E+01_JPRB, 0.206627E+01_JPRB &
+  &, 0.213942E+01_JPRB, 0.221358E+01_JPRB, 0.228874E+01_JPRB, 0.236487E+01_JPRB &
+  &, 0.244195E+01_JPRB, 0.251995E+01_JPRB, 0.259884E+01_JPRB &
+  &, 0.267861E+01_JPRB, 0.275922E+01_JPRB, 0.284065E+01_JPRB, 0.292288E+01_JPRB &
+  &, 0.300587E+01_JPRB, 0.308962E+01_JPRB, 0.317407E+01_JPRB &
+  &, 0.325922E+01_JPRB, 0.334504E+01_JPRB, 0.343150E+01_JPRB, 0.351858E+01_JPRB &
+  &, 0.360625E+01_JPRB, 0.369448E+01_JPRB, 0.378325E+01_JPRB &
+  &, 0.387254E+01_JPRB, 0.396231E+01_JPRB, 0.405256E+01_JPRB, 0.414323E+01_JPRB &
+  &, 0.423434E+01_JPRB, 0.432583E+01_JPRB, 0.441769E+01_JPRB &
+  &, 0.450989E+01_JPRB, 0.460243E+01_JPRB, 0.469525E+01_JPRB, 0.478836E+01_JPRB &
+  &, 0.488172E+01_JPRB, 0.497531E+01_JPRB, 0.506912E+01_JPRB &
+  &, 0.516311E+01_JPRB, 0.525727E+01_JPRB, 0.535159E+01_JPRB, 0.544603E+01_JPRB &
+  &, 0.554056E+01_JPRB, 0.563520E+01_JPRB, 0.572989E+01_JPRB &
+  &, 0.582465E+01_JPRB, 0.591943E+01_JPRB, 0.601421E+01_JPRB, 0.610900E+01_JPRB &
+  &, 0.620375E+01_JPRB, 0.629847E+01_JPRB, 0.639314E+01_JPRB &
+  &, 0.648772E+01_JPRB, 0.658222E+01_JPRB, 0.667660E+01_JPRB, 0.677087E+01_JPRB &
+  &, 0.686498E+01_JPRB, 0.695895E+01_JPRB, 0.705276E+01_JPRB &
+  &, 0.714635E+01_JPRB, 0.723977E+01_JPRB, 0.733298E+01_JPRB, 0.742594E+01_JPRB &
+  &, 0.751868E+01_JPRB, 0.761115E+01_JPRB, 0.770338E+01_JPRB &
+  &, 0.779530E+01_JPRB, 0.788694E+01_JPRB, 0.797828E+01_JPRB, 0.806930E+01_JPRB &
+  &, 0.815999E+01_JPRB, 0.825035E+01_JPRB, 0.834037E+01_JPRB &
+  &, 0.842999E+01_JPRB, 0.851928E+01_JPRB, 0.860816E+01_JPRB, 0.869667E+01_JPRB &
+  &, 0.878476E+01_JPRB, 0.887242E+01_JPRB, 0.895969E+01_JPRB &
+  &, 0.904653E+01_JPRB, 0.913292E+01_JPRB, 0.921885E+01_JPRB, 0.930431E+01_JPRB &
+  &, 0.938932E+01_JPRB, 0.947386E+01_JPRB, 0.955791E+01_JPRB &
+  &, 0.964147E+01_JPRB, 0.972455E+01_JPRB, 0.980709E+01_JPRB, 0.988914E+01_JPRB &
+  &, 0.997067E+01_JPRB, 0.100517E+02_JPRB, 0.101321E+02_JPRB &
+  &, 0.102120E+02_JPRB, 0.102914E+02_JPRB, 0.103702E+02_JPRB, 0.104484E+02_JPRB &
+  &, 0.105261E+02_JPRB, 0.106032E+02_JPRB, 0.106797E+02_JPRB &
+  &, 0.107557E+02_JPRB, 0.108310E+02_JPRB, 0.109058E+02_JPRB, 0.109799E+02_JPRB &
+  &, 0.110535E+02_JPRB, 0.111264E+02_JPRB, 0.111988E+02_JPRB &
+  &, 0.112704E+02_JPRB, 0.113415E+02_JPRB, 0.114120E+02_JPRB, 0.114818E+02_JPRB &
+  &, 0.115510E+02_JPRB, 0.116195E+02_JPRB, 0.116874E+02_JPRB &
+  &, 0.117546E+02_JPRB, 0.118212E+02_JPRB, 0.118872E+02_JPRB, 0.119524E+02_JPRB &
+  &, 0.120171E+02_JPRB, 0.120808E+02_JPRB, 0.121442E+02_JPRB &
+  &, 0.121992E+02_JPRB, 0.122689E+02_JPRB, 0.123301E+02_JPRB, 0.123907E+02_JPRB &
+  &, 0.124505E+02_JPRB, 0.125098E+02_JPRB, 0.125683E+02_JPRB/)
+XCW( 982, :) = (/ &
+  &  0.122081E+01_JPRB, 0.127943E+01_JPRB, 0.133939E+01_JPRB, 0.140066E+01_JPRB &
+  &, 0.146323E+01_JPRB, 0.152708E+01_JPRB, 0.159219E+01_JPRB &
+  &, 0.165853E+01_JPRB, 0.172609E+01_JPRB, 0.179485E+01_JPRB, 0.186478E+01_JPRB &
+  &, 0.193586E+01_JPRB, 0.200807E+01_JPRB, 0.208138E+01_JPRB &
+  &, 0.215578E+01_JPRB, 0.223124E+01_JPRB, 0.230774E+01_JPRB, 0.238524E+01_JPRB &
+  &, 0.246373E+01_JPRB, 0.254318E+01_JPRB, 0.262357E+01_JPRB &
+  &, 0.270488E+01_JPRB, 0.278706E+01_JPRB, 0.287011E+01_JPRB, 0.295400E+01_JPRB &
+  &, 0.303869E+01_JPRB, 0.312417E+01_JPRB, 0.321040E+01_JPRB &
+  &, 0.329737E+01_JPRB, 0.338504E+01_JPRB, 0.347340E+01_JPRB, 0.356240E+01_JPRB &
+  &, 0.365204E+01_JPRB, 0.374228E+01_JPRB, 0.383311E+01_JPRB &
+  &, 0.392448E+01_JPRB, 0.401638E+01_JPRB, 0.410878E+01_JPRB, 0.420166E+01_JPRB &
+  &, 0.429500E+01_JPRB, 0.438878E+01_JPRB, 0.448295E+01_JPRB &
+  &, 0.457750E+01_JPRB, 0.467242E+01_JPRB, 0.476767E+01_JPRB, 0.486323E+01_JPRB &
+  &, 0.495909E+01_JPRB, 0.505521E+01_JPRB, 0.515158E+01_JPRB &
+  &, 0.524818E+01_JPRB, 0.534498E+01_JPRB, 0.544195E+01_JPRB, 0.553910E+01_JPRB &
+  &, 0.563637E+01_JPRB, 0.573379E+01_JPRB, 0.583128E+01_JPRB &
+  &, 0.592888E+01_JPRB, 0.602653E+01_JPRB, 0.612423E+01_JPRB, 0.622196E+01_JPRB &
+  &, 0.631968E+01_JPRB, 0.641741E+01_JPRB, 0.651510E+01_JPRB &
+  &, 0.661275E+01_JPRB, 0.671034E+01_JPRB, 0.680784E+01_JPRB, 0.690527E+01_JPRB &
+  &, 0.700257E+01_JPRB, 0.709976E+01_JPRB, 0.719681E+01_JPRB &
+  &, 0.729369E+01_JPRB, 0.739041E+01_JPRB, 0.748694E+01_JPRB, 0.758330E+01_JPRB &
+  &, 0.767942E+01_JPRB, 0.777531E+01_JPRB, 0.787097E+01_JPRB &
+  &, 0.796638E+01_JPRB, 0.806154E+01_JPRB, 0.815639E+01_JPRB, 0.825096E+01_JPRB &
+  &, 0.834525E+01_JPRB, 0.843921E+01_JPRB, 0.853286E+01_JPRB &
+  &, 0.862615E+01_JPRB, 0.871910E+01_JPRB, 0.881170E+01_JPRB, 0.890392E+01_JPRB &
+  &, 0.899577E+01_JPRB, 0.908724E+01_JPRB, 0.917831E+01_JPRB &
+  &, 0.926894E+01_JPRB, 0.935917E+01_JPRB, 0.944898E+01_JPRB, 0.953834E+01_JPRB &
+  &, 0.962726E+01_JPRB, 0.971575E+01_JPRB, 0.980374E+01_JPRB &
+  &, 0.989128E+01_JPRB, 0.997834E+01_JPRB, 0.100649E+02_JPRB, 0.101510E+02_JPRB &
+  &, 0.102366E+02_JPRB, 0.103216E+02_JPRB, 0.104062E+02_JPRB &
+  &, 0.104902E+02_JPRB, 0.105737E+02_JPRB, 0.106567E+02_JPRB, 0.107391E+02_JPRB &
+  &, 0.108209E+02_JPRB, 0.109022E+02_JPRB, 0.109830E+02_JPRB &
+  &, 0.110632E+02_JPRB, 0.111428E+02_JPRB, 0.112218E+02_JPRB, 0.113003E+02_JPRB &
+  &, 0.113781E+02_JPRB, 0.114553E+02_JPRB, 0.115320E+02_JPRB &
+  &, 0.116080E+02_JPRB, 0.116835E+02_JPRB, 0.117583E+02_JPRB, 0.118325E+02_JPRB &
+  &, 0.119060E+02_JPRB, 0.119790E+02_JPRB, 0.120513E+02_JPRB &
+  &, 0.121230E+02_JPRB, 0.121940E+02_JPRB, 0.122644E+02_JPRB, 0.123341E+02_JPRB &
+  &, 0.124032E+02_JPRB, 0.124717E+02_JPRB, 0.125395E+02_JPRB &
+  &, 0.126065E+02_JPRB, 0.126730E+02_JPRB, 0.127389E+02_JPRB, 0.128020E+02_JPRB &
+  &, 0.128683E+02_JPRB, 0.129319E+02_JPRB, 0.129952E+02_JPRB/)
+XCW( 983, :) = (/ &
+  &  0.122345E+01_JPRB, 0.128284E+01_JPRB, 0.134361E+01_JPRB, 0.140573E+01_JPRB &
+  &, 0.146919E+01_JPRB, 0.153397E+01_JPRB, 0.160006E+01_JPRB &
+  &, 0.166742E+01_JPRB, 0.173604E+01_JPRB, 0.180591E+01_JPRB, 0.187699E+01_JPRB &
+  &, 0.194926E+01_JPRB, 0.202271E+01_JPRB, 0.209730E+01_JPRB &
+  &, 0.217303E+01_JPRB, 0.224985E+01_JPRB, 0.232776E+01_JPRB, 0.240671E+01_JPRB &
+  &, 0.248670E+01_JPRB, 0.256769E+01_JPRB, 0.264966E+01_JPRB &
+  &, 0.273259E+01_JPRB, 0.281644E+01_JPRB, 0.290120E+01_JPRB, 0.298684E+01_JPRB &
+  &, 0.307333E+01_JPRB, 0.316065E+01_JPRB, 0.324876E+01_JPRB &
+  &, 0.333765E+01_JPRB, 0.342729E+01_JPRB, 0.351765E+01_JPRB, 0.360870E+01_JPRB &
+  &, 0.370043E+01_JPRB, 0.379281E+01_JPRB, 0.388580E+01_JPRB &
+  &, 0.397938E+01_JPRB, 0.407354E+01_JPRB, 0.416823E+01_JPRB, 0.426345E+01_JPRB &
+  &, 0.435917E+01_JPRB, 0.445535E+01_JPRB, 0.455197E+01_JPRB &
+  &, 0.464902E+01_JPRB, 0.474647E+01_JPRB, 0.484429E+01_JPRB, 0.494248E+01_JPRB &
+  &, 0.504097E+01_JPRB, 0.513979E+01_JPRB, 0.523888E+01_JPRB &
+  &, 0.533824E+01_JPRB, 0.543783E+01_JPRB, 0.553765E+01_JPRB, 0.563767E+01_JPRB &
+  &, 0.573786E+01_JPRB, 0.583822E+01_JPRB, 0.593871E+01_JPRB &
+  &, 0.603932E+01_JPRB, 0.614001E+01_JPRB, 0.624080E+01_JPRB, 0.634165E+01_JPRB &
+  &, 0.644255E+01_JPRB, 0.654346E+01_JPRB, 0.664437E+01_JPRB &
+  &, 0.674529E+01_JPRB, 0.684617E+01_JPRB, 0.694703E+01_JPRB, 0.704781E+01_JPRB &
+  &, 0.714850E+01_JPRB, 0.724911E+01_JPRB, 0.734962E+01_JPRB &
+  &, 0.745000E+01_JPRB, 0.755024E+01_JPRB, 0.765034E+01_JPRB, 0.775026E+01_JPRB &
+  &, 0.785000E+01_JPRB, 0.794954E+01_JPRB, 0.804887E+01_JPRB &
+  &, 0.814799E+01_JPRB, 0.824687E+01_JPRB, 0.834550E+01_JPRB, 0.844387E+01_JPRB &
+  &, 0.854195E+01_JPRB, 0.863977E+01_JPRB, 0.873728E+01_JPRB &
+  &, 0.883448E+01_JPRB, 0.893137E+01_JPRB, 0.902794E+01_JPRB, 0.912413E+01_JPRB &
+  &, 0.921999E+01_JPRB, 0.931550E+01_JPRB, 0.941060E+01_JPRB &
+  &, 0.950536E+01_JPRB, 0.959970E+01_JPRB, 0.969363E+01_JPRB, 0.978717E+01_JPRB &
+  &, 0.988029E+01_JPRB, 0.997296E+01_JPRB, 0.100652E+02_JPRB &
+  &, 0.101570E+02_JPRB, 0.102483E+02_JPRB, 0.103392E+02_JPRB, 0.104296E+02_JPRB &
+  &, 0.105195E+02_JPRB, 0.106089E+02_JPRB, 0.106979E+02_JPRB &
+  &, 0.107863E+02_JPRB, 0.108742E+02_JPRB, 0.109617E+02_JPRB, 0.110485E+02_JPRB &
+  &, 0.111349E+02_JPRB, 0.112207E+02_JPRB, 0.113059E+02_JPRB &
+  &, 0.113907E+02_JPRB, 0.114749E+02_JPRB, 0.115584E+02_JPRB, 0.116415E+02_JPRB &
+  &, 0.117240E+02_JPRB, 0.118058E+02_JPRB, 0.118871E+02_JPRB &
+  &, 0.119678E+02_JPRB, 0.120479E+02_JPRB, 0.121274E+02_JPRB, 0.122063E+02_JPRB &
+  &, 0.122847E+02_JPRB, 0.123623E+02_JPRB, 0.124394E+02_JPRB &
+  &, 0.125158E+02_JPRB, 0.125916E+02_JPRB, 0.126668E+02_JPRB, 0.127414E+02_JPRB &
+  &, 0.128153E+02_JPRB, 0.128886E+02_JPRB, 0.129612E+02_JPRB &
+  &, 0.130332E+02_JPRB, 0.131045E+02_JPRB, 0.131751E+02_JPRB, 0.132451E+02_JPRB &
+  &, 0.133144E+02_JPRB, 0.133831E+02_JPRB, 0.134511E+02_JPRB/)
+XCW( 984, :) = (/ &
+  &  0.122624E+01_JPRB, 0.128643E+01_JPRB, 0.134805E+01_JPRB, 0.141107E+01_JPRB &
+  &, 0.147547E+01_JPRB, 0.154124E+01_JPRB, 0.160836E+01_JPRB &
+  &, 0.167680E+01_JPRB, 0.174655E+01_JPRB, 0.181758E+01_JPRB, 0.188988E+01_JPRB &
+  &, 0.196342E+01_JPRB, 0.203818E+01_JPRB, 0.211413E+01_JPRB &
+  &, 0.219125E+01_JPRB, 0.226952E+01_JPRB, 0.234892E+01_JPRB, 0.242942E+01_JPRB &
+  &, 0.251100E+01_JPRB, 0.259362E+01_JPRB, 0.267727E+01_JPRB &
+  &, 0.276192E+01_JPRB, 0.284755E+01_JPRB, 0.293412E+01_JPRB, 0.302162E+01_JPRB &
+  &, 0.311001E+01_JPRB, 0.319929E+01_JPRB, 0.328940E+01_JPRB &
+  &, 0.338033E+01_JPRB, 0.347206E+01_JPRB, 0.356455E+01_JPRB, 0.365778E+01_JPRB &
+  &, 0.375172E+01_JPRB, 0.384637E+01_JPRB, 0.394167E+01_JPRB &
+  &, 0.403761E+01_JPRB, 0.413417E+01_JPRB, 0.423130E+01_JPRB, 0.432901E+01_JPRB &
+  &, 0.442725E+01_JPRB, 0.452599E+01_JPRB, 0.462524E+01_JPRB &
+  &, 0.472494E+01_JPRB, 0.482508E+01_JPRB, 0.492564E+01_JPRB, 0.502660E+01_JPRB &
+  &, 0.512793E+01_JPRB, 0.522960E+01_JPRB, 0.533160E+01_JPRB &
+  &, 0.543390E+01_JPRB, 0.553648E+01_JPRB, 0.563932E+01_JPRB, 0.574240E+01_JPRB &
+  &, 0.584570E+01_JPRB, 0.594920E+01_JPRB, 0.605287E+01_JPRB &
+  &, 0.615671E+01_JPRB, 0.626066E+01_JPRB, 0.636475E+01_JPRB, 0.646894E+01_JPRB &
+  &, 0.657319E+01_JPRB, 0.667753E+01_JPRB, 0.678189E+01_JPRB &
+  &, 0.688629E+01_JPRB, 0.699068E+01_JPRB, 0.709508E+01_JPRB, 0.719947E+01_JPRB &
+  &, 0.730379E+01_JPRB, 0.740807E+01_JPRB, 0.751226E+01_JPRB &
+  &, 0.761638E+01_JPRB, 0.772039E+01_JPRB, 0.782428E+01_JPRB, 0.792804E+01_JPRB &
+  &, 0.803165E+01_JPRB, 0.813509E+01_JPRB, 0.823835E+01_JPRB &
+  &, 0.834142E+01_JPRB, 0.844429E+01_JPRB, 0.854696E+01_JPRB, 0.864939E+01_JPRB &
+  &, 0.875157E+01_JPRB, 0.885350E+01_JPRB, 0.895518E+01_JPRB &
+  &, 0.905656E+01_JPRB, 0.915766E+01_JPRB, 0.925845E+01_JPRB, 0.935892E+01_JPRB &
+  &, 0.945907E+01_JPRB, 0.955891E+01_JPRB, 0.965839E+01_JPRB &
+  &, 0.975750E+01_JPRB, 0.985626E+01_JPRB, 0.995463E+01_JPRB, 0.100526E+02_JPRB &
+  &, 0.101502E+02_JPRB, 0.102474E+02_JPRB, 0.103442E+02_JPRB &
+  &, 0.104406E+02_JPRB, 0.105365E+02_JPRB, 0.106320E+02_JPRB, 0.107270E+02_JPRB &
+  &, 0.108216E+02_JPRB, 0.109157E+02_JPRB, 0.110094E+02_JPRB &
+  &, 0.111025E+02_JPRB, 0.111952E+02_JPRB, 0.112874E+02_JPRB, 0.113791E+02_JPRB &
+  &, 0.114703E+02_JPRB, 0.115609E+02_JPRB, 0.116511E+02_JPRB &
+  &, 0.117407E+02_JPRB, 0.118298E+02_JPRB, 0.119183E+02_JPRB, 0.120063E+02_JPRB &
+  &, 0.120937E+02_JPRB, 0.121806E+02_JPRB, 0.122669E+02_JPRB &
+  &, 0.123526E+02_JPRB, 0.124378E+02_JPRB, 0.125223E+02_JPRB, 0.126063E+02_JPRB &
+  &, 0.126897E+02_JPRB, 0.127725E+02_JPRB, 0.128547E+02_JPRB &
+  &, 0.129363E+02_JPRB, 0.130172E+02_JPRB, 0.130976E+02_JPRB, 0.131773E+02_JPRB &
+  &, 0.132565E+02_JPRB, 0.133349E+02_JPRB, 0.134128E+02_JPRB &
+  &, 0.134900E+02_JPRB, 0.135666E+02_JPRB, 0.136426E+02_JPRB, 0.137178E+02_JPRB &
+  &, 0.137924E+02_JPRB, 0.138664E+02_JPRB, 0.139398E+02_JPRB/)
+XCW( 985, :) = (/ &
+  &  0.122918E+01_JPRB, 0.129023E+01_JPRB, 0.135275E+01_JPRB, 0.141672E+01_JPRB &
+  &, 0.148212E+01_JPRB, 0.154894E+01_JPRB, 0.161715E+01_JPRB &
+  &, 0.168674E+01_JPRB, 0.175768E+01_JPRB, 0.182996E+01_JPRB, 0.190355E+01_JPRB &
+  &, 0.197843E+01_JPRB, 0.205458E+01_JPRB, 0.213197E+01_JPRB &
+  &, 0.221059E+01_JPRB, 0.229040E+01_JPRB, 0.237139E+01_JPRB, 0.245352E+01_JPRB &
+  &, 0.253679E+01_JPRB, 0.262115E+01_JPRB, 0.270659E+01_JPRB &
+  &, 0.279307E+01_JPRB, 0.288059E+01_JPRB, 0.296910E+01_JPRB, 0.305858E+01_JPRB &
+  &, 0.314901E+01_JPRB, 0.324036E+01_JPRB, 0.333260E+01_JPRB &
+  &, 0.342571E+01_JPRB, 0.351967E+01_JPRB, 0.361444E+01_JPRB, 0.370999E+01_JPRB &
+  &, 0.380631E+01_JPRB, 0.390337E+01_JPRB, 0.400114E+01_JPRB &
+  &, 0.409958E+01_JPRB, 0.419870E+01_JPRB, 0.429845E+01_JPRB, 0.439880E+01_JPRB &
+  &, 0.449974E+01_JPRB, 0.460125E+01_JPRB, 0.470327E+01_JPRB &
+  &, 0.480581E+01_JPRB, 0.490885E+01_JPRB, 0.501234E+01_JPRB, 0.511626E+01_JPRB &
+  &, 0.522060E+01_JPRB, 0.532534E+01_JPRB, 0.543045E+01_JPRB &
+  &, 0.553590E+01_JPRB, 0.564168E+01_JPRB, 0.574776E+01_JPRB, 0.585412E+01_JPRB &
+  &, 0.596073E+01_JPRB, 0.606759E+01_JPRB, 0.617467E+01_JPRB &
+  &, 0.628195E+01_JPRB, 0.638941E+01_JPRB, 0.649703E+01_JPRB, 0.660478E+01_JPRB &
+  &, 0.671266E+01_JPRB, 0.682064E+01_JPRB, 0.692870E+01_JPRB &
+  &, 0.703684E+01_JPRB, 0.714501E+01_JPRB, 0.725322E+01_JPRB, 0.736145E+01_JPRB &
+  &, 0.746966E+01_JPRB, 0.757786E+01_JPRB, 0.768603E+01_JPRB &
+  &, 0.779416E+01_JPRB, 0.790219E+01_JPRB, 0.801016E+01_JPRB, 0.811802E+01_JPRB &
+  &, 0.822579E+01_JPRB, 0.833341E+01_JPRB, 0.844091E+01_JPRB &
+  &, 0.854825E+01_JPRB, 0.865540E+01_JPRB, 0.876241E+01_JPRB, 0.886918E+01_JPRB &
+  &, 0.897578E+01_JPRB, 0.908214E+01_JPRB, 0.918826E+01_JPRB &
+  &, 0.929415E+01_JPRB, 0.939975E+01_JPRB, 0.950513E+01_JPRB, 0.961020E+01_JPRB &
+  &, 0.971497E+01_JPRB, 0.981945E+01_JPRB, 0.992363E+01_JPRB &
+  &, 0.100274E+02_JPRB, 0.101310E+02_JPRB, 0.102341E+02_JPRB, 0.103369E+02_JPRB &
+  &, 0.104394E+02_JPRB, 0.105414E+02_JPRB, 0.106431E+02_JPRB &
+  &, 0.107444E+02_JPRB, 0.108453E+02_JPRB, 0.109457E+02_JPRB, 0.110458E+02_JPRB &
+  &, 0.111454E+02_JPRB, 0.112446E+02_JPRB, 0.113433E+02_JPRB &
+  &, 0.114416E+02_JPRB, 0.115394E+02_JPRB, 0.116368E+02_JPRB, 0.117336E+02_JPRB &
+  &, 0.118300E+02_JPRB, 0.119259E+02_JPRB, 0.120213E+02_JPRB &
+  &, 0.121162E+02_JPRB, 0.122106E+02_JPRB, 0.123044E+02_JPRB, 0.123977E+02_JPRB &
+  &, 0.124906E+02_JPRB, 0.125828E+02_JPRB, 0.126746E+02_JPRB &
+  &, 0.127657E+02_JPRB, 0.128563E+02_JPRB, 0.129464E+02_JPRB, 0.130359E+02_JPRB &
+  &, 0.131248E+02_JPRB, 0.132131E+02_JPRB, 0.133009E+02_JPRB &
+  &, 0.133880E+02_JPRB, 0.134746E+02_JPRB, 0.135605E+02_JPRB, 0.136459E+02_JPRB &
+  &, 0.137306E+02_JPRB, 0.138148E+02_JPRB, 0.138984E+02_JPRB &
+  &, 0.139813E+02_JPRB, 0.140636E+02_JPRB, 0.141452E+02_JPRB, 0.142263E+02_JPRB &
+  &, 0.143066E+02_JPRB, 0.143864E+02_JPRB, 0.144655E+02_JPRB/)
+XCW( 986, :) = (/ &
+  &  0.123230E+01_JPRB, 0.129426E+01_JPRB, 0.135773E+01_JPRB, 0.142271E+01_JPRB &
+  &, 0.148918E+01_JPRB, 0.155711E+01_JPRB, 0.162649E+01_JPRB &
+  &, 0.169730E+01_JPRB, 0.176952E+01_JPRB, 0.184312E+01_JPRB, 0.191809E+01_JPRB &
+  &, 0.199440E+01_JPRB, 0.207204E+01_JPRB, 0.215097E+01_JPRB &
+  &, 0.223117E+01_JPRB, 0.231263E+01_JPRB, 0.239532E+01_JPRB, 0.247921E+01_JPRB &
+  &, 0.256428E+01_JPRB, 0.265050E+01_JPRB, 0.273785E+01_JPRB &
+  &, 0.282630E+01_JPRB, 0.291583E+01_JPRB, 0.300641E+01_JPRB, 0.309802E+01_JPRB &
+  &, 0.319063E+01_JPRB, 0.328420E+01_JPRB, 0.337873E+01_JPRB &
+  &, 0.347417E+01_JPRB, 0.357051E+01_JPRB, 0.366772E+01_JPRB, 0.376576E+01_JPRB &
+  &, 0.386463E+01_JPRB, 0.396428E+01_JPRB, 0.406469E+01_JPRB &
+  &, 0.416584E+01_JPRB, 0.426769E+01_JPRB, 0.437024E+01_JPRB, 0.447344E+01_JPRB &
+  &, 0.457728E+01_JPRB, 0.468173E+01_JPRB, 0.478675E+01_JPRB &
+  &, 0.489234E+01_JPRB, 0.499847E+01_JPRB, 0.510510E+01_JPRB, 0.521222E+01_JPRB &
+  &, 0.531981E+01_JPRB, 0.542783E+01_JPRB, 0.553627E+01_JPRB &
+  &, 0.564511E+01_JPRB, 0.575431E+01_JPRB, 0.586387E+01_JPRB, 0.597376E+01_JPRB &
+  &, 0.608395E+01_JPRB, 0.619442E+01_JPRB, 0.630517E+01_JPRB &
+  &, 0.641616E+01_JPRB, 0.652737E+01_JPRB, 0.663876E+01_JPRB, 0.675039E+01_JPRB &
+  &, 0.686216E+01_JPRB, 0.697407E+01_JPRB, 0.708611E+01_JPRB &
+  &, 0.719827E+01_JPRB, 0.731051E+01_JPRB, 0.742282E+01_JPRB, 0.753519E+01_JPRB &
+  &, 0.764761E+01_JPRB, 0.776004E+01_JPRB, 0.787248E+01_JPRB &
+  &, 0.798492E+01_JPRB, 0.809731E+01_JPRB, 0.820967E+01_JPRB, 0.832199E+01_JPRB &
+  &, 0.843423E+01_JPRB, 0.854636E+01_JPRB, 0.865842E+01_JPRB &
+  &, 0.877033E+01_JPRB, 0.888214E+01_JPRB, 0.899379E+01_JPRB, 0.910528E+01_JPRB &
+  &, 0.921661E+01_JPRB, 0.932775E+01_JPRB, 0.943870E+01_JPRB &
+  &, 0.954946E+01_JPRB, 0.965995E+01_JPRB, 0.977024E+01_JPRB, 0.988029E+01_JPRB &
+  &, 0.999007E+01_JPRB, 0.100996E+02_JPRB, 0.102088E+02_JPRB &
+  &, 0.103178E+02_JPRB, 0.104264E+02_JPRB, 0.105347E+02_JPRB, 0.106427E+02_JPRB &
+  &, 0.107504E+02_JPRB, 0.108577E+02_JPRB, 0.109647E+02_JPRB &
+  &, 0.110713E+02_JPRB, 0.111775E+02_JPRB, 0.112834E+02_JPRB, 0.113889E+02_JPRB &
+  &, 0.114939E+02_JPRB, 0.115986E+02_JPRB, 0.117028E+02_JPRB &
+  &, 0.118066E+02_JPRB, 0.119100E+02_JPRB, 0.120130E+02_JPRB, 0.121155E+02_JPRB &
+  &, 0.122175E+02_JPRB, 0.123191E+02_JPRB, 0.124202E+02_JPRB &
+  &, 0.125208E+02_JPRB, 0.126209E+02_JPRB, 0.127206E+02_JPRB, 0.128197E+02_JPRB &
+  &, 0.129184E+02_JPRB, 0.130165E+02_JPRB, 0.131141E+02_JPRB &
+  &, 0.132112E+02_JPRB, 0.133077E+02_JPRB, 0.134038E+02_JPRB, 0.134992E+02_JPRB &
+  &, 0.135941E+02_JPRB, 0.136884E+02_JPRB, 0.137822E+02_JPRB &
+  &, 0.138755E+02_JPRB, 0.139681E+02_JPRB, 0.140602E+02_JPRB, 0.141517E+02_JPRB &
+  &, 0.142426E+02_JPRB, 0.143329E+02_JPRB, 0.144227E+02_JPRB &
+  &, 0.145118E+02_JPRB, 0.146003E+02_JPRB, 0.146882E+02_JPRB, 0.147755E+02_JPRB &
+  &, 0.148621E+02_JPRB, 0.149482E+02_JPRB, 0.150336E+02_JPRB/)
+XCW( 987, :) = (/ &
+  &  0.123563E+01_JPRB, 0.129855E+01_JPRB, 0.136305E+01_JPRB, 0.142911E+01_JPRB &
+  &, 0.149671E+01_JPRB, 0.156584E+01_JPRB, 0.163647E+01_JPRB &
+  &, 0.170858E+01_JPRB, 0.178216E+01_JPRB, 0.185718E+01_JPRB, 0.193363E+01_JPRB &
+  &, 0.201148E+01_JPRB, 0.209071E+01_JPRB, 0.217129E+01_JPRB &
+  &, 0.225320E+01_JPRB, 0.233643E+01_JPRB, 0.242094E+01_JPRB, 0.250671E+01_JPRB &
+  &, 0.259372E+01_JPRB, 0.268193E+01_JPRB, 0.277134E+01_JPRB &
+  &, 0.286191E+01_JPRB, 0.295361E+01_JPRB, 0.304641E+01_JPRB, 0.314030E+01_JPRB &
+  &, 0.323525E+01_JPRB, 0.333123E+01_JPRB, 0.342821E+01_JPRB &
+  &, 0.352616E+01_JPRB, 0.362507E+01_JPRB, 0.372490E+01_JPRB, 0.382563E+01_JPRB &
+  &, 0.392723E+01_JPRB, 0.402967E+01_JPRB, 0.413293E+01_JPRB &
+  &, 0.423698E+01_JPRB, 0.434180E+01_JPRB, 0.444736E+01_JPRB, 0.455363E+01_JPRB &
+  &, 0.466059E+01_JPRB, 0.476821E+01_JPRB, 0.487647E+01_JPRB &
+  &, 0.498536E+01_JPRB, 0.509481E+01_JPRB, 0.520485E+01_JPRB, 0.531541E+01_JPRB &
+  &, 0.542649E+01_JPRB, 0.553807E+01_JPRB, 0.565011E+01_JPRB &
+  &, 0.576260E+01_JPRB, 0.587552E+01_JPRB, 0.598883E+01_JPRB, 0.610253E+01_JPRB &
+  &, 0.621659E+01_JPRB, 0.633097E+01_JPRB, 0.644568E+01_JPRB &
+  &, 0.656067E+01_JPRB, 0.667596E+01_JPRB, 0.679147E+01_JPRB, 0.690723E+01_JPRB &
+  &, 0.702321E+01_JPRB, 0.713937E+01_JPRB, 0.725571E+01_JPRB &
+  &, 0.737222E+01_JPRB, 0.748886E+01_JPRB, 0.760562E+01_JPRB, 0.772248E+01_JPRB &
+  &, 0.783943E+01_JPRB, 0.795646E+01_JPRB, 0.807353E+01_JPRB &
+  &, 0.819063E+01_JPRB, 0.830775E+01_JPRB, 0.842488E+01_JPRB, 0.854199E+01_JPRB &
+  &, 0.865906E+01_JPRB, 0.877612E+01_JPRB, 0.889309E+01_JPRB &
+  &, 0.901000E+01_JPRB, 0.912682E+01_JPRB, 0.924355E+01_JPRB, 0.936015E+01_JPRB &
+  &, 0.947662E+01_JPRB, 0.959295E+01_JPRB, 0.970915E+01_JPRB &
+  &, 0.982514E+01_JPRB, 0.994097E+01_JPRB, 0.100566E+02_JPRB, 0.101720E+02_JPRB &
+  &, 0.102872E+02_JPRB, 0.104022E+02_JPRB, 0.105170E+02_JPRB &
+  &, 0.106313E+02_JPRB, 0.107457E+02_JPRB, 0.108596E+02_JPRB, 0.109733E+02_JPRB &
+  &, 0.110866E+02_JPRB, 0.111997E+02_JPRB, 0.113124E+02_JPRB &
+  &, 0.114248E+02_JPRB, 0.115369E+02_JPRB, 0.116486E+02_JPRB, 0.117600E+02_JPRB &
+  &, 0.118710E+02_JPRB, 0.119816E+02_JPRB, 0.120919E+02_JPRB &
+  &, 0.122017E+02_JPRB, 0.123112E+02_JPRB, 0.124202E+02_JPRB, 0.125288E+02_JPRB &
+  &, 0.126371E+02_JPRB, 0.127448E+02_JPRB, 0.128521E+02_JPRB &
+  &, 0.129590E+02_JPRB, 0.130654E+02_JPRB, 0.131714E+02_JPRB, 0.132769E+02_JPRB &
+  &, 0.133819E+02_JPRB, 0.134864E+02_JPRB, 0.135905E+02_JPRB &
+  &, 0.136940E+02_JPRB, 0.137970E+02_JPRB, 0.138995E+02_JPRB, 0.140015E+02_JPRB &
+  &, 0.141030E+02_JPRB, 0.142039E+02_JPRB, 0.143043E+02_JPRB &
+  &, 0.144042E+02_JPRB, 0.145035E+02_JPRB, 0.146023E+02_JPRB, 0.147005E+02_JPRB &
+  &, 0.147981E+02_JPRB, 0.148952E+02_JPRB, 0.149917E+02_JPRB &
+  &, 0.150876E+02_JPRB, 0.151829E+02_JPRB, 0.152777E+02_JPRB, 0.153719E+02_JPRB &
+  &, 0.154654E+02_JPRB, 0.155583E+02_JPRB, 0.156507E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART141',1,ZHOOK_HANDLE)
+END SUBROUTINE PART141
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART142
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART142',0,ZHOOK_HANDLE)
+
+XCW( 988, :) = (/ &
+  &  0.123919E+01_JPRB, 0.130315E+01_JPRB, 0.136875E+01_JPRB, 0.143597E+01_JPRB &
+  &, 0.150479E+01_JPRB, 0.157520E+01_JPRB, 0.164717E+01_JPRB &
+  &, 0.172069E+01_JPRB, 0.179574E+01_JPRB, 0.187229E+01_JPRB, 0.195033E+01_JPRB &
+  &, 0.202983E+01_JPRB, 0.211078E+01_JPRB, 0.219314E+01_JPRB &
+  &, 0.227690E+01_JPRB, 0.236203E+01_JPRB, 0.244851E+01_JPRB, 0.253631E+01_JPRB &
+  &, 0.262541E+01_JPRB, 0.271579E+01_JPRB, 0.280741E+01_JPRB &
+  &, 0.290026E+01_JPRB, 0.299431E+01_JPRB, 0.308952E+01_JPRB, 0.318588E+01_JPRB &
+  &, 0.328336E+01_JPRB, 0.338194E+01_JPRB, 0.348157E+01_JPRB &
+  &, 0.358225E+01_JPRB, 0.368393E+01_JPRB, 0.378661E+01_JPRB, 0.389024E+01_JPRB &
+  &, 0.399481E+01_JPRB, 0.410027E+01_JPRB, 0.420662E+01_JPRB &
+  &, 0.431382E+01_JPRB, 0.442184E+01_JPRB, 0.453067E+01_JPRB, 0.464027E+01_JPRB &
+  &, 0.475062E+01_JPRB, 0.486168E+01_JPRB, 0.497345E+01_JPRB &
+  &, 0.508590E+01_JPRB, 0.519898E+01_JPRB, 0.531269E+01_JPRB, 0.542701E+01_JPRB &
+  &, 0.554189E+01_JPRB, 0.565731E+01_JPRB, 0.577327E+01_JPRB &
+  &, 0.588973E+01_JPRB, 0.600668E+01_JPRB, 0.612407E+01_JPRB, 0.624191E+01_JPRB &
+  &, 0.636016E+01_JPRB, 0.647879E+01_JPRB, 0.659780E+01_JPRB &
+  &, 0.671716E+01_JPRB, 0.683685E+01_JPRB, 0.695684E+01_JPRB, 0.707713E+01_JPRB &
+  &, 0.719768E+01_JPRB, 0.731847E+01_JPRB, 0.743950E+01_JPRB &
+  &, 0.756073E+01_JPRB, 0.768215E+01_JPRB, 0.780376E+01_JPRB, 0.792551E+01_JPRB &
+  &, 0.804740E+01_JPRB, 0.816941E+01_JPRB, 0.829153E+01_JPRB &
+  &, 0.841373E+01_JPRB, 0.853599E+01_JPRB, 0.865831E+01_JPRB, 0.878065E+01_JPRB &
+  &, 0.890304E+01_JPRB, 0.902541E+01_JPRB, 0.914777E+01_JPRB &
+  &, 0.927012E+01_JPRB, 0.939241E+01_JPRB, 0.951468E+01_JPRB, 0.963685E+01_JPRB &
+  &, 0.975893E+01_JPRB, 0.988073E+01_JPRB, 0.100028E+02_JPRB &
+  &, 0.101246E+02_JPRB, 0.102462E+02_JPRB, 0.103677E+02_JPRB, 0.104890E+02_JPRB &
+  &, 0.106101E+02_JPRB, 0.107311E+02_JPRB, 0.108519E+02_JPRB &
+  &, 0.109724E+02_JPRB, 0.110927E+02_JPRB, 0.112128E+02_JPRB, 0.113327E+02_JPRB &
+  &, 0.114522E+02_JPRB, 0.115715E+02_JPRB, 0.116906E+02_JPRB &
+  &, 0.118093E+02_JPRB, 0.119278E+02_JPRB, 0.120459E+02_JPRB, 0.121638E+02_JPRB &
+  &, 0.122813E+02_JPRB, 0.123985E+02_JPRB, 0.125153E+02_JPRB &
+  &, 0.126317E+02_JPRB, 0.127479E+02_JPRB, 0.128636E+02_JPRB, 0.129789E+02_JPRB &
+  &, 0.130939E+02_JPRB, 0.132084E+02_JPRB, 0.133226E+02_JPRB &
+  &, 0.134364E+02_JPRB, 0.135497E+02_JPRB, 0.136625E+02_JPRB, 0.137750E+02_JPRB &
+  &, 0.138870E+02_JPRB, 0.139985E+02_JPRB, 0.141096E+02_JPRB &
+  &, 0.142203E+02_JPRB, 0.143304E+02_JPRB, 0.144400E+02_JPRB, 0.145493E+02_JPRB &
+  &, 0.146579E+02_JPRB, 0.147661E+02_JPRB, 0.148738E+02_JPRB &
+  &, 0.149809E+02_JPRB, 0.150876E+02_JPRB, 0.151937E+02_JPRB, 0.152993E+02_JPRB &
+  &, 0.154044E+02_JPRB, 0.155089E+02_JPRB, 0.156129E+02_JPRB &
+  &, 0.157162E+02_JPRB, 0.158191E+02_JPRB, 0.159214E+02_JPRB, 0.160231E+02_JPRB &
+  &, 0.161243E+02_JPRB, 0.162249E+02_JPRB, 0.163249E+02_JPRB/)
+XCW( 989, :) = (/ &
+  &  0.124302E+01_JPRB, 0.130811E+01_JPRB, 0.137489E+01_JPRB, 0.144336E+01_JPRB &
+  &, 0.151351E+01_JPRB, 0.158530E+01_JPRB, 0.165873E+01_JPRB &
+  &, 0.173377E+01_JPRB, 0.181041E+01_JPRB, 0.188862E+01_JPRB, 0.196839E+01_JPRB &
+  &, 0.204969E+01_JPRB, 0.213249E+01_JPRB, 0.221679E+01_JPRB &
+  &, 0.230255E+01_JPRB, 0.238975E+01_JPRB, 0.247837E+01_JPRB, 0.256838E+01_JPRB &
+  &, 0.265976E+01_JPRB, 0.275248E+01_JPRB, 0.284652E+01_JPRB &
+  &, 0.294185E+01_JPRB, 0.303844E+01_JPRB, 0.313628E+01_JPRB, 0.323533E+01_JPRB &
+  &, 0.333557E+01_JPRB, 0.343696E+01_JPRB, 0.353950E+01_JPRB &
+  &, 0.364313E+01_JPRB, 0.374785E+01_JPRB, 0.385362E+01_JPRB, 0.396042E+01_JPRB &
+  &, 0.406821E+01_JPRB, 0.417698E+01_JPRB, 0.428670E+01_JPRB &
+  &, 0.439733E+01_JPRB, 0.450885E+01_JPRB, 0.462124E+01_JPRB, 0.473448E+01_JPRB &
+  &, 0.484853E+01_JPRB, 0.496336E+01_JPRB, 0.507896E+01_JPRB &
+  &, 0.519530E+01_JPRB, 0.531233E+01_JPRB, 0.543007E+01_JPRB, 0.554846E+01_JPRB &
+  &, 0.566750E+01_JPRB, 0.578714E+01_JPRB, 0.590738E+01_JPRB &
+  &, 0.602818E+01_JPRB, 0.614953E+01_JPRB, 0.627139E+01_JPRB, 0.639375E+01_JPRB &
+  &, 0.651659E+01_JPRB, 0.663988E+01_JPRB, 0.676360E+01_JPRB &
+  &, 0.688771E+01_JPRB, 0.701225E+01_JPRB, 0.713713E+01_JPRB, 0.726237E+01_JPRB &
+  &, 0.738792E+01_JPRB, 0.751380E+01_JPRB, 0.763995E+01_JPRB &
+  &, 0.776638E+01_JPRB, 0.789305E+01_JPRB, 0.801995E+01_JPRB, 0.814706E+01_JPRB &
+  &, 0.827437E+01_JPRB, 0.840186E+01_JPRB, 0.852950E+01_JPRB &
+  &, 0.865727E+01_JPRB, 0.878518E+01_JPRB, 0.891319E+01_JPRB, 0.904129E+01_JPRB &
+  &, 0.916948E+01_JPRB, 0.929771E+01_JPRB, 0.942598E+01_JPRB &
+  &, 0.955429E+01_JPRB, 0.968260E+01_JPRB, 0.981093E+01_JPRB, 0.993924E+01_JPRB &
+  &, 0.100675E+02_JPRB, 0.101957E+02_JPRB, 0.103239E+02_JPRB &
+  &, 0.104520E+02_JPRB, 0.105800E+02_JPRB, 0.107079E+02_JPRB, 0.108357E+02_JPRB &
+  &, 0.109633E+02_JPRB, 0.110909E+02_JPRB, 0.112182E+02_JPRB &
+  &, 0.113454E+02_JPRB, 0.114725E+02_JPRB, 0.115993E+02_JPRB, 0.117260E+02_JPRB &
+  &, 0.118524E+02_JPRB, 0.119786E+02_JPRB, 0.121046E+02_JPRB &
+  &, 0.122304E+02_JPRB, 0.123559E+02_JPRB, 0.124811E+02_JPRB, 0.126061E+02_JPRB &
+  &, 0.127307E+02_JPRB, 0.128551E+02_JPRB, 0.129792E+02_JPRB &
+  &, 0.131029E+02_JPRB, 0.132264E+02_JPRB, 0.133495E+02_JPRB, 0.134723E+02_JPRB &
+  &, 0.135947E+02_JPRB, 0.137167E+02_JPRB, 0.138385E+02_JPRB &
+  &, 0.139598E+02_JPRB, 0.140807E+02_JPRB, 0.142012E+02_JPRB, 0.143214E+02_JPRB &
+  &, 0.144411E+02_JPRB, 0.145604E+02_JPRB, 0.146793E+02_JPRB &
+  &, 0.147978E+02_JPRB, 0.149158E+02_JPRB, 0.150334E+02_JPRB, 0.151506E+02_JPRB &
+  &, 0.152672E+02_JPRB, 0.153834E+02_JPRB, 0.154992E+02_JPRB &
+  &, 0.156144E+02_JPRB, 0.157292E+02_JPRB, 0.158435E+02_JPRB, 0.159572E+02_JPRB &
+  &, 0.160705E+02_JPRB, 0.161833E+02_JPRB, 0.162956E+02_JPRB &
+  &, 0.164073E+02_JPRB, 0.165185E+02_JPRB, 0.166292E+02_JPRB, 0.167393E+02_JPRB &
+  &, 0.168489E+02_JPRB, 0.169579E+02_JPRB, 0.170664E+02_JPRB/)
+XCW( 990, :) = (/ &
+  &  0.124718E+01_JPRB, 0.131348E+01_JPRB, 0.138156E+01_JPRB, 0.145140E+01_JPRB &
+  &, 0.152298E+01_JPRB, 0.159628E+01_JPRB, 0.167130E+01_JPRB &
+  &, 0.174800E+01_JPRB, 0.182637E+01_JPRB, 0.190640E+01_JPRB, 0.198805E+01_JPRB &
+  &, 0.207131E+01_JPRB, 0.215615E+01_JPRB, 0.224256E+01_JPRB &
+  &, 0.233051E+01_JPRB, 0.241998E+01_JPRB, 0.251094E+01_JPRB, 0.260337E+01_JPRB &
+  &, 0.269724E+01_JPRB, 0.279253E+01_JPRB, 0.288921E+01_JPRB &
+  &, 0.298727E+01_JPRB, 0.308666E+01_JPRB, 0.318737E+01_JPRB, 0.328937E+01_JPRB &
+  &, 0.339263E+01_JPRB, 0.349713E+01_JPRB, 0.360284E+01_JPRB &
+  &, 0.370973E+01_JPRB, 0.381778E+01_JPRB, 0.392695E+01_JPRB, 0.403723E+01_JPRB &
+  &, 0.414857E+01_JPRB, 0.426097E+01_JPRB, 0.437439E+01_JPRB &
+  &, 0.448879E+01_JPRB, 0.460416E+01_JPRB, 0.472048E+01_JPRB, 0.483771E+01_JPRB &
+  &, 0.495583E+01_JPRB, 0.507480E+01_JPRB, 0.519461E+01_JPRB &
+  &, 0.531523E+01_JPRB, 0.543663E+01_JPRB, 0.555880E+01_JPRB, 0.568169E+01_JPRB &
+  &, 0.580529E+01_JPRB, 0.592958E+01_JPRB, 0.605453E+01_JPRB &
+  &, 0.618012E+01_JPRB, 0.630632E+01_JPRB, 0.643310E+01_JPRB, 0.656045E+01_JPRB &
+  &, 0.668836E+01_JPRB, 0.681677E+01_JPRB, 0.694569E+01_JPRB &
+  &, 0.707509E+01_JPRB, 0.720494E+01_JPRB, 0.733523E+01_JPRB, 0.746593E+01_JPRB &
+  &, 0.759703E+01_JPRB, 0.772849E+01_JPRB, 0.786030E+01_JPRB &
+  &, 0.799245E+01_JPRB, 0.812492E+01_JPRB, 0.825767E+01_JPRB, 0.839072E+01_JPRB &
+  &, 0.852400E+01_JPRB, 0.865753E+01_JPRB, 0.879130E+01_JPRB &
+  &, 0.892526E+01_JPRB, 0.905939E+01_JPRB, 0.919371E+01_JPRB, 0.932816E+01_JPRB &
+  &, 0.946276E+01_JPRB, 0.959748E+01_JPRB, 0.973230E+01_JPRB &
+  &, 0.986721E+01_JPRB, 0.100022E+02_JPRB, 0.101372E+02_JPRB, 0.102723E+02_JPRB &
+  &, 0.104074E+02_JPRB, 0.105425E+02_JPRB, 0.106777E+02_JPRB &
+  &, 0.108127E+02_JPRB, 0.109478E+02_JPRB, 0.110829E+02_JPRB, 0.112178E+02_JPRB &
+  &, 0.113527E+02_JPRB, 0.114875E+02_JPRB, 0.116222E+02_JPRB &
+  &, 0.117569E+02_JPRB, 0.118913E+02_JPRB, 0.120257E+02_JPRB, 0.121599E+02_JPRB &
+  &, 0.122940E+02_JPRB, 0.124279E+02_JPRB, 0.125615E+02_JPRB &
+  &, 0.126951E+02_JPRB, 0.128284E+02_JPRB, 0.129615E+02_JPRB, 0.130943E+02_JPRB &
+  &, 0.132270E+02_JPRB, 0.133594E+02_JPRB, 0.134915E+02_JPRB &
+  &, 0.136234E+02_JPRB, 0.137550E+02_JPRB, 0.138863E+02_JPRB, 0.140174E+02_JPRB &
+  &, 0.141481E+02_JPRB, 0.142785E+02_JPRB, 0.144086E+02_JPRB &
+  &, 0.145383E+02_JPRB, 0.146678E+02_JPRB, 0.147968E+02_JPRB, 0.149256E+02_JPRB &
+  &, 0.150539E+02_JPRB, 0.151819E+02_JPRB, 0.153095E+02_JPRB &
+  &, 0.154367E+02_JPRB, 0.155636E+02_JPRB, 0.156899E+02_JPRB, 0.158160E+02_JPRB &
+  &, 0.159415E+02_JPRB, 0.160667E+02_JPRB, 0.161914E+02_JPRB &
+  &, 0.163157E+02_JPRB, 0.164396E+02_JPRB, 0.165630E+02_JPRB, 0.166859E+02_JPRB &
+  &, 0.168084E+02_JPRB, 0.169304E+02_JPRB, 0.170519E+02_JPRB &
+  &, 0.171729E+02_JPRB, 0.172935E+02_JPRB, 0.174135E+02_JPRB, 0.175330E+02_JPRB &
+  &, 0.176520E+02_JPRB, 0.177706E+02_JPRB, 0.178886E+02_JPRB/)
+XCW( 991, :) = (/ &
+  &  0.125173E+01_JPRB, 0.131937E+01_JPRB, 0.138887E+01_JPRB, 0.146020E+01_JPRB &
+  &, 0.153336E+01_JPRB, 0.160833E+01_JPRB, 0.168509E+01_JPRB &
+  &, 0.176362E+01_JPRB, 0.184390E+01_JPRB, 0.192592E+01_JPRB, 0.200965E+01_JPRB &
+  &, 0.209507E+01_JPRB, 0.218217E+01_JPRB, 0.227091E+01_JPRB &
+  &, 0.236127E+01_JPRB, 0.245324E+01_JPRB, 0.254679E+01_JPRB, 0.264189E+01_JPRB &
+  &, 0.273852E+01_JPRB, 0.283665E+01_JPRB, 0.293626E+01_JPRB &
+  &, 0.303732E+01_JPRB, 0.313982E+01_JPRB, 0.324371E+01_JPRB, 0.334897E+01_JPRB &
+  &, 0.345559E+01_JPRB, 0.356352E+01_JPRB, 0.367275E+01_JPRB &
+  &, 0.378324E+01_JPRB, 0.389498E+01_JPRB, 0.400792E+01_JPRB, 0.412205E+01_JPRB &
+  &, 0.423734E+01_JPRB, 0.435376E+01_JPRB, 0.447128E+01_JPRB &
+  &, 0.458988E+01_JPRB, 0.470953E+01_JPRB, 0.483019E+01_JPRB, 0.495186E+01_JPRB &
+  &, 0.507450E+01_JPRB, 0.519807E+01_JPRB, 0.532256E+01_JPRB &
+  &, 0.544794E+01_JPRB, 0.557419E+01_JPRB, 0.570128E+01_JPRB, 0.582918E+01_JPRB &
+  &, 0.595787E+01_JPRB, 0.608732E+01_JPRB, 0.621751E+01_JPRB &
+  &, 0.634842E+01_JPRB, 0.648002E+01_JPRB, 0.661228E+01_JPRB, 0.674520E+01_JPRB &
+  &, 0.687872E+01_JPRB, 0.701285E+01_JPRB, 0.714755E+01_JPRB &
+  &, 0.728281E+01_JPRB, 0.741861E+01_JPRB, 0.755491E+01_JPRB, 0.769170E+01_JPRB &
+  &, 0.782896E+01_JPRB, 0.796667E+01_JPRB, 0.810479E+01_JPRB &
+  &, 0.824333E+01_JPRB, 0.838227E+01_JPRB, 0.852156E+01_JPRB, 0.866120E+01_JPRB &
+  &, 0.880117E+01_JPRB, 0.894145E+01_JPRB, 0.908203E+01_JPRB &
+  &, 0.922288E+01_JPRB, 0.936398E+01_JPRB, 0.950533E+01_JPRB, 0.964689E+01_JPRB &
+  &, 0.978868E+01_JPRB, 0.993064E+01_JPRB, 0.100728E+02_JPRB &
+  &, 0.102150E+02_JPRB, 0.103575E+02_JPRB, 0.105000E+02_JPRB, 0.106427E+02_JPRB &
+  &, 0.107854E+02_JPRB, 0.109283E+02_JPRB, 0.110712E+02_JPRB &
+  &, 0.112141E+02_JPRB, 0.113571E+02_JPRB, 0.115001E+02_JPRB, 0.116431E+02_JPRB &
+  &, 0.117861E+02_JPRB, 0.119291E+02_JPRB, 0.120720E+02_JPRB &
+  &, 0.122149E+02_JPRB, 0.123577E+02_JPRB, 0.125005E+02_JPRB, 0.126432E+02_JPRB &
+  &, 0.127858E+02_JPRB, 0.129282E+02_JPRB, 0.130706E+02_JPRB &
+  &, 0.132128E+02_JPRB, 0.133549E+02_JPRB, 0.134968E+02_JPRB, 0.136386E+02_JPRB &
+  &, 0.137802E+02_JPRB, 0.139216E+02_JPRB, 0.140628E+02_JPRB &
+  &, 0.142038E+02_JPRB, 0.143445E+02_JPRB, 0.144851E+02_JPRB, 0.146254E+02_JPRB &
+  &, 0.147654E+02_JPRB, 0.149052E+02_JPRB, 0.150448E+02_JPRB &
+  &, 0.151840E+02_JPRB, 0.153230E+02_JPRB, 0.154617E+02_JPRB, 0.156000E+02_JPRB &
+  &, 0.157381E+02_JPRB, 0.158758E+02_JPRB, 0.160132E+02_JPRB &
+  &, 0.161503E+02_JPRB, 0.162870E+02_JPRB, 0.164234E+02_JPRB, 0.165594E+02_JPRB &
+  &, 0.166950E+02_JPRB, 0.168303E+02_JPRB, 0.169652E+02_JPRB &
+  &, 0.170996E+02_JPRB, 0.172338E+02_JPRB, 0.173674E+02_JPRB, 0.175007E+02_JPRB &
+  &, 0.176335E+02_JPRB, 0.177659E+02_JPRB, 0.178979E+02_JPRB &
+  &, 0.180294E+02_JPRB, 0.181605E+02_JPRB, 0.182912E+02_JPRB, 0.184214E+02_JPRB &
+  &, 0.185511E+02_JPRB, 0.186803E+02_JPRB, 0.188090E+02_JPRB/)
+XCW( 992, :) = (/ &
+  &  0.125676E+01_JPRB, 0.132588E+01_JPRB, 0.139695E+01_JPRB, 0.146994E+01_JPRB &
+  &, 0.154486E+01_JPRB, 0.162167E+01_JPRB, 0.170037E+01_JPRB &
+  &, 0.178094E+01_JPRB, 0.186335E+01_JPRB, 0.194759E+01_JPRB, 0.203364E+01_JPRB &
+  &, 0.212147E+01_JPRB, 0.221107E+01_JPRB, 0.230242E+01_JPRB &
+  &, 0.239548E+01_JPRB, 0.249024E+01_JPRB, 0.258668E+01_JPRB, 0.268476E+01_JPRB &
+  &, 0.278447E+01_JPRB, 0.288578E+01_JPRB, 0.298867E+01_JPRB &
+  &, 0.309310E+01_JPRB, 0.319906E+01_JPRB, 0.330651E+01_JPRB, 0.341544E+01_JPRB &
+  &, 0.352580E+01_JPRB, 0.363759E+01_JPRB, 0.375076E+01_JPRB &
+  &, 0.386529E+01_JPRB, 0.398116E+01_JPRB, 0.409834E+01_JPRB, 0.421679E+01_JPRB &
+  &, 0.433650E+01_JPRB, 0.445744E+01_JPRB, 0.457957E+01_JPRB &
+  &, 0.470287E+01_JPRB, 0.482728E+01_JPRB, 0.495287E+01_JPRB, 0.507952E+01_JPRB &
+  &, 0.520723E+01_JPRB, 0.533597E+01_JPRB, 0.546572E+01_JPRB &
+  &, 0.559646E+01_JPRB, 0.572815E+01_JPRB, 0.586077E+01_JPRB, 0.599430E+01_JPRB &
+  &, 0.612871E+01_JPRB, 0.626398E+01_JPRB, 0.640006E+01_JPRB &
+  &, 0.653696E+01_JPRB, 0.667463E+01_JPRB, 0.681307E+01_JPRB, 0.695224E+01_JPRB &
+  &, 0.709211E+01_JPRB, 0.723267E+01_JPRB, 0.737390E+01_JPRB &
+  &, 0.751576E+01_JPRB, 0.765825E+01_JPRB, 0.780134E+01_JPRB, 0.794500E+01_JPRB &
+  &, 0.808919E+01_JPRB, 0.823394E+01_JPRB, 0.837920E+01_JPRB &
+  &, 0.852495E+01_JPRB, 0.867117E+01_JPRB, 0.881782E+01_JPRB, 0.896493E+01_JPRB &
+  &, 0.911243E+01_JPRB, 0.926035E+01_JPRB, 0.940861E+01_JPRB &
+  &, 0.955725E+01_JPRB, 0.970624E+01_JPRB, 0.985553E+01_JPRB, 0.100051E+02_JPRB &
+  &, 0.101550E+02_JPRB, 0.103051E+02_JPRB, 0.104555E+02_JPRB &
+  &, 0.106062E+02_JPRB, 0.107570E+02_JPRB, 0.109081E+02_JPRB, 0.110593E+02_JPRB &
+  &, 0.112107E+02_JPRB, 0.113623E+02_JPRB, 0.115140E+02_JPRB &
+  &, 0.116658E+02_JPRB, 0.118177E+02_JPRB, 0.119697E+02_JPRB, 0.121218E+02_JPRB &
+  &, 0.122740E+02_JPRB, 0.124262E+02_JPRB, 0.125785E+02_JPRB &
+  &, 0.127308E+02_JPRB, 0.128831E+02_JPRB, 0.130354E+02_JPRB, 0.131877E+02_JPRB &
+  &, 0.133400E+02_JPRB, 0.134922E+02_JPRB, 0.136443E+02_JPRB &
+  &, 0.137965E+02_JPRB, 0.139485E+02_JPRB, 0.141005E+02_JPRB, 0.142523E+02_JPRB &
+  &, 0.144040E+02_JPRB, 0.145557E+02_JPRB, 0.147071E+02_JPRB &
+  &, 0.148585E+02_JPRB, 0.150097E+02_JPRB, 0.151607E+02_JPRB, 0.153116E+02_JPRB &
+  &, 0.154623E+02_JPRB, 0.156128E+02_JPRB, 0.157630E+02_JPRB &
+  &, 0.159131E+02_JPRB, 0.160629E+02_JPRB, 0.162125E+02_JPRB, 0.163619E+02_JPRB &
+  &, 0.165110E+02_JPRB, 0.166598E+02_JPRB, 0.168084E+02_JPRB &
+  &, 0.169567E+02_JPRB, 0.171047E+02_JPRB, 0.172524E+02_JPRB, 0.173998E+02_JPRB &
+  &, 0.175469E+02_JPRB, 0.176937E+02_JPRB, 0.178402E+02_JPRB &
+  &, 0.179863E+02_JPRB, 0.181320E+02_JPRB, 0.182775E+02_JPRB, 0.184225E+02_JPRB &
+  &, 0.185672E+02_JPRB, 0.187115E+02_JPRB, 0.188555E+02_JPRB &
+  &, 0.189990E+02_JPRB, 0.191422E+02_JPRB, 0.192849E+02_JPRB, 0.194273E+02_JPRB &
+  &, 0.195692E+02_JPRB, 0.197107E+02_JPRB, 0.198517E+02_JPRB/)
+XCW( 993, :) = (/ &
+  &  0.126240E+01_JPRB, 0.133318E+01_JPRB, 0.140601E+01_JPRB, 0.148088E+01_JPRB &
+  &, 0.155776E+01_JPRB, 0.163666E+01_JPRB, 0.171755E+01_JPRB &
+  &, 0.180041E+01_JPRB, 0.188522E+01_JPRB, 0.197197E+01_JPRB, 0.206063E+01_JPRB &
+  &, 0.215119E+01_JPRB, 0.224363E+01_JPRB, 0.233792E+01_JPRB &
+  &, 0.243404E+01_JPRB, 0.253196E+01_JPRB, 0.263167E+01_JPRB, 0.273314E+01_JPRB &
+  &, 0.283634E+01_JPRB, 0.294126E+01_JPRB, 0.304785E+01_JPRB &
+  &, 0.315611E+01_JPRB, 0.326600E+01_JPRB, 0.337750E+01_JPRB, 0.349058E+01_JPRB &
+  &, 0.360521E+01_JPRB, 0.372137E+01_JPRB, 0.383903E+01_JPRB &
+  &, 0.395815E+01_JPRB, 0.407872E+01_JPRB, 0.420072E+01_JPRB, 0.432409E+01_JPRB &
+  &, 0.444883E+01_JPRB, 0.457490E+01_JPRB, 0.470228E+01_JPRB &
+  &, 0.483094E+01_JPRB, 0.496084E+01_JPRB, 0.509197E+01_JPRB, 0.522429E+01_JPRB &
+  &, 0.535779E+01_JPRB, 0.549243E+01_JPRB, 0.562818E+01_JPRB &
+  &, 0.576503E+01_JPRB, 0.590292E+01_JPRB, 0.604187E+01_JPRB, 0.618181E+01_JPRB &
+  &, 0.632275E+01_JPRB, 0.646465E+01_JPRB, 0.660747E+01_JPRB &
+  &, 0.675120E+01_JPRB, 0.689583E+01_JPRB, 0.704130E+01_JPRB, 0.718761E+01_JPRB &
+  &, 0.733474E+01_JPRB, 0.748266E+01_JPRB, 0.763134E+01_JPRB &
+  &, 0.778075E+01_JPRB, 0.793090E+01_JPRB, 0.808173E+01_JPRB, 0.823324E+01_JPRB &
+  &, 0.838541E+01_JPRB, 0.853821E+01_JPRB, 0.869160E+01_JPRB &
+  &, 0.884560E+01_JPRB, 0.900017E+01_JPRB, 0.915528E+01_JPRB, 0.931092E+01_JPRB &
+  &, 0.946706E+01_JPRB, 0.962370E+01_JPRB, 0.978081E+01_JPRB &
+  &, 0.993838E+01_JPRB, 0.100964E+02_JPRB, 0.102548E+02_JPRB, 0.104136E+02_JPRB &
+  &, 0.105727E+02_JPRB, 0.107323E+02_JPRB, 0.108921E+02_JPRB &
+  &, 0.110524E+02_JPRB, 0.112129E+02_JPRB, 0.113737E+02_JPRB, 0.115347E+02_JPRB &
+  &, 0.116961E+02_JPRB, 0.118577E+02_JPRB, 0.120195E+02_JPRB &
+  &, 0.121815E+02_JPRB, 0.123437E+02_JPRB, 0.125061E+02_JPRB, 0.126687E+02_JPRB &
+  &, 0.128314E+02_JPRB, 0.129943E+02_JPRB, 0.131573E+02_JPRB &
+  &, 0.133204E+02_JPRB, 0.134836E+02_JPRB, 0.136469E+02_JPRB, 0.138102E+02_JPRB &
+  &, 0.139736E+02_JPRB, 0.141371E+02_JPRB, 0.143005E+02_JPRB &
+  &, 0.144640E+02_JPRB, 0.146275E+02_JPRB, 0.147910E+02_JPRB, 0.149545E+02_JPRB &
+  &, 0.151180E+02_JPRB, 0.152814E+02_JPRB, 0.154447E+02_JPRB &
+  &, 0.156081E+02_JPRB, 0.157713E+02_JPRB, 0.159344E+02_JPRB, 0.160974E+02_JPRB &
+  &, 0.162604E+02_JPRB, 0.164231E+02_JPRB, 0.165858E+02_JPRB &
+  &, 0.167484E+02_JPRB, 0.169108E+02_JPRB, 0.170730E+02_JPRB, 0.172351E+02_JPRB &
+  &, 0.173969E+02_JPRB, 0.175586E+02_JPRB, 0.177201E+02_JPRB &
+  &, 0.178814E+02_JPRB, 0.180425E+02_JPRB, 0.182033E+02_JPRB, 0.183639E+02_JPRB &
+  &, 0.185243E+02_JPRB, 0.186844E+02_JPRB, 0.188443E+02_JPRB &
+  &, 0.190039E+02_JPRB, 0.191632E+02_JPRB, 0.193222E+02_JPRB, 0.194809E+02_JPRB &
+  &, 0.196394E+02_JPRB, 0.197975E+02_JPRB, 0.199553E+02_JPRB &
+  &, 0.201128E+02_JPRB, 0.202699E+02_JPRB, 0.204267E+02_JPRB, 0.205832E+02_JPRB &
+  &, 0.207393E+02_JPRB, 0.208951E+02_JPRB, 0.210504E+02_JPRB/)
+XCW( 994, :) = (/ &
+  &  0.126881E+01_JPRB, 0.134149E+01_JPRB, 0.141634E+01_JPRB, 0.149335E+01_JPRB &
+  &, 0.157250E+01_JPRB, 0.165378E+01_JPRB, 0.173717E+01_JPRB &
+  &, 0.182267E+01_JPRB, 0.191024E+01_JPRB, 0.199987E+01_JPRB, 0.209155E+01_JPRB &
+  &, 0.218525E+01_JPRB, 0.228095E+01_JPRB, 0.237863E+01_JPRB &
+  &, 0.247827E+01_JPRB, 0.257984E+01_JPRB, 0.268332E+01_JPRB, 0.278870E+01_JPRB &
+  &, 0.289593E+01_JPRB, 0.300501E+01_JPRB, 0.311590E+01_JPRB &
+  &, 0.322857E+01_JPRB, 0.334301E+01_JPRB, 0.345919E+01_JPRB, 0.357707E+01_JPRB &
+  &, 0.369664E+01_JPRB, 0.381785E+01_JPRB, 0.394070E+01_JPRB &
+  &, 0.406515E+01_JPRB, 0.419117E+01_JPRB, 0.431874E+01_JPRB, 0.444782E+01_JPRB &
+  &, 0.457839E+01_JPRB, 0.471042E+01_JPRB, 0.484388E+01_JPRB &
+  &, 0.497874E+01_JPRB, 0.511499E+01_JPRB, 0.525259E+01_JPRB, 0.539151E+01_JPRB &
+  &, 0.553172E+01_JPRB, 0.567320E+01_JPRB, 0.581592E+01_JPRB &
+  &, 0.595986E+01_JPRB, 0.610497E+01_JPRB, 0.625126E+01_JPRB, 0.639867E+01_JPRB &
+  &, 0.654719E+01_JPRB, 0.669679E+01_JPRB, 0.684746E+01_JPRB &
+  &, 0.699915E+01_JPRB, 0.715185E+01_JPRB, 0.730552E+01_JPRB, 0.746016E+01_JPRB &
+  &, 0.761573E+01_JPRB, 0.777220E+01_JPRB, 0.792956E+01_JPRB &
+  &, 0.808778E+01_JPRB, 0.824685E+01_JPRB, 0.840672E+01_JPRB, 0.856738E+01_JPRB &
+  &, 0.872876E+01_JPRB, 0.889101E+01_JPRB, 0.905392E+01_JPRB &
+  &, 0.921753E+01_JPRB, 0.938183E+01_JPRB, 0.954679E+01_JPRB, 0.971240E+01_JPRB &
+  &, 0.987863E+01_JPRB, 0.100455E+02_JPRB, 0.102129E+02_JPRB &
+  &, 0.103808E+02_JPRB, 0.105494E+02_JPRB, 0.107184E+02_JPRB, 0.108880E+02_JPRB &
+  &, 0.110580E+02_JPRB, 0.112285E+02_JPRB, 0.113995E+02_JPRB &
+  &, 0.115709E+02_JPRB, 0.117427E+02_JPRB, 0.119149E+02_JPRB, 0.120875E+02_JPRB &
+  &, 0.122605E+02_JPRB, 0.124338E+02_JPRB, 0.126075E+02_JPRB &
+  &, 0.127814E+02_JPRB, 0.129557E+02_JPRB, 0.131303E+02_JPRB, 0.133051E+02_JPRB &
+  &, 0.134802E+02_JPRB, 0.136555E+02_JPRB, 0.138311E+02_JPRB &
+  &, 0.140068E+02_JPRB, 0.141828E+02_JPRB, 0.143590E+02_JPRB, 0.145353E+02_JPRB &
+  &, 0.147118E+02_JPRB, 0.148884E+02_JPRB, 0.150652E+02_JPRB &
+  &, 0.152420E+02_JPRB, 0.154190E+02_JPRB, 0.155961E+02_JPRB, 0.157732E+02_JPRB &
+  &, 0.159504E+02_JPRB, 0.161277E+02_JPRB, 0.163049E+02_JPRB &
+  &, 0.164823E+02_JPRB, 0.166597E+02_JPRB, 0.168370E+02_JPRB, 0.170144E+02_JPRB &
+  &, 0.171918E+02_JPRB, 0.173691E+02_JPRB, 0.175464E+02_JPRB &
+  &, 0.177236E+02_JPRB, 0.179008E+02_JPRB, 0.180779E+02_JPRB, 0.182549E+02_JPRB &
+  &, 0.184319E+02_JPRB, 0.186087E+02_JPRB, 0.187854E+02_JPRB &
+  &, 0.189620E+02_JPRB, 0.191385E+02_JPRB, 0.193148E+02_JPRB, 0.194910E+02_JPRB &
+  &, 0.196670E+02_JPRB, 0.198429E+02_JPRB, 0.200186E+02_JPRB &
+  &, 0.201941E+02_JPRB, 0.203694E+02_JPRB, 0.205445E+02_JPRB, 0.207194E+02_JPRB &
+  &, 0.208941E+02_JPRB, 0.210685E+02_JPRB, 0.212427E+02_JPRB &
+  &, 0.214167E+02_JPRB, 0.215904E+02_JPRB, 0.217638E+02_JPRB, 0.219371E+02_JPRB &
+  &, 0.221100E+02_JPRB, 0.222826E+02_JPRB, 0.224549E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART142',1,ZHOOK_HANDLE)
+END SUBROUTINE PART142
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART143
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART143',0,ZHOOK_HANDLE)
+
+XCW( 995, :) = (/ &
+  &  0.127628E+01_JPRB, 0.135118E+01_JPRB, 0.142839E+01_JPRB, 0.150790E+01_JPRB &
+  &, 0.158971E+01_JPRB, 0.167379E+01_JPRB, 0.176013E+01_JPRB &
+  &, 0.184872E+01_JPRB, 0.193953E+01_JPRB, 0.203256E+01_JPRB, 0.212779E+01_JPRB &
+  &, 0.222518E+01_JPRB, 0.232473E+01_JPRB, 0.242642E+01_JPRB &
+  &, 0.253021E+01_JPRB, 0.263609E+01_JPRB, 0.274404E+01_JPRB, 0.285402E+01_JPRB &
+  &, 0.296603E+01_JPRB, 0.308003E+01_JPRB, 0.319600E+01_JPRB &
+  &, 0.331391E+01_JPRB, 0.343373E+01_JPRB, 0.355545E+01_JPRB, 0.367903E+01_JPRB &
+  &, 0.380445E+01_JPRB, 0.393167E+01_JPRB, 0.406068E+01_JPRB &
+  &, 0.419144E+01_JPRB, 0.432392E+01_JPRB, 0.445811E+01_JPRB, 0.459396E+01_JPRB &
+  &, 0.473146E+01_JPRB, 0.487057E+01_JPRB, 0.501127E+01_JPRB &
+  &, 0.515352E+01_JPRB, 0.529731E+01_JPRB, 0.544260E+01_JPRB, 0.558936E+01_JPRB &
+  &, 0.573757E+01_JPRB, 0.588720E+01_JPRB, 0.603822E+01_JPRB &
+  &, 0.619060E+01_JPRB, 0.634432E+01_JPRB, 0.649935E+01_JPRB, 0.665566E+01_JPRB &
+  &, 0.681323E+01_JPRB, 0.697203E+01_JPRB, 0.713203E+01_JPRB &
+  &, 0.729321E+01_JPRB, 0.745555E+01_JPRB, 0.761901E+01_JPRB, 0.778358E+01_JPRB &
+  &, 0.794922E+01_JPRB, 0.811592E+01_JPRB, 0.828365E+01_JPRB &
+  &, 0.845238E+01_JPRB, 0.862209E+01_JPRB, 0.879276E+01_JPRB, 0.896438E+01_JPRB &
+  &, 0.913690E+01_JPRB, 0.931030E+01_JPRB, 0.948459E+01_JPRB &
+  &, 0.965971E+01_JPRB, 0.983567E+01_JPRB, 0.100124E+02_JPRB, 0.101900E+02_JPRB &
+  &, 0.103683E+02_JPRB, 0.105473E+02_JPRB, 0.107271E+02_JPRB &
+  &, 0.109075E+02_JPRB, 0.110886E+02_JPRB, 0.112705E+02_JPRB, 0.114529E+02_JPRB &
+  &, 0.116360E+02_JPRB, 0.118196E+02_JPRB, 0.120039E+02_JPRB &
+  &, 0.121887E+02_JPRB, 0.123741E+02_JPRB, 0.125600E+02_JPRB, 0.127465E+02_JPRB &
+  &, 0.129334E+02_JPRB, 0.131208E+02_JPRB, 0.133087E+02_JPRB &
+  &, 0.134970E+02_JPRB, 0.136857E+02_JPRB, 0.138749E+02_JPRB, 0.140645E+02_JPRB &
+  &, 0.142544E+02_JPRB, 0.144447E+02_JPRB, 0.146354E+02_JPRB &
+  &, 0.148264E+02_JPRB, 0.150177E+02_JPRB, 0.152094E+02_JPRB, 0.154013E+02_JPRB &
+  &, 0.155935E+02_JPRB, 0.157860E+02_JPRB, 0.159787E+02_JPRB &
+  &, 0.161717E+02_JPRB, 0.163649E+02_JPRB, 0.165584E+02_JPRB, 0.167519E+02_JPRB &
+  &, 0.169458E+02_JPRB, 0.171397E+02_JPRB, 0.173339E+02_JPRB &
+  &, 0.175281E+02_JPRB, 0.177226E+02_JPRB, 0.179171E+02_JPRB, 0.181118E+02_JPRB &
+  &, 0.183065E+02_JPRB, 0.185013E+02_JPRB, 0.186963E+02_JPRB &
+  &, 0.188912E+02_JPRB, 0.190863E+02_JPRB, 0.192814E+02_JPRB, 0.194765E+02_JPRB &
+  &, 0.196716E+02_JPRB, 0.198667E+02_JPRB, 0.200619E+02_JPRB &
+  &, 0.202570E+02_JPRB, 0.204521E+02_JPRB, 0.206472E+02_JPRB, 0.208423E+02_JPRB &
+  &, 0.210372E+02_JPRB, 0.212322E+02_JPRB, 0.214271E+02_JPRB &
+  &, 0.216219E+02_JPRB, 0.218165E+02_JPRB, 0.220111E+02_JPRB, 0.222056E+02_JPRB &
+  &, 0.224000E+02_JPRB, 0.225943E+02_JPRB, 0.227884E+02_JPRB &
+  &, 0.229823E+02_JPRB, 0.231762E+02_JPRB, 0.233698E+02_JPRB, 0.235633E+02_JPRB &
+  &, 0.237566E+02_JPRB, 0.239498E+02_JPRB, 0.241427E+02_JPRB/)
+XCW( 996, :) = (/ &
+  &  0.128526E+01_JPRB, 0.136283E+01_JPRB, 0.144290E+01_JPRB, 0.152545E+01_JPRB &
+  &, 0.161046E+01_JPRB, 0.169794E+01_JPRB, 0.178786E+01_JPRB &
+  &, 0.188021E+01_JPRB, 0.197498E+01_JPRB, 0.207214E+01_JPRB, 0.217168E+01_JPRB &
+  &, 0.227359E+01_JPRB, 0.237783E+01_JPRB, 0.248440E+01_JPRB &
+  &, 0.259327E+01_JPRB, 0.270441E+01_JPRB, 0.281782E+01_JPRB, 0.293345E+01_JPRB &
+  &, 0.305130E+01_JPRB, 0.317132E+01_JPRB, 0.329351E+01_JPRB &
+  &, 0.341783E+01_JPRB, 0.354427E+01_JPRB, 0.367278E+01_JPRB, 0.380335E+01_JPRB &
+  &, 0.393594E+01_JPRB, 0.407054E+01_JPRB, 0.420712E+01_JPRB &
+  &, 0.434563E+01_JPRB, 0.448607E+01_JPRB, 0.462839E+01_JPRB, 0.477258E+01_JPRB &
+  &, 0.491861E+01_JPRB, 0.506643E+01_JPRB, 0.521603E+01_JPRB &
+  &, 0.536739E+01_JPRB, 0.552045E+01_JPRB, 0.567522E+01_JPRB, 0.583165E+01_JPRB &
+  &, 0.598971E+01_JPRB, 0.614939E+01_JPRB, 0.631064E+01_JPRB &
+  &, 0.647344E+01_JPRB, 0.663777E+01_JPRB, 0.680360E+01_JPRB, 0.697089E+01_JPRB &
+  &, 0.713962E+01_JPRB, 0.730978E+01_JPRB, 0.748133E+01_JPRB &
+  &, 0.765424E+01_JPRB, 0.782848E+01_JPRB, 0.800404E+01_JPRB, 0.818088E+01_JPRB &
+  &, 0.835900E+01_JPRB, 0.853833E+01_JPRB, 0.871888E+01_JPRB &
+  &, 0.890063E+01_JPRB, 0.908354E+01_JPRB, 0.926757E+01_JPRB, 0.945273E+01_JPRB &
+  &, 0.963898E+01_JPRB, 0.982631E+01_JPRB, 0.100147E+02_JPRB &
+  &, 0.102041E+02_JPRB, 0.103945E+02_JPRB, 0.105858E+02_JPRB, 0.107782E+02_JPRB &
+  &, 0.109714E+02_JPRB, 0.111656E+02_JPRB, 0.113607E+02_JPRB &
+  &, 0.115566E+02_JPRB, 0.117534E+02_JPRB, 0.119511E+02_JPRB, 0.121495E+02_JPRB &
+  &, 0.123488E+02_JPRB, 0.125488E+02_JPRB, 0.127496E+02_JPRB &
+  &, 0.129511E+02_JPRB, 0.131533E+02_JPRB, 0.133563E+02_JPRB, 0.135599E+02_JPRB &
+  &, 0.137642E+02_JPRB, 0.139691E+02_JPRB, 0.141747E+02_JPRB &
+  &, 0.143809E+02_JPRB, 0.145877E+02_JPRB, 0.147950E+02_JPRB, 0.150029E+02_JPRB &
+  &, 0.152114E+02_JPRB, 0.154204E+02_JPRB, 0.156299E+02_JPRB &
+  &, 0.158399E+02_JPRB, 0.160504E+02_JPRB, 0.162613E+02_JPRB, 0.164728E+02_JPRB &
+  &, 0.166846E+02_JPRB, 0.168969E+02_JPRB, 0.171096E+02_JPRB &
+  &, 0.173227E+02_JPRB, 0.175361E+02_JPRB, 0.177499E+02_JPRB, 0.179641E+02_JPRB &
+  &, 0.181787E+02_JPRB, 0.183935E+02_JPRB, 0.186087E+02_JPRB &
+  &, 0.188241E+02_JPRB, 0.190399E+02_JPRB, 0.192559E+02_JPRB, 0.194722E+02_JPRB &
+  &, 0.196887E+02_JPRB, 0.199055E+02_JPRB, 0.201225E+02_JPRB &
+  &, 0.203397E+02_JPRB, 0.205571E+02_JPRB, 0.207747E+02_JPRB, 0.209925E+02_JPRB &
+  &, 0.212104E+02_JPRB, 0.214286E+02_JPRB, 0.216468E+02_JPRB &
+  &, 0.218652E+02_JPRB, 0.220837E+02_JPRB, 0.223023E+02_JPRB, 0.225210E+02_JPRB &
+  &, 0.227398E+02_JPRB, 0.229587E+02_JPRB, 0.231776E+02_JPRB &
+  &, 0.233966E+02_JPRB, 0.236157E+02_JPRB, 0.238348E+02_JPRB, 0.240539E+02_JPRB &
+  &, 0.242731E+02_JPRB, 0.244923E+02_JPRB, 0.247114E+02_JPRB &
+  &, 0.249306E+02_JPRB, 0.251497E+02_JPRB, 0.253687E+02_JPRB, 0.255878E+02_JPRB &
+  &, 0.258068E+02_JPRB, 0.260259E+02_JPRB, 0.262448E+02_JPRB/)
+XCW( 997, :) = (/ &
+  &  0.129659E+01_JPRB, 0.137756E+01_JPRB, 0.146125E+01_JPRB, 0.154766E+01_JPRB &
+  &, 0.163677E+01_JPRB, 0.172858E+01_JPRB, 0.182307E+01_JPRB &
+  &, 0.192023E+01_JPRB, 0.202004E+01_JPRB, 0.212250E+01_JPRB, 0.222758E+01_JPRB &
+  &, 0.233527E+01_JPRB, 0.244555E+01_JPRB, 0.255839E+01_JPRB &
+  &, 0.267379E+01_JPRB, 0.279171E+01_JPRB, 0.291214E+01_JPRB, 0.303505E+01_JPRB &
+  &, 0.316042E+01_JPRB, 0.328823E+01_JPRB, 0.341844E+01_JPRB &
+  &, 0.355105E+01_JPRB, 0.368601E+01_JPRB, 0.382331E+01_JPRB, 0.396292E+01_JPRB &
+  &, 0.410480E+01_JPRB, 0.424894E+01_JPRB, 0.439531E+01_JPRB &
+  &, 0.454387E+01_JPRB, 0.469461E+01_JPRB, 0.484748E+01_JPRB, 0.500247E+01_JPRB &
+  &, 0.515955E+01_JPRB, 0.531868E+01_JPRB, 0.547985E+01_JPRB &
+  &, 0.564300E+01_JPRB, 0.580814E+01_JPRB, 0.597521E+01_JPRB, 0.614420E+01_JPRB &
+  &, 0.631508E+01_JPRB, 0.648781E+01_JPRB, 0.666237E+01_JPRB &
+  &, 0.683873E+01_JPRB, 0.701687E+01_JPRB, 0.719674E+01_JPRB, 0.737834E+01_JPRB &
+  &, 0.756163E+01_JPRB, 0.774658E+01_JPRB, 0.793316E+01_JPRB &
+  &, 0.812135E+01_JPRB, 0.831112E+01_JPRB, 0.850246E+01_JPRB, 0.869531E+01_JPRB &
+  &, 0.888968E+01_JPRB, 0.908553E+01_JPRB, 0.928282E+01_JPRB &
+  &, 0.948155E+01_JPRB, 0.968168E+01_JPRB, 0.988319E+01_JPRB, 0.100860E+02_JPRB &
+  &, 0.102902E+02_JPRB, 0.104957E+02_JPRB, 0.107025E+02_JPRB &
+  &, 0.109106E+02_JPRB, 0.111199E+02_JPRB, 0.113303E+02_JPRB, 0.115420E+02_JPRB &
+  &, 0.117549E+02_JPRB, 0.119689E+02_JPRB, 0.121840E+02_JPRB &
+  &, 0.124003E+02_JPRB, 0.126176E+02_JPRB, 0.128360E+02_JPRB, 0.130555E+02_JPRB &
+  &, 0.132759E+02_JPRB, 0.134974E+02_JPRB, 0.137198E+02_JPRB &
+  &, 0.139433E+02_JPRB, 0.141676E+02_JPRB, 0.143929E+02_JPRB, 0.146191E+02_JPRB &
+  &, 0.148462E+02_JPRB, 0.150742E+02_JPRB, 0.153030E+02_JPRB &
+  &, 0.155326E+02_JPRB, 0.157631E+02_JPRB, 0.159943E+02_JPRB, 0.162264E+02_JPRB &
+  &, 0.164592E+02_JPRB, 0.166928E+02_JPRB, 0.169271E+02_JPRB &
+  &, 0.171621E+02_JPRB, 0.173978E+02_JPRB, 0.176342E+02_JPRB, 0.178712E+02_JPRB &
+  &, 0.181090E+02_JPRB, 0.183473E+02_JPRB, 0.185863E+02_JPRB &
+  &, 0.188259E+02_JPRB, 0.190661E+02_JPRB, 0.193068E+02_JPRB, 0.195481E+02_JPRB &
+  &, 0.197900E+02_JPRB, 0.200325E+02_JPRB, 0.202754E+02_JPRB &
+  &, 0.205188E+02_JPRB, 0.207627E+02_JPRB, 0.210072E+02_JPRB, 0.212520E+02_JPRB &
+  &, 0.214973E+02_JPRB, 0.217431E+02_JPRB, 0.219893E+02_JPRB &
+  &, 0.222359E+02_JPRB, 0.224829E+02_JPRB, 0.227303E+02_JPRB, 0.229781E+02_JPRB &
+  &, 0.232263E+02_JPRB, 0.234748E+02_JPRB, 0.237236E+02_JPRB &
+  &, 0.239727E+02_JPRB, 0.242223E+02_JPRB, 0.244721E+02_JPRB, 0.247222E+02_JPRB &
+  &, 0.249726E+02_JPRB, 0.252232E+02_JPRB, 0.254741E+02_JPRB &
+  &, 0.257253E+02_JPRB, 0.259767E+02_JPRB, 0.262283E+02_JPRB, 0.264802E+02_JPRB &
+  &, 0.267322E+02_JPRB, 0.269845E+02_JPRB, 0.272369E+02_JPRB &
+  &, 0.274895E+02_JPRB, 0.277424E+02_JPRB, 0.279953E+02_JPRB, 0.282484E+02_JPRB &
+  &, 0.285016E+02_JPRB, 0.287550E+02_JPRB, 0.290085E+02_JPRB/)
+XCW( 998, :) = (/ &
+  &  0.131213E+01_JPRB, 0.139779E+01_JPRB, 0.148650E+01_JPRB, 0.157825E+01_JPRB &
+  &, 0.167304E+01_JPRB, 0.177087E+01_JPRB, 0.187172E+01_JPRB &
+  &, 0.197559E+01_JPRB, 0.208246E+01_JPRB, 0.219232E+01_JPRB, 0.230516E+01_JPRB &
+  &, 0.242095E+01_JPRB, 0.253969E+01_JPRB, 0.266135E+01_JPRB &
+  &, 0.278592E+01_JPRB, 0.291337E+01_JPRB, 0.304369E+01_JPRB, 0.317685E+01_JPRB &
+  &, 0.331282E+01_JPRB, 0.345160E+01_JPRB, 0.359315E+01_JPRB &
+  &, 0.373744E+01_JPRB, 0.388447E+01_JPRB, 0.403419E+01_JPRB, 0.418657E+01_JPRB &
+  &, 0.434161E+01_JPRB, 0.449926E+01_JPRB, 0.465950E+01_JPRB &
+  &, 0.482231E+01_JPRB, 0.498765E+01_JPRB, 0.515549E+01_JPRB, 0.532582E+01_JPRB &
+  &, 0.549859E+01_JPRB, 0.567379E+01_JPRB, 0.585137E+01_JPRB &
+  &, 0.603132E+01_JPRB, 0.621360E+01_JPRB, 0.639819E+01_JPRB, 0.658505E+01_JPRB &
+  &, 0.677417E+01_JPRB, 0.696550E+01_JPRB, 0.715902E+01_JPRB &
+  &, 0.735470E+01_JPRB, 0.755252E+01_JPRB, 0.775243E+01_JPRB, 0.795443E+01_JPRB &
+  &, 0.815847E+01_JPRB, 0.836454E+01_JPRB, 0.857259E+01_JPRB &
+  &, 0.878261E+01_JPRB, 0.899457E+01_JPRB, 0.920844E+01_JPRB, 0.942420E+01_JPRB &
+  &, 0.964181E+01_JPRB, 0.986126E+01_JPRB, 0.100825E+02_JPRB &
+  &, 0.103055E+02_JPRB, 0.105303E+02_JPRB, 0.107568E+02_JPRB, 0.109851E+02_JPRB &
+  &, 0.112150E+02_JPRB, 0.114465E+02_JPRB, 0.116797E+02_JPRB &
+  &, 0.119145E+02_JPRB, 0.121509E+02_JPRB, 0.123888E+02_JPRB, 0.126283E+02_JPRB &
+  &, 0.128693E+02_JPRB, 0.131117E+02_JPRB, 0.133557E+02_JPRB &
+  &, 0.136011E+02_JPRB, 0.138479E+02_JPRB, 0.140961E+02_JPRB, 0.143457E+02_JPRB &
+  &, 0.145967E+02_JPRB, 0.148490E+02_JPRB, 0.151027E+02_JPRB &
+  &, 0.153576E+02_JPRB, 0.156138E+02_JPRB, 0.158713E+02_JPRB, 0.161300E+02_JPRB &
+  &, 0.163899E+02_JPRB, 0.166510E+02_JPRB, 0.169134E+02_JPRB &
+  &, 0.171768E+02_JPRB, 0.174415E+02_JPRB, 0.177072E+02_JPRB, 0.179741E+02_JPRB &
+  &, 0.182421E+02_JPRB, 0.185111E+02_JPRB, 0.187812E+02_JPRB &
+  &, 0.190523E+02_JPRB, 0.193244E+02_JPRB, 0.195976E+02_JPRB, 0.198717E+02_JPRB &
+  &, 0.201469E+02_JPRB, 0.204229E+02_JPRB, 0.207000E+02_JPRB &
+  &, 0.209779E+02_JPRB, 0.212567E+02_JPRB, 0.215365E+02_JPRB, 0.218171E+02_JPRB &
+  &, 0.220986E+02_JPRB, 0.223809E+02_JPRB, 0.226641E+02_JPRB &
+  &, 0.229481E+02_JPRB, 0.232328E+02_JPRB, 0.235184E+02_JPRB, 0.238047E+02_JPRB &
+  &, 0.240919E+02_JPRB, 0.243797E+02_JPRB, 0.246683E+02_JPRB &
+  &, 0.249576E+02_JPRB, 0.252476E+02_JPRB, 0.255384E+02_JPRB, 0.258297E+02_JPRB &
+  &, 0.261217E+02_JPRB, 0.264145E+02_JPRB, 0.267078E+02_JPRB &
+  &, 0.270018E+02_JPRB, 0.272964E+02_JPRB, 0.275916E+02_JPRB, 0.278874E+02_JPRB &
+  &, 0.281838E+02_JPRB, 0.284807E+02_JPRB, 0.287782E+02_JPRB &
+  &, 0.290762E+02_JPRB, 0.293748E+02_JPRB, 0.296739E+02_JPRB, 0.299735E+02_JPRB &
+  &, 0.302736E+02_JPRB, 0.305742E+02_JPRB, 0.308752E+02_JPRB &
+  &, 0.311767E+02_JPRB, 0.314787E+02_JPRB, 0.317810E+02_JPRB, 0.320840E+02_JPRB &
+  &, 0.323872E+02_JPRB, 0.326909E+02_JPRB, 0.329950E+02_JPRB/)
+XCW( 999, :) = (/ &
+  &  0.133767E+01_JPRB, 0.143110E+01_JPRB, 0.152815E+01_JPRB, 0.162883E+01_JPRB &
+  &, 0.173313E+01_JPRB, 0.184106E+01_JPRB, 0.195261E+01_JPRB &
+  &, 0.206778E+01_JPRB, 0.218654E+01_JPRB, 0.230893E+01_JPRB, 0.243489E+01_JPRB &
+  &, 0.256443E+01_JPRB, 0.269753E+01_JPRB, 0.283418E+01_JPRB &
+  &, 0.297436E+01_JPRB, 0.311805E+01_JPRB, 0.326524E+01_JPRB, 0.341591E+01_JPRB &
+  &, 0.357002E+01_JPRB, 0.372757E+01_JPRB, 0.388853E+01_JPRB &
+  &, 0.405288E+01_JPRB, 0.422058E+01_JPRB, 0.439163E+01_JPRB, 0.456599E+01_JPRB &
+  &, 0.474363E+01_JPRB, 0.492453E+01_JPRB, 0.510867E+01_JPRB &
+  &, 0.529601E+01_JPRB, 0.548653E+01_JPRB, 0.568020E+01_JPRB, 0.587699E+01_JPRB &
+  &, 0.607687E+01_JPRB, 0.627982E+01_JPRB, 0.648580E+01_JPRB &
+  &, 0.669479E+01_JPRB, 0.690675E+01_JPRB, 0.712166E+01_JPRB, 0.733949E+01_JPRB &
+  &, 0.756021E+01_JPRB, 0.778379E+01_JPRB, 0.801020E+01_JPRB &
+  &, 0.823941E+01_JPRB, 0.847139E+01_JPRB, 0.870612E+01_JPRB, 0.894355E+01_JPRB &
+  &, 0.918368E+01_JPRB, 0.942647E+01_JPRB, 0.967189E+01_JPRB &
+  &, 0.991989E+01_JPRB, 0.101705E+02_JPRB, 0.104236E+02_JPRB, 0.106793E+02_JPRB &
+  &, 0.109374E+02_JPRB, 0.111980E+02_JPRB, 0.114610E+02_JPRB &
+  &, 0.117265E+02_JPRB, 0.119943E+02_JPRB, 0.122645E+02_JPRB, 0.125370E+02_JPRB &
+  &, 0.128118E+02_JPRB, 0.130889E+02_JPRB, 0.133682E+02_JPRB &
+  &, 0.136498E+02_JPRB, 0.139336E+02_JPRB, 0.142196E+02_JPRB, 0.145077E+02_JPRB &
+  &, 0.147979E+02_JPRB, 0.150903E+02_JPRB, 0.153847E+02_JPRB &
+  &, 0.156812E+02_JPRB, 0.159798E+02_JPRB, 0.162803E+02_JPRB, 0.165829E+02_JPRB &
+  &, 0.168874E+02_JPRB, 0.171939E+02_JPRB, 0.175023E+02_JPRB &
+  &, 0.178126E+02_JPRB, 0.181248E+02_JPRB, 0.184388E+02_JPRB, 0.187547E+02_JPRB &
+  &, 0.190725E+02_JPRB, 0.193920E+02_JPRB, 0.197133E+02_JPRB &
+  &, 0.200364E+02_JPRB, 0.203612E+02_JPRB, 0.206877E+02_JPRB, 0.210159E+02_JPRB &
+  &, 0.213459E+02_JPRB, 0.216775E+02_JPRB, 0.220107E+02_JPRB &
+  &, 0.223456E+02_JPRB, 0.226820E+02_JPRB, 0.230201E+02_JPRB, 0.233598E+02_JPRB &
+  &, 0.237010E+02_JPRB, 0.240437E+02_JPRB, 0.243880E+02_JPRB &
+  &, 0.247338E+02_JPRB, 0.250810E+02_JPRB, 0.254298E+02_JPRB, 0.257800E+02_JPRB &
+  &, 0.261316E+02_JPRB, 0.264847E+02_JPRB, 0.268392E+02_JPRB &
+  &, 0.271950E+02_JPRB, 0.275522E+02_JPRB, 0.279108E+02_JPRB, 0.282708E+02_JPRB &
+  &, 0.286320E+02_JPRB, 0.289946E+02_JPRB, 0.293585E+02_JPRB &
+  &, 0.297237E+02_JPRB, 0.300901E+02_JPRB, 0.304578E+02_JPRB, 0.308268E+02_JPRB &
+  &, 0.311969E+02_JPRB, 0.315683E+02_JPRB, 0.319408E+02_JPRB &
+  &, 0.323146E+02_JPRB, 0.326895E+02_JPRB, 0.330656E+02_JPRB, 0.334429E+02_JPRB &
+  &, 0.338213E+02_JPRB, 0.342007E+02_JPRB, 0.345813E+02_JPRB &
+  &, 0.349630E+02_JPRB, 0.353458E+02_JPRB, 0.357296E+02_JPRB, 0.361145E+02_JPRB &
+  &, 0.365004E+02_JPRB, 0.368873E+02_JPRB, 0.372753E+02_JPRB &
+  &, 0.376643E+02_JPRB, 0.380542E+02_JPRB, 0.384452E+02_JPRB, 0.388371E+02_JPRB &
+  &, 0.392299E+02_JPRB, 0.396237E+02_JPRB, 0.400185E+02_JPRB/)
+XCW(1000, :) = (/ &
+  &  0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.255626E+01_JPRB, 0.257657E+01_JPRB &
+  &, 0.260001E+01_JPRB, 0.393985E+01_JPRB, 0.464844E+01_JPRB &
+  &, 0.504199E+01_JPRB, 0.545000E+01_JPRB, 0.552812E+01_JPRB, 0.561250E+01_JPRB &
+  &, 0.570312E+01_JPRB, 0.580000E+01_JPRB, 0.590312E+01_JPRB &
+  &, 0.601250E+01_JPRB, 0.612812E+01_JPRB, 0.625000E+01_JPRB, 0.637812E+01_JPRB &
+  &, 0.651250E+01_JPRB, 0.665312E+01_JPRB, 0.680000E+01_JPRB &
+  &, 0.695312E+01_JPRB, 0.711250E+01_JPRB, 0.727812E+01_JPRB, 0.745000E+01_JPRB &
+  &, 0.762812E+01_JPRB, 0.781250E+01_JPRB, 0.800312E+01_JPRB &
+  &, 0.820000E+01_JPRB, 0.840312E+01_JPRB, 0.861250E+01_JPRB, 0.882812E+01_JPRB &
+  &, 0.905000E+01_JPRB, 0.927812E+01_JPRB, 0.951249E+01_JPRB &
+  &, 0.975312E+01_JPRB, 0.999999E+01_JPRB, 0.102531E+02_JPRB, 0.105125E+02_JPRB &
+  &, 0.107781E+02_JPRB, 0.110500E+02_JPRB, 0.113281E+02_JPRB &
+  &, 0.116125E+02_JPRB, 0.119031E+02_JPRB, 0.122000E+02_JPRB, 0.125031E+02_JPRB &
+  &, 0.128125E+02_JPRB, 0.131281E+02_JPRB, 0.134500E+02_JPRB &
+  &, 0.137781E+02_JPRB, 0.141125E+02_JPRB, 0.144531E+02_JPRB, 0.148000E+02_JPRB &
+  &, 0.151531E+02_JPRB, 0.155125E+02_JPRB, 0.158781E+02_JPRB &
+  &, 0.162500E+02_JPRB, 0.166281E+02_JPRB, 0.170125E+02_JPRB, 0.174031E+02_JPRB &
+  &, 0.178000E+02_JPRB, 0.182031E+02_JPRB, 0.186125E+02_JPRB &
+  &, 0.190281E+02_JPRB, 0.194500E+02_JPRB, 0.198781E+02_JPRB, 0.203125E+02_JPRB &
+  &, 0.207531E+02_JPRB, 0.212000E+02_JPRB, 0.216531E+02_JPRB &
+  &, 0.221125E+02_JPRB, 0.225781E+02_JPRB, 0.230500E+02_JPRB, 0.235281E+02_JPRB &
+  &, 0.240125E+02_JPRB, 0.245031E+02_JPRB, 0.250000E+02_JPRB &
+  &, 0.255031E+02_JPRB, 0.260125E+02_JPRB, 0.265281E+02_JPRB, 0.270500E+02_JPRB &
+  &, 0.275781E+02_JPRB, 0.281125E+02_JPRB, 0.286531E+02_JPRB &
+  &, 0.292000E+02_JPRB, 0.297531E+02_JPRB, 0.303125E+02_JPRB, 0.308781E+02_JPRB &
+  &, 0.314500E+02_JPRB, 0.320281E+02_JPRB, 0.326125E+02_JPRB &
+  &, 0.332031E+02_JPRB, 0.338000E+02_JPRB, 0.344031E+02_JPRB, 0.350125E+02_JPRB &
+  &, 0.356281E+02_JPRB, 0.362500E+02_JPRB, 0.368781E+02_JPRB &
+  &, 0.375125E+02_JPRB, 0.381531E+02_JPRB, 0.388000E+02_JPRB, 0.394531E+02_JPRB &
+  &, 0.401125E+02_JPRB, 0.407781E+02_JPRB, 0.414500E+02_JPRB &
+  &, 0.421281E+02_JPRB, 0.428125E+02_JPRB, 0.435031E+02_JPRB, 0.442000E+02_JPRB &
+  &, 0.449031E+02_JPRB, 0.456125E+02_JPRB, 0.463281E+02_JPRB &
+  &, 0.470500E+02_JPRB, 0.477781E+02_JPRB, 0.485125E+02_JPRB, 0.492531E+02_JPRB &
+  &, 0.500000E+02_JPRB, 0.507531E+02_JPRB, 0.515125E+02_JPRB &
+  &, 0.522781E+02_JPRB, 0.530500E+02_JPRB, 0.538281E+02_JPRB, 0.546125E+02_JPRB &
+  &, 0.554031E+02_JPRB, 0.561999E+02_JPRB, 0.570031E+02_JPRB &
+  &, 0.578124E+02_JPRB, 0.586281E+02_JPRB, 0.594499E+02_JPRB, 0.602781E+02_JPRB &
+  &, 0.611124E+02_JPRB, 0.619531E+02_JPRB, 0.627999E+02_JPRB &
+  &, 0.636531E+02_JPRB, 0.645124E+02_JPRB, 0.653781E+02_JPRB, 0.662499E+02_JPRB &
+  &, 0.671281E+02_JPRB, 0.680124E+02_JPRB, 0.689031E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART143',1,ZHOOK_HANDLE)
+END SUBROUTINE PART143
+
+
+END SUBROUTINE SU_MCICA
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_mcica.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_mcica.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_mcica.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_MCICA
+END SUBROUTINE SU_MCICA
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_uvrad.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_uvrad.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_uvrad.F90	(revision 3330)
@@ -0,0 +1,1107 @@
+SUBROUTINE SU_UVRAD ( KUV )
+
+!**** *SU_UVRAD*   - INITIALIZE COMMON YOE_UVRAD
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOE_UVRAD, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE ULTRAVIOLET RADIATION PROCESSOR
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_UVRAD* FROM *SUECRAD*
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOE_UVRAD
+
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2005-10-04
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN   , ONLY : NULOUT
+USE YOE_UVRAD, ONLY : IPUV, JUVLAM, &
+              & RK250 , RTUV1, RTUV2, RSUVB0, RAYUVB, &
+              & RTAUVA, RPIUVA, RCGUVA, RCIEAS, RUVLAM, RFCAER, RFCOZO, &
+              & RASA  , RASB, RASC, RASD, RASE, RASF, RFA0, RFA1, &
+              & RFB0  , RFB1, RFB2, RFB3, RFC0, RFC1, RFC2, RFC3, &
+              & RFD0  , RFD1, RFD2, RFD3, JCOP, RXPO, RXPL 
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUV 
+
+
+INTEGER(KIND=JPIM) :: J, JAE
+!INTEGER(KIND=JPIM) :: IACOP(24), IBCOP(120), ICCOP(600), IDCOP(3000)
+INTEGER(KIND=JPIM) :: IACOP(24), IBCOP(120), ICCOP(600)
+
+REAL(KIND=JPRB) :: ZBEG, ZEXP, ZHRES, ZRES, ZUVLAM
+REAL(KIND=JPRB) :: ZAK250(24)  ,ZATUV1(24)  ,ZATUV2(24)  ,ZASUVB(24)  ,ZARAYUV(24)
+REAL(KIND=JPRB) :: ZBK250(120) ,ZBTUV1(120) ,ZBTUV2(120) ,ZBSUVB(120) ,ZBRAYUV(120)
+REAL(KIND=JPRB) :: ZCK250(600) ,ZCTUV1(600) ,ZCTUV2(600) ,ZCSUVB(600) ,ZCRAYUV(600)
+!REAL(KIND=JPRB) :: ZDK250(3000),ZDTUV1(3000),ZDTUV2(3000),ZDSUVB(3000),ZDRAYUV(3000)
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+!#include "abor1.intfb.h"
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_UVRAD',0,ZHOOK_HANDLE)
+
+! multiplying factors for sensitivity studies
+
+RFCAER=1.0_JPRB
+RFCOZO=1.0_JPRB
+
+!-- explicit computations from 280. to 400. nm by (400-280)/(KUV-1) nm
+
+!-- correspondence table with intervals in Slingo (1989) and Fu (1996)
+
+IACOP = (/ 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4 /) 
+IBCOP = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 /)
+ICCOP = (/ 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,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,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,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,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 /)
+!IDCOP = (/ 
+
+!          O3 absorption parameters from integrating Molina & Molina, 1986
+
+! RK250: ozone cross-section ( x E-20 cm2 molecule-1 )
+
+! revised 20051031 (code "read_integrate_kurucz_rayleigh_O3")
+! check norms: 0.1262176396E+05  0.1293728681E+05  0.1350083624E+05
+ZAK250 = (/ &                                                            
+ & 0.3053413E+03_JPRB, 0.1737485E+03_JPRB, 0.1045573E+03_JPRB, 0.5265653E+02_JPRB, 0.2620346E+02_JPRB, &
+ & 0.1350141E+02_JPRB, 0.6771311E+01_JPRB, 0.3435206E+01_JPRB, 0.1629208E+01_JPRB, 0.7546285E+00_JPRB, &
+ & 0.3856211E+00_JPRB, 0.1501495E+00_JPRB, 0.7608691E-01_JPRB, 0.2646207E-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, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZATUV1 = (/ &                                                              
+ & 0.1955606E-03_JPRB, 0.4455332E-03_JPRB, 0.6856191E-03_JPRB, 0.1009841E-02_JPRB, 0.1181320E-02_JPRB, &
+ & 0.1593266E-02_JPRB, 0.1902945E-02_JPRB, 0.2377848E-02_JPRB, 0.3512989E-02_JPRB, 0.4511920E-02_JPRB, &
+ & 0.4672713E-02_JPRB, 0.6355066E-02_JPRB, 0.7100463E-02_JPRB, 0.1112103E-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, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZATUV2 = (/ &                                                              
+ &-0.3391206E-06_JPRB, 0.1269089E-05_JPRB, 0.3833753E-05_JPRB, 0.5239359E-05_JPRB, 0.1149881E-04_JPRB, &
+ & 0.1214144E-04_JPRB, 0.1456489E-04_JPRB, 0.1640689E-04_JPRB, 0.8903441E-05_JPRB, 0.9585654E-05_JPRB, &
+ & 0.1444280E-04_JPRB, 0.2252139E-04_JPRB, 0.7899461E-05_JPRB, 0.1340369E-04_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, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+
+! check norms: 0.1262176396E+05  0.1293728681E+05  0.1350083624E+05
+ZBK250 = (/ &                                                            
+ & 0.3746235E+03_JPRB, 0.3374782E+03_JPRB, 0.3109353E+03_JPRB, 0.2882899E+03_JPRB, 0.2577510E+03_JPRB, &
+ & 0.2259643E+03_JPRB, 0.2085487E+03_JPRB, 0.1854031E+03_JPRB, 0.1612119E+03_JPRB, 0.1453486E+03_JPRB, &
+ & 0.1310256E+03_JPRB, 0.1133554E+03_JPRB, 0.1020065E+03_JPRB, 0.8859325E+02_JPRB, 0.7909053E+02_JPRB, &
+ & 0.6807025E+02_JPRB, 0.6024819E+02_JPRB, 0.5107318E+02_JPRB, 0.4535628E+02_JPRB, 0.3949330E+02_JPRB, &
+ & 0.3422062E+02_JPRB, 0.2996915E+02_JPRB, 0.2577570E+02_JPRB, 0.2279167E+02_JPRB, 0.2034549E+02_JPRB, &
+ & 0.1721408E+02_JPRB, 0.1564205E+02_JPRB, 0.1300914E+02_JPRB, 0.1160289E+02_JPRB, 0.9688561E+01_JPRB, &
+ & 0.8512331E+01_JPRB, 0.7888720E+01_JPRB, 0.6400194E+01_JPRB, 0.5981788E+01_JPRB, 0.4811029E+01_JPRB, &
+ & 0.4636916E+01_JPRB, 0.3695886E+01_JPRB, 0.3476093E+01_JPRB, 0.2543994E+01_JPRB, 0.2691098E+01_JPRB, &
+ & 0.2131005E+01_JPRB, 0.1743577E+01_JPRB, 0.1933369E+01_JPRB, 0.1154597E+01_JPRB, 0.1144737E+01_JPRB, &
+ & 0.1227887E+01_JPRB, 0.6772851E+00_JPRB, 0.8242575E+00_JPRB, 0.7724384E+00_JPRB, 0.3580751E+00_JPRB, &
+ & 0.5599410E+00_JPRB, 0.5106917E+00_JPRB, 0.2370067E+00_JPRB, 0.3617942E+00_JPRB, 0.2703357E+00_JPRB, &
+ & 0.1238728E+00_JPRB, 0.2085226E+00_JPRB, 0.2350139E+00_JPRB, 0.9726696E-01_JPRB, 0.1077734E+00_JPRB, &
+ & 0.1266662E+00_JPRB, 0.5216565E-01_JPRB, 0.4033553E-01_JPRB, 0.7404691E-01_JPRB, 0.8175474E-01_JPRB, &
+ & 0.3928745E-01_JPRB, 0.2581425E-01_JPRB, 0.3220713E-01_JPRB, 0.1852549E-01_JPRB, 0.1710368E-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, 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, 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, &
+ & 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, 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, 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, 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, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZBTUV1 = (/ &                                                              
+ & 0.1304379E-03_JPRB, 0.2381045E-03_JPRB, 0.1312193E-03_JPRB, 0.1382507E-03_JPRB, 0.4377790E-03_JPRB, &
+ & 0.2744315E-03_JPRB, 0.3904921E-03_JPRB, 0.4057293E-03_JPRB, 0.3944389E-03_JPRB, 0.6213526E-03_JPRB, &
+ & 0.5230166E-03_JPRB, 0.7115036E-03_JPRB, 0.8224138E-03_JPRB, 0.7839015E-03_JPRB, 0.6757493E-03_JPRB, &
+ & 0.1013929E-02_JPRB, 0.9388676E-03_JPRB, 0.1139504E-02_JPRB, 0.9152941E-03_JPRB, 0.1010882E-02_JPRB, &
+ & 0.1092914E-02_JPRB, 0.1116954E-02_JPRB, 0.1157353E-02_JPRB, 0.1312172E-02_JPRB, 0.1258207E-02_JPRB, &
+ & 0.1565364E-02_JPRB, 0.1304358E-02_JPRB, 0.1921441E-02_JPRB, 0.1597455E-02_JPRB, 0.1585083E-02_JPRB, &
+ & 0.1804721E-02_JPRB, 0.1717419E-02_JPRB, 0.2201039E-02_JPRB, 0.1650979E-02_JPRB, 0.2436943E-02_JPRB, &
+ & 0.1758300E-02_JPRB, 0.2866617E-02_JPRB, 0.2292916E-02_JPRB, 0.3437942E-02_JPRB, 0.2268845E-02_JPRB, &
+ & 0.3270049E-02_JPRB, 0.3506425E-02_JPRB, 0.2534346E-02_JPRB, 0.5591768E-02_JPRB, 0.3701606E-02_JPRB, &
+ & 0.3035392E-02_JPRB, 0.6216419E-02_JPRB, 0.3456239E-02_JPRB, 0.4134974E-02_JPRB, 0.8414933E-02_JPRB, &
+ & 0.3396263E-02_JPRB, 0.4222453E-02_JPRB, 0.8249625E-02_JPRB, 0.3627255E-02_JPRB, 0.6302904E-02_JPRB, &
+ & 0.1011540E-01_JPRB, 0.4498586E-02_JPRB, 0.4007648E-02_JPRB, 0.8463577E-02_JPRB, 0.7236953E-02_JPRB, &
+ & 0.5225470E-02_JPRB, 0.1114658E-01_JPRB, 0.1362563E-01_JPRB, 0.6584077E-02_JPRB, 0.4911811E-02_JPRB, &
+ & 0.1365494E-01_JPRB, 0.9170420E-02_JPRB, 0.7847505E-02_JPRB, 0.8155373E-02_JPRB, 0.2917714E-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, 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, 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, &
+ & 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, 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, 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, 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, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZBTUV2 = (/ &                                                              
+ &-0.2310595E-05_JPRB,-0.1588555E-05_JPRB,-0.3803504E-06_JPRB, 0.2203029E-05_JPRB,-0.2347744E-05_JPRB, &
+ & 0.3014092E-05_JPRB,-0.2353008E-05_JPRB, 0.3071326E-05_JPRB, 0.2498274E-05_JPRB, 0.6234744E-06_JPRB, &
+ & 0.3393139E-05_JPRB, 0.5542024E-05_JPRB, 0.9758300E-06_JPRB, 0.5219182E-05_JPRB, 0.3721842E-05_JPRB, &
+ & 0.2097421E-05_JPRB, 0.4340026E-05_JPRB, 0.5201248E-05_JPRB, 0.8369003E-05_JPRB, 0.8713780E-05_JPRB, &
+ & 0.8890532E-05_JPRB, 0.1285612E-04_JPRB, 0.1431880E-04_JPRB, 0.1206355E-04_JPRB, 0.8875655E-05_JPRB, &
+ & 0.1178909E-04_JPRB, 0.1027358E-04_JPRB, 0.6029656E-05_JPRB, 0.1471264E-04_JPRB, 0.2339166E-04_JPRB, &
+ & 0.1449467E-04_JPRB, 0.1392035E-04_JPRB, 0.9490171E-05_JPRB, 0.1963981E-04_JPRB, 0.1545245E-04_JPRB, &
+ & 0.2217010E-04_JPRB, 0.9402666E-05_JPRB, 0.1555344E-04_JPRB, 0.1678093E-04_JPRB, 0.1418057E-04_JPRB, &
+ & 0.1018282E-04_JPRB, 0.1016892E-04_JPRB, 0.6648122E-05_JPRB,-0.1761027E-05_JPRB, 0.1343048E-04_JPRB, &
+ & 0.5945775E-05_JPRB, 0.5228630E-05_JPRB, 0.1189961E-04_JPRB, 0.1062544E-04_JPRB, 0.6783912E-05_JPRB, &
+ & 0.1611166E-04_JPRB, 0.9911433E-05_JPRB, 0.4732061E-05_JPRB, 0.2326484E-04_JPRB, 0.6846333E-05_JPRB, &
+ & 0.5566848E-05_JPRB, 0.2998335E-04_JPRB, 0.4369986E-05_JPRB, 0.2288655E-04_JPRB, 0.4555816E-04_JPRB, &
+ & 0.2229065E-04_JPRB,-0.5176777E-05_JPRB, 0.9089374E-05_JPRB, 0.2211234E-04_JPRB,-0.5195374E-04_JPRB, &
+ &-0.5204193E-04_JPRB, 0.1285348E-03_JPRB,-0.3511670E-05_JPRB, 0.6086764E-04_JPRB,-0.2923827E-03_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, 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, 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, &
+ & 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, 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, 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, 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, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+
+! check norms: 0.1262176396E+05  0.1293728681E+05  0.1350083624E+05
+ZCK250(  1:300) = (/ &
+ & 0.3912691E+03_JPRB, 0.3839502E+03_JPRB, 0.3743189E+03_JPRB, 0.3712760E+03_JPRB, 0.3682782E+03_JPRB, &
+ & 0.3607995E+03_JPRB, 0.3484512E+03_JPRB, 0.3362245E+03_JPRB, 0.3306447E+03_JPRB, 0.3257288E+03_JPRB, &
+ & 0.3205932E+03_JPRB, 0.3156011E+03_JPRB, 0.3106752E+03_JPRB, 0.3061641E+03_JPRB, 0.3025993E+03_JPRB, &
+ & 0.2990364E+03_JPRB, 0.2958928E+03_JPRB, 0.2922895E+03_JPRB, 0.2815917E+03_JPRB, 0.2710969E+03_JPRB, &
+ & 0.2643130E+03_JPRB, 0.2602894E+03_JPRB, 0.2555913E+03_JPRB, 0.2508463E+03_JPRB, 0.2458966E+03_JPRB, &
+ & 0.2400022E+03_JPRB, 0.2328428E+03_JPRB, 0.2266644E+03_JPRB, 0.2237314E+03_JPRB, 0.2211230E+03_JPRB, &
+ & 0.2176822E+03_JPRB, 0.2129666E+03_JPRB, 0.2082285E+03_JPRB, 0.2050648E+03_JPRB, 0.2015646E+03_JPRB, &
+ & 0.1964826E+03_JPRB, 0.1907146E+03_JPRB, 0.1843511E+03_JPRB, 0.1790203E+03_JPRB, 0.1740547E+03_JPRB, &
+ & 0.1699693E+03_JPRB, 0.1658762E+03_JPRB, 0.1631024E+03_JPRB, 0.1594428E+03_JPRB, 0.1561083E+03_JPRB, &
+ & 0.1522514E+03_JPRB, 0.1489648E+03_JPRB, 0.1456738E+03_JPRB, 0.1427900E+03_JPRB, 0.1400463E+03_JPRB, &
+ & 0.1368885E+03_JPRB, 0.1338666E+03_JPRB, 0.1308455E+03_JPRB, 0.1279194E+03_JPRB, 0.1252291E+03_JPRB, &
+ & 0.1221635E+03_JPRB, 0.1173480E+03_JPRB, 0.1134466E+03_JPRB, 0.1104490E+03_JPRB, 0.1075005E+03_JPRB, &
+ & 0.1052409E+03_JPRB, 0.1034875E+03_JPRB, 0.1014312E+03_JPRB, 0.9917348E+02_JPRB, 0.9690936E+02_JPRB, &
+ & 0.9363521E+02_JPRB, 0.9064002E+02_JPRB, 0.8742842E+02_JPRB, 0.8607183E+02_JPRB, 0.8419236E+02_JPRB, &
+ & 0.8235930E+02_JPRB, 0.8037249E+02_JPRB, 0.7882393E+02_JPRB, 0.7689006E+02_JPRB, 0.7481278E+02_JPRB, &
+ & 0.7260259E+02_JPRB, 0.7000890E+02_JPRB, 0.6741465E+02_JPRB, 0.6606238E+02_JPRB, 0.6431214E+02_JPRB, &
+ & 0.6274430E+02_JPRB, 0.6096603E+02_JPRB, 0.5956343E+02_JPRB, 0.5820831E+02_JPRB, 0.5665523E+02_JPRB, &
+ & 0.5500309E+02_JPRB, 0.5351154E+02_JPRB, 0.5118981E+02_JPRB, 0.5002563E+02_JPRB, 0.4881731E+02_JPRB, &
+ & 0.4748677E+02_JPRB, 0.4631187E+02_JPRB, 0.4524318E+02_JPRB, 0.4422579E+02_JPRB, 0.4326350E+02_JPRB, &
+ & 0.4201139E+02_JPRB, 0.4046981E+02_JPRB, 0.3921751E+02_JPRB, 0.3804230E+02_JPRB, 0.3728167E+02_JPRB, &
+ & 0.3646048E+02_JPRB, 0.3568511E+02_JPRB, 0.3469347E+02_JPRB, 0.3368040E+02_JPRB, 0.3223647E+02_JPRB, &
+ & 0.3120151E+02_JPRB, 0.3046987E+02_JPRB, 0.2973342E+02_JPRB, 0.2916021E+02_JPRB, 0.2869675E+02_JPRB, &
+ & 0.2819547E+02_JPRB, 0.2704570E+02_JPRB, 0.2633426E+02_JPRB, 0.2524253E+02_JPRB, 0.2440977E+02_JPRB, &
+ & 0.2368355E+02_JPRB, 0.2307297E+02_JPRB, 0.2260014E+02_JPRB, 0.2230349E+02_JPRB, 0.2196699E+02_JPRB, &
+ & 0.2159911E+02_JPRB, 0.2100203E+02_JPRB, 0.2042105E+02_JPRB, 0.1959785E+02_JPRB, 0.1850330E+02_JPRB, &
+ & 0.1799117E+02_JPRB, 0.1739673E+02_JPRB, 0.1696323E+02_JPRB, 0.1671992E+02_JPRB, 0.1652047E+02_JPRB, &
+ & 0.1630084E+02_JPRB, 0.1608451E+02_JPRB, 0.1578843E+02_JPRB, 0.1524567E+02_JPRB, 0.1440076E+02_JPRB, &
+ & 0.1386541E+02_JPRB, 0.1329988E+02_JPRB, 0.1272576E+02_JPRB, 0.1254554E+02_JPRB, 0.1245282E+02_JPRB, &
+ & 0.1218871E+02_JPRB, 0.1178283E+02_JPRB, 0.1145067E+02_JPRB, 0.1133450E+02_JPRB, 0.1119256E+02_JPRB, &
+ & 0.1078407E+02_JPRB, 0.1020251E+02_JPRB, 0.9528469E+01_JPRB, 0.9329364E+01_JPRB, 0.9126274E+01_JPRB, &
+ & 0.8931937E+01_JPRB, 0.8718665E+01_JPRB, 0.8575605E+01_JPRB, 0.8437309E+01_JPRB, 0.8310787E+01_JPRB, &
+ & 0.8215147E+01_JPRB, 0.8127766E+01_JPRB, 0.8001044E+01_JPRB, 0.7630502E+01_JPRB, 0.7218388E+01_JPRB, &
+ & 0.6842024E+01_JPRB, 0.6619379E+01_JPRB, 0.6379956E+01_JPRB, 0.6211814E+01_JPRB, 0.6073732E+01_JPRB, &
+ & 0.6047354E+01_JPRB, 0.6167841E+01_JPRB, 0.6213631E+01_JPRB, 0.5978124E+01_JPRB, 0.5663016E+01_JPRB, &
+ & 0.5312896E+01_JPRB, 0.4966990E+01_JPRB, 0.4632250E+01_JPRB, 0.4511959E+01_JPRB, 0.4437874E+01_JPRB, &
+ & 0.4521541E+01_JPRB, 0.4730288E+01_JPRB, 0.4850666E+01_JPRB, 0.4597253E+01_JPRB, 0.4254414E+01_JPRB, &
+ & 0.3974671E+01_JPRB, 0.3772243E+01_JPRB, 0.3622352E+01_JPRB, 0.3596173E+01_JPRB, 0.3597771E+01_JPRB, &
+ & 0.3587278E+01_JPRB, 0.3569527E+01_JPRB, 0.3534352E+01_JPRB, 0.3400931E+01_JPRB, 0.3269153E+01_JPRB, &
+ & 0.3038523E+01_JPRB, 0.2772412E+01_JPRB, 0.2532108E+01_JPRB, 0.2400635E+01_JPRB, 0.2269651E+01_JPRB, &
+ & 0.2318103E+01_JPRB, 0.2555933E+01_JPRB, 0.2783417E+01_JPRB, 0.2859555E+01_JPRB, 0.2929581E+01_JPRB, &
+ & 0.2773406E+01_JPRB, 0.2471774E+01_JPRB, 0.2117337E+01_JPRB, 0.1887952E+01_JPRB, 0.1665876E+01_JPRB, &
+ & 0.1545364E+01_JPRB, 0.1530765E+01_JPRB, 0.1569366E+01_JPRB, 0.1765859E+01_JPRB, 0.2076064E+01_JPRB, &
+ & 0.2118826E+01_JPRB, 0.2013361E+01_JPRB, 0.1904165E+01_JPRB, 0.1817854E+01_JPRB, 0.1717719E+01_JPRB, &
+ & 0.1528353E+01_JPRB, 0.1301476E+01_JPRB, 0.1075097E+01_JPRB, 0.9913148E+00_JPRB, 0.9390067E+00_JPRB, &
+ & 0.9410631E+00_JPRB, 0.9908390E+00_JPRB, 0.1077318E+01_JPRB, 0.1253445E+01_JPRB, 0.1470490E+01_JPRB, &
+ & 0.1500942E+01_JPRB, 0.1410377E+01_JPRB, 0.1291770E+01_JPRB, 0.1121325E+01_JPRB, 0.9340122E+00_JPRB, &
+ & 0.7967983E+00_JPRB, 0.6878130E+00_JPRB, 0.6101190E+00_JPRB, 0.6281103E+00_JPRB, 0.6616779E+00_JPRB, &
+ & 0.6857364E+00_JPRB, 0.7056597E+00_JPRB, 0.7477958E+00_JPRB, 0.9194159E+00_JPRB, 0.1109930E+01_JPRB, &
+ & 0.1092774E+01_JPRB, 0.9152249E+00_JPRB, 0.7291639E+00_JPRB, 0.6087120E+00_JPRB, 0.4870125E+00_JPRB, &
+ & 0.4089467E+00_JPRB, 0.3685752E+00_JPRB, 0.3364085E+00_JPRB, 0.3355197E+00_JPRB, 0.3394912E+00_JPRB, &
+ & 0.4048120E+00_JPRB, 0.4981886E+00_JPRB, 0.6072237E+00_JPRB, 0.6562844E+00_JPRB, 0.7088529E+00_JPRB, &
+ & 0.6887763E+00_JPRB, 0.6012469E+00_JPRB, 0.5178619E+00_JPRB, 0.4263444E+00_JPRB, 0.3389390E+00_JPRB, &
+ & 0.2766929E+00_JPRB, 0.2419911E+00_JPRB, 0.2081429E+00_JPRB, 0.2205261E+00_JPRB, 0.2407883E+00_JPRB, &
+ & 0.2829715E+00_JPRB, 0.3323930E+00_JPRB, 0.3840338E+00_JPRB, 0.4009112E+00_JPRB, 0.4141605E+00_JPRB, &
+ & 0.3841738E+00_JPRB, 0.3191549E+00_JPRB, 0.2538516E+00_JPRB, 0.2141375E+00_JPRB, 0.1749193E+00_JPRB, &
+ & 0.1442347E+00_JPRB, 0.1308030E+00_JPRB, 0.1175839E+00_JPRB, 0.1152005E+00_JPRB, 0.1144295E+00_JPRB, &
+ & 0.1332690E+00_JPRB, 0.1750619E+00_JPRB, 0.2049352E+00_JPRB, 0.2269636E+00_JPRB, 0.2466895E+00_JPRB, &
+ & 0.2630055E+00_JPRB, 0.2741632E+00_JPRB, 0.2762103E+00_JPRB, 0.2284683E+00_JPRB, 0.1768542E+00_JPRB, &
+ & 0.1404621E+00_JPRB, 0.1127350E+00_JPRB, 0.8942173E-01_JPRB, 0.8041714E-01_JPRB, 0.7391840E-01_JPRB, &
+ & 0.7558672E-01_JPRB, 0.8552747E-01_JPRB, 0.9933794E-01_JPRB, 0.1231135E+00_JPRB, 0.1472332E+00_JPRB /)
+ZCK250(301:600) = (/ &
+ & 0.1526061E+00_JPRB, 0.1421443E+00_JPRB, 0.1296576E+00_JPRB, 0.1091694E+00_JPRB, 0.8614825E-01_JPRB, &
+ & 0.6917399E-01_JPRB, 0.5783544E-01_JPRB, 0.4674525E-01_JPRB, 0.4370108E-01_JPRB, 0.4142633E-01_JPRB, &
+ & 0.3910948E-01_JPRB, 0.3637619E-01_JPRB, 0.3495317E-01_JPRB, 0.4133272E-01_JPRB, 0.4971278E-01_JPRB, &
+ & 0.5383842E-01_JPRB, 0.5446874E-01_JPRB, 0.6006002E-01_JPRB, 0.8558061E-01_JPRB, 0.1183642E+00_JPRB, &
+ & 0.1234464E+00_JPRB, 0.1012597E+00_JPRB, 0.8177673E-01_JPRB, 0.7039373E-01_JPRB, 0.5842135E-01_JPRB, &
+ & 0.4994100E-01_JPRB, 0.4395068E-01_JPRB, 0.3678789E-01_JPRB, 0.3423710E-01_JPRB, 0.3205213E-01_JPRB, &
+ & 0.2882322E-01_JPRB, 0.2490090E-01_JPRB, 0.2239739E-01_JPRB, 0.2488575E-01_JPRB, 0.2809792E-01_JPRB, &
+ & 0.3163878E-01_JPRB, 0.3529353E-01_JPRB, 0.3743464E-01_JPRB, 0.3154792E-01_JPRB, 0.2476330E-01_JPRB, &
+ & 0.2125607E-01_JPRB, 0.2063931E-01_JPRB, 0.1970776E-01_JPRB, 0.1711069E-01_JPRB, 0.1448247E-01_JPRB, &
+ & 0.1419092E-01_JPRB, 0.1697305E-01_JPRB, 0.1922265E-01_JPRB, 0.1809877E-01_JPRB, 0.1633014E-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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZCTUV1(  1:300) = (/ &
+ &-0.7300886E-04_JPRB, 0.2165305E-04_JPRB, 0.1518885E-03_JPRB, 0.1801729E-03_JPRB, 0.2046781E-03_JPRB, &
+ & 0.2321395E-03_JPRB, 0.2666132E-03_JPRB, 0.2905016E-03_JPRB, 0.2372348E-03_JPRB, 0.1789425E-03_JPRB, &
+ & 0.1385595E-03_JPRB, 0.1176325E-03_JPRB, 0.1025867E-03_JPRB, 0.1330112E-03_JPRB, 0.1624851E-03_JPRB, &
+ & 0.1525305E-03_JPRB, 0.8864058E-04_JPRB, 0.4904664E-04_JPRB, 0.1451164E-03_JPRB, 0.2617269E-03_JPRB, &
+ & 0.3550630E-03_JPRB, 0.4328231E-03_JPRB, 0.5061485E-03_JPRB, 0.5026669E-03_JPRB, 0.4904191E-03_JPRB, &
+ & 0.4514644E-03_JPRB, 0.3765797E-03_JPRB, 0.3052066E-03_JPRB, 0.2502422E-03_JPRB, 0.1951159E-03_JPRB, &
+ & 0.2224293E-03_JPRB, 0.3463365E-03_JPRB, 0.4626359E-03_JPRB, 0.4548639E-03_JPRB, 0.4312663E-03_JPRB, &
+ & 0.3981121E-03_JPRB, 0.3601595E-03_JPRB, 0.3408163E-03_JPRB, 0.4272911E-03_JPRB, 0.5288183E-03_JPRB, &
+ & 0.5513737E-03_JPRB, 0.4471895E-03_JPRB, 0.3864898E-03_JPRB, 0.3626459E-03_JPRB, 0.3489821E-03_JPRB, &
+ & 0.4398179E-03_JPRB, 0.5966221E-03_JPRB, 0.7405845E-03_JPRB, 0.6992127E-03_JPRB, 0.6250672E-03_JPRB, &
+ & 0.5602797E-03_JPRB, 0.5163022E-03_JPRB, 0.4840466E-03_JPRB, 0.5107349E-03_JPRB, 0.5462615E-03_JPRB, &
+ & 0.5881982E-03_JPRB, 0.6573852E-03_JPRB, 0.7159264E-03_JPRB, 0.7562820E-03_JPRB, 0.7965609E-03_JPRB, &
+ & 0.8163875E-03_JPRB, 0.8190289E-03_JPRB, 0.8226782E-03_JPRB, 0.8284381E-03_JPRB, 0.8345755E-03_JPRB, &
+ & 0.8056005E-03_JPRB, 0.7495604E-03_JPRB, 0.7066258E-03_JPRB, 0.7724642E-03_JPRB, 0.9057206E-03_JPRB, &
+ & 0.8502832E-03_JPRB, 0.6413947E-03_JPRB, 0.5219530E-03_JPRB, 0.6165869E-03_JPRB, 0.7758490E-03_JPRB, &
+ & 0.8803623E-03_JPRB, 0.9650903E-03_JPRB, 0.1049895E-02_JPRB, 0.1079331E-02_JPRB, 0.1114359E-02_JPRB, &
+ & 0.1041519E-02_JPRB, 0.8810123E-03_JPRB, 0.7704380E-03_JPRB, 0.8720518E-03_JPRB, 0.1053372E-02_JPRB, &
+ & 0.1148837E-02_JPRB, 0.1189115E-02_JPRB, 0.1224080E-02_JPRB, 0.1139373E-02_JPRB, 0.1039175E-02_JPRB, &
+ & 0.9717263E-03_JPRB, 0.9659483E-03_JPRB, 0.9509932E-03_JPRB, 0.8842079E-03_JPRB, 0.8138584E-03_JPRB, &
+ & 0.8657698E-03_JPRB, 0.1011626E-02_JPRB, 0.1128555E-02_JPRB, 0.1102516E-02_JPRB, 0.1043855E-02_JPRB, &
+ & 0.1035198E-02_JPRB, 0.1093726E-02_JPRB, 0.1145715E-02_JPRB, 0.1101793E-02_JPRB, 0.1023007E-02_JPRB, &
+ & 0.1049129E-02_JPRB, 0.1125353E-02_JPRB, 0.1193913E-02_JPRB, 0.1135826E-02_JPRB, 0.1054100E-02_JPRB, &
+ & 0.1004690E-02_JPRB, 0.9727073E-03_JPRB, 0.9889501E-03_JPRB, 0.1206755E-02_JPRB, 0.1413361E-02_JPRB, &
+ & 0.1483673E-02_JPRB, 0.1389585E-02_JPRB, 0.1303692E-02_JPRB, 0.1202618E-02_JPRB, 0.1067236E-02_JPRB, &
+ & 0.1081125E-02_JPRB, 0.1193359E-02_JPRB, 0.1297538E-02_JPRB, 0.1362035E-02_JPRB, 0.1438721E-02_JPRB, &
+ & 0.1498571E-02_JPRB, 0.1605460E-02_JPRB, 0.1667381E-02_JPRB, 0.1561088E-02_JPRB, 0.1404859E-02_JPRB, &
+ & 0.1300112E-02_JPRB, 0.1232071E-02_JPRB, 0.1186359E-02_JPRB, 0.1317165E-02_JPRB, 0.1565706E-02_JPRB, &
+ & 0.1757936E-02_JPRB, 0.1998126E-02_JPRB, 0.2219445E-02_JPRB, 0.1934279E-02_JPRB, 0.1663420E-02_JPRB, &
+ & 0.1494387E-02_JPRB, 0.1478608E-02_JPRB, 0.1506739E-02_JPRB, 0.1668795E-02_JPRB, 0.1919090E-02_JPRB, &
+ & 0.1843774E-02_JPRB, 0.1546209E-02_JPRB, 0.1246735E-02_JPRB, 0.1458146E-02_JPRB, 0.1869647E-02_JPRB, &
+ & 0.1982769E-02_JPRB, 0.1804524E-02_JPRB, 0.1709744E-02_JPRB, 0.1773561E-02_JPRB, 0.1859586E-02_JPRB, &
+ & 0.1826165E-02_JPRB, 0.1656768E-02_JPRB, 0.1557886E-02_JPRB, 0.1705018E-02_JPRB, 0.1915113E-02_JPRB, &
+ & 0.2075051E-02_JPRB, 0.2126461E-02_JPRB, 0.2189845E-02_JPRB, 0.2264029E-02_JPRB, 0.2330736E-02_JPRB, &
+ & 0.2142399E-02_JPRB, 0.1641383E-02_JPRB, 0.1314965E-02_JPRB, 0.1430123E-02_JPRB, 0.1671123E-02_JPRB, &
+ & 0.2000943E-02_JPRB, 0.2398306E-02_JPRB, 0.2805397E-02_JPRB, 0.2760983E-02_JPRB, 0.2603031E-02_JPRB, &
+ & 0.2254001E-02_JPRB, 0.1707438E-02_JPRB, 0.1358394E-02_JPRB, 0.1617800E-02_JPRB, 0.2065673E-02_JPRB, &
+ & 0.2466817E-02_JPRB, 0.2769094E-02_JPRB, 0.3017141E-02_JPRB, 0.3025354E-02_JPRB, 0.2981591E-02_JPRB, &
+ & 0.2718787E-02_JPRB, 0.2352677E-02_JPRB, 0.2036865E-02_JPRB, 0.2123214E-02_JPRB, 0.2251885E-02_JPRB, &
+ & 0.2545599E-02_JPRB, 0.2963245E-02_JPRB, 0.3421649E-02_JPRB, 0.3761743E-02_JPRB, 0.4168039E-02_JPRB, &
+ & 0.3792586E-02_JPRB, 0.2691818E-02_JPRB, 0.1859473E-02_JPRB, 0.1698663E-02_JPRB, 0.1596011E-02_JPRB, &
+ & 0.1866468E-02_JPRB, 0.2472971E-02_JPRB, 0.3382006E-02_JPRB, 0.4041891E-02_JPRB, 0.4838723E-02_JPRB, &
+ & 0.5173073E-02_JPRB, 0.4874604E-02_JPRB, 0.4306427E-02_JPRB, 0.3231780E-02_JPRB, 0.2000433E-02_JPRB, &
+ & 0.1861439E-02_JPRB, 0.2225228E-02_JPRB, 0.2649365E-02_JPRB, 0.3034028E-02_JPRB, 0.3543490E-02_JPRB, &
+ & 0.4232267E-02_JPRB, 0.5139813E-02_JPRB, 0.6346525E-02_JPRB, 0.6436912E-02_JPRB, 0.6250926E-02_JPRB, &
+ & 0.5587344E-02_JPRB, 0.4808163E-02_JPRB, 0.3922214E-02_JPRB, 0.2997367E-02_JPRB, 0.2173786E-02_JPRB, &
+ & 0.2030102E-02_JPRB, 0.2242679E-02_JPRB, 0.2624961E-02_JPRB, 0.3565763E-02_JPRB, 0.5075541E-02_JPRB, &
+ & 0.6281868E-02_JPRB, 0.6886248E-02_JPRB, 0.7266843E-02_JPRB, 0.6076686E-02_JPRB, 0.4795772E-02_JPRB, &
+ & 0.4356297E-02_JPRB, 0.4466772E-02_JPRB, 0.4258595E-02_JPRB, 0.2897404E-02_JPRB, 0.1843119E-02_JPRB, &
+ & 0.2009932E-02_JPRB, 0.3199593E-02_JPRB, 0.4951469E-02_JPRB, 0.6041670E-02_JPRB, 0.7461846E-02_JPRB, &
+ & 0.8546823E-02_JPRB, 0.8710152E-02_JPRB, 0.8794515E-02_JPRB, 0.8287750E-02_JPRB, 0.7636299E-02_JPRB, &
+ & 0.5824848E-02_JPRB, 0.4316517E-02_JPRB, 0.3105479E-02_JPRB, 0.2465729E-02_JPRB, 0.1831760E-02_JPRB, &
+ & 0.2086637E-02_JPRB, 0.3358716E-02_JPRB, 0.4856066E-02_JPRB, 0.5922231E-02_JPRB, 0.7184053E-02_JPRB, &
+ & 0.8372539E-02_JPRB, 0.9001604E-02_JPRB, 0.9555919E-02_JPRB, 0.8104750E-02_JPRB, 0.6525334E-02_JPRB, &
+ & 0.4792899E-02_JPRB, 0.3547894E-02_JPRB, 0.2745707E-02_JPRB, 0.3341994E-02_JPRB, 0.4115321E-02_JPRB, &
+ & 0.4877749E-02_JPRB, 0.5827051E-02_JPRB, 0.7167797E-02_JPRB, 0.7492950E-02_JPRB, 0.7709746E-02_JPRB, &
+ & 0.8481136E-02_JPRB, 0.9578651E-02_JPRB, 0.1096287E-01_JPRB, 0.1099204E-01_JPRB, 0.1081739E-01_JPRB, &
+ & 0.8763371E-02_JPRB, 0.6211870E-02_JPRB, 0.4962033E-02_JPRB, 0.3850856E-02_JPRB, 0.2970878E-02_JPRB, &
+ & 0.2839165E-02_JPRB, 0.3280359E-02_JPRB, 0.3735243E-02_JPRB, 0.4371049E-02_JPRB, 0.5292864E-02_JPRB, &
+ & 0.6320171E-02_JPRB, 0.7608543E-02_JPRB, 0.9269996E-02_JPRB, 0.9811061E-02_JPRB, 0.1011115E-01_JPRB, &
+ & 0.1063044E-01_JPRB, 0.1127774E-01_JPRB, 0.1068954E-01_JPRB, 0.6261593E-02_JPRB, 0.3448325E-02_JPRB /)
+ZCTUV1(301:600) = (/ &
+ & 0.3132930E-02_JPRB, 0.4512714E-02_JPRB, 0.6235344E-02_JPRB, 0.7328861E-02_JPRB, 0.9068431E-02_JPRB, &
+ & 0.1026526E-01_JPRB, 0.1043364E-01_JPRB, 0.1075774E-01_JPRB, 0.1175188E-01_JPRB, 0.1299149E-01_JPRB, &
+ & 0.1349927E-01_JPRB, 0.1335356E-01_JPRB, 0.1329088E-01_JPRB, 0.1371228E-01_JPRB, 0.1416486E-01_JPRB, &
+ & 0.1314228E-01_JPRB, 0.1087734E-01_JPRB, 0.8150859E-02_JPRB, 0.4523423E-02_JPRB, 0.2050808E-02_JPRB, &
+ & 0.1681349E-02_JPRB, 0.2845095E-02_JPRB, 0.4677435E-02_JPRB, 0.6798010E-02_JPRB, 0.1090589E-01_JPRB, &
+ & 0.1337907E-01_JPRB, 0.1275446E-01_JPRB, 0.1242592E-01_JPRB, 0.1394778E-01_JPRB, 0.1606850E-01_JPRB, &
+ & 0.1529291E-01_JPRB, 0.1153001E-01_JPRB, 0.8916092E-02_JPRB, 0.6729881E-02_JPRB, 0.4765625E-02_JPRB, &
+ & 0.5167450E-02_JPRB, 0.7806076E-02_JPRB, 0.1046871E-01_JPRB, 0.9795097E-02_JPRB, 0.8494707E-02_JPRB, &
+ & 0.7421230E-02_JPRB, 0.6606390E-02_JPRB, 0.6140483E-02_JPRB, 0.8835159E-02_JPRB, 0.1348886E-01_JPRB, &
+ & 0.2018839E-01_JPRB, 0.2876065E-01_JPRB, 0.4566265E-01_JPRB, 0.3430709E-01_JPRB, 0.2582433E-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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZCTUV2(  1:300) = (/ &
+ & 0.5449728E-05_JPRB, 0.1073871E-05_JPRB,-0.4617351E-05_JPRB,-0.4662597E-05_JPRB,-0.4245903E-05_JPRB, &
+ &-0.3501344E-05_JPRB,-0.2327032E-05_JPRB,-0.1160485E-05_JPRB,-0.9958612E-06_JPRB,-0.9097969E-06_JPRB, &
+ &-0.6708045E-06_JPRB,-0.3015507E-06_JPRB,-0.6392786E-08_JPRB,-0.3021240E-06_JPRB,-0.6042436E-06_JPRB, &
+ & 0.1495235E-06_JPRB, 0.2286339E-05_JPRB, 0.3876945E-05_JPRB, 0.3135600E-05_JPRB, 0.1962560E-05_JPRB, &
+ & 0.2706349E-06_JPRB,-0.2130587E-05_JPRB,-0.4417644E-05_JPRB,-0.4455218E-05_JPRB,-0.4247367E-05_JPRB, &
+ &-0.2599687E-05_JPRB, 0.1002400E-05_JPRB, 0.4013848E-05_JPRB, 0.4290779E-05_JPRB, 0.4239120E-05_JPRB, &
+ & 0.2425512E-05_JPRB,-0.1615081E-05_JPRB,-0.5240423E-05_JPRB,-0.4114007E-05_JPRB,-0.2223535E-05_JPRB, &
+ & 0.7356294E-06_JPRB, 0.4315885E-05_JPRB, 0.7074211E-05_JPRB, 0.3583437E-05_JPRB,-0.7265943E-06_JPRB, &
+ &-0.2152072E-05_JPRB, 0.8515158E-06_JPRB, 0.2627439E-05_JPRB, 0.3447826E-05_JPRB, 0.3982830E-05_JPRB, &
+ & 0.3435070E-05_JPRB, 0.2089333E-05_JPRB, 0.6670214E-06_JPRB,-0.5065600E-06_JPRB,-0.1649474E-05_JPRB, &
+ &-0.5022627E-06_JPRB, 0.2711703E-05_JPRB, 0.5396061E-05_JPRB, 0.5160576E-05_JPRB, 0.4445397E-05_JPRB, &
+ & 0.4654078E-05_JPRB, 0.6341880E-05_JPRB, 0.7375423E-05_JPRB, 0.5832266E-05_JPRB, 0.3559810E-05_JPRB, &
+ & 0.1810887E-05_JPRB, 0.4885454E-06_JPRB,-0.4923044E-06_JPRB, 0.8285694E-06_JPRB, 0.2424262E-05_JPRB, &
+ & 0.4601969E-05_JPRB, 0.6532422E-05_JPRB, 0.7979189E-05_JPRB, 0.5542080E-05_JPRB, 0.6684266E-06_JPRB, &
+ & 0.5030713E-06_JPRB, 0.3990714E-05_JPRB, 0.6064054E-05_JPRB, 0.5041105E-05_JPRB, 0.3097796E-05_JPRB, &
+ & 0.2510567E-05_JPRB, 0.2758335E-05_JPRB, 0.2725572E-05_JPRB, 0.1902094E-05_JPRB, 0.5449911E-06_JPRB, &
+ & 0.1825130E-05_JPRB, 0.5139096E-05_JPRB, 0.7489894E-05_JPRB, 0.6139778E-05_JPRB, 0.3478090E-05_JPRB, &
+ & 0.2995152E-05_JPRB, 0.3705460E-05_JPRB, 0.4955684E-05_JPRB, 0.5840223E-05_JPRB, 0.6808994E-05_JPRB, &
+ & 0.7637068E-05_JPRB, 0.8072566E-05_JPRB, 0.8472739E-05_JPRB, 0.8785633E-05_JPRB, 0.9082861E-05_JPRB, &
+ & 0.8783771E-05_JPRB, 0.8007679E-05_JPRB, 0.7444976E-05_JPRB, 0.8667521E-05_JPRB, 0.1001028E-04_JPRB, &
+ & 0.9730282E-05_JPRB, 0.7358927E-05_JPRB, 0.5605692E-05_JPRB, 0.9000273E-05_JPRB, 0.1483381E-04_JPRB, &
+ & 0.1546519E-04_JPRB, 0.1342223E-04_JPRB, 0.1142913E-04_JPRB, 0.1142773E-04_JPRB, 0.1189336E-04_JPRB, &
+ & 0.1269055E-04_JPRB, 0.1521436E-04_JPRB, 0.1622249E-04_JPRB, 0.1450292E-04_JPRB, 0.1258747E-04_JPRB, &
+ & 0.1118601E-04_JPRB, 0.1046087E-04_JPRB, 0.1042888E-04_JPRB, 0.1318807E-04_JPRB, 0.1757355E-04_JPRB, &
+ & 0.1569589E-04_JPRB, 0.8876419E-05_JPRB, 0.3477785E-05_JPRB, 0.6092179E-05_JPRB, 0.1169360E-04_JPRB, &
+ & 0.1280658E-04_JPRB, 0.1156909E-04_JPRB, 0.1077928E-04_JPRB, 0.1150577E-04_JPRB, 0.1265658E-04_JPRB, &
+ & 0.1216864E-04_JPRB, 0.1071351E-04_JPRB, 0.9272525E-05_JPRB, 0.9172681E-05_JPRB, 0.9266210E-05_JPRB, &
+ & 0.8021223E-05_JPRB, 0.5337233E-05_JPRB, 0.2790878E-05_JPRB, 0.5715482E-05_JPRB, 0.8468879E-05_JPRB, &
+ & 0.1234670E-04_JPRB, 0.1693622E-04_JPRB, 0.1945495E-04_JPRB, 0.1515071E-04_JPRB, 0.8224375E-05_JPRB, &
+ & 0.1201112E-04_JPRB, 0.2331155E-04_JPRB, 0.3526882E-04_JPRB, 0.2870291E-04_JPRB, 0.1563162E-04_JPRB, &
+ & 0.1140909E-04_JPRB, 0.1557432E-04_JPRB, 0.1762633E-04_JPRB, 0.1500678E-04_JPRB, 0.1178058E-04_JPRB, &
+ & 0.1138556E-04_JPRB, 0.1392922E-04_JPRB, 0.1566068E-04_JPRB, 0.1500365E-04_JPRB, 0.1378532E-04_JPRB, &
+ & 0.1177548E-04_JPRB, 0.9777851E-05_JPRB, 0.7775072E-05_JPRB, 0.8716728E-05_JPRB, 0.9806249E-05_JPRB, &
+ & 0.1316521E-04_JPRB, 0.1904226E-04_JPRB, 0.2291855E-04_JPRB, 0.2240074E-04_JPRB, 0.2072333E-04_JPRB, &
+ & 0.1811899E-04_JPRB, 0.1469667E-04_JPRB, 0.1133881E-04_JPRB, 0.1322723E-04_JPRB, 0.1647023E-04_JPRB, &
+ & 0.1916838E-04_JPRB, 0.2205816E-04_JPRB, 0.2387456E-04_JPRB, 0.2335926E-04_JPRB, 0.2209182E-04_JPRB, &
+ & 0.1890222E-04_JPRB, 0.1381362E-04_JPRB, 0.9271030E-05_JPRB, 0.5131299E-05_JPRB, 0.1653106E-05_JPRB, &
+ & 0.4911985E-05_JPRB, 0.1272395E-04_JPRB, 0.1980745E-04_JPRB, 0.2038804E-04_JPRB, 0.2024396E-04_JPRB, &
+ & 0.2059572E-04_JPRB, 0.2124187E-04_JPRB, 0.2100664E-04_JPRB, 0.1594810E-04_JPRB, 0.8547316E-05_JPRB, &
+ & 0.9426703E-05_JPRB, 0.1696874E-04_JPRB, 0.2096693E-04_JPRB, 0.1660292E-04_JPRB, 0.1010086E-04_JPRB, &
+ & 0.8478976E-05_JPRB, 0.9815730E-05_JPRB, 0.1096572E-04_JPRB, 0.1022864E-04_JPRB, 0.8534034E-05_JPRB, &
+ & 0.7089896E-05_JPRB, 0.6877433E-05_JPRB, 0.7622835E-05_JPRB, 0.1016432E-04_JPRB, 0.1179338E-04_JPRB, &
+ & 0.1105352E-04_JPRB, 0.9418647E-05_JPRB, 0.7047521E-05_JPRB, 0.2836491E-05_JPRB,-0.3273142E-05_JPRB, &
+ &-0.5378550E-05_JPRB,-0.4812351E-05_JPRB,-0.4587549E-05_JPRB, 0.2554223E-06_JPRB, 0.6261604E-05_JPRB, &
+ & 0.1238181E-04_JPRB, 0.1535396E-04_JPRB, 0.1632936E-04_JPRB, 0.1245009E-04_JPRB, 0.7953743E-05_JPRB, &
+ & 0.7041203E-05_JPRB, 0.8162968E-05_JPRB, 0.8718669E-05_JPRB, 0.4926565E-05_JPRB,-0.3380653E-05_JPRB, &
+ &-0.8394464E-05_JPRB,-0.4490310E-05_JPRB, 0.1038037E-05_JPRB, 0.1348030E-04_JPRB, 0.2415614E-04_JPRB, &
+ & 0.2358109E-04_JPRB, 0.1487318E-04_JPRB, 0.8895374E-05_JPRB, 0.7548401E-05_JPRB, 0.6078768E-05_JPRB, &
+ & 0.6853832E-05_JPRB, 0.9282053E-05_JPRB, 0.1039655E-04_JPRB, 0.1021246E-04_JPRB, 0.8594036E-05_JPRB, &
+ & 0.6369831E-05_JPRB, 0.6854452E-05_JPRB, 0.7271157E-05_JPRB, 0.6951013E-05_JPRB, 0.6097368E-05_JPRB, &
+ & 0.1010198E-04_JPRB, 0.1231559E-04_JPRB, 0.1322275E-04_JPRB, 0.1709857E-04_JPRB, 0.2124202E-04_JPRB, &
+ & 0.1979320E-04_JPRB, 0.1126303E-04_JPRB, 0.4723688E-06_JPRB,-0.7984352E-06_JPRB,-0.7715917E-07_JPRB, &
+ &-0.1499937E-05_JPRB,-0.3995374E-05_JPRB,-0.4728345E-05_JPRB, 0.8784824E-05_JPRB, 0.2100014E-04_JPRB, &
+ & 0.2723090E-04_JPRB, 0.2794500E-04_JPRB, 0.2646355E-04_JPRB, 0.2066187E-04_JPRB, 0.1373170E-04_JPRB, &
+ & 0.8347183E-05_JPRB, 0.3109514E-05_JPRB,-0.3910176E-05_JPRB, 0.5399752E-05_JPRB, 0.2236864E-04_JPRB, &
+ & 0.2737938E-04_JPRB, 0.1373889E-04_JPRB,-0.4865972E-05_JPRB,-0.7329967E-05_JPRB,-0.7027517E-05_JPRB, &
+ & 0.5835257E-05_JPRB, 0.1728207E-04_JPRB, 0.2252474E-04_JPRB, 0.3336825E-04_JPRB, 0.4236085E-04_JPRB, &
+ & 0.3230816E-04_JPRB, 0.8722150E-05_JPRB,-0.9830307E-05_JPRB,-0.4446554E-05_JPRB, 0.7582591E-05_JPRB, &
+ & 0.1569976E-04_JPRB, 0.1360494E-04_JPRB, 0.1223443E-04_JPRB, 0.2941493E-04_JPRB, 0.5059241E-04_JPRB, &
+ & 0.4548364E-04_JPRB, 0.1569561E-04_JPRB, 0.3601336E-05_JPRB, 0.4300248E-04_JPRB, 0.6058728E-04_JPRB /)
+ZCTUV2(301:600) = (/ &
+ & 0.5357265E-04_JPRB, 0.3029424E-04_JPRB, 0.1513925E-05_JPRB,-0.1018678E-04_JPRB,-0.2847171E-04_JPRB, &
+ &-0.3043390E-04_JPRB,-0.9641391E-05_JPRB, 0.1707224E-04_JPRB, 0.1344189E-04_JPRB, 0.3707683E-05_JPRB, &
+ & 0.7901584E-05_JPRB, 0.2753039E-04_JPRB, 0.4065997E-04_JPRB, 0.8414642E-05_JPRB,-0.2501079E-04_JPRB, &
+ &-0.1891941E-04_JPRB, 0.1456770E-04_JPRB, 0.3651696E-04_JPRB, 0.2586492E-04_JPRB, 0.1050168E-04_JPRB, &
+ & 0.5334877E-06_JPRB,-0.1962072E-04_JPRB,-0.5089322E-04_JPRB,-0.8441173E-04_JPRB,-0.1526737E-03_JPRB, &
+ &-0.1566662E-03_JPRB,-0.7777984E-04_JPRB, 0.1420665E-04_JPRB, 0.2271288E-05_JPRB,-0.2627546E-04_JPRB, &
+ & 0.1128679E-04_JPRB, 0.1177677E-03_JPRB, 0.1880122E-03_JPRB, 0.1648969E-03_JPRB, 0.1299399E-03_JPRB, &
+ & 0.6704369E-04_JPRB,-0.2064946E-04_JPRB,-0.9502823E-04_JPRB,-0.4572404E-04_JPRB, 0.3763052E-04_JPRB, &
+ & 0.8176474E-04_JPRB, 0.7521586E-04_JPRB, 0.6640679E-04_JPRB, 0.4663960E-04_JPRB, 0.1536782E-05_JPRB, &
+ &-0.1030770E-03_JPRB,-0.2760625E-03_JPRB,-0.6169242E-03_JPRB,-0.3990865E-03_JPRB,-0.2450004E-03_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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 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, 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, 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, &
+ & 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, 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, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+
+!ZDK250 = (/ &
+!ZDTUV1 = (/ &
+!ZDTUV2 = (/ &
+
+
+                                    
+! revised 20051031
+! TSI UV: 0.1057502799E+03 integrated over the 280-400 nm interval
+ZASUVB = (/ &                                                            
+ & 0.1251796E+01_JPRB, 0.1800686E+01_JPRB, 0.3127783E+01_JPRB, 0.3057467E+01_JPRB, 0.3225982E+01_JPRB, &
+ & 0.3601007E+01_JPRB, 0.3833149E+01_JPRB, 0.3772373E+01_JPRB, 0.3740471E+01_JPRB, 0.5108631E+01_JPRB, &
+ & 0.4926397E+01_JPRB, 0.4104165E+01_JPRB, 0.4356608E+01_JPRB, 0.5318757E+01_JPRB, 0.5635120E+01_JPRB, &
+ & 0.4680448E+01_JPRB, 0.5237057E+01_JPRB, 0.6325728E+01_JPRB, 0.5219252E+01_JPRB, 0.5970084E+01_JPRB, &
+ & 0.4724881E+01_JPRB, 0.4951663E+01_JPRB, 0.5338753E+01_JPRB, 0.6442023E+01_JPRB /)
+
+! TSI UV: 0.1057502799E+03 integrated over the 280-400 nm interval
+ZBSUVB = (/ &                                                            
+ & 0.6848311E-01_JPRB, 0.2498671E+00_JPRB, 0.3945846E+00_JPRB, 0.3491516E+00_JPRB, 0.1897091E+00_JPRB, &
+ & 0.8228300E-01_JPRB, 0.2997684E+00_JPRB, 0.4743167E+00_JPRB, 0.4136641E+00_JPRB, 0.5306536E+00_JPRB, &
+ & 0.7163181E+00_JPRB, 0.6737111E+00_JPRB, 0.5750798E+00_JPRB, 0.6513190E+00_JPRB, 0.5113551E+00_JPRB, &
+ & 0.6462190E+00_JPRB, 0.5669341E+00_JPRB, 0.6326718E+00_JPRB, 0.4581728E+00_JPRB, 0.7534690E+00_JPRB, &
+ & 0.5087756E+00_JPRB, 0.7125608E+00_JPRB, 0.5832244E+00_JPRB, 0.7415306E+00_JPRB, 0.6798909E+00_JPRB, &
+ & 0.7188407E+00_JPRB, 0.6775800E+00_JPRB, 0.8080093E+00_JPRB, 0.8375965E+00_JPRB, 0.5589809E+00_JPRB, &
+ & 0.7169390E+00_JPRB, 0.8965086E+00_JPRB, 0.7290298E+00_JPRB, 0.8052218E+00_JPRB, 0.6854493E+00_JPRB, &
+ & 0.7742989E+00_JPRB, 0.6145189E+00_JPRB, 0.9867508E+00_JPRB, 0.6230114E+00_JPRB, 0.7737931E+00_JPRB, &
+ & 0.8929048E+00_JPRB, 0.6839315E+00_JPRB, 0.6537453E+00_JPRB, 0.6464708E+00_JPRB, 0.8634182E+00_JPRB, &
+ & 0.9398837E+00_JPRB, 0.1117516E+01_JPRB, 0.1016506E+01_JPRB, 0.9115749E+00_JPRB, 0.1123150E+01_JPRB, &
+ & 0.9910813E+00_JPRB, 0.9517728E+00_JPRB, 0.1039072E+01_JPRB, 0.9489145E+00_JPRB, 0.9955564E+00_JPRB, &
+ & 0.9388580E+00_JPRB, 0.6909630E+00_JPRB, 0.7680316E+00_JPRB, 0.8123949E+00_JPRB, 0.8939177E+00_JPRB, &
+ & 0.9223812E+00_JPRB, 0.8122940E+00_JPRB, 0.8338263E+00_JPRB, 0.9790789E+00_JPRB, 0.8090277E+00_JPRB, &
+ & 0.1097064E+01_JPRB, 0.1042524E+01_JPRB, 0.9627741E+00_JPRB, 0.1277082E+01_JPRB, 0.9393126E+00_JPRB, &
+ & 0.1239610E+01_JPRB, 0.1066807E+01_JPRB, 0.9717703E+00_JPRB, 0.1129375E+01_JPRB, 0.1227557E+01_JPRB, &
+ & 0.1157243E+01_JPRB, 0.9689299E+00_JPRB, 0.8114618E+00_JPRB, 0.6022537E+00_JPRB, 0.1140560E+01_JPRB, &
+ & 0.1067406E+01_JPRB, 0.1023137E+01_JPRB, 0.1176517E+01_JPRB, 0.9235301E+00_JPRB, 0.1046466E+01_JPRB, &
+ & 0.1342558E+01_JPRB, 0.1303960E+01_JPRB, 0.1248713E+01_JPRB, 0.1120003E+01_JPRB, 0.1310493E+01_JPRB, &
+ & 0.1126627E+01_JPRB, 0.1383549E+01_JPRB, 0.9327253E+00_JPRB, 0.8592345E+00_JPRB, 0.9171154E+00_JPRB, &
+ & 0.1090722E+01_JPRB, 0.1083875E+01_JPRB, 0.1342697E+01_JPRB, 0.1462411E+01_JPRB, 0.9903797E+00_JPRB, &
+ & 0.1264847E+01_JPRB, 0.1143896E+01_JPRB, 0.6993406E+00_JPRB, 0.6519147E+00_JPRB, 0.9648829E+00_JPRB, &
+ & 0.9177119E+00_JPRB, 0.9760993E+00_JPRB, 0.8564172E+00_JPRB, 0.8915388E+00_JPRB, 0.1309896E+01_JPRB, &
+ & 0.1252062E+01_JPRB, 0.1518355E+01_JPRB, 0.1037630E+01_JPRB, 0.3918341E+00_JPRB, 0.1138872E+01_JPRB, &
+ & 0.1384648E+01_JPRB, 0.7875828E+00_JPRB, 0.9430014E+00_JPRB, 0.1651466E+01_JPRB, 0.1675324E+01_JPRB /)
+
+! TSI UV: 0.1057502799E+03 integrated over the 280-400 nm interval
+ZCSUVB(  1:300) = (/ &
+ & 0.1158150E-01_JPRB, 0.4307253E-02_JPRB, 0.8679530E-02_JPRB, 0.1612620E-01_JPRB, 0.2778863E-01_JPRB, &
+ & 0.3575870E-01_JPRB, 0.3593124E-01_JPRB, 0.5114494E-01_JPRB, 0.6681306E-01_JPRB, 0.6021919E-01_JPRB, &
+ & 0.8154579E-01_JPRB, 0.6622351E-01_JPRB, 0.8759850E-01_JPRB, 0.7109950E-01_JPRB, 0.8811727E-01_JPRB, &
+ & 0.7734752E-01_JPRB, 0.6886194E-01_JPRB, 0.7562198E-01_JPRB, 0.5066989E-01_JPRB, 0.7665027E-01_JPRB, &
+ & 0.5342708E-01_JPRB, 0.5731519E-01_JPRB, 0.3119192E-01_JPRB, 0.2780394E-01_JPRB, 0.1997097E-01_JPRB, &
+ & 0.1199952E-01_JPRB, 0.3781212E-02_JPRB, 0.1343422E-01_JPRB, 0.2034198E-01_JPRB, 0.3272607E-01_JPRB, &
+ & 0.4846868E-01_JPRB, 0.5698028E-01_JPRB, 0.7398895E-01_JPRB, 0.4847769E-01_JPRB, 0.7185277E-01_JPRB, &
+ & 0.9515611E-01_JPRB, 0.1128814E+00_JPRB, 0.9564205E-01_JPRB, 0.7717521E-01_JPRB, 0.9346189E-01_JPRB, &
+ & 0.4597404E-01_JPRB, 0.3428929E-01_JPRB, 0.1077923E+00_JPRB, 0.1154901E+00_JPRB, 0.1101183E+00_JPRB, &
+ & 0.9279595E-01_JPRB, 0.9740494E-01_JPRB, 0.7512583E-01_JPRB, 0.1420005E+00_JPRB, 0.1233264E+00_JPRB, &
+ & 0.1506065E+00_JPRB, 0.1314347E+00_JPRB, 0.1466181E+00_JPRB, 0.1625762E+00_JPRB, 0.1250826E+00_JPRB, &
+ & 0.1025410E+00_JPRB, 0.1180653E+00_JPRB, 0.1372793E+00_JPRB, 0.1567150E+00_JPRB, 0.1591106E+00_JPRB, &
+ & 0.1509978E+00_JPRB, 0.1523881E+00_JPRB, 0.1050467E+00_JPRB, 0.8648758E-01_JPRB, 0.8015965E-01_JPRB, &
+ & 0.1484698E+00_JPRB, 0.1179774E+00_JPRB, 0.1492430E+00_JPRB, 0.1174614E+00_JPRB, 0.1181674E+00_JPRB, &
+ & 0.1251424E+00_JPRB, 0.1001071E+00_JPRB, 0.9280812E-01_JPRB, 0.1512694E+00_JPRB, 0.4202820E-01_JPRB, &
+ & 0.1189204E+00_JPRB, 0.1582238E+00_JPRB, 0.9405126E-01_JPRB, 0.1425538E+00_JPRB, 0.1324698E+00_JPRB, &
+ & 0.1597341E+00_JPRB, 0.1710007E+00_JPRB, 0.8407424E-01_JPRB, 0.5323930E-01_JPRB, 0.9888584E-01_JPRB, &
+ & 0.6824519E-01_JPRB, 0.1120127E+00_JPRB, 0.1361283E+00_JPRB, 0.1293499E+00_JPRB, 0.1869357E+00_JPRB, &
+ & 0.1177258E+00_JPRB, 0.9133044E-01_JPRB, 0.4441319E-01_JPRB, 0.9906802E-01_JPRB, 0.1056354E+00_JPRB, &
+ & 0.1822143E+00_JPRB, 0.1713972E+00_JPRB, 0.6409213E-01_JPRB, 0.1762541E+00_JPRB, 0.1595112E+00_JPRB, &
+ & 0.4608663E-01_JPRB, 0.6802742E-01_JPRB, 0.1393778E+00_JPRB, 0.1646635E+00_JPRB, 0.9062016E-01_JPRB, &
+ & 0.1500694E+00_JPRB, 0.1700569E+00_JPRB, 0.1527697E+00_JPRB, 0.1529162E+00_JPRB, 0.8674857E-01_JPRB, &
+ & 0.4436884E-01_JPRB, 0.1046963E+00_JPRB, 0.1463353E+00_JPRB, 0.8535615E-01_JPRB, 0.2024678E+00_JPRB, &
+ & 0.1631171E+00_JPRB, 0.1501661E+00_JPRB, 0.1783627E+00_JPRB, 0.1560721E+00_JPRB, 0.9381256E-01_JPRB, &
+ & 0.1548443E+00_JPRB, 0.1065238E+00_JPRB, 0.1752939E+00_JPRB, 0.1560214E+00_JPRB, 0.8720748E-01_JPRB, &
+ & 0.1526506E+00_JPRB, 0.2124056E+00_JPRB, 0.1212607E+00_JPRB, 0.1718601E+00_JPRB, 0.6066382E-01_JPRB, &
+ & 0.1302736E+00_JPRB, 0.1977617E+00_JPRB, 0.1057830E+00_JPRB, 0.1346538E+00_JPRB, 0.1091080E+00_JPRB, &
+ & 0.1827814E+00_JPRB, 0.1490962E+00_JPRB, 0.1923628E+00_JPRB, 0.1350661E+00_JPRB, 0.1487027E+00_JPRB, &
+ & 0.1854675E+00_JPRB, 0.1422262E+00_JPRB, 0.1845453E+00_JPRB, 0.1926982E+00_JPRB, 0.1326593E+00_JPRB, &
+ & 0.9339384E-01_JPRB, 0.7605023E-01_JPRB, 0.1398333E+00_JPRB, 0.1053312E+00_JPRB, 0.1443723E+00_JPRB, &
+ & 0.4935243E-01_JPRB, 0.1231221E+00_JPRB, 0.1592260E+00_JPRB, 0.1695701E+00_JPRB, 0.2156683E+00_JPRB, &
+ & 0.1872401E+00_JPRB, 0.2222135E+00_JPRB, 0.1774713E+00_JPRB, 0.1779839E+00_JPRB, 0.1315997E+00_JPRB, &
+ & 0.1245990E+00_JPRB, 0.1306088E+00_JPRB, 0.1570354E+00_JPRB, 0.1659742E+00_JPRB, 0.1508124E+00_JPRB, &
+ & 0.1550767E+00_JPRB, 0.1582761E+00_JPRB, 0.1203409E+00_JPRB, 0.1615870E+00_JPRB, 0.2099411E+00_JPRB, &
+ & 0.1686777E+00_JPRB, 0.1619672E+00_JPRB, 0.5918952E-01_JPRB, 0.1481797E+00_JPRB, 0.1474352E+00_JPRB, &
+ & 0.1851919E+00_JPRB, 0.1679120E+00_JPRB, 0.1998436E+00_JPRB, 0.1389546E+00_JPRB, 0.8239684E-01_JPRB, &
+ & 0.1047535E+00_JPRB, 0.9949701E-01_JPRB, 0.1487465E+00_JPRB, 0.1276272E+00_JPRB, 0.1338947E+00_JPRB, &
+ & 0.1867179E+00_JPRB, 0.2201701E+00_JPRB, 0.1779457E+00_JPRB, 0.2388429E+00_JPRB, 0.1630742E+00_JPRB, &
+ & 0.1068201E+00_JPRB, 0.8450688E-01_JPRB, 0.1127901E+00_JPRB, 0.1274841E+00_JPRB, 0.1914103E+00_JPRB, &
+ & 0.2002285E+00_JPRB, 0.9097867E-01_JPRB, 0.1278886E+00_JPRB, 0.1344432E+00_JPRB, 0.2202541E+00_JPRB, &
+ & 0.1482008E+00_JPRB, 0.1469951E+00_JPRB, 0.2015719E+00_JPRB, 0.1878379E+00_JPRB, 0.2082990E+00_JPRB, &
+ & 0.1017584E+00_JPRB, 0.1451019E+00_JPRB, 0.7703697E-01_JPRB, 0.1780647E+00_JPRB, 0.1819695E+00_JPRB, &
+ & 0.1600806E+00_JPRB, 0.1267505E+00_JPRB, 0.1588537E+00_JPRB, 0.9667448E-01_JPRB, 0.1113860E+00_JPRB, &
+ & 0.9133881E-01_JPRB, 0.1729763E+00_JPRB, 0.1181825E+00_JPRB, 0.1292425E+00_JPRB, 0.1347307E+00_JPRB, &
+ & 0.1512866E+00_JPRB, 0.1808238E+00_JPRB, 0.1699806E+00_JPRB, 0.2193174E+00_JPRB, 0.1420098E+00_JPRB, &
+ & 0.1576642E+00_JPRB, 0.1784694E+00_JPRB, 0.1526431E+00_JPRB, 0.2519739E+00_JPRB, 0.1991331E+00_JPRB, &
+ & 0.2155590E+00_JPRB, 0.2423780E+00_JPRB, 0.2025711E+00_JPRB, 0.2256757E+00_JPRB, 0.2313318E+00_JPRB, &
+ & 0.1832516E+00_JPRB, 0.2300989E+00_JPRB, 0.2196651E+00_JPRB, 0.2103950E+00_JPRB, 0.1730957E+00_JPRB, &
+ & 0.1979747E+00_JPRB, 0.1740626E+00_JPRB, 0.1905000E+00_JPRB, 0.1610193E+00_JPRB, 0.1880183E+00_JPRB, &
+ & 0.2203149E+00_JPRB, 0.2412104E+00_JPRB, 0.2545475E+00_JPRB, 0.1662324E+00_JPRB, 0.2408452E+00_JPRB, &
+ & 0.2558326E+00_JPRB, 0.1969197E+00_JPRB, 0.2039628E+00_JPRB, 0.1443392E+00_JPRB, 0.1900270E+00_JPRB, &
+ & 0.2009350E+00_JPRB, 0.1847773E+00_JPRB, 0.1558351E+00_JPRB, 0.1924818E+00_JPRB, 0.2177436E+00_JPRB, &
+ & 0.2086823E+00_JPRB, 0.1804881E+00_JPRB, 0.2275202E+00_JPRB, 0.2078572E+00_JPRB, 0.2145247E+00_JPRB, &
+ & 0.1762646E+00_JPRB, 0.2206831E+00_JPRB, 0.2270376E+00_JPRB, 0.1269940E+00_JPRB, 0.1979352E+00_JPRB, &
+ & 0.2014534E+00_JPRB, 0.2058836E+00_JPRB, 0.2000303E+00_JPRB, 0.1874826E+00_JPRB, 0.2007064E+00_JPRB, &
+ & 0.1420998E+00_JPRB, 0.2326092E+00_JPRB, 0.2102334E+00_JPRB, 0.2060209E+00_JPRB, 0.1478948E+00_JPRB, &
+ & 0.6166791E-01_JPRB, 0.9824482E-01_JPRB, 0.2134419E+00_JPRB, 0.1737989E+00_JPRB, 0.1438094E+00_JPRB, &
+ & 0.9751125E-01_JPRB, 0.9984105E-01_JPRB, 0.1418594E+00_JPRB, 0.2413629E+00_JPRB, 0.1874570E+00_JPRB, &
+ & 0.1152467E+00_JPRB, 0.1874475E+00_JPRB, 0.1836579E+00_JPRB, 0.1809469E+00_JPRB, 0.1450959E+00_JPRB, &
+ & 0.2264130E+00_JPRB, 0.1111494E+00_JPRB, 0.1591455E+00_JPRB, 0.1895232E+00_JPRB, 0.2076865E+00_JPRB /)
+ZCSUVB(301:600) = (/ &
+ & 0.2530582E+00_JPRB, 0.1691832E+00_JPRB, 0.1673257E+00_JPRB, 0.1651305E+00_JPRB, 0.1676837E+00_JPRB, &
+ & 0.1801740E+00_JPRB, 0.1678922E+00_JPRB, 0.1142739E+00_JPRB, 0.1588322E+00_JPRB, 0.1911218E+00_JPRB, &
+ & 0.2137500E+00_JPRB, 0.1589394E+00_JPRB, 0.1462175E+00_JPRB, 0.1521134E+00_JPRB, 0.1628060E+00_JPRB, &
+ & 0.2311198E+00_JPRB, 0.1948069E+00_JPRB, 0.1652501E+00_JPRB, 0.1950638E+00_JPRB, 0.1928383E+00_JPRB, &
+ & 0.1185256E+00_JPRB, 0.1315500E+00_JPRB, 0.1481399E+00_JPRB, 0.1733126E+00_JPRB, 0.2374996E+00_JPRB, &
+ & 0.2374471E+00_JPRB, 0.1786689E+00_JPRB, 0.2087820E+00_JPRB, 0.2633031E+00_JPRB, 0.2088632E+00_JPRB, &
+ & 0.2220497E+00_JPRB, 0.1871010E+00_JPRB, 0.2358347E+00_JPRB, 0.1865678E+00_JPRB, 0.2109712E+00_JPRB, &
+ & 0.2466503E+00_JPRB, 0.2067040E+00_JPRB, 0.2054577E+00_JPRB, 0.1018214E+00_JPRB, 0.2021408E+00_JPRB, &
+ & 0.2510176E+00_JPRB, 0.2619543E+00_JPRB, 0.2186540E+00_JPRB, 0.2692426E+00_JPRB, 0.2762131E+00_JPRB, &
+ & 0.1443544E+00_JPRB, 0.2331391E+00_JPRB, 0.2068319E+00_JPRB, 0.1624159E+00_JPRB, 0.1925712E+00_JPRB, &
+ & 0.2315444E+00_JPRB, 0.2675816E+00_JPRB, 0.2617563E+00_JPRB, 0.2397498E+00_JPRB, 0.2389780E+00_JPRB, &
+ & 0.2017490E+00_JPRB, 0.2164805E+00_JPRB, 0.1560795E+00_JPRB, 0.2334687E+00_JPRB, 0.2590291E+00_JPRB, &
+ & 0.2519819E+00_JPRB, 0.2069263E+00_JPRB, 0.1131312E+00_JPRB, 0.1501324E+00_JPRB, 0.2495983E+00_JPRB, &
+ & 0.2326745E+00_JPRB, 0.2538886E+00_JPRB, 0.2257110E+00_JPRB, 0.2008390E+00_JPRB, 0.2162623E+00_JPRB, &
+ & 0.2815691E+00_JPRB, 0.2071696E+00_JPRB, 0.2931835E+00_JPRB, 0.2567119E+00_JPRB, 0.1889232E+00_JPRB, &
+ & 0.2792606E+00_JPRB, 0.2335529E+00_JPRB, 0.1652571E+00_JPRB, 0.2136573E+00_JPRB, 0.2655147E+00_JPRB, &
+ & 0.2021998E+00_JPRB, 0.2492024E+00_JPRB, 0.2237493E+00_JPRB, 0.9668919E-01_JPRB, 0.1970893E+00_JPRB, &
+ & 0.9243014E-01_JPRB, 0.1704992E+00_JPRB, 0.1867496E+00_JPRB, 0.1740344E+00_JPRB, 0.1877484E+00_JPRB, &
+ & 0.1485550E+00_JPRB, 0.9281972E-01_JPRB, 0.1346586E+00_JPRB, 0.8005841E-01_JPRB, 0.1461620E+00_JPRB, &
+ & 0.1703585E+00_JPRB, 0.2748065E+00_JPRB, 0.2135569E+00_JPRB, 0.2206926E+00_JPRB, 0.2611456E+00_JPRB, &
+ & 0.3002764E+00_JPRB, 0.2001613E+00_JPRB, 0.1852186E+00_JPRB, 0.1820937E+00_JPRB, 0.1996564E+00_JPRB, &
+ & 0.1438404E+00_JPRB, 0.2192468E+00_JPRB, 0.2426639E+00_JPRB, 0.2698561E+00_JPRB, 0.1475303E+00_JPRB, &
+ & 0.1369558E+00_JPRB, 0.2283586E+00_JPRB, 0.1959572E+00_JPRB, 0.3457803E+00_JPRB, 0.2694656E+00_JPRB, &
+ & 0.1617160E+00_JPRB, 0.1227123E+00_JPRB, 0.2226935E+00_JPRB, 0.1845919E+00_JPRB, 0.2318165E+00_JPRB, &
+ & 0.2967969E+00_JPRB, 0.2018478E+00_JPRB, 0.1869166E+00_JPRB, 0.2005376E+00_JPRB, 0.1603670E+00_JPRB, &
+ & 0.2054483E+00_JPRB, 0.2567736E+00_JPRB, 0.2826306E+00_JPRB, 0.2930521E+00_JPRB, 0.3046532E+00_JPRB, &
+ & 0.2922131E+00_JPRB, 0.2425442E+00_JPRB, 0.2202092E+00_JPRB, 0.3031651E+00_JPRB, 0.2458283E+00_JPRB, &
+ & 0.2005188E+00_JPRB, 0.3134617E+00_JPRB, 0.2558356E+00_JPRB, 0.2571902E+00_JPRB, 0.2217072E+00_JPRB, &
+ & 0.2084442E+00_JPRB, 0.2559362E+00_JPRB, 0.2557498E+00_JPRB, 0.2190597E+00_JPRB, 0.1808136E+00_JPRB, &
+ & 0.2219874E+00_JPRB, 0.3175022E+00_JPRB, 0.2378181E+00_JPRB, 0.2659648E+00_JPRB, 0.2672206E+00_JPRB, &
+ & 0.2852412E+00_JPRB, 0.2738525E+00_JPRB, 0.2187990E+00_JPRB, 0.1703537E+00_JPRB, 0.1783808E+00_JPRB, &
+ & 0.1845599E+00_JPRB, 0.2636097E+00_JPRB, 0.3560195E+00_JPRB, 0.3115435E+00_JPRB, 0.2678166E+00_JPRB, &
+ & 0.1147860E+00_JPRB, 0.1107158E+00_JPRB, 0.2578273E+00_JPRB, 0.2698551E+00_JPRB, 0.1795411E+00_JPRB, &
+ & 0.2748137E+00_JPRB, 0.2236250E+00_JPRB, 0.9111431E-01_JPRB, 0.1095607E+00_JPRB, 0.1601207E+00_JPRB, &
+ & 0.2477373E+00_JPRB, 0.2842807E+00_JPRB, 0.1589658E+00_JPRB, 0.1025690E+00_JPRB, 0.1235626E+00_JPRB, &
+ & 0.1114009E+00_JPRB, 0.2359608E+00_JPRB, 0.2825647E+00_JPRB, 0.3238992E+00_JPRB, 0.1368962E+00_JPRB, &
+ & 0.2139942E+00_JPRB, 0.2490571E+00_JPRB, 0.1949766E+00_JPRB, 0.2244310E+00_JPRB, 0.2014157E+00_JPRB, &
+ & 0.2007936E+00_JPRB, 0.2693866E+00_JPRB, 0.2962085E+00_JPRB, 0.2980880E+00_JPRB, 0.2782205E+00_JPRB, &
+ & 0.3581445E+00_JPRB, 0.3251818E+00_JPRB, 0.3322366E+00_JPRB, 0.2409279E+00_JPRB, 0.2059198E+00_JPRB, &
+ & 0.1942687E+00_JPRB, 0.2585852E+00_JPRB, 0.1726274E+00_JPRB, 0.2225615E+00_JPRB, 0.1423369E+00_JPRB, &
+ & 0.2277843E+00_JPRB, 0.2619196E+00_JPRB, 0.3190190E+00_JPRB, 0.2141752E+00_JPRB, 0.2419485E+00_JPRB, &
+ & 0.3032540E+00_JPRB, 0.2357463E+00_JPRB, 0.1822032E+00_JPRB, 0.1373469E+00_JPRB, 0.2853460E+00_JPRB, &
+ & 0.1031687E+00_JPRB, 0.1750166E+00_JPRB, 0.1704368E+00_JPRB, 0.1019661E+00_JPRB, 0.1487524E+00_JPRB, &
+ & 0.1650886E+00_JPRB, 0.1164109E+00_JPRB, 0.1054042E+00_JPRB, 0.1594288E+00_JPRB, 0.1055822E+00_JPRB, &
+ & 0.1176607E+00_JPRB, 0.1849293E+00_JPRB, 0.2224796E+00_JPRB, 0.1783373E+00_JPRB, 0.2614759E+00_JPRB, &
+ & 0.1500050E+00_JPRB, 0.2488365E+00_JPRB, 0.1675993E+00_JPRB, 0.1911893E+00_JPRB, 0.1600818E+00_JPRB, &
+ & 0.9722187E-01_JPRB, 0.1919937E+00_JPRB, 0.2495219E+00_JPRB, 0.2255473E+00_JPRB, 0.2118145E+00_JPRB, &
+ & 0.1620823E+00_JPRB, 0.1034425E+00_JPRB, 0.2278996E+00_JPRB, 0.2416400E+00_JPRB, 0.1213528E+00_JPRB, &
+ & 0.2125401E+00_JPRB, 0.1247030E+00_JPRB, 0.2620897E+00_JPRB, 0.1179802E+00_JPRB, 0.1742258E+00_JPRB, &
+ & 0.1820025E+00_JPRB, 0.3155541E+00_JPRB, 0.2765884E+00_JPRB, 0.2444874E+00_JPRB, 0.2912637E+00_JPRB, &
+ & 0.2198656E+00_JPRB, 0.2843479E+00_JPRB, 0.2241306E+00_JPRB, 0.2015474E+00_JPRB, 0.3221704E+00_JPRB, &
+ & 0.2833514E+00_JPRB, 0.3601597E+00_JPRB, 0.2911269E+00_JPRB, 0.2972085E+00_JPRB, 0.2865082E+00_JPRB, &
+ & 0.2065020E+00_JPRB, 0.2025947E+00_JPRB, 0.2778561E+00_JPRB, 0.2096391E+00_JPRB, 0.1410383E+00_JPRB, &
+ & 0.9857938E-01_JPRB, 0.6269173E-01_JPRB, 0.2530281E-01_JPRB, 0.7657863E-01_JPRB, 0.1286815E+00_JPRB, &
+ & 0.2086445E+00_JPRB, 0.2141411E+00_JPRB, 0.1877717E+00_JPRB, 0.2910647E+00_JPRB, 0.2372502E+00_JPRB, &
+ & 0.2744186E+00_JPRB, 0.2735835E+00_JPRB, 0.2960536E+00_JPRB, 0.2737275E+00_JPRB, 0.2668652E+00_JPRB, &
+ & 0.3166273E+00_JPRB, 0.1598142E+00_JPRB, 0.1693170E+00_JPRB, 0.9992833E-01_JPRB, 0.4189600E-01_JPRB, &
+ & 0.7145026E-01_JPRB, 0.1279196E+00_JPRB, 0.1842234E+00_JPRB, 0.2720304E+00_JPRB, 0.2873777E+00_JPRB, &
+ & 0.3626651E+00_JPRB, 0.2933673E+00_JPRB, 0.3022911E+00_JPRB, 0.3212442E+00_JPRB, 0.3718986E+00_JPRB, &
+ & 0.3289628E+00_JPRB, 0.3477682E+00_JPRB, 0.3787437E+00_JPRB, 0.3112315E+00_JPRB, 0.3086174E+00_JPRB /)
+
+!ZDSUVB = (/ &
+                                               
+!          Rayleigh cross-sections from Bodhaine et al., 1999
+! NB: values in cm2, so tau = RAYUVB * Pressure * Avogadro / ( m_a * grav )
+!     Pressure: N cm-1 s-2
+!     Avogadro: Avog number (mol-1)
+!     m_a     : dry air mean molecular weight ( g mol-1 )
+!     grav    : gravity ( cm s-2) 
+
+! revised 20051031
+!Rayl: 0.3293000611E-25 sun-weighted over the 280-400 nm interval
+ZARAYUV = (/ &                                                           
+ & 0.7306844E-25_JPRB, 0.6736580E-25_JPRB, 0.6322517E-25_JPRB, 0.5858758E-25_JPRB, 0.5445114E-25_JPRB, &
+ & 0.5087498E-25_JPRB, 0.4744089E-25_JPRB, 0.4430921E-25_JPRB, 0.4145744E-25_JPRB, 0.3880453E-25_JPRB, &
+ & 0.3640141E-25_JPRB, 0.3414811E-25_JPRB, 0.3210803E-25_JPRB, 0.3019948E-25_JPRB, 0.2842767E-25_JPRB, &
+ & 0.2681506E-25_JPRB, 0.2527365E-25_JPRB, 0.2386328E-25_JPRB, 0.2259065E-25_JPRB, 0.2130931E-25_JPRB, &
+ & 0.2022461E-25_JPRB, 0.1907690E-25_JPRB, 0.1816129E-25_JPRB, 0.1714296E-25_JPRB /)
+
+!Rayl: 0.3293000611E-25 sun-weighted over the 280-400 nm interval
+ZBRAYUV = (/ &                                                           
+ & 0.7553307E-25_JPRB, 0.7443457E-25_JPRB, 0.7335825E-25_JPRB, 0.7226265E-25_JPRB, 0.7125960E-25_JPRB, &
+ & 0.6991365E-25_JPRB, 0.6898332E-25_JPRB, 0.6798154E-25_JPRB, 0.6684466E-25_JPRB, 0.6591285E-25_JPRB, &
+ & 0.6496839E-25_JPRB, 0.6396853E-25_JPRB, 0.6313266E-25_JPRB, 0.6216223E-25_JPRB, 0.6126177E-25_JPRB, &
+ & 0.6032645E-25_JPRB, 0.5953125E-25_JPRB, 0.5853245E-25_JPRB, 0.5775356E-25_JPRB, 0.5693963E-25_JPRB, &
+ & 0.5606095E-25_JPRB, 0.5534949E-25_JPRB, 0.5444878E-25_JPRB, 0.5378845E-25_JPRB, 0.5302978E-25_JPRB, &
+ & 0.5231385E-25_JPRB, 0.5155581E-25_JPRB, 0.5083396E-25_JPRB, 0.5011746E-25_JPRB, 0.4939369E-25_JPRB, &
+ & 0.4866159E-25_JPRB, 0.4809942E-25_JPRB, 0.4740003E-25_JPRB, 0.4675913E-25_JPRB, 0.4614712E-25_JPRB, &
+ & 0.4555732E-25_JPRB, 0.4489270E-25_JPRB, 0.4430247E-25_JPRB, 0.4366891E-25_JPRB, 0.4312100E-25_JPRB, &
+ & 0.4253825E-25_JPRB, 0.4196292E-25_JPRB, 0.4146292E-25_JPRB, 0.4089423E-25_JPRB, 0.4035688E-25_JPRB, &
+ & 0.3982210E-25_JPRB, 0.3931992E-25_JPRB, 0.3881491E-25_JPRB, 0.3831836E-25_JPRB, 0.3782540E-25_JPRB, &
+ & 0.3735359E-25_JPRB, 0.3685556E-25_JPRB, 0.3638909E-25_JPRB, 0.3593377E-25_JPRB, 0.3547793E-25_JPRB, &
+ & 0.3502970E-25_JPRB, 0.3455926E-25_JPRB, 0.3412171E-25_JPRB, 0.3372662E-25_JPRB, 0.3331015E-25_JPRB, &
+ & 0.3291422E-25_JPRB, 0.3249210E-25_JPRB, 0.3210885E-25_JPRB, 0.3170751E-25_JPRB, 0.3128713E-25_JPRB, &
+ & 0.3093283E-25_JPRB, 0.3055725E-25_JPRB, 0.3020082E-25_JPRB, 0.2981950E-25_JPRB, 0.2946112E-25_JPRB, &
+ & 0.2911369E-25_JPRB, 0.2875635E-25_JPRB, 0.2842758E-25_JPRB, 0.2809044E-25_JPRB, 0.2775960E-25_JPRB, &
+ & 0.2742853E-25_JPRB, 0.2711246E-25_JPRB, 0.2676895E-25_JPRB, 0.2647165E-25_JPRB, 0.2615410E-25_JPRB, &
+ & 0.2587241E-25_JPRB, 0.2555613E-25_JPRB, 0.2524211E-25_JPRB, 0.2495965E-25_JPRB, 0.2469929E-25_JPRB, &
+ & 0.2439028E-25_JPRB, 0.2412799E-25_JPRB, 0.2385009E-25_JPRB, 0.2358339E-25_JPRB, 0.2331176E-25_JPRB, &
+ & 0.2306411E-25_JPRB, 0.2278344E-25_JPRB, 0.2251960E-25_JPRB, 0.2230511E-25_JPRB, 0.2205796E-25_JPRB, &
+ & 0.2178428E-25_JPRB, 0.2154956E-25_JPRB, 0.2130606E-25_JPRB, 0.2108947E-25_JPRB, 0.2085232E-25_JPRB, &
+ & 0.2061758E-25_JPRB, 0.2039777E-25_JPRB, 0.2017122E-25_JPRB, 0.1995736E-25_JPRB, 0.1972342E-25_JPRB, &
+ & 0.1952774E-25_JPRB, 0.1930078E-25_JPRB, 0.1910372E-25_JPRB, 0.1890537E-25_JPRB, 0.1869344E-25_JPRB, &
+ & 0.1849739E-25_JPRB, 0.1830610E-25_JPRB, 0.1811516E-25_JPRB, 0.1791227E-25_JPRB, 0.1772642E-25_JPRB, &
+ & 0.1754530E-25_JPRB, 0.1739054E-25_JPRB, 0.1715780E-25_JPRB, 0.1699967E-25_JPRB, 0.1682695E-25_JPRB /)
+
+!Rayl: 0.3293000611E-25 sun-weighted over the 280-400 nm interval
+ZCRAYUV(  1:300) = (/ &
+ & 0.7616638E-25_JPRB, 0.7596217E-25_JPRB, 0.7566579E-25_JPRB, 0.7545073E-25_JPRB, 0.7520894E-25_JPRB, &
+ & 0.7498396E-25_JPRB, 0.7474992E-25_JPRB, 0.7449660E-25_JPRB, 0.7426870E-25_JPRB, 0.7405151E-25_JPRB, &
+ & 0.7382129E-25_JPRB, 0.7359474E-25_JPRB, 0.7336698E-25_JPRB, 0.7312532E-25_JPRB, 0.7293129E-25_JPRB, &
+ & 0.7270750E-25_JPRB, 0.7246929E-25_JPRB, 0.7225889E-25_JPRB, 0.7201327E-25_JPRB, 0.7179669E-25_JPRB, &
+ & 0.7159132E-25_JPRB, 0.7137091E-25_JPRB, 0.7112686E-25_JPRB, 0.7092680E-25_JPRB, 0.7072331E-25_JPRB, &
+ & 0.7050776E-25_JPRB, 0.7027431E-25_JPRB, 0.7005233E-25_JPRB, 0.6984647E-25_JPRB, 0.6963897E-25_JPRB, &
+ & 0.6943879E-25_JPRB, 0.6922317E-25_JPRB, 0.6899903E-25_JPRB, 0.6880721E-25_JPRB, 0.6858853E-25_JPRB, &
+ & 0.6837090E-25_JPRB, 0.6817655E-25_JPRB, 0.6795759E-25_JPRB, 0.6775398E-25_JPRB, 0.6756201E-25_JPRB, &
+ & 0.6737114E-25_JPRB, 0.6711798E-25_JPRB, 0.6694924E-25_JPRB, 0.6673852E-25_JPRB, 0.6654869E-25_JPRB, &
+ & 0.6633041E-25_JPRB, 0.6614539E-25_JPRB, 0.6595648E-25_JPRB, 0.6575899E-25_JPRB, 0.6556557E-25_JPRB, &
+ & 0.6535321E-25_JPRB, 0.6515833E-25_JPRB, 0.6496196E-25_JPRB, 0.6476328E-25_JPRB, 0.6457961E-25_JPRB, &
+ & 0.6441038E-25_JPRB, 0.6419320E-25_JPRB, 0.6400914E-25_JPRB, 0.6382210E-25_JPRB, 0.6362626E-25_JPRB, &
+ & 0.6343807E-25_JPRB, 0.6325313E-25_JPRB, 0.6305017E-25_JPRB, 0.6287837E-25_JPRB, 0.6271078E-25_JPRB, &
+ & 0.6250013E-25_JPRB, 0.6232995E-25_JPRB, 0.6213345E-25_JPRB, 0.6199295E-25_JPRB, 0.6177485E-25_JPRB, &
+ & 0.6158079E-25_JPRB, 0.6138453E-25_JPRB, 0.6123282E-25_JPRB, 0.6104834E-25_JPRB, 0.6085159E-25_JPRB, &
+ & 0.6068199E-25_JPRB, 0.6050634E-25_JPRB, 0.6031437E-25_JPRB, 0.6016957E-25_JPRB, 0.5996980E-25_JPRB, &
+ & 0.5980282E-25_JPRB, 0.5962179E-25_JPRB, 0.5947632E-25_JPRB, 0.5930616E-25_JPRB, 0.5910388E-25_JPRB, &
+ & 0.5893103E-25_JPRB, 0.5879395E-25_JPRB, 0.5857085E-25_JPRB, 0.5842694E-25_JPRB, 0.5827528E-25_JPRB, &
+ & 0.5809260E-25_JPRB, 0.5791326E-25_JPRB, 0.5774750E-25_JPRB, 0.5757388E-25_JPRB, 0.5740871E-25_JPRB, &
+ & 0.5725365E-25_JPRB, 0.5709284E-25_JPRB, 0.5695706E-25_JPRB, 0.5675827E-25_JPRB, 0.5660968E-25_JPRB, &
+ & 0.5644708E-25_JPRB, 0.5629105E-25_JPRB, 0.5610676E-25_JPRB, 0.5597107E-25_JPRB, 0.5578470E-25_JPRB, &
+ & 0.5561693E-25_JPRB, 0.5547664E-25_JPRB, 0.5532939E-25_JPRB, 0.5515983E-25_JPRB, 0.5500726E-25_JPRB, &
+ & 0.5488026E-25_JPRB, 0.5466552E-25_JPRB, 0.5453631E-25_JPRB, 0.5435469E-25_JPRB, 0.5421854E-25_JPRB, &
+ & 0.5406856E-25_JPRB, 0.5390386E-25_JPRB, 0.5376519E-25_JPRB, 0.5362250E-25_JPRB, 0.5343698E-25_JPRB, &
+ & 0.5331479E-25_JPRB, 0.5315746E-25_JPRB, 0.5301434E-25_JPRB, 0.5286928E-25_JPRB, 0.5268597E-25_JPRB, &
+ & 0.5257406E-25_JPRB, 0.5240588E-25_JPRB, 0.5227215E-25_JPRB, 0.5212194E-25_JPRB, 0.5196392E-25_JPRB, &
+ & 0.5181440E-25_JPRB, 0.5168025E-25_JPRB, 0.5153224E-25_JPRB, 0.5140691E-25_JPRB, 0.5122811E-25_JPRB, &
+ & 0.5110644E-25_JPRB, 0.5097039E-25_JPRB, 0.5081770E-25_JPRB, 0.5066004E-25_JPRB, 0.5054125E-25_JPRB, &
+ & 0.5039219E-25_JPRB, 0.5023992E-25_JPRB, 0.5009734E-25_JPRB, 0.4998271E-25_JPRB, 0.4982583E-25_JPRB, &
+ & 0.4969272E-25_JPRB, 0.4957173E-25_JPRB, 0.4941637E-25_JPRB, 0.4930264E-25_JPRB, 0.4915094E-25_JPRB, &
+ & 0.4900671E-25_JPRB, 0.4884935E-25_JPRB, 0.4873834E-25_JPRB, 0.4859938E-25_JPRB, 0.4846769E-25_JPRB, &
+ & 0.4834488E-25_JPRB, 0.4820086E-25_JPRB, 0.4807528E-25_JPRB, 0.4794680E-25_JPRB, 0.4781788E-25_JPRB, &
+ & 0.4766772E-25_JPRB, 0.4754919E-25_JPRB, 0.4741631E-25_JPRB, 0.4728048E-25_JPRB, 0.4716431E-25_JPRB, &
+ & 0.4703830E-25_JPRB, 0.4689923E-25_JPRB, 0.4677535E-25_JPRB, 0.4665251E-25_JPRB, 0.4652005E-25_JPRB, &
+ & 0.4638987E-25_JPRB, 0.4627368E-25_JPRB, 0.4614312E-25_JPRB, 0.4600859E-25_JPRB, 0.4587120E-25_JPRB, &
+ & 0.4576507E-25_JPRB, 0.4563778E-25_JPRB, 0.4551894E-25_JPRB, 0.4540353E-25_JPRB, 0.4527886E-25_JPRB, &
+ & 0.4514944E-25_JPRB, 0.4502190E-25_JPRB, 0.4491759E-25_JPRB, 0.4478702E-25_JPRB, 0.4466893E-25_JPRB, &
+ & 0.4453446E-25_JPRB, 0.4442118E-25_JPRB, 0.4429979E-25_JPRB, 0.4417654E-25_JPRB, 0.4406395E-25_JPRB, &
+ & 0.4393794E-25_JPRB, 0.4382254E-25_JPRB, 0.4371032E-25_JPRB, 0.4359890E-25_JPRB, 0.4347318E-25_JPRB, &
+ & 0.4337158E-25_JPRB, 0.4325351E-25_JPRB, 0.4312833E-25_JPRB, 0.4302253E-25_JPRB, 0.4289430E-25_JPRB, &
+ & 0.4278239E-25_JPRB, 0.4267910E-25_JPRB, 0.4255298E-25_JPRB, 0.4244454E-25_JPRB, 0.4233537E-25_JPRB, &
+ & 0.4221707E-25_JPRB, 0.4210167E-25_JPRB, 0.4198555E-25_JPRB, 0.4189473E-25_JPRB, 0.4176732E-25_JPRB, &
+ & 0.4165337E-25_JPRB, 0.4155153E-25_JPRB, 0.4144353E-25_JPRB, 0.4134188E-25_JPRB, 0.4122111E-25_JPRB, &
+ & 0.4110894E-25_JPRB, 0.4101121E-25_JPRB, 0.4090171E-25_JPRB, 0.4079204E-25_JPRB, 0.4068998E-25_JPRB, &
+ & 0.4056811E-25_JPRB, 0.4046853E-25_JPRB, 0.4035664E-25_JPRB, 0.4025730E-25_JPRB, 0.4014375E-25_JPRB, &
+ & 0.4004650E-25_JPRB, 0.3994781E-25_JPRB, 0.3983609E-25_JPRB, 0.3973505E-25_JPRB, 0.3963121E-25_JPRB, &
+ & 0.3953201E-25_JPRB, 0.3941969E-25_JPRB, 0.3932154E-25_JPRB, 0.3922008E-25_JPRB, 0.3911375E-25_JPRB, &
+ & 0.3901542E-25_JPRB, 0.3890660E-25_JPRB, 0.3881347E-25_JPRB, 0.3870995E-25_JPRB, 0.3861014E-25_JPRB, &
+ & 0.3850985E-25_JPRB, 0.3841576E-25_JPRB, 0.3831229E-25_JPRB, 0.3821930E-25_JPRB, 0.3811757E-25_JPRB, &
+ & 0.3802202E-25_JPRB, 0.3791729E-25_JPRB, 0.3782096E-25_JPRB, 0.3772830E-25_JPRB, 0.3762521E-25_JPRB, &
+ & 0.3752196E-25_JPRB, 0.3743804E-25_JPRB, 0.3733339E-25_JPRB, 0.3724655E-25_JPRB, 0.3714239E-25_JPRB, &
+ & 0.3704893E-25_JPRB, 0.3695292E-25_JPRB, 0.3686195E-25_JPRB, 0.3676398E-25_JPRB, 0.3667089E-25_JPRB, &
+ & 0.3657894E-25_JPRB, 0.3649280E-25_JPRB, 0.3638438E-25_JPRB, 0.3630178E-25_JPRB, 0.3620675E-25_JPRB, &
+ & 0.3610680E-25_JPRB, 0.3602397E-25_JPRB, 0.3592707E-25_JPRB, 0.3583906E-25_JPRB, 0.3574758E-25_JPRB, &
+ & 0.3565372E-25_JPRB, 0.3556517E-25_JPRB, 0.3547120E-25_JPRB, 0.3538869E-25_JPRB, 0.3530207E-25_JPRB, &
+ & 0.3519870E-25_JPRB, 0.3511801E-25_JPRB, 0.3502476E-25_JPRB, 0.3493818E-25_JPRB, 0.3486291E-25_JPRB, &
+ & 0.3476539E-25_JPRB, 0.3466662E-25_JPRB, 0.3458988E-25_JPRB, 0.3450374E-25_JPRB, 0.3441917E-25_JPRB, &
+ & 0.3432756E-25_JPRB, 0.3424206E-25_JPRB, 0.3415836E-25_JPRB, 0.3407089E-25_JPRB, 0.3398823E-25_JPRB, &
+ & 0.3391132E-25_JPRB, 0.3381723E-25_JPRB, 0.3372699E-25_JPRB, 0.3364352E-25_JPRB, 0.3356600E-25_JPRB, &
+ & 0.3348421E-25_JPRB, 0.3340288E-25_JPRB, 0.3330966E-25_JPRB, 0.3322651E-25_JPRB, 0.3314748E-25_JPRB /)
+ZCRAYUV(301:600) = (/ &
+ & 0.3305984E-25_JPRB, 0.3298072E-25_JPRB, 0.3289859E-25_JPRB, 0.3282017E-25_JPRB, 0.3273561E-25_JPRB, &
+ & 0.3265128E-25_JPRB, 0.3257629E-25_JPRB, 0.3249522E-25_JPRB, 0.3241397E-25_JPRB, 0.3233116E-25_JPRB, &
+ & 0.3225721E-25_JPRB, 0.3217845E-25_JPRB, 0.3209827E-25_JPRB, 0.3202007E-25_JPRB, 0.3193858E-25_JPRB, &
+ & 0.3186312E-25_JPRB, 0.3177970E-25_JPRB, 0.3169526E-25_JPRB, 0.3162512E-25_JPRB, 0.3154191E-25_JPRB, &
+ & 0.3147949E-25_JPRB, 0.3139129E-25_JPRB, 0.3130702E-25_JPRB, 0.3123660E-25_JPRB, 0.3115790E-25_JPRB, &
+ & 0.3108486E-25_JPRB, 0.3101754E-25_JPRB, 0.3092851E-25_JPRB, 0.3085713E-25_JPRB, 0.3078730E-25_JPRB, &
+ & 0.3070664E-25_JPRB, 0.3062619E-25_JPRB, 0.3055719E-25_JPRB, 0.3048145E-25_JPRB, 0.3040600E-25_JPRB, &
+ & 0.3033070E-25_JPRB, 0.3025883E-25_JPRB, 0.3018769E-25_JPRB, 0.3011228E-25_JPRB, 0.3004097E-25_JPRB, &
+ & 0.2996710E-25_JPRB, 0.2989633E-25_JPRB, 0.2982268E-25_JPRB, 0.2974796E-25_JPRB, 0.2967974E-25_JPRB, &
+ & 0.2961358E-25_JPRB, 0.2953785E-25_JPRB, 0.2945691E-25_JPRB, 0.2939451E-25_JPRB, 0.2931466E-25_JPRB, &
+ & 0.2925504E-25_JPRB, 0.2918363E-25_JPRB, 0.2911492E-25_JPRB, 0.2904339E-25_JPRB, 0.2896760E-25_JPRB, &
+ & 0.2890574E-25_JPRB, 0.2883687E-25_JPRB, 0.2876630E-25_JPRB, 0.2869037E-25_JPRB, 0.2862616E-25_JPRB, &
+ & 0.2855907E-25_JPRB, 0.2848499E-25_JPRB, 0.2842363E-25_JPRB, 0.2836590E-25_JPRB, 0.2828614E-25_JPRB, &
+ & 0.2822013E-25_JPRB, 0.2815331E-25_JPRB, 0.2808206E-25_JPRB, 0.2801999E-25_JPRB, 0.2795129E-25_JPRB, &
+ & 0.2788733E-25_JPRB, 0.2781790E-25_JPRB, 0.2775226E-25_JPRB, 0.2768396E-25_JPRB, 0.2761947E-25_JPRB, &
+ & 0.2755280E-25_JPRB, 0.2748942E-25_JPRB, 0.2742622E-25_JPRB, 0.2736305E-25_JPRB, 0.2729839E-25_JPRB, &
+ & 0.2723205E-25_JPRB, 0.2716291E-25_JPRB, 0.2710531E-25_JPRB, 0.2703178E-25_JPRB, 0.2697369E-25_JPRB, &
+ & 0.2690815E-25_JPRB, 0.2684563E-25_JPRB, 0.2678317E-25_JPRB, 0.2671934E-25_JPRB, 0.2666264E-25_JPRB, &
+ & 0.2660071E-25_JPRB, 0.2652226E-25_JPRB, 0.2647622E-25_JPRB, 0.2640349E-25_JPRB, 0.2634147E-25_JPRB, &
+ & 0.2628049E-25_JPRB, 0.2622270E-25_JPRB, 0.2615982E-25_JPRB, 0.2610121E-25_JPRB, 0.2603948E-25_JPRB, &
+ & 0.2597863E-25_JPRB, 0.2592153E-25_JPRB, 0.2585788E-25_JPRB, 0.2579637E-25_JPRB, 0.2574628E-25_JPRB, &
+ & 0.2567483E-25_JPRB, 0.2561915E-25_JPRB, 0.2555600E-25_JPRB, 0.2549877E-25_JPRB, 0.2545187E-25_JPRB, &
+ & 0.2537348E-25_JPRB, 0.2531826E-25_JPRB, 0.2526576E-25_JPRB, 0.2520277E-25_JPRB, 0.2514406E-25_JPRB, &
+ & 0.2508984E-25_JPRB, 0.2502242E-25_JPRB, 0.2497412E-25_JPRB, 0.2491734E-25_JPRB, 0.2485537E-25_JPRB, &
+ & 0.2479957E-25_JPRB, 0.2474433E-25_JPRB, 0.2468558E-25_JPRB, 0.2462352E-25_JPRB, 0.2456774E-25_JPRB, &
+ & 0.2451092E-25_JPRB, 0.2445473E-25_JPRB, 0.2440110E-25_JPRB, 0.2434430E-25_JPRB, 0.2428878E-25_JPRB, &
+ & 0.2423375E-25_JPRB, 0.2418300E-25_JPRB, 0.2412748E-25_JPRB, 0.2407345E-25_JPRB, 0.2401573E-25_JPRB, &
+ & 0.2395626E-25_JPRB, 0.2390419E-25_JPRB, 0.2384824E-25_JPRB, 0.2379713E-25_JPRB, 0.2374113E-25_JPRB, &
+ & 0.2368813E-25_JPRB, 0.2363609E-25_JPRB, 0.2357891E-25_JPRB, 0.2352318E-25_JPRB, 0.2346731E-25_JPRB, &
+ & 0.2342027E-25_JPRB, 0.2336675E-25_JPRB, 0.2330989E-25_JPRB, 0.2326043E-25_JPRB, 0.2320905E-25_JPRB, &
+ & 0.2315493E-25_JPRB, 0.2310179E-25_JPRB, 0.2305187E-25_JPRB, 0.2299280E-25_JPRB, 0.2294418E-25_JPRB, &
+ & 0.2288918E-25_JPRB, 0.2284270E-25_JPRB, 0.2279157E-25_JPRB, 0.2274044E-25_JPRB, 0.2269143E-25_JPRB, &
+ & 0.2263537E-25_JPRB, 0.2258695E-25_JPRB, 0.2253686E-25_JPRB, 0.2248540E-25_JPRB, 0.2243068E-25_JPRB, &
+ & 0.2238817E-25_JPRB, 0.2233570E-25_JPRB, 0.2228893E-25_JPRB, 0.2223422E-25_JPRB, 0.2217755E-25_JPRB, &
+ & 0.2213169E-25_JPRB, 0.2208572E-25_JPRB, 0.2203020E-25_JPRB, 0.2198316E-25_JPRB, 0.2194407E-25_JPRB, &
+ & 0.2188110E-25_JPRB, 0.2183839E-25_JPRB, 0.2178888E-25_JPRB, 0.2174415E-25_JPRB, 0.2169765E-25_JPRB, &
+ & 0.2164350E-25_JPRB, 0.2159686E-25_JPRB, 0.2154432E-25_JPRB, 0.2150311E-25_JPRB, 0.2144809E-25_JPRB, &
+ & 0.2141063E-25_JPRB, 0.2135743E-25_JPRB, 0.2131350E-25_JPRB, 0.2126439E-25_JPRB, 0.2121757E-25_JPRB, &
+ & 0.2116993E-25_JPRB, 0.2112348E-25_JPRB, 0.2107558E-25_JPRB, 0.2103303E-25_JPRB, 0.2098430E-25_JPRB, &
+ & 0.2093762E-25_JPRB, 0.2089122E-25_JPRB, 0.2084616E-25_JPRB, 0.2079919E-25_JPRB, 0.2075581E-25_JPRB, &
+ & 0.2070484E-25_JPRB, 0.2066188E-25_JPRB, 0.2061627E-25_JPRB, 0.2057537E-25_JPRB, 0.2052658E-25_JPRB, &
+ & 0.2048236E-25_JPRB, 0.2043740E-25_JPRB, 0.2039009E-25_JPRB, 0.2034790E-25_JPRB, 0.2030402E-25_JPRB, &
+ & 0.2026373E-25_JPRB, 0.2021292E-25_JPRB, 0.2017653E-25_JPRB, 0.2012671E-25_JPRB, 0.2008244E-25_JPRB, &
+ & 0.2003679E-25_JPRB, 0.1999900E-25_JPRB, 0.1995156E-25_JPRB, 0.1990708E-25_JPRB, 0.1986896E-25_JPRB, &
+ & 0.1982515E-25_JPRB, 0.1977577E-25_JPRB, 0.1973389E-25_JPRB, 0.1969472E-25_JPRB, 0.1965130E-25_JPRB, &
+ & 0.1961169E-25_JPRB, 0.1956593E-25_JPRB, 0.1952552E-25_JPRB, 0.1948516E-25_JPRB, 0.1944288E-25_JPRB, &
+ & 0.1939545E-25_JPRB, 0.1935074E-25_JPRB, 0.1931325E-25_JPRB, 0.1927054E-25_JPRB, 0.1922953E-25_JPRB, &
+ & 0.1919001E-25_JPRB, 0.1914619E-25_JPRB, 0.1910454E-25_JPRB, 0.1906483E-25_JPRB, 0.1902818E-25_JPRB, &
+ & 0.1898249E-25_JPRB, 0.1894532E-25_JPRB, 0.1889855E-25_JPRB, 0.1886213E-25_JPRB, 0.1882224E-25_JPRB, &
+ & 0.1877868E-25_JPRB, 0.1874022E-25_JPRB, 0.1869706E-25_JPRB, 0.1865394E-25_JPRB, 0.1861920E-25_JPRB, &
+ & 0.1857844E-25_JPRB, 0.1854381E-25_JPRB, 0.1849851E-25_JPRB, 0.1846284E-25_JPRB, 0.1842192E-25_JPRB, &
+ & 0.1838483E-25_JPRB, 0.1834272E-25_JPRB, 0.1830332E-25_JPRB, 0.1826590E-25_JPRB, 0.1822672E-25_JPRB, &
+ & 0.1818896E-25_JPRB, 0.1814961E-25_JPRB, 0.1810901E-25_JPRB, 0.1807128E-25_JPRB, 0.1803498E-25_JPRB, &
+ & 0.1799625E-25_JPRB, 0.1795890E-25_JPRB, 0.1791572E-25_JPRB, 0.1788046E-25_JPRB, 0.1784347E-25_JPRB, &
+ & 0.1780655E-25_JPRB, 0.1776813E-25_JPRB, 0.1773257E-25_JPRB, 0.1769180E-25_JPRB, 0.1765592E-25_JPRB, &
+ & 0.1761816E-25_JPRB, 0.1758429E-25_JPRB, 0.1754198E-25_JPRB, 0.1750965E-25_JPRB, 0.1747065E-25_JPRB, &
+ & 0.1743662E-25_JPRB, 0.1739582E-25_JPRB, 0.1736024E-25_JPRB, 0.1732771E-25_JPRB, 0.1729447E-25_JPRB, &
+ & 0.1724799E-25_JPRB, 0.1721488E-25_JPRB, 0.1718100E-25_JPRB, 0.1714394E-25_JPRB, 0.1710822E-25_JPRB, &
+ & 0.1707207E-25_JPRB, 0.1703568E-25_JPRB, 0.1700035E-25_JPRB, 0.1696602E-25_JPRB, 0.1692917E-25_JPRB, &
+ & 0.1689509E-25_JPRB, 0.1686000E-25_JPRB, 0.1682677E-25_JPRB, 0.1679007E-25_JPRB, 0.1675450E-25_JPRB /)
+
+!ZDRAYUV = (/
+
+
+!          Liquid water cloud optical parameters from Slingo, 1989, JAS 46, 120
+RASA = (/ 3.094E-02_JPRB, 2.944E-02_JPRB, 3.308E-02_JPRB, 2.801E-02_JPRB /)
+RASB = (/ 1.252_JPRB    , 1.270_JPRB    , 1.246_JPRB    , 1.293_JPRB     /)
+RASC = (/ 7.90E-07_JPRB ,-6.50E-07_JPRB ,-3.00E-07_JPRB , 1.00E-06_JPRB  /)
+RASD = (/ 3.69E-07_JPRB , 4.33E-07_JPRB , 2.36E-07_JPRB , 0.00E+00_JPRB  /)
+RASE = (/ 0.844_JPRB    , 0.841_JPRB    , 0.839_JPRB    , 0.836_JPRB     /)
+RASF = (/ 1.558E-03_JPRB, 1.680E-03_JPRB, 1.946E-03_JPRB, 2.153E-03_JPRB /)
+
+!          Ice water cloud optical parameters from Fu, 1996, J. Clim., 9, 2070 &
+!          extinction coefficient
+RFA0 = (/-0.236447E-03_JPRB,-0.266955E-03_JPRB,-0.293599E-03_JPRB,-0.258858E-03_JPRB /)
+RFA1 = (/ 0.253817E+01_JPRB, 0.254179E+01_JPRB, 0.254540E+01_JPRB, 0.253815E+01_JPRB /)
+!	   single scattering albedo
+RFB0 = (/-0.269916E-06_JPRB,-0.100570E-06_JPRB, 0.182299E-06_JPRB,-0.198529E-06_JPRB /)
+RFB1 = (/ 0.212909E-06_JPRB, 0.160441E-06_JPRB, 0.112454E-06_JPRB, 0.939480E-07_JPRB /)
+RFB2 = (/-0.265397E-09_JPRB,-0.205663E-09_JPRB,-0.108031E-09_JPRB,-0.254540E-09_JPRB /)
+RFB3 = (/ 0.112983E-11_JPRB, 0.888595E-12_JPRB, 0.499801E-12_JPRB, 0.110876E-11_JPRB /)
+!          assymetry factor
+RFC0 = (/ 0.733260E+00_JPRB, 0.737809E+00_JPRB, 0.740926E+00_JPRB, 0.743546E+00_JPRB /)
+RFC1 = (/ 0.918317E-03_JPRB, 0.897515E-03_JPRB, 0.890216E-03_JPRB, 0.908674E-03_JPRB /)
+RFC2 = (/-0.422974E-06_JPRB,-0.217099E-06_JPRB,-0.187919E-06_JPRB,-0.465326E-06_JPRB /)
+RFC3 = (/-0.107976E-07_JPRB,-0.116090E-07_JPRB,-0.116760E-07_JPRB,-0.105786E-07_JPRB /)
+!          forward Delta function
+RFD0 = (/ 0.119114E+00_JPRB, 0.118072E+00_JPRB, 0.117402E+00_JPRB, 0.116918E+00_JPRB /)
+RFD1 = (/ 0.271746E-03_JPRB, 0.271772E-03_JPRB, 0.266303E-03_JPRB, 0.259549E-03_JPRB /)
+RFD2 = (/ 0.167483E-05_JPRB, 0.169253E-05_JPRB, 0.177039E-05_JPRB, 0.186749E-05_JPRB /)
+RFD3 = (/-0.114603E-07_JPRB,-0.115557E-07_JPRB,-0.118611E-07_JPRB,-0.122603E-07_JPRB /)
+
+!          Aerosols (from GADS)
+! continental average 80%
+! maritime clean      95%
+! desert              50% 
+! urban               80% 
+RTAUVA(1,:) = (/ & 
+ & 2.2150_JPRB , 1.0985_JPRB , 1.1208_JPRB , 2.2535_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+RTAUVA(2,:) = (/ & 
+ & 1.9353_JPRB , 1.0754_JPRB , 1.0955_JPRB , 1.9756_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+RTAUVA(3,:) = (/ & 
+ & 1.6822_JPRB , 1.0506_JPRB , 1.0716_JPRB , 1.7074_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+RTAUVA(4,:) = (/ & 
+ & 1.4664_JPRB , 1.0347_JPRB , 1.0499_JPRB , 1.4806_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+
+RPIUVA(1, :)= (/ &
+ &  .8736_JPRB , 0.9868_JPRB , 0.6758_JPRB , 0.7806_JPRB, .9401905_JPRB , 0.9989_JPRB /)  
+RPIUVA(2, :)= (/ &
+ &  .9253_JPRB , 0.9969_JPRB , 0.7080_JPRB , 0.8226_JPRB, .9401905_JPRB , 0.9990_JPRB /)  
+RPIUVA(3, :)= (/ &
+ &  .9322_JPRB , 0.9983_JPRB , 0.7512_JPRB , 0.8278_JPRB, .9401905_JPRB , 0.9990_JPRB /)  
+RPIUVA(4, :)= (/ &
+ &  .9315_JPRB , 0.9985_JPRB , 0.7849_JPRB , 0.8259_JPRB, .9401905_JPRB , 0.9991_JPRB /)  
+
+RCGUVA(1, :)= (/ &
+ & 0.7445_JPRB , 0.8093_JPRB , 0.8242_JPRB , 0.7285_JPRB, .7008249_JPRB , 0.7567_JPRB /)  
+RCGUVA(2, :)= (/ &
+ & 0.7317_JPRB , 0.8061_JPRB , 0.8068_JPRB , 0.7137_JPRB, .7008249_JPRB , 0.7675_JPRB /)  
+RCGUVA(3, :)= (/ &
+ & 0.7262_JPRB , 0.8046_JPRB , 0.7861_JPRB , 0.7086_JPRB, .7008249_JPRB , 0.7743_JPRB /)  
+RCGUVA(4, :)= (/ &
+ & 0.7209_JPRB , 0.7993_JPRB , 0.7700_JPRB , 0.7040_JPRB, .7008249_JPRB , 0.7782_JPRB /)  
+
+!- Definition of the CIE erythemasl action spectrum
+
+RXPO = (/ 0.000_JPRB, -0.094_JPRB, -0.015_JPRB /)
+RXPL = (/ 298.0_JPRB,  328.0_JPRB,  139.0_JPRB /)
+
+RK250(:) =0._JPRB
+RTUV1(:) =0._JPRB
+RTUV2(:) =0._JPRB
+RSUVB0(:)=0._JPRB
+RAYUVB(:)=0._JPRB
+JCOP(:)  =0
+JUVLAM(:)=0
+
+ZRES=120._JPRB/KUV
+ZBEG=280._JPRB-ZRES
+ZHRES=ZRES*0.5_JPRB
+
+DO J=1,KUV
+  RUVLAM(J)=280._JPRB+(J-1)*ZRES
+  IPUV(J)  =INT((RUVLAM(J)-ZBEG)/ZRES+0.0001_JPRB)
+  ZUVLAM=RUVLAM(J)+ZHRES
+  IF( ZUVLAM <= RXPL(1) ) THEN
+    RCIEAS(J) = 10._JPRB**RXPO(1)
+  ELSEIF (ZUVLAM <= RXPL(2) ) THEN
+    ZEXP= RXPO(2)*(ZUVLAM-RXPL(1))
+    RCIEAS(J) = 10._JPRB**ZEXP
+  ELSE
+    ZEXP= RXPO(3)*(ZUVLAM-RXPL(3))
+    RCIEAS(J) = 10._JPRB**ZEXP
+  ENDIF
+  IF (RUVLAM(J) == 305._JPRB .OR. RUVLAM(J) == 310._JPRB .OR. &
+    & RUVLAM(J) == 320._JPRB .OR. RUVLAM(J) == 380._JPRB) JUVLAM(J) = 1
+
+  WRITE(NULOUT,'("Eryth.Action Spectrum:",I3,F8.2,E12.5,F10.2,I3)') &
+    & IPUV(J),ZUVLAM,RCIEAS(J),RUVLAM(J),JUVLAM(J)
+ENDDO
+
+IF (KUV == 24) THEN
+  DO J=1,KUV
+    JCOP(J)=IACOP(J)
+    RK250(J)=ZAK250(J)
+    RTUV1(J)=ZATUV1(J)
+    RTUV2(J)=ZATUV2(J)
+    RSUVB0(J)=ZASUVB(J)
+    RAYUVB(J)=ZARAYUV(J)
+    JUVLAM(J)=1
+  ENDDO
+ELSEIF (KUV == 120) THEN
+  DO J=1,KUV
+    JCOP(J)=IBCOP(J)
+    RK250(J)=ZBK250(J)
+    RTUV1(J)=ZBTUV1(J)
+    RTUV2(J)=ZBTUV2(J)
+    RSUVB0(J)=ZBSUVB(J)
+    RAYUVB(J)=ZBRAYUV(J)
+  ENDDO
+ELSEIF (KUV == 600) THEN
+  DO J=1,KUV
+    JCOP(J)=ICCOP(J)
+    RK250(J)=ZCK250(J)
+    RTUV1(J)=ZCTUV1(J)
+    RTUV2(J)=ZCTUV2(J)
+    RSUVB0(J)=ZCSUVB(J)
+    RAYUVB(J)=ZCRAYUV(J)
+  ENDDO
+ELSE
+  STOP
+ENDIF
+ 
+   
+WRITE(NULOUT,'("SU_UVRAD O3:",25I3)') (JCOP(J),J=1,KUV)
+DO J=1,KUV
+  WRITE(NULOUT,'("SU_UVRAD O3:",I3,5E12.5)') J,RK250(J),RTUV1(J),RTUV2(J),RSUVB0(J),RAYUVB(J)
+ENDDO
+DO J=1,4
+  WRITE(NULOUT,'("CLOUDSLINGO:",I3,6E12.5)') J,RASA(J),RASB(J),RASC(J),RASD(J),RASE(J),RASF(J)
+ENDDO
+DO J=1,4
+  WRITE(NULOUT,'("ICECLDFUA B:",I3,6E12.5)') J,RFA0(J),RFA1(J),RFB0(J),RFB1(J),RFB2(J),RFB3(J)
+ENDDO
+DO J=1,4
+  WRITE(NULOUT,'("ICECLDFUC D:",I3,8E12.5)') J,RFC0(J),RFC1(J),RFC2(J),RFC3(J),&
+     &                                        RFD0(J),RFD1(J),RFD2(J),RFD3(J)
+ENDDO
+DO J=1,4
+  DO JAE=1,6
+    WRITE(NULOUT,'("AEROSOLS   :",2I3,3E12.5)') J,JAE,RTAUVA(J,JAE),RPIUVA(J,JAE),RCGUVA(J,JAE)
+  ENDDO
+ENDDO
+  
+!     ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SU_UVRAD',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_UVRAD
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_uvrad.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_uvrad.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/su_uvrad.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SU_UVRAD ( KUV )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KUV
+END SUBROUTINE SU_UVRAD
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaer15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaer15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaer15.F90	(revision 3330)
@@ -0,0 +1,139 @@
+SUBROUTINE SUAER15
+
+!**** *SUAER15*   - INITIALIZE COMMON YOMAER15
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMAER15, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMAER15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+
+!     04-06: F. Bouyssel. Meteo-France
+!     05-09: A. Alias - PAESOD (black_carbon) is added to PAELAN (oraganic)
+!                     - the sulfate is put in a separate type 
+!                     (see Hu Ron Ming work) - P.Marquet
+
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!=======================================================================
+
+!-- The (new) six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ volcanic active
+!  5/ stratospheric background            6/ sulfate
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMRAD15 , ONLY : LNEWAER15
+USE YOMAER15 , ONLY : RAER15    ,TAUA15   ,RPIZA15  ,RCGA15
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUAER15',0,ZHOOK_HANDLE)
+IF (.NOT.LNEWAER15) THEN
+  
+  RAER15=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 ,&
+   & .012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB /)&
+   & ,SHAPE=(/5,6/))  
+
+  TAUA15=RESHAPE((/&
+   & .730719_JPRB,.730719_JPRB,&
+   & .912819_JPRB,.912819_JPRB,&
+   & .725059_JPRB,.725059_JPRB,&
+   & .745405_JPRB,.745405_JPRB,&
+   & .682188_JPRB,.682188_JPRB,&
+   & 1.35059_JPRB,.725059_JPRB /)&
+   & ,SHAPE=(/2,6/))  
+
+  RPIZA15=RESHAPE((/&
+   & .872212_JPRB,.872212_JPRB,&
+   & .982545_JPRB,.982545_JPRB,&
+   & .623143_JPRB,.623143_JPRB,&
+   & .944887_JPRB,.944887_JPRB,&
+   & .997975_JPRB,.997975_JPRB,&
+   & .999999_JPRB,.999999_JPRB /)&
+   & ,SHAPE=(/2,6/))  
+
+  RCGA15=RESHAPE((/&
+   & .647596_JPRB,.647596_JPRB,&
+   & .739002_JPRB,.739002_JPRB,&
+   & .580845_JPRB,.580845_JPRB,&
+   & .662657_JPRB,.662657_JPRB,&
+   & .624246_JPRB,.624246_JPRB,&
+   & .680845_JPRB,.680845_JPRB /)&
+   & ,SHAPE=(/2,6/))  
+
+ELSE
+
+  RAER15( :, 1)= (/&
+   & .036271_JPRB, .030153_JPRB, .017343_JPRB, .015002_JPRB, .008806_JPRB /)  
+  RAER15( :, 2)= (/&
+   & .026561_JPRB, .032657_JPRB, .017977_JPRB, .014210_JPRB, .016775_JPRB /)  
+  RAER15( :, 3)= (/&
+   & .014897_JPRB, .016359_JPRB, .019789_JPRB, .030777_JPRB, .013341_JPRB /)  
+  RAER15( :, 4)= (/&
+   & .011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB /)  
+  RAER15( :, 5)= (/&
+   & .013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB /)  
+  RAER15( :, 6)= (/&
+   & .012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB /)
+
+  TAUA15(1, :)= (/&
+   & 1.69446_JPRB, 1.11855_JPRB, 1.09212_JPRB, 1.03858_JPRB, 1.12044_JPRB, 1.35059_JPRB  /)  
+  TAUA15(2, :)= (/&
+   & 0.40174_JPRB, 0.89383_JPRB, 0.89546_JPRB, 0.51143_JPRB, 0.32646_JPRB, .725059_JPRB /)  
+ 
+  RPIZA15(1, :)= (/&
+   & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .9401905_JPRB, .9999999_JPRB, .999999_JPRB/)  
+  RPIZA15(2, :)= (/&
+   & .8814597_JPRB, .9920407_JPRB, .9239428_JPRB, .9515548_JPRB, .9938563_JPRB, .999999_JPRB/)  
+ 
+  RCGA15(1, :)= (/&
+   & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, .7008249_JPRB, .7270548_JPRB, .680845_JPRB/)  
+  RCGA15(2, :)= (/&
+   & 0.663224_JPRB, 0.793746_JPRB, 0.696315_JPRB, .6608509_JPRB, .6318786_JPRB, .680845_JPRB/)  
+
+ENDIF
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAER15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAER15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaer15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaer15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaer15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUAER15
+END SUBROUTINE SUAER15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerh.F90	(revision 3330)
@@ -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.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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).
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUAERH',0,ZHOOK_HANDLE)
+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
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERH',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerh.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerh.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerh.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUAERH
+END SUBROUTINE SUAERH
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerl.F90	(revision 3330)
@@ -0,0 +1,117 @@
+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)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUAERL',0,ZHOOK_HANDLE)
+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 /)  
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERL',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERL
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerl.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerl.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerl.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUAERL
+END SUBROUTINE SUAERL
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaersn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaersn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaersn.F90	(revision 3330)
@@ -0,0 +1,220 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RTAUA     ,RPIZA    ,RCGA
+
+!      ----------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+REAL(KIND=JPRB) :: ZTAUA2(2,6)  ,ZPIZA2(2,6)  ,ZCGA2(2,6)
+REAL(KIND=JPRB) :: ZTAUA4(4,6)  ,ZPIZA4(4,6)  ,ZCGA4(4,6)
+REAL(KIND=JPRB) :: ZTAUA6(6,6)  ,ZPIZA6(6,6)  ,ZCGA6(6,6)
+
+INTEGER(KIND=JPIM) :: JAER, JNU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       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)
+
+IF (LHOOK) CALL DR_HOOK('SUAERSN',0,ZHOOK_HANDLE)
+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
+ELSEIF (KSW == 14 .AND. KTSW == 14) THEN
+  PRINT *,'SUAERSN: 14-SPECTRAL INTERVALS --> RRTM_SW'
+ELSE
+  STOP 'SUAERSN: WRONG NUMBER OF SPECTRAL INTERVALS'
+ENDIF
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERSN',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERSN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaersn.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaersn.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaersn.intfb.h	(revision 3330)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE SUAERSN (KTSW, KSW)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+END SUBROUTINE SUAERSN
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv.F90	(revision 3330)
@@ -0,0 +1,154 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAES(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEL(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEU(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAED(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVOBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSTBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPS 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPL 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPU 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPD 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRPT 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADK(3) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADM 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEROS 
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: JK
+
+REAL(KIND=JPRB) :: ZHSD, ZHSL, ZHSS, ZHSU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTATIONS.
+!                 -------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV',0,ZHOOK_HANDLE)
+ZHSS=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSL=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSU=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSD=MAX(1.0_JPRB,8434._JPRB/3000._JPRB)
+PVDAES(1)=0._JPRB
+PVDAEL(1)=0._JPRB
+PVDAEU(1)=0._JPRB
+PVDAED(1)=0._JPRB
+IF(PETAH(1) /= 0.0_JPRB) 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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv.intfb.h	(revision 3330)
@@ -0,0 +1,27 @@
+INTERFACE
+SUBROUTINE SUAERV&
+ & ( KLEV , PETAH,&
+ & PVDAES, PVDAEL, PVDAEU, PVDAED,&
+ & PTRBGA, PVOBGA, PSTBGA, PAEOPS, PAEOPL, PAEOPU,&
+ & PAEOPD, PTRPT , PAEADK, PAEADM, PAEROS&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAES(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEL(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEU(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAED(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVOBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSTBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPS
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPL
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPU
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPD
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRPT
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADK(3)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADM
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEROS
+END SUBROUTINE SUAERV
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv15.F90	(revision 3330)
@@ -0,0 +1,163 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUAERV15 ( KLEV  , PETAH,&
+ & PVDAES,PVDAEL,PVDAEU,PVDAED,PVDAEF,&
+ & PTRBGA,PVOBGA,PSTBGA,PAEOPS,PAEOPL,PAEOPU,&
+ & PAEOPF,&
+ & PAEOPD,PTRPT,PAEADK,PAEADM,  PAEROS      )  
+
+!**** *SUAERV15* - PARAM. FOR THE VERTICAL DISTRIBUTIONS OF AEROSOLS.
+!****              FROZEN VERSION (CYCLE 15) OF SUAERV
+
+!     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.
+!     ----------
+
+!          *SUAERV15* IS CALLED FROM *SUECRAD15*.
+!          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
+!     ------
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE  E.C.M.W.F.     91/07/14   ADAPTATION TO I.F.S.
+!     J.-F. GELEYN     E.C.M.W.F.     04/11/82.
+
+!     MODIFICATIONS
+!     -------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        A.Alias       29-09-2005 Sulfate aerosols (Hu Rong Ming)
+!                                 PVDAEF and PAEOPF added
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAES(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEL(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEU(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAED(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEF(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVOBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSTBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPS 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPL 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPU 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPF
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPD 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRPT 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADK(3) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADM 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEROS 
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: JK
+
+REAL(KIND=JPRB) :: ZHSD, ZHSF, ZHSL, ZHSS, ZHSU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTATIONS.
+!                 -------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV15',0,ZHOOK_HANDLE)
+ZHSS=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSL=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSU=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSD=MAX(1.0_JPRB,8434._JPRB/3000._JPRB)
+ZHSF=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+PVDAES(1)=0._JPRB
+PVDAEL(1)=0._JPRB
+PVDAEU(1)=0._JPRB
+PVDAED(1)=0._JPRB
+PVDAEF(1)=0._JPRB
+IF(PETAH(1) /= 0.0_JPRB) THEN
+  PVDAES(1)=PETAH(1)**ZHSS
+  PVDAEL(1)=PETAH(1)**ZHSL
+  PVDAEU(1)=PETAH(1)**ZHSU
+  PVDAED(1)=PETAH(1)**ZHSD
+  PVDAEF(1)=PETAH(1)**ZHSF
+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
+  PVDAEF(JK)=PETAH(JK)**ZHSF
+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
+PAEOPF=0.22_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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERV15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suaerv15.intfb.h	(revision 3330)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE SUAERV15 ( KLEV , PETAH,&
+ & PVDAES,PVDAEL,PVDAEU,PVDAED,PVDAEF,&
+ & PTRBGA,PVOBGA,PSTBGA,PAEOPS,PAEOPL,PAEOPU,&
+ & PAEOPF,&
+ & PAEOPD,PTRPT,PAEADK,PAEADM, PAEROS ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAES(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEL(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEU(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAED(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEF(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVOBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSTBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPS
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPL
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPU
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPF
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPD
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRPT
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADK(3)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADM
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEROS
+END SUBROUTINE SUAERV15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucape.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucape.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucape.F90	(revision 3330)
@@ -0,0 +1,91 @@
+SUBROUTINE SUCAPE(KULOUT)
+
+!**** *SUCAPE  * - ROUTINE TO INITIALIZE THE VARIABLES FOR CAPE 
+!                  AND CIN COMPUTATION
+
+!     PURPOSE.
+!     --------
+!        SET DEFAULT VALUES, THEN READS NAMELIST NAMCAPE
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUCAPE(KULOUT)*
+
+!         EXPLICIT ARGUMENTS :  KULOUT
+!         --------------------
+
+!         IMPLICIT ARGUMENTS :
+!         --------------------
+!            COMMON  YOMCAPE
+!            COMMON  YOMPHY
+!            COMMON  YOMLUN
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+
+!     AUTHOR.
+!     -------
+!        N.Pristov 03/2001
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03/2001
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCAPE  , ONLY :  NCAPEITER   ,NETAPES  ,GCAPERET   ,GCAPEPSD
+USE YOMPHY   , ONLY :  NBITER 
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY :  NULNAM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+
+#include "namcape.h"
+
+!      ----------------------------------------------------------------
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+IF (LHOOK) CALL DR_HOOK('SUCAPE',0,ZHOOK_HANDLE)
+NCAPEITER=NBITER
+NETAPES=2
+GCAPERET=0._JPRB
+GCAPEPSD=30000._JPRB
+
+!      ----------------------------------------------------------------
+!*       2.    MODIFIES DEFAULT VALUES. READ NAMELIST.
+!              ------------------------
+
+! Ce qui concerne NAMCAPE commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMCAPE')
+!READ(NULNAM,NAMCAPE)
+
+IF (NCAPEITER <= 0 ) CALL ABOR1('SUCAPE:  INVALID VALUE FOR NCAPEITER')
+IF (NETAPES <= 0 ) CALL ABOR1('SUCAPE:  INVALID VALUE FOR NETAPES')
+IF ((GCAPERET < 0.0_JPRB ) .OR. (GCAPERET > 1.0_JPRB ))  &
+ & CALL ABOR1('SUCAPE:  INVALID VALUE FOR GCAPERET')  
+IF (GCAPEPSD <= 0.0_JPRB ) CALL ABOR1('SUCAPE:  INVALID VALUE FOR GCAPEPSD')
+
+!      -----------------------------------------------------------
+!*       3.    PRINT FINAL VALUES.
+!              -------------------
+
+WRITE(KULOUT,'('' NCAPEITER = '',I2,'' NETAPES = '',I2,'' GCAPERET = '',&
+ & E13.6,'' GCAPEPSD = '',E13.6)') NCAPEITER, NETAPES, GCAPERET, GCAPEPSD  
+ 
+IF (LHOOK) CALL DR_HOOK('SUCAPE',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCAPE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucape.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucape.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucape.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUCAPE(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUCAPE
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucld.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucld.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucld.F90	(revision 3330)
@@ -0,0 +1,109 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETA(KLEV) 
+!      ----------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: JK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES
+!              ----------
+
+IF (LHOOK) CALL DR_HOOK('SUCLD',0,ZHOOK_HANDLE)
+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
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUCLD',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCLD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucld.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucld.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucld.intfb.h	(revision 3330)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE SUCLD ( KLEV , PETA )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PETA(KLEV)
+END SUBROUTINE SUCLD
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucldp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucldp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucldp.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUCLDP
+END SUBROUTINE SUCLDP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop.F90	(revision 3330)
@@ -0,0 +1,111 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUCLOP',0,ZHOOK_HANDLE)
+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
+IF (LHOOK) CALL DR_HOOK('SUCLOP',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUCLOP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUCLOP
+END SUBROUTINE SUCLOP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop15.F90	(revision 3330)
@@ -0,0 +1,146 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUCLOP15
+
+!**** *SUCLOP15*  - INITIALIZE COMMON YOMCLOP15
+!****               FROZEN VERSION (CYCLE 15) OF SUCLOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMCLOP15, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUCLOP15
+!     FROM *SUPHEC*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMCLOP15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : J.-J. MORCRETTE         *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        P. Marquet    14-Feb-2006 REFFWIA15 + NAMCLOP15 introduced
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+ 
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM, NULOUT
+USE YOMLUN   , ONLY : NULOUT
+USE YOMCLOP15, ONLY : RYFWCA15 ,RYFWCB15 ,RYFWCC15 ,RYFWCD15 ,&
+ & RYFWCE15 ,RYFWCF15 ,REBCUA15 ,REBCUB15 ,REBCUC15 ,&
+ & REBCUD15 ,REBCUE15 ,REBCUF15 ,REBCUG15 ,REBCUH15 ,&
+ & REFFIA15 ,REFFIB15 ,RTIW15   ,RRIW15   ,REFFWIA15 
+
+IMPLICIT NONE
+
+#include "posnam.intfb.h"
+#include "namclop15.h"
+
+
+!*       1.    Set default values.
+!              -------------------
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+! SW : 2 spectral intervals
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUCLOP15',0,ZHOOK_HANDLE)
+REBCUA15(1)= 3.448E-03_JPRB
+REBCUA15(2)= 3.448E-03_JPRB
+REBCUB15(1)= 2.431_JPRB
+REBCUB15(2)= 2.431_JPRB
+REBCUC15(1)= 0.99999_JPRB
+REBCUC15(2)= 0.975634_JPRB
+REBCUD15(1)= 0._JPRB
+REBCUD15(2)= 2.487E-04_JPRB
+REBCUE15(1)= 0.7661_JPRB
+REBCUE15(2)= 0.7866_JPRB
+REBCUF15(1)= 5.851E-04_JPRB
+REBCUF15(2)= 5.937E-04_JPRB
+
+! LW : spectrally averaged with reference Planck function at 257 K
+
+REBCUG15= 1.07677_JPRB
+REBCUH15= 0.00267_JPRB
+
+! Ice particle Effective Radius as a function of LWC
+
+REFFIA15= 40._JPRB
+REFFIB15=  0._JPRB
+
+! Water and Ice particle Effective Radius in the RADLSW15 formulae
+
+REFFWIA15= 10._JPRB
+
+!* Water cloud properties - from Fouquart (1987)
+
+! SW : 2 spectral intervals: parameters as a function of Reff
+
+RYFWCA15(1)= 0._JPRB
+RYFWCA15(2)= 0._JPRB
+RYFWCB15(1)= 1.5_JPRB
+RYFWCB15(2)= 1.5_JPRB
+RYFWCC15(1)= 0.9999_JPRB
+RYFWCC15(2)= 0.9988_JPRB
+RYFWCD15(1)= 5.000E-04_JPRB
+RYFWCD15(2)= 2.500E-03_JPRB
+RYFWCE15(1)= 0.5_JPRB
+RYFWCE15(2)= 0.05_JPRB
+RYFWCF15(1)= 0.865_JPRB
+RYFWCF15(2)= 0.910_JPRB
+
+!* Liquid/Solid water transition
+
+RTIW15= 263._JPRB
+RRIW15= 20._JPRB
+
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMCLOP15 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMCLOP15')
+!READ       (NULNAM, NAMCLOP15)
+
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=NULOUT,FMT='('' COMMON YOMCLOP15 '')')
+WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=NULOUT,FMT='( '' REFFWIA15 = '',E11.4 )') &
+                          & REFFWIA15
+
+IF (LHOOK) CALL DR_HOOK('SUCLOP15',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUCLOP15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclop15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUCLOP15
+END SUBROUTINE SUCLOP15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclopn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclopn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclopn.F90	(revision 3330)
@@ -0,0 +1,1086 @@
+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
+!     Lindner & Li, 2000: J. Climate, 13, 1797-1805
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 92-02-29
+!        97-04-16  JJ Morcrette  2 and 4 spectral intervals
+!        01-01-16  JJ Morcrette  ice cloud from Fu 96, Fu et al 98
+!        01-03-01  JJ Morcrette  water clouds from Lindner, Li 2000
+!        00-10-25  JJMorcrette   6 spectral intervals
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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   ,RFUETB   ,RFUETC   ,RFULIO   ,RFLAA0   ,RFLAA1   ,RFLBB0   ,&
+ & RFLBB1   ,RFLBB2   ,RFLBB3   ,RFLCC0   ,RFLCC1   ,&
+ & RFLCC2   ,RFLCC3   ,RFLDD0   ,RFLDD1   ,RFLDD2   ,&
+ & RFLDD3   ,RLILIA   ,RLILIB   ,RTIW     ,RRIW  
+USE YOERAD   , ONLY : RAOVLP   ,RBOVLP   ,LSRTM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM) ::  JNU
+
+!     -----------------------------------------------------------------
+REAL(KIND=JPRB) :: 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)  
+
+REAL(KIND=JPRB) :: 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)    
+  
+REAL(KIND=JPRB) :: ZAOVLP(3), ZBOVLP(3)  
+
+REAL(KIND=JPRB) :: 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)    
+
+REAL(KIND=JPRB) :: ZEBCUA14(14)  ,ZEBCUB14(14)  ,ZEBCUC14(14)  ,ZEBCUD14(14)&
+ & ,  ZEBCUE14(14)  ,ZEBCUF14(14)  ,ZYFWCA14(14)  ,ZYFWCB14(14)&
+ & ,  ZYFWCC14(14)  ,ZYFWCD14(14)  ,ZYFWCE14(14)  ,ZYFWCF14(14)&
+ & ,  ZASWCA14(14)  ,ZASWCB14(14)  ,ZASWCC14(14)  ,ZASWCD14(14)&
+ & ,  ZASWCE14(14)  ,ZASWCF14(14)  ,ZSUSHE14(14)  ,ZSUSHF14(14)&
+ & ,  ZSUSHH14(14)  ,ZSUSHK14(14)  ,ZSUSHA14(14)  ,ZSUSHG14(14)&
+ & ,  ZFLAA014(14)  ,ZFLAA114(14)  ,ZFLBB014(14)  ,ZFLBB114(14)&
+ & ,  ZFLBB214(14)  ,ZFLBB314(14)  ,ZFLCC014(14)  ,ZFLCC114(14)&
+ & ,  ZFLCC214(14)  ,ZFLCC314(14)  ,ZFLDD014(14)  ,ZFLDD114(14)&
+ & ,  ZFLDD214(14)  ,ZFLDD314(14)&
+ & ,  ZFUAA014(14)  ,ZFUAA114(14)  ,ZFUBB014(14)  ,ZFUBB114(14)&
+ & ,  ZFUBB214(14)  ,ZFUBB314(14)  ,ZFUCC014(14)  ,ZFUCC114(14)&
+ & ,  ZFUCC214(14)  ,ZFUCC314(14)    
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!     -----------------------------------------------------------------
+
+!*          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
+IF (LHOOK) CALL DR_HOOK('SUCLOPN',0,ZHOOK_HANDLE)
+ZEBCUA2 = (/ 3.448E-04_JPRB , 3.448E-04_JPRB /)
+ZEBCUB2 = (/ 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC2 = (/ 0.00001_JPRB   , 0.024366_JPRB  /)
+ZEBCUD2 = (/ 0.0_JPRB         , 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 = (/ 0.0_JPRB       , 0.0_JPRB       /)
+ZYFWCB2 = (/ 1.5_JPRB       , 1.5_JPRB       /)
+ZYFWCC2 = (/ 0.9999_JPRB    , 0.9988_JPRB    /)
+ZYFWCD2 = (/ 5.000E-04_JPRB , 2.500E-03_JPRB /)
+ZYFWCE2 = (/ 0.5_JPRB       , 0.05_JPRB      /)
+ZYFWCF2 = (/ 0.865_JPRB     , 0.910_JPRB     /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA2 = (/ 2.817_JPRB     , 2.455_JPRB    /)
+ZASWCB2 = (/ 1.305_JPRB     , 1.400_JPRB    /)
+ZASWCC2 = (/-5.62E-08_JPRB  , 1.28E-02_JPRB /)
+ZASWCD2 = (/ 1.63E-07_JPRB  , 8.97E-04_JPRB /)
+ZASWCE2 = (/ 0.829_JPRB     , 0.783_JPRB    /)
+ZASWCF2 = (/ 2.482_JPRB     , 4.988_JPRB    /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE2 = (/ 0.0_JPRB       , 8.6822_JPRB    /)
+ZSUSHF2 = (/ 0.0_JPRB       , 9.6277_JPRB    /)
+ZSUSHH2 = (/ 0.8522_JPRB    , 0.8819_JPRB    /)
+ZSUSHK2 = (/ 0.1620_JPRB    , 0.1630_JPRB    /)
+ZSUSHA2 = (/ 0.0_JPRB       , 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 = (/ 0.0_JPRB       , 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 = (/ 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB      , 0.0_JPRB        /)
+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 = (/ 0.5_JPRB       , 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.454_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 = (/ 0.0_JPRB     , 7.2471E-02_JPRB , 17.5933_JPRB  , 48.7166_JPRB  /)
+ZSUSHF4 = (/ 0.0_JPRB     , 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 = (/ 0.0_JPRB     , 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 = (/ 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 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 = (/ 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB      , 0.0_JPRB        /)
+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 = (/ 0.5_JPRB       , 0.5_JPRB       , 0.5_JPRB       , 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 = (/ 3.094_JPRB     , 2.881_JPRB     , 2.790_JPRB     , 2.682_JPRB     , 2.254_JPRB    , 1.281_JPRB      /)
+ZASWCB6 = (/ 1.252_JPRB     , 1.284_JPRB     , 1.313_JPRB     , 1.346_JPRB     , 1.456_JPRB    , 1.641_JPRB      /)
+ZASWCC6 = (/ 7.90E-07_JPRB  , 1.77E-07_JPRB  ,-1.55E-07_JPRB  ,-6.94E-06_JPRB  , 4.75E-04_JPRB , 2.01E-01_JPRB   /)
+ZASWCD6 = (/ 3.69E-07_JPRB  , 1.23E-07_JPRB  , 1.80E-07_JPRB  , 2.35E-05_JPRB  , 1.26E-03_JPRB , 7.56E-03_JPRB   /)
+ZASWCE6 = (/ 0.844_JPRB     , 0.839_JPRB     , 0.824_JPRB     , 0.794_JPRB     , 0.754_JPRB    , 0.826_JPRB      /)
+ZASWCF6 = (/ 1.558_JPRB     , 1.914_JPRB     , 2.723_JPRB     , 4.226_JPRB     , 6.561_JPRB    , 4.353_JPRB      /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE6 = (/ 0.0_JPRB     , 0.0_JPRB     , 0.0_JPRB     , 7.2471E-02_JPRB , 17.5933_JPRB  , 48.7166_JPRB  /)
+ZSUSHF6 = (/ 0.0_JPRB     , 0.0_JPRB     , 0.0_JPRB     , 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 = (/ 0.0_JPRB     , 0.0_JPRB     , 0.0_JPRB     , 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 /)
+
+!     ------------------------------------------------------------------
+
+!*          1.4    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+!                  ---------------------------------------
+
+! SW : 14 spectral intervals 
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+
+!* Ice cloud properties - crystal: remapped from Ebert and Curry, 1992
+
+ZEBCUA14 = (/ &
+ & 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB /)  
+
+ZEBCUB14 = (/ &
+ & 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     /)  
+
+ZEBCUC14 = (/ &
+ & 0.46658_JPRB   , 0.46658_JPRB   , 0.03779_JPRB   , 0.03779_JPRB   , 0.01240_JPRB   , 0.01240_JPRB   &
+ & , 0.00011_JPRB   , 0.00011_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   &
+ & , 0.00001_JPRB   , 0.46658_JPRB   /)  
+
+ZEBCUD14 = (/ &
+ & 2.050E-05_JPRB , 2.050E-05_JPRB , 1.284E-03_JPRB , 1.284E-03_JPRB , 6.867E-04_JPRB , 6.867E-04_JPRB &
+ & , 1.405E-05_JPRB , 1.405E-05_JPRB , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB          &
+ & , 0.0_JPRB         , 2.050E-05_JPRB /)  
+
+ZEBCUE14 = (/ &
+ & 0.9595_JPRB    , 0.9595_JPRB    , 0.8172_JPRB    , 0.8172_JPRB    , 0.7865_JPRB    , 0.7865_JPRB    &
+ & , 0.7730_JPRB    , 0.7730_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    &
+ & , 0.7661_JPRB    , 0.9595_JPRB    /)  
+
+ZEBCUF14 = (/ &
+ & 1.076E-04_JPRB , 1.076E-04_JPRB , 7.463E-04_JPRB , 7.463E-04_JPRB , 7.204E-04_JPRB , 7.204E-04_JPRB &
+ & , 5.665E-04_JPRB , 5.665E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB &
+ & , 5.851E-04_JPRB , 1.076E-04_JPRB /)  
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ 
+ZYFWCB14 = (/ &
+ & 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       /)  
+ 
+ZYFWCC14 = (/ &
+ & 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    &
+ & , 0.9988_JPRB    , 0.9988_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    &
+ & , 0.9999_JPRB    , 0.9988_JPRB    /)  
+
+ZYFWCD14 = (/ &
+ & 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB &
+ & , 2.500E-03_JPRB , 2.500E-03_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB &
+ & , 5.000E-04_JPRB , 2.500E-03_JPRB /)  
+
+ZYFWCE14 = (/ &
+ & 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      &
+ & , 0.05_JPRB      , 0.05_JPRB      , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB               &
+ & , 0.5_JPRB         , 0.05_JPRB      /)  
+
+ZYFWCF14 = (/ &
+ & 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     &
+ & , 0.910_JPRB     , 0.910_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB      &
+ & , 0.865_JPRB     , 0.910_JPRB     /)  
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA14 = (/ &
+ & -1.023_JPRB     , 1.950_JPRB     , 1.850_JPRB     , 1.970_JPRB     , 1.970_JPRB     , 2.463_JPRB     &
+ & , 2.551_JPRB     , 2.622_JPRB     , 2.895_JPRB     , 2.672_JPRB     , 2.801_JPRB    , 2.944_JPRB     &
+ & , 3.094_JPRB     ,-1.023_JPRB     /)  
+
+ZASWCB14 = (/ &
+ & 1.933_JPRB     , 1.540_JPRB     , 1.556_JPRB     , 1.501_JPRB     , 1.501_JPRB     , 1.420_JPRB     &
+ & , 1.401_JPRB     , 1.362_JPRB     , 1.315_JPRB     , 1.320_JPRB     , 1.293_JPRB     , 1.270_JPRB     &
+ & , 1.252_JPRB     , 1.933_JPRB     /)  
+   
+ZASWCC14 = (/ &
+ & 2.50E-02_JPRB  , 4.49E-01_JPRB  , 1.90E-04_JPRB  , 1.20E-03_JPRB  , 1.20E-03_JPRB  , 2.40E-04_JPRB  &
+ & , 6.20E-05_JPRB  , 3.30E-06_JPRB  ,-1.20E-07_JPRB  , 0.0_JPRB         , 1.00E-06_JPRB  ,-6.50E-07_JPRB  &
+ & , 7.90E-07_JPRB  , 2.50E-02_JPRB  /)  
+    
+ZASWCD14 = (/ &
+ & 1.22E-02_JPRB  , 1.54E-03_JPRB  , 2.54E-03_JPRB  , 2.16E-03_JPRB  , 2.16E-03_JPRB  , 8.56E-04_JPRB  &
+ & , 2.60E-04_JPRB  , 2.80E-06_JPRB  , 4.40E-07_JPRB  , 0.0_JPRB         , 0.0_JPRB         , 4.33E-07_JPRB  &
+ & , 3.69E-07_JPRB  , 1.22E-02_JPRB  /)  
+
+ZASWCE14 = (/ &
+ & 0.726_JPRB     , 0.831_JPRB     , 0.769_JPRB     , 0.740_JPRB     , 0.740_JPRB     , 0.754_JPRB     &
+ & , 0.773_JPRB     , 0.806_JPRB     , 0.818_JPRB     , 0.828_JPRB     , 0.836_JPRB     , 0.841_JPRB     &
+ & , 0.844_JPRB     , 0.726_JPRB     /)  
+
+ZASWCF14 = (/ &
+ & 6.652_JPRB     , 6.102_JPRB     , 5.171_JPRB     , 7.469_JPRB     , 7.469_JPRB     , 6.555_JPRB     &
+ & , 5.405_JPRB     , 3.355_JPRB     , 2.989_JPRB     , 2.467_JPRB     , 2.153_JPRB     , 1.680_JPRB     &
+ & , 1.558_JPRB     , 6.652_JPRB     /)  
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHF14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHH14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHK14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHG14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLAA114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu (1996) 
+
+ZFUAA014 = (/ &
+ & 1.87598E-04_JPRB, 2.97295E-04_JPRB, 4.89477E-04_JPRB,-8.37325E-06_JPRB,-8.37325E-06_JPRB,-8.05155E-04_JPRB  &
+ & , 6.51659E-05_JPRB, 8.10443E-05_JPRB, 1.61983E-04_JPRB,-9.45458E-05_JPRB,-2.58858E-04_JPRB,-2.66955E-04_JPRB &
+ & ,-2.36447E-04_JPRB,-2.54823E-04_JPRB /)  
+
+ZFUAA114 = (/ &
+ & 2.51396E+00_JPRB, 2.48895E+00_JPRB, 2.48776E+00_JPRB, 2.52504E+00_JPRB, 2.52504E+00_JPRB, 2.57600E+00_JPRB &
+ & , 2.51660E+00_JPRB, 2.51619E+00_JPRB, 2.50746E+00_JPRB, 2.52061E+00_JPRB, 2.53815E+00_JPRB, 2.54179E+00_JPRB &
+ & , 2.53817E+00_JPRB, 2.52909E+00_JPRB /)  
+
+ZFUBB014 = (/ &
+ & 1.96793E-01_JPRB, 4.64416E-01_JPRB, 5.83469E-04_JPRB, 2.53234E-03_JPRB, 2.53234E-03_JPRB,-2.85518E-05_JPRB &
+ & ,-1.48012E-07_JPRB,-1.57963E-07_JPRB,-7.78001E-08_JPRB, 5.08447E-07_JPRB,-1.98529E-07_JPRB,-1.00570E-07_JPRB &
+ & ,-2.69916E-07_JPRB, 2.60155E-01_JPRB /)   
+
+ZFUBB114 = (/ &
+ & 5.75235E-03_JPRB, 2.04716E-05_JPRB, 1.18127E-03_JPRB, 1.75078E-03_JPRB, 1.75078E-03_JPRB, 1.71993E-03_JPRB &
+ & , 9.02355E-05_JPRB, 1.72475E-06_JPRB, 2.53360E-07_JPRB, 2.73206E-08_JPRB, 9.39480E-08_JPRB, 1.60441E-07_JPRB &
+ & , 2.12909E-07_JPRB, 5.45547E-03_JPRB /)  
+
+ZFUBB214 = (/ &
+ & -5.29220E-05_JPRB,-4.60375E-07_JPRB,-3.40011E-06_JPRB,-8.00994E-06_JPRB,-8.00994E-06_JPRB,-7.43697E-06_JPRB &
+ & ,-1.98190E-08_JPRB, 9.02156E-11_JPRB,-1.15489E-10_JPRB, 4.96553E-11_JPRB,-2.54540E-10_JPRB,-2.05663E-10_JPRB &
+ & ,-2.65397E-10_JPRB,-5.58760E-05_JPRB /)  
+
+ZFUBB314 = (/ &
+ & 1.76618E-07_JPRB, 2.03198E-09_JPRB, 8.78549E-09_JPRB, 2.31309E-08_JPRB, 2.31309E-08_JPRB, 2.09647E-08_JPRB &
+ & , 4.01914E-11_JPRB,-3.79423E-13_JPRB, 4.65084E-13_JPRB,-1.86001E-13_JPRB, 1.10876E-12_JPRB, 8.88595E-13_JPRB &
+ & , 1.12983E-12_JPRB, 1.97086E-07_JPRB /)  
+
+ZFUCC014 = (/ &
+ & 0.759183_JPRB   , 0.919599_JPRB   , 0.775916_JPRB   , 0.758748_JPRB   , 0.758748_JPRB   , 0.752528_JPRB    &
+ & , 0.751277_JPRB   , 0.752318_JPRB   , 0.749693_JPRB   , 0.749856_JPRB   , 0.743546_JPRB   , 0.737809_JPRB    &
+ & , 0.733260_JPRB   , 0.799084_JPRB   /)  
+   
+ZFUCC114 = (/ &
+ & 4.93765E-03_JPRB, 5.03025E-04_JPRB, 1.74517E-03_JPRB, 2.02709E-03_JPRB, 2.02709E-03_JPRB, 1.95748E-03_JPRB &
+ & , 1.29824E-03_JPRB, 1.04224E-03_JPRB, 1.05446E-03_JPRB, 8.89161E-04_JPRB, 9.08674E-04_JPRB, 8.97515E-04_JPRB &
+ & , 9.18317E-04_JPRB, 4.81706E-03_JPRB /)  
+
+ZFUCC214 = (/ &
+ & -4.84059E-05_JPRB,-5.74771E-06_JPRB,-9.21314E-06_JPRB,-1.17029E-05_JPRB,-1.17029E-05_JPRB,-1.02495E-05_JPRB &
+ & ,-4.99075E-06_JPRB,-2.26618E-06_JPRB,-2.32576E-06_JPRB,-3.49578E-07_JPRB,-4.65326E-07_JPRB,-2.17099E-07_JPRB &
+ & ,-4.22974E-07_JPRB,-5.13220E-05_JPRB /)  
+
+ZFUCC314 = (/ &
+ & 1.65801E-07_JPRB, 2.01731E-08_JPRB, 2.15003E-08_JPRB, 2.95195E-08_JPRB, 2.95195E-08_JPRB, 2.35479E-08_JPRB &
+ & , 6.33757E-09_JPRB,-3.68283E-09_JPRB,-3.58307E-09_JPRB, 1.09913E-08_JPRB,-1.05786E-08_JPRB,-1.16090E-08_JPRB &
+ & ,-1.07976E-08_JPRB, 1.84420E-07_JPRB /)  
+
+!     ------------------------------------------------------------------
+
+! LW : absorption coefficient as a function of effective radius in RRTM
+
+! water clouds from Savijarvi
+
+RHSAVI( 1, :) = (/  0.1651082_JPRB  , -0.003494839_JPRB  , 0.0_JPRB            /)  
+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  , 0.0_JPRB            /)  
+RHSAVI(13, :) = (/  0.1032178_JPRB  , -0.00293412_JPRB   , 0.0_JPRB            /)  
+RHSAVI(14, :) = (/  0.07342832_JPRB , -0.001775135_JPRB  , 0.0_JPRB            /)  
+RHSAVI(15, :) = (/  0.04649514_JPRB , -0.0009165462_JPRB , 0.0_JPRB            /)  
+RHSAVI(16, :) = (/  0.06893519_JPRB , -0.0001245402_JPRB , 0.0_JPRB            /)  
+    
+! water clouds from Lindner & Li (2000)
+
+RLILIA( 1, :) = (/ 0.88116E-01_JPRB,-0.12857E-02_JPRB, 0.81658E+00_JPRB,-0.39428E+01_JPRB, 0.46652E+01_JPRB /)        
+RLILIA( 2, :) = (/ 0.41307E-03_JPRB,-0.59631E-04_JPRB, 0.24275E+01_JPRB,-0.90838E+01_JPRB, 0.96069E+01_JPRB /)     
+RLILIA( 3, :) = (/-0.57709E-01_JPRB, 0.99071E-03_JPRB, 0.31118E+01_JPRB,-0.95540E+01_JPRB, 0.90189E+01_JPRB /)     
+RLILIA( 4, :) = (/-0.53069E-01_JPRB, 0.99992E-03_JPRB, 0.28045E+01_JPRB,-0.72836E+01_JPRB, 0.62573E+01_JPRB /)  
+RLILIA( 5, :) = (/-0.23627E-01_JPRB, 0.55291E-03_JPRB, 0.21785E+01_JPRB,-0.54664E+01_JPRB, 0.47379E+01_JPRB /)       
+RLILIA( 6, :) = (/ 0.29022E-01_JPRB,-0.39657E-03_JPRB, 0.14902E+01_JPRB,-0.50777E+01_JPRB, 0.52170E+01_JPRB /)  
+RLILIA( 7, :) = (/-0.24901E-01_JPRB, 0.16195E-03_JPRB, 0.29375E+02_JPRB,-0.11437E+02_JPRB, 0.12273E+02_JPRB /)  
+RLILIA( 8, :) = (/-0.14269E+00_JPRB, 0.22282E-02_JPRB, 0.46478E+01_JPRB,-0.16369E+02_JPRB, 0.16533E+02_JPRB /)  
+RLILIA( 9, :) = (/-0.20398E+00_JPRB, 0.34708E-02_JPRB, 0.52858E+01_JPRB,-0.16603E+02_JPRB, 0.15392E+02_JPRB /)        
+RLILIA(10, :) = (/-0.18318E+00_JPRB, 0.33080E-02_JPRB, 0.46120E+01_JPRB,-0.11550E+02_JPRB, 0.87086E+01_JPRB /)  
+RLILIA(11, :) = (/-0.20420E+00_JPRB, 0.37167E-02_JPRB, 0.48566E+01_JPRB,-0.11972E+02_JPRB, 0.86344E+01_JPRB /)        
+RLILIA(12, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(13, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(14, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(15, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(16, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+
+RLILIB( 1, :) = (/ 0.76110E+00_JPRB, 0.57048E+00_JPRB,-0.16721E-01_JPRB, 0.27886E-03_JPRB /)
+RLILIB( 2, :) = (/ 0.51897E+00_JPRB, 0.86352E+00_JPRB,-0.29099E-02_JPRB, 0.63126E-04_JPRB /)
+RLILIB( 3, :) = (/ 0.50964E+00_JPRB, 0.76057E+00_JPRB,-0.15630E-02_JPRB, 0.26245E-04_JPRB /)
+RLILIB( 4, :) = (/ 0.55180E+00_JPRB, 0.65812E+00_JPRB,-0.41768E-02_JPRB, 0.64243E-04_JPRB /)
+RLILIB( 5, :) = (/ 0.60890E+00_JPRB, 0.59525E+00_JPRB,-0.74557E-02_JPRB, 0.11757E-03_JPRB /)
+RLILIB( 6, :) = (/ 0.49787E+00_JPRB, 0.74581E+00_JPRB,-0.37379E-02_JPRB, 0.90555E-04_JPRB /)
+RLILIB( 7, :) = (/ 0.46323E-01_JPRB, 0.10131E+01_JPRB, 0.18692E-01_JPRB,-0.21898E-03_JPRB /)
+RLILIB( 8, :) = (/-0.43354E-01_JPRB, 0.78454E+00_JPRB, 0.26449E-01_JPRB,-0.36385E-03_JPRB /) 
+RLILIB( 9, :) = (/-0.27033E-01_JPRB, 0.54717E+00_JPRB, 0.27903E-01_JPRB,-0.41074E-03_JPRB /)
+RLILIB(10, :) = (/ 0.11595E+00_JPRB, 0.30559E+00_JPRB, 0.22727E-01_JPRB,-0.36032E-03_JPRB /)
+RLILIB(11, :) = (/-0.14764E-01_JPRB, 0.28331E+00_JPRB, 0.23515E-01_JPRB,-0.33662E-03_JPRB /)
+RLILIB(12, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(13, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(14, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(15, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(16, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+
+! ice clouds from Fu & Liou (1993)
+
+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,  0.0_JPRB   /)  
+RFULIO(15, :) = (/ -6.656E-03_JPRB, 3.686_JPRB,  0.0_JPRB   /)  
+RFULIO(16, :) = (/ -6.656E-03_JPRB, 3.686_JPRB,  0.0_JPRB   /)  
+ 
+! ice clouds from Fu et al. (1998) 
+
+!-- extinction coefficient
+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 /)  
+
+!-- absorption coefficient
+RFUETB( 1, :) = (/  8.869787E-01_JPRB, 2.118409E-02_JPRB,-2.781429E-04_JPRB, 1.094562E-06_JPRB /)
+RFUETB( 2, :) = (/  2.005578E-01_JPRB, 2.132614E-02_JPRB,-1.751052E-04_JPRB, 5.355885E-07_JPRB /)
+RFUETB( 3, :) = (/  3.003701E-01_JPRB, 2.051529E-02_JPRB,-1.931684E-04_JPRB, 6.583031E-07_JPRB /)
+RFUETB( 4, :) = (/  9.551440E-01_JPRB, 1.309792E-02_JPRB,-1.793694E-04_JPRB, 7.313392E-07_JPRB /)
+RFUETB( 5, :) = (/  1.466481E+00_JPRB,-2.129226E-03_JPRB,-1.361630E-05_JPRB, 1.193649E-07_JPRB /)
+RFUETB( 6, :) = (/  1.195515E+00_JPRB, 3.350616E-03_JPRB,-5.266996E-05_JPRB, 2.233377E-07_JPRB /)
+RFUETB( 7, :) = (/  5.409536E-01_JPRB, 1.949649E-02_JPRB,-2.050908E-04_JPRB, 7.364680E-07_JPRB /)
+RFUETB( 8, :) = (/  5.874323E-01_JPRB, 1.876628E-02_JPRB,-2.045834E-04_JPRB, 7.510080E-07_JPRB /)
+RFUETB( 9, :) = (/  7.152274E-01_JPRB, 1.621734E-02_JPRB,-1.868544E-04_JPRB, 7.078738E-07_JPRB /)
+RFUETB(10, :) = (/  8.862434E-01_JPRB, 1.226538E-02_JPRB,-1.523076E-04_JPRB, 6.000892E-07_JPRB /)
+RFUETB(11, :) = (/  8.862434E-01_JPRB, 1.226538E-02_JPRB,-1.523076E-04_JPRB, 6.000892E-07_JPRB /)
+RFUETB(12, :) = (/  7.428957E-01_JPRB, 1.279601E-02_JPRB,-1.391803E-04_JPRB, 5.180104E-07_JPRB /)
+RFUETB(13, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+RFUETB(14, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+RFUETB(15, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+RFUETB(16, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+
+!-- asymmetry factor
+RFUETC( 1, :) = (/  4.949276E-01_JPRB, 1.186174E-02_JPRB,-1.267629E-04_JPRB, 4.603574E-07_JPRB /) 
+RFUETC( 2, :) = (/  6.891414E-01_JPRB, 6.192281E-03_JPRB,-6.459514E-05_JPRB, 2.436963E-07_JPRB /)
+RFUETC( 3, :) = (/  7.260484E-01_JPRB, 2.664334E-03_JPRB,-1.251136E-05_JPRB, 2.243377E-08_JPRB /)
+RFUETC( 4, :) = (/  7.363466E-01_JPRB, 4.798266E-03_JPRB,-4.413293E-05_JPRB, 1.525774E-07_JPRB /)
+RFUETC( 5, :) = (/  7.984021E-01_JPRB, 3.977117E-03_JPRB,-4.471984E-05_JPRB, 1.694919E-07_JPRB /)
+RFUETC( 6, :) = (/  8.663385E-01_JPRB, 2.797934E-03_JPRB,-3.187011E-05_JPRB, 1.217209E-07_JPRB /)
+RFUETC( 7, :) = (/  8.906280E-01_JPRB, 1.903269E-03_JPRB,-1.733552E-05_JPRB, 5.855071E-08_JPRB /) 
+RFUETC( 8, :) = (/  8.609604E-01_JPRB, 2.200445E-03_JPRB,-1.748105E-05_JPRB, 5.176616E-08_JPRB /)
+RFUETC( 9, :) = (/  8.522816E-01_JPRB, 2.523627E-03_JPRB,-2.149196E-05_JPRB, 6.685067E-08_JPRB /)
+RFUETC(10, :) = (/  8.741665E-01_JPRB, 2.455409E-03_JPRB,-2.456935E-05_JPRB, 8.641223E-08_JPRB /)
+RFUETC(11, :) = (/  8.741665E-01_JPRB, 2.455409E-03_JPRB,-2.456935E-05_JPRB, 8.641223E-08_JPRB /)
+RFUETC(12, :) = (/  8.472918E-01_JPRB, 2.559953E-03_JPRB,-2.182660E-05_JPRB, 6.879977E-08_JPRB /)
+RFUETC(13, :) = (/  7.962716E-01_JPRB, 3.003488E-03_JPRB,-2.082376E-05_JPRB, 5.366545E-08_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)
+
+! Fu (1996)'s optical properties are not available for 2 spectral intervals
+!    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)
+    
+  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)
+    
+  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)
+    
+  ENDDO
+ELSEIF (KTSW == 14 .AND. LSRTM) THEN
+    PRINT *,'SUCLOPN: 14-SPECTRAL INTERVALS --> RRTM_SW'
+!  DO JNU=1,KSW
+!    RASWCA(JNU)=ZASWCA14(JNU)*1.E-02_JPRB
+!    RASWCB(JNU)=ZASWCB14(JNU)
+!    RASWCC(JNU)=ZASWCC14(JNU)
+!    RASWCD(JNU)=ZASWCD14(JNU)
+!    RASWCE(JNU)=ZASWCE14(JNU)
+!    RASWCF(JNU)=ZASWCF14(JNU)*1.E-03_JPRB
+!
+!    REBCUA(JNU)=ZEBCUA14(JNU)
+!    REBCUB(JNU)=ZEBCUB14(JNU)
+!    REBCUC(JNU)=ZEBCUC14(JNU)
+!    REBCUD(JNU)=ZEBCUD14(JNU)
+!    REBCUE(JNU)=ZEBCUE14(JNU)
+!    REBCUF(JNU)=ZEBCUF14(JNU)
+!
+!    RYFWCA(JNU)=ZYFWCA14(JNU)
+!    RYFWCB(JNU)=ZYFWCB14(JNU)
+!    RYFWCC(JNU)=ZYFWCC14(JNU)
+!    RYFWCD(JNU)=ZYFWCD14(JNU)
+!    RYFWCE(JNU)=ZYFWCE14(JNU)
+!    RYFWCF(JNU)=ZYFWCF14(JNU)
+!
+!    RSUSHE(JNU)=ZSUSHE14(JNU)*1.E-02_JPRB
+!    RSUSHF(JNU)=ZSUSHF14(JNU)*1.E-02_JPRB
+!    RSUSHH(JNU)=ZSUSHH14(JNU)
+!    RSUSHK(JNU)=ZSUSHK14(JNU)*1.E-01_JPRB
+!    RSUSHA(JNU)=ZSUSHA14(JNU)*1.E-03_JPRB
+!    RSUSHG(JNU)=ZSUSHG14(JNU)*1.E-01_JPRB
+!    
+!    RFLAA0(JNU)=ZFLAA014(JNU)
+!    RFLAA1(JNU)=ZFLAA114(JNU)
+!    RFLBB0(JNU)=ZFLBB014(JNU)
+!    RFLBB1(JNU)=ZFLBB114(JNU)
+!    RFLBB2(JNU)=ZFLBB214(JNU)
+!    RFLBB3(JNU)=ZFLBB314(JNU)
+!    RFLCC0(JNU)=ZFLCC014(JNU)
+!    RFLCC1(JNU)=ZFLCC114(JNU)
+!    RFLCC2(JNU)=ZFLCC214(JNU)
+!    RFLCC3(JNU)=ZFLCC314(JNU)
+!    RFLDD0(JNU)=ZFLDD014(JNU)
+!    RFLDD1(JNU)=ZFLDD114(JNU)
+!    RFLDD2(JNU)=ZFLDD214(JNU)
+!    RFLDD3(JNU)=ZFLDD314(JNU)
+!    
+!    RFUAA0(JNU)=ZFUAA014(JNU)
+!    RFUAA1(JNU)=ZFUAA114(JNU)
+!    RFUBB0(JNU)=ZFUBB014(JNU)
+!    RFUBB1(JNU)=ZFUBB114(JNU)
+!    RFUBB2(JNU)=ZFUBB214(JNU)
+!    RFUBB3(JNU)=ZFUBB314(JNU)
+!    RFUCC0(JNU)=ZFUCC014(JNU)
+!    RFUCC1(JNU)=ZFUCC114(JNU)
+!    RFUCC2(JNU)=ZFUCC214(JNU)
+!    RFUCC3(JNU)=ZFUCC314(JNU)
+!!    RFUDD0(JNU)=ZFUDD014(JNU)
+!!    RFUDD1(JNU)=ZFUDD114(JNU)
+!!    RFUDD2(JNU)=ZFUDD214(JNU)
+!!    RFUDD3(JNU)=ZFUDD314(JNU)
+!
+!    PRINT *,'SUCLOPN: 14-SPECTRAL INTERVALS --> RRTM_SW'     
+!  ENDDO
+ELSE
+  CALL ABOR1('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)
+ELSEIF (KLEV == 31) THEN
+  RAOVLP=ZAOVLP(2)
+  RBOVLP=ZBOVLP(2)
+ELSEIF (KLEV == 60) THEN
+  RAOVLP=ZAOVLP(3)
+  RBOVLP=ZBOVLP(3)
+ELSE  
+  RAOVLP=ZAOVLP(3)
+  RBOVLP=ZBOVLP(3)
+ENDIF  
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUCLOPN',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCLOPN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclopn.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclopn.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suclopn.intfb.h	(revision 3330)
@@ -0,0 +1,8 @@
+INTERFACE
+SUBROUTINE SUCLOPN (KTSW, KSW, KLEV)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+END SUBROUTINE SUCLOPN
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucond.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucond.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucond.intfb.h	(revision 3330)
@@ -0,0 +1,8 @@
+INTERFACE
+SUBROUTINE SUCOND ( KULOUT , KLEV , PETA )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PETA(KLEV)
+END SUBROUTINE SUCOND
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucst.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucst.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucst.F90	(revision 3330)
@@ -0,0 +1,306 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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     ,&
+ & RMCO2    ,RMCH4    ,RMN2O    ,RMCO     ,RMHCHO   ,&
+ & RMSO2    ,RMNO2    ,RMSF6    ,RMRA     ,&
+ & 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
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KDAT 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSSS 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPRINTLEV 
+INTEGER(KIND=JPIM) :: IA, ID, IDAT, IM, ISSS, J
+
+REAL(KIND=JPRB) :: ZDE, ZET, ZJU, ZRS, ZRSREL, ZTETA, ZTI
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "fctast.h"
+#include "fcttrm.h"
+#include "fcttim.h"
+!      -----------------------------------------------------------------
+
+!*       1.    DEFINE FUNDAMENTAL CONSTANTS.
+!              -----------------------------
+
+print*,'DANS SUCST CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
+IF (LHOOK) CALL DR_HOOK('SUCST',0,ZHOOK_HANDLE)
+RPI=2.0_JPRB*ASIN(1.0_JPRB)
+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*2.0_JPRB*RPI/6.283076_JPRB
+RSIDAY=RDAY/(1.0_JPRB+RDAY/RSIYEA)
+ROMEGA=2.0_JPRB*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(1.0_JPRB/REAL(RA,KIND(1.0_JPRB)),KIND(R1SA))
+
+!     ------------------------------------------------------------------
+
+!*       4.    DEFINE RADIATION CONSTANTS.
+!              ---------------------------
+
+RSIGMA=2.0_JPRB * 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-1.0_JPRB
+RMCO2=44.0095_JPRB
+RMCH4=16.04_JPRB
+RMN2O=44.013_JPRB
+RMSF6=146.05_JPRB
+RMRA=222._JPRB
+RMCO=28.01_JPRB
+RMHCHO=30.03_JPRB
+RMNO2=46.01_JPRB
+RMSO2=64.07_JPRB
+
+!     ------------------------------------------------------------------
+
+!*       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)
+print *,'SUCST: RESTT,RBETW,RTT,RGAMW',RESTT,RBETW,RTT,RGAMW
+print *,'SUCST: RALPW',RALPW
+RGAMS=(RCS-RCPV)/RV
+RBETS=RLSTT/RV+RGAMS*RTT
+RALPS=LOG(RESTT)+RBETS/RTT+RGAMS*LOG(RTT)
+print *,'SUCST: RESTT,RBETS,RTT,RGAMS',RESTT,RBETS,RTT,RGAMS
+print *,'SUCST: RALPS',RALPS
+RGAMS=(RCS-RCPV)/RV
+RGAMD=RGAMS-RGAMW
+RBETD=RBETS-RBETW
+RALPD=RALPS-RALPW
+
+!     ------------------------------------------------------------------
+
+!*      10.    PRINTS
+
+print*,'KPRINTLEV ',KPRINTLEV
+print*,'KULOUT ',KULOUT
+
+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)
+!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
+   do j=1,9
+     print*,'TEST J',j
+     print*,'RTT...',RTT+10._JPRB*(J-5)
+     print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
+   enddo
+  call flush(0)
+
+  WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUCST',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCST
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucumf.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucumf.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucumf.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUCUMF(KSMAX)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
+END SUBROUTINE SUCUMF
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucumf2.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucumf2.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sucumf2.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUCUMF2(KSMAX)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
+END SUBROUTINE SUCUMF2
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad.F90	(revision 3330)
@@ -0,0 +1,1530 @@
+!
+! $Id$
+!
+SUBROUTINE SUECRAD (KULOUT, KLEV, PETAH )
+
+!**** *SUECRAD*   - INITIALIZE COMMONS YOERxx CONTROLLING RADIATION
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOERAD, THE COMMON THAT CONTROLS THE
+!           RADIATION OF THE MODEL, AND YOERDU THAT INCLUDES
+!           ADJUSTABLE PARAMETERS FOR RADIATION COMPUTATIONS
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRAD* FROM *SUPHEC*
+!              -------        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMONS YOERAD, YOERDU
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        SUAER, SUAERH, SUAERV, SULW, SUSW, SUOCST, SUSAT
+!        SUAERL, SUAERSN, SUSRTAER, SRTM_INIT, SUSRTCOP
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        P.COURTIER AND M.HAMRUD NAME SURAD ALREADY USED
+!        Modified 93-11-15 by Ph. Dandin : FMR scheme with MF
+!        Modified 95-12 by PhD : Cloud overlapping hypothesis for FMR
+!        980317 JJMorcrette clean-up (NRAD, NFLUX)
+!        000118 JJMorcrette variable concentr. uniformly mixed gases
+!        990525 JJMorcrette GISS volcanic and new tropospheric aerosols
+!        990831 JJMorcrette RRTM
+!        R. El Khatib 01-02-02 proper initialization of NFRRC moved in SUCFU
+!        010129 JJMorcrette clean-up LERAD1H, NLNGR1H
+!        011105 GMozdzynski support new radiation grid
+!        011005 JJMorcrette CCN --> Re Water clouds
+!        R. El Khatib 01-02-02 LRRTM=lecmwf by default
+!        020909 GMozdzynski support NRADRES to specify radiation grid
+!        021001 GMozdzynski support on-demand radiation communications
+!        030422 GMozdzynski automatic min-halo
+!        030501 JJMorcrette new radiation grid on, new aerosols on (default)
+!        030513 JJMorcrette progn. O3 / radiation interactions off (default)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        050315 JJMorcrette prog.aerosols v1
+!        041214 JJMorcrette SRTM
+!        050111 JJMorcrette new cloud optical properties
+!        050415 GMozdzynski Reduced halo support for radiation interpolation
+!        051004 JJMorcrette UV surface radiation processor
+!        051220 JJMorcrette SRTM112g+LWSCAT+UVprocessor+(bgfx:swclr, radaca)
+!        060510 JJMorcrette MODIS albedo (UVis, NIR)x(parallel+diffuse)
+!        060510 JJMorcrette MODIS albedo (UVis, NIR)x(parallel+diffuse)
+!        JJMorcrette 20060721 PP of clear-sky PAR and TOA incident solar radiation
+!        060625 JJMorcrette MODIS albedo (UVis, NIR)x(parallel+diffuse)
+!        060726 JJMorcrette McICA default operational configuration
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARDIM   , ONLY : JPMXGL
+USE PARRRTM  , ONLY : JPLAY
+USE PARSRTM  , ONLY : JPGPT
+USE YOMCT0   , ONLY : LOUTPUT  ,NPRINTLEV,LALLOPR,&
+ & NPROC    ,N_REGIONS_NS  ,N_REGIONS_EW
+USE YOMDIM   , ONLY : NDLON    ,NSMAX    ,NDGENL    ,&
+ & NDGSAL   ,NDGLG    ,NDGSAG   ,NDGENG   ,NDSUR1    ,&
+ & NDLSUR   ,NDGSUR   ,NGPBLKS  ,NFLEVG   ,NPROMA  
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMDYN   , ONLY : TSTEP
+! Ce qui concerne NULRAD commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM   ,NULRAD   ,NULOUT
+USE YOMLUN   , ONLY : NULRAD   ,NULOUT
+USE YOMCST   , ONLY : RDAY     ,RG       ,RCPD     ,RPI     ,RI0
+USE YOMPHY   , ONLY : LMPHYS, LRAYFM   ,LRAYFM15
+USE YOEPHY   , ONLY : LEPHYS   ,LERADI, LE4ALB
+USE YOERDI   , ONLY : RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12, RSOLINC
+USE YOERAD   , ONLY : NAER     , NOZOCL   ,&
+ & NRADFR   ,NRADPFR  ,NRADPLA  ,NRINT    ,&
+ & NRADNFR  ,NRADSFR  ,NOVLP    ,NRPROMA  ,&
+!& NLW      ,NSW      ,NTSW     ,NCSRADF  ,&
+! NSW mis dans .def MPL 20140211
+ & NLW      ,NTSW     ,NCSRADF  ,&
+ & NMODE    ,NLNGR1H  ,NSWNL    ,NSWTL    ,NUV     ,&
+ & LERAD1H  ,LERADHS  ,LEPO3RA  ,LRADLB   ,LONEWSW ,&
+ & LCCNL    ,LCCNO    ,&
+ & LECSRAD  ,LHVOLCA  ,LNEWAER  ,LRRTM    ,LSRTM   ,LDIFFC  ,&
+ & NRADINT  ,NRADRES  ,CRTABLEDIR,CRTABLEFIL       ,&
+ & NICEOPT  ,NLIQOPT  ,NRADIP   ,NRADLP   ,NINHOM  ,NLAYINH ,&
+ & LRAYL    ,LOPTRPROMA,&
+ & RCCNLND  ,RCCNSEA  ,RLWINHF  ,RSWINHF  ,RRe2De  ,&
+ & RPERTOZ  ,NPERTOZ  ,NMCICA   ,&
+ & LNOTROAER,NPERTAER ,LECO2VAR ,LHGHG    ,NHINCSOL,NSCEN ,&
+ & LEDBUG
+USE YOERDU   , ONLY : NUAER    ,NTRAER   ,RCDAY    ,R10E     ,&
+ & REPLOG   ,REPSC    ,REPSCO   ,REPSCQ   ,REPSCT   ,&
+ & REPSCW   ,DIFF  
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED   ,&
+ & RCAEOPS  ,RCAEOPL  ,RCAEOPU  ,RCAEOPD  ,RCTRBGA  ,&
+ & RCVOBGA  ,RCSTBGA  ,RCTRPT   ,RCAEADM  ,RCAEROS  ,            &
+ & RCAEADK  
+USE YOE_UVRAD, ONLY : JUVLAM, LUVPROC, LUVTDEP, LUVDBG, NRADUV, NUVTIM, RUVLAM, RMUZUV
+
+USE YOMMP    , ONLY : MYPROC   ,NPRCIDS  ,LSPLIT   ,NAPSETS  ,&
+ & NPTRFLOFF,NFRSTLOFF,MYFRSTACTLAT,MYLSTACTLAT,&
+ & NSTA,NONL,NPTRFRSTLAT,NFRSTLAT,NLSTLAT ,&
+ & MY_REGION_NS  ,MY_REGION_EW   ,NGLOBALINDEX ,&
+ & NRISTA  ,NRIONL   ,NRIOFF    ,NRIEXT   ,NRICORE ,&
+ & NRISENDPOS ,NRIRECVPOS ,NRISENDPTR ,NRIRECVPTR ,&
+ & NARIB1  ,NRIPROCS ,NRIMPBUFSZ,NRISPT   ,NRIRPT ,&
+ & NRICOMM ,&
+ & NROSTA  ,NROONL   ,NROOFF    ,NROEXT   ,NROCORE ,&
+ & NROSENDPOS ,NRORECVPOS ,NROSENDPTR ,NRORECVPTR ,&
+ & NAROB1  ,NROPROCS ,NROMPBUFSZ,NROSPT   ,NRORPT ,&
+ & NROCOMM
+USE YOMGC    , ONLY : GELAT    ,GELAM
+USE YOMLEG   , ONLY : RMU      ,RSQM2
+USE YOMSC2   , ONLY : &
+ & NRIWIDEN  ,NRIWIDES  ,NRIWIDEW  ,NRIWIDEE,&
+ & NROWIDEN  ,NROWIDES  ,NROWIDEW  ,NROWIDEE
+USE YOMGEM   , ONLY : NGPTOT   ,NGPTOTG   ,NGPTOTMX ,NLOENG
+USE YOMTAG   , ONLY : MTAGRAD
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL ,RADGRID  ,&
+ & LRADONDEM  
+USE YOMRADF  , ONLY : EMTD     ,TRSW     ,EMTC      ,TRSC    ,&
+ & SRSWD    ,SRLWD    ,SRSWDCS  ,SRLWDCS   ,SRSWDV  ,&
+ & SRSWDUV  ,EDRO     ,SRSWPAR  ,SRSWUVB   ,SRSWPARC,  SRSWTINC,&
+ & EMTU, RMOON
+! Commente par MPL 26.11.08 
+!USE YOPHNC   , ONLY :  LERADN2
+! MPLefebvre 6-11-08 commente tout ce qui concerne MPL_MODULE
+!USE MPL_MODULE  , ONLY :  MPL_BROADCAST, MPL_SEND, MPL_RECV
+USE YOM_YGFL , ONLY : YO3
+!!!!! A REVOIR (MPL) NDLNPR devrait etre initialise dans sudyn.F90
+USE YOMDYN   , ONLY : NDLNPR
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1) 
+!     LOCAL ARRAYS FOR THE PURPOSE OF READING NAMRGRI (RADIATION GRID)
+INTEGER(KIND=JPIM) :: NRGRI(JPMXGL)
+
+INTEGER(KIND=JPIM) :: IDGL,INBLW,IRADFR,IST1HR,ISTNHR,IDIR,IFIL
+INTEGER(KIND=JPIM) :: IRIRPTSUR,IRISPTSUR,IRIMAPLEN
+INTEGER(KIND=JPIM) :: JLON,JGLAT,JGL,JGLSUR,IDLSUR,IOFF,ILAT,ISTLON,IENDLON
+INTEGER(KIND=JPIM) :: IRORPTSUR,IROSPTSUR,IROMAPLEN
+INTEGER(KIND=JPIM) :: ILBRLATI,IUBRLATI,IGLGLO,IDUM,IU
+INTEGER(KIND=JPIM) :: J,JROC,IGPTOT
+INTEGER(KIND=JPIM) :: IROWIDEMAXN,IROWIDEMAXS,IROWIDEMAXW,IROWIDEMAXE
+INTEGER(KIND=JPIM) :: IRIWIDEMAXN,IRIWIDEMAXS,IRIWIDEMAXW,IRIWIDEMAXE
+INTEGER(KIND=JPIM) :: IARIB1MAX,IAROB1MAX
+INTEGER(KIND=JPIM) :: IWIDE(10)
+INTEGER(KIND=JPIM) :: ILATS_DIFF_F,ILATS_DIFF_C
+INTEGER(KIND=JPIM), PARAMETER :: JP_MIN_HALO=5
+INTEGER(KIND=JPIM) :: ISW,JUV,IDAYUV
+
+LOGICAL :: LLINEAR_GRID
+LOGICAL :: LLDEBUG,LLP
+
+REAL(KIND=JPRB) :: ZSTPHR, ZTSTEP, ZGEMU, ZLON, ZD1, ZD2, ZD3, ZD4, ZD5, ZD6
+REAL(KIND=JPRB) :: ZMINRADLAT,ZMAXRADLAT,ZMINRADLON,ZMAXRADLON
+REAL(KIND=JPRB) :: ZMINMDLLAT,ZMAXMDLLAT,ZMINMDLLON,ZMAXMDLLON
+REAL(KIND=JPRB) :: ZLAT
+!REAL(KIND=JPRB) :: RLATVOL, RLONVOL
+
+CHARACTER (LEN = 300) ::  CLFN
+INTEGER(KIND=JPIM), PARAMETER :: JPIOMASTER=1
+
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRISENDPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRIRECVPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRISENDPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRIRECVPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRICOMM(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRIMAP(:,:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROSENDPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRORECVPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROSENDPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRORECVPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROCOMM(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROMAP(:,:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IGLOBALINDEX(:)
+
+REAL(KIND=JPRB),ALLOCATABLE :: ZLATX(:)
+REAL(KIND=JPRB),ALLOCATABLE :: ZLONX(:)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+INTERFACE
+#include "setup_trans.h"
+#include "trans_inq.h"
+END INTERFACE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "rrtm_init_140gp.intfb.h"
+
+#include "rdcset.intfb.h"
+#include "suaerh.intfb.h"
+#include "suaerl.intfb.h"
+#include "suaersn.intfb.h"
+#include "suaerv.intfb.h"
+#include "suclopn.intfb.h"
+#include "suecradi.intfb.h"
+#include "suecradl.intfb.h"
+#include "sulwn.intfb.h"
+#include "sulwneur.intfb.h"
+#include "suovlp.intfb.h"
+#include "surdi.intfb.h"
+#include "surrtab.intfb.h"
+#include "surrtftr.intfb.h"
+#include "surrtpk.intfb.h"
+#include "surrtrf.intfb.h"
+#include "susat.intfb.h"
+#include "suswn.intfb.h"
+#include "susrtaer.intfb.h"
+#include "srtm_init.intfb.h"
+#include "susrtcop.intfb.h"
+#include "su_aerw.intfb.h"
+#include "su_uvrad.intfb.h"
+#include "su_mcica.intfb.h"
+
+!      ----------------------------------------------------------------
+
+#include "naerad.h"
+#include "namrgri.h"
+#include "clesphys.h"
+
+!*         1.       INITIALIZE NEUROFLUX LONGWAVE RADIATION
+!                   ---------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD',0,ZHOOK_HANDLE)
+!CALL GSTATS(1818,0)     MPL 2.12.08
+!IF (LERADN2) THEN
+!  CALL SULWNEUR(KLEV)
+!ENDIF
+
+!*         2.       SET DEFAULT VALUES.
+!                   -------------------
+
+!*         2.1      PRESET INDICES IN *YOERAD*
+!                   --------------------------
+
+LERAD1H=.FALSE.
+NLNGR1H=6
+
+LERADHS=.TRUE.
+LONEWSW=.TRUE.
+LECSRAD=.FALSE.
+
+!LE4ALB=.FALSE.
+!This is read from SU0PHY in NAEPHY and put in YOEPHY
+
+!- default setting of cloud optical properties
+!  liquid water cloud 0: Fouquart    (SW), Smith-Shi   (LW)
+!                     1: Slingo      (SW), Savijarvi   (LW)
+!                     2: Slingo      (SW), Lindner-Li  (LW)
+!  ice water cloud    0: Ebert-Curry (SW), Smith-Shi   (LW)
+!                     1: Ebert-Curry (SW), Ebert-Curry (LW)
+!                     2: Fu-Liou'93  (SW), Fu-Liou'93  (LW)
+!                     3: Fu'96       (SW), Fu et al'98 (LW)
+NLIQOPT=2           ! before 3?R1 default=0    2
+NICEOPT=3           ! before 3?R1 default=1    3
+
+!- default setting of cloud effective radius/diameter
+!  liquid water cloud 0: f(P) 10 to 45
+!                     1: 13: ocean; 10: land
+!                     2: Martin et al. CCN 50 over ocean, 900 over land
+!  ice water cloud    0: 40 microns
+!                     1: f(T) 40 to 130 microns
+!                     2: f(T) 30 to 60
+!                     3: f(T,IWC) Sun'01: 22.5 to 175 microns
+!  conversion factor between effective radius and particle size for ice
+NRADIP=3            ! before 3?R1 default=2 	3
+NRADLP=2            ! before 3?R1 default=2	2
+print *,'SUECRAD: NRADLP, NRADIP=',NRADLP,NRADIP
+RRe2De=0.64952_JPRB ! before 3?R1 default=0.5_JPRB
+
+!- RRTM as LW scheme
+LRRTM  = .FALSE.
+LECMWF = .FALSE.
+IF (iflag_rrtm.EQ.1) THEN
+        LRRTM  = .TRUE.
+        LECMWF = .TRUE.
+!       LRRTM  = .FALSE.  ! Utiliser pour faire tourner le "vieux" rayonnement
+!       LECMWF = .FALSE. 
+ENDIF
+
+!LRRTM  = .FALSE.
+
+!- SRTM as SW scheme
+!!!!! A REVOIR (MPL) verifier signification de LSRTM
+LSRTM = .FALSE.     ! before 3?R1 default was .FALSE.    true
+
+! -- McICA treatment of cloud-radiation interactions 
+! - 1 is maximum-random, 2 is generalized cloud overlap (before 31R1 default=0 no McICA)
+NMcICA = 2          !  2 for generalized overlap
+
+!- Inhomogeneity factors in LW and SW (0=F, 1=0.7 in both, 2=Barker's, 3=Cairns)
+NINHOM = 0          ! before 3?R1 default=1
+NLAYINH= 0
+RLWINHF = 1.0_JPRB  ! before 3?R1 default=0.7
+RSWINHF = 1.0_JPRB  ! before 3?R1 default=0.7  
+!- Diffusivity correction a la Savijarvi
+LDIFFC = .FALSE.    ! before 31R1 default=.FALSE. 
+
+!- history of volcanic aerosols
+LHVOLCA=.FALSE.
+!- monthly climatol. of tropospheric aerosols from Tegen et al. (1997)
+LNEWAER=.TRUE.
+!!! cpl LNOTROAER=.FALSE.
+LNOTROAER=.TRUE.
+NPERTAER=0
+
+!- New Rayleigh formulation
+LRAYL=.TRUE.
+
+!- Number concentration of aerosols if specified
+LCCNL=.TRUE.        ! before 3?R1 default=.FALSE.     true
+LCCNO=.TRUE.        ! before 3?R1 default=.FALSE.     true
+RCCNLND=900._JPRB   ! before 3?R1 default=900. now irrelevant
+RCCNSEA=50._JPRB    ! before 3?R1 default=50.  now irrelevant
+
+!- interaction radiation / prognostic O3 off by default
+LEPO3RA=.FALSE.
+print *,'SUECRAD-0'
+IF (.NOT.YO3%LGP) THEN
+  LEPO3RA=.FALSE.
+ENDIF
+RPERTOZ=0._JPRB
+NPERTOZ=0
+
+!NAER: CONFIGURATION INDEX FOR AEROSOLS
+!!!!! A REVOIR (MPL) a mettre dans un fichier .def
+NAER   =1
+NMODE  =0
+NOZOCL =1
+NRADFR =-3
+IF (NSMAX >= 511) NRADFR =-1
+NRADPFR=0
+NRADPLA=15
+
+! -- UV diagnostic of surface fluxes over the 280-400 nm interval 
+!    with up-to 24 values (5 nm wide spectral intervals)
+LUVPROC=.FALSE.
+LUVTDEP=.TRUE.
+LUVDBG =.FALSE.
+NRADUV =-3
+NUVTIM = 0
+NUV    = 24
+RMUZUV = 1.E-01_JPRB
+DO JUV=1,NUV
+  RUVLAM(JUV)=280._JPRB+(JUV-1)*5._JPRB
+ENDDO
+
+!- radiation interpolation (George M's grid on by default)
+LLDEBUG=.TRUE.
+LEDBUG=.FALSE.
+NRADINT=3
+NRADRES=0
+
+NRINT  =4
+
+LRADLB=.TRUE.
+CRTABLEDIR='./'
+CRTABLEFIL='not set'
+LRADONDEM=.TRUE.
+!GM Temporary as per trans/external/setup_trans.F90
+LLINEAR_GRID=NSMAX > (NDLON+3)/3
+IF( LLDEBUG )THEN
+  WRITE(NULOUT,'("SUECRAD: NSMAX=",I6)')NSMAX
+  WRITE(NULOUT,'("SUECRAD: NDLON=",I6)')NDLON
+  WRITE(NULOUT,'("SUECRAD: LLINEAR_GRID=",L5)')LLINEAR_GRID
+ENDIF
+
+NUAER  = 24
+NTRAER = 15
+! 1: max-random, 2: max, 3: random (5,6,7,8 pour meso-NH)
+! le CASE qui suit car les conventions sont differentes dans ARP et LMDZ (MPL 20100415)
+SELECT CASE (overlap)
+  CASE (:1)
+   NOVLP = 2    
+  CASE (2)
+   NOVLP = 3    
+  CASE (3:)
+   NOVLP = 1    
+  END SELECT
+print *,'SUECRAD: NOVLP=',NOVLP
+NLW    = 16
+NTSW   = 14
+!NSW    = 6    !!!!! Maintenant dans config.def (MPL 20140213)
+NSWNL  = 6
+NSWTL  = 2
+NCSRADF= 1
+IF(NSMAX >= 106) THEN
+  NRPROMA = 80
+ELSEIF(NSMAX == 63) THEN
+  NRPROMA=48
+ELSE
+  NRPROMA=64
+ENDIF
+
+!*         2.3      SET SECURITY PARAMETERS
+!                   -----------------------
+
+REPSC  = 1.E-04_JPRB
+REPSCO = 1.E-12_JPRB
+REPSCQ = 1.E-12_JPRB
+REPSCT = 1.E-12_JPRB
+REPSCW = 1.E-12_JPRB
+REPLOG = 1.E-12_JPRB
+
+
+!*          2.4     BACKGROUND GAS CONCENTRATIONS (IPCC/SACC, 1990)
+!                   -----------------------------------------------
+
+LECO2VAR=.FALSE.
+LHGHG   =.FALSE.
+NHINCSOL= 0
+NSCEN   = 1
+RSOLINC = RI0
+
+! Valeurs d origine MPL 18052010
+!RCCO2   = 353.E-06_JPRB
+!RCCH4   = 1.72E-06_JPRB
+!RCN2O   = 310.E-09_JPRB
+!RCCFC11 = 280.E-12_JPRB
+!RCCFC12 = 484.E-12_JPRB
+
+! Valeurs LMDZ (physiq.def) MPL 18052010
+RCCO2   = 348.E-06_JPRB
+RCCH4   = 1.65E-06_JPRB
+RCN2O   = 306.E-09_JPRB
+RCCFC11 = 280.E-12_JPRB
+RCCFC12 = 484.E-12_JPRB
+print *,'SUECRAD-1'
+
+!     ------------------------------------------------------------------
+
+!*         3.       READ VALUES OF RADIATION CONFIGURATION
+!                   --------------------------------------
+
+!CALL POSNAM(NULNAM,'NAERAD')
+!READ (NULNAM,NAERAD)
+print *,'SUECRAD-2'
+
+!CALL POSNAM(NULNAM,'NAEAER')
+!READ (NULNAM,NAEAER)
+
+!IF (NTYPAER(9) /= 0) THEN
+!  RGEMUV=(RLATVOL+90._JPRB)*RPI/180._JPRB
+!  RGELAV=RLONVOL*RPI/180._JPRB
+!  RCLONV=COS(RGELAV)
+!  RSLONV=SIN(RGELAV)
+!  DO J=1,NGPTOT-1
+!    IF (RGELAV > GELAM(J) .AND. RGELAV <= GELAM(J+1) .AND. &
+!      & RGEMUV < RMU(JL) .AND. RGEMUV >= RMU(JL+1) ) THEN
+!      RDGMUV=ABS( RMU(J+1) - RMU(J))
+!      RDGLAV=ABS( GELAM(J+1)-GELAM(J) )
+!      RDSLONV=ABS( SIN(GELAM(JL+1))-SIN(GELAM(JL)) )
+!      RDCLONV=ABS( COS(GELAM(JL+1))-COS(GELAM(JL)) )
+!    END IF
+!  END DO
+!END IF  
+
+!- reset some parameters if SW6 is used (revert to pre-CY3?R1 operational configuration)
+IF (.NOT.LSRTM) THEN
+  NMcICA = 0
+  LCCNL  = .FALSE. 
+  LCCNO  = .FALSE.
+  LDIFFC = .FALSE.
+  NICEOPT= 1
+  NLIQOPT= 0
+  NRADIP = 4
+  NRADLP = 3
+  RRe2De = 0.5_JPRB
+  NINHOM = 1
+  RLWINHF= 0.7_JPRB
+  RSWINHF= 0.7_JPRB
+ENDIF
+print *,'SUECRAD-3'
+
+!- for McICA computations, make sure these parameters are as follows ...
+IF (NMCICA /= 0) THEN
+  NINHOM = 0
+  RLWINHF= 1.0_JPRB
+  RSWINHF= 1.0_JPRB
+!-- read the XCW values for Raisanen-Cole-Barker cloud generator
+  CALL SU_McICA
+ENDIF
+print *,'SUECRAD-4'
+
+
+
+IF( LLDEBUG )THEN
+  WRITE(NULOUT,'("SUECRAD: NRADINT=",I2)')NRADINT
+  WRITE(NULOUT,'("SUECRAD: NRADRES=",I4)')NRADRES
+ENDIF
+
+!     DETERMINE WHETHER NRPROMA IS NEGATIVE AND SET LOPTRPROMA
+
+LOPTRPROMA=NRPROMA > 0
+NRPROMA=ABS(NRPROMA)
+
+IF( NRADINT > 0 .AND. NRADRES == NSMAX )THEN
+  WRITE(NULOUT,'("SUECRAD: NRADINT > 0 .AND. NRADRES = NSMAX, NRADINT RESET TO 0")')
+  NRADINT=0
+ENDIF
+
+IF( NRADINT > 0 .AND. LRAYFM .AND. NAER /= 0 .AND. .NOT.LHVOLCA )THEN
+!   This combination is not supported as aerosol data would be
+!   required to be interpolated (see radintg)
+  WRITE(NULOUT,'("SUECRAD: NRADINT>0, LRAYFM=T NAER /= 0 .AND. LHVOLCA=F,",&
+   & " NRADRES RESET TO NSMAX (NO INTERPOLATION)")')  
+  NRADRES=NSMAX
+ENDIF
+!CALL GSTATS(1818,1)      MPL 2.12.08
+
+100 CONTINUE
+
+IF( LERADI )THEN   ! START OF LERADI BLOCK
+
+  IF( NRADINT == -1 )THEN
+
+  !     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION INTERPOLATION
+
+    LODBGRADI=.FALSE.
+    CALL SUECRADI
+
+  !     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION COURSE GRID
+  !     LOAD BALANCING
+
+    LODBGRADL=.FALSE.
+!   CALL SUECRADL    ! MPL 1.12.08
+    CALL ABOR1('JUSTE APRES CALL SUECRADL COMMENTE')
+
+  ELSEIF( NRADINT == 0 )THEN
+
+    IF( NRADRES /= NSMAX )THEN
+      WRITE(NULOUT,'("SUECRAD: NRADINT=0 REQUESTED, NRADRES RESET TO NSMAX")')
+      NRADRES=NSMAX
+    ENDIF
+    RADGRID%NGPTOT=NGPTOT
+
+    NARIB1=0
+    NAROB1=0
+
+  ELSEIF( NRADINT >=1 .AND. NRADINT <= 3 )THEN
+
+    NARIB1=0
+    NAROB1=0
+
+! set the default radiation grid resolution for the current model resolution
+! if not already specified
+    IF( NRADRES == 0 )THEN
+      IF( LLINEAR_GRID )THEN                ! RATIO OF GRID-POINTS (MODEL/RAD)
+        IF( NSMAX == 63 )THEN               
+          NRADRES=21                        ! 3.62
+          LLINEAR_GRID=.FALSE.
+        ENDIF
+        IF( NSMAX ==   95 ) NRADRES=   95   ! 1.00
+        IF( NSMAX ==  159 ) NRADRES=   63   ! 5.84
+        IF( NSMAX ==  255 ) NRADRES=   95   ! 6.69
+        IF( NSMAX ==  319 ) NRADRES=  159   ! 3.87
+        IF( NSMAX ==  399 ) NRADRES=  159   ! 5.99
+        IF( NSMAX ==  511 ) NRADRES=  255   ! 3.92
+        IF( NSMAX ==  639 ) NRADRES=  319   ! 3.92
+        IF( NSMAX ==  799 ) NRADRES=  399   ! 3.94
+        IF( NSMAX == 1023 ) NRADRES=  511   ! 3.94
+        IF( NSMAX == 1279 ) NRADRES=  639       ! 
+        IF( NSMAX == 2047 ) NRADRES= 1023       ! 
+      ELSE ! NOT LINEAR GRID                
+        IF( NSMAX ==   21 ) NRADRES=   21   ! 1.00
+        IF( NSMAX ==   42 ) NRADRES=   21   ! 3.62
+        IF( NSMAX ==   63 ) NRADRES=   42   ! 2.17
+        IF( NSMAX ==  106 ) NRADRES=   63   ! 2.69
+        IF( NSMAX ==  170 ) NRADRES=   63   ! 6.69
+        IF( NSMAX ==  213 ) NRADRES=  106   ! 3.87
+        IF( NSMAX ==  266 ) NRADRES=  106   ! 5.99
+        IF( NSMAX ==  341 ) NRADRES=  170   ! 3.92
+        IF( NSMAX ==  426 ) NRADRES=  213   ! 3.92
+        IF( NSMAX ==  533 ) NRADRES=  266   ! 3.94
+        IF( NSMAX ==  682 ) NRADRES=  341   ! 3.94
+      ENDIF
+    ENDIF
+print *,'SUECRAD-5'
+
+! test if radiation grid resolution has been set
+    IF( NRADRES == 0 )THEN
+      WRITE(NULOUT,'("SUECRAD: NRADRES NOT SET OR DEFAULT FOUND,NSMAX=",I4)')NSMAX
+      CALL ABOR1('SUECRAD: NRADRES NOT SET OR DEFAULT FOUND')
+    ENDIF
+
+! test if no interpolation is required
+    IF( NRADINT > 0 .AND. NRADRES == NSMAX )THEN
+      WRITE(NULOUT,'("SUECRAD: NRADINT > 0 .AND. NRADRES = NSMAX, NRADINT RESET TO 0")')
+      NRADINT=0
+      GOTO 100
+    ENDIF
+
+!    CALL GSTATS(1818,0)       MPL 2.12.08
+    IF( CRTABLEFIL == 'not set' )THEN
+      IF( LLINEAR_GRID )THEN
+        IF( NRADRES < 1000 )THEN
+          WRITE(CRTABLEFIL,'("rtablel_2",I3.3)')NRADRES
+        ELSE
+          WRITE(CRTABLEFIL,'("rtablel_2",I4.4)')NRADRES
+        ENDIF
+      ELSE
+        IF( NRADRES < 1000 )THEN
+          WRITE(CRTABLEFIL,'("rtable_2" ,I3.3)')NRADRES
+        ELSE
+          WRITE(CRTABLEFIL,'("rtable_2" ,I4.4)')NRADRES
+        ENDIF
+      ENDIF
+    ENDIF
+!    CALL GSTATS(1818,1)       MPL 2.12.08
+
+    RADGRID%NSMAX=NRADRES
+
+    IF( MYPROC == JPIOMASTER )THEN
+      IDIR=LEN_TRIM(CRTABLEDIR)
+      IFIL=LEN_TRIM(CRTABLEFIL)
+      CLFN=CRTABLEDIR(1:IDIR)//CRTABLEFIL(1:IFIL)
+! Ce qui concerne NULRAD commente par MPL le 15.04.09
+!     OPEN(NULRAD,FILE=CLFN,ACTION="READ",ERR=999)
+!     GOTO 1000
+!     999 CONTINUE
+!     WRITE(NULOUT,'("SUECRAD: UNABLE TO OPEN FILE ",A)')CLFN
+!     CALL ABOR1('SUECRAD: UNABLE TO OPEN RADIATION GRID RTABLE FILE')
+!     1000 CONTINUE
+      NRGRI(:)=0
+! Ce qui concerne NAMRGRI commente par MPL le 15.04.09
+!     CALL POSNAM(NULRAD,'NAMRGRI')
+!     READ (NULRAD,NAMRGRI)
+      IDGL=1
+      DO WHILE( NRGRI(IDGL)>0 )
+        IF( LLDEBUG )THEN
+          WRITE(NULOUT,'("SUECRAD: NRGRI(",I4,")=",I4)')IDGL,NRGRI(IDGL)
+        ENDIF
+        IDGL=IDGL+1
+      ENDDO
+      IDGL=IDGL-1
+      RADGRID%NDGLG=IDGL
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("SUECRAD: RADGRID%NDGLG=",I4)')RADGRID%NDGLG
+      ENDIF
+!     CLOSE(NULRAD)
+    ENDIF
+!    CALL GSTATS(667,0)     MPL 2.12.08
+    IF( NPROC > 1 )THEN
+      stop'Pas pret pour proc > 1'
+!     CALL MPL_BROADCAST (RADGRID%NDGLG,MTAGRAD,JPIOMASTER,CDSTRING='SUECRAD:')
+    ENDIF
+    ALLOCATE(RADGRID%NRGRI(RADGRID%NDGLG))
+    IF( MYPROC == JPIOMASTER )THEN
+      RADGRID%NRGRI(1:RADGRID%NDGLG)=NRGRI(1:RADGRID%NDGLG)
+    ENDIF
+    IF( NPROC > 1 )THEN
+      stop'Pas pret pour proc > 1'
+!     CALL MPL_BROADCAST (RADGRID%NRGRI(1:RADGRID%NDGLG),MTAGRAD,JPIOMASTER,CDSTRING='SUECRAD:')
+    ENDIF
+!    CALL GSTATS(667,1)      MPL 2.12.08
+
+!    CALL GSTATS(1818,0)     MPL 2.12.08
+    IF    ( NRADINT == 1 )THEN
+      WRITE(NULOUT,'("SUECRAD: INTERPOLATION METHOD - SPECTRAL TRANSFORM")')
+      RADGRID%NDGSUR=0
+      NRIWIDEN=0
+      NRIWIDES=0
+      NRIWIDEW=0
+      NRIWIDEE=0
+      NROWIDEN=0
+      NROWIDES=0
+      NROWIDEW=0
+      NROWIDEE=0
+    ELSEIF( NRADINT == 2 )THEN
+      WRITE(NULOUT,'("SUECRAD: INTERPOLATION METHOD - 4 POINT")')
+      RADGRID%NDGSUR=2
+    ELSEIF( NRADINT == 3 )THEN
+      WRITE(NULOUT,'("SUECRAD: INTERPOLATION METHOD - 12 POINT")')
+      RADGRID%NDGSUR=2
+    ENDIF
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSUR       =",I8)')RADGRID%NDGSUR
+
+    RADGRID%NDGSAG=1-RADGRID%NDGSUR
+    RADGRID%NDGENG=RADGRID%NDGLG+RADGRID%NDGSUR
+    RADGRID%NDLON=RADGRID%NRGRI(RADGRID%NDGLG/2)
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSAG       =",I8)')RADGRID%NDGSAG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGENG       =",I8)')RADGRID%NDGENG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGLG        =",I8)')RADGRID%NDGLG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDLON        =",I8)')RADGRID%NDLON
+    CALL FLUSH(NULOUT)
+
+    ALLOCATE(RADGRID%NLOENG(RADGRID%NDGSAG:RADGRID%NDGENG))
+    RADGRID%NLOENG(1:RADGRID%NDGLG)=RADGRID%NRGRI(1:RADGRID%NDGLG)
+    IF(RADGRID%NDGSUR >= 1)THEN
+      DO JGLSUR=1,RADGRID%NDGSUR
+        RADGRID%NLOENG(1-JGLSUR)=RADGRID%NLOENG(JGLSUR)
+      ENDDO
+      DO JGLSUR=1,RADGRID%NDGSUR
+        RADGRID%NLOENG(RADGRID%NDGLG+JGLSUR)=RADGRID%NLOENG(RADGRID%NDGLG+1-JGLSUR)
+      ENDDO
+    ENDIF
+!     CALL GSTATS(1818,1)     MPL 2.12.08
+
+! Setup the transform package for the radiation grid
+    CALL SETUP_TRANS (KSMAX=RADGRID%NSMAX, &
+     & KDGL=RADGRID%NDGLG, &
+     & KLOEN=RADGRID%NLOENG(1:RADGRID%NDGLG), &
+     & LDLINEAR_GRID=LLINEAR_GRID, &
+     & LDSPLIT=LSPLIT, &
+     & KAPSETS=NAPSETS, &
+     & KRESOL=RADGRID%NRESOL_ID)
+
+    ALLOCATE(RADGRID%NSTA(RADGRID%NDGSAG:RADGRID%NDGENG+N_REGIONS_NS-1,N_REGIONS_EW))
+    ALLOCATE(RADGRID%NONL(RADGRID%NDGSAG:RADGRID%NDGENG+N_REGIONS_NS-1,N_REGIONS_EW))
+    ALLOCATE(RADGRID%NPTRFRSTLAT(N_REGIONS_NS))
+    ALLOCATE(RADGRID%NFRSTLAT(N_REGIONS_NS))
+    ALLOCATE(RADGRID%NLSTLAT(N_REGIONS_NS))
+    ALLOCATE(RADGRID%RMU(RADGRID%NDGSAG:RADGRID%NDGENG))
+    ALLOCATE(RADGRID%RSQM2(RADGRID%NDGSAG:RADGRID%NDGENG))
+    ALLOCATE(RADGRID%RLATIG(RADGRID%NDGSAG:RADGRID%NDGENG))
+
+! Interrogate the transform package for the radiation grid
+!    CALL GSTATS(1818,0)    MPL 2.12.08
+    CALL TRANS_INQ (KRESOL     =RADGRID%NRESOL_ID, &
+     & KSPEC2     =RADGRID%NSPEC2, &
+     & KNUMP      =RADGRID%NUMP, &
+     & KGPTOT     =RADGRID%NGPTOT, &
+     & KGPTOTG    =RADGRID%NGPTOTG, &
+     & KGPTOTMX   =RADGRID%NGPTOTMX, &
+     & KPTRFRSTLAT=RADGRID%NPTRFRSTLAT, &
+     & KFRSTLAT   =RADGRID%NFRSTLAT, &
+     & KLSTLAT    =RADGRID%NLSTLAT, &
+     & KFRSTLOFF  =RADGRID%NFRSTLOFF, &
+     & KSTA       =RADGRID%NSTA(1:RADGRID%NDGLG+N_REGIONS_NS-1,:), &
+     & KONL       =RADGRID%NONL(1:RADGRID%NDGLG+N_REGIONS_NS-1,:), &
+     & KPTRFLOFF  =RADGRID%NPTRFLOFF, &
+     & PMU        =RADGRID%RMU(1:) )  
+
+    IF( NRADINT == 2 .OR. NRADINT == 3 )THEN
+      DO JGL=1,RADGRID%NDGLG
+        RADGRID%RSQM2(JGL) = SQRT(1.0_JPRB - RADGRID%RMU(JGL)*RADGRID%RMU(JGL))
+        RADGRID%RLATIG(JGL) = ASIN(RADGRID%RMU(JGL))
+!       WRITE(NULOUT,'("SUECRAD: JGL=",I6," RADGRID%RLATIG=",F10.3)')&
+!        & JGL,RADGRID%RLATIG(JGL)
+      ENDDO
+      IF(RADGRID%NDGSUR >= 1)THEN
+        DO JGLSUR=1,RADGRID%NDGSUR
+          RADGRID%RMU(1-JGLSUR)=RADGRID%RMU(JGLSUR)
+          RADGRID%RSQM2(1-JGLSUR)=RADGRID%RSQM2(JGLSUR)
+          RADGRID%RLATIG(1-JGLSUR)=RPI-RADGRID%RLATIG(JGLSUR)
+        ENDDO
+        DO JGLSUR=1,RADGRID%NDGSUR
+          RADGRID%RMU(RADGRID%NDGLG+JGLSUR)=RADGRID%RMU(RADGRID%NDGLG+1-JGLSUR)
+          RADGRID%RSQM2(RADGRID%NDGLG+JGLSUR)=RADGRID%RSQM2(RADGRID%NDGLG+1-JGLSUR)
+          RADGRID%RLATIG(RADGRID%NDGLG+JGLSUR)=-RPI-RADGRID%RLATIG(RADGRID%NDGLG+1-JGLSUR)
+        ENDDO
+      ENDIF
+    ENDIF
+
+    RADGRID%NDGSAL=1
+    RADGRID%NDGENL=RADGRID%NLSTLAT(MY_REGION_NS)-RADGRID%NFRSTLOFF
+    RADGRID%NDSUR1=3-MOD(RADGRID%NDLON,2)
+    IDLSUR=MAX(RADGRID%NDLON,2*RADGRID%NSMAX+1)
+    RADGRID%NDLSUR=IDLSUR+RADGRID%NDSUR1
+    RADGRID%MYFRSTACTLAT=RADGRID%NFRSTLAT(MY_REGION_NS)
+    RADGRID%MYLSTACTLAT=RADGRID%NLSTLAT(MY_REGION_NS)
+
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NRESOL_ID    =",I8)')RADGRID%NRESOL_ID
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NSMAX        =",I8)')RADGRID%NSMAX
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NSPEC2       =",I8)')RADGRID%NSPEC2
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NGPTOT       =",I8)')RADGRID%NGPTOT
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NGPTOTG      =",I8)')RADGRID%NGPTOTG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSAL       =",I8)')RADGRID%NDGSAL
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGENL       =",I8)')RADGRID%NDGENL
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDSUR1       =",I8)')RADGRID%NDSUR1
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDLSUR       =",I8)')RADGRID%NDLSUR
+    WRITE(NULOUT,'("SUECRAD: RADGRID%MYFRSTACTLAT =",I8)')RADGRID%MYFRSTACTLAT
+    WRITE(NULOUT,'("SUECRAD: RADGRID%MYLSTACTLAT  =",I8)')RADGRID%MYLSTACTLAT
+    CALL FLUSH(NULOUT)
+
+    ALLOCATE(RADGRID%NASM0(0:RADGRID%NSPEC2))
+    ALLOCATE(RADGRID%MYMS(RADGRID%NUMP))
+    CALL TRANS_INQ (KRESOL     =RADGRID%NRESOL_ID, &
+     & KASM0      =RADGRID%NASM0, &
+     & KMYMS      =RADGRID%MYMS )  
+
+    ALLOCATE(RADGRID%GELAM(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GELAT(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GESLO(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GECLO(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GEMU (RADGRID%NGPTOT))
+
+    IOFF=0
+    ILAT=RADGRID%NPTRFLOFF
+    DO JGLAT=RADGRID%NFRSTLAT(MY_REGION_NS), &
+       & RADGRID%NLSTLAT(MY_REGION_NS)  
+      ZGEMU=RADGRID%RMU(JGLAT)
+      ILAT=ILAT+1
+      ISTLON  = RADGRID%NSTA(ILAT,MY_REGION_EW)
+      IENDLON = ISTLON-1 + RADGRID%NONL(ILAT,MY_REGION_EW)
+
+      DO JLON=ISTLON,IENDLON
+        ZLON=  REAL(JLON-1,JPRB)*2.0_JPRB*RPI &
+         & /REAL(RADGRID%NLOENG(JGLAT),JPRB)  
+        IOFF=IOFF+1
+        RADGRID%GELAM(IOFF) = ZLON
+        RADGRID%GELAT(IOFF) = ASIN(ZGEMU)
+        RADGRID%GESLO(IOFF) = SIN(ZLON)
+        RADGRID%GECLO(IOFF) = COS(ZLON)
+        RADGRID%GEMU (IOFF) = ZGEMU
+      ENDDO
+    ENDDO
+
+    IF( NRADINT == 2 .OR. NRADINT == 3 )THEN
+
+!   For grid point interpolations we need to calculate the halo size
+!   required by each processor
+
+      ALLOCATE(ZLATX(RADGRID%NGPTOTMX))
+      ALLOCATE(ZLONX(RADGRID%NGPTOTMX))
+      DO J=1,RADGRID%NGPTOT
+        ZLATX(J)=RADGRID%GELAT(J)/RPI*2.0_JPRB*90.0
+        ZLONX(J)=(RADGRID%GELAM(J)-RPI)/RPI*180.0
+      ENDDO
+      ZMINRADLAT=MINVAL(ZLATX(1:RADGRID%NGPTOT))
+      ZMAXRADLAT=MAXVAL(ZLATX(1:RADGRID%NGPTOT))
+      ZMINRADLON=MINVAL(ZLONX(1:RADGRID%NGPTOT))
+      ZMAXRADLON=MAXVAL(ZLONX(1:RADGRID%NGPTOT))
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("RADGRID,BEGIN")')
+        IF( MYPROC /= 1 )THEN
+          stop'Pas pret pour proc > 1'
+!         CALL MPL_SEND(RADGRID%NGPTOT,KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD.R')
+!         CALL MPL_SEND(ZLATX(1:RADGRID%NGPTOT),KDEST=NPRCIDS(1),KTAG=2,CDSTRING='SUECRAD.R')
+!         CALL MPL_SEND(ZLONX(1:RADGRID%NGPTOT),KDEST=NPRCIDS(1),KTAG=3,CDSTRING='SUECRAD.R')
+        ENDIF
+        IF( MYPROC == 1 )THEN
+          DO JROC=1,NPROC
+            IF( JROC == MYPROC )THEN
+              DO J=1,RADGRID%NGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6)')ZLATX(J),ZLONX(J),MYPROC
+              ENDDO
+            ELSE
+              stop'Pas pret pour proc > 1'
+!             CALL MPL_RECV(IGPTOT,KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD.M')
+!             CALL MPL_RECV(ZLATX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=2,CDSTRING='SUECRAD.M')
+!             CALL MPL_RECV(ZLONX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=3,CDSTRING='SUECRAD.M')
+              DO J=1,IGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6)')ZLATX(J),ZLONX(J),JROC
+              ENDDO
+            ENDIF
+          ENDDO
+        ENDIF
+        WRITE(NULOUT,'("RADGRID,END")')
+      ENDIF
+      DEALLOCATE(ZLATX)
+      DEALLOCATE(ZLONX)
+  
+      ALLOCATE(ZLATX(NGPTOTMX))
+      ALLOCATE(ZLONX(NGPTOTMX))
+      DO J=1,NGPTOT
+        ZLATX(J)=GELAT(J)/RPI*2.0_JPRB*90.0
+        ZLONX(J)=(GELAM(J)-RPI)/RPI*180.0
+      ENDDO
+      ZMINMDLLAT=MINVAL(ZLATX(1:NGPTOT))
+      ZMAXMDLLAT=MAXVAL(ZLATX(1:NGPTOT))
+      ZMINMDLLON=MINVAL(ZLONX(1:NGPTOT))
+      ZMAXMDLLON=MAXVAL(ZLONX(1:NGPTOT))
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("MODELGRID,BEGIN")')
+        IF( MYPROC /= 1 )THEN
+          stop'Pas pret pour proc > 1'
+!         CALL MPL_SEND(NGPTOT,KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD')
+!         CALL MPL_SEND(ZLATX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=2,CDSTRING='SUECRAD')
+!         CALL MPL_SEND(ZLONX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=3,CDSTRING='SUECRAD')
+!         CALL MPL_SEND(NGLOBALINDEX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=4,CDSTRING='SUECRAD')
+        ENDIF
+        IF( MYPROC == 1 )THEN
+          DO JROC=1,NPROC
+            IF( JROC == MYPROC )THEN
+              DO J=1,NGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6,2X,I12)')ZLATX(J),ZLONX(J),MYPROC,NGLOBALINDEX(J)
+              ENDDO
+            ELSE
+              stop'Pas pret pour proc > 1'
+!             CALL MPL_RECV(IGPTOT,KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD')
+!             CALL MPL_RECV(ZLATX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=2,CDSTRING='SUECRAD')
+!             CALL MPL_RECV(ZLONX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=3,CDSTRING='SUECRAD')
+              ALLOCATE(IGLOBALINDEX(1:IGPTOT))
+!             CALL MPL_RECV(IGLOBALINDEX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=4,CDSTRING='SUECRAD')
+              DO J=1,IGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6,2X,I12)')ZLATX(J),ZLONX(J),JROC,IGLOBALINDEX(J)
+              ENDDO
+              DEALLOCATE(IGLOBALINDEX)
+            ENDIF
+          ENDDO
+        ENDIF
+        WRITE(NULOUT,'("MODELGRID,END")')
+      ENDIF
+      DEALLOCATE(ZLATX)
+      DEALLOCATE(ZLONX)
+  
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("ZMINRADLAT=",F10.2)')ZMINRADLAT
+        WRITE(NULOUT,'("ZMINMDLLAT=",F10.2)')ZMINMDLLAT
+        WRITE(NULOUT,'("ZMAXRADLAT=",F10.2)')ZMAXRADLAT
+        WRITE(NULOUT,'("ZMAXMDLLAT=",F10.2)')ZMAXMDLLAT
+        WRITE(NULOUT,'("ZMINRADLON=",F10.2)')ZMINRADLON
+        WRITE(NULOUT,'("ZMINMDLLON=",F10.2)')ZMINMDLLON
+        WRITE(NULOUT,'("ZMAXRADLON=",F10.2)')ZMAXRADLON
+        WRITE(NULOUT,'("ZMAXMDLLON=",F10.2)')ZMAXMDLLON
+      ENDIF
+
+      ZLAT=NDGLG/180.
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      IF( ZMINRADLAT < ZMINMDLLAT )THEN
+        NRIWIDES=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NRIWIDES=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      IF( ZMAXRADLAT < ZMAXMDLLAT )THEN
+        NRIWIDEN=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NRIWIDEN=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      IF( ZMINRADLON < ZMINMDLLON )THEN
+        NRIWIDEW=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NRIWIDEW=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      IF( ZMAXRADLON < ZMAXMDLLON )THEN
+        NRIWIDEE=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NRIWIDEE=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+
+      ZLAT=RADGRID%NDGLG/180.
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      IF( ZMINMDLLAT < ZMINRADLAT )THEN
+        NROWIDES=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NROWIDES=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      IF( ZMAXMDLLAT < ZMAXRADLAT )THEN
+        NROWIDEN=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NROWIDEN=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      IF( ZMINMDLLON < ZMINRADLON )THEN
+        NROWIDEW=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NROWIDEW=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      IF( ZMAXMDLLON < ZMAXRADLON )THEN
+        NROWIDEE=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NROWIDEE=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+
+    ENDIF
+
+    RADGRID%NDGSAH=MAX(RADGRID%NDGSAG,&
+     & RADGRID%NDGSAL+RADGRID%NFRSTLOFF-NROWIDEN)-RADGRID%NFRSTLOFF  
+    RADGRID%NDGENH=MIN(RADGRID%NDGENG,&
+     & RADGRID%NDGENL+RADGRID%NFRSTLOFF+NROWIDES)-RADGRID%NFRSTLOFF  
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSAH       =",I8)')RADGRID%NDGSAH
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGENH       =",I8)')RADGRID%NDGENH
+
+    IF( NRADINT == 2 .OR. NRADINT == 3 )THEN
+
+      ILBRLATI = MAX(RADGRID%NDGSAG,&
+       & RADGRID%NDGSAL+RADGRID%NFRSTLOFF-NROWIDEN)-RADGRID%NFRSTLOFF  
+      IUBRLATI = MIN(RADGRID%NDGENG,&
+       & RADGRID%NDGENL+RADGRID%NFRSTLOFF+NROWIDES)-RADGRID%NFRSTLOFF  
+      ALLOCATE(RADGRID%RLATI(ILBRLATI:IUBRLATI))
+      ALLOCATE(RADGRID%RIPI0(ILBRLATI:IUBRLATI))
+      ALLOCATE(RADGRID%RIPI1(ILBRLATI:IUBRLATI))
+      ALLOCATE(RADGRID%RIPI2(ILBRLATI:IUBRLATI))
+  
+      DO JGL= ILBRLATI,IUBRLATI
+        IGLGLO=JGL+RADGRID%NFRSTLOFF
+        IF(IGLGLO >= 0.AND.IGLGLO <= RADGRID%NDGLG) THEN
+          ZD1=RADGRID%RLATIG(IGLGLO-1)-RADGRID%RLATIG(IGLGLO)
+          ZD2=RADGRID%RLATIG(IGLGLO-1)-RADGRID%RLATIG(IGLGLO+1)
+          ZD3=RADGRID%RLATIG(IGLGLO-1)-RADGRID%RLATIG(IGLGLO+2)
+          ZD4=RADGRID%RLATIG(IGLGLO  )-RADGRID%RLATIG(IGLGLO+1)
+          ZD5=RADGRID%RLATIG(IGLGLO  )-RADGRID%RLATIG(IGLGLO+2)
+          ZD6=RADGRID%RLATIG(IGLGLO+1)-RADGRID%RLATIG(IGLGLO+2)
+          RADGRID%RIPI0(JGL)=-1.0_JPRB/(ZD1*ZD4*ZD5)
+          RADGRID%RIPI1(JGL)= 1.0_JPRB/(ZD2*ZD4*ZD6)
+          RADGRID%RIPI2(JGL)=-1.0_JPRB/(ZD3*ZD5*ZD6)
+        ENDIF
+        RADGRID%RLATI(JGL)=RADGRID%RLATIG(IGLGLO)
+      ENDDO
+
+      IF( NPROC > 1 )THEN
+        IRIRPTSUR=NGPTOTG
+        IRISPTSUR=2*NGPTOTG
+      ELSE
+        IRIRPTSUR=0
+        IRISPTSUR=0
+      ENDIF
+
+      ALLOCATE(NRISTA(NDGSAL-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRIONL(NDGSAL-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRIOFF(NDGSAL-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRIEXT(1-NDLON:NDLON+NDLON,1-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRICORE(NGPTOT))
+      ALLOCATE(IRISENDPOS(IRISPTSUR))
+      ALLOCATE(IRIRECVPOS(IRIRPTSUR))
+      ALLOCATE(IRISENDPTR(NPROC+1))
+      ALLOCATE(IRIRECVPTR(NPROC+1))
+      ALLOCATE(IRICOMM(NPROC))
+      ALLOCATE(IRIMAP(4,NDGLG))
+! MPL 1.12.08      
+!     CALL RDCSET('RI',NRIWIDEN,NRIWIDES,NRIWIDEW,NRIWIDEE,&
+!      & IRIRPTSUR,IRISPTSUR,&
+!      & NDGLG,NDLON,NDGSAG,NDGENG,IDUM,IDUM,NDGSAL,NDGENL,&
+!      & NDSUR1,NDLSUR,NDGSUR,NGPTOT,IDUM,&
+!      & NPTRFLOFF,NFRSTLOFF,MYFRSTACTLAT,MYLSTACTLAT,&
+!      & NSTA,NONL,NLOENG,NPTRFRSTLAT,NFRSTLAT,NLSTLAT,&
+!      & RMU,RSQM2,&
+!      & NRISTA,NRIONL,NRIOFF,NRIEXT,NRICORE,NARIB1,&
+!      & NRIPROCS,NRIMPBUFSZ,NRIRPT,NRISPT,&
+!      & IRISENDPOS,IRIRECVPOS,IRISENDPTR,IRIRECVPTR,IRICOMM,IRIMAP,IRIMAPLEN)  
+      CALL ABOR1('JUSTE APRES CALL RDCSET COMMENTE')
+      WRITE(NULOUT,'("SUECRAD: NARIB1=",I12)')NARIB1
+      ALLOCATE(NRISENDPOS(NRISPT))
+      ALLOCATE(NRIRECVPOS(NRIRPT))
+      ALLOCATE(NRISENDPTR(NRIPROCS+1))
+      ALLOCATE(NRIRECVPTR(NRIPROCS+1))
+      ALLOCATE(NRICOMM(NRIPROCS))
+      NRISENDPOS(1:NRISPT)=IRISENDPOS(1:NRISPT)
+      NRIRECVPOS(1:NRIRPT)=IRIRECVPOS(1:NRIRPT)
+      NRISENDPTR(1:NRIPROCS+1)=IRISENDPTR(1:NRIPROCS+1)
+      NRIRECVPTR(1:NRIPROCS+1)=IRIRECVPTR(1:NRIPROCS+1)
+      NRICOMM(1:NRIPROCS)=IRICOMM(1:NRIPROCS)
+      DEALLOCATE(IRISENDPOS)
+      DEALLOCATE(IRIRECVPOS)
+      DEALLOCATE(IRISENDPTR)
+      DEALLOCATE(IRIRECVPTR)
+      DEALLOCATE(IRICOMM)
+      DEALLOCATE(IRIMAP)
+
+      IF( NPROC > 1 )THEN
+        IRORPTSUR=RADGRID%NGPTOTG
+        IROSPTSUR=2*RADGRID%NGPTOTG
+      ELSE
+        IRORPTSUR=0
+        IROSPTSUR=0
+      ENDIF
+
+      ALLOCATE(NROSTA(RADGRID%NDGSAL-NROWIDEN:RADGRID%NDGENL+NROWIDES))
+      ALLOCATE(NROONL(RADGRID%NDGSAL-NROWIDEN:RADGRID%NDGENL+NROWIDES))
+      ALLOCATE(NROOFF(RADGRID%NDGSAL-NROWIDEN:RADGRID%NDGENL+NROWIDES))
+      ALLOCATE(NROEXT(1-RADGRID%NDLON:RADGRID%NDLON+RADGRID%NDLON,&
+       & 1-NROWIDEN:RADGRID%NDGENL+NROWIDES))  
+      ALLOCATE(NROCORE(RADGRID%NGPTOT))
+      ALLOCATE(IROSENDPOS(IROSPTSUR))
+      ALLOCATE(IRORECVPOS(IRORPTSUR))
+      ALLOCATE(IROSENDPTR(NPROC+1))
+      ALLOCATE(IRORECVPTR(NPROC+1))
+      ALLOCATE(IROCOMM(NPROC))
+      ALLOCATE(IROMAP(4,RADGRID%NDGLG))
+! MPL 1.12.08      
+!     CALL RDCSET('RO',NROWIDEN,NROWIDES,NROWIDEW,NROWIDEE,&
+!      & IRORPTSUR,IROSPTSUR,&
+!      & RADGRID%NDGLG,RADGRID%NDLON,RADGRID%NDGSAG,&
+!      & RADGRID%NDGENG,IDUM,IDUM,RADGRID%NDGSAL,RADGRID%NDGENL,&
+!      & RADGRID%NDSUR1,RADGRID%NDLSUR,RADGRID%NDGSUR,RADGRID%NGPTOT,IDUM,&
+!      & RADGRID%NPTRFLOFF,RADGRID%NFRSTLOFF,RADGRID%MYFRSTACTLAT,RADGRID%MYLSTACTLAT,&
+!      & RADGRID%NSTA,RADGRID%NONL,RADGRID%NLOENG,RADGRID%NPTRFRSTLAT,&
+!      & RADGRID%NFRSTLAT,RADGRID%NLSTLAT,&
+!      & RADGRID%RMU,RADGRID%RSQM2,&
+!      & NROSTA,NROONL,NROOFF,NROEXT,NROCORE,NAROB1,&
+!      & NROPROCS,NROMPBUFSZ,NRORPT,NROSPT,&
+!      & IROSENDPOS,IRORECVPOS,IROSENDPTR,IRORECVPTR,IROCOMM,IROMAP,IROMAPLEN)  
+      CALL ABOR1('JUSTE APRES CALL RDCSET COMMENTE')
+      WRITE(NULOUT,'("SUECRAD: NAROB1=",I12)')NAROB1
+      ALLOCATE(NROSENDPOS(NROSPT))
+      ALLOCATE(NRORECVPOS(NRORPT))
+      ALLOCATE(NROSENDPTR(NROPROCS+1))
+      ALLOCATE(NRORECVPTR(NROPROCS+1))
+      ALLOCATE(NROCOMM(NROPROCS))
+      NROSENDPOS(1:NROSPT)=IROSENDPOS(1:NROSPT)
+      NRORECVPOS(1:NRORPT)=IRORECVPOS(1:NRORPT)
+      NROSENDPTR(1:NROPROCS+1)=IROSENDPTR(1:NROPROCS+1)
+      NRORECVPTR(1:NROPROCS+1)=IRORECVPTR(1:NROPROCS+1)
+      NROCOMM(1:NROPROCS)=IROCOMM(1:NROPROCS)
+      DEALLOCATE(IROSENDPOS)
+      DEALLOCATE(IRORECVPOS)
+      DEALLOCATE(IROSENDPTR)
+      DEALLOCATE(IRORECVPTR)
+      DEALLOCATE(IROCOMM)
+      DEALLOCATE(IROMAP)
+
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("")')
+        IRIWIDEMAXN=0
+        IRIWIDEMAXS=0
+        IRIWIDEMAXW=0
+        IRIWIDEMAXE=0
+        IROWIDEMAXN=0
+        IROWIDEMAXS=0
+        IROWIDEMAXW=0
+        IROWIDEMAXE=0
+        IARIB1MAX=0
+        IAROB1MAX=0
+        IWIDE(1)=NRIWIDEN
+        IWIDE(2)=NRIWIDES
+        IWIDE(3)=NRIWIDEW
+        IWIDE(4)=NRIWIDEE
+        IWIDE(5)=NROWIDEN
+        IWIDE(6)=NROWIDES
+        IWIDE(7)=NROWIDEW
+        IWIDE(8)=NROWIDEE
+        IWIDE(9)=NARIB1
+        IWIDE(10)=NAROB1
+        IF( MYPROC /= 1 )THEN
+          stop'Pas pret pour proc > 1'
+!         CALL MPL_SEND(IWIDE(1:10),KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD.W')
+        ENDIF
+        IF( MYPROC == 1 )THEN
+          DO JROC=1,NPROC
+            IF( JROC /= MYPROC )THEN
+              stop'Pas pret pour proc > 1'
+!             CALL MPL_RECV(IWIDE(1:10),KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD.W')
+            ENDIF
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDEN=",I3,2X,"NROWIDEN=",I3 )')&
+             & JROC,IWIDE(1),IWIDE(5)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDES=",I3,2X,"NROWIDES=",I3 )')&
+             & JROC,IWIDE(2),IWIDE(6)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDEW=",I3,2X,"NROWIDEW=",I3 )')&
+             & JROC,IWIDE(3),IWIDE(7)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDEE=",I3,2X,"NROWIDEE=",I3 )')&
+             & JROC,IWIDE(4),IWIDE(8)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NARIB1=",I10,2X,"NAROB1=",I10 )')&
+             & JROC,IWIDE(9),IWIDE(10)
+            WRITE(NULOUT,'("")')
+            IF( IWIDE(1) > IRIWIDEMAXN ) IRIWIDEMAXN=IWIDE(1)
+            IF( IWIDE(2) > IRIWIDEMAXS ) IRIWIDEMAXS=IWIDE(2)
+            IF( IWIDE(3) > IRIWIDEMAXW ) IRIWIDEMAXW=IWIDE(3)
+            IF( IWIDE(4) > IRIWIDEMAXE ) IRIWIDEMAXE=IWIDE(4)
+            IF( IWIDE(5) > IROWIDEMAXN ) IROWIDEMAXN=IWIDE(5)
+            IF( IWIDE(6) > IROWIDEMAXS ) IROWIDEMAXS=IWIDE(6)
+            IF( IWIDE(7) > IROWIDEMAXW ) IROWIDEMAXW=IWIDE(7)
+            IF( IWIDE(8) > IROWIDEMAXE ) IROWIDEMAXE=IWIDE(8)
+            IF( IWIDE(9)  > IARIB1MAX  ) IARIB1MAX  =IWIDE(9)
+            IF( IWIDE(10) > IAROB1MAX  ) IAROB1MAX  =IWIDE(10)
+          ENDDO
+          WRITE(NULOUT,'("")')
+          WRITE(NULOUT,'("SUECRAD: NRIWIDEN(MAX)  =",I8)')IRIWIDEMAXN
+          WRITE(NULOUT,'("SUECRAD: NRIWIDES(MAX)  =",I8)')IRIWIDEMAXS
+          WRITE(NULOUT,'("SUECRAD: NRIWIDEW(MAX)  =",I8)')IRIWIDEMAXW
+          WRITE(NULOUT,'("SUECRAD: NRIWIDEE(MAX)  =",I8)')IRIWIDEMAXE
+          WRITE(NULOUT,'("SUECRAD: NROWIDEN(MAX)  =",I8)')IROWIDEMAXN
+          WRITE(NULOUT,'("SUECRAD: NROWIDES(MAX)  =",I8)')IROWIDEMAXS
+          WRITE(NULOUT,'("SUECRAD: NROWIDEW(MAX)  =",I8)')IROWIDEMAXW
+          WRITE(NULOUT,'("SUECRAD: NROWIDEE(MAX)  =",I8)')IROWIDEMAXE
+          WRITE(NULOUT,'("SUECRAD: NARIB1(MAX)    =",I10)')IARIB1MAX
+          WRITE(NULOUT,'("SUECRAD: NAROB1(MAX)    =",I10)')IAROB1MAX
+          WRITE(NULOUT,'("")')
+        ENDIF
+        CALL FLUSH(NULOUT)
+      ENDIF
+
+    ENDIF
+!    CALL GSTATS(1818,1)      MPL 2.12.08
+
+  ELSE
+
+    WRITE(NULOUT,'("SUECRAD: INVALID VALUE FOR NRADINT=",I6)')NRADINT
+    CALL ABOR1('SUECRAD: NRADINT INVALID')
+
+  ENDIF
+
+ENDIF              ! END OF LERADI BLOCK
+
+!      ----------------------------------------------------------------
+
+!*       4.    INITIALIZE RADIATION COEFFICIENTS.
+!              ----------------------------------
+
+RCDAY   = RDAY * RG / RCPD
+DIFF   = 1.66_JPRB
+R10E   = 0.4342945_JPRB
+
+! CALL GSTATS(1818,0)    MPL 2.12.08
+CALL SURDI
+
+IF (NINHOM == 0) THEN
+  RLWINHF=1._JPRB
+  RSWINHF=1._JPRB
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       5.    INITIALIZE RADIATION ABSORPTION COEFFICIENTS
+!              --------------------------------------------
+
+!*       5.1.  Initialization routine for RRTM
+!              -------------------------------
+
+CALL SURRTAB
+CALL SURRTPK
+CALL SURRTRF
+CALL SURRTFTR
+
+IF (LRRTM) THEN
+  IF (KLEV > JPLAY) THEN
+    WRITE(UNIT=KULOUT,&
+     & FMT='('' RRTM MAXIMUM NUMBER OF LAYERS IS REACHED'',&
+     & '' CALL ABORT'')')  
+    CALL ABOR1(' ABOR1 CALLED SUECRAD')
+  ENDIF
+    
+! Read the absorption coefficient data and reduce from 256 to 140 g-points
+
+  CALL RRTM_INIT_140GP
+
+  INBLW=16
+
+ELSE
+  INBLW=6
+
+ENDIF
+
+CALL SULWN
+CALL SUSWN   (NTSW, NSW)
+CALL SUCLOPN (NTSW, NSW, KLEV)
+
+!-- routines specific to SRTM
+IF (LSRTM) THEN
+  NTSW=14
+  ISW =14
+  CALL SRTM_INIT
+  CALL SUSRTAER
+  CALL SUSRTCOP
+  WRITE(UNIT=KULOUT,FMT='(''SRTM Configuration'',L8,3I4)')LSRTM,NTSW,ISW,JPGPT
+
+ELSE
+  IF (.NOT.LONEWSW .OR. ((NSW /= 2).AND.(NSW /= 4).AND.(NSW /= 6)) ) THEN
+    WRITE(UNIT=KULOUT,FMT='(''Wrong SW Configuration'',L8,I3)')LONEWSW,NSW
+  ENDIF
+
+  CALL SUSWN   (NTSW,NSW)
+  CALL SUAERSN (NTSW,NSW)
+ENDIF
+WRITE(UNIT=KULOUT,FMT='('' NLW,NTSW,NSW SET EQUAL TO:'',3I3)') INBLW,NTSW,NSW
+
+
+!-- routine specific to the UV processor
+IF (LUVPROC) THEN
+  NUVTIM = NUVTIM * 86400
+  CALL SU_UVRAD ( NUV )
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       6.    INITIALIZE AEROSOL OPTICAL PARAMETERS AND DISTRIBUTION
+!              ------------------------------------------------------
+
+!- LW optical properties
+CALL SUAERL
+!- SW optical properties moved above
+!CALL SUAERSN (NTSW,NSW)
+
+!- horizontal distribution      
+CALL SUAERH
+
+!- vertical distribution
+CALL SUAERV ( KLEV  , PETAH,&
+ & CVDAES , CVDAEL , CVDAEU , CVDAED,&
+ & RCTRBGA, RCVOBGA, RCSTBGA, RCAEOPS, RCAEOPL, RCAEOPU,&
+ & RCAEOPD, RCTRPT , RCAEADK, RCAEADM, RCAEROS &
+ & )  
+
+!-- Overlap function (only used if NOVLP=4)
+! Appel supprime par MPL (30042010) car NOVLP=4 pas utilise
+! sinon il faudrait calculer le geopotentiel STZ
+!CALL SUOVLP ( KLEV )
+
+!-- parameters for prognostic aerosols
+CALL SU_AERW
+
+!      ----------------------------------------------------------------
+
+!*       7.    INITIALIZE SATELLITE GEOMETRICAL/RADIOMETRIC PARAMETERS
+!              -------------------------------------------------------
+
+IF (LEPHYS .AND. NMODE > 1) THEN
+  CALL SUSAT
+ENDIF
+!CALL GSTATS(1818,1)   MPL 2.12.08
+
+!      ----------------------------------------------------------------
+
+!*       8.    INITIALIZE CLIMATOLOGICAL OZONE DISTRIBUTION
+!              --------------------------------------------
+!                  (not done here!!!  called from APLPAR as it depends
+!                     on model pressure levels!)
+
+!      ----------------------------------------------------------------
+
+!*       9.    SET UP MODEL CONFIGURATION FOR TIME-SPACE INTERPOLATION
+!              -------------------------------------------------------
+
+ZTSTEP=MAX(TSTEP,1.0_JPRB)
+ZSTPHR=3600._JPRB/ZTSTEP
+IRADFR=NRADFR
+IF(NRADFR < 0) THEN
+  NRADFR=-NRADFR*ZSTPHR+0.5_JPRB
+ENDIF
+NRADPFR=NRADPFR*NRADFR
+IF (MOD(NRADPLA,2) == 0.AND. NRADPLA /= 0) THEN
+  NRADPLA=NRADPLA+1
+ENDIF
+
+IF(NRADUV < 0) THEN
+  NRADUV=-NRADUV*ZSTPHR+0.5_JPRB
+ENDIF
+
+IST1HR=ZSTPHR+0.05_JPRB
+ISTNHR=  NLNGR1H *ZSTPHR+0.05_JPRB
+IF (MOD(3600._JPRB,ZTSTEP) > 0.1_JPRB) THEN
+  801 CONTINUE
+  IST1HR=IST1HR+1
+  IF (MOD(ISTNHR,IST1HR) /= 0) GO TO 801
+ENDIF
+IF (NRADFR == 1) THEN
+  NRADSFR=NRADFR
+ELSE
+  NRADSFR=IST1HR
+ENDIF
+NRADNFR=NRADFR
+
+IF(LRAYFM) THEN
+  NRPROMA=NDLON+6+(1-MOD(NDLON,2))
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       10.    ALLOCATE WORK ARRAYS
+!               --------------------
+
+IU = NULOUT
+LLP = NPRINTLEV >= 1.OR. LALLOPR
+
+IF (LEPHYS) THEN
+  ALLOCATE(EMTD(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTD     ',SIZE(EMTD     ),SHAPE(EMTD     )
+  ALLOCATE(TRSW(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'TRSW     ',SIZE(TRSW     ),SHAPE(TRSW     )
+  ALLOCATE(EMTC(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTC     ',SIZE(EMTC     ),SHAPE(EMTC     )
+  ALLOCATE(TRSC(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'TRSC     ',SIZE(TRSC     ),SHAPE(TRSC     )
+  ALLOCATE(SRSWD(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWD    ',SIZE(SRSWD    ),SHAPE(SRSWD    )
+  ALLOCATE(SRLWD(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRLWD    ',SIZE(SRLWD    ),SHAPE(SRLWD    )
+  ALLOCATE(SRSWDCS(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWDCS  ',SIZE(SRSWDCS  ),SHAPE(SRSWDCS  )
+  ALLOCATE(SRLWDCS(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRLWDCS  ',SIZE(SRLWDCS  ),SHAPE(SRLWDCS  )
+  ALLOCATE(SRSWDV(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWDV   ',SIZE(SRSWDV   ),SHAPE(SRSWDV   )
+  ALLOCATE(SRSWDUV(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWDUV  ',SIZE(SRSWDUV  ),SHAPE(SRSWDUV  )
+  ALLOCATE(EDRO(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EDRO     ',SIZE(EDRO     ),SHAPE(EDRO     )
+  ALLOCATE(SRSWPAR(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWPAR  ',SIZE(SRSWPAR  ),SHAPE(SRSWPAR  )
+  ALLOCATE(SRSWUVB(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWUVB  ',SIZE(SRSWUVB  ),SHAPE(SRSWUVB  )
+
+ELSEIF(LMPHYS .AND. (LRAYFM.OR.LRAYFM15)) THEN
+  ALLOCATE(EMTD(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTD     ',SIZE(EMTD     ),SHAPE(EMTD     )
+  ALLOCATE(TRSW(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'TRSW     ',SIZE(TRSW     ),SHAPE(TRSW     )
+  ALLOCATE(EMTU(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTC     ',SIZE(EMTU     ),SHAPE(EMTU     )
+  ALLOCATE(RMOON(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'RMOON    ',SIZE(RMOON    ),SHAPE(RMOON    )
+ENDIF
+ALLOCATE(SRSWPARC(NPROMA,NGPBLKS))
+IF(LLP)WRITE(IU,9) 'SRSWPARC ',SIZE(SRSWPARC ),SHAPE(SRSWPARC )
+ALLOCATE(SRSWTINC(NPROMA,NGPBLKS))
+IF(LLP)WRITE(IU,9) 'SRSWTINC ',SIZE(SRSWTINC ),SHAPE(SRSWTINC )
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+!      ----------------------------------------------------------------
+
+!*       10.    PRINT FINAL VALUES.
+!               -------------------
+
+IF (LOUTPUT) THEN
+  WRITE(UNIT=KULOUT,FMT='('' COMMON YOERAD '')')
+  WRITE(UNIT=KULOUT,FMT='('' LERADI  = '',L5 &
+   & ,'' LERAD1H = '',L5,'' LECO2VAR= '',L5,'' LHGHG = '',L5 &
+   & ,'' NLNGR1H = '',I2,'' NRADSFR = '',I2)')&
+   & LERADI,LERAD1H,LECO2VAR,LHGHG,NLNGR1H,NRADSFR  
+  WRITE(UNIT=KULOUT,FMT='('' LEPO3RA  = '',L5,'' YO3%LGP = '',L5 )') LEPO3RA,YO3%LGP
+  WRITE(UNIT=KULOUT,FMT='('' NRADFR  = '',I2 &
+   & ,'' NRADPFR = '',I3 &
+   & ,'' NRADPLA = '',I2 &
+   & ,'' NRINT   = '',I1 &
+   & ,'' NRPROMA = '',I5 &
+   & )')&
+   & NRADFR,NRADPFR,NRADPLA,NRINT, NRPROMA
+  WRITE(UNIT=KULOUT,FMT='('' LERADHS= '',L5 &
+   & ,'' LRRTM = '',L5 &
+   & ,'' LSRTM = '',L5 &
+   & ,'' NMODE = '',I1 &
+   & ,'' NOZOCL= '',I1 &
+   & ,'' NAER  = '',I1 &
+   & ,'' NHINCSOL='',I2 &
+   & )')&
+   & LERADHS,LRRTM,LSRTM,NMODE,NOZOCL,NAER,NHINCSOL
+  IF (.NOT.LHGHG .AND. .NOT.LECO2VAR) WRITE(UNIT=KULOUT,FMT='('' RCCO2= '',E10.3 &
+    &,'' RCCH4= '',E10.3,'' RCN2O= '',E10.3,'' RCCFC11= '',E10.3,'' RCFC12= '',E10.3 &
+    &)')&
+    & RCCO2,RCCH4,RCN2O,RCCFC11,RCCFC12
+  WRITE(UNIT=KULOUT,FMT='('' NINHOM = '',I1 &
+   & ,'' NLAYINH='',I1   &
+   & ,'' RLWINHF='',F4.2 &
+   & ,'' RSWINHF='',F4.2 &
+   & )')&
+   & NINHOM,NLAYINH,RLWINHF,RSWINHF  
+  IF (NPERTAER /= 0 .OR. NPERTOZ /= 0) THEN
+    WRITE(UNIT=KULOUT,FMT='('' NPERTAER= '',I2 &
+   & ,'' LNOTROAER='',L5 &
+   & ,'' NPERTOZ = '',I1 &
+   & ,'' RPERTOZ = '',F5.0 &
+   & )')&
+   & NPERTAER,LNOTROAER,NPERTOZ,RPERTOZ
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' NRADINT = '',I2)')NRADINT
+  WRITE(UNIT=KULOUT,FMT='('' NRADRES = '',I4)')NRADRES
+  WRITE(UNIT=KULOUT,FMT='('' LRADONDEM = '',L5)')LRADONDEM
+  IF( NRADINT > 0 )THEN
+    IDIR=LEN_TRIM(CRTABLEDIR)
+    IFIL=LEN_TRIM(CRTABLEFIL)
+    WRITE(UNIT=KULOUT,FMT='('' CRTABLEDIR = '',A,'' CRTABLEFIL = '',A)')&
+     & CRTABLEDIR(1:IDIR),CRTABLEFIL(1:IFIL)  
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' LCCNL = '',L5 &
+   & ,'' LCCNO = '',L5 &
+   & ,'' RCCNLND= '',F5.0 &
+   & ,'' RCCNSEA= '',F5.0 &
+   & ,'' LE4ALB = '',L5 &
+   &)')&
+   & LCCNL,LCCNO,RCCNLND,RCCNSEA,LE4ALB 
+  IF (LHVOLCA) THEN
+    WRITE(UNIT=KULOUT,FMT='('' HISTORY OF VOLCANIC AEROSOLS= '',L5)')LHVOLCA
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' LONEWSW= '',L5 &
+   & ,'' NRADIP = '',I1 &
+   & ,'' NRADLP = '',I1 &
+   & ,'' NICEOPT= '',I1 &
+   & ,'' NLIQOPT= '',I1 &
+   & ,'' LDIFFC = '',L5 &
+   & )')&
+   & LONEWSW,NRADIP,NRADLP,NICEOPT,NLIQOPT,LDIFFC
+  WRITE(UNIT=KULOUT,FMT='('' WARNING! CLOUD OVERLAP ASSUMPT. IS''&
+   & ,'' NOVLP   = '',I2 &
+   & )')&
+   & NOVLP  
+  IF (LUVPROC) THEN
+    IDAYUV=NUVTIM/86400
+    WRITE(UNIT=KULOUT,FMT='('' LUVPROC = '',L5 &
+   & ,'' LUVTDEP= '',L5 &
+   & ,'' NRADUV = '',I2 &
+   & ,'' NUV = '',I2 &
+   & ,'' NDAYUV = '',I5 &
+   & ,'' RMUZUV = '',E9.3 &
+   & )')&
+   & LUVPROC,LUVTDEP,NRADUV,NUV,IDAYUV,RMUZUV
+    WRITE(UNIT=KULOUT,FMT='('' RUVLAM = '',24F6.1)') (RUVLAM(JUV),JUV=1,NUV) 
+    WRITE(UNIT=KULOUT,FMT='('' JUVLAM = '',24(3X,I1,2X))') (JUVLAM(JUV),JUV=1,NUV) 
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' NMCICA= '',I2 &
+   & )')&
+   & NMCICA
+ENDIF
+
+!     ------------------------------------------------------------------
+
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRAD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad.intfb.h	(revision 3330)
@@ -0,0 +1,10 @@
+INTERFACE
+SUBROUTINE SUECRAD (KULOUT, KLEV, PETAH )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+INTEGER(KIND=JPIM), PARAMETER :: JP_MIN_HALO=5
+INTEGER(KIND=JPIM), PARAMETER :: JPIOMASTER=1
+END SUBROUTINE SUECRAD
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad15.F90	(revision 3330)
@@ -0,0 +1,331 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUECRAD15 (KULOUT, KLEV, PETAH )
+
+!**** *SUECRAD15*   - INITIALIZE COMMONS YOMRxx15 CONTROLLING RADIATION
+!****                 FROZEN VERSION (CYCLE 15) OF SUECRAD
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMRAD15, THE COMMON THAT CONTROLS THE
+!           RADIATION OF THE MODEL, AND YOMRDU15 THAT INCLUDES
+!           ADJUSTABLE PARAMETERS FOR RADIATION COMPUTATIONS
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRAD15* FROM *SUPHEC*
+!              ---------        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMONS YOMRAD15, YOMRDU15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        SUAER, SUAERH, SUAERV, SULW, SUSW, SUCLD, SUOCST, SUSAT
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        R. El Khatib 01-02-02 proper initialization of NFRRC moved in SUCFU
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        F. Bouyssel 27-09-04 initialisation of NSW
+!        A. Alias    29-09-05 Sulfate aerosols (Hu Rong Ming)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCT0   , ONLY : NPRINTLEV
+USE YOMDIM   , ONLY : NDLON    ,NSMAX   ,NGPBLKS  ,NFLEVG   ,NPROMA
+USE YOMDYN   , ONLY : TSTEP
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCST   , ONLY : RDAY     ,RG       ,RCPD
+USE YOMPHY   , ONLY : LRAYFM15
+USE YOEPHY   , ONLY : LEPHYS   ,LERADI
+USE YOMRAD15 , ONLY : NAER15   ,NFLUX15  ,NMODE15  ,NRAD15   ,&
+ & NRADFR15 ,NRADPFR15,NRADPLA15,NRINT15  ,NRADNFR15,&
+ & NRADSFR15,NOVLP15  ,NRPROMA15,NRADF2C15,NRADC2F15,&
+ & LERAD6H15,LERADHS15,LRADAER15,LNEWAER15
+USE YOERAD   , ONLY : NAER     ,NTSW
+!USE YOERAD   , ONLY : NAER     ,NSW      ,NTSW
+! NSW mis dans .def MPL 20140211
+USE YOMRDU15 , ONLY : NUAER15  ,NTRAER15 ,RCDAY15  ,R10E15   ,&
+ & REELOG15 ,REPSC15  ,REPSCO15 ,REPSCQ15 ,REPSCT15 ,&
+ & REPSCW15 ,DIFF15  
+USE YOMAERD15, ONLY : CVDAES15 ,CVDAEL15 ,CVDAEU15 ,CVDAED15 ,&
+ & CVDAEF15 ,&
+ & RCAEOPS15,RCAEOPL15,RCAEOPU15,RCAEOPD15,RCTRBGA15,&
+ & RCAEOPF15,&
+ & RCVOBGA15,RCSTBGA15,RCTRPT15 ,RCAEADM15,RCAEROS15,&
+ & RCAEADK15  
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL
+USE YOMRADF  , ONLY : EMTD     ,EMTU      ,TRSW    ,RMOON
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1)
+LOGICAL :: LLP
+
+#include "namrad15.h"
+!      ----------------------------------------------------------------
+
+LOGICAL :: LLMESS
+
+INTEGER(KIND=JPIM) :: IRADFR, IST1HR, IST6HR
+
+
+REAL(KIND=JPRB) :: ZSTPHR, ZTSTEP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+#include "suaer15.intfb.h"
+#include "suaerv15.intfb.h"
+#include "suecradi15.intfb.h"
+#include "suecradl.intfb.h"
+#include "sulw15.intfb.h"
+#include "surdi15.intfb.h"
+#include "susat.intfb.h"
+#include "susw15.intfb.h"
+
+!      ----------------------------------------------------------------
+
+!*         1.       SET DEFAULT VALUES.
+!                   -------------------
+
+!*         1.1      PRESET INDICES IN *YOMRAD15*
+!                   --------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD15',0,ZHOOK_HANDLE)
+LLMESS=.FALSE.
+LERAD6H15=.TRUE.
+LERADHS15=.TRUE.
+LRADAER15=.TRUE.
+LNEWAER15=.FALSE.
+NAER15   =1
+NAER=0
+NFLUX15  =6
+NMODE15  =0
+NRAD15   =1
+NRADFR15 =-3
+NRADPFR15=36
+NRADPLA15=15
+NRINT15  =4
+NRADF2C15=1
+NRADC2F15=1
+NUAER15  = 24
+NTRAER15 = 15
+NOVLP15 = 1
+NSW=2
+NTSW=2
+IF(NSMAX >= 106) THEN
+  NRPROMA15 = 80
+ELSEIF(NSMAX == 63) THEN
+  NRPROMA15=48
+ELSE
+  NRPROMA15=20
+ENDIF
+
+!*         1.3      SET SECURITY PARAMETERS
+!                   -----------------------
+
+REPSC15  = 1.E-12_JPRB
+REPSCO15 = 1.E-12_JPRB
+REPSCQ15 = 1.E-12_JPRB
+REPSCT15 = 1.E-12_JPRB
+REPSCW15 = 1.E-12_JPRB
+REELOG15 = 1.E-12_JPRB
+
+!     ------------------------------------------------------------------
+
+!*         2.       READ VALUES OF RADIATION CONFIGURATION
+!                   --------------------------------------
+
+! Ce qui concerne NAMRAD15 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMRAD15')
+!READ (NULNAM,NAMRAD15)
+
+!     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION INTERPOLATION
+
+LODBGRADI=.FALSE.
+CALL SUECRADI15
+
+IF( LLMESS )THEN
+
+!     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION COURSE GRID
+!     LOAD BALANCING
+
+  LODBGRADL=.FALSE.
+! CALL SUECRADL   ! MPL 1.12.08
+  CALL ABOR1('JUSTE APRES CALL SUECRADL COMMENTE')
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       3.    INITIALIZE RADIATION COEFFICIENTS.
+!              ----------------------------------
+
+RCDAY15  = RDAY * RG / RCPD
+DIFF15   = 1.66_JPRB
+R10E15   = 0.4342945_JPRB
+
+CALL SURDI15
+
+!      ----------------------------------------------------------------
+
+!*       4.    INITIALIZE RADIATION ABSORPTION COEFFICIENTS
+!              --------------------------------------------
+
+CALL SULW15
+CALL SUSW15
+
+!      ----------------------------------------------------------------
+
+!*       5.    INITIALIZE AEROSOL OPTICAL PARAMETERS AND DISTRIBUTION
+!              ------------------------------------------------------
+
+!     INITIALIZATION DONE IN BLOCK DATA SUAERHBD
+
+!- optical properties
+CALL SUAER15
+
+!     CALL SUAERH
+
+CALL SUAERV15 ( KLEV  , PETAH,&
+ & CVDAES15, CVDAEL15, CVDAEU15, CVDAED15, CVDAEF15,&
+ & RCTRBGA15, RCVOBGA15, RCSTBGA15, RCAEOPS15, RCAEOPL15, RCAEOPU15,&
+ & RCAEOPF15,&
+ & RCAEOPD15, RCTRPT15 , RCAEADK15, RCAEADM15, RCAEROS15        )  
+
+!      ----------------------------------------------------------------
+
+!*       6.    INITIALIZE SATELLITE GEOMETRICAL/RADIOMETRIC PARAMETERS
+!              -------------------------------------------------------
+
+IF (LEPHYS) THEN
+  IF (NMODE15 > 1) THEN
+    CALL SUSAT
+  ENDIF
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       7.    INITIALIZE CLIMATOLOGICAL OZONE DISTRIBUTION
+!              --------------------------------------------
+!                  (not done here!!!  called from APLPAR as it depends
+!                     on model pressure levels!)
+
+!      ----------------------------------------------------------------
+
+!*       8.    SET UP MODEL CONFIGURATION FOR TIME-SPACE INTERPOLATION
+!              -------------------------------------------------------
+
+ZTSTEP=MAX(TSTEP,1.0_JPRB)
+ZSTPHR=3600._JPRB/ZTSTEP
+IRADFR=NRADFR15
+IF(NRADFR15 < 0) THEN
+  NRADFR15=-NRADFR15*ZSTPHR+0.5_JPRB
+ENDIF
+NRADPFR15=NRADPFR15*NRADFR15
+IF (MOD(NRADPLA15,2) == 0.AND. NRADPLA15 /= 0) THEN
+  NRADPLA15=NRADPLA15+1
+ENDIF
+
+IST1HR=ZSTPHR+0.05_JPRB
+IST6HR=6._JPRB*ZSTPHR+0.05_JPRB
+IF (MOD(3600._JPRB,ZTSTEP) > 0.1_JPRB) THEN
+  IST1HR=IST1HR+1
+  DO WHILE (MOD(IST6HR,IST1HR) /= 0)
+    IST1HR=IST1HR+1
+  ENDDO
+ENDIF
+NRADSFR15=IST1HR
+NRADNFR15=NRADFR15
+
+IF(LRAYFM15) THEN
+  NRPROMA15=NDLON+6+(1-MOD(NDLON,2))
+ENDIF
+
+
+
+!*       9.    ALLOCATE WORK ARRAYS
+!               --------------------
+
+LLP = NPRINTLEV >= 1
+
+  ALLOCATE(EMTD(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'EMTD     ',SIZE(EMTD     ),SHAPE(EMTD     )
+  ALLOCATE(TRSW(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'TRSW     ',SIZE(TRSW     ),SHAPE(TRSW     )
+  ALLOCATE(EMTU(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'EMTU     ',SIZE(EMTU     ),SHAPE(EMTU     )
+  ALLOCATE(RMOON(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'RMOON    ',SIZE(RMOON    ),SHAPE(RMOON    )
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+!      ----------------------------------------------------------------
+
+!*       9.    PRINT FINAL VALUES.
+!              -------------------
+
+
+
+
+IF (LLP) THEN
+  WRITE(UNIT=KULOUT,FMT='('' COMMON YOMRAD15 '')')
+  WRITE(UNIT=KULOUT,FMT='('' LERADI  = '',L5 &
+   & ,'' LERAD6H15 = '',L5)')&
+   & LERADI,LERAD6H15  
+  WRITE(UNIT=KULOUT,FMT='('' NRADFR15  = '',I2 &
+   & ,'' NRADPFR15 = '',I3 &
+   & ,'' NRADPLA15 = '',I2 &
+   & ,'' NRINT15   = '',I1 &
+   & ,'' NRPROMA15 = '',I5 &
+   & ,'' NRADF2C15 = '',I1 &
+   & ,'' NRADC2F15 = '',I1 &
+   & )')&
+   & NRADFR15,NRADPFR15,NRADPLA15,NRINT15,&
+   & NRPROMA15,NRADF2C15,NRADC2F15  
+   
+  WRITE(UNIT=KULOUT,FMT='('' LERADHS15= '',L5,'' LRADAER15= '',L5 &
+   & ,'' LNEWAER15= '',L5 &
+   & ,'' NMODE15 = '',I1 &
+   & ,'' NAER15  = '',I1 &
+   & ,'' NFLUX15 = '',I2 &
+   & ,'' NRAD15  = '',I2 &
+   & )')&
+   & LERADHS15,LRADAER15,LNEWAER15,NMODE15,NAER15,NFLUX15,NRAD15  
+  WRITE(KULOUT,FMT='('' WARNING! CLOUD OVERLAP ASSUMPTION IS''&
+   & ,'' NOVLP15   = '',I2 &
+   & )')&
+   & NOVLP15  
+
+  WRITE(UNIT=KULOUT,FMT='('' MODULE YOERAD '')')
+  WRITE(UNIT=KULOUT,FMT='('' NSW = '',I2, '' NTSW = '',I2)') NSW,NTSW
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRAD15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecrad15.intfb.h	(revision 3330)
@@ -0,0 +1,8 @@
+INTERFACE
+SUBROUTINE SUECRAD15 (KULOUT, KLEV, PETAH )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+END SUBROUTINE SUECRAD15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi.F90	(revision 3330)
@@ -0,0 +1,627 @@
+SUBROUTINE SUECRADI
+
+!**** *SUECRADI*   - INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOLATION
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOLATION
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRADI* FROM *SUECRAD*
+!              --------        -------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        GEORGE MOZDZYNSKI 95-03-13
+
+!     MODIFICATIONS.
+!     --------------
+!        980317: JJMorcrette clean-up (NRAD, NFLUX)
+!        990907: JJMorcrette clean-up RRTM
+!        010129: JJMorcrette clean-up LERAD1H, NLNGR1H
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRINT  , ONLY : JPRADCW  ,JPRADCE
+USE YOMDIM   , ONLY : NDGSAG   ,NDGSAL   ,NDGENG   ,NDGENL   ,NDLON
+USE YOMCT0   , ONLY :   NPRGPEW  ,NPRINTLEV,LALLOPR
+USE YOMLUN   , ONLY : NULOUT
+USE YOMGEM   , ONLY : NLOENG
+USE YOERAD   , ONLY :      &
+ & NRINT      
+USE YOMMP    , ONLY :    MY_REGION_NS   ,MY_REGION_EW   ,NSTA     ,&
+ & NONL     ,NPTRFRSTLAT,NPTRLSTLAT,NFRSTLAT ,NLSTLAT  ,&
+ & LSPLITLAT  
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL,NRIRINT  ,NRFRSTOFF,&
+ & NRLASTOFF,NRIMAX   ,NRIMAXT  ,NRCNEEDW ,NRCNEEDE ,&
+ & NRCSNDW  ,NRCSNDE  ,NRCRCVW  ,NRCRCVE  ,NRCSNDT  ,&
+ & NRCRCVT  ,NRCRCVWO ,NRCRCVEO  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: ILWA (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILWB (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILWBI(2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILEA (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILEB (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILEBI(2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ISTA(NDGENL,2*NPRGPEW)
+INTEGER(KIND=JPIM) :: IONL(NDGENL,2*NPRGPEW)
+CHARACTER (LEN = 14) ::  CLDBG
+
+INTEGER(KIND=JPIM) :: IAO, IAOFF, IB, IB1, IB2, IB3, IB4, IB5,&
+ & IB6, ICNEED, ICTAKE, IGL, IJBXBOFF, &
+ & IJBXSETA, ILE, ILONS, ILW, IMAX, IMAXC, &
+ & IMAXT, IOTHBOFF, IOTHSETA, IPROCB, IRINT, &
+ & IU, IUNIT, JA, JB, JBE, JBW, JBX, JF, JGL, &
+ & JGLGLO, JL  
+
+LOGICAL :: LLMYSETAISWEST, LLP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI',0,ZHOOK_HANDLE)
+LLP = NPRINTLEV >= 1.OR. LALLOPR
+IU = NULOUT
+ALLOCATE(NRIRINT  (NDGSAG:NDGENG))
+IF(LLP)WRITE(IU,9) 'NRIRINT   ',SIZE(NRIRINT),SHAPE(NRIRINT)
+ALLOCATE(NRIMAX   (NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRIMAX    ',SIZE(NRIMAX),SHAPE(NRIMAX)
+ALLOCATE(NRFRSTOFF(NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRFRSTOFF ',SIZE(NRFRSTOFF),SHAPE(NRFRSTOFF)
+ALLOCATE(NRLASTOFF(NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRLASTOFF ',SIZE(NRLASTOFF),SHAPE(NRLASTOFF)
+ALLOCATE(NRCNEEDW (NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRCNEEDW  ',SIZE(NRCNEEDW),SHAPE(NRCNEEDW)
+ALLOCATE(NRCNEEDE (NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRCNEEDE  ',SIZE(NRCNEEDE),SHAPE(NRCNEEDE)
+ALLOCATE(NRCSNDW  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCSNDW   ',SIZE(NRCSNDW),SHAPE(NRCSNDW)
+ALLOCATE(NRCSNDE  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCSNDE   ',SIZE(NRCSNDE),SHAPE(NRCSNDE)
+ALLOCATE(NRCRCVW  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVW   ',SIZE(NRCRCVW),SHAPE(NRCRCVW)
+ALLOCATE(NRCRCVE  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVE   ',SIZE(NRCRCVE),SHAPE(NRCRCVE)
+ALLOCATE(NRCSNDT  (NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCSNDT   ',SIZE(NRCSNDT),SHAPE(NRCSNDT)
+ALLOCATE(NRCRCVT  (NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVT   ',SIZE(NRCRCVT),SHAPE(NRCRCVT)
+ALLOCATE(NRCRCVWO (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVWO  ',SIZE(NRCRCVWO),SHAPE(NRCRCVWO)
+ALLOCATE(NRCRCVEO (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVEO  ',SIZE(NRCRCVEO),SHAPE(NRCRCVEO)
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+! INITIALISE GENERAL DATA STRUCTURES REQUIRED FOR RADIATION INTERPOLATION
+
+DO JGL=NDGSAG,NDGENG
+  NRIRINT(JGL)=0
+ENDDO
+DO JB=1,2*NPRGPEW
+  DO JGL=NDGSAG,NDGENG
+    NRFRSTOFF(JGL,JB)=0
+    NRLASTOFF(JGL,JB)=0
+    NRIMAX   (JGL,JB)=0
+    NRCNEEDW (JGL,JB)=0
+    NRCNEEDE (JGL,JB)=0
+  ENDDO
+ENDDO
+NRIMAXT=0
+DO JA=-1,1
+  DO JB=1,NPRGPEW
+    DO JGL=NDGSAG,NDGENG
+      NRCSNDW(JGL,JB,JA)=0
+      NRCSNDE(JGL,JB,JA)=0
+      NRCRCVW(JGL,JB,JA)=0
+      NRCRCVE(JGL,JB,JA)=0
+      NRCRCVWO(JGL,JB,JA)=0
+      NRCRCVEO(JGL,JB,JA)=0
+    ENDDO
+  ENDDO
+ENDDO
+DO JA=-1,1
+  DO JB=1,NPRGPEW
+    NRCSNDT(JB,JA)=0
+    NRCRCVT(JB,JA)=0
+  ENDDO
+ENDDO
+
+DO JB=1,2*NPRGPEW
+  DO JGL=1,NDGENL
+    ISTA(JGL,JB)=0
+    IONL(JGL,JB)=0
+  ENDDO
+ENDDO
+DO JB=1,NPRGPEW
+  DO JGL=1,NDGENL
+    IGL=NPTRFRSTLAT(MY_REGION_NS)-1+JGL
+    ISTA(JGL,JB)=NSTA(IGL,JB)
+    IONL(JGL,JB)=NONL(IGL,JB)
+  ENDDO
+ENDDO
+IF( LSPLITLAT(NFRSTLAT(MY_REGION_NS)) )THEN
+  LLMYSETAISWEST=.FALSE.
+  DO JB=1,NPRGPEW
+    IF( NSTA(NPTRFRSTLAT(MY_REGION_NS),JB) == 1 )THEN
+      LLMYSETAISWEST=.TRUE.
+    ENDIF
+  ENDDO
+  IF( LLMYSETAISWEST )THEN
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+      ISTA(1,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(1,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ELSE
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+      ISTA(1,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(1,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ENDIF
+ENDIF
+IF( LSPLITLAT(NLSTLAT(MY_REGION_NS)) )THEN
+  LLMYSETAISWEST=.FALSE.
+  DO JB=1,NPRGPEW
+    IF( NSTA(NPTRLSTLAT(MY_REGION_NS),JB) == 1 )THEN
+      LLMYSETAISWEST=.TRUE.
+    ENDIF
+  ENDDO
+  IF( LLMYSETAISWEST )THEN
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+      ISTA(NDGENL,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(NDGENL,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ELSE
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+      ISTA(NDGENL,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(NDGENL,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ENDIF
+ENDIF
+
+IMAXC=NDLON/NRINT+6
+IMAXC=IMAXC+(1-MOD(IMAXC,2))
+
+IF( LODBGRADI )THEN
+  IUNIT=10
+  WRITE(CLDBG,'("debug_a",I3.3,"b",I3.3)')MY_REGION_NS,MY_REGION_EW
+  OPEN(UNIT=IUNIT,FILE=CLDBG)
+  WRITE(IUNIT,'("SUECRADI: MY_REGION_NS=",I4," MY_REGION_EW=",I4)')MY_REGION_NS,MY_REGION_EW
+  WRITE(IUNIT,'("SUECRADI: NDGSAL=",I4," NDGENL=",I4)') NDGSAL,NDGENL
+  WRITE(IUNIT,'("SUECRADI: ")')
+ENDIF
+
+! LOOP OVER OUR PARTITION LATITUDES, TO INITIALISE SIMPLE ITEMS
+
+IMAXT=0
+
+DO JGL=1,NDGENL
+
+  JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+  ILONS=NLOENG(JGLGLO)
+
+  IRINT=1
+  DO JF=1,NRINT
+    IF( MOD(ILONS,JF) == 0.AND.ILONS/JF <= IMAXC )THEN
+      IRINT=JF
+      EXIT
+    ENDIF
+  ENDDO
+  NRIRINT  (JGL)=IRINT
+  
+  IF( LODBGRADI )THEN
+    WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+     & " NLOENG=",I4," NRIRINT=",I1," LSPLITLAT=",L2)')&
+     & JGLGLO,JGL,NLOENG(JGLGLO),NRIRINT(JGL),LSPLITLAT(JGLGLO)  
+  ENDIF
+
+  IF( LSPLITLAT(JGLGLO) )THEN
+    IPROCB=2*NPRGPEW
+  ELSE
+    IPROCB=NPRGPEW
+  ENDIF
+
+  DO JB=1,IPROCB
+    IF( IONL(JGL,JB) == 0 ) CYCLE
+    NRFRSTOFF(JGL,JB)=MOD(IRINT-MOD(ISTA(JGL,JB)-1,IRINT),IRINT)
+    NRLASTOFF(JGL,JB)=&
+     & MOD(IRINT-MOD(ISTA(JGL,JB)+IONL(JGL,JB)-2,IRINT),&
+     & IRINT)  
+    IMAX=0
+    DO JL=1+NRFRSTOFF(JGL,JB),IONL(JGL,JB),IRINT
+      IMAX=IMAX+1
+    ENDDO
+    NRIMAX(JGL,JB)=IMAX
+    IF( NRFRSTOFF(JGL,JB) == 0 )THEN
+      NRCNEEDW (JGL,JB)=JPRADCW-1
+    ELSE
+      NRCNEEDW (JGL,JB)=JPRADCW
+    ENDIF
+    IF( NRLASTOFF(JGL,JB) == 0 )THEN
+      NRCNEEDE (JGL,JB)=JPRADCE-1
+    ELSE
+      NRCNEEDE (JGL,JB)=JPRADCE
+    ENDIF
+    IF( LODBGRADI )THEN
+      WRITE(IUNIT,'("SUECRADI: JB=",I4," ISTA=",I4,&
+       & " IONL=",I4," NRFRSTOFF=",I1," NRIMAX=",I3,&
+       & " NRLASTOFF=",I1," CNEEDW=",I1," CNEEDE=",I1)')&
+       & JB,ISTA(JGL,JB),IONL(JGL,JB),NRFRSTOFF(JGL,JB),&
+       & NRIMAX(JGL,JB),NRLASTOFF(JGL,JB),&
+       & NRCNEEDW(JGL,JB),NRCNEEDE(JGL,JB)  
+    ENDIF
+  ENDDO
+
+  IF( LODBGRADI )THEN
+    WRITE(IUNIT,'("SUECRADI: ")')
+  ENDIF
+  
+  IMAXT=IMAXT+NRIMAX(JGL,MY_REGION_EW)
+  
+ENDDO
+
+NRIMAXT=IMAXT
+IF( LODBGRADI )THEN
+  WRITE(IUNIT,'("SUECRADI: NRIMAXT=",I6)') NRIMAXT
+ENDIF
+
+! NOW LOOP OVER OUR PARTITION LATITUDES, TO DETERMINE SEND AND RECEIVE
+! INFORMATION
+
+DO JGL=1,NDGENL
+
+! TEST IF WE HAVE ANY FINE POINTS
+! IF WE HAVEN'T, THEN WE DON'T HAVE TO SEND OR RECEIVE ANYTHING
+
+  IF( IONL(JGL,MY_REGION_EW) == 0 ) CYCLE
+  JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+
+! TEST IF CURRENT LATITUDE IS SPLIT ACROSS SET A's
+! TO SET IPROCB TO THE MAXIMUM NUMBER OF SETB's WE MUST CONSIDER IN
+! THE FOLLOWING CODE FOR THIS LATITUDE
+
+  IF( LSPLITLAT(JGLGLO) )THEN
+    IPROCB=2*NPRGPEW
+  ELSE
+    IPROCB=NPRGPEW
+  ENDIF
+
+! NOW CONSIDER EACH PARTITION (ON THIS LATITUDE) IN TURN TO SEE WHO
+! WILL BE SENDING TO AND RECEIVING FROM IT, AND OBVIOUSLY NOTING
+! PERTINENT INFO IF OUR PARTITION IS SENDING OR RECEIVING
+
+  DO JBX=1,IPROCB
+
+! LET'S START BY BUILDING UP A LIST OF WESTERLY AND EASTERLY PARTITIONS
+! CONTAINING ONE OR MORE FINE POINTS, SO THAT WE CAN SUBSEQUENTLY IGNORE
+! ISSUES ABOUT WHETHER THIS IS A SPLIT LATITUDE AND THAT THE EARTH IS
+! ROUND. ALSO THE PARTITION BEING CONSIDERED (JBX) ALWAYS APPEARS AT THE
+! END OF EACH OF THESE LISTS, BECAUSE JBX MAY NEED TO 'LOGICALLY' SEND/RECEIVE
+! COURSE POINTS TO/FROM ITS OWN PARTITION FOR THIS LATITUDE.
+
+    ILW=0
+    ILE=0
+    IF( LSPLITLAT(JGLGLO) )THEN
+
+! DETERMINE WHETHER THE SET A SHARING THIS LATITUDE IS (ABOVE,LEFT) OR
+! (BELOW,RIGHT). WE DETERMINE THIS BY TESTING IF ANY SETB ON THIS LATITUDE
+! STARTS AT 1.
+
+      IAOFF=-1
+      DO JB=1,NPRGPEW
+        IF( ISTA(JGL,JB) == 1 )THEN
+          IAOFF=1
+          EXIT
+        ENDIF
+      ENDDO
+
+      IF( JBX <= NPRGPEW )THEN
+        IJBXSETA=MY_REGION_NS
+        IOTHSETA=MY_REGION_NS+IAOFF
+        IJBXBOFF=0
+        IOTHBOFF=NPRGPEW
+      ELSE
+        IJBXSETA=MY_REGION_NS+IAOFF
+        IOTHSETA=MY_REGION_NS
+        IJBXBOFF=NPRGPEW
+        IOTHBOFF=0
+      ENDIF
+! INITIALISE WEST LIST, SPLIT LAT
+      IF( JBX <= NPRGPEW )THEN
+        IB1=JBX-1
+        IB2=1
+        IB3=2*NPRGPEW
+        IB4=NPRGPEW+1
+        IB5=NPRGPEW
+        IB6=JBX
+      ELSE
+        IB1=JBX-1
+        IB2=NPRGPEW+1
+        IB3=NPRGPEW
+        IB4=1
+        IB5=2*NPRGPEW
+        IB6=JBX
+      ENDIF
+      DO JB=IB1,IB2,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=IJBXSETA
+          ILWB (ILW)=JB-IJBXBOFF
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB3,IB4,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=IOTHSETA
+          ILWB (ILW)=JB-IOTHBOFF
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB5,IB6,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=IJBXSETA
+          ILWB (ILW)=JB-IJBXBOFF
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+! INITIALISE EAST LIST, SPLIT LAT
+      IF( JBX <= NPRGPEW )THEN
+        IB1=JBX+1
+        IB2=NPRGPEW
+        IB3=NPRGPEW+1
+        IB4=2*NPRGPEW
+        IB5=1
+        IB6=JBX
+      ELSE
+        IB1=JBX+1
+        IB2=2*NPRGPEW
+        IB3=1
+        IB4=NPRGPEW
+        IB5=NPRGPEW+1
+        IB6=JBX
+      ENDIF
+      DO JB=IB1,IB2
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=IJBXSETA
+          ILEB (ILE)=JB-IJBXBOFF
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB3,IB4
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=IOTHSETA
+          ILEB (ILE)=JB-IOTHBOFF
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB5,IB6
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=IJBXSETA
+          ILEB (ILE)=JB-IJBXBOFF
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+    ELSE
+      IAOFF=0
+! INITIALISE WEST LIST, NOT SPLIT LAT
+      DO JB=JBX-1,1,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=MY_REGION_NS
+          ILWB (ILW)=JB
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+      DO JB=NPRGPEW,JBX,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=MY_REGION_NS
+          ILWB (ILW)=JB
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+! INITIALISE EAST LIST, NOT SPLIT LAT
+      DO JB=JBX+1,NPRGPEW
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=MY_REGION_NS
+          ILEB (ILE)=JB
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+      DO JB=1,JBX
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=MY_REGION_NS
+          ILEB (ILE)=JB
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+    ENDIF
+    IF( ILW > 2*NPRGPEW .OR. ILE > 2*NPRGPEW )THEN
+      WRITE(NULOUT,'("SUECRAD: ILW > 2*NPRGPEW .OR. ",&
+       & "ILE > 2*NPRGPEW, ILW=",I6," ILE=",I6)') ILW,ILE  
+      CALL ABOR1('SUECRADI:ILW/E > 2*NPRGPEW')
+    ENDIF
+
+! DETERMINE FOR PARTITION JBX THOSE PARTITIONS THAT IT HAS TO RECEIVE
+! COURSE POINTS FROM.
+! DO THIS BY SEARCHING DOWN THE WESTERN LIST OF PARTITIONS FIRST AND THEN
+! FOR THE EASTERN LIST OF PARTITIONS.
+! THE SEND AND RECEIVE INFO FOR THIS (MY_REGION_NS,MY_REGION_EW) IS DETERMINED BY
+! SIMPLY NOTING WHETHER (MY_REGION_NS,MY_REGION_EW) IS A SENDER OR RECEIVER IN THE
+! ABOVE LIST SEARCH PROCESS.
+
+    ICNEED=NRCNEEDW(JGL,JBX)
+
+    DO JBW=1,ILW
+      IF( ICNEED == 0 ) EXIT
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+      IF( NRIMAX(JGL,ILWBI(JBW)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+        IF( NRIMAX(JGL,ILWBI(JBW)) >= ICNEED )THEN
+          ICTAKE=ICNEED
+        ELSE
+          ICTAKE=NRIMAX(JGL,ILWBI(JBW))
+        ENDIF
+        IF( MY_REGION_NS == ILWA(JBW).AND.MY_REGION_EW == ILWB(JBW) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING EAST COURSE POINTS)
+          IF( JBX <= NPRGPEW )THEN
+            IB =JBX
+            IAO=0
+          ELSE
+            IB =JBX-NPRGPEW
+            IAO=IAOFF
+          ENDIF
+          NRCSNDE(JGL,IB,IAO)=ICTAKE
+          NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+        ENDIF
+        IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+          IB =ILWB(JBW)
+          IAO=ILWA(JBW)-MY_REGION_NS
+          NRCRCVW (JGL,IB,IAO)=ICTAKE
+          NRCRCVWO(JGL,IB,IAO)=ICNEED-ICTAKE
+          NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+        ENDIF
+        ICNEED=ICNEED-ICTAKE
+      ENDIF
+    ENDDO
+
+    ICNEED=NRCNEEDE(JGL,JBX)
+    
+    DO JBE=1,ILE
+      IF( ICNEED == 0 ) EXIT
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+      IF( NRIMAX(JGL,ILEBI(JBE)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+        IF( NRIMAX(JGL,ILEBI(JBE)) >= ICNEED )THEN
+          ICTAKE=ICNEED
+        ELSE
+          ICTAKE=NRIMAX(JGL,ILEBI(JBE))
+        ENDIF
+        IF( MY_REGION_NS == ILEA(JBE).AND.MY_REGION_EW == ILEB(JBE) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING WEST COURSE POINTS)
+          IF( JBX <= NPRGPEW )THEN
+            IB =JBX
+            IAO=0
+          ELSE
+            IB =JBX-NPRGPEW
+            IAO=IAOFF
+          ENDIF
+          NRCSNDW(JGL,IB,IAO)=ICTAKE
+          NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+        ENDIF
+        IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+          IB =ILEB(JBE)
+          IAO=ILEA(JBE)-MY_REGION_NS
+          NRCRCVE (JGL,IB,IAO)=ICTAKE
+          NRCRCVEO(JGL,IB,IAO)=NRCNEEDW(JGL,JBX)+NRCNEEDE(JGL,JBX)-ICNEED
+          NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+        ENDIF
+        ICNEED=ICNEED-ICTAKE
+      ENDIF
+    ENDDO
+
+  ENDDO
+
+! END OF JBX LOOP OVER PARTITIONS
+
+ENDDO
+
+! END OF JGL LOOP OVER LATITUDES
+
+! WRITE OUT SEND/RECEIVE TABLES IF DEBUGGING
+
+IF( LODBGRADI )THEN
+  DO JA=-1,1
+    WRITE(IUNIT,'("SUECRADI: ")')
+    DO JB=1,NPRGPEW
+      IF( NRCSNDT(JB,JA) > 0.OR. NRCRCVT(JB,JA) > 0 )THEN
+        WRITE(IUNIT,'("SUECRADI: SETA=",I4," SETB=",I4,&
+         & " NRCSNDT=",I6," NRCRCVT=",I6)')&
+         & JA+MY_REGION_NS,JB,NRCSNDT(JB,JA),NRCRCVT(JB,JA)  
+      ENDIF
+    ENDDO
+  ENDDO
+  
+  WRITE(IUNIT,'("SUECRADI: ")')
+  
+  DO JA=-1,1
+    WRITE(IUNIT,'("SUECRADI: ")')
+    DO JB=1,NPRGPEW
+      DO JGL=1,NDGENL
+        JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+        IF( NRCSNDW(JGL,JB,JA) > 0.OR.&
+           & NRCSNDE(JGL,JB,JA) > 0.OR.&
+           & NRCRCVW(JGL,JB,JA) > 0.OR.&
+           & NRCRCVE(JGL,JB,JA) > 0 )THEN  
+          WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+           & " SETA=",I4," SETB=",I4,&
+           & " CSNDW=",I6," CSNDE=",I6,&
+           & " CRCVW=",I6," CRCVE=",I6,&
+           & " CRCVWO=",I1," CRCVEO=",I1)')&
+           & JGLGLO,JGL,JA+MY_REGION_NS,JB,&
+           & NRCSNDW(JGL,JB,JA),NRCSNDE(JGL,JB,JA),&
+           & NRCRCVW(JGL,JB,JA),NRCRCVE(JGL,JB,JA),&
+           & NRCRCVWO(JGL,JB,JA),NRCRCVEO(JGL,JB,JA)  
+        ENDIF
+      ENDDO
+    ENDDO
+  ENDDO
+  IF( .NOT.LODBGRADL )THEN
+    CLOSE(UNIT=IUNIT)
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRADI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUECRADI
+END SUBROUTINE SUECRADI
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi15.F90	(revision 3330)
@@ -0,0 +1,697 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUECRADI15
+
+!**** *SUECRADI15* - INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOL.
+!****                FROZEN VERSION (CYCLE 15) OF SUECRADI
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOLATION
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRADI15* FROM *SUECRAD15*
+!              ----------        ---------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL BY GEORGE MOZDZYNSKI 95-03-13
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRINT  , ONLY : JPRADCW  ,JPRADCE
+USE YOMDIM   , ONLY : NDGSAG   ,NDGSAL   ,NDGENG   ,NDGENL   ,NDLON
+USE YOMCT0   , ONLY : N_REGIONS_NS    ,N_REGIONS_EW
+USE YOMLUN   , ONLY : NULOUT
+USE YOMGEM   , ONLY : NLOEN    ,NLOENG
+USE YOMRAD15 , ONLY : NAER15   ,NFLUX15  ,NMODE15  ,NRAD15   ,&
+ & NRADFR15 ,NRADPFR15,NRADPLA15,NRINT15  ,NOVLP15  ,&
+ & NRPROMA15,NRADF2C15,NRADC2F15,LERAD6H15,LERADHS15 ,&
+ & LRADAER15,LNEWAER15
+USE YOMMP    , ONLY : LSPLIT   ,MY_REGION_NS   ,MY_REGION_EW   ,NSTA     ,&
+ & NONL     ,NPTRFRSTLAT,NPTRLSTLAT,NFRSTLAT ,NLSTLAT  ,&
+ & LSPLITLAT  
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL,NRIRINT  ,NRFRSTOFF,&
+ & NRLASTOFF,NRIMAX   ,NRIMAXT  ,NRCNEEDW ,NRCNEEDE ,&
+ & NRCSNDW  ,NRCSNDE  ,NRCRCVW  ,NRCRCVE  ,NRCSNDT  ,&
+ & NRCRCVT  ,NRCRCVWO ,NRCRCVEO  
+
+IMPLICIT NONE
+
+#include "namrad15.h"
+
+INTEGER(KIND=JPIM) :: ILWA (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILWB (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILWBI(2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILEA (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILEB (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILEBI(2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ISTA(NDGENL,2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: IONL(NDGENL,2*N_REGIONS_EW)
+CHARACTER (LEN = 14) ::  CLDBG
+
+INTEGER(KIND=JPIM) :: IAO, IAOFF, IB, IB1, IB2, IB3, IB4, IB5,&
+ & IB6, ICNEED, ICTAKE, IGL, IJBXBOFF, IJBXSETA, &
+ & ILE, ILEN, ILONS, ILW, IMAX, IMAXC, IMAXT, &
+ & IOTHBOFF, IOTHSETA, IPROCB, IRINT, IUNIT, &
+ & JA, JB, JBE, JBW, JBX, JF, JGL, JGLGLO, JL  
+
+LOGICAL :: LLMESS, LLMYSETAISWEST
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI15',0,ZHOOK_HANDLE)
+LLMESS=.FALSE.
+IUNIT=0
+ALLOCATE(NRIRINT  (NDGSAG:NDGENG))
+WRITE(NULOUT,9990) 'NRIRINT  ',SIZE(NRIRINT),SHAPE(NRIRINT)
+ALLOCATE(NRIMAX   (NDGSAG:NDGENG,2*N_REGIONS_EW))
+WRITE(NULOUT,9990) 'NRIMAX',SIZE(NRIMAX),SHAPE(NRIMAX)
+IF( LLMESS )THEN
+  ALLOCATE(NRFRSTOFF(NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRFRSTOFF',SIZE(NRFRSTOFF),SHAPE(NRFRSTOFF)
+  ALLOCATE(NRLASTOFF(NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRLASTOFF',SIZE(NRLASTOFF),SHAPE(NRLASTOFF)
+  ALLOCATE(NRIMAX   (NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRIMAX',SIZE(NRIMAX),SHAPE(NRIMAX)
+  ALLOCATE(NRCNEEDW (NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRCNEEDW',SIZE(NRCNEEDW),SHAPE(NRCNEEDW)
+  ALLOCATE(NRCNEEDE (NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRCNEEDE',SIZE(NRCNEEDE),SHAPE(NRCNEEDE)
+  ALLOCATE(NRCSNDW  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCSNDW',SIZE(NRCSNDW),SHAPE(NRCSNDW)
+  ALLOCATE(NRCSNDE  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCSNDE',SIZE(NRCSNDE),SHAPE(NRCSNDE)
+  ALLOCATE(NRCRCVW  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVW',SIZE(NRCRCVW),SHAPE(NRCRCVW)
+  ALLOCATE(NRCRCVE  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVE',SIZE(NRCRCVE),SHAPE(NRCRCVE)
+  ALLOCATE(NRCSNDT  (N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCSNDT',SIZE(NRCSNDT),SHAPE(NRCSNDT)
+  ALLOCATE(NRCRCVT  (N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVT',SIZE(NRCRCVT),SHAPE(NRCRCVT)
+  ALLOCATE(NRCRCVWO (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVWO',SIZE(NRCRCVWO),SHAPE(NRCRCVWO)
+  ALLOCATE(NRCRCVEO (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVEO',SIZE(NRCRCVEO),SHAPE(NRCRCVEO)
+ENDIF
+9990 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+IF( LLMESS )THEN
+
+  IF( NRINT15 > 1.AND. (NRADF2C15 == 1.OR. NRADC2F15 == 1))THEN
+    IF( LSPLIT .AND. N_REGIONS_NS > 1 )THEN
+      WRITE(NULOUT,'("SUECRAD: FFT INTERPOLATION UNSUPPORTED",&
+       & " WITH LSPLIT")')  
+      CALL ABOR1('FFT INTERPOLATION UNSUPPORTED WITH LSPLIT')
+    ENDIF
+    IF( N_REGIONS_EW > 1 )THEN
+      WRITE(NULOUT,'("SUECRAD: FFT INTERPOLATION UNSUPPORTED",&
+       & " WITH N_REGIONS_EW > 1")')  
+      CALL ABOR1('FFT INTERPOLATION UNSUPPORTED WITH N_REGIONS_EW > 1')
+    ENDIF
+  ENDIF
+
+! INITIALISE GENERAL DATA STRUCTURES REQUIRED FOR RAD. INTERPOLATION
+
+  DO JGL=NDGSAG,NDGENG
+    NRIRINT(JGL)=0
+  ENDDO
+  DO JB=1,2*N_REGIONS_EW
+    DO JGL=NDGSAG,NDGENG
+      NRFRSTOFF(JGL,JB)=0
+      NRLASTOFF(JGL,JB)=0
+      NRIMAX   (JGL,JB)=0
+      NRCNEEDW (JGL,JB)=0
+      NRCNEEDE (JGL,JB)=0
+    ENDDO
+  ENDDO
+  NRIMAXT=0
+  DO JA=-1,1
+    DO JB=1,N_REGIONS_EW
+      DO JGL=NDGSAG,NDGENG
+        NRCSNDW(JGL,JB,JA)=0
+        NRCSNDE(JGL,JB,JA)=0
+        NRCRCVW(JGL,JB,JA)=0
+        NRCRCVE(JGL,JB,JA)=0
+        NRCRCVWO(JGL,JB,JA)=0
+        NRCRCVEO(JGL,JB,JA)=0
+      ENDDO
+    ENDDO
+  ENDDO
+  DO JA=-1,1
+    DO JB=1,N_REGIONS_EW
+      NRCSNDT(JB,JA)=0
+      NRCRCVT(JB,JA)=0
+    ENDDO
+  ENDDO
+
+  DO JB=1,2*N_REGIONS_EW
+    DO JGL=1,NDGENL
+      ISTA(JGL,JB)=0
+      IONL(JGL,JB)=0
+    ENDDO
+  ENDDO
+  DO JB=1,N_REGIONS_EW
+    DO JGL=1,NDGENL
+      IGL=NPTRFRSTLAT(MY_REGION_NS)-1+JGL
+      ISTA(JGL,JB)=NSTA(IGL,JB)
+      IONL(JGL,JB)=NONL(IGL,JB)
+    ENDDO
+  ENDDO
+  IF( LSPLITLAT(NFRSTLAT(MY_REGION_NS)) )THEN
+    LLMYSETAISWEST=.FALSE.
+    DO JB=1,N_REGIONS_EW
+      IF( NSTA(NPTRFRSTLAT(MY_REGION_NS),JB) == 1 )THEN
+        LLMYSETAISWEST=.TRUE.
+      ENDIF
+    ENDDO
+    IF( LLMYSETAISWEST )THEN
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+        ISTA(1,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(1,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ELSE
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+        ISTA(1,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(1,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ENDIF
+  ENDIF
+  IF( LSPLITLAT(NLSTLAT(MY_REGION_NS)) )THEN
+    LLMYSETAISWEST=.FALSE.
+    DO JB=1,N_REGIONS_EW
+      IF( NSTA(NPTRLSTLAT(MY_REGION_NS),JB) == 1 )THEN
+        LLMYSETAISWEST=.TRUE.
+      ENDIF
+    ENDDO
+    IF( LLMYSETAISWEST )THEN
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+        ISTA(NDGENL,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(NDGENL,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ELSE
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+        ISTA(NDGENL,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(NDGENL,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ENDIF
+  ENDIF
+
+ELSE
+
+  ILEN=NDGENG-NDGSAG+1
+  DO JGL=NDGSAG,NDGENG
+    NRIRINT(JGL)=0
+    NRIMAX (JGL,1)=0
+  ENDDO
+
+ENDIF
+
+IMAXC=NDLON/NRINT15+6
+IMAXC=IMAXC+(1-MOD(IMAXC,2))
+
+IF( LLMESS )THEN
+  IF( LODBGRADI )THEN
+    IUNIT=10
+    WRITE(CLDBG,'("debug_a",I3.3,"b",I3.3)')MY_REGION_NS,MY_REGION_EW
+    OPEN(UNIT=IUNIT,FILE=CLDBG)
+    WRITE(IUNIT,'("SUECRADI: MY_REGION_NS=",I4," MY_REGION_EW=",I4)')MY_REGION_NS,MY_REGION_EW
+    WRITE(IUNIT,'("SUECRADI: NDGSAL=",I4," NDGENL=",I4)') NDGSAL,NDGENL
+    WRITE(IUNIT,'("SUECRADI: ")')
+  ENDIF
+ENDIF
+
+! LOOP OVER OUR PARTITION LATITUDES, TO INITIALISE SIMPLE ITEMS
+
+IF( LLMESS )THEN
+
+  IMAXT=0
+
+  DO JGL=1,NDGENL
+
+    JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+    ILONS=NLOENG(JGLGLO)
+
+    IRINT=1
+    DO JF=1,NRINT15
+      IF( MOD(ILONS,JF) == 0.AND.ILONS/JF <= IMAXC )THEN
+        IRINT=JF
+        GO TO 220
+      ENDIF
+    ENDDO
+    220 CONTINUE
+    NRIRINT  (JGL)=IRINT
+
+    IF( LODBGRADI )THEN
+      WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+       & " NLOENG=",I4," NRIRINT=",I1," LSPLITLAT=",L2)')&
+       & JGLGLO,JGL,NLOENG(JGLGLO),NRIRINT(JGL),LSPLITLAT(JGLGLO)  
+    ENDIF
+
+    IF( LSPLITLAT(JGLGLO) )THEN
+      IPROCB=2*N_REGIONS_EW
+    ELSE
+      IPROCB=N_REGIONS_EW
+    ENDIF
+
+    DO JB=1,IPROCB
+      IF( IONL(JGL,JB) == 0 ) GOTO 250
+      NRFRSTOFF(JGL,JB)=MOD(IRINT-MOD(ISTA(JGL,JB)-1,IRINT),IRINT)
+      NRLASTOFF(JGL,JB)=&
+       & MOD(IRINT-MOD(ISTA(JGL,JB)+IONL(JGL,JB)-2,IRINT),&
+       & IRINT)  
+      IMAX=0
+      DO JL=1+NRFRSTOFF(JGL,JB),IONL(JGL,JB),IRINT
+        IMAX=IMAX+1
+      ENDDO
+      NRIMAX(JGL,JB)=IMAX
+      IF( NRFRSTOFF(JGL,JB) == 0 )THEN
+        NRCNEEDW (JGL,JB)=JPRADCW-1
+      ELSE
+        NRCNEEDW (JGL,JB)=JPRADCW
+      ENDIF
+      IF( NRLASTOFF(JGL,JB) == 0 )THEN
+        NRCNEEDE (JGL,JB)=JPRADCE-1
+      ELSE
+        NRCNEEDE (JGL,JB)=JPRADCE
+      ENDIF
+      IF( LODBGRADI )THEN
+        WRITE(IUNIT,'("SUECRADI: JB=",I4," ISTA=",I4,&
+         & " IONL=",I4," NRFRSTOFF=",I1," NRIMAX=",I3,&
+         & " NRLASTOFF=",I1," CNEEDW=",I1," CNEEDE=",I1)')&
+         & JB,ISTA(JGL,JB),IONL(JGL,JB),NRFRSTOFF(JGL,JB),&
+         & NRIMAX(JGL,JB),NRLASTOFF(JGL,JB),&
+         & NRCNEEDW(JGL,JB),NRCNEEDE(JGL,JB)  
+      ENDIF
+      250 continue
+    ENDDO
+
+    IF( LODBGRADI )THEN
+      WRITE(IUNIT,'("SUECRADI: ")')
+    ENDIF
+
+    IMAXT=IMAXT+NRIMAX(JGL,MY_REGION_EW)
+
+  ENDDO
+
+  NRIMAXT=IMAXT
+  IF( LODBGRADI )THEN
+    WRITE(IUNIT,'("SUECRADI: NRIMAXT=",I6)') NRIMAXT
+  ENDIF
+
+ELSE
+
+  DO JGL=NDGSAG,NDGENG
+
+    ILONS=NLOEN(JGL)
+
+    IRINT=1
+    DO JF=1,NRINT15
+      IF( MOD(ILONS,JF) == 0.AND.ILONS/JF <= IMAXC )THEN
+        IRINT=JF
+        GO TO 221
+      ENDIF
+    ENDDO
+    221 CONTINUE
+
+    NRIRINT(JGL)=IRINT
+    NRIMAX (JGL,1)=ILONS/IRINT
+
+  ENDDO
+
+ENDIF
+
+IF( LLMESS )THEN
+
+! NOW LOOP OVER OUR PARTITION LATITUDES, TO DETERMINE SEND AND RECEIVE
+! INFORMATION
+
+  DO JGL=1,NDGENL
+
+! TEST IF WE HAVE ANY FINE POINTS
+! IF WE HAVEN'T, THEN WE DON'T HAVE TO SEND OR RECEIVE ANYTHING
+
+    IF( IONL(JGL,MY_REGION_EW) == 0 ) GOTO 700
+    JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+
+! TEST IF CURRENT LATITUDE IS SPLIT ACROSS SET A's
+! TO SET IPROCB TO THE MAXIMUM NUMBER OF SETB's WE MUST CONSIDER IN
+! THE FOLLOWING CODE FOR THIS LATITUDE
+
+    IF( LSPLITLAT(JGLGLO) )THEN
+      IPROCB=2*N_REGIONS_EW
+    ELSE
+      IPROCB=N_REGIONS_EW
+    ENDIF
+
+! NOW CONSIDER EACH PARTITION (ON THIS LATITUDE) IN TURN TO SEE WHO
+! WILL BE SENDING TO AND RECEIVING FROM IT, AND OBVIOUSLY NOTING
+! PERTINENT INFO IF OUR PARTITION IS SENDING OR RECEIVING
+
+    DO JBX=1,IPROCB
+
+! LET'S START BY BUILDING UP A LIST OF WESTERLY AND EASTERLY PARTITIONS
+! CONTAINING ONE OR MORE FINE POINTS, SO THAT WE CAN SUBSEQUENTLY IGNORE
+! ISSUES ABOUT WHETHER THIS IS A SPLIT LATITUDE AND THAT THE EARTH IS
+! ROUND. ALSO THE PARTITION BEING CONSIDERED (JBX) ALWAYS APPEARS AT THE
+! END OF EACH OF THESE LISTS, BECAUSE JBX MAY NEED TO 'LOGICALLY'
+! SEND/RECEIVE COURSE POINTS TO/FROM ITS OWN PARTITION FOR THIS LATITUDE
+
+      ILW=0
+      ILE=0
+      IF( LSPLITLAT(JGLGLO) )THEN
+
+! DETERMINE WHETHER THE SET A SHARING THIS LATITUDE IS (ABOVE,LEFT) OR
+! (BELOW,RIGHT). WE DETERMINE THIS BY TESTING IF ANY SETB ON THIS
+! LATITUDE
+! STARTS AT 1.
+
+        IAOFF=-1
+        DO JB=1,N_REGIONS_EW
+          IF( ISTA(JGL,JB) == 1 )THEN
+            IAOFF=1
+            GOTO 411
+          ENDIF
+        ENDDO
+        411 CONTINUE
+        IF( JBX <= N_REGIONS_EW )THEN
+          IJBXSETA=MY_REGION_NS
+          IOTHSETA=MY_REGION_NS+IAOFF
+          IJBXBOFF=0
+          IOTHBOFF=N_REGIONS_EW
+        ELSE
+          IJBXSETA=MY_REGION_NS+IAOFF
+          IOTHSETA=MY_REGION_NS
+          IJBXBOFF=N_REGIONS_EW
+          IOTHBOFF=0
+        ENDIF
+! INITIALISE WEST LIST, SPLIT LAT
+        IF( JBX <= N_REGIONS_EW )THEN
+          IB1=JBX-1
+          IB2=1
+          IB3=2*N_REGIONS_EW
+          IB4=N_REGIONS_EW+1
+          IB5=N_REGIONS_EW
+          IB6=JBX
+        ELSE
+          IB1=JBX-1
+          IB2=N_REGIONS_EW+1
+          IB3=N_REGIONS_EW
+          IB4=1
+          IB5=2*N_REGIONS_EW
+          IB6=JBX
+        ENDIF
+        DO JB=IB1,IB2,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=IJBXSETA
+            ILWB (ILW)=JB-IJBXBOFF
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB3,IB4,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=IOTHSETA
+            ILWB (ILW)=JB-IOTHBOFF
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB5,IB6,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=IJBXSETA
+            ILWB (ILW)=JB-IJBXBOFF
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+! INITIALISE EAST LIST, SPLIT LAT
+        IF( JBX <= N_REGIONS_EW )THEN
+          IB1=JBX+1
+          IB2=N_REGIONS_EW
+          IB3=N_REGIONS_EW+1
+          IB4=2*N_REGIONS_EW
+          IB5=1
+          IB6=JBX
+        ELSE
+          IB1=JBX+1
+          IB2=2*N_REGIONS_EW
+          IB3=1
+          IB4=N_REGIONS_EW
+          IB5=N_REGIONS_EW+1
+          IB6=JBX
+        ENDIF
+        DO JB=IB1,IB2
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=IJBXSETA
+            ILEB (ILE)=JB-IJBXBOFF
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB3,IB4
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=IOTHSETA
+            ILEB (ILE)=JB-IOTHBOFF
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB5,IB6
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=IJBXSETA
+            ILEB (ILE)=JB-IJBXBOFF
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+      ELSE
+        IAOFF=0
+! INITIALISE WEST LIST, NOT SPLIT LAT
+        DO JB=JBX-1,1,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=MY_REGION_NS
+            ILWB (ILW)=JB
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+        DO JB=N_REGIONS_EW,JBX,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=MY_REGION_NS
+            ILWB (ILW)=JB
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+! INITIALISE EAST LIST, NOT SPLIT LAT
+        DO JB=JBX+1,N_REGIONS_EW
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=MY_REGION_NS
+            ILEB (ILE)=JB
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+        DO JB=1,JBX
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=MY_REGION_NS
+            ILEB (ILE)=JB
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+      ENDIF
+      IF( ILW > 2*N_REGIONS_EW .OR. ILE > 2*N_REGIONS_EW )THEN
+        WRITE(NULOUT,'("SUECRAD: ILW > 2*N_REGIONS_EW .OR. ",&
+         & "ILE > 2*N_REGIONS_EW, ILW=",I6," ILE=",I6)') ILW,ILE  
+        CALL ABOR1('SUECRADI:ILW/E > 2*N_REGIONS_EW')
+      ENDIF
+
+! DETERMINE FOR PARTITION JBX THOSE PARTITIONS THAT IT HAS TO RECEIVE
+! COURSE POINTS FROM.
+! DO THIS BY SEARCHING DOWN THE WESTERN LIST OF PARTITIONS FIRST AND
+! THEN FOR THE EASTERN LIST OF PARTITIONS.
+! THE SEND AND RECEIVE INFO FOR THIS (MY_REGION_NS,MY_REGION_EW) IS DETERMINED BY
+! SIMPLY NOTING WHETHER (MY_REGION_NS,MY_REGION_EW) IS A SENDER OR RECEIVER IN THE
+! ABOVE LIST SEARCH PROCESS.
+
+      ICNEED=NRCNEEDW(JGL,JBX)
+
+      DO JBW=1,ILW
+        IF( ICNEED == 0 ) GOTO 541
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+        IF( NRIMAX(JGL,ILWBI(JBW)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+          IF( NRIMAX(JGL,ILWBI(JBW)) >= ICNEED )THEN
+            ICTAKE=ICNEED
+          ELSE
+            ICTAKE=NRIMAX(JGL,ILWBI(JBW))
+          ENDIF
+          IF( MY_REGION_NS == ILWA(JBW).AND.MY_REGION_EW == ILWB(JBW) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING EAST COURSE POINTS)
+            IF( JBX <= N_REGIONS_EW )THEN
+              IB =JBX
+              IAO=0
+            ELSE
+              IB =JBX-N_REGIONS_EW
+              IAO=IAOFF
+            ENDIF
+            NRCSNDE(JGL,IB,IAO)=ICTAKE
+            NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+          ENDIF
+          IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+            IB =ILWB(JBW)
+            IAO=ILWA(JBW)-MY_REGION_NS
+            NRCRCVW (JGL,IB,IAO)=ICTAKE
+            NRCRCVWO(JGL,IB,IAO)=ICNEED-ICTAKE
+            NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+          ENDIF
+          ICNEED=ICNEED-ICTAKE
+        ENDIF
+      ENDDO
+
+      541 CONTINUE
+
+      ICNEED=NRCNEEDE(JGL,JBX)
+
+      DO JBE=1,ILE
+        IF( ICNEED == 0 ) GOTO 551
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+        IF( NRIMAX(JGL,ILEBI(JBE)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+          IF( NRIMAX(JGL,ILEBI(JBE)) >= ICNEED )THEN
+            ICTAKE=ICNEED
+          ELSE
+            ICTAKE=NRIMAX(JGL,ILEBI(JBE))
+          ENDIF
+          IF( MY_REGION_NS == ILEA(JBE).AND.MY_REGION_EW == ILEB(JBE) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING WEST COURSE POINTS)
+            IF( JBX <= N_REGIONS_EW )THEN
+              IB =JBX
+              IAO=0
+            ELSE
+              IB =JBX-N_REGIONS_EW
+              IAO=IAOFF
+            ENDIF
+            NRCSNDW(JGL,IB,IAO)=ICTAKE
+            NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+          ENDIF
+          IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+            IB =ILEB(JBE)
+            IAO=ILEA(JBE)-MY_REGION_NS
+            NRCRCVE (JGL,IB,IAO)=ICTAKE
+            NRCRCVEO(JGL,IB,IAO)=NRCNEEDW(JGL,JBX)+NRCNEEDE(JGL,JBX)-ICNEED
+            NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+          ENDIF
+          ICNEED=ICNEED-ICTAKE
+        ENDIF
+      ENDDO
+
+      551 CONTINUE
+
+    ENDDO
+
+! END OF JBX LOOP OVER PARTITIONS
+
+    700 continue
+  ENDDO
+
+! END OF JGL LOOP OVER LATITUDES
+
+! WRITE OUT SEND/RECEIVE TABLES IF DEBUGGING
+
+  IF( LODBGRADI )THEN
+    DO JA=-1,1
+      WRITE(IUNIT,'("SUECRADI: ")')
+      DO JB=1,N_REGIONS_EW
+        IF( NRCSNDT(JB,JA) > 0.OR. NRCRCVT(JB,JA) > 0 )THEN
+          WRITE(IUNIT,'("SUECRADI: SETA=",I4," SETB=",I4,&
+           & " NRCSNDT=",I6," NRCRCVT=",I6)')&
+           & JA+MY_REGION_NS,JB,NRCSNDT(JB,JA),NRCRCVT(JB,JA)  
+        ENDIF
+      ENDDO
+    ENDDO
+
+    WRITE(IUNIT,'("SUECRADI: ")')
+
+    DO JA=-1,1
+      WRITE(IUNIT,'("SUECRADI: ")')
+      DO JB=1,N_REGIONS_EW
+        DO JGL=1,NDGENL
+          JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+          IF( NRCSNDW(JGL,JB,JA) > 0.OR.&
+             & NRCSNDE(JGL,JB,JA) > 0.OR.&
+             & NRCRCVW(JGL,JB,JA) > 0.OR.&
+             & NRCRCVE(JGL,JB,JA) > 0 )THEN  
+            WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+             & " SETA=",I4," SETB=",I4,&
+             & " CSNDW=",I6," CSNDE=",I6,&
+             & " CRCVW=",I6," CRCVE=",I6,&
+             & " CRCVWO=",I1," CRCVEO=",I1)')&
+             & JGLGLO,JGL,JA+MY_REGION_NS,JB,&
+             & NRCSNDW(JGL,JB,JA),NRCSNDE(JGL,JB,JA),&
+             & NRCRCVW(JGL,JB,JA),NRCRCVE(JGL,JB,JA),&
+             & NRCRCVWO(JGL,JB,JA),NRCRCVEO(JGL,JB,JA)  
+          ENDIF
+        ENDDO
+      ENDDO
+    ENDDO
+    IF( .NOT.LODBGRADL )THEN
+      CLOSE(UNIT=IUNIT)
+    ENDIF
+  ENDIF
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRADI15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradi15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUECRADI15
+END SUBROUTINE SUECRADI15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradl.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradl.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suecradl.intfb.h	(revision 3330)
@@ -0,0 +1,5 @@
+INTERFACE
+SUBROUTINE SUECRADL
+!USE MPL_MODULE
+END SUBROUTINE SUECRADL
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sufft_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sufft_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sufft_mod.F90	(revision 3330)
@@ -0,0 +1,39 @@
+MODULE SUFFT_MOD
+CONTAINS
+SUBROUTINE SUFFT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DIM
+USE TPM_GEN
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FFT
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JGL,IGLG
+LOGICAL :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SUFFT ==='
+
+ALLOCATE(T%TRIGS(R%NDLON,D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'T%TRIGS    ',SIZE(T%TRIGS),SHAPE(T%TRIGS)
+ALLOCATE(T%NFAX(19,D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'T%NFAX     ',SIZE(T%NFAX),SHAPE(T%NFAX)
+
+DO JGL=1,D%NDGL_FS
+  IGLG = D%NPTRLS(MYSETW)+JGL-1
+  CALL SET99(T%TRIGS(1,JGL),T%NFAX(1,JGL),G%NLOEN(IGLG))
+ENDDO
+
+!     ------------------------------------------------------------------
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SUFFT
+END MODULE SUFFT_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sugfl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sugfl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sugfl.F90	(revision 3330)
@@ -0,0 +1,798 @@
+SUBROUTINE SUGFL
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN , ONLY :  NULOUT
+USE YOM_YGFL , ONLY : YGFL,YGFLC,YL, YI, YA, YS, YR, YG, YTKE,&
+ & YO3, YSRC, YEXT, YQ, YCVGQ, JPGFL,YQVA, &
+ & YL_NL, YI_NL, YA_NL, YO3_NL, YSRC_NL, YEXT_NL, YQ_NL,YQVA_NL, &
+ & YS_NL, YR_NL, YG_NL, YTKE_NL,YCVGQ_NL,NGFL_EXT,&
+ & YCPF , YSPF ,YCPF_NL, YSPF_NL, YAERO, YAERO_NL, NAERO, YGRG, YGRG_NL, NGRG,&
+ & YSDSAT, YCVV, YSDSAT_NL, YCVV_NL, YFORC, YFORC_NL, NGFL_FORC,&
+ & YEZDIAG, YEZDIAG_NL, NGFL_EZDIAG, &
+ & YGHG, YGHG_NL, NGHG, YTRAC, YTRAC_NL, NTRAC, &
+ & YUOM     ,YUAL     ,YDOM     ,YDAL     ,YUEN     ,YUNEBH, &
+ & YUOM_NL  ,YUAL_NL  ,YDOM_NL  ,YDAL_NL  ,YUEN_NL  ,YUNEBH_NL
+USE GFL_SUBS ,ONLY : DEFINE_GFL_COMP 
+USE YOMDIM , ONLY : LADER
+USE YOMCST   , ONLY : RV       ,RCPV     ,RCW      ,RCS
+USE YOMGRB , ONLY : NGRBQ, NGRBO3, NGRBCLWC, NGRBCIWC,&
+ & NGRBCC, NGRB149
+USE YOMCT0   , ONLY : LFPART2,NCONF
+USE YOMFA  , ONLY : YFAQ     ,YFAL     ,YFAI     ,YFAO3    ,&
+ & YFAS     ,YFAR     ,YFAG     ,YFATKE   ,&
+ & YFACPF, YFASPF, YFACLF,YFASRC, YFACVGQ, YFASDSAT, YFACVV ,&
+ & YFAQVA, &
+ & YFAUOM, YFAUAL, YFADOM, YFADAL, YFAUEN, YFAUNEBH
+
+!**** *SUGFL*  - Initialize definition of unified_treatment grid_point fields
+
+!     Purpose.
+!     --------
+!           Initialize definition of unified_treatment fields (GFL)
+!           The GFL ordering in this routine is the ordering for "t" and
+!           "t+dt" values of the GFL in grid-point arrays (GFL and GFLT1),
+!           and also the ordering in the spectral array SPGFL.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUGFL
+
+!        Explicit arguments :
+!        --------------------
+
+!        Implicit arguments :
+!        --------------------
+!        MODULE YOM_YGFL
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+!        None
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 2002-03-11
+!        M.Hamrud : 2002-08-01 Extensive mods
+!        R. El Khatib : 2003-08-19 ARPEGE field names
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M. Tudor : 2003-10-17 introduce YCPF and YSPF in GFL
+!        A. Untch : 2005-03-11 introduce aerosols
+!        J. Flemming : 2005-04-11 replace aerosols with GRG
+!        Y. Seity  : 2004-11-16 AROME GFL fields
+!        C. Fischer: 23-May-2005 No Ozone in the Meteo-France control variable
+!        Y. Bouteloup: 13-Oct-2005 introduce YCVGQ (Moisture convergence for French physics)
+!        J. Haseler : 2005-10-11 introduce LTRAJIO
+!        JJMorcrette  20060512 GEMS variables in cy31
+!        S. Serrar    20060907 tracers used for diagnostics only (in GFL between GHG and GRG)
+!        A. Alias : 2006-10-13 introduction of YSDSAT and YCVV
+!        B. Sass :  HIRLAM pseudo-prognostic field YQVA
+!        M. Bellus : 27-Sep-2006 introduce YUOM, YUAL, YDOM, YDAL, YUEN and
+!                    YUNEBH (ALARO-0 prognostic convection) + spotted/corrected bug
+!                    in index incrementation after YO3
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JGFL,IGFLPTR,INCR
+LOGICAL   :: LLDERS,LLT1,LL5
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUGFL',0,ZHOOK_HANDLE)
+
+!-------------------------------------------------------------------------
+
+IF( .NOT.LFPART2) THEN
+
+!      1.   CASE LFPART2=F
+!
+!      1.1  Initial settings.
+
+  YGFL%NUMFLDS=0
+
+  LL5=NCONF/100 == 1.OR.NCONF == 801.OR.NCONF == 601.OR. &
+   & NCONF == 401.OR.NCONF == 501  
+  LLT1=.TRUE.
+  ! All gridpoint fields have to be set up before the spectral ones
+  !  (i.e. part 1.2 SHOULD be done before part 1.3)
+  LLDERS=.FALSE.
+  ! * Simple GFL variables:
+  !   (order should be the same in parts 1.1, 1.2 and 1.3).
+  INCR=0 
+  YQ    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YL    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YI    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YS    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YR    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YG    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YTKE  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YA    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YO3   => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YCPF  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YSPF  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YSRC  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YCVGQ => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YSDSAT => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YCVV  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YQVA  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUOM => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUAL => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YDOM => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YDAL => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUEN => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUNEBH => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  ! * Groups of multiple GFL variables:
+  !   (order should be the same in parts 1.1, 1.2 and 1.3).
+  IF (NGFL_EXT == 0) THEN
+    YEXT => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGFL_FORC == 0) THEN
+    YFORC => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGFL_EZDIAG == 0) THEN
+    YEZDIAG => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGHG == 0) THEN
+    YGHG => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NTRAC == 0) THEN
+    YTRAC => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGRG == 0) THEN
+    YGRG => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NAERO == 0) THEN
+    YAERO => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+
+!      1.2  Grid-point GFL.
+
+  IF(YQ_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQ ,CDNAME=YFAQ%CLNAME,KGRIB=NGRBQ,LDGP=.TRUE.,&
+     & KREQIN=YQ_NL%NREQIN, &
+     & PREFVALI=YQ_NL%REFVALI,LDREQOUT=YQ_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1,LDGPINGP=YQ_NL%LGPINGP, &
+     & LDTRAJIO=YQ_NL%LTRAJIO,LDTHERMACT=.TRUE.,PR=RV,PRCP=RCPV)
+  ENDIF
+  IF(YL_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YL ,CDNAME=YFAL%CLNAME,KGRIB=NGRBCLWC, &
+     & LDGP=.TRUE.,KREQIN=YL_NL%NREQIN, &
+     & PREFVALI=YL_NL%REFVALI,LDREQOUT=YL_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCW)
+  ENDIF
+  IF(YI_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YI=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YI ,CDNAME=YFAI%CLNAME,KGRIB=NGRBCIWC,&
+     & LDGP=.TRUE.,KREQIN=YI_NL%NREQIN, &
+     & PREFVALI=YI_NL%REFVALI,LDREQOUT=YI_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YS_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YS=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YS ,CDNAME=YFAS%CLNAME,KGRIB=NGRB149, &
+     & LDGP=.TRUE.,KREQIN=YS_NL%NREQIN, &
+     & PREFVALI=YS_NL%REFVALI,LDREQOUT=YS_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YR_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YR=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YR ,CDNAME=YFAR%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YR_NL%NREQIN, &
+     & PREFVALI=YR_NL%REFVALI,LDREQOUT=YR_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCW)
+  ENDIF
+  IF(YG_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YG=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YG ,CDNAME=YFAG%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YG_NL%NREQIN, &
+     & PREFVALI=YG_NL%REFVALI,LDREQOUT=YG_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YTKE_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YTKE=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YTKE ,CDNAME=YFATKE%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YTKE_NL%NREQIN, &
+     & PREFVALI=YTKE_NL%REFVALI,LDREQOUT=YTKE_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YA_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YA ,CDNAME=YFACLF%CLNAME,KGRIB=NGRBCC,&
+     & LDGP=.TRUE.,KREQIN=YA_NL%NREQIN, &
+     & PREFVALI=YA_NL%REFVALI,LDREQOUT=YA_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YO3_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YO3=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YO3,CDNAME=YFAO3%CLNAME,KGRIB=NGRBO3,&
+     & LDGP=.TRUE.,KREQIN=YO3_NL%NREQIN, &
+     & PREFVALI=YO3_NL%REFVALI,LDREQOUT=YO3_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1,LDGPINGP=YO3_NL%LGPINGP, &
+     & LDTRAJIO=YO3_NL%LTRAJIO)
+  ENDIF
+  IF(YCPF_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCPF,CDNAME=YFACPF%CLNAME,&
+     & KGRIB=YCPF_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YCPF_NL%NREQIN,PREFVALI= YCPF_NL%REFVALI,&
+     & LDREQOUT=YCPF_NL%LREQOUT,LDERS=.FALSE.,LD5=LL5, &
+     & LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YSPF_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSPF,CDNAME=YFASPF%CLNAME,&
+     & KGRIB=YSPF_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YSPF_NL%NREQIN, PREFVALI=YSPF_NL%REFVALI,&
+     & LDREQOUT=YSPF_NL%LREQOUT,LDERS=.FALSE.,LD5=LL5, &
+     & LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YSRC_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSRC=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSRC ,CDNAME=YFASRC%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YSRC_NL%NREQIN, &
+     & PREFVALI=YSRC_NL%REFVALI,LDREQOUT=YSRC_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YCVGQ_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCVGQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCVGQ ,CDNAME=YFACVGQ%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YCVGQ_NL%NREQIN, &
+     & PREFVALI=YCVGQ_NL%REFVALI, LDREQOUT=YCVGQ_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YSDSAT_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSDSAT=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSDSAT,CDNAME=YFASDSAT%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YSDSAT_NL%NREQIN, &
+     & PREFVALI=YSDSAT_NL%REFVALI, LDREQOUT=YSDSAT_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YCVV_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCVV=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCVV,CDNAME=YFACVV%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YCVV_NL%NREQIN, &
+     & PREFVALI=YCVV_NL%REFVALI, LDREQOUT=YCVV_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YQVA_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQVA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQVA,CDNAME=YFAQVA%CLNAME,&
+     & KGRIB=YQVA_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YQVA_NL%NREQIN, PREFVALI=YQVA_NL%REFVALI,&
+     & LDREQOUT=YQVA_NL%LREQOUT,LDERS=.FALSE.,LD5=LL5, &
+     & LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUOM_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUOM,CDNAME=YFAUOM%CLNAME,&
+     & KGRIB=YUOM_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YUOM_NL%NREQIN,&
+     & PREFVALI=YUOM_NL%REFVALI,LDREQOUT=YUOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUAL_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUAL,CDNAME=YFAUAL%CLNAME,&
+     & KGRIB=YUAL_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YUAL_NL%NREQIN,&
+     & PREFVALI=YUAL_NL%REFVALI,LDREQOUT=YUAL_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YDOM_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDOM,CDNAME=YFADOM%CLNAME,&
+     & KGRIB=YDOM_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YDOM_NL%NREQIN,&
+     & PREFVALI=YDOM_NL%REFVALI,LDREQOUT=YDOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YDAL_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDAL,CDNAME=YFADAL%CLNAME,&
+     & KGRIB=YDAL_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YDAL_NL%NREQIN,&
+     & PREFVALI=YDAL_NL%REFVALI,LDREQOUT=YDAL_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUEN_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUEN=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUEN,CDNAME=YFAUEN%CLNAME,&
+     & KGRIB=YUEN_NL%IGRBCODE,LDGP=.TRUE., & 
+     & KREQIN=YUEN_NL%NREQIN,&
+     & PREFVALI=YUEN_NL%REFVALI,LDREQOUT=YUEN_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUNEBH_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUNEBH=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUNEBH,CDNAME=YFAUNEBH%CLNAME,&
+     & KGRIB=YUNEBH_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YUNEBH_NL%NREQIN,&
+     & PREFVALI=YUNEBH_NL%REFVALI,LDREQOUT=YUNEBH_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+
+  ! Extra GFL variables
+  ! - do a preliminary test to see if, when there are extra-GFL and when at
+  !   least one of them is a grid-point one, there is no extra-GFL which is
+  !   a spectral one (not allowed):
+  !   in this case all the extra-GFL must be grid-point ones.
+  IF (NGFL_EXT > 1) THEN
+   IF(ANY(YEXT_NL(1:NGFL_EXT)%LGP)) THEN
+    DO JGFL=1,NGFL_EXT
+      IF (YEXT_NL(JGFL)%LSP) CALL ABOR1&
+       & ('SUGFL:EXTRA GFL FIELDS HAVE TO BE ALL EITHER SPECTRAL OR GRIDPOINT')
+    ENDDO
+   ENDIF
+  ENDIF
+  ! - define the GFL components (all the extra-GFL are grid-point ones).
+  DO JGFL=1,NGFL_EXT
+    IF(YEXT_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEXT=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EXT-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEXT(JGFL),CDNAME=YEXT_NL(JGFL)%CNAME ,&
+       & KGRIB=YEXT_NL(JGFL)%IGRBCODE,LDGP=.TRUE.,KREQIN=YEXT_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEXT_NL(JGFL)%REFVALI, LDREQOUT=YEXT_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YEXT_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YEXT_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+  ! Forcings
+  DO JGFL=1,NGFL_FORC
+    IF(YFORC_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YFORC=>YGFLC(IGFLPTR:IGFLPTR+NGFL_FORC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YFORC(JGFL),CDNAME=YFORC_NL(JGFL)%CNAME ,&
+       & KGRIB=YFORC_NL(JGFL)%IGRBCODE,LDGP=.TRUE.,KREQIN=YFORC_NL(JGFL)%NREQIN,&
+       & PREFVALI=YFORC_NL(JGFL)%REFVALI, LDREQOUT=YFORC_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YFORC_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YFORC_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+  ! Easy diagnostics
+  DO JGFL=1,NGFL_EZDIAG
+    IF(YEZDIAG_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEZDIAG=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EZDIAG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEZDIAG(JGFL),CDNAME=YEZDIAG_NL(JGFL)%CNAME ,&
+       & KGRIB=YEZDIAG_NL(JGFL)%IGRBCODE,LDGP=.TRUE.,KREQIN=YEZDIAG_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEZDIAG_NL(JGFL)%REFVALI, LDREQOUT=YEZDIAG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YEZDIAG_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YEZDIAG_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!-- Greenhouse Gases
+  DO JGFL=1,NGHG
+    IF(YGHG_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGHG=>YGFLC(IGFLPTR:IGFLPTR+NGHG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGHG(JGFL),CDNAME=YGHG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGHG_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YGHG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGHG_NL(JGFL)%REFVALI, LDREQOUT=YGHG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YGHG_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YGHG_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!--  Diagnostic tracers
+  DO JGFL=1,NTRAC
+    IF(YTRAC_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YTRAC=>YGFLC(IGFLPTR:IGFLPTR+NTRAC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YTRAC(JGFL),CDNAME=YTRAC_NL(JGFL)%CNAME ,&
+       & KGRIB=YTRAC_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YTRAC_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YTRAC_NL(JGFL)%REFVALI, LDREQOUT=YTRAC_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YTRAC_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YTRAC_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!-- Reactive Gases
+  DO JGFL=1,NGRG
+    IF(YGRG_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGRG=>YGFLC(IGFLPTR:IGFLPTR+NGRG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGRG(JGFL),CDNAME=YGRG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGRG_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YGRG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGRG_NL(JGFL)%REFVALI, LDREQOUT=YGRG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YGRG_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YGRG_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+    
+!-- Aerosols
+  DO JGFL=1,NAERO
+    IF(YAERO_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YAERO=>YGFLC(IGFLPTR:IGFLPTR+NAERO-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YAERO(JGFL),CDNAME=YAERO_NL(JGFL)%CNAME ,&
+       & KGRIB=YAERO_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YAERO_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YAERO_NL(JGFL)%REFVALI, LDREQOUT=YAERO_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YAERO_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YAERO_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!      1.3  Spectral GFL.
+  
+  IF(YQ_NL%LSP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQ ,CDNAME=YFAQ%CLNAME,KGRIB=NGRBQ,&
+     & LDGP=.FALSE.,KREQIN=YQ_NL%NREQIN, & 
+     & PREFVALI=YQ_NL%REFVALI, LDREQOUT=YQ_NL%LREQOUT, LDERS=LADER,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=RV,PRCP=RCPV)
+  ENDIF
+  IF(YL_NL%LSP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YL ,CDNAME=YFAL%CLNAME,KGRIB=NGRBCLWC,&
+     & LDGP=.FALSE.,KREQIN=YL_NL%NREQIN, &
+     & PREFVALI=YL_NL%REFVALI, LDREQOUT=YL_NL%LREQOUT, LDERS=LADER,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCW)
+  ENDIF
+  IF(YI_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YI=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YI ,CDNAME=YFAI%CLNAME,KGRIB=NGRBCIWC,&
+     & LDGP=.FALSE.,KREQIN=YI_NL%NREQIN, &
+     & PREFVALI=YI_NL%REFVALI, LDREQOUT=YI_NL%LREQOUT, LDERS=LADER,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YS_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral snow not coded ')
+  ENDIF
+  IF(YR_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral rain not coded ')
+  ENDIF
+  IF(YG_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral graupels not coded ')
+  ENDIF
+  IF(YTKE_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral TKE not coded ')
+  ENDIF
+  IF(YA_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YA ,CDNAME=YFACLF%CLNAME,KGRIB=NGRBCC,&
+     & LDGP=.FALSE.,KREQIN=YA_NL%NREQIN, &
+     & PREFVALI=YA_NL%REFVALI, LDREQOUT=YA_NL%LREQOUT, LDERS=LADER,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YO3_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YO3=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YO3,CDNAME=YFAO3%CLNAME,KGRIB=NGRBO3,&
+     & LDGP=.FALSE.,KREQIN=YO3_NL%NREQIN, & 
+     & PREFVALI=YO3_NL%REFVALI, LDREQOUT=YO3_NL%LREQOUT, LDERS=LADER,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YCPF_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCPF,CDNAME=YFACPF%CLNAME,&
+     & KGRIB=YCPF_NL%IGRBCODE, LDGP=.FALSE., &
+     & KREQIN=YCPF_NL%NREQIN,PREFVALI=YCPF_NL%REFVALI,LDREQOUT=YCPF_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE., &
+     & LDT1=LLT1)
+  ENDIF
+  IF(YSPF_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSPF,CDNAME=YFASPF%CLNAME,&
+     & KGRIB=YSPF_NL%IGRBCODE,LDGP= .FALSE., &
+     & KREQIN=YSPF_NL%NREQIN,PREFVALI=YSPF_NL%REFVALI,LDREQOUT=YSPF_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE., &
+     & LDT1=LLT1)
+  ENDIF
+  IF(YSRC_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral SRC not coded ')
+  ENDIF
+  IF(YCVGQ_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCVGQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCVGQ,CDNAME=YFACVGQ%CLNAME,&
+     & KGRIB=YCVGQ_NL%IGRBCODE,LDGP= .FALSE., &
+     & KREQIN=YCVGQ_NL%NREQIN,PREFVALI=YCVGQ_NL%REFVALI,&
+     & LDREQOUT=YCVGQ_NL%LREQOUT,LDERS= .TRUE.,LD5=.FALSE., & 
+     & LDT1=LLT1)
+  ENDIF
+  IF(YSDSAT_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral SDSAT not coded ')
+  ENDIF
+  IF(YCVV_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral CVV not coded ')
+  ENDIF
+  IF(YQVA_NL%LSP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQVA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQVA,CDNAME=YFAQVA%CLNAME,&
+     & KGRIB=YQVA_NL%IGRBCODE, LDGP=.FALSE., &
+     & KREQIN=YQVA_NL%NREQIN,PREFVALI=YQVA_NL%REFVALI,LDREQOUT=YQVA_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE., &
+     & LDT1=LLT1)
+  ENDIF
+  IF(YUOM_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UOM not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UOM will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUOM,CDNAME=YFAUOM%CLNAME,&
+     & KGRIB=YUOM_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUOM_NL%NREQIN,&
+     & PREFVALI=YUOM_NL%REFVALI,LDREQOUT=YUOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YUAL_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UAL not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UAL will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUAL,CDNAME=YFAUAL%CLNAME,&
+     & KGRIB=YUAL_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUAL_NL%NREQIN,&
+     & PREFVALI=YUAL_NL%REFVALI,LDREQOUT=YUAL_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YDOM_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral DOM not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when DOM will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDOM,CDNAME=YFADOM%CLNAME,&
+     & KGRIB=YDOM_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YDOM_NL%NREQIN,&
+     & PREFVALI=YDOM_NL%REFVALI,LDREQOUT=YDOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YDAL_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral DAL not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when DAL will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDAL,CDNAME=YFADAL%CLNAME,&
+     & KGRIB=YDAL_NL%IGRBCODE,LDGP=.FALSE., & 
+     & KREQIN=YDAL_NL%NREQIN,&
+     & PREFVALI=YDAL_NL%REFVALI,LDREQOUT=YDOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YUEN_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UEN not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UEN will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUEN=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUEN,CDNAME=YFAUEN%CLNAME,&
+     & KGRIB=YUEN_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUEN_NL%NREQIN,&
+     & PREFVALI=YUEN_NL%REFVALI,LDREQOUT=YUEN_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YUNEBH_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UNEBH not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UNEBH will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUNEBH=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUNEBH,CDNAME=YFAUNEBH%CLNAME,&
+     & KGRIB=YUNEBH_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUNEBH_NL%NREQIN,&
+     & PREFVALI=YUNEBH_NL%REFVALI,LDREQOUT=YUNEBH_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+
+  ! Extra GFL variables (assumed to be all spectral in this piece of code)
+  DO JGFL=1,NGFL_EXT
+    IF(YEXT_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEXT=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EXT-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEXT(JGFL),CDNAME=YEXT_NL(JGFL)%CNAME ,&
+       & KGRIB=YEXT_NL(JGFL)%IGRBCODE,LDGP=.FALSE.,KREQIN=YEXT_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEXT_NL(JGFL)%REFVALI, LDREQOUT=YEXT_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+  ! Forcings
+  DO JGFL=1,NGFL_FORC
+    IF(YFORC_NL(JGFL)%LSP) THEN
+      CALL ABOR1('SUGFL: FORCINGS HAVE TO BE GRIDPOINT FIELDS')
+      ! ----------------------------------------------------------------------
+      ! what is below must be checked when spectral forcings will be coded!
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YFORC=>YGFLC(IGFLPTR:IGFLPTR+NGFL_FORC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YFORC(JGFL),CDNAME=YFORC_NL(JGFL)%CNAME,&
+       & KGRIB=YFORC_NL(JGFL)%IGRBCODE,LDGP=.FALSE.,KREQIN=YFORC_NL(JGFL)%NREQIN,&
+       & PREFVALI=YFORC_NL(JGFL)%REFVALI, LDREQOUT=YFORC_NL(JGFL)%LREQOUT, &
+       & LDERS=.FALSE.,LD5=.FALSE.,LDT1=.FALSE.)
+      ! ----------------------------------------------------------------------
+    ENDIF
+  ENDDO
+
+  ! Easy diagnostics
+  DO JGFL=1,NGFL_EZDIAG
+    IF(YEZDIAG_NL(JGFL)%LSP) THEN
+      CALL ABOR1('SUGFL: EZDIAG HAVE TO BE GRIDPOINT FIELDS')
+      ! ----------------------------------------------------------------------
+      ! what is below must be checked when spectral easy diag. will be coded!
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEZDIAG=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EZDIAG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEZDIAG(JGFL),CDNAME=YEZDIAG_NL(JGFL)%CNAME,&
+       & KGRIB=YEZDIAG_NL(JGFL)%IGRBCODE,LDGP=.FALSE.,&
+       & KREQIN=YEZDIAG_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEZDIAG_NL(JGFL)%REFVALI, LDREQOUT=YEZDIAG_NL(JGFL)%LREQOUT, &
+       & LDERS=.FALSE.,LD5=.FALSE.,LDT1=.FALSE.)
+      ! ----------------------------------------------------------------------
+    ENDIF
+  ENDDO
+
+!Greenhouse Gases
+  DO JGFL=1,NGHG
+    IF(YGHG_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGHG=>YGFLC(IGFLPTR:IGFLPTR+NGHG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGHG(JGFL),CDNAME=YGHG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGHG_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YGHG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGHG_NL(JGFL)%REFVALI, LDREQOUT=YGHG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+!Diagnostic tracers
+  DO JGFL=1,NTRAC
+    IF(YTRAC_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YTRAC=>YGFLC(IGFLPTR:IGFLPTR+NTRAC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YTRAC(JGFL),CDNAME=YTRAC_NL(JGFL)%CNAME ,&
+       & KGRIB=YTRAC_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YTRAC_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YTRAC_NL(JGFL)%REFVALI, LDREQOUT=YTRAC_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+!Reactive Gases
+  DO JGFL=1,NGRG
+    IF(YGRG_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGRG=>YGFLC(IGFLPTR:IGFLPTR+NGRG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGRG(JGFL),CDNAME=YGRG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGRG_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YGRG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGRG_NL(JGFL)%REFVALI, LDREQOUT=YGRG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+!Aerosols
+  DO JGFL=1,NAERO
+    IF(YAERO_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YAERO=>YGFLC(IGFLPTR:IGFLPTR+NAERO-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YAERO(JGFL),CDNAME=YAERO_NL(JGFL)%CNAME ,&
+       & KGRIB=YAERO_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YAERO_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YAERO_NL(JGFL)%REFVALI, LDREQOUT=YAERO_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+ELSE
+
+!      2.   CASE LFPART2=T
+
+  WRITE(NULOUT,*) ' SUGFL, LFPART2, YGFL%NUMFLDS=',YGFL%NUMFLDS
+ENDIF
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUGFL',1,ZHOOK_HANDLE)
+END SUBROUTINE SUGFL
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sugwd.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sugwd.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sugwd.intfb.h	(revision 3330)
@@ -0,0 +1,9 @@
+INTERFACE
+SUBROUTINE SUGWD(KULOUT,KLEV,PVAH,PVBH)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PVAH(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(KLEV+1)
+END SUBROUTINE SUGWD
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suhlph.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suhlph.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suhlph.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+subroutine suhlph(kulout)
+use parkind1 ,only : jpim ,jprb
+integer (kind=jpim),intent(in) :: kulout
+end subroutine suhlph
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suinit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suinit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suinit.F90	(revision 3330)
@@ -0,0 +1,164 @@
+SUBROUTINE SUINIT(klon,klev)
+#ifdef DOC
+
+!     **** *SUINIT* - SCM initialization.
+
+!     Purpose.
+!     --------
+
+!     **   Interface.
+!     ----------
+
+!     Explicit arguments :    None.
+!     --------------------
+
+!     Implicit arguments :    None.
+!     --------------------
+
+!     Method.
+!     -------
+
+!     Externals.   None.
+!     ----------
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+!     Eric Bazile, Francois Bouyssel et Jean-Marcel Piriou
+
+!     Modifications.
+!     --------------
+!     Original :97-02-01
+!               Jozef Vivoda, SHMI: calling sequence as in 3D model
+!                                   and ECMWF setup
+!     2001-11-27 P. Marquet : several printout on listing (NULOUT=15)
+
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!#include "tsmbkind.h"
+
+USE PARDIM, ONLY : JPMXLE
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMRIP   , ONLY : NINDAT   ,NSSSSS
+USE YOMDIM  
+USE YOMDPHY  
+! MPL 29042010: NDLNPR,RHYDR0 non initialises et pour ne pas mettre tout sudyn.F90
+USE YOMDYN  , ONLY : TSTEP , NDLNPR , RHYDR0        ! MPL 29042010
+!USE YOMEVOL  , ONLY : TECH     ,FREQFS   ,FREQFE   , FREQDDH
+!USE YOMCT0   , ONLY : LFROG
+! quelques ajouts qui viennent de suallo
+USE YOMGEM   , ONLY : VDELA    , VDELB   ,VC       ,NLOEN    ,NLOENG  ,NGPTOT
+USE YOMSTA   , ONLY : STZ      ,STPREH   ,STPRE    ,STPHI    ,STTEM   ,STDEN
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED
+USE YOEOVLP  , ONLY : RA1OVLP
+USE YOECLD   , ONLY : CETA
+USE YOECND   , ONLY : CEVAPCU
+USE YOMTOPH  , ONLY : RMESOU   ,RMESOT   ,RMESOQ
+USE YOMGC    , ONLY : GEMU     ,GELAM    ,GELAT    ,GECLO    ,GESLO    ,GM       ,GAW
+
+
+IMPLICIT NONE
+LOGICAL LLTRACE, LLDEBUG
+integer klon,klev
+CHARACTER*200 CFICP
+CHARACTER*200 CFLUX
+CHARACTER*200 CLIST
+CHARACTER*200 CFDDH
+CHARACTER*80 CNMEXP
+
+
+LLTRACE=.TRUE.
+LLDEBUG=.TRUE.
+
+!     ------------------------
+!     *    READ NAMELISTS.
+!     ------------------------
+
+!----------------------------------------------------------------
+! Elements indispensables de SUNAM pour faire tourner RRTM dans LMDZ
+!-------------------------------------------------------------------
+CFICP='Profile'
+CFLUX='Output'
+CLIST='Listing'
+CFDDH='DHFDL'
+CNMEXP='SCM'
+TSTEP=450
+! MPL 29042010 - RHYDR0 - upper boundary contition for hydrostatic
+RHYDR0=1._JPRB
+! MPL 29042010
+! NDLNPR : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)).
+!          NDLNPR=1: formulation of delta used in non hydrostatic model,
+NDLNPR=0
+print *,'SUINIT: RHYDR0 NDLNPR',RHYDR0,NDLNPR
+
+!----------------------------------------------------------------
+! Elements indispensables de SUDIM pour faire tourner RRTM dans LMDZ
+!-------------------------------------------------------------------
+NDLON=klon
+NFLEVG=klev
+NPROMA=klon
+
+!-------------------------------------------------------------------
+!JV    Initialize constants
+!     ---------------------
+!JV
+IF (LLTRACE)  WRITE(*,*) " coucou SUINIT : avant SUCST"
+WRITE(*,FMT='('' ---------------- '')')
+WRITE(*,FMT='(''     SUCST : '')')
+WRITE(*,FMT='('' ---------------- '')')
+NINDAT=20090408      !!!!! A REVOIR (MPL)
+NSSSSS=0  ! LMDZ demarre tjrs a 00h -- MPL 15.04.09
+CALL SUCST(6,NINDAT,NSSSSS,1)
+print *,'SUINIT: NINDAT, NSSSSS',NINDAT, NSSSSS
+
+IF (LLDEBUG) THEN
+WRITE(*,FMT='(''  SUINIT / apres : SUCST '')')
+ENDIF
+
+
+!     ------------------------
+!     *    ALLOCATES RECUPERES DE SUALLO
+!     ------------------------
+ALLOCATE(VDELA  (MAX(JPMXLE,NFLEVG)))
+ALLOCATE(VDELB  (MAX(JPMXLE,NFLEVG)))
+ALLOCATE( VC      (NFLEVG) )
+ALLOCATE( NLOEN   (NPROMA) )
+ALLOCATE( NLOENG   (NPROMA) )
+ALLOCATE( STZ     (NFLEVG) )
+ALLOCATE( CVDAES  (NFLEVG+1))
+ALLOCATE( CVDAEL  (NFLEVG+1))
+ALLOCATE( CVDAEU  (NFLEVG+1))
+ALLOCATE( CVDAED  (NFLEVG+1))
+ALLOCATE(RA1OVLP(NFLEVG))
+
+ALLOCATE(STPREH(0:NFLEVG)) ! Nouvel ajout MPL 22062010
+ALLOCATE(STPRE(NFLEVG))
+ALLOCATE(STPHI(NFLEVG))
+ALLOCATE(STTEM(NFLEVG))
+ALLOCATE(STDEN(NFLEVG))
+
+ALLOCATE(CETA(NFLEVG))    ! Nouvel ajout MPL 28062010
+ALLOCATE(CEVAPCU(NFLEVG))
+ALLOCATE(RMESOU(NFLEVG))
+ALLOCATE(RMESOT(NFLEVG))
+ALLOCATE(RMESOQ(NFLEVG))
+
+!     ------------------------
+!     *    ALLOCATES RECUPERES DE SUGEM2
+!     ------------------------
+
+ALLOCATE(GEMU   (NGPTOT)) ! Nouvel ajout MPL 28062010
+ALLOCATE(GELAM  (NGPTOT))
+ALLOCATE(GELAT  (NGPTOT))
+ALLOCATE(GECLO  (NGPTOT))
+ALLOCATE(GESLO  (NGPTOT))
+ALLOCATE(GM     (NGPTOT))
+ALLOCATE(GAW    (NGPTOT))
+!  
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUINIT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sujfh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sujfh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sujfh.F90	(revision 3330)
@@ -0,0 +1,66 @@
+SUBROUTINE SUJFH
+
+! Purpose :
+! -------
+!   *SUJFH* Read namelist NAMJFH & Initialize module YOMJFH
+
+! Interface :
+! ---------
+
+! Externals :
+! ---------
+!   POSNAM
+
+! Method :
+! ------
+
+! Reference :
+! ---------
+
+! Author :
+! ------
+!   15-Mar-2005 R. El Khatib  *METEO-FRANCE*
+
+! Modifications :
+! -------------
+
+! End Modifications
+!-----------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULOUT   ,NULNAM
+USE YOMLUN   , ONLY : NULOUT   
+USE YOMPLDSW , ONLY : LOPT_RS6K
+USE YOMJFH   , ONLY : N_VMASS
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+
+#include "namjfh.h"
+
+!-----------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUJFH',0,ZHOOK_HANDLE)
+
+IF (LOPT_RS6K) THEN
+  N_VMASS=8
+! Ce qui concerne NAMJFH commente par MPL le 15.04.09
+! CALL POSNAM(NULNAM,'NAMJFH')
+! READ(NULNAM,NAMJFH)
+ELSE
+  N_VMASS=0
+ENDIF
+
+WRITE(UNIT=NULOUT,FMT='('' MODULE YOMJFH'')')
+WRITE(UNIT=NULOUT,FMT='(''   N_VMASS ='',I2)') N_VMASS 
+
+
+IF (LHOOK) CALL DR_HOOK('SUJFH',1,ZHOOK_HANDLE)
+
+END SUBROUTINE SUJFH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suleg_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suleg_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suleg_mod.F90	(revision 3330)
@@ -0,0 +1,260 @@
+MODULE SULEG_MOD
+CONTAINS
+SUBROUTINE SULEG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARKIND2  ,ONLY : JPRH
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_CONSTANTS
+USE TPM_DISTR
+USE TPM_FIELDS
+
+!USE SUGAW_MOD
+USE SUPOL_MOD
+USE SUTRLE_MOD
+
+#ifdef DOC
+
+!**** *SULEG * - initialize the Legendre polynomials
+
+!     Purpose.
+!     --------
+!           Initialize COMMON YOMLEG
+
+!**   Interface.
+!     ----------
+!        *CALL* *SULEG*
+
+!        Explicit arguments :
+!        --------------------
+
+!        Implicit arguments :
+!        --------------------
+!              COMMON YOMLEG
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+!        SUGAW  (Gaussian latitudes)
+!        SUPOLM (polynomials)
+!        LFI routines for external IO's
+!        Called by SUGEM.
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        MODIFICATION : 91-04  J.M. Piriou:
+!                       - Read gaussian latitudes and PNM on LFI
+!                       - If file missing, computes
+!                       91-04 M.Hamrud:
+!                       - IO Scheme introduced
+!        MODIFICATION : 91-07-03 P.Courtier suppress derivatives
+!        MODIFICATION : 91-07-03 P.Courtier computes RATATH and RACTHE
+!        MODIFICATION : 91-07-03 P.Courtier change upper limit (NSMAX+1)
+!        MODIFICATION : 91-07-03 P.Courtier change ordering
+!     Order of the PNM in the file, as in the model :
+!         - increasing wave numbers m
+!         - for a given m, from n=NSMAX+1 to m
+!        MODIFICATION : 92-07-02 R. Bubnova: shift RATATH calculation
+!                                            to SUGEM1
+!        MODIFICATION : 92-12-17 P.Courtier multitask computations
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        MODIFICATION : 93-03-19 D.Giard : n <= NTMAX
+!        K. YESSAD    : 93-05-11 : DLMU --> global array DRMU(NDGSA:NDGEN).
+!                       (not stored currently on LFI files).
+!        MODIFICATION : 94-02-03 R. El Khatib : subroutine SULEG2 to write out
+!                       the Leg. polynomials on workfile or LFI file
+!        Modification : 94-08-31 M. Tolstykh: Setup for CUD interpolation
+!        Modified by K. YESSAD (MARCH 1995): Extra-latitudes computations
+!                 according to value of NDGSUR and LRPOLE only.
+!                 + change fancy loop numbering.
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option.
+!          - removal of LRPOLE in YOMCT0.
+!          - removal of code under LRPOLE.
+!     ------------------------------------------------------------------
+
+#endif
+
+
+IMPLICIT NONE
+
+
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB),ALLOCATABLE :: ZPNMG(:,:)
+
+REAL(KIND=JPRH) :: DLRMU(R%NDGL)
+REAL(KIND=JPRH) :: DLC(0:R%NTMAX+1,0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLD(0:R%NTMAX+1,0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLE(0:R%NTMAX+1,0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLA(0:R%NTMAX+1),DLB(0:R%NTMAX+1),DLF(0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLG(0:R%NTMAX+1),DLH(0:R%NTMAX+1),DLI(0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLPOL(0:R%NTMAX+1,0:R%NTMAX+1)
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPKS=KIND(ZPNMG)
+INTEGER(KIND=JPIM), PARAMETER :: JPKD=KIND(DLG)
+
+!     ------------------------------------------------------------------
+REAL(KIND=JPRH) :: DA,DC,DD,DE
+INTEGER(KIND=JPIM) :: KKN, KKM
+
+!     LOCAL 
+INTEGER(KIND=JPIM) :: IGLLOC, INM, IM , ICOUNT,&
+             &JGL,  JM, JMLOC, JN, JNM
+
+
+LOGICAL :: LLP1,LLP2
+
+
+DC(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN+KKM-1,JPKD)&
+                   &*REAL(KKN+KKM-3,JPKD))&
+                &/ (REAL(2*KKN-3,JPKD)*REAL(KKN+KKM,JPKD)&
+                   &*REAL(KKN+KKM-2,JPKD)) )
+DD(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN+KKM-1,JPKD)&
+                   &*REAL(KKN-KKM+1,JPKD))&
+                &/ (REAL(2*KKN-1,JPKD)*REAL(KKN+KKM,JPKD)&
+                  &*REAL(KKN+KKM-2,JPKD)) )
+DE(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN-KKM,JPKD))&
+                &/ (REAL(2*KKN-1,JPKD)*REAL(KKN+KKM,JPKD)) )
+DA(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN-KKM,JPKD)&
+                   &*REAL(KKN+KKM,JPKD))&
+                &/  REAL(2*KKN-1,JPKD) )
+
+!     ------------------------------------------------------------------
+ALLOCATE(ZPNMG(R%NSPOLEG,D%NLEI3D))
+
+!*       0.    Some initializations.
+!              ---------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SULEG ==='
+
+!CALL GSTATS(140,0)  !MPL 4.12.08
+ALLOCATE(F%RPNM(R%NLEI3,D%NSPOLEGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RPNM    ',SIZE(F%RPNM),SHAPE(F%RPNM) 
+ALLOCATE(F%RMU(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RMU     ',SIZE(F%RMU ),SHAPE(F%RMU ) 
+ALLOCATE(F%RW(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RW      ',SIZE(F%RW  ),SHAPE(F%RW  ) 
+ALLOCATE(F%R1MU2(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%R1MU2   ',SIZE(F%R1MU2),SHAPE(F%R1MU2 ) 
+ALLOCATE(F%RACTHE(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RACTHE  ',SIZE(F%RACTHE),SHAPE(F%RACTHE ) 
+
+!CALL GSTATS(1801,0) ! MPL 4.12.08
+DO JNM=1,D%NSPOLEGL
+  F%RPNM(R%NLEI3,JNM) = 0.0_JPRB
+ENDDO
+!CALL GSTATS(1801,1)     ! MPL 4.12.08
+
+!     ------------------------------------------------------------------
+
+!*       3.1   Gaussian latitudes and weights
+!CALL SUGAW(R%NDGL,F%RMU,DLRMU,F%RW)
+
+!*       3.2   Computes related arrays
+
+DO JGL=1,R%NDGL
+  F%R1MU2(JGL) = REAL(1.0_JPRB-DLRMU(JGL)*DLRMU(JGL),JPKS)
+  F%RACTHE(JGL) = REAL(1.0_JPRB/SQRT(1.0_JPRB-DLRMU(JGL)*DLRMU(JGL))/&
+   &REAL(RA,JPKD),JPKS)
+ENDDO
+
+!*       3.3   Working arrays
+DO JN=3,R%NTMAX+1
+  DO JM=2,JN-1
+    DLC(JM,JN) = DC(JN,JM)
+    DLD(JM,JN) = DD(JN,JM)
+    DLE(JM,JN) = DE(JN,JM)
+  ENDDO
+ENDDO
+
+DO JN=1,R%NTMAX+1
+  DLA(JN) = SQRT(REAL(2*JN+1,JPKD))
+  DLB(JN) = SQRT(REAL(2*JN+1,JPKD)/REAL(JN*(JN+1),JPKD))
+  DLF(JN) = REAL(2*JN-1,JPKD)/REAL(JN,JPKD)
+  DLG(JN) = REAL(JN-1,JPKD)/REAL(JN,JPKD)
+  DLH(JN) = SQRT(REAL(2*JN+1,JPKD)/REAL(2*JN,JPKD))
+  DLI(JN) = REAL(JN,JPKD)
+ENDDO
+
+!CALL GSTATS(1801,0)  ! MPL 4.12.08
+DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+  DLPOL(:,:) = 0.0_JPRB
+  CALL SUPOL(R%NTMAX+1,DLRMU(JGL),DLPOL,DLA,DLB,DLC,DLD,DLE,DLF,DLG,DLH,DLI)
+  INM = 0
+  IGLLOC = JGL - D%NLATLS(MYSETW) + 1
+  DO JM=0,R%NSMAX
+    DO JN=R%NTMAX+1,JM,-1
+      INM = INM+1
+      ZPNMG(INM,IGLLOC) = REAL(DLPOL(JM,JN),JPKS)
+    ENDDO
+  ENDDO
+ENDDO
+!CALL GSTATS(1801,1) !  MPL 4.12.08
+!CALL GSTATS(140,1)  ! MPL 4.12.08
+
+!CALL GSTATS(190,0)  ! MPL 4.12.08
+CALL SUTRLE(ZPNMG)
+!CALL GSTATS(190,1)  ! MPL 4.12.08
+
+ICOUNT = 0
+DO JMLOC=1,D%NUMP
+  IM = D%MYMS(JMLOC)
+  DO JN=IM,R%NTMAX+2
+    ICOUNT = ICOUNT+1
+  ENDDO
+ENDDO
+
+ALLOCATE(F%REPSNM(ICOUNT))
+IF (LLP2) WRITE(NOUT,9) 'F%REPSNM  ',SIZE(F%REPSNM ),SHAPE(F%REPSNM ) 
+
+ICOUNT = 0
+DO JMLOC=1,D%NUMP
+  IM = D%MYMS(JMLOC)
+  DO JN=IM,R%NTMAX+2
+    ICOUNT = ICOUNT+1
+    F%REPSNM(ICOUNT) = REAL(SQRT(REAL(JN*JN-IM*IM,JPKD)/&
+     &REAL(4*JN*JN-1,JPKD)),JPKS)
+  ENDDO
+ENDDO
+
+ALLOCATE(F%RN(-1:R%NTMAX+3))
+IF (LLP2) WRITE(NOUT,9) 'F%RN      ',SIZE(F%RN     ),SHAPE(F%RN     ) 
+ALLOCATE(F%RLAPIN(-1:R%NSMAX+2))
+IF (LLP2) WRITE(NOUT,9) 'F%RLAPIN  ',SIZE(F%RLAPIN ),SHAPE(F%RLAPIN ) 
+ALLOCATE(F%NLTN(-1:R%NTMAX+3))
+IF (LLP2) WRITE(NOUT,9) 'F%NLTN    ',SIZE(F%NLTN ),SHAPE(F%NLTN ) 
+
+DO JN=-1,R%NTMAX+3
+  F%RN(JN) = REAL(JN,JPRB)
+  F%NLTN(JN) = R%NTMAX+2-JN
+ENDDO
+F%RLAPIN(:) = 0.0_JPRB
+F%RLAPIN(0) = 0._JPRB
+F%RLAPIN(-1) = 0.0_JPRB
+DO JN=1,R%NSMAX+2
+  F%RLAPIN(JN)=REAL(-(REAL(RA,JPKD)*REAL(RA,JPKD))/REAL(JN*(JN+1),JPKD),JPKS)
+ENDDO
+
+DEALLOCATE(ZPNMG)
+
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SULEG
+END MODULE SULEG_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulw15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulw15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulw15.F90	(revision 3330)
@@ -0,0 +1,1243 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SULW15
+
+!**** *SULW15*   - INITIALIZE COMMON YOMLW15
+!****              FROZEN VERSION (CYCLE 15) OF SULW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMLW15, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SULW15
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMLW15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLW15  , ONLY : MXIXT15  ,NINT15   ,NIPD15   ,NIPD215  ,&
+ & NTR15    ,NTRA15   ,NUA15    ,NG115    ,NG1P115  ,&
+ & AT15     ,BT15     ,RNTNU15  ,GA15     ,GB15     ,&
+ & OCT15    ,O1H15    ,O2H15    ,RPIALF015,RT115    ,&
+ & TINTP15  ,TREF15   ,TSTAND15 ,TSTP15   ,WG115    ,&
+ & XP15     ,RVGCO215 ,RVGH2O15 ,RVGO315  
+
+IMPLICIT NONE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES.
+!              -----------
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SULW15',0,ZHOOK_HANDLE)
+NG115=2
+NG1P115=NG115+1
+NINT15=6
+NIPD15=8
+NIPD215=2*NIPD15
+NTR15=11
+NTRA15=15
+NUA15=24
+
+!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
+
+RVGCO215= 60._JPRB
+RVGH2O15= 30._JPRB
+RVGO315 =400._JPRB
+
+!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND15
+!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF15
+TSTAND15 = 250.0_JPRB
+TREF15   = 250.0_JPRB
+
+!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
+RT115 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
+WG115 = (/  1.0_JPRB        ,  1.0_JPRB         /)
+
+!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
+TSTP15 = 12.5_JPRB
+MXIXT15= 10
+
+!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
+TINTP15 = (/ 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
+
+XP15 = RESHAPE((/&
+ & 0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
+ & 0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB,&
+ & 0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
+ & -0.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB,&
+ & 0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
+ & 0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB,&
+ & 0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
+ & 0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB,&
+ & 0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
+ & -0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB,&
+ & 0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
+ & 0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB /)&
+ & ,SHAPE=(/6,6/))  
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
+!     THE ABSORPTION
+AT15(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
+BT15(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
+AT15(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
+BT15(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
+AT15(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
+BT15(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
+AT15(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
+BT15(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
+AT15(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
+BT15(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
+AT15(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
+BT15(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
+AT15(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
+BT15(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
+AT15(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
+BT15(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
+
+!--  COEFFICIENTS FOR OZONE ABSORPTION
+
+O1H15 = 2230._JPRB
+O2H15 = 100._JPRB
+RPIALF015 = 2._JPRB
+OCT15(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
+
+!--  COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
+
+RNTNU15(:) = (/   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
+GA15( 1, 1,:) = (/&
+ & 0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 1,:) = (/&
+ & 0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 2,:) = (/&
+ & 0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2, 1,:) = (/&
+ & 0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 1,:) = (/&
+ & 0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 2,:) = (/&
+ & 0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3, 1,:) = (/&
+ & 0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 1,:) = (/&
+ & 0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 2,:) = (/&
+ & 0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4, 1,:) = (/&
+ & 0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 1,:) = (/&
+ & 0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 2,:) = (/&
+ & 0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5, 1,:) = (/&
+ & 0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 1,:) = (/&
+ & 0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 2,:) = (/&
+ & 0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6, 1,:) = (/&
+ & 0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 1,:) = (/&
+ & 0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 2,:) = (/&
+ & 0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7, 1,:) = (/&
+ & 0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 1,:) = (/&
+ & 0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 2,:) = (/&
+ & 0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8, 1,:) = (/&
+ & 0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 1,:) = (/&
+ & 0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 2,:) = (/&
+ & 0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9, 1,:) = (/&
+ & 0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 1,:) = (/&
+ & 0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 2,:) = (/&
+ & 0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10, 1,:) = (/&
+ & 0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 1,:) = (/&
+ & 0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 2,:) = (/&
+ & 0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11, 1,:) = (/&
+ & 0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 1,:) = (/&
+ & 0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 2,:) = (/&
+ & 0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1, 3,:) = (/&
+ & 0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 3,:) = (/&
+ & 0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 4,:) = (/&
+ & 0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2, 3,:) = (/&
+ & 0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 3,:) = (/&
+ & 0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 4,:) = (/&
+ & 0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3, 3,:) = (/&
+ & 0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 3,:) = (/&
+ & 0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 4,:) = (/&
+ & 0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4, 3,:) = (/&
+ & 0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 3,:) = (/&
+ & 0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 4,:) = (/&
+ & 0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5, 3,:) = (/&
+ & 0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 3,:) = (/&
+ & 0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 4,:) = (/&
+ & 0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6, 3,:) = (/&
+ & 0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 3,:) = (/&
+ & 0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 4,:) = (/&
+ & 0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7, 3,:) = (/&
+ & 0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 3,:) = (/&
+ & 0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 4,:) = (/&
+ & 0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8, 3,:) = (/&
+ & 0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 3,:) = (/&
+ & 0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 4,:) = (/&
+ & 0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9, 3,:) = (/&
+ & 0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 3,:) = (/&
+ & 0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 4,:) = (/&
+ & 0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10, 3,:) = (/&
+ & 0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 3,:) = (/&
+ & 0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 4,:) = (/&
+ & 0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11, 3,:) = (/&
+ & 0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 3,:) = (/&
+ & 0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 4,:) = (/&
+ & 0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1, 7,:) = (/&
+ & 0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 7,:) = (/&
+ & 0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 8,:) = (/&
+ & 0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2, 7,:) = (/&
+ & 0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 7,:) = (/&
+ & 0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 8,:) = (/&
+ & 0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3, 7,:) = (/&
+ & 0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 7,:) = (/&
+ & 0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 8,:) = (/&
+ & 0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4, 7,:) = (/&
+ & 0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 7,:) = (/&
+ & 0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 8,:) = (/&
+ & 0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5, 7,:) = (/&
+ & 0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 7,:) = (/&
+ & 0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 8,:) = (/&
+ & 0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6, 7,:) = (/&
+ & 0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 7,:) = (/&
+ & 0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 8,:) = (/&
+ & 0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7, 7,:) = (/&
+ & 0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 7,:) = (/&
+ & 0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 8,:) = (/&
+ & 0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8, 7,:) = (/&
+ & 0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 7,:) = (/&
+ & 0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 8,:) = (/&
+ & 0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9, 7,:) = (/&
+ & 0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 7,:) = (/&
+ & 0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 8,:) = (/&
+ & 0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10, 7,:) = (/&
+ & 0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 7,:) = (/&
+ & 0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 8,:) = (/&
+ & 0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11, 7,:) = (/&
+ & 0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 7,:) = (/&
+ & 0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 8,:) = (/&
+ & 0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1, 9,:) = (/&
+ & 0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 9,:) = (/&
+ & 0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,10,:) = (/&
+ & 0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2, 9,:) = (/&
+ & 0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 9,:) = (/&
+ & 0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,10,:) = (/&
+ & 0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3, 9,:) = (/&
+ & 0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 9,:) = (/&
+ & 0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,10,:) = (/&
+ & 0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4, 9,:) = (/&
+ & 0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 9,:) = (/&
+ & 0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,10,:) = (/&
+ & 0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5, 9,:) = (/&
+ & 0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 9,:) = (/&
+ & 0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,10,:) = (/&
+ & 0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6, 9,:) = (/&
+ & 0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 9,:) = (/&
+ & 0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,10,:) = (/&
+ & 0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7, 9,:) = (/&
+ & 0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 9,:) = (/&
+ & 0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,10,:) = (/&
+ & 0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8, 9,:) = (/&
+ & 0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 9,:) = (/&
+ & 0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,10,:) = (/&
+ & 0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9, 9,:) = (/&
+ & 0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 9,:) = (/&
+ & 0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,10,:) = (/&
+ & 0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10, 9,:) = (/&
+ & 0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 9,:) = (/&
+ & 0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,10,:) = (/&
+ & 0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11, 9,:) = (/&
+ & 0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 9,:) = (/&
+ & 0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,10,:) = (/&
+ & 0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1, 5,:) = (/&
+ & 0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 5,:) = (/&
+ & 0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 6,:) = (/&
+ & 0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2, 5,:) = (/&
+ & 0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 5,:) = (/&
+ & 0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 6,:) = (/&
+ & 0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3, 5,:) = (/&
+ & 0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 5,:) = (/&
+ & 0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 6,:) = (/&
+ & 0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4, 5,:) = (/&
+ & 0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 5,:) = (/&
+ & 0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 6,:) = (/&
+ & 0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5, 5,:) = (/&
+ & 0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 5,:) = (/&
+ & 0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 6,:) = (/&
+ & 0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6, 5,:) = (/&
+ & 0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 5,:) = (/&
+ & 0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 6,:) = (/&
+ & 0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7, 5,:) = (/&
+ & 0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 5,:) = (/&
+ & 0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 6,:) = (/&
+ & 0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8, 5,:) = (/&
+ & 0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 5,:) = (/&
+ & 0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 6,:) = (/&
+ & 0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9, 5,:) = (/&
+ & 0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 5,:) = (/&
+ & 0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 6,:) = (/&
+ & 0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10, 5,:) = (/&
+ & 0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 5,:) = (/&
+ & 0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 6,:) = (/&
+ & 0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11, 5,:) = (/&
+ & 0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 5,:) = (/&
+ & 0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 6,:) = (/&
+ & 0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1,11,:) = (/&
+ & 0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,11,:) = (/&
+ & 0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,12,:) = (/&
+ & 0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2,11,:) = (/&
+ & 0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,11,:) = (/&
+ & 0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,12,:) = (/&
+ & 0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3,11,:) = (/&
+ & 0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,11,:) = (/&
+ & 0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,12,:) = (/&
+ & 0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4,11,:) = (/&
+ & 0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,11,:) = (/&
+ & 0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,12,:) = (/&
+ & 0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5,11,:) = (/&
+ & 0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,11,:) = (/&
+ & 0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,12,:) = (/&
+ & 0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6,11,:) = (/&
+ & 0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,11,:) = (/&
+ & 0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,12,:) = (/&
+ & -0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7,11,:) = (/&
+ & -0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,11,:) = (/&
+ & -0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,12,:) = (/&
+ & 0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8,11,:) = (/&
+ & -0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,11,:) = (/&
+ & -0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,12,:) = (/&
+ & 0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9,11,:) = (/&
+ & 0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,11,:) = (/&
+ & 0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,12,:) = (/&
+ & 0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10,11,:) = (/&
+ & 0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,11,:) = (/&
+ & 0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,12,:) = (/&
+ & 0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11,11,:) = (/&
+ & 0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,11,:) = (/&
+ & 0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,12,:) = (/&
+ & 0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1,13,:) = (/&
+ & 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,13,:) = (/&
+ & 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,14,:) = (/&
+ & 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2,13,:) = (/&
+ & 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,13,:) = (/&
+ & 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,14,:) = (/&
+ & 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3,13,:) = (/&
+ & 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,13,:) = (/&
+ & 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,14,:) = (/&
+ & 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4,13,:) = (/&
+ & 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,13,:) = (/&
+ & 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,14,:) = (/&
+ & 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5,13,:) = (/&
+ & 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,13,:) = (/&
+ & 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,14,:) = (/&
+ & 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6,13,:) = (/&
+ & 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,13,:) = (/&
+ & 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,14,:) = (/&
+ & 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7,13,:) = (/&
+ & 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,13,:) = (/&
+ & 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,14,:) = (/&
+ & 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8,13,:) = (/&
+ & 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,13,:) = (/&
+ & 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,14,:) = (/&
+ & 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9,13,:) = (/&
+ & 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,13,:) = (/&
+ & 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,14,:) = (/&
+ & 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10,13,:) = (/&
+ & 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,13,:) = (/&
+ & 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,14,:) = (/&
+ & 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11,13,:) = (/&
+ & 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,13,:) = (/&
+ & 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,14,:) = (/&
+ & 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15( 1,15,:) = (/&
+ & 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,15,:) = (/&
+ & 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,16,:) = (/&
+ & 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 2,15,:) = (/&
+ & 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,15,:) = (/&
+ & 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,16,:) = (/&
+ & 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 3,15,:) = (/&
+ & 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,15,:) = (/&
+ & 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,16,:) = (/&
+ & 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 4,15,:) = (/&
+ & 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,15,:) = (/&
+ & 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,16,:) = (/&
+ & 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 5,15,:) = (/&
+ & 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,15,:) = (/&
+ & 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,16,:) = (/&
+ & 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 6,15,:) = (/&
+ & 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,15,:) = (/&
+ & 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,16,:) = (/&
+ & 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 7,15,:) = (/&
+ & 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,15,:) = (/&
+ & 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,16,:) = (/&
+ & 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 8,15,:) = (/&
+ & 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,15,:) = (/&
+ & 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,16,:) = (/&
+ & 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15( 9,15,:) = (/&
+ & 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,15,:) = (/&
+ & 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,16,:) = (/&
+ & 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 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
+GA15(10,15,:) = (/&
+ & 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,15,:) = (/&
+ & 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,16,:) = (/&
+ & 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(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
+GA15(11,15,:) = (/&
+ & 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,15,:) = (/&
+ & 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,16,:) = (/&
+ & 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,16,:) = (/&
+ & 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('SULW15',1,ZHOOK_HANDLE)
+END SUBROUTINE SULW15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulw15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulw15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulw15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SULW15
+END SUBROUTINE SULW15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwn.F90	(revision 3330)
@@ -0,0 +1,1215 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SULWN',0,ZHOOK_HANDLE)
+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 = (/  1.0_JPRB        ,  1.0_JPRB         /)
+
+!-- 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
+
+!     ------------------------------------------------------------------ 
+
+IF (LHOOK) CALL DR_HOOK('SULWN',1,ZHOOK_HANDLE)
+END SUBROUTINE SULWN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwn.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwn.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwn.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SULWN
+END SUBROUTINE SULWN
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwneur.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwneur.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sulwneur.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SULWNEUR(KLEV)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+END SUBROUTINE SULWNEUR
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumethox.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumethox.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumethox.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUMETHOX
+END SUBROUTINE SUMETHOX
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sump_trans_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sump_trans_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sump_trans_mod.F90	(revision 3330)
@@ -0,0 +1,236 @@
+MODULE SUMP_TRANS_MOD
+CONTAINS
+SUBROUTINE SUMP_TRANS
+
+! Set up distributed environment for the transform package (part 2)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_GEOMETRY
+USE TPM_DISTR
+
+USE SUWAVEDI_MOD
+USE PE2SET_MOD
+USE SUMPLATF_MOD
+USE SUMPLAT_MOD
+USE SUSTAONL_MOD
+USE MYSENDSET_MOD
+USE MYRECVSET_MOD
+USE EQ_REGIONS_MOD
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JM,JMLOC
+INTEGER(KIND=JPIM) :: JGL,IGL,IPLAT,ISENDSET,IRECVSET,JML,IPOS,IM
+INTEGER(KIND=JPIM) :: I1,I2,I3,IAUX0,IAUX1,JA1
+INTEGER(KIND=JPIM) :: IGPTOT,IMEDIAP,IRESTM,JA,JB,IOFF
+INTEGER(KIND=JPIM),ALLOCATABLE :: IGPTOTL(:,:)
+
+LOGICAL    :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SUMP_TRANS ==='
+
+ALLOCATE(D%NULTPP(NPRTRNS))
+IF(LLP2)WRITE(NOUT,9) 'D%NULTPP   ',SIZE(D%NULTPP   ),SHAPE(D%NULTPP   )
+ALLOCATE(D%NPTRLS(NPRTRNS))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRLS   ',SIZE(D%NPTRLS   ),SHAPE(D%NPTRLS   )
+ALLOCATE(D%NPROCL(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%NPROCL   ',SIZE(D%NPROCL   ),SHAPE(D%NPROCL   )
+
+CALL SUMPLATF(R%NDGL,NPRTRNS,MYSETW,D%NULTPP,D%NPROCL,D%NPTRLS)
+D%NDGL_FS = D%NULTPP(MYSETW)
+
+! Help arrays for spectral to fourier space transposition
+ALLOCATE(D%NLTSGTB (NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NLTSGTB ',SIZE(D%NLTSGTB),SHAPE(D%NLTSGTB)
+ALLOCATE(D%NLTSFTB (NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NLTSFTB ',SIZE(D%NLTSFTB),SHAPE(D%NLTSFTB)
+ALLOCATE(D%NSTAGT0B(NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTAGT0B ',SIZE(D%NSTAGT0B),SHAPE(D%NSTAGT0B)
+ALLOCATE(D%NSTAGT1B(NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTAGT1B ',SIZE(D%NSTAGT1B),SHAPE(D%NSTAGT1B)
+ALLOCATE(D%MSTABF  (NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%MSTABF ',SIZE(D%MSTABF),SHAPE(D%MSTABF)
+
+D%NLTSGTB(:) = 0
+DO JGL=1,D%NDGL_FS
+  IGL = D%NPTRLS(MYSETW)+JGL-1
+  DO JM=0,G%NMEN(IGL)
+    D%NLTSGTB(D%NPROCM(JM)) = D%NLTSGTB(D%NPROCM(JM))+1
+  ENDDO
+ENDDO
+DO JA=1,NPRTRW
+  IPLAT = 0
+  DO JGL=1,D%NULTPP(JA)
+    IGL = D%NPTRLS(JA)+JGL-1
+    DO JM=1,D%NUMP
+      IF(IGL > R%NDGNH-G%NDGLU(D%MYMS(JM)) .AND. IGL <= R%NDGNH+G%NDGLU(D%MYMS(JM))) THEN
+        IPLAT = IPLAT + 1
+      ENDIF
+    ENDDO
+  ENDDO
+  D%NLTSFTB(JA) = IPLAT
+ENDDO
+
+DO JA=1,NPRTRW-1
+  ISENDSET = MYSENDSET(NPRTRW,MYSETW,JA)
+  IRECVSET = MYRECVSET(NPRTRW,MYSETW,JA)
+  D%MSTABF(IRECVSET) = ISENDSET
+ENDDO
+D%MSTABF(MYSETW) = MYSETW
+
+ALLOCATE(D%NPNTGTB0(0:R%NSMAX,D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'D%NPNTGTB0 ',SIZE(D%NPNTGTB0 ),SHAPE(D%NPNTGTB0 )
+ALLOCATE(D%NPNTGTB1(D%NUMP,R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%NPNTGTB1 ',SIZE(D%NPNTGTB1 ),SHAPE(D%NPNTGTB1 )
+
+DO JA=1,NPRTRW
+  IPOS = 0
+  DO JGL=1,D%NULTPP(MYSETW)
+    IGL = D%NPTRLS(MYSETW) + JGL - 1
+    DO JML=D%NPTRMS(JA),D%NPTRMS(JA)+D%NUMPP(JA)-1
+      IM = D%NALLMS(JML)
+      IF (IM  <=  G%NMEN(IGL)) THEN
+        D%NPNTGTB0(IM,JGL) = IPOS
+        IPOS = IPOS+1
+      ELSE
+        D%NPNTGTB0(IM,JGL) = -99
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JA=1,NPRTRW
+  IPOS = 0
+  DO JGL=1,D%NULTPP(JA)
+    IGL = D%NPTRLS(JA) + JGL - 1
+    DO JM=1,D%NUMP
+      IM = D%MYMS(JM)
+      IF (IM  <=  G%NMEN(IGL)) THEN
+        D%NPNTGTB1(JM,IGL) = IPOS
+        IPOS = IPOS+1
+      ELSE
+        D%NPNTGTB1(JM,IGL) = -99
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+
+IAUX0 = 0
+IAUX1 = 0
+DO JA=1,NPRTRNS-1
+  I1 = MYSENDSET(NPRTRNS,MYSETW,JA)
+  I2 = MYRECVSET(NPRTRNS,MYSETW,JA)
+  DO JA1=1,NPRTRNS-1
+    IF(MYSENDSET(NPRTRNS,MYSETW,JA1) == I2) I3 =MYRECVSET(NPRTRNS,MYSETW,JA1)
+  ENDDO
+  IAUX0 = MAX(D%NLTSFTB(I1),D%NLTSGTB(I2),IAUX0)
+  IAUX1 = MAX(D%NLTSGTB(I2),D%NLTSFTB(I3),IAUX1)
+ENDDO
+IAUX0 = MAX(D%NLTSGTB(MYSETW),IAUX0)
+IAUX1 = MAX(D%NLTSGTB(MYSETW),IAUX1)
+DO JA=1,NPRTRNS+1
+  D%NSTAGT0B(JA) = (JA-1)*IAUX0
+  D%NSTAGT1B(JA) = (JA-1)*IAUX1
+ENDDO
+D%NLENGT0B = IAUX0*NPRTRNS
+D%NLENGT1B = IAUX1*NPRTRNS
+
+! GRIDPOINT SPACE
+
+ALLOCATE(D%NFRSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9) 'D%NFRSTLAT ',SIZE(D%NFRSTLAT ),SHAPE(D%NFRSTLAT )
+ALLOCATE(D%NLSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9) 'D%NLSTLAT  ',SIZE(D%NLSTLAT  ),SHAPE(D%NLSTLAT  )
+ALLOCATE(D%NPTRLAT(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRLAT  ',SIZE(D%NPTRLAT  ),SHAPE(D%NPTRLAT  )
+ALLOCATE(D%NPTRFRSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRFRSTLAT',SIZE(D%NPTRFRSTLAT),SHAPE(D%NPTRFRSTLAT)
+ALLOCATE(D%NPTRLSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9)'D%NPTRLSTLAT',SIZE(D%NPTRLSTLAT),SHAPE(D%NPTRLSTLAT)
+ALLOCATE(D%LSPLITLAT(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%LSPLITLAT',SIZE(D%LSPLITLAT),SHAPE(D%LSPLITLAT)
+
+
+CALL SUMPLAT(R%NDGL,NPROC,N_REGIONS_NS,MY_REGION_NS,D%LSPLIT,LEQ_REGIONS,&
+             &D%NFRSTLAT,D%NLSTLAT,D%NFRSTLOFF,D%NPTRLAT,&
+             &D%NPTRFRSTLAT,D%NPTRLSTLAT,D%NPTRFLOFF,&
+             &IMEDIAP,IRESTM,D%LSPLITLAT)
+
+D%NDGL_GP = D%NLSTLAT(MY_REGION_NS)-D%NFRSTLOFF
+
+IF (LLP1) THEN
+  WRITE(NOUT,FMT='(/'' OUTPUT FROM ROUTINE SUMPLAT: ''/)')
+  WRITE(NOUT,FMT='('' D%NULTPP '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NULTPP(1:NPRTRNS)
+  WRITE(NOUT,FMT='('' D%NPROCL '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPROCL(1:R%NDGL)
+  WRITE(NOUT,FMT='('' D%NFRSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NFRSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='('' D%NLSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NLSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='('' D%NFRSTLOFF  D%NPTRFLOFF '')')
+  WRITE(NOUT,FMT='(2(1X,I6))') D%NFRSTLOFF, D%NPTRFLOFF
+  WRITE(NOUT,FMT='('' D%NPTRLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPTRLAT(1:R%NDGL)
+  WRITE(NOUT,FMT='('' D%LSPLITLAT '')')
+  WRITE(NOUT,FMT='(50(1X,L1))') D%LSPLITLAT(1:R%NDGL)
+  WRITE(NOUT,FMT='('' D%NPTRFRSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPTRFRSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='('' D%NPTRLSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPTRLSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='(/)')
+ENDIF
+ALLOCATE(D%NSTA(R%NDGL+N_REGIONS_NS-1,N_REGIONS_EW))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTA     ',SIZE(D%NSTA     ),SHAPE(D%NSTA     )
+ALLOCATE(D%NONL(R%NDGL+N_REGIONS_NS-1,N_REGIONS_EW))
+IF(LLP2)WRITE(NOUT,9) 'D%NONL     ',SIZE(D%NONL     ),SHAPE(D%NONL     )
+
+CALL SUSTAONL(IMEDIAP,IRESTM)
+
+!  IGPTOTL is the number of grid points in each individual processor
+ALLOCATE(IGPTOTL(N_REGIONS_NS,N_REGIONS_EW))
+IGPTOTL(:,:)=0
+
+DO JA=1,N_REGIONS_NS
+  DO JB=1,N_REGIONS(JA)
+    IGPTOT = 0
+    DO JGL=D%NPTRFRSTLAT(JA),D%NPTRLSTLAT(JA)
+      IGPTOT = IGPTOT+D%NONL(JGL,JB)
+    ENDDO
+    IGPTOTL(JA,JB) = IGPTOT
+  ENDDO
+ENDDO
+D%NGPTOT = IGPTOTL(MY_REGION_NS,MY_REGION_EW)
+D%NGPTOTMX = MAXVAL(IGPTOTL)
+D%NGPTOTG = SUM(IGPTOTL)
+ALLOCATE(D%NGPTOTL(N_REGIONS_NS,N_REGIONS_EW))
+IF(LLP2)WRITE(NOUT,9) 'D%NGPTOTL     ',SIZE(D%NGPTOTL ),SHAPE(D%NGPTOTL  )
+D%NGPTOTL(:,:) = IGPTOTL(:,:)
+
+ALLOCATE(D%NSTAGTF(D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTAGTF     ',SIZE(D%NSTAGTF ),SHAPE(D%NSTAGTF  )
+IOFF = 0
+DO JGL=1,D%NDGL_FS
+  D%NSTAGTF(JGL) = IOFF
+  IGL = D%NPTRLS(MYSETW) + JGL - 1
+  IOFF = IOFF + G%NLOEN(IGL)+3
+ENDDO
+D%NLENGTF = IOFF
+
+DEALLOCATE(IGPTOTL)
+
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SUMP_TRANS
+END MODULE SUMP_TRANS_MOD
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sump_trans_preleg_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sump_trans_preleg_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sump_trans_preleg_mod.F90	(revision 3330)
@@ -0,0 +1,125 @@
+MODULE SUMP_TRANS_PRELEG_MOD
+CONTAINS
+SUBROUTINE SUMP_TRANS_PRELEG
+
+! Set up distributed environment for the transform package (part 1)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM 
+USE TPM_DISTR
+
+USE SUWAVEDI_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JA,JJ,JM,JMLOC,ILATPP,IRESTL,IMLOC,IDT,INM
+
+INTEGER(KIND=JPIM) :: IMYMS(R%NSMAX+1),INUMTPP(NPRTRW)
+INTEGER(KIND=JPIM) :: IDUMI1,IDUMI2,IDUMI3
+INTEGER(KIND=JPIM) :: IDUM2(0:R%NSMAX), IDUM3(NPRTRW+1), IDUM4(R%NSMAX+1)
+
+LOGICAL :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SUMP_TRANS_PRELEG ==='
+
+!*       1.    Initialize partitioning of wave numbers to PEs ! 
+!             ----------------------------------------------
+
+ALLOCATE(D%NASM0(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NASM0 ',SIZE(D%NASM0   ),SHAPE(D%NASM0   )
+ALLOCATE(D%NATM0(0:R%NTMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NATM0 ',SIZE(D%NATM0   ),SHAPE(D%NATM0   )
+ALLOCATE(D%NUMPP(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NUMPP ',SIZE(D%NUMPP   ),SHAPE(D%NUMPP   )
+ALLOCATE(D%NPOSSP(NPRTRW+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NPOSSP',SIZE(D%NPOSSP  ),SHAPE(D%NPOSSP  )
+ALLOCATE(D%NPROCM(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPROCM',SIZE(D%NPROCM  ),SHAPE(D%NPROCM  )
+ALLOCATE(D%NPTRMS(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRMS   ',SIZE(D%NPTRMS   ),SHAPE(D%NPTRMS   )
+ALLOCATE(D%NALLMS(R%NSMAX+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NALLMS   ',SIZE(D%NALLMS   ),SHAPE(D%NALLMS   )
+ALLOCATE(D%NDIM0G(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NDIM0G   ',SIZE(D%NDIM0G   ),SHAPE(D%NDIM0G   )
+
+CALL SUWAVEDI(R%NSMAX,R%NTMAX,NPRTRW,MYSETW,&
+    &D%NASM0,D%NSPOLEGL,D%NPROCM,D%NUMPP,&
+    &D%NSPEC,D%NSPEC2,D%NSPEC2MX,D%NPOSSP,IMYMS,&
+    &D%NPTRMS,D%NALLMS,D%NDIM0G)
+CALL SUWAVEDI(R%NTMAX,R%NTMAX,NPRTRW,MYSETW,&
+    &KASM0=D%NATM0,KUMPP=INUMTPP,KSPEC2=D%NTPEC2)
+
+D%NUMP  = D%NUMPP (MYSETW)
+ALLOCATE(D%MYMS(D%NUMP))
+IF(LLP2)WRITE(NOUT,9) 'D%MYMS    ',SIZE(D%MYMS   ),SHAPE(D%MYMS   )
+D%MYMS(:) = IMYMS(1:D%NUMP)
+D%NUMTP = INUMTPP(MYSETW)
+
+IF (D%NUMP == 0) THEN
+  WRITE(NERR,'("SUMP: NPRTRW TOO LARGE FOR SPECTRAL RESOLUTION",/,&
+  &"NOTE MAX VALUE FOR Tnnn CASE IS nnn+1",/,&
+  &"MORE PROCESSORS CAN BE USED BY INCREASING NPRTRV")')
+  CALL ABORT_TRANS('NPRTRW TOO LARGE FOR SPECTRAL RESOLUTION')
+ENDIF
+
+ALLOCATE(D%NLATLS(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NLATLS',SIZE(D%NLATLS   ),SHAPE(D%NLATLS )
+ALLOCATE(D%NLATLE(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NLATLE',SIZE(D%NLATLE   ),SHAPE(D%NLATLE )
+
+D%NLATLS(:) = 9999
+D%NLATLE(:) = -1
+
+ILATPP = R%NDGNH/NPRTRW
+IRESTL  = R%NDGNH-NPRTRW*ILATPP
+DO JA=1,NPRTRW
+  IF (JA > IRESTL) THEN
+    D%NLATLS(JA) = IRESTL*(ILATPP+1)+(JA-IRESTL-1)*ILATPP+1
+    D%NLATLE(JA) = D%NLATLS(JA)+ILATPP-1
+  ELSE
+    D%NLATLS(JA) = (JA-1)*(ILATPP+1)+1
+    D%NLATLE(JA) = D%NLATLS(JA)+ILATPP
+  ENDIF
+ENDDO
+
+IF (LLP1) THEN
+  WRITE(NOUT,'('' D%NLATLS '')')
+  WRITE(NOUT,'(20(1X,I4))')(D%NLATLS(JJ),JJ=1,NPRTRW)
+  WRITE(NOUT,'('' D%NLATLE '')')
+  WRITE(NOUT,'(20(1X,I4))')(D%NLATLE(JJ),JJ=1,NPRTRW)
+ENDIF
+
+ALLOCATE(D%NPMT(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPMT   ',SIZE(D%NPMT   ),SHAPE(D%NPMT   )
+ALLOCATE(D%NPMS(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPMS   ',SIZE(D%NPMS   ),SHAPE(D%NPMS   )
+ALLOCATE(D%NPMG(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPMG   ',SIZE(D%NPMG   ),SHAPE(D%NPMG   )
+IDT = R%NTMAX-R%NSMAX
+INM = 0
+DO JMLOC=1,D%NUMP
+  IMLOC = D%MYMS(JMLOC)
+  D%NPMT(IMLOC) = INM
+  D%NPMS(IMLOC) = INM+IDT
+  INM = INM+R%NTMAX+2-IMLOC
+ENDDO
+INM = 0
+DO JM=0,R%NSMAX
+  D%NPMG(JM) = INM
+  INM = INM+R%NTMAX+2-JM
+ENDDO
+
+D%NLEI3D = (R%NLEI3-1)/NPRTRW+1
+
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SUMP_TRANS_PRELEG
+END MODULE SUMP_TRANS_PRELEG_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplat_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplat_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplat_mod.F90	(revision 3330)
@@ -0,0 +1,204 @@
+MODULE SUMPLAT_MOD
+CONTAINS
+SUBROUTINE SUMPLAT(KDGL,KPROC,KPROCA,KMYSETA,LDSPLIT,LDEQ_REGIONS,&
+                   &KFRSTLAT,KLSTLAT,KFRSTLOFF,KPTRLAT,&
+                   &KPTRFRSTLAT,KPTRLSTLAT,KPTRFLOFF,&
+                   &KMEDIAP,KRESTM,LDSPLITLAT)
+
+!**** *SUMPLAT * - Initialize gridpoint distrbution in N-S direction
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLAT *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGL       -last  latitude
+!                          KPROC      -total number of processors
+!                          KPROCA     -number of processors in A direction
+!                          KMYSETA    -process number in A direction
+!                          LDSPLIT    -true for latitudes shared between sets
+!                          LDEQ_REGIONS -true if eq_regions partitioning
+
+!     Explicit arguments - output:
+!     -------------------- 
+!                          KMEDIAP    -mean number of grid points per PE
+!                          KRESTM     -number of PEs with one extra point
+!                          KFRSTLAT   -first latitude row on processor
+!                          KLSTLAT    -last  latitude row on processor
+!                          KFRSTLOFF  -offset for first latitude in set
+!                          KPTRLAT    -pointer to start of latitude    
+!                          KPTRFRSTLAT-pointer to first latitude
+!                          KPTRLSTLAT -pointer to last  latitude
+!                          KPTRFLOFF  -offset for pointer to first latitude
+!                          LDSPLITLAT -true for latitudes which are split
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   SUMPLATB and SUEMPLATB.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!        David Dent:97-06-02 parameters KFRSTLAT etc added
+!        JF. Estrade:97-11-13 Adaptation to ALADIN case
+!        J.Boutahar: 98-07-06  phasing with CY19
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option + cleanings
+!         (correct computation of extrapolar latitudes for KPROCL).
+!        Modified 98-12-07 by K. YESSAD and C. FISCHER: cleaning.
+!         - merge old sumplat.F and suemplat.F
+!         - gather 'lelam' code and 'not lelam' code.
+!         - clean (useless duplication of variables, non doctor features).
+!         - remodularise according to lelam/not lelam
+!           -> lelam features in new routine suemplatb.F,
+!              not lelam features in new routine sumplatb.F
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEOMETRY
+USE TPM_DISTR
+
+USE SUMPLATB_MOD
+USE SUMPLATBEQ_MOD
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(OUT) :: KRESTM
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROC
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KMYSETA
+INTEGER(KIND=JPIM),INTENT(OUT) :: KFRSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KFRSTLOFF
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRFRSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRLSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRFLOFF
+LOGICAL,INTENT(IN)  :: LDSPLIT
+LOGICAL,INTENT(IN)  :: LDEQ_REGIONS
+LOGICAL,INTENT(OUT) :: LDSPLITLAT(:)
+
+!     * LOCAL:
+! === END OF INTERFACE BLOCK ===
+INTEGER(KIND=JPIM) :: INDIC(KPROCA),ILAST(KPROCA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: IPTRLATITUDE,  JA, JGL
+
+
+!      -----------------------------------------------------------------
+
+!*       1.    CODE DEPENDING ON 'LELAM': COMPUTATION OF
+!              KMEDIAP, KRESTM, INDIC, ILAST.
+!              -----------------------------------------
+
+
+IF( LDEQ_REGIONS )THEN
+  CALL SUMPLATBEQ(1,KDGL,KPROC,KPROCA,G%NLOEN,LDSPLIT,LDEQ_REGIONS,&
+   &KMEDIAP,KRESTM,INDIC,ILAST)
+ELSE
+  CALL SUMPLATB(1,KDGL,KPROCA,G%NLOEN,LDSPLIT,&
+   &KMEDIAP,KRESTM,INDIC,ILAST)
+ENDIF
+
+!      -----------------------------------------------------------------
+
+!*       2.    CODE NOT DEPENDING ON 'LELAM': COMPUTATION OF
+!              KFRSTLAT TO LDSPLITLAT.
+!              ---------------------------------------------
+
+
+!     * Computation of first and last latitude of processor sets
+!       -----------  in grid-point-space -----------------------
+
+KFRSTLAT(1) = 1
+KLSTLAT(KPROCA) = KDGL
+DO JA=1,KPROCA-1
+!!$  IF(MYPROC==1)THEN
+!!$    WRITE(0,'("SUMPLAT_MOD: JA=",I3," ILAST=",I3," INDIC=",I3)')&
+!!$    &JA,ILAST(JA),INDIC(JA)
+!!$  ENDIF
+  IF ((.NOT. LDSPLIT) .OR. INDIC(JA) == 0) THEN
+    KFRSTLAT(JA+1) = ILAST(JA) + 1
+    KLSTLAT(JA) = ILAST(JA)
+  ELSE
+    KFRSTLAT(JA+1) = INDIC(JA)
+    KLSTLAT(JA) = INDIC(JA)
+  ENDIF
+ENDDO
+KFRSTLOFF=KFRSTLAT(KMYSETA)-1
+
+!     * Initialise following data structures:-
+!       NPTRLAT     (pointer to the start of each latitude)
+!       LSPLITLAT   (TRUE if latitude is split over two A sets)
+!       NPTRFRSTLAT (pointer to the first latitude of each A set)
+!       NPTRLSTLAT  (pointer to the last  latitude of each A set)
+
+DO JGL=1,KDGL
+  KPTRLAT  (JGL)=-999
+  LDSPLITLAT(JGL)=.FALSE.
+ENDDO
+IPTRLATITUDE=0
+DO JA=1,KPROCA
+  DO JGL=KFRSTLAT(JA),KLSTLAT(JA)
+    IPTRLATITUDE=IPTRLATITUDE+1
+    LDSPLITLAT(JGL)=.TRUE.
+    IF( KPTRLAT(JGL) == -999 )THEN
+      KPTRLAT(JGL)=IPTRLATITUDE
+      LDSPLITLAT(JGL)=.FALSE.
+    ENDIF
+  ENDDO
+ENDDO
+DO JA=1,KPROCA
+  IF( LDSPLITLAT(KFRSTLAT(JA)) .AND. JA /= 1)THEN
+    KPTRFRSTLAT(JA)=KPTRLAT(KFRSTLAT(JA))+1
+  ELSE
+    KPTRFRSTLAT(JA)=KPTRLAT(KFRSTLAT(JA))
+  ENDIF
+  IF( LDSPLITLAT(KLSTLAT(JA)) .AND. JA == KPROCA)THEN
+    KPTRLSTLAT(JA)=KPTRLAT(KLSTLAT(JA))+1
+  ELSE
+    KPTRLSTLAT(JA)=KPTRLAT(KLSTLAT(JA))
+  ENDIF
+ENDDO
+KPTRFLOFF=KPTRFRSTLAT(KMYSETA)-1
+!!$IF(MYPROC==1)THEN
+!!$  DO JGL=1,KDGL
+!!$    WRITE(0,'("SUMPLAT_MOD: JGL=",I3," KPTRLAT=",I3," LDSPLITLAT=",L4)')&
+!!$    & JGL,KPTRLAT(JGL),LDSPLITLAT(JGL)
+!!$  ENDDO
+!!$  DO JA=1,KPROCA
+!!$    WRITE(0,'("SUMPLAT_MOD: JA=",I3," KFRSTLAT=",I3," KLSTLAT=",I3,&
+!!$    & " KPTRFRSTLAT=",I3," KPTRLSTLAT=",I3)')&
+!!$    & JA,KFRSTLAT(JA),KLSTLAT(JA),KPTRFRSTLAT(JA),KPTRLSTLAT(JA)
+!!$  ENDDO
+!!$ENDIF
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUMPLAT
+END MODULE SUMPLAT_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatb_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatb_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatb_mod.F90	(revision 3330)
@@ -0,0 +1,216 @@
+MODULE SUMPLATB_MOD
+CONTAINS
+SUBROUTINE SUMPLATB(KDGSA,KDGL,KPROCA,KLOENG,LDSPLIT,&
+                    &KMEDIAP,KRESTM,KINDIC,KLAST)
+
+!**** *SUMPLATB * - Routine to initialize parallel environment
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLATB *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGSA      -first latitude (grid-space)
+!                                      (may be different from NDGSAG)
+!                          KDGL       -last  latitude
+!                          KPROCA     -number of processors in A direction
+!                          KLOENG     -actual number of longitudes per latitude.
+!                          LDSPLIT    -true for latitudes shared between sets
+
+!     Explicit arguments - output:
+!     -------------------- 
+!                          KMEDIAP    -mean number of grid points per PE
+!                          KRESTM     -number of PEs with one extra point
+!                          KINDIC     -intermediate quantity for 'sumplat'
+!                          KLAST      -intermediate quantity for 'sumplat'
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        K. YESSAD (after old version of sumplat.F).
+
+!     Modifications.
+!     --------------
+!        Original : 98-12-07
+!     ------------------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGSA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KLOENG(KDGSA:KDGL)
+LOGICAL,INTENT(IN)  :: LDSPLIT
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KRESTM
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KINDIC(KPROCA)
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KLAST(KPROCA)
+
+!     * LOCAL:
+INTEGER(KIND=JPIM) :: IPP1(KPROCA),ILAST1(KPROCA)
+INTEGER(KIND=JPIM) :: IPP(KPROCA)
+INTEGER(KIND=JPIM) :: IFIRST(KPROCA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: ICOMP, IGL, IMAXI, IMAXIOL, IMEDIA, ITOT, JA, JGL,&
+            &ILAST,IREST,ILIMIT,IFRST
+LOGICAL   :: LLDONE
+
+!      -----------------------------------------------------------------
+
+!*       1.    COMPUTATION OF KMEDIAP, KRESTM, KINDIC, KLAST.
+!              ----------------------------------------------
+
+!     * Computation of KMEDIAP and KRESTM.
+
+IMEDIA = SUM(KLOENG(KDGSA:KDGL))
+KMEDIAP = IMEDIA / KPROCA
+IF (KMEDIAP  <  KLOENG(KDGL/2)) THEN
+  CALL ABORT_TRANS ('SUMPLATB: KPROCA TOO BIG FOR THIS RESOLUTION')
+ENDIF
+KRESTM = IMEDIA - KMEDIAP * KPROCA
+IF (KRESTM  >  0) KMEDIAP = KMEDIAP + 1
+
+!     * Computation of intermediate quantities KINDIC and KLAST
+
+IF (LDSPLIT) THEN
+
+  IREST = 0
+  ILAST =0
+  DO JA=1,KPROCA
+    IF (JA  <=  KRESTM .OR. KRESTM  ==  0) THEN
+      ICOMP = KMEDIAP
+    ELSE
+      ICOMP = KMEDIAP - 1
+    ENDIF
+    ITOT = IREST
+    IGL = ILAST+1
+    DO JGL=IGL,KDGL
+      ILAST = JGL
+      IF(ITOT+KLOENG(JGL) < ICOMP) THEN
+        ITOT = ITOT+KLOENG(JGL)
+      ELSEIF(ITOT+KLOENG(JGL) == ICOMP) THEN
+        IREST = 0
+        KLAST(JA) = JGL 
+        KINDIC(JA) = 0
+        EXIT
+      ELSE
+        IREST =  KLOENG(JGL) -(ICOMP-ITOT)
+        KLAST(JA) = JGL 
+        KINDIC(JA) = JGL
+        EXIT
+      ENDIF
+    ENDDO
+  ENDDO
+
+ELSE
+
+  KINDIC(:) = 0
+
+  IMAXI = KMEDIAP-1
+  IMAXIOL = HUGE(IMAXIOL)
+  DO
+    ILIMIT = IMAXI
+    IMAXI = 0
+    IFRST = KDGL
+    ILAST1(:) = 0
+    IPP1(:) = 0
+    DO JA=KPROCA,1,-1
+      IGL = IFRST
+      LATS:DO JGL=IGL,1,-1
+        IF (IPP1(JA) < ILIMIT .OR. JA == 1) THEN
+          IFRST = JGL-1
+          IPP1(JA) = IPP1(JA) + KLOENG(JGL)
+          IF(ILAST1(JA)  ==  0) ILAST1(JA) = JGL
+        ELSE
+          EXIT LATS
+        ENDIF
+      ENDDO LATS
+      IMAXI = MAX (IMAXI,IPP1(JA))
+    ENDDO
+    IF(IMAXI >= IMAXIOL) EXIT
+    KLAST(:) = ILAST1(:)
+    IPP(:) = IPP1(:)
+    IMAXIOL = IMAXI
+  ENDDO
+
+!       make the distribution more uniform
+!       ----------------------------------
+
+  IFIRST(1) = 0
+  IF (KLAST(1) > 0) IFIRST(1) = 1
+  DO JA=2,KPROCA
+    IF (IPP(JA) > 0) THEN
+      IFIRST(JA) = KLAST(JA-1)+1
+    ELSE
+      IFIRST(JA) = 0
+    ENDIF
+  ENDDO
+
+  LLDONE = .FALSE.
+  DO WHILE( .NOT.LLDONE )
+    LLDONE = .TRUE.
+
+    DO JA=1,KPROCA-1
+      IF (IPP(JA) > IPP(JA+1)) THEN
+        IF (IPP(JA)-IPP(JA+1)  >  IPP(JA+1) + 2 *&
+         &KLOENG(KLAST(JA)) -IPP(JA) ) THEN
+          IPP(JA) = IPP(JA) - KLOENG(KLAST(JA))
+          IPP(JA+1) = IPP(JA+1) + KLOENG(KLAST(JA))
+          IF (KLAST(JA+1)  ==  0) KLAST(JA+1) = KLAST(JA)
+          IFIRST(JA+1) = KLAST(JA)
+          KLAST(JA) = KLAST(JA) - 1
+          IF (KLAST(JA) == 0) IFIRST(JA) = 0
+          LLDONE = .FALSE.
+        ENDIF
+      ELSE
+        IF( IFIRST(JA+1) > 0 )THEN
+          IF (IPP(JA+1)-IPP(JA)  >=  IPP(JA) + 2 *&
+           &KLOENG(IFIRST(JA+1)) -IPP(JA+1) ) THEN
+            IPP(JA) = IPP(JA) + KLOENG(IFIRST(JA+1))
+            IPP(JA+1) = IPP(JA+1) - KLOENG(IFIRST(JA+1))
+            KLAST(JA) = IFIRST(JA+1)
+            IF (IFIRST(JA) == 0) IFIRST(JA) = KLAST(JA)
+            IF (KLAST(JA+1)  ==  KLAST(JA)) THEN
+              KLAST(JA+1) = 0
+              IFIRST(JA+1) = 0
+            ELSE
+              IFIRST(JA+1) = IFIRST(JA+1) + 1
+            ENDIF
+           LLDONE = .FALSE.
+          ENDIF
+        ENDIF
+      ENDIF
+    ENDDO
+  ENDDO
+
+ENDIF
+
+END SUBROUTINE SUMPLATB
+END MODULE SUMPLATB_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatbeq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatbeq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatbeq_mod.F90	(revision 3330)
@@ -0,0 +1,222 @@
+MODULE SUMPLATBEQ_MOD
+CONTAINS
+SUBROUTINE SUMPLATBEQ(KDGSA,KDGL,KPROC,KPROCA,KLOENG,LDSPLIT,LDEQ_REGIONS,&
+                    &KMEDIAP,KRESTM,KINDIC,KLAST)
+
+!**** *SUMPLATBEQ * - Routine to initialize parallel environment
+!                     (latitude partitioning for LEQ_REGIONS=T)
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLATBEQ *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGSA      -first latitude (grid-space)
+!                                      (may be different from NDGSAG)
+!                          KDGL       -last  latitude
+!                          KPROC      -total number of processors
+!                          KPROCA     -number of processors in A direction
+!                          KLOENG     -actual number of longitudes per latitude.
+!                          LDSPLIT    -true for latitudes shared between sets
+!                          LDEQ_REGIONS -true if eq_regions partitioning
+
+!     Explicit arguments - output:
+!     -------------------- 
+!                          KMEDIAP    -mean number of grid points per PE
+!                          KRESTM     -number of PEs with one extra point
+!                          KINDIC     -intermediate quantity for 'sumplat'
+!                          KLAST      -intermediate quantity for 'sumplat'
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        G. Mozdzynski
+
+!     Modifications.
+!     --------------
+!        Original : April 2006
+!     ------------------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DISTR
+USE EQ_REGIONS_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGSA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROC
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KLOENG(KDGSA:KDGL)
+LOGICAL,INTENT(IN)  :: LDSPLIT
+LOGICAL,INTENT(IN)  :: LDEQ_REGIONS
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KRESTM
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KINDIC(KPROCA)
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KLAST(KPROCA)
+
+!     * LOCAL:
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: ICOMP, IGL, IMAXI, IMEDIA, IMEDIAP, ITOT, JA, JB, IA, JGL,&
+            &ILAST,IREST,IPE,I2REGIONS
+LOGICAL   :: LLDONE
+
+!      -----------------------------------------------------------------
+
+!*       1.    COMPUTATION OF KMEDIAP, KRESTM, KINDIC, KLAST.
+!              ----------------------------------------------
+
+!     * Computation of KMEDIAP and KRESTM.
+
+IMEDIA = SUM(KLOENG(KDGSA:KDGL))
+KMEDIAP = IMEDIA / KPROC
+
+IF( KPROC > 1 )THEN
+! test if KMEDIAP is too small and no more than 2 asets would be required 
+! for the first latitude
+  IF( LDSPLIT )THEN
+    I2REGIONS=N_REGIONS(1)+N_REGIONS(2)
+    IF( KMEDIAP < (KLOENG(KDGSA)-1)/I2REGIONS+1 )THEN
+      WRITE(0,'("SUMPLATBEQ: KMEDIAP=",I6," I2REGIONS=",I3," KLOENG(KDGSA)=",I3)')&
+      &KMEDIAP,I2REGIONS,KLOENG(KDGSA)
+      CALL ABORT_TRANS ('SUMPLATBEQ: NPROC TOO BIG FOR THIS RESOLUTION, LDSPLIT=T')
+    ENDIF
+  ELSE
+! test for number asets too large for the number of latitudes
+    IF( KPROCA > KDGL )THEN
+      WRITE(0,'("SUMPLATBEQ: KMEDIAP=",I6," KPROCA=",I4," KDGL=",I4)')&
+      &KMEDIAP,KPROCA,KDGL
+      CALL ABORT_TRANS ('SUMPLATBEQ: NPROC TOO BIG FOR THIS RESOLUTION, LDSPLIT=F')
+    ENDIF
+  ENDIF
+ENDIF
+
+KRESTM = IMEDIA - KMEDIAP * KPROC
+IF (KRESTM  >  0) KMEDIAP = KMEDIAP + 1
+
+!     * Computation of intermediate quantities KINDIC and KLAST
+
+IF (LDSPLIT) THEN
+
+  IREST = 0
+  ILAST =0
+  IPE=0
+  DO JA=1,KPROCA
+    ICOMP=0
+    DO JB=1,N_REGIONS(JA)
+      IPE=IPE+1
+      IF (IPE  <=  KRESTM .OR. KRESTM  ==  0) THEN
+        ICOMP = ICOMP + KMEDIAP
+      ELSE
+        ICOMP = ICOMP + (KMEDIAP-1)
+      ENDIF
+    ENDDO
+    ITOT = IREST
+    IGL = ILAST+1
+    DO JGL=IGL,KDGL
+      ILAST = JGL
+      IF(ITOT+KLOENG(JGL) < ICOMP) THEN
+        ITOT = ITOT+KLOENG(JGL)
+      ELSEIF(ITOT+KLOENG(JGL) == ICOMP) THEN
+        IREST = 0
+        KLAST(JA) = JGL 
+        KINDIC(JA) = 0
+        EXIT
+      ELSE
+        IREST =  KLOENG(JGL) -(ICOMP-ITOT)
+        KLAST(JA) = JGL 
+        KINDIC(JA) = JGL
+        EXIT
+      ENDIF
+    ENDDO
+  ENDDO
+
+ELSE
+
+  KINDIC(:) = 0
+  LLDONE=.FALSE.
+  IMEDIAP=KMEDIAP
+  IF( MYPROC == 1 )THEN
+    WRITE(0,'("SUMPLATBEQ: IMEDIAP=",I6)')IMEDIAP
+  ENDIF
+  DO WHILE(.NOT.LLDONE)
+!   loop until a satisfactory distribution can be found
+    IA=1
+    IMAXI=IMEDIAP*N_REGIONS(IA)
+    DO JGL=1,KDGL
+      KLAST(IA)=JGL
+      IMAXI=IMAXI-KLOENG(JGL)
+      IF( IA == KPROCA .AND. JGL == KDGL )THEN
+        IF( MYPROC == 1 )THEN
+          WRITE(0,'("SUMPLATBEQ: EXIT 1")')
+        ENDIF
+        EXIT
+      ENDIF
+      IF( IA == KPROCA .AND. JGL < KDGL )THEN
+        IF( MYPROC == 1 )THEN
+          WRITE(0,'("SUMPLATBEQ: EXIT 2")')
+        ENDIF
+        KLAST(KPROCA)=KDGL
+        EXIT
+      ENDIF
+      IF( IA < KPROCA .AND. JGL == KDGL )THEN
+        DO JA=KPROCA,IA+1,-1
+          KLAST(JA)=KDGL+JA-KPROCA
+        ENDDO
+        DO JA=KPROCA,2,-1
+          IF( KLAST(JA) <= KLAST(JA-1) )THEN
+            KLAST(JA-1)=KLAST(JA)-1
+          ENDIF
+        ENDDO
+        IF( MYPROC == 1 )THEN
+          WRITE(0,'("SUMPLATBEQ: EXIT 3")')
+        ENDIF
+        EXIT
+      ENDIF
+      IF( IMAXI <= 0 )THEN
+        IA=IA+1
+        IMAXI=IMAXI+IMEDIAP*N_REGIONS(IA)
+      ENDIF
+    ENDDO
+    IF( KPROCA > 1 .AND. KLAST(KPROCA) == KLAST(KPROCA-1) )THEN
+      IMEDIAP=IMEDIAP-1
+      IF( MYPROC == 1 )THEN
+        WRITE(0,'("SUMPLATBEQ: REDUCING IMEDIAP=",I6)')IMEDIAP
+      ENDIF
+      IF( IMEDIAP <= 0 )THEN
+        CALL ABORT_TRANS ('SUMPLATBEQ: PROBLEM PARTITIONING WITH LSPLIT=F, IMEDIAP <= 0')
+      ENDIF
+    ELSE
+      LLDONE=.TRUE.
+    ENDIF
+  ENDDO
+    
+ENDIF
+
+END SUBROUTINE SUMPLATBEQ
+END MODULE SUMPLATBEQ_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatf_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatf_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumplatf_mod.F90	(revision 3330)
@@ -0,0 +1,139 @@
+MODULE SUMPLATF_MOD
+CONTAINS
+SUBROUTINE SUMPLATF(KDGL,KPROCA,KMYSETA,&
+                   &KULTPP,KPROCL,KPTRLS)
+
+!**** *SUMPLATF * - Initialize fourier space distibution in N-S direction
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLATF *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGL       -last  latitude
+!                          KPROCA     -number of processors in A direction
+!                          KMYSETA    -process number in A direction
+
+!     Explicit arguments - output:
+!     -------------------- 
+
+!                          KULTPP     -number of latitudes in process
+!                                      (in Fourier space)
+!                          KPROCL     -process responsible for latitude
+!                                      (in Fourier space)
+!                          KPTRLS     -pointer to first global latitude
+!                                      of process (in Fourier space)
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   SUMPLATB and SUEMPLATB.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!        David Dent:97-06-02 parameters KFRSTLAT etc added
+!        JF. Estrade:97-11-13 Adaptation to ALADIN case
+!        J.Boutahar: 98-07-06  phasing with CY19
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option + cleanings
+!         (correct computation of extrapolar latitudes for KPROCL).
+!        Modified 98-12-07 by K. YESSAD and C. FISCHER: cleaning.
+!         - merge old sumplat.F and suemplat.F
+!         - gather 'lelam' code and 'not lelam' code.
+!         - clean (useless duplication of variables, non doctor features).
+!         - remodularise according to lelam/not lelam
+!           -> lelam features in new routine suemplatb.F,
+!              not lelam features in new routine sumplatb.F
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+use tpm_geometry
+
+use sumplatb_mod
+
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KMYSETA
+INTEGER(KIND=JPIM),INTENT(OUT) :: KULTPP(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPROCL(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRLS(:)
+
+!     * LOCAL:
+INTEGER(KIND=JPIM) :: INDIC(KPROCA),ILAST(KPROCA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: IA, ILAT, ISTART, IMEDIAP,IRESTM, JA,  JLTLOC
+LOGICAL :: LLSPLIT
+
+!      -----------------------------------------------------------------
+
+!*       1.    CODE DEPENDING ON 'LELAM': COMPUTATION OF
+!              KMEDIAP, KRESTM, INDIC, ILAST.
+!              -----------------------------------------
+
+LLSPLIT = .FALSE.
+
+CALL SUMPLATB(1,KDGL,KPROCA,G%NLOEN,LLSPLIT,&
+ &IMEDIAP,IRESTM,INDIC,ILAST)
+
+!      -----------------------------------------------------------------
+
+!*       2.    CODE NOT DEPENDING ON 'LELAM': 
+!              ------------------------------
+
+
+
+!     * Definitions related to distribution of latitudes along sets
+!       ------------ in fourier-space -----------------------------
+ISTART = 0
+KULTPP(1) = ILAST(1)
+DO JA=1,KPROCA
+  IF(JA > 1) THEN
+    IF(ILAST(JA) /= 0) THEN
+      KULTPP(JA) = ILAST(JA)-ILAST(JA-1)
+    ELSE
+      KULTPP(JA) = 0
+    ENDIF
+  ENDIF
+  DO JLTLOC=1,KULTPP(JA)
+    ILAT = ISTART + JLTLOC
+    KPROCL(ILAT) = JA
+  ENDDO
+  ISTART = ISTART + KULTPP(JA)
+ENDDO
+
+!     * Computes KPTRLS.
+
+IA = KPROCL(1)
+KPTRLS(IA) = 1
+DO JA=IA+1,KPROCA
+  KPTRLS(JA) = KPTRLS(JA-1) + KULTPP(JA-1)
+ENDDO
+
+END SUBROUTINE SUMPLATF
+END MODULE SUMPLATF_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumts.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumts.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sumts.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUMTS
+END SUBROUTINE SUMTS
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suovlp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suovlp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suovlp.F90	(revision 3330)
@@ -0,0 +1,50 @@
+SUBROUTINE SUOVLP ( KLEV )
+  
+!***** *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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERAD   , ONLY : RAOVLP, RBOVLP
+USE YOEOVLP  , ONLY : RA1OVLP
+USE YOMSTA   , ONLY : STZ
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     DUMMY PARAMETERS
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+
+INTEGER(KIND=JPIM) :: JK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SUOVLP',0,ZHOOK_HANDLE)
+DO JK=1,KLEV
+  RA1OVLP(JK)=RAOVLP*STZ(JK)+RBOVLP
+  print *,'SU_OVLP: JK RAOVLP STZ RBOVLP:',JK,RAOVLP,STZ(JK),RBOVLP
+ENDDO  
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SUOVLP',1,ZHOOK_HANDLE)
+END SUBROUTINE SUOVLP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suovlp.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suovlp.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suovlp.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUOVLP ( KLEV )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+END SUBROUTINE SUOVLP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphec.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphec.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphec.F90	(revision 3330)
@@ -0,0 +1,338 @@
+SUBROUTINE SUPHEC(KULOUT)
+
+!**** *SUPHEC - INITIALISES PHYSICAL CONSTANTS OF UNCERTAIN VALUE.
+!               WITHIN THE E.C.M.W.F. PHYSICS PACKAGE
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE SETS THE VALUES FOR THE PHYSICAL CONSTANTS USED
+!     IN THE PARAMETERIZATION ROUTINES WHENEVER THESE VALUES ARE NOT
+!     KNOWN WELL ENOUGH TO FORBID ANY TUNING OR WHENEVER THEY ARE
+!     SUBJECT TO AN ARBITRARY CHOICE OF THE MODELLER. THESE CONSTANTS
+!     ARE DISTRIBUTED IN COMMON DECKS *YOEXXXX* WHERE XXXX CORRESPONDS
+!     TO THE INDIVIDUAL PHYSICAL PARAMETRIZATION
+
+!**   INTERFACE.
+!     ----------
+
+!          *SUPHEC* IS CALLED FROM *SUPHY*
+
+!     METHOD.
+!     -------
+
+!          NONE.
+
+!     EXTERNALS.
+!     ----------
+
+!          *SUECRAD*, *SUCUMF*, *SUCUMF2*,*SUVDFS*, *SUSURF*
+!          *SUECRAD15*, *SUCLOP15*
+!          *SUGWD*, *SUCLD*, *SUCOND*, *SUPHLI*, *SUMETHOX*
+
+!     REFERENCE.
+!     ----------
+
+!          SEE PHYSICAL ROUTINES FOR AN EXACT DEFINITION OF THE
+!     CONSTANTS.
+
+!     AUTHOR.
+!     -------
+!          J.-J. MORCRETTE  E.C.M.W.F.    91/06/15  ADAPTATION TO I.F.S.
+
+!     MODIFICATIONS
+!     -------------
+!          MAY 1997 : M. Deque  - Frozen FMR
+!          APRIL 1998: C. JAKOB - ADD METHANE OXIDATION
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        P.Viterbo     24-May-2004 surf library
+!        P.Viterbo     03-Dec-2004 Include user-defined RTHRFRTI
+!        M.Ko"hler     03-Dec-2004 cp,moist=cp,dry
+!        P.Viterbo     10-Jun-2005 Externalise surf
+!        R. El Khatib & J-F Estrade  20-Jan-2005 Default PRSUN for FMR15
+!        D.Salmond     22-Nov-2005 Mods for coarser/finer physics
+!        P. Lopez      21-Aug-2006 Added call to SUCUMF2 
+!                                 (new linearized convec)
+!        JJMorcrette   20060525    MODIS albedo
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMDPHY  , ONLY : NTILES 
+USE SURFACE_FIELDS, ONLY : YSP_SBD
+USE YOELW    , ONLY : NSIL     ,TSTAND   ,XP
+USE YOESW    , ONLY : RSUN
+USE YOMSW15  , ONLY : RSUN15
+USE YOMDIM   , ONLY : NFLEVG   ,NSMAX, NGPBLKS, NPROMA
+USE YOMGEM   , ONLY : VBH      ,VAH      ,VP00, VAF   , VBF
+USE YOMCST   , ONLY : RD       ,RV       ,RCPD     ,&
+ & RLVTT    ,RLSTT    ,RLMLT    ,RTT      ,RATM 
+!USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
+! & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
+! & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
+! & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
+! & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
+! & RKOOP1   ,RKOOP2 
+USE YOMPHY   , ONLY : LRAYFM15
+!USE YOERAD   , ONLY : NSW      ,NTSW     ,&
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NTSW     ,&
+ & LCCNL    ,LCCNO    ,&
+ & RCCNSEA  ,RCCNLND
+USE YOE_TILE_PROP, ONLY : RUSTRTI, RVSTRTI, RAHFSTI, REVAPTI, RTSKTI
+USE YOEPHY   , ONLY : RTHRFRTI ,LEOCWA   ,LEOCCO   ,LEOCSA, LE4ALB
+USE YOEVDF   , ONLY : NVTYPES
+USE YOMCOAPHY   , ONLY : NPHYINT
+USE YOM_PHYS_GRID ,ONLY : PHYS_GRID
+USE YOMCT0  , ONLY  : LSCMEC   ,LROUGH   ,REXTZ0M  ,REXTZ0H
+USE vertical_layers_mod, ONLY: ap,bp
+
+IMPLICIT NONE
+include "YOETHF.h"
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTERFACE
+#include "susurf.h"
+#include "surf_inq.h"
+END INTERFACE
+
+#include "gppre.intfb.h"
+#include "sucld.intfb.h"
+#include "sucldp.intfb.h"
+#include "suclop.intfb.h"
+#include "suclop15.intfb.h"
+#include "sucond.intfb.h"
+#include "sucumf.intfb.h"
+#include "sucumf2.intfb.h"
+#include "suecrad.intfb.h"
+#include "suecrad15.intfb.h"
+#include "sugwd.intfb.h"
+#include "sumethox.intfb.h"
+#include "suphli.intfb.h"
+#include "suvdf.intfb.h"
+#include "suvdfs.intfb.h"
+#include "suwcou.intfb.h"
+
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZPRES(0:NFLEVG),ZPRESF(NFLEVG), ZETA(NFLEVG),ZETAH(0:NFLEVG)
+
+INTEGER(KIND=JPIM) :: JK,ISMAX,JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         0.2    DEFINING DERIVED CONSTANTS FROM UNIVERSAL CONSTANTS
+!                 ---------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHEC',0,ZHOOK_HANDLE)
+!CALL GSTATS(1811,0) ! MPL 28.11.08
+!RVTMP2=RCPV/RCPD-1.0_JPRB   !use cp,moist
+RVTMP2=0.0_JPRB              !neglect cp,moist
+RHOH2O=RATM/100._JPRB
+R2ES=611.21_JPRB*RD/RV
+R3LES=17.502_JPRB
+R3IES=22.587_JPRB
+R4LES=32.19_JPRB
+R4IES=-0.7_JPRB
+R5LES=R3LES*(RTT-R4LES)
+R5IES=R3IES*(RTT-R4IES)
+R5ALVCP=R5LES*RLVTT/RCPD
+R5ALSCP=R5IES*RLSTT/RCPD
+RALVDCP=RLVTT/RCPD
+RALSDCP=RLSTT/RCPD
+RALFDCP=RLMLT/RCPD
+RTWAT=RTT
+RTBER=RTT-5._JPRB
+RTBERCU=RTT-5.0_JPRB
+RTICE=RTT-23._JPRB
+RTICECU=RTT-23._JPRB
+
+RTWAT_RTICE_R=1.0_JPRB/(RTWAT-RTICE)
+RTWAT_RTICECU_R=1.0_JPRB/(RTWAT-RTICECU)
+IF(NPHYINT == 0) THEN
+  ISMAX=NSMAX
+ELSE
+  ISMAX=PHYS_GRID%NSMAX
+ENDIF
+
+RKOOP1=2.583_JPRB
+RKOOP2=0.48116E-2_JPRB
+
+!     ------------------------------------------------------------------
+!*         0.5    DEFINE STANDARD ATMOSPHERE VERTICAL CONFIGURATION
+!                 -------------------------------------------------
+!ALLOCATE(VBH    (0:MAX(JPMXLE,NFLEVG)))  from suallo.F90
+!! 
+ALLOCATE(VAH    (0:NFLEVG))  ! Ajout ALLOCATE MPL 200509
+ALLOCATE(VBH    (0:NFLEVG))
+ALLOCATE(VAF    (NFLEVG))
+ALLOCATE(VBF    (NFLEVG))
+! Commente par MPL 28.11.08, puis decommente le 19.05.09
+VP00=101325.     !!!!! A REVOIR (MPL)
+ZPRES(NFLEVG)=VP00
+! on recupere ap et bp de dyn3d (vertical_layers_mod) MPL 19.05.09
+! Attention, VAH et VBH sont inverses, comme les niveaux
+! plev(l)=PAPRS(klon,nlayer+1-l) de 1 a nlayer (apllmd.F)
+DO JLEV = 0, NFLEVG  
+!  VAH(JLEV)=ap(JLEV+1)ap(JLEV+1)
+!  VBH(JLEV)=bp(JLEV+1)
+!  print *,'SUPHEC: jlev ap bp',JLEV,ap(JLEV+1),bp(JLEV+1)
+   VAH(JLEV)=ap(NFLEVG+1-JLEV)
+   VBH(JLEV)=bp(NFLEVG+1-JLEV)
+ENDDO
+! Calcul de VAF et VBF, analogues de VAH et VBH mais aux niveaux pleins
+DO JLEV = 1, NFLEVG   
+   VAF(JLEV)=(VAH(JLEV)+VAH(JLEV-1))/2.
+   VBF(JLEV)=(VBH(JLEV)+VBH(JLEV-1))/2.
+ENDDO
+
+! Appel a GPPRE commente par MPL 28.11.08, puis decommente le 19.05.09
+CALL GPPRE ( 1 ,1, 1, NFLEVG, VAH, VBH, ZPRES, ZPRESF )
+
+DO JK=0,NFLEVG
+  ZETAH(JK)= ZPRES(JK)/ZPRES(NFLEVG)
+ENDDO
+DO JK=1,NFLEVG
+  ZETA(JK)= ZPRESF(JK)/ZPRES(NFLEVG)
+ENDDO
+
+!     ------------------------------------------------------------------
+!*         1.     SETTING CONSTANTS FOR DIAGNOSTIC CLOUD SCHEME
+!                 ---------------------------------------------
+
+!CALL SUCLD ( NFLEVG , ZETA ) ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         2.     SETTING CONSTANTS FOR LARGE-SCALE CONDENSATION SCHEME
+!                 -----------------------------------------------------
+
+!CALL SUCOND ( KULOUT , NFLEVG , ZETA ) ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         3.     SETTING CONSTANTS FOR CONVECTION SCHEME
+!                 ---------------------------------------
+
+!CALL SUCUMF(ISMAX)     ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         3.     SETTING CONSTANTS FOR NEW LINEARIZED CONVECTION SCHEME
+!                 ------------------------------------------------------
+
+!CALL SUCUMF2(ISMAX)  ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+!*         4.     SETTING CONSTANTS FOR GRAVITY WAVE DRAG SCHEME
+!                 ----------------------------------------------
+
+!CALL SUGWD (KULOUT, NFLEVG, VAH, VBH )   ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         5.     SETTING CONSTANTS FOR VERTICAL DIFFUSION
+!                 ----------------------------------------
+
+!CALL SUVDFS     ! MPL 28.11.08
+
+!CALL SUVDF      ! MPL 28.11.08
+
+!cccc CALL SUVDFD ( NABLPFR, ABLPLL ) cccccccccccccccccccccccccccccccccc
+
+!     ------------------------------------------------------------------
+
+!*         6.     SETTING CONSTANTS FOR RADIATION SCHEME
+!                 --------------------------------------
+
+IF (LRAYFM15) THEN
+  CALL SUECRAD15 (KULOUT, NFLEVG, ZETAH )
+ELSE
+  CALL SUECRAD (KULOUT, NFLEVG, ZETAH )
+ENDIF
+
+!     ------------------------------------------------------------------
+!*         7.     SETTING CONSTANTS FOR SURFACE SCHEME
+!                 ------------------------------------
+
+!IF (LRAYFM15) THEN
+!   CALL SUSURF(KSW=NSW,KCSS=YSP_SBD%NLEVS,KSIL=NSIL,KTILES=NTILES,KTSW=NTSW,&
+!    & LD_LLCCNL=LCCNL,LD_LLCCNO=LCCNO,&
+!    & LD_LEOCWA=LEOCWA,LD_LEOCCO=LEOCCO,LD_LEOCSA=LEOCSA,LD_LLE4ALB=LE4ALB,&
+!    & LD_LSCMEC=LSCMEC,LD_LROUGH=LROUGH,PEXTZ0M=REXTZ0M,PEXTZ0H=REXTZ0H,&
+!    & PTHRFRTI=RTHRFRTI,PTSTAND=TSTAND,PXP=XP,PRCCNSEA=RCCNSEA,PRCCNLND=RCCNLND,&
+!    & PRSUN=RSUN15)
+!ELSE
+!   CALL SUSURF(KSW=NSW,KCSS=YSP_SBD%NLEVS,KSIL=NSIL,KTILES=NTILES,KTSW=NTSW,&
+!    & LD_LLCCNL=LCCNL,LD_LLCCNO=LCCNO,&
+!    & LD_LEOCWA=LEOCWA,LD_LEOCCO=LEOCCO,LD_LEOCSA=LEOCSA,LD_LLE4ALB=LE4ALB,&
+!    & LD_LSCMEC=LSCMEC,LD_LROUGH=LROUGH,PEXTZ0M=REXTZ0M,PEXTZ0H=REXTZ0H,&
+!    & PTHRFRTI=RTHRFRTI,PTSTAND=TSTAND,PXP=XP,PRCCNSEA=RCCNSEA,PRCCNLND=RCCNLND,&
+!    & PRSUN=RSUN)
+!ENDIF
+
+
+!CALL SURF_INQ(KNVTYPES=NVTYPES)
+
+
+!          7.1    Allocate working arrays
+!ALLOCATE(RUSTRTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(RVSTRTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(RAHFSTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(REVAPTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(RTSKTI (NPROMA,NTILES,NGPBLKS))
+!RUSTRTI(:,:,:) = 0.0_JPRB
+!RVSTRTI(:,:,:) = 0.0_JPRB
+!RAHFSTI(:,:,:) = 0.0_JPRB
+!REVAPTI(:,:,:) = 0.0_JPRB
+!RTSKTI (:,:,:) = 0.0_JPRB
+!CALL GSTATS(1811,1)
+
+!     ------------------------------------------------------------------
+
+!*         8.     SETTING CONSTANTS FOR CLOUD OPTICAL PROPERTIES
+!                 ----------------------------------------------
+
+IF (LRAYFM15) THEN
+  CALL SUCLOP15
+ELSE
+  CALL SUCLOP
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         9.     SETTING CONSTANTS FOR PROGNOSTIC CLOUD SCHEME
+!                 ----------------------------------------------
+
+!CALL SUCLDP
+
+!     ------------------------------------------------------------------
+
+!*        10.     SETTING CONSTANTS FOR WAVE COUPLING
+!                 -----------------------------------
+
+!CALL SUWCOU
+
+!     ------------------------------------------------------------------
+!*         11.   SETTING CONSTANTS FOR LINEARIZED PHYSICS
+!                ----------------------------------------
+
+!CALL SUPHLI
+
+!     ------------------------------------------------------------------
+!*         12.   SETTING CONSTANTS FOR METHANE OXIDATION
+!                ---------------------------------------
+
+!CALL SUMETHOX
+
+!     ------------------------------------------------------------------
+
+WRITE(UNIT=KULOUT,FMT='('' SUPHEC IS OVER '')')
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHEC',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHEC
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphec.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphec.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphec.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHEC(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHEC
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphli.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphli.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphli.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUPHLI
+END SUBROUTINE SUPHLI
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphmf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphmf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphmf.F90	(revision 3330)
@@ -0,0 +1,126 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHMF(KULOUT)
+
+!**** *SUPHMF*   - Calls initialization of commons controlling physics
+!                  in the Meteo-France version.
+
+!     Purpose.
+!     --------
+!           Organise the setup of physical constants for Meteo-France
+!           physics package.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHMF(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        None.
+
+!     Method.
+!     -------
+!        Irrelevant.
+
+!     Externals.
+!     ----------
+
+!     SUPHY0
+!     SUPHY1
+!     SUPHY2
+!     SUPHY3
+!     SUTOPH
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+!        J.-F. Geleyn.
+
+!     Modifications.
+!     --------------
+!        Original : 91-06-15
+!        Modified 91-06-10 by A. Lasserre-Bigorry (call to SUTOPH)
+!        Modified 99-03-01 by D. Giard (call to VAL923 for 923 and 927)
+!        Modified 01-04-02 R. El Khatib setup for CAPE diagnostic
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified 04-11-16 Y. Seity : call suphmnh for AROME physics
+!        R. Zaaboul 28-Feb-2006: call suparar, suphmpa and suphmse (ex suphmnh)
+!        Y. Seity 06-07-10: nfpsurfex and lfpart2 in call suphmse (prepsurfex)  
+!     ------------------------------------------------------------------
+
+!*       1.    Call routines for specific physics' commons setup.
+!              --------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMPHY   , ONLY : LSOLV
+USE YOMARPHY , ONLY : LMPA, LMSE
+USE YOMCT0   , ONLY : LSFORC, LFPART2
+USE YOMFPC   , ONLY : NFPSURFEX
+
+! Ce qui concerne NULNAM et JPNULNAM commente par MPL le 15.04.09
+!USE PARDIM   , ONLY : JPNULNAM
+!USE YOMLUN   , ONLY : NULNAM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "sucape.intfb.h"
+#include "su0phy.intfb.h"
+#include "suphy0.intfb.h"
+#include "suphy1.intfb.h"
+#include "suphy2.intfb.h"
+#include "suphy3.intfb.h"
+#include "sutoph.intfb.h"
+#include "val923.intfb.h"
+! commente par MPL 20.11.08
+!#include "suparar.intfb.h"
+!#include "suphmpa.intfb.h"
+!#include "suphmse.intfb.h"
+
+! Ce qui concerne MNAM commente par MPL le 15.04.09
+!NULNAM = JPNULNAM
+!OPEN(NULNAM,ACTION="READ")
+!OPEN(NULNAM,FILE='MNAM',ACTION="READ")
+
+IF (LHOOK) CALL DR_HOOK('SUPHMF',0,ZHOOK_HANDLE)
+print *,'SUPHMF: avant SU0PHY'
+CALL SU0PHY(KULOUT)
+print *,'SUPHMF: avant SUPHY0'
+CALL SUPHY0(KULOUT)
+print *,'SUPHMF: avant SUPHY1'
+CALL SUPHY1(KULOUT)
+print *,'SUPHMF: avant SUPHY2'
+CALL SUPHY2(KULOUT)
+print *,'SUPHMF: avant SUPHY3'
+CALL SUPHY3(KULOUT)
+print *,'SUPHMF: avant SUTOPH'
+CALL SUTOPH(KULOUT)
+print *,'SUPHMF: avant VAL923'
+
+CALL VAL923(LSOLV)
+
+print *,'SUPHMF: avant SUCAPE'
+CALL SUCAPE(KULOUT)
+
+! setup for AROME physics and SURFEX
+! commente par MPL 20.11.08
+!CALL SUPARAR(KULOUT)
+!IF (LMPA) CALL SUPHMPA(KULOUT)
+!IF (LMSE.AND.NFPSURFEX==0.AND.(.NOT.LFPART2)) CALL SUPHMSE(KULOUT)
+
+!     ------------------------------------------------------------------
+
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!CLOSE(NULNAM)
+IF (LHOOK) CALL DR_HOOK('SUPHMF',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHMF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphmf.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphmf.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphmf.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHMF(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHMF
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy.F90	(revision 3330)
@@ -0,0 +1,139 @@
+SUBROUTINE SUPHY(KULOUT)
+
+USE YOMCT0   , ONLY : NCONF
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!**** *SUPHY*   - Calls physic specific set-up routines
+
+!     Purpose.
+!     --------
+!           Calls set-up routines specific to the different physics
+!           packages that can be used in the IFS/ARPEGE model
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY, YOEPHY
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     SUPHEC
+!     SUPHMF
+!     SUPHYFL
+!     SUHLPH
+!
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!        or
+
+!        Documentation ARPEGE (depending on which physics will be used)
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+!        J.-F. Geleyn for the ARPEGE rewriting.
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        ARPEGE extension 90-9-1
+!        ARPEGE modification 90-11-24
+!        Modified by M. Deque 91-02-28 (key for Ozone)
+!        Modified by M. Deque 91-03-18 (key for Negative humidity)
+!        Modified by M. Deque 91-04-01 (keys for cloudiness and wavedrag)
+!        Modified by J.-F. Geleyn 91-06-15 (call to SUPHMF and SUPHEC)
+!        Modified by J.-J. Morcrette 91-11-12
+!        Modified by K. YESSAD (MAY 2000): remove call to EC physics setup
+!         in a 2D model because some dimensionings are inconsistent and
+!         generate aborts, and because 2D models are purely adiabatic ones.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        B.Sass        01-June-2006 (call setup for HIRLAM physics)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+LOGICAL :: LLSHW, LLVEQ, LL2D
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "suphec.intfb.h"
+#include "suphmf.intfb.h"
+#include "suhlph.intfb.h"
+#include "suphyfl.intfb.h"
+#include "sumts.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*       0.    Set-up LL2D (2D model switch).
+!              ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY',0,ZHOOK_HANDLE)
+LLSHW=NCONF == 201.OR.NCONF == 421.OR.NCONF == 521
+LLVEQ=NCONF == 202.OR.NCONF == 422.OR.NCONF == 522
+LL2D=LLSHW.OR.LLVEQ
+
+!     ------------------------------------------------------------------
+
+!*       1.    Call initialization of specific physics' commons.
+!              -------------------------------------------------
+
+!*       1.1   Meteo-France Physics
+!              --------------------
+
+print *,'---- SUPHY: avant SUPHMF'
+CALL SUPHMF(KULOUT)
+!
+print *,'---- SUPHY: avant SUGFL'
+!SUGFL: Set up unified_treatment grid-point fields
+CALL SUGFL
+
+
+!*       1.2   ECMWF Physics
+!              -------------
+
+! IF Commente par MPL 20.11.08
+!IF (.NOT.LL2D) THEN
+   CALL SUPHEC(KULOUT)
+!ENDIF
+
+!        1.3   Initialize HIRLAM physics
+!              -------------------------
+! Commente par MPL 20.11.08
+!CALL SUHLPH(KULOUT)    
+!
+!     ------------------------------------------------------------------
+
+!*       2.    Initialize physics' flags commons.
+!              ----------------------------------
+
+! Commente par MPL 20.11.08
+!CALL SUPHYFL
+
+!     ------------------------------------------------------------------
+
+!*       3.    Initialize "model to satellite" RTTOV parameters.
+!              ------------------------------------------------
+
+! Commente par MPL 20.11.08
+!CALL SUMTS
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy0.F90	(revision 3330)
@@ -0,0 +1,723 @@
+
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY0(KULOUT)
+
+!**** *SUPHY0*   - Initialize common YOMPHY0 physics atmospheric
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY0, the common that contains the parameters
+!           for the atmospheric part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY0(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY0
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+
+!     Modifications.
+!     --------------
+!        Original : 90-9-1
+!        Ajout de GWDAMP (J.-F. Geleyn) : 91-2-2
+!        Modified by Michel Deque 91-04-01 (param. for convect. clouds)
+!        Ajout de HOBST, NPCLO1/2, XNBMAX et REVGSL, remplacement de
+!           GWDCOE par GWDSE (J.-F. Geleyn, M. Deque, L. Labbe) : 92-4-8
+!        Ajout de VZ0CM (E. Bazile) : 92-3-27
+!        Modified by C. Castejon and E. Gerard 92-02-28 (stat. clouds)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified by M. Deque : 95-03-20 (USURIC and USUPRC)
+!        Modified by J.F. Geleyn C. Bossuet : 95-12-20 (GWDBC)
+!        Modified by Luc Gerard: 97-02-26 (entrainement de la qte de mvt horizontale).
+!        Modified by J.M. Piriou: 97-02-28 (schema de nebulosite ACNEBN).
+!        Modified by J.M. Piriou: 97-04-17 (valeurs par defaut).
+!        Modified by J.L. Ricard : seuil (SCO) sur les precip. conv.
+!                                  modif de la turbulence residuelle
+!        Modified by J.M. Piriou: 97-08-21 (introduce Xu-Randall cloudiness).
+!        Modified by M. Deque   : 97-10-21 (introduce GWD lift).
+!        Modified by M. Deque   : 98-02-21 (new mixing length profile).
+!        Modified by V. Lorant  : 98-08-05 (new mixing length profile).
+!        Modified by J.M. Piriou: 98-02-11 (introduce downdrafts tuning parameters).
+!        Modified by J.M. Piriou: 98-03-10 (introduce GRCVPP)
+!        Modified by L. Gerard  : 98-11-30 (TUDGP, TDDGP, GCOMOD)
+!        Modified by R. EL Khatib :98-12-14 Remove LRDSPIL
+!        Modified by J.M. Piriou: 99-01-04 (introduce GCVADS, GCVBETA)
+!        Modified by J.M. Piriou: 99-06-18 (introduce GCVPSI, GCVALFA, USURICL AND USURICE.
+!                                 Change default value for GDDEVA).
+!        Modified by J.M. Piriou: 2000-08-23 (new use of the Richardson critical number (USURID)).
+!        Modified by J.M. Piriou: 2000-08-23 (cloud core buoyancy as a fraction of an undilute plume (GCVNU)).
+!        Modified by J.M. Piriou: 2000-10-06 (exponent USURIDE).
+!        Modified by E. Bazile  : 2000-12-12 CYCORA's default value.
+!        Modified by J.M. Piriou: 2001-04-05 (introduce GCVMLT).
+!        Modified by Y. Bouteloup:2002-06-14 (introduce RCVEVAP).
+!        Modified by F. Bouyssel: 2002-06-25 (introduce UTILGUST, RRGAMMA, RRSCALE).
+!        Modified by J.M. Piriou: 2002-08-19 (introduce GPBLH*).
+!        Modified by D. Banciu:   2002-12-09 (introduce GCVPSIE).
+!        R. El Khatib : 2001-08-07 Pruning options
+!        J.M. Piriou  : 2002-01-10 set default values to operational ones.
+!        03-06, move rnlcurv rnegat into yomphy0 (F. Bouyssel, C. Fischer)
+!        E. Bazile : 2004-02-24 (introduce EDK).
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        E. Bazile : 2004-06-30 (inroduces XKLM).
+!        R. Brozkova : 2004-11 modifs for Xue-Randall cloud. scheme
+!        P. Marquet & F.Bouyssel : 2004-08-18 (Lopez)
+!        F.Bouyssel : 2005-07-18 (new defaults and new parameters for Lopez)
+!        F.Bouyssel : 2006-01-25 (new defaults for Lopez!)
+!        F. Vana    : 2006-01-30 tunables for pTKE.
+!        R.Brozkova : 2006-03-03 : tuning constants for mixing lengths and Charnock formulae
+!        A.Alias    : 2006-03-10 renaming KDN in RKDN
+!        Modified by GMGEC/EAC  : 2006-05 list of modif.
+!                    V. Lorant  : 99-01-05 (new mixing length profile).
+!                    M. Deque   : 00-03-21 (new entrainment rate VL  ).
+!                    P. Marquet : 2002-11-05 TRENTRVL=0. if not ACPBLH
+!                    P. Marquet : 2004-05-27 TFVR and TFVS for ADVPRC.
+!                    P. Marquet : 2004-10-13 RAUTEFR for snow (ACMICRO).
+!                    P. Marquet : 2004-10-14 RAUTSBET for snow (ACMICRO).
+!                    A. Alias   : 2005-06-23 (param. for ACCVIMPGDY)
+!        E. Bazile & P. Marquet : 2006-04-11 AGRE1,AGRERICR,AJBUMIN,RCOFLM 
+!                                  for LPBLE.
+!        F.Bouyssel : 2006-10-30 RQLCV,RQICVMAX,RQICVMIN,RHEVAP
+!        M. Bellus  : 03-Oct-2006 : ALARO-0 phasing (defaults for prognostic
+!                                   convection, pTKE and PIL microphysics)
+!        A.Alias     : 2006-07   FEVAPC added for ACCVIMPGY (JF Gueremy)
+! ------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMSIMPHL, ONLY : LSIMPH   ,LSMOOTHD ,LSMOOTHA
+USE YOMPHY   , ONLY : LCVCAS   ,LCVLIS   ,LCVRA    ,LMPHYS   ,LCONDWT  ,&
+ & LPROCLD  ,LNEBCO   ,LNEBR    ,LECT     ,LNEBGR   ,LCVRAV3 ,LPIL
+USE YOMPHY0  , ONLY : TYM      ,NPCLO1   ,NPCLO2   ,AERCS1   ,AERCS3   ,&
+ & AERCS5   ,ALMAV    ,BEDIFV   ,ECMNP    ,EDB      ,EDC      ,&
+ & EDD      ,EVAP     ,FONT     ,GALP     ,GCCSV    ,GCOMOD   ,&
+ & GCVADS   ,GCVALFA  ,GCVBETA  ,GCVPSI   ,GDDEVA   ,GDDSDE   ,&
+ & GRCVPP   ,GWDAMP   ,GWDBC    ,GWDCCO   ,GWDCD    ,GWDLT    ,&
+ & AHCLPV   ,GWDSE    ,HOBST    ,HUCOE    ,HUCOE2   ,HUTIL    ,&
+ & HUTIL1   ,HUTIL2   ,&
+ & QSSC     ,QSMIN    ,QSNEBC   ,QSNEBS   ,QSSUSC   ,QSSUSS   ,&
+ & QXRAL    ,QXRDEL   ,QXRR     ,REVGSL   ,RTCAPE   ,SCO      ,&
+ & SENSL    ,SNNBCO   ,SPNBCO   ,SXNBCO   ,TCA      ,TCT      ,&
+ & TCW      ,TENTR    ,TENTRX   ,TDDGP    ,TUDGP    ,TURB     ,&
+ & TVF      ,UHDIFV   ,USDMLT   ,USUPRC   ,USURIC   ,USURID   ,&
+ & USURIDE  ,USURICE  ,USURICL  ,VCHRNK   ,VKARMN   ,VZ0CM    ,&
+ & XNBMAX   ,RICRLM   ,XBLM     ,XMINLM   ,XMAXLM   ,XWSALM   ,&
+ & XWSBLM   ,GCVNU    ,GCVMLT   ,RCVEVAP  ,GPBLHK0  ,GPBLHRA  ,&
+ & UTILGUST ,RRGAMMA  ,RRSCALE  ,GCVPSIE  ,QSUSXC   ,QSUSXS   ,&
+ & ETACUT   ,RNEGAT   ,RNLCURV  ,QSSUSV   ,QXRHX    ,GCISMIN  ,&
+ & GWDPROF  ,GWDVALI  ,RCIN     ,EDK      ,XKLM     ,RPHI0    ,&
+ & RPHIR    ,QXRTGH   ,ADISE    ,ADISI    ,AECLS3   ,AECLS4   ,&
+ & AKN      ,ALD      ,ALPHAE   ,ALPHAT   ,ECTMIN   ,UCWSTAR  ,&
+ & UDECT    ,USHEARM  ,UPRETMIN ,UPRETMAX ,ARSCH    ,ARSCQ    ,&
+ & ARSC1    ,ARSB2    ,ACBRPHIM ,ALMAVE   ,RICRET   ,STTBMIN  ,&
+ & AGREKE   ,RDTFAC   ,RAUTEFS  ,RNINTR   ,RNINTS   ,RQLCR    ,&
+ & RQICRMAX ,RQICRMIN ,RACCEF   ,RRIMEF   ,RHCRIT1  ,RHCRIT2  ,&
+ & RETAMIN  ,TFVR     ,TFVS     ,RAUTEFR  ,RAUTSBET ,GRHCMOD  ,&
+ & RQICRT1  ,RQICRT2  ,RQICRSN  ,RQCRNS   ,RFACNSM  ,RAGGEF   ,&
+ & RQLCV    ,RQICVMAX ,RQICVMIN ,RHEVAP   ,&
+ & AGRE1    ,AGRERICR ,AJBUMIN  ,RCOFLM   ,&
+ & A0ML_AU  ,A0ML_AT  ,A0ML_BU  ,A0ML_BT  ,VZIUSTAR0,&
+ & TENTRVL  ,TRENTRV  ,UETEPS   ,UPRECLP  ,&
+ & ARSC2    ,ARSCT    ,AGRE2    ,AGREF    ,&
+ & AJ1PEPS  ,AJ1MEPS  ,NAJITER  ,&
+ & ALFX     ,TCTC     ,TVFC     ,GAMAP1   ,RKDN      ,&
+ & VVN      ,VVX      ,FENTRT   ,HCMIN    ,FQLIC    ,FNEBC    ,&
+ & NUPTKE   ,GAMTKE   ,RCOLL    ,RFALLL   ,TDDBU    ,&
+ & TDDFR    ,TUDBU    ,TUDFR    ,GCVACHI  ,GCVALMX  ,GCVADMW  ,&
+ & GCVBEE   ,GCVEEX   ,ECMNPI   ,GFRIC    ,GCVSQDN  ,GCVSQDR  ,&
+ & GCVSQDCX ,GRRINTE  ,GRRMINA  ,GDDBETA  ,GDDEVF   ,GDDWPF   ,&
+ & TENTRD   ,RDPHIC   ,GWBFAUT  ,RWBF1    ,RWBF2    ,RAUITN   ,&
+ & RAUITX   ,RAUIUSTE ,RSMDNEBX ,RSMDTX   ,NSMTPA   ,NSMTPB   ,&
+ & FEVAPC
+
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "surhcri.intfb.h"
+
+#include "namphy0.h"
+
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+IF (LHOOK) CALL DR_HOOK('SUPHY0',0,ZHOOK_HANDLE)
+A0ML_AU=4.5_JPRB
+A0ML_AT=5.0_JPRB
+A0ML_BU=3.0_JPRB
+A0ML_BT=0.8_JPRB
+AERCS1=0.2726_JPRB
+AERCS3=-0.4239_JPRB
+AERCS5=0.3595_JPRB
+ALMAV=300._JPRB
+BEDIFV=0.05_JPRB
+ECMNP=3000._JPRB
+EDB=5._JPRB
+EDC=5._JPRB
+EDD=5._JPRB
+EDK=1.0_JPRB
+ETACUT=1.0_JPRB
+EVAP=4.8E+06_JPRB
+FONT=2.4E+04_JPRB
+GALP=0.53_JPRB
+GCISMIN=6.7E-05_JPRB
+GCCSV=0._JPRB
+GCOMOD=1._JPRB
+GCVADS=0.8_JPRB
+GCVALFA=4.5E-05_JPRB
+GCVBETA=0.2_JPRB
+GCVMLT=0.00016_JPRB
+GCVNU=2.5E-05_JPRB
+GCVPSI=0.5_JPRB
+GCVPSIE=0.0_JPRB
+GDDEVA=0.25_JPRB
+GDDSDE=0.5_JPRB
+GPBLHK0=0.25_JPRB
+GPBLHRA=4._JPRB
+GRCVPP=1._JPRB
+GWDAMP=0.6_JPRB
+GWDBC=2._JPRB
+GWDCCO=1._JPRB
+GWDCD=6._JPRB
+GWDLT=0._JPRB
+GWDSE=3.5E-03_JPRB
+GWDPROF=1._JPRB
+GWDVALI=0._JPRB
+HOBST=3._JPRB
+HUCOE=2._JPRB
+HUCOE2=0.4_JPRB
+HUTIL=1.8_JPRB
+HUTIL1=-0.6_JPRB
+HUTIL2=1.1_JPRB
+NPCLO1=1
+NPCLO2=1
+QSSC=1600._JPRB
+QSMIN=1.E-4_JPRB
+QSNEBC=26000._JPRB
+QSNEBS=0.7_JPRB
+QSSUSC=1._JPRB
+QSSUSS=0.25_JPRB
+QSSUSV=0._JPRB
+QSUSXC=3.3E-05_JPRB
+QSUSXS=3.3E-05_JPRB
+RPHI0=0._JPRB
+RPHIR=1750._JPRB
+QXRAL=10000._JPRB
+QXRDEL=0._JPRB
+QXRHX=1._JPRB
+QXRR=0.5_JPRB
+QXRTGH=3.5_JPRB
+RCIN=0._JPRB
+RCVEVAP=0._JPRB
+REVGSL=80._JPRB
+RTCAPE=10800._JPRB
+SCO=-20._JPRB
+SENSL=1._JPRB
+SNNBCO=0._JPRB
+SPNBCO=3000._JPRB
+SXNBCO=0.5_JPRB
+TCA=1._JPRB
+TCT=1.E-4_JPRB
+TCW=8.E-4_JPRB
+TENTR=2.5E-06_JPRB
+TENTRX=8.E-05_JPRB
+TDDGP=0.8_JPRB
+TUDGP=0.8_JPRB
+TURB=1._JPRB
+TVF=1._JPRB
+TYM(1)=0.92_JPRB
+TYM(2)=0.74_JPRB
+TYM(3)=16.6_JPRB
+TYM(4)=10.1_JPRB
+TYM(5)=0.08_JPRB
+UHDIFV=8.E-04_JPRB
+USDMLT=1.25E+04_JPRB
+USUPRC=0.0_JPRB
+USURIC=1.0_JPRB
+USURID=0.035_JPRB
+USURIDE=1.0_JPRB
+USURICE=0.5_JPRB
+USURICL=4._JPRB
+UTILGUST=0.125_JPRB
+VCHRNK=0.021_JPRB
+VKARMN=0.4_JPRB
+VZ0CM=1.5E-04_JPRB
+VZIUSTAR0=0._JPRB
+XNBMAX=1._JPRB
+AHCLPV=1000._JPRB
+RICRLM=0.5_JPRB
+RRGAMMA=0.8_JPRB
+RRSCALE=1.15E-4_JPRB
+XBLM=6.5_JPRB
+XKLM=1.0_JPRB
+XMAXLM=3000._JPRB
+XMINLM=500._JPRB
+XWSALM=0.1_JPRB
+XWSBLM=7.0_JPRB
+RNEGAT = -7.E-05_JPRB
+RNLCURV = 7.E+04_JPRB
+
+!     - - - - - - - - - - - - - -
+!     The old Convective scheme :
+!     - - - - - - - - - - - - - -
+TRENTRV=1._JPRB
+TENTRVL=-1.0_JPRB
+
+IF ( LCONDWT.AND.LPROCLD ) THEN
+  RDTFAC=0.5_JPRB
+ELSE
+  RDTFAC=1.0_JPRB
+ENDIF
+
+!        - - - - - - - - - -
+!        Lopez Microphysics :
+!        - - - - - - - - - -
+RAUTEFR=1.E-03_JPRB
+RAUTEFS=1.E-03_JPRB
+RAUTSBET=0.025_JPRB
+RNINTR=8.E+06_JPRB
+RNINTS=2.E+06_JPRB
+RQLCR=2.E-04_JPRB
+RQICRMAX=0.3E-04_JPRB
+RQICRMIN=0.2E-06_JPRB
+RQLCV=2.E-04_JPRB
+RQICVMAX=0.3E-04_JPRB
+RQICVMIN=0.2E-06_JPRB
+RQICRT1=-80._JPRB
+RQICRT2=30._JPRB
+RQICRSN=0.5_JPRB
+RQCRNS=0.03_JPRB
+RACCEF=1._JPRB
+RAGGEF=0.2_JPRB
+RRIMEF=1._JPRB
+RHEVAP=0.0_JPRB
+RHCRIT1=0.5_JPRB
+RHCRIT2=0.91_JPRB
+RETAMIN=0.4_JPRB
+RFACNSM=1.4_JPRB
+TFVR=5.0_JPRB
+TFVS=0.6_JPRB
+GRHCMOD=0.3_JPRB
+
+
+!--------------------------
+! PIL MICROPHYSICS
+!--------------------------
+RDPHIC=10000._JPRB
+GWBFAUT=15._JPRB
+! two constants for ACPLUIE_PROG:
+RWBF1=300._JPRB
+RWBF2=4._JPRB
+!
+RAUITN=233.15_JPRB
+RAUITX=263.15_JPRB
+RAUIUSTE=0.025_JPRB
+RSMDNEBX=0.2_JPRB
+RSMDTX=1.0_JPRB
+NSMTPA=2
+NSMTPB=3
+RCOLL=6.9E-03_JPRB
+RFALLL=1.0_JPRB
+!--------------------------
+! Prognostic convection physical parameters
+!--------------------------
+TUDBU=0.5_JPRB
+TDDBU=0.5_JPRB
+TUDFR=0.0012_JPRB
+TDDFR=0.0006_JPRB
+GCVALMX=0.95_JPRB
+! Pas d'activite historique: defaut tres haut,
+! pour que KUO joue tout seul:
+GCVACHI=1.E9_JPRB
+GCVADMW =0
+! Explicit entrainment:
+GCVBEE=0._JPRB ! 0.2_JPRB
+GCVEEX=1._JPRB
+ECMNPI=3000._JPRB
+GFRIC=-1.0_JPRB !1.E-3_JPRB
+! Sqeezing:
+GCVSQDN=0.01_JPRB
+GCVSQDR=0.8_JPRB
+GCVSQDCX=1.0_JPRB ! No squeezing
+! PRECIPITATING AREA PARAMETERS (aplpar):
+GRRINTE=2._JPRB
+GRRMINA=1.E-5_JPRB
+! DD explicit detrainment:
+GDDBETA=0.2_JPRB
+! ACMODO DD PARAMETERS:
+GDDEVF=0.5_JPRB
+GDDWPF=0._JPRB
+! DD ENTRAINMENT RATE:
+TENTRD=1.E-4_JPRB
+
+!     - - - - - - - -
+!     For TKE scheme :
+!     - - - - - - - -
+ADISE=-0.5_JPRB
+ADISI=1.5_JPRB
+AECLS3=3.75_JPRB
+AECLS4=0.3_JPRB
+AKN=0.2_JPRB
+ALD=1.4_JPRB
+ALPHAE=1.0_JPRB
+ALPHAT=1.0_JPRB
+ECTMIN=1.E-10_JPRB
+
+UCWSTAR=1.0_JPRB/3._JPRB
+UDECT=5._JPRB
+USHEARM=1.E-04_JPRB
+UPRETMIN=60000._JPRB
+UPRETMAX=97500._JPRB
+ARSCH=4._JPRB
+ARSCQ=1.2_JPRB
+ARSC1=2.0_JPRB/(3._JPRB*ARSCH*ARSCQ)
+ARSB2=3._JPRB*ARSCH*ARSC1/2.0_JPRB
+ACBRPHIM=2.2_JPRB
+ALMAVE=0._JPRB
+RICRET=0.195_JPRB
+
+STTBMIN=SQRT(3._JPRB)
+! A minimum value for the adimentional jump in boyancy : d(Theta)/Theta
+AJBUMIN=0.005_JPRB
+! The "Master Length" is equal to "RCOFLM*Z_PBL"
+RCOFLM=0.085_JPRB
+
+
+! TKE (P.Marquet)
+UETEPS=1.0_JPRB 
+
+!     - - - - - - - - - - - - - - - -
+!     For dry conv. adjustment scheme :
+!     - - - - - - - - - - - - - - - -
+AJ1MEPS=0.99_JPRB
+AJ1PEPS=10.0_JPRB
+NAJITER=30
+
+!     - - - - - - - - - - - - - - - - - - - - - - -
+!     For Grenier (2000) top-PBL entrainment scheme :
+!     - - - - - - - - - - - - - - - - - - - - - - -
+AGRE1=0.16_JPRB
+AGRE2=15._JPRB
+AGREF=0.8_JPRB
+AGREKE=5.0_JPRB
+AGRERICR=50._JPRB
+
+! Pseudo prognostic TKE scheme
+NUPTKE=0.52_JPRB
+GAMTKE=0.5_JPRB
+
+
+
+!     - - - - - - -
+!     For ACCVIMPGY :
+!     - - - - - - -
+ALFX=10.E-02_JPRB
+TCTC=1.60E-04_JPRB
+TVFC=1._JPRB
+GAMAP1=1.5_JPRB
+RKDN=30.E-06_JPRB
+VVN=0.0_JPRB
+VVX=-45._JPRB
+FENTRT=2.5_JPRB
+HCMIN=0.0_JPRB
+FQLIC=2.5_JPRB
+FNEBC=25.0_JPRB
+FEVAPC=3.5_JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY0 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY0')
+!READ(NULNAM,NAMPHY0)
+
+IF(.NOT.(LNEBCO.AND.(LNEBR.OR.LNEBGR.OR.LECT)) .AND.LCVRAV3) THEN
+  WRITE(UNIT=KULOUT,FMT='(A)') ' '
+  WRITE(UNIT=KULOUT,FMT='(A)') ' !'
+  WRITE(UNIT=KULOUT,FMT='(A)') ' ! TENTRVL is set to 0. in SUPHY0  !!'
+  WRITE(UNIT=KULOUT,FMT='(A)') ' !'
+  WRITE(UNIT=KULOUT,FMT='(A)') ' '
+  TENTRVL = 0.0_JPRB
+ENDIF
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY0 '')')
+WRITE(UNIT=KULOUT,FMT='('' AERCS1 = '',E11.4,'' AERCS3 = '',E11.4 &
+ & ,'' AERCS5 = '',E11.4,'' ALMAV = '',E11.4,'' ECMNP = '',E11.4 &
+ & ,'' EDB = '',E11.4,/,'' EDC = '',E11.4,'' EDD = '',E11.4 &
+ & ,'' EDK = '',E11.4,'' ETACUT = '',E11.4 &
+ & ,'' EVAP = '',E11.4,'' FONT = '',E11.4,'' GWDAMP = '',E11.4 &
+ & ,'' GWDSE = '',E11.4,'' GWDBC = '',E11.4,/&
+ & ,'' GWDCD = '',E11.4,/&
+ & ,'' GWDPROF = '',E11.4,'' GWDVALI = '',E11.4,/&
+ & ,'' HUCOE = '',E11.4,'' HUTIL = '',E11.4 ,'' HUTIL1 = '',E11.4 ,'' HUTIL2 = '',E11.4 &
+ & ,'' VCHRNK = '',E11.4,'' VKARMN = '',E11.4 &
+ & ,'' SNNBCO = '',E11.4,/,'' SPNBCO = '',E11.4 &
+ & ,'' SXNBCO = '',E11.4,'' HOBST = '',E11.4,'' NPCLO1 = '',I4 &
+ & ,'' NPCLO2 = '',I4,'' RCIN = '',E11.4,'' RCVEVAP = '',E11.4 &
+ & ,'' REVGSL = '',E11.4,/&
+ & ,'' RTCAPE= '',E11.4,'' GCOMOD= '',E11.4,/&
+ & ,'' UHDIFV = '',E11.4,'' VZ0CM = '',E11.4,'' VZIUSTAR0 = '',E11.4 &
+ & ,'' XNBMAX = '',E11.4,'' GALP = '',E11.4,'' SENSL = '',E11.4 &
+ & ,'' TCA = '',E11.4,/,'' TCT = '',E11.4,'' TCW = '',E11.4 &
+ & ,'' TURB = '',E11.4,'' TVF = '',E11.4,/&
+ & ,'' TYM = '',5E11.4,'' QSMIN = '',E11.4,/&
+ & ,'' QSSC = '',E11.4,'' RPHI0 = '',E11.4,'' RPHIR = '',E11.4 &
+ & ,'' BEDIFV = '',E11.4,'' SCO = '',E11.4 &
+ & ,'' USDMLT = '',E11.4,/&
+ & ,'' GDDEVA = '',E11.4,'' GDDSDE = '',E11.4,/&
+ & ,'' GWDCCO = '',E11.4 &
+ & ,'' HUCOE2 = '',E11.4,/&
+ & ,'' TENTR = '',E11.4,'' TENTRX = '',E11.4 &
+ & ,'' TUDGP = '',E11.4,'' TDDGP = '',E11.4 &
+ & ,'' GRCVPP = '',E11.4 &
+ & )')&
+ & AERCS1,AERCS3,AERCS5,ALMAV,ECMNP,EDB,EDC,EDD,EDK,ETACUT,EVAP,FONT,&
+ & GWDAMP,GWDSE,GWDBC,GWDCD,GWDPROF,GWDVALI,&
+ & HUCOE,HUTIL,HUTIL1,HUTIL2,VCHRNK,VKARMN,SNNBCO,SPNBCO,SXNBCO,HOBST,&
+ & NPCLO1,NPCLO2,RCIN,RCVEVAP,REVGSL,RTCAPE,GCOMOD,&
+ & UHDIFV,VZ0CM,VZIUSTAR0,XNBMAX,GALP,SENSL,TCA,TCT,TCW,&
+ & TURB,TVF,TYM,QSMIN,QSSC,RPHI0,RPHIR,BEDIFV,SCO,USDMLT,&
+ & GDDEVA,GDDSDE,GWDCCO,&
+ & HUCOE2,&
+ & TENTR,TENTRX,TUDGP,TDDGP,GRCVPP  
+WRITE(UNIT=KULOUT,FMT='('' USUPRC = '',E11.4,'' USURIC = '',E11.4 &
+ & ,'' QSNEBC = '',E11.4,'' QSNEBS = '',E11.4 &
+ & ,'' QSSUSC = '',E11.4,'' QSSUSS = '',E11.4,'' QSSUSV = '',E11.4 &
+ & ,'' QSUSXC = '',E11.4,'' QSUSXS = '',E11.4 &
+ & ,'' GCCSV  = '',E11.4,/&
+ & ,'' QXRAL  = '',E11.4,'' QXRDEL = '',E11.4 &
+ & ,'' QXRHX  = '',E11.4,'' QXRR   = '',E11.4,'' QXRTGH = '',E11.4,/&
+ & ,'' GWDLT  = '',E11.4,'' AHCLPV = '',E11.4,/&
+ & ,'' GCVADS = '',E11.4,'' GCVBETA= '',E11.4 &
+ & ,'' RICRLM = '',E11.4,'' XBLM   = '',E11.4,'' XKLM = '',E11.4 &
+ & ,'' XMINLM = '',E11.4,'' XMAXLM = '',E11.4 &
+ & )')&
+ & USUPRC,USURIC,QSNEBC,QSNEBS,QSSUSC,QSSUSS,QSSUSV,QSUSXC,QSUSXS,GCCSV,QXRAL &
+ & ,QXRDEL,QXRHX,QXRR,QXRTGH,GWDLT,AHCLPV,GCVADS,GCVBETA,RICRLM,XBLM,XKLM,XMINLM &
+ & ,XMAXLM  
+WRITE(UNIT=KULOUT,FMT='('' XWSALM = '',E11.4,'' XWSBLM = '',E11.4 &
+ & ,'' GCVALFA= '',E11.4,'' GCVPSI = '',E11.4,'' GCVPSIE = '',E11.4 &
+ & ,'' USURICL= '',E11.4,'' USURICE= '',E11.4,/ &
+ & ,'' USURID= '',E11.4,'' USURIDE= '',E11.4,'' GCVNU= '',E11.4 &
+ & ,'' GCVMLT= '',E11.4,'' GPBLHK0= '',E11.4,'' GPBLHRA = '',E11.4 &
+ & ,'' UTILGUST= '',E11.4,'' RRGAMMA= '',E11.4,'' RRSCALE = '',E11.4 &
+ & )')&
+ & XWSALM,XWSBLM,GCVALFA,GCVPSI,GCVPSIE,USURICL,USURICE,USURID,USURIDE,GCVNU,GCVMLT,GPBLHK0 &
+ & ,GPBLHRA,UTILGUST,RRGAMMA,RRSCALE  
+WRITE(UNIT=KULOUT,FMT='('' RNEGAT == '',E11.4,'' RNLCURV = '',E11.4 &
+ & )') RNEGAT,RNLCURV  
+WRITE(UNIT=KULOUT,FMT='('' RDTFAC == '',E11.4 )') RDTFAC
+WRITE(UNIT=KULOUT,FMT='(9(5(A,E11.4),/))') 'GCISMIN=',GCISMIN
+WRITE(UNIT=KULOUT,FMT='('' A0ML_AU == '',E11.4,'' A0ML_AT == '',E11.4 &
+ &,'' A0ML_BU == '',E11.4,'' A0ML_BT == '',E11.4 )') A0ML_AU,A0ML_AT&
+ &,A0ML_BU,A0ML_BT
+
+!     - - - - - - - -
+!     For TKE scheme :
+!     - - - - - - - -
+! WRITE(UNIT=KULOUT,FMT='( '' ADISE   = '',E11.4,'' ADISI   = '',E11.4,/ &
+!  &,'' AECLS3  = '',E11.4,'' AECLS4  = '',E11.4,'' AKN     = '',E11.4,/ &
+!  &,'' ALD     = '',E11.4,'' ALPHAE  = '',E11.4,'' ALPHAT  = '',E11.4,/ &
+!  &,'' ECTMIN  = '',E11.4,'' UCWSTAR = '',E11.4,'' UDECT   = '',E11.4,/ &
+!  &,'' USHEARM = '',E11.4,/ &
+!  &,'' UPRETMIN= '',E11.4,'' UPRETMAX= '',E11.4,'' ARSCH   = '',E11.4,/ &
+!  &,'' ARSCQ   = '',E11.4,'' ARSC1   = '',E11.4,/ &
+!  &,'' ARSB2   = '',E11.4,'' STTBMIN = '',E11.4,/ &
+!  &,'' ACBRPHIM= '',E11.4,'' ALMAVE  = '',E11.4,'' RICRET  = '',E11.4,/ &
+!  &,'' UETEPS  = '',E11.4,/ &
+!  &,'' ABJUMIN = '',E11.4,'' RCOFLM  = '',E11.4,&
+!      &)')&
+   WRITE(UNIT=KULOUT,FMT=*) &
+  &ADISE,ADISI,AECLS3,AECLS4,AKN,ALD,ALPHAE,ALPHAT,ECTMIN,UCWSTAR,UDECT,&
+  &USHEARM,UPRETMIN,UPRETMAX,ARSCH,ARSCQ,ARSC1,ARSB2,STTBMIN,&
+  &ACBRPHIM,ALMAVE,RICRET,UETEPS,AJBUMIN,RCOFLM
+
+
+!       - - - - - - - - - -
+!       Lopez Microphysics :
+!       - - - - - - - - - -
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - - - '')')
+WRITE(UNIT=KULOUT,FMT='(''  Microphysics scheme  '')')
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - - - '')')
+WRITE(UNIT=KULOUT,FMT='( '' RAUTEFR = '',E11.4   &
+ &,'' RAUTEFS = '',E11.4,'' RAUTSBET= '',E11.4,/ &
+ &,'' RNINTR  = '',E11.4,'' RNINTS  = '',E11.4,/ &
+ &,'' RQLCR   = '',E11.4,'' RQCRNS  = '',E11.4,/ &
+ &,'' RQICRMIN= '',E11.4,'' RQICRMAX= '',E11.4,/ &
+ &,'' RQLCV   = '',E11.4 &
+ &,'' RQICVMIN= '',E11.4,'' RQICVMAX= '',E11.4,/ &
+ &,'' RQICRT1 = '',E11.4,'' RQICRT2 = '',E11.4,/ &
+ &,'' RQICRSN = '',E11.4,'' RACCEF  = '',F11.4,/ &
+ &,'' RAGGEF  = '',F11.4,'' RRIMEF  = '',F11.4,/ &
+ &,'' RHCRIT1 = '',F11.6,'' RHCRIT2 = '',F11.6,/ &
+ &,'' RETAMIN = '',F11.6,'' RFACNSM = '',F11.6,/ &
+ &,'' TFVR    = '',F11.6,'' TFVS    = '',F11.6,/ &
+ &,'' GRHCMOD = '',F11.6,'' RHEVAP  = '',F11.6,/ &
+ &    )') &
+ &RAUTEFR,RAUTEFS,RAUTSBET,RNINTR,RNINTS,RQLCR,RQCRNS,RQICRMIN,RQICRMAX, &
+ &RQLCV,RQICVMIN,RQICVMAX,RQICRT1,RQICRT2,RQICRSN,RACCEF,RAGGEF,RRIMEF, &
+ &RHCRIT1,RHCRIT2,RETAMIN,RFACNSM,TFVR,TFVS,GRHCMOD,RHEVAP
+
+!     - - - - - - - - - - -
+!     For Grenier scheme :
+!     - - - - - - - - - - -
+!WRITE(UNIT=KULOUT,FMT='('' AGRE1   = '',E11.4,'' AGRE2   = '',E11.4,'' AGREF   = '',E11.4,/ &
+! & ,'' AGRERICR= '',E11.4,'' AGREKE  = '',E11.4, &
+! & )')&
+WRITE(UNIT=KULOUT,FMT=*) &
+ & AGRE1,    AGRE2,   AGREF,      AGRERICR, AGREKE
+
+!     - - - - - - - - - - - - - - - -
+!     For dry conv. adjustment scheme :                                -
+!     - - - - - - - - - - - - - - - -
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' AJ1PEPS = '',E11.4,'' AJ1MEPS = '',E11.4,'' NAJITER = '',I3,8X &
+ & )')&
+ & AJ1PEPS, AJ1MEPS, NAJITER
+
+!     - - - - - - -
+!     For ACCVIMPGY :
+!     - - - - - - -
+WRITE(UNIT=KULOUT,FMT='( '' ALFX    = '',E11.4  &
+ &,'' TCTC    = '',E11.4,'' TVFC    = '',F11.6,/ &
+ &,'' GAMAP1  = '',F11.6,'' RKDN    = '',E11.4,/ &
+ &,'' VVN     = '',F11.6,'' VVX     = '',F11.6,/ &
+ &,'' FENTRT  = '',F11.6,'' HCMIN   = '',F11.6  &
+ &,'' FQLIC   = '',F11.6,'' FNEBC   = '',F11.6,/ &
+ &,'' FEVAPC  = '',F11.6)')&
+ & ALFX, TCTC, TVFC, GAMAP1, RKDN, VVN, VVX, FENTRT, &
+ & HCMIN, FQLIC, FNEBC, FEVAPC
+
+
+WRITE(UNIT=KULOUT,FMT='(''  Pseudo prognostic TKE scheme  '')')
+WRITE(UNIT=KULOUT,FMT='( '' NUPTKE = '',E11.4  &
+ &'' GAMTKE = '',E11.4)') NUPTKE,GAMTKE
+
+WRITE(KULOUT,'(/'' PIL MICROPHYSICS : '')')
+WRITE(UNIT=KULOUT,FMT='('' RAUIUSTE = '',E10.4  &
+ &,'' RAUITN = '',F8.3,'' RAUITX = '',F8.3  &
+ &,'' RDPHIC = '',F8.2   &
+ &,'' GWBFAUT = '',F5.2 &
+ &,'' RWBF1 = '',F6.2,'' RWBF2 = '',F5.2 &
+ &,'' RSMDNEBX = '',F5.2 &
+ &,'' RSMDTX = '',F5.2 &
+ &,'' NSMTPA = '',I2 &
+ &,'' NSMTPB = '',I2 &
+ &,'' RCOLL = '',E11.4 &
+ &,'' RFALLL = '',E11.4 &
+ &    )') &
+ &RAUIUSTE,RAUITN,RAUITX,RDPHIC,GWBFAUT,RWBF1,RWBF2,&
+ &RSMDNEBX, RSMDTX, NSMTPA, NSMTPB, RCOLL, RFALLL
+!----------------------------------------
+WRITE(KULOUT,'(/'' PROGNOSTIC CONVECTION '')')
+if (1==0) then     !!!!! A REVOIR (MPL)
+WRITE(KULOUT,&
+ &'('' TUDBU='',E16.6,'' TUDFR='',E16.6,'' TDDBU='',E16.6,'' TDDFR='', &
+ & E16.6,&
+ & '' GCVALMX='',G10.4,'' GCVACHI='',E16.6,&
+ & '' GCVADMW='',G10.4,&
+ & '' GCVEEX ='',G10.4,&
+ & '' GCVBEE ='',G10.4,&
+ & '' GCVSQDN ='',G10.4,&
+ & '' GCVSQDR ='',G10.4,&
+ & '' GCVSQDCX ='',G10.4,&
+ & '' ECMNPI ='',G10.4,&
+ & '' GFRIC ='',G10.4&
+ & )')TUDBU,TUDFR,TDDBU,TDDFR,GCVALMX,GCVACHI,&
+ &    GCVADMW,GCVEEX,GCVBEE, &
+ &    GCVSQDN, GCVSQDR, GCVSQDCX, ECMNPI,GFRIC
+else
+  print*,'>>>>> TOTO1 ', TUDBU,TUDFR,TDDBU,TDDFR,GCVALMX,GCVACHI,&
+ &    GCVADMW,GCVEEX,GCVBEE, &
+ &    GCVSQDN, GCVSQDR, GCVSQDCX, ECMNPI,GFRIC
+endif
+WRITE(KULOUT,&
+ &'('' GDDEVF='',G10.4,'' GDDWPF='',G10.4,'' GDDBETA='',G10.4)')&
+ & GDDEVF, GDDWPF, GDDBETA
+WRITE(KULOUT,&
+ & '('' GRRINTE ='',G10.4,'' GRRMINA ='',G10.4&
+ & )') GRRINTE, GRRMINA
+!     ------------------------------------------------------------------
+
+!*       4.    Check consistency between logical and real namelist inputs.
+!              -------------------
+
+IF (LMPHYS) THEN
+
+  IF(LCVRA.AND.((TUDGP /= 0.0_JPRB.OR.TDDGP /= 0.0_JPRB).AND..NOT.LCVCAS)) THEN
+    WRITE(UNIT=KULOUT,FMT='(A)') &
+     & 'INCONSISTENCY BETWEEN TUDGP, TDDGP AND LCVCAS!...'  
+    CALL ABOR1('TUDP<>0. OR TDDGP<>0. IMPLIES LCVCAS=T!...')
+  ENDIF
+
+  IF(.NOT.LCVLIS.AND.GCVPSI /= 0.0_JPRB) THEN
+    WRITE(UNIT=KULOUT,FMT='(A)') 'INCONSISTENCY BETWEEN LCVLIS AND GCVPSI!...'
+    CALL ABOR1('LCVLIS=F IMPLIES GCVPSI=0.!...')
+  ENDIF
+
+ENDIF
+
+!*  Consistency check for simplified physics keys
+
+IF ((LMPHYS.OR.LSIMPH).AND.(LSMOOTHD.OR.LSMOOTHA)) THEN
+
+  IF(RNLCURV == 0.0_JPRB) THEN
+    WRITE(UNIT=KULOUT,FMT='(A)') 'SMOOTHING IN SIM. PH. BUT RNLCURV = ZERO'
+    CALL ABOR1('PHYSICS AND SMOOTHING IMPLY RNLCURV /= ZERO')
+  ENDIF
+
+ENDIF
+IF (LPIL) THEN
+! Setup RHCRI profile(s)
+! (for LAM case... GAW set up by suecuv, called before suphy)
+! (For Not LAM, SULEG called by sugem called before suphy)
+  CALL SURHCRI(KULOUT)
+! CALL SULOCST(KULOUT)
+ENDIF
+
+IF (LHOOK) CALL DR_HOOK('SUPHY0',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy0.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy0.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy0.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY0(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY0
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy1.F90	(revision 3330)
@@ -0,0 +1,449 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY1(KULOUT)
+
+!**** *SUPHY1*   - Initialize common YOMPHY1 physics land surface
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY1, the common that contains the parameters
+!           for the land surface part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY1(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY1
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+
+!     Modifications.
+!     --------------
+!        Original : 90-9-1
+!        Modified 91-02-28 by Michel Deque (Relaxation of deep soil values)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified by M. Deque     : 94-10-19 4-layer soil temperature
+!        Modified by D. Giard     : 94-10-07 Constants for ACSOL
+!                                            Control keys : LIMC, LIMW
+!        Modified by H. Douville : 95-01-13 Snow parameterization
+!        Modified by D. Giard     : 95-03-09 Loop for SODELX modified
+!                                   95-09-08 Constants for LSNV
+!        Modified by P. Mercier   : 97-03-24 Ozone difusion + deposition
+!        Modified by E. Bazile    : 97-05-05 C1 option vapour phase
+!        Modified by J.M. Piriou : 97-02-26 soil inertia.
+!        Modified by M. Deque     : 97-04-10 Sea-ice parameters
+!        Modified by J.M. Piriou : 97-04-17 soil inertia default values.
+!        Modified by D. Giard    : 97-11-13 defaults for veget. features
+!        Modified by E. Bazile   : 97-12-08 Soil freezing.
+!        Modified by E. Bazile   : 00-12-12 Default value for soil freezing.
+!        Modified by E. Bazile   : 02-10-29 Defaults for the snow scheme LVGSN.
+!        Modified by E. Bazile   : 04-02-24 Introduce NCHSP.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCST   , ONLY : RPI      ,RDAY     ,RG       ,RCS
+USE SURFACE_FIELDS   , ONLY : YSD_VVD, YSP_SBD
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMPHY1  , ONLY : GF3      ,GF4      ,TREF4    ,RCTVEG   ,&
+ & RGL      ,SODELX   ,GCZ0H    ,ALBGLA   ,ALBMAX   ,&
+ & ALBMER   ,ALBMED   ,ALBMIN   ,ALCRIN   ,ALRCN1   ,ALRCN2   ,&
+ & EA       ,EC2REF   ,EMCRIN   ,EMMGLA   ,EMMMER   ,&
+ & EWFC     ,EWWILT   ,GA       ,GC1      ,GC1S1    ,&
+ & GC1S2    ,GC1S3    ,GC1S4    ,GC1Y1    ,GTSVAP   ,&
+ & GVEGMX   ,GLAIMX   ,GNEIMX   ,GWPIMX   ,GCGEL    ,&
+ & GC2      ,GC2REF   ,GC3      ,GC31     ,GC32     ,&
+ & GCONV    ,GF1      ,GWFC     ,GWLEX    ,GWLMX    ,&
+ & GWWILT   ,G1B      ,G1CGSAT  ,G1C1SAT  ,G1P      ,&
+ & G1WSAT   ,G2B      ,G2CGSAT  ,G2C1SAT  ,G2P      ,&
+ & G2WSAT   ,G3CGSAT  ,GSNC1    ,GSNC2    ,HSOL     ,&
+ & HSOLIWR  ,HSOLIT0  ,OMTPRO   ,OMWPRO   ,RC1MAX   ,&
+ & RCTGLA   ,RCGMAX   ,RD1      ,RD2GLA   ,RD2MER   ,&
+ & RHOMAX   ,RHOMIN   ,RSMAX    ,RTINER   ,RZ0GLA   ,&
+ & RZ0MER   ,RZHZ0G   ,RZHZ0M   ,RZHGLA   ,RZHMER   ,&
+ & TMERGL   ,TOEXP    ,&
+ & TOLIN    ,WCRIN    ,WCRINC   ,WCRING   ,WNEW     ,&
+ & WPMX     ,WSMX     ,XCRINR   ,XCRINV   ,LIMC     ,&
+ & LIMW     ,LC1VAP   ,NTVGLA   ,NTVMER   ,GCGELS   ,&
+ & GVEGMXS  ,GLAIMXS  ,GNEIMXS  ,ALB1     ,ALB2     ,&
+ & RLAIMX   ,RLAI     ,NCHSP  
+USE YOMVDOZ  , ONLY : VDHJS    ,VDHJH    ,VDHNS    ,VDHNH    ,&
+ & VDPJS    ,VDPJH    ,VDPNS    ,VDPNH    ,VDEJS    ,&
+ & VDEJH    ,VDENS    ,VDENH    ,VDAJS    ,VDAJH    ,&
+ & VDANS    ,VDANH    ,VDNJS    ,VDNJH    ,VDNNS    ,&
+ & VDNNH    ,VOZNJ    ,VOZHS    ,LRDIFOZ  ,LRDEPOZ  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM) :: IVEG, J
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+
+#include "namphy1.h"
+#include "namvdoz.h"
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+!  Snow , Sea-Ice
+IF (LHOOK) CALL DR_HOOK('SUPHY1',0,ZHOOK_HANDLE)
+ALCRIN=0.7_JPRB
+ALRCN1=1.E-03_JPRB
+ALRCN2=2.5E-03_JPRB
+EMCRIN=0.98_JPRB
+WCRIN=10._JPRB
+TMERGL=271.23_JPRB
+NCHSP=0
+!  Characteristics of ice and sea
+NTVGLA=2
+NTVMER=1
+RD2GLA=8._JPRB
+RD2MER=8._JPRB
+ALBGLA=.65_JPRB
+ALBMER=.07_JPRB
+ALBMED=.06_JPRB
+EMMGLA=.97_JPRB
+EMMMER=.96_JPRB
+RZ0GLA=.001_JPRB
+RZ0MER=.001_JPRB
+RZHGLA=.001_JPRB
+RZHMER=.001_JPRB
+RZHZ0G=1.0_JPRB
+RZHZ0M=1.0_JPRB
+!  Usual - soil
+HSOL=1.0E-05_JPRB
+HSOLIT0=0.35_JPRB
+HSOLIWR=6._JPRB
+RTINER=5._JPRB
+WPMX=100._JPRB
+WSMX=20._JPRB
+SODELX(0)=1.0_JPRB/SQRT(1.0_JPRB+2.0_JPRB*RPI)
+DO J=1,9
+  SODELX(J)=SODELX(J-1)*2.0_JPRB*RPI
+ENDDO
+!  Relaxation
+OMTPRO=0._JPRB
+OMWPRO=0._JPRB
+!  ISBA - soil
+EA=-0.54_JPRB
+GA=732.42E-3_JPRB
+G1B=0.137_JPRB
+G2B=3.5_JPRB
+G1P=0.134_JPRB
+G2P=3.4_JPRB
+GC1=0.5_JPRB
+GC2=10._JPRB
+GC3=8._JPRB
+GCONV=1.E3_JPRB
+
+G1WSAT=-1.08E-3_JPRB
+G2WSAT=494.31E-3_JPRB
+EWFC=0.35_JPRB
+GWFC=89.0467E-3_JPRB
+EWWILT=0.5_JPRB
+GWWILT=37.1342E-3_JPRB
+EC2REF=-0.95_JPRB
+GC2REF=13.82_JPRB
+G1CGSAT=-1.5571E-8_JPRB
+G2CGSAT=-1.441E-8_JPRB
+G3CGSAT=4.70217E-6_JPRB
+G1C1SAT=5.58E-3_JPRB
+G2C1SAT=84.88E-3_JPRB
+GC31=5.3275_JPRB
+GC32=-1.043_JPRB
+
+RD1=1.E-2_JPRB
+RC1MAX=500._JPRB
+RCTGLA=5.5E-6_JPRB
+RCGMAX=0.8E-5_JPRB
+LIMC=.TRUE.
+LIMW=.TRUE.
+!  ISBA - vegetation
+GF1=0.55_JPRB
+GWLEX=2.0_JPRB/3._JPRB
+GWLMX=0.2_JPRB
+RSMAX=5000._JPRB
+DO J=1,18
+  GF3(J)=0.0_JPRB
+  GF4(J)=0.0016_JPRB
+  RCTVEG(J)=0.8E-5_JPRB
+  RGL(J)=100._JPRB
+  TREF4(J)=298._JPRB
+ENDDO
+GF3(4)=40._JPRB
+RGL(4)=30._JPRB
+!  ISBA - roughness length
+GCZ0H(0,1)=7.5_JPRB
+GCZ0H(1,1)=2.39037_JPRB
+GCZ0H(2,1)=-.28583_JPRB
+GCZ0H(3,1)=.01074_JPRB
+GCZ0H(0,2)=0.5_JPRB
+GCZ0H(1,2)=-.07028_JPRB
+GCZ0H(2,2)=.01023_JPRB
+GCZ0H(3,2)=-.00067_JPRB
+GCZ0H(0,3)=5.0_JPRB
+GCZ0H(1,3)=4.51268_JPRB
+GCZ0H(2,3)=.34012_JPRB
+GCZ0H(3,3)=-.05330_JPRB
+GCZ0H(0,4)=0.5_JPRB
+GCZ0H(1,4)=-.09421_JPRB
+GCZ0H(2,4)=.01463_JPRB
+GCZ0H(3,4)=-.00099_JPRB
+!  ISBA - snow
+ALBMAX=0.85_JPRB
+ALBMIN=0.50_JPRB
+RHOMAX=0.3_JPRB
+RHOMIN=0.1_JPRB
+TOEXP=0.24_JPRB/86400._JPRB
+TOLIN=0.008_JPRB/86400._JPRB
+WCRINC=70._JPRB
+WCRING=10._JPRB
+WNEW=10._JPRB
+XCRINR=1.0_JPRB/RG
+XCRINV=10000._JPRB
+GSNC1=RPI/(2.22_JPRB*RCS*RDAY*1000._JPRB)
+GSNC2=2.885_JPRB
+!   ISBA - C1 vapour phase
+LC1VAP=.TRUE.
+GTSVAP=0._JPRB
+GC1S1= 1.19_JPRB
+GC1S2=-5.09_JPRB
+GC1S3=-1.464E+2_JPRB
+GC1S4= 17.86E+2_JPRB
+GC1Y1=10._JPRB
+! Deep Soil freezing
+GVEGMX=5._JPRB
+GLAIMX=30._JPRB
+GNEIMX=1.8_JPRB
+GWPIMX=150._JPRB
+GCGEL=3.E-5_JPRB
+! Surface soil freezing
+GCGELS=5.E-5_JPRB
+GVEGMXS=5._JPRB
+GLAIMXS=30._JPRB
+GNEIMXS=1.8_JPRB
+!  OZONE DIFFUSION AND DEPOSITION
+LRDIFOZ=.FALSE.
+LRDEPOZ=.FALSE.
+VOZNJ=1._JPRB
+VOZHS=1.0_JPRB/86400._JPRB
+DO J=1,99
+  VDHJS(J)=-999._JPRB
+  VDHJH(J)=-999._JPRB
+  VDHNS(J)=-999._JPRB
+  VDHNH(J)=-999._JPRB
+  VDPJS(J)=-999._JPRB
+  VDPJH(J)=-999._JPRB
+  VDPNS(J)=-999._JPRB
+  VDPNH(J)=-999._JPRB
+  VDEJS(J)=-999._JPRB
+  VDEJH(J)=-999._JPRB
+  VDENS(J)=-999._JPRB
+  VDENH(J)=-999._JPRB
+  VDAJS(J)=-999._JPRB
+  VDAJH(J)=-999._JPRB
+  VDANS(J)=-999._JPRB
+  VDANH(J)=-999._JPRB
+  VDNJS(J)=-999._JPRB
+  VDNJH(J)=-999._JPRB
+  VDNNS(J)=-999._JPRB
+  VDNNH(J)=-999._JPRB
+ENDDO
+! New snow scheme (LVGSN)
+ALB1=0.87_JPRB
+ALB2=0.84_JPRB
+RLAIMX=7._JPRB
+RLAI=3._JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY1 et NAMVDOZ commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY1')
+!READ(NULNAM,NAMPHY1)
+!CALL POSNAM(NULNAM,'NAMVDOZ')
+!READ(NULNAM,NAMVDOZ)
+
+!        2.5   Check consistency
+!              -----------------
+IF (GC1Y1 > 60._JPRB) THEN
+  CALL ABOR1 ('GC1Y1 FOR C1-VAPOUR PHASE IS BIGGER THAN 60.')
+ENDIF
+
+IF ((YSD_VVD%NUMFLDS < 8).AND.(RZHZ0M /= 1.0_JPRB)) THEN
+  CALL ABOR1('YSD_VVD%NUMFLDS<8 IMPLIES RZHZ0M=1.0_JPRB !...')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY1 '')')
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' ALCRIN ='',E10.4,'' ALRCN1 ='',E10.4,'' ALRCN2 ='',E10.4 &
+ & ,'' EMCRIN ='',E10.4,'' WCRIN ='',E10.4,'' TMERGL ='',E10.4)')&
+ & ALCRIN,ALRCN1,ALRCN2,EMCRIN,WCRIN,TMERGL  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' NCHSP ='',I3,&
+ & '' NTVMER ='',I3,'' NTVGLA ='',I3 &
+ & ,'' RD2MER ='',E10.4,'' ALBMER='',E10.4,'' EMMMER ='',E10.4,/&
+ & ,'' RD2GLA ='',E10.4,'' ALBGLA='',E10.4,'' EMMGLA ='',E10.4,/&
+ & ,'' RZ0MER ='',E10.4,'' RZHMER='',E10.4 &
+ & ,'' RZ0GLA ='',E10.4,'' RZHGLA='',E10.4)')&
+ & NCHSP,NTVMER,NTVGLA,RD2MER,ALBMER,EMMMER &
+ & ,RD2GLA,ALBGLA,EMMGLA,RZ0MER,RZHMER,RZ0GLA,RZHGLA  
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' RTINER ='',E10.4,'' HSOL ='',E10.4,'' HSOLIT0 ='',E10.4 &
+ & ,'' HSOLIWR ='',E10.4,'' WPMX ='',E10.4 &
+ & ,'' WSMX ='',E10.4,'' OMTPRO ='',E10.4,'' OMWPRO ='',E10.4)')&
+ & RTINER,HSOL,HSOLIT0,HSOLIWR,WPMX,WSMX,OMTPRO,OMWPRO  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' EA ='',E10.4,'' GA ='',E10.4,'' G1B ='',E10.4 &
+ & ,'' G2B ='',E10.4,'' G1P ='',E10.4,'' G2P = '',E10.4,/&
+ & ,'' GC1 ='',E10.4,'' GC2 ='',E10.4,'' GC3 ='',E10.4 &
+ & ,'' GCONV ='',E10.4)')&
+ & EA,GA,G1B,G2B,G1P,G2P,GC1,GC2,GC3,GCONV  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' G1WSAT ='',E10.4,'' G2WSAT ='',E10.4,'' EWFC ='',E10.4 &
+ & ,'' GWFC ='',E10.4,/,'' EWWILT ='',E10.4,'' GWWILT ='',E10.4 &
+ & ,'' EC2REF ='',E10.4,'' GC2REF ='',E10.4,/&
+ & ,'' G1CGSAT ='',E10.4,'' G2CGSAT ='',E10.4,'' G3CGSAT =''&
+ & ,E10.4,'' G1C1SAT ='',E10.4,'' G2C1SAT ='',E10.4)')&
+ & G1WSAT,G2WSAT,EWFC,GWFC,EWWILT,GWWILT,EC2REF,GC2REF,&
+ & G1CGSAT,G2CGSAT,G3CGSAT,G1C1SAT,G2C1SAT  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' RD1 ='',E10.4,'' RC1MAX ='',E10.4,'' RCTGLA ='',E10.4 &
+ & ,'' RCGMAX ='',E10.4,''  LIMC ='',L2,'' LIMW ='',L2)')&
+ & RD1,RC1MAX,RCTGLA,RCGMAX,LIMC,LIMW  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GC1S1 ='',E10.4,'' GC1S2 ='',E10.4,'' GC1S3 ='',E10.4 &
+ & ,'' GC1S4 ='',E10.4,''  GC1Y1 ='',E10.4,'' LC1VAP ='',L2 &
+ & ,'' GTSVAP ='',E10.4)')&
+ & GC1S1,GC1S2,GC1S3,GC1S4,GC1Y1,LC1VAP,GTSVAP  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GCGEL ='',E10.4,'' GVEGMX ='',E10.4,'' GLAIMX ='',E10.4 &
+ & ,'' GWPIMX ='',E10.4,'' GNEIMX  ='',E10.4)')&
+ & GCGEL,GVEGMX,GLAIMX,GWPIMX,GNEIMX  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GCGELS  ='',E10.4,'' GVEGMXS ='',E10.4 &
+ & ,'' GLAIMXS ='',E10.4,'' GNEIMXS ='',E10.4)')&
+ & GCGELS,GVEGMXS,GLAIMXS,GNEIMXS  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' ALB1  ='',E10.4,'' ALB2 ='',E10.4 &
+ & ,'' RLAIMX ='',E10.4,'' RLAI ='',E10.4)')&
+ & ALB1,ALB2,RLAIMX,RLAI  
+
+WRITE(UNIT=KULOUT,FMT='('' GCZ0H ='',/,4(1X,4E11.4,/))')GCZ0H
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GF1 ='',E10.4,'' GWLEX ='',E10.4,'' GWLMX ='',E10.4 &
+ & ,'' RSMAX ='',E10.4,/&
+ & ,'' GF3 ='',/,2(1X,9E11.4,/),'' GF4 ='',/,2(1X,9E11.4,/)&
+ & ,'' RCTVEG ='',/,2(1X,9E11.4,/),'' RGL ='',/,2(1X,9E11.4,/)&
+ & ,'' TREF4 ='',/,2(1X,9E11.4,/))')&
+ & GF1,GWLEX,GWLMX,RSMAX,GF3,GF4,RCTVEG,RGL,TREF4  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' ALBMAX = '',E10.4,'' ALBMIN = '',E10.4 &
+ & ,'' RHOMAX = '',E10.4,'' RHOMIN = '',E10.4,/&
+ & ,'' TOEXP = '',E10.4,'' TOLIN = '',E10.4 &
+ & ,'' WCRINC = '',E10.4,'' WCRING = '',E10.4,/&
+ & ,'' WNEW = '',E10.4 &
+ & ,'' XCRINR = '',E10.4,'' XCRINV = '',E10.4)')&
+ & ALBMAX,ALBMIN,RHOMAX,RHOMIN,TOEXP,TOLIN,WCRINC,WCRING,WNEW,&
+ & XCRINR,XCRINV  
+
+WRITE(UNIT=KULOUT,FMT='('' SODELX = ''/5E11.4/5E11.4)') SODELX
+IF(YSP_SBD%NLEVS > 9)  CALL ABOR1(' TOO MANY SOIL LAYERS !')
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMVDOZ '')')
+
+WRITE(UNIT=KULOUT,FMT='('' LRDIFOZ ='',L2,'' LRDEPOZ ='',L2)')LRDIFOZ,LRDEPOZ
+
+IF (LRDIFOZ.AND.LRDEPOZ) THEN
+  WRITE(UNIT=KULOUT,FMT='('' VOZNJ ='',F10.5,'' VOZHS ='',F10.5)')VOZNJ,VOZHS
+  DO IVEG=1,99
+    IF((VDHJS(IVEG) /= -999._JPRB).OR.(VDHJH(IVEG) /= -999._JPRB).OR.&
+       & (VDHNS(IVEG) /= -999._JPRB).OR.(VDHNH(IVEG) /= -999._JPRB).OR.&
+       & (VDPJS(IVEG) /= -999._JPRB).OR.(VDPJH(IVEG) /= -999._JPRB).OR.&
+       & (VDPNS(IVEG) /= -999._JPRB).OR.(VDPNH(IVEG) /= -999._JPRB).OR.&
+       & (VDEJS(IVEG) /= -999._JPRB).OR.(VDEJH(IVEG) /= -999._JPRB).OR.&
+       & (VDENS(IVEG) /= -999._JPRB).OR.(VDENH(IVEG) /= -999._JPRB).OR.&
+       & (VDAJS(IVEG) /= -999._JPRB).OR.(VDAJH(IVEG) /= -999._JPRB).OR.&
+       & (VDANS(IVEG) /= -999._JPRB).OR.(VDANH(IVEG) /= -999._JPRB).OR.&
+       & (VDNJS(IVEG) /= -999._JPRB).OR.(VDNJH(IVEG) /= -999._JPRB).OR.&
+       & (VDNNS(IVEG) /= -999._JPRB).OR.(VDNNH(IVEG) /= -999._JPRB))THEN  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDHJS ='',E9.3,'' VDHJH ='',E9.3,'' VDHNS ='',E9.3 &
+       & ,'' VDHNH ='',E9.3)')&
+       & IVEG,VDHJS(IVEG),VDHJH(IVEG),VDHNS(IVEG),VDHNH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDPJS ='',E9.3,'' VDPJH ='',E9.3,'' VDPNS ='',E9.3 &
+       & ,'' VDPNH ='',E9.3)')&
+       & IVEG,VDPJS(IVEG),VDPJH(IVEG),VDPNS(IVEG),VDPNH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDEJS ='',E9.3,'' VDEJH ='',E9.3,'' VDENS ='',E9.3 &
+       & ,'' VDENH ='',E9.3)')&
+       & IVEG,VDEJS(IVEG),VDEJH(IVEG),VDENS(IVEG),VDENH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDAJS ='',E9.3,'' VDAJH ='',E9.3,'' VDANS ='',E9.3 &
+       & ,'' VDANH ='',E9.3)')&
+       & IVEG,VDAJS(IVEG),VDAJH(IVEG),VDANS(IVEG),VDANH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDNJS ='',E9.3,'' VDNJH ='',E9.3,'' VDNNS ='',E9.3 &
+       & ,'' VDNNH ='',E9.3)')&
+       & IVEG,VDNJS(IVEG),VDNJH(IVEG),VDNNS(IVEG),VDNNH(IVEG)  
+    ENDIF
+  ENDDO
+ENDIF
+!*
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY1',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy1.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy1.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy1.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY1(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY1
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy2.F90	(revision 3330)
@@ -0,0 +1,180 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY2(KULOUT)
+
+!**** *SUPHY2*   - Initialize common YOMPHY2 physics controlling
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY2, the common that contains the parameters
+!           for the control part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY2(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY2
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+!        Original : 90-9-1
+
+!     Modifications.
+!     --------------
+!        R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        J.-F. Geleyn : 93-08-19 New cloudiness diagnostics.
+!        J.-F. Geleyn : 95-04-10 Anti-fibril. Girard-Delage.
+!        P. Marquet   : 97-02-18 Value of VETAF=VAH/VP00+VBH.
+!        J.M. Piriou  : 97-04-17 XMULAF default value.
+!        E. Bazile    : 98-03-10 Introduce XMUCVPP.
+!        W. Owcarz    : 2000-03-27 Set a default value for TSPHY
+!        R. EL Khatib : 2000-06-13 RIPBLC
+!        R. EL Khatib : 2000-08-21 Turbulent gusts setup
+!        J.M. Piriou  : 2002-01-10 set default values to operational ones.
+!        Modified by R. EL Khatib : 02-03-29 Control XMULAF<0 ; add LMULAF
+!        Modified by D. Banciu    : 02-12-09 Introduction of XDAMP
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+! commente par MPL 25.11.08
+!USE YOMGEM   , ONLY : VALH     ,VBH
+USE YOMDIM   , ONLY : NFLEVG
+USE YOMPHY2  , ONLY : NTSHM    ,NTSML    ,XMUCVPP  ,LMULAF   ,&
+ & XMULAF   ,XDAMP    ,HCLP     ,HTCLS    ,&
+ & RIPBLC   ,&
+ & LRAFTUR  ,GZ0RAF   ,FACRAF   ,&
+ & HVCLS    ,HTSHM    ,HTSML    ,&
+ & TSPHY  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM) :: JLEV
+
+REAL(KIND=JPRB) :: ZVETAF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+
+#include "namphy2.h"
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+IF (LHOOK) CALL DR_HOOK('SUPHY2',0,ZHOOK_HANDLE)
+XMULAF=-1.75_JPRB
+XMUCVPP=0._JPRB
+XDAMP=0._JPRB
+HCLP=1500._JPRB
+HTCLS=2._JPRB
+HVCLS=10._JPRB
+HTSHM=0.450_JPRB
+HTSML=0.785_JPRB
+TSPHY=1._JPRB
+RIPBLC=0.5_JPRB
+LRAFTUR=.FALSE.
+GZ0RAF=10.0_JPRB
+FACRAF=15.0_JPRB
+LMULAF=.FALSE.
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+  LRAFTUR=.TRUE.
+ENDIF
+
+!     Remark : values for TSPHY, NTSHM/ML are calculated and not set up.
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY2 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY2')
+!READ(NULNAM,NAMPHY2)
+!     ------------------------------------------------------------------
+
+!*       3.    Compute cloud transition indexes.
+!              ---------------------------------
+
+NTSHM=0
+NTSML=0
+! commente par MPL 25.11.08
+!DO JLEV=1,NFLEVG
+!  ZVETAF=(VALH(JLEV)+VBH(JLEV)+VALH(JLEV-1)+VBH(JLEV-1))*0.5_JPRB
+!  IF (ZVETAF <= HTSHM) THEN
+!    NTSHM=JLEV
+!  ENDIF
+!  IF (ZVETAF <= HTSML) THEN
+!    NTSML=JLEV
+!  ENDIF
+!ENDDO
+
+!     ------------------------------------------------------------------
+
+!*       4.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY2 '')')
+WRITE(UNIT=KULOUT,FMT='('' XMUCVPP = '',E10.4,'' XMULAF = '',E10.4 &
+ & ,'' XDAMP = '',E10.4 &
+ & ,'' LMULAF = '',L2,/,'' HTCLS = '',E10.4 &
+ & ,'' HVCLS = '',E10.4,'' HCLP = '',E10.4,/&
+ & ,'' RIPBLC  = '',F8.4 &
+ & ,'' LRAFTUR = '',L2,'' GZ0RAF = '',E10.4,'' FACRAF = '',E10.4 &
+ & ,'' HTSHM = '',F8.4,'' NTSHM = '',I3,'' HTSML = '',F8.4 &
+ & ,'' NTSML = '',I3 &
+ & )')&
+ & XMUCVPP,XMULAF,XDAMP,LMULAF,&
+ & HTCLS,HVCLS,HCLP,&
+ & RIPBLC,&
+ & LRAFTUR,GZ0RAF,FACRAF,&
+ & HTSHM,NTSHM,HTSML,NTSML  
+
+!*       5.    Control
+!              -------
+
+IF (XMULAF > 0.0_JPRB) THEN
+  WRITE(KULOUT,*) 'XMULAF SHOULD BE NEGATIVE'
+  CALL ABOR1('SUPHY2 : ABOR1 CALLED')
+ENDIF
+
+IF ((XDAMP /= 0.0_JPRB).AND.(XMUCVPP /= 0.0_JPRB)) THEN
+  WRITE(UNIT=KULOUT,FMT='(A)') 'INCONSISTENCY BETWEEN XDAMP AND XMUCVPP !'
+  CALL ABOR1('XDAMP/=0. IMPLIES XMUCVPP=0.!...')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY2',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy2.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy2.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy2.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY2(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY2
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy3.F90	(revision 3330)
@@ -0,0 +1,404 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY3(KULOUT)
+
+!**** *SUPHY3*   - Initialize common YOMPHY3 physics radiative
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY3, the common that contains the parameters
+!           for the radiation part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY3(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY3
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+
+!     Modifications.
+!     --------------
+!        Original : 90-9-1
+!        Ajout de GCE4 et
+!         modification de toutes les constantes optiques : 91-2-1
+!        Ajout des nuages de glace : 92-04, L. Labbe.
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified 97-04-17 J.M. Piriou: radiative coefficients default values, and new QSUSX default.
+!        Modified 2000-08 R. Randriamampianina, J.F. Geleyn et J.M. Piriou: change infra-red interaction between layers (GIREC*).
+!        Modified 2000-12-12 by E. Bazile: CYCORA's default value.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        R.Brozkova    24-Sep-2006 ALARO-0 (new cloud model)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMPHY   , ONLY : LCLSATUR
+USE YOMPHY3  , ONLY : GCA      ,GCB      ,GCC      ,VDP      ,&
+ & VNP      ,BSFSA    ,BSFSI    ,BSFSN    ,BSFTA    ,&
+ & BSFTI    ,BSFTN    ,EARRT    ,EOASA    ,EOASI    ,&
+ & EOASN    ,EOATA    ,EOATI    ,EOATN    ,EODSA    ,&
+ & EODSI    ,EODSN    ,EODTA    ,EODTI    ,EODTN    ,&
+ & EORAY    ,GCD4     ,GCE4     ,QCO2     ,QLIMI    ,&
+ & QLIP0    ,RII0     ,USAA     ,USAI     ,&
+ & USAN     ,USBA     ,USBI     ,USBN     ,&
+ & GIREC1   ,GIREC2   ,GIREC3   ,GIREC4   ,&  
+ & FCM_DEL_A,FCM_DEL_D,FCM_MU_A ,FCM_MU_D ,FCM_N_I  ,&
+ & FCM_N_L  ,FCM_P_AI ,FCM_P_AL ,FCM_P_DI ,FCM_P_DL ,&
+ & FCM_P_GI ,FCM_P_GL ,FCM_Q_AI ,FCM_Q_AL ,FCM_Q_DI ,&
+ & FCM_Q_DL ,FCM_Q_GI ,FCM_Q_GL ,N_SPBAND ,REXP_NEB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+
+#include "namphy3.h"
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+IF (LHOOK) CALL DR_HOOK('SUPHY3',0,ZHOOK_HANDLE)
+BSFSA=.3490_JPRB
+BSFSI=.3238_JPRB
+BSFSN=.3300_JPRB
+BSFTA=.3471_JPRB
+BSFTI=.3231_JPRB
+BSFTN=.3584_JPRB
+EARRT=0.001324_JPRB
+EOASA=.6727E-01_JPRB
+EOASI=.1692E-01_JPRB
+EOASN=.3353E-01_JPRB
+EOATA=.5037E-01_JPRB
+EOATI=.3455E+01_JPRB
+EOATN=.9077E+01_JPRB
+EODSA=.3665E+00_JPRB
+EODSI=.1406E+01_JPRB
+EODSN=.6558E+01_JPRB
+EODTA=.1766E-01_JPRB
+EODTI=.8435E+00_JPRB
+EODTN=.4319E+01_JPRB
+EORAY=.8606E-06_JPRB
+GCA(1)=.8041E-01_JPRB
+GCA(2)=.1456E+00_JPRB
+GCA(3)=.4787E+01_JPRB
+GCA(4)=.2102E+04_JPRB
+GCA(5)=.1334E+01_JPRB
+GCA(6)=.1551E-04_JPRB
+GCB(1)=.8968E+07_JPRB
+GCB(2)=.2413E+10_JPRB
+GCB(3)=.3548E+05_JPRB
+GCB(4)=.6370E+10_JPRB
+GCB(5)=.8499E+11_JPRB
+GCB(6)=.1012E+06_JPRB
+GCC(1)=.5925E-10_JPRB
+GCC(2)=.1842E-10_JPRB
+GCC(3)=.2532E-07_JPRB
+GCC(4)=.1953E+07_JPRB
+GCC(5)=.1734E-11_JPRB
+GCC(6)=.1225E-16_JPRB
+GCD4=.3608E-69_JPRB
+GCE4=.7563E+04_JPRB
+GIREC1=0.0_JPRB
+GIREC2=0.0_JPRB
+GIREC3=0.0_JPRB
+GIREC4=0.0_JPRB
+QCO2=.5366E-03_JPRB
+QLIMI=15000._JPRB
+QLIP0=8.E+06_JPRB
+USAA=-.3020_JPRB
+USAI=-.3524_JPRB
+USAN=-.3400_JPRB
+USBA=0._JPRB
+USBI=0._JPRB
+USBN=0._JPRB
+VDP(1,1)=.21868E+02_JPRB
+VDP(2,1)=.17453E+02_JPRB
+VDP(3,1)=.68918E+00_JPRB
+VDP(4,1)=.23456E-03_JPRB
+VDP(5,1)=.22317E-09_JPRB
+VDP(1,2)=.48401E+02_JPRB
+VDP(2,2)=.18648E+02_JPRB
+VDP(3,2)=.35199E-01_JPRB
+VDP(4,2)=.63691E-06_JPRB
+VDP(5,2)=.86395E-13_JPRB
+VDP(1,3)=.76948E+02_JPRB
+VDP(2,3)=.41056E+01_JPRB
+VDP(3,3)=.42667E-03_JPRB
+VDP(4,3)=0._JPRB
+VDP(5,3)=0._JPRB
+VDP(1,4)=.27241E+03_JPRB
+VDP(2,4)=.57091E+04_JPRB
+VDP(3,4)=.14393E+05_JPRB
+VDP(4,4)=.29879E+04_JPRB
+VDP(5,4)=.25382E+02_JPRB
+VDP(1,5)=.86942E+02_JPRB
+VDP(2,5)=.32186E+03_JPRB
+VDP(3,5)=.10775E+03_JPRB
+VDP(4,5)=.21261E+01_JPRB
+VDP(5,5)=.40003E-02_JPRB
+VDP(1,6)=.24408E+02_JPRB
+VDP(2,6)=.81919E+01_JPRB
+VDP(3,6)=.72193E+01_JPRB
+VDP(4,6)=.56230E+00_JPRB
+VDP(5,6)=.25384E-02_JPRB
+VNP(1,1)=.69926E+01_JPRB
+VNP(2,1)=.63915E+00_JPRB
+VNP(3,1)=.28896E-03_JPRB
+VNP(4,1)=.10050E-08_JPRB
+VNP(5,1)=.99037E-16_JPRB
+VNP(1,2)=.31105E+01_JPRB
+VNP(2,2)=.14225E-01_JPRB
+VNP(3,2)=.69355E-06_JPRB
+VNP(4,2)=.36087E-12_JPRB
+VNP(5,2)=.44113E-20_JPRB
+VNP(1,3)=.23659E+01_JPRB
+VNP(2,3)=.11139E-02_JPRB
+VNP(3,3)=.10618E-05_JPRB
+VNP(4,3)=0._JPRB
+VNP(5,3)=0._JPRB
+VNP(1,4)=.19810E+03_JPRB
+VNP(2,4)=.46954E+04_JPRB
+VNP(3,4)=.22512E+04_JPRB
+VNP(4,4)=.52461E+02_JPRB
+VNP(5,4)=.11645E+00_JPRB
+VNP(1,5)=.46348E+02_JPRB
+VNP(2,5)=.35630E+02_JPRB
+VNP(3,5)=.33005E+01_JPRB
+VNP(4,5)=.18045E-01_JPRB
+VNP(5,5)=.88667E-05_JPRB
+VNP(1,6)=.47413E+01_JPRB
+VNP(2,6)=.16334E+01_JPRB
+VNP(3,6)=.48164E+00_JPRB
+VNP(4,6)=.56140E-02_JPRB
+VNP(5,6)=.67790E-04_JPRB
+
+! Default values for cloud model - first index denotes spectral band:
+!   1 - solar
+!   2 - thermal
+FCM_DEL_A(1)  =  9.55496e-01_JPRB
+FCM_DEL_A(2)  =  1.79152e+02_JPRB
+FCM_DEL_D(1)  =  5.72959e+01_JPRB
+FCM_DEL_D(2)  =  2.00159e+02_JPRB
+FCM_MU_A(1)   =  8.66200e-01_JPRB
+FCM_MU_A(2)   =  6.65532e-01_JPRB
+FCM_MU_D(1)   =  1.00000e+00_JPRB
+FCM_MU_D(2)   =  6.70517e-01_JPRB
+FCM_N_I       =  1.00000e-01_JPRB
+FCM_N_L       =  1.00000e-01_JPRB
+FCM_P_AI(1,0) =  1.48920e+01_JPRB
+FCM_P_AI(1,1) = -3.71379e+01_JPRB
+FCM_P_AI(1,2) =  0.00000e+00_JPRB
+FCM_P_AI(1,3) =  0.00000e+00_JPRB
+FCM_P_AI(2,0) =  9.76920e+00_JPRB
+FCM_P_AI(2,1) = -7.54840e+00_JPRB
+FCM_P_AI(2,2) =  0.00000e+00_JPRB
+FCM_P_AI(2,3) =  0.00000e+00_JPRB
+FCM_P_AL(1,0) =  1.42062e+00_JPRB
+FCM_P_AL(1,1) = -3.54037e+00_JPRB
+FCM_P_AL(1,2) =  1.73535e+00_JPRB
+FCM_P_AL(1,3) =  0.00000e+00_JPRB
+FCM_P_AL(2,0) =  5.08522e+00_JPRB
+FCM_P_AL(2,1) = -1.08144e+01_JPRB
+FCM_P_AL(2,2) =  5.16331e+00_JPRB
+FCM_P_AL(2,3) =  0.00000e+00_JPRB
+FCM_P_DI(1,0) =  1.30487e+01_JPRB
+FCM_P_DI(1,1) =  1.98670e+01_JPRB
+FCM_P_DI(1,2) = -5.08578e+01_JPRB
+FCM_P_DI(1,3) =  0.00000e+00_JPRB
+FCM_P_DI(2,0) =  1.23173e+01_JPRB
+FCM_P_DI(2,1) = -3.32808e+01_JPRB
+FCM_P_DI(2,2) =  5.77295e+01_JPRB
+FCM_P_DI(2,3) = -7.35728e+01_JPRB
+FCM_P_DL(1,0) =  4.68646e+00_JPRB
+FCM_P_DL(1,1) = -8.77652e+00_JPRB
+FCM_P_DL(1,2) =  2.12789e+00_JPRB
+FCM_P_DL(1,3) =  0.00000e+00_JPRB
+FCM_P_DL(2,0) =  4.52292e+00_JPRB
+FCM_P_DL(2,1) = -1.43327e+01_JPRB
+FCM_P_DL(2,2) =  1.16650e+01_JPRB
+FCM_P_DL(2,3) =  0.00000e+00_JPRB
+FCM_P_GI(1,0) = -2.01472e+00_JPRB
+FCM_P_GI(1,1) =  9.16284e+01_JPRB
+FCM_P_GI(1,2) =  7.82275e+01_JPRB
+FCM_P_GI(1,3) =  0.00000e+00_JPRB
+FCM_P_GI(2,0) = -7.55124e-01_JPRB
+FCM_P_GI(2,1) = -4.68837e+00_JPRB
+FCM_P_GI(2,2) =  6.72877e+01_JPRB
+FCM_P_GI(2,3) =  0.00000e+00_JPRB
+FCM_P_GL(1,0) =  8.82686e-01_JPRB
+FCM_P_GL(1,1) = -2.02445e+00_JPRB
+FCM_P_GL(1,2) =  1.45259e+00_JPRB
+FCM_P_GL(1,3) =  0.00000e+00_JPRB
+FCM_P_GL(2,0) =  1.93784e-01_JPRB
+FCM_P_GL(2,1) = -6.07676e-01_JPRB
+FCM_P_GL(2,2) =  5.37734e-01_JPRB
+FCM_P_GL(2,3) =  0.00000e+00_JPRB
+FCM_Q_AI(1,1) =  1.86588e+01_JPRB
+FCM_Q_AI(1,2) =  0.00000e+00_JPRB
+FCM_Q_AI(1,3) =  0.00000e+00_JPRB
+FCM_Q_AI(2,1) =  2.78063e+00_JPRB
+FCM_Q_AI(2,2) =  0.00000e+00_JPRB
+FCM_Q_AI(2,3) =  0.00000e+00_JPRB
+FCM_Q_AL(1,1) = -2.81210e+00_JPRB
+FCM_Q_AL(1,2) =  2.35758e+00_JPRB
+FCM_Q_AL(1,3) =  0.00000e+00_JPRB
+FCM_Q_AL(2,1) = -2.31252e+00_JPRB
+FCM_Q_AL(2,2) =  1.56848e+00_JPRB
+FCM_Q_AL(2,3) =  0.00000e+00_JPRB
+FCM_Q_DI(1,1) =  1.04582e+01_JPRB
+FCM_Q_DI(1,2) =  6.15641e+00_JPRB
+FCM_Q_DI(1,3) =  0.00000e+00_JPRB
+FCM_Q_DI(2,1) =  1.18370e+00_JPRB
+FCM_Q_DI(2,2) =  2.23187e+00_JPRB
+FCM_Q_DI(2,3) =  7.00424e+00_JPRB
+FCM_Q_DL(1,1) = -2.18205e+00_JPRB
+FCM_Q_DL(1,2) =  1.34831e+00_JPRB
+FCM_Q_DL(1,3) =  0.00000e+00_JPRB
+FCM_Q_DL(2,1) = -3.12310e+00_JPRB
+FCM_Q_DL(2,2) =  2.57959e+00_JPRB
+FCM_Q_DL(2,3) =  0.00000e+00_JPRB
+FCM_Q_GI(1,1) =  7.89999e+01_JPRB
+FCM_Q_GI(1,2) =  5.24929e+01_JPRB
+FCM_Q_GI(1,3) =  0.00000e+00_JPRB
+FCM_Q_GI(2,1) =  4.93801e+00_JPRB
+FCM_Q_GI(2,2) =  2.38096e+01_JPRB
+FCM_Q_GI(2,3) =  0.00000e+00_JPRB
+FCM_Q_GL(1,1) = -2.20830e+00_JPRB
+FCM_Q_GL(1,2) =  1.39832e+00_JPRB
+FCM_Q_GL(1,3) =  0.00000e+00_JPRB
+FCM_Q_GL(2,1) = -3.27770e+00_JPRB
+FCM_Q_GL(2,2) =  2.78446e+00_JPRB
+FCM_Q_GL(2,3) =  0.00000e+00_JPRB
+REXP_NEB      = 8.0_JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     Remark : the values or RII0 is calculated and not set up
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY3 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY3')
+!READ(NULNAM,NAMPHY3)
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY3 '')')
+WRITE(UNIT=KULOUT,FMT='('' BSFSA = '',E10.4,'' BSFSI = '',E10.4 &
+ & ,'' BSFSN = '',E10.4,'' BSFTA = '',E10.4,'' BSFTI = '',E10.4,/&
+ & ,'' BSFTN = '',E10.4,'' EARRT = '',E10.4,'' EOASA = ''&
+ & ,E10.4,'' EOASI = '',E10.4,'' EOASN = '',E10.4 &
+ & ,'' EOATA = '',E10.4,/,'' EOATI = '',E10.4,'' EOATN = '',E10.4 &
+ & ,'' EODSA = '',E10.4,'' EODSI = '',E10.4,'' EODSN = '',E10.4 &
+ & ,'' EODTA = '',E10.4,/,'' EODTI = '',E10.4 &
+ & ,'' EODTN = '',E10.4,'' EORAY = '',E10.4,/&
+ & ,'' GCA(6) = '',6E11.4,/,'' GCB(6) = '',6E11.4,/,'' GCC(6) = ''&
+ & ,6E11.4,/,'' GCD4 = '',E11.4,'' GCE4 = '',E11.4,/&
+ & ,'' QCO2 = '',E10.4,'' QLIP0 = '',E10.4 &
+ & ,'' USAA = '',E10.4,'' USAI = '',E10.4,'' USAN = '',E10.4 &
+ & ,'' USBA = '',E10.4,/,'' USBI = '',E10.4,'' USBN = '',E10.4,/&
+ & ,'' VDP(5,6) = '',5E12.5,/,5(12X,5E12.5,/)&
+ & ,'' VNP(5,6) = '',5E12.5,/,5(12X,5E12.5,/)&
+ & ,'' QLIMI = '',E10.4 &
+ & ,'' GIREC1 = '',E10.4,'' GIREC2 = '',E10.4,'' GIREC3 = '',E10.4 &
+ & ,'' GIREC4 = '',E10.4 &
+ & )')&
+ & BSFSA,BSFSI,BSFSN,BSFTA,BSFTI,BSFTN,EARRT,EOASA,EOASI,EOASN,&
+ & EOATA,EOATI,EOATN,EODSA,EODSI,EODSN,EODTA,EODTI,EODTN,EORAY,&
+ & GCA,GCB,GCC,GCD4,GCE4,QCO2,QLIP0,USAA,USAI,USAN,USBA,USBI,USBN,&
+ & VDP,VNP,QLIMI,GIREC1,GIREC2,GIREC3,GIREC4  
+
+IF (LCLSATUR) THEN
+  WRITE(KULOUT,'('' N_SPBAND = '',I2,'' REXP_NEB = '',F5.2)') &
+   & N_SPBAND,REXP_NEB
+  WRITE(KULOUT,'('' FCM_DEL_A(:)   ='',2(1X,ES12.5))') FCM_DEL_A(:)
+  WRITE(KULOUT,'('' FCM_DEL_D(:)   ='',2(1X,ES12.5))') FCM_DEL_D(:)
+  WRITE(KULOUT,'('' FCM_MU_A (:)   ='',2(1X,ES12.5))') FCM_MU_A (:)
+  WRITE(KULOUT,'('' FCM_MU_D (:)   ='',2(1X,ES12.5))') FCM_MU_D (:)
+  WRITE(KULOUT,'('' FCM_N_I        ='',1X,ES12.5)')    FCM_N_I
+  WRITE(KULOUT,'('' FCM_N_L        ='',1X,ES12.5)')    FCM_N_L
+  WRITE(KULOUT,'('' FCM_P_AI (:,0) ='',2(1X,ES12.5))') FCM_P_AI (:,0)
+  WRITE(KULOUT,'('' FCM_P_AI (:,1) ='',2(1X,ES12.5))') FCM_P_AI (:,1)
+  WRITE(KULOUT,'('' FCM_P_AI (:,2) ='',2(1X,ES12.5))') FCM_P_AI (:,2)
+  WRITE(KULOUT,'('' FCM_P_AI (:,3) ='',2(1X,ES12.5))') FCM_P_AI (:,3)
+  WRITE(KULOUT,'('' FCM_P_AL (:,0) ='',2(1X,ES12.5))') FCM_P_AL (:,0)
+  WRITE(KULOUT,'('' FCM_P_AL (:,1) ='',2(1X,ES12.5))') FCM_P_AL (:,1)
+  WRITE(KULOUT,'('' FCM_P_AL (:,2) ='',2(1X,ES12.5))') FCM_P_AL (:,2)
+  WRITE(KULOUT,'('' FCM_P_AL (:,3) ='',2(1X,ES12.5))') FCM_P_AL (:,3)
+  WRITE(KULOUT,'('' FCM_P_DI (:,0) ='',2(1X,ES12.5))') FCM_P_DI (:,0)
+  WRITE(KULOUT,'('' FCM_P_DI (:,1) ='',2(1X,ES12.5))') FCM_P_DI (:,1)
+  WRITE(KULOUT,'('' FCM_P_DI (:,2) ='',2(1X,ES12.5))') FCM_P_DI (:,2)
+  WRITE(KULOUT,'('' FCM_P_DI (:,3) ='',2(1X,ES12.5))') FCM_P_DI (:,3)
+  WRITE(KULOUT,'('' FCM_P_DL (:,0) ='',2(1X,ES12.5))') FCM_P_DL (:,0)
+  WRITE(KULOUT,'('' FCM_P_DL (:,1) ='',2(1X,ES12.5))') FCM_P_DL (:,1)
+  WRITE(KULOUT,'('' FCM_P_DL (:,2) ='',2(1X,ES12.5))') FCM_P_DL (:,2)
+  WRITE(KULOUT,'('' FCM_P_DL (:,3) ='',2(1X,ES12.5))') FCM_P_DL (:,3)
+  WRITE(KULOUT,'('' FCM_P_GI (:,0) ='',2(1X,ES12.5))') FCM_P_GI (:,0)
+  WRITE(KULOUT,'('' FCM_P_GI (:,1) ='',2(1X,ES12.5))') FCM_P_GI (:,1)
+  WRITE(KULOUT,'('' FCM_P_GI (:,2) ='',2(1X,ES12.5))') FCM_P_GI (:,2)
+  WRITE(KULOUT,'('' FCM_P_GI (:,3) ='',2(1X,ES12.5))') FCM_P_GI (:,3)
+  WRITE(KULOUT,'('' FCM_P_GL (:,0) ='',2(1X,ES12.5))') FCM_P_GL (:,0)
+  WRITE(KULOUT,'('' FCM_P_GL (:,1) ='',2(1X,ES12.5))') FCM_P_GL (:,1)
+  WRITE(KULOUT,'('' FCM_P_GL (:,2) ='',2(1X,ES12.5))') FCM_P_GL (:,2)
+  WRITE(KULOUT,'('' FCM_P_GL (:,3) ='',2(1X,ES12.5))') FCM_P_GL (:,3)
+  WRITE(KULOUT,'('' FCM_Q_AI (:,1) ='',2(1X,ES12.5))') FCM_Q_AI (:,1)
+  WRITE(KULOUT,'('' FCM_Q_AI (:,2) ='',2(1X,ES12.5))') FCM_Q_AI (:,2)
+  WRITE(KULOUT,'('' FCM_Q_AI (:,3) ='',2(1X,ES12.5))') FCM_Q_AI (:,3)
+  WRITE(KULOUT,'('' FCM_Q_AL (:,1) ='',2(1X,ES12.5))') FCM_Q_AL (:,1)
+  WRITE(KULOUT,'('' FCM_Q_AL (:,2) ='',2(1X,ES12.5))') FCM_Q_AL (:,2)
+  WRITE(KULOUT,'('' FCM_Q_AL (:,3) ='',2(1X,ES12.5))') FCM_Q_AL (:,3)
+  WRITE(KULOUT,'('' FCM_Q_DI (:,1) ='',2(1X,ES12.5))') FCM_Q_DI (:,1)
+  WRITE(KULOUT,'('' FCM_Q_DI (:,2) ='',2(1X,ES12.5))') FCM_Q_DI (:,2)
+  WRITE(KULOUT,'('' FCM_Q_DI (:,3) ='',2(1X,ES12.5))') FCM_Q_DI (:,3)
+  WRITE(KULOUT,'('' FCM_Q_DL (:,1) ='',2(1X,ES12.5))') FCM_Q_DL (:,1)
+  WRITE(KULOUT,'('' FCM_Q_DL (:,2) ='',2(1X,ES12.5))') FCM_Q_DL (:,2)
+  WRITE(KULOUT,'('' FCM_Q_DL (:,3) ='',2(1X,ES12.5))') FCM_Q_DL (:,3)
+  WRITE(KULOUT,'('' FCM_Q_GI (:,1) ='',2(1X,ES12.5))') FCM_Q_GI (:,1)
+  WRITE(KULOUT,'('' FCM_Q_GI (:,2) ='',2(1X,ES12.5))') FCM_Q_GI (:,2)
+  WRITE(KULOUT,'('' FCM_Q_GI (:,3) ='',2(1X,ES12.5))') FCM_Q_GI (:,3)
+  WRITE(KULOUT,'('' FCM_Q_GL (:,1) ='',2(1X,ES12.5))') FCM_Q_GL (:,1)
+  WRITE(KULOUT,'('' FCM_Q_GL (:,2) ='',2(1X,ES12.5))') FCM_Q_GL (:,2)
+  WRITE(KULOUT,'('' FCM_Q_GL (:,3) ='',2(1X,ES12.5))') FCM_Q_GL (:,3)
+ENDIF
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY3',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy3.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy3.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphy3.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY3(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY3
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphyfl.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphyfl.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suphyfl.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUPHYFL
+END SUBROUTINE SUPHYFL
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/supol_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/supol_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/supol_mod.F90	(revision 3330)
@@ -0,0 +1,130 @@
+MODULE SUPOL_MOD
+CONTAINS
+SUBROUTINE SUPOL(KNSMAX,DDMU,DDPOL,DDA,DDB,DDC,DDD,DDE,DDF,DDG,DDH,DDI)
+
+!**** *SUPOL * - Routine to compute the Legendre polynomials
+
+!     Purpose.
+!     --------
+!           For a given value of mu, computes the Legendre
+!           polynomials.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPOL(KNSMAX,DDMU,DDPOL,DDA,DDB,DDC,DDD,DDE
+!        ,DDF,DDG,DDH,DDI)
+
+!        Explicit arguments :
+!        --------------------
+!              KNSMAX   :  Truncation  (triangular)
+!              DDMU     :  Abscissa at which the polynomials are computed (mu)
+!              DDPOL    :  Polynomials (the first index is m and the second n)
+
+
+!        Implicit arguments :   None
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        K. YESSAD (MAY 1998): modification to avoid underflow.
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARKIND2  ,ONLY : JPRH
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)  :: KNSMAX
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDMU
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDC(0:KNSMAX,0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDD(0:KNSMAX,0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDE(0:KNSMAX,0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDA(0:KNSMAX),DDB(0:KNSMAX),DDF(0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDG(0:KNSMAX),DDH(0:KNSMAX),DDI(0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(OUT) :: DDPOL(0:KNSMAX,0:KNSMAX)
+
+REAL(KIND=JPRH) :: DLX,DLSITA,DL1SITA,DLKM2,DLKM1,DLK,DL1,DLS
+
+INTEGER(KIND=JPIM) :: JM, JN
+REAL(KIND=JPRB) :: Z
+
+!     ------------------------------------------------------------------
+
+!*       1. First two columns.
+!           ------------------
+
+DLX=DDMU
+DLSITA=SQRT(1.0_JPRB-DLX*DLX)
+
+! IF WE ARE LESS THAN 1Meter FROM THE POLE,
+IF(ABS(REAL(DLSITA,KIND(Z))) <= SQRT(EPSILON(Z)))THEN
+  DLX=1._JPRB
+  DLSITA=0._JPRB
+  DL1SITA=0._JPRB
+ELSE
+  DL1SITA=1.0_JPRB/DLSITA
+ENDIF
+DLKM2=1._JPRB
+DLKM1=DLX
+DDPOL(0,0)=DLKM2
+DDPOL(0,1)=DLKM1*DDA(1)
+DDPOL(1,1)=DLSITA*DDB(1)
+DO JN=2,KNSMAX
+  DLK=DDF(JN)*DLX*DLKM1-DDG(JN)*DLKM2
+  DL1=DDI(JN)*(DLKM1-DLX*DLK)*DL1SITA
+  DDPOL(0,JN)=DLK*DDA(JN)
+  DDPOL(1,JN)=DL1*DDB(JN)
+  DLKM2=DLKM1
+  DLKM1=DLK
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*       2. Diagonal (the terms 0,0 and 1,1 have already been computed)
+!           -----------------------------------------------------------
+
+DLS=DL1SITA*TINY(DLS)
+
+!OCL SCALAR
+DO JN=2,KNSMAX
+  DDPOL(JN,JN)=DDPOL(JN-1,JN-1)*DLSITA*DDH(JN)
+  IF ( ABS(DDPOL(JN,JN))  <  DLS ) DDPOL(JN,JN)=0.0_JPRB
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*       3. General recurrence.
+!           -------------------
+
+DO JN=3,KNSMAX
+!DIR$ IVDEP
+!OCL NOVREC
+  DO JM=2,JN-1
+    DDPOL(JM,JN)=DDC(JM,JN)*DDPOL(JM-2,JN-2)&
+     &-DDD(JM,JN)*DDPOL(JM-2,JN-1)*DLX &
+     &+DDE(JM,JN)*DDPOL(JM  ,JN-1)*DLX
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUPOL
+END MODULE SUPOL_MOD
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surayolmd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surayolmd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surayolmd.F90	(revision 3330)
@@ -0,0 +1,72 @@
+SUBROUTINE SURAYOLMD
+#ifdef DOC
+
+!     **** *SURAYOLMD - initialization rayonnement LMD
+
+!     Purpose.
+!     --------
+
+!     **   Interface.
+!     ----------
+
+!     Explicit arguments :    None.
+!     --------------------
+
+!     Implicit arguments :    None.
+!     --------------------
+
+!     Method.
+!     -------
+
+!     Externals.   None.
+!     ----------
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+
+!     Modifications.
+!     --------------
+!     Original :08-04-03
+!     MP Lefebvre modified suinit.F90 program.
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!#include "tsmbkind.h"
+
+!USE YOMFORC  , ONLY : CFORC
+USE YOMCT0B  , ONLY : LECMWF
+!USE YOMLUN   , ONLY : NULOUT
+!USE YOMRIP   , ONLY : NINDAT   ,NSSSSS
+USE YOMDIM   , ONLY : NFLEVG
+!USE YOMINI   , ONLY : NEINI
+!USE YOMVRTL  , ONLY : L131TL
+!USE YOMMCC   , ONLY : LMCC01, LMCC02, LMCC03, LMCCEC
+!USE YOMNMIA  , ONLY : LACUMTND
+!USE YOMSC2   , ONLY : NSTABUF
+!USE YOMCFU   , ONLY : NFRRC
+
+
+IMPLICIT NONE
+LOGICAL LLTRACE, LLDEBUG
+
+LLTRACE=.TRUE.
+LLDEBUG=.TRUE.
+
+!     ------------------------
+!     *    Initialize Physics
+!     ------------------------
+
+!IF(NFLEVG >= 1) THEN
+IF (LLTRACE)  WRITE(*,*) " coucou SURAYOLMD : avant SUPHY"
+WRITE(*,FMT='('' ---------------- '')')
+WRITE(*,FMT='(''     SUPHY: '')')
+WRITE(*,FMT='('' ---------------- '')')
+  CALL SUPHY(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SURAYOLMD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi.F90	(revision 3330)
@@ -0,0 +1,118 @@
+!
+! $Id$
+!
+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
+!        Modified   P. Viterbo   24-05-2004  surf library
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        JJMorcrette   2004-10-07 Gas concentrations
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERDI   , ONLY : RRAE     ,&
+! & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
+ & RCFC12, &   
+ & REPCLC   ,REPH2O   ,RSUNDUR  ,&
+ & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12
+
+
+IMPLICIT NONE
+
+!#include "clesphys.h"
+REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI',0,ZHOOK_HANDLE)
+RRAE = 0.1277E-02_JPRB
+
+!* Threshold for computing sunshine duration (W/m2)
+RSUNDUR=120._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.
+! All computations brought back to *SUSWN*
+
+!*  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
+
+!RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
+!RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
+!RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
+!RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
+!RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
+!RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
+
+
+REPCLC=1.E-12_JPRB
+REPH2O=1.E-12_JPRB
+
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI',1,ZHOOK_HANDLE)
+END SUBROUTINE SURDI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURDI
+END SUBROUTINE SURDI
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi15.F90	(revision 3330)
@@ -0,0 +1,132 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SURDI15
+
+!**** *SURDI15*   - INITIALIZE COMMON YOMRDI15 CONTROLLING RADINT
+!****               FROZEN VERSION (CYCLE 15) OF SURDI
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMRDI15, THE COMMON THAT CONTROLS THE
+!           RADIATION INTERFACE
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SURDI15* FROM *SUECRAD*
+!              -------        -------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMRDI15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "IN CORE MODEL"
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        A.Alias       05-12-2005 greenhouse gases variables (M.Deque)
+!        A.Alias       13-06-2006 RI0 value can be changed via namscen.h
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1        ,ONLY : JPIM     ,JPRB
+USE YOMHOOK         ,ONLY : LHOOK,   DR_HOOK
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN          , ONLY : NULNAM
+USE YOMLUN_IFSAUX   , ONLY : NULOUT
+
+USE YOMCST          , ONLY : RI0
+USE YOMRDI15        , ONLY : RSDTSN15 ,RRAE15   ,RMU0015  ,RALBICE15,&
+ & RALBSEA15,RALBSNM15,RALBSNO15,RCARDI15 ,REMISS15 ,&
+ & RSNOWAL15,RVLBDC15 ,RCH415   ,RN2O15   ,RCFC1115 ,&
+ & RCFC1215 ,REPALB15 ,REPCLC15 ,REPH2O15  
+USE YOMRDU15        , ONLY : REPSEC15
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: XCARDI, XCFC11, XCFC12, XCH4, XN2O
+REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZSUPSAT
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "namscen.h"
+#include "posnam.intfb.h"
+!      ----------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI15',0,ZHOOK_HANDLE)
+RSDTSN15  = 5.0_JPRB
+
+RRAE15 = 0.1277E-02_JPRB
+RMU0015 = RRAE15/SQRT(RRAE15*(RRAE15+2.0_JPRB))
+
+RALBICE15 = 0.55_JPRB
+RALBSEA15 = 0.07_JPRB
+RALBSNO15 = 0.80_JPRB
+RALBSNM15 = 0.40_JPRB
+RSNOWAL15 = 0.01_JPRB
+!*  Concentration of the various trace gases (IPCC/SACC values for 1990)
+!        CO2         CH4        N2O        CFC11       CFC12
+!      353ppmv     1.72ppmv   310ppbv     280pptv     484pptv
+
+XCARDI  = 353.E-06_JPRB
+XCH4    = 1.72E-06_JPRB
+XN2O    = 310.E-09_JPRB
+XCFC11  = 280.E-12_JPRB
+XCFC12  = 484.E-12_JPRB
+
+ZAIRMWG = 28.970_JPRB
+ZCO2MWG = 44.011_JPRB
+ZCH4MWG = 16.043_JPRB
+ZN2OMWG = 44.013_JPRB
+ZC11MWG = 137.3686_JPRB
+ZC12MWG = 120.9140_JPRB
+
+! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMSCEN')
+!READ       (NULNAM, NAMSCEN)
+
+WRITE(NULOUT,'( &
+ & '' CO2   = '',E14.7,'' CH4   = '',E14.7 &
+ & ,'' N2O   = '',E14.7,'' CFC11 = '',E14.7 &
+ & ,'' CFC12 = '',E14.7,'' RI0 = '',E14.7 &
+ & )') XCARDI,XCH4,XN2O,XCFC11,XCFC12,RI0  
+
+RCARDI15  = XCARDI*ZCO2MWG/ZAIRMWG
+RCH415    = XCH4*ZCH4MWG/ZAIRMWG
+RN2O15    = XN2O*ZN2OMWG/ZAIRMWG
+RCFC1115  = XCFC11*ZC11MWG/ZAIRMWG
+RCFC1215  = XCFC12*ZC12MWG/ZAIRMWG
+REMISS15  = 0.996_JPRB
+!ZSUPSAT = 0.01_JPRB
+RVLBDC15  = 0.5_JPRB
+
+REPSEC15=1.E-12_JPRB
+REPCLC15=1.E-12_JPRB
+REPH2O15=1.E-12_JPRB
+REPALB15=1.E-12_JPRB
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI15',1,ZHOOK_HANDLE)
+END SUBROUTINE SURDI15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surdi15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURDI15
+END SUBROUTINE SURDI15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surf_inq.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surf_inq.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surf_inq.h	(revision 3330)
@@ -0,0 +1,78 @@
+SUBROUTINE SURF_INQ(KNVTYPES,PRRCSOIL,PRWSAT,PRWCAP,PRWPWP,PRQWEVAP,PRQWSBCR,&
+                  & PRQSNCR,PRWLMAX,PRTF1,PRTF2,PRTF3,PRTF4,&
+                  & PRTFREEZSICE,PRTMELTSICE,PRCIMIN,PRALFMINSN,&
+                  & PRALFMAXSN,PRHOMINSN,PRHOMAXSN,PRDAT,&
+                  & PRDAW,PRRCSICE,PRALBSEAD,PREPALB,PRVCOV,PRVLAI,&
+                  & PRVROOTSA,PRVLAMSK,PRVLAMSKS,PRVTRSR,PRCHAR,PREPUST)
+
+!**   *SURF_INQ*  Extract information from the surface package
+
+!     Purpose.
+!     --------
+!     Interface routine for extracting information from the surf pack.
+
+!**   Interface.
+!     ----------
+!     CALL SURFINQ(...)
+!     Explicit arguments : All arguments are optional.
+!     --------------------
+
+!     Method.
+!     -------
+
+!     Externals: none
+
+!     Author.
+!     -------
+!        JF Estrade *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 03-10-01
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+
+IMPLICIT NONE
+
+! Declaration of arguments
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNVTYPES
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRRCSOIL
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWSAT
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQWSBCR
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWCAP
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWPWP
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQWEVAP
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQSNCR
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWLMAX
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTFREEZSICE
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTMELTSICE
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRCIMIN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALFMINSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALFMAXSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRHOMINSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRHOMAXSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRDAT(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRDAW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALBSEAD
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PREPALB
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVCOV(:) 
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAI(:) 
+REAL(KIND=JPRB)    ,OPTIONAL,INTENT(OUT)  :: PRCHAR
+REAL(KIND=JPRB)    ,OPTIONAL,INTENT(OUT)  :: PREPUST
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF1
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF2
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF3
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF4
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRRCSICE
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVROOTSA(:,:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAMSK(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAMSKS(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVTRSR(:)
+
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SURF_INQ
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surface_fields.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surface_fields.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surface_fields.F90	(revision 3330)
@@ -0,0 +1,1456 @@
+MODULE SURFACE_FIELDS
+
+!     Purpose.
+!     --------
+
+!      SURFACE_FIELDS contains data structures and manipulation routines
+!      for the surface (physics) fields in the IFS            
+
+!      This module is a mix of declarations, type definitions and 
+!       subroutines linked with surface fields. There are four parts:
+!       1/ Declaration of dimensions (including some parameter variables).
+!       2/ Definition of types.
+!       3/ Declarations:
+!          Declaration of variables SP_[group], YSP_[group]D, YSP_[group]
+!           (prognostic surface fields).
+!          Declaration of variables SD_[group], YSD_[group]D, YSD_[group]
+!           (diagnostic surface fields).
+!       4/ Some routines linked to the surface data flow:
+!          * INI_SFLP3: Initialize 3-D surface field group
+!          * SETUP_SFLP3: Setup 3-D surface field
+!          * INI_SFLP2: Initialize 2-D surface field group
+!          * SETUP_SFLP2: Setup 2-D surface field
+!          * GPPOPER: Operations on prognostic surface fields
+!          * GPOPER: Operations on ALL surface groups
+!          * GPOPER_2: Operations on 2-D surface groups
+!          * GPOPER_3: Operations on 3-D surface groups
+!          * SURF_STORE: Store all surface fields
+!          * SURF_RESTORE: Restore all surface fields
+!          * ALLO_SURF: Allocate surface field arrays
+!          * DEALLO_SURF: Deallocate surface field arrays
+
+!     Author.
+!     -------
+!     Mats Hamrud(ECMWF)
+
+!     Modifications.
+!     --------------
+!        Original : 2006-07-01
+!        Modifications:
+!        K. Yessad (25 Oct 2006): rephase ALARO0 contribution.
+!        K. Yessad (26 Oct 2006): add missing comments.
+
+!-------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMDIM    ,ONLY : NPROMA, NGPBLKS, NUNDEFLD
+USE YOMLUN    ,ONLY : NULOUT, NULERR
+USE YOMCT0    ,ONLY : LTWOTL
+USE YOMDYN   , ONLY : REPSP1
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+IMPLICIT NONE
+SAVE
+
+!#include "abor1.intfb.h"
+!     -------------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPMAXSFLDS=100 ! Max number of fields in individual group
+INTEGER(KIND=JPIM), PARAMETER :: JPMAXSTRAJ=100 ! Dimension of NSTRAJGRIB
+INTEGER(KIND=JPIM) :: NSURF=0              ! Number of surf var.
+INTEGER(KIND=JPIM) :: NSURFL=0             ! Number of surf flds (fields*levels)
+INTEGER(KIND=JPIM) :: NDIMSURF=0           ! Total of surf var (includes timelevels etc)
+INTEGER(KIND=JPIM) :: NDIMSURFL=0          ! Total dimension of all surface variables
+INTEGER(KIND=JPIM) :: NPROGSURF=0          ! Number of prognostic surf var.
+INTEGER(KIND=JPIM) :: NPROGSURFL=0         ! Number of prognostic surf flds (fields*levels)
+INTEGER(KIND=JPIM) :: NOFFTRAJ             ! Offset in surf trajectory
+INTEGER(KIND=JPIM) :: NOFFTRAJ_CST         ! Offset in "constant" surf trajectory
+INTEGER(KIND=JPIM) :: NPTRSURF             ! Used by routine GPOPER
+INTEGER(KIND=JPIM) :: NSTRAJGRIB(JPMAXSTRAJ) ! Used in trajectory setup
+
+REAL(KIND=JPRB),ALLOCATABLE   :: SURF_STORE_ARRAY(:,:,:) ! Backup array for surf (see routineSURF_STORE )
+! General type defintions
+
+! 2D surface field structure
+TYPE TYPE_SURF_MTL_2D
+INTEGER(KIND=JPIM) :: MP                   ! Basic field pointer
+INTEGER(KIND=JPIM) :: MP0                  ! Field pointer timelevel  0 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP9                  ! Field pointer timelevel -1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP1                  ! Field pointer timelevel +1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP5                  ! Field pointer trajectory
+INTEGER(KIND=JPIM) :: IGRBCODE             ! GRIB parameter code (default: -999)
+CHARACTER(LEN=16)  :: CNAME                ! ARPEGE field name   (default: all spaces)
+REAL(KIND=JPRB)    :: REFVALI              ! Default value       (default: 0.0)
+INTEGER(KIND=JPIM) :: NREQIN               ! -1 - initial value from default (default)
+                                           ! +1 - initial value from reading file
+                                           !  0 - no initial value
+INTEGER(KIND=JPIM) :: ITRAJ                !  0 not in trajectory (default)
+                                           !  1 in trajectory
+                                           !  2 in "constant" trajectory
+END TYPE TYPE_SURF_MTL_2D
+
+! 3D surface field structure
+TYPE TYPE_SURF_MTL_3D
+INTEGER(KIND=JPIM) :: MP   ! Basic field pointer
+INTEGER(KIND=JPIM) :: MP0  ! Field pointer timelevel  0 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP9  ! Field pointer timelevel -1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP1  ! Field pointer timelevel +1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP5  ! Field pointer trajectory
+INTEGER(KIND=JPIM),POINTER :: IGRBCODE(:)  ! GRIB parameter code (default: -999)
+CHARACTER(LEN=16) ,POINTER :: CNAME(:)     ! ARPEGE field name   (default: all spaces)
+REAL(KIND=JPRB)   ,POINTER :: REFVALI(:)   ! Default value       (default: 0.0)
+INTEGER(KIND=JPIM),POINTER :: NREQIN(:)    ! -1 - initial value from default (default)
+                                           ! +1 - initial value from reading file
+                                           !  0 - no initial value
+INTEGER(KIND=JPIM) :: ITRAJ                !  0 not in trajectory (default)
+                                           !  1 in trajectory
+                                           !  2 in "constant" trajectory
+END TYPE TYPE_SURF_MTL_3D
+
+! Descriptor pertaining to group
+TYPE TYPE_SURF_GEN
+INTEGER(KIND=JPIM) :: NUMFLDS         ! Number of field in group
+INTEGER(KIND=JPIM) :: NDIM            ! Field dimenion
+INTEGER(KIND=JPIM) :: NLEVS           ! Number of levels (for multi level groups)
+INTEGER(KIND=JPIM) :: IPTR            ! Internal use
+INTEGER(KIND=JPIM) :: IPTR5           ! Internal use
+INTEGER(KIND=JPIM) :: NDIM5           ! Dimension of trajectory array
+INTEGER(KIND=JPIM) :: NOFFTRAJ        ! Internal use
+INTEGER(KIND=JPIM) :: NOFFTRAJ_CST    ! Internal use
+CHARACTER(LEN=16)  :: CGRPNAME        ! Name of group (for prints)
+LOGICAL            :: L3D             ! TRUE if multi-level field (3-D)
+LOGICAL            :: LMTL            ! TRUE if prognostic field (multi time level)
+END TYPE TYPE_SURF_GEN
+
+! Type descriptor for derived type for communicating with GPOPER (see below)
+TYPE TYPE_SFL_COMM
+INTEGER(KIND=JPIM) :: IGRBCODE
+LOGICAL            :: L_OK 
+CHARACTER(LEN=16)  :: CNAME
+INTEGER(KIND=JPIM) :: IFLDNUM
+REAL(KIND=JPRB)    :: VALUE
+INTEGER(KIND=JPIM) :: IPTRSURF
+INTEGER(KIND=JPIM) :: ICODES(JPMAXSFLDS)
+INTEGER(KIND=JPIM) :: ICOUNT
+END TYPE TYPE_SFL_COMM
+
+! Group specific type definitions
+
+! * Group SB=SOILB: soil prognostic quantities for the different reservoirs
+!    (four reservoirs at ECMWF, deep reservoir at METEO-FRANCE):
+TYPE TYPE_SFL_SOILB
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YT    ! temperature
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YQ    ! liquid water content
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YTL   ! ice water content (for MF)
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YSB(:)
+END TYPE TYPE_SFL_SOILB
+
+! * Group SG=SNOWG: surface snow prognostic quantities:
+TYPE TYPE_SFL_SNOWG
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YF    ! content of surface snow
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YA    ! snow albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YR    ! snow density
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YT    ! total albedo (diagnostic for MF for LVGSN)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSG(:)
+END TYPE TYPE_SFL_SNOWG
+
+! * Group RR=RESVR: surface prognostic quantities (ECMWF) or
+!   surface + superficial reservoir prognostic quantities (MF):
+!   Remark:
+!    at ECMWF there are 4 soil reservoirs and there is a
+!    clear distinction between the soil reservoirs (group SOILB)
+!    and the surface (group RESVR);
+!    at METEO-FRANCE there is a deep reservoir (group SOILB) and a
+!    superficial reservoir (group RESVR):
+!    - there is a skin surface temperature (Ts) which is the temperature at the
+!      interface surface/superficial reservoir (and not two separate quantities
+!      for superficial reservoir and surface)
+!    - there is a skin surface water content (denoted by Wl) and a superficial
+!      reservoir water content (denoted by Ws).
+!    - there is a superficial reservoir ice content but no surface ice content.
+!    (remark k.y.: it would have been more logical to use group name
+!    RESVR for internal reservoirs and group name SOILB for surface!).
+TYPE TYPE_SFL_RESVR
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YT    ! skin temperature (Ts)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YW    ! skin water content (Wskin) at ECMWF
+                                        ! superficial reservoir water content (Ws) at MF
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YFC   ! skin water content (Wl) at MF
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIC   ! superficial reservoir ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YFP1  ! interpolated Ts for 2nd part of 927-FULLPOS
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YRR(:)
+END TYPE TYPE_SFL_RESVR
+
+! * Group WS=WAVES: surface prognostic quantities over sea:
+TYPE TYPE_SFL_WAVES
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YWS(:)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCHAR ! Charnock constant
+END TYPE TYPE_SFL_WAVES
+
+! * Group EP=EXTRP: extra 3-d prognostic fields:
+TYPE TYPE_SFL_EXTRP
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YEP(:)
+END TYPE TYPE_SFL_EXTRP
+
+! * Group X2=XTRP2: extra 2-d prognostic fields:
+!   (is used for precipitation fields in CANARI)
+TYPE TYPE_SFL_XTRP2
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YX2(:)
+END TYPE TYPE_SFL_XTRP2
+
+! * Group CI=CANRI: 2-d prognostic fields for CANARI:
+TYPE TYPE_SFL_CANRI
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCI(:)
+END TYPE TYPE_SFL_CANRI
+
+! * Group VF=VARSF: climatological/geographical diagnostic fields:
+TYPE TYPE_SFL_VARSF
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0F    ! gravity * surface roughness length
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALBF   ! surface shortwave albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YEMISF  ! surface longwave emissivity
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YGETRL  ! standard deviation of orography
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YITM    ! land-sea mask
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVEG    ! vegetation cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVRLAN  ! anisotropy of the sub-grid scale orography
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVRLDI  ! angle of the direction of orography with the x axis
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSIG    ! characteristic orographic slope
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALBSF  ! soil shortwave albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCONT   ! fraction of land
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSST    ! (open) sea surface temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLZ0H   ! logarithm of roughness length for heat
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCVL    ! low vegetation cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCVH    ! high vegetation cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTVL    ! low vegetation type
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTVH    ! high vegetation type
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCI     ! sea ice fraction
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YUCUR   ! U-component of the ocean current
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVCUR   ! V-component of the ocean current
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0RLF  ! gravity * vegetation roughness length
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCO2O   ! oceanic CO2 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCO2B   ! biosphere CO2 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCO2A   ! anthropogenic CO2 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSDFOR  ! SD filtered orography
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALUVP  ! MODIS-derived parallel albedo for shortwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALUVD  ! MODIS-derived diffuse albedo for shortwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALNIP  ! MODIS-derived parallel albedo for longwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALNID  ! MODIS-derived diffuse albedo for longwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSF6    ! anthropogenic SF6 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YFP1    ! surface orography in the 2nd part of FULLPOS-927
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVF(:)
+END TYPE TYPE_SFL_VARSF
+
+! * Group VP=VCLIP: deep soil diagnostic fields:
+TYPE TYPE_SFL_VCLIP
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTPC    ! climatological deep layer temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YWPC    ! climatological deep layer moisture
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVP(:)
+END TYPE TYPE_SFL_VCLIP
+
+! * Group VV=VCLIV: vegetation diagnostic fields:
+TYPE TYPE_SFL_VCLIV
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YARG    ! silt percentage within soil
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSAB    ! percentage of sand within the soil
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YD2     ! soil depth
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIVEG   ! type of vegetation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YRSMIN  ! stomatal minimum resistance
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLAI    ! leaf area index
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YHV     ! resistance to evapotranspiration
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0H    ! gravity * roughness length for heat
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALS    ! albedo of bare ground
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALV    ! albedo of vegetation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVV(:)
+END TYPE TYPE_SFL_VCLIV
+
+! * Group VN=VCLIN: cloudiness diagnostic predictors:
+TYPE TYPE_SFL_VCLIN
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTOP    ! index of convective cloud top
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBAS    ! index of convective cloud base
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YACPR   ! averaged convective precipitaion rate
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVN(:)
+END TYPE TYPE_SFL_VCLIN
+
+! * Group VH=VCLIH: convective cloud diagnostic fields:
+TYPE TYPE_SFL_VCLIH
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCCH   ! total convective cloudiness
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSCCH   ! convective cloud summit
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBCCH   ! convective cloud base
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YPBLH   ! PBL height
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSPSH   ! variable for prognostic convection scheme (ALARO)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVH(:)
+END TYPE TYPE_SFL_VCLIH
+
+! * Group VA=VCLIA: aerosol diagnostic fields:
+TYPE TYPE_SFL_VCLIA
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSEA    ! aerosol: sea
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLAN    ! aerosol: land
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSOO    ! aerosol: soot
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YDES    ! aerosol: desert
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSUL    ! aerosol: sulfate
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVOL    ! aerosol: volcano
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YNUD    ! aerosol: nudging
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVA(:)
+END TYPE TYPE_SFL_VCLIA
+
+! * Group VG=VCLIG: ice-coupler diagnostic fields:
+TYPE TYPE_SFL_VCLIG
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YICFR   ! sea-ice fraction
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSOUP   ! upward solar flux over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIRUP   ! upward IR flux over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCHSS   ! sensible heat over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YEVAP   ! evaporation over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTAUX   ! U-component of stress over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTAUY   ! V-component of stress over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVG(:)
+END TYPE TYPE_SFL_VCLIG
+
+! * Group VC=VO3ABC: A,B and C (Climatological ozone profiles) diagnostic fields:
+TYPE TYPE_SFL_VO3ABC
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YA      ! A climatological ozone profile
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YB      ! B climatological ozone profile
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YC      ! C climatological ozone profile
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVC(:)
+END TYPE TYPE_SFL_VO3ABC
+
+! * Group VD=VDIAG: (ECMWF) diagnostic fields:
+TYPE TYPE_SFL_VDIAG
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSP   !Large scale precipitation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCP    !Convective precipitation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSF    !Snowfall
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBLD   !Boundary layer dissipation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSHF  !Surface sensible heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSLHF  !Surface latent heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMSL   !Mean sea level pressure
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCC   !Total cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y10U   !U-wind at 10 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y10V   !V-wind at 10 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y2T    !Temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y2D    !Dewpoint temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSR   !Surface solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTR   !Surface thermal radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTSR   !Top solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTTR   !Top thermal radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YEWSS  !Instantaneous surface U-wind stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YNSSS  !Instantaneous surface V-wind stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YE     !Water evaporation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCCC   !Convective cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLCC   !Low cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMCC   !Medium cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YHCC   !High cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLGWS  !Zonal gravity wave stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMGWS  !Meridian gravity wave stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YGWD   !Gravity wave dissipation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMX2T  !Maximum temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMN2T  !Minimum temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YRO    !Runoff
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALB   !(surface shortwave) albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIEWSS !Instantaneous surface zonal component of stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YINSSS !Instantaneous surface meridian component of stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YISSHF !Instantaneous surface heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIE    !Instantaneous surface moisture flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCSF   !Convective snow fall
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSSF  !Large scale snowfall
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0F   !Gravity * surface roughness length
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLZ0H  !Logarithm of z0 times heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCW   !Total water content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCWV  !Total water vapor content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCLW  !Total liquid water content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCIW  !Total ice water content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSRD  !Downward surface solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTRD  !Downward surface thermic radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBLH   !Height of boundary layer
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSUND  !Sunshine duration
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSPAR  !Surface downward PARadiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSUVB  !Surface downward UV-B radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCAPE  !Conv.avail.potential energy (CAPE)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTSRC  !Top solar radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTTRC  !Top thermal radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSRC  !Surface solar radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTRC  !Surface thermal radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YES    !Evaporation of snow
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSMLT  !Snow melt
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y10FG  !Wind gust at 10 m (max since previous pp)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSPF  !Large scale precipitation fraction
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCO3  !Total ozone content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVIMD  !Vertically integrated mass divergence
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSPARC !Surface clear-sky parallel radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTINC !TOA (top of atmosph?) incident solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCGHG(:)  !Total column greenhouse gases
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCGRG(:)  !Total column reactive gases
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCTRAC(:) !Total column tracers
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVD(:)
+END TYPE TYPE_SFL_VDIAG
+
+! * Group VX=VCLIX: auxilary climatological diagnostic fields:
+TYPE TYPE_SFL_VCLIX
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YORO    ! climatological surface geopotential
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTSC    ! climatological surface temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YPWS    ! climatological surface max. prop. moisture
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YPWP    ! climatological deep soil max. prop. moisture
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSNO    ! climatological snow cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTPC    ! climatological deep soil temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSAB    ! climatologic percentage of sand within the soil
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YXD2    ! climatologic soil depth
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSM    ! climatologic land sea mask
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIVEG   ! climatologic type of vegetation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVX(:)
+END TYPE TYPE_SFL_VCLIX
+
+! * Group XA=VEXTRA: extra 3-d diagnostic fields:
+TYPE TYPE_SFL_VEXTRA
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YXA(:)
+END TYPE TYPE_SFL_VEXTRA
+
+! * Group X2=VEXTR2: extra 2-d diagnostic fields:
+TYPE TYPE_SFL_VEXTR2
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YX2(:)
+END TYPE TYPE_SFL_VEXTR2
+
+! End of type definitions
+
+! Data structures
+
+! Prognostic (multi time level) fields
+
+! Soilb
+REAL(KIND=JPRB),ALLOCATABLE :: SP_SB (:,:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_SBD
+TYPE(TYPE_SFL_SOILB)   :: YSP_SB
+
+! Snowg
+REAL(KIND=JPRB),ALLOCATABLE :: SP_SG (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_SGD
+TYPE(TYPE_SFL_SNOWG)   :: YSP_SG
+
+! Resvr
+REAL(KIND=JPRB),ALLOCATABLE :: SP_RR (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_RRD
+TYPE(TYPE_SFL_RESVR)   :: YSP_RR
+
+
+! Extrp
+REAL(KIND=JPRB),ALLOCATABLE :: SP_EP (:,:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_EPD
+TYPE(TYPE_SFL_EXTRP)   :: YSP_EP 
+
+! Xtrp2
+REAL(KIND=JPRB),ALLOCATABLE :: SP_X2 (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_X2D
+TYPE(TYPE_SFL_XTRP2)   :: YSP_X2
+
+! Canri
+REAL(KIND=JPRB),ALLOCATABLE :: SP_CI (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_CID
+TYPE(TYPE_SFL_CANRI)   :: YSP_CI
+
+! One time level fields
+
+! Varsf
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VF (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VFD
+TYPE(TYPE_SFL_VARSF)   :: YSD_VF
+
+! Vclip
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VP (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VPD
+TYPE(TYPE_SFL_VCLIP)   :: YSD_VP
+
+! Vcliv
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VV (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VVD
+TYPE(TYPE_SFL_VCLIV)   :: YSD_VV
+
+! Vclin
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VN (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VND
+TYPE(TYPE_SFL_VCLIN)   :: YSD_VN
+
+! Vclih
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VH (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VHD
+TYPE(TYPE_SFL_VCLIH)   :: YSD_VH
+
+! Vclia
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VA (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VAD
+TYPE(TYPE_SFL_VCLIA)   :: YSD_VA
+
+! Vo3abc
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VC (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VCD
+TYPE(TYPE_SFL_VO3ABC)  :: YSD_VC
+
+! Vdiag
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VD (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VDD
+TYPE(TYPE_SFL_VDIAG)   :: YSD_VD
+
+! Waves
+REAL(KIND=JPRB),ALLOCATABLE :: SD_WS (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_WSD
+TYPE(TYPE_SFL_WAVES)   :: YSD_WS
+
+! Vclix
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VX (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VXD
+TYPE(TYPE_SFL_VCLIX)   :: YSD_VX
+
+! Vextra
+
+REAL(KIND=JPRB),ALLOCATABLE :: SD_XA (:,:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_XAD
+TYPE(TYPE_SFL_VEXTRA)  :: YSD_XA
+
+! Vextr2
+
+REAL(KIND=JPRB),ALLOCATABLE :: SD_X2 (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_X2D
+TYPE(TYPE_SFL_VEXTR2)  :: YSD_X2
+
+!$OMP THREADPRIVATE(ndimsurf,ndimsurfl,nofftraj,nofftraj_cst,nprogsurf)
+!$OMP THREADPRIVATE(nprogsurfl,nptrsurf,nstrajgrib,nsurf,nsurfl,ysd_va,ysd_vad)
+!$OMP THREADPRIVATE(ysd_vc,ysd_vcd,ysd_vd,ysd_vdd,ysd_vf,ysd_vfd,ysd_vh,ysd_vhd)
+!$OMP THREADPRIVATE(ysd_vn,ysd_vnd,ysd_vp,ysd_vpd,ysd_vv,ysd_vvd,ysd_vx,ysd_vxd)
+!$OMP THREADPRIVATE(ysd_ws,ysd_wsd,ysd_x2,ysd_x2d,ysd_xa,ysd_xad,ysp_ci,ysp_cid)
+!$OMP THREADPRIVATE(ysp_ep,ysp_epd,ysp_rr,ysp_rrd,ysp_sb,ysp_sbd,ysp_sg,ysp_sgd)
+!$OMP THREADPRIVATE(ysp_x2,ysp_x2d)
+
+!$OMP THREADPRIVATE(sd_va,sd_vc,sd_vd,sd_vf,sd_vh,sd_vn,sd_vp,sd_vv,sd_vx,sd_ws)
+!$OMP THREADPRIVATE(sd_x2,sd_xa,sp_ci,sp_ep,sp_rr,sp_sb,sp_sg,sp_x2,surf_store_array)
+
+
+!-------------------------------------------------------------------------
+
+CONTAINS
+
+!=========================================================================
+
+SUBROUTINE INI_SFLP3(YDSC,YD,KFLDS,KLEVS,LDMTL,CDGRPNAME)
+! Initialize 3-D surface field group
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)    :: YDSC
+TYPE(TYPE_SURF_MTL_3D),INTENT(INOUT) :: YD(:)
+INTEGER(KIND=JPIM),INTENT(IN)        :: KFLDS
+INTEGER(KIND=JPIM),INTENT(IN)        :: KLEVS
+LOGICAL,INTENT(IN)                   :: LDMTL
+CHARACTER(LEN=*),INTENT(IN)          :: CDGRPNAME
+
+INTEGER(KIND=JPIM) :: JFLD, IMAXF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP3',0,ZHOOK_HANDLE)
+
+IMAXF = SIZE(YD)
+YDSC%NUMFLDS = KFLDS
+YDSC%NLEVS = KLEVS
+YDSC%IPTR  = 1
+YDSC%LMTL  = LDMTL
+YDSC%CGRPNAME = CDGRPNAME
+YDSC%NDIM5 = 0
+YDSC%NOFFTRAJ = NOFFTRAJ
+YDSC%NOFFTRAJ_CST = NOFFTRAJ_CST
+
+NSURF = NSURF+YDSC%NUMFLDS
+NSURFL = NSURFL+YDSC%NUMFLDS*YDSC%NLEVS
+IF(LDMTL) THEN
+  NPROGSURF = NPROGSURF+YDSC%NUMFLDS
+  NPROGSURFL = NPROGSURFL+YDSC%NUMFLDS*YDSC%NLEVS
+ENDIF
+
+IF(LDMTL) THEN
+  IF (LTWOTL) THEN
+    YDSC%NDIM = 2*YDSC%NUMFLDS
+  ELSE
+    YDSC%NDIM = 3*YDSC%NUMFLDS
+  ENDIF
+ELSE
+  YDSC%NDIM = YDSC%NUMFLDS
+ENDIF  
+NDIMSURF = NDIMSURF + YDSC%NDIM    
+NDIMSURFL = NDIMSURFL + YDSC%NDIM*YDSC%NLEVS
+    
+DO JFLD=1,KFLDS
+  ALLOCATE(YD(JFLD)%IGRBCODE(KLEVS))
+  ALLOCATE(YD(JFLD)%CNAME(KLEVS))
+  ALLOCATE(YD(JFLD)%REFVALI(KLEVS))
+  ALLOCATE(YD(JFLD)%NREQIN(KLEVS))
+  YD(JFLD)%IGRBCODE(:) = -999
+  YD(JFLD)%CNAME(:) = ''
+  YD(JFLD)%REFVALI(:) = 0.0_JPRB
+  YD(JFLD)%NREQIN(:) = -1
+  YD(JFLD)%MP = JFLD
+  IF (YDSC%LMTL) THEN
+    YD(JFLD)%MP0 = YD(JFLD)%MP
+    IF(LTWOTL) THEN
+      YD(JFLD)%MP9 = YD(JFLD)%MP0
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+YDSC%NUMFLDS
+    ELSE
+      YD(JFLD)%MP9 = YD(JFLD)%MP0+YDSC%NUMFLDS
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+2*YDSC%NUMFLDS
+    ENDIF
+  ELSE
+    YD(JFLD)%MP0 = NUNDEFLD
+    YD(JFLD)%MP9 = NUNDEFLD
+    YD(JFLD)%MP1 = NUNDEFLD
+  ENDIF
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+
+DO JFLD=KFLDS+1,IMAXF
+  YD(JFLD)%MP  = NUNDEFLD
+  YD(JFLD)%MP0 = NUNDEFLD
+  YD(JFLD)%MP9 = NUNDEFLD
+  YD(JFLD)%MP1 = NUNDEFLD
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+
+WRITE(NULOUT,*) 'INITIALIZING 3-D SURFACE FIELD GROUP ', YDSC%CGRPNAME
+WRITE(NULOUT,*) 'NUMFLDS=',YDSC%NUMFLDS,' NLEVS=',YDSC%NLEVS,' LMTL=',YDSC%LMTL 
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP3',1,ZHOOK_HANDLE)
+END SUBROUTINE INI_SFLP3
+
+!=========================================================================
+
+SUBROUTINE SETUP_SFLP3(YDSC,YD,KGRIB,CDNAME,PDEFAULT,KTRAJ,KREQIN)
+! Setup 3-D surface field 
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)      :: YDSC
+TYPE(TYPE_SURF_MTL_3D),INTENT(INOUT)   :: YD
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KGRIB(:)
+CHARACTER(LEN=16) ,OPTIONAL,INTENT(IN) :: CDNAME(:)
+REAL(KIND=JPRB)   ,OPTIONAL,INTENT(IN) :: PDEFAULT(:)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KTRAJ
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KREQIN(:)
+
+INTEGER(KIND=JPIM) :: IPTR,JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP3',0,ZHOOK_HANDLE)
+IPTR = YDSC%IPTR
+IF(IPTR > YDSC%NUMFLDS) THEN
+  WRITE(NULERR,*) 'SURFACE FIELDS UNDER-DIMENSINED - GROUP ',&
+   & YDSC%CGRPNAME,YDSC%NUMFLDS,KGRIB(1),CDNAME(1)
+  CALL ABOR1('IPTR > YDSC%NUMFLDS')
+ENDIF
+IF(PRESENT(KGRIB)) THEN
+  YD%IGRBCODE(:) = KGRIB(:)
+ENDIF
+IF(PRESENT(KREQIN)) THEN
+  YD%NREQIN(:) = KREQIN(:)
+ENDIF
+IF(PRESENT(CDNAME)) THEN
+  YD%CNAME(:)    = CDNAME(:)
+ENDIF
+IF(PRESENT(PDEFAULT)) THEN
+  YD%REFVALI(:) = PDEFAULT
+ENDIF
+IF(PRESENT(KTRAJ)) THEN
+  IF(KTRAJ == 1) THEN
+    DO JLEV=1,YDSC%NLEVS
+      NSTRAJGRIB(NOFFTRAJ+JLEV) = YD%IGRBCODE(JLEV)
+    ENDDO
+    NOFFTRAJ = NOFFTRAJ+YDSC%NLEVS
+  ELSEIF(KTRAJ == 2) THEN
+    NOFFTRAJ_CST = NOFFTRAJ_CST+YDSC%NLEVS
+  ELSEIF(KTRAJ /= 0) THEN
+    CALL ABOR1('SURFACE_FIELDS:SETUP_SFLP3 - UNKNOWN KTRAJ')
+  ENDIF
+  YD%ITRAJ = KTRAJ
+  YDSC%NDIM5 = YDSC%NDIM5+1
+  YD%MP5 = YDSC%NDIM5
+ENDIF
+DO JLEV=1,YDSC%NLEVS
+  IF(YDSC%LMTL) THEN
+    WRITE(NULOUT,'(1X,A,2I4,1X,A,6I4)') &
+     & YDSC%CGRPNAME(1:6),YDSC%IPTR,JLEV,YD%CNAME(JLEV),YD%IGRBCODE(JLEV),&
+     & YD%MP0,YD%MP9,YD%MP1,YD%ITRAJ,YD%NREQIN(JLEV)
+  ELSE
+    WRITE(NULOUT,'(1X,A,2I4,1X,A,4I4)') &
+     & YDSC%CGRPNAME(1:6),YDSC%IPTR,JLEV,YD%CNAME(JLEV),YD%IGRBCODE(JLEV),&
+     & YD%MP,YD%ITRAJ,YD%NREQIN(JLEV)
+  ENDIF
+ENDDO
+YDSC%IPTR = YDSC%IPTR+1
+  
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP3',1,ZHOOK_HANDLE)
+END SUBROUTINE SETUP_SFLP3
+
+!=========================================================================
+
+SUBROUTINE INI_SFLP2(YDSC,YD,KFLDS,LDMTL,CDGRPNAME)
+! Initialize 2-D surface field group
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)    :: YDSC
+TYPE(TYPE_SURF_MTL_2D),INTENT(INOUT) :: YD(:)
+INTEGER(KIND=JPIM),INTENT(IN)        :: KFLDS
+LOGICAL,INTENT(IN)                   :: LDMTL
+CHARACTER(LEN=*),INTENT(IN)          :: CDGRPNAME
+
+INTEGER(KIND=JPIM) :: JFLD, IMAXF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP2',0,ZHOOK_HANDLE)
+
+IMAXF = SIZE(YD)
+YDSC%NUMFLDS = KFLDS
+YDSC%NLEVS = -1
+YDSC%IPTR  = 1
+YDSC%LMTL  = LDMTL
+YDSC%CGRPNAME = CDGRPNAME
+YDSC%NDIM5 = 0
+YDSC%NOFFTRAJ = NOFFTRAJ 
+YDSC%NOFFTRAJ_CST = NOFFTRAJ_CST 
+
+NSURF = NSURF+YDSC%NUMFLDS
+NSURFL = NSURFL+YDSC%NUMFLDS
+IF(LDMTL) THEN
+  NPROGSURF = NPROGSURF+YDSC%NUMFLDS
+  NPROGSURFL = NPROGSURFL+YDSC%NUMFLDS
+ENDIF
+
+IF(LDMTL) THEN
+  IF (LTWOTL) THEN
+    YDSC%NDIM = 2*YDSC%NUMFLDS
+  ELSE
+    YDSC%NDIM = 3*YDSC%NUMFLDS
+  ENDIF
+ELSE
+  YDSC%NDIM = YDSC%NUMFLDS
+ENDIF  
+NDIMSURF = NDIMSURF + YDSC%NDIM    
+NDIMSURFL = NDIMSURFL + YDSC%NDIM    
+DO JFLD=1,KFLDS
+  YD(JFLD)%IGRBCODE = -999
+  YD(JFLD)%CNAME = ''
+  YD(JFLD)%REFVALI = 0.0_JPRB
+  YD(JFLD)%NREQIN = -1
+  YD(JFLD)%MP = JFLD
+  IF (YDSC%LMTL) THEN
+    YD(JFLD)%MP0 = YD(JFLD)%MP
+    IF(LTWOTL) THEN
+      YD(JFLD)%MP9 = YD(JFLD)%MP0
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+YDSC%NUMFLDS
+    ELSE
+      YD(JFLD)%MP9 = YD(JFLD)%MP0+YDSC%NUMFLDS
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+2*YDSC%NUMFLDS
+    ENDIF
+  ELSE
+    YD(JFLD)%MP0 = NUNDEFLD
+    YD(JFLD)%MP9 = NUNDEFLD
+    YD(JFLD)%MP1 = NUNDEFLD
+  ENDIF
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+  
+DO JFLD=KFLDS+1,IMAXF
+  YD(JFLD)%MP  = NUNDEFLD
+  YD(JFLD)%MP0 = NUNDEFLD
+  YD(JFLD)%MP9 = NUNDEFLD
+  YD(JFLD)%MP1 = NUNDEFLD
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+
+WRITE(NULOUT,*) 'INITIALIZING 2-D SURFACE FIELD GROUP ', YDSC%CGRPNAME
+WRITE(NULOUT,*) 'NUMFLDS=',YDSC%NUMFLDS,' LMTL=',YDSC%LMTL 
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP2',1,ZHOOK_HANDLE)
+END SUBROUTINE INI_SFLP2
+
+!=========================================================================
+
+SUBROUTINE SETUP_SFLP2(YDSC,YD,KGRIB,CDNAME,PDEFAULT,KTRAJ,KREQIN)
+! Setup 2-D surface field
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)      :: YDSC
+TYPE(TYPE_SURF_MTL_2D),INTENT(INOUT)   :: YD
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KGRIB
+CHARACTER(LEN=16) ,OPTIONAL,INTENT(IN) :: CDNAME
+REAL(KIND=JPRB)   ,OPTIONAL,INTENT(IN) :: PDEFAULT
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KTRAJ
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KREQIN
+
+INTEGER(KIND=JPIM) :: IPTR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP2',0,ZHOOK_HANDLE)
+IPTR = YDSC%IPTR
+IF(IPTR > YDSC%NUMFLDS) THEN
+  WRITE(NULERR,*) 'SURFACE FIELDS UNDER-DIMENSINED - GROUP ',YDSC%CGRPNAME,YDSC%NUMFLDS,KGRIB,CDNAME
+  CALL ABOR1('IPTR > YDSC%NUMFLDS')
+ENDIF
+IF(PRESENT(KGRIB)) THEN
+  YD%IGRBCODE = KGRIB
+ENDIF
+IF(PRESENT(KREQIN)) THEN
+  YD%NREQIN = KREQIN
+ENDIF
+IF(PRESENT(CDNAME)) THEN
+  YD%CNAME    = CDNAME
+ENDIF
+IF(PRESENT(PDEFAULT)) THEN
+  YD%REFVALI = PDEFAULT
+ENDIF
+IF(PRESENT(KTRAJ)) THEN
+  IF(KTRAJ == 1) THEN
+    NSTRAJGRIB(NOFFTRAJ+1) = YD%IGRBCODE
+    NOFFTRAJ = NOFFTRAJ+1
+  ELSEIF(KTRAJ == 2) THEN
+    NOFFTRAJ_CST = NOFFTRAJ_CST+1
+  ELSEIF(KTRAJ /= 0) THEN
+    CALL ABOR1('SURFACE_FIELDS:SETUP_SFLP2 - UNKNOWN KTRAJ')
+  ENDIF
+  YD%ITRAJ = KTRAJ
+  YDSC%NDIM5 = YDSC%NDIM5+1
+  YD%MP5 = YDSC%NDIM5
+ENDIF
+IF(YDSC%LMTL) THEN
+  WRITE(NULOUT,'(1X,A,I4,1X,A,6I4)') &
+   & YDSC%CGRPNAME(1:6),YDSC%IPTR,YD%CNAME,YD%IGRBCODE,&
+   & YD%MP0,YD%MP9,YD%MP1,YD%ITRAJ,YD%NREQIN
+ELSE
+  WRITE(NULOUT,'(1X,A,I4,1X,A,4I4)') &
+   & YDSC%CGRPNAME(1:6),YDSC%IPTR,YD%CNAME,YD%IGRBCODE,YD%MP,YD%ITRAJ,YD%NREQIN
+ENDIF
+  
+YDSC%IPTR = YDSC%IPTR+1
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP2',1,ZHOOK_HANDLE)
+END SUBROUTINE SETUP_SFLP2
+
+!=========================================================================
+
+SUBROUTINE GPPOPER(CDACT,KBL,PSP_SB,PSP_SG,PSP_RR,PSP_EP,PSP_X2,YDCOM)
+! Operations on prognostic surface fields
+CHARACTER(LEN=*),INTENT(IN)            :: CDACT
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KBL
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SB(:,:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SG(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_RR(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_EP(:,:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_X2(:,:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT)   :: YDCOM
+
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPPOPER',0,ZHOOK_HANDLE)
+IF(PRESENT(KBL)) THEN
+  CALL GPOPER_3(CDACT,SP_SB(:,:,:,KBL),YSP_SBD,YSP_SB%YSB,YDCOM)
+  CALL GPOPER_2(CDACT,SP_SG(:,:,KBL)  ,YSP_SGD,YSP_SG%YSG,YDCOM)
+  CALL GPOPER_2(CDACT,SP_RR(:,:,KBL)  ,YSP_RRD,YSP_RR%YRR,YDCOM)
+  CALL GPOPER_3(CDACT,SP_EP(:,:,:,KBL),YSP_EPD,YSP_EP%YEP,YDCOM)
+  CALL GPOPER_2(CDACT,SP_X2(:,:,KBL)  ,YSP_X2D,YSP_X2%YX2,YDCOM)
+ELSE
+  IF(PRESENT(PSP_SB)) CALL GPOPER_3(CDACT,PSP_SB(:,:,:),YSP_SBD,YSP_SB%YSB,YDCOM)
+  IF(PRESENT(PSP_SG)) CALL GPOPER_2(CDACT,PSP_SG(:,:)  ,YSP_SGD,YSP_SG%YSG,YDCOM)
+  IF(PRESENT(PSP_RR)) CALL GPOPER_2(CDACT,PSP_RR(:,:)  ,YSP_RRD,YSP_RR%YRR,YDCOM)
+  IF(PRESENT(PSP_EP)) CALL GPOPER_3(CDACT,PSP_EP(:,:,:),YSP_EPD,YSP_EP%YEP,YDCOM)
+  IF(PRESENT(PSP_X2)) CALL GPOPER_2(CDACT,PSP_X2(:,:)  ,YSP_X2D,YSP_X2%YX2,YDCOM)
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPPOPER',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPOPER
+
+!=========================================================================
+
+SUBROUTINE GPOPER(CDACT,KBL,PSP_SB,PSP_SG,PSP_RR,PSD_VF,PSD_VV,YDCOM,PFIELD,PFIELD2)
+!Operations on ALL surface groups
+CHARACTER(LEN=*),INTENT(IN)            :: CDACT
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KBL
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SB(:,:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SG(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_RR(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSD_VF(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSD_VV(:,:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT)   :: YDCOM
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PFIELD(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PFIELD2(:,:)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER',0,ZHOOK_HANDLE)
+IF(CDACT == 'PUTALLFLDS' .OR. CDACT == 'GETALLFLDS'   .OR.&
+ & CDACT == 'TRAJSTORE'  .OR. CDACT == 'TRAJSTORECST' .OR. &
+ & CDACT == 'SET0TOTRAJ' .OR. CDACT == 'GETTRAJ'          ) THEN
+  IF(.NOT.PRESENT(PFIELD)) CALL ABOR1('SURFACE_FIELDS:GPOPER - PFIELD MISSING')
+  IF(SIZE(PFIELD,1) < NPROMA)  CALL ABOR1('SURFACE_FIELDS:GPOPER - SIZE(PFIELD,1) < NPROMA)')
+ENDIF
+IF(CDACT == 'PUTALLFLDS' .OR. CDACT == 'GETALLFLDS') THEN
+  IF(SIZE(PFIELD,2) < NPROGSURFL) CALL ABOR1('SURFACE_FIELDS:GPOPER - SIZE(PFIELD,2) < NPROGSURFL)')
+ENDIF
+IF(CDACT == 'GETTRAJ') THEN
+  IF(.NOT.PRESENT(PFIELD2)) CALL ABOR1('SURFACE_FIELDS:GPOPER - PFIELD2 MISSING')
+  IF(SIZE(PFIELD2,1) < NPROMA)  CALL ABOR1('SURFACE_FIELDS:GPOPER - SIZE(PFIELD2,1) < NPROMA)')
+ENDIF
+IF(PRESENT(YDCOM)) THEN
+  YDCOM%L_OK = .FALSE.
+  YDCOM%IPTRSURF = 0
+  YDCOM%ICOUNT = 0
+ENDIF
+
+NPTRSURF = 0
+IF(PRESENT(KBL)) THEN
+  IF(YSP_SBD%NDIM > 0) THEN
+    CALL GPOPER_3(CDACT,SP_SB(:,:,:,KBL),YSP_SBD,YSP_SB%YSB,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_SGD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SP_SG(:,:,KBL)  ,YSP_SGD,YSP_SG%YSG,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_RRD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SP_RR(:,:,KBL)  ,YSP_RRD,YSP_RR%YRR,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_EPD%NDIM > 0) THEN
+    CALL GPOPER_3(CDACT,SP_EP(:,:,:,KBL),YSP_EPD,YSP_EP%YEP,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_X2D%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SP_X2(:,:,KBL)  ,YSP_X2D,YSP_X2%YX2,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VFD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VF(:,:,KBL)  ,YSD_VFD,YSD_VF%YVF,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VPD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VP(:,:,KBL)  ,YSD_VPD,YSD_VP%YVP,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VVD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VV(:,:,KBL)  ,YSD_VVD,YSD_VV%YVV,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VND%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VN(:,:,KBL)  ,YSD_VND,YSD_VN%YVN,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VHD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VH(:,:,KBL)  ,YSD_VHD,YSD_VH%YVH,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VAD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VA(:,:,KBL)  ,YSD_VAD,YSD_VA%YVA,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VCD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VC(:,:,KBL)  ,YSD_VCD,YSD_VC%YVC,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VDD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VD(:,:,KBL)  ,YSD_VDD,YSD_VD%YVD,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_WSD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_WS(:,:,KBL)  ,YSD_WSD,YSD_WS%YWS,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_XAD%NDIM > 0) THEN
+    CALL GPOPER_3(CDACT,SD_XA(:,:,:,KBL),YSD_XAD,YSD_XA%YXA,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_X2D%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_X2(:,:,KBL)  ,YSD_X2D,YSD_X2%YX2,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VXD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VX(:,:,KBL)  ,YSD_VXD,YSD_VX%YVX,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+ELSE
+  IF(YSP_SBD%NDIM > 0) THEN
+    IF(PRESENT(PSP_SB)) &
+     & CALL GPOPER_3(CDACT,PSP_SB,YSP_SBD,YSP_SB%YSB,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_SGD%NDIM > 0) THEN
+    IF(PRESENT(PSP_SG)) &
+     & CALL GPOPER_2(CDACT,PSP_SG,YSP_SGD,YSP_SG%YSG,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_RRD%NDIM > 0) THEN
+    IF(PRESENT(PSP_RR)) &
+     & CALL GPOPER_2(CDACT,PSP_RR,YSP_RRD,YSP_RR%YRR,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VFD%NDIM > 0) THEN
+    IF(PRESENT(PSD_VF)) &
+     & CALL GPOPER_2(CDACT,PSD_VF,YSD_VFD,YSD_VF%YVF,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VVD%NDIM > 0) THEN
+    IF(PRESENT(PSD_VV)) &
+     & CALL GPOPER_2(CDACT,PSD_VV,YSD_VVD,YSD_VV%YVV,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER',1,ZHOOK_HANDLE)
+END SUBROUTINE GPOPER
+
+!=========================================================================
+
+SUBROUTINE GPOPER_2(CDACT,PFLD,YDSC,YD,YDCOM,PFIELD,PFIELD2)
+! Operations on 2-D surface groups
+CHARACTER(LEN=*),INTENT(IN)                :: CDACT
+REAL(KIND=JPRB),INTENT(INOUT)              :: PFLD(:,:)
+TYPE(TYPE_SURF_GEN),INTENT(IN)             :: YDSC
+TYPE(TYPE_SURF_MTL_2D),INTENT(IN)          :: YD(:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT) :: YDCOM
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD2(:,:)
+
+INTEGER(KIND=JPIM) :: J,IPTR,IPTR2
+REAL(KIND=JPRB) :: ZZPHY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_2',0,ZHOOK_HANDLE)
+IF(CDACT == 'SET9TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = PFLD(:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP9)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP9)+PFLD(:,YD(J)%MP1)
+    PFLD(:,YD(J)%MP1) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP1)+PFLD(:,YD(J)%MP0)
+    PFLD(:,YD(J)%MP0) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET9TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = PFLD(:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILT') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = REPSP1*PFLD(:,YD(J)%MP1)+ZZPHY*PFLD(:,YD(J)%MP0)
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILTAD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP1)+PFLD(:,YD(J)%MP0)
+    PFLD(:,YD(J)%MP0) = 0.0_JPRB
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP1)+REPSP1*PFLD(:,YD(J)%MP9)
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP0)+ZZPHY *PFLD(:,YD(J)%MP9)
+    PFLD(:,YD(J)%MP9) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP0) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET9TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET1TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETALLTOVAL') THEN
+  DO J=1,YDSC%NDIM
+    PFLD(:,J) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETDEFAULT') THEN
+  DO J=1,YDSC%NUMFLDS
+    IF(YD(J)%NREQIN == -1) THEN
+      PFLD(:,YD(J)%MP) = YD(J)%REFVALI
+    ENDIF
+  ENDDO
+ELSEIF(CDACT == 'TRAJSTORE') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        IPTR = IPTR+1
+        PFIELD(:,IPTR) = PFLD(:,YD(J)%MP)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'TRAJSTORECST') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 2) THEN
+        IPTR2 = IPTR2+1
+        PFIELD(:,IPTR2) = PFLD(:,YD(J)%MP)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'SET0TOTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        IPTR = IPTR+1
+        PFLD(:,YD(J)%MP) = PFIELD(:,IPTR)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        IPTR = IPTR+1
+        PFLD(:,YD(J)%MP5) = PFIELD(:,IPTR)
+      ELSEIF(YD(J)%ITRAJ == 2) THEN
+        IPTR2 = IPTR2+1
+        PFLD(:,YD(J)%MP5) = PFIELD2(:,IPTR2)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    NPTRSURF = NPTRSURF+1
+    PFIELD(:,NPTRSURF) = PFLD(:,J)
+  ENDDO
+ELSEIF(CDACT == 'PUTALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    NPTRSURF = NPTRSURF+1
+    PFLD(:,J) = PFIELD(:,NPTRSURF)
+  ENDDO
+ELSEIF(CDACT == 'GETGRIBPOS') THEN
+  DO J=1,YDSC%NUMFLDS  
+    YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+    IF(YD(J)%IGRBCODE == YDCOM%IGRBCODE) THEN
+      YDCOM%IFLDNUM  = YDCOM%IPTRSURF
+      YDCOM%L_OK = .TRUE.
+    ENDIF
+  ENDDO
+ELSEIF(CDACT == 'GETFIELD') THEN
+  DO J=1,YDSC%NUMFLDS  
+    YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+    IF(YDCOM%IPTRSURF == YDCOM%IFLDNUM) THEN
+      PFIELD(:,1) = PFLD(:,J)
+      YDCOM%L_OK = .TRUE.
+    ENDIF
+  ENDDO
+ELSEIF(CDACT == 'GRIBIN') THEN
+  DO J=1,YDSC%NUMFLDS  
+    YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+    IF(YD(J)%NREQIN == 1) THEN
+      YDCOM%ICOUNT = YDCOM%ICOUNT+1
+      YDCOM%ICODES(YDCOM%ICOUNT) = YD(J)%IGRBCODE
+    ENDIF
+  ENDDO
+ELSE
+  WRITE(NULOUT,*) 'SURFACE_FIELD:GPPOPER UNKNOWN ACTION - ',CDACT
+  CALL ABOR1('SURFACE_FIELD:GPPOPER - UNKNOWN ACTION')
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_2',1,ZHOOK_HANDLE)
+END SUBROUTINE GPOPER_2
+
+!=========================================================================
+
+SUBROUTINE GPOPER_3(CDACT,PFLD,YDSC,YD,YDCOM,PFIELD,PFIELD2)
+! Operations on 3-D surface groups
+CHARACTER(LEN=*),INTENT(IN)                :: CDACT
+REAL(KIND=JPRB),INTENT(INOUT)              :: PFLD(:,:,:)
+TYPE(TYPE_SURF_GEN),INTENT(IN)             :: YDSC
+TYPE(TYPE_SURF_MTL_3D),INTENT(IN)          :: YD(:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT) :: YDCOM
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD2(:,:)
+
+INTEGER(KIND=JPIM) :: J,JLEV,IPTR,IPTR2
+REAL(KIND=JPRB) :: ZZPHY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_3',0,ZHOOK_HANDLE)
+IF(CDACT == 'SET9TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = PFLD(:,:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP9)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = PFLD(:,:,YD(J)%MP9)+PFLD(:,:,YD(J)%MP1)
+    PFLD(:,:,YD(J)%MP1) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP0) = PFLD(:,:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP1)+PFLD(:,:,YD(J)%MP0)
+    PFLD(:,:,YD(J)%MP0) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET9TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = PFLD(:,:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILT') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = REPSP1*PFLD(:,:,YD(J)%MP1)+ZZPHY*PFLD(:,:,YD(J)%MP0)
+    PFLD(:,:,YD(J)%MP0) = PFLD(:,:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILTAD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP1)+PFLD(:,:,YD(J)%MP0)
+    PFLD(:,:,YD(J)%MP0) = 0.0_JPRB
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP1)+REPSP1*PFLD(:,:,YD(J)%MP9)
+    PFLD(:,:,YD(J)%MP0) = PFLD(:,:,YD(J)%MP0)+ZZPHY *PFLD(:,:,YD(J)%MP9)
+    PFLD(:,:,YD(J)%MP9) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP0) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET9TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET1TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETALLTOVAL') THEN
+  DO J=1,YDSC%NDIM
+    PFLD(:,:,J) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETDEFAULT') THEN
+  DO J=1,YDSC%NUMFLDS
+    DO JLEV=1,YDSC%NLEVS
+      IF(YD(J)%NREQIN(JLEV) == -1) THEN
+        PFLD(:,JLEV,YD(J)%MP) = YD(J)%REFVALI(JLEV)
+      ENDIF
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'TRAJSTORE') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR = IPTR+1
+          PFIELD(:,IPTR) = PFLD(:,JLEV,YD(J)%MP)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'TRAJSTORECST') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 2) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR2 = IPTR2+1
+          PFIELD(:,IPTR2) = PFLD(:,JLEV,YD(J)%MP)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'SET0TOTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR = IPTR+1
+          PFLD(:,JLEV,YD(J)%MP) = PFIELD(:,IPTR)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR = IPTR+1
+          PFLD(:,JLEV,YD(J)%MP5) = PFIELD(:,IPTR)
+        ENDDO
+      ELSEIF(YD(J)%ITRAJ == 2) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR2 = IPTR2+1
+          PFLD(:,JLEV,YD(J)%MP5) = PFIELD2(:,IPTR2)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    DO JLEV=1,YDSC%NLEVS
+      NPTRSURF = NPTRSURF+1
+      PFIELD(:,NPTRSURF) = PFLD(:,JLEV,J)
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'PUTALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    DO JLEV=1,YDSC%NLEVS
+      NPTRSURF = NPTRSURF+1
+      PFLD(:,JLEV,J) = PFIELD(:,NPTRSURF)
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'GETGRIBPOS') THEN
+  DO J=1,YDSC%NUMFLDS  
+    DO JLEV=1,YDSC%NLEVS
+      YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+      IF(YD(J)%IGRBCODE(JLEV) == YDCOM%IGRBCODE) THEN
+        YDCOM%IFLDNUM  = YDCOM%IPTRSURF
+        YDCOM%L_OK = .TRUE.
+      ENDIF
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'GETFIELD') THEN
+  DO J=1,YDSC%NUMFLDS  
+    DO JLEV=1,YDSC%NLEVS
+      YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+      IF(YDCOM%IPTRSURF == YDCOM%IFLDNUM) THEN
+        PFIELD(:,1) = PFLD(:,JLEV,J)
+        YDCOM%L_OK = .TRUE.
+      ENDIF
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'GRIBIN') THEN
+  DO J=1,YDSC%NUMFLDS  
+    DO JLEV=1,YDSC%NLEVS
+      YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+      IF(YD(J)%NREQIN(JLEV) == 1) THEN
+        YDCOM%ICOUNT = YDCOM%ICOUNT+1
+        YDCOM%ICODES(YDCOM%ICOUNT) = YD(J)%IGRBCODE(JLEV)
+      ENDIF
+    ENDDO
+  ENDDO
+ELSE
+  WRITE(NULOUT,*) 'SURFACE_FIELD:GPPOPER UNKNOWN ACTION - ',CDACT
+  CALL ABOR1('SURFACE_FIELD:GPPOPER - UNKNOWN ACTION')
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_3',1,ZHOOK_HANDLE)
+END SUBROUTINE GPOPER_3
+
+!=========================================================================
+
+SUBROUTINE SURF_STORE
+! Store all surface fields
+INTEGER(KIND=JPIM) :: JBL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_STORE',0,ZHOOK_HANDLE)
+ALLOCATE(SURF_STORE_ARRAY(NPROMA,NDIMSURFL,NGPBLKS))
+DO JBL=1,NGPBLKS
+  CALL GPOPER('GETALLFLDS',KBL=JBL,PFIELD=SURF_STORE_ARRAY(:,:,JBL))
+ENDDO
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_STORE',1,ZHOOK_HANDLE)
+END SUBROUTINE SURF_STORE
+
+!=========================================================================
+
+SUBROUTINE SURF_RESTORE
+! Restore all surface fields
+INTEGER(KIND=JPIM) :: JBL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_RESTORE',0,ZHOOK_HANDLE)
+IF(.NOT. ALLOCATED(SURF_STORE_ARRAY)) &
+ & CALL ABOR1('SURFACE_FIELDS:SURF_RESTORE - SURF_STORE NOT ALLOCATED')
+DO JBL=1,NGPBLKS
+  CALL GPOPER('PUTALLFLDS',KBL=JBL,PFIELD=SURF_STORE_ARRAY(:,:,JBL))
+ENDDO
+DEALLOCATE(SURF_STORE_ARRAY)
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_RESTORE',1,ZHOOK_HANDLE)
+
+END SUBROUTINE SURF_RESTORE
+
+!=========================================================================
+
+SUBROUTINE ALLO_SURF
+! Allocate surface field arrays
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:ALLO_SURF',0,ZHOOK_HANDLE)
+ALLOCATE(SP_SB(NPROMA,YSP_SBD%NLEVS,YSP_SBD%NDIM,NGPBLKS))
+ALLOCATE(SP_SG(NPROMA,YSP_SGD%NDIM,NGPBLKS))
+ALLOCATE(SP_RR(NPROMA,YSP_RRD%NDIM,NGPBLKS))
+ALLOCATE(SP_EP(NPROMA,YSP_EPD%NLEVS,YSP_EPD%NDIM,NGPBLKS))
+ALLOCATE(SP_X2(NPROMA,YSP_X2D%NDIM,NGPBLKS))
+ALLOCATE(SP_CI(NPROMA,YSP_CID%NDIM,NGPBLKS))
+ALLOCATE(SD_VF(NPROMA,YSD_VFD%NDIM,NGPBLKS))
+ALLOCATE(SD_VP(NPROMA,YSD_VPD%NDIM,NGPBLKS))
+ALLOCATE(SD_VV(NPROMA,YSD_VVD%NDIM,NGPBLKS))
+ALLOCATE(SD_VN(NPROMA,YSD_VND%NDIM,NGPBLKS))
+ALLOCATE(SD_VH(NPROMA,YSD_VHD%NDIM,NGPBLKS))
+ALLOCATE(SD_VA(NPROMA,YSD_VAD%NDIM,NGPBLKS))
+ALLOCATE(SD_VC(NPROMA,YSD_VCD%NDIM,NGPBLKS))
+ALLOCATE(SD_VD(NPROMA,YSD_VDD%NDIM,NGPBLKS))
+ALLOCATE(SD_WS(NPROMA,YSD_WSD%NDIM,NGPBLKS))
+ALLOCATE(SD_XA(NPROMA,YSD_XAD%NLEVS,YSD_XAD%NDIM,NGPBLKS))
+ALLOCATE(SD_X2(NPROMA,YSD_X2D%NDIM,NGPBLKS))
+ALLOCATE(SD_VX(NPROMA,YSD_VXD%NDIM,NGPBLKS))
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:ALLO_SURF',1,ZHOOK_HANDLE)
+END SUBROUTINE ALLO_SURF
+
+!=========================================================================
+
+SUBROUTINE DEALLO_SURF
+! Deallocate surface field arrays
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:DEALLO_SURF',0,ZHOOK_HANDLE)
+IF(ALLOCATED(SP_SB)) DEALLOCATE(SP_SB)
+IF(ALLOCATED(SP_SG)) DEALLOCATE(SP_SG)
+IF(ALLOCATED(SP_RR)) DEALLOCATE(SP_RR)
+IF(ALLOCATED(SP_EP)) DEALLOCATE(SP_EP)
+IF(ALLOCATED(SP_X2)) DEALLOCATE(SP_X2)
+IF(ALLOCATED(SP_CI)) DEALLOCATE(SP_CI)
+IF(ALLOCATED(SD_VF)) DEALLOCATE(SD_VF)
+IF(ALLOCATED(SD_VP)) DEALLOCATE(SD_VP)
+IF(ALLOCATED(SD_VV)) DEALLOCATE(SD_VV)
+IF(ALLOCATED(SD_VN)) DEALLOCATE(SD_VN)
+IF(ALLOCATED(SD_VH)) DEALLOCATE(SD_VH)
+IF(ALLOCATED(SD_VA)) DEALLOCATE(SD_VA)
+IF(ALLOCATED(SD_VC)) DEALLOCATE(SD_VC)
+IF(ALLOCATED(SD_VD)) DEALLOCATE(SD_VD)
+IF(ALLOCATED(SD_WS)) DEALLOCATE(SD_WS)
+IF(ALLOCATED(SD_XA)) DEALLOCATE(SD_XA)
+IF(ALLOCATED(SD_X2)) DEALLOCATE(SD_X2)
+IF(ALLOCATED(SD_VX)) DEALLOCATE(SD_VX)
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:DEALLO_SURF',1,ZHOOK_HANDLE)
+END SUBROUTINE DEALLO_SURF
+
+!=========================================================================
+
+END MODULE SURFACE_FIELDS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surhcri.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surhcri.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surhcri.F90	(revision 3330)
@@ -0,0 +1,100 @@
+!-----------------------------------------------------------------------
+      SUBROUTINE SURHCRI(KULOUT)
+!-----------------------------------------------------------------------
+!
+!**** *SURHCRI * - COMPUTATION OF THE CRTITICAL RELATIVE HUMIDITY
+!                  PROFILE FOR SMITH'S CONDENSATION SCHEME.
+!
+!**   Interface.
+!     ----------
+!        *CALL* *SURHCRI*
+!
+!-----------------------------------------------------------------------
+!
+! -   ARGUMENTS D'ENTREE./INPUT ARGUMENTS.
+!     ------------------------------------
+!
+!-----------------------------------------------------------------------
+!
+! -   ARGUMENTS IMPLICITES.
+!     ---------------------
+!
+! COMMON /YOMPHY/
+! COMMON /YOMPHY0/
+!
+!*
+!-----------------------------------------------------------------------
+!
+!     Auteur.
+!     -------
+!         05-03, Luc Gerard (from Ph. Lopez acrhcri)
+!
+!     Modifications.
+!     --------------
+!         06-10, nettoyage - R. Brozkova
+!-----------------------------------------------------------------------
+!
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+!
+USE YOMPHY0   , ONLY : RHCRIT1, RHCRIT2, RETAMIN, GRHCMOD, RHCRI ,NRHCRI 
+USE YOMDIM    , ONLY : NFLEVG
+USE YOMGC     , ONLY : GAW, GM
+USE YOMGEM    , ONLY : VP00, TEQH
+USE YOMPHY    , ONLY : LGWRHCRI
+USE YOMSTA    , ONLY : STPRE 
+ 
+IMPLICIT NONE
+ 
+INTEGER (KIND=JPIM),INTENT(IN) :: KULOUT
+ 
+! LOCAL
+ 
+REAL(KIND=JPRB) :: ZVETAF
+REAL(KIND=JPRB) :: ZGAW0,ZEGAW,ZFACT,ZFACT0,ZFACTA,ZFACTB,ZFACTC, &
+        & ZA,ZB,ZC
+INTEGER (KIND=JPIM) :: JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURHCRI',0,ZHOOK_HANDLE)
+ 
+!     ------------------------------------------------------------------
+ 
+IF(NRHCRI == NFLEVG) THEN
+ 
+!     ------------------------------------------------------------------
+ 
+! CRITICAL RELATIVE HUMIDITY PROFILE
+! DEPENDENT ON THE LOCAL RESOLUTION.
+! ----------------------------------
+ 
+   ZFACT0=(RETAMIN*(RETAMIN-1._JPRB))**2
+   ZFACTA=(2._JPRB*RETAMIN-1._JPRB)
+   ZFACTB=(1._JPRB-3._JPRB*RETAMIN**2)
+   ZFACTC=(3._JPRB*RETAMIN-2._JPRB)*RETAMIN
+   IF (LGWRHCRI) THEN
+     ZGAW0=2.42E-05_JPRB
+     ZEGAW=(1.0_JPRB-EXP(-GAW(1)/ZGAW0))/ZFACT0
+   ELSE
+     ZEGAW=(1.0_JPRB-GRHCMOD*EXP(-1.0_JPRB/(TEQH*GM(1))))/ZFACT0
+   ENDIF
+ 
+   ZFACT=(RHCRIT2-RHCRIT1)*ZEGAW
+   ZA=ZFACTA*ZFACT
+   ZB=ZFACTB*ZFACT
+   ZC=ZFACTC*ZFACT
+ 
+   DO JLEV=1,NFLEVG
+     ZVETAF=STPRE (JLEV)/VP00
+     RHCRI(JLEV) = ZA * ZVETAF**3 &
+                     & + ZB * ZVETAF**2 &
+                     & + ZC * ZVETAF &
+                     & + RHCRIT2
+   ENDDO   
+ 
+   WRITE(KULOUT,'(A)') 'RHCRI: SMITH SCHEME CRITICAL RH PROFILE:'
+   WRITE(KULOUT,'((10(G9.3)))') (RHCRI(JLEV),JLEV=1,NFLEVG)
+ELSE
+   WRITE(KULOUT,*) 'NRHCRI=',NRHCRI,': GLOBAL MODEL, NO RHCRI INITIALISATION IN SETUP'
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURHCRI',1,ZHOOK_HANDLE)
+END SUBROUTINE SURHCRI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surhcri.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surhcri.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surhcri.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+ SUBROUTINE SURHCRI(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER (KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SURHCRI
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtab.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtab.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtab.F90	(revision 3330)
@@ -0,0 +1,35 @@
+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
+
+!     -----------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTAB , ONLY : TRANS, BPADE
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: ITR
+
+REAL(KIND=JPRB) :: ZTAU, ZTFN
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURRTAB',0,ZHOOK_HANDLE)
+BPADE=1.0_JPRB/0.278_JPRB
+TRANS(0)   =1.0_JPRB
+TRANS(5000)=0.0_JPRB
+DO ITR=1,4999
+  ZTFN=REAL(ITR)/5000._JPRB
+  ZTAU=BPADE*ZTFN/(1.0_JPRB-ZTFN)
+  TRANS(ITR)=EXP(-ZTAU)
+ENDDO
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURRTAB',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTAB
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtab.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtab.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtab.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTAB
+END SUBROUTINE SURRTAB
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtftr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtftr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtftr.F90	(revision 3330)
@@ -0,0 +1,84 @@
+SUBROUTINE SURRTFTR
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURRTFTR',0,ZHOOK_HANDLE)
+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    /)  
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTFTR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtftr.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtftr.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtftr.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTFTR
+END SUBROUTINE SURRTFTR
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtpk.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtpk.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtpk.F90	(revision 3330)
@@ -0,0 +1,695 @@
+SUBROUTINE SURRTPK
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
+ & WAVENUM2  ,DELWAVE   ,TOTPLNK   ,TOTPLK16  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURRTPK',0,ZHOOK_HANDLE)
+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/)  
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SURRTPK',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTPK
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtpk.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtpk.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtpk.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTPK
+END SUBROUTINE SURRTPK
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtrf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtrf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtrf.F90	(revision 3330)
@@ -0,0 +1,67 @@
+SUBROUTINE SURRTRF
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+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
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURRTRF',0,ZHOOK_HANDLE)
+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/)  
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SURRTRF',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTRF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtrf.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtrf.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/surrtrf.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTRF
+END SUBROUTINE SURRTRF
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susat.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susat.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susat.F90	(revision 3330)
@@ -0,0 +1,225 @@
+SUBROUTINE SUSAT
+
+!**** *SUSAT*   - INITIALIZE COMMON YOESAT
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESAT, THE COMMON THAT CONTROLS THE
+!           SIMULATION OF SATELLITE RADIANCES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSAT
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!            NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESAT
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "IN CORE MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1        ,ONLY : JPIM     ,JPRB
+USE YOMHOOK         ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN_IFSAUX   , ONLY : NULOUT
+USE YOMCST          , ONLY : RPI
+USE YOESAT          , ONLY : NGEO     ,RGALT    ,RGNAD    ,RGNOR    ,&
+ & RGSOU    ,RGWST    ,RGEAS    ,LGEOSE   ,LGEOSW   ,&
+ & LGMS     ,LINDSA   ,LMTO  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: ISATEL, JSATEL
+
+REAL(KIND=JPRB) :: ZDEGRAD
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!*CALL COMDOC
+!----------------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSAT',0,ZHOOK_HANDLE)
+ISATEL=5
+DO JSATEL = 1 , ISATEL
+  RGALT(JSATEL) = 0.0_JPRB
+  RGNAD(JSATEL) = 0.0_JPRB
+  RGNOR(JSATEL) = 0.0_JPRB
+  RGSOU(JSATEL) = 0.0_JPRB
+  RGWST(JSATEL) = 0.0_JPRB
+  RGEAS(JSATEL) = 0.0_JPRB
+ENDDO
+
+IF (NGEO /= 0) THEN
+
+!      ----------------------------------------------------------------
+
+!*       2.    MODIFY DEFAULT VALUES FOR THE VARIOUS GEO.SATELLITES
+!              ----------------------------------------------------
+
+  ISATEL = 0
+  ZDEGRAD = RPI / 180._JPRB
+
+  WRITE(UNIT=NULOUT,FMT='('' COMMON YOESAT '')')
+  WRITE(UNIT=NULOUT,FMT='('' NGEO  = '',I1 )') NGEO
+!      ----------------------------------------------------------------
+
+!*       2.1   GOES EAST SATELLITE
+!              -------------------
+
+  IF (LGEOSE) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 285._JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = RGNAD(ISATEL) -70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = RGNAD(ISATEL) +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LGOESE = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LGEOSE,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.2   GOES WEST SATELLITE
+!              -------------------
+
+  IF (LGEOSW) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 225._JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = RGNAD(ISATEL) -70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = RGNAD(ISATEL) +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LGEOSW = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LGEOSW,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.3   G.M.S. SATELLITE
+!              ----------------
+
+  IF (LGMS) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 140._JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = RGNAD(ISATEL) -70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = RGNAD(ISATEL) +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LGMS   = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LGMS,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.4   INDSAT SATELLITE
+!              ----------------
+
+  IF (LINDSA) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+! ????      RGNAD(ISATEL) = 70. * ZDEGRAD
+    RGNAD(ISATEL) = 0.0_JPRB
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = 0.0_JPRB
+    RGEAS(ISATEL) = 0.0_JPRB
+    WRITE(UNIT=NULOUT,FMT='('' LINDSA = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LINDSA,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.5   METEOSAT SATELLITE
+!              ------------------
+
+  IF (LMTO) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 0.0_JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = 2.0_JPRB * RPI - 70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LMTO   = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LMTO,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+ENDIF
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSAT',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSAT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susat.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susat.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susat.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSAT
+END SUBROUTINE SUSAT
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suscm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suscm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suscm.F90	(revision 3330)
@@ -0,0 +1,106 @@
+SUBROUTINE SUSCM(KULOUT)
+
+#ifdef DOC
+
+!**** *SUSCM*   - Initialize MODULE YOMSCM controlling extraction of Single-Column profiles.
+
+!     Purpose.
+!     --------
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUSCM(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        MODULE YOMSCM
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+!        J.M. Piriou.
+
+!     Modifications.
+!     --------------
+!        Original : 2002-03-17
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M.Hamrud      01-Dec-2003 CY28R1 Cleaning
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMSCM  , ONLY : &
+ & LGSCM, NFRSCM, NSCMTS, NSCM_SPACE_S &
+ & , GSCM_LON1, GSCM_LON2, GSCM_LAT1, GSCM_LAT2 &
+ & , GSCM_RADIUS, NSCM_ADD_SAMPL  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM) ::J
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+
+#include "namscm.h"
+
+!-------------------------------------------------
+! 1. Default values.
+!-------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSCM',0,ZHOOK_HANDLE)
+LGSCM=.FALSE.
+NFRSCM=1
+NSCMTS=0
+NSCM_SPACE_S=0
+NSCM_ADD_SAMPL=1
+GSCM_LON1=0.0_JPRB
+GSCM_LON2=0.0_JPRB
+GSCM_LAT1=0.0_JPRB
+GSCM_LAT2=0.0_JPRB
+GSCM_RADIUS=2.E-04_JPRB
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMSCM')
+!READ(NULNAM,NAMSCM)
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='(A)') ' MODULE YOMSCM'
+WRITE(UNIT=KULOUT,FMT='(A,L5)') '   LGSCM = ',LGSCM
+IF(LGSCM) THEN
+  WRITE(UNIT=KULOUT,FMT='(3(A,I5),5(A,G12.6))') &
+   & '   NFRSCM = ',NFRSCM &
+   & ,'NSCM_SPACE_S = ',NSCM_SPACE_S &
+   & ,'NSCM_ADD_SAMPL = ',NSCM_ADD_SAMPL &
+   & ,'GSCM_LON1 = ',GSCM_LON1 &
+   & ,'GSCM_LON2 = ',GSCM_LON2 &
+   & ,'GSCM_LAT1 = ',GSCM_LAT1 &
+   & ,'GSCM_LAT2 = ',GSCM_LAT2 &
+   & ,'GSCM_RADIUS = ',GSCM_RADIUS  
+  WRITE(KULOUT,*) '   NSCMTS =  ',NSCMTS(0),(NSCMTS(J),J=1,ABS(NSCMTS(0)))
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SUSCM',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSCM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suscm.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suscm.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suscm.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUSCM(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUSCM
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtaer.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtaer.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtaer.F90	(revision 3330)
@@ -0,0 +1,212 @@
+SUBROUTINE SUSRTAER 
+
+!**** *SUSRTAER*   - INITIALIZE COMMON YOESRTAER
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESRTAER, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESRTAER
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-03-06
+!        03-03-06  JJMorcrette   14 spectral intervals for RRTM_SW
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTAER   , ONLY : RSRTAUA     ,RSRPIZA    ,RSRASYA
+
+!      ----------------------------------------------------------------
+
+IMPLICIT NONE
+
+!     DUMMY INTEGER REAL
+REAL(KIND=JPRB) :: ZTAUA14(14,6),ZPIZA14(14,6),ZCGA14(14,6)
+
+INTEGER(KIND=JPIM) :: JAER, JNU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       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    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+
+! SW : 14 spectral intervals 
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+
+IF (LHOOK) CALL DR_HOOK('SUSRTAER',0,ZHOOK_HANDLE)
+ZTAUA14( 1, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ZTAUA14( 2, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ZTAUA14( 3, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 4, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 5, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 6, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 7, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 8, :)= (/&
+ & 0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)  
+ZTAUA14( 9, :)= (/&
+ & 0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)  
+ZTAUA14(10, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(11, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(12, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(13, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(14, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ 
+ZPIZA14( 1, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+ZPIZA14( 2, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+ZPIZA14( 3, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 4, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 5, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 6, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 7, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 8, :)= (/&
+ & .8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)  
+ZPIZA14( 9, :)= (/&
+ & .8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)  
+ZPIZA14(10, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(11, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(12, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(13, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(14, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+
+ZCGA14( 1, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+ZCGA14( 2, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+ZCGA14( 3, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 4, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 5, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 6, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 7, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 8, :)= (/&
+ & 0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)  
+ZCGA14( 9, :)= (/&
+ & 0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)  
+ZCGA14(10, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(11, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(12, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(13, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(14, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+
+!      ----------------------------------------------------------------
+
+DO JNU=1,14
+  DO JAER=1,6
+    RSRTAUA(JNU,JAER)=ZTAUA14(JNU,JAER)
+    RSRPIZA(JNU,JAER)=ZPIZA14(JNU,JAER)
+    RSRASYA(JNU,JAER)=ZCGA14 (JNU,JAER)
+  ENDDO
+ENDDO
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSRTAER',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSRTAER
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtaer.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtaer.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtaer.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSRTAER
+END SUBROUTINE SUSRTAER
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtcop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtcop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtcop.F90	(revision 3330)
@@ -0,0 +1,415 @@
+SUBROUTINE SUSRTCOP
+
+!**** *SUSRTCOP*  - INITIALIZE COMMON YOESRTCOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESRTCOP, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUSRTCOP
+!        FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESRTCOP
+
+!     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 : 03-03-06
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTCOP , ONLY : &
+ & RSYFWA   ,RSYFWB   ,RSYFWC   ,RSYFWD   ,RSYFWE   ,RSYFWF  &
+ & , RSECIA   ,RSECIB   ,RSECIC   ,RSECID   ,RSECIE   ,RSECIF &
+ & , RSASWA   ,RSASWB   ,RSASWC   ,RSASWD   ,RSASWE   ,RSASWF &
+ & , RSSSIE   ,RSSSIF   ,RSSSIH   ,RSSSIK   ,RSSSIA   ,RSSSIG &
+ & , RSFUA0   ,RSFUA1   ,RSFUB0   ,RSFUB1   ,RSFUB2   ,RSFUB3 &
+ & , RSFUC0   ,RSFUC1   ,RSFUC2   ,RSFUC3   &
+ & , RSFLA0   ,RSFLA1   ,RSFLB0   ,RSFLB1   ,RSFLB2   ,RSFLB3 &
+ & , RSFLC0   ,RSFLC1   ,RSFLC2   ,RSFLC3   ,RSFLD0   ,RSFLD1 &
+ & , RSFLD2   ,RSFLD3  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) ::  JNU
+
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZEBCUA14(14)  ,ZEBCUB14(14)  ,ZEBCUC14(14)  ,ZEBCUD14(14)&
+ & ,  ZEBCUE14(14)  ,ZEBCUF14(14)  ,ZYFWCA14(14)  ,ZYFWCB14(14)&
+ & ,  ZYFWCC14(14)  ,ZYFWCD14(14)  ,ZYFWCE14(14)  ,ZYFWCF14(14)&
+ & ,  ZASWCA14(14)  ,ZASWCB14(14)  ,ZASWCC14(14)  ,ZASWCD14(14)&
+ & ,  ZASWCE14(14)  ,ZASWCF14(14)  ,ZSUSHE14(14)  ,ZSUSHF14(14)&
+ & ,  ZSUSHH14(14)  ,ZSUSHK14(14)  ,ZSUSHA14(14)  ,ZSUSHG14(14)&
+ & ,  ZFLAA014(14)  ,ZFLAA114(14)  ,ZFLBB014(14)  ,ZFLBB114(14)&
+ & ,  ZFLBB214(14)  ,ZFLBB314(14)  ,ZFLCC014(14)  ,ZFLCC114(14)&
+ & ,  ZFLCC214(14)  ,ZFLCC314(14)  ,ZFLDD014(14)  ,ZFLDD114(14)&
+ & ,  ZFLDD214(14)  ,ZFLDD314(14)&
+ & ,  ZFUAA014(14)  ,ZFUAA114(14)  ,ZFUBB014(14)  ,ZFUBB114(14)&
+ & ,  ZFUBB214(14)  ,ZFUBB314(14)  ,ZFUCC014(14)  ,ZFUCC114(14)&
+ & ,  ZFUCC214(14)  ,ZFUCC314(14)  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     -----------------------------------------------------------------
+
+!*          1.    SHORTWAVE CLOUD OPTICAL PROPERTIES
+!                 ----------------------------------
+
+!     ------------------------------------------------------------------
+
+!*          1.1    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+!                  ---------------------------------------
+
+! SW : 14 spectral intervals 
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+
+!* Ice cloud properties - crystal: remapped from Ebert and Curry, 1992
+
+IF (LHOOK) CALL DR_HOOK('SUSRTCOP',0,ZHOOK_HANDLE)
+ZEBCUA14 = (/ &
+ & 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB /)  
+
+ZEBCUB14 = (/ &
+ & 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     /)  
+
+ZEBCUC14 = (/ &
+ & 0.46658_JPRB   , 0.46658_JPRB   , 0.03779_JPRB   , 0.03779_JPRB   , 0.01240_JPRB   , 0.01240_JPRB   &
+ & , 0.00011_JPRB   , 0.00011_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   &
+ & , 0.00001_JPRB   , 0.46658_JPRB   /)  
+
+ZEBCUD14 = (/ &
+ & 2.050E-05_JPRB , 2.050E-05_JPRB , 1.284E-03_JPRB , 1.284E-03_JPRB , 6.867E-04_JPRB , 6.867E-04_JPRB &
+ & , 1.405E-05_JPRB , 1.405E-05_JPRB , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB          &
+ & , 0.0_JPRB         , 2.050E-05_JPRB /)  
+
+ZEBCUE14 = (/ &
+ & 0.9595_JPRB    , 0.9595_JPRB    , 0.8172_JPRB    , 0.8172_JPRB    , 0.7865_JPRB    , 0.7865_JPRB    &
+ & , 0.7730_JPRB    , 0.7730_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    &
+ & , 0.7661_JPRB    , 0.9595_JPRB    /)  
+
+ZEBCUF14 = (/ &
+ & 1.076E-04_JPRB , 1.076E-04_JPRB , 7.463E-04_JPRB , 7.463E-04_JPRB , 7.204E-04_JPRB , 7.204E-04_JPRB &
+ & , 5.665E-04_JPRB , 5.665E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB &
+ & , 5.851E-04_JPRB , 1.076E-04_JPRB /)  
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ 
+ZYFWCB14 = (/ &
+ & 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       /)  
+ 
+ZYFWCC14 = (/ &
+ & 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    &
+ & , 0.9988_JPRB    , 0.9988_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    &
+ & , 0.9999_JPRB    , 0.9988_JPRB    /)  
+
+ZYFWCD14 = (/ &
+ & 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB &
+ & , 2.500E-03_JPRB , 2.500E-03_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB &
+ & , 5.000E-04_JPRB , 2.500E-03_JPRB /)  
+
+ZYFWCE14 = (/ &
+ & 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      &
+ & , 0.05_JPRB      , 0.05_JPRB      , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB               &
+ & , 0.5_JPRB         , 0.05_JPRB      /)  
+
+ZYFWCF14 = (/ &
+ & 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     &
+ & , 0.910_JPRB     , 0.910_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB      &
+ & , 0.865_JPRB     , 0.910_JPRB     /)  
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA14 = (/ &
+ & -1.023_JPRB     , 1.950_JPRB     , 1.850_JPRB     , 1.970_JPRB     , 1.970_JPRB     , 2.463_JPRB     &
+ & , 2.551_JPRB     , 2.622_JPRB     , 2.895_JPRB     , 2.672_JPRB     , 2.801_JPRB    , 2.944_JPRB     &
+ & , 3.094_JPRB     ,-1.023_JPRB     /)  
+
+ZASWCB14 = (/ &
+ & 1.933_JPRB     , 1.540_JPRB     , 1.556_JPRB     , 1.501_JPRB     , 1.501_JPRB     , 1.420_JPRB     &
+ & , 1.401_JPRB     , 1.362_JPRB     , 1.315_JPRB     , 1.320_JPRB     , 1.293_JPRB     , 1.270_JPRB     &
+ & , 1.252_JPRB     , 1.933_JPRB     /)  
+   
+ZASWCC14 = (/ &
+ & 2.50E-02_JPRB  , 4.49E-01_JPRB  , 1.90E-04_JPRB  , 1.20E-03_JPRB  , 1.20E-03_JPRB  , 2.40E-04_JPRB  &
+ & , 6.20E-05_JPRB  , 3.30E-06_JPRB  ,-1.20E-07_JPRB  , 0.0_JPRB         , 1.00E-06_JPRB  ,-6.50E-07_JPRB  &
+ & , 7.90E-07_JPRB  , 2.50E-02_JPRB  /)  
+    
+ZASWCD14 = (/ &
+ & 1.22E-02_JPRB  , 1.54E-03_JPRB  , 2.54E-03_JPRB  , 2.16E-03_JPRB  , 2.16E-03_JPRB  , 8.56E-04_JPRB  &
+ & , 2.60E-04_JPRB  , 2.80E-06_JPRB  , 4.40E-07_JPRB  , 0.0_JPRB         , 0.0_JPRB         , 4.33E-07_JPRB  &
+ & , 3.69E-07_JPRB  , 1.22E-02_JPRB  /)  
+
+ZASWCE14 = (/ &
+ & 0.726_JPRB     , 0.831_JPRB     , 0.769_JPRB     , 0.740_JPRB     , 0.740_JPRB     , 0.754_JPRB     &
+ & , 0.773_JPRB     , 0.806_JPRB     , 0.818_JPRB     , 0.828_JPRB     , 0.836_JPRB     , 0.841_JPRB     &
+ & , 0.844_JPRB     , 0.726_JPRB     /)  
+
+ZASWCF14 = (/ &
+ & 6.652_JPRB     , 6.102_JPRB     , 5.171_JPRB     , 7.469_JPRB     , 7.469_JPRB     , 6.555_JPRB     &
+ & , 5.405_JPRB     , 3.355_JPRB     , 2.989_JPRB     , 2.467_JPRB     , 2.153_JPRB     , 1.680_JPRB     &
+ & , 1.558_JPRB     , 6.652_JPRB     /)  
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHF14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHH14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHK14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHG14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLAA114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu (1996) 
+
+ZFUAA014 = (/ &
+ & 1.87598E-04_JPRB, 2.97295E-04_JPRB, 4.89477E-04_JPRB,-8.37325E-06_JPRB,-8.37325E-06_JPRB,-8.05155E-04_JPRB  &
+ & , 6.51659E-05_JPRB, 8.10443E-05_JPRB, 1.61983E-04_JPRB,-9.45458E-05_JPRB,-2.58858E-04_JPRB,-2.66955E-04_JPRB &
+ & ,-2.36447E-04_JPRB,-2.54823E-04_JPRB /)  
+
+ZFUAA114 = (/ &
+ & 2.51396E+00_JPRB, 2.48895E+00_JPRB, 2.48776E+00_JPRB, 2.52504E+00_JPRB, 2.52504E+00_JPRB, 2.57600E+00_JPRB &
+ & , 2.51660E+00_JPRB, 2.51619E+00_JPRB, 2.50746E+00_JPRB, 2.52061E+00_JPRB, 2.53815E+00_JPRB, 2.54179E+00_JPRB &
+ & , 2.53817E+00_JPRB, 2.52909E+00_JPRB /)  
+
+ZFUBB014 = (/ &
+ & 1.96793E-01_JPRB, 4.64416E-01_JPRB, 5.83469E-04_JPRB, 2.53234E-03_JPRB, 2.53234E-03_JPRB,-2.85518E-05_JPRB &
+ & ,-1.48012E-07_JPRB,-1.57963E-07_JPRB,-7.78001E-08_JPRB, 5.08447E-07_JPRB,-1.98529E-07_JPRB,-1.00570E-07_JPRB &
+ & ,-2.69916E-07_JPRB, 2.60155E-01_JPRB /)   
+
+ZFUBB114 = (/ &
+ & 5.75235E-03_JPRB, 2.04716E-05_JPRB, 1.18127E-03_JPRB, 1.75078E-03_JPRB, 1.75078E-03_JPRB, 1.71993E-03_JPRB &
+ & , 9.02355E-05_JPRB, 1.72475E-06_JPRB, 2.53360E-07_JPRB, 2.73206E-08_JPRB, 9.39480E-08_JPRB, 1.60441E-07_JPRB &
+ & , 2.12909E-07_JPRB, 5.45547E-03_JPRB /)  
+
+ZFUBB214 = (/ &
+ & -5.29220E-05_JPRB,-4.60375E-07_JPRB,-3.40011E-06_JPRB,-8.00994E-06_JPRB,-8.00994E-06_JPRB,-7.43697E-06_JPRB &
+ & ,-1.98190E-08_JPRB, 9.02156E-11_JPRB,-1.15489E-10_JPRB, 4.96553E-11_JPRB,-2.54540E-10_JPRB,-2.05663E-10_JPRB &
+ & ,-2.65397E-10_JPRB,-5.58760E-05_JPRB /)  
+
+ZFUBB314 = (/ &
+ & 1.76618E-07_JPRB, 2.03198E-09_JPRB, 8.78549E-09_JPRB, 2.31309E-08_JPRB, 2.31309E-08_JPRB, 2.09647E-08_JPRB &
+ & , 4.01914E-11_JPRB,-3.79423E-13_JPRB, 4.65084E-13_JPRB,-1.86001E-13_JPRB, 1.10876E-12_JPRB, 8.88595E-13_JPRB &
+ & , 1.12983E-12_JPRB, 1.97086E-07_JPRB /)  
+
+ZFUCC014 = (/ &
+ & 0.759183_JPRB   , 0.919599_JPRB   , 0.775916_JPRB   , 0.758748_JPRB   , 0.758748_JPRB   , 0.752528_JPRB    &
+ & , 0.751277_JPRB   , 0.752318_JPRB   , 0.749693_JPRB   , 0.749856_JPRB   , 0.743546_JPRB   , 0.737809_JPRB    &
+ & , 0.733260_JPRB   , 0.799084_JPRB   /)  
+   
+ZFUCC114 = (/ &
+ & 4.93765E-03_JPRB, 5.03025E-04_JPRB, 1.74517E-03_JPRB, 2.02709E-03_JPRB, 2.02709E-03_JPRB, 1.95748E-03_JPRB &
+ & , 1.29824E-03_JPRB, 1.04224E-03_JPRB, 1.05446E-03_JPRB, 8.89161E-04_JPRB, 9.08674E-04_JPRB, 8.97515E-04_JPRB &
+ & , 9.18317E-04_JPRB, 4.81706E-03_JPRB /)  
+
+ZFUCC214 = (/ &
+ & -4.84059E-05_JPRB,-5.74771E-06_JPRB,-9.21314E-06_JPRB,-1.17029E-05_JPRB,-1.17029E-05_JPRB,-1.02495E-05_JPRB &
+ & ,-4.99075E-06_JPRB,-2.26618E-06_JPRB,-2.32576E-06_JPRB,-3.49578E-07_JPRB,-4.65326E-07_JPRB,-2.17099E-07_JPRB &
+ & ,-4.22974E-07_JPRB,-5.13220E-05_JPRB /)  
+
+ZFUCC314 = (/ &
+ & 1.65801E-07_JPRB, 2.01731E-08_JPRB, 2.15003E-08_JPRB, 2.95195E-08_JPRB, 2.95195E-08_JPRB, 2.35479E-08_JPRB &
+ & , 6.33757E-09_JPRB,-3.68283E-09_JPRB,-3.58307E-09_JPRB, 1.09913E-08_JPRB,-1.05786E-08_JPRB,-1.16090E-08_JPRB &
+ & ,-1.07976E-08_JPRB, 1.84420E-07_JPRB /)  
+
+!     ------------------------------------------------------------------
+!     ------------------------------------------------------------------
+
+! SW : absorption coefficients
+
+DO JNU=1,14
+  RSASWA(JNU)=ZASWCA14(JNU)*1.E-02_JPRB
+  RSASWB(JNU)=ZASWCB14(JNU)
+  RSASWC(JNU)=ZASWCC14(JNU)
+  RSASWD(JNU)=ZASWCD14(JNU)
+  RSASWE(JNU)=ZASWCE14(JNU)
+  RSASWF(JNU)=ZASWCF14(JNU)*1.E-03_JPRB
+
+  RSECIA(JNU)=ZEBCUA14(JNU)
+  RSECIB(JNU)=ZEBCUB14(JNU)
+  RSECIC(JNU)=ZEBCUC14(JNU)
+  RSECID(JNU)=ZEBCUD14(JNU)
+  RSECIE(JNU)=ZEBCUE14(JNU)
+  RSECIF(JNU)=ZEBCUF14(JNU)
+
+  RSYFWA(JNU)=ZYFWCA14(JNU)
+  RSYFWB(JNU)=ZYFWCB14(JNU)
+  RSYFWC(JNU)=ZYFWCC14(JNU)
+  RSYFWD(JNU)=ZYFWCD14(JNU)
+  RSYFWE(JNU)=ZYFWCE14(JNU)
+  RSYFWF(JNU)=ZYFWCF14(JNU)
+
+  RSSSIE(JNU)=ZSUSHE14(JNU)*1.E-02_JPRB
+  RSSSIF(JNU)=ZSUSHF14(JNU)*1.E-02_JPRB
+  RSSSIH(JNU)=ZSUSHH14(JNU)
+  RSSSIK(JNU)=ZSUSHK14(JNU)*1.E-01_JPRB
+  RSSSIA(JNU)=ZSUSHA14(JNU)*1.E-03_JPRB
+  RSSSIG(JNU)=ZSUSHG14(JNU)*1.E-01_JPRB
+    
+  RSFLA0(JNU)=ZFLAA014(JNU)
+  RSFLA1(JNU)=ZFLAA114(JNU)
+  RSFLB0(JNU)=ZFLBB014(JNU)
+  RSFLB1(JNU)=ZFLBB114(JNU)
+  RSFLB2(JNU)=ZFLBB214(JNU)
+  RSFLB3(JNU)=ZFLBB314(JNU)
+  RSFLC0(JNU)=ZFLCC014(JNU)
+  RSFLC1(JNU)=ZFLCC114(JNU)
+  RSFLC2(JNU)=ZFLCC214(JNU)
+  RSFLC3(JNU)=ZFLCC314(JNU)
+  RSFLD0(JNU)=ZFLDD014(JNU)
+  RSFLD1(JNU)=ZFLDD114(JNU)
+  RSFLD2(JNU)=ZFLDD214(JNU)
+  RSFLD3(JNU)=ZFLDD314(JNU)
+    
+  RSFUA0(JNU)=ZFUAA014(JNU)
+  RSFUA1(JNU)=ZFUAA114(JNU)
+  RSFUB0(JNU)=ZFUBB014(JNU)
+  RSFUB1(JNU)=ZFUBB114(JNU)
+  RSFUB2(JNU)=ZFUBB214(JNU)
+  RSFUB3(JNU)=ZFUBB314(JNU)
+  RSFUC0(JNU)=ZFUCC014(JNU)
+  RSFUC1(JNU)=ZFUCC114(JNU)
+  RSFUC2(JNU)=ZFUCC214(JNU)
+  RSFUC3(JNU)=ZFUCC314(JNU)
+    
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSRTCOP',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSRTCOP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtcop.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtcop.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtcop.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSRTCOP
+END SUBROUTINE SUSRTCOP
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtm.F90	(revision 3330)
@@ -0,0 +1,203 @@
+SUBROUTINE SUSRTM
+
+!     Adapted from E.J. Mlawer, J. Delamere, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     Modified to add arrays relevant to mapping for g-point reduction,
+!     M.J. Iacono, Atmospheric & Environmental Research, Inc. 
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTWN , ONLY : NG      , NSPA, NSPB   , NMPSRTM, &
+ & WAVENUM1, WAVENUM2, DELWAVE, PREF, PREFLOG, TREF   , &
+ & NGM     , WT      , NGC    , NGS , NGN    , NGBSW
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUSRTM',0,ZHOOK_HANDLE)
+NG(:)     =(/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)
+NSPA(:)   =(/  9, 9, 9, 9, 1, 9, 9, 1, 9, 1, 0, 1, 9, 1 /)
+NSPB(:)   =(/  1, 5, 1, 1, 1, 5, 1, 0, 1, 0, 0, 1, 5, 1 /)
+NMPSRTM(:)=(/  6, 6, 5, 5, 5, 5, 5, 4, 4, 3, 2, 2, 1, 6 /)
+
+WAVENUM1( :) = (/&
+ & 2600._JPRB, 3250._JPRB, 4000._JPRB, 4650._JPRB, 5150._JPRB, 6150._JPRB, 7700._JPRB &
+ & , 8050._JPRB,12850._JPRB,16000._JPRB,22650._JPRB,29000._JPRB,38000._JPRB,  820._JPRB /)  
+WAVENUM2( :) = (/&
+ & 3250._JPRB, 4000._JPRB, 4650._JPRB, 5150._JPRB, 6150._JPRB, 7700._JPRB, 8050._JPRB &
+ & ,12850._JPRB,16000._JPRB,22650._JPRB,29000._JPRB,38000._JPRB,50000._JPRB, 2600._JPRB /)  
+DELWAVE( :) = (/&
+ & 650._JPRB,  750._JPRB,  650._JPRB,  500._JPRB, 1000._JPRB, 1550._JPRB,  350._JPRB &
+ & , 4800._JPRB, 3150._JPRB, 6650._JPRB, 6350._JPRB, 9000._JPRB,12000._JPRB, 1780._JPRB /)  
+
+!=====================================================================
+! Set arrays needed for the g-point reduction from 224 to 112 for the 
+! 14 SW bands:
+! This mapping from 224 to 112 points has been carefully selected to
+! minimize the effect on the resulting fluxes and cooling rates, and
+! caution should be used if the mapping is modified.
+!
+! JPGPT   The total number of new g-points (NGPT)
+! NGC     The number of new g-points in each band
+! NGS     The cumulative sum of new g-points for each band
+! NGM     The index of each new g-point relative to the original
+!         16 g-points for each band.
+! NGN     The number of original g-points that are combined to make
+!         each new g-point in each band.
+! NGB     The band index for each new g-point.
+! WT      RRTM weights for 16 g-points.
+! Use this NGC, NGS, NGM, and NGN for reduced (112) g-point set
+! (A related code change is required in modules parsrtm.F90 and yoesrtwn.F90)
+NGC(:) = (/ 6,12, 8, 8,10,10, 2,10, 8, 6, 6, 8, 6,12 /)
+NGS(:) = (/ 6,18,26,34,44,54,56,66,74,80,86,94,100,112 /)
+NGM(:) = (/ 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! Band 16
+          & 1,2,3,4,5,6,6,7,8,8,9,10,10,11,12,12, &      ! Band 17
+          & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! Band 18
+          & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! Band 19
+          & 1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! Band 20
+          & 1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! Band 21
+          & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! Band 22
+          & 1,1,2,2,3,4,5,6,7,8,9,9,10,10,10,10, &       ! Band 23
+          & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! Band 24
+          & 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! Band 25
+          & 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! Band 26
+          & 1,2,3,4,5,6,7,7,7,7,8,8,8,8,8,8, &           ! Band 27
+          & 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! Band 28
+          & 1,2,3,4,5,5,6,6,7,7,8,8,9,10,11,12 /)        ! Band 29
+NGN(:) = (/ 2,2,2,2,4,4, &                               ! Band 16
+          & 1,1,1,1,1,2,1,2,1,2,1,2, &                   ! Band 17
+          & 1,1,1,1,2,2,4,4, &                           ! Band 18
+          & 1,1,1,1,2,2,4,4, &                           ! Band 19
+          & 1,1,1,1,1,1,1,1,2,6, &                       ! Band 20
+          & 1,1,1,1,1,1,1,1,2,6, &                       ! Band 21
+          & 8,8, &                                       ! Band 22
+          & 2,2,1,1,1,1,1,1,2,4, &                       ! Band 23
+          & 2,2,2,2,2,2,2,2, &                           ! Band 24
+          & 1,1,2,2,4,6, &                               ! Band 25
+          & 1,1,2,2,4,6, &                               ! Band 26
+          & 1,1,1,1,1,1,4,6, &                           ! Band 27
+          & 1,1,2,2,4,6, &                               ! Band 28
+          & 1,1,1,1,2,2,2,2,1,1,1,1 /)                   ! Band 29
+NGBSW(:)=(/ 16,16,16,16,16,16, &                         ! Band 16
+          & 17,17,17,17,17,17,17,17,17,17,17,17, &       ! Band 17
+          & 18,18,18,18,18,18,18,18, &                   ! Band 18
+          & 19,19,19,19,19,19,19,19, &                   ! Band 19
+          & 20,20,20,20,20,20,20,20,20,20, &             ! Band 20
+          & 21,21,21,21,21,21,21,21,21,21, &             ! Band 21
+          & 22,22, &                                     ! Band 22
+          & 23,23,23,23,23,23,23,23,23,23, &             ! Band 23
+          & 24,24,24,24,24,24,24,24, &                   ! Band 24
+          & 25,25,25,25,25,25, &                         ! Band 25
+          & 26,26,26,26,26,26, &                         ! Band 26
+          & 27,27,27,27,27,27,27,27, &                   ! Band 27
+          & 28,28,28,28,28,28, &                         ! Band 28
+          & 29,29,29,29,29,29,29,29,29,29,29,29 /)       ! Band 29
+
+! Use this NGC, NGS, NGM, and NGN for full (224) g-point set
+! (A related code change is required in modules parsrtm.F90 and yoesrtwn.F90)
+!NGC(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)
+!NGS(:) = (/ 16,32,48,64,80,96,112,128,144,160,176,192,208,224 /)
+!NGM(:) = (/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 16
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 17
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 18
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 19
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 20
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 21
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 22
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 23
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 24
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 25
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 26
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 27
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 28
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /)    ! Band 29
+!NGN(:) = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 16
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 17
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 18
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 19
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 20
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 21
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 22
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 23
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 24
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 25
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 26
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 27
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 28
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 /)           ! Band 29
+!NGBSW(:)=(/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, &   ! Band 16
+!          & 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, &   ! Band 17
+!          & 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, &   ! Band 18
+!          & 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, &   ! Band 19
+!          & 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, &   ! Band 20
+!          & 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, &   ! Band 21
+!          & 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, &   ! Band 22
+!          & 23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, &   ! Band 23
+!          & 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, &   ! Band 24
+!          & 25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, &   ! Band 25
+!          & 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, &   ! Band 26
+!          & 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, &   ! Band 27
+!          & 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, &   ! Band 28
+!          & 29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,28 /)   ! Band 29
+
+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.0424925000_JPRB, &
+          & 0.0046269894_JPRB, 0.0038279891_JPRB, 0.0030260086_JPRB, &
+          & 0.0022199750_JPRB, 0.0014140010_JPRB, 0.0005330000_JPRB, &
+          & 0.0000750000_JPRB /)
+
+!=============================================================================
+
+! 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.
+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 /)  
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SUSRTM',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSRTM
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtm.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtm.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susrtm.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSRTM
+END SUBROUTINE SUSRTM
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sustaonl_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sustaonl_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sustaonl_mod.F90	(revision 3330)
@@ -0,0 +1,411 @@
+MODULE SUSTAONL_MOD
+CONTAINS
+SUBROUTINE SUSTAONL(KMEDIAP,KRESTM)
+
+!**** *SUSTAONL * - Routine to initialize parallel environment
+
+!     Purpose.
+!     --------
+!           Initialize D%NSTA and D%NONL.
+!           Calculation of distribution of grid points to processors :
+!           Splitting of grid in B direction
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUSTAONL *
+
+!        Explicit arguments : KMEDIAP - mean number of grid points per PE
+!        -------------------- KRESTM  - number of PEs with one extra point
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option.
+!          - removal of LRPOLE in YOMCT0.
+!          - removal of code under LRPOLE.
+!        Modified 98-12-04 C. Fischer: merge with SUESTAONL (Aladin)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!USE MPL_MODULE      ! MPL 4.12.08
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_GEOMETRY
+USE TPM_DISTR
+
+USE SET2PE_MOD
+USE ABORT_TRANS_MOD
+USE EQ_REGIONS_MOD
+
+IMPLICIT NONE
+
+
+!     DUMMY 
+INTEGER(KIND=JPIM),INTENT(IN) :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(IN) :: KRESTM
+
+!     LOCAL
+
+INTEGER(KIND=JPIM) :: IXPTLAT(R%NDGL), ILSTPTLAT(R%NDGL)
+INTEGER(KIND=JPIM) :: ICHK(R%NDLON,R%NDGL), ICOMBUF(R%NDGL*N_REGIONS_EW*2)
+INTEGER(KIND=JPIM) :: I1, I2, IBUFLEN, IDGLG, IDWIDE,&
+             &IGL, IGL1, IGL2, IGLOFF, IGPTA, IGPTOT, &
+             &IGPTPRSETS, IGPTS, IGPTSP, ILEN, ILRECV, &
+             &ILSEND, INPLAT, INXLAT, IPART,  IPOS, &
+             &IPROCB, IPTSRE, IRECV, IPE, &
+             &IREST, ISEND, ITAG, JA, JB, JGL, JL, JNPTSRE
+
+LOGICAL :: LLABORT, LLALLAT
+LOGICAL :: LLP1,LLP2
+
+REAL(KIND=JPRB) ::  ZLAT, ZLAT1
+REAL(KIND=JPRB) :: ZDIVID(R%NDGL),ZXPTLAT(R%NDGL)
+
+!      -----------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+
+IDWIDE  = R%NDGL/2
+IBUFLEN = R%NDGL*N_REGIONS_EW*2
+IDGLG   = R%NDGL
+
+I1 = MAX(   1,D%NFRSTLAT(MY_REGION_NS)-D%NFRSTLOFF)
+I2 = MIN(IDGLG,D%NLSTLAT (MY_REGION_NS)-D%NFRSTLOFF)
+
+ILEN = D%NLSTLAT(MY_REGION_NS) - D%NFRSTLAT(MY_REGION_NS)+1
+
+IGPTPRSETS = SUM(G%NLOEN(1:D%NFRSTLAT(MY_REGION_NS)-1))
+
+IGPTOT = SUM(G%NLOEN(1:R%NDGL))
+
+IF (D%LSPLIT) THEN
+  IF( LEQ_REGIONS )THEN
+    IPE=0
+    IGPTA=0
+    DO JA=1,MY_REGION_NS-1
+      DO JB=1,N_REGIONS(JA)
+        IPE=IPE+1
+        IF( IPE <= KRESTM .OR. KRESTM  ==  0)THEN
+          IGPTA  = IGPTA + KMEDIAP
+        ELSE
+          IGPTA  = IGPTA + (KMEDIAP-1)
+        ENDIF
+      ENDDO
+    ENDDO
+    IGPTS=0
+    DO JB=1,N_REGIONS(MY_REGION_NS)
+      IPE=IPE+1
+      IF( IPE <= KRESTM .OR. KRESTM  ==  0 )THEN
+        IGPTS = IGPTS + KMEDIAP
+      ELSE
+        IGPTS = IGPTS + (KMEDIAP-1)
+      ENDIF
+    ENDDO
+  ELSE
+    IF (MY_REGION_NS <= KRESTM.OR.KRESTM == 0) THEN
+      IGPTS = KMEDIAP
+      IGPTA = KMEDIAP*(MY_REGION_NS-1)
+    ELSE
+      IGPTS = KMEDIAP-1
+      IGPTA = KMEDIAP*KRESTM+IGPTS*(MY_REGION_NS-1-KRESTM)
+    ENDIF
+  ENDIF
+ELSE
+  IGPTA = IGPTPRSETS
+  IGPTS = SUM(G%NLOEN(D%NFRSTLAT(MY_REGION_NS):D%NLSTLAT(MY_REGION_NS)))
+ENDIF
+
+IGPTSP = IGPTS/N_REGIONS(MY_REGION_NS)
+IREST = IGPTS-N_REGIONS(MY_REGION_NS)*IGPTSP
+IXPTLAT(1) = IGPTA-IGPTPRSETS+1
+ZXPTLAT(1) = REAL(IXPTLAT(1))
+ILSTPTLAT(1) = G%NLOEN(D%NFRSTLAT(MY_REGION_NS))
+INPLAT = G%NLOEN(D%NFRSTLAT(MY_REGION_NS))-IXPTLAT(1)+1
+DO JGL=2,ILEN
+  IXPTLAT(JGL) = 1
+  ZXPTLAT(JGL) = 1.0_JPRB
+  ILSTPTLAT(JGL) =  G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1)
+  INPLAT = INPLAT+G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1)
+ENDDO
+ILSTPTLAT(ILEN) = G%NLOEN(D%NLSTLAT(MY_REGION_NS))-INPLAT+IGPTS
+
+DO JB=1,N_REGIONS_EW
+  DO JGL=1,R%NDGL+N_REGIONS_NS-1
+    D%NSTA(JGL,JB) = 0
+    D%NONL(JGL,JB) = 0
+  ENDDO
+ENDDO
+
+
+!  grid point decomposition
+!  ---------------------------------------
+LLALLAT = (N_REGIONS_NS == 1)
+DO JGL=1,ILEN
+  ZDIVID(JGL)=REAL(G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1),JPRB)
+ENDDO
+DO JB=1,N_REGIONS(MY_REGION_NS)
+
+  IF (JB <= IREST) THEN
+    IPTSRE = IGPTSP+1
+  ELSE
+    IPTSRE = IGPTSP
+  ENDIF
+
+  IPART=0
+  DO JNPTSRE=1,IPTSRE
+    ZLAT  = 1._JPRB
+    ZLAT1 = 1._JPRB
+    IF (MY_REGION_NS <= D%NAPSETS .AND.(IPART /= 2.OR.LLALLAT)) THEN
+!cdir novector
+      DO JGL=1,ILEN
+        IF (IXPTLAT(JGL)  <=  ILSTPTLAT(JGL)) THEN
+          ZLAT1  = (ZXPTLAT(JGL)-1.0_JPRB)/ZDIVID(JGL)
+          ZLAT   = MIN(ZLAT1,ZLAT)
+          INXLAT = JGL
+          IPART  = 1
+          EXIT
+        ENDIF
+      ENDDO
+    ELSEIF (MY_REGION_NS > N_REGIONS_NS-D%NAPSETS.AND.(IPART /= 1.OR.LLALLAT)) THEN
+!cdir novector
+      DO JGL=1,ILEN
+        IF (IXPTLAT(JGL)  <=  ILSTPTLAT(JGL)) THEN
+          ZLAT1  = (ZXPTLAT(JGL)-1.0_JPRB)/ZDIVID(JGL)
+          ZLAT   = MIN(ZLAT1,ZLAT)
+          INXLAT = JGL
+          IPART  = 2
+          EXIT
+        ENDIF
+      ENDDO
+    ELSE
+!cdir novector
+      DO JGL=1,ILEN
+        IF (IXPTLAT(JGL)  <=  ILSTPTLAT(JGL)) THEN
+          ZLAT1 = (ZXPTLAT(JGL)-1.0_JPRB)/ZDIVID(JGL)
+          IF (ZLAT1 < ZLAT) THEN
+            ZLAT   = ZLAT1
+            INXLAT = JGL
+          ENDIF
+        ENDIF
+      ENDDO
+    ENDIF
+
+    IF (INXLAT >= I1 .AND. INXLAT <= I2) THEN
+      IF (D%NSTA(D%NPTRFLOFF+INXLAT,JB) == 0) THEN
+        D%NSTA(D%NPTRFLOFF+INXLAT,JB) = IXPTLAT(INXLAT)
+      ENDIF
+      D%NONL(D%NPTRFLOFF+INXLAT,JB) = D%NONL(D%NPTRFLOFF+INXLAT,JB)+1
+    ENDIF
+    IXPTLAT(INXLAT) = IXPTLAT(INXLAT)+1
+    ZXPTLAT(INXLAT) = REAL(IXPTLAT(INXLAT),JPRB)
+  ENDDO
+ENDDO
+
+
+! Exchange local partitioning info to produce global view
+!
+
+IF( NPROC > 1 )THEN
+
+  IF( LEQ_REGIONS )THEN
+
+    ITAG = MTAGPART
+    IPOS = 0
+    DO JGL=1,D%NLSTLAT(MY_REGION_NS)-D%NFRSTLAT(MY_REGION_NS)+1
+      IPOS = IPOS+1
+      ICOMBUF(IPOS) = D%NSTA(D%NPTRFLOFF+JGL,MY_REGION_EW)
+      IPOS = IPOS+1
+      ICOMBUF(IPOS) = D%NONL(D%NPTRFLOFF+JGL,MY_REGION_EW)
+    ENDDO
+    IF( IPOS > IBUFLEN )THEN
+      CALL ABORT_TRANS(' SUSTAONL: SEND BUFFER TOO SMALL FOR GLOBAL INFO')
+    ENDIF
+    ILSEND = IPOS
+
+    DO JA=1,N_REGIONS_NS
+      DO JB=1,N_REGIONS(JA)
+        CALL SET2PE(ISEND,JA,JB,0,0)
+        IF(ISEND /= MYPROC) THEN
+!         CALL MPL_SEND(ICOMBUF(1:ILSEND),KDEST=NPRCIDS(ISEND),KTAG=ITAG, &
+!          &   CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_SEND')
+        ENDIF
+      ENDDO
+    ENDDO
+
+    DO JA=1,N_REGIONS_NS
+      IGL1 = D%NFRSTLAT(JA)
+      IGL2 = D%NLSTLAT(JA)
+      DO JB=1,N_REGIONS(JA)
+        CALL SET2PE(IRECV,JA,JB,0,0)
+        IF(IRECV /= MYPROC) THEN
+          ILEN = (D%NLSTLAT(JA)-D%NFRSTLAT(JA)+1)*2
+!         CALL MPL_RECV(ICOMBUF(1:ILEN),KSOURCE=NPRCIDS(IRECV),KTAG=ITAG, &
+!          & KOUNT=ILRECV,CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_RCV')
+          IPOS = 0
+          DO JGL=IGL1,IGL2
+            IGL = D%NPTRFRSTLAT(JA)+JGL-IGL1
+            IPOS = IPOS+1
+            D%NSTA(IGL,JB) = ICOMBUF(IPOS)
+            IPOS = IPOS+1
+            D%NONL(IGL,JB) = ICOMBUF(IPOS)
+          ENDDO
+        ENDIF
+      ENDDO
+    ENDDO
+
+  ELSE
+
+    ITAG = MTAGPART
+    IPOS = 0
+    DO JB=1,N_REGIONS(MY_REGION_NS)
+      DO JGL=1,D%NLSTLAT(MY_REGION_NS)-D%NFRSTLAT(MY_REGION_NS)+1
+        IPOS = IPOS+1
+        ICOMBUF(IPOS) = D%NSTA(D%NPTRFLOFF+JGL,JB)
+        IPOS = IPOS+1
+        ICOMBUF(IPOS) = D%NONL(D%NPTRFLOFF+JGL,JB)
+      ENDDO
+    ENDDO
+    IF( IPOS > IBUFLEN )THEN
+      CALL ABORT_TRANS(' SUSTAONL: SEND BUFFER TOO SMALL FOR GLOBAL INFO')
+    ENDIF
+    ILSEND = IPOS
+    DO JA=1,N_REGIONS_NS
+      CALL SET2PE(ISEND,JA,MY_REGION_EW,0,0)
+      IF(ISEND /= MYPROC) THEN
+!       CALL MPL_SEND(ICOMBUF(1:ILSEND),KDEST=NPRCIDS(ISEND),KTAG=ITAG, &
+!        &   CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_SEND')
+      ENDIF
+    ENDDO
+
+    DO JA=1,N_REGIONS_NS
+      CALL SET2PE(IRECV,JA,MY_REGION_EW,0,0)
+      IF(IRECV /= MYPROC) THEN
+        ILEN = (D%NLSTLAT(JA)-D%NFRSTLAT(JA)+1)*N_REGIONS(JA)*2
+!       CALL MPL_RECV(ICOMBUF(1:ILEN),KSOURCE=NPRCIDS(IRECV),KTAG=ITAG, &
+!        & KOUNT=ILRECV,CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_RCV')
+        IGL1 = D%NFRSTLAT(JA)
+        IGL2 = D%NLSTLAT(JA)
+        IPOS = 0
+        DO JB=1,N_REGIONS(JA)
+          DO JGL=IGL1,IGL2
+            IGL = D%NPTRFRSTLAT(JA)+JGL-IGL1
+            IPOS = IPOS+1
+            D%NSTA(IGL,JB) = ICOMBUF(IPOS)
+            IPOS = IPOS+1
+            D%NONL(IGL,JB) = ICOMBUF(IPOS)
+          ENDDO
+        ENDDO
+      ENDIF
+    ENDDO
+
+  ENDIF
+
+ENDIF
+
+! Confirm consistency of global partitioning, specifically testing for
+! multiple assignments of same grid point and unassigned grid points
+
+LLABORT = .FALSE.
+DO JGL=1,R%NDGL
+  DO JL=1,G%NLOEN(JGL)
+    ICHK(JL,JGL) = 1
+  ENDDO
+ENDDO
+DO JA=1,N_REGIONS_NS
+  IGLOFF = D%NPTRFRSTLAT(JA)
+  DO JB=1,N_REGIONS(JA)
+    IGL1 = D%NFRSTLAT(JA)
+    IGL2 = D%NLSTLAT(JA)
+    DO JGL=IGL1,IGL2
+      IGL = IGLOFF+JGL-IGL1
+      DO JL=D%NSTA(IGL,JB),D%NSTA(IGL,JB)+D%NONL(IGL,JB)-1
+        IF( ICHK(JL,JGL) /= 1 )THEN
+          WRITE(NOUT,'(" SUSTAONL : seta=",i4," setb=",i4,&
+           &" row=",I4," sta=",I4," INVALID GRID POINT")')&
+           &JA,JB,JGL,JL
+          WRITE(0,'(" SUSTAONL : seta=",i4," setb=",i4,&
+           &" ROW=",I4," sta=",I4," INVALID GRID POINT")')&
+           &JA,JB,JGL,JL
+          LLABORT = .TRUE.
+        ENDIF
+        ICHK(JL,JGL) = 2
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JGL=1,R%NDGL
+  DO JL=1,G%NLOEN(JGL)
+    IF( ICHK(JL,JGL) /= 2 )THEN
+      WRITE(NOUT,'(" SUSTAONL : row=",i4," sta=",i4,&
+       &" GRID POINT NOT ASSIGNED")') JGL,JL
+      LLABORT = .TRUE.
+    ENDIF
+  ENDDO
+ENDDO
+IF( LLABORT )THEN
+  WRITE(NOUT,'(" SUSTAONL : inconsistent partitioning")')
+  CALL ABORT_TRANS(' SUSTAONL: inconsistent partitioning')
+ENDIF
+
+
+IF (LLP1) THEN
+  WRITE(UNIT=NOUT,FMT='('' OUTPUT FROM ROUTINE SUSTAONL '')')
+  WRITE(UNIT=NOUT,FMT='('' '')')
+  WRITE(UNIT=NOUT,FMT='('' PARTITIONING INFORMATION '')')
+  WRITE(UNIT=NOUT,FMT='('' '')')
+  IPROCB = MIN(32,N_REGIONS_EW)
+  WRITE(UNIT=NOUT,FMT='(17X," SETB=",32(1X,I3))') (JB,JB=1,IPROCB)
+  DO JA=1,N_REGIONS_NS
+    IPROCB = MIN(32,N_REGIONS(JA))
+    WRITE(UNIT=NOUT,FMT='('' '')')
+    IGLOFF = D%NPTRFRSTLAT(JA)
+    IGL1 = D%NFRSTLAT(JA)
+    IGL2 = D%NLSTLAT(JA)
+    DO JGL=IGL1,IGL2
+      IGL=IGLOFF+JGL-IGL1
+      WRITE(UNIT=NOUT,FMT='(" SETA=",I3," LAT=",I3," NSTA=",&
+       &32(1X,I3))') JA,JGL,(D%NSTA(IGL,JB),JB=1,IPROCB)
+      WRITE(UNIT=NOUT,FMT='(" SETA=",I3," LAT=",I3," D%NONL=",&
+       &32(1X,I3))') JA,JGL,(D%NONL(IGL,JB),JB=1,IPROCB)
+      WRITE(UNIT=NOUT,FMT='('' '')')
+    ENDDO
+    WRITE(UNIT=NOUT,FMT='('' '')')
+  ENDDO
+  WRITE(UNIT=NOUT,FMT='('' '')')
+  WRITE(UNIT=NOUT,FMT='('' '')')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUSTAONL
+END MODULE SUSTAONL_MOD
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susurf.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susurf.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susurf.h	(revision 3330)
@@ -0,0 +1,98 @@
+SUBROUTINE SUSURF(KSW,KCSS,KSIL,KTILES,KTSW,&
+ & LD_LLCCNL,LD_LLCCNO,LD_LEOCWA,LD_LEOCCO,LD_LEOCSA,LD_LLE4ALB,&
+ & LD_LSCMEC,LD_LROUGH,PEXTZ0M,PEXTZ0H,&
+ & PTHRFRTI,PTSTAND,PXP,PRCCNSEA,PRCCNLND,&
+ & PRSUN)
+
+!**   *SUSURF* IS THE SET-UP ROUTINE FOR surface modules containing constants
+
+!     PURPOSE
+!     -------
+!          THIS ROUTINE INITIALIZES THE CONSTANTS IN COMMON BLOCK
+!     *YOESOIL*
+
+!     INTERFACE.
+!     ----------
+!     CALL *SUSURF* FROM *SUPHEC*
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+
+!     Original    A.C.M. BELJAARS         E.C.M.W.F.      89/11/02
+!     MODIFICATIONS
+!     -------------
+!     J.-J. MORCRETTE         E.C.M.W.F.      91/07/14
+!     P. VITERBO              E.C.M.W.F.       8/10/93
+!     P. Viterbo     99-03-26    Tiling of the land surface
+!     C. Fischer 00-12-20 Meteo-France recode initialization of rdat to avoid
+!                         memory overflow on SUN workstation
+!     J.F. Estrade *ECMWF* 03-10-01 move in surf vob
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
+!     P. Viterbo   ECMWF   May 2005    Externalise surf
+!        JJMorcrette 20060511 MODIS albedo
+
+!  INTERFACE: 
+
+!    Integers (In):
+
+!      KSW       : NUMBER OF SHORTWAVE SPECTRAL INTERVALS
+!      KCSS      : Number of soil levels
+!      KSIL      : NUMBER OF (infrared) SPECTRAL INTERVALS
+!      KTILES    : Number of surface tiles
+!      KTSW      : Maximum possible number of sw spectral intervals
+
+!    Logicals (In):
+
+!      LD_LLCCNL : .T. IF CCN CONCENTRATION OVER LAND IS DIAGNOSED
+!      LD_LLCCNO : .T. IF CCN CONCENTRATION OVER OCEAN IS DIAGNOSED
+!      LD_LLE4ALB: .T. IF MODIS ALBEDO IS USED
+
+!    Reals (In):
+
+!      PTHRFRTI  : ! MINIMUM THRESHOLD FOR TILE FRACTION
+!      PTSTAND   : ! REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!      PXP       : ! POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!      PRCCNSEA  : ! NUMBER CONCENTRATION (CM-3) OF CCNs OVER SEA
+!      PRCCNLND  : ! NUMBER CONCENTRATION (CM-3) OF CCNs OVER LAND
+!      PRSUN     : ! SOLAR FRACTION IN SPECTRAL INTERVALS
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+! Declaration of arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTHRFRTI
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCSS  
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSIL 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTILES 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+LOGICAL           ,INTENT(IN)    :: LD_LLCCNL 
+LOGICAL           ,INTENT(IN)    :: LD_LLCCNO  
+LOGICAL           ,INTENT(IN)    :: LD_LEOCWA
+LOGICAL           ,INTENT(IN)    :: LD_LEOCCO
+LOGICAL           ,INTENT(IN)    :: LD_LEOCSA
+LOGICAL           ,INTENT(IN)    :: LD_LLE4ALB
+LOGICAL           ,INTENT(IN)    :: LD_LSCMEC
+LOGICAL           ,INTENT(IN)    :: LD_LROUGH
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEXTZ0M
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEXTZ0H
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTSTAND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PXP(6,6) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRCCNSEA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRCCNLND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRSUN(:) 
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUSURF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susw15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susw15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susw15.F90	(revision 3330)
@@ -0,0 +1,151 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUSW15
+
+!**** *SUSW15*   - INITIALIZE COMMON YOMSW15
+!****              FROZEN VERSION (CYCLE 15) OF SUSW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMSW15, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE SHORTWAVE RADIATION SUBROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSW15
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMSW15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG
+USE YOMSW15  , ONLY : APAD15   ,BPAD15   ,RRAY15   ,RSUN15   ,&
+ & RPDH115  ,RPDU115  ,RPNH15   ,RPNU15   ,RSWCE15  ,&
+ & RSWCP15  ,RTDH2O15 ,RTDUMG15 ,RTH2O15  ,RTUMG15  ,D15  
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES.
+!              -----------
+
+IMPLICIT NONE
+REAL(KIND=JPRB)   :: ZPDH2O=0.8_JPRB
+REAL(KIND=JPRB)   :: ZPDUMG=0.75_JPRB
+REAL(KIND=JPRB)   :: ZPRH2O=30000._JPRB
+REAL(KIND=JPRB)   :: ZPRUMG=30000._JPRB
+
+!$OMP THREADPRIVATE(zpdh2o,zpdumg,zprh2o,zprumg)
+
+REAL(KIND=JPRB) :: ZH2O, ZUMG
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SUSW15',0,ZHOOK_HANDLE)
+RPDH115=ZPDH2O+1.0_JPRB
+RPDU115=ZPDUMG+1.0_JPRB
+ZH2O=1.0_JPRB/( 10._JPRB* RG * RPDH115 )
+ZUMG=1.0_JPRB/( 10._JPRB* RG * RPDU115 )
+RPNU15 = ZUMG/(ZPRUMG**ZPDUMG)
+RPNH15 = ZH2O/(ZPRH2O**ZPDH2O)
+
+RSWCP15=0.002_JPRB*RSWCE15
+
+RTDH2O15 = 0.40_JPRB
+RTDUMG15 = 0.375_JPRB
+RTH2O15 = 240._JPRB
+RTUMG15 = 240._JPRB
+RSWCE15 = 0._JPRB
+RSWCP15 = 0._JPRB
+
+RSUN15(1) = 0.441676_JPRB
+D15(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
+
+APAD15(1,1:3,1:7) = RESHAPE((/&
+ & 0.912418292E+05_JPRB, 0.000000000E-00_JPRB, 0.925887084E-04_JPRB,&
+ & 0.723613782E+05_JPRB, 0.000000000E-00_JPRB, 0.129353723E-01_JPRB,&
+ & 0.596037057E+04_JPRB, 0.000000000E-00_JPRB, 0.800821928E+00_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.242715973E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.878331486E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.191559725E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.000000000E+00_JPRB /)&
+ & ,(/3,7/))  
+
+BPAD15(1,1:3,1:7) = RESHAPE((/&
+ & 0.912418292E+05_JPRB, 0.000000000E-00_JPRB, 0.925887084E-04_JPRB,&
+ & 0.724555318E+05_JPRB, 0.000000000E-00_JPRB, 0.131812683E-01_JPRB,&
+ & 0.602593328E+04_JPRB, 0.000000000E-00_JPRB, 0.812706117E+00_JPRB,&
+ & 0.100000000E+01_JPRB, 0.000000000E-00_JPRB, 0.249863591E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.931071925E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.252233437E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.100000000E+01_JPRB /)&
+ & ,(/3,7/))  
+
+RRAY15(1,1:6) = (/&
+ & .428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ & .522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)  
+
+RSUN15(2) = 0.558324_JPRB
+
+D15(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
+
+APAD15(2,1:3,1:7) = RESHAPE((/&
+ & 0.376655383E-08_JPRB, 0.739646016E-08_JPRB, 0.410177786E+03_JPRB,&
+ & 0.978576773E-04_JPRB, 0.131849595E-03_JPRB, 0.672595424E+02_JPRB,&
+ & 0.387714006E+00_JPRB, 0.437772681E+00_JPRB, 0.000000000E-00_JPRB,&
+ & 0.118461660E+03_JPRB, 0.151345118E+03_JPRB, 0.000000000E-00_JPRB,&
+ & 0.119079797E+04_JPRB, 0.233628890E+04_JPRB, 0.000000000E-00_JPRB,&
+ & 0.293353397E+03_JPRB, 0.797219934E+03_JPRB, 0.000000000E-00_JPRB,&
+ & 0.000000000E+00_JPRB, 0.000000000E+00_JPRB, 0.000000000E+00_JPRB /)&
+ & ,(/3,7/))  
+
+BPAD15(2,1:3,1:7) = RESHAPE((/&
+ & 0.376655383E-08_JPRB, 0.739646016E-08_JPRB, 0.410177786E+03_JPRB,&
+ & 0.979023421E-04_JPRB, 0.131861712E-03_JPRB, 0.731185438E+02_JPRB,&
+ & 0.388611139E+00_JPRB, 0.437949001E+00_JPRB, 0.100000000E+01_JPRB,&
+ & 0.120291383E+03_JPRB, 0.151692730E+03_JPRB, 0.000000000E+00_JPRB,&
+ & 0.130531005E+04_JPRB, 0.237071130E+04_JPRB, 0.000000000E+00_JPRB,&
+ & 0.415049409E+03_JPRB, 0.867914360E+03_JPRB, 0.000000000E+00_JPRB,&
+ & 0.100000000E+01_JPRB, 0.100000000E+01_JPRB, 0.000000000E+00_JPRB /)&
+ & ,(/3,7/))  
+
+RRAY15(2,1:6) = (/&
+ & .697200E-02_JPRB, .173297E-01_JPRB,-.850903E-01_JPRB,&
+ & .248261E+00_JPRB,-.302031E+00_JPRB, .129662E+00_JPRB/)  
+IF (LHOOK) CALL DR_HOOK('SUSW15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSW15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susw15.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susw15.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/susw15.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSW15
+END SUBROUTINE SUSW15
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suswn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suswn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suswn.F90	(revision 3330)
@@ -0,0 +1,1693 @@
+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
+!        01-04-17 Ph.Dubuisson, B.Bonnel, JJ.Morcrette 6 sp.int.resolu'n
+!        01-06-28 B.Bonnel, JJ.Morcrette, Ph.Dubuisson  Rayleigh (2/4/6)
+!        01-11-05 Ph.Dubuisson, JJMorcrette (new 2 intervals for TL/AD)
+!        03-04-24 JJ Morcrette  SRTM with 14 spectral intervals
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG
+USE YOERAD   , ONLY : NTSW     ,LONEWSW  ,LRAYL    
+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   ,&
+ & RADJUST  ,NEXPO3  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+INTEGER(KIND=JPIM) :: IMPSRTM(14)
+
+!     ----------------------------------------------------------------
+REAL(KIND=JPRB) :: ZAPAD2(2,3,7)  , ZBPAD2(2,3,7)  , ZD2(2,3)&
+ & ,  ZRAY2(2,6)     , ZSUN2(2)       , ZSWCE2(2)  , ZSWCP2(2)&
+ & ,  ZROMA2(2)      , ZROMB2(2)  , ZRASY2(2)&
+ & ,  ZRA2(2)        , ZRB2(2)        , ZRC2(2)&
+ & ,  ZRD2(2)        , ZRE2(2)        , ZRF2(2)  
+
+REAL(KIND=JPRB) :: ZAPAD4(4,3,7)  , ZBPAD4(4,3,7)  , ZD4(4,3)&
+ & ,  ZRAY4(4,6)     , ZSUN4(4)       , ZSWCE4(4)  , ZSWCP4(4)&
+ & ,  ZROMA4(4)      , ZROMB4(4)  , ZRASY4(4)&
+ & ,  ZRA4(4)        , ZRB4(4)        , ZRC4(4)&
+ & ,  ZRD4(4)        , ZRE4(4)        , ZRF4(4)  
+  
+REAL(KIND=JPRB) :: ZAPAD6(6,3,7)  , ZBPAD6(6,3,7)  , ZD6(6,3)&
+ & ,  ZRAY6(6,6)     , ZSUN6(6)       , ZSWCE6(6)  , ZSWCP6(6)&
+ & ,  ZROMA6(6)      , ZROMB6(6)  , ZRASY6(6)&
+ & ,  ZRA6(6)        , ZRB6(6)        , ZRC6(6)&
+ & ,  ZRD6(6)        , ZRE6(6)        , ZRF6(6)&
+ & ,  ZRBY6(6,6)  
+  
+
+INTEGER(KIND=JPIM) :: JC3, JC6, JI, JJ, JW, I_K, ISW6
+
+REAL(KIND=JPRB) :: ZH2O, ZPDHNIS, ZPDH2O, ZPDUNIS,&
+ & ZPDUMG, ZPRHNIS, ZPRH2O, &
+ & ZPRUNIS, ZPRUMG, ZRTO1, ZRTO2, ZTDHNIS, &
+ & ZTDUNIS, ZTHNIS, &
+ & ZTUNIS, ZUMG, ZADJUS2, ZADJUS4, ZADJUS6  
+
+REAL(KIND=JPRB) :: ZTDH2IS, ZTDU2IS, ZTH2IS, ZTU2IS, ZPDH2IS, ZPDU2IS, ZPRH2IS, ZPRU2IS
+REAL(KIND=JPRB) :: ZTDH4IS, ZTDU4IS, ZTH4IS, ZTU4IS, ZPDH4IS, ZPDU4IS, ZPRH4IS, ZPRU4IS
+REAL(KIND=JPRB) :: ZTDH6IS, ZTDU6IS, ZTH6IS, ZTU6IS, ZPDH6IS, ZPDU6IS, ZPRH6IS, ZPRU6IS
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!     ----------------------------------------------------------------
+
+!*        1.  CLEAR-SKY ABSORPTION COEFFICIENTS FOR N SPECTRAL INTERVALS
+!             --------------------------------------------------------
+
+!* spectrally independent
+
+!-- New coefficients
+
+IF (LHOOK) CALL DR_HOOK('SUSWN',0,ZHOOK_HANDLE)
+ZTDHNIS = 0.450_JPRB
+ZTDUNIS = 0.375_JPRB
+ZTHNIS  = 273._JPRB
+ZTUNIS  = 273._JPRB
+ZPDHNIS = 0.90_JPRB
+ZPDUNIS = 0.75_JPRB
+ZPRHNIS = 101300._JPRB
+ZPRUNIS = 101300._JPRB
+ISW6=6
+
+!     ----------------------------------------------------------------
+
+!*        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 = 1.0_JPRB
+ZTDH2IS = 0.450_JPRB
+ZTDU2IS = 0.375_JPRB
+ZTH2IS  = 273._JPRB
+ZTU2IS  = 273._JPRB
+ZPDH2IS = 0.90_JPRB
+ZPDU2IS = 0.75_JPRB
+ZPRH2IS = 101300._JPRB
+ZPRU2IS = 101300._JPRB
+
+!* 1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)
+
+ZSUN2(1) = 0.459760_JPRB
+
+!-- New coefficients 
+ZD2(1,:)= (/ 0.800000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD2(1, 1, :) = (/&
+ & 0.1095121E+03_JPRB,&
+ & 0.8906647E+03_JPRB,&
+ & 0.1030601E+03_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD2(1, 2, :) = (/&
+ & 0.5124541E+03_JPRB,&
+ & 0.3478800E+04_JPRB,&
+ & 0.1244272E+04_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD2(1, 3, :) = (/&
+ & 0.4766857E-04_JPRB,&
+ & 0.4019806E-02_JPRB,&
+ & 0.1936247E+00_JPRB,&
+ & 0.1886522E+02_JPRB,&
+ & 0.6498215E+02_JPRB,&
+ & 0.1799387E+02_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD2(1, 1, :) = (/&
+ & 0.1095121E+03_JPRB,&
+ & 0.8919103E+03_JPRB,&
+ & 0.1142218E+03_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD2(1, 2, :) = (/&
+ & 0.5124541E+03_JPRB,&
+ & 0.3499516E+04_JPRB,&
+ & 0.1278186E+04_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD2(1, 3, :) = (/&
+ & 0.4766857E-04_JPRB,&
+ & 0.4153343E-02_JPRB,&
+ & 0.1925810E+00_JPRB,&
+ & 0.1938938E+02_JPRB,&
+ & 0.6918191E+02_JPRB,&
+ & 0.2278795E+02_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+
+ZRAY2(1,:)= (/&
+ & .389107E-01_JPRB, .101608E+01_JPRB,-.354921E+01_JPRB,&
+ & .659510E+01_JPRB,-.592423E+01_JPRB, .202348E+01_JPRB/)  
+
+!-- Original coefficients of ECMWF model (before 27 June 2000)
+
+!ZTDH2IS = 0.450_JPRB
+!ZTDU2IS = 0.375_JPRB
+!ZTH2IS  = 296._JPRB
+!ZTU2IS  = 296._JPRB
+!ZPDH2IS = 0.90_JPRB
+!ZPDU2IS = 0.75_JPRB
+!ZPRH2IS = 100000._JPRB
+!ZPRU2IS = 100000._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) = 0.0_JPRB
+ZSWCP2(1) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is not sub-divided
+
+!     ----------------------------------------------------------------
+
+!* 0.68 - 4.00 Micron
+
+ZSUN2(2) = 0.540240_JPRB
+
+!-- New coefficients
+
+ZD2(2,:)= (/ 0.000000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB/)
+
+ZAPAD2(2, 1, :) = (/&
+ & 0.1345066E-03_JPRB,&
+ & 0.9276888E+00_JPRB,&
+ & 0.3449105E+03_JPRB,&
+ & 0.7143025E+04_JPRB,&
+ & 0.6531248E+04_JPRB,&
+ & 0.2210815E+03_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD2(2, 2, :) = (/&
+ & 0.7776703E-05_JPRB,&
+ & 0.6851592E-02_JPRB,&
+ & 0.5533947E+00_JPRB,&
+ & 0.2538585E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_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.1345066E-03_JPRB,&
+ & 0.9297728E+00_JPRB,&
+ & 0.3523821E+03_JPRB,&
+ & 0.7931590E+04_JPRB,&
+ & 0.8979086E+04_JPRB,&
+ & 0.5050864E+03_JPRB,&
+ & 0.1000000E+01_JPRB/)  
+ZBPAD2(2, 2, :) = (/&
+ & 0.7776703E-05_JPRB,&
+ & 0.6976301E-02_JPRB,&
+ & 0.6074521E+00_JPRB,&
+ & 0.3517521E+01_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_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,:)= (/&
+ & .104635E-01_JPRB, .102535E+00_JPRB,-.536771E+00_JPRB,&
+ & .123640E+01_JPRB,-.128930E+01_JPRB, .502426E+00_JPRB/)  
+
+!-- Original coefficients of ECMWF model (before 27 June 2000)
+
+!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) = 0.0_JPRB
+ZSWCP2(2) = 0.0_JPRB
+
+!=====================================================================
+
+!*        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 = 1.0_JPRB
+
+!* 1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)
+
+ZSUN4(1) = 0.459760_JPRB
+
+!-- New coefficients
+
+!ZD4(1,:)= (/ 0.800000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB /)
+
+!ZAPAD4(1, 1, :) = (/&
+! &0.1095121E+03_JPRB,&
+! &0.8906647E+03_JPRB,&
+! &0.1030601E+03_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZAPAD4(1, 2, :) = (/&
+! &0.5124541E+03_JPRB,&
+! &0.3478800E+04_JPRB,&
+! &0.1244272E+04_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZAPAD4(1, 3, :) = (/&
+! &0.4766857E-04_JPRB,&
+! &0.4019806E-02_JPRB,&
+! &0.1936247E+00_JPRB,&
+! &0.1886522E+02_JPRB,&
+! &0.6498215E+02_JPRB,&
+! &0.1799387E+02_JPRB,&
+! &0.0000000E+00_JPRB/)
+
+!ZBPAD4(1, 1, :) = (/&
+! &0.1095121E+03_JPRB,&
+! &0.8919103E+03_JPRB,&
+! &0.1142218E+03_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZBPAD4(1, 2, :) = (/&
+! &0.5124541E+03_JPRB,&
+! &0.3499516E+04_JPRB,&
+! &0.1278186E+04_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZBPAD4(1, 3, :) = (/&
+! &0.4766857E-04_JPRB,&
+! &0.4153343E-02_JPRB,&
+! &0.1925810E+00_JPRB,&
+! &0.1938938E+02_JPRB,&
+! &0.6918191E+02_JPRB,&
+! &0.2278795E+02_JPRB,&
+! &0.1000000E+01_JPRB/)
+
+!ZRAY4(1,:)= (/&
+! &.389107E-01_JPRB, .101608E+01_JPRB,-.354921E+01_JPRB,&
+! &.659510E+01_JPRB,-.592423E+01_JPRB, .202348E+01_JPRB/)
+
+!-- Original coefficients in ECMWF scheme
+
+ZTDH4IS = 0.450_JPRB
+ZTDU4IS = 0.375_JPRB
+ZTH4IS  = 296._JPRB
+ZTU4IS  = 296._JPRB
+ZPDH4IS = 0.90_JPRB
+ZPDU4IS = 0.75_JPRB
+ZPRH4IS = 100000._JPRB
+ZPRU4IS = 100000._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) = 0.0_JPRB
+ZSWCP4(1) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:
+
+!     ----------------------------------------------------------------
+
+!* 0.69 - 1.19 Micron
+
+ZSUN4(2) = 0.326158_JPRB
+
+!-- New coefficients
+
+!ZD4(2,:)= (/ 0.000000000_JPRB, 0.900000000_JPRB, 1.000000000_JPRB /)
+
+!ZAPAD4(2, 1, :) = (/&
+! &0.1335726E+02_JPRB,&
+! &0.2939136E+04_JPRB,&
+! &0.4010585E+05_JPRB,&
+! &0.7195030E+05_JPRB,&
+! &0.1648338E+05_JPRB,&
+! &0.3373738E+03_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(2, 2, :) = (/&
+! &0.2001271E-01_JPRB,&
+! &0.2480831E+01_JPRB,&
+! &0.3444162E+02_JPRB,&
+! &0.4788946E+02_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+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.1335726E+02_JPRB,&
+! &0.2942327E+04_JPRB,&
+! &0.4077237E+05_JPRB,&
+! &0.7749017E+05_JPRB,&
+! &0.2123132E+05_JPRB,&
+! &0.6659687E+03_JPRB,&
+! &0.1000000E+01_JPRB/)
+!ZBPAD4(2, 2, :) = (/&
+! &0.2001271E-01_JPRB,&
+! &0.2549067E+01_JPRB,&
+! &0.3752433E+02_JPRB,&
+! &0.6276637E+02_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+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) /&
+! & .519710E-01_JPRB,-.150667E+00_JPRB, .154170E+01_JPRB,&
+! &-.518901E+01_JPRB, .668011E+01_JPRB,-.294843E+01_JPRB/
+
+!-- Original coefficients in the ECMWF model
+
+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,I_K),I_K=1,6) /&
+ & .164261E-01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/  
+
+ZSWCE4(2) = 0.0_JPRB
+ZSWCP4(2) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* 1.19 - 2.38 Microns
+
+ZSUN4(3) = 0.180608_JPRB
+
+!-- New coefficients
+
+!ZD4(3,:)= (/ 0.000000000_JPRB, 0.800000000_JPRB, 1.000000000_JPRB /)
+
+!ZAPAD4(3, 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/)
+!ZAPAD4(3, 2, :) = (/&
+! &0.4552471E-03_JPRB,&
+! &0.4084154E+00_JPRB,&
+! &0.6114905E+01_JPRB,&
+! &0.7102540E+01_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+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.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/)
+!ZBPAD4(3, 2, :) = (/&
+! &0.4552471E-03_JPRB,&
+! &0.4088242E+00_JPRB,&
+! &0.6411905E+01_JPRB,&
+! &0.9444439E+01_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+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,:)= (/&
+! &.288474E-02_JPRB, .133984E-02_JPRB,-.152812E-01_JPRB,&
+! &.540845E-01_JPRB,-.747444E-01_JPRB, .364285E-01_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) = 0.0_JPRB
+ZSWCP4(3) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* 2.38 - 4.00 Microns
+
+ZSUN4(4) = 0.033474_JPRB
+
+!-- New coefficients
+
+!ZD4(4,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+!ZAPAD4(4, 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/)
+!ZAPAD4(4, 2, :) = (/&
+! &0.1215163E-03_JPRB,&
+! &0.1222574E+00_JPRB,&
+! &0.9382420E+01_JPRB,&
+! &0.6875727E+02_JPRB,&
+! &0.2746421E+02_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+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.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/)
+!ZBPAD4(4, 2, :) = (/&
+! &0.1215163E-03_JPRB,&
+! &0.1255648E+00_JPRB,&
+! &0.1060119E+02_JPRB,&
+! &0.8414439E+02_JPRB,&
+! &0.4299438E+02_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E+00_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,:)= (/&
+! &.493545E-03_JPRB, .355696E-03_JPRB,-.284543E-02_JPRB,&
+! &.741248E-02_JPRB,-.773691E-02_JPRB, .370679E-02_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) = 0.0_JPRB
+ZSWCP4(4) = 0.0_JPRB
+
+!=====================================================================
+
+!*        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
+ZADJUS6 = 1.0_JPRB
+
+ZTDH6IS = 0.450_JPRB
+ZTDU6IS = 0.375_JPRB
+ZTH6IS  = 273._JPRB
+ZTU6IS  = 273._JPRB
+ZPDH6IS = 0.90_JPRB
+ZPDU6IS = 0.75_JPRB
+ZPRH6IS = 101300._JPRB
+ZPRU6IS = 101300._JPRB
+
+!* 1st spectral interval: U.V.  (0.18 - 0.25 Micron)
+
+ZSUN6(1) = 0.001917_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,:)= (/&
+ & .334018E+00_JPRB,-.298776E+01_JPRB, .613911E+02_JPRB,&
+ & -.164331E+03_JPRB, .197946E+03_JPRB,-.652206E+02_JPRB/)  
+ZRBY6(1,:)= (/&
+ & .43959002E+01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(1) = 0.0_JPRB
+ZSWCP6(1) = 0.0_JPRB
+
+NEXPO3(1) = 7
+REXPO3(1, 1, :) =(/&
+ & 0.051395E+00_JPRB, 0.048250E+00_JPRB, 0.112339E+00_JPRB,&
+ & 0.101426E+00_JPRB, 0.007700E+00_JPRB, 0.441320E+00_JPRB,&
+ & 0.237571E+00_JPRB /)  
+REXPO3(1, 2, :) =(/&
+ & 0.100022E+02_JPRB, 0.851159E+02_JPRB, 0.346737E+03_JPRB,&
+ & 0.158501E+02_JPRB, 0.724223E+01_JPRB, 0.177828E+03_JPRB,&
+ & 0.467708E+02_JPRB /)  
+  
+!* 2nd spectral interval: U.V.  (0.25 - 0.44 Micron)
+
+ZSUN6(2) = 0.135708_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,:)= (/&
+ & -.895408E-03_JPRB, .283130E+01_JPRB,-.867917E+01_JPRB,&
+ & .148672E+02_JPRB,-.127282E+02_JPRB, .422212E+01_JPRB/)  
+ZRBY6(2,:)= (/&
+ & .55503070E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(2) = 0.0_JPRB
+ZSWCP6(2) = 0.0_JPRB
+
+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.322135_JPRB
+
+ZD6(3,:)= (/ 0.800000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(3, 1, :) = (/&
+ & 0.1762097E+03_JPRB,&
+ & 0.1641762E+03_JPRB,&
+ & 0.8687919E+02_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB/)  
+ZAPAD6(3, 2, :) = (/&
+ & 0.5581224E+00_JPRB,&
+ & 0.1748430E+03_JPRB,&
+ & 0.1134123E+04_JPRB,&
+ & 0.3490429E+03_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.1762097E+03_JPRB,&
+ & 0.1663950E+03_JPRB,&
+ & 0.8939724E+02_JPRB,&
+ & 0.1000000E+01_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB/)  
+ZBPAD6(3, 2, :) = (/&
+ & 0.5581224E+00_JPRB,&
+ & 0.1749251E+03_JPRB,&
+ & 0.1159910E+04_JPRB,&
+ & 0.3893268E+03_JPRB,&
+ & 0.1000000E+01_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,:)= (/&
+ & .474852E-01_JPRB, .605110E+00_JPRB,-.248070E+01_JPRB,&
+ & .485580E+01_JPRB,-.444043E+01_JPRB, .152369E+01_JPRB/)  
+ZRBY6(3,:)= (/&
+ & .10528199E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(3) = 0.0_JPRB
+ZSWCP6(3) = 0.0_JPRB
+
+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.326158_JPRB
+
+ZD6(4,:)= (/ 0.000000000_JPRB, 0.900000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD6(4, 1, :) = (/&
+ & 0.1335726E+02_JPRB,&
+ & 0.2939136E+04_JPRB,&
+ & 0.4010585E+05_JPRB,&
+ & 0.7195030E+05_JPRB,&
+ & 0.1648338E+05_JPRB,&
+ & 0.3373738E+03_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(4, 2, :) = (/&
+ & 0.2001271E-01_JPRB,&
+ & 0.2480831E+01_JPRB,&
+ & 0.3444162E+02_JPRB,&
+ & 0.4788946E+02_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.1335726E+02_JPRB,&
+ & 0.2942327E+04_JPRB,&
+ & 0.4077237E+05_JPRB,&
+ & 0.7749017E+05_JPRB,&
+ & 0.2123132E+05_JPRB,&
+ & 0.6659687E+03_JPRB,&
+ & 0.1000000E+01_JPRB/)  
+ZBPAD6(4, 2, :) = (/&
+ & 0.2001271E-01_JPRB,&
+ & 0.2549067E+01_JPRB,&
+ & 0.3752433E+02_JPRB,&
+ & 0.6276637E+02_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/)  
+ 
+ZRAY6(4,:)= (/&
+ & .519710E-01_JPRB,-.150667E+00_JPRB, .154170E+01_JPRB,&
+ & -.518901E+01_JPRB, .668011E+01_JPRB,-.294843E+01_JPRB/)  
+ZRBY6(4,:)= (/&
+ & .16436996E-01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(4) = 0.0_JPRB
+ZSWCP6(4) = 0.0_JPRB
+
+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.180608_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.4552471E-03_JPRB,&
+ & 0.4084154E+00_JPRB,&
+ & 0.6114905E+01_JPRB,&
+ & 0.7102540E+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.4552471E-03_JPRB,&
+ & 0.4088242E+00_JPRB,&
+ & 0.6411905E+01_JPRB,&
+ & 0.9444439E+01_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,:)= (/&
+ & .288474E-02_JPRB, .133984E-02_JPRB,-.152812E-01_JPRB,&
+ & .540845E-01_JPRB,-.747444E-01_JPRB, .364285E-01_JPRB/)  
+ZRBY6(5,:)= (/&
+ & .18073079E-02_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(5) = 0.0_JPRB
+ZSWCP6(5) = 0.0_JPRB
+
+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.033474_JPRB
+
+ZD6(6,:)= (/ 0.000000000_JPRB, 0.000000000_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.1215163E-03_JPRB,&
+ & 0.1222574E+00_JPRB,&
+ & 0.9382420E+01_JPRB,&
+ & 0.6875727E+02_JPRB,&
+ & 0.2746421E+02_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.1215163E-03_JPRB,&
+ & 0.1255648E+00_JPRB,&
+ & 0.1060119E+02_JPRB,&
+ & 0.8414439E+02_JPRB,&
+ & 0.4299438E+02_JPRB,&
+ & 0.1000000E+01_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,:)= (/&
+ & .493545E-03_JPRB, .355696E-03_JPRB,-.284543E-02_JPRB,&
+ & .741248E-02_JPRB,-.773691E-02_JPRB, .370679E-02_JPRB/)  
+ZRBY6(6,:)= (/&
+ & .13618247E-03_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(6) = 0.0_JPRB
+ZSWCP6(6) = 0.0_JPRB
+
+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.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 /)
+
+!=====================================================================
+!       3.    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+
+! SW : 14 spectral intervals : mapping to SW6 spectral intervals
+!                                  0.185-0.25-0.44-0.69-1.19-2.38-4.00
+!  3.846 -  3.077                  6
+!  3.077 -  2.500                  6
+!  2.500 -  2.150                  5  
+!  2.150 -  1.942                  5
+!  1.942 -  1.626                  5
+!  1.626 -  1.299                  5
+!  1.299 -  1.242                  5
+!  1.242 -  0.7782                 4
+!  0.7782-  0.6250                 4
+!  0.6250-  0.4415                 3
+!  0.4415-  0.3448                 2  
+!  0.3448-  0.2632                 2 
+!  0.2632-  0.2000                 1
+! 12.195 -  3.846                  6
+
+IMPSRTM(1:14)= (/ 6,6,5,5,5,5,5,4,4,3,2,2,1,6 /)
+!=====================================================================
+
+!*       4.    SET VALUES.
+!              -----------
+
+IF (LONEWSW) THEN
+  ZPDH2O = ZPDHNIS
+  ZPDUMG = ZPDUNIS
+  ZPRH2O = ZPRHNIS
+  ZPRUMG = ZPRUNIS
+  RTDH2O = ZTDHNIS
+  RTDUMG = ZTDUNIS
+  RTH2O  = ZTHNIS
+  RTUMG  = ZTUNIS
+ENDIF
+
+RPDH1=ZPDH2O+1.0_JPRB
+RPDU1=ZPDUMG+1.0_JPRB
+ZH2O=1.0_JPRB/( 10._JPRB* RG * RPDH1 )
+ZUMG=1.0_JPRB/( 10._JPRB* RG * RPDU1 )
+RPNU = ZUMG/(ZPRUMG**ZPDUMG)
+RPNH = ZH2O/(ZPRH2O**ZPDH2O)
+
+IF(.NOT.ALLOCATED(RSUN)) ALLOCATE (RSUN(NTSW))
+
+DO JW=1,ISW6
+  RSUN(JW)=0.0_JPRB
+  RSWCE(JW)=0.0_JPRB
+  RSWCP(JW)=0.0_JPRB
+  
+  DO JC3=1,3
+    D(JW,JC3)=0.0_JPRB
+  ENDDO
+  DO JC6=1,6
+    RRAY(JW,JC6)=0.0_JPRB
+  ENDDO
+  DO JI=1,3
+    DO JJ=1,7
+      APAD(JW,JI,JJ)=0.0_JPRB
+      BPAD(JW,JI,JJ)=0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+
+IF (KSW == 2) THEN
+  ZPDH2O = ZPDH2IS
+  ZPDUMG = ZPDU2IS
+  ZPRH2O = ZPRH2IS
+  ZPRUMG = ZPRU2IS
+  RTDH2O = ZTDH2IS
+  RTDUMG = ZTDU2IS
+  RTH2O  = ZTH2IS
+  RTUMG  = ZTU2IS
+  
+  RADJUST=ZADJUS2
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN2(JW)
+
+    RSWCE(JW)=ZSWCE2(JW)
+    RSWCP(JW)=ZSWCP2(JW)
+
+    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
+  
+ELSEIF (KSW == 4) THEN
+  ZPDH2O = ZPDH4IS
+  ZPDUMG = ZPDU4IS
+  ZPRH2O = ZPRH4IS
+  ZPRUMG = ZPRU4IS
+  RTDH2O = ZTDH4IS
+  RTDUMG = ZTDU4IS
+  RTH2O  = ZTH4IS
+  RTUMG  = ZTU4IS
+  
+  RADJUST=ZADJUS4
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN4(JW)
+
+    RSWCE(JW)=ZSWCE4(JW)
+    RSWCP(JW)=ZSWCP4(JW)
+
+    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
+  
+ELSEIF (KSW == 6) THEN
+  ZPDH2O = ZPDH6IS
+  ZPDUMG = ZPDU6IS
+  ZPRH2O = ZPRH6IS
+  ZPRUMG = ZPRU6IS
+  RTDH2O = ZTDH6IS
+  RTDUMG = ZTDU6IS
+  RTH2O  = ZTH6IS
+  RTUMG  = ZTU6IS
+  
+  RADJUST=ZADJUS6
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN6(JW)
+
+    RSWCE(JW)=ZSWCE6(JW)
+    RSWCP(JW)=ZSWCP6(JW)
+
+    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
+    IF (LRAYL) THEN
+      DO JC6=1,6
+        RRAY(JW,JC6)=ZRAY6(JW,JC6)
+      ENDDO
+    ELSE  
+      DO JC6=1,6
+        RRAY(JW,JC6)=ZRBY6(JW,JC6)
+      ENDDO
+    ENDIF  
+    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
+  
+ELSEIF (KTSW == 14 .AND. KSW == 14) THEN
+  PRINT *,'SUSWN: 14-SPECTRAL INTERVALS --> RRTM_SW'
+  
+ELSE
+  PRINT *,'SUSWN: NTSW, NSW: ',KTSW,KSW
+  CALL ABOR1('SUSWN: WRONG NUMBER OF SW INTERVALS')
+ENDIF
+
+!     ----------------------------------------------------------------
+
+!*       5.    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
+
+!     ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSWN',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSWN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suswn.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suswn.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suswn.intfb.h	(revision 3330)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE SUSWN (KTSW, KSW)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+END SUBROUTINE SUSWN
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutoph.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutoph.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutoph.F90	(revision 3330)
@@ -0,0 +1,272 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUTOPH(KULOUT)
+
+!**** *SUTOPH*   - Initialize common YOMTOPH top parameterization
+
+!     Purpose.
+!     --------
+!           Initialize YOMTOPH, the common that contains the top pressure
+!           and the first level of parameterization
+!           it also contains mesospheric drag vertical profil
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUTOPH(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMTOPH, YOMSTA
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        A. Lasserre-Bigorry
+
+!     Modifications.
+!     --------------
+!        Original : 91-06-10
+!        Modified 92-02-22 by M. Deque (test of consistency between phys. para.)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified 93-11-17 by Ph. Dandin : FMR scheme with MF physics
+!        Modified 97-05-17 by M. Deque   : frozen FMR                 
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        F.Bouyssel 04-11-22 : NTCOET,ETCOET
+!        P. Marquet 05-09-12 : NTAJUC
+!        M. Deque   05-09-12 : default RCLX
+!        M. Deque   05-09-12 : default TPSCLIM
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMDIM   , ONLY : NFLEVG
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMSTA   , ONLY : STPRE
+USE YOMTOPH  , ONLY : RMESOU   ,RMESOT   ,NTQSAT   ,NTDIFU   ,&
+ & NTCOEF   ,NTDRAG   ,NTCVIM   ,NTPLUI   ,NTRADI   ,&
+ & NTNEBU   ,NTOZON   ,NTDRME   ,ETQSAT   ,ETDIFU   ,&
+ & ETCOEF   ,ETDRAG   ,ETCVIM   ,ETPLUI   ,ETRADI   ,&
+ & ETNEBU   ,ETOZON   ,ETDRME   ,XDRMUK   ,XDRMUX   ,XDRMUP   ,&
+ & XDRMTK   ,XDRMTX   ,XDRMTP   ,NTCOET   ,ETCOET   ,&
+ & RMESOQ   ,XDRMQK   ,XDRMQP   ,RFMESOQ  ,RCLX     ,&
+ & NTAJUC   ,ETAJUC   ,TPSCLIM
+USE YOMPHY   , ONLY : LRAY     ,LRAYFM   ,LRAYFM15 ,LRRMES
+USE YOEPHY   , ONLY : LAGPHY
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: JLEV
+
+REAL(KIND=JPRB) :: PAP, PAPX, ZMEST, ZMESU, ZMESQ
+
+REAL(KIND=JPRB) :: PMESQF
+REAL(KIND=JPRB) :: PMESTF
+REAL(KIND=JPRB) :: PMESUF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+#include "namtoph.h"
+
+!     ------------------------------------------------------------------
+
+!*    Mesospheric drag shape function
+
+!     PMESUF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP**1.5,1.E-10),0. )
+PMESUF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP,1.E-10_JPRB),0.0_JPRB )
+PMESTF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP,1.E-10_JPRB),0.0_JPRB )
+PMESQF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP,1.E-10_JPRB),0.0_JPRB )
+
+!     ------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "seapre.intfb.h"
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUTOPH',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+ETQSAT=0._JPRB
+ETDIFU=0._JPRB
+ETCOEF=0._JPRB
+ETDRAG=0._JPRB
+ETCVIM=0._JPRB
+ETPLUI=0._JPRB
+ETRADI=0._JPRB
+ETNEBU=0._JPRB
+ETOZON=0._JPRB
+ETDRME=0._JPRB
+ETCOET=0._JPRB
+ETAJUC=0._JPRB
+NTQSAT=1
+NTDIFU=1
+NTCOEF=1
+NTDRAG=1
+NTCVIM=1
+NTPLUI=1
+NTRADI=1
+NTNEBU=1
+NTOZON=1
+NTDRME=1
+NTCOET=1
+NTAJUC=1
+
+XDRMUK=0._JPRB
+XDRMUX=0._JPRB
+XDRMUP=0._JPRB
+XDRMTK=0._JPRB
+XDRMTX=0._JPRB
+XDRMTP=0._JPRB
+XDRMQK=0._JPRB
+XDRMQP=0._JPRB
+
+RFMESOQ=3.725E-06_JPRB
+RCLX=0.0_JPRB
+TPSCLIM=197._JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMTOPH commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMTOPH')
+!READ(NULNAM,NAMTOPH)
+
+!*       2.1  Search corresponding level, to pressure in NAMTOPH
+!             for each parameterization
+
+IF(ETQSAT /= 0.0_JPRB) CALL SEAPRE (ETQSAT,NTQSAT,STPRE,NFLEVG)
+IF(ETDIFU /= 0.0_JPRB) CALL SEAPRE (ETDIFU,NTDIFU,STPRE,NFLEVG)
+IF(ETCOEF /= 0.0_JPRB) CALL SEAPRE (ETCOEF,NTCOEF,STPRE,NFLEVG)
+IF(ETDRAG /= 0.0_JPRB) CALL SEAPRE (ETDRAG,NTDRAG,STPRE,NFLEVG)
+IF(ETCVIM /= 0.0_JPRB) CALL SEAPRE (ETCVIM,NTCVIM,STPRE,NFLEVG)
+IF(ETPLUI /= 0.0_JPRB) CALL SEAPRE (ETPLUI,NTPLUI,STPRE,NFLEVG)
+IF(ETRADI /= 0.0_JPRB) THEN
+  IF (LRAY) THEN
+    CALL SEAPRE (ETRADI,NTRADI,STPRE,NFLEVG)
+  ENDIF
+  IF (LRAYFM.OR.LRAYFM15) THEN
+    ETRADI=0._JPRB
+    NTRADI=1
+  ENDIF
+ENDIF
+IF(ETNEBU /= 0.0_JPRB) CALL SEAPRE (ETNEBU,NTNEBU,STPRE,NFLEVG)
+IF(ETOZON /= 0.0_JPRB) CALL SEAPRE (ETOZON,NTOZON,STPRE,NFLEVG)
+IF(ETDRME /= 0.0_JPRB) CALL SEAPRE (ETDRME,NTDRME,STPRE,NFLEVG)
+IF(ETCOET /= 0.0_JPRB) CALL SEAPRE (ETCOET,NTCOET,STPRE,NFLEVG)
+IF(ETAJUC /= 0.0_JPRB) CALL SEAPRE (ETAJUC,NTAJUC,STPRE,NFLEVG)
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMTOPH '')')
+WRITE(UNIT=KULOUT,FMT='('' ETQSAT = '',E10.4,'' NTQSAT = '',I10 &
+ & ,'' ETDIFU = '',E10.4,'' NTDIFU = '',I10 &
+ & ,/,'' ETCOEF = '',E10.4,'' NTCOEF = '',I10 &
+ & ,'' ETDRAG = '',E10.4,'' NTDRAG = '',I10 &
+ & ,/,'' ETCVIM = '',E10.4,'' NTCVIM = '',I10 &
+ & ,'' ETPLUI = '',E10.4,'' NTPLUI = '',I10 &
+ & ,/,'' ETRADI = '',E10.4,'' NTRADI = '',I10 &
+ & ,'' ETNEBU = '',E10.4,'' NTNEBU = '',I10 &
+ & ,/,'' ETOZON = '',E10.4,'' NTOZON = '',I10 &
+ & ,'' ETDRME = '',E10.4,'' NTDRME = '',I10 &
+ & ,/,'' ETCOET = '',E10.4,'' NTCOET = '',I10 &
+ & ,/,'' ETAJUC = '',E10.4,'' NTAJUC = '',I10 &
+ & ,/,'' XDRMUK = '',E10.4,'' XDRMUP = '',E10.4 &
+ & ,'' XDRMUX = '',E10.4,'' XDRMTK = '',E10.4 &
+ & ,'' XDRMTP = '',E10.4,'' XDRMTX = '',E10.4 &
+ & ,'' XDRMQK = '',E11.4,'' XDRMQP = '',E11.4 &
+ & ,/,'' RFMESOQ= '',E11.4,'' RCLX   = '',E11.4 &
+ & )')&
+ & ETQSAT,NTQSAT,ETDIFU,NTDIFU &
+ & ,ETCOEF,NTCOEF,ETDRAG,NTDRAG &
+ & ,ETCVIM,NTCVIM,ETPLUI,NTPLUI &
+ & ,ETRADI,NTRADI,ETNEBU,NTNEBU &
+ & ,ETOZON,NTOZON,ETDRME,NTDRME &
+ & ,ETCOET,NTCOET &
+ & ,ETAJUC,NTAJUC &
+ & ,XDRMUK,XDRMUP,XDRMUX,XDRMTK,XDRMTP,XDRMTX &
+ & ,XDRMQK,XDRMQP,RFMESOQ,RCLX
+
+!     VERIFICATION OF CONSISTENCY BETWEEN PHYSICAL PARAMETERIZATION
+
+IF (ETCOEF > ETDIFU.OR.ETCOEF > ETDRAG)THEN
+  WRITE(UNIT=KULOUT,FMT='('' ETCOEF TOO LOW '')')
+  CALL ABOR1('SUTOPH')
+ENDIF
+IF (ETQSAT > ETNEBU.OR.ETQSAT > ETPLUI.OR.ETQSAT > ETCVIM)THEN
+  WRITE(UNIT=KULOUT,FMT='('' ETQSAT TOO LOW '')')
+  CALL ABOR1('SUTOPH')
+ENDIF
+IF (ETCVIM > ETNEBU)THEN
+  WRITE(UNIT=KULOUT,FMT='('' ETCVIM TOO LOW '')')
+  CALL ABOR1('SUTOPH')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       4.    INITIALIZE MESOSPHERIC DRAG FOR U,V AND T
+!              -----------------------------------------
+
+IF (LRRMES.AND..NOT.LAGPHY) THEN
+  WRITE (UNIT=KULOUT,FMT='('' PROFIL VERTICAL DE DRAG MESO'',/&
+   & ,'' LEV'',T15,''VITESSE'',T45,''TEMPERATURE'' &
+   & , T65, ''HUMIDITE'' )')  
+  DO JLEV=1,NFLEVG
+    RMESOU(JLEV)=XDRMUK*PMESUF(STPRE(JLEV),XDRMUP)
+    RMESOT(JLEV)=XDRMTK*PMESTF(STPRE(JLEV),XDRMTP)
+    RMESOQ(JLEV)=XDRMQK*PMESQF(STPRE(JLEV),XDRMQP)
+    IF (XDRMUX /= 0.0_JPRB) RMESOU(JLEV)=MIN(RMESOU(JLEV),XDRMUX)
+    IF (XDRMTX /= 0.0_JPRB) RMESOT(JLEV)=MIN(RMESOT(JLEV),XDRMTX)
+    ZMESU=1.0_JPRB/MAX(1.E-8_JPRB,RMESOU(JLEV)*3600._JPRB*24._JPRB)
+    ZMEST=1.0_JPRB/MAX(1.E-8_JPRB,RMESOT(JLEV)*3600._JPRB*24._JPRB)
+    ZMESQ=1.0_JPRB/MAX(1.E-8_JPRB,RMESOQ(JLEV)*3600._JPRB*24._JPRB)
+    WRITE (UNIT=KULOUT,FMT='(I3,T10,E9.3,T20,G9.3,T40,E9.3,T50 &
+     & ,G9.3, T70,E9.3, T80,G9.3)') JLEV,RMESOU(JLEV),ZMESU, &
+     & RMESOT(JLEV),ZMEST, &
+     & RMESOQ(JLEV),ZMESQ 
+  ENDDO
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUTOPH',1,ZHOOK_HANDLE)
+END SUBROUTINE SUTOPH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutoph.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutoph.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutoph.intfb.h	(revision 3330)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUTOPH(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUTOPH
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutrle_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutrle_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sutrle_mod.F90	(revision 3330)
@@ -0,0 +1,229 @@
+MODULE SUTRLE_MOD
+CONTAINS
+SUBROUTINE SUTRLE(PNM)
+
+!**** *sutrle * - transposition of Legendre polynomials during set-up
+
+!     Purpose.
+!     --------
+!           transposition of Legendre polynomials during set-up
+
+!**   Interface.
+!     ----------
+!        *call* *sutrle(pnm)
+
+!        Explicit arguments :
+!        --------------------
+
+!        Implicit arguments :
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!     ------------------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!USE MPL_MODULE
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_DISTR
+USE TPM_FIELDS
+USE SET2PE_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB),INTENT(IN) :: PNM(R%NSPOLEG,D%NLEI3D)
+
+!     LOCAL 
+
+REAL(KIND=JPRB), ALLOCATABLE :: ZCOMBUF(:)
+REAL(KIND=JPRB), POINTER     :: ZPNM(:,:)
+INTEGER(KIND=JPIM) :: IGLLOC, ILREC, IM, INENTR, IPOS, &
+             &IRECSET, IRECV, ISEND, ISENDSET, ITAG, &
+             &JGL, JGLLOC, JM, JMLOC, JN, JROC ,IOFFT, IOFFG
+
+LOGICAL :: LLADMSG, LLEXACT
+
+!     ------------------------------------------------------------------
+
+!*       0.    Some initializations.
+!              ---------------------
+!! Workaround for obscure unwillingness to vectorize on VPP
+ZPNM => F%RPNM
+
+! Perform barrier synchronisation to guarantee all processors have
+! completed all previous communication
+
+IF( NPROC > 1 )THEN
+! CALL GSTATS(783,0)     ! MPL 3.12.08
+! CALL MPL_BARRIER(CDSTRING='SUTRLE:')
+! CALL GSTATS(783,1)
+  CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_BARRIER')
+ENDIF
+
+ALLOCATE (ZCOMBUF(NCOMBFLEN))
+
+DO JROC=1,NPRTRW-1
+
+  LLADMSG = .FALSE.
+  ITAG = MTAGLETR
+
+!*     Define PE to which data have to be sent and PE from which
+!*     data have to be received
+
+! CALL GSTATS(801,0)  ! MPL 4.12.08
+  ISEND = MYSETW-JROC
+  IRECV = MYSETW+JROC
+  IF (ISEND <= 0)     ISEND = ISEND+NPRTRW
+  IF (IRECV > NPRTRW) IRECV = IRECV-NPRTRW
+  IRECSET = IRECV
+  ISENDSET = ISEND
+  CALL SET2PE(ISEND,0,0,ISEND,MYSETV)
+  CALL SET2PE(IRECV,0,0,IRECV,MYSETV)
+
+!*   copy data to be sent into zcombuf
+
+  IPOS = 0
+  DO JM=0,R%NSMAX
+    IF (ISENDSET == D%NPROCM(JM)) THEN
+      INENTR = (D%NLATLE(MYSETW)-D%NLATLS(MYSETW)+1)*(R%NTMAX-JM+2)
+      IF (IPOS + INENTR < NCOMBFLEN) THEN
+        DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+          JGLLOC = JGL - D%NLATLS(MYSETW) + 1
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZCOMBUF(IPOS) = PNM(D%NPMG(JM)+JN,JGLLOC)
+          ENDDO
+        ENDDO
+      ELSE
+        DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+          JGLLOC = JGL - D%NLATLS(MYSETW) + 1
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZCOMBUF(IPOS) = PNM(D%NPMG(JM)+JN,JGLLOC)
+            IF (IPOS == NCOMBFLEN) THEN
+!             CALL MPL_SEND(zcombuf(1:ipos),KDEST=NPRCIDS(ISEND), &
+!              & KTAG=ITAG,CDSTRING='SUTRLE:')     ! MPL 3.12.08
+              CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_SEND')
+              IPOS = 0
+              ITAG = ITAG + 1
+              LLEXACT = (JGL == D%NLATLE(MYSETW) .AND. JN == R%NTMAX-JM+2)
+              IF (.NOT.LLEXACT) LLADMSG = .TRUE.
+            ENDIF
+          ENDDO
+        ENDDO
+      ENDIF
+    ENDIF
+  ENDDO
+
+!*   send message (if not empty or if message has been split)
+
+  IF (IPOS > 0 .OR. LLADMSG) THEN
+!   CALL MPL_SEND(ZCOMBUF(1:IPOS),KDEST=NPRCIDS(ISEND), &
+!    & KTAG=ITAG,CDSTRING='SUTRLE:')    ! MPL 3.12.08
+     CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_SEND')
+  ENDIF
+! CALL GSTATS(801,1) ! MPL 4.12.08
+
+  ILREC = 0
+  ITAG = MTAGLETR
+  IF (D%NUMP > 0.AND. D%NLATLE(IRECSET) >= D%NLATLS(IRECSET)) THEN
+
+!*   receive message (if not empty)
+
+!   CALL GSTATS(801,0)
+!   CALL MPL_RECV(ZCOMBUF(1:NCOMBFLEN),KSOURCE=NPRCIDS(IRECV), &
+!    & KTAG=ITAG,KOUNT=ILREC,CDSTRING='SUTRLE:')  ! MPL 3.12.08
+    CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_RECV')
+
+!*   copy data from buffer to f%rpnm
+
+    IPOS = 0
+    DO JMLOC=1,D%NUMP
+      JM = D%MYMS(JMLOC)
+      INENTR = (D%NLATLE(IRECSET)-D%NLATLS(IRECSET)+1)*(R%NTMAX-JM+2)
+      IOFFT = D%NPMT(JM) 
+      IF (IPOS + INENTR < NCOMBFLEN) THEN
+        DO JGL=D%NLATLS(IRECSET),D%NLATLE(IRECSET)
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZPNM(JGL,IOFFT+JN) = ZCOMBUF(IPOS)
+          ENDDO
+        ENDDO
+      ELSE
+        DO JGL=D%NLATLS(IRECSET),D%NLATLE(IRECSET)
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZPNM(JGL,IOFFT+JN) = ZCOMBUF(IPOS)
+            IF (IPOS == NCOMBFLEN) THEN
+              ITAG = ITAG + 1
+!             CALL MPL_RECV(ZCOMBUF(1:NCOMBFLEN), &
+!              & KSOURCE=NPRCIDS(IRECV),KTAG=ITAG, &
+!              & KOUNT=ILREC,CDSTRING='SUTRLE:')    ! MPL 3.12.08
+              CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_RECV')
+              IPOS = 0
+            ENDIF
+          ENDDO
+        ENDDO
+      ENDIF
+    ENDDO
+!   CALL GSTATS(801,1)  ! MPL 4.12.08
+
+!*    check received message length
+
+    IF (ILREC /= IPOS) THEN
+      WRITE(NOUT,*)' SUTRLE: ILREC,IPOS,NCOMBLEN ',ILREC,IPOS,NCOMBFLEN
+      CALL ABORT_TRANS(' SUTRLE:RECEIVED MESSAGE LENGTH DOES NOT MATCH')
+    ENDIF
+  ENDIF
+
+! Perform barrier synchronisation to guarantee all processors have
+! completed communication for this jroc loop iteration
+
+! CALL MPL_BARRIER(CDSTRING='SUTRLE:')      ! MPL 3.12.08
+  CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_BARRIER')
+
+ENDDO
+
+!*    copy data from pnm to rpnm
+
+!CALL GSTATS(1803,0)   ! MPL 4.12.08
+!cjfe OMP not efficient in that case
+!cjfe!$OMP PARALLEL DO SCHEDULE(STATIC) PRIVATE(jmloc,im,iofft,ioffg,jgl,iglloc,jn)
+DO JMLOC=1,D%NUMP
+  IM = D%MYMS(JMLOC)
+  IOFFT = D%NPMT(IM)
+  IOFFG = D%NPMG(IM)
+  DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+    IGLLOC = JGL-D%NLATLS(MYSETW)+1
+    DO JN=1,R%NTMAX-IM+2
+      ZPNM(JGL,IOFFT+JN) = PNM(IOFFG+JN,IGLLOC)
+    ENDDO
+  ENDDO
+ENDDO
+!cjfe!$OMP END PARALLEL DO
+!CALL GSTATS(1803,1) ! MPL 4.12.08
+
+DEALLOCATE (ZCOMBUF)
+
+END SUBROUTINE SUTRLE
+END MODULE SUTRLE_MOD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suvdf.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suvdf.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suvdf.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUVDF
+END SUBROUTINE SUVDF
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suvdfs.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suvdfs.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suvdfs.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUVDFS
+END SUBROUTINE SUVDFS
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suwavedi_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suwavedi_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suwavedi_mod.F90	(revision 3330)
@@ -0,0 +1,173 @@
+MODULE SUWAVEDI_MOD
+CONTAINS
+SUBROUTINE SUWAVEDI(KSMAX,KTMAX,KPRTRW,KMYSETW,KASM0,KSPOLEGL,KPROCM,&
+                    &KUMPP,KSPEC,KSPEC2,KSPEC2MX,KPOSSP,KMYMS,&
+                    &KPTRMS,KALLMS,KDIM0G)
+
+!**** *SUWAVEDI * - Routine to initialize spectral wave distribution
+
+!     Purpose.
+!     --------
+!           Initialize arrays controlling spectral wave distribution
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUWAVEDI *
+
+!        Explicit arguments : 
+!        --------------------
+!           KSMAX    - Spectral truncation limit (input)
+!           KTMAX    - Overtruncation for KSMAX (input)
+!           KPRTRW   - Number of processors in A-direction (input)
+!           KMYSETW  - A-set for present processor (input)
+!           KASM0    - Offsets for spectral waves (output)
+!           KSPOLEGL - Local version of NSPOLEG (output)
+!           KPROCM   - Where a certain spectral wave belongs  (output)
+!           KUMPP    - Number of spectral waves on this PE (output)
+!           KSPEC    - Local version on NSPEC (output)
+!           KSPEC2   - Local version on NSPEC2 (output)
+!           KSPEC2MX - Maximum KSPEC2 across PEs (output)
+!           KPOSSP   - Global spectral fields partitioning (output)
+!           KMYMS    - This PEs spectral zonal wavenumbers (output)
+
+!        Implicit arguments : NONE
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 96-01-10
+!        L.Isaksen: 96-02-02 - Calculation of KSPEC2MX added
+!        K.YESSAD : 97-02-18 - Add KTMAX, bug correction for KSPOLEGL.
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+
+!     DUMMY 
+INTEGER(KIND=JPIM),INTENT(IN)  :: KSMAX
+INTEGER(KIND=JPIM),INTENT(IN)  :: KTMAX
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPRTRW
+INTEGER(KIND=JPIM),INTENT(IN)  :: KMYSETW
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPEC
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPEC2
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPEC2MX
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPOLEGL
+
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KASM0(0:KSMAX)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KPROCM(0:KSMAX)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KUMPP(KPRTRW)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KMYMS(KSMAX+1)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KPOSSP(KPRTRW+1)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KPTRMS(KPRTRW)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KALLMS(KSMAX+1)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KDIM0G(0:KSMAX)
+
+!     LOCAL 
+INTEGER(KIND=JPIM) :: IK, IL, IND, IPOS, ISPEC2P, JA, JM,JMLOC,IM
+INTEGER(KIND=JPIM) :: ISPOLEGL,ISPEC2MX,IASM0(0:KSMAX),IPROCM(0:KSMAX)
+INTEGER(KIND=JPIM) :: IUMPP(KPRTRW),IMYMS(KSMAX+1),IPOSSP(KPRTRW+1)
+INTEGER(KIND=JPIM) :: IPTRMS(KPRTRW),IALLMS(KSMAX+1),IDIM0G(0:KSMAX)
+INTEGER(KIND=JPIM) :: ISPEC(KPRTRW),IC(KPRTRW)
+
+
+!      -----------------------------------------------------------------
+
+!*       1.    Initialize partitioning of wave numbers to PEs
+!              ----------------------------------------------
+
+ISPEC(:) = 0
+
+IUMPP(:) = 0
+IASM0(:) = -99
+ISPOLEGL = 0
+
+IL  = 1
+IND = 1
+IK  = 0
+IPOS = 1
+DO JM=0,KSMAX
+  IK = IK + IND
+  IF (IK > KPRTRW) THEN
+    IK = KPRTRW
+    IND = -1
+  ELSEIF (IK < 1) THEN
+    IK = 1
+    IND = 1
+  ENDIF
+  IPROCM(JM) = IK
+  ISPEC(IK) = ISPEC(IK)+KSMAX-JM+1
+  IUMPP(IK) = IUMPP(IK)+1
+  IF (IK == KMYSETW) THEN
+    ISPOLEGL = ISPOLEGL +KTMAX+1-JM+1
+    IMYMS(IL) = JM
+    IASM0(JM) = IPOS
+    IPOS = IPOS+(KSMAX-JM+1)*2
+    IL = IL+1
+  ENDIF
+ENDDO
+
+IPOSSP(1) = 1
+ISPEC2P = 2*ISPEC(1)
+ISPEC2MX = ISPEC2P
+IPTRMS(1) = 1
+DO JA=2,KPRTRW
+  IPOSSP(JA) = IPOSSP(JA-1)+ISPEC2P
+  ISPEC2P = 2*ISPEC(JA)
+  ISPEC2MX = MAX(ISPEC2MX,ISPEC2P)
+! pointer to the first wave number of a given wave-set in NALLMS array
+  IPTRMS(JA) = IPTRMS(JA-1)+IUMPP(JA-1)
+ENDDO
+IPOSSP(KPRTRW+1) = IPOSSP(KPRTRW)+ISPEC2P
+
+!  IALLMS :  wave numbers for all wave-set concatenated together to give all
+!            wave numbers in wave-set order.
+IC(:) = 0
+DO JM=0,KSMAX
+  IALLMS(IC(IPROCM(JM))+IPTRMS(IPROCM(JM))) = JM
+  IC(IPROCM(JM)) = IC(IPROCM(JM))+1
+ENDDO
+
+IPOS = 1
+DO JA=1,KPRTRW
+  DO JMLOC=1,IUMPP(JA)
+    IM = IALLMS(IPTRMS(JA)+JMLOC-1)
+    IDIM0G(IM) = IPOS
+    IPOS = IPOS+(KSMAX+1-IM)*2
+  ENDDO
+ENDDO
+
+IF(PRESENT(KSPEC))    KSPEC  = ISPEC(KMYSETW)
+IF(PRESENT(KSPEC2))   KSPEC2 = 2*ISPEC(KMYSETW)
+IF(PRESENT(KSPEC2MX)) KSPEC2MX = ISPEC2MX
+IF(PRESENT(KSPOLEGL)) KSPOLEGL = ISPOLEGL
+
+IF(PRESENT(KASM0))  KASM0(:)  = IASM0(:)
+IF(PRESENT(KPROCM)) KPROCM(:) = IPROCM(:)
+IF(PRESENT(KUMPP))  KUMPP(:)  = IUMPP(:)
+IF(PRESENT(KMYMS))  KMYMS(:)  = IMYMS(:)
+IF(PRESENT(KPOSSP)) KPOSSP(:) = IPOSSP(:)
+IF(PRESENT(KPTRMS)) KPTRMS(:) = IPTRMS(:)
+IF(PRESENT(KALLMS)) KALLMS(:) = IALLMS(:)
+IF(PRESENT(KDIM0G)) KDIM0G(:) = IDIM0G(:)
+
+END SUBROUTINE SUWAVEDI
+END MODULE SUWAVEDI_MOD
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suwcou.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suwcou.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/suwcou.intfb.h	(revision 3330)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUWCOU
+END SUBROUTINE SUWCOU
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw.F90	(revision 3330)
@@ -0,0 +1,353 @@
+SUBROUTINE SW &
+ & ( KIDIA, KFDIA , KLON  , KLEV , KAER,&
+ & PSCT , PCARDI, PPSOL , PALBD, PALBP , PWV, PQS,&
+ & PRMU0, PCG   , PCLDSW, PDP  , POMEGA, POZ, PPMB,&
+ & PTAU , PTAVE , PAER,&
+ & PFDOWN, PFUP,&
+ & PCDOWN, PCUP,&
+ & PFDNN, PFDNV , PFUPN, PFUPV,&
+ & PCDNN, PCDNV , PCUPN, PCUPV,&
+ & PSUDU, PUVDF , PPARF, PPARCF, PDIFFS , PDIRFS, &
+ & LRDUST, PPIZA_DST,PCGA_DST,PTAUREL_DST &
+ & )
+
+
+!**** *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
+!        02-09-01   JJMorcrette      UV and PAR
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity  04-11-18 : add two arguments for AROME extern. surface
+!        Y.Seity  05-10-10 : add add 3 optional arg. for dust SW properties
+!        JJMorcrette 20060721 PP of clear-sky PAR
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+!USE YOERAD   , ONLY : NSW
+! NSW mis dans .def MPL 20140211
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+integer, save :: icount=0
+!$OMP THREADPRIVATE(icount)
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSCT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCARDI 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPSOL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDSW(KLON,KLEV) 
+REAL(KIND=JPRB)                  :: PDP(KLON,KLEV) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV,NSW)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDNN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDNV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUPN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUPV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDNN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDNV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUPN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUPV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PUVDF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARCF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIFFS(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIRFS(KLON,NSW) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: 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) ,ZDIFF(KLON,KLEV)   ,ZDIRF(KLON,KLEV)    &
+ & ,  ZDIFF2(KLON,KLEV)  , ZDIRF2(KLON,KLEV)
+
+INTEGER(KIND=JPIM) ::  JK, JL, JNU, INUVS, INUIR
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL         :: LLDEBUG
+character*1 str1
+
+#include "sw1s.intfb.h"
+#include "swni.intfb.h"
+#include "swu.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.     ABSORBER AMOUNTS AND OTHER USEFUL QUANTITIES
+!                 --------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW',0,ZHOOK_HANDLE)
+LLDEBUG=.FALSE.
+CALL SWU ( KIDIA,KFDIA ,KLON  ,KLEV,&
+ & PSCT ,PCARDI,PCLDSW,PPMB ,PPSOL,&
+ & PRMU0,PTAVE ,PWV,&
+ & ZAKI ,ZCLD  ,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD )  
+
+!     ------------------------------------------------------------------
+!*         2.     INTERVAL (0.185/0.25-0.68 MICRON): U.V. AND VISIBLE
+!                 ---------------------------------------------------
+IF (NSW <= 4) THEN
+  INUVS=1
+  INUIR=2
+ELSEIF (NSW == 6) THEN
+  INUVS=1
+  INUIR=4
+ENDIF     
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZFD(JL,JK) =0.0_JPRB
+    ZFU(JL,JK) =0.0_JPRB
+    ZCD(JL,JK) =0.0_JPRB
+    ZCU(JL,JK) =0.0_JPRB
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZSUDU1T(JL)=0.0_JPRB
+  PUVDF(JL)  =0.0_JPRB
+  PPARF(JL)  =0.0_JPRB
+  PPARCF(JL) =0.0_JPRB
+ENDDO
+
+IF(LLDEBUG) THEN
+call writefield_phy('sw_zsec',ZSEC,1)
+call writefield_phy('sw_zrmu',ZRMU,1)
+call writefield_phy('sw_prmu0',PRMU0,1)
+call writefield_phy('sw_zfact',ZFACT,1)
+ENDIF
+
+icount=icount+1
+DO JNU = INUVS , INUIR-1
+   !++MODIFCODE
+     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, ZDIFF,ZDIRF &
+           &,  LRDUST,PPIZA_DST(:,:,JNU) &       ! SSA for this wavelength
+           &,  PCGA_DST(:,:,JNU)   &            ! GCA for this wavelengt
+           &,  PTAUREL_DST(:,:,JNU) )           ! TAUREL for this wavelength
+  !--MODIFCODE
+IF(LLDEBUG) THEN
+! Ecriture des champs avec un indicage du fichier par l'intervalle spectral
+  write(str1,'(i1)') jnu
+  call writefield_phy("sw_zcduvs"//str1,zcduvs,klev+1)
+ENDIF
+
+
+  DO JL=KIDIA,KFDIA
+  PDIFFS(JL,JNU)=ZDIFF(JL,1)*ZFACT(JL)
+  PDIRFS(JL,JNU)=ZDIRF(JL,1)*ZFACT(JL)
+  ENDDO
+  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 == 6) THEN
+    IF (JNU <= 2) THEN
+      DO JL = KIDIA,KFDIA
+        PUVDF(JL)=PUVDF(JL)+ZFDUVS(JL,1)
+      ENDDO
+    ELSEIF (JNU == 3) THEN
+      DO JL=KIDIA,KFDIA
+        PPARF(JL)=PPARF(JL)+ZFDUVS(JL,1)
+        PPARCF(JL)=PPARCF(JL)+ZCDUVS(JL,1)
+      ENDDO
+    ENDIF    
+  ENDIF  
+ENDDO
+
+!if (icount==5) stop'on arrete dans sw.F90 au bout de 5 appels'
+!     ------------------------------------------------------------------
+
+!*         3.     INTERVAL (0.68-4.00 MICRON): NEAR-INFRARED
+!                 ------------------------------------------
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZFDOWN(JL,JK)=0.0_JPRB
+    ZFUP  (JL,JK)=0.0_JPRB
+    ZCDOWN(JL,JK)=0.0_JPRB
+    ZCUP  (JL,JK)=0.0_JPRB
+    ZSUDU2T(JL)  =0.0_JPRB
+  ENDDO
+ENDDO
+
+DO JNU = INUIR , NSW
+   !++MODIFCODE
+      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,ZDIFF2,ZDIRF2 &
+           &,  LRDUST,PPIZA_DST(:,:,JNU)  &
+           &,  PCGA_DST(:,:,JNU)    &
+           &,  PTAUREL_DST(:,:,JNU) &
+           &)
+    !--MODIFCODE
+
+IF(LLDEBUG) THEN
+! Ecriture des champs avec un indicage du fichier par l'intervalle spectral
+  write(str1,'(i1)') jnu
+  call writefield_phy("sw_zcdnir"//str1,zcdnir,klev+1)
+ENDIF
+
+  DO JL=KIDIA,KFDIA
+    PDIFFS(JL,JNU)=ZDIFF2(JL,1)*ZFACT(JL)
+    PDIRFS(JL,JNU)=ZDIRF2(JL,1)*ZFACT(JL)
+  ENDDO
+  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)
+  PPARCF(JL)=PPARCF(JL)*ZFACT(JL)
+ENDDO
+
+!WRITE(*,'("---> Dans SW:")')
+!WRITE(*,'("ZFUP  ",10E12.5)') (ZFUP(1,JK),JK=1,KLEV+1)
+!WRITE(*,'("ZFU   ",10E12.5)') (ZFU(1,JK),JK=1,KLEV+1)
+!WRITE(*,'("ZFUNIR",10E12.5)') (ZFUNIR(1,JK),JK=1,KLEV+1)
+!WRITE(*,'("ZFACT ",E12.5)') ZFACT(1)
+
+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
+IF(LLDEBUG) THEN
+call writefield_phy('sw_pcdown',PCDOWN,KLEV+1)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW',1,ZHOOK_HANDLE)
+END SUBROUTINE SW
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw.intfb.h	(revision 3330)
@@ -0,0 +1,61 @@
+INTERFACE
+SUBROUTINE SW&
+ & ( KIDIA, KFDIA , KLON , KLEV , KAER,&
+ & PSCT , PCARDI, PPSOL , PALBD, PALBP , PWV, PQS,&
+ & PRMU0, PCG , PCLDSW, PDP , POMEGA, POZ, PPMB,&
+ & PTAU , PTAVE , PAER,&
+ & PFDOWN, PFUP,&
+ & PCDOWN, PCUP,&
+ & PFDNN, PFDNV , PFUPN, PFUPV,&
+ & PCDNN, PCDNV , PCUPN, PCUPV,&
+ & PSUDU, PUVDF , PPARF, PPARCF, PDIFFS , PDIRFS,&
+ & LRDUST, PPIZA_DST,PCGA_DST,PTAUREL_DST&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+include "clesphys.h"    
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
+REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
+REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
+REAL(KIND=JPRB) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFFS(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRFS(KLON,NSW)
+END SUBROUTINE SW
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw1s.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw1s.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw1s.F90	(revision 3330)
@@ -0,0 +1,450 @@
+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,PDIFF , PDIRF, &
+!++MODIFCODE
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST  &
+!--MODIFCODE
+ &)
+
+!**** *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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity  04-11-19 : add two arguments for AROME externalized surface
+!        Y.Seity  05-10-10 : add 3 optional arg. for dust SW properties
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RRAY     ,RSUN
+!USE YOERAD   , ONLY : NSW
+! NSW mis dans .def MPL 20140211
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLEAR(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUD(KLON,5,KLEV+1) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST          ! flag for DUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIFF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIRF(KLON,KLEV) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+INTEGER(KIND=JPIM) :: IIND(6)
+
+REAL(KIND=JPRB) :: 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)&
+ & ,  ZR(KLON,6)&
+ & ,  ZTAUAZ(KLON,KLEV)&
+ & ,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
+ & ,  ZTRCLD(KLON)      , ZTRCLR(KLON)&
+ & ,  ZW(KLON,6)        , ZO(KLON,2) ,ZT(KLON,2)   
+
+INTEGER(KIND=JPIM) :: IKL, IKM1, JAJ, JK, JL , JJ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL         :: LLDEBUG
+
+#include "swclr.intfb.h"
+#include "swr.intfb.h"
+#include "swtt1.intfb.h"
+#include "swuvo3.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.     FIRST SPECTRAL INTERVAL (0.25-0.68 MICRON)
+!                 ----------------------- ------------------
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW1S',0,ZHOOK_HANDLE)
+LLDEBUG=.FALSE.
+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
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+!++MODIFCODE
+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 &
+   &, LRDUST , PPIZA_DST,PCGA_DST  &
+   &, PTAUREL_DST )
+
+!--MODIFCODE
+
+!*         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 &
+ & )  
+
+! DO JK = 1 , KLEV
+!   IKL = KLEV+1-JK
+!   DO JL = KIDIA,KFDIA
+!   print *,'Apres SWCLR,SWR RMU0 RMUE ',ZRMU0(JL,IKL),ZRMUE(JL,IKL)
+!   ENDDO
+! ENDDO
+!     ------------------------------------------------------------------
+
+!*         3.    OZONE ABSORPTION
+!                ----------------
+
+IF (NSW <= 4) THEN
+
+!*         3.1   TWO OR FOUR SPECTRAL INTERVALS
+!                ------------------------------
+
+  IIND(1)=1
+  IIND(2)=2
+  IIND(3)=3
+  IIND(4)=1
+  IIND(5)=2
+  IIND(6)=3
+
+!*         3.1.1  DOWNWARD FLUXES
+!                 ---------------
+
+  JAJ = 2
+
+  DO JL = KIDIA,KFDIA
+    ZW(JL,1)=0.0_JPRB
+    ZW(JL,2)=0.0_JPRB
+    ZW(JL,3)=0.0_JPRB
+    ZW(JL,4)=0.0_JPRB
+    ZW(JL,5)=0.0_JPRB
+    ZW(JL,6)=0.0_JPRB
+    PFD(JL,KLEV+1)=((1.0_JPRB-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
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,3)=ZW(JL,3)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+      ZW(JL,4)=ZW(JL,4)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+      ZW(JL,5)=ZW(JL,5)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+      ZW(JL,6)=ZW(JL,6)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ENDDO
+    
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 6,&
+     & IIND,&
+     & ZW,&
+     & ZR                          )  
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZR(JL,3)*ZRJ(JL,JAJ,IKL)
+      ZDIRF(JL) = ZR(JL,4)*ZR(JL,5)*ZR(JL,6)*ZRJ0(JL,JAJ,IKL)
+      PDIFF(JL,IKL) = ZDIFF(JL) * RSUN(KNU)*(1.0_JPRB-PCLEAR(JL))
+      PDIRF(JL,IKL) = ZDIRF(JL) * RSUN(KNU)*PCLEAR(JL)
+      PFD(JL,IKL) = ((1.0_JPRB-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) = ZR(JL,1)*ZR(JL,2)*ZR(JL,3)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR(JL,4)*ZR(JL,5)*ZR(JL,6)*ZTRCLR(JL)
+    PSUDU1(JL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFT(JL)&
+     & +PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)  
+  ENDDO
+
+!*         3.1.2  UPWARD FLUXES
+!                 -------------
+
+  DO JL = KIDIA,KFDIA
+    PFU(JL,1) = ((1.0_JPRB-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
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW(JL,3)=ZW(JL,3)+POZ(JL,  IKM1)*1.66_JPRB
+      ZW(JL,4)=ZW(JL,4)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,5)=ZW(JL,5)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW(JL,6)=ZW(JL,6)+POZ(JL,  IKM1)*1.66_JPRB
+    ENDDO
+    
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 6,&
+     & IIND,&
+     & ZW,&
+     & ZR                          )  
+  
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZR(JL,3)*ZRK(JL,JAJ,JK)
+      ZDIRF(JL) = ZR(JL,4)*ZR(JL,5)*ZR(JL,6)*ZRK0(JL,JAJ,JK)
+      PFU(JL,JK) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+!WRITE(*,'("---> Dans SW1S:")')
+!WRITE(*,'("PFU",10E12.5)') (PFU(1,JJ),JJ=1,KLEV+1)
+!WRITE(*,'("PCLEAR",10E12.5)') (PCLEAR(1))
+!WRITE(*,'("ZDIFF",10E12.5)') (ZDIFF(1))
+!WRITE(*,'("ZDIRF",10E12.5)') (ZDIRF(1))
+!WRITE(*,'("RSUN",10E12.5)') (RSUN(KNU))
+  ENDDO
+
+ELSEIF (NSW == 6) THEN
+!print *,'... dans SW1S: NSW=',NSW
+
+!*         3.2   SIX SPECTRAL INTERVALS
+!                ----------------------
+
+  IIND(1)=1
+  IIND(2)=2
+  IIND(3)=1
+  IIND(4)=2
+
+!*         3.2,1  DOWNWARD FLUXES
+!                 ---------------
+
+  JAJ = 2
+
+  DO JL = KIDIA,KFDIA
+    ZW(JL,1)=0.0_JPRB
+    ZW(JL,2)=0.0_JPRB
+    ZW(JL,3)=0.0_JPRB
+    ZW(JL,4)=0.0_JPRB
+  
+    ZO(JL,1)=0.0_JPRB
+    ZO(JL,2)=0.0_JPRB
+    PFD(JL,KLEV+1)=((1.0_JPRB-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
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,3)=ZW(JL,3)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+      ZW(JL,4)=ZW(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
+ 
+!   WRITE(*,'("---> Dans SW1S avant SWTT1:")')
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 4,&
+     & IIND,&
+     & ZW,&
+     & ZR  &
+     & )  
+
+!   WRITE(*,'("---> Dans SW1S avant SWUVO3 flux dwn:")')
+    CALL SWUVO3 ( KIDIA, KFDIA, KLON, KNU, 2,&
+     & ZO,&
+     & ZT  &
+     & )  
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZT(JL,1)*ZRJ(JL,JAJ,IKL)
+      ZDIRF(JL) = ZR(JL,3)*ZR(JL,4)*ZT(JL,2)*ZRJ0(JL,JAJ,IKL)
+      PDIFF(JL,IKL) = ZDIFF(JL) * RSUN(KNU)*(1.0_JPRB-PCLEAR(JL)) 
+      PDIRF(JL,IKL) = ZDIRF(JL) * RSUN(KNU)*PCLEAR(JL)
+      PFD(JL,IKL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCD(JL,IKL) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+
+  IF(LLDEBUG) THEN
+  call writefield_phy('sw1s_pud1',PUD(:,1,:),klev)
+  call writefield_phy('sw1s_pud2',PUD(:,2,:),klev)
+  call writefield_phy('sw1s_psec',PSEC,1)
+  call writefield_phy('sw1s_zrmue',ZRMUE,klev+1)
+  call writefield_phy('sw1s_zrmu0',ZRMU0,klev+1)
+  call writefield_phy('sw1s_pdirf',PDIRF,klev)
+  call writefield_phy('sw1s_pdiff',PDIFF,klev)
+  call writefield_phy('sw1s_pfd',PFD,klev)
+  ENDIF
+  DO JL=KIDIA,KFDIA
+    ZDIFT(JL) = ZR(JL,1)*ZR(JL,2)*ZT(JL,1)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR(JL,3)*ZR(JL,4)*ZT(JL,2)*ZTRCLR(JL)
+    PSUDU1(JL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFT(JL)&
+     & +PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)  
+  ENDDO
+
+!*         3.2.2  UPWARD FLUXES
+!                 -------------
+
+  DO JL = KIDIA,KFDIA
+    PFU(JL,1) = ((1.0_JPRB-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
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW(JL,3)=ZW(JL,3)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,4)=ZW(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
+
+!   WRITE(*,'("---> Dans SW1S avant SWTT1:")')
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 4,&
+     & IIND,&
+     & ZW,&
+     & ZR  &
+     & )  
+
+!   WRITE(*,'("---> Dans SW1S avant SWUVO3 flux up:")')
+    CALL SWUVO3 ( KIDIA, KFDIA, KLON, KNU, 2,&
+     & ZO,&
+     & ZT  &
+     & )  
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZT(JL,1)*ZRK(JL,JAJ,JK)
+      ZDIRF(JL) = ZR(JL,3)*ZR(JL,4)*ZT(JL,2)*ZRK0(JL,JAJ,JK)
+      PFU(JL,JK) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
+!WRITE(*,'("---> Dans SW1S:")')
+!print *,'===JL= ',jl
+!WRITE(*,'("ZR1",10E12.5)') (ZR(JL,1))
+!WRITE(*,'("ZR2",10E12.5)') (ZR(JL,2))
+!WRITE(*,'("ZR3",10E12.5)') (ZR(JL,3))
+!WRITE(*,'("ZR4",10E12.5)') (ZR(JL,4))
+!WRITE(*,'("ZT1",10E12.5)') (ZT(JL,1))
+!WRITE(*,'("ZT2",10E12.5)') (ZT(JL,2))
+    ENDDO
+  ENDDO
+  
+!WRITE(*,'("---> Dans SW1S:")')
+!WRITE(*,'("PFU",10E12.5)') (PFU(1,JJ),JJ=1,KLEV+1)
+!WRITE(*,'("ZR",10E12.5)') (ZR(1,JJ),JJ=1,4)
+!WRITE(*,'("PCLEAR",10E12.5)') (PCLEAR(1))
+!WRITE(*,'("ZDIFF",10E12.5)') (ZDIFF(1))
+!WRITE(*,'("ZDIRF",10E12.5)') (ZDIRF(1))
+!WRITE(*,'("RSUN",10E12.5)') (RSUN(KNU))
+ENDIF  
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW1S',1,ZHOOK_HANDLE)
+END SUBROUTINE SW1S
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw1s.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw1s.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/sw1s.intfb.h	(revision 3330)
@@ -0,0 +1,42 @@
+INTERFACE
+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,PDIFF , PDIRF,&
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLEAR(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUD(KLON,5,KLEV+1)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU1(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRF(KLON,KLEV)
+END SUBROUTINE SW1S
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swclr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swclr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swclr.F90	(revision 3330)
@@ -0,0 +1,495 @@
+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, &
+!++MODIFCODE
+  & LDDUST,PPIZA_DST, PCGA_DST, PTAU_DST )
+!--MODIFCODE
+
+!**** *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
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        A.Grini (Meteo-France: 2005-11-10) 
+!        Y.Seity 05-10-10 : add add 3 optional arg. for dust SW properties
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!        O.Boucher fev.2014: modification sur les aerosols pour utiliser les variables DST
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RTAUA    ,RPIZA    ,RCGA
+!USE YOERAD   , ONLY : NOVLP    ,NSW
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NOVLP    
+USE YOERDI   , ONLY : REPCLC
+USE YOERDU   , ONLY : REPSCT
+
+IMPLICIT NONE
+INCLUDE "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRAYL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LDDUST                   ! flag for DUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_DST(KLON,KLEV)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCGAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPIZAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PREFZ(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRJ(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRK(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRMU0(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTAUAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRCLR(KLON) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZC0I(KLON,KLEV+1)&
+ & ,  ZCLE0(KLON,KLEV), ZCLEAR(KLON) &
+ & ,  ZR21(KLON)&
+ & ,  ZR23(KLON) , ZSS0(KLON) , ZSCAT(KLON)&
+ & ,  ZTR(KLON,2,KLEV+1)  
+
+INTEGER(KIND=JPIM) :: IKL, JA, JAE, JAJ, JK, JKL, JKLP1, JKM1, JL, INU1
+
+REAL(KIND=JPRB) :: ZBMU0, ZBMU1, ZCORAE, ZDEN, ZDEN1, ZFACOA,&
+ & ZFF, ZGAP, ZGAR, ZMU1, ZMUE, ZRATIO, ZRE11, &
+ & ZTO, ZTRAY, ZWW, ZDENB   
+REAL(KIND=JPRB) :: ZRR,ZMU0,ZI2MU1,ZIMU1,ZIDEN,ZIDEN1
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!++MODIFCODE
+REAL(KIND=JPRB) ::ZFACOA_NEW(KLON,KLEV)
+!--MODIFCODE
+
+
+!     ------------------------------------------------------------------
+
+!*         1.    OPTICAL PARAMETERS FOR AEROSOLS AND RAYLEIGH
+!                --------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWCLR',0,ZHOOK_HANDLE)
+DO JK = 1 , KLEV+1
+  DO JA = 1 , 6
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JA,JK) = 0.0_JPRB
+      PRK(JL,JA,JK) = 0.0_JPRB
+    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) = 0.0_JPRB
+    PPIZAZ(JL,JK) =  0.0_JPRB
+    PTAUAZ(JL,JK) = 0.0_JPRB
+    ZFACOA_NEW(JL,JK) = 0.0_JPRB
+  ENDDO
+
+!++MODIFCODE  
+!--OB on fait passer les aerosols LMDZ dans la variable DST
+  IF(NOVLP < 5)THEN !ECMWF VERSION
+!  DO JAE=1,6
+      DO JL = KIDIA,KFDIA
+!        PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL,JAE,IKL)*RTAUA(KNU,JAE)
+        PTAUAZ(JL,JK)=PTAU_DST(JL,IKL)
+!        PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL,JAE,IKL)&
+!         & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE)  
+        PPIZAZ(JL,JK)=PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)
+!        PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL,JAE,IKL)&
+!         & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)  
+        PCGAZ(JL,JK)=PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
+      ENDDO
+!    ENDDO
+  ELSE ! MESONH VERSION
+!--OB on utilise directement les aerosols LMDZ
+!     DO JAE=1,6
+        DO JL = KIDIA,KFDIA
+           !Special optical properties for dust
+!           IF (LDDUST.AND.(JAE==3)) THEN
+           !Ponderation of aerosol optical properties:first step 
+           !ti
+!            PTAUAZ(JL,JK)=PTAUAZ(JL,JK) + PAER(JL,JAE,IKL) * PTAUREL_DST(JL,IKL)
+            PTAUAZ(JL,JK)= PTAU_DST(JL,IKL)
+           !wi*ti
+!             PPIZAZ(JL,JK)=PPIZAZ(JL,JK) + PAER(JL,JAE,IKL)  &
+!                   & *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)
+             PPIZAZ(JL,JK)=PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)
+           !wi*ti*gi
+!             PCGAZ(JL,JK) = PCGAZ(JL,JK) + PAER(JL,JAE,IKL) &
+!                &  *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
+             PCGAZ(JL,JK) = PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
+           !wi*ti*(gi**2)
+!             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
+!                & *PTAUREL_DST(JL,IKL) *PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)*&
+!                & PCGA_DST(JL,IKL)
+             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+&
+                & PTAU_DST(JL,IKL) *PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)*&
+                & PCGA_DST(JL,IKL)
+!           ELSE
+           !Ponderation of aerosol optical properties:first step 
+           !ti
+!             PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL, JAE, IKL)*RTAUA(KNU,JAE)
+           !wi*ti
+!             PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL, JAE, IKL)&
+!                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)
+           !wi*ti*gi
+!             PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL, JAE, IKL)&
+!                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)
+           !wi*ti*(gi**2)
+!             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
+!                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)*RCGA(KNU,JAE)
+!           ENDIF
+        ENDDO
+!     ENDDO
+  ENDIF
+!--MODIFCODE  
+
+!++MODIFCODE  
+  IF (NOVLP < 5) then !ECMWF VERSION
+   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)
+!!!! wrong  ZRATIO = ZTRAY / (ZTRAY + PTAUAZ(JL,JK))
+!--     
+      ZGAR = PCGAZ(JL,JK)
+      ZFF = ZGAR * ZGAR
+
+!-- bug-fix: ZRATIO must be defined from the transformed value of optical thickness
+! MPLFH : ZTRAY N'EST PAS INITIALISE !!!!! A REVOIR (MPL)
+      ZTRAY= PRAYL(JL) * PDSIG(JL,JK)
+!     print *,'>>>>>>> swclr: ZTRAY ',ZTRAY
+      ZDENB = ZTRAY + PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)
+      ZRATIO=ZTRAY/ZDENB
+ !--     
+      PTAUAZ(JL,JK)=ZTRAY+PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)
+      PCGAZ(JL,JK) = ZGAR * (1.0_JPRB - ZRATIO) / (1.0_JPRB + ZGAR)
+      PPIZAZ(JL,JK) =ZRATIO+(1.0_JPRB-ZRATIO)*PPIZAZ(JL,JK)*(1.0_JPRB-ZFF)&
+       & / (1.0_JPRB - PPIZAZ(JL,JK) * ZFF)  
+    ELSE
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      PTAUAZ(JL,JK) = ZTRAY
+      PCGAZ(JL,JK) = 0.0_JPRB
+      PPIZAZ(JL,JK) = 1.0_JPRB-REPSCT
+    ENDIF
+  ENDDO
+  ELSE !MESONH VERSION
+   DO JL = KIDIA,KFDIA
+    IF (KAER /= 0) THEN
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      ZRATIO =PPIZAZ(JL,JK)+ZTRAY
+      !Ponderation G**2
+      ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)/ZRATIO
+      !Ponderation w
+      PPIZAZ(JL,JK)=ZRATIO/(PTAUAZ(JL,JK)+ZTRAY)
+      !Ponderation g
+      PCGAZ(JL,JK)=PCGAZ(JL,JK)/ZRATIO
+      !Ponderation+delta-modified parameters tau
+      PTAUAZ(JL,JK)=(ZTRAY+PTAUAZ(JL,JK))*&
+       &  (1.0_JPRB-PPIZAZ(JL,JK)*ZFACOA_NEW(JL,JK))
+      !delta-modified parameters w
+      PPIZAZ(JL,JK)=PPIZAZ(JL,JK)*(1.0_JPRB-ZFACOA_NEW(JL,JK))/&
+          & (1.0_JPRB-ZFACOA_NEW(JL,JK)*PPIZAZ(JL,JK))     
+      !delta-modified parameters g
+      PCGAZ(JL,JK)=PCGAZ(JL,JK)/(1.0_JPRB+PCGAZ(JL,JK))
+      
+    ELSE
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      ZFACOA_NEW(JL,JK)= 0.0_JPRB
+      PTAUAZ(JL,JK) = ZTRAY
+      PCGAZ(JL,JK) = 0.0_JPRB
+      PPIZAZ(JL,JK) = 1.0_JPRB-REPSCT
+    ENDIF
+   ENDDO    
+  ENDIF
+!--MODIFCODE  
+  
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+!                ----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZR23(JL) = 0.0_JPRB
+  ZC0I(JL,KLEV+1) = 0.0_JPRB
+  ZCLEAR(JL) = 1.0_JPRB
+  ZSCAT(JL) = 0.0_JPRB
+ENDDO
+
+JK = 1
+JKL = KLEV+1 - JK
+JKLP1 = JKL + 1
+DO JL = KIDIA,KFDIA
+!++MODIFCODE
+  IF (NOVLP >= 5) THEN
+   ZFACOA = PTAUAZ(JL,JK)
+   ZCORAE = ZFACOA *  PSEC(JL)
+  ELSE
+   ZFACOA = 1.0_JPRB - PPIZAZ(JL,JKL)*PCGAZ(JL,JKL)*PCGAZ(JL,JKL)
+   ZCORAE = ZFACOA * PTAUAZ(JL,JKL) * PSEC(JL)
+  ENDIF
+!--MODIFCODE
+  ZR21(JL) = EXP(-ZCORAE   )
+  ZSS0(JL) = 1.0_JPRB-ZR21(JL)
+  ZCLE0(JL,JKL) = ZSS0(JL)
+
+  IF (NOVLP == 1 .OR. NOVLP == 4) THEN
+!* maximum-random      
+    ZCLEAR(JL) = ZCLEAR(JL)&
+     & *(1.0_JPRB-MAX(ZSS0(JL),ZSCAT(JL)))&
+     & /(1.0_JPRB-MIN(ZSCAT(JL),1.0_JPRB-REPCLC))  
+    ZC0I(JL,JKL) = 1.0_JPRB - ZCLEAR(JL)
+    ZSCAT(JL) = ZSS0(JL)
+  ELSEIF (NOVLP == 2) THEN
+!* maximum
+    ZSCAT(JL) = MAX( ZSS0(JL) , ZSCAT(JL) )
+    ZC0I(JL,JKL) = ZSCAT(JL)
+!++MODIFCODE
+  ELSEIF ((NOVLP == 3).OR.(NOVLP  >=  5)) THEN
+!--MODIFCODE
+!* random
+    ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-ZSS0(JL))
+    ZSCAT(JL) = 1.0_JPRB - ZCLEAR(JL)
+    ZC0I(JL,JKL) = ZSCAT(JL)
+  ENDIF
+ENDDO
+
+DO JK = 2 , KLEV
+  JKL = KLEV+1 - JK
+  JKLP1 = JKL + 1
+  DO JL = KIDIA,KFDIA
+!++MODIFCODE
+    IF (NOVLP >= 5) THEN
+     ZFACOA = PTAUAZ(JL,JK)
+     ZCORAE = ZFACOA *  PSEC(JL)
+    ELSE
+    ZFACOA = 1.0_JPRB - PPIZAZ(JL,JKL)*PCGAZ(JL,JKL)*PCGAZ(JL,JKL)
+    ZCORAE = ZFACOA * PTAUAZ(JL,JKL) * PSEC(JL)
+    ENDIF
+!--MODIFCODE
+    ZR21(JL) = EXP(-ZCORAE   )
+    ZSS0(JL) = 1.0_JPRB-ZR21(JL)
+    ZCLE0(JL,JKL) = ZSS0(JL)
+
+    IF (NOVLP == 1 .OR. NOVLP == 4) THEN
+!* maximum-random      
+      ZCLEAR(JL) = ZCLEAR(JL)&
+       & *(1.0_JPRB-MAX(ZSS0(JL),ZSCAT(JL)))&
+       & /(1.0_JPRB-MIN(ZSCAT(JL),1.0_JPRB-REPCLC))  
+      ZC0I(JL,JKL) = 1.0_JPRB - ZCLEAR(JL)
+      ZSCAT(JL) = ZSS0(JL)
+    ELSEIF (NOVLP == 2) THEN
+!* maximum
+      ZSCAT(JL) = MAX( ZSS0(JL) , ZSCAT(JL) )
+      ZC0I(JL,JKL) = ZSCAT(JL)
+!++MODIFCODE
+    ELSEIF ((NOVLP == 3).OR.(NOVLP >= 5)) THEN
+!--MODIFCODE
+!* random
+      ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-ZSS0(JL))
+      ZSCAT(JL) = 1.0_JPRB - ZCLEAR(JL)
+      ZC0I(JL,JKL) = ZSCAT(JL)
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+!                -----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PRAY1(JL,KLEV+1) = 0.0_JPRB
+  PRAY2(JL,KLEV+1) = 0.0_JPRB
+  PREFZ(JL,2,1) = PALBP(JL,KNU)
+  PREFZ(JL,1,1) = PALBP(JL,KNU)
+  PTRA1(JL,KLEV+1) = 1.0_JPRB
+  PTRA2(JL,KLEV+1) = 1.0_JPRB
+ENDDO
+
+DO JK = 2 , KLEV+1
+  JKM1 = JK-1
+  DO JL = KIDIA,KFDIA
+
+!     ------------------------------------------------------------------
+
+!*         3.1  EQUIVALENT ZENITH ANGLE
+!               -----------------------
+
+    ZMUE = (1.0_JPRB-ZC0I(JL,JK)) * PSEC(JL)+ ZC0I(JL,JK) * 1.66_JPRB
+    PRMU0(JL,JK) = 1.0_JPRB/ZMUE
+    ZMU0=PRMU0(JL,JK)
+
+!     ------------------------------------------------------------------
+
+!*         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+!               ----------------------------------------------------
+
+    ZGAP = PCGAZ(JL,JKM1)
+    ZBMU0 = 0.5_JPRB - 0.75_JPRB * ZGAP *ZMU0
+    ZWW = PPIZAZ(JL,JKM1)
+    ZTO = PTAUAZ(JL,JKM1)
+    ZDEN = 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU0 * ZWW) * ZTO * ZMUE &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU0*ZWW)*ZTO*ZTO*ZMUE*ZMUE  
+    ZIDEN=1.0_JPRB / ZDEN
+    PRAY1(JL,JKM1) = ZBMU0 * ZWW * ZTO * ZMUE * ZIDEN
+    PTRA1(JL,JKM1) = ZIDEN
+
+    ZMU1 = 0.5_JPRB
+    ZIMU1=2.0_JPRB
+    ZI2MU1=4.0_JPRB
+    ZBMU1 = 0.5_JPRB - 0.75_JPRB * ZGAP * ZMU1
+    ZDEN1= 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU1 * ZWW) * ZTO * ZIMU1 &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU1*ZWW)*ZTO*ZTO*ZI2MU1  
+    ZIDEN1=1.0_JPRB / ZDEN1
+    PRAY2(JL,JKM1) = ZBMU1 * ZWW * ZTO * ZIMU1 *ZIDEN1
+    PTRA2(JL,JKM1) = ZIDEN1
+
+    ZRR=1.0_JPRB/(1.0_JPRB-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1))
+    PREFZ(JL,1,JK) = PRAY1(JL,JKM1)&
+     & + PREFZ(JL,1,JKM1) * PTRA1(JL,JKM1)&
+     & * PTRA2(JL,JKM1)&
+     & *ZRR  
+
+    ZTR(JL,1,JKM1) = PTRA1(JL,JKM1)&
+     & *ZRR  
+
+    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 = (1.0_JPRB-ZC0I(JL,1))*PSEC(JL)+ZC0I(JL,1)*1.66_JPRB
+  PRMU0(JL,1)=1.0_JPRB/ZMUE
+  PTRCLR(JL)=1.0_JPRB-ZC0I(JL,1)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!                 -------------------------------------------------
+
+IF (NSW <= 4) THEN
+  INU1=1
+ELSEIF (NSW == 6) THEN
+  INU1=3
+ENDIF    
+
+IF (KNU <= INU1) THEN
+  JAJ = 2
+  DO JL = KIDIA,KFDIA
+    PRJ(JL,JAJ,KLEV+1) = 1.0_JPRB
+    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) = 1.0_JPRB
+      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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWCLR',1,ZHOOK_HANDLE)
+END SUBROUTINE SWCLR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swclr.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swclr.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swclr.intfb.h	(revision 3330)
@@ -0,0 +1,39 @@
+INTERFACE
+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,&
+ & LRDUST,PPIZA_DST, PCGA_DST, PTAUREL_DST ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP 
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRAYL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCGAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPIZAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRK(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU0(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTAUAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRCLR(KLON)
+END SUBROUTINE SWCLR
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swde.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swde.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swde.F90	(revision 3330)
@@ -0,0 +1,230 @@
+!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())
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified: 03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        Modified: 03-12-13 John Hague - MASS Vector Fns
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERDU   , ONLY : REPLOG
+USE YOMJFH   , ONLY : N_VMASS
+!++MODIFCODE
+USE YOERAD   , ONLY : NOVLP 
+!--MODIFCODE
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGG(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMUZ(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTO1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRE1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRE2(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR2(KLON) 
+REAL(KIND=JPRB) :: ZTMP   (4,KFDIA-KIDIA+1)
+REAL(KIND=JPRB) :: ZTMP2  (KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZTMP3  (KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZZARG  (KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZZARG2 (KFDIA-KIDIA+1+N_VMASS)
+
+INTEGER(KIND=JPIM) :: JL, JLL, JLEN
+
+REAL(KIND=JPRB) :: ZA11, ZA12, ZA13, ZA21, ZA22, ZA23, ZALPHA,&
+ & ZAM2B, ZAP2B,  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  
+
+
+REAL(KIND=JPRB) :: MINJ, MAXJ, X, Y
+REAL(KIND=JPRB) :: ZPRMUZ,ZIDENA,ZIDENB,ZRR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     STATEMENT DUNCTIONS
+MINJ(X,Y) = Y - 0.5_JPRB*(ABS(X-Y)-(X-Y))
+MAXJ(X,Y) = Y + 0.5_JPRB*(ABS(X-Y)+(X-Y))
+
+!     ------------------------------------------------------------------
+
+!*         1.      DELTA-EDDINGTON CALCULATIONS
+
+IF (LHOOK) CALL DR_HOOK('SWDE',0,ZHOOK_HANDLE)
+
+ZDT = 2.0_JPRB/3._JPRB
+
+  DO JL   =   KIDIA,KFDIA
+    JLL=JL-KIDIA+1
+    ZPRMUZ=1.0_JPRB/PRMUZ(JL)
+!++MODIFCODE
+  IF (NOVLP >= 5) THEN !MESONH_VERSION
+   ZGP = PGG(JL)
+   ZTOP = PTO1(JL)
+   ZWCP = PW(JL)  
+  ELSE !ECMWF VERSION
+    ZFF = PGG(JL)*PGG(JL)
+    ZGP = PGG(JL)/(1.0_JPRB+PGG(JL))
+    ZTOP = (1.0_JPRB- PW(JL) * ZFF) * PTO1(JL)
+    ZWCP = (1-ZFF)* PW(JL) /(1.0_JPRB- PW(JL) * ZFF)
+  ENDIF
+!--MODIFCODE
+    ZX1 = 1.0_JPRB-ZWCP*ZGP
+    ZWM = 1.0_JPRB-ZWCP
+    ZRM2 =  PRMUZ(JL) * PRMUZ(JL)
+    ZRK = SQRT(MAXJ(REPLOG,3._JPRB*ZWM*ZX1))
+    ZX2 = (1.0_JPRB-ZRK*ZRK*ZRM2)*(4._JPRB/3._JPRB)
+    ZRR = 1.0_JPRB/ZX2
+    ZRP=ZRK/ZX1
+    ZALPHA = ZWCP*ZRM2*(1.0_JPRB+ZGP*ZWM)*ZRR 
+    ZBETA = ZWCP* PRMUZ(JL) *(1.0_JPRB+3._JPRB*ZGP*ZRM2*ZWM)*ZRR 
+    ZZARG(JLL)   = -MAXJ( -200._JPRB, MINJ( ZTOP*ZPRMUZ, 200._JPRB) )
+    ZZARG2(JLL)  = MINJ( ZRK*ZTOP, 200._JPRB)
+    ZTMP(1,JLL) = ZPRMUZ
+    ZTMP(2,JLL) = ZALPHA
+    ZTMP(3,JLL) = ZBETA
+    ZTMP(4,JLL) = ZRP
+  ENDDO
+
+  IF(N_VMASS /= 0 ) THEN  !USING VECTOR MASS
+    JLEN=KFDIA-KIDIA+N_VMASS-MOD(KFDIA-KIDIA,N_VMASS)
+    IF(KFDIA-KIDIA+1 /= JLEN) THEN
+      ZZARG  (KFDIA-KIDIA+2:JLEN)=1.0_JPRB
+      ZZARG2 (KFDIA-KIDIA+2:JLEN)=1.0_JPRB
+    ENDIF
+! Commente par MPL le 21.11.08
+!   CALL VEXP(ZTMP2,ZZARG, JLEN)
+!   CALL VEXP(ZTMP3,ZZARG2,JLEN)
+  ELSE
+    DO JL   =   KIDIA,KFDIA
+      JLL=JL-KIDIA+1
+      ZTMP2(JLL) = EXP(ZZARG(JLL))
+      ZTMP3(JLL) = EXP(ZZARG2(JLL))
+    ENDDO
+  ENDIF
+
+  DO JL   =   KIDIA,KFDIA
+    JLL=JL-KIDIA+1
+    ZEXMU0 = ZTMP2(JLL)
+    ZEXKP  = ZTMP3(JLL)
+    ZPRMUZ = ZTMP(1,JLL)
+    ZALPHA = ZTMP(2,JLL)
+    ZBETA  = ZTMP(3,JLL)
+    ZRP    = ZTMP(4,JLL)
+    ZEXKM = 1.0_JPRB/ZEXKP
+    ZXP2P = 1.0_JPRB+ZDT*ZRP
+    ZXM2P = 1.0_JPRB-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
+    ZIDENA=1.0_JPRB/ZDENA
+    ZC1A = (ZA22*ZA13-ZA12*ZA23)*ZIDENA
+    ZC2A = (ZA11*ZA23-ZA21*ZA13)*ZIDENA
+    ZRI0A = ZC1A+ZC2A-ZALPHA
+    ZRI1A = ZRP*(ZC1A-ZC2A)-ZBETA
+    PRE1(JL) = (ZRI0A-ZDT*ZRI1A)*ZPRMUZ
+    ZRI0B = ZC1A*ZEXKM+ZC2A*ZEXKP-ZALPHA*ZEXMU0
+    ZRI1B = ZRP*(ZC1A*ZEXKM-ZC2A*ZEXKP)-ZBETA*ZEXMU0
+    PTR1(JL) = ZEXMU0+(ZRI0B+ZDT*ZRI1B)*ZPRMUZ
+
+!*         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
+    ZIDENB= 1.0_JPRB/ZDENB
+    ZC1B = (ZB22*ZA13-ZA12*ZB23)*ZIDENB
+    ZC2B = (ZA11*ZB23-ZB21*ZA13)*ZIDENB
+    ZRI0C = ZC1B+ZC2B-ZALPHA
+    ZRI1C = ZRP*(ZC1B-ZC2B)-ZBETA
+    PRE2(JL) = (ZRI0C-ZDT*ZRI1C) * ZPRMUZ
+    ZRI0D = ZC1B*ZEXKM + ZC2B*ZEXKP - ZALPHA*ZEXMU0
+    ZRI1D = ZRP * (ZC1B*ZEXKM - ZC2B*ZEXKP) - ZBETA*ZEXMU0
+    PTR2(JL) = ZEXMU0 + (ZRI0D + ZDT*ZRI1D) * ZPRMUZ
+  ENDDO
+
+IF (LHOOK) CALL DR_HOOK('SWDE',1,ZHOOK_HANDLE)
+END SUBROUTINE SWDE
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swde.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swde.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swde.intfb.h	(revision 3330)
@@ -0,0 +1,22 @@
+INTERFACE
+SUBROUTINE SWDE&
+ & ( KIDIA, KFDIA, KLON,&
+ & PGG , PREF , PRMUZ, PTO1, PW,&
+ & PRE1 , PRE2 , PTR1 , PTR2&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOMJFH , ONLY : N_VMASS
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PGG(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMUZ(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTO1(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PW(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRE1(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRE2(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR1(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR2(KLON)
+END SUBROUTINE SWDE
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swni.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swni.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swni.F90	(revision 3330)
@@ -0,0 +1,634 @@
+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, PDIFF , PDIRF, &
+!++MODIFCODE
+& LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST )
+!--MODIFCODE
+
+!**** *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
+!        03-03-17   JJMorcrette        Sunshine duration (correction)
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        04-11-18   Y.Seity : add 2 arguments for AROME extern. surface
+!        Y.Seity  05-10-10 : add add 3 optional arg. for dust SW properties
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RRAY     ,RSUN     ,RSWCE    ,RSWCP
+!++MODIFCODE
+!USE YOERAD   , ONLY : NSW      ,NOVLP
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NOVLP
+!--MODIFCODE
+USE YOERDU   , ONLY : REPLOG   ,REPSCQ   ,REPSC
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+character*1 str1
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAKI(KLON,2,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLEAR(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUD(KLON,5,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KLON,KLEV) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU2(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIFF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIRF(KLON,KLEV) 
+!#include "yoeaer.h"
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+INTEGER(KIND=JPIM) :: IIND2(2), IIND3(6)
+REAL(KIND=JPRB) :: ZCGAZ(KLON,KLEV)  , ZDIFF(KLON)         , ZDIRF(KLON)&
+ & ,  ZFD(KLON,KLEV+1)  , ZFU(KLON,KLEV+1) &
+ & ,  ZG(KLON)          , ZGG(KLON)  
+REAL(KIND=JPRB) :: 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,6)         , ZR4(KLON,2)&
+ & ,  ZR21(KLON)        , ZR22(KLON)  
+REAL(KIND=JPRB) :: 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,6)       , ZW4(KLON,2)         , ZW5(KLON,2)  
+
+INTEGER(KIND=JPIM) :: IABS, IKL, IKM1, JABS, JAJ, JAJP, JK, JKKI,&
+ & JKKP4, JKL, JKLP1, JKM1, JL, JN, JN2J, JREF  
+
+REAL(KIND=JPRB) :: ZAA, ZBB, ZCNEB, ZRE11, ZRKI, ZRMUM1, ZWH2O, ZCHKG, ZCHKS
+REAL(KIND=JPRB) :: ZRR,ZRRJ,ZRRK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!++MODIF_CODE
+REAL(KIND=JPRB) :: ZB_ODI(KLON)
+!--MODIF_CODE
+LOGICAL         :: LLDEBUG
+
+#include "swclr.intfb.h"
+#include "swde.intfb.h"
+#include "swr.intfb.h"
+#include "swtt.intfb.h"
+#include "swtt1.intfb.h"
+
+LLDEBUG=.FALSE.
+
+IF(LLDEBUG) THEN
+  write(str1,'(i1)') knu
+! call writefield_phy("sw_zcduvs"//str1,zcduvs,klev+1)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         1.     NEAR-INFRARED SPECTRAL INTERVAL (0.68-4.00 MICRON)
+!                 --------------------------------------------------
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWNI',0,ZHOOK_HANDLE)
+DO JL = KIDIA,KFDIA
+  ZRMUM1 = 1.0_JPRB - 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)     ))))  
+  ZRAYL(JL) = MAX (ZRAYL(JL), 0.0_JPRB) 
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+
+!++MODIFCODE
+   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 &
+        &, LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST &
+        &)
+!--MODIFCODE
+
+!*         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) > REPSC ) THEN
+        ZWH2O=MAX(PWV(JL,IKL),REPSCQ)
+        ZCNEB=MAX(REPSC ,MIN(ZRNEB(JL),1.0_JPRB-REPSC ))
+        ZBB=PUD(JL,JABS,JKM1)*PQS(JL,IKL)/ZWH2O
+        ZAA=MAX((PUD(JL,JABS,JKM1)-ZCNEB*ZBB)/(1.0_JPRB-ZCNEB),REPSCQ)
+      ELSE
+        ZAA=PUD(JL,JABS,JKM1)
+        ZBB=ZAA
+        ZCNEB=0.0_JPRB
+        ZWH2O=MAX(PWV(JL,IKL),REPSCQ)
+      ENDIF
+      
+!      ZEXP1=-ZRKI * ZAA * 1.66_JPRB
+!      ZEXP2=-ZRKI * ZAA / ZRMUE(JL,JK)
+!      IF ( ZEXP1 > _ZERO_ .OR. ZEXP2 > _ZERO_ &
+!        & .OR. ZEXP1 < -700._JPRB .OR. ZEXP2 < -700._JPRB ) THEN
+!        WRITE (NULOUT,'(" SWNI 3.2 : JK=",I4," JL=",I4," JABS=",I4,,8E13.6)') &
+!         & JK,JL,JABS,ZAA,ZBB,ZRKI,ZCNEB,ZWH2O,ZRMUE(JL,JK),ZEXP1,ZEXP2
+!      END IF        
+      
+      ZRKI = PAKI(JL,JABS,KNU)
+!      ZS(JL) = EXP(-ZRKI * ZAA * 1.66_JPRB)
+!      ZG(JL) = EXP(-ZRKI * ZAA / ZRMUE(JL,JK) )
+      
+      ZCHKS = MIN( 200._JPRB, ZRKI * ZAA * 1.66_JPRB )
+      ZCHKG = MIN( 200._JPRB, ZRKI * ZAA / ZRMUE(JL,JK))
+      ZS(JL) = EXP( - ZCHKS )
+      ZG(JL) = EXP( - ZCHKG )
+      
+      ZTR1(JL) = 0.0_JPRB
+      ZRE1(JL) = 0.0_JPRB
+      ZTR2(JL) = 0.0_JPRB
+      ZRE2(JL) = 0.0_JPRB
+
+!++MODIFCODE
+    IF (NOVLP >= 5)THEN !MESONH VERSION
+       ZW(JL) =PCG(JL,KNU,JKM1)*PCG(JL,KNU,JKM1)
+       ZTO1(JL) = PTAU(JL,KNU,JKM1)*(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+       ZW(JL) =POMEGA(JL,KNU,JKM1)*(1-ZW(JL))/(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+       ZGG(JL) =PCG(JL,KNU,JKM1)/(1+PCG(JL,KNU,JKM1))
+       ZGG(JL)=ZTO1(JL)*ZW(JL)*ZGG(JL)+ZTAUAZ(JL,JKM1)*ZPIZAZ(JL,JKM1)*ZCGAZ(JL,JKM1)
+       ZGG(JL)=ZGG(JL)/(ZTO1(JL)*ZW(JL)+ZTAUAZ(JL,JKM1)*ZPIZAZ(JL,JKM1))
+       ZB_ODI(JL)=ZTO1(JL) / ZW(JL)&
+         &+ ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)&
+     !if g=0 tau/w=tau'/w'
+         &+ ZBB * ZRKI
+       ZB_ODI(JL)=(1/( (ZTO1(JL) / ZW(JL))&
+         &+ (ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)) ))-(1/ZB_ODI(JL))
+       ZB_ODI(JL)=((ZTO1(JL) +  ZTAUAZ(JL,JKM1))**2)*ZB_ODI(JL)
+       ZW(JL)=ZTO1(JL)*ZW(JL)+ZTAUAZ(JL,JKM1)*ZPIZAZ(JL,JKM1)-ZB_ODI(JL)
+       ZTO1(JL) = ZTO1(JL) +  ZTAUAZ(JL,JKM1)
+       ZW(JL)=ZW(JL)/ZTO1(JL)
+     ELSE !ECMWF VERSION
+    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)&
+       & + (1.0_JPRB - ZR22(JL)) * ZCGAZ(JL,JKM1)  
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+    ENDIF
+!--MODIFCODE
+      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
+
+      ZRR=1.0_JPRB/(1.0_JPRB-ZRAY2(JL,JKM1)*ZREFZ(JL,1,JKM1))
+      ZREFZ(JL,2,JK) = (1.0_JPRB-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) * (1.0_JPRB-ZRNEB(JL))  
+
+      ZREFZ(JL,1,JK)=(1.0_JPRB-ZRNEB(JL))*(ZRAY1(JL,JKM1)&
+       & +ZREFZ(JL,1,JKM1)*ZTRA1(JL,JKM1)*ZTRA2(JL,JKM1)&
+       & *ZRR ) &
+       & *ZG(JL)*ZS(JL)&
+       & + ZRNEB(JL) * ZRE2(JL)  
+
+      ZTR(JL,1,JKM1)= ZRNEB(JL) * ZTR2(JL)&
+       & + (ZTRA1(JL,JKM1) &
+       & *ZRR ) &
+       & * ZG(JL) * (1.0_JPRB -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) = 1.0_JPRB
+      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
+        ZRR=1.0_JPRB/PAKI(JL,JAJ,KNU)
+        ZRRJ=ZRJ(JL,JN,JK) / ZRJ(JL,JN2J,JK)
+        ZRRK=ZRK(JL,JN,JK) / ZRK(JL,JN2J,JK)
+!        ZW2(JL,1) = LOG( ZRRJ ) * ZRR
+!        ZW2(JL,2) = LOG( ZRRK ) * ZRR
+!--correction Olivier Boucher based on ECMWF code 
+        ZW2(JL,1) = LOG( MAX(1.0_JPRB,ZRRJ) ) * ZRR
+        ZW2(JL,2) = LOG( MAX(1.0_JPRB,ZRRK) ) * ZRR
+      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
+!   WRITE(*,'("---> Dans SWNI: ZRK1 ZRK2  ",2E12.5)') ZRK(1,1,JK),ZRK(1,2,JK)
+!   WRITE(*,'("ZRK1 ZRL5 ZRL7  ",3E12.5)') ZRK(1,1,JK),ZRL(1,5),ZRL(1,7)
+!   WRITE(*,'("ZRK2 ZRL6 ZRL8  ",3E12.5)') ZRK(1,2,JK),ZRL(1,6),ZRL(1,8)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         5.    MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
+!                ----------------------------------------
+
+!*         5.1   DOWNWARD FLUXES
+!                ---------------
+
+JAJ = 2
+IIND3(1)=1
+IIND3(2)=2
+IIND3(3)=3
+IIND3(4)=1
+IIND3(5)=2
+IIND3(6)=3
+
+DO JL = KIDIA,KFDIA
+  ZW3(JL,1)=0.0_JPRB
+  ZW3(JL,2)=0.0_JPRB
+  ZW3(JL,3)=0.0_JPRB
+  ZW3(JL,4)=0.0_JPRB
+  ZW3(JL,5)=0.0_JPRB
+  ZW3(JL,6)=0.0_JPRB
+
+  ZW4(JL,1)=0.0_JPRB
+  ZW5(JL,1)=0.0_JPRB
+  ZR4(JL,1)=1.0_JPRB
+  ZW4(JL,2)=0.0_JPRB
+  ZW5(JL,2)=0.0_JPRB
+  ZR4(JL,2)=1.0_JPRB
+  ZFD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1)
+ENDDO
+DO JK = 1 , KLEV
+  IKL = KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZRR=1.0_JPRB/ZRMU0(JL,IKL)
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKL)*ZRR
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKL)*ZRR
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKL)*ZRR
+    ZW4(JL,1)=ZW4(JL,1)+PUD(JL,4,IKL)*ZRR
+    ZW5(JL,1)=ZW5(JL,1)+PUD(JL,5,IKL)*ZRR
+
+    ZRR=1.0_JPRB/ZRMUE(JL,IKL)
+    ZW3(JL,4)=ZW3(JL,4)+PUD(JL,1,IKL)*ZRR
+    ZW3(JL,5)=ZW3(JL,5)+PUD(JL,2,IKL)*ZRR
+    ZW3(JL,6)=ZW3(JL,6)+POZ(JL,  IKL)*ZRR
+    ZW4(JL,2)=ZW4(JL,2)+PUD(JL,4,IKL)*ZRR
+    ZW5(JL,2)=ZW5(JL,2)+PUD(JL,5,IKL)*ZRR
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 6, IIND3,&
+   & ZW3,&
+   & ZR3                              )  
+
+  DO JL = KIDIA,KFDIA
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+    ZR4(JL,2) = EXP(-RSWCE(KNU)*ZW4(JL,2)-RSWCP(KNU)*ZW5(JL,2))
+    ZFD(JL,IKL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL,1)* ZRJ0(JL,JAJ,IKL)
+  ENDDO
+ENDDO
+IF(LLDEBUG) THEN
+  call writefield_phy('swni_zfd'//str1,ZFD,KLEV+1)
+  call writefield_phy('swni_zrj0'//str1,ZRJ0(:,jaj,:),KLEV+1)
+ENDIF
+
+DO JL=KIDIA,KFDIA
+  ZDIFF(JL) = ZR3(JL,4)*ZR3(JL,5)*ZR3(JL,6)*ZR4(JL,2)*ZTRCLD(JL)
+  ZDIRF(JL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL,1)*ZTRCLR(JL)
+  PSUDU2(JL) = ((1.0_JPRB-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,1)=ZW4(JL,1)+PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL,1)=ZW5(JL,1)+PUD(JL,5,IKM1)*1.66_JPRB
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 3, IIND3,&
+   & ZW3,&
+   & ZR3                              )  
+
+  DO JL = KIDIA,KFDIA
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+    ZFU(JL,JK) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL,1)* 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)=0.0_JPRB
+  ZW4(JL,1)=0.0_JPRB
+  ZW5(JL,1)=0.0_JPRB
+  ZR1(JL)=0.0_JPRB
+  PFDOWN(JL,KLEV+1) = ((1.0_JPRB-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
+    ZRR=1.0_JPRB/ZRMUE(JL,IKL)
+    ZW1(JL) = ZW1(JL)+POZ(JL,  IKL) * ZRR
+    ZW4(JL,1) = ZW4(JL,1)+PUD(JL,4,IKL) * ZRR
+    ZW5(JL,1) = ZW5(JL,1)+PUD(JL,5,IKL) * ZRR
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PDIFF(JL,IKL)=ZR1(JL)*ZR4(JL,1)*PFDOWN(JL,IKL)*RSUN(KNU)*(1.0_JPRB-PCLEAR(JL))
+    PDIRF(JL,IKL)=ZFD(JL,IKL)*RSUN(KNU)* PCLEAR(JL)
+    PFDOWN(JL,IKL) = ((1.0_JPRB-PCLEAR(JL))*ZR1(JL)*ZR4(JL,1)*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) = ((1.0_JPRB-PCLEAR(JL))*ZR1(JL)*ZR4(JL,1) * 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,1) = ZW4(JL,1)+PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL,1) = ZW5(JL,1)+PUD(JL,5,IKM1)*1.66_JPRB
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PFUP(JL,JK) = ((1.0_JPRB-PCLEAR(JL))*ZR1(JL)*ZR4(JL,1) * PFUP(JL,JK)&
+     & +PCLEAR(JL)*ZFU(JL,JK)) * RSUN(KNU)  
+    PCUP(JL,JK) = ZFU(JL,JK) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+IF(LLDEBUG) THEN
+  call writefield_phy('swni_zfd_fin'//str1,ZFD,KLEV+1)
+  call writefield_phy('swni_pcdown'//str1,PCDOWN,KLEV+1)
+ENDIF
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWNI',1,ZHOOK_HANDLE)
+END SUBROUTINE SWNI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swni.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swni.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swni.intfb.h	(revision 3330)
@@ -0,0 +1,46 @@
+INTERFACE
+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, PDIFF , PDIRF,&
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAKI(KLON,2,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLEAR(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUD(KLON,5,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU2(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRF(KLON,KLEV)
+END SUBROUTINE SWNI
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swr.F90	(revision 3330)
@@ -0,0 +1,471 @@
+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
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!USE YOERAD   , ONLY : NOVLP    ,NSW
+! NSW mis dans ;def MPL 20140211
+USE YOERAD   , ONLY : NOVLP    
+USE YOECLD   , ONLY : REPSEC
+USE YOEOVLP  , ONLY : RA1OVLP
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h" 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PREFZ(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRJ(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRK(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRMUE(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRCLD(KLON) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: 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)  
+
+INTEGER(KIND=JPIM) :: IKL, IKLP1, JA, JAJ, JK, JKM1, JL, INU1
+
+REAL(KIND=JPRB) :: ZBMU0, ZBMU1, ZCORAE, ZCORCD, ZDEN, ZDEN1,&
+ & ZFACOA, ZFACOC, ZGAP, ZMU1, ZMUE, ZRE11, &
+ & ZTO, ZWW, ZALPHA1, ZCHKAE, ZCHKCD  
+REAL(KIND=JPRB) :: ZRR,ZIMU1,ZI2MU1,ZIDEN,ZIDEN1
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL         :: LLDEBUG
+
+#include "swde.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+IF (LHOOK) CALL DR_HOOK('SWR',0,ZHOOK_HANDLE)
+LLDEBUG=.FALSE.
+DO JK = 1 , KLEV+1
+  DO JA = 1 , 6
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JA,JK) = 0.0_JPRB
+      PRK(JL,JA,JK) = 0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+
+REPSEC=1.E-12_JPRB    !!!!! A REVOIR (MPL) 220109
+
+!     ------------------------------------------------------------------
+
+!*         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+!                ----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZR23(JL) = 0.0_JPRB
+  ZC1I(JL,KLEV+1) = 0.0_JPRB
+  ZCLEAR(JL) = 1.0_JPRB
+  ZCLOUD(JL) = 0.0_JPRB
+ENDDO
+
+JK = 1
+IKL = KLEV+1 - JK
+IKLP1 = IKL + 1
+ZALPHA1=RA1OVLP( IKL )
+DO JL = KIDIA,KFDIA
+!++MODIFCODE
+  IF (NOVLP >= 5) THEN !MESONH VERSION
+   stop 'provisoire pour verifier option novlp=1'
+   ZFACOA =PTAUAZ(JL,IKL) 
+   ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+   ZCORAE = ZFACOA * PSEC(JL)
+   ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+  ELSE !ECMWF VERSION
+ZFACOA = 1.0_JPRB - PPIZAZ(JL,IKL)*PCGAZ(JL,IKL)*PCGAZ(JL,IKL)
+  ZFACOC = 1.0_JPRB - 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)
+  ENDIF
+!--MODIFCODE
+  ZCHKAE = MIN( 200._JPRB, ZCORAE )
+  ZCHKCD = MIN( 200._JPRB, ZCORCD )
+  ZR21(JL) = EXP( - ZCHKAE )
+  ZR22(JL) = EXP( - ZCHKCD )
+  
+  ZSS1(JL) = PCLD(JL,IKL)*(1.0_JPRB-ZR21(JL)*ZR22(JL))&
+   & + (1.0_JPRB-PCLD(JL,IKL))*(1.0_JPRB-ZR21(JL))  
+  ZCLEQ(JL,IKL) = ZSS1(JL)
+
+!++MODIFCODE
+  IF ((NOVLP == 1).OR.(NOVLP == 8)) THEN
+!--MODIFCODE
+!* maximum-random      
+    ZCLEAR(JL) = ZCLEAR(JL)&
+     & *(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL)))&
+     & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC))  
+    ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL)
+    ZCLOUD(JL) = ZSS1(JL)
+  ELSEIF (NOVLP == 2) THEN
+!IM150716  stop 'provisoire pour verifier option novlp=1b'
+   print*,'rrtm provisoire pour verifier option novlp=2 maximum'
+!* maximum
+    ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
+    ZC1I(JL,IKL) = ZCLOUD(JL)
+!++MODIFCODE
+  ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
+!IM150716  stop 'provisoire pour verifier option novlp=1c'
+    print*,'rrtm provisoire pour verifier option novlp=3 random'
+!--MODIFCODE
+!* random
+    ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - ZSS1(JL))
+    ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+    ZC1I(JL,IKL) = ZCLOUD(JL)
+  ELSEIF (NOVLP == 4) THEN
+   stop 'provisoire pour verifier option novlp=1d'
+!* Hogan & Illingworth, 2001  
+    ZCLEAR(JL)=ZCLEAR(JL)*( &
+     & ZALPHA1*(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL))) &
+     & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC)) &
+     & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-ZSS1(JL)) )  
+    ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL) 
+    ZCLOUD(JL) = ZSS1(JL)
+  ENDIF
+ENDDO
+
+DO JK = 2 , KLEV
+  IKL = KLEV+1 - JK
+  IKLP1 = IKL + 1
+  ZALPHA1=RA1OVLP( IKL )
+  DO JL = KIDIA,KFDIA
+!++MODIFCODE
+    IF (NOVLP >= 5) THEN !MESONH VERSION
+     ZFACOA =PTAUAZ(JL,IKL) 
+     ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+     ZCORAE = ZFACOA * PSEC(JL)
+     ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+    ELSE !ECMWF VERSION
+    ZFACOA = 1.0_JPRB - PPIZAZ(JL,IKL)*PCGAZ(JL,IKL)*PCGAZ(JL,IKL)
+    ZFACOC = 1.0_JPRB - 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)
+    ENDIF
+!--MODIFCODE
+!    ZR21(JL) = EXP(-ZCORAE   )
+!    ZR22(JL) = EXP(-ZCORCD   )
+
+    ZCHKAE = MIN( 200._JPRB, ZCORAE )
+    ZCHKCD = MIN( 200._JPRB, ZCORCD )
+    ZR21(JL) = EXP( - ZCHKAE )
+    ZR22(JL) = EXP( - ZCHKCD )
+
+    ZSS1(JL) = PCLD(JL,IKL)*(1.0_JPRB-ZR21(JL)*ZR22(JL))&
+     & + (1.0_JPRB-PCLD(JL,IKL))*(1.0_JPRB-ZR21(JL))  
+    ZCLEQ(JL,IKL) = ZSS1(JL)
+
+!++MODIFCODE
+    IF ((NOVLP == 1).OR.(NOVLP == 8)) THEN
+!--MODIFCODE
+!* maximum-random      
+      ZCLEAR(JL) = ZCLEAR(JL)&
+       & *(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL)))&
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC))  
+      ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL)
+      ZCLOUD(JL) = ZSS1(JL)
+    ELSEIF (NOVLP == 2) THEN
+!* maximum
+      ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
+      ZC1I(JL,IKL) = ZCLOUD(JL)
+!++MODIFCODE
+  ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
+!--MODIFCODE
+!* random
+      ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - ZSS1(JL))
+      ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+      ZC1I(JL,IKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 4) THEN
+!* Hogan & Illingworth, 2001  
+      ZCLEAR(JL)=ZCLEAR(JL)*( &
+       & ZALPHA1*(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL))) &
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC)) &
+       & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-ZSS1(JL)) )  
+      ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL) 
+      ZCLOUD(JL) = ZSS1(JL)
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+!                -----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PRAY1(JL,KLEV+1) = 0.0_JPRB
+  PRAY2(JL,KLEV+1) = 0.0_JPRB
+  PREFZ(JL,2,1) = PALBD(JL,KNU)
+  PREFZ(JL,1,1) = PALBD(JL,KNU)
+  PTRA1(JL,KLEV+1) = 1.0_JPRB
+  PTRA2(JL,KLEV+1) = 1.0_JPRB
+ENDDO
+
+DO JK = 2 , KLEV+1
+  JKM1 = JK-1
+  DO JL = KIDIA,KFDIA
+    ZRNEB(JL)= PCLD(JL,JKM1)
+    ZRE1(JL)=0.0_JPRB
+    ZTR1(JL)=0.0_JPRB
+    ZRE2(JL)=0.0_JPRB
+    ZTR2(JL)=0.0_JPRB
+
+!     ------------------------------------------------------------------
+
+!*         3.1  EQUIVALENT ZENITH ANGLE
+!               -----------------------
+
+    ZMUE = (1.0_JPRB-ZC1I(JL,JK)) * PSEC(JL)+ ZC1I(JL,JK) * 1.66_JPRB
+    PRMUE(JL,JK) = 1.0_JPRB/ZMUE
+
+!     ------------------------------------------------------------------
+
+!*         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+!               ----------------------------------------------------
+
+    ZGAP = PCGAZ(JL,JKM1)
+    ZBMU0 = 0.5_JPRB - 0.75_JPRB * ZGAP / ZMUE
+    ZWW = PPIZAZ(JL,JKM1)
+    ZTO = PTAUAZ(JL,JKM1)
+    ZDEN = 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU0 * ZWW) * ZTO * ZMUE &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU0*ZWW)*ZTO*ZTO*ZMUE*ZMUE  
+    ZIDEN=1.0_JPRB/ZDEN
+    PRAY1(JL,JKM1) = ZBMU0 * ZWW * ZTO * ZMUE * ZIDEN
+    PTRA1(JL,JKM1) = ZIDEN
+
+    ZMU1 = 0.5_JPRB
+    ZIMU1=2.0_JPRB
+    ZI2MU1=4.0_JPRB
+    ZBMU1 = 0.5_JPRB - 0.75_JPRB * ZGAP * ZMU1
+    ZDEN1= 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU1 * ZWW) * ZTO * ZIMU1 &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU1*ZWW)*ZTO*ZTO*ZI2MU1  
+    ZIDEN1=1.0_JPRB/ZDEN1
+    PRAY2(JL,JKM1) = ZBMU1 * ZWW * ZTO * ZIMU1 * ZIDEN1
+    PTRA2(JL,JKM1) = ZIDEN1
+
+!     ------------------------------------------------------------------
+
+!*         3.3  EFFECT OF CLOUD LAYER
+!               ---------------------
+
+
+!++MODIFCODE
+    IF (NOVLP >= 5)THEN !MESONH VERSION
+     ZW(JL) =PCG(JL,KNU,JKM1)*PCG(JL,KNU,JKM1)
+     ZTO1(JL) = PTAU(JL,KNU,JKM1)*(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+     ZW(JL) =POMEGA(JL,KNU,JKM1)*(1-ZW(JL))/(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+     ZGG(JL) = PCG(JL,KNU,JKM1)/(1+PCG(JL,KNU,JKM1))
+     ZGG(JL)=ZTO1(JL)*ZW(JL)*ZGG(JL)+PTAUAZ(JL,JKM1)*PPIZAZ(JL,JKM1)*PCGAZ(JL,JKM1)
+     ZW(JL) =ZTO1(JL)*ZW(JL)+PTAUAZ(JL,JKM1)*PPIZAZ(JL,JKM1)
+     ZTO1(JL) = ZTO1(JL) +  PTAUAZ(JL,JKM1)
+     ZGG(JL)=ZGG(JL)/ZW(JL)
+     ZW(JL) =ZW(JL)/ZTO1(JL)
+    ELSE !ECMWF VERSION
+    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)&
+     & + (1.0_JPRB - ZR22(JL)) * PCGAZ(JL,JKM1)  
+    IF (ZW(JL) == 1.0_JPRB .AND. PPIZAZ(JL,JKM1) == 1.0_JPRB) THEN
+      ZW(JL)=1.0_JPRB
+    ELSE
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+     ENDIF
+    ENDIF
+!--MODIFCODE
+    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
+
+    ZRR=1.0_JPRB/(1.0_JPRB-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1))
+
+    PREFZ(JL,1,JK) = (1.0_JPRB-ZRNEB(JL)) * (PRAY1(JL,JKM1)&
+     & + PREFZ(JL,1,JKM1) * PTRA1(JL,JKM1)&
+     & * PTRA2(JL,JKM1)&
+     & * ZRR ) &
+     & + ZRNEB(JL) * ZRE2(JL)  
+
+    ZTR(JL,1,JKM1) = ZRNEB(JL) * ZTR2(JL) + (PTRA1(JL,JKM1)&
+     & * ZRR ) &
+     & * (1.0_JPRB-ZRNEB(JL))  
+
+    PREFZ(JL,2,JK) = (1.0_JPRB-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) * (1.0_JPRB-ZRNEB(JL))
+
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZMUE = (1.0_JPRB-ZC1I(JL,1))*PSEC(JL)+ZC1I(JL,1)*1.66_JPRB
+  PRMUE(JL,1)=1.0_JPRB/ZMUE
+  PTRCLD(JL)=1.0_JPRB-ZC1I(JL,1)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!                 -------------------------------------------------
+
+IF (NSW <= 4) THEN
+  INU1=1
+ELSEIF (NSW == 6) THEN
+  INU1=3
+ENDIF    
+
+IF (KNU <= INU1) THEN
+  JAJ = 2
+  DO JL = KIDIA,KFDIA
+    PRJ(JL,JAJ,KLEV+1) = 1.0_JPRB
+    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) = 1.0_JPRB
+      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
+IF(LLDEBUG) THEN
+ call writefield_phy ('swr_zc1i',ZC1I,KLEV+1)
+ call writefield_phy ('swr_zss1',ZSS1,1)
+ call writefield_phy ('swr_zclear',ZCLEAR,1)
+ call writefield_phy ('swr_prmue',PRMUE,KLEV+1)
+ call writefield_phy ('swr_psec',PSEC,1)
+ call writefield_phy ('swr_prmue',PRMUE,KLEV+1)
+ call writefield_phy ('swr_ppizaz',PPIZAZ,KLEV)
+ call writefield_phy ('swr_pcgaz',PCGAZ,KLEV)
+ call writefield_phy ('swr_pcg',PCG,KLEV)
+ call writefield_phy ('swr_ptau',PTAU(:,1,:),KLEV)
+ call writefield_phy ('swr_ptauaz',PTAUAZ,KLEV)
+ call writefield_phy ('swr_pcld',PCLD,KLEV)
+ENDIF
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWR',1,ZHOOK_HANDLE)
+END SUBROUTINE SWR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swr.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swr.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swr.intfb.h	(revision 3330)
@@ -0,0 +1,35 @@
+INTERFACE
+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&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP 
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRK(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRMUE(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRCLD(KLON)
+END SUBROUTINE SWR
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt.F90	(revision 3330)
@@ -0,0 +1,104 @@
+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
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+   
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : APAD     ,BPAD     ,D
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR(KLON) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZR1(KLON), ZR2(KLON)
+
+INTEGER(KIND=JPIM) :: JL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-----------------------------------------------------------------------
+
+!*         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+IF (LHOOK) CALL DR_HOOK('SWTT',0,ZHOOK_HANDLE)
+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)) * (1.0_JPRB - D(KNU,KA)) + D(KNU,KA)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('SWTT',1,ZHOOK_HANDLE)
+END SUBROUTINE SWTT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt.intfb.h	(revision 3330)
@@ -0,0 +1,12 @@
+INTERFACE
+SUBROUTINE SWTT ( KIDIA, KFDIA, KLON, KNU, KA , PU, PTR)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+INTEGER(KIND=JPIM),INTENT(IN) :: KA
+REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON)
+END SUBROUTINE SWTT
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt1.F90	(revision 3330)
@@ -0,0 +1,117 @@
+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
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+   
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : APAD     ,BPAD     ,D
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KABS 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIND(KABS) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PU(KLON,KABS) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR(KLON,KABS) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZR1(KLON), ZR2(KLON), ZU(KLON)
+REAL(KIND=JPRB) :: ZRR
+
+INTEGER(KIND=JPIM) :: IA, JA, JL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-----------------------------------------------------------------------
+
+!*         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+IF (LHOOK) CALL DR_HOOK('SWTT1',0,ZHOOK_HANDLE)
+DO JA = 1,KABS
+  IA=KIND(JA)
+! print *,'SWTT1: KNU', KNU
+  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) ))))))  
+!    print *,'SWTT1 ZU APAD',IA,ZU(JL),APAD(KNU,IA,1),APAD(KNU,IA,2),&
+!    &APAD(KNU,IA,3),APAD(KNU,IA,4),APAD(KNU,IA,5),APAD(KNU,IA,6),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) ))))))  
+    ZRR=1.0_JPRB/ZR2(JL)
+
+!*         2.      ADD THE BACKGROUND TRANSMISSION
+
+    PTR(JL,JA) = (ZR1(JL)*ZRR) * (1.0_JPRB-D(KNU,IA)) + D(KNU,IA)
+  ENDDO
+ENDDO
+!WRITE(*,'("---> Dans SWTT1, PTR : "10E12.5)') (PTR(1,JA),JA=1,KABS)
+
+IF (LHOOK) CALL DR_HOOK('SWTT1',1,ZHOOK_HANDLE)
+END SUBROUTINE SWTT1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt1.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt1.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swtt1.intfb.h	(revision 3330)
@@ -0,0 +1,13 @@
+INTERFACE
+SUBROUTINE SWTT1 ( KIDIA,KFDIA,KLON,KNU,KABS,KIND, PU, PTR )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KABS
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+INTEGER(KIND=JPIM),INTENT(IN) :: KIND(KABS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON,KABS)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON,KABS)
+END SUBROUTINE SWTT1
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swu.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swu.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swu.F90	(revision 3330)
@@ -0,0 +1,259 @@
+!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
+!        03-03-18   JJMorcrette  security on normalized cloud cover
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOECLD   , ONLY : REPSEC
+!USE YOERAD   , ONLY :   NOVLP    ,NSW
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY :   NOVLP    
+USE YOERDU   , ONLY : REPSCQ
+USE YOESW    , ONLY : RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,&
+ & RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG  
+USE YOEOVLP  , ONLY : RA1OVLP
+
+IMPLICIT NONE
+
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSCT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCARDI 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDSW(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPSOL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAKI(KLON,2,NSW) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCLEAR(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFACT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRMU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PUD(KLON,5,KLEV+1) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM) :: INUIR  
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+INTEGER(KIND=JPIM) :: IIND(2)
+REAL(KIND=JPRB) :: 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)  
+
+INTEGER(KIND=JPIM) :: JA, JK, JKL, JKLP1, JKP1, JL, JNU
+
+REAL(KIND=JPRB) :: ZDSCO2, ZDSH2O, ZFPPW, ZRTH, ZRTU, ZWH2O, ZALPHA1
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "swtt1.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTES AMOUNTS OF ABSORBERS
+!                 -----------------------------
+
+REPSEC=1.E-12_JPRB   !!!!! A REVOIR (MPL)
+IF (LHOOK) CALL DR_HOOK('SWU',0,ZHOOK_HANDLE)
+IIND(1)=1
+IIND(2)=2
+
+!*         1.1    INITIALIZES QUANTITIES
+!                 ----------------------
+
+DO JL = KIDIA,KFDIA
+  PUD(JL,1,KLEV+1)=0.0_JPRB
+  PUD(JL,2,KLEV+1)=0.0_JPRB
+  PUD(JL,3,KLEV+1)=0.0_JPRB
+  PUD(JL,4,KLEV+1)=0.0_JPRB
+  PUD(JL,5,KLEV+1)=0.0_JPRB
+  PFACT(JL)= PRMU0(JL) * PSCT
+!- already accounted for in RADINT      
+!      PRMU(JL)=SQRT(1224.* PRMU0(JL) * PRMU0(JL) + 1.) / 35.
+  PRMU(JL)=PRMU0(JL)
+  PSEC(JL)=1.0_JPRB/PRMU(JL)
+  ZC1J(JL,KLEV+1)=0.0_JPRB
+ENDDO
+
+!*          1.3    AMOUNTS OF ABSORBERS
+!                  --------------------
+
+DO JL= KIDIA,KFDIA
+  ZUD(JL,1) = 0.0_JPRB
+  ZUD(JL,2) = 0.0_JPRB
+  ZO175(JL) = PPSOL(JL)** RPDU1
+  ZO190(JL) = PPSOL(JL)** RPDH1
+  ZSIGO(JL) = PPSOL(JL)
+  ZCLEAR(JL)=1.0_JPRB
+  ZCLOUD(JL)=0.0_JPRB
+ENDDO
+
+DO JK = 1 , KLEV
+  JKP1 = JK + 1
+  JKL = KLEV+1 - JK
+  JKLP1 = JKL+1
+  ZALPHA1=RA1OVLP(KLEV+1-JK)
+  
+  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/(1.0_JPRB+0.608_JPRB*ZWH2O)
+    PUD(JL,4,JK)=PUD(JL,1,JK)*ZFPPW
+    PUD(JL,5,JK)=PUD(JL,1,JK)*(1.0_JPRB-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)
+!print *,'SWU: RTH2O RTDH2O RTUMG RTDUMG',RTH2O,RTDH2O,RTUMG,RTDUMG
+!print *,'SWU: RPNH ZDSH2O ZWH2O ZRTH',RPNH,ZDSH2O,ZWH2O,ZRTH
+!print *,'SWU: RPNU ZDSCO2 PCARDI ZRTU',RPNU,ZDSCO2,PCARDI,ZRTU
+
+!++MODIFCODE
+    IF ((NOVLP == 1).OR.(NOVLP==6).OR.(NOVLP==8)) THEN
+      ZCLEAR(JL)=ZCLEAR(JL)&
+       & *(1.0_JPRB-MAX(PCLDSW(JL,JKL),ZCLOUD(JL)))&
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC))  
+      ZC1J(JL,JKL)= 1.0_JPRB - ZCLEAR(JL)
+      ZCLOUD(JL) = PCLDSW(JL,JKL)
+    ELSEIF ((NOVLP == 2).OR.(NOVLP==7)) THEN
+      ZCLOUD(JL) = MAX(PCLDSW(JL,JKL),ZCLOUD(JL))
+      ZC1J(JL,JKL) = ZCLOUD(JL)
+    ELSEIF ((NOVLP == 3).OR.(NOVLP==5)) THEN
+      ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB-PCLDSW(JL,JKL))
+      ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+      ZC1J(JL,JKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+      ZCLEAR(JL)=ZCLEAR(JL)*( &
+       & ZALPHA1*(1.0_JPRB-MAX(PCLDSW(JL,JKL),ZCLOUD(JL))) &
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC)) &
+       & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-PCLDSW(JL,JKL)) )  
+      ZC1J(JL,JKL) = 1.0_JPRB - ZCLEAR(JL) 
+      ZCLOUD(JL) = PCLDSW(JL,JKL)
+    ENDIF
+!--MODIFCODE
+  ENDDO
+ENDDO
+
+DO JL=KIDIA,KFDIA
+  PCLEAR(JL)=1.0_JPRB-ZC1J(JL,1)
+ENDDO
+DO JK=1,KLEV
+  DO JL=KIDIA,KFDIA
+    IF (PCLEAR(JL) < 1.0_JPRB) THEN
+      PCLD(JL,JK)=PCLDSW(JL,JK)/(1.0_JPRB-PCLEAR(JL))
+    ELSE
+      PCLD(JL,JK)=0.0_JPRB
+    ENDIF
+    PCLD(JL,JK)=MAX(0.0_JPRB,MIN(1.0_JPRB,PCLD(JL,JK)))
+  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 <= 4) THEN
+  INUIR=2
+ELSEIF (NSW == 6) THEN
+  INUIR=4
+ENDIF     
+
+DO JNU= INUIR,NSW
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, JNU, 2, 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
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWU',1,ZHOOK_HANDLE)
+END SUBROUTINE SWU
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swu.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swu.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swu.intfb.h	(revision 3330)
@@ -0,0 +1,31 @@
+INTERFACE
+SUBROUTINE SWU&
+ & ( KIDIA, KFDIA , KLON , KLEV,&
+ & PSCT , PCARDI, PCLDSW, PPMB , PPSOL, PRMU0, PTAVE, PWV,&
+ & PAKI , PCLD , PCLEAR, PDSIG, PFACT, PRMU , PSEC , PUD&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
+REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAKI(KLON,2,NSW)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCLEAR(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFACT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PUD(KLON,5,KLEV+1)
+END SUBROUTINE SWU
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swuvo3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swuvo3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swuvo3.F90	(revision 3330)
@@ -0,0 +1,146 @@
+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*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 00-12-18
+!        Modified J. HAGUE          03-01-03 MASS Vector Functions       
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+   
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : NEXPO3, REXPO3
+USE YOMJFH   , ONLY : N_VMASS
+USE write_field_phy
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KABS 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PU(KLON,KABS) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR(KLON,KABS) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZU(KLON)
+REAL(KIND=JPRB) :: ZTMP1(KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZTMP2(KFDIA-KIDIA+1+N_VMASS)
+
+INTEGER(KIND=JPIM) ::  JA, JL, IEXP, JX, JLEN
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL LLDEBUG
+
+IF (LHOOK) CALL DR_HOOK('SWUVO3',0,ZHOOK_HANDLE)
+IEXP=NEXPO3(KNU)
+LLDEBUG=.FALSE.
+
+!print *,'Dans SWUVO3, N_VMASS= ',N_VMASS
+IF(N_VMASS > 0) THEN
+  JLEN=KFDIA-KIDIA+N_VMASS-MOD(KFDIA-KIDIA,N_VMASS)
+  IF(KFDIA-KIDIA+1 /= JLEN) THEN
+    ZTMP1(KFDIA-KIDIA+2:JLEN) = 0.0_JPRB
+  ENDIF
+ENDIF
+
+DO JA = 1,KABS
+  DO JL=KIDIA,KFDIA
+    PTR(JL,JA)=0.0_JPRB
+  ENDDO
+  
+! Ce qui concerne N_VMASS commente par MPL 20.11.08
+! IF(N_VMASS <= 0) THEN ! Do not use Vector Mass
+
+!       WRITE(*,'("---> Dans SWUVO3 ")')
+    DO JX=1,IEXP
+      DO JL = KIDIA,KFDIA
+        ZU(JL) = PU(JL,JA)
+        PTR(JL,JA) = PTR(JL,JA)+REXPO3(KNU,1,JX)*EXP(-REXPO3(KNU,2,JX)*ZU(JL))
+!       WRITE(*,'("                 PTR ",E12.5)') (PTR(JL,JA))
+!       WRITE(*,'("REXPO3-1 ",E12.5)') (REXPO3(KNU,1,JX))
+!       WRITE(*,'("REXPO3-2 ",E12.5)') (REXPO3(KNU,2,JX))
+!       WRITE(*,'("ZU ",E12.5)') (ZU(JL))
+!       WRITE(*,'("KNU KABS IEXP ",3I6)') KNU,KABS,IEXP
+      ENDDO
+    ENDDO
+
+
+! ELSE  ! Use Vector MASS
+
+!   DO JX=1,IEXP
+!     DO JL = KIDIA,KFDIA
+!       ZTMP1(JL-KIDIA+1)=-REXPO3(KNU,2,JX)*PU(JL,JA)
+!     ENDDO
+  
+!     CALL VEXP(ZTMP2,ZTMP1,JLEN)
+  
+!     DO JL = KIDIA,KFDIA
+!       PTR(JL,JA) = PTR(JL,JA)+REXPO3(KNU,1,JX)*ZTMP2(JL-KIDIA+1)
+!     ENDDO
+!   ENDDO    
+
+! ENDIF
+
+ENDDO
+
+IF(LLDEBUG) THEN
+    call writefield_phy("swuvo3_pu",pu,kabs)
+    call writefield_phy("swuvo3_ptr",ptr,kabs)
+ENDIF
+
+IF (LHOOK) CALL DR_HOOK('SWUVO3',1,ZHOOK_HANDLE)
+END SUBROUTINE SWUVO3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swuvo3.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swuvo3.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/swuvo3.intfb.h	(revision 3330)
@@ -0,0 +1,16 @@
+INTERFACE
+SUBROUTINE SWUVO3&
+ & ( KIDIA,KFDIA,KLON,KNU,KABS,&
+ & PU, PTR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOMJFH , ONLY : N_VMASS
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KABS
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON,KABS)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON,KABS)
+END SUBROUTINE SWUVO3
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_constants.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_constants.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_constants.F90	(revision 3330)
@@ -0,0 +1,10 @@
+MODULE TPM_CONSTANTS
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+REAL(KIND=JPRB) :: RA=6371229._JPRB   ! Radius of Earth
+
+END MODULE TPM_CONSTANTS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_dim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_dim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_dim.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE TPM_DIM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE DIM_TYPE
+! SPECTRAL SPACE DIMENSIONS
+
+  INTEGER(KIND=JPIM) :: NSMAX      ! Truncation order
+  INTEGER(KIND=JPIM) :: NTMAX
+  INTEGER(KIND=JPIM) :: NSPOLEG    ! Number of Legandre polynomials
+  INTEGER(KIND=JPIM) :: NSPEC_G    ! Number of complex spectral coefficients (global)
+  INTEGER(KIND=JPIM) :: NSPEC2_G   ! 2*NSPEC_G
+
+! COLLOCATION GRID DIMENSIONS
+  
+  INTEGER(KIND=JPIM) :: NDGL       ! Number of rows of latitudes
+  INTEGER(KIND=JPIM) :: NDLON      ! Maximum number of longitude points (near equator)
+  INTEGER(KIND=JPIM) :: NDGNH      ! Number of rows in northern hemisphere
+
+! Legendre transform dimensions
+  INTEGER(KIND=JPIM) :: NLEI1      ! R%NSMAX+4+MOD(R%NSMAX+4+1,2)
+  INTEGER(KIND=JPIM) :: NLEI3      ! R%NDGNH+MOD(R%NDGNH+2,2)
+  INTEGER(KIND=JPIM) :: NLED3      ! R%NTMAX+2+MOD(R%NTMAX+3,2)
+  INTEGER(KIND=JPIM) :: NLED4      ! R%NTMAX+3+MOD(R%NTMAX+4,2)
+END TYPE DIM_TYPE
+
+TYPE(DIM_TYPE),ALLOCATABLE,TARGET :: DIM_RESOL(:)
+TYPE(DIM_TYPE),POINTER     :: R
+
+!$OMP THREADPRIVATE(r)
+!$OMP THREADPRIVATE(dim_resol)
+
+
+END MODULE TPM_DIM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_distr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_distr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_distr.F90	(revision 3330)
@@ -0,0 +1,167 @@
+MODULE TPM_DISTR
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*    Variables describing distributed memory parallelization
+
+INTEGER(KIND=JPIM) :: NPROC     ! Number of processors (NPRGPNS*NPRGPEW) 
+INTEGER(KIND=JPIM) :: NPRGPNS   ! No. of sets in N-S direction (grid-point space)
+INTEGER(KIND=JPIM) :: NPRGPEW   ! No. of sets in E-W direction (grid-point space)
+INTEGER(KIND=JPIM) :: NPRTRW    ! No. of sets in wave direction (spectral space)
+INTEGER(KIND=JPIM) :: NPRTRV    ! NPROC/NPRTRW
+INTEGER(KIND=JPIM) :: NPRTRNS   ! No. of sets in N-S direction (Fourier space)
+                                ! (always equal to NPRTRW)
+LOGICAL            :: LEQ_REGIONS ! TRUE - Use new eq_regions partitioning
+                                  ! FALSE- Use old NPRGPNS x NPRGPEW partitioning
+INTEGER(KIND=JPIM) :: MYPROC    ! My processor number
+INTEGER(KIND=JPIM) :: MYSETW    ! My set number in wave direction (spectral space) 
+INTEGER(KIND=JPIM) :: MYSETV    ! My set number in field direction(S.S and F.S)
+INTEGER(KIND=JPIM) :: NCOMBFLEN ! Size of communication buffer
+
+INTEGER(KIND=JPIM) :: MTAGLETR   ! Tag
+INTEGER(KIND=JPIM) :: MTAGML     ! Tag
+INTEGER(KIND=JPIM) :: MTAGLG     ! Tag
+INTEGER(KIND=JPIM) :: MTAGGL     ! Tag
+INTEGER(KIND=JPIM) :: MTAGPART   ! Tag
+INTEGER(KIND=JPIM) :: MTAGDISTSP ! Tag
+INTEGER(KIND=JPIM) :: MTAGLM     ! Tag
+INTEGER(KIND=JPIM) :: MTAGDISTGP ! Tag
+ 
+INTEGER(KIND=JPIM) ,ALLOCATABLE :: NPRCIDS(:) ! Array containing the process ids
+
+TYPE DISTR_TYPE
+LOGICAL   :: LSPLIT             ! TRUE - latitudes are shared between a-sets
+INTEGER(KIND=JPIM) :: NAPSETS   ! Number of apple sets at the poles. Default is zero.
+
+! SPECTRAL SPACE
+
+INTEGER(KIND=JPIM) :: NUMP      ! No. of spectral waves handled by this processor
+INTEGER(KIND=JPIM) :: NSPEC     ! No. of complex spectral coefficients (on this PE)
+INTEGER(KIND=JPIM) :: NSPEC2    ! 2*NSPEC
+INTEGER(KIND=JPIM) :: NSPEC2MX  ! maximun NSPEC2 among all PEs
+INTEGER(KIND=JPIM) :: NTPEC2
+INTEGER(KIND=JPIM) :: NUMTP
+
+
+
+INTEGER(KIND=JPIM) :: NSPOLEGL  ! No. of legendre polynomials on this PE
+INTEGER(KIND=JPIM) :: NLEI3D    ! (NLEI3-1)/NPRTRW+1
+
+INTEGER(KIND=JPIM) ,POINTER :: MYMS(:)    ! Wave numbers handled by this PE
+INTEGER(KIND=JPIM) ,POINTER :: NUMPP(:)   ! No. of wave numbers each wave set is
+                                 ! responsible for
+INTEGER(KIND=JPIM) ,POINTER :: NPOSSP(:)  ! Not needed in transform?
+INTEGER(KIND=JPIM) ,POINTER :: NPROCM(:)  ! Process that does the calc. for certain 
+                                 ! wavenumber M
+INTEGER(KIND=JPIM) ,POINTER :: NDIM0G(:)  ! Defines partitioning of global spectral
+                                 ! fields among PEs
+
+INTEGER(KIND=JPIM) ,POINTER :: NASM0(:)  ! Address in a spectral array of (m, n=m)
+INTEGER(KIND=JPIM) ,POINTER :: NATM0(:)  ! Same as NASM0 but for NTMAX
+INTEGER(KIND=JPIM) ,POINTER :: NALLMS(:) ! Wave numbers for all a-set concatenated
+                                ! together to give all wave numbers in a-set
+                                ! order. Used when global spectral norms 
+                                ! have to be gathered.
+INTEGER(KIND=JPIM) ,POINTER :: NPTRMS(:) ! Pointer to the first wave number of a given
+                                ! a-set in nallms array.
+
+
+! Legendre polynomials
+
+INTEGER(KIND=JPIM) ,POINTER :: NLATLS(:) ! First latitude for which each a-set calcul.
+INTEGER(KIND=JPIM) ,POINTER :: NLATLE(:) ! Last latitude for which each a-set calcul.
+
+INTEGER(KIND=JPIM) ,POINTER :: NPMT(:) ! Adress for legendre polynomial for
+                              ! given M (NTMAX)
+INTEGER(KIND=JPIM) ,POINTER :: NPMS(:) ! Adress for legendre polynomial for
+                              ! given M (NSMAX)
+INTEGER(KIND=JPIM) ,POINTER :: NPMG(:) ! Global version of NPMS
+
+! FOURIER SPACE
+
+INTEGER(KIND=JPIM) :: NDGL_FS ! Number of rows of latitudes for which this process is
+                     ! performing Fourier Space calculations
+
+INTEGER(KIND=JPIM) ,POINTER  :: NSTAGTF(:) ! Offset for specific latitude in 
+                                  ! Fourier/gridpoint buffer
+INTEGER(KIND=JPIM) :: NLENGTF ! Second dimension of Fourier/gridpoint buffer 
+                     ! (sum of (NLOEN+3) over local latitudes)
+
+INTEGER(KIND=JPIM) ,POINTER :: NULTPP(:) ! No of lats. for each wave_set  (F.S)
+INTEGER(KIND=JPIM) ,POINTER :: NPROCL(:) ! Process responsible for each lat. (F.S)
+INTEGER(KIND=JPIM) ,POINTER :: NPTRLS(:) ! Pointer to first lat. (F.S)
+
+INTEGER(KIND=JPIM) ,POINTER :: NSTAGT0B(:) ! Start adresses for segments within buffer
+                                  ! (according to processors to whom data 
+                                  ! is going to be sent) 
+INTEGER(KIND=JPIM) ,POINTER :: NSTAGT1B(:) 
+INTEGER(KIND=JPIM) ,POINTER :: NPNTGTB0(:,:)
+INTEGER(KIND=JPIM) ,POINTER :: NPNTGTB1(:,:)
+INTEGER(KIND=JPIM) ,POINTER :: NLTSFTB(:)  
+
+INTEGER(KIND=JPIM) ,POINTER :: NLTSGTB(:)
+INTEGER(KIND=JPIM) ,POINTER :: MSTABF(:)
+
+INTEGER(KIND=JPIM) :: NLENGT0B
+INTEGER(KIND=JPIM) :: NLENGT1B
+
+! GRIDPOINT SPACE
+
+INTEGER(KIND=JPIM) :: NDGL_GP ! D%NLSTLAT(MY_REGION_NS)-D%NFRSTLOFF
+INTEGER(KIND=JPIM) ,POINTER :: NFRSTLAT(:) ! First lat of each a-set 
+INTEGER(KIND=JPIM) ,POINTER :: NLSTLAT(:)  ! Last lat of each a-set 
+INTEGER(KIND=JPIM) :: NFRSTLOFF ! Offset for first lat of own a-set 
+                       ! i.e. NFRSTLOFF=NFRSTLAT(MYSETA)-1
+INTEGER(KIND=JPIM) ,POINTER :: NPTRLAT(:) ! Pointer to start of latitude 
+INTEGER(KIND=JPIM) ,POINTER :: NPTRFRSTLAT(:) ! Pointer to the first latitude of each 
+                                     ! a-set in NSTA and NONL arrays
+INTEGER(KIND=JPIM) ,POINTER :: NPTRLSTLAT(:) ! Pointer to the last latitude of each
+                                    ! a-set in NSTA and NONL arrays
+INTEGER(KIND=JPIM) :: NPTRFLOFF ! Offset for pointer to the first latitude of own a-set
+                       ! NSTA and NONL arrays, i.e. NPTRFRSTLAT(MYSETA)-1
+LOGICAL   ,POINTER :: LSPLITLAT(:) ! True if latitude is split over 2 a-sets
+
+!  NSTA(R%NDGL+NPRGPNS-1,NPRGPEW) :  Position of first grid column
+!             for the latitudes on a processor. The information is
+!             available for all processors. The b-sets are distinguished
+!             by the last dimension of NSTA(). The latitude band for
+!             each a-set is addressed by NPTRFRSTLAT(JASET),
+!             NPTRLSTLAT(JASET), and NPTRFLOFF=NPTRFRSTLAT(MYSETA) on
+!             this processors a-set. Each split latitude has two entries
+!             in NSTA(,:) which necessitates the rather complex
+!             addressing of NSTA(,:) and the overdimensioning of NSTA by
+!             NPRGPNS.
+!  NONL(R%NDGL+NPRGPNS-1,NPRGPEW)  :  Number of grid columns for
+!             the latitudes on a processor. Similar to NSTA() in data
+!             structure.
+INTEGER(KIND=JPIM) ,POINTER :: NSTA(:,:)
+INTEGER(KIND=JPIM) ,POINTER :: NONL(:,:)
+
+INTEGER(KIND=JPIM) :: NGPTOT   ! Total number of grid columns on this PE
+INTEGER(KIND=JPIM) :: NGPTOTG  ! Total number of grid columns on the Globe
+INTEGER(KIND=JPIM) :: NGPTOTMX ! Maximum number of grid columns on any of the PEs
+INTEGER(KIND=JPIM) ,POINTER :: NGPTOTL(:,:) ! Number of grid columns on each PE.
+
+END TYPE DISTR_TYPE
+
+TYPE(DISTR_TYPE),ALLOCATABLE,TARGET :: DISTR_RESOL(:)
+TYPE(DISTR_TYPE),POINTER     :: D
+
+!$OMP THREADPRIVATE(d,leq_regions,mtagdistgp,mtagdistsp,mtaggl,mtagletr)
+!$OMP THREADPRIVATE(mtaglg,mtaglm,mtagml,mtagpart,myproc,mysetv,mysetw)
+!$OMP THREADPRIVATE(ncombflen,nprgpew,nprgpns,nproc,nprtrns,nprtrv,nprtrw)
+
+!$OMP THREADPRIVATE(distr_resol)
+
+END MODULE TPM_DISTR
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_fft.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_fft.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_fft.F90	(revision 3330)
@@ -0,0 +1,18 @@
+MODULE TPM_FFT
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE FFT_TYPE
+  REAL(KIND=JPRB)   ,POINTER :: TRIGS(:,:)
+  INTEGER(KIND=JPIM),POINTER :: NFAX(:,:)
+END TYPE FFT_TYPE
+
+TYPE(FFT_TYPE),ALLOCATABLE,TARGET :: FFT_RESOL(:)
+TYPE(FFT_TYPE),POINTER     :: T
+
+!$OMP THREADPRIVATE(t)
+
+END MODULE TPM_FFT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_fields.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_fields.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_fields.F90	(revision 3330)
@@ -0,0 +1,25 @@
+MODULE TPM_FIELDS
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE FIELDS_TYPE
+REAL(KIND=JPRB) ,POINTER :: RPNM(:,:) ! Legendre polynomials
+REAL(KIND=JPRB) ,POINTER :: RMU(:)    ! sin(theta) for Gaussian latitudes
+REAL(KIND=JPRB) ,POINTER :: RW(:)     ! Weights of the Gaussian quadrature
+REAL(KIND=JPRB) ,POINTER :: R1MU2(:)  ! 1.-MU*MU, cos(theta)**2
+REAL(KIND=JPRB) ,POINTER :: RACTHE(:) ! 1./SQRT(R1MU2), 1/(cos(theta))
+
+REAL(KIND=JPRB) ,POINTER :: REPSNM(:) ! eps(n,m) used in the Legendre transforms
+REAL(KIND=JPRB) ,POINTER :: RN(:)     ! n (to avoid integer to real conversion)
+REAL(KIND=JPRB) ,POINTER :: RLAPIN(:) ! eigen-values of the inverse Laplace operator
+INTEGER(KIND=JPIM) ,POINTER :: NLTN(:) ! R%NTMAX+2-JN
+END TYPE FIELDS_TYPE
+
+TYPE(FIELDS_TYPE),ALLOCATABLE,TARGET :: FIELDS_RESOL(:)
+TYPE(FIELDS_TYPE),POINTER     :: F
+
+END MODULE TPM_FIELDS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_gen.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_gen.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_gen.F90	(revision 3330)
@@ -0,0 +1,28 @@
+MODULE TPM_GEN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+INTEGER(KIND=JPIM) :: NOUT            ! Unit number for "standard" output
+INTEGER(KIND=JPIM) :: NERR            ! Unit number for error messages
+INTEGER(KIND=JPIM) :: NPRINTLEV       ! Printing level, 0=no print, 1=standard,2=debug
+
+INTEGER(KIND=JPIM) :: MSETUP0 = 0     ! Control of setup calls
+INTEGER(KIND=JPIM) :: NMAX_RESOL = 0  ! Maximum allowed number of resolutions
+INTEGER(KIND=JPIM) :: NCUR_RESOL = 0  ! Current resolution
+INTEGER(KIND=JPIM) :: NDEF_RESOL = 0  ! Number of defined resolutions
+INTEGER(KIND=JPIM) :: NPROMATR        ! Packet size for transform (in no of fields)
+                             ! NPROMATR=0 means do all fields together (dflt)
+
+LOGICAL   :: LALLOPERM       ! Allocate some shared data structures permanently
+LOGICAL   :: LIMP            ! true: use immediate message passing 
+LOGICAL   :: LIMP_NOOLAP     ! true: use immediate message passing 
+LOGICAL   :: LMPOFF          ! true: switch off message passing
+
+!$OMP THREADPRIVATE(lalloperm,limp,limp_noolap,lmpoff,msetup0,ncur_resol)
+!$OMP THREADPRIVATE(ndef_resol,nerr,nmax_resol,nout,nprintlev,npromatr)
+
+END MODULE TPM_GEN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_geometry.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_geometry.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_geometry.F90	(revision 3330)
@@ -0,0 +1,24 @@
+MODULE TPM_GEOMETRY
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE GEOM_TYPE
+INTEGER(KIND=JPIM),POINTER :: NLOEN(:) ! NUMBER OF POINTS ON A PARALLEL
+INTEGER(KIND=JPIM),POINTER :: NMEN(:)  ! ASSOCIATED CUT-OFF WAVE NUMBER
+INTEGER(KIND=JPIM),POINTER :: NDGLU(:) ! NUMBER OF HEMISPERIC LATITUDES
+!                                   FOR A GIVEN WAVE NUMBER M 
+
+LOGICAL :: LREDUCED_GRID
+LOGICAL :: LINEAR_GRID
+END TYPE GEOM_TYPE
+
+TYPE(GEOM_TYPE),ALLOCATABLE,TARGET :: GEOM_RESOL(:)
+TYPE(GEOM_TYPE),POINTER     :: G
+
+!$OMP THREADPRIVATE(g)
+!$OMP THREADPRIVATE(geom_resol)
+
+END MODULE TPM_GEOMETRY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_trans.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_trans.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/tpm_trans.F90	(revision 3330)
@@ -0,0 +1,49 @@
+MODULE TPM_TRANS
+
+! Module to contain variables "local" to a specific call to a transform
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!INTEGER_M :: NF_UV      ! Number of u-v fields (spectral/fourier space)
+!INTEGER_M :: NF_SCALARS ! Number of scalar fields (spectral/fourier space)
+!INTEGER_M :: NF_SCDERS  ! Number of fields for derivatives of scalars
+                        ! (inverse transform, spectral/fourier space)
+!INTEGER_M :: NF_OUT_LT  ! Number of fields that comes out of Inverse 
+                        ! Legendre transform
+INTEGER(KIND=JPIM) :: NF_SC2
+INTEGER(KIND=JPIM) :: NF_SC3A
+INTEGER(KIND=JPIM) :: NF_SC3B
+
+!LOGICAL   :: LUV        ! uv fields requested
+!LOGICAL   :: LSCALAR    ! scalar fields requested
+LOGICAL   :: LVORGP     ! vorticity requested
+LOGICAL   :: LDIVGP     ! divergence requested
+LOGICAL   :: LUVDER     ! E-W derivatives of U and V requested
+LOGICAL   :: LSCDERS    ! derivatives of scalar variables are req.
+
+!INTEGER_M :: NLEI2 ! 8*NF_UV + 2*NF_SCALARS + 2*NF_SCDERS (dimension in 
+                   ! inverse  Legendre transform)
+!INTEGER_M :: NLED2 ! 2*NF_FS (dimension in direct Legendre transform)
+
+!INTEGER_M :: NF_FS    ! Total number of fields in Fourier space
+
+!INTEGER_M :: NF_GP        ! Total number of field in grid-point space
+!INTEGER_M :: NF_UV_G      ! Global version of NF_UV (grid-point space)
+!INTEGER_M :: NF_SCALARS_G ! Global version of NF_SCALARS (grid-point space)
+
+REAL(KIND=JPRB), ALLOCATABLE :: FOUBUF_IN(:)  ! Fourier buffer 
+REAL(KIND=JPRB), ALLOCATABLE :: FOUBUF(:)     ! Fourier buffer
+
+INTEGER(KIND=JPIM) :: NPROMA  ! Blocking factor for gridpoint input/output
+INTEGER(KIND=JPIM) :: NGPBLKS ! Number of NPROMA blocks
+
+!$OMP THREADPRIVATE(ldivgp,lscders,luvder,lvorgp,nf_sc2,nf_sc3a,nf_sc3b,ngpblks,nproma)
+!$OMP THREADPRIVATE(foubuf_in,foubuf)
+
+END MODULE TPM_TRANS
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/trans_inq.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/trans_inq.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/trans_inq.F90	(revision 3330)
@@ -0,0 +1,377 @@
+SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
+                    &KGPTOT,KGPTOTG,KGPTOTMX,KGPTOTL,&
+                    &KMYMS,KASM0,KUMPP,KPOSSP,KPTRMS,KALLMS,KDIM0G,&
+                    &KFRSTLAT,KLSTLAT,KFRSTLOFF,KPTRLAT,&
+                    &KPTRFRSTLAT,KPTRLSTLAT,KPTRFLOFF,KSTA,KONL,&
+                    &KULTPP,KPTRLS,&
+                    &LDSPLITLAT,&
+                    &PMU,PGW,PRPNM,KLEI3,KSPOLEGL,KPMS)
+
+!**** *TRANS_INQ* - Extract information from the transform package
+
+!     Purpose.
+!     --------
+!     Interface routine for extracting information from the T.P.
+
+!**   Interface.
+!     ----------
+!     CALL TRANS_INQ(...)
+!     Explicit arguments : All arguments are optional.
+!     -------------------- 
+!     KRESOL   - resolution tag for which info is required ,default is the
+!                first defined resulution (input)
+
+!                   SPECTRAL SPACE
+!     KSPEC    - number of complex spectral coefficients on this PE
+!     KSPEC2   - 2*KSPEC 
+!     KSPEC2G  - global KSPEC2
+!     KSPEC2MX - maximun KSPEC2 among all PEs
+!     KNUMP    - Number of spectral waves handled by this PE
+!     KGPTOT   - Total number of grid columns on this PE
+!     KGPTOTG  - Total number of grid columns on the Globe
+!     KGPTOTMX - Maximum number of grid columns on any of the PEs
+!     KGPTOTL  - Number of grid columns one each PE (dimension N_REGIONS_NS:N_REGIONS_EW)
+!     KMYMS    - This PEs spectral zonal wavenumbers
+!     KASM0    - Address in a spectral array of (m, n=m)
+!     KUMPP    - No. of wave numbers each wave set is responsible for
+!     KPOSSP   - Defines partitioning of global spectral fields among PEs
+!     KPTRMS   - Pointer to the first wave number of a given a-set
+!     KALLMS   - Wave numbers for all wave-set concatenated together 
+!                to give all wave numbers in wave-set order
+!     KDIM0G   - Defines partitioning of global spectral fields among PEs
+
+!                 GRIDPOINT SPACE                  
+!     KFRSTLAT    - First latitude of each a-set in grid-point space
+!     KLSTTLAT    - Last latitude of each a-set in grid-point space
+!     KFRSTLOFF   - Offset for first lat of own a-set in grid-point space
+!     KPTRLAT     - Pointer to the start of each latitude
+!     KPTRFRSTLAT - Pointer to the first latitude of each a-set in 
+!                   NSTA and NONL arrays
+!     KPTRLSTLAT  - Pointer to the last latitude of each a-set in
+!                   NSTA and NONL arrays
+!     KPTRFLOFF   - Offset for pointer to the first latitude of own a-set
+!                   NSTA and NONL arrays, i.e. nptrfrstlat(myseta)-1
+!     KSTA        - Position of first grid column for the latitudes on a 
+!                   processor. The information is available for all processors.
+!                   The b-sets are distinguished by the last dimension of 
+!                   nsta().The latitude band for each a-set is addressed by 
+!                   nptrfrstlat(jaset),nptrlstlat(jaset), and 
+!                   nptrfloff=nptrfrstlat(myseta) on this processors a-set.
+!                   Each split latitude has two entries in nsta(,:) which 
+!                   necessitates the rather complex addressing of nsta(,:)
+!                   and the overdimensioning of nsta by N_REGIONS_NS.
+!     KONL        - Number of grid columns for the latitudes on a processor.
+!                   Similar to nsta() in data structure.
+!     LDSPLITLAT  - TRUE if latitude is split in grid point space over 
+!                   two a-sets
+
+!                FOURIER SPACE
+!     KULTPP   - number of latitudes for which each a-set is calculating 
+!                the FFT's.
+!     KPTRLS   - pointer to first global latitude of each a-set for which
+!                it performs the Fourier calculations
+
+!                 LEGENDRE
+!     PMU      - sin(Gaussian latitudes)
+!     PGW      - Gaussian weights
+!     PRPNM    - Legendre polynomials
+!     KLEI3    - First dimension of Legendre polynomials
+!     KSPOLEGL - Second dimension of Legendre polynomials
+!     KPMS     - Adress for legendre polynomial for given M (NSMAX)
+
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL - set resolution
+!     ----------  
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+!        M. Hortal : 2001-03-05 Dimensions of the Legendre polynomials
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+!ifndef INTERFACE
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FIELDS
+
+USE SET_RESOL_MOD
+USE ABORT_TRANS_MOD
+USE EQ_REGIONS_MOD
+
+!endif INTERFACE
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2G
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2MX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNUMP
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOT
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTG
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTMX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTL(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLOFF
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFLOFF
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KMYMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KASM0(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KUMPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPOSSP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KALLMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KDIM0G(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSTA(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KONL(:,:)
+LOGICAL   ,OPTIONAL, INTENT(OUT) :: LDSPLITLAT(:)
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KULTPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLS(:)
+
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PMU(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PGW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRPNM(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLEI3
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPOLEGL
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPMS(0:)
+
+!ifndef INTERFACE
+
+INTEGER(KIND=JPIM) :: IU1,IU2
+!     ------------------------------------------------------------------
+
+
+! Set current resolution
+CALL SET_RESOL(KRESOL)
+
+IF(PRESENT(KSPEC))     KSPEC     = D%NSPEC
+IF(PRESENT(KSPEC2))    KSPEC2    = D%NSPEC2
+IF(PRESENT(KSPEC2G))   KSPEC2G   = R%NSPEC2_G
+IF(PRESENT(KSPEC2MX))  KSPEC2MX  = D%NSPEC2MX
+IF(PRESENT(KNUMP))     KNUMP     = D%NUMP
+IF(PRESENT(KGPTOT))    KGPTOT    = D%NGPTOT
+IF(PRESENT(KGPTOTG))   KGPTOTG   = D%NGPTOTG
+IF(PRESENT(KGPTOTMX))  KGPTOTMX  = D%NGPTOTMX
+IF(PRESENT(KFRSTLOFF)) KFRSTLOFF = D%NFRSTLOFF
+IF(PRESENT(KPTRFLOFF)) KPTRFLOFF = D%NPTRFLOFF
+
+IF(PRESENT(KGPTOTL)) THEN
+  IF(UBOUND(KGPTOTL,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KGPTOTL DIM 1 TOO SMALL')
+  ELSEIF(UBOUND(KGPTOTL,2) <  N_REGIONS_EW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KGPTOTL DIM 2 TOO SMALL')
+  ELSE
+    KGPTOTL(1:N_REGIONS_NS,1:N_REGIONS_EW) = D%NGPTOTL(:,:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KMYMS)) THEN
+  IF(UBOUND(KMYMS,1) < D%NUMP) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KMYMS TOO SMALL')
+  ELSE
+    KMYMS(1:D%NUMP) = D%MYMS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KASM0)) THEN
+  IF(UBOUND(KASM0,1) < R%NSMAX) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KASM0 TOO SMALL')
+  ELSE
+    KASM0(0:R%NSMAX) = D%NASM0(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KUMPP)) THEN
+  IF(UBOUND(KUMPP,1) < NPRTRW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KUMPP TOO SMALL')
+  ELSE
+    KUMPP(1:NPRTRW) = D%NUMPP(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPOSSP)) THEN
+  IF(UBOUND(KPOSSP,1) < NPRTRW+1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPOSSP TOO SMALL')
+  ELSE
+    KPOSSP(1:NPRTRW+1) = D%NPOSSP(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRMS)) THEN
+  IF(UBOUND(KPTRMS,1) < NPRTRW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRMS TOO SMALL')
+  ELSE
+    KPTRMS(1:NPRTRW) = D%NPTRMS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KALLMS)) THEN
+  IF(UBOUND(KALLMS,1) < R%NSMAX+1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KALLMS TOO SMALL')
+  ELSE
+    KALLMS(1:R%NSMAX+1) = D%NALLMS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KDIM0G)) THEN
+  IF(UBOUND(KDIM0G,1) < R%NSMAX) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KDIM0G TOO SMALL')
+  ELSE
+    KDIM0G(0:R%NSMAX) = D%NDIM0G(0:R%NSMAX)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KFRSTLAT)) THEN
+  IF(UBOUND(KFRSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KFRSTLAT TOO SMALL')
+  ELSE
+    KFRSTLAT(1:N_REGIONS_NS) = D%NFRSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KLSTLAT)) THEN
+  IF(UBOUND(KLSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KLSTLAT TOO SMALL')
+  ELSE
+    KLSTLAT(1:N_REGIONS_NS) = D%NLSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRLAT)) THEN
+  IF(UBOUND(KPTRLAT,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRLAT TOO SMALL')
+  ELSE
+    KPTRLAT(1:R%NDGL) = D%NPTRLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRFRSTLAT)) THEN
+  IF(UBOUND(KPTRFRSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRFRSTLAT TOO SMALL')
+  ELSE
+    KPTRFRSTLAT(1:N_REGIONS_NS) = D%NPTRFRSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRLSTLAT)) THEN
+  IF(UBOUND(KPTRLSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRLSTLAT TOO SMALL')
+  ELSE
+    KPTRLSTLAT(1:N_REGIONS_NS) = D%NPTRLSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KSTA)) THEN
+  IF(UBOUND(KSTA,1) < R%NDGL+N_REGIONS_NS-1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KSTA DIM 1 TOO SMALL')
+  ELSEIF(UBOUND(KSTA,2) < N_REGIONS_EW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KSTA DIM 2 TOO SMALL')
+  ELSE
+    KSTA(1:R%NDGL+N_REGIONS_NS-1,1:N_REGIONS_EW) = D%NSTA(:,:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KONL)) THEN
+  IF(UBOUND(KONL,1) < R%NDGL+N_REGIONS_NS-1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KONL DIM 1 TOO SMALL')
+  ELSEIF(UBOUND(KONL,2) < N_REGIONS_EW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KONL DIM 2 TOO SMALL')
+  ELSE
+    KONL(1:R%NDGL+N_REGIONS_NS-1,1:N_REGIONS_EW) = D%NONL(:,:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(LDSPLITLAT)) THEN
+  IF(UBOUND(LDSPLITLAT,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: LDSPLITLAT TOO SMALL')
+  ELSE
+    LDSPLITLAT(1:R%NDGL) = D%LSPLITLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KULTPP)) THEN
+  IF(UBOUND(KULTPP,1) < NPRTRNS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KULTPP TOO SMALL')
+  ELSE
+    KULTPP(1:NPRTRNS) = D%NULTPP(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRLS)) THEN
+  IF(UBOUND(KPTRLS,1) < NPRTRNS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRLS TOO SMALL')
+  ELSE
+    KPTRLS(1:NPRTRNS) = D%NPTRLS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(PMU)) THEN
+  IF(UBOUND(PMU,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: PMU TOO SMALL')
+  ELSE
+    PMU(1:R%NDGL) = F%RMU
+  ENDIF
+ENDIF
+
+IF(PRESENT(PGW)) THEN
+  IF(UBOUND(PGW,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: PGW TOO SMALL')
+  ELSE
+    PGW(1:R%NDGL) = F%RW
+  ENDIF
+ENDIF
+
+IF(PRESENT(PRPNM)) THEN
+  IU1 = UBOUND(PRPNM,1)
+  IU2 = UBOUND(PRPNM,2)
+  IF(IU1 < R%NDGNH) THEN
+    CALL ABORT_TRANS('TRANS_INQ:FIRST DIM. OF PRNM TOO SMALL')
+  ELSE
+    IU1 = MIN(IU1,R%NLEI3)
+    IU2 = MIN(IU2,D%NSPOLEGL)
+    PRPNM(1:IU1,1:IU2) = F%RPNM(1:IU1,1:IU2)
+  ENDIF
+ENDIF
+IF(PRESENT(KLEI3)) THEN
+  KLEI3=R%NLEI3
+ENDIF
+IF(PRESENT(KSPOLEGL)) THEN
+  KSPOLEGL=D%NSPOLEGL
+ENDIF
+IF(PRESENT(KPMS)) THEN
+  IF(UBOUND(KPMS,1) < R%NSMAX) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPMS TOO SMALL')
+  ELSE
+    KPMS(0:R%NSMAX) = D%NPMS(0:R%NSMAX)
+  ENDIF
+ENDIF
+!     ------------------------------------------------------------------
+
+!endif INTERFACE
+
+END SUBROUTINE TRANS_INQ
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/trans_inq.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/trans_inq.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/trans_inq.h	(revision 3330)
@@ -0,0 +1,151 @@
+SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
+                    &KGPTOT,KGPTOTG,KGPTOTMX,KGPTOTL,&
+                    &KMYMS,KASM0,KUMPP,KPOSSP,KPTRMS,KALLMS,KDIM0G,&
+                    &KFRSTLAT,KLSTLAT,KFRSTLOFF,KPTRLAT,&
+                    &KPTRFRSTLAT,KPTRLSTLAT,KPTRFLOFF,KSTA,KONL,&
+                    &KULTPP,KPTRLS,&
+                    &LDSPLITLAT,&
+                    &PMU,PGW,PRPNM,KLEI3,KSPOLEGL,KPMS)
+
+!**** *TRANS_INQ* - Extract information from the transform package
+
+!     Purpose.
+!     --------
+!     Interface routine for extracting information from the T.P.
+
+!**   Interface.
+!     ----------
+!     CALL TRANS_INQ(...)
+!     Explicit arguments : All arguments are optional.
+!     -------------------- 
+!     KRESOL   - resolution tag for which info is required ,default is the
+!                first defined resulution (input)
+
+!                   SPECTRAL SPACE
+!     KSPEC    - number of complex spectral coefficients on this PE
+!     KSPEC2   - 2*KSPEC 
+!     KSPEC2G  - global KSPEC2
+!     KSPEC2MX - maximun KSPEC2 among all PEs
+!     KNUMP    - Number of spectral waves handled by this PE
+!     KGPTOT   - Total number of grid columns on this PE
+!     KGPTOTG  - Total number of grid columns on the Globe
+!     KGPTOTMX - Maximum number of grid columns on any of the PEs
+!     KGPTOTL  - Number of grid columns one each PE (dimension NPRGPNS:NPRGPEW)
+!     KMYMS    - This PEs spectral zonal wavenumbers
+!     KASM0    - Address in a spectral array of (m, n=m)
+!     KUMPP    - No. of wave numbers each wave set is responsible for
+!     KPOSSP   - Defines partitioning of global spectral fields among PEs
+!     KPTRMS   - Pointer to the first wave number of a given a-set
+!     KALLMS   - Wave numbers for all wave-set concatenated together 
+!                to give all wave numbers in wave-set order
+!     KDIM0G   - Defines partitioning of global spectral fields among PEs
+
+!                 GRIDPOINT SPACE                  
+!     KFRSTLAT    - First latitude of each a-set in grid-point space
+!     KLSTTLAT    - Last latitude of each a-set in grid-point space
+!     KFRSTLOFF   - Offset for first lat of own a-set in grid-point space
+!     KPTRLAT     - Pointer to the start of each latitude
+!     KPTRFRSTLAT - Pointer to the first latitude of each a-set in 
+!                   NSTA and NONL arrays
+!     KPTRLSTLAT  - Pointer to the last latitude of each a-set in
+!                   NSTA and NONL arrays
+!     KPTRFLOFF   - Offset for pointer to the first latitude of own a-set
+!                   NSTA and NONL arrays, i.e. nptrfrstlat(myseta)-1
+!     KSTA        - Position of first grid column for the latitudes on a 
+!                   processor. The information is available for all processors.
+!                   The b-sets are distinguished by the last dimension of 
+!                   nsta().The latitude band for each a-set is addressed by 
+!                   nptrfrstlat(jaset),nptrlstlat(jaset), and 
+!                   nptrfloff=nptrfrstlat(myseta) on this processors a-set.
+!                   Each split latitude has two entries in nsta(,:) which 
+!                   necessitates the rather complex addressing of nsta(,:)
+!                   and the overdimensioning of nsta by nprgpns.
+!     KONL        - Number of grid columns for the latitudes on a processor.
+!                   Similar to nsta() in data structure.
+!     LDSPLITLAT  - TRUE if latitude is split in grid point space over 
+!                   two a-sets
+
+!                FOURIER SPACE
+!     KULTPP   - number of latitudes for which each a-set is calculating 
+!                the FFT's.
+!     KPTRLS   - pointer to first global latitude of each a-set for which
+!                it performs the Fourier calculations
+
+!                 LEGENDRE
+!     PMU      - sin(Gaussian latitudes)
+!     PGW      - Gaussian weights
+!     PRPNM    - Legendre polynomials
+!     KLEI3    - First dimension of Legendre polynomials
+!     KSPOLEGL - Second dimension of Legendre polynomials
+!     KPMS     - Adress for legendre polynomial for given M (NSMAX)
+
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL - set resolution
+!     ----------  
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+!        M. Hortal : 2001-03-05 Dimensions of the Legendre polynomials
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2G
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2MX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNUMP
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOT
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTG
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTMX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTL(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLOFF
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFLOFF
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KMYMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KASM0(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KUMPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPOSSP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KALLMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KDIM0G(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSTA(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KONL(:,:)
+LOGICAL   ,OPTIONAL, INTENT(OUT) :: LDSPLITLAT(:)
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KULTPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLS(:)
+
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PMU(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PGW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRPNM(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLEI3
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPOLEGL
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPMS(0:)
+
+
+END SUBROUTINE TRANS_INQ
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/type_fads.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/type_fads.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/type_fads.F90	(revision 3330)
@@ -0,0 +1,70 @@
+MODULE TYPE_FADS
+
+! Purpose :
+! -------
+!    To define the Field Arpege Descriptors :
+!     - %CLNAME : ARPEGE field name
+!     - %NBITS  : number of bits to code in Arpege/Aladin file
+!                 (-1 : default, 0 : no packing, >0 : nb of bits)
+         
+! Interface :
+! ---------
+!    Empty.
+
+! External :
+! --------
+!    None.
+
+! Method :
+! ------
+
+! Reference :
+! ---------
+!    Arpege Aladin Files package
+
+! Author :
+! ------
+!    Ryad El Khatib *METEO-FRANCE*
+
+! Modifications :
+! -------------
+! Original : 2003-08-19
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        F.Bouyssel    10-Nov-2005 Change in second descriptor of FAD
+!-----------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM ,   JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+PUBLIC FAD, YSUFAD
+
+TYPE FAD
+CHARACTER(LEN=16) :: CLNAME
+INTEGER(KIND=JPIM):: NBITS
+END TYPE FAD
+
+CONTAINS
+
+!-----------------------------------------------------------------------------
+
+TYPE(FAD) FUNCTION YSUFAD(CDNAME,KBITS)
+
+! Purpose :
+! -------
+!    To set default values to the type
+
+CHARACTER(LEN=*)  , INTENT(IN) :: CDNAME
+INTEGER(KIND=JPIM), INTENT(IN) :: KBITS
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('TYPE_FADS:YSUFAD',0,ZHOOK_HANDLE)
+YSUFAD%NBITS =KBITS
+YSUFAD%CLNAME=CDNAME
+IF (LHOOK) CALL DR_HOOK('TYPE_FADS:YSUFAD',1,ZHOOK_HANDLE)
+
+END FUNCTION YSUFAD
+
+END MODULE TYPE_FADS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/type_gfls.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/type_gfls.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/type_gfls.F90	(revision 3330)
@@ -0,0 +1,137 @@
+MODULE TYPE_GFLS
+
+USE PARKIND1  ,ONLY : JPIM ,JPRB   
+
+IMPLICIT NONE
+SAVE
+
+!-------------------------------------------------------------------------
+! Derived types for describing the GFL structure. The descriptors themselves
+! (YGFL and YGFLC) can be found in module yom_ygfl.F90.
+!-------------------------------------------------------------------------
+! Modifications:
+! 03/07/09 C. Fischer - add Arome/Aladin attributes
+! 03/10/01 C. Moussy  - add Arome/Aladin attributes coupling
+! 03/10/31 M. Tudor   - add physics tendencies for predictor-corrector
+! 05/10/10 J. Haseler - switch for I/O to trajectory structure
+! 2004-Nov F. Vana    - update of CSLINT attribute
+! 20-Feb-2005 Vivoda  - 3TL Eul PC scheme (GFLPC)
+ 
+TYPE TYPE_GFLD
+! Overall descriptor,dimensioning etc.
+INTEGER(KIND=JPIM) :: NUMFLDS          ! Number of GFL fields
+INTEGER(KIND=JPIM) :: NDERS            ! Number of horizontal derivatives fields
+INTEGER(KIND=JPIM) :: NUMSPFLDS        ! Number of spectrally represented GFL fields
+INTEGER(KIND=JPIM) :: NUMGPFLDS        ! Number of grid-point GFL fields
+INTEGER(KIND=JPIM) :: NUMFLDS9         ! Number of GFL fields in (t-dt) part
+INTEGER(KIND=JPIM) :: NUMFLDS1         ! Number of GFL fields in (t+dt) array
+INTEGER(KIND=JPIM) :: NUMSPFLDS1       ! Number of spectrally represented GFL fields (t+dt)
+INTEGER(KIND=JPIM) :: NUMFLDS5         ! Number of GFL fields (trajectory)
+INTEGER(KIND=JPIM) :: NUMFLDSPHY       ! Number of GFL fields (phys.)
+INTEGER(KIND=JPIM) :: NUMFLDS_SPL      ! Number of GFL fields (S.L. spline interpolation)
+INTEGER(KIND=JPIM) :: NUMFLDS_SL1      ! Number of GFL fields in S.L. buffer 1
+INTEGER(KIND=JPIM) :: NUMFLDSPC        ! Number of GFL fields (predictor/corrector)
+INTEGER(KIND=JPIM) :: NDIM             ! Dimension of main array holding GFL fields(GFL)
+INTEGER(KIND=JPIM) :: NUMFLDSPT        ! Number of GFL fields (phy. tend.)
+INTEGER(KIND=JPIM) :: NDIM0            ! Dimension of t0 part of GFL
+INTEGER(KIND=JPIM) :: NDIM9            ! Dimension of t-dt part of GFL
+INTEGER(KIND=JPIM) :: NDIM1            ! Dimension of t+dt array (GFLT1)
+INTEGER(KIND=JPIM) :: NDIM5            ! Dimension of traj. GFL array (GFL5)
+INTEGER(KIND=JPIM) :: NDIMSLP          ! Diminsion of S.L. phys. GFL array (GFLSLP)
+INTEGER(KIND=JPIM) :: NDIM_SPL         ! Dim. of arrays holding GFL fields (S.L.spline int.)
+INTEGER(KIND=JPIM) :: NDIMPT           ! Dimension of phy. tend. GFL array (GFLPT)
+INTEGER(KIND=JPIM) :: NDIMPC           ! Dimension of iterative scheme auxiliary array (GFLPC)
+
+END TYPE TYPE_GFLD
+
+TYPE TYPE_GFL_COMP ! Individual field descriptor
+
+CHARACTER(LEN=16) :: CNAME      ! ARPEGE field name 
+INTEGER(KIND=JPIM) :: IGRBCODE           ! GRIB code
+LOGICAL :: LADV                 ! Field advected or not
+INTEGER(KIND=JPIM) :: NREQIN    ! 1 if field requiered in input, 0 if not, -1 if initialised
+                                ! with a reference value REFVALI
+LOGICAL :: LREQOUT              ! T if field requiered in output
+LOGICAL :: LGPINGP              ! GP field input as GP
+LOGICAL :: LGP                  ! Field exists and of grid-point type
+LOGICAL :: LSP                  ! Field exists and of spectral type
+LOGICAL :: LCDERS               ! Derivatives required (spectral only)
+LOGICAL :: LACTIVE              ! Field in use
+LOGICAL :: LTHERMACT            ! Field thermodynamically active
+REAL(KIND=JPRB) :: R
+REAL(KIND=JPRB) :: RCP
+LOGICAL :: LT9                  ! Field in t-dt GFL
+LOGICAL :: LT1                  ! Field in t+dt GFL
+LOGICAL :: LT5                  ! Field in trajectory GFL
+LOGICAL :: LPHY                 ! Field in physics GFL
+LOGICAL :: LPT                  ! Field in PC phy. tend. GFL (GFLPT)
+LOGICAL :: LTRAJIO              ! Field written to and from trajectory structure
+LOGICAL :: LPC                  ! Field in predictor/corrector time stepping (GFLPC)
+REAL(KIND=JPRB) :: REFVALI      ! Reference value for init, used in case NREQIN==-1
+! LAM specific attributes (Arome/Aladin)
+LOGICAL :: LADJUST0             ! True if field is thermodynamically adjusted at t
+                                  ! (immediatly after inverse spectral transforms)
+LOGICAL :: LADJUST1             ! True if field is thermodynamically adjusted at t+dt
+                                  ! (after SL interpolations and NL residuals)
+INTEGER(KIND=JPIM) :: NCOUPLING ! 1 if field is coupled by Davies relaxation, 0 if not,
+                                  ! -1 if coupled with reference value for coupling REFVALC
+REAL(KIND=JPRB) :: REFVALC      ! Reference value for coupling, used in case NCOUPLING==-1
+LOGICAL :: LBIPER               ! True if field must be biperiodised inside the transforms
+! End LAM specific attributes (Arome/Aladin)
+CHARACTER(LEN=12) :: CSLINT     ! S.L interpolaion "type"
+INTEGER(KIND=JPIM) :: MP        ! Basic field "pointer"
+INTEGER(KIND=JPIM) :: MPL       ! zonal derivative "pointer"
+INTEGER(KIND=JPIM) :: MPM       ! Meridional derivative "pointer"
+INTEGER(KIND=JPIM) :: MP9       ! Basic field "pointer" t-dt
+INTEGER(KIND=JPIM) :: MP9_PH    ! Basic field "pointer" for Physics
+INTEGER(KIND=JPIM) :: MP1       ! Basic field "pointer" t+dt
+INTEGER(KIND=JPIM) :: MP5       ! Basic field "pointer" trajectory
+INTEGER(KIND=JPIM) :: MP5L      ! zonal derivative "pointer" trajectory
+INTEGER(KIND=JPIM) :: MP5M      ! Meridional derivative "pointer" trajectory
+INTEGER(KIND=JPIM) :: MPSLP     ! Basic field "pointer" physics
+INTEGER(KIND=JPIM) :: MPSP      ! Basic field "pointer" spectral space
+INTEGER(KIND=JPIM) :: MP_SPL    ! Basic field "pointer" spline interpolation
+INTEGER(KIND=JPIM) :: MP_SL1    ! Basic field "pointer" in SLBUF1
+INTEGER(KIND=JPIM) :: MP_SLX    ! Basic field "pointer" in SLBUF1 for CPG_PT
+INTEGER(KIND=JPIM) :: MPPT      ! Physics tendency "pointer"
+INTEGER(KIND=JPIM) :: MPPC      ! Predictor/corrector auxiliary array "pointer"
+
+TYPE(TYPE_GFL_COMP),POINTER :: PREVIOUS ! Pointer to previously def. field
+
+END TYPE TYPE_GFL_COMP
+
+TYPE TYPE_GFL_NAML ! Individual field descriptor for namelist input
+
+CHARACTER(LEN=16) :: CNAME      ! ARPEGE field name 
+INTEGER(KIND=JPIM) :: IGRBCODE  ! GRIB code
+INTEGER(KIND=JPIM) :: NREQIN    ! 1 if field required in input, 0 if not, -1 if initialised
+                                ! with a reference value REFVALI
+REAL(KIND=JPRB) :: REFVALI      ! Reference value for initialisation, used in case NREQIN==-1
+LOGICAL :: LREQOUT              ! T if field requiered in output
+LOGICAL :: LGPINGP              ! GP field input as GP
+LOGICAL :: LGP                  ! Field exists and of grid-point type
+LOGICAL :: LSP                  ! Field exists and of spectral type
+LOGICAL :: LCDERS               ! Derivatives required (spectral only)
+LOGICAL :: LT9                  ! Field in t-dt GFL
+LOGICAL :: LT1                  ! Field in t+dt GFL
+LOGICAL :: LT5                  ! Field in trajectory GFL
+LOGICAL :: LPHY                 ! Field with physics tendencies GFL
+LOGICAL :: LPT                  ! Field in PC physics tendency GFLPT
+LOGICAL :: LTRAJIO              ! Field written to and from trajectory structure
+LOGICAL :: LPC                  ! Field in predictor/corrector time stepping GFLPC
+LOGICAL :: LADV                 ! Field advected or not
+
+LOGICAL :: LQM                  ! quasi-monotonous interpolation for field
+LOGICAL :: LQMH                 ! quasi-monotonous interpolation in horizontal for field
+LOGICAL :: LSLHD                ! Semi-lagrangian horizontal diffusion used for fiels
+LOGICAL :: LRSPLINE             ! 12 points spline interpolation used for field
+LOGICAL :: LHV                  ! Hermite vertical interpolation used for field (only ozone sofar)
+LOGICAL :: LVSPLIP              ! vertical spline interpolation used for field (only ozone sofar)
+INTEGER(KIND=JPIM) :: NCOUPLING ! 1 if field is coupled by Davies relaxation, 0 if not,
+                                ! -1 if coupled with reference value for coupling REFVALC
+REAL(KIND=JPRB) :: REFVALC      ! Reference value for coupling, used in case 
+                                  ! NCOUPLING==-1
+END TYPE TYPE_GFL_NAML
+
+!-------------------------------------------------------------------------
+END MODULE TYPE_GFLS
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/user_clock.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/user_clock.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/user_clock.F90	(revision 3330)
@@ -0,0 +1,76 @@
+SUBROUTINE USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,PVECTOR_CP,PTOTAL_CP)
+
+!**** *USER_CLOCK* - interface to system dependent timer routines
+
+!     Purpose.
+!     --------
+!        Returns elapsed and CP from the start of execution.
+!        Elapsed time is made relative to the first call to USER_CLOCK.
+
+!**   Interface.
+!     ----------
+!        ZTIME=USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,
+!                         PVECTOR_CP,PTOTAL_CP)
+
+!        Explicit arguments: (All are optional arguments)
+!                           PELAPSED_TIME=wall clock time (seconds)
+!                           PELAPSED_TIME_SINCE=wall clock time (seconds)
+!                             change from input value of this parameter
+!                           PVECTOR_CP=CP vector time  (seconds)
+!                           PTOTAL_CP=total CP time   (seconds)
+
+!     Author.
+!     -------
+!        D.Dent      *ECMWF*
+
+!     External References:
+!     -------------------
+
+!        TIMEF,CPTIME
+
+!     Modifications.
+!     --------------
+!        Original  : 97-09-25
+!     ----------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB),INTENT(OUT) :: PELAPSED_TIME,PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB),INTENT(INOUT) :: PELAPSED_TIME_SINCE
+OPTIONAL            PELAPSED_TIME,PELAPSED_TIME_SINCE
+OPTIONAL            PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB)      :: ZVECTOR_CP,ZTOTAL_CP,ZWALL
+REAL(KIND=JPRB),EXTERNAL :: TIMEF
+
+
+! === END OF INTERFACE BLOCK ===
+IF(PRESENT(PELAPSED_TIME).OR. PRESENT(PELAPSED_TIME_SINCE)) THEN
+
+  ZWALL=TIMEF()
+!             TIMEF returns milliseconds since first call to TIMEF
+  IF(PRESENT(PELAPSED_TIME)) THEN
+    PELAPSED_TIME=ZWALL*1.0E-3_JPRB
+  ENDIF
+  IF(PRESENT(PELAPSED_TIME_SINCE)) THEN
+    PELAPSED_TIME_SINCE=ZWALL*1.0E-3_JPRB - PELAPSED_TIME_SINCE
+  ENDIF
+ENDIF
+
+IF( PRESENT(PVECTOR_CP) .OR. PRESENT(PTOTAL_CP) ) THEN
+  CALL CPTIME(ZVECTOR_CP,ZTOTAL_CP)
+ENDIF
+IF( PRESENT(PVECTOR_CP) ) THEN
+  PVECTOR_CP=ZVECTOR_CP
+ENDIF
+IF( PRESENT(PTOTAL_CP) ) THEN
+  PTOTAL_CP=ZTOTAL_CP
+ENDIF
+
+RETURN
+END SUBROUTINE USER_CLOCK
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/user_clock.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/user_clock.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/user_clock.h	(revision 3330)
@@ -0,0 +1,49 @@
+SUBROUTINE USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,PVECTOR_CP,PTOTAL_CP)
+
+!**** *USER_CLOCK* - interface to system dependent timer routines
+
+!     Purpose.
+!     --------
+!        Returns elapsed and CP from the start of execution.
+!        Elapsed time is made relative to the first call to USER_CLOCK.
+
+!**   Interface.
+!     ----------
+!        ZTIME=USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,
+!                         PVECTOR_CP,PTOTAL_CP)
+
+!        Explicit arguments: (All are optional arguments)
+!                           PELAPSED_TIME=wall clock time (seconds)
+!                           PELAPSED_TIME_SINCE=wall clock time (seconds)
+!                             change from input value of this parameter
+!                           PVECTOR_CP=CP vector time  (seconds)
+!                           PTOTAL_CP=total CP time   (seconds)
+
+!     Author.
+!     -------
+!        D.Dent      *ECMWF*
+
+!     External References:
+!     -------------------
+
+!        TIMEF,CPTIME
+
+!     Modifications.
+!     --------------
+!        Original  : 97-09-25
+!     ----------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB),INTENT(OUT) :: PELAPSED_TIME,PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB),INTENT(INOUT) :: PELAPSED_TIME_SINCE
+OPTIONAL            PELAPSED_TIME,PELAPSED_TIME_SINCE
+OPTIONAL            PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB)      :: ZVECTOR_CP,ZTOTAL_CP,ZWALL
+REAL(KIND=JPRB),EXTERNAL :: TIMEF
+
+
+END SUBROUTINE USER_CLOCK
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/val923.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/val923.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/val923.F90	(revision 3330)
@@ -0,0 +1,121 @@
+SUBROUTINE VAL923(LDNEW)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCLI   , ONLY : NTPMER   ,NTPGLA   ,NTPDES   ,NTPLAC   ,&
+ & SMASK    ,SMANQ    ,STHER    ,SALBN    ,SALBX    ,&
+ & SALBM    ,SALBG    ,SALBB    ,SALBD    ,SEMIN    ,&
+ & SEMIX    ,SEMIM    ,SEMIG    ,SEMIB    ,SEMID    ,&
+ & SDEPN    ,SDEPX    ,SDEPD    ,SARGN    ,SARGX    ,&
+ & SARGD    ,SSABN    ,SSABX    ,SSABD    ,SRSMN    ,&
+ & SRSMX    ,SRSMD    ,SZZ0N    ,SZZ0M    ,SZZ0B    ,&
+ & SZZ0U    ,SZZ0D  
+USE YOMLUN   , ONLY : NULOUT
+
+#ifdef DOC
+!**** *GEO923*
+
+!     PURPOSE.
+!     --------
+!      Compute the constants (YOMCLI) which are used by configuration 923.
+
+!     INTERFACE.
+!     ----------
+!      CALL VAL923(LDNEW)
+!        LDNEW = .FALSE. if old fields required
+!        Results in YOMCLI.
+
+!     AUTHORS.
+!     --------
+!      D. Giard 97-05-06
+
+!     MODIFICATIONS.
+!     --------------
+!      D. Giard   99-07-02 add values for desert and prints
+!      S. Kertesz 99-12-16 new type for lakes
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+#endif
+
+IMPLICIT NONE
+
+LOGICAL           ,INTENT(IN)    :: LDNEW 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  Threshold defining the mask
+IF (LHOOK) CALL DR_HOOK('VAL923',0,ZHOOK_HANDLE)
+SMASK= 0.5_JPRB
+!  Value for missing data + 1
+SMANQ=-9998._JPRB
+!  Land-use types for sea, ice-cap, desert, lakes
+NTPMER= 1
+NTPGLA= 2
+NTPDES= 3
+NTPLAC= 5
+!  Roughness length : minimum, sea, sea-ice, urban areas, desert
+SZZ0N= 0.001_JPRB
+SZZ0M= 0.001_JPRB
+SZZ0B= 0.001_JPRB
+SZZ0U= 2.500_JPRB
+SZZ0D= 0.001_JPRB
+!  Ration of thermal to kinetic roughness length
+STHER= 0.10_JPRB
+!  Albedo : minimum, maximum, sea, ice-cap, sea-ice, desert
+IF (LDNEW) THEN
+  SALBN= 0.05_JPRB
+  SALBX= 0.80_JPRB
+ELSE
+  SALBN= 0.07_JPRB
+  SALBX= 0.70_JPRB
+ENDIF
+SALBM= 0.07_JPRB
+SALBG= 0.75_JPRB
+SALBB= 0.65_JPRB
+SALBD= 0.10_JPRB
+!  Emissivity : minimum, maximum, sea, ice-cap, sea-ice, desert
+SEMIN= 0.90_JPRB
+SEMIX= 1.00_JPRB
+SEMIM= 0.96_JPRB
+SEMIG= 0.98_JPRB
+SEMIB= 0.97_JPRB
+SEMID= 0.943_JPRB
+!  Soil depth : minimum, maximum, desert
+SDEPN= 0.10_JPRB
+SDEPX= 8.00_JPRB
+SDEPD= 0.10_JPRB
+!  Percentage of clay : minimum, maximum, desert
+SARGN=  3._JPRB
+SARGX= 58._JPRB
+SARGD=  3._JPRB
+!  Percentage of sand : minimum, maximum, desert
+SSABN=  6._JPRB
+SSABX= 92._JPRB
+SSABD= 92._JPRB
+!  Minimum surface resistance : minimum, maximum, desert
+SRSMX=5000._JPRB
+SRSMN=   1.0_JPRB
+SRSMD=5000._JPRB
+
+WRITE(UNIT=NULOUT,FMT=111) SMASK,SMANQ,STHER,&
+ & NTPMER,NTPGLA,NTPDES,NTPLAC  
+WRITE(UNIT=NULOUT,FMT=112) SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D
+WRITE(UNIT=NULOUT,FMT=113) SALBN,SALBX,SALBM,SALBG,SALBB,SALBD,&
+ & SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID  
+WRITE(UNIT=NULOUT,FMT=114) SDEPN,SDEPX,SDEPD,SARGN,SARGX,SARGD,&
+ & SSABN,SSABX,SSABD,SRSMN,SRSMX,SRSMD  
+111 FORMAT(' COMMON YOMCLI',/,&
+ & ' SMASK=',F4.2,' SMANQ=',F6.0,' STHER=',F4.2,/&
+ & ' NTPMER=',I2,' NTPGLA=',I2,' NTPDES=',I2,' NTPLAC=',I2)  
+112 FORMAT(' LONGUEUR DE RUGOSITE :',/,&
+ & ' minimum    mer    banquise  villes   desert ',&
+ & /,5F9.3)  
+113 FORMAT(' ALBEDO ET EMISSIVITE :',/,&
+ & ' minimum  maximum    mer    glacier  banquise  desert ',&
+ & 2(/,6F9.3))  
+114 FORMAT(' PROFONDEUR, % ARGILE, % SABLE, RESIS. MIN. :',/,&
+ & ' minimum  maximum   desert ',&
+ & 4(/,3F9.3))  
+
+IF (LHOOK) CALL DR_HOOK('VAL923',1,ZHOOK_HANDLE)
+END SUBROUTINE VAL923
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/val923.intfb.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/val923.intfb.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/val923.intfb.h	(revision 3330)
@@ -0,0 +1,5 @@
+INTERFACE
+SUBROUTINE VAL923(LDNEW)
+LOGICAL ,INTENT(IN) :: LDNEW
+END SUBROUTINE VAL923
+END INTERFACE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_mcica.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_mcica.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_mcica.F90	(revision 3330)
@@ -0,0 +1,17 @@
+MODULE YOE_McICA
+
+USE PARKIND1  ,ONLY : JPIM, JPRB
+
+IMPLICIT NONE
+
+SAVE
+!------------------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: XCW(1000,140)
+INTEGER(KIND=JPIM) :: NMcI1, NMcI2
+
+!------------------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(nmci1,nmci2,xcw)
+
+END MODULE YOE_McICA
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_tile_prop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_tile_prop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_tile_prop.F90	(revision 3330)
@@ -0,0 +1,22 @@
+MODULE YOE_TILE_PROP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!       ----------------------------------------------------------------
+!PSEUDO HISTORICAL TESSEL QUANTITIES (INSTANTANEOUS) FOR EACH TILE
+
+!     M.Hamrud      E.C.M.W.F.    20 Apr 2005
+!     Moved out these arrays from GPPBUF     
+!       ----------------------------------------------------------------
+REAL(KIND=JPRB),ALLOCATABLE :: RUSTRTI(:,:,:) ! E-W  SURFACE STRESS 
+REAL(KIND=JPRB),ALLOCATABLE :: RVSTRTI(:,:,:) ! N-S  SURFACE STRESS 
+REAL(KIND=JPRB),ALLOCATABLE :: RAHFSTI(:,:,:) ! SURFACE SENSIBLE HEAT FLUX
+REAL(KIND=JPRB),ALLOCATABLE :: REVAPTI(:,:,:) ! EVAPORATION 
+REAL(KIND=JPRB),ALLOCATABLE :: RTSKTI (:,:,:) ! SKIN TEMPERATURE 
+
+!$OMP THREADPRIVATE(rahfsti,revapti,rtskti,rustrti,rvstrti)
+END MODULE YOE_TILE_PROP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_uvrad.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_uvrad.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoe_uvrad.F90	(revision 3330)
@@ -0,0 +1,29 @@
+MODULE YOE_UVRAD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOE_UVRAD* - COEFFICIENTS FOR ULTRAVIOLET RADIATION PROCESSOR
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: NUV, NRADUV, NUVTIM
+INTEGER(KIND=JPIM) :: IPUV(3000), JCOP(3000), JUVLAM(3000)
+LOGICAL :: LUVPROC, LUVTDEP, LUVDBG
+
+REAL(KIND=JPRB) :: RK250(3000), RTUV1(3000), RTUV2(3000), RSUVB0(3000), RAYUVB(3000)
+REAL(KIND=JPRB) :: RASA(4), RASB(4), RASC(4), RASD(4), RASE(4), RASF(4)
+REAL(KIND=JPRB) :: RFA0(4), RFA1(4), RFB0(4), RFB1(4), RFB2(4), RFB3(4), &
+ & RFC0(4), RFC1(4), RFC2(4), RFC3(4), RFD0(4), RFD1(4), RFD2(4), RFD3(4)
+REAL(KIND=JPRB) :: RTAUVA(4,6), RPIUVA(4,6), RCGUVA(4,6)
+REAL(KIND=JPRB) :: RXPO(3), RXPL(3), RCIEAS(3000), RSUVB(3000), RUVLAM(3000)
+REAL(KIND=JPRB) :: RFCAER, RFCOZO, RMUZUV
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(ipuv,jcop,juvlam,luvdbg,luvproc,luvtdep,nraduv,nuv,nuvtim,rasa,rasb)
+!$OMP THREADPRIVATE(rasc,rasd,rase,rasf,rayuvb,rcguva,rcieas,rfa0,rfa1,rfb0,rfb1,rfb2,rfb3)
+!$OMP THREADPRIVATE(rfc0,rfc1,rfc2,rfc3,rfcaer,rfcozo,rfd0,rfd1,rfd2,rfd3,rk250,rmuzuv,rpiuva)
+!$OMP THREADPRIVATE(rsuvb,rsuvb0,rtauva,rtuv1,rtuv2,ruvlam,rxpl,rxpo)
+END MODULE YOE_UVRAD
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaeratm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaeratm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaeratm.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOEAERATM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERATM* - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: INDBG
+INTEGER(KIND=JPIM) :: NDD1, NSS1
+
+REAL(KIND=JPRB) :: RMFMIN
+REAL(KIND=JPRB) :: RMASSE(15)
+
+REAL(KIND=JPRB) :: REPSCAER
+
+LOGICAL :: LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERGBUD 
+LOGICAL :: LAERNGAT , LAERPRNT , LAERSCAV , LAERSEDIM, LAERSURF, LAER6SDIA
+
+!     ------------------------------------------------------------------
+! NDD1       : location of first bin for desert dust
+! NSS1       : location of first bin for sea-salt
+! RMFMIN     : minimum mass flux for convective aerosol transport
+! RMASSE     : Molar mass: N.B.: either g/mol or Avogadro number
+!
+! REPSCAER   : security on aerosol concentration: always >= 1.E-15
+!
+! LAERCLIMG  : .T. to start prognostic aerosols with geographical monthly 
+!                  mean climatology
+! LAERCLIMZ  : .T. to start prognostic aerosols with zonal annual mean 
+!                  climatology
+! LAERCLIST  : .T. to start prognostic aerosols with geographical monthly 
+!                  mean climatology for background stratospheric only
+! LAERDRYDP  : .T. dry deposition is active
+! LAERGBUD   : .T. "clean" global budget for aerosols
+! LAERNGAT   : .T. prevents negative aerosol concentrations
+! LAERPRNT   : .T. for on-line prints of aerosol physical processes (NSTEP<=1)
+! LAERSCAV   : .T. in-cloud and below cloud scavenging is active
+! LAERSEDIM  : .T. sedimentation is active
+! LAERSURF   : .T. if surface emissions
+! LAER6SDIA  : .T. if radiance diagnostics with 6S
+!     ------------------------------------------------------------------
+
+
+!$OMP THREADPRIVATE(indbg,laer6sdia,laerclimg,laerclimz,laerclist,laerdrydp)
+!$OMP THREADPRIVATE(laergbud,laerngat,laerprnt,laerscav,laersedim,laersurf)
+!$OMP THREADPRIVATE(ndd1,nss1,repscaer,rmasse,rmfmin)
+
+END MODULE YOEAERATM
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaerd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaerd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaerd.F90	(revision 3330)
@@ -0,0 +1,74 @@
+MODULE YOEAERD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAES(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAED(:)
+
+REAL(KIND=JPRB) :: RAESC(66)
+REAL(KIND=JPRB) :: RAESS(55)
+REAL(KIND=JPRB) :: RAELC(66)
+REAL(KIND=JPRB) :: RAELS(55)
+REAL(KIND=JPRB) :: RAEUC(66)
+REAL(KIND=JPRB) :: RAEUS(55)
+REAL(KIND=JPRB) :: RAEDC(66)
+REAL(KIND=JPRB) :: RAEDS(55)
+
+REAL(KIND=JPRB) :: RCAEOPS
+REAL(KIND=JPRB) :: RCAEOPL
+REAL(KIND=JPRB) :: RCAEOPU
+REAL(KIND=JPRB) :: RCAEOPD
+REAL(KIND=JPRB) :: RCTRBGA
+REAL(KIND=JPRB) :: RCVOBGA
+REAL(KIND=JPRB) :: RCSTBGA
+REAL(KIND=JPRB) :: RCTRPT
+REAL(KIND=JPRB) :: RCAEADK(3)
+REAL(KIND=JPRB) :: RCAEADM
+REAL(KIND=JPRB) :: 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.(NFLEVG+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.
+
+!     ------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(raedc,raeds,raelc,raels,raesc,raess,raeuc,raeus)
+!$OMP THREADPRIVATE(rcaeadk,rcaeadm,rcaeopd,rcaeopl,rcaeops,rcaeopu)
+!$OMP THREADPRIVATE(rcaeros,rcstbga,rctrbga,rctrpt,rcvobga)
+
+!$OMP THREADPRIVATE(cvdaed,cvdael,cvdaes,cvdaeu)
+
+END MODULE YOEAERD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaerop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaerop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaerop.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOEAEROP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAEROP* - OPTICAL PROPERTIES FOR PROGNOSTIC AEROSOLS
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ALF_BC(16)     , ASY_BC(16)     , OMG_BC(16)
+REAL(KIND=JPRB) :: ALF_DD(3,16)   , ASY_DD(3,16)   , OMG_DD(3,16)
+REAL(KIND=JPRB) :: ALF_FA(16)     , ASY_FA(16)     , OMG_FA(16)
+REAL(KIND=JPRB) :: ALF_OM(12,16)  , ASY_OM(12,16)  , OMG_OM(12,16)
+REAL(KIND=JPRB) :: ALF_SS(12,16,3), ASY_SS(12,16,3), OMG_SS(12,16,3)
+REAL(KIND=JPRB) :: ALF_SU(12,16)  , ASY_SU(12,16)  , OMG_SU(12,16)
+
+!     ------------------------------------------------------------------
+! 3 refers to 3 bins, 16 to 16 SW channel radiances, 12 to 12 reference RH
+! BC is for black carbon
+! DD is for desert dust
+! FA is fort flying ash
+! OM is for organic matter
+! SS is for sea-salt
+! SU is for sulfate
+
+! ALF is alpha , the mass extinction coefficient   in m2/g
+! ASY is g     , the assymetry factor		     ND
+! OMG is pizero, the single scattering albedo	     ND
+!     ------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(alf_bc,alf_dd,alf_fa,alf_om,alf_ss,alf_su,asy_bc,asy_dd)
+!$OMP THREADPRIVATE(asy_fa,asy_om,asy_ss,asy_su,omg_bc,omg_dd,omg_fa,omg_om,omg_ss,omg_su)
+
+END MODULE YOEAEROP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersnk.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersnk.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersnk.F90	(revision 3330)
@@ -0,0 +1,67 @@
+MODULE YOEAERSNK
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERSNK* - CONTROL OPTIONS FOR AEROSOLS' SINKS
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: R_R, R_S
+REAL(KIND=JPRB) :: RALPHAR(15), RALPHAS(15)
+REAL(KIND=JPRB) :: RFRBC(2)
+REAL(KIND=JPRB) :: RFRIF 
+REAL(KIND=JPRB) :: RFRDD(3), RFRSS(3) 
+REAL(KIND=JPRB) :: RFROM(2) 
+REAL(KIND=JPRB) :: RFRSO4
+REAL(KIND=JPRB) :: RFRAER, RFRGAS 
+
+INTEGER(KIND=JPIM) :: NBRH
+REAL(KIND=JPRB) :: RRHMAX, RRHTAB(12), RRHO_SS(12), RSSGROW(12)
+REAL(KIND=JPRB) :: RMMD_SS(3)
+REAL(KIND=JPRB) :: RMMD_DD(3), RRHO_DD(3)
+REAL(KIND=JPRB) :: RHO_WAT, RHO_ICE
+
+REAL(KIND=JPRB) :: RVDPOCE(15), RVDPSIC(15), RVDPLND(15), RVDPLIC(15)
+REAL(KIND=JPRB) :: RVSEDOCE(15),RVSEDSIC(15),RVSEDLND(15),RVSEDLIC(15)
+!     ------------------------------------------------------------------
+! R_R        : mean radius for rain drops (m)
+! R_S        : mean radius for snow crystals (m)
+! RALPHAR    : impaction coefficients for rain
+! RALPHAS    : IMPACTION coefficients for snow
+! dissolution constants
+! RFRBCn     : for black carbon (BC1: hydrophobic, BC2: hydrophylic)
+! RFRDDn     : for dust     (3 bins: 0.03 - 0.55 - 0.9 - 20 um)
+! RFRIF      : for inorganic fraction (i.e., fly-ash)
+! RFROMn     : for organic matter (OM1: hydrophobic, OM2: hydrophylic)
+! RFRSSn     : for sea-salt (3 bins: 0.03 - 0.5 - 5 - 20 um)
+
+! re-evaporation constants
+! RFRAER     : for aerosols
+! RFRGAS     : for gases
+
+! RRHMAX     : 
+! RRHTAB     : 
+
+! dry deposition velocity
+! RVDPOCE    :
+! RVDPSIC    :
+! RVDPLND    :
+! RVDPLIC    :
+
+! sedimentation (gravitational settling) velocity
+! RVSEDOCE   : for ocean
+! RVSEDSIC   :
+! RVSEDLND   :
+! RVSEDLIC   :
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(nbrh,r_r,r_s,ralphar,ralphas,rfraer,rfrbc,rfrdd,rfrgas)
+!$OMP THREADPRIVATE(rfrif,rfrom,rfrso4,rfrss,rho_ice,rho_wat,rmmd_dd,rmmd_ss)
+!$OMP THREADPRIVATE(rrhmax,rrho_dd,rrho_ss,rrhtab,rssgrow,rvdplic,rvdplnd)
+!$OMP THREADPRIVATE(rvdpoce,rvdpsic,rvsedlic,rvsedlnd,rvsedoce,rvsedsic)
+
+END MODULE YOEAERSNK
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersrc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersrc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersrc.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOEAERSRC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERSRC* - CONTROL OPTIONS FOR AEROSOLS' SOURCE
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: NMAXTAER
+INTEGER(KIND=JPIM) :: NTAER
+INTEGER(KIND=JPIM) :: NBINAER(9)
+INTEGER(KIND=JPIM) :: NINDAER(15), JKTYP(15), JKBIN(15)
+INTEGER(KIND=JPIM) :: NTYPAER(9)
+INTEGER(KIND=JPIM) :: NDDUST
+
+LOGICAL :: LEPAERO, LAEREXTR
+
+REAL(KIND=JPRB) :: RGELAV, RGEMUV, RDGLAV, RDGMUV
+REAL(KIND=JPRB) :: RCLONV, RSLONV, RDCLONV, RDSLONV
+REAL(KIND=JPRB) :: RLATVOL,RLONVOL
+
+REAL(KIND=JPRB) :: RSSFLX(3)
+
+!     ------------------------------------------------------------------
+! MMAXTAER   : MAXIMUM TOTAL NUMBER OF AEROSOLS
+! NTAER      : TOTAL NUMBER OF AEROSOLS
+! NTYPAER( ) : NBINAER( )
+!        (1) :         3 FOR SEA-SALT 
+!        (2) :         3 FOR DESERT DUST
+!        (3) :         2 FOR ORGANIC MATTERS
+!        (4) :         2 FOR BLACK CARBON
+!        (5) :         1 FOR SULFATE
+!        (6) :         1 FOR FLY ASH
+!        (7) :         1 FOR PSEUDO-PROGNOSTIC STRATOSPHERIC AEROSOLS
+!        (8) :         1 FOR PROGNOSTIC STRATOSPHERIC AEROSOLS
+!        (9) :         1 FOR VOLCANIC AEROSOLS
+
+! RSSFLX     : sea salt flux for 3-size bins (in mg m-2 s-1) for a 1 m s-1
+!              wind speed, at 10 m height and 80% RH 
+! Rlat/lonVOL: LAT/LON of a possible volcanic eruption
+! JDDUST     : 1 =LSCE, 2 =based on MODIS
+!     ------------------------------------------------------------------
+
+
+
+!$OMP THREADPRIVATE(jkbin,jktyp,laerextr,lepaero,nbinaer,nddust,nindaer)
+!$OMP THREADPRIVATE(nmaxtaer,ntaer,ntypaer,rclonv,rdclonv,rdglav,rdgmuv)
+!$OMP THREADPRIVATE(rdslonv,rgelav,rgemuv,rlatvol,rlonvol,rslonv,rssflx)
+
+END MODULE YOEAERSRC
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoecld.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoecld.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoecld.F90	(revision 3330)
@@ -0,0 +1,79 @@
+MODULE YOECLD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOECLD* - CONTROL PARAMETERS FOR DIAGNOSTIC CLOUDS
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: CETA(:)
+
+REAL(KIND=JPRB) :: RANVA
+REAL(KIND=JPRB) :: RANVB
+REAL(KIND=JPRB) :: RANVH
+REAL(KIND=JPRB) :: RCCA
+REAL(KIND=JPRB) :: RCCB
+REAL(KIND=JPRB) :: RCCC
+REAL(KIND=JPRB) :: RCFCT
+REAL(KIND=JPRB) :: RCLWMR
+REAL(KIND=JPRB) :: RCSCAL
+REAL(KIND=JPRB) :: RETAHB
+REAL(KIND=JPRB) :: RETAMB
+REAL(KIND=JPRB) :: RLOIA
+REAL(KIND=JPRB) :: RLOIB
+REAL(KIND=JPRB) :: RLOIC
+REAL(KIND=JPRB) :: RLOID
+REAL(KIND=JPRB) :: RLONIA
+REAL(KIND=JPRB) :: RLONIB
+REAL(KIND=JPRB) :: RRHH
+REAL(KIND=JPRB) :: RRHL
+REAL(KIND=JPRB) :: RRHM
+REAL(KIND=JPRB) :: RGAMMAS
+REAL(KIND=JPRB) :: REPSCR
+REAL(KIND=JPRB) :: 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(NFLEVG) 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
+!     ------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(lomega,ranva,ranvb,ranvh,rcca,rccb,rccc,rcfct)
+!$OMP THREADPRIVATE(rclwmr,rcscal,repscr,repsec,retahb,retamb,rgammas)
+!$OMP THREADPRIVATE(rloia,rloib,rloic,rloid,rlonia,rlonib,rrhh,rrhl,rrhm)
+
+!$OMP THREADPRIVATE(ceta)
+
+END MODULE YOECLD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeclop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeclop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeclop.F90	(revision 3330)
@@ -0,0 +1,92 @@
+MODULE YOECLOP
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     * YOECLOP* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RYFWCA(4)
+REAL(KIND=JPRB) :: RYFWCB(4)
+REAL(KIND=JPRB) :: RYFWCC(4)
+REAL(KIND=JPRB) :: RYFWCD(4)
+REAL(KIND=JPRB) :: RYFWCE(4)
+REAL(KIND=JPRB) :: RYFWCF(4)
+REAL(KIND=JPRB) :: REBCUA(4)
+REAL(KIND=JPRB) :: REBCUB(4)
+REAL(KIND=JPRB) :: REBCUC(4)
+REAL(KIND=JPRB) :: REBCUD(4)
+REAL(KIND=JPRB) :: REBCUE(4)
+REAL(KIND=JPRB) :: REBCUF(4)
+REAL(KIND=JPRB) :: RASWCA(4)
+REAL(KIND=JPRB) :: RASWCB(4)
+REAL(KIND=JPRB) :: RASWCC(4)
+REAL(KIND=JPRB) :: RASWCD(4)
+REAL(KIND=JPRB) :: RASWCE(4)
+REAL(KIND=JPRB) :: RASWCF(4)
+REAL(KIND=JPRB) :: REBCUG
+REAL(KIND=JPRB) :: REBCUH
+REAL(KIND=JPRB) :: REBCUI(6)
+REAL(KIND=JPRB) :: REBCUJ(6)
+REAL(KIND=JPRB) :: REFFIA
+REAL(KIND=JPRB) :: REFFIB
+REAL(KIND=JPRB) :: RTIW
+REAL(KIND=JPRB) :: 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
+!     -----------------------------------------------------------------
+
+
+!$OMP THREADPRIVATE(raswca,raswcb,raswcc,raswcd,raswce,raswcf,rebcua)
+!$OMP THREADPRIVATE(rebcub,rebcuc,rebcud,rebcue,rebcuf,rebcug,rebcuh)
+!$OMP THREADPRIVATE(rebcui,rebcuj,reffia,reffib,rriw,rtiw,ryfwca)
+!$OMP THREADPRIVATE(ryfwcb,ryfwcc,ryfwcd,ryfwce,ryfwcf)
+
+END MODULE YOECLOP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoecnd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoecnd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoecnd.F90	(revision 3330)
@@ -0,0 +1,30 @@
+MODULE YOECND
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+REAL(KIND=JPRB),ALLOCATABLE:: CEVAPCU(:)
+
+REAL(KIND=JPRB) :: REPFLM
+REAL(KIND=JPRB) :: REPFLS
+REAL(KIND=JPRB) :: REPQMI
+
+!     -----------------------------------------------------------------
+!*    CONTROL PARAMETERS FOR MOIST PROCESSES
+
+! CEVAPCU(NFLEVG):
+! REPFLM :  Minimum flux to avoid zero division in ice proportion
+!           computations
+! REPFLS :  Square-root of previous flux
+! REPQMI :  Minimum specific humidity (security within QNEGAT)
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(repflm,repfls,repqmi)
+
+!$OMP THREADPRIVATE(cevapcu)
+
+END MODULE YOECND
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoedbug.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoedbug.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoedbug.F90	(revision 3330)
@@ -0,0 +1,18 @@
+MODULE YOEDBUG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -------------------------------------------------
+!*    ** *YOEDBUG* - CONTROL OPTIONS FOR DEBUGGING HELP
+!     -------------------------------------------------
+INTEGER(KIND=JPIM) :: KSTPDBG(3)
+!     ------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(kstpdbg)
+
+END MODULE YOEDBUG
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoelw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoelw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoelw.F90	(revision 3330)
@@ -0,0 +1,86 @@
+MODULE YOELW
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOELW* - COEFFICIENTS OF THE LONGWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: MXIXT
+INTEGER(KIND=JPIM) :: NSIL
+INTEGER(KIND=JPIM) :: NIPD
+INTEGER(KIND=JPIM) :: NIPD2
+INTEGER(KIND=JPIM) :: NTR
+INTEGER(KIND=JPIM) :: NTRA
+INTEGER(KIND=JPIM) :: NUA
+INTEGER(KIND=JPIM) :: NG1
+INTEGER(KIND=JPIM) :: NG1P1
+REAL(KIND=JPRB) :: ALWT(8,3)
+REAL(KIND=JPRB) :: BLWT(8,3)
+REAL(KIND=JPRB) :: PDGA(11,16,3)
+REAL(KIND=JPRB) :: PDGB(11,16,3)
+REAL(KIND=JPRB) :: RPTYPE(4)
+REAL(KIND=JPRB) :: RETYPE(4)
+REAL(KIND=JPRB) :: RNTNU(4)
+REAL(KIND=JPRB) :: RO1H
+REAL(KIND=JPRB) :: RO2H
+REAL(KIND=JPRB) :: RO3T(4)
+REAL(KIND=JPRB) :: RPIALF0
+REAL(KIND=JPRB) :: RT1(2)
+REAL(KIND=JPRB) :: TINTP(11)
+REAL(KIND=JPRB) :: TREF
+REAL(KIND=JPRB) :: TSTAND
+REAL(KIND=JPRB) :: TSTP
+REAL(KIND=JPRB) :: WG1(2)
+REAL(KIND=JPRB) :: XP(6,6)
+REAL(KIND=JPRB) :: RVGCO2
+REAL(KIND=JPRB) :: RVGH2O
+REAL(KIND=JPRB) :: 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
+!     ------------------------------------------------------------------
+
+
+!$OMP THREADPRIVATE(alwt,blwt,mxixt,ng1,ng1p1,nipd,nipd2,nsil,ntr,ntra,nua)
+!$OMP THREADPRIVATE(pdga,pdgb,retype,rntnu,ro1h,ro2h,ro3t,rpialf0,rptype,rt1)
+!$OMP THREADPRIVATE(rvgco2,rvgh2o,rvgo3,tintp,tref,tstand,tstp,wg1,xp)
+END MODULE YOELW
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeovlp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeovlp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeovlp.F90	(revision 3330)
@@ -0,0 +1,24 @@
+MODULE YOEOVLP
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEOVLP* VERTICAL DISTRIBUTION OF CLOUD OVERLAP PARAMETER
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: RA1OVLP(:)
+
+!     J.-J. MORCRETTE    E.C.M.W.F.     01/02/16
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *RA1OVLP* REAL      Alpha1 (Hogan, Illingworth, 2001)
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(ra1ovlp)
+END MODULE YOEOVLP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoephli.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoephli.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoephli.F90	(revision 3330)
@@ -0,0 +1,62 @@
+MODULE YOEPHLI
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEPHLI* CONTAINS CONSTANTS FOR THE LINEARIZED PHYSICS
+!     ------------------------------------------------------------------
+
+LOGICAL :: LPHYLIN
+LOGICAL :: LENOPERT
+LOGICAL :: LEPPCFLS
+LOGICAL :: LRAISANEN
+
+REAL(KIND=JPRB) :: RLPTRC
+REAL(KIND=JPRB) :: RLPAL1
+REAL(KIND=JPRB) :: RLPAL2
+REAL(KIND=JPRB) :: RLPBB
+REAL(KIND=JPRB) :: RLPCC
+REAL(KIND=JPRB) :: RLPDD
+REAL(KIND=JPRB) :: RLPMIXL
+REAL(KIND=JPRB) :: RLPBETA
+REAL(KIND=JPRB) :: RLPDRAG
+REAL(KIND=JPRB) :: RLPEVAP
+REAL(KIND=JPRB) :: 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 
+!     *LENOPERT   LOGICAL  TRUE WHEN NO PERTURBATION IS REQUIRED
+!                          FOR SURFACE ARRAYS
+!     *LEPPCFLS   LOGICAL  TRUE WHEN POST-PROCESSING OF SURFACE FIELDS 
+!                          REQUIRED
+!     *LRAISANEN  LOGICAL  TRUE WHEN RAISANEN OVERLAP SCHEME IS
+!                          ACTIVATED
+!     ------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(lenopert,leppcfls,lphylin,lraisanen,rlpal1,rlpal2,rlpbb)
+!$OMP THREADPRIVATE(rlpbeta,rlpcc,rlpdd,rlpdrag,rlpevap,rlpmixl,rlpp00,rlptrc)
+
+END MODULE YOEPHLI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoephy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoephy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoephy.F90	(revision 3330)
@@ -0,0 +1,102 @@
+MODULE YOEPHY
+
+USE PARKIND1  ,ONLY : JPRB, JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOEPHY* - SWITCHES RELATED TO DIABATIC PROCESSES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+LOGICAL :: LEPHYS
+LOGICAL :: LECOND
+LOGICAL :: LECUMF
+LOGICAL :: LEDCLD
+LOGICAL :: LEEVAP
+LOGICAL :: LEGWDG
+LOGICAL :: LEOZOC
+LOGICAL :: LEQNGT
+LOGICAL :: LERADI
+LOGICAL :: LERADS
+LOGICAL :: LESHCV
+LOGICAL :: LESICE
+LOGICAL :: LESURF
+LOGICAL :: LEVDIF
+LOGICAL :: LAGPHY
+LOGICAL :: LEPCLD
+LOGICAL :: LEO3CH
+LOGICAL :: LECO2DIU
+LOGICAL :: LBUD23
+LOGICAL :: LEMETHOX
+LOGICAL :: LERA40
+LOGICAL :: LECURR
+LOGICAL :: LVDFTRAC
+LOGICAL :: LMFTRAC
+LOGICAL :: LERAIN
+LOGICAL :: LE4ALB
+LOGICAL :: LEMWAVE
+LOGICAL :: LEOCWA
+LOGICAL :: LEOCCO
+LOGICAL :: LEOCSA
+REAL(KIND=JPRB) :: RTHRFRTI
+INTEGER(KIND=JPIM) :: NPHYINT
+INTEGER(KIND=JPIM) :: NPHPROMA
+INTEGER (KIND=JPIM) :: NEPHYS_PCFULL
+
+!     REFERENCE.
+!     ----------
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      91/07/14
+
+!     MODIFICATIONS
+!     -------------
+
+!     P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
+!     ------------------------------------------------------------------
+
+!  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
+! 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
+! LERADI : LOGICAL : TURN THE RADIATION SCHEME ON
+! LERADS : LOGICAL : TURN THE INTERACTIVE SURFACE RADIATIVE PROPERTIESON
+! 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)
+! LECO2DIU: LOGICAL: UPDATE THE NBF CO2 FLUXES CLIMATOLOGY DURING THE RUN OF THE MODEL (introduce a diurnal cycle)
+! LBUD23 : LOGICAL : SWITCH FOR 3 AND 2 DIMENSIONAL BUDGETS 
+! LEMETHOX: LOGICAL: TURN THE METHANE OXIDATION ON
+! LERA40 : LOGICAL : EXTRA PHYSICS DIAGNOSTICS FOR ERA40
+! LECURR : LOGICAL : IF TRUE, OCEAN CURRENT BOUNDARY CONDITION IS USED
+! LVDFTRAC: LOGICAL: TURN TRACER TRANSPORT BY VERTICAL DIFFUSION ON 
+! LMFTRAC: LOGICAL : TURN TRACER TRANSPORT BY MASS FLUX CONVECTION ON
+! LERAIN : LOGICAL : RAIN ASSIMILATION
+! LE4ALB : LOGICAL : MODIS ALBEDO ON (DIRECT+DIFFUSE)*(UVIS+NIR) 
+! LEOCWA : LOGICAL : WARM OCEAN LAYER PARAMETRIZATION
+! LEOCCO : LOGICAL : COOL OCEAN SKIN PARAMETRIZATION
+! LEOCSA : LOGICAL : SALINTY EFFECT ON SATURATION AT OCEAN SURFACE
+! RTHRFRTI : INTEGER : MINIMUM FRACTION FOR ALL SURFACE TILES
+! LE4ALB : LOGICAL  : MODIS ALBEDO (UV-Vis+NIR)x(direct+diffuse) 
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(lagphy,lbud23,le4alb,leco2diu,lecond,lecumf,lecurr,ledcld)
+!$OMP THREADPRIVATE(leevap,legwdg,lemethox,lemwave,leo3ch,leocco,leocsa,leocwa)
+!$OMP THREADPRIVATE(leozoc,lepcld,lephys,leqngt,lera40,leradi,lerads,lerain)
+!$OMP THREADPRIVATE(leshcv,lesice,lesurf,levdif,lmftrac,lvdftrac,nephys_pcfull)
+!$OMP THREADPRIVATE(nphproma,nphyint,rthrfrti)
+
+END MODULE YOEPHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerad.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerad.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerad.F90	(revision 3330)
@@ -0,0 +1,181 @@
+MODULE YOERAD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERAD* - CONTROL OPTIONS FOR RADIATION CONFIGURATION
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NAER
+INTEGER(KIND=JPIM) :: NMODE
+INTEGER(KIND=JPIM) :: NOZOCL
+INTEGER(KIND=JPIM) :: NRADFR
+INTEGER(KIND=JPIM) :: NRADPFR
+INTEGER(KIND=JPIM) :: NRADPLA
+INTEGER(KIND=JPIM) :: NRINT
+INTEGER(KIND=JPIM) :: NRADINT
+INTEGER(KIND=JPIM) :: NRADRES
+INTEGER(KIND=JPIM) :: NRADNFR
+INTEGER(KIND=JPIM) :: NRADSFR
+INTEGER(KIND=JPIM) :: NOVLP
+INTEGER(KIND=JPIM) :: NRPROMA
+INTEGER(KIND=JPIM) :: NLW
+!INTEGER(KIND=JPIM) :: NSW  mis dans .def MPL 20140211
+INTEGER(KIND=JPIM) :: NSWNL
+INTEGER(KIND=JPIM) :: NSWTL
+INTEGER(KIND=JPIM) :: NTSW
+INTEGER(KIND=JPIM) :: NUV
+INTEGER(KIND=JPIM) :: NCSRADF
+INTEGER(KIND=JPIM) :: NICEOPT
+INTEGER(KIND=JPIM) :: NLIQOPT
+INTEGER(KIND=JPIM) :: NRADIP
+INTEGER(KIND=JPIM) :: NRADLP
+INTEGER(KIND=JPIM) :: NINHOM
+INTEGER(KIND=JPIM) :: NLAYINH
+INTEGER(KIND=JPIM) :: NLNGR1H
+INTEGER(KIND=JPIM) :: NPERTAER
+INTEGER(KIND=JPIM) :: NPERTOZ
+INTEGER(KIND=JPIM) :: NSCEN
+INTEGER(KIND=JPIM) :: NHINCSOL
+INTEGER(KIND=JPIM) :: NMCICA
+
+LOGICAL :: LERAD1H
+LOGICAL :: LERADHS
+LOGICAL :: LEPO3RA
+LOGICAL :: LRADLB
+LOGICAL :: LONEWSW
+LOGICAL :: LECSRAD
+LOGICAL :: LRRTM
+LOGICAL :: LSRTM
+LOGICAL :: LDIFFC
+LOGICAL :: LHVOLCA
+LOGICAL :: LNEWAER
+LOGICAL :: LNOTROAER
+LOGICAL :: LRAYL
+LOGICAL :: LOPTRPROMA
+LOGICAL :: LECO2VAR
+LOGICAL :: LHGHG
+
+CHARACTER (LEN = 256) ::  CRTABLEDIR
+CHARACTER (LEN = 32) ::   CRTABLEFIL
+LOGICAL :: LCCNL
+LOGICAL :: LCCNO
+
+REAL(KIND=JPRB) :: RAOVLP , RBOVLP
+REAL(KIND=JPRB) :: RCCNLND, RCCNSEA
+LOGICAL :: LEDBUG
+REAL(KIND=JPRB) :: RPERTOZ, RRe2De
+REAL(KIND=JPRB) :: RLWINHF, RSWINHF
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LERAD1H: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS
+!                  : DURING FIRST N HOURS OF FORECAST
+! NLNGR1H: INTEGER : NUMBER FORECAST HOURS DURING WHICH MORE FREQUENT
+!                    RADIATION CALCULATIONS ARE REQUIRED
+! 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)
+! NRADINT: INTEGER : RADIATION INTERPOLATION METHOD
+!                  : 0 = CURRENT RADIATION INTERPOLATION (CONTROLLED BY NRINT)
+!                  : 1 = SPECTRAL TRANSFORM INTERPOLATION
+!                  : 2 =  4 POINT HORIZONTAL INTERPOLATION
+!                  : 3 = 12 POINT HORIZONTAL INTERPOLATION
+! NRADRES: INTEGER : RADIATION GRID SPECTRAL RESOLUTION
+! 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
+! NLW    : INTEGER : NUMBER OF LONGWAVE SPECTRAL INTERVALS    
+! NSW    : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS
+! NSWNL  : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS IN NL MODEL
+! NSWTL  : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS IN TL MODEL
+! NTSW   : INTEGER : MAXIMUM POSSIBLE NUMBER OF SW SPECTRAL INTERVALS 
+! NUV    : INTEGER : NUMBER OF UV SPECTRAL INTERVALS FOR THE UV PROCESSOR   
+! LRADLB : LOGICAL : .T. IF RADIATION COURSER GRID IS TO BE LOAD BALANCED
+!                  : OVER PROCESSORS (I.E. WHEN NRINT>1)
+! LOPTRPROMA:LOGICAL: .T. NRPROMA will be optimised
+!                   : .F. NRPROMA will not be optimised (forced
+!                   :         by negative NRPROMA in namelist)
+
+! NRADIP : INTEGER : INDEX FOR DIAGNOSIS OF ICE CLOUD EFFECTIVE RADIUS
+!          0=EbCu/SmSh  1=EbCu/EbCu  2=FuLi/FuLi  3=Fu/Fu&al
+! NRADLP : INTEGER : INDEX FOR DIAGNOSIS OF LIQ. CLOUD EFFECTIVE RADIUS
+!          0=YF/SmSh    1=ASl/HSa    2=ASl/LiLi
+! NICEOPT: INTEGER : INDEX FOR ICE CLOUD OPTICAL PROPERTIES
+!          0=40u        1=40-130     2=30-60      3=Sun'01
+! NLIQOPT: INTEGER : INDEX FOR LIQUID WATER CLOUD OPTICAL PROPERTIES
+!          0=f(P)       1=10/13      2=Martin_et_al
+
+! 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
+
+! LHVOLCA: LOGICAL : .T. IF GISS HISTORY OF VOLCANIC AEROSOLS IS ON
+! LNEWAER: LOGICAL : .T. IF AEROSOL MONTHLY DISTRIBUTIONS ARE USED
+! LNOTROAER:LOGICAL: .T. IF NO TROPOSPHERIC AEROSOLS
+! CRTABLEDIR: CHAR : IF NRADINT > 0 SPECIFIES DIRECTORY PATH FOR RADIATION
+!                  : GRID RTABLE NAMELIST
+! CRTABLEFIL: CHAR : IF NRADINT > 0 SPECIFIES FILE NAME OF RADIATION 
+!                  : GRID RTABLE NAMELIST
+! LRAYL  : LOGICAL : .T. NEW RAYLEIGH FOR SW-6 VERSION
+
+! RAOVLP : REAL    : COEFFICIENTS FOR ALPHA1 FACTOR IN HOGAN & 
+! RBOVLP : REAL    : ILLINGWORTH's PARAMETRIZATION
+
+! LCCNL  : LOGICAL : .T. IF CCN CONCENTRATION OVER LAND IS DIAGNOSED
+! LCCNO  : LOGICAL : .T. IF CCN CONCENTRATION OVER OCEAN IS DIAGNOSED
+! RCCNLND: REAL    : NUMBER CONCENTRATION (CM-3) OF CCNs OVER LAND
+! RCCNSEA: REAL    : NUMBER CONCENTRATION (CM-3) OF CCNs OVER SEA
+
+! LDIFFC : LOGICAL : .T. IF SAVIJARVI'S DIFFUSIVITY CORRECTION IS ON
+
+! NINHOM : INTEGER : 0 IF NO INHOMOGENEITY SCALING EFFECT 
+!                    1 IF SIMPLE 0.7 SCALING
+!                    2 IF BARKER, 3 IF CAIRNS ET AL.
+! RLWINHF: REAL    : INHOMOG. SCALING FACTOR FOR CLOUD LW OPTICAL THICKNESS
+! RSWINHF: REAL    : INHOMOG. SCALING FACTOR FOR CLOUD SW OPTICAL THICKNESS
+
+! NPERTAER : INTERGER : PERCENTAGE OF PERTURBATION FOR AEROSOL   
+! NPERTOZONE : INTEGER : PERCENTAGE OF PERTURBATION FOR OZONE 
+! NHINCSOL:INTEGER :
+!        = 0 NO VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR 
+!        = 1 IF YEAR-TO-YEAR VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR 
+!        = 2 IF MONTH-TO-MONTH VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR 
+! LECO2VAR: LOGICAL: .T. IF ERA-40/AMIP2 VARIABILITY OF GHG IS ON
+! LHGHG  : LOGICAL : .T. IF VARIABILITY OF GREENHOUSE GASES (INCLUDING CO2) IS ON
+! N.B.: LHGHG supercedes LECO2VAR and allows using better specification of trace gases
+! NSCEN  : INTEGER : 21st CENTURY SCENARIO FOR GHG (1=A1B, 2=A2, 3=B1)
+! RRe2De : REAL    : CONVERSION FACTOR BETWWEN EFFECTIVE RADIUS AND PARTICLE SIZE
+!                    FOR ICE
+! NMCICA : INTEGER :  0: NO McICA
+!                     1: McICA w maximum-random in cloud generator
+!                     2: McICA w generalized overlap in cloud generator
+!     ------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(crtabledir,crtablefil,lccnl,lccno,ldiffc,leco2var,lecsrad)
+!$OMP THREADPRIVATE(ledbug,lepo3ra,lerad1h,leradhs,lhghg,lhvolca,lnewaer,lnotroaer)
+!$OMP THREADPRIVATE(lonewsw,loptrproma,lradlb,lrayl,lrrtm,lsrtm,naer,ncsradf,nhincsol)
+!$OMP THREADPRIVATE(niceopt,ninhom,nlayinh,nliqopt,nlngr1h,nlw,nmcica,nmode,novlp,nozocl)
+!$OMP THREADPRIVATE(npertaer,npertoz,nradfr,nradint,nradip,nradlp,nradnfr,nradpfr,nradpla)
+!$OMP THREADPRIVATE(nradres,nradsfr,nrint,nrproma,nscen,nswnl,nswtl,ntsw,nuv,raovlp)
+!$OMP THREADPRIVATE(rbovlp,rccnlnd,rccnsea,rlwinhf,rpertoz,rre2de,rswinhf)
+
+END MODULE YOERAD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerdi.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerdi.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerdi.F90	(revision 3330)
@@ -0,0 +1,47 @@
+MODULE YOERDI
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RRAE
+REAL(KIND=JPRB) :: RSUNDUR
+REAL(KIND=JPRB) :: RCARDI
+REAL(KIND=JPRB) :: RCH4
+REAL(KIND=JPRB) :: RN2O
+REAL(KIND=JPRB) :: RO3
+REAL(KIND=JPRB) :: RCFC11
+REAL(KIND=JPRB) :: RCFC12
+REAL(KIND=JPRB) :: REPCLC
+REAL(KIND=JPRB) :: REPH2O
+REAL(KIND=JPRB) :: RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12
+REAL(KIND=JPRB) :: RHVAR(151,5), RFVAR(101,3,5), RINCSOL(154), RSOLINC
+
+!        * 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
+!     Modified  P. Viterbo    24/05/2004  surf library
+!     Modified JJMorcrette    2005/01/19  GHG and Solar constant variability
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
+! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
+! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
+! 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.
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(rcardi,rccfc11,rccfc12,rcch4,rcco2,rcfc11,rcfc12,rch4)
+!$OMP THREADPRIVATE(rcn2o,repclc,reph2o,rfvar,rhvar,rincsol,rn2o,ro3,rrae)
+!$OMP THREADPRIVATE(rsolinc,rsundur)
+
+END MODULE YOERDI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerdu.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerdu.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerdu.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE YOERDU
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERDU* - CONTROL, PARAMETERS AND SECURITY IN RADIATION
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NUAER
+INTEGER(KIND=JPIM) :: NTRAER
+INTEGER(KIND=JPIM) :: NIMP
+INTEGER(KIND=JPIM) :: NOUT
+REAL(KIND=JPRB) :: RCDAY
+REAL(KIND=JPRB) :: R10E
+REAL(KIND=JPRB) :: REPLOG
+REAL(KIND=JPRB) :: REPSC
+REAL(KIND=JPRB) :: REPSCO
+REAL(KIND=JPRB) :: REPSCQ
+REAL(KIND=JPRB) :: REPSCT
+REAL(KIND=JPRB) :: REPSCW
+REAL(KIND=JPRB) :: 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
+
+!     -----------------------------------------------------------------
+
+
+!$OMP THREADPRIVATE(diff,nimp,nout,ntraer,nuaer,r10e,rcday,replog,repsc,repsco,repscq,repsct,repscw)
+
+END MODULE YOERDU
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta1.F90	(revision 3330)
@@ -0,0 +1,39 @@
+MODULE YOERRTA1
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA1* - RRTM COEFFICIENTS FOR INTERVAL 1
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG1  = 8
+
+REAL(KIND=JPRB) :: FRACREFA(NG1)  , FRACREFB(NG1)
+REAL(KIND=JPRB) :: KA(5,13,NG1)   , ABSA(65,NG1)
+REAL(KIND=JPRB) :: KB(5,13:59,NG1), ABSB(235,NG1)
+REAL(KIND=JPRB) :: SELFREF(10,NG1), FORREF(NG1)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta10.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOERRTA10
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA14* - RRTM COEFFICIENTS FOR INTERVAL 10
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
+
+REAL(KIND=JPRB) , DIMENSION(NG10) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG10) :: FRACREFB
+
+REAL(KIND=JPRB) :: KA(5,13,NG10)   , ABSA(65,NG10)
+REAL(KIND=JPRB) :: KB(5,13:59,NG10), ABSB(235,NG10)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,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
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA10
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta11.F90	(revision 3330)
@@ -0,0 +1,40 @@
+MODULE YOERRTA11
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA11* - RRTM COEFFICIENTS FOR INTERVAL 11
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
+
+REAL(KIND=JPRB) , DIMENSION(NG11) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG11) :: FRACREFB
+
+REAL(KIND=JPRB) :: KA(5,13,NG11)   , ABSA(65,NG11)
+REAL(KIND=JPRB) :: KB(5,13:59,NG11), ABSB(235,NG11)
+REAL(KIND=JPRB) :: SELFREF(10,NG11)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,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
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA11
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta12.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOERRTA12
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA12* - RRTM COEFFICIENTS FOR INTERVAL 12
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
+
+REAL(KIND=JPRB) :: FRACREFA(NG12,9)
+REAL(KIND=JPRB) :: KA(9,5,13,NG12) ,ABSA(585,NG12)
+REAL(KIND=JPRB) :: SELFREF(10,NG12)
+
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta13.F90	(revision 3330)
@@ -0,0 +1,36 @@
+MODULE YOERRTA13
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA13* - RRTM COEFFICIENTS FOR INTERVAL 13
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
+
+REAL(KIND=JPRB) :: FRACREFA(NG13,9)
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG13) ,ABSA(585,NG13)
+REAL(KIND=JPRB) :: SELFREF(10,NG13)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta14.F90	(revision 3330)
@@ -0,0 +1,39 @@
+MODULE YOERRTA14
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA14* - RRTM COEFFICIENTS FOR INTERVAL 14
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
+
+REAL(KIND=JPRB) , DIMENSION(NG14) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG14) :: FRACREFB
+
+REAL(KIND=JPRB) :: KA(5,13,NG14)   ,ABSA(65,NG14)
+REAL(KIND=JPRB) :: KB(5,13:59,NG14),ABSB(235,NG14)
+REAL(KIND=JPRB) :: SELFREF(10,NG14)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta15.F90	(revision 3330)
@@ -0,0 +1,36 @@
+MODULE YOERRTA15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA15* - RRTM COEFFICIENTS FOR INTERVAL 15
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
+
+REAL(KIND=JPRB) :: FRACREFA(NG15,9)
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG15) ,ABSA(585,NG15)
+REAL(KIND=JPRB) :: SELFREF(10,NG15)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta16.F90	(revision 3330)
@@ -0,0 +1,36 @@
+MODULE YOERRTA16
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA16* - RRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG16 = 2
+
+REAL(KIND=JPRB) :: FRACREFA(NG16,9)
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG16) ,ABSA(585,NG16)
+REAL(KIND=JPRB) :: SELFREF(10,NG16)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta2.F90	(revision 3330)
@@ -0,0 +1,43 @@
+MODULE YOERRTA2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA2* - RRTM COEFFICIENTS FOR INTERVAL 2
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG2  = 14
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+REAL(KIND=JPRB) :: FRACREFA(NG2,13), FRACREFB(NG2), REFPARAM(13)
+REAL(KIND=JPRB) :: KA(5,13,NG2)   , ABSA(65,NG2)
+REAL(KIND=JPRB) :: KB(5,13:59,NG2), ABSB(235,NG2)
+REAL(KIND=JPRB) :: SELFREF(10,NG2), FORREF(NG2)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta3.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE YOERRTA3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA3* - RRTM COEFFICIENTS FOR INTERVAL 3
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
+
+REAL(KIND=JPRB) :: FRACREFA(NG3,10) ,FRACREFB(NG3,5)
+
+REAL(KIND=JPRB) , DIMENSION(16) :: FORREF
+REAL(KIND=JPRB) , DIMENSION(16) :: ABSN2OA
+REAL(KIND=JPRB) , DIMENSION(16) :: ABSN2OB
+REAL(KIND=JPRB) , DIMENSION(10) :: ETAREF
+REAL(KIND=JPRB) , DIMENSION(59) :: H2OREF
+REAL(KIND=JPRB) , DIMENSION(59) :: N2OREF
+REAL(KIND=JPRB) , DIMENSION(59) :: CO2REF
+
+REAL(KIND=JPRB) :: KA(10,5,13,NG3)  ,ABSA(650,NG3)
+REAL(KIND=JPRB) :: KB(5,5,13:59,NG3),ABSB(1175,NG3)
+REAL(KIND=JPRB) :: SELFREF(10,NG3)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
+
+!     ------------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta4.F90	(revision 3330)
@@ -0,0 +1,40 @@
+MODULE YOERRTA4
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA4* - RRTM COEFFICIENTS FOR INTERVAL 5
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
+
+REAL(KIND=JPRB) :: FRACREFA(NG4,9)  ,FRACREFB(NG4,6)
+REAL(KIND=JPRB) :: KA(9,5,13,NG4)   ,ABSA(585,NG4)
+REAL(KIND=JPRB) :: KB(6,5,13:59,NG4),ABSB(1410,NG4)
+REAL(KIND=JPRB) :: SELFREF(10,NG4)
+REAL(KIND=JPRB) :: STRRAT1
+REAL(KIND=JPRB) :: STRRAT2
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
+
+!     ------------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta5.F90	(revision 3330)
@@ -0,0 +1,46 @@
+MODULE YOERRTA5
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA5* - RRTM COEFFICIENTS FOR INTERVAL 5
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
+
+REAL(KIND=JPRB) :: FRACREFA(NG5,9) ,FRACREFB(NG5,5)
+
+REAL(KIND=JPRB) , DIMENSION(NG5) :: CCL4
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG5)   ,ABSA(585,NG5)
+REAL(KIND=JPRB) :: KB(5,5,13:59,NG5),ABSB(1175,NG5)
+REAL(KIND=JPRB) :: SELFREF(10,NG5)
+REAL(KIND=JPRB) :: STRRAT1
+REAL(KIND=JPRB) :: STRRAT2
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta6.F90	(revision 3330)
@@ -0,0 +1,43 @@
+MODULE YOERRTA6
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA6* - RRTM COEFFICIENTS FOR INTERVAL 6
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
+
+REAL(KIND=JPRB) , DIMENSION(NG6) :: FRACREFA
+
+REAL(KIND=JPRB) , DIMENSION(NG6) :: CFC11ADJ
+REAL(KIND=JPRB) , DIMENSION(NG6) :: CFC12
+REAL(KIND=JPRB) , DIMENSION(NG6) :: ABSCO2
+
+REAL(KIND=JPRB) :: KA(5,13,NG6),ABSA(65,NG6)
+REAL(KIND=JPRB) :: SELFREF(10,NG6)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta7.F90	(revision 3330)
@@ -0,0 +1,45 @@
+MODULE YOERRTA7
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA7* - RRTM COEFFICIENTS FOR INTERVAL 7
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
+
+REAL(KIND=JPRB) :: FRACREFA(NG7,9)
+
+REAL(KIND=JPRB) , DIMENSION(NG7) :: FRACREFB
+REAL(KIND=JPRB) , DIMENSION(NG7) :: ABSCO2
+REAL(KIND=JPRB) :: KA(9,5,13,NG7) ,ABSA(585,NG7)
+REAL(KIND=JPRB) :: KB(5,13:59,NG7),ABSB(235,NG7)
+REAL(KIND=JPRB) :: SELFREF(10,NG7)
+
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,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 
+! ABSCO2  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL  
+! STRRAT  : REAL   
+!     -----------------------------------------------------------------
+END MODULE YOERRTA7
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta8.F90	(revision 3330)
@@ -0,0 +1,58 @@
+MODULE YOERRTA8
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA8* - RRTM COEFFICIENTS FOR INTERVAL 8
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
+
+REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFB
+REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC12
+REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC22ADJ
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSCO2A
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSCO2B
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSN2OA
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSN2OB
+REAL(KIND=JPRB) , DIMENSION(59)  :: H2OREF
+REAL(KIND=JPRB) , DIMENSION(59)  :: N2OREF
+REAL(KIND=JPRB) , DIMENSION(59)  :: O3REF
+
+REAL(KIND=JPRB) :: KA(5,7,NG8)    ,ABSA(35,NG8)
+REAL(KIND=JPRB) :: KB(5,7:59,NG8) ,ABSB(265,NG8)
+REAL(KIND=JPRB) :: SELFREF(10,NG8)
+
+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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrta9.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOERRTA9
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA9* - RRTM COEFFICIENTS FOR INTERVAL 9
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
+
+REAL(KIND=JPRB) :: FRACREFA(NG9,9)
+
+REAL(KIND=JPRB) , DIMENSION(NG9) :: FRACREFB
+REAL(KIND=JPRB) , DIMENSION(13) :: N2OREF
+REAL(KIND=JPRB) , DIMENSION(13) :: H2OREF
+REAL(KIND=JPRB) , DIMENSION(13) :: CH4REF
+REAL(KIND=JPRB) , DIMENSION(11) :: ETAREF
+! 36 = 3*NG9      
+REAL(KIND=JPRB) , DIMENSION(36) :: ABSN2O
+
+REAL(KIND=JPRB) :: KA(11,5,13,NG9) ,ABSA(715,NG9)
+REAL(KIND=JPRB) :: KB(5,13:59,NG9) ,ABSB(235,NG9)
+REAL(KIND=JPRB) :: SELFREF(10,NG9)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * 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/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtab.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtab.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtab.F90	(revision 3330)
@@ -0,0 +1,30 @@
+MODULE YOERRTAB
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL(KIND=JPRB) , DIMENSION(0:5000) :: TRANS
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(bpade,trans)
+
+END MODULE YOERRTAB
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtbg2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtbg2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtbg2.F90	(revision 3330)
@@ -0,0 +1,31 @@
+MODULE YOERRTBG2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARRRTM
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: CORR1(0:200)
+REAL(KIND=JPRB) :: 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   :
+!    -------------------------------------------------------------------
+!$OMP THREADPRIVATE(corr1,corr2)
+
+END MODULE YOERRTBG2
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtftr.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtftr.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtftr.F90	(revision 3330)
@@ -0,0 +1,41 @@
+MODULE YOERRTFTR
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARRRTM
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NGC(JPBAND)
+INTEGER(KIND=JPIM) :: NGS(JPBAND)
+INTEGER(KIND=JPIM) :: NGN(JPGPT)
+INTEGER(KIND=JPIM) :: NGB(JPGPT)
+
+INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
+REAL(KIND=JPRB) ::    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    :
+!    -------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(ngb,ngc,ngm,ngn,ngs,wt)
+
+END MODULE YOERRTFTR
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto1.F90	(revision 3330)
@@ -0,0 +1,36 @@
+MODULE YOERRTO1
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO1* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 1
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO1  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO1)  , FRACREFBO(NO1)
+REAL(KIND=JPRB) :: KAO(5,13,NO1)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO1)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(forrefo,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto10.F90	(revision 3330)
@@ -0,0 +1,37 @@
+MODULE YOERRTO10
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO14* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 10
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO10 = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO10) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO10) :: FRACREFBO
+
+REAL(KIND=JPRB) :: KAO(5,13,NO10)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo) 
+
+END MODULE YOERRTO10
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto11.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOERRTO11
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO11* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 11
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO11 = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO11) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO11) :: FRACREFBO
+
+REAL(KIND=JPRB) :: KAO(5,13,NO11)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO11)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO11
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto12.F90	(revision 3330)
@@ -0,0 +1,34 @@
+MODULE YOERRTO12
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO12* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 12
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO12 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO12,9)
+REAL(KIND=JPRB) :: KAO(9,5,13,NO12)
+REAL(KIND=JPRB) :: 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
+!     -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
+
+END MODULE YOERRTO12
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto13.F90	(revision 3330)
@@ -0,0 +1,33 @@
+MODULE YOERRTO13
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO13* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 13
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO13 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO13,9)
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO13)
+REAL(KIND=JPRB) :: 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
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
+END MODULE YOERRTO13
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto14.F90	(revision 3330)
@@ -0,0 +1,37 @@
+MODULE YOERRTO14
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO14* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 14
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO14 = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO14) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO14) :: FRACREFBO
+
+REAL(KIND=JPRB) :: KAO(5,13,NO14)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO14)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO14
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto15.F90	(revision 3330)
@@ -0,0 +1,33 @@
+MODULE YOERRTO15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO15* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 15
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO15 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO15,9)
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO15)
+REAL(KIND=JPRB) :: 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 
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
+END MODULE YOERRTO15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto16.F90	(revision 3330)
@@ -0,0 +1,33 @@
+MODULE YOERRTO16
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO16* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO16 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO16,9)
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO16)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
+END MODULE YOERRTO16
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto2.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOERRTO2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO2* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 2
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO2  = 16
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+REAL(KIND=JPRB) :: FRACREFAO(NO2,13), FRACREFBO(NO2)
+REAL(KIND=JPRB) :: KAO(5,13,NO2)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO2)
+REAL(KIND=JPRB) :: 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  
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(forrefo,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto3.F90	(revision 3330)
@@ -0,0 +1,42 @@
+MODULE YOERRTO3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO3* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 3
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO3  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO3,10) ,FRACREFBO(NO3,5)
+
+REAL(KIND=JPRB) , DIMENSION(NO3) :: FORREFO
+REAL(KIND=JPRB) , DIMENSION(NO3) :: ABSN2OAO
+REAL(KIND=JPRB) , DIMENSION(NO3) :: ABSN2OBO
+
+REAL(KIND=JPRB) :: KAO(10,5,13,NO3)
+REAL(KIND=JPRB) :: KBO(5,5,13:59,NO3)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(absn2oao,absn2obo,forrefo,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto4.F90	(revision 3330)
@@ -0,0 +1,35 @@
+MODULE YOERRTO4
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO4* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 4
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO4  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO4,9)  ,FRACREFBO(NO4,6)
+REAL(KIND=JPRB) :: KAO(9,5,13,NO4)
+REAL(KIND=JPRB) :: KBO(6,5,13:59,NO4)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO4
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto5.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOERRTO5
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO5* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 5
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO5  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO5,9) ,FRACREFBO(NO5,5)
+
+REAL(KIND=JPRB) , DIMENSION(NO5) :: CCL4O
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO5)
+REAL(KIND=JPRB) :: KBO(5,5,13:59,NO5)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(ccl4o,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO5
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto6.F90	(revision 3330)
@@ -0,0 +1,37 @@
+MODULE YOERRTO6
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO6* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 6
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO6  = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO6) :: FRACREFAO
+
+REAL(KIND=JPRB) , DIMENSION(NO6) :: CFC11ADJO
+REAL(KIND=JPRB) , DIMENSION(NO6) :: CFC12O
+REAL(KIND=JPRB) , DIMENSION(NO6) :: ABSCO2O
+
+REAL(KIND=JPRB) :: KAO(5,13,NO6)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(absco2o,cfc11adjo,cfc12o,fracrefao,kao,selfrefo)
+END MODULE YOERRTO6
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto7.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOERRTO7
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO7* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 7
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO7  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO7,9)
+
+REAL(KIND=JPRB) , DIMENSION(NO7) :: FRACREFBO
+REAL(KIND=JPRB) , DIMENSION(NO7) :: ABSCO2O
+REAL(KIND=JPRB) :: KAO(9,5,13,NO7)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO7)
+REAL(KIND=JPRB) :: 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  
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(absco2o,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO7
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto8.F90	(revision 3330)
@@ -0,0 +1,49 @@
+MODULE YOERRTO8
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO8* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 8
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO8  = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO8) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: FRACREFBO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: CFC12O
+REAL(KIND=JPRB) , DIMENSION(NO8) :: CFC22ADJO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSCO2AO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSCO2BO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSN2OAO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSN2OBO
+
+REAL(KIND=JPRB) :: KAO(5,7,NO8)
+REAL(KIND=JPRB) :: KBO(5,7:59,NO8)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(absco2ao,absco2bo,absn2oao,absn2obo,cfc12o,cfc22adjo,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO8
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrto9.F90	(revision 3330)
@@ -0,0 +1,45 @@
+MODULE YOERRTO9
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO9* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 9
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO9  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO9,9)
+
+REAL(KIND=JPRB) , DIMENSION(NO9) :: FRACREFBO
+! 48 = 3*NO9      
+REAL(KIND=JPRB) , DIMENSION(48) :: ABSN2OO
+
+REAL(KIND=JPRB) :: KAO(11,5,13,NO9)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO9)
+REAL(KIND=JPRB) :: 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     
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(absn2oo,fracrefao,fracrefbo,kao,kbo,selfrefo)
+END MODULE YOERRTO9
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtrf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtrf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtrf.F90	(revision 3330)
@@ -0,0 +1,29 @@
+MODULE YOERRTRF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTRF* - RRTM REFERENCE ATMOSPHERE
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) , DIMENSION(59) :: PREF
+REAL(KIND=JPRB) , DIMENSION(59) :: PREFLOG
+REAL(KIND=JPRB) , 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
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(pref,preflog,tref)
+END MODULE YOERRTRF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtrwt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtrwt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtrwt.F90	(revision 3330)
@@ -0,0 +1,35 @@
+MODULE YOERRTRWT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARRRTM
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: FREFA  (JPGPT,13)
+REAL(KIND=JPRB) :: FREFB  (JPGPT,6)
+REAL(KIND=JPRB) :: FREFADF(JPGPT,13)
+REAL(KIND=JPRB) :: FREFBDF(JPGPT,6)
+REAL(KIND=JPRB) :: 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   : 
+!    -------------------------------------------------------------------
+!$OMP THREADPRIVATE(frefa,frefadf,frefb,frefbdf,rwgt)
+END MODULE YOERRTRWT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtwn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtwn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoerrtwn.F90	(revision 3330)
@@ -0,0 +1,39 @@
+MODULE YOERRTWN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) , DIMENSION(16) :: NG
+INTEGER(KIND=JPIM) , DIMENSION(16) :: NSPA
+INTEGER(KIND=JPIM) , DIMENSION(16) :: NSPB
+
+REAL(KIND=JPRB) , DIMENSION(16) :: WAVENUM1
+REAL(KIND=JPRB) , DIMENSION(16) :: WAVENUM2
+REAL(KIND=JPRB) , DIMENSION(16) :: DELWAVE
+
+REAL(KIND=JPRB) , DIMENSION(181,16) :: TOTPLNK
+REAL(KIND=JPRB) , 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    :
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(delwave,ng,nspa,nspb,totplk16,totplnk,wavenum1,wavenum2)
+END MODULE YOERRTWN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesat.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesat.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesat.F90	(revision 3330)
@@ -0,0 +1,56 @@
+MODULE YOESAT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESAT* - CONTROL OF SIMULATION OF SATELLITE RADIANCES
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NGEO
+INTEGER(KIND=JPIM) :: NPOLO
+REAL(KIND=JPRB) :: RGALT(5)
+REAL(KIND=JPRB) :: RGNAD(5)
+REAL(KIND=JPRB) :: RGNOR(5)
+REAL(KIND=JPRB) :: RGSOU(5)
+REAL(KIND=JPRB) :: RGWST(5)
+REAL(KIND=JPRB) :: 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
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(lgeose,lgeosw,lgms,lindsa,lmto,lnoaa,lnoab,lnoac,lnoad,ngeo,npolo,rgalt,rgeas,rgnad,rgnor,rgsou,rgwst)
+END MODULE YOESAT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta16.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOESRTA16
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA16* - SRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3250 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG=16, NG16 = 16, NGS15 = 0
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT1
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG16),ABSA(585,NG16)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG16),ABSB(235,NG16)
+REAL(KIND=JPRB) :: SELFREFC(10,NG16),FORREFC(3,NG16)
+REAL(KIND=JPRB) :: SFLUXREFC(NG16)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL   
+! SFLUXREF: REAL
+! RAYL    : REAL 
+! STRRAT1 : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA16
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta17.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta17.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta17.F90	(revision 3330)
@@ -0,0 +1,53 @@
+MODULE YOESRTA17
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA17* - SRTM COEFFICIENTS FOR INTERVAL 17
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER ::  JPG = 16, NG17 = 16, NGS16=16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG)  
+REAL(KIND=JPRB) :: KB(5,5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG)  ,FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,5)
+REAL(KIND=JPRB) :: RAYL              ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG17),ABSA(585,NG17)
+REAL(KIND=JPRB) :: KBC(5,5,13:59,NG17),ABSB(1175,NG17)
+REAL(KIND=JPRB) :: SELFREFC(10,NG17),FORREFC(4,NG17)
+REAL(KIND=JPRB) :: SFLUXREFC(NG17,5)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,1,13,1),ABSB(1,1))
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL  
+! SFLUXREF: REAL  
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER 
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA17
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta18.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta18.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta18.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE YOESRTA18
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA18* - SRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG18 = 16, NGS17=32
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT
+
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG18) ,ABSA(585,NG18)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG18),ABSB(235,NG18)
+REAL(KIND=JPRB) :: SELFREFC(10,NG18),FORREFC(3,NG18)
+REAL(KIND=JPRB) :: SFLUXREFC(NG18,9)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL   
+! SFLUXREF: REAL 
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA18
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta19.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta19.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta19.F90	(revision 3330)
@@ -0,0 +1,53 @@
+MODULE YOESRTA19
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA19* - SRTM COEFFICIENTS FOR INTERVAL 19
+!     BAND 19:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG19 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG19) ,ABSA(585,NG19)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG19),ABSB(235,NG19)
+REAL(KIND=JPRB) :: SELFREFC(10,NG19),FORREFC(3,NG19)
+REAL(KIND=JPRB) :: SFLUXREFC(NG19,9)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL
+! SFLUXREF: REAL  
+! RAYL    : REAL  
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA19
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta20.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta20.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta20.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE YOESRTA20
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA20* - SRTM COEFFICIENTS FOR INTERVAL 20
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG20 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,ABSCH4(JPG)
+REAL(KIND=JPRB) :: RAYL
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG20)   ,ABSA(65,NG20)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG20),ABSB(235,NG20)
+REAL(KIND=JPRB) :: SELFREFC(10,NG20),FORREFC(4,NG20)
+REAL(KIND=JPRB) :: SFLUXREFC(NG20)  ,ABSCH4C(NG20)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL  
+! SFLUXREF: REAL
+! ABSCH4  : REAL  
+! RAYL    : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! ABSCH4C : REAL     Reduced g-point array for ABSCH4
+!     -----------------------------------------------------------------
+END MODULE YOESRTA20
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta21.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta21.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta21.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOESRTA21
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA21* - SRTM COEFFICIENTS FOR INTERVAL 21
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG21 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG)  ,FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL              ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG21)   ,ABSA(585,NG21)
+REAL(KIND=JPRB) :: KBC(5,5,13:59,NG21),ABSB(1175,NG21)
+REAL(KIND=JPRB) :: SELFREFC(10,NG21)  ,FORREFC(4,NG21)
+REAL(KIND=JPRB) :: SFLUXREFC(NG21,9)
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,1,13,1),ABSB(1,1))
+!EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL    
+! SFLUXREF: REAL
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA21
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta22.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta22.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta22.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOESRTA22
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA22* - SRTM COEFFICIENTS FOR INTERVAL 22
+!     BAND 22:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG22 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG22) ,ABSA(585,NG22)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG22),ABSB(235,NG22)
+REAL(KIND=JPRB) :: SELFREFC(10,NG22),FORREFC(3,NG22)
+REAL(KIND=JPRB) :: SFLUXREFC(NG22,9)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL    
+! SFLUXREF: REAL
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA22
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta23.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta23.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta23.F90	(revision 3330)
@@ -0,0 +1,51 @@
+MODULE YOESRTA23
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA23* - SRTM COEFFICIENTS FOR INTERVAL 23
+!     BAND 23:  8050-12850 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG23 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,RAYL(JPG)
+REAL(KIND=JPRB) :: GIVFAC
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG23)   ,ABSA(65,NG23)
+REAL(KIND=JPRB) :: SELFREFC(10,NG23),FORREFC(3,NG23)
+REAL(KIND=JPRB) :: SFLUXREFC(NG23)  ,RAYLC(NG23)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! SELFREF : REAL 
+! FORREF  : REAL    
+! SFLUXREF: REAL
+! RAYL    : REAL
+! GIVFAC  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+!     -----------------------------------------------------------------
+END MODULE YOESRTA23
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta24.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta24.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta24.F90	(revision 3330)
@@ -0,0 +1,63 @@
+MODULE YOESRTA24
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA24* - SRTM COEFFICIENTS FOR INTERVAL 24
+!     BAND 24: 12850-16000 cm-1 (low - H2O,O2; high - O2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG24 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: ABSO3A(JPG), ABSO3B(JPG), RAYLA(JPG,9), RAYLB(JPG)
+REAL(KIND=JPRB) :: STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG24) ,ABSA(585,NG24)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG24),ABSB(235,NG24)
+REAL(KIND=JPRB) :: SELFREFC(10,NG24),FORREFC(3,NG24)
+REAL(KIND=JPRB) :: SFLUXREFC(NG24,9)
+REAL(KIND=JPRB) :: ABSO3AC(NG24), ABSO3BC(NG24), RAYLAC(NG24,9), RAYLBC(NG24)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL 
+! SFLUXREF: REAL
+! ABSO3A  : REAL
+! ABSO3B  : REAL
+! RAYLA   : REAL
+! RAYLB   : REAL   
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! ABSO3AC : REAL     Reduced g-point array for ABSO3A
+! ABSO3BC : REAL     Reduced g-point array for ABSO3B
+! RAYLAC  : REAL     Reduced g-point array for RAYLA
+! RAYLBC  : REAL     Reduced g-point array for RAYLB
+!     -----------------------------------------------------------------
+END MODULE YOESRTA24
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta25.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta25.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta25.F90	(revision 3330)
@@ -0,0 +1,49 @@
+MODULE YOESRTA25
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA25* - SRTM COEFFICIENTS FOR INTERVAL 25
+!     BAND 25: 16000-22650 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG25 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG) 
+REAL(KIND=JPRB) :: SFLUXREF(JPG)
+REAL(KIND=JPRB) :: RAYL(JPG), ABSO3A(JPG), ABSO3B(JPG)
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG25) ,ABSA(65,NG25)
+REAL(KIND=JPRB) :: SFLUXREFC(NG25)
+REAL(KIND=JPRB) :: RAYLC(NG25), ABSO3AC(NG25), ABSO3BC(NG25)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! SFLUXREF: REAL
+! RAYL    : REAL
+! ABSO3A  : REAL
+! ABSO3B  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+! ABSO3AC : REAL     Reduced g-point array for ABSO3A
+! ABSO3BC : REAL     Reduced g-point array for ABSO3B
+!     -----------------------------------------------------------------
+END MODULE YOESRTA25
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta26.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta26.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta26.F90	(revision 3330)
@@ -0,0 +1,34 @@
+MODULE YOESRTA26
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA26* - SRTM COEFFICIENTS FOR INTERVAL 26
+!     BAND 26: 22650-29000 cm-1 (low - nothing; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG26 = 16
+
+REAL(KIND=JPRB) :: SFLUXREF(JPG), RAYL(JPG)
+
+REAL(KIND=JPRB) :: SFLUXREFC(NG26), RAYLC(NG26)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! SFLUXREF: REAL    
+! RAYL    : REAL 
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+!     -----------------------------------------------------------------
+END MODULE YOESRTA26
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta27.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta27.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta27.F90	(revision 3330)
@@ -0,0 +1,50 @@
+MODULE YOESRTA27
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA27* - SRTM COEFFICIENTS FOR INTERVAL 27
+!     BAND 27: 29000-38000 cm-1 (low - O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG27 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,RAYL(JPG)
+REAL(KIND=JPRB) :: SCALEKUR
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG27)   ,ABSA(65,NG27)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG27),ABSB(235,NG27)
+REAL(KIND=JPRB) :: SFLUXREFC(NG27)  ,RAYLC(NG27)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL 
+! KB      : REAL    
+! SFLUXREF: REAL 
+! RAYL    : REAL    
+! SCALEKUR: REAL
+! LAYREFFR:INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+!     -----------------------------------------------------------------
+END MODULE YOESRTA27
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta28.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta28.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta28.F90	(revision 3330)
@@ -0,0 +1,48 @@
+MODULE YOESRTA28
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA28* - SRTM COEFFICIENTS FOR INTERVAL 28
+!     BAND 28: 38000-50000 cm-1 (low - O3, O2; high - O3, O2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG28 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,5,13:59,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,5)
+REAL(KIND=JPRB) :: RAYL              ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG28)   ,ABSA(585,NG28)
+REAL(KIND=JPRB) :: KBC(5,5,13:59,NG28),ABSB(1175,NG28)
+REAL(KIND=JPRB) :: SFLUXREFC(NG28,5)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SFLUXREF: REAL 
+! RAYL    : REAL    
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA28
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta29.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta29.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrta29.F90	(revision 3330)
@@ -0,0 +1,57 @@
+MODULE YOESRTA29
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA29* - SRTM COEFFICIENTS FOR INTERVAL 29
+!     BAND 29:  820-2600 cm-1 (low - H2O; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG29 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,ABSH2O(JPG)  , ABSCO2(JPG)
+REAL(KIND=JPRB) :: RAYL
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG29)   ,ABSA(65,NG29)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG29),ABSB(235,NG29)
+REAL(KIND=JPRB) :: SELFREFC(10,NG29),FORREFC(4,NG29)
+REAL(KIND=JPRB) :: SFLUXREFC(NG29)  ,ABSH2OC(NG29)  , ABSCO2C(NG29)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL 
+! SFLUXREF: REAL
+! ABSH2O  : REAL
+! ABSCO2  : REAL   
+! RAYL    : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! ABSH2OC : REAL     Reduced g-point array for ABSH2O
+! ABSCO2C : REAL     Reduced g-point array for ABSCO2
+!     -----------------------------------------------------------------
+END MODULE YOESRTA29
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtaer.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtaer.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtaer.F90	(revision 3330)
@@ -0,0 +1,36 @@
+MODULE YOESRTAER
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESRTAER* - AEROSOL OPTICAL PROPERTIES FOR SRTM 
+!     ------------------------------------------------------------------
+
+!-- AEROSOL OPTICAL PROPERTIES
+
+!-- coefficients and parameters related to SRTM_SW 16 sp.int.
+
+REAL(KIND=JPRB) :: RSRTAUA(14,6)
+REAL(KIND=JPRB) :: RSRPIZA(14,6)
+REAL(KIND=JPRB) :: RSRASYA(14,6)
+
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      03/03/07
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!RSRTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!RSRPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
+!RSRASYA :  REAL     S.W. ASSYMETRY FACTOR
+
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(rsrasya,rsrpiza,rsrtaua)
+END MODULE YOESRTAER
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtcop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtcop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtcop.F90	(revision 3330)
@@ -0,0 +1,136 @@
+MODULE YOESRTCOP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESRTCOP* - CLOUD OPTICAL PROPERTIES FOR SRTM 
+!     ------------------------------------------------------------------
+
+!-- CLOUD OPTICAL PROPERTIES
+
+!-- coefficients and parameters related to SRTM_SW 14 sp.int.
+
+REAL(KIND=JPRB) :: RSYFWA(14)
+REAL(KIND=JPRB) :: RSYFWB(14)
+REAL(KIND=JPRB) :: RSYFWC(14)
+REAL(KIND=JPRB) :: RSYFWD(14)
+REAL(KIND=JPRB) :: RSYFWE(14)
+REAL(KIND=JPRB) :: RSYFWF(14)
+
+REAL(KIND=JPRB) :: RSECIA(14)
+REAL(KIND=JPRB) :: RSECIB(14)
+REAL(KIND=JPRB) :: RSECIC(14)
+REAL(KIND=JPRB) :: RSECID(14)
+REAL(KIND=JPRB) :: RSECIE(14)
+REAL(KIND=JPRB) :: RSECIF(14)
+
+REAL(KIND=JPRB) :: RSASWA(14)
+REAL(KIND=JPRB) :: RSASWB(14)
+REAL(KIND=JPRB) :: RSASWC(14)
+REAL(KIND=JPRB) :: RSASWD(14)
+REAL(KIND=JPRB) :: RSASWE(14)
+REAL(KIND=JPRB) :: RSASWF(14)
+
+REAL(KIND=JPRB) :: RSFUA0(14)
+REAL(KIND=JPRB) :: RSFUA1(14)
+REAL(KIND=JPRB) :: RSFUB0(14)
+REAL(KIND=JPRB) :: RSFUB1(14)
+REAL(KIND=JPRB) :: RSFUB2(14)
+REAL(KIND=JPRB) :: RSFUB3(14)
+REAL(KIND=JPRB) :: RSFUC0(14)
+REAL(KIND=JPRB) :: RSFUC1(14)
+REAL(KIND=JPRB) :: RSFUC2(14)
+REAL(KIND=JPRB) :: RSFUC3(14)
+
+REAL(KIND=JPRB) :: RSFLA0(14)
+REAL(KIND=JPRB) :: RSFLA1(14)
+REAL(KIND=JPRB) :: RSFLB0(14)
+REAL(KIND=JPRB) :: RSFLB1(14)
+REAL(KIND=JPRB) :: RSFLB2(14)
+REAL(KIND=JPRB) :: RSFLB3(14)
+REAL(KIND=JPRB) :: RSFLC0(14)
+REAL(KIND=JPRB) :: RSFLC1(14)
+REAL(KIND=JPRB) :: RSFLC2(14)
+REAL(KIND=JPRB) :: RSFLC3(14)
+REAL(KIND=JPRB) :: RSFLD0(14)
+REAL(KIND=JPRB) :: RSFLD1(14)
+REAL(KIND=JPRB) :: RSFLD2(14)
+REAL(KIND=JPRB) :: RSFLD3(14)
+
+REAL(KIND=JPRB) :: RSSSIE(14)
+REAL(KIND=JPRB) :: RSSSIF(14)
+REAL(KIND=JPRB) :: RSSSIH(14)
+REAL(KIND=JPRB) :: RSSSIK(14)
+REAL(KIND=JPRB) :: RSSSIA(14)
+REAL(KIND=JPRB) :: RSSSIG(14)
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RSYFWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RSYFWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RSYFWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSYFWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSYFWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSYFWF :  REAL   : ASSYMETRY FACTOR
+
+!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
+
+! RSASWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RSASWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RSASWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSASWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSASWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSASWF :  REAL   : ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! RSECIA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RSECIB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RSECIC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! RSECID :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! RSECIE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! RSECIF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! RSECIG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! RSECIH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)
+
+! RSSSIE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
+! RSSSIF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
+! RSSSIH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
+! RSSSIK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
+! RSSSIA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
+! RSSSIG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)
+
+! RSFLA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RSFLB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RSFLC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+! RSFLD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)
+
+! RSFUA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RSFUB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RSFUC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(rsaswa,rsaswb,rsaswc,rsaswd,rsaswe,rsaswf,rsecia,rsecib)
+!$OMP THREADPRIVATE(rsecic,rsecid,rsecie,rsecif,rsfla0,rsfla1,rsflb0,rsflb1)
+!$OMP THREADPRIVATE(rsflb2,rsflb3,rsflc0,rsflc1,rsflc2,rsflc3,rsfld0,rsfld1)
+!$OMP THREADPRIVATE(rsfld2,rsfld3,rsfua0,rsfua1,rsfub0,rsfub1,rsfub2,rsfub3)
+!$OMP THREADPRIVATE(rsfuc0,rsfuc1,rsfuc2,rsfuc3,rsssia,rsssie,rsssif,rsssig)
+!$OMP THREADPRIVATE(rsssih,rsssik,rsyfwa,rsyfwb,rsyfwc,rsyfwd,rsyfwe,rsyfwf)
+END MODULE YOESRTCOP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtop.F90	(revision 3330)
@@ -0,0 +1,46 @@
+MODULE YOESRTOP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTOP* - SRTM CLOUD OPTICAL PROPERTIES
+!     OVER BANDS 16 to 29:  2600-50000, then 800-2600 cm-1
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: EXTLIQ1(58,16:29), SSALIQ1(58,16:29), ASYLIQ1(58,16:29)
+REAL(KIND=JPRB) :: EXTICE2(43,16:29), SSAICE2(43,16:29), ASYICE2(43,16:29)
+REAL(KIND=JPRB) :: EXTICE3(46,16:29), SSAICE3(46,16:29), ASYICE3(46,16:29)
+REAL(KIND=JPRB) :: FDLICE3(46,16:29), FDELTA(16:29)
+REAL(KIND=JPRB) :: ABSCLD1
+
+REAL(KIND=JPRB) :: ABSCOICE(16:29), EXTCOICE(16:29), GICE(16:29), SSACOICE(16:29), FORWICE(16:29)
+REAL(KIND=JPRB) :: ABSCOLIQ(16:29), EXTCOLIQ(16:29), GLIQ(16:29), SSACOLIQ(16:29), FORWLIQ(16:29)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     J. DELAMERE/M. IACONO AER             08/01/2005
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! xxxLIQ1 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
+!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM
+!                    HU & STAMNES, 1993, J. CLIM., 6, 728-742  
+! xxxICE2 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
+!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM STREAMER V3.0,
+!                    KEY, J., STREAMER USER'S GUIDE, COOPERATIVE INSTITUDE 
+!                    FOR METEOROLOGICAL STUDIES, 2001, 95 PP.
+! xxxICE3 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
+!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM
+!                    FU, 1996, J. CLIM., 9, 
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(abscld1,abscoice,abscoliq,asyice2,asyice3,asyliq1,extcoice)
+!$OMP THREADPRIVATE(extcoliq,extice2,extice3,extliq1,fdelta,fdlice3,forwice,forwliq)
+!$OMP THREADPRIVATE(gice,gliq,ssacoice,ssacoliq,ssaice2,ssaice3,ssaliq1)
+END MODULE YOESRTOP
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtwn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtwn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesrtwn.F90	(revision 3330)
@@ -0,0 +1,66 @@
+MODULE YOESRTWN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NG
+INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NSPA
+INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NSPB
+INTEGER(KIND=JPIM) , DIMENSION(14)    :: NMPSRTM
+
+REAL(KIND=JPRB) , DIMENSION(16:29) :: WAVENUM1
+REAL(KIND=JPRB) , DIMENSION(16:29) :: WAVENUM2
+REAL(KIND=JPRB) , DIMENSION(16:29) :: DELWAVE
+
+REAL(KIND=JPRB), DIMENSION(59) :: PREF
+REAL(KIND=JPRB), DIMENSION(59) :: PREFLOG
+REAL(KIND=JPRB), DIMENSION(59) :: TREF
+
+INTEGER(KIND=JPIM), DIMENSION(224) :: NGM
+INTEGER(KIND=JPIM), DIMENSION(14)  :: NGC, NGS
+! Use for 112 g-points
+INTEGER(KIND=JPIM), DIMENSION(112) :: NGBSW, NGN
+! Use for 224 g-points
+!INTEGER(KIND=JPIM), DIMENSION(224) :: NGBSW, NGN
+
+REAL(KIND=JPRB), DIMENSION(16)  :: WT, WTSM
+REAL(KIND=JPRB), DIMENSION(224) :: RWGT
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----    : -------
+!  NG     : INTEGER : Number of k-coefficients in spectral intervals
+!  NSPA   : INTEGER :
+!  NSPB   : INTEGER :
+! NMPSRTM : INTEGER : MAAPING INDICES FOR 6-SPECTRAL INT. SURFACE ALBEDO 
+! WAVENUM1: REAL    : Lower wavenumber spectral limit
+! WAVENUM2: REAL    : Higher wavenumber spectral limit
+! DELWAVE : REAL    : Spectral interval width
+! PREF    : REAL    : Reference pressure
+! PREFLOG : REAL    : Log reference pressure
+! TREF    : REAL    : Reference temperature
+!  NGC    : INTEGER : The number of new g-points in each band
+!  NGS    : INTEGER : The cumulative sum of new g-points for each band
+!  NGM    : INTEGER : The index of each new g-point relative to the
+!                     original 16 g-points for each band.
+!  NGN    : INTEGER : The number of original g-points that are combined 
+!                     to make each new g-point in each band.
+!  NGB    : INTEGER : The band index for each new g-point.
+!  WT     : REAL    : RRTM weights for 16 g-points.
+!  WTSUM  : REAL    : Sum of the weights
+!  RWGT   : REAL    : 
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(delwave,ng,ngbsw,ngc,ngm,ngn,ngs,nmpsrtm,nspa,nspb)
+!$OMP THREADPRIVATE(pref,preflog,rwgt,tref,wavenum1,wavenum2,wt,wtsm)
+END MODULE YOESRTWN
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoesw.F90	(revision 3330)
@@ -0,0 +1,279 @@
+MODULE YOESW
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESW* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: APAD(6,3,7)
+REAL(KIND=JPRB) :: BPAD(6,3,7)
+REAL(KIND=JPRB) :: RRAY(6,6)
+REAL(KIND=JPRB), ALLOCATABLE :: RSUN(:)
+!$OMP THREADPRIVATE(RSUN)
+REAL(KIND=JPRB) :: RPDH1
+REAL(KIND=JPRB) :: RPDU1
+REAL(KIND=JPRB) :: RPNH
+REAL(KIND=JPRB) :: RPNU
+REAL(KIND=JPRB) :: RSWCE(6)
+REAL(KIND=JPRB) :: RSWCP(6)
+REAL(KIND=JPRB) :: RTDH2O
+REAL(KIND=JPRB) :: RTDUMG
+REAL(KIND=JPRB) :: RTH2O
+REAL(KIND=JPRB) :: RTUMG
+REAL(KIND=JPRB) :: D(6,3)
+REAL(KIND=JPRB) :: REXPO3(6,2,7)
+INTEGER(KIND=JPIM) :: NEXPO3(6)
+
+REAL(KIND=JPRB) :: RYFWCA(6)
+REAL(KIND=JPRB) :: RYFWCB(6)
+REAL(KIND=JPRB) :: RYFWCC(6)
+REAL(KIND=JPRB) :: RYFWCD(6)
+REAL(KIND=JPRB) :: RYFWCE(6)
+REAL(KIND=JPRB) :: RYFWCF(6)
+
+REAL(KIND=JPRB) :: REBCUA(6)
+REAL(KIND=JPRB) :: REBCUB(6)
+REAL(KIND=JPRB) :: REBCUC(6)
+REAL(KIND=JPRB) :: REBCUD(6)
+REAL(KIND=JPRB) :: REBCUE(6)
+REAL(KIND=JPRB) :: REBCUF(6)
+REAL(KIND=JPRB) :: REBCUG(16)
+REAL(KIND=JPRB) :: REBCUH(16)
+REAL(KIND=JPRB) :: REBCUI(6)
+REAL(KIND=JPRB) :: REBCUJ(6)
+
+REAL(KIND=JPRB) :: RASWCA(6)
+REAL(KIND=JPRB) :: RASWCB(6)
+REAL(KIND=JPRB) :: RASWCC(6)
+REAL(KIND=JPRB) :: RASWCD(6)
+REAL(KIND=JPRB) :: RASWCE(6)
+REAL(KIND=JPRB) :: RASWCF(6)
+
+REAL(KIND=JPRB) :: RFUETA(16,3),RFUETB(16,4), RFUETC(16,4)
+REAL(KIND=JPRB) :: RFULIO(16,3)
+REAL(KIND=JPRB) :: RHSAVI(16,3)
+REAL(KIND=JPRB) :: RLILIA(16,5),RLILIB(16,4)
+
+REAL(KIND=JPRB) :: RFLAA0(6)
+REAL(KIND=JPRB) :: RFLAA1(6)
+REAL(KIND=JPRB) :: RFLBB0(6)
+REAL(KIND=JPRB) :: RFLBB1(6)
+REAL(KIND=JPRB) :: RFLBB2(6)
+REAL(KIND=JPRB) :: RFLBB3(6)
+REAL(KIND=JPRB) :: RFLCC0(6)
+REAL(KIND=JPRB) :: RFLCC1(6)
+REAL(KIND=JPRB) :: RFLCC2(6)
+REAL(KIND=JPRB) :: RFLCC3(6)
+
+REAL(KIND=JPRB) :: RFUAA0(6)
+REAL(KIND=JPRB) :: RFUAA1(6)
+REAL(KIND=JPRB) :: RFUBB0(6)
+REAL(KIND=JPRB) :: RFUBB1(6)
+REAL(KIND=JPRB) :: RFUBB2(6)
+REAL(KIND=JPRB) :: RFUBB3(6)
+REAL(KIND=JPRB) :: RFUCC0(6)
+REAL(KIND=JPRB) :: RFUCC1(6)
+REAL(KIND=JPRB) :: RFUCC2(6)
+REAL(KIND=JPRB) :: RFUCC3(6)
+REAL(KIND=JPRB) :: RFLDD0(6)
+REAL(KIND=JPRB) :: RFLDD1(6)
+REAL(KIND=JPRB) :: RFLDD2(6)
+REAL(KIND=JPRB) :: RFLDD3(6)
+
+REAL(KIND=JPRB) :: RSUSHE(6)
+REAL(KIND=JPRB) :: RSUSHF(6)
+REAL(KIND=JPRB) :: RSUSHH(6)
+REAL(KIND=JPRB) :: RSUSHK(6)
+REAL(KIND=JPRB) :: RSUSHA(6)
+REAL(KIND=JPRB) :: RSUSHG(6)
+REAL(KIND=JPRB) :: RSUSHFA(4)
+REAL(KIND=JPRB) :: RSUSHC
+REAL(KIND=JPRB) :: RSUSHD
+
+REAL(KIND=JPRB) :: REFFIA
+REAL(KIND=JPRB) :: REFFIB
+REAL(KIND=JPRB) :: RTIW
+REAL(KIND=JPRB) :: RRIW
+REAL(KIND=JPRB) :: RROMA(6)
+REAL(KIND=JPRB) :: RROMB(6)
+REAL(KIND=JPRB) :: RRASY(6)
+
+REAL(KIND=JPRB) :: RHSRA(6)
+REAL(KIND=JPRB) :: RHSRB(6)
+REAL(KIND=JPRB) :: RHSRC(6)
+REAL(KIND=JPRB) :: RHSRD(6)
+REAL(KIND=JPRB) :: RHSRE(6)
+REAL(KIND=JPRB) :: RHSRF(6)
+REAL(KIND=JPRB) :: RHSRTA
+REAL(KIND=JPRB) :: RHSRTB
+
+REAL(KIND=JPRB) :: RTAUA(6,6)
+REAL(KIND=JPRB) :: RPIZA(6,6)
+REAL(KIND=JPRB) :: RCGA(6,6)
+REAL(KIND=JPRB) :: RAER(6,6)
+
+REAL(KIND=JPRB) :: RTWEIGHT(8)
+REAL(KIND=JPRB) :: RWEIGS(6)
+REAL(KIND=JPRB) :: RWEIGV(6)
+
+REAL(KIND=JPRB) :: RWEIGHT(6,8)
+INTEGER(KIND=JPIM) :: NMPSRTM(14), NTYPS
+
+REAL(KIND=JPRB) :: RADJUST
+
+!        * 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)
+
+!*   LINDNER,LI (2000) WATER CLOUD OPTICAL PROPERTIES (RRTM)
+
+! RLILIA : REAL    : MASS ABSORPTION COEFFICIENTS (POLYNOMIAL DEVELOPM)
+! RLILIB : REAL    : 1-SSA 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 
+! NMPSRTM: INTEGER  : Indices for mapping SW[1:6] albedo into SRTM[1:14]  
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(apad,bpad,d,nexpo3,nmpsrtm,ntyps,radjust,raer,raswca)
+!$OMP THREADPRIVATE(raswcb,raswcc,raswcd,raswce,raswcf,rcga,rebcua,rebcub)
+!$OMP THREADPRIVATE(rebcuc,rebcud,rebcue,rebcuf,rebcug,rebcuh,rebcui,rebcuj)
+!$OMP THREADPRIVATE(reffia,reffib,rexpo3,rflaa0,rflaa1,rflbb0,rflbb1,rflbb2)
+!$OMP THREADPRIVATE(rflbb3,rflcc0,rflcc1,rflcc2,rflcc3,rfldd0,rfldd1,rfldd2)
+!$OMP THREADPRIVATE(rfldd3,rfuaa0,rfuaa1,rfubb0,rfubb1,rfubb2,rfubb3,rfucc0)
+!$OMP THREADPRIVATE(rfucc1,rfucc2,rfucc3,rfueta,rfuetb,rfuetc,rfulio,rhsavi)
+!$OMP THREADPRIVATE(rhsra,rhsrb,rhsrc,rhsrd,rhsre,rhsrf,rhsrta,rhsrtb,rlilia)
+!$OMP THREADPRIVATE(rlilib,rpdh1,rpdu1,rpiza,rpnh,rpnu,rrasy,rray,rriw,rroma)
+!$OMP THREADPRIVATE(rromb,rsusha,rsushc,rsushd,rsushe,rsushf,rsushfa,rsushg)
+!$OMP THREADPRIVATE(rsushh,rsushk,rswce,rswcp,rtaua,rtdh2o,rtdumg,rth2o,rtiw)
+!$OMP THREADPRIVATE(rtumg,rtweight,rweight,rweigs,rweigv,ryfwca,ryfwcb,ryfwcc,ryfwcd,ryfwce,ryfwcf)
+END MODULE YOESW
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoethf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoethf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoethf.F90	(revision 3330)
@@ -0,0 +1,65 @@
+MODULE YOETHF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: R2ES
+REAL(KIND=JPRB) :: R3LES
+REAL(KIND=JPRB) :: R3IES
+REAL(KIND=JPRB) :: R4LES
+REAL(KIND=JPRB) :: R4IES
+REAL(KIND=JPRB) :: R5LES
+REAL(KIND=JPRB) :: R5IES
+REAL(KIND=JPRB) :: RVTMP2
+REAL(KIND=JPRB) :: RHOH2O
+REAL(KIND=JPRB) :: R5ALVCP
+REAL(KIND=JPRB) :: R5ALSCP
+REAL(KIND=JPRB) :: RALVDCP
+REAL(KIND=JPRB) :: RALSDCP
+REAL(KIND=JPRB) :: RALFDCP
+REAL(KIND=JPRB) :: RTWAT
+REAL(KIND=JPRB) :: RTBER
+REAL(KIND=JPRB) :: RTBERCU
+REAL(KIND=JPRB) :: RTICE
+REAL(KIND=JPRB) :: RTICECU
+REAL(KIND=JPRB) :: RTWAT_RTICE_R
+REAL(KIND=JPRB) :: RTWAT_RTICECU_R
+REAL(KIND=JPRB) :: RKOOP1
+REAL(KIND=JPRB) :: RKOOP2
+
+!     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
+!     *RKOOP?   REAL      *CONSTANTS TO DESCRIBE KOOP FORM FOR NUCLEATION
+!     *RTWAT_RTICE_R*   REAL      *RTWAT_RTICE_R=1./(RTWAT-RTICE)
+!     *RTWAT_RTICECU_R* REAL      *RTWAT_RTICECU_R=1./(RTWAT-RTICECU)
+
+!       ----------------------------------------------------------------
+!$OMP THREADPRIVATE(r2es,r3ies,r3les,r4ies,r4les,r5alscp,r5alvcp,r5ies,r5les)
+!$OMP THREADPRIVATE(ralfdcp,ralsdcp,ralvdcp,rhoh2o,rkoop1,rkoop2,rtber,rtbercu)
+!$OMP THREADPRIVATE(rtice,rticecu,rtwat,rtwat_rtice_r,rtwat_rticecu_r,rvtmp2)
+END MODULE YOETHF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoevdf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoevdf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoevdf.F90	(revision 3330)
@@ -0,0 +1,45 @@
+MODULE YOEVDF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NVTYPES
+REAL(KIND=JPRB) :: RLAM
+REAL(KIND=JPRB) :: RKAP
+REAL(KIND=JPRB) :: RVDIFTS
+REAL(KIND=JPRB) :: REPDU2
+REAL(KIND=JPRB) :: RENTR
+REAL(KIND=JPRB) :: RPAR
+REAL(KIND=JPRB) :: RPAR1
+REAL(KIND=JPRB) :: RPARSRF
+
+!*     *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
+!     ----        ----     -----------
+
+!     *NVTYPES*   INTEGER  Number of vegetation (surface cover) types
+!     *RLAM*      REAL     *ASYMPTOTIC MIXING LENGTH FOR MOMENTUM
+!     *RKAP*      REAL     *VONKARMAN CONSTANT
+!     *RVDIFTS*   REAL     *FACTOR FOR TIME STEP WEIGHTING IN *VDF....*
+!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER
+!     *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 
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(nvtypes,rentr,repdu2,rkap,rlam,rpar,rpar1,rparsrf,rvdifts)
+END MODULE YOEVDF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoewcou.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoewcou.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoewcou.F90	(revision 3330)
@@ -0,0 +1,116 @@
+MODULE YOEWCOU
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+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 
+!     G. MOZDZYNSKI  E.C.M.W.F.       14/01/05
+
+!      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
+!     *LWCOUNORMS* LOGICAL  TRUE IF NORMS OF COUPLED FIELDS ARE REQUIRED
+!     *RSOUTW*   REAL       SOUTH BOUNDARY OF THE WAVE MODEL.
+!     *RNORTW*   REAL       NORTH BOUNDARY OF THE WAVE MODEL.
+!     *RDEGREW*  REAL       RESOLUTION OF THE WAVE MODEL (DEGREES).
+!
+!     *MASK_WAVE_IN*  INTEGER  COMMS MASK FOR INPUT TO WAVE MODEL
+!     *MASK_WAVE_OUT* INTEGER  COMMS MASK FOR OUTPUT FROM WAVE MODEL
+!
+!     *LWVIN_MASK_NOT_SET* LOGICAL indicates whether mask_wave_in
+!                           has been updated on the first call to the 
+!                           wave model
+!     *LWVIN_UNINITIALISED* LOGICAL indicates whether the mwvin_* data
+!                           structures are initialised
+!     *MWVIN_SENDCNT* INTEGER nproc sized array describing how many grid 
+!                           points need to be sent (or copied) by the 
+!                           local task to remote tasks (or this task)
+!     *MWVIN_RECVCNT* INTEGER nproc sized array describing how many grid 
+!                           points need to be received by the local task 
+!                           from a remote task
+!     *MWVIN_SENDTOT* INTEGER total number of grid points to be sent to 
+!                           remote tasks
+!     *MWVIN_RECVTOT* INTEGER total number of grid points to be received 
+!                           from remote tasks
+!     *MWVIN_SENDOFF* INTEGER nproc sized array containing offsets into 
+!                           the MWVIN_SENDBUF and MWVIN_SENDIND arrays
+!     *MWVIN_SENDBUF* INTEGER local indexes of data on remote tasks that
+!                           the local task needs
+!     *MWVIN_SENDIND* INTEGER global indexes of data on remote tasks that
+!                           the local task needs
+!
+!     *MWVIN_RECVOFF* INTEGER nproc sized array containing offsets into 
+!                           the MWVIN_RECVBUF array
+!     *MWVIN_RECVBUF* INTEGER local indexes of data on the local task that
+!                           remote tasks need
+!
+
+
+INTEGER(KIND=JPIM) :: NLONW
+INTEGER(KIND=JPIM) :: NLATW
+INTEGER(KIND=JPIM) :: NLON1W
+INTEGER(KIND=JPIM) :: NLAT1W
+INTEGER(KIND=JPIM) :: NNORXW
+INTEGER(KIND=JPIM) :: NDURAT
+INTEGER(KIND=JPIM) :: NSTPW
+INTEGER(KIND=JPIM) :: NRESUM
+
+REAL(KIND=JPRB) :: RSOUTW
+REAL(KIND=JPRB) :: RNORTW
+REAL(KIND=JPRB) :: RDEGREW
+
+LOGICAL :: LWCOU
+LOGICAL :: LWCOU2W
+LOGICAL :: LWCOUNORMS
+CHARACTER :: CBEGDAT*12
+
+INTEGER(KIND=JPIM), ALLOCATABLE :: MASK_WAVE_IN(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: MASK_WAVE_OUT(:,:)
+
+LOGICAL :: LWVIN_MASK_NOT_SET
+LOGICAL :: LWVIN_UNINITIALISED
+
+INTEGER(KIND=JPIM) :: MWVIN_SENDTOT
+INTEGER(KIND=JPIM) :: MWVIN_RECVTOT
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDCNT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_RECVCNT(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_RECVOFF(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDBUF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_RECVBUF(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDIND(:)
+
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(cbegdat,lwcou,lwcou2w,lwcounorms,lwvin_mask_not_set,lwvin_uninitialised,mwvin_recvtot)
+!$OMP THREADPRIVATE(mwvin_sendtot,ndurat,nlat1w,nlatw,nlon1w,nlonw,nnorxw,nresum,nstpw,rdegrew,rnortw,rsoutw)
+END MODULE YOEWCOU
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yom_phys_grid.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yom_phys_grid.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yom_phys_grid.F90	(revision 3330)
@@ -0,0 +1,114 @@
+MODULE YOM_PHYS_GRID
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+PUBLIC TYPE_PHYS_POINT ,PHYS_GRID,DYN_GRID,DYN_SL,PHYS_SL, YPHYPOI, YDYNPOI, &
+        & JPMXNEI, PHYS_GRID_STRUCT, SL_STRUCT, TYPE_DYN_POINT
+
+!-------------------------------------------------------------------------
+! Derived types for describing the coarse physics grid structure. 
+!  The descriptors themselves
+! (YGFL and YGFLC) can be found in module yom_ygfl.F90.
+!-------------------------------------------------------------------------
+! Modifications:
+
+INTEGER(KIND=JPIM), PARAMETER :: JPMXNEI=36 ! maximum number of neighbouring
+                                            ! points for averaging or
+                                            ! interpolation
+                                              
+TYPE PHYS_GRID_STRUCT
+  INTEGER(KIND=JPIM) :: NGPTOT          ! number of physics points in the task
+  INTEGER(KIND=JPIM) :: NGPTOTG
+  INTEGER(KIND=JPIM) :: NDGSAL, NDGENL
+  INTEGER(KIND=JPIM) :: NDGSAG, NDGENG
+  INTEGER(KIND=JPIM), POINTER :: NLOENG(:)
+  REAL(KIND=JPRB), POINTER   :: RMU(:)
+  REAL(KIND=JPRB), POINTER   :: RW(:)
+
+  INTEGER(KIND=JPIM)   :: NRESOL_ID
+  INTEGER(KIND=JPIM)   :: NGPTOTMX, NSPEC2, NSMAX
+  INTEGER(KIND=JPIM)   :: NPTRFLOFF, NUMP, NDLON
+  INTEGER(KIND=JPIM)   ::  NDGSAH, NDGENH
+  INTEGER(KIND=JPIM)   ::  NDGLG, NDLSUR
+  INTEGER(KIND=JPIM)   ::  NFRSTLOFF, NDSUR1,NDGSUR
+  INTEGER(KIND=JPIM)   ::  MYFRSTACTLAT, MYLSTACTLAT
+  INTEGER(KIND=JPIM)   :: NGPBLKS
+  INTEGER(KIND=JPIM)   :: NPROMA
+
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NRGRI, NPTRFRSTLAT, NFRSTLAT
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NLSTLAT, MYMS, NASM0
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:,:)   :: NSTA, NONL
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NSTAGP
+  REAL(KIND=JPRB), POINTER   :: RSQM2(:), RLATIG(:), RLATI(:)
+  REAL(KIND=JPRB), POINTER   :: RIPI0(:), RIPI1(:), RIPI2(:)
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NPTRLSTLAT
+
+END TYPE PHYS_GRID_STRUCT
+
+TYPE(PHYS_GRID_STRUCT) :: PHYS_GRID, DYN_GRID 
+
+TYPE SL_STRUCT
+  INTEGER(KIND=JPIM),POINTER :: NSLSTA(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLONL(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLOFF(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLEXT(:,:)
+  INTEGER(KIND=JPIM),POINTER :: NSLSENDPOS(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLRECVPOS(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLSENDPTR(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLRECVPTR(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLCORE(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLCOMM(:)
+
+  INTEGER(KIND=JPIM) :: NASLB1
+  INTEGER(KIND=JPIM) :: NSLPROCS
+  INTEGER(KIND=JPIM) :: NSLMPBUFSZ
+  INTEGER(KIND=JPIM) :: NSLRPT
+  INTEGER(KIND=JPIM) :: NSLSPT
+  INTEGER(KIND=JPIM) :: NSLWIDEN
+  INTEGER(KIND=JPIM) :: NSLWIDES
+  INTEGER(KIND=JPIM) :: NSLWIDEE
+  INTEGER(KIND=JPIM) :: NSLWIDEW
+END TYPE SL_STRUCT
+
+TYPE(SL_STRUCT) :: DYN_SL
+TYPE(SL_STRUCT) :: PHYS_SL
+
+ 
+TYPE TYPE_PHYS_POINT    ! Individual physics point characteristics
+
+  REAL(KIND=JPRB) :: GELAM, GELAT, GEMU
+  REAL(KIND=JPRB) :: GECLO, GESLO, GM, GAW
+  REAL(KIND=JPRB) :: GNORDL, GNORDM, GSQM2
+  REAL(KIND=JPRB) :: RCOLON, RSILON 
+  REAL(KIND=JPRB) :: RINDX, RINDY 
+  REAL(KIND=JPRB) :: OROG
+  INTEGER(KIND=JPIM) :: NGPLAT       ! row number in the physics grid
+
+  INTEGER(KIND=JPIM) :: NEIGH       ! number of neighbours in the dynamics grid 
+                                    ! for going from the dynamics to the physics grid
+  INTEGER(KIND=JPIM), POINTER :: NL0(:)    ! indexes in the interpolation buffer of 
+                                           ! the dynamics neighbours
+  REAL(KIND=JPRB), POINTER   :: WGT(:)     ! weights for every neighbouring 
+                                           ! dynamics point 
+END TYPE TYPE_PHYS_POINT
+
+TYPE(TYPE_PHYS_POINT),ALLOCATABLE :: YPHYPOI(:)
+
+TYPE TYPE_DYN_POINT     ! Individual dynamics point characteristics
+  INTEGER(KIND=JPIM) :: NEIGH       ! number of neighbours in the physics grid 
+                                    ! for going from the physics to the dynamics grid
+  INTEGER(KIND=JPIM), POINTER :: NL0(:)    ! indexes in the interpolation buffer of 
+                                           ! the physics neighbours
+  REAL(KIND=JPRB), POINTER   :: WGT(:)     ! weights for every neighbouring 
+                                           ! physics point 
+END TYPE TYPE_DYN_POINT
+
+TYPE(TYPE_DYN_POINT),ALLOCATABLE :: YDYNPOI(:)
+ 
+!$OMP THREADPRIVATE(dyn_grid,dyn_sl,phys_grid,phys_sl)
+!$OMP THREADPRIVATE(ydynpoi,yphypoi)
+END MODULE YOM_PHYS_GRID
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yom_ygfl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yom_ygfl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yom_ygfl.F90	(revision 3330)
@@ -0,0 +1,129 @@
+MODULE YOM_YGFL
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TYPE_GFLS ,ONLY : TYPE_GFLD,TYPE_GFL_COMP,TYPE_GFL_NAML
+
+IMPLICIT NONE
+SAVE
+
+!-------------------------------------------------------------------------
+! Contains the descriptors of GFL arrays 
+
+! YGFL  : GFL general descriptor, for info about content see comments
+!         in type declaration module : type_gfls.F90
+
+! JPGFL : Max number of GFL fields
+! JPNAMED_GFL : Number of currently pre-defined components of GFL
+! JPGHG : Number of greenhouse gas fields
+! JPGRG : Number of reactive gas fields
+! JPAERO : Number of aerosol fields
+! JPTRAC : Number of tracers for diagnostics
+!-------------------------------------------------------------------------
+
+INTEGER(KIND=JPIM),PARAMETER :: JPGFL=211
+INTEGER(KIND=JPIM),PARAMETER :: JPNAMED_GFL=22
+INTEGER(KIND=JPIM),PARAMETER :: JPGHG=3
+INTEGER(KIND=JPIM),PARAMETER :: JPTRAC=2
+INTEGER(KIND=JPIM),PARAMETER :: JPGRG=5
+INTEGER(KIND=JPIM),PARAMETER :: JPAERO=7
+INTEGER(KIND=JPIM),PARAMETER :: JPFORC=25
+INTEGER(KIND=JPIM),PARAMETER :: JPEZDIAG=25
+INTEGER(KIND=JPIM) :: NGFL_EXT
+INTEGER(KIND=JPIM) :: NGFL_FORC
+INTEGER(KIND=JPIM) :: NGFL_EZDIAG
+INTEGER(KIND=JPIM) :: NGHG
+INTEGER(KIND=JPIM) :: NTRAC
+INTEGER(KIND=JPIM) :: NGRG
+INTEGER(KIND=JPIM) :: NAERO
+INTEGER(KIND=JPIM) :: NACTAERO
+LOGICAL ::            LGHGSFC, LAEROSFC , LSF6SFC
+TYPE(TYPE_GFLD) :: YGFL
+TYPE(TYPE_GFL_COMP),TARGET  :: YGFLC(JPGFL)  ! General descriptor of all components
+
+TYPE(TYPE_GFL_COMP),POINTER  :: YQ            ! Specific humidity
+TYPE(TYPE_GFL_COMP),POINTER  :: YI            ! Ice water
+TYPE(TYPE_GFL_COMP),POINTER  :: YL            ! Liquid water
+TYPE(TYPE_GFL_COMP),POINTER  :: YS            ! Snow
+TYPE(TYPE_GFL_COMP),POINTER  :: YR            ! Rain
+TYPE(TYPE_GFL_COMP),POINTER  :: YG            ! Graupels
+TYPE(TYPE_GFL_COMP),POINTER  :: YTKE          ! Turbulent Kinetic Energy
+TYPE(TYPE_GFL_COMP),POINTER  :: YA            ! Cloud fraction
+TYPE(TYPE_GFL_COMP),POINTER  :: YO3           ! Ozone
+TYPE(TYPE_GFL_COMP),POINTER  :: YSRC          ! Second-order flux for AROME
+                                              ! s'rc'/2Sigma_s2 
+                                              ! multiplied by Lambda_3
+TYPE(TYPE_GFL_COMP),POINTER  :: YCPF          ! Convective precipitation flux
+TYPE(TYPE_GFL_COMP),POINTER  :: YSPF          ! Stratiform precipitation flux
+TYPE(TYPE_GFL_COMP),POINTER  :: YCVGQ         ! Moisture Convergence for french physics
+TYPE(TYPE_GFL_COMP),POINTER  :: YQVA          ! total humidity variation
+TYPE(TYPE_GFL_COMP),POINTER  :: YGHG(:)       ! Greenhouse Gases
+TYPE(TYPE_GFL_COMP),POINTER  :: YGRG(:)       ! Reactive Gases
+TYPE(TYPE_GFL_COMP),POINTER  :: YAERO(:)      ! Aerosols
+TYPE(TYPE_GFL_COMP),POINTER  :: YTRAC(:)      ! tracers for diagnostics
+TYPE(TYPE_GFL_COMP),POINTER  :: YFORC(:)      ! large scale forcing
+TYPE(TYPE_GFL_COMP),POINTER  :: YEZDIAG(:)    ! easy diagnostics
+
+TYPE(TYPE_GFL_COMP),POINTER  :: YSDSAT        ! Standard Deviation of the
+                                              ! SATuration Depression (Sigma_s) 
+TYPE(TYPE_GFL_COMP),POINTER  :: YCVV          ! Convective Vertical Velocity 
+
+! Prognostic convection variables: add 6 named components
+TYPE(TYPE_GFL_COMP),POINTER  :: YUOM          ! Updraught vert velocity
+TYPE(TYPE_GFL_COMP),POINTER  :: YUAL          ! Updraught mesh fraction
+TYPE(TYPE_GFL_COMP),POINTER  :: YDOM          ! Downdraught vert velocity
+TYPE(TYPE_GFL_COMP),POINTER  :: YDAL          ! Downdraught mesh fraction
+TYPE(TYPE_GFL_COMP),POINTER  :: YUEN          ! Updraught entrainment
+TYPE(TYPE_GFL_COMP),POINTER  :: YUNEBH        ! pseudo-historic convective
+
+! Extra fields 
+
+TYPE(TYPE_GFL_COMP),POINTER  :: YEXT(:)       ! Extra fields
+
+TYPE(TYPE_GFL_NAML)  :: YQ_NL            ! Specific humidity
+TYPE(TYPE_GFL_NAML)  :: YI_NL            ! Ice water
+TYPE(TYPE_GFL_NAML)  :: YL_NL            ! Liquid water
+TYPE(TYPE_GFL_NAML)  :: YS_NL            ! Snow
+TYPE(TYPE_GFL_NAML)  :: YR_NL            ! Rain
+TYPE(TYPE_GFL_NAML)  :: YG_NL            ! Graupels
+TYPE(TYPE_GFL_NAML)  :: YTKE_NL          ! Turbulent Kinetic Energy
+TYPE(TYPE_GFL_NAML)  :: YA_NL            ! Cloud fraction
+TYPE(TYPE_GFL_NAML)  :: YO3_NL           ! Ozone
+TYPE(TYPE_GFL_NAML)  :: YSRC_NL          ! Second-order flux for AROME
+                                         ! s'rc'/2Sigma_s2
+                                         ! multiplied by Lambda_3
+TYPE(TYPE_GFL_NAML)  :: YCPF_NL          ! Convective precipitation flux
+TYPE(TYPE_GFL_NAML)  :: YSPF_NL          ! Stratiform precipitation flux
+TYPE(TYPE_GFL_NAML)  :: YCVGQ_NL         ! Moisture Convergence for french physics
+TYPE(TYPE_GFL_NAML)  :: YQVA_NL          ! Total humidity variation
+
+TYPE(TYPE_GFL_NAML)  :: YGHG_NL(JPGHG)   ! Greenhouse Gases
+TYPE(TYPE_GFL_NAML)  :: YGRG_NL(JPGRG)   ! Reactive Gases
+TYPE(TYPE_GFL_NAML)  :: YAERO_NL(JPAERO) ! Aerosol fields
+TYPE(TYPE_GFL_NAML)  :: YTRAC_NL(JPTRAC)   ! Tracers for diagnostics
+
+! Extra fields 
+
+TYPE(TYPE_GFL_NAML)  :: YSDSAT_NL        ! Standard Deviation of the
+                                         ! SATuration Depression (Sigma_s) 
+TYPE(TYPE_GFL_NAML)  :: YCVV_NL          ! Convective Vertical Velocity 
+TYPE(TYPE_GFL_NAML)  :: YFORC_NL(JPFORC) ! Forcing precursor
+TYPE(TYPE_GFL_NAML)  :: YEZDIAG_NL(JPEZDIAG) ! Easy diagnostics
+TYPE(TYPE_GFL_NAML)  :: YEXT_NL(JPGFL-JPNAMED_GFL-JPGHG-JPGRG-JPFORC-JPEZDIAG-JPAERO-JPTRAC) ! Extra fields
+
+! Prognostic convection variables: 6 more namelist components
+TYPE(TYPE_GFL_NAML)  :: YUOM_NL          ! Updraught vert velocity
+TYPE(TYPE_GFL_NAML)  :: YUAL_NL          ! Updraught mesh fraction
+TYPE(TYPE_GFL_NAML)  :: YDOM_NL          ! Downdraught vert velocity
+TYPE(TYPE_GFL_NAML)  :: YDAL_NL          ! Downdraught mesh fraction
+TYPE(TYPE_GFL_NAML)  :: YUEN_NL          ! Updraught entrainment
+TYPE(TYPE_GFL_NAML)  :: YUNEBH_NL        ! Pseudi Hist Conv cloud fraction
+
+!------------------------------------------------------------------
+!$OMP THREADPRIVATE(laerosfc,lghgsfc,lsf6sfc,nactaero,naero,ngfl_ext,ngfl_ezdiag,ngfl_forc,nghg,ngrg)
+!$OMP THREADPRIVATE(ntrac,ya,ya_nl,yaero,yaero_nl,ycpf,ycpf_nl,ycvgq,ycvgq_nl,ycvv,ycvv_nl,ydal,ydal_nl)
+!$OMP THREADPRIVATE(ydom,ydom_nl,yext,yext_nl,yezdiag,yezdiag_nl,yforc,yforc_nl,yg,yg_nl,ygfl,ygflc,yghg)
+!$OMP THREADPRIVATE(yghg_nl,ygrg,ygrg_nl,yi,yi_nl,yl,yl_nl,yo3,yo3_nl,yq,yq_nl,yqva,yqva_nl,yr,yr_nl,ys)
+!$OMP THREADPRIVATE(ys_nl,ysdsat,ysdsat_nl,yspf,yspf_nl,ysrc,ysrc_nl,ytke,ytke_nl,ytrac,ytrac_nl,yual)
+!$OMP THREADPRIVATE(yual_nl,yuen,yuen_nl,yunebh,yunebh_nl,yuom,yuom_nl)
+END MODULE YOM_YGFL
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomaer15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomaer15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomaer15.F90	(revision 3330)
@@ -0,0 +1,35 @@
+MODULE YOMAER15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOMAER15* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+!*                          FROZEN VERSION (CYCLE 15) OF YOEAER
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+!        04-06: F. Bouyssel. Initialisation done in suaer15
+!        05-09: A. Alias     Sulfate aerosol (Hu Ron Ming)
+
+!  NAME      TYPE     PURPOSE
+!  ----   :  ----   : -------
+!  TAUA15 :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!  RPIZA15:  REAL     S.W. SINGLE SCATTERING ALBEDO
+!  RCGA15 :  REAL     S.W. ASSYMETRY FACTOR
+!  RAER15 :  REAL     L.W. ABSORPTION COEFFICIENTS
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: TAUA15 (2,6)
+REAL(KIND=JPRB) :: RPIZA15(2,6)
+REAL(KIND=JPRB) :: RCGA15 (2,6)
+REAL(KIND=JPRB) :: RAER15 (5,6)
+
+!$OMP THREADPRIVATE(raer15,rcga15,rpiza15,taua15)
+END MODULE YOMAER15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomaerd15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomaerd15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomaerd15.F90	(revision 3330)
@@ -0,0 +1,75 @@
+MODULE YOMAERD15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS
+!*                       FROZEN VERSION (CYCLE 15) OF YOEAERD
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAES15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAED15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEF15(:)
+
+REAL(KIND=JPRB) :: RCAEOPS15
+REAL(KIND=JPRB) :: RCAEOPL15
+REAL(KIND=JPRB) :: RCAEOPU15
+REAL(KIND=JPRB) :: RCAEOPD15
+REAL(KIND=JPRB) :: RCAEOPF15
+REAL(KIND=JPRB) :: RCTRBGA15
+REAL(KIND=JPRB) :: RCVOBGA15
+REAL(KIND=JPRB) :: RCSTBGA15
+REAL(KIND=JPRB) :: RCTRPT15
+REAL(KIND=JPRB) :: RCAEADM15
+REAL(KIND=JPRB) :: RCAEROS15
+
+REAL(KIND=JPRB) :: RAESC15(66)
+REAL(KIND=JPRB) :: RAESS15(55)
+REAL(KIND=JPRB) :: RAELC15(66)
+REAL(KIND=JPRB) :: RAELS15(55)
+REAL(KIND=JPRB) :: RAEUC15(66)
+REAL(KIND=JPRB) :: RAEUS15(55)
+REAL(KIND=JPRB) :: RAEDC15(66)
+REAL(KIND=JPRB) :: RAEDS15(55)
+REAL(KIND=JPRB) :: RCAEADK15(3)
+
+!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS.
+!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
+!     R.G AND M.J        E.C.M.W.F.     29/11/82.
+!     A. Alias           29-09-05 Sulfate aerosols (Hu Ron Ming)
+
+!      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.
+!     *CAEF_*   REAL      *REFERS TO *SULFATE 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 COMPUT. (NFLEVG+1)
+!     *RCTRPT15*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADK15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADM15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEROS15*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(raedc15,raeds15,raelc15,raels15,raesc15,raess15,raeuc15,raeus15,rcaeadk15,rcaeadm15)
+!$OMP THREADPRIVATE(rcaeopd15,rcaeopf15,rcaeopl15,rcaeops15,rcaeopu15,rcaeros15,rcstbga15,rctrbga15,rctrpt15,rcvobga15)
+!$OMP THREADPRIVATE(cvdaed15,cvdaef15,cvdael15,cvdaes15,cvdaeu15)
+END MODULE YOMAERD15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomarar.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomarar.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomarar.F90	(revision 3330)
@@ -0,0 +1,106 @@
+MODULE YOMARAR
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+
+!     VARIABLES pour utiliser la PHYSIQUE de meso_NH :
+!     VARIABLES to use the MESO-NH physics:
+
+!     KSPLITR :  Number of small time step
+!                integration for  rain
+!                sedimendation
+
+INTEGER(KIND=JPIM) :: NSPLITR     ! ??? (missing comment)
+INTEGER(KIND=JPIM) :: NRR, NRRL, NRRI   !number of microphysical species
+INTEGER(KIND=JPIM) :: NSV         !number of passiv variables in MesoNH,
+                                  ! always 0 in AROME
+INTEGER(KIND=JPIM) :: NSWB_MNH    !number of SW bands for surface
+                                  ! (must be equal to NSW !!)
+INTEGER(KIND=JPIM) :: NGPAR       !number of fields in the buffer containing
+                                  ! the 2D pseudo-historical variables.
+INTEGER(KIND=JPIM) :: MINPRR      !pointer on INPRR 
+INTEGER(KIND=JPIM) :: MACPRR      !pointer on ACPRR 
+INTEGER(KIND=JPIM) :: MINPRS      !pointer on INPRS
+INTEGER(KIND=JPIM) :: MACPRS      !pointer on ACPRS
+INTEGER(KIND=JPIM) :: MINPRG      !pointer on INPRG
+INTEGER(KIND=JPIM) :: MACPRG      !pointer on ACPRG
+INTEGER(KIND=JPIM) :: MALBDIR     !pointer on ALBDIR
+INTEGER(KIND=JPIM) :: MALBSCA     !pointer on ALBSCA
+INTEGER(KIND=JPIM) :: MRAIN       !pointer on surface rain
+INTEGER(KIND=JPIM) :: MSNOW       !pointer on surface snow
+INTEGER(KIND=JPIM) :: MGZ0        !pointer on GZ0 
+INTEGER(KIND=JPIM) :: MGZ0H       !pointer on GZ0H 
+INTEGER(KIND=JPIM) :: MVQS        !pointer on surface moisture
+INTEGER(KIND=JPIM) :: MVTS        !pointer on surface temperature 
+INTEGER(KIND=JPIM) :: MVEMIS      !pointer on surface emissivity
+INTEGER(KIND=JPIM) :: MSWDIR      !pointer on SW direct surface flux
+INTEGER(KIND=JPIM) :: MSWDIF      !pointer on SW surface diffuse flux
+INTEGER(KIND=JPIM) :: MSFU        !pointer on U surface flux 
+INTEGER(KIND=JPIM) :: MSFV        !pointer on V surface flux
+INTEGER(KIND=JPIM) :: MSFRV       !pointer on Qv  surface flux
+INTEGER(KIND=JPIM) :: MSFTH       !pointer on Theta surface flux
+INTEGER(KIND=JPIM) :: MFRTHDS     !pointer on IR downward surface flux
+INTEGER(KIND=JPIM) :: MUM         !pointer on U surface wind
+INTEGER(KIND=JPIM) :: MVM         !pointer on V surface wind
+INTEGER(KIND=JPIM) :: MTM         !pointer on T at first model layer
+INTEGER(KIND=JPIM) :: MQVM        !pointer on QV at first model layer
+INTEGER(KIND=JPIM) :: MPABSM      !pointer on Pressure at first model layer
+INTEGER(KIND=JPIM) :: MPSURF      !pointer on surface pressure
+INTEGER(KIND=JPIM) :: MZZ         !pointer on height of first model layer
+INTEGER(KIND=JPIM) :: MRHODREF    !pointer on RHODREF
+INTEGER(KIND=JPIM) :: MSFSV       !pointer on surf. fluxes of scalars
+
+REAL(KIND=JPRB), DIMENSION(:), ALLOCATABLE  :: XSW_BANDS  !SW spectral bands
+					      ! for ext. surface scheme
+LOGICAL :: LOSUBG_COND ! see OSUBG_COND in mesoNH
+LOGICAL :: LOSUBG_AUCV ! see OSUBG_AUCV in mesoNH
+LOGICAL :: LOWARM      ! see OWARM in mesoNH
+LOGICAL :: LOSIGMAS    ! see OSIGMAS in mesoNH
+
+! * for the squall line case:
+LOGICAL :: LSQUALL ! use for the squall line case
+INTEGER(KIND=JPIM) :: NREFROI1 !starting point for cooling 
+INTEGER(KIND=JPIM) :: NREFROI2 !end point for cooling
+REAL(KIND=JPRB) :: VSQUALL ! mean velocity displacement of the squall line.
+
+! * for the MESO-NH physics printings:
+INTEGER(KIND=JPIM) :: NPTP ! index in NPROMA paquet where the print will be done
+INTEGER(KIND=JPIM) :: NPRINTFR !frequency of physical prints in apl_arome
+                               ! (default 1/h) 
+
+! * for the surface diagnostics.
+INTEGER(KIND=JPIM) :: NDIAGFR  ! frequency of surface scheme diagnostics
+
+!* for other diagnostics
+!  wmax per vertical level 
+LOGICAL :: LDIAGWMAX !activate print of WMAX in apl_arome
+INTEGER(KIND=JPIM) :: NDIAGWMAX ! frequency of preceding prints (in time step)
+
+!* for chemical scheme
+! time step factor
+INTEGER(KIND=JPIM) :: NDTCHEM
+!* for MNH budget anlysis
+LOGICAL :: LAROBU_ENABLE
+
+! for budgets and DDH, number of processes in budget arrays 
+INTEGER(KIND=JPIM),ALLOCATABLE ::  NBUPROC(:)
+INTEGER(KIND=JPIM),ALLOCATABLE ::  NJBUDG1(:)
+INTEGER(KIND=JPIM),ALLOCATABLE ::  NJBUDG2(:)
+
+!* number of budgets used in AROME, without pasive scalars
+INTEGER(KIND=JPIM), PARAMETER ::  JPAROBUD = 11
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(larobu_enable,ldiagwmax,losigmas,losubg_aucv,losubg_cond,lowarm,lsquall)
+!$OMP THREADPRIVATE(macprg,macprr,macprs,malbdir,malbsca,mfrthds,mgz0,mgz0h,minprg,minprr,minprs)
+!$OMP THREADPRIVATE(mpabsm,mpsurf,mqvm,mrain,mrhodref,msfrv,msfsv,msfth,msfu,msfv,msnow,mswdif)
+!$OMP THREADPRIVATE(mswdir,mtm,mum,mvemis,mvm,mvqs,mvts,mzz,ndiagfr,ndiagwmax,ndtchem,ngpar)
+!$OMP THREADPRIVATE(nprintfr,nptp,nrefroi1,nrefroi2,nrr,nrri,nrrl,nsplitr,nsv,nswb_mnh,vsquall)
+!$OMP THREADPRIVATE(nbuproc,njbudg1,njbudg2,xsw_bands)
+END MODULE YOMARAR
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomarphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomarphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomarphy.F90	(revision 3330)
@@ -0,0 +1,45 @@
+MODULE YOMARPHY
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!    -----------------------------------------------------------------
+
+!    VARIABLES DE CONTROLE DE LA PHYSIQUE AROME :
+!    CONTROL VARIABLES FOR THE AROME PHYSICS:
+
+!    LMPA    : CLE GENERALE POUR LA PHYSIQUE AROME
+!            : GLOBAL SWITCH FOR AROME PHYSICS
+!    LMICRO  : CLE D'APPEL DU SCHEMA MICROPHYSIQUE ICE3
+!              SWITCH FOR THE "ICE3" MICROPHYSICS SCHEME
+!    LTURB   : CLE D'APPEL DU SCHEMA DE TURBULENCE
+!              SWITCH FOR THE TURBULENCE SCHEME
+!    LMSE    : CLE D'APPEL DU SHEMA DE SURFACE EXTERNALISE
+!              SWITCH FOR THE EXTERNALIZED SURFACE SCHEME
+!    LKFBCONV: Control key to KFB convection scheme (deep and/or shallow)
+!    LKFBD   : Control key to KFB deep convection 
+!    LKFBS   : Control key to KFB shallow convection 
+!    LUSECHEM: Contol key for calling the Gas Chemistry scheme
+!    LORILAM : Contol key for calling the Aerosol Chemistry scheme
+!    LRDUST   : Contol key for calling the desertic aerosols
+!    LBUFLUX  : If TRUE fluxes are calculated in AROEND_BUDGET,
+!               if FALSE, tendencies remain 
+!   CCOUPLING : Type of SURFEX coupling. E - explicit, I - implicit 
+
+LOGICAL :: LMPA
+LOGICAL :: LMICRO
+LOGICAL :: LTURB
+LOGICAL :: LMSE
+LOGICAL :: LKFBCONV
+LOGICAL :: LKFBD,LKFBS
+LOGICAL :: LUSECHEM
+LOGICAL :: LORILAM
+LOGICAL :: LRDUST
+LOGICAL :: LBUFLUX
+CHARACTER(LEN=1) :: CCOUPLING
+!    -------------------------------------------------------------------
+!$OMP THREADPRIVATE(ccoupling,lbuflux,lkfbconv,lkfbd,lkfbs,lmicro,lmpa,lmse,lorilam,lrdust,lturb,lusechem)
+END MODULE YOMARPHY
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcape.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcape.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcape.F90	(revision 3330)
@@ -0,0 +1,47 @@
+MODULE YOMCAPE
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+
+!     VARIABLES TO CONTROL CAPE COMPUTATION IN FULLPOS:
+
+!        NCAPEITER : NUMBER OF ITERATIONS IN THE NEWTON LOOPS. Default
+!                    is the same as NBITER in YOMPHY.
+
+!        NETAPES : NUMBER OF INTERMEDIATE-LAYERS USED FOR CALCULATION OF
+!                  VERTICAL ASCENT BETWEEN TWO MODEL PRESSURE LEVELS.
+!                  Default value is 2.
+
+!        GCAPEPSD : DEPTH OF LAYER ABOVE THE GROUND IN WHICH MOST 
+!                   UNSTABLE PARCEL IS SEARCHED FOR (UNIT: Pa)
+!                   USED JUST FOR TYPE 2 OF CAPE. Default value is 30000.
+!                   (CAPE Pressure Search Depth)
+
+!        GCAPERET: FRACTION OF THE CONDENSATES WHICH IS RETAINED, 
+!                  I.E. WHICH DOES NOT PRECIPITATE.
+!            IF GCAPERET=1. ==> REVERSIBLE MOIST ASCENT.
+!                      IT IS ASSUMED THAT ALL THE PARCEL'S CONDENSED
+!                      WATER IS RETAINED, THUS CLOUD CONDENSATES 
+!                      REDUCE THE BUOYANCY.
+!            IF GCAPERET=0. ==> "IRREVERSIBLE" (PSEUDO-ADIABATIC) MOIST ASCENT.
+!                       CLOUD CONDENSATES PRECIPITATE  INSTANTANEOUSLY
+!                       AND THUS DO NOT AFFECT THE BUOYANCY.
+!            GCAPERET CAN BE USED WITH VALUES BETWEEN 0. AND 1..
+!            Default value is 0.
+!-------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NCAPEITER
+INTEGER(KIND=JPIM) :: NETAPES
+
+REAL(KIND=JPRB) :: GCAPERET
+REAL(KIND=JPRB) :: GCAPEPSD
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(gcapepsd,gcaperet,ncapeiter,netapes)
+END MODULE YOMCAPE
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcli.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcli.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcli.F90	(revision 3330)
@@ -0,0 +1,114 @@
+MODULE YOMCLI
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!  *YOMCLI* : constants for new configuration 923
+
+! Dataset description
+
+!  - namelist -
+!  NPINT  : size of the interpolation box 
+!  LIEEE  : if ieee format is used
+!  LGLOBE : if global dataset
+!  NDATX  : x-size of the dataset (longitude) 
+!  NDATY  : y-size of the dataset (longitude) 
+!  ELONSW , ELATSW , ELONNE , ELATNE : for local datasets (parts 5, 7 or LAM)
+!           latitudes and longitudes of the SW and NE corners (in degrees) 
+!  - local, set directly by INCLI0 from namelist -
+!  EDLON , EDLAT  : resolution of the dataset (in degrees)
+!  NGLOBX, NGLOBY : corresponding numbers of points on the globe
+!  - local, set by VAL923 according to LSOLV -
+!  SMASK  : thresholds defining the masked areas
+!  SMANQ  : value for missing data
+!  NTPMER : land-use type for sea (or lake)
+!  NTPGLA : land-use type for ice-cap
+!  NTPDES : land-use type for low vegetation, including deserts (land default)
+!  NTPLAC : land-use type for lakes if a distinction is required
+!  NSLICE : number of packet of latitudes which slice the domain
+
+! Fields characteristics
+!  - namelist -
+!  SVEG   : threshold for significant vegetation cover 
+!           (below, vegetation characteristics are not considered)
+!  SFCZ0  : scaling factor for the secondary part of z0 (urban., veget.)
+!  STR    : thresholds on T-RTT used to control snow cover in Part 6
+!           SST-RTT, constant, in Part 10 when no input dataset is available
+!  SWR    : thresholds on T-RTT and Wr used to control snow cover in Part 6
+!  - local, set by VAL923 according to LSOLV -
+!  STHER  : ration of thermal to kinetic roughness length (over land)
+!  SALBN,SALBX,SALBM,SALBG,SALBB,SALBD : albedo
+!  SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID : emissivity
+!  (minimum,maximum,sea,ice,sea ice,desert)
+!  SDEPN,SDEPX,SDEPD : soil depth
+!  SARGN,SARGX,SARGD : clay percentage
+!  SSABN,SSABX,SSABD : sand percentage
+!  SRSMN,SRSMX,SRSMD : minimum surface resistance
+!  (minimum,maximum,desert)
+!  SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D : roughness length
+!  (minimum,sea,sea-ice,urban areas,desert)
+
+LOGICAL :: LIEEE
+LOGICAL :: LGLOBE
+INTEGER(KIND=JPIM) :: NPINT
+INTEGER(KIND=JPIM) :: NDATX
+INTEGER(KIND=JPIM) :: NDATY
+INTEGER(KIND=JPIM) :: NGLOBX
+INTEGER(KIND=JPIM) :: NGLOBY
+INTEGER(KIND=JPIM) :: NTPMER
+INTEGER(KIND=JPIM) :: NTPGLA
+INTEGER(KIND=JPIM) :: NTPDES
+INTEGER(KIND=JPIM) :: NTPLAC
+INTEGER(KIND=JPIM) :: NSLICE
+REAL(KIND=JPRB) :: ELONSW
+REAL(KIND=JPRB) :: ELATSW
+REAL(KIND=JPRB) :: ELONNE
+REAL(KIND=JPRB) :: ELATNE
+REAL(KIND=JPRB) :: EDLON
+REAL(KIND=JPRB) :: EDLAT
+REAL(KIND=JPRB) :: SMASK
+REAL(KIND=JPRB) :: SMANQ
+REAL(KIND=JPRB) :: SVEG
+REAL(KIND=JPRB) :: SFCZ0
+REAL(KIND=JPRB) :: STR
+REAL(KIND=JPRB) :: SWR
+REAL(KIND=JPRB) :: STHER
+REAL(KIND=JPRB) :: SALBN
+REAL(KIND=JPRB) :: SALBX
+REAL(KIND=JPRB) :: SALBM
+REAL(KIND=JPRB) :: SALBG
+REAL(KIND=JPRB) :: SALBB
+REAL(KIND=JPRB) :: SALBD
+REAL(KIND=JPRB) :: SEMIN
+REAL(KIND=JPRB) :: SEMIX
+REAL(KIND=JPRB) :: SEMIM
+REAL(KIND=JPRB) :: SEMIG
+REAL(KIND=JPRB) :: SEMIB
+REAL(KIND=JPRB) :: SEMID
+REAL(KIND=JPRB) :: SDEPN
+REAL(KIND=JPRB) :: SDEPX
+REAL(KIND=JPRB) :: SDEPD
+REAL(KIND=JPRB) :: SARGN
+REAL(KIND=JPRB) :: SARGX
+REAL(KIND=JPRB) :: SARGD
+REAL(KIND=JPRB) :: SSABN
+REAL(KIND=JPRB) :: SSABX
+REAL(KIND=JPRB) :: SSABD
+REAL(KIND=JPRB) :: SRSMN
+REAL(KIND=JPRB) :: SRSMX
+REAL(KIND=JPRB) :: SRSMD
+REAL(KIND=JPRB) :: SZZ0N
+REAL(KIND=JPRB) :: SZZ0M
+REAL(KIND=JPRB) :: SZZ0B
+REAL(KIND=JPRB) :: SZZ0U
+REAL(KIND=JPRB) :: SZZ0D
+
+!$OMP THREADPRIVATE(edlat,edlon,elatne,elatsw,elonne,elonsw,lglobe,lieee,ndatx,ndaty)
+!$OMP THREADPRIVATE(nglobx,ngloby,npint,nslice,ntpdes,ntpgla,ntplac,ntpmer,salbb,salbd)
+!$OMP THREADPRIVATE(salbg,salbm,salbn,salbx,sargd,sargn,sargx,sdepd,sdepn,sdepx,semib)
+!$OMP THREADPRIVATE(semid,semig,semim,semin,semix,sfcz0,smanq,smask,srsmd,srsmn,srsmx)
+!$OMP THREADPRIVATE(ssabd,ssabn,ssabx,sther,str,sveg,swr,szz0b,szz0d,szz0m,szz0n,szz0u)
+END MODULE YOMCLI
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomclop15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomclop15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomclop15.F90	(revision 3330)
@@ -0,0 +1,71 @@
+MODULE YOMCLOP15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     * YOMCLOP15* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
+!*                       FROZEN VERSION (CYCLE 15) OF YOECLOP
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RYFWCA15(2)
+REAL(KIND=JPRB) :: RYFWCB15(2)
+REAL(KIND=JPRB) :: RYFWCC15(2)
+REAL(KIND=JPRB) :: RYFWCD15(2)
+REAL(KIND=JPRB) :: RYFWCE15(2)
+REAL(KIND=JPRB) :: RYFWCF15(2)
+REAL(KIND=JPRB) :: REBCUA15(2)
+REAL(KIND=JPRB) :: REBCUB15(2)
+REAL(KIND=JPRB) :: REBCUC15(2)
+REAL(KIND=JPRB) :: REBCUD15(2)
+REAL(KIND=JPRB) :: REBCUE15(2)
+REAL(KIND=JPRB) :: REBCUF15(2)
+REAL(KIND=JPRB) :: REBCUG15
+REAL(KIND=JPRB) :: REBCUH15
+REAL(KIND=JPRB) :: REFFIA15
+REAL(KIND=JPRB) :: REFFIB15
+REAL(KIND=JPRB) :: REFFWIA15
+REAL(KIND=JPRB) :: RTIW15
+REAL(KIND=JPRB) :: RRIW15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RYFWCA15 :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RYFWCB15 :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RYFWCC15 :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCD15 :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCE15 :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCF15 :  REAL   : ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! REBCUA15 :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! REBCUB15 :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! REBCUC15 :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUD15 :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUE15 :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! REBCUF15 :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! REBCUG15 :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUH15 :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+
+! REFFIA15 :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
+! REFFIB15 :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
+
+!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
+
+! RTIW15   :  REAL   : TEMPERATURE THRESHOLD
+! RRIW15   :  REAL   :  TRANSITION RANGE
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(rebcua15,rebcub15,rebcuc15,rebcud15,rebcue15,rebcuf15,rebcug15,rebcuh15)
+!$OMP THREADPRIVATE(reffia15,reffib15,reffwia15,rriw15,rtiw15,ryfwca15,ryfwcb15,ryfwcc15,ryfwcd15,ryfwce15,ryfwcf15)
+END MODULE YOMCLOP15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcoaphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcoaphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcoaphy.F90	(revision 3330)
@@ -0,0 +1,24 @@
+MODULE YOMCOAPHY
+
+USE PARKIND1  ,ONLY : JPIM
+USE GRIDPOINT_BUFFERS , ONLY : gridpoint_buffer
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOEPHY* - SWITCHES RELATED TO DIABATIC PROCESSES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+INTEGER(KIND=JPIM) :: NPHYINT      ! NPHYINT=0 -> Physics and dynamics at the same resolution
+                                   ! NPHYINT=1 -> Physics grid coarser than dynamics grid
+				   ! NPHYINT=2 -> Physics grid finer than dynamics grid
+TYPE(gridpoint_buffer) :: PHYS_GPPBUF
+CHARACTER (LEN = 32) ::   CPTABLEFIL
+CHARACTER (LEN = 256) ::   CPTABLEDIR
+
+!$OMP THREADPRIVATE(cptabledir,cptablefil,nphyint,phys_gppbuf)
+END MODULE YOMCOAPHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcst.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcst.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcst.F90	(revision 3330)
@@ -0,0 +1,85 @@
+MODULE YOMCST
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Common of physical constants
+!     You will find the meanings in the annex 1 of the documentation
+
+! A1.0 Fundamental constants
+REAL(KIND=JPRB) :: RPI
+REAL(KIND=JPRB) :: RCLUM
+REAL(KIND=JPRB) :: RHPLA
+REAL(KIND=JPRB) :: RKBOL
+REAL(KIND=JPRB) :: RNAVO
+! A1.1 Astronomical constants
+REAL(KIND=JPRB) :: RDAY
+REAL(KIND=JPRB) :: REA
+REAL(KIND=JPRB) :: REPSM
+REAL(KIND=JPRB) :: RSIYEA
+REAL(KIND=JPRB) :: RSIDAY
+REAL(KIND=JPRB) :: ROMEGA
+! A1.2 Geoide
+REAL(KIND=JPRB) :: RA
+REAL(KIND=JPRB) :: RG
+REAL(KIND=JPRB) :: R1SA
+! A1.3 Radiation
+REAL(KIND=JPRB) :: RSIGMA
+REAL(KIND=JPRB) :: RI0
+! A1.4 Thermodynamic gas phase
+REAL(KIND=JPRB) :: R
+REAL(KIND=JPRB) :: RMD
+REAL(KIND=JPRB) :: RMV
+REAL(KIND=JPRB) :: RMO3
+REAL(KIND=JPRB) :: RD
+REAL(KIND=JPRB) :: RV
+REAL(KIND=JPRB) :: RCPD
+REAL(KIND=JPRB) :: RCPV
+REAL(KIND=JPRB) :: RCVD
+REAL(KIND=JPRB) :: RCVV
+REAL(KIND=JPRB) :: RKAPPA
+REAL(KIND=JPRB) :: RETV
+REAL(KIND=JPRB) :: RMCO2
+REAL(KIND=JPRB) :: RMCH4
+REAL(KIND=JPRB) :: RMN2O
+REAL(KIND=JPRB) :: RMSF6
+REAL(KIND=JPRB) :: RMRA
+REAL(KIND=JPRB) :: RMCO
+REAL(KIND=JPRB) :: RMHCHO
+REAL(KIND=JPRB) :: RMNO2
+REAL(KIND=JPRB) :: RMSO2
+! A1.5,6 Thermodynamic liquid,solid phases
+REAL(KIND=JPRB) :: RCW
+REAL(KIND=JPRB) :: RCS
+! A1.7 Thermodynamic transition of phase
+REAL(KIND=JPRB) :: RLVTT
+REAL(KIND=JPRB) :: RLSTT
+REAL(KIND=JPRB) :: RLVZER
+REAL(KIND=JPRB) :: RLSZER
+REAL(KIND=JPRB) :: RLMLT
+REAL(KIND=JPRB) :: RTT
+REAL(KIND=JPRB) :: RATM
+REAL(KIND=JPRB) :: RDT
+! A1.8 Curve of saturation
+REAL(KIND=JPRB) :: RESTT
+REAL(KIND=JPRB) :: RALPW
+REAL(KIND=JPRB) :: RBETW
+REAL(KIND=JPRB) :: RGAMW
+REAL(KIND=JPRB) :: RALPS
+REAL(KIND=JPRB) :: RBETS
+REAL(KIND=JPRB) :: RGAMS
+REAL(KIND=JPRB) :: RALPD
+REAL(KIND=JPRB) :: RBETD
+REAL(KIND=JPRB) :: RGAMD
+
+!    ------------------------------------------------------------------
+!$OMP THREADPRIVATE(r,r1sa,ra,ralpd,ralps,ralpw,ratm,rbetd,rbets,rbetw,rclum,rcpd,rcpv,rcs,rcvd,rcvv,rcw)
+!$OMP THREADPRIVATE(rd,rday,rdt,rea,repsm,restt,retv,rg,rgamd,rgams,rgamw,rhpla,ri0,rkappa,rkbol,rlmlt)
+!$OMP THREADPRIVATE(rlstt,rlszer,rlvtt,rlvzer,rmch4,rmco,rmco2,rmd,rmhcho,rmn2o,rmno2,rmo3,rmra,rmsf6)
+!$OMP THREADPRIVATE(rmso2,rmv,rnavo,romega,rpi,rsiday,rsigma,rsiyea,rtt,rv)
+END MODULE YOMCST
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct0.F90	(revision 3330)
@@ -0,0 +1,482 @@
+MODULE YOMCT0
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Control variables for the job - constant within job
+
+!========== TECHNICAL SWITCHES ================================================
+
+! ----- configuration:
+! NCONF      : configuration of the job
+
+!                0- 99 : 3-D integration job
+!              100-199 : variational job
+!              200-299 : 2-D integration job
+!              300-349 : KALMAN filter                    (currently obsolete)
+!              350-399 : predictability model             (currently obsolete)
+!              400-499 : test of the adjoint
+!              500-599 : test of the tangent linear model
+!              600-699 : eigenvalue/vector solvers
+!              700-799 : optimal interpolation
+!              800-899 : sensitivity
+!              900-999 : miscellaneous other configurations.
+
+!                    1 : 3-D primitive equation model
+
+!                  131 : incremental 4-D VAR/3-D VAR
+
+!                  201 : shallow-water model
+!                  202 : vorticity equation model
+
+!                  401 : test of adjoint with 3-D P.E. model
+!                  421 : test of adjoint with shallow-water model
+!                  422 : test of adjoint with vorticity equation model
+
+!                  501 : test of tangent linear with 3-D P.E. model
+!                  521 : test of tangent linear with shallow-water model
+!                  522 : test of tangent linear with vorticity equation model
+
+!                  601 : eigenvalue/vector solver for 3-D P.E. model
+
+!                  701 : optimal interpolation with CANARI
+
+!                  801 : sensitivity with 3-D P.E. model
+
+!                  901 : set up initial conditions (CPREP1)
+!                  903 : set up initial conditions (CPREP5)
+!                  911 : computes dilatation matrices for spectral space
+!                  912 : computes rotation matrices for spectral space
+!                  923 : initialisation of climatologic files
+!                  931 : creation of an ARPEGE file containing the NESDIS SST (INCLITC).
+!                  932 : interpolates the sea-ice concentration field from
+!                        satellite data to the ARPEGE grid (CSEAICE).
+!                  940 : corrects the dry surface pressure in an ARPEGE file
+!                        to keep total mass constant compared to a reference
+!                        ARPEGE file (CORMASS)
+!                  951 : difference between 2 model states (CPREP2)
+
+! ----- ???:
+! NTASKS     : ??? (no comment provided, currently used in CANARI only).
+
+! ----- variables linked with diagnostics and outputs:
+! LALLOPR    : .T. = print information about all allocations/deallocations
+! NPRINTLEV  : 0 = "basic prints'; 1 = "more prints"; 2 = "debug prints"
+
+! ----- type of file used:
+! LFDBOP     : .T. = fields data base utilized
+! LGRBOP     : .T. = output in GRIB (not ARPEGE)
+! LFBDAP     : .T. = diagnostics written on trajectory files
+! LARPEGEF   : .T. = use ARPEGE files
+! LARPEGEF_TRAJHR   : .T. = use ARPEGE files for high resolution trajectory
+! LARPEGEF_TRAJBG   : .T. = use ARPEGE files for background
+! LARPEGEF_RDGP_INIT     : .T. = use grid-point ARPEGE files
+! LARPEGEF_RDGP_TRAJHR   : .T. = use grid-point ARPEGE files for HR trajectory
+! LARPEGEF_RDGP_TRAJBG   : .T. = use grid-point ARPEGE files for background
+! CNDISPP    : directory of display files
+
+! ----- variables linked to post-processing:
+! LFPOS      : .T. = use of Full-POS rather than POS
+! CFPNCF     : name of Full-POS control file (pseudo-configuration 927)
+! LFPART2    : .T. = second part of interpolations for changing geometry
+!              (pseudo-configuration 927)
+! CFDIRLST   : path of postprocessing listing file
+! CNPPATH    : directory of postprocessing namelist files
+
+! ----- use of transmission coefficients stored in Fourier or spectral space:
+! LRETCFOU   : .T. = reading Fourier transmission coefficients on file
+!              for simplified physics.
+! LWRTCFOU   : .T. = writing Fourier transmission coefficients on file.
+! LRFOUTCNORM: activates diagnostics on Fourier transmission coefficients.
+!              - LRFOUTCNORM(1)=.T.: global statistics.
+!              - LRFOUTCNORM(2)=.T.: statistics per latitude.
+!              - LRFOUTCNORM(3)=.T.: statistics per layer.
+!              - LRFOUTCNORM(4)=.T.: statistics per wavenumber.
+! LRGPTCNORM : activates diagnostics on grid-point transmission coefficients.
+!              - LRGPTCNORM(1)=.T.: global statistics.
+!              - LRGPTCNORM(2)=.T.: statistics per latitude.
+!              - LRGPTCNORM(3)=.T.: statistics per layer.
+
+! ----- other variables:
+! LNF        : .T. = start, .F. = restart
+! LSMSSIG    : .T. = send signals to SMS (ECMWF supervisor)
+! LOPDIS     : .T. = calls OPDIS
+! NCYCLE     : cycle identifier
+! CNMEXP     : name of the experiment
+!              An experiment is identified by its name (16 characters)
+!              and its cycle (typically same experiment but without a bug)
+! CFCLASS    : class for use by FDB
+! CTYPE      : type for use by FDB
+! LBACKG     : ???
+! LMINIM     : ???
+
+!========== MODEL SWITCHES ====================================================
+! Remark: this section containes some dynamical variables which cannot be
+!         put in NAMDYN because they are used in routines called before SUDYN
+!         and sometimes to allocate some arrays.
+
+! ----- advection scheme, semi-Lagrangian scheme:
+! LSLAG     : .TRUE. = semi-lagrangian on
+! LTWOTL    : .TRUE. if two-time-level semi-Lagrangian scheme will be used
+! LRFRIC    : .TRUE. = Rayleigh friction in zonal wind (for p < 9.9hPa)
+! LVERCOR   : .T./.F.: thin layer hypothesis relaxed/applied.
+
+! ----- vertical discretisation, vertical boundaries:
+! LAPRXPK   : way of computing full-levels pressures in primitive equation
+!             hydrostatic model.
+!             .T.: full levels are computed by PK=(PK+1/2 + PK-1/2)*0.5
+!             .F.: full levels are computed by a more complicated formula
+!                  consistent with "alpha" in geopotential formula.
+! LREGETA   : .T.: for the interlayer L, ETA(L)=L/NFLEVG
+!             .F.: for the interlayer L, ETA(L)=A(L)/P0+B(L)
+! LRUBC     : .T.: if radiational upper boundary condition
+
+! ----- numbering of timesteps:
+! NSTART    : first timestep of model
+! NSTOP     : last timestep of model
+
+! ----- quadrature:
+! NQUAD     : 1 ====> GAUSS
+
+! ----- type of equations:
+! LNHDYN    : .T. if 3-D non-hydrostatic dynamics is active
+
+! ----- way of computing initial state:
+! N2DINI    : 1 initialization for 2D with Haurwitz wave
+!           : 2 initialization for 2D with real fields
+! N3DINI    : 1 initialization for 3D with standard atmosphere
+!             (not available since cycle 12)
+!           : 0 initialization for 3D with real fields
+
+! ----- semi-implicit scheme:
+! LSITRIC   : .T.: if "tridiagonal" solver is used for the vertically
+!             coupled semi-implicit equations
+
+! ----- control of variables which are transformed in spectral space:
+! LSPRT     : .T.: if R*T/Rd "virtual temperature" as spectral variable
+
+! ----- diagnostics and frequencies:
+! NSPPR     : 0: no spectrum printed in spnorm; only global norms averaged
+!             on the vertical are printed
+!           : 1: no spectrum printed in spnorm; only global norms averaged
+!             on the vertical and global norms on each layer are printed
+!           : 2: both total wavenumber spectrum and zonal wavenumber spectrum
+!             are printed
+! NFRPOS    : frequency of post-processing events (time-steps)
+! NFRISP    : frequency of isp (animation !) events (time-steps)
+! NFRCO     : frequency of coupled fields (time-steps)
+! NFRCORM   : mass correction frequency (>0 time-steps, <0 hours, 0 no
+!             correction)
+! NFRHIS    : frequency of history write_ups (time-steps)
+! NFRMASSCON: frequency of mass conservation fixup (time-steps)
+! NFRGDI    : frequency of grid-point space diagnostics
+! NFRSDI    : frequency of spectral space diagnostics
+! NFRDHFG   : write-up frequency of global DDH
+! NFRDHFZ   : write-up frequency of zonal DDH
+! NFRDHFD   : write-up frequency of "limited domain" DDH
+! NFRDHP    : write-up frequency of DDH files
+! NPOSTS    : array containing postprocessing steps
+! NPISPS    : array containing isp (animation !) steps
+! NHISTS    : array containing history write-up steps
+! NMASSCONS : array containing mass conservation fixup steps
+! NGDITS    : array containing grid point diagnostics steps
+! NSDITS    : array containing spectral diagnostics steps
+! NDHFGTS   : array containing write out steps for global DDH
+! NDHFZTS   : array containing write out steps for zonal means DDH
+! NDHFDTS   : array containing write out steps for limited areas DDH
+! NDHPTS    : array containing write out steps for DDH
+! Explanation for N[XXX]TS:
+!             1) if N[XXX]TS(0)=0 action if MOD(JSTEP,NFR[XXX])=0
+!             2) if N[XXX]TS(0)>0 N[XXX]TS(0) significant numbers in 
+!                N[XXX]TS are then considered and:
+!                action for JSTEP=N[XXX]TS(.)*NFR[XXX]
+!             3) IF N[XXX]TS(0)<0
+!                action for JSTEP=(N[XXX]TS(.)/DELTAT)*NFR[XXX]
+
+!========== ASSIMILATION SWITCHES =============================================
+
+! LNOBGON : .F. if eq. .T. no stop if unsuccessful reading of CMA files
+! LCANARI : .T. = term to control French OI
+! LCASIG  : .T. = interpolation of the model errors (French OI)
+! LGUESS  : .T. = term of first guess included
+! LOBS    : .T. = term of observations included
+! LSIMOB  : .T. = if simulated observations
+! LOBSC1  : .T. = term of observations included in configuration 1
+! LSCREEN : .T. = observation screening for variational assimilation
+! LSCREEN_OPENMP : .T. = 4DVAR screening runs in OpenMP-parallel mode over timeslots
+! L_SPLIT_SCREEN .T. = to split screenng
+! L_SCREEN_CALL: .T. = call to screening routine SCREEN
+! LOBSREF : .T. = comparison to observation for the trajectory (NCONF=131)
+! LIFSMIN : .T. = if running minimisation
+! LIFSTRAJ: .T. = if running high resolution trajectory integration
+! NCNTVAR : Definition of the control variable of a variational job.
+!           = 1 ===> control variables are model variables
+!           = 2 ===> control variables are normalized departures of
+!                    model variables from the background field
+!           = 3 ===> ..........
+! LOLDPP  : .T. use "old" p.p. of T,Q,U and V
+! NSTEPINI: Initial step in hours for the initial conditions
+!           at the beginning of 4D-Var trajectory (usually 3 hours).
+!           It is used to update the step while saving the FCs along
+!           the first trajectory.
+! NINTERPTRAJ : Interpolation method applied to increments
+! NINTERPINCR : Interpolation method applied to increments
+!           = 1 ===> Bi-linear interpolation (default)
+!           = 2 ===> Bi-cubic Rinterpolation
+!           = 3 ===> Conserving interpolation
+! For Conserving interpolation the style is defined by:
+! NINTERPTRAJORDER : order of interpolation for trajectories
+! NINTERPINCRORDER : order of interpolation for increments
+! NINTERPTRAJLIMIT : 0 if limiter is NOT used (default), 1 if used for trajectory interpolation
+! NINTERPINCRLIMIT : 0 if limiter is NOT used (default), 1 if used for increment interpolation
+
+!========== ALADIN SWITCHES ===================================================
+
+! LELAM   : .T. = limited area model with coupling or fully biperiodic
+!                 model (torus)
+!           .F. = global model (sphere)
+! LRPLANE : .T. = plane cartesian geometry
+!           .F. = spherical geometry
+! LTENC   : TRUE if tendency coupling of surface pressure
+!           FALSE if no tend. coupling of surf. pressure
+! LALLTC  : used together with LTENC when LTENC=.T.
+!          - no meaning for quadratic tendency coupling, where just t1 coupling
+!          is applied at every NEFRCL time step
+!          - for lin. tendency coupling:
+!          TRUE if tendency coupling of surf. pres. at every step
+!          FALSE if tend. coupl., except at every NEFRCL time steps
+!          when just t1 coupling
+! RTENC : multiplier of EALFA in the tendency coupling scheme
+!  for stability reasons (RTENC<=1. close to 1)
+
+!========== AROME SWITCH ======================================================
+
+! LAROME  : .T. = AROME limited area model
+
+!========== ECMWF Single Column Model =========================================
+! LSCMEC  : .T. = ECMWF Single Column Model
+! LSFCFLX : .T. = forcing with surface fluxes (latent and sensible).
+! REXTSHF : externally supplied sensible heat flux [W/m^2]
+! REXTLHF : externally supplied latent   heat flux [W/m^2]
+! LROUGH  : .T. = surface roughness length is externally specified 
+! REXTZ0M : externally supplied roughness length for momentum [m]
+! REXTZ0H : externally supplied roughness length for heat [m]
+
+!========== DISTRIBUTED MEMORY SWITCHES =======================================
+
+! LMPOFF  : .T. = switch off the message passing library initialisation
+!                 requested for special cases LMESSP=.T. and NPROC=1
+!         : .F. = (default) full message passing features
+! NPROC   : Total number of processors requested for this run
+! N_REGIONS_NS : Number of regions (LEQ_REGIONS=T) or NPRGPNS (LEQ_REGIONS=F)
+! N_REGIONS_EW : Maximum number of partitions for all regions
+! N_REGIONS : Number of partitions in each region
+! NPRGPNS : Number of processors used during grid-point phase in North-South
+!           direction (previously known as NPROCA)
+! NPRGPEW : Number of processors used during grid-point phase in East-West
+!           direction (previously known as NPROCB)
+! NPRTRNS : Number of processors used during transform phase in North-South
+!           direction (previously the same as NPROCA and now implemented
+!           such that NPRTRNS=NPTRW)
+! NPRTRM  : Number of processors used during spectral computations in
+!           meridional wave direction (previously the same as NPROCA
+!           and now implemented such that NPRTRM=NPTRW)
+! NPRTRN  : Number of processors used during spectral computations in total
+!           wave direction (previously the same as NPROCA and now implemented
+!           such that NPRTRN=NPTRV)
+! NPRTRW  : Number of processors used during transform phase in wave space
+!           (previously the same as NPROCA)
+! NPRTRV  : Number of processors used during transform phase in vertical
+!           direction (previously known as NPROCB)
+! LOUTPUT : .T. = diagnostic output requested on this PE
+! NOUTPUT : 0 = No diagnostic output
+!           1 = Only diagnostic output from PE1 ( default )
+!           2 = Diagnostic output from all PEs into separate files
+! LREFOUT : .T. compare to reference run
+! LREFGEN : .T. to generate reference file
+! LMPDIAG : .T. = extensive message passing diagnostic output requested
+
+!========== PC SCHEMES ========================================================
+!----------------------------------------------
+! PC SCHEMES QUANTITIES CONSTANT DURING INTEGRATION
+!----------------------------------------------
+
+! LPC_FULL - full PC scheme switch (with reiterations of trajectories)
+
+! LPC_OLD - iterative scheme without trajectories recalculations
+!         - with iteration of D3 terms (Bubnova et all., 1995)
+
+! LPC_NESC - non-extrapolating two-time level SL SI scheme
+!          - X(t+dt/2) = X(t) during predictor
+
+!========== FORCING SWITCH ====================================================
+! LSFORC - switch to activate the large scale forcings in setup and cpg
+!==============================================================================
+
+! * Parameters:
+INTEGER(KIND=JPIM), PARAMETER :: JPNPST=240
+
+! * Technical switches:
+INTEGER(KIND=JPIM) :: NCONF
+INTEGER(KIND=JPIM) :: NTASKS ! ??????
+LOGICAL :: LALLOPR
+INTEGER(KIND=JPIM) :: NPRINTLEV
+LOGICAL :: LFDBOP
+LOGICAL :: LGRBOP
+LOGICAL :: LFBDAP
+LOGICAL :: LARPEGEF
+LOGICAL :: LARPEGEF_TRAJHR
+LOGICAL :: LARPEGEF_TRAJBG
+LOGICAL :: LARPEGEF_RDGP_INIT
+LOGICAL :: LARPEGEF_RDGP_TRAJHR
+LOGICAL :: LARPEGEF_RDGP_TRAJBG
+CHARACTER (LEN = 120) ::  CNDISPP
+LOGICAL :: LFPOS
+CHARACTER (LEN = 6) ::  CFPNCF
+LOGICAL :: LFPART2
+CHARACTER (LEN = 120) ::  CFDIRLST
+CHARACTER (LEN = 120) ::  CNPPATH
+LOGICAL :: LRETCFOU
+LOGICAL :: LWRTCFOU
+LOGICAL :: LRFOUTCNORM(4)
+LOGICAL :: LRGPTCNORM(3)
+LOGICAL :: LNF
+LOGICAL :: LSMSSIG
+LOGICAL :: LOPDIS
+INTEGER(KIND=JPIM) :: NCYCLE=128
+CHARACTER (LEN = 16) ::  CNMEXP
+CHARACTER (LEN = 2) ::  CFCLASS
+CHARACTER (LEN = 2) ::  CTYPE
+LOGICAL :: LBACKG
+LOGICAL :: LMINIM
+
+! * Model switches:
+LOGICAL :: LSLAG
+LOGICAL :: LTWOTL
+LOGICAL :: LRFRIC
+LOGICAL :: LVERCOR
+LOGICAL :: LAPRXPK
+LOGICAL :: LREGETA
+LOGICAL :: LRUBC
+INTEGER(KIND=JPIM) :: NSTART
+INTEGER(KIND=JPIM) :: NSTOP
+INTEGER(KIND=JPIM) :: NQUAD
+LOGICAL :: LNHDYN
+INTEGER(KIND=JPIM) :: N2DINI
+INTEGER(KIND=JPIM) :: N3DINI
+LOGICAL :: LSITRIC
+LOGICAL :: LSPRT
+INTEGER(KIND=JPIM) :: NSPPR
+INTEGER(KIND=JPIM) :: NFRPOS
+INTEGER(KIND=JPIM) :: NFRISP
+INTEGER(KIND=JPIM) :: NFRCORM
+INTEGER(KIND=JPIM) :: NFRCO
+INTEGER(KIND=JPIM) :: NFRHIS
+INTEGER(KIND=JPIM) :: NFRMASSCON
+INTEGER(KIND=JPIM) :: NFRGDI
+INTEGER(KIND=JPIM) :: NFRSDI
+INTEGER(KIND=JPIM) :: NFRDHFG
+INTEGER(KIND=JPIM) :: NFRDHFZ
+INTEGER(KIND=JPIM) :: NFRDHFD
+INTEGER(KIND=JPIM) :: NFRDHP
+INTEGER(KIND=JPIM) :: NPOSTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NPISPS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NHISTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NMASSCONS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NGDITS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NSDITS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHFGTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHFZTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHFDTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHPTS(0:JPNPST)
+
+! * Assimilation:
+LOGICAL :: LNOBGON
+LOGICAL :: LCANARI
+LOGICAL :: LCASIG
+LOGICAL :: LGUESS
+LOGICAL :: LOBS
+LOGICAL :: LSIMOB
+LOGICAL :: LOBSC1
+LOGICAL :: LSCREEN
+LOGICAL :: LSCREEN_OPENMP
+LOGICAL :: L_SPLIT_SCREEN
+LOGICAL :: L_SCREEN_CALL
+LOGICAL :: LOBSREF
+LOGICAL :: LIFSMIN
+LOGICAL :: LIFSTRAJ
+INTEGER(KIND=JPIM) :: NCNTVAR
+LOGICAL :: LOLDPP
+INTEGER(KIND=JPIM) :: NSTEPINI
+INTEGER(KIND=JPIM) :: NINTERPTRAJ
+INTEGER(KIND=JPIM) :: NINTERPINCR
+INTEGER(KIND=JPIM) :: NINTERPTRAJLIMIT
+INTEGER(KIND=JPIM) :: NINTERPINCRLIMIT
+INTEGER(KIND=JPIM) :: NINTERPTRAJORDER
+INTEGER(KIND=JPIM) :: NINTERPINCRORDER
+
+! * ALADIN:
+LOGICAL :: LELAM
+LOGICAL :: LRPLANE
+LOGICAL :: LTENC
+LOGICAL :: LALLTC
+REAL(KIND=JPRB) :: RTENC
+
+! * AROME:
+LOGICAL :: LAROME
+
+! * ECMWF Single Column Model:
+LOGICAL :: LSCMEC
+LOGICAL :: LSFCFLX
+REAL(KIND=JPRB) :: REXTSHF
+REAL(KIND=JPRB) :: REXTLHF
+LOGICAL :: LROUGH
+REAL(KIND=JPRB) :: REXTZ0M
+REAL(KIND=JPRB) :: REXTZ0H
+
+! * Distributed memory:
+LOGICAL :: LMPOFF
+INTEGER(KIND=JPIM) :: NPROC
+INTEGER(KIND=JPIM) :: N_REGIONS_NS
+INTEGER(KIND=JPIM) :: N_REGIONS_EW
+INTEGER(KIND=JPIM),ALLOCATABLE :: N_REGIONS(:)
+INTEGER(KIND=JPIM) :: NPRGPNS
+INTEGER(KIND=JPIM) :: NPRGPEW
+INTEGER(KIND=JPIM) :: NPRTRNS
+INTEGER(KIND=JPIM) :: NPRTRM
+INTEGER(KIND=JPIM) :: NPRTRN
+INTEGER(KIND=JPIM) :: NPRTRW
+INTEGER(KIND=JPIM) :: NPRTRV
+LOGICAL :: LOUTPUT
+INTEGER(KIND=JPIM) :: NOUTPUT
+LOGICAL :: LREFOUT
+LOGICAL :: LREFGEN
+LOGICAL :: LMPDIAG
+
+! * PC schemes.
+LOGICAL ::  LPC_FULL
+LOGICAL ::  LPC_OLD
+LOGICAL ::  LPC_NESC
+!
+! * FORCING
+LOGICAL ::  LSFORC
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(cfclass,cfdirlst,cfpncf,cndispp,cnmexp,cnppath,ctype,l_screen_call,l_split_screen,lallopr,lalltc)
+!$OMP THREADPRIVATE(laprxpk,larome,larpegef,larpegef_rdgp_init,larpegef_rdgp_trajbg,larpegef_rdgp_trajhr)
+!$OMP THREADPRIVATE(larpegef_trajbg,larpegef_trajhr,lbackg,lcanari,lcasig,lelam,lfbdap,lfdbop,lfpart2,lfpos)
+!$OMP THREADPRIVATE(lgrbop,lguess,lifsmin,lifstraj,lminim,lmpdiag,lmpoff,lnf,lnhdyn,lnobgon,lobs,lobsc1,lobsref)
+!$OMP THREADPRIVATE(loldpp,lopdis,loutput,lpc_full,lpc_nesc,lpc_old,lrefgen,lrefout,lregeta,lretcfou,lrfoutcnorm)
+!$OMP THREADPRIVATE(lrfric,lrgptcnorm,lrough,lrplane,lrubc,lscmec,lscreen,lscreen_openmp,lsfcflx,lsforc,lsimob)
+!$OMP THREADPRIVATE(lsitric,lslag,lsmssig,lsprt,ltenc,ltwotl,lvercor,lwrtcfou,n2dini,n3dini,n_regions_ew,n_regions_ns)
+!$OMP THREADPRIVATE(ncntvar,nconf,ncycle,ndhfdts,ndhfgts,ndhfzts,ndhpts,nfrco,nfrcorm,nfrdhfd,nfrdhfg,nfrdhfz,nfrdhp)
+!$OMP THREADPRIVATE(nfrgdi,nfrhis,nfrisp,nfrmasscon,nfrpos,nfrsdi,ngdits,nhists,ninterpincr,ninterpincrlimit)
+!$OMP THREADPRIVATE(ninterpincrorder,ninterptraj,ninterptrajlimit,ninterptrajorder,nmasscons,noutput,npisps,nposts)
+!$OMP THREADPRIVATE(nprgpew,nprgpns,nprintlev,nproc,nprtrm,nprtrn,nprtrns,nprtrv,nprtrw,nquad,nsdits,nsppr,nstart)
+!$OMP THREADPRIVATE(nstepini,nstop,ntasks,rextlhf,rextshf,rextz0h,rextz0m,rtenc)
+!$OMP THREADPRIVATE(n_regions)
+END MODULE YOMCT0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct0b.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct0b.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct0b.F90	(revision 3330)
@@ -0,0 +1,19 @@
+MODULE YOMCT0B
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*  Control variables for the default set-up DO NOT USE THEM OUT OF THE SET-UP !ub
+
+! LECMWF  : .T. = set-up default values used at ECMWF
+!           .F. = set-up default values used at METEO-FRANCE
+LOGICAL :: LECMWF
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(lecmwf)
+END MODULE YOMCT0B
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomct3.F90	(revision 3330)
@@ -0,0 +1,25 @@
+MODULE YOMCT3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Control variables for the model  (changed at level 3)
+
+! NSTEP       : current timestep of model
+! LGPQINSP    : .TRUE. if grid-point Q initialized from spectral field
+! LSPC_FROM_DI: T (resp. F) if SPCH is called from STEPO (resp. STEPOTL).
+! LRECALL_SUHDF_IN_CNT4: T if SUHDF must be called again in CNT4.
+
+INTEGER(KIND=JPIM) :: NSTEP
+LOGICAL :: LGPQINSP
+LOGICAL :: LSPC_FROM_DI
+LOGICAL :: LRECALL_SUHDF_IN_CNT4
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(lgpqinsp,lrecall_suhdf_in_cnt4,lspc_from_di,nstep)
+END MODULE YOMCT3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcver.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcver.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomcver.F90	(revision 3330)
@@ -0,0 +1,50 @@
+MODULE YOMCVER
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+! -----------------------------------------------------------------------------
+
+! * Variables related to vertical discretisation in finite elements:
+! LVERTFE : .T./.F. Finite element/conventional vertical discretisation.
+! NVSCH   : type of basis if the finite element vertical discretisation is used.
+!           1: linear functions.
+!           3: Hermite cubic functions.
+! RINTE   : matricial operator for vertical integrations in the
+!           finite element vertical discretisation.
+! RDERI   : matricial operator for vertical derivatives in the
+!           finite element vertical discretisation.
+LOGICAL :: LVERTFE
+INTEGER(KIND=JPIM) :: NVSCH
+REAL(KIND=JPRB),ALLOCATABLE :: RINTE(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RDERI(:,:)
+
+! -----------------------------------------------------------------------------
+
+! * Variables related to use of spline cubic vertical interpolations
+!   in the semi-Lagrangian scheme:
+! LVSPLIP            : .T. if vertical spline cubic SL interpolations for O3.
+! RVSPTRI,RVSPC      : are used to re-profile the field to be interpolated
+!                      in routine VSPLTRANS.
+! RFAA,RFBB,RFCC,RFDD: are used in the computation of the vertical weights.
+! VRDETAR            : ratio (eta(lbar)-eta(lbar-1))/(eta(lbar-1)-eta(lbar-2)),
+!                      is used in the interpolation routine LAITVSPCQM to
+!                      ensure monotonicity and conservation properties.
+LOGICAL :: LVSPLIP
+LOGICAL :: LSVTSM                ! Stratospheric vertical trajectory smoothed
+REAL(KIND=JPRB),ALLOCATABLE :: RVSPTRI(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RVSPC(:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFAA(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFBB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFCC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFDD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: VRDETAR(:)
+
+! -----------------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(lsvtsm,lvertfe,lvsplip,nvsch)
+!$OMP THREADPRIVATE(rderi,rfaa,rfbb,rfcc,rfdd,rinte,rvspc,rvsptri,vrdetar)
+END MODULE YOMCVER
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdim.F90	(revision 3330)
@@ -0,0 +1,240 @@
+MODULE YOMDIM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Dimensions of model working arrays
+
+! === COLLOCATION GRID OF THE DYNAMICS ========================================
+
+! NDGLG  : number of rows of latitudes
+! NDGLL  : number of rows of latitudes for which this process is
+!          performing Fourier Space calculations
+! NDGNH  : number of rows in the northern hemisphere
+! NDGSUR : number of additional rows at each pole for horizontal
+!          interpolations.
+! NDGSAG = -NDGSUR+1
+! NDGSAL = Local version of NDGSAG.
+! NDGSAH = 1-NSLWIDE in DM version.
+! NDGSAFPH=1-NFPWIDE in DM version.
+! NDGENG = NDGLG+NDGSUR
+! NDGENL = Number of latitude rows for which this process has grid
+!          point calculations to perform.
+! NDGENH = NDGENL+NSLWIDE in DM version.
+! NDGENFPH=NDGENL+NFPWIDE in DM version.
+! NDGUNG : first row of the area of interest in Aladin
+!        = NDGSAG in the global model
+! NDGUXG : last  row of the area of interest in Aladin
+!        = NDGENG in the global model
+! NDGUNL : local first row in C+I zone in distributed memory Aladin
+! NDGUXL : local last row in C+I zone in distributed memory Aladin
+! NDLON  : length of a row of latitude near equator
+! NDSUR1 : over dimensioning of NDLON for technical reasons (at least 2)
+! NDLSUR = NDLON+NDSUR1
+! NDLSM  = NDLSUR-1
+! NDLUNG : first meridian of the area of interest in Aladin
+!        = 1 in the global model
+! NDLUXG : last  meridian of the area of interest in Aladin
+!        = NDLON in the global model
+! NDLUNL : local first meridian in C+I zone in distributed memory Aladin
+! NDLUXL : local last meridian in C+I zone in distributed memory Aladin
+! NPROMA : working dimension for grid-point computations
+! NPROMB : working dimension for a 2nd call to DMN physics
+! NPROMC : working dimension for a 2nd call to DMN physics
+! NPROME : working dimension for ECMWF physics computations
+! NPROMM : working dimension for DMN   physics computations
+! NPROMNH: working dimension for non hydrostatic
+! NPROMNH_GWADV: working dimension for non hydrostatic (arrays used only
+!          when LGWADV=T)
+! NPROMP : working dimension for physics computations
+! NPROMV : working dimension for variational gridpoint fields
+! NPROMVC: working dimension for some additional grid-point arrays
+!          used only when "lvercor=.T.".
+! NGPBLKS: number of grid point NPROMA-blocks.
+! LOPTPROMA : .TRUE. NPROMA will be optimised
+!           : .FALSE. NPROMA will not be optimised (forced by
+!           : negative NPROMA in namelist)
+
+INTEGER(KIND=JPIM) :: NDGLG
+INTEGER(KIND=JPIM) :: NDGLL
+INTEGER(KIND=JPIM) :: NDGNH
+INTEGER(KIND=JPIM) :: NDGSUR
+INTEGER(KIND=JPIM) :: NDGSAG
+INTEGER(KIND=JPIM) :: NDGSAL
+INTEGER(KIND=JPIM) :: NDGSAH
+INTEGER(KIND=JPIM) :: NDGSAFPH
+INTEGER(KIND=JPIM) :: NDGENG
+INTEGER(KIND=JPIM) :: NDGENL
+INTEGER(KIND=JPIM) :: NDGENH
+INTEGER(KIND=JPIM) :: NDGENFPH
+INTEGER(KIND=JPIM) :: NDGUNG
+INTEGER(KIND=JPIM) :: NDGUXG
+INTEGER(KIND=JPIM) :: NDGUNL
+INTEGER(KIND=JPIM) :: NDGUXL
+INTEGER(KIND=JPIM) :: NDLON
+INTEGER(KIND=JPIM) :: NDSUR1
+INTEGER(KIND=JPIM) :: NDLSUR
+INTEGER(KIND=JPIM) :: NDLSM
+INTEGER(KIND=JPIM) :: NDLUNG
+INTEGER(KIND=JPIM) :: NDLUXG
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDLUNL(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDLUXL(:,:)
+INTEGER(KIND=JPIM) :: NPROMA
+INTEGER(KIND=JPIM) :: NPROMB
+INTEGER(KIND=JPIM) :: NPROMC
+INTEGER(KIND=JPIM) :: NPROME
+INTEGER(KIND=JPIM) :: NPROMM
+INTEGER(KIND=JPIM) :: NPROMNH
+INTEGER(KIND=JPIM) :: NPROMNH_GWADV 
+INTEGER(KIND=JPIM) :: NPROMP
+INTEGER(KIND=JPIM) :: NPROMV
+INTEGER(KIND=JPIM) :: NPROMVC
+INTEGER(KIND=JPIM) :: NGPBLKS
+LOGICAL :: LOPTPROMA
+
+! === VERTICAL RESOLUTION =====================================================
+
+! NFLEVG : number of levels in grid point space
+! NFLEVL : number of levels in Fourier and Legendre space
+! NFLEVLMX : maximum NFLEVL among all PEs
+! NFLSUR : over dimensioning of NFLEVL for technical reasons, always odd
+! NFLSUL : number of additional levels for semi-lagrangian
+! NFLSA  = 1    -NFLSUL
+! NFLEN  = NFLEVG+NFLSUL
+
+INTEGER(KIND=JPIM) :: NFLEVL
+INTEGER(KIND=JPIM) :: NFLEVLMX
+INTEGER(KIND=JPIM) :: NFLEVG
+INTEGER(KIND=JPIM) :: NFLSUR
+INTEGER(KIND=JPIM) :: NFLSUL
+INTEGER(KIND=JPIM) :: NFLSA
+INTEGER(KIND=JPIM) :: NFLEN
+
+! === NUMBER OF FIELDS ========================================================
+
+! NFTHER : number of spectral thermodynamic variables
+! NFAUX  : number of auxillary variables in t+dt array
+! NF3D   = number of 3D fields in the state of the model
+! NFD2D  : number of 2D fields in the dynamics
+! NFC2D  : number of 2D fields in the boundaries
+! NPPM   : Number of interpolation methods in post-processing
+! NFPPYX : Maximum number of modern dyn.met. post-processed fields
+! NFPPYE : as long as SUPP is called after SUDIM/SUALLO,
+!            NFPPYE = 1, if LMDYPP = .FALSE. (after SUALLO)
+!            NFPPYE = NFPPYX if LMDYPP = .TRUE., but it could become more flex
+! NFGPNH : number of (3D) fields in non hydrostatic gridpoint
+! NS3D   : number of 3D fields in spectral space
+! NS2D   : number of 2D fields in spectral space
+! NS1D   : number of 1D fields in spectral space (for Aladin consistency -CF)
+! NSAUX  : dimension of auxillary array == NFAUX
+
+INTEGER(KIND=JPIM) :: NFTHER
+INTEGER(KIND=JPIM) :: NFAUX
+INTEGER(KIND=JPIM) :: NF3D
+INTEGER(KIND=JPIM) :: NFD2D
+INTEGER(KIND=JPIM) :: NFC2D
+INTEGER(KIND=JPIM) :: NPPM
+INTEGER(KIND=JPIM) :: NFPPYX
+INTEGER(KIND=JPIM) :: NFPPYE
+INTEGER(KIND=JPIM) :: NFGPNH
+INTEGER(KIND=JPIM) :: NS3D
+INTEGER(KIND=JPIM) :: NS2D
+INTEGER(KIND=JPIM) :: NS1D
+INTEGER(KIND=JPIM) :: NSAUX
+
+! === GRID POINT ARRAYS =======================================================
+
+! LVOR  : controls the allocation of vorticity
+! LADER : controls the allocation of vor div and derivatives
+! LUVDER: controls the allocation of derivatives for u and v
+! LSPT  : .TRUE. if temperature variable as spectral field
+
+LOGICAL :: LVOR
+LOGICAL :: LADER
+LOGICAL :: LUVDER
+LOGICAL :: LSPT
+
+! === SPECTRAL SPACE ==========================================================
+
+! NSMAX  : truncation order
+! NMSMAX  : truncation order in longitude
+! NVARMAX: truncation order in 3d-var distributed direction
+!          this is a priori longitude, so that nvarmax = nsmax in Arp/IFS
+!          and nvarmax = nmsmax in Aladin
+! NSEFRE : number of degrees of freedom in the spectral space
+! NSPECG : number of complex spectral coefficients (global)
+! NSPEC2G = 2*NSPECG
+! NSPEC  : number of complex spectral coefficients (local, i.e. on this PE)
+! NSPEC2 = 2*NSPEC
+! NSPEC2MX : maximun NSPEC2 among all PEs
+! NSMIN  : lower troncature for configurations 911 and 912.
+! NTCMAX : truncation order for transmission coefficients.
+! NMTCMAX: truncation order for transmission coefficients in longitude.
+! NCMAX  : upper trunc. order for dilatation matrices (used in TRAGEO, fullpos)
+! NCPEC  : number of complex spectral coefficients for truncation NCMAX (local)
+! NCPEC2 : 2*NCPEC, where NCPEC (local)
+! NXMAX  : truncation order for NMI
+! NXPECG : number of complex spectral coefficients for NMI (global)
+! NXPEC  : number of complex spectral coefficients for NMI (local)
+! NTMAX  : truncation order for tendencies (on n, m<= NSMAX)
+! NTPEC2 : 2*'number of complex spectral coefficients' for tendencies
+
+INTEGER(KIND=JPIM) :: NSMAX
+INTEGER(KIND=JPIM) :: NMSMAX
+INTEGER(KIND=JPIM) :: NVARMAX
+INTEGER(KIND=JPIM) :: NSEFRE
+INTEGER(KIND=JPIM) :: NSPECG
+INTEGER(KIND=JPIM) :: NSPEC2G
+INTEGER(KIND=JPIM) :: NSPEC
+INTEGER(KIND=JPIM) :: NSPEC2
+INTEGER(KIND=JPIM) :: NSPEC2MX
+INTEGER(KIND=JPIM) :: NSMIN
+INTEGER(KIND=JPIM) :: NTCMAX
+INTEGER(KIND=JPIM) :: NMTCMAX
+INTEGER(KIND=JPIM) :: NCMAX
+INTEGER(KIND=JPIM) :: NCPEC
+INTEGER(KIND=JPIM) :: NCPEC2
+INTEGER(KIND=JPIM) :: NXMAX
+INTEGER(KIND=JPIM) :: NXPECG
+INTEGER(KIND=JPIM) :: NXPEC
+INTEGER(KIND=JPIM) :: NTMAX
+INTEGER(KIND=JPIM) :: NTPEC2
+
+! === DISTRIBUTED MEMORY DIMENSIONS ===========================================
+
+! NUMP  :  Number of spectral waves handled by this processor
+! NUMXP :  Same as NUMP, but related to NXMAX
+! NUMCP :  Same as NUMP, but related to NCMAX
+! NUMTP :  Same as NUMP, but related to NTMAX
+
+INTEGER(KIND=JPIM) :: NUMP
+INTEGER(KIND=JPIM) :: NUMXP
+INTEGER(KIND=JPIM) :: NUMCP
+INTEGER(KIND=JPIM) :: NUMTP
+
+! === OTHER QUANTITIES ========================================================
+
+! NRLEVX: dimension of NVAUTF in YOMGEM.
+! NUNDEFLD: index value for unused/undefined fields (default=-9999)
+!         : should be set to 1 when using compiler subscript checking
+
+INTEGER(KIND=JPIM) :: NRLEVX
+INTEGER(KIND=JPIM) :: NUNDEFLD
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(lader,loptproma,lspt,luvder,lvor,ncmax,ncpec,ncpec2,ndgenfph)
+!$OMP THREADPRIVATE(ndgeng,ndgenh,ndgenl,ndglg,ndgll,ndgnh,ndgsafph,ndgsag,ndgsah)
+!$OMP THREADPRIVATE(ndgsal,ndgsur,ndgung,ndgunl,ndguxg,ndguxl,ndlon,ndlsm,ndlsur)
+!$OMP THREADPRIVATE(ndlung,ndluxg,ndsur1,nf3d,nfaux,nfc2d,nfd2d,nfgpnh,nflen,nflevg)
+!$OMP THREADPRIVATE(nflevl,nflevlmx,nflsa,nflsul,nflsur,nfppye,nfppyx,nfther,ngpblks)
+!$OMP THREADPRIVATE(nmsmax,nmtcmax,nppm,nproma,npromb,npromc,nprome,npromm,npromnh)
+!$OMP THREADPRIVATE(npromnh_gwadv,npromp,npromv,npromvc,nrlevx,ns1d,ns2d,ns3d,nsaux)
+!$OMP THREADPRIVATE(nsefre,nsmax,nsmin,nspec,nspec2,nspec2g,nspec2mx,nspecg,ntcmax,ntmax)
+!$OMP THREADPRIVATE(ntpec2,numcp,nump,numtp,numxp,nundefld,nvarmax,nxmax,nxpec,nxpecg)
+!$OMP THREADPRIVATE(ndlunl,ndluxl)
+END MODULE YOMDIM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdphy.F90	(revision 3330)
@@ -0,0 +1,72 @@
+MODULE YOMDPHY
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!     DIMENSION DES TABLEAUX POINT DE GRILLE PHYSIQUE
+
+!     NVXP : number of variables in the generic EXTRP.
+!     NVXP2: number of variables in the generic XTRP2.
+
+!     NCXP : number of levels in EXTRP
+!     NCSI : number of sea-ice levels
+!     NCSNEC: number of snow levels in EC physics (specific for ECMWF) 
+!     NTILES: number of surface tiles
+
+!     NVEXTR : number of variables in the generic VEXTRA (extra-fields)
+!     NVEXTRDYN : number of extra-fields comming from the dynamics
+!     NVXTR2 : number of variables in the generic VEXTR2
+
+!     NCEXTR : number of levels in the generic VEXTRA
+
+!     NTSL : nombre de types de sols nus.
+!     NTSV : nombre de types de vegetations.
+!     NTOZ1D: 1 si representation 1D des NVCLIS variables , 0 sinon
+!     NTOZ2D: 1 si representation 2D des NVCLIS variables , 0 sinon
+!     NTOZ3D: 1 si representation 3D des NVCLIS variables , 0 sinon
+!     NLOA : nombre de longueurs d'ondes pour le spectre d'albedo.
+!     NLOE : nombre de longueurs d'ondes pour le spectre d'emissivite.
+!     NTSSG : number of surface temperatures for subgrid diagnostics
+
+!     NCHAC: nombre de champs a accumuler.
+!     NCHIN: nombre de champs instantanes.
+!     NSIRA: nombre d'intervales spectraux pour les diagnostiques de
+!            flux radiatif a p=0 et p=ps.
+
+!     NVTEND: number of tendencies used in 2.order scheme
+
+!     LTPROF: .T. if more than 1 vertical layer in deep soil
+
+INTEGER(KIND=JPIM) :: NVXP
+INTEGER(KIND=JPIM) :: NVXP2
+INTEGER(KIND=JPIM) :: NCXP
+INTEGER(KIND=JPIM) :: NCSI
+INTEGER(KIND=JPIM) :: NCSNEC
+INTEGER(KIND=JPIM) :: NTILES
+INTEGER(KIND=JPIM) :: NTSL
+INTEGER(KIND=JPIM) :: NVEXTR
+INTEGER(KIND=JPIM) :: NVEXTRDYN
+INTEGER(KIND=JPIM) :: NVXTR2
+INTEGER(KIND=JPIM) :: NCEXTR
+INTEGER(KIND=JPIM) :: NVCLIS
+INTEGER(KIND=JPIM) :: NTOZ1D
+INTEGER(KIND=JPIM) :: NTOZ2D
+INTEGER(KIND=JPIM) :: NTOZ3D
+INTEGER(KIND=JPIM) :: NTSSG
+INTEGER(KIND=JPIM) :: NTVG
+INTEGER(KIND=JPIM) :: NLOA
+INTEGER(KIND=JPIM) :: NLOE
+INTEGER(KIND=JPIM) :: NCHAC
+INTEGER(KIND=JPIM) :: NCHIN
+INTEGER(KIND=JPIM) :: NSIRA
+INTEGER(KIND=JPIM) :: NVTEND
+LOGICAL            :: LTPROF
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(ltprof,ncextr,nchac,nchin,ncsi,ncsnec,ncxp,nloa,nloe,nsira,ntiles,ntoz1d,ntoz2d,ntoz3d,ntsl,ntssg)
+!$OMP THREADPRIVATE(ntvg,nvclis,nvextr,nvextrdyn,nvtend,nvxp,nvxp2,nvxtr2)
+END MODULE YOMDPHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdyn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdyn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomdyn.F90	(revision 3330)
@@ -0,0 +1,580 @@
+MODULE YOMDYN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -------------------------------------------------------------------------
+
+!*    Control variables for the DYNAMICS
+
+!=========== TIME STEPPING ====================================================
+
+! TSTEP   : length of the timestep in seconds
+! TDT     : For leap-frog scheme:
+!            2*TSTEP except at the first time step where it is TSTEP
+!           For a two-time level scheme (semi-Lagrangian), TDT is always TSTEP.
+! REPS1   : timefiltering constant applied to t-1
+! REPS2   : timefiltering constant applied to t+1
+! REPSM1  : timefiltering constant applied to t-1 (moisture vars.)
+! REPSM2  : timefiltering constant applied to t+1 (moisture vars.)
+! REPSP1  : timefiltering constant applied to t-1 for all surface fields
+
+REAL(KIND=JPRB) :: TSTEP
+REAL(KIND=JPRB) :: TDT
+REAL(KIND=JPRB) :: REPS1
+REAL(KIND=JPRB) :: REPS2
+REAL(KIND=JPRB) :: REPSM1
+REAL(KIND=JPRB) :: REPSM2
+REAL(KIND=JPRB) :: REPSP1
+
+!====== MAIN HORIZONTAL DIFFUSION SCHEME ======================================
+
+! * CHARACTERISTIC TIMES:
+! HDIRVOR  : for diffusion of vorticity.
+! HDIRDIV  : for diffusion of divergence.
+! HDIRT    : for diffusion of temperature.
+! HDIRQ    : for diffusion of humidity.
+! HDIRO3   : for diffusion of ozone.
+! HDIRPD   : for diffusion of pressure departure (non hydrostatic).
+! HDIRVD   : for diffusion of vertical divergence (non hydrostatic).
+! HDIRSP   : for diffusion of surface pressure.
+
+! * REVERSE OF CHARACTERISTIC TIMES:
+! HRDIRVOR  : for diffusion of vorticity.
+! HRDIRDIV  : for diffusion of divergence.
+! HRDIRT    : for diffusion of temperature.
+! HRDIRQ    : for diffusion of humidity.
+! HRDIRO3   : for diffusion of ozone.
+! HRDIRPD   : for diffusion of pressure departure (non hydrostatic).
+! HRDIRVD   : for diffusion of vertical divergence (non hydrostatic).
+! HRDIRSP   : for diffusion of surface pressure.
+
+! RRDXTAU  : overall intensity of HD 
+! RDAMPVOR : local enhancing coefficient for diffusion of vorticity.
+! RDAMPDIV : local enhancing coefficient for diffusion of divergence.
+! RDAMPT   : local enhancing coefficient for diffusion of temperature.
+! RDAMPQ   : local enhancing coefficient for diffusion of humidity.
+! RDAMPO3  : local enhancing coefficient for diffusion of ozone.
+! RDAMPPD  : local enhancing coefficient for diffusion of pressure departure.
+! RDAMPVD  : local enhancing coefficient for diffusion of vertical divergence.
+! RDAMPSP  : local enhancing coefficient for diffusion of surface pressure.
+! LREPHD   : key to reproduce HD consistency:
+!            if TRUE the consistency of HDIR[x] is ensured, while namelist
+!                    values of RRDAMP[x] can be slightly modified;
+!            if FALSE the HD is driven exactly by RRDXTAU and RRDAMP[x]
+!                     but consistency of HDIR[x] is not guarranted
+! LNEWHD   : only for ECMWF: "new" or "historical" values of HD set-up
+
+! REXPDH   : order of the diffusion 
+!            (exponent for the wavenumber dependency).
+! FRANDH   : threshold for the wavenumber dependency.
+! SLEVDH   : first threshold for the pressure dependency scaled by VP00.
+! SLEVDH2  : second threshold for the pressure dependency scaled by VP00.
+! SLEVDH3  : third threshold for the pressure dependency scaled by VP00
+!            (used to bound the vertical increase of diffusion in the
+!            upper stratosphere).
+! NSREFDH  : threshold for the truncation dependency.
+
+! * LEVEL AND WAVENUMBER DEPENDENT INVERSE CHARACTERISTIC TIMES:
+! RDIVOR   : for diffusion of vorticity.
+! RDIDIV   : for diffusion of divergence.
+! RDITG    : for diffusion of temperature.
+! RDIGFL   : for diffusion of GFL vars.
+! RDIPD    : for diffusion of pressure departure (NH).
+! RDIVD    : for diffusion of vertical divergence (NH).
+! RDISP    : for diffusion of surface pressure.
+
+! GMR      : coefficients for spectral multiplication by GM.
+! RDHI     : main horizontal diffusion operator used for stretched ARPEGE.
+
+! LSTRHD   : .T.: main horizontal diffusion operator adapted to stretched ARP.
+! HDTIME_STRHD: TDT (if not, the main horizontal diffusion operator
+!            used for stretched ARPEGE is recomputed).
+
+REAL(KIND=JPRB) :: HDIRVOR
+REAL(KIND=JPRB) :: HDIRDIV
+REAL(KIND=JPRB) :: HDIRT
+REAL(KIND=JPRB) :: HDIRQ
+REAL(KIND=JPRB) :: HDIRO3
+REAL(KIND=JPRB) :: HDIRPD
+REAL(KIND=JPRB) :: HDIRVD
+REAL(KIND=JPRB) :: HDIRSP
+REAL(KIND=JPRB) :: HRDIRVOR
+REAL(KIND=JPRB) :: HRDIRDIV
+REAL(KIND=JPRB) :: HRDIRT
+REAL(KIND=JPRB) :: HRDIRQ
+REAL(KIND=JPRB) :: HRDIRO3
+REAL(KIND=JPRB) :: HRDIRPD
+REAL(KIND=JPRB) :: HRDIRVD
+REAL(KIND=JPRB) :: HRDIRSP
+REAL(KIND=JPRB) :: RRDXTAU
+REAL(KIND=JPRB) :: RDAMPVOR
+REAL(KIND=JPRB) :: RDAMPDIV
+REAL(KIND=JPRB) :: RDAMPT
+REAL(KIND=JPRB) :: RDAMPQ
+REAL(KIND=JPRB) :: RDAMPO3
+REAL(KIND=JPRB) :: RDAMPPD
+REAL(KIND=JPRB) :: RDAMPVD
+REAL(KIND=JPRB) :: RDAMPSP
+LOGICAL :: LREPHD
+LOGICAL :: LNEWHD
+REAL(KIND=JPRB) :: REXPDH
+REAL(KIND=JPRB) :: FRANDH
+REAL(KIND=JPRB) :: SLEVDH
+REAL(KIND=JPRB) :: SLEVDH2
+REAL(KIND=JPRB) :: SLEVDH3
+INTEGER(KIND=JPIM) :: NSREFDH
+REAL(KIND=JPRB),ALLOCATABLE:: RDIVOR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIDIV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDITG(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIGFL(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIPD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIVD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDISP(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GMR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDHI(:,:,:)
+LOGICAL :: LSTRHD
+REAL(KIND=JPRB) :: HDTIME_STRHD
+
+!====== SEMI-LAGRANGIAN HORIZONTAL DIFFUSION SCHEME (SLHD) ====================
+
+! * FOR SLHD INTERPOLATIONS:
+! SLHDA   :    Scaling factor of the deformation in f(d) function
+!              (including the model resolution correction)
+! SLHDA0  :    Namelist variable allowing to compute SLHDA
+!              (scaling factor of the deformation in f(d) function
+!              without the model resolution correction)
+! SLHDB   :    Exponent of the deformation in f(d) function
+! SLHDD0  :    Treshold for deformation tensor enhancement
+! ALPHINT :    Limit for the interval of enhancing linear
+!              S-L interpolation by smoother (should be
+!              within the interval <0,0.5>)
+! GAMMAX  :    Maximum value for the Gamma function (the weight
+!              of the smoother for the diffusive S-L interpolator),
+!              including the timestep correction.
+! GAMMAX0 :    Namelist variable allowing to compute GAMMAX
+!              (maximum value for the Gamma function,
+!              without the timestep correction).
+! SLHDKMAX:    Maximum value for the Kappa function
+
+! * THE "HDS" CHARACTERISTIC TIMES (obsolete):
+! HDSRVOR : for diffusion of vorticity.
+! HDSRDIV : for diffusion of divergence.
+! HDSRVD  : for diffusion of vertical divergence (NH).
+
+! * REVERSE OF THE "HDS" CHARACTERISTIC TIMES:
+! HRDSRVOR : for diffusion of vorticity.
+! HRDSRDIV : for diffusion of divergence.
+! HRDSRVD  : for diffusion of vertical divergence (NH).
+
+! RDAMPVORS: local enhancing coefficient for HDS diffusion of vorticity
+! RDAMPDIVS: local enhancing coefficient for HDS diffusion of divergence
+! RDAMPVDS : local enhancing coefficient for HDS diffusion of vert. divergence
+! RDAMPHDS : ratio HRDSRDIV/HRDIRDIV.
+
+! REXPDHS  : order of the diffusion 
+!            (exponent for the wavenumber dependency).
+! SLEVDHS  : first threshold for the pressure dependency scaled by VP00.
+! SLEVDHS2 : second threshold for the pressure dependency scaled by VP00.
+! SDRED    : variable modifying the vertical profile based on SLEVDH
+!            ( g(l) becomes g(l)-SDRED in the "main" diffusion).
+
+! * "HDS" LEVEL AND WAVENUMBER DEPENDENT INVERSE CHARACTERISTIC TIMES:
+! RDSVOR   : for diffusion of vorticity.
+! RDSDIV   : for diffusion of divergence.
+! RDSVD    : for diffusion of NH vertical divergence variable.
+! RDHS     : SLHD additional horizontal diffusion operator used for stretched ARPEGE.
+
+REAL(KIND=JPRB),ALLOCATABLE :: SLHDA(:)
+REAL(KIND=JPRB) :: SLHDA0
+REAL(KIND=JPRB) :: SLHDB
+REAL(KIND=JPRB),ALLOCATABLE :: SLHDD0(:)
+REAL(KIND=JPRB) :: ALPHINT
+REAL(KIND=JPRB) :: GAMMAX
+REAL(KIND=JPRB) :: GAMMAX0
+REAL(KIND=JPRB) :: SLHDKMAX
+REAL(KIND=JPRB) :: HDSRVOR
+REAL(KIND=JPRB) :: HDSRDIV
+REAL(KIND=JPRB) :: HDSRVD
+REAL(KIND=JPRB) :: HRDSRVOR
+REAL(KIND=JPRB) :: HRDSRDIV
+REAL(KIND=JPRB) :: HRDSRVD
+REAL(KIND=JPRB) :: RDAMPVORS
+REAL(KIND=JPRB) :: RDAMPDIVS
+REAL(KIND=JPRB) :: RDAMPVDS
+REAL(KIND=JPRB) :: RDAMPHDS
+REAL(KIND=JPRB) :: REXPDHS
+REAL(KIND=JPRB) :: SLEVDHS
+REAL(KIND=JPRB) :: SLEVDHS2
+REAL(KIND=JPRB) :: SDRED
+REAL(KIND=JPRB),ALLOCATABLE:: RDSVOR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDSDIV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDSVD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDHS(:,:,:)
+
+!================== SPECTRAL ENHANCED DIFFUSION ===============================
+
+! LFREIN  : switch to use spectral "enhanced diffusion" (.TRUE. if active)
+! LFREINF : same as LFREIN but computed only at STEPO 0 of non-linear run
+! LCHDIF  : change diffusion coefficients if LFREINF
+! FLCCRI  : critical value of CFL criterion
+! RFREIN  : constant for spectral "enhanced diffusion".
+
+LOGICAL :: LFREIN
+LOGICAL :: LFREINF
+LOGICAL :: LCHDIF
+REAL(KIND=JPRB) :: FLCCRI
+REAL(KIND=JPRB) :: RFREIN
+
+!======  QUANTITIES TO CHANGE THE VARIABLE IN THE T-EQN =======================
+
+! RCORDIT(NFLEVG)    : correction term at full-levels for diffusion of T.
+! RCORDIH(0:NFLEVG)  : correction term at half-levels for SL T-eqn if RCMSMP0/=0
+! RCORDIF(NFLEVG)    : correction term at full-levels for SL T-eqn if RCMSMP0/=0
+
+REAL(KIND=JPRB),ALLOCATABLE:: RCORDIT(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RCORDIH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RCORDIF(:)
+
+!==== MAXIMUM V-WINDS ALLOWED IN THE SEMI-LAGRANGIAN MODEL ====================
+
+! VMAX1   : if V>VMAX1 (SM) or SQRT(U**2+V**2)>VMAX1 (DM),
+!           warning in the SL scheme.
+! VMAX2   : if V>VMAX2 (SM) or SQRT(U**2+V**2)>VMAX2 (DM),
+!           abort in the SL scheme.
+
+REAL(KIND=JPRB) :: VMAX1
+REAL(KIND=JPRB) :: VMAX2
+
+!================== DELTA FORMULATION =========================================
+
+! NDLNPR : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)).
+!          NDLNPR=1: formulation of delta used in non hydrostatic model,
+!                    i.e. (P(l)-P(l-1))/SQRT(P(l)*P(l-1)).
+
+INTEGER(KIND=JPIM) :: NDLNPR
+
+!==== RAYLEIGH FRICTION =======================================================
+
+! RKRF(NFLEVG) : coefficient of Rayleigh friction
+
+REAL(KIND=JPRB),ALLOCATABLE:: RKRF(:)
+ 
+!==== VERTICAL FILTER ========================================================
+
+! LVERFLT : switch to use filter in the vertical 
+! REPSVFVO: coefficient for 2-del-eta vertical filter on vorticity
+! REPSVFDI: coefficient for 2-del-eta vertical filter on divergence
+! NLEVVF  : vertical filter applied for levs 1 to NLEVVF
+! LVERAVE_HLUV: switch to filter (vertically) the half-level wind
+!               which is computed in routine GPHLUV.
+
+LOGICAL :: LVERFLT
+REAL(KIND=JPRB) :: REPSVFVO
+REAL(KIND=JPRB) :: REPSVFDI
+INTEGER(KIND=JPIM) :: NLEVVF
+LOGICAL :: LVERAVE_HLUV
+
+!==== UPPER RADIATIVE BOUNDARY CONDITION ======================================
+
+! RHYDR0 - upper boundary contition for hydrostatic
+! RTEMRB - tuning temperature for upper radiative b. c. (LRUBC)
+! NRUBC   : control of radiative upper boundary condition :
+!           =0 <=> non computation
+!           =1 <=> computation on the forecast field
+!           =2 <=> computation on the departure of the forecast from the coupling field
+
+REAL(KIND=JPRB) :: RHYDR0
+REAL(KIND=JPRB) :: RTEMRB
+INTEGER(KIND=JPIM) :: NRUBC
+
+!==== SEMI-IMPLICIT SCHEME, VERTICAL EIGENMODES, PC SCHEMES ===================
+
+! LSIDG   : .F.: Semi-implicit-scheme with reduced divergence.
+!           .T.: Semi-implicit scheme with not reduced divergence.
+
+! BETADT  : coefficient for the semi-implicit treatment of divergence,
+!           temperature, continuity (and NH if required) equations.
+! REFGEO  : reference geopotentiel for shallow-water model.
+! SIPR    : reference surface pressure.
+! SITR    : reference temperature.
+! SITRA   : acoustic reference temperature.
+! SITRUB : ref. temper. for SI corr. of temper.(for LRUBC=.T.)
+! SIPRUB : coef. for SI corr. of surf. press.  (for LRUBC=.T.)
+! SITIME  : =TDT (if not, Helmholtz matrices are recomputed in CNT4).
+! SIRPRG  : auxiliary variable for SIGAM,SIGAMA.
+! SIRPRN  : auxiliary variable for SITNU,SITNUA
+! NSITER  : number of iterations to treat the non linear semi-implicit terms
+!           in the non-hydrostatic scheme.
+! NCURRENT_ITER : for LNHDYN with PC scheme - current iteration: 
+!                   0                 - predictor
+!                   1, 2, ..., NSITER - correctors
+! LRHDI_LASTITERPC: T (resp. F): when a PC scheme is activated (for example
+!  LPC_FULL=.T.), the horizontal diffusion is done at the last iteration
+!  of the corrector step (resp. all iterations of the predictor-corrector
+!  scheme).
+
+! * PRESSURES LINKED TO A REFERENCE PRESSURE = SIPR
+! SIALPH(NFLEVG)  : coefficients "alpha" of hydrostatics.
+! SILNPR(NFLEVG)  : Log of ratio of pressures between levels.
+! SIDELP(NFLEVG)  : pressure differences across layers.
+! SIRDEL(NFLEVG)  : their inverse.
+! SITLAH(0:NFLEVG): half-level pressures.
+! SITLAF(NFLEVG)  : full-level pressures.
+! SIDPHI(NFLEVG)  : geopotential differences across layers.
+
+! SCGMAP((NSMAX+1)*(NSMAX+2)/2,3): coefficients for multiplication by (GM**2)
+!                                  in spectral space.
+! SIB(NFLEVG,NFLEVG)   : operator "B" of the SI scheme (DIV ===> DP/DT=B.DIV).
+! SIMO(NFLEVG,NFLEVG)  : eigenvectors of "B".
+! SIMI(NFLEVG,NFLEVG)  : SIMO**-1
+! SIVP(NFLEVG)         : eigenvalues of "B".
+! SIHEG(NFLEVG,(NSMAX+1)*(NSMAX+2)/2,3), SIHEG2(NFLEVG,NSMAX+1,2:3):
+!  Helmholtz operator in case of SI computations with not reduced divergence. 
+! SIHEGB(NFLEVG,(NSMAX+1)*(NSMAX+2)/2,3), SIHEGB2(NFLEVG,NSMAX+1,2:3):
+!  Additional operators in case of LSIDG=T SI computations in the NH model.
+! SITRICA(NSMAX,NFLEVG):   )  coefficients used in tridiagonal solver
+! SITRICB(NSMAX,NFLEVG):   )  for the vertically-coupled semi-implicit
+! SITRICC(NSMAX,NFLEVG):   )  equations (case LSITRIC=T).
+
+! SIRUB(0:NFLEVG)             :  Kernel of the operator
+!                  SIGAM    SITNU
+!           (T,ps) -----> P -----> (T,ps)
+!  0 is for surface pressure (or its log)
+!  1 to NFLEVG is for temperature
+!                               t
+! S2ETA(NFLEVG)              : S S SIRUB, where S is a Laplacian operator
+!    used to eliminate the 2 delta eta wave in the vertical temperature field
+
+! SIFAC : [ 1 - beta**2 (Delta t)**2 C**2 (SITR/SITRA) (LLstar/H**2) ]
+!         for NH model.
+! SIFACI: [ 1 - beta**2 (Delta t)**2 C**2 (SITR/SITRA) (LLstar/H**2) ]**(-1)
+!         for NH model.
+
+! VNORM : constant for new scaling.
+
+LOGICAL :: LSIDG
+REAL(KIND=JPRB) :: BETADT
+REAL(KIND=JPRB) :: REFGEO
+REAL(KIND=JPRB) :: SIPR
+REAL(KIND=JPRB) :: SITR
+REAL(KIND=JPRB) :: SITRA
+REAL(KIND=JPRB) :: SITRUB
+REAL(KIND=JPRB) :: SIPRUB
+REAL(KIND=JPRB) :: SITIME
+REAL(KIND=JPRB) :: SIRPRG
+REAL(KIND=JPRB) :: SIRPRN
+INTEGER(KIND=JPIM) :: NSITER
+INTEGER(KIND=JPIM) :: NCURRENT_ITER
+LOGICAL :: LRHDI_LASTITERPC
+
+REAL(KIND=JPRB),ALLOCATABLE:: SIALPH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SILNPR(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIDELP(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIRDEL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITLAH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITLAF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIDPHI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SCGMAP(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIMO(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIMI(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIVP(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEG(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEG2(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEGB(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEGB2(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITRICA(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITRICB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITRICC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIRUB(:)
+REAL(KIND=JPRB),ALLOCATABLE:: S2ETA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIFAC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIFACI(:,:)
+REAL(KIND=JPRB) :: VNORM
+
+!=========== SEMI-LAGRANGIAN SWITCHES AND WEIGHTS =============================
+!=========== + ADDITIONAL "ADVECTION" SWITCHES ALSO USED IN EULERIAN ========== 
+
+! * Switches NxLAG:
+! NVLAG   :  switch for formulation or discretisation of continuity equation.
+! NWLAG   :  switch for formulation or discretisation of momentum equations.
+! NTLAG   :  switch for formulation or discretisation of temperature equation.
+! NSPDLAG :  switch for formulation or discretisation of P-hat equation.
+! NSVDLAG :  switch for formulation or discretisation of d-hat equation.
+! Remarks about NxLAG:
+! a) possible value for NxLAG:
+!    NxLAG=1 -> interpolation of R.H.S. of the corresponding eq.
+!               to the middle of the trajectory
+!    NxLAG=2 -> averaging of R.H.S. of the corresponding eq.
+!               along the trajectory with the part corresponding
+!               to the departure point added to the t-dt term
+!    NxLAG=3 -> averaging of R.H.S. of the corresponding eq.
+!               along the trajectory with the part corresponding
+!               to the departure point interpolated linearly
+! c) For NVLAG and 2D model: 
+!    NVLAG>0 stands for the conventional formulation of continuity equation.
+!    NVLAG<0 stands for the Lagrangian formulation of continuity equation:
+!     in this case the remark a) is valid for ABS(NVLAG).
+
+! * Research of semi-Lagrangian trajectory:
+! NITMP   : Number of iterations for computing the medium point of the
+!           semi-lagrangian trajectory.
+! VETAON  : VETAON*eta(layer nr 1)+(1.-VETAON)*eta(top) is the lower
+!           value allowed for ETA of the origin/anterior point in
+!           the 3D model.
+! VETAOX  : VETAOX*eta(bottom layer)+(1.-VETAOX)*eta(ground) is the
+!           upper value allowed for ETA of the origin/anterior point
+!           in the 3D model.
+! LSETTLS : type of extrapolations needed in the algorithm of trajectory
+!           research in the 2TL SL scheme.
+!           .F.: linear extrapolations (conventional algorithm).
+!           .T.: stable extrapolations combining spatio-temporal extrapolations.
+! LELTRA  : if TRUE then use "elegant" algorithm to find departure point
+!           (only applicable in 2TL scheme for the shallow-water equations)
+! RW2TLFF : when computing the refined position of the origin point for
+!           Coriolis term, the new wind used is:
+!           0.5*RW2TLFF*(V(F)+V(O)) + (1-RW2TLFF)*V(M)
+
+! * Uncentering factor in the semi-Lagrangian scheme:
+! VESL    : first order uncentering factor applied to non linear and linear
+!           terms.
+! XIDT    : pseudo-second order uncentering factor applied to linear terms,
+!           when an alternative second-order averaging is required in the 
+!           2TL SL scheme.
+! LPC_XIDT: pseudo second order decentering in LPC_FULL PC scheme
+!           key used to allocate special buffer for needed quantities
+!           to transfer informations from predictor to corrector.
+
+! * Switches for use of quasi-monotone interpolations:
+! LQMW    :  Use quasi-monotone three-dimensional interpolations for wind
+! LQMHW   :  Use quasi-monotone interpolations in the horizontal for wind
+! LQMT    :  Use quasi-monotone three-dimensional interpolations for temperature
+! LQMHT   :  Use quasi-monotone interpolations in the horizontal for temperature
+! LQMP    :  Use quasi-monotone three-dimensional interpolations for cont. eq
+! LQMHP   :  Use quasi-monotone interpolations in the horizontal for cont. eq
+! LQMPD   :  Use quasi-monotone three-dimensional interpolations for P-hat eqn.
+! LQMHPD  :  Use quasi-monotone interpolations in the horizontal for P-hat eqn.
+! LQMVD   :  Use quasi-monotone three-dimensional interpolations for d-hat eqn.
+! LQMHVD  :  Use quasi-monotone interpolations in the horizontal for d-hat eqn.
+
+! * Switches for use of spline interpolations:
+! LRSPLINE_W   : Use of spline for wind
+! LRSPLINE_T   : Use of spline for temperature
+! LRSPLINE_P   : Use of spline for continuity equation
+! LRSPLINE_SPD : Use of spline for pressure departure
+! LRSPLINE_SVD : Use of spline for vertical divergence
+
+
+! * Treatment of Coriolis term:
+! LADVF   : if TRUE then use "advective" treatment of Coriolis terms (SL);
+!           in this case 2*Omega*Vec*r is computed analytically.
+! LIMPF   : if TRUE then use implicit treatment of Coriolis terms (EUL and SL)
+! L2TLFF  : if TRUE then use refined treatment of Coriolis term in 2TLSL scheme
+!           (can be currently used also with the 3TL SL vertical interpolating
+!           scheme).
+
+! * Change variable with an Eulerian treatment of orography:
+! RCMSLP0 : Real for tuning of the Tanguay/Ritchie correction in SL continuity
+!           and temperature equations for 3D model.
+
+! * Treatment of MF simplified physics in the semi-Lagrangian TL and AD codes.
+
+! LSL_UNLPHY_F : if TRUE diabatic terms are evaluated at the final point F.
+!                if FALSE diabatic terms are evaluated at the orig point O.
+!                Remark: this variable is involved only in MF physics.
+
+! * Switch for computation of Moisture Convergence for French deep convection scheme
+
+! NCOMP_CVGQ   :  0 ==> Compute the CVGQ in an Eulerian manner, using spectral
+!                       moisture stored in the YQ GFL variable.
+!                       In this case YQ must be spectral and
+!                       horizontal derivatives are used.
+!                 1 ==> Compute the CVGQ in an Eulerian manner, using spectral
+!                       moisture stored in the YCVGQ GFL spectral variable and
+!                       its horizontal derivatives.
+!                       This case is well designed for the case where YQ is
+!                       a purely grid-point GFL.
+!                 2 ==> Compute the CVGQ in a semi-Lagrangian manner
+!                       (Lagrangian tendency - Eulerian tendency), using data
+!                       stored in the YCVGQ grid-point variable.
+!                       This case is well designed for the case where YQ is
+!                       a purely grid-point GFL, and where LSLAG=T.
+! remark ky: better to move this variable in SUDYNA/NAMDYNA/YOMDYNA in the
+!  future to make it available in SUDIM1 when reading NAMGFL.
+
+INTEGER(KIND=JPIM) :: NVLAG
+INTEGER(KIND=JPIM) :: NWLAG
+INTEGER(KIND=JPIM) :: NTLAG
+INTEGER(KIND=JPIM) :: NSPDLAG
+INTEGER(KIND=JPIM) :: NSVDLAG
+INTEGER(KIND=JPIM) :: NITMP
+REAL(KIND=JPRB) :: VETAON
+REAL(KIND=JPRB) :: VETAOX
+LOGICAL :: LSETTLS
+LOGICAL :: LELTRA
+REAL(KIND=JPRB) :: RW2TLFF
+REAL(KIND=JPRB) :: VESL
+REAL(KIND=JPRB) :: XIDT
+LOGICAL ::  LPC_XIDT
+LOGICAL :: LQMW
+LOGICAL :: LQMHW
+LOGICAL :: LQMT
+LOGICAL :: LQMHT
+LOGICAL :: LQMP
+LOGICAL :: LQMHP
+LOGICAL :: LQMPD
+LOGICAL :: LQMHPD
+LOGICAL :: LQMVD
+LOGICAL :: LQMHVD
+LOGICAL :: LADVF
+LOGICAL :: LRSPLINE_W
+LOGICAL :: LRSPLINE_T
+LOGICAL :: LRSPLINE_P
+LOGICAL :: LRSPLINE_SPD
+LOGICAL :: LRSPLINE_SVD
+LOGICAL :: LIMPF
+LOGICAL :: L2TLFF
+REAL(KIND=JPRB) :: RCMSLP0
+LOGICAL :: LSL_UNLPHY_F
+INTEGER(KIND=JPIM) :: NCOMP_CVGQ
+
+!=========== RELAXATION OF THIN LAYER HYPOTHESIS ==============================
+! (for more details about "rs", "Ts" see routines gpvcrs.F90 and gpvcts.F90)
+
+! VCPR    : reference pressure (the pressure layer where "rs=a")
+! VCTR    : reference temperature (VCTR=Ts(pressure=VCPR))
+! VCAK    : coefficient alpha_K used in tha analytic formula of "Ts".
+! LADVFW  : as LADVF but for term "-2 Omega vec W k".
+
+REAL(KIND=JPRB) :: VCPR
+REAL(KIND=JPRB) :: VCTR
+REAL(KIND=JPRB) :: VCAK
+LOGICAL :: LADVFW
+
+!     ------------------------------------------------------------------
+! LDRY_ECMWF     : .TRUE.  = COMPUTE Cp, R AND R/Cp WITHOUT Q REALTED TERMS
+! LDRY_ECMWF     : .FALSE. = COMPUTE Cp, R AND R/Cp WITH    Q REALTED TERMS
+
+LOGICAL :: LDRY_ECMWF
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(alphint,betadt,flccri,frandh,gammax,gammax0,hdirdiv,hdiro3,hdirpd,hdirq,hdirsp,hdirt)
+!$OMP THREADPRIVATE(hdirvd,hdirvor,hdsrdiv,hdsrvd,hdsrvor,hdtime_strhd,hrdirdiv,hrdiro3,hrdirpd,hrdirq)
+!$OMP THREADPRIVATE(hrdirsp,hrdirt,hrdirvd,hrdirvor,hrdsrdiv,hrdsrvd,hrdsrvor,l2tlff,ladvf,ladvfw,lchdif)
+!$OMP THREADPRIVATE(ldry_ecmwf,leltra,lfrein,lfreinf,limpf,lnewhd,lpc_xidt,lqmhp,lqmhpd,lqmht,lqmhvd,lqmhw)
+!$OMP THREADPRIVATE(lqmp,lqmpd,lqmt,lqmvd,lqmw,lrephd,lrhdi_lastiterpc,lrspline_p,lrspline_spd,lrspline_svd)
+!$OMP THREADPRIVATE(lrspline_t,lrspline_w,lsettls,lsidg,lsl_unlphy_f,lstrhd,lverave_hluv,lverflt,ncomp_cvgq)
+!$OMP THREADPRIVATE(ncurrent_iter,ndlnpr,nitmp,nlevvf,nrubc,nsiter,nspdlag,nsrefdh,nsvdlag,ntlag,nvlag,nwlag)
+!$OMP THREADPRIVATE(rcmslp0,rdampdiv,rdampdivs,rdamphds,rdampo3,rdamppd,rdampq,rdampsp,rdampt,rdampvd,rdampvds)
+!$OMP THREADPRIVATE(rdampvor,rdampvors,refgeo,reps1,reps2,repsm1,repsm2,repsp1,repsvfdi,repsvfvo,rexpdh,rexpdhs)
+!$OMP THREADPRIVATE(rfrein,rhydr0,rrdxtau,rtemrb,rw2tlff,sdred,sipr,siprub,sirprg,sirprn,sitime,sitr,sitra,sitrub)
+!$OMP THREADPRIVATE(slevdh,slevdh2,slevdh3,slevdhs,slevdhs2,slhda0,slhdb,slhdkmax,tdt,tstep,vcak,vcpr,vctr,vesl)
+!$OMP THREADPRIVATE(vetaon,vetaox,vmax1,vmax2,vnorm,xidt)
+!$OMP THREADPRIVATE(gmr,rcordif,rcordih,rcordit,rdhi,rdhs,rdidiv,rdigfl,rdipd,rdisp,rditg,rdivd,rdivor,rdsdiv)
+!$OMP THREADPRIVATE(rdsvd,rdsvor,rkrf,s2eta,scgmap,sialph,sib,sidelp,sidphi,sifac,sifaci,siheg,siheg2,sihegb)
+!$OMP THREADPRIVATE(sihegb2,silnpr,simi,simo,sirdel,sirub,sitlaf,sitlah,sitrica,sitricb,sitricc,sivp,slhda,slhdd0)
+END MODULE YOMDYN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomfa.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomfa.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomfa.F90	(revision 3330)
@@ -0,0 +1,75 @@
+MODULE YOMFA
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TYPE_FADS, ONLY : FAD
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    GRIB packing options / Options du compactage GRIB
+
+!     NVGRIB  :  Level of GRIB packing (0:no packing, 1:v0 GRIB, 2:v0mod GRIB)
+!                Niveau de codage GRIB (0:pas de cod., 1:v0 GRIB, 2:v0mod GRIB)
+!     NBITPG  :  Number of bits to code each grid point
+!                Nombre de bits pour coder les points de grille
+!     NBITCS  :  Number of bits to code each spectral coefficient
+!                Nombre de bits pour coder les coefficients spectraux
+!     NSTRON  :  Non-packed sub-truncation
+!                Niveau de sous-troncature non compactee
+!     NPULAP  :  Laplacian power
+!                Puissance de Laplacien
+
+INTEGER(KIND=JPIM) :: NVGRIB
+INTEGER(KIND=JPIM) :: NBITPG
+INTEGER(KIND=JPIM) :: NBITCS
+INTEGER(KIND=JPIM) :: NSTRON
+INTEGER(KIND=JPIM) :: NPULAP
+
+!     Fields descriptors
+
+TYPE(FAD) :: YFAOROG ! Surface geopotential
+TYPE(FAD) :: YFASP   ! Surface pressure
+TYPE(FAD) :: YFAPSI  ! Velocity potential
+TYPE(FAD) :: YFAKHI  ! Stream function
+TYPE(FAD) :: YFAUGEO ! U-Geographical wind
+TYPE(FAD) :: YFAVGEO ! V-Geographical wind
+TYPE(FAD) :: YFAT    ! Temperature
+TYPE(FAD) :: YFAPD   ! Pressure departure (NH)
+TYPE(FAD) :: YFAVD   ! Vertical divergence (NH)
+TYPE(FAD) :: YFAQ    ! Specific humidity
+TYPE(FAD) :: YFAL    ! Liquid water
+TYPE(FAD) :: YFAI    ! Ice
+TYPE(FAD) :: YFAS    ! Snow
+TYPE(FAD) :: YFAR    ! Rain
+TYPE(FAD) :: YFAG    ! Graupels
+TYPE(FAD) :: YFATKE  ! Turbulent Kinetic Energy
+TYPE(FAD) :: YFAO3   ! Ozone mixing ratio
+TYPE(FAD) :: YFACLF  ! Cloud fraction
+TYPE(FAD) :: YFACPF  ! Convective precipitation flux
+TYPE(FAD) :: YFASPF  ! Stratiform precipitation flux
+TYPE(FAD) :: YFACVGQ ! CVGQ for French physics
+TYPE(FAD) :: YFASDSAT ! Standard deviation of the Saturation Depression
+TYPE(FAD) :: YFACVV  ! Convective Vertical Velocity
+
+! Pronostic convection variables
+TYPE(FAD) :: YFAUOM  ! Updraught vertic velocity
+TYPE(FAD) :: YFAUAL  ! Updraught mesh fraction
+TYPE(FAD) :: YFADOM  ! Downdraught vertic velocity
+TYPE(FAD) :: YFADAL  ! Downdraught mesh fraction
+TYPE(FAD) :: YFAUEN  ! Updraught entrainment
+TYPE(FAD) :: YFAUNEBH! Pseudo Hist Conv cloud fraction
+
+! Filtered surface ln Ps for monitoring coupling updates:
+TYPE(FAD) :: YFAFSP1  ,YFAFSP2  ,YFAFSP3  ,YFAFSP4  ,YFAFSP5
+TYPE(FAD) :: YFASRC  ! Second order flux for Arome Turb. Scheme
+TYPE(FAD) :: YFAQVA  ! Total humidity amplitude variation of Q+L+I
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(nbitcs,nbitpg,npulap,nstron,nvgrib,yfaclf,yfacpf,yfacvgq,yfacvv,yfadal,yfadom,yfafsp1)
+!$OMP THREADPRIVATE(yfafsp2,yfafsp3,yfafsp4,yfafsp5,yfag,yfai,yfakhi,yfal,yfao3,yfaorog,yfapd,yfapsi,yfaq)
+!$OMP THREADPRIVATE(yfaqva,yfar,yfas,yfasdsat,yfasp,yfaspf,yfasrc,yfat,yfatke,yfaual,yfauen,yfaugeo)
+!$OMP THREADPRIVATE(yfaunebh,yfauom,yfavd,yfavgeo)
+END MODULE YOMFA
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomfpc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomfpc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomfpc.F90	(revision 3330)
@@ -0,0 +1,254 @@
+MODULE YOMFPC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARFPOS, ONLY : JPOS2DF  ,JPOS3DF  ,JPOS3H   ,JPOS3P   ,JPOS3PV  , &
+ & JPOS3S   ,JPOS3TH  ,JPOSCFU  ,JPOSDIR  ,JPOSLEN  ,JPOSDOM  , &
+ & JPOSSGP  ,JPOSXFU  
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Scientific and technical variables
+
+! === TECHNICAL VARIABLES ===
+
+!     CFPDIR : prefix (path) for the output files
+!     CFPIDEN: identificator of the output files
+!     CFPFMT : format of the output files ('MODEL','GAUSS','LELAM' or 'LALON')
+!     CFPDOM, C1FPDOM : names of the subdomains
+!     CFP3DF, C1FP3DF : names 3D dynamics fields to compute
+!     CFP3DFS,C1FP3DFS: names 3D dynamics fields to compute on model levels
+!     CFP3DFP,C1FP3DFP: names 3D dynamics fields to compute on Pressure levels
+!     CFP3DFH,C1FP3DFH: names 3D dynamics fields to compute on H levels
+!     CFP3DFT,C1FP3DFT: names 3D dynamics fields to compute on THETA levels
+!     CFP3DFV,C1FP3DFV: names 3D dynamics fields to compute on PV levels
+!     CFP2DF, C1FP2DF : names 2D dynamics fields to compute
+!     CFPPHY, C1FPPHY : names of physical fields to be post-processed
+!     CFPCFU, C1FPCFU : names of cumulated fluxes fields to be post-processed
+!     CFPXFU, C1FPXFU : names of instantaneous fluxes fields to be post-proc
+!     Remark: C1FPXXX=CFPXXX(1)//CFPXXX(2)//...//CFPXXX(JPOSXXX)
+!      for XXX=DOM,3DF,2DF,PHY,CFU,XFU.
+
+!     Variables used for ECMWF 
+
+!     MFP3DFS: Gribcodes of  3D dynamics fields to compute on model levels
+!     MFP3DFH: Gribcodes of  3D dynamics fields to compute on H levels
+!     MFP3DFT: Gribcodes of  3D dynamics fields to compute on THETA levels
+!     MFP3DFV: Gribcodes of  3D dynamics fields to compute on PV levels
+!     MFP3DFP: Gribcodes of  3D dynamics fields to compute on P levels
+!     MFP2DF : Gribcodes of  2D dynamics fields to compute
+!     MFPPHY : Gribcodes of  physical fields to processed 
+
+!     RFP3P  : post-processing pressure levels
+!     RFP3H  : post-processing height (above orography) levels
+!     RFP3TH : post-processing potential temperature levels
+!     RFP3PV : post-processing potential vorticity levels
+!     NRFP3S : post-processing eta levels (CONF. 927 only)
+
+!     LFPCNT : control varying output variables according to time step
+!     LTRACEFP: trace for Full-POS
+!     NFPGRIB : level of GRIB coding in output file ARPEGE/ALADIN.
+!               0 : no packing at all
+!               1 : standart GRIB encoding
+!               2 : modified GRIB encoding 
+
+!     NFPDOM : useful dimension of CFPDOM
+!     NFP3DF : useful dimension of CFP3DF
+!     NFP3DFS: useful dimension of CFP3DFS
+!     NFP3DFH: useful dimension of CFP3DFH
+!     NFP3DFT: useful dimension of CFP3DFT
+!     NFP3DFV: useful dimension of CFP3DFV
+!     NFP3DFP: useful dimension of CFP3DFP
+!     NFP2DF : useful dimension of CFP2DF
+!     NFPPHY : useful dimension of CFPPHY
+!     NFPCFU : useful dimension of CFPCFU
+!     NFPXFU : useful dimension of CFPXFU
+!     NFP3P  : useful dimension of RFP3P
+!     NFP3H  : useful dimension of RFP3H
+!     NFP3TH : useful dimension of RFP3TH
+!     NFP3PV : useful dimension of RFP3PV
+!     NFP3S  : useful dimension of NRFP3S
+!     NFPXLEV: max. number of pp. levels
+!     MFP3DYN : max. number of 3D-dynamic fields neeeded for LFPART2
+!     MFP2DYN : max. number of 2D-dynamic fields neeeded for LFPART2
+!     NFPDPHY : maximum number of physical fields
+
+!     The next keys force variables to be primitive for the post-processing :
+!     LFPNHPD : .TRUE. if pp of NH pressure departure
+!     LFPNHVD : .TRUE. if pp of NH vertical divergence
+!     LFPNHVW : .TRUE. if pp of NH true vertical velocity
+
+!     LFPLOSP : .TRUE. = Fill Ps array with Log(Ps)
+!     LFPRH100 : .TRUE. to convert relative humidity in percent
+
+! === SCIENTIFIC VARIABLES ===
+
+!     LFPSPEC: =.T. if pp. dyn. fields are written out as spectral coefficients
+!              =.F. if pp. dyn. fields are written out as grid point values.
+!     LFITP  : =1 if pp. fields on P levels should be fited ; =0 otherwise
+!     LFITT  : =1 if pp. fields on THETA levels should be fited ; =0 otherwise
+!     LFITV  : =1 if pp. fields on PV levels should be fited ; =0 otherwise
+
+!     NFPCLI : usage level for climatology
+!              =0 no climatology
+!              =1 orography and land-sea mask of output only
+!              =2 all available climatological fields of the current month
+!              =3 shifting mean from the climatological fields of the current
+!                 month to the ones of the closest month
+
+!     NFPINDYN : type of interpolations for dynamical fields
+!     NFPINPHY : type of interpolations for  physical fields
+!                4 for bilinear, 12 for quadratic
+
+!     LFPQ   : =.TRUE. if specific humidity is interpolated
+!            : =.FALSE. if relative humidity is interpolated
+!     LASQ   : =.TRUE. if ASQ set to 80% saturation
+
+!     WSXI   : max. surface moisture in input
+!     WDXI   : max. deep soil moisture in input
+!     WSXO   : max. surface moisture in output
+!     WDXO   : max. deep soil moisture in output
+
+!     FPBL   : Critical Thickness of PBL
+!     RFPCORR: Critical orography difference for correcting surface
+!              temperature through standart profile.
+!     RFPCSAB: Critical sand percentage difference for computing relative 
+!              soil moisture in ISBA
+!     RFPCD2 : Critical soil depth difference for computing relative
+!              soil moisture in ISBA
+!     RFPVCAP: Minimum pressure of model level to provide an equatorial
+!              cap in the computation of variables on constant PV surfaces
+!     NFPLNPR : 0 => conventional formulation of (delta P) : ln(P(l)/P(l-1))
+!               1 => formulation of (delta P) used in non hydrostatic model,
+!                    i.e. (P(l)-P(l-1))/SQRT(P(l)*P(l-1))
+!     LFPMOIS: Month allowed for climatology usage : 
+!               .F. => month of the model (forecast)
+!               .T. => month of the file
+!     NFPINCR : Bogussing indicator ; =0 for no bogussing ; =1 for bogussing
+!     NFPLAKE : To overwrite created lakes or islands by specific data :
+!               0 => do not overwrite
+!              -1 => overwrite with rhoughly interpolated data
+!              +1 => overwrite with climatology
+!     NFPCAPE : Kind of computation for CAPE & CIN : 
+!               1 => from bottom model layer
+!               2 => from the most unstable layer
+!               3 => from mto standart height (2 meters) as recomputed values
+!               4 => from mto standart height (2 meters) out of fluxes
+!                    (used for analysis)
+!     NFPSURFEX : Subcontract surface fields to SURFEX
+!               0 => no subcontract
+!               1 => transform native arp/ald surface fields to surfex fields
+!                    and write out by surfex
+!     NFPMASK   : number of masks for the interpolation of surface fields
+!                 0 => no mask
+!                 1 => land-sea mask
+!                 2 => land mask, sea mask
+!     LMOCONVAR  : if true mocon is computed from N-1 level parameters (for varpack use)
+
+CHARACTER (LEN = JPOSDIR) ::  CFPDIR
+CHARACTER (LEN = 5) ::  CFPFMT
+CHARACTER (LEN = 8) ::  CFPIDEN
+CHARACTER (LEN = JPOSLEN) ::  CFPDOM(JPOSDOM)
+CHARACTER (LEN = 12) ::  CFP3DF(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFS(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFP(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFH(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFT(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFV(JPOS3DF)
+CHARACTER (LEN = 16) ::  CFP2DF(JPOS2DF)
+CHARACTER (LEN = 16) ::  CFPPHY(JPOSSGP)
+CHARACTER (LEN = 16) ::  CFPCFU(JPOSCFU)
+CHARACTER (LEN = 16) ::  CFPXFU(JPOSXFU)
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DF
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFS
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFP
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFH
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFT
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFV
+CHARACTER (LEN = 16*JPOS2DF) :: C1FP2DF
+CHARACTER (LEN = 16*JPOSSGP) :: C1FPPHY
+CHARACTER (LEN = 16*JPOSCFU) :: C1FPCFU
+CHARACTER (LEN = 16*JPOSXFU) :: C1FPXFU
+CHARACTER (LEN = JPOSLEN*JPOSDOM) :: C1FPDOM
+INTEGER(KIND=JPIM) :: MFP3DFS(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFP(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFH(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFT(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFV(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP2DF(JPOS2DF)
+INTEGER(KIND=JPIM) :: MFPPHY(JPOSSGP)
+
+REAL(KIND=JPRB) :: RFP3P(JPOS3P)
+REAL(KIND=JPRB) :: RFP3H(JPOS3H)
+REAL(KIND=JPRB) :: RFP3TH(JPOS3TH)
+REAL(KIND=JPRB) :: RFP3PV(JPOS3PV)
+INTEGER(KIND=JPIM) :: NRFP3S(JPOS3S)
+
+INTEGER(KIND=JPIM) :: NFPDOM
+INTEGER(KIND=JPIM) :: NFP3DF
+INTEGER(KIND=JPIM) :: NFP3DFS
+INTEGER(KIND=JPIM) :: NFP3DFP
+INTEGER(KIND=JPIM) :: NFP3DFH
+INTEGER(KIND=JPIM) :: NFP3DFT
+INTEGER(KIND=JPIM) :: NFP3DFV
+INTEGER(KIND=JPIM) :: NFP2DF
+INTEGER(KIND=JPIM) :: NFPPHY
+INTEGER(KIND=JPIM) :: NFPCFU
+INTEGER(KIND=JPIM) :: NFPXFU
+INTEGER(KIND=JPIM) :: NFP3P
+INTEGER(KIND=JPIM) :: NFP3H
+INTEGER(KIND=JPIM) :: NFP3TH
+INTEGER(KIND=JPIM) :: NFP3PV
+INTEGER(KIND=JPIM) :: NFP3S
+INTEGER(KIND=JPIM) :: NFPGRIB
+INTEGER(KIND=JPIM) :: NFPCLI
+INTEGER(KIND=JPIM) :: MFP3DYN
+INTEGER(KIND=JPIM) :: MFP2DYN
+INTEGER(KIND=JPIM) :: NFPLNPR
+INTEGER(KIND=JPIM) :: NFPINCR
+INTEGER(KIND=JPIM) :: NFPINDYN
+INTEGER(KIND=JPIM) :: NFPINPHY
+INTEGER(KIND=JPIM) :: NFPCAPE
+REAL(KIND=JPRB) :: WSXI
+REAL(KIND=JPRB) :: WDXI
+REAL(KIND=JPRB) :: WSXO
+REAL(KIND=JPRB) :: WDXO
+REAL(KIND=JPRB) :: FPBL
+REAL(KIND=JPRB) :: RFPCORR
+REAL(KIND=JPRB) :: RFPCSAB
+REAL(KIND=JPRB) :: RFPCD2
+REAL(KIND=JPRB) :: RFPVCAP
+LOGICAL :: LFPSPEC
+LOGICAL :: LFITP
+LOGICAL :: LFITT
+LOGICAL :: LFITV
+LOGICAL :: LFPQ
+LOGICAL :: LTRACEFP
+LOGICAL :: LFPCNT
+LOGICAL :: LASQ
+LOGICAL :: LFPNHPD
+LOGICAL :: LFPNHVD
+LOGICAL :: LFPNHVW
+LOGICAL :: LFPMOIS
+LOGICAL :: LFPLOSP
+LOGICAL :: LFPRH100
+LOGICAL :: LMOCONVAR
+INTEGER(KIND=JPIM) :: NFPLAKE
+INTEGER(KIND=JPIM) :: NFPXLEV
+INTEGER(KIND=JPIM) :: NFPDPHY
+INTEGER(KIND=JPIM) :: NFPSURFEX
+INTEGER(KIND=JPIM) :: NFPMASK
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(c1fp2df,c1fp3df,c1fp3dfh,c1fp3dfp,c1fp3dfs,c1fp3dft,c1fp3dfv,c1fpcfu,c1fpdom,c1fpphy,c1fpxfu)
+!$OMP THREADPRIVATE(cfp2df,cfp3df,cfp3dfh,cfp3dfp,cfp3dfs,cfp3dft,cfp3dfv,cfpcfu,cfpdir,cfpdom,cfpfmt,cfpiden)
+!$OMP THREADPRIVATE(cfpphy,cfpxfu,fpbl,lasq,lfitp,lfitt,lfitv,lfpcnt,lfplosp,lfpmois,lfpnhpd,lfpnhvd,lfpnhvw)
+!$OMP THREADPRIVATE(lfpq,lfprh100,lfpspec,lmoconvar,ltracefp,mfp2df,mfp2dyn,mfp3dfh,mfp3dfp,mfp3dfs,mfp3dft)
+!$OMP THREADPRIVATE(mfp3dfv,mfp3dyn,mfpphy,nfp2df,nfp3df,nfp3dfh,nfp3dfp,nfp3dfs,nfp3dft,nfp3dfv,nfp3h,nfp3p)
+!$OMP THREADPRIVATE(nfp3pv,nfp3s,nfp3th,nfpcape,nfpcfu,nfpcli,nfpdom,nfpdphy,nfpgrib,nfpincr,nfpindyn,nfpinphy)
+!$OMP THREADPRIVATE(nfplake,nfplnpr,nfpmask,nfpphy,nfpsurfex,nfpxfu,nfpxlev,nrfp3s,rfp3h,rfp3p,rfp3pv,rfp3th)
+!$OMP THREADPRIVATE(rfpcd2,rfpcorr,rfpcsab,rfpvcap,wdxi,wdxo,wsxi,wsxo)
+END MODULE YOMFPC
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgc.F90	(revision 3330)
@@ -0,0 +1,68 @@
+MODULE YOMGC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Grid point boundaries
+
+! RCORI      : Coriolis parameter "f = 2 Omega sin(theta)".
+! RCORIC     : 2 Omega cos(theta).
+! GEMU       : sine of geographic latitude "sin(theta)".
+! GSQM2      : cosine of geographic latitude "cos(theta)".
+! GELAM      : geographic longitude "lambda".
+! GELAT      : geographic latitude "theta".
+! GECLO      : cosine of geographic longitude "cos(lambda)".
+! GESLO      : sine of geographic longitude "sin(lambda)".
+! GM         : mapping factor "M".
+! GOMVRL     : zonal component of vector "2 vec(Omega) wedge a vec(k)".
+! GOMVRM     : meridian component of vector "2 vec(Omega) wedge a vec(k)".
+! GNORDL     : zonal component "gnordl" of unit vector directed towards
+!              the geographic Northern pole.
+! GNORDM     : meridian component "gnordm" of unit vector directed towards
+!              the geographic Northern pole.
+! GNORDLCL   : zonal component of vector "rssavnabla gnordl".
+! GNORDMCL   : zonal component of vector "rssavnabla gnordm".
+! GNORDMCM   : meridian component of vector "rssavnabla gnordm".
+! OROG       : grid-point surface orography "Phi_s".
+! OROGL      : zonal component of "vnabla' Phi_s".
+! OROGM      : zonal component of "vnabla' Phi_s".
+! OROGLL,OROGMM,OROGLM: second-order reduced derivatives of surface orography. 
+! GAW        : Gaussian weight.
+! NGPLAT     : DM-global number of the Gaussian grid latitude.
+! NUNIQUEGP  : pointer array (see computation in sugem2.F90).
+
+REAL(KIND=JPRB),ALLOCATABLE:: RCORI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RCORIC(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GEMU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GSQM2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GELAM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GELAT(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GECLO(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GESLO(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GOMVRL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GOMVRM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDLCL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGLL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGMM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGLM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GAW(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGPLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUNIQUEGP(:)
+
+!      ----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(gaw,geclo,gelam,gelat,gemu,geslo,gm,gnordl,gnordlcl,gnordm,gnordmcl,gnordmcm,gomvrl)
+!$OMP THREADPRIVATE(gomvrm,gsqm2,ngplat,nuniquegp,orog,orogl,orogll,oroglm,orogm,orogmm,rcori,rcoric)
+END MODULE YOMGC
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgem.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgem.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgem.F90	(revision 3330)
@@ -0,0 +1,193 @@
+MODULE YOMGEM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    * Number of grid points
+
+!     NGPTOT   : Total number of grid columns on a PE
+!     NGPTOT_CAP  : Size of grid points arrays for ALADIN
+!     NGPTOTMX : Maximum number of grid columns on any of the PEs
+!     NGPTOTG  : Total number of grid columns on the Globe
+!     NGPTOTL(NPRGPNS,NPRGPEW)  : Total number of grid columns on on eacch PE
+
+INTEGER(KIND=JPIM) :: NGPTOT
+INTEGER(KIND=JPIM) :: NGPTOT_CAP
+INTEGER(KIND=JPIM) :: NGPTOTMX
+INTEGER(KIND=JPIM) :: NGPTOTG
+INTEGER(KIND=JPIM),ALLOCATABLE, TARGET :: NGPTOTL(:,:)
+
+!     ------------------------------------------------------------------
+
+!*    * Defining the transformed sphere
+
+!     RMUCEN : MU OF THE POLE OF STRETCHING
+!     RLOCEN : LONGITUDE OF THE POLE OF STRETCHING
+!     RSTRET : STRETCHING FACTOR
+!     NSTTYP : 1 = POLE OF STRETCHING, POLE OF THE COLLOCATION GRID
+!                 AT THE NORTHERN POLE OF THE REAL EARTH.
+!              2 = THE POLE OF STRETCHING IS ANYWHERE ON THE REAL EARTH
+!             AND ON THE EQUATOR OF THE COLLOCATION GRID ON THE MERIDIAN PI.
+!                  THE EQUATOR OF THE COLLOCATION GRID IS TANGENT
+!             TO A PARALLEL OF THE EARTH.
+
+!     NHTYP  : 0 = regular grid
+!            : 1 = number of points proportional to sqrt(1-mu**2)
+!            : 2 = number of points read on namelist namrgri
+
+!     RNLGINC: increment to get non-linear grid
+
+!     R4JP    inverse de delta(teta) approche a l'ordre 1
+!     RC2P1   RSTRET*RSTRET+1.
+!     RC2M1   RSTRET*RSTRET-1.
+!     RCOR0   COMPONENT (0,0) OF CORIOLIS
+!     RCOR1   COMPONENT (0,1) OF CORIOLIS
+!     RCOR2   COMPONENT (1,1) OF CORIOLIS
+
+!     RCOLON(NGPTOT) cosine of longitude on transformed sphere
+!     RSILON(NGPTOT)   sine        "             "         "
+!     RINDX (NGPTOT) Longitude index
+!     RINDY (NGPTOT) Latitude index
+!     RATATH(NGPTOT) RA*TAN(THETA) on real sphere
+!     RATATX(NGPTOT) Curvature term for LAM (for u eq.)
+
+!     NLOEN(NDGSAG:NDGENG)  : number of active points on a parallel
+!     NLOENG(NDGSAG:NDGENG) : global version of NLOEN
+!     NMEN(NDGSAG:NDGENG)   : associated cut-off wave number
+!     NMENTC(NDGSAG:NDGENG) : same as NMEN but for truncation NTCMAX.
+!     NMENG(NDGSAG:NDGENG)   : global version of NMEN
+!     NDGLU(0:MAX(NSMAX,NMSMAX)) : number of active points in an hemisphere
+!                          for a given wave number m
+!     NSTAGP(NGPTOT)     : start position of latitude data for boundary fields
+!     NESTAGP(NGPTOT)    : start position of latitude data for boundary fields
+!                          in extension zone (ALADIN).
+!     NTSTAGP(NGPTOT)    : start position of latitude data for boundary fields
+!                          in C+I+E zone (ALADIN).
+
+
+!  REFLRHC :  reference length for critical relative humidity (cloud scheme)
+!  REFLKUO, REFLCAPE, REFLRHC are ONLY to be used in the SETUP 
+!  of TEQK and TEQC and TEQH
+
+!  TEQK : ratio between REFLKUO and the model equivalent mesh size
+!  TEQC : ratio between REFLCAPE and the model equivalent mesh size
+!  TEQH : ratio between REFLRHC and the model equivalent mesh size
+
+!  TEQK, TEQC, TEQH are to be used in the PHYSICS.
+
+REAL(KIND=JPRB) :: RMUCEN
+REAL(KIND=JPRB) :: RLOCEN
+REAL(KIND=JPRB) :: RSTRET
+INTEGER(KIND=JPIM) :: NSTTYP
+INTEGER(KIND=JPIM) :: NHTYP
+REAL(KIND=JPRB) :: RNLGINC
+REAL(KIND=JPRB) :: R4JP
+REAL(KIND=JPRB) :: RC2P1
+REAL(KIND=JPRB) :: RC2M1
+REAL(KIND=JPRB) :: RCOR0
+REAL(KIND=JPRB) :: RCOR1
+REAL(KIND=JPRB) :: RCOR2
+REAL(KIND=JPRB),ALLOCATABLE:: RCOLON(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RSILON(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RINDX(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RINDY(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RATATH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RATATX(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLOEN(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NLOENG(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NMEN(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NMENTC(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NMENG(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDGLU(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSTAGP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NESTAGP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NTSTAGP(:)
+
+!     ------------------------------------------------------------------
+
+!*    * Defining the transformed sphere: physics input
+
+REAL(KIND=JPRB) :: REFLRHC
+REAL(KIND=JPRB) :: TEQH
+REAL(KIND=JPRB) :: REFLKUO
+REAL(KIND=JPRB) :: REFLCAPE
+REAL(KIND=JPRB) :: TEQK
+REAL(KIND=JPRB) :: TEQC
+
+!     ------------------------------------------------------------------
+
+!*    * DEFINING THE VERTICAL COORDINATE
+
+!     VP00  : REFERENCE PRESSURE FOR DEFINING VERTICAL COORDINATE
+!     VALH  : (0:NFLEVG)
+!     VBH   : (0:NFLEVG) : B of the vertical coordinate
+!     VETAH : (0:NFLEVG) ; VERTICAL COORDINATE = VALH+VBH
+!     VETAF : (0:NFLEVG+1) ; VERTICAL COORDINATE ON LAYERS.
+!     VCUICO: is used to compute denominators of weights
+!             for semi-Lagrangian vertical interpolations
+!             applied to full-level variables.
+!     VCUICOH:is used to compute denominators of weights 
+!             for semi-Lagrangian vertical interpolations
+!             applied to half-level variables.
+!     VRLEVX: REAL(NRLEVX)
+!     NVAUTF: NVAUTF(VRLEVX*eta) is the number of the layer (full level)
+!             immediately above "eta", and is bounded by 1 and nflevg-1.
+!     NVAUTH: NVAUTH(VRLEVX*eta) is the number of the interlayer (half level)
+!             immediately above "eta", and is bounded by 0 and nflevg-1.
+!     VAH   : (0:NFLEVG) ;  =VALH*VP00
+!     VC    : (NFLEVG)   ;  =VAH(J)*VBH(J-1)-VAH(J-1)*VBH(J)
+!     VDELB : (NFLEVG)   ;  =VBH(J)-VBH(J-1)
+!     VDELA : (NFLEVG)   ;  =VAH(J)-VAH(J-1)
+!     VAF   : like VAH but at full levels.
+!     VBF   : like VBH but at full levels.
+!     VRDETAH: 1/[Delta eta]
+!     TOPPRES: REFERENCE "EVANESCENT" PRESSURE
+!              TOPPRES allows to solve some calculations of singularities
+!              when the top pressure of the model is zero (for ex. in
+!              GPPREF, GPXYB, SUNHBMAT).
+
+!     WE HAVE THEN FOR THE HALF LEVEL PRESSURE : VAH + VBH*(SURFACE PRESSURE)
+
+!     NOTE THAT THE HALF LEVEL VALUE AT K+.5 IS VXXX(K)
+!     (THE FULL LEVEL VALUES ARE FROM 1 TO NFLEVG)
+
+REAL(KIND=JPRB) :: VP00
+REAL(KIND=JPRB),ALLOCATABLE:: VALH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VBH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VETAH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VETAF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VCUICO(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: VCUICOH(:,:)
+REAL(KIND=JPRB) :: VRLEVX
+INTEGER(KIND=JPIM),ALLOCATABLE:: NVAUTF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NVAUTH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VAH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VC(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VDELB(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VDELA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VAF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VBF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VRDETAH(:)
+REAL(KIND=JPRB) :: TOPPRES
+
+!     ------------------------------------------------------------------
+
+!*    * Miscellaneous
+
+!     NBEEGP : ???
+!     NBNEGP : ???
+
+INTEGER(KIND=JPIM) :: NBEEGP
+INTEGER(KIND=JPIM) :: NBNEGP
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(nbeegp,nbnegp,ngptot,ngptot_cap,ngptotg,ngptotmx,nhtyp,nsttyp,r4jp,rc2m1,rc2p1,rcor0)
+!$OMP THREADPRIVATE(rcor1,rcor2,reflcape,reflkuo,reflrhc,rlocen,rmucen,rnlginc,rstret,teqc,teqh,teqk,toppres,vp00,vrlevx)
+!$OMP THREADPRIVATE(ndglu,nestagp,ngptotl,nloen,nloeng,nmen,nmeng,nmentc,nstagp,ntstagp,nvautf,nvauth,ratath,ratatx)
+!$OMP THREADPRIVATE(rcolon,rindx,rindy,rsilon,vaf,vah,valh,vbf,vbh,vc,vcuico,vcuicoh,vdela,vdelb,vetaf,vetah,vrdetah)
+END MODULE YOMGEM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgrb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgrb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgrb.F90	(revision 3330)
@@ -0,0 +1,702 @@
+MODULE YOMGRB
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOM_YGFL  , ONLY : JPGHG, JPGRG , JPTRAC
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    GRIB CODING DESCRIPTORS
+
+! NLOCGRB - ECMWF LOCAL USAGE IDENTIFIER
+! NTOTENS - TOTAL NUMBER OF FORCASTS IN ENSEMBLE
+! NENSFNB - ENSAMBLE FORECAST NUMBER
+! NCALVAL - cal/val number
+! NSTREAM - EXPLICIT STREAM NUMBER (OR ZERO FOR DEFAULT STREAMS TO BE USED)
+! NSYSTEM - FOR USE IN SEASONAL STREAM (DIFFERENT OPERATIONAL SYSTEMS)
+! NMETHOD - FOR USE IN SEASONAL STREAM (DIFFERENT ENSEMBLES)
+! NREFERENCE - FOR USE IN HINDCAST STREAM 
+! NCONSENSUS - FOR MULTI_ANALYSIS STREAM (1 if consensus)
+! NDWD    - FOR MULTI_ANALYSIS STREAM (1 if DWD analysis used)
+! NMFR    - FOR MULTI_ANALYSIS STREAM
+! NNCEP   - FOR MULTI_ANALYSIS STREAM
+! NUKM   - FOR MULTI_ANALYSIS STREAM
+! NSTEPLPP(II) - STEP FOR PREVIOUS P.P. OF VARIABLE WITH GRIB CODE II
+! NSMAXNP - SUBTRUNCTATION FOR COMPLEX PACKING OF SPECTRAL COEFF
+! NBITSSH - NUMBER OF BITS FOR PACKING SPECTRAL COEFF.
+! NBITSGG - NUMBER OF BITS FOR PACKING GRID-POINT DATA
+! NJDIAG  - SENSITIVITY DIAGNOSTIC NUMBER (1=>J1, 2=>J2, 3=>J3, 4=>J4)
+! NJDOMAI - SENSITIVITY DIAGNOSTIC MASK REGION (0=>global, 1=>europe,
+!                                               2=>N.H., 3=>S.H.)
+! NLEG    - current VAREPS leg number (eg 1(2) for the T399(T255) part of a T399-T255 VAREPS)
+
+! NGRB...  - GRIB codes according to ECMWF local Code Table 2
+
+! NGRBTH   -   3 Potential Temperature
+! NGRBALUVP-  15 MODIS albedo UV-vis parallel radiation
+! NGRBALUVD-  16 MODIS albedo UV-vis diffuse radiation
+! NGRBALNIP-  17 MODIS albedo Near-IR parallel radiation
+! NGRBALNID-  18 MODIS albedo Near-IR diffuse radiation
+! NGRBSPARC-  20 surface clear-sky PARadiation
+
+! NGRBCVL  -  27 Low vegetation cover
+! NGRBCVH  -  28 High vegetation cover
+! NGRBTVL  -  29 Low vegetation type
+! NGRBTVH  -  30 High vegetation type
+! NGRBCI   -  31 Sea ice cover
+! NGRBASN  -  32 Snow albedo
+! NGRBRSN  -  33 Snow density
+! NGRBSST  -  34 Sea surface temperature
+! NGRBISTL1-  35 Ice surface temperature layer 1
+! NGRBISTL2-  36 Ice surface temperature layer 2
+! NGRBISTL3-  37 Ice surface temperature layer 3
+! NGRBISTL4-  38 Ice surface temperature layer 4
+! NGRBSWL1 -  39 Volumetric soil water content layer 1
+! NGRBSWL2 -  40 Volumetric soil water content layer 2
+! NGRBSWL3 -  41 Volumetric soil water content layer 3      
+! NGRBSWL4 -  42 Volumetric soil water content layer 4 
+! NGRBES   -  44 Evaporation of snow
+! NGRBSMLT -  45 Snow melt
+! NGRB10FG -  49 gust at 10 m level
+! NGRBLSPF -  50 large scale precipitation fraction 
+
+! NGRBMONT - 053 Montgomery Geopotential
+! NGRBPTHPV- 054 Pressure on Theta and PV surfaces
+
+! NGRBSPAR -  57 surface PARadiation
+! NGRBSUVB -  58 surface UV-B radiation
+! NGRBCAPE -  59 convect.avail.potential energy
+! NGRBPV   -  60 Potential Vorticity
+
+! NGRBSDFOR - 74 standard deviation of a filtered orography
+! NGRBSF6  -  210185 SF6 - anthropogenic emissions
+
+! NGRBTCLW -  78 Total column liquid water
+! NGRBTCIW -  79 Total column ice water
+! NGRBSPD  -  80 !! 80 and 81 extra grib code introduced to 
+! NGRBSVD  -  81 !! introduce extra fields for NH
+
+! NGRB082 to NGRB117 reserved for extra fields. Do not use for permanent post-processed fields
+
+! NGRBTCTRAC(JPTRAC)  - 210184 Total column TRAC2: Sulfure hexaFluoride
+!                     - 210183 Total column TRAC1: Radon
+
+! Codes for 2D and 3D extra fields
+! NGRBMINXTRA  to NGRBMAXXTRA
+
+! NGRBEMIS - 124 Surface Longwave emissivity # has replaced NGRB212
+
+! NGRBAT   - 127 Atmospheric tide
+! NGRBBV   - 128 Budget values
+! NGRBZ    - 129 Geopotential (at the surface orography)
+! NGRBT    - 130 Temperature
+! NGRBU    - 131 U-velocity
+! NGRBV    - 132 V-velocity
+! NGRBQ    - 133 Specific humidity
+! NGRBSP   - 134 Surface pressure
+! NGRBW    - 135 Vertical velocity
+! NGRBTCW  - 136 Total column water
+! NGRBTCWV - 137 Total column water vapour
+! NGRBVO   - 138 Vorticity (relative)
+! NGRBSTL1 - 139 Surface temperature level 1
+! NGRBSD   - 141 Snow depth
+! NGRBLSP  - 142 Large scale precipitation
+! NGRBCP   - 143 Convective precipitation
+! NGRBSF   - 144 Snow fall
+! NGRBBLD  - 145 Boundary layer dissipation
+! NGRBSSHF - 146 Surface sensible heat flux
+! NGRBSLHF - 147 Surface latent heat flux
+! NGRBCHAR - 148 Charnock parameter 
+! NGRB149  - 149 Not used
+! NGRB150  - 150 Not used
+! NGRBMSL  - 151 Mean sea level pressure
+! NGRBLNSP - 152 Log surface pressure
+! NGRB153  - 153 Not used
+! NGRB154  - 154 Not used
+! NGRBD    - 155 Divergence
+! NGRBGH   - 156 Height (geopotential)
+! NGRBR    - 157 Relative humidity
+! NGRBTSP  - 158 Tendency of surface pressure
+! NGRBBLH  - 159 Boundary layer height
+! NGRBSDOR - 160 Standard deviation of orography
+! NGRBISOR - 161 Anisotropy of subgrid scale orography
+! NGRBANOR - 162 Angle of subgrid scale orography
+! NGRBSLOR - 163 Slope of subgrid scale orography
+! NGRBTCC  - 164 Total cloud cover
+! NGRB10U  - 165 10 metre u wind
+! NGRB10V  - 166 10 metre v wind
+! NGRB2T   - 167 2 metre temperature
+! NGRB2D   - 168 2 metre dewpoint temperature
+! NGRBSSRD - 169 Surface solar radiation downwards
+! NGRBSTL2 - 170 Soil temperature level 2
+! NGRBLSM  - 172 Land/sea mask
+! NGRBSR   - 173 Surface roughness
+! NGRBAL   - 174 Albedo
+! NGRBSTRD - 175 Surface thermal radiation downwards
+! NGRBSSR  - 176 Surface solar radiation
+! NGRBSTR  - 177 Surface thermal radiation
+! NGRBTSR  - 178 Top solar radiation
+! NGRBTTR  - 179 Top thermal radiation
+! NGRBEWSS - 180 U-stress
+! NGRBNSSS - 181 V-stress
+! NGRBE    - 182 Evaporation
+! NGRBSTL3 - 183 Soil temperature level 3
+! NGRBCCC  - 185 Convective cloud cocer
+! NGRBLCC  - 186 Low cloud cover
+! NGRBMCC  - 187 Medium cloud cover
+! NGRBHCC  - 188 High cloud cover
+! NGRBSUND - 189 Sunshine duration
+! NGRBEWOV - 190 EW component of sub-grid scale orographic variance
+! NGRBNSOV - 191 NS component of sub-grid scale orographic variance
+! NGRBNWOV - 192 NWSE component of sub-grid scale orographic variance
+! NGRBNEOV - 193 NESW component of sub-grid scale orographic variance
+! NGRBTBT  - 194 Brightness temperature (K)
+! NGRBLGWS - 195 Latitudinal component of gravity wave stress
+! NGRBMGWS - 196 Meridional component of gravity wave stress
+! NGRBGWD  - 197 Gravity wave dissipation
+! NGRBSRC  - 198 Skin reservoir content
+! NGRBVEG  - 199 Percentage of vegetation
+! NGRBVSO  - 200 variance of sub-grid scale orogrophy
+! NGRBMX2T - 201 Maximum temperature at 2m since last post-processing
+! NGRBMN2T - 202 Minimum temperature at 2m since last post-processing
+! NGRBO3   - 203 Ozone mixing ratio (EC prognostic ozone)
+! NGRBPAW  - 204 Precipitation analysis weights
+! NGRBRO   - 205 Runoff
+! NGRBTCO3 - 206 Total column ozone 
+! NGRB207  - 207 Not used
+! NGRBTSRC - 208 Top solar radiation clear sky 
+! NGRBTTRC - 209 Top thermal radiation clear sky
+! NGRBSSRC - 210 Surface solar radiation clear sky
+! NGRBSTRC - 211 Surface thermal radiation clear sky
+
+! NGRBSTINC- 212 TOA incident solar radiation
+
+!-- bunch of codes, confusing in their use ...
+! NGRB214  - 214 PROFPROP.RMAX.EA
+! NGRB215  - 215 SURFPROP.RMAX.EA
+! NGRB216  - 216 RELAPROP.RMAX.EA
+! NGRB217  - 217 PROFRESERV.EAU
+! NGRB218  - 218 INTSURFTEMPERATU
+! NGRB219  - 219 PROFTEMPERATURE
+
+! NGRB221  - 221 Not used
+! NGRB222  - 222 Not used
+! NGRB223  - 223 Not used
+! NGRB224  - 224 used in suafn1
+! NGRB225  - 225 used in suafn1
+! NGRB226  - 226 Not used
+! NGRB227  - 227 used in suafn1
+! NGRBTP   - 228 Total precipitation
+! NGRBIEWS - 229 Intantaneous X-surface stress
+! NGRBINSS - 230 Intantaneous Y-surface stress
+! NGRBISHF - 231 Intantaneous surface heat flux
+! NGRBIE   - 232 Intantaneous moisture flux (evaporation)
+! NGRBLSRH - 234 Logarithm of surface roughness length for heat
+! NGRBSKT  - 235 Skin temperature
+! NGRBSTL4 - 236 Soil temperature level 4
+! NGRBTSN  - 238 Temperature of snow layer
+! NGRBCSF  - 239 Convective snow-fall
+! NGRBLSF  - 240 Large scale snow-fall
+! NGRB241  - 241 Not used
+! NGRB242  - 242 Not used
+! NGRBFAL  - 243 Forecast albedo
+! NGRBFSR  - 244 Forecast surface roughness
+! NGRBFLSR - 245 Forecast logarithm of surface roughness for heat
+! NGRBCLWC - 246 Cloud liquid water content
+! NGRBCIWC - 247 Cloud ice water content
+! NGRBCC   - 248 Cloud cover
+
+
+
+!-- aerosols in Table 210 -------------------------
+! NGRBAERMR01 - 001 aerosol mixing ratio 1
+! NGRBAERMR02 - 002 aerosol mixing ratio 2
+! NGRBAERMR03 - 003 aerosol mixing ratio 3
+! NGRBAERMR04 - 004 aerosol mixing ratio 4
+! NGRBAERMR05 - 005 aerosol mixing ratio 5
+! NGRBAERMR06 - 006 aerosol mixing ratio 6
+! NGRBAERMR07 - 007 aerosol mixing ratio 7
+! NGRBAERMR08 - 008 aerosol mixing ratio 8
+! NGRBAERMR09 - 009 aerosol mixing ratio 9
+! NGRBAERMR10 - 010 aerosol mixing ratio 10
+! NGRBAERMR11 - 011 aerosol mixing ratio 11
+! NGRBAERMR12 - 012 aerosol mixing ratio 12
+! NGRBAERMR13 - 013 aerosol mixing ratio 13
+! NGRBAERMR14 - 014 aerosol mixing ratio 14
+! NGRBAERMR15 - 015 aerosol mixing ratio 15
+! NGRBAERGN01 - 016 aerosol gain acc. 1		2D
+! NGRBAERGN02 - 017 aerosol gain acc. 2		2D
+! NGRBAERGN03 - 018 aerosol gain acc. 3		2D
+! NGRBAERGN04 - 019 aerosol gain acc. 4		2D
+! NGRBAERGN05 - 020 aerosol gain acc. 5		2D
+! NGRBAERGN06 - 021 aerosol gain acc. 6		2D
+! NGRBAERGN07 - 022 aerosol gain acc. 7		2D
+! NGRBAERGN08 - 023 aerosol gain acc. 8		2D
+! NGRBAERGN09 - 024 aerosol gain acc. 9		2D
+! NGRBAERGN10 - 025 aerosol gain acc. 10	2D
+! NGRBAERGN11 - 026 aerosol gain acc. 11	2D
+! NGRBAERGN12 - 027 aerosol gain acc. 12	2D
+! NGRBAERGN13 - 028 aerosol gain acc. 13	2D
+! NGRBAERGN14 - 029 aerosol gain acc. 14	2D
+! NGRBAERGN15 - 030 aerosol gain acc. 15	2D
+! NGRBAERLS01 - 031 aerosol loss acc. 1		2D
+! NGRBAERLS02 - 032 aerosol loss acc. 2		2D
+! NGRBAERLS03 - 033 aerosol loss acc. 3		2D
+! NGRBAERLS04 - 034 aerosol loss acc. 4		2D
+! NGRBAERLS05 - 035 aerosol loss acc. 5		2D
+! NGRBAERLS06 - 036 aerosol loss acc. 6		2D
+! NGRBAERLS07 - 037 aerosol loss acc. 7		2D
+! NGRBAERLS08 - 038 aerosol loss acc. 8		2D
+! NGRBAERLS09 - 039 aerosol loss acc. 9		2D
+! NGRBAERLS10 - 040 aerosol loss acc. 10	2D
+! NGRBAERLS11 - 041 aerosol loss acc. 11	2D
+! NGRBAERLS12 - 042 aerosol loss acc. 12	2D
+! NGRBAERLS13 - 043 aerosol loss acc. 13	2D
+! NGRBAERLS14 - 044 aerosol loss acc. 14	2D
+! NGRBAERLS15 - 045 aerosol loss acc. 15	2D
+! NGRBAERPR   - 046 aerosol precursor mixing ratio 
+! NGRBAERSM   - 047 small aerosols mixing ratio 
+! NGRBAERLG   - 048 large aerosols mixing ratio 
+! NGRBAODPR   - 049 aerosol precursor opt.depth 2D
+! NGRBAODSM   - 050 small aerosols opt. depth	2D
+! NGRBAODLG   - 051 large aerosols opt. depth	2D
+! NGRBAERDEP  - 052 dust emission potential clim2D 
+! NGRBAERLTS  - 053 lifting threshold speed clim2D
+! NGRBAERSCC  - 054 soli clay content       clim2D
+
+!---------------------------------------------------
+
+! NGRBGHG(JPGHG)   - 210061 GHG1: Carbon dioxide
+!                  - 210062 GHG2: Methane
+!                  - 210063 GHG3: Nitrous oxide
+! NGRBTCGHG(JPGHG) - 210064 Total column GHG1: Carbon Dioxide
+!                  - 210065 Total column GHG2: Methane
+!                  - 210066 Total column GHG3: Nitrous Oxide
+
+!---------------------------------------------------
+! NGRBCO2O         - 210067 CO2 - ocean flux
+! NGRBCO2B         - 210068 CO2 - biosphere flux
+! NGRBCO2A         - 210069 CO2 - anthropogenic emissions
+!
+!---------------------------------------------------
+! NGRBGRG(JPGRG)   - 210121 GRG1: Nitrogen dioxide
+!                  - 210122 GRG2: Sulphur dioxide
+!                  - 210123 GRG3: Carbon monoxide
+!                  - 210124 GRG4: Formaldehyde
+
+! NGRBTCGRG(JPGRG) - 210125 Total column GRG1: Nitrogen dioxide
+!                  - 210126 Total column GRG2: Sulphur dioxide
+!                  - 210127 Total column GRG3: Carbon monoxide
+!                  - 210128 Total column GRG4: Formaldehyde
+
+!                  - 210203 GRG5: Ozone
+!                  - 210206 Total column GRG5: GEMS Ozone
+
+! NGRBTRAC(JPTRAC)  - 210182 TRAC2: SF6
+!                   - 210181 TRAC1: Radon
+
+
+! NGRBSP2, NGRBSP3 - Grib codes for fields in SPA2 and SPA3
+! NGRBGP2, NGRBGP3 - Grib codes for grid point fields
+
+INTEGER(KIND=JPIM), PARAMETER :: JPN3SP=10
+INTEGER(KIND=JPIM), PARAMETER :: JPN2SP=4
+
+INTEGER(KIND=JPIM) :: NSEC0(2)
+INTEGER(KIND=JPIM) :: NSEC1(2048)
+INTEGER(KIND=JPIM) :: NSEC2SPP(22)
+INTEGER(KIND=JPIM) :: NSEC2SPM(22)
+INTEGER(KIND=JPIM) :: NSEC3(2)
+INTEGER(KIND=JPIM) :: NSEC4(42)
+INTEGER(KIND=JPIM) :: NGRBS3(0:JPN3SP)
+INTEGER(KIND=JPIM) :: NGRBS2(0:JPN2SP)
+INTEGER(KIND=JPIM) :: NSTEPLPP(255)
+REAL(KIND=JPRB) :: RSEC3(2)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSEC2GG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RSEC2(:)
+
+INTEGER(KIND=JPIM) :: MSEC0(2)
+INTEGER(KIND=JPIM) :: MSEC1(2048)
+INTEGER(KIND=JPIM) :: MSEC2SPP(22)
+INTEGER(KIND=JPIM) :: MSEC2SPM(22)
+INTEGER(KIND=JPIM) :: MSEC3(2)
+INTEGER(KIND=JPIM) :: MSEC4(42)
+INTEGER(KIND=JPIM) :: MGRBS3(0:JPN3SP)
+INTEGER(KIND=JPIM) :: MGRBS2(0:JPN2SP)
+REAL(KIND=JPRB) :: SSEC3(2)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: MSEC2GG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SSEC2(:)
+
+INTEGER(KIND=JPIM), ALLOCATABLE :: NGRBSP2(:), NGRBSP3(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: NGRBGP2(:), NGRBGP3(:)
+
+INTEGER(KIND=JPIM) :: NLOCGRB
+INTEGER(KIND=JPIM) :: NTOTENS
+INTEGER(KIND=JPIM) :: NENSFNB
+INTEGER(KIND=JPIM) :: NCALVAL
+INTEGER(KIND=JPIM) :: NSTREAM
+INTEGER(KIND=JPIM) :: NSYSTEM
+INTEGER(KIND=JPIM) :: NMETHOD
+INTEGER(KIND=JPIM) :: NREFERENCE
+INTEGER(KIND=JPIM) :: NCONSENSUS
+INTEGER(KIND=JPIM) :: NDWD
+INTEGER(KIND=JPIM) :: NMFR
+INTEGER(KIND=JPIM) :: NNCEP
+INTEGER(KIND=JPIM) :: NUKM
+INTEGER(KIND=JPIM) :: NSMAXNP
+INTEGER(KIND=JPIM) :: NBITSSH
+INTEGER(KIND=JPIM) :: NBITSGG
+INTEGER(KIND=JPIM) :: NJDIAG
+INTEGER(KIND=JPIM) :: NJDOMAI
+INTEGER(KIND=JPIM) :: NJITER
+INTEGER(KIND=JPIM) :: MLOCGRB
+INTEGER(KIND=JPIM) :: MTOTENS
+INTEGER(KIND=JPIM) :: MENSFNB
+INTEGER(KIND=JPIM) :: MSMAXNP
+INTEGER(KIND=JPIM) :: MBITSSH
+INTEGER(KIND=JPIM) :: MBITSGG
+INTEGER(KIND=JPIM) :: MJDIAG
+INTEGER(KIND=JPIM) :: MJDOMAI
+INTEGER(KIND=JPIM) :: MJITER
+
+INTEGER(KIND=JPIM) :: NLEG
+
+INTEGER(KIND=JPIM) :: NGRBTH   =  3
+INTEGER(KIND=JPIM) :: NGRBALUVP= 15
+INTEGER(KIND=JPIM) :: NGRBALUVD= 16
+INTEGER(KIND=JPIM) :: NGRBALNIP= 17
+INTEGER(KIND=JPIM) :: NGRBALNID= 18
+INTEGER(KIND=JPIM) :: NGRBSPARC= 20
+INTEGER(KIND=JPIM) :: NGRB21   = 21
+INTEGER(KIND=JPIM) :: NGRB22   = 22
+INTEGER(KIND=JPIM) :: NGRB23   = 23
+INTEGER(KIND=JPIM) :: NGRBCVL  = 27
+INTEGER(KIND=JPIM) :: NGRBCVH  = 28
+INTEGER(KIND=JPIM) :: NGRBTVL  = 29
+INTEGER(KIND=JPIM) :: NGRBTVH  = 30
+INTEGER(KIND=JPIM) :: NGRBCI   = 31
+INTEGER(KIND=JPIM) :: NGRBASN  = 32
+INTEGER(KIND=JPIM) :: NGRBRSN  = 33
+INTEGER(KIND=JPIM) :: NGRBSST  = 34
+INTEGER(KIND=JPIM) :: NGRBISTL1= 35
+INTEGER(KIND=JPIM) :: NGRBISTL2= 36
+INTEGER(KIND=JPIM) :: NGRBISTL3= 37
+INTEGER(KIND=JPIM) :: NGRBISTL4= 38
+INTEGER(KIND=JPIM) :: NGRBSWL1 = 39
+INTEGER(KIND=JPIM) :: NGRBSWL2 = 40
+INTEGER(KIND=JPIM) :: NGRBSWL3 = 41
+INTEGER(KIND=JPIM) :: NGRBSWL4 = 42
+INTEGER(KIND=JPIM) :: NGRBES   = 44
+INTEGER(KIND=JPIM) :: NGRBSMLT = 45
+INTEGER(KIND=JPIM) :: NGRB10FG = 49
+INTEGER(KIND=JPIM) :: NGRBLSPF = 50
+
+INTEGER(KIND=JPIM) :: NGRBMONT = 53
+INTEGER(KIND=JPIM) :: NGRBPTHPV= 54
+
+INTEGER(KIND=JPIM) :: NGRBSPAR = 57
+INTEGER(KIND=JPIM) :: NGRBSUVB = 58
+INTEGER(KIND=JPIM) :: NGRBCAPE = 59
+INTEGER(KIND=JPIM) :: NGRBPV   = 60
+
+INTEGER(KIND=JPIM) :: NGRBSDFOR= 74
+INTEGER(KIND=JPIM) :: NGRBTCLW = 78
+INTEGER(KIND=JPIM) :: NGRBTCIW = 79
+! LARPEGE
+INTEGER(KIND=JPIM) :: NGRBSPD = 80
+INTEGER(KIND=JPIM) :: NGRBSVD = 81
+! LECMWF
+INTEGER(KIND=JPIM) :: NGRB080 = 80
+INTEGER(KIND=JPIM) :: NGRB081 = 81
+
+INTEGER(KIND=JPIM) :: NGRBSF6  = 210185
+INTEGER(KIND=JPIM) :: NGRBMINXTRA  = 082
+INTEGER(KIND=JPIM) :: NGRBMAXXTRA  = 117
+
+INTEGER(KIND=JPIM) :: NGRB082  = 082
+INTEGER(KIND=JPIM) :: NGRB083  = 083
+INTEGER(KIND=JPIM) :: NGRB084  = 084
+INTEGER(KIND=JPIM) :: NGRB085  = 085
+INTEGER(KIND=JPIM) :: NGRB086  = 086
+INTEGER(KIND=JPIM) :: NGRB087  = 087
+INTEGER(KIND=JPIM) :: NGRB088  = 088
+INTEGER(KIND=JPIM) :: NGRB089  = 089
+INTEGER(KIND=JPIM) :: NGRB090  = 090
+INTEGER(KIND=JPIM) :: NGRB091  = 091
+INTEGER(KIND=JPIM) :: NGRB092  = 092
+INTEGER(KIND=JPIM) :: NGRB093  = 093
+INTEGER(KIND=JPIM) :: NGRB094  = 094
+INTEGER(KIND=JPIM) :: NGRB095  = 095
+INTEGER(KIND=JPIM) :: NGRB096  = 096
+INTEGER(KIND=JPIM) :: NGRB097  = 097
+INTEGER(KIND=JPIM) :: NGRB098  = 098
+INTEGER(KIND=JPIM) :: NGRB099  = 099
+INTEGER(KIND=JPIM) :: NGRB100  = 100
+INTEGER(KIND=JPIM) :: NGRB101  = 101
+INTEGER(KIND=JPIM) :: NGRB102  = 102
+INTEGER(KIND=JPIM) :: NGRB103  = 103
+INTEGER(KIND=JPIM) :: NGRB104  = 104
+INTEGER(KIND=JPIM) :: NGRB105  = 105
+INTEGER(KIND=JPIM) :: NGRB106  = 106
+INTEGER(KIND=JPIM) :: NGRB107  = 107
+INTEGER(KIND=JPIM) :: NGRB108  = 108
+INTEGER(KIND=JPIM) :: NGRB109  = 109
+INTEGER(KIND=JPIM) :: NGRB110  = 110
+INTEGER(KIND=JPIM) :: NGRB111  = 111
+INTEGER(KIND=JPIM) :: NGRB112  = 112
+INTEGER(KIND=JPIM) :: NGRB113  = 113
+INTEGER(KIND=JPIM) :: NGRB114  = 114
+INTEGER(KIND=JPIM) :: NGRB115  = 115
+INTEGER(KIND=JPIM) :: NGRB116  = 116
+INTEGER(KIND=JPIM) :: NGRB117  = 117
+
+INTEGER(KIND=JPIM) :: NGRB118  = 118
+INTEGER(KIND=JPIM) :: NGRB119  = 119
+INTEGER(KIND=JPIM) :: NGRB120  = 120
+
+INTEGER(KIND=JPIM) :: NGRBEMIS = 124
+
+INTEGER(KIND=JPIM) :: NGRBAT   = 127
+INTEGER(KIND=JPIM) :: NGRBBV   = 128
+INTEGER(KIND=JPIM) :: NGRBZ    = 129
+INTEGER(KIND=JPIM) :: NGRBT    = 130
+INTEGER(KIND=JPIM) :: NGRBU    = 131
+INTEGER(KIND=JPIM) :: NGRBV    = 132
+INTEGER(KIND=JPIM) :: NGRBQ    = 133
+INTEGER(KIND=JPIM) :: NGRBSP   = 134
+INTEGER(KIND=JPIM) :: NGRBW    = 135
+INTEGER(KIND=JPIM) :: NGRBTCW  = 136
+INTEGER(KIND=JPIM) :: NGRBTCWV = 137
+INTEGER(KIND=JPIM) :: NGRBVO   = 138
+INTEGER(KIND=JPIM) :: NGRBSTL1 = 139
+INTEGER(KIND=JPIM) :: NGRBSD   = 141
+INTEGER(KIND=JPIM) :: NGRBLSP  = 142
+INTEGER(KIND=JPIM) :: NGRBCP   = 143
+INTEGER(KIND=JPIM) :: NGRBSF   = 144
+INTEGER(KIND=JPIM) :: NGRBBLD  = 145
+INTEGER(KIND=JPIM) :: NGRBSSHF = 146
+INTEGER(KIND=JPIM) :: NGRBSLHF = 147
+INTEGER(KIND=JPIM) :: NGRBCHAR = 148
+INTEGER(KIND=JPIM) :: NGRB149  = 149
+INTEGER(KIND=JPIM) :: NGRB150  = 150
+INTEGER(KIND=JPIM) :: NGRBMSL  = 151
+INTEGER(KIND=JPIM) :: NGRBLNSP = 152
+INTEGER(KIND=JPIM) :: NGRB153  = 153
+INTEGER(KIND=JPIM) :: NGRB154  = 154
+INTEGER(KIND=JPIM) :: NGRBD    = 155
+INTEGER(KIND=JPIM) :: NGRBGH   = 156
+INTEGER(KIND=JPIM) :: NGRBR    = 157
+INTEGER(KIND=JPIM) :: NGRBTSP  = 158
+INTEGER(KIND=JPIM) :: NGRBBLH  = 159
+INTEGER(KIND=JPIM) :: NGRBSDOR = 160
+INTEGER(KIND=JPIM) :: NGRBISOR = 161
+INTEGER(KIND=JPIM) :: NGRBANOR = 162
+INTEGER(KIND=JPIM) :: NGRBSLOR = 163
+INTEGER(KIND=JPIM) :: NGRBTCC  = 164
+INTEGER(KIND=JPIM) :: NGRB10U  = 165
+INTEGER(KIND=JPIM) :: NGRB10V  = 166
+INTEGER(KIND=JPIM) :: NGRB2T   = 167
+INTEGER(KIND=JPIM) :: NGRB2D   = 168
+INTEGER(KIND=JPIM) :: NGRBSSRD = 169
+INTEGER(KIND=JPIM) :: NGRBSTL2 = 170
+INTEGER(KIND=JPIM) :: NGRBLSM  = 172
+INTEGER(KIND=JPIM) :: NGRBSR   = 173
+INTEGER(KIND=JPIM) :: NGRBAL   = 174
+INTEGER(KIND=JPIM) :: NGRBSTRD = 175
+INTEGER(KIND=JPIM) :: NGRBSSR  = 176
+INTEGER(KIND=JPIM) :: NGRBSTR  = 177
+INTEGER(KIND=JPIM) :: NGRBTSR  = 178
+INTEGER(KIND=JPIM) :: NGRBTTR  = 179
+INTEGER(KIND=JPIM) :: NGRBEWSS = 180
+INTEGER(KIND=JPIM) :: NGRBNSSS = 181
+INTEGER(KIND=JPIM) :: NGRBE    = 182
+INTEGER(KIND=JPIM) :: NGRBSTL3 = 183
+INTEGER(KIND=JPIM) :: NGRBCCC  = 185
+INTEGER(KIND=JPIM) :: NGRBLCC  = 186
+INTEGER(KIND=JPIM) :: NGRBMCC  = 187
+INTEGER(KIND=JPIM) :: NGRBHCC  = 188
+INTEGER(KIND=JPIM) :: NGRBSUND = 189
+INTEGER(KIND=JPIM) :: NGRBEWOV = 190
+INTEGER(KIND=JPIM) :: NGRBNSOV = 191
+INTEGER(KIND=JPIM) :: NGRBNWOV = 192
+INTEGER(KIND=JPIM) :: NGRBNEOV = 193
+INTEGER(KIND=JPIM) :: NGRBTBT  = 194
+INTEGER(KIND=JPIM) :: NGRBLGWS = 195
+INTEGER(KIND=JPIM) :: NGRBMGWS = 196
+INTEGER(KIND=JPIM) :: NGRBGWD  = 197
+INTEGER(KIND=JPIM) :: NGRBSRC  = 198
+INTEGER(KIND=JPIM) :: NGRBVEG  = 199
+INTEGER(KIND=JPIM) :: NGRBVSO  = 200
+INTEGER(KIND=JPIM) :: NGRBMX2T = 201
+INTEGER(KIND=JPIM) :: NGRBMN2T = 202
+INTEGER(KIND=JPIM) :: NGRBO3   = 203
+INTEGER(KIND=JPIM) :: NGRBPAW  = 204
+INTEGER(KIND=JPIM) :: NGRBRO   = 205
+INTEGER(KIND=JPIM) :: NGRBTCO3 = 206
+INTEGER(KIND=JPIM) :: NGRB207  = 207
+INTEGER(KIND=JPIM) :: NGRBTSRC = 208
+INTEGER(KIND=JPIM) :: NGRBTTRC = 209
+INTEGER(KIND=JPIM) :: NGRBSSRC = 210
+INTEGER(KIND=JPIM) :: NGRBSTRC = 211
+
+INTEGER(KIND=JPIM) :: NGRB214  = 214
+INTEGER(KIND=JPIM) :: NGRB215  = 215
+INTEGER(KIND=JPIM) :: NGRB216  = 216
+INTEGER(KIND=JPIM) :: NGRB217  = 217
+INTEGER(KIND=JPIM) :: NGRB218  = 218
+INTEGER(KIND=JPIM) :: NGRB219  = 219
+
+INTEGER(KIND=JPIM) :: NGRBSTINC= 212
+INTEGER(KIND=JPIM) :: NGRBVIMD = 213
+
+INTEGER(KIND=JPIM) :: NGRB222  = 222
+INTEGER(KIND=JPIM) :: NGRB223  = 223
+INTEGER(KIND=JPIM) :: NGRB224  = 224
+INTEGER(KIND=JPIM) :: NGRB225  = 225
+INTEGER(KIND=JPIM) :: NGRB226  = 226
+INTEGER(KIND=JPIM) :: NGRB227  = 227
+INTEGER(KIND=JPIM) :: NGRBTP   = 228
+INTEGER(KIND=JPIM) :: NGRBIEWS = 229
+INTEGER(KIND=JPIM) :: NGRBINSS = 230
+INTEGER(KIND=JPIM) :: NGRBISHF = 231
+INTEGER(KIND=JPIM) :: NGRBIE   = 232
+INTEGER(KIND=JPIM) :: NGRBLSRH = 234
+INTEGER(KIND=JPIM) :: NGRBSKT  = 235
+INTEGER(KIND=JPIM) :: NGRBSTL4 = 236
+INTEGER(KIND=JPIM) :: NGRBTSN  = 238
+INTEGER(KIND=JPIM) :: NGRBCSF  = 239
+INTEGER(KIND=JPIM) :: NGRBLSF  = 240
+INTEGER(KIND=JPIM) :: NGRB241  = 241
+INTEGER(KIND=JPIM) :: NGRB242  = 242
+INTEGER(KIND=JPIM) :: NGRBFAL  = 243
+INTEGER(KIND=JPIM) :: NGRBFSR  = 244
+INTEGER(KIND=JPIM) :: NGRBFLSR = 245
+INTEGER(KIND=JPIM) :: NGRBCLWC = 246
+INTEGER(KIND=JPIM) :: NGRBCIWC = 247
+INTEGER(KIND=JPIM) :: NGRBCC   = 248
+INTEGER(KIND=JPIM) :: NGRB249  = 249
+INTEGER(KIND=JPIM) :: NGRB250  = 250
+INTEGER(KIND=JPIM) :: NGRB251  = 251
+INTEGER(KIND=JPIM) :: NGRB252  = 252
+INTEGER(KIND=JPIM) :: NGRB253  = 253
+INTEGER(KIND=JPIM) :: NGRB254  = 254
+INTEGER(KIND=JPIM) :: NGRB255  = 255
+
+
+!-- aerosols -- Table 210 --------------------------
+INTEGER(KIND=JPIM) :: NGRBAERMR01=210001
+INTEGER(KIND=JPIM) :: NGRBAERMR02=210002
+INTEGER(KIND=JPIM) :: NGRBAERMR03=210003
+INTEGER(KIND=JPIM) :: NGRBAERMR04=210004
+INTEGER(KIND=JPIM) :: NGRBAERMR05=210005
+INTEGER(KIND=JPIM) :: NGRBAERMR06=210006
+INTEGER(KIND=JPIM) :: NGRBAERMR07=210007
+INTEGER(KIND=JPIM) :: NGRBAERMR08=210008
+INTEGER(KIND=JPIM) :: NGRBAERMR09=210009
+INTEGER(KIND=JPIM) :: NGRBAERMR10=210010
+INTEGER(KIND=JPIM) :: NGRBAERMR11=210011
+INTEGER(KIND=JPIM) :: NGRBAERMR12=210012
+INTEGER(KIND=JPIM) :: NGRBAERMR13=210013
+INTEGER(KIND=JPIM) :: NGRBAERMR14=210014
+INTEGER(KIND=JPIM) :: NGRBAERMR15=210015
+
+INTEGER(KIND=JPIM) :: NGRBAERGN01=210016
+INTEGER(KIND=JPIM) :: NGRBAERGN02=210017
+INTEGER(KIND=JPIM) :: NGRBAERGN03=210018
+INTEGER(KIND=JPIM) :: NGRBAERGN04=210019
+INTEGER(KIND=JPIM) :: NGRBAERGN05=210020
+INTEGER(KIND=JPIM) :: NGRBAERGN06=210021
+INTEGER(KIND=JPIM) :: NGRBAERGN07=210022
+INTEGER(KIND=JPIM) :: NGRBAERGN08=210023
+INTEGER(KIND=JPIM) :: NGRBAERGN09=210024
+INTEGER(KIND=JPIM) :: NGRBAERGN10=210025
+INTEGER(KIND=JPIM) :: NGRBAERGN11=210026
+INTEGER(KIND=JPIM) :: NGRBAERGN12=210027
+INTEGER(KIND=JPIM) :: NGRBAERGN13=210028
+INTEGER(KIND=JPIM) :: NGRBAERGN14=210029
+INTEGER(KIND=JPIM) :: NGRBAERGN15=210030
+
+INTEGER(KIND=JPIM) :: NGRBAERLS01=210031
+INTEGER(KIND=JPIM) :: NGRBAERLS02=210032
+INTEGER(KIND=JPIM) :: NGRBAERLS03=210033
+INTEGER(KIND=JPIM) :: NGRBAERLS04=210034
+INTEGER(KIND=JPIM) :: NGRBAERLS05=210035
+INTEGER(KIND=JPIM) :: NGRBAERLS06=210036
+INTEGER(KIND=JPIM) :: NGRBAERLS07=210037
+INTEGER(KIND=JPIM) :: NGRBAERLS08=210038
+INTEGER(KIND=JPIM) :: NGRBAERLS09=210039
+INTEGER(KIND=JPIM) :: NGRBAERLS10=210040
+INTEGER(KIND=JPIM) :: NGRBAERLS11=210041
+INTEGER(KIND=JPIM) :: NGRBAERLS12=210042
+INTEGER(KIND=JPIM) :: NGRBAERLS13=210043
+INTEGER(KIND=JPIM) :: NGRBAERLS14=210044
+INTEGER(KIND=JPIM) :: NGRBAERLS15=210045
+
+INTEGER(KIND=JPIM) :: NGRBAERPR  =210046
+INTEGER(KIND=JPIM) :: NGRBAERSM  =210047
+INTEGER(KIND=JPIM) :: NGRBAERLG  =210048
+INTEGER(KIND=JPIM) :: NGRBAODPR  =210049
+INTEGER(KIND=JPIM) :: NGRBAODSM  =210050
+INTEGER(KIND=JPIM) :: NGRBAODLG  =210051
+INTEGER(KIND=JPIM) :: NGRBAERDEP =210052
+INTEGER(KIND=JPIM) :: NGRBAERLTS =210053
+INTEGER(KIND=JPIM) :: NGRBAERSCC =210054
+!---------------------------------------------------
+INTEGER(KIND=JPIM) :: NGRBCO2O = 210067
+INTEGER(KIND=JPIM) :: NGRBCO2B = 210068
+INTEGER(KIND=JPIM) :: NGRBCO2A = 210069
+
+!---------------------------------------------------
+
+INTEGER(KIND=JPIM), DIMENSION(JPGHG) :: NGRBGHG = (/&
+ & 210061, 210062, 210063/)
+INTEGER(KIND=JPIM), DIMENSION(JPTRAC) :: NGRBTRAC = (/&
+ & 210181, 210182/)
+
+INTEGER(KIND=JPIM), DIMENSION(JPGHG) :: NGRBTCGHG = (/&
+ & 210064, 210065, 210066/)
+INTEGER(KIND=JPIM), DIMENSION(JPTRAC) :: NGRBTCTRAC = (/&
+ & 210183, 210184/)
+
+INTEGER(KIND=JPIM), DIMENSION(JPGRG) :: NGRBGRG = (/&
+ & 210121, 210122, 210123, 210124, 210203/)
+
+INTEGER(KIND=JPIM), DIMENSION(JPGRG) :: NGRBTCGRG = (/&
+ & 210125, 210126, 210127, 210128, 210206/)
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(mbitsgg,mbitssh,mensfnb,mgrbs2,mgrbs3,mjdiag,mjdomai,mjiter,mlocgrb,msec0,msec1,msec2spm,msec2spp)
+!$OMP THREADPRIVATE(msec3,msec4,msmaxnp,mtotens,nbitsgg,nbitssh,ncalval,nconsensus,ndwd,nensfnb,ngrb080,ngrb081)
+!$OMP THREADPRIVATE(ngrb082,ngrb083,ngrb084,ngrb085,ngrb086,ngrb087,ngrb088,ngrb089,ngrb090,ngrb091,ngrb092,ngrb093)
+!$OMP THREADPRIVATE(ngrb094,ngrb095,ngrb096,ngrb097,ngrb098,ngrb099,ngrb100,ngrb101,ngrb102,ngrb103,ngrb104,ngrb105)
+!$OMP THREADPRIVATE(ngrb106,ngrb107,ngrb108,ngrb109,ngrb10fg,ngrb10u,ngrb10v,ngrb110,ngrb111,ngrb112,ngrb113,ngrb114)
+!$OMP THREADPRIVATE(ngrb115,ngrb116,ngrb117,ngrb118,ngrb119,ngrb120,ngrb149,ngrb150,ngrb153,ngrb154,ngrb207,ngrb21)
+!$OMP THREADPRIVATE(ngrb214,ngrb215,ngrb216,ngrb217,ngrb218,ngrb219,ngrb22,ngrb222,ngrb223,ngrb224,ngrb225,ngrb226)
+!$OMP THREADPRIVATE(ngrb227,ngrb23,ngrb241,ngrb242,ngrb249,ngrb250,ngrb251,ngrb252,ngrb253,ngrb254,ngrb255,ngrb2d)
+!$OMP THREADPRIVATE(ngrb2t,ngrbaerdep,ngrbaergn01,ngrbaergn02,ngrbaergn03,ngrbaergn04,ngrbaergn05,ngrbaergn06)
+!$OMP THREADPRIVATE(ngrbaergn07,ngrbaergn08,ngrbaergn09,ngrbaergn10,ngrbaergn11,ngrbaergn12,ngrbaergn13,ngrbaergn14)
+!$OMP THREADPRIVATE(ngrbaergn15,ngrbaerlg,ngrbaerls01,ngrbaerls02,ngrbaerls03,ngrbaerls04,ngrbaerls05,ngrbaerls06)
+!$OMP THREADPRIVATE(ngrbaerls07,ngrbaerls08,ngrbaerls09,ngrbaerls10,ngrbaerls11,ngrbaerls12,ngrbaerls13,ngrbaerls14)
+!$OMP THREADPRIVATE(ngrbaerls15,ngrbaerlts,ngrbaermr01,ngrbaermr02,ngrbaermr03,ngrbaermr04,ngrbaermr05,ngrbaermr06)
+!$OMP THREADPRIVATE(ngrbaermr07,ngrbaermr08,ngrbaermr09,ngrbaermr10,ngrbaermr11,ngrbaermr12,ngrbaermr13,ngrbaermr14)
+!$OMP THREADPRIVATE(ngrbaermr15,ngrbaerpr,ngrbaerscc,ngrbaersm,ngrbal,ngrbalnid,ngrbalnip,ngrbaluvd,ngrbaluvp,ngrbanor)
+!$OMP THREADPRIVATE(ngrbaodlg,ngrbaodpr,ngrbaodsm,ngrbasn,ngrbat,ngrbbld,ngrbblh,ngrbbv,ngrbcape,ngrbcc,ngrbccc)
+!$OMP THREADPRIVATE(ngrbchar,ngrbci,ngrbciwc,ngrbclwc,ngrbco2a,ngrbco2b,ngrbco2o,ngrbcp,ngrbcsf,ngrbcvh,ngrbcvl,ngrbd)
+!$OMP THREADPRIVATE(ngrbe,ngrbemis,ngrbes,ngrbewov,ngrbewss,ngrbfal,ngrbflsr,ngrbfsr,ngrbgh,ngrbghg,ngrbgrg,ngrbgwd)
+!$OMP THREADPRIVATE(ngrbhcc,ngrbie,ngrbiews,ngrbinss,ngrbishf,ngrbisor,ngrbistl1,ngrbistl2,ngrbistl3,ngrbistl4,ngrblcc)
+!$OMP THREADPRIVATE(ngrblgws,ngrblnsp,ngrblsf,ngrblsm,ngrblsp,ngrblspf,ngrblsrh,ngrbmaxxtra,ngrbmcc,ngrbmgws)
+!$OMP THREADPRIVATE(ngrbminxtra,ngrbmn2t,ngrbmont,ngrbmsl,ngrbmx2t,ngrbneov,ngrbnsov,ngrbnsss,ngrbnwov,ngrbo3,ngrbpaw)
+!$OMP THREADPRIVATE(ngrbpthpv,ngrbpv,ngrbq,ngrbr,ngrbro,ngrbrsn,ngrbs2,ngrbs3,ngrbsd,ngrbsdfor,ngrbsdor,ngrbsf,ngrbsf6)
+!$OMP THREADPRIVATE(ngrbskt,ngrbslhf,ngrbslor,ngrbsmlt,ngrbsp,ngrbspar,ngrbsparc,ngrbspd,ngrbsr,ngrbsrc,ngrbsshf,ngrbssr)
+!$OMP THREADPRIVATE(ngrbssrc,ngrbssrd,ngrbsst,ngrbstinc,ngrbstl1,ngrbstl2,ngrbstl3,ngrbstl4,ngrbstr,ngrbstrc,ngrbstrd)
+!$OMP THREADPRIVATE(ngrbsund,ngrbsuvb,ngrbsvd,ngrbswl1,ngrbswl2,ngrbswl3,ngrbswl4,ngrbt,ngrbtbt,ngrbtcc,ngrbtcghg)
+!$OMP THREADPRIVATE(ngrbtcgrg,ngrbtciw,ngrbtclw,ngrbtco3,ngrbtctrac,ngrbtcw,ngrbtcwv,ngrbth,ngrbtp,ngrbtrac,ngrbtsn)
+!$OMP THREADPRIVATE(ngrbtsp,ngrbtsr,ngrbtsrc,ngrbttr,ngrbttrc,ngrbtvh,ngrbtvl,ngrbu,ngrbv,ngrbveg,ngrbvimd,ngrbvo)
+!$OMP THREADPRIVATE(ngrbvso,ngrbw,ngrbz,njdiag,njdomai,njiter,nleg,nlocgrb,nmethod,nmfr,nncep,nreference,nsec0,nsec1)
+!$OMP THREADPRIVATE(nsec2spm,nsec2spp,nsec3,nsec4,nsmaxnp,nsteplpp,nstream,nsystem,ntotens,nukm,rsec3,ssec3)
+!$OMP THREADPRIVATE(msec2gg,ngrbgp2,ngrbgp3,ngrbsp2,ngrbsp3,nsec2gg,rsec2,ssec2)
+END MODULE YOMGRB
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgstats.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgstats.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomgstats.F90	(revision 3330)
@@ -0,0 +1,110 @@
+MODULE YOMGSTATS
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+! Module for timing statistics. Module is internal to the GSTATS package -
+! routines GSTATS, SUSTATS and STATS_OUTPUT. The logical switches are
+! re-initialized in SUMPINI
+
+! LSTATS - TRUE for gathering timing statistics
+! LSTATSCPU - TRUE for gathering CPU timing  statistics
+! LSYNCSTATS - TRUE for syncronization (call to barrier) at the 
+!              start of timing event
+! LDETAILED_STATS - TRUE for more detail in output
+! LSTATS_OMP - TRUE for gathering timing statistics on OpenMP regions
+!                 1001-1999
+! LSTATS_COMMS - TRUE for gathering detailed timing of Message passing
+!                 501-1000
+! NTRACE_STATS    - max number of entries in trace
+! LTRACE_STATS    - True for trace of all calls to gstats
+! LGSTATS_LABEL   - True after GSTATS-labels have been set
+! JPMAXSTAT - max number of separate  timers in gstats
+! JPOBCOUNT_BASE - first counter for obs types
+! NCALLS - number of times a timer has been switched on
+! TIMESUM - total time spent with timer on
+! TIMESQSUM - sum of the squares of times
+! TIMEMAX - max time of all calls
+! TIMESUMB - sum of times between previous timer was invoked and this
+!            timer was switched on ( to be used for finding out which parts
+!            of the code that is not being timed)
+! TIMELCALL - time when event was switched on or resumed
+! TTCPUSUM - total cpu time
+! TVCPUSUM - total vector cpu time
+! THISTIME - total accumulated time for this call to timing event (necessary
+!            to be able to suspend and resume timer and still have it counted
+!            as one timing event)
+! THISTCPU - as THISTIME but for CPU time
+! THISVCPU - as THISTIME but for vector CPU time
+! TTCPULCALL - as TIMELCALL but for CPU time
+! TVCPULCALL - as TIMELCALL but for vector CPU time
+! TIME_LAST_CALL - last time GSTATS was called
+! TIME_START - used for recording parallel startup time
+
+
+LOGICAL :: LSTATS = .TRUE.
+LOGICAL :: LSTATS_OMP = .FALSE.
+LOGICAL :: LSTATS_COMMS = .FALSE.
+LOGICAL :: LSTATS_MEM = .FALSE.
+LOGICAL :: LSTATS_ALLOC = .FALSE.
+LOGICAL :: LSTATSCPU = .TRUE.
+LOGICAL :: LSYNCSTATS = .FALSE.
+LOGICAL :: LDETAILED_STATS = .TRUE.
+LOGICAL :: LBARRIER_STATS = .FALSE.
+LOGICAL :: LTRACE_STATS = .FALSE.
+LOGICAL :: LGSTATS_LABEL = .FALSE.
+
+INTEGER(KIND=JPIM),PARAMETER :: JPMAXSTAT=2500
+
+INTEGER(KIND=JPIM),PARAMETER :: JPOBCOUNT_BASE=201
+INTEGER(KIND=JPIM) :: NTRACE_STATS=0
+INTEGER(KIND=JPIM) :: NCALLS(0:JPMAXSTAT)
+INTEGER(KIND=JPIM) :: NCALLS_TOTAL=0
+INTEGER(KIND=JPIM),ALLOCATABLE :: NCALL_TRACE(:)
+
+REAL(KIND=JPRB) :: TIMESUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMESQSUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMEMAX(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMESUMB(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMELCALL(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TTCPUSUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TVCPUSUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: THISTIME(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: THISTCPU(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: THISVCPU(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TTCPULCALL(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TVCPULCALL(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIME_LAST_CALL
+
+REAL(KIND=JPRB),ALLOCATABLE :: TIME_START(:)
+REAL(KIND=JPRB),ALLOCATABLE :: TIME_TRACE(:)
+INTEGER(KIND=JPIM),PARAMETER :: JPERR=0
+INTEGER(KIND=JPIM),PARAMETER :: JPTAGSTAT=20555
+
+CHARACTER*50 :: CCDESC(0:JPMAXSTAT) = ""
+CHARACTER*3  :: CCTYPE(0:JPMAXSTAT) = ""
+
+INTEGER(KIND=JPIM) :: NPROC_STATS = 1
+INTEGER(KIND=JPIM) :: MYPROC_STATS = 1
+INTEGER(KIND=JPIM),ALLOCATABLE :: NPRCIDS_STATS(:)
+
+INTEGER(KIND=JPIM) :: NTMEM(0:JPMAXSTAT,5)
+INTEGER(KIND=JPIM) :: NSTATS_MEM=0
+
+INTEGER(KIND=JPIM) :: NPRNT_STATS=3
+
+!$OMP THREADPRIVATE(ccdesc,cctype,lbarrier_stats,ldetailed_stats,lgstats_label,lstats,lstats_alloc)
+!$OMP THREADPRIVATE(lstats_comms,lstats_mem,lstats_omp,lstatscpu,lsyncstats,ltrace_stats,myproc_stats)
+!$OMP THREADPRIVATE(ncalls,ncalls_total,nprnt_stats,nproc_stats,nstats_mem,ntmem,ntrace_stats,thistcpu)
+!$OMP THREADPRIVATE(thistime,thisvcpu,time_last_call,timelcall,timemax,timesqsum,timesum,timesumb)
+!$OMP THREADPRIVATE(ttcpulcall,ttcpusum,tvcpulcall,tvcpusum)
+!$OMP THREADPRIVATE(ncall_trace,nprcids_stats,time_start,time_trace)
+END MODULE YOMGSTATS
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomhook.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomhook.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomhook.F90	(revision 3330)
@@ -0,0 +1,38 @@
+MODULE YOMHOOK
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+! Used by "hook" function
+! LHOOK = true implies "hook" function will be called
+! Altough initialized to TRUE it will be reset by first call to 
+! DR_HOOK unless we really want to use the hook function
+
+LOGICAL :: LHOOK=.TRUE.
+
+CONTAINS 
+
+SUBROUTINE DR_HOOK(CDNAME,KSWITCH,PKEY)
+CHARACTER(LEN=*), INTENT(IN) :: CDNAME
+INTEGER(KIND=JPIM),        INTENT(IN) :: KSWITCH
+REAL(KIND=JPRB),        INTENT(INOUT) :: PKEY
+IF (KSWITCH.EQ.0) THEN
+!  PRINT *,'--> ON ENTRE DANS: ',CDNAME
+ELSE IF (KSWITCH.EQ.1) THEN
+!  PRINT *,'    ON SORT  DE  : ',CDNAME
+ENDIF
+END SUBROUTINE DR_HOOK
+
+SUBROUTINE C_DRHOOK_PRINT
+
+! subroutine vide MPL 4.12.08
+!INTEGER(KIND=JPIM) ITID, KTID, IPRINT_OPTION, ILEVEL
+!ITID = 0
+!KTID = 0
+!IPRINT_OPTION = 2
+!ILEVEL = 0
+PRINT *,'ON EST DANS C_DRHOOK_PRINT '
+
+END SUBROUTINE C_DRHOOK_PRINT
+END MODULE YOMHOOK
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomjfh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomjfh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomjfh.F90	(revision 3330)
@@ -0,0 +1,16 @@
+MODULE YOMJFH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: N_VMASS=0
+
+!    -----------------------------------------------------------------
+
+!$OMP THREADPRIVATE(n_vmass)
+END MODULE YOMJFH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomleg.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomleg.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomleg.F90	(revision 3330)
@@ -0,0 +1,41 @@
+MODULE YOMLEG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Description of Legendre polynomials
+
+! RW          : weights of the gaussian quadrature
+! RMU         : mu              sin(theta)
+! R1MU2       : 1.-MU*MU        cos(theta)**2
+! R1MUI       : 1./R1MU2      1/cos(theta)**2
+! R1MUA       : 1./R1MU2/RA   1/(a*cos(theta)**2)
+! RSQM2       : SQRT(R1MU2)     cos(theta)
+! R1QM2       : 1./SQRT(R1MU2) 1/cos(theta)
+! RACTHE      : 1./SQRT(R1MU2) 1/(a*cos(theta))
+! RLATIG      : arcsin(mu)      theta  GLOBAL VIEW
+! RLATI       : arcsin(mu)      theta
+! RIPI0       : bi-cubic interpolation coefficients
+! RIPI1       : bi-cubic interpolation coefficients
+! RIPI2       : bi-cubic interpolation coefficients
+
+REAL(KIND=JPRB),ALLOCATABLE:: RW(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RMU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1MU2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1MUI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1MUA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RSQM2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1QM2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RACTHE(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RLATIG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RLATI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RIPI0(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RIPI1(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RIPI2(:)
+
+!$OMP THREADPRIVATE(r1mu2,r1mua,r1mui,r1qm2,racthe,ripi0,ripi1,ripi2,rlati,rlatig,rmu,rsqm2,rw)
+END MODULE YOMLEG
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlun.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlun.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlun.F90	(revision 3330)
@@ -0,0 +1,145 @@
+MODULE YOMLUN
+
+USE PARKIND1  ,ONLY : JPIM
+USE YOMLUN_IFSAUX, ONLY : NULOUT, NULERR
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Logical units used by code
+
+!     NULOUT :   output unit (now from YOMLUN_IFSAUX)
+!     NULNAM :   unit number for namelist
+!     NCMAFL :   UNIT NUMBERS FOR OCEAN COUPLER 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
+!     NINMSH :   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
+!     NTIDE  :   unit number for the LFI file containing the total tendencies
+!     NPDIRL :   unit number for post-processing directory listing
+!     NPPPSH :   unit number for post-processed spherical harmonics WRPLPP
+
+!     NULDILA:   unit number for dilatation matrix (SUDIL,DILAT,SPDILA)
+!     NULCONT:   unit number for contraction matrix (SUDIL,DILAT,SPDILA)
+!     NULROTC:   unit number for upper troncature rotation matrix (SUROT,SPORTS)
+
+!     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
+!     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)
+!     NULERR :   unit number for comparison with reference run (now from YOMLUN_IFSAUX)
+!     NULREF :   unit number for storing reference run
+!     NULRAD :   unit number for writing radiation diagnostics
+!     NULRTL :   unit number for reading RTLIMB coefficient files
+!     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
+!     NSCATAB    SCAT. SIGMA0 TABLE
+!     NSCASIG    SCAT. SIGMA0 BIAS CORRECTION
+!     NSCASPE    SCAT. SPEED BIAS CORRECTION
+!     NEGASH     UNIT NUMBER FOR JK INPUT
+
+!     NULTRAJHR: unit number for high resolution trajectory (option LTRAJHR)
+!     NULTRAJBG: unit number for background (option LBACKGR)
+
+!!INTEGER(KIND=JPIM) :: NULOUT
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!INTEGER(KIND=JPIM) :: NULNAM
+INTEGER(KIND=JPIM) :: NCMAFL(10)
+INTEGER(KIND=JPIM) :: NPOSSH
+INTEGER(KIND=JPIM) :: NTIDE
+INTEGER(KIND=JPIM) :: NTRJSH
+INTEGER(KIND=JPIM) :: NINMSH
+INTEGER(KIND=JPIM) :: NINISH
+INTEGER(KIND=JPIM) :: NINIGG
+INTEGER(KIND=JPIM) :: NFGISH
+INTEGER(KIND=JPIM) :: NFGIGG
+INTEGER(KIND=JPIM) :: NPPPSH
+INTEGER(KIND=JPIM) :: NULTMP
+INTEGER(KIND=JPIM) :: NPODDH
+INTEGER(KIND=JPIM) :: NULCL1
+INTEGER(KIND=JPIM) :: NULCL2
+INTEGER(KIND=JPIM) :: NULASE
+INTEGER(KIND=JPIM) :: NULASS
+INTEGER(KIND=JPIM) :: NULDILA
+INTEGER(KIND=JPIM) :: NULCONT
+INTEGER(KIND=JPIM) :: NULROTC
+INTEGER(KIND=JPIM) :: NULRCF
+INTEGER(KIND=JPIM) :: NULHWF
+INTEGER(KIND=JPIM) :: NULUSR1
+INTEGER(KIND=JPIM) :: NULUSR2
+INTEGER(KIND=JPIM) :: NULUSR3
+INTEGER(KIND=JPIM) :: NULUSR4
+INTEGER(KIND=JPIM) :: NULUSR5
+INTEGER(KIND=JPIM) :: NULCO
+INTEGER(KIND=JPIM) :: NEFLS
+INTEGER(KIND=JPIM) :: NEFLSS
+INTEGER(KIND=JPIM) :: NBIAS
+INTEGER(KIND=JPIM) :: NPDIRL
+INTEGER(KIND=JPIM) :: NULSTAT
+INTEGER(KIND=JPIM) :: NULFP01
+INTEGER(KIND=JPIM) :: NULFP02
+INTEGER(KIND=JPIM) :: NULFP03
+INTEGER(KIND=JPIM) :: NULFP04
+INTEGER(KIND=JPIM) :: NULFP05
+INTEGER(KIND=JPIM) :: NULFP06
+INTEGER(KIND=JPIM) :: NULFP07
+INTEGER(KIND=JPIM) :: NULFP08
+INTEGER(KIND=JPIM) :: NULFP09
+INTEGER(KIND=JPIM) :: NULFP10
+INTEGER(KIND=JPIM) :: NULFP11
+INTEGER(KIND=JPIM) :: NULFP12
+INTEGER(KIND=JPIM) :: NULFP13
+INTEGER(KIND=JPIM) :: NULFP14
+INTEGER(KIND=JPIM) :: NULFP15
+INTEGER(KIND=JPIM) :: NULFPOS
+INTEGER(KIND=JPIM) :: NSCRTCH
+!!INTEGER(KIND=JPIM) :: NULERR
+INTEGER(KIND=JPIM) :: NULREF
+INTEGER(KIND=JPIM) :: NULRAD
+INTEGER(KIND=JPIM) :: NULRTL
+INTEGER(KIND=JPIM) :: NUO3CH1
+INTEGER(KIND=JPIM) :: NUO3CH2
+INTEGER(KIND=JPIM) :: NTCSR
+INTEGER(KIND=JPIM) :: NSCATAB
+INTEGER(KIND=JPIM) :: NSCASIG
+INTEGER(KIND=JPIM) :: NSCASPE
+INTEGER(KIND=JPIM) :: NEGASH
+INTEGER(KIND=JPIM) :: NULTRAJHR
+INTEGER(KIND=JPIM) :: NULTRAJBG
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(nbias,ncmafl,nefls,neflss,negash,nfgigg,nfgish,ninigg,ninish,ninmsh,npdirl,npoddh,npossh)
+!$OMP THREADPRIVATE(npppsh,nscasig,nscaspe,nscatab,nscrtch,ntcsr,ntide,ntrjsh,nulase,nulass,nulcl1,nulcl2,nulco)
+!$OMP THREADPRIVATE(nulcont,nuldila,nulfp01,nulfp02,nulfp03,nulfp04,nulfp05,nulfp06,nulfp07,nulfp08,nulfp09)
+!$OMP THREADPRIVATE(nulfp10,nulfp11,nulfp12,nulfp13,nulfp14,nulfp15,nulfpos,nulhwf,nulrad,nulrcf,nulref,nulrotc)
+!$OMP THREADPRIVATE(nulrtl,nulstat,nultmp,nultrajbg,nultrajhr,nulusr1,nulusr2,nulusr3,nulusr4,nulusr5,nuo3ch1,nuo3ch2)
+END MODULE YOMLUN
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlun_ifsaux.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlun_ifsaux.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlun_ifsaux.F90	(revision 3330)
@@ -0,0 +1,21 @@
+MODULE YOMLUN_IFSAUX
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Logical units used by code
+
+!     NULOUT :   output unit
+!     NULERR :   unit number for comparison with reference run
+
+INTEGER(KIND=JPIM) :: NULOUT = 6
+INTEGER(KIND=JPIM) :: NULERR = 0
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(nulerr,nulout)
+END MODULE YOMLUN_IFSAUX
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlw15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlw15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomlw15.F90	(revision 3330)
@@ -0,0 +1,82 @@
+MODULE YOMLW15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMLW15* - COEFF. OF THE LONGWAVE RADIATION TRANSFER
+!*                         FROZEN VERSION (CYCLE 15) OF YOELW
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: MXIXT15
+INTEGER(KIND=JPIM) :: NINT15
+INTEGER(KIND=JPIM) :: NIPD15
+INTEGER(KIND=JPIM) :: NIPD215
+INTEGER(KIND=JPIM) :: NTR15
+INTEGER(KIND=JPIM) :: NTRA15
+INTEGER(KIND=JPIM) :: NUA15
+INTEGER(KIND=JPIM) :: NG115
+INTEGER(KIND=JPIM) :: NG1P115
+REAL(KIND=JPRB) :: AT15(8,3)
+REAL(KIND=JPRB) :: BT15(8,3)
+REAL(KIND=JPRB) :: RNTNU15(4)
+REAL(KIND=JPRB) :: GA15(11,16,3)
+REAL(KIND=JPRB) :: GB15(11,16,3)
+REAL(KIND=JPRB) :: OCT15(4)
+REAL(KIND=JPRB) :: O1H15
+REAL(KIND=JPRB) :: O2H15
+REAL(KIND=JPRB) :: RPIALF015
+REAL(KIND=JPRB) :: RT115(2)
+REAL(KIND=JPRB) :: TINTP15(11)
+REAL(KIND=JPRB) :: TREF15
+REAL(KIND=JPRB) :: TSTAND15
+REAL(KIND=JPRB) :: TSTP15
+REAL(KIND=JPRB) :: WG115(2)
+REAL(KIND=JPRB) :: XP15(6,6)
+REAL(KIND=JPRB) :: RVGCO215
+REAL(KIND=JPRB) :: RVGH2O15
+REAL(KIND=JPRB) :: RVGO315
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME        TYPE     PURPOSE
+!  ----     :  ----   : ------------------------------------------------
+!  MXIXT15  :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
+!  NINT15   :  INTEGER  NUMBER OF SPECTRAL INTERVALS
+!  NIPD15   :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
+!  NIPD215  :  INTEGER  NIPD15*2
+!  NTR15    :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
+!  NTRA15   :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
+!  NUA15    :  INTEGER  NUMBER OF ABSORBER AMOUNTS
+!  NG115    :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
+!  NG1P115  :  INTEGER  NG115+1
+!  AT15     :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  BT15     :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  RNTNU15  :  REAL     ABSORPTION COEFFICIENT E-TYPE
+!  GA15     :  REAL     PADE APPROXIMANTS - NUMERATOR
+!  GB15     :  REAL     PADE APPROXIMANTS - DENOMINATOR
+!  OCT15    :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
+!  O1H15    :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
+!  O2H15    :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
+!  RPIALF015:  REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
+!  RT115    :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
+!  TINTP15  :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
+!  TREF15   :  REAL     REF. TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
+!  TSTAND15 :  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!  TSTP15   :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
+!  WG115    :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
+!  XP15     :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!  RVGCO215 :  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
+!  RVGH2O15 :  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
+!  RVGO315  :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(at15,bt15,ga15,gb15,mxixt15,ng115,ng1p115,nint15,nipd15,nipd215)
+!$OMP THREADPRIVATE(ntr15,ntra15,nua15,o1h15,o2h15,oct15,rntnu15,rpialf015,rt115,rvgco215)
+!$OMP THREADPRIVATE(rvgh2o15,rvgo315,tintp15,tref15,tstand15,tstp15,wg115,xp15)
+END MODULE YOMLW15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yommddh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yommddh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yommddh.F90	(revision 3330)
@@ -0,0 +1,241 @@
+MODULE YOMMDDH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     DIAGNOSTIQUES DOMAINES HORIZONTAUX
+!     ----------------------------------
+
+!     DIMENSIONS DES DIAGNOSTIQUES DDH
+!     ---------------------------------
+! === basic dimensions for reading NAMDDH ===
+INTEGER(KIND=JPIM), PARAMETER :: JPDHNOX=200
+INTEGER(KIND=JPIM), PARAMETER :: JPDHXPU=5
+
+!     JPDHNOX: Maximum number of user area
+!     JPDHXPU: Maximum number of user or mask memory plans
+
+INTEGER(KIND=JPIM) :: NDHKD
+INTEGER(KIND=JPIM) :: NDHNPU
+INTEGER(KIND=JPIM) :: NDHBPU(JPDHXPU)
+INTEGER(KIND=JPIM) :: NDHBPX
+INTEGER(KIND=JPIM) :: NDHNOM
+INTEGER(KIND=JPIM) :: NDHDDX
+INTEGER(KIND=JPIM) :: NDHIDH
+INTEGER(KIND=JPIM) :: NDHCS
+INTEGER(KIND=JPIM) :: NDHCV
+INTEGER(KIND=JPIM) :: NDHCVSU
+INTEGER(KIND=JPIM) :: NDHCSSU
+INTEGER(KIND=JPIM) :: NDHCVSUN
+INTEGER(KIND=JPIM) :: NDHCVSUL
+!     NDHKD : NOMBRE DE BANDES DE LATITUDES
+!     NDHNPU : NOMBRE DE MASQUES UTILISES NDHNPU .LE. JPDHXPU
+!     NDHBPU(JPDHXPU) : NOMBRE DE DOMAINES CONTENU DANS CHAQUE MASQUE
+!     NDHBPX : NOMBRE DE DOMAINE MAXIMAL PAR MASQUE
+!                                         NDHBPX = MAX( NDHBPU )
+!     NDHNOM : NOMBRE TOTALE DE DOMAINES LIMITES EN NOMENCLATURE
+!                                         NDHNOM .LE. JPDHNOX
+!     NDHDDX : NOMBRE MAXIMAL DE DOMAINES INTERNES POSSIBLES
+!     NDHIDH : NOMBRE DE DOMAINES INTERNES ( OR DOMAINE 0 EVENTUEL )
+!              INITIALISE PAR CALCUL DANS SUMDDH
+!     NDHCS  : NOMBRE TOTAL DE CHAMPS AU SOL
+!     NDHCV  : NOMBRE TOTAL DE CHAMPS EN PROFILS VERTICAUX
+!     NDHCVSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS VERTICAUX
+!              NDHCVSU EST IMPAIR ET VAUT 1 AU MOINS
+!     NDHCSSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS AU SOL
+
+!     INDICATEURS D ORGANISATION DE LA REPARTITION DES CHAMPS
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: NDHVV
+INTEGER(KIND=JPIM) :: NDHFVD
+INTEGER(KIND=JPIM) :: NDHFVP
+INTEGER(KIND=JPIM) :: NDHVS
+INTEGER(KIND=JPIM) :: NDHFSD
+INTEGER(KIND=JPIM) :: NDHFSP
+INTEGER(KIND=JPIM) :: NDHFFS
+INTEGER(KIND=JPIM) :: NDHVFS
+
+INTEGER(KIND=JPIM) :: NDHVTLS
+INTEGER(KIND=JPIM) :: NDHFTLS
+INTEGER(KIND=JPIM) :: NDHVTSS
+INTEGER(KIND=JPIM) :: NDHFTSS
+INTEGER(KIND=JPIM) :: NDHVTTS
+INTEGER(KIND=JPIM) :: NDHFTTS
+INTEGER(KIND=JPIM) :: NDHVTIS
+INTEGER(KIND=JPIM) :: NDHFTIS
+INTEGER(KIND=JPIM) :: NDHVSSS
+INTEGER(KIND=JPIM) :: NDHFSSS
+INTEGER(KIND=JPIM) :: NDHVIIS
+INTEGER(KIND=JPIM) :: NDHFIIS
+INTEGER(KIND=JPIM) :: NDHVWLS
+INTEGER(KIND=JPIM) :: NDHFWLS
+
+INTEGER(KIND=JPIM) :: NDHTHK
+INTEGER(KIND=JPIM) :: NDHVHK
+INTEGER(KIND=JPIM) :: NDHFHKD
+INTEGER(KIND=JPIM) :: NDHFHKP
+INTEGER(KIND=JPIM) :: NDHTMC
+INTEGER(KIND=JPIM) :: NDHVMC
+INTEGER(KIND=JPIM) :: NDHFMCD
+INTEGER(KIND=JPIM) :: NDHFMCP
+INTEGER(KIND=JPIM) :: NDHTEN
+INTEGER(KIND=JPIM) :: NDHVEN
+INTEGER(KIND=JPIM) :: NDHFEND
+INTEGER(KIND=JPIM) :: NDHFENP
+INTEGER(KIND=JPIM) :: NDHAVD
+INTEGER(KIND=JPIM) :: NDHBVD
+INTEGER(KIND=JPIM) :: NDHAVP
+INTEGER(KIND=JPIM) :: NDHBVP
+INTEGER(KIND=JPIM) :: NDHAHKD
+INTEGER(KIND=JPIM) :: NDHBHKD
+INTEGER(KIND=JPIM) :: NDHAHKP
+INTEGER(KIND=JPIM) :: NDHBHKP
+INTEGER(KIND=JPIM) :: NDHAMCD
+INTEGER(KIND=JPIM) :: NDHBMCD
+INTEGER(KIND=JPIM) :: NDHAMCP
+INTEGER(KIND=JPIM) :: NDHBMCP
+INTEGER(KIND=JPIM) :: NDHAEND
+INTEGER(KIND=JPIM) :: NDHBEND
+INTEGER(KIND=JPIM) :: NDHAENP
+INTEGER(KIND=JPIM) :: NDHBENP
+
+!   * LES INDICATEURS PRECEDES DE * SONT DES NOMBRES ATTACHES
+!     AU CODE FORTRAN DE CALCUL SCIENTIFIQUE, ET NON DES
+!     PARAMETRES AJUSTABLES AUX CIRCONSTANCES
+
+!     NDHVV  : NOMBRE DE VARIABLES SUR LA VERTICALE
+!     NDHFVD : NOMBRE DE FLUX+TENDANCES DYNAMIQUES SUR LA VERTICALE
+!           DETAIL CI DESSOUS
+!     NDHFVP : NOMBRE DE FLUX+TENDANCES PHYSIQUES SUR LA VERTICALE
+!           DETAIL CI DESSOUS
+
+!   * NDHVS  : NOMBRE DE VARIABLES AU SOL
+!   * NDHFSD : NOMBRE DE FLUX DYNAMIQUES AU SOL
+!   * NDHFSP : NOMBRE DE FLUX PHYSIQUES AU SOL
+!   * NDHFFS : Number of free-style fluxes
+!   * NDHVFS : Number of free-style variables
+
+!   * NDHVTLS: Number of variables for individual tiles
+!   * NDHFTLS: Number of fluxes for individual tiles
+!   * NDHVTSS: Number of variables for snow energy budget
+!   * NDHFTSS: Number of fluxes for snow energy budget
+!   * NDHVTTS: Number of variables for soil energy budget
+!   * NDHFTTS: Number of fluxes for soil energy budget
+!   * NDHVTIS: Number of variables for sea ice energy budget
+!   * NDHFTIS: Number of fluxes for sea ice energy budget
+!   * NDHVSSS: Number of variables for snow water budget
+!   * NDHFSSS: Number of fluxes for snow water budget
+!   * NDHVIIS: Number of variables for interception layer water budget
+!   * NDHFIIS: Number of fluxes for interception layer water budget
+!   * NDHVWLS: Number of variables for soil water budget
+!   * NDHFWLS: Number of fluxes for soil water budget
+
+!     NDHTHK : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDHKS
+!   * NDHVHK : NOMBRE DE VARIABLES SOUS LHDHKS
+!   * NDHFHKD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDHKS
+!   * NDHFHKP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDHKS
+
+!     NDHTMC : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDMCI
+!   * NDHVMC : NOMBRE DE VARIABLES SOUS LHDMCI
+!   * NDHFMCD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDMCI
+!   * NDHFMCP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDMCI
+
+!     NDHTEN : NOMBRE TOTAL DE CHAMPS SOUS LHDENT
+!   * NDHVEN : NOMBRE DE VARIABLES SOUS LHDENT
+!   * NDHFEND: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDENT
+!   * NDHFENP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDENT
+
+!     NDHAVD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES
+!     NDHBVD : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!     NDHAVP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!     NDHBVP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+!   * NDHAHKD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDHKS
+!   * NDHBHKD : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!   * NDHAHKP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!   * NDHBHKP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+!   * NDHAMCD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDMCI
+!   * NDHBMCD : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!   * NDHAMCP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!   * NDHBMCP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+!   * NDHAEND : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDENT
+!   * NDHBEND : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!   * NDHAENP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!   * NDHBENP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+
+!     IDENTIFICATION DES DOMAINES DE L UTILISATEUR
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NDHZPR
+REAL(KIND=JPRB) :: FNODDH(11,JPDHNOX)
+REAL(KIND=JPRB) :: BDEDDH(10,JPDHNOX)
+REAL(KIND=JPRB) :: HDSFGL
+
+!     FNODDH : DESCRIPTEURS DES DOMAINES LIMITES UTILISATEUR ACCEPTES
+!           (1,-) : PLAN MEMOIRE (MASQUE)
+!           (2,-) : NUMERO D ORDRE DANS LE PLAN
+!          CES DEUX NOMBRES FORMENT LES COORDONNEES INTERNES DU DOMAINE
+!           (3,-) A (10,-) : COORDONNEES (EN GAL LON, SIN(LAT) EN RD)
+!                            SUIVANT LE TYPE (VOIR DOCUMENTATION)
+!           (11,-) : TYPE DE DOMAINE
+
+!     BDEDDH : DESCRIPTEUR BRUT LU SUR NAMELIST
+!              (CERTAINS DOMAINES PEUVENT AVOIR ETE REJETES)
+!           (1,-) : TYPE DE DOMAINE
+!           (2,-) : PLAN MEMOIRE
+!           (3,-) A (10,-) : COORDONNEES (EN GAL LON, LAT EN DEG)
+!                            SUIVANT LE TYPE (VOIR DOCUMENTATION)
+!     HDSFGL : VOIR CI DESSOUS
+!     NDHZPR : INDICE DE LA BANDE ZONALE EVENTUELLEMENT IMPRIMEE
+
+!     MASQUES DES DIAGNOSTIQUES DDH, POIDS POUR LES MOYENNES
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHLA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHPU(:,:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHI(:)
+!     -----
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLRDDH(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NURDDH(:,:,:)
+!     -----
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLXDDH(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUXDDH(:,:)
+!     -----
+REAL(KIND=JPRB),ALLOCATABLE:: HDSFLA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDSFDU(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDSF(:)
+
+!     NDDHLA : MASQUE BANDES DE LATITUDES
+!     NDDHPU : MASQUES POUR LES DOMAINES LIMITES ET LES POINTS
+
+!     NDDHI : MASQUE DES DOMAINES INTERNES
+
+!     NLRDDH : DISTRIBUTION DE CHAQUE BANDE DE LATITUDE EN DOMAINES INTERNES
+!     NURDDH : DISTRIBUTION DE CHAQUE DOMAINE DE CHAQUE PLAN EN DOMAINES INTERNE
+
+!     NLXDDH : BORNE DE LECTURE DE NLRDDH POUR CHAQUE BANDE
+!     NUXDDH : BORNE DE LECTURE DE NURDDH POUR CHAQUE DOMAINE DE CHAQUE PLAN
+
+!     HDSFLA : POIDS DE CHAQUE BANDE DE LATITUDE
+!     HDSFDU : POIDS DE CHAQUE DOMAINE UTILISATEUR
+!     HDSFGL : POIDS POUR LES MOYENNES GLOBALES
+!     HDSF : POIDS DE CHAQUE POINT DE LA GRILLE PHYSIQUE
+
+!     POINTEURS
+
+! ---- DDH
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(bdeddh,fnoddh,hdsfgl,ndhaend,ndhaenp,ndhahkd,ndhahkp,ndhamcd)
+!$OMP THREADPRIVATE(ndhamcp,ndhavd,ndhavp,ndhbend,ndhbenp,ndhbhkd,ndhbhkp,ndhbmcd)
+!$OMP THREADPRIVATE(ndhbmcp,ndhbpu,ndhbpx,ndhbvd,ndhbvp,ndhcs,ndhcssu,ndhcv,ndhcvsu)
+!$OMP THREADPRIVATE(ndhcvsul,ndhcvsun,ndhddx,ndhfend,ndhfenp,ndhffs,ndhfhkd,ndhfhkp)
+!$OMP THREADPRIVATE(ndhfiis,ndhfmcd,ndhfmcp,ndhfsd,ndhfsp,ndhfsss,ndhftis,ndhftls)
+!$OMP THREADPRIVATE(ndhftss,ndhftts,ndhfvd,ndhfvp,ndhfwls,ndhidh,ndhkd,ndhnom,ndhnpu)
+!$OMP THREADPRIVATE(ndhten,ndhthk,ndhtmc,ndhven,ndhvfs,ndhvhk,ndhviis,ndhvmc,ndhvs)
+!$OMP THREADPRIVATE(ndhvsss,ndhvtis,ndhvtls,ndhvtss,ndhvtts,ndhvv,ndhvwls,ndhzpr)
+!$OMP THREADPRIVATE(hdsf,hdsfdu,hdsfla,nddhi,nddhla,nddhpu,nlrddh,nlxddh,nurddh,nuxddh)
+END MODULE YOMMDDH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yommp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yommp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yommp.F90	(revision 3330)
@@ -0,0 +1,481 @@
+MODULE YOMMP
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+! ----------------------------------------------------------------------
+!*    variables describing distributed memory parallelization
+
+! ---------------------------------------
+
+!  mp_type     :  1=blocked   (MPI_SEND/RECV)
+!              :  2=buffered  (MPI_BSEND/MPI_BRECV)
+!              :  3=immediate (MPI_ISEND/MPI_IRECV)
+!  mbx_size    :  user-provided mailbox size
+
+!  myproc      :  logical processor id (is in the range 1 to nproc)
+!  myseta      :  own processor set a (is in the range 1 to nprgpns)
+!  mysetb      :  own processor set b (is in the range 1 to nprgpew)
+!  my_region_ns:  own processor set a (is in the range 1 to n_regions_ns)
+!  my_region_ew:  own processor set b (is in the range 1 to n_regions_ew)
+!  mysetw      :  own processor set a in wave space (1..nprtrw)   
+!  mysetv      :  own processor set b in wave space (1..nprtrv)    
+!  mysetm      :  own processor set a in spectral space (1..nprtrm)    
+!  mysetn      :  own processor set b in spectral space (1..nprtrn)    
+!  mysetaf     :  own processor set a in Fourier space (is in the range
+!                   1 to nprocc)
+!  ngpset2pe   :  grid point space processor mapping array (n_regions_ns,n_regions_ew)
+!  nslpad      :  number of pad words initialised to a huge number at either
+!                 of side of the sl halo, used to trap halo problems.
+!                 The default is 0. 
+!  nintype     :  type in input processing to be performed
+!              :  1=pbio
+!              :  2=mpi-io (future)
+!  nouttype    :  type of output (post) processing to be performed
+!              :  1=pbio
+!              :  2=output to FDB
+!              :  3=shared blocking MPI-I/O
+!              :  4=shared blocking collective MPI-I/O
+!              :  5=shared non-blocking MPI_I/O
+!              :  6=shared non-blocking collective MPI_I/O
+!  nstrin      :  number of processors required to perform input processing
+!  nstrout     :  number of processors required to perform output processing
+!  ngathout    :  to be described
+!  nwrtout     :  to be described
+!  nblkout     :  to be described
+!  nfldin      :  number of input  fields to be buffered during distribution
+!  nfldout     :  number of output fields to be buffered during gathering
+!  nprcids(nproc) : array containing the process ids. It is the mapping
+!                 between the process numbering in the application
+!                 (from 1 to NPROC) and the numbering used by the
+!                 underlying communication library.
+
+!  lockio      :  io to be done in locked regions (.true.)
+
+!  lsplit      :  true - latitudes are shared between a-sets
+!                 false - a latitude belongs to only one a-set
+!  leq_regions :  true - use new eq_regions partitioning
+!                 false - use old NPRGPNS x NPRGPEW partitioning
+!  lsplitout   :  output data provided in sequential files (.true.) or
+!                 in directories (.false.)
+!  limp        :  true: immediate message passing in transposition routines
+!  limp_noolap :  true: isend/irecv with no overlap of message passing and 
+!                       packing of buffers
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPRCIDS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGPSET2PE(:,:)
+LOGICAL :: LSPLIT
+LOGICAL :: LEQ_REGIONS
+LOGICAL :: LSPLITOUT
+LOGICAL :: LOCKIO
+LOGICAL :: LIMP
+LOGICAL :: LIMP_NOOLAP
+
+INTEGER(KIND=JPIM) :: MP_TYPE
+INTEGER(KIND=JPIM) :: MBX_SIZE
+INTEGER(KIND=JPIM) :: MYPROC
+INTEGER(KIND=JPIM) :: MYSETA
+INTEGER(KIND=JPIM) :: MYSETB
+INTEGER(KIND=JPIM) :: MYSETW
+INTEGER(KIND=JPIM) :: MYSETV
+INTEGER(KIND=JPIM) :: MYSETM
+INTEGER(KIND=JPIM) :: MYSETN
+INTEGER(KIND=JPIM) :: MY_REGION_NS
+INTEGER(KIND=JPIM) :: MY_REGION_EW
+INTEGER(KIND=JPIM) :: NSTRIN
+INTEGER(KIND=JPIM) :: NSTROUT
+INTEGER(KIND=JPIM) :: NFLDIN
+INTEGER(KIND=JPIM) :: NFLDOUT
+INTEGER(KIND=JPIM) :: NSLPAD
+INTEGER(KIND=JPIM) :: NINTYPE
+INTEGER(KIND=JPIM) :: NOUTTYPE
+INTEGER(KIND=JPIM) :: NGATHOUT
+INTEGER(KIND=JPIM) :: NWRTOUT
+INTEGER(KIND=JPIM) :: NBLKOUT
+
+! ----------------------------------------------------------------------
+
+!*    common block describing the partitioning of data
+
+! ----------------------------------------------------
+
+!  nprocm(0:ncmax) :  gives process which is responsible for Legendre
+!             transforms, nmi, and spectral space calculations for a
+!             certain wave number m
+!  numprocfp(nfprgpg) : gives process which is responsible for FULL-POS
+!             horizontal interpolation point. This is only used in
+!             FULL-POS.
+!  numpp(n_regions_ns) : the number of wave numbers each a-set is responsible
+!             for. As aspecial case NUMP = NUMPP(MYSETA).
+!  numxpp(n_regions_ns) : Similar to NUMPP() but for NXMAX.
+!  nallms(0:max(nsmax,nmsmax)) :  wave numbers for all a-set concate-
+!             nated together to give all wave numbers in a-set order.
+!             Used when global spectral norms have to be gathered.
+!  nptrms(n_regions_ns)  :  pointer to the first wave number of a given a-set
+!             in nallms array.
+!  mylats(1:ndgenl) if LMESSP else mylats(ndgsag:ndgeng) : mapping
+!             between physical latitude number and local latitude number
+!             in grid point space on this process. This is identical
+!             for all processes within an a-set
+!  nptrls(n_regions_ns) : pointer to first global latitude of each a-set
+!             for which it performs the Fourier calculations
+!  nptrlsf(n_regions_ns) : pointer to first global latitude of each a-set
+!             for which it performs the Fourier calculations
+!  nfrstlat(n_regions_ns) : first lat of each a-set in grid-point space
+!  nfrstloff: offset for first lat of own a-set in grid-point space,
+!             i.e. nfrstloff=nfrstlat(my_region_ns)-1
+!  nlstlat(n_regions_ns) : last lat of each a-set in grid-point space
+!  nptrfrstlat(n_regions_ns) : pointer to the first latitude of each a-set in
+!             NSTA and NONL arrays
+!  nptrlstlat(n_regions_ns) : pointer to the last latitude of each a-set in
+!             NSTA and NONL arrays
+!  nptrfloff    : offset for pointer to the first latitude of own a-set
+!               NSTA and NONL arrays, i.e. nptrfrstlatf(my_region_ns)-1
+!  nptrlat      : pointer to start of latitude in grid-point space
+!  lsplitlat(ndglg) : true if latitude is split in grid point space
+!              over two a-sets
+!  myfrstactlat : first actual lat on this PE in grid-point space,
+!                 it is nfrstlat(my_region_ns)
+!  mylstactlat  : last actual lat on this PE in grid-point space,
+!                 it is nlstlat(my_region_ns)
+! ------------------------------------------------------------------
+!  nptrsv(nprtrw+1) :  pointer to first spectral wave column to be
+!             handled by each b-set. Used for semi-implicit calculations
+!             and Jb vertical transforms, and only really if nprtrv>1.
+!  nptrcv(nprtrv+1) :  As nptrsv but for ncmax arrays
+!  nptrtv(nprtrv+1) :  As nptrsv but for ntmax arrays
+!  nptrsvf(nprtrv+1) :  As nptrsv but for the case where full m-columns
+!             have to be treated by one processor for the vertical
+!             spectral calculations. This is the case if implicit
+!             treatment of Coriolis terms is used and in other cases.
+!  nptrmf(nprtrv+1)  :  Distribution of m-columns among b-sets used for
+!             the full m-column cases where nptrsvf() is used.
+!  nspstaf(0:nsmax) : pointer to where each m-column starts (used for
+!             the full m-column cases where nptrsvf() is used.
+!  numll(nprtrv+1) :  distribution of levels among b-sets for Legendre
+!             transforms, FFT and horizontal diffusion.
+!             To simplify coding numll(nprtrv+1) is defined to zero.
+!  numvmo(nprtrv) :  number of vertical normal modes on each b-set
+!  numvmojb(nprtrv) : number of vertical normal modes on each b-set for
+!             Jb computations
+!  nptrll(nprtrv+1) :  defines the first level treated on each b-set
+!             To simplify coding nptrll(nprtrv+1)=nptrll(nprtrv)
+!  npsp    :  =1 if surface pressure is handled by this processor for
+!             the Legendre Trasforms and FFT calculations. npsp is
+!             the same for all processors within a b-set.
+!  npsurf(nprtrv)  :  contains the npsp-values for each b-set
+!  nbsetlev(nflevg) :  the b-set on which a level belongs. Please use
+!              global indexing.
+!  nbsetsp :  the b-set on which the surface pressure belongs.
+!  mylevs(nflevl) :  mapping between local and global numbering for the
+!             levels handled by this process.
+!  nvmodist(nvmodmxpp,nprtrv) : normal modes mapped to the different
+!             b-sets. The same distribution strategy is used for NMI and
+!             Jb calculations. The number of modes is usually larger
+!             for Jb caluclations.
+!  nspec2v :  number of spectral columns treated by this process for
+!             semi-implicit calculations and other vertical transforms
+!  ncpec2v :  like nspec2v for NCMAX arrays
+!  ntpec2v :  like nspec2v for NTMAX arrays
+!  nspec2vf:  number of spectral columns treated by this process for
+!             semi-implicit calculations for the full m-column cases.
+!             See nptrsvf().
+!  nsta(ndgsag:ndgeng+n_regions_ns-1,n_regions_ew) :  Position of first grid column
+!             for the latitudes on a processor. The information is
+!             available for all processors. The b-sets are distinguished
+!             by the last dimension of nsta(). The latitude band for
+!             each a-set is addressed by nptrfrstlat(jaset),
+!             nptrlstlat(jaset), and nptrfloff=nptrfrstlat(my_region_ns) on
+!             this processors a-set. Each split latitude has two entries
+!             in nsta(,:) which necessitates the rather complex
+!             addressing of nsta(,:) and the overdimensioning of nsta by
+!             n_regions_ns.
+!  nonl(ndgsag:ndgeng+n_regions_ns-1,n_regions_ew)  :  number of grid columns for
+!             the latitudes on a processor. Similar to nsta() in data
+!             structure.
+!             belong to it in fourier space. Available for all n_regions_ew
+!             processors within this processors a-set.
+!  napsets :  number of apple sets at the poles. Default is zero.
+!  nglobalindex : mapping of local grid points to global grid points
+!               : used for debugging
+!  nglobalproc  : global data structure containing proc distribution
+!                 an ngptotg array that maps owning proc
+!  nlocalindex  : global data structure containing local index
+!                 an ngptotg array that maps the local index into a
+!                 ngptot array for the owning proc
+
+!  -- SLCSET and SLRSET variables (based on NSLWIDE).
+!  naslb1  :  local inner dimension of semi-Lagrangian buffer. It is
+!             the number of columns in the core+halo region on this
+!             processor.
+!  nslprocs   : semi-Lagrangian communication :  number of processors
+!             this processor needs to communicate with.
+!  nslrpt     : the number of columns received from other PE's when
+!             computing the halo for interpolations.
+!  nslspt     : the number of columns sent to other PE's when
+!             computing the halo for interpolations.
+!  nslmpbufsz : size of semi-Lagrangian communication buffer in
+!             slcomm.F. It is sized so the total requirement is kept
+!             below ncombflen.
+!  nslsta(ndgsal-nslwide:ndgenl+nslwide)  :  Start position in semi-
+!             Lagrangian buffer ZSLBUF1 of grid columns for each local
+!             and halo latitude.
+!  nslonl(ndgsal-nslwide:ndgenl+nslwide)  :  number of grid columns on
+!             each local and halo latitude in the semi-Lagrangian
+!             buffer ZSLBUF1. Only used in dm version.
+!  nsloff(ndgsal-nslwide:ndgenl+nslwide)  :  offset to the start of each
+!             local and halo latitude in the semi-Lagrangian buffer
+!             ZSLBUF1. Only used in dm version.
+!  nslext(1-ndlon:ndlon+ndlon,1-nslwide:ndgenl+nslwide) in dm version
+!  and nslext(nslext(0:ndlon+2,ndgsag:ndgeng) in sm version : pointer
+!             that makes sure addressing of points in the east-west
+!             extension zone is correct. It also handles the half
+!             latitude shift of extension latitudes at the poles.
+!             In the sm version this array is just the identity, but
+!             used in order to keep sm and dm code in common.
+!  nslsendpos: the addresses within the semi-Lagrangian buffer of point sent 
+!            from this PE.
+!  nslrecvpos: the addresses within the semi-Lagrangian buffer of point 
+!            received on this PE.
+!  nsendptr  : pointer to the first point for each of the PE's that has to 
+!            receive semi-Lagrangian halo-data from this. 
+!            Used for addressing nslsendpos().
+!  nrecvptr  : pointer to the first point for each of the PE's that are sending
+!            semi-Lagrangian halo-data to this PE. 
+!            Used for addressing nslrecvpos().
+!  nsendnum(nproc+1) : Pointing at the first semi-Lagrangian
+!            halo data entry this processor is sending to each of the
+!            other processors. The number of columns sent is equal to
+!            nsendnum(irecver+1)-nsendnum(irecver), and might be zero.
+!  nrecvnum(nproc+1) : Pointing at the first semi-Lagrangian
+!            halo data entry this processor is receiving from each of
+!            the other processors. The number of columns received is
+!            equal to nrecvnum(isender+1)-nrecvnum(isender), it might
+!            be zero.
+!  nslcore(ngptot) :  Pointer to this processors core region points
+!            within the semi-Lagrangian buffer
+!  nslcomm(nslprocs)  : semi-Lagrangian communication : list of the
+!             processors this proceesor has to communicate with.
+
+!  -- SUFPCSET and SUFPRSET variables (based on NFPWIDE).
+!  nafpb1      : FULL-POS version of naslb1
+!  nfpprocs    : FULL-POS version of nslprocs
+!  nfpmpbufsz  : FULL-POS version of nslmpbufsz
+!  nfprpt      : FULL-POS version of nslrpt
+!  nfpspt      : FULL-POS version of nslspt
+!  nfpsta      : FULL-POS version of nslsta
+!  nfponl      : FULL-POS version of nslonl
+!  nfpoff      : FULL-POS version of nsloff
+!  nfpext      : FULL-POS version of nslext
+!  nfpsendpos  : FULL-POS version of nslsendpos
+!  nfprecvpos  : FULL-POS version of nslrecvpos
+!  nfpsendptr  : FULL-POS version of nsendptr
+!  nfprecvptr  : FULL-POS version of nrecvptr
+!  nfpcore     : FULL-POS version of nslcore
+!  nfpcomm     : FULL-POS version of nslcomm
+
+!   -- SLCSET variables (based on NOBWIDE)
+!  nobsta      : observation version of nslsta
+!  nobonl      : observation version of nslonl
+!  noboff      : observation version of nsloff
+ 
+!  -- SLCSET variables (based on NRIWIDE - model grid).
+!  narib1      : Radiation input version of naslb1
+!  nriprocs    : Radiation input version of nslprocs
+!  nrimpbufsz  : Radiation input version of nslmpbufsz
+!  nrirpt      : Radiation input version of nslrpt
+!  nrispt      : Radiation input version of nslspt
+!  nrista      : Radiation input version of nslsta
+!  nrionl      : Radiation input version of nslonl
+!  nrioff      : Radiation input version of nsloff
+!  nriext      : Radiation input version of nslext
+!  nrisendpos  : Radiation input version of nslsendpos
+!  nrirecvpos  : Radiation input version of nslrecvpos
+!  nrisendptr  : Radiation input version of nsendptr
+!  nrirecvptr  : Radiation input version of nrecvptr
+!  nricore     : Radiation input version of nslcore
+!  nricomm     : Radiation input version of nslcomm
+
+!  -- SLCSET variables (based on NROWIDE - radiation grid).
+!  narob1      : Radiation input version of naslb1
+!  nroprocs    : Radiation input version of nslprocs
+!  nrompbufsz  : Radiation input version of nslmpbufsz
+!  nrorpt      : Radiation input version of nslrpt
+!  nrospt      : Radiation input version of nslspt
+!  nrosta      : Radiation input version of nslsta
+!  nroonl      : Radiation input version of nslonl
+!  nrooff      : Radiation input version of nsloff
+!  nroext      : Radiation input version of nslext
+!  nrosendpos  : Radiation input version of nslsendpos
+!  nrorecvpos  : Radiation input version of nslrecvpos
+!  nrosendptr  : Radiation input version of nsendptr
+!  nrorecvptr  : Radiation input version of nrecvptr
+!  nrocore     : Radiation input version of nslcore
+!  nrocomm     : Radiation input version of nslcomm
+
+! ------------------------------------------------------------------
+
+!  ncombflen : Size of communication buffer. This is the maximum per
+!              processor buffer space (in words) that the IFS should use
+!              for one or more sends before receives are issued from
+!              destination processors.
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMPP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMXPP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPROCM(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMPROCFP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRMS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NALLMS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRSV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRCV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRTV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRSVF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRMF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSPSTAF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMLL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMVMO(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMVMOJB(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: MYLEVS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPSURF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NSTA(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NONL(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NPTRFRSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NFRSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NLSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NBSETLEV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGLOBALINDEX(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGLOBALPROC(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLOCALINDEX(:)
+
+LOGICAL,ALLOCATABLE:: LSPLITLAT(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: MYLATS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NVMODIST(:,:)
+
+!     -- SLCSET and SLRSET variables (based on NSLWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLSENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLRECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLCORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLCOMM(:)
+
+!     -- SUFPCSET and SUFPRSET variables (based on NFPWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPRECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPRECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPCORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPCOMM(:)
+
+!     -- SLCSET variables (based on NOBWIDE)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NOBSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NOBONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NOBOFF(:)
+
+!     -- SLCSET variables (based on NRIWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRISTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRISENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRISENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRICORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRICOMM(:)
+
+!     -- SLCSET variables (based on NROWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROSENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRORECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROSENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRORECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROCORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROCOMM(:)
+
+INTEGER(KIND=JPIM) :: NUMXP
+INTEGER(KIND=JPIM) :: NPSP
+INTEGER(KIND=JPIM) :: NSPEC2V
+INTEGER(KIND=JPIM) :: NCPEC2V
+INTEGER(KIND=JPIM) :: NTPEC2V
+INTEGER(KIND=JPIM) :: NSPEC2VF
+INTEGER(KIND=JPIM) :: NBSETSP
+INTEGER(KIND=JPIM) :: NFRSTLOFF
+INTEGER(KIND=JPIM) :: MYFRSTACTLAT
+INTEGER(KIND=JPIM) :: MYLSTACTLAT
+INTEGER(KIND=JPIM) :: NAPSETS
+INTEGER(KIND=JPIM) :: NPTRFLOFF
+INTEGER(KIND=JPIM) :: NCOMBFLEN
+
+!     -- scalar integers depending on NSLWIDE.
+
+INTEGER(KIND=JPIM) :: NASLB1
+INTEGER(KIND=JPIM) :: NSLPROCS
+INTEGER(KIND=JPIM) :: NSLMPBUFSZ
+INTEGER(KIND=JPIM) :: NSLRPT
+INTEGER(KIND=JPIM) :: NSLSPT
+
+!     -- scalar integers depending on NFPWIDE.
+
+INTEGER(KIND=JPIM) :: NAFPB1
+INTEGER(KIND=JPIM) :: NFPPROCS
+INTEGER(KIND=JPIM) :: NFPMPBUFSZ
+INTEGER(KIND=JPIM) :: NFPRPT
+INTEGER(KIND=JPIM) :: NFPSPT
+
+!     -- scalar integers depending on NRIWIDE.
+
+INTEGER(KIND=JPIM) :: NARIB1
+INTEGER(KIND=JPIM) :: NRIPROCS
+INTEGER(KIND=JPIM) :: NRIMPBUFSZ
+INTEGER(KIND=JPIM) :: NRIRPT
+INTEGER(KIND=JPIM) :: NRISPT
+
+!     -- scalar integers depending on NROWIDE.
+
+INTEGER(KIND=JPIM) :: NAROB1
+INTEGER(KIND=JPIM) :: NROPROCS
+INTEGER(KIND=JPIM) :: NROMPBUFSZ
+INTEGER(KIND=JPIM) :: NRORPT
+INTEGER(KIND=JPIM) :: NROSPT
+
+! ----------------------------------------------------------------------
+
+!$OMP THREADPRIVATE(leq_regions,limp,limp_noolap,lockio,lsplit,lsplitout,mbx_size,mp_type,my_region_ew,my_region_ns)
+!$OMP THREADPRIVATE(myfrstactlat,mylstactlat,myproc,myseta,mysetb,mysetm,mysetn,mysetv,mysetw,nafpb1,napsets,narib1)
+!$OMP THREADPRIVATE(narob1,naslb1,nblkout,nbsetsp,ncombflen,ncpec2v,nfldin,nfldout,nfpmpbufsz,nfpprocs,nfprpt,nfpspt)
+!$OMP THREADPRIVATE(nfrstloff,ngathout,nintype,nouttype,npsp,nptrfloff,nrimpbufsz,nriprocs,nrirpt,nrispt,nrompbufsz)
+!$OMP THREADPRIVATE(nroprocs,nrorpt,nrospt,nslmpbufsz,nslpad,nslprocs,nslrpt,nslspt,nspec2v,nspec2vf,nstrin,nstrout)
+!$OMP THREADPRIVATE(ntpec2v,numxp,nwrtout)
+!$OMP THREADPRIVATE(lsplitlat,mylats,mylevs,nallms,nbsetlev,nfpcomm,nfpcore,nfpext,nfpoff,nfponl,nfprecvpos,nfprecvptr)
+!$OMP THREADPRIVATE(nfpsendpos,nfpsendptr,nfpsta,nfrstlat,nglobalindex,nglobalproc,ngpset2pe,nlocalindex,nlstlat,noboff)
+!$OMP THREADPRIVATE(nobonl,nobsta,nonl,nprcids,nprocm,npsurf,nptrcv,nptrfrstlat,nptrlat,nptrll,nptrls,nptrlstlat,nptrmf)
+!$OMP THREADPRIVATE(nptrms,nptrsv,nptrsvf,nptrtv,nrecvptr,nricomm,nricore,nriext,nrioff,nrionl,nrirecvpos,nrirecvptr)
+!$OMP THREADPRIVATE(nrisendpos,nrisendptr,nrista,nrocomm,nrocore,nroext,nrooff,nroonl,nrorecvpos,nrorecvptr,nrosendpos)
+!$OMP THREADPRIVATE(nrosendptr,nrosta,nsendptr,nslcomm,nslcore,nslext,nsloff,nslonl,nslrecvpos,nslsendpos,nslsta)
+!$OMP THREADPRIVATE(nspstaf,nsta,numll,numpp,numprocfp,numvmo,numvmojb,numxpp,nvmodist)
+END MODULE YOMMP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomoml.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomoml.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomoml.F90	(revision 3330)
@@ -0,0 +1,205 @@
+MODULE YOMOML
+
+!-- the following system specific omp_lib-module is not always available (e.g. pgf90)
+!! use omp_lib
+
+USE PARKIND1  ,ONLY : JPIM, JPIB
+
+!**SS/18-Feb-2005
+!--Dr.Hook references removed, because these locks may also be
+!  called from within drhook.c itself !! 
+!--Also, there could be considerable & unjustified overhead
+!  when using Dr.Hook in such a low level
+
+!**SS/15-Dec-2005
+!--The size of lock-variables are now OMP_LOCK_KIND as of in OMP_LIB,
+!  and OMP_LOCK_KIND is aliased to OML_LOCK_KIND
+!  OMP_LOCK_KIND is usually 4 in 32-bit addressing mode
+!                           8 in 64-bit addressing mode
+!--M_OML_LOCK changed to M_EVENT and kept as 32-bit int
+!--OML_FUNCT changed to OML_TEST_EVENT
+!--M_LOCK initialized to -1
+!--M_EVENT initialized to 0
+!--Added intent(s)
+!--Support for omp_lib (but not always available)
+!--Locks can now also be set/unset OUTSIDE the parallel regions
+!--Added routine OML_TEST_LOCK (attempts to set lock, but if *un*successful, does NOT  block)
+!--Buffer-zone for M_LOCK; now a vector of 2 elements in case problems/inconsistencies with OMP_LOCK_KIND 4/8
+
+!**SS/22-Feb-2006
+!--Locking routines are doing nothing unless OMP_GET_MAX_THREADS() > 1
+!  This is to avoid unacceptable deadlocks/timeouts with signal handlers when
+!  the only thread receives signal while inside locked region
+!--Affected routines: OML_TEST_LOCK()  --> always receives .TRUE.
+!                     OML_SET_LOCK()   --> sets nothing
+!                     OML_UNSET_LOCK() --> unsets nothing
+!                     OML_INIT_LOCK()  --> inits nothing
+
+!**SS/11-Sep-2006
+!--Added OML_DEBUG feature
+
+IMPLICIT NONE
+
+SAVE
+
+PRIVATE
+
+LOGICAL :: OML_DEBUG = .FALSE.
+!$OMP THREADPRIVATE(OML_DEBUG)
+
+PUBLIC OML_WAIT_EVENT, OML_SET_EVENT, OML_INCR_EVENT, &
+   &   OML_MY_THREAD,  OML_MAX_THREADS , OML_OMP, &
+   &   OML_IN_PARALLEL, OML_TEST_EVENT, &
+   &   OML_UNSET_LOCK, OML_INIT_LOCK, OML_SET_LOCK, OML_DESTROY_LOCK, &
+   &   OML_LOCK_KIND, OML_TEST_LOCK, OML_DEBUG
+
+!-- The following should normally be 4 in 32-bit addressing mode
+!                                    8 in 64-bit addressing mode
+! Since system specific omp_lib-module is not always available (e.g. pgf90)
+! we hardcode OML_LOCK_KIND to JPIB (usually 8) for now
+!!INTEGER(KIND=JPIM), PARAMETER :: OML_LOCK_KIND = OMP_LOCK_KIND
+INTEGER(KIND=JPIM), PARAMETER :: OML_LOCK_KIND = JPIB
+
+!-- Note: Still JPIM !!
+INTEGER(KIND=JPIM) :: M_EVENT = 0
+!$OMP THREADPRIVATE(M_EVENT)
+
+!-- Note: OML_LOCK_KIND, not JPIM !!
+INTEGER(KIND=OML_LOCK_KIND) :: M_LOCK(2) = (/-1, -1/)
+!$OMP THREADPRIVATE(M_LOCK)
+
+CONTAINS
+
+FUNCTION OML_OMP()
+LOGICAL :: OML_OMP
+OML_OMP=.FALSE.
+!$ OML_OMP=.TRUE.
+END FUNCTION OML_OMP
+
+FUNCTION OML_IN_PARALLEL()
+LOGICAL :: OML_IN_PARALLEL
+!$ LOGICAL :: OMP_IN_PARALLEL
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+OML_IN_PARALLEL=.FALSE.
+!$ OML_IN_PARALLEL=((OMP_GET_MAX_THREADS() > 1).AND.OMP_IN_PARALLEL())
+END FUNCTION OML_IN_PARALLEL
+
+FUNCTION OML_TEST_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+LOGICAL :: OML_TEST_LOCK
+!$ LOGICAL :: OMP_TEST_LOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+OML_TEST_LOCK = .TRUE.
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     OML_TEST_LOCK = OMP_TEST_LOCK(MYLOCK)
+!$   ELSE
+!$     OML_TEST_LOCK = OMP_TEST_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END FUNCTION OML_TEST_LOCK
+
+SUBROUTINE OML_UNSET_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     CALL OMP_UNSET_LOCK(MYLOCK)
+!$   ELSE
+!$     CALL OMP_UNSET_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END SUBROUTINE OML_UNSET_LOCK
+
+SUBROUTINE OML_SET_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     CALL OMP_SET_LOCK(MYLOCK)
+!$   ELSE
+!$     CALL OMP_SET_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END SUBROUTINE OML_SET_LOCK
+
+SUBROUTINE OML_INIT_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     CALL OMP_INIT_LOCK(MYLOCK)
+!$   ELSE
+!$     CALL OMP_INIT_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END SUBROUTINE OML_INIT_LOCK
+
+SUBROUTINE OML_DESTROY_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ IF(PRESENT(MYLOCK))THEN
+!$   CALL OMP_DESTROY_LOCK(MYLOCK)
+!$ ELSE
+!$   CALL OMP_DESTROY_LOCK(M_LOCK(1))
+!$ ENDIF
+END SUBROUTINE OML_DESTROY_LOCK
+
+FUNCTION OML_TEST_EVENT(K,MYEVENT)
+LOGICAL :: OML_TEST_EVENT
+INTEGER(KIND=JPIM),intent(in) :: K,MYEVENT
+IF(K.EQ.MYEVENT) THEN
+ OML_TEST_EVENT =.TRUE.
+ELSE
+ OML_TEST_EVENT=.FALSE.
+ENDIF
+END FUNCTION OML_TEST_EVENT
+
+SUBROUTINE OML_WAIT_EVENT(K,MYEVENT)
+INTEGER(KIND=JPIM),intent(in) :: K
+INTEGER(KIND=JPIM),intent(in),OPTIONAL :: MYEVENT
+IF(PRESENT(MYEVENT))THEN
+  DO
+    IF(OML_TEST_EVENT(K,MYEVENT)) EXIT
+  ENDDO
+ELSE
+  DO
+    IF(OML_TEST_EVENT(K,M_EVENT)) EXIT
+  ENDDO
+ENDIF
+END SUBROUTINE OML_WAIT_EVENT
+
+SUBROUTINE OML_SET_EVENT(K,MYEVENT)
+INTEGER(KIND=JPIM),intent(in) :: K
+INTEGER(KIND=JPIM),intent(out),OPTIONAL :: MYEVENT
+IF(PRESENT(MYEVENT))THEN
+  MYEVENT=K
+ELSE
+  M_EVENT=K
+ENDIF
+END SUBROUTINE OML_SET_EVENT
+
+SUBROUTINE OML_INCR_EVENT(K,MYEVENT)
+INTEGER(KIND=JPIM) :: K
+INTEGER(KIND=JPIM),intent(inout),OPTIONAL :: MYEVENT
+IF(PRESENT(MYEVENT))THEN
+  MYEVENT=MYEVENT+K
+ELSE
+  M_EVENT=M_EVENT+K
+ENDIF
+END SUBROUTINE OML_INCR_EVENT
+
+FUNCTION OML_MY_THREAD()
+INTEGER(KIND=JPIM) :: OML_MY_THREAD
+!$ INTEGER(KIND=JPIM) OMP_GET_THREAD_NUM
+OML_MY_THREAD = 1
+!$ OML_MY_THREAD = OMP_GET_THREAD_NUM() + 1
+END FUNCTION OML_MY_THREAD
+
+FUNCTION OML_MAX_THREADS()
+INTEGER(KIND=JPIM) :: OML_MAX_THREADS
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+OML_MAX_THREADS = 1
+!$ OML_MAX_THREADS = OMP_GET_MAX_THREADS()
+END FUNCTION OML_MAX_THREADS
+
+END MODULE YOMOML
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy.F90	(revision 3330)
@@ -0,0 +1,424 @@
+MODULE YOMPHY
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+
+!     VARIABLES DE CONTROLE DE LA PHYSIQUE :
+
+! * GROUPE DES CLES GENERALES.
+!        LMPHYS  : CLE GENERALE POUR LES PARAMETRISATIONS METEO-FRANCE.
+!                : GLOBAL SWITCH FOR METEO-FRANCE PACKAGE.
+!        LREASUR : TRUE, ON LIT LES CHAMPS DE SURFACE.
+!                : TRUE, SURFACE FIELDS ARE READ.
+
+! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
+!        LCAPE   : CLE ACTIVANT LA FERMETURE EN CAPE SI LCVRA.
+!                : KEY ACTIVATING THE CAPE CLOSURE IF LCVRA.
+!        LCONDWT : CLE ACTIVANT l'EAU LIQUIDE.
+!                : KEY ACTIVATING LIQUID WATER.
+!        LCVCAS  : CLE ACTIVANT LE CALCUL DES SEGMENTS CONVECTIFS ACTIFS.
+!                : KEY ACTIVATING CONVECTIVE ACTIVE SEGMENTS COMPUTATION.
+!        LSCMF   : CLE ACTIVANT LE CALCUL DE FRACTIONS MAILLE SIGNIFICATIVES  
+!                  KEY ACTIVATING SIGNIFICANT MESH FRACTIONS.
+!        LCVDD   : CLE ACTIVANT LE CALCUL DES DOWNDRAFTS.
+!                : KEY FOR DOWNDRAFT COMPUTATIONS.
+!        LCVLIS  : LORS DU TRAITEMENT PAR LA CONVECTION
+!                  DES FLUX DIFFUSIFS TURBULENTS SECS,
+!                  CLE ACTIVANT LE TRAITEMENT CONSISTANT DE S ET Q.
+!                : KEY TO COMPUTE CONSISTENTLY FOR S AND Q
+!                  CONVECTION AND DRY TURBULENT PROCESSES INTERACTION.
+!        LCVPGY  : CLE ACTIVANT LES CALCULS DE CONVECTION PROFONDE GY.
+!                : KEY ACTIVATING GY CONVECTION CALCULATIONS.
+!        LCVPP   : CLE ACTIVANT LES CALCULS DE CONVECTION PEU PROFONDE.
+!                : KEY ACTIVATING SHALLOW-CONVECTION CALCULATIONS.
+!        LCVPPKF : KEY ACTIVATING THE KFB SCHEME (SHALLOW-CONVECTION).
+!       LDIFCONS : CLE ACTIVANT LA DIFFUSION DES VARIABLES CONSERVATIVES.
+!                : KEY ACTIVATING VERTICAL DIFFUSION ON CONSERVATIVE VARIABLES.
+!        LECT    : CLE ACTIVANT LA DIFFUSION ECT.
+!                : KEY ACTIVATING TKE DIFFUSION.
+!        LPTKE   : CLE ACTIVANT LA DIFFUSION ECT PSEUDO PROGNOSTIQUE.
+!                : KEY ACTIVATING PSEUDO PROGNOSTIC TKE DIFFUSION.
+!        LPBLE   : CLE POUR ENTRAINEMENT AU SOMMET DE COUCHE LIMITE (IF LECT).
+!                  KEY ACTIVATING THE PBL TOP-ENTRAINMENT RATE.
+!        LFPCOR  : CLE POUR UTILISATION DU FLUX DE PRECIP. CONVECTIF LISSE POUR !                  LA NEBUL.
+!                : KEY FOR THE USE OF A SMOOTH FLUX OF CONVECTIVE RAIN FOR THE 
+!                  CLOUD COVER.
+!        LHUNEG  : CLE POUR LA CORRECTION DES HUMIDITES NEGATIVES.
+!                : KEY FOR CORRECTION OF NEGATIVE HUMIDITIES.
+!        LNEBNXR : CLE ACTIVANT LE CALCUL DE NEBULOSITE XU/RANDALL.
+!                : KEY FOR USING XU/RANDALL CLOUDINESS FORMULATION.
+!        LHUCN   : CLE ACTIVANT LE NOUVEAU CALCUL D'HUMIDITE CRITIQUE.
+!                : KEY FOR USING NEW FORMULATION OF CRITICAL HUMIDITY.
+!        LQXRTGH : CLE ACTIVANT LE CALCUL DE LA COURBE TANGENT HYPERBOLIQUE
+!                  DE RH DANS LE SCHEMA DE NEBULOSITE XU/RANDALL.
+!                : KEY FOR USING TANGENS HYPERBOLIC FUNCTION OF RH PROFILE
+!                  IN THE XU/RANDALL CLOUDINESS FORMULATION.
+!        LNEIGE  : CLE POUR LA PRISE EN COMPTE DU CYCLE CRYOSCOPIQUE.
+!                : KEY FOR THE CRYOSCOPIC CYCLE (PHYSICS AND THERMODS.).
+!        LRNUMX  : CLE ACTIVANT LE RECOUVREMENT NUAGEUX MAX. EN RAYONMT.
+!                : KEY FOR MAX. OVERLAP OF ADJACENT RADIATIVE CLOUDS.
+!        LCLSATUR: CLE ACTIVANT LA DEPENDANCE SUR LA SATURATION DE LA GLACE
+!                  ET L'EAU LIQUIDE DANS LE NUAGE.
+!                : KEY FOR DEPENDENCY ON IWC/LWC SATURATION.
+!        LVOIGT  : CLE ACTIVANT L'EFFET DE VOIGT DANS ACRANEB
+!                  KEY FOR VOIGT EFFECT IN ACRANEB.
+!        LVFULL  : CLE ACTIVANT LE CALCUL COMPLET D'EFFET VOIGT (PLUS CHER)
+!                  KEY FOR COMPREHENSIVE COMPUTATION OF VOIGT EFFECT
+!        LRRGUST : CLE ACTIVANT L'INFLUENCE DES "RAFALES HUMIDES" DANS LE
+!                : CALCUL DES COEFFICIENTS TURBULENTS.
+!                : KEY ACTIVATING "MOIST GUSTINESS" INFLUENCE IN TURBULENT 
+!                : COEFFICIENTS COMPUTATION.
+!        LSRCON  : CLE ACTIVANT LA SOUSTRACTION DES PRECIPITATIONS RESOLUES
+!                  DE LA CONVERGENCE D'HUMIDITE AVANT APPEL DE LA CONVECTION PROFONDE.
+!                : KEY TO SUBSTRACT GRID-SCALE PRECIPITATION FROM MOISTURE CONVERGENCE
+!                  BEFORE PASSING IT TO DEEP CONVECTION.
+!        LSRCONT : CLE ACTIVANT LA SOUSTRACTION DES PRECIPITATIONS RESOLUES
+!                  DE L'ENERGIE EN ENTREE DE LA CONVECTION PROFONDE.
+!                : KEY TO SUBSTRACT GRID-SCALE PRECIPITATION FROM THE ENERGY FLUXES
+!                  IN INPUT TO DEEP CONVECTION.
+!        LSLC    : CLE ACTIVANT LA CONVECTION EN PENTE
+!                : KEY FOR SLANTWISE CONVECTION
+!        LNOIAS  : CLE COUPANT LA CONVECTION POUR DE L INSTABILITE ABSOLUE SECHE.
+!                : STOP CONVECTION IN THE CASE OF DRY ABSOLUT INSTABILITY.
+!        L2PHYS  : CLE ACTIVANT LE DOUBLE APPEL A APLPAR.
+!                : KEY FOR 2 APLPAR CALLS.
+!        LRAYLU  : CLE D'APPEL DU RAYONNEMENT LUNAIRE.
+!                : KEY FOR CALLING THE MOON RADIATION.
+!                  (IN ACRANEB ).
+!        LREWS   : CLE D'APPEL DE L'OPTION ECHANGE AVEC LA SURFACE
+!                : KEY FOR CALLING THE ECHANGE WITH SURFACE OPTION 
+!                  (IN ACRANEB)
+!        LRPROX  : CLE D'APPEL DE L'OPTION D'ECHANGE INTER-NIVEAU APPROCHE
+
+!        LRMIX   : ACTIVATION DU CALCUL DE ZMIX (SEE JFG POUR PLUS DE PRECISION)
+!                  EPAISSEUR OPTIQUE QQ PART ENTRE MIN ET MAX (ZMIX=0 OU 1)
+!                  (POUR LES ECHANGES INTER-NIVEAUX)
+
+!        LRSTAB  :  STABILISATION
+
+!        LRAUTOEV: CALCUL EXACT DONC TRES COUTEUX DES ECHANGES INTER-NIVEAUX
+
+!        LRTPP   : SI .T. L'ECHANGE ENTRE COUCHES ADJACENTES TIENT COMPTE DU 
+!                  PROFIL CONTINU DE "T"
+!                  IF .T. EXCHANGE TERMS BETWEEN ADJACENT LAYERS USE A 
+!                  CONTINUOUS "T" PROFILE
+!        LRTDL   : SI .T. LES CALCULS D'ECHANGE ENTRE COUCHES ADJACENTES 
+!                  NE SONT PLUS LINEARISES
+!                  IF .T. EXCHANGE TERMS BETWEEN ADJACENT LAYERS ARE TREATED 
+!                  FULLY NONLINEARLY
+!        LRAYPL  : CLE DE RECHERCHE DES PLAGES JOUR/NUIT.
+!                : KEY TO LOOK FOR DAY/NIGHT AREAS.
+!                  (IN ACRANEB ).
+!        LO3ABC  : CLE D'ACTIVATION DES PROFILES D'OZONE CLIMATOLOGIQUES
+!                  KEY TO USE CLIMATOLOGICAL PROFILES FOR OZONE
+!        LGLT    : CLE ACTIVANT L'UTILISATION DU VENT GEOSTROPHIQUE PLUTOT
+!                  QUE LE VENT REEL DANS LE CALCUL DU LIFT
+!                : KEY FOR USING GEOSTROPHIC WIND IN PLACE OF REAL WIND
+!                  IN THE LIFT COMPUTATION
+!        LNEWD   : CLE D'APPEL DE MODIFICATIONS RECENTES DANS LE G.W.D.
+!                : KEY FOR CALLING NEW MODIFICATIONS IN THE G.W.D.
+!        LPROCLD : KEY FOR CALLING PROGNOSTIC CLOUD PARAMETRIZATION
+!        LEVAPP  : KEY FOR ACTIVATING PRECIPITATION EVAPORATION    
+!        LCOLLEC : KEY FOR ACTIVATING COLLECTION OF CLOUD CONDENSATE 
+!                  BY PRECIPITATION
+!        LNSMLIS : KEY FOR ACTIVATING SMOOTHING OF SMITH'S CLOUDINESS
+!        LADJCLD : KEY FOR CALLING SMITH'S ADUJSTMENT AFTER DIFFUSION.
+!        LAEROSEA: KEY TO USE SEA AEROSOLS
+!        LAEROLAN: KEY TO USE LAND AEROSOLS
+!        LAEROSOO: KEY TO USE SOOT (?) AEROSOLS
+!        LAERODES: KEY TO USE DESERT AEROSOLS
+!        LAEROVOL: KEY TO USE VOLCANOES AEROSOLS
+!        LAEROSUL: KEY TO USE SULFATES AEROSOLS
+!        LRELAXT : KEY TO USE TEMPERATURE RELAXATION
+!        LRELAXW : KEY TO USE WATER CONTENT RELAXATION
+
+!        LAUTONEB: KEY FOR DOING AUTOCONVERSION BEFORE RADIATION.
+!        LSSD    : KEY ACTIVATING STATISTICAL SEDIMENTATION
+!        LZ0HSREL: CLE ACTIVANT L'UTILISATION DE Z0 THERMIQUE SANS RELIEF
+!                  KEY TO USE THERMAL ROUGHNESS LENGTH WITHOUT OROGRAPHY
+!        L3MT    : CLE ACTIVANT LE SCHEMA 3MT
+!                : KEY FOR THE 3MT SCHEME
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+!       CGMIXLEN : MNEMONIQUE PERMETTANT DE CHOISIR LE TYPE DE CALCUL DE LONGUEUR DE MELANGE.
+!                : MNEMONIC DEFINING THE KIND OF TURBULENT MIXING LENGTH COMPUTATION.
+!        LPRGML  : CLE ACTIVANT LA LONGUEUR PRONOSTIQUE DE MELANGE.
+!                : KEY FOR PROGNOSTIC MIXING LENGTH.
+!        LCVRA   : CLE D'APPEL DE LA CONVECTION PROFONDE.
+!                : KEY FOR CALLING DEEP CONVECTION.
+!                  ( ACCVIMP ).
+!        LCVPRO  : CLE D'APPEL DE LA CONVECTION PRONOSTIQUE.
+!                  KEY FOR CALLING PROGNOSTIC CONVECTION.
+!                  ( ACCVUD  ).
+!        LCDDPRO : CLE D'APPEL DU DOWNDRAFT PRONOSTIQUE.
+!                  KEY FOR CALLING PROGNOSTIC DOWNDRAFT.
+!                  ( ACMODO  ).
+!        LGWD    : CLE D'APPEL DU "GRAVITY WAVE DRAG".
+!                : KEY FOR CALLING THE "GRAVITY WAVE DRAG".
+!                  ( ACDRAG ).
+!        LGWDC   : CLE D'APPEL DU "GRAVITY WAVE DRAG" CONVECTIF.
+!                : KEY FOR CALLING THE CONVECTIVE "GRAVITY WAVE DRAG".
+!                  ( ACDRAC ).
+!        LHMTO   : CLE D'APPEL DES CALCULS AUX HAUTEURS METEO.
+!                : KEY FOR INTERPOLATIONS AT SCREEN AND "WIND" HEIGHTS.
+!                  ( ACHMT ).
+!        LNEBCO  : CLE D'APPEL DE LA NEBULOSITE CONVECTIVE.
+!                : KEY FOR SWITCHING ON THE USE OF CONV. CLOUDINESS.
+!                  ( ACNEBC ).
+!        LNEBN   : CLE D'APPEL DE LA NEBULOSITE "STRA + PREC. CONVECTIVES"
+!                : KEY FOR CALLING THE "STRATIFORM + CONV. PRECIP" CLOUDINESS SCHEME.
+!                  ( ACNEBN ).
+!        LNEBR   : CLE D'APPEL DU SCHEMA STAT. DE GENERATION DES NUAGES.
+!                : KEY FOR CALLING THE STAT. SCHEME FOR CLOUDINESS.
+!                  ( ACNEBR ).
+!        LNEBT   : CLE D'APPEL DE LA NEBULOSITE "CLASSIQUE".
+!                : KEY FOR CALLING THE CLASSICAL CLOUDINESS SCHEME.
+!                  ( ANEBT ).
+!       LND2DIFF : CLE D'APPEL DE LA NEBULOSITE DIAGNOSTIQUE POUR LA DIFFUSION
+!                : KEY FOR CALLING DIAGNOSTIC CLOUDINESS FOR DIFFUSION
+!        LOZONE  : CLE D'APPEL A LA PHYSIQUE DE L'OZONE.
+!                : KEY FOR CALLING THE OZONE'S PHYSICS.
+!                  ( ACOZONE ).
+!        LRAY    : CLE D'APPEL DU RAYONNEMENT EMERAUDE/PERIDOT.
+!                : KEY FOR CALLING THE EMERAUDE/PERIDOT RAD. SCHEME.
+!                  ( ACRANEB ).
+!        LRAYFM  : CLE D'APPEL DU RAYONNEMENT FMR CEPMMT (PHYSIQUE M-F)
+!                : KEY FOR CALLING ECMWF FMR RAD. SCHEME IN M-F PHYSICS
+!                  ( RADINT ).
+!        LRAYFM15: CLE D'APPEL DU RAYONNEMENT FMR CEPMMT (PHYSIQUE M-F)
+!                : KEY FOR CALLING ECMWF FMR RAD. SCHEME IN M-F PHYSICS
+!                : VERSION GELEE - FROZEN VERSION - PhD 96/11 ~CYCLE 15
+!                  ( RADINT15 ).
+!        LRRMES  : CLE D'APPEL AU DRAG MESOSPHERIQUE "NEWTONIEN".
+!                  KEY FOR CALLING THE MESOSPHERIC NEWTONIAN DRAG.
+!                  ( ACDRME ).
+!        LSFHYD  : CLE D'APPEL DU BILAN HYDRIQUE DU SOL "HYPER-SIMPL.".
+!                : KEY FOR HYPER-SIMPLIFIED SOIL HYDROLOGY.
+!                  ( ACDRO ).
+!        LSNV    : CLE D'APPEL DU NOUVEAU SCHEMA DE NEIGE.
+!                : KEY FOR THE NEW SNOW SCHEME.
+!                  ( ACHMT,ACSOL,ACDROV,ACVEG ).
+!        LSOLV   : CLE D'APPEL DE LA NOUVELLE PHYS. DU SOL (VEGET.).
+!                : KEY FOR NOILHAN-PLANTON SOIL AND VEGETATION SCHEME.
+!                  ( ACSOL,ACDROV,ACVEG ).
+!        LFGEL   : CLE D'APPEL DU GEL DE L'EAU DU SOL AVEC ISBA (LSOLV)
+!                : KEY FOR SOIL FREEZING WITH ISBA (LSOLV)
+!                  ( ACSOL, ACDROV)
+!        LVGSN   : CLE POUR COMBINER VEGETATION ET NEIGE
+!                : KEY FOR COMBINING VEGETATION AND SNOW
+!                  ( ACHMT,ACSOL,ACDROV,ACVEG ).
+!        LSTRA   : CLE D'APPEL DES PLUIES STRATIFORMES "CLASSIQUES".
+!                  KEY FOR CLASSICAL STRATIFORM PRECIPITATIONS.
+!                  ( ACPLUIE ).
+!        LSTRAS  : CLE D'APPEL DU SCHEMA DE STAT. DE PRECIPITATION
+!                : KEY FOR CALLING THE STAT. SCHEME FOR PRECIPITATION.
+!                  ( ACPLUIS ).
+!       LSTRAPRO : KEY FOR CALLING ACPLUIE_PROG
+!        LTHERMO : CLE D'APPEL DES CALCULS THERMODYNAMIQUES.
+!                  KEY FOR CALLING MOIST THERMODYNAMIC CALCULATIONS.
+!                  ( ACTQSAT ).
+!        LVDIF   : CLE D'APPEL DE LA DIFFUSION VERTICALE "CLASSIQUE".
+!                  KEY FOR CALLING THE VERTICAL TURBULENT EXCHANGE.
+!                  ( ACHMT,ACCOEFK,ACDIFUS ).
+!        LBLVAR  : KEY FOR CALLING SPECIFIC 2M OBS OPERATOR FROM 
+!                  LAST LEVEL (USED FOR VARPACK)
+!        LPBLE   : Top PBL Entrainment
+!       LPHCDPI  : Common dynamisc physics interfase is used if it is TRUE
+!       LPIL     : SELECTION OF LUC's PIL INSTEAD OF ORIGINAL LOPEZ
+!       LPHSPSH  : KEY FOR PSEUDO HISTORIC SURFACE PRECIP SENSIBLE HEAT
+!       LSMNIMBT : NO ICE MELTING BELOW TRIPLE POINT TEMPERATURE (ACQMESM)
+!       LSMROT   : USE ROTSTAYN FOR ICE FRACTION IN ACSMI1/ACQMESM
+!       LSMTPS   : TRIPLE POINT SMOOTHING (ACSMI1)
+!       L1DRHCRI : COMPUTE A SINGLE RHCRIT PROFILE IN LAM
+!       LGWRHCRI : USE GAW IN THE RHCRI PROFILE
+
+
+
+! * GROUPE DES INDICES DE CALCUL.
+!        NBITER : NOMBRE D'ITERATIONS DANS LES BOUCLES DE NEWTON.
+!               : NUMBER OF ITERATIONS IN THE NEWTON LOOPS.
+!        NDPSFI : INDICATEUR BINAIRE : NDPSFI=1 SI LES VARIATIONS DE LA
+!                 MASSE DE L'ATMOSPHERE DUES AU CYCLE HYDROLOGIQUE SONT
+!                 MODELISEES, NDPSFI=0 SINON.
+!               : BINARY INDICATOR : NDPSFI=1 IF THE VARIATION OF THE
+!                 ATMOSPHERIC MASS DUE TO THE HYDROLOGICAL CYCLE HAVE TO
+!                 BE TAKEN INTO ACCOUNT, NDPSFI=0 OTHERWISE.
+!        NPHYREP: REPRODUCTIBILITE DES CALCULS PHYSIQUES EN MODE MULTI-PROCESSEURS:
+!                   1 REPRODUCTIBILITE ASSUREE DANS TOUTE LA PHYSIQUE.
+!                   0 REPRODUCTIBILITE NON ASSUREE.
+!                  -1 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACCVIMP ET ACCVIMPD.
+!                  -2 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACDRAG.
+!                  -3 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACPLUI.
+!                  -4 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACRANEB.
+!               : REPRODUCTIBILITY OF PHYSICAL COMPUTATIONS IN MULTI-PROCESSORS MODE:
+!                   1 REPRODUCTIBILITY ENSURED IN THE WHOLE PHYSICS.
+!                   0 REPRODUCTIBILITY NOT ENSURED.
+!                  -1 REPRODUCTIBILITY ENSURED EXCEPT IN ACCVIMP ET ACCVIMPD.
+!                  OTHER ITEMS: SEE ABOVE THE FRENCH PART OF THE DOC.!...
+!        NOIR   : ECLIPSE OU NON? (SOLEIL NOIR!)
+!                 NOIR=1 ECLIPSE DU 11.8.1999.
+!                 NOIR=0 PAS D'ECLIPSE.
+!                 NOIR=-999 ECLIPSE TOUS LES JOURS!... (POUR TESTS D'IMPACT).
+
+!   NPHY :  Number indicating the kind of physics, for DDH
+
+!       NSMTBOT : Temperature to use for qsat at the bottom (acsmi1)
+!                     0=interpolate Ts and T_L
+!                     1=use T_L
+!       NSMDNEB : Cloudiness gradient attenuation mode (acsmi1)
+!                     0= no action
+!                     1=smoothing
+!                     2=gradient limitation with RSMDNEBX
+!       NPRAG   : 1 to activate aggregation in ACPREC
+!       NPRAC   : 1 to activate accretion in ACPREC
+!       NPRRI   : 1 to activate riming in ACPREC
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+!       LAJUCV  : CLE D'APPEL DE L'AJUSTEMENT CONVECTIF SEC
+!                  KEY FOR CALLING THE DRY CONVECTIVE ADJUSTMENT.
+!                  ( ACAJUCV ).
+!       LNEBGR  : Schema de Turb/(N,RR)stra de Herve GRENIER  (ACNEBGR)
+!       LNEBGY  : Schema de Turb/(N,RR)stra de J.F. GUEREMY   (ACNEBGY)
+!       LCVRAV3 : Schema de convect. profonde Bougeault-V3 (ACCVIMP_V3)
+!       LBCCOND : Schema de condens. de Bechtold-Chaboureau    (ACCOND)
+
+! * GROUPE DES INDICES DE CALCUL.
+INTEGER(KIND=JPIM) :: NBITER
+INTEGER(KIND=JPIM) :: NDPSFI
+! * GROUPE DES CLES GENERALES.
+LOGICAL :: LMPHYS
+LOGICAL :: LREASUR
+! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
+LOGICAL :: LCAPE
+LOGICAL :: LCONDWT
+LOGICAL :: LCVDD
+LOGICAL :: LCVPGY
+LOGICAL :: LCVPP
+LOGICAL :: LDIFCONS
+LOGICAL :: LHUNEG
+LOGICAL :: LNEIGE
+LOGICAL :: LRNUMX
+LOGICAL :: LCLSATUR
+LOGICAL :: LVOIGT
+LOGICAL :: LVFULL
+LOGICAL :: LSRCON
+LOGICAL :: LSRCONT
+LOGICAL :: LSLC
+LOGICAL :: L2PHYS
+LOGICAL :: LRAYLU
+LOGICAL :: LREWS
+LOGICAL :: LRPROX
+LOGICAL :: LRMIX
+LOGICAL :: LRSTAB
+LOGICAL :: LRAUTOEV
+LOGICAL :: LRTPP
+LOGICAL :: LRTDL
+LOGICAL :: LRAYPL
+LOGICAL :: LRRGUST
+LOGICAL :: LO3ABC
+LOGICAL :: LNEBNXR
+LOGICAL :: LQXRTGH
+LOGICAL :: LHUCN
+LOGICAL :: LFPCOR
+LOGICAL :: LNOIAS
+LOGICAL :: LGLT
+LOGICAL :: LNEWD
+LOGICAL :: LPROCLD
+LOGICAL :: LEVAPP  
+LOGICAL :: LCOLLEC 
+LOGICAL :: LADJCLD
+LOGICAL :: L3MT 
+LOGICAL :: LAEROSEA
+LOGICAL :: LAEROLAN
+LOGICAL :: LAEROSOO
+LOGICAL :: LAERODES
+LOGICAL :: LAEROVOL
+LOGICAL :: LAEROSUL
+LOGICAL :: LRELAXT
+LOGICAL :: LRELAXW
+LOGICAL :: LAUTONEB
+LOGICAL :: LSSD
+LOGICAL :: LPBLE
+LOGICAL :: LNSMLIS
+LOGICAL :: LBLVAR
+LOGICAL :: LZ0HSREL
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+CHARACTER (LEN = 20) ::  CGMIXLEN
+LOGICAL :: LPRGML
+LOGICAL :: LCVRA
+LOGICAL :: LCVPRO
+LOGICAL :: LCDDPRO
+LOGICAL :: LECT
+LOGICAL :: LPTKE
+LOGICAL :: LGWD
+LOGICAL :: LGWDC
+LOGICAL :: LHMTO
+LOGICAL :: LNEBCO
+LOGICAL :: LNEBN
+LOGICAL :: LNEBR
+LOGICAL :: LNEBT
+LOGICAL :: LND2DIFF
+LOGICAL :: LOZONE
+LOGICAL :: LRAY
+LOGICAL :: LRAYFM
+LOGICAL :: LRAYFM15
+LOGICAL :: LRRMES
+LOGICAL :: LSFHYD
+LOGICAL :: LSNV
+LOGICAL :: LSOLV
+LOGICAL :: LFGEL
+LOGICAL :: LSTRA
+LOGICAL :: LSTRAS
+LOGICAL :: LSTRAPRO
+LOGICAL :: LNEWSTAT
+LOGICAL :: LTHERMO
+LOGICAL :: LVDIF
+LOGICAL :: LFGELS
+LOGICAL :: LCVLIS
+LOGICAL :: LCVCAS
+LOGICAL :: LSCMF 
+LOGICAL :: LVGSN
+LOGICAL :: LPHCDPI
+LOGICAL :: LAJUCV
+LOGICAL :: LNEBGR
+LOGICAL :: LNEBGY
+LOGICAL :: LCVRAV3
+LOGICAL :: LBCCOND
+LOGICAL :: LCVPPKF
+LOGICAL :: LECTFL 
+INTEGER(KIND=JPIM) :: NPHYREP
+INTEGER(KIND=JPIM) :: NOIR
+LOGICAL :: LPIL
+LOGICAL :: LPHSPSH
+LOGICAL :: LSMNIMBT
+LOGICAL :: LSMROT
+LOGICAL :: LSMTPS
+LOGICAL :: L1DRHCRI
+LOGICAL :: LGWRHCRI
+INTEGER (KIND=JPIM) :: NSMTBOT
+INTEGER (KIND=JPIM) :: NSMDNEB
+INTEGER (KIND=JPIM) :: NPRAG, NPRAC, NPRRI
+INTEGER(KIND=JPIM)  :: NPHY  
+! Values that NPHY can obtain: 
+INTEGER(KIND=JPIM), PARAMETER  ::   JPHYEC =   1  ! for ECMWF physics
+INTEGER(KIND=JPIM), PARAMETER  ::   JPHYMF =   2  ! for MF physics
+INTEGER(KIND=JPIM), PARAMETER  ::  JPHYARO =   3  ! for AROME physics
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(cgmixlen,l1drhcri,l2phys,l3mt,ladjcld,laerodes,laerolan,laerosea,laerosoo,laerosul)
+!$OMP THREADPRIVATE(laerovol,lajucv,lautoneb,lbccond,lblvar,lcape,lcddpro,lclsatur,lcollec,lcondwt,lcvcas)
+!$OMP THREADPRIVATE(lcvdd,lcvlis,lcvpgy,lcvpp,lcvppkf,lcvpro,lcvra,lcvrav3,ldifcons,lect,lectfl,levapp,lfgel)
+!$OMP THREADPRIVATE(lfgels,lfpcor,lglt,lgwd,lgwdc,lgwrhcri,lhmto,lhucn,lhuneg,lmphys,lnd2diff,lnebco,lnebgr)
+!$OMP THREADPRIVATE(lnebgy,lnebn,lnebnxr,lnebr,lnebt,lneige,lnewd,lnewstat,lnoias,lnsmlis,lo3abc,lozone,lpble)
+!$OMP THREADPRIVATE(lphcdpi,lphspsh,lpil,lprgml,lprocld,lptke,lqxrtgh,lrautoev,lray,lrayfm,lrayfm15,lraylu)
+!$OMP THREADPRIVATE(lraypl,lreasur,lrelaxt,lrelaxw,lrews,lrmix,lrnumx,lrprox,lrrgust,lrrmes,lrstab,lrtdl)
+!$OMP THREADPRIVATE(lrtpp,lscmf,lsfhyd,lslc,lsmnimbt,lsmrot,lsmtps,lsnv,lsolv,lsrcon,lsrcont,lssd,lstra)
+!$OMP THREADPRIVATE(lstrapro,lstras,lthermo,lvdif,lvfull,lvgsn,lvoigt,lz0hsrel,nbiter,ndpsfi,noir,nphy)
+!$OMP THREADPRIVATE(nphyrep,nprac,nprag,nprri,nsmdneb,nsmtbot)
+END MODULE YOMPHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy0.F90	(revision 3330)
@@ -0,0 +1,726 @@
+MODULE YOMPHY0
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES PROPRES A L'ATMOSPHERE :
+!     ------------------------------------------------------------------
+!       A0ML_AU : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       A0ML_AT : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       A0ML_BU : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       A0ML_BT : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       ACG     : CONSTANTE POUR LE CALCUL DU CONTRE-GRADIENT (ECT).
+!               : PARAMETER FOR THE CONTER-GRADIENT.
+!       ADISE   : CONSTANTE DE DISSIPATION PARTIE EXPLICITE (ECT).
+!               : DISSIPATIVE PARAMETER FOR EXPLICIT PART.
+!       ADISI   : CONSTANTE DE DISSIPATION PARTIE IMPLICITE (ECT).
+!               : DISSIPATIVE PARAMETER FOR IMPLICIT PART.
+!       AECLS3  : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS.
+!               : PARAMETER FOR THE TKE CALCULATION IN TH PBL.
+!       AECLS4  : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS.
+!               : PARAMETER FOR THE TKE CALCULATION IN TH PBL.
+!       AERCS1  : PREMIER COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PDAER(KLEV).
+!               : FIRST COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PDAER(KLEV).
+!       AERCS3  : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PDAER(KLEV).
+!               : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PDAER(KLEV).
+!       AERCS5  : TROISIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PDAER(KLEV).
+!               : THIRD COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PDAER(KLEV).
+!       AHCLPV  : HAUTEUR DE LA COUCHE LIMITE POUR LONGUEUR DE MELANGE
+!                 PBL HEIGHT FOR MIXING LENGTH PROFILE COMPUTATION
+!       AKN     : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT)
+!               : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION.
+!       ALD     : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE DISSIPATION (ECT)
+!               : PARAMETER FOR THE DISSIPATION LENGTH CALCULATION.
+!       ALMAV   : LONGUEUR DE MELANGE ASYMPTOTIQUE POUR LE VENT.
+!               : MOMENTUM EXCHANGE ASYMPTOTIC MIXING LENGTH.
+!       ALPHAE  : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT).
+!               : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION.
+!       ALPHAT  : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT).
+!               : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION.
+!       BEDIFV  : COEFFICIENT DE FORME POUR LE PROFIL DE DIF. VERTICALE.
+!               : FORM COEFFICIENT FOR THE VERTICAL DIFFUSION PROFILE.
+!       ECMNP   : EPAISSEUR CRITIQUE MINIMUM DU NUAGE PRECIPITANT.
+!               : MINIMUM CRITICAL THICKNESS FOR PRECIPITATING CLOUDS.
+!       ECTMIN  : PARAMETRE POUR ECT
+!               : PARAMETER FOR TKE
+!       EDB     : DETERMINE CD ET CH AU VOISINAGE DE LA NEUTRALITE.
+!               : DETERMINES CD AND CH NEAR THE NEUTRAL REGIME.
+!       EDC     : DETERMINE CD ET CH EN REGIME ASYMPTOTIQUE INSTABLE.
+!               : DETERMINES CD AND CH IN THE ASYMPTOTIC UNST. REGIME.
+!       EDD     : DETERMINE CD ET CH EN REGIME ASYMPTOTIQUE STABLE.
+!               : DETERMINES CD AND CH IN THE ASYMPTOTIC STABLE REGIME.
+!       EDK     : DETERMINE CD ET CH EN REGIME STABLE.
+!               : DETERMINES CD AND CH IN THE STABLE REGIME.
+!       EPS     : DISSIPATION PARTIE IMPLICITE PARTIE EXPLICITE (ECT).
+!               : DISSIPATIVE PARAMETER
+!       ETACUT  : PARAMETRE DU SCHEMA DE CONVECTION EN PENTE
+!               : LIMITATION OF VORTICITY IN SHEAR-LINKED CONVECTION SCHEME
+!       EVAP    : CONSTANTE D'EVAPORATION DES PRECIPITATIONS.
+!               : PARAMETER FOR THE EVAPORATION OF PRECIPITATIONS.
+!       FONT    : CONSTANTE DE FONTE DES PRECIPITATIONS.
+!               : PARAMETER FOR THE MELTING OF PRECIPITATIONS.
+!       GALP    : COEFFICIENT DE GALPERING (SCHEMA STAT. DE NUAGE).
+!               : GALPERING COEFFICIENT (STATISTICAL CLOUD SCHEME).
+!       GCISMIN : CISAILLEMENT MINIMAL UTILISE DANS LES CALCULS TURBULENTS.
+!               : MINIMUM VALUE OF SHEAR USED IN TURBULENT COMPUTATIONS.
+!       GCCSV   : CHOIX DU CRITERE DE STABILITE VERTICALE.
+!               : VERTICAL STABILITY CRITERIA CHOICE.
+!       GCOMOD  : EXPOSANT MODULATION DE LA CONVERGENCE D'HUMIDITE
+!                 ET DE LA CONSOMMATION CAPE (CONVECTION PROFONDE)
+!               : EXPONENT USED IN MODULATION OF MOISTURE CONVERGENCE
+!                 AND CAPE CONSUMPTION (DEEP CONVECTION)
+!       GCVALFA : COEFFICIENT RELIANT LA FLOTTABILITE NUAGEUSE
+!                 AU TAUX D'ENTRAINEMENT.
+!               : COEFFICIENT TO COMPUTE ENTRAINMENT RATE FROM CLOUD BUOYANCY.
+!       GCVADS  : COEFFICIENT PERMETTANT DE PASSER D'UN CALCUL D'ADIABATIQUE
+!                 SATUREE EN EQUIPRESSION A UN CALCUL EN EQUIGEOPOTENTIEL.
+!               : COEFFICIENT TO SWITCH FROM AN EQUIPRESSURE ADIABAT COMPUTATION
+!                 TO AN EQUIGEOPOTENTIAL ONE.
+!       GCVBETA : FRACTION DE LA DIVERGENCE DU FLUX DE MASSE CONVECTIF
+!                 ENTRANT DANS LE DETRAINEMENT.
+!               : FRACTION OF CONVECTIVE MASS FLUX DIVERGENCY
+!                 USED IN DETRAINMENT COMPUTATIONS.
+!       GCVMLT  : COEFFICIENT D'HYSTERESIS DE FONTE/GEL DES PRECIPITATIONS CONVECTIVES.
+!               : PARAMETER FOR THE HYSTERESIS OF CONVECTIVE PRECIPITATIONS MELTING/FREEZING.
+!       GCVNU   : ENTRAINEMENT UTILISE POUR LE CALCUL DE LA FRACTION DE FLOTTABILITE.
+!               : ENTRAINMENT RATE TO COMPUTE DILUTE PLUME BUOYANCY.
+!       GCVPSI  : COEFFICIENT ADIMENSIONNEL FAISANT
+!                 PASSER D'UNE PRISE EN COMPTE LOCALE DES FLUX TURBULENTS (SI 1)
+!                 A UNE PRISE EN COMPTE INTEGRALE (SI 0).
+!               : ADIMENSIONAL COEFFICIENT TO GO FROM
+!                 A LOCAL USE OF TURBULENT FLUXES (IF 1)
+!                 TO AN INTEGRAL ONE (IF 0).
+!       GCVPSIE : PRESSURE EXPONENT IN THE MULTIPLICATION FACTOR OF PQSAT IN
+!                 THE NORMALIZATION INTEGRAL OF TURBULENT FLUXES, UNDER LCVLIS
+!                 SWITCH (IF 0 => PQSAT IS USED, IF 1 => PQSAT*P**GCVPSIE)
+!       GDDEVA  : DOWNDRAFTS: FRACTION DES PRECIPITATIONS EVAPOREES.
+!               : DOWNDRAFTS: PRECIPITATIONS EVAPORATION FRACTION.
+!       GDDSDE  : DOWNDRAFTS: EXPOSANT CONTROLANT LES COURANTS DESCENDANTS EN SURFACE.
+!               : DOWNDRAFTS: SURFACE DESCENDING FLOW EXPONENT.
+!       GPBLHK0 : COEFFICIENT KHI0 UTILISE DANS LE CALCUL DE HAUTEUR DE CLA.
+!               : KHI0 COEFFICIENT FOR USE IN THE PBL HEIGHT COMPUTATION.
+!       GPBLHRA : RAPPORT KHI0/KHI1 UTILISE DANS LE CALCUL DE HAUTEUR DE CLA.
+!               : RATIO KHI0/KHI1 FOR USE IN THE PBL HEIGHT COMPUTATION.
+!       GRCVPP  : COEFFICIENT DE REDUCTION DE CVPP (ACCOEFK).
+!               : REDUCTION COEFFICIENT FOR SHALLOW-CONVECTION (ACCOEFK).
+!       GRCVPP  : COEFFICIENT DE REDUCTION DE CVPP (ACCOEFK).
+!               : REDUCTION COEFFICIENT FOR SHALLOW-CONVECTION (ACCOEFK).
+!       GWDAMP  : COEFFICIENT DE RESONANCE POUR LE G.W.D..
+!               : RESONNANCE COEFFICIENT FOR THE G.W.D..
+!       GWDBC   : INVERSE DE LA HAUTEUR CRITIQUE POUR LE G.W.D..
+!               : INVERSE CRITICAL HEIGHT FOR THE G.W.D..
+!       GWDCCO  : COEFFICIENT DU G.W.D CONVECTIF..
+!               : COEFFICIENT FOR THE CONVECTIVE G.W.D..
+!       GWDCD   : COEFFICIENT DE FROTTEMENT POUR LE G.W.D. DE SURFACE.
+!               : DRAG COEFFICIENT FOR FOR THE LOW LEVEL G.W.D..
+!       GWDLT   : COEFFICIENT DE SOULEVEMENT AU SOL POUR LE G.W.D..
+!               : SURFACE LIFT COEFF. FOR THE G.W.D..
+!       GWDSE   : COEFFICIENT DE FORME DU SOL POUR LE G.W.D..
+!               : ASPECT RATIO TYPE COEFF. AT THE SURF. FOR THE G.W.D..
+!       GWDPROF : COEFF DEFINISSANT LA FORME DE LA MONTAGNE POUR LE G.W.D..
+!               : MOUNTAIN SHAPE COEFF. FOR THE G.W.D..
+!       GWDVALI : COEFF DEFINISSANT L'ISOLEMENT DES VALLEES POUR LE G.W.D..
+!               : VALLEYS DECOUPLING COEFF. FOR THE G.W.D..
+!       HOBST   : MULTIPLICATEUR DE L'E. T. REL. POUR OBSTACLE G.W.D..
+!               : FACTOR FOR THE ST. DEV. OF OROG. FOR G.W.D. "WALL".
+!       HUCOE   : PREMIER COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : FIRST COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       HUCOE2  : COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC2(KLEV).
+!               : COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC2(KLEV).
+!       HUTIL   : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       HUTIL1  : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT NOUVEAU PHUC(KLEV).
+!               : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING NEW PHUC(KLEV).
+!       HUTIL2  : TROISIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT NOUVEAU PHUC(KLEV).
+!               : THIRD COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING NEW PHUC(KLEV).
+!       NPCLO1  : PREMIER EXPOST. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : FIRST EXPONENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       NPCLO2  : DEUXIEME EXPOST. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : SECOND EXPONENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       QSSC    : ECART D'ENERGIE STATIQUE SECHE AUTORISE LORS DU CALCUL
+!                 DE LA NEBULOSITE PEU PROFONDE.
+!                 DRY STATIC ENERGY THRESHOLD FOR SHALLOW CONVECTION COMPUTATIONS.
+!       QSMIN   : RAPPORT DE MELANGE MINIMUM POUR LE SCHEMA DE NEBULOSITE STAT.
+!               : MINIMUM MIXING RATIO FOR THE STATISTICAL CLOUD SCHEME
+!       QSNEBC  : FACTEUR RELIANT L'EAU CONDENSEE A LA NEBULOSITE CONVECTIVE.
+!               : DEFINING CONVECTIVE CLOUDINESS FROM CONDENSATED WATER.
+!       QSNEBS  : FACTEUR RELIANT L'EAU CONDENSEE A LA NEBULOSITE STRATIFORME.
+!               : DEFINING STRATIFORM CLOUDINESS FROM CONDENSATED WATER.
+!       QSSUSC  : FACTEUR RELIANT L'EAU CONDENSEE AUX PRECIPITATIONS CONVECTIVES.
+!               : DEFINING CONDENSATED WATER FROM CONVECTIVE PRECIPITATION.
+!       QSSUSS  : FACTEUR RELIANT L'EAU CONDENSEE A LA SURSATURATION.
+!               : DEFINING CONDENSATED WATER FROM SUPERSATURATION.
+!       QSSUSV  : FACTEUR RELIANT L'EAU CONDENSEE A LA SURSATURATION.
+!               : DEFINING CONDENSATED WATER FROM SUPERSATURATION.
+!       QSUSXC  : QL+QI MAXIMUM A L'ECHELLE DU POINT DE GRILLE MODELE,
+!                 PARTIE CONVECTION PROFONDE.
+!               : MAXIMUM QL+QI AT THE GRID-POINT SCALE,
+!                 DEEP CONVECTION PART.
+!       QSUSXS  : QL+QI MAXIMUM A L'ECHELLE DU POINT DE GRILLE MODELE,
+!                 PARTIES RESOLUE ET DE CONVECTION PEU PROFONDE.
+!               : MAXIMUM QL+QI AT THE GRID-POINT SCALE, 
+!                 RESOLVED AND SHALLOW CONVECTION PART.
+!       RPHI0   : REGLAGE DE REFROIDISSEMENT DANS L'INVERSION POUR LE
+!                 CALCUL DE STRATUS BAS
+!                 TUNING OF THE COOLING INSIDE AN INVERSION FOR COMPUTATION
+!                 OF LOW-LEVEL STRATUS CLOUDINESS
+!       RPHIR   : REGLAGE DE LA PROFONDEUR D'INVERSION THERMIQUE POUR LE
+!                 CALCUL DE STRATUS
+!                 TUNING OF THE INVERSION THICKNESS FOR COMPUTATION
+!                 OF LOW-LEVEL STRATUS CLOUDINESS
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRAL   : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRDEL  : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRHX   : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRR    : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRTGH  : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       TENTRX  : TAUX D'ENTRAINEMENT MAXIMUM DU NUAGE CONVECTIF.
+!               : MAXIMUM CONVECTIVE UPDRAFT'S ENTRAINMENT RATE.
+!       RCIN    : MODULATION DANS LE CALCUL DU PROFIL NUAGEUX CONVECTIF
+!               : MODULATION IN THE CONVECTIVE CLOUD PROFILE COMPUTATION
+!       RCVEVAP : FACTEUR DE MODULATION DE L'EVAPORATION CONVECTIVE SOUS-NUAGEUSE
+!               : MODULATION FACTOR FOR CONVECTIVE EVAPORATION
+!       RDTFAC  : FACTEUR MULTIPLICATIF DE "RDT" DANS LA FONCTION "FONICE".
+!               : MODULATION FACTOR OF "RDT" IN "FONICE" FUNCTION.
+!       REVGSL  : RAPPORT DES VITESSES D'EVAP. DES PRECIP. "GLACE/LIQ.".
+!               : RATIO OF THE SPEED OF EVAP. OF PRECIP. "ICE/WATER".
+!       RICRLM  : NOMBRE DE RICHARDSON CRITIQUE POUR LONGUEUR DE MELANGE.
+!               : CRITICAL RICHARDSON NUMBER FOR MIXING LENGTH.
+!       RRGAMMA : EXPOSANT DANS LE CALCUL DE "RAFALE HUMIDE".
+!                 EXPONENT IN "MOIST GUSTINESS" COMPUTATION.
+!       RRSCALE : TAUX DE PRECIPITATION CARACTERISTIQUE DANS LE CALCUL DE "RAFALE HUMIDE".
+!                 SCALING RAINFALL RATE IN "MOIST GUSTINESS" COMPUTATION.
+!       RTCAPE  : TEMPS CARACTERISTIQUE POUR "CONSOMMER" LA CAPE.
+!                 CHARACTERISTICS TIME TO DECREASE THE CAPE CLOSURE.
+!       SCO     : SEUIL EN DESSOUS DUQUEL LES PRECIPITATIONS CONVECTIVES
+!                 NE SONT PAS PRISES EN COMPTE (SCHEMA STATISTIQUE DE NUAGES)
+!               : THRESHOLD FOR THE CONVECTIVE PRECIPITATION (STATISTICAL
+!                 CLOUD SCHEME)
+!       SENSL   : COEFFICIENT DE SENSIBILITE DE LA LONGUEUR DE MELANGE.
+!               : SENSITIVITY TO MIXING LENGTH (STAT. CLOUD SCHEME).
+!       SNNBCO  : VALEUR MINIMALE DE LA NEBULOSITE CONVECTIVE.
+!               : MINIMUM VALUE OF CONVECTIVE CLOUDINESS.
+!       SPNBCO  : PENTE "NEBULOSITE CONV./PRECIPITATION CONV.".
+!               : SLOPE "CONV. CLOUDINESS/CONV. PRECIPITATION".
+!       SXNBCO  : VALEUR MAXIMALE DE LA NEBULOSITE CONVECTIVE
+!               : MAXIMUM VALUE OF CONVECTIVE CLOUDINESS.
+!       TCA     : CONSTANTE D'ACCRETION.
+!               : ACCRETION CONSTANT (STAT. CLOUD SCHEME).
+!       TCT     : AUTOCONV. DES GOUTTELETTES NUAGEUSES EN PRECIP..
+!               : DROPLET SELFCONVERSION (STAT. CLOUD SCHEME).
+!       TCW     : CONSTANTE DE LIMITATION DE LA CONVERSION DE L'EAU
+!                 LIQUIDE NUAGEUSE EN PRECIPITATIONS.
+!               : LIMITATION OF LIQUID WATER CONVERSION (STAT. CLOUD
+!                 SCHEME).
+!       TENTR   : TAUX D'ENTRAINEMENT DU NUAGE CONVECTIF.
+!               : CONVECTIVE UPDRAFT'S ENTRAINMENT RATE.
+!       TENTRX  : TAUX D'ENTRAINEMENT MAXIMUM DU NUAGE CONVECTIF.
+!               : MAXIMUM CONVECTIVE UPDRAFT'S ENTRAINMENT RATE.
+!       TDDGP   : Parametrisation grad p horizontal dans le downdraught
+!                 (Kershaw & Gregory)
+!                 Downdraught Horizontal Grad p  effect coefficient
+!       TUDGP   : Parametrisation du grad p horizontal dans l'updraught
+!                 (Kershaw & Gregory)
+!                 Updraught Horizontal Grad p  effect coefficient
+!       TURB    : TURBULENCE RESIDUELLE.
+!               : RESIDUAL TURBULENCE (STAT. CLOUD SCHEME).
+!       TVF     : VITESSE DE PRECIPITATION DE L'EAU SOLIDE NUAGEUSE.
+!               : SOLID PRECIPITATION SPEED (STAT. CLOUD SCHEME).
+!       TYM(5)  : TABLEAU DES COEFFICIENTS DU MODELE DE NIVEAU 2.5
+!                 DE YAMADA ET MELLOR (SCHEMA STATISTIQUE DE NUAGES).
+!               : YAMADA AND MELLOR COEFFICIENTS FOR THE LEVEL 2.5
+!                 SCHEME (STAT. CLOUD SCHEME).
+!       UHDIFV  : INVERSE DE L'ECHELLE DE DECROISSANCE VERTIC. DE ALMAV.
+!               : INVERSE SCALE HEIGHT FOR THE DECREASE OF ALMAV.
+!       UNTIER  : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS.
+!               : PARAMETER FOR THE TKE CALCULATION IN TH PBL.
+!       USDMLT  : INVERSE DE L'ECHELLE DE FUSION DES PRECIP. CONVEC..
+!               : INVERSE SCALE OF THE MELTING DEPTH OF CONVEC. PRECIP..
+!       USUPRC  : INVERSE DES PRECIPITATIONS CRITIQUES POUR L'INTERCETION
+!               : INVERSE CRITICAL RAINFALL FOR VEGETATION INTERCEPTION
+!       USURIC  : INVERSE DU NOMBRE DE RICHARDSON CRITIQUE
+!               : INVERSE CRITICAL RICHARDSON NUMBER
+!       USURID  : INVERSE DU NOMBRE DE RICHARDSON DE TRANSITION POUR LE CALCUL DE L'ORDRE DE CONVERGENCE
+!                 DU NOMBRE DE RICHARDSON VERS LE NOMBRE DE RICHARDSON CRITIQUE.
+!               : INVERSE TRANSITION RICHARDSON NUMBER TO COMPUTE THE CONVERGENCE ORDER
+!                 OF THE RICHARDSON NUMBER TO THE CRITICAL RICHARDSON NUMBER.
+!       USURICE : EXPOSANT DE L'ALTITUDE INTERVENANT DANS LE CALCUL
+!                 DU NOMBRE DE RICHARDSON CRITIQUE.
+!               : HEIGHT EXPONENT IN RICHARDSON NUMBER COMPUTATION.
+!       USURICL : COEFFICIENT MULTIPLICATEUR INTERVENANT DANS LE CALCUL
+!                 DU NOMBRE DE RICHARDSON CRITIQUE EN FONCTION DE L'ALTITUDE.
+!               : COEFFICIENT RELATING RICHARDSON NUMBER COMPUTATION TO HEIGHT.
+!       USURID  : INVERSE DU NOMBRE DE RICHARDSON DE TRANSITION POUR LE CALCUL DE L'ORDRE DE CONVERGENCE
+!                 DU NOMBRE DE RICHARDSON VERS LE NOMBRE DE RICHARDSON CRITIQUE.
+!               : INVERSE TRANSITION RICHARDSON NUMBER TO COMPUTE THE CONVERGENCE ORDER
+!                 OF THE RICHARDSON NUMBER TO THE CRITICAL RICHARDSON NUMBER.
+!       USURIDE : EXPOSANT DANS LE CALCUL DU NOMBRE DE RICHARDSON CRITIQUE LOCAL.
+!                 EXPONENT IN THE COMPUTATION OF THE LOCAL CRITICAL RICHARDSON NUMBER.
+!       UTILGUST: VITESSE CARACTERISTIQUE DANS LE CALCUL DE "RAFALE HUMIDE".
+!                 CHARACTERISTIC SPEED IN "MOIST GUSTINESS" COMPUTATION.
+!       VCHRNK  : CONSTANTE DE CHARNOCK.
+!               : CHARNOCK'S CONSTANT.
+!       VKARMN  : CONSTANTE DE KARMAN.
+!               : KARMAN'S CONSTANT.
+!       VZ0CM   : LONGUEUR DE RUGOSITE (NEUTRE) MINIMALE SUR MER.
+!               : (NEUTRAL) MINIMUM ROUGHNESS LENGTH OVER THE OCEAN.
+!       VZIUSTAR0 : VITESSE DE RUGOSITE INVERSE DE NORMALISATION.
+!                 : SCALING INVERSE ROUGHNESS VELOCITY.
+!       XBLM    : COEFFICIENT POUR LONGUEUR DE MELANGE.
+!               : COEFFICIENT FOR MIXING LENGTH.
+!       XKLM    : COEFFICIENT POUR LONGUEUR DE MELANGE (0<XKLM<1).
+!               : COEFFICIENT FOR MIXING LENGTH (0<XKLM<1).
+!       XMAXLM  : HAUTEUR MAXI DE LA CLP (POUR LONGUEUR DE MELANGE).
+!               : MAX HEIGHT OF THE PBL (FOR MIXING LENGTH).
+!       XMINLM  : HAUTEUR MINI DE LA CLP (POUR LONGUEUR DE MELANGE).
+!               : MIN HEIGHT OF THE PBL (FOR MIXING LENGTH).
+!       XNBMAX  : NEBULOSITE MAXIMUM PAR COUCHE.
+!               : MAXIMUM CLOUDINESS IN A LAYER.
+!       XWSALM  : CONSTANTE 1 DU SCHEMA TROEN-MAHRT (POUR LONGUEUR DE MELANGE).
+!               : CONSTANT 1 FOR TROEN-MAHRT SCHEME (FOR MIXING LENGTH).
+!       XWSBLM  : CONSTANTE 2 DU SCHEMA TROEN-MAHRT (POUR LONGUEUR DE MELANGE).
+!               : CONSTANT 2 FOR TROEN-MAHRT SCHEME (FOR MIXING LENGTH).
+
+!*   Variables pour la microphysique dite de Lopez 
+! ------------------------------------------------------------------
+!    RAUTEFR  : EFFICIENCY FOR AUTOCONVERSION OF WATER->RAIN. 
+!    RAUTEFS  : EFFICIENCY FOR AUTOCONVERSION OF ICE->SNOW. 
+!    RAUTSBET : "BETA" EFFICIENCY PARAMETER FOR AUTOCONV ICE->SNOW.
+!    RHEVAP   : MODIFICATION OF RELATIVE HUMIDITY IN EVAPORATION 
+!               FORMULATION OF LOPEZ MICROPHYSICS.
+!    RNINTR   : INTERCEPT PARAMETER FOR RAIN.
+!    RNINTS   : INTERCEPT PARAMETER FOR ICE.
+!    RQLCR    : CRITICAL LIQUID WATER CONTENT FOR AUTOCONVERSION OF
+!               STRATIFORM CLOUD WATER.
+!    RQICRMAX : MAXIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               STRATIFORM ICE.
+!    RQICRMIN : MINIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               STRATIFORM ICE.
+!    RQLCV    : CRITICAL LIQUID WATER CONTENT FOR AUTOCONVERSION OF
+!               CONVECTIVE CLOUD WATER.
+!    RQICVMAX : MAXIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               CONVECTIVE CLOUD ICE.
+!    RQICVMIN : MINIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               CONVECTIVE CLOUD ICE.
+!    RQICRT1  : TUNING COEFF FOR AUTOCONVERSION OF STRATIFORM ICE.
+!    RQICRT2  : TUNING COEFF FOR AUTOCONVERSION OF STRATIFORM ICE.
+!    RQICRSN  : MULTIPLICATIVE FACTOR OF CRITICAL ICE CONTENT FOR
+!               AUTOCONVERSION OF STRATIFORM ICE OVER SNOW AND SEA ICE.
+!    RQCRNS   : TUNING COEFF FOR AUTOCONVERSION NEAR THE SURFACE.
+!    RACCEF   : ACCRETION EFFICIENCY.
+!    RAGGEF   : AGGREGATION EFFICIENCY.
+!    RRIMEF   : RIMING AND AGGREGATION EFFICIENCY.
+!    RHCRIT1  : CRITICAL RELATIVE HUMIDITY FOR SMITH SCHEME (UPPER LEVELS).
+!    RHCRIT2  : CRITICAL RELATIVE HUMIDITY FOR SMITH SCHEME (SURFACE).
+!    RETAMIN  : MODEL ETA LEVEL WHERE CRITICAL RELATIVE HUMIDITY IS MINIMUM.
+!    RFACNSM  : MULTIPLICATVE FACTOR OF SMITH CLOUDINESS COMPUTATION.
+!    TFVR     : VITESSE DE CHUTE DES PRECIPITATIONS LIQUIDES.
+!    TFVS     : VITESSE DE CHUTE DES PRECIPITATIONS SOLIDES.
+!    GRHCMOD  : MODULATION IN CRITICAL RELATIVE HUMIDITY COMPUTATION.
+!
+! Pseudo prognostic TKE scheme
+!    NUPTKE   : TUNABLE VALUE FOR PSEUDO TKE SCHEME FOLLOWING
+!               REDELSBERGER, MAHE & CARLOTTI (2001) EQUAL TO
+!               ( C_k * C_{epsilon} )^{1/4}
+!    GAMTKE   : GAMMA FUNCTION DEFINING THE PROPORTION BETWEEN
+!               K_n AND K_m TO COMPUTE K_E
+!     RCOLL   : COLLECTION PARAMETER
+!     RFALLL  : SPEED OF FALL (ACPLUIE_PROG)
+! Prognostic convection scheme
+!     TUDBU   : UPDRAUGHT VIRTUAL MASS PARAMETER
+!     TUDFR   : UPDRAUGHT DISSIPATION COEFFICIENT
+!     TDDBU   : DOWNDRAUGHT VIRTUAL MASS PARAMETER
+!     TDDFR   : DOWNDRAUGHT DISSIPATION COEFFICIENT
+!     GCVACHI : Activity History, absolute minimum draught advected
+!               velocity to declare continued activity whichever be ZKUO
+!     GCVBEE  : IMPACT OF ACCELERATION on ENTRAINMENT
+!     GCVEEX  : EXPONENT FOR impact of accel on entr
+!   GCVADMW 0 : Advect  ABSOLUTE UD VELOCITY*DT
+!           1 : ADVECT DEPARTURE FROM PVERVEL*DT
+
+!   GCVALMX   : MAXIMUM ACCEPTABLE VALUE FOR TOTAL MESH FRACTION
+!
+!              Ascent properties
+!      ECMNPI : ECMNP for ice, the original ECMNP being kept for liquid.
+!      GFRIC  : INVERSE OF CHARACTERISTIC TIME for ICE CONDENSATION in ud.
+!
+!              Squeezing:
+!   GCVSQDN   : threshold value of sigma_d*q_cd*dp
+!   GCVSQDR   : fraction of the max to consider for squeezing
+!   GCVSQDCX  : maximum acceptable compression (<1)
+!
+!              Downdraught:
+!   GDDWPF    : Influence of rain fall velocity on downdraught
+!   GDDEVF    : for acmodo, cfr GDDEVA in accvimp
+!   GDDBETA   : DOWNDRAUGHT EXPLICIT DETRAINMENT COEFFICIENT
+!   TENTRD    : DOWNDRAUGHT ENTRAINMENT RATE (S^2/M^2)
+!
+!              Intensive Precipitation:
+!   GRRMINA   : MINIMUM REALISTIC PRECIPITATING MESH FRACTION
+!   GRRINTE   : MAXIMUM VALUE OF THE PRECIPITATION INTENSIFICATION FACTOR
+! ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: TYM(5)
+INTEGER(KIND=JPIM) :: NPCLO1
+INTEGER(KIND=JPIM) :: NPCLO2
+REAL(KIND=JPRB) :: A0ML_AU
+REAL(KIND=JPRB) :: A0ML_AT
+REAL(KIND=JPRB) :: A0ML_BU
+REAL(KIND=JPRB) :: A0ML_BT
+REAL(KIND=JPRB) :: AERCS1
+REAL(KIND=JPRB) :: AERCS3
+REAL(KIND=JPRB) :: AERCS5
+REAL(KIND=JPRB) :: ALMAV
+REAL(KIND=JPRB) :: BEDIFV
+REAL(KIND=JPRB) :: ECMNP
+REAL(KIND=JPRB) :: EDB
+REAL(KIND=JPRB) :: EDC
+REAL(KIND=JPRB) :: EDD
+REAL(KIND=JPRB) :: EVAP
+REAL(KIND=JPRB) :: FONT
+REAL(KIND=JPRB) :: GALP
+REAL(KIND=JPRB) :: GCISMIN
+REAL(KIND=JPRB) :: GCCSV
+REAL(KIND=JPRB) :: GCOMOD
+REAL(KIND=JPRB) :: GCVADS
+REAL(KIND=JPRB) :: GCVBETA
+REAL(KIND=JPRB) :: GDDEVA
+REAL(KIND=JPRB) :: GDDSDE
+REAL(KIND=JPRB) :: GRCVPP
+REAL(KIND=JPRB) :: GWDAMP
+REAL(KIND=JPRB) :: GWDBC
+REAL(KIND=JPRB) :: GWDCCO
+REAL(KIND=JPRB) :: GWDCD
+REAL(KIND=JPRB) :: GWDLT
+REAL(KIND=JPRB) :: GWDSE
+REAL(KIND=JPRB) :: GWDPROF
+REAL(KIND=JPRB) :: GWDVALI
+REAL(KIND=JPRB) :: HOBST
+REAL(KIND=JPRB) :: HUCOE
+REAL(KIND=JPRB) :: HUCOE2
+REAL(KIND=JPRB) :: HUTIL
+REAL(KIND=JPRB) :: HUTIL1
+REAL(KIND=JPRB) :: HUTIL2
+REAL(KIND=JPRB) :: QSMIN
+REAL(KIND=JPRB) :: QSNEBC
+REAL(KIND=JPRB) :: QSNEBS
+REAL(KIND=JPRB) :: QSSUSC
+REAL(KIND=JPRB) :: QSSUSS
+REAL(KIND=JPRB) :: QSSUSV
+REAL(KIND=JPRB) :: QSUSXC
+REAL(KIND=JPRB) :: QSUSXS
+REAL(KIND=JPRB) :: RPHI0 
+REAL(KIND=JPRB) :: RPHIR 
+REAL(KIND=JPRB) :: QXRAL
+REAL(KIND=JPRB) :: QXRDEL
+REAL(KIND=JPRB) :: QXRHX
+REAL(KIND=JPRB) :: QXRR
+REAL(KIND=JPRB) :: QXRTGH
+REAL(KIND=JPRB) :: RCIN
+REAL(KIND=JPRB) :: RCVEVAP
+REAL(KIND=JPRB) :: RDTFAC
+REAL(KIND=JPRB) :: REVGSL
+REAL(KIND=JPRB) :: RTCAPE
+REAL(KIND=JPRB) :: SCO
+REAL(KIND=JPRB) :: SENSL
+REAL(KIND=JPRB) :: SNNBCO
+REAL(KIND=JPRB) :: SPNBCO
+REAL(KIND=JPRB) :: SXNBCO
+REAL(KIND=JPRB) :: TCA
+REAL(KIND=JPRB) :: TCT
+REAL(KIND=JPRB) :: TCW
+REAL(KIND=JPRB) :: TENTR
+REAL(KIND=JPRB) :: TENTRX
+REAL(KIND=JPRB) :: TUDGP
+REAL(KIND=JPRB) :: TDDGP
+REAL(KIND=JPRB) :: TURB
+REAL(KIND=JPRB) :: TVF
+REAL(KIND=JPRB) :: UHDIFV
+REAL(KIND=JPRB) :: USDMLT
+REAL(KIND=JPRB) :: USUPRC
+REAL(KIND=JPRB) :: USURIC
+REAL(KIND=JPRB) :: VCHRNK
+REAL(KIND=JPRB) :: VKARMN
+REAL(KIND=JPRB) :: VZ0CM
+REAL(KIND=JPRB) :: VZIUSTAR0
+REAL(KIND=JPRB) :: XNBMAX
+REAL(KIND=JPRB) :: AECLS3
+REAL(KIND=JPRB) :: AECLS4
+REAL(KIND=JPRB) :: ACG
+REAL(KIND=JPRB) :: ALD
+REAL(KIND=JPRB) :: AKN
+REAL(KIND=JPRB) :: ALPHAT
+REAL(KIND=JPRB) :: ALPHAE
+REAL(KIND=JPRB) :: EPS
+REAL(KIND=JPRB) :: ETACUT
+REAL(KIND=JPRB) :: ADISI
+REAL(KIND=JPRB) :: ADISE
+REAL(KIND=JPRB) :: ECTMIN
+REAL(KIND=JPRB) :: UNTIER
+REAL(KIND=JPRB) :: AHCLPV
+REAL(KIND=JPRB) :: RICRLM
+REAL(KIND=JPRB) :: XBLM
+REAL(KIND=JPRB) :: XMINLM
+REAL(KIND=JPRB) :: XMAXLM
+REAL(KIND=JPRB) :: XWSALM
+REAL(KIND=JPRB) :: XWSBLM
+REAL(KIND=JPRB) :: GCVALFA
+REAL(KIND=JPRB) :: GCVPSI
+REAL(KIND=JPRB) :: GCVPSIE
+REAL(KIND=JPRB) :: USURICE
+REAL(KIND=JPRB) :: USURICL
+REAL(KIND=JPRB) :: QSSC
+REAL(KIND=JPRB) :: USURID
+REAL(KIND=JPRB) :: GCVNU
+REAL(KIND=JPRB) :: USURIDE
+REAL(KIND=JPRB) :: GCVMLT
+REAL(KIND=JPRB) :: UTILGUST
+REAL(KIND=JPRB) :: RRGAMMA
+REAL(KIND=JPRB) :: RRSCALE
+REAL(KIND=JPRB) :: GPBLHK0
+REAL(KIND=JPRB) :: GPBLHRA
+
+REAL(KIND=JPRB) :: ACBRPHIM
+REAL(KIND=JPRB) :: AGREKE
+REAL(KIND=JPRB) :: ALMAVE
+REAL(KIND=JPRB) :: ARSCH
+REAL(KIND=JPRB) :: ARSCQ
+REAL(KIND=JPRB) :: ARSC1
+REAL(KIND=JPRB) :: ARSB2
+REAL(KIND=JPRB) :: RICRET
+REAL(KIND=JPRB) :: STTBMIN
+REAL(KIND=JPRB) :: UCWSTAR
+REAL(KIND=JPRB) :: UDECT
+REAL(KIND=JPRB) :: UPRETMIN
+REAL(KIND=JPRB) :: UPRETMAX
+REAL(KIND=JPRB) :: USHEARM
+
+!*   Variables pour la microphysique dite de Lopez 
+REAL(KIND=JPRB) :: RAUTEFR
+REAL(KIND=JPRB) :: RAUTEFS 
+REAL(KIND=JPRB) :: RAUTSBET 
+REAL(KIND=JPRB) :: RHEVAP
+REAL(KIND=JPRB) :: RNINTR  
+REAL(KIND=JPRB) :: RNINTS  
+REAL(KIND=JPRB) :: RQLCR
+REAL(KIND=JPRB) :: RQICRMAX
+REAL(KIND=JPRB) :: RQICRMIN
+REAL(KIND=JPRB) :: RQLCV
+REAL(KIND=JPRB) :: RQICVMAX
+REAL(KIND=JPRB) :: RQICVMIN
+REAL(KIND=JPRB) :: RQICRT1
+REAL(KIND=JPRB) :: RQICRT2
+REAL(KIND=JPRB) :: RQICRSN
+REAL(KIND=JPRB) :: RQCRNS
+REAL(KIND=JPRB) :: RACCEF  
+REAL(KIND=JPRB) :: RAGGEF
+REAL(KIND=JPRB) :: RRIMEF  
+REAL(KIND=JPRB) :: RHCRIT1 
+REAL(KIND=JPRB) :: RHCRIT2 
+REAL(KIND=JPRB) :: RETAMIN
+REAL(KIND=JPRB) :: RFACNSM
+REAL(KIND=JPRB) :: TFVR
+REAL(KIND=JPRB) :: TFVS
+REAL(KIND=JPRB) :: GRHCMOD
+REAL(KIND=JPRB) :: NUPTKE
+REAL(KIND=JPRB) :: GAMTKE
+REAL(KIND=JPRB) :: RCOLL
+REAL(KIND=JPRB) :: RFALLL
+!*   Variables pour la convection pronostique 
+REAL (KIND=JPRB) :: TUDBU, TDDBU
+REAL (KIND=JPRB) :: TUDFR, TDDFR
+REAL (KIND=JPRB) :: GCVALMX
+REAL (KIND=JPRB) :: GCVACHI
+REAL (KIND=JPRB) :: GCVADMW
+REAL (KIND=JPRB) :: GCVBEE,GCVEEX
+REAL (KIND=JPRB) :: ECMNPI
+REAL (KIND=JPRB) :: GFRIC
+REAL (KIND=JPRB) :: GCVSQDN, GCVSQDR, GCVSQDCX
+REAL (KIND=JPRB) :: GRRINTE, GRRMINA
+! Downdraught:
+REAL (KIND=JPRB) :: GDDBETA, GDDWPF,GDDEVF
+REAL (KIND=JPRB) :: TENTRD
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES PROPRES A L'ATMOSPHERE 
+!     DANS LA PHYSIQUE SIMPLIFIEE SEULEMENT:
+!     ------------------------------------------------------------------
+! RNEGAT    : first Pisvejc's constant in ACQWLSR and TL/AD
+! RNLCURV   : second Pisvejc's constant in ACQWLSR and TL/AD
+REAL(KIND=JPRB) :: RNEGAT
+REAL(KIND=JPRB) :: RNLCURV
+!     EDK : NOUVEAU PARAMETRE POUR LES FONCTIONS DE LOUIS EN CAS STABLE.
+!     XKLM : PARAMETRE POUR L UTILSATION DE HCLP POUR LE CALCUL DE L.
+REAL(KIND=JPRB) :: EDK
+REAL(KIND=JPRB) :: XKLM
+!     PARAMETRE POUR LE TKE AVEC LPBLE (Top-entrainment).
+REAL(KIND=JPRB) :: AGRE1
+REAL(KIND=JPRB) :: AGRERICR
+REAL(KIND=JPRB) :: AJBUMIN
+REAL(KIND=JPRB) :: RCOFLM
+
+
+!*
+!     ------------------------------------------------------------------
+!     PARAMETRES POUR LA PHYSIQUE
+!     ------------------------------------------------------------------
+
+! TRENTRV : Taux Relatif d'ENTRainement du Vent.
+! TRENTRV : RELATIVE WIND'S ENTRAINMENT RATE.
+
+! TENTRVL : TAUX D'ENTRAINEMENT V. Lorant
+! TENTRVL : V. Lorant ENTRAINMENT RATE.
+
+!*
+!     ------------------------------------------------------------------
+!     For old ACCVIMP :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: TENTRVL
+REAL(KIND=JPRB) :: TRENTRV
+
+!*
+!     ------------------------------------------------------------------
+!     For TKE scheme :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: UETEPS
+REAL(KIND=JPRB) :: UPRECLP
+REAL(KIND=JPRB) :: ARSC2
+REAL(KIND=JPRB) :: ARSCT
+
+!*
+!     ------------------------------------------------------------------
+!     For Grenier (2000) top-PBL entrainment scheme :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: AGRE2
+REAL(KIND=JPRB) :: AGREF
+
+!*
+!     ------------------------------------------------------------------
+!     For dry conv. adjustment scheme :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB)    :: AJ1MEPS
+REAL(KIND=JPRB)    :: AJ1PEPS
+INTEGER(KIND=JPIM) :: NAJITER
+
+!*
+!     ------------------------------------------------------------------
+!     For ACCVIMPGY :
+!     ------------------------------------------------------------------
+! ALFX    : FRACTION D'ASCENDANCE CONVECTIVE MAXIMUM
+! TCTC    : PARAMETRE POUR LE SCHEMA DE PRECIPITATIONS CONVECTIVES
+! TVFC    : PARAMETRE POUR LE SCHEMA DE PRECIPITATIONS CONVECTIVES
+! GAMAP1  : PARAMETRE DE MASSE VIRTUELLE + 1.
+! RKDN    : COEFFICIENT DE RESISTANCE MINIMUM
+! VVN     : VITESSE VERTICALE MIN POUR L'ENTRAINEMENT TURBULENT.
+! VVX     : VITESSE VERTICALE MAX POUR L'ENTRAINEMENT TURBULENT.
+! FENTRT  : FACTEUR DE L'ENTRAINEMENT TURBULENT POUR NIVEAU DE DETRAINEMENT.
+! HCMIN   : HAUTEUR CONVECTIVE MINIMALE.
+! FQLIC   : FACTEUR DE L'EAU LIQUIDE CONVECTIVE
+! FNEBC   : FACTEUR DE LA NEBULOSITE CONVECTIVE
+! FEVAPC  : FACTEUR D'EVAPAPORATION DES PRECIPITATIONS
+REAL(KIND=JPRB)    :: ALFX
+REAL(KIND=JPRB)    :: TCTC
+REAL(KIND=JPRB)    :: TVFC
+REAL(KIND=JPRB)    :: GAMAP1
+REAL(KIND=JPRB)    :: RKDN
+REAL(KIND=JPRB)    :: VVN
+REAL(KIND=JPRB)    :: VVX
+REAL(KIND=JPRB)    :: FENTRT
+REAL(KIND=JPRB)    :: HCMIN
+REAL(KIND=JPRB)    :: FQLIC
+REAL(KIND=JPRB)    :: FNEBC
+REAL(KIND=JPRB)    :: FEVAPC
+
+!*
+!     ------------------------------------------------------------------
+!     For ALARO-0 :
+!     ------------------------------------------------------------------
+!
+! RDPHIC   : REFERENCE GEOPOTENTIAL FOR CLOUDINESS ADJUSTMENT.
+! GWBFAUT  : GAIN FOR THE WEGENER BERGERON FINDEISEN PROCESS IN ACAUTO
+! RWBF1    : FIRST TUNING CONSTANT FOR BERGERON FINDEISEN PROCESS
+! RWBF2    : SECOND TUNING CONSTANT FOR BERGERON FINDEISEN PROCESS
+!               IN ACPLUIE_PROG
+!
+! RAUITN   : TEMPERATURE LEVELS FOR RQICRMIN
+! RAUITX   : TEMPERATURE LEVELS FOR RQICRMAX
+! RAUIUSTE : INVERSE OF CHARACTERISTIC DTEMPER. FOR RAUTEFS
+! RSMDNEBX : MAX CLOUDINESS VERTICAL INCREMENT ALLOWED
+!            IF MSMDNEB=2 (ACSMI1)
+! RSMDTX   : MAX TEMPERATURE INCREMENT IN 1 TIME STEP
+!            ALLOWED FROM RESOLVED CONDENSATION (ACQMESM)
+! NSMTPA   : NUMBER OF LEVELS BELOW Tt LEVEL FOR LSMTPS SMOOTHING
+! NSMTPB   : NUMBER OF LEVELS ABOVE Tt LEVEL FOR LSMTPS SMOOTHING
+!
+! ------------------------------------------------------------------
+!
+REAL(KIND=JPRB) :: RDPHIC
+REAL(KIND=JPRB) :: GWBFAUT
+REAL(KIND=JPRB) :: RWBF1
+REAL(KIND=JPRB) :: RWBF2
+REAL(KIND=JPRB) :: RAUITN
+REAL(KIND=JPRB) :: RAUITX
+REAL(KIND=JPRB) :: RAUIUSTE
+REAL(KIND=JPRB) :: RSMDNEBX
+REAL(KIND=JPRB) :: RSMDTX
+INTEGER (KIND=JPIM) :: NSMTPA
+INTEGER (KIND=JPIM) :: NSMTPB
+
+REAL(KIND=JPRB),ALLOCATABLE :: RHCRI(:)
+INTEGER (KIND=JPIM) :: NRHCRI
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(a0ml_at,a0ml_au,a0ml_bt,a0ml_bu,acbrphim,acg,adise,adisi,aecls3,aecls4,aercs1,aercs3,aercs5)
+!$OMP THREADPRIVATE(agre1,agre2,agref,agreke,agrericr,ahclpv,aj1meps,aj1peps,ajbumin,akn,ald,alfx,almav,almave)
+!$OMP THREADPRIVATE(alphae,alphat,arsb2,arsc1,arsc2,arsch,arscq,arsct,bedifv,ecmnp,ecmnpi,ectmin,edb,edc,edd,edk)
+!$OMP THREADPRIVATE(eps,etacut,evap,fentrt,fevapc,fnebc,font,fqlic,galp,gamap1,gamtke,gccsv,gcismin,gcomod,gcvachi)
+!$OMP THREADPRIVATE(gcvadmw,gcvads,gcvalfa,gcvalmx,gcvbee,gcvbeta,gcveex,gcvmlt,gcvnu,gcvpsi,gcvpsie,gcvsqdcx)
+!$OMP THREADPRIVATE(gcvsqdn,gcvsqdr,gddbeta,gddeva,gddevf,gddsde,gddwpf,gfric,gpblhk0,gpblhra,grcvpp,grhcmod,grrinte)
+!$OMP THREADPRIVATE(grrmina,gwbfaut,gwdamp,gwdbc,gwdcco,gwdcd,gwdlt,gwdprof,gwdse,gwdvali,hcmin,hobst,hucoe,hucoe2)
+!$OMP THREADPRIVATE(hutil,hutil1,hutil2,najiter,npclo1,npclo2,nrhcri,nsmtpa,nsmtpb,nuptke,qsmin,qsnebc,qsnebs,qssc)
+!$OMP THREADPRIVATE(qssusc,qssuss,qssusv,qsusxc,qsusxs,qxral,qxrdel,qxrhx,qxrr,qxrtgh,raccef,raggef,rauitn,rauitx)
+!$OMP THREADPRIVATE(rauiuste,rautefr,rautefs,rautsbet,rcin,rcoflm,rcoll,rcvevap,rdphic,rdtfac,retamin,revgsl,rfacnsm)
+!$OMP THREADPRIVATE(rfalll,rhcrit1,rhcrit2,rhevap,ricret,ricrlm,rkdn,rnegat,rnintr,rnints,rnlcurv,rphi0,rphir,rqcrns)
+!$OMP THREADPRIVATE(rqicrmax,rqicrmin,rqicrsn,rqicrt1,rqicrt2,rqicvmax,rqicvmin,rqlcr,rqlcv,rrgamma,rrimef,rrscale)
+!$OMP THREADPRIVATE(rsmdnebx,rsmdtx,rtcape,rwbf1,rwbf2,sco,sensl,snnbco,spnbco,sttbmin,sxnbco,tca,tct,tctc,tcw,tddbu)
+!$OMP THREADPRIVATE(tddfr,tddgp,tentr,tentrd,tentrvl,tentrx,tfvr,tfvs,trentrv,tudbu,tudfr,tudgp,turb,tvf,tvfc,tym)
+!$OMP THREADPRIVATE(ucwstar,udect,ueteps,uhdifv,untier,upreclp,upretmax,upretmin,usdmlt,ushearm,usuprc,usuric,usurice)
+!$OMP THREADPRIVATE(usuricl,usurid,usuride,utilgust,vchrnk,vkarmn,vvn,vvx,vz0cm,vziustar0,xblm,xklm,xmaxlm,xminlm)
+!$OMP THREADPRIVATE(xnbmax,xwsalm,xwsblm)
+!$OMP THREADPRIVATE(rhcri)
+END MODULE YOMPHY0
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy1.F90	(revision 3330)
@@ -0,0 +1,314 @@
+MODULE YOMPHY1
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES INTERVENANT DANS LA DEFINITION DU
+!     SOL, DE LA NEIGE OU DE LA VEGETATION :
+!       ALB1    : COEFF. POUR LE SCHEMA (LVGSN).
+!               : COEFF. FOR THE SNOW SCHEME (LVGSN).
+!       ALB2    : COEFF. POUR LE SCHEMA (LVGSN).
+!               : COEFF. FOR THE SNOW SCHEME (LVGSN).
+!       ALBGLA  : ALBEDO BANQUISE (SANS NEIGE).
+!               : SNOW FREE SEA-ICE ALBEDO.
+!       ALBMAX  : ALBEDO MAXIMUM DE LA NEIGE.
+!               : MAXIMUM SNOW ALBEDO.
+!       ALBMER  : ALBEDO MER.
+!               : OPEN SEA ALBEDO.
+!       ALBMED  : ALBEDO MER DIFFUS.
+!               : OPEN SEA DIFFUSE ALBEDO.
+!       ALBMIN  : ALBEDO MINIMUM DE LA NEIGE.
+!               : MINIMUM SNOW ALBEDO.
+!       ALCRIN  : ALBEDO DE LA NEIGE.
+!               : SNOW ALBEDO.
+!       ALRCN1  : PREMIERE CONSTANTE POUR L'INFLUENCE NEIGEUSE SUR Z0.
+!               : FIRST CONSTANT FOR THE SNOW'S INFLUENCE ON Z0.
+!       ALRCN2  : DEUXIEME CONSTANTE POUR L'INFLUENCE NEIGEUSE SUR Z0.
+!               : SECOND CONSTANT FOR THE SNOW'S INFLUENCE ON Z0.
+!       EA      : EXPOSANT DANS LE SCHEMA SOL-VEGETATION
+!               : EXPONENT IN THE SOIL-VEGETATION SCHEME
+!       EC2REF  : IDEM
+!       EMCRIN  : EMISSIVITE DE LA NEIGE.
+!               : SNOW EMISSIVITY.
+!       EMMGLA  : EMISSIVITE DE LA BANQUISE
+!               : SEA-ICE EMISSIVITY.
+!       EMMMER  : EMISSIVITE DE LA MER
+!               : OPEN SEA EMISSIVITY.
+!       EWFC    : EXPOSANT DANS LE SCHEMA SOL-VEGETATION
+!               : EXPONENT IN THE SOIL-VEGETATION SCHEME
+!       EWWILT  : IDEM
+!       GA      : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
+!               : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       GC1     : IDEM.
+!       GC1S1, GC1S2, GC1S3, GC1S4 : COEFFICIENT POUR LE C1 PHASE VAPEUR
+!                                  : COEFFICIENT FOR C1 VAPOUR PHASE
+!       GTSVAP  : =0 PTS VARIABLE POUR LE CALCUL DU MAX DE C1. SI < 0 -GTSVAP
+!                 REPRESENTE LA TEMPERATURE CONSTANTE EN DEGRE CELSIUS
+!                 =0 PTS VARIABLE FOR THE COMPUTATION OF THE MAX OF C1. IF
+!                 < 0 -GTSVAP IS CONSTANT TEMPERATURE IN DEGRE
+!       GC1Y1   : VALEUR DU C1 POUR WS=0 POUR LA PHASE VAPEUR DE C1
+!               : VALUE OF C1 FOR WS=0 FOR VAPOUR PHASE OF C1
+!       GVEGMX,GLAIMX,GNEIMX,GWPIMX,GCGEL: COEFF POUR EAU GELEE DU SOL PROFOND.
+!       GVEGMX,GLAIMX,GNEIMX,GWPIMX,GCGEL: COEFF FOR ICE IN DEEP SOIL.
+!       GVEGMXS,GLAIMXS,GNEIMXS,GCGELS: COEFF POUR EAU GELEE DE SURFACE.
+!       GVEGMXS,GLAIMXS,GNEIMXS,GCGELS: COEFF FOR ICE IN THE SUPERFICIAL
+!               RESERVOIR.
+!       GC2     : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       GC2REF  : IDEM.
+!       GC3     : IDEM.
+!       GCZ0H   : IDEM.
+!       GC31    : COEFFICIENT POUR LE DRAINAGE PROFOND (SOL-VEGETATION)
+!               : COEFFICIENT FOR THE DEEP SOIL DRAINAGE (SOIL-VEGETATION)
+!       GC32    : IDEM
+!       GCONV   : FACTEUR DE CHANGEMENT D'UNITE (MASSE VOL. DE L'EAU LIQUIDE)
+!       GF1     : COEFFICIENT DE LA FONCTION F1 (SOL-VEGETATION).
+!               : COEFFICIENT FOR THE FUNCTION F1 (SOIL-VEGETATION).
+!       GF3(18) : COEFFICIENT DE LA FONCTION F3 (SOL-VEGETATION)
+!               : COEFFICIENT FOR THE FUNCTION F3 (SOIL-VEGETATION)
+!       GF4(18) : COEFFICIENT DE LA FONCTION F4 (SOL-VEGETATION)
+!               : COEFFICIENT FOR THE FUNCTION F4 (SOIL-VEGETATION)
+!       GWFC    : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
+!               : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       GWWILT  : IDEM.
+!       G1B     : IDEM.
+!       G1CGSAT : IDEM.
+!       G1C1SAT : IDEM.
+!       G1P     : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
+!               : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       G1WSAT  : IDEM.
+!       G2B     : IDEM.
+!       G2CGSAT : IDEM.
+!       G2C1SAT : IDEM.
+!       G2P     : IDEM.
+!       G2WSAT  : IDEM.
+!       G3CGSAT : IDEM.
+!       GSNC1   : IDEM (LSNV).
+!       GSNC2   : IDEM (LSNV).
+!       GWLEX   : (WL/WLMX)**GWLEX POUR LE CALCUL DU COEF. D'HALSTEAD.
+!               : (WL/WLMX)**GWLEX FOR THE HALSTEAD COEF.
+!       GWLMX   : COEFFICIENT POUR LE RESERVOIR D'INTERCEPTION MAX.
+!               : COEFFICIENT FOR INTERCEPTION WATER CONTENT.
+!       HSOL    : INVERSE DE L'INERTIE DU SOL EN SURFACE.
+!               : INVERSE OF THE SURFACE SOIL INERTIA.
+!       HSOLIWR : INVERSE DE LA QUANTITE CRITIQUE EN EAU (CALCUL DE HSOL).
+!               : INVERSE OF CRITICAL SOIL WATER CONTENT (HSOL COMPUTATION).
+!       HSOLIT0 : INVERSE DE LA LARGEUR CRITIQUE EN TEMPERATURE (CALCUL DE HSOL).
+!               : INVERSE OF TEMPERATURE CRITICAL DEVIATION (HSOL COMPUTATION).
+!       NTVGLA  : INDICE DE VEGETATION SUR GLACE.
+!               : VEGETATION INDEX OVER ICE.
+!       NTVMER  : INDICE DE VEGETATION SUR MER.
+!               : VEGETATION INDEX OVER SEA.
+!       OMTPRO  : 2 PI SUR LA PER. DE RAPP. DE LA TEMPERATURE PROFONDE.
+!               : 2 PI DIVIDED BY THE TIME CONSTANT OF DEEP TEMPERATURE.
+!       OMWPRO  : 1.   SUR LA PER. DE RAPP. DU CONTENU EN EAU PROFOND.
+!               : 1.   DIVIDED BY THE TIME CONSTANT OF DEEP SOIL WATER.
+!       RC1MAX  : VALEUR MAXIMALE DU COEFFICIENT HYDRIQUE G1=C1/RD1
+!               : MAXIMUM VALUE FOR THE HYDRIC COEFFICIENT G1
+!       RCTGLA  : COEFFICIENT THERMIQUE DE LA GLACE
+!               : ICE THERMAL COEFFICIENT.
+!       RCGMAX  : COEFFICIENT THERMIQUE DU SOL NU MAXIMUM
+!               : MAXIMUM THERMAL BARE GROUND COEFFICIENT.
+!       RCTVEG  : COEFFICIENT THERMIQUE DE LA VEGETATION.
+!          (18) : VEGETATION THERMAL COEFFICIENT.
+!       RD1     : EPAISSEUR DU RESERVOIR SUPERFICIEL.
+!               : UPPER RESERVOIR DEPTH.
+!       RD2GLA  : EPAISSEUR DU RESERVOIR BANQUISE.
+!               : SEA-ICE RESERVOIR DEPTH.
+!       RD2MER  : EPAISSEUR DU RESERVOIR MER.
+!               : OPEN SEA RESERVOIR DEPTH.
+!       RGL(18) : VALEUR LIMITE DU RAYONNEMENT GLOBAL DEPENDANT DU TYPE
+!                 DE VEGETATION. RGL INTERVIENT DANS LE CALCUL DE RSTO.
+!               : VEGETATION RADIATIVE COEFFICIENT LIMITING GLOBAL
+!                 RADIATION. RGL IS USED IN THE COMPUTATION OF RSTO.
+!       RHOMAX  : DENSITE MAXIMUM DE LA NEIGE.
+!               : MAXIMUM SNOW DENSITY.
+!       RHOMIN  : DENSITE MINIMUM DE LA NEIGE.
+!               : MINIMUM SNOW DENSITY.
+!       RLAIMX  : LAI MAX POUR LE SCHEMA (LVGSN).
+!               : LAI MAX FOR THE SNOW SCHEME (LVGSN).
+!       RLAI    : LAI A PARTIR DUQUEL ON REDUIT LA FRACTION DE NEIGE (LVGSN).
+!               : LAI FROM WHICH THE SNOW FRACTION IS REDUCED (LVGSN).
+!       RSMAX   : RESISTANCE STOMATIQUE MAXIMALE.
+!               : MAXIMUM STOMATAL RESISTANCE
+!       RTINER  : RAPPORT DES INERTIES THERMIQUES PROFONDEUR/SURFACE.
+!               : RATIO OF THE DEEP/SURFACE THERMAL INERTIAS.
+!       RZ0GLA  : LONGUEUR RUGOSITE DYNAMIQUE DE LA BANQUISE
+!               : DYNAMICAL ROUGHNESS LENGTH OF SEA-ICE
+!       RZ0MER  : LONGUEUR RUGOSITE DYNAMIQUE DE LA MER
+!               : DYNAMICAL ROUGHNESS LENGTH OF SEA
+!       RZHZ0G  : RAPPORT LONGUEUR DE RUGOSITE THERMIQUE SUR LONGUEUR
+!                 RUGOSITE DYNAMIQUE DE LA BANQUISE
+!               : RATIO OF THERMAL ROUGHNESS LENGTH ON DYNAMICAL 
+!                 ROUGHNESS LENGTH OF SEA-ICE
+!       RZHZ0M  : RAPPORT LONGUEUR DE RUGOSITE THERMIQUE SUR LONGUEUR
+!                 RUGOSITE DYNAMIQUE DE LA MER
+!               : RATIO OF THERMAL ROUGHNESS LENGTH ON DYNAMICAL 
+!                 ROUGHNESS LENGTH OF SEA
+!       SODELX(0:9): DISCRETISATION VERTICALE DU SOL (MAXI 10 COUCHES)
+!                : SOIL VERTICAL DISCRETIZATION (MAX 10 LAYERS)
+!       TMERGL  : TEMPERATURE DE FONTE DE LA GLACE DE MER.
+!               : MELTING TEMPERATURE OF FLOATING ICE.
+!       TOEXP   : TAUX DE DECROISSANCE EXPONENTIELLE DE L'ALBEDO ET
+!                 ET DE LA DENSITE DE LA NEIGE EN PERIODE DE FONTE.
+!               : RATE OF EXPONENTIAL DECREASE IN SNOW ALBEDO AND DENSITY
+!                 DURING SNOW MELT.
+!       TOLIN   : TAUX DE DECROISSANCE LINEAIRE DE L'ALBEDO DE LA NEIGE
+!                 EN PERIODE D'ACCUMULATION.
+!               : RATE OF LINEAR DECREASE IN SNOW ALBEDO
+!                 DURING SNOW ACCUMULATION.
+!       TREF4(18): TEMPERATURE SEUIL DE LA FONCTION F4 (SOL-VEGETATION)
+!                : THRESHOLD TEMPERATURE IN F4 FUNCTION (SOIL-VEGETATION)
+!       WCRIN   : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
+!               : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
+!       WCRINC  : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
+!                 (CALCULS THERMIQUES)
+!               : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
+!                 (THERMIC CALCULATIONS)
+!       WCRING  : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
+!                 (CALCULS RADIATIFS ET EVAPORATION)
+!               : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
+!                 (RADIATIVE CALCULATIONS AND EVAPORATION)
+!       WNEW    : PRECIPITIONS DE NEIGE MINIMUM (MM) POUR RENOUVELER
+!                 L'ALBEDO DE LA NEIGE.
+!               : MINIMUM SNOWFALL (MM) TO RENEW THE SNOW ALBEDO.
+!       WPMX    : VALEUR MAXIMUN POUR LE CONTENU EN EAU EN PROFONDEUR.
+!               : MAXIMUM VALUE FOR DEEP SOIL WATER CONTENT.
+!       WSMX    : VALEUR MAXIMUN POUR LE CONTENU EN EAU DE SURFACE.
+!               : MAXIMUM VALUE FOR SURFACE SOIL WATER CONTENT.
+!       XCRINR  : COEFFICIENT DANS LE FACTEUR ZNR DETERMINANT
+!                 L'INFLUENCE DU RELIEF SOUS-MAILLE
+!                 SUR LES FRACTIONS DE NEIGE
+!               : COEFFICIENT IN THE FACTOR ZNR DETERMINING
+!                 THE INFLUENCE OF SUBGRID OROGRAPHY
+!                 ON THE SNOW COVER FRACTIONS
+!       XCRINV  : COEFFICIENT DE LA FRACTION PNEIJV DE NEIGE RECOUVRANT
+!                 LA VEGETATION.
+!               : COEFFICIENT FOR THE FRACTION PNEIJV OF SNOW COVERING
+!                 THE CANOPY.
+!       LIMC    : BORNE SUPERIEURE POUR CT
+!               : UPPER BOUND FOR CT
+!       LIMW    : CONTROLE DE W/Wwilt POUR CG,C1,C2
+!               : CHECKING W/Wwilt
+!       LC1VAP  : PHASE VAPEUR POUR LE C1
+!               : VAPOUR PHASE FOR C1
+
+REAL(KIND=JPRB) :: GF3(18)
+REAL(KIND=JPRB) :: GF4(18)
+REAL(KIND=JPRB) :: TREF4(18)
+REAL(KIND=JPRB) :: RCTVEG(18)
+REAL(KIND=JPRB) :: RGL(18)
+REAL(KIND=JPRB) :: SODELX(0:9)
+REAL(KIND=JPRB) :: GCZ0H(0:3,4)
+REAL(KIND=JPRB) :: ALBGLA
+REAL(KIND=JPRB) :: ALBMAX
+REAL(KIND=JPRB) :: ALBMER
+REAL(KIND=JPRB) :: ALBMED
+REAL(KIND=JPRB) :: ALBMIN
+REAL(KIND=JPRB) :: ALCRIN
+REAL(KIND=JPRB) :: ALRCN1
+REAL(KIND=JPRB) :: ALRCN2
+REAL(KIND=JPRB) :: EA
+REAL(KIND=JPRB) :: EC2REF
+REAL(KIND=JPRB) :: EMCRIN
+REAL(KIND=JPRB) :: EMMGLA
+REAL(KIND=JPRB) :: EMMMER
+REAL(KIND=JPRB) :: EWFC
+REAL(KIND=JPRB) :: EWWILT
+REAL(KIND=JPRB) :: GA
+REAL(KIND=JPRB) :: GC1
+REAL(KIND=JPRB) :: GC1S1
+REAL(KIND=JPRB) :: GC1S2
+REAL(KIND=JPRB) :: GC1S3
+REAL(KIND=JPRB) :: GC1S4
+REAL(KIND=JPRB) :: GC1Y1
+REAL(KIND=JPRB) :: GTSVAP
+REAL(KIND=JPRB) :: GVEGMX
+REAL(KIND=JPRB) :: GLAIMX
+REAL(KIND=JPRB) :: GNEIMX
+REAL(KIND=JPRB) :: GWPIMX
+REAL(KIND=JPRB) :: GCGEL
+REAL(KIND=JPRB) :: GC2
+REAL(KIND=JPRB) :: GC2REF
+REAL(KIND=JPRB) :: GC3
+REAL(KIND=JPRB) :: GC31
+REAL(KIND=JPRB) :: GC32
+REAL(KIND=JPRB) :: GCONV
+REAL(KIND=JPRB) :: GF1
+REAL(KIND=JPRB) :: GWFC
+REAL(KIND=JPRB) :: GWLEX
+REAL(KIND=JPRB) :: GWLMX
+REAL(KIND=JPRB) :: GWWILT
+REAL(KIND=JPRB) :: G1B
+REAL(KIND=JPRB) :: G1CGSAT
+REAL(KIND=JPRB) :: G1C1SAT
+REAL(KIND=JPRB) :: G1P
+REAL(KIND=JPRB) :: G1WSAT
+REAL(KIND=JPRB) :: G2B
+REAL(KIND=JPRB) :: G2CGSAT
+REAL(KIND=JPRB) :: G2C1SAT
+REAL(KIND=JPRB) :: G2P
+REAL(KIND=JPRB) :: G2WSAT
+REAL(KIND=JPRB) :: G3CGSAT
+REAL(KIND=JPRB) :: GSNC1
+REAL(KIND=JPRB) :: GSNC2
+REAL(KIND=JPRB) :: HSOL
+REAL(KIND=JPRB) :: HSOLIWR
+REAL(KIND=JPRB) :: HSOLIT0
+REAL(KIND=JPRB) :: OMTPRO
+REAL(KIND=JPRB) :: OMWPRO
+REAL(KIND=JPRB) :: RC1MAX
+REAL(KIND=JPRB) :: RCTGLA
+REAL(KIND=JPRB) :: RCGMAX
+REAL(KIND=JPRB) :: RD1
+REAL(KIND=JPRB) :: RD2GLA
+REAL(KIND=JPRB) :: RD2MER
+REAL(KIND=JPRB) :: RHOMAX
+REAL(KIND=JPRB) :: RHOMIN
+REAL(KIND=JPRB) :: RSMAX
+REAL(KIND=JPRB) :: RTINER
+REAL(KIND=JPRB) :: RZ0GLA
+REAL(KIND=JPRB) :: RZ0MER
+REAL(KIND=JPRB) :: RZHZ0G
+REAL(KIND=JPRB) :: RZHZ0M
+REAL(KIND=JPRB) :: RZHGLA
+REAL(KIND=JPRB) :: RZHMER
+REAL(KIND=JPRB) :: TMERGL
+REAL(KIND=JPRB) :: TOEXP
+REAL(KIND=JPRB) :: TOLIN
+REAL(KIND=JPRB) :: WCRIN
+REAL(KIND=JPRB) :: WCRINC
+REAL(KIND=JPRB) :: WCRING
+REAL(KIND=JPRB) :: WNEW
+REAL(KIND=JPRB) :: WPMX
+REAL(KIND=JPRB) :: WSMX
+REAL(KIND=JPRB) :: XCRINR
+REAL(KIND=JPRB) :: XCRINV
+LOGICAL :: LIMC
+LOGICAL :: LIMW
+LOGICAL :: LC1VAP
+INTEGER(KIND=JPIM) :: NTVGLA
+INTEGER(KIND=JPIM) :: NTVMER
+REAL(KIND=JPRB) :: GCGELS
+REAL(KIND=JPRB) :: GVEGMXS
+REAL(KIND=JPRB) :: GLAIMXS
+REAL(KIND=JPRB) :: GNEIMXS
+REAL(KIND=JPRB) :: ALB1
+REAL(KIND=JPRB) :: ALB2
+REAL(KIND=JPRB) :: RLAIMX
+REAL(KIND=JPRB) :: RLAI
+INTEGER(KIND=JPIM) :: NCHSP
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(alb1,alb2,albgla,albmax,albmed,albmer,albmin,alcrin,alrcn1,alrcn2,ea,ec2ref,emcrin,emmgla)
+!$OMP THREADPRIVATE(emmmer,ewfc,ewwilt,g1b,g1c1sat,g1cgsat,g1p,g1wsat,g2b,g2c1sat,g2cgsat,g2p,g2wsat,g3cgsat)
+!$OMP THREADPRIVATE(ga,gc1,gc1s1,gc1s2,gc1s3,gc1s4,gc1y1,gc2,gc2ref,gc3,gc31,gc32,gcgel,gcgels,gconv,gcz0h,gf1)
+!$OMP THREADPRIVATE(gf3,gf4,glaimx,glaimxs,gneimx,gneimxs,gsnc1,gsnc2,gtsvap,gvegmx,gvegmxs,gwfc,gwlex,gwlmx)
+!$OMP THREADPRIVATE(gwpimx,gwwilt,hsol,hsolit0,hsoliwr,lc1vap,limc,limw,nchsp,ntvgla,ntvmer,omtpro,omwpro,rc1max)
+!$OMP THREADPRIVATE(rcgmax,rctgla,rctveg,rd1,rd2gla,rd2mer,rgl,rhomax,rhomin,rlai,rlaimx,rsmax,rtiner,rz0gla)
+!$OMP THREADPRIVATE(rz0mer,rzhgla,rzhmer,rzhz0g,rzhz0m,sodelx,tmergl,toexp,tolin,tref4,wcrin,wcrinc,wcring)
+!$OMP THREADPRIVATE(wnew,wpmx,wsmx,xcrinr,xcrinv)
+END MODULE YOMPHY1
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy2.F90	(revision 3330)
@@ -0,0 +1,69 @@
+MODULE YOMPHY2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES DEFINISSANT LE CONTEXTE DE L'EXPERIENCE POUR LA
+!     PHYSIQUE : DISCRETISATION TEMPORELLE, STRUCTURE VERTICALE,
+!     SORTIES.
+!       TSPHY     : PAS DE TEMPS DE LA PHYSIQUE.
+!                 : PHYSICS TIME STEP.
+!       XMUCVPP   : FACTEUR DE CVPP POUR "ANTI-FIBRIL.". 
+!                 : "ANTI-FIBRIL." FACTOR FOR CVPP.
+!       XMULAF    : FACTEUR "ANTI-FIBRIL." (1. RECOMMANDE SI ACTIF).
+!                 : "ANTI-FIBRIL." FACTOR (1. RECOMMENDED IF ACTIVATED).
+!       XDAMP     : DAMPING FACTOR USED IN THE NEW TREATMENT OF
+!                   SHALLOW CONVECTION.
+!                   IF ZERO => OLD TREATMENT
+!                   IF /= 0 => XMUCVPP SHOULD BE ZERO
+!       LMULAF    : CONTROL DE l'ANTI-FIBRIL. SUR LA VERTICALE
+!                 : CONTROL "ANTI-FIBRIL." ON VERTICAL
+!       HCLP      : HAUTEUR MOYENNE DE LA CLP ( EN GENERAL 1500M ).
+!                 : MEAN PBL DEPTH ( IN GENERAL 1500M ).
+!       HTCLS     : HAUTEUR METEO POUR T ET Q ( EN GENERAL 2M ).
+!                 : SCREEN HEIGHT FOR T AND Q ( IN GENERAL 2M ).
+!       HVCLS     : HAUTEUR METEO POUR U ET V ( EN GENERAL 10M ).
+!                 : MEASURING HEIGHT FOR U AND V (IN GENERAL 10M ).
+
+!       HTSHM     : HAUTEUR DE TRANSITION EN "S" NUAGES HAUTS/MOYENS.
+!                 : TRANSITION HEIGHT IN "S" COORDINATE H/M CLOUDS.
+!       HTSML     : HAUTEUR DE TRANSITION EN "S" NUAGES MOYENS/BAS.
+!                 : TRANSITION HEIGHT IN "S" COORDINATE M/L CLOUDS.
+!       NTSHM     : INDICE DU NIVEAU DE TRANSITION NUAGES HAUTS/MOYENS.
+!                 : TRANSITION LEVEL BETWEEN HIGH/MEDIUM CLOUDS.
+!       NTSML     : INDICE DU NIVEAU DE TRANSITION NUAGES MOYENS/BAS.
+!                 : TRANSITION LEVEL BETWEEN MEDIUM/LOW CLOUDS.
+!       RIPBLC    : VALEUR CRITIQUE DU NOMBRE DE RICHARDSON POUR LE CALCUL DE LA HAUTEUR DE LA CLP
+!                 : CRITICAL VALUE OF RICHARDSON'S NUMBER TO COMPUTE THE HEIGHT OF PBL.
+!       LRAFTUR   : ACTIVATION DU DIAGNOSTIC DES RAFALES TURBULENTES
+!                   ACTIVATE DIAGNOSTIC OF TURBULENT GUSTS
+!       GZ0RAF    : Z0 FOIS G UTILISE POUR LE CALCUL DES RAFALES TURBULENTES
+!                   Z0 TIMES G USED TO COMPUTE TURBULENT GUSTS
+!       FACRAF    : COEFFICIENT DE CALCUL DES RAFALES TURBULENTES
+!                   COEFFICIENT FOR THE COMPUTATION OF TURBULENT GUSTS
+
+INTEGER(KIND=JPIM) :: NTSHM
+INTEGER(KIND=JPIM) :: NTSML
+REAL(KIND=JPRB) :: TSPHY
+REAL(KIND=JPRB) :: XMUCVPP
+REAL(KIND=JPRB) :: XMULAF
+REAL(KIND=JPRB) :: XDAMP
+REAL(KIND=JPRB) :: HCLP
+REAL(KIND=JPRB) :: HTCLS
+REAL(KIND=JPRB) :: HVCLS
+REAL(KIND=JPRB) :: HTSHM
+REAL(KIND=JPRB) :: HTSML
+REAL(KIND=JPRB) :: RIPBLC
+REAL(KIND=JPRB) :: GZ0RAF
+REAL(KIND=JPRB) :: FACRAF
+LOGICAL :: LRAFTUR
+LOGICAL :: LMULAF
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(facraf,gz0raf,hclp,htcls,htshm,htsml,hvcls,lmulaf,lraftur,ntshm,ntsml,ripblc,tsphy)
+!$OMP THREADPRIVATE(xdamp,xmucvpp,xmulaf)
+END MODULE YOMPHY2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomphy3.F90	(revision 3330)
@@ -0,0 +1,199 @@
+MODULE YOMPHY3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES UTILISEES POUR LES CALCULS
+!     RADIATIFS :
+!       BSFSA   : "BACK-SCATTERED FRACTION" SOLAIRE POUR LES AEROSOLS.
+!               : SOLAR "BACK-SCATTERED FRACTION" FOR AEROSOLS.
+!       BSFSI   : "BACK-SCATTERED FRACTION" SOLAIRE POUR LA GLACE.
+!               : SOLAR "BACK-SCATTERED FRACTION" FOR ICE CLOUDS.
+!       BSFSN   : "BACK-SCATTERED FRACTION" SOLAIRE POUR LES NUAGES.
+!               : SOLAR "BACK-SCATTERED FRACTION" FOR CLOUDS.
+!       BSFTA   : "BACK-SCATTERED FRACTION" THERMIQUE POUR LES AEROSOLS.
+!               : THERMAL "BACK-SCATTERED FRACTION" FOR AEROSOLS.
+!       BSFTI   : "BACK-SCATTERED FRACTION" THERMIQUE POUR LA GLACE.
+!               : THERMAL "BACK-SCATTERED FRACTION" FOR ICE CLOUDS.
+!       BSFTN   : "BACK-SCATTERED FRACTION" THERMIQUE POUR LES NUAGES.
+!               : THERMAL "BACK-SCATTERED FRACTION" FOR CLOUDS.
+!       EARRT   : EPAISSEUR DE L'ATMOSPHERE  /  RAYON DE LA TERRE.
+!               : RATIO "DEPTH OF THE ATMOSPHERE / EARTH'S RADIUS".
+!       EOASA   : COEFFICIENT D'ABSORPTION SOLAIRE PAR LES AEROSOLS.
+!               : SOLAR ABSORPTION COEFFICIENT FOR AEROSOLS.
+!       EOASI   : COEFFICIENT D'ABSORPTION SOLAIRE PAR LA GLACE.
+!               : SOLAR ABSORPTION COEFFICIENT FOR ICE CLOUDS.
+!       EOASN   : COEFFICIENT D'ABSORPTION SOLAIRE PAR LES NUAGES.
+!               : SOLAR ABSORPTION COEFFICIENT FOR CLOUDS.
+!       EOATA   : COEFFICIENT D'ABSORPTION THERMIQUE PAR LES AEROSOLS.
+!               : THERMAL ABSORPTION COEFFICIENT FOR AEROSOLS.
+!       EOATI   : COEFFICIENT D'ABSORPTION THERMIQUE PAR LA GLACE.
+!               : THERMAL ABSORPTION COEFFICIENT FOR ICE CLOUDS.
+!       EOATN   : COEFFICIENT D'ABSORPTION THERMIQUE PAR LES NUAGES.
+!               : THERMAL ABSORPTION COEFFICIENT FOR CLOUDS.
+!       EODSA   : COEFFICIENT DE DIFFUSION SOLAIRE PAR LES AEROSOLS.
+!               : SOLAR SCATTERING COEFFICIENT FOR AEROSOLS.
+!       EODSI   : COEFFICIENT DE DIFFUSION SOLAIRE PAR LA GLACE.
+!               : SOLAR SCATTERING COEFFICIENT FOR ICE CLOUDS.
+!       EODSN   : COEFFICIENT DE DIFFUSION SOLAIRE PAR LES NUAGES.
+!               : SOLAR SCATTERING COEFFICIENT FOR CLOUDS.
+!       EODTA   : COEFFICIENT DE DIFFUSION THERMIQUE PAR LES AEROSOLS.
+!               : THERMAL SCATTERING COEFFICIENT FOR AEROSOLS.
+!       EODTI   : COEFFICIENT DE DIFFUSION THERMIQUE PAR LA GLACE.
+!               : THERMAL SCATTERING COEFFICIENT FOR ICE CLOUDS.
+!       EODTN   : COEFFICIENT DE DIFFUSION THERMIQUE PAR LES NUAGES.
+!               : THERMAL SCATTERING COEFFICIENT FOR CLOUDS.
+!       EORAY   : COEFFICIENT DE DIFFUSION RAYLEIGH.
+!               : RAYLEIGH SCATTERING COEFFICIENT.
+!       GCA(6)  : POUR LE CALCUL "WEAK LINE" DE LA LARGEUR EQUIVALENTE.
+!               : FOR THE "WEAK LINE" PART OF THE EQUIVALENT WIDTH.
+!       GCB(6)  : POUR LE CALCUL "STRONG LINE" DE LA LARGEUR EQUIVAL..
+!               : FOR THE "STRONG LINE" PART OF THE EQUIVALENT WIDTH.
+!       GCC(6)  : POUR LE CALCUL "CONTINUUM" DE LA LARGEUR EQUIVALENTE.
+!               : FOR THE "CONTINUUM" PART OF THE EQUIVALENT WIDTH.
+!       GCD4    : POUR LA CONTRIBUTION "E-TYPE" A GCC(4) (H2O THERM.).
+!               : FOR THE E-TYPE CONTRIBUTION TO GCC(4) (H2O THERM.).
+!       GCE4    : POUR LA DEPENDANCE EN TEMPERATURE DU "E-TYPE" (GCD4).
+!               : FOR THE TEMPERATURE DEPENDENCY OF THE E-TYPE (GCD4).
+!       GIREC*  : JEU DE COEFFICIENTS MODULANT L'INTERACTION INFRA-ROUGE ENTRE COUCHES.
+!               : COEFFICIENTS SET TO TUNE THE INFRA-RED EXCHANGE BETWEEN LAYERS.
+!       QCO2    : CONCENTRATION MASSIQUE DU CO2.
+!               : SPECIFIC RATIO OF CO2.
+!       QLIMI   : INVERSE DU QL+QI MAXIMUM POUR UNE NEBULOSITE DE UN.
+!               : INVERSE OF THE MAXIMUM QL+QI FOR CLOUD COVER ONE.
+!       QLIP0   : PRESSION DE REFERENCE POUR LE CALCUL DE PQLI ET PQICE.
+!               : SCALING PRESSURE FOR COMPUTING PQLI AND PQICE.
+!       RII0    : VALEUR INSTANTANNEE DE LA CONST. SOLAIRE (CYCLE ANN.).
+!               : INSTANTANEOUS VALUE OF THE SOLAR CONST. (ANN. CYCLE).
+!       USAA    : AU NUMERATEUR DE "L'UPSCATTERED FRACTION" CAS AEROS.
+!               : AT THE UPPER CASE OF THE UPSCATTERED FRACTION, AEROS.
+!       USAI    : AU NUMERATEUR DE "L'UPSCATTERED FRACTION" CAS GLACE.
+!               : AT THE UPPER CASE OF THE UPSCATTERED FRACTION, ICE.
+!       USAN    : AU NUMERATEUR DE "L'UPSCATTERED FRACTION" CAS NUAGES.
+!               : AT THE UPPER CASE OF THE UPSCATTERED FRACTION, CLOUDS.
+!       USBA    : AU DENOMINATEUR DE "L'UPSCATTERED FRACT." CAS AEROS.
+!               : AT THE LOWER CASE OF THE UPSCATTERED FRACTION, AEROS.
+!       USBI    : AU DENOMINATEUR DE "L'UPSCATTERED FRACT." CAS GLACE.
+!               : AT THE LOWER CASE OF THE UPSCATTERED FRACTION, ICE.
+!       USBN    : AU DENOMINATEUR DE "L'UPSCATTERED FRACT." CAS NUAGES.
+!               : AT THE LOWER CASE OF THE UPSCATTERED FRACTION, CLOUDS.
+!       VDP(5,6): AU DENOMINATEUR DES FONCTIONS DE PADE POUR LES GAZ.
+!               : AT THE LOWER CASE OF PADE FUNCTIONS FOR GASES.
+!       VNP(5,6): AU NUMERATEUR DES FONCTIONS DE PADE POUR LES GAZ.
+!               : AT THE UPPER CASE OF PADE FUNCTIONS FOR GASES.
+! Parameters for cloud model:
+!
+!   Notations:
+!     g      - asymmetry factor            (unscaled)
+!     k_abs  - mass absorption coefficient (delta-scaled)
+!     k_scat - mass scattering coefficient (delta-scaled)
+!     delta0 - unsaturated optical depth
+!     c_abs  - saturation factor for k_abs
+!     c_scat - saturation factor for k_scat
+!     iwc    - ice water content
+!     lwc    - liquid water content
+!
+!   First index of FCM arrays (FCM = Fitting parameters for Cloud Model)
+!   denotes spectral band:
+!     1      - solar
+!     2      - thermal
+!
+!   FCM_DEL_A(2)    : Critical value of delta0 for computation of c_abs.
+!   FCM_DEL_D(2)    : Critical value of delta0 for computation of c_scat.
+!   FCM_MU_A(2)     : Exponent mu for computation of c_abs.
+!   FCM_MU_D(2)     : Exponent mu for computation of c_scat.
+!   FCM_N_I         : Scaling exponent for iwc.
+!   FCM_N_L         : Scaling exponent for lwc.
+!   FCM_P_AI(2,0:3) : Pade coefficients in numerator for k_abs, ice.
+!   FCM_P_AL(2,0:3) : Pade coefficients in numerator for k_abs, liquid.
+!   FCM_P_DI(2,0:3) : Pade coefficients in numerator for k_scat, ice.
+!   FCM_P_DL(2,0:3) : Pade coefficients in numerator for k_scat, liquid.
+!   FCM_P_GI(2,0:3) : Pade coefficients in numerator for g, ice.
+!   FCM_P_GL(2,0:3) : Pade coefficients in numerator for g, liquid.
+!   FCM_Q_AI(2,1:3) : Pade coefficients in denominator for k_abs, ice.
+!   FCM_Q_AL(2,1:3) : Pade coefficients in denominator for k_abs, liquid.
+!   FCM_Q_DI(2,1:3) : Pade coefficients in denominator for k_scat, ice.
+!   FCM_Q_DL(2,1:3) : Pade coefficients in denominator for k_scat, liquid.
+!   FCM_Q_GI(2,1:3) : Pade coefficients in denominator for g, ice.
+!   FCM_Q_GL(2,1:3) : Pade coefficients in denominator for g, liquid.
+!   N_SPBAND        : Number of spectral bands.
+!   N_CLOUD_MODEL   : Version of cloud model:
+!                       0 - no dependency on iwc/lwc, mean saturation
+!                       1 - dependency on iwc/lwc, saturation based on
+!                           effective delta0 approach
+!   REXP_NEB        : Scaling exponent for cloud fraction in definition
+!                     of effective delta0.
+INTEGER(KIND=JPIM), PARAMETER :: N_SPBAND = 2
+
+REAL(KIND=JPRB) :: GCA(6)
+REAL(KIND=JPRB) :: GCB(6)
+REAL(KIND=JPRB) :: GCC(6)
+REAL(KIND=JPRB) :: VDP(5,6)
+REAL(KIND=JPRB) :: VNP(5,6)
+REAL(KIND=JPRB) :: BSFSA
+REAL(KIND=JPRB) :: BSFSI
+REAL(KIND=JPRB) :: BSFSN
+REAL(KIND=JPRB) :: BSFTA
+REAL(KIND=JPRB) :: BSFTI
+REAL(KIND=JPRB) :: BSFTN
+REAL(KIND=JPRB) :: EARRT
+REAL(KIND=JPRB) :: EOASA
+REAL(KIND=JPRB) :: EOASI
+REAL(KIND=JPRB) :: EOASN
+REAL(KIND=JPRB) :: EOATA
+REAL(KIND=JPRB) :: EOATI
+REAL(KIND=JPRB) :: EOATN
+REAL(KIND=JPRB) :: EODSA
+REAL(KIND=JPRB) :: EODSI
+REAL(KIND=JPRB) :: EODSN
+REAL(KIND=JPRB) :: EODTA
+REAL(KIND=JPRB) :: EODTI
+REAL(KIND=JPRB) :: EODTN
+REAL(KIND=JPRB) :: EORAY
+REAL(KIND=JPRB) :: GCD4
+REAL(KIND=JPRB) :: GCE4
+REAL(KIND=JPRB) :: QCO2
+REAL(KIND=JPRB) :: QLIMI
+REAL(KIND=JPRB) :: QLIP0
+REAL(KIND=JPRB) :: RII0
+REAL(KIND=JPRB) :: USAA
+REAL(KIND=JPRB) :: USAI
+REAL(KIND=JPRB) :: USAN
+REAL(KIND=JPRB) :: USBA
+REAL(KIND=JPRB) :: USBI
+REAL(KIND=JPRB) :: USBN
+REAL(KIND=JPRB) :: GIREC1
+REAL(KIND=JPRB) :: GIREC2
+REAL(KIND=JPRB) :: GIREC3
+REAL(KIND=JPRB) :: GIREC4
+REAL(KIND=JPRB) :: FCM_DEL_A(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_DEL_D(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_MU_A(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_MU_D(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_N_I
+REAL(KIND=JPRB) :: FCM_N_L
+REAL(KIND=JPRB) :: FCM_P_AI(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_AL(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_DI(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_DL(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_GI(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_GL(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_Q_AI(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_AL(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_DI(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_DL(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_GI(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_GL(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: REXP_NEB
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(bsfsa,bsfsi,bsfsn,bsfta,bsfti,bsftn,earrt,eoasa,eoasi,eoasn,eoata,eoati,eoatn,eodsa,eodsi)
+!$OMP THREADPRIVATE(eodsn,eodta,eodti,eodtn,eoray,fcm_del_a,fcm_del_d,fcm_mu_a,fcm_mu_d,fcm_n_i,fcm_n_l,fcm_p_ai)
+!$OMP THREADPRIVATE(fcm_p_al,fcm_p_di,fcm_p_dl,fcm_p_gi,fcm_p_gl,fcm_q_ai,fcm_q_al,fcm_q_di,fcm_q_dl,fcm_q_gi)
+!$OMP THREADPRIVATE(fcm_q_gl,gca,gcb,gcc,gcd4,gce4,girec1,girec2,girec3,girec4,qco2,qlimi,qlip0,rexp_neb,rii0)
+!$OMP THREADPRIVATE(usaa,usai,usan,usba,usbi,usbn,vdp,vnp)
+END MODULE YOMPHY3
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yompldsw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yompldsw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yompldsw.F90	(revision 3330)
@@ -0,0 +1,13 @@
+MODULE YOMPLDSW
+
+! Platform dependent switches
+
+IMPLICIT NONE
+
+SAVE
+
+LOGICAL :: LOPT_SCALAR
+LOGICAL :: LOPT_RS6K
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(lopt_rs6k,lopt_scalar)
+END MODULE YOMPLDSW
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomprad.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomprad.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomprad.F90	(revision 3330)
@@ -0,0 +1,152 @@
+MODULE YOMPRAD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!----------------------------------------------------------------
+!*    new radiation grid data structures
+!----------------------------------------------------------------
+
+! NRESOL_ID : transformation package resolution identifier
+! NSMAX     : spectral truncation
+! NASM0     : address in a spectral array of (m, n=m)
+! MYMS      : actual wave numbers handled by this processor
+! NDGLG     : number of latitude rows
+! NDLON     : length of a row of latitude near equator
+! NDGSAL    : Local version of NDGSA , always 1
+! NDGENL    : Number of latitude rows for which this process has grid points
+! NDGSAH    : 1-NROWIDE
+! NDGENH    : NDGENL+NROWIDE
+! NDGSAG    : Global version of NDGSA
+! NDGENG    : Global version of NDGEN
+! NDSUR1    : over dimensioning of NDLON for technical reasons (at least 2)
+! NDLSUR    : NDLON+NDSUR1
+! NDGSUR    : number of additional rows at each pole for semi-lagrangian
+!           : interpolation
+! MYFRSTACTLAT : first actual lat on this PE in grid-point space,
+!              : it is nfrstlat(my_region_ns)
+! MYLSTACTLAT  : last actual lat on this PE in grid-point space,
+!              : it is nlstlat(my_region_ns)
+! NGPTOT    : number of local grid points
+! NGPTOTG   : total number of grid points
+! NRGRI     : number of grid points on a latitude row
+! NLOENG    : as above but extended at poles for SL interpolation
+! GELAM     : radiation grid geographic longitude "lambda"
+! GELAT     : radiation grid geographic latitude "theta"
+! GESLO     : sine of geographic longitude "sin(lambda)"
+! GECLO     : cosine of geographic longitude "cos(lambda)
+! GEMU      : sine of geographic latitude "sin(theta)"
+! RMU       : mu              sin(theta)
+! RSQM2     : SQRT(R1MU2)     cos(theta)
+! RLATIG    : arcsin(mu)      theta  GLOBAL VIEW
+! RLATI     : arcsin(mu)      theta
+! RIPI0     : bi-cubic interpolation coefficients
+! RIPI1     : bi-cubic interpolation coefficients
+! RIPI2     : bi-cubic interpolation coefficients
+
+TYPE RADIATION_GRID_STRUCT
+INTEGER(KIND=JPIM)                            :: NRESOL_ID, NGPTOT, NGPTOTG, &
+ & NGPTOTMX, NSPEC2, NSMAX, &
+ & NPTRFLOFF, NUMP, NDLON, &
+ & NDGSAL, NDGENL, NDGSAH, NDGENH, &
+ & NDGLG, NDGSAG, NDGENG, NDLSUR, &
+ & NFRSTLOFF, NDSUR1,NDGSUR, &
+ & MYFRSTACTLAT, MYLSTACTLAT  
+INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NRGRI, NLOENG, NPTRFRSTLAT, NFRSTLAT, &
+ & NLSTLAT, MYMS, NASM0  
+INTEGER(KIND=JPIM), POINTER, DIMENSION(:,:)   :: NSTA, NONL
+REAL(KIND=JPRB),    POINTER, DIMENSION(:)     :: GELAM, GELAT, GECLO, GESLO, GEMU, &
+ & RMU, RSQM2, RLATIG, RLATI, &
+ & RIPI0, RIPI1, RIPI2  
+END TYPE RADIATION_GRID_STRUCT
+
+TYPE(RADIATION_GRID_STRUCT) :: RADGRID
+
+!----------------------------------------------------------------
+!*    radiation on demand comms data structures
+!----------------------------------------------------------------
+
+LOGICAL :: LRADONDEM
+LOGICAL :: LRADONDEM_ACTIVE
+INTEGER(KIND=JPIM) :: NFIXRADFLD(2)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RI1(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RI2(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RO1(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RO2(:)
+
+!----------------------------------------------------------------
+!*    radiation interpolation/load balancing data structures
+!----------------------------------------------------------------
+
+! NRIRINT  : INTERPOLATION INTERVAL FOR LOCAL LATITUDES
+! NRFRSTOFF: OFFSET TO FIRST COURSE POINT FROM FIRST FINE POINT
+! NRLASTOFF: OFFSET TO FIRST COURSE POINT FROM LAST  FINE POINT
+! NRIMAX   : NUMBER OF COURSE POINTS FOR LOCAL LATITUDES
+! NRIMAXT  : TOTAL NUMBER OF COURSE POINTS IN THIS PROCESSOR
+! NRIMAXLT : TOTAL NUMBER OF COURSE POINTS TO BE PROCESSED BY THIS PROC
+! NRLPRCS  : NUMBER OF PROCESSORS REQUIRED FOR LOAD BALANCING
+! NRIMAXLA : LOAD BALANCING DATA - SETA OF PROCESSOR TO COMMUNICATE WITH
+! NRIMAXLB : LOAD BALANCING DATA - SETB OF PROCESSOR TO COMMUNICATE WITH
+! NRIMAXLN : LOAD BALANCING DATA - NUMBER OF COURSE POINTS TO SND/RCV
+! NRCNEEDW : NUMBER OF COURSE POINTS NEEDED ON WESTERN END OF LOCAL LATS
+! NRCNEEDE : NUMBER OF COURSE POINTS NEEDED ON EASTERN END OF LOCAL LATS
+! NRCSNDW  : NUMBER OF WESTERN COURSE POINTS TO SEND TO LOCAL PROCS
+! NRCSNDE  : NUMBER OF EASTERN COURSE POINTS TO SEND TO LOCAL PROCS
+! NRCRCVW  : NUMBER OF WESTERN COURSE POINTS TO RCV FROM LOCAL PROCS
+! NRCRCVE  : NUMBER OF WESTERN COURSE POINTS TO RCV FROM LOCAL PROCS
+! NRCSNDT  : TOTAL NUMBER OF COURSE POINTS TO SEND TO LOCAL PROCESSORS
+! NRCRCVT  : TOTAL NUMBER OF COURSE POINTS TO RCV FROM LOCAL PROCESSORS
+! NRCRCVWO : OFFSET OF WESTERN BOUNDARY COURSE POINTS IN BOUNDARY ARRAY
+! NRCRCVEO : OFFSET OF EASTERN BOUNDARY COURSE POINTS IN BOUNDARY ARRAY
+
+! LODBGRADI: DEBUGGING FLAG, EACH PROCESSOR WILL DUMP ABOVE INFO TO A
+!            PER PROCESSOR FILE CALLED 'debug_aaa_bbb' 
+!            where aaa=my_region_ns and bbb=my_region_ew
+! LODBGRADL: DEBUGGING FLAG, EACH PROCESSOR WILL DUMP LOAD BALANCING
+!            ARRAYS as above
+
+! NRLBCHUNKS: NUMBER OF BLOCKING LOOPS FOR LOAD-BALANCING COMMS
+! NRLRCHUNKS: NUMBER OF BLOCKING LOOPS FOR LOAD-BALANCING COMMS (RESTORING)
+! NRLBPOINTS: MAX NUMBER OF POINTS FOR LOAD-BALANCING COMMS
+! NRLRPOINTS: MAX NUMBER OF POINTS FOR LOAD-BALANCING COMMS (RESTORING)
+! NRLBDATA  : NUMBER OF DATA VALUES PER LOAD-BALANCING POINT 
+! NRLRDATA  : NUMBER OF DATA VALUES PER LOAD-BALANCING POINT (RESTORING)
+
+LOGICAL :: LODBGRADI
+LOGICAL :: LODBGRADL
+INTEGER(KIND=JPIM) :: NRLBCHUNKS
+INTEGER(KIND=JPIM) :: NRLRCHUNKS
+INTEGER(KIND=JPIM) :: NRLBPOINTS
+INTEGER(KIND=JPIM) :: NRLRPOINTS
+INTEGER(KIND=JPIM) :: NRLBDATA
+INTEGER(KIND=JPIM) :: NRLRDATA
+INTEGER(KIND=JPIM), PARAMETER :: JPMAXLOADP=32
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRINT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRFRSTOFF(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRLASTOFF(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIMAX(:,:)
+INTEGER(KIND=JPIM) :: NRIMAXT
+INTEGER(KIND=JPIM) :: NRIMAXLT
+INTEGER(KIND=JPIM) :: NRLPRCS
+INTEGER(KIND=JPIM) :: NRIMAXLA(JPMAXLOADP)
+INTEGER(KIND=JPIM) :: NRIMAXLB(JPMAXLOADP)
+INTEGER(KIND=JPIM) :: NRIMAXLN(JPMAXLOADP)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCNEEDW(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCNEEDE(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCSNDW(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCSNDE(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVW(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVE(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCSNDT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVWO(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVEO(:,:,:)
+!$OMP THREADPRIVATE(lodbgradi,lodbgradl,lradondem,lradondem_active,nfixradfld,nrimaxla,nrimaxlb)
+!$OMP THREADPRIVATE(nrimaxln,nrimaxlt,nrimaxt,nrlbchunks,nrlbdata,nrlbpoints,nrlprcs,nrlrchunks)
+!$OMP THREADPRIVATE(nrlrdata,nrlrpoints,radgrid)
+!$OMP THREADPRIVATE(mask_ri1,mask_ri2,mask_ro1,mask_ro2,nrcneede,nrcneedw,nrcrcve,nrcrcveo,nrcrcvt)
+!$OMP THREADPRIVATE(nrcrcvw,nrcrcvwo,nrcsnde,nrcsndt,nrcsndw,nrfrstoff,nrimax,nrirint,nrlastoff)
+END MODULE YOMPRAD
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrad15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrad15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrad15.F90	(revision 3330)
@@ -0,0 +1,70 @@
+MODULE YOMRAD15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMRAD15* - CONTROL OPTIONS FOR RADIATION CONFIGURATION
+!*                          FROZEN VERSION (CYCLE 15) OF YOERAD
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NAER15
+INTEGER(KIND=JPIM) :: NFLUX15
+INTEGER(KIND=JPIM) :: NMODE15
+INTEGER(KIND=JPIM) :: NRAD15
+INTEGER(KIND=JPIM) :: NRADFR15
+INTEGER(KIND=JPIM) :: NRADPFR15
+INTEGER(KIND=JPIM) :: NRADPLA15
+INTEGER(KIND=JPIM) :: NRINT15
+INTEGER(KIND=JPIM) :: NRADNFR15
+INTEGER(KIND=JPIM) :: NRADSFR15
+INTEGER(KIND=JPIM) :: NOVLP15
+INTEGER(KIND=JPIM) :: NRPROMA15
+INTEGER(KIND=JPIM) :: NRADF2C15
+INTEGER(KIND=JPIM) :: NRADC2F15
+LOGICAL :: LERAD6H15
+LOGICAL :: LERADHS15
+LOGICAL :: LRADLB15
+LOGICAL :: LRADAER15
+LOGICAL :: LNEWAER15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     ORIGINAL BY J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+! LERAD6H15: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS
+!                  : DURING FIRST 6 HOURS OF FORECAST
+! LERADHS15: LOGICAL : .T. IF RAD.COMPUTED ON A COARSER SAMPLED GRID
+! NAER15   : INTEGER : CONFIGURATION INDEX FOR AEROSOLS
+! NFLUX15  : INTEGER : NUMBER OF RADIATIVE FLUXES
+! NMODE15  : INTEGER : CONFIG. FOR RADIATION CODE: FLUX VS. RADIANCE
+! NRAD15   : INTEGER : NUMBER OF RADIANCES
+! NRADFR15 : INTEGER : FREQUENCY OF FULL RADIATION COMPUTATIONS
+!                      IF.GT.0: RAD EVERY 'NRADFR15' TIME-STEPS
+!                      IF.LT.0: RAD EVERY '-NRADFR15' HOURS
+! NRADPFR15: INTEGER : PRINT FREQ. FOR RAD. STATISTICS (in RAD.T.STEPS)
+! NRADPLA15: INTEGER : PRINT RAD.STATISTICS EVERY 'NRADPLA15' ROWS
+! NRINT15  : INTEGER : INTERPOLATION DISTANCE (in points)
+! NRADNFR15: INTEGER : NORMAL   FREQUENCY OF RADIATION STEPS
+! NRADSFR15: INTEGER : START-UP FREQUENCY OF RADIATION STEPS
+! NOVLP15  : INTEGER : CLOUD OVERLAP CONFIGURATION
+! NRPROMA15: INTEGER : VECTOR LENGTH FOR RADIATION CALCULATIONS
+! NRADF2C15: INTEGER : INTERPOLATION SCHEME FOR FINE TO COURSE GRID TO
+!                    : BE USED WHEN NRINT15 IS GREATER THAN 1
+! NRADC2F15: INTEGER : INTERPOLATION SCHEME FOR COURSE TO FINE GRID TO
+!                    : BE USED WHEN NRINT15 IS GREATER THAN 1
+! LRADLB15 : LOGICAL : .TRUE. IF RADIATION COURSER GRID IS TO BE LOAD
+!                    : BALANCED OVER PROCESSORS (I.E. WHEN NRINT15>1)
+! LRADAER15 :LOGICAL : .TRUE. IF CLIMATOLOGICAL VALUES FOR TROPOSPHERIC 
+!                    : AEROSOLS ARE INITIALIZED
+! LNEWAER15 :LOGICAL : .TRUE. IF TEGEN AEROSOLS ARE USED
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(lerad6h15,leradhs15,lnewaer15,lradaer15,lradlb15,naer15,nflux15,nmode15,novlp15)
+!$OMP THREADPRIVATE(nrad15,nradc2f15,nradf2c15,nradfr15,nradnfr15,nradpfr15,nradpla15,nradsfr15,nrint15,nrproma15)
+END MODULE YOMRAD15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomradf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomradf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomradf.F90	(revision 3330)
@@ -0,0 +1,47 @@
+MODULE YOMRADF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+! EMTD    - longwave emissivity
+! TRSW    - shortwave absorptivity
+! EMTC    - clear-sky longwave emissivity
+! TRSC    - clear-sky shortwave absorptivity
+
+! SRSWD   - downward SW radiation at the surface 
+! SRLWD   - downward LW radiation at the surface
+! SRSWDCS - clear-sky downward SW radiation at the surface
+! SRLWDCS - clear-sky downward LW radiation at the surface 
+! SRSWDV  - downward SW visible radiation at the surface
+! SRSWDUV - downward SW ultraviolet/visible radiation at the surface
+! SRSWPAR - downward SW PAR radiation at the surface
+! SRSWUVB - downward UV-B radiation at the surface
+! SRSWPARC- downward clear-sky SW PAR radiation at the surface
+! SRSWTINC- TOA incident solar radiation 
+
+REAL(KIND=JPRB),ALLOCATABLE :: EMTD(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: TRSW(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: EMTC(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: TRSC(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: EMTU(:,:,:)
+
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRLWD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWDCS(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRLWDCS(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWDV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWDUV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: EDRO(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWPAR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWUVB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWPARC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWTINC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RMOON(:,:)
+
+
+!$OMP THREADPRIVATE(edro,emtc,emtd,emtu,rmoon,srlwd,srlwdcs,srswd,srswdcs,srswduv)
+!$OMP THREADPRIVATE(srswdv,srswpar,srswparc,srswtinc,srswuvb,trsc,trsw)
+END MODULE YOMRADF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrcoef.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrcoef.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrcoef.F90	(revision 3330)
@@ -0,0 +1,85 @@
+MODULE YOMRCOEF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!   -----------------------------------------------------------------
+
+!*   Logical switches for writing and reading the radiation coefficients
+!    in file or in core
+
+!    LRCOEF                       : switch for write out and read
+!                                   the radiation coefficients in file
+
+!*   Logical switch connected with the simplified radiation
+
+!    LTLADDIA    : switch for using diabatic adjoint and then reading
+!                  rad.coef. at each time step when LRAYSP
+!    LGLOBRAD    : switch to compute the global mean for the thermal
+!                  radiation matrix
+
+!*   Number of arrays for radiation coefficients
+
+!    NG3SR                        : number of 3D fields (NFLEVG)
+!    NGMTR                        : number of matrices (0:NFLEVG,0:NFLEVG)
+!    NLATWR                       : number of latitude to be written
+!    NLATRD                       : number of latitude to be read
+
+!*   Packing factors and mio package files
+
+!    NPCKFSR                      : packing factor for 3D fields
+!    NPCKFTHR                     : packing factor for matrices
+!    NEXPBSR                      : number of bits used for exponent when
+!                                   packing
+!    NEXPBTHR                     : number of bits used for exponent when
+!                                   packing
+
+!*   Buffer for radiation coefficients
+
+!    NLENGSRB                       : length of buffer for 3D solar radiation
+!                                     coefficients and correction for thermal
+!                                     radiation
+!    NLENGTRB                       : length of buffer for matrix of thermal
+!                                     radiation coefficients
+!    SOLRAD(NLENGSRB)               : buffer for 3D fields
+!    THERRAD(NSLBR/NGPBLKS/1,NLENGTRB): buffer for matrix
+!                                     for 3D fields
+
+!*   Buffer for simplified thermal radiation
+
+!    TRWEIGHT(NFLEVG+1,NFLEVG+1) : buffer for sum of mean weights
+!                                  for the whole domain
+!    TRMATSUM(NFLEVG+1,NFLEVG+1) : buffer for sum of thermal radiation
+!                                  matrices for the whole domain
+
+LOGICAL :: LRCOEF
+LOGICAL :: LTLADDIA
+LOGICAL :: LGLOBRAD
+
+INTEGER(KIND=JPIM) :: NG3SR
+INTEGER(KIND=JPIM) :: NGMTR
+INTEGER(KIND=JPIM) :: NLATWR
+INTEGER(KIND=JPIM) :: NLATRD
+
+INTEGER(KIND=JPIM) :: NPCKFSR
+INTEGER(KIND=JPIM) :: NPCKFTHR
+INTEGER(KIND=JPIM) :: NEXPBSR
+INTEGER(KIND=JPIM) :: NEXPBTHR
+
+INTEGER(KIND=JPIM) :: NLENGSRB
+INTEGER(KIND=JPIM) :: NLENGTRB
+
+REAL(KIND=JPRB),ALLOCATABLE:: SOLRAD(:)
+REAL(KIND=JPRB),ALLOCATABLE:: THERRAD(:,:)
+
+REAL(KIND=JPRB),ALLOCATABLE:: TRWEIGHT(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: TRMATSUM(:,:)
+
+!   ----------------------------------------------------------------
+!$OMP THREADPRIVATE(lglobrad,lrcoef,ltladdia,nexpbsr,nexpbthr,ng3sr,ngmtr,nlatrd,nlatwr,nlengsrb)
+!$OMP THREADPRIVATE(nlengtrb,npckfsr,npckfthr)
+!$OMP THREADPRIVATE(solrad,therrad,trmatsum,trweight)
+END MODULE YOMRCOEF
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrdi15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrdi15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrdi15.F90	(revision 3330)
@@ -0,0 +1,63 @@
+MODULE YOMRDI15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOMRDI15* - COEFFICIENTS WITHIN RADIATION INTERFACE
+!*                          FROZEN VERSION (CYCLE 15) OF YOERDI
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RSDTSN15
+REAL(KIND=JPRB) :: RRAE15
+REAL(KIND=JPRB) :: RMU0015
+REAL(KIND=JPRB) :: RALBICE15
+REAL(KIND=JPRB) :: RALBSEA15
+REAL(KIND=JPRB) :: RALBSNM15
+REAL(KIND=JPRB) :: RALBSNO15
+REAL(KIND=JPRB) :: RCARDI15
+REAL(KIND=JPRB) :: REMISS15
+REAL(KIND=JPRB) :: RSNOWAL15
+REAL(KIND=JPRB) :: RVLBDC15
+REAL(KIND=JPRB) :: RCH415
+REAL(KIND=JPRB) :: RN2O15
+REAL(KIND=JPRB) :: RCFC1115
+REAL(KIND=JPRB) :: RCFC1215
+REAL(KIND=JPRB) :: REPALB15
+REAL(KIND=JPRB) :: REPCLC15
+REAL(KIND=JPRB) :: REPH2O15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+! RSDTSN15 :
+! RRAE15   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
+! RMU0015  : MINIMUM COSINE OF SOLAR ZENITH ANGLE DUE TO EARTH'S
+!            CURVATURE
+! RALBICE15: FLOATING ICE ALBEDO (Unusefull for FMR in Arpege-climat)
+! RALBSEA15: OPEN SEA ALBEDO (Unusefull for FMR in Arpege-climat)
+! RALBSNM15:       SNOW ALBEDO (Unusefull for FMR in Arpege-climat)
+! RALBSNO15: THICK SNOW ALBEDO (Unusefull for FMR in Arpege-climat)
+
+! RCARDI15 : SPECIFIC ATMOSPHERIC CONTENT IN CO2
+! REMISS15 : SURFACE LONGWAVE EMISSIVITY
+
+! RSNOWAL15: SNOW DEPTH (IN EQUIVALENT WATER) FOR WHICH SNOW IS
+!            CONSIDERED AS THICK
+! RVLBDC15 : SPECIFIES THE REDUCTION OF THERMAL DIFFUSION UNDER
+!            VEGETATION
+! REPALB15 : SECURITY TO AVOID ZERO ALBEDOS.
+! REPCLC15 : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
+! REPH2O15 : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
+!            TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(ralbice15,ralbsea15,ralbsnm15,ralbsno15,rcardi15,rcfc1115,rcfc1215,rch415)
+!$OMP THREADPRIVATE(remiss15,repalb15,repclc15,reph2o15,rmu0015,rn2o15,rrae15,rsdtsn15,rsnowal15,rvlbdc15)
+END MODULE YOMRDI15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrdu15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrdu15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrdu15.F90	(revision 3330)
@@ -0,0 +1,56 @@
+MODULE YOMRDU15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMRDU15* - CONTROL, PARAM. AND SECURITY IN RADIATION
+!*                          FROZEN VERSION (CYCLE 15) OF YOERDU
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NUAER15
+INTEGER(KIND=JPIM) :: NTRAER15
+INTEGER(KIND=JPIM) :: NIMP15
+INTEGER(KIND=JPIM) :: NOUT15
+REAL(KIND=JPRB) :: RCDAY15
+REAL(KIND=JPRB) :: R10E15
+REAL(KIND=JPRB) :: REELOG15
+REAL(KIND=JPRB) :: REPSC15
+REAL(KIND=JPRB) :: REPSCO15
+REAL(KIND=JPRB) :: REPSCQ15
+REAL(KIND=JPRB) :: REPSCT15
+REAL(KIND=JPRB) :: REPSCW15
+REAL(KIND=JPRB) :: REPSEC15
+REAL(KIND=JPRB) :: DIFF15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME        TYPE     PURPOSE
+!  ----     :  ----   : ------------------------------------------------
+! NUAER15   : INTEGER   # OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
+! NTRAER15  : INTEGER   # OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
+! NIMP15    : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
+! NOUT15    : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
+! RCDAY15   : REAL
+! CCO215    : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
+! CH2O15    : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
+! R10E15    : REAL      DECIMAL/NATURAL LOG.FACTOR
+! DIFF15    : REAL      DIFFUSIVITY FACTOR
+!-SECURITY THRESHOLDS
+! REELOG15  : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
+! REPSC15   : REAL      SEC. EPSILON FOR CLOUD COVER
+! REPSEC15  : REAL      SEC. EPSILON FOR CLOUD COVER (was in YOECLD)
+! REPSCO15  : REAL      SEC. EPSILON FOR OZONE AMOUNT
+! REPSCQ15  : REAL      SEC. EPSILON FOR WATER VAPOR
+! REPSCT15  : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
+! REPSCW15  : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(diff15,nimp15,nout15,ntraer15,nuaer15,r10e15,rcday15,reelog15)
+!$OMP THREADPRIVATE(repsc15,repsco15,repscq15,repsct15,repscw15,repsec15)
+END MODULE YOMRDU15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrip.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrip.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomrip.F90	(revision 3330)
@@ -0,0 +1,104 @@
+MODULE YOMRIP
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+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
+
+!     ------------------------------------------------------------------
+
+!*    Sun related variables (updated in UPDTIM)
+!     RSOVR  : TRUE SOLAR TIME (GMT+EQUATION OF TIME)
+
+!     RDEASO : DISTANCE EARTH-SUN
+!     RDECLI : DECLINATION
+!     RWSOVR : IN RADIANS, TRUE SOLAR TIME (GMT+EQUATION OF TIME)
+!              THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT
+!              WHERE THE SUN IS AT ZENITH)
+!     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
+
+!     ------------------------------------------------------------------
+
+!*    Moon related variables (updated in UPDTIM)
+
+!     RDECLU : LUNAR DECLINATION
+!     RTMOLT : IN RADIANS, TRUE LUNAR TIME (GMT+EQUATION OF TIME)
+!              THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT
+!              WHERE THE MOON IS AT ZENITH)
+!     RIP0LU : LUNAR I0 (DOWNWARD TOA LUNAR FLUX)
+
+!     RCODECLU : COSINE OF THE LUNAR DECLINATION
+!     RSIDECLU :   SINE OF THE LUNAR DECLINATION
+
+!     RCOVSRLU : COSINE OF TRUE LUNAR TIME
+!     RSIVSRLU :   SINE OF TRUE LUNAR TIME
+
+!     ------------------------------------------------------------------
+
+!*    Time step related variables
+
+!     RDTSA  : TDT  /RA
+!     RDTSA2 : RDTSA**2
+!     RDTS62 : RDTSA**2/6
+!     RDTS22 : RDTSA**2/2
+
+!     RTDT   : TDT
+
+INTEGER(KIND=JPIM) :: NINDAT
+INTEGER(KIND=JPIM) :: NSSSSS
+INTEGER(KIND=JPIM) :: NSTADD
+INTEGER(KIND=JPIM) :: NSTASS
+REAL(KIND=JPRB) :: RTIMST
+REAL(KIND=JPRB) :: RSTATI
+REAL(KIND=JPRB) :: RTIMTR
+REAL(KIND=JPRB) :: RHGMT
+REAL(KIND=JPRB) :: REQTIM
+REAL(KIND=JPRB) :: RSOVR
+REAL(KIND=JPRB) :: RDEASO
+REAL(KIND=JPRB) :: RDECLI
+REAL(KIND=JPRB) :: RWSOVR
+REAL(KIND=JPRB) :: RIP0
+REAL(KIND=JPRB) :: RCODEC
+REAL(KIND=JPRB) :: RSIDEC
+REAL(KIND=JPRB) :: RCOVSR
+REAL(KIND=JPRB) :: RSIVSR
+REAL(KIND=JPRB) :: RDTSA
+REAL(KIND=JPRB) :: RDTSA2
+REAL(KIND=JPRB) :: RDTS62
+REAL(KIND=JPRB) :: RDTS22
+REAL(KIND=JPRB) :: RTDT
+REAL(KIND=JPRB) :: RDECLU
+REAL(KIND=JPRB) :: RTMOLT
+REAL(KIND=JPRB) :: RIP0LU
+REAL(KIND=JPRB) :: RCODECLU
+REAL(KIND=JPRB) :: RSIDECLU
+REAL(KIND=JPRB) :: RCOVSRLU
+REAL(KIND=JPRB) :: RSIVSRLU
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(nindat,nsssss,nstadd,nstass,rcodec,rcodeclu,rcovsr,rcovsrlu,rdeaso,rdecli,rdeclu)
+!$OMP THREADPRIVATE(rdts22,rdts62,rdtsa,rdtsa2,reqtim,rhgmt,rip0,rip0lu,rsidec,rsideclu,rsivsr)
+!$OMP THREADPRIVATE(rsivsrlu,rsovr,rstati,rtdt,rtimst,rtimtr,rtmolt,rwsovr)
+END MODULE YOMRIP
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsc2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsc2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsc2.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOMSC2
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! NSLWIDE    : NUMBER OF "ROWS" THE MODEL LAGGED PART RUNS BEHIND
+! NOBWIDE    : NUMBER OF "ROWS" FOR OBSERVATION HALO
+! NRIWIDEN   : NUMBER OF "ROWS" FOR RADIATION INPUT NORTH (MODEL GRID)
+! NRIWIDES   : NUMBER OF "ROWS" FOR RADIATION INPUT SOUTH (MODEL GRID)
+! NRIWIDEW   : NUMBER OF "ROWS" FOR RADIATION INPUT WEST  (MODEL GRID)
+! NRIWIDEE   : NUMBER OF "ROWS" FOR RADIATION INPUT EAST  (MODEL GRID)
+! NROWIDEN   : NUMBER OF "ROWS" FOR RADIATION OUTPUT NORTH (RADIATION GRID)
+! NROWIDES   : NUMBER OF "ROWS" FOR RADIATION OUTPUT SOUTH (RADIATION GRID)
+! NROWIDEW   : NUMBER OF "ROWS" FOR RADIATION OUTPUT WEST  (RADIATION GRID)
+! NROWIDEE   : NUMBER OF "ROWS" FOR RADIATION OUTPUT EAST  (RADIATION GRID)
+! NFLDSLB1   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 1
+! NFLDSLB2   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 2
+! NFLDOBB1   : NUMBER OF FIELDS IN OBSERVATION BUFFER 1
+! NFLDSLB15  : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 15 (TL and adjoint)
+! NDIST      : START ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
+! NDIEND     : END   ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
+! NCIST      : START ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
+! NCIEND     : END   ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDIST(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDIEND(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NCIST(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NCIEND(:)
+
+INTEGER(KIND=JPIM) :: NSLWIDE
+INTEGER(KIND=JPIM) :: NFLDSLB1
+INTEGER(KIND=JPIM) :: NFLDSLB2
+INTEGER(KIND=JPIM) :: NFLDOBB1
+INTEGER(KIND=JPIM) :: NFLDSLB15
+INTEGER(KIND=JPIM) :: NOBWIDE
+INTEGER(KIND=JPIM) :: NRIWIDEN
+INTEGER(KIND=JPIM) :: NRIWIDES
+INTEGER(KIND=JPIM) :: NRIWIDEW
+INTEGER(KIND=JPIM) :: NRIWIDEE
+INTEGER(KIND=JPIM) :: NROWIDEN
+INTEGER(KIND=JPIM) :: NROWIDES
+INTEGER(KIND=JPIM) :: NROWIDEW
+INTEGER(KIND=JPIM) :: NROWIDEE
+
+!-----------------------------------------------------------------------
+!$OMP THREADPRIVATE(nfldobb1,nfldslb1,nfldslb15,nfldslb2,nobwide,nriwidee,nriwiden,nriwides)
+!$OMP THREADPRIVATE(nriwidew,nrowidee,nrowiden,nrowides,nrowidew,nslwide)
+!$OMP THREADPRIVATE(nciend,ncist,ndiend,ndist)
+END MODULE YOMSC2
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomscm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomscm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomscm.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOMSCM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!-------------------------------------------------
+! SCM: extraction of Single Column Model profiles from 3D model.
+!-------------------------------------------------
+
+! NFRSCM
+! NSCMTS
+
+! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
+! NSCM_SPACE_S = 0: choose profiles close to the location
+!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
+! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
+! NSCM_SPACE_S = 10: choose profiles depending on physical output,
+! for example precipitating profiles.
+!-------------------------------------------------
+
+! NSCM_SPACE_S: kind of space sampling.
+
+! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
+! NSCM_SPACE_S = 0: choose profiles close to the location
+!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
+! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
+! NSCM_SPACE_S = 10: choose profiles depending on physical output,
+! for example precipitating profiles.
+!-------------------------------------------------
+! GSCM_LON1: longitude in rad [-pi,pi].
+! GSCM_LON2: longitude in rad [-pi,pi].
+! GSCM_LAT1: latitude  in rad [-pi/2,pi/2].
+! GSCM_LAT2: latitude  in rad [-pi/2,pi/2].
+!-------------------------------------------------
+! GSCM_RADIUS: search radius in meters (case NSCM_SPACE_S = 0).
+!-------------------------------------------------
+
+LOGICAL :: LGSCM
+INTEGER(KIND=JPIM) :: NFRSCM
+INTEGER(KIND=JPIM), PARAMETER :: JPNPST=240
+INTEGER(KIND=JPIM) :: NSCMTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NSCM_SPACE_S
+REAL(KIND=JPRB) :: GSCM_LON1
+REAL(KIND=JPRB) :: GSCM_LON2
+REAL(KIND=JPRB) :: GSCM_LAT1
+REAL(KIND=JPRB) :: GSCM_LAT2
+REAL(KIND=JPRB) :: GSCM_RADIUS
+INTEGER(KIND=JPIM) :: NSCM_ADD_SAMPL
+
+!$OMP THREADPRIVATE(gscm_lat1,gscm_lat2,gscm_lon1,gscm_lon2,gscm_radius,lgscm,nfrscm,nscm_add_sampl,nscm_space_s,nscmts)
+END MODULE YOMSCM
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsimphl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsimphl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsimphl.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE YOMSIMPHL
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!   -----------------------------------------------------------------
+
+!*    with logical switches for simplified physical 
+!           parametrization
+
+!    LSIMPH   : switch for simplified physical parametrization 
+!    LTRAJPS  : switch for write out and read the trajectory at 
+!               t-dt for simplified physical computations in file
+!    LTRAJPST : switch for write out and read the trajectory at 
+!               t-dt for fluxes and tendencies in file
+!    LSMOOTHD : smoothing some functions in direct computation
+!    LSMOOTHA : smoothing some functions in TL and AD computations
+!    LSMOOTHB : modifications in simplified physical parametrizations
+!               to stabilize the TL and AD codes
+
+!    LCVRASP  : key for calling deep convection of simplified
+!               phys. parametrization (ACCONV)
+!    LGWDSP   : key for calling the gravity wave drag of simpl.
+!               phys. parametrization (ACDRAGL)
+!    LRAYSP   : key for calling radiation scheme of simplified
+!               phys. parametrization (ACRADS)
+!    LSTRASP  : key for calling stratiform precipitation of simpl.
+!               phys. parametrization (ACQWLSR)
+!    LVDIFSP  : key for calling the vertical turbulent diffusion
+!               of simpl. phys. param. (ACTSEC,ACDIFSP)
+!    LRRMESSP : key for calling the mesospheric drag
+!               of simpl. phys. param. (ACDRME)
+!    LCLOUDS  : key for cloud parametrization
+
+LOGICAL :: LSIMPH
+LOGICAL :: LTRAJPS
+LOGICAL :: LTRAJPST
+LOGICAL :: LSMOOTHD
+LOGICAL :: LSMOOTHA
+LOGICAL :: LSMOOTHB
+LOGICAL :: LCVRASP
+LOGICAL :: LGWDSP
+LOGICAL :: LRAYSP
+LOGICAL :: LSTRASP
+LOGICAL :: LVDIFSP
+LOGICAL :: LRRMESSP
+LOGICAL :: LCLOUDS
+
+!   ----------------------------------------------------------------
+!$OMP THREADPRIVATE(lclouds,lcvrasp,lgwdsp,lraysp,lrrmessp,lsimph,lsmootha,lsmoothb,lsmoothd,lstrasp)
+!$OMP THREADPRIVATE(ltrajps,ltrajpst,lvdifsp)
+END MODULE YOMSIMPHL
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomslphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomslphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomslphy.F90	(revision 3330)
@@ -0,0 +1,31 @@
+MODULE YOMSLPHY
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! * Variables for split ECMWF physics.
+
+! LSLPHY  : for split physics (one part at t-Dt, one part at t+Dt);
+!           can be used only at ECMWF with the ECMWF package.
+! RSLWX   : level of implicitness of semi-Lagrangian/physics.
+! NVTEND  : third dimension of SAVTEND (number of 3D fields).
+! SAVTEND : buffer to store the physical tendencies.
+
+LOGICAL :: LSLPHY
+REAL(KIND=JPRB)   , PARAMETER :: RSLWX=0.5_JPRB
+INTEGER(KIND=JPIM) :: NVTEND
+REAL(KIND=JPRB),ALLOCATABLE :: SAVTEND(:,:,:,:)
+! Pointers for SAVTEND
+INTEGER(KIND=JPIM) :: MU_SAVTEND,MV_SAVTEND,MT_SAVTEND,MSAT_SAVTEND
+INTEGER(KIND=JPIM) :: MU_SAVTEND_S,MV_SAVTEND_S,MT_SAVTEND_S,MSAT_SAVTEND_S
+INTEGER(KIND=JPIM) :: MSAVTEND_S
+
+!$OMP THREADPRIVATE(lslphy,msat_savtend,msat_savtend_s,msavtend_s,mt_savtend,mt_savtend_s)
+!$OMP THREADPRIVATE(mu_savtend,mu_savtend_s,mv_savtend,mv_savtend_s,nvtend)
+!$OMP THREADPRIVATE(savtend)
+END MODULE YOMSLPHY
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsta.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsta.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsta.F90	(revision 3330)
@@ -0,0 +1,128 @@
+MODULE YOMSTA
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Description of standard atmosphere (prefix R)
+!*    and of reference atm. used in post-processing (prefix V)
+
+!    Suffixe    for RZ, RT and RP (VZ, VT AND VP)            |      RDTDZ
+!                                                            |
+!  1:(SUR)   Soil Surface                                    | 1: Troposphere
+!  2:(TROP)  Bottom of tropopause                            | 2: Tropopause
+!  3:(STRA)  Top of tropopause - Bottom of stratosphere      | 3: Stratosphere
+!  4:(STR2)  Modification of temperature gradient            | 4:      "
+!  5:(STPO)  Top of stratosphere - Bottom of stratopause     | 5: Stratopause
+!  6:(MESO)  Top of stratopause - Bottom of mesosphere       | 6: Mesosphere
+!  7:(MES2)  Modification of temperature gradient            | 7:      "
+!  8:(MEPO)  Top of mesosphere - Bottom of mesopause         | 8: Mesopause
+!  9:(ABOV)  Top of mesopause                                | 9: Above
+
+!  and we have for exemple :
+!     RDTDZ1: DT/DZ below tropopause (-6.5 K/KM)
+!     RZTROP: Top of troposphere (Height of tropopause : 11000 M)
+!     RTSUR : Surface temperature (288.15)
+
+!     STPREH(0:NFLEVG) : PRESSURE OF THE HALF LEVELS
+!     STPRE   (NFLEVG) : PRESSURE OF THE LEVELS
+!     STPHI   (NFLEVG) : GEOPOTENTIAL
+!     STTEM   (NFLEVG) : TEMPERATURE
+!     STDEN   (NFLEVG) : DENSITY
+!     STZ     (NFLEVG) : GEOPOTENTIAL
+
+! === OTHER QUANTITIES ===
+
+! NLEXTRAP: LEVEL (CLOSE TO THE SURFACE) 
+!          FROM WHERE THE TEMPERATURE IS EXTRAPOLATED 
+! HEXTRAP : height from where the temperature is extrapolated.
+
+REAL(KIND=JPRB),ALLOCATABLE:: STPREH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STPRE(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STPHI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STTEM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STDEN(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STZ(:)
+REAL(KIND=JPRB) :: RZTROP
+REAL(KIND=JPRB) :: RZSTRA
+REAL(KIND=JPRB) :: RZSTR2
+REAL(KIND=JPRB) :: RZSTPO
+REAL(KIND=JPRB) :: RZMESO
+REAL(KIND=JPRB) :: RZMES2
+REAL(KIND=JPRB) :: RZMEPO
+REAL(KIND=JPRB) :: RZABOV
+REAL(KIND=JPRB) :: RTSUR
+REAL(KIND=JPRB) :: RTTROP
+REAL(KIND=JPRB) :: RTSTRA
+REAL(KIND=JPRB) :: RTSTR2
+REAL(KIND=JPRB) :: RTSTPO
+REAL(KIND=JPRB) :: RTMESO
+REAL(KIND=JPRB) :: RTMES2
+REAL(KIND=JPRB) :: RTMEPO
+REAL(KIND=JPRB) :: RTABOV
+REAL(KIND=JPRB) :: RPTROP
+REAL(KIND=JPRB) :: RPSTRA
+REAL(KIND=JPRB) :: RPSTR2
+REAL(KIND=JPRB) :: RPSTPO
+REAL(KIND=JPRB) :: RPMESO
+REAL(KIND=JPRB) :: RPMES2
+REAL(KIND=JPRB) :: RPMEPO
+REAL(KIND=JPRB) :: RPABOV
+REAL(KIND=JPRB) :: RDTDZ1
+REAL(KIND=JPRB) :: RDTDZ2
+REAL(KIND=JPRB) :: RDTDZ3
+REAL(KIND=JPRB) :: RDTDZ4
+REAL(KIND=JPRB) :: RDTDZ5
+REAL(KIND=JPRB) :: RDTDZ6
+REAL(KIND=JPRB) :: RDTDZ7
+REAL(KIND=JPRB) :: RDTDZ8
+REAL(KIND=JPRB) :: RDTDZ9
+REAL(KIND=JPRB) :: VZTROP
+REAL(KIND=JPRB) :: VZSTRA
+REAL(KIND=JPRB) :: VZSTR2
+REAL(KIND=JPRB) :: VZSTPO
+REAL(KIND=JPRB) :: VZMESO
+REAL(KIND=JPRB) :: VZMES2
+REAL(KIND=JPRB) :: VZMEPO
+REAL(KIND=JPRB) :: VZABOV
+REAL(KIND=JPRB) :: VTSUR
+REAL(KIND=JPRB) :: VTTROP
+REAL(KIND=JPRB) :: VTSTRA
+REAL(KIND=JPRB) :: VTSTR2
+REAL(KIND=JPRB) :: VTSTPO
+REAL(KIND=JPRB) :: VTMESO
+REAL(KIND=JPRB) :: VTMES2
+REAL(KIND=JPRB) :: VTMEPO
+REAL(KIND=JPRB) :: VTABOV
+REAL(KIND=JPRB) :: VPTROP
+REAL(KIND=JPRB) :: VPSTRA
+REAL(KIND=JPRB) :: VPSTR2
+REAL(KIND=JPRB) :: VPSTPO
+REAL(KIND=JPRB) :: VPMESO
+REAL(KIND=JPRB) :: VPMES2
+REAL(KIND=JPRB) :: VPMEPO
+REAL(KIND=JPRB) :: VPABOV
+REAL(KIND=JPRB) :: VDTDZ1
+REAL(KIND=JPRB) :: VDTDZ2
+REAL(KIND=JPRB) :: VDTDZ3
+REAL(KIND=JPRB) :: VDTDZ4
+REAL(KIND=JPRB) :: VDTDZ5
+REAL(KIND=JPRB) :: VDTDZ6
+REAL(KIND=JPRB) :: VDTDZ7
+REAL(KIND=JPRB) :: VDTDZ8
+REAL(KIND=JPRB) :: VDTDZ9
+REAL(KIND=JPRB) :: HEXTRAP
+INTEGER(KIND=JPIM) :: NLEXTRAP
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(hextrap,nlextrap,rdtdz1,rdtdz2,rdtdz3,rdtdz4,rdtdz5,rdtdz6,rdtdz7,rdtdz8,rdtdz9)
+!$OMP THREADPRIVATE(rpabov,rpmepo,rpmes2,rpmeso,rpstpo,rpstr2,rpstra,rptrop,rtabov,rtmepo,rtmes2,rtmeso)
+!$OMP THREADPRIVATE(rtstpo,rtstr2,rtstra,rtsur,rttrop,rzabov,rzmepo,rzmes2,rzmeso,rzstpo,rzstr2,rzstra)
+!$OMP THREADPRIVATE(rztrop,vdtdz1,vdtdz2,vdtdz3,vdtdz4,vdtdz5,vdtdz6,vdtdz7,vdtdz8,vdtdz9,vpabov,vpmepo)
+!$OMP THREADPRIVATE(vpmes2,vpmeso,vpstpo,vpstr2,vpstra,vptrop,vtabov,vtmepo,vtmes2,vtmeso,vtstpo,vtstr2)
+!$OMP THREADPRIVATE(vtstra,vtsur,vttrop,vzabov,vzmepo,vzmes2,vzmeso,vzstpo,vzstr2,vzstra,vztrop)
+!$OMP THREADPRIVATE(stden,stphi,stpre,stpreh,sttem,stz)
+END MODULE YOMSTA
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsw15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsw15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomsw15.F90	(revision 3330)
@@ -0,0 +1,55 @@
+MODULE YOMSW15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMSW15* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
+!*                         FROZEN VERSION (CYCLE 15) OF YOESW
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: APAD15(2,3,7)
+REAL(KIND=JPRB) :: BPAD15(2,3,7)
+REAL(KIND=JPRB) :: RRAY15(2,6)
+REAL(KIND=JPRB) :: RSUN15(2)
+REAL(KIND=JPRB) :: RPDH115
+REAL(KIND=JPRB) :: RPDU115
+REAL(KIND=JPRB) :: RPNH15
+REAL(KIND=JPRB) :: RPNU15
+REAL(KIND=JPRB) :: RSWCE15
+REAL(KIND=JPRB) :: RSWCP15
+REAL(KIND=JPRB) :: RTDH2O15
+REAL(KIND=JPRB) :: RTDUMG15
+REAL(KIND=JPRB) :: RTH2O15
+REAL(KIND=JPRB) :: RTUMG15
+REAL(KIND=JPRB) :: D15(2,3)
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     ORIGINAL BY J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+!  APAD15  :  REAL     PADE APPROXIMANTS NUMERATOR
+!  BPAD15  :  REAL     PADE APPROXIMANTS DENOMINATOR
+!  D15     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
+!  RRAY15  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
+!  RSUN15  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
+!  RPDH115 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
+!  RPDU115 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RPNH15  :  REFERENCE PRESSURE FACTOR FOR H2O
+!  RPNU15  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
+!  RSWCE15 :  E-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
+!  RSWCP15 :  P-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
+!  RTDH2O15:  EXPONENT TEMPERATURE DEPENDENCE H2O
+!  RTDUMG15:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RTH2O15 :  REFERENCE TEMPERATURE H2O
+!  RTUMG15 :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(apad15,bpad15,d15,rpdh115,rpdu115,rpnh15,rpnu15,rray15,rsun15,rswce15,rswcp15)
+!$OMP THREADPRIVATE(rtdh2o15,rtdumg15,rth2o15,rtumg15)
+END MODULE YOMSW15
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtag.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtag.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtag.F90	(revision 3330)
@@ -0,0 +1,114 @@
+MODULE YOMTAG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Tag identifiers used in message passing communication
+
+! MTAGLM: tag for transpositions done in TRLTOM.
+! MTAGMS: tag for transpositions done in TRMTOS.
+! MTAGSM: tag for transpositions done in TRSTOM.
+! MTAGMV: tag for transpositions done in TRMTOV.
+! MTAGVH: tag for transpositions done in TRVTOH.
+! MTAGMN: tag for transpositions done in TRMTON.
+! MTAGNM: tag for transpositions done in TRNTOM.
+! MTAGSPNO: tag for communications done in COMMSPNORM and COMMSPNORM1.
+! MTAGSLAG: tag for halo constitution (horizontal interpolations
+!  in the semi-Lagrangian scheme, the observation interpolator or FULLPOS).
+! MTAGTIDE: tag for communications done in COMMTIDE.
+! MTAGRAD : tag for communications done in SUECRAD (ECMWF physics)
+! MTAGRCBDY: tag for communications done in RADCBDY (ECMWF physics).
+! MTAGRCLB: tag for communications done in RADCLB (ECMWF physics).
+! MTAGRCLBI: tag for communications done in SUECRADL (ECMWF physics).
+! MTAGPART: tag for communications done in DICOMOUT and GATHFLNM.
+! MTAGDISTSP: tag for communications done in DISSPEC, DISSPEC0 and DIWRSPE.
+! MTAGDISTGP: tag for communications done in
+!  DISGRID, DISGRID_C, DISGRIDFP, DIWRGRFP, DIWRGRID, IRCVGPF, IRCVGPFFP,
+!  ISNDGPF, ISNDGPFFP, ORCVGPF, ORCVGPFFP, OSNDGPF, OSNDGPFFP.
+! MTAGCAIN: tag for communications done in GATHERSPA.
+! MTAGCOST: tag for communications done in
+!  GATHERCOST1, GATHERCOST2, GATHERCOSTO and GATHERJCVERT.
+! MTAGGSUM: tag for communications done in CASND1, CASNDR1 and GATHERSUM.
+! MTAGGLOBSI: tag for communications done in CAEXCO and CAUPDO.
+! MTAGGLOBSR: tag for communications done in CAEXCO and CAUPDO.
+! MTAGOBSEQ: tag for communications done in MPOBSEQ.
+! MTAGOBSEQAD: tag for communications done in MPOBSEQAD.
+! MTAGFCE: tag for communications done in
+!  COMMFCE1, COMMFCE2, COMMJBBAL and COMMJBDAT.
+! MTAGBDY: tag for communications done in GATHERBDY.
+! MTAGSIG: tag for communications done in SIGCHECK.
+! MTAGBRPR: tag for communications done in BRPTOB and GATHERT.
+! MTAGGPNORM: tag for communications done in GPNORM1.
+! MTAGDDHRES: tag for communications done in DDHRCV and DDHSND.
+! MTAGDDH1: tag for communications done in DISTDDH.
+! MTAGDDH2: tag for communications done in DLADDH.
+! MTAGDDH3: tag for communications done in DMADDH.
+! MTAGDDH4: tag for communications done in DRESDDH.
+! MTAGGETV: tag for communications done in SUHESS.
+! MTAGOZON: tag for communications done in UPDO3CH.
+! MTAGREADVEC: tag for communications done in READVEC.
+! MT_DISTRIBUTED_VECTOR: tag for communications done in SUMPINI.
+! MTAGLCZ: tag for communications done in COMMNSEC1.
+! MTAGGOM: tag for communications done in GATHERGOM.
+! MTAGFREQ: tag for communications done in GATHERFREQ.
+! MTAGEIGMD: tag for communications done in GATHEREIGMD.
+! MTAGKE: tag for communications done in VMODEENERGY.
+! MTAGDISTFO: tag for communications done in DISFOU and DIWRFOU.
+
+!      YOMTAG
+
+INTEGER(KIND=JPIM) :: MTAGLM
+INTEGER(KIND=JPIM) :: MTAGMS
+INTEGER(KIND=JPIM) :: MTAGSM
+INTEGER(KIND=JPIM) :: MTAGMV
+INTEGER(KIND=JPIM) :: MTAGVH
+INTEGER(KIND=JPIM) :: MTAGSPNO
+INTEGER(KIND=JPIM) :: MTAGSLAG
+INTEGER(KIND=JPIM) :: MTAGTIDE
+INTEGER(KIND=JPIM) :: MTAGRAD
+INTEGER(KIND=JPIM) :: MTAGRCBDY
+INTEGER(KIND=JPIM) :: MTAGRCLB
+INTEGER(KIND=JPIM) :: MTAGRCLBI
+INTEGER(KIND=JPIM) :: MTAGPART
+INTEGER(KIND=JPIM) :: MTAGDISTSP
+INTEGER(KIND=JPIM) :: MTAGDISTGP
+INTEGER(KIND=JPIM) :: MTAGMN
+INTEGER(KIND=JPIM) :: MTAGNM
+INTEGER(KIND=JPIM) :: MTAGCAIN
+INTEGER(KIND=JPIM) :: MTAGCOST
+INTEGER(KIND=JPIM) :: MTAGGSUM
+INTEGER(KIND=JPIM) :: MTAGGLOBSI
+INTEGER(KIND=JPIM) :: MTAGGLOBSR
+INTEGER(KIND=JPIM) :: MTAGOBSEQ
+INTEGER(KIND=JPIM) :: MTAGOBSEQAD
+INTEGER(KIND=JPIM) :: MTAGFCE
+INTEGER(KIND=JPIM) :: MTAGBDY
+INTEGER(KIND=JPIM) :: MTAGDDHRES
+INTEGER(KIND=JPIM) :: MTAGSIG
+INTEGER(KIND=JPIM) :: MTAGBRPR
+INTEGER(KIND=JPIM) :: MTAGGPNORM
+INTEGER(KIND=JPIM) :: MTAGDDH1
+INTEGER(KIND=JPIM) :: MTAGDDH2
+INTEGER(KIND=JPIM) :: MTAGDDH3
+INTEGER(KIND=JPIM) :: MTAGDDH4
+INTEGER(KIND=JPIM) :: MTAGGETV
+INTEGER(KIND=JPIM) :: MTAGOZON
+INTEGER(KIND=JPIM) :: MTAGREADVEC
+INTEGER(KIND=JPIM) :: MT_DISTRIBUTED_VECTOR
+INTEGER(KIND=JPIM) :: MTAGLCZ
+INTEGER(KIND=JPIM) :: MTAGGOM
+INTEGER(KIND=JPIM) :: MTAGFREQ
+INTEGER(KIND=JPIM) :: MTAGEIGMD
+INTEGER(KIND=JPIM) :: MTAGKE
+INTEGER(KIND=JPIM) :: MTAGDISTFO
+
+!$OMP THREADPRIVATE(mt_distributed_vector,mtagbdy,mtagbrpr,mtagcain,mtagcost,mtagddh1,mtagddh2,mtagddh3,mtagddh4)
+!$OMP THREADPRIVATE(mtagddhres,mtagdistfo,mtagdistgp,mtagdistsp,mtageigmd,mtagfce,mtagfreq,mtaggetv,mtagglobsi)
+!$OMP THREADPRIVATE(mtagglobsr,mtaggom,mtaggpnorm,mtaggsum,mtagke,mtaglcz,mtaglm,mtagmn,mtagms,mtagmv,mtagnm)
+!$OMP THREADPRIVATE(mtagobseq,mtagobseqad,mtagozon,mtagpart,mtagrad,mtagrcbdy,mtagrclb,mtagrclbi,mtagreadvec)
+!$OMP THREADPRIVATE(mtagsig,mtagslag,mtagsm,mtagspno,mtagtide,mtagvh)
+END MODULE YOMTAG
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtddh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtddh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtddh.F90	(revision 3330)
@@ -0,0 +1,313 @@
+MODULE YOMTDDH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    TABLEAUX DE CUMUL DES DIAGNOSTICS DDH
+
+!      REAL HDCVB0 (NDHCV*(NFLEVG+1),NDHIDH)
+!      REAL HDCVB1 (NDHCV*(NFLEVG+1),NDHIDH)
+!      REAL HDCS0 (NDHCS,NDHIDH)
+!      REAL HDCS1 (NDHCS,NDHIDH)
+
+REAL(KIND=JPRB),ALLOCATABLE:: HDCVB0(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDCVB1(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDCS0(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDCS1(:,:,:)
+
+! ARRAY TO SAVE INITIAL VALUES FOR FREE STYLE VARIABLES
+
+REAL(KIND=JPRB),ALLOCATABLE:: PDDHFSVI(:)
+
+!    POINTEURS
+
+!    TABLEAUX DE CUMUL DES DIAGNOSTICS DDH
+!    --------------------------------------
+
+!    DHCV. : TABLEAUX DE CUMULS DES VARIABLES/FLUX EN PROFILS VERTICAUX
+!    DHCVB.: TABLEAUX DE CUMULS PAR VARIABLES/FLUX NON DECOUPES EN NIVEAUX
+!    DHCS. : TABLEAUX DE CUMULS DES VARIABLES/FLUX AU SOL
+
+!    ORGANISATION DES TABLEAUX:
+!       CHAMPS ATMOSPHERIQUES
+!             TABLEAUX ---0 : VARIABLES INITIALES
+!             TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES
+!             TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1
+!             TABLEAUX ---1 : CUMULS JUSQU A NSTEP
+!             1 A NDHVV:                                  VARIABLES DU MODELE
+!             NDHVV+1 A NDHVV+NDHAVD:                     TENDANCES DYNAMIQUES
+!             NDHVV+NDHAVD+1 A NDHVV+NDHFVD:              FLUX DYNAMIQUES
+!             NDHVV+NDHFVD+1 A NDHVV+NDHFVD+NDHAVP:       FLUX PHYSIQUES
+!             NDHVV+NDHFVD+NDHAVP+1 A NDHCV:              TENDANCES PHYSIQUES
+!       CHAMPS SOL
+!             TABLEAUX ---0 : VARIABLES INITIALES
+!             TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES
+!             TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1
+!             TABLEAUX ---1 : CUMULS JUSQU A NSTEP
+!             1 A NDHVS:                                  VARIABLES DU MODELE
+!             NDHVS+1 A NDHVS+NDHVFS:                     FREE-STYLE VARIABLES
+!             NDHVS+NDHVFS+1 A NDHVS+NDHVFS+NDHFSD:       CUMULS DYNAMIQUES
+!             NDHVS+NDHVFS+NDHFSD+1 A
+!                NDHVS+NDHVFS+NDHFSD+NDHFSP:              CUMULS PHYSIQUES
+!             NDHVS+NDHVFS+NDHFSD+NDHFSP+1 A
+!                NDHVS+NDHVFS+NDHFSD+NDHFSP+NDHFFS=NDHCS: FREE-STYLE FLUXES
+
+!    LA VALEUR D UN CHAMP AU NIVEAU JLEV = 0 N A DE SENS QUE POUR LES
+!    FLUX. POUR LES TENDANCES ET VARIABLES, CETTE VALEUR EST NULLE
+
+!    CONTENU DES TABLEAUX
+!    --------------------
+
+!*      1. PROFILS VERTICAUX
+
+!*      1.1 VARIABLES
+
+!       SI LHDHKS (DEBUT A L'INDICE 1)
+!  1-VPP          - MASSE D'AIR
+!  2-VQV          - MASSE DE VAPEUR D'EAU QV
+!  3-VUU          - QUANTITE DE MOUVEMENT ZONALE UZ
+!  4-VVV          - QUANTITE DE MOUVEMENT MERIDIENNE VM
+!  5-VKK          - ENERGIE CINETIQUE KENE
+!  6-VCT          - ENTHALPIE CP*T
+!  7-VEP          - ENERGIE POTENTIELLE PHI
+!  8-VHR          - HUMIDITE RELATIVE
+!  9-VQL          - MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 10-VQN          - MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+! 9+NHDQLNVA-V01  - VARIABLE PASSIVE NUMERO 01 (SI LHDPAS=.TRUE.)
+!    ...
+! 9+NHDQLNVA+NHDPASVA-1-Vxx - VARIABLE PASSIVE NUMERO xx=NHDPASVA (SI LHDPAS=.TRUE.)
+! 9+NHDQLNVA+NHDPASVA-VNT - NEBULOSITE TOTALE
+! 10+NHDQLNVA+NHDPASVA-VOM - VITESSE VERTICALE EN COORDONNEE PRESSION
+!       SI LHDMCI (DEBUT A L'INDICE NDHVHK+1)
+!  1-VA1          - MOMENT ANGULAIRE A1
+!  2-VA2          - MOMENT ANGULAIRE A2
+!  3-VA3          - MOMENT ANGULAIRE A3
+!       SI LHDENT (DEBUT A L'INDICE NDHVHK+NDHVMC+1)
+!  1-VSS          - ENTROPIE: S
+
+!*      1.2 TENDANCES DYNAMIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+1)
+!  1-TPPDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'AIR
+!  2-TQVDIVFLUHOR - DIV. FLUX HORIZONTAL DE VAPEUR D'EAU
+!  3-TUUDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT ZONALE (CALCUL PARTIEL)
+!  4-TVVDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT MERIDIENNE (PARTIEL)
+!  5-TUUFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE MERIDIENNE
+!  6-TVVFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE ZONALE
+!  7-TKKDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE CINETIQUE
+!  8-TKKCONVERSI1 - TRAVAIL DES FORCES DE PRESSION
+!  9-TCTDIVFLUHOR - DIV. FLUX HORIZONTAL ENTHALPIE
+! 10-TCTCONVERSI2 - CONVERSION D'ENERGIE INTERNE
+! 11-TCTCONVERSI3 - CONVERSION D'ENERGIE INTERNE INDUITE PAR LES PRECIPITATIONS
+! 12-TEPDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE POTENTIELLE
+! 13-PPP          - MASSE D'AIR: CUMUL TEMPOREL
+! 14-TQLDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 15-TQNDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAHKD+1)
+!  1-TA1DIVFLUHOR - MOMENT ANGULAIRE A1: DIV. FLUX HORIZONTAL
+!  2-TA2DIVFLUHOR - MOMENT ANGULAIRE A2: DIV. FLUX HORIZONTAL
+!  3-TA3DIVFLUHOR - MOMENT ANGULAIRE A3: DIV. FLUX HORIZONTAL
+!  4-TA1ADJUST    - MOMENT ANGULAIRE A1: TERME D'AJUSTEMENT
+!  5-TA2ADJUST    - MOMENT ANGULAIRE A2: TERME D'AJUSTEMENT
+!  6-TA3ADJUST    - MOMENT ANGULAIRE A3: TERME D'AJUSTEMENT
+!  7-TA1NONAX     - MOMENT ANGULAIRE A1: MOMENT NON AXIAL
+!  8-TA2NONAX     - MOMENT ANGULAIRE A2: MOMENT NON AXIAL
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAHKD+NDHAMCD+1)
+!  1-TSSDIVFLUHOR - ENTROPIE: DIV. FLUX HORIZONTAL
+!  2-TSSPRECICT   - ENTROPIE: EFFET PRECIPITATIONS SUR ENTHALPIE
+
+!*      1.3 FLUX DYNAMIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHAVD+1)
+!  1-FPPFLUVERTDYN- VERTICAL DE MASSE D'AIR
+!  2-FQVFLUVERTDYN- VERTICAL DE VAPEUR D'EAU
+!  3-FUUFLUVERTDYN- VERTICAL DE QTE DE MVT ZONALE
+!  4-FVVFLUVERTDYN- VERTICAL DE QTE DE MVT MERIDIENNE
+!  5-FUUFLUDUAPLUI- QTE DE MVT ZONALE TRANSPORTEE PAR PRECIPITATIONS
+!  6-FVVFLUDUAPLUI- QTE DE MVT MERIDIENNE TRANSPORTEE PAR PRECIPITATIONS
+!  7-FKKFLUVERTDYN- VERTICAL D'ENERGIE CINETIQUE
+!  8-FKKFLUDUAPLUI- ENERGIE CINETIQUE TRANSPORTEE PAR PRECIPITATIONS
+!  9-FCTFLUVERTDYN- VERTICAL D'ENTHALPIE
+! 10-FEPCONVERSIFL- PSEUDO VERTICAL D'ENERGIE POTENTIELLE
+! 11-FQLFLUVERTDYN- VERTICAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 12-FQNFLUVERTDYN- VERTICAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+1)
+!  1-FA1FLUVERTDYN- MOMENT ANGULAIRE A1: FLUX VERTICAL DYNAMIQUE
+!  2-FA2FLUVERTDYN- MOMENT ANGULAIRE A2: FLUX VERTICAL DYNAMIQUE
+!  3-FA3FLUVERTDYN- MOMENT ANGULAIRE A3: FLUX VERTICAL DYNAMIQUE
+!  4-FA1GRAV      - MOMENT ANGULAIRE A1: FORCE DE GRAVITE
+!  5-FA2GRAV      - MOMENT ANGULAIRE A2: FORCE DE GRAVITE
+!  6-FA3GRAV      - MOMENT ANGULAIRE A3: FORCE DE GRAVITE
+!  7-FA1FLUDUAPLUI- MOMENT ANGULAIRE A1: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)
+!  8-FA2FLUDUAPLUI- MOMENT ANGULAIRE A2: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)
+!  9-FA3FLUDUAPLUI- MOMENT ANGULAIRE A3: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+NDHBMCD+1)
+!  1-FSSFLUVERTDYN-  ENTROPIE: FLUX VERTICAL DYNAMIQUE
+!  2-FSSPRECISS   -  ENTROPIE: EFFET DIRECT DES PRECIPITATIONS
+
+!*      1.4 FLUX PHYSIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+1)
+!  1-FPPSUMFPL    - TOTAL DE PRECIPITATION, PERTE DE MASSE D'AIR
+!  2-FQVTUR       - TURBULENT DE VAPEUR D'EAU
+!  3-FQVTURCONV   - TURBULENT DE VAPEUR D'EAU DU A LA CONVECTION
+!  4-FQVPRECISTL  - DE PRECIPITATION STRATIFORME LIQUIDE
+!  5-FQVPRECISTN  - DE PRECIPITATION STRATIFORME NEIGEUSE
+!  6-FQVPRECICOL  - DE PRECIPITATION CONVECTIVE LIQUIDE
+!  7-FQVPRECICON  - DE PRECIPITATION CONVECTIVE NEIGEUSE
+!  8-FQVTURQNEGAT - DE VAPEUR D'EAU COMPENSANT LES VALEURS < 0
+!  9-FUUTUR       - TURBULENT DE QTE DE MVT ZONALE
+! 10-FVVTUR       - TURBULENT DE QTE DE MVT MERIDIENNE
+! 11-FUUTURCONV   - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION
+! 12-FVVTURCONV   - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION
+! 13-FUUONDEGREL  - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES
+! 14-FUUONDEGREL  - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES
+! 15-FCTTUR       - TURBULENT SEC D'ENTHALPIE
+! 16-FCTTURCONV   - TURBULENT CONVECTIF D'ENTHALPIE
+! 17-FCTRAYSOL1   - DE RAYONNEMENT SOLAIRE
+! 18-FCTRAYTER1   - DE RAYONNEMENT THERMIQUE
+! 19-FCTPRECISTL  - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES
+! 20-FCTPRECISTN  - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES
+! 21-FCTPRECICOL  - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES
+! 22-FCTPRECICON  - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES
+! 23-FCTPRECCSCOL - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES
+! 24-FCTPRECCSCON - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES
+! 25-FCTPRECCSSTL - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES
+! 26-FCTPRECCSSTN - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES
+! 27-FQLTUR       - TURBULENT D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 28-FQNTUR       - TURBULENT D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+! 29-FQLTURCONV   - TURBULENT D'EAU LIQUIDE DU A LA CONVECTION (SI LHDQLN=.TRUE.)
+! 30-FQNTURCONV   - TURBULENT D'EAU NEIGEUSE DU A LA CONVECTION (SI LHDQLN=.TRUE.)
+! 31-FQLTURQNEGAT - D'EAU LIQUIDE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.)
+! 32-FQNTURQNEGAT - D'EAU NEIGEUSE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.)
+! 33-FQTCONDECOL  - DE CONDENSATION CONVECTIVE LIQUIDE (SI LHDQLN=.TRUE.)
+! 34-FQTCONDECON  - DE CONDENSATION CONVECTIVE NEIGEUSE (SI LHDQLN=.TRUE.)
+! 35-FQTCONDESTL  - DE CONDENSATION STRATIFORME LIQUIDE (SI LHDQLN=.TRUE.)
+! 36-FQTCONDESTN  - DE CONDENSATION STRATIFORME NEIGEUSE (SI LHDQLN=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+1)
+!  1-FA1TUR       - MOMENT ANGULAIRE A1: DIFFUSION VERTICALE
+!  2-FA2TUR       - MOMENT ANGULAIRE A2: DIFFUSION VERTICALE
+!  3-FA3TUR       - MOMENT ANGULAIRE A3: DIFFUSION VERTICALE
+!  4-FA1TURCONV   - MOMENT ANGULAIRE A1: PROCESSUS CONVECTIFS TURBULENTS
+!  5-FA2TURCONV   - MOMENT ANGULAIRE A2: PROCESSUS CONVECTIFS TURBULENTS
+!  6-FA3TURCONV   - MOMENT ANGULAIRE A3: PROCESSUS CONVECTIFS TURBULENTS
+!  7-FA1ONDEGREL  - MOMENT ANGULAIRE A1: ONDES DE GRAVITE OROGRAPHIQUES
+!  8-FA2ONDEGREL  - MOMENT ANGULAIRE A2: ONDES DE GRAVITE OROGRAPHIQUES
+!  9-FA3ONDEGREL  - MOMENT ANGULAIRE A3: ONDES DE GRAVITE OROGRAPHIQUES
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+NDHAMCP+1)
+
+!*      1.5 TENDANCES PHYSIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+1)
+!  1-TKKDISSIPTUR - DISSIPATION DUE A LA TURBULENCE SECHE
+!  2-TKKDISSIPCONV- DISSIPATION DUE A LA CONVECTION
+!  3-TKKDISSIPGREL- DISSIPATION DUE AUX ONDES DE GRAVITE INDUITES PAR LE RELIEF
+!  4-TQVFORMPSTL  - FORMATION DE PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  5-TCTFORMPSTL  - VARIATION D'ENTHALPIE FORMATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  6-TQVEVAPPSTL  - EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  7-TCTEVAPPSTL  - VARIATION D'ENTHALPIE EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  8-TQVFORMPSTN  - FORMATION DE NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+!  9-TCTFORMPSTN  - VARIATION D'ENTHALPIE FORMATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 10-TQVEVAPPSTN  - EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 11-TCTEVAPPSTN  - VARIATION D'ENTHALPIE EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 12-TQVFONTPST   - FONTE DE NEIGE EN PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+! 13-TCTFONTPST   - VARIATION D'ENTHALPIE FONTE DE NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 14-TQVFORMPCOL  - FORMATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 15-TCTFORMPCOL  - VARIATION D'ENTHALPIE FORMATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 16-TQVEVAPPCOL  - EVAPORATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 17-TCTEVAPPCOL  - VARIATION D'ENTHALPIE EVAPORATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 18-TQVFORMPCON  - FORMATION DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 19-TCTFORMPCON  - VARIATION D'ENTHALPIE FORMATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 20-TQVEVAPPCON  - EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 21-TCTEVAPPCON  - VARIATION D'ENTHALPIE EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 22-TQVFONTPCO   - FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 23-TCTFONTPCO   - VARIATION D'ENTHALPIE FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+1)
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+NDHBMCP+1)
+!  1-TSSDISSIPTUR - ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS SECS
+!                              TURBULENT DISSIPATION OF ENERGY
+!  2-TSSDISSIPCONV- ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS CONVECTIFS
+!                              CONVECTIVE DISSIPATION OF ENERGY
+!  3-TSSDISSIPGREL- ENTROPIE: DISSIPATION DUE AUX ONDES DE RELIEF
+!                              GRAVITY WAVE DRAG DISSIP. OF ENERGY
+!  4-TSSTURQVTOT  - ENTROPIE: PROCESSUS TURBULENTS SUR LA VAPEUR D'EAU
+!                              DIFFUSION OF HUMIDITY
+!  5-TSSRAY1      - ENTROPIE: EFFET DU RAYONNEMENT
+!                              RADIATION
+!  6-TSSTURCTTOT  - ENTROPIE: PROCESSUS TURBULENTS SUR L'ENTHALPIE
+!                              DIFFUSION OF ENTHALPY
+
+!*      2. VARIABLES AU SOL
+
+!*      2.1 VARIABLES
+!       SUR LES POINTS TERRE UNIQUEMENT
+
+!       SI LHDHKS
+!  1-S V          - SURFACE DE TERRE DU DOMAINE (MOYENNE PONDEREE DES PITM)
+!  2-S V          - ENERGIE COUCHE SURFACE
+!  3-S V          - ENERGIE COUCHE PROFONDE
+!  4-S V          - HAUTEUR D'EAU COUCHE SURFACE
+!  5-S V          - HAUTEUR D'EAU COUCHE PROFONDE
+!  6-S V          - HAUTEUR DE NEIGE COUCHE SURFACE
+!       SI LHDMCI
+!       SI LHDENT
+
+!*      2.1a FREE-STYLE VARIABLES
+!       (NOTE: VALID OVER LAND AND SEA)
+
+!       IF LHDHKS.AND.LECMWF
+!  1-SVGFS        - 2-METRE TEMPERATURE
+!  2-SVGFS        - 2-METRE DEWPOINT
+!  3-SVGFS        - 10-METRE U-COMPONENT
+!  4-SVGFS        - 10-METRE V-COMPONENT
+!  5-SVGFS        - SKIN TEMPERATURE
+!  6-SVGFS        - FORECAST SURFACE ROUGHNESS
+!  7-SVGFS        - FORECAST SURFACE ROUGHNESS FOR HEAT
+!  8-SVGFS        - FORECAST ALBEDO
+!       IF LHDMCI
+!       IF LHDENT
+
+!*      2.2 TENDANCES/FLUX DYNAMIQUES
+!       SUR LES POINTS TERRE UNIQUEMENT
+
+!       SI LHDHKS
+!       SI LHDMCI
+!       SI LHDENT
+
+!*      2.3 TENDANCES/FLUX PHYSIQUES
+!       SUR LES POINTS TERRE UNIQUEMENT
+
+!       IF LHDHKS
+!  1-S FVRAC      - FLUX DE RAYONNEMENT SOLAIRE NET (GAIN ALGEBRIQUE POUR LA COUCHE S)
+!  2-S FVRAC      - FLUX DE RAYONNEMENT THERMIQUE NET
+!  3-S FVRAC      - FLUX DE CHALEUR LATENTE, EVAPORATION DE LIQUIDE
+!  4-S FVRAC      - FLUX DE CHALEUR LATENTE, EVAPORATION DE NEIGE
+!  5-S FVRAC      - FLUX DE CHALEUR SENSIBLE
+!  6-S FVRAC      - FLUX DE CHALEUR VERS SOL PROFOND (GAIN ALGEBRIQUE POUR COUCHE P)
+!  7-S FVRAC      - FLUX DE CHALEUR RESULTANT DE LA FONTE DE NEIGE (COUCHE S)
+!  8-S FVRAC      - FLUX DE PRECIPITATIONS STRATIFORMES LIQUIDES (GAIN POUR LA COUCHE S)
+!  9-S FVRAC      - FLUX DE PRECIPITATIONS STRATIFORMES NEIGEUSES
+! 10-S FVRAC      - FLUX DE PRECIPITATIONS CONVECTIVES LIQUIDES
+! 11-S FVRAC      - FLUX DE PRECIPITATIONS CONVECTIVES NEIGEUSES
+! 12-S FVRAC      - FLUX D'EVAPORATION DE LIQUIDE
+! 13-S FVRAC      - FLUX D'EVAPORATION DE NEIGE
+! 14-S FVRAC      - FLUX D'EAU VERS LA COUCHE PROFONDE (GAIN POUR COUCHE P)
+! 15-S FVRAC      - FLUX NEIGE VERS LIQUIDE (FONTE EN SURFACE, COUCHE S)
+! 16-S FVRAC      - TROP-PLEIN EN SURFACE (RUISSELLEMENT, PERDU)
+! 17-S FVRAC      - TROP-PLEIN EN PROFONDEUR (PERDU)
+!       IF LHDMCI
+!       IF LHDENT
+
+!*      2.3a FREE-STYLE FLUXES
+!       (NOTE: VALID OVER LAND AND SEA)
+
+!       IF LHDHKS.AND.LECMWF
+!  1-SFGFS        - SURFACE SOLAR RADIATION DOWNWARDS
+!  2-SFGFS        - SURFACE THERMAL RADIATION DOWNWARDS
+!       IF LHDMCI
+!       IF LHDENT
+!$OMP THREADPRIVATE(hdcs0,hdcs1,hdcvb0,hdcvb1,pddhfsvi)
+END MODULE YOMTDDH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtoph.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtoph.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomtoph.F90	(revision 3330)
@@ -0,0 +1,94 @@
+MODULE YOMTOPH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     Top limits of parametrization call
+!     we have one by parameterization,
+!              ETXXXX : Top pressure
+!              NTXXXX : Corresponding level in standard atmosphere
+
+!       ETQSAT,ETDIFU,ETCOEF,ETDRAG,ETCVIM,ETPLUI,ETRADI,ETNEBU
+!       ETOZON,ETDRME,ETCOEFE,ETCOET,ETAJUC,NTAJUC
+!       NTQSAT,NTDIFU,NTCOEF,NTDRAG,NTCVIM,NTPLUI,NTRADI,NTNEBU
+!       NTOZON,NTDRME,NTCOEFE,NTCOET
+
+!     Constants for Mesospheric drag parameterization
+
+!       XDRMUK  : Mesospheric drag coefficient for U and V
+!       XDRMUX  : Maximum mesospheric drag coefficient for U and V
+!       XDRMUP  : Bottom pressure for U and V
+!       XDRMTK  : Mesospheric drag coefficient for T
+!       XDRMTX  : Maximum mesospheric drag coefficient for T
+!       XDRMTP  : Bottom pressure for T
+!       XDRMQK  : Mesospheric drag coefficient for Q
+!       XDRMQP  : Bottom pressure for Q
+
+!       RMESOU(NFLEVG) : Vertical mesospheric drag profil for U and V
+!       RMESOT(NFLEVG) : Vertical mesospheric drag profil for T
+!       RMESOQ(NFLEV)  : Vertical mesospheric drag profil for Q
+
+!       RFMESOQ   : Mesospheric water reference
+
+!       RCLX      : Multiplicator for Cl term in ozone photochemistry
+
+!       TPSCLIM   : Temperature threshold for activation of heterogeneous
+!                   chemistry (polar stratospheric clouds temperature formation)
+
+REAL(KIND=JPRB),ALLOCATABLE:: RMESOU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RMESOT(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RMESOQ(:)
+
+REAL(KIND=JPRB) :: RFMESOQ
+
+INTEGER(KIND=JPIM) :: NTQSAT
+INTEGER(KIND=JPIM) :: NTDIFU
+INTEGER(KIND=JPIM) :: NTCOEF
+INTEGER(KIND=JPIM) :: NTDRAG
+INTEGER(KIND=JPIM) :: NTCVIM
+INTEGER(KIND=JPIM) :: NTPLUI
+INTEGER(KIND=JPIM) :: NTRADI
+INTEGER(KIND=JPIM) :: NTNEBU
+INTEGER(KIND=JPIM) :: NTOZON
+INTEGER(KIND=JPIM) :: NTDRME
+INTEGER(KIND=JPIM) :: NTCOEFE
+INTEGER(KIND=JPIM) :: NTCOET
+INTEGER(KIND=JPIM) :: NTAJUC
+REAL(KIND=JPRB) :: ETQSAT
+REAL(KIND=JPRB) :: ETDIFU
+REAL(KIND=JPRB) :: ETCOEF
+REAL(KIND=JPRB) :: ETDRAG
+REAL(KIND=JPRB) :: ETCVIM
+REAL(KIND=JPRB) :: ETPLUI
+REAL(KIND=JPRB) :: ETRADI
+REAL(KIND=JPRB) :: ETNEBU
+REAL(KIND=JPRB) :: ETOZON
+REAL(KIND=JPRB) :: ETDRME
+REAL(KIND=JPRB) :: ETCOEFE
+REAL(KIND=JPRB) :: ETCOET
+REAL(KIND=JPRB) :: ETAJUC
+REAL(KIND=JPRB) :: XDRMUK
+REAL(KIND=JPRB) :: XDRMUX
+REAL(KIND=JPRB) :: XDRMUP
+REAL(KIND=JPRB) :: XDRMTK
+REAL(KIND=JPRB) :: XDRMTX
+REAL(KIND=JPRB) :: XDRMTP
+REAL(KIND=JPRB) :: XDRMQK
+REAL(KIND=JPRB) :: XDRMQP
+
+REAL(KIND=JPRB) :: RCLX
+
+REAL(KIND=JPRB) :: TPSCLIM
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(etajuc,etcoef,etcoefe,etcoet,etcvim,etdifu,etdrag,etdrme,etnebu,etozon,etplui)
+!$OMP THREADPRIVATE(etqsat,etradi,ntajuc,ntcoef,ntcoefe,ntcoet,ntcvim,ntdifu,ntdrag,ntdrme,ntnebu)
+!$OMP THREADPRIVATE(ntozon,ntplui,ntqsat,ntradi,rclx,rfmesoq,tpsclim,xdrmqk,xdrmqp,xdrmtk,xdrmtp)
+!$OMP THREADPRIVATE(xdrmtx,xdrmuk,xdrmup,xdrmux)
+!$OMP THREADPRIVATE(rmesoq,rmesot,rmesou)
+END MODULE YOMTOPH
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomvdoz.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomvdoz.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yomvdoz.F90	(revision 3330)
@@ -0,0 +1,78 @@
+MODULE YOMVDOZ
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+! --------------------------------------------------------------------
+!            L'OBJET DE CE  EST DE FOURNIR
+!   LES VITESSES DE DEPOT DE L'OZONE.
+
+! ELLES SERONT UTILISEES DANS LA SUBROUTINE ACDIFOZ
+! CES VITESSES DE DEPOT DEPENDENT DES CLASSES DE VEGETATION,
+! DE L'OCCURENCE NUIT-JOUR, DE L'OCCURENCE SEC-HUMIDE
+! ET DE LA SAISON.
+
+!   ===== SIGNIFICATION DES NOMS DES VARIABLES ======
+
+! VDHJS : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UN JOUR SEC
+! VDHJH : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UN JOUR HUMIDE
+! VDHNS : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UNE NUIT SECHE
+! VDHNH : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UNE NUIT HUMIDE
+! VDPJS : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UN JOUR SEC
+! VDPJH : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UN JOUR HUMIDE
+! VDPNS : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UNE NUIT SECHE
+! VDPNH : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UNE NUIT HUMIDE
+! VDEJS : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UN JOUR SEC
+! VDEJH : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UN JOUR HUMIDE
+! VDENS : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UNE NUIT SECHE
+! VDENH : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UNE NUIT HUMIDE
+! VDAJS : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UN JOUR SEC
+! VDAJH : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UN JOUR HUMIDE
+! VDANS : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UNE NUIT SECHE
+! VDANH : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UNE NUIT HUMIDE
+! VDNJS : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UN JOUR SEC
+! VDNJH : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UN JOUR HUMIDE 
+! VDNNS : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UNE NUIT SECHE
+! VDNNH : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UNE NUIT HUMIDE
+
+! VOZNJ : SEUIL NUIT/JOUR  (EN W/M2 : SEUIL DU FLUX SOLAIRE A NFLEVG)
+! VOZHS : SEUIL HUMIDE/SEC (EN kg/m2/s : SEUIL DE LA PLUIE TOTALE) 
+
+! LRDIFOZ : POUR ACTIVER LE SCHEMA DE DIFUSION SEULE DE L'OZONE
+! LRDEPOZ : POUR ACTIVER LE SCHEMA DE DIFFUSION+DEPOSITION DE L'OZONE
+
+!  DECLARATION DE LA TAILLE DES TABLEAUX
+!  CETTE TAILLE A ETE ELARGIE, EN FAIT LA DIMENSION DES TABLEAUX
+!  EST LE NOMBRE DE CLASSES DE VEGETATION.
+
+REAL(KIND=JPRB) :: VDHJS(99)
+REAL(KIND=JPRB) :: VDHJH(99)
+REAL(KIND=JPRB) :: VDHNS(99)
+REAL(KIND=JPRB) :: VDHNH(99)
+REAL(KIND=JPRB) :: VDPJS(99)
+REAL(KIND=JPRB) :: VDPJH(99)
+REAL(KIND=JPRB) :: VDPNS(99)
+REAL(KIND=JPRB) :: VDPNH(99)
+REAL(KIND=JPRB) :: VDEJS(99)
+REAL(KIND=JPRB) :: VDEJH(99)
+REAL(KIND=JPRB) :: VDENS(99)
+REAL(KIND=JPRB) :: VDENH(99)
+REAL(KIND=JPRB) :: VDAJS(99)
+REAL(KIND=JPRB) :: VDAJH(99)
+REAL(KIND=JPRB) :: VDANS(99)
+REAL(KIND=JPRB) :: VDANH(99)
+REAL(KIND=JPRB) :: VDNJS(99)
+REAL(KIND=JPRB) :: VDNJH(99)
+REAL(KIND=JPRB) :: VDNNS(99)
+REAL(KIND=JPRB) :: VDNNH(99)
+REAL(KIND=JPRB) :: VOZNJ
+REAL(KIND=JPRB) :: VOZHS
+LOGICAL :: LRDIFOZ
+LOGICAL :: LRDEPOZ
+!   ---------------------------------------------------------------------
+!$OMP THREADPRIVATE(lrdepoz,lrdifoz,vdajh,vdajs,vdanh,vdans,vdejh,vdejs,vdenh,vdens,vdhjh,vdhjs)
+!$OMP THREADPRIVATE(vdhnh,vdhns,vdnjh,vdnjs,vdnnh,vdnns,vdpjh,vdpjs,vdpnh,vdpns,vozhs,voznj)
+END MODULE YOMVDOZ
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yophlc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yophlc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yophlc.F90	(revision 3330)
@@ -0,0 +1,56 @@
+MODULE YOPHLC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOPHLC* - SWITCHES FOR SIMPLE PHYSICS
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+REAL(KIND=JPRB) :: ALPHA
+REAL(KIND=JPRB) :: AH0
+REAL(KIND=JPRB) :: USTARL
+REAL(KIND=JPRB) :: USTARS
+REAL(KIND=JPRB) :: ALANDZ0
+REAL(KIND=JPRB) :: ASEAZ0
+LOGICAL :: LSPHLC
+LOGICAL :: LVDFLC
+LOGICAL :: LSDRLC
+LOGICAL :: LCZDEB
+LOGICAL :: LZMCON
+LOGICAL :: LKEXP
+LOGICAL :: LVDFDS
+LOGICAL :: LSDRDS
+!     ------------------------------------------------------------------
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LSPHLC : LOGICAL : SWITCH TO TURN ON THE SIMPLE PHYSICS SCHEME
+! LVDFLC : LOGICAL : TO TURN ON THE VERTICAL DIFFUSION ON U,V
+! LVDFDS : LOGICAL : TO TURN ON THE VERT DIFF ALSO ON THE DRY STATIC ENERGY
+! LSDRLC : LOGICAL : TO TURN ON THE SURFACE DRAG ON U,V
+! LSDRDS : LOGICAL : TO TURN ON THE SURFACE DRAG ALSO ON THE DRY STATIC ENERGY
+! LCZDEB : LOGICAL : IF TRUE PRINT VALUES FOR DEBUGGING
+! LZMCON : LOGICAL : IF TRUE THE VERT DIFF COEFF K IS CONSTANT
+! LKEXP  : LOGICAL : EXPONENTIAL APPROXIMATION OF THE CONSTANT K
+! ALPHA  : REAL    : COEFFICIENT FOR THE IMPLICIT TIME STEP SCHEME
+! AH0    : REAL    : REFERENCE HEIGHT FOR CONSTANT VERT DIFF (M)
+! USTARL : REAL    : CONSTANT USTAR OVER LAND (M SEC-1)
+! USTARS : REAL    : CONSTANT USTAR OVER SEA (M SEC-1)
+! ALANDZ0: REAL    : CONSTANT Z0 OVER LAND (M)
+! ASEAZ0 : REAL    : CONSTANT Z0 OVER SEA (M)
+! NDIFLC : INTEGER : CONTROL DIFFERENT VERT DIFF SCHEMES
+!                   - 1: CALL VDIFLCZ (DIRECT+TL+ADJ):
+!                        X(T+1)-X(T-1)=K*X(T+1)
+!                        K=CONSTANT
+!                   - 2: CALL VDIFLCZ1 (DIRECT):
+!                        X(T*)-X(T)=K(X(T))*(ALPHA*X(T*)+(1-ALPHA)*X(T))
+!                        DX=X(T*)-X(T)
+!                        X(T+1)=X(T-1)+2*DX
+!     -----------------------------------------------------------------
+!$OMP THREADPRIVATE(ah0,alandz0,alpha,aseaz0,lczdeb,lkexp,lsdrds,lsdrlc,lsphlc,lvdfds,lvdflc,lzmcon,ustarl,ustars)
+END MODULE YOPHLC
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yophnc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yophnc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yophnc.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE YOPHNC
+
+IMPLICIT NONE
+
+SAVE
+
+! -------- SWITCHES FOR T-DT TRAJECTORY AND PHYSICS  -------------
+
+! LETRAJP  : TRUE IF STORAGE OF TRAJECTORY AT T-DT
+! LETRAJPT : TRUE IF STORAGE OF TRAJECTORY OF PHYS.TENDENCIES
+!            FOR ADJOINT
+
+! LERADI2   : TRUE IF RADIATION SCHEME ACTIVATED IN TL AND AD
+! LERADS2   : TRUE IF RADIATION AT THE SURFACE ACTIVATED IN TL AND AD
+! LERADSW2  : TRUE IF SHORTWAVE RADIATION SCHEME ACTIVATED IN TL AND AD
+! LERADN2   : TRUE IF LINEARIZED SW+LW RAD.SCHEMES ACTIVATED IN TL AND AD
+! LERADFL2  : TRUE IF FULL LINERAIZED LW = a dF + da F IN TL AND AD
+! LEDCLD2   : TRUE IF DIAGNOSTIC CLOUDS ACTIVATED IN TL AND AD
+! LENCLD2   : TRUE IF SIMPLE CLOUD SCHEME FOR LINEARIZED MODEL ACTIVATED
+! LEVAPLS2  : TRUE IF EVAPORATION OF LARGE SCALE CONDENSATION IN TL/AD
+! LEVDIF2   : TRUE IF VERTICAL DIFFUSION ACTIVATED IN TL AND AD
+! LEGWDG2   : TRUE IF S.S. OROGRAPHY SCHEME ACTIVATED IN TL AND AD
+! LECUMF2   : TRUE IF MASS-FLUX CONVECTION ACTIVATED IN TL AND AD
+! LECUBM2   : TRUE IF BETTS-MILLER CONVECTION ACTIVATED IN TL AND AD
+! LECOND2   : TRUE IF CONDENSATION SCHEME ACTIVATED IN TL AND AD
+! LEQNGT2   : TRUE IF Q<0 REMOVAL SCHEME ACTIVATED IN TL AND AD
+! LESURF2   : TRUE IF LAND SURFACE  SCHEME ACTIVATED IN TL AND AD
+! LEKPERT   : TRUE IF PERTURBATION OF EXCHANGE COEEFICIENTS
+! LTRACLNPH : TRUE IF TRACERS TO BE USED IN LINEARIZED PHYSICS
+
+LOGICAL :: LETRAJP
+LOGICAL :: LETRAJPT
+LOGICAL :: LERADI2
+LOGICAL :: LERADS2
+LOGICAL :: LERADSW2
+LOGICAL :: LERADN2
+LOGICAL :: LERADFL2
+LOGICAL :: LEDCLD2
+LOGICAL :: LENCLD2
+LOGICAL :: LEVAPLS2
+LOGICAL :: LEVDIF2
+LOGICAL :: LEGWDG2
+LOGICAL :: LECUMF2
+LOGICAL :: LECUBM2
+LOGICAL :: LECOND2
+LOGICAL :: LEQNGT2
+LOGICAL :: LESURF2
+LOGICAL :: LEKPERT
+LOGICAL :: LTRACLNPH
+
+!     ------------------------------------------------------------------
+!$OMP THREADPRIVATE(lecond2,lecubm2,lecumf2,ledcld2,legwdg2,lekpert,lencld2,leqngt2,leradfl2,leradi2)
+!$OMP THREADPRIVATE(leradn2,lerads2,leradsw2,lesurf2,letrajp,letrajpt,levapls2,levdif2,ltraclnph)
+END MODULE YOPHNC
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/screenc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/screenc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/screenc.F90	(revision 3330)
@@ -0,0 +1,96 @@
+!
+! $Header$
+!
+      SUBROUTINE screenc(klon, knon, nsrf, zxli, &
+                         speed, temp, q_zref, zref, &
+                         ts, qsurf, z0m, z0h, psol, &
+                         ustar, testar, qstar, okri, ri1, &
+                         pref, delu, delte, delq)
+      IMPLICIT NONE
+!-----------------------------------------------------------------------
+! 
+! Objet : calcul "correcteur" des anomalies du vent, de la temperature 
+!         potentielle et de l'humidite relative au niveau de reference zref et 
+!         par rapport au 1er niveau (pour u) ou a la surface (pour theta et q) 
+!         a partir des equations de Louis.
+!
+! Reference : Hess, Colman et McAvaney (1995)
+!
+! I. Musat, 01.07.2002
+!-----------------------------------------------------------------------
+!
+! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude)
+! knon----input-I- nombre de points pour un type de surface
+! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90
+! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li
+! speed---input-R- module du vent au 1er niveau du modele
+! temp----input-R- temperature de l'air au 1er niveau du modele
+! q_zref--input-R- humidite relative au 1er niveau du modele
+! zref----input-R- altitude de reference
+! ts------input-R- temperature de l'air a la surface
+! qsurf---input-R- humidite relative a la surface
+! z0m, z0h---input-R- rugosite
+! psol----input-R- pression au sol
+! ustar---input-R- facteur d'echelle pour le vent
+! testar--input-R- facteur d'echelle pour la temperature potentielle
+! qstar---input-R- facteur d'echelle pour l'humidite relative
+! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce 
+!                  et zref par rapport au Ri entre la sfce et la 1ere couche
+! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche 
+!
+! pref----input-R- pression au niveau de reference
+! delu----input-R- anomalie du vent par rapport au 1er niveau
+! delte---input-R- anomalie de la temperature potentielle par rapport a la surface
+! delq----input-R- anomalie de l'humidite relative par rapport a la surface
+!
+      INTEGER, intent(in) :: klon, knon, nsrf
+      LOGICAL, intent(in) :: zxli, okri 
+      REAL, dimension(klon), intent(in) :: speed, temp, q_zref
+      REAL, intent(in) :: zref
+      REAL, dimension(klon), intent(in) :: ts, qsurf, z0m, z0h, psol
+      REAL, dimension(klon), intent(in) :: ustar, testar, qstar, ri1         
+!
+      REAL, dimension(klon), intent(out) :: pref, delu, delte, delq 
+!-----------------------------------------------------------------------
+      include "YOMCST.h"
+      include "flux_arp.h"
+!
+! Variables locales  
+      INTEGER :: i 
+      REAL, dimension(klon) :: cdram, cdrah, cdran, zri1, gref,ycdragm
+!
+!------------------------------------------------------------------------- 
+      DO i=1, knon
+        gref(i) = zref*RG
+      ENDDO 
+!
+! Richardson at reference level 
+!
+!      CALL coefcdrag (klon, knon, nsrf, zxli, &
+!                    speed, temp, q_zref, gref, &
+!                    psol, ts, qsurf, rugos, &
+!                    okri, ri1, &
+!                    cdram, cdrah, cdran, zri1, &
+!                    pref)
+! Fuxing WANG, 04/03/2015, replace the coefcdrag by the merged version: cdrag
+      CALL cdrag (knon, nsrf, &
+                    speed, temp, q_zref, gref, &
+                    psol, ts, qsurf, z0m, z0h, &
+                    cdram, cdrah, zri1, pref)
+      DO i = 1, knon
+        IF(ok_prescr_ust) THEN
+! La aussi il faut forcer avec ust (FC + MPL 20160210)
+        ycdragm(i) = ust*ust/(1.+speed(i))/speed(i)
+        cdram=ycdragm
+        delu(i) = ust/sqrt(cdram(i))
+        ELSE
+        delu(i) = ustar(i)/sqrt(cdram(i))
+        ENDIF
+        delte(i)= (testar(i)* sqrt(cdram(i)))/ &
+                   cdrah(i)
+        delq(i)= (qstar(i)* sqrt(cdram(i)))/ &
+                  cdrah(i)
+      ENDDO 
+!
+      RETURN 
+      END SUBROUTINE screenc
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/screenp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/screenp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/screenp.F90	(revision 3330)
@@ -0,0 +1,109 @@
+!
+! $Header$
+!
+      SUBROUTINE screenp(klon, knon, nsrf, &
+     &                   speed, tair, qair, &
+     &                   ts, qsurf, rugos, lmon, &
+     &                   ustar, testar, qstar, zref, &
+     &                   delu, delte, delq) 
+      IMPLICIT none
+!-------------------------------------------------------------------------
+!
+! Objet : calcul "predicteur" des anomalies du vent, de la temperature 
+!         potentielle et de l'humidite relative au niveau de reference zref et 
+!         par rapport au 1er niveau (pour u) ou a la surface (pour theta et q) 
+!         a partir des relations de Dyer-Businger.
+!
+! Reference : Hess, Colman et McAvaney (1995)
+!
+! I. Musat, 01.07.2002
+!-------------------------------------------------------------------------
+!
+! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude)
+! knon----input-I- nombre de points pour un type de surface
+! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90
+! speed---input-R- module du vent au 1er niveau du modele
+! tair----input-R- temperature de l'air au 1er niveau du modele
+! qair----input-R- humidite relative au 1er niveau du modele
+! ts------input-R- temperature de l'air a la surface
+! qsurf---input-R- humidite relative a la surface
+! rugos---input-R- rugosite
+! lmon----input-R- longueur de Monin-Obukov
+! ustar---input-R- facteur d'echelle pour le vent
+! testar--input-R- facteur d'echelle pour la temperature potentielle
+! qstar---input-R- facteur d'echelle pour l'humidite relative
+! zref----input-R- altitude de reference
+!
+! delu----input-R- anomalie du vent par rapport au 1er niveau
+! delte---input-R- anomalie de la temperature potentielle par rapport a la surface
+! delq----input-R- anomalie de l'humidite relative par rapport a la surface
+!
+      INTEGER, intent(in) :: klon, knon, nsrf
+      REAL, dimension(klon), intent(in) :: speed, tair, qair
+      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos
+      DOUBLE PRECISION, dimension(klon), intent(in) :: lmon
+      REAL, dimension(klon), intent(in) :: ustar, testar, qstar
+      REAL, intent(in) :: zref
+!
+      REAL, dimension(klon), intent(out) :: delu, delte, delq
+!
+!-------------------------------------------------------------------------
+! Variables locales et constantes :
+      REAL, PARAMETER :: RKAR=0.40
+      INTEGER :: i
+      REAL :: xtmp, xtmp0
+!-------------------------------------------------------------------------
+      DO i = 1, knon
+!
+        IF (lmon(i).GE.0.) THEN
+!
+! STABLE CASE
+!
+          IF (speed(i).GT.1.5.AND.lmon(i).LE.1.0                        &
+     &                      .AND. rugos(i).LE.1.0) THEN
+            delu(i) = (ustar(i)/RKAR)* &
+                      (log(zref/(rugos(i))+1.) + &
+                      min(5.d0, 5.0 *(zref - rugos(i))/lmon(i)))
+            delte(i) = (testar(i)/RKAR)* &
+                       (log(zref/(rugos(i))+1.) + &
+                       min(5.d0, 5.0 * (zref - rugos(i))/lmon(i)))
+            delq(i) = (qstar(i)/RKAR)* &
+                      (log(zref/(rugos(i))+1.) + &
+                      min(5.d0, 5.0 * (zref - rugos(i))/lmon(i)))
+          ELSE
+            delu(i)  = 0.1 * speed(i)
+            delte(i) = 0.1 * (tair(i) - ts(i) )
+            delq(i)  = 0.1 * (max(qair(i),0.0) - max(qsurf(i),0.0))
+          ENDIF
+        ELSE  
+!
+! UNSTABLE CASE
+!
+          IF (speed(i).GT.5.0.AND.abs(lmon(i)).LE.50.0) THEN
+            xtmp = (1. - 16. * (zref/lmon(i)))**(1./4.)
+            xtmp0 = (1. - 16. * (rugos(i)/lmon(i)))**(1./4.)
+            delu(i) = (ustar(i)/RKAR)* &
+                      (log(zref/(rugos(i))+1.) & 
+                      - 2.*log(0.5*(1. + xtmp)) &
+                      + 2.*log(0.5*(1. + xtmp0)) &
+                      - log(0.5*(1. + xtmp*xtmp)) &
+                      + log(0.5*(1. + xtmp0*xtmp0)) &
+                      + 2.*atan(xtmp) - 2.*atan(xtmp0))
+            delte(i) = (testar(i)/RKAR)* &
+                       (log(zref/(rugos(i))+1.) &
+                       - 2.0 * log(0.5*(1. + xtmp*xtmp)) & 
+                       + 2.0 * log(0.5*(1. + xtmp0*xtmp0)))
+            delq(i)  = (qstar(i)/RKAR)* &
+                       (log(zref/(rugos(i))+1.) &
+                       - 2.0 * log(0.5*(1. + xtmp*xtmp)) & 
+                       + 2.0 * log(0.5*(1. + xtmp0*xtmp0)))
+          ELSE
+            delu(i)  = 0.5 * speed(i)
+            delte(i) = 0.5 * (tair(i) - ts(i) )
+            delq(i)  = 0.5 * (max(qair(i),0.0) - max(qsurf(i),0.0))
+          ENDIF
+        ENDIF
+!
+      ENDDO
+      RETURN
+      END SUBROUTINE screenp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/simu_airs.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/simu_airs.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/simu_airs.F90	(revision 3330)
@@ -0,0 +1,1300 @@
+        
+        module m_simu_airs
+
+        implicit none
+
+        real, parameter :: tau_thresh = 0.05 ! seuil nuages detectables
+        real, parameter :: p_thresh = 445.   ! seuil nuages hauts
+        real, parameter :: em_min = 0.2      ! seuils nuages semi-transp
+        real, parameter :: em_max = 0.85
+        real, parameter :: undef = 999.
+
+        contains
+
+        real function search_tropopause(P,T,alt,N) result(P_tropo)
+! this function searches for the tropopause pressure in [hPa].
+! The search is based on ideology described in
+! Reichler et al., Determining the tropopause height from gridded data,
+! GRL, 30(20) 2042, doi:10.1029/2003GL018240, 2003
+
+        integer N,i,i_lev,first_point,exit_flag,i_dir
+        real P(N),T(N),alt(N),slope(N)
+        real P_min, P_max, slope_limit,slope_2km, &
+     & delta_alt_limit,tmp,delta_alt
+        parameter(P_min=75.0, P_max=470.0)   ! hPa
+        parameter(slope_limit=0.002)         ! 2 K/km converted to K/m
+        parameter(delta_alt_limit=2000.0)    ! 2000 meters
+
+        do i=1,N-1
+        slope(i)=-(T(i+1)-T(i))/(alt(i+1)-alt(i))
+        end do
+        slope(N)=slope(N-1)
+
+        if (P(1).gt.P(N)) then
+        i_dir= 1
+        i=1
+        else
+        i_dir=-1
+        i=N
+        end if
+
+        first_point=0
+        exit_flag=0
+        do while(exit_flag.eq.0)
+        if (P(i).ge.P_min.and.P(i).le.P_max) then
+        if (first_point.gt.0) then
+        delta_alt=alt(i)-alt(first_point)
+        if (delta_alt.ge.delta_alt_limit) then
+        slope_2km=(T(first_point)-T(i))/delta_alt
+        if (slope_2km.lt.slope_limit) then
+        exit_flag=1
+        else
+        first_point=0
+        end if
+        end if
+        end if
+        if (first_point.eq.0.and.slope(i).lt.slope_limit) first_point=i
+        end if
+        i=i+i_dir
+        if (i.le.1.or.i.ge.N) exit_flag=1
+        end do
+
+        if (first_point.le.0) P_tropo=65.4321
+        if (first_point.eq.1) P_tropo=64.5432
+        if (first_point.gt.1) then
+        tmp=(slope_limit-slope(first_point))/(slope(first_point+1)- &
+     & slope(first_point))*(P(first_point+1)-P(first_point))
+        P_tropo=P(first_point)+tmp
+        ! print*, 'P_tropo= ', tmp, P(first_point), P_tropo
+        end if
+
+! Ajout Marine
+        if (P_tropo .lt. 60. .or. P_tropo .gt. 470.) then
+        P_tropo = 999.
+        endif
+
+        return
+        end function search_tropopause
+
+
+
+        subroutine cloud_structure(len_cs, rneb_cs, temp_cs, &
+     & emis_cs, iwco_cs, &
+     & pres_cs, dz_cs, rhodz_cs, rad_cs, &
+     & cc_tot_cs, cc_hc_cs, cc_hist_cs, &
+     & cc_Cb_cs, cc_ThCi_cs, cc_Anv_cs, &
+     & pcld_hc_cs, tcld_hc_cs, &
+     & em_hc_cs, iwp_hc_cs, deltaz_hc_cs, &
+     & pcld_Cb_cs, tcld_Cb_cs, em_Cb_cs, &
+     & pcld_ThCi_cs, tcld_ThCi_cs, em_ThCi_cs, &
+     & pcld_Anv_cs, tcld_Anv_cs, em_Anv_cs, &
+     & em_hist_cs, iwp_hist_cs, deltaz_hist_cs, rad_hist_cs)
+
+
+     
+        integer :: i, n, nss
+
+        integer, intent(in) :: len_cs
+        real, dimension(:), intent(in) :: rneb_cs, temp_cs
+        real, dimension(:), intent(in) :: emis_cs, iwco_cs, rad_cs
+        real, dimension(:), intent(in) :: pres_cs, dz_cs, rhodz_cs
+
+        real, intent(out) :: cc_tot_cs, cc_hc_cs, cc_hist_cs, &
+     & cc_Cb_cs, cc_ThCi_cs, cc_Anv_cs, &
+     & pcld_hc_cs, tcld_hc_cs, em_hc_cs, iwp_hc_cs, &
+     & pcld_Cb_cs, tcld_Cb_cs, em_Cb_cs, &
+     & pcld_ThCi_cs, tcld_ThCi_cs, em_ThCi_cs, &
+     & pcld_Anv_cs, tcld_Anv_cs, em_Anv_cs, &
+     & em_hist_cs, iwp_hist_cs, &
+     & deltaz_hc_cs, deltaz_hist_cs, rad_hist_cs
+
+        real, dimension(len_cs) :: rneb_ord
+        real :: rneb_min
+
+        real, dimension(:), allocatable :: s, s_hc, s_hist, rneb_max
+        real, dimension(:), allocatable :: sCb, sThCi, sAnv
+        real, dimension(:), allocatable :: iwp_ss, pcld_ss, tcld_ss,&
+     & emis_ss
+        real, dimension(:), allocatable :: deltaz_ss, rad_ss
+
+
+        write(*,*) 'dans cloud_structure'
+
+        call ordonne(len_cs, rneb_cs, rneb_ord)
+       
+
+! Definition des sous_sections
+
+        rneb_min = rneb_ord(1)
+        nss = 1
+
+        do i = 2, size(rneb_cs)
+        if (rneb_ord(i) .gt. rneb_min) then
+        nss = nss+1
+        rneb_min = rneb_ord(i)
+        endif
+        enddo
+
+        allocate (s(nss))
+        allocate (s_hc(nss))
+        allocate (s_hist(nss))
+        allocate (rneb_max(nss))
+        allocate (emis_ss(nss))
+        allocate (pcld_ss(nss))
+        allocate (tcld_ss(nss))
+        allocate (iwp_ss(nss))
+        allocate (deltaz_ss(nss))
+        allocate (rad_ss(nss))
+        allocate (sCb(nss))
+        allocate (sThCi(nss))
+        allocate (sAnv(nss))
+
+        rneb_min = rneb_ord(1)
+        n = 1
+        s(1) = rneb_ord(1)
+        s_hc(1) = rneb_ord(1)
+        s_hist(1) = rneb_ord(1)
+        sCb(1) = rneb_ord(1)
+        sThCi(1) = rneb_ord(1)
+        sAnv(1) = rneb_ord(1)
+
+        rneb_max(1) = rneb_ord(1)
+
+        do i = 2, size(rneb_cs)
+        if (rneb_ord(i) .gt. rneb_min) then
+        n = n+1
+        s(n) = rneb_ord(i)-rneb_min
+        s_hc(n) = rneb_ord(i)-rneb_min
+        s_hist(n) = rneb_ord(i)-rneb_min
+        sCb(n) = rneb_ord(i)-rneb_min
+        sThCi(n) = rneb_ord(i)-rneb_min
+        sAnv(n) = rneb_ord(i)-rneb_min
+
+        rneb_max(n) = rneb_ord(i)
+        rneb_min = rneb_ord(i)
+        endif
+        enddo
+
+! Appel de sous_section
+
+        do i = 1, nss
+         call sous_section(len_cs, rneb_cs, temp_cs, &
+     &  emis_cs, iwco_cs, &
+     &  pres_cs, dz_cs, rhodz_cs, rad_cs, rneb_ord, &
+     &  rneb_max(i),s(i),s_hc(i),s_hist(i), &
+     &  sCb(i), sThCi(i), sAnv(i), &
+     &  emis_ss(i), &
+     &  pcld_ss(i), tcld_ss(i), iwp_ss(i), deltaz_ss(i), rad_ss(i))
+        enddo
+
+! Caracteristiques de la structure nuageuse
+
+        cc_tot_cs = 0.
+        cc_hc_cs = 0.
+        cc_hist_cs = 0.
+
+        cc_Cb_cs = 0.
+        cc_ThCi_cs = 0.
+        cc_Anv_cs = 0.
+
+        em_hc_cs = 0.
+        iwp_hc_cs = 0.
+        deltaz_hc_cs = 0.
+
+        em_hist_cs = 0.
+        iwp_hist_cs = 0.
+        deltaz_hist_cs = 0.
+        rad_hist_cs = 0.
+
+        pcld_hc_cs = 0.
+        tcld_hc_cs = 0.
+
+        pcld_Cb_cs = 0.
+        tcld_Cb_cs = 0.
+        em_Cb_cs = 0.
+
+        pcld_ThCi_cs = 0.
+        tcld_ThCi_cs = 0.
+        em_ThCi_cs = 0.
+
+        pcld_Anv_cs = 0.
+        tcld_Anv_cs = 0.
+        em_Anv_cs = 0.
+
+         do i = 1, nss
+
+        cc_tot_cs = cc_tot_cs + s(i)
+        cc_hc_cs = cc_hc_cs + s_hc(i)
+        cc_hist_cs = cc_hist_cs + s_hist(i)
+
+        cc_Cb_cs = cc_Cb_cs + sCb(i)
+        cc_ThCi_cs = cc_ThCi_cs + sThCi(i)
+        cc_Anv_cs = cc_Anv_cs + sAnv(i)
+
+        iwp_hc_cs = iwp_hc_cs + s_hc(i)*iwp_ss(i)
+        em_hc_cs = em_hc_cs + s_hc(i)*emis_ss(i)
+        deltaz_hc_cs = deltaz_hc_cs + s_hc(i)*deltaz_ss(i)
+
+        iwp_hist_cs = iwp_hist_cs + s_hist(i)*iwp_ss(i)
+        em_hist_cs = em_hist_cs + s_hist(i)*emis_ss(i)
+        deltaz_hist_cs = deltaz_hist_cs + s_hist(i)*deltaz_ss(i)
+        rad_hist_cs = rad_hist_cs + s_hist(i)*rad_ss(i)
+
+        pcld_hc_cs = pcld_hc_cs + s_hc(i)*pcld_ss(i)
+        tcld_hc_cs = tcld_hc_cs + s_hc(i)*tcld_ss(i)
+
+        pcld_Cb_cs = pcld_Cb_cs + sCb(i)*pcld_ss(i)
+        tcld_Cb_cs = tcld_Cb_cs + sCb(i)*tcld_ss(i)
+        em_Cb_cs = em_Cb_cs + sCb(i)*emis_ss(i)
+
+        pcld_ThCi_cs = pcld_ThCi_cs + sThCi(i)*pcld_ss(i)
+        tcld_ThCi_cs = tcld_ThCi_cs + sThCi(i)*tcld_ss(i)
+        em_ThCi_cs = em_ThCi_cs + sThCi(i)*emis_ss(i)
+
+        pcld_Anv_cs = pcld_Anv_cs + sAnv(i)*pcld_ss(i)
+        tcld_Anv_cs = tcld_Anv_cs + sAnv(i)*tcld_ss(i)
+        em_Anv_cs = em_Anv_cs + sAnv(i)*emis_ss(i)
+
+        enddo
+
+        deallocate(s)
+        deallocate (s_hc)
+        deallocate (s_hist)
+        deallocate (rneb_max)
+        deallocate (emis_ss)
+        deallocate (pcld_ss)
+        deallocate (tcld_ss)
+        deallocate (iwp_ss)
+        deallocate (deltaz_ss)
+        deallocate (rad_ss)
+        deallocate (sCb)
+        deallocate (sThCi)
+        deallocate (sAnv)
+
+       call normal_undef(pcld_hc_cs,cc_hc_cs)
+       call normal_undef(tcld_hc_cs,cc_hc_cs)
+       call normal_undef(iwp_hc_cs,cc_hc_cs)
+       call normal_undef(em_hc_cs,cc_hc_cs)
+       call normal_undef(deltaz_hc_cs,cc_hc_cs)
+       
+       call normal_undef(iwp_hist_cs,cc_hist_cs)
+       call normal_undef(em_hist_cs,cc_hist_cs)
+       call normal_undef(deltaz_hist_cs,cc_hist_cs)
+       call normal_undef(rad_hist_cs,cc_hist_cs)
+
+       call normal_undef(pcld_Cb_cs,cc_Cb_cs)
+       call normal_undef(tcld_Cb_cs,cc_Cb_cs)
+       call normal_undef(em_Cb_cs,cc_Cb_cs)
+
+       call normal_undef(pcld_ThCi_cs,cc_ThCi_cs)
+       call normal_undef(tcld_ThCi_cs,cc_ThCi_cs)
+       call normal_undef(em_ThCi_cs,cc_ThCi_cs)
+    
+       call normal_undef(pcld_Anv_cs,cc_Anv_cs)
+       call normal_undef(tcld_Anv_cs,cc_Anv_cs)
+       call normal_undef(em_Anv_cs,cc_Anv_cs)
+
+
+! Tests
+
+        if (cc_tot_cs .gt. maxval(rneb_cs) .and. &
+     & abs(cc_tot_cs-maxval(rneb_cs)) .gt. 1.e-4 )  then
+        write(*,*) 'cc_tot_cs > max rneb_cs'
+        write(*,*) cc_tot_cs, maxval(rneb_cs)
+        STOP
+        endif
+
+        if (iwp_hc_cs .lt. 0.) then
+        write(*,*) 'cloud_structure:'
+        write(*,*) 'iwp_hc_cs < 0'
+        STOP
+        endif
+ 
+        end subroutine cloud_structure
+
+
+        subroutine normal_undef(num, den)
+
+        real, intent(in) :: den
+        real, intent(inout) :: num
+
+        if (den .ne. 0) then
+        num = num/den
+        else
+        num = undef
+        endif
+
+        end subroutine normal_undef
+
+
+        subroutine normal2_undef(res,num,den)
+
+        real, intent(in) :: den
+        real, intent(in) :: num
+        real, intent(out) :: res
+
+        if (den .ne. 0.) then
+        res = num/den
+        else
+        res = undef
+        endif
+
+        end subroutine normal2_undef
+
+
+        subroutine sous_section(len_cs, rneb_cs, temp_cs, &
+     & emis_cs, iwco_cs, &
+     & pres_cs, dz_cs, rhodz_cs, rad_cs, rneb_ord, &
+     & rnebmax, stot, shc, shist, &
+     & sCb, sThCi, sAnv, &
+     & emis, pcld, tcld, iwp, deltaz, rad)
+
+        integer, intent(in) :: len_cs
+        real, dimension(len_cs), intent(in) :: rneb_cs, temp_cs
+        real, dimension(len_cs), intent(in) :: emis_cs, iwco_cs, &
+     & rneb_ord
+        real, dimension(len_cs), intent(in) :: pres_cs, dz_cs, rad_cs
+        real, dimension(len_cs), intent(in) :: rhodz_cs
+        real, dimension(len_cs) :: tau_cs, w
+        real, intent(in) :: rnebmax
+        real, intent(inout) :: stot, shc, shist
+        real, intent(inout) :: sCb, sThCi, sAnv
+        real, intent(out) :: emis, pcld, tcld, iwp, deltaz, rad
+
+        integer :: i, ideb, ibeg, iend, nuage, visible
+        real :: som, som_tau, som_iwc, som_dz, som_rad, tau
+
+
+! Ponderation: 1 pour les nuages, 0 pour les trous
+
+        do i = 1, len_cs
+        if (rneb_cs(i) .ge. rnebmax) then
+        w(i) = 1.
+        else
+        w(i) = 0.
+        endif
+        enddo
+
+! Calcul des epaisseurs optiques a partir des emissivites
+
+        som = 0.
+        do i = 1, len_cs
+        if (emis_cs(i) .eq. 1.) then
+        tau_cs(i) = 10.
+        else
+        tau_cs(i) = -log(1.-emis_cs(i))
+        endif
+        som = som+tau_cs(i)
+        enddo
+
+
+        ideb = 1
+        nuage = 0
+        visible = 0
+
+
+! Boucle sur les nuages
+        do while (ideb .ne. 0 .and. ideb .le. len_cs)   
+
+
+! Definition d'un nuage de la sous-section
+
+        call topbot(ideb, w, ibeg, iend)
+        ideb = iend+1
+
+        if (ibeg .gt. 0) then
+
+        nuage = nuage + 1
+
+! On determine les caracteristiques du nuage
+! (ep. optique, ice water path, pression, temperature)
+
+        call caract(ibeg, iend, temp_cs, tau_cs, iwco_cs, &
+     & pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, &
+     & som_tau, som_iwc, som_dz, som_rad)
+
+! On masque le nuage s'il n'est pas detectable
+
+        call masque(ibeg, iend, som_tau, visible, w)
+
+        endif
+
+! Fin boucle nuages
+        enddo
+
+
+! Analyse du nuage detecte
+
+        call topbot(1, w, ibeg, iend)
+
+        if (ibeg .gt. 0) then
+
+        call caract(ibeg, iend, temp_cs, tau_cs, iwco_cs, &
+     & pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, &
+     & som_tau, som_iwc, som_dz, som_rad)
+
+        tau = som_tau
+        emis = 1. - exp(-tau)
+        iwp = som_iwc
+        deltaz = som_dz
+        rad = som_rad
+
+        if (pcld .gt. p_thresh) then
+
+        shc = 0.
+        shist = 0.
+        sCb = 0.
+        sThCi = 0.
+        sAnv = 0.
+
+        else
+
+        if (emis .lt. em_min .or. emis .gt. em_max  &
+     & .or. tcld .gt. 230.) then
+        shist = 0.
+        endif
+
+        if (emis .lt. 0.98) then
+        sCb = 0.
+        endif
+
+        if (emis .gt. 0.5 .or. emis .lt. 0.1) then
+        sThCi = 0.
+        endif
+
+        if (emis .le. 0.5 .or. emis .ge. 0.98) then
+        sAnv = 0.
+        endif
+
+        endif
+
+        else
+
+        tau = 0.
+        emis = 0.
+        iwp = 0.
+        deltaz = 0.
+        pcld = 0.
+        tcld = 0.
+        stot = 0.
+        shc = 0.
+        shist = 0.
+        rad = 0.
+        sCb = 0.
+        sThCi = 0.
+        sAnv = 0.
+
+        endif
+
+
+! Tests
+
+        if (iwp .lt. 0.) then
+        write(*,*) 'ideb iwp =', ideb, iwp
+        STOP
+        endif
+
+        if (deltaz .lt. 0.) then
+        write(*,*) 'ideb deltaz =', ideb, deltaz
+        STOP
+        endif
+
+        if (emis .lt. 0.048 .and. emis .ne. 0.) then
+        write(*,*) 'ideb emis =', ideb, emis
+        STOP
+        endif
+
+        end subroutine sous_section
+
+
+        subroutine masque (ibeg, iend, som_tau, &
+     & visible, w)
+
+        integer, intent(in) :: ibeg, iend
+        real, intent(in) :: som_tau
+
+        integer, intent(inout) :: visible
+        real, dimension(:), intent(inout) :: w
+
+        integer :: i
+
+
+
+! Masque
+
+! Cas ou il n'y a pas de nuage visible au-dessus
+
+        if (visible .eq. 0) then
+
+        if (som_tau .lt. tau_thresh) then
+        do i = ibeg, iend
+        w(i) = 0.
+        enddo
+        else
+        visible = 1
+        endif
+
+! Cas ou il y a un nuage visible au-dessus
+
+        else
+
+        do i = ibeg, iend
+        w(i) = 0.
+        enddo
+
+        endif
+
+
+        end subroutine masque
+
+
+         subroutine caract (ibeg, iend, temp_cs, tau_cs, iwco_cs, &
+     & pres_cs, dz_cs, rhodz_cs, rad_cs, pcld, tcld, &
+     & som_tau, som_iwc, som_dz, som_rad)
+
+        integer, intent(in) :: ibeg, iend
+        real, dimension(:), intent(in) :: tau_cs, iwco_cs, temp_cs
+        real, dimension(:), intent(in) :: pres_cs, dz_cs, rad_cs
+        real, dimension(:), intent(in) :: rhodz_cs
+        real, intent(out) :: som_tau, som_iwc, som_dz, som_rad
+        real , intent(out) :: pcld, tcld
+
+        integer :: i, ibase, imid
+
+! Somme des epaisseurs optiques et des contenus en glace sur le nuage
+
+        som_tau = 0.
+        som_iwc = 0.
+        som_dz = 0.
+        som_rad = 0.
+        ibase = -100
+
+        do i = ibeg, iend
+
+        som_tau = som_tau + tau_cs(i)
+
+        som_dz = som_dz + dz_cs(i)
+        som_iwc = som_iwc + iwco_cs(i)*1000*rhodz_cs(i)  ! en g/m2
+        som_rad = som_rad + rad_cs(i)*dz_cs(i)
+
+        if (som_tau .gt. 3. .and. ibase .eq. -100) then
+        ibase = i-1
+        endif
+
+        enddo
+
+        if (som_dz .ne. 0.) then
+        som_rad = som_rad/som_dz
+        else
+        write(*,*) 'som_dez = 0 STOP'
+        write(*,*) 'ibeg, iend =', ibeg, iend
+        do i = ibeg, iend
+        write(*,*) dz_cs(i), rhodz_cs(i)
+        enddo
+        STOP
+        endif
+
+! Determination de Pcld et Tcld
+
+       if (ibase .lt. ibeg) then
+       ibase = ibeg
+       endif
+
+       imid = (ibeg+ibase)/2
+
+       pcld = pres_cs(imid)/100.        ! pcld en hPa
+       tcld = temp_cs(imid)
+
+
+       end subroutine caract
+ 
+        subroutine topbot(ideb,w,ibeg,iend)
+
+        integer, intent(in) :: ideb
+        real, dimension(:), intent(in) :: w
+        integer, intent(out) :: ibeg, iend
+
+        integer :: i, itest
+
+        itest = 0
+        ibeg = 0
+        iend = 0
+
+        do i = ideb, size(w)
+
+        if (w(i) .eq. 1. .and. itest .eq. 0) then
+        ibeg = i
+        itest = 1
+        endif
+
+        enddo
+
+
+        i = ibeg
+        do while (w(i) .eq. 1. .and. i .le. size(w))
+        i = i+1
+        enddo
+        iend = i-1
+
+
+        end subroutine topbot
+
+        subroutine ordonne(len_cs, rneb_cs, rneb_ord)
+
+        integer, intent(in) :: len_cs
+        real, dimension(:), intent(in) :: rneb_cs
+        real, dimension(:), intent(out) :: rneb_ord
+
+        integer :: i, j, ind_min
+
+        real, dimension(len_cs) :: rneb
+        real :: rneb_max
+
+
+        do i = 1, size(rneb_cs)
+        rneb(i) = rneb_cs(i)
+        enddo
+
+        do j = 1, size(rneb_cs)
+
+        rneb_max = 100.
+
+        do i = 1, size(rneb_cs)
+        if (rneb(i) .lt. rneb_max) then
+        rneb_max = rneb(i)
+        ind_min = i
+        endif
+        enddo
+
+        rneb_ord(j) = rneb_max
+        rneb(ind_min) = 100.
+
+        enddo
+        
+        end subroutine ordonne
+
+ 
+        subroutine sim_mesh(rneb_1D, temp_1D, emis_1D, &
+     & iwcon_1D, rad_1D, &
+     & pres, dz, &
+     & rhodz_1D, cc_tot_mesh, cc_hc_mesh, cc_hist_mesh, pcld_hc_mesh,&
+     & tcld_hc_mesh, &
+     & em_hc_mesh, iwp_hc_mesh, deltaz_hc_mesh, &
+     & cc_Cb_mesh, cc_ThCi_mesh, cc_Anv_mesh, &
+     & pcld_Cb_mesh, tcld_Cb_mesh, em_Cb_mesh, &
+     & pcld_ThCi_mesh, tcld_ThCi_mesh, em_ThCi_mesh, &
+     & pcld_Anv_mesh, tcld_Anv_mesh, em_Anv_mesh, &
+     & em_hist_mesh, iwp_hist_mesh, deltaz_hist_mesh, rad_hist_mesh)
+
+       USE dimphy
+
+       real, dimension(klev), intent(in) :: rneb_1D, temp_1D, emis_1D, &
+     & iwcon_1D, rad_1D
+        real, dimension(klev), intent(in) :: pres, dz, rhodz_1D
+        real, intent(out) :: cc_tot_mesh, cc_hc_mesh, cc_hist_mesh
+        real, intent(out) :: cc_Cb_mesh, cc_ThCi_mesh, cc_Anv_mesh
+        real, intent(out) :: em_hc_mesh, pcld_hc_mesh, tcld_hc_mesh, &
+     & iwp_hc_mesh
+
+        real, intent(out) :: pcld_Cb_mesh, tcld_Cb_mesh, em_Cb_mesh
+        real, intent(out) :: pcld_ThCi_mesh, tcld_ThCi_mesh, &
+     & em_ThCi_mesh
+        real, intent(out) :: pcld_Anv_mesh, tcld_Anv_mesh, em_Anv_mesh
+
+        real, intent(out) :: em_hist_mesh, iwp_hist_mesh, rad_hist_mesh
+        real, intent(out) :: deltaz_hc_mesh, deltaz_hist_mesh
+
+        real, dimension(:), allocatable :: rneb_cs, temp_cs, emis_cs, &
+     & iwco_cs
+        real, dimension(:), allocatable :: pres_cs, dz_cs, rad_cs, &
+     & rhodz_cs
+
+        integer :: i,j,l
+        integer :: ltop, itop, ibot, num_cs, N_cs, len_cs, ics
+
+        real :: som_emi_hc,som_pcl_hc,som_tcl_hc,som_iwp_hc,som_hc,&
+     & som_hist
+        real :: som_emi_hist, som_iwp_hist, som_deltaz_hc, &
+     & som_deltaz_hist
+        real :: som_rad_hist
+        real :: som_Cb, som_ThCi, som_Anv
+        real :: som_emi_Cb, som_tcld_Cb, som_pcld_Cb
+        real :: som_emi_Anv, som_tcld_Anv, som_pcld_Anv
+        real :: som_emi_ThCi, som_tcld_ThCi, som_pcld_ThCi
+        real :: tsom_tot, tsom_hc, tsom_hist
+        real :: prod, prod_hh
+
+        real :: cc_tot_cs, cc_hc_cs, cc_hist_cs
+        real :: cc_Cb_cs, cc_ThCi_cs, cc_Anv_cs
+        real :: pcld_hc_cs, tcld_hc_cs
+        real :: em_hc_cs, iwp_hc_cs, deltaz_hc_cs
+        real :: pcld_Cb_cs, tcld_Cb_cs, em_Cb_cs
+        real :: pcld_ThCi_cs, tcld_ThCi_cs, em_ThCi_cs
+        real :: pcld_Anv_cs, tcld_Anv_cs, em_Anv_cs
+        real :: em_hist_cs, iwp_hist_cs, deltaz_hist_cs, rad_hist_cs
+
+        real, dimension(klev) :: test_tot, test_hc, test_hist
+        real, dimension(klev) :: test_pcld, test_tcld, test_em, test_iwp
+
+
+        do j = 1, klev
+        write(*,*) 'simu_airs, j, rneb_1D =', rneb_1D(j)
+        enddo
+
+! Definition des structures nuageuses, de la plus haute a la plus basse
+
+        num_cs = 0
+        ltop = klev-1
+
+        prod = 1.
+
+        som_emi_hc = 0.
+        som_emi_hist = 0.
+        som_pcl_hc = 0.
+        som_tcl_hc = 0.
+        som_iwp_hc = 0.
+        som_iwp_hist = 0.
+        som_deltaz_hc = 0.
+        som_deltaz_hist = 0.
+        som_rad_hist = 0.
+        som_hc = 0.
+        som_hist = 0.
+
+        som_Cb = 0.
+        som_ThCi = 0.
+        som_Anv = 0.
+
+        som_emi_Cb = 0.
+        som_pcld_Cb = 0.
+        som_tcld_Cb = 0.
+
+        som_emi_ThCi = 0.
+        som_pcld_ThCi = 0.
+        som_tcld_ThCi = 0.
+
+        som_emi_Anv = 0.
+        som_pcld_Anv = 0.
+        som_tcld_Anv = 0.
+
+        tsom_tot = 0.
+        tsom_hc = 0.
+        tsom_hist = 0.
+
+        do while (ltop .ge. 1)   ! Boucle sur toute la colonne
+
+        itop = 0
+
+        do l = ltop,1,-1
+
+        if (itop .eq. 0 .and. rneb_1D(l) .gt. 0.001 ) then
+        itop = l
+        endif
+
+        enddo
+
+        ibot = itop
+
+        do while (rneb_1D(ibot) .gt. 0.001 .and. ibot .ge. 1)
+        ibot = ibot -1
+        enddo
+
+
+        ibot = ibot+1
+
+        if (itop .gt. 0) then    ! itop > 0
+
+        num_cs = num_cs +1
+        len_cs = itop-ibot+1
+
+! Allocation et definition des variables de la structure nuageuse
+! le premier indice denote ce qui est le plus haut
+
+        allocate (rneb_cs(len_cs))
+        allocate (temp_cs(len_cs))
+        allocate (emis_cs(len_cs))
+        allocate (iwco_cs(len_cs))
+        allocate (pres_cs(len_cs))
+        allocate (dz_cs(len_cs))
+        allocate (rad_cs(len_cs))
+        allocate (rhodz_cs(len_cs))
+
+        ics = 0
+
+        do i = itop, ibot, -1
+        ics = ics + 1
+        rneb_cs(ics) = rneb_1D(i)
+        temp_cs(ics) = temp_1D(i)
+        emis_cs(ics) = emis_1D(i)
+        iwco_cs(ics) = iwcon_1D(i)
+        rad_cs(ics) = rad_1D(i)
+        pres_cs(ics) = pres(i)
+        dz_cs(ics) = dz(i)
+        rhodz_cs(ics) = rhodz_1D(i)
+        enddo
+
+! Appel du sous_programme cloud_structure
+
+        call cloud_structure(len_cs,rneb_cs,temp_cs,emis_cs,iwco_cs,&
+     & pres_cs, dz_cs, rhodz_cs, rad_cs, &
+     & cc_tot_cs, cc_hc_cs, cc_hist_cs, &
+     & cc_Cb_cs, cc_ThCi_cs, cc_Anv_cs, &
+     & pcld_hc_cs, tcld_hc_cs, &
+     & em_hc_cs, iwp_hc_cs, deltaz_hc_cs, &
+     & pcld_Cb_cs, tcld_Cb_cs, em_Cb_cs, &
+     & pcld_ThCi_cs, tcld_ThCi_cs, em_ThCi_cs, &
+     & pcld_Anv_cs, tcld_Anv_cs, em_Anv_cs, &
+     & em_hist_cs, iwp_hist_cs, deltaz_hist_cs, rad_hist_cs)
+
+
+        deallocate (rneb_cs)
+        deallocate (temp_cs)
+        deallocate (emis_cs)
+        deallocate (iwco_cs)
+        deallocate (pres_cs)
+        deallocate (dz_cs)
+        deallocate (rad_cs)
+        deallocate (rhodz_cs)
+
+
+! Pour la couverture nuageuse sur la maille
+
+        prod_hh = prod
+
+        prod = prod*(1.-cc_tot_cs)
+
+! Pour les autres variables definies sur la maille
+
+        som_emi_hc = som_emi_hc + em_hc_cs*cc_hc_cs*prod_hh
+        som_iwp_hc = som_iwp_hc + iwp_hc_cs*cc_hc_cs*prod_hh
+        som_deltaz_hc = som_deltaz_hc + deltaz_hc_cs*cc_hc_cs*prod_hh
+
+        som_emi_Cb = som_emi_Cb + em_Cb_cs*cc_Cb_cs*prod_hh
+        som_tcld_Cb = som_tcld_Cb + tcld_Cb_cs*cc_Cb_cs*prod_hh
+        som_pcld_Cb = som_pcld_Cb + pcld_Cb_cs*cc_Cb_cs*prod_hh
+
+        som_emi_ThCi = som_emi_ThCi + em_ThCi_cs*cc_ThCi_cs*prod_hh
+        som_tcld_ThCi = som_tcld_ThCi + tcld_ThCi_cs*cc_ThCi_cs*prod_hh
+        som_pcld_ThCi = som_pcld_ThCi + pcld_ThCi_cs*cc_ThCi_cs*prod_hh
+
+        som_emi_Anv = som_emi_Anv + em_Anv_cs*cc_Anv_cs*prod_hh
+        som_tcld_Anv = som_tcld_Anv + tcld_Anv_cs*cc_Anv_cs*prod_hh
+        som_pcld_Anv = som_pcld_Anv + pcld_Anv_cs*cc_Anv_cs*prod_hh
+
+        som_emi_hist = som_emi_hist + em_hist_cs*cc_hist_cs*prod_hh
+        som_iwp_hist = som_iwp_hist + iwp_hist_cs*cc_hist_cs*prod_hh
+        som_deltaz_hist = som_deltaz_hist + &
+     & deltaz_hist_cs*cc_hist_cs*prod_hh
+        som_rad_hist = som_rad_hist + rad_hist_cs*cc_hist_cs*prod_hh
+
+        som_pcl_hc = som_pcl_hc + pcld_hc_cs*cc_hc_cs*prod_hh
+        som_tcl_hc = som_tcl_hc + tcld_hc_cs*cc_hc_cs*prod_hh
+
+        som_hc = som_hc + cc_hc_cs*prod_hh
+        som_hist = som_hist + cc_hist_cs*prod_hh
+
+        som_Cb = som_Cb + cc_Cb_cs*prod_hh
+        som_ThCi = som_ThCi + cc_ThCi_cs*prod_hh
+        som_Anv = som_Anv + cc_Anv_cs*prod_hh
+
+
+! Pour test
+        
+        call test_bornes('cc_tot_cs     ',cc_tot_cs,1.,0.)
+        call test_bornes('cc_hc_cs      ',cc_hc_cs,1.,0.)
+        call test_bornes('cc_hist_cs    ',cc_hist_cs,1.,0.)
+        call test_bornes('pcld_hc_cs    ',pcld_hc_cs,1200.,0.)
+        call test_bornes('tcld_hc_cs    ',tcld_hc_cs,1000.,100.)
+        call test_bornes('em_hc_cs      ',em_hc_cs,1000.,0.048)
+
+        test_tot(num_cs) = cc_tot_cs
+        test_hc(num_cs) = cc_hc_cs
+        test_hist(num_cs) = cc_hist_cs
+        test_pcld(num_cs) = pcld_hc_cs
+        test_tcld(num_cs) = tcld_hc_cs
+        test_em(num_cs) = em_hc_cs
+        test_iwp(num_cs) = iwp_hc_cs
+
+        tsom_tot = tsom_tot + cc_tot_cs
+        tsom_hc = tsom_hc + cc_hc_cs
+        tsom_hist = tsom_hist + cc_hist_cs
+
+
+        endif                   ! itop > 0
+
+        ltop = ibot -1
+
+        enddo                   ! fin de la boucle sur la colonne
+
+        N_CS = num_cs
+
+
+! Determination des variables de sortie
+
+        if (N_CS .gt. 0) then   ! if N_CS>0
+
+        cc_tot_mesh = 1. - prod
+
+        cc_hc_mesh = som_hc
+        cc_hist_mesh = som_hist
+
+        cc_Cb_mesh = som_Cb
+        cc_ThCi_mesh = som_ThCi
+        cc_Anv_mesh = som_Anv
+
+        call normal2_undef(pcld_hc_mesh,som_pcl_hc, &
+     & cc_hc_mesh)
+        call normal2_undef(tcld_hc_mesh,som_tcl_hc, &
+     & cc_hc_mesh)
+        call normal2_undef(em_hc_mesh,som_emi_hc, &
+     & cc_hc_mesh)
+        call normal2_undef(iwp_hc_mesh,som_iwp_hc, &
+     & cc_hc_mesh)
+        call normal2_undef(deltaz_hc_mesh,som_deltaz_hc, &
+     & cc_hc_mesh)
+
+        call normal2_undef(em_Cb_mesh,som_emi_Cb, &
+     & cc_Cb_mesh)
+        call normal2_undef(tcld_Cb_mesh,som_tcld_Cb, &
+     & cc_Cb_mesh)
+        call normal2_undef(pcld_Cb_mesh,som_pcld_Cb, &
+     & cc_Cb_mesh)
+
+        call normal2_undef(em_ThCi_mesh,som_emi_ThCi, &
+     & cc_ThCi_mesh)
+        call normal2_undef(tcld_ThCi_mesh,som_tcld_ThCi, &
+     & cc_ThCi_mesh)
+        call normal2_undef(pcld_ThCi_mesh,som_pcld_ThCi, &
+     & cc_ThCi_mesh)
+
+       call normal2_undef(em_Anv_mesh,som_emi_Anv, &
+     & cc_Anv_mesh)
+        call normal2_undef(tcld_Anv_mesh,som_tcld_Anv, &
+     & cc_Anv_mesh)
+        call normal2_undef(pcld_Anv_mesh,som_pcld_Anv, &
+     & cc_Anv_mesh)
+
+
+        call normal2_undef(em_hist_mesh,som_emi_hist, &
+     & cc_hist_mesh)
+        call normal2_undef(iwp_hist_mesh,som_iwp_hist, &
+     & cc_hist_mesh)
+        call normal2_undef(deltaz_hist_mesh,som_deltaz_hist, &
+     & cc_hist_mesh)
+        call normal2_undef(rad_hist_mesh,som_rad_hist, &
+     & cc_hist_mesh)
+
+
+! Tests 
+
+        ! Tests
+
+       if (cc_tot_mesh .gt. tsom_tot .and. &
+     & abs(cc_tot_mesh-tsom_tot) .gt. 1.e-4) then
+        write(*,*) 'cc_tot_mesh > tsom_tot'
+        write(*,*) cc_tot_mesh, tsom_tot
+        STOP
+        endif
+
+        if (cc_tot_mesh .lt. maxval(test_tot(1:N_CS)) .and. &
+     & abs(cc_tot_mesh-maxval(test_tot(1:N_CS))) .gt. 1.e-4) then
+        write(*,*) 'cc_tot_mesh < max'
+        write(*,*) cc_tot_mesh, maxval(test_tot(1:N_CS))
+        STOP
+        endif
+
+        if (cc_hc_mesh .gt. tsom_hc .and. &
+     & abs(cc_hc_mesh-tsom_hc) .gt. 1.e-4) then
+        write(*,*) 'cc_hc_mesh > tsom_hc'
+        write(*,*) cc_hc_mesh, tsom_hc
+        STOP
+        endif
+
+        if (cc_hc_mesh .lt. maxval(test_hc(1:N_CS)) .and. &
+     & abs(cc_hc_mesh-maxval(test_hc(1:N_CS))) .gt. 1.e-4) then
+        write(*,*) 'cc_hc_mesh < max'
+        write(*,*) cc_hc_mesh, maxval(test_hc(1:N_CS))
+        STOP
+        endif
+
+        if (cc_hist_mesh .gt. tsom_hist .and. &
+     & abs(cc_hist_mesh-tsom_hist) .gt. 1.e-4) then
+        write(*,*) 'cc_hist_mesh > tsom_hist'
+        write(*,*) cc_hist_mesh, tsom_hist
+        STOP
+        endif
+
+        if (cc_hist_mesh .lt. 0.) then
+        write(*,*) 'cc_hist_mesh < 0'
+        write(*,*) cc_hist_mesh
+        STOP
+        endif
+
+        if ((pcld_hc_mesh .gt. maxval(test_pcld(1:N_CS)) .or. &
+     & pcld_hc_mesh .lt. minval(test_pcld(1:N_CS))) .and. &
+     & abs(pcld_hc_mesh-maxval(test_pcld(1:N_CS))) .gt. 1. .and. &
+     & maxval(test_pcld(1:N_CS)) .ne. 999. &
+     & .and. minval(test_pcld(1:N_CS)) .ne. 999.) then
+        write(*,*) 'pcld_hc_mesh est faux'
+        write(*,*) pcld_hc_mesh, maxval(test_pcld(1:N_CS)), &
+     & minval(test_pcld(1:N_CS))
+        STOP
+        endif
+
+       if ((tcld_hc_mesh .gt. maxval(test_tcld(1:N_CS)) .or. &
+     & tcld_hc_mesh .lt. minval(test_tcld(1:N_CS))) .and. &
+     & abs(tcld_hc_mesh-maxval(test_tcld(1:N_CS))) .gt. 0.1 .and. &
+     & maxval(test_tcld(1:N_CS)) .ne. 999. &
+     & .and. minval(test_tcld(1:N_CS)) .ne. 999.) then
+        write(*,*) 'tcld_hc_mesh est faux'
+        write(*,*) tcld_hc_mesh, maxval(test_tcld(1:N_CS)), &
+     & minval(test_tcld(1:N_CS))
+        endif
+
+        if ((em_hc_mesh .gt. maxval(test_em(1:N_CS)) .or. &
+     & em_hc_mesh .lt. minval(test_em(1:N_CS))) .and. &
+     & abs(em_hc_mesh-maxval(test_em(1:N_CS))) .gt. 1.e-4 .and. &
+     & minval(test_em(1:N_CS)) .ne. 999. .and. &
+     & maxval(test_em(1:N_CS)) .ne. 999. ) then
+        write(*,*) 'em_hc_mesh est faux'
+        write(*,*) em_hc_mesh, maxval(test_em(1:N_CS)), &
+     & minval(test_em(1:N_CS))
+        STOP
+        endif
+
+        else               ! if N_CS>0
+
+        cc_tot_mesh = 0.
+        cc_hc_mesh = 0.
+        cc_hist_mesh = 0.
+
+        cc_Cb_mesh = 0.
+        cc_ThCi_mesh = 0.
+        cc_Anv_mesh = 0.
+
+        iwp_hc_mesh = undef 
+        deltaz_hc_mesh = undef 
+        em_hc_mesh = undef 
+        iwp_hist_mesh = undef 
+        deltaz_hist_mesh = undef 
+        rad_hist_mesh = undef 
+        em_hist_mesh = undef 
+        pcld_hc_mesh = undef 
+        tcld_hc_mesh = undef 
+
+        pcld_Cb_mesh = undef 
+        tcld_Cb_mesh = undef 
+        em_Cb_mesh = undef 
+
+        pcld_ThCi_mesh = undef 
+        tcld_ThCi_mesh = undef 
+        em_ThCi_mesh = undef 
+
+        pcld_Anv_mesh = undef 
+        tcld_Anv_mesh = undef 
+        em_Anv_mesh = undef 
+
+
+        endif                  ! if N_CS>0
+
+        end subroutine sim_mesh
+
+        subroutine test_bornes(sx,x,bsup,binf)
+
+        real, intent(in) :: x, bsup, binf
+        character*14, intent(in) :: sx
+
+        if (x .gt. bsup .or. x .lt. binf) then
+        write(*,*) sx, 'est faux'
+        write(*,*) sx, x
+        STOP
+        endif
+ 
+        end subroutine test_bornes
+
+        end module m_simu_airs
+
+
+        subroutine simu_airs &
+     & (itap, rneb_airs, temp_airs, cldemi_airs, iwcon0_airs, rad_airs, &
+     & geop_airs, pplay_airs, paprs_airs, &
+     & map_prop_hc,map_prop_hist,&
+     & map_emis_hc,map_iwp_hc,map_deltaz_hc,map_pcld_hc,map_tcld_hc,&
+     & map_emis_Cb,map_pcld_Cb,map_tcld_Cb,&
+     & map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi,&
+     & map_emis_Anv,map_pcld_Anv,map_tcld_Anv,&
+     & map_emis_hist,map_iwp_hist,map_deltaz_hist,map_rad_hist,&
+     & map_ntot,map_hc,map_hist,&
+     & map_Cb,map_ThCi,map_Anv,alt_tropo )
+
+        USE dimphy
+        USE m_simu_airs
+
+        IMPLICIT NONE
+
+        include "YOMCST.h"
+
+        integer,intent(in) :: itap
+
+        real, dimension(klon,klev), intent(in) :: &
+     & rneb_airs, temp_airs, cldemi_airs, iwcon0_airs, &
+     & rad_airs, geop_airs, pplay_airs, paprs_airs
+
+       real, dimension(klon,klev) :: &
+     & rhodz_airs, rho_airs, iwcon_airs
+
+        real, dimension(klon),intent(out) :: alt_tropo
+
+        real, dimension(klev) :: rneb_1D, temp_1D, &
+     & emis_1D, rad_1D, pres_1D, alt_1D, &
+     & rhodz_1D, dz_1D, iwcon_1D
+
+        integer :: i, j
+
+        real :: cc_tot_mesh, cc_hc_mesh, cc_hist_mesh
+        real :: cc_Cb_mesh, cc_ThCi_mesh, cc_Anv_mesh
+        real :: pcld_hc_mesh, tcld_hc_mesh, em_hc_mesh, iwp_hc_mesh
+        real :: em_hist_mesh, iwp_hist_mesh
+        real :: deltaz_hc_mesh, deltaz_hist_mesh, rad_hist_mesh
+        real :: pcld_Cb_mesh, tcld_Cb_mesh, em_Cb_mesh
+        real :: pcld_ThCi_mesh, tcld_ThCi_mesh, em_ThCi_mesh
+        real :: pcld_Anv_mesh, tcld_Anv_mesh, em_Anv_mesh
+
+        real, dimension(klon),intent(out) :: map_prop_hc, map_prop_hist
+        real, dimension(klon),intent(out) :: map_emis_hc, map_iwp_hc
+        real, dimension(klon),intent(out) :: map_deltaz_hc, map_pcld_hc
+        real, dimension(klon),intent(out) :: map_tcld_hc
+        real, dimension(klon),intent(out) :: map_emis_Cb,map_pcld_Cb,map_tcld_Cb 
+        real, dimension(klon),intent(out) :: &
+     & map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi
+        real, dimension(klon),intent(out) :: &
+     & map_emis_Anv,map_pcld_Anv,map_tcld_Anv
+        real, dimension(klon),intent(out) :: &
+     & map_emis_hist,map_iwp_hist,map_deltaz_hist,&
+     & map_rad_hist
+       real, dimension(klon),intent(out) :: map_ntot,map_hc,map_hist
+       real, dimension(klon),intent(out) :: map_Cb,map_ThCi,map_Anv
+ 
+ 
+        write(*,*) 'simu_airs'
+        write(*,*) 'itap, klon, klev', itap, klon, klev
+        write(*,*) 'RG, RD =', RG, RD
+
+
+! Definition des variables 1D
+
+        do i = 1, klon
+        do j = 1, klev-1
+        rhodz_airs(i,j) = &
+     & (paprs_airs(i,j)-paprs_airs(i,j+1))/RG
+        enddo
+        rhodz_airs(i,klev) = 0.
+        enddo
+
+        do i = 1, klon
+        do j = 1,klev
+        rho_airs(i,j) = &
+     & pplay_airs(i,j)/(temp_airs(i,j)*RD)
+
+        if (rneb_airs(i,j) .gt. 0.001) then
+        iwcon_airs(i,j) = iwcon0_airs(i,j)/rneb_airs(i,j)
+        else
+        iwcon_airs(i,j) = 0.
+        endif
+ 
+        enddo
+        enddo
+
+!=============================================================================
+
+        do i = 1, klon  ! boucle sur les points de grille
+
+!=============================================================================
+        
+        do j = 1,klev
+
+        rneb_1D(j) = rneb_airs(i,j)
+        temp_1D(j) = temp_airs(i,j)
+        emis_1D(j) = cldemi_airs(i,j)
+        iwcon_1D(j) = iwcon_airs(i,j)
+        rad_1D(j) = rad_airs(i,j)
+        pres_1D(j) = pplay_airs(i,j)
+        alt_1D(j) = geop_airs(i,j)/RG
+        rhodz_1D(j) = rhodz_airs(i,j)
+        dz_1D(j) = rhodz_airs(i,j)/rho_airs(i,j)
+
+        enddo
+
+        alt_tropo(i) = &
+     & search_tropopause(pres_1D/100.,temp_1D,alt_1D,klev)
+
+
+! Appel du ss-programme sim_mesh
+
+!        if (itap .eq. 1 ) then
+
+        call sim_mesh(rneb_1D, temp_1D, emis_1D, iwcon_1D, rad_1D, &
+     & pres_1D, dz_1D, rhodz_1D, &
+     & cc_tot_mesh, cc_hc_mesh, cc_hist_mesh, &
+     & pcld_hc_mesh, tcld_hc_mesh, em_hc_mesh, iwp_hc_mesh, &
+     & deltaz_hc_mesh,&
+     & cc_Cb_mesh, cc_ThCi_mesh, cc_Anv_mesh, &
+     & pcld_Cb_mesh, tcld_Cb_mesh, em_Cb_mesh, &
+     & pcld_ThCi_mesh, tcld_ThCi_mesh, em_ThCi_mesh, &
+     & pcld_Anv_mesh, tcld_Anv_mesh, em_Anv_mesh, &
+     & em_hist_mesh, iwp_hist_mesh, deltaz_hist_mesh, rad_hist_mesh)
+
+         write(*,*) '===================================='
+         write(*,*) 'itap, i:', itap, i 
+         write(*,*) 'cc_tot, cc_hc, cc_hist, pcld_hc, tcld_hc, em_hc, &
+     & iwp_hc, em_hist, iwp_hist ='
+         write(*,*) cc_tot_mesh, cc_hc_mesh, cc_hist_mesh
+         write(*,*) pcld_hc_mesh, tcld_hc_mesh, em_hc_mesh, iwp_hc_mesh
+         write(*,*)  em_hist_mesh, iwp_hist_mesh
+
+!        endif
+
+! Definition des variables a ecrire dans le fichier de sortie
+
+        call normal2_undef(map_prop_hc(i),cc_hc_mesh, &
+     & cc_tot_mesh)
+        call normal2_undef(map_prop_hist(i),cc_hist_mesh, &
+     & cc_tot_mesh)
+
+       map_emis_hc(i) = em_hc_mesh
+       map_iwp_hc(i) = iwp_hc_mesh
+       map_deltaz_hc(i) = deltaz_hc_mesh
+       map_pcld_hc(i) = pcld_hc_mesh
+       map_tcld_hc(i) = tcld_hc_mesh
+
+       map_emis_Cb(i) = em_Cb_mesh
+       map_pcld_Cb(i) = pcld_Cb_mesh
+       map_tcld_Cb(i) = tcld_Cb_mesh
+
+       map_emis_ThCi(i) = em_ThCi_mesh
+       map_pcld_ThCi(i) = pcld_ThCi_mesh
+       map_tcld_ThCi(i) = tcld_ThCi_mesh
+
+       map_emis_Anv(i) = em_Anv_mesh
+       map_pcld_Anv(i) = pcld_Anv_mesh
+       map_tcld_Anv(i) = tcld_Anv_mesh
+
+       map_emis_hist(i) = em_hist_mesh
+       map_iwp_hist(i) = iwp_hist_mesh
+       map_deltaz_hist(i) = deltaz_hist_mesh
+       map_rad_hist(i) = rad_hist_mesh
+
+       map_ntot(i) = cc_tot_mesh
+       map_hc(i) = cc_hc_mesh
+       map_hist(i) = cc_hist_mesh
+
+       map_Cb(i) = cc_Cb_mesh
+       map_ThCi(i) = cc_ThCi_mesh
+       map_Anv(i) = cc_Anv_mesh
+
+
+        enddo         ! fin boucle sur les points de grille
+
+        
+
+        end subroutine simu_airs
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/LMDZCTR.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/LMDZCTR.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/LMDZCTR.F90	(revision 3330)
@@ -0,0 +1,54 @@
+MODULE LMDZCTR
+
+IMPLICIT NONE
+! +                                                                
+                                                                                
+      logical           reaVAR    ! Input INI: Prev.Dyn.Simulat. (MAR, GCM)     
+      logical           reaLBC    ! Input LBC: Prev.Dyn.Simulat. (MAR, GCM)     
+      logical           safVAR    ! Full Output on Saving Files   MARxxx.DAT    
+      logical           sALONE    !                                             
+      logical           geoNST    !                                             
+      logical           conmas    ! Mass       Conserv. Constraint Init.Switch  
+      logical           potvor    ! P.-Vortic. Conserv. Constraint Init.Switch  
+      logical           hamfil    ! Initial Filtered Fields (Time, Hamming)     
+      logical           brocam    ! Brown and Campana  Time      Scheme Switch  
+      logical           LFrBAK    ! Leap-Frog Backward Advection Scheme Switch  
+      logical           openLB    !                                             
+      logical           sommlb    !                                             
+      logical           FirstC    !                                             
+      logical           qqmass    ! Mass       Conservation             Switch  
+      logical           turhor    ! Horizontal Diffusion (Smagorinsky)  Switch  
+      logical           SBLitr    !                                             
+      logical           tur_25    !                                             
+      logical           convec    ! Convective  Adjustment              Switch  
+      logical           MFLX_d    ! Convective  Adjustment (deep)       Switch  
+      logical           MFLX_s    ! Convective  Adjustment (shallow)    Switch  
+      logical           micphy    ! Cloud       Microphysics            Switch  
+      logical           fracld    ! Fractional  Cloudiness              Switch  
+      logical           chimod    ! Atmospheric Chemical Model          Switch  
+      logical           physic    ! Atmospheric/Surface Physics         Switch  
+      logical           polmod    ! Interactive Polynya    is           Switch  
+      logical           snomod    ! Interactive Snow Model is           Switch  
+      logical           BloMod    !                                             
+      logical           vegmod    ! Interactive SVAT                    Switch  
+      logical           VSISVAT   !                                             
+      logical           no_vec    ! Scalar     (NO Vectorization)       Switch  
+                                                                                
+                                                                                
+      integer           itexpe,iterun,nterun,nbhour,itConv                      
+      integer           iboucl,nboucl,nprint,ipr_nc,npr_nc                      
+      integer           maptyp                                                  
+      integer           log_1D                                                  
+                                                                                
+      real*8            Robert                                                  
+      real*8            rrmin ,rrmax                                            
+      real*8            rxbase,rxfact                                           
+      real*8            fxlead                                                  
+      real*8            tMFLXd        ! d(time) between 2 deep convection CALL  
+      real*8            aMFLXd,aMFLXs ! adjustment times (deep, shallow)        
+                                                                               
+      character*16      fnam                                                    
+
+
+END MODULE LMDZCTR
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/LMDZ_KL.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/LMDZ_KL.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/LMDZ_KL.F90	(revision 3330)
@@ -0,0 +1,43 @@
+MODULE LMDZ_KL
+
+USE VAR_SV, only : klonv
+
+IMPLICIT NONE
+! +
+    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: SOsoKL    ! Abs Solar Radiation 
+!$OMP THREADPRIVATE(SOsoKL)
+    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: IRsoKL    ! Abs IR    Radiation 
+!$OMP THREADPRIVATE(IRsoKL)
+    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HSsoKL    ! Abs Sensible Ht Flux 
+!$OMP THREADPRIVATE(HSsoKL)
+    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HLsoKL    ! Abs Latent Heat Flux 
+!$OMP THREADPRIVATE(HLsoKL)
+    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HLs_KL    ! Evaporation          
+!$OMP THREADPRIVATE(HLs_KL)
+    REAL, DIMENSION(:),SAVE,ALLOCATABLE :: HLv_KL    ! Transpiration        
+!$OMP THREADPRIVATE(HLv_KL)
+    
+!   REAL, DIMENSION(klonv)                 :: SOsoNC    ! Abs Solar Radiation  
+!   REAL, DIMENSION(klonv)                 :: IRsoNC    ! Abs IR    Radiation  
+!   REAL, DIMENSION(klonv)                 :: HSsoNC    ! Abs Sensible Ht Flux
+!   REAL, DIMENSION(klonv)                 :: HLsoNC    ! Abs Latent Heat Flux
+!   REAL, DIMENSION(klonv)                 :: HLs_NC    ! Evaporation      
+!   REAL, DIMENSION(klonv)                 :: HLv_NC    ! Transpiration       
+
+CONTAINS
+  
+  SUBROUTINE INIT_LMDZ_KL
+  IMPLICIT NONE
+  
+    ALLOCATE(SOsoKL(klonv))    ! Abs Solar Radiation 
+    ALLOCATE(IRsoKL(klonv))    ! Abs IR    Radiation 
+    ALLOCATE(HSsoKL(klonv))    ! Abs Sensible Ht Flux 
+    ALLOCATE(HLsoKL(klonv))    ! Abs Latent Heat Flux 
+    ALLOCATE(HLs_KL(klonv))    ! Evaporation          
+    ALLOCATE(HLv_KL(klonv))    ! Transpiration        
+       
+  END SUBROUTINE INIT_LMDZ_KL
+  
+  
+END MODULE LMDZ_KL
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/PHY_SV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/PHY_SV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/PHY_SV.F90	(revision 3330)
@@ -0,0 +1,70 @@
+MODULE PHY_SV
+
+IMPLICIT NONE
+
+! Constants
+                                                                              
+      CHARACTER(LEN=1), PARAMETER :: labnum(0:9) =                            &
+              (/'0','1','2','3','4','5','6','7','8','9'/)             
+!C +...                labnum: Alphanumeric Character                          
+                                                                               
+      INTEGER, PARAMETER ::  izr=0,iun=1                                             
+      REAL, PARAMETER    ::  zer0 = 0.0e+0, half = 0.5e+0, un_1 = 1.0e+0,     &
+     &                       eps6 = 1.0e-6, epsn = 1.0e-9, R_1000=1.e3             
+      REAL               ::  ea_MAX,ea_MIN 
+!C +...                    zer0 = 0.0e+0                                       
+!C +                       half = 0.5e+0                                 
+!C +                       un_1 = 1.0e+0                             
+!C +                       eps6 = 1.0e-6  ! Arbirary Small Value           !    1.e-6     
+!C +                       epsn = 1.0e-9  ! Arbirary Small Value           !    1.e-6 
+!C +                       R_1000=1.e3     
+!C +                       ea_MIN   ! MAX allowed exponential Argum. ! computed by HOST     
+!C +                       ea_MIN   ! MIN allowed exponential Argum. ! computed by HOST     
+                                                                              
+      REAL, PARAMETER    ::  piNmbr = 3.141592653589793238462643e0
+      REAL, SAVE         ::  Dg2Rad = piNmbr / 180.
+!C +...                    piNmbr   ! pi    = 3.141592653589793238462643e0             
+!C +...                    Dg2rad   ! pi / 180                                       
+      REAL, PARAMETER    ::  Grav_F = 9.81e0, Grav_I = 1./Grav_F                       
+!C +                   Grav_F:  Gravitational  Force         =  9.81    m/s2           
+!C +                   Grav_I: 1 / Grav_F                    = 1 /9.81    s2/m    
+                                                                              
+      REAL, PARAMETER    ::  A_MolV = 1.35e-5, vonKrm = 0.40e0, A_Stab = 5.8,  &
+     &                       AhStab = 5.4,     AsStab = 4.0,    r_Stab = 3.0            
+!C +...                A_MolV: Air Viscosity                 = 1.35d-5 m2/s   
+!C +                   vonKrm: von Karman constant           = 0.4            
+!C +                   A_Stab: Stability  Coefficient Moment = 5.8             
+!C +                   AhStab: Stability  Coefficient Heat   = 5.4             
+!C +                   AsStab: Stability  Coefficient Blown * = 4.0            
+!C +                   r_Stab: Turbulent Diffusivities Ratio K*/Km             
+                                                                              
+      REAL, PARAMETER    ::  R_DAir=287.05967, CpdAir=1004.708845,             &
+     &                       RCp=R_DAir/CpdAir,p0_kap=3.73010e0,               &
+     &                       StefBo=5.67e-8         
+      REAL, PARAMETER    ::  LhfH2O=3.34e+5, LhvH2O=2.5008e+6,&
+     &                       LhsH2O=2.8345e+6      
+!C +...                R_DAir: perfect gas law constant for dry air (287 J/kg/K) 
+!C +                   CpdAir: dry air specific heat at constant p (1004 J/kg/K) 
+!C +                   RCp   : R / Cp                      
+!C +                   p0_kap: 100 kPa ** (R/Cp)                                    
+!C +                   LhfH2O: Latent Heat of Fusion of Snow  =    3.34d+5 J/kg
+!C +                   LhvH2O: Latent Heat Vaporisation Snow  = 2500.00d+3 J/kg  
+!C +                   LhsH2O: Latent Heat Sublimation  Snow  = 2833.60d+3 J/kg  
+!C +                   StefBo: Stefan-Boltzman Constant       =    5.67d-8 W/m2/K4
+                                                                                
+      REAL, PARAMETER    ::  rhoWat=1000.00e0, hC_Wat=4186.00e0        
+!C +                   rhoWat: Water Specific Mass            = 1000.00d+0 kg/m3 
+!C +                   hC_Wat: Water Heat Capacity            = 4186.00d+0 J/kg/K
+                                                                                
+      REAL, PARAMETER    ::  rhoIce=920.e0, BSnoRo=3.30e+2                             
+!C +...                rhoIce:  Density      of Pure Ice      =  920.00d+0 kg/m3
+!C +                   BSnoRo : Blowed Snow Density           =  255.00d+0 kg/m3 
+                                                                                
+      REAL, PARAMETER    ::  Tf_Sno=273.16e+0,Tf_Sea=271.2e+0             
+!C +...                Tf_Sno: Snow  Melting  Point           =  273.16    K     
+!C +...                Tf_Sea: Sea   Melting  Point           =  271.2     K
+
+                      
+                                                                                
+
+END MODULE PHY_SV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VAR0SV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VAR0SV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VAR0SV.F90	(revision 3330)
@@ -0,0 +1,31 @@
+MODULE VAR0SV
+
+USE VAR_SV, only : nsol, nsno 
+USE VARdSV, only : nsot, nvgt
+
+IMPLICIT NONE
+                                                  
+      INTEGER    :: islpSV(-nsol:0)                                           
+      INTEGER    :: isnpSV(      nsno)                                        
+      INTEGER    :: islmSV(-nsol:0)    
+                                      
+      INTEGER,PARAMETER :: nkhy=50                                            
+      REAL       :: Implic,Explic                                             
+      REAL       :: dzmiSV(-nsol:0)          ! dz_(i-1/2)                     
+      REAL       :: dzi_SV(-nsol:0)          ! dz_(i-1)/(dz_(i)+dz_(i-1))     
+      REAL       :: dziiSV(-nsol:0)          ! dz_(i)  /(dz_(i)+dz_(i-1))     
+      REAL       :: dtz_SV(-nsol:0)          ! dt / dz                        
+      REAL       :: dz78SV(-nsol:0)          ! 7/8 (dz)                       
+      REAL       :: dz34SV(-nsol:0)          ! 3/4 (dz)                       
+      REAL       :: dz_8SV(-nsol:0)          ! 1/8 (dz)                       
+      REAL       :: dzAvSV(-nsol:0)          ! 1/8dz_(-1)+3/4dz+1/8dz_(+1)    
+      REAL       :: OcndSV                   ! Swab Ocean / Soil Ratio        
+      REAL       :: RF__SV( 0:nvgt,-nsol:0)  ! Root Fraction                  
+      REAL       :: rocsSV( 0:nsot)          ! Soil Contribution to (ro c)_s  
+      REAL       :: etamSV( 0:nsot)          ! Soil Minimum Humidity          
+      REAL       :: s1__SV( 0:nsot)          ! ... X eta**( b+2), DR97(3.36)  
+      REAL       :: s2__SV( 0:nsot)          ! ... X eta**(2b+3), DR97(3.35)  
+      REAL       :: aKdtSV( 0:nsot, 0:nkhy)  ! Khyd=a*eta+b: a * dt           
+      REAL       :: bKdtSV( 0:nsot, 0:nkhy)  ! Khyd=a*eta+b: b * dt           
+
+END MODULE VAR0SV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VAR_SV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VAR_SV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VAR_SV.F90	(revision 3330)
@@ -0,0 +1,18 @@
+MODULE VAR_SV
+
+IMPLICIT NONE
+! +
+! +   LMDZ_SV dims
+! +   ===================
+! +
+!      INTEGER,PARAMETER :: nsol=nsoilmx-1
+!      INTEGER,PARAMETER :: nsno=nsnowmx
+      INTEGER,PARAMETER    :: nsol=10      !8
+      INTEGER,PARAMETER    :: nsno=35
+      INTEGER,PARAMETER :: nb_wri=1
+      INTEGER,SAVE      :: klonv
+!$OMP THREADPRIVATE(klonv)
+      INTEGER,SAVE      :: knonv
+!$OMP THREADPRIVATE(knonv)
+
+END MODULE VAR_SV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARdCP.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARdCP.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARdCP.F90	(revision 3330)
@@ -0,0 +1,30 @@
+MODULE VARdCP
+
+IMPLICIT NONE
+! +                  
+!C +--Col de Porte specific Constants                                            
+!C +  ===============================                                            
+                                                                                
+      LOGICAL :: ColPrt                ! Col de Porte Switch               
+                                                                                
+                                                                                
+!C +--Fractions of total solar irradiances in 3 spectral intervals               
+!C +  ------------------------------------------------------------               
+                                                                                
+      REAL, PARAMETER :: Dr_1SN=0.59, Dr_2SN=0.31, Dr_3SN=0.10               
+      REAL, PARAMETER :: Df_1SN=0.95, Df_2SN=0.05, Df_3SN=0.00              
+      REAL, PARAMETER :: Dfc1SN=0.66, Dfc2SN=0.27, Dfc3SN=0.07               
+      REAL :: DirSol,DifSol,TotSol,Clouds                               
+
+!     Dr_1SN,Dr_2SN,Dr_3SN  ! Direct  Radiation                 
+!     Df_1SN,Df_2SN,Df_3SN  ! Diffuse Radiation, Clear  Sky     
+!     Dfc1SN,Dfc2SN,Dfc3SN  ! Diffuse Radiation, Cloudy Sky     
+!C +--DATA - from common block COL DE PORTE                            
+!C +  ====                                                                       
+!c #CP data     ColPrt /.true./                                   
+!                                                                                
+!C +.           0.3--0.8micr.m   0.8--1.5micr.m   1.5--2.8micr.m                 
+!C +            Fractions of total solar irradiance in 3 spectral intervals      
+!C +***        (see Eric Martin Sept. 1996, CROCUS, Subroutine METEO)          
+                                                                                
+END MODULE VARdCP   
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARdSV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARdSV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARdSV.F90	(revision 3330)
@@ -0,0 +1,141 @@
+MODULE VARdSV
+
+USE VAR_SV
+
+IMPLICIT NONE
+
+
+! +--SISVAT Global Variables
+! +  =======================
+
+      LOGICAL           ::   INI_SV=.false.          ! Initialisation Switch     
+      REAL,PARAMETER    ::   eps_21=1.e-21           ! Arbitrary  very small value
+
+
+! +--Snow
+! +  ----
+
+      INTEGER,PARAMETER,DIMENSION(5) ::   istdSV(1:5)=(/1,2,3,4,5/)  ! Snow History
+
+      REAL,PARAMETER    ::   Cn_dSV= 2105.           ! Snow Heat Capacity          [J/kg/K]
+      REAL,PARAMETER    ::   SMndSV= 1.00            ! Minimum Thickness of new Layers
+      REAL,PARAMETER    ::   G1_dSV= 99.             ! Conversion 0/99-->0/1 
+      REAL,PARAMETER    ::   DDcdSV= 1.,DFcdSV= 4.,DScdSV= 3.   
+                                                     ! Snow Grains Optical Diameter [1e-4m]
+      REAL,PARAMETER    ::   ADSdSV= 4.              ! Snow Grains Actual  Diameter [1e-4m]
+      REAL,PARAMETER    ::   So1dSV= 0.580,So2dSV= 0.320,So3dSV= 0.100
+                                                     ! Total Solar Irradiance Fractions [-]
+                                                     ! Tuning ETH camp 0.3--0.8mim Interval
+                                                     ! Tuning ETH camp 0.8--1.5mim Interval
+                                                     ! Tuning ETH camp 1.5--2.8mim Interval
+                                                     ! So1dSV=0.606,So2dSV=0.301,So3dSV=0.093
+      REAL,PARAMETER    ::   aI1dSV= 0.40,aI2dSV= 0.45,aI3dSV= 0.65
+                                                     ! Bare Ice Albedo                  [-]
+                                                     ! Minimum/Maximum/ICE lense albedo at 
+                                                     ! 800 kg/m3 and minimum pure snow albedo
+      REAL,PARAMETER    ::   ws0dSV= 0.07            ! Irreducible Water Saturation in Snow
+      REAL,PARAMETER    ::   roCdSV= 800.            ! Pore Hole Close OFF Density  [kg/m3]
+      REAL,PARAMETER    ::   ru_dSV= 200.            ! Surficial Water Scale Factor [kg/m2]
+
+!C +--Ice
+!C +  ---
+
+      REAL,PARAMETER    ::   CdidSV= 2.1
+
+!C +--Vegetation
+!C +  ----------
+
+      INTEGER,PARAMETER ::   nvgt=12
+      REAL,PARAMETER    ::   DH_dSV(0:nvgt) = (/ 0.00, 0.07, 0.21,      &
+     &       0.70, 0.07, 0.21, 0.70, 1.40, 5.60,14.00, 1.40, 5.60,14.00/)
+                                                  ! Displacement            Height   [m]
+
+      REAL,PARAMETER    ::   Z0mdSV(0:nvgt) = (/ 0.01, 0.01, 0.03,      &
+     &       0.10, 0.01, 0.03, 0.10, 0.20, 0.80, 2.00, 0.20, 0.80, 2.00/)
+                                                  ! Roughness  Length for Momentum   [m]
+
+      REAL,PARAMETER    ::   StodSV(0:nvgt) = (/5000.,  50.,  50.,      &
+     &        50.,  50.,  50.,  50.,  10.,  10.,  10.,  10.,  10.,  10./)
+                                                  ! Minimum    Stomatal Resistance [s/m]
+
+      REAL,PARAMETER    ::   PR_dSV(0:nvgt) = (/  0.0,0.5e9,0.5e9,      & 
+     &      0.5e9,0.5e9,0.5e9,0.5e9,1.0e9,1.0e9,1.0e9,1.0e9,1.0e9,1.0e9/)
+                                                  ! Roots Fraction Beta Coefficient  [-]
+
+      REAL,PARAMETER    ::   rbtdSV(0:nvgt) = (/0.000,0.961,0.961,      &
+     &      0.961,0.943,0.964,0.972,0.968,0.962,0.962,0.971,0.976,0.976/)
+
+!        /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
+
+                                                  ! Internal Plant      Resistance   [s]
+      REAL,PARAMETER    ::   pscdSV = 250.        ! Critical Leaf Water Potential    [m]
+      REAL,PARAMETER    ::   StxdSV = 5000.       ! maXimum  Stomatal   Resistance [s/m]
+      REAL,PARAMETER    ::   LAIdSV = 4.          ! maximum  LAI
+
+
+!C +--Soil
+!C +  ----
+
+      REAL,PARAMETER    ::   rcwdSV = 4.180e+6    ! Density * Water Specific Heat
+      REAL              ::   dz_dSV(-nsol:0)      ! Vertical  Discretization MARSV:
+                                                  !/0.72,0.20,0.060,0.019,0.001/ 
+                                                  ! Layer's Thickness
+      REAL              ::   zz_dSV               ! Soil      Thickness
+
+      INTEGER,PARAMETER ::   nsot=12
+      REAL,PARAMETER    ::   etadSV(0:nsot) = (/ 1.000,0.395,0.410,     &
+     &     0.435,0.485,0.451,0.420,0.477,0.476,0.426,0.492,0.482,0.001 /)      
+                                                  ! Water Content at Saturation  [m3/m3]
+
+      REAL,PARAMETER    ::   psidSV(0:nsot) = (/ 1.000,0.121,0.090,     &
+     &     0.218,0.786,0.478,0.299,0.356,0.630,0.153,0.490,0.405,0.001 /)
+                                                  ! Water Succion at Saturation      [m]
+
+      REAL,PARAMETER    ::   Ks_dSV(0:nsot) = (/ 0.e00, 176.0e-6,       &
+     &          156.3e-6,  34.1e-6,   7.2e-6,   7.0e-6,   6.3e-6,       &
+     &            1.7e-6,   2.5e-6,   2.2e-6,   1.0e-6,   1.3e-6,0.0e0 /)
+                                                  ! Hydraulic Conductivity
+                                                  !               at Saturation    [m/s]
+      REAL,PARAMETER    ::   bCHdSV(0:nsot) = (/ 1.00, 4.05, 4.38,      &
+     &      4.90, 5.30, 5.39, 7.12, 7.75, 8.52,10.40,10.40,11.40, 0.02 /)
+                                                  ! Clapp-Hornberger Coefficient b   [-]
+
+ !     etadSV,   psidSV,   Ks_dSV    bCHdSV  
+ !     /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 
+
+
+!C +--Water Bodies
+!C +  ------------
+
+      REAL,PARAMETER    ::   vK_dSV = 1000.       ! Diffusivity in Water          [m2/s]
+      REAL,PARAMETER    ::   TSIdSV = 0.50        ! Sea-Ice Fraction: SST Scale      [K]
+
+      INTEGER ::  ivg1,iso1  !rajout hjp for ini - check if ivg,iso is possible
+
+!
+
+END MODULE VARdSV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARlSV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARlSV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARlSV.F90	(revision 3330)
@@ -0,0 +1,11 @@
+MODULE VARlSV
+
+IMPLICIT NONE
+                                                                                
+! +  ==========                                                                 
+! +--MARlSV.inc                                                                 
+! +  ==========                                                                 
+                                                                                
+      LOGICAL :: iniIRs,iniOUT                           
+                                                                                
+END MODULE VARlSV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARphy.F90	(revision 3330)
@@ -0,0 +1,106 @@
+MODULE VARphy
+
+IMPLICIT NONE
+
+! MAR Constants
+                                                                              
+      CHARACTER(LEN=1), PARAMETER :: labnum(0:9) =                            &
+              (/'0','1','2','3','4','5','6','7','8','9'/)             
+!C +...                labnum: Alphanumeric Character                          
+                                                                               
+      INTEGER, PARAMETER ::  izr=0,iun=1                                             
+      REAL, PARAMETER    ::  zero = 0.0e+0, demi = 0.5e+0, unun = 1.0e+0,     &
+     &                       epsi = 1.0e-6, eps9 = 1.0e-9, eps12= 1.0e-12,    &
+     &                       third=1/3,     thous=1.e3             
+      REAL               ::  argmin,argmax      !hj valeurs??
+!C +...                    zero = 0.0e+0                                       
+!C +                            demi = 0.5e+0                                 
+!C +                                 unun = 1.0e+0                             
+!C +                                      epsi = 1.0e-6                        
+!C +                                           eps9 = 1.0e-9                   
+!C +                                                eps12= 1.0e-12             
+!C +                                                      third=1/3            
+!C +                                                            thous=1.e3     
+!C +                       argmin:        Function exp(x) Minimum Argument     
+!C +                              argmax: Function exp(x) Maximum Argument     
+!C +                                      (Min/Max are Machine Dependant)      
+                                                                              
+      REAL, PARAMETER    ::  pi = 3.141592653589793238462643e0,               &
+     &                       degrad = pi / 180.d0, hourad = pi /  12.d0 
+!C +...                pi    = 3.141592653589793238462643e0                   
+!C +                   degrad= pi / 180.d0                                     
+!C +                   hourad= pi /  12.d0                                    
+                                                                               
+      REAL, PARAMETER    ::  earthr = 6371.229e+3, earthv = 729.217e-7,       &
+     &                       gravit = 9.81e0,      gravi2 = gravit**2 ,       &
+     &                       grvinv = 1./gravit                       
+!C +...                earthr: Earth Radius                  =6371.d+3    m    
+!C +...                earthv: Earth Angular Velocity        = 7.29d-5  s-1   
+!C +                   gravit: Earth Gravity Acceleration    = 9.81    m/s2    
+!C +                   gravi2: idem (squared)                                  
+!C +                   grvinv: idem (inverse)                                  
+                                                                              
+      REAL, PARAMETER    ::  akmol = 1.35e-5, vonkar = 0.40e0, A_Turb = 5.8,  &
+     &                       AhTurb = 5.4,    AsTurb = 4.0,    r_Turb = 3.0            
+!C +...                akmol : Air Viscosity                 = 1.35d-5 m2/s   
+!C +                   vonkar: von Karman constant           = 0.4            
+!C +                   A_Turb: Stability  Coefficient Moment = 5.8             
+!C +                   AhTurb: Stability  Coefficient Heat   = 5.4             
+!C +                   AsTurb: Stability  Coefficient BLOW * = 4.0            
+!C +                   r_Turb: Turbulent Diffusivities Ratio K*/Km             
+                                                                              
+!      REAL    ::  RDryAi,cp,CvDrya,racv,cap,pcap,stefan,qv_MIN           
+      REAL, PARAMETER    ::  RDryAi=287.05967, ra=287.05967, cp=1004.708845,  &
+     &                       CvDrya=Cp-RDryAi, racv=RDryAi/CvDryA,            &
+     &                       cap=0.28586e0,    pcap=3.73010e0,                &
+     &                       stefan=5.67e-8,   qv_MIN=3.00e-6          
+      REAL, PARAMETER    ::  RVapor=461.e0,    epsq=3.00e-6, Lv_H2O=2.5008e+6,&
+     &                       Ls_H2O=2.8345e+6, r_LvCp=2490.04,r_LcCp=332.27,  &
+     &                       r_LsCp=2822.31            
+!C +...                RDryAi: perfect gas law constant for dry air (287 J/kg/K) 
+!C +                   ra    : perfect gas law constant for dry air (287 J/kg/K) 
+!C +                   cp    : dry air specific heat at constant p (1004 J/kg/K) 
+!C +                   CvDryA: dry air specific heat at constant V ( 717 J/kg/K) 
+!C +                   racv  = ra / cv      = ra /(cp-ra)                        
+!C +                   cap   = ra / cp                                           
+!C +                   pcap  = 100.[kPa]**cap                                    
+!C +...                RVapor: perfect gas law constant Water Vapor (461 J/kg/K) 
+!C +                   epsq  : Minimum Water Vapor Content    =    3.00d-6 kg/kg 
+!C +                   Lv_H2O: Latent Heat Vaporisation/Water = 2500.00d+3 J/kg  
+!C +                   Ls_H2O: Latent Heat Sublimation /Ice   = 2833.60d+3 J/kg  
+!C +                   r_LvCp [Lv=2500000J/kg]/[Cp=1004J/kg/K]= 2490.04    K/[kg/
+!C +                   r_LvCp [Lc= 333600J/kg]/[Cp=1004J/kg/K]=  332.27    K/[kg/
+!C +                   r_LvCp [Ls=2833600J/kg]/[Cp=1004J/kg/K]= 2822.31    K/[kg/
+!C +                   stefan: Stefan Constant                =    5.67d-8 W/m2/K
+!C +                   qv_MIN: Minimum Specific Humidity      =    3.00d-6 kg/kg 
+                                                                                
+      REAL, PARAMETER    ::  tfrwat=271.20e0,  siclf=302.00e6,cdsice=2.04e0,  &
+     &                       hic0=1.00e0, ro_Wat=1000.00e0, C__Wat=4186.00e0, &
+     &                       fracoh=0.75e0             
+!C +...                tfrwat: Sea-Water freezing Temperature =  271.20d+0 K     
+!C +                   siclf : Sea-Ice Heat of Fusion         =  302.00d+6 J/m3  
+!C +                   cdsice: Sea-Ice Thermal Conductivity   =    2.04d+0 W/mK  
+!C +                   hic0  : Sea-Ice Initial Thickness      =    2.00d+0 m     
+!C +                   ro_Wat: Density       of Water         = 1000.00d+0 kg/m3 
+!C +                   C__Wat: Heat Capacity of Water         = 4186.00d+0 J/kg/K
+!C +                   fracoh: 25% of cooling = Oceanic Heat Flux                
+!C +***                        (Hibler 1984)    (ANTARCTIC Ocean)                
+                                                                                
+      REAL, PARAMETER    ::  ro_Ice=920.e0, cdice=2.10e0                                 
+!C +...                ro_Ice:  Density      of Pure Ice       =  920.00d+0 kg/m3
+!C +                   cdice :  Conductivity of Pure Ice       =    2.51d+0 W/m/K
+                                                                                
+      REAL, PARAMETER    ::  TfSnow=273.15e+0,csnow=2105.00e+0,r0sno=3.00e+1, &
+     &                       blsno=3.30e+2,   Lf_H2O=3.337e+5                          
+!C +...                TfSnow:        Snow melting Temperature=  273.15d+0 K     
+!C +                    csnow:Heat Capacity of Snow             2105      J/kg/K 
+!C +                         (Loth et al. 1993, JGR 98 D6, 2.2.2 2e para p.10453)
+!C +                   r0sno : Fresh  Snow Density                50.00d+0 kg/m3 
+!C +                   blsno : Blowed Snow Density               330.00d+0 kg/m3 
+!C +                   Lf_H2O: Latent Heat of Fusion of Snow  =    3.34d+5 J/kg  
+
+! MAR Constants
+                      
+                                                                                
+
+END MODULE VARphy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARtSV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARtSV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARtSV.F90	(revision 3330)
@@ -0,0 +1,73 @@
+MODULE VARtSV
+
+USE VAR_SV, only : nsol, nsno, klonv
+
+IMPLICIT NONE
+! +
+      INTEGER, PARAMETER      ::   ntaver = 4
+! +
+      REAL,ALLOCATABLE,SAVE                ::   toicSV(:)    ! Snow to ice balance    
+!$OMP THREADPRIVATE(toicSV)
+
+      REAL,ALLOCATABLE,SAVE                ::   dz1_SV(:,:) ! "inverse" layer thicknes
+!$OMP THREADPRIVATE(dz1_SV)
+      REAL,ALLOCATABLE,SAVE                ::   dz2_SV(:,:) ! layer thickness
+!$OMP THREADPRIVATE(dz2_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   Tsf_SV  ! surface temperature !hj12032010
+!$OMP THREADPRIVATE(Tsf_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   TsfnSV  ! new surface temperature 
+!$OMP THREADPRIVATE(TsfnSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   AcoHSV, BcoHSV ! coefficients for Enthalpy
+!$OMP THREADPRIVATE(AcoHSV, BcoHSV)                             ! evolution,from atmosphere
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   AcoQSV, BcoQSV ! coefficients for Humidity
+!$OMP THREADPRIVATE( AcoQSV, BcoQSV)                            ! evolution,from atmosphere
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   ps__SV  ! surface pressure 
+!$OMP THREADPRIVATE(ps__SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   p1l_SV  ! 1st layer pressure 
+!$OMP THREADPRIVATE(p1l_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   cdH_SV  ! drag coeff Energy (?)
+!$OMP THREADPRIVATE(cdH_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE  ::   rsolSV  ! Radiation balance surface
+!$OMP THREADPRIVATE(rsolSV)
+      REAL,SAVE                            ::   lambSV  ! coefficient soil layers
+!$OMP THREADPRIVATE(lambSV)
+
+                                                                   ! #AW 
+      REAL, ALLOCATABLE,SAVE               ::   V__mem(:,:)                         
+!$OMP THREADPRIVATE(V__mem)                                        ! #AW
+      REAL, ALLOCATABLE,SAVE               ::   VVmmem(:)                              
+!$OMP THREADPRIVATE(VVmmem)                                        ! #AH 
+      REAL, ALLOCATABLE,SAVE               ::   T__mem(:,:)                           
+!$OMP THREADPRIVATE(T__mem)                                        ! #AH 
+      REAL, ALLOCATABLE,SAVE               ::   dTmmem(:)                             
+!$OMP THREADPRIVATE(dTmmem)
+        
+CONTAINS
+
+  SUBROUTINE INIT_VARtSV
+  IMPLICIT NONE
+  
+      ALLOCATE(toicSV(klonv))
+
+      ALLOCATE(dz1_SV(klonv,-nsol:nsno))     ! "inverse" layer thicknes
+      ALLOCATE(dz2_SV(klonv,-nsol:nsno))     ! layer thickness
+      ALLOCATE(Tsf_SV(klonv))                ! surface temperature !hj12032010
+      ALLOCATE(TsfnSV(klonv))                ! new surface temperature 
+      ALLOCATE(AcoHSV(klonv), BcoHSV(klonv)) ! coefficients for Enthalpy
+                                             ! evolution,from atmosphere
+      ALLOCATE(AcoQSV(klonv), BcoQSV(klonv)) ! coefficients for Humidity
+                                             ! evolution,from atmosphere
+      ALLOCATE(ps__SV(klonv))                ! surface pressure 
+      ALLOCATE(p1l_SV(klonv))                ! 1st layer pressure 
+      ALLOCATE(cdH_SV(klonv))                ! drag coeff Energy (?)
+      ALLOCATE(rsolSV(klonv))                ! Radiation balance surface
+
+                                                                   ! #AW
+      ALLOCATE(V__mem(klonv,ntaver))                               ! #AW
+      ALLOCATE(VVmmem(klonv))                                      ! #AH
+      ALLOCATE(T__mem(klonv,ntaver))                               ! #AH
+      ALLOCATE(dTmmem(klonv))
+  END SUBROUTINE INIT_VARtSV
+
+END MODULE VARtSV
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARxSV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARxSV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARxSV.F90	(revision 3330)
@@ -0,0 +1,365 @@
+MODULE VARxSV                      
+
+USE VAR_SV, only : klonv, nsol, nsno, nb_wri
+                                                          
+IMPLICIT NONE                                                                                
+! +--SISVAT INPUT        Variables                                              
+! +  -----------------------------                                              
+  
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   LSmask  ! Land-Sea   Mask                 
+!$OMP THREADPRIVATE(LSmask)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   isotSV  ! Soil       Type                 
+!$OMP THREADPRIVATE(isotSV)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   iWaFSV  ! Soil       Drainage:(1,0)=(y,n) 
+!$OMP THREADPRIVATE(iWaFSV)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   ivgtSV  ! Vegetation Type                 
+!$OMP THREADPRIVATE(ivgtSV)
+                                                                              
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   coszSV  ! Cosine of Sun zenithal Angle    
+!$OMP THREADPRIVATE(coszSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   sol_SV  ! Downward  Solar    Radiation    
+!$OMP THREADPRIVATE(sol_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   IRd_SV  ! Downward  Longwave Radiation    
+!$OMP THREADPRIVATE(IRd_SV)
+                                                                                
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   drr_SV  ! Rain  Intensity       [kg/m2/s] 
+!$OMP THREADPRIVATE(drr_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dsn_SV  ! Snow  Intensity       [kg/m2/s] 
+!$OMP THREADPRIVATE(dsn_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dsnbSV  ! Idem, fraction, from Drift  [-] 
+!$OMP THREADPRIVATE(dsnbSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   esnbSV  ! Idem, fraction, from Drift  [-]
+!$OMP THREADPRIVATE(esnbSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dbs_SV  ! Drift Amount            [kg/m2] 
+!$OMP THREADPRIVATE(dbs_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   BrosSV  ! Buffer Snow Layer Density
+!$OMP THREADPRIVATE(BrosSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   BG1sSV  ! Buffer Snow Layer Dendr/Sphe[-]
+!$OMP THREADPRIVATE(BG1sSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   BG2sSV  ! Buffer Snow Layer Spher/Size[-][0.0001m]
+!$OMP THREADPRIVATE(BG2sSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dz0_SV  ! dz0(Sastrugi dh)            [m] 
+!$OMP THREADPRIVATE(dz0_SV)
+                                                                               
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   cld_SV  ! Cloudiness (seen from SBL)      
+!$OMP THREADPRIVATE(cld_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   za__SV  ! SBL Height                      
+!$OMP THREADPRIVATE(za__SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   VV__SV  !(SBL Top)  Wind Velocity         
+!$OMP THREADPRIVATE(VV__SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   VVs_SV  !(Sastr,V)  Relevance
+!$OMP THREADPRIVATE(VVs_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   RRs_SV  !(Sastr,V)  Counter
+!$OMP THREADPRIVATE(RRs_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   DDs_SV  !(Sastr,V)  Angle
+!$OMP THREADPRIVATE(DDs_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   TaT_SV  ! SBL Top   Temperature           
+!$OMP THREADPRIVATE(TaT_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   ExnrSV  ! Exner     Potential             
+!$OMP THREADPRIVATE(ExnrSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dSdTSV  ! Sensible Heat Flux T Derivat.   
+!$OMP THREADPRIVATE(dSdTSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dLdTSV  ! Latent   Heat Flux T Derivat.   
+!$OMP THREADPRIVATE(dLdTSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   rhT_SV  ! SBL Top   Air  Density          
+!$OMP THREADPRIVATE(rhT_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   QaT_SV  ! SBL Top   Specific Humidity     
+!$OMP THREADPRIVATE(QaT_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   dQa_SV  ! SBL Flux  Limitation of Qa      
+!$OMP THREADPRIVATE(dQa_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   qsnoSV  ! SBL Mean  Snow       Content    
+!$OMP THREADPRIVATE(qsnoSV)
+                                                                            
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   LAI0SV  ! Nominal Leaf Area Index         
+!$OMP THREADPRIVATE(LAI0SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   glf0SV  ! Green   Leaf Fraction           
+!$OMP THREADPRIVATE(glf0SV)
+                                                                               
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   alb0SV  ! Soil    Albedo                  
+!$OMP THREADPRIVATE(alb0SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   slopSV  ! Snow/Ice/Soil-Water Surf. Slope 
+!$OMP THREADPRIVATE(slopSV)
+
+                                                              
+      REAL,SAVE                      ::   zSBLSV  ! SBL Height (Initial Value)      
+!$OMP THREADPRIVATE(zSBLSV)
+      REAL,SAVE                      ::   dt__SV  ! Time Step                       
+!$OMP THREADPRIVATE(dt__SV)
+      CHARACTER (len=18),SAVE        ::   daHost  ! Date Host Model                 
+!$OMP THREADPRIVATE(daHost)
+                                                                               
+                                                                               
+! +--SISVAT INPUT/OUTPUT Variables                                             
+! +  -----------------------------                                             
+                                                                               
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   isnoSV  ! Nb of Ice/Snow Layers           
+!$OMP THREADPRIVATE(isnoSV)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   ispiSV  ! Uppermost superimposed ice      
+!$OMP THREADPRIVATE(ispiSV)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   iiceSV  ! Nb of Ice      Layers           
+!$OMP THREADPRIVATE(iiceSV)
+      INTEGER ,ALLOCATABLE,SAVE    ::   istoSV(:,:)  ! Snow Layer     History          
+!$OMP THREADPRIVATE(istoSV)
+                                                                               
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   alb_SV  ! Surface-Canopy Albedo           
+!$OMP THREADPRIVATE(alb_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   emi_SV  ! Surface-Canopy Emissivity       
+!$OMP THREADPRIVATE(emi_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   IRs_SV  ! Soil           IR Flux          
+!$OMP THREADPRIVATE(IRs_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   LMO_SV  ! Monin-Obukhov  Scale            
+!$OMP THREADPRIVATE(LMO_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   us__SV  ! Friction       Velocity         
+!$OMP THREADPRIVATE(us__SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   uts_SV  ! Temperature Turbulent Scale     
+!$OMP THREADPRIVATE(uts_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   cutsSV  ! Temperature Turbulent Scale C.  
+!$OMP THREADPRIVATE(cutsSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   uqs_SV  ! Spec.Humid. Turbulent Scale     
+!$OMP THREADPRIVATE(uqs_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   uss_SV  ! Blow.Snow   Turbulent Scale     
+!$OMP THREADPRIVATE(uss_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   usthSV  ! Blowing Snow Erosion Thresh.    
+!$OMP THREADPRIVATE(usthSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   rCDmSV  ! Square  Root Contribut. Drag_m  
+!$OMP THREADPRIVATE(rCDmSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   rCDhSV  ! Square  Root Contribut. Drag_h  
+!$OMP THREADPRIVATE(rCDhSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0m_SV  ! Momentum     Roughness Length   
+!$OMP THREADPRIVATE(Z0m_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0mmSV  !  z0(Momentum,    Time Mean) [m] 
+!$OMP THREADPRIVATE(Z0mmSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0mnSV  !  z0(Momentum,    instanta.) [m] 
+!$OMP THREADPRIVATE(Z0mnSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0roSV  ! Subgrid Topo Roughness Length   
+!$OMP THREADPRIVATE(Z0roSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0SaSV  !  z0(Sastrugi  h)            [m] 
+!$OMP THREADPRIVATE(Z0SaSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0e_SV  !  z0(Snow eroded)            [m] 
+!$OMP THREADPRIVATE(Z0e_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0emSV  !  z0(Snow eroded, Time Mean) [m] 
+!$OMP THREADPRIVATE(Z0emSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0enSV  !  z0(Snow eroded, instanta.) [m] 
+!$OMP THREADPRIVATE(Z0enSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0h_SV  ! Heat         Roughness Length   
+!$OMP THREADPRIVATE(Z0h_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0hmSV  !  z0(Heat,        Time Mean) [m] 
+!$OMP THREADPRIVATE(Z0hmSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   Z0hnSV  !  z0(Heat,        instanta.) [m] 
+!$OMP THREADPRIVATE(Z0hnSV)
+                                                                          
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   snCaSV  ! Canopy  Snow   Thickness        
+!$OMP THREADPRIVATE(snCaSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   rrCaSV  ! Canopy  Water  Content          
+!$OMP THREADPRIVATE(rrCaSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   psivSV  ! Leaf    Water  Potential        
+!$OMP THREADPRIVATE(psivSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   TvegSV  ! Vegetation     Temperature      
+!$OMP THREADPRIVATE(TvegSV)
+                                                                        
+      REAL ,ALLOCATABLE,SAVE   ::   TsisSV(:,:)  ! Snow/Ice/Soil-Water Temperature 
+!$OMP THREADPRIVATE(TsisSV)
+      REAL ,ALLOCATABLE,SAVE   ::   ro__SV(:,:)  ! Snow/Ice/Soil-Water VolumicMass 
+!$OMP THREADPRIVATE(ro__SV)
+      REAL,ALLOCATABLE,SAVE    ::   eta_SV(:,:)  ! Snow/Ice/Soil     Water Content 
+!$OMP THREADPRIVATE(eta_SV)
+      REAL,ALLOCATABLE,SAVE    ::   G1snSV(:,:)  ! Snow Dendricity/Sphericity      
+!$OMP THREADPRIVATE(G1snSV)
+      REAL,ALLOCATABLE,SAVE    ::   G2snSV(:,:)  ! Snow Sphericity/Size            
+!$OMP THREADPRIVATE(G2snSV)
+      REAL,ALLOCATABLE,SAVE    ::   dzsnSV(:,:)  ! Snow Layer  Thickness           
+!$OMP THREADPRIVATE(dzsnSV)
+      REAL,ALLOCATABLE,SAVE    ::   agsnSV(:,:)  ! Snow Age                        
+!$OMP THREADPRIVATE(agsnSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   BufsSV  ! Snow Buffer Layer               
+!$OMP THREADPRIVATE(BufsSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   rusnSV  ! Surficial   Water               
+!$OMP THREADPRIVATE(rusnSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   SWf_SV  ! Normalized  Decay               
+!$OMP THREADPRIVATE(SWf_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   SWS_SV  ! Surficial Water Status          
+!$OMP THREADPRIVATE(SWS_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   HFraSV  ! Frazil      Thickness           
+!$OMP THREADPRIVATE(HFraSV)
+                                                                            
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   zWE_SV  ! Current   Snow Thickness [mmWE] 
+!$OMP THREADPRIVATE(zWE_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   zWEcSV  ! Compacted Snow Thickness [mmWE] 
+!$OMP THREADPRIVATE(zWEcSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   wem_SV  ! Only Melting             [mmWE] 
+!$OMP THREADPRIVATE(wem_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   wer_SV  ! Refreezing               [mmWE] 
+!$OMP THREADPRIVATE(wer_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   wes_SV  ! Sublimation              [mmWE] 
+!$OMP THREADPRIVATE(wes_SV)
+                                                                             
+                                                                              
+! +--SISVAT OUTPUT       Variables                                            
+! +  -----------------------------                                            
+                                                                               
+      INTEGER,DIMENSION(nb_wri),SAVE ::   no__SV  ! OUTPUT file Unit Number         
+!$OMP THREADPRIVATE(no__SV)
+      INTEGER,DIMENSION(nb_wri),SAVE ::   i___SV  ! OUTPUT point   i Coordinate    
+!$OMP THREADPRIVATE(i___SV)
+      INTEGER,DIMENSION(nb_wri),SAVE ::   j___SV  ! OUTPUT point   j Coordinate     
+!$OMP THREADPRIVATE(j___SV)
+      INTEGER,DIMENSION(nb_wri),SAVE ::   n___SV  ! OUTPUT point   n Coordinate     
+!$OMP THREADPRIVATE(n___SV)
+      INTEGER,DIMENSION(nb_wri),SAVE ::   lwriSV  ! OUTPUT point vec Index          
+!$OMP THREADPRIVATE(lwriSV)
+!                                                                              
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   ii__SV  ! WORK   point   i Coordinate     
+!$OMP THREADPRIVATE(ii__SV)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   jj__SV  ! WORK   point   j Coordinate     
+!$OMP THREADPRIVATE(jj__SV)
+      INTEGER, DIMENSION(:),ALLOCATABLE,SAVE ::   nn__SV  ! WORK   point   n Coordinate     
+!$OMP THREADPRIVATE(nn__SV)
+                                                                               
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   IRu_SV  ! UPward    IR Flux (effective)   
+!$OMP THREADPRIVATE(IRu_SV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   hSalSV  ! Saltating Layer Height          
+!$OMP THREADPRIVATE(hSalSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   qSalSV  ! Saltating Snow  Concentration   
+!$OMP THREADPRIVATE(qSalSV)
+      REAL, DIMENSION(:),ALLOCATABLE,SAVE    ::   RnofSV  ! RunOFF    Intensity             
+!$OMP THREADPRIVATE(RnofSV)
+                  
+CONTAINS
+
+
+
+  SUBROUTINE INIT_VARxSV
+  IMPLICIT NONE
+
+      INTEGER                                :: ikl
+
+      ALLOCATE(LSmask(klonv))  ! Land-Sea   Mask                 
+      ALLOCATE(isotSV(klonv))  ! Soil       Type                 
+      ALLOCATE(iWaFSV(klonv))  ! Soil       Drainage:(1,0)=(y,n) 
+      ALLOCATE(ivgtSV(klonv))  ! Vegetation Type                 
+                                                                              
+      ALLOCATE(coszSV(klonv))  ! Cosine of Sun zenithal Angle    
+      ALLOCATE(sol_SV(klonv))  ! Downward  Solar    Radiation    
+      ALLOCATE(IRd_SV(klonv))  ! Downward  Longwave Radiation    
+                                                                                
+      ALLOCATE(drr_SV(klonv))  ! Rain  Intensity       [kg/m2/s] 
+      ALLOCATE(dsn_SV(klonv))  ! Snow  Intensity       [kg/m2/s] 
+      ALLOCATE(dsnbSV(klonv))  ! Idem, from Drift        [kg/m2] 
+      ALLOCATE(esnbSV(klonv))  ! Idem, from Drift        [kg/m2] 
+      ALLOCATE(dbs_SV(klonv))  ! Drift Amount            [kg/m2] 
+      ALLOCATE(BrosSV(klonv))
+      ALLOCATE(BG1sSV(klonv))          
+      ALLOCATE(BG2sSV(klonv))
+      ALLOCATE(dz0_SV(klonv))  ! dz0(Sastrugi dh)            [m] 
+                                                                               
+      ALLOCATE(cld_SV(klonv))  ! Cloudiness (seen from SBL)      
+      ALLOCATE(za__SV(klonv))  ! SBL Height                      
+      ALLOCATE(VV__SV(klonv))  !(SBL Top)  Wind Velocity         
+      ALLOCATE(VVs_SV(klonv))
+      ALLOCATE(RRs_SV(klonv))
+      ALLOCATE(DDs_SV(klonv))
+      ALLOCATE(TaT_SV(klonv))  ! SBL Top   Temperature           
+      ALLOCATE(ExnrSV(klonv))  ! Exner     Potential             
+      ALLOCATE(dSdTSV(klonv))  ! Sensible Heat Flux T Derivat.   
+      ALLOCATE(dLdTSV(klonv))  ! Latent   Heat Flux T Derivat.   
+      ALLOCATE(rhT_SV(klonv))  ! SBL Top   Air  Density          
+      ALLOCATE(QaT_SV(klonv))  ! SBL Top   Specific Humidity     
+      ALLOCATE(dQa_SV(klonv))  ! SBL Flux  Limitation of Qa      
+      ALLOCATE(qsnoSV(klonv))  ! SBL Mean  Snow       Content    
+                                                                            
+      ALLOCATE(LAI0SV(klonv))  ! Nominal Leaf Area Index         
+      ALLOCATE(glf0SV(klonv))  ! Green   Leaf Fraction           
+                                                                               
+      ALLOCATE(alb0SV(klonv))  ! Soil    Albedo                  
+      ALLOCATE(slopSV(klonv))  ! Snow/Ice/Soil-Water Surf. Slope 
+
+                                                                               
+                                                                               
+! +--SISVAT INPUT/OUTPUT Variables                                             
+! +  -----------------------------                                             
+                                                                               
+      ALLOCATE(isnoSV(klonv))  ! Nb of Ice/Snow Layers           
+      ALLOCATE(ispiSV(klonv))  ! Uppermost superimposed ice      
+      ALLOCATE(iiceSV(klonv))  ! Nb of Ice      Layers           
+      ALLOCATE(istoSV(klonv,0:nsno))  ! Snow Layer     History          
+                                                                               
+      ALLOCATE(alb_SV(klonv))  ! Surface-Canopy Albedo           
+      ALLOCATE(emi_SV(klonv))  ! Surface-Canopy Emissivity       
+      ALLOCATE(IRs_SV(klonv))  ! Soil           IR Flux          
+      ALLOCATE(LMO_SV(klonv))  ! Monin-Obukhov  Scale            
+      ALLOCATE(us__SV(klonv))  ! Friction       Velocity         
+      ALLOCATE(uts_SV(klonv))  ! Temperature Turbulent Scale     
+      ALLOCATE(cutsSV(klonv))  ! Temperature Turbulent Scale C.  
+      ALLOCATE(uqs_SV(klonv))  ! Spec.Humid. Turbulent Scale     
+      ALLOCATE(uss_SV(klonv))  ! Blow.Snow   Turbulent Scale     
+      ALLOCATE(usthSV(klonv))  ! Blowing Snow Erosion Thresh.    
+      ALLOCATE(rCDmSV(klonv))  ! Square  Root Contribut. Drag_m  
+      ALLOCATE(rCDhSV(klonv))  ! Square  Root Contribut. Drag_h  
+      ALLOCATE(Z0m_SV(klonv))  ! Momentum     Roughness Length   
+      ALLOCATE(Z0mmSV(klonv))  !  z0(Momentum,    Time Mean) [m] 
+      ALLOCATE(Z0mnSV(klonv))  !  z0(Momentum,    instanta.) [m] 
+      ALLOCATE(Z0roSV(klonv))  ! Subgrid Topo Roughness Length   
+      ALLOCATE(Z0SaSV(klonv))  !  z0(Sastrugi  h)            [m] 
+      ALLOCATE(Z0e_SV(klonv))  !  z0(Snow eroded)            [m] 
+      ALLOCATE(Z0emSV(klonv))  !  z0(Snow eroded, Time Mean) [m] 
+      ALLOCATE(Z0enSV(klonv))  !  z0(Snow eroded, instanta.) [m] 
+      ALLOCATE(Z0h_SV(klonv))  ! Heat         Roughness Length   
+      ALLOCATE(Z0hmSV(klonv))  !  z0(Heat,        Time Mean) [m] 
+      ALLOCATE(Z0hnSV(klonv))  !  z0(Heat,        instanta.) [m] 
+                                                                          
+      ALLOCATE(snCaSV(klonv))  ! Canopy  Snow   Thickness        
+      ALLOCATE(rrCaSV(klonv))  ! Canopy  Water  Content          
+      ALLOCATE(psivSV(klonv))  ! Leaf    Water  Potential        
+      ALLOCATE(TvegSV(klonv)) ! Vegetation     Temperature      
+                                                                        
+      ALLOCATE(TsisSV(klonv,-nsol:nsno))  ! Snow/Ice/Soil-Water Temperature 
+      ALLOCATE(ro__SV(klonv,-nsol:nsno))  ! Snow/Ice/Soil-Water VolumicMass 
+      ALLOCATE(eta_SV(klonv,-nsol:nsno))  ! Snow/Ice/Soil     Water Content 
+      ALLOCATE(G1snSV(klonv,    0:nsno))  ! Snow Dendricity/Sphericity      
+      ALLOCATE(G2snSV(klonv,    0:nsno))  ! Snow Sphericity/Size            
+      ALLOCATE(dzsnSV(klonv,    0:nsno))  ! Snow Layer  Thickness           
+      ALLOCATE(agsnSV(klonv,    0:nsno))  ! Snow Age                        
+      ALLOCATE(BufsSV(klonv))  ! Snow Buffer Layer               
+      ALLOCATE(rusnSV(klonv))  ! Surficial   Water               
+      ALLOCATE(SWf_SV(klonv))  ! Normalized  Decay               
+      ALLOCATE(SWS_SV(klonv))  ! Surficial Water Status          
+      ALLOCATE(HFraSV(klonv))  ! Frazil      Thickness           
+                                                                            
+      ALLOCATE(zWE_SV(klonv))  ! Current   Snow Thickness [mmWE] 
+      ALLOCATE(zWEcSV(klonv))  ! Compacted Snow Thickness [mmWE] 
+      ALLOCATE(wem_SV(klonv)) ! Only Melting             [mmWE] 
+      ALLOCATE(wer_SV(klonv)) ! Refreezing               [mmWE] 
+      ALLOCATE(wes_SV(klonv))  ! Sublimation              [mmWE] 
+                                                                             
+                                                                              
+! +--SISVAT OUTPUT       Variables                                            
+! +  -----------------------------                                            
+                                                                               
+!                                                                              
+      ALLOCATE(ii__SV(klonv))  ! WORK   point   i Coordinate     
+      ALLOCATE(jj__SV(klonv))  ! WORK   point   j Coordinate     
+      ALLOCATE(nn__SV(klonv))  ! WORK   point   n Coordinate     
+                                                                               
+      ALLOCATE(IRu_SV(klonv))  ! UPward    IR Flux (effective)   
+      ALLOCATE(hSalSV(klonv))  ! Saltating Layer Height          
+      ALLOCATE(qSalSV(klonv))  ! Saltating Snow  Concentration   
+      ALLOCATE(RnofSV(klonv))  ! RunOFF    Intensity      
+
+      DO ikl=1,klonv        
+        LSmask(ikl)   = 0
+        isotSV(ikl)   = 0                
+        iWaFSV(ikl)   = 0 
+        ivgtSV(ikl)   = 0
+        isnoSV(ikl)   = 0  
+        ispiSV(ikl)   = 0
+        iiceSV(ikl)   = 0          
+        istoSV(ikl,:) = 0
+        ii__SV(ikl)   = 0
+        jj__SV(ikl)   = 0
+        nn__SV(ikl)   = 0 
+      END DO
+  END SUBROUTINE INIT_VARxSV
+
+
+                                               
+END MODULE VARxSV
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARySV.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARySV.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/VARySV.F90	(revision 3330)
@@ -0,0 +1,150 @@
+MODULE VARySV
+
+USE VAR_SV, only : klonv, nsol, nsno
+
+
+IMPLICIT NONE
+
+! +
+      INTEGER, DIMENSION(:),SAVE,ALLOCATABLE ::   NLaysv  ! New   Snow     Layer   Switch   
+!$OMP THREADPRIVATE(NLaysv)
+      INTEGER, DIMENSION(:),SAVE,ALLOCATABLE ::   i_thin  ! Index of the thinest Layer      
+!$OMP THREADPRIVATE(i_thin)
+      INTEGER, DIMENSION(:),SAVE,ALLOCATABLE ::   LIndsv  ! Contiguous Layer relative Index
+!$OMP THREADPRIVATE(LIndsv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   albisv  ! Integrated Surface Albedo
+!$OMP THREADPRIVATE(albisv)
+      !hj prelim                                            
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   alb1sv  ! Surface Albedo VIS      
+!$OMP THREADPRIVATE(alb1sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   alb2sv  ! Surface Albedo NIR      
+!$OMP THREADPRIVATE(alb2sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   alb3sv  ! Surface Albedo FIR      
+!$OMP THREADPRIVATE(alb3sv)
+
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   albssv  ! Soil               Albedo [-]   
+!$OMP THREADPRIVATE(albssv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   SoCasv  ! Canopy  Absorbed Solar Radiat.  
+!$OMP THREADPRIVATE(SoCasv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   SoSosv  !? Surface Absorbed Solar Radiat.  
+!$OMP THREADPRIVATE(SoSosv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   IRv_sv  ! Vegetation IR Flux  [W/m2]      
+!$OMP THREADPRIVATE(IRv_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Evg_sv  ! Emissivity of Vegetation+Snow   
+!$OMP THREADPRIVATE(Evg_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Eso_sv  !? Emissivity of       Soil+Snow   
+!$OMP THREADPRIVATE(Eso_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   tau_sv  ! Transmited Radiation Fraction   
+!$OMP THREADPRIVATE(tau_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   rrMxsv  ! Canopy Maximum Intercepted Rain 
+!$OMP THREADPRIVATE(rrMxsv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   LAIesv  ! effective LAI for transpirati.  
+!$OMP THREADPRIVATE(LAIesv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   LAI_sv  ! corrected LAI in case of snow   
+!$OMP THREADPRIVATE(LAI_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   glf_sv  ! Green  Leaf Fraction            
+!$OMP THREADPRIVATE(glf_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Sigmsv  ! Canopy Ventilation  Factor      
+!$OMP THREADPRIVATE(Sigmsv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   HSv_sv  ! Sensible Heat Flux  [W/m2]      
+!$OMP THREADPRIVATE(HSv_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   HLv_sv  ! Latent   Heat Flux  [W/m2]      
+!$OMP THREADPRIVATE(HLv_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   HSs_sv  !? Sensible Heat Flux (t)          
+!$OMP THREADPRIVATE(HSs_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   HLs_sv  !? Latent   Heat Flux (t)          
+!$OMP THREADPRIVATE(HLs_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   sqrCm0  ! in Neutral Drag Coef.Moment.    
+!$OMP THREADPRIVATE(sqrCm0)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   sqrCh0  ! in Neutral Drag Coef.Heat       
+!$OMP THREADPRIVATE(sqrCh0)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Lx_H2O  ! Latent Heat of Vaporiz./Sublim. 
+!$OMP THREADPRIVATE(Lx_H2O)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   ram_sv  ! Aerodyn.Resistance (Moment.)    
+!$OMP THREADPRIVATE(ram_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   rah_sv  ! Aerodyn.Resistance (Heat)       
+!$OMP THREADPRIVATE(rah_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Fh__sv  ! Stability Function              
+!$OMP THREADPRIVATE(Fh__sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   dFh_sv  ! Stability Function (Deriv.)     
+!$OMP THREADPRIVATE(dFh_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Evp_sv  !x Evaporation        [kg/m2]      
+!$OMP THREADPRIVATE(Evp_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   EvT_sv  !x Evapotranspiration [kg/m2]      
+!$OMP THREADPRIVATE(EvT_sv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   LSdzsv  ! Land/Sea Vert. Discretiz. Fact. 
+!$OMP THREADPRIVATE(LSdzsv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   Tsrfsv  ! Surface    Temperature          
+!$OMP THREADPRIVATE(Tsrfsv)
+      REAL,SAVE,ALLOCATABLE  ::   sEX_sv(:,:)  ! Verticaly Integr.Extinct.Coef.  
+!$OMP THREADPRIVATE(sEX_sv)
+      REAL,SAVE,ALLOCATABLE  ::   zzsnsv(:,:)    ! Snow  Pack Thickness      [m]   
+!$OMP THREADPRIVATE(zzsnsv)
+      REAL,SAVE,ALLOCATABLE  ::   psi_sv(:,:)    ! Soil   Water        Potential   
+!$OMP THREADPRIVATE(psi_sv)
+      REAL,SAVE,ALLOCATABLE  ::   Khydsv(:,:)    ! Soil   Hydraulic    Conductiv.  
+!$OMP THREADPRIVATE(Khydsv)
+      REAL,SAVE,ALLOCATABLE  ::   Rootsv(:,:)       ! Root Water Pump      [kg/m2/s]  
+!$OMP THREADPRIVATE(Rootsv)
+      REAL, DIMENSION(:),SAVE,ALLOCATABLE    ::   EExcsv  ! Energy in Excess, current       
+!$OMP THREADPRIVATE(EExcsv)
+
+CONTAINS
+  SUBROUTINE INIT_VARySV
+  IMPLICIT NONE
+      INTEGER                ::   ikl
+
+      ALLOCATE(NLaysv(klonv))  ! New   Snow     Layer   Switch   
+      ALLOCATE(i_thin(klonv))  ! Index of the thinest Layer      
+      ALLOCATE(LIndsv(klonv))  ! Contiguous Layer relative Index
+      ALLOCATE(albisv(klonv))  ! Integrated Surface Albedo
+      !hj prelim                                            
+      ALLOCATE(alb1sv(klonv))  ! Surface Albedo VIS      
+      ALLOCATE(alb2sv(klonv))  ! Surface Albedo NIR      
+      ALLOCATE(alb3sv(klonv))  ! Surface Albedo FIR       
+
+      !
+      ALLOCATE(albssv(klonv))  ! Soil               Albedo [-]   
+      ALLOCATE(SoCasv(klonv))  ! Canopy  Absorbed Solar Radiat.  
+      ALLOCATE(SoSosv(klonv))  !? Surface Absorbed Solar Radiat.  
+      ALLOCATE(IRv_sv(klonv))  ! Vegetation IR Flux  [W/m2]      
+      ALLOCATE(Evg_sv(klonv))  ! Emissivity of Vegetation+Snow   
+      ALLOCATE(Eso_sv(klonv))  !? Emissivity of       Soil+Snow   
+      ALLOCATE(tau_sv(klonv))  ! Transmited Radiation Fraction   
+      ALLOCATE(rrMxsv(klonv))  ! Canopy Maximum Intercepted Rain 
+      ALLOCATE(LAIesv(klonv))  ! effective LAI for transpirati.  
+      ALLOCATE(LAI_sv(klonv))  ! corrected LAI in case of snow   
+      ALLOCATE(glf_sv(klonv))  ! Green  Leaf Fraction            
+      ALLOCATE(Sigmsv(klonv))  ! Canopy Ventilation  Factor      
+      ALLOCATE(HSv_sv(klonv))  ! Sensible Heat Flux  [W/m2]      
+      ALLOCATE(HLv_sv(klonv))  ! Latent   Heat Flux  [W/m2]      
+      ALLOCATE(HSs_sv(klonv))  !? Sensible Heat Flux (t)          
+      ALLOCATE(HLs_sv(klonv))  !? Latent   Heat Flux (t)          
+      ALLOCATE(sqrCm0(klonv))  ! in Neutral Drag Coef.Moment.    
+      ALLOCATE(sqrCh0(klonv))  ! in Neutral Drag Coef.Heat       
+      ALLOCATE(Lx_H2O(klonv))  ! Latent Heat of Vaporiz./Sublim. 
+      ALLOCATE(ram_sv(klonv))  ! Aerodyn.Resistance (Moment.)    
+      ALLOCATE(rah_sv(klonv))  ! Aerodyn.Resistance (Heat)       
+      ALLOCATE(Fh__sv(klonv))  ! Stability Function              
+      ALLOCATE(dFh_sv(klonv))  ! Stability Function (Deriv.)     
+      ALLOCATE(Evp_sv(klonv))  !x Evaporation        [kg/m2]      
+      ALLOCATE(EvT_sv(klonv))  !x Evapotranspiration [kg/m2]      
+      ALLOCATE(LSdzsv(klonv))  ! Land/Sea Vert. Discretiz. Fact. 
+      ALLOCATE(Tsrfsv(klonv))  ! Surface    Temperature          
+      ALLOCATE(sEX_sv(klonv,-nsol:nsno+1))  ! Verticaly Integr.Extinct.Coef.  
+      ALLOCATE(zzsnsv(klonv,    0:nsno))    ! Snow  Pack Thickness      [m]   
+      ALLOCATE(psi_sv(klonv,-nsol:0   ))    ! Soil   Water        Potential   
+      ALLOCATE(Khydsv(klonv,-nsol:0   ))    ! Soil   Hydraulic    Conductiv.  
+      ALLOCATE(Rootsv(klonv,-nsol:0))       ! Root Water Pump      [kg/m2/s]  
+      ALLOCATE(EExcsv(klonv))  ! Energy in Excess, current         
+
+      DO ikl=1,klonv
+        NLaysv(ikl)   = 0
+        i_thin(ikl)   = 0
+        LIndsv(ikl)   = 0
+      END DO
+
+  END SUBROUTINE INIT_VARySV
+
+END MODULE VARySV
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/YOMCST_SISVAT.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/YOMCST_SISVAT.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/YOMCST_SISVAT.F90	(revision 3330)
@@ -0,0 +1,59 @@
+MODULE YOMCST_SISVAT
+
+IMPLICIT NONE
+                !
+! $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,PARAMETER :: RPI=3.141592653589793238462643e0,               &
+     &                  RCLUM=299792458.,   RHPLA=6.6260755E-34,        &
+     &                  RKBOL=1.380658E-23, RNAVO=6.0221367E+23
+
+! A1.1 Astronomical constants
+      REAL,PARAMETER :: RDAY=86400.,REA=149597870000.,REPSM=0.409093,   &
+     &        RSIYEA=365.25*RDAY*2.*RPI/6.283076,                       &
+     &        RSIDAY=RDAY/(1.+RDAY/RSIYEA), ROMEGA=2.*RPI/RSIDAY
+
+! A1.1.bis Constantes concernant l'orbite de la Terre:
+      REAL,PARAMETER :: R_ecc=0.016715,R_peri=102.7,R_incl=23.441
+
+! A1.2 Geoide
+      REAL,PARAMETER :: RG=9.80665, RA=6371229.,R1SA=1.D0/RA
+
+! A1.3 Radiation
+      REAL,PARAMETER :: RSIGMA = 2.*RPI**5 * (RKBOL/RHPLA)**3           &
+     &                   * RKBOL/RCLUM/RCLUM/15.
+!     REAL RSIGMA,RI0
+
+! A1.4 Thermodynamic gas phase
+      REAL,PARAMETER :: R=RNAVO*RKBOL, RMD=28.9644,    RMO3=47.9942,    &
+     &                  RMV=18.0153,   RD=1000.*R/RMD, RV=1000.*R/RMV,  &
+     &                  RCPD=3.5*RD,   RCVD=RCPD-RD,   RCPV=4. *RV,     &
+     &                  RCVV=RCPV-RV,  RKAPPA=RD/RCPD, RETV=RV/RD-1.
+! A1.5,6 Thermodynamic liquid,solid phases
+      REAL,PARAMETER :: RCW=RCPV,      RCS=RCPV
+
+! A1.7 Thermodynamic transition of phase
+      REAL,PARAMETER :: RTT=273.16,    RLVTT=2.5008E+6,RLSTT=2.8345E+6, &
+     &                  RLMLT=RLSTT-RLVTT,             RATM=100000.
+
+! A1.8 Curve of saturation
+      REAL,PARAMETER :: RESTT=611.14,  RGAMW=(RCW-RCPV)/RV,             &
+     &                  RBETW=RLVTT/RV+RGAMW*RTT,                       & 
+     &                  RGAMS=(RCS-RCPV)/RV,                            &    
+     &                  RBETS=RLSTT/RV+RGAMS*RTT,                       &  
+     &                  RGAMD=RGAMS-RGAMW, RBETD=RBETS-RBETW
+      REAL           :: RALPW,RALPS,RALPD
+
+!      RALPW = LOG(RESTT)+RBETW/RTT+RGAMW*LOG(RTT) 
+!      RALPS = LOG(RESTT)+RBETS/RTT+RGAMS*LOG(RTT) 
+!      RALPD = RALPS-RALPW 
+   
+
+END MODULE YOMCST_SISVAT
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/sisvat.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/sisvat.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/sisvat.F	(revision 3330)
@@ -0,0 +1,10186 @@
+      subroutine SISVAT(SnoMod,BloMod,jjtime)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT                               Mon 04-Apr-2011  MAR |
+!     SubRoutine SISVAT contains the fortran 77 code of the                |
+!                Soil/Ice Snow Vegetation Atmosphere Transfer Scheme       |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!     PARAMETERS:  klonv: 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                            [-] |
+!              slopSV   : Surface    Slope                             [-] |
+!              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 -nsol,-nsol+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] |
+!              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          |
+!     #GL: 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       |
+!     #OR: SBL: Orography Roughness included from SL_z0 in MARdom          |
+!     #ZS: SBL: Mom.: Roughn.Length= F(u*) Wang  MWR 129     ,  Sea        |
+!     #TZ: SBL: Mom.: Roughn.Length= Typical value in polar models         |
+!     #SZ: SBL: Mom.: Roughn.Length= F(u*) Andreas &al.(1995)  Snow        |
+!     #ZA: SBL: Mom.: Roughn.Length= F(u*) Andreas &al.(2004), Snow        |
+!     #za: SBL: Mom.: Roughn.Length= F(u*) Andreas &al.(2004), Snow (native|
+!     #RN: SBL: Heat: Roughn.Length= F(u*,z0)  Andreas (1987)  Snow        |
+!     #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:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #zs: SBL: Mom.: Roughn.Length= F(u*) Wang  MWR 129 bis ,  Sea        |
+!     #ZN: SBL: Mom.: Roughn.Length= F(u*) Shao  & Lin (1999), Snow        |
+!     #CM: 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                   |
+!                          |      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  PHY_SV
+
+      USE VAR_SV
+      USE VARlSV
+      USE VARdSV
+      USE VAR0SV
+      USE VARxSV
+      USE VARdCP
+
+      USE VARySV
+
+      IMPLICIT NONE
+
+      logical   SnoMod
+      logical   BloMod
+      integer   jjtime
+
+
+! Internal Variables
+! ==================
+
+! Non Local
+! ---------
+
+      real      TBr_sv(klonv)                 ! Brightness Temperature
+      real      IRdwsv(klonv)                 ! DOWNward   IR Flux
+      real      IRupsv(klonv)                 ! UPward     IR Flux
+      real      d_Bufs,Bufs_N                 ! Buffer Snow Layer Increment
+      real      Buf_ro,Bros_N                 ! Buffer Snow Layer Density
+c #NP real      BufPro,VV__10                 ! Buffer Snow Layer Density
+      real      Buf_G1,BG1__N                 ! Buffer Snow Layer Dendr/Sphe[-]
+      real      Buf_G2,BG2__N                 ! Buffer Snow Layer Spher/Size[-]
+      real      Bdzssv(klonv)                 ! Buffer Snow Layer Thickness
+      real      z_snsv(klonv)                 ! Snow-Ice, current Thickness
+
+! Energy         Budget
+! ~~~~~~~~~~~~~~~~~~~~~
+! #e1 real      ETVg_d(klonv)                 ! VegetationPower, Forcing
+! #e1 real      ETSo_0(klonv)                 ! Soil/Snow Power, before Forcing
+! #e1 real      ETSo_1(klonv)                 ! Soil/Snow Power, after  Forcing
+! #e1 real      ETSo_d(klonv)                 ! Soil/Snow Power, Forcing
+! #e1 real      EqSn_0(klonv)                 ! Snow Energy, befor Phase Change
+! #e1 real      EqSn_1(klonv)                 ! Snow Energy, after Phase Change
+! #e1 real      EqSn_d(klonv)                 ! Energy in Excess
+
+! OUTPUT/Verification: H2O    Conservation
+! #m0 real      Wats_0(klonv)                 ! Soil Water,  before Forcing
+! #m0 real      Wats_1(klonv)                 ! Soil Water,  after  Forcing
+! #m0 real      Wats_d(klonv)                 ! Soil Water,         Forcing
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1 real      SIsubl(klonv)                 ! Snow Sublimed/Deposed Mass
+! #m1 real      SImelt(klonv)                 ! Snow Melted           Mass
+! #m1 real      SIrnof(klonv)                 ! Local Surficial Water + Run OFF
+
+! OUTPUT/Verification: SeaIce Conservation
+! #m2 real      SIvAcr(klonv)                 ! Sea-Ice      Vertical Acretion
+
+
+! Local
+! -----
+
+c #MT logical      Garrat                     ! SBL     Scheme    Switch
+      character* 1 SepLab                     ! OUTPUT ASCII File Labels
+      character* 6 FilLab                     !
+      character*16 FilNam                     !
+      common/SISVAT_loc_abc/SepLab,FilLab     !
+
+      integer               noUNIT            ! OUTPUT File  Unit Number
+      integer               nwUNIT            ! OUTPUT File  Unit Number (New)
+      common/SISVAT_loc_num/nwUNIT            !
+
+      integer   iwr
+      integer   ikl   ,isn   ,isl   ,ist      !
+      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,IcIndx(klonv)          !      Ice / No      Ice Mask
+      integer   SnoMsk                        ! Snow     / No Snow     Mask
+
+      real      drr_Ca,rrCa_n,drip            ! Rain Contribution to the Canopy
+      real      dsn_Ca,snCa_n,FallOK(klonv)   ! Snow Contribution to the Canopy
+      real      roSMin,roSn_1,roSn_2,roSn_3   ! Fallen Snow Density (PAHAUT)
+      real      Dendr1,Dendr2,Dendr3          ! Fallen Snow Dendric.(GIRAUD)
+      real      Spher1,Spher2,Spher3,Spher4   ! Fallen Snow Spheric.(GIRAUD)
+      real      Polair                        ! Polar  Snow Switch
+      real      PorSno,Por_BS,Salt_f,PorRef   !
+c #sw real      PorVol,rWater                 !
+c #sw real      rusNEW,rdzNEW,etaNEW          !
+      real      ro_new                        !
+      real      TaPole                        ! Maximum     Polar Temperature
+      real      T__Min                        ! Minimum realistic Temperature
+
+      real      EmiVeg                        ! Emissivity of Vegetation 
+      real      EmiSol                        ! Emissivity of       Soil
+      real      EmiSno                        ! Emissivity of            Snow
+      real      EmiWat                        ! Emissivity of a Water Area
+      real      vk2                           ! Square of Von Karman Constant
+      real      u2star                        !(u*)**2
+      real      fallen                        ! Fallen   Leaves         Switch
+      real      Z0mSea,Z0hSea                 !          Sea  Roughness Length
+      real      Z0mLnd                        !          Land Roughness Length
+c #ZN real      sqrrZ0                        ! u*t/u*
+      real      f_eff                         ! Marticorena & B. 1995 JGR (20)
+      real      A_Fact                        ! Fundamental * Roughness
+      real      Z0m_nu                        ! Smooth R Snow Roughness Length
+      real      Z0mBSn                        !         BSnow Roughness Length
+      real      Z0mBS0                        ! Mimimum BSnow Roughness Length
+      real      Z0m_S0                        ! Mimimum  Snow Roughness Length
+      real      Z0m_S1                        ! Maximum  Snow Roughness Length
+c #SZ real      Z0Sa_N                        ! Regime   Snow Roughness Length
+c #SZ real      Z0SaSi                        ! 1.IF Rgm Snow Roughness Length 
+c #GL real      Z0_GIM                        ! Mimimum GIMEX Roughness Length
+      real      Z0_ICE                        ! Sea-Ice ISW   Roughness Length
+      real      Z0m_Sn,Z0m_90                 ! Snow  Surface Roughness Length
+      real      SnoWat                        ! Snow Layer    Switch
+c #RN real      rstar,alors                   !
+c #RN real      rstar0,rstar1,rstar2          !
+      real      SameOK                        ! 1. => Same Type of Grains
+      real      G1same                        ! Averaged G1,  same Grains
+      real      G2same                        ! Averaged G2,  same Grains
+      real      typ__1                        ! 1. => Lay1 Type: Dendritic
+      real      zroNEW                        ! dz X ro, if fresh Snow
+      real      G1_NEW                        ! G1,      if fresh Snow
+      real      G2_NEW                        ! G2,      if fresh Snow
+      real      zroOLD                        ! dz X ro, if old   Snow
+      real      G1_OLD                        ! G1,      if old   Snow
+      real      G2_OLD                        ! G2,      if old   Snow
+      real      SizNEW                        ! Size,    if fresh Snow
+      real      SphNEW                        ! Spheric.,if fresh Snow
+      real      SizOLD                        ! Size,    if old   Snow
+      real      SphOLD                        ! Spheric.,if old   Snow
+      real      Siz_av                        ! Averaged    Grain Size
+      real      Sph_av                        ! Averaged    Grain Spher.
+      real      Den_av                        ! Averaged    Grain Dendr.
+      real      DendOK                        ! 1. => Average is  Dendr.
+      real      G1diff                        ! Averaged G1, diff. Grains
+      real      G2diff                        ! Averaged G2, diff. Grains
+      real      G1                            ! Averaged G1
+      real      G2                            ! Averaged G2
+
+! Energy       Budget
+! ~~~~~~~~~~~~~~~~~~~
+! #e1 integer             noEBal              ! Energy Imbalances Counter
+! #e1 common/SISVAT__EBal/noEBal              !
+! #e1 real        Enrsvd(klonv)               ! Soil+Vegetat  Power  Forcing
+! #e1 real        EnsBal                      ! Soil+Snow   , Power  Balance
+! #e1 real        EnvBal                      !      Vegetat, Power  Balance
+
+! OUTPUT/Verification: H2O    Conservation
+! #m0 integer             noWBal              ! Water  Imbalances Counter
+! #m0 common/SISVAT__WBal/noWBal              !
+! #m0 real        Watsv0(klonv)               ! Soil+Vegetat, before Forcing
+! #m0 real        Watsvd(klonv)               ! Soil+Vegetat  Water  Forcing
+! #m0 real        Watbal                      ! Soil+Vegetat, Water  Balance
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1 integer             noSBal              ! Water  Imbalances Counter
+! #m1 common/SISVAT__SBal/noSBal              !
+! #m1 real        SIWm_0(klonv),SIWm_1(klonv) ! Snow Initial/Final        Mass
+! #m1 real        SIWa_i(klonv),SIWa_f(klonv) ! Snow Initial/Final ATM Forcing
+! #m1 real        SIWe_i(klonv),SIWe_f(klonv) ! Snow Initial/Final BLS Forcing
+! #m1 real        SnoBal                      ! Snow Pack     Mass   Balance
+
+
+! Internal DATA
+! =============
+
+c #MT data      Garrat /.true. /              ! SBL     Scheme    Switch
+      data      T__Min / 200.00/              ! Minimum realistic Temperature
+      data      TaPole / 263.15/              ! Maximum Polar     Temperature
+      data      roSMin /  30.  /              ! Minimum Snow  Density
+      data      roSn_1 / 109.  /              ! Fall.Sno.Density, Indep. Param.
+      data      roSn_2 /   6.  /              ! Fall.Sno.Density, Temper.Param.
+      data      roSn_3 /  26.  /              ! Fall.Sno.Density, Wind   Param.
+      data      Dendr1 /  17.12/              ! Fall.Sno.Dendric.,Wind 1/Param.
+      data      Dendr2 / 128.  /              ! Fall.Sno.Dendric.,Wind 2/Param.
+      data      Dendr3 / -20.  /              ! Fall.Sno.Dendric.,Indep. Param.
+      data      Spher1 /   7.87/              ! Fall.Sno.Spheric.,Wind 1/Param.
+      data      Spher2 /  38.  /              ! Fall.Sno.Spheric.,Wind 2/Param.
+      data      Spher3 /  50.  /              ! Fall.Sno.Spheric.,Wind 3/Param.
+      data      Spher4 /  90.  /              ! Fall.Sno.Spheric.,Indep. Param.
+      data      EmiSol /   0.99999999/        ! 0.94Emissivity of Soil
+      data      EmiVeg /   0.99999999/        ! 0.98Emissivity of Vegetation
+      data      EmiWat /   0.99999999/        ! Emissivity of a Water Area
+      data      EmiSno /   0.99999999/        ! Emissivity of Snow
+!     DATA      Emissivities                  ! Pielke, 1984, pp. 383,409
+
+      data      fallen /   0.    /            ! Fallen  Leaves         Switch
+      data      Z0mBS0 /   0.5e-6/            ! MINimum Snow Roughness Length 
+                                              ! for Momentum if Blowing Snow
+                                              ! Gall?e et al. 2001 BLM 99 (19)
+      data      Z0m_S0/    0.00005/           ! MINimum Snow Roughness Length
+c #MG data      Z0m_S0/    0.00200/           ! MINimum Snow Roughness Length
+                                              ! MegaDunes    included
+      data      Z0m_S1/    0.030  /           ! MAXimum Snow Roughness Length
+                                              !        (Sastrugis)
+c #GL data      Z0_GIM/    0.0013/            ! Ice Min Z0 = 0.0013 m (Broeke)
+!                                             ! Old Ice Z0 = 0.0500 m (Bruce)
+!                                             !              0.0500 m (Smeets)
+!                                             !              0.1200 m (Broeke)
+      data      Z0_ICE/    0.0010/            ! Sea-Ice Z0 = 0.0010 m (Andreas)
+!                                             !    (Ice Station Weddel -- ISW)
+      vk2    =  vonKrm  *  vonKrm             ! Square of Von Karman Constant
+c #FL fallen =             1.                 ! Fallen  Leaves         Switch
+
+
+! BEGIN.main.
+! SISVAT Forcing VERIFICATION
+! ===========================
+
+      IF (.not.iniOUT)                                              THEN
+               iniOUT = .true.
+        IF (IRs_SV(1).gt.-eps6)
+     .  write(6,600) 
+ 600    format(/,'### SISVAT ERROR, Soil IR Upward  not defined ###',
+     .         /,'###               Initialize and Store IRs_SV ###')
+        IF (IRs_SV(1).gt.-eps6) THEN
+          write(*,*)'ikl',ikl,'IR',IRs_SV(ikl)
+
+          IRs_SV(ikl)=-IRs_SV(ikl)
+          isn= isnoSV(ikl)
+          write(*,*) isnoSV(ikl),TsisSV(ikl,isn),dzsnSV(ikl,isn) 
+        ENDIF
+
+! OUTPUT
+! ======
+
+                    FilLab              ='SISVAT'
+                    SepLab              ='_'
+                    nwUNIT              = 51
+      END IF
+
+c #E0 DO ikl=1,knonv
+c #E0   IF   (lwriSV(ikl).ne.0.AND.no__SV(lwriSV(ikl)).eq.0)        THEN 
+c #E0                nwUNIT              = nwUNIT+1
+c #E0                no__SV(lwriSV(ikl)) = nwUNIT
+c #E0      write(FilNam,'(a6,a1,2(i3.3,a1),i1)')
+c #E0.           FilLab,SepLab,i___SV(lwriSV(ikl)),
+c #E0.                  SepLab,j___SV(lwriSV(ikl)),
+c #E0.                  SepLab,n___SV(lwriSV(ikl))
+c #E0      open(unit=nwUNIT,status='unknown',file=FilNam)
+c #E0      rewind    nwUNIT
+c #E0   END IF
+c #E0 END DO
+
+c #E0 DO ikl=1,knonv
+c #E0   IF (lwriSV(ikl).ne.0)                                       THEN 
+c #E0           noUNIT=no__SV(lwriSV(ikl)) 
+c #E0     write(noUNIT,5000) daHost,i___SV(lwriSV(ikl)),
+c #E0.                              j___SV(lwriSV(ikl)),
+c #E0.                              n___SV(lwriSV(ikl)),
+c #E0.                                     Z0m_SV(ikl) ,
+c #E0.                                     albisv(ikl)
+ 5000     format(
+     .       /,              a18,'|           Grid Point ',2i4,
+     .                                           ' (',i2,')',
+     .         '    | Z0m =',f12.6,' | Albedo = ',f6.3,' |',
+     .       /,' -------+',7('---------+'),2('--------+'))
+c #E0   END IF
+c #E0 END DO
+
+
+! "Soil" Humidity of Water Bodies
+! ===============================
+
+      DO ikl=1,knonv
+          ist    =      isotSV(ikl)                       ! Soil Type
+          ist__s =  min(ist, 1)                           ! 1 => Soil
+          ist__w =  1 - ist__s                            ! 1 => Water Body
+        DO isl=-nsol,0
+          eta_SV(ikl,isl) = eta_SV(ikl,isl) * ist__s      ! Soil 
+     .                    + etadSV(ist)     * ist__w      ! Water Body
+        END DO
+
+
+! Vertical Discretization Factor
+! ==============================
+
+          LSdzsv(ikl)     =                   ist__s      ! Soil
+     .                    + OcndSV          * ist__w      ! Water Body
+      END DO
+
+
+! Vegetation Temperature Limits
+! =============================
+
+          DO ikl=1,knonv
+            TvegSV(ikl) = max(TvegSV(ikl),T__Min)         ! T__Min = 200.K
+
+
+! LAI Assignation and Fallen Leaves Correction (#FL)
+! ==================================================
+
+            LAI0SV(ikl) =     LAI0SV(ikl)*min(1,ivgtSV(ikl)) ! NO LAI if 
+!                                                            ! no vegetation
+            glf_sv(ikl) =     glf0SV(ikl)
+c #FL       glf_sv(ikl) =     1.
+            LAI_sv(ikl) =     LAI0SV(ikl)
+c #FL.               *        glf0SV(ikl) 
+          END DO
+
+
+! LAI in Presence of Snow
+! =======================
+
+!         ASSUMPTION: LAI decreases   when Snow Thickness increases, 
+!         ^^^^^^^^^^      becoming  0 when Snow Thickn. = Displac.Height
+          DO ikl=1,knonv
+            LAI_sv(ikl) =     LAI_sv(ikl)
+     .               * (1.0 - zzsnsv(       ikl, isnoSV(ikl))
+     .                      /(DH_dSV(ivgtSV(ikl))+eps6)      )
+            LAI_sv(ikl) = max(LAI_sv(ikl),zer0)
+            LAI_sv(ikl) = min(LAI_sv(ikl),ea_Max)
+          END DO
+
+
+! Interception of Rain by the Canopy
+! ==================================
+
+! OUTPUT/Verification: H2O    Conservation: Vegetation Forcing
+! #m0     DO ikl=1,knonv
+! #m0       Watsv0(ikl) =      rrCaSV(ikl)           ! Canopy Water Cont.
+! #m0       Watsvd(ikl) =      drr_SV(ikl)           ! Precipitation
+! #m0     END DO
+
+
+! New Canopy Water Content
+! ------------------------
+
+          DO ikl=1,knonv
+            rrMxsv(ikl) = 0.2*max( eps6,LAI_sv(ikl)) ! Precip. Max. Intercept.
+            Sigmsv(ikl) = 1.0-exp(-half*LAI_sv(ikl)) ! Canopy Ventilation Coe.
+!                                                    ! (DR97, eqn 3.6)
+            drr_Ca      = drr_SV(ikl)  *Sigmsv(ikl)  ! Intercepted Rain
+     .                                 *dt__SV       !
+            rrCa_n      = rrCaSV(ikl)  +drr_Ca       ! New Canopy Water Contnt
+                                                     ! (DR97, eqn 3.28)
+            drip        = rrCa_n       -rrMxsv(ikl)  ! Water  Drip
+            drip        =      max(zer0,drip)        !
+            rrCa_n      = rrCa_n       -drip         !
+            drr_SV(ikl) = drr_SV(ikl) +(rrCaSV(ikl)  ! Update Rain  Contribut.
+     .                                 -rrCa_n     ) !
+     .                                 /dt__SV       !
+            rrCaSV(ikl) = rrCa_n                     ! Upd.Canopy Water Contnt
+
+
+! Interception of Snow by the Canopy
+! ==================================
+
+            dsn_Ca      = dsn_SV(ikl)  *Sigmsv(ikl)  ! Intercepted Snow
+     .                                 *dt__SV       !
+            snCa_n      = snCaSV(ikl)  +dsn_Ca       ! New Canopy Snow Thickn.
+            drip        = snCa_n       -rrMxsv(ikl)  !
+            drip        =      max(zer0,drip)        !
+            snCa_n      = snCa_n       -drip         !
+            dsn_SV(ikl) = dsn_SV(ikl) +(snCaSV(ikl)  ! Update Snow  Contribut.
+     .                                 -snCa_n     ) ! 
+     .                                 /dt__SV       !
+            snCaSV(ikl) = snCa_n                     ! Upd.Canopy Snow Thickn.
+          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,knonv
+            FallOK(ikl) =  max(zer0,sign(un_1,TvegSV(ikl)-Tf_Sno+eps6))
+     .                  *  max(zer0,sign(un_1,snCaSV(ikl)       -eps6))
+            dsn_SV(ikl) =      dsn_SV(ikl)   +snCaSV(ikl)*FallOK(ikl) 
+     .                                       /dt__SV
+            snCaSV(ikl) =      snCaSV(ikl) * (1.         -FallOK(ikl))
+
+
+! Blowing Particles Threshold Friction velocity
+! =============================================
+
+c #AE       usthSV(ikl) =                     1.0e+2
+          END DO
+
+
+! Contribution of Snow to the Surface Snow Pack
+! =============================================
+
+      IF (SnoMod)                                                 THEN
+
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1   DO ikl=1,knonv
+! #m1     SIWa_i(ikl) =(drr_SV(ikl) + dsn_SV(ikl))   *dt__SV         ![mm w.e.]
+! #m1     SIWe_i(ikl) = dbs_SV(ikl)                                  !
+! #m1     SIWm_0(ikl) = BufsSV(ikl) + HFraSV(ikl)    *rhoIce         !
+! #m1   DO isn=1,nsno                                                !
+! #m1     SIWm_0(ikl) = SIWm_0(ikl) + dzsnSV(ikl,isn)*ro__SV(ikl,isn)!
+! #m1   END DO                                                       !
+! #m1   END DO                                                       !
+
+
+! Blowing Snow
+! ------------
+
+!                         **********
+c #SN   IF (BloMod)  call SISVAT_BSn(BloMod)
+!                         **********
+
+!                         **********
+! #ve                call SISVAT_wEq('_BSn  ',1)
+!                         **********
+
+
+! Sea Ice
+! -------
+
+!            **********
+c #SI   call SISVAT_SIc
+! #m2.                 (SIvAcr)
+!            **********
+
+!            **********
+! #ve   call SISVAT_wEq('_SIc  ',0)
+!            **********
+
+
+! Buffer Layer
+! ------------
+
+          DO ikl=1,knonv
+            BufsSV(ikl) =      BufsSV(ikl)              !     [mm w.e.]
+            d_Bufs      =  max(dsn_SV(ikl) *dt__SV,0.)  ! i.e., [kg/m2]
+            dsn_SV(ikl) =      0.                       !
+            Bufs_N      =      BufsSV(ikl) +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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #s0.          nn__SV(ikl).EQ.nwr_SV)
+! #s0.      write(6,6601)      BufsSV(ikl) ,d_Bufs,Bufs_N
+ 6601       format(/,'Buffer *: ',3e15.6)
+ 
+! Snow Density
+! ^^^^^^^^^^^^
+            Polair      =      0.00
+c #NP       Polair      =  max(zer0,                    !
+c #NP.                         sign(un_1,TaPole         !
+c #NP.                                  -TaT_SV(ikl)))  !
+            Buf_ro      =  max( rosMin,                 ! Fallen Snow Density
+     .      roSn_1+roSn_2*     (TaT_SV(ikl)-Tf_Sno)     ! [kg/m3]
+     .            +roSn_3*sqrt( VV__SV(ikl)))           ! Pahaut    (CEN)
+c #NP       VV__10      =       VV__SV(ikl)             !
+c #NP.         *log(10.        /Z0m_SV(ikl))            !
+c #NP.         /log(za__SV(ikl)/Z0m_SV(ikl))            !
+c #NP       BufPro      =  max( rosMin,                 ! Fallen Snow Density
+c #NP.         104. *sqrt( max( VV__10  -   6.0,0.0)))  ! Kotlyakov (1961)
+            Bros_N      = (1. - Polair) *   Buf_ro      ! Temperate Snow
+c #NP.                        + Polair  *   BufPro      ! Polar     Snow
+ 
+! Instantaneous Density of deposited blown Snow (de Montmollin, 1978)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #BS       PorSno =      1.0d00     -  BSnoRo
+c #BS.                               /  rhoIce
+c #BS       Salt_f =      usthSV(ikl)/  max(eps6,   us__SV(ikl))
+c #BS       Salt_f =  min(Salt_f     ,  un_1)
+c #BS       PorRef =      PorSno     /  max(eps6,1.-PorSno)
+c #BS.               +log(Salt_f)
+c #BS       Por_BS =      PorRef     /          (1.+PorRef)
+c #BS       ro_new =      rhoIce     *          (1.-Por_BS)
+c #BS       ro_new =  max(ro_new     ,  BSnoRo)
+c #BS       Bros_N      = Bros_N     * (1.0-dsnbSV(ikl))
+c #BS.                  + ro_new     *      dsnbSV(ikl)
+ 
+! Instantaneous Density IF deposited blown Snow (Melted* from Canopy)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            Bros_N      = Bros_N     * (1.0-FallOK(ikl))!
+     .                  + 300.       *      FallOK(ikl) !
+
+! Time averaged Density of deposited blown Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+            BrosSV(ikl) =(Bros_N     *      d_Bufs      !
+     .                   +BrosSV(ikl)*      BufsSV(ikl))!
+     .                   /         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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #s0.          nn__SV(ikl).EQ.nwr_SV)
+! #s0.      write(6,6602) Buf_ro,Bros_N,BrosSV(ikl),dsnbSV(ikl)
+ 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)-Dendr2,     !     Dendricity
+     .                   Dendr3                   ))    !
+            Buf_G2      =  min( Spher4,                 ! Temperate Snow
+     .               max(Spher1*VV__SV(ikl)+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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #s0.          nn__SV(ikl).EQ.nwr_SV)
+! #s0.      write(6,6603)       BG1sSV(ikl),BG2sSV(ikl)  
+ 6603       format('G1,G2  *: ',3e15.6)
+ 
+! S.1. Meme  Type  de Neige  / same Grain Type
+!      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+c #BS       SameOK  =  max(zer0,
+c #BS.                     sign(un_1,    Buf_G1             *G1_dSV
+c #BS.                                 - eps_21                    ))
+c #BS       G1same  = ((1.0-dsnbSV(ikl))*Buf_G1+dsnbSV(ikl) *G1_dSV)
+c #BS       G2same  = ((1.0-dsnbSV(ikl))*Buf_G2+dsnbSV(ikl) *ADSdSV)
+!           Blowing Snow Properties:                         G1_dSV, ADSdSV
+ 
+! S.2. Types differents / differents Types
+!      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+c #BS       typ__1  =  max(zer0,sign(un_1,eps6-Buf_G1))   ! =1.=> Dendritic
+c #BS       zroNEW  =     typ__1  *(1.0-dsnbSV(ikl))      ! fract.Dendr.Lay.
+c #BS.              + (1.-typ__1) *     dsnbSV(ikl)       !
+c #BS       G1_NEW  =     typ__1  *Buf_G1                 ! G1 of Dendr.Lay.
+c #BS.              + (1.-typ__1) *G1_dSV                 !
+c #BS       G2_NEW  =     typ__1  *Buf_G2                 ! G2 of Dendr.Lay.
+c #BS.              + (1.-typ__1) *ADSdSV                 !
+c #BS       zroOLD  = (1.-typ__1) *(1.0-dsnbSV(ikl))      ! fract.Spher.Lay.
+c #BS.              +     typ__1  *     dsnbSV(ikl)       !
+c #BS       G1_OLD  = (1.-typ__1) *Buf_G1                 ! G1 of Spher.Lay.
+c #BS.              +     typ__1  *G1_dSV                 !
+c #BS       G2_OLD  = (1.-typ__1) *Buf_G2                 ! G2 of Spher.Lay.
+c #BS.              +     typ__1  *ADSdSV                 !
+c #BS       SizNEW  =    -G1_NEW  *DDcdSV/G1_dSV          ! Size  Dendr.Lay.
+c #BS.               +(1.+G1_NEW         /G1_dSV)         !
+c #BS.                  *(G2_NEW  *DScdSV/G1_dSV          !
+c #BS.               +(1.-G2_NEW         /G1_dSV)*DFcdSV) !
+c #BS       SphNEW  =     G2_NEW         /G1_dSV          ! Spher.Dendr.Lay.
+c #BS       SizOLD  =     G2_OLD                          ! Size  Spher.Lay.
+c #BS       SphOLD  =     G1_OLD         /G1_dSV          ! Spher.Spher.Lay.
+c #BS       Siz_av =     (zroNEW*SizNEW+zroOLD*SizOLD)    ! Averaged Size
+c #BS       Sph_av = min( zroNEW*SphNEW+zroOLD*SphOLD     !
+c #BS.                   ,  un_1)                         ! Averaged Sphericity
+c #BS       Den_av = min((Siz_av -(    Sph_av *DScdSV     !
+c #BS.                            +(1.-Sph_av)*DFcdSV))   !
+c #BS.                 / (DDcdSV -(    Sph_av *DScdSV     !
+c #BS.                            +(1.-Sph_av)*DFcdSV))   !
+c #BS.                   ,  un_1)                         !
+c #BS       DendOK  = max(zer0,                           !
+c #BS.                    sign(un_1,     Sph_av *DScdSV   ! Small   Grains
+c #BS.                              +(1.-Sph_av)*DFcdSV   ! Faceted Grains
+c #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
+ 
+c #BS       G1diff  =(   -DendOK *Den_av
+c #BS.               +(1.-DendOK)*Sph_av) *G1_dSV
+c #BS       G2diff  =     DendOK *Sph_av  *G1_dSV
+c #BS.               +(1.-DendOK)*Siz_av
+c #BS       G1      =     SameOK *G1same
+c #BS.               +(1.-SameOK)*G1diff
+c #BS       G2      =     SameOK *G2same
+c #BS.               +(1.-SameOK)*G2diff
+ 
+            BG1__N      =((1. - FallOK(ikl))*   G1      !
+     .                        + FallOK(ikl) *   99.)    ! Melted *  from Canopy
+     .                  *       d_Bufs/max(eps6,d_Bufs) !
+            BG2__N      =((1. - FallOK(ikl))*   G2      !
+     .                        + FallOK(ikl) *   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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #s0.          nn__SV(ikl).EQ.nwr_SV)
+! #s0.      write(6,6604)      Buf_G1      ,Buf_G2         ,FallOK(ikl)
+! #s0.                                                     ,TvegSV(ikl)
+ 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)
+     .                                 - eps_21                    ))
+            G1same  = (d_Bufs*Buf_G1+BufsSV(ikl)*BG1sSV(ikl))
+     .                     / max(eps6,Bufs_N)
+            G2same  = (d_Bufs*Buf_G2+BufsSV(ikl)*BG2sSV(ikl))
+     .                     /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))           !
+     .                   /max(eps6,Bufs_N)                !
+            G1_NEW  =     typ__1  *Buf_G1                 ! G1 of Dendr.Lay.
+     .              + (1.-typ__1) *BG1sSV(ikl)            !
+            G2_NEW  =     typ__1  *Buf_G2                 ! G2 of Dendr.Lay.
+     .              + (1.-typ__1) *BG2sSV(ikl)            !
+            zroOLD  =((1.-typ__1) *d_Bufs                 ! fract.Spher.Lay.
+     .              +     typ__1  *BufsSV(ikl))           !
+     .                   /max(eps6,Bufs_N)                !
+            G1_OLD  = (1.-typ__1) *Buf_G1                 ! G1 of Spher.Lay.
+     .              +     typ__1  *BG1sSV(ikl)            !
+            G2_OLD  = (1.-typ__1) *Buf_G2                 ! G2 of Spher.Lay.
+     .              +     typ__1  *BG2sSV(ikl)            !
+            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) =                       G1      !
+     .                  *       Bufs_N/max(eps6,Bufs_N) ! 
+            BG2sSV(ikl) =                       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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #s0.          nn__SV(ikl).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) =       Bufs_N                  !     [mm w.e.]
+            NLaysv(ikl) = min(un_1,                     !
+     .                    max(zer0,                     ! Allows to create 
+     .                        sign(un_1,BufsSV(ikl)     ! a new snow Layer
+     .                                 -SMndSV     ))   ! if Buffer > SMndSV
+     .                   *max(zer0,                     ! Except if * Erosion
+     .                        sign(un_1,half            ! dominates
+     .                                 -dsnbSV(ikl)))   !
+     .                   +max(zer0,                     ! Allows to create
+     .                        sign(un_1,BufsSV(ikl)     ! a new snow Layer
+     .                                 -SMndSV*3.00)))  ! is Buffer > SMndSV*3
+
+            Bdzssv(ikl) = 1.e-3*BufsSV(ikl)*rhoWat      ! [mm w.e.] -> [m w.e.]
+     .                            /max(eps6,BrosSV(ikl))!& [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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #s0.          nn__SV(ikl).EQ.nwr_SV)
+! #s0.      write(6,6606) BG1sSV(ikl),BG2sSV(ikl)
+! #s0.                   ,NLaysv(ikl),BdzsSV(ikl)  
+ 6606       format('G1,G2 N*: ',2e15.6,i15,e27.6)
+
+          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) .GT. 0)
+! #s2.  write(6,6004)isnoSV(1),    dsn_SV(1) *dt__SV + BufsSV(1),
+! #s2.              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(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,knonv
+            isnoSV(ikl)     = isnoSV(ikl)         +NLaysv(ikl)
+            isn             = isnoSV(ikl)
+            dzsnSV(ikl,isn) = dzsnSV(ikl,isn) * (1-NLaysv(ikl))
+     .                      + Bdzssv(ikl)     *    NLaysv(ikl) 
+            TsisSV(ikl,isn) = TsisSV(ikl,isn) * (1-NLaysv(ikl))
+     .                  + min(TaT_SV(ikl),Tf_Sno) *NLaysv(ikl) 
+            ro__SV(ikl,isn) = ro__SV(ikl,isn) * (1-NLaysv(ikl))
+     .                      + Brossv(ikl)     *    NLaysv(ikl) 
+            eta_SV(ikl,isn) = eta_SV(ikl,isn) * (1-NLaysv(ikl))   ! + 0. 
+            agsnSV(ikl,isn) = agsnSV(ikl,isn) * (1-NLaysv(ikl))   ! + 0. 
+            G1snSV(ikl,isn) = G1snSV(ikl,isn) * (1-NLaysv(ikl))
+     .                      + BG1ssv(ikl)     *    NLaysv(ikl)
+            G2snSV(ikl,isn) = G2snSV(ikl,isn) * (1-NLaysv(ikl))
+     .                      + BG2ssv(ikl)     *    NLaysv(ikl)
+            istoSV(ikl,isn) = istoSV(ikl,isn) * (1-NLaysv(ikl))
+     .   + max(zer0,sign(un_1,TaT_SV(ikl)
+     .                       -Tf_Sno-eps_21)) *    istdSV(2)
+     .                                        *    NLaysv(ikl)
+            BufsSV(ikl)     = BufsSV(ikl)     * (1-NLaysv(ikl))
+            NLaysv(ikl)     = 0
+          END DO
+
+
+! Snow Pack Thickness
+! -------------------
+
+          DO ikl=1,knonv
+            z_snsv(ikl)     = 0.0
+          END DO
+        DO   isn=1,nsno
+          DO ikl=1,knonv
+            z_snsv(ikl)     = z_snsv(ikl) + dzsnSV(ikl,isn)
+            zzsnsv(ikl,isn) = z_snsv(ikl)
+          END DO
+        END DO
+
+
+! Diffusion of Surficial Water in the Snow Pack
+! ---------------------------------------------
+
+c #sw     DO isn=1,nsno
+c #sw     DO ikl=1,knonv
+c #sw       PorVol      = 1.     - ro__SV(ikl,isn) /  rhoIce          !
+c #sw       PorVol      =      max(PorVol            ,zer0  )         !
+c #sw       rWater      = ws0dSV * PorVol     *rhoWat*dzsnSV(ikl,isn)
+c #sw.                  * max(zer0,
+c #sw.                   sign(un_1,rusnSV(ikl)/rhoWat-zzsnsv(ikl,isn)
+c #sw.                                               +dzsnSV(ikl,isn)))
+c #sw       rusNEW      =      max(rusnSV(ikl)-rWater,zer0  )
+c #sw       rWater      =          rusnSV(ikl)-rusNEW
+c #sw       rdzNEW          =      rWater
+c #sw.                           + ro__SV(ikl,isn) * dzsnSV(ikl,isn)
+c #sw       etaNEW          =      rWater / max(eps6,rdzNEW)
+c #sw       rusnSV(ikl) =          rusNEW
+c #sw       ro__SV(ikl,isn) =      rdzNEW / max(eps6,dzsnSV(ikl,isn))
+c #sw       eta_SV(ikl,isn) =      eta_SV(ikl,isn)  +etaNEW
+c #sw     ENDDO
+c #sw     ENDDO
+
+      END IF
+
+! OUTPUT in SISVAT for ikl = 1 (preferably for Stand Alone Version)
+! OUTPUT           for SnowFall and Snow Buffer
+! #s2   IF (knonv>0) THEN
+! #s2   IF          (isnoSV(1) .GT. 0)
+! #s2.  write(6,6006)isnoSV(1),    dsn_SV(1) *dt__SV + BufsSV(1),
+! #s2.              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1))
+! #s2   END IF
+ 6006   format(i3,'  dsn+Buf=',f6.2,6x,'* dz *ro =',10f6.2,
+     .                                       (/,35x,10f6.2))
+
+
+! Blowing Dust
+! ============
+
+c #BD   IF (BloMod)                                               THEN
+
+!         ***************
+c #BD     call SISVAT_BDu
+!         ***************
+
+c #BD   END IF
+
+
+
+! Soil      Albedo: Soil Humidity Correction
+! ==========================================
+
+!         REFERENCE: McCumber and Pielke (1981), Pielke (1984)
+!         ^^^^^^^^^
+          DO ikl=1,knonv
+            albssv(ikl) = 
+     .      alb0SV(ikl) *(1.0-min(half,eta_SV(       ikl,0)
+     .                                /etadSV(isotSV(ikl))))
+!         REMARK:    Albedo of Water Surfaces (isotSV=0): 
+!         ^^^^^^     alb0SV := 2  X  effective value, while 
+!                    eta_SV :=          etadSV
+          END DO
+
+
+! Snow Pack Optical Properties
+! ============================
+
+      IF (SnoMod)                                                 THEN
+
+!            ******
+        call SnOptP(jjtime)
+!            ******
+
+      ELSE
+        DO ikl=1,knonv
+          sEX_sv(ikl,1) = 1.0
+          sEX_sv(ikl,0) = 0.0
+          albisv(ikl)   = albssv(ikl)
+        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,knonv
+            LSnMsk     =     min( 1,isnoSV(ikl))
+            tau_sv(ikl)=     exp(  -LAI_sv(ikl))           ! Veg Transmit.Frac.
+            Evg_sv(ikl)=  EmiVeg*(1-LSnMsk)+EmiSno*LSnMsk  ! Veg+Sno Emissivity
+            Eso_sv(ikl)=  EmiSol*(1-LSnMsk)+EmiSno*LSnMsk  ! Sol+Sno Emissivity
+            emi_SV(ikl)=
+     .   (((EmiSol*     tau_sv(ikl) 
+     .     +EmiVeg*(1.0-tau_sv(ikl))) *LSmask(ikl))
+     .    + EmiWat                 *(1-LSmask(ikl)))*(1-LSnMsk)
+     .   +  EmiSno                                     *LSnMsk
+        END DO
+
+
+! Soil/Vegetation Forcing/ Upward IR (INPUT, from previous time step)
+! ===================================================================
+
+        DO ikl=1,knonv
+! #e1     Enrsvd(ikl) =    - IRs_SV(ikl)
+          IRupsv(ikl) =      IRs_SV(ikl) *     tau_sv(ikl) ! Upward   IR
+        END DO
+
+
+! Turbulence
+! ==========
+
+! Latent Heat of Vaporization/Sublimation
+! ---------------------------------------
+
+        DO ikl=1,knonv
+          SnoWat      =                     min(isnoSV(ikl),0)
+          Lx_H2O(ikl) =
+     .    (1.-SnoWat) * LhvH2O 
+     .  +     SnoWat  *(LhsH2O * (1.-eta_SV(ikl,isnoSV(ikl)))
+     .                 +LhvH2O *     eta_SV(ikl,isnoSV(ikl)) )
+        END DO
+
+
+! Roughness Length for Momentum
+! -----------------------------
+
+! Land+Sea-Ice / Ice-free Sea Mask
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,knonv
+          IcIndx(ikl) = 0
+        ENDDO
+        DO isn=1,nsno
+        DO ikl=1,knonv
+          IcIndx(ikl) = max(IcIndx(ikl),
+     .                      isn*max(0,
+     .                              sign(1,
+     .                                   int(ro__SV(ikl,isn)-900.))))
+        ENDDO
+        ENDDO
+
+        DO ikl=1,knonv
+          LISmsk    =     min(iiceSV(ikl),1     )
+          LISmsk    =     max(LSmask(ikl),LISmsk)
+          IceMsk    =     max(0,sign(1   ,IcIndx(ikl)-1)  )
+          SnoMsk    = max(min(isnoSV(ikl)-iiceSV(ikl),1),0)
+
+! Sea  Roughness Length
+! ^^^^^^^^^^^^^^^^^^^^^
+          Z0mSea =       0.0002
+          Z0hSea =       0.000049
+
+c #zs     Z0mSea =       0.0185*us__SV(ikl)*us__SV(ikl) ! Doyle MWR 130
+c #zs.                         *Grav_I                  ! p.3088 2e col 
+
+c #ZS     Z0mSea =       0.016 *us__SV(ikl)*us__SV(ikl) ! Wang  MWR 129
+c #ZS.                         *Grav_I                  ! p.1377 (21)   
+c #ZS.           +       0.11  *A_MolV                  !
+c #ZS.                         /  max(eps6 ,us__SV(ikl))!
+
+c #zs     Z0mSea =       0.0185*us__SV(ikl)*us__SV(ikl) ! Wang  MWR 129
+c #zs.                         *Grav_I                  ! p.1377 (21)   
+c #zs.           +       0.135 *A_MolV                  !   (adapted)
+c #zs.                         /  max(eps6 ,us__SV(ikl))!
+
+c #ZS     Z0hSea =   max(0.000049,                      ! Wang  MWR 129
+c #ZS.                   0.20  *A_MolV                  ! p.1377 (22)   
+c #ZS.                         /  max(eps6 ,us__SV(ikl)))
+
+c #ZS     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)),1)
+          Z0mLnd      =     Z0mdSV(ivgtSV(ikl))*LAI_sv(ikl)*growth
+     .                                         /LAIdSV
+     .                +     Z0mdSV(ivgtSV(ikl))*         (1-growth)
+
+! If vegetation Seasonal Cycle described by  GLF only:
+c #CM     Z0mLnd      =     
+c #CM.             fallen * Z0mLnd     
+c #CM.        +(1.-fallen)* Z0mdSV(ivgtSV(ikl))*glf_sv(ikl)*growth
+c #CM.                 +    Z0mdSV(ivgtSV(ikl))*         (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,    isnoSV(ikl))
+     .                     -zzsnsv(ikl,max(IcIndx(ikl),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) *us__SV(ikl)
+          Z0mBSn =       u2star      *0.536e-3   -  61.8e-6
+          Z0mBSn =   max(Z0mBS0      ,Z0mBSn)
+
+! Z0 Smooth + Saltat. Regime
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0enSV(ikl) =  Z0m_nu
+     .                +  Z0mBSn
+
+! Rough   Snow Surface Roughness Length (Typical Value)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0m_Sn =      25.e-5 ! Andreas 1995, CRREL Report 95-16, fig.1&p.2
+                               ! z0r~(10-d)*exp(-vonKrm/sqrt(1.5e-03))-5.e-5
+c #TZ     Z0m_Sn =       5.e-5 ! Typical Tuning in polar mesoscale models
+
+! 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
+
+c #SZ     Z0Sa_N =                   (us__SV(ikl) -0.2)*0.0050 ! 0050=0.003/0.6
+c #SZ     Z0SaSi = max(zer0,sign(un_1,Z0Sa_N))                 ! 0100=TUNING
+c #SZ     Z0Sa_N = max(zer0,          Z0Sa_N)
+c #SZ     Z0SaSV(ikl) =
+c #SZ.             max(Z0SaSV(ikl)   ,Z0SaSV(ikl) 
+c #SZ.               + Z0SaSi*(Z0Sa_N-Z0SaSV(ikl))*exp(-dt__SV/43200.))
+c #SZ.               -            min(dz0_SV(ikl) ,     Z0SaSV(ikl))
+
+c #SZ     A_Fact      =               Z0SaSV(ikl) *  5.0/0.15  ! A=5 if h~10cm
+!         CAUTION: The influence of the sastrugi direction is not yet included
+
+c #SZ     Z0m_Sn =                    Z0SaSV(ikl)              !
+c #SZ.                              - Z0m_nu                   !
+
+! Z0                         (Shao & Lin, 1999, BLM 91 (46)  p.222)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+! Z0 Saltat.Regime over Snow (Shao & Lin, 1999, BLM 91 (46)  p.222)
+c #ZN     sqrrZ0 =       usthSV(ikl)/max( us__SV(ikl),0.001)
+c #ZN     sqrrZ0 =                   min( sqrrZ0     ,0.999)
+c #ZN     Z0mBSn =       0.55 *0.55 *exp(-sqrrZ0     *sqrrZ0)
+c #ZN.                  *us__SV(ikl)*     us__SV(ikl)*Grav_I*0.5
+
+! Z0 Smooth + Saltat. Regime (Shao & Lin, 1999, BLM 91 (46)  p.222)
+c #ZN     Z0enSV(ikl) = (Z0m_nu     **    sqrrZ0 )
+c #ZN.                * (Z0mBSn     **(1.-sqrrZ0))
+c #ZN     Z0enSV(ikl) =  max(Z0enSV(ikl), Z0m_nu)
+
+! Z0                         (Andreas etAl., 2004
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^  ams.confex.com/ams/pdfpapers/68601.pdf)
+! Z0 Smooth Regime over Snow (Andreas etAl., 2004
+c #ZA     Z0m_nu = 0.135*A_MolV / max(us__SV(ikl) , eps6)
+
+! Z0 Saltat.Regime over Snow (Andreas etAl., 2004
+c #ZA     Z0mBSn = 0.035*u2star      *Grav_I
+
+! Z0 Smooth + Saltat. Regime (Andreas etAl., 2004
+c #ZA     Z0enSV(ikl) =  Z0m_nu
+c #ZA.                +  Z0mBSn
+
+! Z0 Rough  Regime over Snow (Andreas etAl., 2004
+! (.NOT. used by Erosion)     ams.confex.com/ams/pdfpapers/68601.pdf)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+c #ZA     Z0m_90 =(10.-0.025*VVs_SV(ikl)/5.)
+c #ZA.            *exp(-0.4/sqrt(.0020+.00001*max(0.,VVs_SV(ikl)-5.))) 
+c #ZA     Z0m_Sn =           DDs_SV(ikl)* Z0m_90 / 45.
+c #ZA.         - DDs_SV(ikl)*DDs_SV(ikl)* Z0m_90 /(90.*90.)
+! #za     u2star =      (us__SV(ikl) -0.1800)     / 0.1
+! #za     Z0m_Sn =A_Fact*Z0mBSn *exp(-u2star*u2star)
+
+! Z0 Rough  Regime over Snow (Andreas etAl., 2004
+c #ZA     u2star =      (us__SV(ikl) -0.1800)     / 0.1
+c #ZA     Z0m_Sn =A_Fact*Z0mBSn *exp(-u2star*u2star)
+
+! Z0 Smooth + Saltat. Regime + Rough  Regime over Snow (Andreas etAl., 2004)
+c #ZA     Z0enSV(ikl) =  Z0enSV(ikl)
+c #ZA.                +  Z0m_Sn
+
+! Z0               over Snow (instantaneous or time average)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0e_SV(ikl) =  Z0enSV(ikl)
+c #ZM     Z0e_SV(ikl) =  Z0emSV(ikl)
+
+! Momentum  Roughness Length
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^                                 ! Contribution of
+          Z0mnSV(ikl) =  Z0mLnd                              ! Vegetation Form
+     .                + (Z0m_Sn                              ! Sastrugi   Form
+     .                +  Z0enSV(ikl))   *SnoMsk              ! Snow    Erosion
+
+! Mom. Roughness Length, Discrimination among Ice/Land  and Ice-Free Ocean
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0mnSV(ikl) =  Z0mnSV(ikl)    *LISmsk              ! Ice and  Land
+     .                  +Z0mSea      *(1-LISmsk)             ! Ice-Free Ocean
+c #OR.                  +Z0roSV(ikl)                         ! Subgrid  Topogr.
+
+! GIS  Roughness Length
+! ^^^^^^^^^^^^^^^^^^^^^
+c #GL     Z0mnSV(ikl) = 
+c #GL.      (1-LSmask(ikl)) *     Z0mnSV(ikl)
+c #GL.    +    LSmask(ikl)  * max(Z0mnSV(ikl),max(Z0_GIM,
+c #GL.                                            Z0_GIM+
+c #GL.      (0.0032-Z0_GIM)*(ro__SV(ikl,isnoSV(ikl))-600.)   !
+c #GL.                     /(920.00                 -600.))) !
+
+! Mom. Roughness Length, Instantaneous OR Box Moving Average in Time
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Z0m_SV(ikl) =  Z0mnSV(ikl)                         ! Z0mnSV  instant.
+c #ZM     Z0m_SV(ikl) =  Z0mmSV(ikl)                         ! Z0mnSV  Average
+
+! Corrected Threshold Friction Velocity before Erosion    ! Marticorena and
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^    ! Bergametti 1995
+c #BS     Z0e_SV(ikl) =   min(Z0m_SV(ikl),Z0e_SV(ikl))       !
+c #MB     f_eff=    log(0.35*(0.1        /Z0e_SV(ikl))**0.8) ! JGR 100
+c #MB     f_eff=1.-(log(      Z0m_SV(ikl)/Z0e_SV(ikl)      ))! (20) p. 16420
+c #MB.            /(max(      f_eff      ,eps6             ))! p.16426 2nd ?
+c #MB     f_eff=    max(      f_eff      ,eps6              )! CONTROL
+! #mB     f_eff=2.0*max(      f_eff      ,eps6              )! TUNING
+c #MB     f_eff=    min(      f_eff      ,un_1              )!
+c #MB     usthSV(ikl) =       usthSV(ikl)/f_eff              !
+
+
+! Roughness Length for Scalars
+! ----------------------------
+
+          Z0hnSV(ikl) =     Z0mnSV(ikl)/  7.4
+c #SH     Z0hnSV(ikl) =     Z0mnSV(ikl)/100.0
+!                           Z0h = Z0m  /100.0   over the Sahel
+!                                              (Taylor & Clark, QJRMS 127,p864)
+
+c #RN     rstar       =     Z0mnSV(ikl) * us__SV(ikl) / A_MolV
+c #RN     rstar       = max(eps6,min(rstar,R_1000))
+c #RN     alors       =          log(rstar)   
+c #RN     rstar0      = 1.250e0 * max(zer0,sign(un_1,0.135e0 - rstar))
+c #RN.                +(1.      - max(zer0,sign(un_1,0.135e0 - rstar)))
+c #RN.                *(0.149e0 * max(zer0,sign(un_1,2.500e0 - rstar)) 
+c #RN.                + 0.317e0 
+c #RN.                *(1.      - max(zer0,sign(un_1,2.500e0 - rstar))))      
+c #RN     rstar1      = 0.      * max(zer0,sign(un_1,0.135e0 - rstar))
+c #RN.                +(1.      - max(zer0,sign(un_1,0.135e0 - rstar)))
+c #RN.                *(-0.55e0 * max(zer0,sign(un_1,2.500e0 - rstar)) 
+c #RN.                - 0.565
+c #RN.                *(1.      - max(zer0,sign(un_1,2.500e0 - rstar))))
+c #RN     rstar2      = 0.      * max(zer0,sign(un_1,0.135e0 - rstar))
+c #RN.                +(1.      - max(zer0,sign(un_1,0.135e0 - rstar)))
+c #RN.                *(0.      * max(zer0,sign(un_1,2.500e0 - rstar)) 
+c #RN.                - 0.183
+c #RN.                *(1.00    - max(zer0,sign(un_1,2.500e0 - rstar))))
+c #RN     Z0hnSV(ikl) = max(zer0
+c #RN.                , sign(un_1,zzsnsv(ikl,isnoSV(ikl))-eps6)) 
+c #RN.                * exp(rstar0+rstar1*alors+rstar2*alors*alors)
+c #RN.                * 0.001e0 + Z0hnSV(ikl) * ( 1. - max(zer0   
+c #RN.                , sign(un_1,zzsnsv(ikl,isnoSV(ikl))-eps6)))
+
+          Z0hnSV(ikl) =     Z0hSea             *(1-LISmsk) ! Ice-free Ocean
+     .                +     Z0hnSV(ikl)        *   LISmsk  ! Ice and  Land
+
+          Z0h_SV(ikl) =     Z0hnSV(ikl)
+c #ZM     Z0h_SV(ikl) =     Z0hmSV(ikl)
+
+
+! Contributions of the Roughness Lenghths to the neutral Drag Coefficient
+! -----------------------------------------------------------------------
+
+c #MT     Z0m_SV(ikl) = max(2.0e-6     ,Z0m_SV(ikl)) ! Min Z0_m (Garrat Scheme)
+          sqrCm0(ikl) = log(za__SV(ikl)/Z0m_SV(ikl))
+          sqrCh0(ikl) = log(za__SV(ikl)/Z0h_SV(ikl))
+
+! OUTPUT of SnowFall, Roughness Length and Drag Coefficients
+! #sf     IF (ikl.EQ.1) write(6,6661) dsn_SV(ikl),us__SV(ikl),Z0SaSi
+! #sf.                        ,Z0Sa_N,Z0SaSV(ikl),Z0m_Sn,Z0m_SV(ikl)
+ 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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #sz.        nn__SV(ikl).EQ.nwr_SV)
+! #sz.    write(6,6600)  za__SV(ikl) , Z0m_SV(ikl)
+! #sz.                  ,sqrCm0(ikl) , za__SV(ikl)/Z0m_SV(ikl)
+! #sz.                  ,Z0SaSV(ikl) , Z0h_SV(ikl)
+! #sz.                  ,sqrCh0(ikl) , za__SV(ikl)/Z0h_SV(ikl)
+ 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) = Sigmsv(ikl) * TvegSV(ikl)
+     .          + (1. - Sigmsv(ikl))* TsisSV(ikl,isnoSV(ikl))
+        END DO
+
+! Aerodynamic Resistance
+! ^^^^^^^^^^^^^^^^^^^^^^
+c #CP   IF            (SnoMod.AND.ColPrt)                           THEN
+
+!                **********
+c #CP       call ColPrt_SBL
+!                **********
+
+c #CP   ELSE
+c #MT    IF           (Garrat)                                      THEN
+
+!                **********
+c #MT       call SISVAT_SBL
+!                **********
+
+c #MT    ELSE
+
+!                **********
+            call SISVATeSBL
+!                **********
+
+c #MT    END IF
+c #CP   END IF
+
+
+! Canopy Energy Balance
+! =====================
+
+!            **********
+        call SISVAT_TVg
+! #e1.                 (ETVg_d)
+!            **********
+
+
+! Surface/Canopy Temperature
+! ==========================
+
+        DO ikl=1,knonv
+          Tsrfsv(ikl) = Sigmsv(ikl) * TvegSV(ikl)
+     .          + (1. - Sigmsv(ikl))* TsisSV(ikl,isnoSV(ikl))
+        END DO
+
+
+! Soil   Energy Balance
+! =====================
+
+!            **********
+        call SISVAT_TSo
+! #e1.                 (ETSo_0,ETSo_1,ETSo_d)
+!            **********
+
+!            **********
+! #ve   call SISVAT_wEq('_TSo  ',0)
+!            **********
+
+
+! Canopy Water  Balance
+! =====================
+
+! Soil Water     Potential
+! ------------------------
+
+      DO   isl=-nsol,0
+        DO ikl=1,knonv
+          ist             =     isotSV(ikl)        ! Soil Type
+          psi_sv(ikl,isl) =     psidSV(ist)        ! DR97, Eqn.(3.34)
+     .  *(etadSV(ist) /max(eps6,eta_SV(ikl,isl)))  !
+     .  **bCHdSV(ist)                              !
+
+
+! Soil Hydraulic Conductivity
+! ---------------------------
+
+          Khydsv(ikl,isl) =    s2__SV(ist)         ! DR97, Eqn.(3.35)
+     .  *(eta_SV(ikl,isl)**(2.*bCHdSV(ist)+3.))    !  
+        END DO
+      END DO
+
+!            **********
+        call SISVAT_qVg
+!            **********
+
+
+! OUTPUT/Verification: H2O    Conservation: Vegetation Forcing
+! #m0   DO ikl=1,knonv
+! #m0     Watsvd(ikl) =     (Watsvd(ikl)           ! Canopy Precip. IN
+! #m0.                      -drr_SV(ikl)           ! Canopy Precip. OUT
+! #m0.                      -Evp_sv(ikl))* dt__SV  ! Canopy Water Evap.
+! #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 (knonv>0) THEN
+! #s2   IF          (isnoSV(1) .GT. 0)
+! #s2.  write(6,6007)isnoSV(1),    dsn_SV(1) *dt__SV + BufsSV(1),
+! #s2.              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1))
+! #s2   END IF
+ 6007   format(i3,'  dsn+Buf=',f6.2,6x,'q dz *ro =',10f6.2,
+     .                                       (/,35x,10f6.2))
+
+
+! Snow Pack Thickness
+! -------------------
+
+          DO ikl=1,knonv
+            z_snsv(ikl)     = 0.0
+          END DO
+        DO   isn=1,nsno
+          DO ikl=1,knonv
+            z_snsv(ikl)     = z_snsv(ikl) + dzsnSV(ikl,isn)
+            zzsnsv(ikl,isn) = z_snsv(ikl)
+          END DO
+        END DO
+
+
+! Energy in Excess is added to the first Soil Layer
+! -------------------------------------------------
+
+        DO ikl=1,knonv
+            z_snsv(ikl)   = max(zer0,
+     .                          sign(un_1,eps6-z_snsv(ikl)))
+            TsisSV(ikl,0) = TsisSV(ikl,0)    + EExcsv(ikl) 
+     .                                       /(rocsSV(isotSV(ikl))
+     .                                        +rcwdSV*eta_SV(ikl,0))
+            EExcsv(ikl)   = 0.
+        END DO
+
+
+! OUTPUT/Verification: * Mass Conservation: Mass (below the Canopy) and Forcing
+! #m1   DO ikl=1,knonv
+! #m1     SIWa_f(ikl) =(drr_SV(ikl) + dsn_SV(ikl))   *dt__SV         ![mm w.e.]
+! #m1     SIWe_f(ikl) = dbs_SV(ikl)                                  !
+! #m1     SIWm_1(ikl) = BufsSV(ikl) + HFraSV(ikl)    *rhoIce         !
+! #m1   DO isn=1,nsno                                                !
+! #m1     SIWm_1(ikl) = SIWm_1(ikl) + dzsnSV(ikl,isn)*ro__SV(ikl,isn)!
+! #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,knonv
+          IRdwsv(ikl)=tau_sv(ikl) *IRd_SV(ikl)*Eso_sv(ikl) ! Downward IR
+     .          +(1.0-tau_sv(ikl))*IRd_SV(ikl)*Evg_sv(ikl) ! 
+          IRupsv(ikl) =      IRupsv(ikl)                   ! Upward   IR
+     .                + 0.5 *IRv_sv(ikl) * (1.-tau_sv(ikl))!
+          IRu_SV(ikl) =     -IRupsv(ikl)                   ! Upward   IR
+     .                      +IRd_SV(ikl)                   ! (effective)
+     .                      -IRdwsv(ikl)                   ! (positive)
+
+          TBr_sv(ikl) =sqrt(sqrt(IRu_SV(ikl)/StefBo))      ! Brightness
+!                                                          ! Temperature
+          uts_SV(ikl) =     (HSv_sv(ikl) +HSs_sv(ikl))     ! u*T*
+     .                     /(rhT_SV(ikl) *CpdAir)          !
+          uqs_SV(ikl) =     (HLv_sv(ikl) +HLs_sv(ikl))     ! u*q*
+     .                     /(rhT_SV(ikl) *LhvH2O)          !
+
+! Surface/Canopy Temperature
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          Tsrfsv(ikl) = Sigmsv(ikl) * TvegSV(ikl)
+     .          + (1. - Sigmsv(ikl))* TsisSV(ikl,isnoSV(ikl))
+        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
+! ======
+
+c #E0   DO ikl=1,knonv
+c #E0   IF (lwriSV(ikl).ne.0)                                     THEN
+c #E0           noUNIT =  no__SV(lwriSV(ikl))
+c #E0     write(noUNIT,5001)
+c #E0.       (SoSosv(ikl)+SoCasv(ikl))*sol_SV(ikl),
+c #E0.        IRdwsv(ikl),IRu_SV(ikl),
+c #E0.        HSv_sv(ikl)+HSs_sv(ikl),
+c #E0.        HLv_sv(ikl)+HLs_sv(ikl), TaT_SV(ikl),
+c #E0.        dsn_SV(ikl)*3.6e3,       drr_SV(ikl)*3.6e3,
+c #E0.        SoSosv(ikl)             *sol_SV(ikl),
+c #E0.                    IRv_sv(ikl) *0.5,
+c #E0.        HSv_sv(ikl),HLv_sv(ikl), TvegSV(ikl),
+c #E0.                    SoCasv(ikl) *sol_SV(ikl),
+c #E0.        HSs_sv(ikl),HLs_sv(ikl), TsisSV(ikl,isnoSV(ikl)) 
+ 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) = Enrsvd(ikl)                            ! Up Surf. IR
+! #e1.                + IRs_SV(ikl)                            ! Offset
+! #e1.        + (      (SoSosv(ikl)                            ! Net   Solar
+! #e1.                 +SoCasv(ikl)) *sol_SV(ikl)              !            
+! #e1.          +                     IRdwsv(ikl)              ! Downward IR
+! #e1.          +                     IRupsv(ikl)              ! Upward   IR
+! #e1.          +                     HSv_sv(ikl)+HSs_sv(ikl)  ! Sensible
+! #e1.          +                     HLv_sv(ikl)+HLs_sv(ikl)) ! Latent
+
+! #e1     write(noUNIT,5002)           Enrsvd(ikl),
+! #e1.                   ETSo_0(ikl),  ETSo_d(ikl),
+! #e1.                   ETSo_0(ikl)+  ETSo_d(ikl), ETSo_1(ikl),
+! #e1.                   EqSn_0(ikl)                            /dt__SV,
+! #e1.                   EqSn_d(ikl)                            /dt__SV,
+! #e1.                  (EqSn_1(ikl)-  EqSn_0(ikl)- EqSn_d(ikl))/dt__SV,
+! #e1.                   EqSn_1(ikl)                            /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)-(ETSo_0(ikl)+Enrsvd(ikl))
+! #e1             EnvBal = Enrsvd(ikl)- ETVg_d(ikl)
+! #e1     IF (abs(EnsBal).gt.5.e-1 
+! #e2.    .OR.lwriSV(ikl).eq.    2 
+! #e1.                            )                                 THEN
+! #e1       write(6,6001) daHost,i___SV(lwriSV(ikl)),
+! #e1.                           j___SV(lwriSV(ikl)),
+! #e1.                           n___SV(lwriSV(ikl)),
+! #e1.                           ETSo_1(ikl),ETSo_0(ikl),ETSo_d(ikl),
+! #e1.                           ETSo_1(ikl)-ETSo_0(ikl)-ETSo_d(ikl),
+! #e1.                           Enrsvd(ikl),ETVg_d(ikl),ETSo_d(ikl),
+! #e1.                           Enrsvd(ikl)-ETVg_d(ikl)-ETSo_d(ikl)
+ 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),  SIWa_i(ikl)-SIWa_f(ikl)
+! #m1.            ,SIWm_0(ikl)+  SIWa_i(ikl)-SIWa_f(ikl)
+! #m1.                          +SIWe_i(ikl)-SIWe_f(ikl)
+! #m1.                          +SIsubl(ikl)
+! #m1.                          -SImelt(ikl)
+! #m1.                          -SIrnof(ikl)
+! #m2.                          +SIvAcr(ikl)    
+! #m1.            ,SIWm_1(ikl),  SIWe_i(ikl)-SIWe_f(ikl)
+! #m1.            ,              SIsubl(ikl)
+! #m1.            ,             -SImelt(ikl)
+! #m1.            ,             -SIrnof(ikl)
+! #m2.            ,              SIvAcr(ikl)
+ 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)-(SIWm_0(ikl)
+! #m1.                                 +SIWa_i(ikl)-SIWa_f(ikl)
+! #m1.                                 +SIWe_i(ikl)-SIWe_f(ikl))
+! #m1.                                 -SIsubl(ikl)
+! #m1.                                 +SIrnof(ikl)
+! #m2.                                 -SIvAcr(ikl) 
+! #m1     IF (abs(SnoBal).gt.eps6)                                  THEN
+! #m1       write(6,6010) daHost,i___SV(lwriSV(ikl)),
+! #m1.                           j___SV(lwriSV(ikl)),
+! #m1.                           n___SV(lwriSV(ikl)),
+! #m1.                           SIWm_1(ikl),SIWm_0(ikl),
+! #m1.                           SIWa_i(ikl),SIWa_f(ikl),
+! #m1.                           SIWe_i(ikl),SIWe_f(ikl),
+! #m1.                           SIsubl(ikl),SImelt(ikl),
+! #m2.                           SIrnof(ikl),SIvAcr(ikl),
+! #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) =  Watsv0(ikl)                    ! Canopy Water Cont.
+! #m0.                 + Wats_0(ikl)                    ! Soil   Water Cont.
+! #m0     Watsvd(ikl) =  Watsvd(ikl)                    ! Canopy Forcing
+! #m0.                 + Wats_d(ikl)                    ! Soil   Forcing
+
+! #m0     write(noUNIT,5003) 
+! #m0.                   Wats_0(ikl),  Wats_d(ikl),
+! #m0.                   Wats_0(ikl)+  Wats_d(ikl),    Wats_1(ikl),
+! #m0.                   Watsv0(ikl),  Watsvd(ikl), 
+! #m0.                   Watsv0(ikl)+  Watsvd(ikl),    Wats_1(ikl)
+! #m0.                                                +rrCaSV(ikl)
+ 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)+rrCaSV(ikl)
+! #m0.                   -(Watsv0(ikl)+Watsvd(ikl))
+! #m0     IF (abs(WatBal).gt.eps6)                                  THEN
+! #m0       write(6,6002) daHost,i___SV(lwriSV(ikl)),
+! #m0.                           j___SV(lwriSV(ikl)),
+! #m0.                           n___SV(lwriSV(ikl)),
+! #m0.                           Wats_1(ikl),rrCaSV(ikl),
+! #m0.                           Watsv0(ikl),Watsvd(ikl),WatBal,
+! #m0.                           Wats_1(ikl),
+! #m0.                           Wats_0(ikl),Wats_d(ikl),
+! #m0.               Wats_1(ikl)-Wats_0(ikl)-Wats_d(ikl)
+ 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
+! --------------------------
+
+c #E0       write(noUNIT,5004)
+ 5004       format(' -----+--------+--+-----+--------+----+---+',
+     .  '--------+----+---+--------+------+-+--------+--------+',
+     .           /,'    n |     z  |     dz |     ro |    eta |',
+     .  '     T  |     G1 |     G2 | Extinc |        | HISTORY|',
+     .           /,'      |    [m] |    [m] | [kg/m3]| [m3/m3]|',
+     .  '    [K] |    [-] |    [-] |    [-] |        |   [-]  |',
+     .           /,' -----+--------+--------+--------+--------+',
+     .  '--------+--------+--------+--------+--------+--------+')
+c #E0       write(noUNIT,5005) rusnSV(ikl),albisv(ikl)
+ 5005       format('      |        |        |        |W',f6.3,' |',
+     .  '        |        |        |A',f6.3,' |        |        |')
+c #E0       write(noUNIT,5015)
+c #E0.                    (isn,zzsnsv(ikl,isn),dzsnSV(ikl,isn),
+c #E0.                         ro__SV(ikl,isn),eta_SV(ikl,isn),
+c #E0.                         TsisSV(ikl,isn),
+c #E0.                         G1snSV(ikl,isn),G2snSV(ikl,isn),
+c #E0.                         sEX_sv(ikl,isn),istoSV(ikl,isn),
+c #E0.                     isn=isnoSV(ikl),1,-1)
+ 5015       format((i5,' |',2(f7.3,' |'),               f7.1,' |',
+     .           f7.3,' |' ,  f7.2,' |', 2(f7.1,' |'),  f7.3,' |',
+     .            7x ,' |' ,  i5,'   |'                          ))
+c #E0       write(noUNIT,5006)
+ 5006       format(' -----+--------+--------+--------+--------+',
+     .  '--------+--------+--------+--------+--------+--------+')
+c #E0       write(noUNIT,5007) TBr_sv(ikl),
+c #E0.                         TvegSV(ikl),rrCaSV(ikl)*1.e3,
+c #E0.                         EvT_sv(ikl)*86.4e3
+ 5007       format(' Brgh |',4(8x,'|'),  f7.2,' | [micm] |',4(8x,'|'),
+     .           /,' VEGE |',4(8x,'|'),2(f7.2,' |'),        2(8x,'|'),
+     .                                   f7.3,' |',           8x,'|' )
+c #E0       write(noUNIT,5014)
+ 5014       format(' -----+--------+--------+--------+--------+',
+     .  '--------+--------+--------+--------+--------+--------+',
+     .           /,'    n |        |     dz |        |    eta |',
+     .  '     T  |        |        |        | Root W.| W.Flow |',
+     .           /,'      |        |    [m] |        | [m3/m3]|',
+     .  '    [K] |        |        |        | [mm/d] | [mm/h] |',
+     .           /,' -----+--------+--------+--------+--------+',
+     .  '--------+--------+--------+--------+--------+--------+')
+
+c #E0       write(noUNIT,5008)
+c #E0.                    (isl,    LSdzsv(ikl)*dz_dSV(    isl),
+c #E0.                                         eta_SV(ikl,isl),
+c #E0.                                         TsisSV(ikl,isl),
+c #E0.                                  86.4e3*Rootsv(ikl,isl),
+c #E0.                                   3.6e3*Khydsv(ikl,isl),
+c #E0.                     isl=0,-nsol,-1)
+ 5008       format((i5,' |',   7x ,' |' ,  f7.3,' |' ,   7x ,' |',
+     .           f7.3,' |' ,  f7.2,' |', 2( 7x ,' |'),   7x ,' |',
+     .                                     f7.3,' |' ,  f7.2,' |'))
+c #E0       write(noUNIT,5006)
+c #E0       write(noUNIT,5009) RnofSV(ikl)* 3.6e3
+ 5009       format('      |',9(8x,'|'),f7.3,' |')
+c #E0       write(noUNIT,5006)
+c #E0   END IF
+c #E0   END DO
+
+! END  .main. (SISVAT)
+      return
+      end
+
+
+      subroutine SISVAT_BSn(BloMod)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_BSn                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_BSn treats Snow Erosion and Deposition             |
+!                                                                          |
+!                                                                          |
+!     Preprocessing  Option: STANDARD Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #BS: Explicit Cloud MICROPHYSICS: Blow. *(Snow)         Model        |
+!     #EM: 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                   |
+!                          |      unit  6, SubRoutine  SISVAT_BSn **ONLY** |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! General Variables
+! =================
+
+      USE PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VARxSV
+      USE VARySV
+
+      IMPLICIT NONE
+
+      logical  BloMod
+
+
+! Local Variables
+! ===============
+
+      logical           BlowIn
+      common/llocal_BSn/BlowIn
+
+      real              FacSBS,FacUBS        !
+      real              Por_BS               ! Snow       Porosity
+      real              SheaBS               !
+      real              rCd10n               ! GM97:   assumed neutral stabil.
+      common/rlocal_BSn/FacSBS,FacUBS,       !
+     .                  Por_BS,SheaBS,rCd10n !
+
+      integer  ikl   ,isn   ,isnMAX,is2      !
+      integer  Mobilm,Mobiln                 !
+      integer  Mobile(klonv)                 !
+
+      real     DendOK                        ! Dendricity Switch
+      real     SaltOK                        ! Saltation  Switch
+      real     SnowOK                        ! Pack Top   Switch
+      real     SaltM1,SaltM2,SaltMo,SaltMx   ! Saltation  Parameters
+      real     ShearX                        ! Arg. Max Shear Stress
+      real     SaltSU,Salt_U                 !
+      real     ArgFac,Fac_Mo                 !
+      real     FacRBS,FacTBS                 !
+      real     ArguSi                        !
+      real     SaltSI(klonv,nsno)            ! Snow Drift Index
+      real     hdrift                        ! Inverse erodibl.Snow Lay.Thickn.
+      real     h_mmWE                        ! Eroded Snow Layer Min Thickness
+      real     tfv_vk                        ! * Fall Veloc. / Von Karman Cst
+      real     sdrift(klonv,nsno)            !
+      real     xdrift(klonv)                 !
+      real     zdrift(klonv)                 !
+      real     tdepos(klonv)                 !
+      real     zdepos(klonv,nsno)            !
+      real     dbsaux(klonv)                 ! Drift Amount   (Dummy Variable)
+      real     dzweqo,dzweqn,bsno_x          ! 
+      real                   hsno_x          !
+      real     PorSno,Salt_f,PorRef,ro_new   !
+      real     MIN_Mo                        ! Minimum Mobility Fresh Fallen *
+      real     AgBlow                        ! Snow Mobility    Time  Scale
+      real     snofOK                        ! Threshd Snow Fall
+
+      integer  isagr1(klonv)                 ! 1st     Layer History
+      integer  isagr2(klonv)                 ! 2nd     Layer History
+
+      real     WEagre(klonv)                 ! Snow Water Equivalent Thickness
+      real     Agrege(klonv)                 ! 1. when Agregation constrained
+      real     dzagr1(klonv)                 ! 1st     Layer Thickness
+      real     dzagr2(klonv)                 ! 2nd     Layer Thickness
+      real     T_agr1(klonv)                 ! 1st     Layer Temperature
+      real     T_agr2(klonv)                 ! 2nd     Layer Temperature
+      real     roagr1(klonv)                 ! 1st     Layer Density
+      real     roagr2(klonv)                 ! 2nd     Layer Density
+      real     etagr1(klonv)                 ! 1st     Layer Water Content
+      real     etagr2(klonv)                 ! 2nd     Layer Water Content
+      real     G1agr1(klonv)                 ! 1st     Layer Dendricity/Spher.
+      real     G1agr2(klonv)                 ! 2nd     Layer Dendricity/Spher.
+      real     G2agr1(klonv)                 ! 1st     Layer Sphericity/Size
+      real     G2agr2(klonv)                 ! 2nd     Layer Sphericity/Size
+      real     agagr1(klonv)                 ! 1st     Layer Age
+      real     agagr2(klonv)                 ! 2nd     Layer Age
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0 real     Sno0WE,Sno1WE                 ! Snow Mass before/after Erosion
+! #b0 real     SnodWE                        ! Snow Mass              Erosion
+
+
+! DATA
+! ====
+
+      data     AgBlow  / 1.00     /          ! 1 Day (F.Domine, pers.communic.)
+      data     SaltMx  /-5.83e-2  /          !
+      data     FacRBS  / 2.868    /          !
+      data     FacTBS  / 0.085    /          !
+      data     hdrift  / 1.00e+1  /          ! Inverse erodibl.Snow Lay.Thickn.
+      data     h_mmWE  / 0.01e00  /          ! Eroded Snow Layer Min Thickness
+      data     tfv_vk  / 5.10e-1  /          ! tfv (Terminal Fall Veloc. =.216) 
+                                             ! /vk (Von Karman Constant  =.4  )
+                                             ! (Wamser & Lykosov,   1995 
+                                             !  Contr.Atm.Phys. 68, p.90)
+
+! 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,knonv             ! Parameterization of u*th
+               rCd10n      =  1./  26.5 ! was developed from observations made
+             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)
+! ==============================================
+
+c #BS DO isn=1,nsno
+c #BS DO ikl=1,knonv
+c #BS   agsnSV(ikl,isn) = agsnSV(ikl,isn) + dt__SV/86400.
+c #BS END DO
+c #BS END DO
+c #BS DO ikl=1,knonv
+c #BS   isn    = max(1 ,        isnoSV(ikl))
+c #BS   snofOK = max(0.,sign(1.,dsn_SV(ikl)-eps6))      !  Threshold=1.e-6
+c #BS   agsnSV(ikl,isn) =   (1.-snofOK) *agsnSV(ikl,isn)! ~0.1 mm w.e./day
+c #BS END DO
+      IF (.NOT.BloMod)                                     GO TO 1000
+c #AG STOP '?!&~@|@[#@#] --- INCONSISTANT SNOW AGE --- EMERGENCY STOP'
+ 1000 CONTINUE
+
+
+! EROSION
+! =======
+
+      DO isn = 1, nsno
+      DO ikl = 1,knonv
+
+! Below the high Snow Density Threshold  (ro__SV < BSnoRo)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        DendOK   =  max(zer0,sign(un_1,eps6-G1snSV(ikl,isn)  ))  !
+        SaltOK   =  min(1   , max(istdSV(2)-istoSV(ikl,isn),0))  !
+        SnowOK   =  min(1   , max(isnoSV(ikl)      +1 -isn ,0))  ! Snow Switch
+
+        G1snSV(ikl,isn) =      SnowOK *    G1snSV(ikl,isn)
+     .                  + (1.- SnowOK)*min(G1snSV(ikl,isn),G1_dSV)
+        G2snSV(ikl,isn) =      SnowOK *    G2snSV(ikl,isn)
+     .                  + (1.- SnowOK)*min(G2snSV(ikl,isn),G1_dSV)
+
+        SaltOK   =  SaltOK   * SnowOK
+        SaltM1   = -0.750e-2 * G1snSV(ikl,isn) 
+     .             -0.500e-2 * G2snSV(ikl,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,isn) 
+     .             -0.583d-2 * G2snSV(ikl,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.
+c #MA   MIN_Mo   =  0.6 * exp(-agsnSV(ikl,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__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV        .AND.
+! #b0.      nn__SV(ikl).EQ.nwr_SV.AND.isn        .EQ.isnoSV(ikl))
+! #b0.    write(6,6010) isnoSV(ikl),G1snSV(ikl,isn)/G1_dSV
+! #b0.                             ,G2snSV(ikl,isn)/G1_dSV
+! #b0.                             ,ro__SV(ikl,isn),agsnSV(ikl,isn)
+! #b0.                             ,SaltM1, SaltM2, SaltMo, Salt_U
+! #b0.                             ,us__SV(ikl)   / 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,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)/rCd10n
+        SaltSI(ikl,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)))
+        Salt_U   =               -log(SaltSU)  *FacUBS
+!       Salt_U   :  Guyomarc'h & Merindol, 1997, Ann. Glac.
+
+        usthSV(ikl) =     SnowOK *   (Salt_U   *rCd10n)
+     .              + (1.-SnowOK)*    usthSV(ikl)
+
+c #BA   usthSV(ikl) =     SnowOK *   (Salt_U   /26.5)
+c #BA.              + (1.-SnowOK)*    usthSV(ikl)
+!       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__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV        .AND.
+! #b0.      nn__SV(ikl).EQ.nwr_SV.AND.isn        .EQ.isnoSV(ikl))
+! #b0.    write(6,6011)     Fac_Mo,Por_BS,SaltSI(ikl,isn),usthSV(ikl)
+ 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
+
+
+! Deepest Mobile Snow Layer
+! -------------------------
+
+      DO ikl = 1,knonv
+        Mobile(ikl) = nsno+1
+      END DO
+      DO isn =   nsno ,1,-1
+      DO ikl = 1,knonv
+        isnMAX      =       max(   1,          isnoSV(ikl)             )
+        isnMAX      =       min( isn,          isnMAX                  )
+        Mobiln      = isn * max(zer0,sign(un_1,SaltSI(ikl     ,isnMAX)))
+        Mobilm      =   1 - min(1   ,          Mobile(ikl) -1 -Mobiln)
+!       Mobilm      =   1   ONLY IF   Mobiln = Mobile(ikl) -1 (0 otherwise)
+
+        Mobile(ikl) =                 Mobilm * Mobiln 
+     .              +              (1-Mobilm)* Mobile(ikl)
+      END DO
+      END DO
+
+
+! Weighting the Amount of Snow to erode
+! -------------------------------------
+
+      DO ikl = 1,knonv
+        zdrift(ikl) = 0.0 
+        xdrift(ikl) = 0.0
+        dbsaux(ikl) = dbs_SV(ikl)
+      END DO
+
+      DO isn = 1, nsno
+      DO ikl = 1,knonv
+        zdrift(ikl)     =  zdrift(ikl)
+     .            + 0.50 * dzsnSV(ikl,isn) * (3.25  -SaltSI(ikl,isn))
+        sdrift(ikl,isn) =  SaltSI(ikl,isn)
+     .          *exp(  max(Ea_Min, -zdrift(ikl)     *hdrift     ))
+     .          *min(1,max(0     ,  isn +1          -Mobile(ikl)))
+     .          *min(1,max(0     ,  isnoSV(ikl)     -isn +1     ))
+!                Last 2 Lines force sdrift = 0 outside mobile Snow Layers
+     .          *      max(zer0, sign(un_1,         -dbs_SV(ikl)))
+!                Erosion is allowed only if available Blowing Snow
+        xdrift(ikl)     =           sdrift(ikl,isn) +xdrift(ikl)
+        zdrift(ikl)     =  zdrift(ikl)
+     .            + 0.50 * dzsnSV(ikl,isn) * (3.25  -SaltSI(ikl,isn))
+      END DO
+      END DO
+
+! Normalization
+! ~~~~~~~~~~~~~
+      DO isn = 1, nsno
+      DO ikl = 1,knonv
+        sdrift(ikl,isn) =  sdrift(ikl,isn) /max(eps6,xdrift(ikl))
+      END DO
+      END DO
+
+
+! Weighting the Amount of Snow to depose
+! --------------------------------------
+
+      DO ikl = 1,knonv
+        zdrift(ikl) = 0.0 
+        tdepos(ikl) = 0.0
+      END DO
+
+      DO isn = 1, nsno
+      DO ikl = 1,knonv
+        zdepos(ikl,isn) =      exp(-zdrift(ikl)   )
+     .          *min(1,max(0     ,  isn +1          -Mobile(ikl)))
+     .          *min(1,max(0     ,  isnoSV(ikl    ) -isn +1     ))
+!                Last 2 Lines force zdepos = 0 outside mobile Snow Layers
+        tdepos(ikl) = tdepos(ikl) + zdepos(ikl,isn)
+        zdrift(ikl) = zdrift(ikl) + dzsnSV(ikl,isn) *ro__SV(ikl,isn)
+     .                                              /rhoWat
+      END DO
+      END DO
+
+! Normalization
+! ~~~~~~~~~~~~~
+      DO isn = 1, nsno
+      DO ikl = 1,knonv
+        zdepos(ikl,isn) = zdepos(ikl,isn) / max(eps6,tdepos(ikl))
+      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,knonv
+! #b0   IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV        .AND.
+! #b0.      nn__SV(ikl).EQ.nwr_SV                          )        THEN
+! #b0     Sno0WE =   0.
+! #b0   DO isn=1,nsno
+! #b0     Sno0WE =   Sno0WE 
+! #b0.           +   dzsnSV(ikl,isn) *ro__SV(ikl,isn)
+! #b0   END DO
+! #b0     write(6,6005)   Sno0WE                    ,dbs_SV(ikl)
+ 6005     format(
+     .      18x,'MB0',6x,'Sno1WE [mm]=',f9.3,19x,'0  dbs_SV [mm]=',f9.6)
+! #b0     SnodWE =   dbs_SV(ikl)
+! #b0   END IF
+! #b0 END DO
+
+
+! Weighted  Erosion (Erosion amount is distributed       ! dbs_SV decreases
+! -----------------  over the upper Snow Pack)           ! dzsnSV decreases
+
+      DO isn = 1, nsno
+      DO ikl = 1,knonv
+        SnowOK      = min(1,max(isnoSV(ikl)+1-isn ,0))      ! Snow Switch
+        dzweqo      = dzsnSV(ikl,isn) *ro__SV(ikl,isn)      ! [kg/m2, mm w.e.]
+        bsno_x      = dbsaux(ikl)     *sdrift(ikl,isn)
+        dzweqn      = dzweqo          +bsno_x
+        dzweqn  = max(dzweqn,          h_mmWE *SnowOK)
+        dbs_SV(ikl) = dbs_SV(ikl)    +(dzweqo -dzweqn)
+        dzsnSV(ikl,isn) =              dzweqn
+     .                       /max(eps6,ro__SV(ikl,isn))
+      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,knonv
+! #b0   IF (ii__SV(ikl).EQ. 1 .AND.  jj__SV(ikl) .EQ. 1)            THEN
+! #b0     SnodWE =   SnodWE         -dbs_SV(ikl)
+! #b0     Sno1WE =   0.
+! #b0   DO isn=1,nsno
+! #b0     Sno1WE =   Sno1WE 
+! #b0.           +   dzsnSV(ikl,isn)*ro__SV(ikl,isn)
+! #b0   END DO
+! #b0     write(6,6006)Sno1WE      , dbs_SV(ikl)
+ 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
+
+
+! ACCUMULATION of BLOWN SNOW                             ! dsn_SV decreases
+! --------------------------                             ! dzsnSV increases
+
+        DO ikl = 1,knonv
+          tdepos(ikl) = dsn_SV(ikl) * dsnbSV(ikl) * dt__SV
+          WEagre(ikl) = 0.
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0     IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV      .AND.
+! #b0.        nn__SV(ikl).EQ.nwr_SV.AND.0          .LT.isnoSV(ikl))
+! #b0.        write(6,6003) tdepos(ikl)  ,Mobile(ikl)
+ 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
+
+      DO isn =     nsno,1,-1
+        DO ikl = 1,knonv
+          WEagre(ikl) = WEagre(ikl) + ro__SV(ikl,isn)*dzsnSV(ikl,isn)
+          isagr1(ikl) = istoSV(ikl,isn)
+          isagr2(ikl) = 0.
+
+! Density of deposited blown Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          ro_new =                    BSnoRo
+
+! Density of deposited blown Snow (de Montmollin, 1978)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #EM     PorSno =      1.0d00     -  ro__SV(ikl,isn)
+c #EM.                             /  rhoIce
+c #EM     Salt_f =      usthSV(ikl)/  max(eps6,   us__SV(ikl))
+c #EM     Salt_f =  min(Salt_f     ,  un_1)
+c #EM     PorRef =      PorSno     /  max(eps6,1.-PorSno)
+c #EM.             +log(Salt_f)
+c #EM     Por_BS =      PorRef     / (1.0d00 + PorRef)
+c #EM     ro_new =      rhoIce     * (1.0d00 - Por_BS)
+c #EM     ro_new =  max(ro_new     ,  BSnoRo)
+
+          roagr1(ikl) = ro__SV(ikl,isn)
+          roagr2(ikl) = ro_new
+          hsno_x      = tdepos(ikl)*  zdepos(ikl,isn)
+
+          dzagr1(ikl) = dzsnSV(ikl,isn)
+          dzagr2(ikl) = hsno_x     /  ro_new
+!         Conversion    [kg/m2, i.e., mm w.e.] -----> [mSnow]
+
+          dsn_SV(ikl) = dsn_SV(ikl)-  hsno_x / dt__SV
+
+! Other Snow Properties
+! ~~~~~~~~~~~~~~~~~~~~~
+          T_agr1(ikl) =    TsisSV(ikl,isn)
+          T_agr2(ikl) =min(Tf_Sno,TaT_SV(ikl))
+          etagr1(ikl) =    eta_SV(ikl,isn)
+          etagr2(ikl) =    0.0
+          G1agr1(ikl) =    G1snSV(ikl,isn)
+          G1agr2(ikl) =    G1_dSV
+          G2agr1(ikl) =    G2snSV(ikl,isn)
+          G2agr2(ikl) =    ADSdSV
+c #BY     G2agr2(ikl) =    0.87d0
+!         Budd et al. 1966, 2~m Average /Table 5 p. 97
+
+          agagr1(ikl) =    agsnSV(ikl,isn)
+          agagr2(ikl) =    0.
+          Agrege(ikl) =    1.
+        END DO
+
+! Agregation
+! ~~~~~~~~~~
+!            **********
+        call SISVAT_zAg
+     .                 (isagr1,isagr2,WEagre
+     .                 ,dzagr1,dzagr2,T_agr1,T_agr2
+     .                 ,roagr1,roagr2,etagr1,etagr2
+     .                 ,G1agr1,G1agr2,G2agr1,G2agr2
+     .                 ,agagr1,agagr2,Agrege
+     .                 )
+!            **********
+
+        DO ikl = 1,knonv
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! OUTPUT           for Snow Erosion Variables
+! #b0     IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV      .AND.
+! #b0.        nn__SV(ikl).EQ.nwr_SV.AND.isn        .LE.isnoSV(ikl))
+! #b0.        write(6,6004)   isn          ,SaltSI(ikl,isn)
+! #b0.                     ,sdrift(ikl,isn),zdepos(ikl,isn)
+! #b0.                     ,ro__SV(ikl,isn),roagr2(ikl),roagr1(ikl)
+! #b0.                     ,dzsnSV(ikl,isn),dzagr2(ikl),dzagr1(ikl)
+! #b0.                     ,dsn_SV(ikl)
+ 6004         format((27x,i3,f7.2,2f10.6,3f10.3,4f10.6))
+
+          istoSV(ikl,isn) = isagr1(ikl)
+          dzsnSV(ikl,isn) = dzagr1(ikl)
+          TsisSV(ikl,isn) = T_agr1(ikl)
+          ro__SV(ikl,isn) = roagr1(ikl)
+          eta_SV(ikl,isn) = etagr1(ikl)
+          G1snSV(ikl,isn) = G1agr1(ikl)
+          G2snSV(ikl,isn) = G2agr1(ikl)
+          agsnSV(ikl,isn) = agagr1(ikl)
+
+        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) .GT. 0)
+! #s2.  write(6,6008)isnoSV(1),    dsn_SV(1) *dt__SV + BufsSV(1),
+! #s2.              (dzsnSV(1,isn)*ro__SV(1,isn),isn=1,isnoSV(1))
+ 6008   format(i3,'  dsn+Buf=',f6.2,6x,'A dz *ro =',10f6.2,
+     .                                       (/,35x,10f6.2))
+
+        DO ikl = 1,knonv
+          hdrift      =  tdepos(ikl)/dt__SV
+          esnbSV(ikl) = (dsnbSV(ikl)-1.00)*hdrift/max(dsn_SV(ikl),eps6)
+     .                  +dsnbSV(ikl)
+          dsnbSV(ikl) =          min(un_1,   max(zer0,esnbSV(ikl) )   )
+!         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
+
+      return
+      END
+
+
+      subroutine SISVAT_BDu
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_BDu                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_BDu treats Dust Erosion                            |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     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                    |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! General Variables
+! =================
+
+      USE PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VARxSV
+
+      IMPLICIT NONE
+
+! Local   Variables
+! =================
+
+      integer              ikl   ,  isot
+      real                 ustdmn(0:nsot)
+      real                 claypc(0:nsot)
+      real                 f__ust(0:nvgt)
+      real                 etaust(0:nsot)
+      common /SISVAT_BDu_r/etaust
+      logical              logust
+      common /SISVAT_BDu_L/logust
+      real                 eta_Du,usthDu
+
+
+! DATA
+! ====
+
+      data         (ustdmn(isot),
+     .                        claypc(isot),
+     .                                                   isot=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       !
+      data          (f__ust(isot),                       isot=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
+
+      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,knonv
+        eta_Du      =  max(     eta_SV(ikl,0),etaust(isotSV(ikl))) ! Fal99
+        eta_Du      =  max(eps6,eta_SV(ikl,0)-eta_Du             ) ! Eqn.(15)
+        usthDu      = sqrt(un_1+1.21*exp(0.68*   log(eta_Du)    )) ! p.  155
+     .              *                         ustdmn(isotSV(ikl))  !
+     .              *                         f__ust(ivgtSV(ikl))  !
+        usthSV(ikl) = 
+     .                 usthSV(ikl)*(1-max(0,1-isnoSV(ikl))) +
+     .                 usthDu     *   max(0,1-isnoSV(ikl))
+      END DO
+
+      return
+      END
+
+
+      subroutine SISVAT_SIc
+! #m2.                     (SIvAcr)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_SIc                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_SIc treats Sea-Ice and Ocean Latent Heat Exchanges |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     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:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #IA: Sea-Ice Bottom   accretion  and  ocean cooling                  |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! General Variables
+! =================
+
+      USE PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+
+
+! INPUT/OUTPUT
+! ------------
+
+      USE VARxSV
+
+
+      IMPLICIT NONE
+
+! OUTPUT/Verification: SeaIce Conservation
+! #m2 real      SIvAcr(klonv)                 ! Sea-Ice      Vertical Acretion
+
+
+! Local Variables
+! ===============
+
+      integer             ikl   ,isn
+      real                OCN_OK
+      real                SIceOK
+      real                SIcFrz
+      real                Twat_n
+      real                Crodzw,Lro__I
+      common/SISVAT_SIc_R/Crodzw,Lro__I
+      logical             SIcINI
+      common/SISVAT_SIc_L/SIcINI
+
+      real                SalIce              ! Sea-Ice   Salinity
+      real                SalWat              ! Sea-Water Salinity
+
+
+! DATA
+! ====
+
+      data                SalIce /10./        ! Sea-Ice   Salinity
+      data                SalWat /35./        ! Sea-Water Salinity
+!                         Typical Salinities in Terra Nova Bay
+!                         (Bromwich and Kurtz,   1984, JGR, p.3568;
+!                          Cavalieri and Martin, 1985,      p. 248)
+
+
+! 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,knonv
+        OCN_OK        =  (1   -LSmask(ikl)   )                ! Free Ocean
+     .             *max(0,1   -isnoSV(ikl)   )                !
+c #IA   TsisSV(ikl,0) =        TsisSV(ikl,0)                  ! [K]
+c #IA. -OCN_OK*(Cn_dSV*(Tf_Sno-TaT_SV(ikl)   )                ! [J/kg]
+c #IA.         +LhfH2O*(1.    -eta_SV(ikl,0)))                ! [J/kg]
+c #IA.        * dsn_SV(ikl)   *dt__SV          / Crodzw       ! [kg/m2]
+
+
+! Sea-Ice Formation
+! =================
+
+c #IA   Twat_n      =      max(TsisSV(ikl,0  )  ,Tf_Sea)      ! [K]
+c #IA   SIcFrz      =  (Twat_n-TsisSV(ikl,0  ) )*Crodzw/Lro__I! [m]
+c #IA.                              * 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
+! -----------------
+
+c #IA   HFraSV(ikl) =          SIcFrz           *OCN_OK
+
+
+! Growth of the Sea-Ice First Ice Floe
+! ------------------------------------
+
+c #IA   SIceOK        =  (1   -LSmask(ikl)     )              ! Ice Cover.Ocean
+c #IA.             *min(  1   ,isnoSV(ikl)     )              !
+c #IA   dzsnSV(ikl,1) =        dzsnSV(ikl,1)                  ! Vertical Acret.
+c #IA.                +        SIcFrz           *SIceOK       !
+
+
+! OUTPUT/Verification: SeaIce Conservation: Diagnostic of Surface Mass Balance
+! #m2   SIvAcr(ikl) = rhoIce*SIcFrz     *(OCN_OK+SIceOK)
+! #m2.              - dt__SV*dsn_SV(ikl)* OCN_OK
+
+
+! Water Fluxes Update
+! -------------------
+
+        RnofSV(ikl) =          RnofSV(ikl)
+     .              +          dsn_SV(ikl) *     OCN_OK
+        dsn_SV(ikl) =          dsn_SV(ikl) * (1.-OCN_OK)
+
+      END DO
+
+      return
+      end
+      subroutine SISVAT_zSn
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_zSn                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_zSn manages the Snow Pack vertical Discretization  |
+!                                                                          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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 -nsol,-nsol+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: 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    |
+!--------------------------------------------------------------------------+
+      USE PHY_SV 
+                                 
+      USE VAR_SV
+      USE VARdSV
+                       
+      USE VARxSV 
+      USE VARySV
+                                 
+      USE VAR0SV                                                 
+!      USE VARphy 
+
+      IMPLICIT NONE
+
+
+! Global Variables
+! ================
+
+!      include  'PHY_SV.h'
+!
+!      include  'MAR_SV.inc'
+!      include  'MARdSV.inc'
+!      include  'MAR0SV.inc'
+!
+!      include  'MARxSV.inc'
+!
+
+! Internal Variables
+! ==================
+
+      integer   ikl   ,isn   ,i               !
+
+!      include  'MARySV.inc'
+      integer   NLay_s(klonv)                 ! Split Snow Layer         Switch
+      integer   isagr1(klonv)                 ! 1st     Layer History
+      integer   isagr2(klonv)                 ! 2nd     Layer History
+      integer   LstLay                        ! 0 ====> isnoSV = 1
+      integer   isno_n                        ! Snow Normal.Profile
+      integer   iice_n                        ! Ice  Normal.Profile
+      integer   iiceOK                        ! Ice         Switch
+      integer   icemix                        ! 0 ====> Agregated Snow+Ice=Snow
+                                              ! 1                          Ice
+      integer   isn1  (klonv)                 ! 1st layer to stagger
+      real      staggr                        !              stagger  Switch
+
+      real      WEagre(klonv)                 ! Snow Water Equivalent Thickness
+      real      dzthin(klonv)                 ! Thickness of the thinest layer
+      real      OKthin                        ! Swich ON  a  new thinest layer
+      real      dz_dif                        ! difference from ideal discret.
+      real      thickL                        ! Thick Layer          Indicator
+      real      OK_ICE                        ! Swich ON   uppermost Ice Layer
+
+      real      Agrege(klonv)                 ! 1. when Agregation constrained
+      real      dzepsi                        ! Min Single Snw Layer Thickness
+      real      dzxmin                        ! Min Acceptable Layer Thickness
+      real      dz_min                        ! Min            Layer Thickness
+      real      dz_max                        ! Max            Layer Thickness
+      real      dzagr1(klonv)                 ! 1st     Layer Thickness
+      real      dzagr2(klonv)                 ! 2nd     Layer Thickness
+      real      T_agr1(klonv)                 ! 1st     Layer Temperature
+      real      T_agr2(klonv)                 ! 2nd     Layer Temperature
+      real      roagr1(klonv)                 ! 1st     Layer Density
+      real      roagr2(klonv)                 ! 2nd     Layer Density
+      real      etagr1(klonv)                 ! 1st     Layer Water Content
+      real      etagr2(klonv)                 ! 2nd     Layer Water Content
+      real      G1agr1(klonv)                 ! 1st     Layer Dendricity/Spher.
+      real      G1agr2(klonv)                 ! 2nd     Layer Dendricity/Spher.
+      real      G2agr1(klonv)                 ! 1st     Layer Sphericity/Size
+      real      G2agr2(klonv)                 ! 2nd     Layer Sphericity/Size
+      real      agagr1(klonv)                 ! 1st     Layer Age
+      real      agagr2(klonv)                 ! 2nd     Layer Age
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz logical         as_opn                  ! IO   Switch
+! #vz common/SI_zSn_L/as_opn                  !
+! #vz real      dz_ref(            nsno)      ! Snow Reference Discretization
+! #vz real      dzwdif(            nsno)      !
+
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp logical         VP_opn                  ! IO   Switch
+! #vp common/SI_GSn_L/VP_opn                  !
+
+
+! DATA
+! ====
+
+!      data      icemix /   0    /             ! 0 ====> Agregated Snow+Ice=Snow
+!      data      dzepsi /   0.0015/            ! Min single Layer Thickness 
+!      data      dzxmin /   0.0020/            ! Min accept.Layer Thickness 
+!      data      dz_min /   0.0050/            ! Min Local  Layer Thickness 
+!      data      dz_max /   0.0300/            ! Min Gener. Layer Thickness 
+!hjp250711
+      data      dzepsi /   0.0045/            ! Min single Layer Thickness 
+      data      dzxmin /   0.0060/            ! Min accept.Layer Thickness 
+      data      dz_min /   0.0150/            ! Min Local  Layer Thickness 
+      data      dz_max /   0.0900/            ! Min Gener. Layer Thickness 
+!     CAUTION:  dz_max > dz_min*2 is required ! Otherwise re-agregation is
+                                              ! activated  after splitting
+
+
+! 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,klonv
+          dzthin(ikl) = 0.                              ! Arbitrary unrealistic
+        END DO                                          !       Layer Thickness 
+      DO   isn=1,nsno
+        DO ikl=1,klonv
+          isno_n    =             isnoSV(ikl)-isn+1     ! Snow Normal.Profile
+          iice_n    =             iiceSV(ikl)-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))                !
+
+          dz_dif      = max(zer0,                       ! Actual      Profile
+     .          dz_min                                  !
+     .                 *((1-iiceOK)*isno_n*isno_n       ! Theoretical Profile
+     .                 +    iiceOK *2.   **iice_n)      !
+     .        - dzsnSV(ikl, isn)                    )   ! Actual      Profile
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     dzwdif(isn) =     dz_dif                      !
+
+          OKthin      = max(zer0,                       !
+     .                      sign(un_1,                  !
+     .                           dz_dif-dzthin(ikl)))   ! 1.=> New thinest Lay.
+     .                * max(0,                          ! 1 => .le. isnoSV
+     .                  min(1,                          ! 1 => isn is in the
+     .                      isnoSV(ikl)-isn +1 ))       !          Snow Pack
+     .                * min(un_1,                                !
+!
+!                       1st additional Condition to accept OKthin
+     .                  max(zer0,                                ! combination
+     .                      sign(un_1,G1snSV(ikl,      isn  )    ! G1 with same
+     .                               *G1snSV(ikl,max(1,isn-1)))) !  sign => OK
+!
+!                       2nd additional Condition to accept OKthin
+     .                + max(zer0,                                ! G1>0
+     .                      sign(un_1,G1snSV(ikl,      isn   ))) !  =>OK
+!
+!                       3rd additional Condition to accept OKthin
+     .                + max(zer0,                                ! dz too small
+     .                      sign(un_1,dzxmin                     !  =>OK
+     .                               -dzsnSV(ikl,      isn   ))))!
+
+          i_thin(ikl) =    (1. - OKthin)  * i_thin(ikl) ! Update   thinest Lay.
+     .                         + OKthin   * isn         !                Index
+          dzthin(ikl) =    (1. - OKthin)  * dzthin(ikl) !
+     .                         + OKthin   * dz_dif      !
+        END DO
+      END DO
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4150) daHost   ,n___SV(  lwriSV(1))
+! #vz.                  ,i_thin(1),dzsnSV(1,i_thin(1))
+ 4150     format(/,'-',a18,i5,' ',70('-'),
+     .           /,' Thinest ',i3,':',f9.3)
+
+      DO   isn=1,nsno
+        DO ikl=1,klonv
+          OKthin =      max(zer0,                       !
+     .                      sign(un_1,                  !
+     .                           dzxmin                 !
+     .                          -dzsnSV(ikl,isn)))      !
+     .                * max(zer0,                       ! ON if dz > 0
+     .                      sign(un_1,                  !
+     .                           dzsnSV(ikl,isn)-eps6)) !
+     .           *min(1,max(0,                          ! Multiple Snow    Lay.
+     .                      min (1,                     ! Switch = 1
+     .                           isnoSV(ikl)            !   if isno > iice + 1
+     .                          -iiceSV(ikl)-1))        !
+                                                        !
+     .             +int(max(zer0,                       !
+     .                      sign(un_1,                  !
+     .                           dzepsi                 ! Minimum accepted for
+     .                          -dzsnSV(ikl,isn))))     ! 1 Snow Layer over Ice
+     .             *int(max(zer0,                       ! ON if dz > 0
+     .                      sign(un_1,                  !
+     .                           dzsnSV(ikl,isn)-eps6)))!
+     .                 *(1 -min (abs(isnoSV(ikl)        ! Switch = 1
+     .                              -iiceSV(ikl)-1),1)) !   if isno = iice + 1
+                                                        !
+     .                 +max(0,                          ! Ice
+     .                      min (1,                     ! Switch
+     .                           iiceSV(ikl)+1-isn)))   !
+     .             *min(un_1,                                    !
+     .                  max(zer0,                                ! combination
+     .                      sign(un_1,G1snSV(ikl,      isn  )    ! G1>0 + G1<0
+     .                               *G1snSV(ikl,max(1,isn-1)))) ! NO
+     .                + max(zer0,                                !
+     .                      sign(un_1,G1snSV(ikl,      isn   ))) !
+     .                + max(zer0,                                !
+     .                      sign(un_1,dzxmin                     !
+     .                               -dzsnSV(ikl,      isn   ))))!
+          i_thin(ikl) =    (1. - OKthin)  * i_thin(ikl) ! Update   thinest Lay.
+     .                         + OKthin   * isn         !                Index
+        END DO
+      END DO
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4151) i_thin(1),dzsnSV(1,i_thin(1))
+! #vz.                  ,isnoSV(1),dzsnSV(1,isnoSV(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))
+ 470    format('Before _zCr1: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(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,klonv
+          isn         =    i_thin(ikl)
+          isagr1(ikl) =    istoSV(ikl,isn)
+          isagr2(ikl) =    istoSV(ikl,isn+LIndsv(ikl))
+          dzagr1(ikl) =    dzsnSV(ikl,isn)
+          dzagr2(ikl) =    dzsnSV(ikl,isn+LIndsv(ikl))
+          T_agr1(ikl) =    TsisSV(ikl,isn)
+          T_agr2(ikl) =    TsisSV(ikl,isn+LIndsv(ikl))
+          roagr1(ikl) =    ro__SV(ikl,isn)
+          roagr2(ikl) =    ro__SV(ikl,isn+LIndsv(ikl))
+          etagr1(ikl) =    eta_SV(ikl,isn)
+          etagr2(ikl) =    eta_SV(ikl,isn+LIndsv(ikl))
+          G1agr1(ikl) =    G1snSV(ikl,isn)
+          G1agr2(ikl) =    G1snSV(ikl,isn+LIndsv(ikl))
+          G2agr1(ikl) =    G2snSV(ikl,isn)
+          G2agr2(ikl) =    G2snSV(ikl,isn+LIndsv(ikl))
+          agagr1(ikl) =    agsnSV(ikl,isn)
+          agagr2(ikl) =    agsnSV(ikl,isn+LIndsv(ikl))
+          LstLay      = min(1,max(  0,isnoSV(ikl) -1))  ! 0  if single Layer
+          isnoSV(ikl) =               isnoSV(ikl)       ! decrement   isnoSV
+     .     -(1-LstLay)* max(zer0,                       ! if downmost  Layer
+     .                      sign(un_1,eps_21            ! <  1.e-21 m
+     .                               -dzsnSV(ikl,1)))   !
+          isnoSV(ikl) = max(   0,     isnoSV(ikl)   )   !
+          Agrege(ikl) = max(zer0,                       !
+     .                      sign(un_1,dz_min            ! No Agregation 
+     .                               -dzagr1(ikl)  ))   ! if too thick Layer
+     .                               *LstLay            ! if  a single Layer
+     .                * min( max(0   ,isnoSV(ikl)+1     ! if Agregation
+     .                               -i_thin(ikl)       !    with    a Layer
+     .                               -LIndsv(ikl)  ),1) !    above the Pack
+
+          WEagre(ikl) = 0.
+        END DO
+
+        DO isn=1,nsno
+        DO ikl=1,klonv
+          WEagre(ikl) = WEagre(ikl) + ro__SV(ikl,isn)*dzsnSV(ikl,isn)
+     .                                *min(1,max(0,i_thin(ikl)+1-isn))
+        ENDDO
+        ENDDO
+
+! 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,nsno)
+! #vz write(41,412) (100.*dzwdif(  isn),isn=1,nsno)
+! #vz write(41,413) (100.*dzsnSV(1,isn),isn=1,nsno)
+! #vz write(41,414) (              isn ,isn=1,nsno)
+ 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))
+ 471    format('Before _zAg1: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1))
+
+
+! Agregates
+! ---------
+
+!            **********
+        call SISVAT_zAg
+     .                 (isagr1,isagr2,WEagre
+     .                 ,dzagr1,dzagr2,T_agr1,T_agr2
+     .                 ,roagr1,roagr2,etagr1,etagr2
+     .                 ,G1agr1,G1agr2,G2agr1,G2agr2
+     .                 ,agagr1,agagr2,Agrege
+     .                 )
+!            **********
+
+
+! Rearranges the Layers
+! ---------------------
+
+! New (agregated) Snow layer
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,klonv
+          isn     =             i_thin(ikl)
+          isn     = min(isn,isn+LIndsv(ikl))
+          isnoSV(ikl) =         isnoSV(ikl) -Agrege(ikl)
+          iiceSV(ikl) =         iiceSV(ikl) 
+     .            -max(0,sign(1,iiceSV(ikl) -isn +icemix))
+     .                                      *Agrege(ikl)
+     .            *max(0,sign(1,iiceSV(ikl) -1          ))
+          istoSV(ikl,isn) = (1.-Agrege(ikl))*istoSV(ikl,isn)
+     .                      +   Agrege(ikl) *isagr1(ikl)
+          dzsnSV(ikl,isn) = (1.-Agrege(ikl))*dzsnSV(ikl,isn)
+     .                      +   Agrege(ikl) *dzagr1(ikl)
+          TsisSV(ikl,isn) = (1.-Agrege(ikl))*TsisSV(ikl,isn)
+     .                      +   Agrege(ikl) *T_agr1(ikl)
+          ro__SV(ikl,isn) = (1.-Agrege(ikl))*ro__SV(ikl,isn)
+     .                      +   Agrege(ikl) *roagr1(ikl)
+          eta_SV(ikl,isn) = (1.-Agrege(ikl))*eta_SV(ikl,isn)
+     .                      +   Agrege(ikl) *etagr1(ikl)
+          G1snSV(ikl,isn) = (1.-Agrege(ikl))*G1snSV(ikl,isn)
+     .                      +   Agrege(ikl) *G1agr1(ikl)
+          G2snSV(ikl,isn) = (1.-Agrege(ikl))*G2snSV(ikl,isn)
+     .                      +   Agrege(ikl) *G2agr1(ikl)
+          agsnSV(ikl,isn) = (1.-Agrege(ikl))*agsnSV(ikl,isn)
+     .                      +   Agrege(ikl) *agagr1(ikl)
+        END DO
+
+! Above
+! ^^^^^
+        DO ikl=1,klonv
+          isn1(ikl)=max(i_thin(ikl),i_thin(ikl)+LIndsv(ikl))
+        END DO
+        DO i=  1,nsno-1
+        DO ikl=1,klonv
+            staggr        =  min(1,max(0,i +1 -isn1(ikl)   ))
+            istoSV(ikl,i) = (1.-staggr     )*istoSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*istoSV(ikl,i  )
+     .                      +   Agrege(ikl) *istoSV(ikl,i+1))
+            dzsnSV(ikl,i) = (1.-staggr     )*dzsnSV(ikl,i  ) 
+     .            + staggr*((1.-Agrege(ikl))*dzsnSV(ikl,i  )
+     .                      +   Agrege(ikl) *dzsnSV(ikl,i+1))
+            TsisSV(ikl,i) = (1.-staggr     )*TsisSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*TsisSV(ikl,i  )
+     .                      +   Agrege(ikl) *TsisSV(ikl,i+1))
+            ro__SV(ikl,i) = (1.-staggr     )*ro__SV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*ro__SV(ikl,i  )
+     .                      +   Agrege(ikl) *ro__SV(ikl,i+1))
+            eta_SV(ikl,i) = (1.-staggr     )*eta_SV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*eta_SV(ikl,i  )
+     .                      +   Agrege(ikl) *eta_SV(ikl,i+1))
+            G1snSV(ikl,i) = (1.-staggr     )*G1snSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*G1snSV(ikl,i  )
+     .                      +   Agrege(ikl) *G1snSV(ikl,i+1))
+            G2snSV(ikl,i) = (1.-staggr     )*G2snSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*G2snSV(ikl,i  )
+     .                      +   Agrege(ikl) *G2snSV(ikl,i+1))
+            agsnSV(ikl,i) = (1.-staggr     )*agsnSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*agsnSV(ikl,i  )
+     .                      +   Agrege(ikl) *agsnSV(ikl,i+1))
+        END DO
+        END DO
+
+        DO ikl=1,klonv
+          isn             = min(isnoSV(ikl) +1,nsno)
+          istoSV(ikl,isn) = (1.-Agrege(ikl))*istoSV(ikl,isn)
+          dzsnSV(ikl,isn) = (1.-Agrege(ikl))*dzsnSV(ikl,isn)
+          TsisSV(ikl,isn) = (1.-Agrege(ikl))*TsisSV(ikl,isn)
+          ro__SV(ikl,isn) = (1.-Agrege(ikl))*ro__SV(ikl,isn)
+          eta_SV(ikl,isn) = (1.-Agrege(ikl))*eta_SV(ikl,isn)
+          G1snSV(ikl,isn) = (1.-Agrege(ikl))*G1snSV(ikl,isn)
+          G2snSV(ikl,isn) = (1.-Agrege(ikl))*G2snSV(ikl,isn)
+          agsnSV(ikl,isn) = (1.-Agrege(ikl))*agsnSV(ikl,isn)
+        END DO
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #s1   IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV        .AND.
+! #s1.      nn__SV(ikl).EQ.nwr_SV                          )        THEN
+! #s1     write(6,5991) i_thin(ikl)
+ 5991     format(/,'First Agregation / Layer',i3,
+     .           /,'  i',11x,'T',9x,'rho',10x,'dz',11x,'H')
+! #s1     write(6,5995) (isn,TsisSV(ikl,isn),ro__SV(ikl,isn)
+! #s1.                      ,dzsnSV(ikl,isn),istoSV(ikl,isn),
+! #s1.                   isn=isnoSV(ikl),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,klonv
+          dzthin(ikl) =   0.                            ! Arbitrary unrealistic
+        END DO                                          !       Layer Thickness 
+      DO   isn=1,nsno
+        DO ikl=1,klonv
+          isno_n    =             isnoSV(ikl)-isn+1     ! Snow Normal.Profile
+          iice_n    =             iiceSV(ikl)-isn       ! Ice  Normal.Profile
+          iiceOK    = min(1,max(0,iice_n         +1))   ! Ice         Switch
+          dz_dif    =(      dzsnSV(ikl,isn)             ! Actual      Profile
+     .        - dz_max *((1-iiceOK)*isno_n*isno_n       ! Theoretical Profile
+     .                 +    iiceOK *2.   **iice_n)  )   !
+     .                 /max(dzsnSV(ikl,isn),eps6)       !
+          OKthin      = max(zer0,                       !
+     .                      sign(un_1,                  !
+     .                           dz_dif-dzthin(ikl)))   ! 1.=>New thickest Lay.
+     .                * max(0,                          ! 1 =>.le. isnoSV
+     .                  min(1,                          !
+     .                      isnoSV(ikl)-isn +1 ))       !
+          i_thin(ikl) =    (1. - OKthin)  * i_thin(ikl) !  Update thickest Lay.
+     .                         + OKthin   * isn         !                Index
+          dzthin(ikl) =    (1. - OKthin)  * dzthin(ikl) !
+     .                         + OKthin   * dz_dif      !
+        END DO
+      END DO
+
+      DO   ikl=1,klonv
+          ThickL      = max(zer0,                       ! 1. => a too   thick
+     .                      sign(un_1,dzthin(ikl)       !         Layer exists
+     .                               -eps6       ))     !
+     .        * max(0,1-max(0   ,     isnoSV(ikl)       ! No spliting allowed
+     .                               -nsno+3     ))     ! if isno > nsno - 3
+          Agrege(ikl) =               ThickL            ! 1. => effective split
+     .        * max(0,1-max(0   ,     NLaysv(ikl)       !
+     .                               +isnoSV(ikl)       !
+     .                               -nsno+1     ))     ! 
+          NLay_s(ikl) =               ThickL            ! Agregation
+     .        * max(0,1-max(0   ,     NLaysv(ikl)       ! to allow  Splitting 
+     .                               +isnoSV(ikl)       !   at next Time Step
+     .                               -nsno       ))     !
+     .                               -Agrege(ikl)       ! 
+          NLay_s(ikl) = max(0   ,     NLay_s(ikl))      ! Agregation effective
+      END DO
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4152) i_thin(1),dzthin(1),ThickL
+ 4152     format(/,' Thickest',i3,':',f9.3,'   Split =',f4.0)
+
+
+! Rearranges the Layers
+! ---------------------
+
+      DO isn=nsno,2,-1
+      DO ikl=1,klonv
+        IF (Agrege(ikl).gt.0..AND.i_thin(ikl).lt.isnoSV(ikl))       THEN
+          staggr          =  min(1,max(0,isn-i_thin(ikl)    -1))
+     .                    *  min(1,max(0,    isnoSV(ikl)-isn+2))
+          istoSV(ikl,isn) =        staggr  * istoSV(ikl ,isn-1)
+     .                    + (1. -  staggr) * istoSV(ikl ,isn  )
+          dzsnSV(ikl,isn) =        staggr  * dzsnSV(ikl ,isn-1)
+     .                    + (1. -  staggr) * dzsnSV(ikl ,isn  )
+          TsisSV(ikl,isn) =        staggr  * TsisSV(ikl ,isn-1)
+     .                    + (1. -  staggr) * TsisSV(ikl ,isn  )
+          ro__SV(ikl,isn) =        staggr  * ro__SV(ikl ,isn-1)
+     .                    + (1. -  staggr) * ro__SV(ikl ,isn  )
+          eta_SV(ikl,isn) =        staggr  * eta_SV(ikl ,isn-1)
+     .                    + (1. -  staggr) * eta_SV(ikl ,isn  )
+          G1snSV(ikl,isn) =        staggr  * G1snSV(ikl ,isn-1)
+     .                    + (1. -  staggr) * G1snSV(ikl ,isn  )
+          G2snSV(ikl,isn) =        staggr  * G2snSV(ikl ,isn-1)
+     .                    + (1. -  staggr) * G2snSV(ikl ,isn  )
+          agsnSV(ikl,isn) =        staggr  * agsnSV(ikl ,isn-1)
+     .                    + (1. -  staggr) * agsnSV(ikl ,isn  )
+        END IF
+      END DO
+      END DO
+
+      DO  ikl=1,klonv
+          isn             =     i_thin(ikl)
+          dzsnSV(ikl,isn) = 0.5*Agrege(ikl) *dzsnSV(ikl,isn)
+     .                    + (1.-Agrege(ikl))*dzsnSV(ikl,isn)
+
+          isn             = min(i_thin(ikl) +1,nsno)
+          istoSV(ikl,isn) =     Agrege(ikl) *istoSV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*istoSV(ikl,isn)
+          dzsnSV(ikl,isn) =     Agrege(ikl) *dzsnSV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*dzsnSV(ikl,isn)
+          TsisSV(ikl,isn) =     Agrege(ikl) *TsisSV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*TsisSV(ikl,isn)
+          ro__SV(ikl,isn) =     Agrege(ikl) *ro__SV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*ro__SV(ikl,isn)
+          eta_SV(ikl,isn) =     Agrege(ikl) *eta_SV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*eta_SV(ikl,isn)
+          G1snSV(ikl,isn) =     Agrege(ikl) *G1snSV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*G1snSV(ikl,isn)
+          G2snSV(ikl,isn) =     Agrege(ikl) *G2snSV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*G2snSV(ikl,isn)
+          agsnSV(ikl,isn) =     Agrege(ikl) *agsnSV(ikl,isn-1)
+     .                    + (1.-Agrege(ikl))*agsnSV(ikl,isn)
+          isnoSV(ikl)     =     Agrege(ikl) +isnoSV(ikl)
+          iiceSV(ikl)     =                  iiceSV(ikl)
+     .                    +     Agrege(ikl) *max(0,sign(1,iiceSV(ikl) 
+     .                                                   -isn +icemix))
+     .                                      *max(0,sign(1,iiceSV(ikl) 
+     .                                                   -1          ))
+      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,klonv
+          dzthin(ikl) =   0.                            ! Arbitrary unrealistic
+        END DO                                          !       Layer Thickness 
+      DO   isn=1,nsno
+        DO ikl=1,klonv
+          isno_n    =             isnoSV(ikl)-isn+1     ! Snow Normal.Profile
+          iice_n    =             iiceSV(ikl)-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))                !
+
+          dz_dif      =     dz_min                      ! Actual      Profile
+     .                    - dzsnSV(ikl    ,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)))! 1.=> New thinest Lay.
+     .                * max(0,                          ! 1 => .le. isnoSV
+     .                  min(1,                          !
+     .                      isnoSV(ikl)-isn +1 ))       !
+          i_thin(ikl) =    (1. - OKthin) * i_thin(ikl)  ! Update   thinest Lay.
+     .                         + OKthin  * isn          !                Index
+          dzthin(ikl) =    (1. - OKthin) * dzthin(ikl)  !
+     .                         + OKthin  * dz_dif       !
+
+! OUTPUT/Verification: Snow Thinest Layer  
+! #sd   IF(isn.LE.isnoSV(1).AND.ikl.EQ.1)
+! #sd.    write( 6,6001) isn,dzsnSV(ikl,isn),dz_min*isno_n*isno_n,dz_dif
+! #sd.               ,OKthin,dzthin(ikl),    i_thin(ikl)
+ 6001     format(i3,5f12.6,i9)
+
+        END DO
+      END DO
+
+! OUTPUT/Verification: Snow Thinest Layer  
+! #sd     write( 6,*)   ' '
+
+! OUTPUT/Verification: Snow Layers Agregation
+! #vz     write(41,4153) i_thin(1),dzsnSV(1,i_thin(1))
+ 4153     format(/,' Thinest ',i3,':',f9.3)
+! #vz     write(41,4151) i_thin(1),dzsnSV(1,i_thin(1))
+! #vz.                  ,isnoSV(1),dzsnSV(1,isnoSV(1))
+
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,473)(G1snSV(1,isn),isn=1,isnoSV(1))
+ 473    format('Before _zCr2: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1))
+
+
+! Index of the contiguous Layer to agregate
+! -----------------------------------------
+
+!          **********
+      call SISVAT_zCr
+!          **********
+
+
+! Assign the 2 Layers to agregate
+! -------------------------------
+
+        DO ikl=1,klonv
+          isn         =    i_thin(ikl)
+          isagr1(ikl) =    istoSV(ikl,isn)
+          isagr2(ikl) =    istoSV(ikl,isn+LIndsv(ikl))
+          dzagr1(ikl) =    dzsnSV(ikl,isn)
+          dzagr2(ikl) =    dzsnSV(ikl,isn+LIndsv(ikl))
+          T_agr1(ikl) =    TsisSV(ikl,isn)
+          T_agr2(ikl) =    TsisSV(ikl,isn+LIndsv(ikl))
+          roagr1(ikl) =    ro__SV(ikl,isn)
+          roagr2(ikl) =    ro__SV(ikl,isn+LIndsv(ikl))
+          etagr1(ikl) =    eta_SV(ikl,isn)
+          etagr2(ikl) =    eta_SV(ikl,isn+LIndsv(ikl))
+          G1agr1(ikl) =    G1snSV(ikl,isn)
+          G1agr2(ikl) =    G1snSV(ikl,isn+LIndsv(ikl))
+          G2agr1(ikl) =    G2snSV(ikl,isn)
+          G2agr2(ikl) =    G2snSV(ikl,isn+LIndsv(ikl))
+          agagr1(ikl) =    agsnSV(ikl,isn)
+          agagr2(ikl) =    agsnSV(ikl,isn+LIndsv(ikl))
+          LstLay      = min(1,max(  0,    isnoSV(ikl)-1   ))
+          Agrege(ikl) = min(1,
+     .                  max(0,
+     .                      NLaysv(ikl)   +isnoSV(ikl)-nsno
+     .                     +NLay_s(ikl)                    )
+     .                                    *LstLay           )
+          isnoSV(ikl) =                    isnoSV(ikl)
+     .     -(1-LstLay)*max(zer0,
+     .                     sign(un_1,      eps_21
+     .                                    -dzsnSV(ikl,1)   ))
+          isnoSV(ikl) =max(   0,           isnoSV(ikl)      )
+
+          WEagre(ikl) = 0.
+        END DO
+
+        DO isn=1,nsno
+        DO ikl=1,klonv
+          WEagre(ikl) = WEagre(ikl) + ro__SV(ikl,isn)*dzsnSV(ikl,isn)
+     .                                *min(1,max(0,i_thin(ikl)+1-isn))
+        ENDDO
+        ENDDO
+
+! 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,nsno)
+! #vz write(41,412) (100.*dzwdif(  isn),isn=1,nsno)
+! #vz write(41,413) (100.*dzsnSV(1,isn),isn=1,nsno)
+! #vz write(41,414) (              isn ,isn=1,nsno)
+! #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))
+ 474    format('Before _zAg2: G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1))
+
+
+! Agregates
+! ---------
+
+!            **********
+        call SISVAT_zAg
+     .                 (isagr1,isagr2,WEagre
+     .                 ,dzagr1,dzagr2,T_agr1,T_agr2
+     .                 ,roagr1,roagr2,etagr1,etagr2
+     .                 ,G1agr1,G1agr2,G2agr1,G2agr2
+     .                 ,agagr1,agagr2,Agrege
+     .                 )
+!            **********
+
+
+! Rearranges the Layers
+! ---------------------
+
+! New (agregated) Snow layer
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,klonv
+          isn     =             i_thin(ikl)
+          isn     = min(isn,isn+LIndsv(ikl))
+          isnoSV(ikl) =         isnoSV(ikl) -Agrege(ikl)
+          iiceSV(ikl) =         iiceSV(ikl) 
+     .            -max(0,sign(1,iiceSV(ikl) -isn +icemix))
+     .                                      *Agrege(ikl)
+     .            *max(0,sign(1,iiceSV(ikl) -1          ))
+          istoSV(ikl,isn) = (1.-Agrege(ikl))*istoSV(ikl,isn)
+     .                      +   Agrege(ikl) *isagr1(ikl)
+          dzsnSV(ikl,isn) = (1.-Agrege(ikl))*dzsnSV(ikl,isn)
+     .                      +   Agrege(ikl) *dzagr1(ikl)
+          TsisSV(ikl,isn) = (1.-Agrege(ikl))*TsisSV(ikl,isn)
+     .                      +   Agrege(ikl) *T_agr1(ikl)
+          ro__SV(ikl,isn) = (1.-Agrege(ikl))*ro__SV(ikl,isn)
+     .                      +   Agrege(ikl) *roagr1(ikl)
+          eta_SV(ikl,isn) = (1.-Agrege(ikl))*eta_SV(ikl,isn)
+     .                      +   Agrege(ikl) *etagr1(ikl)
+          G1snSV(ikl,isn) = (1.-Agrege(ikl))*G1snSV(ikl,isn)
+     .                      +   Agrege(ikl) *G1agr1(ikl)
+          G2snSV(ikl,isn) = (1.-Agrege(ikl))*G2snSV(ikl,isn)
+     .                      +   Agrege(ikl) *G2agr1(ikl)
+          agsnSV(ikl,isn) = (1.-Agrege(ikl))*agsnSV(ikl,isn)
+     .                      +   Agrege(ikl) *agagr1(ikl)
+        END DO
+
+! Above
+! ^^^^^
+        DO ikl=1,klonv
+          isn1(ikl)=max(i_thin(ikl),i_thin(ikl)+LIndsv(ikl))
+        END DO
+        DO i=  1,nsno-1
+        DO ikl=1,klonv
+            staggr        =  min(1,max(0,i +1 -isn1(ikl)   ))
+            istoSV(ikl,i) = (1.-staggr     )*istoSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*istoSV(ikl,i  )
+     .                      +   Agrege(ikl) *istoSV(ikl,i+1))
+            dzsnSV(ikl,i) = (1.-staggr     )*dzsnSV(ikl,i  ) 
+     .            + staggr*((1.-Agrege(ikl))*dzsnSV(ikl,i  )
+     .                      +   Agrege(ikl) *dzsnSV(ikl,i+1))
+            TsisSV(ikl,i) = (1.-staggr     )*TsisSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*TsisSV(ikl,i  )
+     .                      +   Agrege(ikl) *TsisSV(ikl,i+1))
+            ro__SV(ikl,i) = (1.-staggr     )*ro__SV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*ro__SV(ikl,i  )
+     .                      +   Agrege(ikl) *ro__SV(ikl,i+1))
+            eta_SV(ikl,i) = (1.-staggr     )*eta_SV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*eta_SV(ikl,i  )
+     .                      +   Agrege(ikl) *eta_SV(ikl,i+1))
+            G1snSV(ikl,i) = (1.-staggr     )*G1snSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*G1snSV(ikl,i  )
+     .                      +   Agrege(ikl) *G1snSV(ikl,i+1))
+            G2snSV(ikl,i) = (1.-staggr     )*G2snSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*G2snSV(ikl,i  )
+     .                      +   Agrege(ikl) *G2snSV(ikl,i+1))
+            agsnSV(ikl,i) = (1.-staggr     )*agsnSV(ikl,i  )
+     .            + staggr*((1.-Agrege(ikl))*agsnSV(ikl,i  )
+     .                      +   Agrege(ikl) *agsnSV(ikl,i+1))
+        END DO
+        END DO
+
+        DO ikl=1,klonv
+          isn             = min(isnoSV(ikl) +1,nsno)
+          istoSV(ikl,isn) = (1.-Agrege(ikl))*istoSV(ikl,isn)
+          dzsnSV(ikl,isn) = (1.-Agrege(ikl))*dzsnSV(ikl,isn)
+          TsisSV(ikl,isn) = (1.-Agrege(ikl))*TsisSV(ikl,isn)
+          ro__SV(ikl,isn) = (1.-Agrege(ikl))*ro__SV(ikl,isn)
+          eta_SV(ikl,isn) = (1.-Agrege(ikl))*eta_SV(ikl,isn)
+          G1snSV(ikl,isn) = (1.-Agrege(ikl))*G1snSV(ikl,isn)
+          G2snSV(ikl,isn) = (1.-Agrege(ikl))*G2snSV(ikl,isn)
+          agsnSV(ikl,isn) = (1.-Agrege(ikl))*agsnSV(ikl,isn)
+        END DO
+
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp   write(47,475)(G1snSV(1,isn),isn=1,isnoSV(1))
+ 475    format('At End _zSn : G1 = ',10f8.1,(/,19x,10f8.1))
+! #vp   write(47,472)(G2snSV(1,isn),isn=1,isnoSV(1))
+
+
+! Search new Ice/Snow Interface
+! =============================
+
+c #II   DO ikl=1,klonv
+c #II     iiceSV(ikl) =  0
+c #II   END DO
+
+c #II   DO isn=1,nsno
+c #II   DO ikl=1,klonv
+c #II     OK_ICE      = max(zer0,sign(un_1,ro__SV(ikl,isn)-850.))
+c #II.                * max(zer0,sign(un_1,dzsnSV(ikl,isn)-eps6))
+c #II     iiceSV(ikl) = (1.-OK_ICE)       *iiceSV(ikl)
+c #II.                +     OK_ICE        *isn
+c #II   END DO
+c #II   END DO
+
+      return 
+      end
+
+                                                            
+                                                            
+      subroutine SISVAT_zCr                                                     
+C +                                                                             
+C +------------------------------------------------------------------------+    
+C | MAR          SISVAT_zCr                                12-12-2002  MAR |    
+C |   SubRoutine SISVAT_zCr determines criteria for Layers Agregation      |    
+C |                                                                        |    
+C +------------------------------------------------------------------------+    
+C |                                                                        |    
+C |   PARAMETERS:  klonv: Total Number of columns =                        |    
+C |   ^^^^^^^^^^        = Total Number of continental     grid boxes       |    
+C |                     X       Number of Mosaic Cell per grid box         |    
+C |                                                                        |    
+C |   INPUT /  isnoSV   = total Nb of Ice/Snow Layers                      |    
+C |   OUTPUT:  iiceSV   = total Nb of Ice      Layers                      |    
+C |   ^^^^^^   ispiSV   = 0,...,nsno: Uppermost Superimposed Ice Layer     |    
+C |            istoSV   = 0,...,5 :   Snow     History (see istdSV data)   |    
+C |                                                                        |    
+C |   INPUT /  ro__SV   : Soil/Snow Volumic Mass                   [kg/m3] |    
+C |   OUTPUT:           & Snow     Temperatures (layers  1,2,...,nsno) [K] |    
+C |   ^^^^^^   G1snSV   : Dendricity (<0) or Sphericity (>0) of Snow Layer |    
+C |            G2snSV   : Sphericity (>0) or Size            of Snow Layer |    
+C |            agsnSV   : Snow       Age                             [day] |    
+C |                                                                        |    
+C |   OUTPUT:  LIndsv   : Relative Index of a contiguous Layer to agregate |    
+C |   ^^^^^^                                                               |    
+C +------------------------------------------------------------------------+    
+C +                                                                             
+C +                                                                             
+      USE VAR_SV
+      USE VARdSV
+ 
+      USE VARySV                      
+      USE VARxSV 
+                                 
+      USE VAR0SV                                                 
+      USE VARphy         
+
+      IMPLICIT NONE                                                       
+C +                                                                             
+C +                                                                             
+C +--Global Variables                                                           
+C +  ================                                                           
+C +                                                                             
+c      include  "LMDZphy.inc"                                                     
+c      include  "LMDZ_SV.inc"                                                     
+c      include  "LMDZdSV.inc"                                                     
+c      include  "LMDZ0SV.inc"                                                     
+C +                                                                             
+c      include  "LMDZxSV.inc"                                                     
+c      include  "LMDZySV.inc"                                                     
+C +                                                                             
+C +                                                                             
+C +--Internal Variables                                                         
+C +  ==================                                                         
+C +                                                                             
+      integer   ikl   ,isn   ,is0   ,is1                                        
+      integer   isno_1                        ! Switch:  ! Snow Layer over Ice  
+      real*8    Dtyp_0,Dtyp_1                 ! Snow Grains Difference Measure  
+      real*8    DenSph                        ! 1. when contiguous spheric      
+C +                                           !     and dendritic  Grains       
+      real*8    DendOK                        ! 1. when dendritic  Grains       
+      real*8    dTypMx                        ! Grain Type Differ.              
+      real*8    dTypSp                        ! Sphericity Weight               
+      real*8    dTypRo                        ! Density    Weight               
+      real*8    dTypDi                        ! Grain Diam.Weight               
+      real*8    dTypHi                        ! History    Weight               
+                                                                                
+                                                                                
+C +--DATA                                                                       
+C +  ====                                                                       
+                                                                                
+      data      dTypMx / 200.0  /             ! Grain Type Weight               
+      data      dTypSp /   0.5  /             ! Sphericity Weight               
+      data      dTypRo /   0.5  /             ! Density    Weight               
+      data      dTypDi /  10.0  /             ! Grain Diam.Weight               
+      data      dTypHi / 100.0  /             ! History    Weight               
+                                                                                
+                                                                                
+C +--Agregation Criteria                                                        
+C +  ===================                                                        
+C +                                                                             
+      DO  ikl=1,knonv                                                           
+          i_thin(ikl) = min(i_thin(ikl),isnoSV(ikl))                            
+          isn         = max(1          ,i_thin(ikl))                            
+C +                                                                             
+C +                                                                             
+C +--Comparison with the downward Layer                                         
+C +  ----------------------------------                                         
+C +                                                                             
+          is0    = max(1,        i_thin(ikl)-1 )        ! Downward Layer Index  
+          DenSph = max(zero,                            ! isn/is1               
+     .                 sign(unun,                       ! Dendricity/Sphericity 
+     .                      epsi-G1snSV(ikl,isn)        !            Switch     
+     .                          *G1snSV(ikl,is0)))      !                       
+          DendOK = max(zero,                            ! Dendricity Switch     
+     .                 sign(unun,                       !                       
+     .                      epsi-G1snSV(ikl,isn)))      !                       
+C +                                                                             
+          Dtyp_0 =                                                              
+     .         DenSph *      dTypMx                                             
+     .    +(1.-DenSph)                                                          
+     .    *    DendOK *((abs(G1snSV(ikl,isn)            ! Dendricity            
+     .                      -G1snSV(ikl,is0))           !     Contribution      
+     .                  +abs(G2snSV(ikl,isn)            ! Sphericity            
+     .                      -G2snSV(ikl,is0))) *dTypSp  !     Contribution      
+     .                  +abs(ro__SV(ikl,isn)            ! Density               
+     .                      -ro__SV(ikl,is0))  *dTypRo) !     Contribution      
+     .    +(1.-DenSph)                                  !                       
+     .    *(1.-DendOK)*((abs(G1snSV(ikl,isn)            ! Sphericity            
+     .                      -G1snSV(ikl,is0))           !     Contribution      
+     .                  +abs(G2snSV(ikl,isn)            ! Size                  
+     .                      -G2snSV(ikl,is0))) *dTypDi  !     Contribution      
+     .                  +abs(ro__SV(ikl,isn)            ! Density               
+     .                      -ro__SV(ikl,is0))  *dTypRo) !     Contribution      
+          Dtyp_0 =                                      !                       
+     .                   min(dTypMx,                    !                       
+     .                       Dtyp_0                     !                       
+     .                  +abs(istoSV(ikl,isn)            ! History               
+     .                      -istoSV(ikl,is0))  *dTypHi) !     Contribution      
+     .        +             (1 -abs(isn-is0))  * 1.e+6  !"Same Layer"Score      
+     .        +  max(0,1-abs(iiceSV(ikl)                !"Ice /Snow             
+     .                                 -is0))  * 1.e+6  ! Interface" Score      
+C +                                                                             
+C +                                                                             
+C +--Comparison with the   upward Layer                                         
+C +  ----------------------------------                                         
+C +                                                                             
+          is1    = min(          i_thin(ikl)+1,         ! Upward   Layer Index  
+     .                 max(1,    isnoSV(ikl)  ))        !                       
+          DenSph = max(zero,                            ! isn/is1               
+     .                 sign(unun,                       ! Dendricity/Sphericity 
+     .                      epsi-G1snSV(ikl,isn)        !            Switch     
+     .                          *G1snSV(ikl,is1)))      !                       
+          DendOK = max(zero,                            ! Dendricity Switch     
+     .                 sign(unun,                       !                       
+     .                      epsi-G1snSV(ikl,isn)))      !                       
+C +                                                                             
+          Dtyp_1 =                                                              
+     .         DenSph *      dTypMx                                             
+     .    +(1.-DenSph)                                                          
+     .    *    DendOK *((abs(G1snSV(ikl,isn)            ! Dendricity            
+     .                      -G1snSV(ikl,is1))           !     Contribution      
+     .                  +abs(G2snSV(ikl,isn)            ! Sphericity            
+     .                      -G2snSV(ikl,is1))) *dTypSp  !     Contribution      
+     .                  +abs(ro__SV(ikl,isn)            ! Density               
+     .                      -ro__SV(ikl,is1))  *dTypRo) !     Contribution      
+     .    +(1.-DenSph)                                  !                       
+     .    *(1.-DendOK)*((abs(G1snSV(ikl,isn)            ! Sphericity            
+     .                      -G1snSV(ikl,is1))           !     Contribution      
+     .                  +abs(G2snSV(ikl,isn)            ! Size                  
+     .                      -G2snSV(ikl,is1))) *dTypDi  !     Contribution      
+     .                  +abs(ro__SV(ikl,isn)            ! Density               
+     .                      -ro__SV(ikl,is1))  *dTypRo) !     Contribution      
+          Dtyp_1 =                                      !                       
+     .                   min(dTypMx,                    !                       
+     .                       Dtyp_1                     !                       
+     .                  +abs(istoSV(ikl,isn)            ! History               
+     .                      -istoSV(ikl,is1))  *dTypHi) !     Contribution      
+     .        +             (1 -abs(isn-is1))  * 1.e+6  !"Same Layer"Score      
+     .        +  max(0,1-abs(iiceSV(ikl)                !"Ice /Snow             
+     .                                 -isn))  * 1.e+6  ! Interface" Score      
+C +                                                                             
+C +                                                                             
+C +--Index of the Layer to agregate                                             
+C +  ==============================                                             
+C +                                                                             
+          LIndsv(ikl) = sign(unun,Dtyp_0                                        
+     .                           -Dtyp_1)                                       
+          isno_1      = (1 -min (abs(isnoSV(ikl)        ! Switch = 1            
+     .                              -iiceSV(ikl)-1),1)) !   if isno = iice +1   
+     .                * (1 -min (abs(isnoSV(ikl)        ! Switch = 1            
+     .                              -i_thin(ikl)  ),1)) !   if isno = i_ithin   
+          LIndsv(ikl) = (1 -isno_1) *LIndsv(ikl)        ! Contiguous Layer is   
+     .                     -isno_1                      ! downward for top L.   
+          i_thin(ikl) =  max(1,   i_thin(ikl)   )                               
+      END DO                                                                    
+C +                                                                             
+      return                                                                    
+      end                                                                       
+                                                                                
+                                                                                
+      subroutine SISVAT_zAg                                                     
+     .                     (isagra,isagrb,WEagra                                
+     .                     ,dzagra,dzagrb,T_agra,T_agrb                         
+     .                     ,roagra,roagrb,etagra,etagrb                         
+     .                     ,G1agra,G1agrb,G2agra,G2agrb                         
+     .                     ,agagra,agagrb,Agreg1                                
+     .                     )                                                    
+                                                                                
+C +------------------------------------------------------------------------+    
+C | MAR SURFACE                                            17-06-2004  MAR |    
+C |   SubRoutine SISVAT_zAg aggregates two contiguous snow layers          |    
+C |                                                                        |    
+C +------------------------------------------------------------------------+    
+C |                                                                        |    
+C |   PARAMETERS:  klonv: Total Number of columns =                        |    
+C |   ^^^^^^^^^^        = Total Number of continental     grid boxes       |    
+C |                     X       Number of Mosaic Cell per grid box         |    
+C |                                                                        |    
+C |   INPUT:   isagrb   : 2nd     Layer History                            |    
+C |   ^^^^^                                                                |    
+C |                                                                        |    
+C |   INPUT:   dzagrb   : 2nd     Layer Thickness                          |    
+C |   ^^^^^    T_agrb   : 2nd     Layer Temperature                        |    
+C |            roagrb   : 2nd     Layer Density                            |    
+C |            etagrb   : 2nd     Layer Water Content                      |    
+C |            G1agrb   : 2nd     Layer Dendricity/Spher.                  |    
+C |            G2agrb   : 2nd     Layer Sphericity/Size                    |    
+C |            agagrb   : 2nd     Age                                      |    
+C |            Agreg1   : 1. when Agregation constrained                   |    
+C |                                                                        |    
+C |   INPUT /  isagra   : 1st     Layer History                            |    
+C |   OUTPUT:                                                              |    
+C |   ^^^^^^                                                               |    
+C |                                                                        |    
+C |   INPUT /  dzagra   : 1st     Layer Thickness                          |    
+C |   OUTPUT:  T_agra   : 1st     Layer Temperature                        |    
+C |   ^^^^^^   roagra   : 1st     Layer Density                            |    
+C |            etagra   : 1st     Layer Water Content                      |    
+C |            G1agra   : 1st     Layer Dendricity/Spher.                  |    
+C |            G2agra   : 1st     Layer Sphericity/Size                    |    
+C |            agagra   : 1st     Age                                      |    
+C |                                                                        |    
+C +------------------------------------------------------------------------+    
+            
+      USE VAR_SV
+      USE VARdSV                      
+      USE VARxSV                 
+      USE VAR0SV                                                 
+      USE VARphy                                                                    
+                                                                                
+      IMPLICIT NONE                                                             
+                                                                                
+                                                                                
+C +--Global Variables                                                           
+C +  ================                                                           
+                                                                                
+c      include  "LMDZphy.inc"                                                     
+c      include  "LMDZ_SV.inc"                                                     
+c      include  "LMDZdSV.inc"                                                     
+c      include  "LMDZ0SV.inc"                                                     
+c      include  "LMDZxSV.inc"                                                     
+                                                                                
+                                                                                
+C +--INPUT                                                                      
+C +  -----                                                                      
+                                                                                
+      integer   isagrb(klonv)                 ! 2nd Layer History               
+      real*8    dzagrb(klonv)                 ! 2nd Layer Thickness             
+      real*8    T_agrb(klonv)                 ! 2nd Layer Temperature           
+      real*8    roagrb(klonv)                 ! 2nd Layer Density               
+      real*8    etagrb(klonv)                 ! 2nd Layer Water Content         
+      real*8    G1agrb(klonv)                 ! 2nd Layer Dendricity/Spher.     
+      real*8    G2agrb(klonv)                 ! 2nd Layer Sphericity/Size       
+      real*8    agagrb(klonv)                 ! 2nd Layer Age                   
+                                                                                
+                                                                                
+C +--INPUT/OUTPUT                                                               
+C +  ------------                                                               
+                                                                                
+      integer   isagra(klonv)                 ! 1st Layer History               
+      real*8    WEagra(klonv)                 ! 1st Layer Height    [mm w.e.]   
+      real*8    Agreg1(klonv)                 ! 1. ===>   Agregates             
+      real*8    dzagra(klonv)                 ! 1st Layer Thickness             
+      real*8    T_agra(klonv)                 ! 1st Layer Temperature           
+      real*8    roagra(klonv)                 ! 1st Layer Density               
+      real*8    etagra(klonv)                 ! 1st Layer Water Content         
+      real*8    G1agra(klonv)                 ! 1st Layer Dendricity/Spher.     
+      real*8    G2agra(klonv)                 ! 1st Layer Sphericity/Size       
+      real*8    agagra(klonv)                 ! 1st Layer Age                   
+                                                                                
+                                                                                
+C +--Internal Variables                                                         
+C +  ==================                                                         
+                                                                                
+      integer   ikl                                                             
+      integer   nh                            ! Averaged    Snow History        
+      integer   nh__OK                        ! 1=>Conserve Snow History        
+      real*8    rh                            !                                 
+      real*8    dz                            ! Thickness                       
+      real*8    dzro_1                        ! Thickness X Density, Lay.1      
+      real*8    dzro_2                        ! Thickness X Density, Lay.2      
+      real*8    dzro                          ! Thickness X Density, Aver.      
+      real*8    ro                            ! Averaged    Density             
+      real*8    wn                            ! Averaged    Water Content       
+      real*8    tn                            ! Averaged    Temperature         
+      real*8    ag                            ! Averaged    Snow Age            
+      real*8    SameOK                        ! 1. => Same Type of Grains       
+      real*8    G1same                        ! Averaged G1,  same Grains       
+      real*8    G2same                        ! Averaged G2,  same Grains       
+      real*8    typ__1                        ! 1. => Lay1 Type: Dendritic      
+      real*8    zroNEW                        ! dz X ro, if fresh Snow          
+      real*8    G1_NEW                        ! G1,      if fresh Snow          
+      real*8    G2_NEW                        ! G2,      if fresh Snow          
+      real*8    zroOLD                        ! dz X ro, if old   Snow          
+      real*8    G1_OLD                        ! G1,      if old   Snow          
+      real*8    G2_OLD                        ! G2,      if old   Snow          
+      real*8    SizNEW                        ! Size,    if fresh Snow          
+      real*8    SphNEW                        ! Spheric.,if fresh Snow          
+      real*8    SizOLD                        ! Size,    if old   Snow          
+      real*8    SphOLD                        ! Spheric.,if old   Snow          
+      real*8    Siz_av                        ! Averaged    Grain Size          
+      real*8    Sph_av                        ! Averaged    Grain Spher.        
+      real*8    Den_av                        ! Averaged    Grain Dendr.        
+      real*8    DendOK                        ! 1. => Average is  Dendr.        
+      real*8    G1diff                        ! Averaged G1, diff. Grains       
+      real*8    G2diff                        ! Averaged G2, diff. Grains       
+      real*8    G1                            ! Averaged G1                     
+      real*8    G2                            ! Averaged G2                     
+                                                                                
+C +--OUTPUT of Snow Agregat.Statistics (see assignation in PHY_SISVAT)          
+C +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                          
+c #EV integer                iEVwri,jEVwri,nEVwri,kEVwri,lEVwri                 
+c #EV common  /SISVAT_EV/    iEVwri,jEVwri,nEVwri,kEVwri,lEVwri                 
+                                                                                
+                                                                                
+C +--Mean   Properties                                                          
+C +  =================                                                          
+                                                                                
+C +-- 1 Densite, Contenu en Eau, Temperature /                                  
+C +     Density, Water Content,  Temperature                                    
+C +     ------------------------------------                                    
+                                                                                
+      DO ikl = 1,knonv                                                          
+          dz      =  dzagra(ikl) + dzagrb(ikl)                                  
+          dzro_1  =  roagra(ikl) * dzagra(ikl)                                  
+          dzro_2  =  roagrb(ikl) * dzagrb(ikl)                                  
+          dzro    =  dzro_1      + dzro_2                                       
+          ro      =  dzro                                                       
+     .     /max(epsi,dz)                                                        
+          wn      = (dzro_1*etagra(ikl) + dzro_2*etagrb(ikl))                   
+     .     /max(epsi,dzro)                                                      
+          tn      = (dzro_1*T_agra(ikl) + dzro_2*T_agrb(ikl))                   
+     .     /max(epsi,dzro)                                                      
+          ag      = (dzro_1*agagra(ikl) + dzro_2*agagrb(ikl))                   
+     .     /max(epsi,dzro)                                                      
+                                                                                
+          rh      =  max(zero,sign(unun,zWEcSV(ikl)-WEagra(ikl)))               
+          nh__OK  =  rh                                                         
+          nh      =  nh__OK *       max(isagra(ikl),isagrb(ikl))                
+     .          + (1-nh__OK)*       min(isagra(ikl),isagrb(ikl))                
+                                                                                
+C +--OUTPUT of Snow Agregation Statistics                                       
+C +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
+c #EV   IF (ikl .EQ. kEVwri .AND. lEVwri .EQ. 3)                    THEN        
+c #EV     write(6,5995) zWEcSV(ikl),WEagra(ikl)                                 
+c #EV.                 ,isagra(ikl),isagrb(ikl)                                 
+c #EV.                 ,nh__OK     ,nh                                          
+ 5995     format(' WE2,WEa =',2f9.1,'  nha,b =',2i2,'  nh__OK,nh =',2i2)        
+c #EV   END IF                                                                  
+                                                                                
+                                                                                
+C +-- 2 Nouveaux Types de Grains /  new Grain Types                             
+C +     -------------------------------------------                             
+                                                                                
+C +-- 2.1. Meme  Type  de Neige  / same Grain Type                              
+C +        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                              
+          SameOK  =  max(zero,                                                  
+     .                   sign(unun, G1agra(ikl) *G1agrb(ikl)  - eps_21))        
+          G1same  = (dzro_1*G1agra(ikl) + dzro_2*G1agrb(ikl))                   
+     .     /max(epsi,dzro)                                                      
+          G2same  = (dzro_1*G2agra(ikl) + dzro_2*G2agrb(ikl))                   
+     .     /max(epsi,dzro)                                                      
+                                                                                
+C +-- 2.2. Types differents / differents Types                                  
+C +        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                                  
+          typ__1  =  max(zero,sign(unun,epsi-G1agra(ikl))) ! =1.=> Dendritic    
+          zroNEW  =     typ__1  *dzro_1                    ! ro of Dendr.Lay.   
+     .            + (1.-typ__1) *dzro_2                    !                    
+          G1_NEW  =     typ__1  *G1agra(ikl)               ! G1 of Dendr.Lay.   
+     .            + (1.-typ__1) *G1agrb(ikl)               !                    
+          G2_NEW  =     typ__1  *G2agra(ikl)               ! G2 of Dendr.Lay.   
+     .            + (1.-typ__1) *G2agrb(ikl)               !                    
+          zroOLD  = (1.-typ__1) *dzro_1                    ! ro of Spher.Lay.   
+     .            +     typ__1  *dzro_2                    !                    
+          G1_OLD  = (1.-typ__1) *G1agra(ikl)               ! G1 of Spher.Lay.   
+     .            +     typ__1  *G1agrb(ikl)               !                    
+          G2_OLD  = (1.-typ__1) *G2agra(ikl)               ! G2 of Spher.Lay.   
+     .            +     typ__1  *G2agrb(ikl)               !                    
+          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(epsi,dzro)                             !                        
+          Sph_av  = (zroNEW*SphNEW+zroOLD*SphOLD)      ! Averaged Sphericity    
+     .     /max(epsi,dzro)                             !                        
+          Den_av  = (Siz_av -(    Sph_av *DScdSV       !                        
+     .                       +(1.-Sph_av)*DFcdSV))     !                        
+     .            / (DDcdSV -(    Sph_av *DScdSV       !                        
+     .                       +(1.-Sph_av)*DFcdSV))     !                        
+          DendOK  = max(zero,                          !                        
+     .                  sign(unun,     Sph_av *DScdSV  ! Small   Grains Contr.  
+     .                            +(1.-Sph_av)*DFcdSV  ! Faceted Grains Contr.  
+     .                            -    Siz_av        ))!                        
+C +...    REMARQUE: le  type moyen (dendritique ou non) depend                  
+C +       ^^^^^^^^  de la  comparaison avec le diametre optique                 
+C +                 d'une neige recente de   dendricite nulle                   
+C +...    REMARK:   the mean type  (dendritic   or not) depends                 
+C +       ^^^^^^    on the comparaison with the optical diameter                
+C +                 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                                          
+                                                                                
+                                                                                
+C +--Assignation to new Properties                                              
+C +  =============================                                              
+                                                                                
+          isagra(ikl)   = Agreg1(ikl) *nh +(1.-Agreg1(ikl)) *isagra(ikl)        
+          dzagra(ikl)   = Agreg1(ikl) *dz +(1.-Agreg1(ikl)) *dzagra(ikl)        
+          T_agra(ikl)   = Agreg1(ikl) *tn +(1.-Agreg1(ikl)) *T_agra(ikl)        
+          roagra(ikl)   = Agreg1(ikl) *ro +(1.-Agreg1(ikl)) *roagra(ikl)        
+          etagra(ikl)   = Agreg1(ikl) *wn +(1.-Agreg1(ikl)) *etagra(ikl)        
+          G1agra(ikl)   = Agreg1(ikl) *G1 +(1.-Agreg1(ikl)) *G1agra(ikl)        
+          G2agra(ikl)   = Agreg1(ikl) *G2 +(1.-Agreg1(ikl)) *G2agra(ikl)        
+          agagra(ikl)   = Agreg1(ikl) *ag +(1.-Agreg1(ikl)) *agagra(ikl)        
+                                                                                
+      END DO                                                                    
+                                                                                
+      return                                                                    
+      end                                             
+
+
+
+      subroutine SnOptP(jjtime)
+
+!--------------------------------------------------------------------------+
+!   MAR/SISVAT   SnOptP                               Sat 12-Feb-2012  MAR |
+!     SubRoutine SnOptP computes the Snow Pack optical Properties          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VARdCP
+
+      USE VARxSV
+      USE VARySV
+
+      IMPLICIT NONE
+
+! Internal Variables
+! ==================
+
+      real      coalb1(klonv)                      ! weighted Coalbedo, Vis.
+      real      coalb2(klonv)                      ! weighted Coalbedo, nIR 1
+      real      coalb3(klonv)                      ! weighted Coalbedo, nIR 2
+      real      coalbm                             ! weighted Coalbedo, mean
+      real      sExt_1(klonv)                      ! Extinction Coeff., Vis.
+      real      sExt_2(klonv)                      ! Extinction Coeff., nIR 1
+      real      sExt_3(klonv)                      ! Extinction Coeff., nIR 2
+      real      SnOpSV(klonv,      nsno)           ! Snow Grain optical Size
+c #AG real      agesno
+
+      integer   isn   ,ikl   ,isn1  ,jjtime
+      real      sbeta1,sbeta2,sbeta3,sbeta4,sbeta5
+      real      AgeMax,AlbMin,HSnoSV,HIceSV,doptmx,SignG1,Sph_OK
+      real      dalbed,dalbeS,dalbeW
+c #CZ real      bsegal,czemax,csegal
+      real      RoFrez,DiffRo,SignRo,SnowOK,OpSqrt
+      real      albSn1,albIc1,a_SnI1,a_SII1!,alb1sv(klonv)
+      real      albSn2,albIc2,a_SnI2,a_SII2!,alb2sv(klonv)
+      real      albSn3,albIc3,a_SnI3,a_SII3!,alb3sv(klonv)
+      real      albSno,albIce,albSnI,albSII,albWIc,albmax
+      real      doptic,Snow_H,SIce_H,SnownH,SIcenH
+      real      exarg1,exarg2,exarg3,sign_0,sExt_0
+      real      albedo_old
+      real      ro_ave,dz_ave
+
+! OUTPUT/Verification: Albedo Parameteriz.
+! #va logical         aw_opn                       ! IO       Switch
+! #va common/SnOptP_L/aw_opn                       !
+
+
+! Local   DATA
+! ============
+
+! For the computation of the solar irradiance extinction in snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      data      sbeta1/0.0192/,sbeta2/0.4000/,sbeta3/0.1098/
+      data      sbeta4/1.0000/
+      data      sbeta5/2.00e1/
+
+! Snow Age Maximum (Taiga, e.g. Col de Porte)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      data      AgeMax  /60.0/
+!               AgeMax:  Snow Age Maximum                              [day]
+
+      data      AlbMin  /0.94/
+!               AlbMin:  Albedo   Minimum / visible (0.3--0.8 micrometers)
+
+      data      HSnoSV  /0.01/
+!               HSnoSV:  Snow     Thickness through witch 
+!                        Albedo is interpolated to Ice  Albedo
+      data      HIceSV  /0.10/
+!               HIceSV:  Snow/Ice Thickness through witch 
+!                        Albedo is interpolated to Soil Albedo
+      data      doptmx  /2.3e-3/
+!               doptmx:  Maximum  optical Diameter    (pi * R**2)        [m]
+!      
+c #CZ data      czeMAX  /0.173648178/  ! 80.deg (Segal et al., 1991 JAS)  
+c #CZ data      bsegal  /4.00       /  !
+      data      albmax  /0.99       /  ! Albedo max
+
+
+! Snow Grain optical Size
+! =======================
+
+      DO   isn=1,nsno
+        DO ikl=1,knonv
+
+          G2snSV(ikl,isn) =  max(eps6,G2snSV(ikl,isn))
+!         Avoid non physical Values
+
+          SignG1          = sign(un_1,G1snSV(ikl,isn))
+          Sph_OK          =  max(zer0,SignG1)
+
+          SnOpSV(ikl,isn) =   1.e-4 *
+!         SI:           (from 1/10 mm to m)
+
+
+! Contribution of Non Dendritic Snow
+! ----------------------------------
+
+     .    (    Sph_OK *(      G2snSV(ikl,isn)*G1snSV(ikl,isn)/G1_dSV
+     .              +max(half*G2snSV(ikl,isn),DFcdSV)
+     .                 *(1.00-G1snSV(ikl,isn)                /G1_dSV))
+
+
+! Contribution of     Dendritic Snow
+! ----------------------------------
+
+     .    +(1.-Sph_OK)*(     -G1snSV(ikl,isn)*DDcdSV         /G1_dSV
+     .                 +(1.00+G1snSV(ikl,isn)                /G1_dSV)
+     .                  *    (G2snSV(ikl,isn)*DScdSV         /G1_dSV
+     .                 +(1.00-G2snSV(ikl,isn)                /G1_dSV)
+     .                                       *DFcdSV                 )))
+          SnOpSV(ikl,isn) =  max(zer0,SnOpSV(ikl,isn))
+        END DO
+      END DO
+
+
+! Snow/Ice Albedo
+! ===============
+
+! Snow Age (Influence on Albedo)
+! ------------------------------
+
+c #AG IF (iabs(mod(jjtime,86400)).lt.dt__SV)                        THEN
+c #AG   DO isn=1,nsno
+c #AG   DO ikl=1,knonv
+c #AG     agsnSV(ikl,isn) = agsnSV(ikl,isn) + 1.
+c #AG.           + max(zer0,DH_dSV(ivgtSV(ikl))-DH_dSV(4)) ! High Vegetation
+!                                                          ! Impurities
+!                           CAUTION: crude parameterization
+!                           ^^^^^^^       
+c #AG   END DO
+c #AG   END DO
+c #AG END IF
+
+
+! Uppermost effective Snow Layer
+! ------------------------------
+
+        DO ikl=1,knonv
+
+           isn   =  max(1,isnoSV(ikl))
+
+          SignRo = sign(un_1, rocdSV - ro__SV(ikl,isn))
+          SnowOK =  max(zer0,SignRo) ! Ice Density Threshold
+
+          OpSqrt = sqrt(SnOpSV(ikl,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,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) ,ispiSV(ikl)),0)
+          Snow_H =  zzsnsv(ikl,isnoSV(ikl))-zzsnsv(ikl,isn)
+          SIce_H =  zzsnsv(ikl,isnoSV(ikl))
+          SnownH =  Snow_H  /  HSnoSV
+          SnownH =  min(un_1,  SnownH)
+          SIcenH =  SIce_H  / (HIceSV
+     .           +  max(zer0,Z0mdSV(ivgtSV(ikl))
+     .           -           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),1,-1
+          ro_ave =  ro_ave + ro__SV(ikl,isn) * dzsnSV(ikl,isn) * SnowOK
+          dz_ave =  dz_ave +                   dzsnSV(ikl,isn) * SnowOK
+          SnowOK =  max(zer0,sign(un_1,1.-dz_ave))
+       enddo
+
+          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) ,ispiSV(ikl)),0)
+
+          albWIc =  aI1dSV-(aI1dSV-aI2dSV)
+     .           *  exp(-rusnSV(ikl)                       !
+     .           *  (1. -SWS_SV(ikl)                       ! 0 <=> freezing
+     .           *  (1  -min(1,iabs(isn-isnoSV(ikl)))))    ! 1 <=> isn=isnoSV
+     .                  /ru_dSV)                           !
+
+          SignRo = sign(un_1,rhoIce-1.-ro__SV(ikl,isn))    ! RoSN<920kg/m3
+          SnowOK =  max(zer0,SignRo)
+
+          albWIc = (1. - SnowOK) * albWIc + SnowOK   
+     .           * (aI2dSV + (aI3dSV -aI2dSV) 
+     .           * (ro__SV(ikl,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)
+
+c #AG     agesno =      min(agsnSV(ikl,isn)          ,AgeMax)
+c #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
+c #CZ     csegal = max(czemax                   ,coszSV(ikl))
+c #cz     dalbeS =   ((bsegal+1.00)/(1.00+2.0*bsegal*csegal)
+c #cz.                -       1.00                          )*0.32
+c #cz.              /  bsegal
+c #cz     dalbeS = max(dalbeS,zer0)
+c #cz     dalbed =     dalbeS      *       min(1,isnoSV(ikl))
+
+c #CZ     dalbeW =(0.64 - csegal  )*0.0625  ! Warren 1982, RevGeo, fig.12b
+                                            ! 0.0625 = 5% * 1/0.8,   p.81
+                                            ! 0.64   = cos(50)
+c #CZ     dalbed =     dalbeW      *       min(1,isnoSV(ikl))
+
+! Col de Porte Integrated Snow/Ice Albedo
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #cp     IF (ColPrt.AND.TotSol.gt.0.)                              THEN
+c #cp       albSII =  (((Dr_1SN*a_SII1+Dr_2SN*a_SII2+Dr_3SN*a_SII3)
+c #cp.                  +dalbed                                    )
+c #cp.                  *DirSol
+c #cp.                 +(Df_1SN*a_SII1+Df_2SN*a_SII2+Df_3SN*a_SII3)
+c #cp.                  *DifSol*(1.   -cld_SV(ikl))
+c #cp.                 +(Dfc1SN*a_SII1+Dfc2SN*a_SII2+Dfc3SN*a_SII3)
+c #cp.                  *DifSol*       cld_SV(ikl)                  )
+c #cp.                 / TotSol
+
+! Elsewhere    Integrated Snow/Ice Albedo
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #cp     ELSE
+            albSII =     So1dSV*a_SII1
+     .                 + So2dSV*a_SII2
+     .                 + So3dSV*a_SII3
+c #cp     END IF
+
+
+! Integrated Snow/Ice/Soil Albedo
+! -------------------------------
+
+            alb1sv(ikl) =     albssv(ikl) +(a_SII1-albssv(ikl))*SIcenH
+            alb1sv(ikl) = min(alb1sv(ikl)  ,a_SII1)
+
+            alb2sv(ikl) =     albssv(ikl) +(a_SII2-albssv(ikl))*SIcenH
+            alb2sv(ikl) = min(alb2sv(ikl)  ,a_SII2)
+
+            alb3sv(ikl) =     albssv(ikl) +(a_SII3-albssv(ikl))*SIcenH
+            alb3sv(ikl) = min(alb3sv(ikl)  ,a_SII3)
+
+            albisv(ikl) =     albssv(ikl) +(albSII-albssv(ikl))*SIcenH
+            albisv(ikl) = min(albisv(ikl)  ,albSII)
+
+
+! Integrated Snow/Ice/Soil Albedo: Clouds Correction! Greuell & all., 1994
+! --------------------------------------------------! Glob.&t Planet.Change
+                                                    ! (9):91-114
+c #cp     IF (.NOT.ColPrt)                                          THEN
+            alb1sv(ikl) = alb1sv(ikl) + 0.05 *(cld_SV(ikl)-0.5)*SIcenH
+c #CZ.                  + dalbed      *    (1.-cld_SV(ikl))
+            alb2sv(ikl) = alb2sv(ikl) + 0.05 *(cld_SV(ikl)-0.5)*SIcenH
+c #CZ.                  + dalbed      *    (1.-cld_SV(ikl))
+            alb3sv(ikl) = alb3sv(ikl) + 0.05 *(cld_SV(ikl)-0.5)*SIcenH
+c #CZ.                  + dalbed      *    (1.-cld_SV(ikl))
+            albisv(ikl) = albisv(ikl) + 0.05 *(cld_SV(ikl)-0.5)*SIcenH
+c #CZ.                  + dalbed      *    (1.-cld_SV(ikl))
+c #cp     END IF
+
+
+! Integrated Snow/Ice/Soil Albedo: Minimum snow albedo = 40%
+! ----------------------------------------------------------
+
+            albedo_old  = albisv(ikl)
+
+            albisv(ikl) = max(albisv(ikl),0.400    * SIcenH 
+     .                  + albssv(ikl) *(1.0        - SIcenH))
+            alb1sv(ikl) = alb1sv(ikl) - 1.0/3.0             ! 33 %
+     .                  * (albedo_old-albisv(ikl)) / So1dSV
+            alb2sv(ikl) = alb2sv(ikl) - 1.0/3.0             ! 33 %
+     .                  * (albedo_old-albisv(ikl)) / So2dSV  
+            alb3sv(ikl) = alb3sv(ikl) - 1.0/3.0             ! 33 %
+     .                  * (albedo_old-albisv(ikl)) / So3dSV
+
+
+! Integrated Snow/Ice/Soil Albedo: Maximum albedo = 99%
+! -----------------------------------------------------
+
+            albedo_old  = albisv(ikl)
+            albisv(ikl) = min(albisv(ikl),0.99)
+            alb1sv(ikl) = alb1sv(ikl) - 1.0/3.0             ! 33 %
+     .                  * (albedo_old-albisv(ikl)) / So1dSV
+            alb2sv(ikl) = alb2sv(ikl) - 1.0/3.0             ! 33 %
+     .                  * (albedo_old-albisv(ikl)) / So2dSV  
+            alb3sv(ikl) = alb3sv(ikl) - 1.0/3.0             ! 33 %
+     .                  * (albedo_old-albisv(ikl)) / So3dSV
+
+            alb1sv(ikl) = min(max(zer0,alb1sv(ikl)),albmax)  
+            alb2sv(ikl) = min(max(zer0,alb2sv(ikl)),albmax)
+            alb3sv(ikl) = min(max(zer0,alb3sv(ikl)),albmax)
+
+        END DO
+
+
+! Extinction Coefficient: Exponential Factor
+! ==========================================
+
+        DO ikl=1,knonv
+          sExt_1(ikl)        = 1.
+          sExt_2(ikl)        = 1.
+          sExt_3(ikl)        = 1.
+          sEX_sv(ikl,nsno+1) = 1.
+
+          coalb1(ikl) = (1.          -alb1sv(ikl))*So1dSV
+          coalb2(ikl) = (1.          -alb2sv(ikl))*So2dSV
+          coalb3(ikl) = (1.          -alb3sv(ikl))*So3dSV
+          coalbm      =  coalb1(ikl) +coalb2(ikl) +coalb3(ikl)
+          coalb1(ikl) =  coalb1(ikl)              /coalbm
+          coalb2(ikl) =  coalb2(ikl)              /coalbm
+          coalb3(ikl) =  coalb3(ikl)              /coalbm
+        END DO
+
+      DO   isn=nsno,1,-1
+        DO ikl=1,knonv
+
+          SignRo = sign(un_1, rocdSV - ro__SV(ikl,isn))
+          SnowOK =  max(zer0,SignRo) ! Ice Density Threshold
+
+          RoFrez =  1.e-3      * ro__SV(ikl,isn) * (1.0-eta_SV(ikl,isn))
+
+          OpSqrt = sqrt(max(eps6,SnOpSV(ikl,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
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #cp     IF (ColPrt.AND.TotSol.gt.0.)                              THEN
+c #cp       exarg1 = exarg1*(Dr_1SN*DirSol
+c #cp.                      +Df_1SN*DifSol*(1.-cld_SV(ikl))
+c #cp.                      +Dfc1SN*DifSol*    cld_SV(ikl) )
+c #cp.                     /(Dr_1SN*TotSol)
+c #cp       exarg2 = exarg2*(Dr_2SN*DirSol
+c #cp.                      +Df_2SN*DifSol*(1.-cld_SV(ikl))
+c #cp.                      +Dfc2SN*DifSol*    cld_SV(ikl) )
+c #cp.                     /(Dr_2SN*TotSol)
+c #cp       exarg3 = exarg3*(Dr_3SN*DirSol
+c #cp.                      +Df_3SN*DifSol*(1.-cld_SV(ikl))
+c #cp.                      +Dfc3SN*DifSol*    cld_SV(ikl) )
+c #cp.                     /(Dr_3SN*TotSol)
+c #cp     END IF
+
+
+! Integrated Extinction of Solar Irradiance (Normalized Value)
+! ============================================================
+
+          sExt_1(ikl) = sExt_1(ikl)
+     .                          * exp(min(0.0,-exarg1 *dzsnSV(ikl,isn)))
+          sign_0      =              sign(un_1,epsn   -sExt_1(ikl))
+          sExt_0      =               max(zer0,sign_0)*sExt_1(ikl)
+          sExt_1(ikl) = sExt_1(ikl)                   -sExt_0
+
+          sExt_2(ikl) = sExt_2(ikl)
+     .                          * exp(min(0.0,-exarg2 *dzsnSV(ikl,isn)))
+          sign_0      =              sign(un_1,epsn   -sExt_2(ikl))
+          sExt_0      =               max(zer0,sign_0)*sExt_2(ikl)
+          sExt_2(ikl) = sExt_2(ikl)                   -sExt_0
+
+          sExt_3(ikl) = sExt_3(ikl)
+     .                          * exp(min(0.0,-exarg3 *dzsnSV(ikl,isn)))
+          sign_0      =              sign(un_1,epsn   -sExt_3(ikl))
+          sExt_0      =               max(zer0,sign_0)*sExt_3(ikl)
+          sExt_3(ikl) = sExt_3(ikl)                   -sExt_0
+
+          sEX_sv(ikl,isn) = coalb1(ikl) * sExt_1(ikl)
+     .                    + coalb2(ikl) * sExt_2(ikl)
+     .                    + coalb3(ikl) * sExt_3(ikl)
+        END DO
+      END DO
+
+      DO   isn=0,-nsol,-1
+        DO ikl=1,knonv
+          sEX_sv(ikl,isn) = 0.0
+        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=1
+! #va     write(46,460)daHost
+ 460      format('---------------------------------+----+',
+     .          '-------+-------+-------+-------+-------+-------+',
+     .                                  '-------+-------+-------+',
+     .         /,'Snow/Ice Pack ',a18,' |    |',
+     .          ' z [m] |0.3/0.8|0.8/1.5|1.5/2.8| Full  |Opt[mm]|',
+     .                                  ' G1    | G2    | ro    |',
+     .         /,'---------------------------------+----+',
+     .          '-------+-------+-------+-------+-------+-------+',
+     .                                  '-------+-------+-------+')
+!         ______________________________________________________________
+! #va     write(46,461)            SIce_H,
+! #va.                             alb1sv(ikl),alb2sv(ikl),alb3sv(ikl),
+! #va.                             albisv(ikl)
+ 461      format('Integrated Snow/Ice/Soil  Albedo |',
+     .            3x,' |',  f6.3,' |' ,4(f6.3,' |'), 6x ,' |',
+     .                                            3( 6x ,' |'))
+!         ______________________________________________________________
+! #va     write(46,462)ispiSV(ikl),a_SII1,a_SII2,a_SII3,albSII
+ 462      format('Integrated Snow/Ice       Albedo |',
+     .            i3,' |',   6x ,' |' ,4(f6.3,' |'), 6x ,' |',
+     .                                            3( 6x ,' |'))
+!         ______________________________________________________________
+! #va     write(46,463)            rusnSV(ikl),         albWIc,
+! #va.                             SWS_SV(ikl)
+ 463      format('Integrated Water/Bare Ice Albedo |',
+     .            3x,' |',  f6.3,'w|' ,3( 6x, ' |'),  
+     .                                   f6.3,' |' ,f6.3,' |',
+     .                                            3( 6x ,' |'))
+!         ______________________________________________________________
+! #va     write(46,465)isn1       ,zzsnsv(ikl,isn1),
+! #va.                             albIc1,albIc2,albIc3,albIce,
+! #va.                        1.e3*SnOpSV(ikl,max(1,isnoSV(ikl)-1)),
+! #va.                             G1snSV(ikl,max(1,isnoSV(ikl)-1)),
+! #va.                             G2snSV(ikl,max(1,isnoSV(ikl)-1)),
+! #va.                             ro__SV(ikl,max(1,isnoSV(ikl)-1))
+! #va.                      *(1. - eta_SV(ikl,max(1,isnoSV(ikl)-1)))
+ 465      format('Surficial       Ice Lense        |',
+     .            i3,' |', (f6.3,'i|'),4(f6.3,' |'),f6.3,' |',
+     .                                            3(f6.1,' |'))
+!         ______________________________________________________________
+! #va     write(46,466)isnoSV(ikl),zzsnsv(ikl,isnoSV(ikl)),
+! #va.                             albSn1,albSn2,albSn3,albSno,
+! #va.                        1.e3*SnOpSV(ikl,isnoSV(ikl)),
+! #va.                             G1snSV(ikl,isnoSV(ikl)),
+! #va.                             G2snSV(ikl,isnoSV(ikl)),
+! #va.                             ro__SV(ikl,isnoSV(ikl))
+! #va.                      *(1. - eta_SV(ikl,isnoSV(ikl)))
+ 466      format('Uppermost  Effective Snow Layer  |',
+     .            i3,' |', (f6.3,'*|'),4(f6.3,' |'),f6.3,' |',
+     .                                            3(f6.1,' |'))
+
+      return
+      end
+
+
+      subroutine VgOptP
+
+!--------------------------------------------------------------------------+
+!   MAR/SISVAT   VgOptP                               Sat 12-Feb-2012  MAR |
+!     SubRoutine VgOptP computes the Canopy    optical Properties          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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  PHY_SV
+
+      USE VAR_SV
+
+      USE VARxSV
+      USE VARySV
+
+
+      IMPLICIT NONE
+ 
+! Internal Variables
+! ==================
+
+      integer   ikl   ,kri
+
+      real      exdRad,k_drad,k___sv(klonv)
+      real      e_prad,e1pRad
+      real      zv_fac,zv1fac,deadLF
+      real      T_Rad0,A_Rad0,A0__sv(klonv)
+      real                    r0_Rad,t0_Rad,nu_Rad
+      real      Tr_Rad,Re_Rad,r__Rad,t__Rad,t1_Rad
+      real      arggam, gamma,gamasv(klonv),gammaL
+      real      denSig,Sig__c,Sigcsv(klonv)
+      real      DDifH1,DDifC1,C1__sv(klonv)
+      real      DDifH2,DDifC2,C2__sv(klonv)
+      real      denS_s,denS_a,den_c1,DDif_L
+      real      u0_Vis,absg_V,absv_V
+      real      u0_nIR,absgnI,absvnI
+      real      argexg,argexk,criLAI(klonv)
+      real      residu,d_DDif,dDDifs,dDDifa
+
+
+! Internal DATA
+! =============
+
+      integer            nvgt
+      parameter         (nvgt=12)
+      real      reVisL(0:nvgt)      ! Reflectivity  / Visible / Live Leaves
+      real      renIRL(0:nvgt)      ! Reflectivity  / Near IR / Live Leaves
+      real      trVisL(0:nvgt)      ! Transmitivity / Visible / Live Leaves
+      real      trnIRL(0:nvgt)      ! Transmitivity / Near IR / Live Leaves
+      real      reVisD(0:nvgt)      ! Reflectivity  / Visible / Dead Leaves
+      real      renIRD(0:nvgt)      ! Reflectivity  / Near IR / Dead Leaves
+      real      trVisD(0:nvgt)      ! Transmitivity / Visible / Dead Leaves
+      real      trnIRD(0:nvgt)      ! Transmitivity / Near IR / Dead Leaves
+
+      real      reVisS              ! Reflectivity  / Visible / Canopy Snow
+      real      renIRS              ! Reflectivity  / Near IR / Canopy Snow
+      real      trVisS              ! Transmitivity / Visible / Canopy Snow
+      real      trnIRS              ! Transmitivity / Near IR / Canopy Snow
+
+      real      snCaMx              ! Canopy Snow Thickness for having Snow
+                                    ! Snow Reflectivity and Transmitivity
+      real      CriStR              ! Critical Radiation Stomatal Resistance
+
+      integer            ivg
+
+      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  IGBP     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
+
+      DATA 
+     .reVisS,renIRS,trVisS,trnIRS
+!     ------ ------ ------ ------+
+     ./0.85,  0.85,  0.00,  0.00/!
+!     REMARK: Possible Refinement by taking actual Surface Snow Reflectivities
+!     ^^^^^^
+
+      DATA      snCaMx /0.5/
+
+      DATA      CriStR /25./
+
+
+! General Parameters, Solar Radiation Absorption
+! ==============================================
+
+      DO ikl=1,knonv
+
+            k_dRad = 0.5 /max(coszSV(ikl),eps6) ! absorbed irradiance fraction
+            e_pRad = 2.5   *  coszSV(ikl)       ! exponential argument,   
+                                                ! V/nIR radiation partitioning,
+                                                ! DR97, 2, eqn (2.53) & (2.54)
+            exdRad =    exp(-k_dRad*LAI_sv(ikl))! exponential, Irradi. Absorpt.
+            e1pRad = 1.-exp(-e_pRad)            ! exponential, V/nIR Rad. Part.
+
+            ivg    =                ivgtSV(ikl) ! Vegetation Type
+            zv_fac =    min( snCaSV(ikl)/snCaMx ! Contribution of Snow to Leaf
+     .                      ,  un_1)            ! Reflectivity and Transmissiv.
+            zv1fac = 1.     -       zv_fac      !
+            deadLF = 1.     -       glf_sv(ikl) ! 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) *ReVisL(ivg) 
+     .             + deadLF      *ReVisD(ivg)
+            Tr_Rad = glf_sv(ikl) *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),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)         ! 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)) *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))*(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) = gamma
+            C1__sv(ikl) = DDifC1
+            C2__sv(ikl) = DDifC2
+            Sigcsv(ikl) = Sig__c
+            k___sv(ikl) = k_dRad
+            A0__sv(ikl) = 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) *RenIRL(ivg) 
+     .             + deadLF      *RenIRD(ivg)
+            Tr_Rad = glf_sv(ikl) *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))          ! Downw.Diffus.Solut.1
+            DDifH2 =  exp(-gamma*LAI_sv(ikl))          ! 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)         ! 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)) *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))*(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) = (u0_Vis+u0_nIR)*0.5d0
+            SoCasv(ikl) = (absv_V+absvnI)*0.5d0
+            SoSosv(ikl) = (absg_V+absgnI)*0.5d0
+
+      END DO
+
+
+! Effective LAI for Transpiration
+! ===============================
+
+        DO ikl=1,knonv
+              criLAI(ikl) = 2.                  ! LAI for which D0_Vis > 20W/m2
+                                                ! DR97, 2, eqn (2.57)
+        END DO
+
+      DO   kri=1,10
+        DO ikl=1,knonv
+
+              argexg      =  min(criLAI(ikl)*gamasv(ikl),     ea_Max)
+              argexk      =  min(criLAI(ikl)*k___sv(ikl),     ea_Max)
+              residu      =      C1__sv(ikl)            *exp( argexg)
+     .                          +C2__sv(ikl)            *exp(-argexg)
+     .                          +A0__sv(ikl)*gamasv(ikl)*exp(-argexk)
+     .                          -CriStR /max(sol_SV(ikl),       eps6)
+
+              d_DDif      =      C1__sv(ikl)*gamasv(ikl)*exp( argexg)
+     .                          -C2__sv(ikl)*gamasv(ikl)*exp(-argexg)
+     .                          -A0__sv(ikl)*k___sv(ikl)*exp(-argexk)
+              dDDifs      = sign(un_1,d_DDif)
+              dDDifa      =  abs(     d_DDif)
+              d_DDif      =  max(eps6,dDDifa) * dDDifs
+
+              criLAI(ikl) =      criLAI(ikl)-residu/d_DDif
+              criLAI(ikl) =  max(criLAI(ikl),zer0       )
+              criLAI(ikl) =  min(criLAI(ikl),LAI_sv(ikl))
+
+        END DO
+      END DO
+
+        DO ikl=1,knonv
+              LAIesv(ikl) = criLAI(ikl) +(exp(-k___sv(ikl)*criLAI(ikl))
+     .                                   -exp(-k___sv(ikl)*LAI_sv(ikl)))
+     .                                  /      k___sv(ikl)
+        END DO
+
+      return
+      end
+
+
+      subroutine ColPrt_SBL
+
+!--------------------------------------------------------------------------+
+!   MAR          ColPrt_SBL                           Sat 12-Feb-2012  MAR |
+!     SubRoutine ColPrt_SBL generates Surface Boundary Layers Properties   |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+
+      USE VARxSV
+      USE VARySV
+
+      IMPLICIT NONE
+
+
+! Internal Variables
+! ==================
+
+      integer   ikl    ,ist    ,ist__s ,ist__w
+      real      d_TaTs ,CD_m
+      real      uustar ,thstar ,qqstar ,ssstar
+      real      thstarv,thstars,thstara
+      real      zeta   ,zeta_S ,zeta_A
+      real      fCdCdP ,Cd_min ,cCdUns
+      real      RapCm0
+
+
+! Internal DATA
+! =============
+
+      data      fCdCdP/ 3.09/   ! Drag Coefficient Factor, Col de Porte
+      data      Cd_min/ 1.05/   ! Drag Coefficient Minimum Col de Porte
+      data      cCdUns/-5.00/   ! Drag Coefficient Correction for Unstability
+
+
+! Aerodynamic Resistances
+! =======================
+
+      DO ikl=1,knonv
+
+! Surface Type
+! ~~~~~~~~~~~~
+        ist    =      isotSV(ikl)                    ! 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)-Tsrfsv(ikl)
+        RapCm0 =  log(za__SV(ikl)/Z0mdSV(4          ))
+     .         /  log(za__SV(ikl)/Z0mdSV(ivgtSV(ikl)))
+        RapCm0 =      RapCm0     *RapCm0             ! Neutral Drag Coefficient
+                                                     ! Vegetation   Correction
+        CD_m   =  max(Cd_min*RapCm0,                 ! Actual  Drag Coefficient
+     .                fCdCdP*RapCm0*VV__SV(ikl)  )   !         for  Momentum
+     .          *(1.+max(min(d_TaTs,zer0),cCdUns)    ! Unstability  Correction
+     .                                   /cCdUns )
+     .          * 1.5
+        ram_sv(ikl) = rhT_SV(ikl) *CpdAir/CD_m
+        rah_sv(ikl) = ram_sv(ikl)
+
+
+! Turbulent Scales
+! ================
+
+! Friction Velocity                   u*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uustar      =      VV__SV(ikl) / ram_sv(ikl)
+        us__SV(ikl) = sqrt(uustar)
+
+! Real    Temperature Turbulent Scale theta*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uts_SV(ikl) =    - d_TaTs      / rah_sv(ikl)
+        thstar      =      uts_SV(ikl) / us__SV(ikl)
+
+! Specific Humidity   Turbulent Scale qq*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        qqstar      =      uqs_SV(ikl) / us__SV(ikl) 
+
+! Virtual Temperature Turbulent Scale thetav*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        thstarv     = thstar      + TaT_SV(ikl) *(0.608*qqstar)
+        thstars     =     sign(un_1,thstarv)
+        thstara     =      abs(     thstarv)
+        thstarv     =      max(eps6,thstara)    *thstars
+
+! Monin Obukhov Scale Height
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~
+        LMO_SV(ikl) = TaT_SV(ikl) * uustar 
+     .              /(vonKrm      * Grav_F     * thstarv)
+        zeta        = za__SV(ikl) / LMO_SV(ikl)
+        zeta_S      =          sign(un_1  ,zeta)
+        zeta_A      =           abs(       zeta)
+        zeta        = zeta_S  * max(eps6  ,zeta_A)
+        LMO_SV(ikl) = za__SV(ikl) / zeta
+
+      END DO
+
+      return
+      end
+
+      subroutine SISVATeSBL
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVATeSBL                           Tue 12-Apr-2011  MAR |
+!     SubRoutine SISVATeSBL generates Surface Boundary Layers Properties   |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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] |
+!              ExnrSV   : Exner      Potential                         [-] |
+!              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 Possibility                          |
+!     ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^^^^^^^                          |
+!     #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: 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)                 |
+!                                                                          |
+!     #ZX  TURBULENCE: Strong Stability Limit (King    et al. 1996)        |
+!     #zx  TURBULENCE: Strong Stability Limit (Mahalov et al. 2004)        |
+!     #IX  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  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+
+      USE VARxSV
+      USE VARySV
+      USE VARtSV
+
+      IMPLICIT NONE
+
+! V,  dT(a-s)    Time Moving Averages
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+cc #AA     integer                       ntaver,nt !
+cc #AA      parameter                    (ntaver= 4)! ntaver defined in MAR_SL.inc
+c #AW real             V__mem(klonv,ntaver)   !                   only
+c #AW real             VVmmem(klonv)          !
+c #AW common/SVeSBLmem/V__mem,VVmmem          !
+c #AH real             T__mem(klonv,ntaver)   !
+c #AH real             dTmmem(klonv)          !
+c #AH common/STeSBLmem/T__mem,dTmmem          !
+
+! u*, u*T*, u*s* Time Moving Averages
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AM real             u__mem(klonv,ntaver)
+c #AT real             uT_mem(klonv,ntaver)
+c #AS real             us_mem(klonv,ntaver)
+c #AM common/S_eSBLmem/u__mem
+c #AT.                ,uT_mem
+c #AS.                ,us_mem
+
+
+! Internal Variables
+! ==================
+
+      integer   ikl   ,icount
+c #AE integer   nit   ,iit
+      real      VVaSBL(klonv),VVa_OK          ! effective SBL wind speed
+      real      dTa_Ts(klonv)                 ! effective SBL Temperature diff.
+      real      Theta0                        ! Potential Reference Temperature
+      real      LMOmom(klonv)                 ! Monin-Obukhov Scale Momentum
+      real      LMOsgn                        ! Monin-Obukhov Scale Sign
+      real      LMOabs                        ! Monin-Obukhov Scale Abs.Value
+      real      uustar,thstar,qqstar,ssstar,thstarv,thstars,thstara
+      real      zetam ,zetah ,zeta_S,zeta_A,zeta0m ,zeta0h
+      real      psim_s,xpsimi,psim_i,psim_z
+      real      psis_s,psis_z,psis_0
+      real      psih_s,xpsihi,psih_i,psih_z
+      real      psim_0,psih_0
+      real      CDm(klonv)                    ! Drag Coefficient, Momentum
+      real      CDs(klonv),rCDs(klonv)        ! Drag Coefficient, Blown **
+      real      CDh(klonv)                    ! Drag Coefficient, Scalar
+      real      dustar,u0star,uTstar,usstar
+      real      sss__F,sss__N,usuth0
+c #AE real      dusuth,signus
+c #AE real      sss__K,sss__G
+c #AE real      us_127,us_227,us_327,us_427,us_527
+      real      zetMAX
+      real      coef_m,coef_h,stab_s
+c #AE real      SblPom
+      real      Richar(klonv)                 ! Richardson Number
+      real      fac_Ri,vuzvun,Kz_vun
+
+! OUTPUT of Snow Erosion Turbulence
+! #b1 real      W_pLMO                        ! Pseudo Obukhov Length  (WRITE)
+! #b1 real      W_psim                        ! Pseudo psim(z)         (WRITE)
+
+! OUTPUT of Snow Erosion Turbulence (2)
+! #b2 real      W_NUs1                        ! Contrib to U* numerat.1(WRITE)
+! #b2 real      W_NUs2                        ! Contrib to U* numerat.2(WRITE)
+! #b2 real      W_NUs3                        ! Contrib to U* numerat.3(WRITE)
+! #b2 real      W_DUs1                        ! Contrib to U* denomin.1(WRITE)
+! #b2 real      W_DUs2                        ! Contrib to U* denomin.2(WRITE)
+
+
+! Internal DATA
+! =============
+
+      data      Theta0/288.0/   ! Potential Reference Temperature
+c #ZX data      zetMAX/ 1.e6/   ! Strong Stability Limit
+c #zx 
+c2306-280611      data      zetMAX/ 1.e1/   ! Strong Stability Lim   
+c2806-290611      data      zetMAX/ 1.e0/   ! Strong Stability Limit
+                                !(Mahalov et al. 2004, GRL  31 2004GL021055)
+chj290911      data      zetMAX/ 4.28/   ! Strong Stability Limit
+c                                !(King    et al. 1996, JGR 101(7) p.19121)
+      data      zetMAX/ 0.0428/   ! Strong Stability Limit
+      data      coef_m/20.  /   ! Stabil.Funct.for Moment.: unstab.coef.
+      data      coef_h/15.  /   ! Stabil.Funct.for Heat:    unstab.coef.
+c #AE data      SblPom/ 1.27/   ! Lower Boundary Height Parameter 
+                                ! for Suspension
+                                ! Pommeroy, Gray and Landine 1993, 
+                                ! J. Hydrology, 144(8) p.169
+c #AE data      nit   / 5   /   ! us(is0,uth) recursivity: Nb Iterations 
+
+
+! Effective SBL variables
+! =======================
+
+      DO ikl=1,knonv
+        VVaSBL(ikl)   = VV__SV(ikl)
+c #AW !hj060511
+        VVaSBL(ikl)   = VVmmem(ikl)
+        dTa_Ts(ikl)   = TaT_SV(ikl)-Tsrfsv(ikl)
+c #AH!hj060511
+        dTa_Ts(ikl)   = dTmmem(ikl)
+      ENDDO
+
+
+! Convergence Criterion
+! =====================
+
+      icount = 0
+
+ 1    CONTINUE
+      icount = icount + 1
+      dustar = 0.
+
+        DO ikl=1,knonv
+
+          u0star      = us__SV(ikl)
+
+! u*, u*T*, u*s* Time Moving Averages
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AM     u0star      = 0.0
+c #AT     uTstar      = 0.0
+c #AS     usstar      = 0.0
+c #AM     DO nt=1,ntaver
+c #AM     u0star      = u0star + u__mem(ikl,nt)
+c #AT     uTstar      = uTstar + uT_mem(ikl,nt)
+c #AS     usstar      = usstar + us_mem(ikl,nt)
+c #AM     ENDDO
+c #AM     u0star      = u0star / ntaver
+c #AM     us__SV(ikl) = u0star
+c #AT     uts_SV(ikl) = uTstar / ntaver
+c #AS     uss_SV(ikl) = usstar / ntaver
+
+
+! Turbulent Scales from previous Time Step
+! ----------------------------------------
+
+          u0star      =      max(eps6,u0star)      ! Friction Velocity     u*
+          uustar      = u0star      * u0star       ! Friction Velocity^2  uu*
+          thstar      = uts_SV(ikl) / u0star       ! Temperature       theta*
+          qqstar      = uqs_SV(ikl) / u0star       ! Specific Humidity    qq*
+          ssstar      = uss_SV(ikl) / 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)-qsnoSV(ikl))
+          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) = Theta0      * max(eps6,uustar)
+     .                /(vonKrm      * Grav_F  *thstarv)
+
+! OUTPUT of Snow Erosion Turbulence
+! #b1     W_pLMO      = LMO_SV(ikl)
+
+          zetah       = za__SV(ikl) / LMO_SV(ikl)
+          zetam       =           min(zetMAX,zetah)! Strong Stability Limit
+                                                   !(Mahalov et al. 2004
+                                                   ! GRL 31 2004GL021055)
+          LMOmom(ikl) = za__SV(ikl) /(max(eps6,abs(zetam))
+     .                              *sign(un_1,    zetam ))
+          zeta0m      = Z0m_SV(ikl) / LMOmom(ikl)
+          zeta0h      = Z0h_SV(ikl) / LMO_SV(ikl)
+
+! 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*)
+c #AE     thstarv     = thstar      + Theta0      *(0.608*qqstar
+c #AE.                                                   -ssstar
+c #AE.                                             )
+c #AE.                             /(1.+0.608*QaT_SV(ikl)-qsnoSV(ikl))
+c #AE     thstars     =     sign(un_1,thstarv)
+c #AE     thstara     =      abs(     thstarv)
+c #AE     thstarv     =      max(eps6,thstara)    *thstars
+
+! Full   Obukhov Length Scale        (Gall?e et al. 2001, BLM 99, (A1) p.16)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AE     LMO_SV(ikl) = Theta0      * us__SV(ikl)* us__SV(ikl)
+c #AE.                /(vonKrm      * Grav_F     * thstarv)
+
+c #AE     zetah       = za__SV(ikl) / LMO_SV(ikl)
+c #AE     zetam       =           min(zetMAX,zetah)! Strong Stability Limit
+                                                   !(Mahalov et al. 2004
+                                                   ! GRL 31 2004GL021055)
+c #AE     LMOmom(ikl) = za__SV(ikl) /(max(eps6,abs(zetam))
+c #AE.                              *sign(un_1,    zetam ))
+c #AE     zeta0m      = Z0m_SV(ikl) / LMOmom(ikl)
+
+! Snow Erosion    Stability Function (Gall?e et al. 2001, BLM 99, (11) p. 7)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AE     stab_s      =  max(zer0,sign(un_1,zetam))
+
+c #AE     psis_s      =  -AsStab *zetam
+c #AE     xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zetam)))
+c #AE     psim_i      =   2. *log(half*(un_1+xpsimi)) 
+c #AE.                       +log(half*(un_1+xpsimi*xpsimi))
+c #AE.                   -2.*atan(xpsimi)   +half*piNmbr
+c #AE     psis_z      =    stab_s*psis_s+(1.-stab_s)*psim_i
+
+c #AE     psis_s      =  -AsStab *zeta0m
+c #AE     xpsimi      = sqrt(sqrt(un_1-coef_m*min(zer0,zeta0m)))
+c #AE     psim_i      =   2. *log(half*(un_1+xpsimi)) 
+c #AE.                       +log(half*(un_1+xpsimi*xpsimi))
+c #AE.                   -2.*atan(xpsimi)   +half*piNmbr
+c #AE     psis_0      =    stab_s*psis_s+(1.-stab_s)*psim_i
+
+! Square Roots of the Drag Coefficient for Snow Erosion Turbulent Flux
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AE     rCDmSV(ikl) = vonKrm/(sqrCm0(ikl)-psim_z+psim_0)
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ss     IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV      .AND.
+! #ss.        nn__SV(ikl).EQ.nwr_SV                          )
+! #ss.    write(6,6600)  Z0m_SV(ikl) , psim_z
+! #ss.                  ,LMO_SV(ikl) , uustar
+! #ss.                  ,sqrCm0(ikl) , psim_0
+! #ss.                  ,LMOmom(ikl) , 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)
+
+
+! Momentum            Turbulent Scale  u*
+! ---------------------------------------
+
+! Momentum            Turbulent Scale  u*          in case of NO Blow. Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          VVa_OK      =  max(0.000001,       VVaSBL(ikl))
+          sss__N      =  vonKrm      *       VVa_OK
+          sss__F      = (sqrCm0(ikl) - psim_z + psim_0)
+          usuth0      =  sss__N /sss__F                ! u* if NO Blow. Snow
+
+! Momentum            Turbulent Scale  u*          in case of    Blow. Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AE     sss__G      =  0.27417     * Grav_F
+
+! ______________               _____
+! Newton-Raphson (! Iteration, BEGIN)
+! ~~~~~~~~~~~~~~               ~~~~~
+c #AE     DO iit=1,nit
+c #AE     sss__K      =  Grav_F      * r_Stab * A_Stab *za__SV(ikl)
+c #AE.                                     *rCDmSV(ikl)*rCDmSV(ikl)
+c #AE.                           /(1.+0.608*QaT_SV(ikl)-qsnoSV(ikl))
+c #AE     us_127      =  exp(    SblPom *log(us__SV(ikl)))
+c #AE     us_227      =  us_127         *    us__SV(ikl)
+c #AE     us_327      =  us_227         *    us__SV(ikl)
+c #AE     us_427      =  us_327         *    us__SV(ikl)
+c #AE     us_527      =  us_427         *    us__SV(ikl)
+
+c #AE     us__SV(ikl) =  us__SV(ikl)
+c #AE.    - (  us_527     *sss__F     /sss__N
+c #AE.      -  us_427
+c #AE.      -  us_227     *qsnoSV(ikl)*sss__K
+c #AE.      + (us__SV(ikl)*us__SV(ikl)-usthSV(ikl)*usthSV(ikl))/sss__G)
+c #AE.     /(  us_427*5.27*sss__F     /sss__N
+c #AE.      -  us_327*4.27
+c #AE.      -  us_127*2.27*qsnoSV(ikl)*sss__K
+c #AE.      +  us__SV(ikl)*2.0                                 /sss__G)
+
+c #AE     us__SV(ikl)= min(us__SV(ikl),usuth0)
+c #AE     us__SV(ikl)= max(us__SV(ikl),eps6  )
+c #AE     rCDmSV(ikl)=     us__SV(ikl)/VVa_OK
+! #aE     sss__F     =     vonKrm     /rCDmSV(ikl)
+c #AE     ENDDO
+! ______________               ___  
+! Newton-Raphson (! Iteration, END  )
+! ~~~~~~~~~~~~~~               ~~~  
+
+c #AE     us_127      =  exp(    SblPom *log(us__SV(ikl)))
+c #AE     us_227      =  us_127         *    us__SV(ikl)
+
+! Momentum            Turbulent Scale  u*: 0-Limit in case of no Blow. Snow
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AE     dusuth      =  us__SV(ikl) - usthSV(ikl)       ! u* - uth*
+c #AE     signus      =  max(sign(un_1,dusuth),zer0)     ! 1 <=> u* - uth* > 0
+          us__SV(ikl) =                                  !
+c #AE.                   us__SV(ikl)  *signus  +         ! u* (_BS)
+     .                   usuth0                          ! u* (nBS)
+c #AE.                            *(1.-signus)           !
+
+
+! Blowing Snow        Turbulent Scale ss*
+! ---------------------------------------
+
+c #AE     hSalSV(ikl) = 8.436e-2  *exp(SblPom  *log(us__SV(ikl)))
+c #AE     qSalSV(ikl) = (us__SV(ikl) * us__SV(ikl)
+c #AE.                  -usthSV(ikl) * usthSV(ikl))*signus
+c #AE.                / (sss__G      * us_227     )
+
+c #ae     qSalSV(ikl) = (us__SV(ikl) * us__SV(ikl)
+c #ae.                  -usthSV(ikl) * usthSV(ikl))
+c #ae.                  *signus      * us__SV(ikl) *3.25
+c #ae.                 /(hSalSV(ikl) * Grav_F           )
+
+c #AE     ssstar      =  rCDmSV(ikl) *(qsnoSV(ikl) -qSalSV(ikl))
+c #AE.                 * r_Stab
+
+c #AE     uss_SV(ikl) =  min(zer0    , us__SV(ikl) *ssstar)
+c #BS     uss_SV(ikl) =  max(-0.002  , uss_SV(ikl)        )
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ss     IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV      .AND.
+! #ss.        nn__SV(ikl).EQ.nwr_SV                          )      THEN
+! #ss     write(6,6000)  daHost     ,     icount     ,
+! #ss.                   us__SV(ikl),1.e3*hSalSV(ikl),
+! #ss.              1.e3*Z0m_SV(ikl),
+! #ss.              1.e3*qsnoSV(ikl),1.e3*qSalSV(ikl)
+! #ss.                  ,usthSV(ikl),     us__SV(ikl)-usthSV(ikl),
+! #ss.              1.e3*ssstar     ,1.e3*us__SV(ikl)*ssstar
+ 6000     format(a18,i3,6x,'u*   [m/s] =',f6.3,'   hSalt[mm]='  ,e9.3,
+     .                  '   Z0m   [mm] =',f9.3,'   q   [g/kg] =',f9.3,
+     .               /,91x,                    '   qSa [g/kg] =',f9.3,
+     .               /,27x, 'ut*[m/s]='  ,e9.3,'   u*-ut*   ='  ,e9.3,
+     .                  '   s*  [g/kg] =',f9.3,'   us* [mm/s] =',f9.3)
+! #ss     END IF
+
+
+! Virtual Temperature Turbulent Scale thetav*    (ss* impact included)
+! --------------------------------------------------------------------
+
+c #AE     thstarv     = thstar      + Theta0      *(0.608*qqstar
+c #AE.                                                   -ssstar
+c #AE.                                             )
+c #AE.                             /(1.+0.608*QaT_SV(ikl)-qsnoSV(ikl))
+c #AE     thstars     =     sign(un_1,thstarv)
+c #AE     thstara     =      abs(     thstarv)
+c #AE     thstarv     =      max(eps6,thstara)    *thstars
+
+
+! Full   Obukhov Length Scale (Gall?e et al., 2001, BLM 99, (A1) p.16)
+! --------------------------------------------------------------------
+
+c #AE     LMO_SV(ikl) = Theta0      * us__SV(ikl)* us__SV(ikl) 
+c #AE.                /(vonKrm      * Grav_F     * thstarv)
+
+c #AE     zetah       = za__SV(ikl) / LMO_SV(ikl)
+c #AE     zetam       =           min(zetMAX,zetah)! Strong Stability Limit
+                                                   !(Mahalov et al. 2004
+                                                   ! GRL 31 2004GL021055)
+c #AE     LMOmom(ikl) = za__SV(ikl) /(max(eps6,abs(zetam))
+c #AE.                              *sign(un_1,    zetam ))
+c #AE     zeta0m      = Z0m_SV(ikl) / LMOmom(ikl)
+c #AE     zeta0h      = Z0h_SV(ikl) / LMO_SV(ikl)
+
+! OUTPUT in SISVAT at specified i,j,k,n (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+! #ss     IF (ii__SV(ikl).EQ.iwr_SV.AND.jj__SV(ikl).EQ.jwr_SV      .AND.
+! #ss.        nn__SV(ikl).EQ.nwr_SV                          )      THEN
+! #ss     write(6,6001)  LMO_SV(ikl)    ,    zetah
+ 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 (Gall?e 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) = vonKrm*(ExnrSV(ikl)/p0_kap)
+     .                        /(sqrCh0(ikl)-psih_z+psih_0)
+          rCDmSV(ikl) = vonKrm/(sqrCm0(ikl)-psim_z+psim_0)
+
+! Drag Coefficients
+! ~~~~~~~~~~~~~~~~~
+          CDh(ikl)    = rCDmSV(ikl) * rCDhSV(ikl)
+          CDm(ikl)    = rCDmSV(ikl) * rCDmSV(ikl)
+
+! Real    Temperature Turbulent Scale theta*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          thstar      = rCDhSV(ikl) * dTa_Ts(ikl)
+     .                              *(p0_kap     /ExnrSV(ikl))
+          uts_SV(ikl) = us__SV(ikl) * thstar
+
+
+! Convergence Criterion
+! =====================
+
+          dustar      = max(dustar,abs(us__SV(ikl)-u0star))
+
+! u*, u*T*, u*s* Time Moving Averages
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #AM     DO nt=   1,ntaver-1
+c #AM     u__mem(ikl,nt    ) = u__mem(ikl,nt+1)
+c #AT     uT_mem(ikl,nt    ) = uT_mem(ikl,nt+1)
+c #AS     us_mem(ikl,nt    ) = us_mem(ikl,nt+1)
+c #AM     ENDDO
+c #AM     u__mem(ikl,ntaver) = us__SV(ikl)
+c #AT     uT_mem(ikl,ntaver) = uts_SV(ikl)
+c #AS     us_mem(ikl,ntaver) = uss_SV(ikl)
+
+! OUTPUT of Snow Erosion Turbulence
+! #b1    IF (icount     .EQ.1  )                                    THEN
+! #b1     write(6,6004)
+ 6004     format(122('-'))
+! #b1    IF (mod(VVaSBL(ikl),4.).LT.0.1)                            THEN
+! #b1     write(6,6003)
+ 6003     format('   V  Ta-Ts  Z0      It'
+     .   ,' du*     u*    sss__F   CD       Qss       Qs*     '
+     .   ,' 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),dTa_Ts(ikl),Z0m_SV(ikl),icount
+! #b1.                 ,dustar     ,us__SV(ikl),sss__F
+! #b1.                 ,   CDm(ikl),qSalSV(ikl),ssstar
+! #b1.                 ,W_pLMO     ,LMO_SV(ikl)
+! #b1.                 ,zetam      ,zetah      ,W_psim     ,psih_z
+ 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)
+ 6014     format(100('-'))
+! #b2    IF (mod(VVaSBL(ikl),4.).LT.0.1)                            THEN
+! #b2     write(6,6013)
+ 6013     format('   V  Ta-Ts  Z0      It'
+     .   ,' du*     u*    sss__F   W_NUs1   W_NUs2   W_NUs3      '
+     .   ,' W_DUs1     W_DUs2 ')
+! #b2     write(6,6014)
+! #b2    END IF
+! #b2    END IF
+! #b2     write(6,6012) VVaSBL(ikl),dTa_Ts(ikl),Z0m_SV(ikl),icount
+! #b2.                 ,dustar     ,us__SV(ikl),sss__F
+! #b2.                 ,W_NUs1     ,W_NUs2     ,W_NUs3     
+! #b2.                 ,W_DUs1     ,W_DUs2     
+ 6012     format(2f6.1,f8.4,i3,f9.6,f6.3,f9.3,3f9.3,2f12.3)
+
+        END DO
+c #IX IF (                     icount.lt. 3)                     GO TO 1
+! hjp if parallel mode, use   IF (                     icount.lt. 3)
+!     IF (dustar.gt.0.0001.AND.icount.lt. 6)                     GO TO 1
+
+
+c #AM   DO ikl=1,knonv
+c #AM     u0star      =      0.0
+c #AT     uTstar      =      0.0
+c #AS     usstar      =      0.0
+c #AM     DO nt=1,ntaver
+c #AM     u0star      = u0star + u__mem(ikl,nt)
+c #AT     uTstar      = uTstar + uT_mem(ikl,nt)
+c #AS     usstar      = usstar + us_mem(ikl,nt)
+c #AM     ENDDO
+c #AM     us__SV(ikl) = u0star / ntaver
+c #AT     uts_SV(ikl) = uTstar / ntaver
+c #AS     uss_SV(ikl) = usstar / ntaver
+c #AM   END DO
+
+
+! Aerodynamic Resistances
+! -----------------------
+
+        DO ikl=1,knonv
+          ram_sv(ikl) = 1./(CDm(ikl)*max(VVaSBL(ikl),eps6))
+          rah_sv(ikl) = 1./(CDh(ikl)*max(VVaSBL(ikl),eps6))
+        END DO
+
+
+      return
+      end
+
+
+
+
+      subroutine SISVAT_SBL
+ 
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_SBL                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_SBL generates Surface Boundary Layers Properties   |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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] |
+!              ExnrSV   : Exner      Potential                         [-] |
+!              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  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+ 
+      USE VARxSV
+      USE VARySV
+
+      IMPLICIT NONE 
+ 
+! Internal Variables
+! ==================
+ 
+      integer   ikl    ,ist    ,ist__s ,ist__w
+      real      CD_m_0 ,CD_h_0 ,ram0   ,rah0  ,rahMIN
+      real      d_TaTs ,RiB__D ,RiBulk
+      real      bmstab ,Am1_FU ,Am2_FU ,Fm_Uns
+      real      bhstab ,Ah1_FU ,Ah2_FU ,Fh_Uns,dFh_Un
+      real      Aux_FS ,FStabl ,dFSdRi ,Stabil,Fm_loc
+      real      uustar ,thstar ,qqstar ,ssstar
+      real      thstarv,thstars,thstara
+      real      zeta   ,zeta_S ,zeta_A
+      real      zetMAX
+ 
+ 
+! Internal DATA
+! =============
+ 
+      data      zetMAX/ 4.28/   ! Strong Stability Limit
+!                               !(King et al. 1996, JGR 101(7) p.19121)
+ 
+! Aerodynamic Resistances
+! =======================
+ 
+      DO ikl=1,knonv
+ 
+! Surface Type
+! ~~~~~~~~~~~~
+        ist    =      isotSV(ikl)                    ! 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)*sqrCm0(ikl)) ! Neutral Drag Coeff.Mom.
+        CD_h_0 =  0.16/    (sqrCm0(ikl)*sqrCh0(ikl)) ! Neutral Drag Coeff.Heat
+        ram0   =  1.0 /    (CD_m_0     *VV__SV(ikl)) ! Neutral Aero Resis.Mom.
+        rah0   =  1.0 /    (CD_h_0     *VV__SV(ikl)) ! Neutral Aero Resis.Heat
+ 
+! Bulk Richardson Number
+! ~~~~~~~~~~~~~~~~~~~~~~
+        RiB__D =          VV__SV(ikl) *VV__SV(ikl)
+     .                   *TaT_SV(ikl)
+        d_TaTs =         (TaT_SV(ikl)- Tsrfsv(ikl))
+     .                   *p0_kap     / ExnrSV(ikl)
+        RiBulk =  Grav_F *za__SV(ikl)* d_TaTs
+     .          / RiB__D
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #sb.          nn__SV(ikl).GE.nwr_SV)
+! #sb.      write(6,6600) Tsrfsv(ikl),TaT_SV(ikl),VV__SV(ikl)
+! #sb.                  , d_TaTs     ,RiBulk
+ 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)/ Z0m_SV(ikl))  !
+        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__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #sb.          nn__SV(ikl).GE.nwr_SV)
+! #sb.      write(6,6601) CD_m_0     ,Z0m_SV(ikl),bmstab     
+! #sb.                  , ist__s     ,ist__w
+ 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)/ Z0h_SV(ikl))  !
+        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) =  FStabl * max(zer0,Stabil)
+     .               - Fh_Uns * min(zer0,Stabil)
+        dFh_sv(ikl) =  dFSdRi * max(zer0,Stabil)
+     .               - dFh_Un * min(zer0,Stabil)
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #sb.          nn__SV(ikl).GE.nwr_SV)
+! #sb.      write(6,6602) FStabl     ,Stabil     
+! #sb.                   ,Fm_Uns     ,Fm_loc     
+ 6602       format(/,'FStabl  , Stabil, Fm_Uns, Fm_loc = ',4e15.6)
+ 
+! Aerodynamic Resistances
+! ~~~~~~~~~~~~~~~~~~~~~~~
+        ram_sv(ikl) =  ram0   *          Fm_loc
+        rah_sv(ikl) =  rah0   *          Fh__sv(ikl)
+        rahMIN   = max(rah_sv(ikl),  abs(d_TaTs)*60./za__SV(ikl))
+                                               ! 60 for 30dgC within 1/2 hour
+        dFh_sv(ikl) =  rah0   *          dFh_sv(ikl)
+     .              *  rahMIN /          rah_sv(ikl)
+        rah_sv(ikl) =  rahMIN
+ 
+ 
+! Square Root Contributions to the Drag Coefficients
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        rCDmSV(ikl) =  sqrt(ram_sv(ikl) *VV__SV(ikl))
+        rCDmSV(ikl) =  1.     / max(eps6,rCDmSV(ikl))
+        rCDhSV(ikl) =       rah_sv(ikl) *VV__SV(ikl)
+     .                                  *rCDmSV(ikl)
+        rCDhSV(ikl) = (1.     / max(eps6,rCDhSV(ikl)))
+     .              * (     ExnrSV(ikl) /p0_kap      )
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #sb.          nn__SV(ikl).GE.nwr_SV)
+! #sb.      write(6,6603) ram_sv(ikl),rah_sv(ikl)
+! #sb.                   ,rCDmSV(ikl),rCDhSV(ikl)
+ 6603       format(/,'AeR(m,h), rCD(m,h)               = ',4e15.6)
+ 
+ 
+! Turbulent Scales
+! ================
+ 
+! Friction Velocity                   u*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uustar      =      VV__SV(ikl) / ram_sv(ikl)
+        us__SV(ikl) = sqrt(uustar)
+ 
+! Real    Temperature Turbulent Scale theta*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        uts_SV(ikl) =      d_TaTs      / rah_sv(ikl)
+        thstar      =      uts_SV(ikl) / us__SV(ikl)
+ 
+! Specific Humidity   Turbulent Scale qq*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        qqstar      =      uqs_SV(ikl) / us__SV(ikl)
+ 
+! Virtual Temperature Turbulent Scale thetav*
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+        thstarv     = thstar      + TaT_SV(ikl) *(0.608*qqstar
+     .                                             )
+        thstars     =     sign(un_1,thstarv)
+        thstara     =      abs(     thstarv)
+        thstarv     =      max(eps6,thstara)    *thstars
+ 
+! Monin Obukhov Scale Height
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~
+        LMO_SV(ikl) = TaT_SV(ikl) * uustar
+     .              /(vonKrm      * Grav_F     * thstarv)
+        zeta        = za__SV(ikl) / LMO_SV(ikl)
+        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) = za__SV(ikl) / zeta
+ 
+! OUTPUT/Verification: SISVAT_SBL
+! #sb       IF (ii__SV(ikl).EQ.iwr_SV .AND. jj__SV(ikl).EQ. jwr_SV .AND.
+! #sb.          nn__SV(ikl).GE.nwr_SV)
+! #sb.      write(6,6604) us__SV(ikl),uts_SV(ikl)
+! #sb.                   ,LMO_SV(ikl),zeta        
+ 6604       format(/,'***(m,h), LMO   , zeta           = ',4e15.6)
+ 
+      END DO
+ 
+      return
+      end
+
+
+      subroutine SISVAT_TVg
+! #e1.                     (ETVg_d)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_TVg                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_TVg computes the Canopy Energy Balance             |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+
+      USE VARxSV
+      USE VARySV
+
+
+      IMPLICIT NONE
+
+! OUTPUT
+! ------
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real      ETVg_d(klonv)                 ! VegetationPower, Forcing
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #NC real          SOsoKL(klonv)             ! Absorbed Solar Radiation
+c #NC real          IRsoKL(klonv)             ! Absorbed IR    Radiation
+c #NC real          HSsoKL(klonv)             ! Absorbed Sensible Heat Flux
+c #NC real          HLsoKL(klonv)             ! Absorbed Latent   Heat Flux
+c #NC real          HLs_KL(klonv)             ! Evaporation
+c #NC real          HLv_KL(klonv)             ! Transpiration
+c #NC common/DumpNC/SOsoKL,IRsoKL
+c #NC.             ,HSsoKL,HLsoKL
+c #NC.             ,HLs_KL,HLv_KL
+
+
+! Internal Variables
+! ==================
+
+      integer   ikl                           ! Grid Point Index
+      integer   nitmax,nit                    ! Iterations Counter
+      real      d_Tveg                        ! Canopy Temperat. Increment
+      real      dTvMAX                        ! Canopy Temperat. Increment MAX
+      real      dHvdTv                        ! Derivativ.of Canopy Energ.Budg.
+      real      Hv_Tv0                        ! Imbalance of Canopy Energ.Budg.
+      real      Hv_MAX                        ! MAX Imbal.of Canopy Energ.Budg.
+      real      Hv_MIN                        ! MIN Imbal.of Canopy Energ.Budg.
+      real      Hswich                        ! Newton-Raphson         Switch
+      real      Tveg_0(klonv)                 ! Canopy Temperature, Previous t
+      real      tau_Ca                        ! Canopy IR Radiation Absorption
+      real      IR_net                        ! InfraRed  NET(t)
+      real      dIRdTv(klonv)                 ! InfraRed  NET(t), Derivative(t)
+      real      dHSdTv(klonv)                 ! Sensible Heat FL. Derivative(t)
+      real      dHLdTv(klonv)                 ! Latent   Heat FL. Derivative(t)
+      real      EvFrac                        ! Condensat./Transpirat. Switch
+      real      SnoMsk                        ! Canopy Snow            Switch
+      real      den_qs,arg_qs,qsatvg          ! Canopy Saturat. Spec. Humidity
+      real      dqs_dT                        ! d(qsatvg)/dTv
+      real      FacEvp,FacEvT,Fac_Ev          ! Evapo(transpi)ration Factor
+      real      dEvpdT(klonv),dEvTdT(klonv)   ! Evapo(transpi)ration Derivative
+      real      F_Stom                        ! Funct.  (Leaf Water Potential)
+      real      R0Stom                        ! Minimum Stomatal Resistance
+      real      R_Stom                        !         Stomatal Resistance
+      real      LAI_OK                        ! 1. ==>  Leaves   exist
+      real      rrCaOK,snCaOK,dEvpOK          ! Positive Definiteness Correct.
+
+
+! Internal DATA
+! =============
+
+      data      nitmax /   5   /              ! Maximum  Iterations    Number
+      data      dTvMAX /   5.  /              ! Canopy Temperat. Increment MAX
+      data      Hv_MIN /   0.1 /              ! MIN Imbal. of Surf.Energy Budg.
+      data      SnoMsk /   0.0 /              ! Canopy Snow Switch    (Default)
+
+
+! Newton-Raphson Scheme
+! =====================
+
+      nit    = 0
+  101 CONTINUE
+      nit    = nit + 1
+      HV_MAX = 0.
+
+
+! Temperature of the Previous Time Step
+! -------------------------------------
+
+        DO ikl=1,knonv
+          Tveg_0(ikl) = TvegSV(ikl)
+
+
+! IR    Radiation Absorption
+! --------------------------
+
+          tau_Ca = 1.  - tau_sv(ikl)                        ! Canopy Absorption
+          IRv_sv(ikl) = -2.0   *Evg_sv(ikl)  *StefBo        !
+     .                         *TvegSV(ikl)  *TvegSV(ikl)   ! Downward IR (OUT)
+     .                         *TvegSV(ikl)  *TvegSV(ikl)   ! + Upward IR (OUT)
+          dIRdTv(ikl) =
+     .     -Evg_sv(ikl)*                                    !
+     .                8.*StefBo*TvegSV(ikl)  *TvegSV(ikl)   ! Downward IR (OUT)
+     .                         *TvegSV(ikl)                 ! + Upward IR (OUT)
+          IR_net =       tau_Ca                             !
+     .    *(Evg_sv(ikl)* IRd_SV(ikl)                        ! Downward IR (IN)
+     .     -             IRs_SV(ikl)                        !   Upward IR (IN)
+     .     +             IRv_sv(ikl))                       !          IR (OUT)
+
+
+! Sensible Heat Flux
+! ------------------
+
+          dHSdTv(ikl) = rhT_SV(ikl)* Sigmsv(ikl) *CpdAir    ! Derivative, t(n)
+     .                / rah_sv(ikl)                         ! 
+          HSv_sv(ikl) = dHSdTv(ikl)                         ! Value,      t(n)
+     .                *(TaT_SV(ikl)-TvegSV(ikl))            !
+
+
+! Latent   Heat Flux
+! ------------------
+
+! Canopy Saturation Specific Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          den_qs =         TvegSV(ikl)- 35.8
+          arg_qs = 17.27 *(TvegSV(ikl)-273.16)/den_qs
+          qsatvg = .0038 * exp(arg_qs)
+          dqs_dT = qsatvg* 4099.2    /(den_qs *den_qs)
+
+! Canopy Stomatal Resistance
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          R0Stom = min(         StodSV(ivgtSV(ikl))
+     .                /max(eps6,glf_sv(       ikl)),StxdSV)  ! Min Stomatal R.
+          F_Stom = pscdSV / max(pscdSV-psivSV(ikl) ,eps6)    ! F(Leaf Wat.Pot.)
+                                                             ! DR97, eqn. 3.22
+          R_Stom =(R0Stom / max(LAIesv(ikl), R0Stom/StxdSV)) ! Can.Stomatal R.
+     .           * F_Stom                                    ! DR97, eqn. 3.21
+
+! Evaporation / Evapotranspiration
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          SnoMsk = max(zer0, sign(un_1,snCaSV(ikl)-eps_21))  !
+          EvFrac = max(zer0, sign(un_1,QaT_SV(ikl)-qsatvg))  ! Condensation/
+          EvFrac = EvFrac                                    ! Transpiration
+     .       + (1.-EvFrac)*((1-SnoMsk)*         rrCaSV(ikl)  !        Switch
+     .                                         /rrMxsv(ikl)  !
+     .                      +  SnoMsk *min(un_1,snCaSV(ikl)  !
+     .                                         /rrMxsv(ikl)))!
+          Fac_Ev = rhT_SV(ikl) *Sigmsv(ikl)                  ! Idem,  Factor
+          FacEvp = Fac_Ev      *EvFrac     / rah_sv(ikl)     !
+          Evp_sv(ikl) = FacEvp*(qsatvg     - QaT_SV(ikl))    ! Evaporation
+          dEvpdT(ikl) = FacEvp* dqs_dT                       ! Evp Derivative
+          FacEvt = Fac_Ev * (1.-EvFrac)    /(rah_sv(ikl)     !
+     .                              +R_Stom *Sigmsv(ikl))    !
+          EvT_sv(ikl) = FacEvt*(qsatvg     - QaT_SV(ikl))    ! EvapoTranspir.
+          dEvTdT(ikl) = FacEvt* dqs_dT                       ! EvT Derivative
+          HLv_sv(ikl) =-LhvH2O*(Evp_sv(ikl)+ EvT_sv(ikl))    ! Latent   Heat
+     .                 -LhfH2O* Evp_sv(ikl)* SnoMsk          !(Subli.Contrib.)
+          dHLdTv(ikl) = LhvH2O*(dEvpdT(ikl)+ dEvTdT(ikl))    !
+     .                 +LhfH2O* dEvpdT(ikl)* SnoMsk          !
+
+
+! Imbalance  of the Canopy  Energy Budget
+! ---------------------------------------
+
+          LAI_OK = max(zer0,                                 ! NO Budget if 
+     .                 sign(un_1, LAI_sv(ikl)-eps_21))       ! no Leaves
+          Hv_Tv0 =    (  SoCasv(ikl)         *sol_SV(ikl)    ! Absorbed Solar
+     .                 + IR_net                              ! NET      IR
+     .                 + HSv_sv(ikl)                         ! Sensible Heat
+     .                 + HLv_sv(ikl)                         ! Latent   Heat
+     .                ) *LAI_OK                              !
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1     ETVg_d(ikl) =  Hv_Tv0                              ! Veg.Energ.Bal.
+
+          Hswich      =          1.00
+c #NN     Hswich      = max(zer0,                            ! Newton-Raphson
+c #NN.                      sign(un_1,    abs(Hv_Tv0     )   !         Switch
+c #NN.                                       -Hv_MIN      )) !
+
+
+! Derivative of the Canopy  Energy Budget
+! ---------------------------------------
+
+          dHvdTv    =   dIRdTv(ikl) * max(eps_21,tau_Ca)
+     .                - dHSdTv(ikl)
+     .                - dHLdTv(ikl)
+
+
+! 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) = TvegSV(ikl)  - Hswich      *d_Tveg  ! Newton-Raphson
+          Hv_MAX      = max(Hv_MAX,abs(Hv_Tv0     ))        !
+
+
+! Update Vegetation Fluxes
+! ------------------------
+
+c #NN     IRv_sv(ikl) = IRv_sv(ikl)-dIRdTv(ikl)    *d_Tveg  ! Emitted  IR
+c #NN     HSv_sv(ikl) = HSv_sv(ikl)+dHSdTv(ikl)    *d_Tveg  ! Sensible Heat
+c #NN     Evp_sv(ikl) = Evp_sv(ikl)-dEvpdT(ikl)    *d_Tveg  ! Evapotranspir.
+c #NN     EvT_sv(ikl) = EvT_sv(ikl)-dEvTdT(ikl)    *d_Tveg  ! Evapotranspir.
+c #NN     HLv_sv(ikl) = HLv_sv(ikl)+dHLdTv(ikl)    *d_Tveg  ! Latent   Heat
+
+          IRv_sv(ikl) = IRv_sv(ikl)                *LAI_OK
+          HSv_sv(ikl) = HSv_sv(ikl)                *LAI_OK
+          Evp_sv(ikl) = Evp_sv(ikl)                *LAI_OK
+          EvT_sv(ikl) = EvT_sv(ikl)                *LAI_OK
+          HLv_sv(ikl) = HLv_sv(ikl)                *LAI_OK
+        END DO
+
+c #IX IF (                     nit.lt.nitmax)    GO TO 101
+c hj150311 for parallel      IF (Hv_MAX.gt.Hv_MIN.and.nit.lt.nitmax)    GO TO 101
+      IF (                     nit.lt.nitmax)    GO TO 101                     
+        DO ikl=1,knonv
+          IRv_sv(ikl) = IRv_sv(ikl)                         ! Emitted  IR
+     .   +dIRdTv(ikl) *(TvegSV(ikl)-Tveg_0(ikl))            ! 
+          HSv_sv(ikl) = HSv_sv(ikl)                         ! Sensible Heat
+     .   -dHSdTv(ikl) *(TvegSV(ikl)-Tveg_0(ikl))            !
+          Evp_sv(ikl) = Evp_sv(ikl)                         ! Evaporation
+     .   +dEvpdT(ikl) *(TvegSV(ikl)-Tveg_0(ikl))            !
+          EvT_sv(ikl) = EvT_sv(ikl)                         ! Transpiration
+     .   +dEvTdT(ikl) *(TvegSV(ikl)-Tveg_0(ikl))            !
+          HLv_sv(ikl) = HLv_sv(ikl)                         ! Latent   Heat
+     .   -dHLdTv(ikl) *(TvegSV(ikl)-Tveg_0(ikl))            !
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #NC     HLv_KL(ikl) = HLv_sv(ikl)
+
+
+! Update Canopy Water Content
+! ---------------------------
+
+          rrCaSV(ikl) = rrCaSV(ikl)-(1.-SnoMsk)*Evp_sv(ikl)*dt__SV
+          snCaSV(ikl) = snCaSV(ikl)-    SnoMsk *Evp_sv(ikl)*dt__SV
+
+! Correction for Positive Definiteness (see WKarea/EvpVeg/EvpVeg.f)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          rrCaOK =  max(rrCaSV(ikl), 0.)
+          snCaOK =  max(snCaSV(ikl), 0.)
+          dEvpOK =     (rrCaOK-rrCaSV(ikl)
+     .                 +snCaOK-snCaSV(ikl))/dt__SV
+
+          Evp_sv(ikl) = Evp_sv(ikl)       - dEvpOK          ! Evaporation
+          HLv_sv(ikl) = HLv_sv(ikl)                         ! Latent   Heat
+     .    +(1.-SnoMsk)* LhvH2O            * dEvpOK          !
+     .    +    SnoMsk *(LhvH2O+LhfH2O)    * dEvpOK          !
+
+          rrCaSV(ikl) = rrCaOK
+          snCaSV(ikl) = snCaOK
+
+        END DO
+
+
+      return
+      end
+
+
+      subroutine SISVAT_TSo
+! #e1.                     (ETSo_0,ETSo_1,ETSo_d)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_TSo                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_TSo computes the Soil/Snow Energy Balance          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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] |
+!              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 -nsol,-nsol+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:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #VX: TURBULENCE: u*q* limited to SBL Saturat.Specif.Humid.           |
+!     #RC: TURBULENCE: Richardson Number:    T Derivative is used          |
+!     #DL: 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  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VAR0SV
+
+      USE VARxSV
+      USE VARySV
+!hj220711
+      USE VARtSV
+
+      IMPLICIT NONE
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real      ETSo_0(klonv)                 ! Soil/Snow Power, before Forcing
+! #e1 real      ETSo_1(klonv)                 ! Soil/Snow Power, after  Forcing
+! #e1 real      ETSo_d(klonv)                 ! Soil/Snow Power, Forcing
+
+
+! Internal Variables
+! ==================
+
+      integer   ikl   ,isl   ,jsl   ,ist      !
+      integer   ist__s,ist__w                 ! Soil/Water  Body Identifier
+      integer   islsgn                        ! Soil/Snow Surfac.Identifier
+      real      eps__3                        ! Arbitrary    Low Number
+      real      etaMid,psiMid                 ! Layer Interface's Humidity
+      real      mu_eta                        !     Soil thermal Conductivity
+      real      mu_exp                        ! arg Soil thermal Conductivity
+      real      mu_min                        ! Min Soil thermal Conductivity
+      real      mu_max                        ! Max Soil thermal Conductivity
+      real      mu_sno(klonv),mu_aux          !     Snow thermal Conductivity
+      real      mu__dz(klonv,-nsol:nsno+1)    ! mu_(eta,sno)   / dz
+      real      dtC_sv(klonv,-nsol:nsno)      ! dt      / C
+      real      IRs__D(klonv)                 ! UpwardIR Previous Iter.Contr.
+      real      dIRsdT(klonv)                 ! UpwardIR           T Derivat.
+      real      f_HSHL(klonv)                 ! Factor common to HS and HL
+      real      dRidTs(klonv)                 ! d(Rib)/d(Ts)
+      real      HS___D(klonv)                 ! Sensible Heat Flux Atm.Contr.
+      real      f___HL(klonv)                 !
+      real      HL___D(klonv)                 ! Latent   Heat Flux Atm.Contr.
+      REAL      TSurf0(klonv),dTSurf          ! Previous Surface Temperature
+      real      qsatsg(klonv),den_qs,arg_qs   ! Soil   Saturat. Spec. Humidity
+      real      dqs_dT(klonv)                 ! d(qsatsg)/dTv
+      real      Psi(   klonv)                 ! 1st Soil Layer Water Potential
+      real      RHuSol(klonv)                 ! Soil Surface Relative Humidity
+      real      etaSol                        ! Soil Surface          Humidity
+      real      d__eta                        ! Soil Surface Humidity Increm.
+      real      Elem_A,Elem_C                 !   Diagonal Coefficients
+      real      Diag_A(klonv,-nsol:nsno)      ! A Diagonal
+      real      Diag_B(klonv,-nsol:nsno)      ! B Diagonal
+      real      Diag_C(klonv,-nsol:nsno)      ! C Diagonal
+      real      Term_D(klonv,-nsol:nsno)      !   Independant Term
+      real      Aux__P(klonv,-nsol:nsno)      ! P Auxiliary Variable
+      real      Aux__Q(klonv,-nsol:nsno)      ! Q Auxiliary Variable
+      real      Ts_Min,Ts_Max                 ! Temperature Limits
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real      Exist0                        ! Existing Layer Switch
+
+      integer   nt_srf,it_srf,itEuBk          ! HL: Surface Scheme
+      parameter(nt_srf=10)                    !
+      real      agpsrf,xgpsrf,dt_srf,dt_ver   !
+      real      etaBAK(klonv)                 !
+      real      etaNEW(klonv)                 !
+      real      etEuBk(klonv)                 !
+      real      fac_dt(klonv),faceta(klonv)   !
+      real      PsiArg(klonv),SHuSol(klonv)   !
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #NC real          SOsoKL(klonv)             ! Absorbed Solar Radiation
+c #NC real          IRsoKL(klonv)             ! Absorbed IR    Radiation
+c #NC real          HSsoKL(klonv)             ! Absorbed Sensible Heat Flux
+c #NC real          HLsoKL(klonv)             ! Absorbed Latent   Heat Flux
+c #NC real          HLs_KL(klonv)             ! Evaporation
+c #NC real          HLv_KL(klonv)             ! Transpiration
+c #NC common/DumpNC/SOsoKL,IRsoKL
+c #NC.             ,HSsoKL,HLsoKL
+c #NC.             ,HLs_KL,HLv_KL
+
+
+! Internal DATA
+! =============
+
+      data      eps__3 /   1.e-3   /          ! Arbitrary    Low Number
+      data      mu_exp /  -0.4343  /          !     Soil Thermal Conductivity
+      data      mu_min /   0.172   /          ! Min Soil Thermal Conductivity
+      data      mu_max /   2.000   /          ! Max Soil Thermal Conductivity
+      data      Ts_Min / 175.      /          ! Temperature            Minimum
+      data      Ts_Max / 300.      /          ! Temperature Acceptable Maximum
+                                              ! including   Snow Melt  Energy
+
+
+! 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)
+           isl=-nsol
+        DO ikl=1,knonv
+          mu__dz(ikl,isl) = 0.
+
+          dtC_sv(ikl,isl) = dtz_SV(isl)                   ! dt / (dz X rho C)
+     .                   /((rocsSV(isotSV(ikl))           ! [s / (m.J/m3/K)]
+     .                     +rcwdSV*eta_SV(ikl,isl))       !
+     .                     *LSdzsv(ikl)            )      !
+        END DO
+      DO   isl=-nsol+1,0
+        DO ikl=1,knonv
+          ist    =      isotSV(ikl)                       ! 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,isl-1)   ! eta at layers
+     .                 +dz_dSV(isl)  *eta_SV(ikl,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,isl) = mu_eta/(dzmiSV(isl)           !
+     .                             *LSdzsv(ikl))          !
+
+          dtC_sv(ikl,isl) = dtz_SV(isl)                   ! dt / (dz X rho C)
+     .                   /((rocsSV(isotSV(ikl))           !
+     .                     +rcwdSV*eta_SV(ikl,isl))       !
+     .                     *LSdzsv(ikl)            )      !
+        END DO
+      END DO
+
+
+! Soil/Snow Interface
+! -------------------
+
+! Soil Contribution
+! ^^^^^^^^^^^^^^^^^
+           isl=1
+        DO ikl=1,knonv
+          ist    =      isotSV(ikl)                       ! 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) =  CdidSV                           !
+     .                 *(ro__SV(ikl,isl) /rhoWat) ** 1.88 !
+          mu_sno(ikl) =          max(eps6,mu_sno(ikl))    !
+!         mu_sno :  Snow Heat Conductivity Coefficient [Wm/K]
+!                   (Yen 1981, CRREL Rep., 81-10)
+
+! Combined Heat Conductivity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          mu__dz(ikl,isl) = 2./(dzsnSV(ikl,isl  )         ! Combined Heat
+     .                         /mu_sno(ikl)               ! Conductivity
+     .                         +LSdzsv(ikl)               !
+     .                         *dz_dSV(    isl-1)/mu_eta) ! Coefficient
+
+! Inverted Heat Capacity
+! ^^^^^^^^^^^^^^^^^^^^^^
+          dtC_sv(ikl,isl) = dt__SV/max(eps6,              ! dt / (dz X rho C)
+     .    dzsnSV(ikl,isl) * ro__SV(ikl,isl) *Cn_dSV)      !
+        END DO
+
+
+! Snow
+! ----
+
+      DO   isl=1,nsno
+        DO ikl=1,knonv
+          ro__SV(ikl,isl) =                               !
+     .                   ro__SV(ikl ,isl)                 !
+     .       * max(0,min(isnoSV(ikl)-isl+1,1))            !
+        END DO
+      END DO
+
+      DO   isl=1,nsno
+        DO ikl=1,knonv
+
+! Combined Heat Conductivity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          mu_aux      =  CdidSV                           !
+     .                 *(ro__SV(ikl,isl) /rhoWat) ** 1.88 !
+          mu__dz(ikl,isl) =                               !
+     .      2.                        *mu_aux*mu_sno(ikl) ! Combined Heat
+     .     /max(eps6,dzsnSV(ikl,isl  )*mu_sno(ikl)        ! Conductivity
+     .              +dzsnSV(ikl,isl-1)*mu_aux     )       ! For upper Layer
+          mu_sno(ikl)     =            mu_aux             !
+
+! Inverted Heat Capacity
+! ^^^^^^^^^^^^^^^^^^^^^^
+          dtC_sv(ikl,isl) = dt__SV/max(eps__3,            ! dt / (dz X rho C)
+     .    dzsnSV(ikl,isl) * ro__SV(ikl,isl) *Cn_dSV)      !
+        END DO
+      END DO
+
+
+! Uppermost Effective Layer: NO conduction
+! ----------------------------------------
+
+        DO ikl=1,knonv
+          mu__dz(ikl,isnoSV(ikl)+1) = 0.0
+        END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (IN) 
+! #e1   DO ikl=1,knonv
+! #e1     ETSo_0(ikl) = 0.
+! #e1   END DO
+! #e1 DO   isl= -nsol,nsno
+! #e1   DO ikl=1,knonv
+! #e1     Exist0      = isl -           isnoSV(ikl)
+! #e1     Exist0      = 1.  - max(zer0,min(un_1,Exist0))
+! #e1     ETSo_0(ikl) = ETSo_0(ikl)
+! #e1.                +(TsisSV(ikl,isl)-Tf_Sno)*Exist0
+! #e1.                                 /dtC_sv(ikl,isl)
+! #e1   END DO
+! #e1 END DO
+
+
+! Tridiagonal Elimination: Set Up
+! ===============================
+
+! Soil/Snow Interior
+! ^^^^^^^^^^^^^^^^^^
+      DO   isl= -nsol+1,nsno-1
+        DO ikl=1,knonv
+          Elem_A          =  dtC_sv(ikl,isl)         *mu__dz(ikl,isl)
+          Elem_C          =  dtC_sv(ikl,isl)         *mu__dz(ikl,isl+1)
+          Diag_A(ikl,isl) = -Elem_A  *Implic
+          Diag_C(ikl,isl) = -Elem_C  *Implic
+          Diag_B(ikl,isl) =  1.0d+0  -Diag_A(ikl,isl)-Diag_C(ikl,isl)
+          Term_D(ikl,isl) =  Explic *(Elem_A         *TsisSV(ikl,isl-1)
+     .                               +Elem_C         *TsisSV(ikl,isl+1))
+     .             +(1.0d+0 -Explic *(Elem_A+Elem_C))*TsisSV(ikl,isl)
+     .  + dtC_sv(ikl,isl)           * sol_SV(ikl)    *SoSosv(ikl)
+     .                                              *(sEX_sv(ikl,isl+1)
+     .                                               -sEX_sv(ikl,isl  ))
+        END DO
+      END DO
+
+! Soil  lowest Layer
+! ^^^^^^^^^^^^^^^^^^
+           isl= -nsol
+        DO ikl=1,knonv
+          Elem_A          =  0.
+          Elem_C          =  dtC_sv(ikl,isl)         *mu__dz(ikl,isl+1)
+          Diag_A(ikl,isl) =  0.
+          Diag_C(ikl,isl) = -Elem_C  *Implic
+          Diag_B(ikl,isl) =  1.0d+0  -Diag_A(ikl,isl)-Diag_C(ikl,isl)
+          Term_D(ikl,isl) =  Explic * Elem_C         *TsisSV(ikl,isl+1)
+     .             +(1.0d+0 -Explic * Elem_C)        *TsisSV(ikl,isl)
+     .  + dtC_sv(ikl,isl)           * sol_SV(ikl)    *SoSosv(ikl)
+     .                                              *(sEX_sv(ikl,isl+1)
+     .                                               -sEX_sv(ikl,isl  ))
+        END DO
+
+! Snow highest Layer (dummy!)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^
+           isl=  nsno
+        DO ikl=1,knonv
+          Elem_A          =  dtC_sv(ikl,isl)  *mu__dz(ikl,isl)
+          Elem_C          =  0.
+          Diag_A(ikl,isl) = -Elem_A  *Implic
+          Diag_C(ikl,isl) =  0.
+          Diag_B(ikl,isl) =  1.0d+0  -Diag_A(ikl,isl)
+          Term_D(ikl,isl) =  Explic * Elem_A  *TsisSV(ikl,isl-1)
+     .             +(1.0d+0 -Explic * Elem_A) *TsisSV(ikl,isl)
+     .  + dtC_sv(ikl,isl) * (sol_SV(ikl)      *SoSosv(ikl)
+     .                                       *(sEX_sv(ikl,isl+1)
+     .                                        -sEX_sv(ikl,isl  )))
+        END DO
+
+! Surface: UPwardIR Heat Flux
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,knonv
+          isl         = isnoSV(ikl)
+          dIRsdT(ikl) = Eso_sv(ikl)* StefBo          * 4.      ! - d(IR)/d(T)
+     .                             * TsisSV(ikl,isl)           !
+     .                             * TsisSV(ikl,isl)           !
+     .                             * TsisSV(ikl,isl)           !
+          IRs__D(ikl) = dIRsdT(ikl)* TsisSV(ikl,isl) * 0.75    !
+
+! Surface: Richardson Number:   T Derivative
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+c #RC     dRidTs(ikl) =-Grav_F      *    za__SV(ikl)
+c #RC.                              *(1.-Sigmsv(ikl))
+c #RC.                /(TaT_SV(ikl) *    VV__SV(ikl)
+c #RC.                              *    VV__SV(ikl))
+
+! Surface: Turbulent Heat Flux: Factors
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          f_HSHL(ikl) = rhT_SV(ikl) *(1.-Sigmsv(ikl))          !#common factor
+     .                              /    rah_sv(ikl)           ! to  HS, HL
+          f___HL(ikl) = f_HSHL(ikl) *    Lx_H2O(ikl)
+
+! Surface: Sensible  Heat Flux: T Derivative
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          dSdTSV(ikl) = f_HSHL(ikl) *    CpdAir                !#- d(HS)/d(T)
+c #RC.         *(1.0  -(TsisSV(ikl,isl) -TaT_SV(ikl))          !#Richardson
+c #RC.         * dRidTs(ikl)*dFh_sv(ikl)/rah_sv(ikl))          ! Nb. Correct.
+          HS___D(ikl) = dSdTSV(ikl) *    TaT_SV(ikl)           !
+
+! Surface: Latent    Heat Flux: Saturation Specific Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          den_qs      =         TsisSV(ikl,isl)- 35.8          !
+          arg_qs      = 17.27 *(TsisSV(ikl,isl)-273.16)        !
+     .                                   / den_qs              !
+          qsatsg(ikl) = .0038 *        exp(arg_qs)             !
+          dqs_dT(ikl) = qsatsg(ikl)* 4099.2   /(den_qs *den_qs)!
+          fac_dt(ikl) = f_HSHL(ikl)/(rhoWat   * dz_dSV(0))     !
+        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.                                !
+            DO ikl=1,knonv
+              isl          =          isnoSV(ikl)              !
+              etaBAK(ikl)  = max(eps6,eta_SV(ikl ,isl))        !
+              etaNEW(ikl)  =          etaBAK(ikl)              !
+              etEuBk(ikl)  =          etaNEW(ikl)              !
+            END DO                                             !
+        DO it_srf=1,nt_srf                                     !
+              dt_ver       = dt_ver     +dt_srf                !
+            DO ikl=1,knonv                                     !
+              faceta(ikl)  = fac_dt(ikl)*dt_srf                !
+c #VX         faceta(ikl)  = faceta(ikl)                       !
+c #VX.                  /(1.+faceta(ikl)*dQa_SV(ikl))          !    Limitation
+                                                               ! by Atm.Conten
+!    .        *max(0,sign(1.,qsatsg(ikl)-QaT_SV(ikl))))        ! NO Limitation
+                                                               ! of Downw.Flux
+            END DO                                             !
+          DO itEuBk=1,2                                        !
+            DO ikl=1,knonv
+              ist    = max(0,isotSV(ikl)-100*isnoSV(ikl))      ! 0 if    H2O
+                                                               !
+              Psi(ikl) =                                       !
+     .                psidSV(ist)                              ! DR97, Eqn 3.34
+     .              *(etadSV(ist)                              !
+     .           /max(etEuBk(ikl),eps6))                       !
+     .              **bCHdSV(ist)                              !
+              PsiArg(ikl) = 7.2E-5*Psi(ikl)                    !
+              RHuSol(ikl) =   exp(-min(ea_Max,PsiArg(ikl)))    !
+              SHuSol(ikl) =     qsatsg(ikl)  *RHuSol(ikl)      ! DR97, Eqn 3.15
+              etEuBk(ikl) =                                    !
+     .       (etaNEW(ikl) + faceta(ikl)*(QaT_SV(ikl)           !
+     .                                  -SHuSol(ikl)           !
+     .                    *(1.          -bCHdSV(ist)           !
+     .                                  *PsiArg(ikl))       )) !
+     .      /(1.          + faceta(ikl)* SHuSol(ikl)           !
+     .                                  *bCHdSV(ist)           !
+     .                                  *PsiArg(ikl)           !
+     .                                  /etaNEW(ikl))          !
+              etEuBk(ikl) = etEuBk(ikl) -Rootsv(ikl,0)         !
+     .                                 /(rhoWat*dz_dSV(0))     !
+            END DO                                             !
+          END DO                                               !
+            DO ikl=1,knonv                                     !
+              etaNEW(ikl) =  max(etEuBk(ikl),eps6)             !
+            END DO                                             !
+              dt_srf      =      dt_srf         * xgpsrf       !
+        END DO                                                 !
+ 
+! Surface: Latent    Heat Flux: Soil/Water Surface Contributions
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,knonv                                         !
+          isl        =  isnoSV(ikl)                            !
+          ist   = max(0,isotSV(ikl)-100*isnoSV(ikl))           ! 0 if    H2O
+          ist__s= min(1,ist)                                   ! 1 if no H2O
+          ist__w=     1-ist__s                                 ! 1 if    H2O
+          d__eta     =  eta_SV(ikl,isl)-etaNEW(ikl)            !
+          HL___D(ikl)=( ist__s *rhoWat *dz_dSV(0)              ! Soil Contrib.
+     .                *(etaNEW(ikl)    -etaBAK(ikl)) / dt__SV  !
+     .                 +ist__w         *f_HSHL(ikl)            ! H2O  Contrib.
+     .                *(QaT_SV(ikl)    -qsatsg(ikl))         ) !
+     .                * Lx_H2O(ikl)                            ! common factor
+
+c #DL     RHuSol(ikl) =(QaT_SV(ikl)                            !
+c #DL.                 -HL___D(ikl)    / f___HL(ikl))          !
+c #DL.                / qsatsg(ikl)                            !
+ 
+! Surface: Latent    Heat Flux: T Derivative
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          dLdTSV(ikl) = 0.
+c #DL     dLdTSV(ikl) = f___HL(ikl) * RHuSol(ikl) *dqs_dT(ikl) ! - d(HL)/d(T)
+c #DL     HL___D(ikl) = HL___D(ikl)                            !
+c #DL.                 +dLdTSV(ikl) * TsisSV(ikl,isl)          !
+        END DO                                                 !
+
+! Surface: Tridiagonal Matrix Set Up
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,knonv
+          isl             =  isnoSV(ikl)
+          TSurf0(ikl)     =  TsisSV(ikl,isl)
+          Elem_A          =  dtC_sv(ikl,isl)*mu__dz(ikl,isl)
+          Elem_C          =  0.
+          Diag_A(ikl,isl) = -Elem_A *Implic
+          Diag_C(ikl,isl) =  0.
+          Diag_B(ikl,isl) =  1.0d+0 -Diag_A(ikl,isl)
+          Diag_B(ikl,isl) =  Diag_B(ikl,isl)
+     .  + dtC_sv(ikl,isl) * (dIRsdT(ikl)                       ! Upw. Sol IR
+     .                      +dSdTSV(ikl)                       ! HS/Surf.Contr.
+     .                      +dLdTSV(ikl))                      ! HL/Surf.Contr.
+          Term_D(ikl,isl) =  Explic *Elem_A *TsisSV(ikl,isl-1)
+     .             +(1.0d+0 -Explic *Elem_A)*TsisSV(ikl,isl)
+          Term_D(ikl,isl) =  Term_D(ikl,isl)
+     .  + dtC_sv(ikl,isl) * (sol_SV(ikl)    *SoSosv(ikl)       ! Absorbed
+     .                                     *(sEX_sv(ikl,isl+1) ! Solar
+     .                                      -sEX_sv(ikl,isl  ))!
+     .        +      tau_sv(ikl)      *IRd_SV(ikl)*Eso_sv(ikl) ! Down Atm IR
+     .         -(1.0-tau_sv(ikl)) *0.5*IRv_sv(ikl)             ! Down Veg IR
+     .                                +IRs__D(ikl)             ! Upw. Sol IR
+     .                                +HS___D(ikl)             ! HS/Atmo.Contr.
+     .                                +HL___D(ikl)            )! HL/Atmo.Contr.
+        END DO
+
+
+! Tridiagonal Elimination
+! =======================
+
+! Forward  Sweep
+! ^^^^^^^^^^^^^^
+        DO ikl=  1,knonv
+          Aux__P(ikl,-nsol) = Diag_B(ikl,-nsol)
+          Aux__Q(ikl,-nsol) =-Diag_C(ikl,-nsol)/Aux__P(ikl,-nsol)
+        END DO
+
+      DO   isl=-nsol+1,nsno
+        DO ikl=      1,knonv
+          Aux__P(ikl,isl)   = Diag_A(ikl,isl)  *Aux__Q(ikl,isl-1)
+     .                       +Diag_B(ikl,isl)
+          Aux__Q(ikl,isl)   =-Diag_C(ikl,isl)  /Aux__P(ikl,isl)
+        END DO
+      END DO
+
+        DO ikl=      1,knonv
+          TsisSV(ikl,-nsol) = Term_D(ikl,-nsol)/Aux__P(ikl,-nsol)
+        END DO
+
+      DO   isl=-nsol+1,nsno
+        DO ikl=      1,knonv
+          TsisSV(ikl,isl)   =(Term_D(ikl,isl)
+     .                       -Diag_A(ikl,isl)  *TsisSV(ikl,isl-1))
+     .                                         /Aux__P(ikl,isl)
+        END DO
+      END DO
+
+! Backward Sweep
+! ^^^^^^^^^^^^^^
+      DO   isl=nsno-1,-nsol,-1
+        DO ikl=     1,knonv
+          TsisSV(ikl,isl)   = Aux__Q(ikl,isl)  *TsisSV(ikl,isl+1)
+     .                                         +TsisSV(ikl,isl)
+        END DO
+      END DO
+
+! Temperature Limits (avoids problems in case of no Snow Layers)
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=     1,knonv
+           isl              = isnoSV(ikl)
+          dTSurf            = TsisSV(ikl,isl) -     TSurf0(ikl)
+          TsisSV(ikl,isl)   = TSurf0(ikl) + sign(1.,dTSurf) ! 180.0 dgC/hr
+     .              * min(abs(dTSurf),5.e-2*dt__SV)         ! =0.05 dgC/s
+          IF (abs(dTSurf) > 5.e-2*dt__SV) THEN
+            write(*,*) 'abrupt',ikl,'dTs ',dTSurf,TsisSV(ikl,isl) 
+          ENDIF
+        END DO
+      
+      DO ikl=     1,knonv
+        DO   isl=isnoSV(ikl),1      ,-1
+
+          IF (Ts_Min >  TsisSV(ikl,isl)) THEN
+             write(*,*) 'cold', ikl, 'couche',isl, TsisSV(ikl,isl)
+          ENDIF 
+          IF (Ts_Max <  TsisSV(ikl,isl)) THEN
+             write(*,*) 'hot ', ikl, 'couche',isl, TsisSV(ikl,isl) 
+          ENDIF
+          TsisSV(ikl,isl)   = max(Ts_Min,       TsisSV(ikl,isl))
+          TsisSV(ikl,isl)   = min(Ts_Max,       TsisSV(ikl,isl))
+        END DO
+      END DO
+
+
+! Update Surface    Fluxes
+! ========================
+
+        DO ikl=      1,knonv
+          isl         = isnoSV(ikl)
+          IRs_SV(ikl) = IRs__D(ikl)                          !
+     .                - dIRsdT(ikl) * TsisSV(ikl,isl)        !
+          HSs_sv(ikl) = HS___D(ikl)                          ! Sensible Heat
+     .                - dSdTSV(ikl) * TsisSV(ikl,isl)        ! Downward > 0
+          HLs_sv(ikl) = HL___D(ikl)                          ! Latent   Heat
+     .                - dLdTSV(ikl) * TsisSV(ikl,isl)        ! Downward > 0
+!hj220711
+          TsfnSV(ikl) = TsisSV(ikl,isl)
+
+! OUTPUT for Stand Alone NetCDF File
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+c #NC     SOsoKL(ikl) = sol_SV(ikl) * SoSosv(ikl)            ! Absorbed Sol.
+c #NC     IRsoKL(ikl) =               IRs_SV(ikl)            ! Up Surf. IR
+c #NC.        +     tau_sv(ikl)      *IRd_SV(ikl)*Eso_sv(ikl)! Down Atm IR
+c #NC.        -(1.0-tau_sv(ikl)) *0.5*IRv_sv(ikl)            ! Down Veg IR
+c #NC     HSsoKL(ikl) = HSs_sv(ikl)                          ! HS
+c #NC     HLsoKL(ikl) = HLs_sv(ikl)                          ! HL
+c #NC     HLs_KL(ikl) = HLs_sv(ikl) / LhvH2O                 ! mm w.e./sec
+        END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (OUT)
+! #e1   DO ikl=1,knonv
+! #e1     ETSo_d(ikl) =
+! #e1.         (     SoSosv(ikl)      *sol_SV(ikl)             ! Net   Solar
+! #e1.         +                       IRs_SV(ikl)             ! Up Surf. IR
+! #e1.         +     tau_sv(ikl)      *IRd_SV(ikl)*Eso_sv(ikl) ! Down Atm IR
+! #e1.         -(1.0-tau_sv(ikl)) *0.5*IRv_sv(ikl)             ! Down Veg IR
+! #e1.                                +HSs_sv(ikl)             ! Sensible
+! #e1.                                +HLs_sv(ikl)            )! Latent
+! #e1     ETSo_1(ikl) = 0.
+! #e1   END DO
+! #e1 DO   isl= -nsol,nsno
+! #e1   DO ikl=1,knonv
+! #e1     Exist0      = isl -           isnoSV(ikl)
+! #e1     Exist0      = 1.  - max(zer0,min(un_1,Exist0))
+! #e1     ETSo_1(ikl) = ETSo_1(ikl)
+! #e1.                +(TsisSV(ikl,isl)-Tf_Sno)*Exist0
+! #e1.                                 /dtC_sv(ikl,isl)
+! #e1   END DO
+! #e1 END DO
+
+
+      return
+      end
+      subroutine SISVAT_TS2                                                     
+c #ES.                     (ETSo_0,ETSo_1,ETSo_d)                               
+                                                                                
+C +------------------------------------------------------------------------+    
+C | MAR          SISVAT_TS2                            Mon 16-08-2009  MAR |    
+C |   SubRoutine SISVAT_TS2 computes the Soil/Snow temperature and fluxes  |
+C |   using the same method as in LMDZ for consistency.                    |
+C |   The corresponding LMDZ routines are soil (soil.F90) and calcul_fluxs |
+C |   (calcul_fluxs_mod.F90).                                              |   
+C +------------------------------------------------------------------------+    
+C |                                                                        |    
+C |                                                                        |    
+C |   PARAMETERS:  klonv: Total Number of columns =                        |    
+C |   ^^^^^^^^^^        = Total Number of grid boxes of surface type       |    
+C |                       (land ice for now)                               |    
+C |                                                                        |    
+C |   INPUT:   isnoSV   = total Nb of Ice/Snow Layers                      |    
+C |   ^^^^^    sol_SV   : Downward Solar Radiation                  [W/m2] |    
+C |            IRd_SV   : Surface Downward  Longwave   Radiation    [W/m2] |       
+C |            VV__SV   : SBL Top    Wind Speed                      [m/s] |    
+C |            TaT_SV   : SBL Top    Temperature                       [K] |     
+C |            QaT_SV   : SBL Top    Specific  Humidity            [kg/kg] |      
+C |            dzsnSV   : Snow Layer Thickness                         [m] |        
+C |            dt__SV   : Time Step                                    [s] |    
+C |                                                                        |    
+C |            SoSosv   : Absorbed Solar Radiation by Surfac.(Normaliz)[-] |    
+C |   ?        IRv_sv   : Vegetation  IR Radiation                  [W/m2] |    
+C |   ?        tau_sv   : Fraction of Radiation transmitted by Canopy  [-] |        
+C |            Eso_sv   : Soil+Snow       Emissivity                   [-] |    
+C |   ?        rah_sv   : Aerodynamic Resistance for Heat            [s/m] |    
+C |                                                                        | 
+C |            dz1_SV    : "inverse" layer thickness (centered)      [1/m] |
+C |            dz2_SV    : layer thickness (layer above (?))           [m] |
+C |            AcoHSV    : coefficient for Enthalpy evolution, from atm.   |
+C |            AcoHSV    : coefficient for Enthalpy evolution, from atm.   |
+C |            AcoQSV    : coefficient for Humidity evolution, from atm.   | 
+C |            BcoQSV    : coefficient for Humidity evolution, from atm.   |
+C |            ps__SV    : surface pressure                           [Pa] |
+C |            p1l_SV    : 1st atmospheric layer pressure             [Pa] |     
+C |            cdH_SV    : drag coeff Energy (?)                           |
+C |            rsolSV    : Radiation balance surface                [W/m2] |
+C |            lambSV    : Coefficient for soil layer geometry         [-] |
+C |                                                                        |    
+C |   INPUT /  TsisSV   : Soil/Ice Temperatures (layers -nsol,-nsol+1,..,0)|    
+C |   OUTPUT:           & Snow     Temperatures (layers  1,2,...,nsno) [K] |    
+C |   ^^^^^^   rsolSV   : Radiation balance surface                 [W/m2] |     
+C |                                                                        |    
+C |   OUTPUT:  IRs_SV   : Soil      IR Radiation                    [W/m2] |    
+C |   ^^^^^^   HSs_sv   : Sensible  Heat Flux                       [W/m2] |    
+C |            HLs_sv   : Latent    Heat Flux                       [W/m2] |  
+C |            TsfnSV   : new surface temperature                      [K] |
+C |            Evp_sv   : Evaporation                              [kg/m2] |
+C |            dSdTSV   : Sensible Heat Flux temp. derivative     [W/m2/K] |
+C |            dLdTSV   : Latent Heat Flux temp. derivative       [W/m2/K] |
+C |                                                                        | 
+C |   ?        ETSo_0   : Snow/Soil Energy Power, before Forcing    [W/m2] |    
+C |   ?        ETSo_1   : Snow/Soil Energy Power, after  Forcing    [W/m2] |    
+C |   ?        ETSo_d   : Snow/Soil Energy Power         Forcing    [W/m2] |    
+C |                                                                        | 
+C |________________________________________________________________________|
+
+      USE VAR_SV
+      USE VARdSV
+ 
+      USE VARySV                      
+      USE VARtSV                      
+      USE VARxSV 
+      USE VARphy
+      USE YOMCST_SISVAT
+      USE indice_sol_mod
+
+
+      IMPLICIT NONE                                                                    
+                                                                                
+                                                                                
+C +--Global Variables                                                           
+C +  ================                                                          
+
+      INCLUDE "YOETHF.h"
+      INCLUDE "FCTTRE.h"
+!      INCLUDE "indicesol.h"
+      INCLUDE "comsoil.h"
+!      include  "LMDZphy.inc"   
+                                                                        
+C +--OUTPUT for Stand Alone NetCDF File                                         
+C +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                         
+c #NC      real*8        SOsoKL(klonv)             ! Absorbed Solar Radiation        
+c #NC      real*8        IRsoKL(klonv)             ! Absorbed IR    Radiation        
+c #NC      real*8        HSsoKL(klonv)             ! Absorbed Sensible Heat Flux     
+c #NC      real*8        HLsoKL(klonv)             ! Absorbed Latent   Heat Flux     
+c #NC      real*8        HLs_KL(klonv)             ! Evaporation                     
+c #NC      real*8        HLv_KL(klonv)             ! Transpiration                   
+c #NC      common/DumpNC/SOsoKL,IRsoKL                                               
+c #NC     .             ,HSsoKL,HLsoKL                                               
+c #NC     .             ,HLs_KL,HLv_KL          
+
+C +--Internal Variables                                                         
+C +  ==================    
+
+      integer ig,jk,isl
+      real mu     
+      real Tsrf(klonv)               ! surface temperature as extrapolated from soil
+      real mug(klonv)                 !hj coef top layers 
+      real ztherm_i(klonv),zdz2(klonv,-nsol:nsno),z1s
+      real pfluxgrd(klonv), pcapcal(klonv), cal(klonv)
+      real beta(klonv), dif_grnd(klonv)
+      real C_coef(klonv,-nsol:nsno),D_coef(klonv,-nsol:nsno)
+
+      REAL, DIMENSION(klonv)   :: zx_mh, zx_nh, zx_oh
+      REAL, DIMENSION(klonv)   :: zx_mq, zx_nq, zx_oq
+      REAL, DIMENSION(klonv)   :: zx_pkh, zx_dq_s_dt, zx_qsat, zx_coef
+      REAL, DIMENSION(klonv)   :: zx_sl, zx_k1
+      REAL, DIMENSION(klonv)   :: d_ts
+      REAL                     :: zdelta, zcvm5, zx_qs, zcor, zx_dq_s_dh
+      REAL                     :: qsat_new, q1_new
+C      REAL, PARAMETER          :: t_grnd = 271.35, t_coup = 273.15
+C      REAL, PARAMETER          :: max_eau_sol = 150.0
+      REAL, DIMENSION(klonv)   :: IRs__D, dIRsdT
+
+
+      REAL t_grnd                      ! not used
+      parameter(t_grnd = 271.35)       !
+      REAL t_coup                      ! distinguish evap/sublimation
+      parameter(t_coup = 273.15)       !
+      REAL max_eau_sol
+      parameter(max_eau_sol = 150.0)
+
+
+!        write(*,*)'T check'
+!     
+!        DO  ig = 1,knonv  
+!            DO  jk = 1,isnoSV(ig) !nsno       
+!              IF (TsisSV(ig,jk) <= 1.) THEN          !hj check
+!                TsisSV(ig,jk) = TsisSV(ig,isnoSV(ig))
+!              ENDIF  
+!
+!              IF (TsisSV(ig,jk) <= 1.) THEN          !hj check
+!                TsisSV(ig,jk) = 273.15
+!              ENDIF   
+!            END DO
+!        END DO     
+
+C!=======================================================================
+C! I. First part: corresponds to soil.F90 in LMDZ
+C!=======================================================================
+
+      DO ig = 1,knonv      
+        DO jk =1,isnoSV(ig)
+          dz2_SV(ig,jk)=dzsnSV(ig,jk)
+C! use arithmetic center between layers to derive dz1 for snow layers for simplicity: 
+          dz1_SV(ig,jk)=2./(dzsnSV(ig,jk)+dzsnSV(ig,jk-1)) 
+        ENDDO
+      ENDDO
+
+      DO ig = 1,knonv
+        ztherm_i(ig)   = inertie_ice
+        IF (isnoSV(ig) > 0) ztherm_i(ig)   = inertie_sno
+      ENDDO
+
+C!-----------------------------------------------------------------------
+C! 1)
+C! Calculation of Cgrf and Dgrd coefficients using soil temperature from 
+C! previous time step.
+C!
+C! These variables are recalculated on the local compressed grid instead 
+C! of saved in restart file.
+C!-----------------------------------------------------------------------
+      DO ig=1,knonv
+        DO jk=-nsol,nsno
+          zdz2(ig,jk)=dz2_SV(ig,jk)/dt__SV                                !ptimestep
+        ENDDO
+      ENDDO
+ 
+      DO ig=1,knonv
+        z1s = zdz2(ig,-nsol)+dz1_SV(ig,-nsol+1)
+        C_coef(ig,-nsol+1)=zdz2(ig,-nsol)*TsisSV(ig,-nsol)/z1s
+        D_coef(ig,-nsol+1)=dz1_SV(ig,-nsol+1)/z1s
+      ENDDO
+
+      DO ig=1,knonv
+        DO jk=-nsol+1,isnoSV(ig)-1,1
+          z1s = 1./(zdz2(ig,jk)+dz1_SV(ig,jk+1)+dz1_SV(ig,jk)           &
+     &          *(1.-D_coef(ig,jk)))
+          C_coef(ig,jk+1)=                                              &
+     &          (TsisSV(ig,jk)*zdz2(ig,jk)                              &
+     &          +dz1_SV(ig,jk)*C_coef(ig,jk)) * z1s
+          D_coef(ig,jk+1)=dz1_SV(ig,jk+1)*z1s
+        ENDDO
+      ENDDO
+
+C!-----------------------------------------------------------------------
+C! 2)
+C! Computation of the soil temperatures using the Cgrd and Dgrd
+C! coefficient computed above
+C!
+C!-----------------------------------------------------------------------
+C! Extrapolate surface Temperature                   !hj check
+      mu=1./((2.**1.5-1.)/(2.**(0.5)-1.)-1.)
+
+!     IF (knonv>0) THEN 
+!      DO ig=1,8 
+!        write(*,*)ig,'sisvat: Tsis ',TsisSV(ig,isnoSV(ig))
+!        write(*,*)'max-1            ',TsisSV(ig,isnoSV(ig)-1)
+!        write(*,*)'max-2            ',TsisSV(ig,isnoSV(ig)-2)
+!        write(*,*)'0                ',TsisSV(ig,0)
+!!        write(*,*)min(max(isnoSV(ig),0),1),max(1-isnoSV(ig),0)
+!      ENDDO
+!     END IF
+
+      DO ig=1,knonv    
+        IF (isnoSV(ig).GT.0) THEN
+          IF (isnoSV(ig).GT.1) THEN
+           mug(ig)=1./(1.+dzsnSV(ig,isnoSV(ig)-1)/dzsnSV(ig,isnoSV(ig))) !mu
+          ELSE
+           mug(ig) = 1./(1.+dzsnSV(ig,isnoSV(ig)-1)/dz_dSV(0)) !mu
+          ENDIF
+        ELSE
+          mug(ig) = lambSV
+        ENDIF
+
+        IF (mug(ig)  .LE. 0.05) THEN
+         write(*,*)'Attention mu low', mug(ig)
+        ENDIF
+        IF (mug(ig)  .GE. 0.98) THEN
+         write(*,*)'Attention mu high', mug(ig)
+        ENDIF
+
+        Tsrf(ig)=(1.5*TsisSV(ig,isnoSV(ig))-0.5*TsisSV(ig,isnoSV(ig)-1))&
+     &           *min(max(isnoSV(ig),0),1)+                             &
+     &           ((mug(ig)+1)*TsisSV(ig,0)-mug(ig)*TsisSV(ig,-1))       &
+     &           *max(1-isnoSV(ig),0)  
+      ENDDO
+
+  
+
+C! Surface temperature
+      DO ig=1,knonv
+      TsisSV(ig,isnoSV(ig))=(mug(ig)*C_coef(ig,isnoSV(ig))+Tsf_SV(ig))/ &
+     &        (mug(ig)*(1.-D_coef(ig,isnoSV(ig)))+1.)
+      ENDDO
+  
+C! Other temperatures
+      DO ig=1,knonv
+        DO jk=isnoSV(ig),-nsol+1,-1
+          TsisSV(ig,jk-1)=C_coef(ig,jk)+D_coef(ig,jk)                   &
+     &          *TsisSV(ig,jk)
+        ENDDO
+      ENDDO
+C      write(*,*)ig,'Tsis',TsisSV(ig,0)
+
+C      IF (indice == is_sic) THEN
+C        DO ig = 1,knonv
+C          TsisSV(ig,-nsol) = RTT - 1.8
+C        END DO
+C      ENDIF
+
+CC      !hj new 11 03 2010
+        DO ig=1,knonv                                                          
+          isl         = isnoSV(ig)                                             
+C          dIRsdT(ig) = Eso_sv(ig)* stefan   * 4.                        & ! - d(IR)/d(T)   
+C     &                             * Tsf_SV(ig)                         & !T TsisSV(ig,isl)           !                
+C     &                             * Tsf_SV(ig)                         & !TsisSV(ig,isl)           !                
+C     &                             * Tsf_SV(ig) !TsisSV(ig,isl)           !                
+C          IRs__D(ig) = dIRsdT(ig)* Tsf_SV(ig) * 0.75 !TsisSV(ig,isl) * 0.75    !: 
+          dIRsdT(ig) = Eso_sv(ig)* stefan   * 4.                        & ! - d(IR)/d(T)   
+     &                             * TsisSV(ig,isl)                     & !
+     &                             * TsisSV(ig,isl)                     & !
+     &                             * TsisSV(ig,isl)                     & !
+          IRs__D(ig) = dIRsdT(ig)* TsisSV(ig,isl) * 0.75                  !: 
+         END DO
+       !hj
+C!-----------------------------------------------------------------------
+C! 3)
+C! Calculate the Cgrd and Dgrd coefficient corresponding to actual soil 
+C! temperature
+C!-----------------------------------------------------------------------
+      DO ig=1,knonv
+        z1s = zdz2(ig,-nsol)+dz1_SV(ig,-nsol+1)
+        C_coef(ig,-nsol+1) = zdz2(ig,-nsol)*TsisSV(ig,-nsol)/z1s
+        D_coef(ig,-nsol+1) = dz1_SV(ig,-nsol+1)/z1s
+      ENDDO
+
+      DO ig=1,knonv  
+        DO jk=-nsol+1,isnoSV(ig)-1,1
+          z1s = 1./(zdz2(ig,jk)+dz1_SV(ig,jk+1)+dz1_SV(ig,jk)           &
+     &          *(1.-D_coef(ig,jk)))
+          C_coef(ig,jk+1) = (TsisSV(ig,jk)*zdz2(ig,jk)+                 &
+     &          dz1_SV(ig,jk)*C_coef(ig,jk)) * z1s
+          D_coef(ig,jk+1) = dz1_SV(ig,jk+1)*z1s
+        ENDDO
+      ENDDO
+
+C!-----------------------------------------------------------------------
+C! 4)
+C! Computation of the surface diffusive flux from ground and
+C! calorific capacity of the ground
+C!-----------------------------------------------------------------------
+      DO ig=1,knonv
+C! (pfluxgrd)
+        pfluxgrd(ig) = ztherm_i(ig)*dz1_SV(ig,isnoSV(ig))*              &
+     &      (C_coef(ig,isnoSV(ig))+(D_coef(ig,isnoSV(ig))-1.)           &
+     &      *TsisSV(ig,isnoSV(ig)))
+C! (pcapcal)
+        pcapcal(ig)  = ztherm_i(ig)*                                    &
+     &      (dz2_SV(ig,isnoSV(ig))+dt__SV*(1.-D_coef(ig,isnoSV(ig)))    &
+     &      *dz1_SV(ig,isnoSV(ig)))
+        z1s = mug(ig)*(1.-D_coef(ig,isnoSV(ig)))+1.
+        pcapcal(ig)  = pcapcal(ig)/z1s
+        pfluxgrd(ig) = ( pfluxgrd(ig)                                   &
+     &       + pcapcal(ig) * (TsisSV(ig,isnoSV(ig)) * z1s               &
+     &       - mug(ig)* C_coef(ig,isnoSV(ig))                           &
+     &       - Tsf_SV(ig))       /dt__SV )
+      ENDDO
+        
+      
+      cal(1:knonv) = RCPD / pcapcal(1:knonv)
+      rsolSV(1:knonv)  = rsolSV(1:knonv) + pfluxgrd(1:knonv)
+C!=======================================================================
+C! II. Second part: corresponds to calcul_fluxs_mod.F90 in LMDZ
+C!=======================================================================
+
+      Evp_sv = 0.
+c #NC HSsoKL=0.
+c #NC HLsoKL=0.
+      dSdTSV = 0.
+      dLdTSV = 0.
+	
+      beta(:) = 1.0
+      dif_grnd(:) = 0.0
+
+C! zx_qs = qsat en kg/kg
+C!**********************************************************************x***************
+!      write(*,*)'RCPD',RCPD,'RLVTT',RLVTT,'RD',RD,'RVTMP2',RVTMP2
+      DO ig = 1,knonv
+        IF (ps__SV(ig).LT.1.) THEN
+!          write(*,*)'ig',ig,'ps',ps__SV(ig)
+          ps__SV(ig)=max(ps__SV(ig),1.e-8)
+        ENDIF
+        IF (p1l_SV(ig).LT.1.) THEN
+!          write(*,*)'ig',ig,'p1l',p1l_SV(ig)
+          p1l_SV(ig)=max(p1l_SV(ig),1.e-8)
+        ENDIF
+        IF (TaT_SV(ig).LT.180.) THEN
+!          write(*,*)'ig',ig,'TaT',TaT_SV(ig)
+          TaT_SV(ig)=max(TaT_SV(ig),180.)
+        ENDIF
+        IF (QaT_SV(ig).LT.1.e-8) THEN
+!          write(*,*)'ig',ig,'QaT',QaT_SV(ig)
+          QaT_SV(ig)=max(QaT_SV(ig),1.e-8)
+        ENDIF
+        IF (Tsf_SV(ig).LT.100.) THEN
+!          write(*,*)'ig',ig,'Tsf',Tsf_SV(ig)
+          Tsf_SV(ig)=max(Tsf_SV(ig),180.)
+        ENDIF
+        IF (Tsf_SV(ig).GT.500.) THEN
+!          write(*,*)'ig',ig,'Tsf',Tsf_SV(ig)
+          Tsf_SV(ig)=min(Tsf_SV(ig),400.)
+        ENDIF
+!         IF (Tsrf(ig).LT.1.) THEN
+!!          write(*,*)'ig',ig,'Tsrf',Tsrf(ig)  
+!           Tsrf(ig)=max(Tsrf(ig),TaT_SV(ig)-20.)
+!         ENDIF
+         IF (cdH_SV(ig).LT.1.e-10) THEN
+!           IF (ig.le.3)   write(*,*)'ig',ig,'cdH',cdH_SV(ig)
+           cdH_SV(ig)=.5
+         ENDIF
+      ENDDO  
+!      DO ig=1,3
+!        write(*,*)'isnoSV',isnoSV(ig),'TsisSV',TsisSV(ig,isnoSV(ig))
+!      ENDDO
+
+      !write(*,*)'retv',retv,'thermcep',thermcep,'r2es',r2es
+      !IF (r2es.LT.1.e-8) THEN
+      !  r2es=1.e-8
+      !ENDIF
+      !IF (retv.LT.1.e-8) THEN
+      !  retv=1.e-8
+      !ENDIF
+
+      DO ig = 1,knonv
+        zx_pkh(ig) = 1. ! (ps__SV(ig)/ps__SV(ig))**RKAPPA
+        IF (thermcep) THEN
+          zdelta=MAX(0.,SIGN(1.,rtt-Tsf_SV(ig)))
+          zcvm5 = R5LES*RLVTT*(1.-zdelta) + R5IES*RLSTT*zdelta
+          zcvm5 = zcvm5 / RCPD / (1.0+RVTMP2*QaT_SV(ig))
+          zx_qs= r2es * FOEEW(Tsf_SV(ig),zdelta)/ps__SV(ig)
+          zx_qs=MIN(0.5,zx_qs)
+          !write(*,*)'zcor',retv*zx_qs
+          zcor=1./(1.-retv*zx_qs)
+          zx_qs=zx_qs*zcor
+          zx_dq_s_dh = FOEDE(Tsf_SV(ig),zdelta,zcvm5,zx_qs,zcor)        &
+     &          /RLVTT / zx_pkh(ig)
+        ELSE
+          IF (Tsf_SV(ig).LT.t_coup) THEN
+             zx_qs = qsats(Tsf_SV(ig)) / ps__SV(ig)
+             zx_dq_s_dh = dqsats(Tsf_SV(ig),zx_qs)/RLVTT                &
+     &             / zx_pkh(ig)
+          ELSE
+             zx_qs = qsatl(Tsf_SV(ig)) / ps__SV(ig)
+             zx_dq_s_dh = dqsatl(Tsf_SV(ig),zx_qs)/RLVTT                &
+     &             / zx_pkh(ig)
+          ENDIF
+        ENDIF
+        zx_dq_s_dt(ig) = RCPD * zx_pkh(ig) * zx_dq_s_dh
+        zx_qsat(ig) = zx_qs
+C        zx_coef(ig) = cdH_SV(ig) *                                     &
+C     &       (1.0+SQRT(u1lay(ig)**2+v1lay(ig)**2)) *                   &
+C     &       p1l_SV(ig)/(RD*t1lay(ig))
+        zx_coef(ig) = cdH_SV(ig) *                                      &
+     &       (1.0+VV__SV(ig)) *                                         &
+     &       p1l_SV(ig)/(RD*TaT_SV(ig))
+       
+      ENDDO
+
+
+C! === Calcul de la temperature de surface ===
+C! zx_sl = chaleur latente d'evaporation ou de sublimation
+C!****************************************************************************************
+
+      DO ig = 1,knonv
+        zx_sl(ig) = RLVTT
+        IF (Tsf_SV(ig) .LT. RTT) zx_sl(ig) = RLSTT
+        zx_k1(ig) = zx_coef(ig)
+      ENDDO
+    
+
+      DO ig = 1,knonv
+C! Q
+        zx_oq(ig) = 1. - (beta(ig) * zx_k1(ig) * BcoQSV(ig) * dt__SV)
+        zx_mq(ig) = beta(ig) * zx_k1(ig) *                              &
+     &       (AcoQSV(ig) - zx_qsat(ig) +                                &
+     &       zx_dq_s_dt(ig) * Tsf_SV(ig))                               &
+     &       / zx_oq(ig)
+        zx_nq(ig) = beta(ig) * zx_k1(ig) * (-1. * zx_dq_s_dt(ig))       &
+     &       / zx_oq(ig)
+       
+C! H
+        zx_oh(ig) = 1. - (zx_k1(ig) * BcoHSV(ig) * dt__SV)
+        zx_mh(ig) = zx_k1(ig) * AcoHSV(ig) / zx_oh(ig)
+        zx_nh(ig) = - (zx_k1(ig) * RCPD * zx_pkh(ig))/ zx_oh(ig)
+     
+C! surface temperature
+        TsfnSV(ig) = (Tsf_SV(ig) + cal(ig)/RCPD * zx_pkh(ig) * dt__SV * &
+     &       (rsolSV(ig) + zx_mh(ig) + zx_sl(ig) * zx_mq(ig))           & 
+     &       + dif_grnd(ig) * t_grnd * dt__SV)/                         &
+     &       ( 1. - dt__SV * cal(ig)/(RCPD * zx_pkh(ig)) *              &
+     &       (zx_nh(ig) + zx_sl(ig) * zx_nq(ig))                        &  
+     &       + dt__SV * dif_grnd(ig))
+
+!hj rajoute 22 11 2010 tuning...
+        TsfnSV(ig) = min(RTT+0.02,TsfnSV(ig))
+       
+        d_ts(ig) = TsfnSV(ig) - Tsf_SV(ig)
+
+
+C!== flux_q est le flux de vapeur d'eau: kg/(m**2 s)  positive vers bas
+C!== flux_t est le flux de cpt (energie sensible): j/(m**2 s)
+        Evp_sv(ig) = - zx_mq(ig) - zx_nq(ig) * TsfnSV(ig) 
+        HLs_sv(ig) = - Evp_sv(ig) * zx_sl(ig)
+        HSs_sv(ig) = zx_mh(ig) + zx_nh(ig) * TsfnSV(ig)
+       
+C! Derives des flux dF/dTs (W m-2 K-1):
+        dSdTSV(ig) = zx_nh(ig)
+        dLdTSV(ig) = zx_sl(ig) * zx_nq(ig)
+
+
+!hj  new 11 03 2010                                      
+        isl         = isnoSV(ig)
+!        TsisSV(ig,isl) = TsfnSV(ig)                                         
+        IRs_SV(ig) = IRs__D(ig)                                         &!     
+     &                - dIRsdT(ig) * TsfnSV(ig) !TsisSV(ig,isl)?      !  
+
+! hj
+c #NC   SOsoKL(ig) = sol_SV(ig) * SoSosv(ig)              ! Absorbed Sol.    
+c #NC   IRsoKL(ig) =               IRs_SV(ig)                           & !Up Surf. IR
+c #NC&        +     tau_sv(ig)      *IRd_SV(ig)*Eso_sv(ig)              & !Down Atm IR
+c #NC&        -(1.0-tau_sv(ig)) *0.5*IRv_sv(ig)            ! Down Veg IR  
+c #NC   HLsoKL(ig) = HLs_sv(ig) 
+c #NC   HSsoKL(ig) = HSs_sv(ig) 
+c #NC   HLs_KL(ig) = Evp_sv(ig)
+
+C! Nouvelle valeure de l'humidite au dessus du sol
+        qsat_new=zx_qsat(ig) + zx_dq_s_dt(ig) * d_ts(ig)
+        q1_new = AcoQSV(ig) - BcoQSV(ig)* Evp_sv(ig)*dt__SV
+        QaT_SV(ig)=q1_new*(1.-beta(ig)) + beta(ig)*qsat_new 
+
+      ENDDO
+!      DO ig=1,3                                                                
+!        write(*,*)'   lat  HF',HLs_sv(ig),'sens HF',HSs_sv(ig)
+!        write(*,*)'   dlHF/dT',dLdTSV(ig),'dsHF/dT',dSdTSV(ig)
+!      END DO  
+!      write(*,*)'RCPD',RCPD,'dt',dt__SV,'t_grnd',t_grnd
+      DO ig = 1,1
+!        write(*,*)ig,'Tsfn: ',TsfnSV(ig),'Tsrf',Tsrf(ig)
+!        write(*,*)'  cal',cal(ig),'radsol',rsolSV(ig)
+!        write(*,*)'  mh',zx_mh(ig),'sl', zx_sl(ig),'pkh',zx_pkh(ig)
+!        write(*,*)'  mq',zx_mq(ig),'difgrnd',dif_grnd(ig)
+!        write(*,*)'  nh',zx_nh(ig),'sl', zx_sl(ig),'nq',zx_nq(ig)
+!        write(*,*)'term1:',cal(ig)/RCPD*zx_pkh(ig)*dt__SV
+!        write(*,*)'*',(rsolSV(ig) + zx_mh(ig) + zx_sl(ig) * zx_mq(ig)) 
+!        write(*,*)'+',dif_grnd(ig) * t_grnd * dt__SV,' / '
+!        write(*,*)'(1-',dt__SV * cal(ig)/(RCPD * zx_pkh(ig)),'*'
+!        write(*,*)'*',(zx_nh(ig) + zx_sl(ig) * zx_nq(ig))
+!        write(*,*)'+',dt__SV * dif_grnd(ig),')'
+      ENDDO
+
+      end ! subroutine SISVAT_TS2  
+
+
+      subroutine SISVAT_qVg
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_qVg                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_qVg computes the Canopy Water  Balance             |
+!                                    including  Root   Extraction          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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:                                               |
+!     ^^^^^^^^^^^^^^^^^^^^^                                                |
+!     #KW: Root Water Flow slowed down by Soil Hydraulic Conductivity      |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! Global Variables
+! ================
+
+      USE  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VAR0SV
+
+      USE VARxSV
+      USE VARySV
+
+
+      IMPLICIT NONE
+
+! Internal Variables
+! ==================
+
+      integer   ikl   ,isl                    ! Grid Point, Layer Indices
+      integer   nitmax,nit                    ! Iterations Counter
+      real      PlantW(klonv)                 ! Plant  Water
+      real      dPdPsi(klonv)                 ! Plant  Water psi Derivative
+      real      psidif                        ! Soil-Canopy  Water Pot. Differ.
+      real      Root_W                        ! Root   Water     Flow
+      real      RootOK                        ! Roots take Water in Soil Layer
+      real      d_psiv                        ! Canopy Water     Increment
+      real      dpvMAX                        ! Canopy Water     Increment MAX
+      real      BWater                        ! Imbalance of Canopy Water Budg.
+      real      BW_MAX                        ! MAX Imbal.of Canopy Water Budg.
+      real      BW_MIN                        ! MIN Imbal.of Canopy Water Budg.
+      real      dBwdpv                        ! Derivativ.of Canopy Water Budg.
+      real      Bswich                        ! Newton-Raphson         Switch
+      real      psiv_0(klonv)                 ! Canopy Temperature,  Previous t
+      real      EvFrac                        ! Condensat./Transpiration Switch
+      real      den_qs,arg_qs,qsatvg          ! Canopy Saturat. Spec. Humidity
+      real      EvTran                        ! EvapoTranspiration
+      real      dEdpsi                        ! Evapotranspiration  Derivative
+      real      Fac_Ev,FacEvT                 ! Evapotranspiration  Factors
+      real      denomE                        ! Evapotranspiration  Denominator
+      real      F_Stom                        ! Funct.  (Leaf Water Potential)
+      real      dFdpsi                        ! Derivative  of F_Stom
+      real      denomF                        ! Denominator of F_Stom
+      real      F___OK                        ! (psi>psi_c) => F_Stom swich  ON
+      real      R0Stom                        ! Minimum Stomatal Resistance
+      real      R_Stom                        !         Stomatal Resistance
+      real      dRdpsi                        ! Derivat.Stomatal Resistance
+      real      numerR                        ! Numerat.Stomatal Resistance
+
+
+! Internal DATA
+! =============
+
+      data      nitmax /   5     /            ! Maximum  Iterations    Number
+      data      dpvMAX /  20.    /            ! Canopy   Water   Increment MAX
+      data      BW_MIN /   4.e-8 /            ! MIN Imbal. of Surf.Energy Budg.
+
+
+! Newton-Raphson Scheme
+! =====================
+
+      nit    = 0
+  101 CONTINUE
+      nit    = nit + 1
+      BW_MAX = 0.
+
+
+! W.Potential of the Previous Time Step
+! -------------------------------------
+
+        DO ikl=1,knonv
+          psiv_0(ikl) = psivSV(ikl)
+
+
+! Extraction of Soil Water through the Plant Roots
+! ------------------------------------------------
+
+          PlantW(ikl)     = 0.                              ! Plant Water
+          dPdPsi(ikl)     = 0.                              ! Idem, Derivat.
+        END DO
+      DO   isl=-nsol,0
+        DO ikl=1,knonv
+          psidif = psivSV(ikl)-(DH_dSV(ivgtSV(ikl))         ! Soil-Canopy Water
+     .                         +psi_sv(       ikl ,isl))    ! Potential  Diff.
+          Root_W = rhoWat     * RF__SV(ivgtSV(ikl),isl)     ! If > 0, Contrib.
+     .              /max(eps_21,PR_dSV(ivgtSV(ikl))         !     to Root Water
+c #KW.                         +Khydsv(ikl   ,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,isl) = Root_W*max(zer0,psidif)         ! Root  Water
+          PlantW(ikl)     = PlantW(ikl) + Rootsv(ikl ,isl)  ! Plant Water
+          dPdPsi(ikl)     = dPdPsi(ikl) + RootOK*Root_W     ! idem, Derivat.
+        END DO
+      END DO
+
+
+! Latent   Heat Flux
+! ------------------
+
+! Canopy Saturation Specific Humidity
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+        DO ikl=1,knonv
+          den_qs =         TvegSV(ikl)- 35.8
+          arg_qs = 17.27 *(TvegSV(ikl)-273.16)/den_qs
+          qsatvg = .0038 * exp(arg_qs)
+
+! Canopy Stomatal Resistance
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^
+          R0Stom = min(         StodSV(ivgtSV(ikl))
+     .                /max(eps6,glf_sv(       ikl)),StxdSV) ! Min Stomatal R.
+          denomF =              pscdSV-psivSV(ikl)
+          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), 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)-qsatvg)) ! Condensation/
+          EvFrac = EvFrac                                   ! Transpiration
+     .       + (1.-EvFrac)     *rrCaSV(ikl)/ rrMxsv(ikl)    !        Switch
+          Fac_Ev = rhT_SV(ikl) *Sigmsv(ikl)                 ! idem,  Factor
+          denomE = rah_sv(ikl) +R_Stom     * Sigmsv(ikl)
+          FacEvT = Fac_Ev * (1.-EvFrac)    / denomE         !
+          EvTran = FacEvT     *(qsatvg     - QaT_SV(ikl))   ! EvapoTranspir.
+          dEdpsi =(EvTran     / denomE)    * dRdpsi         ! EvT Derivative
+
+
+! Imbalance  of the Canopy  Water  Budget
+! ---------------------------------------
+
+          BWater      =( PlantW(ikl)                        ! 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)
+     .                - 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) = psivSV(ikl)  - Bswich      *d_psiv  ! Newton-Raphson
+          BW_MAX      = max(BW_MAX,abs(BWater))
+        END DO
+
+
+! Update Root Water Fluxes | := Evapotranspiration 
+! ------------------------------------------------
+
+      DO   isl=-nsol,0
+        DO ikl=1,knonv
+          Rootsv(ikl,isl) = Rootsv(ikl,isl)*EvT_SV(ikl)     ! Root  Water
+     .                          /max(eps_21,PlantW(ikl))    !
+        END DO
+      END DO
+
+c hj150311 for parallel      IF (BW_MAX.gt.BW_MIN.and.nit.lt.nitmax)    GO TO 101
+      IF (                     nit.lt.nitmax)    GO TO 101                    
+      return
+      end
+
+
+      subroutine SISVAT_qSn
+     .                     (
+! #e1.                      EqSn_0,EqSn_1,EqSn_d
+! #m1.                     ,SIsubl,SImelt,SIrnof
+     .                     )
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_qSn                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_qSn updates  the Snow Water Content                |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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 -nsol,-nsol+1,..,0)|
+!                       & Snow     Temperatures (layers  1,2,...,nsno) [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        | #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** |
+!                          |                                               |
+!   # stdout               | #s2: OUTPUT of SnowFall, Snow Buffer          |
+!                          |      unit  6, SubRoutine  SISVAT_BSn, _qSn    |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! Global Variables
+! ================
+
+      USE  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VAR0SV
+
+      USE VARxSV
+
+
+! OUTPUT
+! ------
+
+      USE VARySV
+
+      IMPLICIT NONE
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1 real     EqSn_d(klonv)                 ! Energy in Excess, initial
+! #e1 real     EqSn_0(klonv)                 ! Snow Energy, befor Phase Change
+! #vm real     EqSn01(klonv)                 ! Snow Energy, after Phase Change
+! #vm real     EqSn02(klonv)                 ! Snow Energy, after Phase Change
+                                             !              .AND. Last Melting 
+! #e1 real     EqSn_1(klonv)                 ! Snow Energy, after Phase Change
+                                             !              .AND. Mass Redistr.
+! OUTPUT/Verification: * Mass Conservation
+! #m1 real     SIsubl(klonv)                 ! Snow Deposed Mass
+! #m1 real     SImelt(klonv)                 ! Snow Melted  Mass
+! #m1 real     SIrnof(klonv)                 ! Local Surficial Water + Run OFF
+
+
+! Internal Variables
+! ==================
+
+      integer  ikl   ,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
+      integer  noSnow(klonv)                 ! Nb of Layers Updater
+      integer  kSlush                        ! Slush Switch
+      real     dTSnow                        ! Temperature                  [C]
+      real     EExdum(klonv)                 ! Energy in Excess when no Snow
+      real     OKmelt                        ! 1 (0)  if        (no) Melting
+      real     EnMelt                        ! Energy in excess, for Melting
+      real     SnHLat                        ! Energy consumed   in  Melting
+      real     AdEnrg,B_Enrg                 ! Additional Energy from  Vapor
+      real     dzVap0,dzVap1                 ! Vaporized Thickness          [m]
+      real     dzMelt(klonv)                 ! Melted    Thickness          [m]
+      real     rosDry                        ! Snow volumic Mass if no Water in
+      real     PorVol                        ! Pore volume
+      real     PClose                        ! Pore Hole Close OFF Switch
+      real     SGDiam                        !      Snow Grain Diameter
+      real     SGDmax                        ! Max. Snow Grain Diameter 
+      real     rWater                        ! Retained Water           [kg/m2]
+      real     drrNEW                        ! New available Water      [kg/m2]
+      real     rdzNEW                        ! Snow          Mass       [kg/m2]
+      real     rdzsno                        ! Snow          Mass       [kg/m2]
+      real     EnFrez                        ! Energy Release    in  Freezing
+      real     WaFrez                        ! Water  consumed   in  Melting
+      real     RapdOK                        ! 1. ==> Snow melts rapidly
+      real     ThinOK                        ! 1. ==> Snow Layer is thin
+      real     dzepsi                        ! Minim. Snow Layer Thickness (!)
+      real     dz_Min                        ! Minim. Snow Layer Thickness
+      real     z_Melt                        ! Last (thin) Layer Melting
+      real     rusnew                        ! Surficial Water Thickness   [mm]
+      real     zWater                        ! Max Slush Water Thickness   [mm]
+      real     zSlush                        !     Slush Water Thickness   [mm]
+      real     ro_new                        ! New Snow/ice  Density    [kg/m3]
+      real     zc,zt                         ! Non erod.Snow Thickness[mm w.e.]
+
+! OUTPUT of SISVAT Trace Statistics (see assignation in PHY_SISVAT)
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      integer             isnnew,isinew,isnUpD,isnitr
+
+! OUTPUT/Verification: Energy/Water Budget
+! #vm real     WqSn_0(klonv)                 ! Snow Water+Forcing  Initial
+! #vm real     WqSn_1(klonv)                 ! Snow Water+Forcing, Final
+! #vm logical         emopen                 ! IO   Switch
+! #vm common/Se_qSn_L/emopen                 !
+! #vm integer         no_err                 !
+! #vm common/Se_qSn_I/no_err                 !
+! #vm real     hourer,timeer                 !
+! #vm common/Se_qSn_R/timeer                 !
+
+! OUTPUT/Verification: Slush  Parameterization
+! #vu logical         su_opn                 ! IO   Switch
+! #vu common/SI_qSn_L/su_opn                 !
+
+
+! DATA
+! ====
+!hj1907      data      dzepsi/0.005/     !hj180711           ! Minim. Snow Layer Thickness (!) 
+!hjp230611  
+      data      dzepsi/0.0001/                ! Minim. Snow Layer Thickness (!)
+!hjp290611      data      dzepsi/0.0003/                ! Minim. Snow Layer Thickness (!)
+
+!hjp230611
+      data      dz_Min/1.e-4/                 ! Minim. Snow Layer Thickness
+!     data      dz_Min/0.005/                 ! Minim. Snow Layer Thickness
+c ... Warning: Too high for Col de Porte: precludes 1st snow (layer) apparition
+!hj1907      data      dz_Min/0.005/    !hj180711              ! Minim. Snow Layer Thickness 
+
+
+      data      SGDmax/0.003/                 ! Maxim. Snow Grain Diameter  [m]
+                                              ! (Rowe et al. 1995, JGR p.16268)
+
+
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (IN)
+! #e1   DO ikl=1,knonv
+! #e1     EqSn_0(ikl) = 0.
+! #e1   END DO
+! #e1 DO   isn=nsno,1,-1
+! #e1   DO ikl=1,knonv
+! #e1     EqSn_0(ikl) = EqSn_0(ikl) + ro__SV(ikl,isn) *dzsnSV(ikl,isn)
+! #e1.                *(Cn_dSV      *(TsisSV(ikl,isn) -Tf_Sno         )
+! #e1.                 -LhfH2O      *(1.              -eta_SV(ikl,isn)))
+! #e1   END DO
+! #e1 END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget: Water  Budget (IN) 
+! #vm   DO ikl=1,knonv
+! #vm     WqSn_0(ikl) = drr_SV(ikl) * dt__SV          
+! #vm.                 +rusnSV(ikl)
+! #vm   END DO
+! #vm DO   isn=nsno,1,-1
+! #vm   DO ikl=1,knonv
+! #vm     WqSn_0(ikl) = WqSn_0(ikl) + ro__SV(ikl,isn) *dzsnSV(ikl,isn)
+! #vm   END DO
+! #vm END DO
+
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1   DO ikl=1,knonv
+! #m1     SImelt(ikl) = 0.
+! #m1     SIrnof(ikl) = rusnSV(ikl) + RnofSV(ikl) * dt__SV
+! #m1   END DO
+
+
+! Initialization
+! ==============
+
+      DO ikl=1,knonv
+        noSnow(ikl)   = 0                   ! Nb of Layers Updater
+        ispiSV(ikl)   = 0                   ! Pore Hole Close OFF Index
+                                            ! (assumed to be the Top of
+                                            !  the surimposed Ice Layer)
+c #IB   wem_SV(ikl)   = 0.
+c #IB   wer_SV(ikl)   = 0.
+      END DO
+
+
+! Melting/Freezing Energy
+! =======================
+
+!  REMARK: Snow liquid Water Temperature assumed = Tf_Sno
+!  ^^^^^^
+        DO ikl=1,knonv
+          EExdum(ikl) = drr_SV(ikl)     * hC_Wat *(TaT_SV(ikl)-Tf_Sno) 
+     .                                  * dt__SV
+          EExcsv(ikl) = EExdum(ikl)     *    min(1,isnoSV(ikl)) ! Snow exists
+          EExdum(ikl) = EExdum(ikl)     -          EExcsv(ikl)  !
+
+! OUTPUT/Verification: Energy/Water Budget
+! #e1     EqSn_d(ikl) = EExcsv(ikl)                             !
+
+        END DO
+
+
+! Surficial Water Status
+! ----------------------
+
+        DO ikl=1,knonv
+          SWS_SV(ikl) = max(zer0,sign(un_1,Tf_Sno
+     .                                    -TsisSV(ikl,isnoSV(ikl))))
+        END DO
+
+      DO   isn=nsno,1,-1
+        DO ikl=1,knonv
+
+! Energy, store Previous Content
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          dTSnow      = TsisSV(ikl,isn) -          Tf_Sno
+          EExcsv(ikl) = EExcsv(ikl) 
+     .                + ro__SV(ikl,isn) * Cn_dSV * dTSnow
+     .                                           * dzsnSV(ikl,isn)
+          TsisSV(ikl,isn) =                        Tf_Sno
+
+! Water,  store Previous Content
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+          drr_SV(ikl) = drr_SV(ikl)
+     .                + ro__SV(ikl,isn)          * eta_SV(ikl,isn) 
+     .                                           * dzsnSV(ikl,isn)
+     .                / dt__SV
+          ro__SV(ikl,isn) =
+     .                  ro__SV(ikl,isn) *(1.     - eta_SV(ikl,isn))
+          eta_SV(ikl,isn) =  0.
+
+
+! Melting  if EExcsv > 0
+! ======================
+
+          EnMelt      =    max(zer0,          EExcsv(ikl) )
+
+! Energy Consumption
+! ^^^^^^^^^^^^^^^^^^
+          SnHLat      = ro__SV(ikl,isn) * LhfH2O
+          dzMelt(ikl) = EnMelt      / max(SnHLat,    eps6 )
+          noSnow(ikl) = noSnow(ikl) 
+     .      + max(zer0  ,sign(un_1,dzMelt(ikl)                !
+     .                            -dzsnSV(ikl ,isn)))         ! 1 if full Melt
+     .       *min(1     , max(0 ,1+isnoSV(ikl)-isn))          ! 1 in the  Pack
+          dzMelt(ikl) =    
+     .              min(dzsnSV(ikl, isn),dzMelt(ikl))
+          dzsnSV(ikl,isn) = 
+     .                  dzsnSV(ikl,isn) -dzMelt(ikl)
+          EExcsv(ikl) = EExcsv(ikl)     -dzMelt(ikl)*SnHLat
+c #IB     wem_SV(ikl) = wem_SV(ikl)     -dzMelt(ikl)*ro__SV(ikl,isn)
+
+! Water  Production
+! ^^^^^^^^^^^^^^^^^
+          drr_SV(ikl) = drr_SV(ikl)     
+     .                + ro__SV(ikl,isn) * dzMelt(ikl)/dt__SV
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1     SImelt(ikl) = SImelt(ikl)
+! #m1.                + ro__SV(ikl,isn) * dzMelt(ikl)
+
+          OKmelt      =max(zer0,sign(un_1,drr_SV(ikl)-eps6))
+
+! Snow History
+! ^^^^^^^^^^^^
+          k_face          =       min(    istoSV(ikl,isn),istdSV(1)) ! = 1  if
+     .                           *max(0,2-istoSV(ikl,isn)          ) ! faceted
+          istoSV(ikl,isn) =                                          !
+     .        (1.-OKmelt) *               istoSV(ikl,isn)            !
+     .      +     OKmelt  *((1-k_face) *  istdSV(2)                  !
+     .                     +   k_face  *  istdSV(3)      )           !
+
+
+! Freezing if EExcsv < 0
+! ======================
+
+          rdzsno      =          ro__SV(ikl,isn) * dzsnSV(ikl ,isn)
+          LayrOK      = min(   1, max(0          , isnoSV(ikl)-isn+1))
+          EnFrez      = min(zer0,                  EExcsv(ikl))
+          WaFrez      =   -(     EnFrez          * LayrOK / LhfH2O)
+          drrNEW      = max(zer0,drr_SV(ikl)     - WaFrez / dt__SV)
+          WaFrez      =    (     drr_SV(ikl)     - drrNEW)* dt__SV
+          drr_SV(ikl) =          drrNEW
+          EExcsv(ikl) =          EExcsv(ikl)     + WaFrez * LhfH2O
+          EnFrez      = min(zer0,EExcsv(ikl))    * LayrOK
+          rdzNEW      = WaFrez + rdzsno
+          ro__SV(ikl,isn) =      rdzNEW /max(eps6, dzsnSV(ikl,isn))
+          TsisSV(ikl,isn) =      Tf_Sno
+     .                + EnFrez /(Cn_dSV *max(eps6, rdzNEW)        )
+          EExcsv(ikl) =          EExcsv(ikl)     - EnFrez
+c #IB     wer_SV(ikl) = WaFrez                             
+c #IB.                + wer_SV(ikl)
+
+
+! Snow Water Content
+! ==================
+
+! Pore   Volume [-]
+! ^^^^^^^^^^^^^^^^^
+          rosDry      =(1.     - eta_SV(ikl,isn))* ro__SV(ikl,isn) !
+          PorVol      = 1.     - rosDry          / rhoIce          !
+          PorVol      =      max(PorVol          , zer0  )         !
+
+! Water  Retention
+! ^^^^^^^^^^^^^^^^
+          rWater      = ws0dSV * PorVol * rhoWat * dzsnSV(ikl,isn)
+          drrNEW      = max(zer0,drr_SV(ikl)     - rWater /dt__SV)
+          rWater      =    (     drr_SV(ikl)     - drrNEW)*dt__SV
+          drr_SV(ikl)     =      drrNEW
+          rdzNEW          =      rWater 
+     .                         + rosDry          * dzsnSV(ikl,isn)
+          eta_SV(ikl,isn) =      rWater / max(eps6,rdzNEW)
+          ro__SV(ikl,isn) =      rdzNEW / max(eps6,dzsnSV(ikl,isn))
+
+! Pore Hole Close OFF
+! ^^^^^^^^^^^^^^^^^^^
+          PClose = max(zer0,
+     .                 sign(un_1,ro__SV(ikl,isn)
+     .                          -roCdSV         ))
+          ispiSV(ikl) =          ispiSV(ikl)      *(1.-PClose)
+     .                +      max(ispiSV(ikl),isn)    * Pclose
+          PClose = max(0   ,                         ! Water under SuPer.Ice
+     .                 min (1   ,ispiSV(ikl)         ! contributes to
+     .                          -isn            ))   ! Surficial   Water
+          rusnSV(ikl) =          rusnSV(ikl) 
+     .                +          drr_SV(ikl) *dt__SV * PClose
+          drr_SV(ikl) =          drr_SV(ikl)      *(1.-PClose)
+
+        END DO
+      END DO
+
+
+! Remove Zero-Thickness Layers
+! ============================
+
+ 1000 CONTINUE
+ !          isnitr =          0
+      DO   ikl=1,knonv
+           isnUpD =          0
+           isinew =          0
+        DO isn=1,nsno-1
+           isnnew =(un_1-max(zer0  ,sign(un_1,dzsnSV(ikl,isn)-dzepsi)))
+     .             *     max(0     , min(1   ,isnoSV(ikl) +1 -isn ))
+           isnUpD =      max(isnUpD,          isnnew)
+!           isnitr =      max(isnitr,          isnnew)
+           isinew =      isn*isnUpD *max(0, 1-isinew)      ! LowerMost  0-Layer
+     .                                       +isinew       ! Index
+           dzsnSV(ikl,isn) =                  dzsnSV(ikl,isn+isnnew)
+           ro__SV(ikl,isn) =                  ro__SV(ikl,isn+isnnew)
+           TsisSV(ikl,isn) =                  TsisSV(ikl,isn+isnnew)
+           eta_SV(ikl,isn) =                  eta_SV(ikl,isn+isnnew)
+           G1snSV(ikl,isn) =                  G1snSV(ikl,isn+isnnew)
+           G2snSV(ikl,isn) =                  G2snSV(ikl,isn+isnnew)
+           dzsnSV(ikl,isn+isnnew) =(1-isnnew)*dzsnSV(ikl,isn+isnnew)
+           ro__SV(ikl,isn+isnnew) =(1-isnnew)*ro__SV(ikl,isn+isnnew)
+           eta_SV(ikl,isn+isnnew) =(1-isnnew)*eta_SV(ikl,isn+isnnew)
+           G1snSV(ikl,isn+isnnew) =(1-isnnew)*G1snSV(ikl,isn+isnnew)
+           G2snSV(ikl,isn+isnnew) =(1-isnnew)*G2snSV(ikl,isn+isnnew)
+        END DO
+           isnoSV(ikl)   =   isnoSV(ikl)-isnUpD            ! Nb of Snow   Layer
+           ispiSV(ikl)   =   ispiSV(ikl)                   ! Nb of SuperI Layer
+     .    -isnUpD *max(0,min(ispiSV(ikl)-isinew,1))        ! Update  if I=0
+
+      END DO
+!      IF  (isnitr.GT.0)                                       GO TO 1000
+
+
+! New upper Limit of the non erodible Snow (istoSV .GT. 1)
+! ========================================
+
+      DO   ikl=1,knonv
+           nh =     0
+        DO isn=  nsno,1,-1
+           nh =    nh + isn* min(istoSV(ikl,isn)-1,1)*max(0,1-nh)
+        ENDDO
+           zc =     0. 
+           zt =     0. 
+        DO isn=1,nsno
+           zc =    zc +          dzsnSV(ikl,isn) *ro__SV(ikl,isn)
+     .                     * max(0,min(1,nh+1-isn))
+           zt =    zt +          dzsnSV(ikl,isn) *ro__SV(ikl,isn)
+        END DO
+           zWE_SV(ikl) =                 zt
+           zWEcSV(ikl) = min(zWEcSV(ikl),zt)
+           zWEcSV(ikl) = max(zWEcSV(ikl),zc)
+      END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (OUT)
+! #vm   DO ikl=1,knonv
+! #vm     EqSn01(ikl) =-EqSn_0(ikl)
+! #vm.                 -EExcsv(ikl)
+! #vm   END DO
+! #vm DO   isn=nsno,1,-1
+! #vm   DO ikl=1,knonv
+! #vm     EqSn01(ikl) = EqSn01(ikl) + ro__SV(ikl,isn) *dzsnSV(ikl,isn)
+! #vm.                *(Cn_dSV      *(TsisSV(ikl,isn) -Tf_Sno         )
+! #vm.                 -LhfH2O      *(1.              -eta_SV(ikl,isn)))
+! #vm   END DO
+! #vm END DO
+
+
+! "Negative Heat" from supercooled rain
+!  ------------------------------------
+
+      DO ikl=1,knonv
+          EExcsv(ikl) = EExcsv(ikl) + EExdum(ikl)
+
+
+! Surficial Water Run OFF
+! -----------------------
+
+          rusnew      = rusnSV(ikl) * SWf_SV(ikl)
+          RnofSV(ikl) = RnofSV(ikl)
+     .                +(rusnSV(ikl) - rusnew     ) / dt__SV
+          rusnSV(ikl) = rusnew
+      END DO
+
+
+! Percolation down the Continental Ice Pack
+! -----------------------------------------
+
+        DO ikl=1,knonv
+          drr_SV(ikl) = drr_SV(ikl) + rusnSV(ikl)
+     .                     * (1-min(1,ispiSV(ikl)))/ dt__SV 
+          rusnSV(ikl) = rusnSV(ikl)
+     .                     *    min(1,ispiSV(ikl))
+        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
+ 440      format('iSupI    i       dz       ro      eta',
+     .            '   PorVol   zSlush     ro_n    eta_n',2x,a18)
+
+c #SU DO   isn=1,nsno
+c #SU   DO ikl=1,knonv
+c #SU     kSlush = min(1,max(0,isn+1-ispiSV(ikl)))        ! Slush Switch
+
+! Available Additional Pore   Volume [-]
+! ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+c #SU     PorVol = 1. - ro__SV(ikl,isn)                   ! [--]
+c #SU.           *(1. - eta_SV(ikl,isn))/ rhoIce          !
+c #SU.           -      eta_SV(ikl,isn)                   !
+c #SU.                 *ro__SV(ikl,isn) / rhoWat          !
+c #SU     PorVol =  max(PorVol          , zer0  )         !
+c #SU     zWater =      dzsnSV(ikl,isn) * PorVol * 1000.  ! [mm] OR [kg/m2]
+c #SU.           * (1. -SWS_SV(ikl)                       ! 0 <=> freezing
+c #SU.                *(1 -min(1,iabs(isn-isnoSV(ikl))))) ! 1 <=> isn=isnoSV
+c #SU     zSlush =  min(rusnSV(ikl)     , zWater)         ! [mm] OR [kg/m2]
+c #SU     rusnSV(ikl) = rusnSV(ikl)     - zSlush          ! [mm] OR [kg/m2]
+c #SU     ro_new      =(dzsnSV(ikl,isn) * ro__SV(ikl,isn) !
+c #SU.                 +zSlush                           )!
+c #SU.            / max(dzsnSV(ikl,isn) , eps6           )!
+
+! OUTPUT/Verification: Slush  Parameterization
+! #vu     rusnew          = eta_SV(ikl,isn)               !
+
+c #SU     eta_SV(ikl,isn) =(ro_new - ro__SV(ikl,isn)      !
+c #SU.                    *(1.     - eta_SV(ikl,isn)))    !
+c #SU.               / max (ro_new , eps6            )    !
+
+! OUTPUT/Verification: Slush  Parameterization
+! #vu     IF    (isn.le.isnoSV(ikl))                      !
+! #vu.    write(44,441) ispiSV(ikl),isn,dzsnSV(ikl,isn)   !
+! #vu.                 ,ro__SV(ikl,isn),rusnew            !
+! #vu.                 ,PorVol         ,zSlush            !
+! #vu.                 ,ro_new         ,eta_SV(ikl,isn)   !
+ 441      format(2i5,f9.3,f9.1,f9.6,f9.3,f9.6,f9.1,f9.6)  !
+
+c #SU     ro__SV(ikl,isn) =      ro_new                   !
+c #SU   END DO
+c #SU END DO
+
+
+! Impact of the Sublimation/Deposition on the Surface Mass Balance
+! ================================================================
+
+      DO ikl=1,knonv
+          isn                     = isnoSV(ikl)
+          dzVap0                  =                   dt__SV
+     .  * HLs_sv(ikl)         * min(isn             , 1   )
+     .  /(Lx_H2O(ikl)         * max(ro__SV(ikl,isn) , eps6))
+          NOLayr=min(zer0,sign(un_1,dzsnSV(ikl,isn) + dzVap0))
+          dzVap1=min(zer0,          dzsnSV(ikl,isn) + dzVap0)
+
+
+! Additional Energy (CAUTION: Verification is not performed)
+! -----------------
+
+! OUTPUT/Verification: Energy Consrv. (HLS)
+! #e4     AdEnrg = dzVap0 * ro__SV(ikl,isnoSV(ikl))           ! Water   Vapor
+! #e4.            *hC_Wat *(TsisSV(ikl,isnoSV(ikl)) -Tf_Sno)  ! Sensible Heat
+
+! OUTPUT/Verification: Energy Consrv. (HL)
+! #e3     B_Enrg =(Cn_dSV      *(TsisSV(ikl,isn) -Tf_Sno         )
+! #e3.            -LhfH2O      *(1.              -eta_SV(ikl,isn)))
+! #e3.           /(1.          + dzVap0 /max(eps6,dzsnSV(ikl,isn)))
+! #e3     eta_SV(ikl,isn) =
+! #e3.           max(zer0,un_1 +(B_Enrg 
+! #e3.                         -(TsisSV(ikl,isn) -Tf_Sno)*Cn_dSV)
+! #e3.                          /LhfH2O                          )
+! #e3     TsisSV(ikl,isn) =    ( B_Enrg
+! #e3.                         +(1.              -eta_SV(ikl,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,isn) =
+     .           max(zer0,  dzsnSV(ikl,isnoSV(ikl)) + dzVap0)
+          isnoSV(ikl)     = isnoSV(ikl)             + NOLayr
+          isn             = isnoSV(ikl)
+          dzsnSV(ikl,isn) = dzsnSV(ikl,isn) + dzVap1
+c #IB     wes_SV(ikl)     = ro__SV(ikl,isn) * dzVap0
+      END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget: Energy Budget (OUT)
+! #vm   DO ikl=1,knonv
+! #vm     EqSn02(ikl) =-EqSn_0(ikl)
+! #vm.                 -EExcsv(ikl)
+! #vm   END DO
+! #vm DO   isn=nsno,1,-1
+! #vm   DO ikl=1,knonv
+! #vm     EqSn02(ikl) = EqSn01(ikl) + ro__SV(ikl,isn) *dzsnSV(ikl,isn)
+! #vm.                *(Cn_dSV      *(TsisSV(ikl,isn) -Tf_Sno         )
+! #vm.                 -LhfH2O      *(1.              -eta_SV(ikl,isn)))
+! #vm   END DO
+! #vm END DO
+
+
+! OUTPUT/Verification: * Mass Conservation
+! #m1   DO ikl=1,knonv
+! #m1     SIsubl(ikl) = dt__SV*HLs_sv(ikl)*min(isnoSV(ikl),1)
+! #m1.                        /Lx_H2O(ikl)
+! #m1     SIrnof(ikl) = rusnSV(ikl) + RnofSV(ikl) * dt__SV
+! #m1.                - SIrnof(ikl)
+! #m1   END DO
+
+
+! Anticipated Disappearance of a rapidly Melting too thin Last Snow Layer
+! =======================================================================
+
+      DO ikl=1,knonv
+        LastOK = min(1   , max(0   ,iiceSV(ikl)-isnoSV(ikl)+2)
+     .                    *min(1   ,isnoSV(ikl)-iiceSV(ikl))
+     .                    +min(1   ,isnoSV(ikl))              )
+        RapdOK = max(zer0,sign(un_1,dzMelt(ikl)-eps6         ))
+        ThinOK = max(zer0,sign(un_1,dz_Min     -dzsnSV(ikl,1)))
+        z_Melt = LastOK     *RapdOK*ThinOK
+        noSnow(ikl)   = noSnow(ikl)   + z_Melt
+        z_Melt        =                 z_Melt *dzsnSV(ikl,1) 
+        dzsnSV(ikl,1) = dzsnSV(ikl,1) - z_Melt
+        EExcsv(ikl)   = EExcsv(ikl)   - z_Melt *ro__SV(ikl,1)
+     .                                *(1.     -eta_SV(ikl,1))*LhfH2O
+
+! Water  Production
+! ^^^^^^^^^^^^^^^^^
+        drr_SV(ikl)   = drr_SV(ikl)     
+     .                + ro__SV(ikl,1) * z_Melt /dt__SV
+      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) .GT. 0)
+! #s2.  write(6,6005)noSnow(1)
+ 6005   format(i3,' (noSnow) ')
+
+      DO ikl=1,knonv
+        isnoSV(ikl)   = isnoSV(ikl) 
+     .     * min(1,iabs(isnoSV(ikl)-noSnow(ikl)))
+      END DO
+
+
+! OUTPUT/Verification: Energy Conservation: Energy Budget (OUT)
+! #e1   DO ikl=1,knonv
+! #e1     EqSn_1(ikl) = 0.
+! #e1   END DO
+! #e1 DO   isn=nsno,1,-1
+! #e1   DO ikl=1,knonv
+! #e1     EqSn_1(ikl) = EqSn_1(ikl) + ro__SV(ikl,isn) *dzsnSV(ikl,isn)
+! #e1.                *(Cn_dSV      *(TsisSV(ikl,isn) -Tf_Sno         )
+! #e1.                 -LhfH2O      *(1.              -eta_SV(ikl,isn)))
+! #e1   END DO
+! #e1 END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget: Water  Budget (OUT)
+! #vm   DO ikl=1,knonv
+! #vm     WqSn_0(ikl) = WqSn_0(ikl)
+! #vm.                + HLs_sv(ikl)    * dt__SV      
+! #vm.             *min(isnoSV(ikl),1) / Lx_H2O(ikl)
+! #vm     WqSn_1(ikl) = drr_SV(ikl)    * dt__SV
+! #vm.                + rusnSV(ikl)
+! #vm.                + RnofSV(ikl)    * dt__SV
+! #vm   END DO
+! #vm DO   isn=nsno,1,-1
+! #vm   DO ikl=1,knonv
+! #vm     WqSn_1(ikl) = WqSn_1(ikl)    
+! #vm.                + ro__SV(ikl,isn)* dzsnSV(ikl,isn)
+! #vm   END DO
+! #vm END DO
+
+
+! OUTPUT/Verification: Energy/Water Budget
+! #vm IF (.NOT.emopen)                                              THEN
+! #vm          emopen = .true.
+! #vm          open(unit=43,status='unknown',file='SISVAT_qSn.vm')
+! #vm          rewind 43
+! #vm   write(43,43)
+ 43     format('SubRoutine SISVAT_qSn: Local Energy and Water Budgets',
+     .       /,'=====================================================')
+! #vm END IF
+! #vm DO ikl=1,knonv
+! #vm IF (EqSn01(ikl).gt.1.e-3) write(43,431) dahost,EqSn01(ikl)
+ 431  format(' WARNING (1) in _qSn,',         a18,
+     .       ': Energy Unbalance in Phase Change = ',e15.6)
+! #vm END DO
+! #vm DO ikl=1,knonv
+! #vm IF (EqSn02(ikl).gt.1.e-3) write(43,432) dahost,EqSn01(ikl)
+ 432  format(' WARNING (2) in _qSn,',         a18,
+     .       ': Energy Unbalance in Phase Change = ',e15.6)
+! #vm END DO
+! #vm         timeer=timeer + dt__SV
+! #vm         hourer=3600.0
+! #vm IF (mod(no_err,11).eq.0)                                      THEN
+! #vm         no_err=       1
+! #vm   write(43,435)timeer/hourer
+ 435    format(11('-'),'----------+-',3('-'),'----------+-',
+     .          3('-'),'----------+-',3('-'),'----------+-',
+     .                 '----------------+----------------+',
+     .       /,f8.2,3x,'EqSn_0(1) | ',3x,'EqSn_d(1) | ',
+     .              3x,'EqSn_1(1) | ',3x,'EExcsv(1) | ',
+     .                 'E_0+E_d-E_1-EE  |   Water Budget |',
+     .       /,11('-'),'----------+-',3('-'),'----------+-',
+     .          3('-'),'----------+-',3('-'),'----------+-',
+     .                 '----------------+----------------+')
+! #vm END IF
+! #vm IF (abs(EqSn_0(1)+EqSn_d(1)-EqSn_1(1)-EExcsv(1)).gt.eps6.OR.
+! #vm.    abs(WqSn_1(1)-WqSn_0(1))                    .gt.eps6    ) THEN
+! #vm         no_err=no_err+1
+! #vm   write(43,436)   EqSn_0(1),EqSn_d(1)
+! #vm.                 ,EqSn_1(1),EExcsv(1)
+! #vm.                 ,EqSn_0(1)+EqSn_d(1)-EqSn_1(1)-EExcsv(1)
+! #vm.                 ,WqSn_1(1)-WqSn_0(1)
+ 436    format(8x,f12.0,' + ',f12.0,' - ',f12.0,' - ',f12.3,' = ',f12.3,
+     .      '    | ',f15.9)
+! #vm END IF
+
+! OUTPUT/Verification: Energy Conservation
+! #e1   DO ikl=1,knonv
+! #e1     EqSn_d(ikl) = EqSn_d(ikl) - EExcsv(ikl)
+! #e1   END DO
+
+      return
+      end
+
+
+      subroutine SISVAT_GSn
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_GSn                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_GSn simulates SNOW Metamorphism                    |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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 -nsol,-nsol+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] |
+!              slopSV   : Surface Slope                                [-] |
+!              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               | #wp: OUTPUT/Verification: Snow   Properties   |
+!                          |      unit  6, SubRoutine  SISVAT_GSn          |
+!                                                                          |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! Global Variables
+! ================
+
+      USE  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VAR0SV
+
+
+! INPUT/OUTPUT
+! ------------
+
+      USE VARxSV
+
+      IMPLICIT NONE
+
+! OUTPUT
+! ------
+
+      integer   k
+
+
+! Local  Variables
+! ================
+
+      logical   vector                        !
+      integer   ikl                           !
+      integer   isn   ,isnp                   !
+      integer   istoOK                        !
+      real      G1_bak,G2_bak                 ! Old Values of G1, G2
+      real      ro_dry(klonv,      nsno)      ! Dry Density            [g/cm3]
+      real      etaSno(klonv,      nsno)      ! Liquid Water Content   [g/cm2]
+      real      SnMass(klonv)                 ! Snow   Mass            [kg/m2]
+      real      dTsndz                        ! Temperature Gradient
+      real      sWater                        !        Water Content       [%]  
+      real      exp1Wa                        !
+      real      dDENDR                        ! Dendricity Increment
+      real      DENDRn                        ! Normalized Dendricity
+      real      SPHERn                        ! Normalized Sphericity
+      real      Wet_OK                        ! Wet Metamorphism Switch
+      real      OK__DE                        !
+      real      OK__wd                        ! New G*, from wet Dendritic
+      real      G1__wd                        ! New G1, from wet Dendritic
+      real      G2__wd                        ! New G2, from wet Dendritic
+      real      OKlowT                        !
+      real      facVap                        !
+      real      OK_ldd                        !
+      real      G1_ldd                        !
+      real      G2_ldd                        !
+      real      DiamGx                        !
+      real      DiamOK                        !
+      real      No_Big                        !
+      real      dSPHER                        !
+      real      SPHER0                        !
+      real      SPHbig                        !
+      real      G1_lds                        !
+      real      OK_mdT                        !
+      real      OKmidT                        !
+      real      OKhigT                        !
+      real      OK_mdd                        !
+      real      G1_mdd                        !
+      real      G2_mdd                        !
+      real      G1_mds                        !
+      real      OK_hdd                        !
+      real      G1_hdd                        !
+      real      G2_hdd                        !
+      real      OK_hds                        !
+      real      G1_hds                        !
+      real      T1__OK,T2__OK                 !
+      real      T3_xOK,T3__OK,T3_nOK          !
+      real      ro1_OK,ro2_OK                 !
+      real      dT1_OK,dT2_OK,dT3xOK,dT3_OK   !
+      real      dT4xOK,dT4_OK,dT4nOK,AngSno   !
+      real      G2_hds,SphrOK,HISupd          !
+      real      H1a_OK,H1b_OK,H1__OK          !
+      real      H23aOK,H23bOK,H23_OK          !
+      real      H2__OK,H3__OK                 !
+      real      H45_OK,H4__OK,H5__OK          !
+      real      ViscSn,OK_Liq,OK_Ang,OKxLiq   !
+      real      dSnMas,dzsnew,rosnew,rosmax   !
+
+      real      epsi5                         ! Alpha ev67 single precision	
+      real      vdiam1                        ! Small Grains Min.Diam.[.0001m]
+      real      vdiam2                        ! Spher.Variat.Max Diam.    [mm]
+      real      vdiam3                        ! Min.Diam.|Limit Spher.    [mm]
+      real      vdiam4                        ! Min.Diam.|Viscosity Change
+      real      vsphe1                        ! Max Sphericity
+      real      vsphe2                        ! Low T Metamorphism  Coeff.
+      real      vsphe3                        ! Max.Sphericity (history=1)
+      real      vsphe4                        ! Min.Sphericity=>history=1      
+      real      vtang1,vtang2,vtang3,vtang4   ! Temperature Contribution
+      real      vtang5,vtang6,vtang7,vtang8   !
+      real      vtang9,vtanga,vtangb,vtangc   ! 
+      real      vrang1,vrang2                 ! Density     Contribution
+      real      vgang1,vgang2,vgang3,vgang4   ! Grad(T)     Contribution
+      real      vgang5,vgang6,vgang7,vgang8   !
+      real      vgang9,vganga,vgangb,vgangc   !
+      real      vgran6                        ! Max.Sphericity for Settling
+      real      vtelv1                        ! Threshold | history = 2, 3
+      real       vvap1                        ! Vapor Pressure Coefficient
+      real       vvap2                        ! Vapor Pressure Exponent
+      real      vgrat1                        ! Boundary weak/mid   grad(T)
+      real      vgrat2                        ! Boundary mid/strong grad(T)
+      real         vfi                        ! PHI,         strong grad(T)
+      real      vvisc1,vvisc2,vvisc3,vvisc4   ! Viscosity Coefficients
+      real      vvisc5,vvisc6,vvisc7          ! id., wet Snow
+      real      rovisc                        ! Wet Snow Density  Influence
+      real        vdz3                        ! Maximum Layer Densification
+      real      OK__ws                        ! New G2
+      real      G1__ws                        ! New G1, from wet Spheric
+      real      G2__ws                        ! New G2, from wet Spheric
+      real      husi_0,husi_1,husi_2,husi_3   ! Constants for New G2
+      real      vtail1,vtail2                 ! Constants for New G2
+      real      frac_j                        ! Time Step            [Day]
+
+      real       vdent1                       ! Wet Snow Metamorphism
+      integer   nvdent1                       ! (Coefficients for
+      integer   nvdent2                       !           Dendricity)
+
+! OUTPUT/Verification: Snow Layers Agregation: Properties
+! #vp real      G_curr(18),Gcases(18)
+! #vp common   /GSnLOC/    Gcases
+
+! OUTPUT/Verification: Snow   Properties
+! #wp real                 D__MAX
+! #wp common   /GSnMAX/    D__MAX
+
+
+! DATA
+! ====
+
+      data       vector/.true./               ! Vectorization  Switch
+      data       vdent1/ 2.e8/                ! Wet Snow Metamorphism
+      data      nvdent1/ 3   /                ! (Coefficients for
+      data      nvdent2/16   /                !           Dendricity)
+
+      data       husi_0 /20.      /           !   10  * 2
+      data       husi_1 / 0.23873 /           ! (3/4) /pi
+      data       husi_2 / 4.18880 /           ! (4/3) *pi
+      data       husi_3 / 0.33333 /           !  1/3
+      data       vtail1 / 1.28e-08/           !  Wet Metamorphism
+      data       vtail2 / 4.22e-10/           ! (NON Dendritic / Spheric)
+
+      data       epsi5  / 1.0e-5  /           ! 
+
+      data       vdiam1 / 4.0     /           ! Small Grains Min.Diameter
+
+      data       vdiam2 / 0.5     /           ! Spher.Variat.Max Diam.[mm]
+      data       vdiam3 / 3.0     /           ! Min.Diam.|Limit Spher.[mm]
+      data       vdiam4 / 2.0     /           ! Min.Diam.|Viscosity Change
+
+      data       vsphe1 / 1.0     /           ! Max Sphericity
+      data       vsphe2 / 1.0e9   /           ! Low T Metamorphism  Coeff.
+      data       vsphe3 / 0.5     /           ! Max.Sphericity (history=1)
+      data       vsphe4 / 0.1     /           ! Min.Sphericity=>history=1      
+
+      data       vgran6 / 51.     /           ! Max.Sphericity for Settling
+      data       vtelv1 / 5.e-1   /           ! Threshold | history = 2, 3
+
+      data        vvap1 /-6.e3    /           ! Vapor Pressure Coefficient
+      data        vvap2 / 0.4     /           ! Vapor Pressure Exponent
+
+      data       vgrat1 /0.05     /           ! Boundary weak/mid   grad(T)
+      data       vgrat2 /0.15     /           ! Boundary mid/strong grad(T)
+      data          vfi /0.09     /           ! PHI,         strong grad(T)
+
+      data       vvisc1 / 0.70    /           ! Viscosity Coefficients
+      data       vvisc2 / 1.11e5  /           !
+      data       vvisc3 /23.00    /           !
+      data       vvisc4 / 0.10    /           !
+      data       vvisc5 / 1.00    /           ! id., wet Snow
+      data       vvisc6 / 2.00    /           !
+      data       vvisc7 /10.00    /           !
+      data       rovisc / 0.25    /           ! Wet Snow Density  Influence
+      data         vdz3 / 0.30    /           ! Maximum Layer Densification
+
+
+! DATA (Coefficient Fonction fort Gradient Marbouty)
+! --------------------------------------------------
+
+      data       vtang1 /40.0/                ! Temperature Contribution
+      data       vtang2 / 6.0/                !
+      data       vtang3 /22.0/                !
+      data       vtang4 / 0.7/                !
+      data       vtang5 / 0.3/                !
+      data       vtang6 / 6.0/                !
+      data       vtang7 / 1.0/                !
+      data       vtang8 / 0.8/                !
+      data       vtang9 /16.0/                !
+      data       vtanga / 0.2/                !
+      data       vtangb / 0.2/                !
+      data       vtangc /18.0/                !
+
+      data       vrang1 / 0.40/               ! Density     Contribution
+      data       vrang2 / 0.15/               !
+
+      data       vgang1 / 0.70/               ! Grad(T)     Contribution
+      data       vgang2 / 0.25/               !
+      data       vgang3 / 0.40/               !
+      data       vgang4 / 0.50/               !
+      data       vgang5 / 0.10/               !
+      data       vgang6 / 0.15/               !
+      data       vgang7 / 0.10/               !
+      data       vgang8 / 0.55/               !
+      data       vgang9 / 0.65/               !
+      data       vganga / 0.20/               !
+      data       vgangb / 0.85/               !
+      data       vgangc / 0.15/               !
+
+! OUTPUT/Verification: Snow   Properties
+! #wp data       D__MAX / 4.00/               !
+
+
+!  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,nsno
+        DO ikl=1,knonv
+          ro_dry(ikl,isn) = 1.e-3 *ro__SV(ikl,isn)    ! Dry Density
+     .                    *(1.    -eta_SV(ikl,isn))   !         [g/cm3]
+          etaSno(ikl,isn) = 1.e-1 *dzsnSV(ikl,isn)    ! Liquid Water
+     .                    *        ro__SV(ikl,isn)    ! Content [g/cm2]
+     .                    *        eta_SV(ikl,isn)    !
+        END DO
+      END DO
+
+      DO   isn=1,nsno
+        DO ikl=1,knonv
+
+          isnp   = min(isn+1,isnoSV(ikl))
+
+          dTsndz = abs( (TsisSV(ikl,isnp)-TsisSV(ikl,isn-1)) *2.e-2
+     .            /max(((dzsnSV(ikl,isnp)+dzsnSV(ikl,isn)  )
+     .                 *(           isnp -           isn)
+     .                 +(dzsnSV(ikl,isn )+dzsnSV(ikl,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,isn)-eps6))
+
+
+!      Vitesse de diminution de la dendricite
+!      Rate of the dendricity decrease
+!      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+          sWater=1.d-1*ro__SV(ikl,isn)*eta_SV(ikl,isn)
+     .       /max(eps6,ro_dry(ikl,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,isn)       !
+     .                         -eps6           ))     !
+
+          DENDRn=-G1snSV(ikl,isn)/G1_dSV  ! Normalized Dendricity (+)
+          SPHERn= G2snSV(ikl,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,isn)))     !
+
+          SPHERn= G1snSV(ikl,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,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,isn))
+
+!  1.3.1.1 Cas dendritique / dendritic Case
+
+          OK_ldd=max(zer0,                            !
+     .               sign(un_1,-G1snSV(ikl,isn)       !
+     .                         -eps6           ))     !
+
+          DENDRn=-G1snSV(ikl,isn)     /G1_dSV
+          SPHERn= G2snSV(ikl,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,isn)/G1_dSV
+          DiamGx=G2snSV(ikl,isn)*0.1
+
+          istoOK=min( abs(istoSV(ikl,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,isn)))  ! (history = 2 or 3)
+          SPHbig=       min(vsphe3,SPHbig)            ! limited sphericity
+          SPHERn= No_Big *  SPHER0
+     .      + (1.-No_Big)*  SPHbig
+
+          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,isn))
+     .                 *   (1.e2 *dTsndz)**vvap2
+
+!  1.3.2.1 cas dendritique / dendritic case.
+
+          OK_mdd=max(zer0,                            !
+     .               sign(un_1,-G1snSV(ikl,isn)       !
+     .                         -eps6           ))     !
+
+          DENDRn=-G1snSV(ikl,isn)/G1_dSV
+          SPHERn= G2snSV(ikl,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,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,isn))
+     .                 *   (1.e2 *dTsndz)**vvap2
+
+!  1.3.3.1 Cas dendritique / dendritic Case
+
+          OK_hdd=max(zer0,                            !
+     .               sign(un_1,-G1snSV(ikl,isn)       !
+     .                         -eps6           ))     !
+
+          DENDRn=-G1snSV(ikl,isn)/G1_dSV              !
+          SPHERn= G2snSV(ikl,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,isn)       !
+     .                         -eps6           ))     !
+
+          SPHERn= G1snSV(ikl,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,isn)-Tf_Sno+vtang1))
+          T2__OK = max(zer0,sign(un_1,TsisSV(ikl,isn)-Tf_Sno+vtang2))
+          T3_xOK = max(zer0,sign(un_1,TsisSV(ikl,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,isn)))
+          ro2_OK = max(zer0,sign(un_1,ro_dry(ikl,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,isn))        ! 12
+     .                    /vtang6)                                       !
+     .     +T3__OK*(vtang7-vtang8*(Tf_Sno-vtang2-TsisSV(ikl,isn))        ! 13
+     .                    /vtang9)                                       !
+     .     +T3_nOK*(vtanga-vtangb*(Tf_Sno-vtang3-TsisSV(ikl,isn))        ! 14
+     .                    /vtangc))                                      !
+
+!  Influence de la Masse Volumique /Density Influence
+!  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+     .    * ro1_OK
+     .        *(   ro2_OK*(1. - (ro_dry(ikl,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,isn) + 1.d2 *AngSno*vfi     *frac_j
+
+
+! New Properties
+! --------------
+
+          G1_bak          = G1snSV(ikl,isn)
+          G2_bak          = G2snSV(ikl,isn)
+
+          G1snSV(ikl,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
+
+          G2snSV(ikl,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))
+! #vp.    write(47,471)isn            ,isnoSV(ikl)                    ,
+! #vp.                 TsisSV(ikl,isn),ro__SV(ikl,isn),eta_SV(ikl,isn),
+! #vp.                 G1_bak         ,G2_bak         ,istoSV(ikl,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,isn),
+! #vp.                 G2snSV(ikl,isn)
+ 471      format(
+     .         /,' isn     =  ',i4,6x,'(MAX.:',i4,')',  
+     .         /,' T       =  ',f8.3,
+     .         /,' ro      =  ',f8.3,
+     .         /,' eta     =  ',f8.3,
+     .         /,' G1      =  ',f8.3,
+     .         /,' G2      =  ',f8.3,
+     .         /,' Histor. =  ',i4  ,
+     .         /,' Grad(T) =  ',f8.3,'                   ' ,18i3  ,
+     ./,         '                       Current    Case: ',18f3.0,
+     ./,         '                       Cases performed: ',18f3.0,
+     ./,' ------------------------------------------------------------',
+     .             '-----------+------------------+------------------+',
+     ./,' Status                                                      ',
+     .             '           | G1               | G2               |',
+     ./,' ------------------------------------------------------------',
+     .             '-----------+------------------+------------------+',
+     ./,'    Wet_OK: ',f8.3,'                  OK__wd: ',f8.3,'       ',
+     .             '           | G1__wd: ',f8.3,' | G2__wd: ',f8.5,' |',
+     ./,'                                   1.-OK__wd: ',f8.3,' OK__ws',
+     .             ': ',f8.3,' | G1__ws: ',f8.3,' |                  |',
+     ./,'                                                    1.-OK__ws',
+     .             ': ',f8.3,' |                  | G2__ws: ',f8.5,' |',
+     ./,' 1.-Wet_OK: ',f8.3,' OKlowT: ',f8.3,' OK_ldd: ',f8.3,'       ',
+     .             '           | G1_ldd: ',f8.3,' | G2_ldd: ',f8.5,' |',
+     ./,'                                   1.-OK_ldd: ',f8.3,'       ',
+     .             '           | G1_lds: ',f8.3,' |                  |',
+     ./,'                     OKmidT: ',f8.3,' OK_mdd: ',f8.3,'       ',
+     .             '           | G1_mdd: ',f8.3,' | G2_mdd: ',f8.5,' |',
+     ./,'                                   1.-OK_mdd: ',f8.3,'       ',
+     .             '           | G1_mds: ',f8.3,' |                  |',
+     ./,'                     OKhigT: ',f8.3,' OK_hdd: ',f8.3,'       ',
+     .             '           | G1_hdd: ',f8.3,' | G2_hdd: ',f8.5,' |',
+     ./,'                                   1.-OK_hdd: ',f8.3,' OK_hds',
+     .             ': ',f8.3,' | G1_hds: ',f8.3,' |                  |',
+     ./,'                                                    1.-OK_hds',
+     .             ': ',f8.3,' |                  | G2_hds: ',f8.5,' |',
+     ./,' ------------------------------------------------------------',
+     .             '-----------+------------------+------------------+',
+     ./,'                                                             ',
+     .             '           |         ',f8.3,' |         ',f8.5,' |',
+     ./,' ------------------------------------------------------------',
+     .             '-----------+------------------+------------------+')
+        END DO
+      END DO
+
+
+!  2. Mise a Jour Variables Historiques (Cas non dendritique)
+!     Update of the historical Variables
+!     =======================================================
+
+      IF (vector)                                                   THEN
+        DO isn=1,nsno
+        DO ikl=1,knonv
+
+          SphrOK = max(zer0,sign(un_1,       G1snSV(ikl,isn)))
+          H1a_OK = max(zer0,sign(un_1,vsphe4-G1snSV(ikl,isn)))
+          H1b_OK =     1   - min(1   ,       istoSV(ikl,isn))
+          H1__OK =                    H1a_OK*H1b_OK
+          H23aOK = max(zer0,sign(un_1,vsphe4-G1_dSV
+     .                                      +G1snSV(ikl,isn)))
+          H23bOK = max(zer0,sign(un_1,etaSno(ikl,isn)
+     .                      /max(eps6,dzsnSV(ikl,isn))
+     .                                      -vtelv1         ))
+          H23_OK =                    H23aOK*H23bOK
+          H2__OK =     1   - min(1   ,       istoSV(ikl,isn))
+          H3__OK =     1   - min(1   ,   abs(istoSV(ikl,isn)-istdSV(1)))
+          H45_OK = max(zer0,sign(un_1,Tf_Sno-TsisSV(ikl,isn)+eps6))
+          H4__OK =     1   - min(1   ,   abs(istoSV(ikl,isn)-istdSV(2)))
+          H5__OK =     1   - min(1   ,   abs(istoSV(ikl,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,isn) =   HISupd  +
+     .           (1.-min(un_1,HISupd))               *istoSV(ikl,isn)
+        END DO
+        END DO
+      ELSE 
+
+
+!  2. Mise a Jour Variables Historiques (Cas non dendritique)
+!     Update of the historical Variables
+!     =======================================================
+
+        DO ikl=1,knonv
+        DO isn=iiceSV(ikl),isnoSV(ikl)
+          IF  (G1snSV(ikl,isn).ge.0.)                               THEN
+            IF(G1snSV(ikl,isn).lt.vsphe4.and.istoSV(ikl,isn).eq.0)  THEN
+                   istoSV(ikl,isn)=istdSV(1)
+            ELSEIF(G1_dSV-G1snSV(ikl,isn)         .lt.vsphe4.and.
+     .             etaSno(ikl,isn)/dzsnSV(ikl,isn).gt.vtelv1)       THEN
+              IF  (istoSV(ikl,isn).eq.0)
+     .             istoSV(ikl,isn)=   istdSV(2)
+              IF  (istoSV(ikl,isn).eq.istdSV(1))  
+     .             istoSV(ikl,isn)=   istdSV(3)
+            ELSEIF(TsisSV(ikl,isn).lt.Tf_Sno)                       THEN
+              IF  (istoSV(ikl,isn).eq.istdSV(2))  
+     .             istoSV(ikl,isn)=   istdSV(4)
+              IF  (istoSV(ikl,isn).eq.istdSV(3))  
+     .             istoSV(ikl,isn)=   istdSV(5)
+            END IF
+          END IF
+        END DO
+        END DO
+      END IF
+
+
+!  3. Tassement mecanique /mechanical Settlement
+!     ==========================================
+
+        DO ikl=1,knonv
+          SnMass(ikl) = 0.
+        END DO
+      DO isn=nsno,1,-1
+        DO ikl=1,knonv
+          dSnMas     = 100.*dzsnSV(ikl,isn)*ro_dry(ikl,isn)
+          SnMass(ikl)=      SnMass(ikl)+0.5*dSnMas
+          ViscSn     =      vvisc1         *vvisc2
+     .               *exp(vvisc3           *ro_dry(ikl,isn)
+     .                   +vvisc4*abs(Tf_Sno-TsisSV(ikl,isn)))
+     .                                     *ro_dry(ikl,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,isn)-eps6))
+          OK_Ang     =    max(zer0,sign(un_1,vgran6-G1snSV(ikl,isn)))
+     .                *(1-min(1   , abs(istoSV(ikl,isn)-istdSV(1))))
+
+! OUTPUT/Verification: Snow   Properties
+! #wp     IF (G1snSV(ikl,isn).gt.0..AND.G1snSV(ikl,isn).lt.vsphe4
+! #wp.                             .AND.istoSV(ikl,isn).eq.     0)
+! #wp.    THEN
+! #wp       write(6,*) ikl,isn,' G1,G2,hist,OK_Ang  ',
+! #wp.          G1snSV(ikl,isn), G2snSV(ikl,isn),istoSV(ikl,isn),OK_Ang
+! #wp       stop "Grains anguleux mal d?finis"
+! #wp     END IF
+
+          OKxLiq     =    max(zer0,sign(un_1,vtelv1-etaSno(ikl,isn)
+     .                                    /max(eps6,dzsnSV(ikl,isn))))
+     .               *    max(0   ,sign(1   ,istoSV(ikl,isn)
+     .                                      -istdSV(1)      ))
+          ViscSn     =  
+     .    ViscSn*(    OK_Liq/(vvisc5+vvisc6*etaSno(ikl,isn)
+     .                            /max(eps6,dzsnSV(ikl,isn)))
+     .           +(1.-OK_Liq)                               )
+     .          *(    OK_Ang*exp(min(ADSdSV,G2snSV(ikl,isn)-vdiam4))
+     .           +(1.-OK_Ang)                                       )
+     .          *(    OKxLiq*        vvisc7
+     .           +(1.-OKxLiq)              )
+
+
+!  Calcul nouvelle Epaisseur / new Thickness
+!  -----------------------------------------
+
+          dzsnew         =
+     .    dzsnSV(ikl,isn) 
+     .     *max(vdz3,
+     .         (un_1-dt__SV*max(SnMass(ikl)*cos(slopSV(ikl)),un_1)
+     .                     /max(ViscSn                      ,eps6)))
+          rosnew         = ro__SV(ikl,isn) *dzsnSV(ikl,isn)  
+     .                            /max(eps6,dzsnew)
+          rosmax         = 1.d0   /( (1.d0 -eta_SV(ikl,isn)) /rhoIce
+     .                               +      eta_SV(ikl,isn)  /rhoWat)
+          rosnew         =                        min(rosnew ,rosmax)
+          dzsnSV(ikl,isn)= dzsnSV(ikl,isn) *ro__SV(ikl,isn)
+     .                            /max(eps6,rosnew)
+          ro__SV(ikl,isn)= rosnew
+          ro_dry(ikl,isn)= ro__SV(ikl,isn)*(1.-eta_SV(ikl,isn))*1.e-3
+!         ro_dry: Dry Density (g/cm3)
+
+          SnMass(ikl)    = SnMass(ikl)+dSnMas*0.5
+        END DO
+      END DO
+
+
+! OUTPUT/Verification: Snow   Properties
+! #wp DO ikl = 1,knonv
+! #wp DO isn = 1,isnoSV(ikl)
+! #wp   IF (G1snSV(ikl,isn).gt.0. .AND. G2snSV(ikl,isn).gt.D__MAX) THEN
+! #wp     write(6,6600) G1snSV(ikl,isn),G2snSV(ikl,isn),ikl,isn
+ 6600     format(/,'WARNING in _GSn: G1,G2 =',2f9.3,'  (ikl,isn) =',2i4)
+! #wp     D__MAX =                      G2snSV(ikl,isn)
+! #wp   END IF
+! #wp   IF (                            G2snSV(ikl,isn).lt.0.    ) THEN
+! #wp     write(6,6601) G1snSV(ikl,isn),G2snSV(ikl,isn),ikl,isn
+ 6601     format(/,'ERROR 1 in _GSn: G1,G2 =',2f9.3,'  (ikl,isn) =',2i4)
+! #wp     STOP
+! #wp   END IF
+! #wp   IF (G1snSV(ikl,isn).gt.G1_dSV+eps6                       ) THEN
+! #wp     write(6,6602) G1snSV(ikl,isn),G2snSV(ikl,isn),ikl,isn
+ 6602     format(/,'ERROR 2 in _GSn: G1,G2 =',2f9.3,'  (ikl,isn) =',2i4)
+! #wp     STOP
+! #wp   END IF
+! #wp   IF (G1snSV(ikl,isn).lt.0.                           .AND.
+! #wp.      G2snSV(ikl,isn).gt.G1_dSV+eps6                       ) THEN
+! #wp     write(6,6603) G1snSV(ikl,isn),G2snSV(ikl,isn),ikl,isn
+ 6603     format(/,'ERROR 3 in _GSn: G1,G2 =',2f9.3,'  (ikl,isn) =',2i4)
+! #wp     STOP
+! #wp   END IF
+! #wp END DO
+! #wp END DO
+
+      return
+      end
+
+
+      subroutine SISVAT_qSo
+! #m0.                     (Wats_0,Wats_1,Wats_d)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_qSo                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_qSo computes the Soil      Water  Balance          |
+!--------------------------------------------------------------------------+
+!                                                                          |
+!     PARAMETERS:  klonv: 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                                 |
+!     #BP: 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               | #sg: OUTPUT/Verification: Gravitational Front |
+!                          |      unit  6, SubRoutine  SISVAT_qSo **ONLY** |
+!                                                                          |
+!     REMARQUE: Inclure possibilite de creer mare sur bedrock impermeable  |
+!     ^^^^^^^^                                                             |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! Global Variables
+! ================
+
+      USE  PHY_SV
+
+      USE VAR_SV
+      USE VARdSV
+      USE VAR0SV
+
+      USE VARxSV
+      USE VARySV
+
+
+      IMPLICIT NONE
+
+! OUTPUT
+! ------
+
+! OUTPUT/Verification: H2O    Conservation
+! #m0 real      Wats_0(klonv)                 ! Soil Water,  before forcing
+! #m0 real      Wats_1(klonv)                 ! Soil Water,  after  forcing
+! #m0 real      Wats_d(klonv)                 ! Soil Water          forcing
+
+
+! Internal Variables
+! ==================
+
+      integer   isl   ,jsl   ,ist   ,ikl      !
+      integer   ikm   ,ikp   ,ik0   ,ik1      !
+      integer   ist__s,ist__w                 ! Soil/Water Body Identifier
+c #BP real      z0soil                        ! Soil Surface Bumps Height  [m]
+c #BP real      z_Bump                        !(Partly)Bumpy Layers Height [m] 
+c #BP real      z0Bump                        !        Bumpy Layers Height [m] 
+c #BP real      dzBump                        ! Lowest Bumpy Layer: 
+
+c #BP real      etBump(klonv)                 ! Bumps Layer Averaged Humidity
+      real      etaMid                        ! Layer Interface's Humidity
+      real      Dhydif                        ! Hydraulic Diffusivity   [m2/s]
+      real      eta__f                        ! Water Front Soil Water Content
+      real      Khyd_f                        ! Water Front Hydraulic Conduct.
+      real      Khydav                        ! Hydraulic Conductivity   [m/s]
+      real      WgFlow                        ! Water gravitat. Flux [kg/m2/s]
+      real      Wg_MAX                        ! Water MAX.grav. Flux [kg/m2/s]
+      real      SatRat                        ! Saturation      Flux [kg/m2/s]
+      real      WExces                        ! Saturat. Excess Flux [kg/m2/s]
+      real      SoRnOF(klonv)                 ! Soil     Run    OFF
+      real      Dhydtz(klonv,-nsol:0)         ! Dhydif * dt / dz           [m]
+      real      Elem_A,Elem_B,Elem_C          !   Diagonal Coefficients
+      real      Diag_A(klonv,-nsol:0)         ! A Diagonal
+      real      Diag_B(klonv,-nsol:0)         ! B Diagonal
+      real      Diag_C(klonv,-nsol:0)         ! C Diagonal
+      real      Term_D(klonv,-nsol:0)         !   Independant Term
+      real      Aux__P(klonv,-nsol:0)         ! P Auxiliary Variable
+      real      Aux__Q(klonv,-nsol:0)         ! Q Auxiliary Variable
+      real      etaaux(klonv,-nsol:-nsol+1)   ! Soil Water Content     [m3/m3]
+      real      FreeDr                        ! Free Drainage Fraction (actual)
+      real      FreeD0                        ! Free Drainage Fraction (1=Full)
+
+! OUTPUT/Verification: H2O    Conservation
+! #mw logical         mwopen                  ! IO   Switch
+! #mw common/Sm_qSo_L/mwopen                  !
+! #mw real     hourwr,timewr                  !
+! #mw common/Sm_qSo_R/timewr                  !
+! #mw real            Evapor(klonv)           !
+
+
+! Internal DATA
+! =============
+
+c #BP data      z0soil/0.020/                 ! Soil Surface Bumps Height  [m]
+      data      FreeD0/1.000/                 ! Free Drainage Fraction (1=Full)
+
+
+! OUTPUT/Verification: H2O    Conservation: Water  Budget (IN)
+! #m0   DO ikl=1,knonv
+! #m0     Wats_0(ikl) = 0.                    ! OLD RunOFF Contrib.
+! #m0     Wats_d(ikl) = drr_SV(ikl)           ! Water Surface Forc.
+! #m0   END DO
+
+! #m0      isl= -nsol
+! #m0   DO ikl=1,knonv
+! #m0     Wats_0(ikl) = Wats_0(ikl) 
+! #m0.      + rhoWat *( eta_SV(ikl,isl)   *dz78SV(isl)
+! #m0.                + eta_SV(ikl,isl+1) *dz_8SV(isl) ) * LSdzsv(ikl)
+! #m0   END DO
+
+! #m0 DO   isl= -nsol+1,-1
+! #m0   DO ikl=1,knonv
+! #m0     Wats_0(ikl) = Wats_0(ikl) 
+! #m0.      + rhoWat *( eta_SV(ikl,isl)   *dz34SV(isl)
+! #m0.                +(eta_SV(ikl,isl-1)
+! #m0.                 +eta_SV(ikl,isl+1))*dz_8SV(isl) ) * LSdzsv(ikl)
+! #m0   END DO
+! #m0 END DO 
+
+! #m0      isl=  0
+! #m0   DO ikl=1,knonv
+! #m0     Wats_0(ikl) = Wats_0(ikl) 
+! #m0.      + rhoWat *( eta_SV(ikl,isl)   *dz78SV(isl)
+! #m0.                + eta_SV(ikl,isl-1) *dz_8SV(isl) ) * LSdzsv(ikl)
+! #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,knonv
+          ist    = isotSV(ikl)                     ! 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,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,isl))    !          Rate
+     .           /(dzAvSV(isl)*LSdzsv(ikl)    )    !
+     .          +  rhoWat     *Khydav              ! 
+
+! Surface Horton RunOFF
+! ^^^^^^^^^^^^^^^^^^^^^
+          SoRnOF(ikl) =
+     .                max(zer0,drr_SV(ikl)-Wg_MAX)
+          drr_SV(ikl) =        drr_SV(ikl)-SoRnOF(ikl)
+        END DO
+
+c #GF DO   isl=0,-nsol,-1
+c #GF   DO ikl=1,knonv
+c #GF     ist    = isotSV(ikl)                     ! Soil Type
+c #GF     ist__s = min(ist, 1)                     ! 1 => Soil
+c #GF     ist__w = 1 - ist__s                      ! 1 => Water Body
+
+! Water Diffusion
+! ^^^^^^^^^^^^^^^
+c #GF     Dhydif = s1__SV(ist)
+c #GF.               *max(eps6,eta_SV(ikl,isl))    ! Hydraulic Diffusivity
+c #GF.                      **(bCHdSV(ist)+2.)     ! DR97, Eqn.(3.36)
+c #GF     Dhydif = ist__s    * Dhydif              !
+c #GF.           + ist__w    * vK_dSV              ! Water Bodies
+
+! Water Conduction (without Horton Runoff)
+! ^^^^^^^^^^^^^^^^
+c #GF     Khyd_f =             Ks_dSV(ist)
+!         Uses saturated K ==> Horton Runoff ~0    !
+
+! Water Conduction (with    Horton Runoff)
+! ^^^^^^^^^^^^^^^^
+c #GH     ik0    = nkhy       *eta_SV(ikl,isl)
+c #GH.                        /etadSV(ist)
+c #GH     eta__f         =            1.
+c #GH.   -aKdtSV(ist,ik0)/(2. *dzAvSV(isl)
+c #GH.                        *LSdzsv(ikl))
+c #GH     eta__f         = max(eps_21,eta__f)
+c #GH     eta__f         = min(etadSV(ist),
+c #GH.                         eta_SV(ikl,isl) +
+c #GH.   (aKdtSV(ist,ik0)     *eta_SV(ikl,isl)
+c #GH.   +bKdtSV(ist,ik0))   /(dzAvSV(isl)
+c #GH.                        *LSdzsv(ikl))
+c #GH.                       / eta__f          )
+
+c #GH     eta__f         = .5*(eta_SV(ikl,isl)
+c #GH.                        +eta__f)
+!         eta__f         =     eta_SV(ikl,isl)     ! Another Possibility
+
+c #GH     ik0    = nkhy       *eta__f
+c #GH.                        /etadSV(ist)
+c #GH     Khyd_f =
+c #GH.   (aKdtSV(ist,ik0)     *eta__f
+c #GH.   +bKdtSV(ist,ik0))    /dt__SV
+
+c #GF     Khydav = ist__s    * Khyd_f              ! DR97  Assumption
+c #GF.           + ist__w    * vK_dSV              ! Water Bodies
+
+! Gravitational Flow
+! ^^^^^^^^^^^^^^^^^^
+c #GF     Wg_MAX =                                 ! MAXimum  Infiltration
+c #GF.             rhoWat     *Dhydif              !          Rate
+c #GF.           *(etadSV(ist)-eta_SV(ikl,isl))    ! 
+c #GF.           /(dzAvSV(isl)*LSdzsv(ikl)    )    !
+c #GF.          +  rhoWat     *Khydav              ! 
+
+! OUTPUT/Verification: Gravitational Front
+! #sg     write(6,6001) isl,drr_SV(ikl)*3.6e3,Wg_MAX     *3.6e3
+ 6001     format(i3,'  vRain ,Wg_MAX ',2e12.3,' mm/hr')
+
+c #GF     WgFlow =  min(Wg_MAX,drr_SV(ikl))        ! Infiltration Rate
+c #GF     WExces =  max(zer0  ,drr_SV(ikl)-WgFlow) ! Water Excess => RunOff
+
+! OUTPUT/Verification: Gravitational Front
+! #sg     write(6,6002)     WgFlow     *3.6e3,WExces     *3.6e3
+ 6002     format(3x,'  WgFlow,WExces ',2e12.3,' mm/hr')
+
+c #GF     SoRnOF(ikl) =        SoRnOF(ikl)+WExces  !
+c #GF     drr_SV(ikl) =        WgFlow              !
+
+! OUTPUT/Verification: Gravitational Front
+! #sg     write(6,6003)     SoRnOF(ikl)*3.6e3,drr_SV(ikl)*3.6e3
+ 6003     format(3x,'  SoRnOF,drr_SV ',2e12.3,' mm/hr')
+
+c #GF     SatRat =(etadSV(ist)-eta_SV(ikl,isl))    ! Saturation   Rate
+c #GF.            *rhoWat     *dzAvSV(isl)         !
+c #GF.                        *LSdzsv(ikl)/dt__SV  !
+c #GF     SatRat =  min(SatRat,drr_SV(ikl))        !
+c #GF     drr_SV(ikl) =        drr_SV(ikl)-SatRat  ! Water Flux for Below
+
+! OUTPUT/Verification: Gravitational Front
+! #sg     write(6,6004)     SatRat     *3.6e3,drr_SV(ikl)*3.6e3
+ 6004     format(3x,'  SatRat,drr_SV ',2e12.3,' mm/hr')
+! #sg     write(6,6005)     eta_SV(ikl,isl)*1.e3
+
+c #GF     eta_SV(ikl,isl) =    eta_SV(ikl,isl)     ! Saturation
+c #GF.                        +SatRat*dt__SV       !
+c #GF.                       /(rhoWat*dzAvSV(isl)  !
+c #GF.                               *LSdzsv(ikl)) !
+
+! OUTPUT/Verification: Gravitational Front
+! #sg     write(6,6005)     eta_SV(ikl,isl)*1.e3
+
+ 6005     format(3x,'  eta_SV,       ',e12.3,' g/kg')
+c #GF   END DO
+c #GF END DO
+c #GF   DO ikl=1,knonv
+c #GF     SoRnOF(ikl)     =    SoRnOF(ikl)         ! RunOFF Intensity
+c #GF.                    +    drr_SV(ikl)         ! [kg/m2/s]
+!         Inclure la possibilite de creer une mare sur un bedrock impermeable
+c #GF     drr_SV(ikl) = 0.
+c #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=-nsol+1,0
+        DO ikl=1,knonv
+          ist    =      isotSV(ikl)                       ! Soil Type
+          ist__s =      min(ist, 1)                       ! 1 => Soil
+          ist__w =      1 - ist__s                        ! 1 => Water Body
+          etaMid =     (dz_dSV(isl)  *eta_SV(ikl,isl-1)   ! eta at layers
+     .                 +dz_dSV(isl-1)*eta_SV(ikl,isl)  )  !     interface
+     .           /(2.0* dzmiSV(isl))                      ! LSdzsv implicit !
+c #GA     etaMid = sqrt(dz_dSV(isl)  *eta_SV(ikl,isl-1)   ! Idem, geometric
+c #GA.                 *dz_dSV(isl-1)*eta_SV(ikl,isl)  )  !       average
+c #GA.           /(2.0* dzmiSV(isl))                      ! (Vauclin&al.1979)
+          Dhydif          =    s1__SV(ist)                ! Hydraul.Diffusi.
+     .  *(etaMid         **(   bCHdSV(ist)+2.))           ! DR97, Eqn.(3.36)
+          Dhydtz(ikl,isl) =    Dhydif*dt__SV              !
+     .                              /(dzmiSV(isl)         !
+     .                               *LSdzsv(ikl))        !
+          Dhydtz(ikl,isl) =    Dhydtz(ikl,isl) * ist__s   ! Soil
+     .        +0.5*dzmiSV(isl)*LSdzsv(ikl)     * ist__w   ! Water bodies
+
+        END DO
+      END DO
+           isl=-nsol
+        DO ikl=1,knonv
+          Dhydtz(ikl,isl) =    0.0                        !
+        END DO
+
+
+! Tridiagonal Elimination: Set Up
+! -------------------------------
+
+! Soil/Snow Interior
+! ^^^^^^^^^^^^^^^^^^
+      DO   isl=-nsol,-nsol+1
+        DO ikl=1,knonv
+          etaaux(ikl,isl) =  eta_SV(ikl,isl)
+        END DO
+      END DO
+
+      DO   isl=-nsol+1,-1
+        DO ikl=1,knonv
+          ist      =         isotSV(ikl)
+          ikm      = nkhy *  eta_SV(ikl,isl-1) / etadSV(ist)
+          ik0      = nkhy *  eta_SV(ikl,isl)   / etadSV(ist)
+          ikp      = nkhy *  eta_SV(ikl,isl+1) / etadSV(ist)
+          Elem_A   =         Dhydtz(ikl,isl)   
+     .                    -  aKdtSV(ist,ikm)* dziiSV(isl)  *LSdzsv(ikl)
+          Elem_B   =      - (Dhydtz(ikl,isl)
+     .                      +Dhydtz(ikl,isl+1)
+     .                      -aKdtSV(ist,ik0)*(dziiSV(isl+1)
+     .                                       -dzi_SV(isl) )*LSdzsv(ikl))
+          Elem_C   =         Dhydtz(ikl,isl+1) 
+     .                    +  aKdtSV(ist,ikp)* dzi_SV(isl+1)*LSdzsv(ikl)
+          Diag_A(ikl,isl) =  dz_8SV(isl)        *LSdzsv(ikl)
+     .                      -Implic            * Elem_A
+          Diag_B(ikl,isl) =  dz34SV(isl)        *LSdzsv(ikl)
+     .                      -Implic            * Elem_B
+          Diag_C(ikl,isl) =  dz_8SV(isl)        *LSdzsv(ikl)
+     .                      -Implic            * Elem_C
+
+          Term_D(ikl,isl) = (dz_8SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_A     )*eta_SV(ikl,isl-1)
+     .                    + (dz34SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_B     )*eta_SV(ikl,isl)
+     .                    + (dz_8SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_C     )*eta_SV(ikl,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)
+     .                    -  dt__SV         * Rootsv(ikl,isl)/rhoWat
+        END DO
+      END DO
+
+           isl=-nsol
+        DO ikl=1,knonv
+          ist      =         isotSV(ikl)
+          FreeDr   =         iWaFSV(ikl)       *  min(ist,1)
+!         FreeDr   =         FreeD0            *  min(ist,1) ! Free Drainage
+          ik0      = nkhy *  eta_SV(ikl,isl  ) / etadSV(ist)
+          ikp      = nkhy *  eta_SV(ikl,isl+1) / etadSV(ist)
+          Elem_A   =         0.
+          Elem_B   =      - (Dhydtz(ikl,isl+1) 
+     .                      -aKdtSV(ist,ik0)*(dziiSV(isl+1)*LSdzsv(ikl)
+     .                                       -FreeDr                  ))
+          Elem_C   =         Dhydtz(ikl,isl+1) 
+     .                    +  aKdtSV(ist,ikp)* dzi_SV(isl+1)*LSdzsv(ikl)
+          Diag_A(ikl,isl) =  0.
+          Diag_B(ikl,isl) =  dz78SV(isl) *LSdzsv(ikl)
+     .                      -Implic      *Elem_B
+          Diag_C(ikl,isl) =  dz_8SV(isl) *LSdzsv(ikl)
+     .                      -Implic      *Elem_C
+
+          Term_D(ikl,isl) = (dz78SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_B     )*eta_SV(ikl,isl)
+     .                    + (dz_8SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_C     )*eta_SV(ikl,isl+1)
+     .                    + (bKdtSV(ist,ikp)* dzi_SV(isl+1)*LSdzsv(ikl)
+     .                      +bKdtSV(ist,ik0)*(dziiSV(isl+1)*LSdzsv(ikl)
+     .                                       -FreeDr                  ))
+     .                    -  dt__SV         * Rootsv(ikl,isl)/rhoWat
+        END DO
+
+           isl=0
+        DO ikl=1,knonv
+          ist      =         isotSV(ikl)
+          ikm      = nkhy *  eta_SV(ikl,isl-1) / etadSV(ist)
+          ik0      = nkhy *  eta_SV(ikl,isl)   / etadSV(ist)
+          Elem_A   =         Dhydtz(ikl,isl)   
+     .                    -  aKdtSV(ist,ikm)* dziiSV(isl)*LSdzsv(ikl)
+          Elem_B   =      - (Dhydtz(ikl,isl)
+     .                      +aKdtSV(ist,ik0)* dzi_SV(isl)*LSdzsv(ikl))
+          Elem_C   =         0.
+          Diag_A(ikl,isl) =  dz_8SV(isl) *LSdzsv(ikl)
+     .                    -  Implic      *Elem_A
+          Diag_B(ikl,isl) =  dz78SV(isl) *LSdzsv(ikl)
+     .                    -  Implic      *Elem_B
+          Diag_C(ikl,isl) =  0.
+
+          Term_D(ikl,isl) = (dz_8SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_A     )*eta_SV(ikl,isl-1)
+     .                    + (dz78SV(isl) *LSdzsv(ikl)
+     .                      +Explic      *Elem_B     )*eta_SV(ikl,isl)
+     .                    - (bKdtSV(ist,ik0)* dzi_SV(isl)
+     .                      +bKdtSV(ist,ikm)* dziiSV(isl))*LSdzsv(ikl)
+     .            + dt__SV *(HLs_sv(ikl)    *     (1-min(1,isnoSV(ikl)))
+     .                                                   / Lx_H2O(ikl)
+     .                      +drr_SV(ikl)
+     .                      -Rootsv(ikl,isl)             )/rhoWat 
+        END DO
+
+
+! Tridiagonal Elimination
+! =======================
+
+! Forward  Sweep
+! ^^^^^^^^^^^^^^
+        DO ikl=  1,knonv
+          Aux__P(ikl,-nsol) = Diag_B(ikl,-nsol)
+          Aux__Q(ikl,-nsol) =-Diag_C(ikl,-nsol)/Aux__P(ikl,-nsol)
+        END DO
+
+      DO   isl=-nsol+1,0   
+        DO ikl=      1,knonv
+          Aux__P(ikl,isl)   = Diag_A(ikl,isl)  *Aux__Q(ikl,isl-1)
+     .                       +Diag_B(ikl,isl)
+          Aux__Q(ikl,isl)   =-Diag_C(ikl,isl)  /Aux__P(ikl,isl)
+        END DO
+      END DO
+
+        DO ikl=      1,knonv
+          eta_SV(ikl,-nsol) = Term_D(ikl,-nsol)/Aux__P(ikl,-nsol)
+        END DO
+
+      DO   isl=-nsol+1,0   
+        DO ikl=      1,knonv
+          eta_SV(ikl,isl)   =(Term_D(ikl,isl)
+     .                       -Diag_A(ikl,isl)  *eta_SV(ikl,isl-1))
+     .                                         /Aux__P(ikl,isl)
+        END DO
+      END DO
+
+! Backward Sweep
+! ^^^^^^^^^^^^^^
+      DO   isl=-1,-nsol,-1
+        DO ikl= 1,knonv
+          eta_SV(ikl,isl)   = Aux__Q(ikl,isl)  *eta_SV(ikl,isl+1)
+     .                                         +eta_SV(ikl,isl)
+        END DO
+      END DO
+
+
+! Horton RunOFF Intensity
+! =======================
+
+      DO   isl=0,-nsol,-1
+        DO ikl=1,knonv
+          ist    =   isotSV(ikl)                   ! Soil Type
+          SatRat =  (eta_SV(ikl,isl)-etadSV(ist))  ! OverSaturation Rate
+     .              *rhoWat         *dzAvSV(isl)   !
+     .                              *LSdzsv(ikl)   !
+     .                              /dt__SV        !
+          SoRnOF(ikl)     =          SoRnOF(ikl)   !
+     .                    + max(zer0,SatRat)       !
+          eta_SV(ikl,isl) = max(eps6               !
+     .                         ,eta_SV(ikl,isl))   !
+          eta_SV(ikl,isl) = min(eta_SV(ikl,isl)    !
+     .                         ,etadSV(ist)    )   !
+        END DO
+      END DO
+
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #so     write(6,6010) 
+
+ 6010     format(/,1x)
+      DO   isl= 0,-nsol,-1
+        DO ikl= 1,knonv
+          ist      =          isotSV(ikl)
+          ikp      = nkhy  *  eta_SV(ikl,isl)  /etadSV(ist)
+          Khydsv(ikl,isl)   =(aKdtSV(ist,ikp)  *eta_SV(ikl,isl)
+     .                       +bKdtSV(ist,ikp)) *2.0/dt__SV
+! OUTPUT/Verification: Soil Vertic.Discret.
+! #so     write(6,6011) ikl,isl,eta_SV(ikl,isl)*1.e3,
+! #so.                  ikp,    aKdtSV(ist,ikp),bKdtSV(ist,ikp),
+! #so.                          Khydsv(ikl,isl)
+ 6011     format(2i3,f8.1,i3,3e12.3)
+
+        END DO
+      END DO
+
+
+! Additional RunOFF Intensity
+! ===========================
+
+        DO ikl=1,knonv
+          ist      =          isotSV(ikl)
+          ik0      = nkhy  *  etaaux(ikl,-nsol  ) /etadSV(ist)
+          FreeDr   =          iWaFSV(ikl)       *  min(ist,1)
+!         FreeDr   =          FreeD0            *  min(ist,1) ! Free Drainage
+          SoRnOF(ikl) =  SoRnOF(ikl)
+     .                + (aKdtSV(ist,ik0)*(etaaux(ikl,-nsol)*Explic
+     .                                   +eta_SV(ikl,-nsol)*Implic)
+     .                 + bKdtSV(ist,ik0)                           )
+     .                 * FreeDr          *rhoWat           /dt__SV
+
+! Full Run OFF: Update
+! ~~~~~~~~~~~~~~~~~~~~
+          RnofSV(ikl) = RnofSV(ikl)     + SoRnOF(ikl)
+        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)
+! --------------------------------
+
+c #BP       z_Bump      = 0.
+c #BP     DO ikl=1,knonv
+c #BP       etBump(ikl) = 0.
+c #BP     END DO
+
+c #BP DO     isl=0,-nsol,-1
+c #BP       z0Bump      = z_Bump
+c #BP       z_Bump      = z_Bump      +  dzAvSV(isl)
+c #BP   IF (z_Bump.lt.z0soil)                                       THEN
+c #BP     DO ikl=1,knonv
+c #BP       etBump(ikl) = etBump(ikl) +  dzAvSV(isl)   *eta_SV(ikl,isl)
+c #BP     END DO
+c #BP   END IF
+c #BP   IF (z_Bump.gt.z0soil.AND.z0Bump.lt.z0soil)                  THEN
+c #BP     DO ikl=1,knonv
+c #BP       etBump(ikl) = etBump(ikl) + (z0soil-z0Bump)*eta_SV(ikl,isl)
+c #BP       etBump(ikl) = etBump(ikl) /  z0soil
+c #BP     END DO
+c #BP   END IF
+c #BP END DO
+
+
+! Correction
+! ----------
+
+c #BP       z_Bump      = 0.
+c #BP DO     isl=0,-nsol,-1
+c #BP       z0Bump =  z_Bump
+c #BP       z_Bump =  z_Bump +dzAvSV(isl)
+c #BP   IF (z_Bump.lt.z0soil)                                       THEN
+c #BP     DO ikl=1,knonv
+c #BP       eta_SV(ikl,isl) = etBump(ikl)
+c #BP     END DO
+c #BP   END IF
+c #BP   IF (z_Bump.gt.z0soil.AND.z0Bump.lt.z0soil)                  THEN
+c #BP       dzBump          =    z_Bump -  z0soil
+c #BP     DO ikl=1,knonv
+c #BP       eta_SV(ikl,isl) =(etBump(ikl)    *(dzAvSV(isl)-dzBump)
+c #BP.                      + eta_SV(ikl,isl)*             dzBump)
+c #BP.                      /                  dzAvSV(isl)
+c #BP     END DO
+c #BP   END IF
+c #BP END DO
+
+
+! Positive Definite
+! =================
+
+c #BP DO   isl= 0,-nsol,-1
+c #BP   DO ikl= 1,knonv
+c #BP     eta_SV(ikl,isl)   =          max(eps6,eta_SV(ikl,isl))
+c #BP   END DO
+c #BP END DO
+
+
+! OUTPUT/Verification: H2O    Conservation: Water  Budget (OUT)
+! #m0   DO ikl=1,knonv
+! #m0     Wats_d(ikl) = Wats_d(ikl)                    ! 
+! #m0.                + drr_SV(ikl)     *0.00          ! Precipitation is
+!                                        \______________ already included
+! #m0.                + HLs_sv(ikl)
+! #m0.          *(1-min(isnoSV(ikl),1)) /Lx_H2O(ikl)   ! Evaporation
+! #m0.                - SoRnOF(ikl)                    ! Soil RunOFF Contrib.
+! #m0     Wats_1(ikl) = 0.                             !
+
+! OUTPUT/Verification: H2O    Conservation
+! #mw     Evapor(ikl) = HLs_sv(ikl)     *dt__SV        !
+! #mw.          *(1-min(isnoSV(ikl),1)) /Lx_H2O(ikl)   !
+
+! #m0   END DO
+
+! #m0 DO   isl= -nsol,0
+! #m0   DO ikl=1,knonv
+! #m0     Wats_d(ikl) = Wats_d(ikl)                    ! 
+! #m0.                - Rootsv(ikl,isl)                ! Root Extract.
+! #m0   END DO
+! #m0 END DO 
+! #m0   DO ikl=1,knonv
+! #m0     Wats_d(ikl) = Wats_d(ikl)     *dt__SV        ! 
+! #m0   END DO
+
+! #m0      isl= -nsol
+! #m0   DO ikl=1,knonv
+! #m0     Wats_1(ikl) = Wats_1(ikl) 
+! #m0.      + rhoWat *( eta_SV(ikl,isl)   *dz78SV(isl)
+! #m0.                + eta_SV(ikl,isl+1) *dz_8SV(isl) ) *LSdzsv(ikl)
+! #m0   END DO
+
+! #m0 DO   isl= -nsol+1,-1
+! #m0   DO ikl=1,knonv
+! #m0     Wats_1(ikl) = Wats_1(ikl) 
+! #m0.      + rhoWat *( eta_SV(ikl,isl)   *dz34SV(isl)
+! #m0.                +(eta_SV(ikl,isl-1)
+! #m0.                 +eta_SV(ikl,isl+1))*dz_8SV(isl) ) *LSdzsv(ikl)
+! #m0   END DO
+! #m0 END DO 
+
+! #m0      isl=  0
+! #m0   DO ikl=1,knonv
+! #m0     Wats_1(ikl) = Wats_1(ikl) 
+! #m0.      + rhoWat *( eta_SV(ikl,isl)   *dz78SV(isl)
+! #m0.                + eta_SV(ikl,isl-1) *dz_8SV(isl) ) *LSdzsv(ikl)
+! #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)
+ 42     format('SubRoutine SISVAT_qSo: Local Water Budget',
+     .       /,'=========================================')
+! #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
+ 420    format(11('-'),'----------+--------------+-',
+     .          3('-'),'----------+--------------+-',
+     .                 '----------------+----------------+',
+     .       /,f8.2,3x,'Wats_0(1) |    Wats_d(1) | ',
+     .              3x,'Wats_1(1) | W_0+W_d-W_1  | ',
+     .                 '   Soil Run OFF |   Soil Evapor. |',
+     .       /,11('-'),'----------+--------------+-',
+     .          3('-'),'----------+--------------+-',
+     .                 '----------------+----------------+')
+! #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)
+ 421    format(8x,f12.6,' + ',f12.6,' - ',f12.6,' = ',f12.6,' | ',f12.6,
+     .      '      ',f15.6)
+
+      return
+      end
+
+
+      subroutine SISVAT_wEq( labWEq ,istart)
+
+!--------------------------------------------------------------------------+
+!   MAR          SISVAT_wEq                           Sat 12-Feb-2012  MAR |
+!     SubRoutine SISVAT_wEq computes the Snow/Ice  Water  Equivalent       |
+!                                                                          |
+!                                                                          |
+!     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** |
+!--------------------------------------------------------------------------+
+
+
+       
+
+
+! Global Variables
+! ================
+
+      USE VAR_SV
+      USE VARxSV
+
+      IMPLICIT NONE
+
+      character*6         labWEq
+      integer             istart
+
+      logical             logWEq
+      common/SISVAT_wEq_L/logWEq
+
+
+! Local  Variables
+! ================
+
+      integer  ikl   ,isn
+      real     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
+      IF          (isnoSV(ikl).gt.iiceSV(ikl))                      THEN
+
+          SnoWEQ = 0.
+        DO isn   = iiceSV(ikl)+1 ,isnoSV(ikl)
+          SnoWEQ = SnoWEQ       + ro__SV(ikl,isn) * dzsnSV(ikl,isn) 
+        END DO
+
+      END IF
+
+
+! Ice  Water Equivalent
+! =====================
+
+      IF        (iiceSV(1).gt.0)                                    THEN
+
+          IceWEQ = 0.
+        DO isn   =             1 ,iiceSV(ikl)
+          IceWEQ = IceWEQ       + ro__SV(ikl,isn) * dzsnSV(ikl,isn) 
+        END DO
+
+      END IF
+
+
+! OUTPUT
+! ======
+
+      IF (istart.eq.1)                                              THEN
+        write(45,45)dahost,i___SV(lwriSV(1)),j___SV(lwriSV(1)),
+     .              n___SV(lwriSV(1))
+ 45     format(a18,10('-'),'Pt.',3i4,60('-'))
+      END IF
+
+      write(45,450) labWEq,IceWEQ,iiceSV(ikl),SnoWEQ
+     .                    ,IceWEQ+SnoWEQ,isnoSV(ikl)
+     .                                  ,drr_SV(ikl)*dt__SV
+     .                                  ,dsn_SV(ikl)*dt__SV
+     .                                  ,BufsSV(ikl)
+ 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
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/surf_sisvat_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/surf_sisvat_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sisvat/surf_sisvat_mod.F90	(revision 3330)
@@ -0,0 +1,1738 @@
+MODULE surf_sisvat_mod
+  USE dimphy
+  IMPLICIT NONE
+
+  INTEGER, PARAMETER    :: nsnowmx=35
+  INTEGER, PARAMETER    :: nsismx=46         ! = nsnowmx + nsoilmx 
+
+CONTAINS
+
+                                       
+
+  SUBROUTINE surf_sisvat(knon,rlon,rlat, ikl2i, itime, dtime, debut, lafin, &
+             rmu0, swdown, lwdown, pexner, ps, p1lay, &
+             precip_rain, precip_snow, precip_snow_adv, snow_adv, &
+             bl_height, wind_velo, temp_air, dens_air, spechum, tsurf, &
+             rugos, snow_cont_air, alb_soil, slope, cloudf, &
+             radsol, qsol, tsoil, snow, snowhgt, qsnow, to_ice, sissnow, agesno, & 
+             AcoefH, AcoefQ, BcoefH, BcoefQ, cdragh, &
+             runoff_lic, evap, fluxsens, fluxlat, dflux_s, dflux_l, &      
+             tsurf_new, alb1, alb2, alb3, &
+             emis_new, z0_new, qsurf)       
+                                                                             
+! +------------------------------------------------------------------------+   
+! |                                                                        |   
+! |   SubRoutine surf_sisvat: Interface between LMDZ and landice scheme    |
+! |     of the SISVAT (Soil/Ice Snow Vegetation Atmosphere Transfer Scheme)|   
+! |                                                                        |
+! |   Author: Heinz Juergen Punge, LSCE                June 2009           |
+! |     based on the MAR-SISVAT interface by Hubert Gallee                 |
+! |                                                                        |   
+! +------------------------------------------------------------------------+   
+! |   
+! |   In the current setup, SISVAT is used only to model the land ice      |
+! |   part of the surface; hence it is called with the compressed variables| 
+! |   from pbl_surface, and only by the surf_landice routine.              |
+! |                                                                        |   
+! |   In this interface it is assumed that the partitioning of the soil,   |
+! |   and hence the number of grid points is constant during a simulation, |
+! |   hence eg. snow properties remain stored in the global SISVAT         |
+! |   variables between the calls and don't need to be handed over as      |
+! |   arguments. When the partitioning is supposed to change, make sure to |
+! |   update the variables.                                                | 
+! |                                                                        |  
+! |   INPUT                                                                |  
+! |   ^^^^^     VegMod: SISVAT    is set up when .T.                       |  
+! |             SnoMod: Snow Pack is set up when .T.                       |  
+! |             reaLBC: Update Bound.Condit.when .T.                       |   
+! |                                                                        |  
+! |   INPUT    (via MODULES VARxSV, VARySV, VARtSV)                        |  
+! |   ^^^^^     xxxxSV: SISVAT/LMDZ interfacing variables                  |   
+! |                                                                        |  
+! |   Preprocessing  Option: SISVAT PHYSICS                                |   
+! |   ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^^^^^^                                |   
+! | #                       #HY                                            |   
+! | #                       #SN: Snow         Model                        |   
+! | #                       #BS: Blowing Snow Parameterization             |   
+! |                                                                        |   
+! | #                       #DS: diffuse radiation differing from direct   |   
+! |                             (variable RADsod must still be included)   |
+! | #                       #CP: SBL,                       Col de Porte   |   
+! | #                       #cp  Solar Radiation,           Col de Porte   |   
+! | #                       #AG: Snow Ageing,               Col de Porte   |   
+! |                                                                        |   
+! |   Preprocessing  Option: SISVAT IO                                     |   
+! |   ^^^^^^^^^^^^^^^^^^^^^  ^^^^^^^^^                                     |   
+! |   FILE                 |      CONTENT                                  |   
+! |   ~~~~~~~~~~~~~~~~~~~~~+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |   
+! | # ANI.yyyymmdd.LAB.nc  | #NC: OUTPUT on NetCDF File (Stand Alone EXP.) |   
+! | # SISVAT_iii_jjj_n     | #WV: OUTPUT on ASCII  File (SISVAT Variables) |   
+! | # SISVATtroubles       | #VF: OUTPUT on ASCII  File (SISVAT Troubles)  |   
+! |                        |                                               |   
+! | #                      | #ES: OUTPUT/Verification: Energy Conservation |   
+! | #                      | #E2: OUTPUT/Verification: Energy Consrv.2e pt.|   
+! |                        |                           (no premature stop) |   
+! | #                      | #MW: OUTPUT/Verification: H2O    Conservation |   
+! | #                      | #MS: OUTPUT/Verification: * Mass Conservation |   
+! | #                      | #MI: OUTPUT/Verification: SeaIce Conservation |   
+! |                        |                                               |   
+! | # SISVAT__zSn.OUT      | #as: OUTPUT/Verification: Snow Layers Agrega. |   
+! | # SISVAT__SnO.OUT      | #aw: OUTPUT/Verification: Albedo Parameteriz. |   
+! | # SISVATe_qSn.OUT      | #em: OUTPUT/Verification: Energy/Water Budget |   
+! | # SISVATu_qSn.OUT      | #su: OUTPUT/Verification: Slush  Parameteriz. |   
+! | # SISVATw_qSo.OUT      | #mw: OUTPUT/Verif+Detail: H2O    Conservation |   
+! |                        |                                               |   
+! | # SISVAT__GSn.OUT      | #VP: OUTPUT/Verification: Snow   Properties   |   
+! | # SISVAT__wEq.OUT      | #EQ: OUTPUT/Verification: Snow/Ice Water Eqv. |   
+! |                        |                                               |   
+! | #                      | #VR: VERIFICATION OUTPUT                      |   
+! | #                      | #WR: Additional   OUTPUT                      |   
+! |                                                                        |   
+! +------------------------------------------------------------------------+ 
+                                                       
+    USE VAR_SV 
+    USE VARdSV 
+    USE VARxSV 
+    USE VARySV
+    USE VARtSV
+ 
+    USE VARdCP
+    USE VARphy, ra_earth=>ra
+    USE YOMCST_SISVAT
+                                        
+    IMPLICIT NONE    
+                                                                
+! +--INTERFACE Variables                                                     
+! +  =================== 
+                                            
+    include  "dimsoil.h"                                     
+                                                                    
+
+! +--Global Variables                                                          
+! +  ================  
+! Input Variables for SISVAT
+    INTEGER,               INTENT(IN)      :: knon
+    INTEGER,               INTENT(IN)      :: itime   
+    REAL,                  INTENT(IN)      :: dtime 
+    LOGICAL,               INTENT(IN)      :: debut     ! true if first step
+    LOGICAL,               INTENT(IN)      :: lafin     ! true if last step
+
+    INTEGER, DIMENSION(klon), INTENT(IN)   :: ikl2i     ! Index Decompression
+    REAL, DIMENSION(klon), INTENT(IN)      :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)      :: rmu0      ! cos sol. zenith angle
+    REAL, DIMENSION(klon), INTENT(IN)      :: swdown    !
+    REAL, DIMENSION(klon), INTENT(IN)      :: lwdown    ! 
+    REAL, DIMENSION(klon), INTENT(IN)      :: pexner    ! Exner potential
+    REAL, DIMENSION(klon), INTENT(IN)      :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)      :: precip_snow_adv, snow_adv 
+                                                        !Snow Drift
+    REAL, DIMENSION(klon), INTENT(IN)      :: bl_height, wind_velo
+    REAL, DIMENSION(klon), INTENT(IN)      :: temp_air, spechum, ps,p1lay
+    REAL, DIMENSION(klon), INTENT(IN)      :: dens_air, tsurf            
+    REAL, DIMENSION(klon), INTENT(IN)      :: rugos,snow_cont_air
+    REAL, DIMENSION(klon), INTENT(IN)      :: alb_soil, slope 
+    REAL, DIMENSION(klon), INTENT(IN)      :: cloudf   
+    REAL, DIMENSION(klon), INTENT(IN)      :: AcoefH, AcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)      :: BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)      :: cdragh
+
+! Variables exchanged between LMDZ and SISVAT
+    REAL, DIMENSION(klon,nsoilmx), INTENT(OUT) :: tsoil ! Soil Temperature 
+    REAL, DIMENSION(klon), INTENT(OUT)     :: qsol      ! Soil Water Content   
+    REAL, DIMENSION(klon), INTENT(INOUT)   :: snow      ! Tot snow mass [kg/m2]
+    REAL, DIMENSION(klon), INTENT(IN)      :: radsol    ! Surface absorbed rad.
+
+! Output Variables from SISVAT
+    REAL, DIMENSION(klon), INTENT(OUT)     :: alb1      ! Albedo SW 
+    REAL, DIMENSION(klon), INTENT(OUT)     :: alb2,alb3      ! Albedo LW
+    REAL, DIMENSION(klon), INTENT(OUT)     :: emis_new  ! Surface Emissivity
+    REAL, DIMENSION(klon), INTENT(OUT)     :: z0_new    ! Momentum Roughn Lgt
+    REAL, DIMENSION(klon), INTENT(OUT)     :: runoff_lic ! Runoff            
+    REAL, DIMENSION(klon), INTENT(OUT)     :: dflux_s   ! d/dT sens. ht flux  
+    REAL, DIMENSION(klon), INTENT(OUT)     :: dflux_l   ! d/dT latent ht flux 
+    REAL, DIMENSION(klon), INTENT(OUT)     :: fluxsens  ! Sensible ht flux    
+    REAL, DIMENSION(klon), INTENT(OUT)     :: fluxlat   ! Latent heat flux
+    REAL, DIMENSION(klon), INTENT(OUT)     :: evap      ! Evaporation
+    REAL, DIMENSION(klon), INTENT(OUT)     :: agesno    ! Snow age (top layer)
+    REAL, DIMENSION(klon), INTENT(OUT)     :: tsurf_new ! Surface Temperature 
+    REAL, DIMENSION(klon), INTENT(OUT)     :: qsurf     ! Surface Humidity 
+    REAL, DIMENSION(klon), INTENT(OUT)     :: qsnow     ! Total H2O snow[kg/m2]
+    REAL, DIMENSION(klon), INTENT(OUT)     :: snowhgt   ! Snow height (m)
+    REAL, DIMENSION(klon), INTENT(OUT)     :: to_ice    ! Snow passed to ice 
+    REAL, DIMENSION(klon), INTENT(OUT)     :: sissnow   ! Snow in model (kg/m2)
+                                                                           
+! +--OUTPUT for NetCDF File                                         
+! +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                             
+!   REAL, DIMENSION(klonv)                 :: SOsoKL    ! Abs Solar Radiation 
+!   REAL, DIMENSION(klonv)                 :: IRsoKL    ! Abs IR    Radiation 
+!   REAL, DIMENSION(klonv)                 :: HSsoKL    ! Abs Sensible Ht Flux 
+!   REAL, DIMENSION(klonv)                 :: HLsoKL    ! Abs Latent Heat Flux 
+!   REAL, DIMENSION(klonv)                 :: HLs_KL    ! Evaporation          
+!   REAL, DIMENSION(klonv)                 :: HLv_KL    ! Transpiration        
+!                              
+!   REAL, DIMENSION(klonv)                 :: SOsoNC    ! Abs Solar Radiation  
+!   REAL, DIMENSION(klonv)                 :: IRsoNC    ! Abs IR    Radiation  
+!   REAL, DIMENSION(klonv)                 :: HSsoNC    ! Abs Sensible Ht Flux
+!   REAL, DIMENSION(klonv)                 :: HLsoNC    ! Abs Latent Heat Flux
+!   REAL, DIMENSION(klonv)                 :: HLs_NC    ! Evaporation      
+!   REAL, DIMENSION(klonv)                 :: HLv_NC    ! Transpiration     
+!                                      
+!   REAL, DIMENSION(klonv,nsoilmx)           :: eta_NC    ! nsoilmx=nsol+1
+!   REAL, DIMENSION(klonv,nsoilmx)           :: tsolNC    !   
+!   REAL, DIMENSION(klonv)                   :: snowNC    !
+!   INTEGER, DIMENSION(klonv)                :: isnoNC    !
+!   INTEGER, DIMENSION(klonv)                :: ispiNC    !     
+!   INTEGER, DIMENSION(klonv)                :: iiceNC    !           
+!   REAL, DIMENSION(klonv)                   :: swaNC     !
+!   REAL, DIMENSION(klonv)                   :: swsNC     !   
+!   INTEGER, DIMENSION(klonv,nsno)           :: istoNC    ! 
+!   REAL, DIMENSION(klonv,nsno)              :: dzsnNC    ! 
+!   REAL, DIMENSION(klonv,nsno)              :: rhosnNC   !      
+!   REAL, DIMENSION(klonv,nsno)              :: etasnNC   !  
+!   REAL, DIMENSION(klonv,nsno)              :: tsnNC     ! 
+!   REAL, DIMENSION(klonv,nsno)              :: g1snNC    !      
+!   REAL, DIMENSION(klonv,nsno)              :: g2snNC    !                    
+!   REAL, DIMENSION(klonv,nsno)              :: agsnNC    ! 
+!   REAL, DIMENSION(klonv)                   :: meltNC    !      
+!   REAL, DIMENSION(klonv)                   :: refrNC    !                
+!   REAL, DIMENSION(klonv)                   :: alb1NC    !      
+!   REAL, DIMENSION(klonv)                   :: alb2NC    !         
+!   REAL, DIMENSION(klonv)                   :: rnofNC    ! 
+                                                                          
+! + Optional Variables:                                                 
+! +--V,  dT(a-s)    Time Moving Averages                                       
+! +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~           
+
+! #AW real             V__mem(klon,ntaver)   ! ntaver defined in LMDZ_SL.inc  
+! #AW real             VVmmem(klon)          !                                 
+! #AW common/SVeSBLmem/V__mem,VVmmem         !                                 
+! #AH real             T__mem(klon,ntaver)   !                                 
+! #AH real             dTmmem(klon)          !                                 
+! #AH common/STeSBLmem/T__mem,dTmmem         !                      
+! +--u*, u*T*, u*s* Time Moving Averages                                    
+! +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                       
+! #AM real             u__mem(klon,ntaver)   ! ntaver defined in LMDZ_SL.inc  
+! #AT real             uT_mem(klon,ntaver)   !                                 
+! #AS real             us_mem(klon,ntaver)   !                                 
+! #AM common/S_eSBLmem/u__mem                !                                 
+! #AT.                ,uT_mem                !                                 
+! #AS.                ,us_mem                !
+!! #AH    REAL, DIMENSION(klonv,ntaver)            :: T__mem    !
+!! #AH    REAL, DIMENSION(klonv)                   :: dTmmem    ! 
+!! #AW    REAL, DIMENSION(klonv,ntaver)            :: V__mem    !      
+!! #AM    REAL, DIMENSION(klonv)                   :: u__mem    !             
+!! #AT    REAL, DIMENSION(klonv)                   :: uT_mem    ! 
+!! #AS    REAL, DIMENSION(klonv)                   :: us_mem    !     
+!! #AW    REAL, DIMENSION(klonv)                   :: VVmmem    !    
+
+                                                                    
+! +--Internal  Variables                                                       
+! +  ===================                                          
+
+    CHARACTER(len=20)               :: fichnom, fn_outfor ! Name for output file
+    INTEGER                         :: i, ig, ikl, isl, isn, nt
+    INTEGER                         :: gp_outfor, un_outfor
+
+    REAL, PARAMETER                 :: f1=0.5
+    REAL, PARAMETER                 :: sn_upp=5000.,sn_low=500.
+    REAL, PARAMETER                 :: sn_add=400.,sn_div=2.
+                                             ! snow mass upper,lower limit, 
+                                             ! added mass/division lowest layer
+    REAL, PARAMETER                 :: c1_zuo=12.960e+4, c2_zuo=2.160e+6
+    REAL, PARAMETER                 :: c3_zuo=1.400e+2,  czemin=1.e-3  
+                                             ! Parameters for drainage
+! c1_zuo/ 2.796e+4/,c2_zuo/2.160e+6/,c3_zuo/1.400e+2/ !     Tuning
+! +...        Run Off Parameters                                              
+! +           86400*1.5 day     ...*25 days (Modif. ETH Camp: 86400*0.3day)    
+! +           (Zuo and Oerlemans 1996, J.Glacio. 42, 305--317)             
+
+    REAL, DIMENSION(klon)           :: eps0SL          ! surface Emissivity 
+    REAL                            :: zsigma, Ua_min, Us_min
+    REAL                            :: lambda          ! Par. soil discret.
+    REAL, DIMENSION(nsoilmx), SAVE  :: dz1,dz2         ! Soil layer thicknesses
+!$OMP THREADPRIVATE(dz1)
+    LOGICAL, SAVE                   :: firstcall=.TRUE.,SnoMod, ok_outfor=.FALSE.!$OMP THREADPRIVATE(firstcall)                
+
+
+
+! + Optional:  
+!c #BW INTEGER                      ::  noUNIT                  
+!c #BW REAL                         ::  BlowST,SnowSB   
+                                          
+                                        
+! +--Internal Variables
+! +  ==================
+
+    INTEGER                         ::  ivg,iso
+
+!========================================================================
+ 
+      SnoMod=.true.
+      zsigma=1000.
+      dt__SV=dtime
+      IF (ok_outfor) THEN
+        un_outfor=51                 ! unit number for point output
+        gp_outfor=79! 633 !79        ! grid point number for point output
+        fn_outfor='outfor_SV.dat' 
+      END IF
+
+!     write(*,*)'Start of simulation? ',debut        !hj
+      IF (debut) THEN 
+        firstcall=.TRUE. 
+        INI_SV=.false.
+      ELSE
+        firstcall=.false.
+        INI_SV=.true.
+      END IF
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! + INITIALISATION: BEGIN +++ 
+! + -------------------------
+! +
+! + Compute soil discretization (as for LMDZ)
+! + -----------------------------------------  
+      IF (firstcall) THEN
+
+! +--Array size
+        klonv=klon
+        knonv=knon
+        write(*,*)'klon',klon,'klonv',klonv,'knon',knon 
+
+
+        CALL INIT_VARtSV
+        CALL INIT_VARxSV
+        CALL INIT_VARySV
+
+        eps0SL(:)=0.
+! +--Soil layer thickness                                                   
+! +  -----------------------  
+!        write(*,'(/a)') 'Start SISVAT init: soil discretization ', nsoilmx
+        CALL get_soil_levels(dz1,dz2,lambda)
+        lambSV=lambda
+        dz1_SV(1:knon,1:) = 0.     
+        dz2_SV(1:knon,1:) = 0.
+                      
+        DO isl =   -nsol,0   
+          dz_dSV(isl) = 0.5e-3*dz2(1-isl)           ! Soil layer thickness 
+          DO ikl=1,knon
+            dz1_SV(ikl,isl) = dz1(1-isl)    !1.e-3* 
+            dz2_SV(ikl,isl) = dz2(1-isl)    !1.e-3*
+          END DO
+!          IF (knon > 0) THEN
+!            write(*,*)'level:',dz_dSV(isl),dz1_SV(1,isl),dz2_SV(1,isl)
+!          END IF
+        END DO
+
+        DO ikl=1,knon                                
+          eps0SL(ikl )= 1.
+          alb0SV(ikl) = alb_soil(ikl)              ! Soil Albedo        
+
+! + Soil Upward IR Flux, Water Fluxes, roughness length  
+          IRs_SV(ikl) =                               &
+              -eps0SL(ikl)* rsigma*temp_air(ikl)      &  ! Upward IR Flux
+              *temp_air(ikl)*temp_air(ikl)*temp_air(ikl)         
+          TvegSV(ikl) = temp_air(ikl) 
+ ! + Soil
+        DO isl =   -nsol,0    
+          TsisSV(ikl,isl) = temp_air(ikl)  !tsoil(ikl,1-isl)  Soil Temperature
+          eta_SV(ikl,isl) = 0.0001         !etasoil(ikl,1-isl)Soil Water[m3/m3]
+          ro__SV(ikl,isl) = 50.      !rosoil(ikl,1-isl) soil water volumic mass
+        END DO            
+        END DO                                            
+
+! +--Surface Fall Line Slope                                                   
+! +  -----------------------  
+        IF (SnoMod)  THEN                
+          DO ikl=1,knon  
+            slopSV(ikl) = slope(ikl)
+            SWf_SV(ikl) =             &   ! Normalized Decay of the  
+              exp(-dt__SV             &   ! Surficial Water Content  
+              /(c1_zuo                &   !(Zuo and Oerlemans 1996,  
+            +c2_zuo*exp(-c3_zuo*abs(slopSV(ikl)))))  ! J.Glacio. 42, 305--317)
+          END DO                                     
+        END IF           
+                             
+! +--SBL  Characteristics history, not stored at restart.                     
+        DO ikl=1,knon  
+         DO nt=1,ntaver                                       ! #AW
+           V__mem(ikl,nt)=wind_velo(ikl)                      ! #AH
+           T__mem(ikl,nt)=temp_air(ikl)-tsurf(ikl) 
+         END DO                                         
+        END DO                                     
+
+
+! + SISVAT_ini (as for use with MAR, but not computing soil layers)
+! + -------------------------------------------------------------
+!        write(*,'(/a)') 'Start SISVAT initialization: SISVAT_ini' 
+        CALL SISVAT_ini(knon)
+
+! open output file 
+        IF (ok_outfor) THEN
+          open(unit=un_outfor,status='new',file=fn_outfor)         
+          rewind un_outfor      
+          ikl=gp_outfor     ! index sur la grille land ice
+          ig=611            ! index sur la grille globale
+          write(un_outfor,501) fn_outfor, ikl, rlon(ig),rlat(ig)  
+501     format(/,a18,/,'Grid point ',i4,' Long',f9.4,' Lat ',f9.4       &
+     &            ,/,'++++++++++++++++++++++++++++++++++++++++++++++',  &
+     & '++++++++++++++++++++++++++++++++++++++++++++++',                &
+     & '++++++++++++++++++++++++++++++++++++++++++++++',                &
+     &             /,' SWdown + IRdown + Wind   + Temp.  + Humid.   ',  &
+     & '+ Press  +Precip_l+Precip_s+ Tsrf   + Clouds +'                 &
+     & '+ Zenith + BLhgt  + Densair+ Exner +'                           &
+     &            ,/,' sol_SV + IRd_SV + VV__SV + TaT_SV + QaT_SV   ',  &
+     & '+ ps__SV + drr_SV + dsn_SV + Tsf_SV + cld_SV +'                 &
+     & '+ coszSV + za__SV + rhT_SV + ExnrSV+'                           &
+     &            ,/,' W/m2   + W/m2   + m/s    + K      + kg/kg    ',  &
+     & '+ Pa     + kg/m2/s+ kg/m2/s+ K      + /1     +'        &
+     & '+ -      + m      + kg/m3  +       +'                           &
+     &            ,/,'++++++++++++++++++++++++++++++++++++++++++++++',  &
+     & '++++++++++++++++++++++++++++++++++++++++++++++',                &
+     & '++++++++++++++++++++++++++++++++++++++++++++++')
+        END IF
+
+! +--Read restart file
+! +  =================================================   
+        
+! Martin
+       PRINT*, 'On debranche sisvatetat0'
+! Martin
+
+       ! CALL sisvatetat0("startsis.nc",ikl2i)
+
+ 
+      END IF  ! firstcall                        
+! +                                
+! +  +++  INITIALISATION:  END  +++                               
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! + READ FORCINGS  
+! + ------------------------ 
+! + Update Forcings for SISVAT given by the LMDZ model.
+! +
+      DO ikl=1,knon
+
+! +--Atmospheric Forcing                                    (INPUT)            
+! +  ^^^^^^^^^^^^^^^^^^^                                     ^^^^^ 
+        zSBLSV      = 1000.                         ! [m]                
+        za__SV(ikl) = bl_height(ikl)                ! Height boundary layer [m]
+        Ua_min      = epsi                          !
+! #VM   Ua_min      = 0.2 * sqrt(za__SV(ikl)   )    !                    
+        Ua_min      = 0.2 * sqrt(za__SV(ikl)   )    !                    
+        VV__SV(ikl) = max(Ua_min, wind_velo(ikl))   ! Wind velocity       [m/s]
+        Us_min      = 0.01
+        us__SV(ikl) = max(Us_min, us__SV(ikl) ) 
+        TaT_SV(ikl) = temp_air(ikl)                 ! BL top Temperature    [K]
+        ExnrSV(ikl) = pexner(ikl)                   ! Exner potential          
+        rhT_SV(ikl) = dens_air(ikl)                 ! Air density           
+        QaT_SV(ikl) = spechum(ikl)                  ! Specific humidity 
+! #VX   dQa_SV(ikl) = 0. !hj   dtDiff/zsigma(mz)    ! Water Vapor Flux
+        ps__SV(ikl) = ps(ikl)                       ! surface pressure     [Pa]
+        p1l_SV(ikl) = p1lay(ikl)                  ! lowest atm. layer press[Pa]
+
+! +--Energy Fluxes                                          (INPUT)           
+! +  ^^^^^^^^^^^^^                                           ^^^^^             
+        coszSV(ikl) = max(czemin,rmu0(ikl))         ! cos(zenith.Dist.)  
+        sol_SV(ikl) = swdown(ikl)                   ! downward Solar  
+        IRd_SV(ikl) = lwdown(ikl)                   ! downward IR    
+        rsolSV(ikl) = radsol(ikl)                   ! surface absorbed rad.   
+!hj 110511
+!hj 121011        IRs_SV(ikl) = min(IRs_SV(ikl),-epsi)        ! check upward IR    
+!hj
+! +--Water  Fluxes                                          (INPUT)           
+! +  ^^^^^^^^^^^^^                                           ^^^^^             
+        drr_SV(ikl) = precip_rain(ikl)              ! Rain fall rate  [kg/m2/s]
+        dsn_SV(ikl) = precip_snow(ikl)              ! Snow fall rate  [kg/m2/s]
+!c #BS  dbsnow      = -SLussl(i,j,n)                ! Erosion    
+!c #BS.               *dtPhys     *rhT_SV(ikl) /ro_Wat                    
+!c #BS  dsnbSV(ikl) = snow_adv(ikl)  ! min(max(zero,dbsnow)              
+!c #BS.                    /    max(epsi,d_snow),unun)                    
+!c #BS  dbs_SV(ikl) = snow_cont_air(ikl)
+!c #BS                  blowSN(i,j,n)               !          [kg/m2]  
+                                                                              
+! +--Soil/Canopy                                            (INPUT)            
+! +  ^^^^^^^^^^^                                             ^^^^^            
+        alb0SV(ikl) = alb_soil(ikl)                 ! Soil background Albedo 
+        AcoHSV(ikl) = AcoefH(ikl)  
+        BcoHSV(ikl) = BcoefH(ikl)                     
+        AcoQSV(ikl) = AcoefQ(ikl)  
+        BcoQSV(ikl) = BcoefQ(ikl)
+        cdH_SV(ikl) = cdragh(ikl)                         
+        Tsf_SV(ikl) = tsurf(ikl)        !hj 12 03 2010
+
+! +--Energy Fluxes                                          (INPUT/OUTPUT)    
+! +  ^^^^^^^^^^^^^                                           ^^^^^^^^^^^^    
+        IF (.not.firstcall) THEN  
+! active hj 110411
+        cld_SV(ikl) = cloudf(ikl)                    ! Cloudiness         
+        END IF
+ 
+! +--Time Averages of wind and surface-atmosphere temperature difference 
+! +--for turbulence calculations                                       ! #AA
+! Update stored arrays
+      DO nt=1,ntaver-1                                                 ! #AW   
+        V__mem(ikl,nt    ) = V__mem(ikl,nt+1)                          ! #AH   
+        T__mem(ikl,nt    ) = T__mem(ikl,nt+1)                          ! #AA  
+      ENDDO                                                            ! #AW
+        V__mem(ikl,ntaver)=wind_velo(ikl)                              ! #AH
+        T__mem(ikl,ntaver)=temp_air(ikl)-tsurf(ikl)                    ! #AW
+! Calculate averages
+        VVmmem(ikl)        = 0.0                                       ! #AH
+        dTmmem(ikl)        = 0.0                                       ! #AA
+      DO nt=1,ntaver                                                   ! #AW
+        VVmmem(ikl)        = VVmmem(ikl)+V__mem(ikl,nt)                ! #AH
+        dTmmem(ikl)        = dTmmem(ikl)+T__mem(ikl,nt)                ! #AA 
+      ENDDO                                                            ! #AW 
+        VVmmem(ikl)        = VVmmem(ikl)/ntaver                        ! #AH 
+        dTmmem(ikl)        = dTmmem(ikl)/ntaver                   
+      END DO
+
+!                            
+! +  +++  READ FORCINGS:  END  +++    
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! +  OUTPUT FORCING
+!
+      IF (ok_outfor) THEN
+        ikl=gp_outfor
+        write(un_outfor,5000) sol_SV(ikl), IRd_SV(ikl), VV__SV(ikl),    &    
+     &                        TaT_SV(ikl), QaT_SV(ikl), ps__SV(ikl),    &
+     &                        drr_SV(ikl), dsn_SV(ikl), Tsf_SV(ikl),    &
+     &                        cld_SV(ikl), coszSV(ikl), za__SV(ikl),    &
+     &                        rhT_SV(ikl), ExnrSV(ikl) 
+      
+ 5000     format(f8.3,' ',f8.3,' ',f8.4,' ',f8.4,' ',f10.8,' ',f8.1,' ', &
+     &           f8.6,' ',f8.6,' ',f8.4,' ',f8.6,' ',f8.6,' ',f8.3,' ',  &
+     &           f8.4,' ',f8.6)
+
+      ENDIF
+!                            
+! +  OUTPUT FORCINGS:  END  +++    
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! +--SISVAT EXECUTION                                                          
+! +  ----------------                                                          
+! +             
+!      write(*,*) '  Start SISVAT execution!'
+
+      call  SISVAT(SnoMod,.false.,1) 
+!                          BloMod,jjtime)
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! + RETURN RESULTS  
+! + -------------- 
+! + Return (compressed) SISVAT variables to LMDZ             
+! + 
+      DO  ikl=1,knon                  ! use only 1:knon (actual ice sheet..) 
+        runoff_lic(ikl)    = RnofSV(ikl)*dtime   ! RunOFF: intensity* time step
+        dflux_s(ikl)       = dSdTSV(ikl)         ! Sens.H.Flux T-Der. 
+        dflux_l(ikl)       = dLdTSV(ikl)         ! Latn.H.Flux T-Der. 
+        fluxsens(ikl)      = HSs_sv(ikl)         ! HS                 
+        fluxlat(ikl)       = HLs_sv(ikl)         ! HL                 
+        evap(ikl)          = HLs_sv(ikl)/RLVTT   ! Evaporation RLVTT=LhvH2O   
+        z0_new(ikl)        = Z0h_SV(ikl)         ! Moment.Roughn.L.
+
+
+        snow(ikl)          = 0.
+        snowhgt(ikl)       = 0.
+        qsnow(ikl)         = 0.
+        qsol(ikl)          = 0. 
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! +   Check snow thickness, add if too thin, substract if too thick     
+
+        sissnow(ikl)       = 0.  !()
+      DO  isn = 1,isnoSV(ikl)                                               
+        sissnow(ikl)       = sissnow(ikl)+dzsnSV(ikl,isn)* ro__SV(ikl,isn)   
+      END DO
+
+      IF (sissnow(ikl) .LE. sn_low) THEN  !add snow 
+      IF (isnoSV(ikl).GE.1) THEN
+        dzsnSV(ikl,1)      = dzsnSV(ikl,1) + sn_add/max(ro__SV(ikl,1),epsi)  
+        toicSV(ikl)        = toicSV(ikl)   - sn_add
+      ELSE
+        write(*,*) 'Attention, bare ice... point ',ikl
+        isnoSV(ikl)        = 1
+        istoSV(ikl,1)      = 100
+!ym        istoSV(ikl)     = 100
+        ro__SV(ikl,1)      = 400.      
+        dzsnSV(ikl,1)      = sn_add/max(ro__SV(ikl,1),epsi)  ! 1.
+        eta_SV(ikl,1)      = epsi
+        TsisSV(ikl,1)      = min(TsisSV(ikl,0),TfSnow-0.2)   
+        G1snSV(ikl,1)      = 99.
+        G2snSV(ikl,1)      = 0.3 
+        agsnSV(ikl,1)      = 10.    
+        toicSV(ikl)        = toicSV(ikl)   - sn_add
+      END IF
+      END IF
+
+      IF (sissnow(ikl) .ge. sn_upp) THEN  !thinnen snow layer below
+        dzsnSV(ikl,1)      = dzsnSV(ikl,1)/sn_div
+        toicSV(ikl) = toicSV(ikl)+dzsnSV(ikl,1)*ro__SV(ikl,1)/sn_div
+      END IF
+
+        sissnow(ikl)       = 0.  !()
+      DO  isn = 1,isnoSV(ikl)                                               
+        sissnow(ikl) = sissnow(ikl)+dzsnSV(ikl,isn)* ro__SV(ikl,isn)           
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+        snowhgt(ikl) = snowhgt(ikl)+dzsnSV(ikl,isn)              
+        qsnow(ikl)   = qsnow(ikl)+1e03*eta_SV(ikl,isn)*dzsnSV(ikl,isn)   
+      END DO
+        snow(ikl)    = sissnow(ikl)+toicSV(ikl)
+        to_ice(ikl)  = toicSV(ikl)
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+      DO  isl =   -nsol,0    
+        tsoil(ikl,1-isl)   = TsisSV(ikl,isl)       ! Soil Temperature  
+        qsol(ikl)          = qsol(ikl)                      &    
+                       +eta_SV(ikl,isl) * dz_dSV(isl)  
+      END DO                                               
+        agesno(ikl)        = agsnSV(ikl,isnoSV(ikl))        !          [day] 
+
+        alb1(ikl)          = alb1sv(ikl)             ! Albedo VIS  
+        alb2(ikl)          = ((So1dSV-f1)*alb1sv(ikl)                   &
+     &                       +So2dSV*alb2sv(ikl)+So3dSV*alb3sv(ikl))/f1    
+                                                     ! Albedo NIR 
+        alb3(ikl)          = alb3sv(ikl)             ! Albedo FIR  
+        tsurf_new(ikl)     = TsfnSV(ikl)
+!hj220711          Tsrfsv(ikl)              ! Surf.Temperature   
+!                TsisSV(ikl,0) *(1-min(1,isnoSV(ikl))) &                   
+!                +TsisSV(ikl,max(1,isnoSV(ikl))) * min(1,isnoSV(ikl)) 
+!        tsurf_new(ikl)   = max(Ts_Min,tsurf_new(ikl) )
+!        tsurf_new(ikl)   = min(Ts_Max,tsurf_new(ikl) )
+        qsurf(ikl)         = QaT_SV(ikl) 
+        emis_new(ikl)      = eps0SL(ikl)  
+
+!!!hjp 230611 sorties
+!!        qsnow(ikl)=TsisSV(ikl,isnoSV(ikl))
+!!        sissnow(ikl)=TsisSV(ikl,isnoSV(ikl)-1)
+!!        snowhgt(ikl)=TsisSV(ikl,isnoSV(ikl)-2)
+!!        qsol(ikl)=dzsnSV(ikl,isnoSV(ikl)-1)
+!!        agesno(ikl)=dzsnSV(ikl,isnoSV(ikl))
+
+
+      END DO 
+
+
+! +  -----------------------------                              
+! +  END --- RETURN RESULTS    
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! + Uncompress SISVAT output variables & store
+! +  -----------------------------            
+! +
+!      DO  ikl = 1,knon                                                     
+!        i   = ikl2i(ikl)                             ! Compression index  
+!      IF (i.GE.0) THEN
+!        SOsoNC(i)       = SOsoKL(ikl)                ! Absorb.Sol.Rad.    
+!        IRsoNC(i)       = IRsoKL(ikl)                ! Absorb.IR  Rad.    
+!        HSsoNC(i)       = HSsoKL(ikl)                ! HS                 
+!        HLsoNC(i)       = HLsoKL(ikl)                ! HL                 
+!        HLs_NC(i)       = HLs_KL(ikl)                ! Evaporation          
+!        HLv_NC(i)       = HLv_KL(ikl)                ! Transpiration      
+!        
+!        DO isl =   -nsol,0      
+!          eta_NC(i,1-isl) = eta_SV(ikl,isl)          ! Soil Humidity      
+!          tsolNC(i,1-isl) = TsisSV(ikl,isl)          ! Soil Temperature   
+!        END DO                                                  
+!        snowNC(i)       = snow(ikl)                  ! Snow mass    
+!        isnoNC(i)       = isnoSV(ikl)                ! Nb Snow/Ice Lay.   
+!        ispiNC(i)       = ispiSV(ikl)                ! Nb Supr.Ice Lay.   
+!        iiceNC(i)       = iiceSV(ikl)                ! Nb      Ice Lay.   
+!        swaNC(i)        = rusnSV(ikl)                ! Surficial Water    
+!        swsNC(i)        = SWS_SV(ikl)                ! Surficial Wat.St.    
+!        DO  isn = 1,nsno                                                   
+!          istoNC(i,isn)   = istoSV(ikl,isn)          !            [-]     
+!          dzsnNC(i,isn)   = dzsnSV(ikl,isn)          !            [m]     
+!          rhosnNC(i,isn)  = ro__SV(ikl,isn)          !        [kg/m3]     
+!          etasnNC(i,isn)  = eta_SV(ikl,isn)          !        [m3/m3]     
+!          tsnNC(i,isn)    = TsisSV(ikl,isn)          !            [K]     
+!          g1snNC(i,isn)   = G1snSV(ikl,isn)          ! [-]        [-]     
+!          g2snNC(i,isn)   = G2snSV(ikl,isn)          ! [-] [0.0001 m]     
+!          agsnNC(i,isn)   = agsnSV(ikl,isn)          !          [day]   
+!        END DO                                                            
+!!?c #IB  depsubNC(i)    = wes_SV(ikl)                ! Depo. / Subli.     
+!        meltNC(i)       = wem_SV(ikl)                ! Melting            
+!        refrNC(i)       = wer_SV(ikl)                ! Refreezing         
+!        alb1NC(i)       = alb1sv(ikl)                ! Albedo SW  
+!        alb2NC(i)       = (alb1sv(ikl)+3*alb2sv(ikl)+alb3sv(ikl))/5  
+                                                      ! Albedo LW
+!        rnofNC(i)       = RnofSV(ikl)              ! Run OFF Intensity
+!   
+!!?        SL_z0(i)       = Z0m_SV(ikl)                 ! Moment.Roughn.L.   
+!!?        SL_r0(i,j,n)   = Z0h_SV(ikl)                 ! Heat   Roughn.L.  
+!!!        zWE_NC(i)       = zWE_SV(ikl)                ! Current  *Thick.   
+!!!        zWEcNC(i)       = zWEcSV(ikl)                ! Non-Erod.*Thick.   
+!!!        hSalNC(i)       = hSalSV(ikl)                ! Salt.Layer Height  
+!!!        hsenSL(i) = -SLuts(i,j)  *  rhAir    *cp     ! Sensible Heat Flux
+!!!        hlatSL(i) = -SLuqs(i,j)  *  rhAir    *Lv_H2O ! Latent   Heat Flux 
+!      END IF
+!      END DO   
+
+!hj + Put storage to Output file here!                                     
+      IF (lafin) THEN
+
+        fichnom = "restartsis.nc"
+        CALL sisvatredem("restartsis.nc",ikl2i,rlon,rlat)            
+        IF (ok_outfor) THEN
+          close(unit=un_outfor)                    
+        END IF
+      END IF                                                          
+! +  -----------------------------                              
+! +  END --- RETURN RESULTS    
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+  END SUBROUTINE surf_sisvat
+
+
+
+
+
+
+
+  SUBROUTINE get_soil_levels(dz1, dz2, lambda)
+! ======================================================================
+! Routine to compute the vertical discretization of the soil in analogy
+! to LMDZ. In LMDZ it is done in soil.F, which is not used in the case 
+! of SISVAT, therefore it's needed here.
+!
+    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
+    USE mod_phys_lmdz_para
+
+    INCLUDE "dimsoil.h"
+
+    REAL, DIMENSION(nsoilmx), INTENT(OUT) :: dz2, dz1
+    REAL, INTENT(OUT)                     :: lambda
+
+
+!-----------------------------------------------------------------------
+!   Depthts:
+!   --------
+    REAL fz,rk,fz1,rk1,rk2
+    REAL min_period, dalph_soil
+    INTEGER ierr,jk
+
+    fz(rk)=fz1*(dalph_soil**rk-1.)/(dalph_soil-1.)
+
+!    write(*,*)'Start soil level computation' 
+!-----------------------------------------------------------------------
+! Calculation of some constants
+! NB! These constants do not depend on the sub-surfaces
+!-----------------------------------------------------------------------
+!-----------------------------------------------------------------------
+!   ground levels 
+!   grnd=z/l where l is the skin depth of the diurnal cycle:
+!-----------------------------------------------------------------------
+
+     min_period=1800. ! en secondes
+     dalph_soil=2.    ! rapport entre les epaisseurs de 2 couches succ.
+! !$OMP MASTER
+!     IF (is_mpi_root) THEN
+!        OPEN(99,file='soil.def',status='old',form='formatted',iostat=ierr)
+!        IF (ierr == 0) THEN ! Read file only if it exists
+!           READ(99,*) min_period
+!           READ(99,*) dalph_soil
+!           PRINT*,'Discretization for the soil model'
+!           PRINT*,'First level e-folding depth',min_period, &
+!                '   dalph',dalph_soil
+!           CLOSE(99)
+!        END IF
+!     ENDIF
+! !$OMP END MASTER
+!     CALL bcast(min_period)
+!     CALL bcast(dalph_soil)
+
+!   la premiere couche represente un dixieme de cycle diurne
+     fz1=SQRT(min_period/3.14)
+     
+     DO jk=1,nsoilmx
+        rk1=jk
+        rk2=jk-1
+        dz2(jk)=fz(rk1)-fz(rk2) 
+     ENDDO
+     DO jk=1,nsoilmx-1
+        rk1=jk+.5
+        rk2=jk-.5
+        dz1(jk)=1./(fz(rk1)-fz(rk2))
+     ENDDO
+     lambda=fz(.5)*dz1(1)
+     PRINT*,'full layers, intermediate layers (seconds)'
+     DO jk=1,nsoilmx
+        rk=jk
+        rk1=jk+.5
+        rk2=jk-.5
+        PRINT *,'fz=', &
+             fz(rk1)*fz(rk2)*3.14,fz(rk)*fz(rk)*3.14
+     ENDDO
+
+  END SUBROUTINE get_soil_levels
+
+  SUBROUTINE SISVAT_ini(knon)                                                     
+                                                                               
+!C +------------------------------------------------------------------------+  
+!C | MAR          SISVAT_ini                             Jd 11-10-2007  MAR | 
+!C |   SubRoutine SISVAT_ini generates non time dependant SISVAT parameters |  
+!C +------------------------------------------------------------------------+  
+!C |   PARAMETERS:  klonv: Total Number of columns =                        |  
+!C |   ^^^^^^^^^^        = Total Number of continental     grid boxes       |  
+!C |                     X       Number of Mosaic Cell per grid box         |  
+!C |                                                                        |  
+!C |   INPUT:   dt__SV   : Time  Step                                   [s] | 
+!C |   ^^^^^    dz_dSV   : Layer Thickness                              [m] |  
+!C |                                                                        |  
+!C |   OUTPUT:  RF__SV   : Root Fraction in Layer isl                   [-] |  
+!C |   ^^^^^^   rocsSV   : Soil Contrib. to (ro c)_s exclud.Water  [J/kg/K] |  
+!C |            etamSV   : Soil Minimum Humidity                    [m3/m3] |  
+!C |                      (based on a prescribed Soil Relative Humidity)    |  
+!C |            s1__SV   : Factor of eta**( b+2) in Hydraul.Diffusiv.       |  
+!C |            s2__SV   : Factor of eta**( b+2) in Hydraul.Conduct.        |  
+!C |            aKdtSV   : KHyd: Piecewise Linear Profile:  a * dt    [m]   |  
+!C |            bKdtSV   : KHyd: Piecewise Linear Profile:  b * dt    [m/s] |  
+!C |            dzsnSV(0): Soil first Layer Thickness                   [m] |  
+!C |            dzmiSV   : Distance between two contiguous levels       [m] |  
+!C |            dz78SV   : 7/8 (Layer Thickness)                        [m] | 
+!C |            dz34SV   : 3/4 (Layer Thickness)                        [m] | 
+!C |            dz_8SV   : 1/8 (Layer Thickness)                        [m] | 
+!C |            dzAvSV   : 1/8  dz_(i-1) + 3/4 dz_(i) + 1/8 dz_(i+1)    [m] | 
+!C |            dtz_SV   : dt/dz                                      [s/m] | 
+!C |            OcndSV   : Swab Ocean / Soil Ratio                      [-] |
+!C |            Implic   : Implicit Parameter  (0.5:  Crank-Nicholson)      |  
+!C |            Explic   : Explicit Parameter = 1.0 - Implic                |  
+!C |                                                                        | 
+!C | # OPTIONS: #ER: Richards Equation is not smoothed                      |
+!C | # ^^^^^^^  #kd: De Ridder   Discretization                             |
+!C | #          #SH: Hapex-Sahel Values                                     !  
+!C |                                                                        | 
+!C +------------------------------------------------------------------------+  
+!                                                                              
+!                                                                             
+                                                                              
+!C +--Global Variables                                                         
+!C +  ================         
+
+      USE VARphy, ra_earth=>ra                                           
+      USE VAR_SV                                                     
+      USE VARdSV                                                         
+      USE VAR0SV                                                           
+      USE VARxSV
+      USE VARtSV
+      USE VARxSV
+      USE VARySV
+      IMPLICIT NONE                                                           
+                                                                              
+                                                                              
+                                                                              
+!C +--Arguments                                                     
+!C +  ==================                                                      
+       INTEGER,INTENT(IN) ::  knon                                       
+
+!C +--Internal Variables                                                     
+!C +  ==================                                                      
+                                                                               
+      INTEGER ::  ivt   ,ist   ,ivg   ,ikl   ,isl   ,isn   ,ikh               
+      INTEGER ::  misl_2,nisl_2                                              
+      REAL    ::  zDepth                                                       
+      REAL    ::  d__eta,eta__1,eta__2,Khyd_1,Khyd_2                           
+      REAL,PARAMETER  ::  RHsMin=  0.001        ! Min.Soil Relative Humidity   
+      REAL    ::  PsiMax                        ! Max.Soil Water    Potential 
+      REAL    ::  a_Khyd,b_Khyd                 ! Piecewis.Water Conductivity 
+
+
+!c #WR REAL    ::  Khyd_x,Khyd_y                                               
+                                                                              
+                                                                              
+                                                                 
+!C +--Non Time Dependant SISVAT parameters                                    
+!C +  ====================================                                
+                                                                              
+!C +--Soil Discretization                                                     
+!C +  -------------------                                                     
+                                                                              
+!C +--Numerical Scheme Parameters                                             
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^^^^                                             
+        Implic = 0.75                           ! 0.5  <==> Crank-Nicholson  
+        Explic = 1.00 - Implic                  !                            
+                                                                             
+!C +--Soil/Snow Layers Indices                                                
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^                                                
+      DO  isl=-nsol,0                                                          
+        islpSV(isl) =           isl+1                                         
+        islpSV(isl) = min(      islpSV(isl),0)                                
+        islmSV(isl) =           isl-1                                         
+        islmSV(isl) = max(-nsol,islmSV(isl))                                 
+      END DO                                                                  
+                                                                               
+      DO  isn=1,nsno                                                           
+        isnpSV(isn) =           isn+1                                          
+        isnpSV(isn) = min(      isnpSV(isn),nsno)                            
+      END DO                                                                 
+                                                                              
+!C +--Soil      Layers Thicknesses                                             
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^  
+! Not used here as LMDZ method is applied, see SUBROUTINE get_soil_levels!    
+!c #kd IF (nsol.gt.4)                                              THEN        
+!c #kd   DO isl=-5,-nsol,-1                                                    
+!c #kd     dz_dSV(isl)=   1.                                                  
+!c #kd   END DO                                                                
+!c #kd END IF                                                                 
+!                                                                             
+!      IF (nsol.ne.4)                                              THEN        
+!        DO isl= 0,-nsol,-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.             
+!C +...    dz_dSV(0)  =         Hapex-Sahel Calibration:       4 mm            
+!                                                                             
+!c +SH     dz_dSV(isl)=(((1-misl_2) * 0.001                                   
+!c +SH.                  +  misl_2  * 0.003) * 10**(nisl_2)) * 1.              
+!                                                                             
+!c #05     dz_dSV(isl)=(((1-misl_2) * 0.001                                    
+!c #05.                  +  misl_2  * 0.008) * 10**(nisl_2)) * 0.5             
+!        END DO                                                                
+!          dz_dSV(0)  =               0.001                                    
+!          dz_dSV(-1) = dz_dSV(-1)  - dz_dSV(0)              + 0.004         
+!      END IF                                                                 
+                                                                               
+        zz_dSV      = 0.                                                      
+      DO  isl=-nsol,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))                          
+!c #ER   dz78SV(isl) =        dz_dSV(isl)                                     
+!c #ER   dz34SV(isl) =        dz_dSV(isl)                                      
+!c #ER   dz_8SV(isl) = 0.                                                      
+!c #ER   dzAvSV(isl) =        dz_dSV(isl)                                      
+        zz_dSV      = zz_dSV+dz_dSV(isl)                                      
+      END DO                                                                  
+      DO ikl=1,knon !v                                                          
+        dzsnSV(ikl,0) =      dz_dSV(0)                                        
+      END DO                                                                  
+                                                                              
+!C +--Conversion to a 50 m Swab Ocean Discretization                           
+!C +  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                           
+        OcndSV = 0.                                                           
+      DO isl=-nsol,0                                                          
+        OcndSV = OcndSV +dz_dSV(isl)                                           
+      END DO                                                                   
+        OcndSV = 50.    /OcndSV                                                
+                                                                               
+                                                                               
+!C +--Secondary Vegetation Parameters                                          
+!C +  -------------------------------                                          
+!                                                                              
+!C +--Minimum Stomatal Resistance (Hapex Sahel Data)                           
+!C +  (Taylor et al. 1997, J.Hydrol 188-189, p.1047)                           
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                           
+!c #SH DO ivg=1,3                       !                                     
+!c #SH   StodSV(ivg) = 210.             ! Millet                               
+!c #SH END DO                           !                                      
+!c #SH   StodSV(  4) = 120.             ! Sparse Tiger Bush                    
+!c #SH DO ivg=5,6                       !                                     
+!c #SH   StodSV(ivg) =  80.             ! Dense  Tiger Bush                   
+!c #SH END DO                           !                                     
+!c #SH   StodSV(  7) =  80.             ! Low    Trees (Fallow)               
+!c #SH   StodSV( 10) =  80.             !                                     
+!                                                                             
+!C +--Minimum Stomatal Resistance (Tropical Forest)                          
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                           
+!c #SH   StodSV(  8) =  60.             ! Medium Trees                        
+!c #SH   StodSV( 11) =  60.             !                                     
+!c #SH   StodSV(  9) =  40.             ! High   Trees                        
+!c #SH   StodSV( 12) =  40.             !                                     
+                                                                              
+!C +--Root Fraction                                                           
+!C +  ^^^^^^^^^^^^^                                                          
+!C +  * GENERAL REFERENCE                                                     
+!C +    Jackson et al., 1996: A global analysis of root distributions for     
+!C +    terrestrial biomes. In Oecologia, 108, 389-411.                       
+                                                                             
+!C +  * ROOT PROFILE                                                           
+!C +    The cumulative root fraction Y is given by                             
+!C +        Y = 1 - beta**d   with d    the depth (in cm),                    
+!C +                               beta a coefficient (vegetation dependent).
+                                                                             
+!C +  * BETA VALUES (for 11 world biomes)                                      
+!C +  1  boreal forest                0.943                                    
+!C +  2  crops                        0.961                                    
+!C +  3  desert                       0.975                                   
+!C +  4  sclerophyllous shrubs        0.964                                   
+!C +  5  temperate coniferous forest  0.976                                   
+!C +  6  temperate deciduous forest   0.966                                   
+!C +  7  temperate grassland          0.943                                    
+!C +  8  tropical deciduous forest    0.961                                    
+!C +  9  tropical evergreen forest    0.962                                   
+!C +  10 tropical grassland savanna   0.972                                    
+!C +  11 tundra                       0.914                                   
+!                                                                              
+!C +  * ADVISED BETA VALUES FOR MAR                                           
+!C +    (see 'block data SISVAT_dat', variable rbtdSV)                         
+!C +                                                                           
+!C +    SVAT veg. type         default      West Africa                        
+!C +    0  barren soil         0.000        0.000                              
+!C +    1  crops low           0.961 (2)    0.961 (2)                          
+!C +    2  crops medium        0.961 (2)    0.961 (2)                          
+!C +    3  crops high          0.961 (2)    0.961 (2)                          
+!C +    4  grass low           0.943 (7)    0.943 (7)                          
+!C +    5  grass medium        0.943 (7)    0.964 (4)                         
+!C +    6  grass high          0.943 (7)    0.972 (10)                        
+!C +    7  broadleaf low       0.966 (6)    0.968 (4,10)                      
+!C +    8  broadleaf medium    0.966 (6)    0.962 (8,9)                       
+!C +    9  broadleaf high      0.966 (6)    0.962 (8,9)                        
+!C +    10 needleleaf low      0.976 (5)    0.971 (5,6)                       
+!C +    11 needleleaf medium   0.976 (5)    0.976 (5)                         
+!C +    12 needleleaf high     0.976 (5)    0.976 (5)                          
+                                                                             
+!C +    Numbers between brackets refer to Jackson's biomes. For more details  
+!C +    about some choices, see the correspondance between the IGBP and SVAT   
+!C +    vegetation classes (i.e. in NESTOR).                                 
+                                                                              
+!C +  * WARNING                                                                
+!C +    Most of the roots are located in the first 2 m of soil. The root       
+!C +    fraction per layer depends on the definition of the soil layer         
+!C +    thickness. It will get wrong if a thick layer is defined around 2 m    
+!C +    deep.                                                                  
+                                                                               
+      write(*,'(/a)') 'ROOT PROFILES (Jackson, 1996) :'                        
+                                                                              
+      DO ivt = 0, nvgt                                                        
+        zDepth = 0.                                                           
+        DO isl = 0, -nsol, -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, ',', -nsol, ':0) =', RF__SV(ivt,:)            
+      END DO                                                                  
+!      write(6, 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.'))                         
+                                                                              
+                                                                               
+!C +--Secondary Soil       Parameters                                          
+!C +  -------------------------------                                         
+                                                                               
+      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)       
+                                                                             
+!C +--Soil Minimum Humidity (from a prescribed minimum relative Humidity)     
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^    
+         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.                                                   
+                                                                             
+!C +--Piecewise Hydraulic Conductivity Profiles                               
+!C +  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^                               
+      DO   ist=0,nsot                                                          
+!c #WR      write(6, format(' Type |    etaSat | No |    eta__1 |    eta__2 |', &
+!c #WR&           '    Khyd_1 |    Khyd_x |    Khyd_2 |    Khyd_y |'        &
+!c #WR&         /,' -----+-----------+----+-----------+-----------+',       &
+!c #WR&           '-----------+-----------+-----------+-----------+'))        
+                                                                             
+          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   !                       
+!c #WR     Khyd_x          =  a_Khyd*eta__1 +b_Khyd   !                       
+!c #WR     Khyd_y          =  a_Khyd*eta__2 +b_Khyd   !                       
+          aKdtSV(ist,ikh) =  a_Khyd       * dt__SV   !                       
+          bKdtSV(ist,ikh) =  b_Khyd       * dt__SV   !                         
+!c #WR     write(6,format(i5,' |',e10.2,' |',i3,' |', 6(e10.2,' |'))      & 
+!c #WR&           ist,etadSV(ist),ikh,eta__1,                             &
+!c #WR&          eta__2,Khyd_1,Khyd_x,Khyd_2,Khyd_y                       
+                                                                          
+          eta__1          = eta__1  + d__eta                              
+          eta__2          = eta__2  + d__eta                              
+        END DO                                                             
+      END DO                                                               
+
+
+!c
+! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! + INITIALISATION: ARRAYS on grid  +++ 
+! + -----------------------------------
+! +                                                      
+        DO ikl=1,knon                                
+
+! + Water Fluxes, roughness length  
+          us__SV(ikl) = 0.25                             ! Frict. Velocity  
+                                      ! (approx ETH-Camp Lefebre etal CD 2005
+          uts_SV(ikl) = 1.                               ! u*T*  arbitrary  
+          uqs_SV(ikl) = 0.25 ! turb_vel(ikl,3)           ! u*q*    " 
+          uss_SV(ikl) = 0.25 ! turb_vel(ikl,4)           ! u*s*    "
+!!c #AE   usthSV(ikl) = 0. 
+          Z0h_SV(ikl) = 0. ! rlength(ikl,9)
+          Z0m_SV(ikl) = 0.                               ! Moment.Roughn.L.  
+          Z0h_SV(ikl) = 0.                               ! Heat   Roughn.L.  
+!!c #OR   Z0roSV(ikl) = 0.                               ! Orogr. Roughn.L.
+          LMO_SV(ikl) = 0.
+          VVs_SV(ikl) = 0.
+          RRs_SV(ikl) = 0.
+          DDs_SV(ikl) = 0.
+
+! + Snow
+          isnoSV(ikl) = 0                        ! # snow layers 
+          BufsSV(ikl) = 0.    
+          zzsnsv(ikl,:) = 0.                         ! Snow pack thickness
+          qsnoSV(ikl) = 0.                        ! BL snow content  
+          zWEcSV(ikl) = 0.
+          dbs_SV(ikl) = 0.
+          dsnbSV(ikl) = 0.
+          esnbSV(ikl) = 0.
+          BrosSV(ikl) = 0.
+          BG1sSV(ikl) = 0.          
+          BG2sSV(ikl) = 0.
+          SWS_SV(ikl) = 0.
+          RnofSV(ikl) = 0.                             ! RunOFF Intensity 
+          toicSV(ikl) = 0.         !hj preli
+! + Clouds !hj1602
+          cld_SV(ikl) = 0.            
+
+! + Vegetation
+          LSmask(ikl) = 1                          ! Land/Sea   Mask    
+          isotSV(ikl) = 12                         ! Soil       Type    
+          iWaFSV(ikl) = 1                          ! Soil Drainage          
+          Rootsv(ikl,:) = 0.
+          ivgtSV(ikl) = 0                          ! Vegetation Type    
+          LAI0SV(ikl) = 0                          ! LAI                
+          glf0SV(ikl) = 0                          ! Green Leaf Frac.
+!          TVegSV(ikl) = 0. 
+          SnCaSV(ikl) = 0. 
+          rrCaSV(ikl) = 0. 
+          pSivSV(ikl) = 0. 
+
+! + z0(Sastrugi)                                        
+! #SZ     Z0SaSL(ikl) = 0.                                           
+! #ZM   DO nt=1,ntavSL                                                      
+! #ZM     SLn_z0(ikl,nt) = 0.5e-6                                       
+! #ZM     SLn_b0(ikl,nt) = 0.5e-6                                       
+! #ZM     SLn_r0(ikl,nt) = 0.5e-6                                       
+! #ZM   END DO 
+
+
+! +--z0(Orography Roughness)                                 
+! #OR     SL_z0 (ikl) = min(SL_z0 (ikl),zsigma/3.)                    
+! #OR     SLzoro(ikl) = min(SLzoro(ikl),zsigma/3.)                    
+
+! +--SBL  Characteristics                                                          
+! #AA   DO nt=  1,ntaver                                                     
+! #AW     V_0aSL(ikl,nt)  = ssvSL(ikl)    
+! #AH     dT0aSL(ikl,nt)  = temp_air(ikl)-tsurf(ikl)                     
+! #AA   END DO                                                               
+
+
+        END DO
+
+
+                                                                           
+      return                                                               
+
+  END SUBROUTINE SISVAT_ini
+
+
+
+
+
+
+
+!***************************************************************************
+
+    SUBROUTINE sisvatetat0 (fichnom,ikl2i)
+
+    USE dimphy
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+
+    USE iostart
+    USE VAR_SV
+    USE VARdSV
+    USE VARxSV          
+    USE VARtSV
+    USE indice_sol_mod
+
+      IMPLICIT none
+!======================================================================
+! Auteur(s) HJ PUNGE (LSCE) date: 07/2009
+! Objet: Ecriture de l'etat de redemarrage pour SISVAT
+!======================================================================
+    include "netcdf.inc"
+!    include "indicesol.h"
+
+    include "dimsoil.h"
+    include "clesphys.h"
+    include "thermcell.h"
+    include "compbl.h"
+
+!======================================================================
+    CHARACTER(LEN=*) :: fichnom
+
+
+    INTEGER, DIMENSION(klon), INTENT(IN) :: ikl2i
+    REAL, DIMENSION(klon) :: rlon
+    REAL, DIMENSION(klon) :: rlat
+
+! les variables globales ecrites dans le fichier restart
+    REAL, DIMENSION(klon) :: isno
+    REAL, DIMENSION(klon) :: ispi
+    REAL, DIMENSION(klon) :: iice
+    REAL, DIMENSION(klon) :: rusn 
+    REAL, DIMENSION(klon, nsno) :: isto
+
+    REAL, DIMENSION(klon, nsismx) :: Tsis
+    REAL, DIMENSION(klon, nsismx) :: eta
+    REAL, DIMENSION(klon, nsismx) :: ro 
+
+    REAL, DIMENSION(klon, nsno) :: dzsn      
+    REAL, DIMENSION(klon, nsno) :: G1sn
+    REAL, DIMENSION(klon, nsno) :: G2sn
+    REAL, DIMENSION(klon, nsno) :: agsn
+
+    REAL, DIMENSION(klon) :: toic
+
+!    REAL, DIMENSION(klon) :: IRs
+!    REAL, DIMENSION(klon) :: LMO
+!    REAL, DIMENSION(klon) :: Bufs
+!    REAL, DIMENSION(klon, 9) :: rlength
+!    REAL, DIMENSION(klon, 5) :: turb_vel
+
+    INTEGER  :: isl, ikl, i, isn , errT, erreta, errro, errdz, snopts
+    CHARACTER (len=2) :: str2
+    LOGICAL :: found
+  
+    errT=0
+    errro=0
+    erreta=0
+    errdz=0
+    snopts=0
+! Ouvrir le fichier contenant l'etat initial:
+
+    CALL open_startphy(fichnom)
+
+! Lecture des latitudes, longitudes (coordonnees):
+
+      CALL get_field("latitude",rlat,found)
+      CALL get_field("longitude",rlon,found)
+
+      CALL get_field("n_snows", isno,found)
+      IF (.NOT. found) THEN
+        PRINT*, 'phyetat0: Le champ <n_snows> est absent'
+        PRINT *, 'fichier startsisvat non compatible avec sisvatetat0'
+      ENDIF
+
+      CALL get_field("n_ice_top",ispi,found)
+      CALL get_field("n_ice",iice,found)
+      CALL get_field("surf_water",rusn,found)
+!      IF (.NOT. found) THEN
+!        PRINT*, 'phyetat0: Le champ <surf_water> est absent'
+!        rusn(:)=0.  
+!      ENDIF
+
+
+      CALL get_field("to_ice",toic,found)
+      IF (.NOT. found) THEN
+        PRINT*, 'phyetat0: Le champ <to_ice> est absent'
+        toic(:)=0.  
+      ENDIF
+
+
+!      CALL get_field("IR_soil",IRs,found)
+!      CALL get_field("LMO",LMO,found)
+!      CALL get_field("snow_buffer",Bufs,found)
+!      DO i = 1, 5
+!            WRITE(str2,'(i2.2)') i
+!            CALL get_field("turb_veloc"//str2, &
+!                          turb_vel(:,i),found)
+!      ENDDO
+!      DO i = 1, 9
+!            WRITE(str2,'(i2.2)') i
+!            CALL get_field("rough_length"//str2, &
+!                          rlength(:,i),found)
+!      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("AGESNOW"//str2, &
+                          agsn(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("DZSNOW"//str2, &
+                          dzsn(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("G2SNOW"//str2, &
+                          G2sn(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("G1SNOW"//str2, &
+                          G1sn(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsismx
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("ETA"//str2, &
+                          eta(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsismx
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("RO"//str2, &
+                          ro(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsismx
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("TSS"//str2, &
+                          Tsis(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+            WRITE(str2,'(i2.2)') isn
+            CALL get_field("HISTORY"//str2, &
+                          isto(:,isn),found)
+        ELSE
+            PRINT*, "Trop de couches"
+            CALL abort
+        ENDIF
+      ENDDO
+      write(*,*)'Read ',fichnom,' finished!!'
+
+!*********************************************************************************
+! Compress restart file variables for SISVAT
+
+
+      isnoSV(:)        = 0       
+      ispiSV(:)        = 0 
+      iiceSV(:)        = 0                                
+       
+      eta_SV(:,1:nsno) = 0.     
+      TsisSV(:,1:nsno) = 0.         
+      istoSV(:,:)      = 0 
+      ro__SV(:,1:nsno) = 0.        
+      G1snSV(:,:)      = 0.    
+      G2snSV(:,:)      = 0. 
+      dzsnSV(:,1:nsno) = 0.        
+      agsnSV(:,:)      = 0.
+      rusnSV(:)        = 0.   
+      toicSV(:)        = 0.
+
+      DO  ikl = 1,klon                                                   
+          i   = ikl2i(ikl)   
+          IF (i > 0) THEN
+              isnoSV(ikl)     = INT(isno(i))          ! Nb Snow/Ice Lay.   
+              ispiSV(ikl)     = INT(ispi(i))          ! Nb Supr.Ice Lay.  
+              iiceSV(ikl)     = INT(iice(i))          ! Nb      Ice Lay.   
+                                                                              
+!!              IRs_SV(ikl)     = IRs(i)
+!              LMO_SV(ikl)     = LMO(i)               !?              
+!              us__SV(ikl)     = turb_vel(i,1)        
+!              uts_SV(ikl)     = turb_vel(i,2)
+!              uqs_SV(ikl)     = turb_vel(i,3) 
+!              uss_SV(ikl)     = turb_vel(i,4) 
+!              usthSV(ikl)     = turb_vel(i,5)
+!              Z0m_SV(ikl)     = rlength(i,1)         ! Moment.Roughn.L. 
+!              Z0mmSV(ikl)     = rlength(i,2)         ! Moment.Roughn.L.   
+!              Z0mnSV(ikl)     = rlength(i,3)         ! Moment.Roughn.L.   
+!              Z0SaSV(ikl)     = rlength(i,4)         ! Moment.Roughn.L.   
+!              Z0e_SV(ikl)     = rlength(i,5)         ! Moment.Roughn.L.   
+!              Z0emSV(ikl)     = rlength(i,6)         ! Moment.Roughn.L.   
+!              Z0enSV(ikl)     = rlength(i,7)         ! Moment.Roughn.L.   
+!              Z0roSV(ikl)     = rlength(i,8)         ! Moment.Roughn.L.   
+!!              Z0h_SV(ikl)     = rlength(i,9)         ! Moment.Roughn.L.   
+
+            DO isl =   -nsol,0    
+              ro__SV(ikl,isl) = ro(i,nsno+1-isl)       !                    
+              eta_SV(ikl,isl) = eta(i,nsno+1-isl)         ! Soil Humidity      
+!hjp 15/10/2010
+              IF (eta_SV(ikl,isl) <= 1.e-6) THEN          !hj check
+                eta_SV(ikl,isl) = 1.e-6
+              ENDIF
+              TsisSV(ikl,isl) = Tsis(i,nsno+1-isl)        ! Soil Temperature  
+              IF (TsisSV(ikl,isl) <= 1.) THEN          !hj check
+!                errT=errT+1
+                TsisSV(ikl,isl) = 273.15
+              ENDIF
+
+            END DO        
+            write(*,*)'Copy histo', ikl
+
+ 
+              istoSV(ikl,0) = 0                     ! Snow     History 
+
+              G1snSV(ikl,0) = 0.5                   !      [-]     
+              G2snSV(ikl,0) = 3.                    ! [-] [0.0001 m] 
+              dzsnSV(ikl,0) = dz_dSV(0)             !            [m] 
+              agsnSV(ikl,0) = 0.                    !          [day]     
+   
+            DO  isn = 1,isnoSV(ikl) !nsno      
+              snopts=snopts+1 
+              IF (isto(i,isn) > 10.) THEN          !hj check
+                write(*,*)'Irregular isto',ikl,i,isn,isto(i,isn)
+                isto(i,isn) = 1.
+              ENDIF
+
+              istoSV(ikl,isn) = INT(isto(i,isn))     ! Snow     History 
+              ro__SV(ikl,isn) = ro(i,isn)            !        [kg/m3]     
+              eta_SV(ikl,isn) = eta(i,isn)           !        [m3/m3]  
+              TsisSV(ikl,isn) = Tsis(i,isn)          !            [K]  
+
+             IF (TsisSV(ikl,isn) <= 1.) THEN          !hj check
+              errT=errT+1
+              TsisSV(ikl,isn) = TsisSV(ikl,0)
+             ENDIF  
+             IF (TsisSV(ikl,isn) <= 1.) THEN          !hj check
+              TsisSV(ikl,isn) = 263.15
+             ENDIF
+             IF (eta_SV(ikl,isn) < 1.e-9) THEN          !hj check
+              eta_SV(ikl,isn) = 1.e-6  
+              erreta=erreta+1
+             ENDIF  
+             IF (ro__SV(ikl,isn) <= 10.) THEN          !hj check
+              ro__SV(ikl,isn) = 11.
+              errro=errro+1
+             ENDIF 
+              write(*,*)ikl,i,isn,Tsis(i,isn),G1sn(i,isn)
+              G1snSV(ikl,isn) = G1sn(i,isn)          ! [-]        [-]     
+              G2snSV(ikl,isn) = G2sn(i,isn)          ! [-] [0.0001 m] 
+              dzsnSV(ikl,isn) = dzsn(i,isn)          !            [m] 
+!             IF (dzsnSV(ikl,isn) < 5.e-6) THEN          !hj check
+!              dzsnSV(ikl,isn) = 0.000005
+!              errdz=errdz+1
+!             ENDIF         
+              agsnSV(ikl,isn) = agsn(i,isn)          !          [day]     
+            END DO  
+              rusnSV(ikl)     = rusn(i)              ! Surficial Water    
+              toicSV(ikl)     = toic(i)              ! bilan snow to ice   
+!!              BufsSV(ikl)     = Bufs(i)    
+          END IF                       
+        END DO    
+!        write(*,*)snopts,'snow pts',errT,' T errors,',errro,'ro,'
+!        write(*,*)'   ',erreta,'eta,',errdz,'dz' 
+    END SUBROUTINE sisvatetat0
+
+
+
+
+    SUBROUTINE sisvatredem (fichnom,ikl2i,rlon,rlat)
+!======================================================================
+! Auteur(s) HJ PUNGE (LSCE) date: 07/2009
+! Objet: Ecriture de l'etat de redemarrage pour SISVAT
+!======================================================================
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+    USE iostart
+    USE VAR_SV
+    USE VARxSV          
+    USE VARySV !hj tmp 12 03 2010
+    USE VARtSV
+    USE indice_sol_mod
+
+    IMPLICIT none
+
+    include "netcdf.inc"
+!    include "indicesol.h" 
+    include "dimsoil.h"
+    include "clesphys.h" 
+    include "thermcell.h"
+    include "compbl.h"
+
+!======================================================================
+
+    CHARACTER(LEN=*) :: fichnom
+    INTEGER, DIMENSION(klon), INTENT(IN) :: ikl2i
+    REAL, DIMENSION(klon), INTENT(IN) :: rlon
+    REAL, DIMENSION(klon), INTENT(IN) :: rlat
+
+! les variables globales ecrites dans le fichier restart
+    REAL, DIMENSION(klon) :: isno
+    REAL, DIMENSION(klon) :: ispi
+    REAL, DIMENSION(klon) :: iice
+    REAL, DIMENSION(klon, nsnowmx) :: isto
+
+    REAL, DIMENSION(klon, nsismx) :: Tsis
+    REAL, DIMENSION(klon, nsismx) :: eta
+    REAL, DIMENSION(klon, nsnowmx) :: dzsn
+    REAL, DIMENSION(klon, nsismx) :: ro        
+    REAL, DIMENSION(klon, nsnowmx) :: G1sn
+    REAL, DIMENSION(klon, nsnowmx) :: G2sn
+    REAL, DIMENSION(klon, nsnowmx) :: agsn
+    REAL, DIMENSION(klon) :: IRs
+    REAL, DIMENSION(klon) :: LMO
+    REAL, DIMENSION(klon) :: rusn 
+    REAL, DIMENSION(klon) :: toic
+    REAL, DIMENSION(klon) :: Bufs
+    REAL, DIMENSION(klon) :: alb1,alb2,alb3
+    REAL, DIMENSION(klon, 9) :: rlength
+    REAL, DIMENSION(klon, 5) :: turb_vel
+
+    INTEGER isl, ikl, i, isn
+    CHARACTER (len=2) :: str2
+
+      isno(:)       = 0       
+      ispi(:)       = 0 
+      iice(:)       = 0                                
+      IRs(:)        = 0.
+      LMO(:)        = 0.                             
+      turb_vel(:,:) = 0.
+      rlength(:,:)  = 0.                                  
+      eta(:,:)      = 0.     
+      Tsis(:,:)     = 0.         
+      isto(:,:)     = 0 
+      ro(:,:)       = 0.        
+      G1sn(:,:)     = 0.    
+      G2sn(:,:)     = 0. 
+      dzsn(:,:)     = 0.        
+      agsn(:,:)     = 0. 
+      rusn(:)       = 0.   
+      toic(:)       = 0.   
+      Bufs(:)       = 0.   
+      alb1(:)       = 0.
+      alb2(:)       = 0.
+      alb3(:)       = 0.
+
+!***************************************************************************
+! Uncompress SISVAT output variables for storage
+           
+      DO  ikl = 1,klon                                                   
+        i   = ikl2i(ikl)
+      IF (i > 0) THEN
+        isno(i)       = 1.*isnoSV(ikl)               ! Nb Snow/Ice Lay.   
+        ispi(i)       = 1.*ispiSV(ikl)               ! Nb Supr.Ice Lay.   
+        iice(i)       = 1.*iiceSV(ikl)               ! Nb      Ice Lay.       
+   
+!        IRs(i)        = IRs_SV(ikl)
+!        LMO(i)        = LMO_SV(ikl)                             
+!        turb_vel(i,1) = us__SV(ikl) 
+!        turb_vel(i,2) = uts_SV(ikl) 
+!        turb_vel(i,3) = uqs_SV(ikl) 
+!        turb_vel(i,4) = uss_SV(ikl) 
+!        turb_vel(i,5) = usthSV(ikl) 
+!        rlength(i,1)  = Z0m_SV(ikl)                  ! Moment.Roughn.L. 
+!        rlength(i,2)  = Z0mmSV(ikl)                  !  
+!        rlength(i,3)  = Z0mnSV(ikl)                  !  
+!        rlength(i,4)  = Z0SaSV(ikl)                  !   
+!        rlength(i,5)  = Z0e_SV(ikl)                  !    
+!        rlength(i,6)  = Z0emSV(ikl)                  !   
+!        rlength(i,7)  = Z0enSV(ikl)                  !    
+!        rlength(i,8)  = Z0roSV(ikl)                  !   
+!        rlength(i,9)  = Z0h_SV(ikl)                  !    
+
+        DO isl =   -nsol,0                           !                    
+          eta(i,nsno+1-isl)  = eta_SV(ikl,isl)            ! Soil Humidity      
+          Tsis(i,nsno+1-isl) = TsisSV(ikl,isl)            ! Soil Temperature   
+          ro(i,nsno+1-isl)   = ro__SV(ikl,isl)            !        [kg/m3]    
+        END DO        
+ 
+  
+        DO  isn = 1,nsno              
+          isto(i,isn)   = 1.*istoSV(ikl,isn)         ! Snow     History 
+          ro(i,isn)     = ro__SV(ikl,isn)            !        [kg/m3]     
+          eta(i,isn)    = eta_SV(ikl,isn)            !        [m3/m3]  
+          Tsis(i,isn)   = TsisSV(ikl,isn)            !            [K]    
+          G1sn(i,isn)   = G1snSV(ikl,isn)            ! [-]        [-]     
+          G2sn(i,isn)   = G2snSV(ikl,isn)            ! [-] [0.0001 m] 
+          dzsn(i,isn)   = dzsnSV(ikl,isn)            !            [m]         
+          agsn(i,isn)   = agsnSV(ikl,isn)            !          [day]     
+        END DO  
+        rusn(i)       = rusnSV(ikl)                  ! Surficial Water  
+        toic(i)       = toicSV(ikl)                  ! Surficial Water  
+        alb1(i)       = alb1sv(ikl) 
+        alb2(i)       = alb2sv(ikl)
+        alb3(i)       = alb3sv(ikl)
+!        Bufs(i)       = BufsSV(ikl)      
+      END IF                     
+      END DO                                                
+
+      CALL open_restartphy(fichnom)
+      CALL put_field("longitude", &
+                    "Longitudes de la grille physique",rlon)     
+      CALL put_field("latitude","Latitudes de la grille physique",rlat)
+
+      CALL put_field("n_snows", "number of snow/ice layers",isno)
+      CALL put_field("n_ice_top", "number of top ice layers",ispi)
+      CALL put_field("n_ice", "number of ice layers",iice)
+      CALL put_field("IR_soil", "Soil IR flux",IRs)
+      CALL put_field("LMO", "Monin-Obukhov Scale",LMO)
+      CALL put_field("surf_water", "Surficial water",rusn)
+      CALL put_field("snow_buffer", "Snow buffer layer",Bufs)
+      CALL put_field("alb_1", "albedo sw",alb1)
+      CALL put_field("alb_2", "albedo nIR",alb2)
+      CALL put_field("alb_3", "albedo fIR",alb3)
+      CALL put_field("to_ice", "Snow passed to ice",toic)
+
+ !     DO i = 1, 5
+ !       WRITE(str2,'(i2.2)') i
+ !       CALL put_field("turb_veloc"//str2, &
+ !                      "various turbulent velocities"//str2, &
+ !                      turb_vel(:,i))
+ !     ENDDO
+ !     DO i = 1, 9
+ !       WRITE(str2,'(i2.2)') i
+ !       CALL put_field("rough_length"//str2, &
+ !                      "various roughness lengths"//str2, &
+ !                      rlength(:,i))
+ !     ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("AGESNOW"//str2, &
+                         "Age de la neige layer No."//str2, &
+                         agsn(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("DZSNOW"//str2, &
+                         "Snow/ice thickness layer No."//str2, &
+                         dzsn(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("G2SNOW"//str2, &
+                         "Snow Property 2, layer No."//str2, &
+                         G2sn(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("G1SNOW"//str2, &
+                         "Snow Property 1, layer No."//str2, &
+                         G1sn(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsismx
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("ETA"//str2, &
+                         "Soil/snow water content layer No."//str2, &
+                         eta(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsismx   !nsno
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("RO"//str2, &
+                         "Snow density layer No."//str2, &
+                         ro(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsismx
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("TSS"//str2, &
+                         "Soil/snow temperature layer No."//str2, &
+                         Tsis(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+      DO isn = 1,nsno
+        IF (isn.LE.99) THEN
+          WRITE(str2,'(i2.2)') isn
+          CALL put_field("HISTORY"//str2, &
+                         "Snow history layer No."//str2, &
+                         isto(:,isn))
+        ELSE
+          PRINT*, "Trop de couches"
+          CALL abort
+        ENDIF
+      ENDDO
+
+  END SUBROUTINE sisvatredem
+
+END MODULE surf_sisvat_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/soil.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/soil.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/soil.F90	(revision 3330)
@@ -0,0 +1,280 @@
+!
+! $Header$
+!
+SUBROUTINE soil(ptimestep, indice, knon, snow, ptsrf, &
+     ptsoil, pcapcal, pfluxgrd)
+  
+  USE dimphy
+  USE mod_phys_lmdz_para
+  USE indice_sol_mod
+  USE print_control_mod, ONLY: lunout
+
+  IMPLICIT NONE
+
+!=======================================================================
+!
+!   Auteur:  Frederic Hourdin     30/01/92
+!   -------
+!
+!   Object:  Computation of : the soil temperature evolution
+!   -------                   the surfacic heat capacity "Capcal"
+!                            the surface conduction flux pcapcal
+!
+!
+!   Method: Implicit time integration
+!   -------
+!   Consecutive ground temperatures are related by:
+!           T(k+1) = C(k) + D(k)*T(k)  (*)
+!   The coefficients C and D are computed at the t-dt time-step.
+!   Routine structure:
+!   1) C and D coefficients are computed from the old temperature
+!   2) new temperatures are computed using (*)
+!   3) C and D coefficients are computed from the new temperature
+!      profile for the t+dt time-step
+!   4) the coefficients A and B are computed where the diffusive
+!      fluxes at the t+dt time-step is given by
+!             Fdiff = A + B Ts(t+dt)
+!      or     Fdiff = F0 + Capcal (Ts(t+dt)-Ts(t))/dt
+!             with F0 = A + B (Ts(t))
+!                 Capcal = B*dt
+!           
+!   Interface:
+!   ----------
+!
+!   Arguments:
+!   ----------
+!   ptimestep            physical timestep (s)
+!   indice               sub-surface index
+!   snow(klon)           snow
+!   ptsrf(klon)          surface temperature at time-step t (K)
+!   ptsoil(klon,nsoilmx) temperature inside the ground (K)
+!   pcapcal(klon)        surfacic specific heat (W*m-2*s*K-1)
+!   pfluxgrd(klon)       surface diffusive flux from ground (Wm-2)
+!   
+!=======================================================================
+  INCLUDE "YOMCST.h"
+  INCLUDE "dimsoil.h"
+  INCLUDE "comsoil.h"
+!-----------------------------------------------------------------------
+! Arguments
+! ---------
+  REAL, INTENT(IN)                     :: ptimestep
+  INTEGER, INTENT(IN)                  :: indice, knon
+  REAL, DIMENSION(klon), INTENT(IN)    :: snow
+  REAL, DIMENSION(klon), INTENT(IN)    :: ptsrf
+  
+  REAL, DIMENSION(klon,nsoilmx), INTENT(INOUT) :: ptsoil
+  REAL, DIMENSION(klon), INTENT(OUT)           :: pcapcal
+  REAL, DIMENSION(klon), INTENT(OUT)           :: pfluxgrd
+
+!-----------------------------------------------------------------------
+! Local variables
+! ---------------
+  INTEGER                             :: ig, jk, ierr
+  REAL                                :: min_period,dalph_soil
+  REAL, DIMENSION(nsoilmx)            :: zdz2
+  REAL                                :: z1s
+  REAL, DIMENSION(klon)               :: ztherm_i
+  REAL, DIMENSION(klon,nsoilmx,nbsrf) :: C_coef, D_coef
+
+! Local saved variables
+! ---------------------
+  REAL, SAVE                     :: lambda
+!$OMP THREADPRIVATE(lambda)
+  REAL, DIMENSION(nsoilmx), SAVE :: dz1, dz2
+!$OMP THREADPRIVATE(dz1,dz2)
+  LOGICAL, SAVE                  :: firstcall=.TRUE.
+!$OMP THREADPRIVATE(firstcall)
+    
+!-----------------------------------------------------------------------
+!   Depthts:
+!   --------
+  REAL fz,rk,fz1,rk1,rk2
+  fz(rk)=fz1*(dalph_soil**rk-1.)/(dalph_soil-1.)
+
+
+!-----------------------------------------------------------------------
+! Calculation of some constants
+! NB! These constants do not depend on the sub-surfaces
+!-----------------------------------------------------------------------
+
+  IF (firstcall) THEN
+!-----------------------------------------------------------------------
+!   ground levels 
+!   grnd=z/l where l is the skin depth of the diurnal cycle:
+!-----------------------------------------------------------------------
+
+     min_period=1800. ! en secondes
+     dalph_soil=2.    ! rapport entre les epaisseurs de 2 couches succ.
+!$OMP MASTER
+     IF (is_mpi_root) THEN
+        OPEN(99,file='soil.def',status='old',form='formatted',iostat=ierr)
+        IF (ierr == 0) THEN ! Read file only if it exists
+           READ(99,*) min_period
+           READ(99,*) dalph_soil
+           WRITE(lunout,*)'Discretization for the soil model'
+           WRITE(lunout,*)'First level e-folding depth',min_period, &
+                '   dalph',dalph_soil
+           CLOSE(99)
+        END IF
+     ENDIF
+!$OMP END MASTER
+     CALL bcast(min_period)
+     CALL bcast(dalph_soil)
+
+!   la premiere couche represente un dixieme de cycle diurne
+     fz1=SQRT(min_period/3.14)
+     
+     DO jk=1,nsoilmx
+        rk1=jk
+        rk2=jk-1
+        dz2(jk)=fz(rk1)-fz(rk2)
+     ENDDO
+     DO jk=1,nsoilmx-1
+        rk1=jk+.5
+        rk2=jk-.5
+        dz1(jk)=1./(fz(rk1)-fz(rk2))
+     ENDDO
+     lambda=fz(.5)*dz1(1)
+     WRITE(lunout,*)'full layers, intermediate layers (seconds)'
+     DO jk=1,nsoilmx
+        rk=jk
+        rk1=jk+.5
+        rk2=jk-.5
+        WRITE(lunout,*)'fz=', &
+             fz(rk1)*fz(rk2)*3.14,fz(rk)*fz(rk)*3.14
+     ENDDO
+
+     firstcall =.FALSE.
+  END IF
+
+
+!-----------------------------------------------------------------------
+!   Calcul de l'inertie thermique a partir de la variable rnat.
+!   on initialise a inertie_ice meme au-dessus d'un point de mer au cas 
+!   ou le point de mer devienne point de glace au pas suivant
+!   on corrige si on a un point de terre avec ou sans glace
+!
+!-----------------------------------------------------------------------
+  IF (indice == is_sic) THEN
+     DO ig = 1, knon
+        ztherm_i(ig)   = inertie_ice
+        IF (snow(ig) > 0.0) ztherm_i(ig)   = inertie_sno
+     ENDDO
+  ELSE IF (indice == is_lic) THEN
+     DO ig = 1, knon
+        ztherm_i(ig)   = inertie_ice
+        IF (snow(ig) > 0.0) ztherm_i(ig)   = inertie_sno
+     ENDDO
+  ELSE IF (indice == is_ter) THEN
+     DO ig = 1, knon
+        ztherm_i(ig)   = inertie_sol
+        IF (snow(ig) > 0.0) ztherm_i(ig)   = inertie_sno
+     ENDDO
+  ELSE IF (indice == is_oce) THEN
+     DO ig = 1, knon
+        ztherm_i(ig)   = inertie_ice
+     ENDDO
+  ELSE
+     WRITE(lunout,*) "valeur d indice non prevue", indice
+     call abort_physic("soil", "", 1)
+  ENDIF
+
+
+!-----------------------------------------------------------------------
+! 1)
+! Calculation of Cgrf and Dgrd coefficients using soil temperature from 
+! previous time step.
+!
+! These variables are recalculated on the local compressed grid instead 
+! of saved in restart file.
+!-----------------------------------------------------------------------
+  DO jk=1,nsoilmx
+     zdz2(jk)=dz2(jk)/ptimestep
+  ENDDO
+  
+  DO ig=1,knon
+     z1s = zdz2(nsoilmx)+dz1(nsoilmx-1)
+     C_coef(ig,nsoilmx-1,indice)= &
+          zdz2(nsoilmx)*ptsoil(ig,nsoilmx)/z1s
+     D_coef(ig,nsoilmx-1,indice)=dz1(nsoilmx-1)/z1s
+  ENDDO
+  
+  DO jk=nsoilmx-1,2,-1
+     DO ig=1,knon
+        z1s = 1./(zdz2(jk)+dz1(jk-1)+dz1(jk) &
+             *(1.-D_coef(ig,jk,indice)))
+        C_coef(ig,jk-1,indice)= &
+             (ptsoil(ig,jk)*zdz2(jk)+dz1(jk)*C_coef(ig,jk,indice)) * z1s
+        D_coef(ig,jk-1,indice)=dz1(jk-1)*z1s
+     ENDDO
+  ENDDO
+
+!-----------------------------------------------------------------------
+! 2)
+! Computation of the soil temperatures using the Cgrd and Dgrd
+! coefficient computed above
+!
+!-----------------------------------------------------------------------
+
+!    Surface temperature
+  DO ig=1,knon
+     ptsoil(ig,1)=(lambda*C_coef(ig,1,indice)+ptsrf(ig))/  &
+          (lambda*(1.-D_coef(ig,1,indice))+1.)
+  ENDDO
+  
+!   Other temperatures
+  DO jk=1,nsoilmx-1
+     DO ig=1,knon
+        ptsoil(ig,jk+1)=C_coef(ig,jk,indice)+D_coef(ig,jk,indice) &
+             *ptsoil(ig,jk)
+     ENDDO
+  ENDDO
+
+  IF (indice == is_sic) THEN
+     DO ig = 1 , knon
+        ptsoil(ig,nsoilmx) = RTT - 1.8
+     END DO
+  ENDIF
+
+!-----------------------------------------------------------------------
+! 3)
+! Calculate the Cgrd and Dgrd coefficient corresponding to actual soil 
+! temperature
+!-----------------------------------------------------------------------
+  DO ig=1,knon
+     z1s = zdz2(nsoilmx)+dz1(nsoilmx-1)
+     C_coef(ig,nsoilmx-1,indice) = zdz2(nsoilmx)*ptsoil(ig,nsoilmx)/z1s
+     D_coef(ig,nsoilmx-1,indice) = dz1(nsoilmx-1)/z1s
+  ENDDO
+  
+  DO jk=nsoilmx-1,2,-1
+     DO ig=1,knon
+        z1s = 1./(zdz2(jk)+dz1(jk-1)+dz1(jk) &
+             *(1.-D_coef(ig,jk,indice)))
+        C_coef(ig,jk-1,indice) = &
+             (ptsoil(ig,jk)*zdz2(jk)+dz1(jk)*C_coef(ig,jk,indice)) * z1s
+        D_coef(ig,jk-1,indice) = dz1(jk-1)*z1s
+     ENDDO
+  ENDDO
+
+!-----------------------------------------------------------------------
+! 4)
+! Computation of the surface diffusive flux from ground and
+! calorific capacity of the ground
+!-----------------------------------------------------------------------
+  DO ig=1,knon
+     pfluxgrd(ig) = ztherm_i(ig)*dz1(1)* &
+          (C_coef(ig,1,indice)+(D_coef(ig,1,indice)-1.)*ptsoil(ig,1))
+     pcapcal(ig)  = ztherm_i(ig)* &
+          (dz2(1)+ptimestep*(1.-D_coef(ig,1,indice))*dz1(1))
+     z1s = lambda*(1.-D_coef(ig,1,indice))+1.
+     pcapcal(ig)  = pcapcal(ig)/z1s
+     pfluxgrd(ig) = pfluxgrd(ig) &
+          + pcapcal(ig) * (ptsoil(ig,1) * z1s &
+          - lambda * C_coef(ig,1,indice) &
+          - ptsrf(ig)) &
+          /ptimestep
+  ENDDO
+    
+END SUBROUTINE soil
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/solarlong.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/solarlong.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/solarlong.F90	(revision 3330)
@@ -0,0 +1,134 @@
+SUBROUTINE solarlong(pday, psollong, pdist_sol)
+
+  USE ioipsl
+  USE print_control_mod, ONLY: lunout
+
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Objet:
+  ! ------
+
+  ! Calcul de la distance soleil-planete et de la declinaison
+  ! en fonction du jour de l'annee.
+
+
+  ! Methode:
+  ! --------
+
+  ! Calcul complet de l'elipse
+
+  ! Interface:
+  ! ----------
+
+  ! Uncommon comprenant les parametres orbitaux.
+
+  ! Arguments:
+  ! ----------
+
+  ! Input:
+  ! ------
+  ! pday          jour de l'annee (le jour 0 correspondant a l'equinoxe)
+  ! lwrite        clef logique pour sorties de controle
+
+  ! Output:
+  ! -------
+  ! pdist_sol     distance entre le soleil et la planete
+  ! ( en unite astronomique pour utiliser la constante
+  ! solaire terrestre 1370 Wm-2 )
+  ! pdecli        declinaison ( en radians )
+
+  ! =======================================================================
+  ! -----------------------------------------------------------------------
+  ! Declarations:
+  ! -------------
+
+  include "planete.h"
+  include "YOMCST.h"
+
+  ! arguments:
+  ! ----------
+
+  REAL pday, pdist_sol, pdecli, psollong
+  LOGICAL lwrite
+
+  ! Local:
+  ! ------
+
+  REAL zanom, xref, zx0, zdx, zteta, zz, pi
+  INTEGER iter
+  REAL :: pyear_day, pperi_day
+  REAL :: jd_eq, jd_peri
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(first)
+
+  ! -----------------------------------------------------------------------
+  ! calcul de l'angle polaire et de la distance au soleil :
+  ! -------------------------------------------------------
+
+  ! Initialisation eventuelle:
+  IF (first) THEN
+    CALL ioget_calendar(pyear_day)
+    CALL ymds2ju(2000, 3, 21, 0., jd_eq)
+    CALL ymds2ju(2001, 1, 4, 0., jd_peri)
+    pperi_day = jd_peri - jd_eq
+    pperi_day = r_peri + 180.
+    WRITE (lunout, *) ' Number of days in a year = ', pyear_day
+    ! call iniorbit(249.22,206.66,669.,485.,25.2)
+    CALL iniorbit(152.59, 146.61, pyear_day, pperi_day, r_incl)
+    first = .FALSE.
+  END IF
+
+  ! calcul de l'zanomalie moyenne
+
+  zz = (pday-peri_day)/year_day
+  pi = 2.*asin(1.)
+  zanom = 2.*pi*(zz-nint(zz))
+  xref = abs(zanom)
+
+  ! resolution de l'equation horaire  zx0 - e * sin (zx0) = xref
+  ! methode de Newton
+
+  ! zx0=xref+e_elips*sin(xref)
+  zx0 = xref + r_ecc*sin(xref)
+  DO iter = 1, 10
+    ! zdx=-(zx0-e_elips*sin(zx0)-xref)/(1.-e_elips*cos(zx0))
+    zdx = -(zx0-r_ecc*sin(zx0)-xref)/(1.-r_ecc*cos(zx0))
+    IF (abs(zdx)<=(1.E-7)) GO TO 120
+    zx0 = zx0 + zdx
+  END DO
+120 CONTINUE
+  zx0 = zx0 + zdx
+  IF (zanom<0.) zx0 = -zx0
+
+  ! zteta est la longitude solaire
+
+  ! zteta=2.*atan(sqrt((1.+e_elips)/(1.-e_elips))*tan(zx0/2.))
+  zteta = 2.*atan(sqrt((1.+r_ecc)/(1.-r_ecc))*tan(zx0/2.))
+
+  psollong = zteta - timeperi
+
+  IF (psollong<0.) psollong = psollong + 2.*pi
+  IF (psollong>2.*pi) psollong = psollong - 2.*pi
+
+  psollong = psollong*180./pi
+
+  ! distance soleil
+
+  pdist_sol = (1-r_ecc*r_ecc)/(1+r_ecc*cos(pi/180.*(psollong- &
+    (r_peri+180.0))))
+  ! pdist_sol = (1-e_elips*e_elips)
+  ! &      /(1+e_elips*COS(pi/180.*(psollong-(R_peri+180.0))))
+  ! -----------------------------------------------------------------------
+  ! sorties eventuelles:
+  ! ---------------------
+
+  ! IF (lwrite) THEN
+  ! PRINT*,'jour de l"annee   :',pday
+  ! PRINT*,'distance au soleil (en unite astronomique) :',pdist_sol
+  ! PRINT*,'declinaison (en degres) :',pdecli*180./pi
+  ! ENDIF
+
+  RETURN
+END SUBROUTINE solarlong
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stdlevvar.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stdlevvar.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stdlevvar.F90	(revision 3330)
@@ -0,0 +1,294 @@
+!
+! $Header$
+!
+      SUBROUTINE stdlevvar(klon, knon, nsrf, zxli, &
+                           u1, v1, t1, q1, z1, &
+                           ts1, qsurf, z0m, z0h, psol, pat1, &
+                           t_2m, q_2m, t_10m, q_10m, u_10m, ustar)
+      IMPLICIT NONE
+!-------------------------------------------------------------------------
+!
+! Objet : calcul de la temperature et l'humidite relative a 2m et du 
+!         module du vent a 10m a partir des relations de Dyer-Businger et
+!         des equations de Louis.
+!
+! Reference : Hess, Colman et McAvaney (1995)        
+!
+! I. Musat, 01.07.2002
+!
+!AM On rajoute en sortie t et q a 10m pr le calcule d'hbtm2 dans clmain
+!
+!-------------------------------------------------------------------------
+!
+! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude)
+! knon----input-I- nombre de points pour un type de surface
+! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90
+! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li
+! u1------input-R- vent zonal au 1er niveau du modele
+! v1------input-R- vent meridien au 1er niveau du modele
+! t1------input-R- temperature de l'air au 1er niveau du modele
+! q1------input-R- humidite relative au 1er niveau du modele
+! z1------input-R- geopotentiel au 1er niveau du modele
+! ts1-----input-R- temperature de l'air a la surface
+! qsurf---input-R- humidite relative a la surface
+! z0m, z0h---input-R- rugosite
+! psol----input-R- pression au sol
+! pat1----input-R- pression au 1er niveau du modele
+!
+! t_2m---output-R- temperature de l'air a 2m
+! q_2m---output-R- humidite relative a 2m
+! u_10m--output-R- vitesse du vent a 10m
+!AM
+! t_10m--output-R- temperature de l'air a 10m
+! q_10m--output-R- humidite specifique a 10m
+! ustar--output-R- u*
+!
+      INTEGER, intent(in) :: klon, knon, nsrf
+      LOGICAL, intent(in) :: zxli
+      REAL, dimension(klon), intent(in) :: u1, v1, t1, q1, z1, ts1
+      REAL, dimension(klon), intent(in) :: qsurf, z0m, z0h
+      REAL, dimension(klon), intent(in) :: psol, pat1
+!
+      REAL, dimension(klon), intent(out) :: t_2m, q_2m, ustar
+      REAL, dimension(klon), intent(out) :: u_10m, t_10m, q_10m
+!-------------------------------------------------------------------------
+      include "flux_arp.h"
+      include "YOMCST.h"
+!IM PLUS
+      include "YOETHF.h"
+!
+! Quelques constantes et options:
+!
+! RKAR : constante de von Karman
+      REAL, PARAMETER :: RKAR=0.40
+! niter : nombre iterations calcul "corrector"
+!     INTEGER, parameter :: niter=6, ncon=niter-1
+      INTEGER, parameter :: niter=2, ncon=niter-1
+!
+! Variables locales
+      INTEGER :: i, n
+      REAL :: zref
+      REAL, dimension(klon) :: speed
+! tpot : temperature potentielle
+      REAL, dimension(klon) :: tpot
+      REAL, dimension(klon) :: zri1, cdran
+      REAL, dimension(klon) :: cdram, cdrah
+! ri1 : nb. de Richardson entre la surface --> la 1ere couche
+      REAL, dimension(klon) :: ri1 
+      REAL, dimension(klon) :: testar, qstar
+      REAL, dimension(klon) :: zdte, zdq   
+! lmon : longueur de Monin-Obukhov selon Hess, Colman and McAvaney 
+      DOUBLE PRECISION, dimension(klon) :: lmon
+      DOUBLE PRECISION, parameter :: eps=1.0D-20
+      REAL, dimension(klon) :: delu, delte, delq
+      REAL, dimension(klon) :: u_zref, te_zref, q_zref  
+      REAL, dimension(klon) :: temp, pref
+      LOGICAL :: okri
+      REAL, dimension(klon) :: u_zref_p, te_zref_p, temp_p, q_zref_p
+!convertgence
+      REAL, dimension(klon) :: te_zref_con, q_zref_con
+      REAL, dimension(klon) :: u_zref_c, te_zref_c, temp_c, q_zref_c
+      REAL, dimension(klon) :: ok_pred, ok_corr
+!     REAL, dimension(klon) :: conv_te, conv_q
+!------------------------------------------------------------------------- 
+      DO i=1, knon
+       speed(i)=SQRT(u1(i)**2+v1(i)**2)
+       ri1(i) = 0.0
+      ENDDO
+!
+      okri=.FALSE.
+!      CALL coefcdrag(klon, knon, nsrf, zxli, &
+! &                   speed, t1, q1, z1, psol, &
+! &                   ts1, qsurf, rugos, okri, ri1,  &         
+! &                   cdram, cdrah, cdran, zri1, pref)            
+! Fuxing WANG, 04/03/2015, replace the coefcdrag by the merged version: cdrag
+
+      CALL cdrag(knon, nsrf, &
+ &                   speed, t1, q1, z1, &
+ &                   psol, ts1, qsurf, z0m, z0h, &
+ &                   cdram, cdrah, 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----------------------------------------------------
+!
+      DO i = 1, knon
+        ri1(i) = zri1(i)
+        tpot(i) = t1(i)* (psol(i)/pat1(i))**RKAPPA
+        ustar(i) = sqrt(cdram(i) * speed(i) * speed(i))
+        zdte(i) = tpot(i) - ts1(i)
+        zdq(i) = max(q1(i),0.0) - max(qsurf(i),0.0)
+!
+!
+!IM BUG BUG BUG       zdte(i) = max(zdte(i),1.e-10)
+        zdte(i) = sign(max(abs(zdte(i)),1.e-10),zdte(i))
+!
+        testar(i) = (cdrah(i) * zdte(i) * speed(i))/ustar(i)
+        qstar(i) = (cdrah(i) * zdq(i) * speed(i))/ustar(i)
+        lmon(i) = (ustar(i) * ustar(i) * tpot(i))/ &
+ &                (RKAR * RG * testar(i))
+      ENDDO
+!
+!----------First aproximation of variables at zref --------------------------
+      zref = 2.0
+      CALL screenp(klon, knon, nsrf, speed, tpot, q1, &
+ &                 ts1, qsurf, z0m, lmon, &
+ &                 ustar, testar, qstar, zref, &
+ &                 delu, delte, delq)
+!
+      DO i = 1, knon
+        u_zref(i) = delu(i)
+        q_zref(i) = max(qsurf(i),0.0) + delq(i)
+        te_zref(i) = ts1(i) + delte(i)
+        temp(i) = te_zref(i) * (psol(i)/pat1(i))**(-RKAPPA)
+        q_zref_p(i) = q_zref(i)
+!       te_zref_p(i) = te_zref(i)
+        temp_p(i) = temp(i)
+      ENDDO
+!
+! Iteration of the variables at the reference level zref : corrector calculation ; see Hess & McAvaney, 1995 
+!
+      DO n = 1, niter
+!
+        okri=.TRUE.
+        CALL screenc(klon, knon, nsrf, zxli, &
+ &                   u_zref, temp, q_zref, zref, &
+ &                   ts1, qsurf, z0m, z0h, psol, &           
+ &                   ustar, testar, qstar, okri, ri1, &
+ &                   pref, delu, delte, delq) 
+!
+        DO i = 1, knon
+          u_zref(i) = delu(i)
+          q_zref(i) = delq(i) + max(qsurf(i),0.0)
+          te_zref(i) = delte(i) + ts1(i) 
+!
+! return to normal temperature
+!
+          temp(i) = te_zref(i) * (psol(i)/pref(i))**(-RKAPPA)
+!         temp(i) = te_zref(i) - (zref* RG)/RCPD/ &
+!                 (1 + RVTMP2 * max(q_zref(i),0.0))
+!
+!IM +++
+!         IF(temp(i).GT.350.) THEN
+!           WRITE(*,*) 'temp(i) GT 350 K !!',i,nsrf,temp(i)
+!         ENDIF
+!IM ---
+!
+        IF(n.EQ.ncon) THEN
+          te_zref_con(i) = te_zref(i)
+          q_zref_con(i) = q_zref(i)
+        ENDIF 
+!
+        ENDDO 
+!
+      ENDDO 
+!
+! verifier le critere de convergence : 0.25% pour te_zref et 5% pour qe_zref
+!
+!       DO i = 1, knon
+!         conv_te(i) = (te_zref(i) - te_zref_con(i))/te_zref_con(i)
+!         conv_q(i) = (q_zref(i) - q_zref_con(i))/q_zref_con(i)
+!IM +++
+!         IF(abs(conv_te(i)).GE.0.0025.AND.abs(conv_q(i)).GE.0.05) THEN
+!           PRINT*,'DIV','i=',i,te_zref_con(i),te_zref(i),conv_te(i), &
+!           q_zref_con(i),q_zref(i),conv_q(i)
+!         ENDIF
+!IM ---
+!       ENDDO
+!
+      DO i = 1, knon
+        q_zref_c(i) = q_zref(i)
+        temp_c(i) = temp(i)
+!
+!       IF(zri1(i).LT.0.) THEN
+!         IF(nsrf.EQ.1) THEN
+!           ok_pred(i)=1.
+!           ok_corr(i)=0.
+!         ELSE
+!           ok_pred(i)=0.
+!           ok_corr(i)=1.
+!         ENDIF
+!       ELSE
+!         ok_pred(i)=0.
+!         ok_corr(i)=1.
+!       ENDIF
+!
+        ok_pred(i)=0.
+        ok_corr(i)=1.
+!
+        t_2m(i) = temp_p(i) * ok_pred(i) + temp_c(i) * ok_corr(i)
+        q_2m(i) = q_zref_p(i) * ok_pred(i) + q_zref_c(i) * ok_corr(i)
+!IM +++
+!       IF(n.EQ.niter) THEN
+!       IF(t_2m(i).LT.t1(i).AND.t_2m(i).LT.ts1(i)) THEN
+!         PRINT*,' BAD t2m LT ',i,nsrf,t_2m(i),t1(i),ts1(i) 
+!       ELSEIF(t_2m(i).GT.t1(i).AND.t_2m(i).GT.ts1(i)) THEN
+!         PRINT*,' BAD t2m GT ',i,nsrf,t_2m(i),t1(i),ts1(i) 
+!       ENDIF
+!       ENDIF
+!IM ---
+      ENDDO
+!
+!
+!----------First aproximation of variables at zref --------------------------
+!
+      zref = 10.0
+      CALL screenp(klon, knon, nsrf, speed, tpot, q1, &
+ &                 ts1, qsurf, z0m, lmon, &
+ &                 ustar, testar, qstar, zref, &
+ &                 delu, delte, delq)
+!
+      DO i = 1, knon
+        u_zref(i) = delu(i)
+        q_zref(i) = max(qsurf(i),0.0) + delq(i)
+        te_zref(i) = ts1(i) + delte(i)
+        temp(i) = te_zref(i) * (psol(i)/pat1(i))**(-RKAPPA)
+!       temp(i) = te_zref(i) - (zref* RG)/RCPD/ &
+!                 (1 + RVTMP2 * max(q_zref(i),0.0))
+        u_zref_p(i) = u_zref(i)
+      ENDDO
+!
+! Iteration of the variables at the reference level zref : corrector ; see Hess & McAvaney, 1995 
+!
+      DO n = 1, niter
+!
+        okri=.TRUE.
+        CALL screenc(klon, knon, nsrf, zxli, &
+ &                   u_zref, temp, q_zref, zref, &
+ &                   ts1, qsurf, z0m, z0h, psol, &
+ &                   ustar, testar, qstar, okri, ri1, &
+ &                   pref, delu, delte, delq)
+!
+        DO i = 1, knon
+          u_zref(i) = delu(i)
+          q_zref(i) = delq(i) + max(qsurf(i),0.0)
+          te_zref(i) = delte(i) + ts1(i)
+          temp(i) = te_zref(i) * (psol(i)/pref(i))**(-RKAPPA)
+!         temp(i) = te_zref(i) - (zref* RG)/RCPD/ &
+!                   (1 + RVTMP2 * max(q_zref(i),0.0))
+        ENDDO 
+!
+      ENDDO
+!
+      DO i = 1, knon
+        u_zref_c(i) = u_zref(i)
+!
+        u_10m(i) = u_zref_p(i) * ok_pred(i) + u_zref_c(i) * ok_corr(i)
+!
+!AM
+        q_zref_c(i) = q_zref(i)
+        temp_c(i) = temp(i)
+        t_10m(i) = temp_p(i) * ok_pred(i) + temp_c(i) * ok_corr(i)
+        q_10m(i) = q_zref_p(i) * ok_pred(i) + q_zref_c(i) * ok_corr(i)
+!MA
+      ENDDO
+! 
+      RETURN
+      END subroutine stdlevvar
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stratocu_if.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stratocu_if.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stratocu_if.F90	(revision 3330)
@@ -0,0 +1,80 @@
+  SUBROUTINE stratocu_if(klon,klev,pctsrf,paprs, pplay,t &
+,seuil_inversion,weak_inversion,dthmin)
+
+  USE indice_sol_mod
+
+IMPLICIT NONE
+
+!======================================================================
+! J'introduit un peu de diffusion sauf dans les endroits
+! ou une forte inversion est presente
+! On peut dire qu'il represente la convection peu profonde
+!
+! Arguments:
+! klon-----input-I- nombre de points a traiter
+! paprs----input-R- pression a chaque intercouche (en Pa)
+! pplay----input-R- pression au milieu de chaque couche (en Pa)
+! t--------input-R- temperature (K)
+!
+! weak_inversion-----logical
+!======================================================================
+!
+! Arguments:
+!
+    INTEGER, INTENT(IN)                       :: klon,klev
+    REAL, DIMENSION(klon, klev+1), INTENT(IN) ::  paprs
+    REAL, DIMENSION(klon, klev), INTENT(IN)   ::  pplay
+    REAL, DIMENSION(klon, 4), INTENT(IN)   ::  pctsrf
+    REAL, DIMENSION(klon, klev), INTENT(IN)   :: t
+    
+    REAL, DIMENSION(klon), INTENT(OUT)  :: weak_inversion
+!
+! Quelques constantes et options:
+!
+    REAL seuil_inversion ! au-dela l'inversion est consideree trop faible
+!    PARAMETER (seuil=-0.1)
+
+!
+! Variables locales:
+!
+    INTEGER i, k, invb(klon)
+    REAL zl2(klon)
+    REAL dthmin(klon), zdthdp
+
+    INCLUDE "YOMCST.h"
+
+!
+! Chercher la zone d'inversion forte
+!
+
+    DO i = 1, klon
+       invb(i) = klev
+       dthmin(i)=0.0
+    ENDDO
+    DO k = 2, klev/2-1
+       DO i = 1, klon
+          zdthdp = (t(i,k)-t(i,k+1))/(pplay(i,k)-pplay(i,k+1)) &
+               - RD * 0.5*(t(i,k)+t(i,k+1))/RCPD/paprs(i,k+1)
+          zdthdp = zdthdp * 100.0
+          IF (pplay(i,k).GT.0.8*paprs(i,1) .AND. &
+               zdthdp.LT.dthmin(i) ) THEN
+             dthmin(i) = zdthdp
+             invb(i) = k
+          ENDIF
+       ENDDO
+    ENDDO
+
+
+!
+! Introduire une diffusion:
+!
+    DO i = 1, klon
+       IF ( (pctsrf(i,is_oce) < 0.5) .OR. &
+          (invb(i) == klev) .OR. (dthmin(i) > seuil_inversion) ) THEN 
+          weak_inversion(i)=1.
+       ELSE
+          weak_inversion(i)=0.
+       ENDIF
+    ENDDO
+
+  END SUBROUTINE stratocu_if
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stratosphere_mask.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stratosphere_mask.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/stratosphere_mask.F90	(revision 3330)
@@ -0,0 +1,245 @@
+SUBROUTINE stratosphere_mask(t_seri, pplay, xlat)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!
+! determination of tropopause height and temperature from gridded temperature data
+!
+! reference: Reichler, T., M. Dameris, and R. Sausen (2003):
+! modified: 6/28/06 tjr
+! adapted to LMDZ by C. Kleinschmitt (2016-02-15)
+!
+! input:    temp(nlon,nlat,nlev)    3D-temperature field 
+!       ps(nlon,nlat)       2D-surface pressure field
+!       zs(nlon,nlat)       2D-surface height
+!       nlon            grid points in x
+!       nlat            grid points in y
+!       pfull(nlon,nlat,nlev)   full pressure levels in Pa
+!       plimu           upper limit for tropopause pressure
+!       pliml           lower limit for tropopause pressure 
+!       gamma           tropopause criterion, e.g. -0.002 K/m
+!
+! output:   tp(nlon, nlat)      tropopause pressure in Pa, -999. if undefined
+!           ttp(nlon, nlat)     tropopause temperature in K, -999. if undefined
+!           ztp(nlon, nlat)     tropopause height in m, -999. if undefined
+!       tperr           # of undetermined values
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+USE dimphy
+USE phys_local_var_mod, ONLY: stratomask
+
+IMPLICIT NONE
+
+REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
+REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
+REAL,DIMENSION(klon),INTENT(IN)        :: xlat    ! latitudes pour chaque point 
+
+REAL, PARAMETER                        :: plimu=45000.
+REAL, PARAMETER                        :: pliml=7500.
+REAL, PARAMETER                        :: gamma=-0.002
+LOGICAL, PARAMETER                     :: dofill=.true.
+REAL,DIMENSION(klon)                   :: tp, ttp, ztp
+REAL,DIMENSION(klev)                   :: t, p
+INTEGER                                :: tperr, i, k, invert, ifil
+REAL                                   :: ptrp, ttrp, ztrp, psrf, zsrf, pi
+
+pi     = 4.*ATAN(1.)
+
+tperr = 0
+DO i=1,klon
+  DO k=1,klev 
+    t(k)=t_seri(i,klev+1-k) 
+    p(k)=pplay(i,klev+1-k)
+  ENDDO
+  psrf=pplay(i,1)
+  zsrf=0.0
+  call twmo(klev, t, p, psrf, zsrf, plimu, pliml, gamma, ptrp, ttrp, ztrp)
+  tp(i)=ptrp
+  ttp(i)=ttrp
+  ztp(i)=ztrp
+  IF (ptrp.lt.0.0) THEN 
+    tperr = tperr+1 
+  ENDIF
+ENDDO
+
+! fill holes
+IF (dofill) THEN
+  ifil=0
+  DO i=1,klon
+  IF (tp(i).lt.-990.) THEN
+    !set missing values to very simple profile (neighbour averaging too expensive in LMDZ)
+    tp(i)=50000.-20000.*cos(xlat(i)/360.*2.*pi)
+    ifil=ifil+1
+  ENDIF
+  ENDDO
+!
+  IF (ifil.ne.tperr) THEN
+    CALL abort_physic('stratosphere_mask', 'inconsistency',1)
+  ENDIF
+ENDIF
+!
+DO i=1, klon
+DO k=1, klev
+  IF (pplay(i,k).LT.tp(i)) THEN
+    stratomask(i,k)=1.0
+  ELSE
+    stratomask(i,k)=0.0
+  ENDIF
+ENDDO
+ENDDO
+
+!!--diagnostic not used for now
+!!p_tropopause(:)=tp(:)
+
+IF (ifil.gt.0) THEN
+  print *,'Tropopause: number of undetermined values =', ifil
+ENDIF
+
+RETURN
+END SUBROUTINE stratosphere_mask
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! twmo
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+subroutine twmo(level, t, p, ps, zs, plimu, pliml, gamma, ptrp, ttrp, ztrp)
+
+implicit none
+
+include "YOMCST.h"
+
+integer,intent(in)              :: level
+real,intent(in),dimension(level):: t, p
+real,intent(in)                 :: plimu, pliml, gamma, ps, zs
+real,intent(out)                :: ptrp, ttrp, ztrp
+
+real,parameter                  :: deltaz = 2000.0
+
+real     :: faktor
+real     :: pmk, pm, a, b, tm, dtdp, dtdz, dlnp, tdlnp
+real     :: ag, bg, ptph, ttph, a0, b0
+real     :: pm0, tm0, pmk0, dtdz0
+real     :: p2km, asum, aquer
+real     :: pmk2, pm2, a2, b2, tm2, dtdp2, dtdz2
+integer  :: icount, jj, j
+
+ptrp=-999.0             
+ttrp=-999.0                 
+ztrp=-999.0                 
+
+faktor = -RG/R
+
+do j=level,2,-1
+
+   ! dt/dz
+   pmk= 0.5 * (p(j-1)**rkappa+p(j)**rkappa)        ! p**k at half level
+   pm = pmk**(1./rkappa)                    ! p at half level
+   a = (t(j-1)-t(j))/(p(j-1)**rkappa-p(j)**rkappa)    ! dT/dp^k
+   b = t(j)-(a*p(j)**rkappa)
+   tm = a * pmk + b                    ! T at half level         
+   dtdp = a * rkappa * pm**(rkappa-1.) ! dT/dp at half level
+   dtdz = faktor*dtdp*pm/tm            ! dT/dz at half level
+
+   ! dt/dz valid?
+   if (j.eq.level)     go to 999                 ! no, start level, initialize first
+   if (dtdz.le.gamma)  go to 999                 ! no, dt/dz < -2 K/km
+   if (dtdz0.gt.gamma) go to 999                 ! no, dt/dz below > -2 K/km
+   if (pm.gt.plimu)    go to 999                 ! no, pm too low
+
+   ! dtdz is valid, calculate tropopause pressure ptph
+   ag = (dtdz-dtdz0) / (pmk-pmk0)     
+   bg = dtdz0 - (ag * pmk0)          
+   ptph = exp(log((gamma-bg)/ag)/rkappa)
+
+   ! calculate temperature at this ptph assuming linear gamma
+   ! interpolation
+   ttph = tm0
+   ttph = ttph - (bg * log(pm0)  + ag * (pm0**rkappa) /rkappa) / faktor*t(j)
+   ttph = ttph + (bg * log(ptph) + ag * (ptph**rkappa)/rkappa) / faktor*t(j)
+
+   if (ptph.lt.pliml) go to 999 
+   if (ptph.gt.plimu) go to 999     
+
+   ! 2nd test: dtdz above 2 km must not exceed gamma
+   p2km = ptph + deltaz*(pm/tm)*faktor      ! p at ptph + 2km
+   asum = 0.0                               ! dtdz above
+   icount = 0                               ! number of levels above
+
+   ! test until apm < p2km
+   do jj=j,2,-1
+
+       pmk2 = .5 * (p(jj-1)**rkappa+p(jj)**rkappa)    ! p mean ^kappa
+       pm2 = pmk2**(1/rkappa)                      ! p mean
+       if(pm2.gt.ptph) go to 110                ! doesn't happen
+       if(pm2.lt.p2km) go to 888                ! ptropo is valid
+
+       a2 = (t(jj-1)-t(jj))                     ! a
+       a2 = a2/(p(jj-1)**rkappa-p(jj)**rkappa)
+       b2 = t(jj)-(a2*p(jj)**rkappa)               ! b
+       tm2 = a2 * pmk2 + b2                     ! T mean
+       dtdp2 = a2 * rkappa * (pm2**(rkappa-1))        ! dt/dp
+       dtdz2 = faktor*dtdp2*pm2/tm2
+       asum = asum+dtdz2
+       icount = icount+1
+       aquer = asum/float(icount)               ! dt/dz mean
+   
+       ! discard ptropo ?
+        if (aquer.le.gamma) go to 999           ! dt/dz above < gamma
+
+110 continue 
+    enddo                   ! test next level
+
+888 continue                    ! ptph is valid
+    ptrp = ptph
+    ttrp = ttph
+
+! now calculate height of tropopause by integrating hypsometric equation
+! from ps to ptrp
+! linearly interpolate in p (results are identical to p^kappa)
+
+jj = LEVEL                                       ! bottom
+do while ((P(jj).gt.PS) .or. (T(jj).lt.100))     ! T must be valid too
+  jj=jj-1
+enddo
+
+DLNP = log(PS/P(jj))                             ! from surface pressure
+TM = T(jj)                                       ! take TM of lowest level (better: extrapolate)
+TDLNP = TM*DLNP
+
+do while ( (JJ.ge.2) .and. (PTRP.lt.P(jj-1)) ) 
+  DLNP = log(P(jj)/P(jj-1))
+  TM = 0.5 * (T(jj) + T(jj-1))
+  TDLNP = TDLNP + TM*DLNP
+  JJ=JJ-1
+enddo
+
+DLNP = log(P(jj)/PTRP)                           ! up to tropopause pressure
+TM = 0.5 * (T(jj) + TTRP)                        ! use TTRP to get TM of this level
+TDLNP = TDLNP + TM*DLNP
+
+ZTRP = ZS + TDLNP*R/RG
+
+if (ZTRP .lt. 0) then
+  print*,ZTRP
+  print*,PS
+  print*,P
+  print*,T
+  print*,ZS
+  stop
+endif
+
+return
+
+999 continue                    ! continue search at next higher level 
+    tm0 = tm
+    pm0 = pm
+    pmk0 = pmk
+    dtdz0  = dtdz
+    a0 = a
+    b0 = b
+
+enddo 
+
+! no tropopouse found
+return
+end subroutine twmo
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sumethox.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sumethox.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sumethox.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phylmd/suphel.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/suphel.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/suphel.F90	(revision 3330)
@@ -0,0 +1,215 @@
+
+! $Header$
+
+SUBROUTINE suphel
+
+  include "YOMCST.h"
+  include "YOETHF.h"
+  ! IM cf. JLD
+  LOGICAL firstcall
+  SAVE firstcall
+  !$OMP THREADPRIVATE(firstcall)
+  DATA firstcall/.TRUE./
+
+  IF (firstcall) THEN
+    PRINT *, 'suphel initialise les constantes du GCM'
+    firstcall = .FALSE.
+  ELSE
+    PRINT *, 'suphel DEJA APPELE '
+    RETURN
+  END IF
+  ! -----------------------------------------------------------------
+
+  ! *       1.    DEFINE FUNDAMENTAL CONSTANTS.
+  ! -----------------------------
+
+  WRITE (UNIT=6, FMT='(''0*** Constants of the ICM   ***'')')
+  rpi = 2.*asin(1.)
+  rclum = 299792458.
+  rhpla = 6.6260755E-34
+  rkbol = 1.380658E-23
+  rnavo = 6.0221367E+23
+  WRITE (UNIT=6, FMT='('' *** Fundamental constants ***'')')
+  WRITE (UNIT=6, FMT='(''           PI = '',E13.7,'' -'')') rpi
+  WRITE (UNIT=6, FMT='(''            c = '',E13.7,''m s-1'')') rclum
+  WRITE (UNIT=6, FMT='(''            h = '',E13.7,''J s'')') rhpla
+  WRITE (UNIT=6, FMT='(''            K = '',E13.7,''J K-1'')') rkbol
+  WRITE (UNIT=6, FMT='(''            N = '',E13.7,''mol-1'')') rnavo
+
+  ! ----------------------------------------------------------------
+
+  ! *       2.    DEFINE ASTRONOMICAL CONSTANTS.
+  ! ------------------------------
+
+  rday = 86400.
+  rea = 149597870000.
+  repsm = 0.409093
+
+  rsiyea = 365.25*rday*2.*rpi/6.283076
+  rsiday = rday/(1.+rday/rsiyea)
+  romega = 2.*rpi/rsiday
+
+  ! exp1      R_ecc = 0.05
+  ! exp1      R_peri = 102.04
+  ! exp1      R_incl = 22.5
+  ! exp1      print*, 'Parametres orbitaux modifies'
+  ! ref      R_ecc = 0.016724
+  ! ref      R_peri = 102.04
+  ! ref      R_incl = 23.5
+
+  ! IM 161002 : pour avoir les ctes AMIP II
+  ! IM 161002   R_ecc = 0.016724
+  ! IM 161002   R_peri = 102.04
+  ! IM 161002   R_incl = 23.5
+  ! IM on mets R_ecc, R_peri, R_incl dans conf_phys.F90
+  ! R_ecc = 0.016715
+  ! R_peri = 102.7
+  ! R_incl = 23.441
+
+  WRITE (UNIT=6, FMT='('' *** Astronomical constants ***'')')
+  WRITE (UNIT=6, FMT='(''          day = '',E13.7,'' s'')') rday
+  WRITE (UNIT=6, FMT='('' half g. axis = '',E13.7,'' m'')') rea
+  WRITE (UNIT=6, FMT='('' mean anomaly = '',E13.7,'' -'')') repsm
+  WRITE (UNIT=6, FMT='('' sideral year = '',E13.7,'' s'')') rsiyea
+  WRITE (UNIT=6, FMT='(''  sideral day = '',E13.7,'' s'')') rsiday
+  WRITE (UNIT=6, FMT='(''        omega = '',E13.7,'' s-1'')') romega
+  ! write(unit=6,fmt='('' excentricite = '',e13.7,''-'')')R_ecc
+  ! write(unit=6,fmt='(''     equinoxe = '',e13.7,''-'')')R_peri
+  ! write(unit=6,fmt='(''  inclinaison = '',e13.7,''-'')')R_incl
+
+  ! ------------------------------------------------------------------
+
+  ! *       3.    DEFINE GEOIDE.
+  ! --------------
+
+  rg = 9.80665
+  ra = 6371229.
+  r1sa = sngl(1.D0/dble(ra))
+  WRITE (UNIT=6, FMT='('' ***         Geoide         ***'')')
+  WRITE (UNIT=6, FMT='(''      Gravity = '',E13.7,'' m s-2'')') rg
+  WRITE (UNIT=6, FMT='('' Earth radius = '',E13.7,'' m'')') ra
+  WRITE (UNIT=6, FMT='('' Inverse E.R. = '',E13.7,'' m'')') r1sa
+
+  ! -----------------------------------------------------------------
+
+  ! *       4.    DEFINE RADIATION CONSTANTS.
+  ! ---------------------------
+
+  ! z.x.li      RSIGMA=2. * RPI**5 * RKBOL**4 /(15.* RCLUM**2 * RHPLA**3)
+  rsigma = 2.*rpi**5*(rkbol/rhpla)**3*rkbol/rclum/rclum/15.
+  ! IM init. dans conf_phys.F90   RI0=1365.
+  WRITE (UNIT=6, FMT='('' ***        Radiation       ***'')')
+  WRITE (UNIT=6, FMT='('' Stefan-Bol.  = '',E13.7,'' W m-2 K-4'' &
+    &                                                         &
+    &         )') rsigma
+  ! IM init. dans conf_phys.F90   WRITE(UNIT=6,FMT='('' Solar const. =
+  ! '',E13.7,'' W m-2'')')
+  ! IM init. dans conf_phys.F90  S      RI0
+
+  ! -----------------------------------------------------------------
+
+  ! *       5.    DEFINE THERMODYNAMIC CONSTANTS, GAS PHASE.
+  ! ------------------------------------------
+
+  r = rnavo*rkbol
+  rmd = 28.9644
+  rmo3 = 47.9942
+  rmv = 18.0153
+  rd = 1000.*r/rmd
+  rv = 1000.*r/rmv
+  rcpd = 3.5*rd
+  rcvd = rcpd - rd
+  rcpv = 4.*rv
+  rcvv = rcpv - rv
+  rkappa = rd/rcpd
+  retv = rv/rd - 1.
+  WRITE (UNIT=6, FMT='('' *** Thermodynamic, gas     ***'')')
+  WRITE (UNIT=6, FMT='('' Perfect gas  = '',e13.7)') r
+  WRITE (UNIT=6, FMT='('' Dry air mass = '',e13.7)') rmd
+  WRITE (UNIT=6, FMT='('' Ozone   mass = '',e13.7)') rmo3
+  WRITE (UNIT=6, FMT='('' Vapour  mass = '',e13.7)') rmv
+  WRITE (UNIT=6, FMT='('' Dry air cst. = '',e13.7)') rd
+  WRITE (UNIT=6, FMT='('' Vapour  cst. = '',e13.7)') rv
+  WRITE (UNIT=6, FMT='(''         Cpd  = '',e13.7)') rcpd
+  WRITE (UNIT=6, FMT='(''         Cvd  = '',e13.7)') rcvd
+  WRITE (UNIT=6, FMT='(''         Cpv  = '',e13.7)') rcpv
+  WRITE (UNIT=6, FMT='(''         Cvv  = '',e13.7)') rcvv
+  WRITE (UNIT=6, FMT='(''      Rd/Cpd  = '',e13.7)') rkappa
+  WRITE (UNIT=6, FMT='(''     Rv/Rd-1  = '',e13.7)') retv
+
+  ! ----------------------------------------------------------------
+
+  ! *       6.    DEFINE THERMODYNAMIC CONSTANTS, LIQUID PHASE.
+  ! ---------------------------------------------
+
+  rcw = rcpv
+  WRITE (UNIT=6, FMT='('' *** Thermodynamic, liquid  ***'')')
+  WRITE (UNIT=6, FMT='(''         Cw   = '',E13.7)') rcw
+
+  ! ----------------------------------------------------------------
+
+  ! *       7.    DEFINE THERMODYNAMIC CONSTANTS, SOLID PHASE.
+  ! --------------------------------------------
+
+  rcs = rcpv
+  WRITE (UNIT=6, FMT='('' *** thermodynamic, solid   ***'')')
+  WRITE (UNIT=6, FMT='(''         Cs   = '',E13.7)') rcs
+
+  ! ----------------------------------------------------------------
+
+  ! *       8.    DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE.
+  ! ----------------------------------------------------
+
+  rtt = 273.16
+  rlvtt = 2.5008E+6
+  rlstt = 2.8345E+6
+  rlmlt = rlstt - rlvtt
+  ratm = 100000.
+  WRITE (UNIT=6, FMT='('' *** Thermodynamic, trans.  ***'')')
+  WRITE (UNIT=6, FMT='('' Fusion point  = '',E13.7)') rtt
+  WRITE (UNIT=6, FMT='(''        RLvTt  = '',E13.7)') rlvtt
+  WRITE (UNIT=6, FMT='(''        RLsTt  = '',E13.7)') rlstt
+  WRITE (UNIT=6, FMT='(''        RLMlt  = '',E13.7)') rlmlt
+  WRITE (UNIT=6, FMT='('' Normal press. = '',E13.7)') ratm
+  WRITE (UNIT=6, FMT='('' Latent heat :  '')')
+
+  ! ----------------------------------------------------------------
+
+  ! *       9.    SATURATED VAPOUR PRESSURE.
+  ! --------------------------
+
+  restt = 611.14
+  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.   CONSTANTS FOR THERMODYNAMICAL FUNCTIONS.
+  ! ----------------------------------------
+
+  rvtmp2 = rcpv/rcpd - 1.
+  rhoh2o = ratm/100.
+  r2es = restt*rd/rv
+  r3les = 17.269
+  r3ies = 21.875
+  r4les = 35.86
+  r4ies = 7.66
+  r5les = r3les*(rtt-r4les)
+  r5ies = r3ies*(rtt-r4ies)
+
+  ! ------------------------------------------------------------------
+
+  ! *       10.   CONSTANTS FOR METHANE OXIDATION AND PHOTOLYSIS.
+  ! -----------------------------------------------
+
+  CALL SUMETHOX()
+
+  RETURN
+END SUBROUTINE suphel
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_bucket_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_bucket_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_bucket_mod.F90	(revision 3330)
@@ -0,0 +1,182 @@
+!
+MODULE surf_land_bucket_mod
+!
+! Surface land bucket module
+!
+! This module is used when no external land model is choosen.
+!
+  IMPLICIT NONE
+
+CONTAINS
+
+  SUBROUTINE surf_land_bucket(itime, jour, knon, knindex, debut, dtime,&
+       tsurf, p1lay, tq_cdrag, precip_rain, precip_snow, temp_air, &
+       spechum, petAcoef, peqAcoef, petBcoef, peqBcoef, pref, &
+       u1, v1, gustiness, rugoro, swnet, lwnet, &
+       snow, qsol, agesno, tsoil, &
+       qsurf, z0_new, alb1_new, alb2_new, evap, &
+       fluxsens, fluxlat, tsurf_new, dflux_s, dflux_l)
+
+    USE limit_read_mod
+    USE surface_data
+    USE fonte_neige_mod
+    USE calcul_fluxs_mod
+    USE cpl_mod
+    USE dimphy
+    USE geometry_mod, ONLY: latitude 
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+    USE indice_sol_mod
+!****************************************************************************************
+! Bucket calculations for surface. 
+!
+    INCLUDE "clesphys.h"
+    INCLUDE "dimsoil.h"
+    INCLUDE "YOMCST.h"
+
+! Input variables  
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    LOGICAL, INTENT(IN)                     :: debut
+    REAL, INTENT(IN)                        :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)       :: tsurf
+    REAL, DIMENSION(klon), INTENT(IN)       :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)       :: tq_cdrag
+    REAL, DIMENSION(klon), INTENT(IN)       :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)       :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)       :: petAcoef, peqAcoef
+    REAL, DIMENSION(klon), INTENT(IN)       :: petBcoef, peqBcoef
+    REAL, DIMENSION(klon), INTENT(IN)       :: pref
+    REAL, DIMENSION(klon), INTENT(IN)       :: u1, v1, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)       :: rugoro
+    REAL, DIMENSION(klon), INTENT(IN)       :: swnet, lwnet
+
+! In/Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: snow, qsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: agesno
+    REAL, DIMENSION(klon, nsoilmx), INTENT(INOUT) :: tsoil
+
+! Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)       :: z0_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new, alb2_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
+
+! Local variables
+!****************************************************************************************
+    REAL, DIMENSION(klon) :: soilcap, soilflux
+    REAL, DIMENSION(klon) :: cal, beta, dif_grnd, capsol
+    REAL, DIMENSION(klon) :: alb_neig, alb_lim
+    REAL, DIMENSION(klon) :: zfra
+    REAL, DIMENSION(klon) :: radsol       ! total net radiance at surface
+    REAL, DIMENSION(klon) :: u0, v0, u1_lay, v1_lay
+    REAL, DIMENSION(klon) :: dummy_riverflow,dummy_coastalflow 
+    INTEGER               :: i
+!
+!****************************************************************************************
+
+
+!
+!* Read from limit.nc : albedo(alb_lim), length of rugosity(z0_new)
+!
+    CALL limit_read_rug_alb(itime, dtime, jour,&
+         knon, knindex, &
+         z0_new, alb_lim)
+!
+!* Calcultaion of fluxes 
+!
+
+! calculate total absorbed radiance at surface
+       radsol(:) = 0.0
+       radsol(1:knon) = swnet(1:knon) + lwnet(1:knon)
+
+! calculate constants
+    CALL calbeta(dtime, is_ter, knon, snow, qsol, beta, capsol, dif_grnd)
+    if (type_veget=='betaclim') then
+       CALL calbeta_clim(knon,jour,latitude(knindex(1:knon)),beta)
+    endif
+       
+! calculate temperature, heat capacity and conduction flux in soil
+    IF (soil_model) THEN 
+       CALL soil(dtime, is_ter, knon, snow, tsurf, tsoil, soilcap, soilflux)
+       DO i=1, knon
+          cal(i) = RCPD / soilcap(i)
+          radsol(i) = radsol(i)  + soilflux(i)
+       END DO
+    ELSE 
+       cal(:) = RCPD * capsol(:)
+       IF (klon_glo .EQ. 1) THEN
+         cal(:) = 0.
+       ENDIF
+    ENDIF
+    
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    u1_lay(:) = u1(:) - u0(:)
+    v1_lay(:) = v1(:) - v0(:)
+
+    CALL calcul_fluxs(knon, is_ter, dtime, &
+         tsurf, p1lay, cal, beta, tq_cdrag, tq_cdrag, pref, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         1.,petAcoef, peqAcoef, petBcoef, peqBcoef, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
+    
+!
+!* Calculate snow height, run_off, age of snow
+!      
+    CALL fonte_neige( knon, is_ter, knindex, dtime, &
+         tsurf, precip_rain, precip_snow, &
+         snow, qsol, tsurf_new, evap)
+!
+!* Calculate the age of snow
+!
+    CALL albsno(klon,knon,dtime,agesno(:),alb_neig(:), precip_snow(:))  
+    
+    WHERE (snow(1 : knon) .LT. 0.0001) agesno(1 : knon) = 0.
+    
+    DO i=1, knon
+       zfra(i) = MAX(0.0,MIN(1.0, snow(i)/(snow(i)+10.0)))
+       alb_lim(i)  = alb_neig(i) *zfra(i) + alb_lim(i)*(1.0-zfra(i))
+    END DO
+
+!
+!* Return albedo : 
+!    alb1_new and alb2_new are here given the same values
+!
+    alb1_new(:) = 0.0
+    alb2_new(:) = 0.0
+    alb1_new(1:knon) = alb_lim(1:knon)
+    alb2_new(1:knon) = alb_lim(1:knon)
+       
+!
+!* Calculate the rugosity
+!
+    DO i = 1, knon
+       z0_new(i) = MAX(1.5e-05,SQRT(z0_new(i)**2 + rugoro(i)**2))
+    END DO
+
+!* Send to coupler
+!  The run-off from river and coast are not calculated in the bucket modele.
+!  For testing purpose of the coupled modele we put the run-off to zero.
+    IF (type_ocean=='couple') THEN
+       dummy_riverflow(:)   = 0.0
+       dummy_coastalflow(:) = 0.0
+       CALL cpl_send_land_fields(itime, knon, knindex, &
+            dummy_riverflow, dummy_coastalflow)
+    ENDIF
+
+!
+!* End
+!
+  END SUBROUTINE surf_land_bucket
+!
+!****************************************************************************************
+!
+END MODULE surf_land_bucket_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_mod.F90	(revision 3330)
@@ -0,0 +1,222 @@
+!
+MODULE surf_land_mod
+  
+  IMPLICIT NONE
+
+CONTAINS
+!
+!****************************************************************************************
+!  
+  SUBROUTINE surf_land(itime, dtime, date0, jour, knon, knindex, &
+       rlon, rlat, yrmu0, &
+       debut, lafin, zlev, ccanopy, swnet, lwnet, albedo, &
+       tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, & 
+       pref, u1, v1, gustiness, rugoro, pctsrf, &
+       lwdown_m, q2m, t2m, &
+       snow, qsol, agesno, tsoil, &
+       z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, &   
+       qsurf, tsurf_new, dflux_s, dflux_l, &
+       flux_u1, flux_v1 ) 
+
+    USE dimphy
+    USE surface_data, ONLY    : ok_veget
+
+    ! See comments in each module surf_land_orchidee_xxx for compatiblity with ORCHIDEE
+#ifdef ORCHIDEE_NOOPENMP
+    ! Compilation with cpp key ORCHIDEE NOOPENMP
+    USE surf_land_orchidee_noopenmp_mod
+#else
+#if ORCHIDEE_NOZ0H
+    ! Compilation with cpp key ORCHIDEE NOZ0H
+    USE surf_land_orchidee_noz0h_mod
+#else
+    ! Compilation with default interface
+    USE surf_land_orchidee_mod
+#endif
+#endif
+
+    USE surf_land_bucket_mod
+    USE calcul_fluxs_mod
+    USE indice_sol_mod
+
+    INCLUDE "dimsoil.h"
+    INCLUDE "YOMCST.h"
+!albedo SB >>>
+    INCLUDE "clesphys.h"
+!albedo SB <<<
+
+! Input variables  
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    REAL, INTENT(IN)                        :: date0
+    REAL, DIMENSION(klon), INTENT(IN)       :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)       :: yrmu0  ! cosine of solar zenith angle
+    LOGICAL, INTENT(IN)                     :: debut, lafin
+    REAL, INTENT(IN)                        :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)       :: zlev, ccanopy
+    REAL, DIMENSION(klon), INTENT(IN)       :: swnet, lwnet
+    REAL, DIMENSION(klon), INTENT(IN)       :: albedo  ! albedo for whole short-wave interval
+    REAL, DIMENSION(klon), INTENT(IN)       :: tsurf
+    REAL, DIMENSION(klon), INTENT(IN)       :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)       :: cdragh, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)       :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)       :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)       :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)       :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)       :: pref   ! pressure reference
+    REAL, DIMENSION(klon), INTENT(IN)       :: u1, v1, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)       :: rugoro
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf
+    REAL, DIMENSION(klon), INTENT(IN)       :: lwdown_m  ! downwelling longwave radiation at mean surface
+                                                         ! corresponds to previous sollwdown
+    REAL, DIMENSION(klon), INTENT(IN)       :: q2m, t2m
+
+! In/Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: snow, qsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: agesno
+    REAL, DIMENSION(klon, nsoilmx), INTENT(INOUT) :: tsoil
+
+! Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: z0m, z0h
+!albedo SB >>>
+!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new ! albdeo for shortwave interval 1(visible)
+!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb2_new ! albedo for shortwave interval 2(near infrared)
+    REAL, DIMENSION(6), INTENT(IN) :: SFRWL
+    REAL, DIMENSION(klon,nsw), INTENT(OUT)       :: alb_dir_new,alb_dif_new
+!albedo SB <<<
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap
+    REAL, DIMENSION(klon), INTENT(OUT)       :: fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
+    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1  ! flux for U and V at first model level
+
+! Local variables
+!****************************************************************************************
+    REAL, DIMENSION(klon) :: p1lay_tmp
+    REAL, DIMENSION(klon) :: pref_tmp
+    REAL, DIMENSION(klon) :: swdown     ! downwelling shortwave radiation at land surface
+    REAL, DIMENSION(klon) :: epot_air           ! potential air temperature
+    REAL, DIMENSION(klon) :: tsol_rad, emis_new ! output from interfsol not used
+    REAL, DIMENSION(klon) :: u0, v0     ! surface speed
+    INTEGER               :: i
+
+!albedo SB >>>
+    REAL, DIMENSION(klon)      :: alb1_new,alb2_new
+!albedo SB <<<
+
+
+!**************************************************************************************** 
+! Choice between call to vegetation model (ok_veget=true) or simple calculation below
+!
+!****************************************************************************************
+   IF (ok_veget) THEN
+!****************************************************************************************
+!  Call model sechiba in model ORCHIDEE
+!
+!****************************************************************************************
+       p1lay_tmp(:)      = 0.0
+       pref_tmp(:)       = 0.0
+       p1lay_tmp(1:knon) = p1lay(1:knon)/100.
+       pref_tmp(1:knon)  = pref(1:knon)/100.
+! 
+!* Calculate incoming flux for SW and LW interval: swdown
+!
+       swdown(:) = 0.0
+       DO i = 1, knon
+          swdown(i) = swnet(i)/(1-albedo(i))
+       END DO
+!
+!* Calculate potential air temperature
+!
+       epot_air(:) = 0.0
+       DO i = 1, knon
+          epot_air(i) = RCPD*temp_air(i)*(pref(i)/p1lay(i))**RKAPPA
+       END DO
+
+       ! temporary for keeping same results using lwdown_m instead of lwdown
+       CALL surf_land_orchidee(itime, dtime, date0, knon, &
+            knindex, rlon, rlat, yrmu0, pctsrf, &
+            debut, lafin, &
+            zlev,  u1, v1, gustiness, temp_air, spechum, epot_air, ccanopy, & 
+            cdragh, AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            precip_rain, precip_snow, lwdown_m, swnet, swdown, &
+            pref_tmp, q2m, t2m, &
+            evap, fluxsens, fluxlat, &              
+            tsol_rad, tsurf_new, alb1_new, alb2_new, &
+            emis_new, z0m, z0h, qsurf)       
+
+!  
+!* Add contribution of relief to surface roughness
+!  
+       DO i=1,knon
+          z0m(i) = MAX(1.5e-05,SQRT(z0m(i)**2 + rugoro(i)**2))
+       ENDDO
+
+    ELSE  ! not ok_veget
+!****************************************************************************************
+! No extern vegetation model choosen, call simple bucket calculations instead.
+!
+!****************************************************************************************
+       CALL surf_land_bucket(itime, jour, knon, knindex, debut, dtime,&
+            tsurf, p1lay, cdragh, precip_rain, precip_snow, temp_air, &
+            spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, pref, &
+            u1, v1, gustiness, rugoro, swnet, lwnet, &
+            snow, qsol, agesno, tsoil, &
+            qsurf, z0m, alb1_new, alb2_new, evap, &
+            fluxsens, fluxlat, tsurf_new, dflux_s, dflux_l)
+        z0h(1:knon)=z0m(1:knon) ! En attendant mieux
+
+    ENDIF ! ok_veget
+
+!****************************************************************************************
+! Calculation for all land models
+! - Flux calculation at first modele level for U and V
+!****************************************************************************************
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)
+
+!albedo SB >>>
+
+
+     select case(NSW)
+     case(2)
+       alb_dir_new(1:knon,1)=alb1_new(1:knon)
+       alb_dir_new(1:knon,2)=alb2_new(1:knon)
+     case(4)
+       alb_dir_new(1:knon,1)=alb1_new(1:knon)
+       alb_dir_new(1:knon,2)=alb2_new(1:knon)
+       alb_dir_new(1:knon,3)=alb2_new(1:knon)
+       alb_dir_new(1:knon,4)=alb2_new(1:knon)
+     case(6)
+       alb_dir_new(1:knon,1)=alb1_new(1:knon)
+       alb_dir_new(1:knon,2)=alb1_new(1:knon)
+       alb_dir_new(1:knon,3)=alb1_new(1:knon)
+       alb_dir_new(1:knon,4)=alb2_new(1:knon)
+       alb_dir_new(1:knon,5)=alb2_new(1:knon)
+       alb_dir_new(1:knon,6)=alb2_new(1:knon)
+     end select
+alb_dif_new=alb_dir_new
+!albedo SB <<<
+
+
+    
+  END SUBROUTINE surf_land
+!
+!****************************************************************************************
+!  
+END MODULE surf_land_mod
+!
+!****************************************************************************************
+!  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_mod.F90	(revision 3330)
@@ -0,0 +1,667 @@
+!
+MODULE surf_land_orchidee_mod
+#ifndef ORCHIDEE_NOOPENMP
+#ifndef ORCHIDEE_NOZ0H
+!
+! This module controles the interface towards the model ORCHIDEE.
+!
+! Compatibility with ORCHIDIEE :
+! The current version can be used with ORCHIDEE/trunk from revision 3525.
+! This interface is used if none of the cpp keys ORCHIDEE_NOOPENMP or ORCHIDEE_NOZ0H is set.
+!
+! Subroutines in this module : surf_land_orchidee
+!                              Init_orchidee_index
+!                              Get_orchidee_communicator
+!                              Init_neighbours
+
+  USE dimphy
+#ifdef CPP_VEGET
+  USE intersurf     ! module d'ORCHIDEE
+#endif
+  USE cpl_mod,      ONLY : cpl_send_land_fields
+  USE surface_data, ONLY : type_ocean
+  USE geometry_mod, ONLY : dx, dy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
+
+  IMPLICIT NONE
+
+  PRIVATE
+  PUBLIC  :: surf_land_orchidee
+
+  LOGICAL, ALLOCATABLE, SAVE :: flag_omp(:)
+CONTAINS
+!
+!****************************************************************************************
+!  
+  SUBROUTINE surf_land_orchidee(itime, dtime, date0, knon, &
+       knindex, rlon, rlat, yrmu0, pctsrf, &
+       debut, lafin, &
+       plev,  u1_lay, v1_lay, gustiness, temp_air, spechum, epot_air, ccanopy, & 
+       tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
+       precip_rain, precip_snow, lwdown, swnet, swdown, &
+       ps, q2m, t2m, &
+       evap, fluxsens, fluxlat, &              
+       tsol_rad, tsurf_new, alb1_new, alb2_new, &
+       emis_new, z0m_new, z0h_new, qsurf)
+
+    USE mod_surf_para
+    USE mod_synchro_omp
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: lunout
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+#ifdef CPP_VEGET
+    USE time_phylmdz_mod, ONLY: itau_phy 
+#endif
+!    
+! Cette routine sert d'interface entre le modele atmospherique et le 
+! modele de sol continental. Appel a sechiba
+!
+! L. Fairhead 02/2000
+!
+! input:
+!   itime        numero du pas de temps
+!   dtime        pas de temps de la physique (en s)
+!   nisurf       index de la surface a traiter (1 = sol continental)
+!   knon         nombre de points de la surface a traiter
+!   knindex      index des points de la surface a traiter
+!   rlon         longitudes de la grille entiere
+!   rlat         latitudes de la grille entiere
+!   pctsrf       tableau des fractions de surface de chaque maille
+!   debut        logical: 1er appel a la physique (lire les restart)
+!   lafin        logical: dernier appel a la physique (ecrire les restart)
+!                     (si false calcul simplifie des fluxs sur les continents)
+!   plev         hauteur de la premiere couche (Pa)      
+!   u1_lay       vitesse u 1ere couche
+!   v1_lay       vitesse v 1ere couche
+!   temp_air     temperature de l'air 1ere couche
+!   spechum      humidite specifique 1ere couche
+!   epot_air     temp pot de l'air
+!   ccanopy      concentration CO2 canopee, correspond au co2_send de 
+!                carbon_cycle_mod ou valeur constant co2_ppm
+!   tq_cdrag     cdrag
+!   petAcoef     coeff. A de la resolution de la CL pour t
+!   peqAcoef     coeff. A de la resolution de la CL pour q
+!   petBcoef     coeff. B de la resolution de la CL pour t
+!   peqBcoef     coeff. B de la resolution de la CL pour q
+!   precip_rain  precipitation liquide
+!   precip_snow  precipitation solide
+!   lwdown       flux IR descendant a la surface
+!   swnet        flux solaire net
+!   swdown       flux solaire entrant a la surface
+!   ps           pression au sol
+!   radsol       rayonnement net aus sol (LW + SW)
+!   
+!
+! output:
+!   evap         evaporation totale
+!   fluxsens     flux de chaleur sensible
+!   fluxlat      flux de chaleur latente
+!   tsol_rad     
+!   tsurf_new    temperature au sol
+!   alb1_new     albedo in visible SW interval
+!   alb2_new     albedo in near IR interval
+!   emis_new     emissivite
+!   z0m_new      surface roughness for momentum
+!   z0h_new      surface roughness for heat
+!   qsurf        air moisture at surface
+!
+    INCLUDE "YOMCST.h"
+  
+!
+! Parametres d'entree
+!****************************************************************************************
+    INTEGER, INTENT(IN)                       :: itime
+    REAL, INTENT(IN)                          :: dtime
+    REAL, INTENT(IN)                          :: date0
+    INTEGER, INTENT(IN)                       :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+    LOGICAL, INTENT(IN)                       :: debut, lafin
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)   :: pctsrf
+    REAL, DIMENSION(klon), INTENT(IN)         :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0 ! cosine of solar zenith angle
+    REAL, DIMENSION(klon), INTENT(IN)         :: plev
+    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)         :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)         :: epot_air, ccanopy
+    REAL, DIMENSION(klon), INTENT(IN)         :: tq_cdrag
+    REAL, DIMENSION(klon), INTENT(IN)         :: petAcoef, peqAcoef
+    REAL, DIMENSION(klon), INTENT(IN)         :: petBcoef, peqBcoef
+    REAL, DIMENSION(klon), INTENT(IN)         :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
+    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
+
+! Parametres de sortie
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0m_new, z0h_new
+
+! Local
+!****************************************************************************************
+    INTEGER                                   :: ij, jj, igrid, ireal, index
+    INTEGER                                   :: error
+    REAL, DIMENSION(klon)                     :: swdown_vrai
+    CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
+    CHARACTER (len = 80)                      :: abort_message
+    LOGICAL,SAVE                              :: check = .FALSE.
+    !$OMP THREADPRIVATE(check)
+
+! type de couplage dans sechiba
+!  character (len=10)   :: coupling = 'implicit' 
+! drapeaux controlant les appels dans SECHIBA
+!  type(control_type), save   :: control_in
+! Preserved albedo
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: albedo_keep, zlev
+    !$OMP THREADPRIVATE(albedo_keep,zlev)
+! coordonnees geographiques
+    REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: lalo
+    !$OMP THREADPRIVATE(lalo)
+! pts voisins
+    INTEGER,ALLOCATABLE, DIMENSION(:,:), SAVE :: neighbours
+    !$OMP THREADPRIVATE(neighbours)
+! fractions continents
+    REAL,ALLOCATABLE, DIMENSION(:), SAVE      :: contfrac
+    !$OMP THREADPRIVATE(contfrac)
+! resolution de la grille
+    REAL, ALLOCATABLE, DIMENSION (:,:), SAVE  :: resolution
+    !$OMP THREADPRIVATE(resolution)
+
+    REAL, ALLOCATABLE, DIMENSION (:,:), SAVE  :: lon_scat, lat_scat  
+    !$OMP THREADPRIVATE(lon_scat,lat_scat)
+
+    LOGICAL, SAVE                             :: lrestart_read = .TRUE.
+    !$OMP THREADPRIVATE(lrestart_read)
+    LOGICAL, SAVE                             :: lrestart_write = .FALSE.
+    !$OMP THREADPRIVATE(lrestart_write)
+
+    REAL, DIMENSION(knon,2)                   :: albedo_out
+
+! Pb de nomenclature
+    REAL, DIMENSION(klon)                     :: petA_orc, peqA_orc
+    REAL, DIMENSION(klon)                     :: petB_orc, peqB_orc
+! Pb de correspondances de grilles
+    INTEGER, DIMENSION(:), SAVE, ALLOCATABLE  :: ig, jg
+    !$OMP THREADPRIVATE(ig,jg)
+    INTEGER :: indi, indj
+    INTEGER, SAVE, ALLOCATABLE,DIMENSION(:)   :: ktindex
+    !$OMP THREADPRIVATE(ktindex)
+
+! Essai cdrag
+    REAL, DIMENSION(klon)                     :: cdrag
+    INTEGER,SAVE                              :: offset
+    !$OMP THREADPRIVATE(offset)
+
+    REAL, DIMENSION(klon_glo)                 :: rlon_g,rlat_g
+    INTEGER, SAVE                             :: orch_comm
+    !$OMP THREADPRIVATE(orch_comm)
+
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: coastalflow
+    !$OMP THREADPRIVATE(coastalflow)
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: riverflow
+    !$OMP THREADPRIVATE(riverflow)
+    
+    INTEGER :: orch_omp_rank
+    INTEGER :: orch_omp_size
+!
+! Fin definition
+!****************************************************************************************
+
+    IF (check) WRITE(lunout,*)'Entree ', modname
+  
+! Initialisation
+  
+    IF (debut) THEN
+! Test of coherence between variable ok_veget and cpp key CPP_VEGET
+#ifndef CPP_VEGET
+       abort_message='Pb de coherence: ok_veget = .true. mais CPP_VEGET = .false.'
+       CALL abort_physic(modname,abort_message,1)
+#endif
+
+       CALL Init_surf_para(knon)
+       ALLOCATE(ktindex(knon))
+       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
+!ym          ALLOCATE(albedo_keep(klon))
+!ym bizarre que non alloué en knon precedement
+          ALLOCATE(albedo_keep(knon))
+          ALLOCATE(zlev(knon))
+       ENDIF
+! Pb de correspondances de grilles
+       ALLOCATE(ig(klon))
+       ALLOCATE(jg(klon))
+       ig(1) = 1
+       jg(1) = 1
+       indi = 0
+       indj = 2
+       DO igrid = 2, klon - 1
+          indi = indi + 1
+          IF ( indi > nbp_lon) THEN
+             indi = 1
+             indj = indj + 1
+          ENDIF
+          ig(igrid) = indi
+          jg(igrid) = indj
+       ENDDO
+       ig(klon) = 1
+       jg(klon) = nbp_lat
+
+       IF ((.NOT. ALLOCATED(lalo))) THEN
+          ALLOCATE(lalo(knon,2), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lalo'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       IF ((.NOT. ALLOCATED(lon_scat))) THEN
+          ALLOCATE(lon_scat(nbp_lon,nbp_lat), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lon_scat'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       IF ((.NOT. ALLOCATED(lat_scat))) THEN
+          ALLOCATE(lat_scat(nbp_lon,nbp_lat), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lat_scat'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       lon_scat = 0.
+       lat_scat = 0.
+       DO igrid = 1, knon
+          index = knindex(igrid)
+          lalo(igrid,2) = rlon(index)
+          lalo(igrid,1) = rlat(index)
+       ENDDO
+
+       
+       
+       CALL Gather(rlon,rlon_g)
+       CALL Gather(rlat,rlat_g)
+
+       IF (is_mpi_root) THEN
+          index = 1
+          DO jj = 2, nbp_lat-1
+             DO ij = 1, nbp_lon
+                index = index + 1
+                lon_scat(ij,jj) = rlon_g(index)
+                lat_scat(ij,jj) = rlat_g(index)
+             ENDDO
+          ENDDO
+          lon_scat(:,1) = lon_scat(:,2)
+          lat_scat(:,1) = rlat_g(1)
+          lon_scat(:,nbp_lat) = lon_scat(:,2)
+          lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+       ENDIF
+   
+       CALL bcast(lon_scat)
+       CALL bcast(lat_scat)
+!
+! Allouer et initialiser le tableau des voisins et des fraction de continents
+!
+       IF ( (.NOT.ALLOCATED(neighbours))) THEN
+          ALLOCATE(neighbours(knon,8), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation neighbours'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       neighbours = -1.
+       IF (( .NOT. ALLOCATED(contfrac))) THEN
+          ALLOCATE(contfrac(knon), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation contfrac'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+
+       DO igrid = 1, knon
+          ireal = knindex(igrid)
+          contfrac(igrid) = pctsrf(ireal,is_ter)
+       ENDDO
+
+
+       CALL Init_neighbours(knon,neighbours,knindex,pctsrf(:,is_ter))
+
+!
+!  Allocation et calcul resolutions
+       IF ( (.NOT.ALLOCATED(resolution))) THEN
+          ALLOCATE(resolution(knon,2), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation resolution'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       DO igrid = 1, knon
+          ij = knindex(igrid)
+          resolution(igrid,1) = dx(ij)
+          resolution(igrid,2) = dy(ij)
+       ENDDO
+     
+       ALLOCATE(coastalflow(klon), stat = error)
+       IF (error /= 0) THEN
+          abort_message='Pb allocation coastalflow'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+       
+       ALLOCATE(riverflow(klon), stat = error)
+       IF (error /= 0) THEN
+          abort_message='Pb allocation riverflow'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+!
+! carbon_cycle_cpl not possible with this interface and version of ORHCHIDEE
+!
+       IF (carbon_cycle_cpl) THEN
+          abort_message='carbon_cycle_cpl not yet possible with this interface of ORCHIDEE'
+          CALL abort_physic(modname,abort_message,1)
+       END IF
+       
+    ENDIF                          ! (fin debut) 
+ 
+
+! 
+! Appel a la routine sols continentaux
+!
+    IF (lafin) lrestart_write = .TRUE.
+    IF (check) WRITE(lunout,*)'lafin ',lafin,lrestart_write
+     
+    petA_orc(1:knon) = petBcoef(1:knon) * dtime
+    petB_orc(1:knon) = petAcoef(1:knon)
+    peqA_orc(1:knon) = peqBcoef(1:knon) * dtime
+    peqB_orc(1:knon) = peqAcoef(1:knon)
+
+    cdrag = 0.
+    cdrag(1:knon) = tq_cdrag(1:knon)
+
+! zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/287.05*temp_air(1:knon))*9.80665)
+!    zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/RD*temp_air(1:knon))*RG)
+     zlev(1:knon) = plev(1:knon)*RD*temp_air(1:knon)/((ps(1:knon)*100.0)*RG)
+
+
+! PF et PASB
+!   where(cdrag > 0.01) 
+!     cdrag = 0.01
+!   endwhere
+!  write(*,*)'Cdrag = ',minval(cdrag),maxval(cdrag)
+
+  
+    IF (debut) THEN
+       CALL Init_orchidee_index(knon,knindex,offset,ktindex)
+       CALL Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank)
+       CALL Init_synchro_omp
+       
+       IF (knon > 0) THEN
+#ifdef CPP_VEGET
+         CALL Init_intersurf(nbp_lon,nbp_lat,knon,ktindex,offset,orch_omp_size,orch_omp_rank,orch_comm)
+#endif
+       ENDIF
+
+       
+       IF (knon > 0) THEN
+
+#ifdef CPP_VEGET
+         CALL intersurf_initialize_gathered (itime+itau_phy-1, nbp_lon, nbp_lat, knon, ktindex, dtime, &
+               lrestart_read, lrestart_write, lalo, contfrac, neighbours, resolution, date0, &
+               zlev,  u1_lay, v1_lay, spechum, temp_air, epot_air, &
+               cdrag, petA_orc, peqA_orc, petB_orc, peqB_orc, &
+               precip_rain, precip_snow, lwdown, swnet, swdown, ps, &
+               evap, fluxsens, fluxlat, coastalflow, riverflow, &
+               tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0m_new, &
+               lon_scat, lat_scat, q2m, t2m, z0h_new)
+#endif         
+       ENDIF
+
+       CALL Synchro_omp
+
+       albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+
+    ENDIF
+
+    
+!  swdown_vrai(1:knon) = swnet(1:knon)/(1. - albedo_keep(1:knon))
+    swdown_vrai(1:knon) = swdown(1:knon)
+
+    IF (knon > 0) THEN
+#ifdef CPP_VEGET    
+       CALL intersurf_main_gathered (itime+itau_phy, nbp_lon, nbp_lat, knon, ktindex, dtime,  &
+            lrestart_read, lrestart_write, lalo, &
+            contfrac, neighbours, resolution, date0, &
+            zlev,  u1_lay(1:knon), v1_lay(1:knon), spechum(1:knon), temp_air(1:knon), epot_air(1:knon), ccanopy(1:knon), &
+            cdrag(1:knon), petA_orc(1:knon), peqA_orc(1:knon), petB_orc(1:knon), peqB_orc(1:knon), &
+            precip_rain(1:knon), precip_snow(1:knon), lwdown(1:knon), swnet(1:knon), swdown_vrai(1:knon), ps(1:knon), &
+            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
+            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0m_new(1:knon), &
+            lon_scat, lat_scat, q2m, t2m, z0h_new(1:knon), coszang=yrmu0(1:knon))
+#endif       
+    ENDIF
+
+    CALL Synchro_omp
+    
+    albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+
+!* Send to coupler
+!
+    IF (type_ocean=='couple') THEN
+       CALL cpl_send_land_fields(itime, knon, knindex, &
+            riverflow, coastalflow)
+    ENDIF
+
+    alb1_new(1:knon) = albedo_out(1:knon,1) 
+    alb2_new(1:knon) = albedo_out(1:knon,2)
+
+! Convention orchidee: positif vers le haut
+    fluxsens(1:knon) = -1. * fluxsens(1:knon)
+    fluxlat(1:knon)  = -1. * fluxlat(1:knon)
+    
+!  evap     = -1. * evap
+
+    IF (debut) lrestart_read = .FALSE.
+    
+    IF (debut) CALL Finalize_surf_para
+
+    
+  END SUBROUTINE surf_land_orchidee
+!
+!****************************************************************************************
+!
+  SUBROUTINE Init_orchidee_index(knon,knindex,offset,ktindex)
+  USE mod_surf_para
+  USE mod_grid_phy_lmdz
+  
+    INTEGER,INTENT(IN)    :: knon
+    INTEGER,INTENT(IN)    :: knindex(klon)    
+    INTEGER,INTENT(OUT)   :: offset
+    INTEGER,INTENT(OUT)   :: ktindex(klon)
+    
+    INTEGER               :: ktindex_glo(knon_glo)
+    INTEGER               :: offset_para(0:omp_size*mpi_size-1)
+    INTEGER               :: LastPoint
+    INTEGER               :: task
+    
+    ktindex(1:knon)=knindex(1:knon)+(klon_mpi_begin-1)+(klon_omp_begin-1)+nbp_lon-1
+    
+    CALL gather_surf(ktindex(1:knon),ktindex_glo) 
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      LastPoint=0
+      DO Task=0,mpi_size*omp_size-1
+        IF (knon_glo_para(Task)>0) THEN
+           offset_para(task)= LastPoint-MOD(LastPoint,nbp_lon)
+           LastPoint=ktindex_glo(knon_glo_end_para(task))
+        ENDIF
+      ENDDO
+    ENDIF
+    
+    CALL bcast(offset_para)
+    
+    offset=offset_para(omp_size*mpi_rank+omp_rank)
+    
+    ktindex(1:knon)=ktindex(1:knon)-offset
+
+  END SUBROUTINE Init_orchidee_index
+
+!
+!************************* ***************************************************************
+! 
+
+  SUBROUTINE Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank)
+  USE  mod_surf_para
+      
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+    INTEGER,INTENT(OUT) :: orch_comm
+    INTEGER,INTENT(OUT) :: orch_omp_size
+    INTEGER,INTENT(OUT) :: orch_omp_rank
+    INTEGER             :: color
+    INTEGER             :: i,ierr
+!
+! End definition
+!****************************************************************************************
+    
+    
+    IF (is_omp_root) THEN          
+      
+      IF (knon_mpi==0) THEN 
+         color = 0
+      ELSE 
+         color = 1
+      ENDIF
+    
+#ifdef CPP_MPI    
+      CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
+#endif
+    
+    ENDIF
+    CALL bcast_omp(orch_comm)
+    
+    IF (knon_mpi /= 0) THEN
+      orch_omp_size=0
+      DO i=0,omp_size-1
+        IF (knon_omp_para(i) /=0) THEN
+          orch_omp_size=orch_omp_size+1
+          IF (i==omp_rank) orch_omp_rank=orch_omp_size-1
+        ENDIF
+      ENDDO
+    ENDIF
+   
+    
+  END SUBROUTINE Get_orchidee_communicator
+!
+!****************************************************************************************
+!  
+
+  SUBROUTINE Init_neighbours(knon,neighbours,knindex,pctsrf)
+    USE mod_grid_phy_lmdz
+    USE mod_surf_para    
+    USE indice_sol_mod
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    REAL, DIMENSION(klon), INTENT(IN)       :: pctsrf
+    
+! Output arguments
+!****************************************************************************************
+    INTEGER, DIMENSION(knon,8), INTENT(OUT) :: neighbours
+
+! Local variables
+!****************************************************************************************
+    INTEGER                              :: i, igrid, jj, ij, iglob
+    INTEGER                              :: ierr, ireal, index
+    INTEGER, DIMENSION(8,3)              :: off_ini
+    INTEGER, DIMENSION(8)                :: offset  
+    INTEGER, DIMENSION(nbp_lon,nbp_lat)  :: correspond
+    INTEGER, DIMENSION(knon_glo)         :: ktindex_glo
+    INTEGER, DIMENSION(knon_glo,8)       :: neighbours_glo
+    REAL, DIMENSION(klon_glo)            :: pctsrf_glo
+    INTEGER                              :: ktindex(klon)
+!
+! End definition
+!****************************************************************************************
+
+    ktindex(1:knon)=knindex(1:knon)+(klon_mpi_begin-1)+(klon_omp_begin-1)+nbp_lon-1
+    
+    CALL gather_surf(ktindex(1:knon),ktindex_glo)
+    CALL gather(pctsrf,pctsrf_glo)
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      neighbours_glo(:,:)=-1
+!  Initialisation des offset    
+!
+! offset bord ouest
+       off_ini(1,1) = - nbp_lon   ; off_ini(2,1) = - nbp_lon + 1     ; off_ini(3,1) = 1
+       off_ini(4,1) = nbp_lon + 1 ; off_ini(5,1) = nbp_lon           ; off_ini(6,1) = 2 * nbp_lon - 1
+       off_ini(7,1) = nbp_lon -1  ; off_ini(8,1) = - 1 
+! offset point normal
+       off_ini(1,2) = - nbp_lon   ; off_ini(2,2) = - nbp_lon + 1     ; off_ini(3,2) = 1
+       off_ini(4,2) = nbp_lon + 1 ; off_ini(5,2) = nbp_lon           ; off_ini(6,2) = nbp_lon - 1
+       off_ini(7,2) = -1          ; off_ini(8,2) = - nbp_lon - 1
+! offset bord   est
+       off_ini(1,3) = - nbp_lon   ; off_ini(2,3) = - 2 * nbp_lon + 1 ; off_ini(3,3) = - nbp_lon + 1
+       off_ini(4,3) =  1          ; off_ini(5,3) = nbp_lon           ; off_ini(6,3) = nbp_lon - 1
+       off_ini(7,3) = -1          ; off_ini(8,3) = - nbp_lon - 1
+!
+!
+! Attention aux poles
+!
+       DO igrid = 1, knon_glo
+          index = ktindex_glo(igrid)
+          jj = INT((index - 1)/nbp_lon) + 1
+          ij = index - (jj - 1) * nbp_lon
+          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
+          iglob = ktindex_glo(igrid)
+          
+          IF (MOD(iglob, nbp_lon) == 1) THEN
+             offset = off_ini(:,1)
+          ELSE IF(MOD(iglob, nbp_lon) == 0) THEN
+             offset = off_ini(:,3)
+          ELSE
+             offset = off_ini(:,2)
+          ENDIF
+          
+          DO i = 1, 8
+             index = iglob + offset(i)
+             ireal = (MIN(MAX(1, index - nbp_lon + 1), klon_glo))
+             IF (pctsrf_glo(ireal) > EPSFRA) THEN
+                jj = INT((index - 1)/nbp_lon) + 1
+                ij = index - (jj - 1) * nbp_lon
+                neighbours_glo(igrid, i) = correspond(ij, jj)
+             ENDIF
+          ENDDO
+       ENDDO
+       ENDIF !fin knon_glo == 1
+
+    ENDIF
+    
+    DO i = 1, 8
+      CALL scatter_surf(neighbours_glo(:,i),neighbours(1:knon,i))
+    ENDDO
+  END SUBROUTINE Init_neighbours
+
+!
+!****************************************************************************************
+!
+#endif
+#endif
+END MODULE surf_land_orchidee_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90	(revision 3330)
@@ -0,0 +1,790 @@
+!
+! $Header$
+!
+MODULE surf_land_orchidee_noopenmp_mod
+!
+! This module is compiled only if CPP key ORCHIDEE_NOOPENMP is defined.
+! This module should be used with ORCHIDEE sequentiel or parallele MPI version 
+! (not MPI-OpenMP mixte) until revision 1077 in the ORCHIDEE trunk.
+
+#ifdef ORCHIDEE_NOOPENMP
+!
+! This module controles the interface towards the model ORCHIDEE
+!
+! Subroutines in this module : surf_land_orchidee
+!                              Init_orchidee_index
+!                              Get_orchidee_communicator
+!                              Init_neighbours
+  USE dimphy
+#ifdef CPP_VEGET
+  USE intersurf     ! module d'ORCHIDEE
+#endif
+  USE cpl_mod,      ONLY : cpl_send_land_fields
+  USE surface_data, ONLY : type_ocean
+  USE geometry_mod, ONLY : dx, dy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para
+
+  IMPLICIT NONE
+
+  PRIVATE
+  PUBLIC  :: surf_land_orchidee
+
+CONTAINS
+!
+!****************************************************************************************
+!  
+  SUBROUTINE surf_land_orchidee(itime, dtime, date0, knon, &
+       knindex, rlon, rlat, yrmu0, pctsrf, &
+       debut, lafin, &
+       plev,  u1_lay, v1_lay, gustiness, temp_air, spechum, epot_air, ccanopy, & 
+       tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
+       precip_rain, precip_snow, lwdown, swnet, swdown, &
+       ps, q2m, t2m, &
+       evap, fluxsens, fluxlat, &              
+       tsol_rad, tsurf_new, alb1_new, alb2_new, &
+       emis_new, z0_new, z0h_new, qsurf)
+!    
+! Cette routine sert d'interface entre le modele atmospherique et le 
+! modele de sol continental. Appel a sechiba
+!
+! L. Fairhead 02/2000
+!
+! input:
+!   itime        numero du pas de temps
+!   dtime        pas de temps de la physique (en s)
+!   nisurf       index de la surface a traiter (1 = sol continental)
+!   knon         nombre de points de la surface a traiter
+!   knindex      index des points de la surface a traiter
+!   rlon         longitudes de la grille entiere
+!   rlat         latitudes de la grille entiere
+!   pctsrf       tableau des fractions de surface de chaque maille
+!   debut        logical: 1er appel a la physique (lire les restart)
+!   lafin        logical: dernier appel a la physique (ecrire les restart)
+!                     (si false calcul simplifie des fluxs sur les continents)
+!   plev         hauteur de la premiere couche (Pa)      
+!   u1_lay       vitesse u 1ere couche
+!   v1_lay       vitesse v 1ere couche
+!   temp_air     temperature de l'air 1ere couche
+!   spechum      humidite specifique 1ere couche
+!   epot_air     temp pot de l'air
+!   ccanopy      concentration CO2 canopee, correspond au co2_send de 
+!                carbon_cycle_mod ou valeur constant co2_ppm
+!   tq_cdrag     cdrag
+!   petAcoef     coeff. A de la resolution de la CL pour t
+!   peqAcoef     coeff. A de la resolution de la CL pour q
+!   petBcoef     coeff. B de la resolution de la CL pour t
+!   peqBcoef     coeff. B de la resolution de la CL pour q
+!   precip_rain  precipitation liquide
+!   precip_snow  precipitation solide
+!   lwdown       flux IR descendant a la surface
+!   swnet        flux solaire net
+!   swdown       flux solaire entrant a la surface
+!   ps           pression au sol
+!   radsol       rayonnement net aus sol (LW + SW)
+!   
+!
+! output:
+!   evap         evaporation totale
+!   fluxsens     flux de chaleur sensible
+!   fluxlat      flux de chaleur latente
+!   tsol_rad     
+!   tsurf_new    temperature au sol
+!   alb1_new     albedo in visible SW interval
+!   alb2_new     albedo in near IR interval
+!   emis_new     emissivite
+!   z0_new       surface roughness
+!   z0h_new      surface roughness, it is the same as z0_new
+!   qsurf        air moisture at surface
+!
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_land_inst, fco2_lu_inst
+    USE indice_sol_mod
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+    USE print_control_mod, ONLY: lunout
+#ifdef CPP_VEGET
+    USE time_phylmdz_mod, ONLY: itau_phy 
+#endif
+    IMPLICIT NONE
+
+    INCLUDE "YOMCST.h"
+  
+!
+! Parametres d'entree
+!****************************************************************************************
+    INTEGER, INTENT(IN)                       :: itime
+    REAL, INTENT(IN)                          :: dtime
+    REAL, INTENT(IN)                          :: date0
+    INTEGER, INTENT(IN)                       :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+    LOGICAL, INTENT(IN)                       :: debut, lafin
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)   :: pctsrf
+    REAL, DIMENSION(klon), INTENT(IN)         :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0
+    REAL, DIMENSION(klon), INTENT(IN)         :: plev
+    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)         :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)         :: epot_air, ccanopy
+    REAL, DIMENSION(klon), INTENT(IN)         :: tq_cdrag
+    REAL, DIMENSION(klon), INTENT(IN)         :: petAcoef, peqAcoef
+    REAL, DIMENSION(klon), INTENT(IN)         :: petBcoef, peqBcoef
+    REAL, DIMENSION(klon), INTENT(IN)         :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
+    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
+
+! Parametres de sortie
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0_new, z0h_new
+
+! Local
+!****************************************************************************************
+    INTEGER                                   :: ij, jj, igrid, ireal, index
+    INTEGER                                   :: error
+    INTEGER, SAVE                             :: nb_fields_cpl ! number of fields for the climate-carbon coupling (between ATM and ORCHIDEE). 
+    REAL, SAVE, ALLOCATABLE, DIMENSION(:,:)   :: fields_cpl    ! Fluxes for the climate-carbon coupling
+    REAL, DIMENSION(klon)                     :: swdown_vrai
+    CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
+    CHARACTER (len = 80)                      :: abort_message
+    LOGICAL,SAVE                              :: check = .FALSE.
+    !$OMP THREADPRIVATE(check)
+
+! type de couplage dans sechiba
+!  character (len=10)   :: coupling = 'implicit' 
+! drapeaux controlant les appels dans SECHIBA
+!  type(control_type), save   :: control_in
+! Preserved albedo
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: albedo_keep, zlev
+    !$OMP THREADPRIVATE(albedo_keep,zlev)
+! coordonnees geographiques
+    REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: lalo
+    !$OMP THREADPRIVATE(lalo)
+! pts voisins
+    INTEGER,ALLOCATABLE, DIMENSION(:,:), SAVE :: neighbours
+    !$OMP THREADPRIVATE(neighbours)
+! fractions continents
+    REAL,ALLOCATABLE, DIMENSION(:), SAVE      :: contfrac
+    !$OMP THREADPRIVATE(contfrac)
+! resolution de la grille
+    REAL, ALLOCATABLE, DIMENSION (:,:), SAVE  :: resolution
+    !$OMP THREADPRIVATE(resolution)
+
+    REAL, ALLOCATABLE, DIMENSION (:,:), SAVE  :: lon_scat, lat_scat  
+    !$OMP THREADPRIVATE(lon_scat,lat_scat)
+
+    LOGICAL, SAVE                             :: lrestart_read = .TRUE.
+    !$OMP THREADPRIVATE(lrestart_read)
+    LOGICAL, SAVE                             :: lrestart_write = .FALSE.
+    !$OMP THREADPRIVATE(lrestart_write)
+
+    REAL, DIMENSION(knon,2)                   :: albedo_out
+    !$OMP THREADPRIVATE(albedo_out)
+
+! Pb de nomenclature
+    REAL, DIMENSION(klon)                     :: petA_orc, peqA_orc
+    REAL, DIMENSION(klon)                     :: petB_orc, peqB_orc
+! Pb de correspondances de grilles
+    INTEGER, DIMENSION(:), SAVE, ALLOCATABLE  :: ig, jg
+    !$OMP THREADPRIVATE(ig,jg)
+    INTEGER :: indi, indj
+    INTEGER, SAVE, ALLOCATABLE,DIMENSION(:)   :: ktindex
+    !$OMP THREADPRIVATE(ktindex)
+
+! Essai cdrag
+    REAL, DIMENSION(klon)                     :: cdrag
+    INTEGER,SAVE                              :: offset
+    !$OMP THREADPRIVATE(offset)
+
+    REAL, DIMENSION(klon_glo)                 :: rlon_g,rlat_g
+    INTEGER, SAVE                             :: orch_comm
+    !$OMP THREADPRIVATE(orch_comm)
+
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: coastalflow
+    !$OMP THREADPRIVATE(coastalflow)
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: riverflow
+    !$OMP THREADPRIVATE(riverflow)
+!
+! Fin definition
+!****************************************************************************************
+#ifdef CPP_VEGET
+
+    IF (check) WRITE(lunout,*)'Entree ', modname
+  
+! Initialisation
+  
+    IF (debut) THEN
+! Test de coherence
+#ifndef ORCH_NEW
+       ! Compilation avec orchidee nouvelle version necessaire avec carbon_cycle_cpl=y
+       IF (carbon_cycle_cpl) THEN
+          abort_message='You must define preprossing key ORCH_NEW when running carbon_cycle_cpl=y'
+          CALL abort_physic(modname,abort_message,1)
+       END IF
+#endif
+       ALLOCATE(ktindex(knon))
+       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
+          ALLOCATE(albedo_keep(klon))
+          ALLOCATE(zlev(knon))
+       ENDIF
+! Pb de correspondances de grilles
+       ALLOCATE(ig(klon))
+       ALLOCATE(jg(klon))
+       ig(1) = 1
+       jg(1) = 1
+       indi = 0
+       indj = 2
+       DO igrid = 2, klon - 1
+          indi = indi + 1
+          IF ( indi > nbp_lon) THEN
+             indi = 1
+             indj = indj + 1
+          ENDIF
+          ig(igrid) = indi
+          jg(igrid) = indj
+       ENDDO
+       ig(klon) = 1
+       jg(klon) = nbp_lat
+
+       IF ((.NOT. ALLOCATED(lalo))) THEN
+          ALLOCATE(lalo(knon,2), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lalo'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       IF ((.NOT. ALLOCATED(lon_scat))) THEN
+          ALLOCATE(lon_scat(nbp_lon,nbp_lat), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lon_scat'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       IF ((.NOT. ALLOCATED(lat_scat))) THEN
+          ALLOCATE(lat_scat(nbp_lon,nbp_lat), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lat_scat'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       lon_scat = 0.
+       lat_scat = 0.
+       DO igrid = 1, knon
+          index = knindex(igrid)
+          lalo(igrid,2) = rlon(index)
+          lalo(igrid,1) = rlat(index)
+       ENDDO
+
+       
+       
+       CALL Gather(rlon,rlon_g)
+       CALL Gather(rlat,rlat_g)
+
+       IF (is_mpi_root) THEN
+          index = 1
+          DO jj = 2, nbp_lat-1
+             DO ij = 1, nbp_lon
+                index = index + 1
+                lon_scat(ij,jj) = rlon_g(index)
+                lat_scat(ij,jj) = rlat_g(index)
+             ENDDO
+          ENDDO
+          lon_scat(:,1) = lon_scat(:,2)
+          lat_scat(:,1) = rlat_g(1)
+          lon_scat(:,nbp_lat) = lon_scat(:,2)
+          lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+       ENDIF
+
+       CALL bcast(lon_scat) 
+       CALL bcast(lat_scat) 
+
+!
+! Allouer et initialiser le tableau des voisins et des fraction de continents
+!
+       IF ( (.NOT.ALLOCATED(neighbours))) THEN
+          ALLOCATE(neighbours(knon,8), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation neighbours'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       neighbours = -1.
+       IF (( .NOT. ALLOCATED(contfrac))) THEN
+          ALLOCATE(contfrac(knon), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation contfrac'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+
+       DO igrid = 1, knon
+          ireal = knindex(igrid)
+          contfrac(igrid) = pctsrf(ireal,is_ter)
+       ENDDO
+
+
+       CALL Init_neighbours(knon,neighbours,knindex,pctsrf(:,is_ter))
+
+!
+!  Allocation et calcul resolutions
+       IF ( (.NOT.ALLOCATED(resolution))) THEN
+          ALLOCATE(resolution(knon,2), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation resolution'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       DO igrid = 1, knon
+          ij = knindex(igrid)
+          resolution(igrid,1) = dx(ij)
+          resolution(igrid,2) = dy(ij)
+       ENDDO
+     
+       ALLOCATE(coastalflow(klon), stat = error)
+       IF (error /= 0) THEN
+          abort_message='Pb allocation coastalflow'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+       
+       ALLOCATE(riverflow(klon), stat = error)
+       IF (error /= 0) THEN
+          abort_message='Pb allocation riverflow'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+
+!
+! Allocate variables needed for carbon_cycle_mod
+       IF ( carbon_cycle_cpl ) THEN
+          nb_fields_cpl=2
+       ELSE
+          nb_fields_cpl=1
+       END IF
+
+
+       IF (carbon_cycle_cpl) THEN
+          ALLOCATE(fco2_land_inst(klon),stat=error)
+          IF (error /= 0)  CALL abort_physic(modname,'Pb in allocation fco2_land_inst',1)
+          
+          ALLOCATE(fco2_lu_inst(klon),stat=error)
+          IF(error /=0) CALL abort_physic(modname,'Pb in allocation fco2_lu_inst',1)
+       END IF
+
+       ALLOCATE(fields_cpl(klon,nb_fields_cpl), stat = error)
+       IF (error /= 0) CALL abort_physic(modname,'Pb in allocation fields_cpl',1)
+
+    ENDIF                          ! (fin debut) 
+
+! 
+! Appel a la routine sols continentaux
+!
+    IF (lafin) lrestart_write = .TRUE.
+    IF (check) WRITE(lunout,*)'lafin ',lafin,lrestart_write
+    
+    petA_orc(1:knon) = petBcoef(1:knon) * dtime
+    petB_orc(1:knon) = petAcoef(1:knon)
+    peqA_orc(1:knon) = peqBcoef(1:knon) * dtime
+    peqB_orc(1:knon) = peqAcoef(1:knon)
+
+    cdrag = 0.
+    cdrag(1:knon) = tq_cdrag(1:knon)
+
+! zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/287.05*temp_air(1:knon))*9.80665)
+    zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/RD*temp_air(1:knon))*RG)
+
+
+! PF et PASB
+!   where(cdrag > 0.01) 
+!     cdrag = 0.01
+!   endwhere
+!  write(*,*)'Cdrag = ',minval(cdrag),maxval(cdrag)
+
+!
+! Init Orchidee
+!
+!  if (pole_nord) then 
+!    offset=0
+!    ktindex(:)=ktindex(:)+nbp_lon-1
+!  else
+!    offset = klon_mpi_begin-1+nbp_lon-1
+!    ktindex(:)=ktindex(:)+MOD(offset,nbp_lon)
+!    offset=offset-MOD(offset,nbp_lon)
+!  endif
+  
+    IF (debut) THEN
+       CALL Get_orchidee_communicator(knon,orch_comm)
+       IF (knon /=0) THEN
+          CALL Init_orchidee_index(knon,orch_comm,knindex,offset,ktindex)
+
+#ifndef CPP_MPI
+          ! Interface for ORCHIDEE compiled in sequential mode(without preprocessing flag CPP_MPI)
+          CALL intersurf_main (itime+itau_phy-1, nbp_lon, nbp_lat, knon, ktindex, dtime, &
+               lrestart_read, lrestart_write, lalo, &
+               contfrac, neighbours, resolution, date0, &
+               zlev,  u1_lay, v1_lay, spechum, temp_air, epot_air, ccanopy, &
+               cdrag, petA_orc, peqA_orc, petB_orc, peqB_orc, &
+               precip_rain, precip_snow, lwdown, swnet, swdown, ps, &
+               evap, fluxsens, fluxlat, coastalflow, riverflow, &
+               tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
+               lon_scat, lat_scat, q2m, t2m &
+#ifdef ORCH_NEW
+               , nb_fields_cpl, fields_cpl)
+#else
+               )
+#endif
+
+#else          
+          ! Interface for ORCHIDEE version 1.9 or later(1.9.2, 1.9.3, 1.9.4, 1.9.5) compiled in parallel mode(with preprocessing flag CPP_MPI)
+          CALL intersurf_main (itime+itau_phy-1, nbp_lon, nbp_lat, offset, knon, ktindex, & 
+               orch_comm, dtime, lrestart_read, lrestart_write, lalo, &
+               contfrac, neighbours, resolution, date0, &
+               zlev,  u1_lay(1:knon), v1_lay(1:knon), spechum(1:knon), temp_air(1:knon), epot_air(1:knon), ccanopy(1:knon), &
+               cdrag(1:knon), petA_orc(1:knon), peqA_orc(1:knon), petB_orc(1:knon), peqB_orc(1:knon), &
+               precip_rain(1:knon), precip_snow(1:knon), lwdown(1:knon), swnet(1:knon), swdown(1:knon), ps(1:knon), &
+               evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
+               tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
+               lon_scat, lat_scat, q2m, t2m &
+#ifdef ORCH_NEW
+               , nb_fields_cpl, fields_cpl(1:knon,:))
+#else
+               )
+#endif
+#endif
+          
+       ENDIF
+
+       albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+
+    ENDIF
+
+!  swdown_vrai(1:knon) = swnet(1:knon)/(1. - albedo_keep(1:knon))
+    swdown_vrai(1:knon) = swdown(1:knon)
+
+    IF (knon /=0) THEN
+#ifndef CPP_MPI
+       ! Interface for ORCHIDEE compiled in sequential mode(without preprocessing flag CPP_MPI)
+       CALL intersurf_main (itime+itau_phy, nbp_lon, nbp_lat, knon, ktindex, dtime, &
+            lrestart_read, lrestart_write, lalo, &
+            contfrac, neighbours, resolution, date0, &
+            zlev,  u1_lay, v1_lay, spechum, temp_air, epot_air, ccanopy, &
+            cdrag, petA_orc, peqA_orc, petB_orc, peqB_orc, &
+            precip_rain, precip_snow, lwdown, swnet, swdown_vrai, ps, &
+            evap, fluxsens, fluxlat, coastalflow, riverflow, &
+            tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
+            lon_scat, lat_scat, q2m, t2m &
+#ifdef ORCH_NEW
+            , nb_fields_cpl, fields_cpl)
+#else
+            )
+#endif
+#else
+       ! Interface for ORCHIDEE version 1.9 or later compiled in parallel mode(with preprocessing flag CPP_MPI)
+       CALL intersurf_main (itime+itau_phy, nbp_lon, nbp_lat,offset, knon, ktindex, & 
+            orch_comm,dtime, lrestart_read, lrestart_write, lalo, &
+            contfrac, neighbours, resolution, date0, &
+            zlev,  u1_lay(1:knon), v1_lay(1:knon), spechum(1:knon), temp_air(1:knon), epot_air(1:knon), ccanopy(1:knon), &
+            cdrag(1:knon), petA_orc(1:knon), peqA_orc(1:knon), petB_orc(1:knon), peqB_orc(1:knon), &
+            precip_rain(1:knon), precip_snow(1:knon), lwdown(1:knon), swnet(1:knon), swdown_vrai(1:knon), ps(1:knon), &
+            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
+            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
+            lon_scat, lat_scat, q2m, t2m &
+#ifdef ORCH_NEW
+            , nb_fields_cpl, fields_cpl(1:knon,:))
+#else
+            )
+#endif
+#endif
+    ENDIF
+
+    albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+    
+    ! ORCHIDEE only gives one value for z0_new. Copy it into z0h_new.
+    z0h_new(:)=z0_new(:)
+
+!* Send to coupler
+!
+    IF (type_ocean=='couple') THEN
+       CALL cpl_send_land_fields(itime, knon, knindex, &
+            riverflow, coastalflow)
+    ENDIF
+
+    alb1_new(1:knon) = albedo_out(1:knon,1) 
+    alb2_new(1:knon) = albedo_out(1:knon,2)
+
+! Convention orchidee: positif vers le haut
+    fluxsens(1:knon) = -1. * fluxsens(1:knon)
+    fluxlat(1:knon)  = -1. * fluxlat(1:knon)
+    
+!  evap     = -1. * evap
+
+    IF (debut) lrestart_read = .FALSE.
+
+! Decompress variables for the module carbon_cycle_mod
+    IF (carbon_cycle_cpl) THEN
+       fco2_land_inst(:)=0.
+       fco2_lu_inst(:)=0.
+       
+       DO igrid = 1, knon
+          ireal = knindex(igrid)
+          fco2_land_inst(ireal) = fields_cpl(igrid,1)
+          fco2_lu_inst(ireal)   = fields_cpl(igrid,2)
+       END DO
+    END IF
+
+#endif    
+  END SUBROUTINE surf_land_orchidee
+!
+!****************************************************************************************
+!
+  SUBROUTINE Init_orchidee_index(knon,orch_comm,knindex,offset,ktindex)
+    
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                   :: knon
+    INTEGER, INTENT(IN)                   :: orch_comm
+    INTEGER, DIMENSION(klon), INTENT(IN)  :: knindex
+
+! Output arguments
+!****************************************************************************************
+    INTEGER, INTENT(OUT)                  :: offset
+    INTEGER, DIMENSION(knon), INTENT(OUT) :: ktindex
+
+! Local varables
+!****************************************************************************************
+#ifdef CPP_MPI
+    INTEGER, DIMENSION(MPI_STATUS_SIZE)   :: status
+#endif
+
+    INTEGER                               :: MyLastPoint
+    INTEGER                               :: LastPoint
+    INTEGER                               :: mpi_rank_orch
+    INTEGER                               :: mpi_size_orch
+    INTEGER                               :: ierr 
+!
+! End definition
+!****************************************************************************************
+
+    MyLastPoint=klon_mpi_begin-1+knindex(knon)+nbp_lon-1
+    
+    IF (is_parallel) THEN
+#ifdef CPP_MPI    
+       CALL MPI_COMM_SIZE(orch_comm,mpi_size_orch,ierr)
+       CALL MPI_COMM_RANK(orch_comm,mpi_rank_orch,ierr)
+#endif
+    ELSE
+       mpi_rank_orch=0
+       mpi_size_orch=1
+    ENDIF
+
+    IF (is_parallel) THEN
+       IF (mpi_rank_orch /= 0) THEN
+#ifdef CPP_MPI
+          CALL MPI_RECV(LastPoint,1,MPI_INTEGER,mpi_rank_orch-1,1234,orch_comm,status,ierr)
+#endif
+       ENDIF
+       
+       IF (mpi_rank_orch /= mpi_size_orch-1) THEN
+#ifdef CPP_MPI
+          CALL MPI_SEND(MyLastPoint,1,MPI_INTEGER,mpi_rank_orch+1,1234,orch_comm,ierr)  
+#endif
+       ENDIF
+    ENDIF
+    
+    IF (mpi_rank_orch == 0) THEN 
+       offset=0
+    ELSE
+       offset=LastPoint-MOD(LastPoint,nbp_lon)
+    ENDIF
+    
+    ktindex(1:knon)=knindex(1:knon)+(klon_mpi_begin+nbp_lon-1)-offset-1	
+    
+
+  END SUBROUTINE  Init_orchidee_index
+!
+!****************************************************************************************
+! 
+  SUBROUTINE Get_orchidee_communicator(knon,orch_comm)
+    
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+
+    INTEGER,INTENT(IN)  :: knon
+    INTEGER,INTENT(OUT) :: orch_comm
+    
+    INTEGER             :: color
+    INTEGER             :: ierr
+!
+! End definition
+!****************************************************************************************
+
+    IF (knon==0) THEN 
+       color = 0
+    ELSE 
+       color = 1
+    ENDIF
+    
+#ifdef CPP_MPI    
+    CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
+#endif
+    
+  END SUBROUTINE Get_orchidee_communicator
+!
+!****************************************************************************************
+!  
+  SUBROUTINE Init_neighbours(knon,neighbours,ktindex,pctsrf)
+    
+    USE indice_sol_mod
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: ktindex
+    REAL, DIMENSION(klon), INTENT(IN)       :: pctsrf
+    
+! Output arguments
+!****************************************************************************************
+    INTEGER, DIMENSION(knon,8), INTENT(OUT) :: neighbours
+
+! Local variables
+!****************************************************************************************
+    INTEGER                              :: knon_g
+    INTEGER                              :: i, igrid, jj, ij, iglob
+    INTEGER                              :: ierr, ireal, index
+    INTEGER                              :: var_tmp
+    INTEGER, DIMENSION(0:mpi_size-1)     :: knon_nb
+    INTEGER, DIMENSION(0:mpi_size-1)     :: displs
+    INTEGER, DIMENSION(8,3)              :: off_ini
+    INTEGER, DIMENSION(8)                :: offset  
+    INTEGER, DIMENSION(knon)             :: ktindex_p
+    INTEGER, DIMENSION(nbp_lon,nbp_lat)        :: correspond
+    INTEGER, ALLOCATABLE, DIMENSION(:)   :: ktindex_g
+    INTEGER, ALLOCATABLE, DIMENSION(:,:) :: neighbours_g
+    REAL, DIMENSION(klon_glo)            :: pctsrf_g
+    
+!
+! End definition
+!****************************************************************************************
+
+    IF (is_sequential) THEN
+       knon_nb(:)=knon
+    ELSE  
+       
+#ifdef CPP_MPI  
+       CALL MPI_GATHER(knon,1,MPI_INTEGER,knon_nb,1,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr)
+#endif
+       
+    ENDIF
+    
+    IF (is_mpi_root) THEN
+       knon_g=SUM(knon_nb(:))
+       ALLOCATE(ktindex_g(knon_g))
+       ALLOCATE(neighbours_g(knon_g,8))
+       neighbours_g(:,:)=-1
+       displs(0)=0
+       DO i=1,mpi_size-1
+          displs(i)=displs(i-1)+knon_nb(i-1)
+       ENDDO
+   ELSE
+       ALLOCATE(ktindex_g(1))
+       ALLOCATE(neighbours_g(1,8))
+   ENDIF
+    
+    ktindex_p(1:knon)=ktindex(1:knon)+klon_mpi_begin-1+nbp_lon-1
+    
+    IF (is_sequential) THEN
+       ktindex_g(:)=ktindex_p(:)
+    ELSE
+       
+#ifdef CPP_MPI  
+       CALL MPI_GATHERV(ktindex_p,knon,MPI_INTEGER,ktindex_g,knon_nb,&
+            displs,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr)
+#endif
+       
+    ENDIF
+    
+    CALL Gather(pctsrf,pctsrf_g)
+    
+    IF (is_mpi_root) THEN
+!  Initialisation des offset    
+!
+! offset bord ouest
+       off_ini(1,1) = - nbp_lon  ; off_ini(2,1) = - nbp_lon + 1; off_ini(3,1) = 1
+       off_ini(4,1) = nbp_lon + 1; off_ini(5,1) = nbp_lon      ; off_ini(6,1) = 2 * nbp_lon - 1
+       off_ini(7,1) = nbp_lon -1 ; off_ini(8,1) = - 1
+! offset point normal
+       off_ini(1,2) = - nbp_lon  ; off_ini(2,2) = - nbp_lon + 1; off_ini(3,2) = 1
+       off_ini(4,2) = nbp_lon + 1; off_ini(5,2) = nbp_lon      ; off_ini(6,2) = nbp_lon - 1
+       off_ini(7,2) = -1     ; off_ini(8,2) = - nbp_lon - 1
+! offset bord   est
+       off_ini(1,3) = - nbp_lon; off_ini(2,3) = - 2 * nbp_lon + 1; off_ini(3,3) = - nbp_lon + 1
+       off_ini(4,3) =  1   ; off_ini(5,3) = nbp_lon          ; off_ini(6,3) = nbp_lon - 1
+       off_ini(7,3) = -1   ; off_ini(8,3) = - nbp_lon - 1
+!
+!
+! Attention aux poles
+!
+       DO igrid = 1, knon_g
+          index = ktindex_g(igrid)
+          jj = INT((index - 1)/nbp_lon) + 1
+          ij = index - (jj - 1) * nbp_lon
+          correspond(ij,jj) = igrid
+       ENDDO
+       
+       DO igrid = 1, knon_g
+          iglob = ktindex_g(igrid)
+          IF (MOD(iglob, nbp_lon) == 1) THEN
+             offset = off_ini(:,1)
+          ELSE IF(MOD(iglob, nbp_lon) == 0) THEN
+             offset = off_ini(:,3)
+          ELSE
+             offset = off_ini(:,2)
+          ENDIF
+          DO i = 1, 8
+             index = iglob + offset(i)
+             ireal = (MIN(MAX(1, index - nbp_lon + 1), klon_glo))
+             IF (pctsrf_g(ireal) > EPSFRA) THEN
+                jj = INT((index - 1)/nbp_lon) + 1
+                ij = index - (jj - 1) * nbp_lon
+                neighbours_g(igrid, i) = correspond(ij, jj)
+             ENDIF
+          ENDDO
+       ENDDO
+
+    ENDIF
+    
+    DO i=1,8
+       IF (is_sequential) THEN
+          neighbours(:,i)=neighbours_g(:,i)
+       ELSE
+#ifdef CPP_MPI
+          IF (knon > 0) THEN
+             ! knon>0, scattter global field neighbours_g from master process to local process
+             CALL MPI_SCATTERV(neighbours_g(:,i),knon_nb,displs,MPI_INTEGER,neighbours(:,i),knon,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr) 
+          ELSE
+             ! knon=0, no need to save the field for this process
+             CALL MPI_SCATTERV(neighbours_g(:,i),knon_nb,displs,MPI_INTEGER,var_tmp,knon,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr) 
+          END IF
+#endif
+       ENDIF
+    ENDDO
+    
+  END SUBROUTINE Init_neighbours
+!
+!****************************************************************************************
+!
+
+#endif
+END MODULE surf_land_orchidee_noopenmp_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_noz0h_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_noz0h_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_land_orchidee_noz0h_mod.F90	(revision 3330)
@@ -0,0 +1,671 @@
+!
+MODULE surf_land_orchidee_noz0h_mod
+#ifdef ORCHIDEE_NOZ0H
+!
+! This module controles the interface towards the model ORCHIDEE.
+!
+! Compatibility with ORCHIDIEE :
+! This module is compiled only if CPP key ORCHIDEE_NOZ0H is defined.
+! This version can be used with ORCHIDEE/trunk revision 2961-3525.
+! It is possible to use this interface with later versions of ORCHIDEE/trunk than 3525 but 
+! in that case the option ROUGH_DYN=y in ORCHIDEE should not be set. 
+! This interface can also be used with ORCHIDEE/trunk revision 1078-2960 if changing 
+! coszang=yrmu0 into sinang=yrmu0 at 2 places later below in this module. 
+!
+! Subroutines in this module : surf_land_orchidee
+!                              Init_orchidee_index
+!                              Get_orchidee_communicator
+!                              Init_neighbours
+
+  USE dimphy
+#ifdef CPP_VEGET
+  USE intersurf     ! module d'ORCHIDEE
+#endif
+  USE cpl_mod,      ONLY : cpl_send_land_fields
+  USE surface_data, ONLY : type_ocean
+  USE geometry_mod, ONLY : dx, dy
+  USE mod_grid_phy_lmdz
+  USE mod_phys_lmdz_para, mpi_root_rank=>mpi_master
+
+  IMPLICIT NONE
+
+  PRIVATE
+  PUBLIC  :: surf_land_orchidee
+
+  LOGICAL, ALLOCATABLE, SAVE :: flag_omp(:)
+CONTAINS
+!
+!****************************************************************************************
+!  
+  SUBROUTINE surf_land_orchidee(itime, dtime, date0, knon, &
+       knindex, rlon, rlat, yrmu0, pctsrf, &
+       debut, lafin, &
+       plev,  u1_lay, v1_lay, gustiness, temp_air, spechum, epot_air, ccanopy, & 
+       tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
+       precip_rain, precip_snow, lwdown, swnet, swdown, &
+       ps, q2m, t2m, &
+       evap, fluxsens, fluxlat, &              
+       tsol_rad, tsurf_new, alb1_new, alb2_new, &
+       emis_new, z0_new, z0h_new, qsurf)
+
+    USE mod_surf_para
+    USE mod_synchro_omp
+    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: lunout
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+#ifdef CPP_VEGET
+    USE time_phylmdz_mod, ONLY: itau_phy 
+#endif
+!    
+! Cette routine sert d'interface entre le modele atmospherique et le 
+! modele de sol continental. Appel a sechiba
+!
+! L. Fairhead 02/2000
+!
+! input:
+!   itime        numero du pas de temps
+!   dtime        pas de temps de la physique (en s)
+!   nisurf       index de la surface a traiter (1 = sol continental)
+!   knon         nombre de points de la surface a traiter
+!   knindex      index des points de la surface a traiter
+!   rlon         longitudes de la grille entiere
+!   rlat         latitudes de la grille entiere
+!   pctsrf       tableau des fractions de surface de chaque maille
+!   debut        logical: 1er appel a la physique (lire les restart)
+!   lafin        logical: dernier appel a la physique (ecrire les restart)
+!                     (si false calcul simplifie des fluxs sur les continents)
+!   plev         hauteur de la premiere couche (Pa)      
+!   u1_lay       vitesse u 1ere couche
+!   v1_lay       vitesse v 1ere couche
+!   temp_air     temperature de l'air 1ere couche
+!   spechum      humidite specifique 1ere couche
+!   epot_air     temp pot de l'air
+!   ccanopy      concentration CO2 canopee, correspond au co2_send de 
+!                carbon_cycle_mod ou valeur constant co2_ppm
+!   tq_cdrag     cdrag
+!   petAcoef     coeff. A de la resolution de la CL pour t
+!   peqAcoef     coeff. A de la resolution de la CL pour q
+!   petBcoef     coeff. B de la resolution de la CL pour t
+!   peqBcoef     coeff. B de la resolution de la CL pour q
+!   precip_rain  precipitation liquide
+!   precip_snow  precipitation solide
+!   lwdown       flux IR descendant a la surface
+!   swnet        flux solaire net
+!   swdown       flux solaire entrant a la surface
+!   ps           pression au sol
+!   radsol       rayonnement net aus sol (LW + SW)
+!   
+!
+! output:
+!   evap         evaporation totale
+!   fluxsens     flux de chaleur sensible
+!   fluxlat      flux de chaleur latente
+!   tsol_rad     
+!   tsurf_new    temperature au sol
+!   alb1_new     albedo in visible SW interval
+!   alb2_new     albedo in near IR interval
+!   emis_new     emissivite
+!   z0_new       surface roughness
+!   z0h_new      surface roughness, it is a copy from z0_new
+!   qsurf        air moisture at surface
+!
+    INCLUDE "YOMCST.h"
+  
+!
+! Parametres d'entree
+!****************************************************************************************
+    INTEGER, INTENT(IN)                       :: itime
+    REAL, INTENT(IN)                          :: dtime
+    REAL, INTENT(IN)                          :: date0
+    INTEGER, INTENT(IN)                       :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+    LOGICAL, INTENT(IN)                       :: debut, lafin
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)   :: pctsrf
+    REAL, DIMENSION(klon), INTENT(IN)         :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0 ! cosine of solar zenith angle
+    REAL, DIMENSION(klon), INTENT(IN)         :: plev
+    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)         :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)         :: epot_air, ccanopy
+    REAL, DIMENSION(klon), INTENT(IN)         :: tq_cdrag
+    REAL, DIMENSION(klon), INTENT(IN)         :: petAcoef, peqAcoef
+    REAL, DIMENSION(klon), INTENT(IN)         :: petBcoef, peqBcoef
+    REAL, DIMENSION(klon), INTENT(IN)         :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
+    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
+
+! Parametres de sortie
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0_new, z0h_new
+
+! Local
+!****************************************************************************************
+    INTEGER                                   :: ij, jj, igrid, ireal, index
+    INTEGER                                   :: error
+    REAL, DIMENSION(klon)                     :: swdown_vrai
+    CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
+    CHARACTER (len = 80)                      :: abort_message
+    LOGICAL,SAVE                              :: check = .FALSE.
+    !$OMP THREADPRIVATE(check)
+
+! type de couplage dans sechiba
+!  character (len=10)   :: coupling = 'implicit' 
+! drapeaux controlant les appels dans SECHIBA
+!  type(control_type), save   :: control_in
+! Preserved albedo
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: albedo_keep, zlev
+    !$OMP THREADPRIVATE(albedo_keep,zlev)
+! coordonnees geographiques
+    REAL, ALLOCATABLE, DIMENSION(:,:), SAVE   :: lalo
+    !$OMP THREADPRIVATE(lalo)
+! pts voisins
+    INTEGER,ALLOCATABLE, DIMENSION(:,:), SAVE :: neighbours
+    !$OMP THREADPRIVATE(neighbours)
+! fractions continents
+    REAL,ALLOCATABLE, DIMENSION(:), SAVE      :: contfrac
+    !$OMP THREADPRIVATE(contfrac)
+! resolution de la grille
+    REAL, ALLOCATABLE, DIMENSION (:,:), SAVE  :: resolution
+    !$OMP THREADPRIVATE(resolution)
+
+    REAL, ALLOCATABLE, DIMENSION (:,:), SAVE  :: lon_scat, lat_scat  
+    !$OMP THREADPRIVATE(lon_scat,lat_scat)
+
+    LOGICAL, SAVE                             :: lrestart_read = .TRUE.
+    !$OMP THREADPRIVATE(lrestart_read)
+    LOGICAL, SAVE                             :: lrestart_write = .FALSE.
+    !$OMP THREADPRIVATE(lrestart_write)
+
+    REAL, DIMENSION(knon,2)                   :: albedo_out
+
+! Pb de nomenclature
+    REAL, DIMENSION(klon)                     :: petA_orc, peqA_orc
+    REAL, DIMENSION(klon)                     :: petB_orc, peqB_orc
+! Pb de correspondances de grilles
+    INTEGER, DIMENSION(:), SAVE, ALLOCATABLE  :: ig, jg
+    !$OMP THREADPRIVATE(ig,jg)
+    INTEGER :: indi, indj
+    INTEGER, SAVE, ALLOCATABLE,DIMENSION(:)   :: ktindex
+    !$OMP THREADPRIVATE(ktindex)
+
+! Essai cdrag
+    REAL, DIMENSION(klon)                     :: cdrag
+    INTEGER,SAVE                              :: offset
+    !$OMP THREADPRIVATE(offset)
+
+    REAL, DIMENSION(klon_glo)                 :: rlon_g,rlat_g
+    INTEGER, SAVE                             :: orch_comm
+    !$OMP THREADPRIVATE(orch_comm)
+
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: coastalflow
+    !$OMP THREADPRIVATE(coastalflow)
+    REAL, ALLOCATABLE, DIMENSION(:), SAVE     :: riverflow
+    !$OMP THREADPRIVATE(riverflow)
+    
+    INTEGER :: orch_omp_rank
+    INTEGER :: orch_omp_size
+!
+! Fin definition
+!****************************************************************************************
+
+    IF (check) WRITE(lunout,*)'Entree ', modname
+  
+! Initialisation
+  
+    IF (debut) THEN
+! Test of coherence between variable ok_veget and cpp key CPP_VEGET
+#ifndef CPP_VEGET
+       abort_message='Pb de coherence: ok_veget = .true. mais CPP_VEGET = .false.'
+       CALL abort_physic(modname,abort_message,1)
+#endif
+
+       CALL Init_surf_para(knon)
+       ALLOCATE(ktindex(knon))
+       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
+!ym          ALLOCATE(albedo_keep(klon))
+!ym bizarre que non alloué en knon precedement
+          ALLOCATE(albedo_keep(knon))
+          ALLOCATE(zlev(knon))
+       ENDIF
+! Pb de correspondances de grilles
+       ALLOCATE(ig(klon))
+       ALLOCATE(jg(klon))
+       ig(1) = 1
+       jg(1) = 1
+       indi = 0
+       indj = 2
+       DO igrid = 2, klon - 1
+          indi = indi + 1
+          IF ( indi > nbp_lon) THEN
+             indi = 1
+             indj = indj + 1
+          ENDIF
+          ig(igrid) = indi
+          jg(igrid) = indj
+       ENDDO
+       ig(klon) = 1
+       jg(klon) = nbp_lat
+
+       IF ((.NOT. ALLOCATED(lalo))) THEN
+          ALLOCATE(lalo(knon,2), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lalo'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       IF ((.NOT. ALLOCATED(lon_scat))) THEN
+          ALLOCATE(lon_scat(nbp_lon,nbp_lat), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lon_scat'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       IF ((.NOT. ALLOCATED(lat_scat))) THEN
+          ALLOCATE(lat_scat(nbp_lon,nbp_lat), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation lat_scat'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       lon_scat = 0.
+       lat_scat = 0.
+       DO igrid = 1, knon
+          index = knindex(igrid)
+          lalo(igrid,2) = rlon(index)
+          lalo(igrid,1) = rlat(index)
+       ENDDO
+
+       
+       
+       CALL Gather(rlon,rlon_g)
+       CALL Gather(rlat,rlat_g)
+
+       IF (is_mpi_root) THEN
+          index = 1
+          DO jj = 2, nbp_lat-1
+             DO ij = 1, nbp_lon
+                index = index + 1
+                lon_scat(ij,jj) = rlon_g(index)
+                lat_scat(ij,jj) = rlat_g(index)
+             ENDDO
+          ENDDO
+          lon_scat(:,1) = lon_scat(:,2)
+          lat_scat(:,1) = rlat_g(1)
+          lon_scat(:,nbp_lat) = lon_scat(:,2)
+          lat_scat(:,nbp_lat) = rlat_g(klon_glo)
+       ENDIF
+   
+       CALL bcast(lon_scat)
+       CALL bcast(lat_scat)
+!
+! Allouer et initialiser le tableau des voisins et des fraction de continents
+!
+       IF ( (.NOT.ALLOCATED(neighbours))) THEN
+          ALLOCATE(neighbours(knon,8), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation neighbours'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       neighbours = -1.
+       IF (( .NOT. ALLOCATED(contfrac))) THEN
+          ALLOCATE(contfrac(knon), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation contfrac'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+
+       DO igrid = 1, knon
+          ireal = knindex(igrid)
+          contfrac(igrid) = pctsrf(ireal,is_ter)
+       ENDDO
+
+
+       CALL Init_neighbours(knon,neighbours,knindex,pctsrf(:,is_ter))
+
+!
+!  Allocation et calcul resolutions
+       IF ( (.NOT.ALLOCATED(resolution))) THEN
+          ALLOCATE(resolution(knon,2), stat = error)
+          IF (error /= 0) THEN
+             abort_message='Pb allocation resolution'
+             CALL abort_physic(modname,abort_message,1)
+          ENDIF
+       ENDIF
+       DO igrid = 1, knon
+          ij = knindex(igrid)
+          resolution(igrid,1) = dx(ij)
+          resolution(igrid,2) = dy(ij)
+       ENDDO
+     
+       ALLOCATE(coastalflow(klon), stat = error)
+       IF (error /= 0) THEN
+          abort_message='Pb allocation coastalflow'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+       
+       ALLOCATE(riverflow(klon), stat = error)
+       IF (error /= 0) THEN
+          abort_message='Pb allocation riverflow'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+!
+! carbon_cycle_cpl not possible with this interface and version of ORHCHIDEE
+!
+       IF (carbon_cycle_cpl) THEN
+          abort_message='carbon_cycle_cpl not yet possible with this interface of ORCHIDEE'
+          CALL abort_physic(modname,abort_message,1)
+       END IF
+       
+    ENDIF                          ! (fin debut) 
+ 
+
+! 
+! Appel a la routine sols continentaux
+!
+    IF (lafin) lrestart_write = .TRUE.
+    IF (check) WRITE(lunout,*)'lafin ',lafin,lrestart_write
+     
+    petA_orc(1:knon) = petBcoef(1:knon) * dtime
+    petB_orc(1:knon) = petAcoef(1:knon)
+    peqA_orc(1:knon) = peqBcoef(1:knon) * dtime
+    peqB_orc(1:knon) = peqAcoef(1:knon)
+
+    cdrag = 0.
+    cdrag(1:knon) = tq_cdrag(1:knon)
+
+! zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/287.05*temp_air(1:knon))*9.80665)
+!    zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/RD*temp_air(1:knon))*RG)
+     zlev(1:knon) = plev(1:knon)*RD*temp_air(1:knon)/((ps(1:knon)*100.0)*RG)
+
+
+! PF et PASB
+!   where(cdrag > 0.01) 
+!     cdrag = 0.01
+!   endwhere
+!  write(*,*)'Cdrag = ',minval(cdrag),maxval(cdrag)
+
+  
+    IF (debut) THEN
+       CALL Init_orchidee_index(knon,knindex,offset,ktindex)
+       CALL Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank)
+       CALL Init_synchro_omp
+       
+       IF (knon > 0) THEN
+#ifdef CPP_VEGET
+         CALL Init_intersurf(nbp_lon,nbp_lat,knon,ktindex,offset,orch_omp_size,orch_omp_rank,orch_comm)
+#endif
+       ENDIF
+
+       
+       IF (knon > 0) THEN
+
+#ifdef CPP_VEGET
+          CALL intersurf_main (itime+itau_phy-1, nbp_lon, nbp_lat, knon, ktindex, dtime, &
+               lrestart_read, lrestart_write, lalo, &
+               contfrac, neighbours, resolution, date0, &
+               zlev,  u1_lay, v1_lay, spechum, temp_air, epot_air, ccanopy, &
+               cdrag, petA_orc, peqA_orc, petB_orc, peqB_orc, &
+               precip_rain, precip_snow, lwdown, swnet, swdown, ps, &
+               evap, fluxsens, fluxlat, coastalflow, riverflow, &
+               tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
+               lon_scat, lat_scat, q2m, t2m, coszang=yrmu0)
+#endif         
+       ENDIF
+
+       CALL Synchro_omp
+
+       albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+
+    ENDIF
+
+    
+!  swdown_vrai(1:knon) = swnet(1:knon)/(1. - albedo_keep(1:knon))
+    swdown_vrai(1:knon) = swdown(1:knon)
+
+    IF (knon > 0) THEN
+#ifdef CPP_VEGET    
+       CALL intersurf_main (itime+itau_phy, nbp_lon, nbp_lat, knon, ktindex, dtime,  &
+            lrestart_read, lrestart_write, lalo, &
+            contfrac, neighbours, resolution, date0, &
+            zlev,  u1_lay(1:knon), v1_lay(1:knon), spechum(1:knon), temp_air(1:knon), epot_air(1:knon), ccanopy(1:knon), &
+            cdrag(1:knon), petA_orc(1:knon), peqA_orc(1:knon), petB_orc(1:knon), peqB_orc(1:knon), &
+            precip_rain(1:knon), precip_snow(1:knon), lwdown(1:knon), swnet(1:knon), swdown_vrai(1:knon), ps(1:knon), &
+            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
+            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
+            lon_scat, lat_scat, q2m, t2m, coszang=yrmu0(1:knon))
+#endif       
+    ENDIF
+    z0h_new(:)=z0_new(:)
+
+    CALL Synchro_omp
+    
+    albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+
+!* Send to coupler
+!
+    IF (type_ocean=='couple') THEN
+       CALL cpl_send_land_fields(itime, knon, knindex, &
+            riverflow, coastalflow)
+    ENDIF
+
+    alb1_new(1:knon) = albedo_out(1:knon,1) 
+    alb2_new(1:knon) = albedo_out(1:knon,2)
+
+! Convention orchidee: positif vers le haut
+    fluxsens(1:knon) = -1. * fluxsens(1:knon)
+    fluxlat(1:knon)  = -1. * fluxlat(1:knon)
+    
+!  evap     = -1. * evap
+
+    IF (debut) lrestart_read = .FALSE.
+    
+    IF (debut) CALL Finalize_surf_para
+
+    
+  END SUBROUTINE surf_land_orchidee
+!
+!****************************************************************************************
+!
+  SUBROUTINE Init_orchidee_index(knon,knindex,offset,ktindex)
+  USE mod_surf_para
+  USE mod_grid_phy_lmdz
+  
+    INTEGER,INTENT(IN)    :: knon
+    INTEGER,INTENT(IN)    :: knindex(klon)    
+    INTEGER,INTENT(OUT)   :: offset
+    INTEGER,INTENT(OUT)   :: ktindex(klon)
+    
+    INTEGER               :: ktindex_glo(knon_glo)
+    INTEGER               :: offset_para(0:omp_size*mpi_size-1)
+    INTEGER               :: LastPoint
+    INTEGER               :: task
+    
+    ktindex(1:knon)=knindex(1:knon)+(klon_mpi_begin-1)+(klon_omp_begin-1)+nbp_lon-1
+    
+    CALL gather_surf(ktindex(1:knon),ktindex_glo) 
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      LastPoint=0
+      DO Task=0,mpi_size*omp_size-1
+        IF (knon_glo_para(Task)>0) THEN
+           offset_para(task)= LastPoint-MOD(LastPoint,nbp_lon)
+           LastPoint=ktindex_glo(knon_glo_end_para(task))
+        ENDIF
+      ENDDO
+    ENDIF
+    
+    CALL bcast(offset_para)
+    
+    offset=offset_para(omp_size*mpi_rank+omp_rank)
+    
+    ktindex(1:knon)=ktindex(1:knon)-offset
+
+  END SUBROUTINE Init_orchidee_index
+
+!
+!************************* ***************************************************************
+! 
+
+  SUBROUTINE Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank)
+  USE  mod_surf_para
+      
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+    INTEGER,INTENT(OUT) :: orch_comm
+    INTEGER,INTENT(OUT) :: orch_omp_size
+    INTEGER,INTENT(OUT) :: orch_omp_rank
+    INTEGER             :: color
+    INTEGER             :: i,ierr
+!
+! End definition
+!****************************************************************************************
+    
+    
+    IF (is_omp_root) THEN          
+      
+      IF (knon_mpi==0) THEN 
+         color = 0
+      ELSE 
+         color = 1
+      ENDIF
+    
+#ifdef CPP_MPI    
+      CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
+#endif
+    
+    ENDIF
+    CALL bcast_omp(orch_comm)
+    
+    IF (knon_mpi /= 0) THEN
+      orch_omp_size=0
+      DO i=0,omp_size-1
+        IF (knon_omp_para(i) /=0) THEN
+          orch_omp_size=orch_omp_size+1
+          IF (i==omp_rank) orch_omp_rank=orch_omp_size-1
+        ENDIF
+      ENDDO
+    ENDIF
+   
+    
+  END SUBROUTINE Get_orchidee_communicator
+!
+!****************************************************************************************
+!  
+
+  SUBROUTINE Init_neighbours(knon,neighbours,knindex,pctsrf)
+    USE mod_grid_phy_lmdz
+    USE mod_surf_para    
+    USE indice_sol_mod
+
+#ifdef CPP_MPI
+    INCLUDE 'mpif.h'
+#endif    
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                     :: knon
+    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    REAL, DIMENSION(klon), INTENT(IN)       :: pctsrf
+    
+! Output arguments
+!****************************************************************************************
+    INTEGER, DIMENSION(knon,8), INTENT(OUT) :: neighbours
+
+! Local variables
+!****************************************************************************************
+    INTEGER                              :: i, igrid, jj, ij, iglob
+    INTEGER                              :: ierr, ireal, index
+    INTEGER, DIMENSION(8,3)              :: off_ini
+    INTEGER, DIMENSION(8)                :: offset  
+    INTEGER, DIMENSION(nbp_lon,nbp_lat)  :: correspond
+    INTEGER, DIMENSION(knon_glo)         :: ktindex_glo
+    INTEGER, DIMENSION(knon_glo,8)       :: neighbours_glo
+    REAL, DIMENSION(klon_glo)            :: pctsrf_glo
+    INTEGER                              :: ktindex(klon)
+!
+! End definition
+!****************************************************************************************
+
+    ktindex(1:knon)=knindex(1:knon)+(klon_mpi_begin-1)+(klon_omp_begin-1)+nbp_lon-1
+    
+    CALL gather_surf(ktindex(1:knon),ktindex_glo)
+    CALL gather(pctsrf,pctsrf_glo)
+    
+    IF (is_mpi_root .AND. is_omp_root) THEN
+      neighbours_glo(:,:)=-1
+!  Initialisation des offset    
+!
+! offset bord ouest
+       off_ini(1,1) = - nbp_lon   ; off_ini(2,1) = - nbp_lon + 1     ; off_ini(3,1) = 1
+       off_ini(4,1) = nbp_lon + 1 ; off_ini(5,1) = nbp_lon           ; off_ini(6,1) = 2 * nbp_lon - 1
+       off_ini(7,1) = nbp_lon -1  ; off_ini(8,1) = - 1 
+! offset point normal
+       off_ini(1,2) = - nbp_lon   ; off_ini(2,2) = - nbp_lon + 1     ; off_ini(3,2) = 1
+       off_ini(4,2) = nbp_lon + 1 ; off_ini(5,2) = nbp_lon           ; off_ini(6,2) = nbp_lon - 1
+       off_ini(7,2) = -1          ; off_ini(8,2) = - nbp_lon - 1
+! offset bord   est
+       off_ini(1,3) = - nbp_lon   ; off_ini(2,3) = - 2 * nbp_lon + 1 ; off_ini(3,3) = - nbp_lon + 1
+       off_ini(4,3) =  1          ; off_ini(5,3) = nbp_lon           ; off_ini(6,3) = nbp_lon - 1
+       off_ini(7,3) = -1          ; off_ini(8,3) = - nbp_lon - 1
+!
+!
+! Attention aux poles
+!
+       DO igrid = 1, knon_glo
+          index = ktindex_glo(igrid)
+          jj = INT((index - 1)/nbp_lon) + 1
+          ij = index - (jj - 1) * nbp_lon
+          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
+          iglob = ktindex_glo(igrid)
+          
+          IF (MOD(iglob, nbp_lon) == 1) THEN
+             offset = off_ini(:,1)
+          ELSE IF(MOD(iglob, nbp_lon) == 0) THEN
+             offset = off_ini(:,3)
+          ELSE
+             offset = off_ini(:,2)
+          ENDIF
+          
+          DO i = 1, 8
+             index = iglob + offset(i)
+             ireal = (MIN(MAX(1, index - nbp_lon + 1), klon_glo))
+             IF (pctsrf_glo(ireal) > EPSFRA) THEN
+                jj = INT((index - 1)/nbp_lon) + 1
+                ij = index - (jj - 1) * nbp_lon
+                neighbours_glo(igrid, i) = correspond(ij, jj)
+             ENDIF
+          ENDDO
+       ENDDO
+       ENDIF !fin knon_glo == 1
+
+    ENDIF
+    
+    DO i = 1, 8
+      CALL scatter_surf(neighbours_glo(:,i),neighbours(1:knon,i))
+    ENDDO
+  END SUBROUTINE Init_neighbours
+
+!
+!****************************************************************************************
+!
+#endif
+END MODULE surf_land_orchidee_noz0h_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_landice_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_landice_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_landice_mod.F90	(revision 3330)
@@ -0,0 +1,360 @@
+!
+MODULE surf_landice_mod
+  
+  IMPLICIT NONE
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE surf_landice(itime, dtime, knon, knindex, &
+       rlon, rlat, debut, lafin, &
+       rmu0, lwdownm, albedo, pphi1, &
+       swnet, lwnet, tsurf, p1lay, &
+       cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, rugoro, pctsrf, &
+       snow, qsurf, qsol, agesno, &
+       tsoil, z0m, z0h, SFRWL, alb_dir, alb_dif, evap, fluxsens, fluxlat, &
+       tsurf_new, dflux_s, dflux_l, &
+       slope, cloudf, &
+       snowhgt, qsnow, to_ice, sissnow, &
+       alb3, runoff, &
+       flux_u1, flux_v1)
+
+    USE dimphy
+    USE surface_data,     ONLY : type_ocean, calice, calsno, ok_snow
+    USE fonte_neige_mod,  ONLY : fonte_neige, run_off_lic
+    USE cpl_mod,          ONLY : cpl_send_landice_fields
+    USE calcul_fluxs_mod
+    USE phys_output_var_mod
+#ifdef CPP_SISVAT
+    USE surf_sisvat_mod,  ONLY : surf_sisvat
+#endif
+    USE indice_sol_mod
+
+!    INCLUDE "indicesol.h"
+    INCLUDE "dimsoil.h"
+    INCLUDE "YOMCST.h"
+    INCLUDE "clesphys.h"
+
+! Input variables 
+!****************************************************************************************
+    INTEGER, INTENT(IN)                           :: itime, knon
+    INTEGER, DIMENSION(klon), INTENT(in)          :: knindex
+    REAL, INTENT(in)                              :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)             :: swnet ! net shortwave radiance
+    REAL, DIMENSION(klon), INTENT(IN)             :: lwnet ! net longwave radiance
+    REAL, DIMENSION(klon), INTENT(IN)             :: tsurf
+    REAL, DIMENSION(klon), INTENT(IN)             :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)             :: cdragh, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)             :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)             :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)             :: AcoefH, AcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)             :: BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)             :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)             :: ps
+    REAL, DIMENSION(klon), INTENT(IN)             :: u1, v1, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)             :: rugoro
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)       :: pctsrf
+
+    LOGICAL,  INTENT(IN)                          :: debut   !true if first step
+    LOGICAL,  INTENT(IN)                          :: lafin   !true if last step
+    REAL, DIMENSION(klon), INTENT(IN)             :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)             :: rmu0
+    REAL, DIMENSION(klon), INTENT(IN)             :: lwdownm !ylwdown
+    REAL, DIMENSION(klon), INTENT(IN)             :: albedo  !mean albedo
+    REAL, DIMENSION(klon), INTENT(IN)             :: pphi1    
+    REAL, DIMENSION(klon), INTENT(IN)             :: slope   !mean slope in grid box  
+    REAL, DIMENSION(klon), INTENT(IN)             :: cloudf  !total cloud fraction
+
+! In/Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: snow, qsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: agesno
+    REAL, DIMENSION(klon, nsoilmx), INTENT(INOUT) :: tsoil
+
+! Output variables
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)            :: qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)            :: z0m, z0h
+!albedo SB >>>
+!    REAL, DIMENSION(klon), INTENT(OUT)            :: alb1  ! new albedo in visible SW interval
+!    REAL, DIMENSION(klon), INTENT(OUT)            :: alb2  ! new albedo in near IR interval
+    REAL, DIMENSION(6), INTENT(IN)              ::SFRWL
+    REAL, DIMENSION(klon,nsw), INTENT(OUT)        ::alb_dir,alb_dif
+!albedo SB <<<
+    REAL, DIMENSION(klon), INTENT(OUT)            :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)            :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)            :: dflux_s, dflux_l      
+    REAL, DIMENSION(klon), INTENT(OUT)            :: flux_u1, flux_v1
+
+    REAL, DIMENSION(klon), INTENT(OUT)           :: alb3
+    REAL, DIMENSION(klon), INTENT(OUT)           :: qsnow   !column water in snow [kg/m2]
+    REAL, DIMENSION(klon), INTENT(OUT)           :: snowhgt !Snow height (m)
+    REAL, DIMENSION(klon), INTENT(OUT)           :: to_ice
+    REAL, DIMENSION(klon), INTENT(OUT)           :: sissnow
+    REAL, DIMENSION(klon), INTENT(OUT)           :: runoff  !Land ice runoff
+ 
+
+! Local variables
+!****************************************************************************************
+    REAL, DIMENSION(klon)    :: soilcap, soilflux
+    REAL, DIMENSION(klon)    :: cal, beta, dif_grnd
+    REAL, DIMENSION(klon)    :: zfra, alb_neig
+    REAL, DIMENSION(klon)    :: radsol
+    REAL, DIMENSION(klon)    :: u0, v0, u1_lay, v1_lay
+    INTEGER                  :: i,j
+
+    REAL, DIMENSION(klon)    :: emis_new                  !Emissivity
+    REAL, DIMENSION(klon)    :: swdown,lwdown
+    REAL, DIMENSION(klon)    :: precip_snow_adv, snow_adv !Snow Drift precip./advection
+    REAL, DIMENSION(klon)    :: bl_height, wind_velo      !height boundary layer, wind spd
+    REAL, DIMENSION(klon)    :: dens_air,  snow_cont_air  !air density; snow content air
+    REAL, DIMENSION(klon)    :: alb_soil                  !albedo of underlying ice
+    REAL, DIMENSION(klon)    :: pexner                    !Exner potential
+    REAL                     :: pref
+    REAL, DIMENSION(klon,nsoilmx) :: tsoil0 !modfi
+
+    CHARACTER (len = 20)                      :: modname = 'surf_landice'
+    CHARACTER (len = 80)                      :: abort_message
+
+!albedo SB >>>
+    real,dimension(klon) :: alb1,alb2
+!albedo SB <<<
+
+! End definition
+!****************************************************************************************
+!
+! Initialize output variables
+    alb3(:) = 999999.
+    alb2(:) = 999999.
+    alb1(:) = 999999.
+    
+    runoff(:) = 0.
+!****************************************************************************************
+! Calculate total absorbed radiance at surface
+!
+!****************************************************************************************
+    radsol(:) = 0.0
+    radsol(1:knon) = swnet(1:knon) + lwnet(1:knon)
+
+!****************************************************************************************
+!   ok_snow = TRUE  : prepare and call SISVAT snow model
+!   ok_snow = FALSE : soil_model, calcul_flux, fonte_neige, ... 
+!
+!****************************************************************************************
+    IF (ok_snow) THEN
+#ifdef CPP_SISVAT
+       ! Prepare for calling SISVAT
+       
+       ! Calculate incoming flux for SW and LW interval: swdown, lwdown
+       swdown(:)        = 0.0
+       lwdown(:)        = 0.0
+       DO i = 1, knon
+          swdown(i)        = swnet(i)/(1-albedo(i))
+          lwdown(i)        = lwdownm(i)
+       END DO
+       
+       ! Set constants and compute some input for SISVAT
+       snow_adv(:)      = 0.                          ! no snow blown in for now
+       snow_cont_air(:) = 0.       
+       alb_soil(:)      = albedo(:)
+       pref             = 100000.                     ! = 1000 hPa
+       DO i = 1, knon
+          wind_velo(i)     = u1(i)**2 + v1(i)**2
+          wind_velo(i)     = wind_velo(i)**0.5
+          pexner(i)        = (p1lay(i)/pref)**(RD/RCPD)
+          dens_air(i)      = p1lay(i)/RD/temp_air(i)  ! dry air density
+          bl_height(i)     = pphi1(i)/RG              
+       END DO
+
+!****************************************************************************************
+! CALL to SISVAT interface
+!
+!****************************************************************************************
+       ! config: compute everything with SV but temperatures afterwards with soil/calculfluxs
+       DO i = 1, knon
+          tsoil0(i,:)=tsoil(i,:)
+       END DO
+           ! Martin
+           PRINT*, 'on appelle surf_sisvat'
+           ! Martin
+       CALL surf_sisvat(knon, rlon, rlat, knindex, itime, dtime, debut, lafin, &
+            rmu0, swdown, lwdown, pexner, ps, p1lay, &
+            precip_rain, precip_snow, precip_snow_adv, snow_adv, &
+            bl_height, wind_velo, temp_air, dens_air, spechum, tsurf, &
+            rugoro, snow_cont_air, alb_soil, slope, cloudf, &
+            radsol, qsol, tsoil0, snow, snowhgt, qsnow, to_ice,sissnow, agesno, &
+            AcoefH, AcoefQ, BcoefH, BcoefQ, cdragh, &
+            run_off_lic, evap, fluxsens, fluxlat, dflux_s, dflux_l, &        
+            tsurf_new, alb1, alb2, alb3, &
+            emis_new, z0m, qsurf)
+       z0h(1:knon)=z0m(1:knon) ! en attendant mieux
+       
+       ! Suppose zero surface speed
+       u0(:)            = 0.0
+       v0(:)            = 0.0
+       ! The calculation of heat/water fluxes, otherwise done by "CALL calcul_fluxs" is 
+       ! integrated in SISVAT, using the same method. It can be found in "sisvat.f", in the
+       ! subroutine "SISVAT_TS2". 
+       ! u0, v0=0., dif_grnd=0. and beta=1 are assumed there! 
+       
+       CALL calcul_flux_wind(knon, dtime, &
+            u0, v0, u1, v1, gustiness, cdragm, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            p1lay, temp_air, &
+            flux_u1, flux_v1)
+#else
+       abort_message='Pb de coherence: ok_snow = .true. mais CPP_SISVAT = .false.'
+       CALL abort_physic(modname,abort_message,1)
+#endif
+    ELSE ! ok_snow=FALSE
+
+!****************************************************************************************
+! Soil calculations
+! 
+!****************************************************************************************
+    IF (soil_model) THEN 
+       CALL soil(dtime, is_lic, knon, snow, tsurf, tsoil, soilcap, soilflux)
+       cal(1:knon) = RCPD / soilcap(1:knon)
+       radsol(1:knon)  = radsol(1:knon) + soilflux(1:knon)
+    ELSE 
+       cal = RCPD * calice
+       WHERE (snow > 0.0) cal = RCPD * calsno
+    ENDIF
+
+
+!****************************************************************************************
+! Calulate fluxes
+!
+!****************************************************************************************
+    beta(:) = 1.0
+    dif_grnd(:) = 0.0
+
+! Suppose zero surface speed
+    u0(:)=0.0
+    v0(:)=0.0
+    u1_lay(:) = u1(:) - u0(:)
+    v1_lay(:) = v1(:) - v0(:)
+
+    CALL calcul_fluxs(knon, is_lic, dtime, &
+         tsurf, p1lay, cal, beta, cdragh, cdragh, ps, &
+         precip_rain, precip_snow, snow, qsurf,  &
+         radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, &
+         1.,AcoefH, AcoefQ, BcoefH, BcoefQ, &
+         tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
+
+    CALL calcul_flux_wind(knon, dtime, &
+         u0, v0, u1, v1, gustiness, cdragm, &
+         AcoefU, AcoefV, BcoefU, BcoefV, &
+         p1lay, temp_air, &
+         flux_u1, flux_v1)
+
+!****************************************************************************************
+! Calculate snow height, age, run-off,..
+!    
+!****************************************************************************************
+    CALL fonte_neige( knon, is_lic, knindex, dtime, &
+         tsurf, precip_rain, precip_snow, &
+         snow, qsol, tsurf_new, evap)
+
+
+!****************************************************************************************
+! Calculate albedo
+!
+!****************************************************************************************
+    CALL albsno(klon,knon,dtime,agesno(:),alb_neig(:), precip_snow(:))  
+    WHERE (snow(1 : knon) .LT. 0.0001) agesno(1 : knon) = 0.
+    zfra(1:knon) = MAX(0.0,MIN(1.0,snow(1:knon)/(snow(1:knon)+10.0)))
+    alb1(1:knon) = alb_neig(1:knon)*zfra(1:knon) + &
+         0.6 * (1.0-zfra(1:knon))
+!
+!IM: plusieurs choix/tests sur l'albedo des "glaciers continentaux"
+!       alb1(1 : knon)  = 0.6 !IM cf FH/GK 
+!       alb1(1 : knon)  = 0.82
+!       alb1(1 : knon)  = 0.77 !211003 Ksta0.77
+!       alb1(1 : knon)  = 0.8 !KstaTER0.8 & LMD_ARMIP5
+!IM: KstaTER0.77 & LMD_ARMIP6    
+
+! Attantion: alb1 and alb2 are the same!
+    alb1(1:knon)  = 0.77
+    alb2(1:knon)  = alb1(1:knon)
+
+
+!****************************************************************************************
+! Rugosity
+!
+!****************************************************************************************
+    z0m=1.e-3
+    z0h = z0m
+    z0m = SQRT(z0m**2+rugoro**2)
+
+    END IF ! ok_snow
+
+
+!****************************************************************************************
+! Send run-off on land-ice to coupler if coupled ocean.
+! run_off_lic has been calculated in fonte_neige or surf_sisvat
+!
+!****************************************************************************************
+    IF (type_ocean=='couple') THEN
+       CALL cpl_send_landice_fields(itime, knon, knindex, run_off_lic)
+    ENDIF
+
+ ! transfer runoff rate [kg/m2/s](!) to physiq for output
+    runoff(1:knon)=run_off_lic(1:knon)/dtime
+
+  
+!****************************************************************************************
+       snow_o=0.
+       zfra_o = 0.
+       DO j = 1, knon
+           i = knindex(j)
+           snow_o(i) = snow(j) 
+           zfra_o(i) = zfra(j)
+       ENDDO
+
+!****************************************************************************************
+       snow_o=0.
+       zfra_o = 0.
+       DO j = 1, knon
+           i = knindex(j)
+           snow_o(i) = snow(j)
+           zfra_o(i) = zfra(j)
+       ENDDO
+
+
+!albedo SB >>>
+     select case(NSW)
+     case(2)
+       alb_dir(1:knon,1)=alb1(1:knon)
+       alb_dir(1:knon,2)=alb2(1:knon)
+     case(4)
+       alb_dir(1:knon,1)=alb1(1:knon)
+       alb_dir(1:knon,2)=alb2(1:knon)
+       alb_dir(1:knon,3)=alb2(1:knon)
+       alb_dir(1:knon,4)=alb2(1:knon)
+     case(6)
+       alb_dir(1:knon,1)=alb1(1:knon)
+       alb_dir(1:knon,2)=alb1(1:knon)
+       alb_dir(1:knon,3)=alb1(1:knon)
+       alb_dir(1:knon,4)=alb2(1:knon)
+       alb_dir(1:knon,5)=alb2(1:knon)
+       alb_dir(1:knon,6)=alb2(1:knon)
+     end select
+alb_dif=alb_dir
+!albedo SB <<<
+
+
+
+
+  END SUBROUTINE surf_landice
+!
+!****************************************************************************************
+!
+END MODULE surf_landice_mod
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_ocean_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_ocean_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_ocean_mod.F90	(revision 3330)
@@ -0,0 +1,261 @@
+!
+! $Id$
+!
+MODULE surf_ocean_mod
+
+  IMPLICIT NONE
+
+CONTAINS
+!
+!******************************************************************************
+!
+  SUBROUTINE surf_ocean(rlon, rlat, swnet, lwnet, alb1, &
+       windsp, rmu0, fder, tsurf_in, &
+       itime, dtime, jour, knon, knindex, &
+       p1lay, z1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, rugoro, pctsrf, &
+       snow, qsurf, agesno, &
+       z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, & 
+       tsurf_new, dflux_s, dflux_l, lmt_bils, &
+       flux_u1, flux_v1)
+
+  use albedo, only: alboc, alboc_cd
+  USE dimphy, ONLY: klon, zmasq
+  USE surface_data, ONLY     : type_ocean
+  USE ocean_forced_mod, ONLY : ocean_forced_noice
+  USE ocean_slab_mod, ONLY   : ocean_slab_noice
+  USE ocean_cpl_mod, ONLY    : ocean_cpl_noice
+  USE indice_sol_mod, ONLY : nbsrf, is_oce
+!
+! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 
+! slab or couple). The calculations of albedo and rugosity for the ocean surface are 
+! done in here because they are identical for the different modes of ocean. 
+
+
+    INCLUDE "YOMCST.h"
+
+    include "clesphys.h"
+    ! for cycle_diurne and for iflag_z0_oce==-1 (prescribed z0)
+
+! Input variables
+!******************************************************************************
+    INTEGER, INTENT(IN)                      :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)     :: knindex
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)        :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)        :: swnet  ! net shortwave radiation at surface  
+    REAL, DIMENSION(klon), INTENT(IN)        :: lwnet  ! net longwave radiation at surface  
+    REAL, DIMENSION(klon), INTENT(IN)        :: alb1   ! albedo in visible SW interval
+    REAL, DIMENSION(klon), INTENT(IN)        :: windsp
+    REAL, DIMENSION(klon), INTENT(IN)        :: rmu0  
+    REAL, DIMENSION(klon), INTENT(IN)        :: fder
+    REAL, DIMENSION(klon), INTENT(IN)        :: tsurf_in
+    REAL, DIMENSION(klon), INTENT(IN)        :: p1lay,z1lay ! pression (Pa) et altitude (m) du premier niveau
+    REAL, DIMENSION(klon), INTENT(IN)        :: cdragh
+    REAL, DIMENSION(klon), INTENT(IN)        :: cdragm
+    REAL, DIMENSION(klon), INTENT(IN)        :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)        :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)        :: ps
+    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
+    REAL, DIMENSION(klon), INTENT(IN)        :: rugoro
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)  :: pctsrf
+
+! In/Output variables
+!******************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: snow
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: qsurf
+    REAL, DIMENSION(klon), INTENT(INOUT)     :: agesno
+
+! Output variables
+!******************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: z0m, z0h
+!albedo SB >>>
+!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new  ! new albedo in visible SW interval
+!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb2_new  ! new albedo in near IR interval
+    REAL, DIMENSION(6), INTENT(IN)          :: SFRWL 
+    REAL, DIMENSION(klon,nsw), INTENT(OUT)       :: alb_dir_new,alb_dif_new
+!albedo SB <<<     
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
+    REAL, DIMENSION(klon), INTENT(OUT)       :: lmt_bils
+    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1
+
+! Local variables
+!******************************************************************************
+    INTEGER               :: i, k
+    REAL                  :: tmp
+    REAL, PARAMETER       :: cepdu2=(0.1)**2
+    REAL, DIMENSION(klon) :: alb_eau
+    REAL, DIMENSION(klon) :: radsol
+    REAL, DIMENSION(klon) :: cdragq ! Cdrag pour l'evaporation
+    CHARACTER(len=20),PARAMETER :: modname="surf_ocean"
+
+! End definition
+!******************************************************************************
+
+
+!******************************************************************************
+! Calculate total net radiance at surface
+!
+!******************************************************************************
+    radsol(:) = 0.0
+    radsol(1:knon) = swnet(1:knon) + lwnet(1:knon)
+
+!******************************************************************************
+! Cdragq computed from cdrag
+! The difference comes only from a factor (f_z0qh_oce) on z0, so that
+! it can be computed inside surf_ocean
+! More complicated appraches may require the propagation through
+! pbl_surface of an independant cdragq variable.
+!******************************************************************************
+
+    IF ( f_z0qh_oce .ne. 1.) THEN
+! Si on suit les formulations par exemple de Tessel, on 
+! a z0h=0.4*nu/u*, z0q=0.62*nu/u*, d'ou f_z0qh_oce=0.62/0.4=1.55
+       cdragq(:)=cdragh(:)*                                      &
+       log(z1lay(:)/z0h(:))/log(z1lay(:)/(f_z0qh_oce*z0h(:)))
+    ELSE
+       cdragq(:)=cdragh(:)
+    ENDIF
+
+!******************************************************************************
+! Switch according to type of ocean (couple, slab or forced)
+!******************************************************************************
+    SELECT CASE(type_ocean)
+    CASE('couple')
+       CALL ocean_cpl_noice( &
+            swnet, lwnet, alb1, &
+            windsp, fder, & 
+            itime, dtime, knon, knindex, &
+            p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow,temp_air,spechum,& 
+            AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            ps, u1, v1, gustiness, &
+            radsol, snow, agesno, &
+            qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+            tsurf_new, dflux_s, dflux_l)
+
+    CASE('slab')
+       CALL ocean_slab_noice( &
+            itime, dtime, jour, knon, knindex, &
+            p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, temp_air, spechum,&
+            AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            ps, u1, v1, gustiness, tsurf_in, &
+            radsol, snow, &
+            qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+            tsurf_new, dflux_s, dflux_l, lmt_bils)
+       
+    CASE('force')
+       CALL ocean_forced_noice( &
+            itime, dtime, jour, knon, knindex, &
+            p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, &
+            temp_air, spechum, &
+            AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            ps, u1, v1, gustiness, &
+            radsol, snow, agesno, &
+            qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+            tsurf_new, dflux_s, dflux_l)
+    END SELECT
+
+!******************************************************************************
+! fcodron: compute lmt_bils  forced case (same as wfbils_oce / 1.-contfracatm)
+!******************************************************************************
+    IF (type_ocean.NE.'slab') THEN
+        lmt_bils(:)=0.
+        DO i=1,knon
+           lmt_bils(knindex(i))=(swnet(i)+lwnet(i)+fluxsens(i)+fluxlat(i)) &
+           *pctsrf(knindex(i),is_oce)/(1.-zmasq(knindex(i))) 
+        END DO
+    END IF
+
+!******************************************************************************
+! Calculate ocean surface albedo
+!******************************************************************************
+!albedo SB >>>
+IF (iflag_albedo==0) THEN
+!--old parametrizations of ocean surface albedo
+!
+    IF (cycle_diurne) THEN
+!
+       CALL alboc_cd(rmu0,alb_eau)
+!
+!--ad-hoc correction for model radiative balance tuning
+!--now outside alboc_cd routine
+       alb_eau(:) = fmagic*alb_eau(:) + pmagic
+       alb_eau=MIN(MAX(alb_eau,0.0),1.0)
+!
+    ELSE
+!
+       CALL alboc(REAL(jour),rlat,alb_eau)
+!--ad-hoc correction for model radiative balance tuning
+!--now outside alboc routine
+       alb_eau(:) = fmagic*alb_eau(:) + pmagic
+       alb_eau=MIN(MAX(alb_eau(i),0.04),0.60)
+!
+    ENDIF
+!
+    DO i =1, knon
+      DO  k=1,nsw
+       alb_dir_new(i,k) = alb_eau(knindex(i))
+      ENDDO
+    ENDDO
+!IM 09122015 next line corresponds to the old way of doing in LMDZ5A/IPSLCM5A versions 
+!albedo for diffuse radiation is taken the same as for direct radiation
+     alb_dif_new=alb_dir_new
+!IM 09122015 end
+!
+ELSE IF (iflag_albedo==1) THEN
+!--new parametrization of ocean surface albedo by Sunghye Baek
+!--albedo for direct and diffuse radiation are different
+!
+    CALL ocean_albedo(knon,rmu0,knindex,windsp,SFRWL,alb_dir_new,alb_dif_new)
+!
+!--ad-hoc correction for model radiative balance tuning
+    alb_dir_new(:,:) = fmagic*alb_dir_new(:,:) + pmagic
+    alb_dir_new=MIN(MAX(alb_dir_new,0.0),1.0)
+    alb_dif_new=MIN(MAX(alb_dif_new,0.0),1.0)
+!
+ENDIF
+!albedo SB <<<
+
+!******************************************************************************
+! Calculate the rugosity
+!******************************************************************************
+IF (iflag_z0_oce==0) THEN
+    DO i = 1, knon
+       tmp = MAX(cepdu2,gustiness(i)+u1(i)**2+v1(i)**2)
+       z0m(i) = 0.018*cdragm(i) * (gustiness(i)+u1(i)**2+v1(i)**2)/RG  &
+            +  0.11*14e-6 / SQRT(cdragm(i) * tmp)
+       z0m(i) = MAX(1.5e-05,z0m(i))
+    ENDDO   
+    z0h(1:knon)=z0m(1:knon) ! En attendant mieux
+
+ELSE IF (iflag_z0_oce==1) THEN
+    DO i = 1, knon
+       tmp = MAX(cepdu2,gustiness(i)+u1(i)**2+v1(i)**2)
+       z0m(i) = 0.018*cdragm(i) * (gustiness(i)+u1(i)**2+v1(i)**2)/RG  &
+            + 0.11*14e-6 / SQRT(cdragm(i) * tmp)
+       z0m(i) = MAX(1.5e-05,z0m(i))
+       z0h(i)=0.4*14e-6 / SQRT(cdragm(i) * tmp)
+    ENDDO
+ELSE IF (iflag_z0_oce==-1) THEN
+    DO i = 1, knon
+       z0m(i) = z0min
+       z0h(i) = z0min
+    ENDDO
+ELSE
+       CALL abort_physic(modname,'version non prevue',1)
+ENDIF
+!
+!******************************************************************************
+  END SUBROUTINE surf_ocean
+!******************************************************************************
+!
+END MODULE surf_ocean_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_seaice_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_seaice_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surf_seaice_mod.F90	(revision 3330)
@@ -0,0 +1,181 @@
+!
+! $Id$
+!
+MODULE surf_seaice_mod
+
+  IMPLICIT NONE
+
+CONTAINS
+!
+!****************************************************************************************
+!
+  SUBROUTINE surf_seaice( & 
+       rlon, rlat, swnet, lwnet, alb1, fder, &
+       itime, dtime, jour, knon, knindex, &
+       lafin, &
+       tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
+       AcoefH, AcoefQ, BcoefH, BcoefQ, &
+       AcoefU, AcoefV, BcoefU, BcoefV, &
+       ps, u1, v1, gustiness, pctsrf, &
+       snow, qsurf, qsol, agesno, tsoil, &
+       z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, &  
+       tsurf_new, dflux_s, dflux_l, &
+       flux_u1, flux_v1)
+
+  USE dimphy
+  USE surface_data
+  USE ocean_forced_mod, ONLY : ocean_forced_ice
+  USE ocean_cpl_mod, ONLY    : ocean_cpl_ice
+  USE ocean_slab_mod, ONLY   : ocean_slab_ice
+  USE indice_sol_mod
+
+!
+! This subroutine will make a call to ocean_XXX_ice according to the ocean mode (force, 
+! slab or couple). The calculation of rugosity for the sea-ice surface is also done
+! in here because it is the same calculation for the different modes of ocean.
+!
+    INCLUDE "dimsoil.h"
+    INCLUDE "clesphys.h"
+
+! Input arguments
+!****************************************************************************************
+    INTEGER, INTENT(IN)                      :: itime, jour, knon
+    INTEGER, DIMENSION(klon), INTENT(IN)     :: knindex
+    LOGICAL, INTENT(IN)                      :: lafin
+    REAL, INTENT(IN)                         :: dtime
+    REAL, DIMENSION(klon), INTENT(IN)        :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)        :: swnet  ! net shortwave radiation at surface  
+    REAL, DIMENSION(klon), INTENT(IN)        :: lwnet  ! net longwave radiation at surface  
+    REAL, DIMENSION(klon), INTENT(IN)        :: alb1   ! albedo in visible SW interval
+    REAL, DIMENSION(klon), INTENT(IN)        :: fder
+    REAL, DIMENSION(klon), INTENT(IN)        :: tsurf
+    REAL, DIMENSION(klon), INTENT(IN)        :: p1lay
+    REAL, DIMENSION(klon), INTENT(IN)        :: cdragh, cdragm
+    REAL, DIMENSION(klon), INTENT(IN)        :: precip_rain, precip_snow
+    REAL, DIMENSION(klon), INTENT(IN)        :: temp_air, spechum
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefH, AcoefQ, BcoefH, BcoefQ
+    REAL, DIMENSION(klon), INTENT(IN)        :: AcoefU, AcoefV, BcoefU, BcoefV
+    REAL, DIMENSION(klon), INTENT(IN)        :: ps
+    REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
+    REAL, DIMENSION(klon,nbsrf), INTENT(IN)  :: pctsrf
+
+! In/Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: snow, qsurf, qsol
+    REAL, DIMENSION(klon), INTENT(INOUT)          :: agesno
+    REAL, DIMENSION(klon, nsoilmx), INTENT(INOUT) :: tsoil
+
+! Output arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon), INTENT(OUT)       :: z0m, z0h
+!albedo SB >>>
+!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new  ! new albedo in visible SW interval
+!    REAL, DIMENSION(klon), INTENT(OUT)       :: alb2_new  ! new albedo in near IR interval
+    REAL, DIMENSION(6), INTENT(IN)    :: SFRWL
+    REAL, DIMENSION(klon,nsw), INTENT(OUT)   :: alb_dir_new,alb_dif_new
+!albedo SB <<<
+    REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
+    REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1
+
+! Local arguments
+!****************************************************************************************
+    REAL, DIMENSION(klon)  :: radsol
+
+!albedo SB >>>
+    REAL, DIMENSION(klon) :: alb1_new,alb2_new
+!albedo SB <<<
+!
+! End definitions
+!****************************************************************************************
+
+
+!****************************************************************************************
+! Calculate total net radiance at surface
+!
+!****************************************************************************************
+    radsol(:) = 0.0
+    radsol(1:knon) = swnet(1:knon) + lwnet(1:knon)
+
+!****************************************************************************************
+! Switch according to type of ocean (couple, slab or forced)
+!
+!****************************************************************************************
+    IF (type_ocean == 'couple') THEN
+       
+       CALL ocean_cpl_ice( &
+            rlon, rlat, swnet, lwnet, alb1, & 
+            fder, & 
+            itime, dtime, knon, knindex, &
+            lafin,&
+            p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum,&
+            AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            ps, u1, v1, gustiness, pctsrf, &
+            radsol, snow, qsurf, &
+            alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+            tsurf_new, dflux_s, dflux_l)
+       
+    ELSE IF (type_ocean == 'slab'.AND.version_ocean=='sicINT') THEN
+       CALL ocean_slab_ice( & 
+          itime, dtime, jour, knon, knindex, &
+          tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum,&
+          AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+          ps, u1, v1, gustiness, &
+          radsol, snow, qsurf, qsol, agesno, &
+          alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+          tsurf_new, dflux_s, dflux_l, swnet)
+
+      ELSE ! type_ocean=force or slab +sicOBS or sicNO
+       CALL ocean_forced_ice( &
+            itime, dtime, jour, knon, knindex, &
+            tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum,&
+            AcoefH, AcoefQ, BcoefH, BcoefQ, &
+            AcoefU, AcoefV, BcoefU, BcoefV, &
+            ps, u1, v1, gustiness, &
+            radsol, snow, qsol, agesno, tsoil, &
+            qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
+            tsurf_new, dflux_s, dflux_l)
+
+    END IF
+
+!****************************************************************************************
+! Calculate rugosity
+!
+!****************************************************************************************
+
+    z0m=z0m_seaice
+    z0h = z0h_seaice
+
+!albedo SB >>>
+     select case(NSW)
+     case(2)
+       alb_dir_new(1:knon,1)=alb1_new(1:knon)
+       alb_dir_new(1:knon,2)=alb2_new(1:knon)
+     case(4)
+       alb_dir_new(1:knon,1)=alb1_new(1:knon)
+       alb_dir_new(1:knon,2)=alb2_new(1:knon)
+       alb_dir_new(1:knon,3)=alb2_new(1:knon)
+       alb_dir_new(1:knon,4)=alb2_new(1:knon)
+     case(6)
+       alb_dir_new(1:knon,1)=alb1_new(1:knon)
+       alb_dir_new(1:knon,2)=alb1_new(1:knon)
+       alb_dir_new(1:knon,3)=alb1_new(1:knon)
+       alb_dir_new(1:knon,4)=alb2_new(1:knon)
+       alb_dir_new(1:knon,5)=alb2_new(1:knon)
+       alb_dir_new(1:knon,6)=alb2_new(1:knon)
+     end select
+alb_dif_new=alb_dir_new
+!albedo SB <<<
+
+
+
+
+  END SUBROUTINE surf_seaice
+!
+!****************************************************************************************
+!
+END MODULE surf_seaice_mod
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surface_data.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surface_data.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/surface_data.F90	(revision 3330)
@@ -0,0 +1,30 @@
+!
+! $Id$
+!
+MODULE surface_data
+
+  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
+  REAL, PARAMETER        :: tau_gl=86400.*5.
+  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
+  
+  LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
+  CHARACTER(len=10), SAVE :: type_veget    ! orchidee/y/bucket/n/betaclim
+  !$OMP THREADPRIVATE(ok_veget)
+  ! Martin
+  LOGICAL, SAVE          :: ok_snow       ! true for coupling to snow model SISVAT
+  !$OMP THREADPRIVATE(ok_snow)
+  ! Martin
+
+  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
+  !$OMP THREADPRIVATE(type_ocean)
+
+  ! if type_ocean=couple : version_ocean=opa8 ou nemo
+  ! if type_ocean=slab   : version_ocean=sicOBS or sicINT or sicNO
+  CHARACTER(len=6), SAVE :: version_ocean 
+  !$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/IPSLCM5A2.1_ISO/libf/phylmd/sw_aeroAR4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sw_aeroAR4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/sw_aeroAR4.F90	(revision 3330)
@@ -0,0 +1,641 @@
+!
+! $Id$
+!
+SUBROUTINE SW_AEROAR4(PSCT, PRMU0, PFRAC, &
+     PPMB, PDP, &
+     PPSOL, PALBD, PALBP,&
+     PTAVE, PWV, PQS, POZON, PAER,&
+     PCLDSW, PTAU, POMEGA, PCG,&
+     PHEAT, PHEAT0,&
+     PALBPLA,PTOPSW,PSOLSW,PTOPSW0,PSOLSW0,&
+     ZFSUP,ZFSDN,ZFSUP0,ZFSDN0,&
+     tauaero, pizaero, cgaero,&
+     PTAUA, POMEGAA,&
+     PTOPSWADAERO,PSOLSWADAERO,&
+     PTOPSWAD0AERO,PSOLSWAD0AERO,&
+     PTOPSWAIAERO,PSOLSWAIAERO,&
+     PTOPSWAERO,PTOPSW0AERO,&
+     PSOLSWAERO,PSOLSW0AERO,&
+     PTOPSWCFAERO,PSOLSWCFAERO,&
+     ok_ade, ok_aie, flag_aerosol, flag_aerosol_strat )
+
+  USE dimphy
+  USE phys_output_mod, ONLY : swaero_diag
+  USE print_control_mod, ONLY: lunout
+  USE aero_mod, ONLY : naero_grp
+  IMPLICIT NONE
+
+#include "YOMCST.h"
+#include "clesphys.h"
+  !
+  !     ------------------------------------------------------------------
+  !
+  !     PURPOSE.
+  !     --------
+  !
+  !          THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+  !     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+  !
+  !     METHOD.
+  !     -------
+  !
+  !          1. COMPUTES ABSORBER AMOUNTS                 (SWU)
+  !          2. COMPUTES FLUXES IN 1ST SPECTRAL INTERVAL  (SW1S)
+  !          3. COMPUTES FLUXES IN 2ND SPECTRAL INTERVAL  (SW2S)
+  !
+  !     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
+  !        1995-01-01  J.-J. MORCRETTE  Direct/Diffuse Albedo
+  !        2003-11-27  J. QUAAS Introduce aerosol forcings (based on BOUCHER)
+  !        2009-04     A. COZIC - C.DEANDREIS Indroduce NAT/BC/POM/DUST/SS aerosol forcing
+  !        2012-09     O. BOUCHER - reorganise aerosol cases with ok_ade, ok_aie, flag_aerosol
+  !     ------------------------------------------------------------------
+  !
+  !* ARGUMENTS:
+  !
+  REAL(KIND=8) PSCT  ! constante solaire (valeur conseillee: 1370)
+
+  REAL(KIND=8) PPSOL(KDLON)        ! SURFACE PRESSURE (PA)
+  REAL(KIND=8) PDP(KDLON,KFLEV)    ! LAYER THICKNESS (PA)
+  REAL(KIND=8) PPMB(KDLON,KFLEV+1) ! HALF-LEVEL PRESSURE (MB)
+
+  REAL(KIND=8) PRMU0(KDLON)  ! COSINE OF ZENITHAL ANGLE
+  REAL(KIND=8) PFRAC(KDLON)  ! fraction de la journee
+
+  REAL(KIND=8) PTAVE(KDLON,KFLEV)  ! LAYER TEMPERATURE (K)
+  REAL(KIND=8) PWV(KDLON,KFLEV)    ! SPECIFI! HUMIDITY (KG/KG)
+  REAL(KIND=8) PQS(KDLON,KFLEV)    ! SATURATED WATER VAPOUR (KG/KG)
+  REAL(KIND=8) POZON(KDLON,KFLEV)  ! OZONE CONCENTRATION (KG/KG)
+  REAL(KIND=8) PAER(KDLON,KFLEV,5) ! AEROSOLS' OPTICAL THICKNESS
+
+  REAL(KIND=8) PALBD(KDLON,2)  ! albedo du sol (lumiere diffuse)
+  REAL(KIND=8) PALBP(KDLON,2)  ! albedo du sol (lumiere parallele)
+
+  REAL(KIND=8) PCLDSW(KDLON,KFLEV)    ! CLOUD FRACTION
+  REAL(KIND=8) PTAU(KDLON,2,KFLEV)    ! CLOUD OPTICAL THICKNESS (pre-industrial value)
+  REAL(KIND=8) PCG(KDLON,2,KFLEV)     ! ASYMETRY FACTOR
+  REAL(KIND=8) POMEGA(KDLON,2,KFLEV)  ! SINGLE SCATTERING ALBEDO
+
+  REAL(KIND=8) PHEAT(KDLON,KFLEV) ! SHORTWAVE HEATING (K/DAY)
+  REAL(KIND=8) PHEAT0(KDLON,KFLEV)! SHORTWAVE HEATING (K/DAY) clear-sky
+  REAL(KIND=8) PALBPLA(KDLON)     ! PLANETARY ALBEDO
+  REAL(KIND=8) PTOPSW(KDLON)      ! SHORTWAVE FLUX AT T.O.A.
+  REAL(KIND=8) PSOLSW(KDLON)      ! SHORTWAVE FLUX AT SURFACE
+  REAL(KIND=8) PTOPSW0(KDLON)     ! SHORTWAVE FLUX AT T.O.A. (CLEAR-SKY)
+  REAL(KIND=8) PSOLSW0(KDLON)     ! SHORTWAVE FLUX AT SURFACE (CLEAR-SKY)
+  !
+  !* LOCAL VARIABLES:
+  !
+  real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
+
+  REAL(KIND=8) ZOZ(KDLON,KFLEV)
+  ! column-density of ozone in layer, in kilo-Dobsons
+
+  REAL(KIND=8) ZAKI(KDLON,2)     
+  REAL(KIND=8) ZCLD(KDLON,KFLEV)
+  REAL(KIND=8) ZCLEAR(KDLON) 
+  REAL(KIND=8) ZDSIG(KDLON,KFLEV)
+  REAL(KIND=8) ZFACT(KDLON)
+  REAL(KIND=8) ZFD(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFDOWN(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFU(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFUP(KDLON,KFLEV+1)
+  REAL(KIND=8) ZRMU(KDLON)
+  REAL(KIND=8) ZSEC(KDLON)
+  REAL(KIND=8) ZUD(KDLON,5,KFLEV+1)
+  REAL(KIND=8) ZCLDSW0(KDLON,KFLEV)
+
+  REAL(KIND=8) ZFSUP(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFSDN(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFSUP0(KDLON,KFLEV+1)
+  REAL(KIND=8) ZFSDN0(KDLON,KFLEV+1)
+
+  INTEGER inu, jl, jk, i, k, kpl1
+
+  INTEGER swpas  ! Every swpas steps, sw is calculated
+  PARAMETER(swpas=1)
+
+  INTEGER, SAVE :: itapsw = 0
+  !$OMP THREADPRIVATE(itapsw)
+  LOGICAL, SAVE :: appel1er = .TRUE.
+  !$OMP THREADPRIVATE(appel1er)
+  LOGICAL, SAVE :: initialized = .FALSE.
+  !$OMP THREADPRIVATE(initialized)
+
+  !jq-local flag introduced for aerosol forcings
+  REAL(KIND=8), SAVE :: flag_aer
+  !$OMP THREADPRIVATE(flag_aer)
+
+  LOGICAL ok_ade, ok_aie    ! use aerosol forcings or not?
+  INTEGER flag_aerosol_strat ! use stratospehric aerosols
+  INTEGER flag_aerosol      ! global flag for aerosol 0 (no aerosol) or 1-5 (aerosols)
+  REAL(KIND=8) tauaero(kdlon,kflev,naero_grp,2)  ! aerosol optical properties
+  REAL(KIND=8) pizaero(kdlon,kflev,naero_grp,2)  ! (see aeropt.F)
+  REAL(KIND=8) cgaero(kdlon,kflev,naero_grp,2)   ! -"-
+  REAL(KIND=8) PTAUA(KDLON,2,KFLEV)    ! CLOUD OPTICAL THICKNESS (present-day value)
+  REAL(KIND=8) POMEGAA(KDLON,2,KFLEV)  ! SINGLE SCATTERING ALBEDO
+  REAL(KIND=8) PTOPSWADAERO(KDLON)     ! SHORTWAVE FLUX AT T.O.A.(+AEROSOL DIR)
+  REAL(KIND=8) PSOLSWADAERO(KDLON)     ! SHORTWAVE FLUX AT SURFACE(+AEROSOL DIR)
+  REAL(KIND=8) PTOPSWAD0AERO(KDLON)    ! SHORTWAVE FLUX AT T.O.A.(+AEROSOL DIR)
+  REAL(KIND=8) PSOLSWAD0AERO(KDLON)    ! SHORTWAVE FLUX AT SURFACE(+AEROSOL DIR)
+  REAL(KIND=8) PTOPSWAIAERO(KDLON)     ! SHORTWAVE FLUX AT T.O.A.(+AEROSOL IND)
+  REAL(KIND=8) PSOLSWAIAERO(KDLON)     ! SHORTWAVE FLUX AT SURFACE(+AEROSOL IND)
+  REAL(KIND=8) PTOPSWAERO(KDLON,9)     ! SW TOA AS DRF nat & ant 
+  REAL(KIND=8) PTOPSW0AERO(KDLON,9)    ! SW SRF AS DRF nat & ant 
+  REAL(KIND=8) PSOLSWAERO(KDLON,9)     ! SW TOA CS DRF nat & ant
+  REAL(KIND=8) PSOLSW0AERO(KDLON,9)    ! SW SRF CS DRF nat & ant
+  REAL(KIND=8) PTOPSWCFAERO(KDLON,3)   !  SW TOA AS cloudRF nat & ant 
+  REAL(KIND=8) PSOLSWCFAERO(KDLON,3)   !  SW SRF AS cloudRF nat & ant 
+
+  !jq - Fluxes including aerosol effects
+  REAL(KIND=8),ALLOCATABLE,SAVE :: ZFSUPAD_AERO(:,:)
+  !$OMP THREADPRIVATE(ZFSUPAD_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE :: ZFSDNAD_AERO(:,:)
+  !$OMP THREADPRIVATE(ZFSDNAD_AERO)
+  !jq - Fluxes including aerosol effects
+  REAL(KIND=8),ALLOCATABLE,SAVE :: ZFSUPAD0_AERO(:,:)
+  !$OMP THREADPRIVATE(ZFSUPAD0_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE :: ZFSDNAD0_AERO(:,:)
+  !$OMP THREADPRIVATE(ZFSDNAD0_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE :: ZFSUPAI_AERO(:,:)
+  !$OMP THREADPRIVATE(ZFSUPAI_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE :: ZFSDNAI_AERO(:,:)
+  !$OMP THREADPRIVATE(ZFSDNAI_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE ::  ZFSUP_AERO(:,:,:)
+  !$OMP THREADPRIVATE(ZFSUP_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE ::  ZFSDN_AERO(:,:,:)
+  !$OMP THREADPRIVATE(ZFSDN_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE ::  ZFSUP0_AERO(:,:,:)
+  !$OMP THREADPRIVATE(ZFSUP0_AERO)
+  REAL(KIND=8),ALLOCATABLE,SAVE ::  ZFSDN0_AERO(:,:,:)
+  !$OMP THREADPRIVATE(ZFSDN0_AERO)
+
+! Key to define the aerosol effect acting on climate
+! OB: AEROSOLFEEDBACK_ACTIVE is now a LOGICAL
+! TRUE: fluxes use natural and/or anthropogenic aerosols according to ok_ade and ok_aie, DEFAULT
+! FALSE: fluxes use no aerosols (case 1)
+
+  LOGICAL,SAVE :: AEROSOLFEEDBACK_ACTIVE = .TRUE.
+!$OMP THREADPRIVATE(AEROSOLFEEDBACK_ACTIVE)  
+
+      CHARACTER (LEN=20) :: modname='sw_aeroAR4'
+      CHARACTER (LEN=80) :: abort_message
+
+  IF(.NOT.initialized) THEN
+     flag_aer=0.
+     initialized=.TRUE.
+     ALLOCATE(ZFSUPAD_AERO(KDLON,KFLEV+1))
+     ALLOCATE(ZFSDNAD_AERO(KDLON,KFLEV+1))
+     ALLOCATE(ZFSUPAD0_AERO(KDLON,KFLEV+1))
+     ALLOCATE(ZFSDNAD0_AERO(KDLON,KFLEV+1))
+     ALLOCATE(ZFSUPAI_AERO(KDLON,KFLEV+1))
+     ALLOCATE(ZFSDNAI_AERO(KDLON,KFLEV+1))
+!-OB decrease size of these arrays to what is needed
+!                | direct effect 
+!ind effect      | no aerosol   natural  total
+!natural (PTAU)  |   1            3       2     --ZFSUP/ZFSDN
+!total (PTAUA)   |                5       4     --ZFSUP/ZFSDN
+!no cloud        |   1            3       2     --ZFSUP0/ZFSDN0
+! so we need which case when ? 
+! ok_ade and ok_aie = 4-5, 4-2 and 2 
+! ok_ade and not ok_aie = 2-3 and 2 
+! not ok_ade and ok_aie = 5-3 and 5 
+! not ok_ade and not ok_aie = 3 
+! therefore the cases have the folliwng switches 
+! 3 = not ok_ade or not ok_aie 
+! 4 = ok_ade and ok_aie 
+! 2 = ok_ade 
+! 5 = ok_aie 
+     ALLOCATE(ZFSUP_AERO (KDLON,KFLEV+1,5))
+     ALLOCATE(ZFSDN_AERO (KDLON,KFLEV+1,5))
+     ALLOCATE(ZFSUP0_AERO(KDLON,KFLEV+1,3))
+     ALLOCATE(ZFSDN0_AERO(KDLON,KFLEV+1,3))
+! end OB modif
+     ZFSUPAD_AERO(:,:)=0.
+     ZFSDNAD_AERO(:,:)=0.
+     ZFSUPAD0_AERO(:,:)=0.
+     ZFSDNAD0_AERO(:,:)=0.
+     ZFSUPAI_AERO(:,:)=0.
+     ZFSDNAI_AERO(:,:)=0.
+     ZFSUP_AERO (:,:,:)=0.
+     ZFSDN_AERO (:,:,:)=0.
+     ZFSUP0_AERO(:,:,:)=0.
+     ZFSDN0_AERO(:,:,:)=0.
+  ENDIF
+
+  IF (appel1er) THEN
+     WRITE(lunout,*)'SW calling frequency : ', swpas
+     WRITE(lunout,*) "   In general, it should be 1"
+     appel1er = .FALSE.
+  ENDIF
+  !     ------------------------------------------------------------------
+  IF (MOD(itapsw,swpas).EQ.0) THEN
+
+     DO JK = 1 , KFLEV
+        DO JL = 1, KDLON
+           ZCLDSW0(JL,JK) = 0.0
+           ZOZ(JL,JK) = POZON(JL,JK)*46.6968/RG &
+                *PDP(JL,JK)*(101325.0/PPSOL(JL))
+        ENDDO
+     ENDDO
+
+! clear sky with no aerosols at all is computed IF ACTIVEFEEDBACK_ACTIVE is false or for extended diag
+     IF ( swaero_diag .or. .not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 ) THEN    
+
+     ! clear-sky: zero aerosol effect
+     flag_aer=0.0
+     CALL SWU_LMDAR4(PSCT,ZCLDSW0,PPMB,PPSOL,&
+          PRMU0,PFRAC,PTAVE,PWV,&
+          ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+     INU = 1
+     CALL SW1S_LMDAR4(INU,PAER, flag_aer, &
+          tauaero(:,:,1,:), pizaero(:,:,1,:), cgaero(:,:,1,:),&
+          PALBD, PALBP, PCG, ZCLD, ZCLEAR, ZCLDSW0,&
+          ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+          ZFD, ZFU)
+     INU = 2
+     CALL SW2S_LMDAR4(INU, PAER, flag_aer, &
+          tauaero(:,:,1,:), pizaero(:,:,1,:), cgaero(:,:,1,:),&
+          ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, ZCLDSW0,&
+          ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+          PWV, PQS,&
+          ZFDOWN, ZFUP)
+     DO JK = 1 , KFLEV+1
+        DO JL = 1, KDLON
+           ZFSUP0_AERO(JL,JK,1) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+           ZFSDN0_AERO(JL,JK,1) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL)
+        ENDDO
+     ENDDO
+     ENDIF ! swaero_diag .or. .not. AEROSOLFEEDBACK_ACTIVE
+
+! cloudy sky with no aerosols at all is either computed IF no indirect effect is asked for, or for extended diag
+     IF ( swaero_diag .or. .not. AEROSOLFEEDBACK_ACTIVE .OR. flag_aerosol .EQ. 0 ) THEN    
+     ! cloudy-sky: zero aerosol effect
+     flag_aer=0.0
+     CALL SWU_LMDAR4(PSCT,PCLDSW,PPMB,PPSOL,&
+          PRMU0,PFRAC,PTAVE,PWV,&
+          ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+     INU = 1
+     CALL SW1S_LMDAR4(INU, PAER, flag_aer, &
+          tauaero(:,:,1,:), pizaero(:,:,1,:), cgaero(:,:,1,:),&
+          PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+          ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+          ZFD, ZFU)
+     INU = 2
+     CALL SW2S_LMDAR4(INU, PAER, flag_aer, &
+          tauaero(:,:,1,:), pizaero(:,:,1,:), cgaero(:,:,1,:),&
+          ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+          ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+          PWV, PQS,&
+          ZFDOWN, ZFUP)
+
+     DO JK = 1 , KFLEV+1
+        DO JL = 1, KDLON
+           ZFSUP_AERO(JL,JK,1) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+           ZFSDN_AERO(JL,JK,1) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL)
+        ENDDO
+     ENDDO
+     ENDIF ! swaero_diag .or. .not. AEROSOLFEEDBACK_ACTIVE
+
+     IF (flag_aerosol.GT.0 .OR. flag_aerosol_strat.GT.0) THEN
+
+     IF (ok_ade.and.swaero_diag .or. .not. ok_ade) THEN
+
+        ! clear sky direct effect natural aerosol
+        ! CAS AER (3)
+        flag_aer=1.0
+        CALL SWU_LMDAR4(PSCT,ZCLDSW0,PPMB,PPSOL,&
+             PRMU0,PFRAC,PTAVE,PWV,&
+             ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+        INU = 1
+        CALL SW1S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,3,:), pizaero(:,:,3,:), cgaero(:,:,3,:),&
+             PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             ZFD, ZFU)
+        INU = 2
+        CALL SW2S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,3,:), pizaero(:,:,3,:), cgaero(:,:,3,:),&
+             ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             PWV, PQS,&
+             ZFDOWN, ZFUP)
+
+        DO JK = 1 , KFLEV+1
+           DO JL = 1, KDLON
+              ZFSUP0_AERO(JL,JK,3) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+              ZFSDN0_AERO(JL,JK,3) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL)
+           ENDDO
+        ENDDO
+     ENDIF !--end not swaero_diag or not ok_ade
+
+     IF (ok_ade) THEN
+
+        ! clear sky direct effect of total aerosol
+        ! CAS AER (2)
+        flag_aer=1.0
+        CALL SWU_LMDAR4(PSCT,ZCLDSW0,PPMB,PPSOL,&
+             PRMU0,PFRAC,PTAVE,PWV,&
+             ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+        INU = 1
+        CALL SW1S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,2,:), pizaero(:,:,2,:), cgaero(:,:,2,:),&
+             PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             ZFD, ZFU)
+        INU = 2
+        CALL SW2S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,2,:), pizaero(:,:,2,:), cgaero(:,:,2,:),&
+             ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             PWV, PQS,&
+             ZFDOWN, ZFUP)
+
+        DO JK = 1 , KFLEV+1
+           DO JL = 1, KDLON
+              ZFSUP0_AERO(JL,JK,2) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL) 
+              ZFSDN0_AERO(JL,JK,2) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL) 
+           ENDDO
+        ENDDO
+
+        ! cloudy-sky with natural aerosols for indirect effect 
+        ! but total aerosols for direct effect
+        ! PTAU
+        ! CAS AER (2)
+        flag_aer=1.0
+        CALL SWU_LMDAR4(PSCT,PCLDSW,PPMB,PPSOL,&
+             PRMU0,PFRAC,PTAVE,PWV,&
+             ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+        INU = 1
+        CALL SW1S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,2,:), pizaero(:,:,2,:), cgaero(:,:,2,:),&
+             PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             ZFD, ZFU)
+        INU = 2
+        CALL SW2S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,2,:), pizaero(:,:,2,:), cgaero(:,:,2,:),&
+             ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             PWV, PQS,&
+             ZFDOWN, ZFUP)
+
+        DO JK = 1 , KFLEV+1
+           DO JL = 1, KDLON
+              ZFSUP_AERO(JL,JK,2) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL) 
+              ZFSDN_AERO(JL,JK,2) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL) 
+           ENDDO
+        ENDDO
+
+     ENDIF !-end ok_ade
+
+     IF ( .not. ok_ade .or. .not. ok_aie ) THEN
+
+        ! cloudy-sky with natural aerosols for indirect effect 
+        ! and natural aerosols for direct effect
+        ! PTAU
+        ! CAS AER (3)
+        ! cloudy-sky direct effect natural aerosol
+        flag_aer=1.0
+        CALL SWU_LMDAR4(PSCT,PCLDSW,PPMB,PPSOL,&
+             PRMU0,PFRAC,PTAVE,PWV,&
+             ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+        INU = 1
+        CALL SW1S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,3,:), pizaero(:,:,3,:), cgaero(:,:,3,:),&
+             PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             ZFD, ZFU)
+        INU = 2
+        CALL SW2S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,3,:), pizaero(:,:,3,:), cgaero(:,:,3,:),&
+             ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGA, ZOZ, ZRMU, ZSEC, PTAU, ZUD,&
+             PWV, PQS,&
+             ZFDOWN, ZFUP)
+
+        DO JK = 1 , KFLEV+1
+           DO JL = 1, KDLON
+              ZFSUP_AERO(JL,JK,3) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+              ZFSDN_AERO(JL,JK,3) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL)
+           ENDDO
+        ENDDO
+
+     ENDIF  !--true/false or false/true
+
+     IF (ok_ade .and. ok_aie) THEN
+
+        ! cloudy-sky with total aerosols for indirect effect 
+        ! and total aerosols for direct effect
+        ! PTAUA
+        ! CAS AER (2)
+        flag_aer=1.0
+        CALL SWU_LMDAR4(PSCT,PCLDSW,PPMB,PPSOL,&
+             PRMU0,PFRAC,PTAVE,PWV,&
+             ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+        INU = 1
+        CALL SW1S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,2,:), pizaero(:,:,2,:), cgaero(:,:,2,:),&
+             PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGAA, ZOZ, ZRMU, ZSEC, PTAUA, ZUD,&
+             ZFD, ZFU)
+        INU = 2
+        CALL SW2S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,2,:), pizaero(:,:,2,:), cgaero(:,:,2,:),&
+             ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGAA, ZOZ, ZRMU, ZSEC, PTAUA, ZUD,&
+             PWV, PQS,&
+             ZFDOWN, ZFUP)
+
+        DO JK = 1 , KFLEV+1
+           DO JL = 1, KDLON
+              ZFSUP_AERO(JL,JK,4) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+              ZFSDN_AERO(JL,JK,4) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL) 
+           ENDDO
+        ENDDO
+  
+      ENDIF ! ok_ade .and. ok_aie
+
+     IF (ok_aie) THEN
+        ! cloudy-sky with total aerosols for indirect effect 
+        ! and natural aerosols for direct effect
+        ! PTAUA
+        ! CAS AER (3)
+        flag_aer=1.0
+        CALL SWU_LMDAR4(PSCT,PCLDSW,PPMB,PPSOL,&
+             PRMU0,PFRAC,PTAVE,PWV,&
+             ZAKI,ZCLD,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD)
+        INU = 1
+        CALL SW1S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,3,:), pizaero(:,:,3,:), cgaero(:,:,3,:),&
+             PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGAA, ZOZ, ZRMU, ZSEC, PTAUA, ZUD,&
+             ZFD, ZFU)
+        INU = 2
+        CALL SW2S_LMDAR4(INU, PAER, flag_aer,&
+             tauaero(:,:,3,:), pizaero(:,:,3,:), cgaero(:,:,3,:),&
+             ZAKI, PALBD, PALBP, PCG, ZCLD, ZCLEAR, PCLDSW,&
+             ZDSIG, POMEGAA, ZOZ, ZRMU, ZSEC, PTAUA, ZUD,&
+             PWV, PQS,&
+             ZFDOWN, ZFUP)
+  
+        DO JK = 1 , KFLEV+1
+           DO JL = 1, KDLON
+              ZFSUP_AERO(JL,JK,5) = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+              ZFSDN_AERO(JL,JK,5) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL) 
+           ENDDO
+        ENDDO
+
+     ENDIF ! ok_aie      
+
+     ENDIF !--if flag_aerosol GT 0 OR flag_aerosol_strat GT 0
+
+     itapsw = 0
+  ENDIF
+  itapsw = itapsw + 1
+
+  IF  ( AEROSOLFEEDBACK_ACTIVE .AND. (flag_aerosol.GT.0 .OR. flag_aerosol_strat.GT.0) ) THEN
+  IF ( ok_ade .and. ok_aie  ) THEN
+    ZFSUP(:,:) =    ZFSUP_AERO(:,:,4)
+    ZFSDN(:,:) =    ZFSDN_AERO(:,:,4)
+    ZFSUP0(:,:) =   ZFSUP0_AERO(:,:,2)
+    ZFSDN0(:,:) =   ZFSDN0_AERO(:,:,2)
+  ENDIF
+
+  IF ( ok_ade .and. (.not. ok_aie) )  THEN
+    ZFSUP(:,:) =    ZFSUP_AERO(:,:,2)
+    ZFSDN(:,:) =    ZFSDN_AERO(:,:,2)
+    ZFSUP0(:,:) =   ZFSUP0_AERO(:,:,2)
+    ZFSDN0(:,:) =   ZFSDN0_AERO(:,:,2)
+  ENDIF
+
+  IF ( (.not. ok_ade) .and. ok_aie  )  THEN
+    ZFSUP(:,:) =    ZFSUP_AERO(:,:,5)
+    ZFSDN(:,:) =    ZFSDN_AERO(:,:,5)
+    ZFSUP0(:,:) =   ZFSUP0_AERO(:,:,3)
+    ZFSDN0(:,:) =   ZFSDN0_AERO(:,:,3)
+  ENDIF
+
+  IF ((.not. ok_ade) .and. (.not. ok_aie)) THEN
+    ZFSUP(:,:) =    ZFSUP_AERO(:,:,3)
+    ZFSDN(:,:) =    ZFSDN_AERO(:,:,3)
+    ZFSUP0(:,:) =   ZFSUP0_AERO(:,:,3)
+    ZFSDN0(:,:) =   ZFSDN0_AERO(:,:,3)
+  ENDIF
+
+! MS the following allows to compute the forcing diagostics without
+! letting the aerosol forcing act on the meteorology
+! SEE logic above
+  ELSE 
+    ZFSUP(:,:) =    ZFSUP_AERO(:,:,1)
+    ZFSDN(:,:) =    ZFSDN_AERO(:,:,1)
+    ZFSUP0(:,:) =   ZFSUP0_AERO(:,:,1)
+    ZFSDN0(:,:) =   ZFSDN0_AERO(:,:,1)
+  ENDIF
+
+! Now computes heating rates
+  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)
+        PHEAT0(i,k) = -(ZFSUP0(i,kpl1)-ZFSUP0(i,k))-(ZFSDN0(i,k)-ZFSDN0(i,kpl1))
+        PHEAT0(i,k) = PHEAT0(i,k) * RDAY*RG/RCPD / PDP(i,k)
+     ENDDO
+  ENDDO
+
+  DO i = 1, KDLON
+! effective SW surface albedo calculation
+     PALBPLA(i) = ZFSUP(i,KFLEV+1)/(ZFSDN(i,KFLEV+1)+1.0e-20)
+     
+! clear sky net fluxes at TOA and SRF
+     PSOLSW0(i) = ZFSDN0(i,1) - ZFSUP0(i,1)
+     PTOPSW0(i) = ZFSDN0(i,KFLEV+1) - ZFSUP0(i,KFLEV+1)
+
+! cloudy sky net fluxes at TOA and SRF
+     PSOLSW(i) = ZFSDN(i,1) - ZFSUP(i,1)
+     PTOPSW(i) = ZFSDN(i,KFLEV+1) - ZFSUP(i,KFLEV+1)
+
+! net anthropogenic forcing direct and 1st indirect effect diagnostics
+! requires a natural aerosol field read and used 
+! Difference of net fluxes from double call to radiation
+
+IF (ok_ade) THEN
+
+! indices 1: natural; 2 anthropogenic 
+
+! TOA/SRF all sky natural forcing
+     PSOLSWAERO(i,1) = (ZFSDN_AERO(i,1,3) - ZFSUP_AERO(i,1,3))-(ZFSDN_AERO(i,1,1) - ZFSUP_AERO(i,1,1))
+     PTOPSWAERO(i,1) = (ZFSDN_AERO(i,KFLEV+1,3) - ZFSUP_AERO(i,KFLEV+1,3))- (ZFSDN_AERO(i,KFLEV+1,1) - ZFSUP_AERO(i,KFLEV+1,1))
+
+! TOA/SRF clear sky natural forcing
+     PSOLSW0AERO(i,1) = (ZFSDN0_AERO(i,1,3) - ZFSUP0_AERO(i,1,3))-(ZFSDN0_AERO(i,1,1) - ZFSUP0_AERO(i,1,1))
+     PTOPSW0AERO(i,1) = (ZFSDN0_AERO(i,KFLEV+1,3) - ZFSUP0_AERO(i,KFLEV+1,3))-(ZFSDN0_AERO(i,KFLEV+1,1) - ZFSUP0_AERO(i,KFLEV+1,1))
+
+   IF (ok_aie) THEN 
+
+! TOA/SRF all sky anthropogenic forcing
+     PSOLSWAERO(i,2) = (ZFSDN_AERO(i,1,4) - ZFSUP_AERO(i,1,4))-(ZFSDN_AERO(i,1,5) - ZFSUP_AERO(i,1,5))
+     PTOPSWAERO(i,2) = (ZFSDN_AERO(i,KFLEV+1,4) - ZFSUP_AERO(i,KFLEV+1,4))- (ZFSDN_AERO(i,KFLEV+1,5) - ZFSUP_AERO(i,KFLEV+1,5))
+
+   ELSE 
+
+! TOA/SRF all sky anthropogenic forcing
+     PSOLSWAERO(i,2) = (ZFSDN_AERO(i,1,2) - ZFSUP_AERO(i,1,2))-(ZFSDN_AERO(i,1,3) - ZFSUP_AERO(i,1,3))
+     PTOPSWAERO(i,2) = (ZFSDN_AERO(i,KFLEV+1,2) - ZFSUP_AERO(i,KFLEV+1,2))- (ZFSDN_AERO(i,KFLEV+1,3) - ZFSUP_AERO(i,KFLEV+1,3))
+
+   ENDIF
+
+! TOA/SRF clear sky anthropogenic forcing
+     PSOLSW0AERO(i,2) = (ZFSDN0_AERO(i,1,2) - ZFSUP0_AERO(i,1,2))-(ZFSDN0_AERO(i,1,3) - ZFSUP0_AERO(i,1,3))
+     PTOPSW0AERO(i,2) = (ZFSDN0_AERO(i,KFLEV+1,2) - ZFSUP0_AERO(i,KFLEV+1,2))-(ZFSDN0_AERO(i,KFLEV+1,3) - ZFSUP0_AERO(i,KFLEV+1,3))
+
+! direct anthropogenic forcing , as in old LMDzT, however differences of net fluxes
+     PSOLSWADAERO(i) = PSOLSWAERO(i,2)
+     PTOPSWADAERO(i) = PTOPSWAERO(i,2)
+     PSOLSWAD0AERO(i) = PSOLSW0AERO(i,2)
+     PTOPSWAD0AERO(i) = PTOPSW0AERO(i,2)
+
+! OB: these diagnostics may not always work but who need them
+! Cloud forcing indices 1: natural; 2 anthropogenic; 3: zero aerosol direct effect
+! Instantaneously computed cloudy sky direct aerosol effect, cloud forcing due to aerosols above clouds
+! natural
+     PSOLSWCFAERO(i,1) = PSOLSWAERO(i,1) - PSOLSW0AERO(i,1)
+     PTOPSWCFAERO(i,1) = PTOPSWAERO(i,1) - PTOPSW0AERO(i,1)
+
+! Instantaneously computed cloudy SKY DIRECT aerosol effect, cloud forcing due to aerosols above clouds
+! anthropogenic
+     PSOLSWCFAERO(i,2) = PSOLSWAERO(i,2) - PSOLSW0AERO(i,2)
+     PTOPSWCFAERO(i,2) = PTOPSWAERO(i,2) - PTOPSW0AERO(i,2)
+
+! Cloudforcing without aerosol
+! zero
+     PSOLSWCFAERO(i,3) = (ZFSDN_AERO(i,1,1) - ZFSUP_AERO(i,1,1))-(ZFSDN0_AERO(i,1,1) - ZFSUP0_AERO(i,1,1))
+     PTOPSWCFAERO(i,3) = (ZFSDN_AERO(i,KFLEV+1,1) - ZFSUP_AERO(i,KFLEV+1,1))- (ZFSDN0_AERO(i,KFLEV+1,1) - ZFSUP0_AERO(i,KFLEV+1,1))
+
+ENDIF
+
+IF (ok_aie) THEN
+   IF (ok_ade) THEN 
+     PSOLSWAIAERO(i) = (ZFSDN_AERO(i,1,4) - ZFSUP_AERO(i,1,4))-(ZFSDN_AERO(i,1,2) - ZFSUP_AERO(i,1,2))
+     PTOPSWAIAERO(i) = (ZFSDN_AERO(i,KFLEV+1,4) - ZFSUP_AERO(i,KFLEV+1,4))-(ZFSDN_AERO(i,KFLEV+1,2) - ZFSUP_AERO(i,KFLEV+1,2))
+   ELSE 
+     PSOLSWAIAERO(i) = (ZFSDN_AERO(i,1,5) - ZFSUP_AERO(i,1,5))-(ZFSDN_AERO(i,1,3) - ZFSUP_AERO(i,1,3))
+     PTOPSWAIAERO(i) = (ZFSDN_AERO(i,KFLEV+1,5) - ZFSUP_AERO(i,KFLEV+1,5))-(ZFSDN_AERO(i,KFLEV+1,3) - ZFSUP_AERO(i,KFLEV+1,3))
+   ENDIF
+ENDIF
+
+ENDDO
+
+END SUBROUTINE SW_AEROAR4
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell.F90	(revision 3330)
@@ -0,0 +1,1168 @@
+
+! $Id$
+
+SUBROUTINE calcul_sec(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, pu, &
+    pv, pt, po, zmax, wmax, zw2, lmix & ! s
+                                        ! ,pu_therm,pv_therm
+    , r_aspect, l_mix, w2di, tho)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+
+  ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
+
+  ! le thermique est supposé homogène et dissipé par mélange avec
+  ! son environnement. la longueur l_mix contrôle l'efficacité du
+  ! mélange
+
+  ! Le calcul du transport des différentes espèces se fait en prenant
+  ! en compte:
+  ! 1. un flux de masse montant
+  ! 2. un flux de masse descendant
+  ! 3. un entrainement
+  ! 4. un detrainement
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! declarations:
+  ! -------------
+
+  include "YOMCST.h"
+
+  ! arguments:
+  ! ----------
+
+  INTEGER ngrid, nlay, w2di
+  REAL tho
+  REAL ptimestep, l_mix, r_aspect
+  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
+  REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+  REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+
+  INTEGER idetr
+  SAVE idetr
+  DATA idetr/3/
+  !$OMP THREADPRIVATE(idetr)
+  ! local:
+  ! ------
+
+  INTEGER ig, k, l, lmaxa(klon), lmix(klon)
+  REAL zsortie1d(klon)
+  ! CR: on remplace lmax(klon,klev+1)
+  INTEGER lmax(klon), lmin(klon), lentr(klon)
+  REAL linter(klon)
+  REAL zmix(klon), fracazmix(klon)
+  ! RC
+  REAL zmax(klon), zw, zw2(klon, klev+1), ztva(klon, klev)
+
+  REAL zlev(klon, klev+1), zlay(klon, klev)
+  REAL zh(klon, klev), zdhadj(klon, klev)
+  REAL ztv(klon, klev)
+  REAL zu(klon, klev), zv(klon, klev), zo(klon, klev)
+  REAL wh(klon, klev+1)
+  REAL wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
+  REAL zla(klon, klev+1)
+  REAL zwa(klon, klev+1)
+  REAL zld(klon, klev+1)
+  ! real zwd(klon,klev+1)
+  REAL zsortie(klon, klev)
+  REAL zva(klon, klev)
+  REAL zua(klon, klev)
+  REAL zoa(klon, klev)
+
+  REAL zha(klon, klev)
+  REAL wa_moy(klon, klev+1)
+  REAL fraca(klon, klev+1)
+  REAL fracc(klon, klev+1)
+  REAL zf, zf2
+  REAL thetath2(klon, klev), wth2(klon, klev)
+  ! common/comtherm/thetath2,wth2
+
+  REAL count_time
+  ! integer isplit,nsplit
+  INTEGER isplit, nsplit, ialt
+  PARAMETER (nsplit=10)
+  DATA isplit/0/
+  SAVE isplit
+  !$OMP THREADPRIVATE(isplit)
+
+  LOGICAL sorties
+  REAL rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  ! real wmax(klon,klev),wmaxa(klon)
+  REAL wmax(klon), wmaxa(klon)
+  REAL wa(klon, klev, klev+1)
+  REAL wd(klon, klev+1)
+  REAL larg_part(klon, klev, klev+1)
+  REAL fracd(klon, klev+1)
+  REAL xxx(klon, klev+1)
+  REAL larg_cons(klon, klev+1)
+  REAL larg_detr(klon, klev+1)
+  REAL fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
+  REAL pu_therm(klon, klev), pv_therm(klon, klev)
+  REAL fm(klon, klev+1), entr(klon, klev)
+  REAL fmc(klon, klev+1)
+
+  ! CR:nouvelles variables
+  REAL f_star(klon, klev+1), entr_star(klon, klev)
+  REAL entr_star_tot(klon), entr_star2(klon)
+  REAL zalim(klon)
+  INTEGER lalim(klon)
+  REAL norme(klon)
+  REAL f(klon), f0(klon)
+  REAL zlevinter(klon)
+  LOGICAL therm
+  LOGICAL first
+  DATA first/.FALSE./
+  SAVE first
+  !$OMP THREADPRIVATE(first)
+  ! RC
+
+  CHARACTER *2 str2
+  CHARACTER *10 str10
+
+  CHARACTER (LEN=20) :: modname = 'calcul_sec'
+  CHARACTER (LEN=80) :: abort_message
+
+
+  ! LOGICAL vtest(klon),down
+
+  EXTERNAL scopy
+
+  INTEGER ncorrec
+  SAVE ncorrec
+  DATA ncorrec/0/
+  !$OMP THREADPRIVATE(ncorrec)
+
+
+  ! -----------------------------------------------------------------------
+  ! initialisation:
+  ! ---------------
+
+  sorties = .TRUE.
+  IF (ngrid/=klon) THEN
+    PRINT *
+    PRINT *, 'STOP dans convadj'
+    PRINT *, 'ngrid    =', ngrid
+    PRINT *, 'klon  =', klon
+  END IF
+
+  ! -----------------------------------------------------------------------
+  ! incrementation eventuelle de tendances precedentes:
+  ! ---------------------------------------------------
+
+  ! print*,'0 OK convect8'
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zpspsk(ig, l) = (pplay(ig,l)/pplev(ig,1))**rkappa
+      zh(ig, l) = pt(ig, l)/zpspsk(ig, l)
+      zu(ig, l) = pu(ig, l)
+      zv(ig, l) = pv(ig, l)
+      zo(ig, l) = po(ig, l)
+      ztv(ig, l) = zh(ig, l)*(1.+0.61*zo(ig,l))
+    END DO
+  END DO
+
+  ! print*,'1 OK convect8'
+  ! --------------------
+
+
+  ! + + + + + + + + + + +
+
+
+  ! wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+  ! wh,wt,wo ...
+
+  ! + + + + + + + + + + +  zh,zu,zv,zo,rho
+
+
+  ! --------------------   zlev(1)
+  ! \\\\\\\\\\\\\\\\\\\\
+
+
+
+  ! -----------------------------------------------------------------------
+  ! Calcul des altitudes des couches
+  ! -----------------------------------------------------------------------
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      zlev(ig, l) = 0.5*(pphi(ig,l)+pphi(ig,l-1))/rg
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zlev(ig, 1) = 0.
+    zlev(ig, nlay+1) = (2.*pphi(ig,klev)-pphi(ig,klev-1))/rg
+  END DO
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zlay(ig, l) = pphi(ig, l)/rg
+    END DO
+  END DO
+
+  ! print*,'2 OK convect8'
+  ! -----------------------------------------------------------------------
+  ! Calcul des densites
+  ! -----------------------------------------------------------------------
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      rho(ig, l) = pplay(ig, l)/(zpspsk(ig,l)*rd*zh(ig,l))
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      rhobarz(ig, l) = 0.5*(rho(ig,l)+rho(ig,l-1))
+    END DO
+  END DO
+
+  DO k = 1, nlay
+    DO l = 1, nlay + 1
+      DO ig = 1, ngrid
+        wa(ig, k, l) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! print*,'3 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calcul de w2, quarre de w a partir de la cape
+  ! a partir de w2, on calcule wa, vitesse de l'ascendance
+
+  ! ATTENTION: Dans cette version, pour cause d'economie de memoire,
+  ! w2 est stoke dans wa
+
+  ! ATTENTION: dans convect8, on n'utilise le calcule des wa
+  ! independants par couches que pour calculer l'entrainement
+  ! a la base et la hauteur max de l'ascendance.
+
+  ! Indicages:
+  ! l'ascendance provenant du niveau k traverse l'interface l avec
+  ! une vitesse wa(k,l).
+
+  ! --------------------
+
+  ! + + + + + + + + + +
+
+  ! wa(k,l)   ----       --------------------    l
+  ! /\
+  ! /||\       + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||
+  ! ||        + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||__
+  ! |___      + + + + + + + + + +     k
+
+  ! --------------------
+
+
+
+  ! ------------------------------------------------------------------
+
+  ! CR: ponderation entrainement des couches instables
+  ! def des entr_star tels que entr=f*entr_star
+  DO l = 1, klev
+    DO ig = 1, ngrid
+      entr_star(ig, l) = 0.
+    END DO
+  END DO
+  ! determination de la longueur de la couche d entrainement
+  DO ig = 1, ngrid
+    lentr(ig) = 1
+  END DO
+
+  ! on ne considere que les premieres couches instables
+  therm = .FALSE.
+  DO k = nlay - 2, 1, -1
+    DO ig = 1, ngrid
+      IF (ztv(ig,k)>ztv(ig,k+1) .AND. ztv(ig,k+1)<=ztv(ig,k+2)) THEN
+        lentr(ig) = k + 1
+        therm = .TRUE.
+      END IF
+    END DO
+  END DO
+  ! limitation de la valeur du lentr
+  ! do ig=1,ngrid
+  ! lentr(ig)=min(5,lentr(ig))
+  ! enddo
+  ! determination du lmin: couche d ou provient le thermique
+  DO ig = 1, ngrid
+    lmin(ig) = 1
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, 2, -1
+      IF (ztv(ig,l-1)>ztv(ig,l)) THEN
+        lmin(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! initialisations
+  DO ig = 1, ngrid
+    zalim(ig) = 0.
+    norme(ig) = 0.
+    lalim(ig) = 1
+  END DO
+  DO k = 1, klev - 1
+    DO ig = 1, ngrid
+      zalim(ig) = zalim(ig) + zlev(ig, k)*max(0., (ztv(ig,k)-ztv(ig, &
+        k+1))/(zlev(ig,k+1)-zlev(ig,k)))
+      ! s         *(zlev(ig,k+1)-zlev(ig,k))
+      norme(ig) = norme(ig) + max(0., (ztv(ig,k)-ztv(ig,k+1))/(zlev(ig, &
+        k+1)-zlev(ig,k)))
+      ! s          *(zlev(ig,k+1)-zlev(ig,k))
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    IF (norme(ig)>1.E-10) THEN
+      zalim(ig) = max(10.*zalim(ig)/norme(ig), zlev(ig,2))
+      ! zalim(ig)=min(zalim(ig),zlev(ig,lentr(ig)))
+    END IF
+  END DO
+  ! détermination du lalim correspondant
+  DO k = 1, klev - 1
+    DO ig = 1, ngrid
+      IF ((zalim(ig)>zlev(ig,k)) .AND. (zalim(ig)<=zlev(ig,k+1))) THEN
+        lalim(ig) = k
+      END IF
+    END DO
+  END DO
+
+  ! definition de l'entrainement des couches
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. l>=lmin(ig) .AND. l<lentr(ig)) THEN
+        entr_star(ig, l) = max((ztv(ig,l)-ztv(ig,l+1)), 0.) & ! s
+                                                              ! *(zlev(ig,l+1)-zlev(ig,l))
+          *sqrt(zlev(ig,l+1))
+        ! autre def
+        ! entr_star(ig,l)=zlev(ig,l+1)*(1.-(zlev(ig,l+1)
+        ! s                         /zlev(ig,lentr(ig)+2)))**(3./2.)
+      END IF
+    END DO
+  END DO
+  ! nouveau test
+  ! if (therm) then
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. l>=lmin(ig) .AND. l<=lalim(ig) .AND. &
+          zalim(ig)>1.E-10) THEN
+        ! if (l.le.lentr(ig)) then
+        ! entr_star(ig,l)=zlev(ig,l+1)*(1.-(zlev(ig,l+1)
+        ! s                         /zalim(ig)))**(3./2.)
+        ! write(10,*)zlev(ig,l),entr_star(ig,l)
+      END IF
+    END DO
+  END DO
+  ! endif
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>5) THEN
+      DO l = 1, klev
+        entr_star(ig, l) = 0.
+      END DO
+    END IF
+  END DO
+  ! calcul de l entrainement total
+  DO ig = 1, ngrid
+    entr_star_tot(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      entr_star_tot(ig) = entr_star_tot(ig) + entr_star(ig, k)
+    END DO
+  END DO
+  ! Calcul entrainement normalise
+  DO ig = 1, ngrid
+    IF (entr_star_tot(ig)>1.E-10) THEN
+      ! do l=1,lentr(ig)
+      DO l = 1, klev
+        ! def possibles pour entr_star: zdthetadz, dthetadz, zdtheta
+        entr_star(ig, l) = entr_star(ig, l)/entr_star_tot(ig)
+      END DO
+    END IF
+  END DO
+
+  ! print*,'fin calcul entr_star'
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      ztva(ig, k) = ztv(ig, k)
+    END DO
+  END DO
+  ! RC
+  ! print*,'7 OK convect8'
+  DO k = 1, klev + 1
+    DO ig = 1, ngrid
+      zw2(ig, k) = 0.
+      fmc(ig, k) = 0.
+      ! CR
+      f_star(ig, k) = 0.
+      ! RC
+      larg_cons(ig, k) = 0.
+      larg_detr(ig, k) = 0.
+      wa_moy(ig, k) = 0.
+    END DO
+  END DO
+
+  ! print*,'8 OK convect8'
+  DO ig = 1, ngrid
+    linter(ig) = 1.
+    lmaxa(ig) = 1
+    lmix(ig) = 1
+    wmaxa(ig) = 0.
+  END DO
+
+  ! CR:
+  DO l = 1, nlay - 2
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. entr_star(ig,l)>1.E-10 .AND. &
+          zw2(ig,l)<1E-10) THEN
+        f_star(ig, l+1) = entr_star(ig, l)
+        ! test:calcul de dteta
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))*0.4*pphi(ig, l)/(pphi(ig,l+1)-pphi(ig,l))
+        larg_detr(ig, l) = 0.
+      ELSE IF ((zw2(ig,l)>=1E-10) .AND. (f_star(ig,l)+entr_star(ig, &
+          l)>1.E-10)) THEN
+        f_star(ig, l+1) = f_star(ig, l) + entr_star(ig, l)
+        ztva(ig, l) = (f_star(ig,l)*ztva(ig,l-1)+entr_star(ig,l)*ztv(ig,l))/ &
+          f_star(ig, l+1)
+        zw2(ig, l+1) = zw2(ig, l)*(f_star(ig,l)/f_star(ig,l+1))**2 + &
+          2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, l)*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+      ! determination de zmax continu par interpolation lineaire
+      IF (zw2(ig,l+1)<0.) THEN
+        ! test
+        IF (abs(zw2(ig,l+1)-zw2(ig,l))<1E-10) THEN
+          ! print*,'pb linter'
+        END IF
+        linter(ig) = (l*(zw2(ig,l+1)-zw2(ig,l))-zw2(ig,l))/(zw2(ig,l+1)-zw2( &
+          ig,l))
+        zw2(ig, l+1) = 0.
+        lmaxa(ig) = l
+      ELSE
+        IF (zw2(ig,l+1)<0.) THEN
+          ! print*,'pb1 zw2<0'
+        END IF
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+    END DO
+  END DO
+  ! print*,'fin calcul zw2'
+
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO ig = 1, ngrid
+    lmax(ig) = lentr(ig)
+    ! lmax(ig)=lalim(ig)
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, lentr(ig) + 1, -1
+      ! do l=nlay,lalim(ig)+1,-1
+      IF (zw2(ig,l)<=1.E-10) THEN
+        lmax(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>5) THEN
+      lmax(ig) = 1
+      lmin(ig) = 1
+      lentr(ig) = 1
+      lalim(ig) = 1
+    END IF
+  END DO
+
+  ! Determination de zw2 max
+  DO ig = 1, ngrid
+    wmax(ig) = 0.
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig)) THEN
+        IF (zw2(ig,l)<0.) THEN
+          ! print*,'pb2 zw2<0'
+        END IF
+        zw2(ig, l) = sqrt(zw2(ig,l))
+        wmax(ig) = max(wmax(ig), zw2(ig,l))
+      ELSE
+        zw2(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 0.
+    zlevinter(ig) = zlev(ig, 1)
+  END DO
+  DO ig = 1, ngrid
+    ! calcul de zlevinter
+    zlevinter(ig) = (zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*linter(ig) + &
+      zlev(ig, lmax(ig)) - lmax(ig)*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+    zmax(ig) = max(zmax(ig), zlevinter(ig)-zlev(ig,lmin(ig)))
+  END DO
+  DO ig = 1, ngrid
+    ! write(8,*)zmax(ig),lmax(ig),lentr(ig),lmin(ig)
+  END DO
+  ! on stope après les calculs de zmax et wmax
+  RETURN
+
+  ! print*,'avant fermeture'
+  ! Fermeture,determination de f
+  ! Attention! entrainement normalisé ou pas?
+  DO ig = 1, ngrid
+    entr_star2(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    IF (entr_star_tot(ig)<1.E-10) THEN
+      f(ig) = 0.
+    ELSE
+      DO k = lmin(ig), lentr(ig)
+        ! do k=lmin(ig),lalim(ig)
+        entr_star2(ig) = entr_star2(ig) + entr_star(ig, k)**2/(rho(ig,k)*( &
+          zlev(ig,k+1)-zlev(ig,k)))
+      END DO
+      ! Nouvelle fermeture
+      f(ig) = wmax(ig)/(max(500.,zmax(ig))*r_aspect*entr_star2(ig))
+      ! s            *entr_star_tot(ig)
+      ! test
+      ! if (first) then
+      f(ig) = f(ig) + (f0(ig)-f(ig))*exp(-ptimestep/zmax(ig)*wmax(ig))
+      ! endif
+    END IF
+    f0(ig) = f(ig)
+    ! first=.true.
+  END DO
+  ! print*,'apres fermeture'
+  ! on stoppe après la fermeture
+  RETURN
+  ! Calcul de l'entrainement
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      entr(ig, k) = f(ig)*entr_star(ig, k)
+    END DO
+  END DO
+  ! on stoppe après le calcul de entr
+  ! RETURN
+  ! CR:test pour entrainer moins que la masse
+  ! do ig=1,ngrid
+  ! do l=1,lentr(ig)
+  ! if ((entr(ig,l)*ptimestep).gt.(0.9*masse(ig,l))) then
+  ! entr(ig,l+1)=entr(ig,l+1)+entr(ig,l)
+  ! s                       -0.9*masse(ig,l)/ptimestep
+  ! entr(ig,l)=0.9*masse(ig,l)/ptimestep
+  ! endif
+  ! enddo
+  ! enddo
+  ! CR: fin test
+  ! Calcul des flux
+  DO ig = 1, ngrid
+    DO l = 1, lmax(ig) - 1
+      fmc(ig, l+1) = fmc(ig, l) + entr(ig, l)
+    END DO
+  END DO
+
+  ! RC
+
+
+  ! print*,'9 OK convect8'
+  ! print*,'WA1 ',wa_moy
+
+  ! determination de l'indice du debut de la mixed layer ou w decroit
+
+  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
+  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
+  ! d'une couche est égale à la hauteur de la couche alimentante.
+  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
+  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        zw = max(wa_moy(ig,l), 1.E-10)
+        larg_cons(ig, l) = zmax(ig)*r_aspect*fmc(ig, l)/(rhobarz(ig,l)*zw)
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        ! if (idetr.eq.0) then
+        ! cette option est finalement en dur.
+        IF ((l_mix*zlev(ig,l))<0.) THEN
+          ! print*,'pb l_mix*zlev<0'
+        END IF
+        ! CR: test: nouvelle def de lambda
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        IF (zw2(ig,l)>1.E-10) THEN
+          larg_detr(ig, l) = sqrt((l_mix/zw2(ig,l))*zlev(ig,l))
+        ELSE
+          larg_detr(ig, l) = sqrt(l_mix*zlev(ig,l))
+        END IF
+        ! RC
+        ! else if (idetr.eq.1) then
+        ! larg_detr(ig,l)=larg_cons(ig,l)
+        ! s            *sqrt(l_mix*zlev(ig,l))/larg_cons(ig,lmix(ig))
+        ! else if (idetr.eq.2) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *sqrt(wa_moy(ig,l))
+        ! else if (idetr.eq.4) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *wa_moy(ig,l)
+        ! endif
+      END IF
+    END DO
+  END DO
+
+  ! print*,'10 OK convect8'
+  ! print*,'WA2 ',wa_moy
+  ! calcul de la fraction de la maille concernée par l'ascendance en tenant
+  ! compte de l'epluchage du thermique.
+
+  ! CR def de  zmix continu (profil parabolique des vitesses)
+  DO ig = 1, ngrid
+    IF (lmix(ig)>1.) THEN
+      ! test
+      IF (((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))- &
+          (zlev(ig,lmix(ig)))))>1E-10) THEN
+
+        zmix(ig) = ((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)) &
+          )**2-(zlev(ig,lmix(ig)+1))**2)-(zw2(ig,lmix(ig))-zw2(ig, &
+          lmix(ig)+1))*((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))/ &
+          (2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+      ELSE
+        zmix(ig) = zlev(ig, lmix(ig))
+        ! print*,'pb zmix'
+      END IF
+    ELSE
+      zmix(ig) = 0.
+    END IF
+    ! test
+    IF ((zmax(ig)-zmix(ig))<0.) THEN
+      zmix(ig) = 0.99*zmax(ig)
+      ! print*,'pb zmix>zmax'
+    END IF
+  END DO
+
+  ! calcul du nouveau lmix correspondant
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      IF (zmix(ig)>=zlev(ig,l) .AND. zmix(ig)<zlev(ig,l+1)) THEN
+        lmix(ig) = l
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        ! print*,ig,l,lmix(ig),lmaxa(ig),larg_cons(ig,l),'  KKK'
+        fraca(ig, l) = (larg_cons(ig,l)-larg_detr(ig,l))/(r_aspect*zmax(ig))
+        ! test
+        fraca(ig, l) = max(fraca(ig,l), 0.)
+        fraca(ig, l) = min(fraca(ig,l), 0.5)
+        fracd(ig, l) = 1. - fraca(ig, l)
+        fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+      ELSE
+        ! wa_moy(ig,l)=0.
+        fraca(ig, l) = 0.
+        fracc(ig, l) = 0.
+        fracd(ig, l) = 1.
+      END IF
+    END DO
+  END DO
+  ! CR: calcul de fracazmix
+  DO ig = 1, ngrid
+    fracazmix(ig) = (fraca(ig,lmix(ig)+1)-fraca(ig,lmix(ig)))/ &
+      (zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))*zmix(ig) + &
+      fraca(ig, lmix(ig)) - zlev(ig, lmix(ig))*(fraca(ig,lmix(ig)+1)-fraca(ig &
+      ,lmix(ig)))/(zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        IF (l>lmix(ig)) THEN
+          ! test
+          IF (zmax(ig)-zmix(ig)<1.E-10) THEN
+            ! print*,'pb xxx'
+            xxx(ig, l) = (lmaxa(ig)+1.-l)/(lmaxa(ig)+1.-lmix(ig))
+          ELSE
+            xxx(ig, l) = (zmax(ig)-zlev(ig,l))/(zmax(ig)-zmix(ig))
+          END IF
+          IF (idetr==0) THEN
+            fraca(ig, l) = fracazmix(ig)
+          ELSE IF (idetr==1) THEN
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)
+          ELSE IF (idetr==2) THEN
+            fraca(ig, l) = fracazmix(ig)*(1.-(1.-xxx(ig,l))**2)
+          ELSE
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)**2
+          END IF
+          ! print*,ig,l,lmix(ig),lmaxa(ig),xxx(ig,l),'LLLLLLL'
+          fraca(ig, l) = max(fraca(ig,l), 0.)
+          fraca(ig, l) = min(fraca(ig,l), 0.5)
+          fracd(ig, l) = 1. - fraca(ig, l)
+          fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! print*,'fin calcul fraca'
+  ! print*,'11 OK convect8'
+  ! print*,'Ea3 ',wa_moy
+  ! ------------------------------------------------------------------
+  ! Calcul de fracd, wd
+  ! somme wa - wd = 0
+  ! ------------------------------------------------------------------
+
+
+  DO ig = 1, ngrid
+    fm(ig, 1) = 0.
+    fm(ig, nlay+1) = 0.
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      fm(ig, l) = fraca(ig, l)*wa_moy(ig, l)*rhobarz(ig, l)
+      ! CR:test
+      IF (entr(ig,l-1)<1E-10 .AND. fm(ig,l)>fm(ig,l-1) .AND. l>lmix(ig)) THEN
+        fm(ig, l) = fm(ig, l-1)
+        ! write(1,*)'ajustement fm, l',l
+      END IF
+      ! write(1,*)'ig,l,fm(ig,l)',ig,l,fm(ig,l)
+      ! RC
+    END DO
+    DO ig = 1, ngrid
+      IF (fracd(ig,l)<0.1) THEN
+        abort_message = 'fracd trop petit'
+        CALL abort_physic(modname, abort_message, 1)
+
+      ELSE
+        ! vitesse descendante "diagnostique"
+        wd(ig, l) = fm(ig, l)/(fracd(ig,l)*rhobarz(ig,l))
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+
+  ! print*,'12 OK convect8'
+  ! print*,'WA4 ',wa_moy
+  ! c------------------------------------------------------------------
+  ! calcul du transport vertical
+  ! ------------------------------------------------------------------
+
+  GO TO 4444
+  ! print*,'XXXXXXXXXXXXXXX ptimestep= ',ptimestep
+  DO l = 2, nlay - 1
+    DO ig = 1, ngrid
+      IF (fm(ig,l+1)*ptimestep>masse(ig,l) .AND. fm(ig,l+1)*ptimestep>masse( &
+          ig,l+1)) THEN
+        ! print*,'WARN!!! FM>M ig=',ig,' l=',l,'  FM='
+        ! s         ,fm(ig,l+1)*ptimestep
+        ! s         ,'   M=',masse(ig,l),masse(ig,l+1)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (entr(ig,l)*ptimestep>masse(ig,l)) THEN
+        ! print*,'WARN!!! E>M ig=',ig,' l=',l,'  E=='
+        ! s         ,entr(ig,l)*ptimestep
+        ! s         ,'   M=',masse(ig,l)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (.NOT. fm(ig,l)>=0. .OR. .NOT. fm(ig,l)<=10.) THEN
+        ! print*,'WARN!!! fm exagere ig=',ig,'   l=',l
+        ! s         ,'   FM=',fm(ig,l)
+      END IF
+      IF (.NOT. masse(ig,l)>=1.E-10 .OR. .NOT. masse(ig,l)<=1.E4) THEN
+        ! print*,'WARN!!! masse exagere ig=',ig,'   l=',l
+        ! s         ,'   M=',masse(ig,l)
+        ! print*,'rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)',
+        ! s                 rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)
+        ! print*,'zlev(ig,l+1),zlev(ig,l)'
+        ! s                ,zlev(ig,l+1),zlev(ig,l)
+        ! print*,'pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)'
+        ! s                ,pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)
+      END IF
+      IF (.NOT. entr(ig,l)>=0. .OR. .NOT. entr(ig,l)<=10.) THEN
+        ! print*,'WARN!!! entr exagere ig=',ig,'   l=',l
+        ! s         ,'   E=',entr(ig,l)
+      END IF
+    END DO
+  END DO
+
+4444 CONTINUE
+
+  ! CR:redefinition du entr
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, l) = fm(ig, l) + entr(ig, l) - fm(ig, l+1)
+      IF (detr(ig,l)<0.) THEN
+        ! entr(ig,l)=entr(ig,l)-detr(ig,l)
+        fm(ig, l+1) = fm(ig, l) + entr(ig, l)
+        detr(ig, l) = 0.
+        ! print*,'WARNING !!! detrainement negatif ',ig,l
+      END IF
+    END DO
+  END DO
+  ! RC
+  IF (w2di==1) THEN
+    fm0 = fm0 + ptimestep*(fm-fm0)/tho
+    entr0 = entr0 + ptimestep*(entr-entr0)/tho
+  ELSE
+    fm0 = fm
+    entr0 = entr
+  END IF
+
+  IF (1==1) THEN
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zh, zdhadj, &
+      zha)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zo, pdoadj, &
+      zoa)
+  ELSE
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zh, &
+      zdhadj, zha)
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zo, &
+      pdoadj, zoa)
+  END IF
+
+  IF (1==0) THEN
+    CALL dvthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zmax, &
+      zu, zv, pduadj, pdvadj, zua, zva)
+  ELSE
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zu, pduadj, &
+      zua)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zv, pdvadj, &
+      zva)
+  END IF
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zf = 0.5*(fracc(ig,l)+fracc(ig,l+1))
+      zf2 = zf/(1.-zf)
+      thetath2(ig, l) = zf2*(zha(ig,l)-zh(ig,l))**2
+      wth2(ig, l) = zf2*(0.5*(wa_moy(ig,l)+wa_moy(ig,l+1)))**2
+    END DO
+  END DO
+
+
+
+  ! print*,'13 OK convect8'
+  ! print*,'WA5 ',wa_moy
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      pdtadj(ig, l) = zdhadj(ig, l)*zpspsk(ig, l)
+    END DO
+  END DO
+
+
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! if(abs(pdtadj(ig,l))*86400..gt.500.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdtadj=',pdtadj(ig,l)
+  ! endif
+  ! if(abs(pdoadj(ig,l))*86400..gt.1.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdoadj=',pdoadj(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+
+  ! print*,'14 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calculs pour les sorties
+  ! ------------------------------------------------------------------
+
+  IF (sorties) THEN
+    DO l = 1, nlay
+      DO ig = 1, ngrid
+        zla(ig, l) = (1.-fracd(ig,l))*zmax(ig)
+        zld(ig, l) = fracd(ig, l)*zmax(ig)
+        IF (1.-fracd(ig,l)>1.E-10) zwa(ig, l) = wd(ig, l)*fracd(ig, l)/ &
+          (1.-fracd(ig,l))
+      END DO
+    END DO
+
+    ! deja fait
+    ! do l=1,nlay
+    ! do ig=1,ngrid
+    ! detr(ig,l)=fm(ig,l)+entr(ig,l)-fm(ig,l+1)
+    ! if (detr(ig,l).lt.0.) then
+    ! entr(ig,l)=entr(ig,l)-detr(ig,l)
+    ! detr(ig,l)=0.
+    ! print*,'WARNING !!! detrainement negatif ',ig,l
+    ! endif
+    ! enddo
+    ! enddo
+
+    ! print*,'15 OK convect8'
+
+    isplit = isplit + 1
+
+
+    ! #define und
+    GO TO 123
+#ifdef und
+    CALL writeg1d(1, nlay, wd, 'wd      ', 'wd      ')
+    CALL writeg1d(1, nlay, zwa, 'wa      ', 'wa      ')
+    CALL writeg1d(1, nlay, fracd, 'fracd      ', 'fracd      ')
+    CALL writeg1d(1, nlay, fraca, 'fraca      ', 'fraca      ')
+    CALL writeg1d(1, nlay, wa_moy, 'wam         ', 'wam         ')
+    CALL writeg1d(1, nlay, zla, 'la      ', 'la      ')
+    CALL writeg1d(1, nlay, zld, 'ld      ', 'ld      ')
+    CALL writeg1d(1, nlay, pt, 'pt      ', 'pt      ')
+    CALL writeg1d(1, nlay, zh, 'zh      ', 'zh      ')
+    CALL writeg1d(1, nlay, zha, 'zha      ', 'zha      ')
+    CALL writeg1d(1, nlay, zu, 'zu      ', 'zu      ')
+    CALL writeg1d(1, nlay, zv, 'zv      ', 'zv      ')
+    CALL writeg1d(1, nlay, zo, 'zo      ', 'zo      ')
+    CALL writeg1d(1, nlay, wh, 'wh      ', 'wh      ')
+    CALL writeg1d(1, nlay, wu, 'wu      ', 'wu      ')
+    CALL writeg1d(1, nlay, wv, 'wv      ', 'wv      ')
+    CALL writeg1d(1, nlay, wo, 'w15uo     ', 'wXo     ')
+    CALL writeg1d(1, nlay, zdhadj, 'zdhadj      ', 'zdhadj      ')
+    CALL writeg1d(1, nlay, pduadj, 'pduadj      ', 'pduadj      ')
+    CALL writeg1d(1, nlay, pdvadj, 'pdvadj      ', 'pdvadj      ')
+    CALL writeg1d(1, nlay, pdoadj, 'pdoadj      ', 'pdoadj      ')
+    CALL writeg1d(1, nlay, entr, 'entr        ', 'entr        ')
+    CALL writeg1d(1, nlay, detr, 'detr        ', 'detr        ')
+    CALL writeg1d(1, nlay, fm, 'fm          ', 'fm          ')
+
+    CALL writeg1d(1, nlay, pdtadj, 'pdtadj    ', 'pdtadj    ')
+    CALL writeg1d(1, nlay, pplay, 'pplay     ', 'pplay     ')
+    CALL writeg1d(1, nlay, pplev, 'pplev     ', 'pplev     ')
+
+    ! recalcul des flux en diagnostique...
+    ! print*,'PAS DE TEMPS ',ptimestep
+    CALL dt2f(pplev, pplay, pt, pdtadj, wh)
+    CALL writeg1d(1, nlay, wh, 'wh2     ', 'wh2     ')
+#endif
+123 CONTINUE
+
+  END IF
+
+  ! if(wa_moy(1,4).gt.1.e-10) stop
+
+  ! print*,'19 OK convect8'
+  RETURN
+END SUBROUTINE calcul_sec
+
+SUBROUTINE fermeture_seche(ngrid, nlay, pplay, pplev, pphi, zlev, rhobarz, &
+    f0, zpspsk, alim_star, zh, zo, lentr, lmin, nu_min, nu_max, r_aspect, &
+    zmax, wmax)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  include "YOMCST.h"
+
+  INTEGER ngrid, nlay
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+  REAL zlev(klon, klev+1)
+  REAL alim_star(klon, klev)
+  REAL f0(klon)
+  INTEGER lentr(klon)
+  INTEGER lmin(klon)
+  REAL zmax(klon)
+  REAL wmax(klon)
+  REAL nu_min
+  REAL nu_max
+  REAL r_aspect
+  REAL rhobarz(klon, klev+1)
+  REAL zh(klon, klev)
+  REAL zo(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  INTEGER ig, l
+
+  REAL f_star(klon, klev+1)
+  REAL detr_star(klon, klev)
+  REAL entr_star(klon, klev)
+  REAL zw2(klon, klev+1)
+  REAL linter(klon)
+  INTEGER lmix(klon)
+  INTEGER lmax(klon)
+  REAL zlevinter(klon)
+  REAL wa_moy(klon, klev+1)
+  REAL wmaxa(klon)
+  REAL ztv(klon, klev)
+  REAL ztva(klon, klev)
+  REAL nu(klon, klev)
+  ! real zmax0_sec(klon)
+  ! save zmax0_sec
+  REAL, SAVE, ALLOCATABLE :: zmax0_sec(:)
+  !$OMP THREADPRIVATE(zmax0_sec)
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(first)
+
+  IF (first) THEN
+    ALLOCATE (zmax0_sec(klon))
+    first = .FALSE.
+  END IF
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ztv(ig, l) = zh(ig, l)/zpspsk(ig, l)
+      ztv(ig, l) = ztv(ig, l)*(1.+retv*zo(ig,l))
+    END DO
+  END DO
+  DO l = 1, nlay - 2
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. alim_star(ig,l)>1.E-10 .AND. &
+          zw2(ig,l)<1E-10) THEN
+        f_star(ig, l+1) = alim_star(ig, l)
+        ! test:calcul de dteta
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))*0.4*pphi(ig, l)/(pphi(ig,l+1)-pphi(ig,l))
+      ELSE IF ((zw2(ig,l)>=1E-10) .AND. (f_star(ig,l)+alim_star(ig, &
+          l))>1.E-10) THEN
+        ! estimation du detrainement a partir de la geometrie du pas
+        ! precedent
+        ! tests sur la definition du detr
+        nu(ig, l) = (nu_min+nu_max)/2.*(1.-(nu_max-nu_min)/(nu_max+nu_min)* &
+          tanh((((ztva(ig,l-1)-ztv(ig,l))/ztv(ig,l))/0.0005)))
+
+        detr_star(ig, l) = rhobarz(ig, l)*sqrt(zw2(ig,l))/ &
+          (r_aspect*zmax0_sec(ig))* & ! s
+                                      ! /(r_aspect*zmax0(ig))*
+          (sqrt(nu(ig,l)*zlev(ig,l+1)/sqrt(zw2(ig,l)))-sqrt(nu(ig,l)*zlev(ig, &
+          l)/sqrt(zw2(ig,l))))
+        detr_star(ig, l) = detr_star(ig, l)/f0(ig)
+        IF ((detr_star(ig,l))>f_star(ig,l)) THEN
+          detr_star(ig, l) = f_star(ig, l)
+        END IF
+        entr_star(ig, l) = 0.9*detr_star(ig, l)
+        IF ((l<lentr(ig))) THEN
+          entr_star(ig, l) = 0.
+          ! detr_star(ig,l)=0.
+        END IF
+        ! print*,'ok detr_star'
+        ! prise en compte du detrainement dans le calcul du flux
+        f_star(ig, l+1) = f_star(ig, l) + alim_star(ig, l) + &
+          entr_star(ig, l) - detr_star(ig, l)
+        ! test sur le signe de f_star
+        IF ((f_star(ig,l+1)+detr_star(ig,l))>1.E-10) THEN
+          ! AM on melange Tl et qt du thermique
+          ztva(ig, l) = (f_star(ig,l)*ztva(ig,l-1)+(entr_star(ig, &
+            l)+alim_star(ig,l))*ztv(ig,l))/(f_star(ig,l+1)+detr_star(ig,l))
+          zw2(ig, l+1) = zw2(ig, l)*(f_star(ig,l)/(f_star(ig, &
+            l+1)+detr_star(ig,l)))**2 + 2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, &
+            l)*(zlev(ig,l+1)-zlev(ig,l))
+        END IF
+      END IF
+
+      IF (zw2(ig,l+1)<0.) THEN
+        linter(ig) = (l*(zw2(ig,l+1)-zw2(ig,l))-zw2(ig,l))/(zw2(ig,l+1)-zw2( &
+          ig,l))
+        zw2(ig, l+1) = 0.
+        ! print*,'linter=',linter(ig)
+      ELSE
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+    END DO
+  END DO
+  ! print*,'fin calcul zw2'
+
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO ig = 1, ngrid
+    lmax(ig) = lentr(ig)
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, lentr(ig) + 1, -1
+      IF (zw2(ig,l)<=1.E-10) THEN
+        lmax(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>1) THEN
+      lmax(ig) = 1
+      lmin(ig) = 1
+      lentr(ig) = 1
+    END IF
+  END DO
+
+  ! Determination de zw2 max
+  DO ig = 1, ngrid
+    wmax(ig) = 0.
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig)) THEN
+        IF (zw2(ig,l)<0.) THEN
+          ! print*,'pb2 zw2<0'
+        END IF
+        zw2(ig, l) = sqrt(zw2(ig,l))
+        wmax(ig) = max(wmax(ig), zw2(ig,l))
+      ELSE
+        zw2(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 0.
+    zlevinter(ig) = zlev(ig, 1)
+  END DO
+  DO ig = 1, ngrid
+    ! calcul de zlevinter
+    zlevinter(ig) = (zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*linter(ig) + &
+      zlev(ig, lmax(ig)) - lmax(ig)*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+    ! pour le cas ou on prend tjs lmin=1
+    ! zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,lmin(ig)))
+    zmax(ig) = max(zmax(ig), zlevinter(ig)-zlev(ig,1))
+    zmax0_sec(ig) = zmax(ig)
+  END DO
+
+  RETURN
+END SUBROUTINE fermeture_seche
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell.h	(revision 3330)
@@ -0,0 +1,30 @@
+      integer            :: iflag_thermals,nsplit_thermals
+
+!!! nrlmd le 10/04/2012
+      integer            :: iflag_trig_bl,iflag_clos_bl
+      integer            :: tau_trig_shallow,tau_trig_deep
+      real               :: s_trig
+!!! fin nrlmd le 10/04/2012
+
+      real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
+      real               :: alp_bl_k
+      real               :: tau_thermals,fact_thermals_ed_dz
+      integer,parameter  :: w2di_thermals=0
+      integer            :: isplit
+
+      integer            :: iflag_coupl,iflag_clos,iflag_wake
+      integer            :: iflag_thermals_ed,iflag_thermals_optflux,iflag_thermals_closure
+
+      common/ctherm1/iflag_thermals,nsplit_thermals,iflag_thermals_closure
+      common/ctherm2/tau_thermals,alp_bl_k,fact_thermals_ed_dz
+      common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
+      common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
+
+!!! nrlmd le 10/04/2012
+      common/ctherm6/iflag_trig_bl,iflag_clos_bl
+      common/ctherm7/tau_trig_shallow,tau_trig_deep
+      common/ctherm8/s_trig
+!!! fin nrlmd le 10/04/2012
+
+!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)
+!$OMP THREADPRIVATE(/ctherm6/,/ctherm7/,/ctherm8/)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcellV0_main.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcellV0_main.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcellV0_main.F90	(revision 3330)
@@ -0,0 +1,2079 @@
+!
+! $Id$
+!
+      SUBROUTINE thermcellV0_main(itap,ngrid,nlay,ptimestep  &
+     &                  ,pplay,pplev,pphi,debut  &
+     &                  ,pu,pv,pt,po  &
+     &                  ,pduadj,pdvadj,pdtadj,pdoadj  &
+     &                  ,fm0,entr0,detr0,zqta,zqla,lmax  &
+     &                  ,ratqscth,ratqsdiff,zqsatth  &
+     &                  ,r_aspect,l_mix,tau_thermals &
+     &                  ,Ale_bl,Alp_bl,lalim_conv,wght_th &
+     &                  ,zmax0, f0,zw2,fraca)
+
+      USE dimphy
+      USE print_control_mod, ONLY: prt_level,lunout
+      IMPLICIT NONE
+
+!=======================================================================
+!   Auteurs: Frederic Hourdin, Catherine Rio, Anne Mathieu
+!   Version du 09.02.07
+!   Calcul du transport vertical dans la couche limite en presence
+!   de "thermiques" explicitement representes avec processus nuageux
+!
+!   Réécriture à partir d'un listing papier à Habas, le 14/02/00
+!
+!   le thermique est supposé homogène et dissipé par mélange avec
+!   son environnement. la longueur l_mix contrôle l'efficacité du
+!   mélange
+!
+!   Le calcul du transport des différentes espèces se fait en prenant
+!   en compte:
+!     1. un flux de masse montant
+!     2. un flux de masse descendant
+!     3. un entrainement
+!     4. un detrainement
+!
+!=======================================================================
+
+!-----------------------------------------------------------------------
+!   declarations:
+!   -------------
+
+      include "YOMCST.h"
+      include "YOETHF.h"
+      include "FCTTRE.h"
+
+!   arguments:
+!   ----------
+
+!IM 140508
+      INTEGER itap
+
+      INTEGER ngrid,nlay,w2di
+      real tau_thermals
+      real ptimestep,l_mix,r_aspect
+      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
+      REAL pu(ngrid,nlay),pduadj(ngrid,nlay)
+      REAL pv(ngrid,nlay),pdvadj(ngrid,nlay)
+      REAL po(ngrid,nlay),pdoadj(ngrid,nlay)
+      REAL pplay(ngrid,nlay),pplev(ngrid,nlay+1)
+      real pphi(ngrid,nlay)
+
+!   local:
+!   ------
+
+      integer icount
+      data icount/0/
+      save icount
+!$OMP THREADPRIVATE(icount)
+
+      integer,save :: igout=1
+!$OMP THREADPRIVATE(igout)
+      integer,save :: lunout1=6
+!$OMP THREADPRIVATE(lunout1)
+      integer,save :: lev_out=10
+!$OMP THREADPRIVATE(lev_out)
+
+      INTEGER ig,k,l,ll
+      real zsortie1d(klon)
+      INTEGER lmax(klon),lmin(klon),lalim(klon)
+      INTEGER lmix(klon)
+      INTEGER lmix_bis(klon)
+      real linter(klon)
+      real zmix(klon)
+      real zmax(klon),zw2(klon,klev+1),ztva(klon,klev),zw_est(klon,klev+1)
+!      real fraca(klon,klev)
+
+      real zmax_sec(klon)
+!on garde le zmax du pas de temps precedent
+      real zmax0(klon)
+!FH/IM     save zmax0
+
+      real lambda
+
+      real zlev(klon,klev+1),zlay(klon,klev)
+      real deltaz(klon,klev)
+      REAL zh(klon,klev)
+      real zthl(klon,klev),zdthladj(klon,klev)
+      REAL ztv(klon,klev)
+      real zu(klon,klev),zv(klon,klev),zo(klon,klev)
+      real zl(klon,klev)
+      real zsortie(klon,klev)
+      real zva(klon,klev)
+      real zua(klon,klev)
+      real zoa(klon,klev)
+
+      real zta(klon,klev)
+      real zha(klon,klev)
+      real fraca(klon,klev+1)
+      real zf,zf2
+      real thetath2(klon,klev),wth2(klon,klev),wth3(klon,klev)
+      real q2(klon,klev)
+! FH probleme de dimensionnement avec l'allocation dynamique
+!     common/comtherm/thetath2,wth2
+    
+      real ratqscth(klon,klev)
+      real var
+      real vardiff
+      real ratqsdiff(klon,klev)
+
+      logical sorties
+      real rho(klon,klev),rhobarz(klon,klev),masse(klon,klev)
+      real zpspsk(klon,klev)
+
+      real wmax(klon)
+      real wmax_sec(klon)
+      real fm0(klon,klev+1),entr0(klon,klev),detr0(klon,klev)
+      real fm(klon,klev+1),entr(klon,klev),detr(klon,klev)
+
+      real ztla(klon,klev),zqla(klon,klev),zqta(klon,klev)
+!niveau de condensation
+      integer nivcon(klon)
+      real zcon(klon)
+      REAL CHI
+      real zcon2(klon)
+      real pcon(klon)
+      real zqsat(klon,klev)
+      real zqsatth(klon,klev) 
+
+      real f_star(klon,klev+1),entr_star(klon,klev)
+      real detr_star(klon,klev)
+      real alim_star_tot(klon),alim_star2(klon)
+      real alim_star(klon,klev)
+      real f(klon), f0(klon)
+!FH/IM     save f0
+      real zlevinter(klon)
+      logical debut
+       real seuil
+
+! Declaration uniquement pour les sorties dans thermcell_out3d.
+! Inutilise en 3D
+      real wthl(klon,klev)
+      real wthv(klon,klev)
+      real wq(klon,klev)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!
+      !nouvelles variables pour la convection
+      real Ale_bl(klon)
+      real Alp_bl(klon)
+      real alp_int(klon)
+      real ale_int(klon)
+      integer n_int(klon)
+      real fm_tot(klon)
+      real wght_th(klon,klev)
+      integer lalim_conv(klon)
+!v1d     logical therm
+!v1d     save therm
+
+      character*2 str2
+      character*10 str10
+
+      character (len=20) :: modname='thermcellV0_main'
+      character (len=80) :: abort_message
+
+      EXTERNAL SCOPY
+!
+
+!-----------------------------------------------------------------------
+!   initialisation:
+!   ---------------
+!
+
+      seuil=0.25
+
+      if (debut)  then
+         fm0=0.
+         entr0=0.
+         detr0=0.
+      endif
+      fm=0. ; entr=0. ; detr=0.
+
+      icount=icount+1
+
+!IM 090508 beg
+!print*,'====================================================================='
+!print*,'====================================================================='
+!print*,' PAS ',icount,' PAS ',icount,' PAS ',icount,' PAS ',icount
+!print*,'====================================================================='
+!print*,'====================================================================='
+!IM 090508 end
+
+      if (prt_level.ge.1) print*,'thermcell_main V4'
+
+       sorties=.true.
+      IF(ngrid.NE.klon) THEN
+         PRINT*
+         PRINT*,'STOP dans convadj'
+         PRINT*,'ngrid    =',ngrid
+         PRINT*,'klon  =',klon
+      ENDIF
+!
+!Initialisation
+!
+     if (prt_level.ge.10)write(lunout,*)                                &
+    &     'WARNING thermcell_main f0=max(f0,1.e-2)'
+     do ig=1,klon
+         f0(ig)=max(f0(ig),1.e-2)
+     enddo
+
+!-----------------------------------------------------------------------
+! Calcul de T,q,ql a partir de Tl et qT dans l environnement
+!   --------------------------------------------------------------------
+!
+      CALL thermcell_env(ngrid,nlay,po,pt,pu,pv,pplay,  &
+     &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out)
+       
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_env'
+
+!------------------------------------------------------------------------
+!                       --------------------
+!
+!
+!                       + + + + + + + + + + +
+!
+!
+!  wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+!  wh,wt,wo ...
+!
+!                       + + + + + + + + + + +  zh,zu,zv,zo,rho
+!
+!
+!                       --------------------   zlev(1)
+!                       \\\\\\\\\\\\\\\\\\\\
+!
+!
+
+!-----------------------------------------------------------------------
+!   Calcul des altitudes des couches
+!-----------------------------------------------------------------------
+
+      do l=2,nlay
+         zlev(:,l)=0.5*(pphi(:,l)+pphi(:,l-1))/RG
+      enddo
+         zlev(:,1)=0.
+         zlev(:,nlay+1)=(2.*pphi(:,klev)-pphi(:,klev-1))/RG
+      do l=1,nlay
+         zlay(:,l)=pphi(:,l)/RG
+      enddo
+!calcul de l epaisseur des couches
+      do l=1,nlay
+         deltaz(:,l)=zlev(:,l+1)-zlev(:,l)
+      enddo
+
+!     print*,'2 OK convect8'
+!-----------------------------------------------------------------------
+!   Calcul des densites
+!-----------------------------------------------------------------------
+
+      do l=1,nlay
+         rho(:,l)=pplay(:,l)/(zpspsk(:,l)*RD*ztv(:,l))
+      enddo
+
+!IM
+     if (prt_level.ge.10)write(lunout,*)                                &
+    &    'WARNING thermcell_main rhobarz(:,1)=rho(:,1)'
+      rhobarz(:,1)=rho(:,1)
+
+      do l=2,nlay
+         rhobarz(:,l)=0.5*(rho(:,l)+rho(:,l-1))
+      enddo
+
+!calcul de la masse
+      do l=1,nlay
+         masse(:,l)=(pplev(:,l)-pplev(:,l+1))/RG
+      enddo
+
+      if (prt_level.ge.1) print*,'thermcell_main apres initialisation'
+
+!------------------------------------------------------------------
+!
+!             /|\
+!    --------  |  F_k+1 -------   
+!                              ----> D_k
+!             /|\              <---- E_k , A_k
+!    --------  |  F_k --------- 
+!                              ----> D_k-1
+!                              <---- E_k-1 , A_k-1
+!
+!
+!
+!
+!
+!    ---------------------------
+!
+!    ----- F_lmax+1=0 ----------         \
+!            lmax     (zmax)              |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |  E
+!    ---------------------------          |  D
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------  \       |
+!            lalim                 |      |
+!    ---------------------------   |      |
+!                                  |      |
+!    ---------------------------   |      |
+!                                  | A    |
+!    ---------------------------   |      |
+!                                  |      |
+!    ---------------------------   |      |
+!    lmin  (=1 pour le moment)     |      |
+!    ----- F_lmin=0 ------------  /      /
+!
+!    ---------------------------
+!    //////////////////////////
+!
+!
+!=============================================================================
+!  Calculs initiaux ne faisant pas intervenir les changements de phase
+!=============================================================================
+
+!------------------------------------------------------------------
+!  1. alim_star est le profil vertical de l'alimentation à la base du
+!     panache thermique, calculé à partir de la flotabilité de l'air sec
+!  2. lmin et lalim sont les indices inferieurs et superieurs de alim_star
+!------------------------------------------------------------------
+!
+      entr_star=0. ; detr_star=0. ; alim_star=0. ; alim_star_tot=0.
+      CALL thermcellV0_init(ngrid,nlay,ztv,zlay,zlev,  &
+     &                    lalim,lmin,alim_star,alim_star_tot,lev_out)
+
+call testV0_ltherm(ngrid,nlay,pplev,pplay,lmin,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_init lmin  ')
+call testV0_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_init lalim ')
+
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_init'
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_main 1'
+         write(lunout1,*) 'lmin ',lmin(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) ' ig l alim_star thetav'
+         write(lunout1,'(i6,i4,2e15.5)') (igout,l,alim_star(igout,l) &
+     &   ,ztv(igout,l),l=1,lalim(igout)+4)
+      endif
+
+!v1d      do ig=1,klon
+!v1d     if (alim_star(ig,1).gt.1.e-10) then
+!v1d     therm=.true.
+!v1d     endif
+!v1d      enddo
+!-----------------------------------------------------------------------------
+!  3. wmax_sec et zmax_sec sont les vitesses et altitudes maximum d'un
+!     panache sec conservatif (e=d=0) alimente selon alim_star 
+!     Il s'agit d'un calcul de type CAPE
+!     zmax_sec est utilisé pour déterminer la géométrie du thermique.
+!------------------------------------------------------------------------------
+!
+      CALL thermcellV0_dry(ngrid,nlay,zlev,pphi,ztv,alim_star,  &
+     &                      lalim,lmin,zmax_sec,wmax_sec,lev_out)
+
+call testV0_ltherm(ngrid,nlay,pplev,pplay,lmin,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_dry  lmin  ')
+call testV0_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_dry  lalim ')
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_dry'
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_main 1b'
+         write(lunout1,*) 'lmin ',lmin(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) ' ig l alim_star entr_star detr_star f_star '
+         write(lunout1,'(i6,i4,e15.5)') (igout,l,alim_star(igout,l) &
+     &    ,l=1,lalim(igout)+4)
+      endif
+
+
+
+!---------------------------------------------------------------------------------
+!calcul du melange et des variables dans le thermique
+!--------------------------------------------------------------------------------
+!
+      if (prt_level.ge.1) print*,'avant thermcell_plume ',lev_out
+!IM 140508   CALL thermcell_plume(ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,  &
+      CALL thermcellV0_plume(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,  &
+     &           zlev,pplev,pphi,zpspsk,l_mix,r_aspect,alim_star,alim_star_tot,  &
+     &           lalim,zmax_sec,f0,detr_star,entr_star,f_star,ztva,  &
+     &           ztla,zqla,zqta,zha,zw2,zw_est,zqsatth,lmix,lmix_bis,linter &
+     &            ,lev_out,lunout1,igout)
+      if (prt_level.ge.1) print*,'apres thermcell_plume ',lev_out
+
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_plum lalim ')
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lmix ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_plum lmix  ')
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_plume'
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_main 2'
+         write(lunout1,*) 'lmin ',lmin(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) ' ig l alim_star entr_star detr_star f_star '
+         write(lunout1,'(i6,i4,4e15.5)') (igout,l,alim_star(igout,l),entr_star(igout,l),detr_star(igout,l) &
+     &    ,f_star(igout,l+1),l=1,nint(linter(igout))+5)
+      endif
+
+!-------------------------------------------------------------------------------
+! Calcul des caracteristiques du thermique:zmax,zmix,wmax
+!-------------------------------------------------------------------------------
+!
+      CALL thermcell_height(ngrid,nlay,lalim,lmin,linter,lmix,zw2,  &
+     &           zlev,lmax,zmax,zmax0,zmix,wmax,lev_out)
+
+
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lalim ')
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lmin ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmin  ')
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lmix ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmix  ')
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lmax ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmax  ')
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_height'
+
+!-------------------------------------------------------------------------------
+! Fermeture,determination de f
+!-------------------------------------------------------------------------------
+!
+!avant closure: on redéfinit lalim, alim_star_tot et alim_star
+!       do ig=1,klon
+!       do l=2,lalim(ig)
+!       alim_star(ig,l)=entr_star(ig,l)
+!       entr_star(ig,l)=0.
+!       enddo
+!       enddo
+
+      CALL thermcellV0_closure(ngrid,nlay,r_aspect,ptimestep,rho,  &
+     &   zlev,lalim,alim_star,alim_star_tot,zmax_sec,wmax_sec,zmax,wmax,f,lev_out)
+
+      if(prt_level.ge.1)print*,'thermcell_closure apres thermcell_closure'
+
+      if (tau_thermals>1.) then
+         lambda=exp(-ptimestep/tau_thermals)
+         f0=(1.-lambda)*f+lambda*f0
+      else
+         f0=f
+      endif
+
+! Test valable seulement en 1D mais pas genant
+      if (.not. (f0(1).ge.0.) ) then
+        abort_message = 'Dans thermcell_main f0(1).lt.0 '
+        CALL abort_physic (modname,abort_message,1)
+      endif
+
+!-------------------------------------------------------------------------------
+!deduction des flux
+!-------------------------------------------------------------------------------
+
+      CALL thermcell_flux2(ngrid,nlay,ptimestep,masse, &
+     &       lalim,lmax,alim_star,  &
+     &       entr_star,detr_star,f,rhobarz,zlev,zw2,fm,entr,  &
+     &       detr,zqla,lev_out,lunout1,igout)
+!IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_flux lalim ')
+      call testV0_ltherm(ngrid,nlay,pplev,pplay,lmax ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_flux lmax  ')
+
+!------------------------------------------------------------------
+!   On ne prend pas directement les profils issus des calculs precedents
+!   mais on s'autorise genereusement une relaxation vers ceci avec
+!   une constante de temps tau_thermals (typiquement 1800s).
+!------------------------------------------------------------------
+
+      if (tau_thermals>1.) then
+         lambda=exp(-ptimestep/tau_thermals)
+         fm0=(1.-lambda)*fm+lambda*fm0
+         entr0=(1.-lambda)*entr+lambda*entr0
+!        detr0=(1.-lambda)*detr+lambda*detr0
+      else
+         fm0=fm
+         entr0=entr
+         detr0=detr
+      endif
+
+!c------------------------------------------------------------------
+!   calcul du transport vertical
+!------------------------------------------------------------------
+
+      call thermcell_dq(ngrid,nlay,1,ptimestep,fm0,entr0,masse,  &
+     &                    zthl,zdthladj,zta,lev_out)
+      call thermcell_dq(ngrid,nlay,1,ptimestep,fm0,entr0,masse,  &
+     &                   po,pdoadj,zoa,lev_out)
+
+!------------------------------------------------------------------
+! Calcul de la fraction de l'ascendance
+!------------------------------------------------------------------
+      do ig=1,klon
+         fraca(ig,1)=0.
+         fraca(ig,nlay+1)=0.
+      enddo
+      do l=2,nlay
+         do ig=1,klon
+            if (zw2(ig,l).gt.1.e-10) then
+            fraca(ig,l)=fm(ig,l)/(rhobarz(ig,l)*zw2(ig,l))
+            else
+            fraca(ig,l)=0.
+            endif
+         enddo
+      enddo
+     
+!------------------------------------------------------------------
+!  calcul du transport vertical du moment horizontal
+!------------------------------------------------------------------
+
+!IM 090508  
+      if (1.eq.1) then
+!IM 070508 vers. _dq       
+!     if (1.eq.0) then
+
+
+! Calcul du transport de V tenant compte d'echange par gradient
+! de pression horizontal avec l'environnement
+
+         call thermcell_dv2(ngrid,nlay,ptimestep,fm0,entr0,masse  &
+     &    ,fraca,zmax  &
+     &    ,zu,zv,pduadj,pdvadj,zua,zva,lev_out)
+!IM 050508    &    ,zu,zv,pduadj,pdvadj,zua,zva,igout,lev_out)
+      else
+
+! calcul purement conservatif pour le transport de V
+         call thermcell_dq(ngrid,nlay,1,ptimestep,fm0,entr0,masse  &
+     &    ,zu,pduadj,zua,lev_out)
+         call thermcell_dq(ngrid,nlay,1,ptimestep,fm0,entr0,masse  &
+     &    ,zv,pdvadj,zva,lev_out)
+      endif
+
+!     print*,'13 OK convect8'
+      do l=1,nlay
+         do ig=1,ngrid
+           pdtadj(ig,l)=zdthladj(ig,l)*zpspsk(ig,l)  
+         enddo
+      enddo
+
+      if (prt_level.ge.1) print*,'14 OK convect8'
+!------------------------------------------------------------------
+!   Calculs de diagnostiques pour les sorties
+!------------------------------------------------------------------
+!calcul de fraca pour les sorties
+      
+      if (sorties) then
+      if (prt_level.ge.1) print*,'14a OK convect8'
+! calcul du niveau de condensation
+! initialisation
+      do ig=1,ngrid
+         nivcon(ig)=0
+         zcon(ig)=0.
+      enddo 
+!nouveau calcul
+      do ig=1,ngrid
+      CHI=zh(ig,1)/(1669.0-122.0*zo(ig,1)/zqsat(ig,1)-zh(ig,1))
+      pcon(ig)=pplay(ig,1)*(zo(ig,1)/zqsat(ig,1))**CHI
+      enddo
+!IM   do k=1,nlay
+      do k=1,nlay-1
+         do ig=1,ngrid
+         if ((pcon(ig).le.pplay(ig,k))  &
+     &      .and.(pcon(ig).gt.pplay(ig,k+1))) then
+            zcon2(ig)=zlay(ig,k)-(pcon(ig)-pplay(ig,k))/(RG*rho(ig,k))/100.
+         endif
+         enddo
+      enddo
+!IM
+      do ig=1,ngrid
+        if (pcon(ig).le.pplay(ig,nlay)) then 
+           zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100.
+           abort_message = 'thermcellV0_main: les thermiques vont trop haut '
+           CALL abort_physic (modname,abort_message,1)
+        endif
+      enddo
+      if (prt_level.ge.1) print*,'14b OK convect8'
+      do k=nlay,1,-1
+         do ig=1,ngrid
+            if (zqla(ig,k).gt.1e-10) then
+               nivcon(ig)=k
+               zcon(ig)=zlev(ig,k)
+            endif
+         enddo
+      enddo
+      if (prt_level.ge.1) print*,'14c OK convect8'
+!calcul des moments
+!initialisation
+      do l=1,nlay
+         do ig=1,ngrid
+            q2(ig,l)=0.
+            wth2(ig,l)=0.
+            wth3(ig,l)=0.
+            ratqscth(ig,l)=0.
+            ratqsdiff(ig,l)=0.
+         enddo
+      enddo      
+      if (prt_level.ge.1) print*,'14d OK convect8'
+      if (prt_level.ge.10)write(lunout,*)                                &
+    &     'WARNING thermcell_main wth2=0. si zw2 > 1.e-10'
+      do l=1,nlay
+         do ig=1,ngrid
+            zf=fraca(ig,l)
+            zf2=zf/(1.-zf)
+!
+            thetath2(ig,l)=zf2*(zha(ig,l)-zh(ig,l)/zpspsk(ig,l))**2
+            if(zw2(ig,l).gt.1.e-10) then
+             wth2(ig,l)=zf2*(zw2(ig,l))**2
+            else
+             wth2(ig,l)=0.
+            endif
+!           print*,'wth2=',wth2(ig,l)
+            wth3(ig,l)=zf2*(1-2.*fraca(ig,l))/(1-fraca(ig,l))  &
+     &                *zw2(ig,l)*zw2(ig,l)*zw2(ig,l)
+            q2(ig,l)=zf2*(zqta(ig,l)*1000.-po(ig,l)*1000.)**2
+!test: on calcul q2/po=ratqsc
+            ratqscth(ig,l)=sqrt(max(q2(ig,l),1.e-6)/(po(ig,l)*1000.))
+         enddo
+      enddo
+
+      if (prt_level.ge.10) then
+          print*,'14e OK convect8 ig,l,zf,zf2',ig,l,zf,zf2
+          ig=igout
+          do l=1,nlay
+             print*,'14f OK convect8 ig,l,zha zh zpspsk ',ig,l,zha(ig,l),zh(ig,l),zpspsk(ig,l)
+          enddo
+          do l=1,nlay
+             print*,'14g OK convect8 ig,l,po',ig,l,po(ig,l)
+          enddo
+      endif
+
+      do ig=1,ngrid
+      alp_int(ig)=0.
+      ale_int(ig)=0.
+      n_int(ig)=0
+      enddo
+!
+      do l=1,nlay
+      do ig=1,ngrid
+       if(l.LE.lmax(ig)) THEN
+        alp_int(ig)=alp_int(ig)+0.5*rhobarz(ig,l)*wth3(ig,l)
+        ale_int(ig)=ale_int(ig)+0.5*zw2(ig,l)**2
+        n_int(ig)=n_int(ig)+1
+       endif
+      enddo
+      enddo
+!      print*,'avant calcul ale et alp' 
+!calcul de ALE et ALP pour la convection
+      do ig=1,ngrid
+!      Alp_bl(ig)=0.5*rhobarz(ig,lmix_bis(ig))*wth3(ig,lmix(ig))
+!          Alp_bl(ig)=0.5*rhobarz(ig,nivcon(ig))*wth3(ig,nivcon(ig))
+!      Alp_bl(ig)=0.5*rhobarz(ig,lmix(ig))*wth3(ig,lmix(ig)) 
+!     &           *0.1
+!valeur integree de alp_bl * 0.5:
+       if (n_int(ig).gt.0) then
+       Alp_bl(ig)=0.5*alp_int(ig)/n_int(ig)
+!       if (Alp_bl(ig).lt.0.) then
+!       Alp_bl(ig)=0.
+       endif
+!       endif
+!         write(18,*),'rhobarz,wth3,Alp',rhobarz(ig,nivcon(ig)),
+!     s               wth3(ig,nivcon(ig)),Alp_bl(ig)
+!            write(18,*),'ALP_BL',Alp_bl(ig),lmix(ig)
+!      Ale_bl(ig)=0.5*zw2(ig,lmix_bis(ig))**2
+!      if (nivcon(ig).eq.1) then
+!       Ale_bl(ig)=0.
+!       else
+!valeur max de ale_bl:
+       Ale_bl(ig)=0.5*zw2(ig,lmix(ig))**2 
+!     & /2.
+!     & *0.1
+!        Ale_bl(ig)=0.5*zw2(ig,lmix_bis(ig))**2 
+!       if (n_int(ig).gt.0) then
+!       Ale_bl(ig)=ale_int(ig)/n_int(ig)
+!        Ale_bl(ig)=4.
+!       endif
+!       endif
+!            Ale_bl(ig)=0.5*wth2(ig,lmix_bis(ig))
+!          Ale_bl(ig)=wth2(ig,nivcon(ig))
+!          write(19,*),'wth2,ALE_BL',wth2(ig,nivcon(ig)),Ale_bl(ig)
+      enddo
+!test:calcul de la ponderation des couches pour KE
+!initialisations
+!      print*,'ponderation'
+      do ig=1,ngrid
+           fm_tot(ig)=0.
+      enddo
+       do ig=1,ngrid
+        do k=1,klev
+           wght_th(ig,k)=1.
+        enddo
+       enddo
+       do ig=1,ngrid
+!         lalim_conv(ig)=lmix_bis(ig)
+!la hauteur de la couche alim_conv = hauteur couche alim_therm
+         lalim_conv(ig)=lalim(ig)
+!         zentr(ig)=zlev(ig,lalim(ig))
+      enddo
+      do ig=1,ngrid
+        do k=1,lalim_conv(ig)
+           fm_tot(ig)=fm_tot(ig)+fm(ig,k)
+        enddo
+      enddo
+      do ig=1,ngrid
+        do k=1,lalim_conv(ig)
+           if (fm_tot(ig).gt.1.e-10) then
+!           wght_th(ig,k)=fm(ig,k)/fm_tot(ig)
+           endif
+!on pondere chaque couche par a*
+             if (alim_star(ig,k).gt.1.e-10) then
+             wght_th(ig,k)=alim_star(ig,k)
+             else
+             wght_th(ig,k)=1.
+             endif
+        enddo
+      enddo
+!      print*,'apres wght_th'
+!test pour prolonger la convection
+      do ig=1,ngrid
+!v1d  if ((alim_star(ig,1).lt.1.e-10).and.(therm)) then
+      if ((alim_star(ig,1).lt.1.e-10)) then
+      lalim_conv(ig)=1
+      wght_th(ig,1)=1.
+!      print*,'lalim_conv ok',lalim_conv(ig),wght_th(ig,1)
+      endif
+      enddo
+
+!calcul du ratqscdiff
+      if (prt_level.ge.1) print*,'14e OK convect8'
+      var=0.
+      vardiff=0.
+      ratqsdiff(:,:)=0.
+      do ig=1,ngrid
+         do l=1,lalim(ig)
+            var=var+alim_star(ig,l)*zqta(ig,l)*1000.
+         enddo
+      enddo
+      if (prt_level.ge.1) print*,'14f OK convect8'
+      do ig=1,ngrid
+          do l=1,lalim(ig)
+          zf=fraca(ig,l)
+          zf2=zf/(1.-zf)
+          vardiff=vardiff+alim_star(ig,l)  &
+     &           *(zqta(ig,l)*1000.-var)**2
+!         ratqsdiff=ratqsdiff+alim_star(ig,l)*
+!     s          (zqta(ig,l)*1000.-po(ig,l)*1000.)**2
+          enddo
+      enddo
+      if (prt_level.ge.1) print*,'14g OK convect8'
+      do l=1,nlay
+         do ig=1,ngrid
+            ratqsdiff(ig,l)=sqrt(vardiff)/(po(ig,l)*1000.)   
+!           write(11,*)'ratqsdiff=',ratqsdiff(ig,l)
+         enddo
+      enddo 
+!--------------------------------------------------------------------    
+!
+!ecriture des fichiers sortie
+!     print*,'15 OK convect8'
+
+      if (prt_level.ge.1) print*,'thermcell_main sorties 3D'
+      endif
+
+      if (prt_level.ge.1) print*,'thermcell_main FIN  OK'
+
+!     if(icount.eq.501) stop'au pas 301 dans thermcell_main'
+      return
+      end
+
+!-----------------------------------------------------------------------------
+
+      subroutine testV0_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment)
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+
+      integer i, k, klon,klev
+      real pplev(klon,klev+1),pplay(klon,klev)
+      real ztv(klon,klev)
+      real po(klon,klev)
+      real ztva(klon,klev)
+      real zqla(klon,klev)
+      real f_star(klon,klev)
+      real zw2(klon,klev)
+      integer long(klon)
+      real seuil
+      character*21 comment
+
+      if (prt_level.ge.1) THEN
+       print*,'WARNING !!! TEST ',comment
+      endif
+      return
+
+!  test sur la hauteur des thermiques ...
+         do i=1,klon
+!IMtemp           if (pplay(i,long(i)).lt.seuil*pplev(i,1)) then
+           if (prt_level.ge.10) then
+               print*,'WARNING ',comment,' au point ',i,' K= ',long(i)
+               print*,'  K  P(MB)  THV(K)     Qenv(g/kg)THVA        QLA(g/kg)   F*        W2'
+               do k=1,klev
+                  write(6,'(i3,7f10.3)') k,pplay(i,k),ztv(i,k),1000*po(i,k),ztva(i,k),1000*zqla(i,k),f_star(i,k),zw2(i,k)
+               enddo
+           endif
+         enddo
+
+
+      return
+      end
+
+!==============================================================================
+      SUBROUTINE thermcellV0_closure(ngrid,nlay,r_aspect,ptimestep,rho,  &
+     &   zlev,lalim,alim_star,alim_star_tot,zmax_sec,wmax_sec,zmax,wmax,f,lev_out)
+
+!-------------------------------------------------------------------------
+!thermcell_closure: fermeture, determination de f
+!-------------------------------------------------------------------------
+      USE print_control_mod, ONLY: prt_level,lunout
+      IMPLICIT NONE
+
+      include "thermcell.h"
+      INTEGER ngrid,nlay
+      INTEGER ig,k       
+      REAL r_aspect,ptimestep
+      integer lev_out                           ! niveau pour les print
+
+      INTEGER lalim(ngrid)
+      REAL alim_star(ngrid,nlay)
+      REAL alim_star_tot(ngrid)
+      REAL rho(ngrid,nlay)
+      REAL zlev(ngrid,nlay)
+      REAL zmax(ngrid),zmax_sec(ngrid)
+      REAL wmax(ngrid),wmax_sec(ngrid)
+      real zdenom
+
+      REAL alim_star2(ngrid)
+
+      REAL f(ngrid)
+
+      character (len=20) :: modname='thermcellV0_main'
+      character (len=80) :: abort_message
+
+      do ig=1,ngrid
+         alim_star2(ig)=0.
+      enddo
+      do ig=1,ngrid
+         if (alim_star(ig,1).LT.1.e-10) then
+            f(ig)=0.
+         else   
+             do k=1,lalim(ig)
+                alim_star2(ig)=alim_star2(ig)+alim_star(ig,k)**2  &
+     &                    /(rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k)))
+             enddo
+             zdenom=max(500.,zmax(ig))*r_aspect*alim_star2(ig)
+             if (zdenom<1.e-14) then
+                print*,'ig=',ig
+                print*,'alim_star2',alim_star2(ig)
+                print*,'zmax',zmax(ig)
+                print*,'r_aspect',r_aspect
+                print*,'zdenom',zdenom
+                print*,'alim_star',alim_star(ig,:)
+                print*,'zmax_sec',zmax_sec(ig)
+                print*,'wmax_sec',wmax_sec(ig)
+                abort_message = 'zdenom<1.e-14'
+                CALL abort_physic (modname,abort_message,1)
+             endif
+             if ((zmax_sec(ig).gt.1.e-10).and.(iflag_thermals_ed.eq.0)) then 
+             f(ig)=wmax_sec(ig)*alim_star_tot(ig)/(max(500.,zmax_sec(ig))*r_aspect  &
+     &             *alim_star2(ig))
+!            f(ig)=f(ig)+(f0(ig)-f(ig))*exp((-ptimestep/  &
+!    &                     zmax_sec(ig))*wmax_sec(ig))
+             if(prt_level.GE.10) write(lunout,*)'closure dry',f(ig),wmax_sec(ig),alim_star_tot(ig),zmax_sec(ig)
+             else
+             f(ig)=wmax(ig)*alim_star_tot(ig)/zdenom
+!            f(ig)=f(ig)+(f0(ig)-f(ig))*exp((-ptimestep/  &
+!     &                     zmax(ig))*wmax(ig))
+             if(prt_level.GE.10) print*,'closure moist',f(ig),wmax(ig),alim_star_tot(ig),zmax(ig)
+             endif
+         endif
+!         f0(ig)=f(ig)
+      enddo
+      if (prt_level.ge.1) print*,'apres fermeture'
+
+!
+      return
+      end
+!==============================================================================
+      SUBROUTINE thermcellV0_plume(itap,ngrid,klev,ptimestep,ztv,zthl,po,zl,rhobarz,  &
+     &           zlev,pplev,pphi,zpspsk,l_mix,r_aspect,alim_star,alim_star_tot,  &
+     &           lalim,zmax_sec,f0,detr_star,entr_star,f_star,ztva,  &
+     &           ztla,zqla,zqta,zha,zw2,w_est,zqsatth,lmix,lmix_bis,linter &
+     &           ,lev_out,lunout1,igout)
+
+!--------------------------------------------------------------------------
+!thermcell_plume: calcule les valeurs de qt, thetal et w dans l ascendance
+!--------------------------------------------------------------------------
+
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+
+      include "YOMCST.h"
+      include "YOETHF.h"
+      include "FCTTRE.h"
+      include "thermcell.h"
+
+      INTEGER itap
+      INTEGER lunout1,igout
+      INTEGER ngrid,klev
+      REAL ptimestep
+      REAL ztv(ngrid,klev)
+      REAL zthl(ngrid,klev)
+      REAL po(ngrid,klev)
+      REAL zl(ngrid,klev)
+      REAL rhobarz(ngrid,klev)
+      REAL zlev(ngrid,klev+1)
+      REAL pplev(ngrid,klev+1)
+      REAL pphi(ngrid,klev)
+      REAL zpspsk(ngrid,klev)
+      REAL alim_star(ngrid,klev)
+      REAL zmax_sec(ngrid)
+      REAL f0(ngrid)
+      REAL l_mix
+      REAL r_aspect
+      INTEGER lalim(ngrid)
+      integer lev_out                           ! niveau pour les print
+      real zcon2(ngrid)
+    
+      real alim_star_tot(ngrid)
+
+      REAL ztva(ngrid,klev)
+      REAL ztla(ngrid,klev)
+      REAL zqla(ngrid,klev)
+      REAL zqla0(ngrid,klev)
+      REAL zqta(ngrid,klev)
+      REAL zha(ngrid,klev)
+
+      REAL detr_star(ngrid,klev)
+      REAL coefc
+      REAL detr_stara(ngrid,klev)
+      REAL detr_starb(ngrid,klev)
+      REAL detr_starc(ngrid,klev)
+      REAL detr_star0(ngrid,klev)
+      REAL detr_star1(ngrid,klev)
+      REAL detr_star2(ngrid,klev)
+
+      REAL entr_star(ngrid,klev)
+      REAL entr_star1(ngrid,klev)
+      REAL entr_star2(ngrid,klev)
+      REAL detr(ngrid,klev)
+      REAL entr(ngrid,klev)
+
+      REAL zw2(ngrid,klev+1)
+      REAL w_est(ngrid,klev+1)
+      REAL f_star(ngrid,klev+1)
+      REAL wa_moy(ngrid,klev+1)
+
+      REAL ztva_est(ngrid,klev)
+      REAL zqla_est(ngrid,klev)
+      REAL zqsatth(ngrid,klev)
+      REAL zta_est(ngrid,klev)
+
+      REAL linter(ngrid)
+      INTEGER lmix(ngrid)
+      INTEGER lmix_bis(ngrid)
+      REAL    wmaxa(ngrid)
+
+      INTEGER ig,l,k
+
+      real zcor,zdelta,zcvm5,qlbef
+      real Tbef,qsatbef
+      real dqsat_dT,DT,num,denom
+      REAL REPS,RLvCp,DDT0
+      PARAMETER (DDT0=.01)
+      logical Zsat
+      REAL fact_gamma,fact_epsilon
+      REAL c2(ngrid,klev)
+
+      Zsat=.false.
+! Initialisation
+      RLvCp = RLVTT/RCPD
+     
+      if (iflag_thermals_ed==0) then
+         fact_gamma=1.
+         fact_epsilon=1.
+      else if (iflag_thermals_ed==1)  then
+         fact_gamma=1.
+         fact_epsilon=1.
+      else if (iflag_thermals_ed==2)  then
+         fact_gamma=1.
+         fact_epsilon=2.
+      endif
+
+      do l=1,klev
+         do ig=1,ngrid
+            zqla_est(ig,l)=0.
+            ztva_est(ig,l)=ztva(ig,l)
+            zqsatth(ig,l)=0.
+         enddo
+      enddo
+
+!CR: attention test couche alim
+!     do l=2,klev
+!     do ig=1,ngrid
+!        alim_star(ig,l)=0.
+!     enddo
+!     enddo
+!AM:initialisations du thermique
+      do k=1,klev
+         do ig=1,ngrid
+            ztva(ig,k)=ztv(ig,k)
+            ztla(ig,k)=zthl(ig,k)
+            zqla(ig,k)=0.
+            zqta(ig,k)=po(ig,k)
+!
+            ztva(ig,k) = ztla(ig,k)*zpspsk(ig,k)+RLvCp*zqla(ig,k)
+            ztva(ig,k) = ztva(ig,k)/zpspsk(ig,k)
+            zha(ig,k) = ztva(ig,k)
+!
+         enddo
+      enddo 
+      do k=1,klev
+        do ig=1,ngrid
+           detr_star(ig,k)=0.
+           entr_star(ig,k)=0.
+
+           detr_stara(ig,k)=0.
+           detr_starb(ig,k)=0.
+           detr_starc(ig,k)=0.
+           detr_star0(ig,k)=0.
+           zqla0(ig,k)=0.
+           detr_star1(ig,k)=0.
+           detr_star2(ig,k)=0.
+           entr_star1(ig,k)=0.
+           entr_star2(ig,k)=0.
+
+           detr(ig,k)=0.
+           entr(ig,k)=0.
+        enddo
+      enddo
+      if (prt_level.ge.1) print*,'7 OK convect8'
+      do k=1,klev+1
+         do ig=1,ngrid
+            zw2(ig,k)=0.
+            w_est(ig,k)=0.
+            f_star(ig,k)=0.
+            wa_moy(ig,k)=0.
+         enddo
+      enddo
+
+      if (prt_level.ge.1) print*,'8 OK convect8'
+      do ig=1,ngrid
+         linter(ig)=1.
+         lmix(ig)=1
+         lmix_bis(ig)=2
+         wmaxa(ig)=0.
+      enddo
+
+!-----------------------------------------------------------------------------------
+!boucle de calcul de la vitesse verticale dans le thermique
+!-----------------------------------------------------------------------------------
+      do l=1,klev-1
+         do ig=1,ngrid
+
+
+
+! Calcul dans la premiere couche active du thermique (ce qu'on teste
+! en disant que la couche est instable et que w2 en bas de la couche
+! est nulle.
+
+            if (ztv(ig,l).gt.ztv(ig,l+1)  &
+     &         .and.alim_star(ig,l).gt.1.e-10  &
+     &         .and.zw2(ig,l).lt.1e-10) then
+
+
+! Le panache va prendre au debut les caracteristiques de l'air contenu
+! dans cette couche.
+               ztla(ig,l)=zthl(ig,l) 
+               zqta(ig,l)=po(ig,l)
+               zqla(ig,l)=zl(ig,l)
+               f_star(ig,l+1)=alim_star(ig,l)
+
+               zw2(ig,l+1)=2.*RG*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig,l+1)  &
+     &                     *(zlev(ig,l+1)-zlev(ig,l))  &
+     &                     *0.4*pphi(ig,l)/(pphi(ig,l+1)-pphi(ig,l))
+               w_est(ig,l+1)=zw2(ig,l+1)
+!
+
+
+            else if ((zw2(ig,l).ge.1e-10).and.  &
+     &         (f_star(ig,l)+alim_star(ig,l)).gt.1.e-10) then
+!estimation du detrainement a partir de la geometrie du pas precedent
+!tests sur la definition du detr
+!calcul de detr_star et entr_star
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH le test miraculeux de Catherine ? Le bout du tunel ?
+!               w_est(ig,3)=zw2(ig,2)*  &
+!    &                   ((f_star(ig,2))**2)  &
+!    &                   /(f_star(ig,2)+alim_star(ig,2))**2+  &
+!    &                   2.*RG*(ztva(ig,1)-ztv(ig,2))/ztv(ig,2)  &
+!    &                   *(zlev(ig,3)-zlev(ig,2))
+!     if (l.gt.2) then
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+! Premier calcul de la vitesse verticale a partir de la temperature
+! potentielle virtuelle
+
+! FH CESTQUOI CA ????
+#define int1d2
+!#undef int1d2
+#ifdef int1d2
+      if (l.ge.2) then
+#else
+      if (l.gt.2) then
+#endif
+
+      if (1.eq.1) then
+          w_est(ig,3)=zw2(ig,2)* &
+     &      ((f_star(ig,2))**2) &
+     &      /(f_star(ig,2)+alim_star(ig,2))**2+ &
+     &      2.*RG*(ztva(ig,2)-ztv(ig,2))/ztv(ig,2) &
+!     &      *1./3. &
+     &      *(zlev(ig,3)-zlev(ig,2))
+       endif
+
+
+!---------------------------------------------------------------------------
+!calcul de l entrainement et du detrainement lateral
+!---------------------------------------------------------------------------
+!
+!test:estimation de ztva_new_est sans entrainement
+
+               Tbef=ztla(ig,l-1)*zpspsk(ig,l)
+               zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+               qsatbef= R2ES * FOEEW(Tbef,zdelta)/pplev(ig,l)
+               qsatbef=MIN(0.5,qsatbef)
+               zcor=1./(1.-retv*qsatbef)
+               qsatbef=qsatbef*zcor
+               Zsat = (max(0.,zqta(ig,l-1)-qsatbef) .gt. 1.e-10)
+               if (Zsat) then
+               qlbef=max(0.,zqta(ig,l-1)-qsatbef)
+               DT = 0.5*RLvCp*qlbef
+               do while (abs(DT).gt.DDT0)
+                 Tbef=Tbef+DT
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+                 qsatbef= R2ES * FOEEW(Tbef,zdelta)/pplev(ig,l)
+                 qsatbef=MIN(0.5,qsatbef)
+                 zcor=1./(1.-retv*qsatbef)
+                 qsatbef=qsatbef*zcor
+                 qlbef=zqta(ig,l-1)-qsatbef
+
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+                 zcvm5=R5LES*(1.-zdelta) + R5IES*zdelta
+                 zcor=1./(1.-retv*qsatbef)
+                 dqsat_dT=FOEDE(Tbef,zdelta,zcvm5,qsatbef,zcor)
+                 num=-Tbef+ztla(ig,l-1)*zpspsk(ig,l)+RLvCp*qlbef
+                 denom=1.+RLvCp*dqsat_dT
+                 DT=num/denom
+               enddo
+                 zqla_est(ig,l) = max(0.,zqta(ig,l-1)-qsatbef) 
+               endif
+        ztva_est(ig,l) = ztla(ig,l-1)*zpspsk(ig,l)+RLvCp*zqla_est(ig,l)
+        ztva_est(ig,l) = ztva_est(ig,l)/zpspsk(ig,l)
+        zta_est(ig,l)=ztva_est(ig,l)
+        ztva_est(ig,l) = ztva_est(ig,l)*(1.+RETV*(zqta(ig,l-1)  &
+     &      -zqla_est(ig,l))-zqla_est(ig,l))
+
+             w_est(ig,l+1)=zw2(ig,l)*  &
+     &                   ((f_star(ig,l))**2)  &
+     &                   /(f_star(ig,l)+alim_star(ig,l))**2+  &
+     &                   2.*RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)  &
+!     &                   *1./3. &
+     &                   *(zlev(ig,l+1)-zlev(ig,l))
+             if (w_est(ig,l+1).lt.0.) then
+                w_est(ig,l+1)=zw2(ig,l)
+             endif
+!
+!calcul du detrainement
+!=======================
+
+!CR:on vire les modifs
+         if (iflag_thermals_ed==0) then
+
+! Modifications du calcul du detrainement.
+! Dans la version de la these de Catherine, on passe brusquement
+! de la version seche a la version nuageuse pour le detrainement
+! ce qui peut occasioner des oscillations.
+! dans la nouvelle version, on commence par calculer un detrainement sec.
+! Puis un autre en cas de nuages.
+! Puis on combine les deux lineairement en fonction de la quantite d'eau.
+
+#define int1d3
+!#undef int1d3
+#define RIO_TH
+#ifdef RIO_TH
+!1. Cas non nuageux
+! 1.1 on est sous le zmax_sec et w croit
+          if ((w_est(ig,l+1).gt.w_est(ig,l)).and.  &
+     &       (zlev(ig,l+1).lt.zmax_sec(ig)).and.  &
+#ifdef int1d3
+     &       (zqla_est(ig,l).lt.1.e-10)) then 
+#else
+     &       (zqla(ig,l-1).lt.1.e-10)) then 
+#endif
+             detr_star(ig,l)=MAX(0.,(rhobarz(ig,l+1)  &
+     &       *sqrt(w_est(ig,l+1))*sqrt(l_mix*zlev(ig,l+1))  &
+     &       -rhobarz(ig,l)*sqrt(w_est(ig,l))*sqrt(l_mix*zlev(ig,l)))  &
+     &       /(r_aspect*zmax_sec(ig)))
+             detr_stara(ig,l)=detr_star(ig,l)
+
+       if (prt_level.ge.20) print*,'coucou calcul detr 1: ig, l',ig,l
+
+! 1.2 on est sous le zmax_sec et w decroit
+          else if ((zlev(ig,l+1).lt.zmax_sec(ig)).and.  &
+#ifdef int1d3
+     &            (zqla_est(ig,l).lt.1.e-10)) then
+#else
+     &            (zqla(ig,l-1).lt.1.e-10)) then
+#endif
+             detr_star(ig,l)=-f0(ig)*f_star(ig,lmix(ig))  &
+     &       /(rhobarz(ig,lmix(ig))*wmaxa(ig))*  &
+     &       (rhobarz(ig,l+1)*sqrt(w_est(ig,l+1))  &
+     &       *((zmax_sec(ig)-zlev(ig,l+1))/  &
+     &       ((zmax_sec(ig)-zlev(ig,lmix(ig)))))**2.  &
+     &       -rhobarz(ig,l)*sqrt(w_est(ig,l))  &
+     &       *((zmax_sec(ig)-zlev(ig,l))/  &
+     &       ((zmax_sec(ig)-zlev(ig,lmix(ig)))))**2.)
+             detr_starb(ig,l)=detr_star(ig,l)
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 2: ig, l',ig,l
+
+          else
+
+! 1.3 dans les autres cas
+             detr_star(ig,l)=0.002*f0(ig)*f_star(ig,l)  &
+     &                      *(zlev(ig,l+1)-zlev(ig,l))
+             detr_starc(ig,l)=detr_star(ig,l)
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 3 n: ig, l',ig, l
+             
+          endif
+
+#else
+
+! 1.1 on est sous le zmax_sec et w croit
+          if ((w_est(ig,l+1).gt.w_est(ig,l)).and.  &
+     &       (zlev(ig,l+1).lt.zmax_sec(ig)) ) then
+             detr_star(ig,l)=MAX(0.,(rhobarz(ig,l+1)  &
+     &       *sqrt(w_est(ig,l+1))*sqrt(l_mix*zlev(ig,l+1))  &
+     &       -rhobarz(ig,l)*sqrt(w_est(ig,l))*sqrt(l_mix*zlev(ig,l)))  &
+     &       /(r_aspect*zmax_sec(ig)))
+
+       if (prt_level.ge.20) print*,'coucou calcul detr 1: ig, l', ig, l
+
+! 1.2 on est sous le zmax_sec et w decroit
+          else if ((zlev(ig,l+1).lt.zmax_sec(ig)) ) then
+             detr_star(ig,l)=-f0(ig)*f_star(ig,lmix(ig))  &
+     &       /(rhobarz(ig,lmix(ig))*wmaxa(ig))*  &
+     &       (rhobarz(ig,l+1)*sqrt(w_est(ig,l+1))  &
+     &       *((zmax_sec(ig)-zlev(ig,l+1))/  &
+     &       ((zmax_sec(ig)-zlev(ig,lmix(ig)))))**2.  &
+     &       -rhobarz(ig,l)*sqrt(w_est(ig,l))  &
+     &       *((zmax_sec(ig)-zlev(ig,l))/  &
+     &       ((zmax_sec(ig)-zlev(ig,lmix(ig)))))**2.)
+       if (prt_level.ge.20) print*,'coucou calcul detr 1: ig, l', ig, l
+
+          else
+             detr_star=0.
+          endif
+
+! 1.3 dans les autres cas
+          detr_starc(ig,l)=0.002*f0(ig)*f_star(ig,l)  &
+     &                      *(zlev(ig,l+1)-zlev(ig,l))
+
+          coefc=min(zqla(ig,l-1)/1.e-3,1.)
+          if (zlev(ig,l+1).ge.zmax_sec(ig)) coefc=1.
+          coefc=1.
+! il semble qu'il soit important de baser le calcul sur
+! zqla_est(ig,l-1) plutot que sur zqla_est(ig,l)
+          detr_star(ig,l)=detr_starc(ig,l)*coefc+detr_star(ig,l)*(1.-coefc)
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 2: ig, l', ig, l
+
+#endif
+
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 444: ig, l', ig, l
+!IM 730508 beg
+!        if(itap.GE.7200) THEN
+!         print*,'th_plume ig,l,itap,zqla_est=',ig,l,itap,zqla_est(ig,l)
+!        endif
+!IM 730508 end
+         
+         zqla0(ig,l)=zqla_est(ig,l)
+         detr_star0(ig,l)=detr_star(ig,l)
+!IM 060508 beg
+!         if(detr_star(ig,l).GT.1.) THEN
+!          print*,'th_plumeBEF ig l detr_star detr_starc coefc',ig,l,detr_star(ig,l) &
+!   &      ,detr_starc(ig,l),coefc
+!         endif
+!IM 060508 end
+!IM 160508 beg
+!IM 160508       IF (f0(ig).NE.0.) THEN
+           detr_star(ig,l)=detr_star(ig,l)/f0(ig)
+!IM 160508       ELSE IF(detr_star(ig,l).EQ.0.) THEN
+!IM 160508        print*,'WARNING1  : th_plume f0=0, detr_star=0: ig, l, itap',ig,l,itap
+!IM 160508       ELSE
+!IM 160508        print*,'WARNING2  : th_plume f0=0, ig, l, itap, detr_star',ig,l,itap,detr_star(ig,l)
+!IM 160508       ENDIF
+!IM 160508 end
+!IM 060508 beg
+!        if(detr_star(ig,l).GT.1.) THEN
+!         print*,'th_plumeAFT ig l detr_star f0 1/f0',ig,l,detr_star(ig,l),f0(ig), &
+!   &     REAL(1)/f0(ig)
+!        endif
+!IM 060508 end
+        if (prt_level.ge.20) print*,'coucou calcul detr 445: ig, l', ig, l
+!
+!calcul de entr_star
+
+! #undef test2
+! #ifdef test2
+! La version test2 destabilise beaucoup le modele.
+! Il semble donc que ca aide d'avoir un entrainement important sous
+! le nuage.
+!         if (zqla_est(ig,l-1).ge.1.e-10.and.l.gt.lalim(ig)) then
+!          entr_star(ig,l)=0.4*detr_star(ig,l)
+!         else
+!          entr_star(ig,l)=0.
+!         endif
+! #else
+!
+! Deplacement du calcul de entr_star pour eviter d'avoir aussi
+! entr_star > fstar.
+! Redeplacer suite a la transformation du cas detr>f
+! FH
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 446: ig, l', ig, l
+#define int1d
+!FH 070508 #define int1d4
+!#undef int1d4
+! L'option int1d4 correspond au choix dans le cas ou le detrainement
+! devient trop grand.
+
+#ifdef int1d
+
+#ifdef int1d4
+#else
+       detr_star(ig,l)=min(detr_star(ig,l),f_star(ig,l))
+!FH 070508 plus
+       detr_star(ig,l)=min(detr_star(ig,l),1.)
+#endif
+
+       entr_star(ig,l)=max(0.4*detr_star(ig,l)-alim_star(ig,l),0.)
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 447: ig, l', ig, l
+#ifdef int1d4
+! Si le detrainement excede le flux en bas + l'entrainement, le thermique
+! doit disparaitre.
+       if (detr_star(ig,l)>f_star(ig,l)+entr_star(ig,l)) then
+          detr_star(ig,l)=f_star(ig,l)+entr_star(ig,l)
+          f_star(ig,l+1)=0.
+          linter(ig)=l+1
+          zw2(ig,l+1)=-1.e-10
+       endif
+#endif
+
+
+#else
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 448: ig, l', ig, l
+        if(l.gt.lalim(ig)) then
+         entr_star(ig,l)=0.4*detr_star(ig,l)
+        else
+
+! FH :
+! Cette ligne doit permettre de garantir qu'on a toujours un flux = 1
+! en haut de la couche d'alimentation.
+! A remettre en questoin a la premiere occasion mais ca peut aider a 
+! ecrire un code robuste.
+! Que ce soit avec ca ou avec l'ancienne facon de faire (e* = 0 mais
+! d* non nul) on a une discontinuité de e* ou d* en haut de la couche
+! d'alimentation, ce qui n'est pas forcement heureux.
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 449: ig, l', ig, l
+#undef pre_int1c
+#ifdef pre_int1c
+         entr_star(ig,l)=max(detr_star(ig,l)-alim_star(ig,l),0.)
+         detr_star(ig,l)=entr_star(ig,l)
+#else
+         entr_star(ig,l)=0.
+#endif
+
+        endif
+
+#endif
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 440: ig, l', ig, l
+        entr_star1(ig,l)=entr_star(ig,l)
+        detr_star1(ig,l)=detr_star(ig,l)
+!
+
+#ifdef int1d
+#else
+        if (detr_star(ig,l).gt.f_star(ig,l)) then
+
+!  Ce test est là entre autres parce qu'on passe par des valeurs
+!  delirantes de detr_star.
+!  ca vaut sans doute le coup de verifier pourquoi.
+
+           detr_star(ig,l)=f_star(ig,l)
+#ifdef pre_int1c
+           if (l.gt.lalim(ig)+1) then
+               entr_star(ig,l)=0.
+               alim_star(ig,l)=0.
+! FH ajout pour forcer a stoper le thermique juste sous le sommet
+! de la couche (voir calcul de finter)
+               zw2(ig,l+1)=-1.e-10
+               linter(ig)=l+1
+            else
+               entr_star(ig,l)=0.4*detr_star(ig,l)
+            endif
+#else
+           entr_star(ig,l)=0.4*detr_star(ig,l)
+#endif
+        endif
+#endif
+
+      else !l > 2
+         detr_star(ig,l)=0.
+         entr_star(ig,l)=0.
+      endif
+
+        entr_star2(ig,l)=entr_star(ig,l)
+        detr_star2(ig,l)=detr_star(ig,l)
+        if (prt_level.ge.20) print*,'coucou calcul detr 450: ig, l', ig, l
+
+       endif  ! iflag_thermals_ed==0
+
+!CR:nvlle def de entr_star et detr_star
+      if (iflag_thermals_ed>=1) then
+!      if (l.lt.lalim(ig)) then
+!      if (l.lt.2) then 
+!        entr_star(ig,l)=0.
+!        detr_star(ig,l)=0.
+!      else
+!      if (0.001.gt.(RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l))/(2.*w_est(ig,l+1)))) then 
+!         entr_star(ig,l)=0.001*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+!      else
+!         entr_star(ig,l)=  &
+!     &                f_star(ig,l)/(2.*w_est(ig,l+1))        &
+!     &                *RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l))   &
+!     &                *(zlev(ig,l+1)-zlev(ig,l))
+
+ 
+         entr_star(ig,l)=MAX(0.*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l)),  &          
+     &                f_star(ig,l)/(2.*w_est(ig,l+1))        &
+     &                *RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)   &
+     &                *(zlev(ig,l+1)-zlev(ig,l))) &
+     &                +0.0001*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+
+        if (((ztva_est(ig,l)-ztv(ig,l)).gt.1.e-10).and.(l.le.lmix_bis(ig))) then
+            alim_star_tot(ig)=alim_star_tot(ig)+entr_star(ig,l)
+            lalim(ig)=lmix_bis(ig)
+            if(prt_level.GE.10) print*,'alim_star_tot',alim_star_tot(ig),entr_star(ig,l)
+        endif
+
+        if (((ztva_est(ig,l)-ztv(ig,l)).gt.1.e-10).and.(l.le.lmix_bis(ig))) then
+!        c2(ig,l)=2500000.*zqla_est(ig,l)/(1004.*zta_est(ig,l))
+         c2(ig,l)=0.001
+         detr_star(ig,l)=MAX(0.*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l)),  &
+     &                c2(ig,l)*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l)) &
+     &                -f_star(ig,l)/(2.*w_est(ig,l+1))       &
+     &                *RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)       &
+     &                *(zlev(ig,l+1)-zlev(ig,l)))                    &
+     &                +0.0001*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+
+       else
+!         c2(ig,l)=2500000.*zqla_est(ig,l)/(1004.*zta_est(ig,l))
+          c2(ig,l)=0.003
+
+         detr_star(ig,l)=MAX(0.*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l)),  &
+     &                c2(ig,l)*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l)) &
+     &                -f_star(ig,l)/(2.*w_est(ig,l+1))       &
+     &                *RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)       &
+     &                *(zlev(ig,l+1)-zlev(ig,l))) &
+     &                +0.0002*f_star(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+       endif
+         
+           
+!        detr_star(ig,l)=detr_star(ig,l)*3.
+!        if (l.lt.lalim(ig)) then
+!          entr_star(ig,l)=0.
+!        endif
+!        if (l.lt.2) then
+!          entr_star(ig,l)=0.
+!          detr_star(ig,l)=0.
+!        endif
+
+
+!      endif 
+!      else if ((ztva_est(ig,l)-ztv(ig,l)).gt.1.e-10) then
+!      entr_star(ig,l)=MAX(0.,0.8*f_star(ig,l)/(2.*w_est(ig,l+1))        &
+!     &                *RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l))   &
+!     &                *(zlev(ig,l+1)-zlev(ig,l))
+!      detr_star(ig,l)=0.002*f_star(ig,l)                         &
+!     &                *(zlev(ig,l+1)-zlev(ig,l))
+!      else
+!      entr_star(ig,l)=0.001*f_star(ig,l)                         &
+!     &                *(zlev(ig,l+1)-zlev(ig,l))
+!      detr_star(ig,l)=MAX(0.,-0.2*f_star(ig,l)/(2.*w_est(ig,l+1))       &
+!     &                *RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l))       &
+!     &                *(zlev(ig,l+1)-zlev(ig,l))                      &
+!     &                +0.002*f_star(ig,l)                             &
+!     &                *(zlev(ig,l+1)-zlev(ig,l))
+!      endif
+
+      endif   ! iflag_thermals_ed==1
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH inutile si on conserve comme on l'a fait plus haut entr=detr
+! dans la couche d'alimentation
+!pas d entrainement dans la couche alim
+!      if ((l.le.lalim(ig))) then
+!           entr_star(ig,l)=0.
+!      endif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!
+!prise en compte du detrainement et de l entrainement dans le calcul du flux
+
+      f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)+entr_star(ig,l)  &
+     &              -detr_star(ig,l)
+
+!test sur le signe de f_star
+        if (prt_level.ge.20) print*,'coucou calcul detr 451: ig, l', ig, l
+       if (f_star(ig,l+1).gt.1.e-10) then 
+!----------------------------------------------------------------------------
+!calcul de la vitesse verticale en melangeant Tl et qt du thermique
+!---------------------------------------------------------------------------
+!
+       Zsat=.false.
+       ztla(ig,l)=(f_star(ig,l)*ztla(ig,l-1)+  &
+     &            (alim_star(ig,l)+entr_star(ig,l))*zthl(ig,l))  &
+     &            /(f_star(ig,l+1)+detr_star(ig,l))
+!
+       zqta(ig,l)=(f_star(ig,l)*zqta(ig,l-1)+  &
+     &            (alim_star(ig,l)+entr_star(ig,l))*po(ig,l))  &
+     &            /(f_star(ig,l+1)+detr_star(ig,l))
+!  
+               Tbef=ztla(ig,l)*zpspsk(ig,l)
+               zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+               qsatbef= R2ES * FOEEW(Tbef,zdelta)/pplev(ig,l)               
+               qsatbef=MIN(0.5,qsatbef)
+               zcor=1./(1.-retv*qsatbef)
+               qsatbef=qsatbef*zcor
+               Zsat = (max(0.,zqta(ig,l)-qsatbef) .gt. 1.e-10)
+               if (Zsat) then
+               qlbef=max(0.,zqta(ig,l)-qsatbef)
+               DT = 0.5*RLvCp*qlbef
+               do while (abs(DT).gt.DDT0)
+                 Tbef=Tbef+DT
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+                 qsatbef= R2ES * FOEEW(Tbef,zdelta)/pplev(ig,l)
+                 qsatbef=MIN(0.5,qsatbef)
+                 zcor=1./(1.-retv*qsatbef)
+                 qsatbef=qsatbef*zcor
+                 qlbef=zqta(ig,l)-qsatbef
+
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef))
+                 zcvm5=R5LES*(1.-zdelta) + R5IES*zdelta
+                 zcor=1./(1.-retv*qsatbef)
+                 dqsat_dT=FOEDE(Tbef,zdelta,zcvm5,qsatbef,zcor)
+                 num=-Tbef+ztla(ig,l)*zpspsk(ig,l)+RLvCp*qlbef
+                 denom=1.+RLvCp*dqsat_dT
+                 DT=num/denom
+              enddo
+                 zqla(ig,l) = max(0.,qlbef) 
+              endif
+!    
+        if (prt_level.ge.20) print*,'coucou calcul detr 4512: ig, l', ig, l
+! on ecrit de maniere conservative (sat ou non)
+!          T = Tl +Lv/Cp ql
+           ztva(ig,l) = ztla(ig,l)*zpspsk(ig,l)+RLvCp*zqla(ig,l)
+           ztva(ig,l) = ztva(ig,l)/zpspsk(ig,l)
+!on rajoute le calcul de zha pour diagnostiques (temp potentielle)
+           zha(ig,l) = ztva(ig,l)
+           ztva(ig,l) = ztva(ig,l)*(1.+RETV*(zqta(ig,l)  &
+     &              -zqla(ig,l))-zqla(ig,l))
+
+!on ecrit zqsat 
+           zqsatth(ig,l)=qsatbef  
+!calcul de vitesse
+           zw2(ig,l+1)=zw2(ig,l)*  &
+     &                 ((f_star(ig,l))**2)  &
+!  Tests de Catherine
+!     &                 /(f_star(ig,l+1)+detr_star(ig,l))**2+             &
+     &      /(f_star(ig,l+1)+detr_star(ig,l)-entr_star(ig,l)*(1.-fact_epsilon))**2+ &
+     &                 2.*RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)  &
+     &                 *fact_gamma &
+     &                 *(zlev(ig,l+1)-zlev(ig,l))
+!prise en compte des forces de pression que qd flottabilité<0
+!              zw2(ig,l+1)=zw2(ig,l)*  &
+!     &            1./(1.+2.*entr_star(ig,l)/f_star(ig,l)) + &        
+!     &                 (f_star(ig,l))**2 &
+!     &                 /(f_star(ig,l)+entr_star(ig,l))**2+ &
+!     &                 (f_star(ig,l)-2.*entr_star(ig,l))**2/(f_star(ig,l)+2.*entr_star(ig,l))**2+  &        
+!     &                 /(f_star(ig,l+1)+detr_star(ig,l)-entr_star(ig,l)*(1.-2.))**2+ &
+!     &                 /(f_star(ig,l)**2+2.*2.*detr_star(ig,l)*f_star(ig,l)+2.*entr_star(ig,l)*f_star(ig,l))+ &
+!     &                 2.*RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)  &
+!     &                 *1./3. &
+!     &                 *(zlev(ig,l+1)-zlev(ig,l))
+          
+!        write(30,*),l+1,zw2(ig,l+1)-zw2(ig,l), &
+!     &              -2.*entr_star(ig,l)/f_star(ig,l)*zw2(ig,l), &
+!     &               2.*RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+
+ 
+!             zw2(ig,l+1)=zw2(ig,l)*  &
+!     &                 (2.-2.*entr_star(ig,l)/f_star(ig,l)) &  
+!     &                 -zw2(ig,l-1)+  &        
+!     &                 2.*RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)  &
+!     &                 *1./3. &
+!     &                 *(zlev(ig,l+1)-zlev(ig,l))             
+
+            endif
+        endif
+        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 
+
+            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+                print*,'On tombe sur le cas particulier de thermcell_plume'
+                zw2(ig,l+1)=0.
+                linter(ig)=l+1
+            endif
+
+!        if ((zw2(ig,l).gt.0.).and. (zw2(ig,l+1).le.0.)) then
+        if (zw2(ig,l+1).lt.0.) then 
+           linter(ig)=(l*(zw2(ig,l+1)-zw2(ig,l))  &
+     &               -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
+           zw2(ig,l+1)=0.
+        endif
+
+           wa_moy(ig,l+1)=sqrt(zw2(ig,l+1)) 
+
+        if (wa_moy(ig,l+1).gt.wmaxa(ig)) then
+!   lmix est le niveau de la couche ou w (wa_moy) est maximum
+!on rajoute le calcul de lmix_bis
+            if (zqla(ig,l).lt.1.e-10) then
+               lmix_bis(ig)=l+1
+            endif
+            lmix(ig)=l+1
+            wmaxa(ig)=wa_moy(ig,l+1)
+        endif
+        enddo
+      enddo
+
+!on remplace a* par e* ds premiere couche
+!      if (iflag_thermals_ed.ge.1) then
+!       do ig=1,ngrid
+!       do l=2,klev
+!          if (l.lt.lalim(ig)) then
+!             alim_star(ig,l)=entr_star(ig,l)
+!          endif
+!       enddo
+!       enddo
+!       do ig=1,ngrid
+!          lalim(ig)=lmix_bis(ig)
+!       enddo
+!      endif
+       if (iflag_thermals_ed.ge.1) then
+          do ig=1,ngrid
+             do l=2,lalim(ig)
+                alim_star(ig,l)=entr_star(ig,l)
+                entr_star(ig,l)=0.
+             enddo
+           enddo
+       endif
+        if (prt_level.ge.20) print*,'coucou calcul detr 470: ig, l', ig, l
+
+!     print*,'thermcell_plume OK'
+
+      return 
+      end
+!==============================================================================
+       SUBROUTINE thermcellV0_dry(ngrid,nlay,zlev,pphi,ztv,alim_star,  &
+     &                            lalim,lmin,zmax,wmax,lev_out)
+
+!--------------------------------------------------------------------------
+!thermcell_dry: calcul de zmax et wmax du thermique sec
+!--------------------------------------------------------------------------
+       USE print_control_mod, ONLY: prt_level
+       IMPLICIT NONE
+      include "YOMCST.h"       
+       INTEGER l,ig
+
+       INTEGER ngrid,nlay
+       REAL zlev(ngrid,nlay+1)
+       REAL pphi(ngrid,nlay)
+       REAl ztv(ngrid,nlay)
+       REAL alim_star(ngrid,nlay)
+       INTEGER lalim(ngrid)
+      integer lev_out                           ! niveau pour les print
+
+       REAL zmax(ngrid)
+       REAL wmax(ngrid)
+
+!variables locales
+       REAL zw2(ngrid,nlay+1)
+       REAL f_star(ngrid,nlay+1)
+       REAL ztva(ngrid,nlay+1)
+       REAL wmaxa(ngrid)
+       REAL wa_moy(ngrid,nlay+1)
+       REAL linter(ngrid),zlevinter(ngrid)
+       INTEGER lmix(ngrid),lmax(ngrid),lmin(ngrid)
+
+!initialisations
+       do ig=1,ngrid
+          do l=1,nlay+1
+             zw2(ig,l)=0.
+             wa_moy(ig,l)=0.
+          enddo
+       enddo
+       do ig=1,ngrid
+          do l=1,nlay
+             ztva(ig,l)=ztv(ig,l)
+          enddo
+       enddo
+       do ig=1,ngrid
+          wmax(ig)=0.
+          wmaxa(ig)=0.
+       enddo
+!calcul de la vitesse a partir de la CAPE en melangeant thetav
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! A eliminer
+! Ce if complique etait fait pour reperer la premiere couche instable
+! Ici, c'est lmin.
+!
+!       do l=1,nlay-2
+!         do ig=1,ngrid
+!            if (ztv(ig,l).gt.ztv(ig,l+1)  &
+!     &         .and.alim_star(ig,l).gt.1.e-10  &
+!     &         .and.zw2(ig,l).lt.1e-10) then
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+! Calcul des F^*, integrale verticale de E^*
+       f_star(:,1)=0.
+       do l=1,nlay
+          f_star(:,l+1)=f_star(:,l)+alim_star(:,l)
+       enddo
+
+! niveau (reel) auquel zw2 s'annule FH :n'etait pas initialise
+       linter(:)=0.
+
+! couche la plus haute concernee par le thermique. 
+       lmax(:)=1
+
+! Le niveau linter est une variable continue qui se trouve dans la couche
+! lmax
+
+       do l=1,nlay-2
+         do ig=1,ngrid
+            if (l.eq.lmin(ig).and.lalim(ig).gt.1) then
+
+!------------------------------------------------------------------------
+!  Calcul de la vitesse en haut de la premiere couche instable.
+!  Premiere couche du panache thermique
+!------------------------------------------------------------------------
+               zw2(ig,l+1)=2.*RG*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig,l+1)  &
+     &                     *(zlev(ig,l+1)-zlev(ig,l))  &
+     &                     *0.4*pphi(ig,l)/(pphi(ig,l+1)-pphi(ig,l))
+
+!------------------------------------------------------------------------
+! Tant que la vitesse en bas de la couche et la somme du flux de masse
+! et de l'entrainement (c'est a dire le flux de masse en haut) sont
+! positifs, on calcul
+! 1. le flux de masse en haut  f_star(ig,l+1)
+! 2. la temperature potentielle virtuelle dans la couche ztva(ig,l)
+! 3. la vitesse au carré en haut zw2(ig,l+1)
+!------------------------------------------------------------------------
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!  A eliminer : dans cette version, si zw2 est > 0 on a un therique.
+!  et donc, au dessus, f_star(ig,l+1) est forcement suffisamment 
+!  grand puisque on n'a pas de detrainement.
+!  f_star est une fonction croissante.
+!  c'est donc vraiment sur zw2 uniquement qu'il faut faire le test.
+!           else if ((zw2(ig,l).ge.1e-10).and.  &
+!    &               (f_star(ig,l)+alim_star(ig,l).gt.1.e-10)) then
+!              f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+            else if (zw2(ig,l).ge.1e-10) then
+
+               ztva(ig,l)=(f_star(ig,l)*ztva(ig,l-1)+alim_star(ig,l)  &
+     &                    *ztv(ig,l))/f_star(ig,l+1)
+               zw2(ig,l+1)=zw2(ig,l)*(f_star(ig,l)/f_star(ig,l+1))**2+  &
+     &                     2.*RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)  &
+     &                     *(zlev(ig,l+1)-zlev(ig,l))
+            endif
+! determination de zmax continu par interpolation lineaire
+!------------------------------------------------------------------------
+
+            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+!               print*,'On tombe sur le cas particulier de thermcell_dry'
+                zw2(ig,l+1)=0.
+                linter(ig)=l+1
+                lmax(ig)=l
+            endif
+
+            if (zw2(ig,l+1).lt.0.) then
+               linter(ig)=(l*(zw2(ig,l+1)-zw2(ig,l))  &
+     &           -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
+               zw2(ig,l+1)=0.
+               lmax(ig)=l
+            endif
+
+               wa_moy(ig,l+1)=sqrt(zw2(ig,l+1))
+
+            if (wa_moy(ig,l+1).gt.wmaxa(ig)) then
+!   lmix est le niveau de la couche ou w (wa_moy) est maximum
+               lmix(ig)=l+1
+               wmaxa(ig)=wa_moy(ig,l+1)
+            endif
+         enddo
+      enddo
+       if (prt_level.ge.1) print*,'fin calcul zw2'
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! A eliminer :
+! Ce calcul de lmax est fait en meme temps que celui de linter, plus haut
+! Calcul de la couche correspondant a la hauteur du thermique
+!      do ig=1,ngrid
+!         lmax(ig)=lalim(ig)
+!      enddo
+!      do ig=1,ngrid
+!         do l=nlay,lalim(ig)+1,-1
+!            if (zw2(ig,l).le.1.e-10) then
+!               lmax(ig)=l-1
+!            endif
+!         enddo
+!      enddo
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!    
+! Determination de zw2 max
+      do ig=1,ngrid
+         wmax(ig)=0.
+      enddo
+
+      do l=1,nlay
+         do ig=1,ngrid
+            if (l.le.lmax(ig)) then
+                zw2(ig,l)=sqrt(zw2(ig,l))
+                wmax(ig)=max(wmax(ig),zw2(ig,l))
+            else
+                 zw2(ig,l)=0.
+            endif
+          enddo
+      enddo
+
+!   Longueur caracteristique correspondant a la hauteur des thermiques.
+      do  ig=1,ngrid
+         zmax(ig)=0.
+         zlevinter(ig)=zlev(ig,1)
+      enddo
+      do  ig=1,ngrid
+! calcul de zlevinter
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH A eliminer
+! Simplification
+!          zlevinter(ig)=(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*  &
+!     &    linter(ig)+zlev(ig,lmax(ig))-lmax(ig)*(zlev(ig,lmax(ig)+1)  &
+!     &    -zlev(ig,lmax(ig)))
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+          zlevinter(ig)=zlev(ig,lmax(ig)) + &
+     &    (linter(ig)-lmax(ig))*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+           zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,lmin(ig)))
+      enddo
+
+! Verification que lalim<=lmax
+      do ig=1,ngrid
+         if(lalim(ig)>lmax(ig)) then
+           if ( prt_level > 1 ) THEN
+            print*,'WARNING thermcell_dry ig=',ig,'  lalim=',lalim(ig),'  lmax(ig)=',lmax(ig)
+           endif
+           lmax(ig)=lalim(ig)
+         endif
+      enddo
+      
+      RETURN
+      END
+!==============================================================================
+      SUBROUTINE thermcellV0_init(ngrid,nlay,ztv,zlay,zlev,  &
+     &                  lalim,lmin,alim_star,alim_star_tot,lev_out)
+
+!----------------------------------------------------------------------
+!thermcell_init: calcul du profil d alimentation du thermique
+!----------------------------------------------------------------------
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+      include "thermcell.h"
+
+      INTEGER l,ig
+!arguments d entree
+      INTEGER ngrid,nlay
+      REAL ztv(ngrid,nlay)
+      REAL zlay(ngrid,nlay)
+      REAL zlev(ngrid,nlay+1)
+!arguments de sortie
+      INTEGER lalim(ngrid)
+      INTEGER lmin(ngrid)
+      REAL alim_star(ngrid,nlay)
+      REAL alim_star_tot(ngrid)
+      integer lev_out                           ! niveau pour les print
+      
+      REAL zzalim(ngrid)
+!CR: ponderation entrainement des couches instables
+!def des alim_star tels que alim=f*alim_star      
+
+      do l=1,nlay
+         do ig=1,ngrid 
+            alim_star(ig,l)=0.
+         enddo
+      enddo
+! determination de la longueur de la couche d entrainement
+      do ig=1,ngrid
+         lalim(ig)=1
+      enddo
+
+      if (iflag_thermals_ed.ge.1) then
+!si la premiÃ¨re couche est instable, on declenche un thermique
+         do ig=1,ngrid
+            if (ztv(ig,1).gt.ztv(ig,2)) then
+               lmin(ig)=1
+               lalim(ig)=2
+               alim_star(ig,1)=1.
+               alim_star_tot(ig)=alim_star(ig,1)
+               if(prt_level.GE.10) print*,'init',alim_star(ig,1),alim_star_tot(ig)
+            else
+                lmin(ig)=1
+                lalim(ig)=1
+                alim_star(ig,1)=0.
+                alim_star_tot(ig)=0. 
+            endif
+         enddo
+ 
+         else
+!else iflag_thermals_ed=0 ancienne def de l alim 
+
+!on ne considere que les premieres couches instables
+      do l=nlay-2,1,-1
+         do ig=1,ngrid
+            if (ztv(ig,l).gt.ztv(ig,l+1).and.  &
+     &          ztv(ig,l+1).le.ztv(ig,l+2)) then
+               lalim(ig)=l+1
+            endif
+          enddo
+      enddo
+
+! determination du lmin: couche d ou provient le thermique
+
+      do ig=1,ngrid
+! FH initialisation de lmin a nlay plutot que 1.
+!        lmin(ig)=nlay
+         lmin(ig)=1
+      enddo
+      do l=nlay,2,-1
+         do ig=1,ngrid
+            if (ztv(ig,l-1).gt.ztv(ig,l)) then
+               lmin(ig)=l-1
+            endif
+         enddo
+      enddo
+!
+      zzalim(:)=0.
+      do l=1,nlay-1
+         do ig=1,ngrid 
+             if (l<lalim(ig)) then
+                zzalim(ig)=zzalim(ig)+zlay(ig,l)*(ztv(ig,l)-ztv(ig,l+1))
+             endif
+          enddo
+      enddo
+      do ig=1,ngrid
+          if (lalim(ig)>1) then
+             zzalim(ig)=zlay(ig,1)+zzalim(ig)/(ztv(ig,1)-ztv(ig,lalim(ig)))
+          else
+             zzalim(ig)=zlay(ig,1)
+          endif
+      enddo
+
+      if(prt_level.GE.10) print*,'ZZALIM LALIM ',zzalim,lalim,zlay(1,lalim(1))
+
+! definition de l'entrainement des couches
+      if (1.eq.1) then
+      do l=1,nlay-1
+         do ig=1,ngrid 
+            if (ztv(ig,l).gt.ztv(ig,l+1).and.  &
+     &          l.ge.lmin(ig).and.l.lt.lalim(ig)) then
+!def possibles pour alim_star: zdthetadz, dthetadz, zdtheta
+             alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
+     &                       *sqrt(zlev(ig,l+1)) 
+            endif
+         enddo
+      enddo
+      else
+      do l=1,nlay-1
+         do ig=1,ngrid
+            if (ztv(ig,l).gt.ztv(ig,l+1).and.  &
+     &          l.ge.lmin(ig).and.l.lt.lalim(ig)) then
+             alim_star(ig,l)=max(3.*zzalim(ig)-zlay(ig,l),0.) &
+     &        *(zlev(ig,l+1)-zlev(ig,l))
+            endif
+         enddo
+      enddo
+      endif
+      
+! pas de thermique si couche 1 stable
+      do ig=1,ngrid
+!CRnouveau test
+        if (alim_star(ig,1).lt.1.e-10) then 
+            do l=1,nlay
+                alim_star(ig,l)=0.
+            enddo
+            lmin(ig)=1
+         endif
+      enddo 
+! calcul de l alimentation totale
+      do ig=1,ngrid
+         alim_star_tot(ig)=0.
+      enddo
+      do l=1,nlay
+         do ig=1,ngrid
+            alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
+         enddo
+      enddo
+!
+! Calcul entrainement normalise
+      do l=1,nlay 
+         do ig=1,ngrid 
+            if (alim_star_tot(ig).gt.1.e-10) then
+               alim_star(ig,l)=alim_star(ig,l)/alim_star_tot(ig)
+            endif
+         enddo
+      enddo
+       
+!on remet alim_star_tot a 1
+      do ig=1,ngrid 
+         alim_star_tot(ig)=1.
+      enddo
+
+      endif
+!endif iflag_thermals_ed
+      return 
+      end  
+!==============================================================================
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_alim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_alim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_alim.F90	(revision 3330)
@@ -0,0 +1,129 @@
+!
+! $Id: thermcell_plume.F90 2311 2015-06-25 07:45:24Z emillour $
+!
+      SUBROUTINE thermcell_alim(flag,ngrid,klev,ztv,d_temp,zlev,alim_star,lalim)
+IMPLICIT NONE
+
+!--------------------------------------------------------------------------
+! FH : 2015/11/06
+! thermcell_alim: calcule la distribution verticale de l'alimentation 
+! laterale a la base des panaches thermiques
+!--------------------------------------------------------------------------
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+
+!      fort(10) ptimestep,ztv,zthl,po,zl,rhobarz,zlev,pplev,pphi,zpspsk,f0
+      INTEGER, INTENT(IN) :: ngrid,klev
+      REAL, INTENT(IN) :: ztv(ngrid,klev)
+      REAL, INTENT(IN) :: d_temp(ngrid)
+      REAL, INTENT(IN) :: zlev(ngrid,klev+1)
+      REAL, INTENT(OUT) :: alim_star(ngrid,klev)
+      INTEGER, INTENT(OUT) :: lalim(ngrid)
+      INTEGER, INTENT(IN) :: flag
+
+      REAL :: alim_star_tot(ngrid),zi(ngrid),zh(ngrid)
+      REAL :: zlay(ngrid,klev)
+      REAL ztv_parcel
+
+      INTEGER ig,l
+
+      REAL h,z,falim
+      falim(h,z)=0.2*((z-h)**5+h**5)
+
+
+!===================================================================
+
+   lalim(:)=1
+   alim_star_tot(:)=0.
+
+!-------------------------------------------------------------------------
+! Definition de l'alimentation a l'origine dans thermcell_init
+!-------------------------------------------------------------------------
+   IF (flag==0) THEN ! CMIP5 version
+      do l=1,klev-1
+         do ig=1,ngrid
+            if (ztv(ig,l)> ztv(ig,l+1) .and. ztv(ig,1)>=ztv(ig,l) ) then
+               alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
+     &                       *sqrt(zlev(ig,l+1)) 
+               lalim(ig)=l+1
+               alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
+            endif
+         enddo
+      enddo
+      do l=1,klev
+         do ig=1,ngrid 
+            if (alim_star_tot(ig) > 1.e-10 ) then
+               alim_star(ig,l)=alim_star(ig,l)/alim_star_tot(ig)
+            endif
+         enddo
+      enddo
+      alim_star_tot(:)=1.
+
+!-------------------------------------------------------------------------
+! Nouvelle definition avec possibilite d'introduire un DT en surface
+! On suppose que la forme du profile d'alimentation scale avec la hauteur
+! d'inversion calculée avec une particule partant de la premieere couche
+
+! Fonction  f(z) = z ( h - z ) , avec h = zi/3
+! On utilise l'integralle
+! Int_0^z f(z') dz' = z^2 ( h/2 - z/3 ) = falim(h,z)
+! Pour calculer l'alimentation des couches
+!-------------------------------------------------------------------------
+   ELSE
+! Computing inversion height zi and zh=zi/3.
+      zi(:)=0.
+! Il faut recalculer zlay qui n'est pas dispo dans thermcell_plume
+! A changer eventuellement.
+      do l=1,klev
+         zlay(:,l)=0.5*(zlev(:,l)+zlev(:,l+1))
+      enddo
+
+      do l=klev-1,1,-1
+         do ig=1,ngrid
+            ztv_parcel=ztv(ig,1)+d_temp(ig)
+            if (ztv_parcel<ztv(ig,l+1)) lalim(ig)=l
+         enddo
+      enddo
+
+      do ig=1,ngrid
+         l=lalim(ig)
+         IF (l==1) THEN
+            zi(ig)=0.
+         ELSE
+            ztv_parcel=ztv(ig,1)+d_temp(ig)
+            zi(ig)=zlay(ig,l)+(zlay(ig,l+1)-zlay(ig,l))/(ztv(ig,l+1)-ztv(ig,l))*(ztv_parcel-ztv(ig,l))
+         ENDIF
+      enddo
+
+      zh(:)=zi(:)/2.
+      alim_star_tot(:)=0.
+      alim_star(:,:)=0.
+      lalim(:)=0
+      do l=1,klev-1
+         do ig=1,ngrid
+            IF (zh(ig)==0.) THEN
+               alim_star(ig,l)=0.
+               lalim(ig)=1
+            ELSE IF (zlev(ig,l+1)<=zh(ig)) THEN
+               alim_star(ig,l)=(falim(zh(ig),zlev(ig,l+1))-falim(zh(ig),zlev(ig,l)))/falim(zh(ig),zh(ig))
+               lalim(ig)=l
+            ELSE IF (zlev(ig,l)<=zh(ig)) THEN
+               alim_star(ig,l)=(falim(zh(ig),zh(ig))-falim(zh(ig),zlev(ig,l)))/falim(zh(ig),zh(ig))
+               lalim(ig)=l
+            ELSE
+               alim_star(ig,l)=0.
+            ENDIF
+         ENDDO
+         alim_star_tot(:)=alim_star_tot(:)+alim_star(:,l)
+      ENDDO
+      IF (ngrid==1) print*,'NEW ALIM CALCUL DE ZI ',alim_star_tot,lalim,zi,zh
+      alim_star_tot(:)=1.
+
+   ENDIF
+
+
+RETURN
+END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_alp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_alp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_alp.F90	(revision 3330)
@@ -0,0 +1,475 @@
+! $Id: thermcell_main.F90 2351 2015-08-25 15:14:59Z emillour $
+!
+      SUBROUTINE thermcell_alp(ngrid,nlay,ptimestep  &
+     &                  ,pplay,pplev  &
+     &                  ,fm0,entr0,lmax  &
+     &                  ,ale_bl,alp_bl,lalim_conv,wght_th &
+     &                  ,zw2,fraca &
+!!! ncessaire en plus
+     &                  ,pcon,rhobarz,wth3,wmax_sec,lalim,fm,alim_star,zmax &
+!!! nrlmd le 10/04/2012
+     &                  ,pbl_tke,pctsrf,omega,airephy &
+     &                  ,zlcl,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
+     &                  ,n2,s2,ale_bl_stat &
+     &                  ,therm_tke_max,env_tke_max &
+     &                  ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
+     &                  ,alp_bl_conv,alp_bl_stat &
+!!! fin nrlmd le 10/04/2012
+     &)
+
+      USE dimphy
+      USE indice_sol_mod
+      IMPLICIT NONE
+
+!=======================================================================
+!   Auteurs: Frederic Hourdin, Catherine Rio, Anne Mathieu
+!   Version du 09.02.07
+!   Calcul du transport vertical dans la couche limite en presence
+!   de "thermiques" explicitement representes avec processus nuageux
+!
+!   Reecriture a partir d'un listing papier a Habas, le 14/02/00
+!
+!   le thermique est suppose homogene et dissipe par melange avec
+!   son environnement. la longueur l_mix controle l'efficacite du
+!   melange
+!
+!   Le calcul du transport des differentes especes se fait en prenant
+!   en compte:
+!     1. un flux de masse montant
+!     2. un flux de masse descendant
+!     3. un entrainement
+!     4. un detrainement
+!
+! Modif 2013/01/04 (FH hourdin@lmd.jussieu.fr)
+!    Introduction of an implicit computation of vertical advection in
+!    the environment of thermal plumes in thermcell_dq
+!    impl =     0 : explicit, 1 : implicit, -1 : old version
+!    controled by iflag_thermals =
+!       15, 16 run with impl=-1 : numerical convergence with NPv3
+!       17, 18 run with impl=1  : more stable
+!    15 and 17 correspond to the activation of the stratocumulus "bidouille"
+!
+!=======================================================================
+!-----------------------------------------------------------------------
+!   declarations:
+!   -------------
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+
+!   arguments:
+!   ----------
+
+!IM 140508
+
+      INTEGER ngrid,nlay
+      real ptimestep
+      REAL pplay(ngrid,nlay),pplev(ngrid,nlay+1)
+
+!   local:
+!   ------
+
+
+      REAL susqr2pi, reuler
+
+      INTEGER ig,k,l
+      INTEGER lmax(klon),lalim(klon)
+      real zmax(klon),zw2(klon,klev+1)
+
+!on garde le zmax du pas de temps precedent
+
+
+      real fraca(klon,klev+1)
+      real wth3(klon,klev)
+! FH probleme de dimensionnement avec l'allocation dynamique
+!     common/comtherm/thetath2,wth2
+      real rhobarz(klon,klev)
+
+      real wmax_sec(klon)
+      real fm0(klon,klev+1),entr0(klon,klev)
+      real fm(klon,klev+1)
+
+!niveau de condensation
+      real pcon(klon)
+
+      real alim_star(klon,klev)
+
+!!! nrlmd le 10/04/2012
+
+!------Entrées
+      real pbl_tke(klon,klev+1,nbsrf)
+      real pctsrf(klon,nbsrf)
+      real omega(klon,klev)
+      real airephy(klon)
+!------Sorties
+      real zlcl(klon),fraca0(klon),w0(klon),w_conv(klon)
+      real therm_tke_max0(klon),env_tke_max0(klon)
+      real n2(klon),s2(klon)
+      real ale_bl_stat(klon)
+      real therm_tke_max(klon,klev),env_tke_max(klon,klev)
+      real alp_bl_det(klon),alp_bl_fluct_m(klon),alp_bl_fluct_tke(klon),alp_bl_conv(klon),alp_bl_stat(klon)
+!------Local
+      integer nsrf
+      real rhobarz0(klon)                    ! Densité au LCL
+      logical ok_lcl(klon)                   ! Existence du LCL des thermiques
+      integer klcl(klon)                     ! Niveau du LCL
+      real interp(klon)                      ! Coef d'interpolation pour le LCL
+!--Triggering
+      real Su                                ! Surface unité: celle d'un updraft élémentaire
+      parameter(Su=4e4)
+      real hcoef                             ! Coefficient directeur pour le calcul de s2
+      parameter(hcoef=1)
+      real hmincoef                          ! Coefficient directeur pour l'ordonnée à l'origine pour le calcul de s2 
+      parameter(hmincoef=0.3)
+      real eps1                              ! Fraction de surface occupée par la population 1 : eps1=n1*s1/(fraca0*Sd)
+      parameter(eps1=0.3)
+      real hmin(ngrid)                       ! Ordonnée à l'origine pour le calcul de s2
+      real zmax_moy(ngrid)                   ! Hauteur moyenne des thermiques : zmax_moy = zlcl + 0.33 (zmax-zlcl)
+      real zmax_moy_coef
+      parameter(zmax_moy_coef=0.33)
+      real depth(klon)                       ! Epaisseur moyenne du cumulus
+      real w_max(klon)                       ! Vitesse max statistique 
+      real s_max(klon)
+!--Closure
+      real pbl_tke_max(klon,klev)            ! Profil de TKE moyenne 
+      real pbl_tke_max0(klon)                ! TKE moyenne au LCL
+      real w_ls(klon,klev)                   ! Vitesse verticale grande échelle (m/s)
+      real coef_m                            ! On considère un rendement pour alp_bl_fluct_m
+      parameter(coef_m=1.)
+      real coef_tke                          ! On considère un rendement pour alp_bl_fluct_tke
+      parameter(coef_tke=1.)
+
+!!! fin nrlmd le 10/04/2012
+
+!
+      !nouvelles variables pour la convection
+      real ale_bl(klon)
+      real alp_bl(klon)
+      real alp_int(klon),dp_int(klon),zdp
+      real fm_tot(klon)
+      real wght_th(klon,klev)
+      integer lalim_conv(klon)
+!v1d     logical therm
+!v1d     save therm
+
+
+!------------------------------------------------------------
+!  Initialize output arrays related to stochastic triggering
+!------------------------------------------------------------
+  DO ig = 1,klon
+     zlcl(ig) = 0.
+     fraca0(ig) = 0.
+     w0(ig) = 0.
+     w_conv(ig) = 0.
+     therm_tke_max0(ig) = 0.
+     env_tke_max0(ig) = 0.
+     n2(ig) = 0.
+     s2(ig) = 0.
+     ale_bl_stat(ig) = 0.
+     alp_bl_det(ig) = 0.
+     alp_bl_fluct_m(ig) = 0.
+     alp_bl_fluct_tke(ig) = 0.
+     alp_bl_conv(ig) = 0.
+     alp_bl_stat(ig) = 0.
+  ENDDO
+  DO l = 1,klev
+    DO ig = 1,klon
+     therm_tke_max(ig,l) = 0.
+     env_tke_max(ig,l) = 0.
+    ENDDO
+  ENDDO
+!------------------------------------------------------------
+
+
+!------------Test sur le LCL des thermiques
+    do ig=1,ngrid
+      ok_lcl(ig)=.false.
+      if ( (pcon(ig) .gt. pplay(ig,klev-1)) .and. (pcon(ig) .lt. pplay(ig,1)) ) ok_lcl(ig)=.true.
+    enddo
+
+!------------Localisation des niveaux entourant le LCL et du coef d'interpolation
+    do l=1,nlay-1
+      do ig=1,ngrid
+        if (ok_lcl(ig)) then 
+!ATTENTION,zw2 calcule en pplev
+!          if ((pplay(ig,l) .ge. pcon(ig)) .and. (pplay(ig,l+1) .le. pcon(ig))) then
+!          klcl(ig)=l
+!          interp(ig)=(pcon(ig)-pplay(ig,klcl(ig)))/(pplay(ig,klcl(ig)+1)-pplay(ig,klcl(ig)))
+!          endif
+          if ((pplev(ig,l) .ge. pcon(ig)) .and. (pplev(ig,l+1) .le. pcon(ig))) then
+          klcl(ig)=l
+          interp(ig)=(pcon(ig)-pplev(ig,klcl(ig)))/(pplev(ig,klcl(ig)+1)-pplev(ig,klcl(ig)))
+          endif
+        endif
+      enddo
+    enddo
+
+!------------Hauteur des thermiques
+!!jyg le 27/04/2012
+!!    do ig =1,ngrid
+!!    rhobarz0(ig)=rhobarz(ig,klcl(ig))+(rhobarz(ig,klcl(ig)+1) &
+!! &               -rhobarz(ig,klcl(ig)))*interp(ig)
+!!    zlcl(ig)=(pplev(ig,1)-pcon(ig))/(rhobarz0(ig)*RG)
+!!      if ( (.not.ok_lcl(ig)) .or. (zlcl(ig).gt.zmax(ig)) ) zlcl(ig)=zmax(ig) ! Si zclc > zmax alors on pose zlcl = zmax
+!!    enddo
+    do ig =1,ngrid
+!CR:REHABILITATION ZMAX CONTINU
+     if (ok_lcl(ig)) then 
+      rhobarz0(ig)=rhobarz(ig,klcl(ig))+(rhobarz(ig,klcl(ig)+1) &
+ &               -rhobarz(ig,klcl(ig)))*interp(ig)
+      zlcl(ig)=(pplev(ig,1)-pcon(ig))/(rhobarz0(ig)*RG)
+      zlcl(ig)=min(zlcl(ig),zmax(ig))   ! Si zlcl > zmax alors on pose zlcl = zmax
+     else
+      rhobarz0(ig)=0.
+      zlcl(ig)=zmax(ig)
+     endif
+    enddo
+!!jyg fin
+
+!------------Calcul des propriétés du thermique au LCL 
+  IF ( (iflag_trig_bl.ge.1) .or. (iflag_clos_bl.ge.1) ) THEN 
+
+  !-----Initialisation de la TKE moyenne 
+   do l=1,nlay
+    do ig=1,ngrid
+     pbl_tke_max(ig,l)=0.
+    enddo
+   enddo
+
+!-----Calcul de la TKE moyenne 
+   do nsrf=1,nbsrf
+    do l=1,nlay
+     do ig=1,ngrid
+     pbl_tke_max(ig,l)=pctsrf(ig,nsrf)*pbl_tke(ig,l,nsrf)+pbl_tke_max(ig,l)
+     enddo
+    enddo
+   enddo
+
+!-----Initialisations des TKE dans et hors des thermiques 
+   do l=1,nlay
+    do ig=1,ngrid
+    therm_tke_max(ig,l)=pbl_tke_max(ig,l)
+    env_tke_max(ig,l)=pbl_tke_max(ig,l)
+    enddo
+   enddo
+
+!-----Calcul de la TKE transportée par les thermiques : therm_tke_max
+   call thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0,  &
+  &           rg,pplev,therm_tke_max)
+!   print *,' thermcell_tke_transport -> '   !!jyg
+
+!-----Calcul des profils verticaux de TKE hors thermiques : env_tke_max, et de la vitesse verticale grande échelle : W_ls
+   do l=1,nlay
+    do ig=1,ngrid
+     pbl_tke_max(ig,l)=fraca(ig,l)*therm_tke_max(ig,l)+(1.-fraca(ig,l))*env_tke_max(ig,l)         !  Recalcul de TKE moyenne aprés transport de TKE_TH
+     env_tke_max(ig,l)=(pbl_tke_max(ig,l)-fraca(ig,l)*therm_tke_max(ig,l))/(1.-fraca(ig,l))       !  Recalcul de TKE dans  l'environnement aprés transport de TKE_TH
+     w_ls(ig,l)=-1.*omega(ig,l)/(RG*rhobarz(ig,l))                                                !  Vitesse verticale de grande échelle
+    enddo
+   enddo
+!    print *,' apres w_ls = '   !!jyg
+
+  do ig=1,ngrid
+   if (ok_lcl(ig)) then
+     fraca0(ig)=fraca(ig,klcl(ig))+(fraca(ig,klcl(ig)+1) &
+ &             -fraca(ig,klcl(ig)))*interp(ig)
+     w0(ig)=zw2(ig,klcl(ig))+(zw2(ig,klcl(ig)+1) &
+ &         -zw2(ig,klcl(ig)))*interp(ig)
+     w_conv(ig)=w_ls(ig,klcl(ig))+(w_ls(ig,klcl(ig)+1) &
+ &             -w_ls(ig,klcl(ig)))*interp(ig)
+     therm_tke_max0(ig)=therm_tke_max(ig,klcl(ig)) &
+ &                     +(therm_tke_max(ig,klcl(ig)+1)-therm_tke_max(ig,klcl(ig)))*interp(ig)
+     env_tke_max0(ig)=env_tke_max(ig,klcl(ig))+(env_tke_max(ig,klcl(ig)+1) &
+ &                   -env_tke_max(ig,klcl(ig)))*interp(ig)
+     pbl_tke_max0(ig)=pbl_tke_max(ig,klcl(ig))+(pbl_tke_max(ig,klcl(ig)+1) &
+ &                   -pbl_tke_max(ig,klcl(ig)))*interp(ig)
+     if (therm_tke_max0(ig).ge.20.) therm_tke_max0(ig)=20.
+     if (env_tke_max0(ig).ge.20.) env_tke_max0(ig)=20.
+     if (pbl_tke_max0(ig).ge.20.) pbl_tke_max0(ig)=20.
+   else 
+     fraca0(ig)=0.
+     w0(ig)=0.
+!!jyg le 27/04/2012
+!!     zlcl(ig)=0.
+!!
+   endif
+  enddo
+
+  ENDIF ! IF ( (iflag_trig_bl.ge.1) .or. (iflag_clos_bl.ge.1) )
+!  print *,'ENDIF  ( (iflag_trig_bl.ge.1) .or. (iflag_clos_bl.ge.1) ) '    !!jyg
+
+!------------Triggering------------------
+  IF (iflag_trig_bl.ge.1) THEN 
+
+!-----Initialisations
+   depth(:)=0.
+   n2(:)=0.
+   s2(:)=100. ! some low value, arbitrary
+   s_max(:)=0.
+
+!-----Epaisseur du nuage (depth) et détermination de la queue du spectre de panaches (n2,s2) et du panache le plus gros (s_max)
+   do ig=1,ngrid
+     zmax_moy(ig)=zlcl(ig)+zmax_moy_coef*(zmax(ig)-zlcl(ig))
+     depth(ig)=zmax_moy(ig)-zlcl(ig)
+     hmin(ig)=hmincoef*zlcl(ig)
+     if (depth(ig).ge.10.) then 
+       s2(ig)=(hcoef*depth(ig)+hmin(ig))**2
+       n2(ig)=(1.-eps1)*fraca0(ig)*airephy(ig)/s2(ig)
+!!
+!!jyg le 27/04/2012
+!!       s_max(ig)=s2(ig)*log(n2(ig))
+!!       if (n2(ig) .lt. 1) s_max(ig)=0.
+       s_max(ig)=s2(ig)*log(max(n2(ig),1.))
+!!fin jyg
+     else
+       n2(ig)=0.
+       s_max(ig)=0.
+     endif
+   enddo
+!   print *,'avant Calcul de Wmax '    !!jyg
+
+!-----Calcul de Wmax et ALE_BL_STAT associée
+!!jyg le 30/04/2012
+!!   do ig=1,ngrid
+!!     if ( (depth(ig).ge.10.) .and. (s_max(ig).gt.1.) ) then
+!!     w_max(ig)=w0(ig)*(1.+sqrt(2.*log(s_max(ig)/su)-log(2.*3.14)-log(2.*log(s_max(ig)/su)-log(2.*3.14))))
+!!     ale_bl_stat(ig)=0.5*w_max(ig)**2
+!!     else
+!!     w_max(ig)=0.
+!!     ale_bl_stat(ig)=0.
+!!     endif
+!!   enddo
+   susqr2pi=su*sqrt(2.*Rpi)
+   reuler=exp(1.)
+   do ig=1,ngrid
+     if ( (depth(ig).ge.10.) .and. (s_max(ig).gt.susqr2pi*reuler) ) then
+      w_max(ig)=w0(ig)*(1.+sqrt(2.*log(s_max(ig)/susqr2pi)-log(2.*log(s_max(ig)/susqr2pi))))
+      ale_bl_stat(ig)=0.5*w_max(ig)**2
+     else
+      w_max(ig)=0.
+      ale_bl_stat(ig)=0.
+     endif
+   enddo
+
+  ENDIF ! iflag_trig_bl
+!  print *,'ENDIF  iflag_trig_bl'    !!jyg
+
+!------------Closure------------------
+
+  IF (iflag_clos_bl.ge.2) THEN 
+
+!-----Calcul de ALP_BL_STAT
+  do ig=1,ngrid
+  alp_bl_det(ig)=0.5*coef_m*rhobarz0(ig)*(w0(ig)**3)*fraca0(ig)*(1.-2.*fraca0(ig))/((1.-fraca0(ig))**2)
+  alp_bl_fluct_m(ig)=1.5*rhobarz0(ig)*fraca0(ig)*(w_conv(ig)+coef_m*w0(ig))* &
+ &                   (w0(ig)**2)
+  alp_bl_fluct_tke(ig)=3.*coef_m*rhobarz0(ig)*w0(ig)*fraca0(ig)*(therm_tke_max0(ig)-env_tke_max0(ig)) &
+ &                    +3.*rhobarz0(ig)*w_conv(ig)*pbl_tke_max0(ig)
+    if (iflag_clos_bl.ge.2) then 
+    alp_bl_conv(ig)=1.5*coef_m*rhobarz0(ig)*fraca0(ig)*(fraca0(ig)/(1.-fraca0(ig)))*w_conv(ig)* &
+ &                   (w0(ig)**2)
+    else
+    alp_bl_conv(ig)=0.
+    endif
+  alp_bl_stat(ig)=alp_bl_det(ig)+alp_bl_fluct_m(ig)+alp_bl_fluct_tke(ig)+alp_bl_conv(ig)
+  enddo
+
+!-----Sécurité ALP infinie
+  do ig=1,ngrid
+   if (fraca0(ig).gt.0.98) alp_bl_stat(ig)=2.
+  enddo
+
+  ENDIF ! (iflag_clos_bl.ge.2)
+
+!!! fin nrlmd le 10/04/2012
+
+!      print*,'avant calcul ale et alp' 
+!calcul de ALE et ALP pour la convection
+      alp_bl(:)=0.
+      ale_bl(:)=0.
+!          print*,'ALE,ALP ,l,zw2(ig,l),ale_bl(ig),alp_bl(ig)'
+      do l=1,nlay
+      do ig=1,ngrid
+           alp_bl(ig)=max(alp_bl(ig),0.5*rhobarz(ig,l)*wth3(ig,l) )
+           ale_bl(ig)=max(ale_bl(ig),0.5*zw2(ig,l)**2)
+!          print*,'ALE,ALP',l,zw2(ig,l),ale_bl(ig),alp_bl(ig)
+      enddo
+      enddo
+
+! ale sec (max de wmax/2 sous la zone d'inhibition) dans
+! le cas iflag_trig_bl=3
+      IF (iflag_trig_bl==3) ale_bl(:)=0.5*wmax_sec(:)**2
+
+!test:calcul de la ponderation des couches pour KE
+!initialisations
+
+      fm_tot(:)=0.
+      wght_th(:,:)=1.
+      lalim_conv(:)=lalim(:)
+
+      do k=1,klev
+         do ig=1,ngrid
+            if (k<=lalim_conv(ig)) fm_tot(ig)=fm_tot(ig)+fm(ig,k)
+         enddo
+      enddo
+
+! assez bizarre car, si on est dans la couche d'alim et que alim_star et
+! plus petit que 1.e-10, on prend wght_th=1.
+      do k=1,klev
+         do ig=1,ngrid
+            if (k<=lalim_conv(ig).and.alim_star(ig,k)>1.e-10) then
+               wght_th(ig,k)=alim_star(ig,k)
+            endif
+         enddo
+      enddo
+
+!      print*,'apres wght_th'
+!test pour prolonger la convection
+      do ig=1,ngrid
+!v1d  if ((alim_star(ig,1).lt.1.e-10).and.(therm)) then
+      if ((alim_star(ig,1).lt.1.e-10)) then
+      lalim_conv(ig)=1
+      wght_th(ig,1)=1.
+!      print*,'lalim_conv ok',lalim_conv(ig),wght_th(ig,1)
+      endif
+      enddo
+
+!------------------------------------------------------------------------
+! Modif CR/FH 20110310 : alp integree sur la verticale.
+! Integrale verticale de ALP.
+! wth3 etant aux niveaux inter-couches, on utilise d play comme masse des
+! couches
+!------------------------------------------------------------------------
+
+      alp_int(:)=0.
+      dp_int(:)=0.
+      do l=2,nlay
+        do ig=1,ngrid
+           if(l.LE.lmax(ig)) THEN
+           zdp=pplay(ig,l-1)-pplay(ig,l)
+           alp_int(ig)=alp_int(ig)+0.5*rhobarz(ig,l)*wth3(ig,l)*zdp
+           dp_int(ig)=dp_int(ig)+zdp
+           endif
+        enddo
+      enddo
+
+      if (iflag_coupl>=3 .and. iflag_coupl<=5) then
+      do ig=1,ngrid
+!valeur integree de alp_bl * 0.5:
+        if (dp_int(ig)>0.) then
+        alp_bl(ig)=alp_int(ig)/dp_int(ig)
+        endif
+      enddo!
+      endif
+
+
+! Facteur multiplicatif sur alp_bl
+      alp_bl(:)=alp_bl_k*alp_bl(:)
+
+!------------------------------------------------------------------------
+
+
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_closure.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_closure.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_closure.F90	(revision 3330)
@@ -0,0 +1,81 @@
+!
+! $Header$
+!
+      SUBROUTINE thermcell_closure(ngrid,nlay,r_aspect,ptimestep,rho,  &
+     &   zlev,lalim,alim_star,f_star,zmax,wmax,f,lev_out)
+
+!-------------------------------------------------------------------------
+!thermcell_closure: fermeture, determination de f
+!
+! Modification 7 septembre 2009
+! 1. On enleve alim_star_tot des arguments pour le recalculer et etre ainis
+! coherent avec l'integrale au numerateur.
+! 2. On ne garde qu'une version des couples wmax,zmax et wmax_sec,zmax_sec
+! l'idee etant que le choix se fasse a l'appel de thermcell_closure
+! 3. Vectorisation en mettant les boucles en l l'exterieur avec des if
+!-------------------------------------------------------------------------
+      IMPLICIT NONE
+
+#include "thermcell.h"
+INTEGER ngrid,nlay
+INTEGER ig,k       
+REAL r_aspect,ptimestep
+integer lev_out                           ! niveau pour les print
+
+INTEGER lalim(ngrid)
+REAL alim_star(ngrid,nlay)
+REAL f_star(ngrid,nlay+1)
+REAL rho(ngrid,nlay)
+REAL zlev(ngrid,nlay)
+REAL zmax(ngrid)
+REAL wmax(ngrid)
+REAL zdenom(ngrid)
+REAL alim_star2(ngrid)
+REAL f(ngrid)
+
+REAL alim_star_tot(ngrid)
+INTEGER llmax
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!print*,'THERMCELL CLOSURE 26E'
+
+alim_star2(:)=0.
+alim_star_tot(:)=0.
+f(:)=0.
+
+! Indice vertical max (max de lalim) atteint par les thermiques sur le domaine
+llmax=1
+do ig=1,ngrid
+   if (lalim(ig)>llmax) llmax=lalim(ig)
+enddo
+
+
+! Calcul des integrales sur la verticale de alim_star et de
+!   alim_star^2/(rho dz)
+do k=1,llmax-1
+   do ig=1,ngrid
+      if (k<lalim(ig)) then
+         alim_star2(ig)=alim_star2(ig)+alim_star(ig,k)**2  &
+&                    /(rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k)))
+         alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,k)
+      endif
+   enddo
+enddo
+
+
+do ig=1,ngrid
+   if (alim_star2(ig)>1.e-10) then
+      f(ig)=wmax(ig)*alim_star_tot(ig)/  &
+&     (max(500.,zmax(ig))*r_aspect*alim_star2(ig))
+   endif
+enddo
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! TESTS POUR UNE NOUVELLE FERMETURE DANS LAQUELLE ALIM_STAR NE SERAIT
+! PAS NORMALISE
+!           f(ig)=f(ig)*f_star(ig,2)/(f_star(ig,lalim(ig)))
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_condens.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_condens.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_condens.F90	(revision 3330)
@@ -0,0 +1,81 @@
+subroutine thermcell_condens(klon,active,zpspsk,pplev,ztla,zqta,zqla)
+implicit none
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+
+
+!====================================================================
+! DECLARATIONS
+!====================================================================
+
+! Arguments
+INTEGER klon
+REAL zpspsk(klon),pplev(klon)
+REAL ztla(klon),zqta(klon),zqla(klon)
+LOGICAL active(klon)
+
+! Variables locales
+INTEGER ig,iter
+REAL Tbef(klon),DT(klon)
+REAL tdelta,qsatbef,zcor,qlbef,zdelta,zcvm5,dqsat,num,denom,dqsat_dT
+logical Zsat
+REAL RLvCp
+REAL, SAVE :: DDT0=.01
+LOGICAL afaire(klon),tout_converge
+
+!====================================================================
+! INITIALISATIONS
+!====================================================================
+
+RLvCp = RLVTT/RCPD
+tout_converge=.false.
+afaire(:)=.false.
+DT(:)=0.
+
+
+!====================================================================
+! Routine a vectoriser en copiant active dans converge et en mettant
+! la boucle sur les iterations a l'exterieur est en mettant
+! converge= false des que la convergence est atteinte.
+!====================================================================
+
+do ig=1,klon
+   if (active(ig)) then
+               Tbef(ig)=ztla(ig)*zpspsk(ig)
+               zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
+               qsatbef= R2ES * FOEEW(Tbef(ig),zdelta)/pplev(ig)
+               qsatbef=MIN(0.5,qsatbef)
+               zcor=1./(1.-retv*qsatbef)
+               qsatbef=qsatbef*zcor
+               qlbef=max(0.,zqta(ig)-qsatbef)
+               DT(ig) = 0.5*RLvCp*qlbef
+     endif
+enddo
+
+do iter=1,10
+    afaire(:)=abs(DT(:)).gt.DDT0
+    do ig=1,klon
+               if (afaire(ig)) then
+                 Tbef(ig)=Tbef(ig)+DT(ig)
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
+                 qsatbef= R2ES * FOEEW(Tbef(ig),zdelta)/pplev(ig)
+                 qsatbef=MIN(0.5,qsatbef)
+                 zcor=1./(1.-retv*qsatbef)
+                 qsatbef=qsatbef*zcor
+                 qlbef=zqta(ig)-qsatbef
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
+                 zcvm5=R5LES*(1.-zdelta) + R5IES*zdelta
+                 zcor=1./(1.-retv*qsatbef)
+                 dqsat_dT=FOEDE(Tbef(ig),zdelta,zcvm5,qsatbef,zcor)
+                 num=-Tbef(ig)+ztla(ig)*zpspsk(ig)+RLvCp*qlbef
+                 denom=1.+RLvCp*dqsat_dT
+                 zqla(ig) = max(0.,zqta(ig)-qsatbef) 
+                 DT(ig)=num/denom
+               endif
+    enddo
+enddo
+
+return
+end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dq.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dq.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dq.F90	(revision 3330)
@@ -0,0 +1,323 @@
+      subroutine thermcell_dq(ngrid,nlay,impl,ptimestep,fm,entr,  &
+     &           masse,q,dq,qa,lev_out)
+      USE print_control_mod, ONLY: prt_level
+      implicit none
+
+!=======================================================================
+!
+!   Calcul du transport verticale dans la couche limite en presence
+!   de "thermiques" explicitement representes
+!   calcul du dq/dt une fois qu'on connait les ascendances
+!
+! Modif 2013/01/04 (FH hourdin@lmd.jussieu.fr)
+!  Introduction of an implicit computation of vertical advection in
+!  the environment of thermal plumes in thermcell_dq
+!  impl =     0 : explicit, 1 : implicit, -1 : old version
+!
+!=======================================================================
+
+      integer ngrid,nlay,impl
+
+      real ptimestep
+      real masse(ngrid,nlay),fm(ngrid,nlay+1)
+      real entr(ngrid,nlay)
+      real q(ngrid,nlay)
+      real dq(ngrid,nlay)
+      integer lev_out                           ! niveau pour les print
+
+      real qa(ngrid,nlay),detr(ngrid,nlay),wqd(ngrid,nlay+1)
+
+      real zzm
+
+      integer ig,k
+      real cfl
+
+      real qold(ngrid,nlay),fqa(ngrid,nlay+1)
+      integer niter,iter
+      CHARACTER (LEN=20) :: modname='thermcell_dq'
+      CHARACTER (LEN=80) :: abort_message
+
+
+! Old explicite scheme
+      if (impl<=-1) then
+         call thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr,  &
+     &           masse,q,dq,qa,lev_out)
+         return
+      endif
+
+! Calcul du critere CFL pour l'advection dans la subsidence
+      cfl = 0.
+      do k=1,nlay
+         do ig=1,ngrid
+            zzm=masse(ig,k)/ptimestep
+            cfl=max(cfl,fm(ig,k)/zzm)
+            if (entr(ig,k).gt.zzm) then
+               print*,'entr*dt>m,1',k,entr(ig,k)*ptimestep,masse(ig,k)
+               abort_message = 'entr dt > m, 1st'
+               CALL abort_physic (modname,abort_message,1)
+            endif
+         enddo
+      enddo
+
+      qold=q
+
+
+      if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'
+
+!   calcul du detrainement
+      do k=1,nlay
+         do ig=1,ngrid
+            detr(ig,k)=fm(ig,k)-fm(ig,k+1)+entr(ig,k)
+!           print*,'Q2 DQ ',detr(ig,k),fm(ig,k),entr(ig,k)
+!test
+            if (detr(ig,k).lt.0.) then
+               entr(ig,k)=entr(ig,k)-detr(ig,k)
+               detr(ig,k)=0.
+!               print*,'detr2<0!!!','ig=',ig,'k=',k,'f=',fm(ig,k),
+!     s         'f+1=',fm(ig,k+1),'e=',entr(ig,k),'d=',detr(ig,k)
+            endif
+            if (fm(ig,k+1).lt.0.) then
+!               print*,'fm2<0!!!'
+            endif
+            if (entr(ig,k).lt.0.) then
+!               print*,'entr2<0!!!'
+            endif
+         enddo
+      enddo
+
+! Computation of tracer concentrations in the ascending plume
+      do ig=1,ngrid
+         qa(ig,1)=q(ig,1)
+      enddo
+
+      do k=2,nlay
+         do ig=1,ngrid
+            if ((fm(ig,k+1)+detr(ig,k))*ptimestep.gt.  &
+     &         1.e-5*masse(ig,k)) then
+         qa(ig,k)=(fm(ig,k)*qa(ig,k-1)+entr(ig,k)*q(ig,k))  &
+     &         /(fm(ig,k+1)+detr(ig,k))
+            else
+               qa(ig,k)=q(ig,k)
+            endif
+            if (qa(ig,k).lt.0.) then
+!               print*,'qa<0!!!'
+            endif
+            if (q(ig,k).lt.0.) then
+!               print*,'q<0!!!'
+            endif
+         enddo
+      enddo
+
+! Plume vertical flux
+      do k=2,nlay-1
+         fqa(:,k)=fm(:,k)*qa(:,k-1)
+      enddo
+      fqa(:,1)=0. ; fqa(:,nlay)=0.
+
+
+! Trace species evolution
+   if (impl==0) then
+      do k=1,nlay-1
+         q(:,k)=q(:,k)+(fqa(:,k)-fqa(:,k+1)-fm(:,k)*q(:,k)+fm(:,k+1)*q(:,k+1)) &
+     &               *ptimestep/masse(:,k)
+      enddo
+   else
+      do k=nlay-1,1,-1
+! FH debut de modif : le calcul ci dessous modifiait numériquement
+! la concentration quand le flux de masse etait nul car on divisait
+! puis multipliait par masse/ptimestep.
+!        q(:,k)=(masse(:,k)*q(:,k)/ptimestep+fqa(:,k)-fqa(:,k+1)+fm(:,k+1)*q(:,k+1)) &
+!    &               /(fm(:,k)+masse(:,k)/ptimestep)
+         q(:,k)=(q(:,k)+ptimestep/masse(:,k)*(fqa(:,k)-fqa(:,k+1)+fm(:,k+1)*q(:,k+1))) &
+      &               /(1.+fm(:,k)*ptimestep/masse(:,k))
+! FH fin de modif.
+      enddo
+   endif
+
+! Tendencies
+      do k=1,nlay
+         do ig=1,ngrid
+            dq(ig,k)=(q(ig,k)-qold(ig,k))/ptimestep
+            q(ig,k)=qold(ig,k)
+         enddo
+      enddo
+
+return
+end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Obsolete version kept for convergence with Cmip5 NPv3.1 simulations
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      subroutine thermcell_dq_o(ngrid,nlay,impl,ptimestep,fm,entr,  &
+     &           masse,q,dq,qa,lev_out)
+      USE print_control_mod, ONLY: prt_level
+      implicit none
+
+!=======================================================================
+!
+!   Calcul du transport verticale dans la couche limite en presence
+!   de "thermiques" explicitement representes
+!   calcul du dq/dt une fois qu'on connait les ascendances
+!
+!=======================================================================
+
+      integer ngrid,nlay,impl
+
+      real ptimestep
+      real masse(ngrid,nlay),fm(ngrid,nlay+1)
+      real entr(ngrid,nlay)
+      real q(ngrid,nlay)
+      real dq(ngrid,nlay)
+      integer lev_out                           ! niveau pour les print
+
+      real qa(ngrid,nlay),detr(ngrid,nlay),wqd(ngrid,nlay+1)
+
+      real zzm
+
+      integer ig,k
+      real cfl
+
+      real qold(ngrid,nlay)
+      real ztimestep
+      integer niter,iter
+      CHARACTER (LEN=20) :: modname='thermcell_dq'
+      CHARACTER (LEN=80) :: abort_message
+
+
+
+! Calcul du critere CFL pour l'advection dans la subsidence
+      cfl = 0.
+      do k=1,nlay
+         do ig=1,ngrid
+            zzm=masse(ig,k)/ptimestep
+            cfl=max(cfl,fm(ig,k)/zzm)
+            if (entr(ig,k).gt.zzm) then
+               print*,'entr*dt>m,2',k,entr(ig,k)*ptimestep,masse(ig,k)
+               abort_message = 'entr dt > m, 2nd'
+               CALL abort_physic (modname,abort_message,1)
+            endif
+         enddo
+      enddo
+
+!IM 090508     print*,'CFL CFL CFL CFL ',cfl
+
+#undef CFL
+#ifdef CFL
+! On subdivise le calcul en niter pas de temps.
+      niter=int(cfl)+1
+#else
+      niter=1
+#endif
+
+      ztimestep=ptimestep/niter
+      qold=q
+
+
+do iter=1,niter
+      if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'
+
+!   calcul du detrainement
+      do k=1,nlay
+         do ig=1,ngrid
+            detr(ig,k)=fm(ig,k)-fm(ig,k+1)+entr(ig,k)
+!           print*,'Q2 DQ ',detr(ig,k),fm(ig,k),entr(ig,k)
+!test
+            if (detr(ig,k).lt.0.) then
+               entr(ig,k)=entr(ig,k)-detr(ig,k)
+               detr(ig,k)=0.
+!               print*,'detr2<0!!!','ig=',ig,'k=',k,'f=',fm(ig,k),
+!     s         'f+1=',fm(ig,k+1),'e=',entr(ig,k),'d=',detr(ig,k)
+            endif
+            if (fm(ig,k+1).lt.0.) then
+!               print*,'fm2<0!!!'
+            endif
+            if (entr(ig,k).lt.0.) then
+!               print*,'entr2<0!!!'
+            endif
+         enddo
+      enddo
+
+!   calcul de la valeur dans les ascendances
+      do ig=1,ngrid
+         qa(ig,1)=q(ig,1)
+      enddo
+
+      do k=2,nlay
+         do ig=1,ngrid
+            if ((fm(ig,k+1)+detr(ig,k))*ztimestep.gt.  &
+     &         1.e-5*masse(ig,k)) then
+         qa(ig,k)=(fm(ig,k)*qa(ig,k-1)+entr(ig,k)*q(ig,k))  &
+     &         /(fm(ig,k+1)+detr(ig,k))
+            else
+               qa(ig,k)=q(ig,k)
+            endif
+            if (qa(ig,k).lt.0.) then
+!               print*,'qa<0!!!'
+            endif
+            if (q(ig,k).lt.0.) then
+!               print*,'q<0!!!'
+            endif
+         enddo
+      enddo
+
+! Calcul du flux subsident
+
+      do k=2,nlay
+         do ig=1,ngrid
+#undef centre
+#ifdef centre
+             wqd(ig,k)=fm(ig,k)*0.5*(q(ig,k-1)+q(ig,k))
+#else
+
+#define plusqueun
+#ifdef plusqueun
+! Schema avec advection sur plus qu'une maille.
+            zzm=masse(ig,k)/ztimestep
+            if (fm(ig,k)>zzm) then
+               wqd(ig,k)=zzm*q(ig,k)+(fm(ig,k)-zzm)*q(ig,k+1)
+            else
+               wqd(ig,k)=fm(ig,k)*q(ig,k)
+            endif
+#else
+            wqd(ig,k)=fm(ig,k)*q(ig,k)
+#endif
+#endif
+
+            if (wqd(ig,k).lt.0.) then
+!               print*,'wqd<0!!!'
+            endif
+         enddo
+      enddo
+      do ig=1,ngrid
+         wqd(ig,1)=0.
+         wqd(ig,nlay+1)=0.
+      enddo
+     
+
+! Calcul des tendances
+      do k=1,nlay
+         do ig=1,ngrid
+            q(ig,k)=q(ig,k)+(detr(ig,k)*qa(ig,k)-entr(ig,k)*q(ig,k)  &
+     &               -wqd(ig,k)+wqd(ig,k+1))  &
+     &               *ztimestep/masse(ig,k)
+!            if (dq(ig,k).lt.0.) then
+!               print*,'dq<0!!!'
+!            endif
+         enddo
+      enddo
+
+
+enddo
+
+
+! Calcul des tendances
+      do k=1,nlay
+         do ig=1,ngrid
+            dq(ig,k)=(q(ig,k)-qold(ig,k))/ptimestep
+            q(ig,k)=qold(ig,k)
+         enddo
+      enddo
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dry.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dry.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dry.F90	(revision 3330)
@@ -0,0 +1,173 @@
+!
+! $Id$
+!
+       SUBROUTINE thermcell_dry(ngrid,nlay,zlev,pphi,ztv,alim_star,  &
+     &                            lalim,lmin,zmax,wmax,lev_out)
+
+!--------------------------------------------------------------------------
+!thermcell_dry: calcul de zmax et wmax du thermique sec
+! Calcul de la vitesse maximum et de la hauteur maximum pour un panache
+! ascendant avec une fonction d'alimentation alim_star et sans changement 
+! de phase.
+! Le calcul pourrait etre sans doute simplifier.
+! La temperature potentielle virtuelle dans la panache ascendant est
+! la temperature potentielle virtuelle pondÃ©rÃ©e par alim_star.
+!--------------------------------------------------------------------------
+
+       USE print_control_mod, ONLY: prt_level
+       IMPLICIT NONE
+#include "YOMCST.h"       
+       INTEGER l,ig
+
+       INTEGER ngrid,nlay
+       REAL zlev(ngrid,nlay+1)
+       REAL pphi(ngrid,nlay)
+       REAl ztv(ngrid,nlay)
+       REAL alim_star(ngrid,nlay)
+       INTEGER lalim(ngrid)
+      integer lev_out                           ! niveau pour les print
+
+       REAL zmax(ngrid)
+       REAL wmax(ngrid)
+
+!variables locales
+       REAL zw2(ngrid,nlay+1)
+       REAL f_star(ngrid,nlay+1)
+       REAL ztva(ngrid,nlay+1)
+       REAL wmaxa(ngrid)
+       REAL wa_moy(ngrid,nlay+1)
+       REAL linter(ngrid),zlevinter(ngrid)
+       INTEGER lmix(ngrid),lmax(ngrid),lmin(ngrid)
+      CHARACTER (LEN=20) :: modname='thermcell_dry'
+      CHARACTER (LEN=80) :: abort_message
+
+!initialisations
+       do ig=1,ngrid
+          do l=1,nlay+1
+             zw2(ig,l)=0.
+             wa_moy(ig,l)=0.
+          enddo
+       enddo
+       do ig=1,ngrid
+          do l=1,nlay
+             ztva(ig,l)=ztv(ig,l)
+          enddo
+       enddo
+       do ig=1,ngrid
+          wmax(ig)=0.
+          wmaxa(ig)=0.
+       enddo
+!calcul de la vitesse a partir de la CAPE en melangeant thetav
+
+
+! Calcul des F^*, integrale verticale de E^*
+       f_star(:,1)=0.
+       do l=1,nlay
+          f_star(:,l+1)=f_star(:,l)+alim_star(:,l)
+       enddo
+
+! niveau (reel) auquel zw2 s'annule FH :n'etait pas initialise
+       linter(:)=0.
+
+! couche la plus haute concernee par le thermique. 
+       lmax(:)=1
+
+! Le niveau linter est une variable continue qui se trouve dans la couche
+! lmax
+
+       do l=1,nlay-2
+         do ig=1,ngrid
+            if (l.eq.lmin(ig).and.lalim(ig).gt.1) then
+
+!------------------------------------------------------------------------
+!  Calcul de la vitesse en haut de la premiere couche instable.
+!  Premiere couche du panache thermique
+!------------------------------------------------------------------------
+
+               zw2(ig,l+1)=2.*RG*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig,l+1)  &
+     &                     *(zlev(ig,l+1)-zlev(ig,l))  &
+     &                     *0.4*pphi(ig,l)/(pphi(ig,l+1)-pphi(ig,l))
+
+!------------------------------------------------------------------------
+! Tant que la vitesse en bas de la couche et la somme du flux de masse
+! et de l'entrainement (c'est a dire le flux de masse en haut) sont
+! positifs, on calcul
+! 1. le flux de masse en haut  f_star(ig,l+1)
+! 2. la temperature potentielle virtuelle dans la couche ztva(ig,l)
+! 3. la vitesse au carré en haut zw2(ig,l+1)
+!------------------------------------------------------------------------
+
+            else if (zw2(ig,l).ge.1e-10) then
+
+               ztva(ig,l)=(f_star(ig,l)*ztva(ig,l-1)+alim_star(ig,l)  &
+     &                    *ztv(ig,l))/f_star(ig,l+1)
+               zw2(ig,l+1)=zw2(ig,l)*(f_star(ig,l)/f_star(ig,l+1))**2+  &
+     &                     2.*RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)  &
+     &                     *(zlev(ig,l+1)-zlev(ig,l))
+            endif
+! determination de zmax continu par interpolation lineaire
+!------------------------------------------------------------------------
+
+            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+!               stop'On tombe sur le cas particulier de thermcell_dry'
+!               print*,'On tombe sur le cas particulier de thermcell_dry'
+                zw2(ig,l+1)=0.
+                linter(ig)=l+1
+                lmax(ig)=l
+            endif
+
+            if (zw2(ig,l+1).lt.0.) then
+               linter(ig)=(l*(zw2(ig,l+1)-zw2(ig,l))  &
+     &           -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
+               zw2(ig,l+1)=0.
+               lmax(ig)=l
+!            endif
+!CR:zmax continu 06/05/12: calcul de linter quand le thermique est stoppe par le detrainement
+            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))
+               zw2(ig,l+1)=0.
+               lmax(ig)=l
+            endif
+!CRfin
+               wa_moy(ig,l+1)=sqrt(zw2(ig,l+1))
+
+            if (wa_moy(ig,l+1).gt.wmaxa(ig)) then
+!   lmix est le niveau de la couche ou w (wa_moy) est maximum
+               lmix(ig)=l+1
+               wmaxa(ig)=wa_moy(ig,l+1)
+            endif
+         enddo
+      enddo
+       if (prt_level.ge.1) print*,'fin calcul zw2'
+!
+! Determination de zw2 max
+      do ig=1,ngrid
+         wmax(ig)=0.
+      enddo
+
+      do l=1,nlay
+         do ig=1,ngrid
+            if (l.le.lmax(ig)) then
+                zw2(ig,l)=sqrt(zw2(ig,l))
+                wmax(ig)=max(wmax(ig),zw2(ig,l))
+            else
+                 zw2(ig,l)=0.
+            endif
+          enddo
+      enddo
+
+!   Longueur caracteristique correspondant a la hauteur des thermiques.
+      do  ig=1,ngrid
+         zmax(ig)=0.
+         zlevinter(ig)=zlev(ig,1)
+      enddo
+      do  ig=1,ngrid
+! calcul de zlevinter
+          zlevinter(ig)=zlev(ig,lmax(ig)) + &
+     &    (linter(ig)-lmax(ig))*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+           zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,lmin(ig)))
+      enddo
+
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dtke.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dtke.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dtke.F90	(revision 3330)
@@ -0,0 +1,123 @@
+      subroutine thermcell_dtke(ngrid,nlay,nsrf,ptimestep,fm0,entr0,  &
+     &           rg,pplev,tke)
+      USE print_control_mod, ONLY: prt_level
+      implicit none
+
+!=======================================================================
+!
+!   Calcul du transport verticale dans la couche limite en presence
+!   de "thermiques" explicitement representes
+!   calcul du dq/dt une fois qu'on connait les ascendances
+!
+!=======================================================================
+
+      integer ngrid,nlay,nsrf
+
+      real ptimestep
+      real masse0(ngrid,nlay),fm0(ngrid,nlay+1),pplev(ngrid,nlay+1)
+      real entr0(ngrid,nlay),rg
+      real tke(ngrid,nlay,nsrf)
+      real detr0(ngrid,nlay)
+
+
+      real masse(ngrid,nlay),fm(ngrid,nlay+1)
+      real entr(ngrid,nlay)
+      real q(ngrid,nlay)
+      integer lev_out                           ! niveau pour les print
+
+      real qa(ngrid,nlay),detr(ngrid,nlay),wqd(ngrid,nlay+1)
+
+      real zzm
+
+      integer ig,k
+      integer isrf
+
+
+      lev_out=0
+
+
+      if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'
+
+!   calcul du detrainement
+      do k=1,nlay
+         detr0(:,k)=fm0(:,k)-fm0(:,k+1)+entr0(:,k)
+         masse0(:,k)=(pplev(:,k)-pplev(:,k+1))/RG
+      enddo
+
+
+! Decalage vertical des entrainements et detrainements.
+      masse(:,1)=0.5*masse0(:,1)
+      entr(:,1)=0.5*entr0(:,1)
+      detr(:,1)=0.5*detr0(:,1)
+      fm(:,1)=0.
+      do k=1,nlay-1
+         masse(:,k+1)=0.5*(masse0(:,k)+masse0(:,k+1))
+         entr(:,k+1)=0.5*(entr0(:,k)+entr0(:,k+1))
+         detr(:,k+1)=0.5*(detr0(:,k)+detr0(:,k+1))
+         fm(:,k+1)=fm(:,k)+entr(:,k)-detr(:,k)
+      enddo
+      fm(:,nlay+1)=0.
+
+!   calcul de la valeur dans les ascendances
+      do ig=1,ngrid
+         qa(ig,1)=q(ig,1)
+      enddo
+
+
+
+do isrf=1,nsrf
+
+   q(:,:)=tke(:,:,isrf)
+
+    if (1==1) then
+      do k=2,nlay
+         do ig=1,ngrid
+            if ((fm(ig,k+1)+detr(ig,k))*ptimestep.gt.  &
+     &         1.e-5*masse(ig,k)) then
+         qa(ig,k)=(fm(ig,k)*qa(ig,k-1)+entr(ig,k)*q(ig,k))  &
+     &         /(fm(ig,k+1)+detr(ig,k))
+            else
+               qa(ig,k)=q(ig,k)
+            endif
+            if (qa(ig,k).lt.0.) then
+!               print*,'qa<0!!!'
+            endif
+            if (q(ig,k).lt.0.) then
+!               print*,'q<0!!!'
+            endif
+         enddo
+      enddo
+
+! Calcul du flux subsident
+
+      do k=2,nlay
+         do ig=1,ngrid
+            wqd(ig,k)=fm(ig,k)*q(ig,k)
+            if (wqd(ig,k).lt.0.) then
+!               print*,'wqd<0!!!'
+            endif
+         enddo
+      enddo
+      do ig=1,ngrid
+         wqd(ig,1)=0.
+         wqd(ig,nlay+1)=0.
+      enddo
+     
+
+! Calcul des tendances
+      do k=1,nlay
+         do ig=1,ngrid
+            q(ig,k)=q(ig,k)+(detr(ig,k)*qa(ig,k)-entr(ig,k)*q(ig,k)  &
+     &               -wqd(ig,k)+wqd(ig,k+1))  &
+     &               *ptimestep/masse(ig,k)
+         enddo
+      enddo
+
+ endif
+
+   tke(:,:,isrf)=q(:,:)
+
+enddo
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dv2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dv2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_dv2.F90	(revision 3330)
@@ -0,0 +1,193 @@
+      subroutine thermcell_dv2(ngrid,nlay,ptimestep,fm,entr,masse  &
+     &    ,fraca,larga  &
+     &    ,u,v,du,dv,ua,va,lev_out)
+      USE print_control_mod, ONLY: prt_level,lunout
+      implicit none
+
+!=======================================================================
+!
+!   Calcul du transport verticale dans la couche limite en presence
+!   de "thermiques" explicitement representes
+!   calcul du dq/dt une fois qu'on connait les ascendances
+!
+! Vectorisation, FH : 2010/03/08
+!
+!=======================================================================
+
+
+      integer ngrid,nlay
+
+      real ptimestep
+      real masse(ngrid,nlay),fm(ngrid,nlay+1)
+      real fraca(ngrid,nlay+1)
+      real larga(ngrid)
+      real entr(ngrid,nlay)
+      real u(ngrid,nlay)
+      real ua(ngrid,nlay)
+      real du(ngrid,nlay)
+      real v(ngrid,nlay)
+      real va(ngrid,nlay)
+      real dv(ngrid,nlay)
+      integer lev_out                           ! niveau pour les print
+
+      real qa(ngrid,nlay),detr(ngrid,nlay),zf,zf2
+      real wvd(ngrid,nlay+1),wud(ngrid,nlay+1)
+      real gamma0(ngrid,nlay+1),gamma(ngrid,nlay+1)
+      real ue(ngrid,nlay),ve(ngrid,nlay)
+      LOGICAL ltherm(ngrid,nlay)
+      real dua(ngrid,nlay),dva(ngrid,nlay)
+      integer iter
+
+      integer ig,k,nlarga0
+
+!-------------------------------------------------------------------------
+
+!   calcul du detrainement
+!---------------------------
+
+!      print*,'THERMCELL DV2 OPTIMISE 3'
+
+      nlarga0=0.
+
+      do k=1,nlay
+         do ig=1,ngrid
+            detr(ig,k)=fm(ig,k)-fm(ig,k+1)+entr(ig,k)
+         enddo
+      enddo
+
+!   calcul de la valeur dans les ascendances
+      do ig=1,ngrid
+         ua(ig,1)=u(ig,1)
+         va(ig,1)=v(ig,1)
+         ue(ig,1)=u(ig,1)
+         ve(ig,1)=v(ig,1)
+      enddo
+
+      IF(prt_level>9)WRITE(lunout,*)                                    &
+     &      'WARNING on initialise gamma(1:ngrid,1)=0.'
+      gamma(1:ngrid,1)=0.
+      do k=2,nlay
+         do ig=1,ngrid
+            ltherm(ig,k)=(fm(ig,k+1)+detr(ig,k))*ptimestep > 1.e-5*masse(ig,k)
+            if(ltherm(ig,k).and.larga(ig)>0.) then
+               gamma0(ig,k)=masse(ig,k)  &
+     &         *sqrt( 0.5*(fraca(ig,k+1)+fraca(ig,k)) )  &
+     &         *0.5/larga(ig)  &
+     &         *1.
+            else
+               gamma0(ig,k)=0.
+            endif
+            if (ltherm(ig,k).and.larga(ig)<=0.) nlarga0=nlarga0+1
+         enddo
+      enddo
+
+      gamma(:,:)=0.
+
+      do k=2,nlay
+
+         do ig=1,ngrid
+            if (ltherm(ig,k)) then
+               dua(ig,k)=ua(ig,k-1)-u(ig,k-1)
+               dva(ig,k)=va(ig,k-1)-v(ig,k-1)
+            else
+               ua(ig,k)=u(ig,k)
+               va(ig,k)=v(ig,k)
+               ue(ig,k)=u(ig,k)
+               ve(ig,k)=v(ig,k)
+            endif
+         enddo
+
+
+! Debut des iterations
+!----------------------
+do iter=1,5
+         do ig=1,ngrid
+! Pour memoire : calcul prenant en compte la fraction reelle
+!              zf=0.5*(fraca(ig,k)+fraca(ig,k+1))
+!              zf2=1./(1.-zf)
+! Calcul avec fraction infiniement petite
+               zf=0.
+               zf2=1.
+
+!  la première fois on multiplie le coefficient de freinage
+!  par le module du vent dans la couche en dessous.
+!  Mais pourquoi donc ???
+               if (ltherm(ig,k)) then
+!   On choisit une relaxation lineaire.
+!                 gamma(ig,k)=gamma0(ig,k)
+!   On choisit une relaxation quadratique.
+                  gamma(ig,k)=gamma0(ig,k)*sqrt(dua(ig,k)**2+dva(ig,k)**2)
+                  ua(ig,k)=(fm(ig,k)*ua(ig,k-1)  &
+     &               +(zf2*entr(ig,k)+gamma(ig,k))*u(ig,k))  &
+     &               /(fm(ig,k+1)+detr(ig,k)+entr(ig,k)*zf*zf2  &
+     &                 +gamma(ig,k))
+                  va(ig,k)=(fm(ig,k)*va(ig,k-1)  &
+     &               +(zf2*entr(ig,k)+gamma(ig,k))*v(ig,k))  &
+     &               /(fm(ig,k+1)+detr(ig,k)+entr(ig,k)*zf*zf2  &
+     &                 +gamma(ig,k))
+!                 print*,k,ua(ig,k),va(ig,k),u(ig,k),v(ig,k),dua(ig,k),dva(ig,k)
+                  dua(ig,k)=ua(ig,k)-u(ig,k)
+                  dva(ig,k)=va(ig,k)-v(ig,k)
+                  ue(ig,k)=(u(ig,k)-zf*ua(ig,k))*zf2
+                  ve(ig,k)=(v(ig,k)-zf*va(ig,k))*zf2
+               endif
+         enddo
+! Fin des iterations
+!--------------------
+enddo
+
+      enddo ! k=2,nlay
+
+
+! Calcul du flux vertical de moment dans l'environnement.
+!---------------------------------------------------------
+      do k=2,nlay
+         do ig=1,ngrid
+            wud(ig,k)=fm(ig,k)*ue(ig,k)
+            wvd(ig,k)=fm(ig,k)*ve(ig,k)
+         enddo
+      enddo
+      do ig=1,ngrid
+         wud(ig,1)=0.
+         wud(ig,nlay+1)=0.
+         wvd(ig,1)=0.
+         wvd(ig,nlay+1)=0.
+      enddo
+
+! calcul des tendances.
+!-----------------------
+      do k=1,nlay
+         do ig=1,ngrid
+            du(ig,k)=((detr(ig,k)+gamma(ig,k))*ua(ig,k)  &
+     &               -(entr(ig,k)+gamma(ig,k))*ue(ig,k)  &
+     &               -wud(ig,k)+wud(ig,k+1))  &
+     &               /masse(ig,k)
+            dv(ig,k)=((detr(ig,k)+gamma(ig,k))*va(ig,k)  &
+     &               -(entr(ig,k)+gamma(ig,k))*ve(ig,k)  &
+     &               -wvd(ig,k)+wvd(ig,k+1))  &
+     &               /masse(ig,k)
+         enddo
+      enddo
+
+
+! Sorties eventuelles.
+!----------------------
+
+   if(prt_level.GE.10) then
+      do k=1,nlay
+         do ig=1,ngrid
+           print*,'th_dv2 ig k gamma entr detr ua ue va ve wud wvd masse',ig,k,gamma(ig,k), &
+     &   entr(ig,k),detr(ig,k),ua(ig,k),ue(ig,k),va(ig,k),ve(ig,k),wud(ig,k),wvd(ig,k),wud(ig,k+1),wvd(ig,k+1), &
+     &   masse(ig,k)
+         enddo
+      enddo
+   endif
+!
+     if (nlarga0>0) then
+          print*,'WARNING !!!!!! DANS THERMCELL_DV2 '
+          print*,nlarga0,' points pour lesquels laraga=0. dans un thermique'
+          print*,'Il faudrait decortiquer ces points'
+     endif
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_env.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_env.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_env.F90	(revision 3330)
@@ -0,0 +1,98 @@
+      SUBROUTINE thermcell_env(ngrid,nlay,po,pt,pu,pv,pplay,  &
+     &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,pqsat,lev_out)
+
+!--------------------------------------------------------------
+!thermcell_env: calcule les caracteristiques de l environnement
+!necessaires au calcul des proprietes dans le thermique
+!--------------------------------------------------------------
+
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"      
+
+      INTEGER ngrid,nlay
+      REAL po(ngrid,nlay)
+      REAL pt(ngrid,nlay)
+      REAL pu(ngrid,nlay)
+      REAL pv(ngrid,nlay)
+      REAL pplay(ngrid,nlay)
+      REAL pplev(ngrid,nlay+1)
+      integer lev_out                           ! niveau pour les print
+
+      REAL zo(ngrid,nlay)
+      REAL zl(ngrid,nlay)
+      REAL zh(ngrid,nlay)
+      REAL ztv(ngrid,nlay)
+      REAL zthl(ngrid,nlay)
+      REAL zpspsk(ngrid,nlay)
+      REAL zu(ngrid,nlay)
+      REAL zv(ngrid,nlay)
+      REAL pqsat(ngrid,nlay)
+
+      INTEGER ig,ll
+
+      real dqsat_dT
+      real RLvCp
+
+logical mask(ngrid,nlay)
+
+
+!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+! Initialisations :
+!------------------
+
+mask(:,:)=.true.
+RLvCp = RLVTT/RCPD
+
+!
+! calcul des caracteristiques de l environnement
+       DO  ll=1,nlay
+         DO ig=1,ngrid
+            zo(ig,ll)=po(ig,ll)
+            zl(ig,ll)=0.
+            zh(ig,ll)=pt(ig,ll)
+         EndDO
+       EndDO
+!
+!
+! Condensation :
+!---------------
+! Calcul de l'humidite a saturation et de la condensation
+
+call thermcell_qsat(ngrid*nlay,mask,pplev,pt,po,pqsat)
+DO ll=1,nlay
+   DO ig=1,ngrid
+      zl(ig,ll) = max(0.,po(ig,ll)-pqsat(ig,ll))
+      zh(ig,ll) = pt(ig,ll)+RLvCp*zl(ig,ll)         !   T = Tl + Lv/Cp ql
+      zo(ig,ll) = po(ig,ll)-zl(ig,ll)
+   ENDDO
+ENDDO
+!
+!
+!-----------------------------------------------------------------------
+
+      if (prt_level.ge.1) print*,'0 OK convect8'
+
+      DO ll=1,nlay
+         DO ig=1,ngrid
+             zpspsk(ig,ll)=(pplay(ig,ll)/100000.)**RKAPPA
+             zu(ig,ll)=pu(ig,ll)
+             zv(ig,ll)=pv(ig,ll)
+!attention zh est maintenant le profil de T et plus le profil de theta !
+! Quelle horreur ! A eviter.
+!
+!   T-> Theta
+            ztv(ig,ll)=zh(ig,ll)/zpspsk(ig,ll)
+!Theta_v
+            ztv(ig,ll)=ztv(ig,ll)*(1.+RETV*(zo(ig,ll))-zl(ig,ll))
+!Thetal
+            zthl(ig,ll)=pt(ig,ll)/zpspsk(ig,ll)
+!            
+         ENDDO
+      ENDDO
+ 
+      RETURN
+      END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_flux.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_flux.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_flux.F90	(revision 3330)
@@ -0,0 +1,519 @@
+!
+! $Id$
+!
+
+
+      SUBROUTINE thermcell_flux(ngrid,klev,ptimestep,masse, &
+     &       lalim,lmax,alim_star,  &
+     &       entr_star,detr_star,f,rhobarz,zlev,zw2,fm,entr,  &
+     &       detr,zqla,zmax,lev_out,lunout1,igout)
+
+
+!---------------------------------------------------------------------------
+!thermcell_flux: deduction des flux
+!---------------------------------------------------------------------------
+
+      USE print_control_mod, ONLY: prt_level,lunout
+      IMPLICIT NONE
+      
+      INTEGER ig,l
+      INTEGER ngrid,klev
+      
+      REAL alim_star(ngrid,klev),entr_star(ngrid,klev)
+      REAL detr_star(ngrid,klev)
+      REAL zw2(ngrid,klev+1)
+      REAL zlev(ngrid,klev+1)
+      REAL masse(ngrid,klev)
+      REAL ptimestep
+      REAL rhobarz(ngrid,klev)
+      REAL f(ngrid)
+      INTEGER lmax(ngrid)
+      INTEGER lalim(ngrid)
+      REAL zqla(ngrid,klev)
+      REAL zmax(ngrid)
+
+      integer ncorecfm1,ncorecfm2,ncorecfm3,ncorecalpha
+      integer ncorecfm4,ncorecfm5,ncorecfm6,ncorecfm7,ncorecfm8
+      
+
+      REAL entr(ngrid,klev),detr(ngrid,klev)
+      REAL fm(ngrid,klev+1)
+      REAL zfm
+
+      integer igout
+      integer lev_out
+      integer lunout1
+
+      REAL f_old,ddd0,eee0,ddd,eee,zzz
+
+      REAL fomass_max,alphamax
+      save fomass_max,alphamax
+!$OMP THREADPRIVATE(fomass_max,alphamax)
+
+      character (len=20) :: modname='thermcell_flux'
+      character (len=80) :: abort_message
+
+      fomass_max=0.5
+      alphamax=0.7
+
+      ncorecfm1=0
+      ncorecfm2=0
+      ncorecfm3=0
+      ncorecfm4=0
+      ncorecfm5=0
+      ncorecfm6=0
+      ncorecfm7=0
+      ncorecfm8=0
+      ncorecalpha=0
+
+!initialisation
+      fm(:,:)=0.
+      
+      if (prt_level.ge.10) then
+         write(lunout,*) 'Dans thermcell_flux 0'
+         write(lunout,*) 'flux base ',f(igout)
+         write(lunout,*) 'lmax ',lmax(igout)
+         write(lunout,*) 'lalim ',lalim(igout)
+         write(lunout,*) 'ig= ',igout
+         write(lunout,*) ' l E*    A*     D*  '
+         write(lunout,'(i4,3e15.5)') (l,entr_star(igout,l),alim_star(igout,l),detr_star(igout,l) &
+     &    ,l=1,lmax(igout))
+      endif
+
+
+!-------------------------------------------------------------------------
+! Verification de la nullite des entrainement et detrainement au dessus
+! de lmax(ig)
+!-------------------------------------------------------------------------
+     if ( prt_level > 1 ) THEN
+      do l=1,klev
+         do ig=1,ngrid
+            if (l.le.lmax(ig)) then
+               if (entr_star(ig,l).gt.1.) then
+                    print*,'WARNING thermcell_flux 1 ig,l,lmax(ig)',ig,l,lmax(ig)
+                    print*,'entr_star(ig,l)',entr_star(ig,l)
+                    print*,'alim_star(ig,l)',alim_star(ig,l)
+                    print*,'detr_star(ig,l)',detr_star(ig,l)
+               endif
+            else
+               if (abs(entr_star(ig,l))+abs(alim_star(ig,l))+abs(detr_star(ig,l)).gt.0.) then
+                    print*,'cas 1 : ig,l,lmax(ig)',ig,l,lmax(ig)
+                    print*,'entr_star(ig,l)',entr_star(ig,l)
+                    print*,'alim_star(ig,l)',alim_star(ig,l)
+                    print*,'detr_star(ig,l)',detr_star(ig,l)
+                    abort_message = ''
+                    CALL abort_physic (modname,abort_message,1)
+               endif
+            endif
+         enddo
+      enddo
+     endif  !( prt_level > 1 ) THEN
+!-------------------------------------------------------------------------
+! Multiplication par le flux de masse issu de la femreture
+!-------------------------------------------------------------------------
+
+      do l=1,klev
+         entr(:,l)=f(:)*(entr_star(:,l)+alim_star(:,l))
+         detr(:,l)=f(:)*detr_star(:,l)
+      enddo
+
+      if (prt_level.ge.10) then
+         write(lunout,*) 'Dans thermcell_flux 1'
+         write(lunout,*) 'flux base ',f(igout)
+         write(lunout,*) 'lmax ',lmax(igout)
+         write(lunout,*) 'lalim ',lalim(igout)
+         write(lunout,*) 'ig= ',igout
+         write(lunout,*) ' l   E    D     W2'
+         write(lunout,'(i4,3e15.5)') (l,entr(igout,l),detr(igout,l) &
+     &    ,zw2(igout,l+1),l=1,lmax(igout))
+      endif
+
+      fm(:,1)=0.
+      do l=1,klev
+         do ig=1,ngrid
+            if (l.lt.lmax(ig)) then
+               fm(ig,l+1)=fm(ig,l)+entr(ig,l)-detr(ig,l)
+            elseif(l.eq.lmax(ig)) then
+               fm(ig,l+1)=0.
+               detr(ig,l)=fm(ig,l)+entr(ig,l)
+            else
+               fm(ig,l+1)=0.
+            endif
+         enddo
+      enddo
+
+
+
+! Test provisoire : pour comprendre pourquoi on corrige plein de fois 
+! le cas fm6, on commence par regarder une premiere fois avant les
+! autres corrections.
+
+      do l=1,klev
+         do ig=1,ngrid
+            if (detr(ig,l).gt.fm(ig,l)) then
+               ncorecfm8=ncorecfm8+1
+!              igout=ig
+            endif
+         enddo
+      enddo
+
+      if (prt_level.ge.10) &
+    &    call printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
+    &    ptimestep,masse,entr,detr,fm,'2  ')
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH Version en cours de test;
+! par rapport a thermcell_flux, on fait une grande boucle sur "l"
+! et on modifie le flux avec tous les contr�les appliques d'affilee
+! pour la meme couche
+! Momentanement, on duplique le calcule du flux pour pouvoir comparer
+! les flux avant et apres modif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      do l=1,klev
+
+         do ig=1,ngrid
+            if (l.lt.lmax(ig)) then
+               fm(ig,l+1)=fm(ig,l)+entr(ig,l)-detr(ig,l)
+            elseif(l.eq.lmax(ig)) then
+               fm(ig,l+1)=0.
+               detr(ig,l)=fm(ig,l)+entr(ig,l)
+            else
+               fm(ig,l+1)=0.
+            endif
+         enddo
+
+
+!-------------------------------------------------------------------------
+! Verification de la positivite des flux de masse
+!-------------------------------------------------------------------------
+
+!     do l=1,klev
+         do ig=1,ngrid
+            if (fm(ig,l+1).lt.0.) then
+!              print*,'fm1<0',l+1,lmax(ig),fm(ig,l+1)
+                ncorecfm1=ncorecfm1+1
+               fm(ig,l+1)=fm(ig,l)
+               detr(ig,l)=entr(ig,l)
+            endif
+         enddo
+!     enddo
+
+      if (prt_level.ge.10) &
+     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-------------------------------------------------------------------------
+!Test sur fraca croissant
+!-------------------------------------------------------------------------
+
+
+      if (1.eq.1) then
+!     do l=1,klev
+         do ig=1,ngrid
+          if (l.ge.lalim(ig).and.l.le.lmax(ig) &
+     &    .and.(zw2(ig,l+1).gt.1.e-10).and.(zw2(ig,l).gt.1.e-10) ) then
+!  zzz est le flux en l+1 a frac constant
+             zzz=fm(ig,l)*rhobarz(ig,l+1)*zw2(ig,l+1)  &
+     &                          /(rhobarz(ig,l)*zw2(ig,l))
+             if (fm(ig,l+1).gt.zzz) then
+                detr(ig,l)=detr(ig,l)+fm(ig,l+1)-zzz
+                fm(ig,l+1)=zzz
+                ncorecfm4=ncorecfm4+1
+             endif
+          endif
+        enddo
+!     enddo
+
+      if (prt_level.ge.10) &
+     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+      else
+       if (l.eq.1) then
+         print*,'Test sur les fractions croissantes inhibe dans thermcell_flux2'
+       endif
+      endif
+
+
+!-------------------------------------------------------------------------
+!test sur flux de masse croissant
+!-------------------------------------------------------------------------
+
+!     do l=1,klev
+         do ig=1,ngrid
+            if ((fm(ig,l+1).gt.fm(ig,l)).and.(l.gt.lalim(ig))) then
+              f_old=fm(ig,l+1)
+              fm(ig,l+1)=fm(ig,l)
+              detr(ig,l)=detr(ig,l)+f_old-fm(ig,l+1)
+               ncorecfm5=ncorecfm5+1
+            endif
+         enddo
+!     enddo
+
+      if (prt_level.ge.10) &
+     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-------------------------------------------------------------------------
+!detr ne peut pas etre superieur a fm
+!-------------------------------------------------------------------------
+
+      if(1.eq.1) then
+
+!     do l=1,klev
+         do ig=1,ngrid
+            if (entr(ig,l)<0.) then
+               print*,'N1 ig,l,entr',ig,l,entr(ig,l)
+               abort_message = 'entr negatif'
+               CALL abort_physic (modname,abort_message,1)
+            endif
+            if (detr(ig,l).gt.fm(ig,l)) then
+               ncorecfm6=ncorecfm6+1
+               detr(ig,l)=fm(ig,l)
+!              entr(ig,l)=fm(ig,l+1)
+
+! Dans le cas ou on est au dessus de la couche d'alimentation et que le
+! detrainement est plus fort que le flux de masse, on stope le thermique.
+               if (l.gt.lalim(ig)) then
+                  lmax(ig)=l
+                  fm(ig,l+1)=0.
+                  entr(ig,l)=0.
+               else
+                  ncorecfm7=ncorecfm7+1
+               endif
+            endif
+
+            if(l.gt.lmax(ig)) then
+               detr(ig,l)=0.
+               fm(ig,l+1)=0.
+               entr(ig,l)=0.
+            endif
+
+            if (entr(ig,l).lt.0.) then
+               print*,'ig,l,lmax(ig)',ig,l,lmax(ig)
+               print*,'entr(ig,l)',entr(ig,l)
+               print*,'fm(ig,l)',fm(ig,l)
+               abort_message = 'probleme dans thermcell flux'
+               CALL abort_physic (modname,abort_message,1)
+            endif
+         enddo
+!     enddo
+      endif
+
+
+      if (prt_level.ge.10) &
+     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-------------------------------------------------------------------------
+!fm ne peut pas etre negatif
+!-------------------------------------------------------------------------
+
+!     do l=1,klev
+         do ig=1,ngrid
+            if (fm(ig,l+1).lt.0.) then
+               detr(ig,l)=detr(ig,l)+fm(ig,l+1)
+               fm(ig,l+1)=0.
+!              print*,'fm2<0',l+1,lmax(ig)
+               ncorecfm2=ncorecfm2+1
+            endif
+            if (detr(ig,l).lt.0.) then
+               print*,'cas 2 : ig,l,lmax(ig)',ig,l,lmax(ig)
+               print*,'detr(ig,l)',detr(ig,l)
+               print*,'fm(ig,l)',fm(ig,l)
+               abort_message = 'probleme dans thermcell flux'
+               CALL abort_physic (modname,abort_message,1)
+            endif
+        enddo
+!    enddo
+
+      if (prt_level.ge.10) &
+     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-----------------------------------------------------------------------
+!la fraction couverte ne peut pas etre superieure a 1            
+!-----------------------------------------------------------------------
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH Partie a revisiter.
+! Il semble qu'etaient codees ici deux optiques dans le cas
+! F/ (rho *w) > 1
+! soit limiter la hauteur du thermique en considerant que c'est 
+! la derniere chouche, soit limiter F a rho w.
+! Dans le second cas, il faut en fait limiter a un peu moins
+! que ca parce qu'on a des 1 / ( 1 -alpha) un peu plus loin
+! dans thermcell_main et qu'il semble de toutes facons deraisonable
+! d'avoir des fractions de 1..
+! Ci dessous, et dans l'etat actuel, le premier des  deux if est
+! sans doute inutile.
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!    do l=1,klev
+        do ig=1,ngrid
+           if (zw2(ig,l+1).gt.1.e-10) then
+           zfm=rhobarz(ig,l+1)*zw2(ig,l+1)*alphamax
+           if ( fm(ig,l+1) .gt. zfm) then
+              f_old=fm(ig,l+1)
+              fm(ig,l+1)=zfm
+!             zw2(ig,l+1)=0.
+!             zqla(ig,l+1)=0.
+              detr(ig,l)=detr(ig,l)+f_old-fm(ig,l+1)
+!             lmax(ig)=l+1
+!             zmax(ig)=zlev(ig,lmax(ig))
+!             print*,'alpha>1',l+1,lmax(ig)
+              ncorecalpha=ncorecalpha+1
+           endif
+           endif
+        enddo
+!    enddo
+!
+
+
+      if (prt_level.ge.10) &
+     &   write(lunout,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+! Fin de la grande boucle sur les niveaux verticaux
+      enddo
+
+      if (prt_level.ge.10) &
+    &    call printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
+    &    ptimestep,masse,entr,detr,fm,'8  ')
+
+
+!-----------------------------------------------------------------------
+! On fait en sorte que la quantite totale d'air entraine dans le 
+! panache ne soit pas trop grande comparee a la masse de la maille
+!-----------------------------------------------------------------------
+
+      if (1.eq.1) then
+      do l=1,klev-1
+         do ig=1,ngrid
+            eee0=entr(ig,l)
+            ddd0=detr(ig,l)
+            eee=entr(ig,l)-masse(ig,l)*fomass_max/ptimestep
+            ddd=detr(ig,l)-eee
+            if (eee.gt.0.) then
+                ncorecfm3=ncorecfm3+1
+                entr(ig,l)=entr(ig,l)-eee
+                if ( ddd.gt.0.) then
+!   l'entrainement est trop fort mais l'exces peut etre compense par une
+!   diminution du detrainement)
+                   detr(ig,l)=ddd
+                else
+!   l'entrainement est trop fort mais l'exces doit etre compense en partie
+!   par un entrainement plus fort dans la couche superieure
+                   if(l.eq.lmax(ig)) then
+                      detr(ig,l)=fm(ig,l)+entr(ig,l)
+                   else
+                      if(l.ge.lmax(ig).and.0.eq.1) then
+                         print*,'ig,l',ig,l
+                         print*,'eee0',eee0
+                         print*,'ddd0',ddd0
+                         print*,'eee',eee
+                         print*,'ddd',ddd
+                         print*,'entr',entr(ig,l)
+                         print*,'detr',detr(ig,l)
+                         print*,'masse',masse(ig,l)
+                         print*,'fomass_max',fomass_max
+                         print*,'masse(ig,l)*fomass_max/ptimestep',masse(ig,l)*fomass_max/ptimestep
+                         print*,'ptimestep',ptimestep
+                         print*,'lmax(ig)',lmax(ig)
+                         print*,'fm(ig,l+1)',fm(ig,l+1)
+                         print*,'fm(ig,l)',fm(ig,l)
+                         abort_message = 'probleme dans thermcell_flux'
+                         CALL abort_physic (modname,abort_message,1)
+                      endif
+                      entr(ig,l+1)=entr(ig,l+1)-ddd
+                      detr(ig,l)=0.
+                      fm(ig,l+1)=fm(ig,l)+entr(ig,l)
+                      detr(ig,l)=0.
+                   endif
+                endif
+            endif
+         enddo
+      enddo
+      endif
+!                  
+!              ddd=detr(ig)-entre
+!on s assure que tout s annule bien en zmax
+      do ig=1,ngrid
+         fm(ig,lmax(ig)+1)=0.
+         entr(ig,lmax(ig))=0.
+         detr(ig,lmax(ig))=fm(ig,lmax(ig))+entr(ig,lmax(ig))
+      enddo
+
+!-----------------------------------------------------------------------
+! Impression du nombre de bidouilles qui ont ete necessaires
+!-----------------------------------------------------------------------
+
+      if (ncorecfm1+ncorecfm2+ncorecfm3+ncorecfm4+ncorecfm5+ncorecalpha > 0 ) then
+       if (prt_level.ge.10) then
+          print*,'PB thermcell : on a du coriger ',ncorecfm1,'x fm1',&
+    &     ncorecfm2,'x fm2',ncorecfm3,'x fm3 et', &
+    &     ncorecfm4,'x fm4',ncorecfm5,'x fm5 et', &
+    &     ncorecfm6,'x fm6', &
+    &     ncorecfm7,'x fm7', &
+    &     ncorecfm8,'x fm8', &
+    &     ncorecalpha,'x alpha'
+       endif
+      endif
+
+      if (prt_level.ge.10) &
+    &    call printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
+    &    ptimestep,masse,entr,detr,fm,'fin')
+
+
+      return
+      end
+
+      subroutine printflux(ngrid,klev,lunout,igout,f,lmax,lalim, &
+    &    ptimestep,masse,entr,detr,fm,descr)
+
+     implicit none
+
+      integer ngrid,klev,lunout,igout,l,lm
+
+      integer lmax(klev),lalim(klev)
+      real ptimestep,masse(ngrid,klev),entr(ngrid,klev),detr(ngrid,klev)
+      real fm(ngrid,klev+1),f(ngrid)
+
+      character*3 descr
+
+      character (len=20) :: modname='thermcell_flux'
+      character (len=80) :: abort_message
+
+      lm=lmax(igout)+5
+      if(lm.gt.klev) lm=klev
+
+      print*,'Impression jusque lm=',lm
+
+         write(lunout,*) 'Dans thermcell_flux '//descr
+         write(lunout,*) 'flux base ',f(igout)
+         write(lunout,*) 'lmax ',lmax(igout)
+         write(lunout,*) 'lalim ',lalim(igout)
+         write(lunout,*) 'ig= ',igout
+         write(lunout,'(a3,4a14)') 'l','M','E','D','F'
+         write(lunout,'(i4,4e14.4)') (l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l) &
+     &    ,fm(igout,l+1),l=1,lm)
+
+
+      do l=lmax(igout)+1,klev
+          if (abs(entr(igout,l))+abs(detr(igout,l))+abs(fm(igout,l)).gt.0.) then
+          print*,'cas 1 : igout,l,lmax(igout)',igout,l,lmax(igout)
+          print*,'entr(igout,l)',entr(igout,l)
+          print*,'detr(igout,l)',detr(igout,l)
+          print*,'fm(igout,l)',fm(igout,l)
+          abort_message = ''
+          CALL abort_physic (modname,abort_message,1)
+          endif
+      enddo
+
+      return
+      end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_flux2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_flux2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_flux2.F90	(revision 3330)
@@ -0,0 +1,516 @@
+!
+! $Id$
+!
+      SUBROUTINE thermcell_flux2(ngrid,klev,ptimestep,masse, &
+     &       lalim,lmax,alim_star,  &
+     &       entr_star,detr_star,f,rhobarz,zlev,zw2,fm,entr,  &
+     &       detr,zqla,lev_out,lunout1,igout)
+!IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
+
+
+!---------------------------------------------------------------------------
+!thermcell_flux: deduction des flux
+!---------------------------------------------------------------------------
+
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+#include "thermcell.h"
+      
+      INTEGER ig,l
+      INTEGER ngrid,klev
+      
+      REAL alim_star(ngrid,klev),entr_star(ngrid,klev)
+      REAL detr_star(ngrid,klev)
+      REAL zw2(ngrid,klev+1)
+      REAL zlev(ngrid,klev+1)
+      REAL masse(ngrid,klev)
+      REAL ptimestep
+      REAL rhobarz(ngrid,klev)
+      REAL f(ngrid)
+      INTEGER lmax(ngrid)
+      INTEGER lalim(ngrid)
+      REAL zqla(ngrid,klev)
+      REAL zmax(ngrid)
+
+      integer ncorecfm1,ncorecfm2,ncorecfm3,ncorecalpha
+      integer ncorecfm4,ncorecfm5,ncorecfm6,ncorecfm7,ncorecfm8
+      
+
+      REAL entr(ngrid,klev),detr(ngrid,klev)
+      REAL fm(ngrid,klev+1)
+      REAL zfm
+
+      integer igout,lout
+      integer lev_out
+      integer lunout1
+
+      REAL f_old,ddd0,eee0,ddd,eee,zzz
+
+      REAL fomass_max,alphamax
+      save fomass_max,alphamax
+
+      logical check_debug,labort_physic
+
+      character (len=20) :: modname='thermcell_flux2'
+      character (len=80) :: abort_message
+
+      fomass_max=0.5
+      alphamax=0.7
+
+      ncorecfm1=0
+      ncorecfm2=0
+      ncorecfm3=0
+      ncorecfm4=0
+      ncorecfm5=0
+      ncorecfm6=0
+      ncorecfm7=0
+      ncorecfm8=0
+      ncorecalpha=0
+
+!initialisation
+      fm(:,:)=0.
+      
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_flux 0'
+         write(lunout1,*) 'flux base ',f(igout)
+         write(lunout1,*) 'lmax ',lmax(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) 'ig= ',igout
+         write(lunout1,*) ' l E*    A*     D*  '
+         write(lunout1,'(i4,3e15.5)') (l,entr_star(igout,l),alim_star(igout,l),detr_star(igout,l) &
+     &    ,l=1,lmax(igout))
+      endif
+
+
+!-------------------------------------------------------------------------
+! Verification de la nullite des entrainement et detrainement au dessus
+! de lmax(ig)
+! Active uniquement si check_debug=.true. ou prt_level>=10
+!-------------------------------------------------------------------------
+
+      check_debug=.false..or.prt_level>=10
+
+      if (check_debug) then
+      do l=1,klev
+         do ig=1,ngrid
+            if (l.le.lmax(ig)) then
+               if (entr_star(ig,l).gt.1.) then
+                    print*,'WARNING thermcell_flux 1 ig,l,lmax(ig)',ig,l,lmax(ig)
+                    print*,'entr_star(ig,l)',entr_star(ig,l)
+                    print*,'alim_star(ig,l)',alim_star(ig,l)
+                    print*,'detr_star(ig,l)',detr_star(ig,l)
+               endif
+            else
+               if (abs(entr_star(ig,l))+abs(alim_star(ig,l))+abs(detr_star(ig,l)).gt.0.) then
+                    print*,'cas 1 : ig,l,lmax(ig)',ig,l,lmax(ig)
+                    print*,'entr_star(ig,l)',entr_star(ig,l)
+                    print*,'alim_star(ig,l)',alim_star(ig,l)
+                    print*,'detr_star(ig,l)',detr_star(ig,l)
+                    abort_message = ''
+                    labort_physic=.true.
+                    CALL abort_physic (modname,abort_message,1)
+               endif
+            endif
+         enddo
+      enddo
+      endif
+
+!-------------------------------------------------------------------------
+! Multiplication par le flux de masse issu de la femreture
+!-------------------------------------------------------------------------
+
+      do l=1,klev
+         entr(:,l)=f(:)*(entr_star(:,l)+alim_star(:,l))
+         detr(:,l)=f(:)*detr_star(:,l)
+      enddo
+
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_flux 1'
+         write(lunout1,*) 'flux base ',f(igout)
+         write(lunout1,*) 'lmax ',lmax(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) 'ig= ',igout
+         write(lunout1,*) ' l   E    D     W2'
+         write(lunout1,'(i4,3e15.5)') (l,entr(igout,l),detr(igout,l) &
+     &    ,zw2(igout,l+1),l=1,lmax(igout))
+      endif
+
+      fm(:,1)=0.
+      do l=1,klev
+         do ig=1,ngrid
+            if (l.lt.lmax(ig)) then
+               fm(ig,l+1)=fm(ig,l)+entr(ig,l)-detr(ig,l)
+            elseif(l.eq.lmax(ig)) then
+               fm(ig,l+1)=0.
+               detr(ig,l)=fm(ig,l)+entr(ig,l)
+            else
+               fm(ig,l+1)=0.
+            endif
+         enddo
+      enddo
+
+
+
+! Test provisoire : pour comprendre pourquoi on corrige plein de fois 
+! le cas fm6, on commence par regarder une premiere fois avant les
+! autres corrections.
+
+      do l=1,klev
+         do ig=1,ngrid
+            if (detr(ig,l).gt.fm(ig,l)) then
+               ncorecfm8=ncorecfm8+1
+!              igout=ig
+            endif
+         enddo
+      enddo
+
+!      if (prt_level.ge.10) &
+!    &    call printflux(ngrid,klev,lunout1,igout,f,lmax,lalim, &
+!    &    ptimestep,masse,entr,detr,fm,'2  ')
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH Version en cours de test;
+! par rapport a thermcell_flux, on fait une grande boucle sur "l"
+! et on modifie le flux avec tous les contr�les appliques d'affilee
+! pour la meme couche
+! Momentanement, on duplique le calcule du flux pour pouvoir comparer
+! les flux avant et apres modif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      do l=1,klev
+
+         do ig=1,ngrid
+            if (l.lt.lmax(ig)) then
+               fm(ig,l+1)=fm(ig,l)+entr(ig,l)-detr(ig,l)
+            elseif(l.eq.lmax(ig)) then
+               fm(ig,l+1)=0.
+               detr(ig,l)=fm(ig,l)+entr(ig,l)
+            else
+               fm(ig,l+1)=0.
+            endif
+         enddo
+
+
+!-------------------------------------------------------------------------
+! Verification de la positivite des flux de masse
+!-------------------------------------------------------------------------
+
+!     do l=1,klev
+         do ig=1,ngrid
+            if (fm(ig,l+1).lt.0.) then
+!              print*,'fm1<0',l+1,lmax(ig),fm(ig,l+1)
+                ncorecfm1=ncorecfm1+1
+               fm(ig,l+1)=fm(ig,l)
+               detr(ig,l)=entr(ig,l)
+            endif
+         enddo
+!     enddo
+
+      if (prt_level.ge.10) &
+     &   write(lunout1,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-------------------------------------------------------------------------
+!Test sur fraca croissant
+!-------------------------------------------------------------------------
+      if (iflag_thermals_optflux==0) then 
+!     do l=1,klev
+         do ig=1,ngrid
+          if (l.ge.lalim(ig).and.l.le.lmax(ig) &
+     &    .and.(zw2(ig,l+1).gt.1.e-10).and.(zw2(ig,l).gt.1.e-10) ) then
+!  zzz est le flux en l+1 a frac constant
+             zzz=fm(ig,l)*rhobarz(ig,l+1)*zw2(ig,l+1)  &
+     &                          /(rhobarz(ig,l)*zw2(ig,l))
+             if (fm(ig,l+1).gt.zzz) then
+                detr(ig,l)=detr(ig,l)+fm(ig,l+1)-zzz
+                fm(ig,l+1)=zzz
+                ncorecfm4=ncorecfm4+1
+             endif
+          endif
+        enddo
+!     enddo
+      endif
+
+      if (prt_level.ge.10) &
+     &   write(lunout1,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+
+!-------------------------------------------------------------------------
+!test sur flux de masse croissant
+!-------------------------------------------------------------------------
+      if (iflag_thermals_optflux==0) then
+!     do l=1,klev
+         do ig=1,ngrid
+            if ((fm(ig,l+1).gt.fm(ig,l)).and.(l.gt.lalim(ig))) then
+              f_old=fm(ig,l+1)
+              fm(ig,l+1)=fm(ig,l)
+              detr(ig,l)=detr(ig,l)+f_old-fm(ig,l+1)
+               ncorecfm5=ncorecfm5+1
+            endif
+         enddo
+!     enddo
+      endif
+
+      if (prt_level.ge.10) &
+     &   write(lunout1,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!fin 1.eq.0
+!-------------------------------------------------------------------------
+!detr ne peut pas etre superieur a fm
+!-------------------------------------------------------------------------
+
+      if(1.eq.1) then
+
+!     do l=1,klev
+
+
+
+         labort_physic=.false.
+         do ig=1,ngrid
+            if (entr(ig,l)<0.) then
+               labort_physic=.true.
+               igout=ig
+               lout=l
+            endif
+         enddo
+
+         if (labort_physic) then
+            print*,'N1 ig,l,entr',igout,lout,entr(igout,lout)
+            abort_message = 'entr negatif'
+            CALL abort_physic (modname,abort_message,1)
+         endif
+
+         do ig=1,ngrid
+            if (detr(ig,l).gt.fm(ig,l)) then
+               ncorecfm6=ncorecfm6+1
+               detr(ig,l)=fm(ig,l)
+               entr(ig,l)=fm(ig,l+1)
+
+! Dans le cas ou on est au dessus de la couche d'alimentation et que le
+! detrainement est plus fort que le flux de masse, on stope le thermique.
+!test:on commente
+!               if (l.gt.lalim(ig)) then
+!                  lmax(ig)=l
+!                  fm(ig,l+1)=0.
+!                  entr(ig,l)=0.
+!               else
+!                  ncorecfm7=ncorecfm7+1
+!               endif
+            endif
+
+            if(l.gt.lmax(ig)) then
+               detr(ig,l)=0.
+               fm(ig,l+1)=0.
+               entr(ig,l)=0.
+            endif
+         enddo
+
+         labort_physic=.false.
+         do ig=1,ngrid
+            if (entr(ig,l).lt.0.) then
+               labort_physic=.true.
+               igout=ig
+            endif
+         enddo
+         if (labort_physic) then
+            ig=igout
+            print*,'ig,l,lmax(ig)',ig,l,lmax(ig)
+            print*,'entr(ig,l)',entr(ig,l)
+            print*,'fm(ig,l)',fm(ig,l)
+            abort_message = 'probleme dans thermcell flux'
+            CALL abort_physic (modname,abort_message,1)
+         endif
+
+
+!     enddo
+      endif
+
+
+      if (prt_level.ge.10) &
+     &   write(lunout1,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-------------------------------------------------------------------------
+!fm ne peut pas etre negatif
+!-------------------------------------------------------------------------
+
+!     do l=1,klev
+         do ig=1,ngrid
+            if (fm(ig,l+1).lt.0.) then
+               detr(ig,l)=detr(ig,l)+fm(ig,l+1)
+               fm(ig,l+1)=0.
+               ncorecfm2=ncorecfm2+1
+            endif
+         enddo
+
+         labort_physic=.false.
+         do ig=1,ngrid
+            if (detr(ig,l).lt.0.) then
+               labort_physic=.true.
+               igout=ig
+            endif
+        enddo
+        if (labort_physic) then
+               ig=igout
+               print*,'cas 2 : ig,l,lmax(ig)',ig,l,lmax(ig)
+               print*,'detr(ig,l)',detr(ig,l)
+               print*,'fm(ig,l)',fm(ig,l)
+               abort_message = 'probleme dans thermcell flux'
+               CALL abort_physic (modname,abort_message,1)
+        endif
+!    enddo
+
+      if (prt_level.ge.10) &
+     &   write(lunout1,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+!-----------------------------------------------------------------------
+!la fraction couverte ne peut pas etre superieure a 1            
+!-----------------------------------------------------------------------
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! FH Partie a revisiter.
+! Il semble qu'etaient codees ici deux optiques dans le cas
+! F/ (rho *w) > 1
+! soit limiter la hauteur du thermique en considerant que c'est 
+! la derniere chouche, soit limiter F a rho w.
+! Dans le second cas, il faut en fait limiter a un peu moins
+! que ca parce qu'on a des 1 / ( 1 -alpha) un peu plus loin
+! dans thermcell_main et qu'il semble de toutes facons deraisonable
+! d'avoir des fractions de 1..
+! Ci dessous, et dans l'etat actuel, le premier des  deux if est
+! sans doute inutile.
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!    do l=1,klev
+        do ig=1,ngrid
+           if (zw2(ig,l+1).gt.1.e-10) then
+           zfm=rhobarz(ig,l+1)*zw2(ig,l+1)*alphamax
+           if ( fm(ig,l+1) .gt. zfm) then
+              f_old=fm(ig,l+1)
+              fm(ig,l+1)=zfm
+!             zw2(ig,l+1)=0.
+!             zqla(ig,l+1)=0.
+              detr(ig,l)=detr(ig,l)+f_old-fm(ig,l+1)
+!             lmax(ig)=l+1
+!             zmax(ig)=zlev(ig,lmax(ig))
+!             print*,'alpha>1',l+1,lmax(ig)
+              ncorecalpha=ncorecalpha+1
+           endif
+           endif
+        enddo
+!    enddo
+!
+
+
+      if (prt_level.ge.10) &
+     &   write(lunout1,'(i4,4e14.4)') l,masse(igout,l)/ptimestep, &
+     &     entr(igout,l),detr(igout,l),fm(igout,l+1)
+
+! Fin de la grande boucle sur les niveaux verticaux
+      enddo
+
+!      if (prt_level.ge.10) &
+!    &    call printflux(ngrid,klev,lunout1,igout,f,lmax,lalim, &
+!    &    ptimestep,masse,entr,detr,fm,'8  ')
+
+
+!-----------------------------------------------------------------------
+! On fait en sorte que la quantite totale d'air entraine dans le 
+! panache ne soit pas trop grande comparee a la masse de la maille
+!-----------------------------------------------------------------------
+
+      if (1.eq.1) then
+      labort_physic=.false.
+      do l=1,klev-1
+         do ig=1,ngrid
+            eee0=entr(ig,l)
+            ddd0=detr(ig,l)
+            eee=entr(ig,l)-masse(ig,l)*fomass_max/ptimestep
+            ddd=detr(ig,l)-eee
+            if (eee.gt.0.) then
+                ncorecfm3=ncorecfm3+1
+                entr(ig,l)=entr(ig,l)-eee
+                if ( ddd.gt.0.) then
+!   l'entrainement est trop fort mais l'exces peut etre compense par une
+!   diminution du detrainement)
+                   detr(ig,l)=ddd
+                else
+!   l'entrainement est trop fort mais l'exces doit etre compense en partie
+!   par un entrainement plus fort dans la couche superieure
+                   if(l.eq.lmax(ig)) then
+                      detr(ig,l)=fm(ig,l)+entr(ig,l)
+                   else
+                      if(l.ge.lmax(ig).and.0.eq.1) then
+                         igout=ig
+                         lout=l
+                         labort_physic=.true.
+                      endif
+                      entr(ig,l+1)=entr(ig,l+1)-ddd
+                      detr(ig,l)=0.
+                      fm(ig,l+1)=fm(ig,l)+entr(ig,l)
+                      detr(ig,l)=0.
+                   endif
+                endif
+            endif
+         enddo
+      enddo
+      if (labort_physic) then
+                         ig=igout
+                         l=lout
+                         print*,'ig,l',ig,l
+                         print*,'eee0',eee0
+                         print*,'ddd0',ddd0
+                         print*,'eee',eee
+                         print*,'ddd',ddd
+                         print*,'entr',entr(ig,l)
+                         print*,'detr',detr(ig,l)
+                         print*,'masse',masse(ig,l)
+                         print*,'fomass_max',fomass_max
+                         print*,'masse(ig,l)*fomass_max/ptimestep',masse(ig,l)*fomass_max/ptimestep
+                         print*,'ptimestep',ptimestep
+                         print*,'lmax(ig)',lmax(ig)
+                         print*,'fm(ig,l+1)',fm(ig,l+1)
+                         print*,'fm(ig,l)',fm(ig,l)
+                         abort_message = 'probleme dans thermcell_flux'
+                         CALL abort_physic (modname,abort_message,1)
+      endif
+      endif
+!                  
+!              ddd=detr(ig)-entre
+!on s assure que tout s annule bien en zmax
+      do ig=1,ngrid
+         fm(ig,lmax(ig)+1)=0.
+         entr(ig,lmax(ig))=0.
+         detr(ig,lmax(ig))=fm(ig,lmax(ig))+entr(ig,lmax(ig))
+      enddo
+
+!-----------------------------------------------------------------------
+! Impression du nombre de bidouilles qui ont ete necessaires
+!-----------------------------------------------------------------------
+
+!IM 090508 beg
+!     if (ncorecfm1+ncorecfm2+ncorecfm3+ncorecfm4+ncorecfm5+ncorecalpha > 0 ) then
+!
+!         print*,'PB thermcell : on a du coriger ',ncorecfm1,'x fm1',&
+!   &     ncorecfm2,'x fm2',ncorecfm3,'x fm3 et', &
+!   &     ncorecfm4,'x fm4',ncorecfm5,'x fm5 et', &
+!   &     ncorecfm6,'x fm6', &
+!   &     ncorecfm7,'x fm7', &
+!   &     ncorecfm8,'x fm8', &
+!   &     ncorecalpha,'x alpha'
+!     endif
+!IM 090508 end
+
+!      if (prt_level.ge.10) &
+!    &    call printflux(ngrid,klev,lunout1,igout,f,lmax,lalim, &
+!    &    ptimestep,masse,entr,detr,fm,'fin')
+
+
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_height.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_height.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_height.F90	(revision 3330)
@@ -0,0 +1,163 @@
+      SUBROUTINE thermcell_height(ngrid,nlay,lalim,lmin,linter,lmix,  &
+     &           zw2,zlev,lmax,zmax,zmax0,zmix,wmax,lev_out)                            
+
+!-----------------------------------------------------------------------------
+!thermcell_height: calcul des caracteristiques du thermique: zmax,wmax,zmix
+!-----------------------------------------------------------------------------
+      IMPLICIT NONE
+#include "thermcell.h"
+
+      INTEGER ig,l
+      INTEGER ngrid,nlay
+      INTEGER lalim(ngrid),lmin(ngrid)
+      INTEGER lmix(ngrid)
+      REAL linter(ngrid)
+      integer lev_out                           ! niveau pour les print
+
+      REAL zw2(ngrid,nlay+1)
+      REAL zlev(ngrid,nlay+1)
+
+      REAL wmax(ngrid)
+      INTEGER lmax(ngrid)
+      REAL zmax(ngrid)
+      REAL zmax0(ngrid)
+      REAL zmix(ngrid)
+      REAL num(ngrid)
+      REAL denom(ngrid)
+
+      REAL zlevinter(ngrid)
+
+!calcul de la hauteur max du thermique
+      do ig=1,ngrid
+         lmax(ig)=lalim(ig)
+      enddo
+      do ig=1,ngrid
+         do l=nlay,lalim(ig)+1,-1
+            if (zw2(ig,l).le.1.e-10) then
+               lmax(ig)=l-1
+            endif
+         enddo
+      enddo
+
+! On traite le cas particulier qu'il faudrait éviter ou le thermique
+! atteind le haut du modele ...
+      do ig=1,ngrid
+      if ( zw2(ig,nlay) > 1.e-10 ) then
+          print*,'WARNING !!!!! W2 thermiques non nul derniere couche '
+          lmax(ig)=nlay
+      endif
+      enddo
+
+! pas de thermique si couche 1 stable
+      do ig=1,ngrid
+         if (lmin(ig).gt.1) then
+             lmax(ig)=1
+             lmin(ig)=1
+             lalim(ig)=1
+         endif
+      enddo 
+!    
+! Determination de zw2 max
+      do ig=1,ngrid
+         wmax(ig)=0.
+      enddo
+
+      do l=1,nlay
+         do ig=1,ngrid
+            if (l.le.lmax(ig)) then
+                if (zw2(ig,l).lt.0.)then
+                  print*,'pb2 zw2<0'
+                endif
+                zw2(ig,l)=sqrt(zw2(ig,l))
+                wmax(ig)=max(wmax(ig),zw2(ig,l))
+            else
+                 zw2(ig,l)=0.
+            endif
+          enddo
+      enddo
+
+!   Longueur caracteristique correspondant a la hauteur des thermiques.
+      do  ig=1,ngrid
+         zmax(ig)=0.
+         zlevinter(ig)=zlev(ig,1)
+      enddo
+
+!     if (iflag_thermals_ed.ge.1) then
+      if (1==0) then
+!CR:date de quand le calcul du zmax continu etait buggue 
+         num(:)=0.
+         denom(:)=0.
+         do ig=1,ngrid
+          do l=1,nlay
+             num(ig)=num(ig)+zw2(ig,l)*zlev(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+             denom(ig)=denom(ig)+zw2(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+          enddo
+       enddo
+       do ig=1,ngrid
+       if (denom(ig).gt.1.e-10) then
+          zmax(ig)=2.*num(ig)/denom(ig)
+          zmax0(ig)=zmax(ig)
+       endif 
+       enddo
+ 
+      else
+!CR:Calcul de zmax continu via le linter      
+      do  ig=1,ngrid
+! calcul de zlevinter
+          zlevinter(ig)=(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*  &
+     &    linter(ig)+zlev(ig,lmax(ig))-lmax(ig)*(zlev(ig,lmax(ig)+1)  &
+     &    -zlev(ig,lmax(ig)))
+!pour le cas ou on prend tjs lmin=1
+!       zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,lmin(ig)))
+       zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,1))
+       zmax0(ig)=zmax(ig)
+      enddo
+
+
+      endif
+!endif iflag_thermals_ed
+!
+! def de  zmix continu (profil parabolique des vitesses)
+      do ig=1,ngrid
+           if (lmix(ig).gt.1) then
+! test 
+              if (((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
+     &        *((zlev(ig,lmix(ig)))-(zlev(ig,lmix(ig)+1)))  &
+     &        -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
+     &        *((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))).gt.1e-10)  &
+     &        then
+!             
+            zmix(ig)=((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
+     &        *((zlev(ig,lmix(ig)))**2-(zlev(ig,lmix(ig)+1))**2)  &
+     &        -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
+     &        *((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))  &
+     &        /(2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))  &
+     &        *((zlev(ig,lmix(ig)))-(zlev(ig,lmix(ig)+1)))  &
+     &        -(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))  &
+     &        *((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+              else
+              zmix(ig)=zlev(ig,lmix(ig))
+              print*,'pb zmix'
+              endif
+          else 
+              zmix(ig)=0.
+          endif
+!test
+         if ((zmax(ig)-zmix(ig)).le.0.) then
+            zmix(ig)=0.9*zmax(ig)
+!            print*,'pb zmix>zmax'
+         endif
+      enddo
+!
+! calcul du nouveau lmix correspondant
+      do ig=1,ngrid
+         do l=1,nlay
+            if (zmix(ig).ge.zlev(ig,l).and.  &
+     &          zmix(ig).lt.zlev(ig,l+1)) then
+              lmix(ig)=l
+             endif
+          enddo
+      enddo
+!
+      return 
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_init.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_init.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_init.F90	(revision 3330)
@@ -0,0 +1,59 @@
+!
+! $Header$
+!
+      SUBROUTINE thermcell_init(ngrid,nlay,ztv,zlay,zlev,  &
+     &                  lalim,lmin,alim_star,alim_star_tot,lev_out)
+
+!----------------------------------------------------------------------
+!thermcell_init: calcul du profil d alimentation du thermique
+!----------------------------------------------------------------------
+      USE print_control_mod, ONLY: lunout
+      IMPLICIT NONE
+#include "thermcell.h"
+
+      INTEGER l,ig
+!arguments d entree
+      INTEGER ngrid,nlay
+      REAL ztv(ngrid,nlay)
+      REAL zlay(ngrid,nlay)
+      REAL zlev(ngrid,nlay+1)
+!arguments de sortie
+      INTEGER lalim(ngrid)
+      INTEGER lmin(ngrid)
+      REAL alim_star(ngrid,nlay)
+      REAL alim_star_tot(ngrid)
+      integer lev_out                           ! niveau pour les print
+      
+      REAL zzalim(ngrid)
+!CR: ponderation entrainement des couches instables
+!def des alim_star tels que alim=f*alim_star      
+
+
+      write(lunout,*)'THERM INIT V20C '
+
+      alim_star_tot(:)=0.
+      alim_star(:,:)=0.
+      lmin(:)=1
+      lalim(:)=1
+
+      do l=1,nlay-1
+         do ig=1,ngrid
+            if (ztv(ig,l)> ztv(ig,l+1) .and. ztv(ig,1)>=ztv(ig,l) ) then
+               alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
+     &                       *sqrt(zlev(ig,l+1)) 
+               lalim(:)=l+1
+               alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
+            endif
+         enddo
+      enddo
+      do l=1,nlay
+         do ig=1,ngrid 
+            if (alim_star_tot(ig) > 1.e-10 ) then
+               alim_star(ig,l)=alim_star(ig,l)/alim_star_tot(ig)
+            endif
+         enddo
+      enddo
+      alim_star_tot(:)=1.
+
+      return
+      end  
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_main.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_main.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_main.F90	(revision 3330)
@@ -0,0 +1,984 @@
+!
+! $Id$
+!
+      SUBROUTINE thermcell_main(itap,ngrid,nlay,ptimestep  &
+     &                  ,pplay,pplev,pphi,debut  &
+     &                  ,pu,pv,pt,po  &
+     &                  ,pduadj,pdvadj,pdtadj,pdoadj  &
+     &                  ,fm0,entr0,detr0,zqta,zqla,lmax  &
+     &                  ,ratqscth,ratqsdiff,zqsatth  &
+     &                  ,Ale_bl,Alp_bl,lalim_conv,wght_th &
+     &                  ,zmax0, f0,zw2,fraca,ztv &
+     &                  ,zpspsk,ztla,zthl &
+!!! nrlmd le 10/04/2012
+     &                  ,pbl_tke,pctsrf,omega,airephy &
+     &                  ,zlcl,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
+     &                  ,n2,s2,ale_bl_stat &
+     &                  ,therm_tke_max,env_tke_max &
+     &                  ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
+     &                  ,alp_bl_conv,alp_bl_stat &
+!!! fin nrlmd le 10/04/2012
+     &                  ,ztva  )
+
+      USE dimphy
+      USE ioipsl
+      USE indice_sol_mod
+      USE print_control_mod, ONLY: lunout,prt_level
+      IMPLICIT NONE
+
+!=======================================================================
+!   Auteurs: Frederic Hourdin, Catherine Rio, Anne Mathieu
+!   Version du 09.02.07
+!   Calcul du transport vertical dans la couche limite en presence
+!   de "thermiques" explicitement representes avec processus nuageux
+!
+!   Reecriture a partir d'un listing papier a Habas, le 14/02/00
+!
+!   le thermique est suppose homogene et dissipe par melange avec
+!   son environnement. la longueur l_mix controle l'efficacite du
+!   melange
+!
+!   Le calcul du transport des differentes especes se fait en prenant
+!   en compte:
+!     1. un flux de masse montant
+!     2. un flux de masse descendant
+!     3. un entrainement
+!     4. un detrainement
+!
+! Modif 2013/01/04 (FH hourdin@lmd.jussieu.fr)
+!    Introduction of an implicit computation of vertical advection in
+!    the environment of thermal plumes in thermcell_dq
+!    impl =     0 : explicit, 1 : implicit, -1 : old version
+!    controled by iflag_thermals =
+!       15, 16 run with impl=-1 : numerical convergence with NPv3
+!       17, 18 run with impl=1  : more stable
+!    15 and 17 correspond to the activation of the stratocumulus "bidouille"
+!
+!=======================================================================
+
+
+!-----------------------------------------------------------------------
+!   declarations:
+!   -------------
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+
+!   arguments:
+!   ----------
+
+!IM 140508
+      INTEGER itap
+
+      INTEGER ngrid,nlay
+      real ptimestep
+      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
+      REAL pu(ngrid,nlay),pduadj(ngrid,nlay)
+      REAL pv(ngrid,nlay),pdvadj(ngrid,nlay)
+      REAL po(ngrid,nlay),pdoadj(ngrid,nlay)
+      REAL pplay(ngrid,nlay),pplev(ngrid,nlay+1)
+      real pphi(ngrid,nlay)
+      LOGICAL debut
+
+!   local:
+!   ------
+
+      integer icount
+
+      integer, save :: dvdq=1,dqimpl=-1
+!$OMP THREADPRIVATE(dvdq,dqimpl)
+      data icount/0/
+      save icount
+!$OMP THREADPRIVATE(icount)
+
+      integer,save :: igout=1
+!$OMP THREADPRIVATE(igout)
+      integer,save :: lunout1=6
+!$OMP THREADPRIVATE(lunout1)
+      integer,save :: lev_out=10
+!$OMP THREADPRIVATE(lev_out)
+
+      REAL susqr2pi, Reuler
+
+      INTEGER ig,k,l,ll,ierr
+      real zsortie1d(klon)
+      INTEGER lmax(klon),lmin(klon),lalim(klon)
+      INTEGER lmix(klon)
+      INTEGER lmix_bis(klon)
+      real linter(klon)
+      real zmix(klon)
+      real zmax(klon),zw2(klon,klev+1),ztva(klon,klev),zw_est(klon,klev+1),ztva_est(klon,klev)
+!      real fraca(klon,klev)
+
+      real zmax_sec(klon)
+!on garde le zmax du pas de temps precedent
+      real zmax0(klon)
+!FH/IM     save zmax0
+
+      real lambda
+
+      real zlev(klon,klev+1),zlay(klon,klev)
+      real deltaz(klon,klev)
+      REAL zh(klon,klev)
+      real zthl(klon,klev),zdthladj(klon,klev)
+      REAL ztv(klon,klev)
+      real zu(klon,klev),zv(klon,klev),zo(klon,klev)
+      real zl(klon,klev)
+      real zsortie(klon,klev)
+      real zva(klon,klev)
+      real zua(klon,klev)
+      real zoa(klon,klev)
+
+      real zta(klon,klev)
+      real zha(klon,klev)
+      real fraca(klon,klev+1)
+      real zf,zf2
+      real thetath2(klon,klev),wth2(klon,klev),wth3(klon,klev)
+      real q2(klon,klev)
+! FH probleme de dimensionnement avec l'allocation dynamique
+!     common/comtherm/thetath2,wth2
+      real wq(klon,klev)
+      real wthl(klon,klev)
+      real wthv(klon,klev)
+    
+      real ratqscth(klon,klev)
+      real var
+      real vardiff
+      real ratqsdiff(klon,klev)
+
+      logical sorties
+      real rho(klon,klev),rhobarz(klon,klev),masse(klon,klev)
+      real zpspsk(klon,klev)
+
+      real wmax(klon)
+      real wmax_tmp(klon)
+      real wmax_sec(klon)
+      real fm0(klon,klev+1),entr0(klon,klev),detr0(klon,klev)
+      real fm(klon,klev+1),entr(klon,klev),detr(klon,klev)
+
+      real ztla(klon,klev),zqla(klon,klev),zqta(klon,klev)
+!niveau de condensation
+      integer nivcon(klon)
+      real zcon(klon)
+      REAL CHI
+      real zcon2(klon)
+      real pcon(klon)
+      real zqsat(klon,klev)
+      real zqsatth(klon,klev) 
+
+      real f_star(klon,klev+1),entr_star(klon,klev)
+      real detr_star(klon,klev)
+      real alim_star_tot(klon)
+      real alim_star(klon,klev)
+      real alim_star_clos(klon,klev)
+      real f(klon), f0(klon)
+!FH/IM     save f0
+      real zlevinter(klon)
+       real seuil
+      real csc(klon,klev)
+
+!!! nrlmd le 10/04/2012
+
+!------Entrées
+      real pbl_tke(klon,klev+1,nbsrf)
+      real pctsrf(klon,nbsrf)
+      real omega(klon,klev)
+      real airephy(klon)
+!------Sorties
+      real zlcl(klon),fraca0(klon),w0(klon),w_conv(klon)
+      real therm_tke_max0(klon),env_tke_max0(klon)
+      real n2(klon),s2(klon)
+      real ale_bl_stat(klon)
+      real therm_tke_max(klon,klev),env_tke_max(klon,klev)
+      real alp_bl_det(klon),alp_bl_fluct_m(klon),alp_bl_fluct_tke(klon),alp_bl_conv(klon),alp_bl_stat(klon)
+!------Local
+      integer nsrf
+      real rhobarz0(klon)                    ! Densité au LCL
+      logical ok_lcl(klon)                   ! Existence du LCL des thermiques
+      integer klcl(klon)                     ! Niveau du LCL
+      real interp(klon)                      ! Coef d'interpolation pour le LCL
+!--Triggering
+      real Su                                ! Surface unité: celle d'un updraft élémentaire
+      parameter(Su=4e4)
+      real hcoef                             ! Coefficient directeur pour le calcul de s2
+      parameter(hcoef=1)
+      real hmincoef                          ! Coefficient directeur pour l'ordonnée à l'origine pour le calcul de s2 
+      parameter(hmincoef=0.3)
+      real eps1                              ! Fraction de surface occupée par la population 1 : eps1=n1*s1/(fraca0*Sd)
+      parameter(eps1=0.3)
+      real hmin(ngrid)                       ! Ordonnée à l'origine pour le calcul de s2
+      real zmax_moy(ngrid)                   ! Hauteur moyenne des thermiques : zmax_moy = zlcl + 0.33 (zmax-zlcl)
+      real zmax_moy_coef
+      parameter(zmax_moy_coef=0.33)
+      real depth(klon)                       ! Epaisseur moyenne du cumulus
+      real w_max(klon)                       ! Vitesse max statistique 
+      real s_max(klon)
+!--Closure
+      real pbl_tke_max(klon,klev)            ! Profil de TKE moyenne 
+      real pbl_tke_max0(klon)                ! TKE moyenne au LCL
+      real w_ls(klon,klev)                   ! Vitesse verticale grande échelle (m/s)
+      real coef_m                            ! On considère un rendement pour alp_bl_fluct_m
+      parameter(coef_m=1.)
+      real coef_tke                          ! On considère un rendement pour alp_bl_fluct_tke
+      parameter(coef_tke=1.)
+
+!!! fin nrlmd le 10/04/2012
+
+!
+      !nouvelles variables pour la convection
+      real Ale_bl(klon)
+      real Alp_bl(klon)
+      real alp_int(klon),dp_int(klon),zdp
+      real ale_int(klon)
+      integer n_int(klon)
+      real fm_tot(klon)
+      real wght_th(klon,klev)
+      integer lalim_conv(klon)
+!v1d     logical therm
+!v1d     save therm
+
+      character*2 str2
+      character*10 str10
+
+      character (len=20) :: modname='thermcell_main'
+      character (len=80) :: abort_message
+
+      EXTERNAL SCOPY
+!
+
+!-----------------------------------------------------------------------
+!   initialisation:
+!   ---------------
+!
+
+   seuil=0.25
+
+   if (debut) then
+      if (iflag_thermals==15.or.iflag_thermals==16) then
+         dvdq=0
+         dqimpl=-1
+      else
+         dvdq=1
+         dqimpl=1
+      endif
+
+      fm0=0.
+      entr0=0.
+      detr0=0.
+   endif
+   fm=0. ; entr=0. ; detr=0.
+   icount=icount+1
+
+!IM 090508 beg
+!print*,'====================================================================='
+!print*,'====================================================================='
+!print*,' PAS ',icount,' PAS ',icount,' PAS ',icount,' PAS ',icount
+!print*,'====================================================================='
+!print*,'====================================================================='
+!IM 090508 end
+
+      if (prt_level.ge.1) print*,'thermcell_main V4'
+
+       sorties=.true.
+      IF(ngrid.NE.klon) THEN
+         PRINT*
+         PRINT*,'STOP dans convadj'
+         PRINT*,'ngrid    =',ngrid
+         PRINT*,'klon  =',klon
+      ENDIF
+!
+!     write(lunout,*)'WARNING thermcell_main f0=max(f0,1.e-2)'
+     do ig=1,klon
+         f0(ig)=max(f0(ig),1.e-2)
+         zmax0(ig)=max(zmax0(ig),40.)
+!IMmarche pas ?!       if (f0(ig)<1.e-2) f0(ig)=1.e-2
+     enddo
+
+      if (prt_level.ge.20) then
+       do ig=1,ngrid
+          print*,'th_main ig f0',ig,f0(ig)
+       enddo
+      endif
+!-----------------------------------------------------------------------
+! Calcul de T,q,ql a partir de Tl et qT dans l environnement
+!   --------------------------------------------------------------------
+!
+      CALL thermcell_env(ngrid,nlay,po,pt,pu,pv,pplay,  &
+     &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,zqsat,lev_out)
+       
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_env'
+
+!------------------------------------------------------------------------
+!                       --------------------
+!
+!
+!                       + + + + + + + + + + +
+!
+!
+!  wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+!  wh,wt,wo ...
+!
+!                       + + + + + + + + + + +  zh,zu,zv,zo,rho
+!
+!
+!                       --------------------   zlev(1)
+!                       \\\\\\\\\\\\\\\\\\\\
+!
+!
+
+!-----------------------------------------------------------------------
+!   Calcul des altitudes des couches
+!-----------------------------------------------------------------------
+
+      do l=2,nlay
+         zlev(:,l)=0.5*(pphi(:,l)+pphi(:,l-1))/RG
+      enddo
+         zlev(:,1)=0.
+         zlev(:,nlay+1)=(2.*pphi(:,klev)-pphi(:,klev-1))/RG
+      do l=1,nlay
+         zlay(:,l)=pphi(:,l)/RG
+      enddo
+!calcul de l epaisseur des couches
+      do l=1,nlay
+         deltaz(:,l)=zlev(:,l+1)-zlev(:,l)
+      enddo
+
+!     print*,'2 OK convect8'
+!-----------------------------------------------------------------------
+!   Calcul des densites
+!-----------------------------------------------------------------------
+
+     rho(:,:)=pplay(:,:)/(zpspsk(:,:)*RD*ztv(:,:))
+
+     if (prt_level.ge.10)write(lunout,*)                                &
+    &    'WARNING thermcell_main rhobarz(:,1)=rho(:,1)'
+      rhobarz(:,1)=rho(:,1)
+
+      do l=2,nlay
+         rhobarz(:,l)=0.5*(rho(:,l)+rho(:,l-1))
+      enddo
+
+!calcul de la masse
+      do l=1,nlay
+         masse(:,l)=(pplev(:,l)-pplev(:,l+1))/RG
+      enddo
+
+      if (prt_level.ge.1) print*,'thermcell_main apres initialisation'
+
+!------------------------------------------------------------------
+!
+!             /|\
+!    --------  |  F_k+1 -------   
+!                              ----> D_k
+!             /|\              <---- E_k , A_k
+!    --------  |  F_k --------- 
+!                              ----> D_k-1
+!                              <---- E_k-1 , A_k-1
+!
+!
+!
+!
+!
+!    ---------------------------
+!
+!    ----- F_lmax+1=0 ----------         \
+!            lmax     (zmax)              |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------          |
+!                                         |  E
+!    ---------------------------          |  D
+!                                         |
+!    ---------------------------          |
+!                                         |
+!    ---------------------------  \       |
+!            lalim                 |      |
+!    ---------------------------   |      |
+!                                  |      |
+!    ---------------------------   |      |
+!                                  | A    |
+!    ---------------------------   |      |
+!                                  |      |
+!    ---------------------------   |      |
+!    lmin  (=1 pour le moment)     |      |
+!    ----- F_lmin=0 ------------  /      /
+!
+!    ---------------------------
+!    //////////////////////////
+!
+!
+!=============================================================================
+!  Calculs initiaux ne faisant pas intervenir les changements de phase
+!=============================================================================
+
+!------------------------------------------------------------------
+!  1. alim_star est le profil vertical de l'alimentation a la base du
+!     panache thermique, calcule a partir de la flotabilite de l'air sec
+!  2. lmin et lalim sont les indices inferieurs et superieurs de alim_star
+!------------------------------------------------------------------
+!
+      entr_star=0. ; detr_star=0. ; alim_star=0. ; alim_star_tot=0.
+      lmin=1
+
+!-----------------------------------------------------------------------------
+!  3. wmax_sec et zmax_sec sont les vitesses et altitudes maximum d'un
+!     panache sec conservatif (e=d=0) alimente selon alim_star 
+!     Il s'agit d'un calcul de type CAPE
+!     zmax_sec est utilise pour determiner la geometrie du thermique.
+!------------------------------------------------------------------------------
+!---------------------------------------------------------------------------------
+!calcul du melange et des variables dans le thermique
+!--------------------------------------------------------------------------------
+!
+      if (prt_level.ge.1) print*,'avant thermcell_plume ',lev_out
+!IM 140508   CALL thermcell_plume(ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,  &
+
+! Gestion temporaire de plusieurs appels à thermcell_plume au travers
+! de la variable iflag_thermals
+
+!      print*,'THERM thermcell_main iflag_thermals_ed=',iflag_thermals_ed
+      if (iflag_thermals_ed<=9) then
+!         print*,'THERM NOUVELLE/NOUVELLE Arnaud'
+         CALL thermcell_plume(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,&
+     &    zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
+     &    lalim,f0,detr_star,entr_star,f_star,csc,ztva,  &
+     &    ztla,zqla,zqta,zha,zw2,zw_est,ztva_est,zqsatth,lmix,lmix_bis,linter &
+     &    ,lev_out,lunout1,igout)
+
+      elseif (iflag_thermals_ed>9) then
+!        print*,'THERM RIO et al 2010, version d Arnaud'
+         CALL thermcellV1_plume(itap,ngrid,nlay,ptimestep,ztv,zthl,po,zl,rhobarz,&
+     &    zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
+     &    lalim,f0,detr_star,entr_star,f_star,csc,ztva,  &
+     &    ztla,zqla,zqta,zha,zw2,zw_est,ztva_est,zqsatth,lmix,lmix_bis,linter &
+     &    ,lev_out,lunout1,igout)
+
+      endif
+
+      if (prt_level.ge.1) print*,'apres thermcell_plume ',lev_out
+
+      call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_plum lalim ')
+      call test_ltherm(ngrid,nlay,pplev,pplay,lmix ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_plum lmix  ')
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_plume'
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_main 2'
+         write(lunout1,*) 'lmin ',lmin(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) ' ig l alim_star entr_star detr_star f_star '
+         write(lunout1,'(i6,i4,4e15.5)') (igout,l,alim_star(igout,l),entr_star(igout,l),detr_star(igout,l) &
+     &    ,f_star(igout,l+1),l=1,nint(linter(igout))+5)
+      endif
+
+!-------------------------------------------------------------------------------
+! Calcul des caracteristiques du thermique:zmax,zmix,wmax
+!-------------------------------------------------------------------------------
+!
+      CALL thermcell_height(ngrid,nlay,lalim,lmin,linter,lmix,zw2,  &
+     &           zlev,lmax,zmax,zmax0,zmix,wmax,lev_out)
+! Attention, w2 est transforme en sa racine carree dans cette routine
+! Le probleme vient du fait que linter et lmix sont souvent égaux à 1.
+      wmax_tmp=0.
+      do  l=1,nlay
+         wmax_tmp(:)=max(wmax_tmp(:),zw2(:,l))
+      enddo
+!     print*,"ZMAX ",lalim,lmin,linter,lmix,lmax,zmax,zmax0,zmix,wmax
+
+
+
+      call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lalim ')
+      call test_ltherm(ngrid,nlay,pplev,pplay,lmin ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmin  ')
+      call test_ltherm(ngrid,nlay,pplev,pplay,lmix ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmix  ')
+      call test_ltherm(ngrid,nlay,pplev,pplay,lmax ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_heig lmax  ')
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_height'
+
+!-------------------------------------------------------------------------------
+! Fermeture,determination de f
+!-------------------------------------------------------------------------------
+!
+!
+!!      write(lunout,*)'THERM NOUVEAU XXXXX'
+      CALL thermcell_dry(ngrid,nlay,zlev,pphi,ztv,alim_star,  &
+    &                      lalim,lmin,zmax_sec,wmax_sec,lev_out)
+
+ 
+call test_ltherm(ngrid,nlay,pplev,pplay,lmin,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_dry  lmin  ')
+call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_dry  lalim ')
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_dry'
+      if (prt_level.ge.10) then
+         write(lunout1,*) 'Dans thermcell_main 1b'
+         write(lunout1,*) 'lmin ',lmin(igout)
+         write(lunout1,*) 'lalim ',lalim(igout)
+         write(lunout1,*) ' ig l alim_star entr_star detr_star f_star '
+         write(lunout1,'(i6,i4,e15.5)') (igout,l,alim_star(igout,l) &
+     &    ,l=1,lalim(igout)+4)
+      endif
+
+
+
+
+! Choix de la fonction d'alimentation utilisee pour la fermeture.
+! Apparemment sans importance
+      alim_star_clos(:,:)=alim_star(:,:)
+      alim_star_clos(:,:)=entr_star(:,:)+alim_star(:,:)
+!
+!CR Appel de la fermeture seche 
+      if (iflag_thermals_closure.eq.1) then
+
+      CALL thermcell_closure(ngrid,nlay,r_aspect_thermals,ptimestep,rho,  &
+     &   zlev,lalim,alim_star_clos,f_star,zmax_sec,wmax_sec,f,lev_out)
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Appel avec les zmax et wmax tenant compte de la condensation
+! Semble moins bien marcher
+     else if (iflag_thermals_closure.eq.2) then
+
+     CALL thermcell_closure(ngrid,nlay,r_aspect_thermals,ptimestep,rho,  &
+    &   zlev,lalim,alim_star,f_star,zmax,wmax,f,lev_out)
+
+     endif
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+      if(prt_level.ge.1)print*,'thermcell_closure apres thermcell_closure'
+
+      if (tau_thermals>1.) then
+         lambda=exp(-ptimestep/tau_thermals)
+         f0=(1.-lambda)*f+lambda*f0
+      else
+         f0=f
+      endif
+
+! Test valable seulement en 1D mais pas genant
+      if (.not. (f0(1).ge.0.) ) then
+              abort_message = '.not. (f0(1).ge.0.)'
+              CALL abort_physic (modname,abort_message,1)
+      endif
+
+!-------------------------------------------------------------------------------
+!deduction des flux
+!-------------------------------------------------------------------------------
+
+      CALL thermcell_flux2(ngrid,nlay,ptimestep,masse, &
+     &       lalim,lmax,alim_star,  &
+     &       entr_star,detr_star,f,rhobarz,zlev,zw2,fm,entr,  &
+     &       detr,zqla,lev_out,lunout1,igout)
+!IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
+
+      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'
+      call test_ltherm(ngrid,nlay,pplev,pplay,lalim,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_flux lalim ')
+      call test_ltherm(ngrid,nlay,pplev,pplay,lmax ,seuil,ztv,po,ztva,zqla,f_star,zw2,'thermcell_flux lmax  ')
+
+!------------------------------------------------------------------
+!   On ne prend pas directement les profils issus des calculs precedents
+!   mais on s'autorise genereusement une relaxation vers ceci avec
+!   une constante de temps tau_thermals (typiquement 1800s).
+!------------------------------------------------------------------
+
+      if (tau_thermals>1.) then
+         lambda=exp(-ptimestep/tau_thermals)
+         fm0=(1.-lambda)*fm+lambda*fm0
+         entr0=(1.-lambda)*entr+lambda*entr0
+         detr0=(1.-lambda)*detr+lambda*detr0
+      else
+         fm0=fm
+         entr0=entr
+         detr0=detr
+      endif
+
+!c------------------------------------------------------------------
+!   calcul du transport vertical
+!------------------------------------------------------------------
+
+      call thermcell_dq(ngrid,nlay,dqimpl,ptimestep,fm0,entr0,masse,  &
+     &                    zthl,zdthladj,zta,lev_out)
+      call thermcell_dq(ngrid,nlay,dqimpl,ptimestep,fm0,entr0,masse,  &
+     &                   po,pdoadj,zoa,lev_out)
+
+!------------------------------------------------------------------
+! Calcul de la fraction de l'ascendance
+!------------------------------------------------------------------
+      do ig=1,klon
+         fraca(ig,1)=0.
+         fraca(ig,nlay+1)=0.
+      enddo
+      do l=2,nlay
+         do ig=1,klon
+            if (zw2(ig,l).gt.1.e-10) then
+            fraca(ig,l)=fm(ig,l)/(rhobarz(ig,l)*zw2(ig,l))
+            else
+            fraca(ig,l)=0.
+            endif
+         enddo
+      enddo
+     
+!------------------------------------------------------------------
+!  calcul du transport vertical du moment horizontal
+!------------------------------------------------------------------
+
+!IM 090508  
+      if (dvdq == 0 ) then
+
+! Calcul du transport de V tenant compte d'echange par gradient
+! de pression horizontal avec l'environnement
+
+         call thermcell_dv2(ngrid,nlay,ptimestep,fm0,entr0,masse  &
+!    &    ,fraca*dvdq,zmax &
+     &    ,fraca,zmax &
+     &    ,zu,zv,pduadj,pdvadj,zua,zva,lev_out)
+
+      else
+
+! calcul purement conservatif pour le transport de V
+         call thermcell_dq(ngrid,nlay,dqimpl,ptimestep,fm0,entr0,masse  &
+     &    ,zu,pduadj,zua,lev_out)
+         call thermcell_dq(ngrid,nlay,dqimpl,ptimestep,fm0,entr0,masse  &
+     &    ,zv,pdvadj,zva,lev_out)
+
+      endif
+
+!     print*,'13 OK convect8'
+      do l=1,nlay
+         do ig=1,ngrid
+           pdtadj(ig,l)=zdthladj(ig,l)*zpspsk(ig,l)  
+         enddo
+      enddo
+
+      if (prt_level.ge.1) print*,'14 OK convect8'
+!------------------------------------------------------------------
+!   Calculs de diagnostiques pour les sorties
+!------------------------------------------------------------------
+!calcul de fraca pour les sorties
+      
+      if (sorties) then
+      if (prt_level.ge.1) print*,'14a OK convect8'
+! calcul du niveau de condensation
+! initialisation
+      do ig=1,ngrid
+         nivcon(ig)=0
+         zcon(ig)=0.
+      enddo 
+!nouveau calcul
+      do ig=1,ngrid
+      CHI=zh(ig,1)/(1669.0-122.0*zo(ig,1)/zqsat(ig,1)-zh(ig,1))
+      pcon(ig)=pplay(ig,1)*(zo(ig,1)/zqsat(ig,1))**CHI
+      enddo
+!IM   do k=1,nlay
+      do k=1,nlay-1
+         do ig=1,ngrid
+         if ((pcon(ig).le.pplay(ig,k))  &
+     &      .and.(pcon(ig).gt.pplay(ig,k+1))) then
+            zcon2(ig)=zlay(ig,k)-(pcon(ig)-pplay(ig,k))/(RG*rho(ig,k))/100.
+         endif
+         enddo
+      enddo
+!IM
+      ierr=0
+      do ig=1,ngrid
+        if (pcon(ig).le.pplay(ig,nlay)) then 
+           zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100.
+           ierr=1
+        endif
+      enddo
+      if (ierr==1) then
+           abort_message = 'thermcellV0_main: les thermiques vont trop haut '
+           CALL abort_physic (modname,abort_message,1)
+      endif
+
+      if (prt_level.ge.1) print*,'14b OK convect8'
+      do k=nlay,1,-1
+         do ig=1,ngrid
+            if (zqla(ig,k).gt.1e-10) then
+               nivcon(ig)=k
+               zcon(ig)=zlev(ig,k)
+            endif
+         enddo
+      enddo
+      if (prt_level.ge.1) print*,'14c OK convect8'
+!calcul des moments
+!initialisation
+      do l=1,nlay
+         do ig=1,ngrid
+            q2(ig,l)=0.
+            wth2(ig,l)=0.
+            wth3(ig,l)=0.
+            ratqscth(ig,l)=0.
+            ratqsdiff(ig,l)=0.
+         enddo
+      enddo      
+      if (prt_level.ge.1) print*,'14d OK convect8'
+      if (prt_level.ge.10)write(lunout,*)                                &
+    &     'WARNING thermcell_main wth2=0. si zw2 > 1.e-10'
+      do l=1,nlay
+         do ig=1,ngrid
+            zf=fraca(ig,l)
+            zf2=zf/(1.-zf)
+!
+            thetath2(ig,l)=zf2*(ztla(ig,l)-zthl(ig,l))**2
+            if(zw2(ig,l).gt.1.e-10) then
+             wth2(ig,l)=zf2*(zw2(ig,l))**2
+            else
+             wth2(ig,l)=0.
+            endif
+            wth3(ig,l)=zf2*(1-2.*fraca(ig,l))/(1-fraca(ig,l))  &
+     &                *zw2(ig,l)*zw2(ig,l)*zw2(ig,l)
+            q2(ig,l)=zf2*(zqta(ig,l)*1000.-po(ig,l)*1000.)**2
+!test: on calcul q2/po=ratqsc
+            ratqscth(ig,l)=sqrt(max(q2(ig,l),1.e-6)/(po(ig,l)*1000.))
+         enddo
+      enddo
+!calcul des flux: q, thetal et thetav
+      do l=1,nlay
+         do ig=1,ngrid
+      wq(ig,l)=fraca(ig,l)*zw2(ig,l)*(zqta(ig,l)*1000.-po(ig,l)*1000.)
+      wthl(ig,l)=fraca(ig,l)*zw2(ig,l)*(ztla(ig,l)-zthl(ig,l))
+      wthv(ig,l)=fraca(ig,l)*zw2(ig,l)*(ztva(ig,l)-ztv(ig,l))
+         enddo
+      enddo
+!
+! $Id$
+!
+      CALL thermcell_alp(ngrid,nlay,ptimestep  &
+     &                  ,pplay,pplev  &
+     &                  ,fm0,entr0,lmax  &
+     &                  ,Ale_bl,Alp_bl,lalim_conv,wght_th &
+     &                  ,zw2,fraca &
+!!! necessire en plus
+     &                  ,pcon,rhobarz,wth3,wmax_sec,lalim,fm,alim_star,zmax &
+!!! nrlmd le 10/04/2012
+     &                  ,pbl_tke,pctsrf,omega,airephy &
+     &                  ,zlcl,fraca0,w0,w_conv,therm_tke_max0,env_tke_max0 &
+     &                  ,n2,s2,ale_bl_stat &
+     &                  ,therm_tke_max,env_tke_max &
+     &                  ,alp_bl_det,alp_bl_fluct_m,alp_bl_fluct_tke &
+     &                  ,alp_bl_conv,alp_bl_stat &
+!!! fin nrlmd le 10/04/2012
+     &                   )
+
+
+
+!calcul du ratqscdiff
+      if (prt_level.ge.1) print*,'14e OK convect8'
+      var=0.
+      vardiff=0.
+      ratqsdiff(:,:)=0.
+
+      do l=1,klev
+         do ig=1,ngrid
+            if (l<=lalim(ig)) then
+            var=var+alim_star(ig,l)*zqta(ig,l)*1000.
+            endif
+         enddo
+      enddo
+
+      if (prt_level.ge.1) print*,'14f OK convect8'
+
+      do l=1,klev
+         do ig=1,ngrid
+            if (l<=lalim(ig)) then
+               zf=fraca(ig,l)
+               zf2=zf/(1.-zf)
+               vardiff=vardiff+alim_star(ig,l)*(zqta(ig,l)*1000.-var)**2
+            endif
+         enddo
+      enddo
+
+      if (prt_level.ge.1) print*,'14g OK convect8'
+      do l=1,nlay
+         do ig=1,ngrid
+            ratqsdiff(ig,l)=sqrt(vardiff)/(po(ig,l)*1000.)   
+!           write(11,*)'ratqsdiff=',ratqsdiff(ig,l)
+         enddo
+      enddo 
+!--------------------------------------------------------------------    
+!
+!ecriture des fichiers sortie
+!     print*,'15 OK convect8 CCCCCCCCCCCCCCCCCCc'
+
+      endif
+
+      if (prt_level.ge.1) print*,'thermcell_main FIN  OK'
+
+      return
+      end
+
+!-----------------------------------------------------------------------------
+
+      subroutine test_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment)
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+
+      integer i, k, klon,klev
+      real pplev(klon,klev+1),pplay(klon,klev)
+      real ztv(klon,klev)
+      real po(klon,klev)
+      real ztva(klon,klev)
+      real zqla(klon,klev)
+      real f_star(klon,klev)
+      real zw2(klon,klev)
+      integer long(klon)
+      real seuil
+      character*21 comment
+
+      if (prt_level.ge.1) THEN
+       print*,'WARNING !!! TEST ',comment
+      endif
+      return
+
+!  test sur la hauteur des thermiques ...
+         do i=1,klon
+!IMtemp           if (pplay(i,long(i)).lt.seuil*pplev(i,1)) then
+           if (prt_level.ge.10) then
+               print*,'WARNING ',comment,' au point ',i,' K= ',long(i)
+               print*,'  K  P(MB)  THV(K)     Qenv(g/kg)THVA        QLA(g/kg)   F*        W2'
+               do k=1,klev
+                  write(6,'(i3,7f10.3)') k,pplay(i,k),ztv(i,k),1000*po(i,k),ztva(i,k),1000*zqla(i,k),f_star(i,k),zw2(i,k)
+               enddo
+           endif
+         enddo
+
+
+      return
+      end
+
+!!! nrlmd le 10/04/2012                          Transport de la TKE par le thermique moyen pour la fermeture en ALP 
+!                                                         On transporte pbl_tke pour donner therm_tke
+!                                          Copie conforme de la subroutine DTKE dans physiq.F écrite par Frederic Hourdin
+      subroutine thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0,  &
+     &           rg,pplev,therm_tke_max)
+      USE print_control_mod, ONLY: prt_level
+      implicit none
+
+!=======================================================================
+!
+!   Calcul du transport verticale dans la couche limite en presence
+!   de "thermiques" explicitement representes
+!   calcul du dq/dt une fois qu'on connait les ascendances
+!
+!=======================================================================
+
+      integer ngrid,nlay,nsrf
+
+      real ptimestep
+      real masse0(ngrid,nlay),fm0(ngrid,nlay+1),pplev(ngrid,nlay+1)
+      real entr0(ngrid,nlay),rg
+      real therm_tke_max(ngrid,nlay)
+      real detr0(ngrid,nlay)
+
+
+      real masse(ngrid,nlay),fm(ngrid,nlay+1)
+      real entr(ngrid,nlay)
+      real q(ngrid,nlay)
+      integer lev_out                           ! niveau pour les print
+
+      real qa(ngrid,nlay),detr(ngrid,nlay),wqd(ngrid,nlay+1)
+
+      real zzm
+
+      integer ig,k
+      integer isrf
+
+
+      lev_out=0
+
+
+      if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'
+
+!   calcul du detrainement
+      do k=1,nlay
+         detr0(:,k)=fm0(:,k)-fm0(:,k+1)+entr0(:,k)
+         masse0(:,k)=(pplev(:,k)-pplev(:,k+1))/RG
+      enddo
+
+
+! Decalage vertical des entrainements et detrainements.
+      masse(:,1)=0.5*masse0(:,1)
+      entr(:,1)=0.5*entr0(:,1)
+      detr(:,1)=0.5*detr0(:,1)
+      fm(:,1)=0.
+      do k=1,nlay-1
+         masse(:,k+1)=0.5*(masse0(:,k)+masse0(:,k+1))
+         entr(:,k+1)=0.5*(entr0(:,k)+entr0(:,k+1))
+         detr(:,k+1)=0.5*(detr0(:,k)+detr0(:,k+1))
+         fm(:,k+1)=fm(:,k)+entr(:,k)-detr(:,k)
+      enddo
+      fm(:,nlay+1)=0.
+
+!!! nrlmd le 16/09/2010
+!   calcul de la valeur dans les ascendances
+!       do ig=1,ngrid
+!          qa(ig,1)=q(ig,1)
+!       enddo
+!!! 
+
+!do isrf=1,nsrf
+
+!   q(:,:)=therm_tke(:,:,isrf)
+   q(:,:)=therm_tke_max(:,:)
+!!! nrlmd le 16/09/2010
+      do ig=1,ngrid
+         qa(ig,1)=q(ig,1)
+      enddo
+!!!
+
+    if (1==1) then
+      do k=2,nlay
+         do ig=1,ngrid
+            if ((fm(ig,k+1)+detr(ig,k))*ptimestep.gt.  &
+     &         1.e-5*masse(ig,k)) then
+         qa(ig,k)=(fm(ig,k)*qa(ig,k-1)+entr(ig,k)*q(ig,k))  &
+     &         /(fm(ig,k+1)+detr(ig,k))
+            else
+               qa(ig,k)=q(ig,k)
+            endif
+            if (qa(ig,k).lt.0.) then
+!               print*,'qa<0!!!'
+            endif
+            if (q(ig,k).lt.0.) then
+!               print*,'q<0!!!'
+            endif
+         enddo
+      enddo
+
+! Calcul du flux subsident
+
+      do k=2,nlay
+         do ig=1,ngrid
+            wqd(ig,k)=fm(ig,k)*q(ig,k)
+            if (wqd(ig,k).lt.0.) then
+!               print*,'wqd<0!!!'
+            endif
+         enddo
+      enddo
+      do ig=1,ngrid
+         wqd(ig,1)=0.
+         wqd(ig,nlay+1)=0.
+      enddo
+
+! Calcul des tendances
+      do k=1,nlay
+         do ig=1,ngrid
+            q(ig,k)=q(ig,k)+(detr(ig,k)*qa(ig,k)-entr(ig,k)*q(ig,k)  &
+     &               -wqd(ig,k)+wqd(ig,k+1))  &
+     &               *ptimestep/masse(ig,k)
+         enddo
+      enddo
+
+ endif
+
+   therm_tke_max(:,:)=q(:,:)
+
+      return
+!!! fin nrlmd le 10/04/2012
+     end
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_old.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_old.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_old.F90	(revision 3330)
@@ -0,0 +1,5341 @@
+SUBROUTINE thermcell_2002(ngrid, nlay, ptimestep, iflag_thermals, pplay, &
+    pplev, pphi, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, &
+    fraca, wa_moy, r_aspect, l_mix, w2di, tho)
+
+  USE dimphy
+  USE write_field_phy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+
+  ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
+
+  ! le thermique est supposé homogène et dissipé par mélange avec
+  ! son environnement. la longueur l_mix contrôle l'efficacité du
+  ! mélange
+
+  ! Le calcul du transport des différentes espèces se fait en prenant
+  ! en compte:
+  ! 1. un flux de masse montant
+  ! 2. un flux de masse descendant
+  ! 3. un entrainement
+  ! 4. un detrainement
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! declarations:
+  ! -------------
+
+  include "YOMCST.h"
+
+  ! arguments:
+  ! ----------
+
+  INTEGER ngrid, nlay, w2di, iflag_thermals
+  REAL tho
+  REAL ptimestep, l_mix, r_aspect
+  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
+  REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+  REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+  REAL fraca(ngrid, nlay+1), zw2(ngrid, nlay+1)
+
+  INTEGER, SAVE :: idetr = 3, lev_out = 1
+  !$OMP THREADPRIVATE(idetr,lev_out)
+
+  ! local:
+  ! ------
+
+  INTEGER, SAVE :: dvdq = 0, flagdq = 0, dqimpl = 1
+  LOGICAL, SAVE :: debut = .TRUE.
+  !$OMP THREADPRIVATE(dvdq,flagdq,debut,dqimpl)
+
+  INTEGER ig, k, l, lmax(klon, klev+1), lmaxa(klon), lmix(klon)
+  REAL zmax(klon), zw, zz, ztva(klon, klev), zzz
+
+  REAL zlev(klon, klev+1), zlay(klon, klev)
+  REAL zh(klon, klev), zdhadj(klon, klev)
+  REAL ztv(klon, klev)
+  REAL zu(klon, klev), zv(klon, klev), zo(klon, klev)
+  REAL wh(klon, klev+1)
+  REAL wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
+  REAL zla(klon, klev+1)
+  REAL zwa(klon, klev+1)
+  REAL zld(klon, klev+1)
+  REAL zwd(klon, klev+1)
+  REAL zsortie(klon, klev)
+  REAL zva(klon, klev)
+  REAL zua(klon, klev)
+  REAL zoa(klon, klev)
+
+  REAL zha(klon, klev)
+  REAL wa_moy(klon, klev+1)
+  REAL fracc(klon, klev+1)
+  REAL zf, zf2
+  REAL thetath2(klon, klev), wth2(klon, klev)
+  ! common/comtherm/thetath2,wth2
+
+  REAL count_time
+
+  LOGICAL sorties
+  REAL rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  REAL wmax(klon, klev), wmaxa(klon)
+
+  REAL wa(klon, klev, klev+1)
+  REAL wd(klon, klev+1)
+  REAL larg_part(klon, klev, klev+1)
+  REAL fracd(klon, klev+1)
+  REAL xxx(klon, klev+1)
+  REAL larg_cons(klon, klev+1)
+  REAL larg_detr(klon, klev+1)
+  REAL fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
+  REAL pu_therm(klon, klev), pv_therm(klon, klev)
+  REAL fm(klon, klev+1), entr(klon, klev)
+  REAL fmc(klon, klev+1)
+
+  CHARACTER (LEN=2) :: str2
+  CHARACTER (LEN=10) :: str10
+
+  CHARACTER (LEN=20) :: modname = 'thermcell2002'
+  CHARACTER (LEN=80) :: abort_message
+
+  LOGICAL vtest(klon), down
+
+  EXTERNAL scopy
+
+  INTEGER ncorrec, ll
+  SAVE ncorrec
+  DATA ncorrec/0/
+  !$OMP THREADPRIVATE(ncorrec)
+
+
+  ! -----------------------------------------------------------------------
+  ! initialisation:
+  ! ---------------
+
+  sorties = .TRUE.
+  IF (ngrid/=klon) THEN
+    PRINT *
+    PRINT *, 'STOP dans convadj'
+    PRINT *, 'ngrid    =', ngrid
+    PRINT *, 'klon  =', klon
+  END IF
+
+  ! -----------------------------------------------------------------------
+  ! incrementation eventuelle de tendances precedentes:
+  ! ---------------------------------------------------
+
+  ! print*,'0 OK convect8'
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zpspsk(ig, l) = (pplay(ig,l)/pplev(ig,1))**rkappa
+      zh(ig, l) = pt(ig, l)/zpspsk(ig, l)
+      zu(ig, l) = pu(ig, l)
+      zv(ig, l) = pv(ig, l)
+      zo(ig, l) = po(ig, l)
+      ztv(ig, l) = zh(ig, l)*(1.+0.61*zo(ig,l))
+    END DO
+  END DO
+
+  ! print*,'1 OK convect8'
+  ! --------------------
+
+
+  ! + + + + + + + + + + +
+
+
+  ! wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+  ! wh,wt,wo ...
+
+  ! + + + + + + + + + + +  zh,zu,zv,zo,rho
+
+
+  ! --------------------   zlev(1)
+  ! \\\\\\\\\\\\\\\\\\\\
+
+
+
+  ! -----------------------------------------------------------------------
+  ! Calcul des altitudes des couches
+  ! -----------------------------------------------------------------------
+
+  IF (debut) THEN
+    flagdq = (iflag_thermals-1000)/100
+    dvdq = (iflag_thermals-(1000+flagdq*100))/10
+    IF (flagdq==2) dqimpl = -1
+    IF (flagdq==3) dqimpl = 1
+    debut = .FALSE.
+  END IF
+  PRINT *, 'TH flag th ', iflag_thermals, flagdq, dvdq, dqimpl
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      zlev(ig, l) = 0.5*(pphi(ig,l)+pphi(ig,l-1))/rg
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zlev(ig, 1) = 0.
+    zlev(ig, nlay+1) = (2.*pphi(ig,klev)-pphi(ig,klev-1))/rg
+  END DO
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zlay(ig, l) = pphi(ig, l)/rg
+    END DO
+  END DO
+
+  ! print*,'2 OK convect8'
+  ! -----------------------------------------------------------------------
+  ! Calcul des densites
+  ! -----------------------------------------------------------------------
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      rho(ig, l) = pplay(ig, l)/(zpspsk(ig,l)*rd*zh(ig,l))
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      rhobarz(ig, l) = 0.5*(rho(ig,l)+rho(ig,l-1))
+    END DO
+  END DO
+
+  DO k = 1, nlay
+    DO l = 1, nlay + 1
+      DO ig = 1, ngrid
+        wa(ig, k, l) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! print*,'3 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calcul de w2, quarre de w a partir de la cape
+  ! a partir de w2, on calcule wa, vitesse de l'ascendance
+
+  ! ATTENTION: Dans cette version, pour cause d'economie de memoire,
+  ! w2 est stoke dans wa
+
+  ! ATTENTION: dans convect8, on n'utilise le calcule des wa
+  ! independants par couches que pour calculer l'entrainement
+  ! a la base et la hauteur max de l'ascendance.
+
+  ! Indicages:
+  ! l'ascendance provenant du niveau k traverse l'interface l avec
+  ! une vitesse wa(k,l).
+
+  ! --------------------
+
+  ! + + + + + + + + + +
+
+  ! wa(k,l)   ----       --------------------    l
+  ! /\
+  ! /||\       + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||
+  ! ||        + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||__
+  ! |___      + + + + + + + + + +     k
+
+  ! --------------------
+
+
+
+  ! ------------------------------------------------------------------
+
+
+  DO k = 1, nlay - 1
+    DO ig = 1, ngrid
+      wa(ig, k, k) = 0.
+      wa(ig, k, k+1) = 2.*rg*(ztv(ig,k)-ztv(ig,k+1))/ztv(ig, k+1)* &
+        (zlev(ig,k+1)-zlev(ig,k))
+    END DO
+    DO l = k + 1, nlay - 1
+      DO ig = 1, ngrid
+        wa(ig, k, l+1) = wa(ig, k, l) + 2.*rg*(ztv(ig,k)-ztv(ig,l))/ztv(ig, l &
+          )*(zlev(ig,l+1)-zlev(ig,l))
+      END DO
+    END DO
+    DO ig = 1, ngrid
+      wa(ig, k, nlay+1) = 0.
+    END DO
+  END DO
+
+  ! print*,'4 OK convect8'
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO k = 1, nlay - 1
+    DO ig = 1, ngrid
+      lmax(ig, k) = k
+    END DO
+    DO l = nlay, k + 1, -1
+      DO ig = 1, ngrid
+        IF (wa(ig,k,l)<=1.E-10) lmax(ig, k) = l - 1
+      END DO
+    END DO
+  END DO
+
+  ! print*,'5 OK convect8'
+  ! Calcule du w max du thermique
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      wmax(ig, k) = 0.
+    END DO
+  END DO
+
+  DO k = 1, nlay - 1
+    DO l = k, nlay
+      DO ig = 1, ngrid
+        IF (l<=lmax(ig,k)) THEN
+          wa(ig, k, l) = sqrt(wa(ig,k,l))
+          wmax(ig, k) = max(wmax(ig,k), wa(ig,k,l))
+        ELSE
+          wa(ig, k, l) = 0.
+        END IF
+      END DO
+    END DO
+  END DO
+
+  DO k = 1, nlay - 1
+    DO ig = 1, ngrid
+      pu_therm(ig, k) = sqrt(wmax(ig,k))
+      pv_therm(ig, k) = sqrt(wmax(ig,k))
+    END DO
+  END DO
+
+  ! print*,'6 OK convect8'
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 500.
+  END DO
+  ! print*,'LMAX LMAX LMAX '
+  DO k = 1, nlay - 1
+    DO ig = 1, ngrid
+      zmax(ig) = max(zmax(ig), zlev(ig,lmax(ig,k))-zlev(ig,k))
+    END DO
+    ! print*,k,lmax(1,k)
+  END DO
+  ! print*,'ZMAX ZMAX ZMAX ',zmax
+  ! call dump2d(iim,jjm-1,zmax(2:ngrid-1),'ZMAX      ')
+
+  ! print*,'OKl336'
+  ! Calcul de l'entrainement.
+  ! Le rapport d'aspect relie la largeur de l'ascendance a l'epaisseur
+  ! de la couche d'alimentation en partant du principe que la vitesse
+  ! maximum dans l'ascendance est la vitesse d'entrainement horizontale.
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      zzz = rho(ig, k)*wmax(ig, k)*(zlev(ig,k+1)-zlev(ig,k))/ &
+        (zmax(ig)*r_aspect)
+      IF (w2di==2) THEN
+        entr(ig, k) = entr(ig, k) + ptimestep*(zzz-entr(ig,k))/tho
+      ELSE
+        entr(ig, k) = zzz
+      END IF
+      ztva(ig, k) = ztv(ig, k)
+    END DO
+  END DO
+
+
+  ! print*,'7 OK convect8'
+  DO k = 1, klev + 1
+    DO ig = 1, ngrid
+      zw2(ig, k) = 0.
+      fmc(ig, k) = 0.
+      larg_cons(ig, k) = 0.
+      larg_detr(ig, k) = 0.
+      wa_moy(ig, k) = 0.
+    END DO
+  END DO
+
+  ! print*,'8 OK convect8'
+  DO ig = 1, ngrid
+    lmaxa(ig) = 1
+    lmix(ig) = 1
+    wmaxa(ig) = 0.
+  END DO
+
+
+  ! print*,'OKl372'
+  DO l = 1, nlay - 2
+    DO ig = 1, ngrid
+      ! if (zw2(ig,l).lt.1.e-10.and.ztv(ig,l).gt.ztv(ig,l+1)) then
+      ! print*,'COUCOU ',l,zw2(ig,l),ztv(ig,l),ztv(ig,l+1)
+      IF (zw2(ig,l)<1.E-10 .AND. ztv(ig,l)>ztv(ig,l+1) .AND. &
+          entr(ig,l)>1.E-10) THEN
+        ! print*,'COUCOU cas 1'
+        ! Initialisation de l'ascendance
+        ! lmix(ig)=1
+        ztva(ig, l) = ztv(ig, l)
+        fmc(ig, l) = 0.
+        fmc(ig, l+1) = entr(ig, l)
+        zw2(ig, l) = 0.
+        ! if (.not.ztv(ig,l+1).gt.150.) then
+        ! print*,'ig,l+1,ztv(ig,l+1)'
+        ! print*, ig,l+1,ztv(ig,l+1)
+        ! endif
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))
+        larg_detr(ig, l) = 0.
+      ELSE IF (zw2(ig,l)>=1.E-10 .AND. fmc(ig,l)+entr(ig,l)>1.E-10) THEN
+        ! Incrementation...
+        fmc(ig, l+1) = fmc(ig, l) + entr(ig, l)
+        ! if (.not.fmc(ig,l+1).gt.1.e-15) then
+        ! print*,'ig,l+1,fmc(ig,l+1)'
+        ! print*, ig,l+1,fmc(ig,l+1)
+        ! print*,'Fmc ',(fmc(ig,ll),ll=1,klev+1)
+        ! print*,'W2 ',(zw2(ig,ll),ll=1,klev+1)
+        ! print*,'Tv ',(ztv(ig,ll),ll=1,klev)
+        ! print*,'Entr ',(entr(ig,ll),ll=1,klev)
+        ! endif
+        ztva(ig, l) = (fmc(ig,l)*ztva(ig,l-1)+entr(ig,l)*ztv(ig,l))/ &
+          fmc(ig, l+1)
+        ! mise a jour de la vitesse ascendante (l'air entraine de la couche
+        ! consideree commence avec une vitesse nulle).
+        zw2(ig, l+1) = zw2(ig, l)*(fmc(ig,l)/fmc(ig,l+1))**2 + &
+          2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, l)*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+      IF (zw2(ig,l+1)<0.) THEN
+        zw2(ig, l+1) = 0.
+        lmaxa(ig) = l
+      ELSE
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+      ! print*,'COUCOU cas 2 LMIX=',lmix(ig),wa_moy(ig,l+1),wmaxa(ig)
+    END DO
+  END DO
+
+  ! print*,'9 OK convect8'
+  ! print*,'WA1 ',wa_moy
+
+  ! determination de l'indice du debut de la mixed layer ou w decroit
+
+  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
+  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
+  ! d'une couche est égale à la hauteur de la couche alimentante.
+  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
+  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
+
+  ! print*,'OKl439'
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        zw = max(wa_moy(ig,l), 1.E-10)
+        larg_cons(ig, l) = zmax(ig)*r_aspect*fmc(ig, l)/(rhobarz(ig,l)*zw)
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        ! if (idetr.eq.0) then
+        ! cette option est finalement en dur.
+        larg_detr(ig, l) = sqrt(l_mix*zlev(ig,l))
+        ! else if (idetr.eq.1) then
+        ! larg_detr(ig,l)=larg_cons(ig,l)
+        ! s            *sqrt(l_mix*zlev(ig,l))/larg_cons(ig,lmix(ig))
+        ! else if (idetr.eq.2) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *sqrt(wa_moy(ig,l))
+        ! else if (idetr.eq.4) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *wa_moy(ig,l)
+        ! endif
+      END IF
+    END DO
+  END DO
+
+  ! print*,'10 OK convect8'
+  ! print*,'WA2 ',wa_moy
+  ! calcul de la fraction de la maille concernée par l'ascendance en tenant
+  ! compte de l'epluchage du thermique.
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        ! print*,ig,l,lmix(ig),lmaxa(ig),larg_cons(ig,l),'  KKK'
+        fraca(ig, l) = (larg_cons(ig,l)-larg_detr(ig,l))/(r_aspect*zmax(ig))
+        IF (l>lmix(ig)) THEN
+          xxx(ig, l) = (lmaxa(ig)+1.-l)/(lmaxa(ig)+1.-lmix(ig))
+          IF (idetr==0) THEN
+            fraca(ig, l) = fraca(ig, lmix(ig))
+          ELSE IF (idetr==1) THEN
+            fraca(ig, l) = fraca(ig, lmix(ig))*xxx(ig, l)
+          ELSE IF (idetr==2) THEN
+            fraca(ig, l) = fraca(ig, lmix(ig))*(1.-(1.-xxx(ig,l))**2)
+          ELSE
+            fraca(ig, l) = fraca(ig, lmix(ig))*xxx(ig, l)**2
+          END IF
+        END IF
+        ! print*,ig,l,lmix(ig),lmaxa(ig),xxx(ig,l),'LLLLLLL'
+        fraca(ig, l) = max(fraca(ig,l), 0.)
+        fraca(ig, l) = min(fraca(ig,l), 0.5)
+        fracd(ig, l) = 1. - fraca(ig, l)
+        fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+      ELSE
+        ! wa_moy(ig,l)=0.
+        fraca(ig, l) = 0.
+        fracc(ig, l) = 0.
+        fracd(ig, l) = 1.
+      END IF
+    END DO
+  END DO
+
+  ! print*,'11 OK convect8'
+  ! print*,'Ea3 ',wa_moy
+  ! ------------------------------------------------------------------
+  ! Calcul de fracd, wd
+  ! somme wa - wd = 0
+  ! ------------------------------------------------------------------
+
+
+  DO ig = 1, ngrid
+    fm(ig, 1) = 0.
+    fm(ig, nlay+1) = 0.
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      fm(ig, l) = fraca(ig, l)*wa_moy(ig, l)*rhobarz(ig, l)
+    END DO
+    DO ig = 1, ngrid
+      IF (fracd(ig,l)<0.1) THEN
+        abort_message = 'fracd trop petit'
+        CALL abort_physic(modname, abort_message, 1)
+      ELSE
+        ! vitesse descendante "diagnostique"
+        wd(ig, l) = fm(ig, l)/(fracd(ig,l)*rhobarz(ig,l))
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+
+  ! print*,'12 OK convect8'
+  ! print*,'WA4 ',wa_moy
+  ! c------------------------------------------------------------------
+  ! calcul du transport vertical
+  ! ------------------------------------------------------------------
+
+  GO TO 4444
+  ! print*,'XXXXXXXXXXXXXXX ptimestep= ',ptimestep
+  DO l = 2, nlay - 1
+    DO ig = 1, ngrid
+      IF (fm(ig,l+1)*ptimestep>masse(ig,l) .AND. fm(ig,l+1)*ptimestep>masse( &
+          ig,l+1)) THEN
+        ! print*,'WARN!!! FM>M ig=',ig,' l=',l,'  FM='
+        ! s         ,fm(ig,l+1)*ptimestep
+        ! s         ,'   M=',masse(ig,l),masse(ig,l+1)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (entr(ig,l)*ptimestep>masse(ig,l)) THEN
+        ! print*,'WARN!!! E>M ig=',ig,' l=',l,'  E=='
+        ! s         ,entr(ig,l)*ptimestep
+        ! s         ,'   M=',masse(ig,l)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (.NOT. fm(ig,l)>=0. .OR. .NOT. fm(ig,l)<=10.) THEN
+        ! print*,'WARN!!! fm exagere ig=',ig,'   l=',l
+        ! s         ,'   FM=',fm(ig,l)
+      END IF
+      IF (.NOT. masse(ig,l)>=1.E-10 .OR. .NOT. masse(ig,l)<=1.E4) THEN
+        ! print*,'WARN!!! masse exagere ig=',ig,'   l=',l
+        ! s         ,'   M=',masse(ig,l)
+        ! print*,'rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)',
+        ! s                 rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)
+        ! print*,'zlev(ig,l+1),zlev(ig,l)'
+        ! s                ,zlev(ig,l+1),zlev(ig,l)
+        ! print*,'pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)'
+        ! s                ,pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)
+      END IF
+      IF (.NOT. entr(ig,l)>=0. .OR. .NOT. entr(ig,l)<=10.) THEN
+        ! print*,'WARN!!! entr exagere ig=',ig,'   l=',l
+        ! s         ,'   E=',entr(ig,l)
+      END IF
+    END DO
+  END DO
+
+4444 CONTINUE
+  ! print*,'OK 444 '
+
+  IF (w2di==1) THEN
+    fm0 = fm0 + ptimestep*(fm-fm0)/tho
+    entr0 = entr0 + ptimestep*(entr-entr0)/tho
+  ELSE
+    fm0 = fm
+    entr0 = entr
+  END IF
+
+  IF (flagdq==0) THEN
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zh, zdhadj, &
+      zha)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zo, pdoadj, &
+      zoa)
+    PRINT *, 'THERMALS OPT 1'
+  ELSE IF (flagdq==1) THEN
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zh, &
+      zdhadj, zha)
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zo, &
+      pdoadj, zoa)
+    PRINT *, 'THERMALS OPT 2'
+  ELSE
+    CALL thermcell_dq(ngrid, nlay, dqimpl, ptimestep, fm0, entr0, masse, zh, &
+      zdhadj, zha, lev_out)
+    CALL thermcell_dq(ngrid, nlay, dqimpl, ptimestep, fm0, entr0, masse, zo, &
+      pdoadj, zoa, lev_out)
+    PRINT *, 'THERMALS OPT 3', dqimpl
+  END IF
+
+  PRINT *, 'TH VENT ', dvdq
+  IF (dvdq==0) THEN
+    ! print*,'TH VENT OK ',dvdq
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zu, pduadj, &
+      zua)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zv, pdvadj, &
+      zva)
+  ELSE IF (dvdq==1) THEN
+    CALL dvthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zmax, &
+      zu, zv, pduadj, pdvadj, zua, zva)
+  ELSE IF (dvdq==2) THEN
+    CALL thermcell_dv2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, &
+      zmax, zu, zv, pduadj, pdvadj, zua, zva, lev_out)
+  ELSE IF (dvdq==3) THEN
+    CALL thermcell_dq(ngrid, nlay, dqimpl, ptimestep, fm0, entr0, masse, zu, &
+      pduadj, zua, lev_out)
+    CALL thermcell_dq(ngrid, nlay, dqimpl, ptimestep, fm0, entr0, masse, zv, &
+      pdvadj, zva, lev_out)
+  END IF
+
+  ! CALL writefield_phy('duadj',pduadj,klev)
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zf = 0.5*(fracc(ig,l)+fracc(ig,l+1))
+      zf2 = zf/(1.-zf)
+      thetath2(ig, l) = zf2*(zha(ig,l)-zh(ig,l))**2
+      wth2(ig, l) = zf2*(0.5*(wa_moy(ig,l)+wa_moy(ig,l+1)))**2
+    END DO
+  END DO
+
+
+
+  ! print*,'13 OK convect8'
+  ! print*,'WA5 ',wa_moy
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      pdtadj(ig, l) = zdhadj(ig, l)*zpspsk(ig, l)
+    END DO
+  END DO
+
+
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! if(abs(pdtadj(ig,l))*86400..gt.500.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdtadj=',pdtadj(ig,l)
+  ! endif
+  ! if(abs(pdoadj(ig,l))*86400..gt.1.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdoadj=',pdoadj(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+
+  ! print*,'14 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calculs pour les sorties
+  ! ------------------------------------------------------------------
+
+  IF (sorties) THEN
+    DO l = 1, nlay
+      DO ig = 1, ngrid
+        zla(ig, l) = (1.-fracd(ig,l))*zmax(ig)
+        zld(ig, l) = fracd(ig, l)*zmax(ig)
+        IF (1.-fracd(ig,l)>1.E-10) zwa(ig, l) = wd(ig, l)*fracd(ig, l)/ &
+          (1.-fracd(ig,l))
+      END DO
+    END DO
+
+    DO l = 1, nlay
+      DO ig = 1, ngrid
+        detr(ig, l) = fm(ig, l) + entr(ig, l) - fm(ig, l+1)
+        IF (detr(ig,l)<0.) THEN
+          entr(ig, l) = entr(ig, l) - detr(ig, l)
+          detr(ig, l) = 0.
+          ! print*,'WARNING !!! detrainement negatif ',ig,l
+        END IF
+      END DO
+    END DO
+  END IF
+
+  ! print*,'15 OK convect8'
+
+
+  ! if(wa_moy(1,4).gt.1.e-10) stop
+
+  ! print*,'19 OK convect8'
+  RETURN
+END SUBROUTINE thermcell_2002
+
+SUBROUTINE thermcell_cld(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, &
+    debut, pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, zqla, &
+    lmax, zmax_sec, wmax_sec, zw_sec, lmix_sec, ratqscth, ratqsdiff & ! s
+                                                                      ! ,pu_therm,pv_therm
+    , r_aspect, l_mix, w2di, tho)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+
+  ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
+
+  ! le thermique est supposé homogène et dissipé par mélange avec
+  ! son environnement. la longueur l_mix contrôle l'efficacité du
+  ! mélange
+
+  ! Le calcul du transport des différentes espèces se fait en prenant
+  ! en compte:
+  ! 1. un flux de masse montant
+  ! 2. un flux de masse descendant
+  ! 3. un entrainement
+  ! 4. un detrainement
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! declarations:
+  ! -------------
+
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  ! arguments:
+  ! ----------
+
+  INTEGER ngrid, nlay, w2di
+  REAL tho
+  REAL ptimestep, l_mix, r_aspect
+  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
+  REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+  REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+
+  INTEGER idetr
+  SAVE idetr
+  DATA idetr/3/
+  !$OMP THREADPRIVATE(idetr)
+
+  ! local:
+  ! ------
+
+  INTEGER ig, k, l, lmaxa(klon), lmix(klon)
+  REAL zsortie1d(klon)
+  ! CR: on remplace lmax(klon,klev+1)
+  INTEGER lmax(klon), lmin(klon), lentr(klon)
+  REAL linter(klon)
+  REAL zmix(klon), fracazmix(klon)
+  REAL alpha
+  SAVE alpha
+  DATA alpha/1./
+  !$OMP THREADPRIVATE(alpha)
+
+  ! RC
+  REAL zmax(klon), zw, zz, zw2(klon, klev+1), ztva(klon, klev), zzz
+  REAL zmax_sec(klon)
+  REAL zmax_sec2(klon)
+  REAL zw_sec(klon, klev+1)
+  INTEGER lmix_sec(klon)
+  REAL w_est(klon, klev+1)
+  ! on garde le zmax du pas de temps precedent
+  ! real zmax0(klon)
+  ! save zmax0
+  ! real zmix0(klon)
+  ! save zmix0
+  REAL, SAVE, ALLOCATABLE :: zmax0(:), zmix0(:)
+  !$OMP THREADPRIVATE(zmax0, zmix0)
+
+  REAL zlev(klon, klev+1), zlay(klon, klev)
+  REAL deltaz(klon, klev)
+  REAL zh(klon, klev), zdhadj(klon, klev)
+  REAL zthl(klon, klev), zdthladj(klon, klev)
+  REAL ztv(klon, klev)
+  REAL zu(klon, klev), zv(klon, klev), zo(klon, klev)
+  REAL zl(klon, klev)
+  REAL wh(klon, klev+1)
+  REAL wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
+  REAL zla(klon, klev+1)
+  REAL zwa(klon, klev+1)
+  REAL zld(klon, klev+1)
+  REAL zwd(klon, klev+1)
+  REAL zsortie(klon, klev)
+  REAL zva(klon, klev)
+  REAL zua(klon, klev)
+  REAL zoa(klon, klev)
+
+  REAL zta(klon, klev)
+  REAL zha(klon, klev)
+  REAL wa_moy(klon, klev+1)
+  REAL fraca(klon, klev+1)
+  REAL fracc(klon, klev+1)
+  REAL zf, zf2
+  REAL thetath2(klon, klev), wth2(klon, klev), wth3(klon, klev)
+  REAL q2(klon, klev)
+  REAL dtheta(klon, klev)
+  ! common/comtherm/thetath2,wth2
+
+  REAL ratqscth(klon, klev)
+  REAL sum
+  REAL sumdiff
+  REAL ratqsdiff(klon, klev)
+  REAL count_time
+  INTEGER ialt
+
+  LOGICAL sorties
+  REAL rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  ! real wmax(klon,klev),wmaxa(klon)
+  REAL wmax(klon), wmaxa(klon)
+  REAL wmax_sec(klon)
+  REAL wmax_sec2(klon)
+  REAL wa(klon, klev, klev+1)
+  REAL wd(klon, klev+1)
+  REAL larg_part(klon, klev, klev+1)
+  REAL fracd(klon, klev+1)
+  REAL xxx(klon, klev+1)
+  REAL larg_cons(klon, klev+1)
+  REAL larg_detr(klon, klev+1)
+  REAL fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
+  REAL massetot(klon, klev)
+  REAL detr0(klon, klev)
+  REAL alim0(klon, klev)
+  REAL pu_therm(klon, klev), pv_therm(klon, klev)
+  REAL fm(klon, klev+1), entr(klon, klev)
+  REAL fmc(klon, klev+1)
+
+  REAL zcor, zdelta, zcvm5, qlbef
+  REAL tbef(klon), qsatbef(klon)
+  REAL dqsat_dt, dt, num, denom
+  REAL reps, rlvcp, ddt0
+  REAL ztla(klon, klev), zqla(klon, klev), zqta(klon, klev)
+  ! CR niveau de condensation
+  REAL nivcon(klon)
+  REAL zcon(klon)
+  REAL zqsat(klon, klev)
+  REAL zqsatth(klon, klev)
+  PARAMETER (ddt0=.01)
+
+
+  ! CR:nouvelles variables
+  REAL f_star(klon, klev+1), entr_star(klon, klev)
+  REAL detr_star(klon, klev)
+  REAL alim_star_tot(klon), alim_star2(klon)
+  REAL entr_star_tot(klon)
+  REAL detr_star_tot(klon)
+  REAL alim_star(klon, klev)
+  REAL alim(klon, klev)
+  REAL nu(klon, klev)
+  REAL nu_e(klon, klev)
+  REAL nu_min
+  REAL nu_max
+  REAL nu_r
+  REAL f(klon)
+  ! real f(klon), f0(klon)
+  ! save f0
+  REAL, SAVE, ALLOCATABLE :: f0(:)
+  !$OMP THREADPRIVATE(f0)
+
+  REAL f_old
+  REAL zlevinter(klon)
+  LOGICAL, SAVE :: first = .TRUE.
+  !$OMP THREADPRIVATE(first)
+  ! data first /.false./
+  ! save first
+  LOGICAL nuage
+  ! save nuage
+  LOGICAL boucle
+  LOGICAL therm
+  LOGICAL debut
+  LOGICAL rale
+  INTEGER test(klon)
+  INTEGER signe_zw2
+  ! RC
+
+  CHARACTER *2 str2
+  CHARACTER *10 str10
+
+  CHARACTER (LEN=20) :: modname = 'thermcell_cld'
+  CHARACTER (LEN=80) :: abort_message
+
+  LOGICAL vtest(klon), down
+  LOGICAL zsat(klon)
+
+  EXTERNAL scopy
+
+  INTEGER ncorrec, ll
+  SAVE ncorrec
+  DATA ncorrec/0/
+  !$OMP THREADPRIVATE(ncorrec)
+
+
+
+  ! -----------------------------------------------------------------------
+  ! initialisation:
+  ! ---------------
+
+  IF (first) THEN
+    ALLOCATE (zmix0(klon))
+    ALLOCATE (zmax0(klon))
+    ALLOCATE (f0(klon))
+    first = .FALSE.
+  END IF
+
+  sorties = .FALSE.
+  ! print*,'NOUVEAU DETR PLUIE '
+  IF (ngrid/=klon) THEN
+    PRINT *
+    PRINT *, 'STOP dans convadj'
+    PRINT *, 'ngrid    =', ngrid
+    PRINT *, 'klon  =', klon
+  END IF
+
+  ! Initialisation
+  rlvcp = rlvtt/rcpd
+  reps = rd/rv
+  ! initialisations de zqsat
+  DO ll = 1, nlay
+    DO ig = 1, ngrid
+      zqsat(ig, ll) = 0.
+      zqsatth(ig, ll) = 0.
+    END DO
+  END DO
+
+  ! on met le first a true pour le premier passage de la journée
+  DO ig = 1, klon
+    test(ig) = 0
+  END DO
+  IF (debut) THEN
+    DO ig = 1, klon
+      test(ig) = 1
+      f0(ig) = 0.
+      zmax0(ig) = 0.
+    END DO
+  END IF
+  DO ig = 1, klon
+    IF ((.NOT. debut) .AND. (f0(ig)<1.E-10)) THEN
+      test(ig) = 1
+    END IF
+  END DO
+  ! do ig=1,klon
+  ! print*,'test(ig)',test(ig),zmax0(ig)
+  ! enddo
+  nuage = .FALSE.
+  ! -----------------------------------------------------------------------
+  ! AM Calcul de T,q,ql a partir de Tl et qT
+  ! ---------------------------------------------------
+
+  ! Pr Tprec=Tl calcul de qsat
+  ! Si qsat>qT T=Tl, q=qT
+  ! Sinon DDT=(-Tprec+Tl+RLVCP (qT-qsat(T')) / (1+RLVCP dqsat/dt)
+  ! On cherche DDT < DDT0
+
+  ! defaut
+  DO ll = 1, nlay
+    DO ig = 1, ngrid
+      zo(ig, ll) = po(ig, ll)
+      zl(ig, ll) = 0.
+      zh(ig, ll) = pt(ig, ll)
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zsat(ig) = .FALSE.
+  END DO
+
+
+  DO ll = 1, nlay
+    ! les points insatures sont definitifs
+    DO ig = 1, ngrid
+      tbef(ig) = pt(ig, ll)
+      zdelta = max(0., sign(1.,rtt-tbef(ig)))
+      qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, ll)
+      qsatbef(ig) = min(0.5, qsatbef(ig))
+      zcor = 1./(1.-retv*qsatbef(ig))
+      qsatbef(ig) = qsatbef(ig)*zcor
+      zsat(ig) = (max(0.,po(ig,ll)-qsatbef(ig))>1.E-10)
+    END DO
+
+    DO ig = 1, ngrid
+      IF (zsat(ig) .AND. (1==1)) THEN
+        qlbef = max(0., po(ig,ll)-qsatbef(ig))
+        ! si sature: ql est surestime, d'ou la sous-relax
+        dt = 0.5*rlvcp*qlbef
+        ! write(18,*),'DT0=',DT
+        ! on pourra enchainer 2 ou 3 calculs sans Do while
+        DO WHILE (abs(dt)>ddt0)
+          ! il faut verifier si c,a conserve quand on repasse en insature ...
+          tbef(ig) = tbef(ig) + dt
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, ll)
+          qsatbef(ig) = min(0.5, qsatbef(ig))
+          zcor = 1./(1.-retv*qsatbef(ig))
+          qsatbef(ig) = qsatbef(ig)*zcor
+          ! on veut le signe de qlbef
+          qlbef = po(ig, ll) - qsatbef(ig)
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          zcvm5 = r5les*(1.-zdelta) + r5ies*zdelta
+          zcor = 1./(1.-retv*qsatbef(ig))
+          dqsat_dt = foede(tbef(ig), zdelta, zcvm5, qsatbef(ig), zcor)
+          num = -tbef(ig) + pt(ig, ll) + rlvcp*qlbef
+          denom = 1. + rlvcp*dqsat_dt
+          IF (denom<1.E-10) THEN
+            PRINT *, 'pb denom'
+          END IF
+          dt = num/denom
+        END DO
+        ! on ecrit de maniere conservative (sat ou non)
+        zl(ig, ll) = max(0., qlbef)
+        ! T = Tl +Lv/Cp ql
+        zh(ig, ll) = pt(ig, ll) + rlvcp*zl(ig, ll)
+        zo(ig, ll) = po(ig, ll) - zl(ig, ll)
+      END IF
+      ! on ecrit zqsat
+      zqsat(ig, ll) = qsatbef(ig)
+    END DO
+  END DO
+  ! AM fin
+
+  ! -----------------------------------------------------------------------
+  ! incrementation eventuelle de tendances precedentes:
+  ! ---------------------------------------------------
+
+  ! print*,'0 OK convect8'
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zpspsk(ig, l) = (pplay(ig,l)/100000.)**rkappa
+      ! zpspsk(ig,l)=(pplay(ig,l)/pplev(ig,1))**RKAPPA
+      ! zh(ig,l)=pt(ig,l)/zpspsk(ig,l)
+      zu(ig, l) = pu(ig, l)
+      zv(ig, l) = pv(ig, l)
+      ! zo(ig,l)=po(ig,l)
+      ! ztv(ig,l)=zh(ig,l)*(1.+0.61*zo(ig,l))
+      ! AM attention zh est maintenant le profil de T et plus le profil de
+      ! theta !
+
+      ! T-> Theta
+      ztv(ig, l) = zh(ig, l)/zpspsk(ig, l)
+      ! AM Theta_v
+      ztv(ig, l) = ztv(ig, l)*(1.+retv*(zo(ig,l))-zl(ig,l))
+      ! AM Thetal
+      zthl(ig, l) = pt(ig, l)/zpspsk(ig, l)
+
+    END DO
+  END DO
+
+  ! print*,'1 OK convect8'
+  ! --------------------
+
+
+  ! + + + + + + + + + + +
+
+
+  ! wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+  ! wh,wt,wo ...
+
+  ! + + + + + + + + + + +  zh,zu,zv,zo,rho
+
+
+  ! --------------------   zlev(1)
+  ! \\\\\\\\\\\\\\\\\\\\
+
+
+
+  ! -----------------------------------------------------------------------
+  ! Calcul des altitudes des couches
+  ! -----------------------------------------------------------------------
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      zlev(ig, l) = 0.5*(pphi(ig,l)+pphi(ig,l-1))/rg
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zlev(ig, 1) = 0.
+    zlev(ig, nlay+1) = (2.*pphi(ig,klev)-pphi(ig,klev-1))/rg
+  END DO
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zlay(ig, l) = pphi(ig, l)/rg
+    END DO
+  END DO
+  ! calcul de deltaz
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      deltaz(ig, l) = zlev(ig, l+1) - zlev(ig, l)
+    END DO
+  END DO
+
+  ! print*,'2 OK convect8'
+  ! -----------------------------------------------------------------------
+  ! Calcul des densites
+  ! -----------------------------------------------------------------------
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! rho(ig,l)=pplay(ig,l)/(zpspsk(ig,l)*RD*zh(ig,l))
+      rho(ig, l) = pplay(ig, l)/(zpspsk(ig,l)*rd*ztv(ig,l))
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      rhobarz(ig, l) = 0.5*(rho(ig,l)+rho(ig,l-1))
+    END DO
+  END DO
+
+  DO k = 1, nlay
+    DO l = 1, nlay + 1
+      DO ig = 1, ngrid
+        wa(ig, k, l) = 0.
+      END DO
+    END DO
+  END DO
+  ! Cr:ajout:calcul de la masse
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+  ! print*,'3 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calcul de w2, quarre de w a partir de la cape
+  ! a partir de w2, on calcule wa, vitesse de l'ascendance
+
+  ! ATTENTION: Dans cette version, pour cause d'economie de memoire,
+  ! w2 est stoke dans wa
+
+  ! ATTENTION: dans convect8, on n'utilise le calcule des wa
+  ! independants par couches que pour calculer l'entrainement
+  ! a la base et la hauteur max de l'ascendance.
+
+  ! Indicages:
+  ! l'ascendance provenant du niveau k traverse l'interface l avec
+  ! une vitesse wa(k,l).
+
+  ! --------------------
+
+  ! + + + + + + + + + +
+
+  ! wa(k,l)   ----       --------------------    l
+  ! /\
+  ! /||\       + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||
+  ! ||        + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||__
+  ! |___      + + + + + + + + + +     k
+
+  ! --------------------
+
+
+
+  ! ------------------------------------------------------------------
+
+  ! CR: ponderation entrainement des couches instables
+  ! def des alim_star tels que alim=f*alim_star
+  DO l = 1, klev
+    DO ig = 1, ngrid
+      alim_star(ig, l) = 0.
+      alim(ig, l) = 0.
+    END DO
+  END DO
+  ! determination de la longueur de la couche d entrainement
+  DO ig = 1, ngrid
+    lentr(ig) = 1
+  END DO
+
+  ! on ne considere que les premieres couches instables
+  therm = .FALSE.
+  DO k = nlay - 2, 1, -1
+    DO ig = 1, ngrid
+      IF (ztv(ig,k)>ztv(ig,k+1) .AND. ztv(ig,k+1)<=ztv(ig,k+2)) THEN
+        lentr(ig) = k + 1
+        therm = .TRUE.
+      END IF
+    END DO
+  END DO
+
+  ! determination du lmin: couche d ou provient le thermique
+  DO ig = 1, ngrid
+    lmin(ig) = 1
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, 2, -1
+      IF (ztv(ig,l-1)>ztv(ig,l)) THEN
+        lmin(ig) = l - 1
+      END IF
+    END DO
+  END DO
+
+  ! definition de l'entrainement des couches
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. l>=lmin(ig) .AND. l<lentr(ig)) THEN
+        ! def possibles pour alim_star: zdthetadz, dthetadz, zdtheta
+        alim_star(ig, l) = max((ztv(ig,l)-ztv(ig,l+1)), 0.) & ! s
+                                                              ! *(zlev(ig,l+1)-zlev(ig,l))
+          *sqrt(zlev(ig,l+1))
+        ! alim_star(ig,l)=zlev(ig,l+1)*(1.-(zlev(ig,l+1)
+        ! s                         /zlev(ig,lentr(ig)+2)))**(3./2.)
+      END IF
+    END DO
+  END DO
+
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    ! if (lmin(ig).gt.1) then
+    ! CRnouveau test
+    IF (alim_star(ig,1)<1.E-10) THEN
+      DO l = 1, klev
+        alim_star(ig, l) = 0.
+      END DO
+    END IF
+  END DO
+  ! calcul de l entrainement total
+  DO ig = 1, ngrid
+    alim_star_tot(ig) = 0.
+    entr_star_tot(ig) = 0.
+    detr_star_tot(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      alim_star_tot(ig) = alim_star_tot(ig) + alim_star(ig, k)
+    END DO
+  END DO
+
+  ! Calcul entrainement normalise
+  DO ig = 1, ngrid
+    IF (alim_star_tot(ig)>1.E-10) THEN
+      ! do l=1,lentr(ig)
+      DO l = 1, klev
+        ! def possibles pour entr_star: zdthetadz, dthetadz, zdtheta
+        alim_star(ig, l) = alim_star(ig, l)/alim_star_tot(ig)
+      END DO
+    END IF
+  END DO
+
+  ! print*,'fin calcul alim_star'
+
+  ! AM:initialisations
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      ztva(ig, k) = ztv(ig, k)
+      ztla(ig, k) = zthl(ig, k)
+      zqla(ig, k) = 0.
+      zqta(ig, k) = po(ig, k)
+      zsat(ig) = .FALSE.
+    END DO
+  END DO
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      detr_star(ig, k) = 0.
+      entr_star(ig, k) = 0.
+      detr(ig, k) = 0.
+      entr(ig, k) = 0.
+    END DO
+  END DO
+  ! print*,'7 OK convect8'
+  DO k = 1, klev + 1
+    DO ig = 1, ngrid
+      zw2(ig, k) = 0.
+      fmc(ig, k) = 0.
+      ! CR
+      f_star(ig, k) = 0.
+      ! RC
+      larg_cons(ig, k) = 0.
+      larg_detr(ig, k) = 0.
+      wa_moy(ig, k) = 0.
+    END DO
+  END DO
+
+  ! n     print*,'8 OK convect8'
+  DO ig = 1, ngrid
+    linter(ig) = 1.
+    lmaxa(ig) = 1
+    lmix(ig) = 1
+    wmaxa(ig) = 0.
+  END DO
+
+  nu_min = l_mix
+  nu_max = 1000.
+  ! do ig=1,ngrid
+  ! nu_max=wmax_sec(ig)
+  ! enddo
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      nu(ig, k) = 0.
+      nu_e(ig, k) = 0.
+    END DO
+  END DO
+  ! Calcul de l'excès de température du à la diffusion turbulente
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      dtheta(ig, l) = 0.
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    DO l = 1, lentr(ig) - 1
+      dtheta(ig, l) = sqrt(10.*0.4*zlev(ig,l+1)**2*1.*((ztv(ig,l+1)- &
+        ztv(ig,l))/(zlev(ig,l+1)-zlev(ig,l)))**2)
+    END DO
+  END DO
+  ! do l=1,nlay-2
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. alim_star(ig,l)>1.E-10 .AND. &
+          zw2(ig,l)<1E-10) THEN
+        ! AM
+        ! test:on rajoute un excès de T dans couche alim
+        ! ztla(ig,l)=zthl(ig,l)+dtheta(ig,l)
+        ztla(ig, l) = zthl(ig, l)
+        ! test: on rajoute un excès de q dans la couche alim
+        ! zqta(ig,l)=po(ig,l)+0.001
+        zqta(ig, l) = po(ig, l)
+        zqla(ig, l) = zl(ig, l)
+        ! AM
+        f_star(ig, l+1) = alim_star(ig, l)
+        ! test:calcul de dteta
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))*0.4*pphi(ig, l)/(pphi(ig,l+1)-pphi(ig,l))
+        w_est(ig, l+1) = zw2(ig, l+1)
+        larg_detr(ig, l) = 0.
+        ! print*,'coucou boucle 1'
+      ELSE IF ((zw2(ig,l)>=1E-10) .AND. (f_star(ig,l)+alim_star(ig, &
+          l))>1.E-10) THEN
+        ! print*,'coucou boucle 2'
+        ! estimation du detrainement a partir de la geometrie du pas
+        ! precedent
+        IF ((test(ig)==1) .OR. ((.NOT. debut) .AND. (f0(ig)<1.E-10))) THEN
+          detr_star(ig, l) = 0.
+          entr_star(ig, l) = 0.
+          ! print*,'coucou test(ig)',test(ig),f0(ig),zmax0(ig)
+        ELSE
+          ! print*,'coucou debut detr'
+          ! tests sur la definition du detr
+          IF (zqla(ig,l-1)>1.E-10) THEN
+            nuage = .TRUE.
+          END IF
+
+          w_est(ig, l+1) = zw2(ig, l)*((f_star(ig,l))**2)/(f_star(ig,l)+ &
+            alim_star(ig,l))**2 + 2.*rg*(ztva(ig,l-1)-ztv(ig,l))/ztv(ig, l)*( &
+            zlev(ig,l+1)-zlev(ig,l))
+          IF (w_est(ig,l+1)<0.) THEN
+            w_est(ig, l+1) = zw2(ig, l)
+          END IF
+          IF (l>2) THEN
+            IF ((w_est(ig,l+1)>w_est(ig,l)) .AND. (zlev(ig, &
+                l+1)<zmax_sec(ig)) .AND. (zqla(ig,l-1)<1.E-10)) THEN
+              detr_star(ig, l) = max(0., (rhobarz(ig, &
+                l+1)*sqrt(w_est(ig,l+1))*sqrt(nu(ig,l)* &
+                zlev(ig,l+1))-rhobarz(ig,l)*sqrt(w_est(ig,l))*sqrt(nu(ig,l)* &
+                zlev(ig,l)))/(r_aspect*zmax_sec(ig)))
+            ELSE IF ((zlev(ig,l+1)<zmax_sec(ig)) .AND. (zqla(ig, &
+                l-1)<1.E-10)) THEN
+              detr_star(ig, l) = -f0(ig)*f_star(ig, lmix(ig))/(rhobarz(ig, &
+                lmix(ig))*wmaxa(ig))*(rhobarz(ig,l+1)*sqrt(w_est(ig, &
+                l+1))*((zmax_sec(ig)-zlev(ig,l+1))/((zmax_sec(ig)-zlev(ig, &
+                lmix(ig)))))**2.-rhobarz(ig,l)*sqrt(w_est(ig, &
+                l))*((zmax_sec(ig)-zlev(ig,l))/((zmax_sec(ig)-zlev(ig,lmix(ig &
+                )))))**2.)
+            ELSE
+              detr_star(ig, l) = 0.002*f0(ig)*f_star(ig, l)* &
+                (zlev(ig,l+1)-zlev(ig,l))
+
+            END IF
+          ELSE
+            detr_star(ig, l) = 0.
+          END IF
+
+          detr_star(ig, l) = detr_star(ig, l)/f0(ig)
+          IF (nuage) THEN
+            entr_star(ig, l) = 0.4*detr_star(ig, l)
+          ELSE
+            entr_star(ig, l) = 0.4*detr_star(ig, l)
+          END IF
+
+          IF ((detr_star(ig,l))>f_star(ig,l)) THEN
+            detr_star(ig, l) = f_star(ig, l)
+            ! entr_star(ig,l)=0.
+          END IF
+
+          IF ((l<lentr(ig))) THEN
+            entr_star(ig, l) = 0.
+            ! detr_star(ig,l)=0.
+          END IF
+
+          ! print*,'ok detr_star'
+        END IF
+        ! prise en compte du detrainement dans le calcul du flux
+        f_star(ig, l+1) = f_star(ig, l) + alim_star(ig, l) + &
+          entr_star(ig, l) - detr_star(ig, l)
+        ! test
+        ! if (f_star(ig,l+1).lt.0.) then
+        ! f_star(ig,l+1)=0.
+        ! entr_star(ig,l)=0.
+        ! detr_star(ig,l)=f_star(ig,l)+alim_star(ig,l)
+        ! endif
+        ! test sur le signe de f_star
+        IF (f_star(ig,l+1)>1.E-10) THEN
+          ! then
+          ! test
+          ! if (((f_star(ig,l+1)+detr_star(ig,l)).gt.1.e-10)) then
+          ! AM on melange Tl et qt du thermique
+          ! on rajoute un excès de T dans la couche alim
+          ! if (l.lt.lentr(ig)) then
+          ! ztla(ig,l)=(f_star(ig,l)*ztla(ig,l-1)+
+          ! s
+          ! (alim_star(ig,l)+entr_star(ig,l))*(zthl(ig,l)+dtheta(ig,l)))
+          ! s     /(f_star(ig,l+1)+detr_star(ig,l))
+          ! else
+          ztla(ig, l) = (f_star(ig,l)*ztla(ig,l-1)+(alim_star(ig, &
+            l)+entr_star(ig,l))*zthl(ig,l))/(f_star(ig,l+1)+detr_star(ig,l))
+          ! s                    /(f_star(ig,l+1))
+          ! endif
+          ! on rajoute un excès de q dans la couche alim
+          ! if (l.lt.lentr(ig)) then
+          ! zqta(ig,l)=(f_star(ig,l)*zqta(ig,l-1)+
+          ! s           (alim_star(ig,l)+entr_star(ig,l))*(po(ig,l)+0.001))
+          ! s                 /(f_star(ig,l+1)+detr_star(ig,l))
+          ! else
+          zqta(ig, l) = (f_star(ig,l)*zqta(ig,l-1)+(alim_star(ig, &
+            l)+entr_star(ig,l))*po(ig,l))/(f_star(ig,l+1)+detr_star(ig,l))
+          ! s                   /(f_star(ig,l+1))
+          ! endif
+          ! AM on en deduit thetav et ql du thermique
+          ! CR test
+          ! Tbef(ig)=ztla(ig,l)*zpspsk(ig,l)
+          tbef(ig) = ztla(ig, l)*zpspsk(ig, l)
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, l)
+          qsatbef(ig) = min(0.5, qsatbef(ig))
+          zcor = 1./(1.-retv*qsatbef(ig))
+          qsatbef(ig) = qsatbef(ig)*zcor
+          zsat(ig) = (max(0.,zqta(ig,l)-qsatbef(ig))>1.E-10)
+
+          IF (zsat(ig) .AND. (1==1)) THEN
+            qlbef = max(0., zqta(ig,l)-qsatbef(ig))
+            dt = 0.5*rlvcp*qlbef
+            ! write(17,*)'DT0=',DT
+            DO WHILE (abs(dt)>ddt0)
+              ! print*,'aie'
+              tbef(ig) = tbef(ig) + dt
+              zdelta = max(0., sign(1.,rtt-tbef(ig)))
+              qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, l)
+              qsatbef(ig) = min(0.5, qsatbef(ig))
+              zcor = 1./(1.-retv*qsatbef(ig))
+              qsatbef(ig) = qsatbef(ig)*zcor
+              qlbef = zqta(ig, l) - qsatbef(ig)
+
+              zdelta = max(0., sign(1.,rtt-tbef(ig)))
+              zcvm5 = r5les*(1.-zdelta) + r5ies*zdelta
+              zcor = 1./(1.-retv*qsatbef(ig))
+              dqsat_dt = foede(tbef(ig), zdelta, zcvm5, qsatbef(ig), zcor)
+              num = -tbef(ig) + ztla(ig, l)*zpspsk(ig, l) + rlvcp*qlbef
+              denom = 1. + rlvcp*dqsat_dt
+              IF (denom<1.E-10) THEN
+                PRINT *, 'pb denom'
+              END IF
+              dt = num/denom
+              ! write(17,*)'DT=',DT
+            END DO
+            zqla(ig, l) = max(0., zqta(ig,l)-qsatbef(ig))
+            zqla(ig, l) = max(0., qlbef)
+            ! zqla(ig,l)=0.
+          END IF
+          ! zqla(ig,l) = max(0.,zqta(ig,l)-qsatbef(ig))
+
+          ! on ecrit de maniere conservative (sat ou non)
+          ! T = Tl +Lv/Cp ql
+          ! CR rq utilisation de humidite specifique ou rapport de melange?
+          ztva(ig, l) = ztla(ig, l)*zpspsk(ig, l) + rlvcp*zqla(ig, l)
+          ztva(ig, l) = ztva(ig, l)/zpspsk(ig, l)
+          ! on rajoute le calcul de zha pour diagnostiques (temp potentielle)
+          zha(ig, l) = ztva(ig, l)
+          ! if (l.lt.lentr(ig)) then
+          ! ztva(ig,l) = ztva(ig,l)*(1.+RETV*(zqta(ig,l)
+          ! s              -zqla(ig,l))-zqla(ig,l)) + 0.1
+          ! else
+          ztva(ig, l) = ztva(ig, l)*(1.+retv*(zqta(ig,l)-zqla(ig, &
+            l))-zqla(ig,l))
+          ! endif
+          ! ztva(ig,l) = ztla(ig,l)*zpspsk(ig,l)+RLvCp*zqla(ig,l)
+          ! s                 /(1.-retv*zqla(ig,l))
+          ! ztva(ig,l) = ztva(ig,l)/zpspsk(ig,l)
+          ! ztva(ig,l) = ztva(ig,l)*(1.+RETV*(zqta(ig,l)
+          ! s                 /(1.-retv*zqta(ig,l))
+          ! s              -zqla(ig,l)/(1.-retv*zqla(ig,l)))
+          ! s              -zqla(ig,l)/(1.-retv*zqla(ig,l)))
+          ! write(13,*)zqla(ig,l),zqla(ig,l)/(1.-retv*zqla(ig,l))
+          ! on ecrit zqsat
+          zqsatth(ig, l) = qsatbef(ig)
+          ! enddo
+          ! DO ig=1,ngrid
+          ! if (zw2(ig,l).ge.1.e-10.and.
+          ! s               f_star(ig,l)+entr_star(ig,l).gt.1.e-10) then
+          ! mise a jour de la vitesse ascendante (l'air entraine de la couche
+          ! consideree commence avec une vitesse nulle).
+
+          ! if (f_star(ig,l+1).gt.1.e-10) then
+          zw2(ig, l+1) = zw2(ig, l)* & ! s
+                                       ! ((f_star(ig,l)-detr_star(ig,l))**2)
+          ! s                  /f_star(ig,l+1)**2+
+            ((f_star(ig,l))**2)/(f_star(ig,l+1)+detr_star(ig,l))**2 + & ! s
+                                                                        ! /(f_star(ig,l+1))**2+
+            2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, l)*(zlev(ig,l+1)-zlev(ig,l))
+          ! s                   *(f_star(ig,l)/f_star(ig,l+1))**2
+
+        END IF
+      END IF
+
+      IF (zw2(ig,l+1)<0.) THEN
+        linter(ig) = (l*(zw2(ig,l+1)-zw2(ig,l))-zw2(ig,l))/(zw2(ig,l+1)-zw2( &
+          ig,l))
+        zw2(ig, l+1) = 0.
+        ! print*,'linter=',linter(ig)
+        ! else if ((zw2(ig,l+1).lt.1.e-10).and.(zw2(ig,l+1).ge.0.)) then
+        ! linter(ig)=l+1
+        ! print*,'linter=l',zw2(ig,l),zw2(ig,l+1)
+      ELSE
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+        ! wa_moy(ig,l+1)=zw2(ig,l+1)
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+    END DO
+  END DO
+  PRINT *, 'fin calcul zw2'
+
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO ig = 1, ngrid
+    lmax(ig) = lentr(ig)
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, lentr(ig) + 1, -1
+      IF (zw2(ig,l)<=1.E-10) THEN
+        lmax(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>1) THEN
+      lmax(ig) = 1
+      lmin(ig) = 1
+      lentr(ig) = 1
+    END IF
+  END DO
+
+  ! Determination de zw2 max
+  DO ig = 1, ngrid
+    wmax(ig) = 0.
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig)) THEN
+        IF (zw2(ig,l)<0.) THEN
+          PRINT *, 'pb2 zw2<0'
+        END IF
+        zw2(ig, l) = sqrt(zw2(ig,l))
+        wmax(ig) = max(wmax(ig), zw2(ig,l))
+      ELSE
+        zw2(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 0.
+    zlevinter(ig) = zlev(ig, 1)
+  END DO
+  DO ig = 1, ngrid
+    ! calcul de zlevinter
+    zlevinter(ig) = (zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*linter(ig) + &
+      zlev(ig, lmax(ig)) - lmax(ig)*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+    ! pour le cas ou on prend tjs lmin=1
+    ! zmax(ig)=max(zmax(ig),zlevinter(ig)-zlev(ig,lmin(ig)))
+    zmax(ig) = max(zmax(ig), zlevinter(ig)-zlev(ig,1))
+    zmax0(ig) = zmax(ig)
+    WRITE (11, *) 'ig,lmax,linter', ig, lmax(ig), linter(ig)
+    WRITE (12, *) 'ig,zlevinter,zmax', ig, zmax(ig), zlevinter(ig)
+  END DO
+
+  ! Calcul de zmax_sec et wmax_sec
+  CALL fermeture_seche(ngrid, nlay, pplay, pplev, pphi, zlev, rhobarz, f0, &
+    zpspsk, alim, zh, zo, lentr, lmin, nu_min, nu_max, r_aspect, zmax_sec2, &
+    wmax_sec2)
+
+  PRINT *, 'avant fermeture'
+  ! Fermeture,determination de f
+  ! en lmax f=d-e
+  DO ig = 1, ngrid
+    ! entr_star(ig,lmax(ig))=0.
+    ! f_star(ig,lmax(ig)+1)=0.
+    ! detr_star(ig,lmax(ig))=f_star(ig,lmax(ig))+entr_star(ig,lmax(ig))
+    ! s                       +alim_star(ig,lmax(ig))
+  END DO
+
+  DO ig = 1, ngrid
+    alim_star2(ig) = 0.
+  END DO
+  ! calcul de entr_star_tot
+  DO ig = 1, ngrid
+    DO k = 1, lmix(ig)
+      entr_star_tot(ig) = entr_star_tot(ig) & ! s
+                                              ! +entr_star(ig,k)
+        +alim_star(ig, k)
+      ! s                        -detr_star(ig,k)
+      detr_star_tot(ig) = detr_star_tot(ig) & ! s
+                                              ! +alim_star(ig,k)
+        -detr_star(ig, k) + entr_star(ig, k)
+    END DO
+  END DO
+
+  DO ig = 1, ngrid
+    IF (alim_star_tot(ig)<1.E-10) THEN
+      f(ig) = 0.
+    ELSE
+      ! do k=lmin(ig),lentr(ig)
+      DO k = 1, lentr(ig)
+        alim_star2(ig) = alim_star2(ig) + alim_star(ig, k)**2/(rho(ig,k)*( &
+          zlev(ig,k+1)-zlev(ig,k)))
+      END DO
+      IF ((zmax_sec(ig)>1.E-10) .AND. (1==1)) THEN
+        f(ig) = wmax_sec(ig)/(max(500.,zmax_sec(ig))*r_aspect*alim_star2(ig))
+        f(ig) = f(ig) + (f0(ig)-f(ig))*exp((-ptimestep/zmax_sec(ig))*wmax_sec &
+          (ig))
+      ELSE
+        f(ig) = wmax(ig)/(max(500.,zmax(ig))*r_aspect*alim_star2(ig))
+        f(ig) = f(ig) + (f0(ig)-f(ig))*exp((-ptimestep/zmax(ig))*wmax(ig))
+      END IF
+    END IF
+    f0(ig) = f(ig)
+  END DO
+  PRINT *, 'apres fermeture'
+  ! Calcul de l'entrainement
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      alim(ig, k) = f(ig)*alim_star(ig, k)
+    END DO
+  END DO
+  ! CR:test pour entrainer moins que la masse
+  ! do ig=1,ngrid
+  ! do l=1,lentr(ig)
+  ! if ((alim(ig,l)*ptimestep).gt.(0.9*masse(ig,l))) then
+  ! alim(ig,l+1)=alim(ig,l+1)+alim(ig,l)
+  ! s                       -0.9*masse(ig,l)/ptimestep
+  ! alim(ig,l)=0.9*masse(ig,l)/ptimestep
+  ! endif
+  ! enddo
+  ! enddo
+  ! calcul du détrainement
+  DO ig = 1, klon
+    DO k = 1, klev
+      detr(ig, k) = f(ig)*detr_star(ig, k)
+      IF (detr(ig,k)<0.) THEN
+        ! print*,'detr1<0!!!'
+      END IF
+    END DO
+    DO k = 1, klev
+      entr(ig, k) = f(ig)*entr_star(ig, k)
+      IF (entr(ig,k)<0.) THEN
+        ! print*,'entr1<0!!!'
+      END IF
+    END DO
+  END DO
+
+  ! do ig=1,ngrid
+  ! do l=1,klev
+  ! if (((detr(ig,l)+entr(ig,l)+alim(ig,l))*ptimestep).gt.
+  ! s          (masse(ig,l))) then
+  ! print*,'d2+e2+a2>m2','ig=',ig,'l=',l,'lmax(ig)=',lmax(ig),'d+e+a='
+  ! s,(detr(ig,l)+entr(ig,l)+alim(ig,l))*ptimestep,'m=',masse(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+  ! Calcul des flux
+
+  DO ig = 1, ngrid
+    DO l = 1, lmax(ig)
+      ! do l=1,klev
+      ! fmc(ig,l+1)=f(ig)*f_star(ig,l+1)
+      fmc(ig, l+1) = fmc(ig, l) + alim(ig, l) + entr(ig, l) - detr(ig, l)
+      ! print*,'??!!','ig=',ig,'l=',l,'lmax=',lmax(ig),'lmix=',lmix(ig),
+      ! s  'e=',entr(ig,l),'d=',detr(ig,l),'a=',alim(ig,l),'f=',fmc(ig,l),
+      ! s  'f+1=',fmc(ig,l+1)
+      IF (fmc(ig,l+1)<0.) THEN
+        PRINT *, 'fmc1<0', l + 1, lmax(ig), fmc(ig, l+1)
+        fmc(ig, l+1) = fmc(ig, l)
+        detr(ig, l) = alim(ig, l) + entr(ig, l)
+        ! fmc(ig,l+1)=0.
+        ! print*,'fmc1<0',l+1,lmax(ig),fmc(ig,l+1)
+      END IF
+      ! if ((fmc(ig,l+1).gt.fmc(ig,l)).and.(l.gt.lentr(ig))) then
+      ! f_old=fmc(ig,l+1)
+      ! fmc(ig,l+1)=fmc(ig,l)
+      ! detr(ig,l)=detr(ig,l)+f_old-fmc(ig,l+1)
+      ! endif
+
+      ! if ((fmc(ig,l+1).gt.fmc(ig,l)).and.(l.gt.lentr(ig))) then
+      ! f_old=fmc(ig,l+1)
+      ! fmc(ig,l+1)=fmc(ig,l)
+      ! detr(ig,l)=detr(ig,l)+f_old-fmc(ig,l)
+      ! endif
+      ! rajout du test sur alpha croissant
+      ! if test
+      ! if (1.eq.0) then
+
+      IF (l==klev) THEN
+        PRINT *, 'THERMCELL PB ig=', ig, '   l=', l
+        abort_message = 'THERMCELL PB'
+        CALL abort_physic(modname, abort_message, 1)
+      END IF
+      ! if ((zw2(ig,l+1).gt.1.e-10).and.(zw2(ig,l).gt.1.e-10).and.
+      ! s     (l.ge.lentr(ig)).and.
+      IF ((zw2(ig,l+1)>1.E-10) .AND. (zw2(ig,l)>1.E-10) .AND. (l>=lentr(ig))) &
+          THEN
+        IF (((fmc(ig,l+1)/(rhobarz(ig,l+1)*zw2(ig,l+1)))>(fmc(ig,l)/ &
+            (rhobarz(ig,l)*zw2(ig,l))))) THEN
+          f_old = fmc(ig, l+1)
+          fmc(ig, l+1) = fmc(ig, l)*rhobarz(ig, l+1)*zw2(ig, l+1)/ &
+            (rhobarz(ig,l)*zw2(ig,l))
+          detr(ig, l) = detr(ig, l) + f_old - fmc(ig, l+1)
+          ! detr(ig,l)=(fmc(ig,l+1)-fmc(ig,l))/(0.4-1.)
+          ! entr(ig,l)=0.4*detr(ig,l)
+          ! entr(ig,l)=fmc(ig,l+1)-fmc(ig,l)+detr(ig,l)
+        END IF
+      END IF
+      IF ((fmc(ig,l+1)>fmc(ig,l)) .AND. (l>lentr(ig))) THEN
+        f_old = fmc(ig, l+1)
+        fmc(ig, l+1) = fmc(ig, l)
+        detr(ig, l) = detr(ig, l) + f_old - fmc(ig, l+1)
+      END IF
+      IF (detr(ig,l)>fmc(ig,l)) THEN
+        detr(ig, l) = fmc(ig, l)
+        entr(ig, l) = fmc(ig, l+1) - alim(ig, l)
+      END IF
+      IF (fmc(ig,l+1)<0.) THEN
+        detr(ig, l) = detr(ig, l) + fmc(ig, l+1)
+        fmc(ig, l+1) = 0.
+        PRINT *, 'fmc2<0', l + 1, lmax(ig)
+      END IF
+
+      ! test pour ne pas avoir f=0 et d=e/=0
+      ! if (fmc(ig,l+1).lt.1.e-10) then
+      ! detr(ig,l+1)=0.
+      ! entr(ig,l+1)=0.
+      ! zqla(ig,l+1)=0.
+      ! zw2(ig,l+1)=0.
+      ! lmax(ig)=l+1
+      ! zmax(ig)=zlev(ig,lmax(ig))
+      ! endif
+      IF (zw2(ig,l+1)>1.E-10) THEN
+        IF ((((fmc(ig,l+1))/(rhobarz(ig,l+1)*zw2(ig,l+1)))>1.)) THEN
+          f_old = fmc(ig, l+1)
+          fmc(ig, l+1) = rhobarz(ig, l+1)*zw2(ig, l+1)
+          zw2(ig, l+1) = 0.
+          zqla(ig, l+1) = 0.
+          detr(ig, l) = detr(ig, l) + f_old - fmc(ig, l+1)
+          lmax(ig) = l + 1
+          zmax(ig) = zlev(ig, lmax(ig))
+          PRINT *, 'alpha>1', l + 1, lmax(ig)
+        END IF
+      END IF
+      ! write(1,*)'ig,l,fm(ig,l)',ig,l,fm(ig,l)
+      ! endif test
+      ! endif
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    ! if (fmc(ig,lmax(ig)+1).ne.0.) then
+    fmc(ig, lmax(ig)+1) = 0.
+    entr(ig, lmax(ig)) = 0.
+    detr(ig, lmax(ig)) = fmc(ig, lmax(ig)) + entr(ig, lmax(ig)) + &
+      alim(ig, lmax(ig))
+    ! endif
+  END DO
+  ! test sur le signe de fmc
+  DO ig = 1, ngrid
+    DO l = 1, klev + 1
+      IF (fmc(ig,l)<0.) THEN
+        PRINT *, 'fm1<0!!!', 'ig=', ig, 'l=', l, 'a=', alim(ig, l-1), 'e=', &
+          entr(ig, l-1), 'f=', fmc(ig, l-1), 'd=', detr(ig, l-1), 'f+1=', &
+          fmc(ig, l)
+      END IF
+    END DO
+  END DO
+  ! test de verification
+  DO ig = 1, ngrid
+    DO l = 1, lmax(ig)
+      IF ((abs(fmc(ig,l+1)-fmc(ig,l)-alim(ig,l)-entr(ig,l)+ &
+          detr(ig,l)))>1.E-4) THEN
+        ! print*,'pbcm!!','ig=',ig,'l=',l,'lmax=',lmax(ig),'lmix=',lmix(ig),
+        ! s  'e=',entr(ig,l),'d=',detr(ig,l),'a=',alim(ig,l),'f=',fmc(ig,l),
+        ! s  'f+1=',fmc(ig,l+1)
+      END IF
+      IF (detr(ig,l)<0.) THEN
+        PRINT *, 'detrdemi<0!!!'
+      END IF
+    END DO
+  END DO
+
+  ! RC
+  ! CR def de  zmix continu (profil parabolique des vitesses)
+  DO ig = 1, ngrid
+    IF (lmix(ig)>1.) THEN
+      ! test
+      IF (((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))- &
+          (zlev(ig,lmix(ig)))))>1E-10) THEN
+
+        zmix(ig) = ((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)) &
+          )**2-(zlev(ig,lmix(ig)+1))**2)-(zw2(ig,lmix(ig))-zw2(ig, &
+          lmix(ig)+1))*((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))/ &
+          (2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+      ELSE
+        zmix(ig) = zlev(ig, lmix(ig))
+        PRINT *, 'pb zmix'
+      END IF
+    ELSE
+      zmix(ig) = 0.
+    END IF
+    ! test
+    IF ((zmax(ig)-zmix(ig))<=0.) THEN
+      zmix(ig) = 0.9*zmax(ig)
+      ! print*,'pb zmix>zmax'
+    END IF
+  END DO
+  DO ig = 1, klon
+    zmix0(ig) = zmix(ig)
+  END DO
+
+  ! calcul du nouveau lmix correspondant
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      IF (zmix(ig)>=zlev(ig,l) .AND. zmix(ig)<zlev(ig,l+1)) THEN
+        lmix(ig) = l
+      END IF
+    END DO
+  END DO
+
+  ! ne devrait pas arriver!!!!!
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      IF (detr(ig,l)>(fmc(ig,l)+alim(ig,l))+entr(ig,l)) THEN
+        PRINT *, 'detr2>fmc2!!!', 'ig=', ig, 'l=', l, 'd=', detr(ig, l), &
+          'f=', fmc(ig, l), 'lmax=', lmax(ig)
+        ! detr(ig,l)=fmc(ig,l)+alim(ig,l)+entr(ig,l)
+        ! entr(ig,l)=0.
+        ! fmc(ig,l+1)=0.
+        ! zw2(ig,l+1)=0.
+        ! zqla(ig,l+1)=0.
+        PRINT *, 'pb!fm=0 et f_star>0', l, lmax(ig)
+        ! lmax(ig)=l
+      END IF
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    DO l = lmax(ig) + 1, klev + 1
+      ! fmc(ig,l)=0.
+      ! detr(ig,l)=0.
+      ! entr(ig,l)=0.
+      ! zw2(ig,l)=0.
+      ! zqla(ig,l)=0.
+    END DO
+  END DO
+
+  ! Calcul du detrainement lors du premier passage
+  ! print*,'9 OK convect8'
+  ! print*,'WA1 ',wa_moy
+
+  ! determination de l'indice du debut de la mixed layer ou w decroit
+
+  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
+  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
+  ! d'une couche est égale à la hauteur de la couche alimentante.
+  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
+  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig) .AND. (test(ig)==1)) THEN
+        zw = max(wa_moy(ig,l), 1.E-10)
+        larg_cons(ig, l) = zmax(ig)*r_aspect*fmc(ig, l)/(rhobarz(ig,l)*zw)
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig) .AND. (test(ig)==1)) THEN
+        ! if (idetr.eq.0) then
+        ! cette option est finalement en dur.
+        IF ((l_mix*zlev(ig,l))<0.) THEN
+          PRINT *, 'pb l_mix*zlev<0'
+        END IF
+        ! CR: test: nouvelle def de lambda
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        IF (zw2(ig,l)>1.E-10) THEN
+          larg_detr(ig, l) = sqrt((l_mix/zw2(ig,l))*zlev(ig,l))
+        ELSE
+          larg_detr(ig, l) = sqrt(l_mix*zlev(ig,l))
+        END IF
+        ! else if (idetr.eq.1) then
+        ! larg_detr(ig,l)=larg_cons(ig,l)
+        ! s            *sqrt(l_mix*zlev(ig,l))/larg_cons(ig,lmix(ig))
+        ! else if (idetr.eq.2) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *sqrt(wa_moy(ig,l))
+        ! else if (idetr.eq.4) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *wa_moy(ig,l)
+        ! endif
+      END IF
+    END DO
+  END DO
+
+  ! print*,'10 OK convect8'
+  ! print*,'WA2 ',wa_moy
+  ! cal1cul de la fraction de la maille concernée par l'ascendance en tenant
+  ! compte de l'epluchage du thermique.
+
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1. .AND. (test(ig)==1)) THEN
+        ! print*,ig,l,lmix(ig),lmaxa(ig),larg_cons(ig,l),'  KKK'
+        fraca(ig, l) = (larg_cons(ig,l)-larg_detr(ig,l))/(r_aspect*zmax(ig))
+        ! test
+        fraca(ig, l) = max(fraca(ig,l), 0.)
+        fraca(ig, l) = min(fraca(ig,l), 0.5)
+        fracd(ig, l) = 1. - fraca(ig, l)
+        fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+      ELSE
+        ! wa_moy(ig,l)=0.
+        fraca(ig, l) = 0.
+        fracc(ig, l) = 0.
+        fracd(ig, l) = 1.
+      END IF
+    END DO
+  END DO
+  ! CR: calcul de fracazmix
+  DO ig = 1, ngrid
+    IF (test(ig)==1) THEN
+      fracazmix(ig) = (fraca(ig,lmix(ig)+1)-fraca(ig,lmix(ig)))/ &
+        (zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))*zmix(ig) + &
+        fraca(ig, lmix(ig)) - zlev(ig, lmix(ig))*(fraca(ig,lmix(ig)+1)-fraca( &
+        ig,lmix(ig)))/(zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))
+    END IF
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1. .AND. (test(ig)==1)) THEN
+        IF (l>lmix(ig)) THEN
+          ! test
+          IF (zmax(ig)-zmix(ig)<1.E-10) THEN
+            ! print*,'pb xxx'
+            xxx(ig, l) = (lmax(ig)+1.-l)/(lmax(ig)+1.-lmix(ig))
+          ELSE
+            xxx(ig, l) = (zmax(ig)-zlev(ig,l))/(zmax(ig)-zmix(ig))
+          END IF
+          IF (idetr==0) THEN
+            fraca(ig, l) = fracazmix(ig)
+          ELSE IF (idetr==1) THEN
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)
+          ELSE IF (idetr==2) THEN
+            fraca(ig, l) = fracazmix(ig)*(1.-(1.-xxx(ig,l))**2)
+          ELSE
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)**2
+          END IF
+          ! print*,ig,l,lmix(ig),lmaxa(ig),xxx(ig,l),'LLLLLLL'
+          fraca(ig, l) = max(fraca(ig,l), 0.)
+          fraca(ig, l) = min(fraca(ig,l), 0.5)
+          fracd(ig, l) = 1. - fraca(ig, l)
+          fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  PRINT *, 'fin calcul fraca'
+  ! print*,'11 OK convect8'
+  ! print*,'Ea3 ',wa_moy
+  ! ------------------------------------------------------------------
+  ! Calcul de fracd, wd
+  ! somme wa - wd = 0
+  ! ------------------------------------------------------------------
+
+
+  DO ig = 1, ngrid
+    fm(ig, 1) = 0.
+    fm(ig, nlay+1) = 0.
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (test(ig)==1) THEN
+        fm(ig, l) = fraca(ig, l)*wa_moy(ig, l)*rhobarz(ig, l)
+        ! CR:test
+        IF (alim(ig,l-1)<1E-10 .AND. fm(ig,l)>fm(ig,l-1) .AND. l>lmix(ig)) &
+            THEN
+          fm(ig, l) = fm(ig, l-1)
+          ! write(1,*)'ajustement fm, l',l
+        END IF
+        ! write(1,*)'ig,l,fm(ig,l)',ig,l,fm(ig,l)
+        ! RC
+      END IF
+    END DO
+    DO ig = 1, ngrid
+      IF (fracd(ig,l)<0.1 .AND. (test(ig)==1)) THEN
+        abort_message = 'fracd trop petit'
+        CALL abort_physic(modname, abort_message, 1)
+      ELSE
+        ! vitesse descendante "diagnostique"
+        wd(ig, l) = fm(ig, l)/(fracd(ig,l)*rhobarz(ig,l))
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay + 1
+    DO ig = 1, ngrid
+      IF (test(ig)==0) THEN
+        fm(ig, l) = fmc(ig, l)
+      END IF
+    END DO
+  END DO
+
+  ! fin du first
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+
+  ! print*,'12 OK convect8'
+  ! print*,'WA4 ',wa_moy
+  ! c------------------------------------------------------------------
+  ! calcul du transport vertical
+  ! ------------------------------------------------------------------
+
+  GO TO 4444
+  ! print*,'XXXXXXXXXXXXXXX ptimestep= ',ptimestep
+  DO l = 2, nlay - 1
+    DO ig = 1, ngrid
+      IF (fm(ig,l+1)*ptimestep>masse(ig,l) .AND. fm(ig,l+1)*ptimestep>masse( &
+          ig,l+1)) THEN
+        PRINT *, 'WARN!!! FM>M ig=', ig, ' l=', l, '  FM=', &
+          fm(ig, l+1)*ptimestep, '   M=', masse(ig, l), masse(ig, l+1)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF ((alim(ig,l)+entr(ig,l))*ptimestep>masse(ig,l)) THEN
+        PRINT *, 'WARN!!! E>M ig=', ig, ' l=', l, '  E==', &
+          (entr(ig,l)+alim(ig,l))*ptimestep, '   M=', masse(ig, l)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (.NOT. fm(ig,l)>=0. .OR. .NOT. fm(ig,l)<=10.) THEN
+        ! print*,'WARN!!! fm exagere ig=',ig,'   l=',l
+        ! s         ,'   FM=',fm(ig,l)
+      END IF
+      IF (.NOT. masse(ig,l)>=1.E-10 .OR. .NOT. masse(ig,l)<=1.E4) THEN
+        ! print*,'WARN!!! masse exagere ig=',ig,'   l=',l
+        ! s         ,'   M=',masse(ig,l)
+        ! print*,'rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)',
+        ! s                 rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)
+        ! print*,'zlev(ig,l+1),zlev(ig,l)'
+        ! s                ,zlev(ig,l+1),zlev(ig,l)
+        ! print*,'pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)'
+        ! s                ,pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)
+      END IF
+      IF (.NOT. alim(ig,l)>=0. .OR. .NOT. alim(ig,l)<=10.) THEN
+        ! print*,'WARN!!! entr exagere ig=',ig,'   l=',l
+        ! s         ,'   E=',entr(ig,l)
+      END IF
+    END DO
+  END DO
+
+4444 CONTINUE
+
+  ! CR:redefinition du entr
+  ! CR:test:on ne change pas la def du entr mais la def du fm
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (test(ig)==1) THEN
+        detr(ig, l) = fm(ig, l) + alim(ig, l) - fm(ig, l+1)
+        IF (detr(ig,l)<0.) THEN
+          ! entr(ig,l)=entr(ig,l)-detr(ig,l)
+          fm(ig, l+1) = fm(ig, l) + alim(ig, l)
+          detr(ig, l) = 0.
+          ! write(11,*)'l,ig,entr',l,ig,entr(ig,l)
+          ! print*,'WARNING !!! detrainement negatif ',ig,l
+        END IF
+      END IF
+    END DO
+  END DO
+  ! RC
+
+  IF (w2di==1) THEN
+    fm0 = fm0 + ptimestep*(fm-fm0)/tho
+    entr0 = entr0 + ptimestep*(alim+entr-entr0)/tho
+  ELSE
+    fm0 = fm
+    entr0 = alim + entr
+    detr0 = detr
+    alim0 = alim
+    ! zoa=zqta
+    ! entr0=alim
+  END IF
+
+  IF (1==1) THEN
+    ! call dqthermcell(ngrid,nlay,ptimestep,fm0,entr0,masse
+    ! .    ,zh,zdhadj,zha)
+    ! call dqthermcell(ngrid,nlay,ptimestep,fm0,entr0,masse
+    ! .    ,zo,pdoadj,zoa)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zthl, &
+      zdthladj, zta)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, po, pdoadj, &
+      zoa)
+  ELSE
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zh, &
+      zdhadj, zha)
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zo, &
+      pdoadj, zoa)
+  END IF
+
+  IF (1==0) THEN
+    CALL dvthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zmax, &
+      zu, zv, pduadj, pdvadj, zua, zva)
+  ELSE
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zu, pduadj, &
+      zua)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zv, pdvadj, &
+      zva)
+  END IF
+
+  ! Calcul des moments
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! zf=0.5*(fracc(ig,l)+fracc(ig,l+1))
+  ! zf2=zf/(1.-zf)
+  ! thetath2(ig,l)=zf2*(zha(ig,l)-zh(ig,l))**2
+  ! wth2(ig,l)=zf2*(0.5*(wa_moy(ig,l)+wa_moy(ig,l+1)))**2
+  ! enddo
+  ! enddo
+
+
+
+
+
+
+  ! print*,'13 OK convect8'
+  ! print*,'WA5 ',wa_moy
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! pdtadj(ig,l)=zdhadj(ig,l)*zpspsk(ig,l)
+      pdtadj(ig, l) = zdthladj(ig, l)*zpspsk(ig, l)
+    END DO
+  END DO
+
+
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! if(abs(pdtadj(ig,l))*86400..gt.500.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdtadj=',pdtadj(ig,l)
+  ! endif
+  ! if(abs(pdoadj(ig,l))*86400..gt.1.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdoadj=',pdoadj(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+
+  ! print*,'14 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calculs pour les sorties
+  ! ------------------------------------------------------------------
+  ! calcul de fraca pour les sorties
+  DO l = 2, klev
+    DO ig = 1, klon
+      IF (zw2(ig,l)>1.E-10) THEN
+        fraca(ig, l) = fm(ig, l)/(rhobarz(ig,l)*zw2(ig,l))
+      ELSE
+        fraca(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+  IF (sorties) THEN
+    DO l = 1, nlay
+      DO ig = 1, ngrid
+        zla(ig, l) = (1.-fracd(ig,l))*zmax(ig)
+        zld(ig, l) = fracd(ig, l)*zmax(ig)
+        IF (1.-fracd(ig,l)>1.E-10) zwa(ig, l) = wd(ig, l)*fracd(ig, l)/ &
+          (1.-fracd(ig,l))
+      END DO
+    END DO
+    ! CR calcul du niveau de condensation
+    ! initialisation
+    DO ig = 1, ngrid
+      nivcon(ig) = 0.
+      zcon(ig) = 0.
+    END DO
+    DO k = nlay, 1, -1
+      DO ig = 1, ngrid
+        IF (zqla(ig,k)>1E-10) THEN
+          nivcon(ig) = k
+          zcon(ig) = zlev(ig, k)
+        END IF
+        ! if (zcon(ig).gt.1.e-10) then
+        ! nuage=.true.
+        ! else
+        ! nuage=.false.
+        ! endif
+      END DO
+    END DO
+
+    DO l = 1, nlay
+      DO ig = 1, ngrid
+        zf = fraca(ig, l)
+        zf2 = zf/(1.-zf)
+        thetath2(ig, l) = zf2*(zha(ig,l)-zh(ig,l)/zpspsk(ig,l))**2
+        wth2(ig, l) = zf2*(zw2(ig,l))**2
+        ! print*,'wth2=',wth2(ig,l)
+        wth3(ig, l) = zf2*(1-2.*fraca(ig,l))/(1-fraca(ig,l))*zw2(ig, l)* &
+          zw2(ig, l)*zw2(ig, l)
+        q2(ig, l) = zf2*(zqta(ig,l)*1000.-po(ig,l)*1000.)**2
+        ! test: on calcul q2/po=ratqsc
+        ! if (nuage) then
+        ratqscth(ig, l) = sqrt(q2(ig,l))/(po(ig,l)*1000.)
+        ! else
+        ! ratqscth(ig,l)=0.
+        ! endif
+      END DO
+    END DO
+    ! calcul du ratqscdiff
+    sum = 0.
+    sumdiff = 0.
+    ratqsdiff(:, :) = 0.
+    DO ig = 1, ngrid
+      DO l = 1, lentr(ig)
+        sum = sum + alim_star(ig, l)*zqta(ig, l)*1000.
+      END DO
+    END DO
+    DO ig = 1, ngrid
+      DO l = 1, lentr(ig)
+        zf = fraca(ig, l)
+        zf2 = zf/(1.-zf)
+        sumdiff = sumdiff + alim_star(ig, l)*(zqta(ig,l)*1000.-sum)**2
+        ! ratqsdiff=ratqsdiff+alim_star(ig,l)*
+        ! s          (zqta(ig,l)*1000.-po(ig,l)*1000.)**2
+      END DO
+    END DO
+    DO l = 1, klev
+      DO ig = 1, ngrid
+        ratqsdiff(ig, l) = sqrt(sumdiff)/(po(ig,l)*1000.)
+        ! write(11,*)'ratqsdiff=',ratqsdiff(ig,l)
+      END DO
+    END DO
+
+  END IF
+
+  ! print*,'19 OK convect8'
+  RETURN
+END SUBROUTINE thermcell_cld
+
+SUBROUTINE thermcell_eau(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, &
+    pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0 & ! s
+                                                         ! ,pu_therm,pv_therm
+    , r_aspect, l_mix, w2di, tho)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+
+  ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
+
+  ! le thermique est supposé homogène et dissipé par mélange avec
+  ! son environnement. la longueur l_mix contrôle l'efficacité du
+  ! mélange
+
+  ! Le calcul du transport des différentes espèces se fait en prenant
+  ! en compte:
+  ! 1. un flux de masse montant
+  ! 2. un flux de masse descendant
+  ! 3. un entrainement
+  ! 4. un detrainement
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! declarations:
+  ! -------------
+
+  include "YOMCST.h"
+  include "YOETHF.h"
+  include "FCTTRE.h"
+
+  ! arguments:
+  ! ----------
+
+  INTEGER ngrid, nlay, w2di
+  REAL tho
+  REAL ptimestep, l_mix, r_aspect
+  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
+  REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+  REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+
+  INTEGER idetr
+  SAVE idetr
+  DATA idetr/3/
+  !$OMP THREADPRIVATE(idetr)
+
+  ! local:
+  ! ------
+
+  INTEGER ig, k, l, lmaxa(klon), lmix(klon)
+  REAL zsortie1d(klon)
+  ! CR: on remplace lmax(klon,klev+1)
+  INTEGER lmax(klon), lmin(klon), lentr(klon)
+  REAL linter(klon)
+  REAL zmix(klon), fracazmix(klon)
+  ! RC
+  REAL zmax(klon), zw, zz, zw2(klon, klev+1), ztva(klon, klev), zzz
+
+  REAL zlev(klon, klev+1), zlay(klon, klev)
+  REAL zh(klon, klev), zdhadj(klon, klev)
+  REAL zthl(klon, klev), zdthladj(klon, klev)
+  REAL ztv(klon, klev)
+  REAL zu(klon, klev), zv(klon, klev), zo(klon, klev)
+  REAL zl(klon, klev)
+  REAL wh(klon, klev+1)
+  REAL wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
+  REAL zla(klon, klev+1)
+  REAL zwa(klon, klev+1)
+  REAL zld(klon, klev+1)
+  REAL zwd(klon, klev+1)
+  REAL zsortie(klon, klev)
+  REAL zva(klon, klev)
+  REAL zua(klon, klev)
+  REAL zoa(klon, klev)
+
+  REAL zta(klon, klev)
+  REAL zha(klon, klev)
+  REAL wa_moy(klon, klev+1)
+  REAL fraca(klon, klev+1)
+  REAL fracc(klon, klev+1)
+  REAL zf, zf2
+  REAL thetath2(klon, klev), wth2(klon, klev)
+  ! common/comtherm/thetath2,wth2
+
+  REAL count_time
+  INTEGER ialt
+
+  LOGICAL sorties
+  REAL rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  ! real wmax(klon,klev),wmaxa(klon)
+  REAL wmax(klon), wmaxa(klon)
+  REAL wa(klon, klev, klev+1)
+  REAL wd(klon, klev+1)
+  REAL larg_part(klon, klev, klev+1)
+  REAL fracd(klon, klev+1)
+  REAL xxx(klon, klev+1)
+  REAL larg_cons(klon, klev+1)
+  REAL larg_detr(klon, klev+1)
+  REAL fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
+  REAL pu_therm(klon, klev), pv_therm(klon, klev)
+  REAL fm(klon, klev+1), entr(klon, klev)
+  REAL fmc(klon, klev+1)
+
+  REAL zcor, zdelta, zcvm5, qlbef
+  REAL tbef(klon), qsatbef(klon)
+  REAL dqsat_dt, dt, num, denom
+  REAL reps, rlvcp, ddt0
+  REAL ztla(klon, klev), zqla(klon, klev), zqta(klon, klev)
+
+  PARAMETER (ddt0=.01)
+
+  ! CR:nouvelles variables
+  REAL f_star(klon, klev+1), entr_star(klon, klev)
+  REAL entr_star_tot(klon), entr_star2(klon)
+  REAL f(klon), f0(klon)
+  REAL zlevinter(klon)
+  LOGICAL first
+  DATA first/.FALSE./
+  SAVE first
+  !$OMP THREADPRIVATE(first)
+
+  ! RC
+
+  CHARACTER *2 str2
+  CHARACTER *10 str10
+
+  CHARACTER (LEN=20) :: modname = 'thermcell_eau'
+  CHARACTER (LEN=80) :: abort_message
+
+  LOGICAL vtest(klon), down
+  LOGICAL zsat(klon)
+
+  EXTERNAL scopy
+
+  INTEGER ncorrec, ll
+  SAVE ncorrec
+  DATA ncorrec/0/
+  !$OMP THREADPRIVATE(ncorrec)
+
+
+
+  ! -----------------------------------------------------------------------
+  ! initialisation:
+  ! ---------------
+
+  sorties = .TRUE.
+  IF (ngrid/=klon) THEN
+    PRINT *
+    PRINT *, 'STOP dans convadj'
+    PRINT *, 'ngrid    =', ngrid
+    PRINT *, 'klon  =', klon
+  END IF
+
+  ! Initialisation
+  rlvcp = rlvtt/rcpd
+  reps = rd/rv
+
+  ! -----------------------------------------------------------------------
+  ! AM Calcul de T,q,ql a partir de Tl et qT
+  ! ---------------------------------------------------
+
+  ! Pr Tprec=Tl calcul de qsat
+  ! Si qsat>qT T=Tl, q=qT
+  ! Sinon DDT=(-Tprec+Tl+RLVCP (qT-qsat(T')) / (1+RLVCP dqsat/dt)
+  ! On cherche DDT < DDT0
+
+  ! defaut
+  DO ll = 1, nlay
+    DO ig = 1, ngrid
+      zo(ig, ll) = po(ig, ll)
+      zl(ig, ll) = 0.
+      zh(ig, ll) = pt(ig, ll)
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zsat(ig) = .FALSE.
+  END DO
+
+
+  DO ll = 1, nlay
+    ! les points insatures sont definitifs
+    DO ig = 1, ngrid
+      tbef(ig) = pt(ig, ll)
+      zdelta = max(0., sign(1.,rtt-tbef(ig)))
+      qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, ll)
+      qsatbef(ig) = min(0.5, qsatbef(ig))
+      zcor = 1./(1.-retv*qsatbef(ig))
+      qsatbef(ig) = qsatbef(ig)*zcor
+      zsat(ig) = (max(0.,po(ig,ll)-qsatbef(ig))>0.00001)
+    END DO
+
+    DO ig = 1, ngrid
+      IF (zsat(ig)) THEN
+        qlbef = max(0., po(ig,ll)-qsatbef(ig))
+        ! si sature: ql est surestime, d'ou la sous-relax
+        dt = 0.5*rlvcp*qlbef
+        ! on pourra enchainer 2 ou 3 calculs sans Do while
+        DO WHILE (dt>ddt0)
+          ! il faut verifier si c,a conserve quand on repasse en insature ...
+          tbef(ig) = tbef(ig) + dt
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, ll)
+          qsatbef(ig) = min(0.5, qsatbef(ig))
+          zcor = 1./(1.-retv*qsatbef(ig))
+          qsatbef(ig) = qsatbef(ig)*zcor
+          ! on veut le signe de qlbef
+          qlbef = po(ig, ll) - qsatbef(ig)
+          ! dqsat_dT
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          zcvm5 = r5les*(1.-zdelta) + r5ies*zdelta
+          zcor = 1./(1.-retv*qsatbef(ig))
+          dqsat_dt = foede(tbef(ig), zdelta, zcvm5, qsatbef(ig), zcor)
+          num = -tbef(ig) + pt(ig, ll) + rlvcp*qlbef
+          denom = 1. + rlvcp*dqsat_dt
+          dt = num/denom
+        END DO
+        ! on ecrit de maniere conservative (sat ou non)
+        zl(ig, ll) = max(0., qlbef)
+        ! T = Tl +Lv/Cp ql
+        zh(ig, ll) = pt(ig, ll) + rlvcp*zl(ig, ll)
+        zo(ig, ll) = po(ig, ll) - zl(ig, ll)
+      END IF
+    END DO
+  END DO
+  ! AM fin
+
+  ! -----------------------------------------------------------------------
+  ! incrementation eventuelle de tendances precedentes:
+  ! ---------------------------------------------------
+
+  ! print*,'0 OK convect8'
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zpspsk(ig, l) = (pplay(ig,l)/pplev(ig,1))**rkappa
+      ! zh(ig,l)=pt(ig,l)/zpspsk(ig,l)
+      zu(ig, l) = pu(ig, l)
+      zv(ig, l) = pv(ig, l)
+      ! zo(ig,l)=po(ig,l)
+      ! ztv(ig,l)=zh(ig,l)*(1.+0.61*zo(ig,l))
+      ! AM attention zh est maintenant le profil de T et plus le profil de
+      ! theta !
+
+      ! T-> Theta
+      ztv(ig, l) = zh(ig, l)/zpspsk(ig, l)
+      ! AM Theta_v
+      ztv(ig, l) = ztv(ig, l)*(1.+retv*(zo(ig,l))-zl(ig,l))
+      ! AM Thetal
+      zthl(ig, l) = pt(ig, l)/zpspsk(ig, l)
+
+    END DO
+  END DO
+
+  ! print*,'1 OK convect8'
+  ! --------------------
+
+
+  ! + + + + + + + + + + +
+
+
+  ! wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+  ! wh,wt,wo ...
+
+  ! + + + + + + + + + + +  zh,zu,zv,zo,rho
+
+
+  ! --------------------   zlev(1)
+  ! \\\\\\\\\\\\\\\\\\\\
+
+
+
+  ! -----------------------------------------------------------------------
+  ! Calcul des altitudes des couches
+  ! -----------------------------------------------------------------------
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      zlev(ig, l) = 0.5*(pphi(ig,l)+pphi(ig,l-1))/rg
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zlev(ig, 1) = 0.
+    zlev(ig, nlay+1) = (2.*pphi(ig,klev)-pphi(ig,klev-1))/rg
+  END DO
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zlay(ig, l) = pphi(ig, l)/rg
+    END DO
+  END DO
+
+  ! print*,'2 OK convect8'
+  ! -----------------------------------------------------------------------
+  ! Calcul des densites
+  ! -----------------------------------------------------------------------
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! rho(ig,l)=pplay(ig,l)/(zpspsk(ig,l)*RD*zh(ig,l))
+      rho(ig, l) = pplay(ig, l)/(zpspsk(ig,l)*rd*ztv(ig,l))
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      rhobarz(ig, l) = 0.5*(rho(ig,l)+rho(ig,l-1))
+    END DO
+  END DO
+
+  DO k = 1, nlay
+    DO l = 1, nlay + 1
+      DO ig = 1, ngrid
+        wa(ig, k, l) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! print*,'3 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calcul de w2, quarre de w a partir de la cape
+  ! a partir de w2, on calcule wa, vitesse de l'ascendance
+
+  ! ATTENTION: Dans cette version, pour cause d'economie de memoire,
+  ! w2 est stoke dans wa
+
+  ! ATTENTION: dans convect8, on n'utilise le calcule des wa
+  ! independants par couches que pour calculer l'entrainement
+  ! a la base et la hauteur max de l'ascendance.
+
+  ! Indicages:
+  ! l'ascendance provenant du niveau k traverse l'interface l avec
+  ! une vitesse wa(k,l).
+
+  ! --------------------
+
+  ! + + + + + + + + + +
+
+  ! wa(k,l)   ----       --------------------    l
+  ! /\
+  ! /||\       + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||
+  ! ||        + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||__
+  ! |___      + + + + + + + + + +     k
+
+  ! --------------------
+
+
+
+  ! ------------------------------------------------------------------
+
+  ! CR: ponderation entrainement des couches instables
+  ! def des entr_star tels que entr=f*entr_star
+  DO l = 1, klev
+    DO ig = 1, ngrid
+      entr_star(ig, l) = 0.
+    END DO
+  END DO
+  ! determination de la longueur de la couche d entrainement
+  DO ig = 1, ngrid
+    lentr(ig) = 1
+  END DO
+
+  ! on ne considere que les premieres couches instables
+  DO k = nlay - 1, 1, -1
+    DO ig = 1, ngrid
+      IF (ztv(ig,k)>ztv(ig,k+1) .AND. ztv(ig,k+1)<ztv(ig,k+2)) THEN
+        lentr(ig) = k
+      END IF
+    END DO
+  END DO
+
+  ! determination du lmin: couche d ou provient le thermique
+  DO ig = 1, ngrid
+    lmin(ig) = 1
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, 2, -1
+      IF (ztv(ig,l-1)>ztv(ig,l)) THEN
+        lmin(ig) = l - 1
+      END IF
+    END DO
+  END DO
+
+  ! definition de l'entrainement des couches
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. l>=lmin(ig) .AND. l<=lentr(ig)) THEN
+        entr_star(ig, l) = (ztv(ig,l)-ztv(ig,l+1))*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>1) THEN
+      DO l = 1, klev
+        entr_star(ig, l) = 0.
+      END DO
+    END IF
+  END DO
+  ! calcul de l entrainement total
+  DO ig = 1, ngrid
+    entr_star_tot(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      entr_star_tot(ig) = entr_star_tot(ig) + entr_star(ig, k)
+    END DO
+  END DO
+
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      ztva(ig, k) = ztv(ig, k)
+    END DO
+  END DO
+  ! RC
+  ! AM:initialisations
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      ztva(ig, k) = ztv(ig, k)
+      ztla(ig, k) = zthl(ig, k)
+      zqla(ig, k) = 0.
+      zqta(ig, k) = po(ig, k)
+      zsat(ig) = .FALSE.
+    END DO
+  END DO
+
+  ! print*,'7 OK convect8'
+  DO k = 1, klev + 1
+    DO ig = 1, ngrid
+      zw2(ig, k) = 0.
+      fmc(ig, k) = 0.
+      ! CR
+      f_star(ig, k) = 0.
+      ! RC
+      larg_cons(ig, k) = 0.
+      larg_detr(ig, k) = 0.
+      wa_moy(ig, k) = 0.
+    END DO
+  END DO
+
+  ! print*,'8 OK convect8'
+  DO ig = 1, ngrid
+    linter(ig) = 1.
+    lmaxa(ig) = 1
+    lmix(ig) = 1
+    wmaxa(ig) = 0.
+  END DO
+
+  ! CR:
+  DO l = 1, nlay - 2
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. entr_star(ig,l)>1.E-10 .AND. &
+          zw2(ig,l)<1E-10) THEN
+        ! AM
+        ztla(ig, l) = zthl(ig, l)
+        zqta(ig, l) = po(ig, l)
+        zqla(ig, l) = zl(ig, l)
+        ! AM
+        f_star(ig, l+1) = entr_star(ig, l)
+        ! test:calcul de dteta
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))*0.4*pphi(ig, l)/(pphi(ig,l+1)-pphi(ig,l))
+        larg_detr(ig, l) = 0.
+      ELSE IF ((zw2(ig,l)>=1E-10) .AND. (f_star(ig,l)+entr_star(ig, &
+          l)>1.E-10)) THEN
+        f_star(ig, l+1) = f_star(ig, l) + entr_star(ig, l)
+
+        ! AM on melange Tl et qt du thermique
+        ztla(ig, l) = (f_star(ig,l)*ztla(ig,l-1)+entr_star(ig,l)*zthl(ig,l))/ &
+          f_star(ig, l+1)
+        zqta(ig, l) = (f_star(ig,l)*zqta(ig,l-1)+entr_star(ig,l)*po(ig,l))/ &
+          f_star(ig, l+1)
+
+        ! ztva(ig,l)=(f_star(ig,l)*ztva(ig,l-1)+entr_star(ig,l)
+        ! s                    *ztv(ig,l))/f_star(ig,l+1)
+
+        ! AM on en deduit thetav et ql du thermique
+        tbef(ig) = ztla(ig, l)*zpspsk(ig, l)
+        zdelta = max(0., sign(1.,rtt-tbef(ig)))
+        qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, l)
+        qsatbef(ig) = min(0.5, qsatbef(ig))
+        zcor = 1./(1.-retv*qsatbef(ig))
+        qsatbef(ig) = qsatbef(ig)*zcor
+        zsat(ig) = (max(0.,zqta(ig,l)-qsatbef(ig))>0.00001)
+      END IF
+    END DO
+    DO ig = 1, ngrid
+      IF (zsat(ig)) THEN
+        qlbef = max(0., zqta(ig,l)-qsatbef(ig))
+        dt = 0.5*rlvcp*qlbef
+        DO WHILE (dt>ddt0)
+          tbef(ig) = tbef(ig) + dt
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          qsatbef(ig) = r2es*foeew(tbef(ig), zdelta)/pplev(ig, l)
+          qsatbef(ig) = min(0.5, qsatbef(ig))
+          zcor = 1./(1.-retv*qsatbef(ig))
+          qsatbef(ig) = qsatbef(ig)*zcor
+          qlbef = zqta(ig, l) - qsatbef(ig)
+
+          zdelta = max(0., sign(1.,rtt-tbef(ig)))
+          zcvm5 = r5les*(1.-zdelta) + r5ies*zdelta
+          zcor = 1./(1.-retv*qsatbef(ig))
+          dqsat_dt = foede(tbef(ig), zdelta, zcvm5, qsatbef(ig), zcor)
+          num = -tbef(ig) + ztla(ig, l)*zpspsk(ig, l) + rlvcp*qlbef
+          denom = 1. + rlvcp*dqsat_dt
+          dt = num/denom
+        END DO
+        zqla(ig, l) = max(0., zqta(ig,l)-qsatbef(ig))
+      END IF
+      ! on ecrit de maniere conservative (sat ou non)
+      ! T = Tl +Lv/Cp ql
+      ztva(ig, l) = ztla(ig, l)*zpspsk(ig, l) + rlvcp*zqla(ig, l)
+      ztva(ig, l) = ztva(ig, l)/zpspsk(ig, l)
+      ztva(ig, l) = ztva(ig, l)*(1.+retv*(zqta(ig,l)-zqla(ig,l))-zqla(ig,l))
+
+    END DO
+    DO ig = 1, ngrid
+      IF (zw2(ig,l)>=1.E-10 .AND. f_star(ig,l)+entr_star(ig,l)>1.E-10) THEN
+        ! mise a jour de la vitesse ascendante (l'air entraine de la couche
+        ! consideree commence avec une vitesse nulle).
+
+        zw2(ig, l+1) = zw2(ig, l)*(f_star(ig,l)/f_star(ig,l+1))**2 + &
+          2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, l)*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+      ! determination de zmax continu par interpolation lineaire
+      IF (zw2(ig,l+1)<0.) THEN
+        linter(ig) = (l*(zw2(ig,l+1)-zw2(ig,l))-zw2(ig,l))/(zw2(ig,l+1)-zw2( &
+          ig,l))
+        zw2(ig, l+1) = 0.
+        lmaxa(ig) = l
+      ELSE
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+    END DO
+  END DO
+
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO ig = 1, ngrid
+    lmax(ig) = lentr(ig)
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, lentr(ig) + 1, -1
+      IF (zw2(ig,l)<=1.E-10) THEN
+        lmax(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>1) THEN
+      lmax(ig) = 1
+      lmin(ig) = 1
+    END IF
+  END DO
+
+  ! Determination de zw2 max
+  DO ig = 1, ngrid
+    wmax(ig) = 0.
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig)) THEN
+        zw2(ig, l) = sqrt(zw2(ig,l))
+        wmax(ig) = max(wmax(ig), zw2(ig,l))
+      ELSE
+        zw2(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 500.
+    zlevinter(ig) = zlev(ig, 1)
+  END DO
+  DO ig = 1, ngrid
+    ! calcul de zlevinter
+    zlevinter(ig) = (zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*linter(ig) + &
+      zlev(ig, lmax(ig)) - lmax(ig)*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+    zmax(ig) = max(zmax(ig), zlevinter(ig)-zlev(ig,lmin(ig)))
+  END DO
+
+  ! Fermeture,determination de f
+  DO ig = 1, ngrid
+    entr_star2(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    IF (entr_star_tot(ig)<1.E-10) THEN
+      f(ig) = 0.
+    ELSE
+      DO k = lmin(ig), lentr(ig)
+        entr_star2(ig) = entr_star2(ig) + entr_star(ig, k)**2/(rho(ig,k)*( &
+          zlev(ig,k+1)-zlev(ig,k)))
+      END DO
+      ! Nouvelle fermeture
+      f(ig) = wmax(ig)/(zmax(ig)*r_aspect*entr_star2(ig))*entr_star_tot(ig)
+      ! test
+      IF (first) THEN
+        f(ig) = f(ig) + (f0(ig)-f(ig))*exp(-ptimestep/zmax(ig)*wmax(ig))
+      END IF
+    END IF
+    f0(ig) = f(ig)
+    first = .TRUE.
+  END DO
+
+  ! Calcul de l'entrainement
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      entr(ig, k) = f(ig)*entr_star(ig, k)
+    END DO
+  END DO
+  ! Calcul des flux
+  DO ig = 1, ngrid
+    DO l = 1, lmax(ig) - 1
+      fmc(ig, l+1) = fmc(ig, l) + entr(ig, l)
+    END DO
+  END DO
+
+  ! RC
+
+
+  ! print*,'9 OK convect8'
+  ! print*,'WA1 ',wa_moy
+
+  ! determination de l'indice du debut de la mixed layer ou w decroit
+
+  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
+  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
+  ! d'une couche est égale à la hauteur de la couche alimentante.
+  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
+  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        zw = max(wa_moy(ig,l), 1.E-10)
+        larg_cons(ig, l) = zmax(ig)*r_aspect*fmc(ig, l)/(rhobarz(ig,l)*zw)
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        ! if (idetr.eq.0) then
+        ! cette option est finalement en dur.
+        larg_detr(ig, l) = sqrt(l_mix*zlev(ig,l))
+        ! else if (idetr.eq.1) then
+        ! larg_detr(ig,l)=larg_cons(ig,l)
+        ! s            *sqrt(l_mix*zlev(ig,l))/larg_cons(ig,lmix(ig))
+        ! else if (idetr.eq.2) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *sqrt(wa_moy(ig,l))
+        ! else if (idetr.eq.4) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *wa_moy(ig,l)
+        ! endif
+      END IF
+    END DO
+  END DO
+
+  ! print*,'10 OK convect8'
+  ! print*,'WA2 ',wa_moy
+  ! calcul de la fraction de la maille concernée par l'ascendance en tenant
+  ! compte de l'epluchage du thermique.
+
+  ! CR def de  zmix continu (profil parabolique des vitesses)
+  DO ig = 1, ngrid
+    IF (lmix(ig)>1.) THEN
+      zmix(ig) = ((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig))) &
+        **2-(zlev(ig,lmix(ig)+1))**2)-(zw2(ig,lmix(ig))-zw2(ig, &
+        lmix(ig)+1))*((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))/ &
+        (2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+        (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))-zw2(ig,lmix(ig)+1))*((zlev( &
+        ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+    ELSE
+      zmix(ig) = 0.
+    END IF
+  END DO
+
+  ! calcul du nouveau lmix correspondant
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      IF (zmix(ig)>=zlev(ig,l) .AND. zmix(ig)<zlev(ig,l+1)) THEN
+        lmix(ig) = l
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        ! print*,ig,l,lmix(ig),lmaxa(ig),larg_cons(ig,l),'  KKK'
+        fraca(ig, l) = (larg_cons(ig,l)-larg_detr(ig,l))/(r_aspect*zmax(ig))
+        ! test
+        fraca(ig, l) = max(fraca(ig,l), 0.)
+        fraca(ig, l) = min(fraca(ig,l), 0.5)
+        fracd(ig, l) = 1. - fraca(ig, l)
+        fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+      ELSE
+        ! wa_moy(ig,l)=0.
+        fraca(ig, l) = 0.
+        fracc(ig, l) = 0.
+        fracd(ig, l) = 1.
+      END IF
+    END DO
+  END DO
+  ! CR: calcul de fracazmix
+  DO ig = 1, ngrid
+    fracazmix(ig) = (fraca(ig,lmix(ig)+1)-fraca(ig,lmix(ig)))/ &
+      (zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))*zmix(ig) + &
+      fraca(ig, lmix(ig)) - zlev(ig, lmix(ig))*(fraca(ig,lmix(ig)+1)-fraca(ig &
+      ,lmix(ig)))/(zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        IF (l>lmix(ig)) THEN
+          xxx(ig, l) = (zmax(ig)-zlev(ig,l))/(zmax(ig)-zmix(ig))
+          IF (idetr==0) THEN
+            fraca(ig, l) = fracazmix(ig)
+          ELSE IF (idetr==1) THEN
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)
+          ELSE IF (idetr==2) THEN
+            fraca(ig, l) = fracazmix(ig)*(1.-(1.-xxx(ig,l))**2)
+          ELSE
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)**2
+          END IF
+          ! print*,ig,l,lmix(ig),lmaxa(ig),xxx(ig,l),'LLLLLLL'
+          fraca(ig, l) = max(fraca(ig,l), 0.)
+          fraca(ig, l) = min(fraca(ig,l), 0.5)
+          fracd(ig, l) = 1. - fraca(ig, l)
+          fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! print*,'11 OK convect8'
+  ! print*,'Ea3 ',wa_moy
+  ! ------------------------------------------------------------------
+  ! Calcul de fracd, wd
+  ! somme wa - wd = 0
+  ! ------------------------------------------------------------------
+
+
+  DO ig = 1, ngrid
+    fm(ig, 1) = 0.
+    fm(ig, nlay+1) = 0.
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      fm(ig, l) = fraca(ig, l)*wa_moy(ig, l)*rhobarz(ig, l)
+      ! CR:test
+      IF (entr(ig,l-1)<1E-10 .AND. fm(ig,l)>fm(ig,l-1) .AND. l>lmix(ig)) THEN
+        fm(ig, l) = fm(ig, l-1)
+        ! write(1,*)'ajustement fm, l',l
+      END IF
+      ! write(1,*)'ig,l,fm(ig,l)',ig,l,fm(ig,l)
+      ! RC
+    END DO
+    DO ig = 1, ngrid
+      IF (fracd(ig,l)<0.1) THEN
+        abort_message = 'fracd trop petit'
+        CALL abort_physic(modname, abort_message, 1)
+      ELSE
+        ! vitesse descendante "diagnostique"
+        wd(ig, l) = fm(ig, l)/(fracd(ig,l)*rhobarz(ig,l))
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+
+  ! print*,'12 OK convect8'
+  ! print*,'WA4 ',wa_moy
+  ! c------------------------------------------------------------------
+  ! calcul du transport vertical
+  ! ------------------------------------------------------------------
+
+  GO TO 4444
+  ! print*,'XXXXXXXXXXXXXXX ptimestep= ',ptimestep
+  DO l = 2, nlay - 1
+    DO ig = 1, ngrid
+      IF (fm(ig,l+1)*ptimestep>masse(ig,l) .AND. fm(ig,l+1)*ptimestep>masse( &
+          ig,l+1)) THEN
+        ! print*,'WARN!!! FM>M ig=',ig,' l=',l,'  FM='
+        ! s         ,fm(ig,l+1)*ptimestep
+        ! s         ,'   M=',masse(ig,l),masse(ig,l+1)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (entr(ig,l)*ptimestep>masse(ig,l)) THEN
+        ! print*,'WARN!!! E>M ig=',ig,' l=',l,'  E=='
+        ! s         ,entr(ig,l)*ptimestep
+        ! s         ,'   M=',masse(ig,l)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (.NOT. fm(ig,l)>=0. .OR. .NOT. fm(ig,l)<=10.) THEN
+        ! print*,'WARN!!! fm exagere ig=',ig,'   l=',l
+        ! s         ,'   FM=',fm(ig,l)
+      END IF
+      IF (.NOT. masse(ig,l)>=1.E-10 .OR. .NOT. masse(ig,l)<=1.E4) THEN
+        ! print*,'WARN!!! masse exagere ig=',ig,'   l=',l
+        ! s         ,'   M=',masse(ig,l)
+        ! print*,'rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)',
+        ! s                 rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)
+        ! print*,'zlev(ig,l+1),zlev(ig,l)'
+        ! s                ,zlev(ig,l+1),zlev(ig,l)
+        ! print*,'pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)'
+        ! s                ,pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)
+      END IF
+      IF (.NOT. entr(ig,l)>=0. .OR. .NOT. entr(ig,l)<=10.) THEN
+        ! print*,'WARN!!! entr exagere ig=',ig,'   l=',l
+        ! s         ,'   E=',entr(ig,l)
+      END IF
+    END DO
+  END DO
+
+4444 CONTINUE
+
+  IF (w2di==1) THEN
+    fm0 = fm0 + ptimestep*(fm-fm0)/tho
+    entr0 = entr0 + ptimestep*(entr-entr0)/tho
+  ELSE
+    fm0 = fm
+    entr0 = entr
+  END IF
+
+  IF (1==1) THEN
+    ! call dqthermcell(ngrid,nlay,ptimestep,fm0,entr0,masse
+    ! .    ,zh,zdhadj,zha)
+    ! call dqthermcell(ngrid,nlay,ptimestep,fm0,entr0,masse
+    ! .    ,zo,pdoadj,zoa)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zthl, &
+      zdthladj, zta)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, po, pdoadj, &
+      zoa)
+  ELSE
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zh, &
+      zdhadj, zha)
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zo, &
+      pdoadj, zoa)
+  END IF
+
+  IF (1==0) THEN
+    CALL dvthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zmax, &
+      zu, zv, pduadj, pdvadj, zua, zva)
+  ELSE
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zu, pduadj, &
+      zua)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zv, pdvadj, &
+      zva)
+  END IF
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zf = 0.5*(fracc(ig,l)+fracc(ig,l+1))
+      zf2 = zf/(1.-zf)
+      thetath2(ig, l) = zf2*(zha(ig,l)-zh(ig,l))**2
+      wth2(ig, l) = zf2*(0.5*(wa_moy(ig,l)+wa_moy(ig,l+1)))**2
+    END DO
+  END DO
+
+
+
+  ! print*,'13 OK convect8'
+  ! print*,'WA5 ',wa_moy
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! pdtadj(ig,l)=zdhadj(ig,l)*zpspsk(ig,l)
+      pdtadj(ig, l) = zdthladj(ig, l)*zpspsk(ig, l)
+    END DO
+  END DO
+
+
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! if(abs(pdtadj(ig,l))*86400..gt.500.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdtadj=',pdtadj(ig,l)
+  ! endif
+  ! if(abs(pdoadj(ig,l))*86400..gt.1.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdoadj=',pdoadj(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+
+  ! print*,'14 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calculs pour les sorties
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE thermcell_eau
+
+SUBROUTINE thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, &
+    po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0 & ! s
+                                                     ! ,pu_therm,pv_therm
+    , r_aspect, l_mix, w2di, tho)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+
+  ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
+
+  ! le thermique est supposé homogène et dissipé par mélange avec
+  ! son environnement. la longueur l_mix contrôle l'efficacité du
+  ! mélange
+
+  ! Le calcul du transport des différentes espèces se fait en prenant
+  ! en compte:
+  ! 1. un flux de masse montant
+  ! 2. un flux de masse descendant
+  ! 3. un entrainement
+  ! 4. un detrainement
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! declarations:
+  ! -------------
+
+  include "YOMCST.h"
+
+  ! arguments:
+  ! ----------
+
+  INTEGER ngrid, nlay, w2di
+  REAL tho
+  REAL ptimestep, l_mix, r_aspect
+  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
+  REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+  REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+
+  INTEGER idetr
+  SAVE idetr
+  DATA idetr/3/
+  !$OMP THREADPRIVATE(idetr)
+
+  ! local:
+  ! ------
+
+  INTEGER ig, k, l, lmaxa(klon), lmix(klon)
+  REAL zsortie1d(klon)
+  ! CR: on remplace lmax(klon,klev+1)
+  INTEGER lmax(klon), lmin(klon), lentr(klon)
+  REAL linter(klon)
+  REAL zmix(klon), fracazmix(klon)
+  ! RC
+  REAL zmax(klon), zw, zz, zw2(klon, klev+1), ztva(klon, klev), zzz
+
+  REAL zlev(klon, klev+1), zlay(klon, klev)
+  REAL zh(klon, klev), zdhadj(klon, klev)
+  REAL ztv(klon, klev)
+  REAL zu(klon, klev), zv(klon, klev), zo(klon, klev)
+  REAL wh(klon, klev+1)
+  REAL wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
+  REAL zla(klon, klev+1)
+  REAL zwa(klon, klev+1)
+  REAL zld(klon, klev+1)
+  REAL zwd(klon, klev+1)
+  REAL zsortie(klon, klev)
+  REAL zva(klon, klev)
+  REAL zua(klon, klev)
+  REAL zoa(klon, klev)
+
+  REAL zha(klon, klev)
+  REAL wa_moy(klon, klev+1)
+  REAL fraca(klon, klev+1)
+  REAL fracc(klon, klev+1)
+  REAL zf, zf2
+  REAL thetath2(klon, klev), wth2(klon, klev)
+  ! common/comtherm/thetath2,wth2
+
+  REAL count_time
+  INTEGER ialt
+
+  LOGICAL sorties
+  REAL rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  ! real wmax(klon,klev),wmaxa(klon)
+  REAL wmax(klon), wmaxa(klon)
+  REAL wa(klon, klev, klev+1)
+  REAL wd(klon, klev+1)
+  REAL larg_part(klon, klev, klev+1)
+  REAL fracd(klon, klev+1)
+  REAL xxx(klon, klev+1)
+  REAL larg_cons(klon, klev+1)
+  REAL larg_detr(klon, klev+1)
+  REAL fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
+  REAL pu_therm(klon, klev), pv_therm(klon, klev)
+  REAL fm(klon, klev+1), entr(klon, klev)
+  REAL fmc(klon, klev+1)
+
+  ! CR:nouvelles variables
+  REAL f_star(klon, klev+1), entr_star(klon, klev)
+  REAL entr_star_tot(klon), entr_star2(klon)
+  REAL f(klon), f0(klon)
+  REAL zlevinter(klon)
+  LOGICAL first
+  DATA first/.FALSE./
+  SAVE first
+  !$OMP THREADPRIVATE(first)
+  ! RC
+
+  CHARACTER *2 str2
+  CHARACTER *10 str10
+
+  CHARACTER (LEN=20) :: modname = 'thermcell'
+  CHARACTER (LEN=80) :: abort_message
+
+  LOGICAL vtest(klon), down
+
+  EXTERNAL scopy
+
+  INTEGER ncorrec, ll
+  SAVE ncorrec
+  DATA ncorrec/0/
+  !$OMP THREADPRIVATE(ncorrec)
+
+
+  ! -----------------------------------------------------------------------
+  ! initialisation:
+  ! ---------------
+
+  sorties = .TRUE.
+  IF (ngrid/=klon) THEN
+    PRINT *
+    PRINT *, 'STOP dans convadj'
+    PRINT *, 'ngrid    =', ngrid
+    PRINT *, 'klon  =', klon
+  END IF
+
+  ! -----------------------------------------------------------------------
+  ! incrementation eventuelle de tendances precedentes:
+  ! ---------------------------------------------------
+
+  ! print*,'0 OK convect8'
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zpspsk(ig, l) = (pplay(ig,l)/pplev(ig,1))**rkappa
+      zh(ig, l) = pt(ig, l)/zpspsk(ig, l)
+      zu(ig, l) = pu(ig, l)
+      zv(ig, l) = pv(ig, l)
+      zo(ig, l) = po(ig, l)
+      ztv(ig, l) = zh(ig, l)*(1.+0.61*zo(ig,l))
+    END DO
+  END DO
+
+  ! print*,'1 OK convect8'
+  ! --------------------
+
+
+  ! + + + + + + + + + + +
+
+
+  ! wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+  ! wh,wt,wo ...
+
+  ! + + + + + + + + + + +  zh,zu,zv,zo,rho
+
+
+  ! --------------------   zlev(1)
+  ! \\\\\\\\\\\\\\\\\\\\
+
+
+
+  ! -----------------------------------------------------------------------
+  ! Calcul des altitudes des couches
+  ! -----------------------------------------------------------------------
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      zlev(ig, l) = 0.5*(pphi(ig,l)+pphi(ig,l-1))/rg
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zlev(ig, 1) = 0.
+    zlev(ig, nlay+1) = (2.*pphi(ig,klev)-pphi(ig,klev-1))/rg
+  END DO
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zlay(ig, l) = pphi(ig, l)/rg
+    END DO
+  END DO
+
+  ! print*,'2 OK convect8'
+  ! -----------------------------------------------------------------------
+  ! Calcul des densites
+  ! -----------------------------------------------------------------------
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      rho(ig, l) = pplay(ig, l)/(zpspsk(ig,l)*rd*zh(ig,l))
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      rhobarz(ig, l) = 0.5*(rho(ig,l)+rho(ig,l-1))
+    END DO
+  END DO
+
+  DO k = 1, nlay
+    DO l = 1, nlay + 1
+      DO ig = 1, ngrid
+        wa(ig, k, l) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! print*,'3 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calcul de w2, quarre de w a partir de la cape
+  ! a partir de w2, on calcule wa, vitesse de l'ascendance
+
+  ! ATTENTION: Dans cette version, pour cause d'economie de memoire,
+  ! w2 est stoke dans wa
+
+  ! ATTENTION: dans convect8, on n'utilise le calcule des wa
+  ! independants par couches que pour calculer l'entrainement
+  ! a la base et la hauteur max de l'ascendance.
+
+  ! Indicages:
+  ! l'ascendance provenant du niveau k traverse l'interface l avec
+  ! une vitesse wa(k,l).
+
+  ! --------------------
+
+  ! + + + + + + + + + +
+
+  ! wa(k,l)   ----       --------------------    l
+  ! /\
+  ! /||\       + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||
+  ! ||        + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||__
+  ! |___      + + + + + + + + + +     k
+
+  ! --------------------
+
+
+
+  ! ------------------------------------------------------------------
+
+  ! CR: ponderation entrainement des couches instables
+  ! def des entr_star tels que entr=f*entr_star
+  DO l = 1, klev
+    DO ig = 1, ngrid
+      entr_star(ig, l) = 0.
+    END DO
+  END DO
+  ! determination de la longueur de la couche d entrainement
+  DO ig = 1, ngrid
+    lentr(ig) = 1
+  END DO
+
+  ! on ne considere que les premieres couches instables
+  DO k = nlay - 2, 1, -1
+    DO ig = 1, ngrid
+      IF (ztv(ig,k)>ztv(ig,k+1) .AND. ztv(ig,k+1)<=ztv(ig,k+2)) THEN
+        lentr(ig) = k
+      END IF
+    END DO
+  END DO
+
+  ! determination du lmin: couche d ou provient le thermique
+  DO ig = 1, ngrid
+    lmin(ig) = 1
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, 2, -1
+      IF (ztv(ig,l-1)>ztv(ig,l)) THEN
+        lmin(ig) = l - 1
+      END IF
+    END DO
+  END DO
+
+  ! definition de l'entrainement des couches
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. l>=lmin(ig) .AND. l<=lentr(ig)) THEN
+        entr_star(ig, l) = (ztv(ig,l)-ztv(ig,l+1))*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couches 1->5 stables
+  DO ig = 1, ngrid
+    IF (lmin(ig)>5) THEN
+      DO l = 1, klev
+        entr_star(ig, l) = 0.
+      END DO
+    END IF
+  END DO
+  ! calcul de l entrainement total
+  DO ig = 1, ngrid
+    entr_star_tot(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      entr_star_tot(ig) = entr_star_tot(ig) + entr_star(ig, k)
+    END DO
+  END DO
+
+  PRINT *, 'fin calcul entr_star'
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      ztva(ig, k) = ztv(ig, k)
+    END DO
+  END DO
+  ! RC
+  ! print*,'7 OK convect8'
+  DO k = 1, klev + 1
+    DO ig = 1, ngrid
+      zw2(ig, k) = 0.
+      fmc(ig, k) = 0.
+      ! CR
+      f_star(ig, k) = 0.
+      ! RC
+      larg_cons(ig, k) = 0.
+      larg_detr(ig, k) = 0.
+      wa_moy(ig, k) = 0.
+    END DO
+  END DO
+
+  ! print*,'8 OK convect8'
+  DO ig = 1, ngrid
+    linter(ig) = 1.
+    lmaxa(ig) = 1
+    lmix(ig) = 1
+    wmaxa(ig) = 0.
+  END DO
+
+  ! CR:
+  DO l = 1, nlay - 2
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. entr_star(ig,l)>1.E-10 .AND. &
+          zw2(ig,l)<1E-10) THEN
+        f_star(ig, l+1) = entr_star(ig, l)
+        ! test:calcul de dteta
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))*0.4*pphi(ig, l)/(pphi(ig,l+1)-pphi(ig,l))
+        larg_detr(ig, l) = 0.
+      ELSE IF ((zw2(ig,l)>=1E-10) .AND. (f_star(ig,l)+entr_star(ig, &
+          l)>1.E-10)) THEN
+        f_star(ig, l+1) = f_star(ig, l) + entr_star(ig, l)
+        ztva(ig, l) = (f_star(ig,l)*ztva(ig,l-1)+entr_star(ig,l)*ztv(ig,l))/ &
+          f_star(ig, l+1)
+        zw2(ig, l+1) = zw2(ig, l)*(f_star(ig,l)/f_star(ig,l+1))**2 + &
+          2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, l)*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+      ! determination de zmax continu par interpolation lineaire
+      IF (zw2(ig,l+1)<0.) THEN
+        ! test
+        IF (abs(zw2(ig,l+1)-zw2(ig,l))<1E-10) THEN
+          PRINT *, 'pb linter'
+        END IF
+        linter(ig) = (l*(zw2(ig,l+1)-zw2(ig,l))-zw2(ig,l))/(zw2(ig,l+1)-zw2( &
+          ig,l))
+        zw2(ig, l+1) = 0.
+        lmaxa(ig) = l
+      ELSE
+        IF (zw2(ig,l+1)<0.) THEN
+          PRINT *, 'pb1 zw2<0'
+        END IF
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+    END DO
+  END DO
+  PRINT *, 'fin calcul zw2'
+
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO ig = 1, ngrid
+    lmax(ig) = lentr(ig)
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, lentr(ig) + 1, -1
+      IF (zw2(ig,l)<=1.E-10) THEN
+        lmax(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couches 1->5 stables
+  DO ig = 1, ngrid
+    IF (lmin(ig)>5) THEN
+      lmax(ig) = 1
+      lmin(ig) = 1
+    END IF
+  END DO
+
+  ! Determination de zw2 max
+  DO ig = 1, ngrid
+    wmax(ig) = 0.
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig)) THEN
+        IF (zw2(ig,l)<0.) THEN
+          PRINT *, 'pb2 zw2<0'
+        END IF
+        zw2(ig, l) = sqrt(zw2(ig,l))
+        wmax(ig) = max(wmax(ig), zw2(ig,l))
+      ELSE
+        zw2(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 0.
+    zlevinter(ig) = zlev(ig, 1)
+  END DO
+  DO ig = 1, ngrid
+    ! calcul de zlevinter
+    zlevinter(ig) = (zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*linter(ig) + &
+      zlev(ig, lmax(ig)) - lmax(ig)*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+    zmax(ig) = max(zmax(ig), zlevinter(ig)-zlev(ig,lmin(ig)))
+  END DO
+
+  PRINT *, 'avant fermeture'
+  ! Fermeture,determination de f
+  DO ig = 1, ngrid
+    entr_star2(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    IF (entr_star_tot(ig)<1.E-10) THEN
+      f(ig) = 0.
+    ELSE
+      DO k = lmin(ig), lentr(ig)
+        entr_star2(ig) = entr_star2(ig) + entr_star(ig, k)**2/(rho(ig,k)*( &
+          zlev(ig,k+1)-zlev(ig,k)))
+      END DO
+      ! Nouvelle fermeture
+      f(ig) = wmax(ig)/(max(500.,zmax(ig))*r_aspect*entr_star2(ig))* &
+        entr_star_tot(ig)
+      ! test
+      ! if (first) then
+      ! f(ig)=f(ig)+(f0(ig)-f(ig))*exp(-ptimestep/zmax(ig)
+      ! s             *wmax(ig))
+      ! endif
+    END IF
+    ! f0(ig)=f(ig)
+    ! first=.true.
+  END DO
+  PRINT *, 'apres fermeture'
+
+  ! Calcul de l'entrainement
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      entr(ig, k) = f(ig)*entr_star(ig, k)
+    END DO
+  END DO
+  ! Calcul des flux
+  DO ig = 1, ngrid
+    DO l = 1, lmax(ig) - 1
+      fmc(ig, l+1) = fmc(ig, l) + entr(ig, l)
+    END DO
+  END DO
+
+  ! RC
+
+
+  ! print*,'9 OK convect8'
+  ! print*,'WA1 ',wa_moy
+
+  ! determination de l'indice du debut de la mixed layer ou w decroit
+
+  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
+  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
+  ! d'une couche est égale à la hauteur de la couche alimentante.
+  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
+  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        zw = max(wa_moy(ig,l), 1.E-10)
+        larg_cons(ig, l) = zmax(ig)*r_aspect*fmc(ig, l)/(rhobarz(ig,l)*zw)
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        ! if (idetr.eq.0) then
+        ! cette option est finalement en dur.
+        IF ((l_mix*zlev(ig,l))<0.) THEN
+          PRINT *, 'pb l_mix*zlev<0'
+        END IF
+        larg_detr(ig, l) = sqrt(l_mix*zlev(ig,l))
+        ! else if (idetr.eq.1) then
+        ! larg_detr(ig,l)=larg_cons(ig,l)
+        ! s            *sqrt(l_mix*zlev(ig,l))/larg_cons(ig,lmix(ig))
+        ! else if (idetr.eq.2) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *sqrt(wa_moy(ig,l))
+        ! else if (idetr.eq.4) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *wa_moy(ig,l)
+        ! endif
+      END IF
+    END DO
+  END DO
+
+  ! print*,'10 OK convect8'
+  ! print*,'WA2 ',wa_moy
+  ! calcul de la fraction de la maille concernée par l'ascendance en tenant
+  ! compte de l'epluchage du thermique.
+
+  ! CR def de  zmix continu (profil parabolique des vitesses)
+  DO ig = 1, ngrid
+    IF (lmix(ig)>1.) THEN
+      ! test
+      IF (((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))- &
+          (zlev(ig,lmix(ig)))))>1E-10) THEN
+
+        zmix(ig) = ((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)) &
+          )**2-(zlev(ig,lmix(ig)+1))**2)-(zw2(ig,lmix(ig))-zw2(ig, &
+          lmix(ig)+1))*((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))/ &
+          (2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+      ELSE
+        zmix(ig) = zlev(ig, lmix(ig))
+        PRINT *, 'pb zmix'
+      END IF
+    ELSE
+      zmix(ig) = 0.
+    END IF
+    ! test
+    IF ((zmax(ig)-zmix(ig))<0.) THEN
+      zmix(ig) = 0.99*zmax(ig)
+      ! print*,'pb zmix>zmax'
+    END IF
+  END DO
+
+  ! calcul du nouveau lmix correspondant
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      IF (zmix(ig)>=zlev(ig,l) .AND. zmix(ig)<zlev(ig,l+1)) THEN
+        lmix(ig) = l
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        ! print*,ig,l,lmix(ig),lmaxa(ig),larg_cons(ig,l),'  KKK'
+        fraca(ig, l) = (larg_cons(ig,l)-larg_detr(ig,l))/(r_aspect*zmax(ig))
+        ! test
+        fraca(ig, l) = max(fraca(ig,l), 0.)
+        fraca(ig, l) = min(fraca(ig,l), 0.5)
+        fracd(ig, l) = 1. - fraca(ig, l)
+        fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+      ELSE
+        ! wa_moy(ig,l)=0.
+        fraca(ig, l) = 0.
+        fracc(ig, l) = 0.
+        fracd(ig, l) = 1.
+      END IF
+    END DO
+  END DO
+  ! CR: calcul de fracazmix
+  DO ig = 1, ngrid
+    fracazmix(ig) = (fraca(ig,lmix(ig)+1)-fraca(ig,lmix(ig)))/ &
+      (zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))*zmix(ig) + &
+      fraca(ig, lmix(ig)) - zlev(ig, lmix(ig))*(fraca(ig,lmix(ig)+1)-fraca(ig &
+      ,lmix(ig)))/(zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        IF (l>lmix(ig)) THEN
+          ! test
+          IF (zmax(ig)-zmix(ig)<1.E-10) THEN
+            ! print*,'pb xxx'
+            xxx(ig, l) = (lmaxa(ig)+1.-l)/(lmaxa(ig)+1.-lmix(ig))
+          ELSE
+            xxx(ig, l) = (zmax(ig)-zlev(ig,l))/(zmax(ig)-zmix(ig))
+          END IF
+          IF (idetr==0) THEN
+            fraca(ig, l) = fracazmix(ig)
+          ELSE IF (idetr==1) THEN
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)
+          ELSE IF (idetr==2) THEN
+            fraca(ig, l) = fracazmix(ig)*(1.-(1.-xxx(ig,l))**2)
+          ELSE
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)**2
+          END IF
+          ! print*,ig,l,lmix(ig),lmaxa(ig),xxx(ig,l),'LLLLLLL'
+          fraca(ig, l) = max(fraca(ig,l), 0.)
+          fraca(ig, l) = min(fraca(ig,l), 0.5)
+          fracd(ig, l) = 1. - fraca(ig, l)
+          fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  PRINT *, 'fin calcul fraca'
+  ! print*,'11 OK convect8'
+  ! print*,'Ea3 ',wa_moy
+  ! ------------------------------------------------------------------
+  ! Calcul de fracd, wd
+  ! somme wa - wd = 0
+  ! ------------------------------------------------------------------
+
+
+  DO ig = 1, ngrid
+    fm(ig, 1) = 0.
+    fm(ig, nlay+1) = 0.
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      fm(ig, l) = fraca(ig, l)*wa_moy(ig, l)*rhobarz(ig, l)
+      ! CR:test
+      IF (entr(ig,l-1)<1E-10 .AND. fm(ig,l)>fm(ig,l-1) .AND. l>lmix(ig)) THEN
+        fm(ig, l) = fm(ig, l-1)
+        ! write(1,*)'ajustement fm, l',l
+      END IF
+      ! write(1,*)'ig,l,fm(ig,l)',ig,l,fm(ig,l)
+      ! RC
+    END DO
+    DO ig = 1, ngrid
+      IF (fracd(ig,l)<0.1) THEN
+        abort_message = 'fracd trop petit'
+        CALL abort_physic(modname, abort_message, 1)
+      ELSE
+        ! vitesse descendante "diagnostique"
+        wd(ig, l) = fm(ig, l)/(fracd(ig,l)*rhobarz(ig,l))
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+
+  ! print*,'12 OK convect8'
+  ! print*,'WA4 ',wa_moy
+  ! c------------------------------------------------------------------
+  ! calcul du transport vertical
+  ! ------------------------------------------------------------------
+
+  GO TO 4444
+  ! print*,'XXXXXXXXXXXXXXX ptimestep= ',ptimestep
+  DO l = 2, nlay - 1
+    DO ig = 1, ngrid
+      IF (fm(ig,l+1)*ptimestep>masse(ig,l) .AND. fm(ig,l+1)*ptimestep>masse( &
+          ig,l+1)) THEN
+        ! print*,'WARN!!! FM>M ig=',ig,' l=',l,'  FM='
+        ! s         ,fm(ig,l+1)*ptimestep
+        ! s         ,'   M=',masse(ig,l),masse(ig,l+1)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (entr(ig,l)*ptimestep>masse(ig,l)) THEN
+        ! print*,'WARN!!! E>M ig=',ig,' l=',l,'  E=='
+        ! s         ,entr(ig,l)*ptimestep
+        ! s         ,'   M=',masse(ig,l)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (.NOT. fm(ig,l)>=0. .OR. .NOT. fm(ig,l)<=10.) THEN
+        ! print*,'WARN!!! fm exagere ig=',ig,'   l=',l
+        ! s         ,'   FM=',fm(ig,l)
+      END IF
+      IF (.NOT. masse(ig,l)>=1.E-10 .OR. .NOT. masse(ig,l)<=1.E4) THEN
+        ! print*,'WARN!!! masse exagere ig=',ig,'   l=',l
+        ! s         ,'   M=',masse(ig,l)
+        ! print*,'rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)',
+        ! s                 rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)
+        ! print*,'zlev(ig,l+1),zlev(ig,l)'
+        ! s                ,zlev(ig,l+1),zlev(ig,l)
+        ! print*,'pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)'
+        ! s                ,pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)
+      END IF
+      IF (.NOT. entr(ig,l)>=0. .OR. .NOT. entr(ig,l)<=10.) THEN
+        ! print*,'WARN!!! entr exagere ig=',ig,'   l=',l
+        ! s         ,'   E=',entr(ig,l)
+      END IF
+    END DO
+  END DO
+
+4444 CONTINUE
+
+  ! CR:redefinition du entr
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, l) = fm(ig, l) + entr(ig, l) - fm(ig, l+1)
+      IF (detr(ig,l)<0.) THEN
+        entr(ig, l) = entr(ig, l) - detr(ig, l)
+        detr(ig, l) = 0.
+        ! print*,'WARNING !!! detrainement negatif ',ig,l
+      END IF
+    END DO
+  END DO
+  ! RC
+  IF (w2di==1) THEN
+    fm0 = fm0 + ptimestep*(fm-fm0)/tho
+    entr0 = entr0 + ptimestep*(entr-entr0)/tho
+  ELSE
+    fm0 = fm
+    entr0 = entr
+  END IF
+
+  IF (1==1) THEN
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zh, zdhadj, &
+      zha)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zo, pdoadj, &
+      zoa)
+  ELSE
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zh, &
+      zdhadj, zha)
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zo, &
+      pdoadj, zoa)
+  END IF
+
+  IF (1==0) THEN
+    CALL dvthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zmax, &
+      zu, zv, pduadj, pdvadj, zua, zva)
+  ELSE
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zu, pduadj, &
+      zua)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zv, pdvadj, &
+      zva)
+  END IF
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zf = 0.5*(fracc(ig,l)+fracc(ig,l+1))
+      zf2 = zf/(1.-zf)
+      thetath2(ig, l) = zf2*(zha(ig,l)-zh(ig,l))**2
+      wth2(ig, l) = zf2*(0.5*(wa_moy(ig,l)+wa_moy(ig,l+1)))**2
+    END DO
+  END DO
+
+
+
+  ! print*,'13 OK convect8'
+  ! print*,'WA5 ',wa_moy
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      pdtadj(ig, l) = zdhadj(ig, l)*zpspsk(ig, l)
+    END DO
+  END DO
+
+
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! if(abs(pdtadj(ig,l))*86400..gt.500.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdtadj=',pdtadj(ig,l)
+  ! endif
+  ! if(abs(pdoadj(ig,l))*86400..gt.1.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdoadj=',pdoadj(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+
+  ! print*,'14 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calculs pour les sorties
+  ! ------------------------------------------------------------------
+
+  IF (sorties) THEN
+    DO l = 1, nlay
+      DO ig = 1, ngrid
+        zla(ig, l) = (1.-fracd(ig,l))*zmax(ig)
+        zld(ig, l) = fracd(ig, l)*zmax(ig)
+        IF (1.-fracd(ig,l)>1.E-10) zwa(ig, l) = wd(ig, l)*fracd(ig, l)/ &
+          (1.-fracd(ig,l))
+      END DO
+    END DO
+
+    ! deja fait
+    ! do l=1,nlay
+    ! do ig=1,ngrid
+    ! detr(ig,l)=fm(ig,l)+entr(ig,l)-fm(ig,l+1)
+    ! if (detr(ig,l).lt.0.) then
+    ! entr(ig,l)=entr(ig,l)-detr(ig,l)
+    ! detr(ig,l)=0.
+    ! print*,'WARNING !!! detrainement negatif ',ig,l
+    ! endif
+    ! enddo
+    ! enddo
+
+    ! print*,'15 OK convect8'
+
+
+    ! #define und
+    GO TO 123
+#ifdef und
+    CALL writeg1d(1, nlay, wd, 'wd      ', 'wd      ')
+    CALL writeg1d(1, nlay, zwa, 'wa      ', 'wa      ')
+    CALL writeg1d(1, nlay, fracd, 'fracd      ', 'fracd      ')
+    CALL writeg1d(1, nlay, fraca, 'fraca      ', 'fraca      ')
+    CALL writeg1d(1, nlay, wa_moy, 'wam         ', 'wam         ')
+    CALL writeg1d(1, nlay, zla, 'la      ', 'la      ')
+    CALL writeg1d(1, nlay, zld, 'ld      ', 'ld      ')
+    CALL writeg1d(1, nlay, pt, 'pt      ', 'pt      ')
+    CALL writeg1d(1, nlay, zh, 'zh      ', 'zh      ')
+    CALL writeg1d(1, nlay, zha, 'zha      ', 'zha      ')
+    CALL writeg1d(1, nlay, zu, 'zu      ', 'zu      ')
+    CALL writeg1d(1, nlay, zv, 'zv      ', 'zv      ')
+    CALL writeg1d(1, nlay, zo, 'zo      ', 'zo      ')
+    CALL writeg1d(1, nlay, wh, 'wh      ', 'wh      ')
+    CALL writeg1d(1, nlay, wu, 'wu      ', 'wu      ')
+    CALL writeg1d(1, nlay, wv, 'wv      ', 'wv      ')
+    CALL writeg1d(1, nlay, wo, 'w15uo     ', 'wXo     ')
+    CALL writeg1d(1, nlay, zdhadj, 'zdhadj      ', 'zdhadj      ')
+    CALL writeg1d(1, nlay, pduadj, 'pduadj      ', 'pduadj      ')
+    CALL writeg1d(1, nlay, pdvadj, 'pdvadj      ', 'pdvadj      ')
+    CALL writeg1d(1, nlay, pdoadj, 'pdoadj      ', 'pdoadj      ')
+    CALL writeg1d(1, nlay, entr, 'entr        ', 'entr        ')
+    CALL writeg1d(1, nlay, detr, 'detr        ', 'detr        ')
+    CALL writeg1d(1, nlay, fm, 'fm          ', 'fm          ')
+
+    CALL writeg1d(1, nlay, pdtadj, 'pdtadj    ', 'pdtadj    ')
+    CALL writeg1d(1, nlay, pplay, 'pplay     ', 'pplay     ')
+    CALL writeg1d(1, nlay, pplev, 'pplev     ', 'pplev     ')
+
+    ! recalcul des flux en diagnostique...
+    ! print*,'PAS DE TEMPS ',ptimestep
+    CALL dt2f(pplev, pplay, pt, pdtadj, wh)
+    CALL writeg1d(1, nlay, wh, 'wh2     ', 'wh2     ')
+#endif
+123 CONTINUE
+
+  END IF
+
+  ! if(wa_moy(1,4).gt.1.e-10) stop
+
+  ! print*,'19 OK convect8'
+  RETURN
+END SUBROUTINE thermcell
+
+SUBROUTINE dqthermcell(ngrid, nlay, ptimestep, fm, entr, masse, q, dq, qa)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+  ! calcul du dq/dt une fois qu'on connait les ascendances
+
+  ! =======================================================================
+
+  INTEGER ngrid, nlay
+
+  REAL ptimestep
+  REAL masse(ngrid, nlay), fm(ngrid, nlay+1)
+  REAL entr(ngrid, nlay)
+  REAL q(ngrid, nlay)
+  REAL dq(ngrid, nlay)
+
+  REAL qa(klon, klev), detr(klon, klev), wqd(klon, klev+1)
+
+  INTEGER ig, k
+
+  ! calcul du detrainement
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, k) = fm(ig, k) - fm(ig, k+1) + entr(ig, k)
+      ! test
+      IF (detr(ig,k)<0.) THEN
+        entr(ig, k) = entr(ig, k) - detr(ig, k)
+        detr(ig, k) = 0.
+        ! print*,'detr2<0!!!','ig=',ig,'k=',k,'f=',fm(ig,k),
+        ! s         'f+1=',fm(ig,k+1),'e=',entr(ig,k),'d=',detr(ig,k)
+      END IF
+      IF (fm(ig,k+1)<0.) THEN
+        ! print*,'fm2<0!!!'
+      END IF
+      IF (entr(ig,k)<0.) THEN
+        ! print*,'entr2<0!!!'
+      END IF
+    END DO
+  END DO
+
+  ! calcul de la valeur dans les ascendances
+  DO ig = 1, ngrid
+    qa(ig, 1) = q(ig, 1)
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>1.E-5*masse(ig,k)) THEN
+        qa(ig, k) = (fm(ig,k)*qa(ig,k-1)+entr(ig,k)*q(ig,k))/ &
+          (fm(ig,k+1)+detr(ig,k))
+      ELSE
+        qa(ig, k) = q(ig, k)
+      END IF
+      IF (qa(ig,k)<0.) THEN
+        ! print*,'qa<0!!!'
+      END IF
+      IF (q(ig,k)<0.) THEN
+        ! print*,'q<0!!!'
+      END IF
+    END DO
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      ! wqd(ig,k)=fm(ig,k)*0.5*(q(ig,k-1)+q(ig,k))
+      wqd(ig, k) = fm(ig, k)*q(ig, k)
+      IF (wqd(ig,k)<0.) THEN
+        ! print*,'wqd<0!!!'
+      END IF
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    wqd(ig, 1) = 0.
+    wqd(ig, nlay+1) = 0.
+  END DO
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      dq(ig, k) = (detr(ig,k)*qa(ig,k)-entr(ig,k)*q(ig,k)-wqd(ig,k)+wqd(ig,k+ &
+        1))/masse(ig, k)
+      ! if (dq(ig,k).lt.0.) then
+      ! print*,'dq<0!!!'
+      ! endif
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE dqthermcell
+SUBROUTINE dvthermcell(ngrid, nlay, ptimestep, fm, entr, masse, fraca, larga, &
+    u, v, du, dv, ua, va)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+  ! calcul du dq/dt une fois qu'on connait les ascendances
+
+  ! =======================================================================
+
+  INTEGER ngrid, nlay
+
+  REAL ptimestep
+  REAL masse(ngrid, nlay), fm(ngrid, nlay+1)
+  REAL fraca(ngrid, nlay+1)
+  REAL larga(ngrid)
+  REAL entr(ngrid, nlay)
+  REAL u(ngrid, nlay)
+  REAL ua(ngrid, nlay)
+  REAL du(ngrid, nlay)
+  REAL v(ngrid, nlay)
+  REAL va(ngrid, nlay)
+  REAL dv(ngrid, nlay)
+
+  REAL qa(klon, klev), detr(klon, klev)
+  REAL wvd(klon, klev+1), wud(klon, klev+1)
+  REAL gamma0, gamma(klon, klev+1)
+  REAL dua, dva
+  INTEGER iter
+
+  INTEGER ig, k
+
+  ! calcul du detrainement
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, k) = fm(ig, k) - fm(ig, k+1) + entr(ig, k)
+    END DO
+  END DO
+
+  ! calcul de la valeur dans les ascendances
+  DO ig = 1, ngrid
+    ua(ig, 1) = u(ig, 1)
+    va(ig, 1) = v(ig, 1)
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>1.E-5*masse(ig,k)) THEN
+        ! On itère sur la valeur du coeff de freinage.
+        ! gamma0=rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k))
+        gamma0 = masse(ig, k)*sqrt(0.5*(fraca(ig,k+1)+fraca(ig, &
+          k)))*0.5/larga(ig)
+        ! gamma0=0.
+        ! la première fois on multiplie le coefficient de freinage
+        ! par le module du vent dans la couche en dessous.
+        dua = ua(ig, k-1) - u(ig, k-1)
+        dva = va(ig, k-1) - v(ig, k-1)
+        DO iter = 1, 5
+          gamma(ig, k) = gamma0*sqrt(dua**2+dva**2)
+          ua(ig, k) = (fm(ig,k)*ua(ig,k-1)+(entr(ig,k)+gamma(ig, &
+            k))*u(ig,k))/(fm(ig,k+1)+detr(ig,k)+gamma(ig,k))
+          va(ig, k) = (fm(ig,k)*va(ig,k-1)+(entr(ig,k)+gamma(ig, &
+            k))*v(ig,k))/(fm(ig,k+1)+detr(ig,k)+gamma(ig,k))
+          ! print*,k,ua(ig,k),va(ig,k),u(ig,k),v(ig,k),dua,dva
+          dua = ua(ig, k) - u(ig, k)
+          dva = va(ig, k) - v(ig, k)
+        END DO
+      ELSE
+        ua(ig, k) = u(ig, k)
+        va(ig, k) = v(ig, k)
+        gamma(ig, k) = 0.
+      END IF
+    END DO
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      wud(ig, k) = fm(ig, k)*u(ig, k)
+      wvd(ig, k) = fm(ig, k)*v(ig, k)
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    wud(ig, 1) = 0.
+    wud(ig, nlay+1) = 0.
+    wvd(ig, 1) = 0.
+    wvd(ig, nlay+1) = 0.
+  END DO
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      du(ig, k) = ((detr(ig,k)+gamma(ig,k))*ua(ig,k)-(entr(ig,k)+gamma(ig, &
+        k))*u(ig,k)-wud(ig,k)+wud(ig,k+1))/masse(ig, k)
+      dv(ig, k) = ((detr(ig,k)+gamma(ig,k))*va(ig,k)-(entr(ig,k)+gamma(ig, &
+        k))*v(ig,k)-wvd(ig,k)+wvd(ig,k+1))/masse(ig, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE dvthermcell
+SUBROUTINE dqthermcell2(ngrid, nlay, ptimestep, fm, entr, masse, frac, q, dq, &
+    qa)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+  ! calcul du dq/dt une fois qu'on connait les ascendances
+
+  ! =======================================================================
+
+  INTEGER ngrid, nlay
+
+  REAL ptimestep
+  REAL masse(ngrid, nlay), fm(ngrid, nlay+1)
+  REAL entr(ngrid, nlay), frac(ngrid, nlay)
+  REAL q(ngrid, nlay)
+  REAL dq(ngrid, nlay)
+
+  REAL qa(klon, klev), detr(klon, klev), wqd(klon, klev+1)
+  REAL qe(klon, klev), zf, zf2
+
+  INTEGER ig, k
+
+  ! calcul du detrainement
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, k) = fm(ig, k) - fm(ig, k+1) + entr(ig, k)
+    END DO
+  END DO
+
+  ! calcul de la valeur dans les ascendances
+  DO ig = 1, ngrid
+    qa(ig, 1) = q(ig, 1)
+    qe(ig, 1) = q(ig, 1)
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>1.E-5*masse(ig,k)) THEN
+        zf = 0.5*(frac(ig,k)+frac(ig,k+1))
+        zf2 = 1./(1.-zf)
+        qa(ig, k) = (fm(ig,k)*qa(ig,k-1)+zf2*entr(ig,k)*q(ig,k))/ &
+          (fm(ig,k+1)+detr(ig,k)+entr(ig,k)*zf*zf2)
+        qe(ig, k) = (q(ig,k)-zf*qa(ig,k))*zf2
+      ELSE
+        qa(ig, k) = q(ig, k)
+        qe(ig, k) = q(ig, k)
+      END IF
+    END DO
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      ! wqd(ig,k)=fm(ig,k)*0.5*(q(ig,k-1)+q(ig,k))
+      wqd(ig, k) = fm(ig, k)*qe(ig, k)
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    wqd(ig, 1) = 0.
+    wqd(ig, nlay+1) = 0.
+  END DO
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      dq(ig, k) = (detr(ig,k)*qa(ig,k)-entr(ig,k)*qe(ig,k)-wqd(ig,k)+wqd(ig,k &
+        +1))/masse(ig, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE dqthermcell2
+SUBROUTINE dvthermcell2(ngrid, nlay, ptimestep, fm, entr, masse, fraca, &
+    larga, u, v, du, dv, ua, va)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+  ! calcul du dq/dt une fois qu'on connait les ascendances
+
+  ! =======================================================================
+
+  INTEGER ngrid, nlay
+
+  REAL ptimestep
+  REAL masse(ngrid, nlay), fm(ngrid, nlay+1)
+  REAL fraca(ngrid, nlay+1)
+  REAL larga(ngrid)
+  REAL entr(ngrid, nlay)
+  REAL u(ngrid, nlay)
+  REAL ua(ngrid, nlay)
+  REAL du(ngrid, nlay)
+  REAL v(ngrid, nlay)
+  REAL va(ngrid, nlay)
+  REAL dv(ngrid, nlay)
+
+  REAL qa(klon, klev), detr(klon, klev), zf, zf2
+  REAL wvd(klon, klev+1), wud(klon, klev+1)
+  REAL gamma0, gamma(klon, klev+1)
+  REAL ue(klon, klev), ve(klon, klev)
+  REAL dua, dva
+  INTEGER iter
+
+  INTEGER ig, k
+
+  ! calcul du detrainement
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, k) = fm(ig, k) - fm(ig, k+1) + entr(ig, k)
+    END DO
+  END DO
+
+  ! calcul de la valeur dans les ascendances
+  DO ig = 1, ngrid
+    ua(ig, 1) = u(ig, 1)
+    va(ig, 1) = v(ig, 1)
+    ue(ig, 1) = u(ig, 1)
+    ve(ig, 1) = v(ig, 1)
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>1.E-5*masse(ig,k)) THEN
+        ! On itère sur la valeur du coeff de freinage.
+        ! gamma0=rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k))
+        gamma0 = masse(ig, k)*sqrt(0.5*(fraca(ig,k+1)+fraca(ig, &
+          k)))*0.5/larga(ig)*1.
+        ! s         *0.5
+        ! gamma0=0.
+        zf = 0.5*(fraca(ig,k)+fraca(ig,k+1))
+        zf = 0.
+        zf2 = 1./(1.-zf)
+        ! la première fois on multiplie le coefficient de freinage
+        ! par le module du vent dans la couche en dessous.
+        dua = ua(ig, k-1) - u(ig, k-1)
+        dva = va(ig, k-1) - v(ig, k-1)
+        DO iter = 1, 5
+          ! On choisit une relaxation lineaire.
+          gamma(ig, k) = gamma0
+          ! On choisit une relaxation quadratique.
+          gamma(ig, k) = gamma0*sqrt(dua**2+dva**2)
+          ua(ig, k) = (fm(ig,k)*ua(ig,k-1)+(zf2*entr(ig,k)+gamma(ig, &
+            k))*u(ig,k))/(fm(ig,k+1)+detr(ig,k)+entr(ig,k)*zf*zf2+gamma(ig,k) &
+            )
+          va(ig, k) = (fm(ig,k)*va(ig,k-1)+(zf2*entr(ig,k)+gamma(ig, &
+            k))*v(ig,k))/(fm(ig,k+1)+detr(ig,k)+entr(ig,k)*zf*zf2+gamma(ig,k) &
+            )
+          ! print*,k,ua(ig,k),va(ig,k),u(ig,k),v(ig,k),dua,dva
+          dua = ua(ig, k) - u(ig, k)
+          dva = va(ig, k) - v(ig, k)
+          ue(ig, k) = (u(ig,k)-zf*ua(ig,k))*zf2
+          ve(ig, k) = (v(ig,k)-zf*va(ig,k))*zf2
+        END DO
+      ELSE
+        ua(ig, k) = u(ig, k)
+        va(ig, k) = v(ig, k)
+        ue(ig, k) = u(ig, k)
+        ve(ig, k) = v(ig, k)
+        gamma(ig, k) = 0.
+      END IF
+    END DO
+  END DO
+
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      wud(ig, k) = fm(ig, k)*ue(ig, k)
+      wvd(ig, k) = fm(ig, k)*ve(ig, k)
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    wud(ig, 1) = 0.
+    wud(ig, nlay+1) = 0.
+    wvd(ig, 1) = 0.
+    wvd(ig, nlay+1) = 0.
+  END DO
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      du(ig, k) = ((detr(ig,k)+gamma(ig,k))*ua(ig,k)-(entr(ig,k)+gamma(ig, &
+        k))*ue(ig,k)-wud(ig,k)+wud(ig,k+1))/masse(ig, k)
+      dv(ig, k) = ((detr(ig,k)+gamma(ig,k))*va(ig,k)-(entr(ig,k)+gamma(ig, &
+        k))*ve(ig,k)-wvd(ig,k)+wvd(ig,k+1))/masse(ig, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE dvthermcell2
+SUBROUTINE thermcell_sec(ngrid, nlay, ptimestep, pplay, pplev, pphi, zlev, &
+    pu, pv, pt, po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0 & ! s
+                                                                 ! ,pu_therm,pv_therm
+    , r_aspect, l_mix, w2di, tho)
+
+  USE dimphy
+  IMPLICIT NONE
+
+  ! =======================================================================
+
+  ! Calcul du transport verticale dans la couche limite en presence
+  ! de "thermiques" explicitement representes
+
+  ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
+
+  ! le thermique est supposé homogène et dissipé par mélange avec
+  ! son environnement. la longueur l_mix contrôle l'efficacité du
+  ! mélange
+
+  ! Le calcul du transport des différentes espèces se fait en prenant
+  ! en compte:
+  ! 1. un flux de masse montant
+  ! 2. un flux de masse descendant
+  ! 3. un entrainement
+  ! 4. un detrainement
+
+  ! =======================================================================
+
+  ! -----------------------------------------------------------------------
+  ! declarations:
+  ! -------------
+
+  include "YOMCST.h"
+
+  ! arguments:
+  ! ----------
+
+  INTEGER ngrid, nlay, w2di
+  REAL tho
+  REAL ptimestep, l_mix, r_aspect
+  REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)
+  REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
+  REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+  REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
+  REAL pplay(ngrid, nlay), pplev(ngrid, nlay+1)
+  REAL pphi(ngrid, nlay)
+
+  INTEGER idetr
+  SAVE idetr
+  DATA idetr/3/
+  !$OMP THREADPRIVATE(idetr)
+
+  ! local:
+  ! ------
+
+  INTEGER ig, k, l, lmaxa(klon), lmix(klon)
+  REAL zsortie1d(klon)
+  ! CR: on remplace lmax(klon,klev+1)
+  INTEGER lmax(klon), lmin(klon), lentr(klon)
+  REAL linter(klon)
+  REAL zmix(klon), fracazmix(klon)
+  ! RC
+  REAL zmax(klon), zw, zz, zw2(klon, klev+1), ztva(klon, klev), zzz
+
+  REAL zlev(klon, klev+1), zlay(klon, klev)
+  REAL zh(klon, klev), zdhadj(klon, klev)
+  REAL ztv(klon, klev)
+  REAL zu(klon, klev), zv(klon, klev), zo(klon, klev)
+  REAL wh(klon, klev+1)
+  REAL wu(klon, klev+1), wv(klon, klev+1), wo(klon, klev+1)
+  REAL zla(klon, klev+1)
+  REAL zwa(klon, klev+1)
+  REAL zld(klon, klev+1)
+  REAL zwd(klon, klev+1)
+  REAL zsortie(klon, klev)
+  REAL zva(klon, klev)
+  REAL zua(klon, klev)
+  REAL zoa(klon, klev)
+
+  REAL zha(klon, klev)
+  REAL wa_moy(klon, klev+1)
+  REAL fraca(klon, klev+1)
+  REAL fracc(klon, klev+1)
+  REAL zf, zf2
+  REAL thetath2(klon, klev), wth2(klon, klev)
+  ! common/comtherm/thetath2,wth2
+
+  REAL count_time
+  INTEGER ialt
+
+  LOGICAL sorties
+  REAL rho(klon, klev), rhobarz(klon, klev+1), masse(klon, klev)
+  REAL zpspsk(klon, klev)
+
+  ! real wmax(klon,klev),wmaxa(klon)
+  REAL wmax(klon), wmaxa(klon)
+  REAL wa(klon, klev, klev+1)
+  REAL wd(klon, klev+1)
+  REAL larg_part(klon, klev, klev+1)
+  REAL fracd(klon, klev+1)
+  REAL xxx(klon, klev+1)
+  REAL larg_cons(klon, klev+1)
+  REAL larg_detr(klon, klev+1)
+  REAL fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev)
+  REAL pu_therm(klon, klev), pv_therm(klon, klev)
+  REAL fm(klon, klev+1), entr(klon, klev)
+  REAL fmc(klon, klev+1)
+
+  ! CR:nouvelles variables
+  REAL f_star(klon, klev+1), entr_star(klon, klev)
+  REAL entr_star_tot(klon), entr_star2(klon)
+  REAL f(klon), f0(klon)
+  REAL zlevinter(klon)
+  LOGICAL first
+  DATA first/.FALSE./
+  SAVE first
+  !$OMP THREADPRIVATE(first)
+  ! RC
+
+  CHARACTER *2 str2
+  CHARACTER *10 str10
+
+  CHARACTER (LEN=20) :: modname = 'thermcell_sec'
+  CHARACTER (LEN=80) :: abort_message
+
+  LOGICAL vtest(klon), down
+
+  EXTERNAL scopy
+
+  INTEGER ncorrec, ll
+  SAVE ncorrec
+  DATA ncorrec/0/
+  !$OMP THREADPRIVATE(ncorrec)
+
+
+  ! -----------------------------------------------------------------------
+  ! initialisation:
+  ! ---------------
+
+  sorties = .TRUE.
+  IF (ngrid/=klon) THEN
+    PRINT *
+    PRINT *, 'STOP dans convadj'
+    PRINT *, 'ngrid    =', ngrid
+    PRINT *, 'klon  =', klon
+  END IF
+
+  ! -----------------------------------------------------------------------
+  ! incrementation eventuelle de tendances precedentes:
+  ! ---------------------------------------------------
+
+  ! print*,'0 OK convect8'
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zpspsk(ig, l) = (pplay(ig,l)/pplev(ig,1))**rkappa
+      zh(ig, l) = pt(ig, l)/zpspsk(ig, l)
+      zu(ig, l) = pu(ig, l)
+      zv(ig, l) = pv(ig, l)
+      zo(ig, l) = po(ig, l)
+      ztv(ig, l) = zh(ig, l)*(1.+0.61*zo(ig,l))
+    END DO
+  END DO
+
+  ! print*,'1 OK convect8'
+  ! --------------------
+
+
+  ! + + + + + + + + + + +
+
+
+  ! wa, fraca, wd, fracd --------------------   zlev(2), rhobarz
+  ! wh,wt,wo ...
+
+  ! + + + + + + + + + + +  zh,zu,zv,zo,rho
+
+
+  ! --------------------   zlev(1)
+  ! \\\\\\\\\\\\\\\\\\\\
+
+
+
+  ! -----------------------------------------------------------------------
+  ! Calcul des altitudes des couches
+  ! -----------------------------------------------------------------------
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      zlev(ig, l) = 0.5*(pphi(ig,l)+pphi(ig,l-1))/rg
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    zlev(ig, 1) = 0.
+    zlev(ig, nlay+1) = (2.*pphi(ig,klev)-pphi(ig,klev-1))/rg
+  END DO
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zlay(ig, l) = pphi(ig, l)/rg
+    END DO
+  END DO
+
+  ! print*,'2 OK convect8'
+  ! -----------------------------------------------------------------------
+  ! Calcul des densites
+  ! -----------------------------------------------------------------------
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      rho(ig, l) = pplay(ig, l)/(zpspsk(ig,l)*rd*zh(ig,l))
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      rhobarz(ig, l) = 0.5*(rho(ig,l)+rho(ig,l-1))
+    END DO
+  END DO
+
+  DO k = 1, nlay
+    DO l = 1, nlay + 1
+      DO ig = 1, ngrid
+        wa(ig, k, l) = 0.
+      END DO
+    END DO
+  END DO
+
+  ! print*,'3 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calcul de w2, quarre de w a partir de la cape
+  ! a partir de w2, on calcule wa, vitesse de l'ascendance
+
+  ! ATTENTION: Dans cette version, pour cause d'economie de memoire,
+  ! w2 est stoke dans wa
+
+  ! ATTENTION: dans convect8, on n'utilise le calcule des wa
+  ! independants par couches que pour calculer l'entrainement
+  ! a la base et la hauteur max de l'ascendance.
+
+  ! Indicages:
+  ! l'ascendance provenant du niveau k traverse l'interface l avec
+  ! une vitesse wa(k,l).
+
+  ! --------------------
+
+  ! + + + + + + + + + +
+
+  ! wa(k,l)   ----       --------------------    l
+  ! /\
+  ! /||\       + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||
+  ! ||        + + + + + + + + + +
+  ! ||
+  ! ||        --------------------
+  ! ||__
+  ! |___      + + + + + + + + + +     k
+
+  ! --------------------
+
+
+
+  ! ------------------------------------------------------------------
+
+  ! CR: ponderation entrainement des couches instables
+  ! def des entr_star tels que entr=f*entr_star
+  DO l = 1, klev
+    DO ig = 1, ngrid
+      entr_star(ig, l) = 0.
+    END DO
+  END DO
+  ! determination de la longueur de la couche d entrainement
+  DO ig = 1, ngrid
+    lentr(ig) = 1
+  END DO
+
+  ! on ne considere que les premieres couches instables
+  DO k = nlay - 2, 1, -1
+    DO ig = 1, ngrid
+      IF (ztv(ig,k)>ztv(ig,k+1) .AND. ztv(ig,k+1)<=ztv(ig,k+2)) THEN
+        lentr(ig) = k
+      END IF
+    END DO
+  END DO
+
+  ! determination du lmin: couche d ou provient le thermique
+  DO ig = 1, ngrid
+    lmin(ig) = 1
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, 2, -1
+      IF (ztv(ig,l-1)>ztv(ig,l)) THEN
+        lmin(ig) = l - 1
+      END IF
+    END DO
+  END DO
+
+  ! definition de l'entrainement des couches
+  DO l = 1, klev - 1
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. l>=lmin(ig) .AND. l<=lentr(ig)) THEN
+        entr_star(ig, l) = (ztv(ig,l)-ztv(ig,l+1))** & ! s
+                                                       ! (zlev(ig,l+1)-zlev(ig,l))
+          sqrt(zlev(ig,l+1))
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>1) THEN
+      DO l = 1, klev
+        entr_star(ig, l) = 0.
+      END DO
+    END IF
+  END DO
+  ! calcul de l entrainement total
+  DO ig = 1, ngrid
+    entr_star_tot(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    DO k = 1, klev
+      entr_star_tot(ig) = entr_star_tot(ig) + entr_star(ig, k)
+    END DO
+  END DO
+
+  ! print*,'fin calcul entr_star'
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      ztva(ig, k) = ztv(ig, k)
+    END DO
+  END DO
+  ! RC
+  ! print*,'7 OK convect8'
+  DO k = 1, klev + 1
+    DO ig = 1, ngrid
+      zw2(ig, k) = 0.
+      fmc(ig, k) = 0.
+      ! CR
+      f_star(ig, k) = 0.
+      ! RC
+      larg_cons(ig, k) = 0.
+      larg_detr(ig, k) = 0.
+      wa_moy(ig, k) = 0.
+    END DO
+  END DO
+
+  ! print*,'8 OK convect8'
+  DO ig = 1, ngrid
+    linter(ig) = 1.
+    lmaxa(ig) = 1
+    lmix(ig) = 1
+    wmaxa(ig) = 0.
+  END DO
+
+  ! CR:
+  DO l = 1, nlay - 2
+    DO ig = 1, ngrid
+      IF (ztv(ig,l)>ztv(ig,l+1) .AND. entr_star(ig,l)>1.E-10 .AND. &
+          zw2(ig,l)<1E-10) THEN
+        f_star(ig, l+1) = entr_star(ig, l)
+        ! test:calcul de dteta
+        zw2(ig, l+1) = 2.*rg*(ztv(ig,l)-ztv(ig,l+1))/ztv(ig, l+1)* &
+          (zlev(ig,l+1)-zlev(ig,l))*0.4*pphi(ig, l)/(pphi(ig,l+1)-pphi(ig,l))
+        larg_detr(ig, l) = 0.
+      ELSE IF ((zw2(ig,l)>=1E-10) .AND. (f_star(ig,l)+entr_star(ig, &
+          l)>1.E-10)) THEN
+        f_star(ig, l+1) = f_star(ig, l) + entr_star(ig, l)
+        ztva(ig, l) = (f_star(ig,l)*ztva(ig,l-1)+entr_star(ig,l)*ztv(ig,l))/ &
+          f_star(ig, l+1)
+        zw2(ig, l+1) = zw2(ig, l)*(f_star(ig,l)/f_star(ig,l+1))**2 + &
+          2.*rg*(ztva(ig,l)-ztv(ig,l))/ztv(ig, l)*(zlev(ig,l+1)-zlev(ig,l))
+      END IF
+      ! determination de zmax continu par interpolation lineaire
+      IF (zw2(ig,l+1)<0.) THEN
+        ! test
+        IF (abs(zw2(ig,l+1)-zw2(ig,l))<1E-10) THEN
+          ! print*,'pb linter'
+        END IF
+        linter(ig) = (l*(zw2(ig,l+1)-zw2(ig,l))-zw2(ig,l))/(zw2(ig,l+1)-zw2( &
+          ig,l))
+        zw2(ig, l+1) = 0.
+        lmaxa(ig) = l
+      ELSE
+        IF (zw2(ig,l+1)<0.) THEN
+          ! print*,'pb1 zw2<0'
+        END IF
+        wa_moy(ig, l+1) = sqrt(zw2(ig,l+1))
+      END IF
+      IF (wa_moy(ig,l+1)>wmaxa(ig)) THEN
+        ! lmix est le niveau de la couche ou w (wa_moy) est maximum
+        lmix(ig) = l + 1
+        wmaxa(ig) = wa_moy(ig, l+1)
+      END IF
+    END DO
+  END DO
+  ! print*,'fin calcul zw2'
+
+  ! Calcul de la couche correspondant a la hauteur du thermique
+  DO ig = 1, ngrid
+    lmax(ig) = lentr(ig)
+  END DO
+  DO ig = 1, ngrid
+    DO l = nlay, lentr(ig) + 1, -1
+      IF (zw2(ig,l)<=1.E-10) THEN
+        lmax(ig) = l - 1
+      END IF
+    END DO
+  END DO
+  ! pas de thermique si couche 1 stable
+  DO ig = 1, ngrid
+    IF (lmin(ig)>1) THEN
+      lmax(ig) = 1
+      lmin(ig) = 1
+    END IF
+  END DO
+
+  ! Determination de zw2 max
+  DO ig = 1, ngrid
+    wmax(ig) = 0.
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmax(ig)) THEN
+        IF (zw2(ig,l)<0.) THEN
+          ! print*,'pb2 zw2<0'
+        END IF
+        zw2(ig, l) = sqrt(zw2(ig,l))
+        wmax(ig) = max(wmax(ig), zw2(ig,l))
+      ELSE
+        zw2(ig, l) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! Longueur caracteristique correspondant a la hauteur des thermiques.
+  DO ig = 1, ngrid
+    zmax(ig) = 0.
+    zlevinter(ig) = zlev(ig, 1)
+  END DO
+  DO ig = 1, ngrid
+    ! calcul de zlevinter
+    zlevinter(ig) = (zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))*linter(ig) + &
+      zlev(ig, lmax(ig)) - lmax(ig)*(zlev(ig,lmax(ig)+1)-zlev(ig,lmax(ig)))
+    zmax(ig) = max(zmax(ig), zlevinter(ig)-zlev(ig,lmin(ig)))
+  END DO
+
+  ! print*,'avant fermeture'
+  ! Fermeture,determination de f
+  DO ig = 1, ngrid
+    entr_star2(ig) = 0.
+  END DO
+  DO ig = 1, ngrid
+    IF (entr_star_tot(ig)<1.E-10) THEN
+      f(ig) = 0.
+    ELSE
+      DO k = lmin(ig), lentr(ig)
+        entr_star2(ig) = entr_star2(ig) + entr_star(ig, k)**2/(rho(ig,k)*( &
+          zlev(ig,k+1)-zlev(ig,k)))
+      END DO
+      ! Nouvelle fermeture
+      f(ig) = wmax(ig)/(max(500.,zmax(ig))*r_aspect*entr_star2(ig))* &
+        entr_star_tot(ig)
+      ! test
+      ! if (first) then
+      ! f(ig)=f(ig)+(f0(ig)-f(ig))*exp(-ptimestep/zmax(ig)
+      ! s             *wmax(ig))
+      ! endif
+    END IF
+    ! f0(ig)=f(ig)
+    ! first=.true.
+  END DO
+  ! print*,'apres fermeture'
+
+  ! Calcul de l'entrainement
+  DO k = 1, klev
+    DO ig = 1, ngrid
+      entr(ig, k) = f(ig)*entr_star(ig, k)
+    END DO
+  END DO
+  ! CR:test pour entrainer moins que la masse
+  DO ig = 1, ngrid
+    DO l = 1, lentr(ig)
+      IF ((entr(ig,l)*ptimestep)>(0.9*masse(ig,l))) THEN
+        entr(ig, l+1) = entr(ig, l+1) + entr(ig, l) - &
+          0.9*masse(ig, l)/ptimestep
+        entr(ig, l) = 0.9*masse(ig, l)/ptimestep
+      END IF
+    END DO
+  END DO
+  ! CR: fin test
+  ! Calcul des flux
+  DO ig = 1, ngrid
+    DO l = 1, lmax(ig) - 1
+      fmc(ig, l+1) = fmc(ig, l) + entr(ig, l)
+    END DO
+  END DO
+
+  ! RC
+
+
+  ! print*,'9 OK convect8'
+  ! print*,'WA1 ',wa_moy
+
+  ! determination de l'indice du debut de la mixed layer ou w decroit
+
+  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
+  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
+  ! d'une couche est égale à la hauteur de la couche alimentante.
+  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
+  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        zw = max(wa_moy(ig,l), 1.E-10)
+        larg_cons(ig, l) = zmax(ig)*r_aspect*fmc(ig, l)/(rhobarz(ig,l)*zw)
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (l<=lmaxa(ig)) THEN
+        ! if (idetr.eq.0) then
+        ! cette option est finalement en dur.
+        IF ((l_mix*zlev(ig,l))<0.) THEN
+          ! print*,'pb l_mix*zlev<0'
+        END IF
+        ! CR: test: nouvelle def de lambda
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        IF (zw2(ig,l)>1.E-10) THEN
+          larg_detr(ig, l) = sqrt((l_mix/zw2(ig,l))*zlev(ig,l))
+        ELSE
+          larg_detr(ig, l) = sqrt(l_mix*zlev(ig,l))
+        END IF
+        ! RC
+        ! else if (idetr.eq.1) then
+        ! larg_detr(ig,l)=larg_cons(ig,l)
+        ! s            *sqrt(l_mix*zlev(ig,l))/larg_cons(ig,lmix(ig))
+        ! else if (idetr.eq.2) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *sqrt(wa_moy(ig,l))
+        ! else if (idetr.eq.4) then
+        ! larg_detr(ig,l)=sqrt(l_mix*zlev(ig,l))
+        ! s            *wa_moy(ig,l)
+        ! endif
+      END IF
+    END DO
+  END DO
+
+  ! print*,'10 OK convect8'
+  ! print*,'WA2 ',wa_moy
+  ! calcul de la fraction de la maille concernée par l'ascendance en tenant
+  ! compte de l'epluchage du thermique.
+
+  ! CR def de  zmix continu (profil parabolique des vitesses)
+  DO ig = 1, ngrid
+    IF (lmix(ig)>1.) THEN
+      ! test
+      IF (((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))- &
+          (zlev(ig,lmix(ig)))))>1E-10) THEN
+
+        zmix(ig) = ((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)) &
+          )**2-(zlev(ig,lmix(ig)+1))**2)-(zw2(ig,lmix(ig))-zw2(ig, &
+          lmix(ig)+1))*((zlev(ig,lmix(ig)-1))**2-(zlev(ig,lmix(ig)))**2))/ &
+          (2.*((zw2(ig,lmix(ig)-1)-zw2(ig,lmix(ig)))*((zlev(ig,lmix(ig)))- &
+          (zlev(ig,lmix(ig)+1)))-(zw2(ig,lmix(ig))- &
+          zw2(ig,lmix(ig)+1))*((zlev(ig,lmix(ig)-1))-(zlev(ig,lmix(ig))))))
+      ELSE
+        zmix(ig) = zlev(ig, lmix(ig))
+        ! print*,'pb zmix'
+      END IF
+    ELSE
+      zmix(ig) = 0.
+    END IF
+    ! test
+    IF ((zmax(ig)-zmix(ig))<0.) THEN
+      zmix(ig) = 0.99*zmax(ig)
+      ! print*,'pb zmix>zmax'
+    END IF
+  END DO
+
+  ! calcul du nouveau lmix correspondant
+  DO ig = 1, ngrid
+    DO l = 1, klev
+      IF (zmix(ig)>=zlev(ig,l) .AND. zmix(ig)<zlev(ig,l+1)) THEN
+        lmix(ig) = l
+      END IF
+    END DO
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        ! print*,ig,l,lmix(ig),lmaxa(ig),larg_cons(ig,l),'  KKK'
+        fraca(ig, l) = (larg_cons(ig,l)-larg_detr(ig,l))/(r_aspect*zmax(ig))
+        ! test
+        fraca(ig, l) = max(fraca(ig,l), 0.)
+        fraca(ig, l) = min(fraca(ig,l), 0.5)
+        fracd(ig, l) = 1. - fraca(ig, l)
+        fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+      ELSE
+        ! wa_moy(ig,l)=0.
+        fraca(ig, l) = 0.
+        fracc(ig, l) = 0.
+        fracd(ig, l) = 1.
+      END IF
+    END DO
+  END DO
+  ! CR: calcul de fracazmix
+  DO ig = 1, ngrid
+    fracazmix(ig) = (fraca(ig,lmix(ig)+1)-fraca(ig,lmix(ig)))/ &
+      (zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))*zmix(ig) + &
+      fraca(ig, lmix(ig)) - zlev(ig, lmix(ig))*(fraca(ig,lmix(ig)+1)-fraca(ig &
+      ,lmix(ig)))/(zlev(ig,lmix(ig)+1)-zlev(ig,lmix(ig)))
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      IF (larg_cons(ig,l)>1.) THEN
+        IF (l>lmix(ig)) THEN
+          ! test
+          IF (zmax(ig)-zmix(ig)<1.E-10) THEN
+            ! print*,'pb xxx'
+            xxx(ig, l) = (lmaxa(ig)+1.-l)/(lmaxa(ig)+1.-lmix(ig))
+          ELSE
+            xxx(ig, l) = (zmax(ig)-zlev(ig,l))/(zmax(ig)-zmix(ig))
+          END IF
+          IF (idetr==0) THEN
+            fraca(ig, l) = fracazmix(ig)
+          ELSE IF (idetr==1) THEN
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)
+          ELSE IF (idetr==2) THEN
+            fraca(ig, l) = fracazmix(ig)*(1.-(1.-xxx(ig,l))**2)
+          ELSE
+            fraca(ig, l) = fracazmix(ig)*xxx(ig, l)**2
+          END IF
+          ! print*,ig,l,lmix(ig),lmaxa(ig),xxx(ig,l),'LLLLLLL'
+          fraca(ig, l) = max(fraca(ig,l), 0.)
+          fraca(ig, l) = min(fraca(ig,l), 0.5)
+          fracd(ig, l) = 1. - fraca(ig, l)
+          fracc(ig, l) = larg_cons(ig, l)/(r_aspect*zmax(ig))
+        END IF
+      END IF
+    END DO
+  END DO
+
+  ! print*,'fin calcul fraca'
+  ! print*,'11 OK convect8'
+  ! print*,'Ea3 ',wa_moy
+  ! ------------------------------------------------------------------
+  ! Calcul de fracd, wd
+  ! somme wa - wd = 0
+  ! ------------------------------------------------------------------
+
+
+  DO ig = 1, ngrid
+    fm(ig, 1) = 0.
+    fm(ig, nlay+1) = 0.
+  END DO
+
+  DO l = 2, nlay
+    DO ig = 1, ngrid
+      fm(ig, l) = fraca(ig, l)*wa_moy(ig, l)*rhobarz(ig, l)
+      ! CR:test
+      IF (entr(ig,l-1)<1E-10 .AND. fm(ig,l)>fm(ig,l-1) .AND. l>lmix(ig)) THEN
+        fm(ig, l) = fm(ig, l-1)
+        ! write(1,*)'ajustement fm, l',l
+      END IF
+      ! write(1,*)'ig,l,fm(ig,l)',ig,l,fm(ig,l)
+      ! RC
+    END DO
+    DO ig = 1, ngrid
+      IF (fracd(ig,l)<0.1) THEN
+        abort_message = 'fracd trop petit'
+        CALL abort_physic(modname, abort_message, 1)
+      ELSE
+        ! vitesse descendante "diagnostique"
+        wd(ig, l) = fm(ig, l)/(fracd(ig,l)*rhobarz(ig,l))
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      ! masse(ig,l)=rho(ig,l)*(zlev(ig,l+1)-zlev(ig,l))
+      masse(ig, l) = (pplev(ig,l)-pplev(ig,l+1))/rg
+    END DO
+  END DO
+
+  ! print*,'12 OK convect8'
+  ! print*,'WA4 ',wa_moy
+  ! c------------------------------------------------------------------
+  ! calcul du transport vertical
+  ! ------------------------------------------------------------------
+
+  GO TO 4444
+  ! print*,'XXXXXXXXXXXXXXX ptimestep= ',ptimestep
+  DO l = 2, nlay - 1
+    DO ig = 1, ngrid
+      IF (fm(ig,l+1)*ptimestep>masse(ig,l) .AND. fm(ig,l+1)*ptimestep>masse( &
+          ig,l+1)) THEN
+        ! print*,'WARN!!! FM>M ig=',ig,' l=',l,'  FM='
+        ! s         ,fm(ig,l+1)*ptimestep
+        ! s         ,'   M=',masse(ig,l),masse(ig,l+1)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (entr(ig,l)*ptimestep>masse(ig,l)) THEN
+        ! print*,'WARN!!! E>M ig=',ig,' l=',l,'  E=='
+        ! s         ,entr(ig,l)*ptimestep
+        ! s         ,'   M=',masse(ig,l)
+      END IF
+    END DO
+  END DO
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      IF (.NOT. fm(ig,l)>=0. .OR. .NOT. fm(ig,l)<=10.) THEN
+        ! print*,'WARN!!! fm exagere ig=',ig,'   l=',l
+        ! s         ,'   FM=',fm(ig,l)
+      END IF
+      IF (.NOT. masse(ig,l)>=1.E-10 .OR. .NOT. masse(ig,l)<=1.E4) THEN
+        ! print*,'WARN!!! masse exagere ig=',ig,'   l=',l
+        ! s         ,'   M=',masse(ig,l)
+        ! print*,'rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)',
+        ! s                 rho(ig,l),pplay(ig,l),zpspsk(ig,l),RD,zh(ig,l)
+        ! print*,'zlev(ig,l+1),zlev(ig,l)'
+        ! s                ,zlev(ig,l+1),zlev(ig,l)
+        ! print*,'pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)'
+        ! s                ,pphi(ig,l-1),pphi(ig,l),pphi(ig,l+1)
+      END IF
+      IF (.NOT. entr(ig,l)>=0. .OR. .NOT. entr(ig,l)<=10.) THEN
+        ! print*,'WARN!!! entr exagere ig=',ig,'   l=',l
+        ! s         ,'   E=',entr(ig,l)
+      END IF
+    END DO
+  END DO
+
+4444 CONTINUE
+
+  ! CR:redefinition du entr
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      detr(ig, l) = fm(ig, l) + entr(ig, l) - fm(ig, l+1)
+      IF (detr(ig,l)<0.) THEN
+        entr(ig, l) = entr(ig, l) - detr(ig, l)
+        detr(ig, l) = 0.
+        ! print*,'WARNING !!! detrainement negatif ',ig,l
+      END IF
+    END DO
+  END DO
+  ! RC
+  IF (w2di==1) THEN
+    fm0 = fm0 + ptimestep*(fm-fm0)/tho
+    entr0 = entr0 + ptimestep*(entr-entr0)/tho
+  ELSE
+    fm0 = fm
+    entr0 = entr
+  END IF
+
+  IF (1==1) THEN
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zh, zdhadj, &
+      zha)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zo, pdoadj, &
+      zoa)
+  ELSE
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zh, &
+      zdhadj, zha)
+    CALL dqthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zo, &
+      pdoadj, zoa)
+  END IF
+
+  IF (1==0) THEN
+    CALL dvthermcell2(ngrid, nlay, ptimestep, fm0, entr0, masse, fraca, zmax, &
+      zu, zv, pduadj, pdvadj, zua, zva)
+  ELSE
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zu, pduadj, &
+      zua)
+    CALL dqthermcell(ngrid, nlay, ptimestep, fm0, entr0, masse, zv, pdvadj, &
+      zva)
+  END IF
+
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      zf = 0.5*(fracc(ig,l)+fracc(ig,l+1))
+      zf2 = zf/(1.-zf)
+      thetath2(ig, l) = zf2*(zha(ig,l)-zh(ig,l))**2
+      wth2(ig, l) = zf2*(0.5*(wa_moy(ig,l)+wa_moy(ig,l+1)))**2
+    END DO
+  END DO
+
+
+
+  ! print*,'13 OK convect8'
+  ! print*,'WA5 ',wa_moy
+  DO l = 1, nlay
+    DO ig = 1, ngrid
+      pdtadj(ig, l) = zdhadj(ig, l)*zpspsk(ig, l)
+    END DO
+  END DO
+
+
+  ! do l=1,nlay
+  ! do ig=1,ngrid
+  ! if(abs(pdtadj(ig,l))*86400..gt.500.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdtadj=',pdtadj(ig,l)
+  ! endif
+  ! if(abs(pdoadj(ig,l))*86400..gt.1.) then
+  ! print*,'WARN!!! ig=',ig,'  l=',l
+  ! s         ,'   pdoadj=',pdoadj(ig,l)
+  ! endif
+  ! enddo
+  ! enddo
+
+  ! print*,'14 OK convect8'
+  ! ------------------------------------------------------------------
+  ! Calculs pour les sorties
+  ! ------------------------------------------------------------------
+
+  RETURN
+END SUBROUTINE thermcell_sec
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_plume.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_plume.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_plume.F90	(revision 3330)
@@ -0,0 +1,1198 @@
+!
+! $Id$
+!
+      SUBROUTINE thermcell_plume(itap,ngrid,klev,ptimestep,ztv,zthl,po,zl,rhobarz,  &
+     &           zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
+     &           lalim,f0,detr_star,entr_star,f_star,csc,ztva,  &
+     &           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
+
+       USE print_control_mod, ONLY: prt_level
+       IMPLICIT NONE
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+
+      INTEGER itap
+      INTEGER lunout1,igout
+      INTEGER ngrid,klev
+      REAL ptimestep
+      REAL ztv(ngrid,klev)
+      REAL zthl(ngrid,klev)
+      REAL po(ngrid,klev)
+      REAL zl(ngrid,klev)
+      REAL rhobarz(ngrid,klev)
+      REAL zlev(ngrid,klev+1)
+      REAL pplev(ngrid,klev+1)
+      REAL pphi(ngrid,klev)
+      REAL zpspsk(ngrid,klev)
+      REAL alim_star(ngrid,klev)
+      REAL f0(ngrid)
+      INTEGER lalim(ngrid)
+      integer lev_out                           ! niveau pour les print
+      integer nbpb
+    
+      real alim_star_tot(ngrid)
+
+      REAL ztva(ngrid,klev)
+      REAL ztla(ngrid,klev)
+      REAL zqla(ngrid,klev)
+      REAL zqta(ngrid,klev)
+      REAL zha(ngrid,klev)
+
+      REAL detr_star(ngrid,klev)
+      REAL coefc
+      REAL entr_star(ngrid,klev)
+      REAL detr(ngrid,klev)
+      REAL entr(ngrid,klev)
+
+      REAL csc(ngrid,klev)
+
+      REAL zw2(ngrid,klev+1)
+      REAL w_est(ngrid,klev+1)
+      REAL f_star(ngrid,klev+1)
+      REAL wa_moy(ngrid,klev+1)
+
+      REAL ztva_est(ngrid,klev)
+      REAL ztv_est(ngrid,klev)
+      REAL zqla_est(ngrid,klev)
+      REAL zqsatth(ngrid,klev)
+      REAL zta_est(ngrid,klev)
+      REAL ztemp(ngrid),zqsat(ngrid)
+      REAL zdw2,zdw2bis
+      REAL zw2modif
+      REAL zw2fact,zw2factbis
+      REAL zeps(ngrid,klev)
+
+      REAL linter(ngrid)
+      INTEGER lmix(ngrid)
+      INTEGER lmix_bis(ngrid)
+      REAL    wmaxa(ngrid)
+
+      INTEGER ig,l,k,lt,it,lm
+
+      real zdz,zbuoy(ngrid,klev),zalpha,gamma(ngrid,klev),zdqt(ngrid,klev),zw2m
+      real zbuoyjam(ngrid,klev),zdqtjam(ngrid,klev)
+      real zbuoybis,zdz2,zdz3,lmel,entrbis,zdzbis
+      real d_temp(ngrid)
+      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 zbetalpha, coefzlmel
+      real eps
+      REAL REPS,RLvCp,DDT0
+      PARAMETER (DDT0=.01)
+      logical Zsat
+      LOGICAL active(ngrid),activetmp(ngrid)
+      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.
+      INTEGER,SAVE :: thermals_flag_alim,thermals_flag_alim_omp=0
+
+!$OMP THREADPRIVATE(fact_epsilon, betalpha, afact, fact_shell)
+!$OMP THREADPRIVATE(detr_min, entr_min, detr_q_coef, detr_q_power)
+!$OMP THREADPRIVATE( mix0, thermals_flag_alim)
+
+      LOGICAL, SAVE :: first=.true.
+
+      REAL c2(ngrid,klev)
+
+      if (ngrid==1) print*,'THERMCELL PLUME MODIFIE 2014/07/11'
+      Zsat=.false.
+! Initialisation
+
+      RLvCp = RLVTT/RCPD
+      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_flag_alim',thermals_flag_alim_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
+     thermals_flag_alim=thermals_flag_alim_omp
+
+      first=.false.
+      ENDIF
+
+      zbetalpha=betalpha/(1.+betalpha)
+
+
+! Initialisations des variables r?elles
+if (1==1) then
+      ztva(:,:)=ztv(:,:)
+      ztva_est(:,:)=ztva(:,:)
+      ztv_est(:,:)=ztv(:,:)
+      ztla(:,:)=zthl(:,:)
+      zqta(:,:)=po(:,:)
+      zqla(:,:)=0.
+      zha(:,:) = ztva(:,:)
+else
+      ztva(:,:)=0.
+      ztv_est(:,:)=0.
+      ztva_est(:,:)=0.
+      ztla(:,:)=0.
+      zqta(:,:)=0.
+      zha(:,:) =0.
+endif
+
+      zqla_est(:,:)=0.
+      zqsatth(:,:)=0.
+      zqla(:,:)=0.
+      detr_star(:,:)=0.
+      entr_star(:,:)=0.
+      alim_star(:,:)=0.
+      alim_star_tot(:)=0.
+      csc(:,:)=0.
+      detr(:,:)=0.
+      entr(:,:)=0.
+      zw2(:,:)=0.
+      zbuoy(:,:)=0.
+      zbuoyjam(:,:)=0.
+      gamma(:,:)=0.
+      zeps(:,:)=0.
+      w_est(:,:)=0.
+      f_star(:,:)=0.
+      wa_moy(:,:)=0.
+      linter(:)=1.
+!     linter(:)=1.
+! Initialisation des variables entieres
+      lmix(:)=1
+      lmix_bis(:)=2
+      wmaxa(:)=0.
+
+
+!-------------------------------------------------------------------------
+! On ne considere comme actif que les colonnes dont les deux premieres
+! couches sont instables.
+!-------------------------------------------------------------------------
+
+      active(:)=ztv(:,1)>ztv(:,2)
+      d_temp(:)=0. ! Pour activer un contraste de temperature a la base
+                   ! du panache
+!  Cet appel pourrait être fait avant thermcell_plume dans thermcell_main
+      CALL thermcell_alim(thermals_flag_alim,ngrid,klev,ztv,d_temp,zlev,alim_star,lalim)
+
+!------------------------------------------------------------------------------
+! Calcul dans la premiere couche
+! On decide dans cette version que le thermique n'est actif que si la premiere
+! couche est instable.
+! Pourrait etre change si on veut que le thermiques puisse se d??clencher
+! dans une couche l>1
+!------------------------------------------------------------------------------
+do ig=1,ngrid
+! Le panache va prendre au debut les caracteristiques de l'air contenu
+! dans cette couche.
+    if (active(ig)) then
+    ztla(ig,1)=zthl(ig,1) 
+    zqta(ig,1)=po(ig,1)
+    zqla(ig,1)=zl(ig,1)
+!cr: attention, prise en compte de f*(1)=1
+    f_star(ig,2)=alim_star(ig,1)
+    zw2(ig,2)=2.*RG*(ztv(ig,1)-ztv(ig,2))/ztv(ig,2)  &
+&                     *(zlev(ig,2)-zlev(ig,1))  &
+&                     *0.4*pphi(ig,1)/(pphi(ig,2)-pphi(ig,1))
+    w_est(ig,2)=zw2(ig,2)
+    endif
+enddo
+!
+
+!==============================================================================
+!boucle de calcul de la vitesse verticale dans le thermique
+!==============================================================================
+do l=2,klev-1
+!==============================================================================
+
+
+! On decide si le thermique est encore actif ou non
+! AFaire : Il faut sans doute ajouter entr_star a alim_star dans ce test
+    do ig=1,ngrid
+       active(ig)=active(ig) &
+&                 .and. zw2(ig,l)>1.e-10 &
+&                 .and. f_star(ig,l)+alim_star(ig,l)>1.e-10
+    enddo
+
+
+
+!---------------------------------------------------------------------------
+! calcul des proprietes thermodynamiques et de la vitesse de la couche l
+! sans tenir compte du detrainement et de l'entrainement dans cette
+! couche
+! C'est a dire qu'on suppose 
+! ztla(l)=ztla(l-1) et zqta(l)=zqta(l-1)
+! Ici encore, on doit pouvoir ajouter entr_star (qui peut etre calculer
+! avant) a l'alimentation pour avoir un calcul plus propre
+!---------------------------------------------------------------------------
+
+   ztemp(:)=zpspsk(:,l)*ztla(:,l-1)
+   call thermcell_qsat(ngrid,active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
+    do ig=1,ngrid 
+!       print*,'active',active(ig),ig,l
+        if(active(ig)) then 
+        zqla_est(ig,l)=max(0.,zqta(ig,l-1)-zqsat(ig))
+        ztva_est(ig,l) = ztla(ig,l-1)*zpspsk(ig,l)+RLvCp*zqla_est(ig,l)
+        zta_est(ig,l)=ztva_est(ig,l)
+        ztva_est(ig,l) = ztva_est(ig,l)/zpspsk(ig,l)
+        ztva_est(ig,l) = ztva_est(ig,l)*(1.+RETV*(zqta(ig,l-1)  &
+     &      -zqla_est(ig,l))-zqla_est(ig,l))
+ 
+
+!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)
+                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)
+
+                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)
+                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
+
+!          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
+           zlt=zlev(ig,lt)
+           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
+           zlmelup=zlmel+(zdz/2)
+           coefzlmel=Min(1.,(zlmelup-zltdwn)/zdz)
+           zbuoyjam(ig,l)=1.*RG*(coefzlmel*(ztva_est(ig,l)- & 
+    &          ztv(ig,lt))/ztv(ig,lt)+(1.-coefzlmel)*(ztva_est(ig,l)- &
+    &          ztv(ig,lt-1))/ztv(ig,lt-1))+0.*zbuoy(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)-zlev(ig,l-1)
+              zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
+
+              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
+!              zdw2bis=0.5*(zdw2+zdw2bis)
+              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)* &
+!    &                     (w_est(ig,l)-zdw2)+zdw2)+(zdzbis-zdz)/zdzbis* &
+!    &                     Max(0.0001,exp(-zw2factbis)*(w_est(ig,l-1)-zdw2bis)+zdw2)
+!              w_est(ig,l+1)=Max(0.0001,(1-exp(-zw2fact))*zdw2+w_est(ig,l)*exp(-zw2fact))
+
+!--------------------------------------------------
+!AJ052014: J'ai remplac? w_est(ig,l) par zw2(ig,l)
+!--------------------------------------------------
+         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,exp(-zw2fact)*(w_est(ig,l)-zdw2)+zdw2)
+
+! Nouvelle version Arnaud
+         else
+!             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
+
+
+         if (iflag_thermals_ed<6) then
+             zalpha=f0(ig)*f_star(ig,l)/sqrt(w_est(ig,l+1))/rhobarz(ig,l)
+!              fact_epsilon=0.0005/(zalpha+0.025)**0.5
+!              fact_epsilon=Min(0.003,0.0004/(zalpha)**0.5)
+              fact_epsilon=0.0002/(zalpha+0.1)
+              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
+!              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
+!--------------------------------------------------
+!AJ052014: J'ai comment? ce if plus n?cessaire puisqu'
+!on fait max(0.0001,.....)
+!--------------------------------------------------         
+
+!             if (w_est(ig,l+1).lt.0.) then
+!               w_est(ig,l+1)=zw2(ig,l)
+!                w_est(ig,l+1)=0.0001
+!             endif
+
+       endif
+    enddo
+
+
+!-------------------------------------------------
+!calcul des taux d'entrainement et de detrainement
+!-------------------------------------------------
+
+     do ig=1,ngrid
+        if (active(ig)) then
+
+!          zw2m=max(0.5*(w_est(ig,l)+w_est(ig,l+1)),0.1)
+          zw2m=w_est(ig,l+1)
+!          zw2m=zw2(ig,l)
+          zdz=zlev(ig,l+1)-zlev(ig,l)
+          zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
+!          zbuoybis=zbuoy(ig,l)+RG*0.1/300.
+          zbuoybis=zbuoy(ig,l)
+          zalpha=f0(ig)*f_star(ig,l)/sqrt(w_est(ig,l+1))/rhobarz(ig,l)
+          zdqt(ig,l)=max(zqta(ig,l-1)-po(ig,l),0.)/po(ig,l)
+
+          
+!          entr_star(ig,l)=f_star(ig,l)*zdz*zbetalpha*MAX(0.,  &
+!    &     afact*zbuoybis/zw2m - fact_epsilon )
+
+!          entr_star(ig,l)=MAX(0.,f_star(ig,l)*zdz*zbetalpha*  &
+!    &     afact*zbuoybis/zw2m - fact_epsilon )
+
+
+
+!          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
+          fact_epsilon=0.0002/(zalpha+0.1)
+          endif
+          
+
+
+          detr_star(ig,l)=f_star(ig,l)*zdz             &
+    &     *( 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* (         &
+    &       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*  &     
+!    &     afact*zbuoy(ig,l)/zw2m &
+!    &     - 1.*fact_epsilon)
+
+          
+! En dessous de lalim, on prend le max de alim_star et entr_star pour
+! alim_star et 0 sinon
+        if (l.lt.lalim(ig)) then
+          alim_star(ig,l)=max(alim_star(ig,l),entr_star(ig,l))
+          entr_star(ig,l)=0.
+        endif
+!        if (l.lt.lalim(ig).and.alim_star(ig,l)>alim_star(ig,l-1)) then
+!          alim_star(ig,l)=entrbis
+!        endif
+
+!        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)  &
+     &              -detr_star(ig,l)
+
+      endif
+   enddo
+
+
+!============================================================================
+! 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
+       if (activetmp(ig)) then 
+           Zsat=.false.
+           ztla(ig,l)=(f_star(ig,l)*ztla(ig,l-1)+  &
+     &            (alim_star(ig,l)+entr_star(ig,l))*zthl(ig,l))  &
+     &            /(f_star(ig,l+1)+detr_star(ig,l))
+           zqta(ig,l)=(f_star(ig,l)*zqta(ig,l-1)+  &
+     &            (alim_star(ig,l)+entr_star(ig,l))*po(ig,l))  &
+     &            /(f_star(ig,l+1)+detr_star(ig,l))
+
+        endif
+    enddo
+
+   ztemp(:)=zpspsk(:,l)*ztla(:,l)
+   call thermcell_qsat(ngrid,activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
+   do ig=1,ngrid
+      if (activetmp(ig)) then
+! on ecrit de maniere conservative (sat ou non)
+!          T = Tl +Lv/Cp ql
+           zqla(ig,l)=max(0.,zqta(ig,l)-zqsatth(ig,l))
+           ztva(ig,l) = ztla(ig,l)*zpspsk(ig,l)+RLvCp*zqla(ig,l)
+           ztva(ig,l) = ztva(ig,l)/zpspsk(ig,l)
+!on rajoute le calcul de zha pour diagnostiques (temp potentielle)
+           zha(ig,l) = ztva(ig,l)
+           ztva(ig,l) = ztva(ig,l)*(1.+RETV*(zqta(ig,l)  &
+     &              -zqla(ig,l))-zqla(ig,l))
+           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)-zlev(ig,l-1)
+           zeps(ig,l)=(entr_star(ig,l)+alim_star(ig,l))/(f_star(ig,l)*zdz)
+!!!!!!!          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)
+!              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))
+            if (iflag_thermals_ed==8) then
+	    zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2)+zdw2)
+            else
+	    zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2bis)+zdw2)
+            endif
+!            zw2(ig,l+1)=Max(0.0001,(zdz/(zdz+zdzbis))*(exp(-zw2fact)* &
+!    &                     (zw2(ig,l)-zdw2)+zdw2bis)+(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
+!           fact_epsilon=Min(0.003,0.0004/(zalpha)**0.5)
+           fact_epsilon=0.0002/(zalpha+0.1)**1
+            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,(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
+
+
+      endif
+   enddo
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 460: ig, l',ig, l
+!
+!===========================================================================
+! 6. initialisations pour le calcul de la hauteur du thermique, de l'inversion et de la vitesse verticale max 
+!===========================================================================
+
+   nbpb=0
+   do ig=1,ngrid
+            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+!               stop'On tombe sur le cas particulier de thermcell_dry'
+!               print*,'On tombe sur le cas particulier de thermcell_plume'
+                nbpb=nbpb+1
+                zw2(ig,l+1)=0.
+                linter(ig)=l+1
+            endif
+
+        if (zw2(ig,l+1).lt.0.) then 
+           linter(ig)=(l*(zw2(ig,l+1)-zw2(ig,l))  &
+     &               -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
+           zw2(ig,l+1)=0.
+!+CR:04/05/12:correction calcul linter pour calcul de zmax continu
+        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))
+           zw2(ig,l+1)=0.
+!fin CR:04/05/12
+        endif
+
+           wa_moy(ig,l+1)=sqrt(zw2(ig,l+1)) 
+
+        if (wa_moy(ig,l+1).gt.wmaxa(ig)) then
+!   lmix est le niveau de la couche ou w (wa_moy) est maximum
+!on rajoute le calcul de lmix_bis
+            if (zqla(ig,l).lt.1.e-10) then
+               lmix_bis(ig)=l+1
+            endif
+            lmix(ig)=l+1
+            wmaxa(ig)=wa_moy(ig,l+1)
+        endif
+   enddo
+
+   if (nbpb>0) then
+   print*,'WARNING on tombe ',nbpb,' x sur un pb pour l=',l,' dans thermcell_plume'
+   endif
+
+!=========================================================================
+! FIN DE LA BOUCLE VERTICALE
+      enddo
+!=========================================================================
+
+!on recalcule alim_star_tot
+       do ig=1,ngrid
+          alim_star_tot(ig)=0.
+       enddo
+       do ig=1,ngrid
+          do l=1,lalim(ig)-1
+          alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
+          enddo
+       enddo
+       
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 470: ig, l', ig, l
+
+#undef wrgrads_thermcell
+#ifdef wrgrads_thermcell
+         call wrgradsfi(1,klev,entr_star(igout,1:klev),'esta      ','esta      ')
+         call wrgradsfi(1,klev,detr_star(igout,1:klev),'dsta      ','dsta      ')
+         call wrgradsfi(1,klev,zbuoy(igout,1:klev),'buoy      ','buoy      ')
+         call wrgradsfi(1,klev,zdqt(igout,1:klev),'dqt      ','dqt      ')
+         call wrgradsfi(1,klev,w_est(igout,1:klev),'w_est     ','w_est     ')
+         call wrgradsfi(1,klev,w_est(igout,2:klev+1),'w_es2     ','w_es2     ')
+         call wrgradsfi(1,klev,zw2(igout,1:klev),'zw2A      ','zw2A      ')
+#endif
+
+
+     return 
+     end
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ SUBROUTINE thermcellV1_plume(itap,ngrid,klev,ptimestep,ztv,zthl,po,zl,rhobarz,  &
+&           zlev,pplev,pphi,zpspsk,alim_star,alim_star_tot,  &
+&           lalim,f0,detr_star,entr_star,f_star,csc,ztva,  &
+&           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
+! Version conforme a l'article de Rio et al. 2010.
+! Code ecrit par Catherine Rio, Arnaud Jam et Frederic Hourdin
+!--------------------------------------------------------------------------
+
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+#include "thermcell.h"
+
+      INTEGER itap
+      INTEGER lunout1,igout
+      INTEGER ngrid,klev
+      REAL ptimestep
+      REAL ztv(ngrid,klev)
+      REAL zthl(ngrid,klev)
+      REAL po(ngrid,klev)
+      REAL zl(ngrid,klev)
+      REAL rhobarz(ngrid,klev)
+      REAL zlev(ngrid,klev+1)
+      REAL pplev(ngrid,klev+1)
+      REAL pphi(ngrid,klev)
+      REAL zpspsk(ngrid,klev)
+      REAL alim_star(ngrid,klev)
+      REAL f0(ngrid)
+      INTEGER lalim(ngrid)
+      integer lev_out                           ! niveau pour les print
+      integer nbpb
+    
+      real alim_star_tot(ngrid)
+
+      REAL ztva(ngrid,klev)
+      REAL ztla(ngrid,klev)
+      REAL zqla(ngrid,klev)
+      REAL zqta(ngrid,klev)
+      REAL zha(ngrid,klev)
+
+      REAL detr_star(ngrid,klev)
+      REAL coefc
+      REAL entr_star(ngrid,klev)
+      REAL detr(ngrid,klev)
+      REAL entr(ngrid,klev)
+
+      REAL csc(ngrid,klev)
+
+      REAL zw2(ngrid,klev+1)
+      REAL w_est(ngrid,klev+1)
+      REAL f_star(ngrid,klev+1)
+      REAL wa_moy(ngrid,klev+1)
+
+      REAL ztva_est(ngrid,klev)
+      REAL zqla_est(ngrid,klev)
+      REAL zqsatth(ngrid,klev)
+      REAL zta_est(ngrid,klev)
+      REAL zbuoyjam(ngrid,klev)
+      REAL ztemp(ngrid),zqsat(ngrid)
+      REAL zdw2
+      REAL zw2modif
+      REAL zw2fact
+      REAL zeps(ngrid,klev)
+
+      REAL linter(ngrid)
+      INTEGER lmix(ngrid)
+      INTEGER lmix_bis(ngrid)
+      REAL    wmaxa(ngrid)
+
+      INTEGER ig,l,k
+
+      real zdz,zbuoy(ngrid,klev),zalpha,gamma(ngrid,klev),zdqt(ngrid,klev),zw2m
+      real zbuoybis
+      real zcor,zdelta,zcvm5,qlbef,zdz2
+      real betalpha,zbetalpha
+      real eps, afact
+      REAL REPS,RLvCp,DDT0
+      PARAMETER (DDT0=.01)
+      logical Zsat
+      LOGICAL active(ngrid),activetmp(ngrid)
+      REAL fact_gamma,fact_epsilon,fact_gamma2,fact_epsilon2
+      REAL c2(ngrid,klev)
+      Zsat=.false.
+! Initialisation
+
+      RLvCp = RLVTT/RCPD
+      fact_epsilon=0.002
+      betalpha=0.9 
+      afact=2./3.            
+
+      zbetalpha=betalpha/(1.+betalpha)
+
+
+! Initialisations des variables reeles
+if (1==1) then
+      ztva(:,:)=ztv(:,:)
+      ztva_est(:,:)=ztva(:,:)
+      ztla(:,:)=zthl(:,:)
+      zqta(:,:)=po(:,:)
+      zha(:,:) = ztva(:,:)
+else
+      ztva(:,:)=0.
+      ztva_est(:,:)=0.
+      ztla(:,:)=0.
+      zqta(:,:)=0.
+      zha(:,:) =0.
+endif
+
+      zqla_est(:,:)=0.
+      zqsatth(:,:)=0.
+      zqla(:,:)=0.
+      detr_star(:,:)=0.
+      entr_star(:,:)=0.
+      alim_star(:,:)=0.
+      alim_star_tot(:)=0.
+      csc(:,:)=0.
+      detr(:,:)=0.
+      entr(:,:)=0.
+      zw2(:,:)=0.
+      zbuoy(:,:)=0.
+      zbuoyjam(:,:)=0.
+      gamma(:,:)=0.
+      zeps(:,:)=0.
+      w_est(:,:)=0.
+      f_star(:,:)=0.
+      wa_moy(:,:)=0.
+      linter(:)=1.
+!     linter(:)=1.
+! Initialisation des variables entieres
+      lmix(:)=1
+      lmix_bis(:)=2
+      wmaxa(:)=0.
+      lalim(:)=1
+
+
+!-------------------------------------------------------------------------
+! On ne considere comme actif que les colonnes dont les deux premieres
+! couches sont instables.
+!-------------------------------------------------------------------------
+      active(:)=ztv(:,1)>ztv(:,2)
+
+!-------------------------------------------------------------------------
+! Definition de l'alimentation a l'origine dans thermcell_init
+!-------------------------------------------------------------------------
+      do l=1,klev-1
+         do ig=1,ngrid
+            if (ztv(ig,l)> ztv(ig,l+1) .and. ztv(ig,1)>=ztv(ig,l) ) then
+               alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
+     &                       *sqrt(zlev(ig,l+1)) 
+               lalim(ig)=l+1
+               alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
+            endif
+         enddo
+      enddo
+      do l=1,klev
+         do ig=1,ngrid 
+            if (alim_star_tot(ig) > 1.e-10 ) then
+               alim_star(ig,l)=alim_star(ig,l)/alim_star_tot(ig)
+            endif
+         enddo
+      enddo
+      alim_star_tot(:)=1.
+
+
+
+!------------------------------------------------------------------------------
+! Calcul dans la premiere couche
+! On decide dans cette version que le thermique n'est actif que si la premiere
+! couche est instable.
+! Pourrait etre change si on veut que le thermiques puisse se d??clencher
+! dans une couche l>1
+!------------------------------------------------------------------------------
+do ig=1,ngrid
+! Le panache va prendre au debut les caracteristiques de l'air contenu
+! dans cette couche.
+    if (active(ig)) then
+    ztla(ig,1)=zthl(ig,1) 
+    zqta(ig,1)=po(ig,1)
+    zqla(ig,1)=zl(ig,1)
+!cr: attention, prise en compte de f*(1)=1
+    f_star(ig,2)=alim_star(ig,1)
+    zw2(ig,2)=2.*RG*(ztv(ig,1)-ztv(ig,2))/ztv(ig,2)  &
+&                     *(zlev(ig,2)-zlev(ig,1))  &
+&                     *0.4*pphi(ig,1)/(pphi(ig,2)-pphi(ig,1))
+    w_est(ig,2)=zw2(ig,2)
+    endif
+enddo
+!
+
+!==============================================================================
+!boucle de calcul de la vitesse verticale dans le thermique
+!==============================================================================
+do l=2,klev-1
+!==============================================================================
+
+
+! On decide si le thermique est encore actif ou non
+! AFaire : Il faut sans doute ajouter entr_star a alim_star dans ce test
+    do ig=1,ngrid
+       active(ig)=active(ig) &
+&                 .and. zw2(ig,l)>1.e-10 &
+&                 .and. f_star(ig,l)+alim_star(ig,l)>1.e-10
+    enddo
+
+
+
+!---------------------------------------------------------------------------
+! calcul des proprietes thermodynamiques et de la vitesse de la couche l
+! sans tenir compte du detrainement et de l'entrainement dans cette
+! couche
+! C'est a dire qu'on suppose 
+! ztla(l)=ztla(l-1) et zqta(l)=zqta(l-1)
+! Ici encore, on doit pouvoir ajouter entr_star (qui peut etre calculer
+! avant) a l'alimentation pour avoir un calcul plus propre
+!---------------------------------------------------------------------------
+
+   ztemp(:)=zpspsk(:,l)*ztla(:,l-1)
+   call thermcell_qsat(ngrid,active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
+
+    do ig=1,ngrid 
+!       print*,'active',active(ig),ig,l
+        if(active(ig)) then 
+        zqla_est(ig,l)=max(0.,zqta(ig,l-1)-zqsat(ig))
+        ztva_est(ig,l) = ztla(ig,l-1)*zpspsk(ig,l)+RLvCp*zqla_est(ig,l)
+        zta_est(ig,l)=ztva_est(ig,l)
+        ztva_est(ig,l) = ztva_est(ig,l)/zpspsk(ig,l)
+        ztva_est(ig,l) = ztva_est(ig,l)*(1.+RETV*(zqta(ig,l-1)  &
+     &      -zqla_est(ig,l))-zqla_est(ig,l))
+
+!------------------------------------------------
+!AJAM:nouveau calcul de w?  
+!------------------------------------------------
+              zdz=zlev(ig,l+1)-zlev(ig,l)
+              zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
+
+              zw2fact=fact_epsilon*2.*zdz/(1.+betalpha)
+              zdw2=(afact)*zbuoy(ig,l)/(fact_epsilon)
+              w_est(ig,l+1)=Max(0.0001,exp(-zw2fact)*(w_est(ig,l)-zdw2)+zdw2)
+ 
+
+             if (w_est(ig,l+1).lt.0.) then
+                w_est(ig,l+1)=zw2(ig,l)
+             endif
+       endif
+    enddo
+
+
+!-------------------------------------------------
+!calcul des taux d'entrainement et de detrainement
+!-------------------------------------------------
+
+     do ig=1,ngrid
+        if (active(ig)) then
+
+          zw2m=max(0.5*(w_est(ig,l)+w_est(ig,l+1)),0.1)
+          zw2m=w_est(ig,l+1)
+          zdz=zlev(ig,l+1)-zlev(ig,l)
+          zbuoy(ig,l)=RG*(ztva_est(ig,l)-ztv(ig,l))/ztv(ig,l)
+!          zbuoybis=zbuoy(ig,l)+RG*0.1/300.
+          zbuoybis=zbuoy(ig,l)
+          zalpha=f0(ig)*f_star(ig,l)/sqrt(w_est(ig,l+1))/rhobarz(ig,l)
+          zdqt(ig,l)=max(zqta(ig,l-1)-po(ig,l),0.)/po(ig,l)
+
+          
+          entr_star(ig,l)=f_star(ig,l)*zdz*  zbetalpha*MAX(0.,  &
+    &     afact*zbuoybis/zw2m - fact_epsilon )
+
+
+          detr_star(ig,l)=f_star(ig,l)*zdz                        &
+    &     *MAX(1.e-3, -afact*zbetalpha*zbuoy(ig,l)/zw2m          &
+    &     + 0.012*(zdqt(ig,l)/zw2m)**0.5 )
+          
+! En dessous de lalim, on prend le max de alim_star et entr_star pour
+! alim_star et 0 sinon
+        if (l.lt.lalim(ig)) then
+          alim_star(ig,l)=max(alim_star(ig,l),entr_star(ig,l))
+          entr_star(ig,l)=0.
+        endif
+
+! Calcul du flux montant normalise
+      f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)+entr_star(ig,l)  &
+     &              -detr_star(ig,l)
+
+      endif
+   enddo
+
+
+!----------------------------------------------------------------------------
+!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
+       if (activetmp(ig)) then 
+           Zsat=.false.
+           ztla(ig,l)=(f_star(ig,l)*ztla(ig,l-1)+  &
+     &            (alim_star(ig,l)+entr_star(ig,l))*zthl(ig,l))  &
+     &            /(f_star(ig,l+1)+detr_star(ig,l))
+           zqta(ig,l)=(f_star(ig,l)*zqta(ig,l-1)+  &
+     &            (alim_star(ig,l)+entr_star(ig,l))*po(ig,l))  &
+     &            /(f_star(ig,l+1)+detr_star(ig,l))
+
+        endif
+    enddo
+
+   ztemp(:)=zpspsk(:,l)*ztla(:,l)
+   call thermcell_qsat(ngrid,activetmp,pplev(:,l),ztemp,zqta(:,l),zqsatth(:,l))
+
+   do ig=1,ngrid
+      if (activetmp(ig)) then
+! on ecrit de maniere conservative (sat ou non)
+!          T = Tl +Lv/Cp ql
+           zqla(ig,l)=max(0.,zqta(ig,l)-zqsatth(ig,l))
+           ztva(ig,l) = ztla(ig,l)*zpspsk(ig,l)+RLvCp*zqla(ig,l)
+           ztva(ig,l) = ztva(ig,l)/zpspsk(ig,l)
+!on rajoute le calcul de zha pour diagnostiques (temp potentielle)
+           zha(ig,l) = ztva(ig,l)
+           ztva(ig,l) = ztva(ig,l)*(1.+RETV*(zqta(ig,l)  &
+     &              -zqla(ig,l))-zqla(ig,l))
+           zbuoy(ig,l)=RG*(ztva(ig,l)-ztv(ig,l))/ztv(ig,l)
+           zdz=zlev(ig,l+1)-zlev(ig,l)
+           zeps(ig,l)=(entr_star(ig,l)+alim_star(ig,l))/(f_star(ig,l)*zdz)
+
+            zw2fact=fact_epsilon*2.*zdz/(1.+betalpha)
+            zdw2=afact*zbuoy(ig,l)/(fact_epsilon)
+            zw2(ig,l+1)=Max(0.0001,exp(-zw2fact)*(zw2(ig,l)-zdw2)+zdw2) 
+      endif
+   enddo
+
+        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 
+!---------------------------------------------------------------------------
+
+   nbpb=0
+   do ig=1,ngrid
+            if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then
+!               stop'On tombe sur le cas particulier de thermcell_dry'
+!               print*,'On tombe sur le cas particulier de thermcell_plume'
+                nbpb=nbpb+1
+                zw2(ig,l+1)=0.
+                linter(ig)=l+1
+            endif
+
+        if (zw2(ig,l+1).lt.0.) then 
+           linter(ig)=(l*(zw2(ig,l+1)-zw2(ig,l))  &
+     &               -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
+
+           wa_moy(ig,l+1)=sqrt(zw2(ig,l+1)) 
+
+        if (wa_moy(ig,l+1).gt.wmaxa(ig)) then
+!   lmix est le niveau de la couche ou w (wa_moy) est maximum
+!on rajoute le calcul de lmix_bis
+            if (zqla(ig,l).lt.1.e-10) then
+               lmix_bis(ig)=l+1
+            endif
+            lmix(ig)=l+1
+            wmaxa(ig)=wa_moy(ig,l+1)
+        endif
+   enddo
+
+   if (nbpb>0) then
+   print*,'WARNING on tombe ',nbpb,' x sur un pb pour l=',l,' dans thermcell_plume'
+   endif
+
+!=========================================================================
+! FIN DE LA BOUCLE VERTICALE
+      enddo
+!=========================================================================
+
+!on recalcule alim_star_tot
+       do ig=1,ngrid
+          alim_star_tot(ig)=0.
+       enddo
+       do ig=1,ngrid
+          do l=1,lalim(ig)-1
+          alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
+          enddo
+       enddo
+       
+
+        if (prt_level.ge.20) print*,'coucou calcul detr 470: ig, l', ig, l
+
+#undef wrgrads_thermcell
+#ifdef wrgrads_thermcell
+         call wrgradsfi(1,klev,entr_star(igout,1:klev),'esta      ','esta      ')
+         call wrgradsfi(1,klev,detr_star(igout,1:klev),'dsta      ','dsta      ')
+         call wrgradsfi(1,klev,zbuoy(igout,1:klev),'buoy      ','buoy      ')
+         call wrgradsfi(1,klev,zdqt(igout,1:klev),'dqt      ','dqt      ')
+         call wrgradsfi(1,klev,w_est(igout,1:klev),'w_est     ','w_est     ')
+         call wrgradsfi(1,klev,w_est(igout,2:klev+1),'w_es2     ','w_es2     ')
+         call wrgradsfi(1,klev,zw2(igout,1:klev),'zw2A      ','zw2A      ')
+#endif
+
+
+     return 
+     end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_qsat.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_qsat.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/thermcell_qsat.F90	(revision 3330)
@@ -0,0 +1,92 @@
+subroutine thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat)
+implicit none
+
+#include "YOMCST.h"
+#include "YOETHF.h"
+#include "FCTTRE.h"
+
+
+!====================================================================
+! DECLARATIONS
+!====================================================================
+
+! Arguments
+INTEGER klon
+REAL zpspsk(klon),pplev(klon)
+REAL ztemp(klon),zqta(klon),zqsat(klon)
+LOGICAL active(klon)
+
+! Variables locales
+INTEGER ig,iter
+REAL Tbef(klon),DT(klon)
+REAL tdelta,qsatbef,zcor,qlbef,zdelta,zcvm5,dqsat,num,denom,dqsat_dT
+logical Zsat
+REAL RLvCp
+REAL, SAVE :: DDT0=.01
+LOGICAL afaire(klon),tout_converge
+
+!====================================================================
+! INITIALISATIONS
+!====================================================================
+
+RLvCp = RLVTT/RCPD
+tout_converge=.false.
+afaire(:)=.false.
+DT(:)=0.
+
+
+!====================================================================
+! Routine a vectoriser en copiant active dans converge et en mettant
+! la boucle sur les iterations a l'exterieur est en mettant
+! converge= false des que la convergence est atteinte.
+!====================================================================
+
+do ig=1,klon
+   if (active(ig)) then
+               Tbef(ig)=ztemp(ig)
+               zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
+               qsatbef= R2ES * FOEEW(Tbef(ig),zdelta)/pplev(ig)
+               qsatbef=MIN(0.5,qsatbef)
+               zcor=1./(1.-retv*qsatbef)
+               qsatbef=qsatbef*zcor
+               qlbef=max(0.,zqta(ig)-qsatbef)
+               DT(ig) = 0.5*RLvCp*qlbef
+               zqsat(ig)=qsatbef
+     endif
+enddo
+
+! Traitement du cas ou il y a condensation mais faible
+! On ne condense pas mais on dit que le qsat est le qta
+do ig=1,klon
+   if (active(ig)) then
+      if (0.<abs(DT(ig)).and.abs(DT(ig))<=DDT0) then
+         zqsat(ig)=zqta(ig)
+      endif
+   endif
+enddo
+
+do iter=1,10
+    afaire(:)=abs(DT(:)).gt.DDT0
+    do ig=1,klon
+               if (afaire(ig)) then
+                 Tbef(ig)=Tbef(ig)+DT(ig)
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
+                 qsatbef= R2ES * FOEEW(Tbef(ig),zdelta)/pplev(ig)
+                 qsatbef=MIN(0.5,qsatbef)
+                 zcor=1./(1.-retv*qsatbef)
+                 qsatbef=qsatbef*zcor
+                 qlbef=zqta(ig)-qsatbef
+                 zdelta=MAX(0.,SIGN(1.,RTT-Tbef(ig)))
+                 zcvm5=R5LES*(1.-zdelta) + R5IES*zdelta
+                 zcor=1./(1.-retv*qsatbef)
+                 dqsat_dT=FOEDE(Tbef(ig),zdelta,zcvm5,qsatbef,zcor)
+                 num=-Tbef(ig)+ztemp(ig)+RLvCp*qlbef
+                 denom=1.+RLvCp*dqsat_dT
+                 zqsat(ig) = qsatbef
+                 DT(ig)=num/denom
+               endif
+    enddo
+enddo
+
+return
+end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tilft43.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tilft43.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tilft43.F90	(revision 3330)
@@ -0,0 +1,99 @@
+
+! $Header$
+
+SUBROUTINE tlift43(p, t, q, qs, gz, icb, nk, tvp, tpk, clw, nd, nl, kk)
+  IMPLICIT NONE
+  REAL gz(nd), tpk(nd), clw(nd), p(nd)
+  REAL t(nd), q(nd), qs(nd), tvp(nd), lv0
+  INTEGER icb, nk, nd, nl, kk
+  REAL cpd, cpv,  cl, g, rowl, gravity, cpvmcl, eps, epsi
+  REAL ah0, cpp, cpinv, tg, qg, alv, s, ahg, tc, denom, es
+  INTEGER i, nst, nsb, j 
+  ! ***   ASSIGN VALUES OF THERMODYNAMIC CONSTANTS     ***
+
+  ! -- sb:
+  ! !      CPD=1005.7
+  ! !      CPV=1870.0
+  ! !      CL=4190.0
+  ! !      RV=461.5
+  ! !      RD=287.04
+  ! !      LV0=2.501E6
+  ! !      G=9.8
+  ! !      ROWL=1000.0
+  ! ajouts:
+  include "YOMCST.h"
+  cpd = rcpd
+  cpv = rcpv
+  cl = rcw
+  lv0 = rlvtt
+  g = rg
+  rowl = ratm/100.
+  gravity = rg !sb: Pr que gravite ne devienne pas humidite!
+  ! sb --
+
+  cpvmcl = cl - cpv
+  eps = rd/rv
+  epsi = 1./eps
+
+  ! ***  CALCULATE CERTAIN PARCEL QUANTITIES, INCLUDING STATIC ENERGY   ***
+
+  ah0 = (cpd*(1.-q(nk))+cl*q(nk))*t(nk) + q(nk)*(lv0-cpvmcl*(t(nk)-273.15)) + &
+    gz(nk)
+  cpp = cpd*(1.-q(nk)) + q(nk)*cpv
+  cpinv = 1./cpp
+
+  IF (kk==1) THEN
+
+    ! ***   CALCULATE LIFTED PARCEL QUANTITIES BELOW CLOUD BASE   ***
+
+    DO i = 1, icb - 1
+      clw(i) = 0.0
+    END DO
+    DO i = nk, icb - 1
+      tpk(i) = t(nk) - (gz(i)-gz(nk))*cpinv
+      tvp(i) = tpk(i)*(1.+q(nk)*epsi)
+    END DO
+  END IF
+
+  ! ***  FIND LIFTED PARCEL QUANTITIES ABOVE CLOUD BASE    ***
+
+  nst = icb
+  nsb = icb
+  IF (kk==2) THEN
+    nst = nl
+    nsb = icb + 1
+  END IF
+  DO i = nsb, nst
+    tg = t(i)
+    qg = qs(i)
+    alv = lv0 - cpvmcl*(t(i)-273.15)
+    DO j = 1, 2
+      s = cpd + alv*alv*qg/(rv*t(i)*t(i))
+      s = 1./s
+      ahg = cpd*tg + (cl-cpd)*q(nk)*t(i) + alv*qg + gz(i)
+      tg = tg + s*(ah0-ahg)
+      tg = max(tg, 35.0)
+      tc = tg - 273.15
+      denom = 243.5 + tc
+      IF (tc>=0.0) THEN
+        es = 6.112*exp(17.67*tc/denom)
+      ELSE
+        es = exp(23.33086-6111.72784/tg+0.15215*log(tg))
+      END IF
+      qg = eps*es/(p(i)-es*(1.-eps))
+    END DO
+    alv = lv0 - cpvmcl*(t(i)-273.15)
+    tpk(i) = (ah0-(cl-cpd)*q(nk)*t(i)-gz(i)-alv*qg)/cpd
+    clw(i) = q(nk) - qg
+    clw(i) = max(0.0, clw(i))
+    rg = qg/(1.-q(nk))
+    tvp(i) = tpk(i)*(1.+rg*epsi)
+  END DO
+
+  ! -- sb:
+  rg = gravity ! RG redevient la gravite de YOMCST (sb)
+  ! sb --
+
+  RETURN
+END SUBROUTINE tlift43
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/time_phylmdz_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/time_phylmdz_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/time_phylmdz_mod.F90	(revision 3330)
@@ -0,0 +1,106 @@
+!
+! $Id: $
+!
+MODULE time_phylmdz_mod
+
+    IMPLICIT NONE
+    REAL,SAVE    :: pdtphys     ! physics time step (s)
+!$OMP THREADPRIVATE(pdtphys)
+    INTEGER,SAVE :: day_step_phy    ! number of physical steps per day
+!$OMP THREADPRIVATE(day_step_phy)
+    INTEGER,SAVE :: ndays       ! number of days to run
+!$OMP THREADPRIVATE(ndays)
+    INTEGER,SAVE :: annee_ref   ! reference year from the origin
+!$OMP THREADPRIVATE(annee_ref)
+    INTEGER,SAVE :: day_ref     ! reference year of the origin
+!$OMP THREADPRIVATE(day_ref)
+    INTEGER,SAVE :: day_ini     ! initial day of the run starting from 1st january of annee_ref
+!$OMP THREADPRIVATE(day_ini)
+    INTEGER,SAVE :: day_end     ! final day of the run starting from 1st january of annee_ref
+!$OMP THREADPRIVATE(day_end)
+    REAL,SAVE    :: start_time  ! starting time from the begining of the initial day
+!$OMP THREADPRIVATE(start_time)
+    INTEGER,SAVE :: raz_date
+!$OMP THREADPRIVATE(raz_date)
+
+    INTEGER,SAVE :: itau_phy     ! number of physiq iteration from origin
+!$OMP THREADPRIVATE(itau_phy)
+    INTEGER,SAVE :: itaufin_phy      ! final iteration (in itau_phy steps)
+!$OMP THREADPRIVATE(itaufin_phy)
+    REAL,SAVE    :: current_time ! current elapsed time (fraction of day) from the begining of the run
+!$OMP THREADPRIVATE(current_time)
+    
+
+CONTAINS
+
+  SUBROUTINE init_time(annee_ref_, day_ref_, day_ini_, start_time_, &
+                       ndays_, pdtphys_)
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE phys_cal_mod, ONLY: phys_cal_init
+  IMPLICIT NONE
+  INCLUDE 'YOMCST.h'
+    INTEGER, INTENT(IN) :: annee_ref_  
+    INTEGER, INTENT(IN) :: day_ref_    
+    INTEGER, INTENT(IN) :: day_ini_    
+    REAL,    INTENT(IN) :: start_time_ 
+    INTEGER, INTENT(IN) :: ndays_      
+    REAL,    INTENT(IN) :: pdtphys_    
+    
+    annee_ref    = annee_ref_
+    day_ref      = day_ref_
+    day_ini      = day_ini_
+    start_time   = start_time_
+    ndays        = ndays_
+    pdtphys      = pdtphys_
+    
+    ! Initialize module variable not inherited from dynamics
+    day_step_phy = NINT(rday/pdtphys)
+    day_end  = day_ini + ndays
+  
+    raz_date = 0
+    CALL getin_p('raz_date', raz_date)
+
+    current_time=0.
+    
+    CALL phys_cal_init(annee_ref,day_ref)
+    
+  END SUBROUTINE init_time
+
+  SUBROUTINE init_iteration(itau_phy_)
+  IMPLICIT NONE
+    INTEGER, INTENT(IN) :: itau_phy_
+    itau_phy=itau_phy_
+    IF (raz_date==1) itau_phy=0
+    
+    itaufin_phy=itau_phy+NINT(ndays/pdtphys)
+    
+  END SUBROUTINE init_iteration
+
+  SUBROUTINE update_time(pdtphys_)
+  ! This subroutine updates the module saved variables.
+  USE ioipsl, ONLY : ymds2ju
+  USE phys_cal_mod, ONLY: phys_cal_update
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+  INCLUDE 'YOMCST.h'
+    REAL,INTENT(IN) :: pdtphys_
+    REAL            :: julian_date
+    
+    ! Check if the physics timestep has changed
+    IF ( ABS( (pdtphys-pdtphys_) / ((pdtphys+pdtphys_)/2))> 10.*EPSILON(pdtphys_)) THEN
+       WRITE(lunout,*) "WARNING ! Physics time step changes from a call to the next",pdtphys_,pdtphys
+       WRITE(lunout,*) "Not sure the physics parametrizations can handle this..."
+    ENDIF
+    pdtphys=pdtphys_
+    
+    ! Update elapsed time since begining of run:
+    current_time=current_time+pdtphys/rday
+
+    ! Compute corresponding Julian date and update calendar
+    CALL ymds2ju(annee_ref,1,day_ini,(start_time+current_time)*rday,julian_date)
+    CALL phys_cal_update(julian_date)
+    
+  END SUBROUTINE update_time
+
+END MODULE time_phylmdz_mod      
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tlift.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tlift.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tlift.F90	(revision 3330)
@@ -0,0 +1,246 @@
+
+! $Header$
+
+SUBROUTINE tlift(p, t, rr, rs, gz, plcl, icb, nk, tvp, tpk, clw, nd, nl, &
+    dtvpdt1, dtvpdq1)
+  IMPLICIT NONE
+  ! Argument NK ajoute (jyg) = Niveau de depart de la
+  ! convection
+  INTEGER icb, nk, nd, nl
+  INTEGER,PARAMETER :: na=60
+  REAL gz(nd), tpk(nd), clw(nd), plcl
+  REAL t(nd), rr(nd), rs(nd), tvp(nd), p(nd)
+  REAL dtvpdt1(nd), dtvpdq1(nd) ! Derivatives of parcel virtual
+  ! temperature wrt T1 and Q1
+
+  REAL clw_new(na), qi(na)
+  REAL dtpdt1(na), dtpdq1(na) ! Derivatives of parcel temperature
+  ! wrt T1 and Q1
+  REAL gravity, cpd, cpv, cl, ci, cpvmcl, clmci, eps, alv0, alf0
+  REAL cpp, cpinv, ah0, alf, tg, s, ahg, tc, denom, alv, es, esi
+  REAL qsat_new, snew
+  INTEGER icbl, i, imin, j, icb1
+
+  LOGICAL ice_conv
+
+  ! ***   ASSIGN VALUES OF THERMODYNAMIC CONSTANTS     ***
+
+  ! sb        CPD=1005.7
+  ! sb      CPV=1870.0
+  ! sb        CL=4190.0
+  ! sb        CPVMCL=2320.0
+  ! sb        RV=461.5
+  ! sb        RD=287.04
+  ! sb        EPS=RD/RV
+  ! sb        ALV0=2.501E6
+  ! cccccccccccccccccccccc
+  ! constantes coherentes avec le modele du Centre Europeen
+  ! sb      RD = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 28.9644
+  ! sb      RV = 1000.0 * 1.380658E-23 * 6.0221367E+23 / 18.0153
+  ! sb      CPD = 3.5 * RD
+  ! sb      CPV = 4.0 * RV
+  ! sb      CL = 4218.0
+  ! sb      CI=2090.0
+  ! sb      CPVMCL=CL-CPV
+  ! sb      CLMCI=CL-CI
+  ! sb      EPS=RD/RV
+  ! sb      ALV0=2.5008E+06
+  ! sb      ALF0=3.34E+05
+
+  ! ccccccccccc
+  ! on utilise les constantes thermo du Centre Europeen: (SB)
+
+  include "YOMCST.h"
+  gravity = rg !sb: Pr que gravite ne devienne pas humidite!
+
+  cpd = rcpd
+  cpv = rcpv
+  cl = rcw
+  ci = rcs
+  cpvmcl = cl - cpv
+  clmci = cl - ci
+  eps = rd/rv
+  alv0 = rlvtt
+  alf0 = rlmlt ! (ALF0 = RLSTT-RLVTT)
+
+  ! ccccccccccccccccccccc
+
+  ! ***  CALCULATE CERTAIN PARCEL QUANTITIES, INCLUDING STATIC ENERGY   ***
+
+  icb1 = max(icb, 2)
+  icb1 = min(icb, nl)
+
+  ! jyg1
+  ! C      CPP=CPD*(1.-RR(1))+RR(1)*CPV
+  cpp = cpd*(1.-rr(nk)) + rr(nk)*cpv
+  ! jyg2
+  cpinv = 1./cpp
+  ! jyg1
+  ! ICB may be below condensation level
+  ! CC        DO 100 I=1,ICB1-1
+  ! CC         TPK(I)=T(1)-GZ(I)*CPINV
+  ! CC         TVP(I)=TPK(I)*(1.+RR(1)/EPS)
+  DO i = 1, icb1
+    clw(i) = 0.0
+  END DO
+
+  DO i = nk, icb1
+    tpk(i) = t(nk) - (gz(i)-gz(nk))*cpinv
+    ! jyg1
+    ! CC         TVP(I)=TPK(I)*(1.+RR(NK)/EPS)
+    tvp(i) = tpk(i)*(1.+rr(nk)/eps-rr(nk))
+    ! jyg2
+    dtvpdt1(i) = 1. + rr(nk)/eps - rr(nk)
+    dtvpdq1(i) = tpk(i)*(1./eps-1.)
+
+    ! jyg2
+
+  END DO
+
+
+  ! ***  FIND LIFTED PARCEL TEMPERATURE AND MIXING RATIO    ***
+
+  ! jyg1
+  ! C        AH0=(CPD*(1.-RR(1))+CL*RR(1))*T(1)
+  ! C     $     +RR(1)*(ALV0-CPVMCL*(T(1)-273.15))
+  ah0 = (cpd*(1.-rr(nk))+cl*rr(nk))*t(nk) + rr(nk)*(alv0-cpvmcl*(t(nk)-273.15 &
+    )) + gz(nk)
+  ! jyg2
+
+  ! jyg1
+  imin = icb1
+  ! If ICB is below LCL, start loop at ICB+1
+  IF (plcl<p(icb1)) imin = min(imin+1, nl)
+
+  ! CC        DO 300 I=ICB1,NL
+  DO i = imin, nl
+    ! jyg2
+    alv = alv0 - cpvmcl*(t(i)-273.15)
+    alf = alf0 + clmci*(t(i)-273.15)
+
+    rg = rs(i)
+    tg = t(i)
+    ! S=CPD+ALV*ALV*RG/(RV*T(I)*T(I))
+    ! jyg1
+    ! C        S=CPD*(1.-RR(1))+CL*RR(1)+ALV*ALV*RG/(RV*T(I)*T(I))
+    s = cpd*(1.-rr(nk)) + cl*rr(nk) + alv*alv*rg/(rv*t(i)*t(i))
+    ! jyg2
+    s = 1./s
+
+    DO j = 1, 2
+      ! jyg1
+      ! C         AHG=CPD*TG+(CL-CPD)*RR(1)*TG+ALV*RG+GZ(I)
+      ahg = cpd*tg + (cl-cpd)*rr(nk)*tg + alv*rg + gz(i)
+      ! jyg2
+      tg = tg + s*(ah0-ahg)
+      tc = tg - 273.15
+      denom = 243.5 + tc
+      denom = max(denom, 1.0)
+
+      ! FORMULE DE BOLTON POUR PSAT
+
+      es = 6.112*exp(17.67*tc/denom)
+      rg = eps*es/(p(i)-es*(1.-eps))
+
+
+    END DO
+
+    ! jyg1
+    ! C        TPK(I)=(AH0-GZ(I)-ALV*RG)/(CPD+(CL-CPD)*RR(1))
+    tpk(i) = (ah0-gz(i)-alv*rg)/(cpd+(cl-cpd)*rr(nk))
+    ! jyg2
+    ! TPK(I)=(AH0-GZ(I)-ALV*RG-(CL-CPD)*T(I)*RR(1))/CPD
+
+    ! jyg1
+    ! C        CLW(I)=RR(1)-RG
+    clw(i) = rr(nk) - rg
+    ! jyg2
+    clw(i) = max(0.0, clw(i))
+    ! jyg1
+    ! CC        TVP(I)=TPK(I)*(1.+RG/EPS)
+    tvp(i) = tpk(i)*(1.+rg/eps-rr(nk))
+    ! jyg2
+
+    ! jyg1       Derivatives
+
+    dtpdt1(i) = cpd*s
+    dtpdq1(i) = alv*s
+
+    dtvpdt1(i) = dtpdt1(i)*(1.+rg/eps-rr(nk)+alv*rg/(rd*tpk(i)))
+    dtvpdq1(i) = dtpdq1(i)*(1.+rg/eps-rr(nk)+alv*rg/(rd*tpk(i))) - tpk(i)
+
+    ! jyg2
+
+  END DO
+
+  ice_conv = .FALSE.
+
+  IF (ice_conv) THEN
+
+    ! JAM
+    ! RAJOUT DE LA PROCEDURE ICEFRAC
+
+    ! sb        CALL ICEFRAC(T,CLW,CLW_NEW,QI,ND,NL)
+
+    DO i = icb1, nl
+      IF (t(i)<263.15) THEN
+        tg = tpk(i)
+        tc = tpk(i) - 273.15
+        denom = 243.5 + tc
+        es = 6.112*exp(17.67*tc/denom)
+        alv = alv0 - cpvmcl*(t(i)-273.15)
+        alf = alf0 + clmci*(t(i)-273.15)
+
+        DO j = 1, 4
+          esi = exp(23.33086-(6111.72784/tpk(i))+0.15215*log(tpk(i)))
+          qsat_new = eps*esi/(p(i)-esi*(1.-eps))
+          ! CC        SNEW=
+          ! CPD*(1.-RR(1))+CL*RR(1)+ALV*ALV*QSAT_NEW/(RV*TPK(I)*TPK(I))
+          snew = cpd*(1.-rr(nk)) + cl*rr(nk) + alv*alv*qsat_new/(rv*tpk(i)* &
+            tpk(i))
+
+          snew = 1./snew
+          tpk(i) = tg + (alf*qi(i)+alv*rg*(1.-(esi/es)))*snew
+          ! @$$        PRINT*,'################################'
+          ! @$$        PRINT*,TPK(I)
+          ! @$$        PRINT*,(ALF*QI(I)+ALV*RG*(1.-(ESI/ES)))*SNEW
+        END DO
+        ! CC        CLW(I)=RR(1)-QSAT_NEW
+        clw(i) = rr(nk) - qsat_new
+        clw(i) = max(0.0, clw(i))
+        ! jyg1
+        ! CC        TVP(I)=TPK(I)*(1.+QSAT_NEW/EPS)
+        tvp(i) = tpk(i)*(1.+qsat_new/eps-rr(nk))
+        ! jyg2
+      ELSE
+        CONTINUE
+      END IF
+
+    END DO
+
+  END IF
+
+
+  ! *****************************************************
+  ! * BK :  RAJOUT DE LA TEMPERATURE DES ASCENDANCES
+  ! *   NON DILUES AU  NIVEAU KLEV = ND
+  ! *   POSONS LE ENVIRON EGAL A CELUI DE KLEV-1
+  ! *******************************************************
+
+  tpk(nl+1) = tpk(nl)
+
+  ! ******************************************************
+
+  rg = gravity ! RG redevient la gravite de YOMCST (sb)
+
+
+  RETURN
+END SUBROUTINE tlift
+
+
+
+
+
+
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tracinca_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tracinca_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tracinca_mod.F90	(revision 3330)
@@ -0,0 +1,202 @@
+!$Id $
+!
+MODULE tracinca_mod
+!
+! This module prepares and calls the INCA main subroutines. 
+!
+  IMPLICIT NONE  
+
+  CHARACTER(len=4),SAVE :: config_inca
+!$OMP THREADPRIVATE(config_inca)
+                     ! config_inca='none' => without INCA
+                     ! config_inca='chem' => INCA with chemistry
+                     ! config_inca='aero' => INCA with aerosols
+CONTAINS
+
+  SUBROUTINE tracinca_init(aerosol,lessivage)
+    ! This subroutine initialize some control varaibles. 
+
+    USE infotrac_phy, ONLY: nbtr
+    USE ioipsl_getin_p_mod, ONLY: getin_p
+    IMPLICIT NONE
+    
+    ! Output variables
+    LOGICAL,DIMENSION(nbtr), INTENT(OUT) :: aerosol
+    LOGICAL,INTENT(OUT) :: lessivage
+    
+    
+    ! Initialization
+    lessivage  =.FALSE.
+    aerosol(:) = .FALSE.
+
+  END SUBROUTINE tracinca_init
+
+  SUBROUTINE tracinca(                                &
+       nstep,    julien,   gmtime,         lafin,     &
+       pdtphys,  t_seri,   paprs,          pplay,     &
+       pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
+       pphi,     albsol,   sh,             ch, 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)      
+
+!========================================================
+!    -- CHIMIE INCA --
+!========================================================
+
+    USE dimphy
+    USE infotrac_phy, ONLY: nbtr
+    USE vampir
+    USE indice_sol_mod
+    USE geometry_mod, ONLY: cell_area
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
+    USE aero_mod, ONLY : naero_grp
+    IMPLICIT NONE
+    
+!==========================================================================
+!                   -- DESCRIPTION DES ARGUMENTS --
+!==========================================================================
+
+
+! EN ENTREE ...
+!
+!Configuration grille,temps:
+    INTEGER,INTENT(IN) :: nstep      ! Appel physique
+    INTEGER,INTENT(IN) :: julien     ! Jour julien
+    REAL,INTENT(IN)    :: gmtime
+    REAL,INTENT(IN)    :: pdtphys    ! Pas d'integration pour la physique (seconde)
+    LOGICAL,INTENT(IN) :: lafin      ! le flag de la fin de la physique
+    
+
+!Physique: 
+!--------
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide
+    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(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)
+    INTEGER,DIMENSION(klon),INTENT(IN)     :: itop_con
+    INTEGER,DIMENSION(klon),INTENT(IN)     :: ibas_con
+    REAL,DIMENSION(klon),INTENT(IN)        :: albsol  ! albedo surface
+!
+!Convection:
+!----------
+    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     
+    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,naero_grp,2),INTENT(IN) :: tau_aero
+    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: piz_aero
+    REAL,DIMENSION(klon,klev,naero_grp,2),INTENT(IN) :: cg_aero
+    CHARACTER(len=4),DIMENSION(naero_grp),INTENT(IN) :: rfname 
+    REAL,DIMENSION(klon,klev,2),INTENT(IN)   :: ccm 
+
+! 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 f(nature du sol)
+
+
+  ! InOutput argument
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri ! Concentration Traceur [U/KgA]  
+
+  ! Output arguments
+    REAL,DIMENSION(klon,nbtr), INTENT(OUT)        :: source  ! a voir lorsque le flux de surface est prescrit 
+
+!=======================================================================================
+!                        -- VARIABLES LOCALES TRACEURS --
+!=======================================================================================
+
+    INTEGER :: k
+    REAL,DIMENSION(klon,klev) :: pdel
+    REAL,DIMENSION(klon,klev) :: zpmfu  ! flux de masse dans le panache montant
+    REAL    :: calday
+    INTEGER :: ncsec
+
+    CALL VTe(VTphysiq)
+    CALL VTb(VTinca)
+    
+    calday = REAL(julien) + gmtime
+    ncsec  = NINT (86400.*gmtime)
+     
+    DO k = 1, klev
+       pdel(:,k) = paprs(:,k) - paprs (:,k+1)
+    END DO
+  
+#ifdef INCA
+    IF (config_inca == 'aero') THEN 
+       zpmfu(:,:)=pmfu(:,:)       
+    ELSE IF (config_inca == 'aeNP') THEN
+       zpmfu(:,:)=upwd(:,:)
+    ENDIF
+
+    CALL aerosolmain(                    &
+         aerosol_couple,tr_seri,pdtphys, &
+         pplay,pdel,prfl,pmflxr,psfl,    &
+         pmflxs,zpmfu,itop_con,ibas_con,  &
+         pphi,cell_area,nstep,rneb,t_seri, &      
+         rh,tau_aero,piz_aero,cg_aero,   &
+         rfname,ccm,lafin)
+#endif
+
+
+#ifdef INCA
+    CALL chemmain (tr_seri, &   !mmr
+         nstep,      & !nstep
+         calday,     & !calday
+         julien,     & !ncdate
+         ncsec,      & !ncsec
+         1,          & !lat
+         pdtphys,    & !delt
+         paprs(1,1), & !ps
+         pplay,      & !pmid
+         pdel,       & !pdel
+         cell_area,  &
+         pctsrf(1,1),& !oro
+         ftsol,      & !tsurf
+         albsol,     & !albs
+         pphi,       & !zma
+         pphis,      & !phis
+         cldfra,     & !cldfr
+         rneb,       & !cldfr_st
+         diafra,     & !cldfr_cv
+         itop_con,   & !cldtop
+         ibas_con,   & !cldbot
+         cldliq,     & !cwat
+         prfl,       & !flxrst
+         pmflxr,     & !flxrcv
+         psfl,       & !flxsst
+         pmflxs,     & !flxscv
+         zpmfu,      & !flxupd   !--now depends on whether AP or NP
+         flxmass_w,  & !flxmass_w
+         t_seri,     & !tfld
+         sh,         & !sh
+         ch,         & !ql
+         rh,         & !rh
+         nbp_lon,    & !nx
+         nbp_lat,    & !ny
+         source )
+#endif
+    
+    CALL VTe(VTinca)
+    CALL VTb(VTphysiq)
+    
+    
+  END SUBROUTINE tracinca
+
+
+END MODULE tracinca_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/traclmdz_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/traclmdz_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/traclmdz_mod.F90	(revision 3330)
@@ -0,0 +1,643 @@
+!$Id $
+!
+MODULE traclmdz_mod
+
+! 
+! In this module all tracers specific to LMDZ are treated. This module is used 
+! only if running without any other chemestry model as INCA or REPROBUS.  
+!
+  IMPLICIT NONE
+
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: masktr   ! Masque reservoir de sol traceur
+!$OMP THREADPRIVATE(masktr)                        ! Masque de l'echange avec la surface (1 = reservoir) ou (possible >= 1 )
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: fshtr    ! Flux surfacique dans le reservoir de sol
+!$OMP THREADPRIVATE(fshtr)
+  REAL,DIMENSION(:),ALLOCATABLE,SAVE   :: hsoltr   ! Epaisseur equivalente du reservoir de sol
+!$OMP THREADPRIVATE(hsoltr)
+!
+!Radioelements:
+!--------------
+!
+  REAL,DIMENSION(:),ALLOCATABLE,SAVE   :: tautr    ! Constante de decroissance radioactive
+!$OMP THREADPRIVATE(tautr)
+  REAL,DIMENSION(:),ALLOCATABLE,SAVE   :: vdeptr   ! Vitesse de depot sec dans la couche Brownienne
+!$OMP THREADPRIVATE(vdeptr)
+  REAL,DIMENSION(:),ALLOCATABLE,SAVE   :: scavtr   ! Coefficient de lessivage
+!$OMP THREADPRIVATE(scavtr)
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: srcbe    ! Production du beryllium7 dans l atmosphere (U/s/kgA)
+!$OMP THREADPRIVATE(srcbe)
+
+  LOGICAL,DIMENSION(:),ALLOCATABLE,SAVE :: radio    ! radio(it)   = true  => decroisssance radioactive
+!$OMP THREADPRIVATE(radio)  
+
+  REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: trs     ! Conc. radon ds le sol
+!$OMP THREADPRIVATE(trs)
+
+  INTEGER,SAVE :: id_aga      ! Identification number for tracer : Age of stratospheric air
+!$OMP THREADPRIVATE(id_aga)
+  INTEGER,SAVE :: lev_1p5km   ! Approximative vertical layer number at 1.5km above surface, used for calculation of the age of air. The result shouldn't be that sensible to the exactness of this value as long as it is in the lower troposphere. 
+!$OMP THREADPRIVATE(lev_1p5km)
+
+  INTEGER,SAVE :: id_rn, id_pb ! Identification number for tracer : radon (Rn222), lead (Pb210)
+!$OMP THREADPRIVATE(id_rn, id_pb)
+
+  INTEGER,SAVE :: id_be       ! Activation et position du traceur Be7 [ id_be=0 -> desactive ] 
+!$OMP THREADPRIVATE(id_be)
+
+  INTEGER,SAVE :: id_pcsat, id_pcocsat, id_pcq ! traceurs pseudo-vapeur CL qsat, qsat_oc, q
+!$OMP THREADPRIVATE(id_pcsat, id_pcocsat, id_pcq)
+  INTEGER,SAVE :: id_pcs0, id_pcos0, id_pcq0   ! traceurs pseudo-vapeur CL qsat, qsat_oc, q
+!                                              ! qui ne sont pas transportes par la convection
+!$OMP THREADPRIVATE(id_pcs0, id_pcos0, id_pcq0)
+
+  INTEGER, SAVE:: id_o3
+!$OMP THREADPRIVATE(id_o3)
+! index of ozone tracer with Cariolle parameterization
+! 0 means no ozone tracer
+
+  LOGICAL,SAVE :: rnpb=.FALSE. ! Presence du couple Rn222, Pb210
+!$OMP THREADPRIVATE(rnpb)
+
+
+CONTAINS
+
+  SUBROUTINE traclmdz_from_restart(trs_in)
+    ! This subroutine initialize the module saved variable trs with values from restart file (startphy.nc). 
+    ! This subroutine is called from phyetat0 after the field trs_in has been read.
+    
+    USE dimphy
+    USE infotrac_phy
+    
+    ! Input argument
+    REAL,DIMENSION(klon,nbtr), INTENT(IN) :: trs_in 
+    
+    ! Local variables
+    INTEGER :: ierr
+    
+    ! Allocate restart variables trs
+    ALLOCATE( trs(klon,nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_from_restart', 'pb in allocation 1',1)
+    
+    ! Initialize trs with values read from restart file 
+    trs(:,:) = trs_in(:,:)
+    
+  END SUBROUTINE traclmdz_from_restart
+
+
+  SUBROUTINE traclmdz_init(pctsrf, xlat, xlon, ftsol, tr_seri, t_seri, pplay, sh, pdtphys, aerosol, lessivage)
+    ! This subroutine allocates and initialize module variables and control variables.
+    ! Initialization of the tracers should be done here only for those not found in the restart file.
+    USE dimphy
+    USE infotrac_phy
+    USE regr_pr_comb_coefoz_m, ONLY: alloc_coefoz
+    USE press_coefoz_m, ONLY: press_coefoz
+    USE carbon_cycle_mod, ONLY : carbon_cycle_init, carbon_cycle_tr, carbon_cycle_cpl
+    USE mod_grid_phy_lmdz
+    USE mod_phys_lmdz_para
+    USE indice_sol_mod
+    USE print_control_mod, ONLY: lunout
+
+! Input variables
+    REAL,DIMENSION(klon,nbsrf),INTENT(IN)     :: pctsrf ! Pourcentage de sol f(nature du sol)
+    REAL,DIMENSION(klon),INTENT(IN)           :: xlat   ! latitudes en degres pour chaque point 
+    REAL,DIMENSION(klon),INTENT(IN)           :: xlon   ! longitudes en degres pour chaque point 
+    REAL,DIMENSION(klon,nbsrf),INTENT(IN)     :: ftsol  ! Temperature du sol (surf)(Kelvin)
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT) :: tr_seri! Concentration Traceur [U/KgA]  
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
+    REAL,INTENT(IN)                        :: pdtphys ! Pas d'integration pour la physique (seconde)  
+
+! Output variables
+    LOGICAL,DIMENSION(nbtr), INTENT(OUT) :: aerosol
+    LOGICAL,INTENT(OUT)                  :: lessivage
+        
+! Local variables    
+    INTEGER :: ierr, it, iiq, i, k
+    REAL, DIMENSION(klon_glo,klev) :: varglo ! variable temporaire sur la grille global    
+    REAL, DIMENSION(klev)          :: mintmp, maxtmp
+    LOGICAL                        :: zero
+! RomP >>> profil initial Be7
+      integer ilesfil
+      parameter (ilesfil=1)
+      integer  irr,kradio
+      real     beryllium(klon,klev)
+! profil initial Pb210
+      integer ilesfil2
+      parameter (ilesfil2=1)
+      integer  irr2,kradio2
+      real     plomb(klon,klev)
+!! RomP <<<
+! --------------------------------------------
+! Allocation
+! --------------------------------------------
+    ALLOCATE( scavtr(nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 9',1)
+    scavtr(:)=1.
+    
+    ALLOCATE( radio(nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 11',1)
+    radio(:) = .false.    ! Par defaut pas decroissance radioactive
+    
+    ALLOCATE( masktr(klon,nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 2',1)
+    
+    ALLOCATE( fshtr(klon,nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 3',1)
+    
+    ALLOCATE( hsoltr(nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 4',1)
+    
+    ALLOCATE( tautr(nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 5',1)
+    tautr(:)  = 0.
+    
+    ALLOCATE( vdeptr(nbtr), stat=ierr)
+    IF (ierr /= 0) CALL abort_physic('traclmdz_init', 'pb in allocation 6',1)
+    vdeptr(:) = 0.
+
+
+    lessivage  = .TRUE.
+!!jyg(20130206) : le choix d activation du lessivage est fait dans phytrac avec iflag_lscav
+!!    call getin('lessivage',lessivage)
+!!    if(lessivage) then
+!!     print*,'lessivage lsc ON'
+!!    else
+!!     print*,'lessivage lsc OFF'
+!!    endif
+    aerosol(:) = .FALSE.  ! Tous les traceurs sont des gaz par defaut
+    
+!
+! Recherche des traceurs connus : Be7, O3, CO2,...
+! --------------------------------------------
+    id_rn=0; id_pb=0; id_aga=0; id_be=0; id_o3=0
+    id_pcsat=0; id_pcocsat=0; id_pcq=0; id_pcs0=0; id_pcos0=0; id_pcq0=0
+    DO it=1,nbtr
+!!       iiq=niadv(it+2)                                                            ! jyg
+       iiq=niadv(it+nqo)                                                            ! jyg
+       IF ( tname(iiq) == "RN" ) THEN                                               
+          id_rn=it ! radon
+       ELSE IF ( tname(iiq) == "PB") THEN
+          id_pb=it ! plomb
+! RomP >>> profil initial de PB210 
+     open (ilesfil2,file='prof.pb210',status='old',iostat=irr2)
+     IF (irr2 == 0) THEN 
+      read(ilesfil2,*) kradio2
+      print*,'number of levels for pb210 profile ',kradio2
+      do k=kradio2,1,-1
+       read (ilesfil2,*) plomb(:,k)
+      enddo
+      close(ilesfil2)
+      do k=1,klev
+       do i=1,klon
+         tr_seri(i,k,id_pb)=plomb(i,k)
+!!        print*, 'tr_seri',i,k,tr_seri(i,k,id_pb)
+        enddo
+      enddo
+     ELSE
+       print *, 'Prof.pb210 does not exist: use restart values'
+     ENDIF
+! RomP <<<
+       ELSE IF ( tname(iiq) == "Aga" .OR. tname(iiq) == "AGA" ) THEN
+          ! Age of stratospheric air
+          id_aga=it
+          radio(id_aga) = .FALSE.
+          aerosol(id_aga) = .FALSE.
+          pbl_flg(id_aga) = 0 
+          
+          ! Find the first model layer above 1.5km from the surface
+          IF (klev>=30) THEN
+             lev_1p5km=6   ! NB! This value is for klev=39
+          ELSE IF (klev>=10) THEN
+             lev_1p5km=5   ! NB! This value is for klev=19
+          ELSE
+             lev_1p5km=klev/2
+          END IF
+       ELSE IF ( tname(iiq) == "BE" .OR. tname(iiq) == "Be" .OR.  &
+            tname(iiq) == "BE7" .OR. tname(iiq) == "Be7" ) THEN  
+          ! Recherche du Beryllium 7
+          id_be=it
+          ALLOCATE( srcbe(klon,klev) )
+          radio(id_be) = .TRUE.
+          aerosol(id_be) = .TRUE. ! le Be est un aerosol
+!jyg le 13/03/2013 ; ajout de pplay en argument de init_be
+!!!          CALL init_be(pctsrf,masktr(:,id_be),tautr(id_be),vdeptr(id_be),scavtr(id_be),srcbe)
+          CALL init_be(pctsrf,pplay,masktr(:,id_be),tautr(id_be),vdeptr(id_be),scavtr(id_be),srcbe)
+          WRITE(lunout,*) 'Initialisation srcBe: OK'
+! RomP >>> profil initial de Be7
+      open (ilesfil,file='prof.be7',status='old',iostat=irr)
+      IF (irr == 0) THEN 
+       read(ilesfil,*) kradio
+       print*,'number of levels for Be7 profile ',kradio
+       do k=kradio,1,-1
+        read (ilesfil,*) beryllium(:,k)
+       enddo
+       close(ilesfil)
+       do k=1,klev
+         do i=1,klon
+          tr_seri(i,k,id_be)=beryllium(i,k)
+!!        print*, 'tr_seri',i,k,tr_seri(i,k,id_be)
+         enddo
+       enddo
+     ELSE
+       print *, 'Prof.Be7 does not exist: use restart values'
+     ENDIF
+! RomP <<<
+       ELSE IF (tname(iiq)=="O3" .OR. tname(iiq)=="o3") THEN
+          ! Recherche de l'ozone : parametrization de la chimie par Cariolle
+          id_o3=it
+          CALL alloc_coefoz   ! allocate ozone coefficients
+          CALL press_coefoz   ! read input pressure levels
+       ELSE IF ( tname(iiq) == "pcsat" .OR. tname(iiq) == "Pcsat" ) THEN
+          id_pcsat=it
+       ELSE IF ( tname(iiq) == "pcocsat" .OR. tname(iiq) == "Pcocsat" ) THEN
+          id_pcocsat=it
+       ELSE IF ( tname(iiq) == "pcq" .OR. tname(iiq) == "Pcq" ) THEN
+          id_pcq=it
+       ELSE IF ( tname(iiq) == "pcs0" .OR. tname(iiq) == "Pcs0" ) THEN
+          id_pcs0=it
+          conv_flg(it)=0 ! No transport by convection for this tracer
+       ELSE IF ( tname(iiq) == "pcos0" .OR. tname(iiq) == "Pcos0" ) THEN
+          id_pcos0=it
+          conv_flg(it)=0 ! No transport by convection for this tracer
+       ELSE IF ( tname(iiq) == "pcq0" .OR. tname(iiq) == "Pcq0" ) THEN
+          id_pcq0=it
+          conv_flg(it)=0 ! No transport by convection for this tracer
+       ELSE
+          WRITE(lunout,*) 'This is an unknown tracer in LMDZ : ', trim(tname(iiq))
+       END IF
+    END DO
+
+!
+! Valeurs specifiques pour les traceurs Rn222 et Pb210
+! ----------------------------------------------
+    IF ( id_rn/=0 .AND. id_pb/=0 ) THEN
+       rnpb = .TRUE.
+       radio(id_rn)= .TRUE.
+       radio(id_pb)= .TRUE.
+       pbl_flg(id_rn) = 0 ! au lieu de clsol=true ! CL au sol calcule
+       pbl_flg(id_pb) = 0 ! au lieu de clsol=true
+       aerosol(id_rn) = .FALSE.
+       aerosol(id_pb) = .TRUE. ! le Pb est un aerosol
+       
+       CALL initrrnpb (ftsol,pctsrf,masktr,fshtr,hsoltr,tautr,vdeptr,scavtr)
+    END IF
+
+!
+! Initialisation de module carbon_cycle_mod
+! ----------------------------------------------
+    IF (carbon_cycle_tr .OR. carbon_cycle_cpl) THEN
+       CALL carbon_cycle_init(tr_seri, pdtphys, aerosol, radio)
+    END IF
+
+! Check if all tracers have restart values
+! ----------------------------------------------
+    DO it=1,nbtr
+!!       iiq=niadv(it+2)                                                            ! jyg
+       iiq=niadv(it+nqo)                                                            ! jyg
+       ! Test if tracer is zero everywhere. 
+       ! Done by master process MPI and master thread OpenMP
+       CALL gather(tr_seri(:,:,it),varglo)
+       IF (is_mpi_root .AND. is_omp_root) THEN
+          mintmp=MINVAL(varglo,dim=1)
+          maxtmp=MAXVAL(varglo,dim=1)
+          IF (MINVAL(mintmp,dim=1)==0. .AND. MAXVAL(maxtmp,dim=1)==0.) THEN
+             ! Tracer is zero everywhere
+             zero=.TRUE.
+          ELSE
+             zero=.FALSE.
+          END IF
+       END IF
+
+       ! Distribute variable at all processes
+       CALL bcast(zero)
+
+       ! Initalize tracer that was not found in restart file.
+       IF (zero) THEN
+          ! The tracer was not found in restart file or it was equal zero everywhere.
+          WRITE(lunout,*) "The tracer ",trim(tname(iiq))," will be initialized"
+          IF (it==id_pcsat .OR. it==id_pcq .OR. &
+               it==id_pcs0 .OR. it==id_pcq0) THEN
+             tr_seri(:,:,it) = 100.
+          ELSE IF (it==id_pcocsat .OR. it==id_pcos0) THEN
+             DO i = 1, klon
+                IF ( pctsrf (i, is_oce) == 0. ) THEN
+                   tr_seri(i,:,it) = 0.
+                ELSE
+                   tr_seri(i,:,it) = 100.
+                END IF
+             END DO
+          ELSE
+             ! No specific initialization exist for this tracer
+             tr_seri(:,:,it) = 0.
+          END IF
+       END IF
+    END DO
+
+  END SUBROUTINE traclmdz_init
+
+  SUBROUTINE traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
+       cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon, couchelimite, sh, &
+       rh, pphi, ustar, wstar, ale_bl, ale_wake,  zu10m, zv10m, &
+       tr_seri, source, d_tr_cl,d_tr_dec, zmasse)               !RomP
+    
+    USE dimphy
+    USE infotrac_phy
+    USE regr_pr_comb_coefoz_m, ONLY: regr_pr_comb_coefoz
+    USE o3_chem_m, ONLY: o3_chem
+    USE carbon_cycle_mod, ONLY : carbon_cycle, carbon_cycle_tr, carbon_cycle_cpl
+    USE indice_sol_mod
+
+    INCLUDE "YOMCST.h"
+
+!==========================================================================
+!                   -- DESCRIPTION DES ARGUMENTS --
+!==========================================================================
+
+! Input arguments
+!
+!Configuration grille,temps:
+    INTEGER,INTENT(IN) :: nstep      ! nombre d'appels de la physiq
+    INTEGER,INTENT(IN) :: julien     ! Jour julien
+    REAL,INTENT(IN)    :: gmtime
+    REAL,INTENT(IN)    :: pdtphys    ! Pas d'integration pour la physique (seconde)  
+    REAL,DIMENSION(klon),INTENT(IN) :: xlat    ! latitudes pour chaque point 
+    REAL, INTENT(IN):: xlon(:) ! dim(klon) longitude
+
+!
+!Physique: 
+!--------
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
+    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,intent(in):: zmasse (:, :)   ! dim(klon,klev) density of air, in kg/m2
+
+
+!Couche limite:
+!--------------
+!
+    REAL,DIMENSION(klon),INTENT(IN)      :: cdragh     ! coeff drag pour T et Q
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: coefh      ! coeff melange CL (m**2/s)
+    REAL,DIMENSION(klon),INTENT(IN)      :: yu1        ! vents au premier niveau
+    REAL,DIMENSION(klon),INTENT(IN)      :: yv1        ! vents au premier niveau
+    LOGICAL,INTENT(IN)                   :: couchelimite
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: sh         ! humidite specifique
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: rh      ! Humidite relative
+    REAL,DIMENSION(klon,klev),INTENT(IN) :: pphi    ! geopotentie
+    REAL,DIMENSION(klon),INTENT(IN)      :: ustar   ! ustar (m/s)
+    REAL,DIMENSION(klon),INTENT(IN)      :: wstar,ale_bl,ale_wake   ! wstar (m/s) and Avail. Lifti. Energ.
+    REAL,DIMENSION(klon),INTENT(IN)      :: zu10m   ! vent zonal 10m (m/s)
+    REAL,DIMENSION(klon),INTENT(IN)      :: zv10m   ! vent zonal 10m (m/s)
+
+! 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 f(nature du sol)
+
+! InOutput argument
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT)  :: tr_seri ! Concentration Traceur [U/KgA]  
+
+! Output argument
+    REAL,DIMENSION(klon,nbtr), INTENT(OUT)        :: source  ! a voir lorsque le flux de surface est prescrit 
+    REAL,DIMENSION(klon,klev,nbtr), INTENT(OUT)   :: d_tr_cl ! Td couche limite/traceur
+
+!=======================================================================================
+!                        -- VARIABLES LOCALES TRACEURS --
+!=======================================================================================
+
+    INTEGER :: i, k, it
+    INTEGER :: lmt_pas ! number of time steps of "physics" per day
+
+    REAL,DIMENSION(klon)           :: d_trs    ! Td dans le reservoir
+    REAL,DIMENSION(klon,klev)      :: qsat     ! pression de la vapeur a saturation
+    REAL,DIMENSION(klon,klev,nbtr) :: d_tr_dec ! Td radioactive
+    REAL                           :: zrho     ! Masse Volumique de l'air KgA/m3
+    REAL                           :: amn, amx
+!
+!=================================================================
+!  Ajout de la production en  Be7 (Beryllium) srcbe U/s/kgA
+!=================================================================
+!
+    IF ( id_be /= 0 ) THEN
+       DO k = 1, klev
+          DO i = 1, klon
+             tr_seri(i,k,id_be) = tr_seri(i,k,id_be)+srcbe(i,k)*pdtphys
+          END DO
+       END DO
+       WRITE(*,*) 'Ajout srcBe dans tr_seri: OK'
+    END IF
+  
+
+!=================================================================
+! Update pseudo-vapor tracers 
+!=================================================================
+
+    CALL q_sat(klon*klev,t_seri,pplay,qsat)
+
+    IF ( id_pcsat /= 0 ) THEN
+     DO k = 1, klev
+      DO i = 1, klon
+         IF ( pplay(i,k).GE.85000.) THEN
+            tr_seri(i,k,id_pcsat) = qsat(i,k)
+         ELSE
+            tr_seri(i,k,id_pcsat) = MIN (qsat(i,k), tr_seri(i,k,id_pcsat))            
+         END IF
+      END DO 
+     END DO
+    END IF
+
+    IF ( id_pcocsat /= 0 ) THEN
+     DO k = 1, klev
+      DO i = 1, klon
+         IF ( pplay(i,k).GE.85000.) THEN
+            IF ( pctsrf (i, is_oce) > 0. ) THEN
+               tr_seri(i,k,id_pcocsat) = qsat(i,k)
+            ELSE
+               tr_seri(i,k,id_pcocsat) = 0.
+          END IF
+       ELSE 
+          tr_seri(i,k,id_pcocsat) = MIN (qsat(i,k), tr_seri(i,k,id_pcocsat))
+       END IF
+      END DO
+     END DO
+    END IF
+
+    IF ( id_pcq /= 0 ) THEN
+     DO k = 1, klev
+      DO i = 1, klon
+         IF ( pplay(i,k).GE.85000.) THEN
+            tr_seri(i,k,id_pcq) = sh(i,k)
+         ELSE
+            tr_seri(i,k,id_pcq) = MIN (qsat(i,k), tr_seri(i,k,id_pcq))    
+         END IF
+      END DO
+     END DO
+    END IF
+
+
+    IF ( id_pcs0 /= 0 ) THEN
+     DO k = 1, klev
+      DO i = 1, klon
+         IF ( pplay(i,k).GE.85000.) THEN
+            tr_seri(i,k,id_pcs0) = qsat(i,k)
+         ELSE
+            tr_seri(i,k,id_pcs0) = MIN (qsat(i,k), tr_seri(i,k,id_pcs0))    
+         END IF
+      END DO
+     END DO
+    END IF
+
+
+    IF ( id_pcos0 /= 0 ) THEN
+     DO k = 1, klev
+      DO i = 1, klon
+         IF ( pplay(i,k).GE.85000.) THEN
+            IF ( pctsrf (i, is_oce) > 0. ) THEN
+               tr_seri(i,k,id_pcos0) = qsat(i,k)
+            ELSE
+               tr_seri(i,k,id_pcos0) = 0.
+            END IF
+         ELSE
+            tr_seri(i,k,id_pcos0) = MIN (qsat(i,k), tr_seri(i,k,id_pcos0))
+         END IF
+      END DO
+     END DO
+    END IF
+
+
+    IF ( id_pcq0 /= 0 ) THEN
+     DO k = 1, klev
+      DO i = 1, klon
+         IF ( pplay(i,k).GE.85000.) THEN
+            tr_seri(i,k,id_pcq0) = sh(i,k)
+         ELSE 
+            tr_seri(i,k,id_pcq0) = MIN (qsat(i,k), tr_seri(i,k,id_pcq0))
+         END IF
+      END DO
+     END DO
+    END IF
+
+!=================================================================
+! Update tracer : Age of stratospheric air 
+!=================================================================
+    IF (id_aga/=0) THEN
+       
+       ! Bottom layers
+       DO k = 1, lev_1p5km
+          tr_seri(:,k,id_aga) = 0.0
+       END DO
+       
+       ! Layers above 1.5km
+       DO k = lev_1p5km+1,klev-1
+          tr_seri(:,k,id_aga) = tr_seri(:,k,id_aga) + pdtphys
+       END DO
+       
+       ! Top layer
+       tr_seri(:,klev,id_aga) = tr_seri(:,klev-1,id_aga)
+       
+    END IF
+
+!======================================================================
+!     -- Calcul de l'effet de la couche limite --
+!======================================================================
+
+    IF (couchelimite) THEN             
+       source(:,:) = 0.0
+
+       IF (id_be /=0) THEN
+          DO i=1, klon
+             zrho = pplay(i,1)/t_seri(i,1)/RD
+             source(i,id_be) = - vdeptr(id_be)*tr_seri(i,1,id_be)*zrho
+          END DO
+       END IF
+
+    END IF
+    
+    DO it=1, nbtr
+       IF (couchelimite .AND. pbl_flg(it) == 0 .AND. (it==id_rn .OR. it==id_pb)) THEN 
+          ! couche limite avec quantite dans le sol calculee
+          CALL cltracrn(it, pdtphys, yu1, yv1,     &
+               cdragh, coefh,t_seri,ftsol,pctsrf,  &
+               tr_seri(:,:,it),trs(:,it),          &
+               paprs, pplay, zmasse * rg, &
+               masktr(:,it),fshtr(:,it),hsoltr(it),&
+               tautr(it),vdeptr(it),               &
+               xlat,d_tr_cl(:,:,it),d_trs)
+          
+          DO k = 1, klev
+             DO i = 1, klon
+                tr_seri(i,k,it) = tr_seri(i,k,it) + d_tr_cl(i,k,it)
+             END DO
+          END DO
+        
+          ! Traceur dans le reservoir sol
+          DO i = 1, klon
+             trs(i,it) = trs(i,it) + d_trs(i)
+          END DO
+       END IF
+    END DO
+          
+
+!======================================================================
+!   Calcul de l'effet du puits radioactif
+!======================================================================
+    CALL radio_decay (radio,rnpb,pdtphys,tautr,tr_seri,d_tr_dec)
+
+    DO it=1,nbtr
+       WRITE(solsym(it),'(i2)') it
+    END DO
+
+    DO it=1,nbtr
+       IF(radio(it)) then     
+          DO k = 1, klev
+             DO i = 1, klon
+                tr_seri(i,k,it) = tr_seri(i,k,it) + d_tr_dec(i,k,it)
+             END DO
+          END DO
+          CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'puits rn it='//solsym(it))
+       END IF
+    END DO
+
+!======================================================================
+!   Parameterization of ozone chemistry
+!======================================================================
+
+    IF (id_o3 /= 0) then
+       lmt_pas = NINT(86400./pdtphys)
+       IF (MOD(nstep - 1, lmt_pas) == 0) THEN
+          ! Once per day, update the coefficients for ozone chemistry:
+          CALL regr_pr_comb_coefoz(julien, xlat, paprs, pplay)
+       END IF
+       CALL o3_chem(julien, gmtime, t_seri, zmasse, pdtphys, xlat, &
+            xlon, tr_seri(:, :, id_o3))
+    END IF
+
+!======================================================================
+!   Calcul de cycle de carbon
+!======================================================================
+    IF (carbon_cycle_tr .OR. carbon_cycle_cpl) THEN
+       CALL carbon_cycle(nstep, pdtphys, pctsrf, tr_seri, source)
+    END IF
+
+  END SUBROUTINE traclmdz
+
+
+  SUBROUTINE traclmdz_to_restart(trs_out)
+    ! This subroutine is called from phyredem.F where the module 
+    ! variable trs is written to restart file (restartphy.nc)
+    USE dimphy
+    USE infotrac_phy
+    
+    REAL,DIMENSION(klon,nbtr), INTENT(OUT) :: trs_out
+    INTEGER :: ierr
+
+    IF ( ALLOCATED(trs) ) THEN
+       trs_out(:,:) = trs(:,:)
+    ELSE
+       ! No previous allocate of trs. This is the case for create_etat0_limit.
+       trs_out(:,:) = 0.0
+    END IF
+    
+  END SUBROUTINE traclmdz_to_restart
+  
+
+END MODULE traclmdz_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tracreprobus_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tracreprobus_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tracreprobus_mod.F90	(revision 3330)
@@ -0,0 +1,108 @@
+MODULE tracreprobus_mod
+!
+! This module prepares and calls the Reprobus main subroutine 
+!
+
+CONTAINS
+
+  SUBROUTINE tracreprobus(pdtphys, gmtime, debutphy, julien, &
+       presnivs, xlat, xlon, pphis, pphi, &
+       t_seri, pplay, paprs, sh , &
+       tr_seri)
+
+    USE dimphy
+    USE infotrac_phy
+#ifdef REPROBUS 
+    USE CHEM_REP, ONLY : pdt_rep, &  ! pas de temps reprobus
+         daynum, iter, &             ! jourjulien, iteration chimie
+         pdel
+#endif
+    IMPLICIT NONE
+
+! Input argument
+!---------------
+    REAL,INTENT(IN)    :: pdtphys    ! Pas d'integration pour la physique (seconde)
+    REAL,INTENT(IN)    :: gmtime     ! Heure courante
+    LOGICAL,INTENT(IN) :: debutphy   ! le flag de l'initialisation de la physique
+    INTEGER,INTENT(IN) :: julien     ! Jour julien
+
+    REAL,DIMENSION(klev),INTENT(IN)        :: presnivs! pressions approximat. des milieux couches (en PA)
+    REAL,DIMENSION(klon),INTENT(IN)        :: xlat    ! latitudes pour chaque point 
+    REAL,DIMENSION(klon),INTENT(IN)        :: xlon    ! longitudes pour chaque point 
+    REAL,DIMENSION(klon),INTENT(IN)        :: pphis   ! geopotentiel du sol
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pphi    ! geopotentiel de chaque couche
+
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
+    REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique   
+
+
+! Output argument
+!----------------
+    REAL,DIMENSION(klon,klev,nbtr),INTENT(INOUT)  :: tr_seri ! Concentration Traceur [U/KgA]  
+  
+
+! Local variables
+!----------------
+    INTEGER :: it, k
+
+#ifdef REPROBUS
+    !   -- CHIMIE REPROBUS --
+    pdt_rep=pdtphys/2.
+    
+    DO k = 1, klev
+       pdel(:,k) = paprs(:,k) - paprs (:,k+1)
+    END DO
+    
+    ! initialisation de ozone passif a ozone en debut d hiver HN et HS
+    IF (julien == 341 .OR. julien == 181) THEN
+       tr_seri(:,:,11)=tr_seri(:,:,8)
+    END IF
+    
+    DO  iter = 1,2
+       daynum = FLOAT(julien) + gmtime + (iter-1)*pdt_rep/86400.
+       
+       DO it=1, nbtr
+!     WRITE(lunout,*)it,' ',minval(tr_seri(:,:,it)),maxval(tr_seri(:,:,it))
+! seulement pour les especes chimiques (pas l'age de l'air)
+! verif valeurs extremes
+! correction: a 1.e-30 quand =0 ou negatif et
+! call abort si >ou= 1.e10
+          WRITE(*,*)it,'nqtot',nqtot,'nbtr',nbtr
+          IF (it < nqtot) THEN
+             WRITE(*,*)'ici',it,nqtot
+#ifdef REPROBUS
+             CALL minmaxqfi_chimie(tr_seri(1,1,it),0.,1.e10,'avant chimie ')
+#endif
+             WRITE(*,*)'apres'
+          ENDIF
+       ENDDO
+       
+#ifdef REPROBUS
+       CALL chemmain_rlong_1401( &
+            tr_seri, & !argument phytrac (change de nom apres: vmr)
+            xlon,    & !argument phytrac (change de nom apres: lon)
+            xlat,    & !argument phytrac (change de nom apres: lat)
+            t_seri,  & !argument phytrac (meme nom)
+            pplay,   & !argument phytrac (meme nom)
+            pphi,    & !argument phytrac (meme nom)
+            pphis,   & !argument phytrac (meme nom)
+            presnivs, & !argument phytrac (meme nom)
+            sh,      & !argument phytrac (meme nom)
+            debutphy) !argument phytrac (change de nom apres: debut)
+       ! pdel, pdt_rep, daynum : definit dans phytrac et utilise dans chemmain
+       !                 et transporte par CHEM_REP
+#endif        
+       
+    END DO
+    
+
+    ! 
+    DO it=1,nbtr
+       WRITE(solsym(it),'(i2)') it
+    END DO
+#endif
+  END SUBROUTINE tracreprobus
+
+END MODULE tracreprobus_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/transp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/transp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/transp.F90	(revision 3330)
@@ -0,0 +1,43 @@
+
+! $Header$
+
+SUBROUTINE transp(paprs, tsol, t, q, u, v, geom, vtran_e, vtran_q, utran_e, &
+    utran_q)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X.Li (LMD/CNRS)
+  ! Date: le 25 avril 1994
+  ! Objet: Calculer le transport de l'energie et de la vapeur d'eau
+  ! ======================================================================
+
+  include "YOMCST.h"
+
+  REAL paprs(klon, klev+1), tsol(klon)
+  REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev)
+  REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)
+
+  INTEGER i, l
+  ! ------------------------------------------------------------------
+  REAL geom(klon, klev), e
+  ! ------------------------------------------------------------------
+  DO i = 1, klon
+    utran_e(i) = 0.0
+    utran_q(i) = 0.0
+    vtran_e(i) = 0.0
+    vtran_q(i) = 0.0
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      e = rcpd*t(i, l) + rlvtt*q(i, l) + geom(i, l)
+      utran_e(i) = utran_e(i) + u(i, l)*e*(paprs(i,l)-paprs(i,l+1))/rg
+      utran_q(i) = utran_q(i) + u(i, l)*q(i, l)*(paprs(i,l)-paprs(i,l+1))/rg
+      vtran_e(i) = vtran_e(i) + v(i, l)*e*(paprs(i,l)-paprs(i,l+1))/rg
+      vtran_q(i) = vtran_q(i) + v(i, l)*q(i, l)*(paprs(i,l)-paprs(i,l+1))/rg
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE transp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/transp_lay.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/transp_lay.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/transp_lay.F90	(revision 3330)
@@ -0,0 +1,50 @@
+
+! $Header$
+
+SUBROUTINE transp_lay(paprs, tsol, t, q, u, v, geom, vtran_e, vtran_q, &
+    utran_e, utran_q)
+
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Auteur(s): Z.X.Li (LMD/CNRS)
+  ! Date: le 25 avril 1994
+  ! Objet: Calculer le transport de l'energie et de la vapeur d'eau
+  ! ======================================================================
+
+  include "YOMCST.h"
+
+  REAL paprs(klon, klev+1), tsol(klon)
+  REAL t(klon, klev), q(klon, klev), u(klon, klev), v(klon, klev)
+  REAL utran_e(klon, klev), utran_q(klon, klev)
+  REAL vtran_e(klon, klev), vtran_q(klon, klev)
+
+  INTEGER i, l
+  ! ------------------------------------------------------------------
+  REAL geom(klon, klev), esh
+  ! ------------------------------------------------------------------
+  DO l = 1, klev
+    DO i = 1, klon
+      utran_e(i, l) = 0.0
+      utran_q(i, l) = 0.0
+      vtran_e(i, l) = 0.0
+      vtran_q(i, l) = 0.0
+    END DO
+  END DO
+
+  DO l = 1, klev
+    DO i = 1, klon
+      esh = rcpd*t(i, l) + rlvtt*q(i, l) + geom(i, l)
+      utran_e(i, l) = utran_e(i, l) + u(i, l)*esh*(paprs(i,l)-paprs(i,l+1))/ &
+        rg
+      utran_q(i, l) = utran_q(i, l) + u(i, l)*q(i, l)*(paprs(i,l)-paprs(i,l+1 &
+        ))/rg
+      vtran_e(i, l) = vtran_e(i, l) + v(i, l)*esh*(paprs(i,l)-paprs(i,l+1))/ &
+        rg
+      vtran_q(i, l) = vtran_q(i, l) + v(i, l)*q(i, l)*(paprs(i,l)-paprs(i,l+1 &
+        ))/rg
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE transp_lay
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tsoilnudge.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tsoilnudge.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/tsoilnudge.h	(revision 3330)
@@ -0,0 +1,7 @@
+      logical nudge_tsoil
+      integer isoil_nudge
+      real Tsoil_nudge, tau_soil_nudge
+
+      common /tsoilnudge/ nudge_tsoil, isoil_nudge, Tsoil_nudge,        &
+     &                   tau_soil_nudge
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/undefSTD.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/undefSTD.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/undefSTD.F90	(revision 3330)
@@ -0,0 +1,110 @@
+
+! $Id$
+
+SUBROUTINE undefstd(itap, read_climoz)
+  USE netcdf
+  USE dimphy
+#ifdef CPP_IOIPSL 
+  USE phys_state_var_mod
+#endif
+#ifdef CPP_XIOS
+  USE wxios, ONLY: missing_val
+#endif
+
+  IMPLICIT NONE
+  include "clesphys.h"
+#ifndef CPP_XIOS 
+  REAL :: missing_val
+#endif
+
+  ! ====================================================================
+
+  ! I. Musat : 09.2004
+
+  ! Calcul * du nombre de pas de temps (FLOAT(ecrit_XXX)-tnondef))
+  ! ou la variable tlevSTD est bien definie (.NE.missing_val),
+  ! et
+  ! * de la somme de tlevSTD => tsumSTD
+
+  ! nout=1 !var. journaliere "day" moyenne sur tous les pas de temps
+  ! ! de la physique
+  ! nout=2 !var. mensuelle "mth" moyennee sur tous les pas de temps
+  ! ! de la physique
+  ! nout=3 !var. mensuelle "NMC" moyennee toutes les ecrit_hf
+
+
+  ! NB: mettre "inst(X)" dans le write_hist*NMC.h !
+  ! ====================================================================
+
+  ! ym#include "dimphy.h"
+  ! variables Input
+
+  ! INTEGER nlevSTD, klevSTD, itap
+  ! PARAMETER(klevSTD=17)
+  INTEGER itap
+  ! REAL dtime
+
+  ! variables locales
+  ! INTEGER i, k, nout, n
+  ! PARAMETER(nout=3) !nout=1 : day; =2 : mth; =3 : NMC
+  INTEGER i, k, n
+  ! REAL freq_calNMC(nout)
+  INTEGER read_climoz
+
+  ! variables Output
+  ! REAL tlevSTD(klon,klevSTD), tsumSTD(klon,klevSTD,nout)
+  ! LOGICAL oknondef(klon,klevSTD,nout)
+  ! REAL tnondef(klon,klevSTD,nout)
+
+! REAL missing_val
+
+! missing_val = nf90_fill_real
+#ifndef CPP_XIOS
+      missing_val=missing_val_nf90
+#endif
+
+  DO n = 1, nout
+
+
+    ! calcul variables tous les freq_calNMC(n)/dtime pas de temps
+    ! de la physique
+
+    IF (mod(itap,nint(freq_calnmc(n)/dtime))==0) THEN
+      DO k = 1, nlevstd
+        DO i = 1, klon
+          IF (tlevstd(i,k)==missing_val) THEN
+            ! IF(oknondef(i,k,n)) THEN
+            tnondef(i, k, n) = tnondef(i, k, n) + 1.
+            ! ENDIF !oknondef(i,k)
+
+          ELSE IF (tlevstd(i,k)/=missing_val) THEN
+            tsumstd(i, k, n) = tsumstd(i, k, n) + tlevstd(i, k)
+            usumstd(i, k, n) = usumstd(i, k, n) + ulevstd(i, k)
+            vsumstd(i, k, n) = vsumstd(i, k, n) + vlevstd(i, k)
+            wsumstd(i, k, n) = wsumstd(i, k, n) + wlevstd(i, k)
+            phisumstd(i, k, n) = phisumstd(i, k, n) + philevstd(i, k)
+            qsumstd(i, k, n) = qsumstd(i, k, n) + qlevstd(i, k)
+            rhsumstd(i, k, n) = rhsumstd(i, k, n) + rhlevstd(i, k)
+            uvsumstd(i, k, n) = uvsumstd(i, k, n) + uvstd(i, k)
+            vqsumstd(i, k, n) = vqsumstd(i, k, n) + vqstd(i, k)
+            vtsumstd(i, k, n) = vtsumstd(i, k, n) + vtstd(i, k)
+            wqsumstd(i, k, n) = wqsumstd(i, k, n) + wqstd(i, k)
+            vphisumstd(i, k, n) = vphisumstd(i, k, n) + vphistd(i, k)
+            wtsumstd(i, k, n) = wtsumstd(i, k, n) + wtstd(i, k)
+            u2sumstd(i, k, n) = u2sumstd(i, k, n) + u2std(i, k)
+            v2sumstd(i, k, n) = v2sumstd(i, k, n) + v2std(i, k)
+            t2sumstd(i, k, n) = t2sumstd(i, k, n) + t2std(i, k)
+            o3sumstd(i, k, n) = o3sumstd(i, k, n) + o3std(i, k)
+            IF (read_climoz==2) o3daysumstd(i, k, n) = o3daysumstd(i, k, n) + &
+              o3daystd(i, k)
+
+          END IF
+        END DO !i
+      END DO !k
+
+    END IF !MOD(itap,NINT(freq_calNMC(n)/dtime)).EQ.0
+
+  END DO !n
+
+  RETURN
+END SUBROUTINE undefstd
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ustarhb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ustarhb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/ustarhb.F90	(revision 3330)
@@ -0,0 +1,52 @@
+
+! $Header$
+
+SUBROUTINE ustarhb(knon, u, v, cd_m, ustar)
+  USE dimphy
+  IMPLICIT NONE
+  ! ======================================================================
+  ! Laurent Li (LMD/CNRS), le 30 septembre 1998
+  ! Couche limite non-locale. Adaptation du code du CCM3.
+  ! Code non teste, donc a ne pas utiliser.
+  ! ======================================================================
+  ! Nonlocal scheme that determines eddy diffusivities based on a
+  ! diagnosed boundary layer height and a turbulent velocity scale.
+  ! Also countergradient effects for heat and moisture are included.
+
+  ! For more information, see Holtslag, A.A.M., and B.A. Boville, 1993:
+  ! Local versus nonlocal boundary-layer diffusion in a global climate
+  ! model. J. of Climate, vol. 6, 1825-1842.
+  ! ======================================================================
+  include "YOMCST.h"
+
+  ! Arguments:
+
+  INTEGER knon ! nombre de points a calculer
+  REAL u(klon, klev) ! vitesse U (m/s)
+  REAL v(klon, klev) ! vitesse V (m/s)
+  REAL cd_m(klon) ! coefficient de friction au sol pour vitesse
+  REAL ustar(klon)
+
+  INTEGER i, k
+  REAL zxt, zxq, zxu, zxv, zxmod, taux, tauy
+  REAL zx_alf1, zx_alf2 ! parametres pour extrapolation
+  LOGICAL unssrf(klon) ! unstb pbl w/lvls within srf pbl lyr
+  LOGICAL unsout(klon) ! unstb pbl w/lvls in outer pbl lyr
+  LOGICAL check(klon) ! True=>chk if Richardson no.>critcal
+
+  include "YOETHF.h"
+  include "FCTTRE.h"
+  DO i = 1, knon
+    zx_alf1 = 1.0
+    zx_alf2 = 1.0 - zx_alf1
+    zxu = u(i, 1)*zx_alf1 + u(i, 2)*zx_alf2
+    zxv = v(i, 1)*zx_alf1 + v(i, 2)*zx_alf2
+    zxmod = 1.0 + sqrt(zxu**2+zxv**2)
+    taux = zxu*zxmod*cd_m(i)
+    tauy = zxv*zxmod*cd_m(i)
+    ustar(i) = sqrt(taux**2+tauy**2)
+    ! print*,'Ust ',zxu,zxmod,taux,ustar(i)
+  END DO
+
+  RETURN
+END SUBROUTINE ustarhb
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/vdif_kcay.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/vdif_kcay.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/vdif_kcay.F90	(revision 3330)
@@ -0,0 +1,674 @@
+
+! $Header$
+
+SUBROUTINE vdif_kcay(ngrid, dt, g, rconst, plev, temp, zlev, zlay, u, v, &
+    teta, cd, q2, q2diag, km, kn, ustar, l_mix)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! dt : pas de temps
+  ! g  : g
+  ! zlev : altitude a chaque niveau (interface inferieure de la couche
+  ! de meme indice)
+  ! zlay : altitude au centre de chaque couche
+  ! u,v : vitesse au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! teta : temperature potentielle au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! cd : cdrag
+  ! (en entree : la valeur au debut du pas de temps)
+  ! q2 : $q^2$ au bas de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  ! km : diffusivite turbulente de quantite de mouvement (au bas de chaque
+  ! couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  ! kn : diffusivite turbulente des scalaires (au bas de chaque couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+
+  ! .......................................................................
+  REAL dt, g, rconst
+  REAL plev(klon, klev+1), temp(klon, klev)
+  REAL ustar(klon), snstable
+  REAL zlev(klon, klev+1)
+  REAL zlay(klon, klev)
+  REAL u(klon, klev)
+  REAL v(klon, klev)
+  REAL teta(klon, klev)
+  REAL cd(klon)
+  REAL q2(klon, klev+1), q2s(klon, klev+1)
+  REAL q2diag(klon, klev+1)
+  REAL km(klon, klev+1)
+  REAL kn(klon, klev+1)
+  REAL sq(klon), sqz(klon), zz(klon, klev+1), zq, long0(klon)
+
+  INTEGER l_mix, iii
+  ! .......................................................................
+
+  ! nlay : nombre de couches
+  ! nlev : nombre de niveaux
+  ! ngrid : nombre de points de grille
+  ! unsdz : 1 sur l'epaisseur de couche
+  ! unsdzdec : 1 sur la distance entre le centre de la couche et le
+  ! centre de la couche inferieure
+  ! q : echelle de vitesse au bas de chaque couche
+  ! (valeur a la fin du pas de temps)
+
+  ! .......................................................................
+  INTEGER nlay, nlev, ngrid
+  REAL unsdz(klon, klev)
+  REAL unsdzdec(klon, klev+1)
+  REAL q(klon, klev+1)
+
+  ! .......................................................................
+
+  ! kmpre : km au debut du pas de temps
+  ! qcstat : q : solution stationnaire du probleme couple
+  ! (valeur a la fin du pas de temps)
+  ! q2cstat : q2 : solution stationnaire du probleme couple
+  ! (valeur a la fin du pas de temps)
+
+  ! .......................................................................
+  REAL kmpre(klon, klev+1)
+  REAL qcstat
+  REAL q2cstat
+  REAL sss, sssq
+  ! .......................................................................
+
+  ! long : longueur de melange calculee selon Blackadar
+
+  ! .......................................................................
+  REAL long(klon, klev+1)
+  ! .......................................................................
+
+  ! kmq3 : terme en q^3 dans le developpement de km
+  ! (valeur au debut du pas de temps)
+  ! kmcstat : valeur de km solution stationnaire du systeme {q2 ; du/dz}
+  ! (valeur a la fin du pas de temps)
+  ! knq3 : terme en q^3 dans le developpement de kn
+  ! mcstat : valeur de m solution stationnaire du systeme {q2 ; du/dz}
+  ! (valeur a la fin du pas de temps)
+  ! m2cstat : valeur de m2 solution stationnaire du systeme {q2 ; du/dz}
+  ! (valeur a la fin du pas de temps)
+  ! m : valeur a la fin du pas de temps
+  ! mpre : valeur au debut du pas de temps
+  ! m2 : valeur a la fin du pas de temps
+  ! n2 : valeur a la fin du pas de temps
+
+  ! .......................................................................
+  REAL kmq3
+  REAL kmcstat
+  REAL knq3
+  REAL mcstat
+  REAL m2cstat
+  REAL m(klon, klev+1)
+  REAL mpre(klon, klev+1)
+  REAL m2(klon, klev+1)
+  REAL n2(klon, klev+1)
+  ! .......................................................................
+
+  ! gn : intermediaire pour les coefficients de stabilite
+  ! gnmin : borne inferieure de gn (-0.23 ou -0.28)
+  ! gnmax : borne superieure de gn (0.0233)
+  ! gninf : vrai si gn est en dessous de sa borne inferieure
+  ! gnsup : vrai si gn est en dessus de sa borne superieure
+  ! gm : drole d'objet bien utile
+  ! ri : nombre de Richardson
+  ! sn : coefficient de stabilite pour n
+  ! snq2 : premier terme du developement limite de sn en q2
+  ! sm : coefficient de stabilite pour m
+  ! smq2 : premier terme du developement limite de sm en q2
+
+  ! .......................................................................
+  REAL gn
+  REAL gnmin
+  REAL gnmax
+  LOGICAL gninf
+  LOGICAL gnsup
+  REAL gm
+  ! REAL ri(klon,klev+1)
+  REAL sn(klon, klev+1)
+  REAL snq2(klon, klev+1)
+  REAL sm(klon, klev+1)
+  REAL smq2(klon, klev+1)
+  ! .......................................................................
+
+  ! kappa : consatnte de Von Karman (0.4)
+  ! long00 : longueur de reference pour le calcul de long (160)
+  ! a1,a2,b1,b2,c1 : constantes d'origine pour les  coefficients
+  ! de stabilite (0.92/0.74/16.6/10.1/0.08)
+  ! cn1,cn2 : constantes pour sn
+  ! cm1,cm2,cm3,cm4 : constantes pour sm
+
+  ! .......................................................................
+  REAL kappa
+  REAL long00
+  REAL a1, a2, b1, b2, c1
+  REAL cn1, cn2
+  REAL cm1, cm2, cm3, cm4
+  ! .......................................................................
+
+  ! termq : termes en $q$ dans l'equation de q2
+  ! termq3 : termes en $q^3$ dans l'equation de q2
+  ! termqm2 : termes en $q*m^2$ dans l'equation de q2
+  ! termq3m2 : termes en $q^3*m^2$ dans l'equation de q2
+
+  ! .......................................................................
+  REAL termq
+  REAL termq3
+  REAL termqm2
+  REAL termq3m2
+  ! .......................................................................
+
+  ! q2min : borne inferieure de q2
+  ! q2max : borne superieure de q2
+
+  ! .......................................................................
+  REAL q2min
+  REAL q2max
+  ! .......................................................................
+  ! knmin : borne inferieure de kn
+  ! kmmin : borne inferieure de km
+  ! .......................................................................
+  REAL knmin
+  REAL kmmin
+  ! .......................................................................
+  INTEGER ilay, ilev, igrid
+  REAL tmp1, tmp2
+  ! .......................................................................
+  PARAMETER (kappa=0.4E+0)
+  PARAMETER (long00=160.E+0)
+  ! PARAMETER (gnmin=-10.E+0)
+  PARAMETER (gnmin=-0.28)
+  PARAMETER (gnmax=0.0233E+0)
+  PARAMETER (a1=0.92E+0)
+  PARAMETER (a2=0.74E+0)
+  PARAMETER (b1=16.6E+0)
+  PARAMETER (b2=10.1E+0)
+  PARAMETER (c1=0.08E+0)
+  PARAMETER (knmin=1.E-5)
+  PARAMETER (kmmin=1.E-5)
+  PARAMETER (q2min=1.E-5)
+  PARAMETER (q2max=1.E+2)
+  ! ym      PARAMETER (nlay=klev)
+  ! ym      PARAMETER (nlev=klev+1)
+
+  PARAMETER (cn1=a2*(1.E+0-6.E+0*a1/b1))
+  PARAMETER (cn2=-3.E+0*a2*(6.E+0*a1+b2))
+  PARAMETER (cm1=a1*(1.E+0-3.E+0*c1-6.E+0*a1/b1))
+  PARAMETER (cm2=a1*(-3.E+0*a2*((b2-3.E+0*a2)*(1.E+0-6.E+0*a1/b1)- &
+    3.E+0*c1*(b2+6.E+0*a1))))
+  PARAMETER (cm3=-3.E+0*a2*(6.E+0*a1+b2))
+  PARAMETER (cm4=-9.E+0*a1*a2)
+
+  LOGICAL first
+  SAVE first
+  DATA first/.TRUE./
+  !$OMP THREADPRIVATE(first)
+  ! .......................................................................
+  ! traitment des valeur de q2 en entree
+  ! .......................................................................
+
+  ! Initialisation de q2
+  nlay = klev
+  nlev = klev + 1
+
+  CALL yamada(ngrid, dt, g, rconst, plev, temp, zlev, zlay, u, v, teta, cd, &
+    q2diag, km, kn, ustar, l_mix)
+  IF (first .AND. 1==1) THEN
+    first = .FALSE.
+    q2 = q2diag
+  END IF
+
+  DO ilev = 1, nlev
+    DO igrid = 1, ngrid
+      q2(igrid, ilev) = amax1(q2(igrid,ilev), q2min)
+      q(igrid, ilev) = sqrt(q2(igrid,ilev))
+    END DO
+  END DO
+
+  DO igrid = 1, ngrid
+    tmp1 = cd(igrid)*(u(igrid,1)**2+v(igrid,1)**2)
+    q2(igrid, 1) = b1**(2.E+0/3.E+0)*tmp1
+    q2(igrid, 1) = amax1(q2(igrid,1), q2min)
+    q(igrid, 1) = sqrt(q2(igrid,1))
+  END DO
+
+  ! .......................................................................
+  ! les increments verticaux
+  ! .......................................................................
+
+  ! !!!!! allerte !!!!!c
+  ! !!!!! zlev n'est pas declare a nlev !!!!!c
+  ! !!!!! ---->
+  DO igrid = 1, ngrid
+    zlev(igrid, nlev) = zlay(igrid, nlay) + (zlay(igrid,nlay)-zlev(igrid,nlev &
+      -1))
+  END DO
+  ! !!!!! <----
+  ! !!!!! allerte !!!!!c
+
+  DO ilay = 1, nlay
+    DO igrid = 1, ngrid
+      unsdz(igrid, ilay) = 1.E+0/(zlev(igrid,ilay+1)-zlev(igrid,ilay))
+    END DO
+  END DO
+  DO igrid = 1, ngrid
+    unsdzdec(igrid, 1) = 1.E+0/(zlay(igrid,1)-zlev(igrid,1))
+  END DO
+  DO ilay = 2, nlay
+    DO igrid = 1, ngrid
+      unsdzdec(igrid, ilay) = 1.E+0/(zlay(igrid,ilay)-zlay(igrid,ilay-1))
+    END DO
+  END DO
+  DO igrid = 1, ngrid
+    unsdzdec(igrid, nlay+1) = 1.E+0/(zlev(igrid,nlay+1)-zlay(igrid,nlay))
+  END DO
+
+  ! .......................................................................
+  ! le cisaillement et le gradient de temperature
+  ! .......................................................................
+
+  DO igrid = 1, ngrid
+    m2(igrid, 1) = (unsdzdec(igrid,1)*u(igrid,1))**2 + &
+      (unsdzdec(igrid,1)*v(igrid,1))**2
+    m(igrid, 1) = sqrt(m2(igrid,1))
+    mpre(igrid, 1) = m(igrid, 1)
+  END DO
+
+  ! -----------------------------------------------------------------------
+  DO ilev = 2, nlev - 1
+    DO igrid = 1, ngrid
+      ! -----------------------------------------------------------------------
+
+      n2(igrid, ilev) = g*unsdzdec(igrid, ilev)*(teta(igrid,ilev)-teta(igrid, &
+        ilev-1))/(teta(igrid,ilev)+teta(igrid,ilev-1))*2.E+0
+      ! n2(igrid,ilev)=0.
+
+      ! --->
+      ! on ne sais traiter que les cas stratifies. et l'ajustement
+      ! convectif est cense faire en sorte que seul des configurations
+      ! stratifiees soient rencontrees en entree de cette routine.
+      ! mais, bon ... on sait jamais (meme on sait que n2 prends
+      ! quelques valeurs negatives ... parfois) alors :
+      ! <---
+
+      IF (n2(igrid,ilev)<0.E+0) THEN
+        n2(igrid, ilev) = 0.E+0
+      END IF
+
+      m2(igrid, ilev) = (unsdzdec(igrid,ilev)*(u(igrid,ilev)-u(igrid, &
+        ilev-1)))**2 + (unsdzdec(igrid,ilev)*(v(igrid,ilev)-v(igrid, &
+        ilev-1)))**2
+      m(igrid, ilev) = sqrt(m2(igrid,ilev))
+      mpre(igrid, ilev) = m(igrid, ilev)
+
+      ! -----------------------------------------------------------------------
+    END DO
+  END DO
+  ! -----------------------------------------------------------------------
+
+  DO igrid = 1, ngrid
+    m2(igrid, nlev) = m2(igrid, nlev-1)
+    m(igrid, nlev) = m(igrid, nlev-1)
+    mpre(igrid, nlev) = m(igrid, nlev)
+  END DO
+
+  ! .......................................................................
+  ! calcul des fonctions de stabilite
+  ! .......................................................................
+
+  IF (l_mix==4) THEN
+    DO igrid = 1, ngrid
+      sqz(igrid) = 1.E-10
+      sq(igrid) = 1.E-10
+    END DO
+    DO ilev = 2, nlev - 1
+      DO igrid = 1, ngrid
+        zq = sqrt(q2(igrid,ilev))
+        sqz(igrid) = sqz(igrid) + zq*zlev(igrid, ilev)*(zlay(igrid,ilev)-zlay &
+          (igrid,ilev-1))
+        sq(igrid) = sq(igrid) + zq*(zlay(igrid,ilev)-zlay(igrid,ilev-1))
+      END DO
+    END DO
+    DO igrid = 1, ngrid
+      long0(igrid) = 0.2*sqz(igrid)/sq(igrid)
+    END DO
+  ELSE IF (l_mix==3) THEN
+    long0(igrid) = long00
+  END IF
+
+  ! (abd 5 2)      print*,'LONG0=',long0
+
+  ! -----------------------------------------------------------------------
+  DO ilev = 2, nlev - 1
+    DO igrid = 1, ngrid
+      ! -----------------------------------------------------------------------
+
+      tmp1 = kappa*(zlev(igrid,ilev)-zlev(igrid,1))
+      IF (l_mix>=10) THEN
+        long(igrid, ilev) = l_mix
+      ELSE
+        long(igrid, ilev) = tmp1/(1.E+0+tmp1/long0(igrid))
+      END IF
+      long(igrid, ilev) = max(min(long(igrid,ilev),0.5*sqrt(q2(igrid,ilev))/ &
+        sqrt(max(n2(igrid,ilev),1.E-10))), 5.)
+
+      gn = -long(igrid, ilev)**2/q2(igrid, ilev)*n2(igrid, ilev)
+      gm = long(igrid, ilev)**2/q2(igrid, ilev)*m2(igrid, ilev)
+
+      gninf = .FALSE.
+      gnsup = .FALSE.
+      long(igrid, ilev) = long(igrid, ilev)
+      long(igrid, ilev) = long(igrid, ilev)
+
+      IF (gn<gnmin) THEN
+        gninf = .TRUE.
+        gn = gnmin
+      END IF
+
+      IF (gn>gnmax) THEN
+        gnsup = .TRUE.
+        gn = gnmax
+      END IF
+
+      sn(igrid, ilev) = cn1/(1.E+0+cn2*gn)
+      sm(igrid, ilev) = (cm1+cm2*gn)/((1.E+0+cm3*gn)*(1.E+0+cm4*gn))
+
+      IF ((gninf) .OR. (gnsup)) THEN
+        snq2(igrid, ilev) = 0.E+0
+        smq2(igrid, ilev) = 0.E+0
+      ELSE
+        snq2(igrid, ilev) = -gn*(-cn1*cn2/(1.E+0+cn2*gn)**2)
+        smq2(igrid, ilev) = -gn*(cm2*(1.E+0+cm3*gn)*(1.E+0+cm4*gn)-(cm3*( &
+          1.E+0+cm4*gn)+cm4*(1.E+0+cm3*gn))*(cm1+cm2*gn))/((1.E+0+cm3*gn)*( &
+          1.E+0+cm4*gn))**2
+      END IF
+
+      ! abd
+      ! if(ilev.le.57.and.ilev.ge.37) then
+      ! print*,'L=',ilev,'   GN=',gn,'  SM=',sm(igrid,ilev)
+      ! endif
+      ! --->
+      ! la decomposition de Taylor en q2 n'a de sens que
+      ! dans les cas stratifies ou sn et sm sont quasi
+      ! proportionnels a q2. ailleurs on laisse le meme
+      ! algorithme car l'ajustement convectif fait le travail.
+      ! mais c'est delirant quand sn et snq2 n'ont pas le meme
+      ! signe : dans ces cas, on ne fait pas la decomposition.
+      ! <---
+
+      IF (snq2(igrid,ilev)*sn(igrid,ilev)<=0.E+0) snq2(igrid, ilev) = 0.E+0
+      IF (smq2(igrid,ilev)*sm(igrid,ilev)<=0.E+0) smq2(igrid, ilev) = 0.E+0
+
+      ! Correction pour les couches stables.
+      ! Schema repris de JHoltzlag Boville, lui meme venant de...
+
+      IF (1==1) THEN
+        snstable = 1. - zlev(igrid, ilev)/(700.*max(ustar(igrid),0.0001))
+        snstable = 1. - zlev(igrid, ilev)/400.
+        snstable = max(snstable, 0.)
+        snstable = snstable*snstable
+
+        ! abde       print*,'SN ',ilev,sn(1,ilev),snstable
+        IF (sn(igrid,ilev)<snstable) THEN
+          sn(igrid, ilev) = snstable
+          snq2(igrid, ilev) = 0.
+        END IF
+
+        IF (sm(igrid,ilev)<snstable) THEN
+          sm(igrid, ilev) = snstable
+          smq2(igrid, ilev) = 0.
+        END IF
+
+      END IF
+
+      ! sn : coefficient de stabilite pour n
+      ! snq2 : premier terme du developement limite de sn en q2
+      ! -----------------------------------------------------------------------
+    END DO
+  END DO
+  ! -----------------------------------------------------------------------
+
+  ! .......................................................................
+  ! calcul de km et kn au debut du pas de temps
+  ! .......................................................................
+
+  DO igrid = 1, ngrid
+    kn(igrid, 1) = knmin
+    km(igrid, 1) = kmmin
+    kmpre(igrid, 1) = km(igrid, 1)
+  END DO
+
+  ! -----------------------------------------------------------------------
+  DO ilev = 2, nlev - 1
+    DO igrid = 1, ngrid
+      ! -----------------------------------------------------------------------
+
+      kn(igrid, ilev) = long(igrid, ilev)*q(igrid, ilev)*sn(igrid, ilev)
+      km(igrid, ilev) = long(igrid, ilev)*q(igrid, ilev)*sm(igrid, ilev)
+      kmpre(igrid, ilev) = km(igrid, ilev)
+
+      ! -----------------------------------------------------------------------
+    END DO
+  END DO
+  ! -----------------------------------------------------------------------
+
+  DO igrid = 1, ngrid
+    kn(igrid, nlev) = kn(igrid, nlev-1)
+    km(igrid, nlev) = km(igrid, nlev-1)
+    kmpre(igrid, nlev) = km(igrid, nlev)
+  END DO
+
+  ! .......................................................................
+  ! boucle sur les niveaux 2 a nlev-1
+  ! .......................................................................
+
+  ! ---->
+  DO ilev = 2, nlev - 1
+    ! ---->
+    DO igrid = 1, ngrid
+
+      ! .......................................................................
+
+      ! calcul des termes sources et puits de l'equation de q2
+      ! ------------------------------------------------------
+
+      knq3 = kn(igrid, ilev)*snq2(igrid, ilev)/sn(igrid, ilev)
+      kmq3 = km(igrid, ilev)*smq2(igrid, ilev)/sm(igrid, ilev)
+
+      termq = 0.E+0
+      termq3 = 0.E+0
+      termqm2 = 0.E+0
+      termq3m2 = 0.E+0
+
+      tmp1 = dt*2.E+0*km(igrid, ilev)*m2(igrid, ilev)
+      tmp2 = dt*2.E+0*kmq3*m2(igrid, ilev)
+      termqm2 = termqm2 + dt*2.E+0*km(igrid, ilev)*m2(igrid, ilev) - &
+        dt*2.E+0*kmq3*m2(igrid, ilev)
+      termq3m2 = termq3m2 + dt*2.E+0*kmq3*m2(igrid, ilev)
+
+      termq = termq - dt*2.E+0*kn(igrid, ilev)*n2(igrid, ilev) + &
+        dt*2.E+0*knq3*n2(igrid, ilev)
+      termq3 = termq3 - dt*2.E+0*knq3*n2(igrid, ilev)
+
+      termq3 = termq3 - dt*2.E+0*q(igrid, ilev)**3/(b1*long(igrid,ilev))
+
+      ! .......................................................................
+
+      ! resolution stationnaire couplee avec le gradient de vitesse local
+      ! -----------------------------------------------------------------
+
+      ! -----{on cherche le cisaillement qui annule l'equation de q^2
+      ! supposee en q3}
+
+      tmp1 = termq + termq3
+      tmp2 = termqm2 + termq3m2
+      m2cstat = m2(igrid, ilev) - (tmp1+tmp2)/(dt*2.E+0*km(igrid,ilev))
+      mcstat = sqrt(m2cstat)
+
+      ! abde      print*,'M2 L=',ilev,mpre(igrid,ilev),mcstat
+
+      ! -----{puis on ecrit la valeur de q qui annule l'equation de m
+      ! supposee en q3}
+
+      IF (ilev==2) THEN
+        kmcstat = 1.E+0/mcstat*(unsdz(igrid,ilev)*kmpre(igrid,ilev+1)*mpre( &
+          igrid,ilev+1)+unsdz(igrid,ilev-1)*cd(igrid)*(sqrt(u(igrid,3)**2+ &
+          v(igrid,3)**2)-mcstat/unsdzdec(igrid,ilev)-mpre(igrid, &
+          ilev+1)/unsdzdec(igrid,ilev+1))**2)/(unsdz(igrid,ilev)+unsdz(igrid, &
+          ilev-1))
+      ELSE
+        kmcstat = 1.E+0/mcstat*(unsdz(igrid,ilev)*kmpre(igrid,ilev+1)*mpre( &
+          igrid,ilev+1)+unsdz(igrid,ilev-1)*kmpre(igrid,ilev-1)*mpre(igrid, &
+          ilev-1))/(unsdz(igrid,ilev)+unsdz(igrid,ilev-1))
+      END IF
+      tmp2 = kmcstat/(sm(igrid,ilev)/q2(igrid,ilev))/long(igrid, ilev)
+      qcstat = tmp2**(1.E+0/3.E+0)
+      q2cstat = qcstat**2
+
+      ! .......................................................................
+
+      ! choix de la solution finale
+      ! ---------------------------
+
+      q(igrid, ilev) = qcstat
+      q2(igrid, ilev) = q2cstat
+      m(igrid, ilev) = mcstat
+      ! abd       if(ilev.le.57.and.ilev.ge.37) then
+      ! print*,'L=',ilev,'   M2=',m2(igrid,ilev),m2cstat,
+      ! s     'N2=',n2(igrid,ilev)
+      ! abd       endif
+      m2(igrid, ilev) = m2cstat
+
+      ! --->
+      ! pour des raisons simples q2 est minore
+      ! <---
+
+      IF (q2(igrid,ilev)<q2min) THEN
+        q2(igrid, ilev) = q2min
+        q(igrid, ilev) = sqrt(q2min)
+      END IF
+
+      ! .......................................................................
+
+      ! calcul final de kn et km
+      ! ------------------------
+
+      gn = -long(igrid, ilev)**2/q2(igrid, ilev)*n2(igrid, ilev)
+      IF (gn<gnmin) gn = gnmin
+      IF (gn>gnmax) gn = gnmax
+      sn(igrid, ilev) = cn1/(1.E+0+cn2*gn)
+      sm(igrid, ilev) = (cm1+cm2*gn)/((1.E+0+cm3*gn)*(1.E+0+cm4*gn))
+      kn(igrid, ilev) = long(igrid, ilev)*q(igrid, ilev)*sn(igrid, ilev)
+      km(igrid, ilev) = long(igrid, ilev)*q(igrid, ilev)*sm(igrid, ilev)
+      ! abd
+      ! if(ilev.le.57.and.ilev.ge.37) then
+      ! print*,'L=',ilev,'   GN=',gn,'  SM=',sm(igrid,ilev)
+      ! endif
+
+      ! .......................................................................
+
+    END DO
+
+  END DO
+
+  ! .......................................................................
+
+
+  DO igrid = 1, ngrid
+    kn(igrid, 1) = knmin
+    km(igrid, 1) = kmmin
+    ! kn(igrid,1)=cd(igrid)
+    ! km(igrid,1)=cd(igrid)
+    q2(igrid, nlev) = q2(igrid, nlev-1)
+    q(igrid, nlev) = q(igrid, nlev-1)
+    kn(igrid, nlev) = kn(igrid, nlev-1)
+    km(igrid, nlev) = km(igrid, nlev-1)
+  END DO
+
+  ! CALCUL DE LA DIFFUSION VERTICALE DE Q2
+  IF (1==1) THEN
+
+    DO ilev = 2, klev - 1
+      sss = sss + plev(1, ilev-1) - plev(1, ilev+1)
+      sssq = sssq + (plev(1,ilev-1)-plev(1,ilev+1))*q2(1, ilev)
+    END DO
+    ! print*,'Q2moy avant',sssq/sss
+    ! print*,'Q2q20 ',(q2(1,ilev),ilev=1,10)
+    ! print*,'Q2km0 ',(km(1,ilev),ilev=1,10)
+    ! ! C'est quoi ca qu'etait dans l'original???
+    ! do igrid=1,ngrid
+    ! q2(igrid,1)=10.
+    ! enddo
+    ! q2s=q2
+    ! do iii=1,10
+    ! call vdif_q2(dt,g,rconst,plev,temp,km,q2)
+    ! do ilev=1,klev+1
+    ! write(iii+49,*) q2(1,ilev),zlev(1,ilev)
+    ! enddo
+    ! enddo
+    ! stop
+    ! do ilev=1,klev
+    ! print*,zlev(1,ilev),q2s(1,ilev),q2(1,ilev)
+    ! enddo
+    ! q2s=q2-q2s
+    ! do ilev=1,klev
+    ! print*,q2s(1,ilev),zlev(1,ilev)
+    ! enddo
+    DO ilev = 2, klev - 1
+      sss = sss + plev(1, ilev-1) - plev(1, ilev+1)
+      sssq = sssq + (plev(1,ilev-1)-plev(1,ilev+1))*q2(1, ilev)
+    END DO
+    PRINT *, 'Q2moy apres', sssq/sss
+
+
+    DO ilev = 1, nlev
+      DO igrid = 1, ngrid
+        q2(igrid, ilev) = max(q2(igrid,ilev), q2min)
+        q(igrid, ilev) = sqrt(q2(igrid,ilev))
+
+        ! .......................................................................
+
+        ! calcul final de kn et km
+        ! ------------------------
+
+        gn = -long(igrid, ilev)**2/q2(igrid, ilev)*n2(igrid, ilev)
+        IF (gn<gnmin) gn = gnmin
+        IF (gn>gnmax) gn = gnmax
+        sn(igrid, ilev) = cn1/(1.E+0+cn2*gn)
+        sm(igrid, ilev) = (cm1+cm2*gn)/((1.E+0+cm3*gn)*(1.E+0+cm4*gn))
+        ! Correction pour les couches stables.
+        ! Schema repris de JHoltzlag Boville, lui meme venant de...
+
+        IF (1==1) THEN
+          snstable = 1. - zlev(igrid, ilev)/(700.*max(ustar(igrid),0.0001))
+          snstable = 1. - zlev(igrid, ilev)/400.
+          snstable = max(snstable, 0.)
+          snstable = snstable*snstable
+
+          ! abde      print*,'SN ',ilev,sn(1,ilev),snstable
+          IF (sn(igrid,ilev)<snstable) THEN
+            sn(igrid, ilev) = snstable
+            snq2(igrid, ilev) = 0.
+          END IF
+
+          IF (sm(igrid,ilev)<snstable) THEN
+            sm(igrid, ilev) = snstable
+            smq2(igrid, ilev) = 0.
+          END IF
+
+        END IF
+
+        ! sn : coefficient de stabilite pour n
+        kn(igrid, ilev) = long(igrid, ilev)*q(igrid, ilev)*sn(igrid, ilev)
+        km(igrid, ilev) = long(igrid, ilev)*q(igrid, ilev)
+
+      END DO
+    END DO
+    ! print*,'Q2km1 ',(km(1,ilev),ilev=1,10)
+
+  END IF
+
+  RETURN
+END SUBROUTINE vdif_kcay
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/vertical_layers_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/vertical_layers_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/vertical_layers_mod.F90	(revision 3330)
@@ -0,0 +1,50 @@
+! $Id: $
+
+MODULE vertical_layers_mod
+
+   REAL,SAVE             :: preff  ! reference surface pressure (Pa)
+   REAL,SAVE             :: scaleheight ! atmospheric reference scale height (km)
+   REAL,SAVE,ALLOCATABLE :: ap(:) ! hybrid (pressure contribution) coordinate 
+                                  ! at layer interfaces (Pa)
+   REAL,SAVE,ALLOCATABLE :: bp(:) ! hybrid (sigma contribution) coordinate 
+                                  ! at layer interfaces (Pa)
+   REAL,SAVE,ALLOCATABLE :: presnivs(:) ! reference pressure at mid-layer (Pa),
+                                        ! based on preff, ap and bp
+   REAL,SAVE,ALLOCATABLE :: pseudoalt(:) ! pseudo-altitude of model layers (km),
+                                         ! based on preff and scaleheight
+   
+!$OMP THREADPRIVATE(preff,scaleheight,ap,bp,presnivs,pseudoalt)
+   REAL, SAVE, ALLOCATABLE :: Ahyb(:), Bhyb(:)
+!$OMP THREADPRIVATE(Ahyb, Bhyb) 
+
+CONTAINS
+
+  SUBROUTINE init_vertical_layers(nlayer,preff_,scaleheight_,ap_,bp_,&
+                                 presnivs_, pseudoalt_)
+    IMPLICIT NONE
+    INTEGER,INTENT(IN) :: nlayer ! number of atmospheric layers
+    REAL,INTENT(IN)    :: preff_ ! reference surface pressure (Pa)
+    REAL,INTENT(IN)    :: scaleheight_ ! atmospheric scale height (km)
+    REAL,INTENT(IN)    :: ap_(nlayer+1) ! hybrid coordinate at interfaces
+    REAL,INTENT(IN)    :: bp_(nlayer+1) ! hybrid coordinate at interfaces
+    REAL,INTENT(IN)    :: presnivs_(nlayer) ! Appproximative pressure of atm. layers (Pa)
+    REAL,INTENT(IN)    :: pseudoalt_(nlayer) ! pseudo-altitude of atm. layers (km)
+  
+    ALLOCATE(ap(nlayer+1))
+    ALLOCATE(bp(nlayer+1))
+    ALLOCATE(presnivs(nlayer))
+    ALLOCATE(pseudoalt(nlayer))
+    ALLOCATE(Ahyb(nlayer)) 
+    ALLOCATE(Bhyb(nlayer)) 
+
+
+    preff = preff_
+    scaleheight=scaleheight_
+    ap(:) = ap_(:)
+    bp(:) = bp_(:)
+    presnivs(:) = presnivs_(:)
+    pseudoalt(:) = pseudoalt_(:)
+
+  END SUBROUTINE init_vertical_layers
+
+END MODULE vertical_layers_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/wake.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/wake.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/wake.F90	(revision 3330)
@@ -0,0 +1,1828 @@
+
+! $Id$
+
+SUBROUTINE wake(p, ph, pi, 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 ioipsl_getin_p_mod, ONLY : getin_p
+  USE dimphy
+  use mod_phys_lmdz_para
+  USE print_control_mod, ONLY: prt_level
+  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
+  ! wdens   : densite de poches
+  ! 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)
+  ! pi  : (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_ref: initial number of wakes per unit area (3D) or per
+  ! unit length (2D), at the beginning of each time step
+  ! 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 "YOMCST.h"
+  include "cvthermo.h"
+
+  ! Arguments en entree
+  ! --------------------
+
+  REAL, DIMENSION (klon, klev),     INTENT(IN)          :: p, pi
+  REAL, DIMENSION (klon, klev+1),   INTENT(IN)          :: ph, omgb
+  REAL,                             INTENT(IN)          :: dtime
+  REAL, DIMENSION (klon, klev),     INTENT(IN)          :: te0, qe0
+  REAL, DIMENSION (klon, klev),     INTENT(IN)          :: dtdwn, dqdwn
+  REAL, DIMENSION (klon, klev),     INTENT(IN)          :: wdtpbl, wdqpbl, udtpbl, udqpbl ! UNUSED
+  REAL, DIMENSION (klon, klev),     INTENT(IN)          :: amdwn, amup
+  REAL, DIMENSION (klon, klev),     INTENT(IN)          :: dta, dqa
+  REAL, DIMENSION (klon),           INTENT(IN)          :: sigd_con
+
+  !
+  ! Input/Output
+  REAL, DIMENSION (klon, klev),     INTENT(INOUT)       :: deltatw, deltaqw
+  REAL, DIMENSION (klon),           INTENT(INOUT)       :: sigmaw
+
+  ! Sorties
+  ! --------
+
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: dth
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: tu, qu
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: dtls, dqls
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: dtke, dqke
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: dtpbl, dqpbl
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: spread
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: d_deltatw2, d_deltaqw2
+  REAL, DIMENSION (klon, klev+1),   INTENT(OUT)         :: omgbdth, omg
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: dp_omgb, dp_deltomg
+  REAL, DIMENSION (klon, klev),     INTENT(OUT)         :: d_deltat_gw
+  REAL, DIMENSION (klon),           INTENT(OUT)         :: hw, wape, fip, gfl, cstar
+  REAL, DIMENSION (klon),           INTENT(OUT)         :: wdens
+  INTEGER, DIMENSION (klon),        INTENT(OUT)         :: ktopw
+
+  ! Variables internes
+  ! -------------------
+
+  ! Variables à fixer
+  REAL alon
+  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
+  REAL dtimesub
+  REAL sigmad, hwmin, wapecut
+  REAL :: sigmaw_max
+  REAL :: dens_rate
+  REAL wdens0
+  ! IM 080208
+  LOGICAL, DIMENSION (klon) :: gwake
+
+  ! Variables de sauvegarde
+  REAL, DIMENSION (klon, klev) :: deltatw0
+  REAL, DIMENSION (klon, klev) :: deltaqw0
+  REAL, DIMENSION (klon, klev) :: te, qe
+  REAL, DIMENSION (klon) :: sigmaw0, sigmaw1
+
+  ! Variables pour les GW
+  REAL, DIMENSION (klon) :: ll
+  REAL, DIMENSION (klon, klev) :: n2
+  REAL, DIMENSION (klon, klev) :: cgw
+  REAL, DIMENSION (klon, klev) :: tgw
+
+  ! Variables liées au calcul de hw
+  REAL, DIMENSION (klon) :: ptop_provis, ptop, ptop_new
+  REAL, DIMENSION (klon) :: sum_dth
+  REAL, DIMENSION (klon) :: dthmin
+  REAL, DIMENSION (klon) :: z, dz, hw0
+  INTEGER, DIMENSION (klon) :: ktop, kupper
+
+  ! Sub-timestep tendencies and related variables
+  REAL d_deltatw(klon, klev), d_deltaqw(klon, klev)
+  REAL d_te(klon, klev), d_qe(klon, klev)
+  REAL d_sigmaw(klon), alpha(klon)
+  REAL q0_min(klon), q1_min(klon)
+  LOGICAL wk_adv(klon), ok_qx_qw(klon)
+  REAL epsilon
+  DATA epsilon/1.E-15/
+
+  ! Autres variables internes
+  INTEGER isubstep, k, i
+
+  REAL, DIMENSION (klon) :: sum_thu, sum_tu, sum_qu, sum_thvu
+  REAL, DIMENSION (klon) :: sum_dq, sum_rho
+  REAL, DIMENSION (klon) :: sum_dtdwn, sum_dqdwn
+  REAL, DIMENSION (klon) :: av_thu, av_tu, av_qu, av_thvu
+  REAL, DIMENSION (klon) :: av_dth, av_dq, av_rho
+  REAL, DIMENSION (klon) :: av_dtdwn, av_dqdwn
+
+  REAL, DIMENSION (klon, klev) :: rho, rhow
+  REAL, DIMENSION (klon, klev+1) :: rhoh
+  REAL, DIMENSION (klon, klev) :: rhow_moyen
+  REAL, DIMENSION (klon, klev) :: zh
+  REAL, DIMENSION (klon, klev+1) :: zhh
+  REAL, DIMENSION (klon, klev) :: epaisseur1, epaisseur2
+
+  REAL, DIMENSION (klon, klev) :: the, thu
+
+  ! REAL, DIMENSION(klon,klev) :: d_deltatw, d_deltaqw
+
+  REAL, DIMENSION (klon, klev+1) :: omgbw
+  REAL, DIMENSION (klon) :: pupper
+  REAL, DIMENSION (klon) :: omgtop
+  REAL, DIMENSION (klon, klev) :: dp_omgbw
+  REAL, DIMENSION (klon) :: ztop, dztop
+  REAL, DIMENSION (klon, klev) :: alpha_up
+
+  REAL, DIMENSION (klon) :: rre1, rre2
+  REAL :: rrd1, rrd2
+  REAL, DIMENSION (klon, klev) :: th1, th2, q1, q2
+  REAL, DIMENSION (klon, klev) :: d_th1, d_th2, d_dth
+  REAL, DIMENSION (klon, klev) :: d_q1, d_q2, d_dq
+  REAL, DIMENSION (klon, klev) :: omgbdq
+
+  REAL, DIMENSION (klon) :: ff, gg
+  REAL, DIMENSION (klon) :: wape2, cstar2, heff
+
+  REAL, DIMENSION (klon, klev) :: crep
+
+  REAL, DIMENSION (klon, klev) :: ppi
+
+  ! cc nrlmd
+  REAL, DIMENSION (klon) :: death_rate, nat_rate
+  REAL, DIMENSION (klon, klev) :: entr
+  REAL, DIMENSION (klon, klev) :: detr
+
+  ! -------------------------------------------------------------------------
+  ! Initialisations
+  ! -------------------------------------------------------------------------
+
+  ! print*, 'wake initialisations'
+
+  ! Essais d'initialisation avec sigmaw = 0.02 et hw = 10.
+  ! -------------------------------------------------------------------------
+
+  DATA wapecut, sigmad, hwmin/5., .02, 10./
+  ! cc nrlmd
+  DATA sigmaw_max/0.4/
+  DATA dens_rate/0.1/
+  ! cc
+  ! 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
+  ! -------------------------------------------------------------------------
+
+  ! cc nrlmd      coefgw=10
+  ! coefgw=1
+  ! wdens0 = 1.0/(alon**2)
+  ! cc nrlmd      wdens = 1.0/(alon**2)
+  ! cc nrlmd      stark = 0.50
+  ! CRtest
+  ! cc nrlmd      alpk=0.1
+  ! alpk = 1.0
+  ! alpk = 0.5
+  ! alpk = 0.05
+
+ if (first) then
+  crep_upper = 0.9
+  crep_sol = 1.0
+
+  ! cc nrlmd Lecture du fichier wake_param.data
+  stark=0.33
+  CALL getin_p('stark',stark)
+  alpk=0.25
+  CALL getin_p('alpk',alpk)
+  wdens_ref=8.E-12
+  CALL getin_p('wdens_ref',wdens_ref)
+  coefgw=4.
+  CALL getin_p('coefgw',coefgw)
+
+  WRITE(*,*) 'stark=', stark
+  WRITE(*,*) 'alpk=', alpk
+  WRITE(*,*) 'wdens_ref=', wdens_ref
+  WRITE(*,*) 'coefgw=', coefgw 
+
+  first=.false.
+ endif
+
+  ! Initialisation de toutes des densites a wdens_ref.
+  ! Les densites peuvent evoluer si les poches debordent
+  ! (voir au tout debut de la boucle sur les substeps)
+  wdens = wdens_ref
+
+  ! print*,'stark',stark
+  ! print*,'alpk',alpk
+  ! print*,'wdens',wdens
+  ! print*,'coefgw',coefgw
+  ! cc
+  ! 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
+    DO i = 1, klon
+      ppi(i, k) = pi(i, k)
+      deltatw0(i, k) = deltatw(i, k)
+      deltaqw0(i, k) = deltaqw(i, k)
+      te(i, k) = te0(i, k)
+      qe(i, k) = qe0(i, k)
+      dtls(i, k) = 0.
+      dqls(i, k) = 0.
+      d_deltat_gw(i, k) = 0.
+      d_te(i, k) = 0.
+      d_qe(i, k) = 0.
+      d_deltatw(i, k) = 0.
+      d_deltaqw(i, k) = 0.
+      ! IM 060508 beg
+      d_deltatw2(i, k) = 0.
+      d_deltaqw2(i, k) = 0.
+      ! IM 060508 end
+    END DO
+  END DO
+  ! sigmaw1=sigmaw
+  ! IF (sigd_con.GT.sigmaw1) THEN
+  ! print*, 'sigmaw,sigd_con', sigmaw, sigd_con
+  ! ENDIF
+  DO i = 1, klon
+    ! c      sigmaw(i) = amax1(sigmaw(i),sigd_con(i))
+    sigmaw(i) = amax1(sigmaw(i), sigmad)
+    sigmaw(i) = amin1(sigmaw(i), 0.99)
+    sigmaw0(i) = sigmaw(i)
+    wape(i) = 0.
+    wape2(i) = 0.
+    d_sigmaw(i) = 0.
+    ktopw(i) = 0
+  END DO
+
+
+  ! 2. - Prognostic part
+  ! --------------------
+
+
+  ! 2.1 - Undisturbed area and Wake integrals
+  ! ---------------------------------------------------------
+
+  DO i = 1, klon
+    z(i) = 0.
+    ktop(i) = 0
+    kupper(i) = 0
+    sum_thu(i) = 0.
+    sum_tu(i) = 0.
+    sum_qu(i) = 0.
+    sum_thvu(i) = 0.
+    sum_dth(i) = 0.
+    sum_dq(i) = 0.
+    sum_rho(i) = 0.
+    sum_dtdwn(i) = 0.
+    sum_dqdwn(i) = 0.
+
+    av_thu(i) = 0.
+    av_tu(i) = 0.
+    av_qu(i) = 0.
+    av_thvu(i) = 0.
+    av_dth(i) = 0.
+    av_dq(i) = 0.
+    av_rho(i) = 0.
+    av_dtdwn(i) = 0.
+    av_dqdwn(i) = 0.
+  END DO
+
+  ! Distance between wakes
+  DO i = 1, klon
+    ll(i) = (1-sqrt(sigmaw(i)))/sqrt(wdens(i))
+  END DO
+  ! Potential temperatures and humidity
+  ! ----------------------------------------------------------
+  DO k = 1, klev
+    DO i = 1, klon
+      ! write(*,*)'wake 1',i,k,rd,te(i,k)
+      rho(i, k) = p(i, k)/(rd*te(i,k))
+      ! write(*,*)'wake 2',rho(i,k)
+      IF (k==1) THEN
+        ! write(*,*)'wake 3',i,k,rd,te(i,k)
+        rhoh(i, k) = ph(i, k)/(rd*te(i,k))
+        ! write(*,*)'wake 4',i,k,rd,te(i,k)
+        zhh(i, k) = 0
+      ELSE
+        ! write(*,*)'wake 5',rd,(te(i,k)+te(i,k-1))
+        rhoh(i, k) = ph(i, k)*2./(rd*(te(i,k)+te(i,k-1)))
+        ! write(*,*)'wake 6',(-rhoh(i,k)*RG)+zhh(i,k-1)
+        zhh(i, k) = (ph(i,k)-ph(i,k-1))/(-rhoh(i,k)*rg) + zhh(i, k-1)
+      END IF
+      ! write(*,*)'wake 7',ppi(i,k)
+      the(i, k) = te(i, k)/ppi(i, k)
+      thu(i, k) = (te(i,k)-deltatw(i,k)*sigmaw(i))/ppi(i, k)
+      tu(i, k) = te(i, k) - deltatw(i, k)*sigmaw(i)
+      qu(i, k) = qe(i, k) - deltaqw(i, k)*sigmaw(i)
+      ! write(*,*)'wake 8',(rd*(te(i,k)+deltatw(i,k)))
+      rhow(i, k) = p(i, k)/(rd*(te(i,k)+deltatw(i,k)))
+      dth(i, k) = deltatw(i, k)/ppi(i, k)
+    END DO
+  END DO
+
+  DO k = 1, klev - 1
+    DO i = 1, klon
+      IF (k==1) THEN
+        n2(i, k) = 0
+      ELSE
+        n2(i, k) = amax1(0., -rg**2/the(i,k)*rho(i,k)*(the(i,k+1)-the(i, &
+          k-1))/(p(i,k+1)-p(i,k-1)))
+      END IF
+      zh(i, k) = (zhh(i,k)+zhh(i,k+1))/2
+
+      cgw(i, k) = sqrt(n2(i,k))*zh(i, k)
+      tgw(i, k) = coefgw*cgw(i, k)/ll(i)
+    END DO
+  END DO
+
+  DO i = 1, klon
+    n2(i, klev) = 0
+    zh(i, klev) = 0
+    cgw(i, klev) = 0
+    tgw(i, klev) = 0
+  END DO
+
+  ! Calcul de la masse volumique moyenne de la colonne   (bdlmd)
+  ! -----------------------------------------------------------------
+
+  DO k = 1, klev
+    DO i = 1, klon
+      epaisseur1(i, k) = 0.
+      epaisseur2(i, k) = 0.
+    END DO
+  END DO
+
+  DO i = 1, klon
+    epaisseur1(i, 1) = -(ph(i,2)-ph(i,1))/(rho(i,1)*rg) + 1.
+    epaisseur2(i, 1) = -(ph(i,2)-ph(i,1))/(rho(i,1)*rg) + 1.
+    rhow_moyen(i, 1) = rhow(i, 1)
+  END DO
+
+  DO k = 2, klev
+    DO i = 1, klon
+      epaisseur1(i, k) = -(ph(i,k+1)-ph(i,k))/(rho(i,k)*rg) + 1.
+      epaisseur2(i, k) = epaisseur2(i, k-1) + epaisseur1(i, k)
+      rhow_moyen(i, k) = (rhow_moyen(i,k-1)*epaisseur2(i,k-1)+rhow(i,k)* &
+        epaisseur1(i,k))/epaisseur2(i, k)
+    END DO
+  END DO
+
+
+  ! Choose an integration bound well above wake top
+  ! -----------------------------------------------------------------
+
+  ! Pupper = 50000.  ! melting level
+  ! Pupper = 60000.
+  ! Pupper = 80000.  ! essais pour case_e
+  DO i = 1, klon
+    pupper(i) = 0.6*ph(i, 1)
+    pupper(i) = max(pupper(i), 45000.)
+    ! cc        Pupper(i) = 60000.
+  END DO
+
+
+  ! Determine Wake top pressure (Ptop) from buoyancy integral
+  ! --------------------------------------------------------
+
+  ! -1/ Pressure of the level where dth becomes less than delta_t_min.
+
+  DO i = 1, klon
+    ptop_provis(i) = ph(i, 1)
+  END DO
+  DO k = 2, klev
+    DO i = 1, klon
+
+      ! IM v3JYG; ptop_provis(i).LT. ph(i,1)
+
+      IF (dth(i,k)>-delta_t_min .AND. dth(i,k-1)<-delta_t_min .AND. &
+          ptop_provis(i)==ph(i,1)) THEN
+        ptop_provis(i) = ((dth(i,k)+delta_t_min)*p(i,k-1)-(dth(i, &
+          k-1)+delta_t_min)*p(i,k))/(dth(i,k)-dth(i,k-1))
+      END IF
+    END DO
+  END DO
+
+  ! -2/ dth integral
+
+  DO i = 1, klon
+    sum_dth(i) = 0.
+    dthmin(i) = -delta_t_min
+    z(i) = 0.
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      dz(i) = -(amax1(ph(i,k+1),ptop_provis(i))-ph(i,k))/(rho(i,k)*rg)
+      IF (dz(i)>0) THEN
+        z(i) = z(i) + dz(i)
+        sum_dth(i) = sum_dth(i) + dth(i, k)*dz(i)
+        dthmin(i) = amin1(dthmin(i), dth(i,k))
+      END IF
+    END DO
+  END DO
+
+  ! -3/ height of triangle with area= sum_dth and base = dthmin
+
+  DO i = 1, klon
+    hw0(i) = 2.*sum_dth(i)/amin1(dthmin(i), -0.5)
+    hw0(i) = amax1(hwmin, hw0(i))
+  END DO
+
+  ! -4/ now, get Ptop
+
+  DO i = 1, klon
+    z(i) = 0.
+    ptop(i) = ph(i, 1)
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      dz(i) = amin1(-(ph(i,k+1)-ph(i,k))/(rho(i,k)*rg), hw0(i)-z(i))
+      IF (dz(i)>0) THEN
+        z(i) = z(i) + dz(i)
+        ptop(i) = ph(i, k) - rho(i, k)*rg*dz(i)
+      END IF
+    END DO
+  END DO
+
+
+  ! -5/ Determination de ktop et kupper
+
+  DO k = klev, 1, -1
+    DO i = 1, klon
+      IF (ph(i,k+1)<ptop(i)) ktop(i) = k
+      IF (ph(i,k+1)<pupper(i)) kupper(i) = k
+    END DO
+  END DO
+
+  ! On evite kupper = 1 et kupper = klev
+  DO i = 1, klon
+    kupper(i) = max(kupper(i), 2)
+    kupper(i) = min(kupper(i), klev-1)
+  END DO
+
+
+  ! -6/ Correct ktop and ptop
+
+  DO i = 1, klon
+    ptop_new(i) = ptop(i)
+  END DO
+  DO k = klev, 2, -1
+    DO i = 1, klon
+      IF (k<=ktop(i) .AND. ptop_new(i)==ptop(i) .AND. &
+          dth(i,k)>-delta_t_min .AND. dth(i,k-1)<-delta_t_min) THEN
+        ptop_new(i) = ((dth(i,k)+delta_t_min)*p(i,k-1)-(dth(i, &
+          k-1)+delta_t_min)*p(i,k))/(dth(i,k)-dth(i,k-1))
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    ptop(i) = ptop_new(i)
+  END DO
+
+  DO k = klev, 1, -1
+    DO i = 1, klon
+      IF (ph(i,k+1)<ptop(i)) ktop(i) = k
+    END DO
+  END DO
+
+  ! -5/ Set deltatw & deltaqw to 0 above kupper
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (k>=kupper(i)) THEN
+        deltatw(i, k) = 0.
+        deltaqw(i, k) = 0.
+      END IF
+    END DO
+  END DO
+
+
+  ! Vertical gradient of LS omega
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (k<=kupper(i)) THEN
+        dp_omgb(i, k) = (omgb(i,k+1)-omgb(i,k))/(ph(i,k+1)-ph(i,k))
+      END IF
+    END DO
+  END DO
+
+  ! Integrals (and wake top level number)
+  ! --------------------------------------
+
+  ! Initialize sum_thvu to 1st level virt. pot. temp.
+
+  DO i = 1, klon
+    z(i) = 1.
+    dz(i) = 1.
+    sum_thvu(i) = thu(i, 1)*(1.+epsim1*qu(i,1))*dz(i)
+    sum_dth(i) = 0.
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      dz(i) = -(amax1(ph(i,k+1),ptop(i))-ph(i,k))/(rho(i,k)*rg)
+      IF (dz(i)>0) THEN
+        z(i) = z(i) + dz(i)
+        sum_thu(i) = sum_thu(i) + thu(i, k)*dz(i)
+        sum_tu(i) = sum_tu(i) + tu(i, k)*dz(i)
+        sum_qu(i) = sum_qu(i) + qu(i, k)*dz(i)
+        sum_thvu(i) = sum_thvu(i) + thu(i, k)*(1.+epsim1*qu(i,k))*dz(i)
+        sum_dth(i) = sum_dth(i) + dth(i, k)*dz(i)
+        sum_dq(i) = sum_dq(i) + deltaqw(i, k)*dz(i)
+        sum_rho(i) = sum_rho(i) + rhow(i, k)*dz(i)
+        sum_dtdwn(i) = sum_dtdwn(i) + dtdwn(i, k)*dz(i)
+        sum_dqdwn(i) = sum_dqdwn(i) + dqdwn(i, k)*dz(i)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    hw0(i) = z(i)
+  END DO
+
+
+  ! 2.1 - WAPE and mean forcing computation
+  ! ---------------------------------------
+
+  ! ---------------------------------------
+
+  ! Means
+
+  DO i = 1, klon
+    av_thu(i) = sum_thu(i)/hw0(i)
+    av_tu(i) = sum_tu(i)/hw0(i)
+    av_qu(i) = sum_qu(i)/hw0(i)
+    av_thvu(i) = sum_thvu(i)/hw0(i)
+    ! av_thve = sum_thve/hw0
+    av_dth(i) = sum_dth(i)/hw0(i)
+    av_dq(i) = sum_dq(i)/hw0(i)
+    av_rho(i) = sum_rho(i)/hw0(i)
+    av_dtdwn(i) = sum_dtdwn(i)/hw0(i)
+    av_dqdwn(i) = sum_dqdwn(i)/hw0(i)
+
+    wape(i) = -rg*hw0(i)*(av_dth(i)+epsim1*(av_thu(i)*av_dq(i)+av_dth(i)*av_qu(i &
+      )+av_dth(i)*av_dq(i)))/av_thvu(i)
+  END DO
+
+  ! 2.2 Prognostic variable update
+  ! ------------------------------
+
+  ! Filter out bad wakes
+
+  DO k = 1, klev
+    DO i = 1, klon
+      IF (wape(i)<0.) THEN
+        deltatw(i, k) = 0.
+        deltaqw(i, k) = 0.
+        dth(i, k) = 0.
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    IF (wape(i)<0.) THEN
+      wape(i) = 0.
+      cstar(i) = 0.
+      hw(i) = hwmin
+      sigmaw(i) = amax1(sigmad, sigd_con(i))
+      fip(i) = 0.
+      gwake(i) = .FALSE.
+    ELSE
+      cstar(i) = stark*sqrt(2.*wape(i))
+      gwake(i) = .TRUE.
+    END IF
+  END DO
+
+
+  ! Check qx and qw positivity
+  ! --------------------------
+  DO i = 1, klon
+    q0_min(i) = min((qe(i,1)-sigmaw(i)*deltaqw(i,1)), (qe(i, &
+      1)+(1.-sigmaw(i))*deltaqw(i,1)))
+  END DO
+  DO k = 2, klev
+    DO i = 1, klon
+      q1_min(i) = min((qe(i,k)-sigmaw(i)*deltaqw(i,k)), (qe(i, &
+        k)+(1.-sigmaw(i))*deltaqw(i,k)))
+      IF (q1_min(i)<=q0_min(i)) THEN
+        q0_min(i) = q1_min(i)
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    ok_qx_qw(i) = q0_min(i) >= 0.
+    alpha(i) = 1.
+  END DO
+
+  ! C -----------------------------------------------------------------
+  ! Sub-time-stepping
+  ! -----------------
+
+  nsub = 10
+  dtimesub = dtime/nsub
+
+  ! ------------------------------------------------------------
+  DO isubstep = 1, nsub
+    ! ------------------------------------------------------------
+
+    ! wk_adv is the logical flag enabling wake evolution in the time advance
+    ! loop
+    DO i = 1, klon
+      wk_adv(i) = ok_qx_qw(i) .AND. alpha(i) >= 1.
+    END DO
+
+    ! cc nrlmd   Ajout d'un recalcul de wdens dans le cas d'un entrainement
+    ! négatif de ktop à kupper --------
+    ! cc           On calcule pour cela une densité wdens0 pour laquelle on
+    ! aurait un entrainement nul ---
+    DO i = 1, klon
+      ! c       print *,' isubstep,wk_adv(i),cstar(i),wape(i) ',
+      ! c     $           isubstep,wk_adv(i),cstar(i),wape(i)
+      IF (wk_adv(i) .AND. cstar(i)>0.01) THEN
+        omg(i, kupper(i)+1) = -rg*amdwn(i, kupper(i)+1)/sigmaw(i) + &
+          rg*amup(i, kupper(i)+1)/(1.-sigmaw(i))
+        wdens0 = (sigmaw(i)/(4.*3.14))*((1.-sigmaw(i))*omg(i,kupper(i)+1)/(( &
+          ph(i,1)-pupper(i))*cstar(i)))**(2)
+        IF (wdens(i)<=wdens0*1.1) THEN
+          wdens(i) = wdens0
+        END IF
+        ! c	   print*,'omg(i,kupper(i)+1),wdens0,wdens(i),cstar(i)
+        ! c     $     ,ph(i,1)-pupper(i)',
+        ! c     $             omg(i,kupper(i)+1),wdens0,wdens(i),cstar(i)
+        ! c     $     ,ph(i,1)-pupper(i)
+      END IF
+    END DO
+
+    ! cc nrlmd
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        gfl(i) = 2.*sqrt(3.14*wdens(i)*sigmaw(i))
+        sigmaw(i) = amin1(sigmaw(i), sigmaw_max)
+      END IF
+    END DO
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        ! cc nrlmd          Introduction du taux de mortalité des poches et
+        ! test sur sigmaw_max=0.4
+        ! cc         d_sigmaw(i) = gfl(i)*Cstar(i)*dtimesub
+        IF (sigmaw(i)>=sigmaw_max) THEN
+          death_rate(i) = gfl(i)*cstar(i)/sigmaw(i)
+        ELSE
+          death_rate(i) = 0.
+        END IF
+        d_sigmaw(i) = gfl(i)*cstar(i)*dtimesub - death_rate(i)*sigmaw(i)* &
+          dtimesub
+        ! $              - nat_rate(i)*sigmaw(i)*dtimesub
+        ! c        print*, 'd_sigmaw(i),sigmaw(i),gfl(i),Cstar(i),wape(i),
+        ! c     $  death_rate(i),ktop(i),kupper(i)',
+        ! c     $	         d_sigmaw(i),sigmaw(i),gfl(i),Cstar(i),wape(i),
+        ! c     $  death_rate(i),ktop(i),kupper(i)
+
+        ! sigmaw(i) =sigmaw(i) + gfl(i)*Cstar(i)*dtimesub
+        ! sigmaw(i) =min(sigmaw(i),0.99)     !!!!!!!!
+        ! wdens = wdens0/(10.*sigmaw)
+        ! sigmaw =max(sigmaw,sigd_con)
+        ! sigmaw =max(sigmaw,sigmad)
+      END IF
+    END DO
+
+
+    ! calcul de la difference de vitesse verticale poche - zone non perturbee
+    ! IM 060208 differences par rapport au code initial; init. a 0 dp_deltomg
+    ! IM 060208 et omg sur les niveaux de 1 a klev+1, alors que avant l'on
+    ! definit
+    ! IM 060208 au niveau k=1..?
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN !!! nrlmd
+          dp_deltomg(i, k) = 0.
+        END IF
+      END DO
+    END DO
+    DO k = 1, klev + 1
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN !!! nrlmd
+          omg(i, k) = 0.
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        z(i) = 0.
+        omg(i, 1) = 0.
+        dp_deltomg(i, 1) = -(gfl(i)*cstar(i))/(sigmaw(i)*(1-sigmaw(i)))
+      END IF
+    END DO
+
+    DO k = 2, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=ktop(i)) THEN
+          dz(i) = -(ph(i,k)-ph(i,k-1))/(rho(i,k-1)*rg)
+          z(i) = z(i) + dz(i)
+          dp_deltomg(i, k) = dp_deltomg(i, 1)
+          omg(i, k) = dp_deltomg(i, 1)*z(i)
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        dztop(i) = -(ptop(i)-ph(i,ktop(i)))/(rho(i,ktop(i))*rg)
+        ztop(i) = z(i) + dztop(i)
+        omgtop(i) = dp_deltomg(i, 1)*ztop(i)
+      END IF
+    END DO
+
+    ! -----------------
+    ! From m/s to Pa/s
+    ! -----------------
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        omgtop(i) = -rho(i, ktop(i))*rg*omgtop(i)
+        dp_deltomg(i, 1) = omgtop(i)/(ptop(i)-ph(i,1))
+      END IF
+    END DO
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=ktop(i)) THEN
+          omg(i, k) = -rho(i, k)*rg*omg(i, k)
+          dp_deltomg(i, k) = dp_deltomg(i, 1)
+        END IF
+      END DO
+    END DO
+
+    ! raccordement lineaire de omg de ptop a pupper
+
+    DO i = 1, klon
+      IF (wk_adv(i) .AND. kupper(i)>ktop(i)) THEN
+        omg(i, kupper(i)+1) = -rg*amdwn(i, kupper(i)+1)/sigmaw(i) + &
+          rg*amup(i, kupper(i)+1)/(1.-sigmaw(i))
+        dp_deltomg(i, kupper(i)) = (omgtop(i)-omg(i,kupper(i)+1))/ &
+          (ptop(i)-pupper(i))
+      END IF
+    END DO
+
+    ! c      DO i=1,klon
+    ! c        print*,'Pente entre 0 et kupper (référence)'
+    ! c     $   	,omg(i,kupper(i)+1)/(pupper(i)-ph(i,1))
+    ! c        print*,'Pente entre ktop et kupper'
+    ! c     $  	,(omg(i,kupper(i)+1)-omgtop(i))/(pupper(i)-ptop(i))
+    ! c      ENDDO
+    ! c
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k>ktop(i) .AND. k<=kupper(i)) THEN
+          dp_deltomg(i, k) = dp_deltomg(i, kupper(i))
+          omg(i, k) = omgtop(i) + (ph(i,k)-ptop(i))*dp_deltomg(i, kupper(i))
+        END IF
+      END DO
+    END DO
+    ! cc nrlmd
+    ! c      DO i=1,klon
+    ! c      print*,'deltaw_ktop,deltaw_conv',omgtop(i),omg(i,kupper(i)+1)
+    ! c      END DO
+    ! cc
+
+
+    ! --    Compute wake average vertical velocity omgbw
+
+
+    DO k = 1, klev + 1
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN
+          omgbw(i, k) = omgb(i, k) + (1.-sigmaw(i))*omg(i, k)
+        END IF
+      END DO
+    END DO
+    ! --    and its vertical gradient dp_omgbw
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN
+          dp_omgbw(i, k) = (omgbw(i,k+1)-omgbw(i,k))/(ph(i,k+1)-ph(i,k))
+        END IF
+      END DO
+    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
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN
+          alpha_up(i, k) = 0.
+          IF (omgb(i,k)>0.) alpha_up(i, k) = 1.
+        END IF
+      END DO
+    END DO
+
+    ! Matrix expressing [The,deltatw] from  [Th1,Th2]
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        rre1(i) = 1. - sigmaw(i)
+        rre2(i) = sigmaw(i)
+      END IF
+    END DO
+    rrd1 = -1.
+    rrd2 = 1.
+
+    ! --    Get [Th1,Th2], dth and [q1,q2]
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)+1) THEN
+          dth(i, k) = deltatw(i, k)/ppi(i, k)
+          th1(i, k) = the(i, k) - sigmaw(i)*dth(i, k) ! undisturbed area
+          th2(i, k) = the(i, k) + (1.-sigmaw(i))*dth(i, k) ! wake
+          q1(i, k) = qe(i, k) - sigmaw(i)*deltaqw(i, k) ! undisturbed area
+          q2(i, k) = qe(i, k) + (1.-sigmaw(i))*deltaqw(i, k) ! wake
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        d_th1(i, 1) = 0.
+        d_th2(i, 1) = 0.
+        d_dth(i, 1) = 0.
+        d_q1(i, 1) = 0.
+        d_q2(i, 1) = 0.
+        d_dq(i, 1) = 0.
+      END IF
+    END DO
+
+    DO k = 2, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)+1) THEN
+          d_th1(i, k) = th1(i, k-1) - th1(i, k)
+          d_th2(i, k) = th2(i, k-1) - th2(i, k)
+          d_dth(i, k) = dth(i, k-1) - dth(i, k)
+          d_q1(i, k) = q1(i, k-1) - q1(i, k)
+          d_q2(i, k) = q2(i, k-1) - q2(i, k)
+          d_dq(i, k) = deltaqw(i, k-1) - deltaqw(i, k)
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        omgbdth(i, 1) = 0.
+        omgbdq(i, 1) = 0.
+      END IF
+    END DO
+
+    DO k = 2, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)+1) THEN !   loop on interfaces
+          omgbdth(i, k) = omgb(i, k)*(dth(i,k-1)-dth(i,k))
+          omgbdq(i, k) = omgb(i, k)*(deltaqw(i,k-1)-deltaqw(i,k))
+        END IF
+      END DO
+    END DO
+
+    ! -----------------------------------------------------------------
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)-1) THEN
+          ! -----------------------------------------------------------------
+
+          ! Compute redistribution (advective) term
+
+          d_deltatw(i, k) = dtimesub/(ph(i,k)-ph(i,k+1))* &
+            (rrd1*omg(i,k)*sigmaw(i)*d_th1(i,k)-rrd2*omg(i,k+1)*(1.-sigmaw( &
+            i))*d_th2(i,k+1)-(1.-alpha_up(i,k))*omgbdth(i,k)-alpha_up(i,k+1)* &
+            omgbdth(i,k+1))*ppi(i, k)
+          ! print*,'d_deltatw=',d_deltatw(i,k)
+
+          d_deltaqw(i, k) = dtimesub/(ph(i,k)-ph(i,k+1))* &
+            (rrd1*omg(i,k)*sigmaw(i)*d_q1(i,k)-rrd2*omg(i,k+1)*(1.-sigmaw( &
+            i))*d_q2(i,k+1)-(1.-alpha_up(i,k))*omgbdq(i,k)-alpha_up(i,k+1)* &
+            omgbdq(i,k+1))
+          ! print*,'d_deltaqw=',d_deltaqw(i,k)
+
+          ! and increment large scale tendencies
+
+
+
+
+          ! C
+          ! -----------------------------------------------------------------
+          d_te(i, k) = dtimesub*((rre1(i)*omg(i,k)*sigmaw(i)*d_th1(i, &
+            k)-rre2(i)*omg(i,k+1)*(1.-sigmaw(i))*d_th2(i,k+1))/(ph(i,k)-ph(i, &
+            k+1)) &                ! cc nrlmd     $
+                                   ! -sigmaw(i)*(1.-sigmaw(i))*dth(i,k)*dp_deltomg(i,k)
+            -sigmaw(i)*(1.-sigmaw(i))*dth(i,k)*(omg(i,k)-omg(i,k+1))/(ph(i, &
+            k)-ph(i,k+1)) &        ! cc
+            )*ppi(i, k)
+
+          d_qe(i, k) = dtimesub*((rre1(i)*omg(i,k)*sigmaw(i)*d_q1(i, &
+            k)-rre2(i)*omg(i,k+1)*(1.-sigmaw(i))*d_q2(i,k+1))/(ph(i,k)-ph(i, &
+            k+1)) &                ! cc nrlmd     $
+                                   ! -sigmaw(i)*(1.-sigmaw(i))*deltaqw(i,k)*dp_deltomg(i,k)
+            -sigmaw(i)*(1.-sigmaw(i))*deltaqw(i,k)*(omg(i,k)-omg(i, &
+            k+1))/(ph(i,k)-ph(i,k+1)) & ! cc
+            )
+          ! cc nrlmd
+        ELSE IF (wk_adv(i) .AND. k==kupper(i)) THEN
+          d_te(i, k) = dtimesub*((rre1(i)*omg(i,k)*sigmaw(i)*d_th1(i, &
+            k)/(ph(i,k)-ph(i,k+1))))*ppi(i, k)
+
+          d_qe(i, k) = dtimesub*((rre1(i)*omg(i,k)*sigmaw(i)*d_q1(i, &
+            k)/(ph(i,k)-ph(i,k+1))))
+
+        END IF
+        ! cc
+      END DO
+    END DO
+    ! ------------------------------------------------------------------
+
+    ! Increment state variables
+
+    DO k = 1, klev
+      DO i = 1, klon
+        ! cc nrlmd       IF( wk_adv(i) .AND. k .LE. kupper(i)-1) THEN
+        IF (wk_adv(i) .AND. k<=kupper(i)) THEN
+          ! cc
+
+
+
+          ! Coefficient de répartition
+
+          crep(i, k) = crep_sol*(ph(i,kupper(i))-ph(i,k))/ &
+            (ph(i,kupper(i))-ph(i,1))
+          crep(i, k) = crep(i, k) + crep_upper*(ph(i,1)-ph(i,k))/(p(i,1)-ph(i &
+            ,kupper(i)))
+
+
+          ! 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(i, k) = (dtdwn(i,k)/sigmaw(i)-dta(i,k)/(1.-sigmaw(i)))
+          dqke(i, k) = (dqdwn(i,k)/sigmaw(i)-dqa(i,k)/(1.-sigmaw(i)))
+          ! print*,'dtKE= ',dtKE(i,k),' dqKE= ',dqKE(i,k)
+
+!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é
+          ! cc               Définitions de entr, detr
+          detr(i, k) = 0.
+
+          entr(i, k) = detr(i, k) + gfl(i)*cstar(i) + &
+            sigmaw(i)*(1.-sigmaw(i))*dp_deltomg(i, k)
+
+          spread(i, k) = (entr(i,k)-detr(i,k))/sigmaw(i)
+          ! cc        spread(i,k) =
+          ! (1.-sigmaw(i))*dp_deltomg(i,k)+gfl(i)*Cstar(i)/
+          ! cc     $  sigmaw(i)
+
+
+          ! ajout d'un effet onde de gravité -Tgw(k)*deltatw(k) 03/02/06 YU
+          ! Jingmei
+
+          ! write(lunout,*)'wake.F ',i,k, dtimesub,d_deltat_gw(i,k),
+          ! &  Tgw(i,k),deltatw(i,k)
+          d_deltat_gw(i, k) = d_deltat_gw(i, k) - tgw(i, k)*deltatw(i, k)* &
+            dtimesub
+          ! write(lunout,*)'wake.F ',i,k, dtimesub,d_deltatw(i,k)
+          ff(i) = d_deltatw(i, 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(i,k)<1.E-10) THEN
+            d_deltatw(i, k) = dtimesub*(ff(i)+dtke(i,k)+dtpbl(i,k) & ! cc
+                                                                     ! $
+                                                                     ! -spread(i,k)*deltatw(i,k)
+              -entr(i,k)*deltatw(i,k)/sigmaw(i)-(death_rate(i)*sigmaw( &
+              i)+detr(i,k))*deltatw(i,k)/(1.-sigmaw(i)) & ! cc
+              -tgw(i,k)*deltatw(i,k))
+          ELSE
+            d_deltatw(i, k) = 1/tgw(i, k)*(1-exp(-dtimesub*tgw(i, &
+              k)))*(ff(i)+dtke(i,k)+dtpbl(i,k) & ! cc     $
+                                                 ! -spread(i,k)*deltatw(i,k)
+              -entr(i,k)*deltatw(i,k)/sigmaw(i)-(death_rate(i)*sigmaw( &
+              i)+detr(i,k))*deltatw(i,k)/(1.-sigmaw(i)) & ! cc
+              -tgw(i,k)*deltatw(i,k))
+          END IF
+
+          dth(i, k) = deltatw(i, k)/ppi(i, k)
+
+          gg(i) = d_deltaqw(i, k)/dtimesub
+
+          d_deltaqw(i, k) = dtimesub*(gg(i)+dqke(i,k)+dqpbl(i,k) & ! cc     $
+                                                                   ! -spread(i,k)*deltaqw(i,k))
+            -entr(i,k)*deltaqw(i,k)/sigmaw(i)-(death_rate(i)*sigmaw(i)+detr( &
+            i,k))*deltaqw(i,k)/(1.-sigmaw(i)))
+          ! cc
+
+          ! cc nrlmd
+          ! cc       d_deltatw2(i,k)=d_deltatw2(i,k)+d_deltatw(i,k)
+          ! cc       d_deltaqw2(i,k)=d_deltaqw2(i,k)+d_deltaqw(i,k)
+          ! cc
+        END IF
+      END DO
+    END DO
+
+
+    ! Scale tendencies so that water vapour remains positive in w and x.
+
+    CALL wake_vec_modulation(klon, klev, wk_adv, epsilon, qe, d_qe, deltaqw, &
+      d_deltaqw, sigmaw, d_sigmaw, alpha)
+
+    ! cc nrlmd
+    ! c      print*,'alpha'
+    ! c      do i=1,klon
+    ! c         print*,alpha(i)
+    ! c      end do
+    ! cc
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)) THEN
+          d_te(i, k) = alpha(i)*d_te(i, k)
+          d_qe(i, k) = alpha(i)*d_qe(i, k)
+          d_deltatw(i, k) = alpha(i)*d_deltatw(i, k)
+          d_deltaqw(i, k) = alpha(i)*d_deltaqw(i, k)
+          d_deltat_gw(i, k) = alpha(i)*d_deltat_gw(i, k)
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        d_sigmaw(i) = alpha(i)*d_sigmaw(i)
+      END IF
+    END DO
+
+    ! Update large scale variables and wake variables
+    ! IM 060208 manque DO i + remplace DO k=1,kupper(i)
+    ! IM 060208     DO k = 1,kupper(i)
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)) THEN
+          dtls(i, k) = dtls(i, k) + d_te(i, k)
+          dqls(i, k) = dqls(i, k) + d_qe(i, k)
+          ! cc nrlmd
+          d_deltatw2(i, k) = d_deltatw2(i, k) + d_deltatw(i, k)
+          d_deltaqw2(i, k) = d_deltaqw2(i, k) + d_deltaqw(i, k)
+          ! cc
+        END IF
+      END DO
+    END DO
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k<=kupper(i)) THEN
+          te(i, k) = te0(i, k) + dtls(i, k)
+          qe(i, k) = qe0(i, k) + dqls(i, k)
+          the(i, k) = te(i, k)/ppi(i, k)
+          deltatw(i, k) = deltatw(i, k) + d_deltatw(i, k)
+          deltaqw(i, k) = deltaqw(i, k) + d_deltaqw(i, k)
+          dth(i, k) = deltatw(i, k)/ppi(i, k)
+          ! c      print*,'k,qx,qw',k,qe(i,k)-sigmaw(i)*deltaqw(i,k)
+          ! c     $        ,qe(i,k)+(1-sigmaw(i))*deltaqw(i,k)
+        END IF
+      END DO
+    END DO
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        sigmaw(i) = sigmaw(i) + d_sigmaw(i)
+      END IF
+    END DO
+
+
+    ! Determine Ptop from buoyancy integral
+    ! ---------------------------------------
+
+    ! -     1/ Pressure of the level where dth changes sign.
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        ptop_provis(i) = ph(i, 1)
+      END IF
+    END DO
+
+    DO k = 2, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. ptop_provis(i)==ph(i,1) .AND. &
+            dth(i,k)>-delta_t_min .AND. dth(i,k-1)<-delta_t_min) THEN
+          ptop_provis(i) = ((dth(i,k)+delta_t_min)*p(i,k-1)-(dth(i, &
+            k-1)+delta_t_min)*p(i,k))/(dth(i,k)-dth(i,k-1))
+        END IF
+      END DO
+    END DO
+
+    ! -     2/ dth integral
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        sum_dth(i) = 0.
+        dthmin(i) = -delta_t_min
+        z(i) = 0.
+      END IF
+    END DO
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN
+          dz(i) = -(amax1(ph(i,k+1),ptop_provis(i))-ph(i,k))/(rho(i,k)*rg)
+          IF (dz(i)>0) THEN
+            z(i) = z(i) + dz(i)
+            sum_dth(i) = sum_dth(i) + dth(i, k)*dz(i)
+            dthmin(i) = amin1(dthmin(i), dth(i,k))
+          END IF
+        END IF
+      END DO
+    END DO
+
+    ! -     3/ height of triangle with area= sum_dth and base = dthmin
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        hw(i) = 2.*sum_dth(i)/amin1(dthmin(i), -0.5)
+        hw(i) = amax1(hwmin, hw(i))
+      END IF
+    END DO
+
+    ! -     4/ now, get Ptop
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        ktop(i) = 0
+        z(i) = 0.
+      END IF
+    END DO
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN
+          dz(i) = amin1(-(ph(i,k+1)-ph(i,k))/(rho(i,k)*rg), hw(i)-z(i))
+          IF (dz(i)>0) THEN
+            z(i) = z(i) + dz(i)
+            ptop(i) = ph(i, k) - rho(i, k)*rg*dz(i)
+            ktop(i) = k
+          END IF
+        END IF
+      END DO
+    END DO
+
+    ! 4.5/Correct ktop and ptop
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        ptop_new(i) = ptop(i)
+      END IF
+    END DO
+
+    DO k = klev, 2, -1
+      DO i = 1, klon
+        ! IM v3JYG; IF (k .GE. ktop(i)
+        IF (wk_adv(i) .AND. k<=ktop(i) .AND. ptop_new(i)==ptop(i) .AND. &
+            dth(i,k)>-delta_t_min .AND. dth(i,k-1)<-delta_t_min) THEN
+          ptop_new(i) = ((dth(i,k)+delta_t_min)*p(i,k-1)-(dth(i, &
+            k-1)+delta_t_min)*p(i,k))/(dth(i,k)-dth(i,k-1))
+        END IF
+      END DO
+    END DO
+
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN
+        ptop(i) = ptop_new(i)
+      END IF
+    END DO
+
+    DO k = klev, 1, -1
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN !!! nrlmd
+          IF (ph(i,k+1)<ptop(i)) ktop(i) = k
+        END IF
+      END DO
+    END DO
+
+    ! 5/ Set deltatw & deltaqw to 0 above kupper
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i) .AND. k>=kupper(i)) THEN
+          deltatw(i, k) = 0.
+          deltaqw(i, k) = 0.
+        END IF
+      END DO
+    END DO
+
+
+    ! -------------Cstar computation---------------------------------
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        sum_thu(i) = 0.
+        sum_tu(i) = 0.
+        sum_qu(i) = 0.
+        sum_thvu(i) = 0.
+        sum_dth(i) = 0.
+        sum_dq(i) = 0.
+        sum_rho(i) = 0.
+        sum_dtdwn(i) = 0.
+        sum_dqdwn(i) = 0.
+
+        av_thu(i) = 0.
+        av_tu(i) = 0.
+        av_qu(i) = 0.
+        av_thvu(i) = 0.
+        av_dth(i) = 0.
+        av_dq(i) = 0.
+        av_rho(i) = 0.
+        av_dtdwn(i) = 0.
+        av_dqdwn(i) = 0.
+      END IF
+    END DO
+
+    ! Integrals (and wake top level number)
+    ! --------------------------------------
+
+    ! Initialize sum_thvu to 1st level virt. pot. temp.
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        z(i) = 1.
+        dz(i) = 1.
+        sum_thvu(i) = thu(i, 1)*(1.+epsim1*qu(i,1))*dz(i)
+        sum_dth(i) = 0.
+      END IF
+    END DO
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN !!! nrlmd
+          dz(i) = -(max(ph(i,k+1),ptop(i))-ph(i,k))/(rho(i,k)*rg)
+          IF (dz(i)>0) THEN
+            z(i) = z(i) + dz(i)
+            sum_thu(i) = sum_thu(i) + thu(i, k)*dz(i)
+            sum_tu(i) = sum_tu(i) + tu(i, k)*dz(i)
+            sum_qu(i) = sum_qu(i) + qu(i, k)*dz(i)
+            sum_thvu(i) = sum_thvu(i) + thu(i, k)*(1.+epsim1*qu(i,k))*dz(i)
+            sum_dth(i) = sum_dth(i) + dth(i, k)*dz(i)
+            sum_dq(i) = sum_dq(i) + deltaqw(i, k)*dz(i)
+            sum_rho(i) = sum_rho(i) + rhow(i, k)*dz(i)
+            sum_dtdwn(i) = sum_dtdwn(i) + dtdwn(i, k)*dz(i)
+            sum_dqdwn(i) = sum_dqdwn(i) + dqdwn(i, k)*dz(i)
+          END IF
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        hw0(i) = z(i)
+      END IF
+    END DO
+
+
+    ! - WAPE and mean forcing computation
+    ! ---------------------------------------
+
+    ! ---------------------------------------
+
+    ! Means
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        av_thu(i) = sum_thu(i)/hw0(i)
+        av_tu(i) = sum_tu(i)/hw0(i)
+        av_qu(i) = sum_qu(i)/hw0(i)
+        av_thvu(i) = sum_thvu(i)/hw0(i)
+        av_dth(i) = sum_dth(i)/hw0(i)
+        av_dq(i) = sum_dq(i)/hw0(i)
+        av_rho(i) = sum_rho(i)/hw0(i)
+        av_dtdwn(i) = sum_dtdwn(i)/hw0(i)
+        av_dqdwn(i) = sum_dqdwn(i)/hw0(i)
+
+        wape(i) = -rg*hw0(i)*(av_dth(i)+epsim1*(av_thu(i)*av_dq(i)+av_dth(i)* &
+          av_qu(i)+av_dth(i)*av_dq(i)))/av_thvu(i)
+      END IF
+    END DO
+
+    ! Filter out bad wakes
+
+    DO k = 1, klev
+      DO i = 1, klon
+        IF (wk_adv(i)) THEN !!! nrlmd
+          IF (wape(i)<0.) THEN
+            deltatw(i, k) = 0.
+            deltaqw(i, k) = 0.
+            dth(i, k) = 0.
+          END IF
+        END IF
+      END DO
+    END DO
+
+    DO i = 1, klon
+      IF (wk_adv(i)) THEN !!! nrlmd
+        IF (wape(i)<0.) THEN
+          wape(i) = 0.
+          cstar(i) = 0.
+          hw(i) = hwmin
+          sigmaw(i) = max(sigmad, sigd_con(i))
+          fip(i) = 0.
+          gwake(i) = .FALSE.
+        ELSE
+          cstar(i) = stark*sqrt(2.*wape(i))
+          gwake(i) = .TRUE.
+        END IF
+      END IF
+    END DO
+
+  END DO ! end sub-timestep loop
+
+  ! -----------------------------------------------------------------
+  ! Get back to tendencies per second
+
+  DO k = 1, klev
+    DO i = 1, klon
+
+      ! cc nrlmd        IF ( wk_adv(i) .AND. k .LE. kupper(i)) THEN
+      IF (ok_qx_qw(i) .AND. k<=kupper(i)) THEN
+        ! cc
+        dtls(i, k) = dtls(i, k)/dtime
+        dqls(i, k) = dqls(i, k)/dtime
+        d_deltatw2(i, k) = d_deltatw2(i, k)/dtime
+        d_deltaqw2(i, k) = d_deltaqw2(i, k)/dtime
+        d_deltat_gw(i, k) = d_deltat_gw(i, k)/dtime
+        ! c      print*,'k,dqls,omg,entr,detr',k,dqls(i,k),omg(i,k),entr(i,k)
+        ! c     $         ,death_rate(i)*sigmaw(i)
+      END IF
+    END DO
+  END DO
+
+
+  ! ----------------------------------------------------------
+  ! Determine wake final state; recompute wape, cstar, ktop;
+  ! filter out bad wakes.
+  ! ----------------------------------------------------------
+
+  ! 2.1 - Undisturbed area and Wake integrals
+  ! ---------------------------------------------------------
+
+  DO i = 1, klon
+    ! cc nrlmd       if (wk_adv(i)) then !!! nrlmd
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      z(i) = 0.
+      sum_thu(i) = 0.
+      sum_tu(i) = 0.
+      sum_qu(i) = 0.
+      sum_thvu(i) = 0.
+      sum_dth(i) = 0.
+      sum_dq(i) = 0.
+      sum_rho(i) = 0.
+      sum_dtdwn(i) = 0.
+      sum_dqdwn(i) = 0.
+
+      av_thu(i) = 0.
+      av_tu(i) = 0.
+      av_qu(i) = 0.
+      av_thvu(i) = 0.
+      av_dth(i) = 0.
+      av_dq(i) = 0.
+      av_rho(i) = 0.
+      av_dtdwn(i) = 0.
+      av_dqdwn(i) = 0.
+    END IF
+  END DO
+  ! Potential temperatures and humidity
+  ! ----------------------------------------------------------
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ! cc nrlmd       IF ( wk_adv(i)) THEN
+      IF (ok_qx_qw(i)) THEN
+        ! cc
+        rho(i, k) = p(i, k)/(rd*te(i,k))
+        IF (k==1) THEN
+          rhoh(i, k) = ph(i, k)/(rd*te(i,k))
+          zhh(i, k) = 0
+        ELSE
+          rhoh(i, k) = ph(i, k)*2./(rd*(te(i,k)+te(i,k-1)))
+          zhh(i, k) = (ph(i,k)-ph(i,k-1))/(-rhoh(i,k)*rg) + zhh(i, k-1)
+        END IF
+        the(i, k) = te(i, k)/ppi(i, k)
+        thu(i, k) = (te(i,k)-deltatw(i,k)*sigmaw(i))/ppi(i, k)
+        tu(i, k) = te(i, k) - deltatw(i, k)*sigmaw(i)
+        qu(i, k) = qe(i, k) - deltaqw(i, k)*sigmaw(i)
+        rhow(i, k) = p(i, k)/(rd*(te(i,k)+deltatw(i,k)))
+        dth(i, k) = deltatw(i, k)/ppi(i, k)
+      END IF
+    END DO
+  END DO
+
+  ! Integrals (and wake top level number)
+  ! -----------------------------------------------------------
+
+  ! Initialize sum_thvu to 1st level virt. pot. temp.
+
+  DO i = 1, klon
+    ! cc nrlmd       IF ( wk_adv(i)) THEN
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      z(i) = 1.
+      dz(i) = 1.
+      sum_thvu(i) = thu(i, 1)*(1.+epsim1*qu(i,1))*dz(i)
+      sum_dth(i) = 0.
+    END IF
+  END DO
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ! cc nrlmd       IF ( wk_adv(i)) THEN
+      IF (ok_qx_qw(i)) THEN
+        ! cc
+        dz(i) = -(amax1(ph(i,k+1),ptop(i))-ph(i,k))/(rho(i,k)*rg)
+        IF (dz(i)>0) THEN
+          z(i) = z(i) + dz(i)
+          sum_thu(i) = sum_thu(i) + thu(i, k)*dz(i)
+          sum_tu(i) = sum_tu(i) + tu(i, k)*dz(i)
+          sum_qu(i) = sum_qu(i) + qu(i, k)*dz(i)
+          sum_thvu(i) = sum_thvu(i) + thu(i, k)*(1.+epsim1*qu(i,k))*dz(i)
+          sum_dth(i) = sum_dth(i) + dth(i, k)*dz(i)
+          sum_dq(i) = sum_dq(i) + deltaqw(i, k)*dz(i)
+          sum_rho(i) = sum_rho(i) + rhow(i, k)*dz(i)
+          sum_dtdwn(i) = sum_dtdwn(i) + dtdwn(i, k)*dz(i)
+          sum_dqdwn(i) = sum_dqdwn(i) + dqdwn(i, k)*dz(i)
+        END IF
+      END IF
+    END DO
+  END DO
+
+  DO i = 1, klon
+    ! cc nrlmd       IF ( wk_adv(i)) THEN
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      hw0(i) = z(i)
+    END IF
+  END DO
+
+  ! - WAPE and mean forcing computation
+  ! -------------------------------------------------------------
+
+  ! Means
+
+  DO i = 1, klon
+    ! cc nrlmd       IF ( wk_adv(i)) THEN
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      av_thu(i) = sum_thu(i)/hw0(i)
+      av_tu(i) = sum_tu(i)/hw0(i)
+      av_qu(i) = sum_qu(i)/hw0(i)
+      av_thvu(i) = sum_thvu(i)/hw0(i)
+      av_dth(i) = sum_dth(i)/hw0(i)
+      av_dq(i) = sum_dq(i)/hw0(i)
+      av_rho(i) = sum_rho(i)/hw0(i)
+      av_dtdwn(i) = sum_dtdwn(i)/hw0(i)
+      av_dqdwn(i) = sum_dqdwn(i)/hw0(i)
+
+      wape2(i) = -rg*hw0(i)*(av_dth(i)+epsim1*(av_thu(i)*av_dq(i)+av_dth(i)* &
+        av_qu(i)+av_dth(i)*av_dq(i)))/av_thvu(i)
+    END IF
+  END DO
+
+  ! Prognostic variable update
+  ! ------------------------------------------------------------
+
+  ! Filter out bad wakes
+
+  DO k = 1, klev
+    DO i = 1, klon
+      ! cc nrlmd        IF ( wk_adv(i) .AND. wape2(i) .LT. 0.) THEN
+      IF (ok_qx_qw(i) .AND. wape2(i)<0.) THEN
+        ! cc
+        deltatw(i, k) = 0.
+        deltaqw(i, k) = 0.
+        dth(i, k) = 0.
+      END IF
+    END DO
+  END DO
+
+
+  DO i = 1, klon
+    ! cc nrlmd       IF ( wk_adv(i)) THEN
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      IF (wape2(i)<0.) THEN
+        wape2(i) = 0.
+        cstar2(i) = 0.
+        hw(i) = hwmin
+        sigmaw(i) = amax1(sigmad, sigd_con(i))
+        fip(i) = 0.
+        gwake(i) = .FALSE.
+      ELSE
+        IF (prt_level>=10) PRINT *, 'wape2>0'
+        cstar2(i) = stark*sqrt(2.*wape2(i))
+        gwake(i) = .TRUE.
+      END IF
+    END IF
+  END DO
+
+  DO i = 1, klon
+    ! cc nrlmd       IF ( wk_adv(i)) THEN
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      ktopw(i) = ktop(i)
+    END IF
+  END DO
+
+  DO i = 1, klon
+    ! cc nrlmd       IF ( wk_adv(i)) THEN
+    IF (ok_qx_qw(i)) THEN
+      ! cc
+      IF (ktopw(i)>0 .AND. gwake(i)) THEN
+
+        ! jyg1     Utilisation d'un h_efficace constant ( ~ feeding layer)
+        ! cc       heff = 600.
+        ! Utilisation de la hauteur hw
+        ! c       heff = 0.7*hw
+        heff(i) = hw(i)
+
+        fip(i) = 0.5*rho(i, ktopw(i))*cstar2(i)**3*heff(i)*2* &
+          sqrt(sigmaw(i)*wdens(i)*3.14)
+        fip(i) = alpk*fip(i)
+        ! jyg2
+      ELSE
+        fip(i) = 0.
+      END IF
+    END IF
+  END DO
+
+  ! Limitation de sigmaw
+
+  ! cc nrlmd
+  ! DO i=1,klon
+  ! IF (OK_qx_qw(i)) THEN
+  ! IF (sigmaw(i).GE.sigmaw_max) sigmaw(i)=sigmaw_max
+  ! ENDIF
+  ! ENDDO
+  ! cc
+  DO k = 1, klev
+    DO i = 1, klon
+
+      ! cc nrlmd      On maintient désormais constant sigmaw en régime
+      ! permanent
+      ! cc      IF ((sigmaw(i).GT.sigmaw_max).or.
+      IF (((wape(i)>=wape2(i)) .AND. (wape2(i)<=1.0)) .OR. (ktopw(i)<=2) .OR. &
+          .NOT. ok_qx_qw(i)) THEN
+        ! cc
+        dtls(i, k) = 0.
+        dqls(i, k) = 0.
+        deltatw(i, k) = 0.
+        deltaqw(i, k) = 0.
+      END IF
+    END DO
+  END DO
+
+  ! cc nrlmd      On maintient désormais constant sigmaw en régime permanent
+  DO i = 1, klon
+    IF (((wape(i)>=wape2(i)) .AND. (wape2(i)<=1.0)) .OR. (ktopw(i)<=2) .OR. &
+        .NOT. ok_qx_qw(i)) THEN
+      wape(i) = 0.
+      cstar(i) = 0.
+!!jyg   Outside subroutine "Wake" hw and sigmaw are zero when there are no wakes
+!!      hw(i) = hwmin                       !jyg
+!!      sigmaw(i) = sigmad                  !jyg
+      hw(i) = 0.                            !jyg
+      sigmaw(i) = 0.                        !jyg
+      fip(i) = 0.
+    ELSE
+      wape(i) = wape2(i)
+      cstar(i) = cstar2(i)
+    END IF
+    ! c        print*,'wape wape2 ktopw OK_qx_qw =',
+    ! c     $          wape(i),wape2(i),ktopw(i),OK_qx_qw(i)
+  END DO
+
+
+  RETURN
+END SUBROUTINE wake
+
+SUBROUTINE wake_vec_modulation(nlon, nl, wk_adv, epsilon, qe, d_qe, deltaqw, &
+    d_deltaqw, sigmaw, d_sigmaw, alpha)
+  ! ------------------------------------------------------
+  ! Dtermination du coefficient alpha tel que les tendances
+  ! corriges alpha*d_G, pour toutes les grandeurs G, correspondent
+  ! a une humidite positive dans la zone (x) et dans la zone (w).
+  ! ------------------------------------------------------
+  IMPLICIT NONE
+
+  ! Input
+  REAL qe(nlon, nl), d_qe(nlon, nl)
+  REAL deltaqw(nlon, nl), d_deltaqw(nlon, nl)
+  REAL sigmaw(nlon), d_sigmaw(nlon)
+  LOGICAL wk_adv(nlon)
+  INTEGER nl, nlon
+  ! Output
+  REAL alpha(nlon)
+  ! Internal variables
+  REAL zeta(nlon, nl)
+  REAL alpha1(nlon)
+  REAL x, a, b, c, discrim
+  REAL epsilon
+  ! DATA epsilon/1.e-15/
+  INTEGER i,k
+
+  DO k = 1, nl
+    DO i = 1, nlon
+      IF (wk_adv(i)) THEN
+        IF ((deltaqw(i,k)+d_deltaqw(i,k))>=0.) THEN
+          zeta(i, k) = 0.
+        ELSE
+          zeta(i, k) = 1.
+        END IF
+      END IF
+    END DO
+    DO i = 1, nlon
+      IF (wk_adv(i)) THEN
+        x = qe(i, k) + (zeta(i,k)-sigmaw(i))*deltaqw(i, k) + d_qe(i, k) + &
+          (zeta(i,k)-sigmaw(i))*d_deltaqw(i, k) - d_sigmaw(i)*(deltaqw(i,k)+ &
+          d_deltaqw(i,k))
+        a = -d_sigmaw(i)*d_deltaqw(i, k)
+        b = d_qe(i, k) + (zeta(i,k)-sigmaw(i))*d_deltaqw(i, k) - &
+          deltaqw(i, k)*d_sigmaw(i)
+        c = qe(i, k) + (zeta(i,k)-sigmaw(i))*deltaqw(i, k) + epsilon
+        discrim = b*b - 4.*a*c
+        ! print*, 'x, a, b, c, discrim', x, a, b, c, discrim
+        IF (a+b>=0.) THEN !! Condition suffisante pour la positivité de ovap
+          alpha1(i) = 1.
+        ELSE
+          IF (x>=0.) THEN
+            alpha1(i) = 1.
+          ELSE
+            IF (a>0.) THEN
+              alpha1(i) = 0.9*min((2.*c)/(-b+sqrt(discrim)), (-b+sqrt(discrim &
+                ))/(2.*a))
+            ELSE IF (a==0.) THEN
+              alpha1(i) = 0.9*(-c/b)
+            ELSE
+              ! print*,'a,b,c discrim',a,b,c discrim
+              alpha1(i) = 0.9*max((2.*c)/(-b+sqrt(discrim)), (-b+sqrt(discrim &
+                ))/(2.*a))
+            END IF
+          END IF
+        END IF
+        alpha(i) = min(alpha(i), alpha1(i))
+      END IF
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE wake_vec_modulation
+
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/water_int.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/water_int.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/water_int.F90	(revision 3330)
@@ -0,0 +1,23 @@
+subroutine water_int(klon,klev,field3d,mass,field2d)
+
+!=============================================================
+! Compute the 2D burden from 3D mixing ratios
+!  OB (obolmd@lmd.jussieu.fr)
+!=============================================================
+
+IMPLICIT none
+
+! Arguments
+INTEGER, INTENT(IN) :: klon,klev
+REAL, DIMENSION(klon,klev),INTENT(IN)  :: field3d, mass 
+REAL, DIMENSION(klon),     INTENT(OUT) :: field2d
+
+INTEGER k
+
+field2d(:)=0.0
+DO k=1, klev
+field2d(:)=field2d(:)+field3d(:,k)*mass(:,k)
+ENDDO
+
+RETURN
+END
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_bilKP_ave.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_bilKP_ave.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_bilKP_ave.h	(revision 3330)
@@ -0,0 +1,155 @@
+c
+c $Header$
+c
+      IF (ok_journe) THEN
+c
+      ndex2d = 0
+      ndex3d = 0
+c
+c Champs 2D:
+c
+      itau_w = itau_phy + itap + start_time * day_step / iphysiq
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"ue",itau_w,ue_lay)
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"ve",itau_w,ve_lay)
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"uq",itau_w,uq_lay)
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"vq",itau_w,vq_lay)
+c
+c Champs 3D:
+C
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"temp",itau_w,t_seri)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"ovap",itau_w,qx(:,:,ivap))
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"geop",itau_w,zphi)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"vitu",itau_w,u_seri)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"vitv",itau_w,v_seri)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"vitw",itau_w,omega)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"pres",itau_w,pplay)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"play",itau_w,paprs)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"oliq",itau_w,cldliq)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtdyn",itau_w,d_t_dyn)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqdyn",itau_w,d_q_dyn)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtcon",itau_w,d_t_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"ducon",itau_w,d_u_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dvcon",itau_w,d_v_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqcon",itau_w,d_q_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtlsc",itau_w,d_t_lsc)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqlsc",itau_w,d_q_lsc)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtvdf",itau_w,d_t_vdf)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqvdf",itau_w,d_q_vdf)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtajs",itau_w,d_t_ajs)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqajs",itau_w,d_q_ajs)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dteva",itau_w,d_t_eva)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqeva",itau_w,d_q_eva)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtswr",itau_w,heat)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtsw0",itau_w,heat0)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtlwr",itau_w,cool)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtlw0",itau_w,cool0)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"duvdf",itau_w,d_u_vdf)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dvvdf",itau_w,d_v_vdf)
+c
+      IF (ok_orodr) THEN
+      IF (ok_orolf) THEN
+c
+      DO k = 1, klev
+      DO i = 1, klon
+        d_u_oli(i,k) = d_u_oro(i,k) + d_u_lif(i,k)
+        d_v_oli(i,k) = d_v_oro(i,k) + d_v_lif(i,k)
+      ENDDO
+      ENDDO
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oli, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"duoli",d_u_oli)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dvoli",itau_w,d_v_oli)
+c
+      ENDIF
+      ENDIF
+C
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"duphy",itau_w,d_u)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dvphy",itau_w,d_v)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dtphy",itau_w,d_t)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1), 
+cymf     .zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqphy",itau_w,d_qx(:,:,1))
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,2), 
+cym     .zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPave,"dqlphy",itau_w,d_qx(:,:,2))
+c
+C
+      if (ok_sync) then
+        call histsync(nid_bilKPave)
+      endif
+       ENDIF
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_bilKP_ins.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_bilKP_ins.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_bilKP_ins.h	(revision 3330)
@@ -0,0 +1,179 @@
+ c
+c $Header$
+c
+      IF (ok_journe) THEN
+c
+      ndex2d = 0
+      ndex3d = 0
+c
+      itau_w = itau_phy + itap + start_time * day_step / iphysiq
+c
+c Champs 3D:
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"ue",itau_w,ue_lay)
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"ve",itau_w,ve_lay)
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"uq",itau_w,uq_lay)
+c
+cym      CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"vq",itau_w,vq_lay)
+c
+c Champs 3D:
+C
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"temp",itau_w,t_seri)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"ovap",itau_w,qx(:,:,ivap))
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"geop",itau_w,zphi)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"vitu",itau_w,u_seri)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"vitv",itau_w,v_seri)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"vitw",itau_w,omega)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"pres",itau_w,pplay)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"play",itau_w,paprs)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"oliq",itau_w,cldliq)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtdyn",itau_w,d_t_dyn)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqdyn",itau_w,d_q_dyn)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtcon",itau_w,d_t_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"ducon",itau_w,d_u_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dvcon",itau_w,d_v_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqcon",itau_w,d_q_con)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtlsc",itau_w,d_t_lsc)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqlsc",itau_w,d_q_lsc)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtvdf",itau_w,d_t_vdf)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqvdf",itau_w,d_q_vdf)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtajs",itau_w,d_t_ajs)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqajs",itau_w,d_q_ajs)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dteva",itau_w,d_t_eva)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqeva",itau_w,d_q_eva)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtswr",itau_w,heat)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtsw0",itau_w,heat0)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtlwr",itau_w,cool)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtlw0",itau_w,cool0)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"duvdf",itau_w,d_u_vdf)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dvvdf",itau_w,d_v_vdf)
+c
+      IF (ok_orodr) THEN
+      IF (ok_orolf) THEN
+c
+      DO k = 1, klev
+      DO i = 1, klon
+        d_u_oli(i,k) = d_u_oro(i,k) + d_u_lif(i,k)
+        d_v_oli(i,k) = d_v_oro(i,k) + d_v_lif(i,k)
+      ENDDO
+      ENDDO
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oli, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"duoli",itau_w,d_u_oli)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dvoli",itau_w,d_v_oli)
+c
+      ENDIF
+      ENDIF
+C
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"duphy",itau_w,d_u)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dvphy",itau_w,d_v)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dtphy",itau_w,d_t)
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1), 
+cym     .zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqphy",itau_w,d_qx(:,:,1))
+c
+cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,2), 
+cym     .zx_tmp_3d)
+      CALL histwrite_phy(nid_bilKPins,"dqlphy",itau_w,d_qx(:,:,2))
+c
+cIM 280405 BEG
+c
+c Champs 2D:
+c
+c   Ecriture de champs dynamiques sur des niveaux de pression
+c     DO k=1, nlevSTD
+      DO k=1, 12
+c
+       IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
+       IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
+c
+       IF(bb2.EQ."850") THEN
+c
+cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,1),zx_tmp_2d)
+        CALL histwrite_phy(nid_bilKPins,"u"//bb2,itau_w,usumSTD(:,k,1))
+c
+cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,1),zx_tmp_2d)
+        CALL histwrite_phy(nid_bilKPins,"v"//bb2,itau_w,vsumSTD(:,k,1))
+c
+       ENDIF !(bb2.EQ."850")
+c
+       ENDDO !k=1, 12
+c
+cIM 280405 END
+C
+      if (ok_sync) then
+        call histsync(nid_bilKPins)
+      endif
+       ENDIF
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histREGDYN.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histREGDYN.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histREGDYN.h	(revision 3330)
@@ -0,0 +1,63 @@
+!
+! $Header$
+!
+      if (ok_regdyn) then
+      
+      if (is_sequential) then
+
+
+      ndex3d = 0
+      itau_w = itau_phy + itap + start_time * day_step / iphysiq
+c
+       CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+c
+       CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5),
+     &               kmaxm1*lmaxm1*iwmax,ndex3d)
+
+      if (ok_sync) then
+        call histsync(nid_regdyn)
+      endif
+
+      endif ! is_sequential
+
+      endif
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histday_seri.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histday_seri.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histday_seri.h	(revision 3330)
@@ -0,0 +1,165 @@
+!
+! $Header$
+!
+      IF (is_sequential) THEN
+      
+      IF (type_run.EQ."AMIP") THEN
+!
+      ndex2d = 0
+      itau_w = itau_phy + itap + start_time * day_step_phy
+!
+! Champs 2D:
+!
+      pi = ACOS(-1.)
+      pir = 4.0*ATAN(1.0) / 180.0
+!
+      DO i=1, klon
+       zx_tmp_fi2d(i)=(topsw(i)-toplw(i))
+      ENDDO
+!
+      ok_msk=.FALSE.
+      msk(1:klon)=pctsrf(1:klon,is_ter)
+      CALL moyglo_pondaire(klon, zx_tmp_fi2d, cell_area,  &
+           ok_msk, msk, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"bilTOA",itau_w, &
+                     zx_tmp_2d,nbp_lon*nbp_lat,ndex2d)
+!
+      ok_msk=.FALSE.
+      CALL moyglo_pondaire(klon, bils, cell_area,  &
+           ok_msk, msk, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"bils",itau_w, &
+                     zx_tmp_2d,nbp_lon*nbp_lat,ndex2d)
+!
+      DO k=1, klev
+      DO i=1, klon
+!IM 080904    zx_tmp_fi3d(i,k)=u(i,k)**2+v(i,k)**2
+       zx_tmp_fi3d(i,k)=(u(i,k)**2+v(i,k)**2)/2.
+      ENDDO
+      ENDDO
+!
+      CALL moyglo_pondaima(klon, klev, zx_tmp_fi3d,  &
+           cell_area, paprs, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"ecin",itau_w, &
+                     zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 
+!
+!
+!
+      CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,cell_area,zx_tmp_2d)
+      airetot=0.
+      DO i=1, klon
+       airetot=airetot+cell_area(i)
+      ENDDO
+!     IF(itap.EQ.1) PRINT*,'airetotphy=',airetot
+!
+      airetot=0.
+      DO j=1, nbp_lat
+       DO i=1, nbp_lon
+        airetot=airetot+zx_tmp_2d(i,j)
+       ENDDO
+      ENDDO
+!
+!     IF(itap.EQ.1) PRINT*,'airetotij=',airetot,
+!    $ '4piR2',4.*pi*RA*RA
+!
+      zx_tmp_fi2d(1:klon)=aam/airetot
+      CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"momang",itau_w,zx_tmp_2d, &
+                     nbp_lon*nbp_lat,ndex2d)
+!
+      zx_tmp_fi2d(1:klon)=torsfc/airetot
+      CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"torsfc",itau_w,zx_tmp_2d, &
+                     nbp_lon*nbp_lat,ndex2d)
+!
+!IM 151004 END
+!
+      CALL moyglo_pondmass(klon, klev, t_seri, &
+           cell_area, paprs, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"tamv",itau_w, &
+                     zx_tmp_2d,nbp_lon*nbp_lat,ndex2d)
+!
+      ok_msk=.FALSE.
+      CALL moyglo_pondaire(klon, paprs(:,1), cell_area,  &
+           ok_msk, msk, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"psol",itau_w, &
+                     zx_tmp_2d,nbp_lon*nbp_lat,ndex2d)
+!
+      ok_msk=.FALSE.
+      CALL moyglo_pondaire(klon, evap, cell_area,  &
+           ok_msk, msk, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"evap",itau_w, &
+                     zx_tmp_2d,nbp_lon*nbp_lat,ndex2d)
+!
+!     DO i=1, klon
+!      zx_tmp_fi2d(i)=SnowFrac(i,is_ter)
+!     ENDDO
+!
+!     ok_msk=.TRUE.
+!     msk(1:klon)=pctsrf(1:klon,is_ter)
+!     CALL moyglo_pondaire(klon, zx_tmp_fi2d, cell_area, 
+!    .                     ok_msk, msk, moyglo)
+!     zx_tmp_fi2d(1:klon)=moyglo
+!
+!     CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d)
+!     CALL histwrite(nid_day_seri,"SnowFrac",
+!    .               itau_w,zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 
+!
+!     DO i=1, klon
+!IM 080904    zx_tmp_fi2d(i)=zsnow_mass(i)/330.*rowl
+!      zx_tmp_fi2d(i)=zsnow_mass(i)
+!     ENDDO
+!
+!IM 140904   ok_msk=.FALSE.
+!     ok_msk=.TRUE.
+!     msk(1:klon)=pctsrf(1:klon,is_ter)
+!     CALL moyglo_pondaire(klon, zx_tmp_fi2d, cell_area, 
+!    .     ok_msk, msk, moyglo)
+!     zx_tmp_fi2d(1:klon)=moyglo
+!
+!     CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat,zx_tmp_fi2d,zx_tmp_2d)
+!     CALL histwrite(nid_day_seri,"snow_depth",itau_w,
+!    .               zx_tmp_2d,nbp_lon*nbp_lat,ndex2d)
+!
+      DO i=1, klon
+       zx_tmp_fi2d(i)=ftsol(i,is_oce)
+      ENDDO
+!
+      ok_msk=.TRUE.
+      msk(1:klon)=pctsrf(1:klon,is_oce)
+      CALL moyglo_pondaire(klon, zx_tmp_fi2d, cell_area,  &
+           ok_msk, msk, moyglo)
+      zx_tmp_fi2d(1:klon)=moyglo
+!
+      CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d, zx_tmp_2d)
+      CALL histwrite(nid_day_seri,"tsol_"//clnsurf(is_oce), &
+                     itau_w,zx_tmp_2d,nbp_lon*nbp_lat,ndex2d) 
+!
+!=================================================================
+!=================================================================
+!=================================================================
+!
+      if (ok_sync) then
+        call histsync(nid_day_seri)
+      endif
+!
+      ENDIF !fin test sur type_run.EQ."AMIP"
+      
+      ENDIF  ! mono_cpu
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histrac.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histrac.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/write_histrac.h	(revision 3330)
@@ -0,0 +1,126 @@
+!$Id $
+!***************************************
+!  ECRITURE DU FICHIER :  histrac.nc
+!***************************************
+  IF (ecrit_tra > 0.) THEN
+     
+     itau_w = itau_phy + nstep + start_time * day_step / iphysiq
+     
+     CALL histwrite_phy(nid_tra,.FALSE.,"phis",itau_w,pphis)
+     CALL histwrite_phy(nid_tra,.FALSE.,"aire",itau_w,airephy)
+     CALL histwrite_phy(nid_tra,.FALSE.,"zmasse",itau_w,zmasse)
+! RomP >>>
+     CALL histwrite_phy(nid_tra,.FALSE.,"sourceBE",itau_w,sourceBE)
+! RomP <<<
+
+!TRACEURS
+!----------------
+     DO it=1,nbtr
+!!        iiq=niadv(it+2)                                                           ! jyg
+        iiq=niadv(it+nqo)                                                           ! jyg
+
+! CONCENTRATIONS
+        CALL histwrite_phy(nid_tra,.FALSE.,tname(iiq),itau_w,tr_seri(:,:,it))
+
+! TD LESSIVAGE       
+      IF (lessivage .AND. aerosol(it)) THEN
+        CALL histwrite_phy(nid_tra,.FALSE.,"fl"//tname(iiq),itau_w,flestottr(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_ls_"//tname(iiq),itau_w,d_tr_ls(:,:,it))
+        IF(iflag_lscav .EQ. 3 .OR. iflag_lscav .EQ. 4) then
+          CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_insc_"//tname(iiq),itau_w,d_tr_insc(:,:,it))
+          CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_bcscav_"//tname(iiq),itau_w,d_tr_bcscav(:,:,it))
+          CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_evls_"//tname(iiq),itau_w,d_tr_evapls(:,:,it))
+          CALL histwrite_phy(nid_tra,.FALSE.,"qpr_ls_"//tname(iiq),itau_w,qPrls(:,it))
+        ENDIF
+      ENDIF
+
+! TD THERMIQUES
+        IF (iflag_thermals.gt.0) THEN
+           CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_th_"//tname(iiq),itau_w,d_tr_th(:,:,it))
+        ENDIF
+
+! TD CONVECTION
+        IF (iflag_con.GE.2) THEN
+           CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_cv_"//tname(iiq),itau_w,d_tr_cv(:,:,it))
+        ENDIF
+
+! TD COUCHE-LIMITE
+      IF (iflag_vdf_trac>=0) THEN
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_cl_"//tname(iiq),itau_w,d_tr_cl(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_dry_"//tname(iiq),itau_w,d_tr_dry(:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"flux_tr_dry_"//tname(iiq),itau_w,flux_tr_dry(:,it))
+      ENDIF
+
+! TD radio-decroissance
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_dec_"//tname(iiq),itau_w,d_tr_dec(:,:,it))
+
+! RomP >>>
+        IF (iflag_con.EQ.30) THEN
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_cvMA_"//tname(iiq),itau_w,dtrcvMA(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_trsp_"//tname(iiq),itau_w,d_tr_trsp(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_sscav_"//tname(iiq),itau_w,d_tr_sscav(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_sat_"//tname(iiq),itau_w,d_tr_sat(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"d_tr_uscav_"//tname(iiq),itau_w,d_tr_uscav(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"tr_pr_"//tname(iiq),itau_w,qPr(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"tr_aa_"//tname(iiq),itau_w,qPa(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"tr_mel_"//tname(iiq),itau_w,qMel(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"tr_di_"//tname(iiq),itau_w,qDi(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"tr_trspdi_"//tname(iiq),itau_w,qTrdi(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"zmfd1a_"//tname(iiq),itau_w,zmfd1a(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"zmfphi2_"//tname(iiq),itau_w,zmfphi2(:,:,it))
+        CALL histwrite_phy(nid_tra,.FALSE.,"zmfdam_"//tname(iiq),itau_w,zmfdam(:,:,it))
+        ENDIF
+        CALL histwrite_phy(nid_tra,.FALSE.,"dtrdyn_"//tname(iiq),itau_w,d_tr_dyn(:,:,it))
+! RomP <<<
+     ENDDO
+!---------------
+!
+!
+! VENT (niveau 1)   
+     CALL histwrite_phy(nid_tra,.FALSE.,"pyu1",itau_w,yu1)
+     CALL histwrite_phy(nid_tra,.FALSE.,"pyv1",itau_w,yv1)
+!
+! TEMPERATURE DU SOL
+     zx_tmp_fi2d(:)=ftsol(:,1)         
+     CALL histwrite_phy(nid_tra,.FALSE.,"ftsol1",itau_w,zx_tmp_fi2d)
+     zx_tmp_fi2d(:)=ftsol(:,2)
+     CALL histwrite_phy(nid_tra,.FALSE.,"ftsol2",itau_w,zx_tmp_fi2d)
+     zx_tmp_fi2d(:)=ftsol(:,3)
+     CALL histwrite_phy(nid_tra,.FALSE.,"ftsol3",itau_w,zx_tmp_fi2d)
+     zx_tmp_fi2d(:)=ftsol(:,4)
+     CALL histwrite_phy(nid_tra,.FALSE.,"ftsol4",itau_w,zx_tmp_fi2d)
+!      
+! NATURE DU SOL
+     zx_tmp_fi2d(:)=pctsrf(:,1)
+     CALL histwrite_phy(nid_tra,.FALSE.,"psrf1",itau_w,zx_tmp_fi2d)
+     zx_tmp_fi2d(:)=pctsrf(:,2)
+     CALL histwrite_phy(nid_tra,.FALSE.,"psrf2",itau_w,zx_tmp_fi2d)
+     zx_tmp_fi2d(:)=pctsrf(:,3)
+     CALL histwrite_phy(nid_tra,.FALSE.,"psrf3",itau_w,zx_tmp_fi2d)
+     zx_tmp_fi2d(:)=pctsrf(:,4)
+     CALL histwrite_phy(nid_tra,.FALSE.,"psrf4",itau_w,zx_tmp_fi2d)
+ 
+! DIVERS    
+     CALL histwrite_phy(nid_tra,.FALSE.,"Mint",itau_w,Mint(:,:))
+     CALL histwrite_phy(nid_tra,.FALSE.,"frac_impa",itau_w,frac_impa(:,:))    
+     CALL histwrite_phy(nid_tra,.FALSE.,"frac_nucl",itau_w,frac_nucl(:,:))
+
+
+     CALL histwrite_phy(nid_tra,.FALSE.,"pplay",itau_w,pplay)     
+     CALL histwrite_phy(nid_tra,.FALSE.,"T",itau_w,t_seri)     
+     CALL histwrite_phy(nid_tra,.FALSE.,"mfu",itau_w,pmfu)
+     CALL histwrite_phy(nid_tra,.FALSE.,"mfd",itau_w,pmfd)
+     CALL histwrite_phy(nid_tra,.FALSE.,"en_u",itau_w,pen_u)
+     CALL histwrite_phy(nid_tra,.FALSE.,"en_d",itau_w,pen_d)
+     CALL histwrite_phy(nid_tra,.FALSE.,"de_d",itau_w,pde_d)
+     CALL histwrite_phy(nid_tra,.FALSE.,"de_u",itau_w,pde_u)
+     CALL histwrite_phy(nid_tra,.FALSE.,"coefh",itau_w,coefh)
+
+     IF (ok_sync) THEN
+!$OMP MASTER
+        CALL histsync(nid_tra)
+!$OMP END MASTER
+     ENDIF
+
+  ENDIF !ecrit_tra>0.
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada.F90	(revision 3330)
@@ -0,0 +1,169 @@
+
+! $Header$
+
+SUBROUTINE yamada(ngrid, dt, g, rconst, plev, temp, zlev, zlay, u, v, teta, &
+    cd, q2, km, kn, ustar, l_mix)
+  USE dimphy
+  IMPLICIT NONE
+
+  ! dt : pas de temps
+  ! g  : g
+  ! zlev : altitude a chaque niveau (interface inferieure de la couche
+  ! de meme indice)
+  ! zlay : altitude au centre de chaque couche
+  ! u,v : vitesse au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! teta : temperature potentielle au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! cd : cdrag
+  ! (en entree : la valeur au debut du pas de temps)
+  ! q2 : $q^2$ au bas de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  ! km : diffusivite turbulente de quantite de mouvement (au bas de chaque
+  ! couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  ! kn : diffusivite turbulente des scalaires (au bas de chaque couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+
+  ! .......................................................................
+  REAL dt, g, rconst
+  REAL plev(klon, klev+1), temp(klon, klev)
+  REAL ustar(klon), snstable
+  REAL zlev(klon, klev+1)
+  REAL zlay(klon, klev)
+  REAL u(klon, klev)
+  REAL v(klon, klev)
+  REAL teta(klon, klev)
+  REAL cd(klon)
+  REAL q2(klon, klev+1)
+  REAL km(klon, klev+1)
+  REAL kn(klon, klev+1)
+  INTEGER l_mix, ngrid
+
+
+  INTEGER nlay, nlev
+  ! ym      PARAMETER (nlay=klev)
+  ! ym      PARAMETER (nlev=klev+1)
+
+  LOGICAL first
+  SAVE first
+  DATA first/.TRUE./
+  !$OMP THREADPRIVATE(first)
+
+  INTEGER ig, k
+
+  REAL ri, zrif, zalpha, zsm
+  REAL rif(klon, klev+1), sm(klon, klev+1), alpha(klon, klev)
+
+  REAL m2(klon, klev+1), dz(klon, klev+1), zq, n2(klon, klev+1)
+  REAL l(klon, klev+1), l0(klon)
+
+  REAL sq(klon), sqz(klon), zz(klon, klev+1)
+  INTEGER iter
+
+  REAL ric, rifc, b1, kap
+  SAVE ric, rifc, b1, kap
+  DATA ric, rifc, b1, kap/0.195, 0.191, 16.6, 0.3/
+  !$OMP THREADPRIVATE(ric,rifc,b1,kap)
+
+  REAL frif, falpha, fsm
+
+  frif(ri) = 0.6588*(ri+0.1776-sqrt(ri*ri-0.3221*ri+0.03156))
+  falpha(ri) = 1.318*(0.2231-ri)/(0.2341-ri)
+  fsm(ri) = 1.96*(0.1912-ri)*(0.2341-ri)/((1.-ri)*(0.2231-ri))
+
+  nlay = klev
+  nlev = klev + 1
+
+  IF (0==1 .AND. first) THEN
+    DO ig = 1, 1000
+      ri = (ig-800.)/500.
+      IF (ri<ric) THEN
+        zrif = frif(ri)
+      ELSE
+        zrif = rifc
+      END IF
+      IF (zrif<0.16) THEN
+        zalpha = falpha(zrif)
+        zsm = fsm(zrif)
+      ELSE
+        zalpha = 1.12
+        zsm = 0.085
+      END IF
+      PRINT *, ri, rif, zalpha, zsm
+    END DO
+    first = .FALSE.
+  END IF
+
+  ! Correction d'un bug sauvage a verifier.
+  ! do k=2,nlev
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      dz(ig, k) = zlay(ig, k) - zlay(ig, k-1)
+      m2(ig, k) = ((u(ig,k)-u(ig,k-1))**2+(v(ig,k)-v(ig, &
+        k-1))**2)/(dz(ig,k)*dz(ig,k))
+      n2(ig, k) = g*2.*(teta(ig,k)-teta(ig,k-1))/(teta(ig,k-1)+teta(ig,k))/ &
+        dz(ig, k)
+      ri = n2(ig, k)/max(m2(ig,k), 1.E-10)
+      IF (ri<ric) THEN
+        rif(ig, k) = frif(ri)
+      ELSE
+        rif(ig, k) = rifc
+      END IF
+      IF (rif(ig,k)<0.16) THEN
+        alpha(ig, k) = falpha(rif(ig,k))
+        sm(ig, k) = fsm(rif(ig,k))
+      ELSE
+        alpha(ig, k) = 1.12
+        sm(ig, k) = 0.085
+      END IF
+      zz(ig, k) = b1*m2(ig, k)*(1.-rif(ig,k))*sm(ig, k)
+    END DO
+  END DO
+
+  ! iterration pour determiner la longueur de melange
+
+  DO ig = 1, ngrid
+    l0(ig) = 100.
+  END DO
+  DO k = 2, klev - 1
+    DO ig = 1, ngrid
+      l(ig, k) = l0(ig)*kap*zlev(ig, k)/(kap*zlev(ig,k)+l0(ig))
+    END DO
+  END DO
+
+  DO iter = 1, 10
+    DO ig = 1, ngrid
+      sq(ig) = 1.E-10
+      sqz(ig) = 1.E-10
+    END DO
+    DO k = 2, klev - 1
+      DO ig = 1, ngrid
+        q2(ig, k) = l(ig, k)**2*zz(ig, k)
+        l(ig, k) = min(l0(ig)*kap*zlev(ig,k)/(kap*zlev(ig, &
+          k)+l0(ig)), 0.5*sqrt(q2(ig,k))/sqrt(max(n2(ig,k),1.E-10)))
+        zq = sqrt(q2(ig,k))
+        sqz(ig) = sqz(ig) + zq*zlev(ig, k)*(zlay(ig,k)-zlay(ig,k-1))
+        sq(ig) = sq(ig) + zq*(zlay(ig,k)-zlay(ig,k-1))
+      END DO
+    END DO
+    DO ig = 1, ngrid
+      l0(ig) = 0.2*sqz(ig)/sq(ig)
+    END DO
+    ! (abd 3 5 2)         print*,'ITER=',iter,'  L0=',l0
+
+  END DO
+
+  DO k = 2, klev
+    DO ig = 1, ngrid
+      l(ig, k) = min(l0(ig)*kap*zlev(ig,k)/(kap*zlev(ig, &
+        k)+l0(ig)), 0.5*sqrt(q2(ig,k))/sqrt(max(n2(ig,k),1.E-10)))
+      q2(ig, k) = l(ig, k)**2*zz(ig, k)
+      km(ig, k) = l(ig, k)*sqrt(q2(ig,k))*sm(ig, k)
+      kn(ig, k) = km(ig, k)*alpha(ig, k)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE yamada
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada4.F90	(revision 3330)
@@ -0,0 +1,957 @@
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+SUBROUTINE yamada4(ni, nsrf, ngrid, dt, g, rconst, plev, temp, zlev, zlay, u, v, teta, &
+    cd, q2, km, kn, kq, ustar, iflag_pbl)
+
+  USE dimphy
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+
+  IMPLICIT NONE
+  include "iniprint.h"
+  ! .......................................................................
+  ! ym#include "dimensions.h"
+  ! ym#include "dimphy.h"
+  ! ************************************************************************************************
+  !
+  ! yamada4: subroutine qui calcule le transfert turbulent avec une fermeture d'ordre 2 ou 2.5
+  ! 
+  ! Reference: Simulation of nocturnal drainage flows by a q2l Turbulence Closure Model
+  !            Yamada T.
+  !            J. Atmos. Sci, 40, 91-106, 1983
+  !
+  !************************************************************************************************
+  ! Input :
+  !'======
+  ! ni: indice horizontal sur la grille de base, non restreinte
+  ! nsrf: type de surface
+  ! ngrid: nombre de mailles concern??es sur l'horizontal
+  ! dt : pas de temps
+  ! g  : g
+  ! rconst: constante de l'air sec
+  ! zlev : altitude a chaque niveau (interface inferieure de la couche
+  ! de meme indice)
+  ! zlay : altitude au centre de chaque couche
+  ! u,v : vitesse au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! teta : temperature potentielle virtuelle au centre de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! cd : cdrag pour la quantit?? de mouvement
+  ! (en entree : la valeur au debut du pas de temps)
+  ! ustar: vitesse de friction calcul??e par une formule diagnostique 
+  ! iflag_pbl: flag pour choisir des options du sch??ma de turbulence
+  !
+  !             iflag_pbl doit valoir entre 6 et 9
+  !             l=6, on prend  systematiquement une longueur d'equilibre
+  !             iflag_pbl=6 : MY 2.0
+  !             iflag_pbl=7 : MY 2.0.Fournier
+  !             iflag_pbl=8/9 : MY 2.5
+  !             iflag_pbl=8 with special obsolete treatments for convergence
+  !             with Cmpi5 NPv3.1 simulations
+  !             iflag_pbl=10/11 :  New scheme M2 and N2 explicit and dissiptation exact
+  !             iflag_pbl=12 = 11 with vertical diffusion off q2
+  !
+  !             2013/04/01 (FH hourdin@lmd.jussieu.fr)
+  !             Correction for very stable PBLs (iflag_pbl=10 and 11)
+  !             iflag_pbl=8 converges numerically with NPv3.1
+  !             iflag_pbl=11 -> the model starts with NP from start files created by ce0l
+  !                          -> the model can run with longer time-steps.
+  !
+  ! Inpout/Output :
+  !==============
+  ! q2 : $q^2$ au bas de chaque couche
+  ! (en entree : la valeur au debut du pas de temps)
+  ! (en sortie : la valeur a la fin du pas de temps)
+ 
+  ! Outputs:
+  !==========
+  ! km : diffusivite turbulente de quantite de mouvement (au bas de chaque
+  ! couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  ! kn : diffusivite turbulente des scalaires (au bas de chaque couche)
+  ! (en sortie : la valeur a la fin du pas de temps)
+  !
+  !.......................................................................
+
+  !=======================================================================
+  ! Declarations:
+  !=======================================================================
+
+
+  ! Inputs/Outputs
+  !----------------
+  REAL dt, g, rconst
+  REAL plev(klon, klev+1), temp(klon, klev)
+  REAL ustar(klon)
+  REAL kmin, qmin, pblhmin(klon), coriol(klon)
+  REAL zlev(klon, klev+1)
+  REAL zlay(klon, klev)
+  REAL u(klon, klev)
+  REAL v(klon, klev)
+  REAL teta(klon, klev)
+  REAL cd(klon)
+  REAL q2(klon, klev+1)
+  REAL unsdz(klon, klev)
+  REAL unsdzdec(klon, klev+1)
+  REAL kn(klon, klev+1)
+  REAL km(klon, klev+1)
+  INTEGER iflag_pbl, ngrid, nsrf
+  INTEGER ni(klon)
+
+
+  ! Local
+  !-------
+
+  INCLUDE "clesphys.h"
+
+
+  REAL kmpre(klon, klev+1), tmp2, qpre
+  REAL mpre(klon, klev+1)
+  REAL kq(klon, klev+1)
+  REAL ff(klon, klev+1), delta(klon, klev+1)
+  REAL aa(klon, klev+1), aa0, aa1
+  INTEGER nlay, nlev
+  LOGICAL first
+  INTEGER ipas
+  SAVE first, ipas
+  ! FH/IM     data first,ipas/.true.,0/
+  DATA first, ipas/.FALSE., 0/
+  !$OMP THREADPRIVATE( first,ipas)
+  LOGICAL hboville
+  INTEGER ig, k
+  REAL ri, zrif, zalpha, zsm, zsn
+  REAL rif(klon, klev+1), sm(klon, klev+1), alpha(klon, klev)
+  REAL m2(klon, klev+1), dz(klon, klev+1), zq, n2(klon, klev+1)
+  REAL dtetadz(klon, klev+1)
+  REAL m2cstat, mcstat, kmcstat
+  REAL l(klon, klev+1)
+  REAL zz(klon, klev+1)
+  INTEGER iter
+  REAL ric, rifc, b1, kap
+  SAVE ric, rifc, b1, kap
+  DATA ric, rifc, b1, kap/0.195, 0.191, 16.6, 0.4/
+  !$OMP THREADPRIVATE(ric,rifc,b1,kap)
+  REAL seuilsm, seuilalpha
+  REAL,SAVE :: lmixmin
+  !$OMP THREADPRIVATE(lmixmin)
+  REAL frif, falpha, fsm
+  REAL rino(klon, klev+1), smyam(klon, klev), styam(klon, klev), &
+    lyam(klon, klev), knyam(klon, klev), w2yam(klon, klev), t2yam(klon, klev)
+  LOGICAL, SAVE :: firstcall = .TRUE.
+  !$OMP THREADPRIVATE(firstcall)
+
+
+  ! Fonctions utilis??es
+  !--------------------
+
+  frif(ri) = 0.6588*(ri+0.1776-sqrt(ri*ri-0.3221*ri+0.03156))
+  falpha(ri) = 1.318*(0.2231-ri)/(0.2341-ri)
+  fsm(ri) = 1.96*(0.1912-ri)*(0.2341-ri)/((1.-ri)*(0.2231-ri))
+  
+
+  IF (firstcall) THEN
+    firstcall = .FALSE.
+    lmixmin=1.
+    CALL getin_p('lmixmin',lmixmin)
+  END IF
+
+
+
+!===============================================================================
+! Flags, tests et ??valuations de constantes
+!===============================================================================
+
+! On utilise ou non la routine de Holstalg Boville pour les cas tres stables
+   hboville=.TRUE.
+
+
+  IF (.NOT. (iflag_pbl>=6 .AND. iflag_pbl<=12)) THEN
+    STOP 'probleme de coherence dans appel a MY'
+  END IF
+
+! Seuil dans le code de turbulence 
+ seuilalpha=1.12
+ seuilsm=0.085
+
+  nlay = klev
+  nlev = klev + 1
+  ipas = ipas + 1
+
+
+!========================================================================
+! Calcul des increments verticaux
+!=========================================================================
+
+  
+! Attention: zlev n'est pas declare a nlev
+  DO ig = 1, ngrid
+    zlev(ig, nlev) = zlay(ig, nlay) + (zlay(ig,nlay)-zlev(ig,nlev-1))
+  END DO
+
+
+  DO k = 1, nlay
+    DO ig = 1, ngrid
+      unsdz(ig, k) = 1.E+0/(zlev(ig,k+1)-zlev(ig,k))
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    unsdzdec(ig, 1) = 1.E+0/(zlay(ig,1)-zlev(ig,1))
+  END DO
+  DO k = 2, nlay
+    DO ig = 1, ngrid
+      unsdzdec(ig, k) = 1.E+0/(zlay(ig,k)-zlay(ig,k-1))
+    END DO
+  END DO
+  DO ig = 1, ngrid
+    unsdzdec(ig, nlay+1) = 1.E+0/(zlev(ig,nlay+1)-zlay(ig,nlay))
+  END DO
+
+!=========================================================================
+! Richardson number and stability functions
+!=========================================================================
+ 
+! initialize arrays:
+
+  m2(1:ngrid, :) = 0.0
+  sm(1:ngrid, :) = 0.0
+  rif(1:ngrid, :) = 0.0
+
+!------------------------------------------------------------
+  DO k = 2, klev
+
+    DO ig = 1, ngrid
+      dz(ig, k) = zlay(ig, k) - zlay(ig, k-1)
+      m2(ig, k) = ((u(ig,k)-u(ig,k-1))**2+(v(ig,k)-v(ig, &
+        k-1))**2)/(dz(ig,k)*dz(ig,k))
+      dtetadz(ig, k) = (teta(ig,k)-teta(ig,k-1))/dz(ig, k)
+      n2(ig, k) = g*2.*dtetadz(ig, k)/(teta(ig,k-1)+teta(ig,k))
+      ri = n2(ig, k)/max(m2(ig,k), 1.E-10)
+      IF (ri<ric) THEN
+        rif(ig, k) = frif(ri)
+      ELSE
+        rif(ig, k) = rifc
+      END IF
+
+      IF (rif(ig,k)<0.16) THEN
+        alpha(ig, k) = falpha(rif(ig,k))
+        sm(ig, k) = fsm(rif(ig,k))
+      ELSE
+        alpha(ig, k) = seuilalpha
+        sm(ig, k) = seuilsm
+      END IF
+      zz(ig, k) = b1*m2(ig, k)*(1.-rif(ig,k))*sm(ig, k)
+    END DO
+  END DO
+
+
+
+! ====================================================================
+! Computing the mixing length
+! ====================================================================
+
+ 
+  CALL mixinglength(ni,nsrf,ngrid,iflag_pbl,pbl_lmixmin_alpha,lmixmin,zlay,zlev,u,v,q2,n2, l)
+
+
+
+  !=======================================================================
+  !     DIFFERENT TYPES  DE SCHEMA de  YAMADA
+  !=======================================================================
+
+  !--------------
+  ! Yamada 2.0
+  !--------------
+  IF (iflag_pbl==6) THEN
+ 
+    DO k = 2, klev
+      q2(1:ngrid, k) = l(1:ngrid, k)**2*zz(1:ngrid, k)
+    END DO
+
+
+  !------------------
+  ! Yamada 2.Fournier
+  !------------------
+
+  ELSE IF (iflag_pbl==7) THEN
+
+
+    ! Calcul de l,  km, au pas precedent
+    !....................................
+    DO k = 2, klev
+      DO ig = 1, ngrid
+        delta(ig, k) = q2(ig, k)/(l(ig,k)**2*sm(ig,k))
+        kmpre(ig, k) = l(ig, k)*sqrt(q2(ig,k))*sm(ig, k)
+        mpre(ig, k) = sqrt(m2(ig,k))
+      END DO
+    END DO
+
+    DO k = 2, klev - 1
+      DO ig = 1, ngrid
+        m2cstat = max(alpha(ig,k)*n2(ig,k)+delta(ig,k)/b1, 1.E-12)
+        mcstat = sqrt(m2cstat)
+
+     ! Puis on ecrit la valeur de q qui annule l'equation de m supposee en q3
+     !.........................................................................
+
+        IF (k==2) THEN
+          kmcstat = 1.E+0/mcstat*(unsdz(ig,k)*kmpre(ig,k+1)*mpre(ig,k+1)+ &
+            unsdz(ig,k-1)*cd(ig)*(sqrt(u(ig,3)**2+v(ig,3)**2)-mcstat/unsdzdec &
+            (ig,k)-mpre(ig,k+1)/unsdzdec(ig,k+1))**2)/(unsdz(ig,k)+unsdz(ig,k &
+            -1))
+        ELSE
+          kmcstat = 1.E+0/mcstat*(unsdz(ig,k)*kmpre(ig,k+1)*mpre(ig,k+1)+ &
+            unsdz(ig,k-1)*kmpre(ig,k-1)*mpre(ig,k-1))/ &
+            (unsdz(ig,k)+unsdz(ig,k-1))
+        END IF
+
+        tmp2 = kmcstat/(sm(ig,k)/q2(ig,k))/l(ig, k)
+        q2(ig, k) = max(tmp2, 1.E-12)**(2./3.)
+
+      END DO
+    END DO
+
+
+    ! ------------------------
+    ! Yamada 2.5 a la Didi
+    !-------------------------
+
+  ELSE IF (iflag_pbl==8 .OR. iflag_pbl==9) THEN
+
+    ! Calcul de l, km, au pas precedent
+    !....................................
+    DO k = 2, klev
+      DO ig = 1, ngrid
+        delta(ig, k) = q2(ig, k)/(l(ig,k)**2*sm(ig,k))
+        IF (delta(ig,k)<1.E-20) THEN
+          delta(ig, k) = 1.E-20
+        END IF
+        km(ig, k) = l(ig, k)*sqrt(q2(ig,k))*sm(ig, k)
+        aa0 = (m2(ig,k)-alpha(ig,k)*n2(ig,k)-delta(ig,k)/b1)
+        aa1 = (m2(ig,k)*(1.-rif(ig,k))-delta(ig,k)/b1)
+        aa(ig, k) = aa1*dt/(delta(ig,k)*l(ig,k))
+        qpre = sqrt(q2(ig,k))
+        IF (aa(ig,k)>0.) THEN
+          q2(ig, k) = (qpre+aa(ig,k)*qpre*qpre)**2
+        ELSE
+          q2(ig, k) = (qpre/(1.-aa(ig,k)*qpre))**2
+        END IF
+        ! else ! iflag_pbl=9
+        ! if (aa(ig,k)*qpre.gt.0.9) then
+        ! q2(ig,k)=(qpre*10.)**2
+        ! else
+        ! q2(ig,k)=(qpre/(1.-aa(ig,k)*qpre))**2
+        ! endif
+        ! endif
+        q2(ig, k) = min(max(q2(ig,k),1.E-10), 1.E4)
+      END DO
+    END DO
+
+  ELSE IF (iflag_pbl>=10) THEN
+
+    DO k = 2, klev - 1
+      km(1:ngrid, k) = l(1:ngrid, k)*sqrt(q2(1:ngrid,k))*sm(1:ngrid, k)
+      q2(1:ngrid, k) = q2(1:ngrid, k) + dt*km(1:ngrid, k)*m2(1:ngrid, k)*(1.-rif(1:ngrid,k))
+      q2(1:ngrid, k) = min(max(q2(1:ngrid,k),1.E-10), 1.E4)
+      q2(1:ngrid, k) = 1./(1./sqrt(q2(1:ngrid,k))+dt/(2*l(1:ngrid,k)*b1))
+      q2(1:ngrid, k) = q2(1:ngrid, k)*q2(1:ngrid, k)
+    END DO
+
+
+  ELSE
+    STOP 'Cas nom prevu dans yamada4'
+
+  END IF ! Fin du cas 8
+
+
+  ! ====================================================================
+  ! Calcul des coefficients de melange
+  ! ====================================================================
+
+  DO k = 2, klev
+    DO ig = 1, ngrid
+      zq = sqrt(q2(ig,k))
+      km(ig, k) = l(ig, k)*zq*sm(ig, k)     ! For momentum
+      kn(ig, k) = km(ig, k)*alpha(ig, k)    ! For scalars
+      kq(ig, k) = l(ig, k)*zq*0.2           ! For TKE
+    END DO
+  END DO
+
+
+  !====================================================================
+  ! Transport diffusif vertical de la TKE par la TKE
+  !====================================================================
+
+
+    ! initialize near-surface and top-layer mixing coefficients
+    !...........................................................
+
+  kq(1:ngrid, 1) = kq(1:ngrid, 2)    ! constant (ie no gradient) near the surface
+  kq(1:ngrid, klev+1) = 0            ! zero at the top
+
+    ! Transport diffusif vertical de la TKE.
+    !.......................................
+
+  IF (iflag_pbl>=12) THEN
+    q2(1:ngrid, 1) = q2(1:ngrid, 2)
+    CALL vdif_q2(dt, g, rconst, ngrid, plev, temp, kq, q2)
+  END IF
+
+
+  !====================================================================
+  ! Traitement particulier pour les cas tres stables, introduction d'une
+  ! longueur de m??lange minimale
+  !====================================================================
+  !
+  ! Reference: Local versus Nonlocal boundary-layer diffusion in a global climate model
+  !            Holtslag A.A.M. and Boville B.A.
+  !            J. Clim., 6, 1825-1842, 1993
+
+
+ IF (hboville) THEN
+
+
+  IF (prt_level>1) THEN
+    PRINT *, 'YAMADA4 0'
+  END IF 
+
+  DO ig = 1, ngrid
+    coriol(ig) = 1.E-4
+    pblhmin(ig) = 0.07*ustar(ig)/max(abs(coriol(ig)), 2.546E-5)
+  END DO
+
+  IF (1==1) THEN
+    IF (iflag_pbl==8 .OR. iflag_pbl==10) THEN
+
+      DO k = 2, klev
+        DO ig = 1, ngrid
+          IF (teta(ig,2)>teta(ig,1)) THEN
+            qmin = ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
+            kmin = kap*zlev(ig, k)*qmin
+          ELSE
+            kmin = -1. ! kmin n'est utilise que pour les SL stables.
+          END IF
+          IF (kn(ig,k)<kmin .OR. km(ig,k)<kmin) THEN
+
+            kn(ig, k) = kmin
+            km(ig, k) = kmin
+            kq(ig, k) = kmin
+
+ ! la longueur de melange est suposee etre l= kap z
+ ! K=l q Sm d'ou q2=(K/l Sm)**2
+
+            q2(ig, k) = (qmin/sm(ig,k))**2
+          END IF
+        END DO
+      END DO
+
+    ELSE
+      DO k = 2, klev
+        DO ig = 1, ngrid
+          IF (teta(ig,2)>teta(ig,1)) THEN
+            qmin = ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
+            kmin = kap*zlev(ig, k)*qmin
+          ELSE
+            kmin = -1. ! kmin n'est utilise que pour les SL stables.
+          END IF
+          IF (kn(ig,k)<kmin .OR. km(ig,k)<kmin) THEN
+            kn(ig, k) = kmin
+            km(ig, k) = kmin
+            kq(ig, k) = kmin
+ ! la longueur de melange est suposee etre l= kap z
+ ! K=l q Sm d'ou q2=(K/l Sm)**2
+            sm(ig, k) = 1.
+            alpha(ig, k) = 1.
+            q2(ig, k) = min((qmin/sm(ig,k))**2, 10.)
+            zq = sqrt(q2(ig,k))
+            km(ig, k) = l(ig, k)*zq*sm(ig, k)
+            kn(ig, k) = km(ig, k)*alpha(ig, k)
+            kq(ig, k) = l(ig, k)*zq*0.2
+          END IF
+        END DO
+      END DO
+    END IF
+
+  END IF
+
+ END IF ! hboville
+
+  IF (prt_level>1) THEN
+    PRINT *, 'YAMADA4 1'
+  END IF !(prt_level>1) THEN
+
+
+ !======================================================
+ ! Estimations de w'2 et T'2 d'apres Abdela et McFarlane
+ !======================================================
+ !
+ ! Reference: A New Second-Order Turbulence Closure Scheme for the Planetary Boundary Layer
+ !            Abdella K and McFarlane N
+ !            J. Atmos. Sci., 54, 1850-1867, 1997
+
+  ! Diagnostique pour stokage
+  !..........................
+
+  IF (1==0) THEN
+    rino = rif
+    smyam(1:ngrid, 1) = 0.
+    styam(1:ngrid, 1) = 0.
+    lyam(1:ngrid, 1) = 0.
+    knyam(1:ngrid, 1) = 0.
+    w2yam(1:ngrid, 1) = 0.
+    t2yam(1:ngrid, 1) = 0.
+
+    smyam(1:ngrid, 2:klev) = sm(1:ngrid, 2:klev)
+    styam(1:ngrid, 2:klev) = sm(1:ngrid, 2:klev)*alpha(1:ngrid, 2:klev)
+    lyam(1:ngrid, 2:klev) = l(1:ngrid, 2:klev)
+    knyam(1:ngrid, 2:klev) = kn(1:ngrid, 2:klev)
+
+
+  ! Calcul de w'2 et T'2
+  !.......................
+
+    w2yam(1:ngrid, 2:klev) = q2(1:ngrid, 2:klev)*0.24 + &
+      lyam(1:ngrid, 2:klev)*5.17*kn(1:ngrid, 2:klev)*n2(1:ngrid, 2:klev)/ &
+      sqrt(q2(1:ngrid,2:klev))
+
+    t2yam(1:ngrid, 2:klev) = 9.1*kn(1:ngrid, 2:klev)* &
+      dtetadz(1:ngrid, 2:klev)**2/sqrt(q2(1:ngrid,2:klev))* &
+      lyam(1:ngrid, 2:klev)
+  END IF
+
+!============================================================================
+
+  first = .FALSE.
+  RETURN
+
+
+END SUBROUTINE yamada4
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+SUBROUTINE vdif_q2(timestep, gravity, rconst, ngrid, plev, temp, kmy, q2)
+
+  USE dimphy
+  IMPLICIT NONE
+ 
+  include "dimensions.h"
+
+!    vdif_q2: subroutine qui calcule la diffusion de la TKE par la TKE
+!             avec un schema implicite en temps avec 
+!             inversion d'un syst??me tridiagonal
+! 
+!     Reference: Description of the interface with the surface and 
+!                the computation of the turbulet diffusion in LMDZ
+!                Technical note on LMDZ
+!                Dufresne, J-L, Ghattas, J. and Grandpeix, J-Y
+!
+!============================================================================
+! Declarations
+!============================================================================
+
+  REAL plev(klon, klev+1)
+  REAL temp(klon, klev)
+  REAL timestep
+  REAL gravity, rconst
+  REAL kstar(klon, klev+1), zz
+  REAL kmy(klon, klev+1)
+  REAL q2(klon, klev+1)
+  REAL deltap(klon, klev+1)
+  REAL denom(klon, klev+1), alpha(klon, klev+1), beta(klon, klev+1)
+  INTEGER ngrid
+
+  INTEGER i, k
+
+
+!=========================================================================
+! Calcul
+!=========================================================================
+
+  DO k = 1, klev
+    DO i = 1, ngrid
+      zz = (plev(i,k)+plev(i,k+1))*gravity/(rconst*temp(i,k))
+      kstar(i, k) = 0.125*(kmy(i,k+1)+kmy(i,k))*zz*zz/ &
+        (plev(i,k)-plev(i,k+1))*timestep
+    END DO
+  END DO
+
+  DO k = 2, klev
+    DO i = 1, ngrid
+      deltap(i, k) = 0.5*(plev(i,k-1)-plev(i,k+1))
+    END DO
+  END DO
+  DO i = 1, ngrid
+    deltap(i, 1) = 0.5*(plev(i,1)-plev(i,2))
+    deltap(i, klev+1) = 0.5*(plev(i,klev)-plev(i,klev+1))
+    denom(i, klev+1) = deltap(i, klev+1) + kstar(i, klev)
+    alpha(i, klev+1) = deltap(i, klev+1)*q2(i, klev+1)/denom(i, klev+1)
+    beta(i, klev+1) = kstar(i, klev)/denom(i, klev+1)
+  END DO
+
+  DO k = klev, 2, -1
+    DO i = 1, ngrid
+      denom(i, k) = deltap(i, k) + (1.-beta(i,k+1))*kstar(i, k) + &
+        kstar(i, k-1)
+      alpha(i, k) = (q2(i,k)*deltap(i,k)+kstar(i,k)*alpha(i,k+1))/denom(i, k)
+      beta(i, k) = kstar(i, k-1)/denom(i, k)
+    END DO
+  END DO
+
+  ! Si on recalcule q2(1)
+  !.......................
+  IF (1==0) THEN
+    DO i = 1, ngrid
+      denom(i, 1) = deltap(i, 1) + (1-beta(i,2))*kstar(i, 1)
+      q2(i, 1) = (q2(i,1)*deltap(i,1)+kstar(i,1)*alpha(i,2))/denom(i, 1)
+    END DO
+  END IF
+
+
+  DO k = 2, klev + 1
+    DO i = 1, ngrid
+      q2(i, k) = alpha(i, k) + beta(i, k)*q2(i, k-1)
+    END DO
+  END DO
+
+  RETURN
+END SUBROUTINE vdif_q2
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+ SUBROUTINE vdif_q2e(timestep, gravity, rconst, ngrid, plev, temp, kmy, q2)
+  
+   USE dimphy
+  IMPLICIT NONE
+
+  include "dimensions.h"
+!
+! vdif_q2e: subroutine qui calcule la diffusion de TKE par la TKE
+!           avec un schema explicite en temps
+
+
+!====================================================
+! Declarations
+!====================================================
+
+  REAL plev(klon, klev+1)
+  REAL temp(klon, klev)
+  REAL timestep
+  REAL gravity, rconst
+  REAL kstar(klon, klev+1), zz
+  REAL kmy(klon, klev+1)
+  REAL q2(klon, klev+1)
+  REAL deltap(klon, klev+1)
+  REAL denom(klon, klev+1), alpha(klon, klev+1), beta(klon, klev+1)
+  INTEGER ngrid
+  INTEGER i, k
+
+
+!==================================================
+! Calcul
+!==================================================
+
+  DO k = 1, klev
+    DO i = 1, ngrid
+      zz = (plev(i,k)+plev(i,k+1))*gravity/(rconst*temp(i,k))
+      kstar(i, k) = 0.125*(kmy(i,k+1)+kmy(i,k))*zz*zz/ &
+        (plev(i,k)-plev(i,k+1))*timestep
+    END DO
+  END DO
+
+  DO k = 2, klev
+    DO i = 1, ngrid
+      deltap(i, k) = 0.5*(plev(i,k-1)-plev(i,k+1))
+    END DO
+  END DO
+  DO i = 1, ngrid
+    deltap(i, 1) = 0.5*(plev(i,1)-plev(i,2))
+    deltap(i, klev+1) = 0.5*(plev(i,klev)-plev(i,klev+1))
+  END DO
+
+  DO k = klev, 2, -1
+    DO i = 1, ngrid
+      q2(i, k) = q2(i, k) + (kstar(i,k)*(q2(i,k+1)-q2(i, &
+        k))-kstar(i,k-1)*(q2(i,k)-q2(i,k-1)))/deltap(i, k)
+    END DO
+  END DO
+
+  DO i = 1, ngrid
+    q2(i, 1) = q2(i, 1) + (kstar(i,1)*(q2(i,2)-q2(i,1)))/deltap(i, 1)
+    q2(i, klev+1) = q2(i, klev+1) + (-kstar(i,klev)*(q2(i,klev+1)-q2(i, &
+      klev)))/deltap(i, klev+1)
+  END DO
+
+  RETURN
+END SUBROUTINE vdif_q2e
+
+!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+SUBROUTINE mixinglength(ni, nsrf, ngrid,iflag_pbl,pbl_lmixmin_alpha,lmixmin,zlay,zlev,u,v,q2,n2, lmix)
+
+
+
+  USE dimphy
+  USE phys_state_var_mod, only: zstd, zsig, zmea
+  USE phys_local_var_mod, only: l_mixmin, l_mix
+
+ ! zstd: ecart type de la'altitud e sous-maille
+ ! zmea: altitude moyenne sous maille
+ ! zsig: pente moyenne de le maille
+
+  USE geometry_mod, only: cell_area
+  ! aire_cell: aire de la maille
+
+  IMPLICIT NONE
+!*************************************************************************
+! Subrourine qui calcule la longueur de m??lange dans le sch??ma de turbulence
+! avec la formule de Blackadar 
+! Calcul d'un  minimum en fonction de l'orographie sous-maille:
+! L'id??e est la suivante: plus il y a de relief, plus il y a du m??lange
+! induit par les circulations meso et submeso ??chelles.
+!
+! References: * The vertical distribution of wind and turbulent exchange in a neutral atmosphere
+!               Blackadar A.K.
+!               J. Geophys. Res., 64, No 8, 1962
+!
+!             * An evaluation of neutral and convective planetary boundary-layer parametrisations relative 
+!               to large eddy simulations
+!               Ayotte K et al 
+!               Boundary Layer Meteorology, 79, 131-175, 1996
+!
+!
+!             * Local Similarity in the Stable Boundary Layer and Mixing length Approaches: consistency of concepts
+!               Van de Wiel B.J.H et al
+!               Boundary-Lay Meteorol, 128, 103-166, 2008
+!
+!
+! Histoire:
+!----------
+! * premi??re r??daction, Etienne et Frederic, 09/06/2016
+!
+! ***********************************************************************
+
+!==================================================================
+! Declarations
+!==================================================================
+
+! Inputs
+!-------
+ INTEGER            ni(klon)           ! indice sur la grille original (non restreinte)
+ INTEGER            nsrf               ! Type de surface
+ INTEGER            ngrid              ! Nombre de points concern??s sur l'horizontal
+ INTEGER            iflag_pbl          ! Choix du sch??ma de turbulence
+ REAL            pbl_lmixmin_alpha  ! on active ou non le calcul de la longueur de melange minimum
+ REAL               lmixmin            ! Minimum absolu de la longueur de m??lange
+ REAL               zlay(klon, klev)   ! altitude du centre de la couche
+ REAL               zlev(klon, klev+1) ! atitude de l'interface inf??rieure de la couche
+ REAL               u(klon, klev)      ! vitesse du vent zonal
+ REAL               v(klon, klev)      ! vitesse du vent meridional
+ REAL               q2(klon, klev+1)   ! energie cin??tique turbulente 
+ REAL               n2(klon, klev+1)   ! frequence de Brunt-Vaisala
+
+!In/out
+!-------
+
+  LOGICAL, SAVE :: firstcall = .TRUE.
+  !$OMP THREADPRIVATE(firstcall)
+
+! Outputs
+!---------
+
+ REAL               lmix(klon, klev+1)    ! Longueur de melange  
+
+
+! Local
+!-------
+  
+ INTEGER  ig,jg, k
+ REAL     h_oro(klon)
+ REAL     hlim(klon)
+ REAL, SAVE :: kap=0.4,kapb=0.4
+ REAL zq
+ REAL sq(klon), sqz(klon)
+ REAL, ALLOCATABLE, SAVE :: l0(:)
+  !$OMP THREADPRIVATE(l0)
+ REAL fl, zzz, zl0, zq2, zn2
+ REAL famorti, zzzz, zh_oro, zhlim
+ REAL l1(klon, klev+1), l2(klon,klev+1)
+ REAL winds(klon, klev)
+ REAL xcell
+ REAL zstdslope(klon)  
+ REAL lmax
+ REAL l2strat, l2neutre, extent  
+ REAL l2limit(klon)
+!===============================================================
+! Fonctions utiles
+!===============================================================
+
+! Calcul de l suivant la formule de Blackadar 1962 adapt??e par Ayotte 1996
+!..........................................................................
+
+ fl(zzz, zl0, zq2, zn2) = max(min(l0(ig)*kap*zlev(ig, &
+    k)/(kap*zlev(ig,k)+l0(ig)),0.5*sqrt(q2(ig,k))/sqrt( &
+    max(n2(ig,k),1.E-10))), 1.E-5)
+ 
+! Fonction d'amortissement de la turbulence au dessus de la montagne
+! On augmente l'amortissement en diminuant la valeur de hlim (extent) dans le code
+!.....................................................................
+
+ famorti(zzzz, zh_oro, zhlim)=(-1.)*ATAN((zzzz-zh_oro)/(zhlim-zh_oro))*2./3.1416+1.    
+
+  IF (ngrid==0) RETURN
+
+  IF (firstcall) THEN
+    ALLOCATE (l0(klon))
+    firstcall = .FALSE.
+  END IF
+
+
+!=====================================================================
+!         CALCUL de la LONGUEUR de m??lange suivant BLACKADAR: l1
+!=====================================================================
+
+
+  IF (iflag_pbl==8 .OR. iflag_pbl==10) THEN
+
+    
+    ! Iterative computation of l0
+    ! This version is kept for iflag_pbl only for convergence
+    ! with NPv3.1 Cmip5 simulations
+    !...................................................................
+
+    DO ig = 1, ngrid
+      sq(ig) = 1.E-10
+      sqz(ig) = 1.E-10
+    END DO
+    DO k = 2, klev - 1
+      DO ig = 1, ngrid
+        zq = sqrt(q2(ig,k))
+        sqz(ig) = sqz(ig) + zq*zlev(ig, k)*(zlay(ig,k)-zlay(ig,k-1))
+        sq(ig) = sq(ig) + zq*(zlay(ig,k)-zlay(ig,k-1))
+      END DO
+    END DO
+    DO ig = 1, ngrid
+      l0(ig) = 0.2*sqz(ig)/sq(ig)
+    END DO
+    DO k = 2, klev
+      DO ig = 1, ngrid
+        l1(ig, k) = fl(zlev(ig,k), l0(ig), q2(ig,k), n2(ig,k))
+      END DO
+    END DO
+
+  ELSE
+
+    
+    ! In all other case, the assymptotic mixing length l0 is imposed (150m)
+    !......................................................................
+
+    l0(1:ngrid) = 150.
+    DO k = 2, klev
+      DO ig = 1, ngrid
+        l1(ig, k) = fl(zlev(ig,k), l0(ig), q2(ig,k), n2(ig,k))
+      END DO
+    END DO
+
+  END IF
+
+!=================================================================================
+!  CALCUL d'une longueur de melange en fonctions de la topographie sous maille: l2
+! si plb_lmixmin_alpha=TRUE et si on se trouve sur de la terre ( pas actif sur les 
+! glacier, la glace de mer et les oc??ans)
+!=================================================================================
+
+   l2(1:ngrid,:)=0.0
+   l_mixmin(1:ngrid,:,nsrf)=0.
+   l_mix(1:ngrid,:,nsrf)=0.
+
+   IF (nsrf .EQ. 1) THEN
+
+! coefficients 
+!--------------
+
+     extent=2.                                                         ! On ??tend l'impact du relief jusqu'?? extent*h, extent >1.  
+     lmax=150.                                                         ! Longueur de m??lange max dans l'absolu
+
+! calculs
+!---------
+
+     DO ig=1,ngrid
+
+      ! On calcule la hauteur du relief
+      !.................................
+      ! On ne peut pas prendre zstd seulement pour caracteriser le relief sous maille
+      ! car sur un terrain pentu mais sans relief, zstd est non nul (comme en Antarctique, C. Genthon)
+      ! On corrige donc zstd avec l'ecart type de l'altitude dans la maille sans relief 
+      ! (en gros, une maille de taille xcell avec une pente constante zstdslope)
+      jg=ni(ig) 
+!     IF (zsig(jg) .EQ. 0.) THEN
+!          zstdslope(ig)=0.         
+!     ELSE
+!     xcell=sqrt(cell_area(jg))
+!     zstdslope(ig)=max((xcell*zsig(jg)-zmea(jg))**3 /(3.*zsig(jg)),0.)
+!     zstdslope(ig)=sqrt(zstdslope(ig))
+!     END IF
+      
+!     h_oro(ig)=max(zstd(jg)-zstdslope(ig),0.)   ! Hauteur du relief
+      h_oro(ig)=zstd(jg)
+      hlim(ig)=extent*h_oro(ig)     
+     ENDDO
+
+     l2limit(1:ngrid)=0.
+
+     DO k=2,klev
+        DO ig=1,ngrid
+           winds(ig,k)=sqrt(u(ig,k)**2+v(ig,k)**2)
+           IF (zlev(ig,k) .LE. h_oro(ig)) THEN  ! sous l'orographie
+              l2strat= kapb*pbl_lmixmin_alpha*winds(ig,k)/sqrt(max(n2(ig,k),1.E-10))  ! si stratifi??, amplitude d'oscillation * kappab (voir Van de Wiel et al 2008)
+              l2neutre=kap*zlev(ig,k)*h_oro(ig)/(kap*zlev(ig,k)+h_oro(ig))            ! Dans le cas neutre, formule de blackadar. tend asymptotiquement vers h
+              l2neutre=MIN(l2neutre,lmax)                                             ! On majore par lmax 
+              l2limit(ig)=MIN(l2neutre,l2strat)                                       ! Calcule de l2 (minimum de la longueur en cas neutre et celle en situation stratifi??e)
+              l2(ig,k)=l2limit(ig)
+                                      
+           ELSE IF (zlev(ig,k) .LE. hlim(ig)) THEN ! Si on est au dessus des montagnes, mais affect?? encore par elles
+
+      ! Au dessus des montagnes, on prend la l2limit au sommet des montagnes 
+      ! (la derni??re calcul??e dans la boucle k, vu que k est un indice croissant avec z)
+      ! et on multiplie l2limit par une fonction qui d??croit entre h et hlim
+              l2(ig,k)=l2limit(ig)*famorti(zlev(ig,k),h_oro(ig), hlim(ig))
+           ELSE                                                                    ! Au dessus de extent*h, on prend l2=l0 
+              l2(ig,k)=0.
+           END IF
+        ENDDO
+     ENDDO
+   ENDIF                                                                        ! pbl_lmixmin_alpha
+
+!==================================================================================
+! On prend le max entre la longueur de melange de blackadar et celle calcul??e
+! en fonction de la topographie 
+!===================================================================================
+
+
+ DO k=2,klev
+    DO ig=1,ngrid
+       lmix(ig,k)=MAX(MAX(l1(ig,k), l2(ig,k)),lmixmin)
+   ENDDO
+ ENDDO
+
+! Diagnostics
+
+ DO k=2,klev
+    DO ig=1,ngrid
+       jg=ni(ig)
+       l_mix(jg,k,nsrf)=lmix(ig,k)
+       l_mixmin(jg,k,nsrf)=l2(ig,k)
+    ENDDO
+ ENDDO
+ DO ig=1,ngrid
+    jg=ni(ig)
+    l_mix(jg,1,nsrf)=hlim(ig)
+ ENDDO
+
+
+
+END SUBROUTINE mixinglength
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada_c.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada_c.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/yamada_c.F90	(revision 3330)
@@ -0,0 +1,708 @@
+!
+! $Header$
+!
+      SUBROUTINE yamada_c(ngrid,timestep,plev,play &
+     &   ,pu,pv,pt,d_u,d_v,d_t,cd,q2,km,kn,kq,d_t_diss,ustar &
+     &   ,iflag_pbl,okiophys)
+      USE dimphy, ONLY: klon, klev
+      USE print_control_mod, ONLY: prt_level
+      IMPLICIT NONE
+#include "YOMCST.h"
+!
+! timestep : pas de temps
+! g  : g
+! zlev : altitude a chaque niveau (interface inferieure de la couche
+!        de meme indice)
+! zlay : altitude au centre de chaque couche
+! u,v : vitesse au centre de chaque couche
+!       (en entree : la valeur au debut du pas de temps)
+! teta : temperature potentielle au centre de chaque couche
+!        (en entree : la valeur au debut du pas de temps)
+! cd : cdrag
+!      (en entree : la valeur au debut du pas de temps)
+! q2 : $q^2$ au bas de chaque couche
+!      (en entree : la valeur au debut du pas de temps)
+!      (en sortie : la valeur a la fin du pas de temps)
+! km : diffusivite turbulente de quantite de mouvement (au bas de chaque
+!      couche)
+!      (en sortie : la valeur a la fin du pas de temps)
+! kn : diffusivite turbulente des scalaires (au bas de chaque couche)
+!      (en sortie : la valeur a la fin du pas de temps)
+!
+!  iflag_pbl doit valoir entre 6 et 9
+!      l=6, on prend  systematiquement une longueur d'equilibre
+!    iflag_pbl=6 : MY 2.0
+!    iflag_pbl=7 : MY 2.0.Fournier
+!    iflag_pbl=8/9 : MY 2.5
+!       iflag_pbl=8 with special obsolete treatments for convergence
+!       with Cmpi5 NPv3.1 simulations
+!    iflag_pbl=10/11 :  New scheme M2 and N2 explicit and dissiptation exact
+!    iflag_pbl=12 = 11 with vertical diffusion off q2
+!
+!  2013/04/01 (FH hourdin@lmd.jussieu.fr)
+!     Correction for very stable PBLs (iflag_pbl=10 and 11)
+!     iflag_pbl=8 converges numerically with NPv3.1
+!     iflag_pbl=11 -> the model starts with NP from start files created by ce0l
+!                  -> the model can run with longer time-steps.
+!.......................................................................
+
+      REAL, DIMENSION(klon,klev) :: d_u,d_v,d_t
+      REAL, DIMENSION(klon,klev) :: pu,pv,pt
+      REAL, DIMENSION(klon,klev) :: d_t_diss
+      INTEGER okiophys
+
+      REAL timestep
+      real plev(klon,klev+1)
+      real play(klon,klev)
+      real ustar(klon)
+      real kmin,qmin,pblhmin(klon),coriol(klon)
+      REAL zlev(klon,klev+1)
+      REAL zlay(klon,klev)
+      REAL zu(klon,klev)
+      REAL zv(klon,klev)
+      REAL zt(klon,klev)
+      REAL teta(klon,klev)
+      REAL cd(klon)
+      REAL q2(klon,klev+1),qpre
+      REAL unsdz(klon,klev)
+      REAL unsdzdec(klon,klev+1)
+
+      REAL km(klon,klev+1)
+      REAL kmpre(klon,klev+1),tmp2
+      REAL mpre(klon,klev+1)
+      REAL kn(klon,klev+1)
+      REAL kq(klon,klev+1)
+      real ff(klon,klev+1),delta(klon,klev+1)
+      real aa(klon,klev+1),aa0,aa1
+      integer iflag_pbl,ngrid
+      integer nlay,nlev
+
+      logical first
+      integer ipas
+      save first,ipas
+!FH/IM     data first,ipas/.true.,0/
+      data first,ipas/.false.,0/
+!$OMP THREADPRIVATE( first,ipas)
+
+      integer ig,k
+
+
+      real ri,zrif,zalpha,zsm,zsn
+      real rif(klon,klev+1),sm(klon,klev+1),alpha(klon,klev)
+
+      real m2(klon,klev+1),dz(klon,klev+1),zq,n2(klon,klev+1)
+      REAL, DIMENSION(klon,klev+1) :: km2,kn2,sqrtq
+      real dtetadz(klon,klev+1)
+      real m2cstat,mcstat,kmcstat
+      real l(klon,klev+1)
+      real leff(klon,klev+1)
+      real,allocatable,save :: l0(:)
+!$OMP THREADPRIVATE(l0)      
+      real sq(klon),sqz(klon),zz(klon,klev+1)
+      integer iter
+
+      real ric,rifc,b1,kap
+      save ric,rifc,b1,kap
+      data ric,rifc,b1,kap/0.195,0.191,16.6,0.4/
+!$OMP THREADPRIVATE(ric,rifc,b1,kap)
+      real frif,falpha,fsm
+      real fl,zzz,zl0,zq2,zn2
+
+      real rino(klon,klev+1),smyam(klon,klev),styam(klon,klev)
+      real lyam(klon,klev),knyam(klon,klev)
+      real w2yam(klon,klev),t2yam(klon,klev)
+      logical,save :: firstcall=.true.
+!$OMP THREADPRIVATE(firstcall)       
+      CHARACTER(len=20),PARAMETER :: modname="yamada_c"
+REAL, DIMENSION(klon,klev+1) :: fluxu,fluxv,fluxt
+REAL, DIMENSION(klon,klev+1) :: dddu,dddv,dddt
+REAL, DIMENSION(klon,klev) :: exner,masse
+REAL, DIMENSION(klon,klev+1) :: masseb,q2old,q2neg
+
+      frif(ri)=0.6588*(ri+0.1776-sqrt(ri*ri-0.3221*ri+0.03156))
+      falpha(ri)=1.318*(0.2231-ri)/(0.2341-ri)
+      fsm(ri)=1.96*(0.1912-ri)*(0.2341-ri)/((1.-ri)*(0.2231-ri))
+      fl(zzz,zl0,zq2,zn2)= &
+     &     max(min(l0(ig)*kap*zlev(ig,k)/(kap*zlev(ig,k)+l0(ig)) &
+     &     ,0.5*sqrt(q2(ig,k))/sqrt(max(n2(ig,k),1.e-10))) ,1.)
+
+
+      if (firstcall) then
+        allocate(l0(klon))
+#ifdef IOPHYS
+        call iophys_ini
+#endif
+        firstcall=.false.
+      endif
+
+
+#ifdef IOPHYS
+if (okiophys==1) then
+call iophys_ecrit('q2i',klev,'q2 debut my','m2/s2',q2(:,1:klev))
+call iophys_ecrit('kmi',klev,'Kz debut my','m/s2',km(:,1:klev))
+endif
+#endif
+
+      nlay=klev
+      nlev=klev+1
+
+!-------------------------------------------------------------------------
+! Computation of conservative source terms from the turbulent tendencies
+!-------------------------------------------------------------------------
+
+
+   zu(:,:)=pu(:,:)+0.5*d_u(:,:)
+   zv(:,:)=pv(:,:)+0.5*d_v(:,:)
+   zt(:,:)=pt(:,:)+0.5*d_t(:,:)
+   do k=1,klev
+      exner(:,k)=(play(:,k)/plev(:,1))**RKAPPA
+      masse(:,k)=(plev(:,k)-plev(:,k+1))/RG
+   enddo
+   teta(:,:)=zt(:,:)/exner(:,:)
+
+! Atmospheric mass at layer interfaces, where the TKE is computed
+   masseb(:,:)=0.
+   do k=1,klev
+      masseb(:,k)=masseb(:,k)+masse(:,k)
+      masseb(:,k+1)=masseb(:,k+1)+masse(:,k)
+    enddo
+    masseb(:,:)=0.5*masseb(:,:)
+
+
+
+   zlev(:,1)=0.
+   zlay(:,1)=RCPD*teta(:,1)*(1.-exner(:,1))
+   do k=1,klev-1
+      zlay(:,k+1)=zlay(:,k)+0.5*RCPD*(teta(:,k)+teta(:,k+1))*(exner(:,k)-exner(:,k+1))/RG
+      zlev(:,k)=0.5*(zlay(:,k)+zlay(:,k+1)) ! PASBO
+   enddo
+
+   fluxu(:,klev+1)=0.
+   fluxv(:,klev+1)=0.
+   fluxt(:,klev+1)=0.
+
+   do k=klev,1,-1
+      fluxu(:,k)=fluxu(:,k+1)+masse(:,k)*d_u(:,k)
+      fluxv(:,k)=fluxv(:,k+1)+masse(:,k)*d_v(:,k)
+      fluxt(:,k)=fluxt(:,k+1)+masse(:,k)*d_t(:,k)/exner(:,k) ! Flux de theta
+   enddo
+
+   dddu(:,1)=2*zu(:,1)*fluxu(:,1)
+   dddv(:,1)=2*zv(:,1)*fluxv(:,1)
+   dddt(:,1)=(exner(:,1)-1.)*fluxt(:,1)
+
+   do k=2,klev
+      dddu(:,k)=(zu(:,k)-zu(:,k-1))*fluxu(:,k)
+      dddv(:,k)=(zv(:,k)-zv(:,k-1))*fluxv(:,k)
+      dddt(:,k)=(exner(:,k)-exner(:,k-1))*fluxt(:,k)
+   enddo
+   dddu(:,klev+1)=0.
+   dddv(:,klev+1)=0.
+   dddt(:,klev+1)=0.
+
+#ifdef IOPHYS
+if (okiophys==1) then
+      call iophys_ecrit('zlay',klev,'Geop','m',zlay)
+      call iophys_ecrit('teta',klev,'teta','K',teta)
+      call iophys_ecrit('temp',klev,'temp','K',zt)
+      call iophys_ecrit('pt',klev,'temp','K',pt)
+      call iophys_ecrit('d_u',klev,'d_u','m/s2',d_u)
+      call iophys_ecrit('d_v',klev,'d_v','m/s2',d_v)
+      call iophys_ecrit('d_t',klev,'d_t','K/s',d_t)
+      call iophys_ecrit('exner',klev,'exner','',exner)
+      call iophys_ecrit('masse',klev,'masse','',masse)
+      call iophys_ecrit('masseb',klev,'masseb','',masseb)
+      call iophys_ecrit('Cm2',klev,'m2 conserv','m/s',(dddu(:,1:klev)+dddv(:,1:klev))/(masseb(:,1:klev)*timestep))
+      call iophys_ecrit('Cn2',klev,'m2 conserv','m/s',(rcpd*dddt(:,1:klev)/masseb(:,1:klev))/timestep)
+      call iophys_ecrit('rifc',klev,'rif conservative','',rcpd*dddt(:,1:klev)/min(dddu(:,1:klev)+dddv(:,1:klev),-1.e-20))
+endif
+#endif
+
+
+
+      ipas=ipas+1
+
+
+!.......................................................................
+!  les increments verticaux
+!.......................................................................
+!
+!!!!!! allerte !!!!!c
+!!!!!! zlev n'est pas declare a nlev !!!!!c
+!!!!!! ---->
+                                                      DO ig=1,ngrid
+            zlev(ig,nlev)=zlay(ig,nlay) &
+     &             +( zlay(ig,nlay) - zlev(ig,nlev-1) )
+                                                      ENDDO
+!!!!!! <----
+!!!!!! allerte !!!!!c
+!
+      DO k=1,nlay
+                                                      DO ig=1,ngrid
+        unsdz(ig,k)=1.E+0/(zlev(ig,k+1)-zlev(ig,k))
+                                                      ENDDO
+      ENDDO
+                                                      DO ig=1,ngrid
+      unsdzdec(ig,1)=1.E+0/(zlay(ig,1)-zlev(ig,1))
+                                                      ENDDO
+      DO k=2,nlay
+                                                      DO ig=1,ngrid
+        unsdzdec(ig,k)=1.E+0/(zlay(ig,k)-zlay(ig,k-1))
+                                                     ENDDO
+      ENDDO
+                                                      DO ig=1,ngrid
+      unsdzdec(ig,nlay+1)=1.E+0/(zlev(ig,nlay+1)-zlay(ig,nlay))
+                                                     ENDDO
+!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Computing M^2, N^2, Richardson numbers, stability functions
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+      do k=2,klev
+                                                          do ig=1,ngrid
+         dz(ig,k)=zlay(ig,k)-zlay(ig,k-1)
+         m2(ig,k)=((zu(ig,k)-zu(ig,k-1))**2+(zv(ig,k)-zv(ig,k-1))**2)/(dz(ig,k)*dz(ig,k))
+         dtetadz(ig,k)=(teta(ig,k)-teta(ig,k-1))/dz(ig,k)
+         n2(ig,k)=RG*2.*dtetadz(ig,k)/(teta(ig,k-1)+teta(ig,k))
+!        n2(ig,k)=0.
+         ri=n2(ig,k)/max(m2(ig,k),1.e-10)
+         if (ri.lt.ric) then
+            rif(ig,k)=frif(ri)
+         else
+            rif(ig,k)=rifc
+         endif
+         if(rif(ig,k).lt.0.16) then
+            alpha(ig,k)=falpha(rif(ig,k))
+            sm(ig,k)=fsm(rif(ig,k))
+         else
+            alpha(ig,k)=1.12
+            sm(ig,k)=0.085
+         endif
+         zz(ig,k)=b1*m2(ig,k)*(1.-rif(ig,k))*sm(ig,k)
+                                                          enddo
+      enddo
+
+
+
+!====================================================================
+!  Computing the mixing length
+!====================================================================
+
+!   Mise a jour de l0
+      if (iflag_pbl==8.or.iflag_pbl==10) then
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Iterative computation of l0
+! This version is kept for iflag_pbl only for convergence
+! with NPv3.1 Cmip5 simulations
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+                                                          do ig=1,ngrid
+      sq(ig)=1.e-10
+      sqz(ig)=1.e-10
+                                                          enddo
+      do k=2,klev-1
+                                                          do ig=1,ngrid
+        zq=sqrt(q2(ig,k))
+        sqz(ig)=sqz(ig)+zq*zlev(ig,k)*(zlay(ig,k)-zlay(ig,k-1))
+        sq(ig)=sq(ig)+zq*(zlay(ig,k)-zlay(ig,k-1))
+                                                          enddo
+      enddo
+                                                          do ig=1,ngrid
+      l0(ig)=0.2*sqz(ig)/sq(ig)
+                                                          enddo
+      do k=2,klev
+                                                          do ig=1,ngrid
+         l(ig,k)=fl(zlev(ig,k),l0(ig),q2(ig,k),n2(ig,k))
+                                                          enddo
+      enddo
+!     print*,'L0 cas 8 ou 10 ',l0
+
+      else
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! In all other case, the assymptotic mixing length l0 is imposed (100m)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+          l0(:)=150.
+          do k=2,klev
+                                                          do ig=1,ngrid
+             l(ig,k)=fl(zlev(ig,k),l0(ig),q2(ig,k),n2(ig,k))
+                                                          enddo
+          enddo
+!     print*,'L0 cas autres ',l0
+
+      endif
+
+
+#ifdef IOPHYS
+if (okiophys==1) then
+call iophys_ecrit('rif',klev,'Flux Richardson','m',rif(:,1:klev))
+call iophys_ecrit('m2',klev,'m2 ','m/s',m2(:,1:klev))
+call iophys_ecrit('Km2',klev,'m2 conserv','m/s',km(:,1:klev)*m2(:,1:klev))
+call iophys_ecrit('Km',klev,'Km','m2/s',km(:,1:klev))
+endif
+#endif
+
+
+IF (iflag_pbl<20) then
+      ! For diagnostics only
+      RETURN
+
+ELSE
+
+!  print*,'OK1'
+
+! Evolution of TKE under source terms K M2 and K N2
+   leff(:,:)=max(l(:,:),1.)
+   IF (iflag_pbl==29) THEN
+      km2(:,:)=km(:,:)*m2(:,:)
+      kn2(:,:)=kn2(:,:)*rif(:,:)
+   ELSEIF (iflag_pbl==25) THEN
+      DO k=1,klev
+         km2(:,k)=-0.5*(dddu(:,k)+dddv(:,k)+dddu(:,k+1)+dddv(:,k+1)) &
+         &        /(masse(:,k)*timestep)
+         kn2(:,k)=rcpd*0.5*(dddt(:,k)+dddt(:,k+1))/(masse(:,k)*timestep)
+         leff(:,k)=0.5*(leff(:,k)+leff(:,k+1))
+      ENDDO
+      km2(:,klev+1)=0. ; kn2(:,klev+1)=0.
+   ELSE
+      km2(:,:)=-(dddu(:,:)+dddv(:,:))/(masseb(:,:)*timestep)
+      kn2(:,:)=rcpd*dddt(:,:)/(masseb(:,:)*timestep)
+   ENDIF
+   q2neg(:,:)=q2(:,:)+timestep*(km2(:,:)-kn2(:,:))
+   q2(:,:)=min(max(q2neg(:,:),1.e-10),1.e4)
+
+! Dissipation of TKE
+   q2old(:,:)=q2(:,:)
+   q2(:,:)=1./(1./sqrt(q2(:,:))+timestep/(2*leff(:,:)*b1))
+   q2(:,:)=q2(:,:)*q2(:,:)
+   IF (iflag_pbl<=24) THEN
+      DO k=1,klev
+         d_t_diss(:,k)=(masseb(:,k)*(q2neg(:,k)-q2(:,k))+masseb(:,k+1)*(q2neg(:,k+1)-q2(:,k+1)))/(2.*rcpd*masse(:,k))
+      ENDDO
+   ELSE IF (iflag_pbl<=27) THEN
+      DO k=1,klev
+         d_t_diss(:,k)=(q2neg(:,k)-q2(:,k))/rcpd
+      ENDDO
+   ENDIF
+!  print*,'iflag_pbl ',d_t_diss
+
+
+! Compuation of stability functions
+   IF (iflag_pbl/=29) THEN
+      DO k=1,klev
+      DO ig=1,ngrid
+         IF (ABS(km2(ig,k))<=1.e-20) THEN
+            rif(ig,k)=0.
+         ELSE
+            rif(ig,k)=min(kn2(ig,k)/km2(ig,k),rifc)
+         ENDIF
+         IF (rif(ig,k).lt.0.16) THEN
+            alpha(ig,k)=falpha(rif(ig,k))
+            sm(ig,k)=fsm(rif(ig,k))
+         else
+            alpha(ig,k)=1.12
+            sm(ig,k)=0.085
+         endif
+      ENDDO
+      ENDDO
+    ENDIF
+
+! Computation of turbulent diffusivities
+   IF (25<=iflag_pbl.and.iflag_pbl<=28) THEN
+     DO k=2,klev
+        sqrtq(:,k)=sqrt(0.5*(q2(:,k)+q2(:,k-1)))
+     ENDDO
+   ELSE
+     DO k=2,klev
+        sqrtq(:,k)=sqrt(q2(:,k))
+     ENDDO
+   ENDIF
+   DO k=2,klev
+   DO ig=1,ngrid
+      km(ig,k)=leff(ig,k)*sqrtq(ig,k)*sm(ig,k)
+      kn(ig,k)=km(ig,k)*alpha(ig,k)
+      kq(ig,k)=leff(ig,k)*zq*0.2
+!         print*,q2(ig,k),zq,km(ig,k)
+   ENDDO
+   ENDDO
+
+
+
+#ifdef IOPHYS
+if (okiophys==1) then
+call iophys_ecrit('mixingl',klev,'Mixing length','m',leff(:,1:klev))
+call iophys_ecrit('rife',klev,'Flux Richardson','m',rif(:,1:klev))
+call iophys_ecrit('q2f',klev,'KTE finale','m2/s',q2(:,1:klev))
+call iophys_ecrit('q2neg',klev,'KTE non bornee','m2/s',q2neg(:,1:klev))
+call iophys_ecrit('alpha',klev,'alpha','',alpha(:,1:klev))
+call iophys_ecrit('sm',klev,'sm','',sm(:,1:klev))
+call iophys_ecrit('q2f',klev,'KTE finale','m2/s',q2(:,1:klev))
+call iophys_ecrit('kmf',klev,'Kz final','m2/s',km(:,1:klev))
+call iophys_ecrit('knf',klev,'Kz final','m2/s',kn(:,1:klev))
+call iophys_ecrit('kqf',klev,'Kz final','m2/s',kq(:,1:klev))
+endif
+#endif
+
+ENDIF
+
+
+!  print*,'OK2'
+      RETURN
+!====================================================================
+!   Yamada 2.0
+!====================================================================
+      if (iflag_pbl.eq.6) then
+
+      do k=2,klev
+         q2(:,k)=l(:,k)**2*zz(:,k)
+      enddo
+
+
+      else if (iflag_pbl.eq.7) then
+!====================================================================
+!   Yamada 2.Fournier
+!====================================================================
+
+!  Calcul de l,  km, au pas precedent
+      do k=2,klev
+                                                          do ig=1,ngrid
+!        print*,'SMML=',sm(ig,k),l(ig,k)
+         delta(ig,k)=q2(ig,k)/(l(ig,k)**2*sm(ig,k))
+         kmpre(ig,k)=l(ig,k)*sqrt(q2(ig,k))*sm(ig,k)
+         mpre(ig,k)=sqrt(m2(ig,k))
+!        print*,'0L=',k,l(ig,k),delta(ig,k),km(ig,k)
+                                                          enddo
+      enddo
+
+      do k=2,klev-1
+                                                          do ig=1,ngrid
+        m2cstat=max(alpha(ig,k)*n2(ig,k)+delta(ig,k)/b1,1.e-12)
+        mcstat=sqrt(m2cstat)
+
+!        print*,'M2 L=',k,mpre(ig,k),mcstat
+!
+!  -----{puis on ecrit la valeur de q qui annule l'equation de m
+!        supposee en q3}
+!
+        IF (k.eq.2) THEN
+          kmcstat=1.E+0 / mcstat &
+     &    *( unsdz(ig,k)*kmpre(ig,k+1) &
+     &                        *mpre(ig,k+1) &
+     &      +unsdz(ig,k-1) &
+     &              *cd(ig) &
+     &              *( sqrt(zu(ig,3)**2+zv(ig,3)**2) &
+     &                -mcstat/unsdzdec(ig,k) &
+     &                -mpre(ig,k+1)/unsdzdec(ig,k+1) )**2) &
+     &      /( unsdz(ig,k)+unsdz(ig,k-1) )
+        ELSE
+          kmcstat=1.E+0 / mcstat &
+     &    *( unsdz(ig,k)*kmpre(ig,k+1) &
+     &                        *mpre(ig,k+1) &
+     &      +unsdz(ig,k-1)*kmpre(ig,k-1) &
+     &                          *mpre(ig,k-1) ) &
+     &      /( unsdz(ig,k)+unsdz(ig,k-1) )
+        ENDIF
+!       print*,'T2 L=',k,tmp2
+        tmp2=kmcstat &
+     &      /( sm(ig,k)/q2(ig,k) ) &
+     &      /l(ig,k)
+        q2(ig,k)=max(tmp2,1.e-12)**(2./3.)
+!       print*,'Q2 L=',k,q2(ig,k)
+!
+                                                          enddo
+      enddo
+
+      else if (iflag_pbl==8.or.iflag_pbl==9) then
+!====================================================================
+!   Yamada 2.5 a la Didi
+!====================================================================
+
+
+!  Calcul de l,  km, au pas precedent
+      do k=2,klev
+                                                          do ig=1,ngrid
+!        print*,'SMML=',sm(ig,k),l(ig,k)
+         delta(ig,k)=q2(ig,k)/(l(ig,k)**2*sm(ig,k))
+         if (delta(ig,k).lt.1.e-20) then
+!     print*,'ATTENTION   L=',k,'   Delta=',delta(ig,k)
+            delta(ig,k)=1.e-20
+         endif
+         km(ig,k)=l(ig,k)*sqrt(q2(ig,k))*sm(ig,k)
+         aa0=(m2(ig,k)-alpha(ig,k)*n2(ig,k)-delta(ig,k)/b1)
+         aa1=(m2(ig,k)*(1.-rif(ig,k))-delta(ig,k)/b1)
+! abder      print*,'AA L=',k,aa0,aa1,aa1/max(m2(ig,k),1.e-20)
+         aa(ig,k)=aa1*timestep/(delta(ig,k)*l(ig,k))
+!     print*,'0L=',k,l(ig,k),delta(ig,k),km(ig,k)
+         qpre=sqrt(q2(ig,k))
+!        if (iflag_pbl.eq.8 ) then
+            if (aa(ig,k).gt.0.) then
+               q2(ig,k)=(qpre+aa(ig,k)*qpre*qpre)**2
+            else
+               q2(ig,k)=(qpre/(1.-aa(ig,k)*qpre))**2
+            endif
+!        else ! iflag_pbl=9
+!           if (aa(ig,k)*qpre.gt.0.9) then
+!              q2(ig,k)=(qpre*10.)**2
+!           else
+!              q2(ig,k)=(qpre/(1.-aa(ig,k)*qpre))**2
+!           endif
+!        endif
+         q2(ig,k)=min(max(q2(ig,k),1.e-10),1.e4)
+!     print*,'Q2 L=',k,q2(ig,k),qpre*qpre
+                                                          enddo
+      enddo
+
+      else if (iflag_pbl>=10) then
+
+!        print*,'Schema mixte D'
+!        print*,'Longueur ',l(:,:)
+         do k=2,klev-1
+            l(:,k)=max(l(:,k),1.)
+            km(:,k)=l(:,k)*sqrt(q2(:,k))*sm(:,k)
+            q2(:,k)=q2(:,k)+timestep*km(:,k)*m2(:,k)*(1.-rif(:,k))
+            q2(:,k)=min(max(q2(:,k),1.e-10),1.e4)
+            q2(:,k)=1./(1./sqrt(q2(:,k))+timestep/(2*l(:,k)*b1))
+            q2(:,k)=q2(:,k)*q2(:,k)
+         enddo
+
+
+      else
+         CALL abort_physic(modname,'Cas nom prevu dans yamada4',1)
+
+      endif ! Fin du cas 8
+
+!     print*,'OK8'
+
+!====================================================================
+!   Calcul des coefficients de m�ange
+!====================================================================
+      do k=2,klev
+!     print*,'k=',k
+                                                          do ig=1,ngrid
+!abde      print*,'KML=',l(ig,k),q2(ig,k),sm(ig,k)
+         zq=sqrt(q2(ig,k))
+         km(ig,k)=l(ig,k)*zq*sm(ig,k)
+         kn(ig,k)=km(ig,k)*alpha(ig,k)
+         kq(ig,k)=l(ig,k)*zq*0.2
+!     print*,'KML=',km(ig,k),kn(ig,k)
+                                                          enddo
+      enddo
+
+! Transport diffusif vertical de la TKE.
+      if (iflag_pbl.ge.12) then
+!       print*,'YAMADA VDIF'
+        q2(:,1)=q2(:,2)
+        call vdif_q2(timestep,RG,RD,ngrid,plev,zt,kq,q2)
+      endif
+
+!   Traitement des cas noctrunes avec l'introduction d'une longueur
+!   minilale.
+
+!====================================================================
+!   Traitement particulier pour les cas tres stables.
+!   D'apres Holtslag Boville.
+
+      if (prt_level>1) THEN
+       print*,'YAMADA4 0'
+      endif !(prt_level>1) THEN
+                                                          do ig=1,ngrid
+      coriol(ig)=1.e-4
+      pblhmin(ig)=0.07*ustar(ig)/max(abs(coriol(ig)),2.546e-5)
+                                                          enddo
+
+!     print*,'pblhmin ',pblhmin
+!Test a remettre 21 11 02
+! test abd 13 05 02      if(0.eq.1) then
+      if(1==1) then
+      if(iflag_pbl==8.or.iflag_pbl==10) then
+
+      do k=2,klev
+         do ig=1,ngrid
+            if (teta(ig,2).gt.teta(ig,1)) then
+               qmin=ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
+               kmin=kap*zlev(ig,k)*qmin
+            else
+               kmin=-1. ! kmin n'est utilise que pour les SL stables.
+            endif 
+            if (kn(ig,k).lt.kmin.or.km(ig,k).lt.kmin) then
+!               print*,'Seuil min Km K=',k,kmin,km(ig,k),kn(ig,k)
+!     s           ,sqrt(q2(ig,k)),pblhmin(ig),qmin/sm(ig,k)
+               kn(ig,k)=kmin
+               km(ig,k)=kmin
+               kq(ig,k)=kmin
+!   la longueur de melange est suposee etre l= kap z
+!   K=l q Sm d'ou q2=(K/l Sm)**2
+               q2(ig,k)=(qmin/sm(ig,k))**2
+            endif
+         enddo
+      enddo
+
+      else
+
+      do k=2,klev
+         do ig=1,ngrid
+            if (teta(ig,2).gt.teta(ig,1)) then
+               qmin=ustar(ig)*(max(1.-zlev(ig,k)/pblhmin(ig),0.))**2
+               kmin=kap*zlev(ig,k)*qmin
+            else
+               kmin=-1. ! kmin n'est utilise que pour les SL stables.
+            endif 
+            if (kn(ig,k).lt.kmin.or.km(ig,k).lt.kmin) then
+!               print*,'Seuil min Km K=',k,kmin,km(ig,k),kn(ig,k)
+!     s           ,sqrt(q2(ig,k)),pblhmin(ig),qmin/sm(ig,k)
+               kn(ig,k)=kmin
+               km(ig,k)=kmin
+               kq(ig,k)=kmin
+!   la longueur de melange est suposee etre l= kap z
+!   K=l q Sm d'ou q2=(K/l Sm)**2
+               sm(ig,k)=1.
+               alpha(ig,k)=1.
+               q2(ig,k)=min((qmin/sm(ig,k))**2,10.)
+               zq=sqrt(q2(ig,k))
+               km(ig,k)=l(ig,k)*zq*sm(ig,k)
+               kn(ig,k)=km(ig,k)*alpha(ig,k)
+               kq(ig,k)=l(ig,k)*zq*0.2
+            endif
+         enddo
+      enddo
+      endif
+
+      endif
+
+      if (prt_level>1) THEN
+       print*,'YAMADA4 1'
+      endif !(prt_level>1) THEN
+!   Diagnostique pour stokage
+
+      if(1.eq.0)then
+      rino=rif
+      smyam(1:ngrid,1)=0.
+      styam(1:ngrid,1)=0.
+      lyam(1:ngrid,1)=0.
+      knyam(1:ngrid,1)=0.
+      w2yam(1:ngrid,1)=0.
+      t2yam(1:ngrid,1)=0.
+
+      smyam(1:ngrid,2:klev)=sm(1:ngrid,2:klev)
+      styam(1:ngrid,2:klev)=sm(1:ngrid,2:klev)*alpha(1:ngrid,2:klev)
+      lyam(1:ngrid,2:klev)=l(1:ngrid,2:klev)
+      knyam(1:ngrid,2:klev)=kn(1:ngrid,2:klev)
+
+!   Estimations de w'2 et T'2 d'apres Abdela et McFarlane
+
+      w2yam(1:ngrid,2:klev)=q2(1:ngrid,2:klev)*0.24 &
+     &    +lyam(1:ngrid,2:klev)*5.17*kn(1:ngrid,2:klev) &
+     &    *n2(1:ngrid,2:klev)/sqrt(q2(1:ngrid,2:klev))
+
+      t2yam(1:ngrid,2:klev)=9.1*kn(1:ngrid,2:klev) &
+     &    *dtetadz(1:ngrid,2:klev)**2 &
+     &    /sqrt(q2(1:ngrid,2:klev))*lyam(1:ngrid,2:klev)
+      endif
+
+!     print*,'OKFIN'
+      first=.false.
+      return
+      end
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/zilch.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/zilch.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/zilch.F90	(revision 3330)
@@ -0,0 +1,17 @@
+
+! $Header$
+
+SUBROUTINE zilch(x, m)
+
+  ! Zero the real array x dimensioned m.
+
+  IMPLICIT NONE
+
+  INTEGER m, i
+  REAL x(m)
+
+  DO i = 1, m
+    x(i) = 0.0
+  END DO
+  RETURN
+END SUBROUTINE zilch
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Atm_RT_INI.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Atm_RT_INI.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Atm_RT_INI.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Atm_RT_RUN.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Atm_RT_RUN.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Atm_RT_RUN.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/CMiPhy.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/CMiPhy.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/CMiPhy.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/CVAmnh.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/CVAmnh.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/CVAmnh.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/MAR________BUG.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/MAR________BUG.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/MAR________BUG.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CM_QSa.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CM_QSa.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CM_QSa.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CM_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CM_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CM_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CP_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CP_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_CP_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_S0_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_S0_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Atm_S0_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_CMiPhy_loc.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_CMiPhy_loc.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_CMiPhy_loc.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_ctr.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_ctr.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_ctr.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_AT_kkl.f90	(revision 3330)
@@ -0,0 +1,122 @@
+      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]
+      double precision,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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_ctr.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_ctr.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_ctr.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_dat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_dat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_dat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CM_kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_ctr.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_ctr.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_ctr.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_dat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_dat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_dat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_CP_kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_DY_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_DY_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_DY_kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_dat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_dat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_dat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_dim.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_dim.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_dim.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_xyz.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_xyz.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_RT_xyz.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_ctr.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_ctr.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_ctr.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_dat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_dat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_dat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY_S0_kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____dat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____dat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____dat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_PHY____kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_Real.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Real.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_Real.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLBSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLBSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLBSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLGSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLGSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLGSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSBL.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSBL.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSBL.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSIc.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSIc.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSIc.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSnO.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSnO.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLSnO.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLTSo.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLTSo.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLTSo.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLTVg.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLTVg.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLTVg.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLVgO.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLVgO.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLVgO.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLmmm.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLmmm.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLmmm.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqSo.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqSo.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqSo.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqVg.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqVg.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLqVg.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLzSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLzSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVATLzSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_BDu.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_BDu.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_BDu.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_BSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_BSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_BSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_CdP.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_CdP.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_CdP.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_GSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_GSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_GSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_SIc.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_SIc.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_SIc.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_SnOptP.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_SnOptP.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_SnOptP.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_TRV.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_TRV.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_TRV.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_aux.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_aux.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_aux.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_cdf.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_cdf.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_cdf.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_ctr.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_ctr.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_ctr.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dim.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dim.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dim.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dzS.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dzS.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_dzS.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_flx.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_flx.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_flx.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_gpt.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_gpt.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_gpt.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_grd.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_grd.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_grd.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_kkl.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_kkl.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_kkl.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_loc.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_loc.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_loc.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_log.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_log.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_log.f90	(revision 3330)
@@ -0,0 +1,7 @@
+      module Mod_SISVAT_log
+
+      implicit none
+
+      logical  ::           iniIRs,iniOUT
+
+      end module Mod_SISVAT_log
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_qSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_qSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_qSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_qSo.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_qSo.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_qSo.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_wEq.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_wEq.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_wEq.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xAH.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xAH.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xAH.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xAW.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xAW.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xAW.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xWL.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xWL.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xWL.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xZM.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xZM.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_xZM.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_zSn.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_zSn.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_SISVAT_zSn.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_genTKE_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_genTKE_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_genTKE_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/Mod_vdfTKE_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_vdfTKE_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/Mod_vdfTKE_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_AT_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_QSat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_QSat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_QSat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CM_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_CP_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_DY_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_RT_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_Atm_S0_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_CPU_NumPrec.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_CPU_NumPrec.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_CPU_NumPrec.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_MAR_DAT.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_MAR_DAT.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_MAR_DAT.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_MAR___.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_MAR___.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_MAR___.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_INP.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_INP.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_INP.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_OUT.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_OUT.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_OUT.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_UBC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_UBC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_SISVAT_UBC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY________ALLOC.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY________ALLOC.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY________ALLOC.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY________INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY________INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY________INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY________OUT.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY________OUT.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY________OUT.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_genTKE_INI.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_genTKE_INI.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_genTKE_INI.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_genTKE_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_genTKE_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_genTKE_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/PHY_vdfTKE_RUN.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_vdfTKE_RUN.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/PHY_vdfTKE_RUN.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/SISVAT.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/SISVAT.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/SISVAT.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/YOMCST.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/YOMCST.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/YOMCST.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/aaa.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/aaa.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/aaa.F90	(revision 3330)
@@ -0,0 +1,7 @@
+     SUBROUTINE aaa
+! Subroutine bidon pour forcer la compilation de PARKIND1
+USE PARKIND1
+USE Mod_Real
+
+     END
+
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/clesphys.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/clesphys.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/clesphys.h	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/clesphys.h
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/col2box.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/col2box.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/col2box.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/comcstphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/comcstphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/comcstphy.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/comcstphy.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/comcstphy.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/comcstphy.h	(revision 3330)
@@ -0,0 +1,2 @@
+      real rradius,rr,rg,rcpp
+      common/comcstphy/rradius,rr,rg,rcpp
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/dimphy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/dimphy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/dimphy.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/dimphy.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fctast.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fctast.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fctast.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/fcttim.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fcttim.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fcttim.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/fcttre.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fcttre.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fcttre.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/fcttrm.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fcttrm.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/fcttrm.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/gr_fi_ecrit.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/gr_fi_ecrit.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/gr_fi_ecrit.F	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/infotrac_phy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/infotrac_phy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/infotrac_phy.F90	(revision 3330)
@@ -0,0 +1,32 @@
+
+! $Id: $
+
+MODULE infotrac_phy
+
+! Infotrac for physics; for now contains the same information as infotrac for
+! the dynamics (could be further cleaned) and is initialized using values
+! provided by the dynamics
+
+! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
+  INTEGER, SAVE :: nqtot
+!$OMP THREADPRIVATE(nqtot)
+ 
+CONTAINS
+
+  SUBROUTINE init_infotrac_phy(nqtot_)
+  ! transfer information on tracers from dynamics to physics
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: nqtot_
+
+    CHARACTER(LEN=30) :: modname="init_infotrac_phy"
+
+    nqtot=nqtot_
+  
+    IF(prt_level.ge.1) THEN
+      write(lunout,*) TRIM(modname)//": nqtot",nqtot
+    ENDIF
+    
+  END SUBROUTINE init_infotrac_phy
+
+END MODULE infotrac_phy
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iophy.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iophy.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iophy.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/iophy.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iophys.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iophys.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iophys.F90	(revision 3330)
@@ -0,0 +1,132 @@
+      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
+      USE vertical_layers_mod, ONLY: presnivs
+      USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
+      USE dimphy, ONLY: klev
+
+      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:
+!   -------------
+
+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)
+size(lon_reg),size(lat_reg),klev,lon_reg(:)*180./pi,lat_reg*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/IPSLCM5A2.1_ISO/libf/phymar/iostart.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iostart.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iostart.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/iostart.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/iotd_ecrit.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd_ecrit.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd_ecrit.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/iotd_fin.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd_fin.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd_fin.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/iotd_ini.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd_ini.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/iotd_ini.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/legtri.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/legtri.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/legtri.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lw.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwb.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwbv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwbv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwbv.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwc.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwtt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwtt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwtt.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwttm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwttm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwttm.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwu.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwu.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwu.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwv.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwvb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwvb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwvb.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwvd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwvd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwvd.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/lwvn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwvn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/lwvn.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/naerad.h
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/naerad.h	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/naerad.h	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olw.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwb.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwbv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwbv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwbv.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwc.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwtt.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwtt.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwtt.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwttm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwttm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwttm.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwu.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwu.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwu.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwv.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwvb.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwvb.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwvb.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwvd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwvd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwvd.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/olwvn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwvn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/olwvn.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parcli.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parcli.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parcli.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parclimf.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parclimf.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parclimf.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parcma.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parcma.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parcma.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/pardim.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/pardim.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/pardim.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/pardimo.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/pardimo.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/pardimo.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parerob.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parerob.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parerob.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parfpos.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parfpos.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parfpos.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/pargc5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/pargc5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/pargc5.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parkind1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parkind1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parkind1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parkind2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parkind2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parkind2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parptrs.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parptrs.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parptrs.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parrint.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parrint.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parrint.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parrrtm.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parrrtm.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parrrtm.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/parrtm1d.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parrtm1d.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/parrtm1d.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/phyaqua_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyaqua_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyaqua_mod.F90	(revision 3330)
@@ -0,0 +1,45 @@
+!
+! $Id: $
+!
+MODULE phyaqua_mod
+
+  IMPLICIT NONE
+
+CONTAINS
+
+  SUBROUTINE iniaqua(nlon, 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 geometry_mod, ONLY: longitude_deg, latitude_deg
+  IMPLICIT NONE
+      
+  INTEGER,INTENT(IN) :: nlon,iflag_phys
+
+  ! local variables
+  REAL :: pi
+
+  ! initializations:
+  pi=2.*ASIN(1.)
+
+  CALL phys_state_var_init()
+
+  rlat(1:klon_omp)=latitude_deg(1:klon_omp)
+  rlon(1:klon_omp)=longitude_deg(1:klon_omp)
+
+
+  ! 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 SUBROUTINE iniaqua
+
+END MODULE phyaqua_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyetat0.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyetat0.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyetat0.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/phyredem.F
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyredem.F	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phyredem.F	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/phys_output_var_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phys_output_var_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phys_output_var_mod.F90	(revision 3330)
@@ -0,0 +1,1 @@
+link ../phylmd/phys_output_var_mod.F90
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phys_state_var_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phys_state_var_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/phys_state_var_mod.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/physiq_mod.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/physiq_mod.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/physiq_mod.F90	(revision 3330)
@@ -0,0 +1,1151 @@
+! $Id: physiq.F 1565 2011-08-31 12:53:29Z jghattas $
+!#define IO_DEBUG
+MODULE physiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
+!========================================================================================================================
+! 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, &
+     &            u,v,rot,t,qx, &
+     &            flxmass_w, &
+     &            d_u, d_v, d_t, d_qx, d_ps &
+     &            , dudyn )
+
+      USE dimphy, only : klon,klev,klevp1
+      USE infotrac_phy, only : nqtot
+      USE geometry_mod, only : latitude,longitude,cell_area
+      !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
+      USE vertical_layers_mod, ONLY: ap, bp
+! 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 "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
+      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):: rot(klon, klev) ! relative vorticity,
+                                         ! in s-1, needed for frontal waves
+      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 (longitude(i) .LT. 0) THEN
+    lonh_HOST(i)=longitude(i)*12./rpi+24. ! from radians to hours
+   ELSE
+    lonh_HOST(i)=longitude(i)*12./rpi ! from radians to hours
+  ENDIF
+ENDDO
+latr_HOST(:)=latitude(:) ! 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*latitude(i))**2)
+            IF ((latitude(i).GT.1.0471975).OR.(latitude(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) / cell_area(i) ! omega en Pa/s
+  Wa___HOST(:,i)=flxmass_w(:,k) / cell_area(:) * (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*latitude(i))**2)
+    IF ((latitude(i).GT.1.0471975).OR.(latitude(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=',longitude(i)*180/rpi
+      PRINT*,'latitude=',latitude(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'
+
+end subroutine physiq
+
+
+END MODULE physiq_mod
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/qsat.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/qsat.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/qsat.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/qv_sat.f90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/qv_sat.f90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/qv_sat.f90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/radCEP.inc
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radCEP.inc	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radCEP.inc	(revision 3330)
@@ -0,0 +1,2 @@
+      integer   klonr       ,klevr   ,nn_aer,nae
+      parameter(klonr=13538,klevr=39,nn_aer=6)
Index: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radaca.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radaca.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radaca.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/radlsw.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radlsw.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radlsw.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/radozc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radozc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/radozc.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb10.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb11.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb12.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb13.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb14.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb15.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb16.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb3.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb4.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb5.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb6.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb7.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb8.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_cmbgb9.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_ecrt_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_ecrt_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_ecrt_140gp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_gasabs1a_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_gasabs1a_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_gasabs1a_140gp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_init_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_init_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_init_140gp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb10.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb11.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb12_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb13_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb14.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb15_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb16_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1_01.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1_01.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1_01.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1_02.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1_02.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb1_02.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2_01.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2_01.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2_01.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2_02.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2_02.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb2_02.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B3.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb3_B4.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B3.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb4_B4.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B3.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb5_B4.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb6.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_BB.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_BB.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb7_BB.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb8.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_00.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_00.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_00.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_A1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_A1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_A1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_A2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_A2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_A2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_BB.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_BB.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_kgb9_BB.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_rrtm_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_rrtm_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_rrtm_140gp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_rtrn1a_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_rtrn1a_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_rtrn1a_140gp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_setcoef_140gp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_setcoef_140gp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_setcoef_140gp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol1.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol1.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol1.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol10.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol11.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol12.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol13.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol13.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol13.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol14.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol14.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol14.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol15.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol15.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol15.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol16.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol16.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol16.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol2.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol2.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol2.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol3.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol3.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol3.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol4.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol4.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol4.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol5.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol5.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol5.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol6.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol6.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol6.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol7.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol7.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol7.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol8.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol8.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol8.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol9.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol9.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/rrtm_taumol9.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/strhandler.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/strhandler.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/strhandler.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suaerh.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaerh.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaerh.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suaerl.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaerl.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaerl.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suaersn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaersn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaersn.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suaerv.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaerv.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suaerv.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/sucld.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/sucld.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/sucld.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/sucldp.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/sucldp.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/sucldp.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suclop.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suclop.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suclop.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suclopn.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suclopn.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suclopn.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/sucst.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/sucst.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/sucst.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_01.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_01.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_01.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_02.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_02.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_02.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_03.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_03.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_03.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_04.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_04.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_04.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_05.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_05.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_05.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_06.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_06.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_06.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_07.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_07.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_07.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_08.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_08.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_08.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_09.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_09.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_09.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_10.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_11.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaebc_12.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaec.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaec.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaec.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_01.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_01.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_01.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_02.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_02.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_02.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_03.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_03.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_03.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_04.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_04.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_04.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_05.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_05.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_05.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_06.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_06.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_06.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_07.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_07.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_07.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_08.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_08.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_08.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_09.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_09.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_09.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_10.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_10.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_10.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_11.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_11.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_11.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_12.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_12.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaeor_12.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_01.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_01.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_01.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_02.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_02.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_02.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_03.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_03.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_03.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_04.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_04.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_04.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_05.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_05.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_05.F90	(revision 3330)
@@ -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/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_06.F90
===================================================================
--- LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_06.F90	(revision 3330)
+++ LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phymar/suecaesd_06.F90	(revision 3330)
@@ -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